|
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, 5813_R1K_CODE, 75_tag, NULL, R1k_Segment, seg_6148f2
└─⟦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 0300 | | .CONST 0x0300 ; 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 0037 | 7 | .CONST 0x0037 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0016 | | .CONST 0x0016 ; Number of locals 000b INIT_0008: 000b 029a 0043 | C| Declare_Subprogram INIT_0040,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0 = .DEBUG 0x000b,0x0362,0x0000,0x0000,0x004c,0x50d6,0x0000,0x07bc ; Debug Table 0x0.0x0 = 0xb,0xffff 000d 029a 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x1 = 0xd,0xfffe 000f 029a 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x2 = 0xf,0xfffd 0011 029a 01c3 | | Declare_Subprogram INIT_01c0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x3 = 0x11,0xfffc 0013 029a 01f3 | | Declare_Subprogram INIT_01f0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x4 = 0x13,0xfffb 0015 029a 0213 | | Declare_Subprogram INIT_0210,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x5 = 0x15,0xfffa 0017 029a 0243 | C| Declare_Subprogram INIT_0240,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x6 = 0x17,0xfff9 0019 029a 0283 | | Declare_Subprogram INIT_0280,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x7 = 0x19,0xfff8 001b 029a 02b3 | | Declare_Subprogram INIT_02b0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x8 = 0x1b,0xfff7 001d 029a 02d3 | | Declare_Subprogram INIT_02d0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x9 = 0x1d,0xfff6 001f 00bf | | Action Accept_Activation 0020 0007 | | Action Break_Optional ; Debug Table 0x1 = .DEBUG 0x0020,0x0378,0x0000,0x0000,0x004e,0x7d55,0x0000,0x0006 ; Debug Table 0x1.0x0 = 0x20,0xffff 0021 0007 | | Action Break_Optional ; Debug Table 0x1.0x1 = 0x21,0xfffe 0022 0007 | | Action Break_Optional ; Debug Table 0x1.0x2 = 0x22,0xfffd 0023 1d0d | | Execute_Immediate Reference_Lex_1,0xd ; Debug Table 0x1.0x3 = 0x23,0xfffc 0024 00c7 | | Action Elaborate_Subprogram 0025 1d0e | | Execute_Immediate Reference_Lex_1,0xe ; Debug Table 0x1.0x4 = 0x25,0xfffb 0026 00c7 | | Action Elaborate_Subprogram 0027 1d0f | | Execute_Immediate Reference_Lex_1,0xf ; Debug Table 0x1.0x5 = 0x27,0xfffa 0028 00c7 | | Action Elaborate_Subprogram 0029 1d10 | | Execute_Immediate Reference_Lex_1,0x10 ; Debug Table 0x1.0x6 = 0x29,0xfff9 002a 00c7 | | Action Elaborate_Subprogram 002b 1d11 | | Execute_Immediate Reference_Lex_1,0x11 ; Debug Table 0x1.0x7 = 0x2b,0xfff8 002c 00c7 | | Action Elaborate_Subprogram 002d 1d12 | | Execute_Immediate Reference_Lex_1,0x12 ; Debug Table 0x1.0x8 = 0x2d,0xfff7 002e 00c7 | | Action Elaborate_Subprogram 002f 1d13 | | Execute_Immediate Reference_Lex_1,0x13 ; Debug Table 0x1.0x9 = 0x2f,0xfff6 0030 00c7 | | Action Elaborate_Subprogram 0031 1d14 | | Execute_Immediate Reference_Lex_1,0x14 ; Debug Table 0x1.0xa = 0x31,0xfff5 0032 00c7 | | Action Elaborate_Subprogram 0033 1d15 | | Execute_Immediate Reference_Lex_1,0x15 ; Debug Table 0x1.0xb = 0x33,0xfff4 0034 00c7 | | Action Elaborate_Subprogram 0035 1d16 | | Execute_Immediate Reference_Lex_1,0x16 ; Debug Table 0x1.0xc = 0x35,0xfff3 0036 00c7 | | Action Elaborate_Subprogram 0037 BODY_0008: 0037 00bc | | Action Signal_Activated 0038 00bb | | Action Signal_Completion 0039 0000 0000 | | .BLANK 0000[0x7] 0040 ; -------------------------------------------------------------------------------------- 0040 ; SUBPROGRAM 0040 ; -------------------------------------------------------------------------------------- 0040 004e | N | .CONST 0x004e ; Address of begin 0041 0073 | s | .CONST 0x0073 ; Address of exception handler 0042 0005 | | .CONST 0x0005 ; Number of locals 0043 INIT_0040: 0043 e001 | | Load 0x0,0x1 ; Debug Table 0x2 = .DEBUG 0x0043,0x0394,0x0001,0x0000,0x004c,0x50d6,0x0000,0x07bd ; Debug Table 0x2.0x0 = 0x43,0xffff 0044 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0045 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0046 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0047 e001 | | Load 0x0,0x1 ; Debug Table 0x2.0x1 = 0x47,0xfffe 0048 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0049 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 004a e002 | | Load 0x0,0x2 ; Debug Table 0x2.0x2 = 0x4a,0xfffd 004b 0007 | | Action Break_Optional 004c e002 | | Load 0x0,0x2 ; Debug Table 0x2.0x3 = 0x4c,0xfffc 004d 0007 | | Action Break_Optional 004e BODY_0040: 004e e5fd | | Load 0x2,-0x3 ; Debug Table 0x2.0x4 = 0x4e,0x1 004f e001 | | Load 0x0,0x1 0050 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0051 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0052 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0053 a402 | | Store_Unchecked 0x2,0x2 0054 e5fe | | Load 0x2,-0x2 ; Debug Table 0x2.0x5 = 0x54,0x2 0055 e402 | | Load 0x2,0x2 0056 e001 | | Load 0x0,0x1 0057 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0058 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0059 181b | | Execute Package,Field_Execute,Field_Number 0x1b 005a 00da | | Load_Top At_Offset_2 ; Debug Table 0x2.0x6 = 0x5a,0x3 005b 00d9 | | Load_Top At_Offset_1 005c 00db | | Load_Top At_Offset_3 005d e5fd | | Load 0x2,-0x3 005e e402 | | Load 0x2,0x2 005f e5ff | | Load 0x2,-0x1 0060 8003 | | Call 0x0,0x3 0061 c404 | | Store 0x2,0x4 0062 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0063 0033 | 3 | Store_Top Heap_Access,At_Offset_3 0064 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x2.0x7 = 0x64,0x4 0065 8004 | | Call 0x0,0x4 0066 e5fc | | Load 0x2,-0x4 0067 016d | m | Execute Variant_Record,Structure_Write 0068 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x2.0x8 = 0x68,0x5 0069 8004 | | Call 0x0,0x4 006a e5fb | | Load 0x2,-0x5 006b 016d | m | Execute Variant_Record,Structure_Write 006c 00db | | Load_Top At_Offset_3 ; Debug Table 0x2.0x9 = 0x6c,0x6 006d e001 | | Load 0x0,0x1 006e 1b11 | | Execute Package,Field_Read,Field_Number 0x11 006f 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0070 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0071 c402 | | Store 0x2,0x2 0072 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0073 TRAP_0040: 0073 0007 | | Action Break_Optional 0074 e402 | | Load 0x2,0x2 ; Debug Table 0x2.0xa = 0x74,0x7 0075 e001 | | Load 0x0,0x1 0076 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0077 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0078 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0079 c402 | | Store 0x2,0x2 007a 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x2.0xb = 0x7a,0x8 007b 0101 | | Execute Exception,Reraise 007c 0000 0000 | | .BLANK 0000[0x4] 0080 ; -------------------------------------------------------------------------------------- 0080 ; SUBPROGRAM 0080 ; -------------------------------------------------------------------------------------- 0080 008f | | .CONST 0x008f ; Address of begin 0081 0004 | | .CONST 0x0004 ; Address of exception handler 0082 0003 | | .CONST 0x0003 ; Number of locals 0083 INIT_0080: 0083 e001 | | Load 0x0,0x1 ; Debug Table 0x3 = .DEBUG 0x0083,0x03ae,0x0001,0x0000,0x004c,0x50d6,0x0000,0x07d7 ; Debug Table 0x3.0x0 = 0x83,0xffff 0084 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0085 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0086 02ff | | Declare_Variable Variant_Record 0087 00d8 | | Load_Top At_Offset_0 0088 1c00 | | Execute_Immediate Run_Utility,0x0 0089 e001 | | Load 0x0,0x1 ; Debug Table 0x3.0x1 = 0x89,0xfffe 008a 1b11 | | Execute Package,Field_Read,Field_Number 0x11 008b 1b0f | | Execute Package,Field_Read,Field_Number 0xf 008c 02ff | | Declare_Variable Variant_Record 008d 00d8 | | Load_Top At_Offset_0 008e 1c00 | | Execute_Immediate Run_Utility,0x0 008f BODY_0080: 008f 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x3.0x2 = 0x8f,0x1 0090 00da | | Load_Top At_Offset_2 0091 e5fd | | Load 0x2,-0x3 0092 e5fe | | Load 0x2,-0x2 0093 e5ff | | Load 0x2,-0x1 0094 820d | | Call 0x1,0xd 0095 00d2 | | Pop_Control Pop_Count_2 0096 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x3.0x3 = 0x96,0x2 0097 e001 | | Load 0x0,0x1 0098 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0099 1b11 | | Execute Package,Field_Read,Field_Number 0x11 009a 016e | n | Execute Variant_Record,Not_Equal 009b 680a |h | Jump_Zero 0xa6 009c 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x3.0x4 = 0x9c,0x3 009d 4801 |H | Short_Literal 0x1 009e e001 | | Load 0x0,0x1 009f 1b11 | | Execute Package,Field_Read,Field_Number 0x11 00a0 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 00a1 180f | | Execute Package,Field_Execute,Field_Number 0xf 00a2 00d1 | | Pop_Control Pop_Count_1 00a3 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x3.0x5 = 0xa3,0x4 00a4 00da | | Load_Top At_Offset_2 00a5 016d | m | Execute Variant_Record,Structure_Write 00a6 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x3.0x6 = 0xa6,0x5 00a7 e5fc | | Load 0x2,-0x4 00a8 016d | m | Execute Variant_Record,Structure_Write 00a9 4504 |E | Exit_Suprogram New_Top_Offset 0x4 00aa 0000 0000 | | .BLANK 0000[0x6] 00b0 ; -------------------------------------------------------------------------------------- 00b0 ; SUBPROGRAM 00b0 ; -------------------------------------------------------------------------------------- 00b0 00cc | | .CONST 0x00cc ; Address of begin 00b1 01b3 | | .CONST 0x01b3 ; Address of exception handler 00b2 0008 | | .CONST 0x0008 ; Number of locals 00b3 INIT_00b0: 00b3 00db | | Load_Top At_Offset_3 ; Debug Table 0x4 = .DEBUG 0x00b3,0x03be,0x0001,0x0000,0x004c,0x50d6,0x0000,0x07ed ; Debug Table 0x4.0x0 = 0xb3,0xffff 00b4 01dd | | Execute Vector,First 00b5 e5fe | | Load 0x2,-0x2 00b6 01dc | | Execute Vector,Last 00b7 00e9 | | Load_Encached String_Cache 00b8 035b | [ | Declare_Type Array,Constrained 00b9 0337 | 7 | Declare_Variable Array 00ba e5fe | | Load 0x2,-0x2 ; Debug Table 0x4.0x1 = 0xba,0xfffe 00bb 01dc | | Execute Vector,Last 00bc 00e3 | | Load_Encached Natural_Cache 00bd 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 00be e001 | | Load 0x0,0x1 ; Debug Table 0x4.0x2 = 0xbe,0xfffd 00bf 1b11 | | Execute Package,Field_Read,Field_Number 0x11 00c0 1b19 | | Execute Package,Field_Read,Field_Number 0x19 00c1 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00c2 e001 | | Load 0x0,0x1 ; Debug Table 0x4.0x3 = 0xc2,0xfffc 00c3 1b11 | | Execute Package,Field_Read,Field_Number 0x11 00c4 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 00c5 e002 | | Load 0x0,0x2 ; Debug Table 0x4.0x4 = 0xc5,0xfffb 00c6 0007 | | Action Break_Optional 00c7 e002 | | Load 0x0,0x2 ; Debug Table 0x4.0x5 = 0xc7,0xfffa 00c8 0007 | | Action Break_Optional 00c9 4fff |O | Short_Literal -0x1 ; Debug Table 0x4.0x6 = 0xc9,0xfff9 00ca 00e2 | | Load_Encached Integer_Cache 00cb 03f1 | | Declare_Variable Discrete,With_Value 00cc BODY_00b0: 00cc 00cf | | Action Mark_Auxiliary ; Debug Table 0x4.0x7 = 0xcc,0x1 00cd e5fe | | Load 0x2,-0x2 ; Debug Table 0x4.0x8 = 0xcd,0x1 00ce 01d9 | | Execute Vector,Reverse_Bounds 00cf 0263 | c | Execute Discrete,Above_Bound 00d0 7073 |ps | Jump_Nonzero 0x144 00d1 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x4.0x9 = 0xd1,0x2 00d2 e5fe | | Load 0x2,-0x2 00d3 01d7 | | Execute Vector,Field_Read 00d4 0c80 | | Execute_Immediate Greater_Equal,-0x80 00d5 6804 |h | Jump_Zero 0xda 00d6 e001 | | Load 0x0,0x1 ; Debug Table 0x4.0xa = 0xd6,0x3 00d7 1b11 | | Execute Package,Field_Read,Field_Number 0x11 00d8 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 00d9 0257 | W | Execute Discrete,Raise 00da 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x4.0xb = 0xda,0x4 00db e5fe | | Load 0x2,-0x2 00dc 01d7 | | Execute Vector,Field_Read 00dd 00d8 | | Load_Top At_Offset_0 00de 00e8 | | Load_Encached Character_Cache 00df 0260 | ` | Execute Discrete,In_Type 00e0 7002 |p | Jump_Nonzero 0xe3 00e1 48e0 |H | Short_Literal 0xe0 00e2 0257 | W | Execute Discrete,Raise 00e3 00d9 | | Load_Top At_Offset_1 00e4 e402 | | Load 0x2,0x2 00e5 01d6 | | Execute Vector,Field_Write 00e6 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x4.0xc = 0xe6,0x5 00e7 e5fe | | Load 0x2,-0x2 00e8 01d7 | | Execute Vector,Field_Read 00e9 0f0d | | Execute_Immediate Equal,0xd 00ea 6857 |hW | Jump_Zero 0x142 00eb 00d8 | | Load_Top At_Offset_0 00ec e5fe | | Load 0x2,-0x2 00ed 01dc | | Execute Vector,Last 00ee 0a03 | | Execute_Immediate Plus,0x3 00ef 027b | { | Execute Discrete,Greater_Equal 00f0 6851 |hQ | Jump_Zero 0x142 00f1 00d8 | | Load_Top At_Offset_0 00f2 0a01 | | Execute_Immediate Plus,0x1 00f3 0248 | H | Execute Discrete,Check_In_Integer 00f4 e5fe | | Load 0x2,-0x2 00f5 01d7 | | Execute Vector,Field_Read 00f6 0f0a | | Execute_Immediate Equal,0xa 00f7 684a |hJ | Jump_Zero 0x142 00f8 00d8 | | Load_Top At_Offset_0 00f9 0a02 | | Execute_Immediate Plus,0x2 00fa 0248 | H | Execute Discrete,Check_In_Integer 00fb e5fe | | Load 0x2,-0x2 00fc 01d7 | | Execute Vector,Field_Read 00fd 0f0d | | Execute_Immediate Equal,0xd 00fe 6843 |hC | Jump_Zero 0x142 00ff 00d8 | | Load_Top At_Offset_0 0100 0a03 | | Execute_Immediate Plus,0x3 0101 0248 | H | Execute Discrete,Check_In_Integer 0102 e5fe | | Load 0x2,-0x2 0103 01d7 | | Execute Vector,Field_Read 0104 0f0a | | Execute_Immediate Equal,0xa 0105 683c |h< | Jump_Zero 0x142 0106 480a |H | Short_Literal 0xa ; Debug Table 0x4.0xd = 0x106,0x6 0107 00d9 | | Load_Top At_Offset_1 0108 0a01 | | Execute_Immediate Plus,0x1 0109 0248 | H | Execute Discrete,Check_In_Integer 010a e402 | | Load 0x2,0x2 010b 01d6 | | Execute Vector,Field_Write 010c 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x4.0xe = 0x10c,0x7 010d 0a04 | | Execute_Immediate Plus,0x4 010e 0248 | H | Execute Discrete,Check_In_Integer 010f a408 | | Store_Unchecked 0x2,0x8 0110 00cf | | Action Mark_Auxiliary 0111 e5fe | | Load 0x2,-0x2 ; Debug Table 0x4.0xf = 0x111,0x8 0112 01dc | | Execute Vector,Last 0113 00da | | Load_Top At_Offset_2 0114 0a01 | | Execute_Immediate Plus,0x1 0115 0248 | H | Execute Discrete,Check_In_Integer 0116 0263 | c | Execute Discrete,Above_Bound 0117 700e |p | Jump_Nonzero 0x126 0118 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x4.0x10 = 0x118,0x9 0119 e5fe | | Load 0x2,-0x2 011a 01d7 | | Execute Vector,Field_Read 011b 0c80 | | Execute_Immediate Greater_Equal,-0x80 011c 6807 |h | Jump_Zero 0x124 011d 00db | | Load_Top At_Offset_3 ; Debug Table 0x4.0x11 = 0x11d,0xa 011e 0a01 | | Execute_Immediate Plus,0x1 011f c403 | | Store 0x2,0x3 0120 00d2 | | Pop_Control Pop_Count_2 ; Debug Table 0x4.0x12 = 0x120,0xb 0121 00ce | | Action Pop_Auxiliary 0122 00d2 | | Pop_Control Pop_Count_2 0123 7820 |x | Jump 0x144 0124 00c8 | | Action Pop_Auxiliary_Range 0125 3ff2 |? | Loop_Increasing 0x118 0126 00ce | | Action Pop_Auxiliary 0127 4fff |O | Short_Literal -0x1 ; Debug Table 0x4.0x13 = 0x127,0xc 0128 a408 | | Store_Unchecked 0x2,0x8 0129 00cf | | Action Mark_Auxiliary 012a e5fe | | Load 0x2,-0x2 ; Debug Table 0x4.0x14 = 0x12a,0xd 012b 01dc | | Execute Vector,Last 012c 00da | | Load_Top At_Offset_2 012d 0a01 | | Execute_Immediate Plus,0x1 012e 0248 | H | Execute Discrete,Check_In_Integer 012f 0263 | c | Execute Discrete,Above_Bound 0130 700e |p | Jump_Nonzero 0x13f 0131 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x4.0x15 = 0x131,0xe 0132 e5fe | | Load 0x2,-0x2 0133 01d7 | | Execute Vector,Field_Read 0134 00d8 | | Load_Top At_Offset_0 0135 00e8 | | Load_Encached Character_Cache 0136 0260 | ` | Execute Discrete,In_Type 0137 7002 |p | Jump_Nonzero 0x13a 0138 48e0 |H | Short_Literal 0xe0 0139 0257 | W | Execute Discrete,Raise 013a 00d9 | | Load_Top At_Offset_1 013b e402 | | Load 0x2,0x2 013c 01d6 | | Execute Vector,Field_Write 013d 00c8 | | Action Pop_Auxiliary_Range 013e 3ff2 |? | Loop_Increasing 0x131 013f 00ce | | Action Pop_Auxiliary 0140 00d2 | | Pop_Control Pop_Count_2 ; Debug Table 0x4.0x16 = 0x140,0xf 0141 7802 |x | Jump 0x144 0142 00c8 | | Action Pop_Auxiliary_Range 0143 3f8d |? | Loop_Increasing 0xd1 0144 00ce | | Action Pop_Auxiliary 0145 e5fd | | Load 0x2,-0x3 ; Debug Table 0x4.0x17 = 0x145,0x10 0146 e001 | | Load 0x0,0x1 0147 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0148 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0149 1816 | | Execute Package,Field_Execute,Field_Number 0x16 014a a404 | | Store_Unchecked 0x2,0x4 014b e402 | | Load 0x2,0x2 ; Debug Table 0x4.0x18 = 0x14b,0x11 014c 01dd | | Execute Vector,First 014d e403 | | Load 0x2,0x3 014e e402 | | Load 0x2,0x2 014f 01cf | | Execute Vector,Slice_Read 0150 e404 | | Load 0x2,0x4 0151 e001 | | Load 0x0,0x1 0152 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0153 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0154 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0155 00db | | Load_Top At_Offset_3 ; Debug Table 0x4.0x19 = 0x155,0x12 0156 00da | | Load_Top At_Offset_2 0157 e406 | | Load 0x2,0x6 0158 e5fd | | Load 0x2,-0x3 0159 e404 | | Load 0x2,0x4 015a e5ff | | Load 0x2,-0x1 015b 8003 | | Call 0x0,0x3 015c c406 | | Store 0x2,0x6 015d 0033 | 3 | Store_Top Heap_Access,At_Offset_3 015e c405 | | Store 0x2,0x5 015f 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x4.0x1a = 0x15f,0x13 0160 0c00 | | Execute_Immediate Greater_Equal,0x0 0161 6842 |hB | Jump_Zero 0x1a4 0162 00cf | | Action Mark_Auxiliary ; Debug Table 0x4.0x1b = 0x162,0x14 0163 e002 | | Load 0x0,0x2 ; Debug Table 0x4.0x1c = 0x163,0xfbff 0164 e5fd | | Load 0x2,-0x3 0165 4819 |H | Short_Literal 0x19 0166 8005 | | Call 0x0,0x5 0167 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0168 4805 |H | Short_Literal 0x5 ; Debug Table 0x4.0x1d = 0x168,0xfbfe 0169 4827 |H' | Short_Literal 0x27 016a 4827 |H' | Short_Literal 0x27 016b e006 | | Load 0x0,0x6 016c 01d5 | | Execute Vector,Field_Reference 016d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 016e 4827 |H' | Short_Literal 0x27 016f e006 | | Load 0x0,0x6 0170 01d5 | | Execute Vector,Field_Reference 0171 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0172 4800 |H | Short_Literal 0x0 0173 e007 | | Load 0x0,0x7 0174 1c08 | | Execute_Immediate Run_Utility,0x8 0175 00d8 | | Load_Top At_Offset_0 0176 1c00 | | Execute_Immediate Run_Utility,0x0 0177 4802 |H | Short_Literal 0x2 ; Debug Table 0x4.0x1e = 0x177,0x401 0178 00d9 | | Load_Top At_Offset_1 0179 2a18 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x18 017a e5fd | | Load 0x2,-0x3 ; Debug Table 0x4.0x1f = 0x17a,0x402 017b 00d9 | | Load_Top At_Offset_1 017c e008 | | Load 0x0,0x8 017d e009 | | Load 0x0,0x9 017e a00a | | Store_Unchecked 0x0,0xa 017f e00b | | Load 0x0,0xb 0180 180f | | Execute Package,Field_Execute,Field_Number 0xf 0181 4801 |H | Short_Literal 0x1 0182 00db | | Load_Top At_Offset_3 0183 0217 | | Execute Heap_Access,All_Reference 0184 2708 |' | Execute Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0x8 0185 01d6 | | Execute Vector,Field_Write 0186 e5fd | | Load 0x2,-0x3 ; Debug Table 0x4.0x20 = 0x186,0x403 0187 4804 |H | Short_Literal 0x4 0188 8005 | | Call 0x0,0x5 0189 4803 |H | Short_Literal 0x3 018a 00db | | Load_Top At_Offset_3 018b 0217 | | Execute Heap_Access,All_Reference 018c 2708 |' | Execute Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0x8 018d 01d6 | | Execute Vector,Field_Write 018e e5fd | | Load 0x2,-0x3 ; Debug Table 0x4.0x21 = 0x18e,0x404 018f e408 | | Load 0x2,0x8 0190 e5fe | | Load 0x2,-0x2 0191 01dc | | Execute Vector,Last 0192 e5fe | | Load 0x2,-0x2 0193 01cf | | Execute Vector,Slice_Read 0194 800c | | Call 0x0,0xc 0195 4801 |H | Short_Literal 0x1 0196 4803 |H | Short_Literal 0x3 0197 e40a | | Load 0x2,0xa 0198 0217 | | Execute Heap_Access,All_Reference 0199 2708 |' | Execute Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0x8 019a 01d7 | | Execute Vector,Field_Read 019b 0217 | | Execute Heap_Access,All_Reference 019c 2708 |' | Execute Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0x8 019d 01d6 | | Execute Vector,Field_Write 019e 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x4.0x22 = 0x19e,0x405 019f 4fff |O | Short_Literal -0x1 01a0 e406 | | Load 0x2,0x6 01a1 800d | | Call 0x0,0xd 01a2 00d2 | | Pop_Control Pop_Count_2 01a3 00ce | | Action Pop_Auxiliary 01a4 00da | | Load_Top At_Offset_2 ; Debug Table 0x4.0x23 = 0x1a4,0x15 01a5 8004 | | Call 0x0,0x4 01a6 e5fc | | Load 0x2,-0x4 01a7 016d | m | Execute Variant_Record,Structure_Write 01a8 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x4.0x24 = 0x1a8,0x16 01a9 8004 | | Call 0x0,0x4 01aa e5fb | | Load 0x2,-0x5 01ab 016d | m | Execute Variant_Record,Structure_Write 01ac e404 | | Load 0x2,0x4 ; Debug Table 0x4.0x25 = 0x1ac,0x17 01ad e001 | | Load 0x0,0x1 01ae 1b11 | | Execute Package,Field_Read,Field_Number 0x11 01af 1b19 | | Execute Package,Field_Read,Field_Number 0x19 01b0 1817 | | Execute Package,Field_Execute,Field_Number 0x17 01b1 c404 | | Store 0x2,0x4 01b2 4504 |E | Exit_Suprogram New_Top_Offset 0x4 01b3 TRAP_00b0: 01b3 0007 | | Action Break_Optional 01b4 e404 | | Load 0x2,0x4 ; Debug Table 0x4.0x26 = 0x1b4,0x18 01b5 e001 | | Load 0x0,0x1 01b6 1b11 | | Execute Package,Field_Read,Field_Number 0x11 01b7 1b19 | | Execute Package,Field_Read,Field_Number 0x19 01b8 1817 | | Execute Package,Field_Execute,Field_Number 0x17 01b9 c404 | | Store 0x2,0x4 01ba 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x4.0x27 = 0x1ba,0x19 01bb 0101 | | Execute Exception,Reraise 01bc 0000 0000 | | .BLANK 0000[0x4] 01c0 ; -------------------------------------------------------------------------------------- 01c0 ; SUBPROGRAM 01c0 ; -------------------------------------------------------------------------------------- 01c0 01cf | | .CONST 0x01cf ; Address of begin 01c1 0004 | | .CONST 0x0004 ; Address of exception handler 01c2 0003 | | .CONST 0x0003 ; Number of locals 01c3 INIT_01c0: 01c3 e001 | | Load 0x0,0x1 ; Debug Table 0x5 = .DEBUG 0x01c3,0x0410,0x0001,0x0000,0x004c,0x50d6,0x0000,0x0809 ; Debug Table 0x5.0x0 = 0x1c3,0xffff 01c4 1b11 | | Execute Package,Field_Read,Field_Number 0x11 01c5 1b0f | | Execute Package,Field_Read,Field_Number 0xf 01c6 02ff | | Declare_Variable Variant_Record 01c7 00d8 | | Load_Top At_Offset_0 01c8 1c00 | | Execute_Immediate Run_Utility,0x0 01c9 e001 | | Load 0x0,0x1 ; Debug Table 0x5.0x1 = 0x1c9,0xfffe 01ca 1b11 | | Execute Package,Field_Read,Field_Number 0x11 01cb 1b0f | | Execute Package,Field_Read,Field_Number 0xf 01cc 02ff | | Declare_Variable Variant_Record 01cd 00d8 | | Load_Top At_Offset_0 01ce 1c00 | | Execute_Immediate Run_Utility,0x0 01cf BODY_01c0: 01cf 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x5.0x2 = 0x1cf,0x1 01d0 00da | | Load_Top At_Offset_2 01d1 e5fd | | Load 0x2,-0x3 01d2 e5fe | | Load 0x2,-0x2 01d3 e5ff | | Load 0x2,-0x1 01d4 820f | | Call 0x1,0xf 01d5 00d2 | | Pop_Control Pop_Count_2 01d6 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x5.0x3 = 0x1d6,0x2 01d7 e001 | | Load 0x0,0x1 01d8 1b11 | | Execute Package,Field_Read,Field_Number 0x11 01d9 1b11 | | Execute Package,Field_Read,Field_Number 0x11 01da 016e | n | Execute Variant_Record,Not_Equal 01db 680a |h | Jump_Zero 0x1e6 01dc 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x5.0x4 = 0x1dc,0x3 01dd 4801 |H | Short_Literal 0x1 01de e001 | | Load 0x0,0x1 01df 1b11 | | Execute Package,Field_Read,Field_Number 0x11 01e0 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 01e1 180f | | Execute Package,Field_Execute,Field_Number 0xf 01e2 00d1 | | Pop_Control Pop_Count_1 01e3 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x5.0x5 = 0x1e3,0x4 01e4 00da | | Load_Top At_Offset_2 01e5 016d | m | Execute Variant_Record,Structure_Write 01e6 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x5.0x6 = 0x1e6,0x5 01e7 e5fc | | Load 0x2,-0x4 01e8 016d | m | Execute Variant_Record,Structure_Write 01e9 4504 |E | Exit_Suprogram New_Top_Offset 0x4 01ea 0000 0000 | | .BLANK 0000[0x6] 01f0 ; -------------------------------------------------------------------------------------- 01f0 ; SUBPROGRAM 01f0 ; -------------------------------------------------------------------------------------- 01f0 01fa | | .CONST 0x01fa ; Address of begin 01f1 0004 | | .CONST 0x0004 ; Address of exception handler 01f2 0004 | | .CONST 0x0004 ; Number of locals 01f3 INIT_01f0: 01f3 e001 | | Load 0x0,0x1 ; Debug Table 0x6 = .DEBUG 0x01f3,0x0420,0x0001,0x0000,0x004c,0x50d6,0x0000,0x0821 ; Debug Table 0x6.0x0 = 0x1f3,0xffff 01f4 1b11 | | Execute Package,Field_Read,Field_Number 0x11 01f5 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 01f6 e002 | | Load 0x0,0x2 ; Debug Table 0x6.0x1 = 0x1f6,0xfffe 01f7 0007 | | Action Break_Optional 01f8 e002 | | Load 0x0,0x2 ; Debug Table 0x6.0x2 = 0x1f8,0xfffd 01f9 0007 | | Action Break_Optional 01fa BODY_01f0: 01fa 00da | | Load_Top At_Offset_2 ; Debug Table 0x6.0x3 = 0x1fa,0x1 01fb 00d9 | | Load_Top At_Offset_1 01fc 00db | | Load_Top At_Offset_3 01fd e5fd | | Load 0x2,-0x3 01fe e5fe | | Load 0x2,-0x2 01ff e5ff | | Load 0x2,-0x1 0200 8003 | | Call 0x0,0x3 0201 c403 | | Store 0x2,0x3 0202 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0203 0033 | 3 | Store_Top Heap_Access,At_Offset_3 0204 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x6.0x4 = 0x204,0x2 0205 8004 | | Call 0x0,0x4 0206 e5fc | | Load 0x2,-0x4 0207 016d | m | Execute Variant_Record,Structure_Write 0208 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x6.0x5 = 0x208,0x3 0209 8004 | | Call 0x0,0x4 020a e5fb | | Load 0x2,-0x5 020b 016d | m | Execute Variant_Record,Structure_Write 020c 4504 |E | Exit_Suprogram New_Top_Offset 0x4 020d 0000 0000 | | .XXX[0x3] 020f 0000 | | 0210 ; -------------------------------------------------------------------------------------- 0210 ; SUBPROGRAM 0210 ; -------------------------------------------------------------------------------------- 0210 021f | | .CONST 0x021f ; Address of begin 0211 0004 | | .CONST 0x0004 ; Address of exception handler 0212 0003 | | .CONST 0x0003 ; Number of locals 0213 INIT_0210: 0213 e001 | | Load 0x0,0x1 ; Debug Table 0x7 = .DEBUG 0x0213,0x042e,0x0001,0x0000,0x004c,0x50d6,0x0000,0x083d ; Debug Table 0x7.0x0 = 0x213,0xffff 0214 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0215 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0216 02ff | | Declare_Variable Variant_Record 0217 00d8 | | Load_Top At_Offset_0 0218 1c00 | | Execute_Immediate Run_Utility,0x0 0219 e001 | | Load 0x0,0x1 ; Debug Table 0x7.0x1 = 0x219,0xfffe 021a 1b11 | | Execute Package,Field_Read,Field_Number 0x11 021b 1b0f | | Execute Package,Field_Read,Field_Number 0xf 021c 02ff | | Declare_Variable Variant_Record 021d 00d8 | | Load_Top At_Offset_0 021e 1c00 | | Execute_Immediate Run_Utility,0x0 021f BODY_0210: 021f 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x7.0x2 = 0x21f,0x1 0220 00da | | Load_Top At_Offset_2 0221 e5fd | | Load 0x2,-0x3 0222 e5fe | | Load 0x2,-0x2 0223 e5ff | | Load 0x2,-0x1 0224 8211 | | Call 0x1,0x11 0225 00d2 | | Pop_Control Pop_Count_2 0226 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x7.0x3 = 0x226,0x2 0227 e001 | | Load 0x0,0x1 0228 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0229 1b11 | | Execute Package,Field_Read,Field_Number 0x11 022a 016e | n | Execute Variant_Record,Not_Equal 022b 680a |h | Jump_Zero 0x236 022c 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x7.0x4 = 0x22c,0x3 022d 4801 |H | Short_Literal 0x1 022e e001 | | Load 0x0,0x1 022f 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0230 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 0231 180f | | Execute Package,Field_Execute,Field_Number 0xf 0232 00d1 | | Pop_Control Pop_Count_1 0233 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x7.0x5 = 0x233,0x4 0234 00da | | Load_Top At_Offset_2 0235 016d | m | Execute Variant_Record,Structure_Write 0236 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x7.0x6 = 0x236,0x5 0237 e5fc | | Load 0x2,-0x4 0238 016d | m | Execute Variant_Record,Structure_Write 0239 4504 |E | Exit_Suprogram New_Top_Offset 0x4 023a 0000 0000 | | .BLANK 0000[0x6] 0240 ; -------------------------------------------------------------------------------------- 0240 ; SUBPROGRAM 0240 ; -------------------------------------------------------------------------------------- 0240 024b | K | .CONST 0x024b ; Address of begin 0241 0274 | t | .CONST 0x0274 ; Address of exception handler 0242 0004 | | .CONST 0x0004 ; Number of locals 0243 INIT_0240: 0243 e002 | | Load 0x0,0x2 ; Debug Table 0x8 = .DEBUG 0x0243,0x043e,0x0001,0x0000,0x004c,0x50d6,0x0000,0x0855 ; Debug Table 0x8.0x0 = 0x243,0xffff 0244 0007 | | Action Break_Optional 0245 e002 | | Load 0x0,0x2 ; Debug Table 0x8.0x1 = 0x245,0xfffe 0246 0007 | | Action Break_Optional 0247 e001 | | Load 0x0,0x1 ; Debug Table 0x8.0x2 = 0x247,0xfffd 0248 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0249 1b19 | | Execute Package,Field_Read,Field_Number 0x19 024a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 024b BODY_0240: 024b e5fa | | Load 0x2,-0x6 ; Debug Table 0x8.0x3 = 0x24b,0x1 024c e5fd | | Load 0x2,-0x3 024d 800e | | Call 0x0,0xe 024e c5fa | | Store 0x2,-0x6 024f e5fd | | Load 0x2,-0x3 ; Debug Table 0x8.0x4 = 0x24f,0x2 0250 e001 | | Load 0x0,0x1 0251 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0252 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0253 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0254 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0255 e5fe | | Load 0x2,-0x2 ; Debug Table 0x8.0x5 = 0x255,0x3 0256 00d9 | | Load_Top At_Offset_1 0257 e001 | | Load 0x0,0x1 0258 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0259 1b19 | | Execute Package,Field_Read,Field_Number 0x19 025a 181b | | Execute Package,Field_Execute,Field_Number 0x1b 025b e5fa | | Load 0x2,-0x6 ; Debug Table 0x8.0x6 = 0x25b,0x4 025c 00da | | Load_Top At_Offset_2 025d e402 | | Load 0x2,0x2 025e e5fd | | Load 0x2,-0x3 025f e404 | | Load 0x2,0x4 0260 e5ff | | Load 0x2,-0x1 0261 8003 | | Call 0x0,0x3 0262 c402 | | Store 0x2,0x2 0263 0033 | 3 | Store_Top Heap_Access,At_Offset_3 0264 c5fa | | Store 0x2,-0x6 0265 00da | | Load_Top At_Offset_2 ; Debug Table 0x8.0x7 = 0x265,0x5 0266 8004 | | Call 0x0,0x4 0267 e5fc | | Load 0x2,-0x4 0268 016d | m | Execute Variant_Record,Structure_Write 0269 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x8.0x8 = 0x269,0x6 026a 8004 | | Call 0x0,0x4 026b e5fb | | Load 0x2,-0x5 026c 016d | m | Execute Variant_Record,Structure_Write 026d 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x8.0x9 = 0x26d,0x7 026e e001 | | Load 0x0,0x1 026f 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0270 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0271 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0272 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0273 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0274 TRAP_0240: 0274 0007 | | Action Break_Optional 0275 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x8.0xa = 0x275,0x8 0276 e001 | | Load 0x0,0x1 0277 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0278 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0279 1817 | | Execute Package,Field_Execute,Field_Number 0x17 027a 0032 | 2 | Store_Top Heap_Access,At_Offset_2 027b 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x8.0xb = 0x27b,0x9 027c 0101 | | Execute Exception,Reraise 027d 0000 0000 | | .XXX[0x3] 027f 0000 | | 0280 ; -------------------------------------------------------------------------------------- 0280 ; SUBPROGRAM 0280 ; -------------------------------------------------------------------------------------- 0280 028f | | .CONST 0x028f ; Address of begin 0281 0004 | | .CONST 0x0004 ; Address of exception handler 0282 0003 | | .CONST 0x0003 ; Number of locals 0283 INIT_0280: 0283 e001 | | Load 0x0,0x1 ; Debug Table 0x9 = .DEBUG 0x0283,0x0458,0x0001,0x0000,0x004c,0x50d6,0x0000,0x0873 ; Debug Table 0x9.0x0 = 0x283,0xffff 0284 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0285 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0286 02ff | | Declare_Variable Variant_Record 0287 00d8 | | Load_Top At_Offset_0 0288 1c00 | | Execute_Immediate Run_Utility,0x0 0289 e001 | | Load 0x0,0x1 ; Debug Table 0x9.0x1 = 0x289,0xfffe 028a 1b11 | | Execute Package,Field_Read,Field_Number 0x11 028b 1b0f | | Execute Package,Field_Read,Field_Number 0xf 028c 02ff | | Declare_Variable Variant_Record 028d 00d8 | | Load_Top At_Offset_0 028e 1c00 | | Execute_Immediate Run_Utility,0x0 028f BODY_0280: 028f e5fb | | Load 0x2,-0x5 ; Debug Table 0x9.0x2 = 0x28f,0x1 0290 00d9 | | Load_Top At_Offset_1 0291 00db | | Load_Top At_Offset_3 0292 e5fd | | Load 0x2,-0x3 0293 e5fe | | Load 0x2,-0x2 0294 e5ff | | Load 0x2,-0x1 0295 8213 | | Call 0x1,0x13 0296 00d2 | | Pop_Control Pop_Count_2 0297 c5fb | | Store 0x2,-0x5 0298 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x9.0x3 = 0x298,0x2 0299 e001 | | Load 0x0,0x1 029a 1b11 | | Execute Package,Field_Read,Field_Number 0x11 029b 1b11 | | Execute Package,Field_Read,Field_Number 0x11 029c 016e | n | Execute Variant_Record,Not_Equal 029d 680a |h | Jump_Zero 0x2a8 029e 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x9.0x4 = 0x29e,0x3 029f 4801 |H | Short_Literal 0x1 02a0 e001 | | Load 0x0,0x1 02a1 1b11 | | Execute Package,Field_Read,Field_Number 0x11 02a2 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 02a3 180f | | Execute Package,Field_Execute,Field_Number 0xf 02a4 00d1 | | Pop_Control Pop_Count_1 02a5 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x9.0x5 = 0x2a5,0x4 02a6 00da | | Load_Top At_Offset_2 02a7 016d | m | Execute Variant_Record,Structure_Write 02a8 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x9.0x6 = 0x2a8,0x5 02a9 e5fc | | Load 0x2,-0x4 02aa 016d | m | Execute Variant_Record,Structure_Write 02ab 4504 |E | Exit_Suprogram New_Top_Offset 0x4 02ac 0000 0000 | | .BLANK 0000[0x4] 02b0 ; -------------------------------------------------------------------------------------- 02b0 ; SUBPROGRAM 02b0 ; -------------------------------------------------------------------------------------- 02b0 02b7 | | .CONST 0x02b7 ; Address of begin 02b1 0004 | | .CONST 0x0004 ; Address of exception handler 02b2 0003 | | .CONST 0x0003 ; Number of locals 02b3 INIT_02b0: 02b3 e002 | | Load 0x0,0x2 ; Debug Table 0xa = .DEBUG 0x02b3,0x0468,0x0001,0x0000,0x004c,0x50d6,0x0000,0x088d ; Debug Table 0xa.0x0 = 0x2b3,0xffff 02b4 0007 | | Action Break_Optional 02b5 e002 | | Load 0x0,0x2 ; Debug Table 0xa.0x1 = 0x2b5,0xfffe 02b6 0007 | | Action Break_Optional 02b7 BODY_02b0: 02b7 e5fa | | Load 0x2,-0x6 ; Debug Table 0xa.0x2 = 0x2b7,0x1 02b8 e5fd | | Load 0x2,-0x3 02b9 800e | | Call 0x0,0xe 02ba c5fa | | Store 0x2,-0x6 02bb e5fa | | Load 0x2,-0x6 ; Debug Table 0xa.0x3 = 0x2bb,0x2 02bc 00d9 | | Load_Top At_Offset_1 02bd 00db | | Load_Top At_Offset_3 02be e5fd | | Load 0x2,-0x3 02bf e5fe | | Load 0x2,-0x2 02c0 e5ff | | Load 0x2,-0x1 02c1 8003 | | Call 0x0,0x3 02c2 c402 | | Store 0x2,0x2 02c3 0032 | 2 | Store_Top Heap_Access,At_Offset_2 02c4 c5fa | | Store 0x2,-0x6 02c5 00d9 | | Load_Top At_Offset_1 ; Debug Table 0xa.0x4 = 0x2c5,0x3 02c6 8004 | | Call 0x0,0x4 02c7 e5fc | | Load 0x2,-0x4 02c8 016d | m | Execute Variant_Record,Structure_Write 02c9 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xa.0x5 = 0x2c9,0x4 02ca 8004 | | Call 0x0,0x4 02cb e5fb | | Load 0x2,-0x5 02cc 016d | m | Execute Variant_Record,Structure_Write 02cd 4504 |E | Exit_Suprogram New_Top_Offset 0x4 02ce 0000 0000 | | .XXX[0x2] 02d0 ; -------------------------------------------------------------------------------------- 02d0 ; SUBPROGRAM 02d0 ; -------------------------------------------------------------------------------------- 02d0 02df | | .CONST 0x02df ; Address of begin 02d1 0004 | | .CONST 0x0004 ; Address of exception handler 02d2 0003 | | .CONST 0x0003 ; Number of locals 02d3 INIT_02d0: 02d3 e001 | | Load 0x0,0x1 ; Debug Table 0xb = .DEBUG 0x02d3,0x0476,0x0001,0x0000,0x004c,0x50d6,0x0000,0x08ad ; Debug Table 0xb.0x0 = 0x2d3,0xffff 02d4 1b11 | | Execute Package,Field_Read,Field_Number 0x11 02d5 1b0f | | Execute Package,Field_Read,Field_Number 0xf 02d6 02ff | | Declare_Variable Variant_Record 02d7 00d8 | | Load_Top At_Offset_0 02d8 1c00 | | Execute_Immediate Run_Utility,0x0 02d9 e001 | | Load 0x0,0x1 ; Debug Table 0xb.0x1 = 0x2d9,0xfffe 02da 1b11 | | Execute Package,Field_Read,Field_Number 0x11 02db 1b0f | | Execute Package,Field_Read,Field_Number 0xf 02dc 02ff | | Declare_Variable Variant_Record 02dd 00d8 | | Load_Top At_Offset_0 02de 1c00 | | Execute_Immediate Run_Utility,0x0 02df BODY_02d0: 02df e5fb | | Load 0x2,-0x5 ; Debug Table 0xb.0x2 = 0x2df,0x1 02e0 00d9 | | Load_Top At_Offset_1 02e1 00db | | Load_Top At_Offset_3 02e2 e5fd | | Load 0x2,-0x3 02e3 e5fe | | Load 0x2,-0x2 02e4 e5ff | | Load 0x2,-0x1 02e5 8215 | | Call 0x1,0x15 02e6 00d2 | | Pop_Control Pop_Count_2 02e7 c5fb | | Store 0x2,-0x5 02e8 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xb.0x3 = 0x2e8,0x2 02e9 e001 | | Load 0x0,0x1 02ea 1b11 | | Execute Package,Field_Read,Field_Number 0x11 02eb 1b11 | | Execute Package,Field_Read,Field_Number 0x11 02ec 016e | n | Execute Variant_Record,Not_Equal 02ed 680a |h | Jump_Zero 0x2f8 02ee 00d9 | | Load_Top At_Offset_1 ; Debug Table 0xb.0x4 = 0x2ee,0x3 02ef 4801 |H | Short_Literal 0x1 02f0 e001 | | Load 0x0,0x1 02f1 1b11 | | Execute Package,Field_Read,Field_Number 0x11 02f2 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 02f3 180f | | Execute Package,Field_Execute,Field_Number 0xf 02f4 00d1 | | Pop_Control Pop_Count_1 02f5 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xb.0x5 = 0x2f5,0x4 02f6 00da | | Load_Top At_Offset_2 02f7 016d | m | Execute Variant_Record,Structure_Write 02f8 00d9 | | Load_Top At_Offset_1 ; Debug Table 0xb.0x6 = 0x2f8,0x5 02f9 e5fc | | Load 0x2,-0x4 02fa 016d | m | Execute Variant_Record,Structure_Write 02fb 4504 |E | Exit_Suprogram New_Top_Offset 0x4 02fc 0000 0000 | | .BLANK 0000[0x4] 0300 ; -------------------------------------------------------------------------------------- 0300 ; Debug Table 0300 ; -------------------------------------------------------------------------------------- 0300 0003 000c | | .CONST 0x0003,0x000c 0302 000b 0362 | b| .DEBUG 0x000b,0x0362,0x0000,0x0000,0x004c,0x50d6,0x0000,0x07bc 030a 0020 0378 | x| .DEBUG 0x0020,0x0378,0x0000,0x0000,0x004e,0x7d55,0x0000,0x0006 0312 0043 0394 | C | .DEBUG 0x0043,0x0394,0x0001,0x0000,0x004c,0x50d6,0x0000,0x07bd 031a 0083 03ae | | .DEBUG 0x0083,0x03ae,0x0001,0x0000,0x004c,0x50d6,0x0000,0x07d7 0322 00b3 03be | | .DEBUG 0x00b3,0x03be,0x0001,0x0000,0x004c,0x50d6,0x0000,0x07ed 032a 01c3 0410 | | .DEBUG 0x01c3,0x0410,0x0001,0x0000,0x004c,0x50d6,0x0000,0x0809 0332 01f3 0420 | | .DEBUG 0x01f3,0x0420,0x0001,0x0000,0x004c,0x50d6,0x0000,0x0821 033a 0213 042e | .| .DEBUG 0x0213,0x042e,0x0001,0x0000,0x004c,0x50d6,0x0000,0x083d 0342 0243 043e | C >| .DEBUG 0x0243,0x043e,0x0001,0x0000,0x004c,0x50d6,0x0000,0x0855 034a 0283 0458 | X| .DEBUG 0x0283,0x0458,0x0001,0x0000,0x004c,0x50d6,0x0000,0x0873 0352 02b3 0468 | h| .DEBUG 0x02b3,0x0468,0x0001,0x0000,0x004c,0x50d6,0x0000,0x088d 035a 02d3 0476 | v| .DEBUG 0x02d3,0x0476,0x0001,0x0000,0x004c,0x50d6,0x0000,0x08ad 0362 ; -------------------------------------------------------------------------------------- 0362 ; Debug3 Subtable 0x0 0362 ; -------------------------------------------------------------------------------------- 0362 000a 0000 | | .DBG3TAB 0x000a,0x0000 0364 000b ffff | | .CONST 0x000b,0xffff 0366 000d fffe | | .CONST 0x000d,0xfffe 0368 000f fffd | | .CONST 0x000f,0xfffd 036a 0011 fffc | | .CONST 0x0011,0xfffc 036c 0013 fffb | | .CONST 0x0013,0xfffb 036e 0015 fffa | | .CONST 0x0015,0xfffa 0370 0017 fff9 | | .CONST 0x0017,0xfff9 0372 0019 fff8 | | .CONST 0x0019,0xfff8 0374 001b fff7 | | .CONST 0x001b,0xfff7 0376 001d fff6 | | .CONST 0x001d,0xfff6 0378 ; -------------------------------------------------------------------------------------- 0378 ; Debug3 Subtable 0x1 0378 ; -------------------------------------------------------------------------------------- 0378 000d 0000 | | .DBG3TAB 0x000d,0x0000 037a 0020 ffff | | .CONST 0x0020,0xffff 037c 0021 fffe | ! | .CONST 0x0021,0xfffe 037e 0022 fffd | " | .CONST 0x0022,0xfffd 0380 0023 fffc | # | .CONST 0x0023,0xfffc 0382 0025 fffb | % | .CONST 0x0025,0xfffb 0384 0027 fffa | ' | .CONST 0x0027,0xfffa 0386 0029 fff9 | ) | .CONST 0x0029,0xfff9 0388 002b fff8 | + | .CONST 0x002b,0xfff8 038a 002d fff7 | - | .CONST 0x002d,0xfff7 038c 002f fff6 | / | .CONST 0x002f,0xfff6 038e 0031 fff5 | 1 | .CONST 0x0031,0xfff5 0390 0033 fff4 | 3 | .CONST 0x0033,0xfff4 0392 0035 fff3 | 5 | .CONST 0x0035,0xfff3 0394 ; -------------------------------------------------------------------------------------- 0394 ; Debug3 Subtable 0x2 0394 ; -------------------------------------------------------------------------------------- 0394 0004 0008 | | .DBG3TAB 0x0004,0x0008 0396 0043 ffff | C | .CONST 0x0043,0xffff 0398 0047 fffe | G | .CONST 0x0047,0xfffe 039a 004a fffd | J | .CONST 0x004a,0xfffd 039c 004c fffc | L | .CONST 0x004c,0xfffc 039e 004e 0001 | N | .CONST 0x004e,0x0001 03a0 0054 0002 | T | .CONST 0x0054,0x0002 03a2 005a 0003 | Z | .CONST 0x005a,0x0003 03a4 0064 0004 | d | .CONST 0x0064,0x0004 03a6 0068 0005 | h | .CONST 0x0068,0x0005 03a8 006c 0006 | l | .CONST 0x006c,0x0006 03aa 0074 0007 | t | .CONST 0x0074,0x0007 03ac 007a 0008 | z | .CONST 0x007a,0x0008 03ae ; -------------------------------------------------------------------------------------- 03ae ; Debug3 Subtable 0x3 03ae ; -------------------------------------------------------------------------------------- 03ae 0002 0005 | | .DBG3TAB 0x0002,0x0005 03b0 0083 ffff | | .CONST 0x0083,0xffff 03b2 0089 fffe | | .CONST 0x0089,0xfffe 03b4 008f 0001 | | .CONST 0x008f,0x0001 03b6 0096 0002 | | .CONST 0x0096,0x0002 03b8 009c 0003 | | .CONST 0x009c,0x0003 03ba 00a3 0004 | | .CONST 0x00a3,0x0004 03bc 00a6 0005 | | .CONST 0x00a6,0x0005 03be ; -------------------------------------------------------------------------------------- 03be ; Debug3 Subtable 0x4 03be ; -------------------------------------------------------------------------------------- 03be 0009 001f | | .DBG3TAB 0x0009,0x001f 03c0 00b3 ffff | | .CONST 0x00b3,0xffff 03c2 00ba fffe | | .CONST 0x00ba,0xfffe 03c4 00be fffd | | .CONST 0x00be,0xfffd 03c6 00c2 fffc | | .CONST 0x00c2,0xfffc 03c8 00c5 fffb | | .CONST 0x00c5,0xfffb 03ca 00c7 fffa | | .CONST 0x00c7,0xfffa 03cc 00c9 fff9 | | .CONST 0x00c9,0xfff9 03ce 00cc 0001 | | .CONST 0x00cc,0x0001 03d0 00cd 0001 | | .CONST 0x00cd,0x0001 03d2 00d1 0002 | | .CONST 0x00d1,0x0002 03d4 00d6 0003 | | .CONST 0x00d6,0x0003 03d6 00da 0004 | | .CONST 0x00da,0x0004 03d8 00e6 0005 | | .CONST 0x00e6,0x0005 03da 0106 0006 | | .CONST 0x0106,0x0006 03dc 010c 0007 | | .CONST 0x010c,0x0007 03de 0111 0008 | | .CONST 0x0111,0x0008 03e0 0118 0009 | | .CONST 0x0118,0x0009 03e2 011d 000a | | .CONST 0x011d,0x000a 03e4 0120 000b | | .CONST 0x0120,0x000b 03e6 0127 000c | ' | .CONST 0x0127,0x000c 03e8 012a 000d | * | .CONST 0x012a,0x000d 03ea 0131 000e | 1 | .CONST 0x0131,0x000e 03ec 0140 000f | @ | .CONST 0x0140,0x000f 03ee 0145 0010 | E | .CONST 0x0145,0x0010 03f0 014b 0011 | K | .CONST 0x014b,0x0011 03f2 0155 0012 | U | .CONST 0x0155,0x0012 03f4 015f 0013 | _ | .CONST 0x015f,0x0013 03f6 0162 0014 | b | .CONST 0x0162,0x0014 03f8 0163 fbff | c | .CONST 0x0163,0xfbff 03fa 0168 fbfe | h | .CONST 0x0168,0xfbfe 03fc 0177 0401 | w | .CONST 0x0177,0x0401 03fe 017a 0402 | z | .CONST 0x017a,0x0402 0400 0186 0403 | | .CONST 0x0186,0x0403 0402 018e 0404 | | .CONST 0x018e,0x0404 0404 019e 0405 | | .CONST 0x019e,0x0405 0406 01a4 0015 | | .CONST 0x01a4,0x0015 0408 01a8 0016 | | .CONST 0x01a8,0x0016 040a 01ac 0017 | | .CONST 0x01ac,0x0017 040c 01b4 0018 | | .CONST 0x01b4,0x0018 040e 01ba 0019 | | .CONST 0x01ba,0x0019 0410 ; -------------------------------------------------------------------------------------- 0410 ; Debug3 Subtable 0x5 0410 ; -------------------------------------------------------------------------------------- 0410 0002 0005 | | .DBG3TAB 0x0002,0x0005 0412 01c3 ffff | | .CONST 0x01c3,0xffff 0414 01c9 fffe | | .CONST 0x01c9,0xfffe 0416 01cf 0001 | | .CONST 0x01cf,0x0001 0418 01d6 0002 | | .CONST 0x01d6,0x0002 041a 01dc 0003 | | .CONST 0x01dc,0x0003 041c 01e3 0004 | | .CONST 0x01e3,0x0004 041e 01e6 0005 | | .CONST 0x01e6,0x0005 0420 ; -------------------------------------------------------------------------------------- 0420 ; Debug3 Subtable 0x6 0420 ; -------------------------------------------------------------------------------------- 0420 0003 0003 | | .DBG3TAB 0x0003,0x0003 0422 01f3 ffff | | .CONST 0x01f3,0xffff 0424 01f6 fffe | | .CONST 0x01f6,0xfffe 0426 01f8 fffd | | .CONST 0x01f8,0xfffd 0428 01fa 0001 | | .CONST 0x01fa,0x0001 042a 0204 0002 | | .CONST 0x0204,0x0002 042c 0208 0003 | | .CONST 0x0208,0x0003 042e ; -------------------------------------------------------------------------------------- 042e ; Debug3 Subtable 0x7 042e ; -------------------------------------------------------------------------------------- 042e 0002 0005 | | .DBG3TAB 0x0002,0x0005 0430 0213 ffff | | .CONST 0x0213,0xffff 0432 0219 fffe | | .CONST 0x0219,0xfffe 0434 021f 0001 | | .CONST 0x021f,0x0001 0436 0226 0002 | & | .CONST 0x0226,0x0002 0438 022c 0003 | , | .CONST 0x022c,0x0003 043a 0233 0004 | 3 | .CONST 0x0233,0x0004 043c 0236 0005 | 6 | .CONST 0x0236,0x0005 043e ; -------------------------------------------------------------------------------------- 043e ; Debug3 Subtable 0x8 043e ; -------------------------------------------------------------------------------------- 043e 0003 0009 | | .DBG3TAB 0x0003,0x0009 0440 0243 ffff | C | .CONST 0x0243,0xffff 0442 0245 fffe | E | .CONST 0x0245,0xfffe 0444 0247 fffd | G | .CONST 0x0247,0xfffd 0446 024b 0001 | K | .CONST 0x024b,0x0001 0448 024f 0002 | O | .CONST 0x024f,0x0002 044a 0255 0003 | U | .CONST 0x0255,0x0003 044c 025b 0004 | [ | .CONST 0x025b,0x0004 044e 0265 0005 | e | .CONST 0x0265,0x0005 0450 0269 0006 | i | .CONST 0x0269,0x0006 0452 026d 0007 | m | .CONST 0x026d,0x0007 0454 0275 0008 | u | .CONST 0x0275,0x0008 0456 027b 0009 | { | .CONST 0x027b,0x0009 0458 ; -------------------------------------------------------------------------------------- 0458 ; Debug3 Subtable 0x9 0458 ; -------------------------------------------------------------------------------------- 0458 0002 0005 | | .DBG3TAB 0x0002,0x0005 045a 0283 ffff | | .CONST 0x0283,0xffff 045c 0289 fffe | | .CONST 0x0289,0xfffe 045e 028f 0001 | | .CONST 0x028f,0x0001 0460 0298 0002 | | .CONST 0x0298,0x0002 0462 029e 0003 | | .CONST 0x029e,0x0003 0464 02a5 0004 | | .CONST 0x02a5,0x0004 0466 02a8 0005 | | .CONST 0x02a8,0x0005 0468 ; -------------------------------------------------------------------------------------- 0468 ; Debug3 Subtable 0xa 0468 ; -------------------------------------------------------------------------------------- 0468 0002 0004 | | .DBG3TAB 0x0002,0x0004 046a 02b3 ffff | | .CONST 0x02b3,0xffff 046c 02b5 fffe | | .CONST 0x02b5,0xfffe 046e 02b7 0001 | | .CONST 0x02b7,0x0001 0470 02bb 0002 | | .CONST 0x02bb,0x0002 0472 02c5 0003 | | .CONST 0x02c5,0x0003 0474 02c9 0004 | | .CONST 0x02c9,0x0004 0476 ; -------------------------------------------------------------------------------------- 0476 ; Debug3 Subtable 0xb 0476 ; -------------------------------------------------------------------------------------- 0476 0002 0005 | | .DBG3TAB 0x0002,0x0005 0478 02d3 ffff | | .CONST 0x02d3,0xffff 047a 02d9 fffe | | .CONST 0x02d9,0xfffe 047c 02df 0001 | | .CONST 0x02df,0x0001 047e 02e8 0002 | | .CONST 0x02e8,0x0002 0480 02ee 0003 | | .CONST 0x02ee,0x0003 0482 02f5 0004 | | .CONST 0x02f5,0x0004 0484 02f8 0005 | | .CONST 0x02f8,0x0005 0486 0000 0000 | | .BLANK 0000[0x17a]