|
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 001b | | .CONST 0x001b ; Address of begin 0019 0004 | | .CONST 0x0004 ; Address of exception handler 001a 0001 | | .CONST 0x0001 ; Number of locals 001b BODY_0018: 001b INIT_0018: 001b 4800 |H | Short_Literal 0x0 001c 4800 |H | Short_Literal 0x0 001d 4800 |H | Short_Literal 0x0 001e 4801 |H | Short_Literal 0x1 001f 4801 |H | Short_Literal 0x1 0020 4800 |H | Short_Literal 0x0 0021 4800 |H | Short_Literal 0x0 0022 4801 |H | Short_Literal 0x1 0023 4800 |H | Short_Literal 0x0 0024 4800 |H | Short_Literal 0x0 0025 4801 |H | Short_Literal 0x1 0026 4800 |H | Short_Literal 0x0 0027 e5ff | | Load 0x2,-0x1 0028 0092 0045 | E| Action Push_String_Extended,0x45 ; "_Errors" 002a 01cc | | Execute Vector,Catenate 002b e5ff | | Load 0x2,-0x1 002c e001 | | Load 0x0,0x1 002d 1815 | | Execute Package,Field_Execute,Field_Number 0x15 002e 4800 |H | Short_Literal 0x0 002f 4800 |H | Short_Literal 0x0 0030 4800 |H | Short_Literal 0x0 0031 4800 |H | Short_Literal 0x0 0032 4800 |H | Short_Literal 0x0 0033 4800 |H | Short_Literal 0x0 0034 4800 |H | Short_Literal 0x0 0035 4801 |H | Short_Literal 0x1 0036 4800 |H | Short_Literal 0x0 0037 4800 |H | Short_Literal 0x0 0038 4800 |H | Short_Literal 0x0 0039 4800 |H | Short_Literal 0x0 003a e5ff | | Load 0x2,-0x1 003b 0092 0046 | F| Action Push_String_Extended,0x46 ; "_Negatives" 003d 01cc | | Execute Vector,Catenate 003e e5ff | | Load 0x2,-0x1 003f 0092 0045 | E| Action Push_String_Extended,0x45 ; "_Errors" 0041 01cc | | Execute Vector,Catenate 0042 e001 | | Load 0x0,0x1 0043 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0044 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0045 ; -------------------------------------------------------------------------------------- 0045 ; STRING TABLE 0045 ; -------------------------------------------------------------------------------------- 0045 0006 | | .STRTAB 0x0006->0x0048 ; "_Errors" 0046 000b | | .STRTAB 0x000b->0x004b ; "_Negatives" 0047 0013 | | .STREND 0x0013->0x0050 0048 5f45 7272 |_Err| .STRTAB_STRINGS 0051 0000 0000 | | .BLANK 0000[0x7] 0058 ; -------------------------------------------------------------------------------------- 0058 ; Debug Table 0058 ; -------------------------------------------------------------------------------------- 0058 0004 0000 | | .DEBUG4 0x0004,0x0000,0x77f1,0x0000,0x0001,0x0000 005e bc00 ad51 | Q| .XXX[0x1a2] 0060 3d35 094d |=5 M| 0062 513d 3915 |Q=9 | 0064 7d4d 0559 |}M Y| 0066 1511 7d4d | }M| 0068 5105 5115 |Q Q | 006a 7d49 1558 |}I X| 006c c4b9 513d | Q=| 006e 3509 4d51 |5 MQ| 0070 3d39 157d |=9 }| 0072 2115 0511 |! | 0074 1548 f9f0 | H | 0076 0000 00f8 | | 0078 0c0c 007d | }| 007a 513d 3509 |Q=5 | 007c 4d51 3d39 |MQ=9| 007e 157d 4d05 | }M | 0080 5915 117d |Y }| 0082 4d51 0551 |MQ Q| 0084 157d 4915 | }I | 0086 58c4 b911 |X | 0088 0551 04ee | Q | 008a 65c8 e640 |e @| 008c 7000 0d21 |p !| 008e 1149 985c | I \| 0090 00c5 513d | Q=| 0092 3509 4d51 |5 MQ| 0094 3d39 157d |=9 }| 0096 4d05 5915 |M Y | 0098 117d 4d51 | }MQ| 009a 0551 157d | Q }| 009c 4915 58c4 |I X | 009e b951 3d35 | Q=5| 00a0 094d 513d | MQ=| 00a2 3915 7d21 |9 }!| 00a4 1505 1115 | | 00a6 48b9 4d51 |H MQ| 00a8 0551 1400 | Q | 00aa 00e6 4070 | @p| 00ac 000d 253d | %=| 00ae 4198 5c00 |A \ | 00b0 a551 3d35 | Q=5| 00b2 094d 513d | MQ=| 00b4 3915 7d4d |9 }M| 00b6 0559 1511 | Y | 00b8 7d4d 5105 |}MQ | 00ba 5115 7d49 |Q }I| 00bc 1558 c4b9 | X | 00be 253d 417d |%=A}| 00c0 2539 193c |%9 <| 00c2 b94d 5105 | MQ | 00c4 5114 0000 |Q | 00c6 e640 7000 | @p | 00c8 0d35 1535 | 5 5| 00ca 985c 00a5 | \ | 00cc 513d 3509 |Q=5 | 00ce 4d51 3d39 |MQ=9| 00d0 157d 4d05 | }M | 00d2 5915 117d |Y }| 00d4 4d51 0551 |MQ Q| 00d6 157d 4915 | }I | 00d8 58c4 b935 |X 5| 00da 1535 7d25 | 5}%| 00dc 3919 3cb9 |9 < | 00de 4d51 0551 |MQ Q| 00e0 1400 00e6 | | 00e2 4070 000d |@p | 00e4 1925 5598 | %U | 00e6 5c00 a551 |\ Q| 00e8 3d35 094d |=5 M| 00ea 513d 3915 |Q=9 | 00ec 7d4d 0559 |}M Y| 00ee 1511 7d4d | }M| 00f0 5105 5115 |Q Q | 00f2 7d49 1558 |}I X| 00f4 c4b9 1925 | %| 00f6 557d 2539 |U}%9| 00f8 193c b94d | < M| 00fa 5105 5114 |Q Q | 00fc 0000 e640 | @| 00fe 7000 0d4d |p M| 0100 1545 985c | E \| 0102 00a5 513d | Q=| 0104 3509 4d51 |5 MQ| 0106 3d39 157d |=9 }| 0108 4d05 5915 |M Y | 010a 117d 4d51 | }MQ| 010c 0551 157d | Q }| 010e 4915 58c4 |I X | 0110 b94d 1545 | M E| 0112 7d25 3919 |}%9 | 0114 3cb9 4d51 |< MQ| 0116 0551 1400 | Q | 0118 00e6 4070 | @p| 011a 000d 5165 | Qe| 011c 4198 5c00 |A \ | 011e a551 3d35 | Q=5| 0120 094d 513d | MQ=| 0122 3915 7d4d |9 }M| 0124 0559 1511 | Y | 0126 7d4d 5105 |}MQ | 0128 5115 7d49 |Q }I| 012a 1558 c4b9 | X | 012c 5165 417d |QeA}| 012e 2539 193c |%9 <| 0130 b94d 5105 | MQ | 0132 5114 0000 |Q | 0134 e640 7000 | @p | 0136 0d59 0531 | Y 1| 0138 985c 00a5 | \ | 013a 513d 3509 |Q=5 | 013c 4d51 3d39 |MQ=9| 013e 157d 4d05 | }M | 0140 5915 117d |Y }| 0142 4d51 0551 |MQ Q| 0144 157d 4915 | }I | 0146 58c4 b959 |X Y| 0148 0531 7d25 | 1}%| 014a 3919 3cb9 |9 < | 014c 4d51 0551 |MQ Q| 014e 1400 00e6 | | 0150 4070 000d |@p | 0152 4d65 4d98 |MeM | 0154 5c00 a551 |\ Q| 0156 3d35 094d |=5 M| 0158 513d 3915 |Q=9 | 015a 7d4d 0559 |}M Y| 015c 1511 7d4d | }M| 015e 5105 5115 |Q Q | 0160 7d49 1558 |}I X| 0162 c4b9 4d65 | Me| 0164 4d7d 2539 |M}%9| 0166 193c b94d | < M| 0168 5105 5114 |Q Q | 016a 0000 e640 | @| 016c 7000 0d49 |p I| 016e 151d 985c | \| 0170 00a5 513d | Q=| 0172 3509 4d51 |5 MQ| 0174 3d39 157d |=9 }| 0176 4d05 5915 |M Y | 0178 117d 4d51 | }MQ| 017a 0551 157d | Q }| 017c 4915 58c4 |I X | 017e b949 151d | I | 0180 7d25 3919 |}%9 | 0182 3cb9 4d51 |< MQ| 0184 0551 1400 | Q | 0186 00e6 4070 | @p| 0188 000d 1939 | 9| 018a 3198 5c00 |1 \ | 018c a551 3d35 | Q=5| 018e 094d 513d | MQ=| 0190 3915 7d4d |9 }M| 0192 0559 1511 | Y | 0194 7d4d 5105 |}MQ | 0196 5115 7d49 |Q }I| 0198 1558 c4b9 | X | 019a 1939 317d | 91}| 019c 2539 193c |%9 <| 019e b94d 5105 | MQ | 01a0 5114 0000 |Q | 01a2 e640 7000 | @p | 01a4 0d51 490d | QI | 01a6 985c 00a5 | \ | 01a8 513d 3509 |Q=5 | 01aa 4d51 3d39 |MQ=9| 01ac 157d 4d05 | }M | 01ae 5915 117d |Y }| 01b0 4d51 0551 |MQ Q| 01b2 157d 4915 | }I | 01b4 58c4 b951 |X Q| 01b6 490d 7d25 |I }%| 01b8 3919 3cb9 |9 < | 01ba 4d51 0551 |MQ Q| 01bc 1400 00e6 | | 01be 4070 0019 |@p | 01c0 0d3d 3919 | =9 | 01c2 251d 985c |% \| 01c4 00b1 513d | Q=| 01c6 3509 4d51 |5 MQ| 01c8 3d39 157d |=9 }| 01ca 4d05 5915 |M Y | 01cc 117d 4d51 | }MQ| 01ce 0551 157d | Q }| 01d0 4915 58c4 |I X | 01d2 b90d 3d39 | =9| 01d4 1925 1d7d | % }| 01d6 2539 193c |%9 <| 01d8 b94d 5105 | MQ | 01da 5114 0000 |Q | 01dc e640 7000 | @p | 01de 0949 1998 | I | 01e0 5c00 b951 |\ Q| 01e2 3d35 094d |=5 M| 01e4 513d 3915 |Q=9 | 01e6 7d4d 0559 |}M Y| 01e8 1511 7d4d | }M| 01ea 5105 5115 |Q Q | 01ec 7d49 1558 |}I X| 01ee c4b9 4915 | I | 01f0 1d25 4d51 | %MQ| 01f2 1549 7d25 | I}%| 01f4 3919 3cb9 |9 < | 01f6 4d51 0551 |MQ Q| 01f8 1400 0000 | | 01fa 0000 0000 | | 01fc 8006 a400 | | 01fe a551 3d35 | Q=5|