|
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_5e40f2
└─⟦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 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 000d | | .DEBUG4 0x0004,0x000d,0x9717,0x0000,0x0001,0x0000 005e 959d c985 | | .XXX[0x1a2] 0060 d1a5 bdb8 | | 0062 2919 0531 |) 1| 0064 4d14 2948 |M )H| 0066 c4c0 c0c1 | | 0068 7d0d 9cb9 |} | 006a 51bd cd7d |Q }| 006c 4995 b185 |I | 006e d1a5 d995 | | 0070 7d31 bd85 |}1 | 0072 917d 31a5 | }1 | 0074 b5a5 d028 | (| 0076 80c0 2948 | )H| 0078 c4c0 c0c1 | | 007a 7d0d 9cb9 |} | 007c 1195 89d5 | | 007e 9d7d 59a5 | }Y | 0080 95dd 7d31 | }1| 0082 85e5 95c8 | | 0084 2880 c029 |( )| 0086 4d95 b585 |M | 0088 b9d1 a58d | | 008a ccb9 0db1 | | 008c bdcd 9591 | | 008e 7d41 c9a5 |}A | 0090 d985 d195 | | 0092 7d41 85c9 |}A | 0094 d029 5149 | )QI| 0096 5514 2948 |U )H| 0098 c4c0 c0c1 | | 009a 7d0d 9cb9 |} | 009c 15b9 8589 | | 009e b195 7d11 | } | 00a0 9585 b1b1 | | 00a2 bd8d 85d1 | | 00a4 a5bd b829 | )| 00a6 1905 314d | 1M| 00a8 1429 4d95 | )M | 00aa b585 b9d1 | | 00ac a58d ccb9 | | 00ae 4995 a995 |I | 00b0 8dd1 7d09 | } | 00b2 8591 7d31 | }1| 00b4 c9b5 7d41 | }A| 00b6 c985 9db5 | | 00b8 85cc 2919 | ) | 00ba 0531 4d14 | 1M | 00bc 294d 95b5 |)M | 00be 85b9 d1a5 | | 00c0 8dcc b925 | %| 00c2 9db9 bdc9 | | 00c4 957d 25b9 | }% | 00c6 d985 b1a5 | | 00c8 917d 4995 | }I | 00ca c17d 4dc1 | }M | 00cc 958d cc29 | )| 00ce 5149 5514 |QIU | 00d0 2948 c4c0 |)H | 00d2 c0c1 7d0d | } | 00d4 9cb9 1195 | | 00d6 b1d1 84c5 | | 00d8 7d0d bd91 |} | 00da 957d 59a5 | }Y | 00dc 95dd 7d0d | } | 00de bdb5 c185 | | 00e0 d1a5 89a5 | | 00e2 b1a5 d1e4 | | 00e4 2951 4955 |)QIU| 00e6 1429 4d95 | )M | 00e8 b585 b9d1 | | 00ea a58d ccb9 | | 00ec 4995 a995 |I | 00ee 8dd1 7d09 | } | 00f0 8591 7d49 | }I| 00f2 85d1 a5bd | | 00f4 b985 b17d | }| 00f6 41c9 859d |A | 00f8 b585 cc29 | )| 00fa 1905 314d | 1M| 00fc 1429 4d95 | )M | 00fe b585 b9d1 | | 0100 a58d ccb9 | | 0102 259d b9bd |% | 0104 c995 7d25 | }%| 0106 b9d1 95c9 | | 0108 9985 8d95 | | 010a 7d41 c985 |}A | 010c 9db5 85cc | | 010e 2919 0531 |) 1| 0110 4d14 294d |M )M| 0112 95b5 85b9 | | 0114 d1a5 8dcc | | 0116 b949 95a9 | I | 0118 958d d17d | }| 011a 55b9 9195 |U | 011c 99a5 b995 | | 011e 917d 41c9 | }A | 0120 859d b585 | | 0122 cc29 1905 | ) | 0124 314d 1429 |1M )| 0126 48c4 c0c0 |H | 0128 c17d 0d9c | } | 012a b951 95c9 | Q | 012c b5a5 b985 | | 012e b17d 158d | } | 0130 a1bc 2919 | ) | 0132 0531 4d14 | 1M | 0134 2828 2885 |((( | 0136 0d3d 3535 | =55| 0138 0539 114c | 9 L| 013a b94d 654d | MeM| 013c 5115 357d |Q 5}| 013e 3505 2539 |5 %9| 0140 5115 3905 |Q 9 | 0142 390d 14b9 |9 | 0144 0d3d 3919 | =9 | 0146 251d 5549 |% UI| 0148 0551 253d | Q%=| 014a 394c b94d |9L M| 014c 354d 14c4 |5M | 014e c57c e57c | | || 0150 c17d 4d51 | }MQ| 0152 0551 14b9 | Q | 0154 1561 413d | aA=| 0156 4951 4c29 |IQL)| 0158 18c8 d8c8 | | 015a ccd0 c9f1 | | 015c f1f0 80e4 | | 015e bcc4 dcbc | | 0160 e4c0 80c4 | | 0162 c4e8 cce0 | | 0164 e8c0 c5f1 | | 0166 f1f0 cdf0 | | 0168 2905 3915 |) 9 | 016a 515d 3d49 |Q]=I| 016c 2d7d 4155 |-}AU| 016e 0931 250c | 1% | 0170 f4f9 495d | I]| 0172 f028 850d | ( | 0174 3d35 3505 |=55 | 0176 3911 4cb9 |9 L | 0178 4d65 4d51 |MeMQ| 017a 1535 7d35 | 5}5| 017c 0525 3951 | %9Q| 017e 1539 0539 | 9 9| 0180 0d14 b90d | | 0182 3d39 1925 |=9 %| 0184 1d55 4905 | UI | 0186 5125 3d39 |Q%=9| 0188 4cb9 4d35 |L M5| 018a 4d14 c4c5 |M | 018c 7ce5 7cc1 || | | 018e 7d4d 5105 |}MQ | 0190 5114 b925 |Q %| 0192 3541 3d49 |5A=I| 0194 514c 2918 |QL) | 0196 c8d8 c8cc | | 0198 d0c9 f0b4 | | 019a c4d0 d0c1 | | 019c f1f0 80e4 | | 019e bcc4 dcbc | | 01a0 e4c0 80c4 | | 01a2 c4e8 ccdc | | 01a4 e8d4 e5f1 | | 01a6 f1f0 cdf0 | | 01a8 2905 3915 |) 9 | 01aa 515d 3d49 |Q]=I| 01ac 2d7d 4155 |-}AU| 01ae 0931 250c | 1% | 01b0 f4f9 495d | I]| 01b2 f028 850d | ( | 01b4 3d35 3505 |=55 | 01b6 3911 4cb9 |9 L | 01b8 4d65 4d51 |MeMQ| 01ba 1535 7d35 | 5}5| 01bc 0525 3951 | %9Q| 01be 1539 0539 | 9 9| 01c0 0d14 b90d | | 01c2 3d39 1925 |=9 %| 01c4 1d55 4905 | UI | 01c6 5125 3d39 |Q%=9| 01c8 4cb9 4d35 |L M5| 01ca 4d14 c4c5 |M | 01cc 7ce5 7cc1 || | | 01ce 7d4d 5105 |}MQ | 01d0 5114 b925 |Q %| 01d2 3541 3d49 |5A=I| 01d4 514d 7d25 |QM}%| 01d6 3505 1d14 |5 | 01d8 2918 c8d8 |) | 01da ccdc e0c9 | | 01dc f0b4 c4d0 | | 01de d0c1 f1f0 | | 01e0 80e4 bcc4 | | 01e2 d0bc e4c0 | | 01e4 80c4 c4e8 | | 01e6 c0d8 e8c8 | | 01e8 c9f1 5115 | Q | 01ea 6151 f1f0 |aQ | 01ec cdf0 2905 | ) | 01ee 3915 515d |9 Q]| 01f0 3d49 2d7d |=I-}| 01f2 4155 0931 |AU 1| 01f4 250c f4f9 |% | 01f6 495d f028 |I] (| 01f8 850d 3d35 | =5| 01fa 3505 3911 |5 9 | 01fc 4cb9 4d65 |L Me| 01fe 4d51 1535 |MQ 5|