|
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: 3072 (0xc00) Notes: 00_class, 5812_R1K_CODE, 75_tag, NULL, R1k_Segment, seg_07b4f8
└─⟦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 5812 |X | .CONST 0x5812 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0298 | | .CONST 0x0298 ; 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 0002 | | .CONST 0x0002 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0079 | y | .CONST 0x0079 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0026 | & | .CONST 0x0026 ; Number of locals 000b INIT_0008: 000b 00e9 | | Load_Encached String_Cache ; Debug Table 0x0 = .DEBUG 0x000b,0x0342,0x8000,0x0000,0x004c,0x30e6,0x0000,0x0005 ; Debug Table 0x0.0x0 = 0xb,0xffff 000c 02a0 | | Declare_Subprogram Null_Subprogram 000d 03ae | | Declare_Type Heap_Access,Defined,Visible 000e 0007 | | Action Break_Optional ; Debug Table 0x0.0x1 = 0xe,0xfffe 000f 03a9 | | Declare_Type Heap_Access,Indirect_Literal,Visible ; Debug Table 0x0.0x2 = 0xf,0xfffd 0010 029a 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x3 = 0x10,0xfffc 0012 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x4 = 0x12,0xfffb 0014 029a 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x5 = 0x14,0xfffa 0016 029a 00d3 | | Declare_Subprogram INIT_00d0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x6 = 0x16,0xfff9 0018 029a 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x7 = 0x18,0xfff8 001a 029a 0123 | #| Declare_Subprogram INIT_0120,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x8 = 0x1a,0xfff7 001c 029a 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x9 = 0x1c,0xfff6 001e 029a 019b | | Declare_Subprogram INIT_0198,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xa = 0x1e,0xfff5 0020 029a 01b3 | | Declare_Subprogram INIT_01b0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xb = 0x20,0xfff4 0022 029a 01c3 | | Declare_Subprogram INIT_01c0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xc = 0x22,0xfff3 0024 029a 01d3 | | Declare_Subprogram INIT_01d0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xd = 0x24,0xfff2 0026 029a 01e3 | | Declare_Subprogram INIT_01e0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xe = 0x26,0xfff1 0028 4803 |H | Short_Literal 0x3 ; Debug Table 0x0.0xf = 0x28,0xfff0 0029 032b | + | Declare_Type Record,Incomplete,Visible 002a 029a 01eb | | Declare_Subprogram INIT_01e8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x10 = 0x2a,0xffef 002c 029a 0203 | | Declare_Subprogram INIT_0200,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x11 = 0x2c,0xffee 002e 029a 0223 | #| Declare_Subprogram INIT_0220,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x12 = 0x2e,0xffed 0030 029a 022b | +| Declare_Subprogram INIT_0228,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x13 = 0x30,0xffec 0032 4801 |H | Short_Literal 0x1 ; Debug Table 0x0.0x14 = 0x32,0xffeb 0033 034b | K | Declare_Type Array,Incomplete,Bounds_With_Object 0034 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x0.0x15 = 0x34,0xffea 0035 02a0 | | Declare_Subprogram Null_Subprogram 0036 e20e | | Load 0x1,0xe 0037 03a3 | | Complete_Type Heap_Access,By_Defining 0038 0007 | | Action Break_Optional ; Debug Table 0x0.0x16 = 0x38,0xffe9 0039 4802 |H | Short_Literal 0x2 ; Debug Table 0x0.0x17 = 0x39,0xffe8 003a 032a | * | Declare_Type Record,Incomplete 003b 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x0.0x18 = 0x3b,0xffe7 003c 02a0 | | Declare_Subprogram Null_Subprogram 003d 03ad | | Declare_Type Heap_Access,Defined 003e 0007 | | Action Break_Optional ; Debug Table 0x0.0x19 = 0x3e,0xffe6 003f 00e2 | | Load_Encached Integer_Cache ; Debug Table 0x0.0x1a = 0x3f,0xffe5 0040 e20e | | Load 0x1,0xe ; Debug Table 0x0.0x1b = 0x40,0xffe4 0041 00d9 | | Load_Top At_Offset_1 0042 00db | | Load_Top At_Offset_3 0043 02a0 | | Declare_Subprogram Null_Subprogram 0044 e21b | | Load 0x1,0x1b 0045 0326 | & | Complete_Type Record,By_Defining 0046 00bf | | Action Accept_Activation 0047 0007 | | Action Break_Optional ; Debug Table 0x1 = .DEBUG 0x0047,0x037c,0x8000,0x0000,0x004c,0x3656,0x0000,0x0007 ; Debug Table 0x1.0x0 = 0x47,0xffff 0048 e20d | | Load 0x1,0xd ; Debug Table 0x1.0x1 = 0x48,0xfffe 0049 00da | | Load_Top At_Offset_2 004a 02a0 | | Declare_Subprogram Null_Subprogram 004b e221 | ! | Load 0x1,0x21 004c 0326 | & | Complete_Type Record,By_Defining 004d 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x1.0x2 = 0x4d,0xfffd 004e 0266 | f | Execute Discrete,Bounds 004f 00db | | Load_Top At_Offset_3 0050 02a0 | | Declare_Subprogram Null_Subprogram 0051 e220 | | Load 0x1,0x20 0052 0343 | C | Complete_Type Array,By_Defining 0053 1d12 | | Execute_Immediate Reference_Lex_1,0x12 ; Debug Table 0x1.0x3 = 0x53,0xfffc 0054 00c7 | | Action Elaborate_Subprogram 0055 029d 0233 | 3| Declare_Subprogram INIT_0230,For_Outer_Call ; Debug Table 0x1.0x4 = 0x55,0xfffb 0057 1d0f | | Execute_Immediate Reference_Lex_1,0xf ; Debug Table 0x1.0x5 = 0x57,0xfffa 0058 00c7 | | Action Elaborate_Subprogram 0059 029d 0243 | C| Declare_Subprogram INIT_0240,For_Outer_Call ; Debug Table 0x1.0x6 = 0x59,0xfff9 005b 1d10 | | Execute_Immediate Reference_Lex_1,0x10 ; Debug Table 0x1.0x7 = 0x5b,0xfff8 005c 00c7 | | Action Elaborate_Subprogram 005d 1d11 | | Execute_Immediate Reference_Lex_1,0x11 ; Debug Table 0x1.0x8 = 0x5d,0xfff7 005e 00c7 | | Action Elaborate_Subprogram 005f 1d13 | | Execute_Immediate Reference_Lex_1,0x13 ; Debug Table 0x1.0x9 = 0x5f,0xfff6 0060 00c7 | | Action Elaborate_Subprogram 0061 1d14 | | Execute_Immediate Reference_Lex_1,0x14 ; Debug Table 0x1.0xa = 0x61,0xfff5 0062 00c7 | | Action Elaborate_Subprogram 0063 1d15 | | Execute_Immediate Reference_Lex_1,0x15 ; Debug Table 0x1.0xb = 0x63,0xfff4 0064 00c7 | | Action Elaborate_Subprogram 0065 1d16 | | Execute_Immediate Reference_Lex_1,0x16 ; Debug Table 0x1.0xc = 0x65,0xfff3 0066 00c7 | | Action Elaborate_Subprogram 0067 1d17 | | Execute_Immediate Reference_Lex_1,0x17 ; Debug Table 0x1.0xd = 0x67,0xfff2 0068 00c7 | | Action Elaborate_Subprogram 0069 1d18 | | Execute_Immediate Reference_Lex_1,0x18 ; Debug Table 0x1.0xe = 0x69,0xfff1 006a 00c7 | | Action Elaborate_Subprogram 006b 1d19 | | Execute_Immediate Reference_Lex_1,0x19 ; Debug Table 0x1.0xf = 0x6b,0xfff0 006c 00c7 | | Action Elaborate_Subprogram 006d 1d1a | | Execute_Immediate Reference_Lex_1,0x1a ; Debug Table 0x1.0x10 = 0x6d,0xffef 006e 00c7 | | Action Elaborate_Subprogram 006f 029d 027b | {| Declare_Subprogram INIT_0278,For_Outer_Call ; Debug Table 0x1.0x11 = 0x6f,0xffee 0071 1d1c | | Execute_Immediate Reference_Lex_1,0x1c ; Debug Table 0x1.0x12 = 0x71,0xffed 0072 00c7 | | Action Elaborate_Subprogram 0073 1d1d | | Execute_Immediate Reference_Lex_1,0x1d ; Debug Table 0x1.0x13 = 0x73,0xffec 0074 00c7 | | Action Elaborate_Subprogram 0075 1d1e | | Execute_Immediate Reference_Lex_1,0x1e ; Debug Table 0x1.0x14 = 0x75,0xffeb 0076 00c7 | | Action Elaborate_Subprogram 0077 1d1f | | Execute_Immediate Reference_Lex_1,0x1f ; Debug Table 0x1.0x15 = 0x77,0xffea 0078 00c7 | | Action Elaborate_Subprogram 0079 BODY_0008: 0079 00bc | | Action Signal_Activated 007a 00bb | | Action Signal_Completion 007b 0000 0000 | | .BLANK 0000[0x5] 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 4800 |H | Short_Literal 0x0 ; Debug Table 0x2 = .DEBUG 0x0083,0x03aa,0x0002,0x0000,0x004c,0x30e6,0x0000,0x0014 ; Debug Table 0x2.0x0 = 0x83,0x1 0084 e5fe | | Load 0x2,-0x2 0085 0aff | | Execute_Immediate Plus,-0x1 0086 0248 | H | Execute Discrete,Check_In_Integer 0087 e20e | | Load 0x1,0xe 0088 e5ff | | Load 0x2,-0x1 0089 039a | | Declare_Variable Heap_Access,By_Allocation,With_Constraint 008a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 008b 0000 0000 | | .BLANK 0000[0x5] 0090 ; -------------------------------------------------------------------------------------- 0090 ; SUBPROGRAM 0090 ; -------------------------------------------------------------------------------------- 0090 0093 | | .CONST 0x0093 ; Address of begin 0091 0004 | | .CONST 0x0004 ; Address of exception handler 0092 0001 | | .CONST 0x0001 ; Number of locals 0093 BODY_0090: 0093 INIT_0090: 0093 00cf | | Action Mark_Auxiliary ; Debug Table 0x3 = .DEBUG 0x0093,0x03ae,0x0001,0x0000,0x004c,0x30e6,0x0000,0x0024 0094 00db | | Load_Top At_Offset_3 ; Debug Table 0x3.0x0 = 0x94,0x1 0095 0217 | | Execute Heap_Access,All_Reference 0096 01d9 | | Execute Vector,Reverse_Bounds 0097 0263 | c | Execute Discrete,Above_Bound 0098 7007 |p | Jump_Nonzero 0xa0 0099 e222 | " | Load 0x1,0x22 ; Debug Table 0x3.0x1 = 0x99,0x2 009a 00d9 | | Load_Top At_Offset_1 009b e5ff | | Load 0x2,-0x1 009c 0217 | | Execute Heap_Access,All_Reference 009d 01d6 | | Execute Vector,Field_Write 009e 00c8 | | Action Pop_Auxiliary_Range 009f 3ff9 |? | Loop_Increasing 0x99 00a0 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00a1 0000 0000 | | .BLANK 0000[0x7] 00a8 ; -------------------------------------------------------------------------------------- 00a8 ; SUBPROGRAM 00a8 ; -------------------------------------------------------------------------------------- 00a8 00af | | .CONST 0x00af ; Address of begin 00a9 0004 | | .CONST 0x0004 ; Address of exception handler 00aa 0003 | | .CONST 0x0003 ; Number of locals 00ab INIT_00a8: 00ab e21b | | Load 0x1,0x1b ; Debug Table 0x4 = .DEBUG 0x00ab,0x03b4,0x0002,0x0000,0x004c,0x30e6,0x0000,0x002c ; Debug Table 0x4.0x0 = 0xab,0xffff 00ac 0322 | " | Declare_Variable Record 00ad e20e | | Load 0x1,0xe ; Debug Table 0x4.0x1 = 0xad,0xfffe 00ae 0007 | | Action Break_Optional 00af BODY_00a8: 00af e5ff | | Load 0x2,-0x1 ; Debug Table 0x4.0x2 = 0xaf,0x1 00b0 0217 | | Execute Heap_Access,All_Reference 00b1 01da | | Execute Vector,Bounds 00b2 e20e | | Load 0x1,0xe 00b3 e5ff | | Load 0x2,-0x1 00b4 039a | | Declare_Variable Heap_Access,By_Allocation,With_Constraint 00b5 0031 | 1 | Store_Top Heap_Access,At_Offset_1 00b6 0007 | | Action Break_Optional ; Debug Table 0x4.0x3 = 0xb6,0x2 00b7 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x4.0x4 = 0xb7,0x3 00b8 e5ff | | Load 0x2,-0x1 00b9 821c | | Call 0x1,0x1c 00ba 00d1 | | Pop_Control Pop_Count_1 00bb 00cf | | Action Mark_Auxiliary 00bc 7808 |x | Jump 0xc5 00bd 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x4.0x5 = 0xbd,0x5 00be 00db | | Load_Top At_Offset_3 00bf 821e | | Call 0x1,0x1e 00c0 8225 | % | Call 0x1,0x25 00c1 00da | | Load_Top At_Offset_2 ; Debug Table 0x4.0x6 = 0xc1,0x6 00c2 821d | | Call 0x1,0x1d 00c3 00d1 | | Pop_Control Pop_Count_1 00c4 00c9 | | Action Pop_Auxiliary_Loop 00c5 00da | | Load_Top At_Offset_2 ; Debug Table 0x4.0x7 = 0xc5,0x4 00c6 821f | | Call 0x1,0x1f 00c7 6ff5 |o | Jump_Zero 0xbd 00c8 00ce | | Action Pop_Auxiliary 00c9 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x4.0x8 = 0xc9,0x7 00ca 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00cb 0000 0000 | | .BLANK 0000[0x5] 00d0 ; -------------------------------------------------------------------------------------- 00d0 ; SUBPROGRAM 00d0 ; -------------------------------------------------------------------------------------- 00d0 00d3 | | .CONST 0x00d3 ; Address of begin 00d1 0004 | | .CONST 0x0004 ; Address of exception handler 00d2 0001 | | .CONST 0x0001 ; Number of locals 00d3 BODY_00d0: 00d3 INIT_00d0: 00d3 e20d | | Load 0x1,0xd ; Debug Table 0x5 = .DEBUG 0x00d3,0x03c8,0x0002,0x0000,0x004c,0x30e6,0x0000,0x0035 ; Debug Table 0x5.0x0 = 0xd3,0x1 00d4 00ca | | Action Exit_Nullary_Function 00d5 0000 0000 | | .XXX[0x3] 00d7 0000 | | 00d8 ; -------------------------------------------------------------------------------------- 00d8 ; SUBPROGRAM 00d8 ; -------------------------------------------------------------------------------------- 00d8 00e9 | | .CONST 0x00e9 ; Address of begin 00d9 0004 | | .CONST 0x0004 ; Address of exception handler 00da 0003 | | .CONST 0x0003 ; Number of locals 00db INIT_00d8: 00db 00db | | Load_Top At_Offset_3 ; Debug Table 0x6 = .DEBUG 0x00db,0x03cc,0x0002,0x0000,0x004c,0x30e6,0x0000,0x003a ; Debug Table 0x6.0x0 = 0xdb,0xffff 00dc 0217 | | Execute Heap_Access,All_Reference 00dd 01db | | Execute Vector,Length 00de 00e4 | | Load_Encached Positive_Cache 00df 025b | [ | Execute Discrete,Check_In_Type 00e0 00db | | Load_Top At_Offset_3 00e1 8224 | $ | Call 0x1,0x24 00e2 e5fe | | Load 0x2,-0x2 00e3 0217 | | Execute Heap_Access,All_Reference 00e4 01d5 | | Execute Vector,Field_Reference 00e5 0007 | | Action Break_Optional 00e6 e222 | " | Load 0x1,0x22 ; Debug Table 0x6.0x1 = 0xe6,0xfffe 00e7 00d9 | | Load_Top At_Offset_1 00e8 0031 | 1 | Store_Top Heap_Access,At_Offset_1 00e9 BODY_00d8: 00e9 e5ff | | Load 0x2,-0x1 ; Debug Table 0x6.0x2 = 0xe9,0x1 00ea 01db | | Execute Vector,Length 00eb 7002 |p | Jump_Nonzero 0xee 00ec e20d | | Load 0x1,0xd ; Debug Table 0x6.0x3 = 0xec,0x2 00ed 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 00ee 00cf | | Action Mark_Auxiliary 00ef 7812 |x | Jump 0x102 00f0 e5fd | | Load 0x2,-0x3 ; Debug Table 0x6.0x4 = 0xf0,0x4 00f1 e5ff | | Load 0x2,-0x1 00f2 00db | | Load_Top At_Offset_3 00f3 0217 | | Execute Heap_Access,All_Reference 00f4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00f5 0217 | | Execute Heap_Access,All_Reference 00f6 e001 | | Load 0x0,0x1 00f7 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 00f8 6804 |h | Jump_Zero 0xfd 00f9 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x6.0x5 = 0xf9,0x5 00fa 0217 | | Execute Heap_Access,All_Reference 00fb 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00fc 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 00fd 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x6.0x6 = 0xfd,0x6 00fe 0217 | | Execute Heap_Access,All_Reference 00ff 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0100 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0101 00c9 | | Action Pop_Auxiliary_Loop 0102 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x6.0x7 = 0x102,0x3 0103 77ec |w | Jump_Nonzero 0xf0 0104 00ce | | Action Pop_Auxiliary 0105 e222 | " | Load 0x1,0x22 ; Debug Table 0x6.0x8 = 0x105,0x7 0106 e5fe | | Load 0x2,-0x2 0107 039c | | Declare_Variable Heap_Access,By_Allocation 0108 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0109 0007 | | Action Break_Optional ; Debug Table 0x6.0x9 = 0x109,0x8 010a e5ff | | Load 0x2,-0x1 ; Debug Table 0x6.0xa = 0x10a,0x9 010b e20d | | Load 0x1,0xd 010c e5fe | | Load 0x2,-0x2 010d 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value 010e 00d9 | | Load_Top At_Offset_1 010f 0217 | | Execute Heap_Access,All_Reference 0110 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0111 0007 | | Action Break_Optional ; Debug Table 0x6.0xb = 0x111,0xa 0112 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x6.0xc = 0x112,0xb 0113 00d9 | | Load_Top At_Offset_1 0114 0217 | | Execute Heap_Access,All_Reference 0115 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0116 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x6.0xd = 0x116,0xc 0117 a402 | | Store_Unchecked 0x2,0x2 0118 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x6.0xe = 0x118,0xd 0119 0217 | | Execute Heap_Access,All_Reference 011a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 011b 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 011c 0000 0000 | | .BLANK 0000[0x4] 0120 ; -------------------------------------------------------------------------------------- 0120 ; SUBPROGRAM 0120 ; -------------------------------------------------------------------------------------- 0120 012f | / | .CONST 0x012f ; Address of begin 0121 0004 | | .CONST 0x0004 ; Address of exception handler 0122 0002 | | .CONST 0x0002 ; Number of locals 0123 INIT_0120: 0123 e222 | " | Load 0x1,0x22 ; Debug Table 0x7 = .DEBUG 0x0123,0x03ec,0x0002,0x0000,0x004c,0x30e6,0x0000,0x004c ; Debug Table 0x7.0x0 = 0x123,0xffff 0124 e5fe | | Load 0x2,-0x2 0125 0217 | | Execute Heap_Access,All_Reference 0126 01db | | Execute Vector,Length 0127 00e4 | | Load_Encached Positive_Cache 0128 025b | [ | Execute Discrete,Check_In_Type 0129 e5ff | | Load 0x2,-0x1 012a 8224 | $ | Call 0x1,0x24 012b e5fe | | Load 0x2,-0x2 012c 0217 | | Execute Heap_Access,All_Reference 012d 01d7 | | Execute Vector,Field_Read 012e 0031 | 1 | Store_Top Heap_Access,At_Offset_1 012f BODY_0120: 012f 00db | | Load_Top At_Offset_3 ; Debug Table 0x7.0x1 = 0x12f,0x1 0130 01db | | Execute Vector,Length 0131 7002 |p | Jump_Nonzero 0x134 0132 e20d | | Load 0x1,0xd ; Debug Table 0x7.0x2 = 0x132,0x2 0133 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0134 00cf | | Action Mark_Auxiliary 0135 7812 |x | Jump 0x148 0136 e5fd | | Load 0x2,-0x3 ; Debug Table 0x7.0x3 = 0x136,0x4 0137 e5ff | | Load 0x2,-0x1 0138 00db | | Load_Top At_Offset_3 0139 0217 | | Execute Heap_Access,All_Reference 013a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 013b 0217 | | Execute Heap_Access,All_Reference 013c e001 | | Load 0x0,0x1 013d 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 013e 6804 |h | Jump_Zero 0x143 013f 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x7.0x4 = 0x13f,0x5 0140 0217 | | Execute Heap_Access,All_Reference 0141 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0142 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0143 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x7.0x5 = 0x143,0x6 0144 0217 | | Execute Heap_Access,All_Reference 0145 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0146 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0147 00c9 | | Action Pop_Auxiliary_Loop 0148 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x7.0x6 = 0x148,0x3 0149 77ec |w | Jump_Nonzero 0x136 014a 00ce | | Action Pop_Auxiliary 014b e20d | | Load 0x1,0xd ; Debug Table 0x7.0x7 = 0x14b,0x7 014c 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 014d 0000 0000 | | .XXX[0x3] 014f 0000 | | 0150 ; -------------------------------------------------------------------------------------- 0150 ; SUBPROGRAM 0150 ; -------------------------------------------------------------------------------------- 0150 0166 | f | .CONST 0x0166 ; Address of begin 0151 0004 | | .CONST 0x0004 ; Address of exception handler 0152 0004 | | .CONST 0x0004 ; Number of locals 0153 INIT_0150: 0153 00db | | Load_Top At_Offset_3 ; Debug Table 0x8 = .DEBUG 0x0153,0x03fe,0x0001,0x0000,0x004c,0x30e6,0x0000,0x005e ; Debug Table 0x8.0x0 = 0x153,0xffff 0154 0217 | | Execute Heap_Access,All_Reference 0155 01db | | Execute Vector,Length 0156 00e4 | | Load_Encached Positive_Cache 0157 025b | [ | Execute Discrete,Check_In_Type 0158 00db | | Load_Top At_Offset_3 0159 8224 | $ | Call 0x1,0x24 015a e5fe | | Load 0x2,-0x2 015b 0217 | | Execute Heap_Access,All_Reference 015c 01d5 | | Execute Vector,Field_Reference 015d 0007 | | Action Break_Optional 015e e222 | " | Load 0x1,0x22 ; Debug Table 0x8.0x1 = 0x15e,0xfffe 015f 00d9 | | Load_Top At_Offset_1 0160 0217 | | Execute Heap_Access,All_Reference 0161 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0162 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0163 e222 | " | Load 0x1,0x22 ; Debug Table 0x8.0x2 = 0x163,0xfffd 0164 00da | | Load_Top At_Offset_2 0165 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0166 BODY_0150: 0166 e5ff | | Load 0x2,-0x1 ; Debug Table 0x8.0x3 = 0x166,0x1 0167 01db | | Execute Vector,Length 0168 6802 |h | Jump_Zero 0x16b 0169 00da | | Load_Top At_Offset_2 016a 7001 |p | Jump_Nonzero 0x16c 016b 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; Debug Table 0x8.0x4 = 0x16b,0x2 016c e5fd | | Load 0x2,-0x3 ; Debug Table 0x8.0x5 = 0x16c,0x3 016d e5ff | | Load 0x2,-0x1 016e e402 | | Load 0x2,0x2 016f 0217 | | Execute Heap_Access,All_Reference 0170 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0171 0217 | | Execute Heap_Access,All_Reference 0172 e001 | | Load 0x0,0x1 0173 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0174 6805 |h | Jump_Zero 0x17a 0175 00da | | Load_Top At_Offset_2 ; Debug Table 0x8.0x6 = 0x175,0x4 0176 0217 | | Execute Heap_Access,All_Reference 0177 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0178 a402 | | Store_Unchecked 0x2,0x2 0179 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; Debug Table 0x8.0x7 = 0x179,0x5 017a 00cf | | Action Mark_Auxiliary 017b 7817 |x | Jump 0x193 017c e5fd | | Load 0x2,-0x3 ; Debug Table 0x8.0x8 = 0x17c,0x7 017d e5ff | | Load 0x2,-0x1 017e e403 | | Load 0x2,0x3 017f 0217 | | Execute Heap_Access,All_Reference 0180 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0181 0217 | | Execute Heap_Access,All_Reference 0182 e001 | | Load 0x0,0x1 0183 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0184 6807 |h | Jump_Zero 0x18c 0185 00da | | Load_Top At_Offset_2 ; Debug Table 0x8.0x9 = 0x185,0x8 0186 0217 | | Execute Heap_Access,All_Reference 0187 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0188 00da | | Load_Top At_Offset_2 0189 0217 | | Execute Heap_Access,All_Reference 018a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 018b 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; Debug Table 0x8.0xa = 0x18b,0x9 018c 00da | | Load_Top At_Offset_2 ; Debug Table 0x8.0xb = 0x18c,0xa 018d 0032 | 2 | Store_Top Heap_Access,At_Offset_2 018e 00da | | Load_Top At_Offset_2 ; Debug Table 0x8.0xc = 0x18e,0xb 018f 0217 | | Execute Heap_Access,All_Reference 0190 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0191 0033 | 3 | Store_Top Heap_Access,At_Offset_3 0192 00c9 | | Action Pop_Auxiliary_Loop 0193 00da | | Load_Top At_Offset_2 ; Debug Table 0x8.0xd = 0x193,0x6 0194 77e7 |w | Jump_Nonzero 0x17c 0195 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0196 0000 0000 | | .XXX[0x2] 0198 ; -------------------------------------------------------------------------------------- 0198 ; SUBPROGRAM 0198 ; -------------------------------------------------------------------------------------- 0198 019b | | .CONST 0x019b ; Address of begin 0199 0004 | | .CONST 0x0004 ; Address of exception handler 019a 0001 | | .CONST 0x0001 ; Number of locals 019b BODY_0198: 019b INIT_0198: 019b 00da | | Load_Top At_Offset_2 ; Debug Table 0x9 = .DEBUG 0x019b,0x041c,0x0002,0x0000,0x004c,0x30e6,0x0000,0x006f ; Debug Table 0x9.0x0 = 0x19b,0x1 019c e5fe | | Load 0x2,-0x2 019d 021f | | Execute Heap_Access,Equal 019e 700f |p | Jump_Nonzero 0x1ae 019f 00da | | Load_Top At_Offset_2 01a0 6803 |h | Jump_Zero 0x1a4 01a1 00db | | Load_Top At_Offset_3 01a2 021c | | Execute Heap_Access,Not_Null 01a3 7801 |x | Jump 0x1a5 01a4 4800 |H | Short_Literal 0x0 01a5 6806 |h | Jump_Zero 0x1ac 01a6 00da | | Load_Top At_Offset_2 01a7 0217 | | Execute Heap_Access,All_Reference 01a8 e5fe | | Load 0x2,-0x2 01a9 0217 | | Execute Heap_Access,All_Reference 01aa 01df | | Execute Vector,Equal 01ab 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01ac 4800 |H | Short_Literal 0x0 01ad 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01ae 4801 |H | Short_Literal 0x1 01af 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01b0 ; -------------------------------------------------------------------------------------- 01b0 ; SUBPROGRAM 01b0 ; -------------------------------------------------------------------------------------- 01b0 01b3 | | .CONST 0x01b3 ; Address of begin 01b1 0004 | | .CONST 0x0004 ; Address of exception handler 01b2 0001 | | .CONST 0x0001 ; Number of locals 01b3 BODY_01b0: 01b3 INIT_01b0: 01b3 00db | | Load_Top At_Offset_3 ; Debug Table 0xa = .DEBUG 0x01b3,0x0420,0x0002,0x0000,0x004c,0x30e6,0x0000,0x0079 ; Debug Table 0xa.0x0 = 0x1b3,0x1 01b4 0aff | | Execute_Immediate Plus,-0x1 01b5 00db | | Load_Top At_Offset_3 01b6 0217 | | Execute Heap_Access,All_Reference 01b7 01dd | | Execute Vector,First 01b8 0273 | s | Execute Discrete,Plus 01b9 0248 | H | Execute Discrete,Check_In_Integer 01ba 00db | | Load_Top At_Offset_3 01bb 0217 | | Execute Heap_Access,All_Reference 01bc 01d7 | | Execute Vector,Field_Read 01bd 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01be 0000 0000 | | .XXX[0x2] 01c0 ; -------------------------------------------------------------------------------------- 01c0 ; SUBPROGRAM 01c0 ; -------------------------------------------------------------------------------------- 01c0 01c3 | | .CONST 0x01c3 ; Address of begin 01c1 0004 | | .CONST 0x0004 ; Address of exception handler 01c2 0001 | | .CONST 0x0001 ; Number of locals 01c3 BODY_01c0: 01c3 INIT_01c0: 01c3 00da | | Load_Top At_Offset_2 ; Debug Table 0xb = .DEBUG 0x01c3,0x0424,0x0002,0x0000,0x004c,0x30e6,0x0000,0x0086 ; Debug Table 0xb.0x0 = 0x1c3,0x1 01c4 7002 |p | Jump_Nonzero 0x1c7 01c5 00ea | | Load_Encached Null_String_Cache ; Debug Table 0xb.0x1 = 0x1c5,0x2 01c6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01c7 00da | | Load_Top At_Offset_2 ; Debug Table 0xb.0x2 = 0x1c7,0x3 01c8 0217 | | Execute Heap_Access,All_Reference 01c9 0335 | 5 | Declare_Variable Array,Duplicate 01ca 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01cb 0000 0000 | | .BLANK 0000[0x5] 01d0 ; -------------------------------------------------------------------------------------- 01d0 ; SUBPROGRAM 01d0 ; -------------------------------------------------------------------------------------- 01d0 01d3 | | .CONST 0x01d3 ; Address of begin 01d1 0004 | | .CONST 0x0004 ; Address of exception handler 01d2 0001 | | .CONST 0x0001 ; Number of locals 01d3 BODY_01d0: 01d3 INIT_01d0: 01d3 00da | | Load_Top At_Offset_2 ; Debug Table 0xc = .DEBUG 0x01d3,0x042c,0x0002,0x0000,0x004c,0x30e6,0x0000,0x008f ; Debug Table 0xc.0x0 = 0x1d3,0x1 01d4 7002 |p | Jump_Nonzero 0x1d7 01d5 4800 |H | Short_Literal 0x0 ; Debug Table 0xc.0x1 = 0x1d5,0x2 01d6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01d7 00da | | Load_Top At_Offset_2 ; Debug Table 0xc.0x2 = 0x1d7,0x3 01d8 0217 | | Execute Heap_Access,All_Reference 01d9 01db | | Execute Vector,Length 01da 00e3 | | Load_Encached Natural_Cache 01db 025b | [ | Execute Discrete,Check_In_Type 01dc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01dd 0000 0000 | | .XXX[0x3] 01df 0000 | | 01e0 ; -------------------------------------------------------------------------------------- 01e0 ; SUBPROGRAM 01e0 ; -------------------------------------------------------------------------------------- 01e0 01e3 | | .CONST 0x01e3 ; Address of begin 01e1 0004 | | .CONST 0x0004 ; Address of exception handler 01e2 0001 | | .CONST 0x0001 ; Number of locals 01e3 BODY_01e0: 01e3 INIT_01e0: 01e3 00da | | Load_Top At_Offset_2 ; Debug Table 0xd = .DEBUG 0x01e3,0x0434,0x0002,0x0000,0x004c,0x30e6,0x0000,0x0098 ; Debug Table 0xd.0x0 = 0x1e3,0x1 01e4 021d | | Execute Heap_Access,Is_Null 01e5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01e6 0000 0000 | | .XXX[0x2] 01e8 ; -------------------------------------------------------------------------------------- 01e8 ; SUBPROGRAM 01e8 ; -------------------------------------------------------------------------------------- 01e8 01ed | | .CONST 0x01ed ; Address of begin 01e9 0004 | | .CONST 0x0004 ; Address of exception handler 01ea 0002 | | .CONST 0x0002 ; Number of locals 01eb INIT_01e8: 01eb e21b | | Load 0x1,0x1b ; Debug Table 0xe = .DEBUG 0x01eb,0x0438,0x0001,0x0000,0x004c,0x30e6,0x0000,0x00a5 ; Debug Table 0xe.0x0 = 0x1eb,0xffff 01ec 0322 | " | Declare_Variable Record 01ed BODY_01e8: 01ed 00db | | Load_Top At_Offset_3 ; Debug Table 0xe.0x1 = 0x1ed,0x1 01ee 00d9 | | Load_Top At_Offset_1 01ef 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 01f0 4800 |H | Short_Literal 0x0 ; Debug Table 0xe.0x2 = 0x1f0,0x2 01f1 00d9 | | Load_Top At_Offset_1 01f2 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 01f3 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xe.0x3 = 0x1f3,0x3 01f4 8226 | & | Call 0x1,0x26 01f5 00d1 | | Pop_Control Pop_Count_1 01f6 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xe.0x4 = 0x1f6,0x4 01f7 e5fe | | Load 0x2,-0x2 01f8 017d | } | Execute Record,Structure_Write 01f9 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01fa 0000 0000 | | .BLANK 0000[0x6] 0200 ; -------------------------------------------------------------------------------------- 0200 ; SUBPROGRAM 0200 ; -------------------------------------------------------------------------------------- 0200 0203 | | .CONST 0x0203 ; Address of begin 0201 0004 | | .CONST 0x0004 ; Address of exception handler 0202 0001 | | .CONST 0x0001 ; Number of locals 0203 BODY_0200: 0203 INIT_0200: 0203 00da | | Load_Top At_Offset_2 ; Debug Table 0xf = .DEBUG 0x0203,0x0444,0x0001,0x0000,0x004c,0x30e6,0x0000,0x00b1 ; Debug Table 0xf.0x0 = 0x203,0x1 0204 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0205 0217 | | Execute Heap_Access,All_Reference 0206 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0207 00db | | Load_Top At_Offset_3 0208 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0209 00da | | Load_Top At_Offset_2 ; Debug Table 0xf.0x1 = 0x209,0x2 020a 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 020b 7010 |p | Jump_Nonzero 0x21c 020c 00da | | Load_Top At_Offset_2 020d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 020e 00db | | Load_Top At_Offset_3 020f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0210 0217 | | Execute Heap_Access,All_Reference 0211 01dc | | Execute Vector,Last 0212 027e | ~ | Execute Discrete,Not_Equal 0213 6808 |h | Jump_Zero 0x21c 0214 00da | | Load_Top At_Offset_2 ; Debug Table 0xf.0x2 = 0x214,0x3 0215 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0216 0a01 | | Execute_Immediate Plus,0x1 0217 00db | | Load_Top At_Offset_3 0218 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0219 00da | | Load_Top At_Offset_2 ; Debug Table 0xf.0x3 = 0x219,0x4 021a 8226 | & | Call 0x1,0x26 021b 00d1 | | Pop_Control Pop_Count_1 021c 4501 |E | Exit_Suprogram New_Top_Offset 0x1 021d 0000 0000 | | .XXX[0x3] 021f 0000 | | 0220 ; -------------------------------------------------------------------------------------- 0220 ; SUBPROGRAM 0220 ; -------------------------------------------------------------------------------------- 0220 0223 | # | .CONST 0x0223 ; Address of begin 0221 0004 | | .CONST 0x0004 ; Address of exception handler 0222 0001 | | .CONST 0x0001 ; Number of locals 0223 BODY_0220: 0223 INIT_0220: 0223 00da | | Load_Top At_Offset_2 ; Debug Table 0x10 = .DEBUG 0x0223,0x044e,0x0002,0x0000,0x004c,0x30e6,0x0000,0x00b9 ; Debug Table 0x10.0x0 = 0x223,0x1 0224 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0225 0217 | | Execute Heap_Access,All_Reference 0226 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0227 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0228 ; -------------------------------------------------------------------------------------- 0228 ; SUBPROGRAM 0228 ; -------------------------------------------------------------------------------------- 0228 022b | + | .CONST 0x022b ; Address of begin 0229 0004 | | .CONST 0x0004 ; Address of exception handler 022a 0001 | | .CONST 0x0001 ; Number of locals 022b BODY_0228: 022b INIT_0228: 022b 00da | | Load_Top At_Offset_2 ; Debug Table 0x11 = .DEBUG 0x022b,0x0452,0x0002,0x0000,0x004c,0x30e6,0x0000,0x00c2 ; Debug Table 0x11.0x0 = 0x22b,0x1 022c 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 022d 021d | | Execute Heap_Access,Is_Null 022e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 022f 0000 | | .XXX[0x1] 0230 ; -------------------------------------------------------------------------------------- 0230 ; SUBPROGRAM 0230 ; -------------------------------------------------------------------------------------- 0230 0233 | 3 | .CONST 0x0233 ; Address of begin 0231 0004 | | .CONST 0x0004 ; Address of exception handler 0232 0001 | | .CONST 0x0001 ; Number of locals 0233 BODY_0230: 0233 INIT_0230: 0233 00da | | Load_Top At_Offset_2 ; Debug Table 0x12 = .DEBUG 0x0233,0x0456,0x0002,0x0000,0x004c,0x3656,0x0000,0x002e ; Debug Table 0x12.0x0 = 0x233,0x1 0234 e001 | | Load 0x0,0x1 0235 180d | | Execute Package,Field_Execute,Field_Number 0xd 0236 e5fe | | Load 0x2,-0x2 0237 026e | n | Execute Discrete,Modulo 0238 0274 | t | Execute Discrete,Absolute_Value 0239 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 023a 0000 0000 | | .BLANK 0000[0x6] 0240 ; -------------------------------------------------------------------------------------- 0240 ; SUBPROGRAM 0240 ; -------------------------------------------------------------------------------------- 0240 0252 | R | .CONST 0x0252 ; Address of begin 0241 0004 | | .CONST 0x0004 ; Address of exception handler 0242 0003 | | .CONST 0x0003 ; Number of locals 0243 INIT_0240: 0243 00db | | Load_Top At_Offset_3 ; Debug Table 0x13 = .DEBUG 0x0243,0x045a,0x0001,0x0000,0x004c,0x3656,0x0000,0x0075 ; Debug Table 0x13.0x0 = 0x243,0xffff 0244 0217 | | Execute Heap_Access,All_Reference 0245 01db | | Execute Vector,Length 0246 00e4 | | Load_Encached Positive_Cache 0247 025b | [ | Execute Discrete,Check_In_Type 0248 00db | | Load_Top At_Offset_3 0249 0217 | | Execute Heap_Access,All_Reference 024a 8224 | $ | Call 0x1,0x24 024b e5fe | | Load 0x2,-0x2 024c 0217 | | Execute Heap_Access,All_Reference 024d 01d5 | | Execute Vector,Field_Reference 024e 0007 | | Action Break_Optional 024f e222 | " | Load 0x1,0x22 ; Debug Table 0x13.0x1 = 0x24f,0xfffe 0250 00d9 | | Load_Top At_Offset_1 0251 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0252 BODY_0240: 0252 00cf | | Action Mark_Auxiliary 0253 780e |x | Jump 0x262 0254 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x13.0x2 = 0x254,0x2 0255 0217 | | Execute Heap_Access,All_Reference 0256 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0257 0217 | | Execute Heap_Access,All_Reference 0258 e5ff | | Load 0x2,-0x1 0259 0217 | | Execute Heap_Access,All_Reference 025a 01df | | Execute Vector,Equal 025b 6801 |h | Jump_Zero 0x25d 025c 4503 |E | Exit_Suprogram New_Top_Offset 0x3 ; Debug Table 0x13.0x3 = 0x25c,0x3 025d 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x13.0x4 = 0x25d,0x4 025e 0217 | | Execute Heap_Access,All_Reference 025f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0260 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0261 00c9 | | Action Pop_Auxiliary_Loop 0262 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x13.0x5 = 0x262,0x1 0263 77f0 |w | Jump_Nonzero 0x254 0264 00ce | | Action Pop_Auxiliary 0265 e222 | " | Load 0x1,0x22 ; Debug Table 0x13.0x6 = 0x265,0x5 0266 e5fe | | Load 0x2,-0x2 0267 039c | | Declare_Variable Heap_Access,By_Allocation 0268 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0269 0007 | | Action Break_Optional ; Debug Table 0x13.0x7 = 0x269,0x6 026a e5ff | | Load 0x2,-0x1 ; Debug Table 0x13.0x8 = 0x26a,0x7 026b 00d9 | | Load_Top At_Offset_1 026c 0217 | | Execute Heap_Access,All_Reference 026d 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 026e 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x13.0x9 = 0x26e,0x8 026f 00d9 | | Load_Top At_Offset_1 0270 0217 | | Execute Heap_Access,All_Reference 0271 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0272 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x13.0xa = 0x272,0x9 0273 a402 | | Store_Unchecked 0x2,0x2 0274 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0275 0000 0000 | | .XXX[0x3] 0277 0000 | | 0278 ; -------------------------------------------------------------------------------------- 0278 ; SUBPROGRAM 0278 ; -------------------------------------------------------------------------------------- 0278 027b | { | .CONST 0x027b ; Address of begin 0279 0004 | | .CONST 0x0004 ; Address of exception handler 027a 0001 | | .CONST 0x0001 ; Number of locals 027b BODY_0278: 027b INIT_0278: 027b 00cf | | Action Mark_Auxiliary ; Debug Table 0x14 = .DEBUG 0x027b,0x0472,0x0001,0x0000,0x004c,0x3656,0x0000,0x030a 027c 0007 | | Action Break_Optional ; Debug Table 0x14.0x0 = 0x27c,0x1 027d 00db | | Load_Top At_Offset_3 ; Debug Table 0x14.0x1 = 0x27d,0x2 027e 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 027f e5ff | | Load 0x2,-0x1 0280 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0281 0217 | | Execute Heap_Access,All_Reference 0282 01d7 | | Execute Vector,Field_Read 0283 e5ff | | Load 0x2,-0x1 0284 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0285 00db | | Load_Top At_Offset_3 ; Debug Table 0x14.0x2 = 0x285,0x3 0286 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0287 700f |p | Jump_Nonzero 0x297 0288 00db | | Load_Top At_Offset_3 0289 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 028a e5ff | | Load 0x2,-0x1 028b 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 028c 0217 | | Execute Heap_Access,All_Reference 028d 01dc | | Execute Vector,Last 028e 027f | | Execute Discrete,Equal 028f 7007 |p | Jump_Nonzero 0x297 0290 00db | | Load_Top At_Offset_3 ; Debug Table 0x14.0x3 = 0x290,0x4 0291 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0292 0a01 | | Execute_Immediate Plus,0x1 0293 e5ff | | Load 0x2,-0x1 0294 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0295 00c9 | | Action Pop_Auxiliary_Loop 0296 7fe6 | | Jump 0x27d 0297 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0298 ; -------------------------------------------------------------------------------------- 0298 ; Debug Table 0298 ; -------------------------------------------------------------------------------------- 0298 0003 0015 | | .CONST 0x0003,0x0015 029a 000b 0342 | B| .DEBUG 0x000b,0x0342,0x8000,0x0000,0x004c,0x30e6,0x0000,0x0005 02a2 0047 037c | G || .DEBUG 0x0047,0x037c,0x8000,0x0000,0x004c,0x3656,0x0000,0x0007 02aa 0083 03aa | | .DEBUG 0x0083,0x03aa,0x0002,0x0000,0x004c,0x30e6,0x0000,0x0014 02b2 0093 03ae | | .DEBUG 0x0093,0x03ae,0x0001,0x0000,0x004c,0x30e6,0x0000,0x0024 02ba 00ab 03b4 | | .DEBUG 0x00ab,0x03b4,0x0002,0x0000,0x004c,0x30e6,0x0000,0x002c 02c2 00d3 03c8 | | .DEBUG 0x00d3,0x03c8,0x0002,0x0000,0x004c,0x30e6,0x0000,0x0035 02ca 00db 03cc | | .DEBUG 0x00db,0x03cc,0x0002,0x0000,0x004c,0x30e6,0x0000,0x003a 02d2 0123 03ec | # | .DEBUG 0x0123,0x03ec,0x0002,0x0000,0x004c,0x30e6,0x0000,0x004c 02da 0153 03fe | S | .DEBUG 0x0153,0x03fe,0x0001,0x0000,0x004c,0x30e6,0x0000,0x005e 02e2 019b 041c | | .DEBUG 0x019b,0x041c,0x0002,0x0000,0x004c,0x30e6,0x0000,0x006f 02ea 01b3 0420 | | .DEBUG 0x01b3,0x0420,0x0002,0x0000,0x004c,0x30e6,0x0000,0x0079 02f2 01c3 0424 | $| .DEBUG 0x01c3,0x0424,0x0002,0x0000,0x004c,0x30e6,0x0000,0x0086 02fa 01d3 042c | ,| .DEBUG 0x01d3,0x042c,0x0002,0x0000,0x004c,0x30e6,0x0000,0x008f 0302 01e3 0434 | 4| .DEBUG 0x01e3,0x0434,0x0002,0x0000,0x004c,0x30e6,0x0000,0x0098 030a 01eb 0438 | 8| .DEBUG 0x01eb,0x0438,0x0001,0x0000,0x004c,0x30e6,0x0000,0x00a5 0312 0203 0444 | D| .DEBUG 0x0203,0x0444,0x0001,0x0000,0x004c,0x30e6,0x0000,0x00b1 031a 0223 044e | # N| .DEBUG 0x0223,0x044e,0x0002,0x0000,0x004c,0x30e6,0x0000,0x00b9 0322 022b 0452 | + R| .DEBUG 0x022b,0x0452,0x0002,0x0000,0x004c,0x30e6,0x0000,0x00c2 032a 0233 0456 | 3 V| .DEBUG 0x0233,0x0456,0x0002,0x0000,0x004c,0x3656,0x0000,0x002e 0332 0243 045a | C Z| .DEBUG 0x0243,0x045a,0x0001,0x0000,0x004c,0x3656,0x0000,0x0075 033a 027b 0472 | { r| .DEBUG 0x027b,0x0472,0x0001,0x0000,0x004c,0x3656,0x0000,0x030a 0342 ; -------------------------------------------------------------------------------------- 0342 ; Debug3 Subtable 0x0 0342 ; -------------------------------------------------------------------------------------- 0342 001c 0000 | | .DBG3TAB 0x001c,0x0000 0344 000b ffff | | .CONST 0x000b,0xffff 0346 000e fffe | | .CONST 0x000e,0xfffe 0348 000f fffd | | .CONST 0x000f,0xfffd 034a 0010 fffc | | .CONST 0x0010,0xfffc 034c 0012 fffb | | .CONST 0x0012,0xfffb 034e 0014 fffa | | .CONST 0x0014,0xfffa 0350 0016 fff9 | | .CONST 0x0016,0xfff9 0352 0018 fff8 | | .CONST 0x0018,0xfff8 0354 001a fff7 | | .CONST 0x001a,0xfff7 0356 001c fff6 | | .CONST 0x001c,0xfff6 0358 001e fff5 | | .CONST 0x001e,0xfff5 035a 0020 fff4 | | .CONST 0x0020,0xfff4 035c 0022 fff3 | " | .CONST 0x0022,0xfff3 035e 0024 fff2 | $ | .CONST 0x0024,0xfff2 0360 0026 fff1 | & | .CONST 0x0026,0xfff1 0362 0028 fff0 | ( | .CONST 0x0028,0xfff0 0364 002a ffef | * | .CONST 0x002a,0xffef 0366 002c ffee | , | .CONST 0x002c,0xffee 0368 002e ffed | . | .CONST 0x002e,0xffed 036a 0030 ffec | 0 | .CONST 0x0030,0xffec 036c 0032 ffeb | 2 | .CONST 0x0032,0xffeb 036e 0034 ffea | 4 | .CONST 0x0034,0xffea 0370 0038 ffe9 | 8 | .CONST 0x0038,0xffe9 0372 0039 ffe8 | 9 | .CONST 0x0039,0xffe8 0374 003b ffe7 | ; | .CONST 0x003b,0xffe7 0376 003e ffe6 | > | .CONST 0x003e,0xffe6 0378 003f ffe5 | ? | .CONST 0x003f,0xffe5 037a 0040 ffe4 | @ | .CONST 0x0040,0xffe4 037c ; -------------------------------------------------------------------------------------- 037c ; Debug3 Subtable 0x1 037c ; -------------------------------------------------------------------------------------- 037c 0016 0000 | | .DBG3TAB 0x0016,0x0000 037e 0047 ffff | G | .CONST 0x0047,0xffff 0380 0048 fffe | H | .CONST 0x0048,0xfffe 0382 004d fffd | M | .CONST 0x004d,0xfffd 0384 0053 fffc | S | .CONST 0x0053,0xfffc 0386 0055 fffb | U | .CONST 0x0055,0xfffb 0388 0057 fffa | W | .CONST 0x0057,0xfffa 038a 0059 fff9 | Y | .CONST 0x0059,0xfff9 038c 005b fff8 | [ | .CONST 0x005b,0xfff8 038e 005d fff7 | ] | .CONST 0x005d,0xfff7 0390 005f fff6 | _ | .CONST 0x005f,0xfff6 0392 0061 fff5 | a | .CONST 0x0061,0xfff5 0394 0063 fff4 | c | .CONST 0x0063,0xfff4 0396 0065 fff3 | e | .CONST 0x0065,0xfff3 0398 0067 fff2 | g | .CONST 0x0067,0xfff2 039a 0069 fff1 | i | .CONST 0x0069,0xfff1 039c 006b fff0 | k | .CONST 0x006b,0xfff0 039e 006d ffef | m | .CONST 0x006d,0xffef 03a0 006f ffee | o | .CONST 0x006f,0xffee 03a2 0071 ffed | q | .CONST 0x0071,0xffed 03a4 0073 ffec | s | .CONST 0x0073,0xffec 03a6 0075 ffeb | u | .CONST 0x0075,0xffeb 03a8 0077 ffea | w | .CONST 0x0077,0xffea 03aa ; -------------------------------------------------------------------------------------- 03aa ; Debug3 Subtable 0x2 03aa ; -------------------------------------------------------------------------------------- 03aa 0000 0001 | | .DBG3TAB 0x0000,0x0001 03ac 0083 0001 | | .CONST 0x0083,0x0001 03ae ; -------------------------------------------------------------------------------------- 03ae ; Debug3 Subtable 0x3 03ae ; -------------------------------------------------------------------------------------- 03ae 0000 0002 | | .DBG3TAB 0x0000,0x0002 03b0 0094 0001 | | .CONST 0x0094,0x0001 03b2 0099 0002 | | .CONST 0x0099,0x0002 03b4 ; -------------------------------------------------------------------------------------- 03b4 ; Debug3 Subtable 0x4 03b4 ; -------------------------------------------------------------------------------------- 03b4 0002 0007 | | .DBG3TAB 0x0002,0x0007 03b6 00ab ffff | | .CONST 0x00ab,0xffff 03b8 00ad fffe | | .CONST 0x00ad,0xfffe 03ba 00af 0001 | | .CONST 0x00af,0x0001 03bc 00b6 0002 | | .CONST 0x00b6,0x0002 03be 00b7 0003 | | .CONST 0x00b7,0x0003 03c0 00bd 0005 | | .CONST 0x00bd,0x0005 03c2 00c1 0006 | | .CONST 0x00c1,0x0006 03c4 00c5 0004 | | .CONST 0x00c5,0x0004 03c6 00c9 0007 | | .CONST 0x00c9,0x0007 03c8 ; -------------------------------------------------------------------------------------- 03c8 ; Debug3 Subtable 0x5 03c8 ; -------------------------------------------------------------------------------------- 03c8 0000 0001 | | .DBG3TAB 0x0000,0x0001 03ca 00d3 0001 | | .CONST 0x00d3,0x0001 03cc ; -------------------------------------------------------------------------------------- 03cc ; Debug3 Subtable 0x6 03cc ; -------------------------------------------------------------------------------------- 03cc 0002 000d | | .DBG3TAB 0x0002,0x000d 03ce 00db ffff | | .CONST 0x00db,0xffff 03d0 00e6 fffe | | .CONST 0x00e6,0xfffe 03d2 00e9 0001 | | .CONST 0x00e9,0x0001 03d4 00ec 0002 | | .CONST 0x00ec,0x0002 03d6 00f0 0004 | | .CONST 0x00f0,0x0004 03d8 00f9 0005 | | .CONST 0x00f9,0x0005 03da 00fd 0006 | | .CONST 0x00fd,0x0006 03dc 0102 0003 | | .CONST 0x0102,0x0003 03de 0105 0007 | | .CONST 0x0105,0x0007 03e0 0109 0008 | | .CONST 0x0109,0x0008 03e2 010a 0009 | | .CONST 0x010a,0x0009 03e4 0111 000a | | .CONST 0x0111,0x000a 03e6 0112 000b | | .CONST 0x0112,0x000b 03e8 0116 000c | | .CONST 0x0116,0x000c 03ea 0118 000d | | .CONST 0x0118,0x000d 03ec ; -------------------------------------------------------------------------------------- 03ec ; Debug3 Subtable 0x7 03ec ; -------------------------------------------------------------------------------------- 03ec 0001 0007 | | .DBG3TAB 0x0001,0x0007 03ee 0123 ffff | # | .CONST 0x0123,0xffff 03f0 012f 0001 | / | .CONST 0x012f,0x0001 03f2 0132 0002 | 2 | .CONST 0x0132,0x0002 03f4 0136 0004 | 6 | .CONST 0x0136,0x0004 03f6 013f 0005 | ? | .CONST 0x013f,0x0005 03f8 0143 0006 | C | .CONST 0x0143,0x0006 03fa 0148 0003 | H | .CONST 0x0148,0x0003 03fc 014b 0007 | K | .CONST 0x014b,0x0007 03fe ; -------------------------------------------------------------------------------------- 03fe ; Debug3 Subtable 0x8 03fe ; -------------------------------------------------------------------------------------- 03fe 0003 000b | | .DBG3TAB 0x0003,0x000b 0400 0153 ffff | S | .CONST 0x0153,0xffff 0402 015e fffe | ^ | .CONST 0x015e,0xfffe 0404 0163 fffd | c | .CONST 0x0163,0xfffd 0406 0166 0001 | f | .CONST 0x0166,0x0001 0408 016b 0002 | k | .CONST 0x016b,0x0002 040a 016c 0003 | l | .CONST 0x016c,0x0003 040c 0175 0004 | u | .CONST 0x0175,0x0004 040e 0179 0005 | y | .CONST 0x0179,0x0005 0410 017c 0007 | | | .CONST 0x017c,0x0007 0412 0185 0008 | | .CONST 0x0185,0x0008 0414 018b 0009 | | .CONST 0x018b,0x0009 0416 018c 000a | | .CONST 0x018c,0x000a 0418 018e 000b | | .CONST 0x018e,0x000b 041a 0193 0006 | | .CONST 0x0193,0x0006 041c ; -------------------------------------------------------------------------------------- 041c ; Debug3 Subtable 0x9 041c ; -------------------------------------------------------------------------------------- 041c 0000 0001 | | .DBG3TAB 0x0000,0x0001 041e 019b 0001 | | .CONST 0x019b,0x0001 0420 ; -------------------------------------------------------------------------------------- 0420 ; Debug3 Subtable 0xa 0420 ; -------------------------------------------------------------------------------------- 0420 0000 0001 | | .DBG3TAB 0x0000,0x0001 0422 01b3 0001 | | .CONST 0x01b3,0x0001 0424 ; -------------------------------------------------------------------------------------- 0424 ; Debug3 Subtable 0xb 0424 ; -------------------------------------------------------------------------------------- 0424 0000 0003 | | .DBG3TAB 0x0000,0x0003 0426 01c3 0001 | | .CONST 0x01c3,0x0001 0428 01c5 0002 | | .CONST 0x01c5,0x0002 042a 01c7 0003 | | .CONST 0x01c7,0x0003 042c ; -------------------------------------------------------------------------------------- 042c ; Debug3 Subtable 0xc 042c ; -------------------------------------------------------------------------------------- 042c 0000 0003 | | .DBG3TAB 0x0000,0x0003 042e 01d3 0001 | | .CONST 0x01d3,0x0001 0430 01d5 0002 | | .CONST 0x01d5,0x0002 0432 01d7 0003 | | .CONST 0x01d7,0x0003 0434 ; -------------------------------------------------------------------------------------- 0434 ; Debug3 Subtable 0xd 0434 ; -------------------------------------------------------------------------------------- 0434 0000 0001 | | .DBG3TAB 0x0000,0x0001 0436 01e3 0001 | | .CONST 0x01e3,0x0001 0438 ; -------------------------------------------------------------------------------------- 0438 ; Debug3 Subtable 0xe 0438 ; -------------------------------------------------------------------------------------- 0438 0001 0004 | | .DBG3TAB 0x0001,0x0004 043a 01eb ffff | | .CONST 0x01eb,0xffff 043c 01ed 0001 | | .CONST 0x01ed,0x0001 043e 01f0 0002 | | .CONST 0x01f0,0x0002 0440 01f3 0003 | | .CONST 0x01f3,0x0003 0442 01f6 0004 | | .CONST 0x01f6,0x0004 0444 ; -------------------------------------------------------------------------------------- 0444 ; Debug3 Subtable 0xf 0444 ; -------------------------------------------------------------------------------------- 0444 0000 0004 | | .DBG3TAB 0x0000,0x0004 0446 0203 0001 | | .CONST 0x0203,0x0001 0448 0209 0002 | | .CONST 0x0209,0x0002 044a 0214 0003 | | .CONST 0x0214,0x0003 044c 0219 0004 | | .CONST 0x0219,0x0004 044e ; -------------------------------------------------------------------------------------- 044e ; Debug3 Subtable 0x10 044e ; -------------------------------------------------------------------------------------- 044e 0000 0001 | | .DBG3TAB 0x0000,0x0001 0450 0223 0001 | # | .CONST 0x0223,0x0001 0452 ; -------------------------------------------------------------------------------------- 0452 ; Debug3 Subtable 0x11 0452 ; -------------------------------------------------------------------------------------- 0452 0000 0001 | | .DBG3TAB 0x0000,0x0001 0454 022b 0001 | + | .CONST 0x022b,0x0001 0456 ; -------------------------------------------------------------------------------------- 0456 ; Debug3 Subtable 0x12 0456 ; -------------------------------------------------------------------------------------- 0456 0000 0001 | | .DBG3TAB 0x0000,0x0001 0458 0233 0001 | 3 | .CONST 0x0233,0x0001 045a ; -------------------------------------------------------------------------------------- 045a ; Debug3 Subtable 0x13 045a ; -------------------------------------------------------------------------------------- 045a 0002 0009 | | .DBG3TAB 0x0002,0x0009 045c 0243 ffff | C | .CONST 0x0243,0xffff 045e 024f fffe | O | .CONST 0x024f,0xfffe 0460 0254 0002 | T | .CONST 0x0254,0x0002 0462 025c 0003 | \ | .CONST 0x025c,0x0003 0464 025d 0004 | ] | .CONST 0x025d,0x0004 0466 0262 0001 | b | .CONST 0x0262,0x0001 0468 0265 0005 | e | .CONST 0x0265,0x0005 046a 0269 0006 | i | .CONST 0x0269,0x0006 046c 026a 0007 | j | .CONST 0x026a,0x0007 046e 026e 0008 | n | .CONST 0x026e,0x0008 0470 0272 0009 | r | .CONST 0x0272,0x0009 0472 ; -------------------------------------------------------------------------------------- 0472 ; Debug3 Subtable 0x14 0472 ; -------------------------------------------------------------------------------------- 0472 0000 0004 | | .DBG3TAB 0x0000,0x0004 0474 027c 0001 | | | .CONST 0x027c,0x0001 0476 027d 0002 | } | .CONST 0x027d,0x0002 0478 0285 0003 | | .CONST 0x0285,0x0003 047a 0290 0004 | | .CONST 0x0290,0x0004 047c 0000 0000 | | .BLANK 0000[0x184]