|
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_0bf8df
└─⟦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 0058 | X | .CONST 0x0058 ; 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 0001 | | .CONST 0x0001 ; Number of locals 000b INIT_0008: 000b 029a 001b | | Declare_Subprogram INIT_0018,For_Outer_Call,Visible,Unelaborated 000d 00bf | | Action Accept_Activation 000e 1d0d | | Execute_Immediate Reference_Lex_1,0xd 000f 00c7 | | Action Elaborate_Subprogram 0010 BODY_0008: 0010 00bc | | Action Signal_Activated 0011 00bb | | Action Signal_Completion 0012 0000 0000 | | .BLANK 0000[0x6] 0018 ; -------------------------------------------------------------------------------------- 0018 ; SUBPROGRAM 0018 ; -------------------------------------------------------------------------------------- 0018 0029 | ) | .CONST 0x0029 ; Address of begin 0019 0047 | G | .CONST 0x0047 ; Address of exception handler 001a 0007 | | .CONST 0x0007 ; Number of locals 001b INIT_0018: 001b e002 | | Load 0x0,0x2 001c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 001d 02c7 | | Declare_Variable Any 001e 00d8 | | Load_Top At_Offset_0 001f 1c00 | | Execute_Immediate Run_Utility,0x0 0020 4801 |H | Short_Literal 0x1 0021 4801 |H | Short_Literal 0x1 0022 00e9 | | Load_Encached String_Cache 0023 035b | [ | Declare_Type Array,Constrained 0024 0337 | 7 | Declare_Variable Array 0025 00e3 | | Load_Encached Natural_Cache 0026 00e1 | | Load_Encached Boolean_Cache 0027 03e9 | | Declare_Variable Discrete,Duplicate 0028 03e9 | | Declare_Variable Discrete,Duplicate 0029 BODY_0018: 0029 e402 | | Load 0x2,0x2 002a 00ea | | Load_Encached Null_String_Cache 002b e5ff | | Load 0x2,-0x1 002c 4800 |H | Short_Literal 0x0 002d e002 | | Load 0x0,0x2 002e 1815 | | Execute Package,Field_Execute,Field_Number 0x15 002f c402 | | Store 0x2,0x2 0030 00e1 | | Load_Encached Boolean_Cache 0031 00e1 | | Load_Encached Boolean_Cache 0032 00e1 | | Load_Encached Boolean_Cache 0033 00e3 | | Load_Encached Natural_Cache 0034 e403 | | Load 0x2,0x3 0035 e402 | | Load 0x2,0x2 0036 e002 | | Load 0x0,0x2 0037 1868 | h | Execute Package,Field_Execute,Field_Number 0x68 0038 00d1 | | Pop_Control Pop_Count_1 0039 c404 | | Store 0x2,0x4 003a c405 | | Store 0x2,0x5 003b 005b | [ | Store_Top Discrete,At_Offset_3 003c 0059 | Y | Store_Top Discrete,At_Offset_1 003d e402 | | Load 0x2,0x2 003e e002 | | Load 0x0,0x2 003f 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0040 c402 | | Store 0x2,0x2 0041 00db | | Load_Top At_Offset_3 0042 7002 |p | Jump_Nonzero 0x45 0043 00d8 | | Load_Top At_Offset_0 0044 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0045 4800 |H | Short_Literal 0x0 0046 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0047 TRAP_0018: 0047 0007 | | Action Break_Optional 0048 e402 | | Load 0x2,0x2 0049 e002 | | Load 0x0,0x2 004a 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 004b 6804 |h | Jump_Zero 0x50 004c e402 | | Load 0x2,0x2 004d e002 | | Load 0x0,0x2 004e 181b | | Execute Package,Field_Execute,Field_Number 0x1b 004f c402 | | Store 0x2,0x2 0050 4801 |H | Short_Literal 0x1 0051 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0052 0000 0000 | | .BLANK 0000[0x6] 0058 ; -------------------------------------------------------------------------------------- 0058 ; Debug Table 0058 ; -------------------------------------------------------------------------------------- 0058 0004 0002 | | .DEBUG4 0x0004,0x0002,0x0b90,0x0000,0x0001,0x0000 005e c17d 0d9c | } | .XXX[0x1a2] 0060 b93d d5d1 | = | 0062 c1d5 d17c | || 0064 c0d8 2919 | ) | 0066 0531 4d14 | 1M | 0068 2948 c4c0 |)H | 006a c0c1 7d0d | } | 006c 9cb9 35bd | 5 | 006e 91d5 b195 | | 0070 7d39 85b5 |}9 | 0072 957d 09a5 | } | 0074 85cd 7d2d | }-| 0076 95e5 cc28 | (| 0078 a0a4 2948 | )H| 007a c4c0 c0c1 | | 007c 7d0d 9cb9 |} | 007e 3dd5 d1c1 |= | 0080 d5d1 7cc0 | | | 0082 dc29 1905 | ) | 0084 314d 1429 |1M )| 0086 4d95 b585 |M | 0088 b9d1 a58d | | 008a ccb9 4995 | I | 008c a995 8dd1 | | 008e 7d09 8591 |} | 0090 7d31 c9b5 |}1 | 0092 7d41 c985 |}A | 0094 9db5 85cc | | 0096 2951 4955 |)QIU| 0098 1429 4d95 | )M | 009a b585 b9d1 | | 009c a58d ccb9 | | 009e 31a5 b5a5 |1 | 00a0 d17d 4d95 | }M | 00a2 b585 b9d1 | | 00a4 a58d 7d35 | }5| 00a6 95cd cd85 | | 00a8 9d95 cc28 | (| 00aa 80c8 c0c0 | | 00ac 2948 c4c0 |)H | 00ae c0c1 7d0d | } | 00b0 9cb9 3dc1 | = | 00b2 d1a5 b5a5 | | 00b4 e985 d1a5 | | 00b6 bdb9 7ccc | | | 00b8 c429 1905 | ) | 00ba 314d 1429 |1M )| 00bc 19d1 c0b9 | | 00be 51c9 85b9 |Q | 00c0 cd99 95c9 | | 00c2 7d51 e5c1 |}Q | 00c4 9429 3925 | )9%| 00c6 3029 4d95 |0)M | 00c8 b585 b9d1 | | 00ca a58d ccb9 | | 00cc 4995 a995 |I | 00ce 8dd1 7d4d | }M| 00d0 d185 d195 | | 00d2 b595 b9d1 | | 00d4 7d41 c9bd |}A | 00d6 b5c1 d1cc | | 00d8 2919 0531 |) 1| 00da 4d14 294d |M )M| 00dc 95b5 85b9 | | 00de d1a5 8dcc | | 00e0 b925 9db9 | % | 00e2 bdc9 957d | }| 00e4 25b9 d985 |% | 00e6 b1a5 917d | }| 00e8 4995 c17d |I }| 00ea 4dc1 958d |M | 00ec cc29 1905 | ) | 00ee 314d 1429 |1M )| 00f0 48c4 c0c0 |H | 00f2 c17d 0d9c | } | 00f4 b911 95b1 | | 00f6 d184 c57d | }| 00f8 0dbd 9195 | | 00fa 7d59 a595 |}Y | 00fc dd7d 0dbd | } | 00fe b5c1 85d1 | | 0100 a589 a5b1 | | 0102 a5d1 e429 | )| 0104 1905 314d | 1M| 0106 1429 4d95 | )M | 0108 b585 b9d1 | | 010a a58d ccb9 | | 010c 4db5 7d15 |M } | 010e e1c1 7d51 | }Q| 0110 c985 8d94 | | 0112 2919 0531 |) 1| 0114 4d14 2948 |M )H| 0116 c4c0 c0c1 | | 0118 7d0d 9cb9 |} | 011a 4dc1 85c9 |M | 011c 957c d4c4 | | | 011e 2919 0531 |) 1| 0120 4d14 2948 |M )H| 0122 c4c0 c0c1 | | 0124 7d0d 9cb9 |} | 0126 4dc1 85c9 |M | 0128 957c d4c0 | | | 012a 2919 0531 |) 1| 012c 4d14 2948 |M )H| 012e c4c0 c0c1 | | 0130 7d0d 9cb9 |} | 0132 4dd5 89c1 |M | 0134 c9bd 9dc9 | | 0136 85b5 7d25 | }%| 0138 b9b1 a5b9 | | 013a a5b9 9c29 | )| 013c 1905 314d | 1M| 013e 1429 48c4 | )H | 0140 c0c0 c17d | }| 0142 0d9c b911 | | 0144 9589 d59d | | 0146 7d31 a5cd |}1 | 0148 d1a5 b99c | | 014a 2919 0531 |) 1| 014c 4d14 294d |M )M| 014e 95b5 85b9 | | 0150 d1a5 8dcc | | 0152 b94d b57d | M }| 0154 0d85 b1b1 | | 0156 7d51 c985 |}Q | 0158 8d94 2919 | ) | 015a 0531 4d14 | 1M | 015c 2919 d1c0 |) | 015e b941 c9bd | A | 0160 b5c1 d17d | }| 0162 19bd c97d | }| 0164 4185 cdcd |A | 0166 ddbd c990 | | 0168 2919 0531 |) 1| 016a 4d14 2948 |M )H| 016c c4c0 c0c1 | | 016e 7d0d 9cb9 |} | 0170 4dc1 85c9 |M | 0172 957c d4cc | | | 0174 2919 0531 |) 1| 0176 4d14 2948 |M )H| 0178 c4c0 c0c1 | | 017a 7d0d 9cb9 |} | 017c 4dd5 c1c1 |M | 017e c995 cdcd | | 0180 7d0d bdb9 |} | 0182 cdd1 c985 | | 0184 a5b9 d17d | }| 0186 0da1 958d | | 0188 adcc 2919 | ) | 018a 0531 4d14 | 1M | 018c 294d 95b5 |)M | 018e 85b9 d1a5 | | 0190 8dcc b949 | I| 0192 95a9 958d | | 0194 d17d 0985 | } | 0196 917d 4985 | }I | 0198 d1a5 bdb9 | | 019a 85b1 7d41 | }A| 019c c985 9db5 | | 019e 85cc 2951 | )Q| 01a0 4955 1429 |IU )| 01a2 48c4 c0c0 |H | 01a4 c17d 0d9c | } | 01a6 b94d c185 | M | 01a8 c995 7cd4 | | | 01aa c829 1905 | ) | 01ac 314d 1429 |1M )| 01ae 4d95 b585 |M | 01b0 b9d1 a58d | | 01b2 ccb9 4db5 | M | 01b4 7d4d bdb1 |}M | 01b6 d995 7d51 | }Q| 01b8 c985 8d94 | | 01ba 2919 0531 |) 1| 01bc 4d14 2919 |M ) | 01be d1c0 b949 | I| 01c0 95b5 bdd1 | | 01c2 957d 11a5 | } | 01c4 c995 8dd1 | | 01c6 bdc9 e428 | (| 01c8 8888 2919 | ) | 01ca d1c0 b949 | I| 01cc 95b5 bdd1 | | 01ce 957d 51e5 | }Q | 01d0 c194 2888 | ( | 01d2 8829 4d95 | )M | 01d4 b585 b9d1 | | 01d6 a58d ccb9 | | 01d8 259d b9bd |% | 01da c995 7d25 | }%| 01dc b9d1 95c9 | | 01de 9985 8d95 | | 01e0 7d41 c985 |}A | 01e2 9db5 85cc | | 01e4 2919 0531 |) 1| 01e6 4d14 294d |M )M| 01e8 95b5 85b9 | | 01ea d1a5 8dcc | | 01ec b949 95a9 | I | 01ee 958d d17d | }| 01f0 55b9 9195 |U | 01f2 99a5 b995 | | 01f4 917d 41c9 | }A | 01f6 859d b585 | | 01f8 cc29 5149 | )QI| 01fa 5514 2948 |U )H| 01fc c4c0 c0c1 | | 01fe 7d0d 9cb9 |} |