|
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, 5813_R1K_CODE, 75_tag, NULL, R1k_Segment, seg_0ea8df
└─⟦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 5813 |X | .CONST 0x5813 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 00f8 | | .CONST 0x00f8 ; 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 0032 | 2 | .CONST 0x0032 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0016 | | .CONST 0x0016 ; Number of locals 000b INIT_0008: 000b e001 | | Load 0x0,0x1 ; Debug Table 0x0 = .DEBUG 0x000b,0x014a,0x0000,0x0000,0x005a,0x6b65,0x0000,0x02a3 ; Debug Table 0x0.0x0 = 0xb,0xffff 000c 1b11 | | Execute Package,Field_Read,Field_Number 0x11 000d 0129 | ) | Execute Any,Make_Visible 000e e001 | | Load 0x0,0x1 ; Debug Table 0x0.0x1 = 0xe,0xfffe 000f 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0010 0129 | ) | Execute Any,Make_Visible 0011 029a 003b | ;| Declare_Subprogram INIT_0038,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x2 = 0x11,0xfffd 0013 029a 0053 | S| Declare_Subprogram INIT_0050,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x3 = 0x13,0xfffc 0015 029a 006b | k| Declare_Subprogram INIT_0068,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x4 = 0x15,0xfffb 0017 029a 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x5 = 0x17,0xfffa 0019 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x6 = 0x19,0xfff9 001b 029a 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x7 = 0x1b,0xfff8 001d 029a 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x8 = 0x1d,0xfff7 001f 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x9 = 0x1f,0xfff6 0021 00bf | | Action Accept_Activation 0022 1d0f | | Execute_Immediate Reference_Lex_1,0xf ; Debug Table 0x1 = .DEBUG 0x0022,0x0160,0x0000,0x0000,0x005a,0x6ec5,0x0000,0x0004 ; Debug Table 0x1.0x0 = 0x22,0xffff 0023 00c7 | | Action Elaborate_Subprogram 0024 1d10 | | Execute_Immediate Reference_Lex_1,0x10 ; Debug Table 0x1.0x1 = 0x24,0xfffe 0025 00c7 | | Action Elaborate_Subprogram 0026 1d11 | | Execute_Immediate Reference_Lex_1,0x11 ; Debug Table 0x1.0x2 = 0x26,0xfffd 0027 00c7 | | Action Elaborate_Subprogram 0028 1d12 | | Execute_Immediate Reference_Lex_1,0x12 ; Debug Table 0x1.0x3 = 0x28,0xfffc 0029 00c7 | | Action Elaborate_Subprogram 002a 1d13 | | Execute_Immediate Reference_Lex_1,0x13 ; Debug Table 0x1.0x4 = 0x2a,0xfffb 002b 00c7 | | Action Elaborate_Subprogram 002c 1d14 | | Execute_Immediate Reference_Lex_1,0x14 ; Debug Table 0x1.0x5 = 0x2c,0xfffa 002d 00c7 | | Action Elaborate_Subprogram 002e 1d15 | | Execute_Immediate Reference_Lex_1,0x15 ; Debug Table 0x1.0x6 = 0x2e,0xfff9 002f 00c7 | | Action Elaborate_Subprogram 0030 1d16 | | Execute_Immediate Reference_Lex_1,0x16 ; Debug Table 0x1.0x7 = 0x30,0xfff8 0031 00c7 | | Action Elaborate_Subprogram 0032 BODY_0008: 0032 00bc | | Action Signal_Activated 0033 00bb | | Action Signal_Completion 0034 0000 0000 | | .BLANK 0000[0x4] 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 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x2 = .DEBUG 0x003b,0x0172,0x0001,0x0000,0x005a,0x6b65,0x0000,0x02b0 ; Debug Table 0x2.0x0 = 0x3b,0x1 003c e5fd | | Load 0x2,-0x3 003d e5fe | | Load 0x2,-0x2 003e e002 | | Load 0x0,0x2 003f 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0040 011e | | Execute Any,Convert 0041 e5ff | | Load 0x2,-0x1 0042 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0043 e002 | | Load 0x0,0x2 0044 1b36 | 6 | Execute Package,Field_Read,Field_Number 0x36 0045 180f | | Execute Package,Field_Execute,Field_Number 0xf 0046 e003 | | Load 0x0,0x3 0047 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0048 011e | | Execute Any,Convert 0049 c5fe | | Store 0x2,-0x2 004a 00d1 | | Pop_Control Pop_Count_1 004b c5fc | | Store 0x2,-0x4 004c 4502 |E | Exit_Suprogram New_Top_Offset 0x2 004d 0000 0000 | | .XXX[0x3] 004f 0000 | | 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 e002 | | Load 0x0,0x2 ; Debug Table 0x3 = .DEBUG 0x0053,0x0176,0x0001,0x0000,0x005a,0x6b65,0x0000,0x02c4 ; Debug Table 0x3.0x0 = 0x53,0x1 0054 1b36 | 6 | Execute Package,Field_Read,Field_Number 0x36 0055 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0056 e5fe | | Load 0x2,-0x2 0057 e002 | | Load 0x0,0x2 0058 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0059 011e | | Execute Any,Convert 005a e5ff | | Load 0x2,-0x1 005b 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 005c e002 | | Load 0x0,0x2 005d 1b36 | 6 | Execute Package,Field_Read,Field_Number 0x36 005e 1810 | | Execute Package,Field_Execute,Field_Number 0x10 005f e003 | | Load 0x0,0x3 0060 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0061 011e | | Execute Any,Convert 0062 c5fe | | Store 0x2,-0x2 0063 c5fd | | Store 0x2,-0x3 0064 4502 |E | Exit_Suprogram New_Top_Offset 0x2 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 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x4 = .DEBUG 0x006b,0x017a,0x0001,0x0000,0x005a,0x6b65,0x0000,0x02d4 ; Debug Table 0x4.0x0 = 0x6b,0x1 006c e5fd | | Load 0x2,-0x3 006d e5fe | | Load 0x2,-0x2 006e e002 | | Load 0x0,0x2 006f 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0070 011e | | Execute Any,Convert 0071 e5ff | | Load 0x2,-0x1 0072 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0073 e002 | | Load 0x0,0x2 0074 1b36 | 6 | Execute Package,Field_Read,Field_Number 0x36 0075 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0076 e003 | | Load 0x0,0x3 0077 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0078 011e | | Execute Any,Convert 0079 c5fe | | Store 0x2,-0x2 007a 00d1 | | Pop_Control Pop_Count_1 007b c5fc | | Store 0x2,-0x4 007c 4502 |E | Exit_Suprogram New_Top_Offset 0x2 007d 0000 0000 | | .XXX[0x3] 007f 0000 | | 0080 ; -------------------------------------------------------------------------------------- 0080 ; SUBPROGRAM 0080 ; -------------------------------------------------------------------------------------- 0080 0083 | | .CONST 0x0083 ; Address of begin 0081 0004 | | .CONST 0x0004 ; Address of exception handler 0082 0001 | | .CONST 0x0001 ; Number of locals 0083 BODY_0080: 0083 INIT_0080: 0083 00e8 | | Load_Encached Character_Cache ; Debug Table 0x5 = .DEBUG 0x0083,0x017e,0x0001,0x0000,0x005a,0x6b65,0x0000,0x02e8 ; Debug Table 0x5.0x0 = 0x83,0x1 0084 e5fe | | Load 0x2,-0x2 0085 e002 | | Load 0x0,0x2 0086 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0087 011e | | Execute Any,Convert 0088 e5ff | | Load 0x2,-0x1 0089 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 008a e002 | | Load 0x0,0x2 008b 1b36 | 6 | Execute Package,Field_Read,Field_Number 0x36 008c 1812 | | Execute Package,Field_Execute,Field_Number 0x12 008d e003 | | Load 0x0,0x3 008e 1b15 | | Execute Package,Field_Read,Field_Number 0x15 008f 011e | | Execute Any,Convert 0090 c5fe | | Store 0x2,-0x2 0091 c5fd | | Store 0x2,-0x3 0092 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0093 0000 0000 | | .BLANK 0000[0x5] 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 e5fd | | Load 0x2,-0x3 ; Debug Table 0x6 = .DEBUG 0x009b,0x0182,0x0001,0x0000,0x005a,0x6b65,0x0000,0x02f8 ; Debug Table 0x6.0x0 = 0x9b,0x1 009c e002 | | Load 0x0,0x2 009d 1b16 | | Execute Package,Field_Read,Field_Number 0x16 009e 011e | | Execute Any,Convert 009f e5fe | | Load 0x2,-0x2 00a0 e5ff | | Load 0x2,-0x1 00a1 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 00a2 e002 | | Load 0x0,0x2 00a3 1b36 | 6 | Execute Package,Field_Read,Field_Number 0x36 00a4 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00a5 e003 | | Load 0x0,0x3 00a6 1b15 | | Execute Package,Field_Read,Field_Number 0x15 00a7 011e | | Execute Any,Convert 00a8 c5fd | | Store 0x2,-0x3 00a9 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00aa 0000 0000 | | .BLANK 0000[0x6] 00b0 ; -------------------------------------------------------------------------------------- 00b0 ; SUBPROGRAM 00b0 ; -------------------------------------------------------------------------------------- 00b0 00b3 | | .CONST 0x00b3 ; Address of begin 00b1 0004 | | .CONST 0x0004 ; Address of exception handler 00b2 0001 | | .CONST 0x0001 ; Number of locals 00b3 BODY_00b0: 00b3 INIT_00b0: 00b3 e5fd | | Load 0x2,-0x3 ; Debug Table 0x7 = .DEBUG 0x00b3,0x0186,0x0001,0x0000,0x005a,0x6b65,0x0000,0x0308 ; Debug Table 0x7.0x0 = 0xb3,0x1 00b4 e002 | | Load 0x0,0x2 00b5 1b16 | | Execute Package,Field_Read,Field_Number 0x16 00b6 011e | | Execute Any,Convert 00b7 e5fe | | Load 0x2,-0x2 00b8 e5ff | | Load 0x2,-0x1 00b9 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 00ba e002 | | Load 0x0,0x2 00bb 1b36 | 6 | Execute Package,Field_Read,Field_Number 0x36 00bc 1814 | | Execute Package,Field_Execute,Field_Number 0x14 00bd e003 | | Load 0x0,0x3 00be 1b15 | | Execute Package,Field_Read,Field_Number 0x15 00bf 011e | | Execute Any,Convert 00c0 c5fd | | Store 0x2,-0x3 00c1 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00c2 0000 0000 | | .BLANK 0000[0x6] 00c8 ; -------------------------------------------------------------------------------------- 00c8 ; SUBPROGRAM 00c8 ; -------------------------------------------------------------------------------------- 00c8 00cb | | .CONST 0x00cb ; Address of begin 00c9 0004 | | .CONST 0x0004 ; Address of exception handler 00ca 0001 | | .CONST 0x0001 ; Number of locals 00cb BODY_00c8: 00cb INIT_00c8: 00cb e5fd | | Load 0x2,-0x3 ; Debug Table 0x8 = .DEBUG 0x00cb,0x018a,0x0001,0x0000,0x005a,0x6b65,0x0000,0x0318 ; Debug Table 0x8.0x0 = 0xcb,0x1 00cc e002 | | Load 0x0,0x2 00cd 1b16 | | Execute Package,Field_Read,Field_Number 0x16 00ce 011e | | Execute Any,Convert 00cf e5fe | | Load 0x2,-0x2 00d0 e5ff | | Load 0x2,-0x1 00d1 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 00d2 e002 | | Load 0x0,0x2 00d3 1b36 | 6 | Execute Package,Field_Read,Field_Number 0x36 00d4 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00d5 e003 | | Load 0x0,0x3 00d6 1b15 | | Execute Package,Field_Read,Field_Number 0x15 00d7 011e | | Execute Any,Convert 00d8 c5fd | | Store 0x2,-0x3 00d9 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00da 0000 0000 | | .BLANK 0000[0x6] 00e0 ; -------------------------------------------------------------------------------------- 00e0 ; SUBPROGRAM 00e0 ; -------------------------------------------------------------------------------------- 00e0 00e3 | | .CONST 0x00e3 ; Address of begin 00e1 0004 | | .CONST 0x0004 ; Address of exception handler 00e2 0001 | | .CONST 0x0001 ; Number of locals 00e3 BODY_00e0: 00e3 INIT_00e0: 00e3 e5fd | | Load 0x2,-0x3 ; Debug Table 0x9 = .DEBUG 0x00e3,0x018e,0x0001,0x0000,0x005a,0x6b65,0x0000,0x0328 ; Debug Table 0x9.0x0 = 0xe3,0x1 00e4 e002 | | Load 0x0,0x2 00e5 1b16 | | Execute Package,Field_Read,Field_Number 0x16 00e6 011e | | Execute Any,Convert 00e7 e5fe | | Load 0x2,-0x2 00e8 e5ff | | Load 0x2,-0x1 00e9 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 00ea e002 | | Load 0x0,0x2 00eb 1b36 | 6 | Execute Package,Field_Read,Field_Number 0x36 00ec 1816 | | Execute Package,Field_Execute,Field_Number 0x16 00ed e003 | | Load 0x0,0x3 00ee 1b15 | | Execute Package,Field_Read,Field_Number 0x15 00ef 011e | | Execute Any,Convert 00f0 c5fd | | Store 0x2,-0x3 00f1 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00f2 0000 0000 | | .BLANK 0000[0x6] 00f8 ; -------------------------------------------------------------------------------------- 00f8 ; Debug Table 00f8 ; -------------------------------------------------------------------------------------- 00f8 0003 000a | | .CONST 0x0003,0x000a 00fa 000b 014a | J| .DEBUG 0x000b,0x014a,0x0000,0x0000,0x005a,0x6b65,0x0000,0x02a3 0102 0022 0160 | " `| .DEBUG 0x0022,0x0160,0x0000,0x0000,0x005a,0x6ec5,0x0000,0x0004 010a 003b 0172 | ; r| .DEBUG 0x003b,0x0172,0x0001,0x0000,0x005a,0x6b65,0x0000,0x02b0 0112 0053 0176 | S v| .DEBUG 0x0053,0x0176,0x0001,0x0000,0x005a,0x6b65,0x0000,0x02c4 011a 006b 017a | k z| .DEBUG 0x006b,0x017a,0x0001,0x0000,0x005a,0x6b65,0x0000,0x02d4 0122 0083 017e | ~| .DEBUG 0x0083,0x017e,0x0001,0x0000,0x005a,0x6b65,0x0000,0x02e8 012a 009b 0182 | | .DEBUG 0x009b,0x0182,0x0001,0x0000,0x005a,0x6b65,0x0000,0x02f8 0132 00b3 0186 | | .DEBUG 0x00b3,0x0186,0x0001,0x0000,0x005a,0x6b65,0x0000,0x0308 013a 00cb 018a | | .DEBUG 0x00cb,0x018a,0x0001,0x0000,0x005a,0x6b65,0x0000,0x0318 0142 00e3 018e | | .DEBUG 0x00e3,0x018e,0x0001,0x0000,0x005a,0x6b65,0x0000,0x0328 014a ; -------------------------------------------------------------------------------------- 014a ; Debug3 Subtable 0x0 014a ; -------------------------------------------------------------------------------------- 014a 000a 0000 | | .DBG3TAB 0x000a,0x0000 014c 000b ffff | | .CONST 0x000b,0xffff 014e 000e fffe | | .CONST 0x000e,0xfffe 0150 0011 fffd | | .CONST 0x0011,0xfffd 0152 0013 fffc | | .CONST 0x0013,0xfffc 0154 0015 fffb | | .CONST 0x0015,0xfffb 0156 0017 fffa | | .CONST 0x0017,0xfffa 0158 0019 fff9 | | .CONST 0x0019,0xfff9 015a 001b fff8 | | .CONST 0x001b,0xfff8 015c 001d fff7 | | .CONST 0x001d,0xfff7 015e 001f fff6 | | .CONST 0x001f,0xfff6 0160 ; -------------------------------------------------------------------------------------- 0160 ; Debug3 Subtable 0x1 0160 ; -------------------------------------------------------------------------------------- 0160 0008 0000 | | .DBG3TAB 0x0008,0x0000 0162 0022 ffff | " | .CONST 0x0022,0xffff 0164 0024 fffe | $ | .CONST 0x0024,0xfffe 0166 0026 fffd | & | .CONST 0x0026,0xfffd 0168 0028 fffc | ( | .CONST 0x0028,0xfffc 016a 002a fffb | * | .CONST 0x002a,0xfffb 016c 002c fffa | , | .CONST 0x002c,0xfffa 016e 002e fff9 | . | .CONST 0x002e,0xfff9 0170 0030 fff8 | 0 | .CONST 0x0030,0xfff8 0172 ; -------------------------------------------------------------------------------------- 0172 ; Debug3 Subtable 0x2 0172 ; -------------------------------------------------------------------------------------- 0172 0000 0001 | | .DBG3TAB 0x0000,0x0001 0174 003b 0001 | ; | .CONST 0x003b,0x0001 0176 ; -------------------------------------------------------------------------------------- 0176 ; Debug3 Subtable 0x3 0176 ; -------------------------------------------------------------------------------------- 0176 0000 0001 | | .DBG3TAB 0x0000,0x0001 0178 0053 0001 | S | .CONST 0x0053,0x0001 017a ; -------------------------------------------------------------------------------------- 017a ; Debug3 Subtable 0x4 017a ; -------------------------------------------------------------------------------------- 017a 0000 0001 | | .DBG3TAB 0x0000,0x0001 017c 006b 0001 | k | .CONST 0x006b,0x0001 017e ; -------------------------------------------------------------------------------------- 017e ; Debug3 Subtable 0x5 017e ; -------------------------------------------------------------------------------------- 017e 0000 0001 | | .DBG3TAB 0x0000,0x0001 0180 0083 0001 | | .CONST 0x0083,0x0001 0182 ; -------------------------------------------------------------------------------------- 0182 ; Debug3 Subtable 0x6 0182 ; -------------------------------------------------------------------------------------- 0182 0000 0001 | | .DBG3TAB 0x0000,0x0001 0184 009b 0001 | | .CONST 0x009b,0x0001 0186 ; -------------------------------------------------------------------------------------- 0186 ; Debug3 Subtable 0x7 0186 ; -------------------------------------------------------------------------------------- 0186 0000 0001 | | .DBG3TAB 0x0000,0x0001 0188 00b3 0001 | | .CONST 0x00b3,0x0001 018a ; -------------------------------------------------------------------------------------- 018a ; Debug3 Subtable 0x8 018a ; -------------------------------------------------------------------------------------- 018a 0000 0001 | | .DBG3TAB 0x0000,0x0001 018c 00cb 0001 | | .CONST 0x00cb,0x0001 018e ; -------------------------------------------------------------------------------------- 018e ; Debug3 Subtable 0x9 018e ; -------------------------------------------------------------------------------------- 018e 0000 0001 | | .DBG3TAB 0x0000,0x0001 0190 00e3 0001 | | .CONST 0x00e3,0x0001 0192 0000 0000 | | .BLANK 0000[0x6e]