|
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_0694fc
└─⟦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 0040 | @ | .CONST 0x0040 ; 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 0014 | | .CONST 0x0014 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 000f | | .CONST 0x000f ; Number of locals 000b INIT_0008: 000b e001 | | Load 0x0,0x1 000c 0129 | ) | Execute Any,Make_Visible 000d e002 | | Load 0x0,0x2 000e 0129 | ) | Execute Any,Make_Visible 000f 029a 001b | | Declare_Subprogram INIT_0018,For_Outer_Call,Visible,Unelaborated 0011 00bf | | Action Accept_Activation 0012 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0013 00c7 | | Action Elaborate_Subprogram 0014 BODY_0008: 0014 00bc | | Action Signal_Activated 0015 00bb | | Action Signal_Completion 0016 0000 0000 | | .XXX[0x2] 0018 ; -------------------------------------------------------------------------------------- 0018 ; SUBPROGRAM 0018 ; -------------------------------------------------------------------------------------- 0018 001d | | .CONST 0x001d ; Address of begin 0019 002f | / | .CONST 0x002f ; Address of exception handler 001a 0002 | | .CONST 0x0002 ; Number of locals 001b INIT_0018: 001b 0092 0034 | 4| Action Push_String_Extended,0x34 ; "Insight" 001d BODY_0018: 001d 00d8 | | Load_Top At_Offset_0 001e e003 | | Load 0x0,0x3 001f 180e | | Execute Package,Field_Execute,Field_Number 0xe 0020 7002 |p | Jump_Nonzero 0x23 0021 e20d | | Load 0x1,0xd 0022 0257 | W | Execute Discrete,Raise 0023 e004 | | Load 0x0,0x4 0024 180f | | Execute Package,Field_Execute,Field_Number 0xf 0025 4801 |H | Short_Literal 0x1 0026 00da | | Load_Top At_Offset_2 0027 e005 | | Load 0x0,0x5 0028 180e | | Execute Package,Field_Execute,Field_Number 0xe 0029 e005 | | Load 0x0,0x5 002a 180f | | Execute Package,Field_Execute,Field_Number 0xf 002b 7002 |p | Jump_Nonzero 0x2e 002c e20e | | Load 0x1,0xe 002d 0257 | W | Execute Discrete,Raise 002e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 002f TRAP_0018: 002f 4884 |H | Short_Literal 0x84 0030 010f | | Execute Exception,Equal 0031 6801 |h | Jump_Zero 0x33 0032 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0033 0100 | | Execute Exception,Raise 0034 ; -------------------------------------------------------------------------------------- 0034 ; STRING TABLE 0034 ; -------------------------------------------------------------------------------------- 0034 0004 | | .STRTAB 0x0004->0x0036 ; "Insight" 0035 0009 | | .STREND 0x0009->0x0039 0036 496e 7369 |Insi| .STRTAB_STRINGS 003a 0000 0000 | | .BLANK 0000[0x6] 0040 ; -------------------------------------------------------------------------------------- 0040 ; Debug Table 0040 ; -------------------------------------------------------------------------------------- 0040 0004 0014 | | .DEBUG4 0x0004,0x0014,0x1008,0x0000,0x0001,0x0000 0046 001e 1055 | U| .XXX[0x1b6] 0048 1074 0017 | t | 004a c089 8eb4 | | 004c 003c 8094 | < | 004e 6384 0018 |c | 0050 308a 6824 |0 h$| 0052 0018 508a | P | 0054 b934 0018 | 4 | 0056 908d 55a4 | U | 0058 0030 007f | 0 | 005a 8df4 003d | =| 005c f095 b224 | $| 005e 0015 6082 | ` | 0060 80e4 0039 | 9| 0062 0094 34a4 | 4 | 0064 0017 a089 | | 0066 8c74 0013 | t | 0068 6087 b6b4 |` | 006a 0013 6087 | ` | 006c b6c4 002e | .| 006e 0071 bb74 | q t| 0070 0013 8087 | | 0072 b8b4 0013 | | 0074 8087 b8c4 | | 0076 0014 807f | | 0078 54f4 0012 |T | 007a 6069 5164 |`iQd| 007c 0012 6069 | `i| 007e 5174 0014 |Qt | 0080 a07f 5cd4 | \ | 0082 003d 0094 | = | 0084 73b4 001d |s | 0086 f054 d4e4 | T | 0088 001d f054 | T| 008a d674 003a | t :| 008c 8094 4184 | A | 008e 003a e094 | : | 0090 43b4 0015 |C | 0092 e084 4284 | B | 0094 0015 e084 | | 0096 4294 002e |B .| 0098 0071 bb84 | q | 009a 003c e094 | < | 009c 6994 003d |i =| 009e f095 b234 | 4| 00a0 0033 a072 | 3 r| 00a2 6ed4 003c |n <| 00a4 e094 69d4 | i | 00a6 003d e095 | = | 00a8 3d84 0017 |= | 00aa 8088 fbb4 | | 00ac 0017 8088 | | 00ae fbc4 0017 | | 00b0 c089 8f24 | $| 00b2 0017 c089 | | 00b4 8f34 0017 | 4 | 00b6 c089 8f44 | D| 00b8 0017 c089 | | 00ba 8f54 0017 | T | 00bc c089 8f64 | d| 00be 0017 c089 | | 00c0 8f74 0018 | t | 00c2 d08a 13c4 | | 00c4 0018 d08a | | 00c6 13d4 0018 | | 00c8 d08a 13e4 | | 00ca 0038 4094 | 8@ | 00cc 2dd4 001a |- | 00ce 308b 9be4 |0 | 00d0 001a 308b | 0 | 00d2 9c04 002c | ,| 00d4 006b 6314 | kc | 00d6 002c 006b | , k| 00d8 6324 0018 |c$ | 00da f08a 1524 | $| 00dc 0018 f08a | | 00de 1534 003b | 4 ;| 00e0 a094 4af4 | J | 00e2 003b a094 | ; | 00e4 4b04 0019 |K | 00e6 708b 5cb4 |p \ | 00e8 0019 708b | p | 00ea 5cc4 0037 |\ 7| 00ec 0094 22a4 | " | 00ee 0030 007f | 0 | 00f0 6074 003d |`t =| 00f2 e094 f2d4 | | 00f4 0037 2094 | 7 | 00f6 23d4 0037 |# 7| 00f8 2094 23e4 | # | 00fa 003b a094 | ; | 00fc 4b14 003b |K ;| 00fe c094 4c04 | L | 0100 003b c094 | ; | 0102 4c34 003b |L4 ;| 0104 c094 4c44 | LD| 0106 002c 206b | , k| 0108 6844 002c |hD ,| 010a 206b 6864 | khd| 010c 001a 508b | P | 010e a0c4 001a | | 0110 508b a0d4 |P | 0112 001a 508b | P | 0114 a0e4 001a | | 0116 508b a0f4 |P | 0118 001a 508b | P | 011a a104 001b | | 011c 905a c604 | Z | 011e 001f 107a | z| 0120 b064 001f | d | 0122 107a b074 | z t| 0124 0038 e094 | 8 | 0126 3404 003b |4 ;| 0128 8094 49c4 | I | 012a 001f 307a | 0z| 012c b224 001a | $ | 012e b08e e054 | T| 0130 001a b08e | | 0132 e064 001b | d | 0134 108f a2f4 | | 0136 001b 108f | | 0138 a304 001f | | 013a 307a b234 |0z 4| 013c 003d f095 | = | 013e b244 001d | D | 0140 9049 07d4 | I | 0142 001b b05a | Z| 0144 d0b4 001b | | 0146 b05a d0d4 | Z | 0148 0031 a08e | 1 | 014a 4384 003d |C =| 014c 0094 73c4 | s | 014e 003d f095 | = | 0150 b254 0034 | T 4| 0152 a068 b8b4 | h | 0154 001c f062 | b| 0156 39f4 001c |9 | 0158 f062 3a04 | b: | 015a 0034 6068 | 4`h| 015c a444 0034 | D 4| 015e a068 be84 | h | 0160 0034 a068 | 4 h| 0162 be94 0034 | 4| 0164 a068 c024 | h $| 0166 0036 2089 | 6 | 0168 b4d4 0036 | 6| 016a 2089 b4e4 | | 016c 0029 c087 | ) | 016e e3f4 0029 | )| 0170 c087 e404 | | 0172 0021 f08d | ! | 0174 f3d4 0021 | !| 0176 f08d f3e4 | | 0178 0031 4080 | 1@ | 017a c6f4 0027 | '| 017c 906d 1b24 | m $| 017e 0026 3064 | &0d| 0180 0b54 0026 | T &| 0182 3064 0bc4 |0d | 0184 0028 1078 | ( x| 0186 c8f4 0037 | 7| 0188 a094 28d4 | ( | 018a 0028 3078 | (0x| 018c d054 0028 | T (| 018e 3078 d064 |0x d| 0190 0028 907a | ( z| 0192 e0e4 0026 | &| 0194 5064 0d54 |Pd T| 0196 0026 5064 | &Pd| 0198 0d74 0031 | t 1| 019a 4080 c704 |@ | 019c 001e 706e | pn| 019e ee44 001e | D | 01a0 706e ee54 |pn T| 01a2 0031 2080 | 1 | 01a4 c5a4 0031 | 1| 01a6 4080 c714 |@ | 01a8 001e f07a | z| 01aa 4854 001e |HT | 01ac f07a 4864 | zHd| 01ae 0031 a08e | 1 | 01b0 4394 002d |C -| 01b2 8070 8134 | p 4| 01b4 003d f095 | = | 01b6 b264 0038 | d 8| 01b8 6094 3044 |` 0D| 01ba 0038 6094 | 8` | 01bc 3054 0038 |0T 8| 01be 6094 3064 |` 0d| 01c0 0038 8094 | 8 | 01c2 3114 0020 |1 | 01c4 1086 efb4 | | 01c6 0030 007f | 0 | 01c8 6114 003d |a =| 01ca f095 b274 | t| 01cc 0037 4094 | 7@ | 01ce 24e4 002c |$ ,| 01d0 c06c 3534 | l54| 01d2 0030 007f | 0 | 01d4 8ee4 003d | =| 01d6 f095 b284 | | 01d8 0024 305a | $0Z| 01da dfc4 003a | :| 01dc c094 4324 | C$| 01de 0024 505b | $P[| 01e0 b944 002a | D *| 01e2 a083 5244 | RD| 01e4 002d 4070 | -@p| 01e6 3e34 003d |>4 =| 01e8 f095 b294 | | 01ea 0036 8094 | 6 | 01ec 1f24 002d | $ -| 01ee 4070 3ed4 |@p> | 01f0 003d f095 | = | 01f2 b2a4 0036 | 6| 01f4 a094 2054 | T| 01f6 0036 c094 | 6 | 01f8 20f4 003d | =| 01fa f095 55c0 | U | 01fc 0000 0000 | | .BLANK 0000[0x4]