|
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_11cacfe
└─⟦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 0026 | & | .CONST 0x0026 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0013 | | .CONST 0x0013 ; Number of locals 000b INIT_0008: 000b 00c4 | | Action Make_Default 000c 00c4 | | Action Make_Default 000d 00c4 | | Action Make_Default 000e 00c4 | | Action Make_Default 000f 00c4 | | Action Make_Default 0010 00c4 | | Action Make_Default 0011 00c4 | | Action Make_Default 0012 e001 | | Load 0x0,0x1 0013 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0014 0129 | ) | Execute Any,Make_Visible 0015 c211 | | Store 0x1,0x11 0016 029a 002b | +| Declare_Subprogram INIT_0028,For_Outer_Call,Visible,Unelaborated 0018 c212 | | Store 0x1,0x12 0019 029a 003b | ;| Declare_Subprogram INIT_0038,For_Outer_Call,Visible,Unelaborated 001b c213 | | Store 0x1,0x13 001c 029a 0043 | C| Declare_Subprogram INIT_0040,For_Outer_Call,Visible,Unelaborated 001e c210 | | Store 0x1,0x10 001f 00bf | | Action Accept_Activation 0020 1d12 | | Execute_Immediate Reference_Lex_1,0x12 0021 00c7 | | Action Elaborate_Subprogram 0022 1d13 | | Execute_Immediate Reference_Lex_1,0x13 0023 00c7 | | Action Elaborate_Subprogram 0024 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0025 00c7 | | Action Elaborate_Subprogram 0026 BODY_0008: 0026 00bc | | Action Signal_Activated 0027 00bb | | Action Signal_Completion 0028 ; -------------------------------------------------------------------------------------- 0028 ; SUBPROGRAM 0028 ; -------------------------------------------------------------------------------------- 0028 002b | + | .CONST 0x002b ; Address of begin 0029 0004 | | .CONST 0x0004 ; Address of exception handler 002a 0001 | | .CONST 0x0001 ; Number of locals 002b BODY_0028: 002b INIT_0028: 002b 480a |H | Short_Literal 0xa 002c 00db | | Load_Top At_Offset_3 002d 01cb | | Execute Vector,Append 002e e5fe | | Load 0x2,-0x2 002f e001 | | Load 0x0,0x1 0030 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0031 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0032 0000 0000 | | .BLANK 0000[0x6] 0038 ; -------------------------------------------------------------------------------------- 0038 ; SUBPROGRAM 0038 ; -------------------------------------------------------------------------------------- 0038 003b | ; | .CONST 0x003b ; Address of begin 0039 0004 | | .CONST 0x0004 ; Address of exception handler 003a 0001 | | .CONST 0x0001 ; Number of locals 003b BODY_0038: 003b INIT_0038: 003b 00da | | Load_Top At_Offset_2 003c e5fe | | Load 0x2,-0x2 003d e001 | | Load 0x0,0x1 003e 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 003f 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0040 ; -------------------------------------------------------------------------------------- 0040 ; SUBPROGRAM 0040 ; -------------------------------------------------------------------------------------- 0040 0043 | C | .CONST 0x0043 ; Address of begin 0041 0004 | | .CONST 0x0004 ; Address of exception handler 0042 0001 | | .CONST 0x0001 ; Number of locals 0043 BODY_0040: 0043 INIT_0040: 0043 00da | | Load_Top At_Offset_2 0044 e001 | | Load 0x0,0x1 0045 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0046 6804 |h | Jump_Zero 0x4b 0047 00da | | Load_Top At_Offset_2 0048 e001 | | Load 0x0,0x1 0049 1819 | | Execute Package,Field_Execute,Field_Number 0x19 004a c5ff | | Store 0x2,-0x1 004b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 004c 0000 0000 | | .BLANK 0000[0x4] 0050 ; -------------------------------------------------------------------------------------- 0050 ; Debug Table 0050 ; -------------------------------------------------------------------------------------- 0050 0004 000a | | .DEBUG4 0x0004,0x000a,0xf525,0x0000,0x0001,0x0000 0056 a4b0 c4d8 | | .XXX[0x1aa] 0058 c0b0 ccc8 | | 005a eda5 cd99 | | 005c e17d cdc1 | } | 005e 958d a585 | | 0060 b17d 7ccd | }| | 0062 a5bd cce8 | | 0064 a0c0 b0c4 | | 0066 a4b0 c4e4 | | 0068 c8b0 ccc8 | | 006a edbd cd99 | | 006c e17d cdc1 | } | 006e 958d a585 | | 0070 b17d 7ccd | }| | 0072 a5bd cce8 | | 0074 a0c0 b0c4 | | 0076 a4b0 c8c8 | | 0078 d0b0 ccc8 | | 007a ed70 0191 | p | 007c 95b1 89d5 | | 007e 997d 7ccd | }| | 0080 a5bd cce8 | | 0082 a0c0 b0c4 | | 0084 a4b0 c8d4 | | 0086 d8b0 ccc8 | | 0088 ede1 7dd1 | } | 008a a595 7d7c | }|| 008c cda5 bdcc | | 008e e8a0 c0b0 | | 0090 d0e4 a4f4 | | 0092 a8a0 c0b0 | | 0094 d0d8 a4f5 | | 0096 e1cd bdcd | | 0098 d1c9 9585 | | 009a b4e8 b0c8 | | 009c e0e0 b0cc | | 009e c8ed e17d | }| 00a0 99b1 859d | | 00a2 cd7d 7ccd | }| | 00a4 a5bd cce8 | | 00a6 a0c0 b0c4 | | 00a8 a4b0 ccc8 | | 00aa c0b0 ccc8 | | 00ac ede1 7dc1 | } | 00ae c995 8da5 | | 00b0 cda5 bdb9 | | 00b2 7d7c cda5 |}| | 00b4 bdcc e8a0 | | 00b6 c0b0 d0a4 | | 00b8 b0cc d4c8 | | 00ba b0c4 d8ed | | 00bc e17d 99a5 | } | 00be b1b1 7d7c | }|| 00c0 cda5 bdcc | | 00c2 e8a0 c0b0 | | 00c4 c8a4 b0cc | | 00c6 d8e0 b0e0 | | 00c8 ede1 7ddd | } | 00ca a591 d1a1 | | 00cc 7d7c cda5 |}| | 00ce bdcc e8a0 | | 00d0 c0b0 d0a4 | | 00d2 b0cc e0d0 | | 00d4 b0c4 d8ed | | 00d6 85cd cda5 | | 00d8 9db9 7dc1 | } | 00da c9a5 d985 | | 00dc d195 7d7c | }|| 00de cda5 bdcc | | 00e0 e8a0 c0b0 | | 00e2 c4a4 b0d0 | | 00e4 c4d8 b0cc | | 00e6 c8ed 7d7d | }}| 00e8 d9c1 d1c9 | | 00ea 7d7c cda5 |}| | 00ec bdcc e8a0 | | 00ee c0b0 c8cc | | 00f0 a4b0 d0d0 | | 00f2 e0b0 ccc8 | | 00f4 ecec 0189 | | 00f6 85cd 9599 | | 00f8 a595 b191 | | 00fa 7d7c cda5 |}| | 00fc bdcc e91c | | 00fe a0c0 b0c4 | | 0100 a401 8591 | | 0102 a9d5 cdd1 | | 0104 99a5 95b1 | | 0106 917d 7ccd | }| | 0108 a5bd cce9 | | 010a 1ca0 c0b0 | | 010c c4a4 0199 | | 010e b1bd 85d1 | | 0110 99a5 95b1 | | 0112 917d 7ccd | }| | 0114 a5bd cce9 | | 0116 1ca0 c0b0 | | 0118 c4a4 01b9 | | 011a 95e1 d189 | | 011c a5d1 7d7c | }|| 011e cda5 bdcc | | 0120 e91c a0c0 | | 0122 b0c4 a401 | | 0124 b995 e1d1 | | 0126 ddbd c991 | | 0128 7d7c cda5 |}| | 012a bdcc e91c | | 012c a0c0 b0c4 | | 012e a401 cdd1 | | 0130 91a5 bd99 | | 0132 b1d5 cda1 | | 0134 7d7c cda5 |}| | 0136 bdcc e91c | | 0138 a0c0 b0d4 | | 013a c0a4 f4a8 | | 013c a0c0 b0d4 | | 013e c4a4 f598 | | 0140 a0c0 b0c8 | | 0142 a401 cdd1 | | 0144 c995 85b5 | | 0146 89d5 98e9 | | 0148 50a0 c0b0 |P | 014a d0d4 a4f5 | | 014c ccd0 c185 | | 014e b1b1 bd8d | | 0150 7d7c e5cd |}| | 0152 d1c9 9585 | | 0154 b589 d598 | | 0156 e8a0 c0b0 | | 0158 d0a4 b0c0 | | 015a b0c4 d8ed | | 015c e17d d5b9 | } | 015e 89d5 997d | }| 0160 7ce5 cdd1 || | 0162 c995 85b5 | | 0164 89d5 98e8 | | 0166 a0c0 b0d0 | | 0168 a4b0 c4d8 | | 016a b0c4 d8ed | | 016c e17d 8985 | } | 016e cd95 7d7c | }|| 0170 e5cd d1c9 | | 0172 9585 b589 | | 0174 d598 e8a0 | | 0176 c0b0 c4d8 | | 0178 a4b0 ccc8 | | 017a b0cc c8ed | | 017c e17d c189 | } | 017e 85cd 957d | }| 0180 7ce5 cdd1 || | 0182 c995 85b5 | | 0184 89d5 98e8 | | 0186 a0c0 b0c4 | | 0188 d8a4 b0d8 | | 018a d0b0 ccc8 | | 018c ede1 7dc1 | } | 018e c1d1 c97d | }| 0190 7ce5 cdd1 || | 0192 c995 85b5 | | 0194 89d5 98e8 | | 0196 a0c0 b0c4 | | 0198 d8a4 b0e4 | | 019a d8b0 ccc8 | | 019c ede1 7d95 | } | 019e c1c1 d1c9 | | 01a0 7d7c e5cd |}| | 01a2 d1c9 9585 | | 01a4 b589 d598 | | 01a6 e8a0 c0b0 | | 01a8 c4d8 a4b0 | | 01aa c4c8 e0b0 | | 01ac ccc8 ede1 | | 01ae 7d9d c1d1 |} | 01b0 c97d 7ce5 | }| | 01b2 cdd1 c995 | | 01b4 85b5 89d5 | | 01b6 98e8 a0c0 | | 01b8 b0c4 d8a4 | | 01ba b0c4 d8c0 | | 01bc b0cc c8ed | | 01be e17d 959d | } | 01c0 c1d1 c97d | }| 01c2 7ce5 cdd1 || | 01c4 c995 85b5 | | 01c6 89d5 98e8 | | 01c8 a0c0 b0c4 | | 01ca d8a4 b0c4 | | 01cc e4c8 b0cc | | 01ce c8ed 7001 | p | 01d0 e17d 9589 | } | 01d2 858d ad7d | }| 01d4 7ce5 cdd1 || | 01d6 c995 85b5 | | 01d8 89d5 98e8 | | 01da a0c0 b0c4 | | 01dc d8a4 b0c8 | | 01de c8d0 b0cc | | 01e0 c8ed e17d | }| 01e2 89b1 95b9 | | 01e4 7d7c e5cd |}| | 01e6 d1c9 9585 | | 01e8 b589 d598 | | 01ea e8a0 c0b0 | | 01ec c4a4 b0c8 | | 01ee d4d8 b0cc | | 01f0 c8ed 7d7d | }}| 01f2 d9c1 d1c9 | | 01f4 7d7c e5cd |}| | 01f6 d1c9 9585 | | 01f8 b589 d598 | | 01fa e8a0 c0b0 | | 01fc c8cc a4b0 | | 01fe c8e0 e0b0 | |