|
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: 6144 (0x1800) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0a7cf5
└─⟦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 0b70 | p | .CONST 0x0b70 ; 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 8007 | | .CONST 0x8007 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 02e9 | | .CONST 0x02e9 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 014f | O | .CONST 0x014f ; Number of locals 000b INIT_0008: 000b 00e2 | | Load_Encached Integer_Cache 000c 0129 | ) | Execute Any,Make_Visible 000d 00c4 | | Action Make_Default 000e 00c4 | | Action Make_Default 000f 00c4 | | Action Make_Default 0010 00c4 | | Action Make_Default 0011 00c4 | | Action Make_Default 0012 00c4 | | Action Make_Default 0013 00c4 | | Action Make_Default 0014 00c4 | | Action Make_Default 0015 00c4 | | Action Make_Default 0016 00c4 | | Action Make_Default 0017 00c4 | | Action Make_Default 0018 00c4 | | Action Make_Default 0019 00c4 | | Action Make_Default 001a 00c4 | | Action Make_Default 001b 00c4 | | Action Make_Default 001c 00c4 | | Action Make_Default 001d 00c4 | | Action Make_Default 001e 00c4 | | Action Make_Default 001f 00c4 | | Action Make_Default 0020 e001 | | Load 0x0,0x1 0021 0129 | ) | Execute Any,Make_Visible 0022 c210 | | Store 0x1,0x10 0023 e002 | | Load 0x0,0x2 0024 0129 | ) | Execute Any,Make_Visible 0025 c211 | | Store 0x1,0x11 0026 029a 02f3 | | Declare_Subprogram INIT_02f0,For_Outer_Call,Visible,Unelaborated 0028 c212 | | Store 0x1,0x12 0029 029a 0323 | #| Declare_Subprogram INIT_0320,For_Outer_Call,Visible,Unelaborated 002b c213 | | Store 0x1,0x13 002c 029a 032b | +| Declare_Subprogram INIT_0328,For_Outer_Call,Visible,Unelaborated 002e c20f | | Store 0x1,0xf 002f e003 | | Load 0x0,0x3 0030 02a8 | | Declare_Subprogram For_Call,Visible,Unelaborated,With_Address 0031 c215 | | Store 0x1,0x15 0032 e004 | | Load 0x0,0x4 0033 02a8 | | Declare_Subprogram For_Call,Visible,Unelaborated,With_Address 0034 c216 | | Store 0x1,0x16 0035 e005 | | Load 0x0,0x5 0036 02a8 | | Declare_Subprogram For_Call,Visible,Unelaborated,With_Address 0037 c21b | | Store 0x1,0x1b 0038 e006 | | Load 0x0,0x6 0039 02a8 | | Declare_Subprogram For_Call,Visible,Unelaborated,With_Address 003a c21f | | Store 0x1,0x1f 003b e007 | | Load 0x0,0x7 003c 02a8 | | Declare_Subprogram For_Call,Visible,Unelaborated,With_Address 003d c220 | | Store 0x1,0x20 003e 00bf | | Action Accept_Activation 003f 4804 |H | Short_Literal 0x4 0040 4804 |H | Short_Literal 0x4 0041 e008 | | Load 0x0,0x8 0042 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0043 03f8 | | Declare_Type Discrete,Constrained 0044 e009 | | Load 0x0,0x9 0045 1b3e | > | Execute Package,Field_Read,Field_Number 0x3e 0046 e009 | | Load 0x0,0x9 0047 1b4a | J | Execute Package,Field_Read,Field_Number 0x4a 0048 4800 |H | Short_Literal 0x0 0049 e009 | | Load 0x0,0x9 004a 1b4a | J | Execute Package,Field_Read,Field_Number 0x4a 004b 1c08 | | Execute_Immediate Run_Utility,0x8 004c 00d8 | | Load_Top At_Offset_0 004d 1c01 | | Execute_Immediate Run_Utility,0x1 004e e009 | | Load 0x0,0x9 004f 1b78 | x | Execute Package,Field_Read,Field_Number 0x78 0050 029b 0333 | 3| Declare_Subprogram INIT_0330,For_Outer_Call,Unelaborated 0052 e00a | | Load 0x0,0xa 0053 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0054 029b 034b | K| Declare_Subprogram INIT_0348,For_Outer_Call,Unelaborated 0056 e00b | | Load 0x0,0xb 0057 e00c | | Load 0x0,0xc 0058 4804 |H | Short_Literal 0x4 0059 4804 |H | Short_Literal 0x4 005a 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28 005b e00a | | Load 0x0,0xa 005c 1b2c | , | Execute Package,Field_Read,Field_Number 0x2c 005d 0387 | | Declare_Variable Package 005e 00d8 | | Load_Top At_Offset_0 005f 020f | | Execute Module,Activate 0060 e00d | | Load 0x0,0xd 0061 e00e | | Load 0x0,0xe 0062 00da | | Load_Top At_Offset_2 0063 1913 | | Execute Package,Field_Reference,Field_Number 0x13 0064 e00a | | Load 0x0,0xa 0065 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b 0066 0387 | | Declare_Variable Package 0067 00d8 | | Load_Top At_Offset_0 0068 020f | | Execute Module,Activate 0069 02a0 | | Declare_Subprogram Null_Subprogram 006a 4800 |H | Short_Literal 0x0 006b 032d | - | Declare_Type Record,Defined 006c e00f | | Load 0x0,0xf 006d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 006e 1b11 | | Execute Package,Field_Read,Field_Number 0x11 006f e223 | # | Load 0x1,0x23 0070 029f 04eb | | Declare_Subprogram INIT_04e8,For_Call 0072 4802 |H | Short_Literal 0x2 0073 032d | - | Declare_Type Record,Defined 0074 4900 |I | Short_Literal 0x100 0075 e010 | | Load 0x0,0x10 0076 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0077 1c07 | | Execute_Immediate Run_Utility,0x7 0078 e223 | # | Load 0x1,0x23 0079 029f 0503 | | Declare_Subprogram INIT_0500,For_Call 007b 4802 |H | Short_Literal 0x2 007c 032d | - | Declare_Type Record,Defined 007d 4900 |I | Short_Literal 0x100 007e e010 | | Load 0x0,0x10 007f 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0080 1c07 | | Execute_Immediate Run_Utility,0x7 0081 4900 |I | Short_Literal 0x100 0082 e010 | | Load 0x0,0x10 0083 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0084 1c07 | | Execute_Immediate Run_Utility,0x7 0085 029f 0523 | #| Declare_Subprogram INIT_0520,For_Call 0087 4802 |H | Short_Literal 0x2 0088 032d | - | Declare_Type Record,Defined 0089 4900 |I | Short_Literal 0x100 008a e010 | | Load 0x0,0x10 008b 1b0e | | Execute Package,Field_Read,Field_Number 0xe 008c 1c07 | | Execute_Immediate Run_Utility,0x7 008d 4900 |I | Short_Literal 0x100 008e e010 | | Load 0x0,0x10 008f 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0090 1c07 | | Execute_Immediate Run_Utility,0x7 0091 029f 054b | K| Declare_Subprogram INIT_0548,For_Call 0093 4802 |H | Short_Literal 0x2 0094 032d | - | Declare_Type Record,Defined 0095 4900 |I | Short_Literal 0x100 0096 e010 | | Load 0x0,0x10 0097 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0098 1c07 | | Execute_Immediate Run_Utility,0x7 0099 4900 |I | Short_Literal 0x100 009a e010 | | Load 0x0,0x10 009b 1b0e | | Execute Package,Field_Read,Field_Number 0xe 009c 1c07 | | Execute_Immediate Run_Utility,0x7 009d 00e1 | | Load_Encached Boolean_Cache 009e e223 | # | Load 0x1,0x23 009f 029f 0573 | s| Declare_Subprogram INIT_0570,For_Call 00a1 4804 |H | Short_Literal 0x4 00a2 032d | - | Declare_Type Record,Defined 00a3 4900 |I | Short_Literal 0x100 00a4 e010 | | Load 0x0,0x10 00a5 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00a6 1c07 | | Execute_Immediate Run_Utility,0x7 00a7 e00f | | Load 0x0,0xf 00a8 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00a9 1b11 | | Execute Package,Field_Read,Field_Number 0x11 00aa 029f 059b | | Declare_Subprogram INIT_0598,For_Call 00ac 4802 |H | Short_Literal 0x2 00ad 032d | - | Declare_Type Record,Defined 00ae 4900 |I | Short_Literal 0x100 00af e010 | | Load 0x0,0x10 00b0 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00b1 1c07 | | Execute_Immediate Run_Utility,0x7 00b2 e009 | | Load 0x0,0x9 00b3 1b78 | x | Execute Package,Field_Read,Field_Number 0x78 00b4 029f 05bb | | Declare_Subprogram INIT_05b8,For_Call 00b6 4802 |H | Short_Literal 0x2 00b7 032d | - | Declare_Type Record,Defined 00b8 e009 | | Load 0x0,0x9 00b9 1b78 | x | Execute Package,Field_Read,Field_Number 0x78 00ba 4900 |I | Short_Literal 0x100 00bb e010 | | Load 0x0,0x10 00bc 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00bd 1c07 | | Execute_Immediate Run_Utility,0x7 00be e00f | | Load 0x0,0xf 00bf 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00c0 1b11 | | Execute Package,Field_Read,Field_Number 0x11 00c1 029f 05db | | Declare_Subprogram INIT_05d8,For_Call 00c3 4803 |H | Short_Literal 0x3 00c4 032d | - | Declare_Type Record,Defined 00c5 00e1 | | Load_Encached Boolean_Cache 00c6 e009 | | Load 0x0,0x9 00c7 1b4a | J | Execute Package,Field_Read,Field_Number 0x4a 00c8 029f 05fb | | Declare_Subprogram INIT_05f8,For_Call 00ca 4802 |H | Short_Literal 0x2 00cb 032d | - | Declare_Type Record,Defined 00cc 00e1 | | Load_Encached Boolean_Cache 00cd 4900 |I | Short_Literal 0x100 00ce e010 | | Load 0x0,0x10 00cf 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00d0 1c07 | | Execute_Immediate Run_Utility,0x7 00d1 029f 0613 | | Declare_Subprogram INIT_0610,For_Call 00d3 4802 |H | Short_Literal 0x2 00d4 032d | - | Declare_Type Record,Defined 00d5 00e3 | | Load_Encached Natural_Cache 00d6 e00f | | Load 0x0,0xf 00d7 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00d8 1b11 | | Execute Package,Field_Read,Field_Number 0x11 00d9 e223 | # | Load 0x1,0x23 00da 029f 0633 | 3| Declare_Subprogram INIT_0630,For_Call 00dc 4800 |H | Short_Literal 0x0 00dd 4802 |H | Short_Literal 0x2 00de 4800 |H | Short_Literal 0x0 00df 4800 |H | Short_Literal 0x0 00e0 4801 |H | Short_Literal 0x1 00e1 031d | | Declare_Type Variant_Record,Defined 00e2 e011 | | Load 0x0,0x11 00e3 e012 | | Load 0x0,0x12 00e4 e222 | " | Load 0x1,0x22 00e5 e013 | | Load 0x0,0x13 00e6 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e 00e7 0387 | | Declare_Variable Package 00e8 00d8 | | Load_Top At_Offset_0 00e9 020f | | Execute Module,Activate 00ea e014 | | Load 0x0,0x14 00eb e015 | | Load 0x0,0x15 00ec e225 | % | Load 0x1,0x25 00ed e013 | | Load 0x0,0x13 00ee 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e 00ef 0387 | | Declare_Variable Package 00f0 00d8 | | Load_Top At_Offset_0 00f1 020f | | Execute Module,Activate 00f2 e013 | | Load 0x0,0x13 00f3 1927 | ' | Execute Package,Field_Reference,Field_Number 0x27 00f4 0007 | | Action Break_Optional 00f5 e013 | | Load 0x0,0x13 00f6 1926 | & | Execute Package,Field_Reference,Field_Number 0x26 00f7 0007 | | Action Break_Optional 00f8 00db | | Load_Top At_Offset_3 00f9 1910 | | Execute Package,Field_Reference,Field_Number 0x10 00fa 0007 | | Action Break_Optional 00fb 00db | | Load_Top At_Offset_3 00fc 1911 | | Execute Package,Field_Reference,Field_Number 0x11 00fd 0007 | | Action Break_Optional 00fe e013 | | Load 0x0,0x13 00ff 1921 | ! | Execute Package,Field_Reference,Field_Number 0x21 0100 0007 | | Action Break_Optional 0101 e013 | | Load 0x0,0x13 0102 1920 | | Execute Package,Field_Reference,Field_Number 0x20 0103 0007 | | Action Break_Optional 0104 029d 065b | [| Declare_Subprogram INIT_0658,For_Outer_Call 0106 029d 0663 | c| Declare_Subprogram INIT_0660,For_Outer_Call 0108 029d 0673 | s| Declare_Subprogram INIT_0670,For_Outer_Call 010a 029d 0683 | | Declare_Subprogram INIT_0680,For_Outer_Call 010c 029d 0693 | | Declare_Subprogram INIT_0690,For_Outer_Call 010e 029d 06a3 | | Declare_Subprogram INIT_06a0,For_Outer_Call 0110 029d 06ab | | Declare_Subprogram INIT_06a8,For_Outer_Call 0112 029d 06b3 | | Declare_Subprogram INIT_06b0,For_Outer_Call 0114 029d 06c3 | | Declare_Subprogram INIT_06c0,For_Outer_Call 0116 029d 06d3 | | Declare_Subprogram INIT_06d0,For_Outer_Call 0118 029d 06e3 | | Declare_Subprogram INIT_06e0,For_Outer_Call 011a 029d 06fb | | Declare_Subprogram INIT_06f8,For_Outer_Call 011c 029d 0713 | | Declare_Subprogram INIT_0710,For_Outer_Call 011e 029d 072b | +| Declare_Subprogram INIT_0728,For_Outer_Call 0120 029d 0743 | C| Declare_Subprogram INIT_0740,For_Outer_Call 0122 029d 075b | [| Declare_Subprogram INIT_0758,For_Outer_Call 0124 029d 076b | k| Declare_Subprogram INIT_0768,For_Outer_Call 0126 029d 0783 | | Declare_Subprogram INIT_0780,For_Outer_Call 0128 029d 0793 | | Declare_Subprogram INIT_0790,For_Outer_Call 012a 029d 07a3 | | Declare_Subprogram INIT_07a0,For_Outer_Call 012c e229 | ) | Load 0x1,0x29 012d 1915 | | Execute Package,Field_Reference,Field_Number 0x15 012e 00c6 | | Action Check_Subprogram_Elaborated 012f e010 | | Load 0x0,0x10 0130 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0131 e230 | 0 | Load 0x1,0x30 0132 1d3f | ? | Execute_Immediate Reference_Lex_1,0x3f 0133 1d4b | K | Execute_Immediate Reference_Lex_1,0x4b 0134 1d52 | R | Execute_Immediate Reference_Lex_1,0x52 0135 e016 | | Load 0x0,0x16 0136 e017 | | Load 0x0,0x17 0137 4800 |H | Short_Literal 0x0 0138 0007 | | Action Break_Optional 0139 029d 07cb | | Declare_Subprogram INIT_07c8,For_Outer_Call 013b e229 | ) | Load 0x1,0x29 013c 1915 | | Execute Package,Field_Reference,Field_Number 0x15 013d 00c6 | | Action Check_Subprogram_Elaborated 013e e010 | | Load 0x0,0x10 013f 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0140 e22d | - | Load 0x1,0x2d 0141 1d3f | ? | Execute_Immediate Reference_Lex_1,0x3f 0142 1d48 | H | Execute_Immediate Reference_Lex_1,0x48 0143 1d5b | [ | Execute_Immediate Reference_Lex_1,0x5b 0144 e018 | | Load 0x0,0x18 0145 e019 | | Load 0x0,0x19 0146 4800 |H | Short_Literal 0x0 0147 0007 | | Action Break_Optional 0148 029d 07eb | | Declare_Subprogram INIT_07e8,For_Outer_Call 014a e229 | ) | Load 0x1,0x29 014b 1915 | | Execute Package,Field_Reference,Field_Number 0x15 014c 00c6 | | Action Check_Subprogram_Elaborated 014d e010 | | Load 0x0,0x10 014e 1b0e | | Execute Package,Field_Read,Field_Number 0xe 014f e22c | , | Load 0x1,0x2c 0150 1d3f | ? | Execute_Immediate Reference_Lex_1,0x3f 0151 1d47 | G | Execute_Immediate Reference_Lex_1,0x47 0152 1d64 | d | Execute_Immediate Reference_Lex_1,0x64 0153 e01a | | Load 0x0,0x1a 0154 e01b | | Load 0x0,0x1b 0155 4800 |H | Short_Literal 0x0 0156 0007 | | Action Break_Optional 0157 029d 080b | | Declare_Subprogram INIT_0808,For_Outer_Call 0159 e229 | ) | Load 0x1,0x29 015a 1915 | | Execute Package,Field_Reference,Field_Number 0x15 015b 00c6 | | Action Check_Subprogram_Elaborated 015c e231 | 1 | Load 0x1,0x31 015d e223 | # | Load 0x1,0x23 015e 1d4c | L | Execute_Immediate Reference_Lex_1,0x4c 015f 1d46 | F | Execute_Immediate Reference_Lex_1,0x46 0160 1d6d | m | Execute_Immediate Reference_Lex_1,0x6d 0161 e01c | | Load 0x0,0x1c 0162 e01d | | Load 0x0,0x1d 0163 4800 |H | Short_Literal 0x0 0164 0007 | | Action Break_Optional 0165 029d 082b | +| Declare_Subprogram INIT_0828,For_Outer_Call 0167 e229 | ) | Load 0x1,0x29 0168 1915 | | Execute Package,Field_Reference,Field_Number 0x15 0169 00c6 | | Action Check_Subprogram_Elaborated 016a e22e | . | Load 0x1,0x2e 016b e223 | # | Load 0x1,0x23 016c 1d49 | I | Execute_Immediate Reference_Lex_1,0x49 016d 1d46 | F | Execute_Immediate Reference_Lex_1,0x46 016e 1d76 | v | Execute_Immediate Reference_Lex_1,0x76 016f e01e | | Load 0x0,0x1e 0170 e01f | | Load 0x0,0x1f 0171 4800 |H | Short_Literal 0x0 0172 0007 | | Action Break_Optional 0173 029d 0843 | C| Declare_Subprogram INIT_0840,For_Outer_Call 0175 e229 | ) | Load 0x1,0x29 0176 1915 | | Execute Package,Field_Reference,Field_Number 0x15 0177 00c6 | | Action Check_Subprogram_Elaborated 0178 e233 | 3 | Load 0x1,0x33 0179 e223 | # | Load 0x1,0x23 017a 1d4e | N | Execute_Immediate Reference_Lex_1,0x4e 017b 1d46 | F | Execute_Immediate Reference_Lex_1,0x46 017c 1d7f | | Execute_Immediate Reference_Lex_1,0x7f 017d e020 | | Load 0x0,0x20 017e e021 | ! | Load 0x0,0x21 017f 4800 |H | Short_Literal 0x0 0180 0007 | | Action Break_Optional 0181 029d 0863 | c| Declare_Subprogram INIT_0860,For_Outer_Call 0183 e229 | ) | Load 0x1,0x29 0184 1915 | | Execute Package,Field_Reference,Field_Number 0x15 0185 00c6 | | Action Check_Subprogram_Elaborated 0186 e233 | 3 | Load 0x1,0x33 0187 e223 | # | Load 0x1,0x23 0188 1d4e | N | Execute_Immediate Reference_Lex_1,0x4e 0189 1d46 | F | Execute_Immediate Reference_Lex_1,0x46 018a 1d88 | | Execute_Immediate Reference_Lex_1,0x88 018b e022 | " | Load 0x0,0x22 018c e023 | # | Load 0x0,0x23 018d 4800 |H | Short_Literal 0x0 018e 0007 | | Action Break_Optional 018f 029d 0883 | | Declare_Subprogram INIT_0880,For_Outer_Call 0191 e229 | ) | Load 0x1,0x29 0192 1915 | | Execute Package,Field_Reference,Field_Number 0x15 0193 00c6 | | Action Check_Subprogram_Elaborated 0194 e232 | 2 | Load 0x1,0x32 0195 e22d | - | Load 0x1,0x2d 0196 1d4d | M | Execute_Immediate Reference_Lex_1,0x4d 0197 1d48 | H | Execute_Immediate Reference_Lex_1,0x48 0198 1d91 | | Execute_Immediate Reference_Lex_1,0x91 0199 e024 | $ | Load 0x0,0x24 019a e025 | % | Load 0x0,0x25 019b 4800 |H | Short_Literal 0x0 019c 0007 | | Action Break_Optional 019d 029d 08b3 | | Declare_Subprogram INIT_08b0,For_Outer_Call 019f e229 | ) | Load 0x1,0x29 01a0 1914 | | Execute Package,Field_Reference,Field_Number 0x14 01a1 00c6 | | Action Check_Subprogram_Elaborated 01a2 e22b | + | Load 0x1,0x2b 01a3 e236 | 6 | Load 0x1,0x36 01a4 1d45 | E | Execute_Immediate Reference_Lex_1,0x45 01a5 1d51 | Q | Execute_Immediate Reference_Lex_1,0x51 01a6 1d9a | | Execute_Immediate Reference_Lex_1,0x9a 01a7 e026 | & | Load 0x0,0x26 01a8 e027 | ' | Load 0x0,0x27 01a9 4800 |H | Short_Literal 0x0 01aa 0007 | | Action Break_Optional 01ab 029d 08cb | | Declare_Subprogram INIT_08c8,For_Outer_Call 01ad e229 | ) | Load 0x1,0x29 01ae 1915 | | Execute Package,Field_Reference,Field_Number 0x15 01af 00c6 | | Action Check_Subprogram_Elaborated 01b0 e010 | | Load 0x0,0x10 01b1 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01b2 e22d | - | Load 0x1,0x2d 01b3 1d3f | ? | Execute_Immediate Reference_Lex_1,0x3f 01b4 1d48 | H | Execute_Immediate Reference_Lex_1,0x48 01b5 1da3 | | Execute_Immediate Reference_Lex_1,0xa3 01b6 e028 | ( | Load 0x0,0x28 01b7 e029 | ) | Load 0x0,0x29 01b8 4800 |H | Short_Literal 0x0 01b9 0007 | | Action Break_Optional 01ba 029d 08f3 | | Declare_Subprogram INIT_08f0,For_Outer_Call 01bc e229 | ) | Load 0x1,0x29 01bd 1915 | | Execute Package,Field_Reference,Field_Number 0x15 01be 00c6 | | Action Check_Subprogram_Elaborated 01bf e010 | | Load 0x0,0x10 01c0 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01c1 e223 | # | Load 0x1,0x23 01c2 1d3f | ? | Execute_Immediate Reference_Lex_1,0x3f 01c3 1d46 | F | Execute_Immediate Reference_Lex_1,0x46 01c4 1dac | | Execute_Immediate Reference_Lex_1,0xac 01c5 e02a | * | Load 0x0,0x2a 01c6 e02b | + | Load 0x0,0x2b 01c7 4800 |H | Short_Literal 0x0 01c8 0007 | | Action Break_Optional 01c9 029d 090b | | Declare_Subprogram INIT_0908,For_Outer_Call 01cb e229 | ) | Load 0x1,0x29 01cc 1915 | | Execute Package,Field_Reference,Field_Number 0x15 01cd 00c6 | | Action Check_Subprogram_Elaborated 01ce e010 | | Load 0x0,0x10 01cf 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01d0 e223 | # | Load 0x1,0x23 01d1 1d3f | ? | Execute_Immediate Reference_Lex_1,0x3f 01d2 1d46 | F | Execute_Immediate Reference_Lex_1,0x46 01d3 1db5 | | Execute_Immediate Reference_Lex_1,0xb5 01d4 e02c | , | Load 0x0,0x2c 01d5 e02d | - | Load 0x0,0x2d 01d6 4800 |H | Short_Literal 0x0 01d7 0007 | | Action Break_Optional 01d8 029d 0923 | #| Declare_Subprogram INIT_0920,For_Outer_Call 01da e229 | ) | Load 0x1,0x29 01db 1915 | | Execute Package,Field_Reference,Field_Number 0x15 01dc 00c6 | | Action Check_Subprogram_Elaborated 01dd e010 | | Load 0x0,0x10 01de 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01df e22d | - | Load 0x1,0x2d 01e0 1d3f | ? | Execute_Immediate Reference_Lex_1,0x3f 01e1 1d48 | H | Execute_Immediate Reference_Lex_1,0x48 01e2 1dbe | | Execute_Immediate Reference_Lex_1,0xbe 01e3 e02e | . | Load 0x0,0x2e 01e4 e02f | / | Load 0x0,0x2f 01e5 4800 |H | Short_Literal 0x0 01e6 0007 | | Action Break_Optional 01e7 029d 0943 | C| Declare_Subprogram INIT_0940,For_Outer_Call 01e9 e229 | ) | Load 0x1,0x29 01ea 1915 | | Execute Package,Field_Reference,Field_Number 0x15 01eb 00c6 | | Action Check_Subprogram_Elaborated 01ec e010 | | Load 0x0,0x10 01ed 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01ee e223 | # | Load 0x1,0x23 01ef 1d3f | ? | Execute_Immediate Reference_Lex_1,0x3f 01f0 1d46 | F | Execute_Immediate Reference_Lex_1,0x46 01f1 1dc7 | | Execute_Immediate Reference_Lex_1,0xc7 01f2 e030 | 0 | Load 0x0,0x30 01f3 e031 | 1 | Load 0x0,0x31 01f4 4800 |H | Short_Literal 0x0 01f5 0007 | | Action Break_Optional 01f6 029d 095b | [| Declare_Subprogram INIT_0958,For_Outer_Call 01f8 e229 | ) | Load 0x1,0x29 01f9 1915 | | Execute Package,Field_Reference,Field_Number 0x15 01fa 00c6 | | Action Check_Subprogram_Elaborated 01fb e010 | | Load 0x0,0x10 01fc 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01fd e234 | 4 | Load 0x1,0x34 01fe 1d3f | ? | Execute_Immediate Reference_Lex_1,0x3f 01ff 1d50 | P | Execute_Immediate Reference_Lex_1,0x50 0200 1dd0 | | Execute_Immediate Reference_Lex_1,0xd0 0201 e032 | 2 | Load 0x0,0x32 0202 e033 | 3 | Load 0x0,0x33 0203 4800 |H | Short_Literal 0x0 0204 0007 | | Action Break_Optional 0205 029d 097b | {| Declare_Subprogram INIT_0978,For_Outer_Call 0207 e229 | ) | Load 0x1,0x29 0208 1915 | | Execute Package,Field_Reference,Field_Number 0x15 0209 00c6 | | Action Check_Subprogram_Elaborated 020a e010 | | Load 0x0,0x10 020b 1b0e | | Execute Package,Field_Read,Field_Number 0xe 020c e22c | , | Load 0x1,0x2c 020d 1d3f | ? | Execute_Immediate Reference_Lex_1,0x3f 020e 1d47 | G | Execute_Immediate Reference_Lex_1,0x47 020f 1dd9 | | Execute_Immediate Reference_Lex_1,0xd9 0210 e034 | 4 | Load 0x0,0x34 0211 e035 | 5 | Load 0x0,0x35 0212 4800 |H | Short_Literal 0x0 0213 0007 | | Action Break_Optional 0214 029d 099b | | Declare_Subprogram INIT_0998,For_Outer_Call 0216 e229 | ) | Load 0x1,0x29 0217 1915 | | Execute Package,Field_Reference,Field_Number 0x15 0218 00c6 | | Action Check_Subprogram_Elaborated 0219 e010 | | Load 0x0,0x10 021a 1b0e | | Execute Package,Field_Read,Field_Number 0xe 021b e22c | , | Load 0x1,0x2c 021c 1d3f | ? | Execute_Immediate Reference_Lex_1,0x3f 021d 1d47 | G | Execute_Immediate Reference_Lex_1,0x47 021e 1de2 | | Execute_Immediate Reference_Lex_1,0xe2 021f e036 | 6 | Load 0x0,0x36 0220 e037 | 7 | Load 0x0,0x37 0221 4800 |H | Short_Literal 0x0 0222 0007 | | Action Break_Optional 0223 029d 09bb | | Declare_Subprogram INIT_09b8,For_Outer_Call 0225 e229 | ) | Load 0x1,0x29 0226 1915 | | Execute Package,Field_Reference,Field_Number 0x15 0227 00c6 | | Action Check_Subprogram_Elaborated 0228 e235 | 5 | Load 0x1,0x35 0229 e236 | 6 | Load 0x1,0x36 022a 1d4f | O | Execute_Immediate Reference_Lex_1,0x4f 022b 1d51 | Q | Execute_Immediate Reference_Lex_1,0x51 022c 1deb | | Execute_Immediate Reference_Lex_1,0xeb 022d e038 | 8 | Load 0x0,0x38 022e e039 | 9 | Load 0x0,0x39 022f 4800 |H | Short_Literal 0x0 0230 0007 | | Action Break_Optional 0231 029d 09db | | Declare_Subprogram INIT_09d8,For_Outer_Call 0233 e229 | ) | Load 0x1,0x29 0234 1915 | | Execute Package,Field_Reference,Field_Number 0x15 0235 00c6 | | Action Check_Subprogram_Elaborated 0236 e235 | 5 | Load 0x1,0x35 0237 e236 | 6 | Load 0x1,0x36 0238 1d4f | O | Execute_Immediate Reference_Lex_1,0x4f 0239 1d51 | Q | Execute_Immediate Reference_Lex_1,0x51 023a 1df4 | | Execute_Immediate Reference_Lex_1,0xf4 023b e03a | : | Load 0x0,0x3a 023c e03b | ; | Load 0x0,0x3b 023d 4800 |H | Short_Literal 0x0 023e 0007 | | Action Break_Optional 023f 029d 09fb | | Declare_Subprogram INIT_09f8,For_Outer_Call 0241 e229 | ) | Load 0x1,0x29 0242 1914 | | Execute Package,Field_Reference,Field_Number 0x14 0243 00c6 | | Action Check_Subprogram_Elaborated 0244 e22b | + | Load 0x1,0x2b 0245 e22d | - | Load 0x1,0x2d 0246 1d45 | E | Execute_Immediate Reference_Lex_1,0x45 0247 1d48 | H | Execute_Immediate Reference_Lex_1,0x48 0248 1dfd | | Execute_Immediate Reference_Lex_1,0xfd 0249 e03c | < | Load 0x0,0x3c 024a e03d | = | Load 0x0,0x3d 024b 4800 |H | Short_Literal 0x0 024c 0007 | | Action Break_Optional 024d 029d 0a1b | | Declare_Subprogram INIT_0a18,For_Outer_Call 024f e229 | ) | Load 0x1,0x29 0250 1914 | | Execute Package,Field_Reference,Field_Number 0x14 0251 00c6 | | Action Check_Subprogram_Elaborated 0252 e22b | + | Load 0x1,0x2b 0253 e22d | - | Load 0x1,0x2d 0254 1d45 | E | Execute_Immediate Reference_Lex_1,0x45 0255 1d48 | H | Execute_Immediate Reference_Lex_1,0x48 0256 4906 |I | Short_Literal 0x106 0257 4801 |H | Short_Literal 0x1 0258 0099 | | Action Reference_Dynamic 0259 e03e | > | Load 0x0,0x3e 025a e03f | ? | Load 0x0,0x3f 025b 4800 |H | Short_Literal 0x0 025c 0007 | | Action Break_Optional 025d 029d 0a3b | ;| Declare_Subprogram INIT_0a38,For_Outer_Call 025f e229 | ) | Load 0x1,0x29 0260 1915 | | Execute Package,Field_Reference,Field_Number 0x15 0261 00c6 | | Action Check_Subprogram_Elaborated 0262 e010 | | Load 0x0,0x10 0263 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0264 e223 | # | Load 0x1,0x23 0265 1d3f | ? | Execute_Immediate Reference_Lex_1,0x3f 0266 1d46 | F | Execute_Immediate Reference_Lex_1,0x46 0267 490f |I | Short_Literal 0x10f 0268 4801 |H | Short_Literal 0x1 0269 0099 | | Action Reference_Dynamic 026a e040 | @ | Load 0x0,0x40 026b e041 | A | Load 0x0,0x41 026c 4800 |H | Short_Literal 0x0 026d 0007 | | Action Break_Optional 026e 029d 0a53 | S| Declare_Subprogram INIT_0a50,For_Outer_Call 0270 e229 | ) | Load 0x1,0x29 0271 1915 | | Execute Package,Field_Reference,Field_Number 0x15 0272 00c6 | | Action Check_Subprogram_Elaborated 0273 e010 | | Load 0x0,0x10 0274 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0275 e223 | # | Load 0x1,0x23 0276 1d3f | ? | Execute_Immediate Reference_Lex_1,0x3f 0277 1d46 | F | Execute_Immediate Reference_Lex_1,0x46 0278 4918 |I | Short_Literal 0x118 0279 4801 |H | Short_Literal 0x1 027a 0099 | | Action Reference_Dynamic 027b e042 | B | Load 0x0,0x42 027c e043 | C | Load 0x0,0x43 027d 4800 |H | Short_Literal 0x0 027e 0007 | | Action Break_Optional 027f 029d 0a6b | k| Declare_Subprogram INIT_0a68,For_Outer_Call 0281 e229 | ) | Load 0x1,0x29 0282 1914 | | Execute Package,Field_Reference,Field_Number 0x14 0283 00c6 | | Action Check_Subprogram_Elaborated 0284 e22b | + | Load 0x1,0x2b 0285 e223 | # | Load 0x1,0x23 0286 1d45 | E | Execute_Immediate Reference_Lex_1,0x45 0287 1d46 | F | Execute_Immediate Reference_Lex_1,0x46 0288 4921 |I! | Short_Literal 0x121 0289 4801 |H | Short_Literal 0x1 028a 0099 | | Action Reference_Dynamic 028b e044 | D | Load 0x0,0x44 028c e045 | E | Load 0x0,0x45 028d 4800 |H | Short_Literal 0x0 028e 0007 | | Action Break_Optional 028f 029d 0a83 | | Declare_Subprogram INIT_0a80,For_Outer_Call 0291 e229 | ) | Load 0x1,0x29 0292 1915 | | Execute Package,Field_Reference,Field_Number 0x15 0293 00c6 | | Action Check_Subprogram_Elaborated 0294 e010 | | Load 0x0,0x10 0295 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0296 e223 | # | Load 0x1,0x23 0297 1d3f | ? | Execute_Immediate Reference_Lex_1,0x3f 0298 1d46 | F | Execute_Immediate Reference_Lex_1,0x46 0299 492a |I* | Short_Literal 0x12a 029a 4801 |H | Short_Literal 0x1 029b 0099 | | Action Reference_Dynamic 029c e046 | F | Load 0x0,0x46 029d e047 | G | Load 0x0,0x47 029e 4800 |H | Short_Literal 0x0 029f 0007 | | Action Break_Optional 02a0 029d 0a9b | | Declare_Subprogram INIT_0a98,For_Outer_Call 02a2 e229 | ) | Load 0x1,0x29 02a3 1915 | | Execute Package,Field_Reference,Field_Number 0x15 02a4 00c6 | | Action Check_Subprogram_Elaborated 02a5 e22f | / | Load 0x1,0x2f 02a6 e22d | - | Load 0x1,0x2d 02a7 1d4a | J | Execute_Immediate Reference_Lex_1,0x4a 02a8 1d48 | H | Execute_Immediate Reference_Lex_1,0x48 02a9 4933 |I3 | Short_Literal 0x133 02aa 4801 |H | Short_Literal 0x1 02ab 0099 | | Action Reference_Dynamic 02ac e048 | H | Load 0x0,0x48 02ad e049 | I | Load 0x0,0x49 02ae 4800 |H | Short_Literal 0x0 02af 0007 | | Action Break_Optional 02b0 029d 0acb | | Declare_Subprogram INIT_0ac8,For_Outer_Call 02b2 e229 | ) | Load 0x1,0x29 02b3 1914 | | Execute Package,Field_Reference,Field_Number 0x14 02b4 00c6 | | Action Check_Subprogram_Elaborated 02b5 e22b | + | Load 0x1,0x2b 02b6 e22d | - | Load 0x1,0x2d 02b7 1d45 | E | Execute_Immediate Reference_Lex_1,0x45 02b8 1d48 | H | Execute_Immediate Reference_Lex_1,0x48 02b9 493c |I< | Short_Literal 0x13c 02ba 4801 |H | Short_Literal 0x1 02bb 0099 | | Action Reference_Dynamic 02bc e04a | J | Load 0x0,0x4a 02bd e04b | K | Load 0x0,0x4b 02be 4800 |H | Short_Literal 0x0 02bf 0007 | | Action Break_Optional 02c0 029d 0aeb | | Declare_Subprogram INIT_0ae8,For_Outer_Call 02c2 e229 | ) | Load 0x1,0x29 02c3 1915 | | Execute Package,Field_Reference,Field_Number 0x15 02c4 00c6 | | Action Check_Subprogram_Elaborated 02c5 e010 | | Load 0x0,0x10 02c6 1b0e | | Execute Package,Field_Read,Field_Number 0xe 02c7 e223 | # | Load 0x1,0x23 02c8 1d3f | ? | Execute_Immediate Reference_Lex_1,0x3f 02c9 1d46 | F | Execute_Immediate Reference_Lex_1,0x46 02ca 4945 |IE | Short_Literal 0x145 02cb 4801 |H | Short_Literal 0x1 02cc 0099 | | Action Reference_Dynamic 02cd e04c | L | Load 0x0,0x4c 02ce e04d | M | Load 0x0,0x4d 02cf 4800 |H | Short_Literal 0x0 02d0 0007 | | Action Break_Optional 02d1 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28 02d2 00c7 | | Action Elaborate_Subprogram 02d3 029d 0b03 | | Declare_Subprogram INIT_0b00,For_Outer_Call 02d5 1d12 | | Execute_Immediate Reference_Lex_1,0x12 02d6 00c7 | | Action Elaborate_Subprogram 02d7 1d0f | | Execute_Immediate Reference_Lex_1,0xf 02d8 00c7 | | Action Elaborate_Subprogram 02d9 1d13 | | Execute_Immediate Reference_Lex_1,0x13 02da 00c7 | | Action Elaborate_Subprogram 02db 1d26 | & | Execute_Immediate Reference_Lex_1,0x26 02dc 00c7 | | Action Elaborate_Subprogram 02dd 029d 0b1b | | Declare_Subprogram INIT_0b18,For_Outer_Call 02df 1d15 | | Execute_Immediate Reference_Lex_1,0x15 02e0 00c7 | | Action Elaborate_Subprogram 02e1 1d16 | | Execute_Immediate Reference_Lex_1,0x16 02e2 00c7 | | Action Elaborate_Subprogram 02e3 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 02e4 00c7 | | Action Elaborate_Subprogram 02e5 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 02e6 00c7 | | Action Elaborate_Subprogram 02e7 1d20 | | Execute_Immediate Reference_Lex_1,0x20 02e8 00c7 | | Action Elaborate_Subprogram 02e9 BODY_0008: 02e9 00bc | | Action Signal_Activated 02ea 00bb | | Action Signal_Completion 02eb 0000 0000 | | .BLANK 0000[0x5] 02f0 ; -------------------------------------------------------------------------------------- 02f0 ; SUBPROGRAM 02f0 ; -------------------------------------------------------------------------------------- 02f0 02f6 | | .CONST 0x02f6 ; Address of begin 02f1 030a | | .CONST 0x030a ; Address of exception handler 02f2 0002 | | .CONST 0x0002 ; Number of locals 02f3 INIT_02f0: 02f3 e00a | | Load 0x0,0xa 02f4 1b11 | | Execute Package,Field_Read,Field_Number 0x11 02f5 0337 | 7 | Declare_Variable Array 02f6 BODY_02f0: 02f6 00db | | Load_Top At_Offset_3 02f7 e010 | | Load 0x0,0x10 02f8 1814 | | Execute Package,Field_Execute,Field_Number 0x14 02f9 e009 | | Load 0x0,0x9 02fa 186d | m | Execute Package,Field_Execute,Field_Number 0x6d 02fb e5fe | | Load 0x2,-0x2 02fc e010 | | Load 0x0,0x10 02fd 1814 | | Execute Package,Field_Execute,Field_Number 0x14 02fe e009 | | Load 0x0,0x9 02ff 186e | n | Execute Package,Field_Execute,Field_Number 0x6e 0300 00d8 | | Load_Top At_Offset_0 0301 6016 |` | Indirect_Literal Discrete,0x318,{0x00007fff, 0xffffffff} 0302 4800 |H | Short_Literal 0x0 0303 e22a | * | Load 0x1,0x2a 0304 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0305 00d1 | | Pop_Control Pop_Count_1 0306 00d8 | | Load_Top At_Offset_0 0307 834e | N | Call 0x1,0x14e 0308 a5fd | | Store_Unchecked 0x2,-0x3 0309 4503 |E | Exit_Suprogram New_Top_Offset 0x3 030a TRAP_02f0: 030a e04e | N | Load 0x0,0x4e 030b 1b0e | | Execute Package,Field_Read,Field_Number 0xe 030c 010f | | Execute Exception,Equal 030d 6802 |h | Jump_Zero 0x310 030e e211 | | Load 0x1,0x11 030f 0257 | W | Execute Discrete,Raise 0310 e00a | | Load 0x0,0xa 0311 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 0312 010f | | Execute Exception,Equal 0313 6802 |h | Jump_Zero 0x316 0314 e210 | | Load 0x1,0x10 0315 0257 | W | Execute Discrete,Raise 0316 0100 | | Execute Exception,Raise 0317 0000 | | .XXX[0x1] 0318 0000 7fff | | .LITERAL {0x00007fff, 0xffffffff} 031c 0000 0000 | | .BLANK 0000[0x4] 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 e22a | * | Load 0x1,0x2a 0324 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0325 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0326 0000 0000 | | .XXX[0x2] 0328 ; -------------------------------------------------------------------------------------- 0328 ; SUBPROGRAM 0328 ; -------------------------------------------------------------------------------------- 0328 032b | + | .CONST 0x032b ; Address of begin 0329 0004 | | .CONST 0x0004 ; Address of exception handler 032a 0001 | | .CONST 0x0001 ; Number of locals 032b BODY_0328: 032b INIT_0328: 032b e22a | * | Load 0x1,0x2a 032c 1812 | | Execute Package,Field_Execute,Field_Number 0x12 032d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 032e 0000 0000 | | .XXX[0x2] 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 4801 |H | Short_Literal 0x1 0334 e009 | | Load 0x0,0x9 0335 1b4a | J | Execute Package,Field_Read,Field_Number 0x4a 0336 1c08 | | Execute_Immediate Run_Utility,0x8 0337 00d8 | | Load_Top At_Offset_0 0338 1c01 | | Execute_Immediate Run_Utility,0x1 0339 4900 |I | Short_Literal 0x100 033a e5ff | | Load 0x2,-0x1 033b e010 | | Load 0x0,0x10 033c 1813 | | Execute Package,Field_Execute,Field_Number 0x13 033d e010 | | Load 0x0,0x10 033e 1815 | | Execute Package,Field_Execute,Field_Number 0x15 033f 00d9 | | Load_Top At_Offset_1 0340 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2 0341 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0342 0000 0000 | | .BLANK 0000[0x6] 0348 ; -------------------------------------------------------------------------------------- 0348 ; SUBPROGRAM 0348 ; -------------------------------------------------------------------------------------- 0348 034b | K | .CONST 0x034b ; Address of begin 0349 0004 | | .CONST 0x0004 ; Address of exception handler 034a 0001 | | .CONST 0x0001 ; Number of locals 034b BODY_0348: 034b INIT_0348: 034b 00db | | Load_Top At_Offset_3 034c 6197 |a | Indirect_Literal Discrete,0x4e4,{0x00000000, 0x20000888} 034d 027f | | Execute Discrete,Equal 034e 7002 |p | Jump_Nonzero 0x351 034f 4801 |H | Short_Literal 0x1 0350 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 0351 e5fd | | Load 0x2,-0x3 0352 0f04 | | Execute_Immediate Equal,0x4 0353 7002 |p | Jump_Nonzero 0x356 0354 4802 |H | Short_Literal 0x2 0355 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 0356 e5fc | | Load 0x2,-0x4 0357 00d8 | | Load_Top At_Offset_0 0358 4801 |H | Short_Literal 0x1 0359 481e |H | Short_Literal 0x1e 035a 0262 | b | Execute Discrete,In_Range 035b 6980 |i | Jump_Zero 0x4dc 035c 0aff | | Execute_Immediate Plus,-0x1 035d 461d |F | Jump_Case 0x1e 035e 7839 |x9 | Jump 0x398 ; case 0x0 035f 78ba |x | Jump 0x41a ; case 0x1 0360 782d |x- | Jump 0x38e ; case 0x2 0361 78cc |x | Jump 0x42e ; case 0x3 0362 783f |x? | Jump 0x3a2 ; case 0x4 0363 7848 |xH | Jump 0x3ac ; case 0x5 0364 7851 |xQ | Jump 0x3b6 ; case 0x6 0365 785a |xZ | Jump 0x3c0 ; case 0x7 0366 7863 |xc | Jump 0x3ca ; case 0x8 0367 786c |xl | Jump 0x3d4 ; case 0x9 0368 7875 |xu | Jump 0x3de ; case 0xa 0369 787e |x~ | Jump 0x3e8 ; case 0xb 036a 7887 |x | Jump 0x3f2 ; case 0xc 036b 7890 |x | Jump 0x3fc ; case 0xd 036c 7899 |x | Jump 0x406 ; case 0xe 036d 78a2 |x | Jump 0x410 ; case 0xf 036e 7970 |yp | Jump 0x4df ; case 0x10 036f 78b4 |x | Jump 0x424 ; case 0x11 0370 796e |yn | Jump 0x4df ; case 0x12 0371 78c6 |x | Jump 0x438 ; case 0x13 0372 78cf |x | Jump 0x442 ; case 0x14 0373 78d8 |x | Jump 0x44c ; case 0x15 0374 78e9 |x | Jump 0x45e ; case 0x16 0375 78fa |x | Jump 0x470 ; case 0x17 0376 790b |y | Jump 0x482 ; case 0x18 0377 791c |y | Jump 0x494 ; case 0x19 0378 792d |y- | Jump 0x4a6 ; case 0x1a 0379 793e |y> | Jump 0x4b8 ; case 0x1b 037a 794f |yO | Jump 0x4ca ; case 0x1c 037b 7800 |x | Jump 0x37c ; case 0x1d 037c 00da | | Load_Top At_Offset_2 037d e346 | F | Load 0x1,0x146 037e e347 | G | Load 0x1,0x147 037f 4948 |IH | Short_Literal 0x148 0380 4801 |H | Short_Literal 0x1 0381 0099 | | Action Reference_Dynamic 0382 4949 |II | Short_Literal 0x149 0383 4801 |H | Short_Literal 0x1 0384 0099 | | Action Reference_Dynamic 0385 494a |IJ | Short_Literal 0x14a 0386 4801 |H | Short_Literal 0x1 0387 0099 | | Action Reference_Dynamic 0388 494b |IK | Short_Literal 0x14b 0389 4801 |H | Short_Literal 0x1 038a 0099 | | Action Reference_Dynamic 038b e229 | ) | Load 0x1,0x29 038c 1815 | | Execute Package,Field_Execute,Field_Number 0x15 038d 7951 |yQ | Jump 0x4df 038e 00da | | Load_Top At_Offset_2 038f e265 | e | Load 0x1,0x65 0390 e266 | f | Load 0x1,0x66 0391 1d67 | g | Execute_Immediate Reference_Lex_1,0x67 0392 1d68 | h | Execute_Immediate Reference_Lex_1,0x68 0393 1d69 | i | Execute_Immediate Reference_Lex_1,0x69 0394 1d6a | j | Execute_Immediate Reference_Lex_1,0x6a 0395 e229 | ) | Load 0x1,0x29 0396 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0397 7947 |yG | Jump 0x4df 0398 00da | | Load_Top At_Offset_2 0399 e253 | S | Load 0x1,0x53 039a e254 | T | Load 0x1,0x54 039b 1d55 | U | Execute_Immediate Reference_Lex_1,0x55 039c 1d56 | V | Execute_Immediate Reference_Lex_1,0x56 039d 1d57 | W | Execute_Immediate Reference_Lex_1,0x57 039e 1d58 | X | Execute_Immediate Reference_Lex_1,0x58 039f e229 | ) | Load 0x1,0x29 03a0 1815 | | Execute Package,Field_Execute,Field_Number 0x15 03a1 793d |y= | Jump 0x4df 03a2 00da | | Load_Top At_Offset_2 03a3 e277 | w | Load 0x1,0x77 03a4 e278 | x | Load 0x1,0x78 03a5 1d79 | y | Execute_Immediate Reference_Lex_1,0x79 03a6 1d7a | z | Execute_Immediate Reference_Lex_1,0x7a 03a7 1d7b | { | Execute_Immediate Reference_Lex_1,0x7b 03a8 1d7c | | | Execute_Immediate Reference_Lex_1,0x7c 03a9 e229 | ) | Load 0x1,0x29 03aa 1815 | | Execute Package,Field_Execute,Field_Number 0x15 03ab 7933 |y3 | Jump 0x4df 03ac 00da | | Load_Top At_Offset_2 03ad e280 | | Load 0x1,0x80 03ae e281 | | Load 0x1,0x81 03af 1d82 | | Execute_Immediate Reference_Lex_1,0x82 03b0 1d83 | | Execute_Immediate Reference_Lex_1,0x83 03b1 1d84 | | Execute_Immediate Reference_Lex_1,0x84 03b2 1d85 | | Execute_Immediate Reference_Lex_1,0x85 03b3 e229 | ) | Load 0x1,0x29 03b4 1815 | | Execute Package,Field_Execute,Field_Number 0x15 03b5 7929 |y) | Jump 0x4df 03b6 00da | | Load_Top At_Offset_2 03b7 e289 | | Load 0x1,0x89 03b8 e28a | | Load 0x1,0x8a 03b9 1d8b | | Execute_Immediate Reference_Lex_1,0x8b 03ba 1d8c | | Execute_Immediate Reference_Lex_1,0x8c 03bb 1d8d | | Execute_Immediate Reference_Lex_1,0x8d 03bc 1d8e | | Execute_Immediate Reference_Lex_1,0x8e 03bd e229 | ) | Load 0x1,0x29 03be 1815 | | Execute Package,Field_Execute,Field_Number 0x15 03bf 791f |y | Jump 0x4df 03c0 00da | | Load_Top At_Offset_2 03c1 e292 | | Load 0x1,0x92 03c2 e293 | | Load 0x1,0x93 03c3 1d94 | | Execute_Immediate Reference_Lex_1,0x94 03c4 1d95 | | Execute_Immediate Reference_Lex_1,0x95 03c5 1d96 | | Execute_Immediate Reference_Lex_1,0x96 03c6 1d97 | | Execute_Immediate Reference_Lex_1,0x97 03c7 e229 | ) | Load 0x1,0x29 03c8 1815 | | Execute Package,Field_Execute,Field_Number 0x15 03c9 7915 |y | Jump 0x4df 03ca 00da | | Load_Top At_Offset_2 03cb e29b | | Load 0x1,0x9b 03cc e29c | | Load 0x1,0x9c 03cd 1d9d | | Execute_Immediate Reference_Lex_1,0x9d 03ce 1d9e | | Execute_Immediate Reference_Lex_1,0x9e 03cf 1d9f | | Execute_Immediate Reference_Lex_1,0x9f 03d0 1da0 | | Execute_Immediate Reference_Lex_1,0xa0 03d1 e229 | ) | Load 0x1,0x29 03d2 1814 | | Execute Package,Field_Execute,Field_Number 0x14 03d3 790b |y | Jump 0x4df 03d4 00da | | Load_Top At_Offset_2 03d5 e2a4 | | Load 0x1,0xa4 03d6 e2a5 | | Load 0x1,0xa5 03d7 1da6 | | Execute_Immediate Reference_Lex_1,0xa6 03d8 1da7 | | Execute_Immediate Reference_Lex_1,0xa7 03d9 1da8 | | Execute_Immediate Reference_Lex_1,0xa8 03da 1da9 | | Execute_Immediate Reference_Lex_1,0xa9 03db e229 | ) | Load 0x1,0x29 03dc 1815 | | Execute Package,Field_Execute,Field_Number 0x15 03dd 7901 |y | Jump 0x4df 03de 00da | | Load_Top At_Offset_2 03df e2ad | | Load 0x1,0xad 03e0 e2ae | | Load 0x1,0xae 03e1 1daf | | Execute_Immediate Reference_Lex_1,0xaf 03e2 1db0 | | Execute_Immediate Reference_Lex_1,0xb0 03e3 1db1 | | Execute_Immediate Reference_Lex_1,0xb1 03e4 1db2 | | Execute_Immediate Reference_Lex_1,0xb2 03e5 e229 | ) | Load 0x1,0x29 03e6 1815 | | Execute Package,Field_Execute,Field_Number 0x15 03e7 78f7 |x | Jump 0x4df 03e8 00da | | Load_Top At_Offset_2 03e9 e2b6 | | Load 0x1,0xb6 03ea e2b7 | | Load 0x1,0xb7 03eb 1db8 | | Execute_Immediate Reference_Lex_1,0xb8 03ec 1db9 | | Execute_Immediate Reference_Lex_1,0xb9 03ed 1dba | | Execute_Immediate Reference_Lex_1,0xba 03ee 1dbb | | Execute_Immediate Reference_Lex_1,0xbb 03ef e229 | ) | Load 0x1,0x29 03f0 1815 | | Execute Package,Field_Execute,Field_Number 0x15 03f1 78ed |x | Jump 0x4df 03f2 00da | | Load_Top At_Offset_2 03f3 e2bf | | Load 0x1,0xbf 03f4 e2c0 | | Load 0x1,0xc0 03f5 1dc1 | | Execute_Immediate Reference_Lex_1,0xc1 03f6 1dc2 | | Execute_Immediate Reference_Lex_1,0xc2 03f7 1dc3 | | Execute_Immediate Reference_Lex_1,0xc3 03f8 1dc4 | | Execute_Immediate Reference_Lex_1,0xc4 03f9 e229 | ) | Load 0x1,0x29 03fa 1815 | | Execute Package,Field_Execute,Field_Number 0x15 03fb 78e3 |x | Jump 0x4df 03fc 00da | | Load_Top At_Offset_2 03fd e2c8 | | Load 0x1,0xc8 03fe e2c9 | | Load 0x1,0xc9 03ff 1dca | | Execute_Immediate Reference_Lex_1,0xca 0400 1dcb | | Execute_Immediate Reference_Lex_1,0xcb 0401 1dcc | | Execute_Immediate Reference_Lex_1,0xcc 0402 1dcd | | Execute_Immediate Reference_Lex_1,0xcd 0403 e229 | ) | Load 0x1,0x29 0404 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0405 78d9 |x | Jump 0x4df 0406 00da | | Load_Top At_Offset_2 0407 e2d1 | | Load 0x1,0xd1 0408 e2d2 | | Load 0x1,0xd2 0409 1dd3 | | Execute_Immediate Reference_Lex_1,0xd3 040a 1dd4 | | Execute_Immediate Reference_Lex_1,0xd4 040b 1dd5 | | Execute_Immediate Reference_Lex_1,0xd5 040c 1dd6 | | Execute_Immediate Reference_Lex_1,0xd6 040d e229 | ) | Load 0x1,0x29 040e 1815 | | Execute Package,Field_Execute,Field_Number 0x15 040f 78cf |x | Jump 0x4df 0410 00da | | Load_Top At_Offset_2 0411 e2da | | Load 0x1,0xda 0412 e2db | | Load 0x1,0xdb 0413 1ddc | | Execute_Immediate Reference_Lex_1,0xdc 0414 1ddd | | Execute_Immediate Reference_Lex_1,0xdd 0415 1dde | | Execute_Immediate Reference_Lex_1,0xde 0416 1ddf | | Execute_Immediate Reference_Lex_1,0xdf 0417 e229 | ) | Load 0x1,0x29 0418 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0419 78c5 |x | Jump 0x4df 041a 00da | | Load_Top At_Offset_2 041b e25c | \ | Load 0x1,0x5c 041c e25d | ] | Load 0x1,0x5d 041d 1d5e | ^ | Execute_Immediate Reference_Lex_1,0x5e 041e 1d5f | _ | Execute_Immediate Reference_Lex_1,0x5f 041f 1d60 | ` | Execute_Immediate Reference_Lex_1,0x60 0420 1d61 | a | Execute_Immediate Reference_Lex_1,0x61 0421 e229 | ) | Load 0x1,0x29 0422 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0423 78bb |x | Jump 0x4df 0424 00da | | Load_Top At_Offset_2 0425 e2e3 | | Load 0x1,0xe3 0426 e2e4 | | Load 0x1,0xe4 0427 1de5 | | Execute_Immediate Reference_Lex_1,0xe5 0428 1de6 | | Execute_Immediate Reference_Lex_1,0xe6 0429 1de7 | | Execute_Immediate Reference_Lex_1,0xe7 042a 1de8 | | Execute_Immediate Reference_Lex_1,0xe8 042b e229 | ) | Load 0x1,0x29 042c 1815 | | Execute Package,Field_Execute,Field_Number 0x15 042d 78b1 |x | Jump 0x4df 042e 00da | | Load_Top At_Offset_2 042f e26e | n | Load 0x1,0x6e 0430 e26f | o | Load 0x1,0x6f 0431 1d70 | p | Execute_Immediate Reference_Lex_1,0x70 0432 1d71 | q | Execute_Immediate Reference_Lex_1,0x71 0433 1d72 | r | Execute_Immediate Reference_Lex_1,0x72 0434 1d73 | s | Execute_Immediate Reference_Lex_1,0x73 0435 e229 | ) | Load 0x1,0x29 0436 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0437 78a7 |x | Jump 0x4df 0438 00da | | Load_Top At_Offset_2 0439 e2ec | | Load 0x1,0xec 043a e2ed | | Load 0x1,0xed 043b 1dee | | Execute_Immediate Reference_Lex_1,0xee 043c 1def | | Execute_Immediate Reference_Lex_1,0xef 043d 1df0 | | Execute_Immediate Reference_Lex_1,0xf0 043e 1df1 | | Execute_Immediate Reference_Lex_1,0xf1 043f e229 | ) | Load 0x1,0x29 0440 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0441 789d |x | Jump 0x4df 0442 00da | | Load_Top At_Offset_2 0443 e2f5 | | Load 0x1,0xf5 0444 e2f6 | | Load 0x1,0xf6 0445 1df7 | | Execute_Immediate Reference_Lex_1,0xf7 0446 1df8 | | Execute_Immediate Reference_Lex_1,0xf8 0447 1df9 | | Execute_Immediate Reference_Lex_1,0xf9 0448 1dfa | | Execute_Immediate Reference_Lex_1,0xfa 0449 e229 | ) | Load 0x1,0x29 044a 1815 | | Execute Package,Field_Execute,Field_Number 0x15 044b 7893 |x | Jump 0x4df 044c 00da | | Load_Top At_Offset_2 044d e2fe | | Load 0x1,0xfe 044e e2ff | | Load 0x1,0xff 044f 4900 |I | Short_Literal 0x100 0450 4801 |H | Short_Literal 0x1 0451 0099 | | Action Reference_Dynamic 0452 4901 |I | Short_Literal 0x101 0453 4801 |H | Short_Literal 0x1 0454 0099 | | Action Reference_Dynamic 0455 4902 |I | Short_Literal 0x102 0456 4801 |H | Short_Literal 0x1 0457 0099 | | Action Reference_Dynamic 0458 4903 |I | Short_Literal 0x103 0459 4801 |H | Short_Literal 0x1 045a 0099 | | Action Reference_Dynamic 045b e229 | ) | Load 0x1,0x29 045c 1814 | | Execute Package,Field_Execute,Field_Number 0x14 045d 7881 |x | Jump 0x4df 045e 00da | | Load_Top At_Offset_2 045f e307 | | Load 0x1,0x107 0460 e308 | | Load 0x1,0x108 0461 4909 |I | Short_Literal 0x109 0462 4801 |H | Short_Literal 0x1 0463 0099 | | Action Reference_Dynamic 0464 490a |I | Short_Literal 0x10a 0465 4801 |H | Short_Literal 0x1 0466 0099 | | Action Reference_Dynamic 0467 490b |I | Short_Literal 0x10b 0468 4801 |H | Short_Literal 0x1 0469 0099 | | Action Reference_Dynamic 046a 490c |I | Short_Literal 0x10c 046b 4801 |H | Short_Literal 0x1 046c 0099 | | Action Reference_Dynamic 046d e229 | ) | Load 0x1,0x29 046e 1814 | | Execute Package,Field_Execute,Field_Number 0x14 046f 786f |xo | Jump 0x4df 0470 00da | | Load_Top At_Offset_2 0471 e310 | | Load 0x1,0x110 0472 e311 | | Load 0x1,0x111 0473 4912 |I | Short_Literal 0x112 0474 4801 |H | Short_Literal 0x1 0475 0099 | | Action Reference_Dynamic 0476 4913 |I | Short_Literal 0x113 0477 4801 |H | Short_Literal 0x1 0478 0099 | | Action Reference_Dynamic 0479 4914 |I | Short_Literal 0x114 047a 4801 |H | Short_Literal 0x1 047b 0099 | | Action Reference_Dynamic 047c 4915 |I | Short_Literal 0x115 047d 4801 |H | Short_Literal 0x1 047e 0099 | | Action Reference_Dynamic 047f e229 | ) | Load 0x1,0x29 0480 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0481 785d |x] | Jump 0x4df 0482 00da | | Load_Top At_Offset_2 0483 e319 | | Load 0x1,0x119 0484 e31a | | Load 0x1,0x11a 0485 491b |I | Short_Literal 0x11b 0486 4801 |H | Short_Literal 0x1 0487 0099 | | Action Reference_Dynamic 0488 491c |I | Short_Literal 0x11c 0489 4801 |H | Short_Literal 0x1 048a 0099 | | Action Reference_Dynamic 048b 491d |I | Short_Literal 0x11d 048c 4801 |H | Short_Literal 0x1 048d 0099 | | Action Reference_Dynamic 048e 491e |I | Short_Literal 0x11e 048f 4801 |H | Short_Literal 0x1 0490 0099 | | Action Reference_Dynamic 0491 e229 | ) | Load 0x1,0x29 0492 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0493 784b |xK | Jump 0x4df 0494 00da | | Load_Top At_Offset_2 0495 e322 | " | Load 0x1,0x122 0496 e323 | # | Load 0x1,0x123 0497 4924 |I$ | Short_Literal 0x124 0498 4801 |H | Short_Literal 0x1 0499 0099 | | Action Reference_Dynamic 049a 4925 |I% | Short_Literal 0x125 049b 4801 |H | Short_Literal 0x1 049c 0099 | | Action Reference_Dynamic 049d 4926 |I& | Short_Literal 0x126 049e 4801 |H | Short_Literal 0x1 049f 0099 | | Action Reference_Dynamic 04a0 4927 |I' | Short_Literal 0x127 04a1 4801 |H | Short_Literal 0x1 04a2 0099 | | Action Reference_Dynamic 04a3 e229 | ) | Load 0x1,0x29 04a4 1814 | | Execute Package,Field_Execute,Field_Number 0x14 04a5 7839 |x9 | Jump 0x4df 04a6 00da | | Load_Top At_Offset_2 04a7 e32b | + | Load 0x1,0x12b 04a8 e32c | , | Load 0x1,0x12c 04a9 492d |I- | Short_Literal 0x12d 04aa 4801 |H | Short_Literal 0x1 04ab 0099 | | Action Reference_Dynamic 04ac 492e |I. | Short_Literal 0x12e 04ad 4801 |H | Short_Literal 0x1 04ae 0099 | | Action Reference_Dynamic 04af 492f |I/ | Short_Literal 0x12f 04b0 4801 |H | Short_Literal 0x1 04b1 0099 | | Action Reference_Dynamic 04b2 4930 |I0 | Short_Literal 0x130 04b3 4801 |H | Short_Literal 0x1 04b4 0099 | | Action Reference_Dynamic 04b5 e229 | ) | Load 0x1,0x29 04b6 1815 | | Execute Package,Field_Execute,Field_Number 0x15 04b7 7827 |x' | Jump 0x4df 04b8 00da | | Load_Top At_Offset_2 04b9 e334 | 4 | Load 0x1,0x134 04ba e335 | 5 | Load 0x1,0x135 04bb 4936 |I6 | Short_Literal 0x136 04bc 4801 |H | Short_Literal 0x1 04bd 0099 | | Action Reference_Dynamic 04be 4937 |I7 | Short_Literal 0x137 04bf 4801 |H | Short_Literal 0x1 04c0 0099 | | Action Reference_Dynamic 04c1 4938 |I8 | Short_Literal 0x138 04c2 4801 |H | Short_Literal 0x1 04c3 0099 | | Action Reference_Dynamic 04c4 4939 |I9 | Short_Literal 0x139 04c5 4801 |H | Short_Literal 0x1 04c6 0099 | | Action Reference_Dynamic 04c7 e229 | ) | Load 0x1,0x29 04c8 1815 | | Execute Package,Field_Execute,Field_Number 0x15 04c9 7815 |x | Jump 0x4df 04ca 00da | | Load_Top At_Offset_2 04cb e33d | = | Load 0x1,0x13d 04cc e33e | > | Load 0x1,0x13e 04cd 493f |I? | Short_Literal 0x13f 04ce 4801 |H | Short_Literal 0x1 04cf 0099 | | Action Reference_Dynamic 04d0 4940 |I@ | Short_Literal 0x140 04d1 4801 |H | Short_Literal 0x1 04d2 0099 | | Action Reference_Dynamic 04d3 4941 |IA | Short_Literal 0x141 04d4 4801 |H | Short_Literal 0x1 04d5 0099 | | Action Reference_Dynamic 04d6 4942 |IB | Short_Literal 0x142 04d7 4801 |H | Short_Literal 0x1 04d8 0099 | | Action Reference_Dynamic 04d9 e229 | ) | Load 0x1,0x29 04da 1814 | | Execute Package,Field_Execute,Field_Number 0x14 04db 7803 |x | Jump 0x4df 04dc 00d1 | | Pop_Control Pop_Count_1 04dd 4803 |H | Short_Literal 0x3 04de 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 04df 4800 |H | Short_Literal 0x0 04e0 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 04e1 0000 0000 | | .XXX[0x3] 04e3 0000 | | 04e4 0000 0000 | | .LITERAL {0x00000000, 0x20000888} 04e8 ; -------------------------------------------------------------------------------------- 04e8 ; SUBPROGRAM 04e8 ; -------------------------------------------------------------------------------------- 04e8 04eb | | .CONST 0x04eb ; Address of begin 04e9 0004 | | .CONST 0x0004 ; Address of exception handler 04ea 0001 | | .CONST 0x0001 ; Number of locals 04eb BODY_04e8: 04eb INIT_04e8: 04eb 4608 |F | Jump_Case 0x9 04ec 7808 |x | Jump 0x4f5 ; case 0x0 04ed 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 04ee 780a |x | Jump 0x4f9 ; case 0x2 04ef 7809 |x | Jump 0x4f9 ; case 0x3 04f0 7808 |x | Jump 0x4f9 ; case 0x4 04f1 7807 |x | Jump 0x4f9 ; case 0x5 04f2 7806 |x | Jump 0x4f9 ; case 0x6 04f3 7805 |x | Jump 0x4f9 ; case 0x7 04f4 7804 |x | Jump 0x4f9 ; case 0x8 04f5 00da | | Load_Top At_Offset_2 04f6 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 04f7 1c00 | | Execute_Immediate Run_Utility,0x0 04f8 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 04f9 0869 | i | Execute_Immediate Raise,0x69 04fa 0000 0000 | | .BLANK 0000[0x6] 0500 ; -------------------------------------------------------------------------------------- 0500 ; SUBPROGRAM 0500 ; -------------------------------------------------------------------------------------- 0500 0503 | | .CONST 0x0503 ; Address of begin 0501 0004 | | .CONST 0x0004 ; Address of exception handler 0502 0001 | | .CONST 0x0001 ; Number of locals 0503 BODY_0500: 0503 INIT_0500: 0503 4608 |F | Jump_Case 0x9 0504 7808 |x | Jump 0x50d ; case 0x0 0505 7811 |x | Jump 0x517 ; case 0x1 0506 7814 |x | Jump 0x51b ; case 0x2 0507 7813 |x | Jump 0x51b ; case 0x3 0508 7812 |x | Jump 0x51b ; case 0x4 0509 7811 |x | Jump 0x51b ; case 0x5 050a 7810 |x | Jump 0x51b ; case 0x6 050b 780f |x | Jump 0x51b ; case 0x7 050c 780e |x | Jump 0x51b ; case 0x8 050d 00da | | Load_Top At_Offset_2 050e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 050f 0125 | % | Execute Any,Set_Constraint 0510 00da | | Load_Top At_Offset_2 0511 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0512 1c00 | | Execute_Immediate Run_Utility,0x0 0513 00da | | Load_Top At_Offset_2 0514 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0515 1c00 | | Execute_Immediate Run_Utility,0x0 0516 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0517 00da | | Load_Top At_Offset_2 0518 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0519 0125 | % | Execute Any,Set_Constraint 051a 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 051b 0869 | i | Execute_Immediate Raise,0x69 051c 0000 0000 | | .BLANK 0000[0x4] 0520 ; -------------------------------------------------------------------------------------- 0520 ; SUBPROGRAM 0520 ; -------------------------------------------------------------------------------------- 0520 0523 | # | .CONST 0x0523 ; Address of begin 0521 0004 | | .CONST 0x0004 ; Address of exception handler 0522 0001 | | .CONST 0x0001 ; Number of locals 0523 BODY_0520: 0523 INIT_0520: 0523 4608 |F | Jump_Case 0x9 0524 7808 |x | Jump 0x52d ; case 0x0 0525 7814 |x | Jump 0x53a ; case 0x1 0526 781a |x | Jump 0x541 ; case 0x2 0527 7819 |x | Jump 0x541 ; case 0x3 0528 7818 |x | Jump 0x541 ; case 0x4 0529 7817 |x | Jump 0x541 ; case 0x5 052a 7816 |x | Jump 0x541 ; case 0x6 052b 7815 |x | Jump 0x541 ; case 0x7 052c 7814 |x | Jump 0x541 ; case 0x8 052d 00da | | Load_Top At_Offset_2 052e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 052f 0125 | % | Execute Any,Set_Constraint 0530 00da | | Load_Top At_Offset_2 0531 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0532 1c00 | | Execute_Immediate Run_Utility,0x0 0533 00da | | Load_Top At_Offset_2 0534 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0535 0125 | % | Execute Any,Set_Constraint 0536 00da | | Load_Top At_Offset_2 0537 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0538 1c00 | | Execute_Immediate Run_Utility,0x0 0539 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 053a 00da | | Load_Top At_Offset_2 053b 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 053c 0125 | % | Execute Any,Set_Constraint 053d 00da | | Load_Top At_Offset_2 053e 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 053f 0125 | % | Execute Any,Set_Constraint 0540 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0541 0869 | i | Execute_Immediate Raise,0x69 0542 0000 0000 | | .BLANK 0000[0x6] 0548 ; -------------------------------------------------------------------------------------- 0548 ; SUBPROGRAM 0548 ; -------------------------------------------------------------------------------------- 0548 054b | K | .CONST 0x054b ; Address of begin 0549 0004 | | .CONST 0x0004 ; Address of exception handler 054a 0001 | | .CONST 0x0001 ; Number of locals 054b BODY_0548: 054b INIT_0548: 054b 4608 |F | Jump_Case 0x9 054c 7808 |x | Jump 0x555 ; case 0x0 054d 7814 |x | Jump 0x562 ; case 0x1 054e 781a |x | Jump 0x569 ; case 0x2 054f 7819 |x | Jump 0x569 ; case 0x3 0550 7818 |x | Jump 0x569 ; case 0x4 0551 7817 |x | Jump 0x569 ; case 0x5 0552 7816 |x | Jump 0x569 ; case 0x6 0553 7815 |x | Jump 0x569 ; case 0x7 0554 7814 |x | Jump 0x569 ; case 0x8 0555 00da | | Load_Top At_Offset_2 0556 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0557 0125 | % | Execute Any,Set_Constraint 0558 00da | | Load_Top At_Offset_2 0559 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 055a 1c00 | | Execute_Immediate Run_Utility,0x0 055b 00da | | Load_Top At_Offset_2 055c 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 055d 0125 | % | Execute Any,Set_Constraint 055e 00da | | Load_Top At_Offset_2 055f 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0560 1c00 | | Execute_Immediate Run_Utility,0x0 0561 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0562 00da | | Load_Top At_Offset_2 0563 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0564 0125 | % | Execute Any,Set_Constraint 0565 00da | | Load_Top At_Offset_2 0566 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0567 0125 | % | Execute Any,Set_Constraint 0568 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0569 0869 | i | Execute_Immediate Raise,0x69 056a 0000 0000 | | .BLANK 0000[0x6] 0570 ; -------------------------------------------------------------------------------------- 0570 ; SUBPROGRAM 0570 ; -------------------------------------------------------------------------------------- 0570 0573 | s | .CONST 0x0573 ; Address of begin 0571 0004 | | .CONST 0x0004 ; Address of exception handler 0572 0001 | | .CONST 0x0001 ; Number of locals 0573 BODY_0570: 0573 INIT_0570: 0573 4608 |F | Jump_Case 0x9 0574 7808 |x | Jump 0x57d ; case 0x0 0575 7817 |x | Jump 0x58d ; case 0x1 0576 781d |x | Jump 0x594 ; case 0x2 0577 781c |x | Jump 0x594 ; case 0x3 0578 781b |x | Jump 0x594 ; case 0x4 0579 781a |x | Jump 0x594 ; case 0x5 057a 7819 |x | Jump 0x594 ; case 0x6 057b 7818 |x | Jump 0x594 ; case 0x7 057c 7817 |x | Jump 0x594 ; case 0x8 057d 00da | | Load_Top At_Offset_2 057e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 057f 0125 | % | Execute Any,Set_Constraint 0580 00da | | Load_Top At_Offset_2 0581 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0582 1c00 | | Execute_Immediate Run_Utility,0x0 0583 00da | | Load_Top At_Offset_2 0584 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0585 0125 | % | Execute Any,Set_Constraint 0586 00da | | Load_Top At_Offset_2 0587 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0588 1c00 | | Execute_Immediate Run_Utility,0x0 0589 00da | | Load_Top At_Offset_2 058a 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 058b 1c00 | | Execute_Immediate Run_Utility,0x0 058c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 058d 00da | | Load_Top At_Offset_2 058e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 058f 0125 | % | Execute Any,Set_Constraint 0590 00da | | Load_Top At_Offset_2 0591 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0592 0125 | % | Execute Any,Set_Constraint 0593 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0594 0869 | i | Execute_Immediate Raise,0x69 0595 0000 0000 | | .XXX[0x3] 0597 0000 | | 0598 ; -------------------------------------------------------------------------------------- 0598 ; SUBPROGRAM 0598 ; -------------------------------------------------------------------------------------- 0598 059b | | .CONST 0x059b ; Address of begin 0599 0004 | | .CONST 0x0004 ; Address of exception handler 059a 0001 | | .CONST 0x0001 ; Number of locals 059b BODY_0598: 059b INIT_0598: 059b 4608 |F | Jump_Case 0x9 059c 7808 |x | Jump 0x5a5 ; case 0x0 059d 780e |x | Jump 0x5ac ; case 0x1 059e 7811 |x | Jump 0x5b0 ; case 0x2 059f 7810 |x | Jump 0x5b0 ; case 0x3 05a0 780f |x | Jump 0x5b0 ; case 0x4 05a1 780e |x | Jump 0x5b0 ; case 0x5 05a2 780d |x | Jump 0x5b0 ; case 0x6 05a3 780c |x | Jump 0x5b0 ; case 0x7 05a4 780b |x | Jump 0x5b0 ; case 0x8 05a5 00da | | Load_Top At_Offset_2 05a6 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 05a7 0125 | % | Execute Any,Set_Constraint 05a8 00da | | Load_Top At_Offset_2 05a9 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 05aa 1c00 | | Execute_Immediate Run_Utility,0x0 05ab 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 05ac 00da | | Load_Top At_Offset_2 05ad 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 05ae 0125 | % | Execute Any,Set_Constraint 05af 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 05b0 0869 | i | Execute_Immediate Raise,0x69 05b1 0000 0000 | | .BLANK 0000[0x7] 05b8 ; -------------------------------------------------------------------------------------- 05b8 ; SUBPROGRAM 05b8 ; -------------------------------------------------------------------------------------- 05b8 05bb | | .CONST 0x05bb ; Address of begin 05b9 0004 | | .CONST 0x0004 ; Address of exception handler 05ba 0001 | | .CONST 0x0001 ; Number of locals 05bb BODY_05b8: 05bb INIT_05b8: 05bb 4608 |F | Jump_Case 0x9 05bc 7808 |x | Jump 0x5c5 ; case 0x0 05bd 780e |x | Jump 0x5cc ; case 0x1 05be 7811 |x | Jump 0x5d0 ; case 0x2 05bf 7810 |x | Jump 0x5d0 ; case 0x3 05c0 780f |x | Jump 0x5d0 ; case 0x4 05c1 780e |x | Jump 0x5d0 ; case 0x5 05c2 780d |x | Jump 0x5d0 ; case 0x6 05c3 780c |x | Jump 0x5d0 ; case 0x7 05c4 780b |x | Jump 0x5d0 ; case 0x8 05c5 00da | | Load_Top At_Offset_2 05c6 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 05c7 0125 | % | Execute Any,Set_Constraint 05c8 00da | | Load_Top At_Offset_2 05c9 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 05ca 1c00 | | Execute_Immediate Run_Utility,0x0 05cb 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 05cc 00da | | Load_Top At_Offset_2 05cd 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 05ce 0125 | % | Execute Any,Set_Constraint 05cf 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 05d0 0869 | i | Execute_Immediate Raise,0x69 05d1 0000 0000 | | .BLANK 0000[0x7] 05d8 ; -------------------------------------------------------------------------------------- 05d8 ; SUBPROGRAM 05d8 ; -------------------------------------------------------------------------------------- 05d8 05db | | .CONST 0x05db ; Address of begin 05d9 0004 | | .CONST 0x0004 ; Address of exception handler 05da 0001 | | .CONST 0x0001 ; Number of locals 05db BODY_05d8: 05db INIT_05d8: 05db 4608 |F | Jump_Case 0x9 05dc 7808 |x | Jump 0x5e5 ; case 0x0 05dd 780e |x | Jump 0x5ec ; case 0x1 05de 7811 |x | Jump 0x5f0 ; case 0x2 05df 7810 |x | Jump 0x5f0 ; case 0x3 05e0 780f |x | Jump 0x5f0 ; case 0x4 05e1 780e |x | Jump 0x5f0 ; case 0x5 05e2 780d |x | Jump 0x5f0 ; case 0x6 05e3 780c |x | Jump 0x5f0 ; case 0x7 05e4 780b |x | Jump 0x5f0 ; case 0x8 05e5 00da | | Load_Top At_Offset_2 05e6 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 05e7 0125 | % | Execute Any,Set_Constraint 05e8 00da | | Load_Top At_Offset_2 05e9 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 05ea 1c00 | | Execute_Immediate Run_Utility,0x0 05eb 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 05ec 00da | | Load_Top At_Offset_2 05ed 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 05ee 0125 | % | Execute Any,Set_Constraint 05ef 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 05f0 0869 | i | Execute_Immediate Raise,0x69 05f1 0000 0000 | | .BLANK 0000[0x7] 05f8 ; -------------------------------------------------------------------------------------- 05f8 ; SUBPROGRAM 05f8 ; -------------------------------------------------------------------------------------- 05f8 05fb | | .CONST 0x05fb ; Address of begin 05f9 0004 | | .CONST 0x0004 ; Address of exception handler 05fa 0001 | | .CONST 0x0001 ; Number of locals 05fb BODY_05f8: 05fb INIT_05f8: 05fb 4608 |F | Jump_Case 0x9 05fc 7808 |x | Jump 0x605 ; case 0x0 05fd 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 05fe 780a |x | Jump 0x609 ; case 0x2 05ff 7809 |x | Jump 0x609 ; case 0x3 0600 7808 |x | Jump 0x609 ; case 0x4 0601 7807 |x | Jump 0x609 ; case 0x5 0602 7806 |x | Jump 0x609 ; case 0x6 0603 7805 |x | Jump 0x609 ; case 0x7 0604 7804 |x | Jump 0x609 ; case 0x8 0605 00da | | Load_Top At_Offset_2 0606 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0607 1c00 | | Execute_Immediate Run_Utility,0x0 0608 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0609 0869 | i | Execute_Immediate Raise,0x69 060a 0000 0000 | | .BLANK 0000[0x6] 0610 ; -------------------------------------------------------------------------------------- 0610 ; SUBPROGRAM 0610 ; -------------------------------------------------------------------------------------- 0610 0613 | | .CONST 0x0613 ; Address of begin 0611 0004 | | .CONST 0x0004 ; Address of exception handler 0612 0001 | | .CONST 0x0001 ; Number of locals 0613 BODY_0610: 0613 INIT_0610: 0613 4608 |F | Jump_Case 0x9 0614 7808 |x | Jump 0x61d ; case 0x0 0615 780e |x | Jump 0x624 ; case 0x1 0616 7811 |x | Jump 0x628 ; case 0x2 0617 7810 |x | Jump 0x628 ; case 0x3 0618 780f |x | Jump 0x628 ; case 0x4 0619 780e |x | Jump 0x628 ; case 0x5 061a 780d |x | Jump 0x628 ; case 0x6 061b 780c |x | Jump 0x628 ; case 0x7 061c 780b |x | Jump 0x628 ; case 0x8 061d 00da | | Load_Top At_Offset_2 061e 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 061f 0125 | % | Execute Any,Set_Constraint 0620 00da | | Load_Top At_Offset_2 0621 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0622 1c00 | | Execute_Immediate Run_Utility,0x0 0623 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0624 00da | | Load_Top At_Offset_2 0625 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0626 0125 | % | Execute Any,Set_Constraint 0627 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0628 0869 | i | Execute_Immediate Raise,0x69 0629 0000 0000 | | .BLANK 0000[0x7] 0630 ; -------------------------------------------------------------------------------------- 0630 ; SUBPROGRAM 0630 ; -------------------------------------------------------------------------------------- 0630 0633 | 3 | .CONST 0x0633 ; Address of begin 0631 0004 | | .CONST 0x0004 ; Address of exception handler 0632 0001 | | .CONST 0x0001 ; Number of locals 0633 BODY_0630: 0633 INIT_0630: 0633 4608 |F | Jump_Case 0x9 0634 7808 |x | Jump 0x63d ; case 0x0 0635 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 0636 781e |x | Jump 0x655 ; case 0x2 0637 781d |x | Jump 0x655 ; case 0x3 0638 781c |x | Jump 0x655 ; case 0x4 0639 781b |x | Jump 0x655 ; case 0x5 063a 781a |x | Jump 0x655 ; case 0x6 063b 7811 |x | Jump 0x64d ; case 0x7 063c 7814 |x | Jump 0x651 ; case 0x8 063d 00da | | Load_Top At_Offset_2 063e 016c | l | Execute Variant_Record,Is_Constrained 063f 7009 |p | Jump_Nonzero 0x649 0640 00cf | | Action Mark_Auxiliary 0641 4800 |H | Short_Literal 0x0 0642 e5ff | | Load 0x2,-0x1 0643 1c08 | | Execute_Immediate Run_Utility,0x8 0644 00d8 | | Load_Top At_Offset_0 0645 1c00 | | Execute_Immediate Run_Utility,0x0 0646 c5ff | | Store 0x2,-0x1 0647 00ce | | Action Pop_Auxiliary 0648 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0649 00da | | Load_Top At_Offset_2 064a 2403 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x3 064b 1c00 | | Execute_Immediate Run_Utility,0x0 064c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 064d 00db | | Load_Top At_Offset_3 064e e5ff | | Load 0x2,-0x1 064f 031b | | Declare_Type Variant_Record,Constrained 0650 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0651 00db | | Load_Top At_Offset_3 0652 00db | | Load_Top At_Offset_3 0653 02fc | | Declare_Variable Variant_Record,With_Constraint 0654 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0655 0869 | i | Execute_Immediate Raise,0x69 0656 0000 0000 | | .XXX[0x2] 0658 ; -------------------------------------------------------------------------------------- 0658 ; SUBPROGRAM 0658 ; -------------------------------------------------------------------------------------- 0658 065b | [ | .CONST 0x065b ; Address of begin 0659 0004 | | .CONST 0x0004 ; Address of exception handler 065a 0001 | | .CONST 0x0001 ; Number of locals 065b BODY_0658: 065b INIT_0658: 065b 00da | | Load_Top At_Offset_2 065c 8239 | 9 | Call 0x1,0x39 065d e010 | | Load 0x0,0x10 065e 1814 | | Execute Package,Field_Execute,Field_Number 0x14 065f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0660 ; -------------------------------------------------------------------------------------- 0660 ; SUBPROGRAM 0660 ; -------------------------------------------------------------------------------------- 0660 0663 | c | .CONST 0x0663 ; Address of begin 0661 0004 | | .CONST 0x0004 ; Address of exception handler 0662 0001 | | .CONST 0x0001 ; Number of locals 0663 BODY_0660: 0663 INIT_0660: 0663 00db | | Load_Top At_Offset_3 0664 00db | | Load_Top At_Offset_3 0665 8239 | 9 | Call 0x1,0x39 0666 e010 | | Load 0x0,0x10 0667 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0668 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0669 0000 0000 | | .BLANK 0000[0x7] 0670 ; -------------------------------------------------------------------------------------- 0670 ; SUBPROGRAM 0670 ; -------------------------------------------------------------------------------------- 0670 0673 | s | .CONST 0x0673 ; Address of begin 0671 0004 | | .CONST 0x0004 ; Address of exception handler 0672 0001 | | .CONST 0x0001 ; Number of locals 0673 BODY_0670: 0673 INIT_0670: 0673 00db | | Load_Top At_Offset_3 0674 e010 | | Load 0x0,0x10 0675 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0676 00db | | Load_Top At_Offset_3 0677 823a | : | Call 0x1,0x3a 0678 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0679 0000 0000 | | .BLANK 0000[0x7] 0680 ; -------------------------------------------------------------------------------------- 0680 ; SUBPROGRAM 0680 ; -------------------------------------------------------------------------------------- 0680 0683 | | .CONST 0x0683 ; Address of begin 0681 0004 | | .CONST 0x0004 ; Address of exception handler 0682 0001 | | .CONST 0x0001 ; Number of locals 0683 BODY_0680: 0683 INIT_0680: 0683 00da | | Load_Top At_Offset_2 0684 8239 | 9 | Call 0x1,0x39 0685 e00f | | Load 0x0,0xf 0686 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0687 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0688 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0689 0000 0000 | | .BLANK 0000[0x7] 0690 ; -------------------------------------------------------------------------------------- 0690 ; SUBPROGRAM 0690 ; -------------------------------------------------------------------------------------- 0690 0693 | | .CONST 0x0693 ; Address of begin 0691 0004 | | .CONST 0x0004 ; Address of exception handler 0692 0001 | | .CONST 0x0001 ; Number of locals 0693 BODY_0690: 0693 INIT_0690: 0693 00db | | Load_Top At_Offset_3 0694 e00f | | Load 0x0,0xf 0695 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0696 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0697 00db | | Load_Top At_Offset_3 0698 823a | : | Call 0x1,0x3a 0699 4503 |E | Exit_Suprogram New_Top_Offset 0x3 069a 0000 0000 | | .BLANK 0000[0x6] 06a0 ; -------------------------------------------------------------------------------------- 06a0 ; SUBPROGRAM 06a0 ; -------------------------------------------------------------------------------------- 06a0 06a3 | | .CONST 0x06a3 ; Address of begin 06a1 0004 | | .CONST 0x0004 ; Address of exception handler 06a2 0001 | | .CONST 0x0001 ; Number of locals 06a3 BODY_06a0: 06a3 INIT_06a0: 06a3 4503 |E | Exit_Suprogram New_Top_Offset 0x3 06a4 0000 0000 | | .BLANK 0000[0x4] 06a8 ; -------------------------------------------------------------------------------------- 06a8 ; SUBPROGRAM 06a8 ; -------------------------------------------------------------------------------------- 06a8 06ab | | .CONST 0x06ab ; Address of begin 06a9 0004 | | .CONST 0x0004 ; Address of exception handler 06aa 0001 | | .CONST 0x0001 ; Number of locals 06ab BODY_06a8: 06ab INIT_06a8: 06ab 4502 |E | Exit_Suprogram New_Top_Offset 0x2 06ac 0000 0000 | | .BLANK 0000[0x4] 06b0 ; -------------------------------------------------------------------------------------- 06b0 ; SUBPROGRAM 06b0 ; -------------------------------------------------------------------------------------- 06b0 06b3 | | .CONST 0x06b3 ; Address of begin 06b1 0004 | | .CONST 0x0004 ; Address of exception handler 06b2 0001 | | .CONST 0x0001 ; Number of locals 06b3 BODY_06b0: 06b3 INIT_06b0: 06b3 00db | | Load_Top At_Offset_3 06b4 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 06b5 00db | | Load_Top At_Offset_3 06b6 823b | ; | Call 0x1,0x3b 06b7 00db | | Load_Top At_Offset_3 06b8 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 06b9 6804 |h | Jump_Zero 0x6be 06ba 00db | | Load_Top At_Offset_3 06bb 2602 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2 06bc 00db | | Load_Top At_Offset_3 06bd 8241 | A | Call 0x1,0x41 06be 4503 |E | Exit_Suprogram New_Top_Offset 0x3 06bf 0000 | | .XXX[0x1] 06c0 ; -------------------------------------------------------------------------------------- 06c0 ; SUBPROGRAM 06c0 ; -------------------------------------------------------------------------------------- 06c0 06c3 | | .CONST 0x06c3 ; Address of begin 06c1 0004 | | .CONST 0x0004 ; Address of exception handler 06c2 0001 | | .CONST 0x0001 ; Number of locals 06c3 BODY_06c0: 06c3 INIT_06c0: 06c3 00db | | Load_Top At_Offset_3 06c4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 06c5 00db | | Load_Top At_Offset_3 06c6 8243 | C | Call 0x1,0x43 06c7 00db | | Load_Top At_Offset_3 06c8 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 06c9 00db | | Load_Top At_Offset_3 06ca 8246 | F | Call 0x1,0x46 06cb 4503 |E | Exit_Suprogram New_Top_Offset 0x3 06cc 0000 0000 | | .BLANK 0000[0x4] 06d0 ; -------------------------------------------------------------------------------------- 06d0 ; SUBPROGRAM 06d0 ; -------------------------------------------------------------------------------------- 06d0 06d3 | | .CONST 0x06d3 ; Address of begin 06d1 0004 | | .CONST 0x0004 ; Address of exception handler 06d2 0001 | | .CONST 0x0001 ; Number of locals 06d3 BODY_06d0: 06d3 INIT_06d0: 06d3 00db | | Load_Top At_Offset_3 06d4 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 06d5 00db | | Load_Top At_Offset_3 06d6 8241 | A | Call 0x1,0x41 06d7 00db | | Load_Top At_Offset_3 06d8 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 06d9 00db | | Load_Top At_Offset_3 06da 8246 | F | Call 0x1,0x46 06db 4503 |E | Exit_Suprogram New_Top_Offset 0x3 06dc 0000 0000 | | .BLANK 0000[0x4] 06e0 ; -------------------------------------------------------------------------------------- 06e0 ; SUBPROGRAM 06e0 ; -------------------------------------------------------------------------------------- 06e0 06e9 | | .CONST 0x06e9 ; Address of begin 06e1 0004 | | .CONST 0x0004 ; Address of exception handler 06e2 0003 | | .CONST 0x0003 ; Number of locals 06e3 INIT_06e0: 06e3 4900 |I | Short_Literal 0x100 06e4 00db | | Load_Top At_Offset_3 06e5 8240 | @ | Call 0x1,0x40 06e6 4900 |I | Short_Literal 0x100 06e7 e5ff | | Load 0x2,-0x1 06e8 8240 | @ | Call 0x1,0x40 06e9 BODY_06e0: 06e9 e22e | . | Load 0x1,0x2e 06ea 0322 | " | Declare_Variable Record 06eb 00d8 | | Load_Top At_Offset_0 06ec 1c01 | | Execute_Immediate Run_Utility,0x1 06ed 00da | | Load_Top At_Offset_2 06ee 00d9 | | Load_Top At_Offset_1 06ef 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 06f0 00d9 | | Load_Top At_Offset_1 06f1 00d9 | | Load_Top At_Offset_1 06f2 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 06f3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 06f4 0000 0000 | | .BLANK 0000[0x4] 06f8 ; -------------------------------------------------------------------------------------- 06f8 ; SUBPROGRAM 06f8 ; -------------------------------------------------------------------------------------- 06f8 0701 | | .CONST 0x0701 ; Address of begin 06f9 0004 | | .CONST 0x0004 ; Address of exception handler 06fa 0003 | | .CONST 0x0003 ; Number of locals 06fb INIT_06f8: 06fb 4900 |I | Short_Literal 0x100 06fc 00db | | Load_Top At_Offset_3 06fd 8240 | @ | Call 0x1,0x40 06fe 4900 |I | Short_Literal 0x100 06ff e5ff | | Load 0x2,-0x1 0700 8240 | @ | Call 0x1,0x40 0701 BODY_06f8: 0701 e22f | / | Load 0x1,0x2f 0702 0322 | " | Declare_Variable Record 0703 00d8 | | Load_Top At_Offset_0 0704 1c01 | | Execute_Immediate Run_Utility,0x1 0705 00da | | Load_Top At_Offset_2 0706 00d9 | | Load_Top At_Offset_1 0707 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0708 00d9 | | Load_Top At_Offset_1 0709 00d9 | | Load_Top At_Offset_1 070a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 070b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 070c 0000 0000 | | .BLANK 0000[0x4] 0710 ; -------------------------------------------------------------------------------------- 0710 ; SUBPROGRAM 0710 ; -------------------------------------------------------------------------------------- 0710 0713 | | .CONST 0x0713 ; Address of begin 0711 0004 | | .CONST 0x0004 ; Address of exception handler 0712 0001 | | .CONST 0x0001 ; Number of locals 0713 BODY_0710: 0713 INIT_0710: 0713 00db | | Load_Top At_Offset_3 0714 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0715 00db | | Load_Top At_Offset_3 0716 8241 | A | Call 0x1,0x41 0717 00db | | Load_Top At_Offset_3 0718 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0719 00db | | Load_Top At_Offset_3 071a 8241 | A | Call 0x1,0x41 071b 00db | | Load_Top At_Offset_3 071c 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 071d 00db | | Load_Top At_Offset_3 071e 823e | > | Call 0x1,0x3e 071f 00db | | Load_Top At_Offset_3 0720 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 0721 00db | | Load_Top At_Offset_3 0722 8246 | F | Call 0x1,0x46 0723 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0724 0000 0000 | | .BLANK 0000[0x4] 0728 ; -------------------------------------------------------------------------------------- 0728 ; SUBPROGRAM 0728 ; -------------------------------------------------------------------------------------- 0728 072e | . | .CONST 0x072e ; Address of begin 0729 0004 | | .CONST 0x0004 ; Address of exception handler 072a 0002 | | .CONST 0x0002 ; Number of locals 072b INIT_0728: 072b 4900 |I | Short_Literal 0x100 072c 00db | | Load_Top At_Offset_3 072d 8240 | @ | Call 0x1,0x40 072e BODY_0728: 072e e231 | 1 | Load 0x1,0x31 072f 0322 | " | Declare_Variable Record 0730 00d8 | | Load_Top At_Offset_0 0731 1c01 | | Execute_Immediate Run_Utility,0x1 0732 00d9 | | Load_Top At_Offset_1 0733 00d9 | | Load_Top At_Offset_1 0734 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0735 e5ff | | Load 0x2,-0x1 0736 8242 | B | Call 0x1,0x42 0737 00d9 | | Load_Top At_Offset_1 0738 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0739 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 073a 0000 0000 | | .BLANK 0000[0x6] 0740 ; -------------------------------------------------------------------------------------- 0740 ; SUBPROGRAM 0740 ; -------------------------------------------------------------------------------------- 0740 0748 | H | .CONST 0x0748 ; Address of begin 0741 0004 | | .CONST 0x0004 ; Address of exception handler 0742 0003 | | .CONST 0x0003 ; Number of locals 0743 INIT_0740: 0743 4900 |I | Short_Literal 0x100 0744 00db | | Load_Top At_Offset_3 0745 8240 | @ | Call 0x1,0x40 0746 e225 | % | Load 0x1,0x25 0747 0007 | | Action Break_Optional 0748 BODY_0740: 0748 e238 | 8 | Load 0x1,0x38 0749 1b0f | | Execute Package,Field_Read,Field_Number 0xf 074a e5ff | | Load 0x2,-0x1 074b 823c | < | Call 0x1,0x3c 074c 0059 | Y | Store_Top Discrete,At_Offset_1 074d e232 | 2 | Load 0x1,0x32 074e 0322 | " | Declare_Variable Record 074f 00d8 | | Load_Top At_Offset_0 0750 1c01 | | Execute_Immediate Run_Utility,0x1 0751 00da | | Load_Top At_Offset_2 0752 00d9 | | Load_Top At_Offset_1 0753 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0754 00d9 | | Load_Top At_Offset_1 0755 00d9 | | Load_Top At_Offset_1 0756 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0757 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0758 ; -------------------------------------------------------------------------------------- 0758 ; SUBPROGRAM 0758 ; -------------------------------------------------------------------------------------- 0758 075e | ^ | .CONST 0x075e ; Address of begin 0759 0004 | | .CONST 0x0004 ; Address of exception handler 075a 0003 | | .CONST 0x0003 ; Number of locals 075b INIT_0758: 075b e225 | % | Load 0x1,0x25 075c 029f 0b43 | C| Declare_Subprogram INIT_0b40,For_Call 075e BODY_0758: 075e e238 | 8 | Load 0x1,0x38 075f 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0760 e5ff | | Load 0x2,-0x1 0761 823c | < | Call 0x1,0x3c 0762 005a | Z | Store_Top Discrete,At_Offset_2 0763 8403 | | Call 0x2,0x3 0764 0831 | 1 | Execute_Immediate Raise,0x31 0765 0000 0000 | | .XXX[0x3] 0767 0000 | | 0768 ; -------------------------------------------------------------------------------------- 0768 ; SUBPROGRAM 0768 ; -------------------------------------------------------------------------------------- 0768 076c | l | .CONST 0x076c ; Address of begin 0769 0004 | | .CONST 0x0004 ; Address of exception handler 076a 0002 | | .CONST 0x0002 ; Number of locals 076b INIT_0768: 076b 00e1 | | Load_Encached Boolean_Cache 076c BODY_0768: 076c 00e1 | | Load_Encached Boolean_Cache 076d e5ff | | Load 0x2,-0x1 076e 823d | = | Call 0x1,0x3d 076f 0059 | Y | Store_Top Discrete,At_Offset_1 0770 e235 | 5 | Load 0x1,0x35 0771 0322 | " | Declare_Variable Record 0772 00d8 | | Load_Top At_Offset_0 0773 1c01 | | Execute_Immediate Run_Utility,0x1 0774 00d9 | | Load_Top At_Offset_1 0775 00d9 | | Load_Top At_Offset_1 0776 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0777 4900 |I | Short_Literal 0x100 0778 e5ff | | Load 0x2,-0x1 0779 8240 | @ | Call 0x1,0x40 077a 00d9 | | Load_Top At_Offset_1 077b 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 077c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 077d 0000 0000 | | .XXX[0x3] 077f 0000 | | 0780 ; -------------------------------------------------------------------------------------- 0780 ; SUBPROGRAM 0780 ; -------------------------------------------------------------------------------------- 0780 0783 | | .CONST 0x0783 ; Address of begin 0781 0004 | | .CONST 0x0004 ; Address of exception handler 0782 0001 | | .CONST 0x0001 ; Number of locals 0783 BODY_0780: 0783 INIT_0780: 0783 00db | | Load_Top At_Offset_3 0784 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0785 00db | | Load_Top At_Offset_3 0786 823e | > | Call 0x1,0x3e 0787 00db | | Load_Top At_Offset_3 0788 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0789 00db | | Load_Top At_Offset_3 078a 8246 | F | Call 0x1,0x46 078b 4503 |E | Exit_Suprogram New_Top_Offset 0x3 078c 0000 0000 | | .BLANK 0000[0x4] 0790 ; -------------------------------------------------------------------------------------- 0790 ; SUBPROGRAM 0790 ; -------------------------------------------------------------------------------------- 0790 0793 | | .CONST 0x0793 ; Address of begin 0791 0004 | | .CONST 0x0004 ; Address of exception handler 0792 0001 | | .CONST 0x0001 ; Number of locals 0793 BODY_0790: 0793 INIT_0790: 0793 00db | | Load_Top At_Offset_3 0794 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0795 00db | | Load_Top At_Offset_3 0796 8243 | C | Call 0x1,0x43 0797 00db | | Load_Top At_Offset_3 0798 2403 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x3 0799 00db | | Load_Top At_Offset_3 079a 8246 | F | Call 0x1,0x46 079b 4503 |E | Exit_Suprogram New_Top_Offset 0x3 079c 0000 0000 | | .BLANK 0000[0x4] 07a0 ; -------------------------------------------------------------------------------------- 07a0 ; SUBPROGRAM 07a0 ; -------------------------------------------------------------------------------------- 07a0 07a7 | | .CONST 0x07a7 ; Address of begin 07a1 07b9 | | .CONST 0x07b9 ; Address of exception handler 07a2 0002 | | .CONST 0x0002 ; Number of locals 07a3 INIT_07a0: 07a3 e230 | 0 | Load 0x1,0x30 07a4 0322 | " | Declare_Variable Record 07a5 00d8 | | Load_Top At_Offset_0 07a6 1c00 | | Execute_Immediate Run_Utility,0x0 07a7 BODY_07a0: 07a7 00e1 | | Load_Encached Boolean_Cache 07a8 00d9 | | Load_Top At_Offset_1 07a9 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 07aa 00da | | Load_Top At_Offset_2 07ab 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 07ac e5ff | | Load 0x2,-0x1 07ad e009 | | Load 0x0,0x9 07ae 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 07af 00d2 | | Pop_Control Pop_Count_2 07b0 00d9 | | Load_Top At_Offset_1 07b1 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 07b2 e224 | $ | Load 0x1,0x24 07b3 00d9 | | Load_Top At_Offset_1 07b4 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 07b5 00d8 | | Load_Top At_Offset_0 07b6 e5fe | | Load 0x2,-0x2 07b7 017d | } | Execute Record,Structure_Write 07b8 4502 |E | Exit_Suprogram New_Top_Offset 0x2 07b9 TRAP_07a0: 07b9 e04e | N | Load 0x0,0x4e 07ba 1b0e | | Execute Package,Field_Read,Field_Number 0xe 07bb 010f | | Execute Exception,Equal 07bc 6806 |h | Jump_Zero 0x7c3 07bd e04e | N | Load 0x0,0x4e 07be 1b0d | | Execute Package,Field_Read,Field_Number 0xd 07bf 8226 | & | Call 0x1,0x26 07c0 e5fe | | Load 0x2,-0x2 07c1 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 07c2 4502 |E | Exit_Suprogram New_Top_Offset 0x2 07c3 0100 | | Execute Exception,Raise 07c4 0000 0000 | | .BLANK 0000[0x4] 07c8 ; -------------------------------------------------------------------------------------- 07c8 ; SUBPROGRAM 07c8 ; -------------------------------------------------------------------------------------- 07c8 07cf | | .CONST 0x07cf ; Address of begin 07c9 07dc | | .CONST 0x07dc ; Address of exception handler 07ca 0002 | | .CONST 0x0002 ; Number of locals 07cb INIT_07c8: 07cb e22d | - | Load 0x1,0x2d 07cc 0322 | " | Declare_Variable Record 07cd 00d8 | | Load_Top At_Offset_0 07ce 1c00 | | Execute_Immediate Run_Utility,0x0 07cf BODY_07c8: 07cf 00d8 | | Load_Top At_Offset_0 07d0 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 07d1 e5ff | | Load 0x2,-0x1 07d2 e009 | | Load 0x0,0x9 07d3 185d | ] | Execute Package,Field_Execute,Field_Number 0x5d 07d4 00d1 | | Pop_Control Pop_Count_1 07d5 e224 | $ | Load 0x1,0x24 07d6 e5fe | | Load 0x2,-0x2 07d7 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 07d8 00d8 | | Load_Top At_Offset_0 07d9 e5fe | | Load 0x2,-0x2 07da 017d | } | Execute Record,Structure_Write 07db 4502 |E | Exit_Suprogram New_Top_Offset 0x2 07dc TRAP_07c8: 07dc e04e | N | Load 0x0,0x4e 07dd 1b0e | | Execute Package,Field_Read,Field_Number 0xe 07de 010f | | Execute Exception,Equal 07df 6806 |h | Jump_Zero 0x7e6 07e0 e04e | N | Load 0x0,0x4e 07e1 1b0d | | Execute Package,Field_Read,Field_Number 0xd 07e2 8226 | & | Call 0x1,0x26 07e3 e5fe | | Load 0x2,-0x2 07e4 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 07e5 4502 |E | Exit_Suprogram New_Top_Offset 0x2 07e6 0100 | | Execute Exception,Raise 07e7 0000 | | .XXX[0x1] 07e8 ; -------------------------------------------------------------------------------------- 07e8 ; SUBPROGRAM 07e8 ; -------------------------------------------------------------------------------------- 07e8 07eb | | .CONST 0x07eb ; Address of begin 07e9 07f7 | | .CONST 0x07f7 ; Address of exception handler 07ea 0001 | | .CONST 0x0001 ; Number of locals 07eb BODY_07e8: 07eb INIT_07e8: 07eb e00f | | Load 0x0,0xf 07ec 1b0e | | Execute Package,Field_Read,Field_Number 0xe 07ed 1b11 | | Execute Package,Field_Read,Field_Number 0x11 07ee 00db | | Load_Top At_Offset_3 07ef e009 | | Load 0x0,0x9 07f0 184d | M | Execute Package,Field_Execute,Field_Number 0x4d 07f1 e5fe | | Load 0x2,-0x2 07f2 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 07f3 e224 | $ | Load 0x1,0x24 07f4 e5fe | | Load 0x2,-0x2 07f5 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 07f6 4502 |E | Exit_Suprogram New_Top_Offset 0x2 07f7 TRAP_07e8: 07f7 e04e | N | Load 0x0,0x4e 07f8 1b0e | | Execute Package,Field_Read,Field_Number 0xe 07f9 010f | | Execute Exception,Equal 07fa 6806 |h | Jump_Zero 0x801 07fb e04e | N | Load 0x0,0x4e 07fc 1b0d | | Execute Package,Field_Read,Field_Number 0xd 07fd 8226 | & | Call 0x1,0x26 07fe e5fe | | Load 0x2,-0x2 07ff 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0800 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0801 0100 | | Execute Exception,Raise 0802 0000 0000 | | .BLANK 0000[0x6] 0808 ; -------------------------------------------------------------------------------------- 0808 ; SUBPROGRAM 0808 ; -------------------------------------------------------------------------------------- 0808 080f | | .CONST 0x080f ; Address of begin 0809 0816 | | .CONST 0x0816 ; Address of exception handler 080a 0002 | | .CONST 0x0002 ; Number of locals 080b INIT_0808: 080b e22d | - | Load 0x1,0x2d 080c 0322 | " | Declare_Variable Record 080d 00d8 | | Load_Top At_Offset_0 080e 1c00 | | Execute_Immediate Run_Utility,0x0 080f BODY_0808: 080f 00db | | Load_Top At_Offset_3 0810 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0811 e5ff | | Load 0x2,-0x1 0812 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0813 e009 | | Load 0x0,0x9 0814 184e | N | Execute Package,Field_Execute,Field_Number 0x4e 0815 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0816 TRAP_0808: 0816 e04e | N | Load 0x0,0x4e 0817 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0818 010f | | Execute Exception,Equal 0819 6806 |h | Jump_Zero 0x820 081a e04e | N | Load 0x0,0x4e 081b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 081c 8226 | & | Call 0x1,0x26 081d e5fe | | Load 0x2,-0x2 081e 016d | m | Execute Variant_Record,Structure_Write 081f 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0820 0100 | | Execute Exception,Raise 0821 0000 0000 | | .BLANK 0000[0x7] 0828 ; -------------------------------------------------------------------------------------- 0828 ; SUBPROGRAM 0828 ; -------------------------------------------------------------------------------------- 0828 082b | + | .CONST 0x082b ; Address of begin 0829 0835 | 5 | .CONST 0x0835 ; Address of exception handler 082a 0001 | | .CONST 0x0001 ; Number of locals 082b BODY_0828: 082b INIT_0828: 082b 00da | | Load_Top At_Offset_2 082c 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 082d 00db | | Load_Top At_Offset_3 082e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 082f e009 | | Load 0x0,0x9 0830 1850 | P | Execute Package,Field_Execute,Field_Number 0x50 0831 e224 | $ | Load 0x1,0x24 0832 e5fe | | Load 0x2,-0x2 0833 016d | m | Execute Variant_Record,Structure_Write 0834 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0835 TRAP_0828: 0835 e04e | N | Load 0x0,0x4e 0836 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0837 010f | | Execute Exception,Equal 0838 6806 |h | Jump_Zero 0x83f 0839 e04e | N | Load 0x0,0x4e 083a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 083b 8226 | & | Call 0x1,0x26 083c e5fe | | Load 0x2,-0x2 083d 016d | m | Execute Variant_Record,Structure_Write 083e 4502 |E | Exit_Suprogram New_Top_Offset 0x2 083f 0100 | | Execute Exception,Raise 0840 ; -------------------------------------------------------------------------------------- 0840 ; SUBPROGRAM 0840 ; -------------------------------------------------------------------------------------- 0840 0843 | C | .CONST 0x0843 ; Address of begin 0841 084f | O | .CONST 0x084f ; Address of exception handler 0842 0001 | | .CONST 0x0001 ; Number of locals 0843 BODY_0840: 0843 INIT_0840: 0843 00da | | Load_Top At_Offset_2 0844 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0845 00db | | Load_Top At_Offset_3 0846 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0847 e5ff | | Load 0x2,-0x1 0848 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0849 e009 | | Load 0x0,0x9 084a 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 084b e224 | $ | Load 0x1,0x24 084c e5fe | | Load 0x2,-0x2 084d 016d | m | Execute Variant_Record,Structure_Write 084e 4502 |E | Exit_Suprogram New_Top_Offset 0x2 084f TRAP_0840: 084f e04e | N | Load 0x0,0x4e 0850 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0851 010f | | Execute Exception,Equal 0852 6806 |h | Jump_Zero 0x859 0853 e04e | N | Load 0x0,0x4e 0854 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0855 8226 | & | Call 0x1,0x26 0856 e5fe | | Load 0x2,-0x2 0857 016d | m | Execute Variant_Record,Structure_Write 0858 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0859 0100 | | Execute Exception,Raise 085a 0000 0000 | | .BLANK 0000[0x6] 0860 ; -------------------------------------------------------------------------------------- 0860 ; SUBPROGRAM 0860 ; -------------------------------------------------------------------------------------- 0860 0863 | c | .CONST 0x0863 ; Address of begin 0861 0870 | p | .CONST 0x0870 ; Address of exception handler 0862 0001 | | .CONST 0x0001 ; Number of locals 0863 BODY_0860: 0863 INIT_0860: 0863 4800 |H | Short_Literal 0x0 0864 00db | | Load_Top At_Offset_3 0865 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0866 e5ff | | Load 0x2,-0x1 0867 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0868 e5ff | | Load 0x2,-0x1 0869 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 086a e009 | | Load 0x0,0x9 086b 187e | ~ | Execute Package,Field_Execute,Field_Number 0x7e 086c e224 | $ | Load 0x1,0x24 086d e5fe | | Load 0x2,-0x2 086e 016d | m | Execute Variant_Record,Structure_Write 086f 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0870 TRAP_0860: 0870 e04e | N | Load 0x0,0x4e 0871 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0872 010f | | Execute Exception,Equal 0873 6806 |h | Jump_Zero 0x87a 0874 e04e | N | Load 0x0,0x4e 0875 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0876 8226 | & | Call 0x1,0x26 0877 e5fe | | Load 0x2,-0x2 0878 016d | m | Execute Variant_Record,Structure_Write 0879 4502 |E | Exit_Suprogram New_Top_Offset 0x2 087a 0100 | | Execute Exception,Raise 087b 0000 0000 | | .BLANK 0000[0x5] 0880 ; -------------------------------------------------------------------------------------- 0880 ; SUBPROGRAM 0880 ; -------------------------------------------------------------------------------------- 0880 0889 | | .CONST 0x0889 ; Address of begin 0881 089e | | .CONST 0x089e ; Address of exception handler 0882 0002 | | .CONST 0x0002 ; Number of locals 0883 INIT_0880: 0883 4900 |I | Short_Literal 0x100 0884 e010 | | Load 0x0,0x10 0885 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0886 1c08 | | Execute_Immediate Run_Utility,0x8 0887 00d8 | | Load_Top At_Offset_0 0888 1c00 | | Execute_Immediate Run_Utility,0x0 0889 BODY_0880: 0889 00d8 | | Load_Top At_Offset_0 088a e5ff | | Load 0x2,-0x1 088b 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 088c e5ff | | Load 0x2,-0x1 088d 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 088e e009 | | Load 0x0,0x9 088f 1865 | e | Execute Package,Field_Execute,Field_Number 0x65 0890 00d1 | | Pop_Control Pop_Count_1 0891 e22d | - | Load 0x1,0x2d 0892 0322 | " | Declare_Variable Record 0893 00d8 | | Load_Top At_Offset_0 0894 1c01 | | Execute_Immediate Run_Utility,0x1 0895 00d9 | | Load_Top At_Offset_1 0896 00d9 | | Load_Top At_Offset_1 0897 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0898 e224 | $ | Load 0x1,0x24 0899 00d9 | | Load_Top At_Offset_1 089a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 089b e5fe | | Load 0x2,-0x2 089c 017d | } | Execute Record,Structure_Write 089d 4502 |E | Exit_Suprogram New_Top_Offset 0x2 089e TRAP_0880: 089e e04e | N | Load 0x0,0x4e 089f 1b0e | | Execute Package,Field_Read,Field_Number 0xe 08a0 010f | | Execute Exception,Equal 08a1 6806 |h | Jump_Zero 0x8a8 08a2 e04e | N | Load 0x0,0x4e 08a3 1b0d | | Execute Package,Field_Read,Field_Number 0xd 08a4 8226 | & | Call 0x1,0x26 08a5 e5fe | | Load 0x2,-0x2 08a6 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 08a7 4502 |E | Exit_Suprogram New_Top_Offset 0x2 08a8 0100 | | Execute Exception,Raise 08a9 0000 0000 | | .BLANK 0000[0x7] 08b0 ; -------------------------------------------------------------------------------------- 08b0 ; SUBPROGRAM 08b0 ; -------------------------------------------------------------------------------------- 08b0 08b3 | | .CONST 0x08b3 ; Address of begin 08b1 08bd | | .CONST 0x08bd ; Address of exception handler 08b2 0001 | | .CONST 0x0001 ; Number of locals 08b3 BODY_08b0: 08b3 INIT_08b0: 08b3 e009 | | Load 0x0,0x9 08b4 1b5f | _ | Execute Package,Field_Read,Field_Number 0x5f 08b5 e009 | | Load 0x0,0x9 08b6 1877 | w | Execute Package,Field_Execute,Field_Number 0x77 08b7 e5fe | | Load 0x2,-0x2 08b8 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 08b9 e224 | $ | Load 0x1,0x24 08ba e5fe | | Load 0x2,-0x2 08bb 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3 08bc 4502 |E | Exit_Suprogram New_Top_Offset 0x2 08bd TRAP_08b0: 08bd e04e | N | Load 0x0,0x4e 08be 1b0e | | Execute Package,Field_Read,Field_Number 0xe 08bf 010f | | Execute Exception,Equal 08c0 6806 |h | Jump_Zero 0x8c7 08c1 e04e | N | Load 0x0,0x4e 08c2 1b0d | | Execute Package,Field_Read,Field_Number 0xd 08c3 8226 | & | Call 0x1,0x26 08c4 e5fe | | Load 0x2,-0x2 08c5 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3 08c6 4502 |E | Exit_Suprogram New_Top_Offset 0x2 08c7 0100 | | Execute Exception,Raise 08c8 ; -------------------------------------------------------------------------------------- 08c8 ; SUBPROGRAM 08c8 ; -------------------------------------------------------------------------------------- 08c8 08d1 | | .CONST 0x08d1 ; Address of begin 08c9 08e3 | | .CONST 0x08e3 ; Address of exception handler 08ca 0002 | | .CONST 0x0002 ; Number of locals 08cb INIT_08c8: 08cb 4900 |I | Short_Literal 0x100 08cc e010 | | Load 0x0,0x10 08cd 1b0e | | Execute Package,Field_Read,Field_Number 0xe 08ce 1c08 | | Execute_Immediate Run_Utility,0x8 08cf 00d8 | | Load_Top At_Offset_0 08d0 1c00 | | Execute_Immediate Run_Utility,0x0 08d1 BODY_08c8: 08d1 00d8 | | Load_Top At_Offset_0 08d2 e5ff | | Load 0x2,-0x1 08d3 e009 | | Load 0x0,0x9 08d4 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 08d5 00d1 | | Pop_Control Pop_Count_1 08d6 e22d | - | Load 0x1,0x2d 08d7 0322 | " | Declare_Variable Record 08d8 00d8 | | Load_Top At_Offset_0 08d9 1c01 | | Execute_Immediate Run_Utility,0x1 08da 00d9 | | Load_Top At_Offset_1 08db 00d9 | | Load_Top At_Offset_1 08dc 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 08dd e224 | $ | Load 0x1,0x24 08de 00d9 | | Load_Top At_Offset_1 08df 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 08e0 e5fe | | Load 0x2,-0x2 08e1 017d | } | Execute Record,Structure_Write 08e2 4502 |E | Exit_Suprogram New_Top_Offset 0x2 08e3 TRAP_08c8: 08e3 e04e | N | Load 0x0,0x4e 08e4 1b0e | | Execute Package,Field_Read,Field_Number 0xe 08e5 010f | | Execute Exception,Equal 08e6 6806 |h | Jump_Zero 0x8ed 08e7 e04e | N | Load 0x0,0x4e 08e8 1b0d | | Execute Package,Field_Read,Field_Number 0xd 08e9 8226 | & | Call 0x1,0x26 08ea e5fe | | Load 0x2,-0x2 08eb 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 08ec 4502 |E | Exit_Suprogram New_Top_Offset 0x2 08ed 0100 | | Execute Exception,Raise 08ee 0000 0000 | | .XXX[0x2] 08f0 ; -------------------------------------------------------------------------------------- 08f0 ; SUBPROGRAM 08f0 ; -------------------------------------------------------------------------------------- 08f0 08f3 | | .CONST 0x08f3 ; Address of begin 08f1 08fa | | .CONST 0x08fa ; Address of exception handler 08f2 0001 | | .CONST 0x0001 ; Number of locals 08f3 BODY_08f0: 08f3 INIT_08f0: 08f3 00da | | Load_Top At_Offset_2 08f4 e009 | | Load 0x0,0x9 08f5 1870 | p | Execute Package,Field_Execute,Field_Number 0x70 08f6 e224 | $ | Load 0x1,0x24 08f7 e5fe | | Load 0x2,-0x2 08f8 016d | m | Execute Variant_Record,Structure_Write 08f9 4502 |E | Exit_Suprogram New_Top_Offset 0x2 08fa TRAP_08f0: 08fa e04e | N | Load 0x0,0x4e 08fb 1b0e | | Execute Package,Field_Read,Field_Number 0xe 08fc 010f | | Execute Exception,Equal 08fd 6806 |h | Jump_Zero 0x904 08fe e04e | N | Load 0x0,0x4e 08ff 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0900 8226 | & | Call 0x1,0x26 0901 e5fe | | Load 0x2,-0x2 0902 016d | m | Execute Variant_Record,Structure_Write 0903 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0904 0100 | | Execute Exception,Raise 0905 0000 0000 | | .XXX[0x3] 0907 0000 | | 0908 ; -------------------------------------------------------------------------------------- 0908 ; SUBPROGRAM 0908 ; -------------------------------------------------------------------------------------- 0908 090b | | .CONST 0x090b ; Address of begin 0909 0912 | | .CONST 0x0912 ; Address of exception handler 090a 0001 | | .CONST 0x0001 ; Number of locals 090b BODY_0908: 090b INIT_0908: 090b 00da | | Load_Top At_Offset_2 090c e009 | | Load 0x0,0x9 090d 1871 | q | Execute Package,Field_Execute,Field_Number 0x71 090e e224 | $ | Load 0x1,0x24 090f e5fe | | Load 0x2,-0x2 0910 016d | m | Execute Variant_Record,Structure_Write 0911 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0912 TRAP_0908: 0912 e04e | N | Load 0x0,0x4e 0913 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0914 010f | | Execute Exception,Equal 0915 6806 |h | Jump_Zero 0x91c 0916 e04e | N | Load 0x0,0x4e 0917 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0918 8226 | & | Call 0x1,0x26 0919 e5fe | | Load 0x2,-0x2 091a 016d | m | Execute Variant_Record,Structure_Write 091b 4502 |E | Exit_Suprogram New_Top_Offset 0x2 091c 0100 | | Execute Exception,Raise 091d 0000 0000 | | .XXX[0x3] 091f 0000 | | 0920 ; -------------------------------------------------------------------------------------- 0920 ; SUBPROGRAM 0920 ; -------------------------------------------------------------------------------------- 0920 0927 | ' | .CONST 0x0927 ; Address of begin 0921 0934 | 4 | .CONST 0x0934 ; Address of exception handler 0922 0002 | | .CONST 0x0002 ; Number of locals 0923 INIT_0920: 0923 e22d | - | Load 0x1,0x2d 0924 0322 | " | Declare_Variable Record 0925 00d8 | | Load_Top At_Offset_0 0926 1c00 | | Execute_Immediate Run_Utility,0x0 0927 BODY_0920: 0927 00d8 | | Load_Top At_Offset_0 0928 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0929 e5ff | | Load 0x2,-0x1 092a e009 | | Load 0x0,0x9 092b 1852 | R | Execute Package,Field_Execute,Field_Number 0x52 092c 00d1 | | Pop_Control Pop_Count_1 092d e224 | $ | Load 0x1,0x24 092e e5fe | | Load 0x2,-0x2 092f 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0930 00d8 | | Load_Top At_Offset_0 0931 e5fe | | Load 0x2,-0x2 0932 017d | } | Execute Record,Structure_Write 0933 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0934 TRAP_0920: 0934 e04e | N | Load 0x0,0x4e 0935 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0936 010f | | Execute Exception,Equal 0937 6806 |h | Jump_Zero 0x93e 0938 e04e | N | Load 0x0,0x4e 0939 1b0d | | Execute Package,Field_Read,Field_Number 0xd 093a 8226 | & | Call 0x1,0x26 093b e5fe | | Load 0x2,-0x2 093c 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 093d 4502 |E | Exit_Suprogram New_Top_Offset 0x2 093e 0100 | | Execute Exception,Raise 093f 0000 | | .XXX[0x1] 0940 ; -------------------------------------------------------------------------------------- 0940 ; SUBPROGRAM 0940 ; -------------------------------------------------------------------------------------- 0940 0943 | C | .CONST 0x0943 ; Address of begin 0941 094a | J | .CONST 0x094a ; Address of exception handler 0942 0001 | | .CONST 0x0001 ; Number of locals 0943 BODY_0940: 0943 INIT_0940: 0943 00da | | Load_Top At_Offset_2 0944 e009 | | Load 0x0,0x9 0945 1853 | S | Execute Package,Field_Execute,Field_Number 0x53 0946 e224 | $ | Load 0x1,0x24 0947 e5fe | | Load 0x2,-0x2 0948 016d | m | Execute Variant_Record,Structure_Write 0949 4502 |E | Exit_Suprogram New_Top_Offset 0x2 094a TRAP_0940: 094a e04e | N | Load 0x0,0x4e 094b 1b0e | | Execute Package,Field_Read,Field_Number 0xe 094c 010f | | Execute Exception,Equal 094d 6806 |h | Jump_Zero 0x954 094e e04e | N | Load 0x0,0x4e 094f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0950 8226 | & | Call 0x1,0x26 0951 e5fe | | Load 0x2,-0x2 0952 016d | m | Execute Variant_Record,Structure_Write 0953 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0954 0100 | | Execute Exception,Raise 0955 0000 0000 | | .XXX[0x3] 0957 0000 | | 0958 ; -------------------------------------------------------------------------------------- 0958 ; SUBPROGRAM 0958 ; -------------------------------------------------------------------------------------- 0958 095f | _ | .CONST 0x095f ; Address of begin 0959 0969 | i | .CONST 0x0969 ; Address of exception handler 095a 0002 | | .CONST 0x0002 ; Number of locals 095b INIT_0958: 095b e234 | 4 | Load 0x1,0x34 095c 0322 | " | Declare_Variable Record 095d 00d8 | | Load_Top At_Offset_0 095e 1c00 | | Execute_Immediate Run_Utility,0x0 095f BODY_0958: 095f 00e1 | | Load_Encached Boolean_Cache 0960 e5ff | | Load 0x2,-0x1 0961 e009 | | Load 0x0,0x9 0962 1854 | T | Execute Package,Field_Execute,Field_Number 0x54 0963 e5fe | | Load 0x2,-0x2 0964 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0965 e224 | $ | Load 0x1,0x24 0966 e5fe | | Load 0x2,-0x2 0967 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0968 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0969 TRAP_0958: 0969 e04e | N | Load 0x0,0x4e 096a 1b0e | | Execute Package,Field_Read,Field_Number 0xe 096b 010f | | Execute Exception,Equal 096c 6806 |h | Jump_Zero 0x973 096d e04e | N | Load 0x0,0x4e 096e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 096f 8226 | & | Call 0x1,0x26 0970 e5fe | | Load 0x2,-0x2 0971 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0972 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0973 0100 | | Execute Exception,Raise 0974 0000 0000 | | .BLANK 0000[0x4] 0978 ; -------------------------------------------------------------------------------------- 0978 ; SUBPROGRAM 0978 ; -------------------------------------------------------------------------------------- 0978 097b | { | .CONST 0x097b ; Address of begin 0979 0988 | | .CONST 0x0988 ; Address of exception handler 097a 0001 | | .CONST 0x0001 ; Number of locals 097b BODY_0978: 097b INIT_0978: 097b e00f | | Load 0x0,0xf 097c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 097d 1b11 | | Execute Package,Field_Read,Field_Number 0x11 097e 4800 |H | Short_Literal 0x0 097f e5ff | | Load 0x2,-0x1 0980 e009 | | Load 0x0,0x9 0981 187d | } | Execute Package,Field_Execute,Field_Number 0x7d 0982 e5fe | | Load 0x2,-0x2 0983 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0984 e224 | $ | Load 0x1,0x24 0985 e5fe | | Load 0x2,-0x2 0986 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0987 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0988 TRAP_0978: 0988 e04e | N | Load 0x0,0x4e 0989 1b0e | | Execute Package,Field_Read,Field_Number 0xe 098a 010f | | Execute Exception,Equal 098b 6806 |h | Jump_Zero 0x992 098c e04e | N | Load 0x0,0x4e 098d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 098e 8226 | & | Call 0x1,0x26 098f e5fe | | Load 0x2,-0x2 0990 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0991 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0992 0100 | | Execute Exception,Raise 0993 0000 0000 | | .BLANK 0000[0x5] 0998 ; -------------------------------------------------------------------------------------- 0998 ; SUBPROGRAM 0998 ; -------------------------------------------------------------------------------------- 0998 099b | | .CONST 0x099b ; Address of begin 0999 09a8 | | .CONST 0x09a8 ; Address of exception handler 099a 0001 | | .CONST 0x0001 ; Number of locals 099b BODY_0998: 099b INIT_0998: 099b e00f | | Load 0x0,0xf 099c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 099d 1b11 | | Execute Package,Field_Read,Field_Number 0x11 099e 4800 |H | Short_Literal 0x0 099f e5ff | | Load 0x2,-0x1 09a0 e009 | | Load 0x0,0x9 09a1 187c | | | Execute Package,Field_Execute,Field_Number 0x7c 09a2 e5fe | | Load 0x2,-0x2 09a3 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 09a4 e224 | $ | Load 0x1,0x24 09a5 e5fe | | Load 0x2,-0x2 09a6 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 09a7 4502 |E | Exit_Suprogram New_Top_Offset 0x2 09a8 TRAP_0998: 09a8 e04e | N | Load 0x0,0x4e 09a9 1b0e | | Execute Package,Field_Read,Field_Number 0xe 09aa 010f | | Execute Exception,Equal 09ab 6806 |h | Jump_Zero 0x9b2 09ac e04e | N | Load 0x0,0x4e 09ad 1b0d | | Execute Package,Field_Read,Field_Number 0xd 09ae 8226 | & | Call 0x1,0x26 09af e5fe | | Load 0x2,-0x2 09b0 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 09b1 4502 |E | Exit_Suprogram New_Top_Offset 0x2 09b2 0100 | | Execute Exception,Raise 09b3 0000 0000 | | .BLANK 0000[0x5] 09b8 ; -------------------------------------------------------------------------------------- 09b8 ; SUBPROGRAM 09b8 ; -------------------------------------------------------------------------------------- 09b8 09bb | | .CONST 0x09bb ; Address of begin 09b9 09c9 | | .CONST 0x09c9 ; Address of exception handler 09ba 0001 | | .CONST 0x0001 ; Number of locals 09bb BODY_09b8: 09bb INIT_09b8: 09bb e009 | | Load 0x0,0x9 09bc 1b5e | ^ | Execute Package,Field_Read,Field_Number 0x5e 09bd 00db | | Load_Top At_Offset_3 09be 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 09bf e5ff | | Load 0x2,-0x1 09c0 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 09c1 e009 | | Load 0x0,0x9 09c2 1872 | r | Execute Package,Field_Execute,Field_Number 0x72 09c3 e5fe | | Load 0x2,-0x2 09c4 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 09c5 e224 | $ | Load 0x1,0x24 09c6 e5fe | | Load 0x2,-0x2 09c7 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3 09c8 4502 |E | Exit_Suprogram New_Top_Offset 0x2 09c9 TRAP_09b8: 09c9 e04e | N | Load 0x0,0x4e 09ca 1b0e | | Execute Package,Field_Read,Field_Number 0xe 09cb 010f | | Execute Exception,Equal 09cc 6806 |h | Jump_Zero 0x9d3 09cd e04e | N | Load 0x0,0x4e 09ce 1b0d | | Execute Package,Field_Read,Field_Number 0xd 09cf 8226 | & | Call 0x1,0x26 09d0 e5fe | | Load 0x2,-0x2 09d1 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3 09d2 4502 |E | Exit_Suprogram New_Top_Offset 0x2 09d3 0100 | | Execute Exception,Raise 09d4 0000 0000 | | .BLANK 0000[0x4] 09d8 ; -------------------------------------------------------------------------------------- 09d8 ; SUBPROGRAM 09d8 ; -------------------------------------------------------------------------------------- 09d8 09db | | .CONST 0x09db ; Address of begin 09d9 09e9 | | .CONST 0x09e9 ; Address of exception handler 09da 0001 | | .CONST 0x0001 ; Number of locals 09db BODY_09d8: 09db INIT_09d8: 09db e009 | | Load 0x0,0x9 09dc 1b5e | ^ | Execute Package,Field_Read,Field_Number 0x5e 09dd 00db | | Load_Top At_Offset_3 09de 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 09df e5ff | | Load 0x2,-0x1 09e0 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 09e1 e009 | | Load 0x0,0x9 09e2 1876 | v | Execute Package,Field_Execute,Field_Number 0x76 09e3 e5fe | | Load 0x2,-0x2 09e4 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 09e5 e224 | $ | Load 0x1,0x24 09e6 e5fe | | Load 0x2,-0x2 09e7 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3 09e8 4502 |E | Exit_Suprogram New_Top_Offset 0x2 09e9 TRAP_09d8: 09e9 e04e | N | Load 0x0,0x4e 09ea 1b0e | | Execute Package,Field_Read,Field_Number 0xe 09eb 010f | | Execute Exception,Equal 09ec 6806 |h | Jump_Zero 0x9f3 09ed e04e | N | Load 0x0,0x4e 09ee 1b0d | | Execute Package,Field_Read,Field_Number 0xd 09ef 8226 | & | Call 0x1,0x26 09f0 e5fe | | Load 0x2,-0x2 09f1 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3 09f2 4502 |E | Exit_Suprogram New_Top_Offset 0x2 09f3 0100 | | Execute Exception,Raise 09f4 0000 0000 | | .BLANK 0000[0x4] 09f8 ; -------------------------------------------------------------------------------------- 09f8 ; SUBPROGRAM 09f8 ; -------------------------------------------------------------------------------------- 09f8 09ff | | .CONST 0x09ff ; Address of begin 09f9 0a0b | | .CONST 0x0a0b ; Address of exception handler 09fa 0002 | | .CONST 0x0002 ; Number of locals 09fb INIT_09f8: 09fb e22d | - | Load 0x1,0x2d 09fc 0322 | " | Declare_Variable Record 09fd 00d8 | | Load_Top At_Offset_0 09fe 1c00 | | Execute_Immediate Run_Utility,0x0 09ff BODY_09f8: 09ff 00d8 | | Load_Top At_Offset_0 0a00 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0a01 e009 | | Load 0x0,0x9 0a02 1873 | s | Execute Package,Field_Execute,Field_Number 0x73 0a03 00d1 | | Pop_Control Pop_Count_1 0a04 e224 | $ | Load 0x1,0x24 0a05 00d9 | | Load_Top At_Offset_1 0a06 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0a07 00d8 | | Load_Top At_Offset_0 0a08 e5fe | | Load 0x2,-0x2 0a09 017d | } | Execute Record,Structure_Write 0a0a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0a0b TRAP_09f8: 0a0b e04e | N | Load 0x0,0x4e 0a0c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0a0d 010f | | Execute Exception,Equal 0a0e 6806 |h | Jump_Zero 0xa15 0a0f e04e | N | Load 0x0,0x4e 0a10 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0a11 8226 | & | Call 0x1,0x26 0a12 e5fe | | Load 0x2,-0x2 0a13 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0a14 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0a15 0100 | | Execute Exception,Raise 0a16 0000 0000 | | .XXX[0x2] 0a18 ; -------------------------------------------------------------------------------------- 0a18 ; SUBPROGRAM 0a18 ; -------------------------------------------------------------------------------------- 0a18 0a1f | | .CONST 0x0a1f ; Address of begin 0a19 0a2b | + | .CONST 0x0a2b ; Address of exception handler 0a1a 0002 | | .CONST 0x0002 ; Number of locals 0a1b INIT_0a18: 0a1b e22d | - | Load 0x1,0x2d 0a1c 0322 | " | Declare_Variable Record 0a1d 00d8 | | Load_Top At_Offset_0 0a1e 1c00 | | Execute_Immediate Run_Utility,0x0 0a1f BODY_0a18: 0a1f 00d8 | | Load_Top At_Offset_0 0a20 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0a21 e009 | | Load 0x0,0x9 0a22 1874 | t | Execute Package,Field_Execute,Field_Number 0x74 0a23 00d1 | | Pop_Control Pop_Count_1 0a24 e224 | $ | Load 0x1,0x24 0a25 00d9 | | Load_Top At_Offset_1 0a26 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0a27 00d8 | | Load_Top At_Offset_0 0a28 e5fe | | Load 0x2,-0x2 0a29 017d | } | Execute Record,Structure_Write 0a2a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0a2b TRAP_0a18: 0a2b e04e | N | Load 0x0,0x4e 0a2c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0a2d 010f | | Execute Exception,Equal 0a2e 6806 |h | Jump_Zero 0xa35 0a2f e04e | N | Load 0x0,0x4e 0a30 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0a31 8226 | & | Call 0x1,0x26 0a32 e5fe | | Load 0x2,-0x2 0a33 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0a34 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0a35 0100 | | Execute Exception,Raise 0a36 0000 0000 | | .XXX[0x2] 0a38 ; -------------------------------------------------------------------------------------- 0a38 ; SUBPROGRAM 0a38 ; -------------------------------------------------------------------------------------- 0a38 0a3b | ; | .CONST 0x0a3b ; Address of begin 0a39 0a42 | B | .CONST 0x0a42 ; Address of exception handler 0a3a 0001 | | .CONST 0x0001 ; Number of locals 0a3b BODY_0a38: 0a3b INIT_0a38: 0a3b 00da | | Load_Top At_Offset_2 0a3c e009 | | Load 0x0,0x9 0a3d 186d | m | Execute Package,Field_Execute,Field_Number 0x6d 0a3e e224 | $ | Load 0x1,0x24 0a3f e5fe | | Load 0x2,-0x2 0a40 016d | m | Execute Variant_Record,Structure_Write 0a41 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0a42 TRAP_0a38: 0a42 e04e | N | Load 0x0,0x4e 0a43 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0a44 010f | | Execute Exception,Equal 0a45 6806 |h | Jump_Zero 0xa4c 0a46 e04e | N | Load 0x0,0x4e 0a47 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0a48 8226 | & | Call 0x1,0x26 0a49 e5fe | | Load 0x2,-0x2 0a4a 016d | m | Execute Variant_Record,Structure_Write 0a4b 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0a4c 0100 | | Execute Exception,Raise 0a4d 0000 0000 | | .XXX[0x3] 0a4f 0000 | | 0a50 ; -------------------------------------------------------------------------------------- 0a50 ; SUBPROGRAM 0a50 ; -------------------------------------------------------------------------------------- 0a50 0a53 | S | .CONST 0x0a53 ; Address of begin 0a51 0a5a | Z | .CONST 0x0a5a ; Address of exception handler 0a52 0001 | | .CONST 0x0001 ; Number of locals 0a53 BODY_0a50: 0a53 INIT_0a50: 0a53 00da | | Load_Top At_Offset_2 0a54 e009 | | Load 0x0,0x9 0a55 186e | n | Execute Package,Field_Execute,Field_Number 0x6e 0a56 e224 | $ | Load 0x1,0x24 0a57 e5fe | | Load 0x2,-0x2 0a58 016d | m | Execute Variant_Record,Structure_Write 0a59 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0a5a TRAP_0a50: 0a5a e04e | N | Load 0x0,0x4e 0a5b 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0a5c 010f | | Execute Exception,Equal 0a5d 6806 |h | Jump_Zero 0xa64 0a5e e04e | N | Load 0x0,0x4e 0a5f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0a60 8226 | & | Call 0x1,0x26 0a61 e5fe | | Load 0x2,-0x2 0a62 016d | m | Execute Variant_Record,Structure_Write 0a63 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0a64 0100 | | Execute Exception,Raise 0a65 0000 0000 | | .XXX[0x3] 0a67 0000 | | 0a68 ; -------------------------------------------------------------------------------------- 0a68 ; SUBPROGRAM 0a68 ; -------------------------------------------------------------------------------------- 0a68 0a6b | k | .CONST 0x0a6b ; Address of begin 0a69 0a71 | q | .CONST 0x0a71 ; Address of exception handler 0a6a 0001 | | .CONST 0x0001 ; Number of locals 0a6b BODY_0a68: 0a6b INIT_0a68: 0a6b e009 | | Load 0x0,0x9 0a6c 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0a6d e224 | $ | Load 0x1,0x24 0a6e e5fe | | Load 0x2,-0x2 0a6f 016d | m | Execute Variant_Record,Structure_Write 0a70 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0a71 TRAP_0a68: 0a71 e04e | N | Load 0x0,0x4e 0a72 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0a73 010f | | Execute Exception,Equal 0a74 6806 |h | Jump_Zero 0xa7b 0a75 e04e | N | Load 0x0,0x4e 0a76 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0a77 8226 | & | Call 0x1,0x26 0a78 e5fe | | Load 0x2,-0x2 0a79 016d | m | Execute Variant_Record,Structure_Write 0a7a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0a7b 0100 | | Execute Exception,Raise 0a7c 0000 0000 | | .BLANK 0000[0x4] 0a80 ; -------------------------------------------------------------------------------------- 0a80 ; SUBPROGRAM 0a80 ; -------------------------------------------------------------------------------------- 0a80 0a83 | | .CONST 0x0a83 ; Address of begin 0a81 0a8a | | .CONST 0x0a8a ; Address of exception handler 0a82 0001 | | .CONST 0x0001 ; Number of locals 0a83 BODY_0a80: 0a83 INIT_0a80: 0a83 00da | | Load_Top At_Offset_2 0a84 e009 | | Load 0x0,0x9 0a85 185c | \ | Execute Package,Field_Execute,Field_Number 0x5c 0a86 e224 | $ | Load 0x1,0x24 0a87 e5fe | | Load 0x2,-0x2 0a88 016d | m | Execute Variant_Record,Structure_Write 0a89 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0a8a TRAP_0a80: 0a8a e04e | N | Load 0x0,0x4e 0a8b 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0a8c 010f | | Execute Exception,Equal 0a8d 6806 |h | Jump_Zero 0xa94 0a8e e04e | N | Load 0x0,0x4e 0a8f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0a90 8226 | & | Call 0x1,0x26 0a91 e5fe | | Load 0x2,-0x2 0a92 016d | m | Execute Variant_Record,Structure_Write 0a93 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0a94 0100 | | Execute Exception,Raise 0a95 0000 0000 | | .XXX[0x3] 0a97 0000 | | 0a98 ; -------------------------------------------------------------------------------------- 0a98 ; SUBPROGRAM 0a98 ; -------------------------------------------------------------------------------------- 0a98 0aa1 | | .CONST 0x0aa1 ; Address of begin 0a99 0ab6 | | .CONST 0x0ab6 ; Address of exception handler 0a9a 0002 | | .CONST 0x0002 ; Number of locals 0a9b INIT_0a98: 0a9b 4900 |I | Short_Literal 0x100 0a9c e010 | | Load 0x0,0x10 0a9d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0a9e 1c08 | | Execute_Immediate Run_Utility,0x8 0a9f 00d8 | | Load_Top At_Offset_0 0aa0 1c00 | | Execute_Immediate Run_Utility,0x0 0aa1 BODY_0a98: 0aa1 00d8 | | Load_Top At_Offset_0 0aa2 e5ff | | Load 0x2,-0x1 0aa3 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0aa4 e5ff | | Load 0x2,-0x1 0aa5 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0aa6 e009 | | Load 0x0,0x9 0aa7 1879 | y | Execute Package,Field_Execute,Field_Number 0x79 0aa8 00d1 | | Pop_Control Pop_Count_1 0aa9 e22d | - | Load 0x1,0x2d 0aaa 0322 | " | Declare_Variable Record 0aab 00d8 | | Load_Top At_Offset_0 0aac 1c01 | | Execute_Immediate Run_Utility,0x1 0aad 00d9 | | Load_Top At_Offset_1 0aae 00d9 | | Load_Top At_Offset_1 0aaf 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0ab0 e224 | $ | Load 0x1,0x24 0ab1 00d9 | | Load_Top At_Offset_1 0ab2 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0ab3 e5fe | | Load 0x2,-0x2 0ab4 017d | } | Execute Record,Structure_Write 0ab5 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0ab6 TRAP_0a98: 0ab6 e04e | N | Load 0x0,0x4e 0ab7 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0ab8 010f | | Execute Exception,Equal 0ab9 6806 |h | Jump_Zero 0xac0 0aba e04e | N | Load 0x0,0x4e 0abb 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0abc 8226 | & | Call 0x1,0x26 0abd e5fe | | Load 0x2,-0x2 0abe 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0abf 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0ac0 0100 | | Execute Exception,Raise 0ac1 0000 0000 | | .BLANK 0000[0x7] 0ac8 ; -------------------------------------------------------------------------------------- 0ac8 ; SUBPROGRAM 0ac8 ; -------------------------------------------------------------------------------------- 0ac8 0acf | | .CONST 0x0acf ; Address of begin 0ac9 0adb | | .CONST 0x0adb ; Address of exception handler 0aca 0002 | | .CONST 0x0002 ; Number of locals 0acb INIT_0ac8: 0acb e22d | - | Load 0x1,0x2d 0acc 0322 | " | Declare_Variable Record 0acd 00d8 | | Load_Top At_Offset_0 0ace 1c00 | | Execute_Immediate Run_Utility,0x0 0acf BODY_0ac8: 0acf 00d8 | | Load_Top At_Offset_0 0ad0 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0ad1 e009 | | Load 0x0,0x9 0ad2 187a | z | Execute Package,Field_Execute,Field_Number 0x7a 0ad3 00d1 | | Pop_Control Pop_Count_1 0ad4 e224 | $ | Load 0x1,0x24 0ad5 00d9 | | Load_Top At_Offset_1 0ad6 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0ad7 00d8 | | Load_Top At_Offset_0 0ad8 e5fe | | Load 0x2,-0x2 0ad9 017d | } | Execute Record,Structure_Write 0ada 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0adb TRAP_0ac8: 0adb e04e | N | Load 0x0,0x4e 0adc 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0add 010f | | Execute Exception,Equal 0ade 6806 |h | Jump_Zero 0xae5 0adf e04e | N | Load 0x0,0x4e 0ae0 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0ae1 8226 | & | Call 0x1,0x26 0ae2 e5fe | | Load 0x2,-0x2 0ae3 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0ae4 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0ae5 0100 | | Execute Exception,Raise 0ae6 0000 0000 | | .XXX[0x2] 0ae8 ; -------------------------------------------------------------------------------------- 0ae8 ; SUBPROGRAM 0ae8 ; -------------------------------------------------------------------------------------- 0ae8 0aeb | | .CONST 0x0aeb ; Address of begin 0ae9 0af2 | | .CONST 0x0af2 ; Address of exception handler 0aea 0001 | | .CONST 0x0001 ; Number of locals 0aeb BODY_0ae8: 0aeb INIT_0ae8: 0aeb 00da | | Load_Top At_Offset_2 0aec e009 | | Load 0x0,0x9 0aed 187b | { | Execute Package,Field_Execute,Field_Number 0x7b 0aee e224 | $ | Load 0x1,0x24 0aef e5fe | | Load 0x2,-0x2 0af0 016d | m | Execute Variant_Record,Structure_Write 0af1 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0af2 TRAP_0ae8: 0af2 e04e | N | Load 0x0,0x4e 0af3 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0af4 010f | | Execute Exception,Equal 0af5 6806 |h | Jump_Zero 0xafc 0af6 e04e | N | Load 0x0,0x4e 0af7 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0af8 8226 | & | Call 0x1,0x26 0af9 e5fe | | Load 0x2,-0x2 0afa 016d | m | Execute Variant_Record,Structure_Write 0afb 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0afc 0100 | | Execute Exception,Raise 0afd 0000 0000 | | .XXX[0x3] 0aff 0000 | | 0b00 ; -------------------------------------------------------------------------------------- 0b00 ; SUBPROGRAM 0b00 ; -------------------------------------------------------------------------------------- 0b00 0b03 | | .CONST 0x0b03 ; Address of begin 0b01 0004 | | .CONST 0x0004 ; Address of exception handler 0b02 0001 | | .CONST 0x0001 ; Number of locals 0b03 BODY_0b00: 0b03 INIT_0b00: 0b03 4800 |H | Short_Literal 0x0 0b04 00db | | Load_Top At_Offset_3 0b05 01d7 | | Execute Vector,Field_Read 0b06 0908 | | Execute_Immediate Binary_Scale,0x8 0b07 4801 |H | Short_Literal 0x1 0b08 e5ff | | Load 0x2,-0x1 0b09 01d7 | | Execute Vector,Field_Read 0b0a 0273 | s | Execute Discrete,Plus 0b0b 00d8 | | Load_Top At_Offset_0 0b0c e20d | | Load 0x1,0xd 0b0d 0260 | ` | Execute Discrete,In_Type 0b0e 7001 |p | Jump_Nonzero 0xb10 0b0f 0801 | | Execute_Immediate Raise,0x1 0b10 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0b11 0000 0000 | | .BLANK 0000[0x7] 0b18 ; -------------------------------------------------------------------------------------- 0b18 ; SUBPROGRAM 0b18 ; -------------------------------------------------------------------------------------- 0b18 0b21 | ! | .CONST 0x0b21 ; Address of begin 0b19 0004 | | .CONST 0x0004 ; Address of exception handler 0b1a 0003 | | .CONST 0x0003 ; Number of locals 0b1b INIT_0b18: 0b1b e04f | O | Load 0x0,0x4f 0b1c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0b1d 02c7 | | Declare_Variable Any 0b1e 00d8 | | Load_Top At_Offset_0 0b1f 1c00 | | Execute_Immediate Run_Utility,0x0 0b20 00e1 | | Load_Encached Boolean_Cache 0b21 BODY_0b18: 0b21 4801 |H | Short_Literal 0x1 0b22 e050 | P | Load 0x0,0x50 0b23 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0b24 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0b25 e5ff | | Load 0x2,-0x1 0b26 e051 | Q | Load 0x0,0x51 0b27 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0b28 c402 | | Store 0x2,0x2 0b29 00d9 | | Load_Top At_Offset_1 0b2a e04f | O | Load 0x0,0x4f 0b2b 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0b2c 1848 | H | Execute Package,Field_Execute,Field_Number 0x48 0b2d 680e |h | Jump_Zero 0xb3c 0b2e 00d9 | | Load_Top At_Offset_1 0b2f e04f | O | Load 0x0,0x4f 0b30 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0b31 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 0b32 6802 |h | Jump_Zero 0xb35 0b33 4801 |H | Short_Literal 0x1 0b34 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0b35 0092 0b56 | V| Action Push_String_Extended,0xb56 ; "The Diagram Name refers to a invalid object" 0b37 e052 | R | Load 0x0,0x52 0b38 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0b39 e04e | N | Load 0x0,0x4e 0b3a 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0b3b 0257 | W | Execute Discrete,Raise 0b3c 4800 |H | Short_Literal 0x0 0b3d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0b3e 0000 0000 | | .XXX[0x2] 0b40 ; -------------------------------------------------------------------------------------- 0b40 ; SUBPROGRAM 0b40 ; -------------------------------------------------------------------------------------- 0b40 0b46 | F | .CONST 0x0b46 ; Address of begin 0b41 0004 | | .CONST 0x0004 ; Address of exception handler 0b42 0002 | | .CONST 0x0002 ; Number of locals 0b43 INIT_0b40: 0b43 4900 |I | Short_Literal 0x100 0b44 e5ff | | Load 0x2,-0x1 0b45 8240 | @ | Call 0x1,0x40 0b46 BODY_0b40: 0b46 e233 | 3 | Load 0x1,0x33 0b47 0322 | " | Declare_Variable Record 0b48 00d8 | | Load_Top At_Offset_0 0b49 1c01 | | Execute_Immediate Run_Utility,0x1 0b4a e402 | | Load 0x2,0x2 0b4b 00d9 | | Load_Top At_Offset_1 0b4c 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0b4d 00d9 | | Load_Top At_Offset_1 0b4e 00d9 | | Load_Top At_Offset_1 0b4f 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0b50 e5ff | | Load 0x2,-0x1 0b51 8242 | B | Call 0x1,0x42 0b52 00d9 | | Load_Top At_Offset_1 0b53 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0b54 00cb | | Action Pop_Block_With_Result 0b55 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0b56 ; -------------------------------------------------------------------------------------- 0b56 ; STRING TABLE 0b56 ; -------------------------------------------------------------------------------------- 0b56 0004 | | .STRTAB 0x0004->0x0b58 ; "The Diagram Name refers to a invalid object" 0b57 002d | - | .STREND 0x002d->0x0b6d 0b58 5468 6520 |The | .STRTAB_STRINGS 0b6e 0000 0000 | | .XXX[0x2] 0b70 ; -------------------------------------------------------------------------------------- 0b70 ; Debug Table 0b70 ; -------------------------------------------------------------------------------------- 0b70 0004 0014 | | .DEBUG4 0x0004,0x0014,0x0fc7,0x0000,0x0001,0x0000 0b76 654d 86e0 |eM | .XXX[0x8a] 0b78 5529 501a |U)P | 0b7a 36e4 c998 |6 | 0b7c 0017 c796 | | 0b7e 2674 c9cb |&t | 0b80 9293 c661 | a| 0b82 ddbf 7efe | ~ | 0b84 041c 5df8 | ] | 0b86 aa8d 1b8b | | 0b88 15c1 9762 | b| 0b8a 0170 0ea2 | p | 0b8c 18bd 5e69 | ^i| 0b8e d39b ac5e | ^| 0b90 c183 0a19 | | 0b92 9770 e036 | p 6| 0b94 50c5 5072 |P Pr| 0b96 41bc 0037 |A 7| 0b98 c616 2a70 | *p| 0b9a c1bb 9a90 | | 0b9c a78e 1b3b | ;| 0b9e b33e d917 | > | 0ba0 9cf8 e91d | | 0ba2 c5be e0ce | | 0ba4 909a 5645 | VE| 0ba6 8dcb c4dd | | 0ba8 c262 52e7 | bR | 0baa 3399 e7b7 |3 | 0bac 42e2 7f3a |B :| 0bae 416c 74d7 |Alt | 0bb0 4605 cf5c |F \| 0bb2 0c77 c494 | w | 0bb4 2070 e1b3 | p | 0bb6 4a32 e668 |J2 h| 0bb8 9ab5 e742 | B| 0bba de34 5865 | 4Xe| 0bbc 8bb5 77df | w | 0bbe 798d 2734 |y '4| 0bc0 8064 0079 | d y| 0bc2 f184 15cd | | 0bc4 92f0 871d | | 0bc6 ff46 945e | F ^| 0bc8 65a4 16fb |e | 0bca d779 a826 | y &| 0bcc d81b 0175 | u| 0bce 62d1 8511 |b | 0bd0 69d0 c247 |i G| 0bd2 1963 4aa4 | cJ | 0bd4 1d72 1afb | r | 0bd6 35c1 5209 |5 R | 0bd8 2cc7 e314 |, | 0bda 5c85 3906 |\ 9 | 0bdc 1d99 ba70 | p| 0bde c412 2597 | % | 0be0 8105 1e2a | *| 0be2 3927 1489 |9' | 0be4 70d3 2254 |p "T| 0be6 5035 d405 |P5 | 0be8 c306 30d7 | 0 | 0bea 7a61 1a39 |za 9| 0bec 0348 800d | H | 0bee bc68 ea1b | h | 0bf0 6244 c803 |bD | 0bf2 5582 2338 |U #8| 0bf4 e667 8e3b | g ;| 0bf6 37d7 e28e |7 | 0bf8 14d0 f0d8 | | 0bfa 9144 d261 | D a| 0bfc d890 3501 | 5 | 0bfe f502 8e20 | |