|
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_03b8fe
└─⟦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 0038 | 8 | .CONST 0x0038 ; 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 000d | | .CONST 0x000d ; 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 00db | | Load_Top At_Offset_3 001c 6804 |h | Jump_Zero 0x21 001d 7801 |x | Jump 0x1f 001e 0000 | | .XXX[0x1] 001f 006f | o | Action Break_Unconditional 0020 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0021 00da | | Load_Top At_Offset_2 0022 01db | | Execute Vector,Length 0023 6809 |h | Jump_Zero 0x2d 0024 4800 |H | Short_Literal 0x0 0025 00db | | Load_Top At_Offset_3 0026 e002 | | Load 0x0,0x2 0027 183a | : | Execute Package,Field_Execute,Field_Number 0x3a 0028 8003 | | Call 0x0,0x3 0029 4803 |H | Short_Literal 0x3 002a e004 | | Load 0x0,0x4 002b e005 | | Load 0x0,0x5 002c 00ad | | QQ_Action Package,Field_Execute_Dynamic 002d 7801 |x | Jump 0x2f 002e 0008 | | .XXX[0x1] 002f 006f | o | Action Break_Unconditional 0030 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0031 0000 0000 | | .BLANK 0000[0x7] 0038 ; -------------------------------------------------------------------------------------- 0038 ; Debug Table 0038 ; -------------------------------------------------------------------------------------- 0038 0004 0007 | | .DEBUG4 0x0004,0x0007,0xc912,0x0000,0x0001,0x0000 003e d5f1 f1f0 | | .XXX[0x1c2] 0040 cdf0 2905 | ) | 0042 3915 515d |9 Q]| 0044 3d49 2d7d |=I-}| 0046 4155 0931 |AU 1| 0048 250c f4f9 |% | 004a 495d f028 |I] (| 004c 850d 3d35 | =5| 004e 3505 3911 |5 9 | 0050 4cb9 4d65 |L Me| 0052 4d51 1535 |MQ 5| 0054 7d35 0525 |}5 %| 0056 3951 1539 |9Q 9| 0058 0539 0d14 | 9 | 005a b90d 3d39 | =9| 005c 1925 1d55 | % U| 005e 4905 5125 |I Q%| 0060 3d39 4cb9 |=9L | 0062 4915 58c4 |I X | 0064 c57c cd7d | | }| 0066 4d41 150d |MA | 0068 7d4d 5105 |}MQ | 006a 5114 b935 |Q 5| 006c 3d11 1530 |= 0| 006e 2918 c8d4 |) | 0070 d4d4 c4c5 | | 0072 f0b4 c8dd | | 0074 f1f0 80c4 | | 0076 bcc8 c8bc | | 0078 e4c4 80c4 | | 007a c8e8 c4dc | | 007c e8cc ddf1 | | 007e f1f0 cdf0 | | 0080 2905 3915 |) 9 | 0082 515d 3d49 |Q]=I| 0084 2d7d 4155 |-}AU| 0086 0931 250c | 1% | 0088 f4f9 495d | I]| 008a f028 850d | ( | 008c 3d35 3505 |=55 | 008e 3911 4cb9 |9 L | 0090 4d65 4d51 |MeMQ| 0092 1535 7d35 | 5}5| 0094 0525 3951 | %9Q| 0096 1539 0539 | 9 9| 0098 0d14 b90d | | 009a 3d39 1925 |=9 %| 009c 1d55 4905 | UI | 009e 5125 3d39 |Q%=9| 00a0 4cb9 4915 |L I | 00a2 58c4 c57c |X || 00a4 cd7d 4d41 | }MA| 00a6 150d 7d4d | }M| 00a8 5105 5114 |Q Q | 00aa b94d 5509 | MU | 00ac 0d31 054d | 1 M| 00ae 4c29 18c8 |L) | 00b0 d4d4 d4cc | | 00b2 e1f0 b4e5 | | 00b4 f1f0 80c4 | | 00b6 bcc8 c8bc | | 00b8 e4c4 80c4 | | 00ba c8e8 c4dc | | 00bc e8cc e5f1 | | 00be f1f0 cdf0 | | 00c0 2905 3915 |) 9 | 00c2 515d 3d49 |Q]=I| 00c4 2d7d 4155 |-}AU| 00c6 0931 250c | 1% | 00c8 f4f9 495d | I]| 00ca f028 850d | ( | 00cc 3d35 3505 |=55 | 00ce 3911 4cb9 |9 L | 00d0 4d65 4d51 |MeMQ| 00d2 1535 7d35 | 5}5| 00d4 0525 3951 | %9Q| 00d6 1539 0539 | 9 9| 00d8 0d14 b90d | | 00da 3d39 1925 |=9 %| 00dc 1d55 4905 | UI | 00de 5125 3d39 |Q%=9| 00e0 4cb9 4915 |L I | 00e2 58c4 c57c |X || 00e4 cd7d 4d41 | }MA| 00e6 150d 7d4d | }M| 00e8 5105 5114 |Q Q | 00ea b94d 5509 | MU | 00ec 4105 5121 |A Q!| 00ee 7d39 0535 |}9 5| 00f0 1429 18c8 | ) | 00f2 d4d4 d4d0 | | 00f4 ddf0 b4c4 | | 00f6 c9f1 f080 | | 00f8 c4bc c8c8 | | 00fa bce4 c480 | | 00fc c4c8 e8c4 | | 00fe dce8 cce5 | | 0100 f1f1 f0cd | | 0102 f029 0539 | ) 9| 0104 1551 5d3d | Q]=| 0106 492d 7d41 |I-}A| 0108 5509 3125 |U 1%| 010a 0cf4 f949 | I| 010c 5df0 2885 |] ( | 010e 0d3d 3535 | =55| 0110 0539 114c | 9 L| 0112 b94d 654d | MeM| 0114 5115 357d |Q 5}| 0116 3505 2539 |5 %9| 0118 5115 3905 |Q 9 | 011a 390d 14b9 |9 | 011c 0d3d 3919 | =9 | 011e 251d 5549 |% UI| 0120 0551 253d | Q%=| 0122 394c b949 |9L I| 0124 1558 c4c5 | X | 0126 7cdd 7cc0 || | | 0128 291c c8d4 |) | 012a d4d4 d4e5 | | 012c f0d0 d4d1 | | 012e f1f0 80d8 | | 0130 bcc0 d8bc | | 0132 e4c0 80c4 | | 0134 d8e8 c0dc | | 0136 e8d4 ddf1 | | 0138 0d3d 3919 | =9 | 013a 251d 5549 |% UI| 013c 0551 253d | Q%=| 013e 39f1 f0c5 |9 | 0140 f029 0539 | ) 9| 0142 1551 5d3d | Q]=| 0144 492d 7d41 |I-}A| 0146 5509 3125 |U 1%| 0148 0cf4 f949 | I| 014a 5df0 2885 |] ( | 014c 0d3d 3535 | =55| 014e 0539 114c | 9 L| 0150 b94d 654d | MeM| 0152 5115 357d |Q 5}| 0154 3505 2539 |5 %9| 0156 5115 3905 |Q 9 | 0158 390d 14b9 |9 | 015a 0d3d 3919 | =9 | 015c 251d 5549 |% UI| 015e 0551 253d | Q%=| 0160 394c b949 |9L I| 0162 1558 c4c5 | X | 0164 7cdd 7cc1 || | | 0166 7d4d 5105 |}MQ | 0168 5114 2939 |Q )9| 016a f1f1 f080 | | 016c d8bc c0d8 | | 016e bce4 c080 | | 0170 c4d8 e8c0 | | 0172 e0e8 c0d9 | | 0174 f111 2549 | %I| 0176 150d 513d | Q=| 0178 4965 f1f0 |Ie | 017a c5f0 2828 | ((| 017c 850d 3d35 | =5| 017e 3505 3911 |5 9 | 0180 4cb9 4d65 |L Me| 0182 4d51 1535 |MQ 5| 0184 7d35 0525 |}5 %| 0186 3951 1539 |9Q 9| 0188 0539 0d14 | 9 | 018a b90d 3d39 | =9| 018c 1925 1d55 | % U| 018e 4905 5125 |I Q%| 0190 3d39 4cb9 |=9L | 0192 4915 58c4 |I X | 0194 c57c dd7c | | || 0196 c17d 4d51 | }MQ| 0198 0551 1429 | Q )| 019a 2c28 2885 |,(( | 019c 0d3d 3541 | =5A| 019e 2531 1549 |%1 I| 01a0 7d25 3951 |}%9Q| 01a2 1549 1905 | I | 01a4 0d14 b94d | M| 01a6 5509 4d65 |U Me| 01a8 4d51 1535 |MQ 5| 01aa 7d25 3951 |}%9Q| 01ac 1549 1905 | I | 01ae 0d14 2885 | ( | 01b0 0d3d 3535 | =55| 01b2 0539 114c | 9 L| 01b4 b94d 654d | MeM| 01b6 5115 357d |Q 5}| 01b8 3505 2539 |5 %9| 01ba 5115 3905 |Q 9 | 01bc 390d 14b9 |9 | 01be 0d3d 3919 | =9 | 01c0 251d 5549 |% UI| 01c2 0551 253d | Q%=| 01c4 394c b949 |9L I| 01c6 1558 c4c5 | X | 01c8 7cdd 7cc1 || | | 01ca 7d4d 5105 |}MQ | 01cc 5114 b90d |Q | 01ce 3d35 4125 |=5A%| 01d0 3115 497d |1 I}| 01d2 4d5d 2551 |M]%Q| 01d4 0d21 154c | ! L| 01d6 2921 f1f1 |)! | 01d8 f080 c8bc | | 01da c0dc bce4 | | 01dc c080 c4c0 | | 01de e8c4 c4e8 | | 01e0 d4c5 f14d | M| 01e2 5d25 510d |]%Q | 01e4 21f1 f0cd |! | 01e6 f029 0539 | ) 9| 01e8 1551 5d3d | Q]=| 01ea 492d 7d41 |I-}A| 01ec 5509 3125 |U 1%| 01ee 0cf4 f949 | I| 01f0 5df0 2948 |] )H| 01f2 c4c0 c0c1 | | 01f4 7d0d 9cb9 |} | 01f6 15b1 8589 | | 01f8 7d3d c991 |}= | 01fa 95c9 7d31 | }1| 01fc a5cd d1a5 | | 01fe b99c 2919 | ) |