|
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_0d2ce3
└─⟦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 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 e001 | | Load 0x0,0x1 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 e001 | | Load 0x0,0x1 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 e001 | | Load 0x0,0x1 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 e001 | | Load 0x0,0x1 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 e001 | | Load 0x0,0x1 004a 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 004b 6804 |h | Jump_Zero 0x50 004c e402 | | Load 0x2,0x2 004d e001 | | Load 0x0,0x1 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 0000 | | .DEBUG4 0x0004,0x0000,0x7818,0x0000,0x0001,0x0000 005e 27a8 0064 |' d| .XXX[0x1a2] 0060 004c 0000 | L | 0062 000c 0130 | 0| 0064 004d 4555 | MEU| 0066 1555 157d | U }| 0068 4d15 4959 |M IY| 006a 250d 14b9 |% | 006c 4d15 4959 |M IY| 006e 14f5 ee51 | Q| 0070 fa40 8c00 | @ | 0072 1d39 1551 | 9 Q| 0074 5d3d 492c |]=I,| 0076 5c00 6d51 |\ mQ| 0078 4905 394d |I 9M| 007a 413d 4951 |A=IQ| 007c 7d11 1519 |} | 007e 4cb9 3915 |L 9 | 0080 515d 3d49 |Q]=I| 0082 2d7d 3905 |-}9 | 0084 3514 2c00 |5 , | 0086 1951 0d40 | Q @| 0088 bd25 4000 | %@ | 008a 0000 0008 | | 008c 0130 004d | 0 M| 008e 4555 1555 |EU U| 0090 157d 4d15 | }M | 0092 4959 250d |IY% | 0094 14b9 4d51 | MQ| 0096 0549 50f5 | IP | 0098 ee51 fa40 | Q @| 009a 8c00 1d39 | 9| 009c 1551 5d3d | Q]=| 009e 492c 5c00 |I,\ | 00a0 6d51 4905 |mQI | 00a2 394d 413d |9MA=| 00a4 4951 7d11 |IQ} | 00a6 1519 4cb9 | L | 00a8 3915 515d |9 Q]| 00aa 3d49 2d7d |=I-}| 00ac 3905 3514 |9 5 | 00ae 2c00 1951 |, Q| 00b0 0d40 bd25 | @ %| 00b2 4000 0000 |@ | 00b4 0004 0044 | D| 00b6 0035 4555 | 5EU| 00b8 1555 157d | U }| 00ba 4d15 4959 |M IY| 00bc 250d 14f9 |% | 00be f00c 0000 | | 00c0 00d8 0035 | 5| 00c2 4555 1555 |EU U| 00c4 157d 4d15 | }M | 00c6 4959 250d |IY% | 00c8 1408 0000 | | 00ca 0004 0004 | | 00cc 0021 27a8 | !' | 00ce 0064 004c | d L| 00d0 0004 0000 | | 00d2 0000 003c | <| 00d4 0008 0004 | | 00d6 0004 0034 | 4| 00d8 000c 0004 | | 00da 0004 0038 | 8| 00dc 1000 0000 | | 00de 0404 0000 | | 00e0 01d4 0800 | | 00e2 0000 1c00 | | 00e4 1c00 1c74 | t| 00e6 1e01 0400 | | 00e8 1800 1000 | | 00ea 3d51 1531 |=Q 1| 00ec 3915 517d |9 Q}| 00ee 4149 3d51 |AI=Q| 00f0 3d0d 3d30 |= =0| 00f2 0014 001d | | 00f4 2539 4d51 |%9MQ| 00f6 0531 3000 | 10 | 00f8 0800 1151 | Q| 00fa 154d 5000 | MP | 00fc 0400 2d51 | -Q| 00fe 1531 3915 | 19 | 0100 517d 413d |Q}A=| 0102 4950 0018 |IP | 0104 001d 4915 | I | 0106 3115 054d |1 M| 0108 1400 0c00 | | 010a 3151 1531 |1Q 1| 010c 3915 517d |9 Q}| 010e 513d 3d31 |Q==1| 0110 4c00 1c00 |L | 0112 490d 3d11 |I = | 0114 14c4 c17c | || 0116 c57c c57d | | }| 0118 2539 4d51 |%9MQ| 011a 0531 3000 | 10 | 011c 0000 01f5 | | 011e 4149 2535 |AI%5| 0120 0549 6480 | Id | 0122 f4f8 8119 | | 0124 0531 4d14 | 1M | 0126 b081 4d55 | MU| 0128 094d 654d | MeM| 012a 5115 3480 |Q 4 | 012c f4f8 8080 | | 012e c8c0 c0c8 | | 0130 c8d0 c8e0 | | 0132 e4c0 d8e4 | | 0134 d0d8 d8c8 | | 0136 b081 4149 | AI| 0138 2535 0549 |%5 I| 013a 657d 3905 |e}9 | 013c 3514 80f4 |5 | 013e f880 8551 | Q| 0140 3d3d 314c |==1L| 0142 b939 1551 | 9 Q| 0144 5d3d 492d |]=I-| 0146 2539 1cb9 |%9 | 0148 5115 3139 |Q 19| 014a 1551 7d51 | Q}Q| 014c 3d3d 314c |==1L| 014e b081 4149 | AI| 0150 2535 0549 |%5 I| 0152 657d 3505 |e}5 | 0154 0d21 2539 | !%9| 0156 1480 f4f8 | | 0158 81dd 85cd | | 015a a189 d5c9 | | 015c b808 0000 | | 015e 0330 0049 | 0 I| 0160 0d3d 1114 | = | 0162 c4c1 7cc5 | | | 0164 7cc5 7d25 || }%| 0166 394d 5105 |9MQ | 0168 3130 0800 |10 | 016a 0000 0400 | | 016c 1c00 0000 | | 016e 0400 1c74 | t| 0170 1e01 0400 | | 0172 1800 0000 | | 0174 0402 7c00 | | | 0176 490d 3d11 |I = | 0178 14c4 c17c | || 017a c57c c57d | | }| 017c 2539 4d51 |%9MQ| 017e 0531 30f5 | 10 | 0180 ee51 fa40 | Q @| 0182 8c00 3151 | 1Q| 0184 2115 7d05 |! } | 0186 0d51 2559 | Q%Y| 0188 2551 645c |%Qd\| 018a 003d 4d51 | =MQ| 018c 0539 1105 | 9 | 018e 4910 b94d |I M| 0190 5149 2539 |QI%9| 0192 1c40 045c | @ \| 0194 0075 050d | u | 0196 5125 5925 |Q%Y%| 0198 5164 b951 |Qd Q| 019a 2115 7d0d |! } | 019c 5549 4915 |UII | 019e 3951 7d05 |9Q} | 01a0 0d51 2559 | Q%Y| 01a2 2551 664d |%QfM| 01a4 fa40 8c00 | @ | 01a6 254d 5509 |%MU | 01a8 4d65 4d51 |MeMQ| 01aa 1534 5c00 | 4\ | 01ac 3d4d 5105 |=MQ | 01ae 3911 0549 |9 I| 01b0 10b9 4d51 | MQ| 01b2 4925 391c |I%9 | 01b4 2c00 7885 |, x | 01b6 51bd bdb1 |Q | 01b8 ccb9 3995 | 9 | 01ba d1dd bdc9 | | 01bc ada5 b99c | | 01be b951 95b1 | Q | 01c0 b995 d17d | }| 01c2 51bd bdb1 |Q | 01c4 cc00 0800 | | 01c6 0005 1000 | | 01c8 1d25 394d | %9M| 01ca 5105 3130 |Q 10| 01cc 0800 0000 | | 01ce 0800 1400 | | 01d0 0000 0800 | | 01d2 1c74 1e01 | t | 01d4 0400 1800 | | 01d6 0000 0802 | | 01d8 5000 1d25 |P %| 01da 394d 5105 |9MQ | 01dc 3130 f5ee |10 | 01de 51fa 408c |Q @ | 01e0 0031 5121 | 1Q!| 01e2 157d 050d | } | 01e4 5125 5925 |Q%Y%| 01e6 5164 5c00 |Qd\ | 01e8 3d4d 5105 |=MQ | 01ea 3911 0549 |9 I| 01ec 10b9 4d51 | MQ| 01ee 4925 391c |I%9 | 01f0 4004 5c00 |@ \ | 01f2 7505 0d51 |u Q| 01f4 2559 2551 |%Y%Q| 01f6 64b9 5121 |d Q!| 01f8 157d 0d55 | } U| 01fa 4949 1539 |II 9| 01fc 517d 050d |Q} | 01fe 5125 5925 |Q%Y%|