|
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_0534f8
└─⟦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 1b10 | | Execute Package,Field_Read,Field_Number 0x10 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 1b10 | | Execute Package,Field_Read,Field_Number 0x10 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 1b10 | | Execute Package,Field_Read,Field_Number 0x10 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 1b10 | | Execute Package,Field_Read,Field_Number 0x10 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 0008 | | .DEBUG4 0x0004,0x0008,0xa93d,0x0000,0x0001,0x0000 009e 24b0 2424 |$ $$| .XXX[0x162] 00a0 b424 24b8 | $$ | 00a2 2424 bc24 |$$ $| 00a4 a8bc 290d | ) | 00a6 054d 157d | M }| 00a8 154d 0d7d | M }| 00aa 251d 393d |% 9=| 00ac 4914 b029 |I )| 00ae 0d05 4d15 | M | 00b0 7d15 4d0d |} M | 00b2 7d25 1d39 |}% 9| 00b4 3d49 14b0 |=I | 00b6 290d 054d |) M| 00b8 157d 154d | } M| 00ba 0d7d 251d | }% | 00bc 393d 4914 |9=I | 00be b029 0d05 | ) | 00c0 4d15 7d15 |M } | 00c2 4d0d 7d25 |M }%| 00c4 1d39 3d49 | 9=I| 00c6 14b0 28bc | ( | 00c8 a824 c024 | $ $| 00ca 24c4 2424 |$ $$| 00cc c824 24cc | $$ | 00ce 24a8 bc29 |$ )| 00d0 0d05 4d15 | M | 00d2 7d1d 4d15 |} M | 00d4 514c b029 |QL )| 00d6 0d05 4d15 | M | 00d8 7d1d 4d15 |} M | 00da 514c b029 |QL )| 00dc 0d05 4d15 | M | 00de 7d1d 4d15 |} M | 00e0 514c b029 |QL )| 00e2 0d05 4d15 | M | 00e4 7d1d 493d |} I=| 00e6 5539 117d |U9 }| 00e8 4d51 0551 |MQ Q| 00ea 14b0 28bc | ( | 00ec a824 d024 | $ $| 00ee 24d4 2424 |$ $$| 00f0 d824 24dc | $$ | 00f2 24a8 bc29 |$ )| 00f4 0d05 4d15 | M | 00f6 7d1d 493d |} I=| 00f8 5539 117d |U9 }| 00fa 4d51 0551 |MQ Q| 00fc 14b0 290d | ) | 00fe 054d 157d | M }| 0100 1d49 3d55 | I=U| 0102 3911 7d4d |9 }M| 0104 5105 5114 |Q Q | 0106 b029 0d05 | ) | 0108 4d15 7d1d |M } | 010a 493d 5539 |I=U9| 010c 117d 4d51 | }MQ| 010e 0551 14b0 | Q | 0110 290d 054d |) M| 0112 157d 1d49 | } I| 0114 3d55 3911 |=U9 | 0116 7d4d 5105 |}MQ | 0118 5114 b028 |Q (| 011a bca8 24e0 | $ | 011c 2424 e424 |$$ $| 011e 24e8 2424 |$ $$| 0120 ec24 a8bc | $ | 0122 290d 054d |) M| 0124 157d 1d49 | } I| 0126 3d55 3911 |=U9 | 0128 7d4d 5105 |}MQ | 012a 5114 b029 |Q )| 012c 0d05 4d15 | M | 012e 7d1d 493d |} I=| 0130 5539 117d |U9 }| 0132 4d51 0551 |MQ Q| 0134 14b0 290d | ) | 0136 054d 157d | M }| 0138 1d49 3d55 | I=U| 013a 3911 7d4d |9 }M| 013c 5105 5114 |Q Q | 013e b029 0d05 | ) | 0140 4d15 7d1d |M } | 0142 493d 5539 |I=U9| 0144 117d 4d51 | }MQ| 0146 0551 14b0 | Q | 0148 28bc a824 |( $| 014a f024 24f4 | $$ | 014c 2424 f824 |$$ $| 014e 24fc 24a8 |$ $ | 0150 bc29 0d05 | ) | 0152 4d15 7d1d |M } | 0154 493d 5539 |I=U9| 0156 117d 4d51 | }MQ| 0158 0551 14b0 | Q | 015a 290d 054d |) M| 015c 157d 1d49 | } I| 015e 3d55 3911 |=U9 | 0160 7d4d 5105 |}MQ | 0162 5114 b029 |Q )| 0164 0d05 4d15 | M | 0166 7d1d 493d |} I=| 0168 5539 117d |U9 }| 016a 4d51 0551 |MQ Q| 016c 14b0 290d | ) | 016e 054d 157d | M }| 0170 1d49 3d55 | I=U| 0172 3911 7d4d |9 }M| 0174 5105 5114 |Q Q | 0176 b028 bca8 | ( | 0178 2500 2425 |% $%| 017a 0424 2508 | $% | 017c 2425 0c24 |$% $| 017e a8bc 290d | ) | 0180 054d 157d | M }| 0182 1d49 3d55 | I=U| 0184 3911 7d4d |9 }M| 0186 5105 5114 |Q Q | 0188 b029 0d05 | ) | 018a 4d15 7d1d |M } | 018c 4d15 514c |M QL| 018e b029 0d05 | ) | 0190 4d15 7d1d |M } | 0192 4d15 514c |M QL| 0194 b029 0d05 | ) | 0196 4d15 7d1d |M } | 0198 493d 5539 |I=U9| 019a 117d 4d51 | }MQ| 019c 0551 14b0 | Q | 019e 28bc a825 |( %| 01a0 1024 2514 | $% | 01a2 2425 1824 |$% $| 01a4 251c 24a8 |% $ | 01a6 bc29 0d05 | ) | 01a8 4d15 7d1d |M } | 01aa 493d 5539 |I=U9| 01ac 117d 4d51 | }MQ| 01ae 0551 14b0 | Q | 01b0 290d 054d |) M| 01b2 157d 1d49 | } I| 01b4 3d55 3911 |=U9 | 01b6 7d4d 5105 |}MQ | 01b8 5114 b029 |Q )| 01ba 0d05 4d15 | M | 01bc 7d1d 493d |} I=| 01be 5539 117d |U9 }| 01c0 4d51 0551 |MQ Q| 01c2 14b0 290d | ) | 01c4 054d 157d | M }| 01c6 1d49 3d55 | I=U| 01c8 3911 7d4d |9 }M| 01ca 5105 5114 |Q Q | 01cc b028 bca8 | ( | 01ce 2520 2425 |% $%| 01d0 2424 2528 |$$%(| 01d2 2425 2c24 |$%,$| 01d4 a8bc 290d | ) | 01d6 054d 157d | M }| 01d8 1d49 3d55 | I=U| 01da 3911 7d4d |9 }M| 01dc 5105 5114 |Q Q | 01de b029 0d05 | ) | 01e0 4d15 7d1d |M } | 01e2 493d 5539 |I=U9| 01e4 117d 4d51 | }MQ| 01e6 0551 14b0 | Q | 01e8 290d 054d |) M| 01ea 157d 1d49 | } I| 01ec 3d55 3911 |=U9 | 01ee 7d4d 5105 |}MQ | 01f0 5114 b029 |Q )| 01f2 0d05 4d15 | M | 01f4 7d1d 493d |} I=| 01f6 5539 117d |U9 }| 01f8 4d51 0551 |MQ Q| 01fa 14b0 28bc | ( | 01fc a825 3024 | %0$| 01fe 2534 2425 |%4$%|