|
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_03bcfe
└─⟦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 0028 | ( | .CONST 0x0028 ; 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 e5fa | | Load 0x2,-0x6 001c e5fb | | Load 0x2,-0x5 001d e5fc | | Load 0x2,-0x4 001e e5fd | | Load 0x2,-0x3 001f e5fe | | Load 0x2,-0x2 0020 e5ff | | Load 0x2,-0x1 0021 8002 | | Call 0x0,0x2 0022 4507 |E | Exit_Suprogram New_Top_Offset 0x7 0023 0000 0000 | | .BLANK 0000[0x5] 0028 ; -------------------------------------------------------------------------------------- 0028 ; Debug Table 0028 ; -------------------------------------------------------------------------------------- 0028 0004 0010 | | .DEBUG4 0x0004,0x0010,0x098b,0x0000,0x0001,0x0000 002e 21c1 1b31 |! 1| .XXX[0x1d2] 0030 710a 067c |q || 0032 f9a3 1322 | "| 0034 191b 3171 | 1q| 0036 0a06 7cfb | | | 0038 4313 2271 |C "q| 003a 1b31 710a | 1q | 003c 067c fceb | | | 003e 1322 c91b | " | 0040 3171 0a06 |1q | 0042 7cfe 8b13 || | 0044 2321 1b31 |#! 1| 0046 710a 067d |q }| 0048 0013 1323 | #| 004a 791b 3171 |y 1q| 004c 0a06 7d01 | } | 004e 8b13 23d1 | # | 0050 1b31 710a | 1q | 0052 067d 032b | } +| 0054 1324 291b | $) | 0056 3171 0a06 |1q | 0058 7d04 a313 |} | 005a 2481 1b31 |$ 1| 005c 710a 067d |q }| 005e 0673 1324 | s $| 0060 d91b 3171 | 1q| 0062 0a06 7d09 | } | 0064 0313 2531 | %1| 0066 1b31 710a | 1q | 0068 067d 0a63 | } c| 006a 1325 891b | % | 006c 3171 0a06 |1q | 006e 7d0b c313 |} | 0070 25e1 1b31 |% 1| 0072 710a 067d |q }| 0074 0cd3 1326 | &| 0076 391b 3171 |9 1q| 0078 0a06 7d0e | } | 007a 3313 2691 |3 & | 007c 1b31 710a | 1q | 007e 067d 0f8b | } | 0080 1326 e91b | & | 0082 3171 0a06 |1q | 0084 7d10 d313 |} | 0086 2741 1b31 |'A 1| 0088 710a 067d |q }| 008a 1213 1327 | '| 008c 991b 3171 | 1q| 008e 0a06 7d13 | } | 0090 5313 27f1 |S ' | 0092 1b31 710a | 1q | 0094 067d 149b | } | 0096 1328 491b | (I | 0098 3171 0a06 |1q | 009a 7d15 db13 |} | 009c 28a1 1b31 |( 1| 009e 710a 067d |q }| 00a0 171b 1328 | (| 00a2 f91b 3171 | 1q| 00a4 0a06 7d18 | } | 00a6 9b13 2951 | )Q| 00a8 1b31 710a | 1q | 00aa 067d 1a2b | } +| 00ac 1329 a91b | ) | 00ae 3171 0a06 |1q | 00b0 7d1b 6313 |} c | 00b2 2a01 1b31 |* 1| 00b4 710a 067d |q }| 00b6 1c93 132a | *| 00b8 591b 3171 |Y 1q| 00ba 0a06 7d1d | } | 00bc b313 2ab1 | * | 00be 1b31 710a | 1q | 00c0 067d 1ecb | } | 00c2 132b 091b | + | 00c4 3171 0a06 |1q | 00c6 7d1f e313 |} | 00c8 2b61 1b31 |+a 1| 00ca 710a 067d |q }| 00cc 2103 132b |! +| 00ce b91b 3171 | 1q| 00d0 0a06 7d22 | }"| 00d2 1b13 2c11 | , | 00d4 1b31 710a | 1q | 00d6 067d 2333 | }#3| 00d8 132c 691b | ,i | 00da 3171 0a06 |1q | 00dc 7d24 8b13 |}$ | 00de 2cc1 1b31 |, 1| 00e0 710a 067d |q }| 00e2 25f3 132d |% -| 00e4 191b 3171 | 1q| 00e6 0a06 7d27 | }'| 00e8 db13 2d71 | -q| 00ea 1b31 710a | 1q | 00ec 067d 29bb | }) | 00ee 132d c91b | - | 00f0 3171 0a06 |1q | 00f2 7d2b 3b13 |}+; | 00f4 2e21 1b31 |.! 1| 00f6 710a 067d |q }| 00f8 2ca3 132e |, .| 00fa 791b 3171 |y 1q| 00fc 0a06 7d2d | }-| 00fe e313 2ed1 | . | 0100 1b31 710a | 1q | 0102 067d 2f43 | }/C| 0104 132f 291b | /) | 0106 3171 0a06 |1q | 0108 7d30 8b13 |}0 | 010a 2f81 1b31 |/ 1| 010c 710a 067d |q }| 010e 31ab 132f |1 /| 0110 d91b 3171 | 1q| 0112 0a06 7d32 | }2| 0114 e313 3031 | 01| 0116 1b31 710a | 1q | 0118 067d 348b | }4 | 011a 1330 891b | 0 | 011c 3171 0a06 |1q | 011e 7d36 1b13 |}6 | 0120 30e1 1b31 |0 1| 0122 710a 067d |q }| 0124 378b 1331 |7 1| 0126 391b 3171 |9 1q| 0128 0a06 7d38 | }8| 012a fb13 3191 | 1 | 012c 1b31 710a | 1q | 012e 067d 39f3 | }9 | 0130 1331 e91b | 1 | 0132 3171 0a06 |1q | 0134 7d3b 6b13 |};k | 0136 3241 1b31 |2A 1| 0138 710a 067d |q }| 013a 3c73 1332 |<s 2| 013c 991b 3171 | 1q| 013e 0a06 7d3d | }=| 0140 a313 32f1 | 2 | 0142 1b31 710a | 1q | 0144 067d 3eeb | }> | 0146 1333 491b | 3I | 0148 3171 0a06 |1q | 014a 7d40 4b13 |}@K | 014c 33a1 1b31 |3 1| 014e 710a 067d |q }| 0150 41b3 1333 |A 3| 0152 f91b 3171 | 1q| 0154 0a06 7d44 | }D| 0156 6400 0000 |d | 0158 1b31 710a | 1q | 015a 067d 46dd | }F | 015c 0000 001b | | 015e 3171 0a06 |1q | 0160 7d49 7600 |}Iv | 0162 0000 1b31 | 1| 0164 710a 067d |q }| 0166 4bd7 0000 |K | 0168 001b 3171 | 1q| 016a 0a06 7d4f | }O| 016c b000 0000 | | 016e 1b31 710a | 1q | 0170 067d 5281 | }R | 0172 0000 001b | | 0174 3171 0a06 |1q | 0176 7d56 9a00 |}V | 0178 0000 1b31 | 1| 017a 710a 067d |q }| 017c 5a63 0000 |Zc | 017e 001b 3171 | 1q| 0180 0a06 7d60 | }`| 0182 4400 0000 |D | 0184 1b31 710a | 1q | 0186 067d 65ad | }e | 0188 0000 001b | | 018a 3171 0a06 |1q | 018c 7d69 f600 |}i | 018e 0000 1b31 | 1| 0190 710a 067d |q }| 0192 6c37 0000 |l7 | 0194 001b 3171 | 1q| 0196 0a06 7d70 | }p| 0198 7800 0000 |x | 019a 1b31 710a | 1q | 019c 067d 72e9 | }r | 019e 0000 001b | | 01a0 3171 0a06 |1q | 01a2 7d78 a200 |}x | 01a4 0000 1b31 | 1| 01a6 710a 067d |q }| 01a8 7e23 0000 |~# | 01aa 001b 3171 | 1q| 01ac 0a06 7d83 | } | 01ae d400 0000 | | 01b0 1b31 710a | 1q | 01b2 067d 8965 | } e| 01b4 0000 001b | | 01b6 3171 0a06 |1q | 01b8 7d8c fe00 |} | 01ba 0000 1b31 | 1| 01bc 710a 067d |q }| 01be 8f77 0000 | w | 01c0 001b 3171 | 1q| 01c2 0a06 7d91 | } | 01c4 4f13 3b31 |O ;1| 01c6 1b31 710a | 1q | 01c8 067d 9377 | } w| 01ca 133b 891b | ; | 01cc 3171 0a06 |1q | 01ce 7d96 8000 |} | 01d0 0000 1b31 | 1| 01d2 710a 067d |q }| 01d4 9820 133c | <| 01d6 391b 3171 |9 1q| 01d8 0a06 7d9a | } | 01da f100 0000 | | 01dc 1b31 710a | 1q | 01de 067d 9d2a | } *| 01e0 0000 001b | | 01e2 3171 0a06 |1q | 01e4 7d9e 0213 |} | 01e6 3d41 1b31 |=A 1| 01e8 710a 067d |q }| 01ea 9ed2 133d | =| 01ec 991b 3171 | 1q| 01ee 0a06 7d9f | } | 01f0 ca13 3df1 | = | 01f2 1b31 710a | 1q | 01f4 067d a0a2 | } | 01f6 133e 491b | >I | 01f8 3171 0a06 |1q | 01fa 7da1 7213 |} r | 01fc 3ea1 1b31 |> 1| 01fe 710a 067d |q }|