|
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_02f8e7
└─⟦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 0050 | P | .CONST 0x0050 ; 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 0003 | | .CONST 0x0003 ; Number of locals 000b INIT_0008: 000b 4801 |H | Short_Literal 0x1 000c 480a |H | Short_Literal 0xa 000d 00e9 | | Load_Encached String_Cache 000e 0334 | 4 | Declare_Variable Array,With_Constraint 000f 00e3 | | Load_Encached Natural_Cache 0010 BODY_0008: 0010 4802 |H | Short_Literal 0x2 0011 e01a | | Load 0x0,0x1a 0012 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 0013 0092 0032 | 2| Action Push_String_Extended,0x32 ; "Should I S(ubmit) this report, or C(ancel) it? [S] :" 0015 e01a | | Load 0x0,0x1a 0016 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 0017 00e2 | | Load_Encached Integer_Cache 0018 e602 | | Load 0x3,0x2 0019 8413 | | Call 0x2,0x13 001a 00d1 | | Pop_Control Pop_Count_1 001b c603 | | Store 0x3,0x3 001c 00d8 | | Load_Top At_Offset_0 001d 0f01 | | Execute_Immediate Equal,0x1 001e 680d |h | Jump_Zero 0x2c 001f 4801 |H | Short_Literal 0x1 0020 e602 | | Load 0x3,0x2 0021 01d7 | | Execute Vector,Field_Read 0022 0f73 | s | Execute_Immediate Equal,0x73 0023 7005 |p | Jump_Nonzero 0x29 0024 4801 |H | Short_Literal 0x1 0025 e602 | | Load 0x3,0x2 0026 01d7 | | Execute Vector,Field_Read 0027 0f53 | S | Execute_Immediate Equal,0x53 0028 7801 |x | Jump 0x2a 0029 4801 |H | Short_Literal 0x1 002a 6801 |h | Jump_Zero 0x2c 002b 7804 |x | Jump 0x30 002c 00d8 | | Load_Top At_Offset_0 002d 7001 |p | Jump_Nonzero 0x2f 002e 7801 |x | Jump 0x30 002f 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0030 8420 | | Call 0x2,0x20 0031 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0032 ; -------------------------------------------------------------------------------------- 0032 ; STRING TABLE 0032 ; -------------------------------------------------------------------------------------- 0032 0004 | | .STRTAB 0x0004->0x0034 ; "Should I S(ubmit) this report, or C(ancel) it? [S] :" 0033 0036 | 6 | .STREND 0x0036->0x004e 0034 5368 6f75 |Shou| .STRTAB_STRINGS 004e 0000 0000 | | .XXX[0x2] 0050 ; -------------------------------------------------------------------------------------- 0050 ; Debug Table 0050 ; -------------------------------------------------------------------------------------- 0050 0004 0000 | | .DEBUG4 0x0004,0x0000,0x11fa,0x0000,0x0001,0x0000 0056 0000 0003 | | .XXX[0x29] 0058 1475 00c4 | u | 005a c9a0 0000 | | 005c 0000 0276 | v| 005e 2e03 1475 |. u| 0060 0000 0000 | | 0062 0981 0006 | | 0064 7a84 ec5c |z \| 0066 0625 3200 | %2 | 0068 0000 000c | | 006a 8200 1f18 | | 006c e9d8 b80c | | 006e 491c 0000 |I | 0070 0000 1104 | | 0072 004a 8c70 | J p| 0074 8930 188f | 0 | 0076 a800 0000 | | 0078 0000 0001 | | 007a 0012 c420 | | 007c 0000 011d | | 007e 8d00 | | 007f 0000 0000 | | .BLANK 0000[0x4] 0083 0006 279a | ' | .XXX[0x58] 0085 9a85 80c5 | | 0087 1d40 0000 | @ | 0089 0002 d000 | | 008b 0000 0000 | | 008d 0000 0026 | &| 008f 6240 3129 |b@1)| 0091 9000 0000 | | 0093 0314 2800 | ( | 0095 c4ba c000 | | 0097 0000 0000 | | 0099 0000 0041 | A| 009b 96c0 0000 | | 009d 0000 0000 | | 009f 062a 4d01 | *M | 00a1 8b3e 8062 | > b| 00a3 d960 000c | ` | 00a5 cc48 0629 | H )| 00a7 a900 0000 | | 00a9 0062 af10 | b | 00ab 18b2 0c00 | | 00ad 0000 0000 | | 00af 4cc4 8062 |L b| 00b1 a4d0 0000 | | 00b3 0006 2ea9 | . | 00b5 018b 0300 | | 00b7 0000 0000 | | 00b9 04ec 5c06 | \ | 00bb 2ea9 0000 |. | 00bd 0000 1302 | | 00bf 000c f509 | | 00c1 d8b8 0c55 | U| 00c3 e200 0000 | | 00c5 0019 0400 | | 00c7 3e31 d3b1 |>1 | 00c9 7018 a934 |p 4| 00cb 0000 0000 | | 00cd 2208 0095 |" | 00cf 18e1 1260 | `| 00d1 314d 4800 |1MH | 00d3 0000 0000 | | 00d5 0002 0025 | %| 00d7 8840 0000 | @ | 00d9 023b 1a00 | ; | 00db 0000 0000 | | .BLANK 0000[0x4] 00df 000c 5ab3 | Z | .XXX[0x58] 00e1 350b 018b |5 | 00e3 aa40 0000 | @ | 00e5 0005 a000 | | 00e7 0000 0000 | | 00e9 0000 004c | L| 00eb c480 62af | b | 00ed 1000 0000 | | 00ef 062e 0f01 | . | 00f1 8ae5 4000 | @ | 00f3 0000 0000 | | 00f5 0000 0083 | | 00f7 2d80 0000 |- | 00f9 0000 0000 | | 00fb 0c60 1803 | ` | 00fd 195c 80c6 | \ | 00ff 6aa0 0019 |j | 0101 9890 0c5e | ^| 0103 d000 0000 | | 0105 00c6 1600 | | 0107 3192 1000 |1 | 0109 0000 0000 | | 010b 9989 00c6 | | 010d 0180 0000 | | 010f 000c 68d0 | h | 0111 0318 e580 | | 0113 0000 0000 | | 0115 09d8 b80c | | 0117 68d0 0000 |h | 0119 0000 2604 | & | 011b 0019 ea13 | | 011d b170 18c2 | p | 011f c000 0000 | | 0121 0032 0800 | 2 | 0123 7c63 a762 ||c b| 0125 e031 8060 | 1 `| 0127 0000 0000 | | 0129 e010 00fd | | 012b cdc2 24c0 | $ | 012d 62f6 8000 |b | 012f 0000 0000 | | 0131 0004 003f | ?| 0133 f780 0000 | | 0135 0476 3400 | v4 | 0137 0000 0000 | | .BLANK 0000[0x4] 013b 0018 cc62 | b| .XXX[0x13] 013d 6a16 031a |j | 013f 3400 0000 |4 | 0141 000b 4000 | @ | 0143 0000 0000 | | 0145 0000 0099 | | 0147 8900 c616 | | 0149 0000 0000 | | 014b 0c67 9c03 | g | 014d 18aa | | 014e 0000 0000 | | .BLANK 0000[0x4] 0152 0106 5b00 | [ | .XXX[0x41] 0154 0000 0000 | | 0156 0000 18d7 | | 0158 2c06 3878 |, 8x| 015a 018e 4500 | E | 015c 0033 3120 | 31 | 015e 18d4 9c00 | | 0160 0000 018d | | 0162 9bc0 6380 | c | 0164 1000 0000 | | 0166 0001 3312 | 3 | 0168 018d 72c0 | r | 016a 0000 0018 | | 016c e89c 0637 | 7| 016e 8a00 0000 | | 0170 0000 13b1 | | 0172 7018 e89c |p | 0174 0000 0000 | | 0176 4c08 0033 |L 3| 0178 d427 62e0 | 'b | 017a 31b3 7800 |1 x | 017c 0000 0064 | d| 017e 1000 f8c7 | | 0180 4ec5 c063 |N c| 0182 5cb0 0000 |\ | 0184 0001 c020 | | 0186 01fb 9b84 | | 0188 4980 c6a4 |I | 018a e000 0000 | | 018c 0000 0008 | | 018e 007f ef00 | | 0190 0000 08ec | | 0192 6800 |h | 0193 0000 0000 | | .BLANK 0000[0x4] 0197 0031 c6bc | 1 | .XXX[0x13] 0199 d42c 063a | , :| 019b 2700 0000 |' | 019d 0016 8000 | | 019f 0000 0000 | | 01a1 0000 0133 | 3| 01a3 1201 8d9b | | 01a5 c000 0000 | | 01a7 18e6 3406 | 4 | 01a9 3713 |7 | 01aa 0000 0000 | | .BLANK 0000[0x4] 01ae 020c b600 | | .XXX[0x41] 01b0 0000 0000 | | 01b2 0000 31dc | 1 | 01b4 500c 7c6e |P |n| 01b6 031f 6980 | i | 01b8 0066 6240 | fb@| 01ba 31d7 3000 |1 0 | 01bc 0000 031e | | 01be 1700 c7b8 | | 01c0 0000 0000 | | 01c2 0002 6624 | f$| 01c4 031d c500 | | 01c6 0000 0031 | 1| 01c8 ff30 0c7a | 0 z| 01ca 9200 0000 | | 01cc 0000 2762 | 'b| 01ce e031 ff30 | 1 0| 01d0 0000 0000 | | 01d2 9810 0067 | g| 01d4 a84e c5c0 | N | 01d6 63c2 e000 |c | 01d8 0000 00c8 | | 01da 2001 f18e | | 01dc 9d8b 80c7 | | 01de 7140 0000 |q@ | 01e0 0003 8040 | @| 01e2 03f7 3708 | 7 | 01e4 9301 8eb9 | | 01e6 8000 0000 | | 01e8 0000 0010 | | 01ea 00ff de00 | | 01ec 0000 11d8 | | 01ee d000 | | 01ef 0000 0000 | | .BLANK 0000[0x4] 01f3 0063 e969 | c i| .XXX[0x7] 01f5 a858 0c7f | X | 01f7 cc00 0000 | | 01f9 002d | - | 01fa 0000 0000 | | .BLANK 0000[0x4] 01fe 0266 2403 | f$ | .XXX[0x2]