|
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_5c84f2
└─⟦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 0088 | | .CONST 0x0088 ; 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 002a | * | .CONST 0x002a ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 000e | | .CONST 0x000e ; Number of locals 000b INIT_0008: 000b e214 | | Load 0x1,0x14 000c 1b14 | | Execute Package,Field_Read,Field_Number 0x14 000d e214 | | Load 0x1,0x14 000e 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27 000f e214 | | Load 0x1,0x14 0010 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0011 00e1 | | Load_Encached Boolean_Cache 0012 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0013 0007 | | Action Break_Optional 0014 0007 | | Action Break_Optional 0015 029f 0053 | S| Declare_Subprogram INIT_0050,For_Call 0017 029f 005b | [| Declare_Subprogram INIT_0058,For_Call 0019 e013 | | Load 0x0,0x13 001a 1916 | | Execute Package,Field_Reference,Field_Number 0x16 001b 00c6 | | Action Check_Subprogram_Elaborated 001c 4806 |H | Short_Literal 0x6 001d 4802 |H | Short_Literal 0x2 001e 0099 | | Action Reference_Dynamic 001f 4807 |H | Short_Literal 0x7 0020 4802 |H | Short_Literal 0x2 0021 0099 | | Action Reference_Dynamic 0022 e019 | | Load 0x0,0x19 0023 e01a | | Load 0x0,0x1a 0024 480c |H | Short_Literal 0xc 0025 0007 | | Action Break_Optional 0026 e01b | | Load 0x0,0x1b 0027 02ab | | Declare_Subprogram For_Call,With_Address 0028 e01c | | Load 0x0,0x1c 0029 02ab | | Declare_Subprogram For_Call,With_Address 002a BODY_0008: 002a e214 | | Load 0x1,0x14 002b 1b13 | | Execute Package,Field_Read,Field_Number 0x13 002c 1b12 | | Execute Package,Field_Read,Field_Number 0x12 002d e011 | | Load 0x0,0x11 002e 1811 | | Execute Package,Field_Execute,Field_Number 0x11 002f e018 | | Load 0x0,0x18 0030 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0031 e214 | | Load 0x1,0x14 0032 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0033 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0034 c402 | | Store 0x2,0x2 0035 e214 | | Load 0x1,0x14 0036 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27 0037 e214 | | Load 0x1,0x14 0038 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 0039 c403 | | Store 0x2,0x3 003a e5ff | | Load 0x2,-0x1 003b 840d | | Call 0x2,0xd 003c e214 | | Load 0x1,0x14 003d 1b14 | | Execute Package,Field_Read,Field_Number 0x14 003e e403 | | Load 0x2,0x3 003f e214 | | Load 0x1,0x14 0040 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 0041 c404 | | Store 0x2,0x4 0042 e5fb | | Load 0x2,-0x5 0043 e5fc | | Load 0x2,-0x4 0044 e5fd | | Load 0x2,-0x3 0045 e5fe | | Load 0x2,-0x2 0046 e404 | | Load 0x2,0x4 0047 840e | | Call 0x2,0xe 0048 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0049 0000 0000 | | .BLANK 0000[0x7] 0050 ; -------------------------------------------------------------------------------------- 0050 ; SUBPROGRAM 0050 ; -------------------------------------------------------------------------------------- 0050 0053 | S | .CONST 0x0053 ; Address of begin 0051 0004 | | .CONST 0x0004 ; Address of exception handler 0052 0001 | | .CONST 0x0001 ; Number of locals 0053 BODY_0050: 0053 INIT_0050: 0053 00da | | Load_Top At_Offset_2 0054 e402 | | Load 0x2,0x2 0055 e214 | | Load 0x1,0x14 0056 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0057 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0058 ; -------------------------------------------------------------------------------------- 0058 ; SUBPROGRAM 0058 ; -------------------------------------------------------------------------------------- 0058 005b | [ | .CONST 0x005b ; Address of begin 0059 0004 | | .CONST 0x0004 ; Address of exception handler 005a 0001 | | .CONST 0x0001 ; Number of locals 005b BODY_0058: 005b INIT_0058: 005b 00da | | Load_Top At_Offset_2 005c 8213 | | Call 0x1,0x13 005d e405 | | Load 0x2,0x5 005e 6811 |h | Jump_Zero 0x70 005f e00e | | Load 0x0,0xe 0060 180e | | Execute Package,Field_Execute,Field_Number 0xe 0061 4800 |H | Short_Literal 0x0 0062 e7fe | | Load 0x3,-0x2 0063 e008 | | Load 0x0,0x8 0064 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0065 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 0066 0092 007b | {| Action Push_String_Extended,0x7b ; " depends upon " 0068 01cc | | Execute Vector,Catenate 0069 e7ff | | Load 0x3,-0x1 006a e008 | | Load 0x0,0x8 006b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 006c 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 006d 01cc | | Execute Vector,Catenate 006e e00f | | Load 0x0,0xf 006f 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0070 00db | | Load_Top At_Offset_3 0071 00db | | Load_Top At_Offset_3 0072 e403 | | Load 0x2,0x3 0073 e214 | | Load 0x1,0x14 0074 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 0075 e402 | | Load 0x2,0x2 0076 00db | | Load_Top At_Offset_3 0077 e214 | | Load 0x1,0x14 0078 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0079 c402 | | Store 0x2,0x2 007a 4504 |E | Exit_Suprogram New_Top_Offset 0x4 007b ; -------------------------------------------------------------------------------------- 007b ; STRING TABLE 007b ; -------------------------------------------------------------------------------------- 007b 0004 | | .STRTAB 0x0004->0x007d ; " depends upon " 007c 0010 | | .STREND 0x0010->0x0084 007d 2064 6570 | dep| .STRTAB_STRINGS 0084 0000 0000 | | .BLANK 0000[0x4] 0088 ; -------------------------------------------------------------------------------------- 0088 ; Debug Table 0088 ; -------------------------------------------------------------------------------------- 0088 0004 000c | | .DEBUG4 0x0004,0x000c,0x4229,0x0000,0x0001,0x0000 008e 4fff fc23 |O #| .XXX[0x126] 0090 57ff f823 |W #| 0092 5fff f423 |_ #| 0094 67ff f023 |g #| 0096 6c00 0423 |l #| 0098 7800 0823 |x #| 009a 8400 0c23 | #| 009c 9400 1423 | #| 009e a800 1823 | #| 00a0 d000 1c23 | #| 00a2 e400 2023 | #| 00a4 ec00 2423 | $#| 00a6 f800 2824 | ($| 00a8 0800 2c24 | ,$| 00aa 1000 3024 | 0$| 00ac 2400 1024 |$ $| 00ae 3000 3400 |0 4 | 00b0 1800 0c24 | $| 00b2 4fff fc24 |O $| 00b4 57ff f824 |W $| 00b6 5fff f424 |_ $| 00b8 67ff f024 |g $| 00ba 7bff ec24 |{ $| 00bc 8fff e824 | $| 00be 9c00 0424 | $| 00c0 b000 0824 | $| 00c2 e000 0c00 | | 00c4 0400 0825 | %| 00c6 0fff fc25 | %| 00c8 1c00 0425 | %| 00ca 3000 0800 |0 | 00cc 0800 2425 | $%| 00ce 4fff fc25 |O %| 00d0 67ff f825 |g %| 00d2 7800 0425 |x %| 00d4 8800 0825 | %| 00d6 9800 0c25 | %| 00d8 b800 1025 | %| 00da dc00 1425 | %| 00dc fc00 1826 | &| 00de 1800 1c26 | &| 00e0 3400 2026 |4 &| 00e2 5000 2400 |P $ | 00e4 0400 0826 | &| 00e6 6fff fc26 |o &| 00e8 7c00 0426 || &| 00ea a000 0800 | | 00ec 0400 0826 | &| 00ee cfff fc26 | &| 00f0 d400 0427 | '| 00f2 3000 0800 |0 | 00f4 0400 c827 | '| 00f6 8fff fc27 | '| 00f8 9800 0427 | '| 00fa c800 0827 | '| 00fc d800 0c27 | '| 00fe e800 1028 | (| 0100 1000 1428 | (| 0102 3800 1828 |8 (| 0104 6400 1c28 |d (| 0106 7800 2028 |x (| 0108 a000 2428 | $(| 010a bc00 2828 | ((| 010c d800 2c28 | ,(| 010e f400 3029 | 0)| 0110 0400 3429 | 4)| 0112 1400 3829 | 8)| 0114 2c00 3c29 |, <)| 0116 4000 4029 |@ @)| 0118 5800 4429 |X D)| 011a 6400 4829 |d H)| 011c 7c00 4c29 || L)| 011e a400 5029 | P)| 0120 b000 5429 | T)| 0122 d000 5829 | X)| 0124 d800 5c2a | \*| 0126 2c00 602a |, `*| 0128 4000 642a |@ d*| 012a 6400 682a |d h*| 012c 8000 6c2a | l*| 012e 9000 702a | p*| 0130 b000 742a | t*| 0132 c000 782a | x*| 0134 d400 7c2a | |*| 0136 e800 802a | *| 0138 f800 842b | +| 013a 0800 882b | +| 013c 1c00 8c2b | +| 013e 2c00 902b |, +| 0140 4400 942b |D +| 0142 5800 982b |X +| 0144 6800 9c2b |h +| 0146 7800 a02b |x +| 0148 8800 a42b | +| 014a a000 a82b | +| 014c b000 ac2b | +| 014e c800 b02b | +| 0150 d400 b42b | +| 0152 f400 b82b | +| 0154 fc00 bc2c | ,| 0156 5000 c02c |P ,| 0158 6400 c42c |d ,| 015a 8800 c800 | | 015c 0400 082c | ,| 015e cfff fc2c | ,| 0160 e000 042d | -| 0162 1000 0800 | | 0164 0000 082d | -| 0166 2c00 042d |, -| 0168 a000 0800 | | 016a 0000 082d | -| 016c cc00 042e | .| 016e 4400 0800 |D | 0170 0400 002e | .| 0172 6fff fc00 |o | 0174 2000 042e | .| 0176 7bff fc2e |{ .| 0178 9bff f82e | .| 017a a3ff f42e | .| 017c abff f02e | .| 017e b3ff ec2e | .| 0180 bbff e82e | .| 0182 c3ff e42e | .| 0184 e7ff e02e | .| 0186 ec00 0400 | | 0188 0000 042f | /| 018a 2c00 0400 |, | 018c 0000 182f | /| 018e 6c00 042f |l /| 0190 8000 082f | /| 0192 9400 0c2f | /| 0194 9c00 102f | /| 0196 ac00 142f | /| 0198 c400 1800 | | 019a 0400 142f | /| 019c efff fc2f | /| 019e f400 0430 | 0| 01a0 0400 0c30 | 0| 01a2 1400 1030 | 0| 01a4 2400 1430 |$ 0| 01a6 3800 0800 |8 | 01a8 0400 1030 | 0| 01aa 6fff fc30 |o 0| 01ac 7400 0430 |t 0| 01ae 8400 0830 | 0| 01b0 8c00 0c30 | 0| 01b2 d400 1000 | | 01b4 0000 0000 | | .BLANK 0000[0x4c]