|
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 0110 | | .CONST 0x0110 ; 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 001b | | .CONST 0x001b ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0010 | | .CONST 0x0010 ; Number of locals 000b INIT_0008: 000b 029a 0023 | #| Declare_Subprogram INIT_0020,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0 = .DEBUG 0x000b,0x0142,0x0000,0x0000,0x0056,0x5ab5,0x0000,0x0574 ; Debug Table 0x0.0x0 = 0xb,0xffff 000d 029a 002b | +| Declare_Subprogram INIT_0028,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x1 = 0xd,0xfffe 000f 00bf | | Action Accept_Activation 0010 4800 |H | Short_Literal 0x0 ; Debug Table 0x1 = .DEBUG 0x0010,0x0148,0x0000,0x0000,0x0056,0xcc45,0x0000,0x0004 ; Debug Table 0x1.0x0 = 0x10,0xffff 0011 4807 |H | Short_Literal 0x7 0012 029f 0043 | C| Declare_Subprogram INIT_0040,For_Call 0014 03fd | | Declare_Type Discrete,Defined 0015 029d 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call ; Debug Table 0x1.0x1 = 0x15,0xfffe ; Debug Table 0x1.0x2 = 0x15,0xfffd 0017 1d0d | | Execute_Immediate Reference_Lex_1,0xd ; Debug Table 0x1.0x3 = 0x17,0xfffc 0018 00c7 | | Action Elaborate_Subprogram 0019 1d0e | | Execute_Immediate Reference_Lex_1,0xe ; Debug Table 0x1.0x4 = 0x19,0xfffb 001a 00c7 | | Action Elaborate_Subprogram 001b BODY_0008: 001b 00bc | | Action Signal_Activated 001c 00bb | | Action Signal_Completion 001d 0000 0000 | | .XXX[0x3] 001f 0000 | | 0020 ; -------------------------------------------------------------------------------------- 0020 ; SUBPROGRAM 0020 ; -------------------------------------------------------------------------------------- 0020 0023 | # | .CONST 0x0023 ; Address of begin 0021 0004 | | .CONST 0x0004 ; Address of exception handler 0022 0001 | | .CONST 0x0001 ; Number of locals 0023 BODY_0020: 0023 INIT_0020: 0023 00da | | Load_Top At_Offset_2 ; Debug Table 0x2 = .DEBUG 0x0023,0x0154,0x0002,0x0000,0x0056,0x5ab5,0x0000,0x0575 ; Debug Table 0x2.0x0 = 0x23,0x1 0024 8210 | | Call 0x1,0x10 0025 0e00 | | Execute_Immediate Not_Equal,0x0 0026 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0027 0000 | | .XXX[0x1] 0028 ; -------------------------------------------------------------------------------------- 0028 ; SUBPROGRAM 0028 ; -------------------------------------------------------------------------------------- 0028 002d | - | .CONST 0x002d ; Address of begin 0029 0004 | | .CONST 0x0004 ; Address of exception handler 002a 0003 | | .CONST 0x0003 ; Number of locals 002b INIT_0028: 002b e20f | | Load 0x1,0xf ; Debug Table 0x3 = .DEBUG 0x002b,0x0158,0x0002,0x0000,0x0056,0x5ab5,0x0000,0x0580 ; Debug Table 0x3.0x0 = 0x2b,0xffff 002c e20f | | Load 0x1,0xf ; Debug Table 0x3.0x1 = 0x2c,0xfffe 002d BODY_0028: 002d e5ff | | Load 0x2,-0x1 ; Debug Table 0x3.0x2 = 0x2d,0x1 002e 8210 | | Call 0x1,0x10 002f 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 0030 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x3.0x3 = 0x30,0x2 0031 7002 |p | Jump_Nonzero 0x34 0032 4800 |H | Short_Literal 0x0 ; Debug Table 0x3.0x4 = 0x32,0x3 0033 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0034 e5fe | | Load 0x2,-0x2 ; Debug Table 0x3.0x5 = 0x34,0x4 0035 8210 | | Call 0x1,0x10 0036 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0037 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x3.0x6 = 0x37,0x5 0038 00d9 | | Load_Top At_Offset_1 0039 027f | | Execute Discrete,Equal 003a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 003b 0000 0000 | | .BLANK 0000[0x5] 0040 ; -------------------------------------------------------------------------------------- 0040 ; SUBPROGRAM 0040 ; -------------------------------------------------------------------------------------- 0040 0043 | C | .CONST 0x0043 ; Address of begin 0041 0004 | | .CONST 0x0004 ; Address of exception handler 0042 0001 | | .CONST 0x0001 ; Number of locals 0043 BODY_0040: 0043 INIT_0040: 0043 4603 |F | Jump_Case 0x4 ; Debug Table 0x4 = .DEBUG 0x0043,0x0168,0x0005,0x0000,0x0056,0xcc45,0x0000,0x0005 0044 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0045 7802 |x | Jump 0x48 ; case 0x1 0046 7805 |x | Jump 0x4c ; case 0x2 0047 7809 |x | Jump 0x51 ; case 0x3 0048 00da | | Load_Top At_Offset_2 0049 0091 00b9 | | Action Push_String_Extended_Indexed,0xb9 ; "NULL_ALIGNMENT_CLIQUE" 004b 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 004c 00db | | Load_Top At_Offset_3 004d 00db | | Load_Top At_Offset_3 004e 00e0 | | Load_Encached Standard_Cache 004f 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0050 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0051 00da | | Load_Top At_Offset_2 0052 00e0 | | Load_Encached Standard_Cache 0053 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0054 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0055 0000 0000 | | .XXX[0x3] 0057 0000 | | 0058 ; -------------------------------------------------------------------------------------- 0058 ; SUBPROGRAM 0058 ; -------------------------------------------------------------------------------------- 0058 005c | \ | .CONST 0x005c ; Address of begin 0059 0004 | | .CONST 0x0004 ; Address of exception handler 005a 0002 | | .CONST 0x0002 ; Number of locals 005b INIT_0058: 005b e20f | | Load 0x1,0xf ; Debug Table 0x5 = .DEBUG 0x005b,0x016a,0x0002,0x0000,0x0056,0xcc45,0x0000,0x0014 ; Debug Table 0x5.0x0 = 0x5b,0xffff 005c BODY_0058: 005c 4800 |H | Short_Literal 0x0 ; Debug Table 0x5.0x1 = 0x5c,0x1 005d 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 005e e5ff | | Load 0x2,-0x1 ; Debug Table 0x5.0x2 = 0x5e,0x2 ; Debug Table 0x5.0x3 = 0x5e,0x401 005f 0145 | E | Execute Heap_Access,Diana_Tree_Kind ; Debug Table 0x5.0x4 = 0x5f,0x402 0060 0b4d | M | Execute_Immediate Case_Compare,0x4d ; Debug Table 0x5.0x5 = 0x60,0x403 ; Debug Table 0x5.0x6 = 0x60,0x404 ; Debug Table 0x5.0x7 = 0x60,0x2 0061 701b |p | Jump_Nonzero 0x7d 0062 0b38 | 8 | Execute_Immediate Case_Compare,0x38 0063 701c |p | Jump_Nonzero 0x80 0064 0b02 | | Execute_Immediate Case_Compare,0x2 0065 701a |p | Jump_Nonzero 0x80 0066 0b3a | : | Execute_Immediate Case_Compare,0x3a 0067 7018 |p | Jump_Nonzero 0x80 0068 0b39 | 9 | Execute_Immediate Case_Compare,0x39 0069 7016 |p | Jump_Nonzero 0x80 006a 0b37 | 7 | Execute_Immediate Case_Compare,0x37 006b 7014 |p | Jump_Nonzero 0x80 006c 0b3c | < | Execute_Immediate Case_Compare,0x3c 006d 7015 |p | Jump_Nonzero 0x83 006e 0b3b | ; | Execute_Immediate Case_Compare,0x3b 006f 7016 |p | Jump_Nonzero 0x86 0070 0b7e | ~ | Execute_Immediate Case_Compare,0x7e 0071 7023 |p# | Jump_Nonzero 0x95 0072 0b7d | } | Execute_Immediate Case_Compare,0x7d 0073 7021 |p! | Jump_Nonzero 0x95 0074 0b7f | | Execute_Immediate Case_Compare,0x7f 0075 701f |p | Jump_Nonzero 0x95 0076 0ba0 | | Execute_Immediate Case_Compare,0xa0 0077 7029 |p) | Jump_Nonzero 0xa1 0078 0b3d | = | Execute_Immediate Case_Compare,0x3d 0079 702a |p* | Jump_Nonzero 0xa4 007a 0b3e | > | Execute_Immediate Case_Compare,0x3e 007b 702b |p+ | Jump_Nonzero 0xa7 007c 7839 |x9 | Jump 0xb6 ; Debug Table 0x5.0x8 = 0x7c,0x10 007d 4801 |H | Short_Literal 0x1 ; Debug Table 0x5.0x9 = 0x7d,0x3 007e 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 007f 7836 |x6 | Jump 0xb6 0080 4802 |H | Short_Literal 0x2 ; Debug Table 0x5.0xa = 0x80,0x4 0081 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 0082 7833 |x3 | Jump 0xb6 0083 4803 |H | Short_Literal 0x3 ; Debug Table 0x5.0xb = 0x83,0x5 0084 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 0085 7830 |x0 | Jump 0xb6 0086 e5ff | | Load 0x2,-0x1 ; Debug Table 0x5.0xc = 0x86,0x6 0087 00eb | | Load_Encached Diana_Cache 0088 18e8 | | Execute Package,Field_Execute,Field_Number 0xe8 0089 e404 | | Load 0x2,0x4 ; Debug Table 0x5.0xd = 0x89,0x801 008a 0145 | E | Execute Heap_Access,Diana_Tree_Kind ; Debug Table 0x5.0xe = 0x8a,0x802 008b 00d0 | | Action Swap_Control ; Debug Table 0x5.0x10 = 0x8b,0x804 ; Debug Table 0x5.0xf = 0x8b,0x803 008c 00d1 | | Pop_Control Pop_Count_1 008d 0b73 | s | Execute_Immediate Case_Compare,0x73 ; Debug Table 0x5.0x11 = 0x8d,0x6 008e 7004 |p | Jump_Nonzero 0x93 008f 0b72 | r | Execute_Immediate Case_Compare,0x72 0090 7002 |p | Jump_Nonzero 0x93 0091 4803 |H | Short_Literal 0x3 ; Debug Table 0x5.0x12 = 0x91,0x8 0092 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 0093 00d1 | | Pop_Control Pop_Count_1 0094 7821 |x! | Jump 0xb6 0095 e5ff | | Load 0x2,-0x1 ; Debug Table 0x5.0x13 = 0x95,0x9 0096 00eb | | Load_Encached Diana_Cache 0097 18ec | | Execute Package,Field_Execute,Field_Number 0xec 0098 e404 | | Load 0x2,0x4 ; Debug Table 0x5.0x14 = 0x98,0xc01 0099 0145 | E | Execute Heap_Access,Diana_Tree_Kind ; Debug Table 0x5.0x15 = 0x99,0xc02 009a 00d0 | | Action Swap_Control ; Debug Table 0x5.0x16 = 0x9a,0xc03 ; Debug Table 0x5.0x17 = 0x9a,0xc04 009b 00d1 | | Pop_Control Pop_Count_1 009c 0f8f | | Execute_Immediate Equal,-0x71 ; Debug Table 0x5.0x18 = 0x9c,0x9 009d 6818 |h | Jump_Zero 0xb6 009e 4804 |H | Short_Literal 0x4 ; Debug Table 0x5.0x19 = 0x9e,0xa 009f 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 00a0 7815 |x | Jump 0xb6 00a1 4805 |H | Short_Literal 0x5 ; Debug Table 0x5.0x1a = 0xa1,0xb 00a2 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 00a3 7812 |x | Jump 0xb6 00a4 4806 |H | Short_Literal 0x6 ; Debug Table 0x5.0x1b = 0xa4,0xc 00a5 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 00a6 780f |x | Jump 0xb6 00a7 e5ff | | Load 0x2,-0x1 ; Debug Table 0x5.0x1c = 0xa7,0xd 00a8 00eb | | Load_Encached Diana_Cache 00a9 18d8 | | Execute Package,Field_Execute,Field_Number 0xd8 00aa e404 | | Load 0x2,0x4 ; Debug Table 0x5.0x1d = 0xaa,0x1001 00ab 0145 | E | Execute Heap_Access,Diana_Tree_Kind ; Debug Table 0x5.0x1e = 0xab,0x1002 00ac 00d0 | | Action Swap_Control ; Debug Table 0x5.0x1f = 0xac,0x1003 ; Debug Table 0x5.0x20 = 0xac,0x1004 00ad 00d1 | | Pop_Control Pop_Count_1 00ae 0b36 | 6 | Execute_Immediate Case_Compare,0x36 ; Debug Table 0x5.0x21 = 0xae,0xd 00af 7003 |p | Jump_Nonzero 0xb3 00b0 0b80 | | Execute_Immediate Case_Compare,0x80 00b1 7001 |p | Jump_Nonzero 0xb3 00b2 7802 |x | Jump 0xb5 ; Debug Table 0x5.0x22 = 0xb2,0xf 00b3 4807 |H | Short_Literal 0x7 ; Debug Table 0x5.0x23 = 0xb3,0xe 00b4 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 00b5 00d1 | | Pop_Control Pop_Count_1 00b6 00d1 | | Pop_Control Pop_Count_1 00b7 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x5.0x24 = 0xb7,0x11 00b8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00b9 ; -------------------------------------------------------------------------------------- 00b9 ; STRING TABLE 00b9 ; -------------------------------------------------------------------------------------- 00b9 0012 | | .STRTAB 0x0012->0x00c2 ; "NULL_ALIGNMENT_CLIQUE" 00ba 0025 | % | .STRTAB 0x0025->0x00cc ; "ASSIGN" 00bb 0029 | ) | .STRTAB 0x0029->0x00cf ; "CONSTANT_DEFERRED_CONSTANT_NUMBER_VAR_EXCEPTION" 00bc 0056 | V | .STRTAB 0x0056->0x00e7 ; "TYPE_SUBTYPE" 00bd 0060 | ` | .STRTAB 0x0060->0x00ed ; "IN_OUT_IN_OUT" 00be 006b | k | .STRTAB 0x006b->0x00f3 ; "COMP_REP" 00bf 0071 | q | .STRTAB 0x0071->0x00f7 ; "SUBPROGRAM_DECL" 00c0 007e | ~ | .STRTAB 0x007e->0x00ff ; "PACKAGE_INSTANTIATIONS_RENAMES" 00c1 009a | | .STREND 0x009a->0x010e 00c2 4e55 4c4c |NULL| .STRTAB_STRINGS 010e 0000 0000 | | .XXX[0x2] 0110 ; -------------------------------------------------------------------------------------- 0110 ; Debug Table 0110 ; -------------------------------------------------------------------------------------- 0110 0003 0006 | | .CONST 0x0003,0x0006 0112 000b 0142 | B| .DEBUG 0x000b,0x0142,0x0000,0x0000,0x0056,0x5ab5,0x0000,0x0574 011a 0010 0148 | H| .DEBUG 0x0010,0x0148,0x0000,0x0000,0x0056,0xcc45,0x0000,0x0004 0122 0023 0154 | # T| .DEBUG 0x0023,0x0154,0x0002,0x0000,0x0056,0x5ab5,0x0000,0x0575 012a 002b 0158 | + X| .DEBUG 0x002b,0x0158,0x0002,0x0000,0x0056,0x5ab5,0x0000,0x0580 0132 0043 0168 | C h| .DEBUG 0x0043,0x0168,0x0005,0x0000,0x0056,0xcc45,0x0000,0x0005 013a 005b 016a | [ j| .DEBUG 0x005b,0x016a,0x0002,0x0000,0x0056,0xcc45,0x0000,0x0014 0142 ; -------------------------------------------------------------------------------------- 0142 ; Debug3 Subtable 0x0 0142 ; -------------------------------------------------------------------------------------- 0142 0002 0000 | | .DBG3TAB 0x0002,0x0000 0144 000b ffff | | .CONST 0x000b,0xffff 0146 000d fffe | | .CONST 0x000d,0xfffe 0148 ; -------------------------------------------------------------------------------------- 0148 ; Debug3 Subtable 0x1 0148 ; -------------------------------------------------------------------------------------- 0148 0005 0000 | | .DBG3TAB 0x0005,0x0000 014a 0010 ffff | | .CONST 0x0010,0xffff 014c 0015 fffe | | .CONST 0x0015,0xfffe 014e 0015 fffd | | .CONST 0x0015,0xfffd 0150 0017 fffc | | .CONST 0x0017,0xfffc 0152 0019 fffb | | .CONST 0x0019,0xfffb 0154 ; -------------------------------------------------------------------------------------- 0154 ; Debug3 Subtable 0x2 0154 ; -------------------------------------------------------------------------------------- 0154 0000 0001 | | .DBG3TAB 0x0000,0x0001 0156 0023 0001 | # | .CONST 0x0023,0x0001 0158 ; -------------------------------------------------------------------------------------- 0158 ; Debug3 Subtable 0x3 0158 ; -------------------------------------------------------------------------------------- 0158 0002 0005 | | .DBG3TAB 0x0002,0x0005 015a 002b ffff | + | .CONST 0x002b,0xffff 015c 002c fffe | , | .CONST 0x002c,0xfffe 015e 002d 0001 | - | .CONST 0x002d,0x0001 0160 0030 0002 | 0 | .CONST 0x0030,0x0002 0162 0032 0003 | 2 | .CONST 0x0032,0x0003 0164 0034 0004 | 4 | .CONST 0x0034,0x0004 0166 0037 0005 | 7 | .CONST 0x0037,0x0005 0168 ; -------------------------------------------------------------------------------------- 0168 ; Debug3 Subtable 0x4 0168 ; -------------------------------------------------------------------------------------- 0168 0000 0000 | | .DBG3TAB 0x0000,0x0000 016a ; -------------------------------------------------------------------------------------- 016a ; Debug3 Subtable 0x5 016a ; -------------------------------------------------------------------------------------- 016a 0001 0024 | $| .DBG3TAB 0x0001,0x0024 016c 005b ffff | [ | .CONST 0x005b,0xffff 016e 005c 0001 | \ | .CONST 0x005c,0x0001 0170 005e 0002 | ^ | .CONST 0x005e,0x0002 0172 005e 0401 | ^ | .CONST 0x005e,0x0401 0174 005f 0402 | _ | .CONST 0x005f,0x0402 0176 0060 0403 | ` | .CONST 0x0060,0x0403 0178 0060 0404 | ` | .CONST 0x0060,0x0404 017a 0060 0002 | ` | .CONST 0x0060,0x0002 017c 007c 0010 | | | .CONST 0x007c,0x0010 017e 007d 0003 | } | .CONST 0x007d,0x0003 0180 0080 0004 | | .CONST 0x0080,0x0004 0182 0083 0005 | | .CONST 0x0083,0x0005 0184 0086 0006 | | .CONST 0x0086,0x0006 0186 0089 0801 | | .CONST 0x0089,0x0801 0188 008a 0802 | | .CONST 0x008a,0x0802 018a 008b 0803 | | .CONST 0x008b,0x0803 018c 008b 0804 | | .CONST 0x008b,0x0804 018e 008d 0006 | | .CONST 0x008d,0x0006 0190 0091 0008 | | .CONST 0x0091,0x0008 0192 0095 0009 | | .CONST 0x0095,0x0009 0194 0098 0c01 | | .CONST 0x0098,0x0c01 0196 0099 0c02 | | .CONST 0x0099,0x0c02 0198 009a 0c03 | | .CONST 0x009a,0x0c03 019a 009a 0c04 | | .CONST 0x009a,0x0c04 019c 009c 0009 | | .CONST 0x009c,0x0009 019e 009e 000a | | .CONST 0x009e,0x000a 01a0 00a1 000b | | .CONST 0x00a1,0x000b 01a2 00a4 000c | | .CONST 0x00a4,0x000c 01a4 00a7 000d | | .CONST 0x00a7,0x000d 01a6 00aa 1001 | | .CONST 0x00aa,0x1001 01a8 00ab 1002 | | .CONST 0x00ab,0x1002 01aa 00ac 1003 | | .CONST 0x00ac,0x1003 01ac 00ac 1004 | | .CONST 0x00ac,0x1004 01ae 00ae 000d | | .CONST 0x00ae,0x000d 01b0 00b2 000f | | .CONST 0x00b2,0x000f 01b2 00b3 000e | | .CONST 0x00b3,0x000e 01b4 00b7 0011 | | .CONST 0x00b7,0x0011 01b6 0000 0000 | | .BLANK 0000[0x4a]