|
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_0ea8df
└─⟦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 0098 | | .CONST 0x0098 ; 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 0022 | " | .CONST 0x0022 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0014 | | .CONST 0x0014 ; Number of locals 000b INIT_0008: 000b 029a 002b | +| Declare_Subprogram INIT_0028,For_Outer_Call,Visible,Unelaborated 000d 029a 003b | ;| Declare_Subprogram INIT_0038,For_Outer_Call,Visible,Unelaborated 000f 029a 004b | K| Declare_Subprogram INIT_0048,For_Outer_Call,Visible,Unelaborated 0011 00bf | | Action Accept_Activation 0012 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0013 00c7 | | Action Elaborate_Subprogram 0014 a001 | | Store_Unchecked 0x0,0x1 0015 00c6 | | Action Check_Subprogram_Elaborated 0016 e002 | | Load 0x0,0x2 0017 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0018 e002 | | Load 0x0,0x2 0019 1b0e | | Execute Package,Field_Read,Field_Number 0xe 001a e003 | | Load 0x0,0x3 001b e004 | | Load 0x0,0x4 001c 4800 |H | Short_Literal 0x0 001d 0007 | | Action Break_Optional 001e 1d0e | | Execute_Immediate Reference_Lex_1,0xe 001f 00c7 | | Action Elaborate_Subprogram 0020 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0021 00c7 | | Action Elaborate_Subprogram 0022 BODY_0008: 0022 00bc | | Action Signal_Activated 0023 00bb | | Action Signal_Completion 0024 0000 0000 | | .BLANK 0000[0x4] 0028 ; -------------------------------------------------------------------------------------- 0028 ; SUBPROGRAM 0028 ; -------------------------------------------------------------------------------------- 0028 002b | + | .CONST 0x002b ; Address of begin 0029 0004 | | .CONST 0x0004 ; Address of exception handler 002a 0001 | | .CONST 0x0001 ; Number of locals 002b BODY_0028: 002b INIT_0028: 002b 00da | | Load_Top At_Offset_2 002c e002 | | Load 0x0,0x2 002d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 002e 1c08 | | Execute_Immediate Run_Utility,0x8 002f e002 | | Load 0x0,0x2 0030 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0031 03b6 | | Declare_Variable Access,By_Allocation,With_Value 0032 00d8 | | Load_Top At_Offset_0 0033 0227 | ' | Execute Access,All_Reference 0034 1c00 | | Execute_Immediate Run_Utility,0x0 0035 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0036 0000 0000 | | .XXX[0x2] 0038 ; -------------------------------------------------------------------------------------- 0038 ; SUBPROGRAM 0038 ; -------------------------------------------------------------------------------------- 0038 003b | ; | .CONST 0x003b ; Address of begin 0039 0004 | | .CONST 0x0004 ; Address of exception handler 003a 0001 | | .CONST 0x0001 ; Number of locals 003b BODY_0038: 003b INIT_0038: 003b 00da | | Load_Top At_Offset_2 003c e210 | | Load 0x1,0x10 003d e211 | | Load 0x1,0x11 003e 1d12 | | Execute_Immediate Reference_Lex_1,0x12 003f 8001 | | Call 0x0,0x1 0040 003b | ; | Store_Top Access,At_Offset_3 0041 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0042 0000 0000 | | .BLANK 0000[0x6] 0048 ; -------------------------------------------------------------------------------------- 0048 ; SUBPROGRAM 0048 ; -------------------------------------------------------------------------------------- 0048 004d | M | .CONST 0x004d ; Address of begin 0049 0004 | | .CONST 0x0004 ; Address of exception handler 004a 0002 | | .CONST 0x0002 ; Number of locals 004b INIT_0048: 004b e002 | | Load 0x0,0x2 004c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 004d BODY_0048: 004d e5fe | | Load 0x2,-0x2 004e 0227 | ' | Execute Access,All_Reference 004f 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0050 e5ff | | Load 0x2,-0x1 0051 027f | | Execute Discrete,Equal 0052 6801 |h | Jump_Zero 0x54 0053 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0054 00db | | Load_Top At_Offset_3 0055 e002 | | Load 0x0,0x2 0056 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0057 1c08 | | Execute_Immediate Run_Utility,0x8 0058 e002 | | Load 0x0,0x2 0059 1b0e | | Execute Package,Field_Read,Field_Number 0xe 005a 03b6 | | Declare_Variable Access,By_Allocation,With_Value 005b 00d8 | | Load_Top At_Offset_0 005c 0227 | ' | Execute Access,All_Reference 005d 1c00 | | Execute_Immediate Run_Utility,0x0 005e 0039 | 9 | Store_Top Access,At_Offset_1 005f e5fe | | Load 0x2,-0x2 0060 0227 | ' | Execute Access,All_Reference 0061 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0062 e5ff | | Load 0x2,-0x1 0063 027a | z | Execute Discrete,Less_Equal 0064 6817 |h | Jump_Zero 0x7c 0065 e5fe | | Load 0x2,-0x2 0066 0227 | ' | Execute Access,All_Reference 0067 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0068 00d9 | | Load_Top At_Offset_1 0069 0227 | ' | Execute Access,All_Reference 006a 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 006b 4801 |H | Short_Literal 0x1 006c e5fe | | Load 0x2,-0x2 006d 0227 | ' | Execute Access,All_Reference 006e 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 006f e5fe | | Load 0x2,-0x2 0070 0227 | ' | Execute Access,All_Reference 0071 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0072 01cf | | Execute Vector,Slice_Read 0073 4801 |H | Short_Literal 0x1 0074 e5fe | | Load 0x2,-0x2 0075 0227 | ' | Execute Access,All_Reference 0076 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0077 00db | | Load_Top At_Offset_3 0078 0229 | ) | Execute Access,All_Read 0079 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 007a 01ce | | Execute Vector,Slice_Write 007b 7810 |x | Jump 0x8c 007c 00db | | Load_Top At_Offset_3 007d 00d9 | | Load_Top At_Offset_1 007e 0227 | ' | Execute Access,All_Reference 007f 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0080 4801 |H | Short_Literal 0x1 0081 e5ff | | Load 0x2,-0x1 0082 e5fe | | Load 0x2,-0x2 0083 0227 | ' | Execute Access,All_Reference 0084 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0085 01cf | | Execute Vector,Slice_Read 0086 4801 |H | Short_Literal 0x1 0087 e5ff | | Load 0x2,-0x1 0088 00db | | Load_Top At_Offset_3 0089 0229 | ) | Execute Access,All_Read 008a 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 008b 01ce | | Execute Vector,Slice_Write 008c e5fe | | Load 0x2,-0x2 008d e210 | | Load 0x1,0x10 008e e211 | | Load 0x1,0x11 008f 1d12 | | Execute_Immediate Reference_Lex_1,0x12 0090 8001 | | Call 0x0,0x1 0091 c5fe | | Store 0x2,-0x2 0092 00d8 | | Load_Top At_Offset_0 0093 a5fe | | Store_Unchecked 0x2,-0x2 0094 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0095 0000 0000 | | .XXX[0x3] 0097 0000 | | 0098 ; -------------------------------------------------------------------------------------- 0098 ; Debug Table 0098 ; -------------------------------------------------------------------------------------- 0098 0004 0004 | | .DEBUG4 0x0004,0x0004,0xa8ea,0x0000,0x0001,0x0000 009e 2fa8 2927 |/ )'| .XXX[0xdb] 00a0 a324 a622 | $ "| 00a2 c000 01a0 | | 00a4 4016 c000 |@ | 00a6 003d 7000 | =p | 00a8 0002 990a | | 00aa 6a0a 1a42 |j B| 00ac 4a72 2972 |Jr)r| 00ae 922a 622a | *b*| 00b0 0a9a 2972 | )r| 00b2 2a72 b24a |*r J| 00b4 927a 726a | zrj| 00b6 2a72 a172 |*r r| 00b8 22f9 8992 |" | 00ba f9ba f999 | | 00bc 72aa 724a |r rJ| 00be b22a 929a | * | 00c0 2972 a27a |)r z| 00c2 7a62 9972 |zb r| 00c4 722a a2ba |r* | 00c6 7a92 5a4a |z ZJ| 00c8 7239 72a2 |r9r | 00ca 2a62 722a |*br*| 00cc a2fa 8292 | | 00ce 7a22 aa1a |z" | 00d0 a13a 9a82 | : | 00d2 2a1c 0000 |* | 00d4 1a04 0058 | X| 00d6 0000 0000 | | 00d8 8000 0007 | | 00da 2a22 a627 |*" '| 00dc 22aa 2fa8 |" / | 00de 2927 a22a |)' *| 00e0 a1aa 4000 | @ | 00e2 01a0 4016 | @ | 00e4 0000 003d | =| 00e6 8800 0002 | | 00e8 810a 6a0a | j | 00ea 1a42 4a72 | BJr| 00ec 2972 922a |)r *| 00ee 622a 0a9a |b* | 00f0 2972 2a72 |)r*r| 00f2 b24a 927a | J z| 00f4 726a 2a72 |rj*r| 00f6 a172 22f9 | r" | 00f8 8992 f9ba | | 00fa f999 72aa | r | 00fc 724a b22a |rJ *| 00fe 929a 2972 | )r| 0100 a27a 7a62 | zzb| 0102 9972 722a | rr*| 0104 a2ba 7a92 | z | 0106 5a4a 7239 |ZJr9| 0108 72a2 1a82 |r | 010a fa4a 82fa | J | 010c 22aa 6a81 |" j | 010e 3a9a 822a |: *| 0110 1c00 001a | | 0112 0401 6000 | ` | 0114 0003 d880 | | 0116 0000 2810 | ( | 0118 a6a0 a1a4 | | 011a 24a7 2297 |$ " | 011c 2922 a622 |)" "| 011e a0a9 a297 | | 0120 22a7 2b24 |" +$| 0122 a927 a726 | ' &| 0124 a2a7 2a17 | * | 0126 222f 9899 |"/ | 0128 2f9b af99 |/ | 012a 972a a724 | * $| 012c ab22 a929 | " )| 012e a297 2a27 | *'| 0130 a7a6 2997 | ) | 0132 2722 aa2b |'" +| 0134 a7a9 25a4 | % | 0136 a723 972a | # *| 0138 21a8 2fa4 |! / | 013a a82f a127 | / '| 013c a7aa 13a9 | | 013e a822 a1c0 | " | 0140 0001 a040 | @| 0142 15c0 0000 | | 0144 3d90 0000 |= | 0146 0279 0a6a | y j| 0148 0a1a 424a | BJ| 014a 7229 7292 |r)r | 014c 2a62 2a0a |*b* | 014e 9a29 722a | )r*| 0150 72b2 4a92 |r J | 0152 7a72 6a2a |zrj*| 0154 72a1 7222 |r r"| 0156 f989 92f9 | | 0158 baf9 9972 | r| 015a aa72 4ab2 | rJ | 015c 2a92 9a29 |* )| 015e 72a2 7a7a |r zz| 0160 6299 7272 |b rr| 0162 2aa2 ba7a |* z| 0164 925a 4a72 | ZJr| 0166 3972 9282 |9r | 0168 1afa 9a2a | *| 016a 92b2 2a91 | * | 016c 3a9a 822a |: *| 016e 1c00 00c5 | | 0170 a400 01c4 | | 0172 e600 0000 | | 0174 2400 0a1e |$ | 0176 6800 0000 |h | 0178 0c00 | | 0179 0000 0000 | | .BLANK 0000[0x4] 017d 0060 2400 | `$ | .XXX[0xa] 017f 00dc 8b00 | | 0181 0000 1200 | | 0183 050f 3800 | 8 | 0185 0000 0600 | | 0187 0000 0000 | | .BLANK 0000[0x4] 018b 006d 6100 | ma | .XXX[0xa] 018d 006a 5580 | jU | 018f 0000 0900 | | 0191 0287 9e00 | | 0193 0000 0300 | | 0195 0000 0000 | | .BLANK 0000[0x4] 0199 0034 b880 | 4 | .XXX[0xa] 019b 0033 32c0 | 32 | 019d 0000 0480 | | 019f 0143 d000 | C | 01a1 0000 0180 | | 01a3 0000 0000 | | .BLANK 0000[0x4] 01a7 0019 5c40 | \@| .XXX[0xa] 01a9 0018 9560 | `| 01ab 0000 0240 | @| 01ad 00a1 e880 | | 01af 0000 00c0 | | 01b1 0000 0000 | | .BLANK 0000[0x4] 01b5 000c 3320 | 3 | .XXX[0xa] 01b7 000b d6b0 | | 01b9 0000 0120 | | 01bb 0050 f480 | P | 01bd 0000 0060 | `| 01bf 0000 0000 | | .BLANK 0000[0x4] 01c3 0005 dd10 | | .XXX[0xa] 01c5 0005 ac58 | X| 01c7 0000 0090 | | 01c9 0028 7a60 | (z`| 01cb 0000 0030 | 0| 01cd 0000 0000 | | .BLANK 0000[0x4] 01d1 0002 cd48 | H| .XXX[0xa] 01d3 0004 d6ec | | 01d5 0000 0048 | H| 01d7 0014 3d40 | =@| 01d9 0000 0018 | | 01db 0000 0000 | | .BLANK 0000[0x5] 01e0 0d02 0000 | | .XXX[0xb] 01e2 0000 0483 | | 01e4 c000 240c | $ | 01e6 4000 15b9 |@ | 01e8 8000 01d0 | | 01ea 4000 |@ | 01eb 0000 0000 | | .BLANK 0000[0x15]