|
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_5e40f2
└─⟦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 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 000d | | .DEBUG4 0x0004,0x000d,0x96e7,0x0000,0x0001,0x0000 016e 8080 8080 | | .BLANK 8080[0x9] 0177 812d a5b9 | - | .XXX[0x15] 0179 9080 8080 | | 017b e881 31a5 | 1 | 017d b9ad 7d2d | }-| 017f a5b9 9080 | | 0181 8080 e8f4 | | 0183 8131 a5b9 | 1 | 0185 ad7d 51bd | }Q | 0187 bdb1 ccb9 | | 0189 05b9 e4ec | | 018b 2880 |( | 018c 8080 8080 | | .BLANK 8080[0xb] 0197 8081 5dbd | ] | .XXX[0x13] 0199 c9b1 9080 | | 019b 80e8 815d | ]| 019d bdc9 b191 | | 019f 7d39 85b5 |}9 | 01a1 9480 80e8 | | 01a3 f481 51a1 | Q | 01a5 a5cd 7d5d | }]| 01a7 bdc9 b190 | | 01a9 a428 | ( | 01aa 8080 8080 | | .BLANK 8080[0xb] 01b5 8081 c995 | | .XXX[0x4b] 01b7 d1d5 c9b8 | | 01b9 8111 95c1 | | 01bb 95b9 9195 | | 01bd b9d1 7d25 | }%| 01bf d195 c985 | | 01c1 d1bd c8ec | | 01c3 2828 8080 |(( | 01c5 8081 c1c9 | | 01c7 bd8d 9591 | | 01c9 d5c9 9481 | | 01cb 3995 e1d0 |9 | 01cd 8080 a125 | %| 01cf d195 c880 | | 01d1 e881 a5b8 | | 01d3 81bd d5d0 | | 01d5 8111 95c1 | | 01d7 95b9 9195 | | 01d9 b9d1 7d25 | }%| 01db d195 c985 | | 01dd d1bd c8a4 | | 01df ec28 8080 | ( | 01e1 8081 99d5 | | 01e3 b98d d1a5 | | 01e5 bdb8 8081 | | 01e7 5985 b1d5 |Y | 01e9 9480 a125 | %| 01eb d195 c880 | | 01ed e881 1195 | | 01ef c195 b991 | | 01f1 95b9 d17d | }| 01f3 25d1 95c9 |% | 01f5 85d1 bdc8 | | 01f7 a481 c995 | | 01f9 d1d5 c9b8 | | 01fb 8111 a585 | | 01fd b984 b951 | Q| 01ff c995 | |