|
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_5850da
└─⟦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 002c | , | .CONST 0x002c ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0025 | % | .CONST 0x0025 ; Number of locals 000b INIT_0008: 000b 029a 0033 | 3| Declare_Subprogram INIT_0030,For_Outer_Call,Visible,Unelaborated 000d 00bf | | Action Accept_Activation 000e e001 | | Load 0x0,0x1 000f e002 | | Load 0x0,0x2 0010 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0011 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0012 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0013 1d12 | | Execute_Immediate Reference_Lex_1,0x12 0014 1d13 | | Execute_Immediate Reference_Lex_1,0x13 0015 1d14 | | Execute_Immediate Reference_Lex_1,0x14 0016 1d15 | | Execute_Immediate Reference_Lex_1,0x15 0017 1d16 | | Execute_Immediate Reference_Lex_1,0x16 0018 1d17 | | Execute_Immediate Reference_Lex_1,0x17 0019 1d18 | | Execute_Immediate Reference_Lex_1,0x18 001a 1d19 | | Execute_Immediate Reference_Lex_1,0x19 001b 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 001c 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 001d 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 001e 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 001f 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 0020 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 0021 1d20 | | Execute_Immediate Reference_Lex_1,0x20 0022 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 0023 1d22 | " | Execute_Immediate Reference_Lex_1,0x22 0024 1d23 | # | Execute_Immediate Reference_Lex_1,0x23 0025 e003 | | Load 0x0,0x3 0026 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0027 0387 | | Declare_Variable Package 0028 00d8 | | Load_Top At_Offset_0 0029 020f | | Execute Module,Activate 002a 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24 002b 00c7 | | Action Elaborate_Subprogram 002c BODY_0008: 002c 00bc | | Action Signal_Activated 002d 00bb | | Action Signal_Completion 002e 0000 0000 | | .XXX[0x2] 0030 ; -------------------------------------------------------------------------------------- 0030 ; SUBPROGRAM 0030 ; -------------------------------------------------------------------------------------- 0030 0039 | 9 | .CONST 0x0039 ; Address of begin 0031 0004 | | .CONST 0x0004 ; Address of exception handler 0032 0002 | | .CONST 0x0002 ; Number of locals 0033 INIT_0030: 0033 e003 | | Load 0x0,0x3 0034 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0035 02c7 | | Declare_Variable Any 0036 e225 | % | Load 0x1,0x25 0037 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0038 a402 | | Store_Unchecked 0x2,0x2 0039 BODY_0030: 0039 00db | | Load_Top At_Offset_3 003a 00d9 | | Load_Top At_Offset_1 003b e003 | | Load 0x0,0x3 003c 180f | | Execute Package,Field_Execute,Field_Number 0xf 003d 4502 |E | Exit_Suprogram New_Top_Offset 0x2 003e 0000 0000 | | .XXX[0x2] 0040 ; -------------------------------------------------------------------------------------- 0040 ; Debug Table 0040 ; -------------------------------------------------------------------------------------- 0040 0004 000d | | .DEBUG4 0x0004,0x000d,0x5168,0x0000,0x0001,0x0000 0046 4d41 150d |MA | .XXX[0x15] 0048 2505 317d |% 1}| 004a 2511 1539 |% 9| 004c 5125 1925 |Q% %| 004e 1549 4ce1 | IL | 0050 985c 0041 | \ A| 0052 4d51 0539 |MQ 9| 0054 1105 4910 | I | 0056 b939 0551 | 9 Q| 0058 5549 0530 |UI 0| 005a 0020 | | 005b 0000 0000 | | .BLANK 0000[0x4] 005f 2000 0001 | | .XXX[0x1a1] 0061 3c02 0c00 |< | 0063 b94d 1535 | M 5| 0065 0539 5125 | 9Q%| 0067 0d4d 7d11 | M} | 0069 1519 4cb9 | L | 006b 0d21 150d | ! | 006d 2d25 391c |-%9 | 006f b939 3d7d | 9=}| 0071 5905 3155 |Y 1U| 0073 1511 7d3d | }=| 0075 0929 150d | ) | 0077 517d 2d25 |Q}-%| 0079 3911 4ce1 |9 L | 007b 985c 00c1 | \ | 007d 4d15 3505 |M 5 | 007f 3951 250d |9Q% | 0081 4d7d 1115 |M} | 0083 194c b90d | L | 0085 2115 0d2d |! -| 0087 2539 1cb9 |%9 | 0089 5905 3155 |Y 1U| 008b 1511 7d3d | }=| 008d 0929 150d | ) | 008f 517d 2d25 |Q}-%| 0091 3911 7d05 |9 } | 0093 4949 0564 |II d| 0095 0006 9e2a | *| 0097 9058 0059 | X Y| 0099 4d51 0539 |MQ 9| 009b 1105 4910 | I | 009d b909 3d3d | ==| 009f 3115 0538 |1 8| 00a1 b919 0531 | 1| 00a3 4d14 0000 |M | 00a5 01d8 02c4 | | 00a7 00c9 4d15 | M | 00a9 3505 3951 |5 9Q| 00ab 250d 4d7d |% M}| 00ad 1115 194c | L| 00af b941 4915 | AI | 00b1 1115 1925 | %| 00b3 3915 117d |9 }| 00b5 1539 5925 | 9Y%| 00b7 493d 3935 |I=95| 00b9 1539 517d | 9Q}| 00bb 1115 194c | L| 00bd b925 4d7d | %M}| 00bf 3955 3130 |9U10| 00c1 f5ea 51fa | Q | 00c3 408c 006d |@ m| 00c5 5121 157d |Q! }| 00c7 2539 5115 |%9Q | 00c9 1d15 497d | I}| 00cb 5165 4115 |QeA | 00cd 7d11 154d |} M| 00cf 0d49 2541 | I%A| 00d1 513d 485c |Q=H\| 00d3 0109 4d15 | M | 00d5 3505 3951 |5 9Q| 00d7 250d 4d7d |% M}| 00d9 1115 194c | L| 00db b941 4915 | AI | 00dd 1115 1925 | %| 00df 3915 117d |9 }| 00e1 1539 5925 | 9Y%| 00e3 493d 3935 |I=95| 00e5 1539 517d | 9Q}| 00e7 1115 194c | L| 00e9 b925 3951 | %9Q| 00eb 151d 1549 | I| 00ed 7d51 6541 |}QeA| 00ef 157d 1115 | } | 00f1 4d0d 4925 |M I%| 00f3 4151 3d48 |AQ=H| 00f5 005c 0041 | \ A| 00f7 4d51 0539 |MQ 9| 00f9 1105 4910 | I | 00fb b909 3d3d | ==| 00fd 3115 0538 |1 8| 00ff 0000 0002 | | 0101 b800 d800 | | 0103 c54d 1535 | M 5| 0105 0539 5125 | 9Q%| 0107 0d4d 7d11 | M} | 0109 1519 4cb9 | L | 010b 4149 1511 |AI | 010d 1519 2539 | %9| 010f 1511 7d15 | } | 0111 3959 2549 |9Y%I| 0113 3d39 3515 |=95 | 0115 3951 7d11 |9Q} | 0117 1519 4cb9 | L | 0119 3d09 2915 |= ) | 011b 0d50 ee65 | P e| 011d c400 0001 | | 011f 7c05 b000 || | 0121 754d 1535 |uM 5| 0123 0539 5125 | 9Q%| 0125 0d4d 7d11 | M} | 0127 1519 4cb9 | L | 0129 0d21 150d | ! | 012b 2d25 391c |-%9 | 012d b909 5525 | U%| 012f 3110 f5ea |1 | 0131 51fa 408c |Q @ | 0133 0049 5905 | IY | 0135 3125 117d |1% }| 0137 3d09 2915 |= ) | 0139 0d51 7d2d | Q}-| 013b 2539 114c |%9 L| 013d 5c00 dd4d |\ M| 013f 1535 0539 | 5 9| 0141 5125 0d4d |Q% M| 0143 7d11 1519 |} | 0145 4cb9 0d21 |L !| 0147 150d 2d25 | -%| 0149 391c b935 |9 5| 014b 254d 0d15 |%M | 014d 3131 0539 |11 9| 014f 153d 554d | =UM| 0151 7d3d 0929 |}= )| 0153 150d 517d | Q}| 0155 2d25 3911 |-%9 | 0157 7d05 4949 |} II| 0159 0564 01fa | d | 015b 408c 0041 |@ A| 015d 4915 4555 |I EU| 015f 2549 1511 |%I | 0161 7d41 4905 |}AI | 0163 1d35 054c | 5 L| 0165 5c00 914d |\ M| 0167 1535 0539 | 5 9| 0169 5125 0d4d |Q% M| 016b 7d11 1519 |} | 016d 4cb9 0d21 |L !| 016f 150d 2d25 | -%| 0171 391c b941 |9 A| 0173 4905 1d35 |I 5| 0175 057d 0549 | } I| 0177 4905 6458 |I dX| 0179 0089 4d15 | M | 017b 3505 3951 |5 9Q| 017d 250d 4d7d |% M}| 017f 1115 194c | L| 0181 b90d 2115 | ! | 0183 0d2d 2539 | -%9| 0185 1cb9 393d | 9=| 0187 7d41 4905 |}AI | 0189 1d35 054d | 5 M| 018b fa40 8c00 | @ | 018d 4941 493d |IAI=| 018f 2125 0925 |!% %| 0191 5115 117d |Q }| 0193 4149 051d |AI | 0195 3505 4c5c |5 L\| 0197 0091 4d15 | M | 0199 3505 3951 |5 9Q| 019b 250d 4d7d |% M}| 019d 1115 194c | L| 019f b90d 2115 | ! | 01a1 0d2d 2539 | -%9| 01a3 1cb9 4149 | AI| 01a5 051d 3505 | 5 | 01a7 7d05 4949 |} II| 01a9 0564 5800 | dX | 01ab 894d 1535 | M 5| 01ad 0539 5125 | 9Q%| 01af 0d4d 7d11 | M} | 01b1 1519 4cb9 | L | 01b3 0d21 150d | ! | 01b5 2d25 391c |-%9 | 01b7 b939 3d7d | 9=}| 01b9 4149 051d |AI | 01bb 3505 4c5c |5 L\| 01bd 00c1 4d15 | M | 01bf 3505 3951 |5 9Q| 01c1 250d 4d7d |% M}| 01c3 1115 194c | L| 01c5 b90d 2115 | ! | 01c7 0d2d 2539 | -%9| 01c9 1cb9 3525 | 5%| 01cb 4d0d 1531 |M 1| 01cd 3105 3915 |1 9 | 01cf 3d55 4d7d |=UM}| 01d1 3d09 2915 |= ) | 01d3 0d51 7d4d | Q}M| 01d5 1550 0000 | P | 01d7 0004 e002 | | 01d9 5400 e54d |T M| 01db 1535 0539 | 5 9| 01dd 5125 0d4d |Q% M| 01df 7d11 1519 |} | 01e1 4cb9 4149 |L AI| 01e3 1511 1519 | | 01e5 2539 1511 |%9 | 01e7 7d15 3959 |} 9Y| 01e9 2549 3d39 |%I=9| 01eb 3515 3951 |5 9Q| 01ed 7d11 1519 |} | 01ef 4cb9 1d15 |L | 01f1 517d 1925 |Q} %| 01f3 3915 7d11 |9 } | 01f5 1531 5104 | 1Q | 01f7 f5ea 51fa | Q | 01f9 408c 0019 |@ | 01fb 2105 3911 |! 9 | 01fd 3114 5c00 |1 \ | 01ff d94d | M |