|
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_03bcfe
└─⟦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 00e8 | | .CONST 0x00e8 ; 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 0015 | | .CONST 0x0015 ; Address of begin 0009 00bf | | .CONST 0x00bf ; Address of exception handler 000a 0008 | | .CONST 0x0008 ; Number of locals 000b INIT_0008: 000b 00e3 | | Load_Encached Natural_Cache 000c 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 000d e21c | | Load 0x1,0x1c 000e 0337 | 7 | Declare_Variable Array 000f e004 | | Load 0x0,0x4 0010 0007 | | Action Break_Optional 0011 00e3 | | Load_Encached Natural_Cache 0012 00e3 | | Load_Encached Natural_Cache 0013 00e3 | | Load_Encached Natural_Cache 0014 00e2 | | Load_Encached Integer_Cache 0015 BODY_0008: 0015 4801 |H | Short_Literal 0x1 0016 e5ff | | Load 0x2,-0x1 0017 0092 00d1 | | Action Push_String_Extended,0xd1 ; "." 0019 e011 | | Load 0x0,0x11 001a 181d | | Execute Package,Field_Execute,Field_Number 0x1d 001b a405 | | Store_Unchecked 0x2,0x5 001c 00db | | Load_Top At_Offset_3 001d 686c |hl | Jump_Zero 0x8a 001e 00db | | Load_Top At_Offset_3 001f e5ff | | Load 0x2,-0x1 0020 01dd | | Execute Vector,First 0021 0272 | r | Execute Discrete,Minus 0022 005b | [ | Store_Top Discrete,At_Offset_3 0023 e5ff | | Load 0x2,-0x1 0024 01dc | | Execute Vector,Last 0025 e405 | | Load 0x2,0x5 0026 0272 | r | Execute Discrete,Minus 0027 005a | Z | Store_Top Discrete,At_Offset_2 0028 e226 | & | Load 0x1,0x26 0029 e005 | | Load 0x0,0x5 002a 1814 | | Execute Package,Field_Execute,Field_Number 0x14 002b c226 | & | Store 0x1,0x26 002c 00cf | | Action Mark_Auxiliary 002d e21d | | Load 0x1,0x1d 002e 1b0f | | Execute Package,Field_Read,Field_Number 0xf 002f e226 | & | Load 0x1,0x26 0030 e21d | | Load 0x1,0x1d 0031 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0032 c404 | | Store 0x2,0x4 0033 e21d | | Load 0x1,0x1d 0034 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0035 e226 | & | Load 0x1,0x26 0036 e21d | | Load 0x1,0x1d 0037 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0038 c404 | | Store 0x2,0x4 0039 e403 | | Load 0x2,0x3 003a e226 | & | Load 0x1,0x26 003b e21e | | Load 0x1,0x1e 003c 1810 | | Execute Package,Field_Execute,Field_Number 0x10 003d 00d1 | | Pop_Control Pop_Count_1 003e e21f | | Load 0x1,0x1f 003f 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0040 e226 | & | Load 0x1,0x26 0041 e21f | | Load 0x1,0x1f 0042 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0043 c402 | | Store 0x2,0x2 0044 4801 |H | Short_Literal 0x1 0045 e5ff | | Load 0x2,-0x1 0046 01dd | | Execute Vector,First 0047 e405 | | Load 0x2,0x5 0048 0aff | | Execute_Immediate Plus,-0x1 0049 e5ff | | Load 0x2,-0x1 004a 01cf | | Execute Vector,Slice_Read 004b 4801 |H | Short_Literal 0x1 004c e406 | | Load 0x2,0x6 004d e403 | | Load 0x2,0x3 004e 01cf | | Execute Vector,Slice_Read 004f e011 | | Load 0x0,0x11 0050 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0051 6805 |h | Jump_Zero 0x57 0052 00db | | Load_Top At_Offset_3 0053 0a01 | | Execute_Immediate Plus,0x1 0054 e403 | | Load 0x2,0x3 0055 01d7 | | Execute Vector,Field_Read 0056 6802 |h | Jump_Zero 0x59 0057 00c9 | | Action Pop_Auxiliary_Loop 0058 7fd4 | | Jump 0x2d 0059 00ce | | Action Pop_Auxiliary 005a e402 | | Load 0x2,0x2 005b 00d8 | | Load_Top At_Offset_0 005c e221 | ! | Load 0x1,0x21 005d 1b13 | | Execute Package,Field_Read,Field_Number 0x13 005e 0260 | ` | Execute Discrete,In_Type 005f 7001 |p | Jump_Nonzero 0x61 0060 0801 | | Execute_Immediate Raise,0x1 0061 e227 | ' | Load 0x1,0x27 0062 e221 | ! | Load 0x1,0x21 0063 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0064 00cf | | Action Mark_Auxiliary 0065 e403 | | Load 0x2,0x3 0066 e227 | ' | Load 0x1,0x27 0067 e221 | ! | Load 0x1,0x21 0068 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0069 00d1 | | Pop_Control Pop_Count_1 006a 4801 |H | Short_Literal 0x1 006b e405 | | Load 0x2,0x5 006c 0a01 | | Execute_Immediate Plus,0x1 006d 00d8 | | Load_Top At_Offset_0 006e 00e2 | | Load_Encached Integer_Cache 006f 0260 | ` | Execute Discrete,In_Type 0070 7001 |p | Jump_Nonzero 0x72 0071 0801 | | Execute_Immediate Raise,0x1 0072 e5ff | | Load 0x2,-0x1 0073 01dc | | Execute Vector,Last 0074 e5ff | | Load 0x2,-0x1 0075 01cf | | Execute Vector,Slice_Read 0076 4801 |H | Short_Literal 0x1 0077 e407 | | Load 0x2,0x7 0078 e403 | | Load 0x2,0x3 0079 01cf | | Execute Vector,Slice_Read 007a e011 | | Load 0x0,0x11 007b 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 007c 6806 |h | Jump_Zero 0x83 007d 00da | | Load_Top At_Offset_2 007e 0a01 | | Execute_Immediate Plus,0x1 007f e403 | | Load 0x2,0x3 0080 01d7 | | Execute Vector,Field_Read 0081 7001 |p | Jump_Nonzero 0x83 0082 7805 |x | Jump 0x88 0083 e402 | | Load 0x2,0x2 0084 0a01 | | Execute_Immediate Plus,0x1 0085 c402 | | Store 0x2,0x2 0086 00c9 | | Action Pop_Auxiliary_Loop 0087 7fdd | | Jump 0x65 0088 00ce | | Action Pop_Auxiliary 0089 7826 |x& | Jump 0xb0 008a e5ff | | Load 0x2,-0x1 008b 01dc | | Execute Vector,Last 008c e5ff | | Load 0x2,-0x1 008d 01dd | | Execute Vector,First 008e 0272 | r | Execute Discrete,Minus 008f 0a01 | | Execute_Immediate Plus,0x1 0090 005a | Z | Store_Top Discrete,At_Offset_2 0091 e227 | ' | Load 0x1,0x27 0092 e221 | ! | Load 0x1,0x21 0093 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0094 c227 | ' | Store 0x1,0x27 0095 00cf | | Action Mark_Auxiliary 0096 e403 | | Load 0x2,0x3 0097 e227 | ' | Load 0x1,0x27 0098 e221 | ! | Load 0x1,0x21 0099 181f | | Execute Package,Field_Execute,Field_Number 0x1f 009a 00d1 | | Pop_Control Pop_Count_1 009b 4801 |H | Short_Literal 0x1 009c e5ff | | Load 0x2,-0x1 009d 4801 |H | Short_Literal 0x1 009e e407 | | Load 0x2,0x7 009f e403 | | Load 0x2,0x3 00a0 01cf | | Execute Vector,Slice_Read 00a1 e011 | | Load 0x0,0x11 00a2 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 00a3 6806 |h | Jump_Zero 0xaa 00a4 00da | | Load_Top At_Offset_2 00a5 0a01 | | Execute_Immediate Plus,0x1 00a6 e403 | | Load 0x2,0x3 00a7 01d7 | | Execute Vector,Field_Read 00a8 7001 |p | Jump_Nonzero 0xaa 00a9 7805 |x | Jump 0xaf 00aa e402 | | Load 0x2,0x2 00ab 0a01 | | Execute_Immediate Plus,0x1 00ac c402 | | Store 0x2,0x2 00ad 00c9 | | Action Pop_Auxiliary_Loop 00ae 7fe7 | | Jump 0x96 00af 00ce | | Action Pop_Auxiliary 00b0 e220 | | Load 0x1,0x20 00b1 1b0f | | Execute Package,Field_Read,Field_Number 0xf 00b2 e402 | | Load 0x2,0x2 00b3 00d8 | | Load_Top At_Offset_0 00b4 e220 | | Load 0x1,0x20 00b5 1b13 | | Execute Package,Field_Read,Field_Number 0x13 00b6 0260 | ` | Execute Discrete,In_Type 00b7 7001 |p | Jump_Nonzero 0xb9 00b8 0801 | | Execute_Immediate Raise,0x1 00b9 e228 | ( | Load 0x1,0x28 00ba e220 | | Load 0x1,0x20 00bb 181e | | Execute Package,Field_Execute,Field_Number 0x1e 00bc c404 | | Store 0x2,0x4 00bd e404 | | Load 0x2,0x4 00be 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00bf TRAP_0008: 00bf 00d8 | | Load_Top At_Offset_0 00c0 0107 | | Execute Exception,Get_Name 00c1 4950 |IP | Short_Literal 0x150 00c2 495f |I_ | Short_Literal 0x15f 00c3 0262 | b | Execute Discrete,In_Range 00c4 680b |h | Jump_Zero 0xd0 00c5 0092 00d2 | | Action Push_String_Extended,0xd2 ; "Label " 00c7 e5ff | | Load 0x2,-0x1 00c8 01cc | | Execute Vector,Catenate 00c9 0092 00d3 | | Action Push_String_Extended,0xd3 ; " not found " 00cb 01cc | | Execute Vector,Catenate 00cc e012 | | Load 0x0,0x12 00cd 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 00ce 4800 |H | Short_Literal 0x0 00cf 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00d0 0100 | | Execute Exception,Raise 00d1 ; -------------------------------------------------------------------------------------- 00d1 ; STRING TABLE 00d1 ; -------------------------------------------------------------------------------------- 00d1 0008 | | .STRTAB 0x0008->0x00d5 ; "." 00d2 0007 | | .STRTAB 0x0007->0x00d5 ; "Label " 00d3 000b | | .STRTAB 0x000b->0x00d8 ; " not found " 00d4 001b | | .STREND 0x001b->0x00e1 00d5 2e4c 6162 |.Lab| .STRTAB_STRINGS 00e2 0000 0000 | | .BLANK 0000[0x6] 00e8 ; -------------------------------------------------------------------------------------- 00e8 ; Debug Table 00e8 ; -------------------------------------------------------------------------------------- 00e8 0004 0011 | | .DEBUG4 0x0004,0x0011,0x34e5,0x0000,0x0001,0x0000 00ee 0004 a1f2 | | .XXX[0x2b] 00f0 a07d 109b | } | 00f2 ef00 4000 | @ | 00f4 1150 4107 | PA | 00f6 b67a 6260 | zb`| 00f8 0008 a000 | | 00fa 0000 0000 | | 00fc 0000 0007 | | 00fe 2f6e 8580 |/n | 0100 0000 4008 | @ | 0102 6ac8 8580 |j | 0104 0000 4000 | @ | 0106 0000 0000 | | 0108 e5ed d0b0 | | 010a 0000 0804 | | 010c 0fda 03ca | | 010e d6b8 0002 | | 0110 2800 0000 |( | 0112 4800 060d |H | 0114 a000 0000 | | 0116 1000 0000 | | 0118 1000 | | 0119 0000 0000 | | .BLANK 0000[0x5] 011e 0081 f446 | F| .XXX[0x13] 0120 b0e4 1100 | | 0122 0045 0000 | E | 0124 0009 0000 | | 0126 c1b4 0000 | | 0128 0002 0000 | | 012a 0002 0000 | | 012c 0002 0002 | | 012e 2f9a 0144 |/ D| 0130 dd7c | | | 0131 0000 0000 | | .BLANK 0000[0x4] 0135 00a2 7393 | s | .XXX[0x2d] 0137 0001 4569 | Ei| 0139 c81f e509 | | 013b d7dc 3000 | 0 | 013d 0584 1002 | | 013f 7290 fee8 |r | 0141 0001 d800 | | 0143 0000 0000 | | 0145 0000 0002 | | 0147 2407 a160 |$ `| 0149 0000 1002 | | 014b 2408 2160 |$ !`| 014d 0000 1000 | | 014f 0002 e8f4 | | 0151 4481 042c |D ,| 0153 0000 0201 | | 0155 03fc 8932 | 2| 0157 9242 0000 | B | 0159 6a00 0000 |j | 015b 1200 0123 | #| 015d 3400 0000 |4 | 015f 0400 0000 | | 0161 1800 | | 0162 0000 0000 | | .BLANK 0000[0x6] 0168 0041 c200 | A | .XXX[0x2] 016a 0000 0000 | | .BLANK 0000[0x8] 0172 8000 0000 | | .XXX[0x1a] 0174 0000 0000 | | 0176 8000 9f9b | | 0178 8051 39a8 | Q9 | 017a 0051 3957 | Q9W| 017c 8051 3de9 | Q= | 017e 8028 9e09 | ( | 0180 4000 63ee |@ c | 0182 7a08 1a1f |z | 0184 78fe c400 |x | 0186 00ed 040d | | 0188 1090 db22 | "| 018a 0000 7600 | v | 018c 0000 0000 | | .BLANK 0000[0x4] 0190 8d55 e850 | U P| .XXX[0x1b] 0192 0000 0400 | | 0194 8d70 2850 | p(P| 0196 0000 0401 | | 0198 0000 0000 | | 019a 11ae 050a | | 019c 0000 0080 | | 019e 4103 4424 |A D$| 01a0 36c8 8000 |6 | 01a2 1d80 0000 | | 01a4 0480 0076 | v| 01a6 9b00 0000 | | 01a8 0100 0000 | | 01aa 0020 | | 01ab 0000 0000 | | .BLANK 0000[0x5] 01b0 0008 2068 | h| .XXX[0x25] 01b2 7dea 3420 |} 4 | 01b4 0003 b000 | | 01b6 0000 9000 | | 01b8 0ed3 6000 | ` | 01ba 0000 2000 | | 01bc 0000 0000 | | 01be 0000 2000 | | 01c0 2bd7 e014 |+ | 01c2 4efc 4000 |N @ | 01c4 0000 0000 | | 01c6 0000 000a | | 01c8 27cb 7000 |' p | 01ca 1bdb 7082 | p | 01cc 1563 3a65 | c:e| 01ce eb00 0012 | | 01d0 410a b206 |A | 01d2 6d9b 8000 |m | 01d4 0900 | | 01d5 0000 0000 | | .BLANK 0000[0x4] 01d9 24eb 0a14 |$ | .XXX[0x19] 01db 0000 0100 | | 01dd 24f7 ca14 |$ | 01df 0000 0100 | | 01e1 0000 0000 | | 01e3 049d 6142 | aB| 01e5 8000 0020 | | 01e7 1042 ac81 | B | 01e9 85d2 a000 | | 01eb 0240 0000 | @ | 01ed 0120 0009 | | 01ef d480 0000 | | 01f1 0040 | @ | 01f2 0000 0000 | | .BLANK 0000[0x7] 01f9 0002 0855 | U| .XXX[0x7] 01fb 8cea e678 | x| 01fd 0000 4800 | H | 01ff 0000 | |