|
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: 2048 (0x800)
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 0180 | | .CONST 0x0180 ; 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 0001 | | .CONST 0x0001 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 002e | . | .CONST 0x002e ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0015 | | .CONST 0x0015 ; Number of locals 000b INIT_0008: 000b 029a 0033 | 3| Declare_Subprogram INIT_0030,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0 = .DEBUG 0x000b,0x01da,0x8000,0x0000,0x0058,0x6a25,0x0000,0x000b ; Debug Table 0x0.0x0 = 0xb,0xffff 000d 029a 004b | K| Declare_Subprogram INIT_0048,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x1 = 0xd,0xfffe 000f 029a 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x2 = 0xf,0xfffd 0011 029a 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x3 = 0x11,0xfffc 0013 029a 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x4 = 0x13,0xfffb 0015 029a 00d3 | | Declare_Subprogram INIT_00d0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x5 = 0x15,0xfffa 0017 00bf | | Action Accept_Activation 0018 0007 | | Action Break_Optional ; Debug Table 0x1 = .DEBUG 0x0018,0x01e8,0x8000,0x0000,0x0058,0x6e05,0x0000,0x000f ; Debug Table 0x1.0x0 = 0x18,0xffff 0019 0007 | | Action Break_Optional ; Debug Table 0x1.0x1 = 0x19,0xfffe 001a 0007 | | Action Break_Optional ; Debug Table 0x1.0x2 = 0x1a,0xfffd 001b 0007 | | Action Break_Optional ; Debug Table 0x1.0x3 = 0x1b,0xfffc 001c 1d0d | | Execute_Immediate Reference_Lex_1,0xd ; Debug Table 0x1.0x4 = 0x1c,0xfffb 001d 00c7 | | Action Elaborate_Subprogram 001e 029d 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call ; Debug Table 0x1.0x5 = 0x1e,0xfffa 0020 029d 014b | K| Declare_Subprogram INIT_0148,For_Outer_Call ; Debug Table 0x1.0x6 = 0x20,0xfff9 0022 1d0e | | Execute_Immediate Reference_Lex_1,0xe ; Debug Table 0x1.0x7 = 0x22,0xfff8 0023 00c7 | | Action Elaborate_Subprogram 0024 1d0f | | Execute_Immediate Reference_Lex_1,0xf ; Debug Table 0x1.0x8 = 0x24,0xfff7 0025 00c7 | | Action Elaborate_Subprogram 0026 1d10 | | Execute_Immediate Reference_Lex_1,0x10 ; Debug Table 0x1.0x9 = 0x26,0xfff6 0027 00c7 | | Action Elaborate_Subprogram 0028 1d11 | | Execute_Immediate Reference_Lex_1,0x11 ; Debug Table 0x1.0xa = 0x28,0xfff5 0029 00c7 | | Action Elaborate_Subprogram 002a 029d 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call ; Debug Table 0x1.0xb = 0x2a,0xfff4 002c 1d12 | | Execute_Immediate Reference_Lex_1,0x12 ; Debug Table 0x1.0xc = 0x2c,0xfff3 002d 00c7 | | Action Elaborate_Subprogram 002e BODY_0008: 002e 00bc | | Action Signal_Activated 002f 00bb | | Action Signal_Completion 0030 ; -------------------------------------------------------------------------------------- 0030 ; SUBPROGRAM 0030 ; -------------------------------------------------------------------------------------- 0030 0033 | 3 | .CONST 0x0033 ; Address of begin 0031 003e | > | .CONST 0x003e ; Address of exception handler 0032 0001 | | .CONST 0x0001 ; Number of locals 0033 BODY_0030: 0033 INIT_0030: 0033 e5fd | | Load 0x2,-0x3 ; Debug Table 0x2 = .DEBUG 0x0033,0x0204,0x0002,0x0000,0x0058,0x6a25,0x0000,0x000c ; Debug Table 0x2.0x0 = 0x33,0x1 0034 e5fe | | Load 0x2,-0x2 0035 4820 |H | Short_Literal 0x20 0036 e5ff | | Load 0x2,-0x1 0037 e001 | | Load 0x0,0x1 0038 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0039 e001 | | Load 0x0,0x1 003a 181c | | Execute Package,Field_Execute,Field_Number 0x1c 003b e002 | | Load 0x0,0x2 003c 181f | | Execute Package,Field_Execute,Field_Number 0x1f 003d 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 003e TRAP_0030: 003e e002 | | Load 0x0,0x2 003f 1b20 | | Execute Package,Field_Read,Field_Number 0x20 0040 010f | | Execute Exception,Equal 0041 6803 |h | Jump_Zero 0x45 0042 00db | | Load_Top At_Offset_3 ; Debug Table 0x2.0x1 = 0x42,0x2 0043 0335 | 5 | Declare_Variable Array,Duplicate 0044 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0045 0100 | | Execute Exception,Raise 0046 0000 0000 | | .XXX[0x2] 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 4802 |H | Short_Literal 0x2 ; Debug Table 0x3 = .DEBUG 0x004b,0x020a,0x0002,0x0000,0x0058,0x6a25,0x0000,0x001d ; Debug Table 0x3.0x0 = 0x4b,0x1 004c 00db | | Load_Top At_Offset_3 004d 01db | | Execute Vector,Length 004e 00e3 | | Load_Encached Natural_Cache 004f 025b | [ | Execute Discrete,Check_In_Type 0050 8213 | | Call 0x1,0x13 0051 00db | | Load_Top At_Offset_3 0052 e003 | | Load 0x0,0x3 0053 180f | | Execute Package,Field_Execute,Field_Number 0xf 0054 01cc | | Execute Vector,Catenate 0055 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0056 0000 0000 | | .XXX[0x2] 0058 ; -------------------------------------------------------------------------------------- 0058 ; SUBPROGRAM 0058 ; -------------------------------------------------------------------------------------- 0058 0079 | y | .CONST 0x0079 ; Address of begin 0059 0004 | | .CONST 0x0004 ; Address of exception handler 005a 0003 | | .CONST 0x0003 ; Number of locals 005b INIT_0058: 005b 00da | | Load_Top At_Offset_2 ; Debug Table 0x4 = .DEBUG 0x005b,0x020e,0x0002,0x0000,0x0058,0x6a25,0x0000,0x0028 ; Debug Table 0x4.0x0 = 0x5b,0xffff 005c 00db | | Load_Top At_Offset_3 005d 0a02 | | Execute_Immediate Plus,0x2 005e 0aff | | Execute_Immediate Plus,-0x1 005f 0248 | H | Execute Discrete,Check_In_Integer 0060 e5fe | | Load 0x2,-0x2 0061 01cf | | Execute Vector,Slice_Read 0062 8214 | | Call 0x1,0x14 0063 00e3 | | Load_Encached Natural_Cache 0064 03f1 | | Declare_Variable Discrete,With_Value 0065 4801 |H | Short_Literal 0x1 ; Debug Table 0x4.0x1 = 0x65,0xfffe 0066 00d9 | | Load_Top At_Offset_1 0067 00e9 | | Load_Encached String_Cache 0068 0334 | 4 | Declare_Variable Array,With_Constraint 0069 e5ff | | Load 0x2,-0x1 006a 0a02 | | Execute_Immediate Plus,0x2 006b 0248 | H | Execute Discrete,Check_In_Integer 006c e5ff | | Load 0x2,-0x1 006d 0a02 | | Execute_Immediate Plus,0x2 006e 0248 | H | Execute Discrete,Check_In_Integer 006f 00db | | Load_Top At_Offset_3 0070 0273 | s | Execute Discrete,Plus 0071 0aff | | Execute_Immediate Plus,-0x1 0072 0248 | H | Execute Discrete,Check_In_Integer 0073 e5fe | | Load 0x2,-0x2 0074 01cf | | Execute Vector,Slice_Read 0075 e003 | | Load 0x0,0x3 0076 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0077 00d9 | | Load_Top At_Offset_1 0078 01d4 | | Execute Vector,Structure_Write 0079 BODY_0058: 0079 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x4.0x2 = 0x79,0x1 007a e004 | | Load 0x0,0x4 007b 1b17 | | Execute Package,Field_Read,Field_Number 0x17 007c 1c08 | | Execute_Immediate Run_Utility,0x8 007d e5ff | | Load 0x2,-0x1 007e 00db | | Load_Top At_Offset_3 007f 0273 | s | Execute Discrete,Plus 0080 0248 | H | Execute Discrete,Check_In_Integer 0081 0a02 | | Execute_Immediate Plus,0x2 0082 00d9 | | Load_Top At_Offset_1 0083 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0084 00d9 | | Load_Top At_Offset_1 0085 00d9 | | Load_Top At_Offset_1 0086 00d8 | | Load_Top At_Offset_0 0087 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0088 00da | | Load_Top At_Offset_2 0089 01da | | Execute Vector,Bounds 008a 00da | | Load_Top At_Offset_2 008b 01da | | Execute Vector,Bounds 008c 00da | | Load_Top At_Offset_2 008d 027f | | Execute Discrete,Equal 008e 7002 |p | Jump_Nonzero 0x91 008f 48e0 |H | Short_Literal 0xe0 0090 0257 | W | Execute Discrete,Raise 0091 00d0 | | Action Swap_Control 0092 00d1 | | Pop_Control Pop_Count_1 0093 027f | | Execute Discrete,Equal 0094 7002 |p | Jump_Nonzero 0x97 0095 48e0 |H | Short_Literal 0xe0 0096 0257 | W | Execute Discrete,Raise 0097 00d2 | | Pop_Control Pop_Count_2 0098 00d9 | | Load_Top At_Offset_1 0099 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3 009a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 009b 0000 0000 | | .BLANK 0000[0x5] 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 4802 |H | Short_Literal 0x2 ; Debug Table 0x5 = .DEBUG 0x00a3,0x0216,0x0002,0x0000,0x0058,0x6a25,0x0000,0x0039 ; Debug Table 0x5.0x0 = 0xa3,0x1 00a4 e5fe | | Load 0x2,-0x2 00a5 8213 | | Call 0x1,0x13 00a6 4802 |H | Short_Literal 0x2 00a7 e5ff | | Load 0x2,-0x1 00a8 8213 | | Call 0x1,0x13 00a9 01cc | | Execute Vector,Catenate 00aa 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00ab 0000 0000 | | .BLANK 0000[0x5] 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 e5fc | | Load 0x2,-0x4 ; Debug Table 0x6 = .DEBUG 0x00b3,0x021a,0x0001,0x0000,0x0058,0x6a25,0x0000,0x0048 ; Debug Table 0x6.0x0 = 0xb3,0x1 00b4 e5fc | | Load 0x2,-0x4 00b5 0a02 | | Execute_Immediate Plus,0x2 00b6 0aff | | Execute_Immediate Plus,-0x1 00b7 0248 | H | Execute Discrete,Check_In_Integer 00b8 e5ff | | Load 0x2,-0x1 00b9 01cf | | Execute Vector,Slice_Read 00ba 8214 | | Call 0x1,0x14 00bb a5fd | | Store_Unchecked 0x2,-0x3 00bc e5fc | | Load 0x2,-0x4 ; Debug Table 0x6.0x1 = 0xbc,0x2 00bd 0a02 | | Execute_Immediate Plus,0x2 00be c5fc | | Store 0x2,-0x4 00bf e5fc | | Load 0x2,-0x4 ; Debug Table 0x6.0x2 = 0xbf,0x3 00c0 e5fc | | Load 0x2,-0x4 00c1 0a02 | | Execute_Immediate Plus,0x2 00c2 0aff | | Execute_Immediate Plus,-0x1 00c3 0248 | H | Execute Discrete,Check_In_Integer 00c4 e5ff | | Load 0x2,-0x1 00c5 01cf | | Execute Vector,Slice_Read 00c6 8214 | | Call 0x1,0x14 00c7 a5fe | | Store_Unchecked 0x2,-0x2 00c8 e5fc | | Load 0x2,-0x4 ; Debug Table 0x6.0x3 = 0xc8,0x4 00c9 0a02 | | Execute_Immediate Plus,0x2 00ca c5fc | | Store 0x2,-0x4 00cb 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00cc 0000 0000 | | .BLANK 0000[0x4] 00d0 ; -------------------------------------------------------------------------------------- 00d0 ; SUBPROGRAM 00d0 ; -------------------------------------------------------------------------------------- 00d0 00e5 | | .CONST 0x00e5 ; Address of begin 00d1 0004 | | .CONST 0x0004 ; Address of exception handler 00d2 0005 | | .CONST 0x0005 ; Number of locals 00d3 INIT_00d0: 00d3 e005 | | Load 0x0,0x5 ; Debug Table 0x7 = .DEBUG 0x00d3,0x0224,0x0002,0x0000,0x0058,0x6a25,0x0000,0x005e ; Debug Table 0x7.0x0 = 0xd3,0xffff 00d4 1b10 | | Execute Package,Field_Read,Field_Number 0x10 00d5 00db | | Load_Top At_Offset_3 00d6 0217 | | Execute Heap_Access,All_Reference 00d7 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00d8 0031 | 1 | Store_Top Heap_Access,At_Offset_1 00d9 4801 |H | Short_Literal 0x1 ; Debug Table 0x7.0x1 = 0xd9,0xfffe 00da e5ff | | Load 0x2,-0x1 00db 8215 | | Call 0x1,0x15 00dc e006 | | Load 0x0,0x6 00dd 1b12 | | Execute Package,Field_Read,Field_Number 0x12 00de 0334 | 4 | Declare_Variable Array,With_Constraint 00df 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x7.0x2 = 0xdf,0xfffd 00e0 01dc | | Execute Vector,Last 00e1 0a01 | | Execute_Immediate Plus,0x1 00e2 00e3 | | Load_Encached Natural_Cache 00e3 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 00e4 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x7.0x3 = 0xe4,0xfffc 00e5 BODY_00d0: 00e5 00cf | | Action Mark_Auxiliary 00e6 781a |x | Jump 0x101 00e7 00da | | Load_Top At_Offset_2 ; Debug Table 0x7.0x4 = 0xe7,0x2 00e8 0aff | | Execute_Immediate Plus,-0x1 00e9 005a | Z | Store_Top Discrete,At_Offset_2 00ea 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x7.0x5 = 0xea,0x3 00eb e402 | | Load 0x2,0x2 00ec 0217 | | Execute Heap_Access,All_Reference 00ed 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00ee 0217 | | Execute Heap_Access,All_Reference 00ef 01db | | Execute Vector,Length 00f0 0272 | r | Execute Discrete,Minus 00f1 0248 | H | Execute Discrete,Check_In_Integer 00f2 0a01 | | Execute_Immediate Plus,0x1 00f3 005b | [ | Store_Top Discrete,At_Offset_3 00f4 e402 | | Load 0x2,0x2 ; Debug Table 0x7.0x6 = 0xf4,0x4 00f5 0217 | | Execute Heap_Access,All_Reference 00f6 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00f7 0217 | | Execute Heap_Access,All_Reference 00f8 00db | | Load_Top At_Offset_3 00f9 00db | | Load_Top At_Offset_3 00fa e403 | | Load 0x2,0x3 00fb 01ce | | Execute Vector,Slice_Write 00fc e402 | | Load 0x2,0x2 ; Debug Table 0x7.0x7 = 0xfc,0x5 00fd 0217 | | Execute Heap_Access,All_Reference 00fe 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00ff a402 | | Store_Unchecked 0x2,0x2 0100 00c9 | | Action Pop_Auxiliary_Loop 0101 e402 | | Load 0x2,0x2 ; Debug Table 0x7.0x8 = 0x101,0x1 0102 77e4 |w | Jump_Nonzero 0xe7 0103 00ce | | Action Pop_Auxiliary 0104 e5ff | | Load 0x2,-0x1 ; Debug Table 0x7.0x9 = 0x104,0x6 0105 0217 | | Execute Heap_Access,All_Reference 0106 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0107 e007 | | Load 0x0,0x7 0108 180f | | Execute Package,Field_Execute,Field_Number 0xf 0109 00da | | Load_Top At_Offset_2 ; Debug Table 0x7.0xa = 0x109,0x7 010a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 010b 0000 0000 | | .BLANK 0000[0x5] 0110 ; -------------------------------------------------------------------------------------- 0110 ; SUBPROGRAM 0110 ; -------------------------------------------------------------------------------------- 0110 0113 | | .CONST 0x0113 ; Address of begin 0111 0004 | | .CONST 0x0004 ; Address of exception handler 0112 0001 | | .CONST 0x0001 ; Number of locals 0113 BODY_0110: 0113 INIT_0110: 0113 00db | | Load_Top At_Offset_3 ; Debug Table 0x8 = .DEBUG 0x0113,0x023c,0x0002,0x0000,0x0058,0x6e05,0x0000,0x006a ; Debug Table 0x8.0x0 = 0x113,0x1 0114 0c01 | | Execute_Immediate Greater_Equal,0x1 0115 6825 |h% | Jump_Zero 0x13b 0116 4801 |H | Short_Literal 0x1 ; Debug Table 0x8.0x1 = 0x116,0x2 0117 4801 |H | Short_Literal 0x1 0118 e006 | | Load 0x0,0x6 0119 1b12 | | Execute Package,Field_Read,Field_Number 0x12 011a 0334 | 4 | Declare_Variable Array,With_Constraint 011b 4801 |H | Short_Literal 0x1 011c 4801 |H | Short_Literal 0x1 011d e5ff | | Load 0x2,-0x1 011e 4900 |I | Short_Literal 0x100 011f e5fe | | Load 0x2,-0x2 0120 0aff | | Execute_Immediate Plus,-0x1 0121 026d | m | Execute Discrete,Exponentiate 0122 0248 | H | Execute Discrete,Check_In_Integer 0123 0270 | p | Execute Discrete,Divide 0124 e006 | | Load 0x0,0x6 0125 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0126 025b | [ | Execute Discrete,Check_In_Type 0127 00d9 | | Load_Top At_Offset_1 0128 e402 | | Load 0x2,0x2 0129 01d6 | | Execute Vector,Field_Write 012a 3ff2 |? | Loop_Increasing 0x11d 012b e5fe | | Load 0x2,-0x2 012c 0aff | | Execute_Immediate Plus,-0x1 012d 00e3 | | Load_Encached Natural_Cache 012e 025b | [ | Execute Discrete,Check_In_Type 012f e5ff | | Load 0x2,-0x1 0130 4900 |I | Short_Literal 0x100 0131 e5fe | | Load 0x2,-0x2 0132 0aff | | Execute_Immediate Plus,-0x1 0133 026d | m | Execute Discrete,Exponentiate 0134 0248 | H | Execute Discrete,Check_In_Integer 0135 026e | n | Execute Discrete,Modulo 0136 00e3 | | Load_Encached Natural_Cache 0137 025b | [ | Execute Discrete,Check_In_Type 0138 8213 | | Call 0x1,0x13 0139 01cc | | Execute Vector,Catenate 013a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 013b 00da | | Load_Top At_Offset_2 ; Debug Table 0x8.0x2 = 0x13b,0x3 013c 6802 |h | Jump_Zero 0x13f 013d 48e0 |H | Short_Literal 0xe0 ; Debug Table 0x8.0x3 = 0x13d,0x4 013e 0257 | W | Execute Discrete,Raise 013f 4801 |H | Short_Literal 0x1 ; Debug Table 0x8.0x4 = 0x13f,0x5 0140 4800 |H | Short_Literal 0x0 0141 e006 | | Load 0x0,0x6 0142 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0143 0334 | 4 | Declare_Variable Array,With_Constraint 0144 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0145 0000 0000 | | .XXX[0x3] 0147 0000 | | 0148 ; -------------------------------------------------------------------------------------- 0148 ; SUBPROGRAM 0148 ; -------------------------------------------------------------------------------------- 0148 014d | M | .CONST 0x014d ; Address of begin 0149 0004 | | .CONST 0x0004 ; Address of exception handler 014a 0002 | | .CONST 0x0002 ; Number of locals 014b INIT_0148: 014b 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x9 = .DEBUG 0x014b,0x0248,0x0002,0x0000,0x0058,0x6e05,0x0000,0x00cb ; Debug Table 0x9.0x0 = 0x14b,0xffff 014c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 014d BODY_0148: 014d 00cf | | Action Mark_Auxiliary 014e e5ff | | Load 0x2,-0x1 ; Debug Table 0x9.0x1 = 0x14e,0x1 014f 01d9 | | Execute Vector,Reverse_Bounds 0150 0263 | c | Execute Discrete,Above_Bound 0151 700a |p | Jump_Nonzero 0x15c 0152 00db | | Load_Top At_Offset_3 ; Debug Table 0x9.0x2 = 0x152,0x2 0153 0908 | | Execute_Immediate Binary_Scale,0x8 0154 0248 | H | Execute Discrete,Check_In_Integer 0155 00d9 | | Load_Top At_Offset_1 0156 e5ff | | Load 0x2,-0x1 0157 01d7 | | Execute Vector,Field_Read 0158 0273 | s | Execute Discrete,Plus 0159 c402 | | Store 0x2,0x2 015a 00c8 | | Action Pop_Auxiliary_Range 015b 3ff6 |? | Loop_Increasing 0x152 015c 00ce | | Action Pop_Auxiliary 015d 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x9.0x3 = 0x15d,0x3 015e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 015f 0000 | | .XXX[0x1] 0160 ; -------------------------------------------------------------------------------------- 0160 ; SUBPROGRAM 0160 ; -------------------------------------------------------------------------------------- 0160 016b | k | .CONST 0x016b ; Address of begin 0161 0004 | | .CONST 0x0004 ; Address of exception handler 0162 0003 | | .CONST 0x0003 ; Number of locals 0163 INIT_0160: 0163 e005 | | Load 0x0,0x5 ; Debug Table 0xa = .DEBUG 0x0163,0x0252,0x0002,0x0000,0x0058,0x6e05,0x0000,0x01e1 ; Debug Table 0xa.0x0 = 0x163,0xffff 0164 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0165 00db | | Load_Top At_Offset_3 0166 0217 | | Execute Heap_Access,All_Reference 0167 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0168 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0169 00e3 | | Load_Encached Natural_Cache ; Debug Table 0xa.0x1 = 0x169,0xfffe 016a 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 016b BODY_0160: 016b 00cf | | Action Mark_Auxiliary 016c 780d |x | Jump 0x17a 016d 00d9 | | Load_Top At_Offset_1 ; Debug Table 0xa.0x2 = 0x16d,0x2 016e 00db | | Load_Top At_Offset_3 016f 0217 | | Execute Heap_Access,All_Reference 0170 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0171 0217 | | Execute Heap_Access,All_Reference 0172 01db | | Execute Vector,Length 0173 0273 | s | Execute Discrete,Plus 0174 005a | Z | Store_Top Discrete,At_Offset_2 0175 00da | | Load_Top At_Offset_2 ; Debug Table 0xa.0x3 = 0x175,0x3 0176 0217 | | Execute Heap_Access,All_Reference 0177 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0178 0033 | 3 | Store_Top Heap_Access,At_Offset_3 0179 00c9 | | Action Pop_Auxiliary_Loop 017a 00da | | Load_Top At_Offset_2 ; Debug Table 0xa.0x4 = 0x17a,0x1 017b 77f1 |w | Jump_Nonzero 0x16d 017c 00ce | | Action Pop_Auxiliary 017d 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xa.0x5 = 0x17d,0x4 017e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 017f 0000 | | .XXX[0x1] 0180 ; -------------------------------------------------------------------------------------- 0180 ; Debug Table 0180 ; -------------------------------------------------------------------------------------- 0180 0003 000b | | .CONST 0x0003,0x000b 0182 000b 01da | | .DEBUG 0x000b,0x01da,0x8000,0x0000,0x0058,0x6a25,0x0000,0x000b 018a 0018 01e8 | | .DEBUG 0x0018,0x01e8,0x8000,0x0000,0x0058,0x6e05,0x0000,0x000f 0192 0033 0204 | 3 | .DEBUG 0x0033,0x0204,0x0002,0x0000,0x0058,0x6a25,0x0000,0x000c 019a 004b 020a | K | .DEBUG 0x004b,0x020a,0x0002,0x0000,0x0058,0x6a25,0x0000,0x001d 01a2 005b 020e | [ | .DEBUG 0x005b,0x020e,0x0002,0x0000,0x0058,0x6a25,0x0000,0x0028 01aa 00a3 0216 | | .DEBUG 0x00a3,0x0216,0x0002,0x0000,0x0058,0x6a25,0x0000,0x0039 01b2 00b3 021a | | .DEBUG 0x00b3,0x021a,0x0001,0x0000,0x0058,0x6a25,0x0000,0x0048 01ba 00d3 0224 | $| .DEBUG 0x00d3,0x0224,0x0002,0x0000,0x0058,0x6a25,0x0000,0x005e 01c2 0113 023c | <| .DEBUG 0x0113,0x023c,0x0002,0x0000,0x0058,0x6e05,0x0000,0x006a 01ca 014b 0248 | K H| .DEBUG 0x014b,0x0248,0x0002,0x0000,0x0058,0x6e05,0x0000,0x00cb 01d2 0163 0252 | c R| .DEBUG 0x0163,0x0252,0x0002,0x0000,0x0058,0x6e05,0x0000,0x01e1 01da ; -------------------------------------------------------------------------------------- 01da ; Debug3 Subtable 0x0 01da ; -------------------------------------------------------------------------------------- 01da 0006 0000 | | .DBG3TAB 0x0006,0x0000 01dc 000b ffff | | .CONST 0x000b,0xffff 01de 000d fffe | | .CONST 0x000d,0xfffe 01e0 000f fffd | | .CONST 0x000f,0xfffd 01e2 0011 fffc | | .CONST 0x0011,0xfffc 01e4 0013 fffb | | .CONST 0x0013,0xfffb 01e6 0015 fffa | | .CONST 0x0015,0xfffa 01e8 ; -------------------------------------------------------------------------------------- 01e8 ; Debug3 Subtable 0x1 01e8 ; -------------------------------------------------------------------------------------- 01e8 000d 0000 | | .DBG3TAB 0x000d,0x0000 01ea 0018 ffff | | .CONST 0x0018,0xffff 01ec 0019 fffe | | .CONST 0x0019,0xfffe 01ee 001a fffd | | .CONST 0x001a,0xfffd 01f0 001b fffc | | .CONST 0x001b,0xfffc 01f2 001c fffb | | .CONST 0x001c,0xfffb 01f4 001e fffa | | .CONST 0x001e,0xfffa 01f6 0020 fff9 | | .CONST 0x0020,0xfff9 01f8 0022 fff8 | " | .CONST 0x0022,0xfff8 01fa 0024 fff7 | $ | .CONST 0x0024,0xfff7 01fc 0026 fff6 | & | .CONST 0x0026,0xfff6 01fe 0028 fff5 | ( | .CONST 0x0028,0xfff5 0200 002a fff4 | * | .CONST 0x002a,0xfff4 0202 002c fff3 | , | .CONST 0x002c,0xfff3 0204 ; -------------------------------------------------------------------------------------- 0204 ; Debug3 Subtable 0x2 0204 ; -------------------------------------------------------------------------------------- 0204 0000 0002 | | .DBG3TAB 0x0000,0x0002 0206 0033 0001 | 3 | .CONST 0x0033,0x0001 0208 0042 0002 | B | .CONST 0x0042,0x0002 020a ; -------------------------------------------------------------------------------------- 020a ; Debug3 Subtable 0x3 020a ; -------------------------------------------------------------------------------------- 020a 0000 0001 | | .DBG3TAB 0x0000,0x0001 020c 004b 0001 | K | .CONST 0x004b,0x0001 020e ; -------------------------------------------------------------------------------------- 020e ; Debug3 Subtable 0x4 020e ; -------------------------------------------------------------------------------------- 020e 0002 0001 | | .DBG3TAB 0x0002,0x0001 0210 005b ffff | [ | .CONST 0x005b,0xffff 0212 0065 fffe | e | .CONST 0x0065,0xfffe 0214 0079 0001 | y | .CONST 0x0079,0x0001 0216 ; -------------------------------------------------------------------------------------- 0216 ; Debug3 Subtable 0x5 0216 ; -------------------------------------------------------------------------------------- 0216 0000 0001 | | .DBG3TAB 0x0000,0x0001 0218 00a3 0001 | | .CONST 0x00a3,0x0001 021a ; -------------------------------------------------------------------------------------- 021a ; Debug3 Subtable 0x6 021a ; -------------------------------------------------------------------------------------- 021a 0000 0004 | | .DBG3TAB 0x0000,0x0004 021c 00b3 0001 | | .CONST 0x00b3,0x0001 021e 00bc 0002 | | .CONST 0x00bc,0x0002 0220 00bf 0003 | | .CONST 0x00bf,0x0003 0222 00c8 0004 | | .CONST 0x00c8,0x0004 0224 ; -------------------------------------------------------------------------------------- 0224 ; Debug3 Subtable 0x7 0224 ; -------------------------------------------------------------------------------------- 0224 0004 0007 | | .DBG3TAB 0x0004,0x0007 0226 00d3 ffff | | .CONST 0x00d3,0xffff 0228 00d9 fffe | | .CONST 0x00d9,0xfffe 022a 00df fffd | | .CONST 0x00df,0xfffd 022c 00e4 fffc | | .CONST 0x00e4,0xfffc 022e 00e7 0002 | | .CONST 0x00e7,0x0002 0230 00ea 0003 | | .CONST 0x00ea,0x0003 0232 00f4 0004 | | .CONST 0x00f4,0x0004 0234 00fc 0005 | | .CONST 0x00fc,0x0005 0236 0101 0001 | | .CONST 0x0101,0x0001 0238 0104 0006 | | .CONST 0x0104,0x0006 023a 0109 0007 | | .CONST 0x0109,0x0007 023c ; -------------------------------------------------------------------------------------- 023c ; Debug3 Subtable 0x8 023c ; -------------------------------------------------------------------------------------- 023c 0000 0005 | | .DBG3TAB 0x0000,0x0005 023e 0113 0001 | | .CONST 0x0113,0x0001 0240 0116 0002 | | .CONST 0x0116,0x0002 0242 013b 0003 | ; | .CONST 0x013b,0x0003 0244 013d 0004 | = | .CONST 0x013d,0x0004 0246 013f 0005 | ? | .CONST 0x013f,0x0005 0248 ; -------------------------------------------------------------------------------------- 0248 ; Debug3 Subtable 0x9 0248 ; -------------------------------------------------------------------------------------- 0248 0001 0003 | | .DBG3TAB 0x0001,0x0003 024a 014b ffff | K | .CONST 0x014b,0xffff 024c 014e 0001 | N | .CONST 0x014e,0x0001 024e 0152 0002 | R | .CONST 0x0152,0x0002 0250 015d 0003 | ] | .CONST 0x015d,0x0003 0252 ; -------------------------------------------------------------------------------------- 0252 ; Debug3 Subtable 0xa 0252 ; -------------------------------------------------------------------------------------- 0252 0002 0004 | | .DBG3TAB 0x0002,0x0004 0254 0163 ffff | c | .CONST 0x0163,0xffff 0256 0169 fffe | i | .CONST 0x0169,0xfffe 0258 016d 0002 | m | .CONST 0x016d,0x0002 025a 0175 0003 | u | .CONST 0x0175,0x0003 025c 017a 0001 | z | .CONST 0x017a,0x0001 025e 017d 0004 | } | .CONST 0x017d,0x0004 0260 0000 0000 | | .BLANK 0000[0x1a0]