|
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 c001 d4d1 | | .XXX[0xa7] 0120 54d4 d253 |T S| 0122 d385 c003 | | 0124 d4d5 1053 | S| 0126 9110 5491 | T | 0128 0b94 d514 | | 012a 9253 91c0 | S | 012c 1fa4 08c0 | | 012e 0212 5394 | S | 0130 d510 5390 | S | 0132 d145 c003 | E | 0134 d4d5 1053 | S| 0136 9110 5491 | T | 0138 0b94 d514 | | 013a 9253 91c0 | S | 013c 05c0 0553 | S| 013e 13d1 d253 | S| 0140 97d2 5391 | S | 0142 93d4 9350 | P| 0144 5512 53d3 |U S | 0146 8b92 d156 | V| 0148 4000 0000 |@ | 014a 0000 0000 | | 014c 0d80 0000 | | 014e 0080 0000 | | 0150 7500 0d26 |u &| 0152 27a3 a4a7 |' | 0154 2fa4 a723 |/ #| 0156 27a9 26a0 |' & | 0158 aa24 a7a7 | $ | 015a 1725 a2ac | % | 015c afa2 20aa | | 015e 209d cccd | | 0160 c80f 0007 | | 0162 26a0 a1a4 |& | 0164 24a7 22af |$ " | 0166 a622 a723 | " #| 0168 aa24 000b | $ | 016a 8008 29aa | ) | 016c 20a7 2220 | " | 016e a922 1727 | " '| 0170 20aa 2aa9 | * | 0172 20a6 004d | M| 0174 c80f 0007 | | 0176 aaa9 a2a9 | | 0178 2720 a6a2 |' | 017a afa6 22a7 | " | 017c 23aa 2400 |# $ | 017e 0b80 0829 | )| 0180 aa20 a722 | "| 0182 20a9 2217 | " | 0184 2720 aa2a |' *| 0186 a920 a600 | | 0188 4dc8 0f00 |M | 018a 07a8 20a9 | | 018c a9ab a7a9 | | 018e 222f a622 |"/ "| 0190 a723 aa24 | # $| 0192 000b 8008 | | 0194 29aa 20a7 |) | 0196 2220 a922 |" "| 0198 1727 20aa | ' | 019a 2aa9 20a6 |* | 019c 004d c80f | M | 019e 0007 20a1 | | 01a0 a1a7 aaa7 | | 01a2 2a2f a622 |*/ "| 01a4 a723 aa24 | # $| 01a6 000b 8008 | | 01a8 29aa 20a7 |) | 01aa 2220 a922 |" "| 01ac 1727 20aa | ' | 01ae 2aa9 20a6 |* | 01b0 004d c80f | M | 01b2 0007 a4a7 | | 01b4 29aa 20a7 |) | 01b6 21a2 afa6 |! | 01b8 22a7 23aa |" # | 01ba 2400 0b80 |$ | 01bc 0829 aa20 | ) | 01be a722 20a9 | " | 01c0 2217 2720 |" ' | 01c2 aa2a a920 | * | 01c4 a600 | | 01c5 0000 0000 | | .BLANK 0000[0x4] 01c9 0e00 0000 | | .XXX[0x37] 01cb 0100 0001 | | 01cd 0400 1a4c | L| 01cf 4f47 494e |OGIN| 01d1 5f49 4e46 |_INF| 01d3 4f52 4d41 |ORMA| 01d5 5449 4f4e |TION| 01d7 2e41 4c4c |.ALL| 01d9 4f43 4154 |OCAT| 01db 453d 7a94 |E=z | 01dd 7e90 2300 |~ # | 01df 074d 4143 | MAC| 01e1 4849 4e45 |HINE| 01e3 1700 0f53 | S| 01e5 5441 4e44 |TAND| 01e7 4152 442e |ARD.| 01e9 5354 5249 |STRI| 01eb 4e47 007e |NG ~| 01ed 9023 0008 | # | 01ef 5553 4552 |USER| 01f1 4e41 4d45 |NAME| 01f3 1700 0f53 | S| 01f5 5441 4e44 |TAND| 01f7 4152 442e |ARD.| 01f9 5354 5249 |STRI| 01fb 4e47 007e |NG ~| 01fd 9023 0008 | # | 01ff 5041 |PA |