|
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, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0bf8df
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦5a81ac88f⟧ »Space Info Vol 1« └─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0168 | h | .CONST 0x0168 ; 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 8000 | | .CONST 0x8000 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0010 | | .CONST 0x0010 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0001 | | .CONST 0x0001 ; Number of locals 000b INIT_0008: 000b 029a 001b | | Declare_Subprogram INIT_0018,For_Outer_Call,Visible,Unelaborated 000d 00bf | | Action Accept_Activation 000e 1d0d | | Execute_Immediate Reference_Lex_1,0xd 000f 00c7 | | Action Elaborate_Subprogram 0010 BODY_0008: 0010 00bc | | Action Signal_Activated 0011 00bb | | Action Signal_Completion 0012 0000 0000 | | .BLANK 0000[0x6] 0018 ; -------------------------------------------------------------------------------------- 0018 ; SUBPROGRAM 0018 ; -------------------------------------------------------------------------------------- 0018 0041 | A | .CONST 0x0041 ; Address of begin 0019 00da | | .CONST 0x00da ; Address of exception handler 001a 000b | | .CONST 0x000b ; Number of locals 001b INIT_0018: 001b e002 | | Load 0x0,0x2 001c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 001d 02c7 | | Declare_Variable Any 001e e002 | | Load 0x0,0x2 001f 180e | | Execute Package,Field_Execute,Field_Number 0xe 0020 a402 | | Store_Unchecked 0x2,0x2 0021 e003 | | Load 0x0,0x3 0022 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0023 02c7 | | Declare_Variable Any 0024 00d8 | | Load_Top At_Offset_0 0025 1c00 | | Execute_Immediate Run_Utility,0x0 0026 e004 | | Load 0x0,0x4 0027 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0028 1b18 | | Execute Package,Field_Read,Field_Number 0x18 0029 02c7 | | Declare_Variable Any 002a 00d8 | | Load_Top At_Offset_0 002b 1c00 | | Execute_Immediate Run_Utility,0x0 002c e004 | | Load 0x0,0x4 002d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 002e e004 | | Load 0x0,0x4 002f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0030 e004 | | Load 0x0,0x4 0031 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0032 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0033 e004 | | Load 0x0,0x4 0034 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0035 02ff | | Declare_Variable Variant_Record 0036 00d8 | | Load_Top At_Offset_0 0037 1c00 | | Execute_Immediate Run_Utility,0x0 0038 e004 | | Load 0x0,0x4 0039 1b0f | | Execute Package,Field_Read,Field_Number 0xf 003a 02c7 | | Declare_Variable Any 003b 00d8 | | Load_Top At_Offset_0 003c 1c00 | | Execute_Immediate Run_Utility,0x0 003d 029f 00fb | | Declare_Subprogram INIT_00f8,For_Call 003f 029f 010b | | Declare_Subprogram INIT_0108,For_Call 0041 BODY_0018: 0041 e5fd | | Load 0x2,-0x3 0042 e002 | | Load 0x0,0x2 0043 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0044 e002 | | Load 0x0,0x2 0045 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0046 e403 | | Load 0x2,0x3 0047 00ea | | Load_Encached Null_String_Cache 0048 e5fe | | Load 0x2,-0x2 0049 4801 |H | Short_Literal 0x1 004a e003 | | Load 0x0,0x3 004b 1814 | | Execute Package,Field_Execute,Field_Number 0x14 004c c403 | | Store 0x2,0x3 004d e004 | | Load 0x0,0x4 004e 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 004f 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0050 e404 | | Load 0x2,0x4 0051 60a2 |` | Indirect_Literal Discrete,0xf4,{0x00000000, 0x00004000} 0052 e005 | | Load 0x0,0x5 0053 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0054 e006 | | Load 0x0,0x6 0055 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0056 e007 | | Load 0x0,0x7 0057 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0058 4801 |H | Short_Literal 0x1 0059 4800 |H | Short_Literal 0x0 005a e006 | | Load 0x0,0x6 005b 1811 | | Execute Package,Field_Execute,Field_Number 0x11 005c e004 | | Load 0x0,0x4 005d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 005e 1816 | | Execute Package,Field_Execute,Field_Number 0x16 005f e5ff | | Load 0x2,-0x1 0060 e004 | | Load 0x0,0x4 0061 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0062 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0063 c404 | | Store 0x2,0x4 0064 c407 | | Store 0x2,0x7 0065 e407 | | Load 0x2,0x7 0066 6811 |h | Jump_Zero 0x78 0067 e002 | | Load 0x0,0x2 0068 180e | | Execute Package,Field_Execute,Field_Number 0xe 0069 4807 |H | Short_Literal 0x7 006a e407 | | Load 0x2,0x7 006b e004 | | Load 0x0,0x4 006c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 006d 1b0f | | Execute Package,Field_Read,Field_Number 0xf 006e 011c | | Execute Any,Convert_Unchecked 006f 1c01 | | Execute_Immediate Run_Utility,0x1 0070 0092 012a | *| Action Push_String_Extended,0x12a ; " returned resolving " 0072 01cc | | Execute Vector,Catenate 0073 e5ff | | Load 0x2,-0x1 0074 01cc | | Execute Vector,Catenate 0075 e008 | | Load 0x0,0x8 0076 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0077 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0078 00cf | | Action Mark_Auxiliary 0079 7852 |xR | Jump 0xcc 007a e004 | | Load 0x0,0x4 007b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 007c e408 | | Load 0x2,0x8 007d 6076 |`v | Indirect_Literal Discrete,0xf4,{0x00000000, 0x00004000} 007e e005 | | Load 0x0,0x5 007f 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0080 e404 | | Load 0x2,0x4 0081 e004 | | Load 0x0,0x4 0082 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0083 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 0084 00d1 | | Pop_Control Pop_Count_1 0085 c405 | | Store 0x2,0x5 0086 e004 | | Load 0x0,0x4 0087 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0088 e409 | | Load 0x2,0x9 0089 0120 | | Execute Any,Is_Value 008a 6803 |h | Jump_Zero 0x8e 008b e004 | | Load 0x0,0x4 008c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 008d 7801 |x | Jump 0x8f 008e e409 | | Load 0x2,0x9 008f e404 | | Load 0x2,0x4 0090 e004 | | Load 0x0,0x4 0091 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0092 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0093 c409 | | Store 0x2,0x9 0094 c406 | | Store 0x2,0x6 0095 e405 | | Load 0x2,0x5 0096 680e |h | Jump_Zero 0xa5 0097 e002 | | Load 0x0,0x2 0098 180e | | Execute Package,Field_Execute,Field_Number 0xe 0099 4807 |H | Short_Literal 0x7 009a e405 | | Load 0x2,0x5 009b e004 | | Load 0x0,0x4 009c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 009d 011c | | Execute Any,Convert_Unchecked 009e 1c01 | | Execute_Immediate Run_Utility,0x1 009f 0092 012b | +| Action Push_String_Extended,0x12b ; " returned getting default version for object" 00a1 01cc | | Execute Vector,Catenate 00a2 e008 | | Load 0x0,0x8 00a3 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00a4 7821 |x! | Jump 0xc6 00a5 e406 | | Load 0x2,0x6 00a6 680e |h | Jump_Zero 0xb5 00a7 e002 | | Load 0x0,0x2 00a8 180e | | Execute Package,Field_Execute,Field_Number 0xe 00a9 4807 |H | Short_Literal 0x7 00aa e406 | | Load 0x2,0x6 00ab e004 | | Load 0x0,0x4 00ac 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00ad 011c | | Execute Any,Convert_Unchecked 00ae 1c01 | | Execute_Immediate Run_Utility,0x1 00af 0092 012c | ,| Action Push_String_Extended,0x12c ; " returned getting Directory object for object" 00b1 01cc | | Execute Vector,Catenate 00b2 e008 | | Load 0x0,0x8 00b3 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00b4 7811 |x | Jump 0xc6 00b5 e404 | | Load 0x2,0x4 00b6 840b | | Call 0x2,0xb 00b7 700e |p | Jump_Nonzero 0xc6 00b8 00db | | Load_Top At_Offset_3 00b9 e004 | | Load 0x0,0x4 00ba 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 00bb 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 00bc 0092 012d | -| Action Push_String_Extended,0x12d ; " => " 00be 01cc | | Execute Vector,Catenate 00bf e408 | | Load 0x2,0x8 00c0 e009 | | Load 0x0,0x9 00c1 1812 | | Execute Package,Field_Execute,Field_Number 0x12 00c2 01cc | | Execute Vector,Catenate 00c3 e403 | | Load 0x2,0x3 00c4 e003 | | Load 0x0,0x3 00c5 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 00c6 e404 | | Load 0x2,0x4 00c7 e004 | | Load 0x0,0x4 00c8 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 00c9 181d | | Execute Package,Field_Execute,Field_Number 0x1d 00ca c404 | | Store 0x2,0x4 00cb 00c9 | | Action Pop_Auxiliary_Loop 00cc e404 | | Load 0x2,0x4 00cd e004 | | Load 0x0,0x4 00ce 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 00cf 181e | | Execute Package,Field_Execute,Field_Number 0x1e 00d0 6fa9 |o | Jump_Zero 0x7a 00d1 00ce | | Action Pop_Auxiliary 00d2 e403 | | Load 0x2,0x3 00d3 e003 | | Load 0x0,0x3 00d4 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00d5 c403 | | Store 0x2,0x3 00d6 e402 | | Load 0x2,0x2 00d7 e002 | | Load 0x0,0x2 00d8 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00d9 4504 |E | Exit_Suprogram New_Top_Offset 0x4 00da TRAP_0018: 00da 0007 | | Action Break_Optional 00db 00ea | | Load_Encached Null_String_Cache 00dc 840a | | Call 0x2,0xa 00dd e403 | | Load 0x2,0x3 00de e003 | | Load 0x0,0x3 00df 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 00e0 6804 |h | Jump_Zero 0xe5 00e1 e403 | | Load 0x2,0x3 00e2 e003 | | Load 0x0,0x3 00e3 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00e4 c403 | | Store 0x2,0x3 00e5 e002 | | Load 0x0,0x2 00e6 180e | | Execute Package,Field_Execute,Field_Number 0xe 00e7 e002 | | Load 0x0,0x2 00e8 1819 | | Execute Package,Field_Execute,Field_Number 0x19 00e9 6805 |h | Jump_Zero 0xef 00ea e402 | | Load 0x2,0x2 00eb e002 | | Load 0x0,0x2 00ec 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00ed 00d8 | | Load_Top At_Offset_0 00ee 0101 | | Execute Exception,Reraise 00ef e402 | | Load 0x2,0x2 00f0 e002 | | Load 0x0,0x2 00f1 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00f2 4504 |E | Exit_Suprogram New_Top_Offset 0x4 00f3 0000 | | .XXX[0x1] 00f4 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 00f8 ; -------------------------------------------------------------------------------------- 00f8 ; SUBPROGRAM 00f8 ; -------------------------------------------------------------------------------------- 00f8 00fb | | .CONST 0x00fb ; Address of begin 00f9 0004 | | .CONST 0x0004 ; Address of exception handler 00fa 0001 | | .CONST 0x0001 ; Number of locals 00fb BODY_00f8: 00fb INIT_00f8: 00fb e002 | | Load 0x0,0x2 00fc 180e | | Execute Package,Field_Execute,Field_Number 0xe 00fd 4808 |H | Short_Literal 0x8 00fe 4801 |H | Short_Literal 0x1 00ff 4801 |H | Short_Literal 0x1 0100 e00a | | Load 0x0,0xa 0101 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0102 e7ff | | Load 0x3,-0x1 0103 01cc | | Execute Vector,Catenate 0104 e008 | | Load 0x0,0x8 0105 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0106 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0107 0000 | | .XXX[0x1] 0108 ; -------------------------------------------------------------------------------------- 0108 ; SUBPROGRAM 0108 ; -------------------------------------------------------------------------------------- 0108 0112 | | .CONST 0x0112 ; Address of begin 0109 0004 | | .CONST 0x0004 ; Address of exception handler 010a 0003 | | .CONST 0x0003 ; Number of locals 010b INIT_0108: 010b e004 | | Load 0x0,0x4 010c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 010d 02c7 | | Declare_Variable Any 010e 00d8 | | Load_Top At_Offset_0 010f 1c00 | | Execute_Immediate Run_Utility,0x0 0110 e004 | | Load 0x0,0x4 0111 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0112 BODY_0108: 0112 e004 | | Load 0x0,0x4 0113 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0114 00da | | Load_Top At_Offset_2 0115 0120 | | Execute Any,Is_Value 0116 6803 |h | Jump_Zero 0x11a 0117 e004 | | Load 0x0,0x4 0118 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0119 7801 |x | Jump 0x11b 011a 00da | | Load_Top At_Offset_2 011b e7ff | | Load 0x3,-0x1 011c e004 | | Load 0x0,0x4 011d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 011e 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 011f c602 | | Store 0x3,0x2 0120 0059 | Y | Store_Top Discrete,At_Offset_1 0121 00d8 | | Load_Top At_Offset_0 0122 7005 |p | Jump_Nonzero 0x128 0123 00d9 | | Load_Top At_Offset_1 0124 e004 | | Load 0x0,0x4 0125 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d 0126 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0127 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0128 4800 |H | Short_Literal 0x0 0129 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 012a ; -------------------------------------------------------------------------------------- 012a ; STRING TABLE 012a ; -------------------------------------------------------------------------------------- 012a 000a | | .STRTAB 0x000a->0x012f ; " returned resolving " 012b 001c | | .STRTAB 0x001c->0x0139 ; " returned getting default version for object" 012c 0046 | F | .STRTAB 0x0046->0x014f ; " returned getting Directory object for object" 012d 0071 | q | .STRTAB 0x0071->0x0165 ; " => " 012e 0073 | s | .STREND 0x0073->0x0167 012f 2072 6574 | ret| .STRTAB_STRINGS 0168 ; -------------------------------------------------------------------------------------- 0168 ; Debug Table 0168 ; -------------------------------------------------------------------------------------- 0168 0004 0002 | | .DEBUG4 0x0004,0x0002,0x0b9e,0x0000,0x0001,0x0000 016e 80c4 cc81 | | .XXX[0x92] 0170 e0a1 b995 | | 0172 85c8 a54c | L| 0174 80c4 d081 | | 0176 e0a1 85b9 | | 0178 90a5 4c80 | L | 017a c4cc 81e0 | | 017c a185 d0a5 | | 017e 4c80 c4cc |L | 0180 81e0 28a1 | ( | 0182 c1bd b195 | | 0184 ccb0 a54c | L| 0186 80c4 cc81 | | 0188 e0a1 c985 | | 018a d1a1 95c8 | | 018c a54c 80c4 | L | 018e cc81 e0a1 | | 0190 d1a1 85b8 | | 0192 a54c 80c4 | L | 0194 cc81 e0a1 | | 0196 91a5 98a5 | | 0198 4c80 b4c4 |L | 019a 81e0 a199 | | 019c 95c9 95b9 | | 019e d0a5 4c80 | L | 01a0 28cc c8dc |( | 01a2 80c8 dcc8 | | 01a4 d081 6164 | ad| 01a6 80d8 c0c0 | | 01a8 80c8 8148 | H| 01aa 2961 4080 |)a@ | 01ac bd18 d4dc | | 01ae 80bd 0d34 | 4| 01b0 b551 a5b5 | Q | 01b2 95cc b549 | I| 01b4 bdb5 85b8 | | 01b6 80c8 d0b8 | | 01b8 e4c0 dc80 | | 01ba c4c4 8111 | | 01bc 1881 4940 | I@| 01be 28cc e4e0 |( | 01c0 80c8 dcd4 | | 01c2 d481 6164 | ad| 01c4 8118 d4dc | | 01c6 a0d0 a54c | L| 01c8 80c4 c881 | | 01ca e481 18d4 | | 01cc d4a1 25b9 | % | 01ce 8da5 9195 | | 01d0 b9d1 85b1 | | 01d2 b1e4 b0a5 | | 01d4 4c80 c4c8 |L | 01d6 81e0 a1b9 | | 01d8 bdd1 94a5 | | 01da 4c80 c4cc |L | 01dc 81e0 a1d1 | | 01de a185 d0a5 | | 01e0 4c28 c4c8 |L( | 01e2 81e0 a1d1 | | 01e4 a194 a54c | L| 01e6 80c4 c881 | | 01e8 e0a1 e995 | | 01ea c9bc a54c | L| 01ec 80c4 c881 | | 01ee e0a1 c995 | | 01f0 cdd5 b1d0 | | 01f2 a54c 80c4 | L | 01f4 c881 e0a1 | | 01f6 c1c9 bd91 | | 01f8 d58d 9590 | | 01fa a54c 80c4 | L | 01fc c881 e0a1 | | 01fe 89e4 a54c | L|