|
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_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 5813 |X | .CONST 0x5813 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 00d0 | | .CONST 0x00d0 ; 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 0034 | 4 | .CONST 0x0034 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0015 | | .CONST 0x0015 ; Number of locals 000b INIT_0008: 000b e001 | | Load 0x0,0x1 ; Debug Table 0x0 = .DEBUG 0x000b,0x0112,0x8000,0x0000,0x0058,0x6b85,0x0000,0x0009 ; Debug Table 0x0.0x0 = 0xb,0xffff 000c 1b11 | | Execute Package,Field_Read,Field_Number 0x11 000d 0129 | ) | Execute Any,Make_Visible 000e e002 | | Load 0x0,0x2 ; Debug Table 0x0.0x1 = 0xe,0xfffe 000f 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0010 0129 | ) | Execute Any,Make_Visible 0011 4802 |H | Short_Literal 0x2 ; Debug Table 0x0.0x2 = 0x11,0xfffd 0012 032b | + | Declare_Type Record,Incomplete,Visible 0013 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x0.0x3 = 0x13,0xfffc 0014 02a0 | | Declare_Subprogram Null_Subprogram 0015 03ae | | Declare_Type Heap_Access,Defined,Visible 0016 0007 | | Action Break_Optional ; Debug Table 0x0.0x4 = 0x16,0xfffb 0017 029a 003b | ;| Declare_Subprogram INIT_0038,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x5 = 0x17,0xfffa 0019 029a 004b | K| Declare_Subprogram INIT_0048,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x6 = 0x19,0xfff9 001b 029a 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x7 = 0x1b,0xfff8 001d 029a 0073 | s| Declare_Subprogram INIT_0070,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x8 = 0x1d,0xfff7 001f 029a 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x9 = 0x1f,0xfff6 0021 e20e | | Load 0x1,0xe ; Debug Table 0x0.0xa = 0x21,0xfff5 0022 e003 | | Load 0x0,0x3 0023 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0024 029f 00b3 | | Declare_Subprogram INIT_00b0,For_Call 0026 e20f | | Load 0x1,0xf 0027 0326 | & | Complete_Type Record,By_Defining 0028 00bf | | Action Accept_Activation 0029 0007 | | Action Break_Optional ; Debug Table 0x1 = .DEBUG 0x0029,0x012a,0x8000,0x0000,0x0058,0x6db5,0x0000,0x000b ; Debug Table 0x1.0x0 = 0x29,0xffff 002a 1d11 | | Execute_Immediate Reference_Lex_1,0x11 ; Debug Table 0x1.0x1 = 0x2a,0xfffe 002b 00c7 | | Action Elaborate_Subprogram 002c 1d12 | | Execute_Immediate Reference_Lex_1,0x12 ; Debug Table 0x1.0x2 = 0x2c,0xfffd 002d 00c7 | | Action Elaborate_Subprogram 002e 1d13 | | Execute_Immediate Reference_Lex_1,0x13 ; Debug Table 0x1.0x3 = 0x2e,0xfffc 002f 00c7 | | Action Elaborate_Subprogram 0030 1d14 | | Execute_Immediate Reference_Lex_1,0x14 ; Debug Table 0x1.0x4 = 0x30,0xfffb 0031 00c7 | | Action Elaborate_Subprogram 0032 1d15 | | Execute_Immediate Reference_Lex_1,0x15 ; Debug Table 0x1.0x5 = 0x32,0xfffa 0033 00c7 | | Action Elaborate_Subprogram 0034 BODY_0008: 0034 00bc | | Action Signal_Activated 0035 00bb | | Action Signal_Completion 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 e002 | | Load 0x0,0x2 ; Debug Table 0x2 = .DEBUG 0x003b,0x0138,0x0001,0x0000,0x0058,0x6b85,0x0000,0x0024 ; Debug Table 0x2.0x0 = 0x3b,0x1 003c 1810 | | Execute Package,Field_Execute,Field_Number 0x10 003d 00db | | Load_Top At_Offset_3 003e 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 003f e003 | | Load 0x0,0x3 ; Debug Table 0x2.0x1 = 0x3f,0x2 0040 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0041 00db | | Load_Top At_Offset_3 0042 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0043 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0044 0000 0000 | | .BLANK 0000[0x4] 0048 ; -------------------------------------------------------------------------------------- 0048 ; SUBPROGRAM 0048 ; -------------------------------------------------------------------------------------- 0048 004b | K | .CONST 0x004b ; Address of begin 0049 0004 | | .CONST 0x0004 ; Address of exception handler 004a 0001 | | .CONST 0x0001 ; Number of locals 004b BODY_0048: 004b INIT_0048: 004b 487e |H~ | Short_Literal 0x7e ; Debug Table 0x3 = .DEBUG 0x004b,0x013e,0x0001,0x0000,0x0058,0x6b85,0x0000,0x002c ; Debug Table 0x3.0x0 = 0x4b,0x1 004c a5fd | | Store_Unchecked 0x2,-0x3 004d e002 | | Load 0x0,0x2 ; Debug Table 0x3.0x1 = 0x4d,0x2 004e 1810 | | Execute Package,Field_Execute,Field_Number 0x10 004f c5fe | | Store 0x2,-0x2 0050 00da | | Load_Top At_Offset_2 ; Debug Table 0x3.0x2 = 0x50,0x3 0051 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0052 c5fe | | Store 0x2,-0x2 0053 4800 |H | Short_Literal 0x0 ; Debug Table 0x3.0x3 = 0x53,0x4 0054 a5fd | | Store_Unchecked 0x2,-0x3 0055 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0056 0000 0000 | | .XXX[0x2] 0058 ; -------------------------------------------------------------------------------------- 0058 ; SUBPROGRAM 0058 ; -------------------------------------------------------------------------------------- 0058 005b | [ | .CONST 0x005b ; Address of begin 0059 0063 | c | .CONST 0x0063 ; Address of exception handler 005a 0001 | | .CONST 0x0001 ; Number of locals 005b BODY_0058: 005b INIT_0058: 005b 487e |H~ | Short_Literal 0x7e ; Debug Table 0x4 = .DEBUG 0x005b,0x0148,0x0001,0x0000,0x0058,0x6b85,0x0000,0x003c ; Debug Table 0x4.0x0 = 0x5b,0x1 005c a5fd | | Store_Unchecked 0x2,-0x3 005d 00da | | Load_Top At_Offset_2 ; Debug Table 0x4.0x1 = 0x5d,0x2 005e e5fe | | Load 0x2,-0x2 005f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0060 4800 |H | Short_Literal 0x0 ; Debug Table 0x4.0x2 = 0x60,0x3 0061 a5fd | | Store_Unchecked 0x2,-0x3 0062 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0063 TRAP_0058: 0063 e001 | | Load 0x0,0x1 0064 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0065 010f | | Execute Exception,Equal 0066 6801 |h | Jump_Zero 0x68 0067 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; Debug Table 0x4.0x3 = 0x67,0x4 0068 4885 |H | Short_Literal 0x85 0069 010f | | Execute Exception,Equal 006a 6803 |h | Jump_Zero 0x6e 006b 485a |HZ | Short_Literal 0x5a ; Debug Table 0x4.0x4 = 0x6b,0x5 006c a5fd | | Store_Unchecked 0x2,-0x3 006d 4502 |E | Exit_Suprogram New_Top_Offset 0x2 006e 0100 | | Execute Exception,Raise 006f 0000 | | .XXX[0x1] 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 0x5 = .DEBUG 0x0073,0x0154,0x0002,0x0000,0x0058,0x6b85,0x0000,0x004c ; Debug Table 0x5.0x0 = 0x73,0x1 0074 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0075 7002 |p | Jump_Nonzero 0x78 0076 00ea | | Load_Encached Null_String_Cache ; Debug Table 0x5.0x1 = 0x76,0x2 0077 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0078 00da | | Load_Top At_Offset_2 ; Debug Table 0x5.0x2 = 0x78,0x3 0079 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 007a 0217 | | Execute Heap_Access,All_Reference 007b 0335 | 5 | Declare_Variable Array,Duplicate 007c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 007d 0000 0000 | | .XXX[0x3] 007f 0000 | | 0080 ; -------------------------------------------------------------------------------------- 0080 ; SUBPROGRAM 0080 ; -------------------------------------------------------------------------------------- 0080 0083 | | .CONST 0x0083 ; Address of begin 0081 00a3 | | .CONST 0x00a3 ; Address of exception handler 0082 0001 | | .CONST 0x0001 ; Number of locals 0083 BODY_0080: 0083 INIT_0080: 0083 487e |H~ | Short_Literal 0x7e ; Debug Table 0x6 = .DEBUG 0x0083,0x015c,0x0001,0x0000,0x0058,0x6b85,0x0000,0x0055 ; Debug Table 0x6.0x0 = 0x83,0x1 0084 a5fd | | Store_Unchecked 0x2,-0x3 0085 00db | | Load_Top At_Offset_3 ; Debug Table 0x6.0x1 = 0x85,0x2 0086 7005 |p | Jump_Nonzero 0x8c 0087 485b |H[ | Short_Literal 0x5b ; Debug Table 0x6.0x2 = 0x87,0x3 0088 a5fd | | Store_Unchecked 0x2,-0x3 0089 e001 | | Load 0x0,0x1 ; Debug Table 0x6.0x3 = 0x89,0x4 008a 1b16 | | Execute Package,Field_Read,Field_Number 0x16 008b 0257 | W | Execute Discrete,Raise 008c 00db | | Load_Top At_Offset_3 ; Debug Table 0x6.0x4 = 0x8c,0x5 008d 0217 | | Execute Heap_Access,All_Reference 008e 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 008f 6807 |h | Jump_Zero 0x97 0090 00db | | Load_Top At_Offset_3 0091 0217 | | Execute Heap_Access,All_Reference 0092 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0093 0217 | | Execute Heap_Access,All_Reference 0094 00db | | Load_Top At_Offset_3 0095 01de | | Execute Vector,Not_Equal 0096 6809 |h | Jump_Zero 0xa0 0097 00da | | Load_Top At_Offset_2 ; Debug Table 0x6.0x5 = 0x97,0x6 0098 e003 | | Load 0x0,0x3 0099 1b0e | | Execute Package,Field_Read,Field_Number 0xe 009a e5fe | | Load 0x2,-0x2 009b 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value 009c e5fe | | Load 0x2,-0x2 009d 0217 | | Execute Heap_Access,All_Reference 009e 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 009f 0007 | | Action Break_Optional ; Debug Table 0x6.0x6 = 0x9f,0x7 00a0 4800 |H | Short_Literal 0x0 ; Debug Table 0x6.0x7 = 0xa0,0x8 00a1 a5fd | | Store_Unchecked 0x2,-0x3 00a2 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00a3 TRAP_0080: 00a3 e001 | | Load 0x0,0x1 00a4 1b16 | | Execute Package,Field_Read,Field_Number 0x16 00a5 010f | | Execute Exception,Equal 00a6 6801 |h | Jump_Zero 0xa8 00a7 4503 |E | Exit_Suprogram New_Top_Offset 0x3 ; Debug Table 0x6.0x8 = 0xa7,0x9 00a8 4885 |H | Short_Literal 0x85 00a9 010f | | Execute Exception,Equal 00aa 6803 |h | Jump_Zero 0xae 00ab 485a |HZ | Short_Literal 0x5a ; Debug Table 0x6.0x9 = 0xab,0xa 00ac a5fd | | Store_Unchecked 0x2,-0x3 00ad 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00ae 0100 | | Execute Exception,Raise 00af 0000 | | .XXX[0x1] 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 4608 |F | Jump_Case 0x9 ; Debug Table 0x7 = .DEBUG 0x00b3,0x0172,0x0005,0x0000,0x0058,0x6b85,0x0000,0x0066 00b4 7808 |x | Jump 0xbd ; case 0x0 00b5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 00b6 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2 00b7 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3 00b8 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4 00b9 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5 00ba 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x6 00bb 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x7 00bc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x8 00bd 00da | | Load_Top At_Offset_2 00be 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 00bf 0125 | % | Execute Any,Set_Constraint 00c0 e002 | | Load 0x0,0x2 00c1 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00c2 00db | | Load_Top At_Offset_3 00c3 00d9 | | Load_Top At_Offset_1 00c4 00d9 | | Load_Top At_Offset_1 00c5 3000 |0 | Execute Record,Field_Type,Field_Number 0x0 00c6 0119 | | Execute Any,Check_In_Formal_Type 00c7 00d1 | | Pop_Control Pop_Count_1 00c8 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00c9 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 00ca 0000 0000 | | .BLANK 0000[0x6] 00d0 ; -------------------------------------------------------------------------------------- 00d0 ; Debug Table 00d0 ; -------------------------------------------------------------------------------------- 00d0 0003 0008 | | .CONST 0x0003,0x0008 00d2 000b 0112 | | .DEBUG 0x000b,0x0112,0x8000,0x0000,0x0058,0x6b85,0x0000,0x0009 00da 0029 012a | ) *| .DEBUG 0x0029,0x012a,0x8000,0x0000,0x0058,0x6db5,0x0000,0x000b 00e2 003b 0138 | ; 8| .DEBUG 0x003b,0x0138,0x0001,0x0000,0x0058,0x6b85,0x0000,0x0024 00ea 004b 013e | K >| .DEBUG 0x004b,0x013e,0x0001,0x0000,0x0058,0x6b85,0x0000,0x002c 00f2 005b 0148 | [ H| .DEBUG 0x005b,0x0148,0x0001,0x0000,0x0058,0x6b85,0x0000,0x003c 00fa 0073 0154 | s T| .DEBUG 0x0073,0x0154,0x0002,0x0000,0x0058,0x6b85,0x0000,0x004c 0102 0083 015c | \| .DEBUG 0x0083,0x015c,0x0001,0x0000,0x0058,0x6b85,0x0000,0x0055 010a 00b3 0172 | r| .DEBUG 0x00b3,0x0172,0x0005,0x0000,0x0058,0x6b85,0x0000,0x0066 0112 ; -------------------------------------------------------------------------------------- 0112 ; Debug3 Subtable 0x0 0112 ; -------------------------------------------------------------------------------------- 0112 000b 0000 | | .DBG3TAB 0x000b,0x0000 0114 000b ffff | | .CONST 0x000b,0xffff 0116 000e fffe | | .CONST 0x000e,0xfffe 0118 0011 fffd | | .CONST 0x0011,0xfffd 011a 0013 fffc | | .CONST 0x0013,0xfffc 011c 0016 fffb | | .CONST 0x0016,0xfffb 011e 0017 fffa | | .CONST 0x0017,0xfffa 0120 0019 fff9 | | .CONST 0x0019,0xfff9 0122 001b fff8 | | .CONST 0x001b,0xfff8 0124 001d fff7 | | .CONST 0x001d,0xfff7 0126 001f fff6 | | .CONST 0x001f,0xfff6 0128 0021 fff5 | ! | .CONST 0x0021,0xfff5 012a ; -------------------------------------------------------------------------------------- 012a ; Debug3 Subtable 0x1 012a ; -------------------------------------------------------------------------------------- 012a 0006 0000 | | .DBG3TAB 0x0006,0x0000 012c 0029 ffff | ) | .CONST 0x0029,0xffff 012e 002a fffe | * | .CONST 0x002a,0xfffe 0130 002c fffd | , | .CONST 0x002c,0xfffd 0132 002e fffc | . | .CONST 0x002e,0xfffc 0134 0030 fffb | 0 | .CONST 0x0030,0xfffb 0136 0032 fffa | 2 | .CONST 0x0032,0xfffa 0138 ; -------------------------------------------------------------------------------------- 0138 ; Debug3 Subtable 0x2 0138 ; -------------------------------------------------------------------------------------- 0138 0000 0002 | | .DBG3TAB 0x0000,0x0002 013a 003b 0001 | ; | .CONST 0x003b,0x0001 013c 003f 0002 | ? | .CONST 0x003f,0x0002 013e ; -------------------------------------------------------------------------------------- 013e ; Debug3 Subtable 0x3 013e ; -------------------------------------------------------------------------------------- 013e 0000 0004 | | .DBG3TAB 0x0000,0x0004 0140 004b 0001 | K | .CONST 0x004b,0x0001 0142 004d 0002 | M | .CONST 0x004d,0x0002 0144 0050 0003 | P | .CONST 0x0050,0x0003 0146 0053 0004 | S | .CONST 0x0053,0x0004 0148 ; -------------------------------------------------------------------------------------- 0148 ; Debug3 Subtable 0x4 0148 ; -------------------------------------------------------------------------------------- 0148 0000 0005 | | .DBG3TAB 0x0000,0x0005 014a 005b 0001 | [ | .CONST 0x005b,0x0001 014c 005d 0002 | ] | .CONST 0x005d,0x0002 014e 0060 0003 | ` | .CONST 0x0060,0x0003 0150 0067 0004 | g | .CONST 0x0067,0x0004 0152 006b 0005 | k | .CONST 0x006b,0x0005 0154 ; -------------------------------------------------------------------------------------- 0154 ; Debug3 Subtable 0x5 0154 ; -------------------------------------------------------------------------------------- 0154 0000 0003 | | .DBG3TAB 0x0000,0x0003 0156 0073 0001 | s | .CONST 0x0073,0x0001 0158 0076 0002 | v | .CONST 0x0076,0x0002 015a 0078 0003 | x | .CONST 0x0078,0x0003 015c ; -------------------------------------------------------------------------------------- 015c ; Debug3 Subtable 0x6 015c ; -------------------------------------------------------------------------------------- 015c 0000 000a | | .DBG3TAB 0x0000,0x000a 015e 0083 0001 | | .CONST 0x0083,0x0001 0160 0085 0002 | | .CONST 0x0085,0x0002 0162 0087 0003 | | .CONST 0x0087,0x0003 0164 0089 0004 | | .CONST 0x0089,0x0004 0166 008c 0005 | | .CONST 0x008c,0x0005 0168 0097 0006 | | .CONST 0x0097,0x0006 016a 009f 0007 | | .CONST 0x009f,0x0007 016c 00a0 0008 | | .CONST 0x00a0,0x0008 016e 00a7 0009 | | .CONST 0x00a7,0x0009 0170 00ab 000a | | .CONST 0x00ab,0x000a 0172 ; -------------------------------------------------------------------------------------- 0172 ; Debug3 Subtable 0x7 0172 ; -------------------------------------------------------------------------------------- 0172 0000 0000 | | .DBG3TAB 0x0000,0x0000 0174 0000 0000 | | .BLANK 0000[0x8c]