|
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
└─ ⟦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 0118 | | .CONST 0x0118 ; 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 000d | | .CONST 0x000d ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0002 | | .CONST 0x0002 ; Number of locals 000b INIT_0008: 000b e0b7 | | Load 0x0,0xb7 000c 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 000d BODY_0008: 000d e03b | ; | Load 0x0,0x3b 000e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 000f 7005 |p | Jump_Nonzero 0x15 0010 0092 00c2 | | Action Push_String_Extended,0xc2 ; "Ignoring Table_Options not bracketed by Begin(Table) and End(Table)" 0012 e01c | | Load 0x0,0x1c 0013 180e | | Execute Package,Field_Execute,Field_Number 0xe 0014 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0015 e5ff | | Load 0x2,-0x1 0016 e011 | | Load 0x0,0x11 0017 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0018 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0019 e0b7 | | Load 0x0,0xb7 001a 1820 | | Execute Package,Field_Execute,Field_Number 0x20 001b a402 | | Store_Unchecked 0x2,0x2 001c 00d8 | | Load_Top At_Offset_0 001d e0b7 | | Load 0x0,0xb7 001e 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 001f e5ff | | Load 0x2,-0x1 0020 e011 | | Load 0x0,0x11 0021 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0022 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0023 0e00 | | Execute_Immediate Not_Equal,0x0 0024 0279 | y | Execute Discrete,And 0025 6805 |h | Jump_Zero 0x2b 0026 0092 00c3 | | Action Push_String_Extended,0xc3 ; "Argument to Table_Options was unrecognizable" 0028 e01c | | Load 0x0,0x1c 0029 180e | | Execute Package,Field_Execute,Field_Number 0xe 002a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 002b 00cf | | Action Mark_Auxiliary 002c 7890 |x | Jump 0xbd 002d 4800 |H | Short_Literal 0x0 002e e402 | | Load 0x2,0x2 002f e0b7 | | Load 0x0,0xb7 0030 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0031 687d |h} | Jump_Zero 0xaf 0032 e402 | | Load 0x2,0x2 0033 e0b7 | | Load 0x0,0xb7 0034 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 0035 460a |F | Jump_Case 0xb 0036 7881 |x | Jump 0xb8 ; case 0x0 0037 7823 |x# | Jump 0x5b ; case 0x1 0038 783c |x< | Jump 0x75 ; case 0x2 0039 7843 |xC | Jump 0x7d ; case 0x3 003a 784a |xJ | Jump 0x85 ; case 0x4 003b 7851 |xQ | Jump 0x8d ; case 0x5 003c 7858 |xX | Jump 0x95 ; case 0x6 003d 7815 |x | Jump 0x53 ; case 0x7 003e 785e |x^ | Jump 0x9d ; case 0x8 003f 7866 |xf | Jump 0xa6 ; case 0x9 0040 7800 |x | Jump 0x41 ; case 0xa 0041 e03b | ; | Load 0x0,0x3b 0042 3c0a |< | Execute Record,Field_Read,Field_Number 0xa 0043 e011 | | Load 0x0,0x11 0044 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0045 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0046 e03b | ; | Load 0x0,0x3b 0047 380a |8 | Execute Record,Field_Write,Field_Number 0xa 0048 00ea | | Load_Encached Null_String_Cache 0049 4800 |H | Short_Literal 0x0 004a e402 | | Load 0x2,0x2 004b e0b7 | | Load 0x0,0xb7 004c 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 004d e011 | | Load 0x0,0x11 004e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 004f 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0050 e03b | ; | Load 0x0,0x3b 0051 380a |8 | Execute Record,Field_Write,Field_Number 0xa 0052 7865 |xe | Jump 0xb8 0053 4800 |H | Short_Literal 0x0 0054 4800 |H | Short_Literal 0x0 0055 e402 | | Load 0x2,0x2 0056 e0b7 | | Load 0x0,0xb7 0057 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 0058 e03b | ; | Load 0x0,0x3b 0059 3814 |8 | Execute Record,Field_Write,Field_Number 0x14 005a 785d |x] | Jump 0xb8 005b 4800 |H | Short_Literal 0x0 005c 4801 |H | Short_Literal 0x1 005d 4800 |H | Short_Literal 0x0 005e e402 | | Load 0x2,0x2 005f e0b8 | | Load 0x0,0xb8 0060 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0061 6809 |h | Jump_Zero 0x6b 0062 4800 |H | Short_Literal 0x0 0063 4801 |H | Short_Literal 0x1 0064 4800 |H | Short_Literal 0x0 0065 e402 | | Load 0x2,0x2 0066 e0b8 | | Load 0x0,0xb8 0067 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0068 e03b | ; | Load 0x0,0x3b 0069 3812 |8 | Execute Record,Field_Write,Field_Number 0x12 006a 784d |xM | Jump 0xb8 006b 0092 00c4 | | Action Push_String_Extended,0xc4 ; "Table_Options Table_Line_Mode" 006d 4800 |H | Short_Literal 0x0 006e e402 | | Load 0x2,0x2 006f e0b7 | | Load 0x0,0xb7 0070 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0071 01cc | | Execute Vector,Catenate 0072 e01c | | Load 0x0,0x1c 0073 180e | | Execute Package,Field_Execute,Field_Number 0xe 0074 7843 |xC | Jump 0xb8 0075 4800 |H | Short_Literal 0x0 0076 4800 |H | Short_Literal 0x0 0077 e402 | | Load 0x2,0x2 0078 e0b7 | | Load 0x0,0xb7 0079 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 007a e03b | ; | Load 0x0,0x3b 007b 3813 |8 | Execute Record,Field_Write,Field_Number 0x13 007c 783b |x; | Jump 0xb8 007d 4800 |H | Short_Literal 0x0 007e 4800 |H | Short_Literal 0x0 007f e402 | | Load 0x2,0x2 0080 e0b7 | | Load 0x0,0xb7 0081 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 0082 e03b | ; | Load 0x0,0x3b 0083 3808 |8 | Execute Record,Field_Write,Field_Number 0x8 0084 7833 |x3 | Jump 0xb8 0085 4800 |H | Short_Literal 0x0 0086 4800 |H | Short_Literal 0x0 0087 e402 | | Load 0x2,0x2 0088 e0b7 | | Load 0x0,0xb7 0089 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 008a e03b | ; | Load 0x0,0x3b 008b 3809 |8 | Execute Record,Field_Write,Field_Number 0x9 008c 782b |x+ | Jump 0xb8 008d 4800 |H | Short_Literal 0x0 008e 4800 |H | Short_Literal 0x0 008f e402 | | Load 0x2,0x2 0090 e0b7 | | Load 0x0,0xb7 0091 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 0092 e03b | ; | Load 0x0,0x3b 0093 380b |8 | Execute Record,Field_Write,Field_Number 0xb 0094 7823 |x# | Jump 0xb8 0095 4800 |H | Short_Literal 0x0 0096 4800 |H | Short_Literal 0x0 0097 e402 | | Load 0x2,0x2 0098 e0b7 | | Load 0x0,0xb7 0099 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 009a e03b | ; | Load 0x0,0x3b 009b 380c |8 | Execute Record,Field_Write,Field_Number 0xc 009c 781b |x | Jump 0xb8 009d 00ea | | Load_Encached Null_String_Cache 009e 4800 |H | Short_Literal 0x0 009f e402 | | Load 0x2,0x2 00a0 e0b7 | | Load 0x0,0xb7 00a1 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 00a2 801b | | Call 0x0,0x1b 00a3 e03b | ; | Load 0x0,0x3b 00a4 3816 |8 | Execute Record,Field_Write,Field_Number 0x16 00a5 7812 |x | Jump 0xb8 00a6 00ea | | Load_Encached Null_String_Cache 00a7 4800 |H | Short_Literal 0x0 00a8 e402 | | Load 0x2,0x2 00a9 e0b7 | | Load 0x0,0xb7 00aa 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 00ab 801b | | Call 0x0,0x1b 00ac e03b | ; | Load 0x0,0x3b 00ad 3815 |8 | Execute Record,Field_Write,Field_Number 0x15 00ae 7809 |x | Jump 0xb8 00af 0092 00c5 | | Action Push_String_Extended,0xc5 ; "Table_Options" 00b1 4800 |H | Short_Literal 0x0 00b2 e402 | | Load 0x2,0x2 00b3 e0b7 | | Load 0x0,0xb7 00b4 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 00b5 01cc | | Execute Vector,Catenate 00b6 e01c | | Load 0x0,0x1c 00b7 180e | | Execute Package,Field_Execute,Field_Number 0xe 00b8 e402 | | Load 0x2,0x2 00b9 e0b7 | | Load 0x0,0xb7 00ba 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 00bb c402 | | Store 0x2,0x2 00bc 00c9 | | Action Pop_Auxiliary_Loop 00bd e402 | | Load 0x2,0x2 00be e0b7 | | Load 0x0,0xb7 00bf 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 00c0 6f6c |ol | Jump_Zero 0x2d 00c1 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00c2 ; -------------------------------------------------------------------------------------- 00c2 ; STRING TABLE 00c2 ; -------------------------------------------------------------------------------------- 00c2 000a | | .STRTAB 0x000a->0x00c7 ; "Ignoring Table_Options not bracketed by Begin(Table) and End(Table)" 00c3 004b | K | .STRTAB 0x004b->0x00e8 ; "Argument to Table_Options was unrecognizable" 00c4 0075 | u | .STRTAB 0x0075->0x00fe ; "Table_Options Table_Line_Mode" 00c5 0090 | | .STRTAB 0x0090->0x010d ; "Table_Options" 00c6 009b | | .STREND 0x009b->0x0113 00c7 4967 6e6f |Igno| .STRTAB_STRINGS 0114 0000 0000 | | .BLANK 0000[0x4] 0118 ; -------------------------------------------------------------------------------------- 0118 ; Debug Table 0118 ; -------------------------------------------------------------------------------------- 0118 0004 000f | | .DEBUG4 0x0004,0x000f,0x480b,0x0000,0x0001,0x0000 011e 8db5 d98d | | .XXX[0xb8] 0120 7d85 8d8d |} | 0122 95cd cd7d | }| 0124 8dbd b9d1 | | 0126 c9bd b0b9 | | 0128 d9a5 95dd | | 012a 7dbd ddb9 |} | 012c 95c9 7dc9 | } | 012e a59d a1d1 | | 0130 cc00 0000 | | 0132 9c00 0000 | | 0134 bc85 0dbd | | 0136 b5b5 85b9 | | 0138 91cc b90d | | 013a b5d9 8d7d | }| 013c 058d 8d95 | | 013e cdcd 7d0d | } | 0140 bdb9 d1c9 | | 0142 bdb0 b959 | Y| 0144 a595 dd7d | }| 0146 3ddd b995 |= | 0148 c97d 49a5 | }I | 014a 9da1 d1cc | | 014c 0000 0000 | | 014e 18c1 c538 | 8| 0150 164a 9c18 | J | 0152 c232 3c18 | 2< | 0154 c265 4c00 | eL | 0156 0000 1200 | | 0158 0000 3442 | 4B| 015a c6de dada | | 015c c2dc c8e6 | | 015e 5cc2 c8c2 |\ | 0160 5cd2 dce6 |\ | 0162 e8c2 d8d8 | | 0164 beea dcd2 | | 0166 e800 0000 | | 0168 1200 0000 | | 016a 3442 86de |4B | 016c dada c2dc | | 016e c8e6 5c82 | \ | 0170 c8c2 5c92 | \ | 0172 dce6 e8c2 | | 0174 d8d8 beaa | | 0176 dcd2 e800 | | 0178 0000 000c | | 017a 60ea ae0b |` | 017c 266c 0c61 |&l a| 017e 0968 0c61 | h a| 0180 132c 0000 | , | 0182 0009 0000 | | 0184 0015 2163 | !c| 0186 6f6d 6d61 |omma| 0188 6e64 732e |nds.| 018a 6163 6365 |acce| 018c 7373 5f6c |ss_l| 018e 6973 7400 |ist | 0190 0000 0900 | | 0192 0000 1521 | !| 0194 436f 6d6d |Comm| 0196 616e 6473 |ands| 0198 2e41 6363 |.Acc| 019a 6573 735f |ess_| 019c 4c69 7374 |List| 019e 0000 0000 | | 01a0 0630 7810 | 0x | 01a2 0593 c506 | | 01a4 307d 0906 |0} | 01a6 3082 1b00 |0 | 01a8 0000 0c80 | | 01aa 0000 1090 | | 01ac b1b7 b6b6 | | 01ae b0b7 3239 | 29| 01b0 9730 b131 | 0 1| 01b2 3932 bb34 |92 4| 01b4 b0ba 34b7 | 4 | 01b6 b739 9732 | 9 2| 01b8 37af b130 |7 0| 01ba b1b5 bab8 | | 01bc 0000 000c | | 01be 8000 0010 | | 01c0 90a1 b7b6 | | 01c2 b6b0 b732 | 2| 01c4 3997 20b1 |9 | 01c6 3139 32bb |192 | 01c8 34b0 ba34 |4 4| 01ca b7b7 3997 | 9 | 01cc 2237 afa1 |"7 | 01ce 30b1 b5ba |0 | 01d0 b800 0000 | | 01d2 0003 183d | =| 01d4 3c82 ca2a |< *| 01d6 0000 0000 | | .BLANK 0000[0x5] 01db 0013 0000 | | .XXX[0x25] 01dd 0005 8858 | X| 01df dbdb 5b58 | [X| 01e1 5b99 1ccb |[ | 01e3 9858 dd1a | X | 01e5 5d9a 5d1e |] ] | 01e7 4b9b 9a5b |K [| 01e9 0000 0013 | | 01eb 0000 0005 | | 01ed 8850 dbdb | P | 01ef 5b58 5b99 |[X[ | 01f1 1ccb 9058 | X| 01f3 dd1a 5d9a | ] | 01f5 5d1e 4b93 |] K | 01f7 9a5b 0000 | [ | 01f9 0000 018c | | 01fb 1f68 8165 | h e| 01fd 38c1 8c1e |8 | 01ff 7801 |x |