|
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: 5120 (0x1400) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_1884fe
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦5a81ac88f⟧ »Space Info Vol 1« └─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0670 | p | .CONST 0x0670 ; 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 0004 | | .CONST 0x0004 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 00b3 | | .CONST 0x00b3 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0047 | G | .CONST 0x0047 ; Number of locals 000b INIT_0008: 000b e001 | | Load 0x0,0x1 000c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 000d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 000e 0129 | ) | Execute Any,Make_Visible 000f e001 | | Load 0x0,0x1 0010 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0011 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 0012 0129 | ) | Execute Any,Make_Visible 0013 029a 00bb | | Declare_Subprogram INIT_00b8,For_Outer_Call,Visible,Unelaborated 0015 029a 00c3 | | Declare_Subprogram INIT_00c0,For_Outer_Call,Visible,Unelaborated 0017 029a 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call,Visible,Unelaborated 0019 029a 00d3 | | Declare_Subprogram INIT_00d0,For_Outer_Call,Visible,Unelaborated 001b 029a 010b | | Declare_Subprogram INIT_0108,For_Outer_Call,Visible,Unelaborated 001d 029a 013b | ;| Declare_Subprogram INIT_0138,For_Outer_Call,Visible,Unelaborated 001f 029a 014b | K| Declare_Subprogram INIT_0148,For_Outer_Call,Visible,Unelaborated 0021 029a 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call,Visible,Unelaborated 0023 029a 0183 | | Declare_Subprogram INIT_0180,For_Outer_Call,Visible,Unelaborated 0025 029a 01f3 | | Declare_Subprogram INIT_01f0,For_Outer_Call,Visible,Unelaborated 0027 029a 0223 | #| Declare_Subprogram INIT_0220,For_Outer_Call,Visible,Unelaborated 0029 029a 023b | ;| Declare_Subprogram INIT_0238,For_Outer_Call,Visible,Unelaborated 002b 029a 026b | k| Declare_Subprogram INIT_0268,For_Outer_Call,Visible,Unelaborated 002d 029a 0283 | | Declare_Subprogram INIT_0280,For_Outer_Call,Visible,Unelaborated 002f 029a 02b3 | | Declare_Subprogram INIT_02b0,For_Outer_Call,Visible,Unelaborated 0031 029a 02cb | | Declare_Subprogram INIT_02c8,For_Outer_Call,Visible,Unelaborated 0033 029a 02fb | | Declare_Subprogram INIT_02f8,For_Outer_Call,Visible,Unelaborated 0035 029a 0323 | #| Declare_Subprogram INIT_0320,For_Outer_Call,Visible,Unelaborated 0037 029a 0333 | 3| Declare_Subprogram INIT_0330,For_Outer_Call,Visible,Unelaborated 0039 029a 0343 | C| Declare_Subprogram INIT_0340,For_Outer_Call,Visible,Unelaborated 003b 029a 0353 | S| Declare_Subprogram INIT_0350,For_Outer_Call,Visible,Unelaborated 003d 029a 0363 | c| Declare_Subprogram INIT_0360,For_Outer_Call,Visible,Unelaborated 003f 029a 0373 | s| Declare_Subprogram INIT_0370,For_Outer_Call,Visible,Unelaborated 0041 029a 0393 | | Declare_Subprogram INIT_0390,For_Outer_Call,Visible,Unelaborated 0043 00bf | | Action Accept_Activation 0044 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 0045 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0046 00c7 | | Action Elaborate_Subprogram 0047 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0048 00c7 | | Action Elaborate_Subprogram 0049 1d11 | | Execute_Immediate Reference_Lex_1,0x11 004a 00c7 | | Action Elaborate_Subprogram 004b 1d12 | | Execute_Immediate Reference_Lex_1,0x12 004c 00c7 | | Action Elaborate_Subprogram 004d 1d13 | | Execute_Immediate Reference_Lex_1,0x13 004e 00c7 | | Action Elaborate_Subprogram 004f 1d14 | | Execute_Immediate Reference_Lex_1,0x14 0050 00c7 | | Action Elaborate_Subprogram 0051 1d15 | | Execute_Immediate Reference_Lex_1,0x15 0052 00c7 | | Action Elaborate_Subprogram 0053 1d16 | | Execute_Immediate Reference_Lex_1,0x16 0054 00c7 | | Action Elaborate_Subprogram 0055 1d17 | | Execute_Immediate Reference_Lex_1,0x17 0056 00c7 | | Action Elaborate_Subprogram 0057 1d18 | | Execute_Immediate Reference_Lex_1,0x18 0058 00c7 | | Action Elaborate_Subprogram 0059 1d19 | | Execute_Immediate Reference_Lex_1,0x19 005a 00c7 | | Action Elaborate_Subprogram 005b 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 005c 00c7 | | Action Elaborate_Subprogram 005d 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 005e 00c7 | | Action Elaborate_Subprogram 005f 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 0060 00c7 | | Action Elaborate_Subprogram 0061 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 0062 00c7 | | Action Elaborate_Subprogram 0063 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 0064 00c7 | | Action Elaborate_Subprogram 0065 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 0066 00c7 | | Action Elaborate_Subprogram 0067 1d20 | | Execute_Immediate Reference_Lex_1,0x20 0068 00c7 | | Action Elaborate_Subprogram 0069 029d 03a3 | | Declare_Subprogram INIT_03a0,For_Outer_Call 006b 029b 03eb | | Declare_Subprogram INIT_03e8,For_Outer_Call,Unelaborated 006d 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29 006e 00c7 | | Action Elaborate_Subprogram 006f 029b 041b | | Declare_Subprogram INIT_0418,For_Outer_Call,Unelaborated 0071 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a 0072 00c7 | | Action Elaborate_Subprogram 0073 029d 044b | K| Declare_Subprogram INIT_0448,For_Outer_Call 0075 029d 045b | [| Declare_Subprogram INIT_0458,For_Outer_Call 0077 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29 0078 00c6 | | Action Check_Subprogram_Elaborated 0079 1d2c | , | Execute_Immediate Reference_Lex_1,0x2c 007a e002 | | Load 0x0,0x2 007b e003 | | Load 0x0,0x3 007c 4800 |H | Short_Literal 0x0 007d 0007 | | Action Break_Optional 007e 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 007f 00c7 | | Action Elaborate_Subprogram 0080 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a 0081 00c6 | | Action Check_Subprogram_Elaborated 0082 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 0083 e004 | | Load 0x0,0x4 0084 e005 | | Load 0x0,0x5 0085 4800 |H | Short_Literal 0x0 0086 0007 | | Action Break_Optional 0087 1d22 | " | Execute_Immediate Reference_Lex_1,0x22 0088 00c7 | | Action Elaborate_Subprogram 0089 029d 0493 | | Declare_Subprogram INIT_0490,For_Outer_Call 008b 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29 008c 00c6 | | Action Check_Subprogram_Elaborated 008d 1d35 | 5 | Execute_Immediate Reference_Lex_1,0x35 008e e006 | | Load 0x0,0x6 008f e007 | | Load 0x0,0x7 0090 4800 |H | Short_Literal 0x0 0091 0007 | | Action Break_Optional 0092 1d23 | # | Execute_Immediate Reference_Lex_1,0x23 0093 00c7 | | Action Elaborate_Subprogram 0094 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a 0095 00c6 | | Action Check_Subprogram_Elaborated 0096 1d23 | # | Execute_Immediate Reference_Lex_1,0x23 0097 e008 | | Load 0x0,0x8 0098 e009 | | Load 0x0,0x9 0099 4800 |H | Short_Literal 0x0 009a 0007 | | Action Break_Optional 009b 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24 009c 00c7 | | Action Elaborate_Subprogram 009d 029d 051b | | Declare_Subprogram INIT_0518,For_Outer_Call 009f 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29 00a0 00c6 | | Action Check_Subprogram_Elaborated 00a1 1d3e | > | Execute_Immediate Reference_Lex_1,0x3e 00a2 e00a | | Load 0x0,0xa 00a3 e00b | | Load 0x0,0xb 00a4 4800 |H | Short_Literal 0x0 00a5 0007 | | Action Break_Optional 00a6 1d25 | % | Execute_Immediate Reference_Lex_1,0x25 00a7 00c7 | | Action Elaborate_Subprogram 00a8 029d 055b | [| Declare_Subprogram INIT_0558,For_Outer_Call 00aa 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29 00ab 00c6 | | Action Check_Subprogram_Elaborated 00ac 1d43 | C | Execute_Immediate Reference_Lex_1,0x43 00ad e00c | | Load 0x0,0xc 00ae e00d | | Load 0x0,0xd 00af 4800 |H | Short_Literal 0x0 00b0 0007 | | Action Break_Optional 00b1 1d26 | & | Execute_Immediate Reference_Lex_1,0x26 00b2 00c7 | | Action Elaborate_Subprogram 00b3 BODY_0008: 00b3 00bc | | Action Signal_Activated 00b4 00bb | | Action Signal_Completion 00b5 0000 0000 | | .XXX[0x3] 00b7 0000 | | 00b8 ; -------------------------------------------------------------------------------------- 00b8 ; SUBPROGRAM 00b8 ; -------------------------------------------------------------------------------------- 00b8 00bb | | .CONST 0x00bb ; Address of begin 00b9 0004 | | .CONST 0x0004 ; Address of exception handler 00ba 0001 | | .CONST 0x0001 ; Number of locals 00bb BODY_00b8: 00bb INIT_00b8: 00bb e001 | | Load 0x0,0x1 00bc 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00bd 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 00be 00ca | | Action Exit_Nullary_Function 00bf 0000 | | .XXX[0x1] 00c0 ; -------------------------------------------------------------------------------------- 00c0 ; SUBPROGRAM 00c0 ; -------------------------------------------------------------------------------------- 00c0 00c3 | | .CONST 0x00c3 ; Address of begin 00c1 0004 | | .CONST 0x0004 ; Address of exception handler 00c2 0001 | | .CONST 0x0001 ; Number of locals 00c3 BODY_00c0: 00c3 INIT_00c0: 00c3 00da | | Load_Top At_Offset_2 00c4 e00e | | Load 0x0,0xe 00c5 1b0f | | Execute Package,Field_Read,Field_Number 0xf 00c6 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 00c7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00c8 ; -------------------------------------------------------------------------------------- 00c8 ; SUBPROGRAM 00c8 ; -------------------------------------------------------------------------------------- 00c8 00cb | | .CONST 0x00cb ; Address of begin 00c9 0004 | | .CONST 0x0004 ; Address of exception handler 00ca 0001 | | .CONST 0x0001 ; Number of locals 00cb BODY_00c8: 00cb INIT_00c8: 00cb 00da | | Load_Top At_Offset_2 00cc e00e | | Load 0x0,0xe 00cd 1b0f | | Execute Package,Field_Read,Field_Number 0xf 00ce 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 00cf 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00d0 ; -------------------------------------------------------------------------------------- 00d0 ; SUBPROGRAM 00d0 ; -------------------------------------------------------------------------------------- 00d0 00d7 | | .CONST 0x00d7 ; Address of begin 00d1 00fc | | .CONST 0x00fc ; Address of exception handler 00d2 0002 | | .CONST 0x0002 ; Number of locals 00d3 INIT_00d0: 00d3 e20e | | Load 0x1,0xe 00d4 02c7 | | Declare_Variable Any 00d5 00db | | Load_Top At_Offset_3 00d6 a402 | | Store_Unchecked 0x2,0x2 00d7 BODY_00d0: 00d7 00d8 | | Load_Top At_Offset_0 00d8 e001 | | Load 0x0,0x1 00d9 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00da 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 00db 00cf | | Action Mark_Auxiliary 00dc 7813 |x | Jump 0xf0 00dd 00d9 | | Load_Top At_Offset_1 00de e001 | | Load 0x0,0x1 00df 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00e0 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 00e1 e5fe | | Load 0x2,-0x2 00e2 8214 | | Call 0x1,0x14 00e3 7006 |p | Jump_Nonzero 0xea 00e4 00d9 | | Load_Top At_Offset_1 00e5 e001 | | Load 0x0,0x1 00e6 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00e7 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 00e8 4801 |H | Short_Literal 0x1 00e9 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00ea 00d9 | | Load_Top At_Offset_1 00eb e001 | | Load 0x0,0x1 00ec 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00ed 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 00ee c402 | | Store 0x2,0x2 00ef 00c9 | | Action Pop_Auxiliary_Loop 00f0 00d9 | | Load_Top At_Offset_1 00f1 e001 | | Load 0x0,0x1 00f2 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00f3 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 00f4 6fe8 |o | Jump_Zero 0xdd 00f5 00ce | | Action Pop_Auxiliary 00f6 00d8 | | Load_Top At_Offset_0 00f7 e001 | | Load 0x0,0x1 00f8 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00f9 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 00fa 4800 |H | Short_Literal 0x0 00fb 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00fc TRAP_00d0: 00fc 0007 | | Action Break_Optional 00fd 00d9 | | Load_Top At_Offset_1 00fe e001 | | Load 0x0,0x1 00ff 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0100 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0101 4800 |H | Short_Literal 0x0 0102 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0103 0000 0000 | | .BLANK 0000[0x5] 0108 ; -------------------------------------------------------------------------------------- 0108 ; SUBPROGRAM 0108 ; -------------------------------------------------------------------------------------- 0108 0113 | | .CONST 0x0113 ; Address of begin 0109 0004 | | .CONST 0x0004 ; Address of exception handler 010a 0003 | | .CONST 0x0003 ; Number of locals 010b INIT_0108: 010b e20e | | Load 0x1,0xe 010c 02c7 | | Declare_Variable Any 010d 00db | | Load_Top At_Offset_3 010e a402 | | Store_Unchecked 0x2,0x2 010f e20e | | Load 0x1,0xe 0110 02c7 | | Declare_Variable Any 0111 820f | | Call 0x1,0xf 0112 a403 | | Store_Unchecked 0x2,0x3 0113 BODY_0108: 0113 00d9 | | Load_Top At_Offset_1 0114 e001 | | Load 0x0,0x1 0115 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0116 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0117 00cf | | Action Mark_Auxiliary 0118 780d |x | Jump 0x126 0119 00d9 | | Load_Top At_Offset_1 011a 00db | | Load_Top At_Offset_3 011b e001 | | Load 0x0,0x1 011c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 011d 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 011e 8215 | | Call 0x1,0x15 011f c403 | | Store 0x2,0x3 0120 00da | | Load_Top At_Offset_2 0121 e001 | | Load 0x0,0x1 0122 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0123 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0124 c402 | | Store 0x2,0x2 0125 00c9 | | Action Pop_Auxiliary_Loop 0126 00da | | Load_Top At_Offset_2 0127 e001 | | Load 0x0,0x1 0128 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0129 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 012a 6fee |o | Jump_Zero 0x119 012b 00ce | | Action Pop_Auxiliary 012c 00d9 | | Load_Top At_Offset_1 012d e001 | | Load 0x0,0x1 012e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 012f 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0130 00d8 | | Load_Top At_Offset_0 0131 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0132 0000 0000 | | .BLANK 0000[0x6] 0138 ; -------------------------------------------------------------------------------------- 0138 ; SUBPROGRAM 0138 ; -------------------------------------------------------------------------------------- 0138 013b | ; | .CONST 0x013b ; Address of begin 0139 0004 | | .CONST 0x0004 ; Address of exception handler 013a 0001 | | .CONST 0x0001 ; Number of locals 013b BODY_0138: 013b INIT_0138: 013b 00db | | Load_Top At_Offset_3 013c 00db | | Load_Top At_Offset_3 013d e001 | | Load 0x0,0x1 013e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 013f 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 0140 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0141 0000 0000 | | .BLANK 0000[0x7] 0148 ; -------------------------------------------------------------------------------------- 0148 ; SUBPROGRAM 0148 ; -------------------------------------------------------------------------------------- 0148 014c | L | .CONST 0x014c ; Address of begin 0149 0004 | | .CONST 0x0004 ; Address of exception handler 014a 0002 | | .CONST 0x0002 ; Number of locals 014b INIT_0148: 014b 00e1 | | Load_Encached Boolean_Cache 014c BODY_0148: 014c 00db | | Load_Top At_Offset_3 014d e00e | | Load 0x0,0xe 014e 1b0f | | Execute Package,Field_Read,Field_Number 0xf 014f 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34 0150 6817 |h | Jump_Zero 0x168 0151 00db | | Load_Top At_Offset_3 0152 e5fe | | Load 0x2,-0x2 0153 8214 | | Call 0x1,0x14 0154 7013 |p | Jump_Nonzero 0x168 0155 e5fe | | Load 0x2,-0x2 0156 e001 | | Load 0x0,0x1 0157 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0158 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 0159 6804 |h | Jump_Zero 0x15e 015a e001 | | Load 0x0,0x1 015b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 015c 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 015d c5fe | | Store 0x2,-0x2 015e 00e1 | | Load_Encached Boolean_Cache 015f e001 | | Load 0x0,0x1 0160 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0161 180e | | Execute Package,Field_Execute,Field_Number 0xe 0162 e5ff | | Load 0x2,-0x1 0163 e5fe | | Load 0x2,-0x2 0164 e001 | | Load 0x0,0x1 0165 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0166 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 0167 0059 | Y | Store_Top Discrete,At_Offset_1 0168 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0169 0000 0000 | | .BLANK 0000[0x7] 0170 ; -------------------------------------------------------------------------------------- 0170 ; SUBPROGRAM 0170 ; -------------------------------------------------------------------------------------- 0170 0174 | t | .CONST 0x0174 ; Address of begin 0171 0004 | | .CONST 0x0004 ; Address of exception handler 0172 0002 | | .CONST 0x0002 ; Number of locals 0173 INIT_0170: 0173 00e1 | | Load_Encached Boolean_Cache 0174 BODY_0170: 0174 00e1 | | Load_Encached Boolean_Cache 0175 e5ff | | Load 0x2,-0x1 0176 e5fe | | Load 0x2,-0x2 0177 e001 | | Load 0x0,0x1 0178 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0179 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 017a 0059 | Y | Store_Top Discrete,At_Offset_1 017b 4502 |E | Exit_Suprogram New_Top_Offset 0x2 017c 0000 0000 | | .BLANK 0000[0x4] 0180 ; -------------------------------------------------------------------------------------- 0180 ; SUBPROGRAM 0180 ; -------------------------------------------------------------------------------------- 0180 01a8 | | .CONST 0x01a8 ; Address of begin 0181 0004 | | .CONST 0x0004 ; Address of exception handler 0182 0008 | | .CONST 0x0008 ; Number of locals 0183 INIT_0180: 0183 4801 |H | Short_Literal 0x1 0184 e5fd | | Load 0x2,-0x3 0185 8211 | | Call 0x1,0x11 0186 00e1 | | Load_Encached Boolean_Cache 0187 02a0 | | Declare_Subprogram Null_Subprogram 0188 4801 |H | Short_Literal 0x1 0189 035d | ] | Declare_Type Array,Defined 018a 00d8 | | Load_Top At_Offset_0 018b 0337 | 7 | Declare_Variable Array 018c 00d8 | | Load_Top At_Offset_0 018d 0335 | 5 | Declare_Variable Array,Duplicate 018e 00cd | | Action Spare6_Action 018f 00d9 | | Load_Top At_Offset_1 0190 01d9 | | Execute Vector,Reverse_Bounds 0191 0263 | c | Execute Discrete,Above_Bound 0192 7005 |p | Jump_Nonzero 0x198 0193 4800 |H | Short_Literal 0x0 0194 00d9 | | Load_Top At_Offset_1 0195 e404 | | Load 0x2,0x4 0196 01d6 | | Execute Vector,Field_Write 0197 3ffb |? | Loop_Increasing 0x193 0198 00d9 | | Load_Top At_Offset_1 0199 01d4 | | Execute Vector,Structure_Write 019a e5fd | | Load 0x2,-0x3 019b 8211 | | Call 0x1,0x11 019c 00e3 | | Load_Encached Natural_Cache 019d 03f1 | | Declare_Variable Discrete,With_Value 019e e20e | | Load 0x1,0xe 019f 02c7 | | Declare_Variable Any 01a0 820f | | Call 0x1,0xf 01a1 a405 | | Store_Unchecked 0x2,0x5 01a2 e20d | | Load 0x1,0xd 01a3 02c7 | | Declare_Variable Any 01a4 00d8 | | Load_Top At_Offset_0 01a5 1c00 | | Execute_Immediate Run_Utility,0x0 01a6 00e3 | | Load_Encached Natural_Cache 01a7 00e3 | | Load_Encached Natural_Cache 01a8 BODY_0180: 01a8 00cf | | Action Mark_Auxiliary 01a9 783a |x: | Jump 0x1e4 01aa 4801 |H | Short_Literal 0x1 01ab 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 01ac e5fd | | Load 0x2,-0x3 01ad e001 | | Load 0x0,0x1 01ae 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01af 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 01b0 e5fd | | Load 0x2,-0x3 01b1 e001 | | Load 0x0,0x1 01b2 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01b3 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 01b4 c406 | | Store 0x2,0x6 01b5 00cf | | Action Mark_Auxiliary 01b6 781b |x | Jump 0x1d2 01b7 00da | | Load_Top At_Offset_2 01b8 e403 | | Load 0x2,0x3 01b9 01d7 | | Execute Vector,Field_Read 01ba 700e |p | Jump_Nonzero 0x1c9 01bb e406 | | Load 0x2,0x6 01bc e5fd | | Load 0x2,-0x3 01bd e001 | | Load 0x0,0x1 01be 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01bf 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 01c0 85fe | | Call 0x2,-0x2 01c1 6807 |h | Jump_Zero 0x1c9 01c2 e5fd | | Load 0x2,-0x3 01c3 e001 | | Load 0x0,0x1 01c4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01c5 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 01c6 c406 | | Store 0x2,0x6 01c7 00da | | Load_Top At_Offset_2 01c8 a407 | | Store_Unchecked 0x2,0x7 01c9 e5fd | | Load 0x2,-0x3 01ca e001 | | Load 0x0,0x1 01cb 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01cc 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 01cd c5fd | | Store 0x2,-0x3 01ce 00da | | Load_Top At_Offset_2 01cf 0a01 | | Execute_Immediate Plus,0x1 01d0 005b | [ | Store_Top Discrete,At_Offset_3 01d1 00c9 | | Action Pop_Auxiliary_Loop 01d2 e5fd | | Load 0x2,-0x3 01d3 e001 | | Load 0x0,0x1 01d4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01d5 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 01d6 6fe0 |o | Jump_Zero 0x1b7 01d7 00ce | | Action Pop_Auxiliary 01d8 e405 | | Load 0x2,0x5 01d9 e406 | | Load 0x2,0x6 01da 8215 | | Call 0x1,0x15 01db c405 | | Store 0x2,0x5 01dc 4801 |H | Short_Literal 0x1 01dd 00db | | Load_Top At_Offset_3 01de e403 | | Load 0x2,0x3 01df 01d6 | | Execute Vector,Field_Write 01e0 e404 | | Load 0x2,0x4 01e1 0aff | | Execute_Immediate Plus,-0x1 01e2 c404 | | Store 0x2,0x4 01e3 00c9 | | Action Pop_Auxiliary_Loop 01e4 e404 | | Load 0x2,0x4 01e5 0c01 | | Execute_Immediate Greater_Equal,0x1 01e6 77c3 |w | Jump_Nonzero 0x1aa 01e7 00ce | | Action Pop_Auxiliary 01e8 00db | | Load_Top At_Offset_3 01e9 c5fd | | Store 0x2,-0x3 01ea 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01eb 0000 0000 | | .BLANK 0000[0x5] 01f0 ; -------------------------------------------------------------------------------------- 01f0 ; SUBPROGRAM 01f0 ; -------------------------------------------------------------------------------------- 01f0 01f7 | | .CONST 0x01f7 ; Address of begin 01f1 0004 | | .CONST 0x0004 ; Address of exception handler 01f2 0002 | | .CONST 0x0002 ; Number of locals 01f3 INIT_01f0: 01f3 e20e | | Load 0x1,0xe 01f4 02c7 | | Declare_Variable Any 01f5 820f | | Call 0x1,0xf 01f6 a402 | | Store_Unchecked 0x2,0x2 01f7 BODY_01f0: 01f7 e5fd | | Load 0x2,-0x3 01f8 e001 | | Load 0x0,0x1 01f9 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01fa 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 01fb 00cf | | Action Mark_Auxiliary 01fc 7813 |x | Jump 0x210 01fd e5fd | | Load 0x2,-0x3 01fe e001 | | Load 0x0,0x1 01ff 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0200 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0201 85fe | | Call 0x2,-0x2 0202 7007 |p | Jump_Nonzero 0x20a 0203 00d9 | | Load_Top At_Offset_1 0204 e5fd | | Load 0x2,-0x3 0205 e001 | | Load 0x0,0x1 0206 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0207 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0208 8215 | | Call 0x1,0x15 0209 c402 | | Store 0x2,0x2 020a e5fd | | Load 0x2,-0x3 020b e001 | | Load 0x0,0x1 020c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 020d 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 020e c5fd | | Store 0x2,-0x3 020f 00c9 | | Action Pop_Auxiliary_Loop 0210 e5fd | | Load 0x2,-0x3 0211 e001 | | Load 0x0,0x1 0212 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0213 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0214 6fe8 |o | Jump_Zero 0x1fd 0215 00ce | | Action Pop_Auxiliary 0216 00d8 | | Load_Top At_Offset_0 0217 c5fd | | Store 0x2,-0x3 0218 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0219 0000 0000 | | .BLANK 0000[0x7] 0220 ; -------------------------------------------------------------------------------------- 0220 ; SUBPROGRAM 0220 ; -------------------------------------------------------------------------------------- 0220 0225 | % | .CONST 0x0225 ; Address of begin 0221 0004 | | .CONST 0x0004 ; Address of exception handler 0222 0002 | | .CONST 0x0002 ; Number of locals 0223 INIT_0220: 0223 029f 05db | | Declare_Subprogram INIT_05d8,For_Call 0225 BODY_0220: 0225 e5fd | | Load 0x2,-0x3 0226 e001 | | Load 0x0,0x1 0227 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0228 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0229 00cf | | Action Mark_Auxiliary 022a 7807 |x | Jump 0x232 022b 8402 | | Call 0x2,0x2 022c e5fd | | Load 0x2,-0x3 022d e001 | | Load 0x0,0x1 022e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 022f 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0230 c5fd | | Store 0x2,-0x3 0231 00c9 | | Action Pop_Auxiliary_Loop 0232 e5fd | | Load 0x2,-0x3 0233 e001 | | Load 0x0,0x1 0234 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0235 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0236 6ff4 |o | Jump_Zero 0x22b 0237 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0238 ; -------------------------------------------------------------------------------------- 0238 ; SUBPROGRAM 0238 ; -------------------------------------------------------------------------------------- 0238 023d | = | .CONST 0x023d ; Address of begin 0239 0004 | | .CONST 0x0004 ; Address of exception handler 023a 0002 | | .CONST 0x0002 ; Number of locals 023b INIT_0238: 023b 029f 05eb | | Declare_Subprogram INIT_05e8,For_Call 023d BODY_0238: 023d e5f9 | | Load 0x2,-0x7 023e 00d8 | | Load_Top At_Offset_0 023f 0120 | | Execute Any,Is_Value 0240 6803 |h | Jump_Zero 0x244 0241 e5fb | | Load 0x2,-0x5 0242 011e | | Execute Any,Convert 0243 7802 |x | Jump 0x246 0244 e5fb | | Load 0x2,-0x5 0245 0119 | | Execute Any,Check_In_Formal_Type 0246 85fc | | Call 0x2,-0x4 0247 c5f9 | | Store 0x2,-0x7 0248 e5fa | | Load 0x2,-0x6 0249 e001 | | Load 0x0,0x1 024a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 024b 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 024c 00cf | | Action Mark_Auxiliary 024d 7807 |x | Jump 0x255 024e 8402 | | Call 0x2,0x2 024f e5fa | | Load 0x2,-0x6 0250 e001 | | Load 0x0,0x1 0251 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0252 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0253 c5fa | | Store 0x2,-0x6 0254 00c9 | | Action Pop_Auxiliary_Loop 0255 e5fa | | Load 0x2,-0x6 0256 e001 | | Load 0x0,0x1 0257 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0258 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0259 6ff4 |o | Jump_Zero 0x24e 025a 00ce | | Action Pop_Auxiliary 025b e5f9 | | Load 0x2,-0x7 025c 00d8 | | Load_Top At_Offset_0 025d 0120 | | Execute Any,Is_Value 025e 6803 |h | Jump_Zero 0x262 025f e5fb | | Load 0x2,-0x5 0260 011e | | Execute Any,Convert 0261 7802 |x | Jump 0x264 0262 e5fb | | Load 0x2,-0x5 0263 0119 | | Execute Any,Check_In_Formal_Type 0264 85fe | | Call 0x2,-0x2 0265 c5f9 | | Store 0x2,-0x7 0266 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0267 0000 | | .XXX[0x1] 0268 ; -------------------------------------------------------------------------------------- 0268 ; SUBPROGRAM 0268 ; -------------------------------------------------------------------------------------- 0268 0271 | q | .CONST 0x0271 ; Address of begin 0269 0004 | | .CONST 0x0004 ; Address of exception handler 026a 0003 | | .CONST 0x0003 ; Number of locals 026b INIT_0268: 026b e20e | | Load 0x1,0xe 026c 02c7 | | Declare_Variable Any 026d 820f | | Call 0x1,0xf 026e a402 | | Store_Unchecked 0x2,0x2 026f 029f 0603 | | Declare_Subprogram INIT_0600,For_Call 0271 BODY_0268: 0271 00d9 | | Load_Top At_Offset_1 0272 e5ff | | Load 0x2,-0x1 0273 8403 | | Call 0x2,0x3 0274 c402 | | Store 0x2,0x2 0275 00d9 | | Load_Top At_Offset_1 0276 e5fe | | Load 0x2,-0x2 0277 8403 | | Call 0x2,0x3 0278 c402 | | Store 0x2,0x2 0279 00d9 | | Load_Top At_Offset_1 027a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 027b 0000 0000 | | .BLANK 0000[0x5] 0280 ; -------------------------------------------------------------------------------------- 0280 ; SUBPROGRAM 0280 ; -------------------------------------------------------------------------------------- 0280 028b | | .CONST 0x028b ; Address of begin 0281 0004 | | .CONST 0x0004 ; Address of exception handler 0282 0003 | | .CONST 0x0003 ; Number of locals 0283 INIT_0280: 0283 e20e | | Load 0x1,0xe 0284 02c7 | | Declare_Variable Any 0285 00db | | Load_Top At_Offset_3 0286 a402 | | Store_Unchecked 0x2,0x2 0287 e20e | | Load 0x1,0xe 0288 02c7 | | Declare_Variable Any 0289 820f | | Call 0x1,0xf 028a a403 | | Store_Unchecked 0x2,0x3 028b BODY_0280: 028b 00d9 | | Load_Top At_Offset_1 028c e001 | | Load 0x0,0x1 028d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 028e 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 028f 00cf | | Action Mark_Auxiliary 0290 7814 |x | Jump 0x2a5 0291 00da | | Load_Top At_Offset_2 0292 e001 | | Load 0x0,0x1 0293 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0294 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0295 e5fe | | Load 0x2,-0x2 0296 8214 | | Call 0x1,0x14 0297 6807 |h | Jump_Zero 0x29f 0298 00d9 | | Load_Top At_Offset_1 0299 00db | | Load_Top At_Offset_3 029a e001 | | Load 0x0,0x1 029b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 029c 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 029d 8215 | | Call 0x1,0x15 029e c403 | | Store 0x2,0x3 029f 00da | | Load_Top At_Offset_2 02a0 e001 | | Load 0x0,0x1 02a1 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02a2 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 02a3 c402 | | Store 0x2,0x2 02a4 00c9 | | Action Pop_Auxiliary_Loop 02a5 00da | | Load_Top At_Offset_2 02a6 e001 | | Load 0x0,0x1 02a7 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02a8 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 02a9 6fe7 |o | Jump_Zero 0x291 02aa 00ce | | Action Pop_Auxiliary 02ab 00d8 | | Load_Top At_Offset_0 02ac 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 02ad 0000 0000 | | .XXX[0x3] 02af 0000 | | 02b0 ; -------------------------------------------------------------------------------------- 02b0 ; SUBPROGRAM 02b0 ; -------------------------------------------------------------------------------------- 02b0 02b9 | | .CONST 0x02b9 ; Address of begin 02b1 0004 | | .CONST 0x0004 ; Address of exception handler 02b2 0003 | | .CONST 0x0003 ; Number of locals 02b3 INIT_02b0: 02b3 e20e | | Load 0x1,0xe 02b4 02c7 | | Declare_Variable Any 02b5 820f | | Call 0x1,0xf 02b6 a402 | | Store_Unchecked 0x2,0x2 02b7 029f 0623 | #| Declare_Subprogram INIT_0620,For_Call 02b9 BODY_02b0: 02b9 00d9 | | Load_Top At_Offset_1 02ba e5fe | | Load 0x2,-0x2 02bb e5ff | | Load 0x2,-0x1 02bc 8403 | | Call 0x2,0x3 02bd c402 | | Store 0x2,0x2 02be 00d9 | | Load_Top At_Offset_1 02bf e5ff | | Load 0x2,-0x1 02c0 e5fe | | Load 0x2,-0x2 02c1 8403 | | Call 0x2,0x3 02c2 c402 | | Store 0x2,0x2 02c3 00d9 | | Load_Top At_Offset_1 02c4 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 02c5 0000 0000 | | .XXX[0x3] 02c7 0000 | | 02c8 ; -------------------------------------------------------------------------------------- 02c8 ; SUBPROGRAM 02c8 ; -------------------------------------------------------------------------------------- 02c8 02d3 | | .CONST 0x02d3 ; Address of begin 02c9 0004 | | .CONST 0x0004 ; Address of exception handler 02ca 0003 | | .CONST 0x0003 ; Number of locals 02cb INIT_02c8: 02cb e20e | | Load 0x1,0xe 02cc 02c7 | | Declare_Variable Any 02cd 00db | | Load_Top At_Offset_3 02ce a402 | | Store_Unchecked 0x2,0x2 02cf e20e | | Load 0x1,0xe 02d0 02c7 | | Declare_Variable Any 02d1 820f | | Call 0x1,0xf 02d2 a403 | | Store_Unchecked 0x2,0x3 02d3 BODY_02c8: 02d3 00d9 | | Load_Top At_Offset_1 02d4 e001 | | Load 0x0,0x1 02d5 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02d6 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 02d7 00cf | | Action Mark_Auxiliary 02d8 7814 |x | Jump 0x2ed 02d9 00da | | Load_Top At_Offset_2 02da e001 | | Load 0x0,0x1 02db 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02dc 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 02dd e5fe | | Load 0x2,-0x2 02de 8214 | | Call 0x1,0x14 02df 7007 |p | Jump_Nonzero 0x2e7 02e0 00d9 | | Load_Top At_Offset_1 02e1 00db | | Load_Top At_Offset_3 02e2 e001 | | Load 0x0,0x1 02e3 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02e4 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 02e5 8215 | | Call 0x1,0x15 02e6 c403 | | Store 0x2,0x3 02e7 00da | | Load_Top At_Offset_2 02e8 e001 | | Load 0x0,0x1 02e9 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02ea 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 02eb c402 | | Store 0x2,0x2 02ec 00c9 | | Action Pop_Auxiliary_Loop 02ed 00da | | Load_Top At_Offset_2 02ee e001 | | Load 0x0,0x1 02ef 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02f0 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 02f1 6fe7 |o | Jump_Zero 0x2d9 02f2 00ce | | Action Pop_Auxiliary 02f3 00d8 | | Load_Top At_Offset_0 02f4 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 02f5 0000 0000 | | .XXX[0x3] 02f7 0000 | | 02f8 ; -------------------------------------------------------------------------------------- 02f8 ; SUBPROGRAM 02f8 ; -------------------------------------------------------------------------------------- 02f8 0301 | | .CONST 0x0301 ; Address of begin 02f9 0004 | | .CONST 0x0004 ; Address of exception handler 02fa 0003 | | .CONST 0x0003 ; Number of locals 02fb INIT_02f8: 02fb e20e | | Load 0x1,0xe 02fc 02c7 | | Declare_Variable Any 02fd e5fe | | Load 0x2,-0x2 02fe a402 | | Store_Unchecked 0x2,0x2 02ff 00e1 | | Load_Encached Boolean_Cache 0300 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 0301 BODY_02f8: 0301 00d9 | | Load_Top At_Offset_1 0302 e001 | | Load 0x0,0x1 0303 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0304 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0305 00cf | | Action Mark_Auxiliary 0306 7810 |x | Jump 0x317 0307 00da | | Load_Top At_Offset_2 0308 e001 | | Load 0x0,0x1 0309 1b0d | | Execute Package,Field_Read,Field_Number 0xd 030a 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 030b e5ff | | Load 0x2,-0x1 030c 8214 | | Call 0x1,0x14 030d 7003 |p | Jump_Nonzero 0x311 030e 4800 |H | Short_Literal 0x0 030f 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 0310 780b |x | Jump 0x31c 0311 00da | | Load_Top At_Offset_2 0312 e001 | | Load 0x0,0x1 0313 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0314 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0315 c402 | | Store 0x2,0x2 0316 00c9 | | Action Pop_Auxiliary_Loop 0317 00da | | Load_Top At_Offset_2 0318 e001 | | Load 0x0,0x1 0319 1b0d | | Execute Package,Field_Read,Field_Number 0xd 031a 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 031b 6feb |o | Jump_Zero 0x307 031c 00ce | | Action Pop_Auxiliary 031d 00d8 | | Load_Top At_Offset_0 031e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 031f 0000 | | .XXX[0x1] 0320 ; -------------------------------------------------------------------------------------- 0320 ; SUBPROGRAM 0320 ; -------------------------------------------------------------------------------------- 0320 0323 | # | .CONST 0x0323 ; Address of begin 0321 0004 | | .CONST 0x0004 ; Address of exception handler 0322 0001 | | .CONST 0x0001 ; Number of locals 0323 BODY_0320: 0323 INIT_0320: 0323 00db | | Load_Top At_Offset_3 0324 00db | | Load_Top At_Offset_3 0325 821f | | Call 0x1,0x1f 0326 6806 |h | Jump_Zero 0x32d 0327 00da | | Load_Top At_Offset_2 0328 8211 | | Call 0x1,0x11 0329 e5fe | | Load 0x2,-0x2 032a 8211 | | Call 0x1,0x11 032b 027d | } | Execute Discrete,Greater 032c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 032d 4800 |H | Short_Literal 0x0 032e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 032f 0000 | | .XXX[0x1] 0330 ; -------------------------------------------------------------------------------------- 0330 ; SUBPROGRAM 0330 ; -------------------------------------------------------------------------------------- 0330 0333 | 3 | .CONST 0x0333 ; Address of begin 0331 0004 | | .CONST 0x0004 ; Address of exception handler 0332 0001 | | .CONST 0x0001 ; Number of locals 0333 BODY_0330: 0333 INIT_0330: 0333 e5fa | | Load 0x2,-0x6 0334 e5fb | | Load 0x2,-0x5 0335 e5fc | | Load 0x2,-0x4 0336 e5fd | | Load 0x2,-0x3 0337 e5fe | | Load 0x2,-0x2 0338 e5ff | | Load 0x2,-0x1 0339 1d2d | - | Execute_Immediate Reference_Lex_1,0x2d 033a 1d2e | . | Execute_Immediate Reference_Lex_1,0x2e 033b 8229 | ) | Call 0x1,0x29 033c 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6 033d 0000 0000 | | .XXX[0x3] 033f 0000 | | 0340 ; -------------------------------------------------------------------------------------- 0340 ; SUBPROGRAM 0340 ; -------------------------------------------------------------------------------------- 0340 0343 | C | .CONST 0x0343 ; Address of begin 0341 0004 | | .CONST 0x0004 ; Address of exception handler 0342 0001 | | .CONST 0x0001 ; Number of locals 0343 BODY_0340: 0343 INIT_0340: 0343 e5fa | | Load 0x2,-0x6 0344 e5fb | | Load 0x2,-0x5 0345 e5fc | | Load 0x2,-0x4 0346 e5fd | | Load 0x2,-0x3 0347 e5fe | | Load 0x2,-0x2 0348 e5ff | | Load 0x2,-0x1 0349 1d31 | 1 | Execute_Immediate Reference_Lex_1,0x31 034a 1d32 | 2 | Execute_Immediate Reference_Lex_1,0x32 034b 822a | * | Call 0x1,0x2a 034c 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6 034d 0000 0000 | | .XXX[0x3] 034f 0000 | | 0350 ; -------------------------------------------------------------------------------------- 0350 ; SUBPROGRAM 0350 ; -------------------------------------------------------------------------------------- 0350 0353 | S | .CONST 0x0353 ; Address of begin 0351 0004 | | .CONST 0x0004 ; Address of exception handler 0352 0001 | | .CONST 0x0001 ; Number of locals 0353 BODY_0350: 0353 INIT_0350: 0353 e5fa | | Load 0x2,-0x6 0354 e5fb | | Load 0x2,-0x5 0355 e5fc | | Load 0x2,-0x4 0356 e5fd | | Load 0x2,-0x3 0357 e5fe | | Load 0x2,-0x2 0358 e5ff | | Load 0x2,-0x1 0359 1d36 | 6 | Execute_Immediate Reference_Lex_1,0x36 035a 1d37 | 7 | Execute_Immediate Reference_Lex_1,0x37 035b 8229 | ) | Call 0x1,0x29 035c 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6 035d 0000 0000 | | .XXX[0x3] 035f 0000 | | 0360 ; -------------------------------------------------------------------------------------- 0360 ; SUBPROGRAM 0360 ; -------------------------------------------------------------------------------------- 0360 0363 | c | .CONST 0x0363 ; Address of begin 0361 0004 | | .CONST 0x0004 ; Address of exception handler 0362 0001 | | .CONST 0x0001 ; Number of locals 0363 BODY_0360: 0363 INIT_0360: 0363 e5fa | | Load 0x2,-0x6 0364 e5fb | | Load 0x2,-0x5 0365 e5fc | | Load 0x2,-0x4 0366 e5fd | | Load 0x2,-0x3 0367 e5fe | | Load 0x2,-0x2 0368 e5ff | | Load 0x2,-0x1 0369 1d3a | : | Execute_Immediate Reference_Lex_1,0x3a 036a 1d3b | ; | Execute_Immediate Reference_Lex_1,0x3b 036b 822a | * | Call 0x1,0x2a 036c 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6 036d 0000 0000 | | .XXX[0x3] 036f 0000 | | 0370 ; -------------------------------------------------------------------------------------- 0370 ; SUBPROGRAM 0370 ; -------------------------------------------------------------------------------------- 0370 037f | | .CONST 0x037f ; Address of begin 0371 0004 | | .CONST 0x0004 ; Address of exception handler 0372 0002 | | .CONST 0x0002 ; Number of locals 0373 INIT_0370: 0373 e20e | | Load 0x1,0xe 0374 02c7 | | Declare_Variable Any 0375 e5fe | | Load 0x2,-0x2 0376 4801 |H | Short_Literal 0x1 0377 4801 |H | Short_Literal 0x1 0378 4801 |H | Short_Literal 0x1 0379 4800 |H | Short_Literal 0x0 037a e5ff | | Load 0x2,-0x1 037b 1d3f | ? | Execute_Immediate Reference_Lex_1,0x3f 037c 1d40 | @ | Execute_Immediate Reference_Lex_1,0x40 037d 8229 | ) | Call 0x1,0x29 037e a402 | | Store_Unchecked 0x2,0x2 037f BODY_0370: 037f 00db | | Load_Top At_Offset_3 0380 e00e | | Load 0x0,0xe 0381 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0382 1846 | F | Execute Package,Field_Execute,Field_Number 0x46 0383 6804 |h | Jump_Zero 0x388 0384 00d8 | | Load_Top At_Offset_0 0385 e5ff | | Load 0x2,-0x1 0386 8215 | | Call 0x1,0x15 0387 c402 | | Store 0x2,0x2 0388 00d8 | | Load_Top At_Offset_0 0389 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 038a 0000 0000 | | .BLANK 0000[0x6] 0390 ; -------------------------------------------------------------------------------------- 0390 ; SUBPROGRAM 0390 ; -------------------------------------------------------------------------------------- 0390 0393 | | .CONST 0x0393 ; Address of begin 0391 0004 | | .CONST 0x0004 ; Address of exception handler 0392 0001 | | .CONST 0x0001 ; Number of locals 0393 BODY_0390: 0393 INIT_0390: 0393 e5fd | | Load 0x2,-0x3 0394 4801 |H | Short_Literal 0x1 0395 e5fe | | Load 0x2,-0x2 0396 4801 |H | Short_Literal 0x1 0397 4800 |H | Short_Literal 0x0 0398 e5ff | | Load 0x2,-0x1 0399 1d44 | D | Execute_Immediate Reference_Lex_1,0x44 039a 1d45 | E | Execute_Immediate Reference_Lex_1,0x45 039b 8229 | ) | Call 0x1,0x29 039c 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 039d 0000 0000 | | .XXX[0x3] 039f 0000 | | 03a0 ; -------------------------------------------------------------------------------------- 03a0 ; SUBPROGRAM 03a0 ; -------------------------------------------------------------------------------------- 03a0 03ab | | .CONST 0x03ab ; Address of begin 03a1 0004 | | .CONST 0x0004 ; Address of exception handler 03a2 0003 | | .CONST 0x0003 ; Number of locals 03a3 INIT_03a0: 03a3 e20e | | Load 0x1,0xe 03a4 02c7 | | Declare_Variable Any 03a5 820f | | Call 0x1,0xf 03a6 a402 | | Store_Unchecked 0x2,0x2 03a7 e20d | | Load 0x1,0xd 03a8 02c7 | | Declare_Variable Any 03a9 00d8 | | Load_Top At_Offset_0 03aa 1c00 | | Execute_Immediate Run_Utility,0x0 03ab BODY_03a0: 03ab e5fc | | Load 0x2,-0x4 03ac e001 | | Load 0x0,0x1 03ad 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03ae 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 03af 00cf | | Action Mark_Auxiliary 03b0 782a |x* | Jump 0x3db 03b1 e5fc | | Load 0x2,-0x4 03b2 e001 | | Load 0x0,0x1 03b3 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03b4 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 03b5 c403 | | Store 0x2,0x3 03b6 00d9 | | Load_Top At_Offset_1 03b7 e00e | | Load 0x0,0xe 03b8 1b0f | | Execute Package,Field_Read,Field_Number 0xf 03b9 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 03ba 6801 |h | Jump_Zero 0x3bc 03bb 7819 |x | Jump 0x3d5 03bc 00d9 | | Load_Top At_Offset_1 03bd e5ff | | Load 0x2,-0x1 03be 8214 | | Call 0x1,0x14 03bf 6801 |h | Jump_Zero 0x3c1 03c0 7814 |x | Jump 0x3d5 03c1 e5fe | | Load 0x2,-0x2 03c2 6806 |h | Jump_Zero 0x3c9 03c3 00d9 | | Load_Top At_Offset_1 03c4 e00e | | Load 0x0,0xe 03c5 1b12 | | Execute Package,Field_Read,Field_Number 0x12 03c6 1819 | | Execute Package,Field_Execute,Field_Number 0x19 03c7 7001 |p | Jump_Nonzero 0x3c9 03c8 780c |x | Jump 0x3d5 03c9 e5fd | | Load 0x2,-0x3 03ca 7006 |p | Jump_Nonzero 0x3d1 03cb 00d9 | | Load_Top At_Offset_1 03cc e00e | | Load 0x0,0xe 03cd 1b12 | | Execute Package,Field_Read,Field_Number 0x12 03ce 181a | | Execute Package,Field_Execute,Field_Number 0x1a 03cf 6801 |h | Jump_Zero 0x3d1 03d0 7804 |x | Jump 0x3d5 03d1 00da | | Load_Top At_Offset_2 03d2 00da | | Load_Top At_Offset_2 03d3 8215 | | Call 0x1,0x15 03d4 c402 | | Store 0x2,0x2 03d5 e5fc | | Load 0x2,-0x4 03d6 e001 | | Load 0x0,0x1 03d7 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03d8 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 03d9 c5fc | | Store 0x2,-0x4 03da 00c9 | | Action Pop_Auxiliary_Loop 03db e5fc | | Load 0x2,-0x4 03dc e001 | | Load 0x0,0x1 03dd 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03de 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 03df 6fd1 |o | Jump_Zero 0x3b1 03e0 00ce | | Action Pop_Auxiliary 03e1 00d9 | | Load_Top At_Offset_1 03e2 c5fc | | Store 0x2,-0x4 03e3 4504 |E | Exit_Suprogram New_Top_Offset 0x4 03e4 0000 0000 | | .BLANK 0000[0x4] 03e8 ; -------------------------------------------------------------------------------------- 03e8 ; SUBPROGRAM 03e8 ; -------------------------------------------------------------------------------------- 03e8 03f5 | | .CONST 0x03f5 ; Address of begin 03e9 0004 | | .CONST 0x0004 ; Address of exception handler 03ea 0004 | | .CONST 0x0004 ; Number of locals 03eb INIT_03e8: 03eb e20e | | Load 0x1,0xe 03ec 02c7 | | Declare_Variable Any 03ed 820f | | Call 0x1,0xf 03ee a402 | | Store_Unchecked 0x2,0x2 03ef e20e | | Load 0x1,0xe 03f0 02c7 | | Declare_Variable Any 03f1 820f | | Call 0x1,0xf 03f2 a403 | | Store_Unchecked 0x2,0x3 03f3 029f 064b | K| Declare_Subprogram INIT_0648,For_Call 03f5 BODY_03e8: 03f5 e5f8 | | Load 0x2,-0x8 03f6 e5f9 | | Load 0x2,-0x7 03f7 e5fd | | Load 0x2,-0x3 03f8 85fe | | Call 0x2,-0x2 03f9 c403 | | Store 0x2,0x3 03fa 00cf | | Action Mark_Auxiliary 03fb 00da | | Load_Top At_Offset_2 03fc e5fa | | Load 0x2,-0x6 03fd e5fc | | Load 0x2,-0x4 03fe e402 | | Load 0x2,0x2 03ff 8228 | ( | Call 0x1,0x28 0400 c403 | | Store 0x2,0x3 0401 00da | | Load_Top At_Offset_2 0402 e402 | | Load 0x2,0x2 0403 8227 | ' | Call 0x1,0x27 0404 c402 | | Store 0x2,0x2 0405 e5fb | | Load 0x2,-0x5 0406 7001 |p | Jump_Nonzero 0x408 0407 7809 |x | Jump 0x411 0408 00da | | Load_Top At_Offset_2 0409 8210 | | Call 0x1,0x10 040a 6801 |h | Jump_Zero 0x40c 040b 7805 |x | Jump 0x411 040c 00da | | Load_Top At_Offset_2 040d 8404 | | Call 0x2,0x4 040e c403 | | Store 0x2,0x3 040f 00c9 | | Action Pop_Auxiliary_Loop 0410 7fea | | Jump 0x3fb 0411 00ce | | Action Pop_Auxiliary 0412 00da | | Load_Top At_Offset_2 0413 4408 |D | Exit_Subprogram With_Value,New_Top_Offset 0x8 0414 0000 0000 | | .BLANK 0000[0x4] 0418 ; -------------------------------------------------------------------------------------- 0418 ; SUBPROGRAM 0418 ; -------------------------------------------------------------------------------------- 0418 0423 | # | .CONST 0x0423 ; Address of begin 0419 0004 | | .CONST 0x0004 ; Address of exception handler 041a 0003 | | .CONST 0x0003 ; Number of locals 041b INIT_0418: 041b e20e | | Load 0x1,0xe 041c 02c7 | | Declare_Variable Any 041d e5fd | | Load 0x2,-0x3 041e a402 | | Store_Unchecked 0x2,0x2 041f e20e | | Load 0x1,0xe 0420 02c7 | | Declare_Variable Any 0421 820f | | Call 0x1,0xf 0422 a403 | | Store_Unchecked 0x2,0x3 0423 BODY_0418: 0423 00d9 | | Load_Top At_Offset_1 0424 e001 | | Load 0x0,0x1 0425 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0426 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0427 00cf | | Action Mark_Auxiliary 0428 7813 |x | Jump 0x43c 0429 e5f8 | | Load 0x2,-0x8 042a e5f9 | | Load 0x2,-0x7 042b e5fa | | Load 0x2,-0x6 042c e5fb | | Load 0x2,-0x5 042d e5fc | | Load 0x2,-0x4 042e e402 | | Load 0x2,0x2 042f e001 | | Load 0x0,0x1 0430 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0431 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0432 85fe | | Call 0x2,-0x2 0433 00da | | Load_Top At_Offset_2 0434 8227 | ' | Call 0x1,0x27 0435 c403 | | Store 0x2,0x3 0436 00da | | Load_Top At_Offset_2 0437 e001 | | Load 0x0,0x1 0438 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0439 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 043a c402 | | Store 0x2,0x2 043b 00c9 | | Action Pop_Auxiliary_Loop 043c 00da | | Load_Top At_Offset_2 043d e001 | | Load 0x0,0x1 043e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 043f 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0440 6fe8 |o | Jump_Zero 0x429 0441 00ce | | Action Pop_Auxiliary 0442 00d8 | | Load_Top At_Offset_0 0443 4408 |D | Exit_Subprogram With_Value,New_Top_Offset 0x8 0444 0000 0000 | | .BLANK 0000[0x4] 0448 ; -------------------------------------------------------------------------------------- 0448 ; SUBPROGRAM 0448 ; -------------------------------------------------------------------------------------- 0448 044b | K | .CONST 0x044b ; Address of begin 0449 0004 | | .CONST 0x0004 ; Address of exception handler 044a 0001 | | .CONST 0x0001 ; Number of locals 044b BODY_0448: 044b INIT_0448: 044b 00da | | Load_Top At_Offset_2 044c e00e | | Load 0x0,0xe 044d 1b12 | | Execute Package,Field_Read,Field_Number 0x12 044e 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 044f e00e | | Load 0x0,0xe 0450 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0451 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0452 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0453 0000 0000 | | .BLANK 0000[0x5] 0458 ; -------------------------------------------------------------------------------------- 0458 ; SUBPROGRAM 0458 ; -------------------------------------------------------------------------------------- 0458 0462 | b | .CONST 0x0462 ; Address of begin 0459 0004 | | .CONST 0x0004 ; Address of exception handler 045a 0002 | | .CONST 0x0002 ; Number of locals 045b INIT_0458: 045b e20e | | Load 0x1,0xe 045c 02c7 | | Declare_Variable Any 045d 00db | | Load_Top At_Offset_3 045e e00e | | Load 0x0,0xe 045f 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0460 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0461 a402 | | Store_Unchecked 0x2,0x2 0462 BODY_0458: 0462 00db | | Load_Top At_Offset_3 0463 e00e | | Load 0x0,0xe 0464 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0465 1846 | F | Execute Package,Field_Execute,Field_Number 0x46 0466 6821 |h! | Jump_Zero 0x488 0467 e5fe | | Load 0x2,-0x2 0468 7012 |p | Jump_Nonzero 0x47b 0469 00db | | Load_Top At_Offset_3 046a e00e | | Load 0x0,0xe 046b 1b12 | | Execute Package,Field_Read,Field_Number 0x12 046c 1818 | | Execute Package,Field_Execute,Field_Number 0x18 046d 680d |h | Jump_Zero 0x47b 046e 00db | | Load_Top At_Offset_3 046f 822b | + | Call 0x1,0x2b 0470 680a |h | Jump_Zero 0x47b 0471 00db | | Load_Top At_Offset_3 0472 e00e | | Load 0x0,0xe 0473 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0474 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0475 e00e | | Load 0x0,0xe 0476 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0477 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0478 00d9 | | Load_Top At_Offset_1 0479 8227 | ' | Call 0x1,0x27 047a c402 | | Store 0x2,0x2 047b 00db | | Load_Top At_Offset_3 047c e00e | | Load 0x0,0xe 047d 1b12 | | Execute Package,Field_Read,Field_Number 0x12 047e 181d | | Execute Package,Field_Execute,Field_Number 0x1d 047f 6808 |h | Jump_Zero 0x488 0480 00d8 | | Load_Top At_Offset_0 0481 e5fd | | Load 0x2,-0x3 0482 e5ff | | Load 0x2,-0x1 0483 e00e | | Load 0x0,0xe 0484 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0485 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0486 8215 | | Call 0x1,0x15 0487 c402 | | Store 0x2,0x2 0488 00d8 | | Load_Top At_Offset_0 0489 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 048a 0000 0000 | | .BLANK 0000[0x6] 0490 ; -------------------------------------------------------------------------------------- 0490 ; SUBPROGRAM 0490 ; -------------------------------------------------------------------------------------- 0490 04a2 | | .CONST 0x04a2 ; Address of begin 0491 0004 | | .CONST 0x0004 ; Address of exception handler 0492 0004 | | .CONST 0x0004 ; Number of locals 0493 INIT_0490: 0493 e20e | | Load 0x1,0xe 0494 02c7 | | Declare_Variable Any 0495 00db | | Load_Top At_Offset_3 0496 e00e | | Load 0x0,0xe 0497 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0498 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0499 a402 | | Store_Unchecked 0x2,0x2 049a e20e | | Load 0x1,0xe 049b 02c7 | | Declare_Variable Any 049c 820f | | Call 0x1,0xf 049d a403 | | Store_Unchecked 0x2,0x3 049e e20e | | Load 0x1,0xe 049f 02c7 | | Declare_Variable Any 04a0 820f | | Call 0x1,0xf 04a1 a404 | | Store_Unchecked 0x2,0x4 04a2 BODY_0490: 04a2 e5ff | | Load 0x2,-0x1 04a3 e00e | | Load 0x0,0xe 04a4 1b0f | | Execute Package,Field_Read,Field_Number 0xf 04a5 1846 | F | Execute Package,Field_Execute,Field_Number 0x46 04a6 686c |hl | Jump_Zero 0x513 04a7 e5ff | | Load 0x2,-0x1 04a8 e00e | | Load 0x0,0xe 04a9 1b12 | | Execute Package,Field_Read,Field_Number 0x12 04aa 1817 | | Execute Package,Field_Execute,Field_Number 0x17 04ab 6808 |h | Jump_Zero 0x4b4 04ac 00da | | Load_Top At_Offset_2 04ad e5ff | | Load 0x2,-0x1 04ae e00e | | Load 0x0,0xe 04af 1b12 | | Execute Package,Field_Read,Field_Number 0x12 04b0 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 04b1 8215 | | Call 0x1,0x15 04b2 c402 | | Store 0x2,0x2 04b3 780c |x | Jump 0x4c0 04b4 e5ff | | Load 0x2,-0x1 04b5 e00e | | Load 0x0,0xe 04b6 1b12 | | Execute Package,Field_Read,Field_Number 0x12 04b7 1816 | | Execute Package,Field_Execute,Field_Number 0x16 04b8 6807 |h | Jump_Zero 0x4c0 04b9 00da | | Load_Top At_Offset_2 04ba e5ff | | Load 0x2,-0x1 04bb e00e | | Load 0x0,0xe 04bc 1b12 | | Execute Package,Field_Read,Field_Number 0x12 04bd 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 04be 8215 | | Call 0x1,0x15 04bf c402 | | Store 0x2,0x2 04c0 e5fe | | Load 0x2,-0x2 04c1 7024 |p$ | Jump_Nonzero 0x4e6 04c2 00da | | Load_Top At_Offset_2 04c3 e001 | | Load 0x0,0x1 04c4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 04c5 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 04c6 00cf | | Action Mark_Auxiliary 04c7 7818 |x | Jump 0x4e0 04c8 00db | | Load_Top At_Offset_3 04c9 e001 | | Load 0x0,0x1 04ca 1b0d | | Execute Package,Field_Read,Field_Number 0xd 04cb 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 04cc e00e | | Load 0x0,0xe 04cd 1b12 | | Execute Package,Field_Read,Field_Number 0x12 04ce 181b | | Execute Package,Field_Execute,Field_Number 0x1b 04cf 680a |h | Jump_Zero 0x4da 04d0 e00f | | Load 0x0,0xf 04d1 1816 | | Execute Package,Field_Execute,Field_Number 0x16 04d2 e402 | | Load 0x2,0x2 04d3 e001 | | Load 0x0,0x1 04d4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 04d5 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 04d6 8225 | % | Call 0x1,0x25 04d7 00db | | Load_Top At_Offset_3 04d8 8227 | ' | Call 0x1,0x27 04d9 c403 | | Store 0x2,0x3 04da 00db | | Load_Top At_Offset_3 04db e001 | | Load 0x0,0x1 04dc 1b0d | | Execute Package,Field_Read,Field_Number 0xd 04dd 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 04de c402 | | Store 0x2,0x2 04df 00c9 | | Action Pop_Auxiliary_Loop 04e0 00db | | Load_Top At_Offset_3 04e1 e001 | | Load 0x0,0x1 04e2 1b0d | | Execute Package,Field_Read,Field_Number 0xd 04e3 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 04e4 6fe3 |o | Jump_Zero 0x4c8 04e5 00ce | | Action Pop_Auxiliary 04e6 00d9 | | Load_Top At_Offset_1 04e7 00db | | Load_Top At_Offset_3 04e8 8227 | ' | Call 0x1,0x27 04e9 c402 | | Store 0x2,0x2 04ea 00da | | Load_Top At_Offset_2 04eb e001 | | Load 0x0,0x1 04ec 1b0d | | Execute Package,Field_Read,Field_Number 0xd 04ed 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 04ee 00cf | | Action Mark_Auxiliary 04ef 7819 |x | Jump 0x509 04f0 00db | | Load_Top At_Offset_3 04f1 e001 | | Load 0x0,0x1 04f2 1b0d | | Execute Package,Field_Read,Field_Number 0xd 04f3 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 04f4 e00e | | Load 0x0,0xe 04f5 1b12 | | Execute Package,Field_Read,Field_Number 0x12 04f6 181c | | Execute Package,Field_Execute,Field_Number 0x1c 04f7 680b |h | Jump_Zero 0x503 04f8 00d9 | | Load_Top At_Offset_1 04f9 e5fd | | Load 0x2,-0x3 04fa e402 | | Load 0x2,0x2 04fb e001 | | Load 0x0,0x1 04fc 1b0d | | Execute Package,Field_Read,Field_Number 0xd 04fd 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 04fe e00e | | Load 0x0,0xe 04ff 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0500 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0501 8215 | | Call 0x1,0x15 0502 c404 | | Store 0x2,0x4 0503 00db | | Load_Top At_Offset_3 0504 e001 | | Load 0x0,0x1 0505 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0506 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0507 c402 | | Store 0x2,0x2 0508 00c9 | | Action Pop_Auxiliary_Loop 0509 00db | | Load_Top At_Offset_3 050a e001 | | Load 0x0,0x1 050b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 050c 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 050d 6fe2 |o | Jump_Zero 0x4f0 050e 00ce | | Action Pop_Auxiliary 050f 00d8 | | Load_Top At_Offset_0 0510 00db | | Load_Top At_Offset_3 0511 8227 | ' | Call 0x1,0x27 0512 c402 | | Store 0x2,0x2 0513 00da | | Load_Top At_Offset_2 0514 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0515 0000 0000 | | .XXX[0x3] 0517 0000 | | 0518 ; -------------------------------------------------------------------------------------- 0518 ; SUBPROGRAM 0518 ; -------------------------------------------------------------------------------------- 0518 0522 | " | .CONST 0x0522 ; Address of begin 0519 0004 | | .CONST 0x0004 ; Address of exception handler 051a 0002 | | .CONST 0x0002 ; Number of locals 051b INIT_0518: 051b e20e | | Load 0x1,0xe 051c 02c7 | | Declare_Variable Any 051d 00db | | Load_Top At_Offset_3 051e e00e | | Load 0x0,0xe 051f 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0520 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0521 a402 | | Store_Unchecked 0x2,0x2 0522 BODY_0518: 0522 00db | | Load_Top At_Offset_3 0523 e00e | | Load 0x0,0xe 0524 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0525 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0526 681f |h | Jump_Zero 0x546 0527 00d8 | | Load_Top At_Offset_0 0528 e5ff | | Load 0x2,-0x1 0529 e00e | | Load 0x0,0xe 052a 1b12 | | Execute Package,Field_Read,Field_Number 0x12 052b 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 052c 8215 | | Call 0x1,0x15 052d c402 | | Store 0x2,0x2 052e 00db | | Load_Top At_Offset_3 052f e00e | | Load 0x0,0xe 0530 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0531 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 0532 e00e | | Load 0x0,0xe 0533 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0534 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0535 00d9 | | Load_Top At_Offset_1 0536 8227 | ' | Call 0x1,0x27 0537 c402 | | Store 0x2,0x2 0538 00db | | Load_Top At_Offset_3 0539 e00e | | Load 0x0,0xe 053a 1b12 | | Execute Package,Field_Read,Field_Number 0x12 053b 181c | | Execute Package,Field_Execute,Field_Number 0x1c 053c 6815 |h | Jump_Zero 0x552 053d 00d8 | | Load_Top At_Offset_0 053e e5fd | | Load 0x2,-0x3 053f e5ff | | Load 0x2,-0x1 0540 e00e | | Load 0x0,0xe 0541 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0542 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0543 8215 | | Call 0x1,0x15 0544 c402 | | Store 0x2,0x2 0545 780c |x | Jump 0x552 0546 00db | | Load_Top At_Offset_3 0547 e00e | | Load 0x0,0xe 0548 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0549 1818 | | Execute Package,Field_Execute,Field_Number 0x18 054a 6807 |h | Jump_Zero 0x552 054b 00db | | Load_Top At_Offset_3 054c e00e | | Load 0x0,0xe 054d 1b12 | | Execute Package,Field_Read,Field_Number 0x12 054e 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 054f 00d9 | | Load_Top At_Offset_1 0550 8227 | ' | Call 0x1,0x27 0551 c402 | | Store 0x2,0x2 0552 00d8 | | Load_Top At_Offset_0 0553 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0554 0000 0000 | | .BLANK 0000[0x4] 0558 ; -------------------------------------------------------------------------------------- 0558 ; SUBPROGRAM 0558 ; -------------------------------------------------------------------------------------- 0558 056a | j | .CONST 0x056a ; Address of begin 0559 0004 | | .CONST 0x0004 ; Address of exception handler 055a 0004 | | .CONST 0x0004 ; Number of locals 055b INIT_0558: 055b e20e | | Load 0x1,0xe 055c 02c7 | | Declare_Variable Any 055d 00db | | Load_Top At_Offset_3 055e e00e | | Load 0x0,0xe 055f 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0560 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0561 a402 | | Store_Unchecked 0x2,0x2 0562 e20e | | Load 0x1,0xe 0563 02c7 | | Declare_Variable Any 0564 820f | | Call 0x1,0xf 0565 a403 | | Store_Unchecked 0x2,0x3 0566 e20e | | Load 0x1,0xe 0567 02c7 | | Declare_Variable Any 0568 820f | | Call 0x1,0xf 0569 a404 | | Store_Unchecked 0x2,0x4 056a BODY_0558: 056a e5ff | | Load 0x2,-0x1 056b e00e | | Load 0x0,0xe 056c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 056d 1846 | F | Execute Package,Field_Execute,Field_Number 0x46 056e 6866 |hf | Jump_Zero 0x5d5 056f 00da | | Load_Top At_Offset_2 0570 e5ff | | Load 0x2,-0x1 0571 8215 | | Call 0x1,0x15 0572 c402 | | Store 0x2,0x2 0573 e5ff | | Load 0x2,-0x1 0574 e00e | | Load 0x0,0xe 0575 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0576 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0577 6808 |h | Jump_Zero 0x580 0578 00da | | Load_Top At_Offset_2 0579 e5ff | | Load 0x2,-0x1 057a e00e | | Load 0x0,0xe 057b 1b12 | | Execute Package,Field_Read,Field_Number 0x12 057c 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 057d 8215 | | Call 0x1,0x15 057e c402 | | Store 0x2,0x2 057f 780c |x | Jump 0x58c 0580 e5ff | | Load 0x2,-0x1 0581 e00e | | Load 0x0,0xe 0582 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0583 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0584 6807 |h | Jump_Zero 0x58c 0585 00da | | Load_Top At_Offset_2 0586 e5ff | | Load 0x2,-0x1 0587 e00e | | Load 0x0,0xe 0588 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0589 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 058a 8215 | | Call 0x1,0x15 058b c402 | | Store 0x2,0x2 058c 00da | | Load_Top At_Offset_2 058d e001 | | Load 0x0,0x1 058e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 058f 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0590 00cf | | Action Mark_Auxiliary 0591 7810 |x | Jump 0x5a2 0592 e00f | | Load 0x0,0xf 0593 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0594 e402 | | Load 0x2,0x2 0595 e001 | | Load 0x0,0x1 0596 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0597 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0598 8225 | % | Call 0x1,0x25 0599 00db | | Load_Top At_Offset_3 059a 8227 | ' | Call 0x1,0x27 059b c403 | | Store 0x2,0x3 059c 00db | | Load_Top At_Offset_3 059d e001 | | Load 0x0,0x1 059e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 059f 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 05a0 c402 | | Store 0x2,0x2 05a1 00c9 | | Action Pop_Auxiliary_Loop 05a2 00db | | Load_Top At_Offset_3 05a3 e001 | | Load 0x0,0x1 05a4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 05a5 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 05a6 6feb |o | Jump_Zero 0x592 05a7 00ce | | Action Pop_Auxiliary 05a8 00d9 | | Load_Top At_Offset_1 05a9 00db | | Load_Top At_Offset_3 05aa 8227 | ' | Call 0x1,0x27 05ab c402 | | Store 0x2,0x2 05ac 00da | | Load_Top At_Offset_2 05ad e001 | | Load 0x0,0x1 05ae 1b0d | | Execute Package,Field_Read,Field_Number 0xd 05af 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 05b0 00cf | | Action Mark_Auxiliary 05b1 7819 |x | Jump 0x5cb 05b2 00db | | Load_Top At_Offset_3 05b3 e001 | | Load 0x0,0x1 05b4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 05b5 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 05b6 e00e | | Load 0x0,0xe 05b7 1b12 | | Execute Package,Field_Read,Field_Number 0x12 05b8 181c | | Execute Package,Field_Execute,Field_Number 0x1c 05b9 680b |h | Jump_Zero 0x5c5 05ba 00d9 | | Load_Top At_Offset_1 05bb e5fd | | Load 0x2,-0x3 05bc e402 | | Load 0x2,0x2 05bd e001 | | Load 0x0,0x1 05be 1b0d | | Execute Package,Field_Read,Field_Number 0xd 05bf 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 05c0 e00e | | Load 0x0,0xe 05c1 1b12 | | Execute Package,Field_Read,Field_Number 0x12 05c2 181e | | Execute Package,Field_Execute,Field_Number 0x1e 05c3 8215 | | Call 0x1,0x15 05c4 c404 | | Store 0x2,0x4 05c5 00db | | Load_Top At_Offset_3 05c6 e001 | | Load 0x0,0x1 05c7 1b0d | | Execute Package,Field_Read,Field_Number 0xd 05c8 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 05c9 c402 | | Store 0x2,0x2 05ca 00c9 | | Action Pop_Auxiliary_Loop 05cb 00db | | Load_Top At_Offset_3 05cc e001 | | Load 0x0,0x1 05cd 1b0d | | Execute Package,Field_Read,Field_Number 0xd 05ce 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 05cf 6fe2 |o | Jump_Zero 0x5b2 05d0 00ce | | Action Pop_Auxiliary 05d1 00d8 | | Load_Top At_Offset_0 05d2 00db | | Load_Top At_Offset_3 05d3 8227 | ' | Call 0x1,0x27 05d4 c402 | | Store 0x2,0x2 05d5 00da | | Load_Top At_Offset_2 05d6 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 05d7 0000 | | .XXX[0x1] 05d8 ; -------------------------------------------------------------------------------------- 05d8 ; SUBPROGRAM 05d8 ; -------------------------------------------------------------------------------------- 05d8 05e2 | | .CONST 0x05e2 ; Address of begin 05d9 0004 | | .CONST 0x0004 ; Address of exception handler 05da 0002 | | .CONST 0x0002 ; Number of locals 05db INIT_05d8: 05db e20d | | Load 0x1,0xd 05dc 02c7 | | Declare_Variable Any 05dd e5fd | | Load 0x2,-0x3 05de e001 | | Load 0x0,0x1 05df 1b0d | | Execute Package,Field_Read,Field_Number 0xd 05e0 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 05e1 a602 | | Store_Unchecked 0x3,0x2 05e2 BODY_05d8: 05e2 00d8 | | Load_Top At_Offset_0 05e3 85fe | | Call 0x2,-0x2 05e4 c602 | | Store 0x3,0x2 05e5 4501 |E | Exit_Suprogram New_Top_Offset 0x1 05e6 0000 0000 | | .XXX[0x2] 05e8 ; -------------------------------------------------------------------------------------- 05e8 ; SUBPROGRAM 05e8 ; -------------------------------------------------------------------------------------- 05e8 05f2 | | .CONST 0x05f2 ; Address of begin 05e9 0004 | | .CONST 0x0004 ; Address of exception handler 05ea 0002 | | .CONST 0x0002 ; Number of locals 05eb INIT_05e8: 05eb e20d | | Load 0x1,0xd 05ec 02c7 | | Declare_Variable Any 05ed e5fa | | Load 0x2,-0x6 05ee e001 | | Load 0x0,0x1 05ef 1b0d | | Execute Package,Field_Read,Field_Number 0xd 05f0 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 05f1 a602 | | Store_Unchecked 0x3,0x2 05f2 BODY_05e8: 05f2 e5f9 | | Load 0x2,-0x7 05f3 00d8 | | Load_Top At_Offset_0 05f4 0120 | | Execute Any,Is_Value 05f5 6803 |h | Jump_Zero 0x5f9 05f6 e5fb | | Load 0x2,-0x5 05f7 011e | | Execute Any,Convert 05f8 7802 |x | Jump 0x5fb 05f9 e5fb | | Load 0x2,-0x5 05fa 0119 | | Execute Any,Check_In_Formal_Type 05fb 00d9 | | Load_Top At_Offset_1 05fc 85fd | | Call 0x2,-0x3 05fd c602 | | Store 0x3,0x2 05fe c5f9 | | Store 0x2,-0x7 05ff 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0600 ; -------------------------------------------------------------------------------------- 0600 ; SUBPROGRAM 0600 ; -------------------------------------------------------------------------------------- 0600 0607 | | .CONST 0x0607 ; Address of begin 0601 0004 | | .CONST 0x0004 ; Address of exception handler 0602 0002 | | .CONST 0x0002 ; Number of locals 0603 INIT_0600: 0603 e20e | | Load 0x1,0xe 0604 02c7 | | Declare_Variable Any 0605 00db | | Load_Top At_Offset_3 0606 a602 | | Store_Unchecked 0x3,0x2 0607 BODY_0600: 0607 00d8 | | Load_Top At_Offset_0 0608 e001 | | Load 0x0,0x1 0609 1b0d | | Execute Package,Field_Read,Field_Number 0xd 060a 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 060b 00cf | | Action Mark_Auxiliary 060c 780d |x | Jump 0x61a 060d e7fe | | Load 0x3,-0x2 060e 00da | | Load_Top At_Offset_2 060f e001 | | Load 0x0,0x1 0610 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0611 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0612 8215 | | Call 0x1,0x15 0613 c7fe | | Store 0x3,-0x2 0614 00d9 | | Load_Top At_Offset_1 0615 e001 | | Load 0x0,0x1 0616 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0617 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0618 c602 | | Store 0x3,0x2 0619 00c9 | | Action Pop_Auxiliary_Loop 061a 00d9 | | Load_Top At_Offset_1 061b e001 | | Load 0x0,0x1 061c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 061d 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 061e 6fee |o | Jump_Zero 0x60d 061f 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0620 ; -------------------------------------------------------------------------------------- 0620 ; SUBPROGRAM 0620 ; -------------------------------------------------------------------------------------- 0620 0627 | ' | .CONST 0x0627 ; Address of begin 0621 0004 | | .CONST 0x0004 ; Address of exception handler 0622 0002 | | .CONST 0x0002 ; Number of locals 0623 INIT_0620: 0623 e20e | | Load 0x1,0xe 0624 02c7 | | Declare_Variable Any 0625 00db | | Load_Top At_Offset_3 0626 a602 | | Store_Unchecked 0x3,0x2 0627 BODY_0620: 0627 00d8 | | Load_Top At_Offset_0 0628 e001 | | Load 0x0,0x1 0629 1b0d | | Execute Package,Field_Read,Field_Number 0xd 062a 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 062b 00cf | | Action Mark_Auxiliary 062c 7814 |x | Jump 0x641 062d 00d9 | | Load_Top At_Offset_1 062e e001 | | Load 0x0,0x1 062f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0630 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0631 e7fe | | Load 0x3,-0x2 0632 8214 | | Call 0x1,0x14 0633 7007 |p | Jump_Nonzero 0x63b 0634 e7fd | | Load 0x3,-0x3 0635 00da | | Load_Top At_Offset_2 0636 e001 | | Load 0x0,0x1 0637 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0638 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0639 8215 | | Call 0x1,0x15 063a c7fd | | Store 0x3,-0x3 063b 00d9 | | Load_Top At_Offset_1 063c e001 | | Load 0x0,0x1 063d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 063e 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 063f c602 | | Store 0x3,0x2 0640 00c9 | | Action Pop_Auxiliary_Loop 0641 00d9 | | Load_Top At_Offset_1 0642 e001 | | Load 0x0,0x1 0643 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0644 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0645 6fe7 |o | Jump_Zero 0x62d 0646 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0647 0000 | | .XXX[0x1] 0648 ; -------------------------------------------------------------------------------------- 0648 ; SUBPROGRAM 0648 ; -------------------------------------------------------------------------------------- 0648 064f | O | .CONST 0x064f ; Address of begin 0649 0004 | | .CONST 0x0004 ; Address of exception handler 064a 0002 | | .CONST 0x0002 ; Number of locals 064b INIT_0648: 064b e20e | | Load 0x1,0xe 064c 02c7 | | Declare_Variable Any 064d 820f | | Call 0x1,0xf 064e a602 | | Store_Unchecked 0x3,0x2 064f BODY_0648: 064f 00db | | Load_Top At_Offset_3 0650 e001 | | Load 0x0,0x1 0651 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0652 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0653 00cf | | Action Mark_Auxiliary 0654 7810 |x | Jump 0x665 0655 e5f8 | | Load 0x2,-0x8 0656 e5f9 | | Load 0x2,-0x7 0657 e7ff | | Load 0x3,-0x1 0658 e001 | | Load 0x0,0x1 0659 1b0d | | Execute Package,Field_Read,Field_Number 0xd 065a 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 065b 85fe | | Call 0x2,-0x2 065c 00da | | Load_Top At_Offset_2 065d 8227 | ' | Call 0x1,0x27 065e c602 | | Store 0x3,0x2 065f e7ff | | Load 0x3,-0x1 0660 e001 | | Load 0x0,0x1 0661 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0662 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0663 c7ff | | Store 0x3,-0x1 0664 00c9 | | Action Pop_Auxiliary_Loop 0665 e7ff | | Load 0x3,-0x1 0666 e001 | | Load 0x0,0x1 0667 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0668 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0669 6feb |o | Jump_Zero 0x655 066a 00ce | | Action Pop_Auxiliary 066b 00d8 | | Load_Top At_Offset_0 066c c7ff | | Store 0x3,-0x1 066d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 066e 0000 0000 | | .XXX[0x2] 0670 ; -------------------------------------------------------------------------------------- 0670 ; Debug Table 0670 ; -------------------------------------------------------------------------------------- 0670 0004 0001 | | .DEBUG4 0x0004,0x0001,0x7061,0x0000,0x0001,0x0027 0676 000b 0712 | | .DBG4T 0x000b,0x0712,0x8000,0x0000 067a 0044 072e | D .| .DBG4T 0x0044,0x072e,0x8000,0x0000 067e 00bb 0759 | Y| .DBG4T 0x00bb,0x0759,0x0002,0x0000 0682 00c3 075c | \| .DBG4T 0x00c3,0x075c,0x0002,0x0000 0686 00cb 075f | _| .DBG4T 0x00cb,0x075f,0x0002,0x0000 068a 00d3 0762 | b| .DBG4T 0x00d3,0x0762,0x0002,0x4000 068e 010b 0779 | y| .DBG4T 0x010b,0x0779,0x0002,0x4000 0692 013b 0789 | ; | .DBG4T 0x013b,0x0789,0x0002,0x0000 0696 014b 078c | K | .DBG4T 0x014b,0x078c,0x0001,0x0000 069a 0173 0793 | s | .DBG4T 0x0173,0x0793,0x0001,0x0000 069e 0183 0797 | | .DBG4T 0x0183,0x0797,0x2801,0x4002 06a2 01f3 07be | | .DBG4T 0x01f3,0x07be,0x2801,0x4002 06a6 0223 07cd | # | .DBG4T 0x0223,0x07cd,0x2801,0x4002 06aa 023b 07d7 | ; | .DBG4T 0x023b,0x07d7,0x2801,0x4002 06ae 026b 07e5 | k | .DBG4T 0x026b,0x07e5,0x0002,0x0000 06b2 0283 07ec | | .DBG4T 0x0283,0x07ec,0x0002,0x4000 06b6 02b3 07fc | | .DBG4T 0x02b3,0x07fc,0x0002,0x0000 06ba 02cb 0803 | | .DBG4T 0x02cb,0x0803,0x0002,0x4000 06be 02fb 0813 | | .DBG4T 0x02fb,0x0813,0x0002,0x4000 06c2 0323 0825 | # %| .DBG4T 0x0323,0x0825,0x0002,0x0000 06c6 0333 0828 | 3 (| .DBG4T 0x0333,0x0828,0x0002,0x0000 06ca 0343 082b | C +| .DBG4T 0x0343,0x082b,0x0002,0x0000 06ce 0353 082e | S .| .DBG4T 0x0353,0x082e,0x0002,0x0000 06d2 0363 0831 | c 1| .DBG4T 0x0363,0x0831,0x0002,0x0000 06d6 0373 0834 | s 4| .DBG4T 0x0373,0x0834,0x0002,0x0000 06da 0393 083a | :| .DBG4T 0x0393,0x083a,0x0002,0x0000 06de 03a3 083d | =| .DBG4T 0x03a3,0x083d,0x0001,0x4000 06e2 03eb 085d | ]| .DBG4T 0x03eb,0x085d,0x2802,0x4002 06e6 041b 0874 | t| .DBG4T 0x041b,0x0874,0x2802,0x4002 06ea 044b 0882 | K | .DBG4T 0x044b,0x0882,0x0002,0x0000 06ee 045b 0885 | [ | .DBG4T 0x045b,0x0885,0x0002,0x0000 06f2 0493 088e | | .DBG4T 0x0493,0x088e,0x0002,0x4000 06f6 051b 08b9 | | .DBG4T 0x051b,0x08b9,0x0002,0x0000 06fa 055b 08c4 | [ | .DBG4T 0x055b,0x08c4,0x0002,0x4000 06fe 05db 08ed | | .DBG4T 0x05db,0x08ed,0x0804,0x0002 0702 05eb 08f1 | | .DBG4T 0x05eb,0x08f1,0x0804,0x0002 0706 0603 08f5 | | .DBG4T 0x0603,0x08f5,0x0001,0x4000 070a 0623 0900 | # | .DBG4T 0x0623,0x0900,0x0001,0x4000 070e 064b 090d | K | .DBG4T 0x064b,0x090d,0x0801,0x4002 0712 ; -------------------------------------------------------------------------------------- 0712 ; Debug chain 0712 ; -------------------------------------------------------------------------------------- 0712 001a 0000 | | .DBGLEN 0x001a,0x0000 0714 000b 000f | | .DBGLNO 0x000b,0x000f,0x0013,0x0015,0x0017,0x0019,0x001b,0x001d,0x001f,0x0021,0x0023,0x0025,0x0027,0x0029,0x002b,0x002d,0x002f,0x0031,0x0033,0x0035,0x0037,0x0039,0x003b,0x003d,0x003f,0x0041 072e ; -------------------------------------------------------------------------------------- 072e ; Debug chain 072e ; -------------------------------------------------------------------------------------- 072e 0029 0000 | ) | .DBGLEN 0x0029,0x0000 0730 0044 0045 | D E| .DBGLNO 0x0044,0x0045,0x0047,0x0049,0x004b,0x004d,0x004f,0x0051,0x0053,0x0055,0x0057,0x0059,0x005b,0x005d,0x005f,0x0061,0x0063,0x0065,0x0067,0x0069,0x006b,0x006d,0x006f,0x0071,0x0073,0x0075,0x0077,0x007e,0x0080,0x0087,0x0089,0x008b,0x0092,0x0094,0x009b,0x009d,0x009f,0x00a6,0x00a8,0x00aa,0x00b1 0759 ; -------------------------------------------------------------------------------------- 0759 ; Debug chain 0759 ; -------------------------------------------------------------------------------------- 0759 0000 0001 | | .DBGLEN 0x0000,0x0001 075b 00bb | | .DBGLNO 0x00bb 075c ; -------------------------------------------------------------------------------------- 075c ; Debug chain 075c ; -------------------------------------------------------------------------------------- 075c 0000 0001 | | .DBGLEN 0x0000,0x0001 075e 00c3 | | .DBGLNO 0x00c3 075f ; -------------------------------------------------------------------------------------- 075f ; Debug chain 075f ; -------------------------------------------------------------------------------------- 075f 0000 0001 | | .DBGLEN 0x0000,0x0001 0761 00cb | | .DBGLNO 0x00cb 0762 ; -------------------------------------------------------------------------------------- 0762 ; Debug chain 0762 ; -------------------------------------------------------------------------------------- 0762 0001 000a | | .DBGLEN 0x0001,0x000a 0764 00d3 00d7 | | .DBGLNO 0x00d3,0x00d7,0x00dd,0x00e4,0x00e8,0x00ea,0x00f0,0x00f6,0x00fa,0x00fd,0x0101 076f 0001 0003 | | .XXX[0xa] 0771 0004 0005 | | 0773 0006 0002 | | 0775 0007 0008 | | 0777 0009 000a | | 0779 ; -------------------------------------------------------------------------------------- 0779 ; Debug chain 0779 ; -------------------------------------------------------------------------------------- 0779 0002 0006 | | .DBGLEN 0x0002,0x0006 077b 010b 010f | | .DBGLNO 0x010b,0x010f,0x0113,0x0119,0x0120,0x0126,0x012c,0x0130 0783 0001 0003 | | .XXX[0x6] 0785 0004 0002 | | 0787 0005 0006 | | 0789 ; -------------------------------------------------------------------------------------- 0789 ; Debug chain 0789 ; -------------------------------------------------------------------------------------- 0789 0000 0001 | | .DBGLEN 0x0000,0x0001 078b 013b | ; | .DBGLNO 0x013b 078c ; -------------------------------------------------------------------------------------- 078c ; Debug chain 078c ; -------------------------------------------------------------------------------------- 078c 0001 0004 | | .DBGLEN 0x0001,0x0004 078e 014b 014c | K L| .DBGLNO 0x014b,0x014c,0x0155,0x015a,0x015e 0793 ; -------------------------------------------------------------------------------------- 0793 ; Debug chain 0793 ; -------------------------------------------------------------------------------------- 0793 0001 0001 | | .DBGLEN 0x0001,0x0001 0795 0173 0174 | s t| .DBGLNO 0x0173,0x0174 0797 ; -------------------------------------------------------------------------------------- 0797 ; Debug chain 0797 ; -------------------------------------------------------------------------------------- 0797 0007 000f | | .DBGLEN 0x0007,0x000f 0799 0183 018a | | .DBGLNO 0x0183,0x018a,0x019a,0x019e,0x01a2,0x01a6,0x01a7,0x01aa,0x01ac,0x01b0,0x01b7,0x01bb,0x01c2,0x01c7,0x01c9,0x01ce,0x01d2,0x01d8,0x01dc,0x01e0,0x01e4,0x01e8 07af 0002 0003 | | .XXX[0xf] 07b1 0004 0006 | | 07b3 0007 0008 | | 07b5 0009 000a | | 07b7 000b 0005 | | 07b9 000c 000d | | 07bb 000e 0001 | | 07bd 000f | | 07be ; -------------------------------------------------------------------------------------- 07be ; Debug chain 07be ; -------------------------------------------------------------------------------------- 07be 0001 0006 | | .DBGLEN 0x0001,0x0006 07c0 01f3 01f7 | | .DBGLNO 0x01f3,0x01f7,0x01fd,0x0203,0x020a,0x0210,0x0216 07c7 0001 0003 | | .XXX[0x6] 07c9 0004 0005 | | 07cb 0002 0006 | | 07cd ; -------------------------------------------------------------------------------------- 07cd ; Debug chain 07cd ; -------------------------------------------------------------------------------------- 07cd 0000 0004 | | .DBGLEN 0x0000,0x0004 07cf 0225 022b | % +| .DBGLNO 0x0225,0x022b,0x022c,0x0232 07d3 0001 0003 | | .XXX[0x4] 07d5 0004 0002 | | 07d7 ; -------------------------------------------------------------------------------------- 07d7 ; Debug chain 07d7 ; -------------------------------------------------------------------------------------- 07d7 0000 0006 | | .DBGLEN 0x0000,0x0006 07d9 023d 0248 | = H| .DBGLNO 0x023d,0x0248,0x024e,0x024f,0x0255,0x025b 07df 0001 0002 | | .XXX[0x6] 07e1 0004 0005 | | 07e3 0003 0006 | | 07e5 ; -------------------------------------------------------------------------------------- 07e5 ; Debug chain 07e5 ; -------------------------------------------------------------------------------------- 07e5 0002 0003 | | .DBGLEN 0x0002,0x0003 07e7 026b 026f | k o| .DBGLNO 0x026b,0x026f,0x0271,0x0275,0x0279 07ec ; -------------------------------------------------------------------------------------- 07ec ; Debug chain 07ec ; -------------------------------------------------------------------------------------- 07ec 0002 0006 | | .DBGLEN 0x0002,0x0006 07ee 0283 0287 | | .DBGLNO 0x0283,0x0287,0x028b,0x0291,0x0298,0x029f,0x02a5,0x02ab 07f6 0001 0003 | | .XXX[0x6] 07f8 0004 0005 | | 07fa 0002 0006 | | 07fc ; -------------------------------------------------------------------------------------- 07fc ; Debug chain 07fc ; -------------------------------------------------------------------------------------- 07fc 0002 0003 | | .DBGLEN 0x0002,0x0003 07fe 02b3 02b7 | | .DBGLNO 0x02b3,0x02b7,0x02b9,0x02be,0x02c3 0803 ; -------------------------------------------------------------------------------------- 0803 ; Debug chain 0803 ; -------------------------------------------------------------------------------------- 0803 0002 0006 | | .DBGLEN 0x0002,0x0006 0805 02cb 02cf | | .DBGLNO 0x02cb,0x02cf,0x02d3,0x02d9,0x02e0,0x02e7,0x02ed,0x02f3 080d 0001 0003 | | .XXX[0x6] 080f 0004 0005 | | 0811 0002 0006 | | 0813 ; -------------------------------------------------------------------------------------- 0813 ; Debug chain 0813 ; -------------------------------------------------------------------------------------- 0813 0002 0007 | | .DBGLEN 0x0002,0x0007 0815 02fb 02ff | | .DBGLNO 0x02fb,0x02ff,0x0301,0x0307,0x030e,0x0310,0x0311,0x0317,0x031d 081e 0001 0003 | | .XXX[0x7] 0820 0004 0005 | | 0822 0006 0002 | | 0824 0007 | | 0825 ; -------------------------------------------------------------------------------------- 0825 ; Debug chain 0825 ; -------------------------------------------------------------------------------------- 0825 0000 0001 | | .DBGLEN 0x0000,0x0001 0827 0323 | # | .DBGLNO 0x0323 0828 ; -------------------------------------------------------------------------------------- 0828 ; Debug chain 0828 ; -------------------------------------------------------------------------------------- 0828 0000 0001 | | .DBGLEN 0x0000,0x0001 082a 0333 | 3 | .DBGLNO 0x0333 082b ; -------------------------------------------------------------------------------------- 082b ; Debug chain 082b ; -------------------------------------------------------------------------------------- 082b 0000 0001 | | .DBGLEN 0x0000,0x0001 082d 0343 | C | .DBGLNO 0x0343 082e ; -------------------------------------------------------------------------------------- 082e ; Debug chain 082e ; -------------------------------------------------------------------------------------- 082e 0000 0001 | | .DBGLEN 0x0000,0x0001 0830 0353 | S | .DBGLNO 0x0353 0831 ; -------------------------------------------------------------------------------------- 0831 ; Debug chain 0831 ; -------------------------------------------------------------------------------------- 0831 0000 0001 | | .DBGLEN 0x0000,0x0001 0833 0363 | c | .DBGLNO 0x0363 0834 ; -------------------------------------------------------------------------------------- 0834 ; Debug chain 0834 ; -------------------------------------------------------------------------------------- 0834 0001 0003 | | .DBGLEN 0x0001,0x0003 0836 0373 037f | s | .DBGLNO 0x0373,0x037f,0x0384,0x0388 083a ; -------------------------------------------------------------------------------------- 083a ; Debug chain 083a ; -------------------------------------------------------------------------------------- 083a 0000 0001 | | .DBGLEN 0x0000,0x0001 083c 0393 | | .DBGLNO 0x0393 083d ; -------------------------------------------------------------------------------------- 083d ; Debug chain 083d ; -------------------------------------------------------------------------------------- 083d 0002 000e | | .DBGLEN 0x0002,0x000e 083f 03a3 03a7 | | .DBGLNO 0x03a3,0x03a7,0x03ab,0x03b1,0x03b6,0x03bb,0x03bc,0x03c0,0x03c1,0x03c8,0x03c9,0x03d0,0x03d1,0x03d5,0x03db,0x03e1 084f 0001 0003 | | .XXX[0xe] 0851 0004 0005 | | 0853 0006 0007 | | 0855 0008 0009 | | 0857 000a 000b | | 0859 000c 000d | | 085b 0002 000e | | 085d ; -------------------------------------------------------------------------------------- 085d ; Debug chain 085d ; -------------------------------------------------------------------------------------- 085d 0003 0009 | | .DBGLEN 0x0003,0x0009 085f 03eb 03ef | | .DBGLNO 0x03eb,0x03ef,0x03f3,0x03f5,0x03fb,0x0401,0x0405,0x0407,0x0408,0x040b,0x040c,0x0412 086b 0001 0003 | | .XXX[0x9] 086d 0004 0005 | | 086f 0006 0007 | | 0871 0008 0009 | | 0873 000a | | 0874 ; -------------------------------------------------------------------------------------- 0874 ; Debug chain 0874 ; -------------------------------------------------------------------------------------- 0874 0002 0005 | | .DBGLEN 0x0002,0x0005 0876 041b 041f | | .DBGLNO 0x041b,0x041f,0x0423,0x0429,0x0436,0x043c,0x0442 087d 0001 0003 | | .XXX[0x5] 087f 0004 0002 | | 0881 0005 | | 0882 ; -------------------------------------------------------------------------------------- 0882 ; Debug chain 0882 ; -------------------------------------------------------------------------------------- 0882 0000 0001 | | .DBGLEN 0x0000,0x0001 0884 044b | K | .DBGLNO 0x044b 0885 ; -------------------------------------------------------------------------------------- 0885 ; Debug chain 0885 ; -------------------------------------------------------------------------------------- 0885 0001 0006 | | .DBGLEN 0x0001,0x0006 0887 045b 0462 | [ b| .DBGLNO 0x045b,0x0462,0x0467,0x0471,0x047b,0x0480,0x0488 088e ; -------------------------------------------------------------------------------------- 088e ; Debug chain 088e ; -------------------------------------------------------------------------------------- 088e 0003 0013 | | .DBGLEN 0x0003,0x0013 0890 0493 049a | | .DBGLNO 0x0493,0x049a,0x049e,0x04a2,0x04a7,0x04ac,0x04b4,0x04b9,0x04c0,0x04c2,0x04c8,0x04d0,0x04da,0x04e0,0x04e6,0x04ea,0x04f0,0x04f8,0x0503,0x0509,0x050f,0x0513 08a6 0001 0002 | | .XXX[0x13] 08a8 0003 0004 | | 08aa 0005 0006 | | 08ac 0007 0009 | | 08ae 000a 000b | | 08b0 0008 000c | | 08b2 000d 000f | | 08b4 0010 0011 | | 08b6 000e 0012 | | 08b8 0013 | | 08b9 ; -------------------------------------------------------------------------------------- 08b9 ; Debug chain 08b9 ; -------------------------------------------------------------------------------------- 08b9 0001 0008 | | .DBGLEN 0x0001,0x0008 08bb 051b 0522 | "| .DBGLNO 0x051b,0x0522,0x0527,0x052e,0x0538,0x053d,0x0546,0x054b,0x0552 08c4 ; -------------------------------------------------------------------------------------- 08c4 ; Debug chain 08c4 ; -------------------------------------------------------------------------------------- 08c4 0003 0012 | | .DBGLEN 0x0003,0x0012 08c6 055b 0562 | [ b| .DBGLNO 0x055b,0x0562,0x0566,0x056a,0x056f,0x0573,0x0578,0x0580,0x0585,0x058c,0x0592,0x059c,0x05a2,0x05a8,0x05ac,0x05b2,0x05ba,0x05c5,0x05cb,0x05d1,0x05d5 08db 0001 0002 | | .XXX[0x12] 08dd 0003 0004 | | 08df 0005 0006 | | 08e1 0007 0009 | | 08e3 000a 0008 | | 08e5 000b 000c | | 08e7 000e 000f | | 08e9 0010 000d | | 08eb 0011 0012 | | 08ed ; -------------------------------------------------------------------------------------- 08ed ; Debug chain 08ed ; -------------------------------------------------------------------------------------- 08ed 0001 0001 | | .DBGLEN 0x0001,0x0001 08ef 05db 05e2 | | .DBGLNO 0x05db,0x05e2 08f1 ; -------------------------------------------------------------------------------------- 08f1 ; Debug chain 08f1 ; -------------------------------------------------------------------------------------- 08f1 0001 0001 | | .DBGLEN 0x0001,0x0001 08f3 05eb 05f2 | | .DBGLNO 0x05eb,0x05f2 08f5 ; -------------------------------------------------------------------------------------- 08f5 ; Debug chain 08f5 ; -------------------------------------------------------------------------------------- 08f5 0001 0004 | | .DBGLEN 0x0001,0x0004 08f7 0603 0607 | | .DBGLNO 0x0603,0x0607,0x060d,0x0614,0x061a 08fc 0001 0003 | | .XXX[0x4] 08fe 0004 0002 | | 0900 ; -------------------------------------------------------------------------------------- 0900 ; Debug chain 0900 ; -------------------------------------------------------------------------------------- 0900 0001 0005 | | .DBGLEN 0x0001,0x0005 0902 0623 0627 | # '| .DBGLNO 0x0623,0x0627,0x062d,0x0634,0x063b,0x0641 0908 0001 0003 | | .XXX[0x5] 090a 0004 0005 | | 090c 0002 | | 090d ; -------------------------------------------------------------------------------------- 090d ; Debug chain 090d ; -------------------------------------------------------------------------------------- 090d 0001 0005 | | .DBGLEN 0x0001,0x0005 090f 064b 064f | K O| .DBGLNO 0x064b,0x064f,0x0655,0x065f,0x0665,0x066b 0915 0001 0003 | | .XXX[0x5] 0917 0004 0002 | | 0919 0005 | | 091a 0000 0000 | | .BLANK 0000[0xe6]