|
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_0d2ce3
└─⟦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 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 e001 | | Load 0x0,0x1 001c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 001d 02c7 | | Declare_Variable Any 001e e001 | | Load 0x0,0x1 001f 180e | | Execute Package,Field_Execute,Field_Number 0xe 0020 a402 | | Store_Unchecked 0x2,0x2 0021 e002 | | Load 0x0,0x2 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 e003 | | Load 0x0,0x3 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 e003 | | Load 0x0,0x3 002d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 002e e003 | | Load 0x0,0x3 002f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0030 e003 | | Load 0x0,0x3 0031 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0032 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0033 e003 | | Load 0x0,0x3 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 e003 | | Load 0x0,0x3 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 e001 | | Load 0x0,0x1 0043 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0044 e001 | | Load 0x0,0x1 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 e002 | | Load 0x0,0x2 004b 1814 | | Execute Package,Field_Execute,Field_Number 0x14 004c c403 | | Store 0x2,0x3 004d e003 | | Load 0x0,0x3 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 e004 | | Load 0x0,0x4 0053 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0054 e005 | | Load 0x0,0x5 0055 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0056 e006 | | Load 0x0,0x6 0057 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0058 4801 |H | Short_Literal 0x1 0059 4800 |H | Short_Literal 0x0 005a e005 | | Load 0x0,0x5 005b 1811 | | Execute Package,Field_Execute,Field_Number 0x11 005c e003 | | Load 0x0,0x3 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 e003 | | Load 0x0,0x3 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 e001 | | Load 0x0,0x1 0068 180e | | Execute Package,Field_Execute,Field_Number 0xe 0069 4807 |H | Short_Literal 0x7 006a e407 | | Load 0x2,0x7 006b e003 | | Load 0x0,0x3 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 e007 | | Load 0x0,0x7 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 e003 | | Load 0x0,0x3 007b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 007c e408 | | Load 0x2,0x8 007d 6076 |`v | Indirect_Literal Discrete,0xf4,{0x00000000, 0x00004000} 007e e004 | | Load 0x0,0x4 007f 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0080 e404 | | Load 0x2,0x4 0081 e003 | | Load 0x0,0x3 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 e003 | | Load 0x0,0x3 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 e003 | | Load 0x0,0x3 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 e003 | | Load 0x0,0x3 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 e001 | | Load 0x0,0x1 0098 180e | | Execute Package,Field_Execute,Field_Number 0xe 0099 4807 |H | Short_Literal 0x7 009a e405 | | Load 0x2,0x5 009b e003 | | Load 0x0,0x3 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 e007 | | Load 0x0,0x7 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 e001 | | Load 0x0,0x1 00a8 180e | | Execute Package,Field_Execute,Field_Number 0xe 00a9 4807 |H | Short_Literal 0x7 00aa e406 | | Load 0x2,0x6 00ab e003 | | Load 0x0,0x3 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 e007 | | Load 0x0,0x7 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 e003 | | Load 0x0,0x3 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 e008 | | Load 0x0,0x8 00c1 1812 | | Execute Package,Field_Execute,Field_Number 0x12 00c2 01cc | | Execute Vector,Catenate 00c3 e403 | | Load 0x2,0x3 00c4 e002 | | Load 0x0,0x2 00c5 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 00c6 e404 | | Load 0x2,0x4 00c7 e003 | | Load 0x0,0x3 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 e003 | | Load 0x0,0x3 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 e002 | | Load 0x0,0x2 00d4 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00d5 c403 | | Store 0x2,0x3 00d6 e402 | | Load 0x2,0x2 00d7 e001 | | Load 0x0,0x1 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 e002 | | Load 0x0,0x2 00df 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 00e0 6804 |h | Jump_Zero 0xe5 00e1 e403 | | Load 0x2,0x3 00e2 e002 | | Load 0x0,0x2 00e3 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00e4 c403 | | Store 0x2,0x3 00e5 e001 | | Load 0x0,0x1 00e6 180e | | Execute Package,Field_Execute,Field_Number 0xe 00e7 e001 | | Load 0x0,0x1 00e8 1819 | | Execute Package,Field_Execute,Field_Number 0x19 00e9 6805 |h | Jump_Zero 0xef 00ea e402 | | Load 0x2,0x2 00eb e001 | | Load 0x0,0x1 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 e001 | | Load 0x0,0x1 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 e001 | | Load 0x0,0x1 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 e009 | | Load 0x0,0x9 0101 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0102 e7ff | | Load 0x3,-0x1 0103 01cc | | Execute Vector,Catenate 0104 e007 | | Load 0x0,0x7 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 e003 | | Load 0x0,0x3 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 e003 | | Load 0x0,0x3 0111 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0112 BODY_0108: 0112 e003 | | Load 0x0,0x3 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 e003 | | Load 0x0,0x3 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 e003 | | Load 0x0,0x3 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 e003 | | Load 0x0,0x3 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 0000 | | .DEBUG4 0x0004,0x0000,0x78bb,0x0000,0x0001,0x0000 016e 0000 0000 | | .BLANK 0000[0xb] 0179 007a 9808 | z | .XXX[0x17] 017b 0000 0001 | | 017d f800 0000 | | 017f 0000 0706 | | 0181 b000 06ae | | 0183 5000 14c6 |P | 0185 0000 06a0 | | 0187 4800 03f8 |H | 0189 4800 03a9 |H | 018b 7800 0000 |x | 018d 0000 03a9 | | 018f 7800 |x | 0190 0000 0000 | | .BLANK 0000[0x10] 01a0 0077 a000 | w | .XXX[0x4] 01a2 0f56 a000 | V | 01a4 0000 0000 | | .BLANK 0000[0x5] 01a9 4000 |@ | .XXX[0x1] 01aa 0000 0000 | | .BLANK 0000[0x4] 01ae 0001 0000 | | .XXX[0x12] 01b0 0012 0000 | | 01b2 0000 0000 | | 01b4 0004 0000 | | 01b6 0000 0000 | | 01b8 0001 6000 | ` | 01ba 0000 1200 | | 01bc 0000 0000 | | 01be 00f7 ea00 | | 01c0 0000 0000 | | .BLANK 0000[0xc] 01cc 000f a6a0 | | .XXX[0x2] 01ce 0000 0000 | | .BLANK 0000[0x5] 01d3 0020 0000 | | .XXX[0x4] 01d5 201f f800 | | 01d7 0000 0000 | | .BLANK 0000[0x10] 01e7 0600 0000 | | .XXX[0x19] 01e9 0404 2a89 | * | 01eb e9e9 8a65 | e| 01ed c869 25c8 | i% | 01ef 69e8 88a7 |i | 01f1 2be6 2be6 |+ + | 01f3 05ca 0a49 | I| 01f5 e8ea 4829 | H)| 01f7 a4ea 6a08 | j | 01f9 a860 0000 | ` | 01fb 0020 0000 | | 01fd 201f f800 | | 01ff 0000 | |