|
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: 7168 (0x1c00) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_6148f2
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« └─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0858 | X | .CONST 0x0858 ; 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 0006 | | .CONST 0x0006 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0050 | P | .CONST 0x0050 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 001d | | .CONST 0x001d ; Number of locals 000b INIT_0008: 000b 029a 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call,Visible,Unelaborated 000d 029a 006b | k| Declare_Subprogram INIT_0068,For_Outer_Call,Visible,Unelaborated 000f 029a 007b | {| Declare_Subprogram INIT_0078,For_Outer_Call,Visible,Unelaborated 0011 029a 008b | | Declare_Subprogram INIT_0088,For_Outer_Call,Visible,Unelaborated 0013 029a 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call,Visible,Unelaborated 0015 029a 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call,Visible,Unelaborated 0017 029a 00c3 | | Declare_Subprogram INIT_00c0,For_Outer_Call,Visible,Unelaborated 0019 029a 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call,Visible,Unelaborated 001b 029a 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call,Visible,Unelaborated 001d 029a 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible,Unelaborated 001f 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated 0021 029a 0123 | #| Declare_Subprogram INIT_0120,For_Outer_Call,Visible,Unelaborated 0023 029a 0133 | 3| Declare_Subprogram INIT_0130,For_Outer_Call,Visible,Unelaborated 0025 029a 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call,Visible,Unelaborated 0027 029a 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call,Visible,Unelaborated 0029 029a 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call,Visible,Unelaborated 002b 029a 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call,Visible,Unelaborated 002d 00bf | | Action Accept_Activation 002e 1d0d | | Execute_Immediate Reference_Lex_1,0xd 002f 00c7 | | Action Elaborate_Subprogram 0030 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0031 00c7 | | Action Elaborate_Subprogram 0032 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0033 00c7 | | Action Elaborate_Subprogram 0034 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0035 00c7 | | Action Elaborate_Subprogram 0036 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0037 00c7 | | Action Elaborate_Subprogram 0038 1d12 | | Execute_Immediate Reference_Lex_1,0x12 0039 00c7 | | Action Elaborate_Subprogram 003a 1d13 | | Execute_Immediate Reference_Lex_1,0x13 003b 00c7 | | Action Elaborate_Subprogram 003c 1d14 | | Execute_Immediate Reference_Lex_1,0x14 003d 00c7 | | Action Elaborate_Subprogram 003e 1d15 | | Execute_Immediate Reference_Lex_1,0x15 003f 00c7 | | Action Elaborate_Subprogram 0040 1d16 | | Execute_Immediate Reference_Lex_1,0x16 0041 00c7 | | Action Elaborate_Subprogram 0042 1d17 | | Execute_Immediate Reference_Lex_1,0x17 0043 00c7 | | Action Elaborate_Subprogram 0044 1d18 | | Execute_Immediate Reference_Lex_1,0x18 0045 00c7 | | Action Elaborate_Subprogram 0046 1d19 | | Execute_Immediate Reference_Lex_1,0x19 0047 00c7 | | Action Elaborate_Subprogram 0048 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 0049 00c7 | | Action Elaborate_Subprogram 004a 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 004b 00c7 | | Action Elaborate_Subprogram 004c 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 004d 00c7 | | Action Elaborate_Subprogram 004e 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 004f 00c7 | | Action Elaborate_Subprogram 0050 BODY_0008: 0050 00bc | | Action Signal_Activated 0051 00bb | | Action Signal_Completion 0052 0000 0000 | | .BLANK 0000[0x6] 0058 ; -------------------------------------------------------------------------------------- 0058 ; SUBPROGRAM 0058 ; -------------------------------------------------------------------------------------- 0058 005b | [ | .CONST 0x005b ; Address of begin 0059 0004 | | .CONST 0x0004 ; Address of exception handler 005a 0001 | | .CONST 0x0001 ; Number of locals 005b BODY_0058: 005b INIT_0058: 005b 00da | | Load_Top At_Offset_2 005c 8002 | | Call 0x0,0x2 005d 00da | | Load_Top At_Offset_2 005e 8003 | | Call 0x0,0x3 005f 00da | | Load_Top At_Offset_2 0060 8004 | | Call 0x0,0x4 0061 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0062 0000 0000 | | .BLANK 0000[0x6] 0068 ; -------------------------------------------------------------------------------------- 0068 ; SUBPROGRAM 0068 ; -------------------------------------------------------------------------------------- 0068 006e | n | .CONST 0x006e ; Address of begin 0069 0004 | | .CONST 0x0004 ; Address of exception handler 006a 0003 | | .CONST 0x0003 ; Number of locals 006b INIT_0068: 006b e005 | | Load 0x0,0x5 006c 029f 0183 | | Declare_Subprogram INIT_0180,For_Call 006e BODY_0068: 006e e5ff | | Load 0x2,-0x1 006f 8002 | | Call 0x0,0x2 0070 8403 | | Call 0x2,0x3 0071 e5ff | | Load 0x2,-0x1 0072 8004 | | Call 0x0,0x4 0073 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0074 0000 0000 | | .BLANK 0000[0x4] 0078 ; -------------------------------------------------------------------------------------- 0078 ; SUBPROGRAM 0078 ; -------------------------------------------------------------------------------------- 0078 007d | } | .CONST 0x007d ; Address of begin 0079 0004 | | .CONST 0x0004 ; Address of exception handler 007a 0002 | | .CONST 0x0002 ; Number of locals 007b INIT_0078: 007b 029f 01c3 | | Declare_Subprogram INIT_01c0,For_Call 007d BODY_0078: 007d 00db | | Load_Top At_Offset_3 007e 8002 | | Call 0x0,0x2 007f 8402 | | Call 0x2,0x2 0080 00db | | Load_Top At_Offset_3 0081 8004 | | Call 0x0,0x4 0082 00db | | Load_Top At_Offset_3 0083 8006 | | Call 0x0,0x6 0084 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0085 0000 0000 | | .XXX[0x3] 0087 0000 | | 0088 ; -------------------------------------------------------------------------------------- 0088 ; SUBPROGRAM 0088 ; -------------------------------------------------------------------------------------- 0088 0096 | | .CONST 0x0096 ; Address of begin 0089 0004 | | .CONST 0x0004 ; Address of exception handler 008a 0005 | | .CONST 0x0005 ; Number of locals 008b INIT_0088: 008b 4801 |H | Short_Literal 0x1 008c 4820 |H | Short_Literal 0x20 008d e007 | | Load 0x0,0x7 008e 1b12 | | Execute Package,Field_Read,Field_Number 0x12 008f 035b | [ | Declare_Type Array,Constrained 0090 0337 | 7 | Declare_Variable Array 0091 e008 | | Load 0x0,0x8 0092 0007 | | Action Break_Optional 0093 e009 | | Load 0x0,0x9 0094 029f 020b | | Declare_Subprogram INIT_0208,For_Call 0096 BODY_0088: 0096 e5ff | | Load 0x2,-0x1 0097 8002 | | Call 0x0,0x2 0098 8405 | | Call 0x2,0x5 0099 e5ff | | Load 0x2,-0x1 009a 8004 | | Call 0x0,0x4 009b e5ff | | Load 0x2,-0x1 009c 8006 | | Call 0x0,0x6 009d 4506 |E | Exit_Suprogram New_Top_Offset 0x6 009e 0000 0000 | | .XXX[0x2] 00a0 ; -------------------------------------------------------------------------------------- 00a0 ; SUBPROGRAM 00a0 ; -------------------------------------------------------------------------------------- 00a0 00a6 | | .CONST 0x00a6 ; Address of begin 00a1 0004 | | .CONST 0x0004 ; Address of exception handler 00a2 0003 | | .CONST 0x0003 ; Number of locals 00a3 INIT_00a0: 00a3 e00a | | Load 0x0,0xa 00a4 029f 0263 | c| Declare_Subprogram INIT_0260,For_Call 00a6 BODY_00a0: 00a6 e5ff | | Load 0x2,-0x1 00a7 8002 | | Call 0x0,0x2 00a8 8403 | | Call 0x2,0x3 00a9 e5ff | | Load 0x2,-0x1 00aa 8004 | | Call 0x0,0x4 00ab 00d9 | | Load_Top At_Offset_1 00ac 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00ad 0000 0000 | | .XXX[0x3] 00af 0000 | | 00b0 ; -------------------------------------------------------------------------------------- 00b0 ; SUBPROGRAM 00b0 ; -------------------------------------------------------------------------------------- 00b0 00b6 | | .CONST 0x00b6 ; Address of begin 00b1 0004 | | .CONST 0x0004 ; Address of exception handler 00b2 0003 | | .CONST 0x0003 ; Number of locals 00b3 INIT_00b0: 00b3 e00a | | Load 0x0,0xa 00b4 029f 0283 | | Declare_Subprogram INIT_0280,For_Call 00b6 BODY_00b0: 00b6 e5ff | | Load 0x2,-0x1 00b7 8002 | | Call 0x0,0x2 00b8 8403 | | Call 0x2,0x3 00b9 e5ff | | Load 0x2,-0x1 00ba 8004 | | Call 0x0,0x4 00bb 00d9 | | Load_Top At_Offset_1 00bc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00bd 0000 0000 | | .XXX[0x3] 00bf 0000 | | 00c0 ; -------------------------------------------------------------------------------------- 00c0 ; SUBPROGRAM 00c0 ; -------------------------------------------------------------------------------------- 00c0 00cc | | .CONST 0x00cc ; Address of begin 00c1 0004 | | .CONST 0x0004 ; Address of exception handler 00c2 0006 | | .CONST 0x0006 ; Number of locals 00c3 INIT_00c0: 00c3 e005 | | Load 0x0,0x5 00c4 0007 | | Action Break_Optional 00c5 e005 | | Load 0x0,0x5 00c6 0007 | | Action Break_Optional 00c7 e00a | | Load 0x0,0xa 00c8 0007 | | Action Break_Optional 00c9 e009 | | Load 0x0,0x9 00ca 029f 029b | | Declare_Subprogram INIT_0298,For_Call 00cc BODY_00c0: 00cc e5fc | | Load 0x2,-0x4 00cd 8002 | | Call 0x0,0x2 00ce 8406 | | Call 0x2,0x6 00cf 4800 |H | Short_Literal 0x0 00d0 a5f9 | | Store_Unchecked 0x2,-0x7 00d1 e5fc | | Load 0x2,-0x4 00d2 8004 | | Call 0x0,0x4 00d3 4505 |E | Exit_Suprogram New_Top_Offset 0x5 00d4 0000 0000 | | .BLANK 0000[0x4] 00d8 ; -------------------------------------------------------------------------------------- 00d8 ; SUBPROGRAM 00d8 ; -------------------------------------------------------------------------------------- 00d8 00e2 | | .CONST 0x00e2 ; Address of begin 00d9 0004 | | .CONST 0x0004 ; Address of exception handler 00da 0005 | | .CONST 0x0005 ; Number of locals 00db INIT_00d8: 00db e005 | | Load 0x0,0x5 00dc 0007 | | Action Break_Optional 00dd e005 | | Load 0x0,0x5 00de 0007 | | Action Break_Optional 00df e00a | | Load 0x0,0xa 00e0 029f 033b | ;| Declare_Subprogram INIT_0338,For_Call 00e2 BODY_00d8: 00e2 e5ff | | Load 0x2,-0x1 00e3 8002 | | Call 0x0,0x2 00e4 8405 | | Call 0x2,0x5 00e5 4800 |H | Short_Literal 0x0 00e6 a5fc | | Store_Unchecked 0x2,-0x4 00e7 e5ff | | Load 0x2,-0x1 00e8 8004 | | Call 0x0,0x4 00e9 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00ea 0000 0000 | | .BLANK 0000[0x6] 00f0 ; -------------------------------------------------------------------------------------- 00f0 ; SUBPROGRAM 00f0 ; -------------------------------------------------------------------------------------- 00f0 00fa | | .CONST 0x00fa ; Address of begin 00f1 0004 | | .CONST 0x0004 ; Address of exception handler 00f2 0005 | | .CONST 0x0005 ; Number of locals 00f3 INIT_00f0: 00f3 e005 | | Load 0x0,0x5 00f4 0007 | | Action Break_Optional 00f5 e005 | | Load 0x0,0x5 00f6 0007 | | Action Break_Optional 00f7 e00a | | Load 0x0,0xa 00f8 029f 03e3 | | Declare_Subprogram INIT_03e0,For_Call 00fa BODY_00f0: 00fa e5ff | | Load 0x2,-0x1 00fb 8002 | | Call 0x0,0x2 00fc 8405 | | Call 0x2,0x5 00fd e5ff | | Load 0x2,-0x1 00fe 8004 | | Call 0x0,0x4 00ff 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0100 ; -------------------------------------------------------------------------------------- 0100 ; SUBPROGRAM 0100 ; -------------------------------------------------------------------------------------- 0100 010a | | .CONST 0x010a ; Address of begin 0101 0004 | | .CONST 0x0004 ; Address of exception handler 0102 0005 | | .CONST 0x0005 ; Number of locals 0103 INIT_0100: 0103 e005 | | Load 0x0,0x5 0104 0007 | | Action Break_Optional 0105 e005 | | Load 0x0,0x5 0106 0007 | | Action Break_Optional 0107 e00a | | Load 0x0,0xa 0108 029f 047b | {| Declare_Subprogram INIT_0478,For_Call 010a BODY_0100: 010a e5ff | | Load 0x2,-0x1 010b 8002 | | Call 0x0,0x2 010c 8405 | | Call 0x2,0x5 010d e5ff | | Load 0x2,-0x1 010e 8004 | | Call 0x0,0x4 010f 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0110 ; -------------------------------------------------------------------------------------- 0110 ; SUBPROGRAM 0110 ; -------------------------------------------------------------------------------------- 0110 011a | | .CONST 0x011a ; Address of begin 0111 0004 | | .CONST 0x0004 ; Address of exception handler 0112 0005 | | .CONST 0x0005 ; Number of locals 0113 INIT_0110: 0113 e005 | | Load 0x0,0x5 0114 0007 | | Action Break_Optional 0115 e005 | | Load 0x0,0x5 0116 0007 | | Action Break_Optional 0117 e00a | | Load 0x0,0xa 0118 029f 051b | | Declare_Subprogram INIT_0518,For_Call 011a BODY_0110: 011a e5ff | | Load 0x2,-0x1 011b 8002 | | Call 0x0,0x2 011c 8405 | | Call 0x2,0x5 011d e5ff | | Load 0x2,-0x1 011e 8004 | | Call 0x0,0x4 011f 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0120 ; -------------------------------------------------------------------------------------- 0120 ; SUBPROGRAM 0120 ; -------------------------------------------------------------------------------------- 0120 012a | * | .CONST 0x012a ; Address of begin 0121 0004 | | .CONST 0x0004 ; Address of exception handler 0122 0005 | | .CONST 0x0005 ; Number of locals 0123 INIT_0120: 0123 e005 | | Load 0x0,0x5 0124 0007 | | Action Break_Optional 0125 e005 | | Load 0x0,0x5 0126 0007 | | Action Break_Optional 0127 e009 | | Load 0x0,0x9 0128 029f 05cb | | Declare_Subprogram INIT_05c8,For_Call 012a BODY_0120: 012a e5fc | | Load 0x2,-0x4 012b 8002 | | Call 0x0,0x2 012c 8405 | | Call 0x2,0x5 012d 4505 |E | Exit_Suprogram New_Top_Offset 0x5 012e 0000 0000 | | .XXX[0x2] 0130 ; -------------------------------------------------------------------------------------- 0130 ; SUBPROGRAM 0130 ; -------------------------------------------------------------------------------------- 0130 0138 | 8 | .CONST 0x0138 ; Address of begin 0131 0004 | | .CONST 0x0004 ; Address of exception handler 0132 0004 | | .CONST 0x0004 ; Number of locals 0133 INIT_0130: 0133 e005 | | Load 0x0,0x5 0134 0007 | | Action Break_Optional 0135 e005 | | Load 0x0,0x5 0136 029f 065b | [| Declare_Subprogram INIT_0658,For_Call 0138 BODY_0130: 0138 e5ff | | Load 0x2,-0x1 0139 8002 | | Call 0x0,0x2 013a 8404 | | Call 0x2,0x4 013b 4503 |E | Exit_Suprogram New_Top_Offset 0x3 013c 0000 0000 | | .BLANK 0000[0x4] 0140 ; -------------------------------------------------------------------------------------- 0140 ; SUBPROGRAM 0140 ; -------------------------------------------------------------------------------------- 0140 0146 | F | .CONST 0x0146 ; Address of begin 0141 0004 | | .CONST 0x0004 ; Address of exception handler 0142 0003 | | .CONST 0x0003 ; Number of locals 0143 INIT_0140: 0143 e005 | | Load 0x0,0x5 0144 029f 06f3 | | Declare_Subprogram INIT_06f0,For_Call 0146 BODY_0140: 0146 e5ff | | Load 0x2,-0x1 0147 8002 | | Call 0x0,0x2 0148 8403 | | Call 0x2,0x3 0149 e5ff | | Load 0x2,-0x1 014a 8004 | | Call 0x0,0x4 014b 4502 |E | Exit_Suprogram New_Top_Offset 0x2 014c 0000 0000 | | .BLANK 0000[0x4] 0150 ; -------------------------------------------------------------------------------------- 0150 ; SUBPROGRAM 0150 ; -------------------------------------------------------------------------------------- 0150 0155 | U | .CONST 0x0155 ; Address of begin 0151 0004 | | .CONST 0x0004 ; Address of exception handler 0152 0002 | | .CONST 0x0002 ; Number of locals 0153 INIT_0150: 0153 029f 0743 | C| Declare_Subprogram INIT_0740,For_Call 0155 BODY_0150: 0155 00db | | Load_Top At_Offset_3 0156 8002 | | Call 0x0,0x2 0157 8402 | | Call 0x2,0x2 0158 00db | | Load_Top At_Offset_3 0159 8004 | | Call 0x0,0x4 015a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 015b 0000 0000 | | .BLANK 0000[0x5] 0160 ; -------------------------------------------------------------------------------------- 0160 ; SUBPROGRAM 0160 ; -------------------------------------------------------------------------------------- 0160 0168 | h | .CONST 0x0168 ; Address of begin 0161 0004 | | .CONST 0x0004 ; Address of exception handler 0162 0004 | | .CONST 0x0004 ; Number of locals 0163 INIT_0160: 0163 e005 | | Load 0x0,0x5 0164 0007 | | Action Break_Optional 0165 e009 | | Load 0x0,0x9 0166 029f 075b | [| Declare_Subprogram INIT_0758,For_Call 0168 BODY_0160: 0168 e5fc | | Load 0x2,-0x4 0169 8002 | | Call 0x0,0x2 016a 8404 | | Call 0x2,0x4 016b e5fc | | Load 0x2,-0x4 016c 8004 | | Call 0x0,0x4 016d 4505 |E | Exit_Suprogram New_Top_Offset 0x5 016e 0000 0000 | | .XXX[0x2] 0170 ; -------------------------------------------------------------------------------------- 0170 ; SUBPROGRAM 0170 ; -------------------------------------------------------------------------------------- 0170 0178 | x | .CONST 0x0178 ; Address of begin 0171 0004 | | .CONST 0x0004 ; Address of exception handler 0172 0004 | | .CONST 0x0004 ; Number of locals 0173 INIT_0170: 0173 e005 | | Load 0x0,0x5 0174 0007 | | Action Break_Optional 0175 e005 | | Load 0x0,0x5 0176 029f 07bb | | Declare_Subprogram INIT_07b8,For_Call 0178 BODY_0170: 0178 e5ff | | Load 0x2,-0x1 0179 8002 | | Call 0x0,0x2 017a 8404 | | Call 0x2,0x4 017b 4504 |E | Exit_Suprogram New_Top_Offset 0x4 017c 0000 0000 | | .BLANK 0000[0x4] 0180 ; -------------------------------------------------------------------------------------- 0180 ; SUBPROGRAM 0180 ; -------------------------------------------------------------------------------------- 0180 0183 | | .CONST 0x0183 ; Address of begin 0181 01b6 | | .CONST 0x01b6 ; Address of exception handler 0182 0001 | | .CONST 0x0001 ; Number of locals 0183 BODY_0180: 0183 INIT_0180: 0183 e5ff | | Load 0x2,-0x1 0184 0227 | ' | Execute Access,All_Reference 0185 3c29 |<) | Execute Record,Field_Read,Field_Number 0x29 0186 a402 | | Store_Unchecked 0x2,0x2 0187 e402 | | Load 0x2,0x2 0188 e005 | | Load 0x0,0x5 0189 022f | / | Execute Access,Equal 018a 6807 |h | Jump_Zero 0x192 018b e005 | | Load 0x0,0x5 018c 03bc | | Declare_Variable Access,By_Allocation 018d 00d8 | | Load_Top At_Offset_0 018e 0227 | ' | Execute Access,All_Reference 018f 1c00 | | Execute_Immediate Run_Utility,0x0 0190 a402 | | Store_Unchecked 0x2,0x2 0191 7806 |x | Jump 0x198 0192 e402 | | Load 0x2,0x2 0193 0227 | ' | Execute Access,All_Reference 0194 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0195 e5ff | | Load 0x2,-0x1 0196 0227 | ' | Execute Access,All_Reference 0197 3829 |8) | Execute Record,Field_Write,Field_Number 0x29 0198 e5ff | | Load 0x2,-0x1 0199 0227 | ' | Execute Access,All_Reference 019a 3c26 |<& | Execute Record,Field_Read,Field_Number 0x26 019b e402 | | Load 0x2,0x2 019c 0227 | ' | Execute Access,All_Reference 019d 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 019e e5fe | | Load 0x2,-0x2 019f e402 | | Load 0x2,0x2 01a0 0227 | ' | Execute Access,All_Reference 01a1 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 01a2 e402 | | Load 0x2,0x2 01a3 e5ff | | Load 0x2,-0x1 01a4 0227 | ' | Execute Access,All_Reference 01a5 3826 |8& | Execute Record,Field_Write,Field_Number 0x26 01a6 e5ff | | Load 0x2,-0x1 01a7 0227 | ' | Execute Access,All_Reference 01a8 3c27 |<' | Execute Record,Field_Read,Field_Number 0x27 01a9 7004 |p | Jump_Nonzero 0x1ae 01aa e402 | | Load 0x2,0x2 01ab e5ff | | Load 0x2,-0x1 01ac 0227 | ' | Execute Access,All_Reference 01ad 3827 |8' | Execute Record,Field_Write,Field_Number 0x27 01ae e5ff | | Load 0x2,-0x1 01af 0227 | ' | Execute Access,All_Reference 01b0 3c28 |<( | Execute Record,Field_Read,Field_Number 0x28 01b1 0a01 | | Execute_Immediate Plus,0x1 01b2 e5ff | | Load 0x2,-0x1 01b3 0227 | ' | Execute Access,All_Reference 01b4 3828 |8( | Execute Record,Field_Write,Field_Number 0x28 01b5 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01b6 TRAP_0180: 01b6 0007 | | Action Break_Optional 01b7 e5ff | | Load 0x2,-0x1 01b8 8004 | | Call 0x0,0x4 01b9 00d8 | | Load_Top At_Offset_0 01ba 0101 | | Execute Exception,Reraise 01bb 0000 0000 | | .BLANK 0000[0x5] 01c0 ; -------------------------------------------------------------------------------------- 01c0 ; SUBPROGRAM 01c0 ; -------------------------------------------------------------------------------------- 01c0 01c3 | | .CONST 0x01c3 ; Address of begin 01c1 01ff | | .CONST 0x01ff ; Address of exception handler 01c2 0001 | | .CONST 0x0001 ; Number of locals 01c3 BODY_01c0: 01c3 INIT_01c0: 01c3 4804 |H | Short_Literal 0x4 01c4 e00b | | Load 0x0,0xb 01c5 0322 | " | Declare_Variable Record 01c6 4802 |H | Short_Literal 0x2 01c7 00d9 | | Load_Top At_Offset_1 01c8 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 01c9 e00b | | Load 0x0,0xb 01ca 012c | , | Execute Any,Size 01cb 09fb | | Execute_Immediate Binary_Scale,-0x5 01cc 0a01 | | Execute_Immediate Plus,0x1 01cd 00d9 | | Load_Top At_Offset_1 01ce 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 01cf 4800 |H | Short_Literal 0x0 01d0 00d9 | | Load_Top At_Offset_1 01d1 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 01d2 e5fe | | Load 0x2,-0x2 01d3 00d9 | | Load_Top At_Offset_1 01d4 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 01d5 e00b | | Load 0x0,0xb 01d6 3004 |0 | Execute Record,Field_Type,Field_Number 0x4 01d7 0337 | 7 | Declare_Variable Array 01d8 4801 |H | Short_Literal 0x1 01d9 4814 |H | Short_Literal 0x14 01da 00da | | Load_Top At_Offset_2 01db 01d6 | | Execute Vector,Field_Write 01dc 4813 |H | Short_Literal 0x13 01dd 4800 |H | Short_Literal 0x0 01de 4800 |H | Short_Literal 0x0 01df 00d9 | | Load_Top At_Offset_1 01e0 e604 | | Load 0x3,0x4 01e1 01d6 | | Execute Vector,Field_Write 01e2 3ffb |? | Loop_Increasing 0x1de 01e3 481f |H | Short_Literal 0x1f 01e4 4815 |H | Short_Literal 0x15 01e5 4800 |H | Short_Literal 0x0 01e6 00d9 | | Load_Top At_Offset_1 01e7 e604 | | Load 0x3,0x4 01e8 01d6 | | Execute Vector,Field_Write 01e9 3ffb |? | Loop_Increasing 0x1e5 01ea e00b | | Load 0x0,0xb 01eb 3004 |0 | Execute Record,Field_Type,Field_Number 0x4 01ec 0119 | | Execute Any,Check_In_Formal_Type 01ed 00d9 | | Load_Top At_Offset_1 01ee 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 01ef e5ff | | Load 0x2,-0x1 01f0 e00c | | Load 0x0,0xc 01f1 a00d | | Store_Unchecked 0x0,0xd 01f2 e00e | | Load 0x0,0xe 01f3 e00f | | Load 0x0,0xf 01f4 a010 | | Store_Unchecked 0x0,0x10 01f5 8011 | | Call 0x0,0x11 01f6 e5fd | | Load 0x2,-0x3 01f7 e5ff | | Load 0x2,-0x1 01f8 e012 | | Load 0x0,0x12 01f9 a013 | | Store_Unchecked 0x0,0x13 01fa e014 | | Load 0x0,0x14 01fb e015 | | Load 0x0,0x15 01fc a016 | | Store_Unchecked 0x0,0x16 01fd 8017 | | Call 0x0,0x17 01fe 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01ff TRAP_01c0: 01ff 0007 | | Action Break_Optional 0200 e5ff | | Load 0x2,-0x1 0201 8004 | | Call 0x0,0x4 0202 00d8 | | Load_Top At_Offset_0 0203 0101 | | Execute Exception,Reraise 0204 0000 0000 | | .BLANK 0000[0x4] 0208 ; -------------------------------------------------------------------------------------- 0208 ; SUBPROGRAM 0208 ; -------------------------------------------------------------------------------------- 0208 020b | | .CONST 0x020b ; Address of begin 0209 0254 | T | .CONST 0x0254 ; Address of exception handler 020a 0001 | | .CONST 0x0001 ; Number of locals 020b BODY_0208: 020b INIT_0208: 020b e5fb | | Load 0x2,-0x5 020c 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 020d e5ff | | Load 0x2,-0x1 020e 0227 | ' | Execute Access,All_Reference 020f 343c |4< | Execute Record,Field_Reference,Field_Number 0x3c 0210 01d7 | | Execute Vector,Field_Read 0211 a403 | | Store_Unchecked 0x2,0x3 0212 e403 | | Load 0x2,0x3 0213 e008 | | Load 0x0,0x8 0214 022f | / | Execute Access,Equal 0215 6809 |h | Jump_Zero 0x21f 0216 e018 | | Load 0x0,0x18 0217 a403 | | Store_Unchecked 0x2,0x3 0218 e403 | | Load 0x2,0x3 0219 e5fb | | Load 0x2,-0x5 021a 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 021b e5ff | | Load 0x2,-0x1 021c 0227 | ' | Execute Access,All_Reference 021d 343c |4< | Execute Record,Field_Reference,Field_Number 0x3c 021e 01d6 | | Execute Vector,Field_Write 021f e019 | | Load 0x0,0x19 0220 e402 | | Load 0x2,0x2 0221 e5fb | | Load 0x2,-0x5 0222 e5ff | | Load 0x2,-0x1 0223 e403 | | Load 0x2,0x3 0224 801a | | Call 0x0,0x1a 0225 801b | | Call 0x0,0x1b 0226 00d1 | | Pop_Control Pop_Count_1 0227 c404 | | Store 0x2,0x4 0228 e404 | | Load 0x2,0x4 0229 7003 |p | Jump_Nonzero 0x22d 022a 4800 |H | Short_Literal 0x0 022b a5fa | | Store_Unchecked 0x2,-0x6 022c 4501 |E | Exit_Suprogram New_Top_Offset 0x1 022d 4801 |H | Short_Literal 0x1 022e a5fa | | Store_Unchecked 0x2,-0x6 022f e01c | | Load 0x0,0x1c 0230 0322 | " | Declare_Variable Record 0231 4819 |H | Short_Literal 0x19 0232 00d9 | | Load_Top At_Offset_1 0233 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0234 e01c | | Load 0x0,0x1c 0235 012c | , | Execute Any,Size 0236 09fb | | Execute_Immediate Binary_Scale,-0x5 0237 00d9 | | Load_Top At_Offset_1 0238 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0239 e5fe | | Load 0x2,-0x2 023a 00d9 | | Load_Top At_Offset_1 023b 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 023c e5fd | | Load 0x2,-0x3 023d 801d | | Call 0x0,0x1d 023e 00d9 | | Load_Top At_Offset_1 023f 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0240 e5fc | | Load 0x2,-0x4 0241 e01c | | Load 0x0,0x1c 0242 3004 |0 | Execute Record,Field_Type,Field_Number 0x4 0243 0119 | | Execute Any,Check_In_Formal_Type 0244 00d9 | | Load_Top At_Offset_1 0245 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0246 e402 | | Load 0x2,0x2 0247 e01c | | Load 0x0,0x1c 0248 3005 |0 | Execute Record,Field_Type,Field_Number 0x5 0249 0119 | | Execute Any,Check_In_Formal_Type 024a 00d9 | | Load_Top At_Offset_1 024b 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 024c e5ff | | Load 0x2,-0x1 024d e01e | | Load 0x0,0x1e 024e a01f | | Store_Unchecked 0x0,0x1f 024f e020 | | Load 0x0,0x20 0250 e021 | ! | Load 0x0,0x21 0251 a022 | " | Store_Unchecked 0x0,0x22 0252 8023 | # | Call 0x0,0x23 0253 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0254 TRAP_0208: 0254 0007 | | Action Break_Optional 0255 e5ff | | Load 0x2,-0x1 0256 8004 | | Call 0x0,0x4 0257 00d8 | | Load_Top At_Offset_0 0258 0101 | | Execute Exception,Reraise 0259 0000 0000 | | .BLANK 0000[0x7] 0260 ; -------------------------------------------------------------------------------------- 0260 ; SUBPROGRAM 0260 ; -------------------------------------------------------------------------------------- 0260 0263 | c | .CONST 0x0263 ; Address of begin 0261 0274 | t | .CONST 0x0274 ; Address of exception handler 0262 0001 | | .CONST 0x0001 ; Number of locals 0263 BODY_0260: 0263 INIT_0260: 0263 e5ff | | Load 0x2,-0x1 0264 0227 | ' | Execute Access,All_Reference 0265 3c28 |<( | Execute Record,Field_Read,Field_Number 0x28 0266 0c01 | | Execute_Immediate Greater_Equal,0x1 0267 7002 |p | Jump_Nonzero 0x26a 0268 e5fe | | Load 0x2,-0x2 0269 7005 |p | Jump_Nonzero 0x26f 026a e5ff | | Load 0x2,-0x1 026b 0227 | ' | Execute Access,All_Reference 026c 3c28 |<( | Execute Record,Field_Read,Field_Number 0x28 026d a402 | | Store_Unchecked 0x2,0x2 026e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 026f e5fe | | Load 0x2,-0x2 0270 e5ff | | Load 0x2,-0x1 0271 8024 | $ | Call 0x0,0x24 0272 a402 | | Store_Unchecked 0x2,0x2 0273 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0274 TRAP_0260: 0274 0007 | | Action Break_Optional 0275 e5ff | | Load 0x2,-0x1 0276 8004 | | Call 0x0,0x4 0277 00d8 | | Load_Top At_Offset_0 0278 0101 | | Execute Exception,Reraise 0279 0000 0000 | | .BLANK 0000[0x7] 0280 ; -------------------------------------------------------------------------------------- 0280 ; SUBPROGRAM 0280 ; -------------------------------------------------------------------------------------- 0280 0283 | | .CONST 0x0283 ; Address of begin 0281 0292 | | .CONST 0x0292 ; Address of exception handler 0282 0001 | | .CONST 0x0001 ; Number of locals 0283 BODY_0280: 0283 INIT_0280: 0283 e5ff | | Load 0x2,-0x1 0284 0227 | ' | Execute Access,All_Reference 0285 3c28 |<( | Execute Record,Field_Read,Field_Number 0x28 0286 0c01 | | Execute_Immediate Greater_Equal,0x1 0287 6805 |h | Jump_Zero 0x28d 0288 e5ff | | Load 0x2,-0x1 0289 0227 | ' | Execute Access,All_Reference 028a 3c28 |<( | Execute Record,Field_Read,Field_Number 0x28 028b a402 | | Store_Unchecked 0x2,0x2 028c 4501 |E | Exit_Suprogram New_Top_Offset 0x1 028d 4802 |H | Short_Literal 0x2 028e e5ff | | Load 0x2,-0x1 028f 8024 | $ | Call 0x0,0x24 0290 a402 | | Store_Unchecked 0x2,0x2 0291 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0292 TRAP_0280: 0292 0007 | | Action Break_Optional 0293 e5ff | | Load 0x2,-0x1 0294 8004 | | Call 0x0,0x4 0295 00d8 | | Load_Top At_Offset_0 0296 0101 | | Execute Exception,Reraise 0297 0000 | | .XXX[0x1] 0298 ; -------------------------------------------------------------------------------------- 0298 ; SUBPROGRAM 0298 ; -------------------------------------------------------------------------------------- 0298 029b | | .CONST 0x029b ; Address of begin 0299 0330 | 0 | .CONST 0x0330 ; Address of exception handler 029a 0001 | | .CONST 0x0001 ; Number of locals 029b BODY_0298: 029b INIT_0298: 029b e005 | | Load 0x0,0x5 029c a402 | | Store_Unchecked 0x2,0x2 029d e5fc | | Load 0x2,-0x4 029e 0227 | ' | Execute Access,All_Reference 029f 3c26 |<& | Execute Record,Field_Read,Field_Number 0x26 02a0 a403 | | Store_Unchecked 0x2,0x3 02a1 00cf | | Action Mark_Auxiliary 02a2 4800 |H | Short_Literal 0x0 02a3 4802 |H | Short_Literal 0x2 02a4 00cf | | Action Mark_Auxiliary 02a5 7868 |xh | Jump 0x30e 02a6 e009 | | Load 0x0,0x9 02a7 0122 | " | Execute Any,Make_Root_Type 02a8 e5fa | | Load 0x2,-0x6 02a9 00d8 | | Load_Top At_Offset_0 02aa 0120 | | Execute Any,Is_Value 02ab 6803 |h | Jump_Zero 0x2af 02ac e5fd | | Load 0x2,-0x3 02ad 0122 | " | Execute Any,Make_Root_Type 02ae 011e | | Execute Any,Convert 02af e403 | | Load 0x2,0x3 02b0 0227 | ' | Execute Access,All_Reference 02b1 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 02b2 e5fc | | Load 0x2,-0x4 02b3 85fe | | Call 0x2,-0x2 02b4 c5fa | | Store 0x2,-0x6 02b5 c405 | | Store 0x2,0x5 02b6 e405 | | Load 0x2,0x5 02b7 0f01 | | Execute_Immediate Equal,0x1 02b8 684e |hN | Jump_Zero 0x307 02b9 e403 | | Load 0x2,0x3 02ba 0227 | ' | Execute Access,All_Reference 02bb 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 02bc e5fb | | Load 0x2,-0x5 02bd 016d | m | Execute Variant_Record,Structure_Write 02be e402 | | Load 0x2,0x2 02bf 680f |h | Jump_Zero 0x2cf 02c0 e403 | | Load 0x2,0x3 02c1 0227 | ' | Execute Access,All_Reference 02c2 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 02c3 e402 | | Load 0x2,0x2 02c4 0227 | ' | Execute Access,All_Reference 02c5 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 02c6 e402 | | Load 0x2,0x2 02c7 0227 | ' | Execute Access,All_Reference 02c8 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 02c9 7013 |p | Jump_Nonzero 0x2dd 02ca e402 | | Load 0x2,0x2 02cb e5fc | | Load 0x2,-0x4 02cc 0227 | ' | Execute Access,All_Reference 02cd 3827 |8' | Execute Record,Field_Write,Field_Number 0x27 02ce 780e |x | Jump 0x2dd 02cf e403 | | Load 0x2,0x3 02d0 0227 | ' | Execute Access,All_Reference 02d1 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 02d2 e5fc | | Load 0x2,-0x4 02d3 0227 | ' | Execute Access,All_Reference 02d4 3826 |8& | Execute Record,Field_Write,Field_Number 0x26 02d5 e5fc | | Load 0x2,-0x4 02d6 0227 | ' | Execute Access,All_Reference 02d7 3c26 |<& | Execute Record,Field_Read,Field_Number 0x26 02d8 7004 |p | Jump_Nonzero 0x2dd 02d9 e005 | | Load 0x0,0x5 02da e5fc | | Load 0x2,-0x4 02db 0227 | ' | Execute Access,All_Reference 02dc 3827 |8' | Execute Record,Field_Write,Field_Number 0x27 02dd e5fc | | Load 0x2,-0x4 02de 0227 | ' | Execute Access,All_Reference 02df 3c2a |<* | Execute Record,Field_Read,Field_Number 0x2a 02e0 0c64 | d | Execute_Immediate Greater_Equal,0x64 02e1 6807 |h | Jump_Zero 0x2e9 02e2 e403 | | Load 0x2,0x3 02e3 e025 | % | Load 0x0,0x25 02e4 e026 | & | Load 0x0,0x26 02e5 a027 | ' | Store_Unchecked 0x0,0x27 02e6 8028 | ( | Call 0x0,0x28 02e7 c403 | | Store 0x2,0x3 02e8 7811 |x | Jump 0x2fa 02e9 e5fc | | Load 0x2,-0x4 02ea 0227 | ' | Execute Access,All_Reference 02eb 3c29 |<) | Execute Record,Field_Read,Field_Number 0x29 02ec e403 | | Load 0x2,0x3 02ed 0227 | ' | Execute Access,All_Reference 02ee 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 02ef e403 | | Load 0x2,0x3 02f0 e5fc | | Load 0x2,-0x4 02f1 0227 | ' | Execute Access,All_Reference 02f2 3829 |8) | Execute Record,Field_Write,Field_Number 0x29 02f3 e5fc | | Load 0x2,-0x4 02f4 0227 | ' | Execute Access,All_Reference 02f5 3c2a |<* | Execute Record,Field_Read,Field_Number 0x2a 02f6 0a01 | | Execute_Immediate Plus,0x1 02f7 e5fc | | Load 0x2,-0x4 02f8 0227 | ' | Execute Access,All_Reference 02f9 382a |8* | Execute Record,Field_Write,Field_Number 0x2a 02fa e5fc | | Load 0x2,-0x4 02fb 0227 | ' | Execute Access,All_Reference 02fc 3c28 |<( | Execute Record,Field_Read,Field_Number 0x28 02fd 0aff | | Execute_Immediate Plus,-0x1 02fe e5fc | | Load 0x2,-0x4 02ff 0227 | ' | Execute Access,All_Reference 0300 3828 |8( | Execute Record,Field_Write,Field_Number 0x28 0301 e5fc | | Load 0x2,-0x4 0302 8004 | | Call 0x0,0x4 0303 4801 |H | Short_Literal 0x1 0304 a5f9 | | Store_Unchecked 0x2,-0x7 0305 00cc | | Action Pop_Block 0306 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0307 e403 | | Load 0x2,0x3 0308 a402 | | Store_Unchecked 0x2,0x2 0309 e402 | | Load 0x2,0x2 030a 0227 | ' | Execute Access,All_Reference 030b 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 030c a403 | | Store_Unchecked 0x2,0x3 030d 00c9 | | Action Pop_Auxiliary_Loop 030e e403 | | Load 0x2,0x3 030f 7796 |w | Jump_Nonzero 0x2a6 0310 00ce | | Action Pop_Auxiliary 0311 00d8 | | Load_Top At_Offset_0 0312 7002 |p | Jump_Nonzero 0x315 0313 00d2 | | Pop_Control Pop_Count_2 0314 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0315 00d8 | | Load_Top At_Offset_0 0316 0f01 | | Execute_Immediate Equal,0x1 0317 6803 |h | Jump_Zero 0x31b 0318 e5fc | | Load 0x2,-0x4 0319 8003 | | Call 0x0,0x3 031a 7807 |x | Jump 0x322 031b 00d8 | | Load_Top At_Offset_0 031c 0f02 | | Execute_Immediate Equal,0x2 031d 6804 |h | Jump_Zero 0x322 031e 4801 |H | Short_Literal 0x1 031f e5fc | | Load 0x2,-0x4 0320 8024 | $ | Call 0x0,0x24 0321 a404 | | Store_Unchecked 0x2,0x4 0322 e402 | | Load 0x2,0x2 0323 7005 |p | Jump_Nonzero 0x329 0324 e5fc | | Load 0x2,-0x4 0325 0227 | ' | Execute Access,All_Reference 0326 3c26 |<& | Execute Record,Field_Read,Field_Number 0x26 0327 a403 | | Store_Unchecked 0x2,0x3 0328 7804 |x | Jump 0x32d 0329 e402 | | Load 0x2,0x2 032a 0227 | ' | Execute Access,All_Reference 032b 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 032c a403 | | Store_Unchecked 0x2,0x3 032d 00c8 | | Action Pop_Auxiliary_Range 032e 3775 |7u | Loop_Decreasing 0x2a4 032f 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0330 TRAP_0298: 0330 0007 | | Action Break_Optional 0331 e5fc | | Load 0x2,-0x4 0332 8004 | | Call 0x0,0x4 0333 00d8 | | Load_Top At_Offset_0 0334 0101 | | Execute Exception,Reraise 0335 0000 0000 | | .XXX[0x3] 0337 0000 | | 0338 ; -------------------------------------------------------------------------------------- 0338 ; SUBPROGRAM 0338 ; -------------------------------------------------------------------------------------- 0338 033b | ; | .CONST 0x033b ; Address of begin 0339 03da | | .CONST 0x03da ; Address of exception handler 033a 0001 | | .CONST 0x0001 ; Number of locals 033b BODY_0338: 033b INIT_0338: 033b e005 | | Load 0x0,0x5 033c a402 | | Store_Unchecked 0x2,0x2 033d e5ff | | Load 0x2,-0x1 033e 0227 | ' | Execute Access,All_Reference 033f 3c26 |<& | Execute Record,Field_Read,Field_Number 0x26 0340 a403 | | Store_Unchecked 0x2,0x3 0341 00cf | | Action Mark_Auxiliary 0342 4800 |H | Short_Literal 0x0 0343 4802 |H | Short_Literal 0x2 0344 00cf | | Action Mark_Auxiliary 0345 7872 |xr | Jump 0x3b8 0346 e403 | | Load 0x2,0x3 0347 0227 | ' | Execute Access,All_Reference 0348 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0349 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 034a e029 | ) | Load 0x0,0x29 034b 01d5 | | Execute Vector,Field_Reference 034c e5fe | | Load 0x2,-0x2 034d 01d3 | | Execute Vector,And 034e e02a | * | Load 0x0,0x2a 034f 01df | | Execute Vector,Equal 0350 7060 |p` | Jump_Nonzero 0x3b1 0351 e403 | | Load 0x2,0x3 0352 0227 | ' | Execute Access,All_Reference 0353 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0354 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0355 0f06 | | Execute_Immediate Equal,0x6 0356 680c |h | Jump_Zero 0x363 0357 e5fe | | Load 0x2,-0x2 0358 e02b | + | Load 0x0,0x2b 0359 01d3 | | Execute Vector,And 035a e02a | * | Load 0x0,0x2a 035b 01df | | Execute Vector,Equal 035c 6806 |h | Jump_Zero 0x363 035d e5fe | | Load 0x2,-0x2 035e e02c | , | Load 0x0,0x2c 035f 01d3 | | Execute Vector,And 0360 e02a | * | Load 0x0,0x2a 0361 01df | | Execute Vector,Equal 0362 704e |pN | Jump_Nonzero 0x3b1 0363 e403 | | Load 0x2,0x3 0364 0227 | ' | Execute Access,All_Reference 0365 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0366 e5fd | | Load 0x2,-0x3 0367 016d | m | Execute Variant_Record,Structure_Write 0368 e402 | | Load 0x2,0x2 0369 680f |h | Jump_Zero 0x379 036a e403 | | Load 0x2,0x3 036b 0227 | ' | Execute Access,All_Reference 036c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 036d e402 | | Load 0x2,0x2 036e 0227 | ' | Execute Access,All_Reference 036f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0370 e402 | | Load 0x2,0x2 0371 0227 | ' | Execute Access,All_Reference 0372 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0373 7013 |p | Jump_Nonzero 0x387 0374 e402 | | Load 0x2,0x2 0375 e5ff | | Load 0x2,-0x1 0376 0227 | ' | Execute Access,All_Reference 0377 3827 |8' | Execute Record,Field_Write,Field_Number 0x27 0378 780e |x | Jump 0x387 0379 e403 | | Load 0x2,0x3 037a 0227 | ' | Execute Access,All_Reference 037b 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 037c e5ff | | Load 0x2,-0x1 037d 0227 | ' | Execute Access,All_Reference 037e 3826 |8& | Execute Record,Field_Write,Field_Number 0x26 037f e5ff | | Load 0x2,-0x1 0380 0227 | ' | Execute Access,All_Reference 0381 3c26 |<& | Execute Record,Field_Read,Field_Number 0x26 0382 7004 |p | Jump_Nonzero 0x387 0383 e005 | | Load 0x0,0x5 0384 e5ff | | Load 0x2,-0x1 0385 0227 | ' | Execute Access,All_Reference 0386 3827 |8' | Execute Record,Field_Write,Field_Number 0x27 0387 e5ff | | Load 0x2,-0x1 0388 0227 | ' | Execute Access,All_Reference 0389 3c2a |<* | Execute Record,Field_Read,Field_Number 0x2a 038a 0c64 | d | Execute_Immediate Greater_Equal,0x64 038b 6807 |h | Jump_Zero 0x393 038c e403 | | Load 0x2,0x3 038d e025 | % | Load 0x0,0x25 038e e026 | & | Load 0x0,0x26 038f a027 | ' | Store_Unchecked 0x0,0x27 0390 8028 | ( | Call 0x0,0x28 0391 c403 | | Store 0x2,0x3 0392 7811 |x | Jump 0x3a4 0393 e5ff | | Load 0x2,-0x1 0394 0227 | ' | Execute Access,All_Reference 0395 3c29 |<) | Execute Record,Field_Read,Field_Number 0x29 0396 e403 | | Load 0x2,0x3 0397 0227 | ' | Execute Access,All_Reference 0398 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0399 e403 | | Load 0x2,0x3 039a e5ff | | Load 0x2,-0x1 039b 0227 | ' | Execute Access,All_Reference 039c 3829 |8) | Execute Record,Field_Write,Field_Number 0x29 039d e5ff | | Load 0x2,-0x1 039e 0227 | ' | Execute Access,All_Reference 039f 3c2a |<* | Execute Record,Field_Read,Field_Number 0x2a 03a0 0a01 | | Execute_Immediate Plus,0x1 03a1 e5ff | | Load 0x2,-0x1 03a2 0227 | ' | Execute Access,All_Reference 03a3 382a |8* | Execute Record,Field_Write,Field_Number 0x2a 03a4 e5ff | | Load 0x2,-0x1 03a5 0227 | ' | Execute Access,All_Reference 03a6 3c28 |<( | Execute Record,Field_Read,Field_Number 0x28 03a7 0aff | | Execute_Immediate Plus,-0x1 03a8 e5ff | | Load 0x2,-0x1 03a9 0227 | ' | Execute Access,All_Reference 03aa 3828 |8( | Execute Record,Field_Write,Field_Number 0x28 03ab 4801 |H | Short_Literal 0x1 03ac a5fc | | Store_Unchecked 0x2,-0x4 03ad e5ff | | Load 0x2,-0x1 03ae 8004 | | Call 0x0,0x4 03af 00cc | | Action Pop_Block 03b0 4503 |E | Exit_Suprogram New_Top_Offset 0x3 03b1 e403 | | Load 0x2,0x3 03b2 a402 | | Store_Unchecked 0x2,0x2 03b3 e403 | | Load 0x2,0x3 03b4 0227 | ' | Execute Access,All_Reference 03b5 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 03b6 a403 | | Store_Unchecked 0x2,0x3 03b7 00c9 | | Action Pop_Auxiliary_Loop 03b8 e403 | | Load 0x2,0x3 03b9 778c |w | Jump_Nonzero 0x346 03ba 00ce | | Action Pop_Auxiliary 03bb 00d8 | | Load_Top At_Offset_0 03bc 7002 |p | Jump_Nonzero 0x3bf 03bd 00d2 | | Pop_Control Pop_Count_2 03be 4501 |E | Exit_Suprogram New_Top_Offset 0x1 03bf 00d8 | | Load_Top At_Offset_0 03c0 0f01 | | Execute_Immediate Equal,0x1 03c1 6803 |h | Jump_Zero 0x3c5 03c2 e5ff | | Load 0x2,-0x1 03c3 8003 | | Call 0x0,0x3 03c4 7807 |x | Jump 0x3cc 03c5 00d8 | | Load_Top At_Offset_0 03c6 0f02 | | Execute_Immediate Equal,0x2 03c7 6804 |h | Jump_Zero 0x3cc 03c8 4801 |H | Short_Literal 0x1 03c9 e5ff | | Load 0x2,-0x1 03ca 8024 | $ | Call 0x0,0x24 03cb a404 | | Store_Unchecked 0x2,0x4 03cc e402 | | Load 0x2,0x2 03cd 7005 |p | Jump_Nonzero 0x3d3 03ce e5ff | | Load 0x2,-0x1 03cf 0227 | ' | Execute Access,All_Reference 03d0 3c26 |<& | Execute Record,Field_Read,Field_Number 0x26 03d1 a403 | | Store_Unchecked 0x2,0x3 03d2 7804 |x | Jump 0x3d7 03d3 e402 | | Load 0x2,0x2 03d4 0227 | ' | Execute Access,All_Reference 03d5 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 03d6 a403 | | Store_Unchecked 0x2,0x3 03d7 00c8 | | Action Pop_Auxiliary_Range 03d8 376b |7k | Loop_Decreasing 0x344 03d9 4501 |E | Exit_Suprogram New_Top_Offset 0x1 03da TRAP_0338: 03da 0007 | | Action Break_Optional 03db e5ff | | Load 0x2,-0x1 03dc 8004 | | Call 0x0,0x4 03dd 00d8 | | Load_Top At_Offset_0 03de 0101 | | Execute Exception,Reraise 03df 0000 | | .XXX[0x1] 03e0 ; -------------------------------------------------------------------------------------- 03e0 ; SUBPROGRAM 03e0 ; -------------------------------------------------------------------------------------- 03e0 03e3 | | .CONST 0x03e3 ; Address of begin 03e1 046e | n | .CONST 0x046e ; Address of exception handler 03e2 0001 | | .CONST 0x0001 ; Number of locals 03e3 BODY_03e0: 03e3 INIT_03e0: 03e3 e005 | | Load 0x0,0x5 03e4 a402 | | Store_Unchecked 0x2,0x2 03e5 e5ff | | Load 0x2,-0x1 03e6 0227 | ' | Execute Access,All_Reference 03e7 3c26 |<& | Execute Record,Field_Read,Field_Number 0x26 03e8 a403 | | Store_Unchecked 0x2,0x3 03e9 00cf | | Action Mark_Auxiliary 03ea 4800 |H | Short_Literal 0x0 03eb 4802 |H | Short_Literal 0x2 03ec 00cf | | Action Mark_Auxiliary 03ed 785c |x\ | Jump 0x44a 03ee e403 | | Load 0x2,0x3 03ef 0227 | ' | Execute Access,All_Reference 03f0 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 03f1 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 03f2 e5fe | | Load 0x2,-0x2 03f3 027f | | Execute Discrete,Equal 03f4 684e |hN | Jump_Zero 0x443 03f5 e403 | | Load 0x2,0x3 03f6 0227 | ' | Execute Access,All_Reference 03f7 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 03f8 e5fd | | Load 0x2,-0x3 03f9 016d | m | Execute Variant_Record,Structure_Write 03fa e402 | | Load 0x2,0x2 03fb 680f |h | Jump_Zero 0x40b 03fc e403 | | Load 0x2,0x3 03fd 0227 | ' | Execute Access,All_Reference 03fe 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 03ff e402 | | Load 0x2,0x2 0400 0227 | ' | Execute Access,All_Reference 0401 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0402 e402 | | Load 0x2,0x2 0403 0227 | ' | Execute Access,All_Reference 0404 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0405 7013 |p | Jump_Nonzero 0x419 0406 e402 | | Load 0x2,0x2 0407 e5ff | | Load 0x2,-0x1 0408 0227 | ' | Execute Access,All_Reference 0409 3827 |8' | Execute Record,Field_Write,Field_Number 0x27 040a 780e |x | Jump 0x419 040b e403 | | Load 0x2,0x3 040c 0227 | ' | Execute Access,All_Reference 040d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 040e e5ff | | Load 0x2,-0x1 040f 0227 | ' | Execute Access,All_Reference 0410 3826 |8& | Execute Record,Field_Write,Field_Number 0x26 0411 e5ff | | Load 0x2,-0x1 0412 0227 | ' | Execute Access,All_Reference 0413 3c26 |<& | Execute Record,Field_Read,Field_Number 0x26 0414 7004 |p | Jump_Nonzero 0x419 0415 e005 | | Load 0x0,0x5 0416 e5ff | | Load 0x2,-0x1 0417 0227 | ' | Execute Access,All_Reference 0418 3827 |8' | Execute Record,Field_Write,Field_Number 0x27 0419 e5ff | | Load 0x2,-0x1 041a 0227 | ' | Execute Access,All_Reference 041b 3c2a |<* | Execute Record,Field_Read,Field_Number 0x2a 041c 0c64 | d | Execute_Immediate Greater_Equal,0x64 041d 6807 |h | Jump_Zero 0x425 041e e403 | | Load 0x2,0x3 041f e025 | % | Load 0x0,0x25 0420 e026 | & | Load 0x0,0x26 0421 a027 | ' | Store_Unchecked 0x0,0x27 0422 8028 | ( | Call 0x0,0x28 0423 c403 | | Store 0x2,0x3 0424 7811 |x | Jump 0x436 0425 e5ff | | Load 0x2,-0x1 0426 0227 | ' | Execute Access,All_Reference 0427 3c29 |<) | Execute Record,Field_Read,Field_Number 0x29 0428 e403 | | Load 0x2,0x3 0429 0227 | ' | Execute Access,All_Reference 042a 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 042b e403 | | Load 0x2,0x3 042c e5ff | | Load 0x2,-0x1 042d 0227 | ' | Execute Access,All_Reference 042e 3829 |8) | Execute Record,Field_Write,Field_Number 0x29 042f e5ff | | Load 0x2,-0x1 0430 0227 | ' | Execute Access,All_Reference 0431 3c2a |<* | Execute Record,Field_Read,Field_Number 0x2a 0432 0a01 | | Execute_Immediate Plus,0x1 0433 e5ff | | Load 0x2,-0x1 0434 0227 | ' | Execute Access,All_Reference 0435 382a |8* | Execute Record,Field_Write,Field_Number 0x2a 0436 e5ff | | Load 0x2,-0x1 0437 0227 | ' | Execute Access,All_Reference 0438 3c28 |<( | Execute Record,Field_Read,Field_Number 0x28 0439 0aff | | Execute_Immediate Plus,-0x1 043a e5ff | | Load 0x2,-0x1 043b 0227 | ' | Execute Access,All_Reference 043c 3828 |8( | Execute Record,Field_Write,Field_Number 0x28 043d 4801 |H | Short_Literal 0x1 043e a5fc | | Store_Unchecked 0x2,-0x4 043f e5ff | | Load 0x2,-0x1 0440 8004 | | Call 0x0,0x4 0441 00cc | | Action Pop_Block 0442 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0443 e403 | | Load 0x2,0x3 0444 a402 | | Store_Unchecked 0x2,0x2 0445 e403 | | Load 0x2,0x3 0446 0227 | ' | Execute Access,All_Reference 0447 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0448 a403 | | Store_Unchecked 0x2,0x3 0449 00c9 | | Action Pop_Auxiliary_Loop 044a e403 | | Load 0x2,0x3 044b 77a2 |w | Jump_Nonzero 0x3ee 044c 00ce | | Action Pop_Auxiliary 044d 00d8 | | Load_Top At_Offset_0 044e 7004 |p | Jump_Nonzero 0x453 044f 4800 |H | Short_Literal 0x0 0450 a5fc | | Store_Unchecked 0x2,-0x4 0451 00d2 | | Pop_Control Pop_Count_2 0452 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0453 00d8 | | Load_Top At_Offset_0 0454 0f01 | | Execute_Immediate Equal,0x1 0455 6803 |h | Jump_Zero 0x459 0456 e5ff | | Load 0x2,-0x1 0457 8003 | | Call 0x0,0x3 0458 7807 |x | Jump 0x460 0459 00d8 | | Load_Top At_Offset_0 045a 0f02 | | Execute_Immediate Equal,0x2 045b 6804 |h | Jump_Zero 0x460 045c 4801 |H | Short_Literal 0x1 045d e5ff | | Load 0x2,-0x1 045e 8024 | $ | Call 0x0,0x24 045f a404 | | Store_Unchecked 0x2,0x4 0460 e402 | | Load 0x2,0x2 0461 7005 |p | Jump_Nonzero 0x467 0462 e5ff | | Load 0x2,-0x1 0463 0227 | ' | Execute Access,All_Reference 0464 3c26 |<& | Execute Record,Field_Read,Field_Number 0x26 0465 a403 | | Store_Unchecked 0x2,0x3 0466 7804 |x | Jump 0x46b 0467 e402 | | Load 0x2,0x2 0468 0227 | ' | Execute Access,All_Reference 0469 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 046a a403 | | Store_Unchecked 0x2,0x3 046b 00c8 | | Action Pop_Auxiliary_Range 046c 377f |7 | Loop_Decreasing 0x3ec 046d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 046e TRAP_03e0: 046e 0007 | | Action Break_Optional 046f e5ff | | Load 0x2,-0x1 0470 8004 | | Call 0x0,0x4 0471 00d8 | | Load_Top At_Offset_0 0472 0101 | | Execute Exception,Reraise 0473 0000 0000 | | .BLANK 0000[0x5] 0478 ; -------------------------------------------------------------------------------------- 0478 ; SUBPROGRAM 0478 ; -------------------------------------------------------------------------------------- 0478 047b | { | .CONST 0x047b ; Address of begin 0479 050d | | .CONST 0x050d ; Address of exception handler 047a 0001 | | .CONST 0x0001 ; Number of locals 047b BODY_0478: 047b INIT_0478: 047b e005 | | Load 0x0,0x5 047c a402 | | Store_Unchecked 0x2,0x2 047d e5ff | | Load 0x2,-0x1 047e 0227 | ' | Execute Access,All_Reference 047f 3c26 |<& | Execute Record,Field_Read,Field_Number 0x26 0480 a403 | | Store_Unchecked 0x2,0x3 0481 00cf | | Action Mark_Auxiliary 0482 4800 |H | Short_Literal 0x0 0483 4802 |H | Short_Literal 0x2 0484 00cf | | Action Mark_Auxiliary 0485 7863 |xc | Jump 0x4e9 0486 e403 | | Load 0x2,0x3 0487 0227 | ' | Execute Access,All_Reference 0488 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0489 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 048a e5fd | | Load 0x2,-0x3 048b 027f | | Execute Discrete,Equal 048c 6855 |hU | Jump_Zero 0x4e2 048d e403 | | Load 0x2,0x3 048e 0227 | ' | Execute Access,All_Reference 048f 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0490 2405 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x5 0491 e5fe | | Load 0x2,-0x2 0492 017f | | Execute Record,Equal 0493 684e |hN | Jump_Zero 0x4e2 0494 e403 | | Load 0x2,0x3 0495 0227 | ' | Execute Access,All_Reference 0496 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0497 e5fc | | Load 0x2,-0x4 0498 016d | m | Execute Variant_Record,Structure_Write 0499 e402 | | Load 0x2,0x2 049a 680f |h | Jump_Zero 0x4aa 049b e403 | | Load 0x2,0x3 049c 0227 | ' | Execute Access,All_Reference 049d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 049e e402 | | Load 0x2,0x2 049f 0227 | ' | Execute Access,All_Reference 04a0 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 04a1 e402 | | Load 0x2,0x2 04a2 0227 | ' | Execute Access,All_Reference 04a3 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 04a4 7013 |p | Jump_Nonzero 0x4b8 04a5 e402 | | Load 0x2,0x2 04a6 e5ff | | Load 0x2,-0x1 04a7 0227 | ' | Execute Access,All_Reference 04a8 3827 |8' | Execute Record,Field_Write,Field_Number 0x27 04a9 780e |x | Jump 0x4b8 04aa e403 | | Load 0x2,0x3 04ab 0227 | ' | Execute Access,All_Reference 04ac 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 04ad e5ff | | Load 0x2,-0x1 04ae 0227 | ' | Execute Access,All_Reference 04af 3826 |8& | Execute Record,Field_Write,Field_Number 0x26 04b0 e5ff | | Load 0x2,-0x1 04b1 0227 | ' | Execute Access,All_Reference 04b2 3c26 |<& | Execute Record,Field_Read,Field_Number 0x26 04b3 7004 |p | Jump_Nonzero 0x4b8 04b4 e005 | | Load 0x0,0x5 04b5 e5ff | | Load 0x2,-0x1 04b6 0227 | ' | Execute Access,All_Reference 04b7 3827 |8' | Execute Record,Field_Write,Field_Number 0x27 04b8 e5ff | | Load 0x2,-0x1 04b9 0227 | ' | Execute Access,All_Reference 04ba 3c2a |<* | Execute Record,Field_Read,Field_Number 0x2a 04bb 0c64 | d | Execute_Immediate Greater_Equal,0x64 04bc 6807 |h | Jump_Zero 0x4c4 04bd e403 | | Load 0x2,0x3 04be e025 | % | Load 0x0,0x25 04bf e026 | & | Load 0x0,0x26 04c0 a027 | ' | Store_Unchecked 0x0,0x27 04c1 8028 | ( | Call 0x0,0x28 04c2 c403 | | Store 0x2,0x3 04c3 7811 |x | Jump 0x4d5 04c4 e5ff | | Load 0x2,-0x1 04c5 0227 | ' | Execute Access,All_Reference 04c6 3c29 |<) | Execute Record,Field_Read,Field_Number 0x29 04c7 e403 | | Load 0x2,0x3 04c8 0227 | ' | Execute Access,All_Reference 04c9 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 04ca e403 | | Load 0x2,0x3 04cb e5ff | | Load 0x2,-0x1 04cc 0227 | ' | Execute Access,All_Reference 04cd 3829 |8) | Execute Record,Field_Write,Field_Number 0x29 04ce e5ff | | Load 0x2,-0x1 04cf 0227 | ' | Execute Access,All_Reference 04d0 3c2a |<* | Execute Record,Field_Read,Field_Number 0x2a 04d1 0a01 | | Execute_Immediate Plus,0x1 04d2 e5ff | | Load 0x2,-0x1 04d3 0227 | ' | Execute Access,All_Reference 04d4 382a |8* | Execute Record,Field_Write,Field_Number 0x2a 04d5 e5ff | | Load 0x2,-0x1 04d6 0227 | ' | Execute Access,All_Reference 04d7 3c28 |<( | Execute Record,Field_Read,Field_Number 0x28 04d8 0aff | | Execute_Immediate Plus,-0x1 04d9 e5ff | | Load 0x2,-0x1 04da 0227 | ' | Execute Access,All_Reference 04db 3828 |8( | Execute Record,Field_Write,Field_Number 0x28 04dc 4801 |H | Short_Literal 0x1 04dd a5fb | | Store_Unchecked 0x2,-0x5 04de e5ff | | Load 0x2,-0x1 04df 8004 | | Call 0x0,0x4 04e0 00cc | | Action Pop_Block 04e1 4504 |E | Exit_Suprogram New_Top_Offset 0x4 04e2 e403 | | Load 0x2,0x3 04e3 a402 | | Store_Unchecked 0x2,0x2 04e4 e403 | | Load 0x2,0x3 04e5 0227 | ' | Execute Access,All_Reference 04e6 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 04e7 a403 | | Store_Unchecked 0x2,0x3 04e8 00c9 | | Action Pop_Auxiliary_Loop 04e9 e403 | | Load 0x2,0x3 04ea 779b |w | Jump_Nonzero 0x486 04eb 00ce | | Action Pop_Auxiliary 04ec 00d8 | | Load_Top At_Offset_0 04ed 7004 |p | Jump_Nonzero 0x4f2 04ee 4800 |H | Short_Literal 0x0 04ef a5fb | | Store_Unchecked 0x2,-0x5 04f0 00d2 | | Pop_Control Pop_Count_2 04f1 4501 |E | Exit_Suprogram New_Top_Offset 0x1 04f2 00d8 | | Load_Top At_Offset_0 04f3 0f01 | | Execute_Immediate Equal,0x1 04f4 6803 |h | Jump_Zero 0x4f8 04f5 e5ff | | Load 0x2,-0x1 04f6 8003 | | Call 0x0,0x3 04f7 7807 |x | Jump 0x4ff 04f8 00d8 | | Load_Top At_Offset_0 04f9 0f02 | | Execute_Immediate Equal,0x2 04fa 6804 |h | Jump_Zero 0x4ff 04fb 4801 |H | Short_Literal 0x1 04fc e5ff | | Load 0x2,-0x1 04fd 8024 | $ | Call 0x0,0x24 04fe a404 | | Store_Unchecked 0x2,0x4 04ff e402 | | Load 0x2,0x2 0500 7005 |p | Jump_Nonzero 0x506 0501 e5ff | | Load 0x2,-0x1 0502 0227 | ' | Execute Access,All_Reference 0503 3c26 |<& | Execute Record,Field_Read,Field_Number 0x26 0504 a403 | | Store_Unchecked 0x2,0x3 0505 7804 |x | Jump 0x50a 0506 e402 | | Load 0x2,0x2 0507 0227 | ' | Execute Access,All_Reference 0508 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0509 a403 | | Store_Unchecked 0x2,0x3 050a 00c8 | | Action Pop_Auxiliary_Range 050b 3778 |7x | Loop_Decreasing 0x484 050c 4501 |E | Exit_Suprogram New_Top_Offset 0x1 050d TRAP_0478: 050d 0007 | | Action Break_Optional 050e e5ff | | Load 0x2,-0x1 050f 8004 | | Call 0x0,0x4 0510 00d8 | | Load_Top At_Offset_0 0511 0101 | | Execute Exception,Reraise 0512 0000 0000 | | .BLANK 0000[0x6] 0518 ; -------------------------------------------------------------------------------------- 0518 ; SUBPROGRAM 0518 ; -------------------------------------------------------------------------------------- 0518 051b | | .CONST 0x051b ; Address of begin 0519 05c3 | | .CONST 0x05c3 ; Address of exception handler 051a 0001 | | .CONST 0x0001 ; Number of locals 051b BODY_0518: 051b INIT_0518: 051b e005 | | Load 0x0,0x5 051c a402 | | Store_Unchecked 0x2,0x2 051d e5ff | | Load 0x2,-0x1 051e 0227 | ' | Execute Access,All_Reference 051f 3c26 |<& | Execute Record,Field_Read,Field_Number 0x26 0520 a403 | | Store_Unchecked 0x2,0x3 0521 00cf | | Action Mark_Auxiliary 0522 4800 |H | Short_Literal 0x0 0523 4802 |H | Short_Literal 0x2 0524 00cf | | Action Mark_Auxiliary 0525 7879 |xy | Jump 0x59f 0526 e403 | | Load 0x2,0x3 0527 0227 | ' | Execute Access,All_Reference 0528 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0529 2405 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x5 052a e5fe | | Load 0x2,-0x2 052b 017f | | Execute Record,Equal 052c 706b |pk | Jump_Nonzero 0x598 052d e403 | | Load 0x2,0x3 052e 0227 | ' | Execute Access,All_Reference 052f 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0530 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0531 e029 | ) | Load 0x0,0x29 0532 01d5 | | Execute Vector,Field_Reference 0533 e5fd | | Load 0x2,-0x3 0534 01d3 | | Execute Vector,And 0535 e02a | * | Load 0x0,0x2a 0536 01df | | Execute Vector,Equal 0537 7060 |p` | Jump_Nonzero 0x598 0538 e403 | | Load 0x2,0x3 0539 0227 | ' | Execute Access,All_Reference 053a 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 053b 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 053c 0f06 | | Execute_Immediate Equal,0x6 053d 680c |h | Jump_Zero 0x54a 053e e5fd | | Load 0x2,-0x3 053f e02b | + | Load 0x0,0x2b 0540 01d3 | | Execute Vector,And 0541 e02a | * | Load 0x0,0x2a 0542 01df | | Execute Vector,Equal 0543 6806 |h | Jump_Zero 0x54a 0544 e5fd | | Load 0x2,-0x3 0545 e02c | , | Load 0x0,0x2c 0546 01d3 | | Execute Vector,And 0547 e02a | * | Load 0x0,0x2a 0548 01df | | Execute Vector,Equal 0549 704e |pN | Jump_Nonzero 0x598 054a e403 | | Load 0x2,0x3 054b 0227 | ' | Execute Access,All_Reference 054c 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 054d e5fc | | Load 0x2,-0x4 054e 016d | m | Execute Variant_Record,Structure_Write 054f e402 | | Load 0x2,0x2 0550 680f |h | Jump_Zero 0x560 0551 e403 | | Load 0x2,0x3 0552 0227 | ' | Execute Access,All_Reference 0553 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0554 e402 | | Load 0x2,0x2 0555 0227 | ' | Execute Access,All_Reference 0556 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0557 e402 | | Load 0x2,0x2 0558 0227 | ' | Execute Access,All_Reference 0559 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 055a 7013 |p | Jump_Nonzero 0x56e 055b e402 | | Load 0x2,0x2 055c e5ff | | Load 0x2,-0x1 055d 0227 | ' | Execute Access,All_Reference 055e 3827 |8' | Execute Record,Field_Write,Field_Number 0x27 055f 780e |x | Jump 0x56e 0560 e403 | | Load 0x2,0x3 0561 0227 | ' | Execute Access,All_Reference 0562 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0563 e5ff | | Load 0x2,-0x1 0564 0227 | ' | Execute Access,All_Reference 0565 3826 |8& | Execute Record,Field_Write,Field_Number 0x26 0566 e5ff | | Load 0x2,-0x1 0567 0227 | ' | Execute Access,All_Reference 0568 3c26 |<& | Execute Record,Field_Read,Field_Number 0x26 0569 7004 |p | Jump_Nonzero 0x56e 056a e005 | | Load 0x0,0x5 056b e5ff | | Load 0x2,-0x1 056c 0227 | ' | Execute Access,All_Reference 056d 3827 |8' | Execute Record,Field_Write,Field_Number 0x27 056e e5ff | | Load 0x2,-0x1 056f 0227 | ' | Execute Access,All_Reference 0570 3c2a |<* | Execute Record,Field_Read,Field_Number 0x2a 0571 0c64 | d | Execute_Immediate Greater_Equal,0x64 0572 6807 |h | Jump_Zero 0x57a 0573 e403 | | Load 0x2,0x3 0574 e025 | % | Load 0x0,0x25 0575 e026 | & | Load 0x0,0x26 0576 a027 | ' | Store_Unchecked 0x0,0x27 0577 8028 | ( | Call 0x0,0x28 0578 c403 | | Store 0x2,0x3 0579 7811 |x | Jump 0x58b 057a e5ff | | Load 0x2,-0x1 057b 0227 | ' | Execute Access,All_Reference 057c 3c29 |<) | Execute Record,Field_Read,Field_Number 0x29 057d e403 | | Load 0x2,0x3 057e 0227 | ' | Execute Access,All_Reference 057f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0580 e403 | | Load 0x2,0x3 0581 e5ff | | Load 0x2,-0x1 0582 0227 | ' | Execute Access,All_Reference 0583 3829 |8) | Execute Record,Field_Write,Field_Number 0x29 0584 e5ff | | Load 0x2,-0x1 0585 0227 | ' | Execute Access,All_Reference 0586 3c2a |<* | Execute Record,Field_Read,Field_Number 0x2a 0587 0a01 | | Execute_Immediate Plus,0x1 0588 e5ff | | Load 0x2,-0x1 0589 0227 | ' | Execute Access,All_Reference 058a 382a |8* | Execute Record,Field_Write,Field_Number 0x2a 058b e5ff | | Load 0x2,-0x1 058c 0227 | ' | Execute Access,All_Reference 058d 3c28 |<( | Execute Record,Field_Read,Field_Number 0x28 058e 0aff | | Execute_Immediate Plus,-0x1 058f e5ff | | Load 0x2,-0x1 0590 0227 | ' | Execute Access,All_Reference 0591 3828 |8( | Execute Record,Field_Write,Field_Number 0x28 0592 4801 |H | Short_Literal 0x1 0593 a5fb | | Store_Unchecked 0x2,-0x5 0594 e5ff | | Load 0x2,-0x1 0595 8004 | | Call 0x0,0x4 0596 00cc | | Action Pop_Block 0597 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0598 e403 | | Load 0x2,0x3 0599 a402 | | Store_Unchecked 0x2,0x2 059a e403 | | Load 0x2,0x3 059b 0227 | ' | Execute Access,All_Reference 059c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 059d a403 | | Store_Unchecked 0x2,0x3 059e 00c9 | | Action Pop_Auxiliary_Loop 059f e403 | | Load 0x2,0x3 05a0 7785 |w | Jump_Nonzero 0x526 05a1 00ce | | Action Pop_Auxiliary 05a2 00d8 | | Load_Top At_Offset_0 05a3 7004 |p | Jump_Nonzero 0x5a8 05a4 4800 |H | Short_Literal 0x0 05a5 a5fb | | Store_Unchecked 0x2,-0x5 05a6 00d2 | | Pop_Control Pop_Count_2 05a7 4501 |E | Exit_Suprogram New_Top_Offset 0x1 05a8 00d8 | | Load_Top At_Offset_0 05a9 0f01 | | Execute_Immediate Equal,0x1 05aa 6803 |h | Jump_Zero 0x5ae 05ab e5ff | | Load 0x2,-0x1 05ac 8003 | | Call 0x0,0x3 05ad 7807 |x | Jump 0x5b5 05ae 00d8 | | Load_Top At_Offset_0 05af 0f02 | | Execute_Immediate Equal,0x2 05b0 6804 |h | Jump_Zero 0x5b5 05b1 4801 |H | Short_Literal 0x1 05b2 e5ff | | Load 0x2,-0x1 05b3 8024 | $ | Call 0x0,0x24 05b4 a404 | | Store_Unchecked 0x2,0x4 05b5 e402 | | Load 0x2,0x2 05b6 7005 |p | Jump_Nonzero 0x5bc 05b7 e5ff | | Load 0x2,-0x1 05b8 0227 | ' | Execute Access,All_Reference 05b9 3c26 |<& | Execute Record,Field_Read,Field_Number 0x26 05ba a403 | | Store_Unchecked 0x2,0x3 05bb 7804 |x | Jump 0x5c0 05bc e402 | | Load 0x2,0x2 05bd 0227 | ' | Execute Access,All_Reference 05be 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 05bf a403 | | Store_Unchecked 0x2,0x3 05c0 00c8 | | Action Pop_Auxiliary_Range 05c1 3762 |7b | Loop_Decreasing 0x524 05c2 4501 |E | Exit_Suprogram New_Top_Offset 0x1 05c3 TRAP_0518: 05c3 0007 | | Action Break_Optional 05c4 e5ff | | Load 0x2,-0x1 05c5 8004 | | Call 0x0,0x4 05c6 00d8 | | Load_Top At_Offset_0 05c7 0101 | | Execute Exception,Reraise 05c8 ; -------------------------------------------------------------------------------------- 05c8 ; SUBPROGRAM 05c8 ; -------------------------------------------------------------------------------------- 05c8 05cb | | .CONST 0x05cb ; Address of begin 05c9 0650 | P | .CONST 0x0650 ; Address of exception handler 05ca 0001 | | .CONST 0x0001 ; Number of locals 05cb BODY_05c8: 05cb INIT_05c8: 05cb e005 | | Load 0x0,0x5 05cc a403 | | Store_Unchecked 0x2,0x3 05cd e5fc | | Load 0x2,-0x4 05ce 0227 | ' | Execute Access,All_Reference 05cf 3c26 |<& | Execute Record,Field_Read,Field_Number 0x26 05d0 a402 | | Store_Unchecked 0x2,0x2 05d1 00cf | | Action Mark_Auxiliary 05d2 00cf | | Action Mark_Auxiliary 05d3 7866 |xf | Jump 0x63a 05d4 e009 | | Load 0x0,0x9 05d5 0122 | " | Execute Any,Make_Root_Type 05d6 e5fa | | Load 0x2,-0x6 05d7 00d8 | | Load_Top At_Offset_0 05d8 0120 | | Execute Any,Is_Value 05d9 6803 |h | Jump_Zero 0x5dd 05da e5fd | | Load 0x2,-0x3 05db 0122 | " | Execute Any,Make_Root_Type 05dc 011e | | Execute Any,Convert 05dd e402 | | Load 0x2,0x2 05de 0227 | ' | Execute Access,All_Reference 05df 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 05e0 e5fc | | Load 0x2,-0x4 05e1 85fe | | Call 0x2,-0x2 05e2 c5fa | | Store 0x2,-0x6 05e3 c404 | | Store 0x2,0x4 05e4 e404 | | Load 0x2,0x4 05e5 0f01 | | Execute_Immediate Equal,0x1 05e6 684c |hL | Jump_Zero 0x633 05e7 e402 | | Load 0x2,0x2 05e8 0227 | ' | Execute Access,All_Reference 05e9 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 05ea e5fb | | Load 0x2,-0x5 05eb 016d | m | Execute Variant_Record,Structure_Write 05ec e403 | | Load 0x2,0x3 05ed 680f |h | Jump_Zero 0x5fd 05ee e402 | | Load 0x2,0x2 05ef 0227 | ' | Execute Access,All_Reference 05f0 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 05f1 e403 | | Load 0x2,0x3 05f2 0227 | ' | Execute Access,All_Reference 05f3 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 05f4 e402 | | Load 0x2,0x2 05f5 0227 | ' | Execute Access,All_Reference 05f6 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 05f7 7013 |p | Jump_Nonzero 0x60b 05f8 e403 | | Load 0x2,0x3 05f9 e5fc | | Load 0x2,-0x4 05fa 0227 | ' | Execute Access,All_Reference 05fb 3827 |8' | Execute Record,Field_Write,Field_Number 0x27 05fc 780e |x | Jump 0x60b 05fd e402 | | Load 0x2,0x2 05fe 0227 | ' | Execute Access,All_Reference 05ff 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0600 e5fc | | Load 0x2,-0x4 0601 0227 | ' | Execute Access,All_Reference 0602 3826 |8& | Execute Record,Field_Write,Field_Number 0x26 0603 e402 | | Load 0x2,0x2 0604 0227 | ' | Execute Access,All_Reference 0605 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0606 7004 |p | Jump_Nonzero 0x60b 0607 e005 | | Load 0x0,0x5 0608 e5fc | | Load 0x2,-0x4 0609 0227 | ' | Execute Access,All_Reference 060a 3827 |8' | Execute Record,Field_Write,Field_Number 0x27 060b e5fc | | Load 0x2,-0x4 060c 0227 | ' | Execute Access,All_Reference 060d 3c2a |<* | Execute Record,Field_Read,Field_Number 0x2a 060e 0c64 | d | Execute_Immediate Greater_Equal,0x64 060f 6807 |h | Jump_Zero 0x617 0610 e402 | | Load 0x2,0x2 0611 e025 | % | Load 0x0,0x25 0612 e026 | & | Load 0x0,0x26 0613 a027 | ' | Store_Unchecked 0x0,0x27 0614 8028 | ( | Call 0x0,0x28 0615 c402 | | Store 0x2,0x2 0616 7811 |x | Jump 0x628 0617 e5fc | | Load 0x2,-0x4 0618 0227 | ' | Execute Access,All_Reference 0619 3c29 |<) | Execute Record,Field_Read,Field_Number 0x29 061a e402 | | Load 0x2,0x2 061b 0227 | ' | Execute Access,All_Reference 061c 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 061d e402 | | Load 0x2,0x2 061e e5fc | | Load 0x2,-0x4 061f 0227 | ' | Execute Access,All_Reference 0620 3829 |8) | Execute Record,Field_Write,Field_Number 0x29 0621 e5fc | | Load 0x2,-0x4 0622 0227 | ' | Execute Access,All_Reference 0623 3c2a |<* | Execute Record,Field_Read,Field_Number 0x2a 0624 0a01 | | Execute_Immediate Plus,0x1 0625 e5fc | | Load 0x2,-0x4 0626 0227 | ' | Execute Access,All_Reference 0627 382a |8* | Execute Record,Field_Write,Field_Number 0x2a 0628 e5fc | | Load 0x2,-0x4 0629 0227 | ' | Execute Access,All_Reference 062a 3c28 |<( | Execute Record,Field_Read,Field_Number 0x28 062b 0aff | | Execute_Immediate Plus,-0x1 062c e5fc | | Load 0x2,-0x4 062d 0227 | ' | Execute Access,All_Reference 062e 3828 |8( | Execute Record,Field_Write,Field_Number 0x28 062f e5fc | | Load 0x2,-0x4 0630 8004 | | Call 0x0,0x4 0631 00cc | | Action Pop_Block 0632 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0633 e402 | | Load 0x2,0x2 0634 a403 | | Store_Unchecked 0x2,0x3 0635 e402 | | Load 0x2,0x2 0636 0227 | ' | Execute Access,All_Reference 0637 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0638 a402 | | Store_Unchecked 0x2,0x2 0639 00c9 | | Action Pop_Auxiliary_Loop 063a e402 | | Load 0x2,0x2 063b 7798 |w | Jump_Nonzero 0x5d4 063c 00ce | | Action Pop_Auxiliary 063d e5fc | | Load 0x2,-0x4 063e 802d | - | Call 0x0,0x2d 063f e403 | | Load 0x2,0x3 0640 7005 |p | Jump_Nonzero 0x646 0641 e5fc | | Load 0x2,-0x4 0642 0227 | ' | Execute Access,All_Reference 0643 3c26 |<& | Execute Record,Field_Read,Field_Number 0x26 0644 a402 | | Store_Unchecked 0x2,0x2 0645 7808 |x | Jump 0x64e 0646 e403 | | Load 0x2,0x3 0647 0227 | ' | Execute Access,All_Reference 0648 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0649 6804 |h | Jump_Zero 0x64e 064a e403 | | Load 0x2,0x3 064b 0227 | ' | Execute Access,All_Reference 064c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 064d a402 | | Store_Unchecked 0x2,0x2 064e 00c9 | | Action Pop_Auxiliary_Loop 064f 7f82 | | Jump 0x5d2 0650 TRAP_05c8: 0650 0007 | | Action Break_Optional 0651 e5fc | | Load 0x2,-0x4 0652 8004 | | Call 0x0,0x4 0653 00d8 | | Load_Top At_Offset_0 0654 0101 | | Execute Exception,Reraise 0655 0000 0000 | | .XXX[0x3] 0657 0000 | | 0658 ; -------------------------------------------------------------------------------------- 0658 ; SUBPROGRAM 0658 ; -------------------------------------------------------------------------------------- 0658 065b | [ | .CONST 0x065b ; Address of begin 0659 06ea | | .CONST 0x06ea ; Address of exception handler 065a 0001 | | .CONST 0x0001 ; Number of locals 065b BODY_0658: 065b INIT_0658: 065b e005 | | Load 0x0,0x5 065c a402 | | Store_Unchecked 0x2,0x2 065d e5ff | | Load 0x2,-0x1 065e 0227 | ' | Execute Access,All_Reference 065f 3c26 |<& | Execute Record,Field_Read,Field_Number 0x26 0660 a403 | | Store_Unchecked 0x2,0x3 0661 00cf | | Action Mark_Auxiliary 0662 00cf | | Action Mark_Auxiliary 0663 7870 |xp | Jump 0x6d4 0664 e403 | | Load 0x2,0x3 0665 0227 | ' | Execute Access,All_Reference 0666 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0667 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0668 e029 | ) | Load 0x0,0x29 0669 01d5 | | Execute Vector,Field_Reference 066a e5fe | | Load 0x2,-0x2 066b 01d3 | | Execute Vector,And 066c e02a | * | Load 0x0,0x2a 066d 01df | | Execute Vector,Equal 066e 705e |p^ | Jump_Nonzero 0x6cd 066f e403 | | Load 0x2,0x3 0670 0227 | ' | Execute Access,All_Reference 0671 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0672 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0673 0f06 | | Execute_Immediate Equal,0x6 0674 680c |h | Jump_Zero 0x681 0675 e5fe | | Load 0x2,-0x2 0676 e02b | + | Load 0x0,0x2b 0677 01d3 | | Execute Vector,And 0678 e02a | * | Load 0x0,0x2a 0679 01df | | Execute Vector,Equal 067a 6806 |h | Jump_Zero 0x681 067b e5fe | | Load 0x2,-0x2 067c e02b | + | Load 0x0,0x2b 067d 01d3 | | Execute Vector,And 067e e02a | * | Load 0x0,0x2a 067f 01df | | Execute Vector,Equal 0680 704c |pL | Jump_Nonzero 0x6cd 0681 e403 | | Load 0x2,0x3 0682 0227 | ' | Execute Access,All_Reference 0683 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0684 e5fd | | Load 0x2,-0x3 0685 016d | m | Execute Variant_Record,Structure_Write 0686 e402 | | Load 0x2,0x2 0687 680f |h | Jump_Zero 0x697 0688 e403 | | Load 0x2,0x3 0689 0227 | ' | Execute Access,All_Reference 068a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 068b e402 | | Load 0x2,0x2 068c 0227 | ' | Execute Access,All_Reference 068d 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 068e e402 | | Load 0x2,0x2 068f 0227 | ' | Execute Access,All_Reference 0690 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0691 7013 |p | Jump_Nonzero 0x6a5 0692 e402 | | Load 0x2,0x2 0693 e5ff | | Load 0x2,-0x1 0694 0227 | ' | Execute Access,All_Reference 0695 3827 |8' | Execute Record,Field_Write,Field_Number 0x27 0696 780e |x | Jump 0x6a5 0697 e403 | | Load 0x2,0x3 0698 0227 | ' | Execute Access,All_Reference 0699 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 069a e5ff | | Load 0x2,-0x1 069b 0227 | ' | Execute Access,All_Reference 069c 3826 |8& | Execute Record,Field_Write,Field_Number 0x26 069d e5ff | | Load 0x2,-0x1 069e 0227 | ' | Execute Access,All_Reference 069f 3c26 |<& | Execute Record,Field_Read,Field_Number 0x26 06a0 7004 |p | Jump_Nonzero 0x6a5 06a1 e005 | | Load 0x0,0x5 06a2 e5ff | | Load 0x2,-0x1 06a3 0227 | ' | Execute Access,All_Reference 06a4 3827 |8' | Execute Record,Field_Write,Field_Number 0x27 06a5 e5ff | | Load 0x2,-0x1 06a6 0227 | ' | Execute Access,All_Reference 06a7 3c2a |<* | Execute Record,Field_Read,Field_Number 0x2a 06a8 0c64 | d | Execute_Immediate Greater_Equal,0x64 06a9 6807 |h | Jump_Zero 0x6b1 06aa e403 | | Load 0x2,0x3 06ab e025 | % | Load 0x0,0x25 06ac e026 | & | Load 0x0,0x26 06ad a027 | ' | Store_Unchecked 0x0,0x27 06ae 8028 | ( | Call 0x0,0x28 06af c403 | | Store 0x2,0x3 06b0 7811 |x | Jump 0x6c2 06b1 e5ff | | Load 0x2,-0x1 06b2 0227 | ' | Execute Access,All_Reference 06b3 3c29 |<) | Execute Record,Field_Read,Field_Number 0x29 06b4 e403 | | Load 0x2,0x3 06b5 0227 | ' | Execute Access,All_Reference 06b6 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 06b7 e403 | | Load 0x2,0x3 06b8 e5ff | | Load 0x2,-0x1 06b9 0227 | ' | Execute Access,All_Reference 06ba 3829 |8) | Execute Record,Field_Write,Field_Number 0x29 06bb e5ff | | Load 0x2,-0x1 06bc 0227 | ' | Execute Access,All_Reference 06bd 3c2a |<* | Execute Record,Field_Read,Field_Number 0x2a 06be 0a01 | | Execute_Immediate Plus,0x1 06bf e5ff | | Load 0x2,-0x1 06c0 0227 | ' | Execute Access,All_Reference 06c1 382a |8* | Execute Record,Field_Write,Field_Number 0x2a 06c2 e5ff | | Load 0x2,-0x1 06c3 0227 | ' | Execute Access,All_Reference 06c4 3c28 |<( | Execute Record,Field_Read,Field_Number 0x28 06c5 0aff | | Execute_Immediate Plus,-0x1 06c6 e5ff | | Load 0x2,-0x1 06c7 0227 | ' | Execute Access,All_Reference 06c8 3828 |8( | Execute Record,Field_Write,Field_Number 0x28 06c9 e5ff | | Load 0x2,-0x1 06ca 8004 | | Call 0x0,0x4 06cb 00cc | | Action Pop_Block 06cc 4503 |E | Exit_Suprogram New_Top_Offset 0x3 06cd e403 | | Load 0x2,0x3 06ce a402 | | Store_Unchecked 0x2,0x2 06cf e403 | | Load 0x2,0x3 06d0 0227 | ' | Execute Access,All_Reference 06d1 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 06d2 a403 | | Store_Unchecked 0x2,0x3 06d3 00c9 | | Action Pop_Auxiliary_Loop 06d4 e403 | | Load 0x2,0x3 06d5 778e |w | Jump_Nonzero 0x664 06d6 00ce | | Action Pop_Auxiliary 06d7 e5ff | | Load 0x2,-0x1 06d8 802d | - | Call 0x0,0x2d 06d9 e402 | | Load 0x2,0x2 06da 7005 |p | Jump_Nonzero 0x6e0 06db e5ff | | Load 0x2,-0x1 06dc 0227 | ' | Execute Access,All_Reference 06dd 3c26 |<& | Execute Record,Field_Read,Field_Number 0x26 06de a403 | | Store_Unchecked 0x2,0x3 06df 7808 |x | Jump 0x6e8 06e0 e402 | | Load 0x2,0x2 06e1 0227 | ' | Execute Access,All_Reference 06e2 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 06e3 6804 |h | Jump_Zero 0x6e8 06e4 e402 | | Load 0x2,0x2 06e5 0227 | ' | Execute Access,All_Reference 06e6 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 06e7 a403 | | Store_Unchecked 0x2,0x3 06e8 00c9 | | Action Pop_Auxiliary_Loop 06e9 7f78 | x | Jump 0x662 06ea TRAP_0658: 06ea 0007 | | Action Break_Optional 06eb e5ff | | Load 0x2,-0x1 06ec 8004 | | Call 0x0,0x4 06ed 00d8 | | Load_Top At_Offset_0 06ee 0101 | | Execute Exception,Reraise 06ef 0000 | | .XXX[0x1] 06f0 ; -------------------------------------------------------------------------------------- 06f0 ; SUBPROGRAM 06f0 ; -------------------------------------------------------------------------------------- 06f0 06f3 | | .CONST 0x06f3 ; Address of begin 06f1 0735 | 5 | .CONST 0x0735 ; Address of exception handler 06f2 0001 | | .CONST 0x0001 ; Number of locals 06f3 BODY_06f0: 06f3 INIT_06f0: 06f3 e5ff | | Load 0x2,-0x1 06f4 0227 | ' | Execute Access,All_Reference 06f5 3c26 |<& | Execute Record,Field_Read,Field_Number 0x26 06f6 7002 |p | Jump_Nonzero 0x6f9 06f7 e5ff | | Load 0x2,-0x1 06f8 802d | - | Call 0x0,0x2d 06f9 e5ff | | Load 0x2,-0x1 06fa 0227 | ' | Execute Access,All_Reference 06fb 3c26 |<& | Execute Record,Field_Read,Field_Number 0x26 06fc a402 | | Store_Unchecked 0x2,0x2 06fd e402 | | Load 0x2,0x2 06fe 0227 | ' | Execute Access,All_Reference 06ff 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0700 e5fe | | Load 0x2,-0x2 0701 016d | m | Execute Variant_Record,Structure_Write 0702 e402 | | Load 0x2,0x2 0703 0227 | ' | Execute Access,All_Reference 0704 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0705 e5ff | | Load 0x2,-0x1 0706 0227 | ' | Execute Access,All_Reference 0707 3826 |8& | Execute Record,Field_Write,Field_Number 0x26 0708 e5ff | | Load 0x2,-0x1 0709 0227 | ' | Execute Access,All_Reference 070a 3c26 |<& | Execute Record,Field_Read,Field_Number 0x26 070b 7004 |p | Jump_Nonzero 0x710 070c e005 | | Load 0x0,0x5 070d e5ff | | Load 0x2,-0x1 070e 0227 | ' | Execute Access,All_Reference 070f 3827 |8' | Execute Record,Field_Write,Field_Number 0x27 0710 e5ff | | Load 0x2,-0x1 0711 0227 | ' | Execute Access,All_Reference 0712 3c2a |<* | Execute Record,Field_Read,Field_Number 0x2a 0713 0c64 | d | Execute_Immediate Greater_Equal,0x64 0714 6807 |h | Jump_Zero 0x71c 0715 e402 | | Load 0x2,0x2 0716 e025 | % | Load 0x0,0x25 0717 e026 | & | Load 0x0,0x26 0718 a027 | ' | Store_Unchecked 0x0,0x27 0719 8028 | ( | Call 0x0,0x28 071a c402 | | Store 0x2,0x2 071b 7811 |x | Jump 0x72d 071c e5ff | | Load 0x2,-0x1 071d 0227 | ' | Execute Access,All_Reference 071e 3c29 |<) | Execute Record,Field_Read,Field_Number 0x29 071f e402 | | Load 0x2,0x2 0720 0227 | ' | Execute Access,All_Reference 0721 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0722 e402 | | Load 0x2,0x2 0723 e5ff | | Load 0x2,-0x1 0724 0227 | ' | Execute Access,All_Reference 0725 3829 |8) | Execute Record,Field_Write,Field_Number 0x29 0726 e5ff | | Load 0x2,-0x1 0727 0227 | ' | Execute Access,All_Reference 0728 3c2a |<* | Execute Record,Field_Read,Field_Number 0x2a 0729 0a01 | | Execute_Immediate Plus,0x1 072a e5ff | | Load 0x2,-0x1 072b 0227 | ' | Execute Access,All_Reference 072c 382a |8* | Execute Record,Field_Write,Field_Number 0x2a 072d e5ff | | Load 0x2,-0x1 072e 0227 | ' | Execute Access,All_Reference 072f 3c28 |<( | Execute Record,Field_Read,Field_Number 0x28 0730 0aff | | Execute_Immediate Plus,-0x1 0731 e5ff | | Load 0x2,-0x1 0732 0227 | ' | Execute Access,All_Reference 0733 3828 |8( | Execute Record,Field_Write,Field_Number 0x28 0734 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0735 TRAP_06f0: 0735 0007 | | Action Break_Optional 0736 e5ff | | Load 0x2,-0x1 0737 8004 | | Call 0x0,0x4 0738 00d8 | | Load_Top At_Offset_0 0739 0101 | | Execute Exception,Reraise 073a 0000 0000 | | .BLANK 0000[0x6] 0740 ; -------------------------------------------------------------------------------------- 0740 ; SUBPROGRAM 0740 ; -------------------------------------------------------------------------------------- 0740 0743 | C | .CONST 0x0743 ; Address of begin 0741 0751 | Q | .CONST 0x0751 ; Address of exception handler 0742 0001 | | .CONST 0x0001 ; Number of locals 0743 BODY_0740: 0743 INIT_0740: 0743 e5ff | | Load 0x2,-0x1 0744 0227 | ' | Execute Access,All_Reference 0745 3c26 |<& | Execute Record,Field_Read,Field_Number 0x26 0746 7002 |p | Jump_Nonzero 0x749 0747 e5ff | | Load 0x2,-0x1 0748 802d | - | Call 0x0,0x2d 0749 e5ff | | Load 0x2,-0x1 074a 0227 | ' | Execute Access,All_Reference 074b 3c26 |<& | Execute Record,Field_Read,Field_Number 0x26 074c 0227 | ' | Execute Access,All_Reference 074d 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 074e e5fe | | Load 0x2,-0x2 074f 016d | m | Execute Variant_Record,Structure_Write 0750 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0751 TRAP_0740: 0751 0007 | | Action Break_Optional 0752 e5ff | | Load 0x2,-0x1 0753 8004 | | Call 0x0,0x4 0754 00d8 | | Load_Top At_Offset_0 0755 0101 | | Execute Exception,Reraise 0756 0000 0000 | | .XXX[0x2] 0758 ; -------------------------------------------------------------------------------------- 0758 ; SUBPROGRAM 0758 ; -------------------------------------------------------------------------------------- 0758 075b | [ | .CONST 0x075b ; Address of begin 0759 07b3 | | .CONST 0x07b3 ; Address of exception handler 075a 0001 | | .CONST 0x0001 ; Number of locals 075b BODY_0758: 075b INIT_0758: 075b e5fc | | Load 0x2,-0x4 075c 0227 | ' | Execute Access,All_Reference 075d 3c26 |<& | Execute Record,Field_Read,Field_Number 0x26 075e 7002 |p | Jump_Nonzero 0x761 075f e5fc | | Load 0x2,-0x4 0760 802d | - | Call 0x0,0x2d 0761 e009 | | Load 0x0,0x9 0762 0122 | " | Execute Any,Make_Root_Type 0763 e5fa | | Load 0x2,-0x6 0764 00d8 | | Load_Top At_Offset_0 0765 0120 | | Execute Any,Is_Value 0766 6803 |h | Jump_Zero 0x76a 0767 e5fd | | Load 0x2,-0x3 0768 0122 | " | Execute Any,Make_Root_Type 0769 011e | | Execute Any,Convert 076a e5fc | | Load 0x2,-0x4 076b 0227 | ' | Execute Access,All_Reference 076c 3c26 |<& | Execute Record,Field_Read,Field_Number 0x26 076d 0227 | ' | Execute Access,All_Reference 076e 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 076f e5fc | | Load 0x2,-0x4 0770 85fe | | Call 0x2,-0x2 0771 c5fa | | Store 0x2,-0x6 0772 c403 | | Store 0x2,0x3 0773 e403 | | Load 0x2,0x3 0774 0f01 | | Execute_Immediate Equal,0x1 0775 6808 |h | Jump_Zero 0x77e 0776 e5fc | | Load 0x2,-0x4 0777 0227 | ' | Execute Access,All_Reference 0778 3c26 |<& | Execute Record,Field_Read,Field_Number 0x26 0779 0227 | ' | Execute Access,All_Reference 077a 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 077b e5fb | | Load 0x2,-0x5 077c 016d | m | Execute Variant_Record,Structure_Write 077d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 077e e5fc | | Load 0x2,-0x4 077f 0227 | ' | Execute Access,All_Reference 0780 3c26 |<& | Execute Record,Field_Read,Field_Number 0x26 0781 a402 | | Store_Unchecked 0x2,0x2 0782 00cf | | Action Mark_Auxiliary 0783 00cf | | Action Mark_Auxiliary 0784 7825 |x% | Jump 0x7aa 0785 e009 | | Load 0x0,0x9 0786 0122 | " | Execute Any,Make_Root_Type 0787 e5fa | | Load 0x2,-0x6 0788 00d8 | | Load_Top At_Offset_0 0789 0120 | | Execute Any,Is_Value 078a 6803 |h | Jump_Zero 0x78e 078b e5fd | | Load 0x2,-0x3 078c 0122 | " | Execute Any,Make_Root_Type 078d 011e | | Execute Any,Convert 078e e402 | | Load 0x2,0x2 078f 0227 | ' | Execute Access,All_Reference 0790 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0791 0227 | ' | Execute Access,All_Reference 0792 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0793 e5fc | | Load 0x2,-0x4 0794 85fe | | Call 0x2,-0x2 0795 c5fa | | Store 0x2,-0x6 0796 c403 | | Store 0x2,0x3 0797 e403 | | Load 0x2,0x3 0798 0f01 | | Execute_Immediate Equal,0x1 0799 680b |h | Jump_Zero 0x7a5 079a e402 | | Load 0x2,0x2 079b 0227 | ' | Execute Access,All_Reference 079c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 079d 0227 | ' | Execute Access,All_Reference 079e 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 079f e5fb | | Load 0x2,-0x5 07a0 016d | m | Execute Variant_Record,Structure_Write 07a1 e5fc | | Load 0x2,-0x4 07a2 8004 | | Call 0x0,0x4 07a3 00cc | | Action Pop_Block 07a4 4505 |E | Exit_Suprogram New_Top_Offset 0x5 07a5 e402 | | Load 0x2,0x2 07a6 0227 | ' | Execute Access,All_Reference 07a7 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 07a8 a402 | | Store_Unchecked 0x2,0x2 07a9 00c9 | | Action Pop_Auxiliary_Loop 07aa e402 | | Load 0x2,0x2 07ab 0227 | ' | Execute Access,All_Reference 07ac 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 07ad 77d7 |w | Jump_Nonzero 0x785 07ae 00ce | | Action Pop_Auxiliary 07af e5fc | | Load 0x2,-0x4 07b0 802d | - | Call 0x0,0x2d 07b1 00c9 | | Action Pop_Auxiliary_Loop 07b2 7fd0 | | Jump 0x783 07b3 TRAP_0758: 07b3 0007 | | Action Break_Optional 07b4 e5fc | | Load 0x2,-0x4 07b5 8004 | | Call 0x0,0x4 07b6 00d8 | | Load_Top At_Offset_0 07b7 0101 | | Execute Exception,Reraise 07b8 ; -------------------------------------------------------------------------------------- 07b8 ; SUBPROGRAM 07b8 ; -------------------------------------------------------------------------------------- 07b8 07bb | | .CONST 0x07bb ; Address of begin 07b9 084d | M | .CONST 0x084d ; Address of exception handler 07ba 0001 | | .CONST 0x0001 ; Number of locals 07bb BODY_07b8: 07bb INIT_07b8: 07bb e005 | | Load 0x0,0x5 07bc a402 | | Store_Unchecked 0x2,0x2 07bd e5ff | | Load 0x2,-0x1 07be 0227 | ' | Execute Access,All_Reference 07bf 3c26 |<& | Execute Record,Field_Read,Field_Number 0x26 07c0 a403 | | Store_Unchecked 0x2,0x3 07c1 00cf | | Action Mark_Auxiliary 07c2 00cf | | Action Mark_Auxiliary 07c3 7877 |xw | Jump 0x83b 07c4 e403 | | Load 0x2,0x3 07c5 0227 | ' | Execute Access,All_Reference 07c6 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 07c7 2405 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x5 07c8 e5fe | | Load 0x2,-0x2 07c9 017f | | Execute Record,Equal 07ca 6869 |hi | Jump_Zero 0x834 07cb e403 | | Load 0x2,0x3 07cc 0227 | ' | Execute Access,All_Reference 07cd 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 07ce 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 07cf e029 | ) | Load 0x0,0x29 07d0 01d5 | | Execute Vector,Field_Reference 07d1 e5fd | | Load 0x2,-0x3 07d2 01d3 | | Execute Vector,And 07d3 e02a | * | Load 0x0,0x2a 07d4 01df | | Execute Vector,Equal 07d5 705e |p^ | Jump_Nonzero 0x834 07d6 e403 | | Load 0x2,0x3 07d7 0227 | ' | Execute Access,All_Reference 07d8 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 07d9 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 07da 0f06 | | Execute_Immediate Equal,0x6 07db 680c |h | Jump_Zero 0x7e8 07dc e5fd | | Load 0x2,-0x3 07dd e02b | + | Load 0x0,0x2b 07de 01d3 | | Execute Vector,And 07df e02a | * | Load 0x0,0x2a 07e0 01df | | Execute Vector,Equal 07e1 6806 |h | Jump_Zero 0x7e8 07e2 e5fd | | Load 0x2,-0x3 07e3 e02c | , | Load 0x0,0x2c 07e4 01d3 | | Execute Vector,And 07e5 e02a | * | Load 0x0,0x2a 07e6 01df | | Execute Vector,Equal 07e7 704c |pL | Jump_Nonzero 0x834 07e8 e403 | | Load 0x2,0x3 07e9 0227 | ' | Execute Access,All_Reference 07ea 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 07eb e5fc | | Load 0x2,-0x4 07ec 016d | m | Execute Variant_Record,Structure_Write 07ed e402 | | Load 0x2,0x2 07ee 680f |h | Jump_Zero 0x7fe 07ef e403 | | Load 0x2,0x3 07f0 0227 | ' | Execute Access,All_Reference 07f1 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 07f2 e402 | | Load 0x2,0x2 07f3 0227 | ' | Execute Access,All_Reference 07f4 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 07f5 e402 | | Load 0x2,0x2 07f6 0227 | ' | Execute Access,All_Reference 07f7 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 07f8 7013 |p | Jump_Nonzero 0x80c 07f9 e402 | | Load 0x2,0x2 07fa e5ff | | Load 0x2,-0x1 07fb 0227 | ' | Execute Access,All_Reference 07fc 3827 |8' | Execute Record,Field_Write,Field_Number 0x27 07fd 780e |x | Jump 0x80c 07fe e403 | | Load 0x2,0x3 07ff 0227 | ' | Execute Access,All_Reference 0800 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0801 e5ff | | Load 0x2,-0x1 0802 0227 | ' | Execute Access,All_Reference 0803 3826 |8& | Execute Record,Field_Write,Field_Number 0x26 0804 e5ff | | Load 0x2,-0x1 0805 0227 | ' | Execute Access,All_Reference 0806 3c26 |<& | Execute Record,Field_Read,Field_Number 0x26 0807 7004 |p | Jump_Nonzero 0x80c 0808 e005 | | Load 0x0,0x5 0809 e5ff | | Load 0x2,-0x1 080a 0227 | ' | Execute Access,All_Reference 080b 3827 |8' | Execute Record,Field_Write,Field_Number 0x27 080c e5ff | | Load 0x2,-0x1 080d 0227 | ' | Execute Access,All_Reference 080e 3c2a |<* | Execute Record,Field_Read,Field_Number 0x2a 080f 0c64 | d | Execute_Immediate Greater_Equal,0x64 0810 6807 |h | Jump_Zero 0x818 0811 e403 | | Load 0x2,0x3 0812 e025 | % | Load 0x0,0x25 0813 e026 | & | Load 0x0,0x26 0814 a027 | ' | Store_Unchecked 0x0,0x27 0815 8028 | ( | Call 0x0,0x28 0816 c403 | | Store 0x2,0x3 0817 7811 |x | Jump 0x829 0818 e5ff | | Load 0x2,-0x1 0819 0227 | ' | Execute Access,All_Reference 081a 3c29 |<) | Execute Record,Field_Read,Field_Number 0x29 081b e403 | | Load 0x2,0x3 081c 0227 | ' | Execute Access,All_Reference 081d 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 081e e403 | | Load 0x2,0x3 081f e5ff | | Load 0x2,-0x1 0820 0227 | ' | Execute Access,All_Reference 0821 3829 |8) | Execute Record,Field_Write,Field_Number 0x29 0822 e5ff | | Load 0x2,-0x1 0823 0227 | ' | Execute Access,All_Reference 0824 3c2a |<* | Execute Record,Field_Read,Field_Number 0x2a 0825 0a01 | | Execute_Immediate Plus,0x1 0826 e5ff | | Load 0x2,-0x1 0827 0227 | ' | Execute Access,All_Reference 0828 382a |8* | Execute Record,Field_Write,Field_Number 0x2a 0829 e5ff | | Load 0x2,-0x1 082a 0227 | ' | Execute Access,All_Reference 082b 3c28 |<( | Execute Record,Field_Read,Field_Number 0x28 082c 0aff | | Execute_Immediate Plus,-0x1 082d e5ff | | Load 0x2,-0x1 082e 0227 | ' | Execute Access,All_Reference 082f 3828 |8( | Execute Record,Field_Write,Field_Number 0x28 0830 e5ff | | Load 0x2,-0x1 0831 8004 | | Call 0x0,0x4 0832 00cc | | Action Pop_Block 0833 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0834 e403 | | Load 0x2,0x3 0835 a402 | | Store_Unchecked 0x2,0x2 0836 e403 | | Load 0x2,0x3 0837 0227 | ' | Execute Access,All_Reference 0838 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0839 a403 | | Store_Unchecked 0x2,0x3 083a 00c9 | | Action Pop_Auxiliary_Loop 083b e403 | | Load 0x2,0x3 083c 7787 |w | Jump_Nonzero 0x7c4 083d 00ce | | Action Pop_Auxiliary 083e e5ff | | Load 0x2,-0x1 083f 802d | - | Call 0x0,0x2d 0840 e402 | | Load 0x2,0x2 0841 7005 |p | Jump_Nonzero 0x847 0842 e5ff | | Load 0x2,-0x1 0843 0227 | ' | Execute Access,All_Reference 0844 3c26 |<& | Execute Record,Field_Read,Field_Number 0x26 0845 a403 | | Store_Unchecked 0x2,0x3 0846 7804 |x | Jump 0x84b 0847 e402 | | Load 0x2,0x2 0848 0227 | ' | Execute Access,All_Reference 0849 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 084a a403 | | Store_Unchecked 0x2,0x3 084b 00c9 | | Action Pop_Auxiliary_Loop 084c 7f75 | u | Jump 0x7c2 084d TRAP_07b8: 084d 0007 | | Action Break_Optional 084e e5ff | | Load 0x2,-0x1 084f 8004 | | Call 0x0,0x4 0850 00d8 | | Load_Top At_Offset_0 0851 0101 | | Execute Exception,Reraise 0852 0000 0000 | | .BLANK 0000[0x6] 0858 ; -------------------------------------------------------------------------------------- 0858 ; Debug Table 0858 ; -------------------------------------------------------------------------------------- 0858 0004 0000 | | .DEBUG4 0x0004,0x0000,0x68d9,0x0000,0x0001,0x0023 085e 000b 08ea | | .DBG4T 0x000b,0x08ea,0x8000,0x0000 0862 002e 08fd | . | .DBG4T 0x002e,0x08fd,0x8000,0x0000 0866 005b 0910 | [ | .DBG4T 0x005b,0x0910,0x0001,0x0000 086a 006b 0915 | k | .DBG4T 0x006b,0x0915,0x0001,0x0000 086e 007b 091b | { | .DBG4T 0x007b,0x091b,0x0001,0x0000 0872 008b 0921 | !| .DBG4T 0x008b,0x0921,0x0001,0x0000 0876 00a3 092a | *| .DBG4T 0x00a3,0x092a,0x0002,0x0000 087a 00b3 0931 | 1| .DBG4T 0x00b3,0x0931,0x0002,0x0000 087e 00c3 0938 | 8| .DBG4T 0x00c3,0x0938,0x2801,0x0002 0882 00db 0942 | B| .DBG4T 0x00db,0x0942,0x0001,0x0000 0886 00f3 094b | K| .DBG4T 0x00f3,0x094b,0x0001,0x0000 088a 0103 0953 | S| .DBG4T 0x0103,0x0953,0x0001,0x0000 088e 0113 095b | [| .DBG4T 0x0113,0x095b,0x0001,0x0000 0892 0123 0963 | # c| .DBG4T 0x0123,0x0963,0x2801,0x0002 0896 0133 096a | 3 j| .DBG4T 0x0133,0x096a,0x0001,0x0000 089a 0143 0970 | C p| .DBG4T 0x0143,0x0970,0x0001,0x0000 089e 0153 0976 | S v| .DBG4T 0x0153,0x0976,0x0001,0x0000 08a2 0163 097b | c {| .DBG4T 0x0163,0x097b,0x2801,0x0002 08a6 0173 0982 | s | .DBG4T 0x0173,0x0982,0x0001,0x0000 08aa 0183 0988 | | .DBG4T 0x0183,0x0988,0x0004,0x0000 08ae 01c3 0996 | | .DBG4T 0x01c3,0x0996,0x0004,0x0000 08b2 020b 099c | | .DBG4T 0x020b,0x099c,0x0004,0x0000 08b6 0263 09a9 | c | .DBG4T 0x0263,0x09a9,0x0004,0x0000 08ba 0283 09b0 | | .DBG4T 0x0283,0x09b0,0x0004,0x0000 08be 029b 09b7 | | .DBG4T 0x029b,0x09b7,0x0804,0x4002 08c2 033b 0a01 | ; | .DBG4T 0x033b,0x0a01,0x0004,0x4000 08c6 03e3 0a49 | I| .DBG4T 0x03e3,0x0a49,0x0004,0x4000 08ca 047b 0a93 | { | .DBG4T 0x047b,0x0a93,0x0004,0x4000 08ce 051b 0add | | .DBG4T 0x051b,0x0add,0x0004,0x4000 08d2 05cb 0b27 | '| .DBG4T 0x05cb,0x0b27,0x0804,0x4002 08d6 065b 0b67 | [ g| .DBG4T 0x065b,0x0b67,0x0004,0x4000 08da 06f3 0ba5 | | .DBG4T 0x06f3,0x0ba5,0x0004,0x0000 08de 0743 0bb6 | C | .DBG4T 0x0743,0x0bb6,0x0004,0x0000 08e2 075b 0bbd | [ | .DBG4T 0x075b,0x0bbd,0x0804,0x4002 08e6 07bb 0be1 | | .DBG4T 0x07bb,0x0be1,0x0004,0x4000 08ea ; -------------------------------------------------------------------------------------- 08ea ; Debug chain 08ea ; -------------------------------------------------------------------------------------- 08ea 0011 0000 | | .DBGLEN 0x0011,0x0000 08ec 000b 000d | | .DBGLNO 0x000b,0x000d,0x000f,0x0011,0x0013,0x0015,0x0017,0x0019,0x001b,0x001d,0x001f,0x0021,0x0023,0x0025,0x0027,0x0029,0x002b 08fd ; -------------------------------------------------------------------------------------- 08fd ; Debug chain 08fd ; -------------------------------------------------------------------------------------- 08fd 0011 0000 | | .DBGLEN 0x0011,0x0000 08ff 002e 0030 | . 0| .DBGLNO 0x002e,0x0030,0x0032,0x0034,0x0036,0x0038,0x003a,0x003c,0x003e,0x0040,0x0042,0x0044,0x0046,0x0048,0x004a,0x004c,0x004e 0910 ; -------------------------------------------------------------------------------------- 0910 ; Debug chain 0910 ; -------------------------------------------------------------------------------------- 0910 0000 0003 | | .DBGLEN 0x0000,0x0003 0912 005b 005d | [ ]| .DBGLNO 0x005b,0x005d,0x005f 0915 ; -------------------------------------------------------------------------------------- 0915 ; Debug chain 0915 ; -------------------------------------------------------------------------------------- 0915 0001 0003 | | .DBGLEN 0x0001,0x0003 0917 006b 006e | k n| .DBGLNO 0x006b,0x006e,0x0070,0x0071 091b ; -------------------------------------------------------------------------------------- 091b ; Debug chain 091b ; -------------------------------------------------------------------------------------- 091b 0000 0004 | | .DBGLEN 0x0000,0x0004 091d 007d 007f | } | .DBGLNO 0x007d,0x007f,0x0080,0x0082 0921 ; -------------------------------------------------------------------------------------- 0921 ; Debug chain 0921 ; -------------------------------------------------------------------------------------- 0921 0003 0004 | | .DBGLEN 0x0003,0x0004 0923 008b 0091 | | .DBGLNO 0x008b,0x0091,0x0093,0x0096,0x0098,0x0099,0x009b 092a ; -------------------------------------------------------------------------------------- 092a ; Debug chain 092a ; -------------------------------------------------------------------------------------- 092a 0001 0004 | | .DBGLEN 0x0001,0x0004 092c 00a3 00a6 | | .DBGLNO 0x00a3,0x00a6,0x00a8,0x00a9,0x00ab 0931 ; -------------------------------------------------------------------------------------- 0931 ; Debug chain 0931 ; -------------------------------------------------------------------------------------- 0931 0001 0004 | | .DBGLEN 0x0001,0x0004 0933 00b3 00b6 | | .DBGLNO 0x00b3,0x00b6,0x00b8,0x00b9,0x00bb 0938 ; -------------------------------------------------------------------------------------- 0938 ; Debug chain 0938 ; -------------------------------------------------------------------------------------- 0938 0004 0004 | | .DBGLEN 0x0004,0x0004 093a 00c3 00c5 | | .DBGLNO 0x00c3,0x00c5,0x00c7,0x00c9,0x00cc,0x00ce,0x00cf,0x00d1 0942 ; -------------------------------------------------------------------------------------- 0942 ; Debug chain 0942 ; -------------------------------------------------------------------------------------- 0942 0003 0004 | | .DBGLEN 0x0003,0x0004 0944 00db 00dd | | .DBGLNO 0x00db,0x00dd,0x00df,0x00e2,0x00e4,0x00e5,0x00e7 094b ; -------------------------------------------------------------------------------------- 094b ; Debug chain 094b ; -------------------------------------------------------------------------------------- 094b 0003 0003 | | .DBGLEN 0x0003,0x0003 094d 00f3 00f5 | | .DBGLNO 0x00f3,0x00f5,0x00f7,0x00fa,0x00fc,0x00fd 0953 ; -------------------------------------------------------------------------------------- 0953 ; Debug chain 0953 ; -------------------------------------------------------------------------------------- 0953 0003 0003 | | .DBGLEN 0x0003,0x0003 0955 0103 0105 | | .DBGLNO 0x0103,0x0105,0x0107,0x010a,0x010c,0x010d 095b ; -------------------------------------------------------------------------------------- 095b ; Debug chain 095b ; -------------------------------------------------------------------------------------- 095b 0003 0003 | | .DBGLEN 0x0003,0x0003 095d 0113 0115 | | .DBGLNO 0x0113,0x0115,0x0117,0x011a,0x011c,0x011d 0963 ; -------------------------------------------------------------------------------------- 0963 ; Debug chain 0963 ; -------------------------------------------------------------------------------------- 0963 0003 0002 | | .DBGLEN 0x0003,0x0002 0965 0123 0125 | # %| .DBGLNO 0x0123,0x0125,0x0127,0x012a,0x012c 096a ; -------------------------------------------------------------------------------------- 096a ; Debug chain 096a ; -------------------------------------------------------------------------------------- 096a 0002 0002 | | .DBGLEN 0x0002,0x0002 096c 0133 0135 | 3 5| .DBGLNO 0x0133,0x0135,0x0138,0x013a 0970 ; -------------------------------------------------------------------------------------- 0970 ; Debug chain 0970 ; -------------------------------------------------------------------------------------- 0970 0001 0003 | | .DBGLEN 0x0001,0x0003 0972 0143 0146 | C F| .DBGLNO 0x0143,0x0146,0x0148,0x0149 0976 ; -------------------------------------------------------------------------------------- 0976 ; Debug chain 0976 ; -------------------------------------------------------------------------------------- 0976 0000 0003 | | .DBGLEN 0x0000,0x0003 0978 0155 0157 | U W| .DBGLNO 0x0155,0x0157,0x0158 097b ; -------------------------------------------------------------------------------------- 097b ; Debug chain 097b ; -------------------------------------------------------------------------------------- 097b 0002 0003 | | .DBGLEN 0x0002,0x0003 097d 0163 0165 | c e| .DBGLNO 0x0163,0x0165,0x0168,0x016a,0x016b 0982 ; -------------------------------------------------------------------------------------- 0982 ; Debug chain 0982 ; -------------------------------------------------------------------------------------- 0982 0002 0002 | | .DBGLEN 0x0002,0x0002 0984 0173 0175 | s u| .DBGLNO 0x0173,0x0175,0x0178,0x017a 0988 ; -------------------------------------------------------------------------------------- 0988 ; Debug chain 0988 ; -------------------------------------------------------------------------------------- 0988 0000 000c | | .DBGLEN 0x0000,0x000c 098a 0183 0187 | | .DBGLNO 0x0183,0x0187,0x018b,0x0192,0x0198,0x019e,0x01a2,0x01a6,0x01aa,0x01ae,0x01b7,0x01b9 0996 ; -------------------------------------------------------------------------------------- 0996 ; Debug chain 0996 ; -------------------------------------------------------------------------------------- 0996 0000 0004 | | .DBGLEN 0x0000,0x0004 0998 01c3 01f6 | | .DBGLNO 0x01c3,0x01f6,0x0200,0x0202 099c ; -------------------------------------------------------------------------------------- 099c ; Debug chain 099c ; -------------------------------------------------------------------------------------- 099c 0000 000b | | .DBGLEN 0x0000,0x000b 099e 020b 0212 | | .DBGLNO 0x020b,0x0212,0x0216,0x0218,0x021f,0x0228,0x022a,0x022d,0x022f,0x0255,0x0257 09a9 ; -------------------------------------------------------------------------------------- 09a9 ; Debug chain 09a9 ; -------------------------------------------------------------------------------------- 09a9 0000 0005 | | .DBGLEN 0x0000,0x0005 09ab 0263 026a | c j| .DBGLNO 0x0263,0x026a,0x026f,0x0275,0x0277 09b0 ; -------------------------------------------------------------------------------------- 09b0 ; Debug chain 09b0 ; -------------------------------------------------------------------------------------- 09b0 0000 0005 | | .DBGLEN 0x0000,0x0005 09b2 0283 0288 | | .DBGLNO 0x0283,0x0288,0x028d,0x0293,0x0295 09b7 ; -------------------------------------------------------------------------------------- 09b7 ; Debug chain 09b7 ; -------------------------------------------------------------------------------------- 09b7 0000 0024 | $| .DBGLEN 0x0000,0x0024 09b9 029b 029d | | .DBGLNO 0x029b,0x029d,0x02a2,0x02a6,0x02b6,0x02b9,0x02be,0x02c0,0x02c6,0x02ca,0x02cf,0x02d5,0x02d9,0x02dd,0x02e2,0x02e9,0x02ef,0x02f3,0x02fa,0x0301,0x0303,0x0305,0x0307,0x0309,0x030e,0x0311,0x0313,0x0315,0x0318,0x031b,0x031e,0x0322,0x0324,0x0329,0x0331,0x0333 09dd 0001 0002 | | .XXX[0x24] 09df 0003 0005 | | 09e1 0006 0007 | | 09e3 0008 0009 | | 09e5 000a 000b | | 09e7 000c 000d | | 09e9 000e 000f | | 09eb 0010 0011 | | 09ed 0012 0013 | | 09ef 0014 0015 | | 09f1 0016 0017 | | 09f3 0018 0019 | | 09f5 0004 001a | | 09f7 001b 001c | | 09f9 001d 001e | | 09fb 001f 0020 | | 09fd 0021 0022 | ! "| 09ff 0023 0024 | # $| 0a01 ; -------------------------------------------------------------------------------------- 0a01 ; Debug chain 0a01 ; -------------------------------------------------------------------------------------- 0a01 0000 0023 | #| .DBGLEN 0x0000,0x0023 0a03 033b 033d | ; =| .DBGLNO 0x033b,0x033d,0x0342,0x0346,0x0363,0x0368,0x036a,0x0370,0x0374,0x0379,0x037f,0x0383,0x0387,0x038c,0x0393,0x0399,0x039d,0x03a4,0x03ab,0x03ad,0x03af,0x03b1,0x03b3,0x03b8,0x03bb,0x03bd,0x03bf,0x03c2,0x03c5,0x03c8,0x03cc,0x03ce,0x03d3,0x03db,0x03dd 0a26 0001 0002 | | .XXX[0x23] 0a28 0003 0005 | | 0a2a 0006 0007 | | 0a2c 0008 0009 | | 0a2e 000a 000b | | 0a30 000c 000d | | 0a32 000e 000f | | 0a34 0010 0011 | | 0a36 0012 0013 | | 0a38 0014 0015 | | 0a3a 0016 0017 | | 0a3c 0018 0004 | | 0a3e 0019 001a | | 0a40 001b 001c | | 0a42 001d 001e | | 0a44 001f 0020 | | 0a46 0021 0022 | ! "| 0a48 0023 | # | 0a49 ; -------------------------------------------------------------------------------------- 0a49 ; Debug chain 0a49 ; -------------------------------------------------------------------------------------- 0a49 0000 0024 | $| .DBGLEN 0x0000,0x0024 0a4b 03e3 03e5 | | .DBGLNO 0x03e3,0x03e5,0x03ea,0x03ee,0x03f5,0x03fa,0x03fc,0x0402,0x0406,0x040b,0x0411,0x0415,0x0419,0x041e,0x0425,0x042b,0x042f,0x0436,0x043d,0x043f,0x0441,0x0443,0x0445,0x044a,0x044d,0x044f,0x0451,0x0453,0x0456,0x0459,0x045c,0x0460,0x0462,0x0467,0x046f,0x0471 0a6f 0001 0002 | | .XXX[0x24] 0a71 0003 0005 | | 0a73 0006 0007 | | 0a75 0008 0009 | | 0a77 000a 000b | | 0a79 000c 000d | | 0a7b 000e 000f | | 0a7d 0010 0011 | | 0a7f 0012 0013 | | 0a81 0014 0015 | | 0a83 0016 0017 | | 0a85 0018 0004 | | 0a87 0019 001a | | 0a89 001b 001c | | 0a8b 001d 001e | | 0a8d 001f 0020 | | 0a8f 0021 0022 | ! "| 0a91 0023 0024 | # $| 0a93 ; -------------------------------------------------------------------------------------- 0a93 ; Debug chain 0a93 ; -------------------------------------------------------------------------------------- 0a93 0000 0024 | $| .DBGLEN 0x0000,0x0024 0a95 047b 047d | { }| .DBGLNO 0x047b,0x047d,0x0482,0x0486,0x0494,0x0499,0x049b,0x04a1,0x04a5,0x04aa,0x04b0,0x04b4,0x04b8,0x04bd,0x04c4,0x04ca,0x04ce,0x04d5,0x04dc,0x04de,0x04e0,0x04e2,0x04e4,0x04e9,0x04ec,0x04ee,0x04f0,0x04f2,0x04f5,0x04f8,0x04fb,0x04ff,0x0501,0x0506,0x050e,0x0510 0ab9 0001 0002 | | .XXX[0x24] 0abb 0003 0005 | | 0abd 0006 0007 | | 0abf 0008 0009 | | 0ac1 000a 000b | | 0ac3 000c 000d | | 0ac5 000e 000f | | 0ac7 0010 0011 | | 0ac9 0012 0013 | | 0acb 0014 0015 | | 0acd 0016 0017 | | 0acf 0018 0004 | | 0ad1 0019 001a | | 0ad3 001b 001c | | 0ad5 001d 001e | | 0ad7 001f 0020 | | 0ad9 0021 0022 | ! "| 0adb 0023 0024 | # $| 0add ; -------------------------------------------------------------------------------------- 0add ; Debug chain 0add ; -------------------------------------------------------------------------------------- 0add 0000 0024 | $| .DBGLEN 0x0000,0x0024 0adf 051b 051d | | .DBGLNO 0x051b,0x051d,0x0522,0x0526,0x054a,0x054f,0x0551,0x0557,0x055b,0x0560,0x0566,0x056a,0x056e,0x0573,0x057a,0x0580,0x0584,0x058b,0x0592,0x0594,0x0596,0x0598,0x059a,0x059f,0x05a2,0x05a4,0x05a6,0x05a8,0x05ab,0x05ae,0x05b1,0x05b5,0x05b7,0x05bc,0x05c4,0x05c6 0b03 0001 0002 | | .XXX[0x24] 0b05 0003 0005 | | 0b07 0006 0007 | | 0b09 0008 0009 | | 0b0b 000a 000b | | 0b0d 000c 000d | | 0b0f 000e 000f | | 0b11 0010 0011 | | 0b13 0012 0013 | | 0b15 0014 0015 | | 0b17 0016 0017 | | 0b19 0018 0004 | | 0b1b 0019 001a | | 0b1d 001b 001c | | 0b1f 001d 001e | | 0b21 001f 0020 | | 0b23 0021 0022 | ! "| 0b25 0023 0024 | # $| 0b27 ; -------------------------------------------------------------------------------------- 0b27 ; Debug chain 0b27 ; -------------------------------------------------------------------------------------- 0b27 0000 001f | | .DBGLEN 0x0000,0x001f 0b29 05cb 05cd | | .DBGLNO 0x05cb,0x05cd,0x05d2,0x05d4,0x05e4,0x05e7,0x05ec,0x05ee,0x05f4,0x05f8,0x05fd,0x0603,0x0607,0x060b,0x0610,0x0617,0x061d,0x0621,0x0628,0x062f,0x0631,0x0633,0x0635,0x063a,0x063d,0x063f,0x0641,0x0646,0x064a,0x0651,0x0653 0b48 0001 0002 | | .XXX[0x1f] 0b4a 0003 0005 | | 0b4c 0006 0007 | | 0b4e 0008 0009 | | 0b50 000a 000b | | 0b52 000c 000d | | 0b54 000e 000f | | 0b56 0010 0011 | | 0b58 0012 0013 | | 0b5a 0014 0015 | | 0b5c 0016 0017 | | 0b5e 0018 0004 | | 0b60 0019 001a | | 0b62 001b 001c | | 0b64 001d 001e | | 0b66 001f | | 0b67 ; -------------------------------------------------------------------------------------- 0b67 ; Debug chain 0b67 ; -------------------------------------------------------------------------------------- 0b67 0000 001e | | .DBGLEN 0x0000,0x001e 0b69 065b 065d | [ ]| .DBGLNO 0x065b,0x065d,0x0662,0x0664,0x0681,0x0686,0x0688,0x068e,0x0692,0x0697,0x069d,0x06a1,0x06a5,0x06aa,0x06b1,0x06b7,0x06bb,0x06c2,0x06c9,0x06cb,0x06cd,0x06cf,0x06d4,0x06d7,0x06d9,0x06db,0x06e0,0x06e4,0x06eb,0x06ed 0b87 0001 0002 | | .XXX[0x1e] 0b89 0003 0005 | | 0b8b 0006 0007 | | 0b8d 0008 0009 | | 0b8f 000a 000b | | 0b91 000c 000d | | 0b93 000e 000f | | 0b95 0010 0011 | | 0b97 0012 0013 | | 0b99 0014 0015 | | 0b9b 0016 0017 | | 0b9d 0004 0018 | | 0b9f 0019 001a | | 0ba1 001b 001c | | 0ba3 001d 001e | | 0ba5 ; -------------------------------------------------------------------------------------- 0ba5 ; Debug chain 0ba5 ; -------------------------------------------------------------------------------------- 0ba5 0000 000f | | .DBGLEN 0x0000,0x000f 0ba7 06f3 06f7 | | .DBGLNO 0x06f3,0x06f7,0x06f9,0x06fd,0x0702,0x0708,0x070c,0x0710,0x0715,0x071c,0x0722,0x0726,0x072d,0x0736,0x0738 0bb6 ; -------------------------------------------------------------------------------------- 0bb6 ; Debug chain 0bb6 ; -------------------------------------------------------------------------------------- 0bb6 0000 0005 | | .DBGLEN 0x0000,0x0005 0bb8 0743 0747 | C G| .DBGLNO 0x0743,0x0747,0x0749,0x0752,0x0754 0bbd ; -------------------------------------------------------------------------------------- 0bbd ; Debug chain 0bbd ; -------------------------------------------------------------------------------------- 0bbd 0000 0011 | | .DBGLEN 0x0000,0x0011 0bbf 075b 075f | [ _| .DBGLNO 0x075b,0x075f,0x0761,0x0773,0x0776,0x077e,0x0783,0x0785,0x0797,0x079a,0x07a1,0x07a3,0x07a5,0x07aa,0x07af,0x07b4,0x07b6 0bd0 0001 0002 | | .XXX[0x11] 0bd2 0003 0004 | | 0bd4 0005 0006 | | 0bd6 0007 0009 | | 0bd8 000a 000b | | 0bda 000c 000d | | 0bdc 000e 0008 | | 0bde 000f 0010 | | 0be0 0011 | | 0be1 ; -------------------------------------------------------------------------------------- 0be1 ; Debug chain 0be1 ; -------------------------------------------------------------------------------------- 0be1 0000 001d | | .DBGLEN 0x0000,0x001d 0be3 07bb 07bd | | .DBGLNO 0x07bb,0x07bd,0x07c2,0x07c4,0x07e8,0x07ed,0x07ef,0x07f5,0x07f9,0x07fe,0x0804,0x0808,0x080c,0x0811,0x0818,0x081e,0x0822,0x0829,0x0830,0x0832,0x0834,0x0836,0x083b,0x083e,0x0840,0x0842,0x0847,0x084e,0x0850 0c00 0001 0002 | | .XXX[0x1d] 0c02 0003 0005 | | 0c04 0006 0007 | | 0c06 0008 0009 | | 0c08 000a 000b | | 0c0a 000c 000d | | 0c0c 000e 000f | | 0c0e 0010 0011 | | 0c10 0012 0013 | | 0c12 0014 0015 | | 0c14 0016 0017 | | 0c16 0004 0018 | | 0c18 0019 001a | | 0c1a 001b 001c | | 0c1c 001d | | 0c1d 0000 0000 | | .BLANK 0000[0x1e3]