|
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 00e0 | | .CONST 0x00e0 ; 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 0038 | 8 | .CONST 0x0038 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0015 | | .CONST 0x0015 ; Number of locals 000b INIT_0008: 000b 0007 | | Action Break_Optional ; Debug Table 0x0 = .DEBUG 0x000b,0x0132,0x8000,0x0000,0x0036,0x42b4,0x0000,0x0009 ; Debug Table 0x0.0x0 = 0xb,0xffff 000c 0007 | | Action Break_Optional ; Debug Table 0x0.0x1 = 0xc,0xfffe 000d 029a 0043 | C| Declare_Subprogram INIT_0040,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x2 = 0xd,0xfffd 000f 029a 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x3 = 0xf,0xfffc 0011 029a 0073 | s| Declare_Subprogram INIT_0070,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x4 = 0x11,0xfffb 0013 0007 | | Action Break_Optional ; Debug Table 0x0.0x5 = 0x13,0xfffa 0014 00bf | | Action Accept_Activation ; Debug Table 0x0.0x6 = 0x14,0xfff9 0015 e001 | | Load 0x0,0x1 ; Debug Table 0x1 = .DEBUG 0x0015,0x0142,0x8000,0x0000,0x0036,0x42c4,0x0000,0x0009 ; Debug Table 0x1.0x0 = 0x15,0xffff 0016 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0017 02a0 | | Declare_Subprogram Null_Subprogram 0018 03ad | | Declare_Type Heap_Access,Defined 0019 0007 | | Action Break_Optional ; Debug Table 0x1.0x1 = 0x19,0xfffe 001a 0007 | | Action Break_Optional ; Debug Table 0x1.0x2 = 0x1a,0xfffd 001b 029d 007b | {| Declare_Subprogram INIT_0078,For_Outer_Call ; Debug Table 0x1.0x3 = 0x1b,0xfffc 001d 029d 008b | | Declare_Subprogram INIT_0088,For_Outer_Call ; Debug Table 0x1.0x4 = 0x1d,0xfffb 001f 60ac |` | Indirect_Literal Discrete,0xcc,{0x00000000, 0x003642c4} ; Debug Table 0x1.0x5 = 0x1f,0xfffa 0020 4863 |Hc | Short_Literal 0x63 0021 0092 00d0 | | Action Push_String_Extended,0xd0 ; "Terminal_Io.Handle_Type" 0023 e210 | | Load 0x1,0x10 0024 e210 | | Load 0x1,0x10 0025 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0026 1d12 | | Execute_Immediate Reference_Lex_1,0x12 0027 4800 |H | Short_Literal 0x0 0028 4801 |H | Short_Literal 0x1 0029 e002 | | Load 0x0,0x2 002a 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30 002b 0387 | | Declare_Variable Package 002c 00d8 | | Load_Top At_Offset_0 002d 020f | | Execute Module,Activate 002e 1d0e | | Execute_Immediate Reference_Lex_1,0xe ; Debug Table 0x1.0x6 = 0x2e,0xfff9 002f 00c7 | | Action Elaborate_Subprogram 0030 1d0f | | Execute_Immediate Reference_Lex_1,0xf ; Debug Table 0x1.0x7 = 0x30,0xfff8 0031 00c7 | | Action Elaborate_Subprogram 0032 1d0d | | Execute_Immediate Reference_Lex_1,0xd ; Debug Table 0x1.0x8 = 0x32,0xfff7 0033 00c7 | | Action Elaborate_Subprogram 0034 029d 009b | | Declare_Subprogram INIT_0098,For_Outer_Call ; Debug Table 0x1.0x9 = 0x34,0xfff6 0036 029d 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call ; Debug Table 0x1.0xa = 0x36,0xfff5 0038 BODY_0008: 0038 00bc | | Action Signal_Activated 0039 00bb | | Action Signal_Completion 003a 0000 0000 | | .BLANK 0000[0x6] 0040 ; -------------------------------------------------------------------------------------- 0040 ; SUBPROGRAM 0040 ; -------------------------------------------------------------------------------------- 0040 0048 | H | .CONST 0x0048 ; Address of begin 0041 0004 | | .CONST 0x0004 ; Address of exception handler 0042 0002 | | .CONST 0x0002 ; Number of locals 0043 INIT_0040: 0043 e210 | | Load 0x1,0x10 ; Debug Table 0x2 = .DEBUG 0x0043,0x015a,0x0002,0x0000,0x0036,0x42b4,0x0000,0x0016 ; Debug Table 0x2.0x0 = 0x43,0xffff 0044 00db | | Load_Top At_Offset_3 0045 e213 | | Load 0x1,0x13 0046 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0047 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0048 BODY_0040: 0048 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x2.0x1 = 0x48,0x1 0049 e210 | | Load 0x1,0x10 004a 021e | | Execute Heap_Access,Maximum 004b 6809 |h | Jump_Zero 0x55 004c 00d8 | | Load_Top At_Offset_0 004d 0217 | | Execute Heap_Access,All_Reference 004e e001 | | Load 0x0,0x1 004f 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0050 6804 |h | Jump_Zero 0x55 0051 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x2.0x2 = 0x51,0x2 0052 0217 | | Execute Heap_Access,All_Reference 0053 0320 | | Declare_Variable Record,Duplicate 0054 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0055 e002 | | Load 0x0,0x2 ; Debug Table 0x2.0x3 = 0x55,0x3 0056 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e 0057 0257 | W | Execute Discrete,Raise 0058 ; -------------------------------------------------------------------------------------- 0058 ; SUBPROGRAM 0058 ; -------------------------------------------------------------------------------------- 0058 0060 | ` | .CONST 0x0060 ; Address of begin 0059 0004 | | .CONST 0x0004 ; Address of exception handler 005a 0002 | | .CONST 0x0002 ; Number of locals 005b INIT_0058: 005b e210 | | Load 0x1,0x10 ; Debug Table 0x3 = .DEBUG 0x005b,0x0164,0x0001,0x0000,0x0036,0x42b4,0x0000,0x0026 ; Debug Table 0x3.0x0 = 0x5b,0xffff 005c 00db | | Load_Top At_Offset_3 005d e213 | | Load 0x1,0x13 005e 1817 | | Execute Package,Field_Execute,Field_Number 0x17 005f 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0060 BODY_0058: 0060 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x3.0x1 = 0x60,0x1 0061 0217 | | Execute Heap_Access,All_Reference 0062 e001 | | Load 0x0,0x1 0063 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0064 6803 |h | Jump_Zero 0x68 0065 e002 | | Load 0x0,0x2 ; Debug Table 0x3.0x2 = 0x65,0x2 0066 1b2f | / | Execute Package,Field_Read,Field_Number 0x2f 0067 0257 | W | Execute Discrete,Raise 0068 e5fe | | Load 0x2,-0x2 ; Debug Table 0x3.0x3 = 0x68,0x3 0069 00d9 | | Load_Top At_Offset_1 006a 0218 | | Execute Heap_Access,All_Write 006b 4503 |E | Exit_Suprogram New_Top_Offset 0x3 006c 0000 0000 | | .BLANK 0000[0x4] 0070 ; -------------------------------------------------------------------------------------- 0070 ; SUBPROGRAM 0070 ; -------------------------------------------------------------------------------------- 0070 0073 | s | .CONST 0x0073 ; Address of begin 0071 0004 | | .CONST 0x0004 ; Address of exception handler 0072 0001 | | .CONST 0x0001 ; Number of locals 0073 BODY_0070: 0073 INIT_0070: 0073 00da | | Load_Top At_Offset_2 ; Debug Table 0x4 = .DEBUG 0x0073,0x016e,0x0001,0x0000,0x0036,0x42b4,0x0000,0x0039 ; Debug Table 0x4.0x0 = 0x73,0x1 0074 e213 | | Load 0x1,0x13 0075 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0076 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0077 0000 | | .XXX[0x1] 0078 ; -------------------------------------------------------------------------------------- 0078 ; SUBPROGRAM 0078 ; -------------------------------------------------------------------------------------- 0078 007b | { | .CONST 0x007b ; Address of begin 0079 0004 | | .CONST 0x0004 ; Address of exception handler 007a 0001 | | .CONST 0x0001 ; Number of locals 007b BODY_0078: 007b INIT_0078: 007b e210 | | Load 0x1,0x10 ; Debug Table 0x5 = .DEBUG 0x007b,0x0172,0x0001,0x0000,0x0036,0x42c4,0x0000,0x001c ; Debug Table 0x5.0x0 = 0x7b,0x1 007c 00db | | Load_Top At_Offset_3 007d e003 | | Load 0x0,0x3 007e 1811 | | Execute Package,Field_Execute,Field_Number 0x11 007f 039c | | Declare_Variable Heap_Access,By_Allocation 0080 a5fe | | Store_Unchecked 0x2,-0x2 0081 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; Debug Table 0x5.0x1 = 0x81,0x2 0082 0000 0000 | | .BLANK 0000[0x6] 0088 ; -------------------------------------------------------------------------------------- 0088 ; SUBPROGRAM 0088 ; -------------------------------------------------------------------------------------- 0088 008d | | .CONST 0x008d ; Address of begin 0089 0004 | | .CONST 0x0004 ; Address of exception handler 008a 0002 | | .CONST 0x0002 ; Number of locals 008b INIT_0088: 008b 029f 00c3 | | Declare_Subprogram INIT_00c0,For_Call ; Debug Table 0x6 = .DEBUG 0x008b,0x0178,0x0001,0x0000,0x0036,0x42c4,0x0000,0x003e 008d BODY_0088: 008d 8402 | | Call 0x2,0x2 ; Debug Table 0x6.0x0 = 0x8d,0x1 008e e210 | | Load 0x1,0x10 ; Debug Table 0x6.0x1 = 0x8e,0x2 008f a5fe | | Store_Unchecked 0x2,-0x2 0090 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0091 0000 0000 | | .BLANK 0000[0x7] 0098 ; -------------------------------------------------------------------------------------- 0098 ; SUBPROGRAM 0098 ; -------------------------------------------------------------------------------------- 0098 009e | | .CONST 0x009e ; Address of begin 0099 00a4 | | .CONST 0x00a4 ; Address of exception handler 009a 0002 | | .CONST 0x0002 ; Number of locals 009b INIT_0098: 009b e001 | | Load 0x0,0x1 ; Debug Table 0x7 = .DEBUG 0x009b,0x017e,0x0002,0x0000,0x0036,0x42c4,0x0000,0x0101 ; Debug Table 0x7.0x0 = 0x9b,0xffff 009c 1b13 | | Execute Package,Field_Read,Field_Number 0x13 009d 0322 | " | Declare_Variable Record 009e BODY_0098: 009e 00db | | Load_Top At_Offset_3 ; Debug Table 0x7.0x1 = 0x9e,0x1 009f 820d | | Call 0x1,0xd 00a0 00d9 | | Load_Top At_Offset_1 00a1 017d | } | Execute Record,Structure_Write 00a2 4801 |H | Short_Literal 0x1 ; Debug Table 0x7.0x2 = 0xa2,0x2 00a3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00a4 TRAP_0098: 00a4 0007 | | Action Break_Optional 00a5 4800 |H | Short_Literal 0x0 ; Debug Table 0x7.0x3 = 0xa5,0x3 00a6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00a7 0000 | | .XXX[0x1] 00a8 ; -------------------------------------------------------------------------------------- 00a8 ; SUBPROGRAM 00a8 ; -------------------------------------------------------------------------------------- 00a8 00ab | | .CONST 0x00ab ; Address of begin 00a9 00b2 | | .CONST 0x00b2 ; Address of exception handler 00aa 0001 | | .CONST 0x0001 ; Number of locals 00ab BODY_00a8: 00ab INIT_00a8: 00ab 00da | | Load_Top At_Offset_2 ; Debug Table 0x8 = .DEBUG 0x00ab,0x0188,0x0001,0x0000,0x0036,0x42c4,0x0000,0x0128 ; Debug Table 0x8.0x0 = 0xab,0x1 00ac 820d | | Call 0x1,0xd 00ad e5fe | | Load 0x2,-0x2 00ae 017d | } | Execute Record,Structure_Write 00af 4801 |H | Short_Literal 0x1 ; Debug Table 0x8.0x1 = 0xaf,0x2 00b0 a5fd | | Store_Unchecked 0x2,-0x3 00b1 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00b2 TRAP_00a8: 00b2 e002 | | Load 0x0,0x2 00b3 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e 00b4 010f | | Execute Exception,Equal 00b5 6807 |h | Jump_Zero 0xbd 00b6 e001 | | Load 0x0,0x1 ; Debug Table 0x8.0x2 = 0xb6,0x3 00b7 1b14 | | Execute Package,Field_Read,Field_Number 0x14 00b8 e5fe | | Load 0x2,-0x2 00b9 017d | } | Execute Record,Structure_Write 00ba 4800 |H | Short_Literal 0x0 ; Debug Table 0x8.0x3 = 0xba,0x4 00bb a5fd | | Store_Unchecked 0x2,-0x3 00bc 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00bd 0100 | | Execute Exception,Raise 00be 0000 0000 | | .XXX[0x2] 00c0 ; -------------------------------------------------------------------------------------- 00c0 ; SUBPROGRAM 00c0 ; -------------------------------------------------------------------------------------- 00c0 00c3 | | .CONST 0x00c3 ; Address of begin 00c1 00c8 | | .CONST 0x00c8 ; Address of exception handler 00c2 0001 | | .CONST 0x0001 ; Number of locals 00c3 BODY_00c0: 00c3 INIT_00c0: 00c3 e5fe | | Load 0x2,-0x2 ; Debug Table 0x9 = .DEBUG 0x00c3,0x0192,0x0004,0x0000,0x0036,0x42c4,0x0000,0x005b ; Debug Table 0x9.0x0 = 0xc3,0x1 00c4 0217 | | Execute Heap_Access,All_Reference 00c5 e001 | | Load 0x0,0x1 00c6 1816 | | Execute Package,Field_Execute,Field_Number 0x16 00c7 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00c8 TRAP_00c0: 00c8 0007 | | Action Break_Optional 00c9 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; Debug Table 0x9.0x1 = 0xc9,0x2 00ca 0000 0000 | | .XXX[0x2] 00cc 0000 0000 | | .LITERAL {0x00000000, 0x003642c4} 00d0 ; -------------------------------------------------------------------------------------- 00d0 ; STRING TABLE 00d0 ; -------------------------------------------------------------------------------------- 00d0 0004 | | .STRTAB 0x0004->0x00d2 ; "Terminal_Io.Handle_Type" 00d1 0019 | | .STREND 0x0019->0x00dd 00d2 5465 726d |Term| .STRTAB_STRINGS 00de 0000 0000 | | .XXX[0x2] 00e0 ; -------------------------------------------------------------------------------------- 00e0 ; Debug Table 00e0 ; -------------------------------------------------------------------------------------- 00e0 0003 000a | | .CONST 0x0003,0x000a 00e2 000b 0132 | 2| .DEBUG 0x000b,0x0132,0x8000,0x0000,0x0036,0x42b4,0x0000,0x0009 00ea 0015 0142 | B| .DEBUG 0x0015,0x0142,0x8000,0x0000,0x0036,0x42c4,0x0000,0x0009 00f2 0043 015a | C Z| .DEBUG 0x0043,0x015a,0x0002,0x0000,0x0036,0x42b4,0x0000,0x0016 00fa 005b 0164 | [ d| .DEBUG 0x005b,0x0164,0x0001,0x0000,0x0036,0x42b4,0x0000,0x0026 0102 0073 016e | s n| .DEBUG 0x0073,0x016e,0x0001,0x0000,0x0036,0x42b4,0x0000,0x0039 010a 007b 0172 | { r| .DEBUG 0x007b,0x0172,0x0001,0x0000,0x0036,0x42c4,0x0000,0x001c 0112 008b 0178 | x| .DEBUG 0x008b,0x0178,0x0001,0x0000,0x0036,0x42c4,0x0000,0x003e 011a 009b 017e | ~| .DEBUG 0x009b,0x017e,0x0002,0x0000,0x0036,0x42c4,0x0000,0x0101 0122 00ab 0188 | | .DEBUG 0x00ab,0x0188,0x0001,0x0000,0x0036,0x42c4,0x0000,0x0128 012a 00c3 0192 | | .DEBUG 0x00c3,0x0192,0x0004,0x0000,0x0036,0x42c4,0x0000,0x005b 0132 ; -------------------------------------------------------------------------------------- 0132 ; Debug3 Subtable 0x0 0132 ; -------------------------------------------------------------------------------------- 0132 0007 0000 | | .DBG3TAB 0x0007,0x0000 0134 000b ffff | | .CONST 0x000b,0xffff 0136 000c fffe | | .CONST 0x000c,0xfffe 0138 000d fffd | | .CONST 0x000d,0xfffd 013a 000f fffc | | .CONST 0x000f,0xfffc 013c 0011 fffb | | .CONST 0x0011,0xfffb 013e 0013 fffa | | .CONST 0x0013,0xfffa 0140 0014 fff9 | | .CONST 0x0014,0xfff9 0142 ; -------------------------------------------------------------------------------------- 0142 ; Debug3 Subtable 0x1 0142 ; -------------------------------------------------------------------------------------- 0142 000b 0000 | | .DBG3TAB 0x000b,0x0000 0144 0015 ffff | | .CONST 0x0015,0xffff 0146 0019 fffe | | .CONST 0x0019,0xfffe 0148 001a fffd | | .CONST 0x001a,0xfffd 014a 001b fffc | | .CONST 0x001b,0xfffc 014c 001d fffb | | .CONST 0x001d,0xfffb 014e 001f fffa | | .CONST 0x001f,0xfffa 0150 002e fff9 | . | .CONST 0x002e,0xfff9 0152 0030 fff8 | 0 | .CONST 0x0030,0xfff8 0154 0032 fff7 | 2 | .CONST 0x0032,0xfff7 0156 0034 fff6 | 4 | .CONST 0x0034,0xfff6 0158 0036 fff5 | 6 | .CONST 0x0036,0xfff5 015a ; -------------------------------------------------------------------------------------- 015a ; Debug3 Subtable 0x2 015a ; -------------------------------------------------------------------------------------- 015a 0001 0003 | | .DBG3TAB 0x0001,0x0003 015c 0043 ffff | C | .CONST 0x0043,0xffff 015e 0048 0001 | H | .CONST 0x0048,0x0001 0160 0051 0002 | Q | .CONST 0x0051,0x0002 0162 0055 0003 | U | .CONST 0x0055,0x0003 0164 ; -------------------------------------------------------------------------------------- 0164 ; Debug3 Subtable 0x3 0164 ; -------------------------------------------------------------------------------------- 0164 0001 0003 | | .DBG3TAB 0x0001,0x0003 0166 005b ffff | [ | .CONST 0x005b,0xffff 0168 0060 0001 | ` | .CONST 0x0060,0x0001 016a 0065 0002 | e | .CONST 0x0065,0x0002 016c 0068 0003 | h | .CONST 0x0068,0x0003 016e ; -------------------------------------------------------------------------------------- 016e ; Debug3 Subtable 0x4 016e ; -------------------------------------------------------------------------------------- 016e 0000 0001 | | .DBG3TAB 0x0000,0x0001 0170 0073 0001 | s | .CONST 0x0073,0x0001 0172 ; -------------------------------------------------------------------------------------- 0172 ; Debug3 Subtable 0x5 0172 ; -------------------------------------------------------------------------------------- 0172 0000 0002 | | .DBG3TAB 0x0000,0x0002 0174 007b 0001 | { | .CONST 0x007b,0x0001 0176 0081 0002 | | .CONST 0x0081,0x0002 0178 ; -------------------------------------------------------------------------------------- 0178 ; Debug3 Subtable 0x6 0178 ; -------------------------------------------------------------------------------------- 0178 0000 0002 | | .DBG3TAB 0x0000,0x0002 017a 008d 0001 | | .CONST 0x008d,0x0001 017c 008e 0002 | | .CONST 0x008e,0x0002 017e ; -------------------------------------------------------------------------------------- 017e ; Debug3 Subtable 0x7 017e ; -------------------------------------------------------------------------------------- 017e 0001 0003 | | .DBG3TAB 0x0001,0x0003 0180 009b ffff | | .CONST 0x009b,0xffff 0182 009e 0001 | | .CONST 0x009e,0x0001 0184 00a2 0002 | | .CONST 0x00a2,0x0002 0186 00a5 0003 | | .CONST 0x00a5,0x0003 0188 ; -------------------------------------------------------------------------------------- 0188 ; Debug3 Subtable 0x8 0188 ; -------------------------------------------------------------------------------------- 0188 0000 0004 | | .DBG3TAB 0x0000,0x0004 018a 00ab 0001 | | .CONST 0x00ab,0x0001 018c 00af 0002 | | .CONST 0x00af,0x0002 018e 00b6 0003 | | .CONST 0x00b6,0x0003 0190 00ba 0004 | | .CONST 0x00ba,0x0004 0192 ; -------------------------------------------------------------------------------------- 0192 ; Debug3 Subtable 0x9 0192 ; -------------------------------------------------------------------------------------- 0192 0000 0002 | | .DBG3TAB 0x0000,0x0002 0194 00c3 0001 | | .CONST 0x00c3,0x0001 0196 00c9 0002 | | .CONST 0x00c9,0x0002 0198 0000 0000 | | .BLANK 0000[0x68]