|
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, 5811_R1K_CODE, 75_tag, NULL, R1k_Segment, seg_0500e0
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦5a81ac88f⟧ »Space Info Vol 1« └─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5811 |X | .CONST 0x5811 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 00c8 | | .CONST 0x00c8 ; 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 0000 | | .CONST 0x0000 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0051 | Q | .CONST 0x0051 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 001a | | .CONST 0x001a ; Number of locals 000b INIT_0008: 000b 0007 | | Action Break_Optional ; Debug Table 0x0 = .DEBUG 0x000b,0x011a,0x8000,0x0000,0x0036,0xb474,0x0000,0x0009 ; Debug Table 0x0.0x0 = 0xb,0xffff 000c 0007 | | Action Break_Optional ; Debug Table 0x0.0x1 = 0xc,0xfffe 000d 029a 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x2 = 0xd,0xfffd 000f 60b4 |` | Indirect_Literal Discrete,0xc4,{0x00000000, 0x36b47401} ; Debug Table 0x0.0x3 = 0xf,0xfffc 0010 0129 | ) | Execute Any,Make_Visible 0011 029a 0063 | c| Declare_Subprogram INIT_0060,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x4 = 0x11,0xfffb 0013 029a 006b | k| Declare_Subprogram INIT_0068,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x5 = 0x13,0xfffa 0015 029a 007b | {| Declare_Subprogram INIT_0078,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x6 = 0x15,0xfff9 0017 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x7 = 0x17,0xfff8 0019 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x8 = 0x19,0xfff7 001b 00bf | | Action Accept_Activation 001c 0007 | | Action Break_Optional ; Debug Table 0x1 = .DEBUG 0x001c,0x012e,0x8000,0x0000,0x0036,0xb4b4,0x0000,0x0015 ; Debug Table 0x1.0x0 = 0x1c,0xffff 001d e001 | | Load 0x0,0x1 ; Debug Table 0x1.0x1 = 0x1d,0xfffe 001e 1b10 | | Execute Package,Field_Read,Field_Number 0x10 001f 00f0 | | Load_Encached Segment_Cache ; Debug Table 0x1.0x2 = 0x1f,0xfffd 0020 4800 |H | Short_Literal 0x0 ; Debug Table 0x1.0x3 = 0x20,0xfffc 0021 48ff |H | Short_Literal 0xff 0022 00f0 | | Load_Encached Segment_Cache 0023 02a0 | | Declare_Subprogram Null_Subprogram 0024 4801 |H | Short_Literal 0x1 0025 035d | ] | Declare_Type Array,Defined 0026 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x1.0x4 = 0x26,0xfffb 0027 0337 | 7 | Declare_Variable Array 0028 00d9 | | Load_Top At_Offset_1 0029 0337 | 7 | Declare_Variable Array 002a 48ff |H | Short_Literal 0xff 002b 4800 |H | Short_Literal 0x0 002c 00f0 | | Load_Encached Segment_Cache 002d 00d9 | | Load_Top At_Offset_1 002e e218 | | Load 0x1,0x18 002f 01d6 | | Execute Vector,Field_Write 0030 3ffb |? | Loop_Increasing 0x2c 0031 00d9 | | Load_Top At_Offset_1 0032 01d4 | | Execute Vector,Structure_Write 0033 0007 | | Action Break_Optional ; Debug Table 0x1.0x5 = 0x33,0xfffa 0034 0007 | | Action Break_Optional ; Debug Table 0x1.0x6 = 0x34,0xfff9 0035 0007 | | Action Break_Optional ; Debug Table 0x1.0x7 = 0x35,0xfff8 0036 0007 | | Action Break_Optional ; Debug Table 0x1.0x8 = 0x36,0xfff7 0037 0007 | | Action Break_Optional ; Debug Table 0x1.0x9 = 0x37,0xfff6 0038 029d 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call ; Debug Table 0x1.0xa = 0x38,0xfff5 003a 029d 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call ; Debug Table 0x1.0xb = 0x3a,0xfff4 003c 6083 |` | Indirect_Literal Discrete,0xc0,{0x00000000, 0x0036b4b4} ; Debug Table 0x1.0xc = 0x3c,0xfff3 003d 48b5 |H | Short_Literal 0xb5 003e 1d18 | | Execute_Immediate Reference_Lex_1,0x18 003f 1d19 | | Execute_Immediate Reference_Lex_1,0x19 0040 e002 | | Load 0x0,0x2 0041 1b31 | 1 | Execute Package,Field_Read,Field_Number 0x31 0042 0387 | | Declare_Variable Package 0043 00d8 | | Load_Top At_Offset_0 0044 020f | | Execute Module,Activate 0045 1d0d | | Execute_Immediate Reference_Lex_1,0xd ; Debug Table 0x1.0xd = 0x45,0xfff2 0046 00c7 | | Action Elaborate_Subprogram 0047 1d0f | | Execute_Immediate Reference_Lex_1,0xf ; Debug Table 0x1.0xe = 0x47,0xfff1 0048 00c7 | | Action Elaborate_Subprogram 0049 1d10 | | Execute_Immediate Reference_Lex_1,0x10 ; Debug Table 0x1.0xf = 0x49,0xfff0 004a 00c7 | | Action Elaborate_Subprogram 004b 1d11 | | Execute_Immediate Reference_Lex_1,0x11 ; Debug Table 0x1.0x10 = 0x4b,0xffef 004c 00c7 | | Action Elaborate_Subprogram 004d 1d12 | | Execute_Immediate Reference_Lex_1,0x12 ; Debug Table 0x1.0x11 = 0x4d,0xffee 004e 00c7 | | Action Elaborate_Subprogram 004f 1d13 | | Execute_Immediate Reference_Lex_1,0x13 ; Debug Table 0x1.0x12 = 0x4f,0xffed 0050 00c7 | | Action Elaborate_Subprogram 0051 BODY_0008: 0051 00bc | | Action Signal_Activated 0052 00bb | | Action Signal_Completion 0053 0000 0000 | | .BLANK 0000[0x5] 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 4887 |H | Short_Literal 0x87 ; Debug Table 0x2 = .DEBUG 0x005b,0x0156,0x0001,0x0000,0x0036,0xb474,0x0000,0x0017 ; Debug Table 0x2.0x0 = 0x5b,0x1 005c 0257 | W | Execute Discrete,Raise 005d 0000 0000 | | .XXX[0x3] 005f 0000 | | 0060 ; -------------------------------------------------------------------------------------- 0060 ; SUBPROGRAM 0060 ; -------------------------------------------------------------------------------------- 0060 0063 | c | .CONST 0x0063 ; Address of begin 0061 0004 | | .CONST 0x0004 ; Address of exception handler 0062 0001 | | .CONST 0x0001 ; Number of locals 0063 BODY_0060: 0063 INIT_0060: 0063 4801 |H | Short_Literal 0x1 ; Debug Table 0x3 = .DEBUG 0x0063,0x015a,0x0002,0x0000,0x0036,0xb474,0x0000,0x0032 ; Debug Table 0x3.0x0 = 0x63,0x1 0064 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0065 0000 0000 | | .XXX[0x3] 0067 0000 | | 0068 ; -------------------------------------------------------------------------------------- 0068 ; SUBPROGRAM 0068 ; -------------------------------------------------------------------------------------- 0068 006b | k | .CONST 0x006b ; Address of begin 0069 0004 | | .CONST 0x0004 ; Address of exception handler 006a 0001 | | .CONST 0x0001 ; Number of locals 006b BODY_0068: 006b INIT_0068: 006b 00da | | Load_Top At_Offset_2 ; Debug Table 0x4 = .DEBUG 0x006b,0x015e,0x0002,0x0000,0x0036,0xb474,0x0000,0x0040 ; Debug Table 0x4.0x0 = 0x6b,0x1 006c 00f0 | | Load_Encached Segment_Cache 006d 021f | | Execute Heap_Access,Equal 006e 6803 |h | Jump_Zero 0x72 006f 00db | | Load_Top At_Offset_3 ; Debug Table 0x4.0x1 = 0x6f,0x2 0070 8211 | | Call 0x1,0x11 0071 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0072 00da | | Load_Top At_Offset_2 ; Debug Table 0x4.0x2 = 0x72,0x3 0073 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0074 0000 0000 | | .BLANK 0000[0x4] 0078 ; -------------------------------------------------------------------------------------- 0078 ; SUBPROGRAM 0078 ; -------------------------------------------------------------------------------------- 0078 007f | | .CONST 0x007f ; Address of begin 0079 0004 | | .CONST 0x0004 ; Address of exception handler 007a 0002 | | .CONST 0x0002 ; Number of locals 007b INIT_0078: 007b 00da | | Load_Top At_Offset_2 ; Debug Table 0x5 = .DEBUG 0x007b,0x0166,0x0002,0x0000,0x0036,0xb474,0x0000,0x0056 ; Debug Table 0x5.0x0 = 0x7b,0xffff 007c e217 | | Load 0x1,0x17 007d 01d5 | | Execute Vector,Field_Reference 007e 0007 | | Action Break_Optional 007f BODY_0078: 007f 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x5.0x1 = 0x7f,0x1 0080 00f0 | | Load_Encached Segment_Cache 0081 021f | | Execute Heap_Access,Equal 0082 6808 |h | Jump_Zero 0x8b 0083 00f0 | | Load_Encached Segment_Cache ; Debug Table 0x5.0x2 = 0x83,0x2 0084 e5ff | | Load 0x2,-0x1 0085 4a00 |J | Short_Literal 0x200 0086 0273 | s | Execute Discrete,Plus 0087 0248 | H | Execute Discrete,Check_In_Integer 0088 e003 | | Load 0x0,0x3 0089 180d | | Execute Package,Field_Execute,Field_Number 0xd 008a c402 | | Store 0x2,0x2 008b 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x5.0x3 = 0x8b,0x3 008c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 008d 0000 0000 | | .XXX[0x3] 008f 0000 | | 0090 ; -------------------------------------------------------------------------------------- 0090 ; SUBPROGRAM 0090 ; -------------------------------------------------------------------------------------- 0090 0093 | | .CONST 0x0093 ; Address of begin 0091 0004 | | .CONST 0x0004 ; Address of exception handler 0092 0001 | | .CONST 0x0001 ; Number of locals 0093 BODY_0090: 0093 INIT_0090: 0093 4887 |H | Short_Literal 0x87 ; Debug Table 0x6 = .DEBUG 0x0093,0x0170,0x0001,0x0000,0x0036,0xb474,0x0000,0x0066 ; Debug Table 0x6.0x0 = 0x93,0x1 0094 0257 | W | Execute Discrete,Raise 0095 0000 0000 | | .XXX[0x3] 0097 0000 | | 0098 ; -------------------------------------------------------------------------------------- 0098 ; SUBPROGRAM 0098 ; -------------------------------------------------------------------------------------- 0098 009b | | .CONST 0x009b ; Address of begin 0099 0004 | | .CONST 0x0004 ; Address of exception handler 009a 0001 | | .CONST 0x0001 ; Number of locals 009b BODY_0098: 009b INIT_0098: 009b 00da | | Load_Top At_Offset_2 ; Debug Table 0x7 = .DEBUG 0x009b,0x0174,0x0002,0x0000,0x0036,0xb474,0x0000,0x0073 ; Debug Table 0x7.0x0 = 0x9b,0x1 009c e217 | | Load 0x1,0x17 009d 01d7 | | Execute Vector,Field_Read 009e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 009f 0000 | | .XXX[0x1] 00a0 ; -------------------------------------------------------------------------------------- 00a0 ; SUBPROGRAM 00a0 ; -------------------------------------------------------------------------------------- 00a0 00a3 | | .CONST 0x00a3 ; Address of begin 00a1 0004 | | .CONST 0x0004 ; Address of exception handler 00a2 0001 | | .CONST 0x0001 ; Number of locals 00a3 BODY_00a0: 00a3 INIT_00a0: 00a3 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; Debug Table 0x8 = .DEBUG 0x00a3,0x0178,0x0001,0x0000,0x0036,0xb4b4,0x0000,0x007d ; Debug Table 0x8.0x0 = 0xa3,0x1 00a4 0000 0000 | | .BLANK 0000[0x4] 00a8 ; -------------------------------------------------------------------------------------- 00a8 ; SUBPROGRAM 00a8 ; -------------------------------------------------------------------------------------- 00a8 00af | | .CONST 0x00af ; Address of begin 00a9 0004 | | .CONST 0x0004 ; Address of exception handler 00aa 0002 | | .CONST 0x0002 ; Number of locals 00ab INIT_00a8: 00ab 00da | | Load_Top At_Offset_2 ; Debug Table 0x9 = .DEBUG 0x00ab,0x017c,0x0001,0x0000,0x0036,0xb4b4,0x0000,0x008a ; Debug Table 0x9.0x0 = 0xab,0xffff 00ac e217 | | Load 0x1,0x17 00ad 01d5 | | Execute Vector,Field_Reference 00ae 0007 | | Action Break_Optional 00af BODY_00a8: 00af 0007 | | Action Break_Optional ; Debug Table 0x9.0x1 = 0xaf,0x1 00b0 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x9.0x2 = 0xb0,0x401 00b1 e004 | | Load 0x0,0x4 00b2 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00b3 6008 |` | Indirect_Literal Discrete,0xbc,{0x00000000, 0x000a0000} 00b4 027c | | | Execute Discrete,Less 00b5 7005 |p | Jump_Nonzero 0xbb ; Debug Table 0x9.0x3 = 0xb5,0x1 00b6 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x9.0x4 = 0xb6,0x2 00b7 e003 | | Load 0x0,0x3 00b8 180f | | Execute Package,Field_Execute,Field_Number 0xf 00b9 00f0 | | Load_Encached Segment_Cache ; Debug Table 0x9.0x5 = 0xb9,0x3 00ba a402 | | Store_Unchecked 0x2,0x2 00bb 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00bc 0000 0000 | | .LITERAL {0x00000000, 0x000a0000} 00c0 0000 0000 | | .LITERAL {0x00000000, 0x0036b4b4} 00c4 0000 0000 | | .LITERAL {0x00000000, 0x36b47401} 00c8 ; -------------------------------------------------------------------------------------- 00c8 ; Debug Table 00c8 ; -------------------------------------------------------------------------------------- 00c8 0003 000a | | .CONST 0x0003,0x000a 00ca 000b 011a | | .DEBUG 0x000b,0x011a,0x8000,0x0000,0x0036,0xb474,0x0000,0x0009 00d2 001c 012e | .| .DEBUG 0x001c,0x012e,0x8000,0x0000,0x0036,0xb4b4,0x0000,0x0015 00da 005b 0156 | [ V| .DEBUG 0x005b,0x0156,0x0001,0x0000,0x0036,0xb474,0x0000,0x0017 00e2 0063 015a | c Z| .DEBUG 0x0063,0x015a,0x0002,0x0000,0x0036,0xb474,0x0000,0x0032 00ea 006b 015e | k ^| .DEBUG 0x006b,0x015e,0x0002,0x0000,0x0036,0xb474,0x0000,0x0040 00f2 007b 0166 | { f| .DEBUG 0x007b,0x0166,0x0002,0x0000,0x0036,0xb474,0x0000,0x0056 00fa 0093 0170 | p| .DEBUG 0x0093,0x0170,0x0001,0x0000,0x0036,0xb474,0x0000,0x0066 0102 009b 0174 | t| .DEBUG 0x009b,0x0174,0x0002,0x0000,0x0036,0xb474,0x0000,0x0073 010a 00a3 0178 | x| .DEBUG 0x00a3,0x0178,0x0001,0x0000,0x0036,0xb4b4,0x0000,0x007d 0112 00ab 017c | || .DEBUG 0x00ab,0x017c,0x0001,0x0000,0x0036,0xb4b4,0x0000,0x008a 011a ; -------------------------------------------------------------------------------------- 011a ; Debug3 Subtable 0x0 011a ; -------------------------------------------------------------------------------------- 011a 0009 0000 | | .DBG3TAB 0x0009,0x0000 011c 000b ffff | | .CONST 0x000b,0xffff 011e 000c fffe | | .CONST 0x000c,0xfffe 0120 000d fffd | | .CONST 0x000d,0xfffd 0122 000f fffc | | .CONST 0x000f,0xfffc 0124 0011 fffb | | .CONST 0x0011,0xfffb 0126 0013 fffa | | .CONST 0x0013,0xfffa 0128 0015 fff9 | | .CONST 0x0015,0xfff9 012a 0017 fff8 | | .CONST 0x0017,0xfff8 012c 0019 fff7 | | .CONST 0x0019,0xfff7 012e ; -------------------------------------------------------------------------------------- 012e ; Debug3 Subtable 0x1 012e ; -------------------------------------------------------------------------------------- 012e 0013 0000 | | .DBG3TAB 0x0013,0x0000 0130 001c ffff | | .CONST 0x001c,0xffff 0132 001d fffe | | .CONST 0x001d,0xfffe 0134 001f fffd | | .CONST 0x001f,0xfffd 0136 0020 fffc | | .CONST 0x0020,0xfffc 0138 0026 fffb | & | .CONST 0x0026,0xfffb 013a 0033 fffa | 3 | .CONST 0x0033,0xfffa 013c 0034 fff9 | 4 | .CONST 0x0034,0xfff9 013e 0035 fff8 | 5 | .CONST 0x0035,0xfff8 0140 0036 fff7 | 6 | .CONST 0x0036,0xfff7 0142 0037 fff6 | 7 | .CONST 0x0037,0xfff6 0144 0038 fff5 | 8 | .CONST 0x0038,0xfff5 0146 003a fff4 | : | .CONST 0x003a,0xfff4 0148 003c fff3 | < | .CONST 0x003c,0xfff3 014a 0045 fff2 | E | .CONST 0x0045,0xfff2 014c 0047 fff1 | G | .CONST 0x0047,0xfff1 014e 0049 fff0 | I | .CONST 0x0049,0xfff0 0150 004b ffef | K | .CONST 0x004b,0xffef 0152 004d ffee | M | .CONST 0x004d,0xffee 0154 004f ffed | O | .CONST 0x004f,0xffed 0156 ; -------------------------------------------------------------------------------------- 0156 ; Debug3 Subtable 0x2 0156 ; -------------------------------------------------------------------------------------- 0156 0000 0001 | | .DBG3TAB 0x0000,0x0001 0158 005b 0001 | [ | .CONST 0x005b,0x0001 015a ; -------------------------------------------------------------------------------------- 015a ; Debug3 Subtable 0x3 015a ; -------------------------------------------------------------------------------------- 015a 0000 0001 | | .DBG3TAB 0x0000,0x0001 015c 0063 0001 | c | .CONST 0x0063,0x0001 015e ; -------------------------------------------------------------------------------------- 015e ; Debug3 Subtable 0x4 015e ; -------------------------------------------------------------------------------------- 015e 0000 0003 | | .DBG3TAB 0x0000,0x0003 0160 006b 0001 | k | .CONST 0x006b,0x0001 0162 006f 0002 | o | .CONST 0x006f,0x0002 0164 0072 0003 | r | .CONST 0x0072,0x0003 0166 ; -------------------------------------------------------------------------------------- 0166 ; Debug3 Subtable 0x5 0166 ; -------------------------------------------------------------------------------------- 0166 0001 0003 | | .DBG3TAB 0x0001,0x0003 0168 007b ffff | { | .CONST 0x007b,0xffff 016a 007f 0001 | | .CONST 0x007f,0x0001 016c 0083 0002 | | .CONST 0x0083,0x0002 016e 008b 0003 | | .CONST 0x008b,0x0003 0170 ; -------------------------------------------------------------------------------------- 0170 ; Debug3 Subtable 0x6 0170 ; -------------------------------------------------------------------------------------- 0170 0000 0001 | | .DBG3TAB 0x0000,0x0001 0172 0093 0001 | | .CONST 0x0093,0x0001 0174 ; -------------------------------------------------------------------------------------- 0174 ; Debug3 Subtable 0x7 0174 ; -------------------------------------------------------------------------------------- 0174 0000 0001 | | .DBG3TAB 0x0000,0x0001 0176 009b 0001 | | .CONST 0x009b,0x0001 0178 ; -------------------------------------------------------------------------------------- 0178 ; Debug3 Subtable 0x8 0178 ; -------------------------------------------------------------------------------------- 0178 0000 0001 | | .DBG3TAB 0x0000,0x0001 017a 00a3 0001 | | .CONST 0x00a3,0x0001 017c ; -------------------------------------------------------------------------------------- 017c ; Debug3 Subtable 0x9 017c ; -------------------------------------------------------------------------------------- 017c 0001 0005 | | .DBG3TAB 0x0001,0x0005 017e 00ab ffff | | .CONST 0x00ab,0xffff 0180 00af 0001 | | .CONST 0x00af,0x0001 0182 00b0 0401 | | .CONST 0x00b0,0x0401 0184 00b5 0001 | | .CONST 0x00b5,0x0001 0186 00b6 0002 | | .CONST 0x00b6,0x0002 0188 00b9 0003 | | .CONST 0x00b9,0x0003 018a 0000 0000 | | .BLANK 0000[0x76]