|
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 0158 | X | .CONST 0x0158 ; 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 002b | + | .CONST 0x002b ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0009 | | .CONST 0x0009 ; Number of locals 000b INIT_0008: 000b e010 | | Load 0x0,0x10 000c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 000d 02c7 | | Declare_Variable Any 000e 00d8 | | Load_Top At_Offset_0 000f 1c00 | | Execute_Immediate Run_Utility,0x0 0010 e010 | | Load 0x0,0x10 0011 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0012 02c7 | | Declare_Variable Any 0013 00d8 | | Load_Top At_Offset_0 0014 1c00 | | Execute_Immediate Run_Utility,0x0 0015 e010 | | Load 0x0,0x10 0016 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0017 02c7 | | Declare_Variable Any 0018 00d8 | | Load_Top At_Offset_0 0019 1c00 | | Execute_Immediate Run_Utility,0x0 001a e011 | | Load 0x0,0x11 001b e213 | | Load 0x1,0x13 001c 0098 | | Execute Package,Field_Read_Dynamic 001d 1b12 | | Execute Package,Field_Read,Field_Number 0x12 001e e011 | | Load 0x0,0x11 001f e213 | | Load 0x1,0x13 0020 0098 | | Execute Package,Field_Read_Dynamic 0021 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 0022 0322 | " | Declare_Variable Record 0023 00d8 | | Load_Top At_Offset_0 0024 1c00 | | Execute_Immediate Run_Utility,0x0 0025 029f 006b | k| Declare_Subprogram INIT_0068,For_Call 0027 029f 0093 | | Declare_Subprogram INIT_0090,For_Call 0029 029f 00bb | | Declare_Subprogram INIT_00b8,For_Call 002b BODY_0008: 002b e402 | | Load 0x2,0x2 002c 00ea | | Load_Encached Null_String_Cache 002d e5fe | | Load 0x2,-0x2 002e 4801 |H | Short_Literal 0x1 002f e010 | | Load 0x0,0x10 0030 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0031 c402 | | Store 0x2,0x2 0032 e403 | | Load 0x2,0x3 0033 00ea | | Load_Encached Null_String_Cache 0034 e5fd | | Load 0x2,-0x3 0035 4801 |H | Short_Literal 0x1 0036 e010 | | Load 0x0,0x10 0037 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0038 c403 | | Store 0x2,0x3 0039 e404 | | Load 0x2,0x4 003a 00ea | | Load_Encached Null_String_Cache 003b e5fc | | Load 0x2,-0x4 003c 4801 |H | Short_Literal 0x1 003d e010 | | Load 0x0,0x10 003e 1814 | | Execute Package,Field_Execute,Field_Number 0x14 003f c404 | | Store 0x2,0x4 0040 e011 | | Load 0x0,0x11 0041 e213 | | Load 0x1,0x13 0042 0098 | | Execute Package,Field_Read_Dynamic 0043 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0044 e00c | | Load 0x0,0xc 0045 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0046 e00e | | Load 0x0,0xe 0047 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0048 e011 | | Load 0x0,0x11 0049 e213 | | Load 0x1,0x13 004a 0098 | | Execute Package,Field_Read_Dynamic 004b 1813 | | Execute Package,Field_Execute,Field_Number 0x13 004c c405 | | Store 0x2,0x5 004d 00db | | Load_Top At_Offset_3 004e e5ff | | Load 0x2,-0x1 004f e011 | | Load 0x0,0x11 0050 e213 | | Load 0x1,0x13 0051 0098 | | Execute Package,Field_Read_Dynamic 0052 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0053 00d1 | | Pop_Control Pop_Count_1 0054 00db | | Load_Top At_Offset_3 0055 e011 | | Load 0x0,0x11 0056 e213 | | Load 0x1,0x13 0057 0098 | | Execute Package,Field_Read_Dynamic 0058 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0059 7001 |p | Jump_Nonzero 0x5b 005a 8409 | | Call 0x2,0x9 005b e402 | | Load 0x2,0x2 005c e010 | | Load 0x0,0x10 005d 181b | | Execute Package,Field_Execute,Field_Number 0x1b 005e c402 | | Store 0x2,0x2 005f e403 | | Load 0x2,0x3 0060 e010 | | Load 0x0,0x10 0061 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0062 c403 | | Store 0x2,0x3 0063 e404 | | Load 0x2,0x4 0064 e010 | | Load 0x0,0x10 0065 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0066 c404 | | Store 0x2,0x4 0067 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0068 ; -------------------------------------------------------------------------------------- 0068 ; SUBPROGRAM 0068 ; -------------------------------------------------------------------------------------- 0068 006e | n | .CONST 0x006e ; Address of begin 0069 0004 | | .CONST 0x0004 ; Address of exception handler 006a 0003 | | .CONST 0x0003 ; Number of locals 006b INIT_0068: 006b 00e1 | | Load_Encached Boolean_Cache 006c e004 | | Load 0x0,0x4 006d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 006e BODY_0068: 006e e004 | | Load 0x0,0x4 006f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0070 00e1 | | Load_Encached Boolean_Cache 0071 601a |` | Indirect_Literal Discrete,0x8c,{0x00000000, 0x00004000} 0072 e00b | | Load 0x0,0xb 0073 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0074 e7ff | | Load 0x3,-0x1 0075 e004 | | Load 0x0,0x4 0076 1b3b | ; | Execute Package,Field_Read,Field_Number 0x3b 0077 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0078 005b | [ | Store_Top Discrete,At_Offset_3 0079 0059 | Y | Store_Top Discrete,At_Offset_1 007a 00d8 | | Load_Top At_Offset_0 007b 7002 |p | Jump_Nonzero 0x7e 007c 00d9 | | Load_Top At_Offset_1 007d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 007e 4807 |H | Short_Literal 0x7 007f 0092 0136 | 6| Action Push_String_Extended,0x136 ; "Can't get frozenness of object " 0081 e7ff | | Load 0x3,-0x1 0082 e004 | | Load 0x0,0x4 0083 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0084 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 0085 01cc | | Execute Vector,Catenate 0086 8211 | | Call 0x1,0x11 0087 4800 |H | Short_Literal 0x0 0088 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0089 0000 0000 | | .XXX[0x3] 008b 0000 | | 008c 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 0090 ; -------------------------------------------------------------------------------------- 0090 ; SUBPROGRAM 0090 ; -------------------------------------------------------------------------------------- 0090 0093 | | .CONST 0x0093 ; Address of begin 0091 0004 | | .CONST 0x0004 ; Address of exception handler 0092 0001 | | .CONST 0x0001 ; Number of locals 0093 BODY_0090: 0093 INIT_0090: 0093 4801 |H | Short_Literal 0x1 0094 e7fe | | Load 0x3,-0x2 0095 0092 0137 | 7| Action Push_String_Extended,0x137 ; "'body" 0097 e012 | | Load 0x0,0x12 0098 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0099 e7fe | | Load 0x3,-0x2 009a 01da | | Execute Vector,Bounds 009b 0262 | b | Execute Discrete,In_Range 009c 700a |p | Jump_Nonzero 0xa7 009d 4801 |H | Short_Literal 0x1 009e e7fe | | Load 0x3,-0x2 009f 0092 0138 | 8| Action Push_String_Extended,0x138 ; "'spec" 00a1 e012 | | Load 0x0,0x12 00a2 181d | | Execute Package,Field_Execute,Field_Number 0x1d 00a3 e7fe | | Load 0x3,-0x2 00a4 01da | | Execute Vector,Bounds 00a5 0262 | b | Execute Discrete,In_Range 00a6 6805 |h | Jump_Zero 0xac 00a7 00db | | Load_Top At_Offset_3 00a8 00db | | Load_Top At_Offset_3 00a9 e010 | | Load 0x0,0x10 00aa 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 00ab 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00ac 00db | | Load_Top At_Offset_3 00ad 0092 0139 | 9| Action Push_String_Extended,0x139 ; "'SPEC" 00af 01cc | | Execute Vector,Catenate 00b0 00db | | Load_Top At_Offset_3 00b1 e010 | | Load 0x0,0x10 00b2 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 00b3 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00b4 0000 0000 | | .BLANK 0000[0x4] 00b8 ; -------------------------------------------------------------------------------------- 00b8 ; SUBPROGRAM 00b8 ; -------------------------------------------------------------------------------------- 00b8 00d2 | | .CONST 0x00d2 ; Address of begin 00b9 0004 | | .CONST 0x0004 ; Address of exception handler 00ba 0005 | | .CONST 0x0005 ; Number of locals 00bb INIT_00b8: 00bb e004 | | Load 0x0,0x4 00bc 1b0f | | Execute Package,Field_Read,Field_Number 0xf 00bd 02c7 | | Declare_Variable Any 00be e406 | | Load 0x2,0x6 00bf e011 | | Load 0x0,0x11 00c0 e213 | | Load 0x1,0x13 00c1 0098 | | Execute Package,Field_Read_Dynamic 00c2 181f | | Execute Package,Field_Execute,Field_Number 0x1f 00c3 a602 | | Store_Unchecked 0x3,0x2 00c4 e004 | | Load 0x0,0x4 00c5 1b0f | | Execute Package,Field_Read,Field_Number 0xf 00c6 02c7 | | Declare_Variable Any 00c7 00d8 | | Load_Top At_Offset_0 00c8 1c00 | | Execute_Immediate Run_Utility,0x0 00c9 e004 | | Load 0x0,0x4 00ca 1b0f | | Execute Package,Field_Read,Field_Number 0xf 00cb 02c7 | | Declare_Variable Any 00cc 00d8 | | Load_Top At_Offset_0 00cd 1c00 | | Execute_Immediate Run_Utility,0x0 00ce 00da | | Load_Top At_Offset_2 00cf e004 | | Load 0x0,0x4 00d0 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 00d1 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 00d2 BODY_00b8: 00d2 00db | | Load_Top At_Offset_3 00d3 e004 | | Load 0x0,0x4 00d4 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00d5 7052 |pR | Jump_Nonzero 0x128 00d6 00db | | Load_Top At_Offset_3 00d7 e004 | | Load 0x0,0x4 00d8 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d 00d9 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00da c603 | | Store 0x3,0x3 00db 00da | | Load_Top At_Offset_2 00dc 8407 | | Call 0x2,0x7 00dd 6815 |h | Jump_Zero 0xf3 00de 00da | | Load_Top At_Offset_2 00df e405 | | Load 0x2,0x5 00e0 e011 | | Load 0x0,0x11 00e1 e213 | | Load 0x1,0x13 00e2 0098 | | Execute Package,Field_Read_Dynamic 00e3 1817 | | Execute Package,Field_Execute,Field_Number 0x17 00e4 700e |p | Jump_Nonzero 0xf3 00e5 e405 | | Load 0x2,0x5 00e6 00db | | Load_Top At_Offset_3 00e7 e011 | | Load 0x0,0x11 00e8 e213 | | Load 0x1,0x13 00e9 0098 | | Execute Package,Field_Read_Dynamic 00ea 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00eb c405 | | Store 0x2,0x5 00ec 00da | | Load_Top At_Offset_2 00ed e004 | | Load 0x0,0x4 00ee 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 00ef 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 00f0 e404 | | Load 0x2,0x4 00f1 e010 | | Load 0x0,0x10 00f2 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 00f3 00db | | Load_Top At_Offset_3 00f4 8217 | | Call 0x1,0x17 00f5 c604 | | Store 0x3,0x4 00f6 00db | | Load_Top At_Offset_3 00f7 8407 | | Call 0x2,0x7 00f8 7003 |p | Jump_Nonzero 0xfc 00f9 00d9 | | Load_Top At_Offset_1 00fa 8407 | | Call 0x2,0x7 00fb 6818 |h | Jump_Zero 0x114 00fc 00d9 | | Load_Top At_Offset_1 00fd e405 | | Load 0x2,0x5 00fe e011 | | Load 0x0,0x11 00ff e213 | | Load 0x1,0x13 0100 0098 | | Execute Package,Field_Read_Dynamic 0101 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0102 7011 |p | Jump_Nonzero 0x114 0103 e405 | | Load 0x2,0x5 0104 00da | | Load_Top At_Offset_2 0105 e011 | | Load 0x0,0x11 0106 e213 | | Load 0x1,0x13 0107 0098 | | Execute Package,Field_Read_Dynamic 0108 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0109 c405 | | Store 0x2,0x5 010a 00d9 | | Load_Top At_Offset_1 010b e004 | | Load 0x0,0x4 010c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 010d 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 010e 0092 013a | :| Action Push_String_Extended,0x13a ; ".?" 0110 01cc | | Execute Vector,Catenate 0111 e404 | | Load 0x2,0x4 0112 e010 | | Load 0x0,0x10 0113 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 0114 00d8 | | Load_Top At_Offset_0 0115 e403 | | Load 0x2,0x3 0116 8408 | | Call 0x2,0x8 0117 e406 | | Load 0x2,0x6 0118 e011 | | Load 0x0,0x11 0119 e213 | | Load 0x1,0x13 011a 0098 | | Execute Package,Field_Read_Dynamic 011b 181e | | Execute Package,Field_Execute,Field_Number 0x1e 011c 00d1 | | Pop_Control Pop_Count_1 011d e406 | | Load 0x2,0x6 011e e011 | | Load 0x0,0x11 011f e213 | | Load 0x1,0x13 0120 0098 | | Execute Package,Field_Read_Dynamic 0121 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0122 7001 |p | Jump_Nonzero 0x124 0123 8409 | | Call 0x2,0x9 0124 00d8 | | Load_Top At_Offset_0 0125 e402 | | Load 0x2,0x2 0126 8408 | | Call 0x2,0x8 0127 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0128 e406 | | Load 0x2,0x6 0129 e011 | | Load 0x0,0x11 012a e213 | | Load 0x1,0x13 012b 0098 | | Execute Package,Field_Read_Dynamic 012c 181e | | Execute Package,Field_Execute,Field_Number 0x1e 012d 00d1 | | Pop_Control Pop_Count_1 012e e406 | | Load 0x2,0x6 012f e011 | | Load 0x0,0x11 0130 e213 | | Load 0x1,0x13 0131 0098 | | Execute Package,Field_Read_Dynamic 0132 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0133 7001 |p | Jump_Nonzero 0x135 0134 8409 | | Call 0x2,0x9 0135 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0136 ; -------------------------------------------------------------------------------------- 0136 ; STRING TABLE 0136 ; -------------------------------------------------------------------------------------- 0136 000c | | .STRTAB 0x000c->0x013c ; "Can't get frozenness of object " 0137 0029 | ) | .STRTAB 0x0029->0x014b ; "'body" 0138 002c | , | .STRTAB 0x002c->0x014e ; "'spec" 0139 002f | / | .STRTAB 0x002f->0x0150 ; "'SPEC" 013a 0032 | 2 | .STRTAB 0x0032->0x0153 ; ".?" 013b 0032 | 2 | .STREND 0x0032->0x0154 013c 4361 6e27 |Can'| .STRTAB_STRINGS 0154 0000 0000 | | .BLANK 0000[0x4] 0158 ; -------------------------------------------------------------------------------------- 0158 ; Debug Table 0158 ; -------------------------------------------------------------------------------------- 0158 0004 0002 | | .DEBUG4 0x0004,0x0002,0x0ba4,0x0000,0x0001,0x0000 015e 0000 0003 | | .XXX[0xa2] 0160 fc7c 0000 | | | 0162 0000 0000 | | 0164 1bc3 fffc | | 0166 0000 0000 | | 0168 3080 0000 |0 | 016a 0000 0000 | | 016c 1bc3 fffc | | 016e 0000 0000 | | 0170 7080 0000 |p | 0172 0000 0000 | | 0174 1bc3 fffc | | 0176 0000 0000 | | 0178 b080 0000 | | 017a 0000 0000 | | 017c 1bc3 fffc | | 017e 0000 0000 | | 0180 dc80 0000 | | 0182 0000 0000 | | 0184 1bc3 fffc | | 0186 0000 0001 | | 0188 1480 0000 | | 018a 0000 0000 | | 018c 1bc3 fffc | | 018e 0000 0001 | | 0190 4c80 0000 |L | 0192 0000 0000 | | 0194 1bc3 fffc | | 0196 0000 0001 | | 0198 7c80 0000 || | 019a 0000 0000 | | 019c 1bc3 fffc | | 019e 0000 0001 | | 01a0 b880 0000 | | 01a2 0000 0000 | | 01a4 1bc3 fffc | | 01a6 0000 0001 | | 01a8 e880 0000 | | 01aa 0000 0000 | | 01ac 1bc3 fffc | | 01ae 0000 0002 | | 01b0 2480 0000 |$ | 01b2 0000 0000 | | 01b4 1bc3 fffc | | 01b6 0000 0002 | | 01b8 4c80 0000 |L | 01ba 0000 0000 | | 01bc 1bc3 fffc | | 01be 0000 0002 | | 01c0 8080 0000 | | 01c2 0000 0002 | | 01c4 1bc7 fffc | | 01c6 0000 0002 | | 01c8 b480 0000 | | 01ca 0000 0000 | | 01cc 1bc3 fffc | | 01ce 0000 0002 | | 01d0 f480 0000 | | 01d2 0000 0000 | | 01d4 1bc3 fffc | | 01d6 0000 0003 | | 01d8 3c80 0000 |< | 01da 0000 0000 | | 01dc 1bc3 fffc | | 01de 0000 0003 | | 01e0 7c80 0000 || | 01e2 0000 0000 | | 01e4 1bc3 fffc | | 01e6 0000 0003 | | 01e8 b880 0000 | | 01ea 0000 0000 | | 01ec 1bc3 fffc | | 01ee 0000 0000 | | 01f0 1484 0000 | | 01f2 0000 0000 | | 01f4 1bc3 fffc | | 01f6 0000 0000 | | 01f8 5084 0000 |P | 01fa 0000 0000 | | 01fc 1bc3 fffc | | 01fe 0000 0000 | |