|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 1024 (0x400) Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_4f24c5
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« └─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0198 | | .CONST 0x0198 ; Offset of debug table 0004 0100 | | .CONST 0x0100 ; Default exception handler - raise instruction 0005 00bb | | .CONST 0x00bb ; Module termination instruction - signal completion 0006 0000 | | .CONST 0x0000 ; Offset to segment table (only in elab segments) 0007 0000 | | .CONST 0x0000 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 016a | j | .CONST 0x016a ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 000a | | .CONST 0x000a ; Number of locals 000b INIT_0008: 000b e00a | | Load 0x0,0xa 000c 1b12 | | Execute Package,Field_Read,Field_Number 0x12 000d 1b4c | L | Execute Package,Field_Read,Field_Number 0x4c 000e 02c7 | | Declare_Variable Any 000f e20f | | Load 0x1,0xf 0010 e00a | | Load 0x0,0xa 0011 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0012 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0013 e00a | | Load 0x0,0xa 0014 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0015 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0016 4800 |H | Short_Literal 0x0 0017 e00a | | Load 0x0,0xa 0018 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0019 1b41 | A | Execute Package,Field_Read,Field_Number 0x41 001a 0337 | 7 | Declare_Variable Array 001b 4801 |H | Short_Literal 0x1 001c 4800 |H | Short_Literal 0x0 001d 00da | | Load_Top At_Offset_2 001e 01d6 | | Execute Vector,Field_Write 001f 4801 |H | Short_Literal 0x1 0020 4802 |H | Short_Literal 0x2 0021 00da | | Load_Top At_Offset_2 0022 01d6 | | Execute Vector,Field_Write 0023 4800 |H | Short_Literal 0x0 0024 4801 |H | Short_Literal 0x1 0025 00da | | Load_Top At_Offset_2 0026 01d6 | | Execute Vector,Field_Write 0027 480e |H | Short_Literal 0xe 0028 4803 |H | Short_Literal 0x3 0029 4800 |H | Short_Literal 0x0 002a 00d9 | | Load_Top At_Offset_1 002b e407 | | Load 0x2,0x7 002c 01d6 | | Execute Vector,Field_Write 002d 3ffb |? | Loop_Increasing 0x29 002e e00a | | Load 0x0,0xa 002f 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0030 1b41 | A | Execute Package,Field_Read,Field_Number 0x41 0031 01c3 | | Execute Vector,Check_In_Type 0032 e00a | | Load 0x0,0xa 0033 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0034 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0035 a402 | | Store_Unchecked 0x2,0x2 0036 e20f | | Load 0x1,0xf 0037 4801 |H | Short_Literal 0x1 0038 4803 |H | Short_Literal 0x3 0039 e00a | | Load 0x0,0xa 003a 1b11 | | Execute Package,Field_Read,Field_Number 0x11 003b 1b10 | | Execute Package,Field_Read,Field_Number 0x10 003c 035b | [ | Declare_Type Array,Constrained 003d 0337 | 7 | Declare_Variable Array 003e e20f | | Load 0x1,0xf 003f 0092 016c | l| Action Push_String_Extended,0x16c ; "Assembly" 0041 e00a | | Load 0x0,0xa 0042 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0043 180e | | Execute Package,Field_Execute,Field_Number 0xe 0044 e00a | | Load 0x0,0xa 0045 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0046 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0047 0119 | | Execute Any,Check_In_Formal_Type 0048 4801 |H | Short_Literal 0x1 0049 00da | | Load_Top At_Offset_2 004a 01d6 | | Execute Vector,Field_Write 004b e20f | | Load 0x1,0xf 004c 0092 016d | m| Action Push_String_Extended,0x16d ; "C" 004e e00a | | Load 0x0,0xa 004f 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0050 180e | | Execute Package,Field_Execute,Field_Number 0xe 0051 e00a | | Load 0x0,0xa 0052 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0053 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0054 0119 | | Execute Any,Check_In_Formal_Type 0055 4802 |H | Short_Literal 0x2 0056 00da | | Load_Top At_Offset_2 0057 01d6 | | Execute Vector,Field_Write 0058 e20f | | Load 0x1,0xf 0059 0092 016e | n| Action Push_String_Extended,0x16e ; "Mpwpascal" 005b e00a | | Load 0x0,0xa 005c 1b11 | | Execute Package,Field_Read,Field_Number 0x11 005d 180e | | Execute Package,Field_Execute,Field_Number 0xe 005e e00a | | Load 0x0,0xa 005f 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0060 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0061 0119 | | Execute Any,Check_In_Formal_Type 0062 4803 |H | Short_Literal 0x3 0063 00da | | Load_Top At_Offset_2 0064 01d6 | | Execute Vector,Field_Write 0065 e00a | | Load 0x0,0xa 0066 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0067 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0068 e00a | | Load 0x0,0xa 0069 1b12 | | Execute Package,Field_Read,Field_Number 0x12 006a 184d | M | Execute Package,Field_Execute,Field_Number 0x4d 006b e00a | | Load 0x0,0xa 006c 1b12 | | Execute Package,Field_Read,Field_Number 0x12 006d 1845 | E | Execute Package,Field_Execute,Field_Number 0x45 006e 0092 016f | o| Action Push_String_Extended,0x16f ; "Language" 0070 e00a | | Load 0x0,0xa 0071 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0072 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0073 e00a | | Load 0x0,0xa 0074 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0075 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0076 011e | | Execute Any,Convert 0077 e20f | | Load 0x1,0xf 0078 e00a | | Load 0x0,0xa 0079 1b12 | | Execute Package,Field_Read,Field_Number 0x12 007a 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a 007b e00a | | Load 0x0,0xa 007c 1b12 | | Execute Package,Field_Read,Field_Number 0x12 007d 181b | | Execute Package,Field_Execute,Field_Number 0x1b 007e e402 | | Load 0x2,0x2 007f e00a | | Load 0x0,0xa 0080 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0081 1845 | E | Execute Package,Field_Execute,Field_Number 0x45 0082 0092 0170 | p| Action Push_String_Extended,0x170 ; "Subprogram" 0084 e00a | | Load 0x0,0xa 0085 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0086 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0087 e00a | | Load 0x0,0xa 0088 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0089 1b15 | | Execute Package,Field_Read,Field_Number 0x15 008a 011e | | Execute Any,Convert 008b e20f | | Load 0x1,0xf 008c 00d8 | | Load_Top At_Offset_0 008d e20f | | Load 0x1,0xf 008e e00a | | Load 0x0,0xa 008f 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0090 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 0091 0092 0171 | q| Action Push_String_Extended,0x171 ; "String" 0093 e00a | | Load 0x0,0xa 0094 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0095 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36 0096 0092 0172 | r| Action Push_String_Extended,0x172 ; "Link_Name" 0098 e00a | | Load 0x0,0xa 0099 1b14 | | Execute Package,Field_Read,Field_Number 0x14 009a 1818 | | Execute Package,Field_Execute,Field_Number 0x18 009b e00a | | Load 0x0,0xa 009c 1b14 | | Execute Package,Field_Read,Field_Number 0x14 009d 1b15 | | Execute Package,Field_Read,Field_Number 0x15 009e 011e | | Execute Any,Convert 009f 4801 |H | Short_Literal 0x1 00a0 4803 |H | Short_Literal 0x3 00a1 e00a | | Load 0x0,0xa 00a2 1b14 | | Execute Package,Field_Read,Field_Number 0x14 00a3 1b20 | | Execute Package,Field_Read,Field_Number 0x20 00a4 035b | [ | Declare_Type Array,Constrained 00a5 0337 | 7 | Declare_Variable Array 00a6 00db | | Load_Top At_Offset_3 00a7 e00a | | Load 0x0,0xa 00a8 1b14 | | Execute Package,Field_Read,Field_Number 0x14 00a9 1b15 | | Execute Package,Field_Read,Field_Number 0x15 00aa 0119 | | Execute Any,Check_In_Formal_Type 00ab 4801 |H | Short_Literal 0x1 00ac 00da | | Load_Top At_Offset_2 00ad 01d6 | | Execute Vector,Field_Write 00ae 00da | | Load_Top At_Offset_2 00af e00a | | Load 0x0,0xa 00b0 1b14 | | Execute Package,Field_Read,Field_Number 0x14 00b1 1b15 | | Execute Package,Field_Read,Field_Number 0x15 00b2 0119 | | Execute Any,Check_In_Formal_Type 00b3 4802 |H | Short_Literal 0x2 00b4 00da | | Load_Top At_Offset_2 00b5 01d6 | | Execute Vector,Field_Write 00b6 00d9 | | Load_Top At_Offset_1 00b7 e00a | | Load 0x0,0xa 00b8 1b14 | | Execute Package,Field_Read,Field_Number 0x14 00b9 1b15 | | Execute Package,Field_Read,Field_Number 0x15 00ba 0119 | | Execute Any,Check_In_Formal_Type 00bb 4803 |H | Short_Literal 0x3 00bc 00da | | Load_Top At_Offset_2 00bd 01d6 | | Execute Vector,Field_Write 00be e20f | | Load 0x1,0xf 00bf 4803 |H | Short_Literal 0x3 00c0 00da | | Load_Top At_Offset_2 00c1 e00a | | Load 0x0,0xa 00c2 1b14 | | Execute Package,Field_Read,Field_Number 0x14 00c3 1b12 | | Execute Package,Field_Read,Field_Number 0x12 00c4 0337 | 7 | Declare_Variable Array 00c5 4801 |H | Short_Literal 0x1 00c6 4803 |H | Short_Literal 0x3 00c7 00da | | Load_Top At_Offset_2 00c8 01d6 | | Execute Vector,Field_Write 00c9 4802 |H | Short_Literal 0x2 00ca 4800 |H | Short_Literal 0x0 00cb 4801 |H | Short_Literal 0x1 00cc 00d9 | | Load_Top At_Offset_1 00cd e40a | | Load 0x2,0xa 00ce 01d6 | | Execute Vector,Field_Write 00cf 3ffb |? | Loop_Increasing 0xcb 00d0 4801 |H | Short_Literal 0x1 00d1 4804 |H | Short_Literal 0x4 00d2 00da | | Load_Top At_Offset_2 00d3 01d6 | | Execute Vector,Field_Write 00d4 e00a | | Load 0x0,0xa 00d5 1b14 | | Execute Package,Field_Read,Field_Number 0x14 00d6 1b12 | | Execute Package,Field_Read,Field_Number 0x12 00d7 01c3 | | Execute Vector,Check_In_Type 00d8 0092 0173 | s| Action Push_String_Extended,0x173 ; "Interface" 00da e00a | | Load 0x0,0xa 00db 1b14 | | Execute Package,Field_Read,Field_Number 0x14 00dc 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 00dd e00a | | Load 0x0,0xa 00de 1b14 | | Execute Package,Field_Read,Field_Number 0x14 00df 1b22 | " | Execute Package,Field_Read,Field_Number 0x22 00e0 011e | | Execute Any,Convert 00e1 4801 |H | Short_Literal 0x1 00e2 4801 |H | Short_Literal 0x1 00e3 e00a | | Load 0x0,0xa 00e4 1b14 | | Execute Package,Field_Read,Field_Number 0x14 00e5 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29 00e6 035b | [ | Declare_Type Array,Constrained 00e7 0337 | 7 | Declare_Variable Array 00e8 00d9 | | Load_Top At_Offset_1 00e9 e00a | | Load 0x0,0xa 00ea 1b14 | | Execute Package,Field_Read,Field_Number 0x14 00eb 1b22 | " | Execute Package,Field_Read,Field_Number 0x22 00ec 0119 | | Execute Any,Check_In_Formal_Type 00ed 4801 |H | Short_Literal 0x1 00ee 00da | | Load_Top At_Offset_2 00ef 01d6 | | Execute Vector,Field_Write 00f0 e00a | | Load 0x0,0xa 00f1 1b14 | | Execute Package,Field_Read,Field_Number 0x14 00f2 1b0f | | Execute Package,Field_Read,Field_Number 0xf 00f3 0337 | 7 | Declare_Variable Array 00f4 00d8 | | Load_Top At_Offset_0 00f5 0335 | 5 | Declare_Variable Array,Duplicate 00f6 00cd | | Action Spare6_Action 00f7 4801 |H | Short_Literal 0x1 00f8 4800 |H | Short_Literal 0x0 00f9 00da | | Load_Top At_Offset_2 00fa 01d6 | | Execute Vector,Field_Write 00fb 4801 |H | Short_Literal 0x1 00fc 4801 |H | Short_Literal 0x1 00fd 00da | | Load_Top At_Offset_2 00fe 01d6 | | Execute Vector,Field_Write 00ff 4801 |H | Short_Literal 0x1 0100 4802 |H | Short_Literal 0x2 0101 00da | | Load_Top At_Offset_2 0102 01d6 | | Execute Vector,Field_Write 0103 4801 |H | Short_Literal 0x1 0104 4803 |H | Short_Literal 0x3 0105 00da | | Load_Top At_Offset_2 0106 01d6 | | Execute Vector,Field_Write 0107 4801 |H | Short_Literal 0x1 0108 4804 |H | Short_Literal 0x4 0109 00da | | Load_Top At_Offset_2 010a 01d6 | | Execute Vector,Field_Write 010b 4801 |H | Short_Literal 0x1 010c 4805 |H | Short_Literal 0x5 010d 00da | | Load_Top At_Offset_2 010e 01d6 | | Execute Vector,Field_Write 010f 4801 |H | Short_Literal 0x1 0110 4806 |H | Short_Literal 0x6 0111 00da | | Load_Top At_Offset_2 0112 01d6 | | Execute Vector,Field_Write 0113 4801 |H | Short_Literal 0x1 0114 4807 |H | Short_Literal 0x7 0115 00da | | Load_Top At_Offset_2 0116 01d6 | | Execute Vector,Field_Write 0117 4801 |H | Short_Literal 0x1 0118 4808 |H | Short_Literal 0x8 0119 00da | | Load_Top At_Offset_2 011a 01d6 | | Execute Vector,Field_Write 011b 4801 |H | Short_Literal 0x1 011c 4809 |H | Short_Literal 0x9 011d 00da | | Load_Top At_Offset_2 011e 01d6 | | Execute Vector,Field_Write 011f 4801 |H | Short_Literal 0x1 0120 480a |H | Short_Literal 0xa 0121 00da | | Load_Top At_Offset_2 0122 01d6 | | Execute Vector,Field_Write 0123 4801 |H | Short_Literal 0x1 0124 480b |H | Short_Literal 0xb 0125 00da | | Load_Top At_Offset_2 0126 01d6 | | Execute Vector,Field_Write 0127 4801 |H | Short_Literal 0x1 0128 480c |H | Short_Literal 0xc 0129 00da | | Load_Top At_Offset_2 012a 01d6 | | Execute Vector,Field_Write 012b 4801 |H | Short_Literal 0x1 012c 480d |H | Short_Literal 0xd 012d 00da | | Load_Top At_Offset_2 012e 01d6 | | Execute Vector,Field_Write 012f 00d9 | | Load_Top At_Offset_1 0130 01d4 | | Execute Vector,Structure_Write 0131 e00a | | Load 0x0,0xa 0132 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0133 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b 0134 02c7 | | Declare_Variable Any 0135 e20f | | Load 0x1,0xf 0136 4801 |H | Short_Literal 0x1 0137 4803 |H | Short_Literal 0x3 0138 e00a | | Load 0x0,0xa 0139 1b11 | | Execute Package,Field_Read,Field_Number 0x11 013a 1b10 | | Execute Package,Field_Read,Field_Number 0x10 013b 035b | [ | Declare_Type Array,Constrained 013c 0337 | 7 | Declare_Variable Array 013d e20f | | Load 0x1,0xf 013e 0092 016c | l| Action Push_String_Extended,0x16c ; "Assembly" 0140 e00a | | Load 0x0,0xa 0141 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0142 180e | | Execute Package,Field_Execute,Field_Number 0xe 0143 e00a | | Load 0x0,0xa 0144 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0145 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0146 0119 | | Execute Any,Check_In_Formal_Type 0147 4801 |H | Short_Literal 0x1 0148 00da | | Load_Top At_Offset_2 0149 01d6 | | Execute Vector,Field_Write 014a e20f | | Load 0x1,0xf 014b 0092 016d | m| Action Push_String_Extended,0x16d ; "C" 014d e00a | | Load 0x0,0xa 014e 1b11 | | Execute Package,Field_Read,Field_Number 0x11 014f 180e | | Execute Package,Field_Execute,Field_Number 0xe 0150 e00a | | Load 0x0,0xa 0151 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0152 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0153 0119 | | Execute Any,Check_In_Formal_Type 0154 4802 |H | Short_Literal 0x2 0155 00da | | Load_Top At_Offset_2 0156 01d6 | | Execute Vector,Field_Write 0157 e20f | | Load 0x1,0xf 0158 0092 016e | n| Action Push_String_Extended,0x16e ; "Mpwpascal" 015a e00a | | Load 0x0,0xa 015b 1b11 | | Execute Package,Field_Read,Field_Number 0x11 015c 180e | | Execute Package,Field_Execute,Field_Number 0xe 015d e00a | | Load 0x0,0xa 015e 1b11 | | Execute Package,Field_Read,Field_Number 0x11 015f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0160 0119 | | Execute Any,Check_In_Formal_Type 0161 4803 |H | Short_Literal 0x3 0162 00da | | Load_Top At_Offset_2 0163 01d6 | | Execute Vector,Field_Write 0164 e408 | | Load 0x2,0x8 0165 e409 | | Load 0x2,0x9 0166 e00a | | Load 0x0,0xa 0167 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0168 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 0169 a40a | | Store_Unchecked 0x2,0xa 016a BODY_0008: 016a 00d8 | | Load_Top At_Offset_0 016b 00ca | | Action Exit_Nullary_Function 016c ; -------------------------------------------------------------------------------------- 016c ; STRING TABLE 016c ; -------------------------------------------------------------------------------------- 016c 0012 | | .STRTAB 0x0012->0x0175 ; "Assembly" 016d 0018 | | .STRTAB 0x0018->0x0179 ; "C" 016e 0017 | | .STRTAB 0x0017->0x0179 ; "Mpwpascal" 016f 001e | | .STRTAB 0x001e->0x017e ; "Language" 0170 0024 | $ | .STRTAB 0x0024->0x0182 ; "Subprogram" 0171 002c | , | .STRTAB 0x002c->0x0187 ; "String" 0172 0030 | 0 | .STRTAB 0x0030->0x018a ; "Link_Name" 0173 0037 | 7 | .STRTAB 0x0037->0x018e ; "Interface" 0174 003e | > | .STREND 0x003e->0x0193 0175 4173 7365 |Asse| .STRTAB_STRINGS 0193 0000 0000 | | .BLANK 0000[0x5] 0198 ; -------------------------------------------------------------------------------------- 0198 ; Debug Table 0198 ; -------------------------------------------------------------------------------------- 0198 0004 0004 | | .DEBUG4 0x0004,0x0004,0x6beb,0x0000,0x0001,0x0001 019e 000b 01a2 | | .DBG4T 0x000b,0x01a2,0x0002,0x0000 01a2 ; -------------------------------------------------------------------------------------- 01a2 ; Debug chain 01a2 ; -------------------------------------------------------------------------------------- 01a2 0009 0001 | | .DBGLEN 0x0009,0x0001 01a4 000b 0036 | 6| .DBGLNO 0x000b,0x0036,0x0077,0x008b,0x009f,0x00be,0x00e1,0x00f0,0x0131,0x016a 01ae 0000 0000 | | .BLANK 0000[0x52]