|
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 - metrics - download
Length: 12288 (0x3000) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_6a18da
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─⟦cfc2e13cd⟧ »Space Info Vol 2« └─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 17c0 | | .CONST 0x17c0 ; 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 800f | | .CONST 0x800f ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 00ce | | .CONST 0x00ce ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0028 | ( | .CONST 0x0028 ; Number of locals 000b INIT_0008: 000b 029a 00d3 | | Declare_Subprogram INIT_00d0,For_Outer_Call,Visible,Unelaborated 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 029a 019b | | Declare_Subprogram INIT_0198,For_Outer_Call,Visible,Unelaborated 0017 c215 | | Store 0x1,0x15 0018 4806 |H | Short_Literal 0x6 0019 0093 133b | ;| push_full_address INIT_1338 001b 02a0 | | Declare_Subprogram Null_Subprogram 001c 038d | | Declare_Type Package,Defined,Visible,Not_Elaborated 001d c212 | | Store 0x1,0x12 001e 4805 |H | Short_Literal 0x5 001f 0093 0d4b | K| push_full_address INIT_0d48 0021 02a0 | | Declare_Subprogram Null_Subprogram 0022 038d | | Declare_Type Package,Defined,Visible,Not_Elaborated 0023 c210 | | Store 0x1,0x10 0024 4805 |H | Short_Literal 0x5 0025 0093 088b | | push_full_address INIT_0888 0027 02a0 | | Declare_Subprogram Null_Subprogram 0028 038d | | Declare_Type Package,Defined,Visible,Not_Elaborated 0029 c211 | | Store 0x1,0x11 002a 00bf | | Action Accept_Activation 002b 480a |H | Short_Literal 0xa 002c 480d |H | Short_Literal 0xd 002d e001 | | Load 0x0,0x1 002e 1b10 | | Execute Package,Field_Read,Field_Number 0x10 002f 03f8 | | Declare_Type Discrete,Constrained 0030 029b 023b | ;| Declare_Subprogram INIT_0238,For_Outer_Call,Unelaborated 0032 029b 0273 | s| Declare_Subprogram INIT_0270,For_Outer_Call,Unelaborated 0034 029b 02ab | | Declare_Subprogram INIT_02a8,For_Outer_Call,Unelaborated 0036 029b 02c3 | | Declare_Subprogram INIT_02c0,For_Outer_Call,Unelaborated 0038 029d 02d3 | | Declare_Subprogram INIT_02d0,For_Outer_Call 003a 029d 0303 | | Declare_Subprogram INIT_0300,For_Outer_Call 003c 029d 032b | +| Declare_Subprogram INIT_0328,For_Outer_Call 003e 1d17 | | Execute_Immediate Reference_Lex_1,0x17 003f 00c7 | | Action Elaborate_Subprogram 0040 1d18 | | Execute_Immediate Reference_Lex_1,0x18 0041 00c7 | | Action Elaborate_Subprogram 0042 1d19 | | Execute_Immediate Reference_Lex_1,0x19 0043 00c7 | | Action Elaborate_Subprogram 0044 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 0045 00c7 | | Action Elaborate_Subprogram 0046 029d 0363 | c| Declare_Subprogram INIT_0360,For_Outer_Call 0048 029d 03e3 | | Declare_Subprogram INIT_03e0,For_Outer_Call 004a 1d0d | | Execute_Immediate Reference_Lex_1,0xd 004b 00c7 | | Action Elaborate_Subprogram 004c 1d15 | | Execute_Immediate Reference_Lex_1,0x15 004d 00c7 | | Action Elaborate_Subprogram 004e 1d15 | | Execute_Immediate Reference_Lex_1,0x15 004f 00c6 | | Action Check_Subprogram_Elaborated 0050 e002 | | Load 0x0,0x2 0051 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0052 e002 | | Load 0x0,0x2 0053 1929 | ) | Execute Package,Field_Reference,Field_Number 0x29 0054 e002 | | Load 0x0,0x2 0055 192d | - | Execute Package,Field_Reference,Field_Number 0x2d 0056 e002 | | Load 0x0,0x2 0057 1926 | & | Execute Package,Field_Reference,Field_Number 0x26 0058 e002 | | Load 0x0,0x2 0059 191b | | Execute Package,Field_Reference,Field_Number 0x1b 005a e003 | | Load 0x0,0x3 005b e004 | | Load 0x0,0x4 005c 4800 |H | Short_Literal 0x0 005d 0007 | | Action Break_Optional 005e e005 | | Load 0x0,0x5 005f e006 | | Load 0x0,0x6 0060 e007 | | Load 0x0,0x7 0061 e008 | | Load 0x0,0x8 0062 e009 | | Load 0x0,0x9 0063 e00a | | Load 0x0,0xa 0064 e00b | | Load 0x0,0xb 0065 e00c | | Load 0x0,0xc 0066 e00d | | Load 0x0,0xd 0067 e00e | | Load 0x0,0xe 0068 e00f | | Load 0x0,0xf 0069 e001 | | Load 0x0,0x1 006a e010 | | Load 0x0,0x10 006b e011 | | Load 0x0,0x11 006c e012 | | Load 0x0,0x12 006d e013 | | Load 0x0,0x13 006e e014 | | Load 0x0,0x14 006f 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 0070 e015 | | Load 0x0,0x15 0071 1d17 | | Execute_Immediate Reference_Lex_1,0x17 0072 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 0073 1d18 | | Execute_Immediate Reference_Lex_1,0x18 0074 e016 | | Load 0x0,0x16 0075 e002 | | Load 0x0,0x2 0076 e017 | | Load 0x0,0x17 0077 e018 | | Load 0x0,0x18 0078 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 0079 e220 | | Load 0x1,0x20 007a 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 007b 1d22 | " | Execute_Immediate Reference_Lex_1,0x22 007c 1d23 | # | Execute_Immediate Reference_Lex_1,0x23 007d 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24 007e 1d25 | % | Execute_Immediate Reference_Lex_1,0x25 007f 00b6 | | Action Make_Scope 0080 4822 |H" | Short_Literal 0x22 0081 e212 | | Load 0x1,0x12 0082 020e | | Execute Module,Augment_Imports 0083 e212 | | Load 0x1,0x12 0084 020d | | Execute Module,Elaborate 0085 0007 | | Action Break_Optional 0086 029d 03fb | | Declare_Subprogram INIT_03f8,For_Outer_Call 0088 e006 | | Load 0x0,0x6 0089 e002 | | Load 0x0,0x2 008a e007 | | Load 0x0,0x7 008b e018 | | Load 0x0,0x18 008c e009 | | Load 0x0,0x9 008d e019 | | Load 0x0,0x19 008e e01a | | Load 0x0,0x1a 008f e00c | | Load 0x0,0xc 0090 e01b | | Load 0x0,0x1b 0091 e01c | | Load 0x0,0x1c 0092 e00f | | Load 0x0,0xf 0093 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28 0094 e015 | | Load 0x0,0x15 0095 e013 | | Load 0x0,0x13 0096 e01d | | Load 0x0,0x1d 0097 e017 | | Load 0x0,0x17 0098 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 0099 e001 | | Load 0x0,0x1 009a e016 | | Load 0x0,0x16 009b 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 009c 1d17 | | Execute_Immediate Reference_Lex_1,0x17 009d 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 009e e220 | | Load 0x1,0x20 009f 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 00a0 1d22 | " | Execute_Immediate Reference_Lex_1,0x22 00a1 1d23 | # | Execute_Immediate Reference_Lex_1,0x23 00a2 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24 00a3 1d25 | % | Execute_Immediate Reference_Lex_1,0x25 00a4 00b6 | | Action Make_Scope 00a5 1d18 | | Execute_Immediate Reference_Lex_1,0x18 00a6 481e |H | Short_Literal 0x1e 00a7 e210 | | Load 0x1,0x10 00a8 020e | | Execute Module,Augment_Imports 00a9 e210 | | Load 0x1,0x10 00aa 020d | | Execute Module,Elaborate 00ab 0007 | | Action Break_Optional 00ac e006 | | Load 0x0,0x6 00ad e01e | | Load 0x0,0x1e 00ae e002 | | Load 0x0,0x2 00af e009 | | Load 0x0,0x9 00b0 e01f | | Load 0x0,0x1f 00b1 e020 | | Load 0x0,0x20 00b2 e00c | | Load 0x0,0xc 00b3 e021 | ! | Load 0x0,0x21 00b4 e022 | " | Load 0x0,0x22 00b5 e00f | | Load 0x0,0xf 00b6 e013 | | Load 0x0,0x13 00b7 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 00b8 e001 | | Load 0x0,0x1 00b9 e015 | | Load 0x0,0x15 00ba e023 | # | Load 0x0,0x23 00bb e016 | | Load 0x0,0x16 00bc e017 | | Load 0x0,0x17 00bd e018 | | Load 0x0,0x18 00be 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 00bf 1d17 | | Execute_Immediate Reference_Lex_1,0x17 00c0 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 00c1 e220 | | Load 0x1,0x20 00c2 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 00c3 1d22 | " | Execute_Immediate Reference_Lex_1,0x22 00c4 1d23 | # | Execute_Immediate Reference_Lex_1,0x23 00c5 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24 00c6 1d25 | % | Execute_Immediate Reference_Lex_1,0x25 00c7 00b6 | | Action Make_Scope 00c8 1d18 | | Execute_Immediate Reference_Lex_1,0x18 00c9 481d |H | Short_Literal 0x1d 00ca e211 | | Load 0x1,0x11 00cb 020e | | Execute Module,Augment_Imports 00cc e211 | | Load 0x1,0x11 00cd 020d | | Execute Module,Elaborate 00ce BODY_0008: 00ce 00bc | | Action Signal_Activated 00cf 00bb | | Action Signal_Completion 00d0 ; -------------------------------------------------------------------------------------- 00d0 ; SUBPROGRAM 00d0 ; -------------------------------------------------------------------------------------- 00d0 00ec | | .CONST 0x00ec ; Address of begin 00d1 0004 | | .CONST 0x0004 ; Address of exception handler 00d2 000b | | .CONST 0x000b ; Number of locals 00d3 INIT_00d0: 00d3 e5f8 | | Load 0x2,-0x8 00d4 e001 | | Load 0x0,0x1 00d5 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 00d6 e5f8 | | Load 0x2,-0x8 00d7 e001 | | Load 0x0,0x1 00d8 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 00d9 e006 | | Load 0x0,0x6 00da 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00db 03f1 | | Declare_Variable Discrete,With_Value 00dc e024 | $ | Load 0x0,0x24 00dd 1b14 | | Execute Package,Field_Read,Field_Number 0x14 00de 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00df 00e1 | | Load_Encached Boolean_Cache 00e0 e001 | | Load 0x0,0x1 00e1 1b10 | | Execute Package,Field_Read,Field_Number 0x10 00e2 00e1 | | Load_Encached Boolean_Cache 00e3 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 00e4 e001 | | Load 0x0,0x1 00e5 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00e6 e001 | | Load 0x0,0x1 00e7 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00e8 029f 04a3 | | Declare_Subprogram INIT_04a0,For_Call 00ea 029f 04db | | Declare_Subprogram INIT_04d8,For_Call 00ec BODY_00d0: 00ec 00cf | | Action Mark_Auxiliary 00ed e402 | | Load 0x2,0x2 00ee 01d9 | | Execute Vector,Reverse_Bounds 00ef 0263 | c | Execute Discrete,Above_Bound 00f0 709f |p | Jump_Nonzero 0x190 00f1 00d8 | | Load_Top At_Offset_0 00f2 e402 | | Load 0x2,0x2 00f3 01d7 | | Execute Vector,Field_Read 00f4 a408 | | Store_Unchecked 0x2,0x8 00f5 e408 | | Load 0x2,0x8 00f6 e001 | | Load 0x0,0x1 00f7 1816 | | Execute Package,Field_Execute,Field_Number 0x16 00f8 a406 | | Store_Unchecked 0x2,0x6 00f9 e406 | | Load 0x2,0x6 00fa 0f02 | | Execute_Immediate Equal,0x2 00fb 7003 |p | Jump_Nonzero 0xff 00fc e406 | | Load 0x2,0x6 00fd 0f03 | | Execute_Immediate Equal,0x3 00fe 682f |h/ | Jump_Zero 0x12e 00ff 4801 |H | Short_Literal 0x1 0100 e408 | | Load 0x2,0x8 0101 e001 | | Load 0x0,0x1 0102 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0103 e013 | | Load 0x0,0x13 0104 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 0105 7028 |p( | Jump_Nonzero 0x12e 0106 4801 |H | Short_Literal 0x1 0107 e408 | | Load 0x2,0x8 0108 e001 | | Load 0x0,0x1 0109 1818 | | Execute Package,Field_Execute,Field_Number 0x18 010a e001 | | Load 0x0,0x1 010b 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 010c a409 | | Store_Unchecked 0x2,0x9 010d e5f7 | | Load 0x2,-0x9 010e e409 | | Load 0x2,0x9 010f e5f9 | | Load 0x2,-0x7 0110 e5fa | | Load 0x2,-0x6 0111 0119 | | Execute Any,Check_In_Formal_Type 0112 e5fa | | Load 0x2,-0x6 0113 4ffb |O | Short_Literal -0x5 0114 4802 |H | Short_Literal 0x2 0115 0099 | | Action Reference_Dynamic 0116 4ffc |O | Short_Literal -0x4 0117 4802 |H | Short_Literal 0x2 0118 0099 | | Action Reference_Dynamic 0119 4ffd |O | Short_Literal -0x3 011a 4802 |H | Short_Literal 0x2 011b 0099 | | Action Reference_Dynamic 011c 4ffe |O | Short_Literal -0x2 011d 4802 |H | Short_Literal 0x2 011e 0099 | | Action Reference_Dynamic 011f 4fff |O | Short_Literal -0x1 0120 4802 |H | Short_Literal 0x2 0121 0099 | | Action Reference_Dynamic 0122 820d | | Call 0x1,0xd 0123 e409 | | Load 0x2,0x9 0124 e001 | | Load 0x0,0x1 0125 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 0126 a403 | | Store_Unchecked 0x2,0x3 0127 e403 | | Load 0x2,0x3 0128 683b |h; | Jump_Zero 0x164 0129 e403 | | Load 0x2,0x3 012a e5f8 | | Load 0x2,-0x8 012b e001 | | Load 0x0,0x1 012c 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 012d 450a |E | Exit_Suprogram New_Top_Offset 0xa 012e e406 | | Load 0x2,0x6 012f 0f07 | | Execute_Immediate Equal,0x7 0130 6819 |h | Jump_Zero 0x14a 0131 4800 |H | Short_Literal 0x0 0132 a407 | | Store_Unchecked 0x2,0x7 0133 e403 | | Load 0x2,0x3 0134 00e1 | | Load_Encached Boolean_Cache 0135 e408 | | Load 0x2,0x8 0136 e5f9 | | Load 0x2,-0x7 0137 e5fa | | Load 0x2,-0x6 0138 0119 | | Execute Any,Check_In_Formal_Type 0139 85fb | | Call 0x2,-0x5 013a c405 | | Store 0x2,0x5 013b c403 | | Store 0x2,0x3 013c e405 | | Load 0x2,0x5 013d 6803 |h | Jump_Zero 0x141 013e 4801 |H | Short_Literal 0x1 013f a407 | | Store_Unchecked 0x2,0x7 0140 7823 |x# | Jump 0x164 0141 e403 | | Load 0x2,0x3 0142 6805 |h | Jump_Zero 0x148 0143 e403 | | Load 0x2,0x3 0144 e5f8 | | Load 0x2,-0x8 0145 e001 | | Load 0x0,0x1 0146 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 0147 450a |E | Exit_Suprogram New_Top_Offset 0xa 0148 840a | | Call 0x2,0xa 0149 781a |x | Jump 0x164 014a e407 | | Load 0x2,0x7 014b 7018 |p | Jump_Nonzero 0x164 014c e406 | | Load 0x2,0x6 014d e216 | | Load 0x1,0x16 014e 0260 | ` | Execute Discrete,In_Type 014f 6814 |h | Jump_Zero 0x164 0150 e403 | | Load 0x2,0x3 0151 00e1 | | Load_Encached Boolean_Cache 0152 e408 | | Load 0x2,0x8 0153 e5f9 | | Load 0x2,-0x7 0154 e5fa | | Load 0x2,-0x6 0155 0119 | | Execute Any,Check_In_Formal_Type 0156 85fb | | Call 0x2,-0x5 0157 c405 | | Store 0x2,0x5 0158 c403 | | Store 0x2,0x3 0159 e405 | | Load 0x2,0x5 015a 6801 |h | Jump_Zero 0x15c 015b 7808 |x | Jump 0x164 015c e403 | | Load 0x2,0x3 015d 6805 |h | Jump_Zero 0x163 015e e403 | | Load 0x2,0x3 015f e5f8 | | Load 0x2,-0x8 0160 e001 | | Load 0x0,0x1 0161 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 0162 450a |E | Exit_Suprogram New_Top_Offset 0xa 0163 840a | | Call 0x2,0xa 0164 e5f8 | | Load 0x2,-0x8 0165 e001 | | Load 0x0,0x1 0166 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 0167 7001 |p | Jump_Nonzero 0x169 0168 450a |E | Exit_Suprogram New_Top_Offset 0xa 0169 e406 | | Load 0x2,0x6 016a 0f0a | | Execute_Immediate Equal,0xa 016b 681e |h | Jump_Zero 0x18a 016c 4801 |H | Short_Literal 0x1 016d e408 | | Load 0x2,0x8 016e e001 | | Load 0x0,0x1 016f 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0170 e024 | $ | Load 0x0,0x24 0171 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0172 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0173 a404 | | Store_Unchecked 0x2,0x4 0174 e404 | | Load 0x2,0x4 0175 e024 | $ | Load 0x0,0x24 0176 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0177 180f | | Execute Package,Field_Execute,Field_Number 0xf 0178 7015 |p | Jump_Nonzero 0x18e 0179 e403 | | Load 0x2,0x3 017a e408 | | Load 0x2,0x8 017b e001 | | Load 0x0,0x1 017c 181c | | Execute Package,Field_Execute,Field_Number 0x1c 017d 4801 |H | Short_Literal 0x1 017e e404 | | Load 0x2,0x4 017f e024 | $ | Load 0x0,0x24 0180 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0181 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 0182 c403 | | Store 0x2,0x3 0183 e403 | | Load 0x2,0x3 0184 6809 |h | Jump_Zero 0x18e 0185 e403 | | Load 0x2,0x3 0186 e5f8 | | Load 0x2,-0x8 0187 e001 | | Load 0x0,0x1 0188 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 0189 450a |E | Exit_Suprogram New_Top_Offset 0xa 018a e406 | | Load 0x2,0x6 018b 0f0c | | Execute_Immediate Equal,0xc 018c 6801 |h | Jump_Zero 0x18e 018d 840b | | Call 0x2,0xb 018e 00c8 | | Action Pop_Auxiliary_Range 018f 3f61 |?a | Loop_Increasing 0xf1 0190 450a |E | Exit_Suprogram New_Top_Offset 0xa 0191 0000 0000 | | .BLANK 0000[0x7] 0198 ; -------------------------------------------------------------------------------------- 0198 ; SUBPROGRAM 0198 ; -------------------------------------------------------------------------------------- 0198 020b | | .CONST 0x020b ; Address of begin 0199 0004 | | .CONST 0x0004 ; Address of exception handler 019a 0014 | | .CONST 0x0014 ; Number of locals 019b INIT_0198: 019b e5f9 | | Load 0x2,-0x7 019c e001 | | Load 0x0,0x1 019d 1816 | | Execute Package,Field_Execute,Field_Number 0x16 019e e001 | | Load 0x0,0x1 019f 1b10 | | Execute Package,Field_Read,Field_Number 0x10 01a0 03f1 | | Declare_Variable Discrete,With_Value 01a1 e006 | | Load 0x0,0x6 01a2 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01a3 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 01a4 e018 | | Load 0x0,0x18 01a5 1b0f | | Execute Package,Field_Read,Field_Number 0xf 01a6 02c7 | | Declare_Variable Any 01a7 00d8 | | Load_Top At_Offset_0 01a8 1c00 | | Execute_Immediate Run_Utility,0x0 01a9 e025 | % | Load 0x0,0x25 01aa 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01ab 4801 |H | Short_Literal 0x1 01ac 4900 |I | Short_Literal 0x100 01ad 00e9 | | Load_Encached String_Cache 01ae 035b | [ | Declare_Type Array,Constrained 01af 0337 | 7 | Declare_Variable Array 01b0 e002 | | Load 0x0,0x2 01b1 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01b2 02c7 | | Declare_Variable Any 01b3 00d8 | | Load_Top At_Offset_0 01b4 1c00 | | Execute_Immediate Run_Utility,0x0 01b5 00e3 | | Load_Encached Natural_Cache 01b6 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 01b7 00e3 | | Load_Encached Natural_Cache 01b8 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 01b9 029e 050b | | Declare_Subprogram INIT_0508,For_Call,Unelaborated 01bb 029e 051b | | Declare_Subprogram INIT_0518,For_Call,Unelaborated 01bd e026 | & | Load 0x0,0x26 01be e027 | ' | Load 0x0,0x27 01bf e5fa | | Load 0x2,-0x6 01c0 4ffb |O | Short_Literal -0x5 01c1 4802 |H | Short_Literal 0x2 01c2 0099 | | Action Reference_Dynamic 01c3 4ffc |O | Short_Literal -0x4 01c4 4802 |H | Short_Literal 0x2 01c5 0099 | | Action Reference_Dynamic 01c6 480a |H | Short_Literal 0xa 01c7 4802 |H | Short_Literal 0x2 01c8 0099 | | Action Reference_Dynamic 01c9 480b |H | Short_Literal 0xb 01ca 4802 |H | Short_Literal 0x2 01cb 0099 | | Action Reference_Dynamic 01cc 4ffe |O | Short_Literal -0x2 01cd 4802 |H | Short_Literal 0x2 01ce 0099 | | Action Reference_Dynamic 01cf 0092 1780 | | Action Push_String_Extended,0x1780 ; "--/" 01d1 e028 | ( | Load 0x0,0x28 01d2 0387 | | Declare_Variable Package 01d3 00d8 | | Load_Top At_Offset_0 01d4 020f | | Execute Module,Activate 01d5 00d8 | | Load_Top At_Offset_0 01d6 1b16 | | Execute Package,Field_Read,Field_Number 0x16 01d7 02a0 | | Declare_Subprogram Null_Subprogram 01d8 4801 |H | Short_Literal 0x1 01d9 032d | - | Declare_Type Record,Defined 01da 029e 054b | K| Declare_Subprogram INIT_0548,For_Call,Unelaborated 01dc 029e 0553 | S| Declare_Subprogram INIT_0550,For_Call,Unelaborated 01de 029e 0563 | c| Declare_Subprogram INIT_0560,For_Call,Unelaborated 01e0 e029 | ) | Load 0x0,0x29 01e1 e02a | * | Load 0x0,0x2a 01e2 e40d | | Load 0x2,0xd 01e3 480e |H | Short_Literal 0xe 01e4 4802 |H | Short_Literal 0x2 01e5 0099 | | Action Reference_Dynamic 01e6 480f |H | Short_Literal 0xf 01e7 4802 |H | Short_Literal 0x2 01e8 0099 | | Action Reference_Dynamic 01e9 4810 |H | Short_Literal 0x10 01ea 4802 |H | Short_Literal 0x2 01eb 0099 | | Action Reference_Dynamic 01ec e025 | % | Load 0x0,0x25 01ed 1b17 | | Execute Package,Field_Read,Field_Number 0x17 01ee 0387 | | Declare_Variable Package 01ef 00d8 | | Load_Top At_Offset_0 01f0 020f | | Execute Module,Activate 01f1 480a |H | Short_Literal 0xa 01f2 4802 |H | Short_Literal 0x2 01f3 0099 | | Action Reference_Dynamic 01f4 00c7 | | Action Elaborate_Subprogram 01f5 480b |H | Short_Literal 0xb 01f6 4802 |H | Short_Literal 0x2 01f7 0099 | | Action Reference_Dynamic 01f8 00c7 | | Action Elaborate_Subprogram 01f9 480e |H | Short_Literal 0xe 01fa 4802 |H | Short_Literal 0x2 01fb 0099 | | Action Reference_Dynamic 01fc 00c7 | | Action Elaborate_Subprogram 01fd 480f |H | Short_Literal 0xf 01fe 4802 |H | Short_Literal 0x2 01ff 0099 | | Action Reference_Dynamic 0200 00c7 | | Action Elaborate_Subprogram 0201 4810 |H | Short_Literal 0x10 0202 4802 |H | Short_Literal 0x2 0203 0099 | | Action Reference_Dynamic 0204 00c7 | | Action Elaborate_Subprogram 0205 029f 0573 | s| Declare_Subprogram INIT_0570,For_Call 0207 029f 05b3 | | Declare_Subprogram INIT_05b0,For_Call 0209 029f 06cb | | Declare_Subprogram INIT_06c8,For_Call 020b BODY_0198: 020b e402 | | Load 0x2,0x2 020c 0f0a | | Execute_Immediate Equal,0xa 020d 6815 |h | Jump_Zero 0x223 020e e407 | | Load 0x2,0x7 020f e017 | | Load 0x0,0x17 0210 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0211 e018 | | Load 0x0,0x18 0212 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0213 00ea | | Load_Encached Null_String_Cache 0214 4801 |H | Short_Literal 0x1 0215 e5f9 | | Load 0x2,-0x7 0216 e001 | | Load 0x0,0x1 0217 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0218 821c | | Call 0x1,0x1c 0219 4800 |H | Short_Literal 0x0 021a e002 | | Load 0x0,0x2 021b 1814 | | Execute Package,Field_Execute,Field_Number 0x14 021c c407 | | Store 0x2,0x7 021d 8412 | | Call 0x2,0x12 021e e407 | | Load 0x2,0x7 021f e002 | | Load 0x0,0x2 0220 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0221 c407 | | Store 0x2,0x7 0222 4508 |E | Exit_Suprogram New_Top_Offset 0x8 0223 e402 | | Load 0x2,0x2 0224 0f0b | | Execute_Immediate Equal,0xb 0225 6803 |h | Jump_Zero 0x229 0226 4801 |H | Short_Literal 0x1 0227 8413 | | Call 0x2,0x13 0228 4508 |E | Exit_Suprogram New_Top_Offset 0x8 0229 e402 | | Load 0x2,0x2 022a 0f0c | | Execute_Immediate Equal,0xc 022b 6802 |h | Jump_Zero 0x22e 022c 8414 | | Call 0x2,0x14 022d 4508 |E | Exit_Suprogram New_Top_Offset 0x8 022e e402 | | Load 0x2,0x2 022f 0f0d | | Execute_Immediate Equal,0xd 0230 6802 |h | Jump_Zero 0x233 0231 4802 |H | Short_Literal 0x2 0232 8413 | | Call 0x2,0x13 0233 4508 |E | Exit_Suprogram New_Top_Offset 0x8 0234 0000 0000 | | .BLANK 0000[0x4] 0238 ; -------------------------------------------------------------------------------------- 0238 ; SUBPROGRAM 0238 ; -------------------------------------------------------------------------------------- 0238 023e | > | .CONST 0x023e ; Address of begin 0239 0004 | | .CONST 0x0004 ; Address of exception handler 023a 0002 | | .CONST 0x0002 ; Number of locals 023b INIT_0238: 023b 00da | | Load_Top At_Offset_2 023c e001 | | Load 0x0,0x1 023d 1819 | | Execute Package,Field_Execute,Field_Number 0x19 023e BODY_0238: 023e 00db | | Load_Top At_Offset_3 023f e001 | | Load 0x0,0x1 0240 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0241 0f0a | | Execute_Immediate Equal,0xa 0242 680f |h | Jump_Zero 0x252 0243 00cf | | Action Mark_Auxiliary 0244 4802 |H | Short_Literal 0x2 0245 4801 |H | Short_Literal 0x1 0246 0007 | | Action Break_Optional 0247 00d8 | | Load_Top At_Offset_0 0248 e402 | | Load 0x2,0x2 0249 01d7 | | Execute Vector,Field_Read 024a 8219 | | Call 0x1,0x19 024b 6802 |h | Jump_Zero 0x24e 024c 00d8 | | Load_Top At_Offset_0 024d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 024e 00c8 | | Action Pop_Auxiliary_Range 024f 3ff7 |? | Loop_Increasing 0x247 0250 00ce | | Action Pop_Auxiliary 0251 7817 |x | Jump 0x269 0252 00cf | | Action Mark_Auxiliary 0253 00d9 | | Load_Top At_Offset_1 0254 01dc | | Execute Vector,Last 0255 4802 |H | Short_Literal 0x2 0256 0263 | c | Execute Discrete,Above_Bound 0257 7009 |p | Jump_Nonzero 0x261 0258 00d8 | | Load_Top At_Offset_0 0259 e402 | | Load 0x2,0x2 025a 01d7 | | Execute Vector,Field_Read 025b 8219 | | Call 0x1,0x19 025c 6802 |h | Jump_Zero 0x25f 025d 00d8 | | Load_Top At_Offset_0 025e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 025f 00c8 | | Action Pop_Auxiliary_Range 0260 3ff7 |? | Loop_Increasing 0x258 0261 00ce | | Action Pop_Auxiliary 0262 4801 |H | Short_Literal 0x1 0263 00d9 | | Load_Top At_Offset_1 0264 01d7 | | Execute Vector,Field_Read 0265 8219 | | Call 0x1,0x19 0266 6802 |h | Jump_Zero 0x269 0267 4801 |H | Short_Literal 0x1 0268 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0269 4800 |H | Short_Literal 0x0 026a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 026b 0000 0000 | | .BLANK 0000[0x5] 0270 ; -------------------------------------------------------------------------------------- 0270 ; SUBPROGRAM 0270 ; -------------------------------------------------------------------------------------- 0270 0276 | v | .CONST 0x0276 ; Address of begin 0271 0004 | | .CONST 0x0004 ; Address of exception handler 0272 0002 | | .CONST 0x0002 ; Number of locals 0273 INIT_0270: 0273 00da | | Load_Top At_Offset_2 0274 e001 | | Load 0x0,0x1 0275 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0276 BODY_0270: 0276 00db | | Load_Top At_Offset_3 0277 e001 | | Load 0x0,0x1 0278 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0279 0f0b | | Execute_Immediate Equal,0xb 027a 680f |h | Jump_Zero 0x28a 027b 00cf | | Action Mark_Auxiliary 027c 4801 |H | Short_Literal 0x1 027d 4802 |H | Short_Literal 0x2 027e 0007 | | Action Break_Optional 027f 00d8 | | Load_Top At_Offset_0 0280 e402 | | Load 0x2,0x2 0281 01d7 | | Execute Vector,Field_Read 0282 8219 | | Call 0x1,0x19 0283 6802 |h | Jump_Zero 0x286 0284 00d8 | | Load_Top At_Offset_0 0285 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0286 00c8 | | Action Pop_Auxiliary_Range 0287 37f7 |7 | Loop_Decreasing 0x27f 0288 00ce | | Action Pop_Auxiliary 0289 7817 |x | Jump 0x2a1 028a 4801 |H | Short_Literal 0x1 028b 00d9 | | Load_Top At_Offset_1 028c 01d7 | | Execute Vector,Field_Read 028d 8219 | | Call 0x1,0x19 028e 6802 |h | Jump_Zero 0x291 028f 4801 |H | Short_Literal 0x1 0290 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0291 00cf | | Action Mark_Auxiliary 0292 00d9 | | Load_Top At_Offset_1 0293 01dc | | Execute Vector,Last 0294 4802 |H | Short_Literal 0x2 0295 0263 | c | Execute Discrete,Above_Bound 0296 7009 |p | Jump_Nonzero 0x2a0 0297 00d8 | | Load_Top At_Offset_0 0298 e402 | | Load 0x2,0x2 0299 01d7 | | Execute Vector,Field_Read 029a 8219 | | Call 0x1,0x19 029b 6802 |h | Jump_Zero 0x29e 029c 00d8 | | Load_Top At_Offset_0 029d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 029e 00c8 | | Action Pop_Auxiliary_Range 029f 3ff7 |? | Loop_Increasing 0x297 02a0 00ce | | Action Pop_Auxiliary 02a1 4800 |H | Short_Literal 0x0 02a2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02a3 0000 0000 | | .BLANK 0000[0x5] 02a8 ; -------------------------------------------------------------------------------------- 02a8 ; SUBPROGRAM 02a8 ; -------------------------------------------------------------------------------------- 02a8 02ab | | .CONST 0x02ab ; Address of begin 02a9 0004 | | .CONST 0x0004 ; Address of exception handler 02aa 0001 | | .CONST 0x0001 ; Number of locals 02ab BODY_02a8: 02ab INIT_02a8: 02ab 00da | | Load_Top At_Offset_2 02ac e013 | | Load 0x0,0x13 02ad 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 02ae 0f0f | | Execute_Immediate Equal,0xf 02af 6808 |h | Jump_Zero 0x2b8 02b0 00da | | Load_Top At_Offset_2 02b1 e024 | $ | Load 0x0,0x24 02b2 1b14 | | Execute Package,Field_Read,Field_Number 0x14 02b3 1811 | | Execute Package,Field_Execute,Field_Number 0x11 02b4 e024 | $ | Load 0x0,0x24 02b5 1b14 | | Execute Package,Field_Read,Field_Number 0x14 02b6 1850 | P | Execute Package,Field_Execute,Field_Number 0x50 02b7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02b8 4800 |H | Short_Literal 0x0 02b9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02ba 0000 0000 | | .BLANK 0000[0x6] 02c0 ; -------------------------------------------------------------------------------------- 02c0 ; SUBPROGRAM 02c0 ; -------------------------------------------------------------------------------------- 02c0 02c3 | | .CONST 0x02c3 ; Address of begin 02c1 0004 | | .CONST 0x0004 ; Address of exception handler 02c2 0001 | | .CONST 0x0001 ; Number of locals 02c3 BODY_02c0: 02c3 INIT_02c0: 02c3 00da | | Load_Top At_Offset_2 02c4 e024 | $ | Load 0x0,0x24 02c5 1b16 | | Execute Package,Field_Read,Field_Number 0x16 02c6 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 02c7 e024 | $ | Load 0x0,0x24 02c8 1b16 | | Execute Package,Field_Read,Field_Number 0x16 02c9 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 02ca 00db | | Load_Top At_Offset_3 02cb e024 | $ | Load 0x0,0x24 02cc 1b14 | | Execute Package,Field_Read,Field_Number 0x14 02cd 181c | | Execute Package,Field_Execute,Field_Number 0x1c 02ce 01cc | | Execute Vector,Catenate 02cf 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02d0 ; -------------------------------------------------------------------------------------- 02d0 ; SUBPROGRAM 02d0 ; -------------------------------------------------------------------------------------- 02d0 02d7 | | .CONST 0x02d7 ; Address of begin 02d1 0004 | | .CONST 0x0004 ; Address of exception handler 02d2 0003 | | .CONST 0x0003 ; Number of locals 02d3 INIT_02d0: 02d3 e024 | $ | Load 0x0,0x24 02d4 1b14 | | Execute Package,Field_Read,Field_Number 0x14 02d5 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02d6 00e3 | | Load_Encached Natural_Cache 02d7 BODY_02d0: 02d7 e5ff | | Load 0x2,-0x1 02d8 8217 | | Call 0x1,0x17 02d9 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 02da 00d8 | | Load_Top At_Offset_0 02db 681d |h | Jump_Zero 0x2f9 02dc 00d8 | | Load_Top At_Offset_0 02dd e5ff | | Load 0x2,-0x1 02de e001 | | Load 0x0,0x1 02df 1818 | | Execute Package,Field_Execute,Field_Number 0x18 02e0 e024 | $ | Load 0x0,0x24 02e1 1b14 | | Execute Package,Field_Read,Field_Number 0x14 02e2 1811 | | Execute Package,Field_Execute,Field_Number 0x11 02e3 0032 | 2 | Store_Top Heap_Access,At_Offset_2 02e4 00d9 | | Load_Top At_Offset_1 02e5 e024 | $ | Load 0x0,0x24 02e6 1b16 | | Execute Package,Field_Read,Field_Number 0x16 02e7 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 02e8 e024 | $ | Load 0x0,0x24 02e9 1b16 | | Execute Package,Field_Read,Field_Number 0x16 02ea 187f | | Execute Package,Field_Execute,Field_Number 0x7f 02eb 6805 |h | Jump_Zero 0x2f1 02ec 00d9 | | Load_Top At_Offset_1 02ed e024 | $ | Load 0x0,0x24 02ee 1b14 | | Execute Package,Field_Read,Field_Number 0x14 02ef 1852 | R | Execute Package,Field_Execute,Field_Number 0x52 02f0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02f1 00d9 | | Load_Top At_Offset_1 02f2 e024 | $ | Load 0x0,0x24 02f3 1b16 | | Execute Package,Field_Read,Field_Number 0x16 02f4 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 02f5 e024 | $ | Load 0x0,0x24 02f6 1b16 | | Execute Package,Field_Read,Field_Number 0x16 02f7 1871 | q | Execute Package,Field_Execute,Field_Number 0x71 02f8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02f9 00ea | | Load_Encached Null_String_Cache 02fa 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02fb 0000 0000 | | .BLANK 0000[0x5] 0300 ; -------------------------------------------------------------------------------------- 0300 ; SUBPROGRAM 0300 ; -------------------------------------------------------------------------------------- 0300 0306 | | .CONST 0x0306 ; Address of begin 0301 0004 | | .CONST 0x0004 ; Address of exception handler 0302 0002 | | .CONST 0x0002 ; Number of locals 0303 INIT_0300: 0303 e024 | $ | Load 0x0,0x24 0304 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0305 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0306 BODY_0300: 0306 00db | | Load_Top At_Offset_3 0307 e013 | | Load 0x0,0x13 0308 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 0309 0b0f | | Execute_Immediate Case_Compare,0xf 030a 7004 |p | Jump_Nonzero 0x30f 030b 0f01 | | Execute_Immediate Equal,0x1 030c 7015 |p | Jump_Nonzero 0x322 030d e016 | | Load 0x0,0x16 030e 0257 | W | Execute Discrete,Raise 030f 00d1 | | Pop_Control Pop_Count_1 0310 00db | | Load_Top At_Offset_3 0311 e024 | $ | Load 0x0,0x24 0312 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0313 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0314 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0315 00d8 | | Load_Top At_Offset_0 0316 e024 | $ | Load 0x0,0x24 0317 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0318 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 0319 6805 |h | Jump_Zero 0x31f 031a 00d8 | | Load_Top At_Offset_0 031b e024 | $ | Load 0x0,0x24 031c 1b14 | | Execute Package,Field_Read,Field_Number 0x14 031d 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39 031e 0031 | 1 | Store_Top Heap_Access,At_Offset_1 031f 00d8 | | Load_Top At_Offset_0 0320 821a | | Call 0x1,0x1a 0321 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0322 00db | | Load_Top At_Offset_3 0323 e013 | | Load 0x0,0x13 0324 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0325 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0326 0000 0000 | | .XXX[0x2] 0328 ; -------------------------------------------------------------------------------------- 0328 ; SUBPROGRAM 0328 ; -------------------------------------------------------------------------------------- 0328 0335 | 5 | .CONST 0x0335 ; Address of begin 0329 0004 | | .CONST 0x0004 ; Address of exception handler 032a 0004 | | .CONST 0x0004 ; Number of locals 032b INIT_0328: 032b e024 | $ | Load 0x0,0x24 032c 1b14 | | Execute Package,Field_Read,Field_Number 0x14 032d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 032e 00db | | Load_Top At_Offset_3 032f e001 | | Load 0x0,0x1 0330 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0331 e007 | | Load 0x0,0x7 0332 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0333 03f1 | | Declare_Variable Discrete,With_Value 0334 00e3 | | Load_Encached Natural_Cache 0335 BODY_0328: 0335 e5ff | | Load 0x2,-0x1 0336 8218 | | Call 0x1,0x18 0337 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0338 00d8 | | Load_Top At_Offset_0 0339 6820 |h | Jump_Zero 0x35a 033a 00d8 | | Load_Top At_Offset_0 033b e5ff | | Load 0x2,-0x1 033c e001 | | Load 0x0,0x1 033d 1818 | | Execute Package,Field_Execute,Field_Number 0x18 033e e024 | $ | Load 0x0,0x24 033f 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0340 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0341 0033 | 3 | Store_Top Heap_Access,At_Offset_3 0342 00d9 | | Load_Top At_Offset_1 0343 00db | | Load_Top At_Offset_3 0344 e024 | $ | Load 0x0,0x24 0345 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0346 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 0347 e024 | $ | Load 0x0,0x24 0348 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0349 1881 | | Execute Package,Field_Execute,Field_Number 0x81 034a 6806 |h | Jump_Zero 0x351 034b 00d9 | | Load_Top At_Offset_1 034c 00db | | Load_Top At_Offset_3 034d e024 | $ | Load 0x0,0x24 034e 1b14 | | Execute Package,Field_Read,Field_Number 0x14 034f 1854 | T | Execute Package,Field_Execute,Field_Number 0x54 0350 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0351 00d9 | | Load_Top At_Offset_1 0352 00db | | Load_Top At_Offset_3 0353 e024 | $ | Load 0x0,0x24 0354 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0355 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 0356 e024 | $ | Load 0x0,0x24 0357 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0358 1873 | s | Execute Package,Field_Execute,Field_Number 0x73 0359 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 035a 00ea | | Load_Encached Null_String_Cache 035b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 035c 0000 0000 | | .BLANK 0000[0x4] 0360 ; -------------------------------------------------------------------------------------- 0360 ; SUBPROGRAM 0360 ; -------------------------------------------------------------------------------------- 0360 036b | k | .CONST 0x036b ; Address of begin 0361 0004 | | .CONST 0x0004 ; Address of exception handler 0362 0003 | | .CONST 0x0003 ; Number of locals 0363 INIT_0360: 0363 e018 | | Load 0x0,0x18 0364 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0365 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0366 e018 | | Load 0x0,0x18 0367 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0368 02c7 | | Declare_Variable Any 0369 00d8 | | Load_Top At_Offset_0 036a 1c00 | | Execute_Immediate Run_Utility,0x0 036b BODY_0360: 036b e018 | | Load 0x0,0x18 036c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 036d 1b0f | | Execute Package,Field_Read,Field_Number 0xf 036e 00d9 | | Load_Top At_Offset_1 036f 0120 | | Execute Any,Is_Value 0370 6803 |h | Jump_Zero 0x374 0371 e018 | | Load 0x0,0x18 0372 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0373 7801 |x | Jump 0x375 0374 00d9 | | Load_Top At_Offset_1 0375 6062 |`b | Indirect_Literal Discrete,0x3d8,{0x00000000, 0x00004000} 0376 e017 | | Load 0x0,0x17 0377 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0378 e02b | + | Load 0x0,0x2b 0379 1811 | | Execute Package,Field_Execute,Field_Number 0x11 037a e018 | | Load 0x0,0x18 037b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 037c 1816 | | Execute Package,Field_Execute,Field_Number 0x16 037d e5ff | | Load 0x2,-0x1 037e e018 | | Load 0x0,0x18 037f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0380 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 0381 c403 | | Store 0x2,0x3 0382 005a | Z | Store_Top Discrete,At_Offset_2 0383 00d9 | | Load_Top At_Offset_1 0384 460e |F | Jump_Case 0xf 0385 7827 |x' | Jump 0x3ad ; case 0x0 0386 780d |x | Jump 0x394 ; case 0x1 0387 780c |x | Jump 0x394 ; case 0x2 0388 783a |x: | Jump 0x3c3 ; case 0x3 0389 780a |x | Jump 0x394 ; case 0x4 038a 7809 |x | Jump 0x394 ; case 0x5 038b 7808 |x | Jump 0x394 ; case 0x6 038c 7807 |x | Jump 0x394 ; case 0x7 038d 7806 |x | Jump 0x394 ; case 0x8 038e 7805 |x | Jump 0x394 ; case 0x9 038f 7804 |x | Jump 0x394 ; case 0xa 0390 7803 |x | Jump 0x394 ; case 0xb 0391 7802 |x | Jump 0x394 ; case 0xc 0392 7801 |x | Jump 0x394 ; case 0xd 0393 7800 |x | Jump 0x394 ; case 0xe 0394 e006 | | Load 0x0,0x6 0395 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0396 4801 |H | Short_Literal 0x1 0397 4802 |H | Short_Literal 0x2 0398 e013 | | Load 0x0,0x13 0399 1b0f | | Execute Package,Field_Read,Field_Number 0xf 039a 0334 | 4 | Declare_Variable Array,With_Constraint 039b e5ff | | Load 0x2,-0x1 039c e013 | | Load 0x0,0x13 039d 1810 | | Execute Package,Field_Execute,Field_Number 0x10 039e 4801 |H | Short_Literal 0x1 039f 00da | | Load_Top At_Offset_2 03a0 01d6 | | Execute Vector,Field_Write 03a1 e5ff | | Load 0x2,-0x1 03a2 e402 | | Load 0x2,0x2 03a3 e013 | | Load 0x0,0x13 03a4 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 03a5 4802 |H | Short_Literal 0x2 03a6 00da | | Load_Top At_Offset_2 03a7 01d6 | | Execute Vector,Field_Write 03a8 602b |`+ | Indirect_Literal Discrete,0x3d4,{0x00000000, 0x0000401a} 03a9 e006 | | Load 0x0,0x6 03aa 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 03ab c5fd | | Store 0x2,-0x3 03ac 4502 |E | Exit_Suprogram New_Top_Offset 0x2 03ad e5fe | | Load 0x2,-0x2 03ae e002 | | Load 0x0,0x2 03af 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 03b0 6806 |h | Jump_Zero 0x3b7 03b1 e5fe | | Load 0x2,-0x2 03b2 4801 |H | Short_Literal 0x1 03b3 e002 | | Load 0x0,0x2 03b4 181b | | Execute Package,Field_Execute,Field_Number 0x1b 03b5 c5fe | | Store 0x2,-0x2 03b6 4502 |E | Exit_Suprogram New_Top_Offset 0x2 03b7 e5fe | | Load 0x2,-0x2 03b8 e017 | | Load 0x0,0x17 03b9 1b0e | | Execute Package,Field_Read,Field_Number 0xe 03ba e018 | | Load 0x0,0x18 03bb 181e | | Execute Package,Field_Execute,Field_Number 0x1e 03bc 00ea | | Load_Encached Null_String_Cache 03bd e5ff | | Load 0x2,-0x1 03be 4801 |H | Short_Literal 0x1 03bf e002 | | Load 0x0,0x2 03c0 1814 | | Execute Package,Field_Execute,Field_Number 0x14 03c1 c5fe | | Store 0x2,-0x2 03c2 4502 |E | Exit_Suprogram New_Top_Offset 0x2 03c3 e5fe | | Load 0x2,-0x2 03c4 e017 | | Load 0x0,0x17 03c5 1b0e | | Execute Package,Field_Read,Field_Number 0xe 03c6 e018 | | Load 0x0,0x18 03c7 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 03c8 e018 | | Load 0x0,0x18 03c9 181e | | Execute Package,Field_Execute,Field_Number 0x1e 03ca 00ea | | Load_Encached Null_String_Cache 03cb e5ff | | Load 0x2,-0x1 03cc 4801 |H | Short_Literal 0x1 03cd e002 | | Load 0x0,0x2 03ce 1818 | | Execute Package,Field_Execute,Field_Number 0x18 03cf c5fe | | Store 0x2,-0x2 03d0 4502 |E | Exit_Suprogram New_Top_Offset 0x2 03d1 0000 0000 | | .XXX[0x3] 03d3 0000 | | 03d4 0000 0000 | | .LITERAL {0x00000000, 0x0000401a} 03d8 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 03dc 0000 0000 | | .BLANK 0000[0x4] 03e0 ; -------------------------------------------------------------------------------------- 03e0 ; SUBPROGRAM 03e0 ; -------------------------------------------------------------------------------------- 03e0 03eb | | .CONST 0x03eb ; Address of begin 03e1 0004 | | .CONST 0x0004 ; Address of exception handler 03e2 0003 | | .CONST 0x0003 ; Number of locals 03e3 INIT_03e0: 03e3 0092 1781 | | Action Push_String_Extended,0x1781 ; "!Machine.Temporary.Downloader_Temp_D" 03e5 4800 |H | Short_Literal 0x0 03e6 4803 |H | Short_Literal 0x3 03e7 4804 |H | Short_Literal 0x4 03e8 e5ff | | Load 0x2,-0x1 03e9 e009 | | Load 0x0,0x9 03ea 181b | | Execute Package,Field_Execute,Field_Number 0x1b 03eb BODY_03e0: 03eb 00d9 | | Load_Top At_Offset_1 03ec 00d9 | | Load_Top At_Offset_1 03ed 01cc | | Execute Vector,Catenate 03ee e5fe | | Load 0x2,-0x2 03ef 01cc | | Execute Vector,Catenate 03f0 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 03f1 0000 0000 | | .BLANK 0000[0x7] 03f8 ; -------------------------------------------------------------------------------------- 03f8 ; SUBPROGRAM 03f8 ; -------------------------------------------------------------------------------------- 03f8 040d | | .CONST 0x040d ; Address of begin 03f9 0488 | | .CONST 0x0488 ; Address of exception handler 03fa 0006 | | .CONST 0x0006 ; Number of locals 03fb INIT_03f8: 03fb e018 | | Load 0x0,0x18 03fc 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 03fd 1b0f | | Execute Package,Field_Read,Field_Number 0xf 03fe e018 | | Load 0x0,0x18 03ff 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0400 02c7 | | Declare_Variable Any 0401 00d8 | | Load_Top At_Offset_0 0402 1c00 | | Execute_Immediate Run_Utility,0x0 0403 e5ff | | Load 0x2,-0x1 0404 e018 | | Load 0x0,0x18 0405 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0406 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 0407 e5ff | | Load 0x2,-0x1 0408 e018 | | Load 0x0,0x18 0409 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 040a 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33 040b 029f 06f3 | | Declare_Subprogram INIT_06f0,For_Call 040d BODY_03f8: 040d 00da | | Load_Top At_Offset_2 040e 01db | | Execute Vector,Length 040f 702b |p+ | Jump_Nonzero 0x43b 0410 e018 | | Load 0x0,0x18 0411 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0412 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0413 e403 | | Load 0x2,0x3 0414 0120 | | Execute Any,Is_Value 0415 6803 |h | Jump_Zero 0x419 0416 e018 | | Load 0x0,0x18 0417 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0418 7801 |x | Jump 0x41a 0419 e403 | | Load 0x2,0x3 041a 6081 |` | Indirect_Literal Discrete,0x49c,{0x00000000, 0x00004000} 041b e017 | | Load 0x0,0x17 041c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 041d e02b | + | Load 0x0,0x2b 041e 1811 | | Execute Package,Field_Execute,Field_Number 0x11 041f e018 | | Load 0x0,0x18 0420 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0421 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0422 0092 1782 | | Action Push_String_Extended,0x1782 ; "$" 0424 e018 | | Load 0x0,0x18 0425 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0426 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 0427 c403 | | Store 0x2,0x3 0428 c402 | | Store 0x2,0x2 0429 4801 |H | Short_Literal 0x1 042a 4801 |H | Short_Literal 0x1 042b e013 | | Load 0x0,0x13 042c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 042d 0334 | 4 | Declare_Variable Array,With_Constraint 042e e5ff | | Load 0x2,-0x1 042f e013 | | Load 0x0,0x13 0430 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0431 4801 |H | Short_Literal 0x1 0432 00da | | Load_Top At_Offset_2 0433 01d6 | | Execute Vector,Field_Write 0434 0092 1782 | | Action Push_String_Extended,0x1782 ; "$" 0436 6061 |`a | Indirect_Literal Discrete,0x498,{0x00000000, 0x00004009} 0437 e402 | | Load 0x2,0x2 0438 e006 | | Load 0x0,0x6 0439 183c | < | Execute Package,Field_Execute,Field_Number 0x3c 043a 7828 |x( | Jump 0x463 043b e018 | | Load 0x0,0x18 043c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 043d 1b0f | | Execute Package,Field_Read,Field_Number 0xf 043e e403 | | Load 0x2,0x3 043f 0120 | | Execute Any,Is_Value 0440 6803 |h | Jump_Zero 0x444 0441 e018 | | Load 0x0,0x18 0442 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0443 7801 |x | Jump 0x445 0444 e403 | | Load 0x2,0x3 0445 6056 |`V | Indirect_Literal Discrete,0x49c,{0x00000000, 0x00004000} 0446 e017 | | Load 0x0,0x17 0447 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0448 e02b | + | Load 0x0,0x2b 0449 1811 | | Execute Package,Field_Execute,Field_Number 0x11 044a e018 | | Load 0x0,0x18 044b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 044c 1816 | | Execute Package,Field_Execute,Field_Number 0x16 044d e404 | | Load 0x2,0x4 044e e018 | | Load 0x0,0x18 044f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0450 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 0451 c403 | | Store 0x2,0x3 0452 c402 | | Store 0x2,0x2 0453 4801 |H | Short_Literal 0x1 0454 4801 |H | Short_Literal 0x1 0455 e013 | | Load 0x0,0x13 0456 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0457 0334 | 4 | Declare_Variable Array,With_Constraint 0458 e5ff | | Load 0x2,-0x1 0459 e013 | | Load 0x0,0x13 045a 1810 | | Execute Package,Field_Execute,Field_Number 0x10 045b 4801 |H | Short_Literal 0x1 045c 00da | | Load_Top At_Offset_2 045d 01d6 | | Execute Vector,Field_Write 045e 00db | | Load_Top At_Offset_3 045f 6038 |`8 | Indirect_Literal Discrete,0x498,{0x00000000, 0x00004009} 0460 e402 | | Load 0x2,0x2 0461 e006 | | Load 0x0,0x6 0462 183c | < | Execute Package,Field_Execute,Field_Number 0x3c 0463 e5fe | | Load 0x2,-0x2 0464 e018 | | Load 0x0,0x18 0465 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0466 027f | | Execute Discrete,Equal 0467 701e |p | Jump_Nonzero 0x486 0468 00db | | Load_Top At_Offset_3 0469 e018 | | Load 0x0,0x18 046a 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 046b e5fe | | Load 0x2,-0x2 046c 027f | | Execute Discrete,Equal 046d 7018 |p | Jump_Nonzero 0x486 046e e015 | | Load 0x0,0x15 046f 180e | | Execute Package,Field_Execute,Field_Number 0xe 0470 4801 |H | Short_Literal 0x1 0471 4802 |H | Short_Literal 0x2 0472 e013 | | Load 0x0,0x13 0473 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0474 0334 | 4 | Declare_Variable Array,With_Constraint 0475 e5ff | | Load 0x2,-0x1 0476 e013 | | Load 0x0,0x13 0477 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0478 4801 |H | Short_Literal 0x1 0479 00da | | Load_Top At_Offset_2 047a 01d6 | | Execute Vector,Field_Write 047b e5fe | | Load 0x2,-0x2 047c e013 | | Load 0x0,0x13 047d 1820 | | Execute Package,Field_Execute,Field_Number 0x20 047e 4802 |H | Short_Literal 0x2 047f 00da | | Load_Top At_Offset_2 0480 01d6 | | Execute Vector,Field_Write 0481 6012 |` | Indirect_Literal Discrete,0x494,{0x00000000, 0x00004004} 0482 e006 | | Load 0x0,0x6 0483 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0484 e01d | | Load 0x0,0x1d 0485 0257 | W | Execute Discrete,Raise 0486 8406 | | Call 0x2,0x6 0487 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0488 TRAP_03f8: 0488 e006 | | Load 0x0,0x6 0489 1b17 | | Execute Package,Field_Read,Field_Number 0x17 048a 010f | | Execute Exception,Equal 048b 6804 |h | Jump_Zero 0x490 048c e006 | | Load 0x0,0x6 048d 181b | | Execute Package,Field_Execute,Field_Number 0x1b 048e a5fc | | Store_Unchecked 0x2,-0x4 048f 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0490 0100 | | Execute Exception,Raise 0491 0000 0000 | | .XXX[0x3] 0493 0000 | | 0494 0000 0000 | | .LITERAL {0x00000000, 0x00004004} 0498 0000 0000 | | .LITERAL {0x00000000, 0x00004009} 049c 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 04a0 ; -------------------------------------------------------------------------------------- 04a0 ; SUBPROGRAM 04a0 ; -------------------------------------------------------------------------------------- 04a0 04a3 | | .CONST 0x04a3 ; Address of begin 04a1 0004 | | .CONST 0x0004 ; Address of exception handler 04a2 0001 | | .CONST 0x0001 ; Number of locals 04a3 BODY_04a0: 04a3 INIT_04a0: 04a3 e408 | | Load 0x2,0x8 04a4 e001 | | Load 0x0,0x1 04a5 1816 | | Execute Package,Field_Execute,Field_Number 0x16 04a6 a406 | | Store_Unchecked 0x2,0x6 04a7 e406 | | Load 0x2,0x6 04a8 e216 | | Load 0x1,0x16 04a9 0260 | ` | Execute Discrete,In_Type 04aa 7003 |p | Jump_Nonzero 0x4ae 04ab e406 | | Load 0x2,0x6 04ac 0f07 | | Execute_Immediate Equal,0x7 04ad 6822 |h" | Jump_Zero 0x4d0 04ae e406 | | Load 0x2,0x6 04af 0f07 | | Execute_Immediate Equal,0x7 04b0 6806 |h | Jump_Zero 0x4b7 04b1 e408 | | Load 0x2,0x8 04b2 e5f9 | | Load 0x2,-0x7 04b3 e5fa | | Load 0x2,-0x6 04b4 0119 | | Execute Any,Check_In_Formal_Type 04b5 85fc | | Call 0x2,-0x4 04b6 7806 |x | Jump 0x4bd 04b7 e5f7 | | Load 0x2,-0x9 04b8 e408 | | Load 0x2,0x8 04b9 e5f9 | | Load 0x2,-0x7 04ba e5fa | | Load 0x2,-0x6 04bb 0119 | | Execute Any,Check_In_Formal_Type 04bc 85fd | | Call 0x2,-0x3 04bd e408 | | Load 0x2,0x8 04be e001 | | Load 0x0,0x1 04bf 181e | | Execute Package,Field_Execute,Field_Number 0x1e 04c0 a403 | | Store_Unchecked 0x2,0x3 04c1 e403 | | Load 0x2,0x3 04c2 7007 |p | Jump_Nonzero 0x4ca 04c3 e403 | | Load 0x2,0x3 04c4 e408 | | Load 0x2,0x8 04c5 e5f9 | | Load 0x2,-0x7 04c6 e5fa | | Load 0x2,-0x6 04c7 0119 | | Execute Any,Check_In_Formal_Type 04c8 85fe | | Call 0x2,-0x2 04c9 c403 | | Store 0x2,0x3 04ca e403 | | Load 0x2,0x3 04cb 6804 |h | Jump_Zero 0x4d0 04cc e403 | | Load 0x2,0x3 04cd e5f8 | | Load 0x2,-0x8 04ce e001 | | Load 0x0,0x1 04cf 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 04d0 4501 |E | Exit_Suprogram New_Top_Offset 0x1 04d1 0000 0000 | | .BLANK 0000[0x7] 04d8 ; -------------------------------------------------------------------------------------- 04d8 ; SUBPROGRAM 04d8 ; -------------------------------------------------------------------------------------- 04d8 04de | | .CONST 0x04de ; Address of begin 04d9 0004 | | .CONST 0x0004 ; Address of exception handler 04da 0002 | | .CONST 0x0002 ; Number of locals 04db INIT_04d8: 04db e408 | | Load 0x2,0x8 04dc e001 | | Load 0x0,0x1 04dd 1819 | | Execute Package,Field_Execute,Field_Number 0x19 04de BODY_04d8: 04de 00cf | | Action Mark_Auxiliary 04df 00d9 | | Load_Top At_Offset_1 04e0 01dc | | Execute Vector,Last 04e1 4802 |H | Short_Literal 0x2 04e2 0263 | c | Execute Discrete,Above_Bound 04e3 7020 |p | Jump_Nonzero 0x504 04e4 00d8 | | Load_Top At_Offset_0 04e5 e602 | | Load 0x3,0x2 04e6 01d7 | | Execute Vector,Field_Read 04e7 e024 | $ | Load 0x0,0x24 04e8 1b14 | | Execute Package,Field_Read,Field_Number 0x14 04e9 1811 | | Execute Package,Field_Execute,Field_Number 0x11 04ea a404 | | Store_Unchecked 0x2,0x4 04eb e404 | | Load 0x2,0x4 04ec e024 | $ | Load 0x0,0x24 04ed 1b14 | | Execute Package,Field_Read,Field_Number 0x14 04ee 180f | | Execute Package,Field_Execute,Field_Number 0xf 04ef 7012 |p | Jump_Nonzero 0x502 04f0 e403 | | Load 0x2,0x3 04f1 e408 | | Load 0x2,0x8 04f2 e001 | | Load 0x0,0x1 04f3 181c | | Execute Package,Field_Execute,Field_Number 0x1c 04f4 4801 |H | Short_Literal 0x1 04f5 e404 | | Load 0x2,0x4 04f6 e024 | $ | Load 0x0,0x24 04f7 1b14 | | Execute Package,Field_Read,Field_Number 0x14 04f8 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 04f9 c403 | | Store 0x2,0x3 04fa e403 | | Load 0x2,0x3 04fb 6806 |h | Jump_Zero 0x502 04fc e403 | | Load 0x2,0x3 04fd e5f8 | | Load 0x2,-0x8 04fe e001 | | Load 0x0,0x1 04ff 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 0500 00cc | | Action Pop_Block 0501 450a |E | Exit_Suprogram New_Top_Offset 0xa 0502 00c8 | | Action Pop_Auxiliary_Range 0503 3fe0 |? | Loop_Increasing 0x4e4 0504 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0505 0000 0000 | | .XXX[0x3] 0507 0000 | | 0508 ; -------------------------------------------------------------------------------------- 0508 ; SUBPROGRAM 0508 ; -------------------------------------------------------------------------------------- 0508 050b | | .CONST 0x050b ; Address of begin 0509 0004 | | .CONST 0x0004 ; Address of exception handler 050a 0001 | | .CONST 0x0001 ; Number of locals 050b BODY_0508: 050b INIT_0508: 050b e408 | | Load 0x2,0x8 050c e409 | | Load 0x2,0x9 050d 027d | } | Execute Discrete,Greater 050e 6805 |h | Jump_Zero 0x514 050f 00da | | Load_Top At_Offset_2 0510 e5fa | | Load 0x2,-0x6 0511 0119 | | Execute Any,Check_In_Formal_Type 0512 85fd | | Call 0x2,-0x3 0513 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0514 4800 |H | Short_Literal 0x0 0515 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0516 0000 0000 | | .XXX[0x2] 0518 ; -------------------------------------------------------------------------------------- 0518 ; SUBPROGRAM 0518 ; -------------------------------------------------------------------------------------- 0518 051b | | .CONST 0x051b ; Address of begin 0519 0004 | | .CONST 0x0004 ; Address of exception handler 051a 0001 | | .CONST 0x0001 ; Number of locals 051b BODY_0518: 051b INIT_0518: 051b e402 | | Load 0x2,0x2 051c 0f0a | | Execute_Immediate Equal,0xa 051d 7003 |p | Jump_Nonzero 0x521 051e e402 | | Load 0x2,0x2 051f 0f0c | | Execute_Immediate Equal,0xc 0520 6808 |h | Jump_Zero 0x529 0521 0092 1783 | | Action Push_String_Extended,0x1783 ; "--/<error> " 0523 e7fe | | Load 0x3,-0x2 0524 01cc | | Execute Vector,Catenate 0525 00db | | Load_Top At_Offset_3 0526 e5fa | | Load 0x2,-0x6 0527 0119 | | Execute Any,Check_In_Formal_Type 0528 85fc | | Call 0x2,-0x4 0529 e006 | | Load 0x0,0x6 052a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 052b 4801 |H | Short_Literal 0x1 052c 4802 |H | Short_Literal 0x2 052d e013 | | Load 0x0,0x13 052e 1b0f | | Execute Package,Field_Read,Field_Number 0xf 052f 0334 | 4 | Declare_Variable Array,With_Constraint 0530 e7fe | | Load 0x3,-0x2 0531 e013 | | Load 0x0,0x13 0532 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0533 4801 |H | Short_Literal 0x1 0534 00da | | Load_Top At_Offset_2 0535 01d6 | | Execute Vector,Field_Write 0536 e7fd | | Load 0x3,-0x3 0537 e013 | | Load 0x0,0x13 0538 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0539 4802 |H | Short_Literal 0x2 053a 00da | | Load_Top At_Offset_2 053b 01d6 | | Execute Vector,Field_Write 053c 6007 |` | Indirect_Literal Discrete,0x544,{0x00000000, 0x00004010} 053d e006 | | Load 0x0,0x6 053e 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 053f c403 | | Store 0x2,0x3 0540 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0541 0000 0000 | | .XXX[0x3] 0543 0000 | | 0544 0000 0000 | | .LITERAL {0x00000000, 0x00004010} 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 00da | | Load_Top At_Offset_2 054c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 054d e40c | | Load 0x2,0xc 054e 181c | | Execute Package,Field_Execute,Field_Number 0x1c 054f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0550 ; -------------------------------------------------------------------------------------- 0550 ; SUBPROGRAM 0550 ; -------------------------------------------------------------------------------------- 0550 0553 | S | .CONST 0x0553 ; Address of begin 0551 0004 | | .CONST 0x0004 ; Address of exception handler 0552 0001 | | .CONST 0x0001 ; Number of locals 0553 BODY_0550: 0553 INIT_0550: 0553 00e1 | | Load_Encached Boolean_Cache 0554 00e2 | | Load_Encached Integer_Cache 0555 e7fe | | Load 0x3,-0x2 0556 e7ff | | Load 0x3,-0x1 0557 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0558 e40c | | Load 0x2,0xc 0559 181a | | Execute Package,Field_Execute,Field_Number 0x1a 055a 00d1 | | Pop_Control Pop_Count_1 055b c7fd | | Store 0x3,-0x3 055c c7fc | | Store 0x3,-0x4 055d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 055e 0000 0000 | | .XXX[0x2] 0560 ; -------------------------------------------------------------------------------------- 0560 ; SUBPROGRAM 0560 ; -------------------------------------------------------------------------------------- 0560 0563 | c | .CONST 0x0563 ; Address of begin 0561 0004 | | .CONST 0x0004 ; Address of exception handler 0562 0001 | | .CONST 0x0001 ; Number of locals 0563 BODY_0560: 0563 INIT_0560: 0563 00da | | Load_Top At_Offset_2 0564 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0565 4800 |H | Short_Literal 0x0 0566 e40c | | Load 0x2,0xc 0567 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0568 00db | | Load_Top At_Offset_3 0569 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 056a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 056b 0000 0000 | | .BLANK 0000[0x5] 0570 ; -------------------------------------------------------------------------------------- 0570 ; SUBPROGRAM 0570 ; -------------------------------------------------------------------------------------- 0570 0579 | y | .CONST 0x0579 ; Address of begin 0571 0004 | | .CONST 0x0004 ; Address of exception handler 0572 0004 | | .CONST 0x0004 ; Number of locals 0573 INIT_0570: 0573 e40c | | Load 0x2,0xc 0574 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0575 029f 0793 | | Declare_Subprogram INIT_0790,For_Call 0577 029f 07a3 | | Declare_Subprogram INIT_07a0,For_Call 0579 BODY_0570: 0579 e40c | | Load 0x2,0xc 057a 1b16 | | Execute Package,Field_Read,Field_Number 0x16 057b e5f9 | | Load 0x2,-0x7 057c 821d | | Call 0x1,0x1d 057d e5f8 | | Load 0x2,-0x8 057e e5fa | | Load 0x2,-0x6 057f 0119 | | Execute Any,Check_In_Formal_Type 0580 e40c | | Load 0x2,0xc 0581 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0582 0033 | 3 | Store_Top Heap_Access,At_Offset_3 0583 00cf | | Action Mark_Auxiliary 0584 780d |x | Jump 0x592 0585 e407 | | Load 0x2,0x7 0586 8604 | | Call 0x3,0x4 0587 e602 | | Load 0x3,0x2 0588 e40c | | Load 0x2,0xc 0589 181b | | Execute Package,Field_Execute,Field_Number 0x1b 058a e403 | | Load 0x2,0x3 058b 6805 |h | Jump_Zero 0x591 058c e403 | | Load 0x2,0x3 058d e5f9 | | Load 0x2,-0x7 058e e001 | | Load 0x0,0x1 058f 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0590 7804 |x | Jump 0x595 0591 00c9 | | Action Pop_Auxiliary_Loop 0592 e407 | | Load 0x2,0x7 0593 8603 | | Call 0x3,0x3 0594 6ff0 |o | Jump_Zero 0x585 0595 00ce | | Action Pop_Auxiliary 0596 0092 1784 | | Action Push_String_Extended,0x1784 ; "pragma End_Of_Input;" 0598 00db | | Load_Top At_Offset_3 0599 e40c | | Load 0x2,0xc 059a 181b | | Execute Package,Field_Execute,Field_Number 0x1b 059b e5f8 | | Load 0x2,-0x8 059c 0120 | | Execute Any,Is_Value 059d 6803 |h | Jump_Zero 0x5a1 059e e40c | | Load 0x2,0xc 059f 1b0f | | Execute Package,Field_Read,Field_Number 0xf 05a0 7803 |x | Jump 0x5a4 05a1 e5f8 | | Load 0x2,-0x8 05a2 e5fa | | Load 0x2,-0x6 05a3 0119 | | Execute Any,Check_In_Formal_Type 05a4 00db | | Load_Top At_Offset_3 05a5 e40c | | Load 0x2,0xc 05a6 1818 | | Execute Package,Field_Execute,Field_Number 0x18 05a7 c602 | | Store 0x3,0x2 05a8 c5f8 | | Store 0x2,-0x8 05a9 4501 |E | Exit_Suprogram New_Top_Offset 0x1 05aa 0000 0000 | | .BLANK 0000[0x6] 05b0 ; -------------------------------------------------------------------------------------- 05b0 ; SUBPROGRAM 05b0 ; -------------------------------------------------------------------------------------- 05b0 05cf | | .CONST 0x05cf ; Address of begin 05b1 0004 | | .CONST 0x0004 ; Address of exception handler 05b2 000a | | .CONST 0x000a ; Number of locals 05b3 INIT_05b0: 05b3 e013 | | Load 0x0,0x13 05b4 1b0e | | Execute Package,Field_Read,Field_Number 0xe 05b5 00db | | Load_Top At_Offset_3 05b6 e5f9 | | Load 0x2,-0x7 05b7 e001 | | Load 0x0,0x1 05b8 1818 | | Execute Package,Field_Execute,Field_Number 0x18 05b9 0031 | 1 | Store_Top Heap_Access,At_Offset_1 05ba 00d8 | | Load_Top At_Offset_0 05bb 821c | | Call 0x1,0x1c 05bc e024 | $ | Load 0x0,0x24 05bd 1b14 | | Execute Package,Field_Read,Field_Number 0x14 05be 1b0d | | Execute Package,Field_Read,Field_Number 0xd 05bf e40d | | Load 0x2,0xd 05c0 0322 | " | Declare_Variable Record 05c1 00e1 | | Load_Encached Boolean_Cache 05c2 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 05c3 e018 | | Load 0x0,0x18 05c4 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 05c5 1b0f | | Execute Package,Field_Read,Field_Number 0xf 05c6 e018 | | Load 0x0,0x18 05c7 1b0f | | Execute Package,Field_Read,Field_Number 0xf 05c8 02c7 | | Declare_Variable Any 05c9 00d8 | | Load_Top At_Offset_0 05ca 1c00 | | Execute_Immediate Run_Utility,0x0 05cb 029f 07eb | | Declare_Subprogram INIT_07e8,For_Call 05cd 029f 0863 | c| Declare_Subprogram INIT_0860,For_Call 05cf BODY_05b0: 05cf e603 | | Load 0x3,0x3 05d0 01db | | Execute Vector,Length 05d1 686b |hk | Jump_Zero 0x63d 05d2 e018 | | Load 0x0,0x18 05d3 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 05d4 1b0f | | Execute Package,Field_Read,Field_Number 0xf 05d5 00db | | Load_Top At_Offset_3 05d6 0120 | | Execute Any,Is_Value 05d7 6803 |h | Jump_Zero 0x5db 05d8 e018 | | Load 0x0,0x18 05d9 1b0f | | Execute Package,Field_Read,Field_Number 0xf 05da 7801 |x | Jump 0x5dc 05db 00db | | Load_Top At_Offset_3 05dc 60e3 |` | Indirect_Literal Discrete,0x6c0,{0x00000000, 0x00004000} 05dd e017 | | Load 0x0,0x17 05de 1b0e | | Execute Package,Field_Read,Field_Number 0xe 05df e02b | + | Load 0x0,0x2b 05e0 1811 | | Execute Package,Field_Execute,Field_Number 0x11 05e1 e018 | | Load 0x0,0x18 05e2 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 05e3 1816 | | Execute Package,Field_Execute,Field_Number 0x16 05e4 e603 | | Load 0x3,0x3 05e5 e018 | | Load 0x0,0x18 05e6 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 05e7 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 05e8 c608 | | Store 0x3,0x8 05e9 c607 | | Store 0x3,0x7 05ea 00db | | Load_Top At_Offset_3 05eb 460e |F | Jump_Case 0xf 05ec 7827 |x' | Jump 0x614 ; case 0x0 05ed 780d |x | Jump 0x5fb ; case 0x1 05ee 780c |x | Jump 0x5fb ; case 0x2 05ef 7840 |x@ | Jump 0x630 ; case 0x3 05f0 780a |x | Jump 0x5fb ; case 0x4 05f1 7809 |x | Jump 0x5fb ; case 0x5 05f2 7808 |x | Jump 0x5fb ; case 0x6 05f3 7807 |x | Jump 0x5fb ; case 0x7 05f4 7806 |x | Jump 0x5fb ; case 0x8 05f5 7805 |x | Jump 0x5fb ; case 0x9 05f6 7804 |x | Jump 0x5fb ; case 0xa 05f7 7803 |x | Jump 0x5fb ; case 0xb 05f8 7802 |x | Jump 0x5fb ; case 0xc 05f9 7801 |x | Jump 0x5fb ; case 0xd 05fa 7800 |x | Jump 0x5fb ; case 0xe 05fb e006 | | Load 0x0,0x6 05fc 1b0d | | Execute Package,Field_Read,Field_Number 0xd 05fd 4801 |H | Short_Literal 0x1 05fe 4802 |H | Short_Literal 0x2 05ff e013 | | Load 0x0,0x13 0600 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0601 0334 | 4 | Declare_Variable Array,With_Constraint 0602 e603 | | Load 0x3,0x3 0603 e013 | | Load 0x0,0x13 0604 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0605 4801 |H | Short_Literal 0x1 0606 00da | | Load_Top At_Offset_2 0607 01d6 | | Execute Vector,Field_Write 0608 e603 | | Load 0x3,0x3 0609 e607 | | Load 0x3,0x7 060a e013 | | Load 0x0,0x13 060b 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 060c 4802 |H | Short_Literal 0x2 060d 00da | | Load_Top At_Offset_2 060e 01d6 | | Execute Vector,Field_Write 060f 60ac |` | Indirect_Literal Discrete,0x6bc,{0x00000000, 0x0000401a} 0610 e006 | | Load 0x0,0x6 0611 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0612 c403 | | Store 0x2,0x3 0613 7829 |x) | Jump 0x63d 0614 00da | | Load_Top At_Offset_2 0615 e018 | | Load 0x0,0x18 0616 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0617 e018 | | Load 0x0,0x18 0618 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0619 1814 | | Execute Package,Field_Execute,Field_Number 0x14 061a 012f | / | Execute Any,Equal 061b a606 | | Store_Unchecked 0x3,0x6 061c e606 | | Load 0x3,0x6 061d 701f |p | Jump_Nonzero 0x63d 061e e006 | | Load 0x0,0x6 061f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0620 4801 |H | Short_Literal 0x1 0621 4801 |H | Short_Literal 0x1 0622 e013 | | Load 0x0,0x13 0623 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0624 0334 | 4 | Declare_Variable Array,With_Constraint 0625 e603 | | Load 0x3,0x3 0626 e013 | | Load 0x0,0x13 0627 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0628 4801 |H | Short_Literal 0x1 0629 00da | | Load_Top At_Offset_2 062a 01d6 | | Execute Vector,Field_Write 062b 608c |` | Indirect_Literal Discrete,0x6b8,{0x00000000, 0x0000401d} 062c e006 | | Load 0x0,0x6 062d 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 062e c403 | | Store 0x2,0x3 062f 780d |x | Jump 0x63d 0630 e407 | | Load 0x2,0x7 0631 e017 | | Load 0x0,0x17 0632 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0633 e018 | | Load 0x0,0x18 0634 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0635 e018 | | Load 0x0,0x18 0636 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0637 00ea | | Load_Encached Null_String_Cache 0638 e603 | | Load 0x3,0x3 0639 4801 |H | Short_Literal 0x1 063a e002 | | Load 0x0,0x2 063b 1818 | | Execute Package,Field_Execute,Field_Number 0x18 063c c407 | | Store 0x2,0x7 063d e40c | | Load 0x2,0xc 063e 1b16 | | Execute Package,Field_Read,Field_Number 0x16 063f e5f9 | | Load 0x2,-0x7 0640 821b | | Call 0x1,0x1b 0641 e5f8 | | Load 0x2,-0x8 0642 e5fa | | Load 0x2,-0x6 0643 0119 | | Execute Any,Check_In_Formal_Type 0644 e40c | | Load 0x2,0xc 0645 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0646 e605 | | Load 0x3,0x5 0647 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0648 e606 | | Load 0x3,0x6 0649 7003 |p | Jump_Nonzero 0x64d 064a e603 | | Load 0x3,0x3 064b 01db | | Execute Vector,Length 064c 7028 |p( | Jump_Nonzero 0x675 064d e606 | | Load 0x3,0x6 064e 7015 |p | Jump_Nonzero 0x664 064f e7ff | | Load 0x3,-0x1 0650 0f01 | | Execute_Immediate Equal,0x1 0651 6809 |h | Jump_Zero 0x65b 0652 4802 |H | Short_Literal 0x2 0653 e5f9 | | Load 0x2,-0x7 0654 e001 | | Load 0x0,0x1 0655 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0656 e024 | $ | Load 0x0,0x24 0657 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0658 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0659 a604 | | Store_Unchecked 0x3,0x4 065a 780e |x | Jump 0x669 065b 4801 |H | Short_Literal 0x1 065c e5f9 | | Load 0x2,-0x7 065d e001 | | Load 0x0,0x1 065e 1818 | | Execute Package,Field_Execute,Field_Number 0x18 065f e024 | $ | Load 0x0,0x24 0660 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0661 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0662 a604 | | Store_Unchecked 0x3,0x4 0663 7805 |x | Jump 0x669 0664 e602 | | Load 0x3,0x2 0665 e024 | $ | Load 0x0,0x24 0666 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0667 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0668 a604 | | Store_Unchecked 0x3,0x4 0669 e604 | | Load 0x3,0x4 066a e024 | $ | Load 0x0,0x24 066b 1b14 | | Execute Package,Field_Read,Field_Number 0x14 066c 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 066d 6805 |h | Jump_Zero 0x673 066e e604 | | Load 0x3,0x4 066f e024 | $ | Load 0x0,0x24 0670 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0671 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39 0672 a604 | | Store_Unchecked 0x3,0x4 0673 8609 | | Call 0x3,0x9 0674 782b |x+ | Jump 0x6a0 0675 e402 | | Load 0x2,0x2 0676 0f0b | | Execute_Immediate Equal,0xb 0677 6817 |h | Jump_Zero 0x68f 0678 e605 | | Load 0x3,0x5 0679 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 067a e40c | | Load 0x2,0xc 067b 181c | | Execute Package,Field_Execute,Field_Number 0x1c 067c 7007 |p | Jump_Nonzero 0x684 067d e403 | | Load 0x2,0x3 067e 7005 |p | Jump_Nonzero 0x684 067f 00cf | | Action Mark_Auxiliary 0680 860a | | Call 0x3,0xa 0681 00c9 | | Action Pop_Auxiliary_Loop 0682 7ffd | | Jump 0x680 0683 00ce | | Action Pop_Auxiliary 0684 e403 | | Load 0x2,0x3 0685 6804 |h | Jump_Zero 0x68a 0686 e403 | | Load 0x2,0x3 0687 e5f9 | | Load 0x2,-0x7 0688 e001 | | Load 0x0,0x1 0689 181f | | Execute Package,Field_Execute,Field_Number 0x1f 068a e407 | | Load 0x2,0x7 068b e002 | | Load 0x0,0x2 068c 1819 | | Execute Package,Field_Execute,Field_Number 0x19 068d c407 | | Store 0x2,0x7 068e 7811 |x | Jump 0x6a0 068f e006 | | Load 0x0,0x6 0690 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0691 4801 |H | Short_Literal 0x1 0692 4801 |H | Short_Literal 0x1 0693 e013 | | Load 0x0,0x13 0694 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0695 0334 | 4 | Declare_Variable Array,With_Constraint 0696 e5f9 | | Load 0x2,-0x7 0697 e001 | | Load 0x0,0x1 0698 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0699 4801 |H | Short_Literal 0x1 069a 00da | | Load_Top At_Offset_2 069b 01d6 | | Execute Vector,Field_Write 069c 6017 |` | Indirect_Literal Discrete,0x6b4,{0x00000000, 0x0000401b} 069d e006 | | Load 0x0,0x6 069e 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 069f c403 | | Store 0x2,0x3 06a0 e5f8 | | Load 0x2,-0x8 06a1 0120 | | Execute Any,Is_Value 06a2 6803 |h | Jump_Zero 0x6a6 06a3 e40c | | Load 0x2,0xc 06a4 1b0f | | Execute Package,Field_Read,Field_Number 0xf 06a5 7803 |x | Jump 0x6a9 06a6 e5f8 | | Load 0x2,-0x8 06a7 e5fa | | Load 0x2,-0x6 06a8 0119 | | Execute Any,Check_In_Formal_Type 06a9 e605 | | Load 0x3,0x5 06aa 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 06ab e40c | | Load 0x2,0xc 06ac 1818 | | Execute Package,Field_Execute,Field_Number 0x18 06ad e605 | | Load 0x3,0x5 06ae 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 06af c5f8 | | Store 0x2,-0x8 06b0 4502 |E | Exit_Suprogram New_Top_Offset 0x2 06b1 0000 0000 | | .XXX[0x3] 06b3 0000 | | 06b4 0000 0000 | | .LITERAL {0x00000000, 0x0000401b} 06b8 0000 0000 | | .LITERAL {0x00000000, 0x0000401d} 06bc 0000 0000 | | .LITERAL {0x00000000, 0x0000401a} 06c0 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 06c4 0000 0000 | | .BLANK 0000[0x4] 06c8 ; -------------------------------------------------------------------------------------- 06c8 ; SUBPROGRAM 06c8 ; -------------------------------------------------------------------------------------- 06c8 06ce | | .CONST 0x06ce ; Address of begin 06c9 0004 | | .CONST 0x0004 ; Address of exception handler 06ca 0002 | | .CONST 0x0002 ; Number of locals 06cb INIT_06c8: 06cb e5f9 | | Load 0x2,-0x7 06cc e001 | | Load 0x0,0x1 06cd 1819 | | Execute Package,Field_Execute,Field_Number 0x19 06ce BODY_06c8: 06ce 00cf | | Action Mark_Auxiliary 06cf 00d9 | | Load_Top At_Offset_1 06d0 01dc | | Execute Vector,Last 06d1 4802 |H | Short_Literal 0x2 06d2 0263 | c | Execute Discrete,Above_Bound 06d3 7015 |p | Jump_Nonzero 0x6e9 06d4 e407 | | Load 0x2,0x7 06d5 e017 | | Load 0x0,0x17 06d6 1b0e | | Execute Package,Field_Read,Field_Number 0xe 06d7 e018 | | Load 0x0,0x18 06d8 181e | | Execute Package,Field_Execute,Field_Number 0x1e 06d9 00ea | | Load_Encached Null_String_Cache 06da e605 | | Load 0x3,0x5 06db e602 | | Load 0x3,0x2 06dc 01d7 | | Execute Vector,Field_Read 06dd 821c | | Call 0x1,0x1c 06de 4800 |H | Short_Literal 0x0 06df e002 | | Load 0x0,0x2 06e0 1814 | | Execute Package,Field_Execute,Field_Number 0x14 06e1 c407 | | Store 0x2,0x7 06e2 8412 | | Call 0x2,0x12 06e3 e407 | | Load 0x2,0x7 06e4 e002 | | Load 0x0,0x2 06e5 1819 | | Execute Package,Field_Execute,Field_Number 0x19 06e6 c407 | | Store 0x2,0x7 06e7 00c8 | | Action Pop_Auxiliary_Range 06e8 3feb |? | Loop_Increasing 0x6d4 06e9 4501 |E | Exit_Suprogram New_Top_Offset 0x1 06ea 0000 0000 | | .BLANK 0000[0x6] 06f0 ; -------------------------------------------------------------------------------------- 06f0 ; SUBPROGRAM 06f0 ; -------------------------------------------------------------------------------------- 06f0 070f | | .CONST 0x070f ; Address of begin 06f1 0004 | | .CONST 0x0004 ; Address of exception handler 06f2 0007 | | .CONST 0x0007 ; Number of locals 06f3 INIT_06f0: 06f3 e018 | | Load 0x0,0x18 06f4 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 06f5 1b17 | | Execute Package,Field_Read,Field_Number 0x17 06f6 02c7 | | Declare_Variable Any 06f7 00d8 | | Load_Top At_Offset_0 06f8 1c00 | | Execute_Immediate Run_Utility,0x0 06f9 e02c | , | Load 0x0,0x2c 06fa 1b0d | | Execute Package,Field_Read,Field_Number 0xd 06fb 02c7 | | Declare_Variable Any 06fc 00d8 | | Load_Top At_Offset_0 06fd 1c00 | | Execute_Immediate Run_Utility,0x0 06fe 00f1 | | Load_Encached Diana_Temp_Seq 06ff 02c7 | | Declare_Variable Any 0700 00d8 | | Load_Top At_Offset_0 0701 1c00 | | Execute_Immediate Run_Utility,0x0 0702 e018 | | Load 0x0,0x18 0703 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0704 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0705 02c7 | | Declare_Variable Any 0706 00d8 | | Load_Top At_Offset_0 0707 1c00 | | Execute_Immediate Run_Utility,0x0 0708 e018 | | Load 0x0,0x18 0709 1b14 | | Execute Package,Field_Read,Field_Number 0x14 070a 02ff | | Declare_Variable Variant_Record 070b 00d8 | | Load_Top At_Offset_0 070c 1c00 | | Execute_Immediate Run_Utility,0x0 070d e018 | | Load 0x0,0x18 070e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 070f BODY_06f0: 070f e018 | | Load 0x0,0x18 0710 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0711 00db | | Load_Top At_Offset_3 0712 0120 | | Execute Any,Is_Value 0713 6804 |h | Jump_Zero 0x718 0714 e018 | | Load 0x0,0x18 0715 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d 0716 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0717 7801 |x | Jump 0x719 0718 00db | | Load_Top At_Offset_3 0719 6072 |`r | Indirect_Literal Discrete,0x78c,{0x00000000, 0x00004000} 071a e017 | | Load 0x0,0x17 071b 1b0e | | Execute Package,Field_Read,Field_Number 0xe 071c e018 | | Load 0x0,0x18 071d 1810 | | Execute Package,Field_Execute,Field_Number 0x10 071e 4802 |H | Short_Literal 0x2 071f 6068 |`h | Indirect_Literal Discrete,0x788,{0x00000000, 0x7fffffff} 0720 6067 |`g | Indirect_Literal Discrete,0x788,{0x00000000, 0x7fffffff} 0721 e018 | | Load 0x0,0x18 0722 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d 0723 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0724 e5fe | | Load 0x2,-0x2 0725 e403 | | Load 0x2,0x3 0726 e018 | | Load 0x0,0x18 0727 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0728 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0729 4801 |H | Short_Literal 0x1 072a e405 | | Load 0x2,0x5 072b e018 | | Load 0x0,0x18 072c 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d 072d 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 072e c605 | | Store 0x3,0x5 072f 0059 | Y | Store_Top Discrete,At_Offset_1 0730 4801 |H | Short_Literal 0x1 0731 4801 |H | Short_Literal 0x1 0732 e013 | | Load 0x0,0x13 0733 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0734 0334 | 4 | Declare_Variable Array,With_Constraint 0735 e5ff | | Load 0x2,-0x1 0736 e013 | | Load 0x0,0x13 0737 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0738 4801 |H | Short_Literal 0x1 0739 00da | | Load_Top At_Offset_2 073a 01d6 | | Execute Vector,Field_Write 073b 6048 |`H | Indirect_Literal Discrete,0x784,{0x00000000, 0x00004002} 073c 00da | | Load_Top At_Offset_2 073d e006 | | Load 0x0,0x6 073e 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b 073f 00da | | Load_Top At_Offset_2 0740 e018 | | Load 0x0,0x18 0741 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0742 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0743 c5fd | | Store 0x2,-0x3 0744 e018 | | Load 0x0,0x18 0745 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0746 e604 | | Load 0x3,0x4 0747 0120 | | Execute Any,Is_Value 0748 6802 |h | Jump_Zero 0x74b 0749 00f1 | | Load_Encached Diana_Temp_Seq 074a 7801 |x | Jump 0x74c 074b e604 | | Load 0x3,0x4 074c e602 | | Load 0x3,0x2 074d 0120 | | Execute Any,Is_Value 074e 6804 |h | Jump_Zero 0x753 074f e018 | | Load 0x0,0x18 0750 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0751 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0752 7801 |x | Jump 0x754 0753 e602 | | Load 0x3,0x2 0754 e603 | | Load 0x3,0x3 0755 0120 | | Execute Any,Is_Value 0756 6803 |h | Jump_Zero 0x75a 0757 e02c | , | Load 0x0,0x2c 0758 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0759 7801 |x | Jump 0x75b 075a e603 | | Load 0x3,0x3 075b e606 | | Load 0x3,0x6 075c 602f |`/ | Indirect_Literal Discrete,0x78c,{0x00000000, 0x00004000} 075d e017 | | Load 0x0,0x17 075e 1b0e | | Execute Package,Field_Read,Field_Number 0xe 075f 4800 |H | Short_Literal 0x0 0760 e018 | | Load 0x0,0x18 0761 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34 0762 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0763 e018 | | Load 0x0,0x18 0764 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0765 4ffc |O | Short_Literal -0x4 0766 4ffd |O | Short_Literal -0x3 0767 e5fd | | Load 0x2,-0x3 0768 e018 | | Load 0x0,0x18 0769 1b3b | ; | Execute Package,Field_Read,Field_Number 0x3b 076a 180d | | Execute Package,Field_Execute,Field_Number 0xd 076b 00d1 | | Pop_Control Pop_Count_1 076c c603 | | Store 0x3,0x3 076d c602 | | Store 0x3,0x2 076e c604 | | Store 0x3,0x4 076f 0059 | Y | Store_Top Discrete,At_Offset_1 0770 4801 |H | Short_Literal 0x1 0771 4801 |H | Short_Literal 0x1 0772 e013 | | Load 0x0,0x13 0773 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0774 0334 | 4 | Declare_Variable Array,With_Constraint 0775 e5ff | | Load 0x2,-0x1 0776 e013 | | Load 0x0,0x13 0777 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0778 4801 |H | Short_Literal 0x1 0779 00da | | Load_Top At_Offset_2 077a 01d6 | | Execute Vector,Field_Write 077b 6004 |` | Indirect_Literal Discrete,0x780,{0x00000000, 0x00004005} 077c 00da | | Load_Top At_Offset_2 077d e006 | | Load 0x0,0x6 077e 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b 077f 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0780 0000 0000 | | .LITERAL {0x00000000, 0x00004005} 0784 0000 0000 | | .LITERAL {0x00000000, 0x00004002} 0788 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff} 078c 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 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 e408 | | Load 0x2,0x8 0794 e409 | | Load 0x2,0x9 0795 027d | } | Execute Discrete,Greater 0796 6804 |h | Jump_Zero 0x79b 0797 00da | | Load_Top At_Offset_2 0798 e002 | | Load 0x0,0x2 0799 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 079a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 079b 4800 |H | Short_Literal 0x0 079c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 079d 0000 0000 | | .XXX[0x3] 079f 0000 | | 07a0 ; -------------------------------------------------------------------------------------- 07a0 ; SUBPROGRAM 07a0 ; -------------------------------------------------------------------------------------- 07a0 07a5 | | .CONST 0x07a5 ; Address of begin 07a1 0004 | | .CONST 0x0004 ; Address of exception handler 07a2 0003 | | .CONST 0x0003 ; Number of locals 07a3 INIT_07a0: 07a3 00e3 | | Load_Encached Natural_Cache 07a4 00e3 | | Load_Encached Natural_Cache 07a5 BODY_07a0: 07a5 e408 | | Load 0x2,0x8 07a6 e409 | | Load 0x2,0x9 07a7 027d | } | Execute Discrete,Greater 07a8 680f |h | Jump_Zero 0x7b8 07a9 e9ff | | Load 0x4,-0x1 07aa e002 | | Load 0x0,0x2 07ab 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 07ac 6802 |h | Jump_Zero 0x7af 07ad 00ea | | Load_Encached Null_String_Cache 07ae 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 07af 00e3 | | Load_Encached Natural_Cache 07b0 e406 | | Load 0x2,0x6 07b1 e9ff | | Load 0x4,-0x1 07b2 e002 | | Load 0x0,0x2 07b3 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 07b4 00d1 | | Pop_Control Pop_Count_1 07b5 c409 | | Store 0x2,0x9 07b6 4801 |H | Short_Literal 0x1 07b7 a408 | | Store_Unchecked 0x2,0x8 07b8 e408 | | Load 0x2,0x8 07b9 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 07ba 4800 |H | Short_Literal 0x0 07bb 00d9 | | Load_Top At_Offset_1 07bc e409 | | Load 0x2,0x9 07bd e406 | | Load 0x2,0x6 07be 01cf | | Execute Vector,Slice_Read 07bf 480a |H | Short_Literal 0xa 07c0 e02d | - | Load 0x0,0x2d 07c1 181e | | Execute Package,Field_Execute,Field_Number 0x1e 07c2 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 07c3 00d9 | | Load_Top At_Offset_1 07c4 680b |h | Jump_Zero 0x7d0 07c5 00d9 | | Load_Top At_Offset_1 07c6 0a01 | | Execute_Immediate Plus,0x1 07c7 c408 | | Store 0x2,0x8 07c8 00d8 | | Load_Top At_Offset_0 07c9 00da | | Load_Top At_Offset_2 07ca 0aff | | Execute_Immediate Plus,-0x1 07cb e406 | | Load 0x2,0x6 07cc 01cf | | Execute Vector,Slice_Read 07cd 0335 | 5 | Declare_Variable Array,Duplicate 07ce 00cd | | Action Spare6_Action 07cf 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 07d0 e409 | | Load 0x2,0x9 07d1 0a01 | | Execute_Immediate Plus,0x1 07d2 c408 | | Store 0x2,0x8 07d3 e9ff | | Load 0x4,-0x1 07d4 e002 | | Load 0x0,0x2 07d5 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 07d6 6807 |h | Jump_Zero 0x7de 07d7 00d8 | | Load_Top At_Offset_0 07d8 e409 | | Load 0x2,0x9 07d9 e406 | | Load 0x2,0x6 07da 01cf | | Execute Vector,Slice_Read 07db 0335 | 5 | Declare_Variable Array,Duplicate 07dc 00cd | | Action Spare6_Action 07dd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 07de 00d8 | | Load_Top At_Offset_0 07df e409 | | Load 0x2,0x9 07e0 e406 | | Load 0x2,0x6 07e1 01cf | | Execute Vector,Slice_Read 07e2 e9ff | | Load 0x4,-0x1 07e3 8604 | | Call 0x3,0x4 07e4 01cc | | Execute Vector,Catenate 07e5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 07e6 0000 0000 | | .XXX[0x2] 07e8 ; -------------------------------------------------------------------------------------- 07e8 ; SUBPROGRAM 07e8 ; -------------------------------------------------------------------------------------- 07e8 0817 | | .CONST 0x0817 ; Address of begin 07e9 0004 | | .CONST 0x0004 ; Address of exception handler 07ea 0008 | | .CONST 0x0008 ; Number of locals 07eb INIT_07e8: 07eb e604 | | Load 0x3,0x4 07ec 821a | | Call 0x1,0x1a 07ed e604 | | Load 0x3,0x4 07ee e024 | $ | Load 0x0,0x24 07ef 1b14 | | Execute Package,Field_Read,Field_Number 0x14 07f0 181d | | Execute Package,Field_Execute,Field_Number 0x1d 07f1 00d9 | | Load_Top At_Offset_1 07f2 01dd | | Execute Vector,First 07f3 00da | | Load_Top At_Offset_2 07f4 01dc | | Execute Vector,Last 07f5 00da | | Load_Top At_Offset_2 07f6 01db | | Execute Vector,Length 07f7 0272 | r | Execute Discrete,Minus 07f8 0aff | | Execute_Immediate Plus,-0x1 07f9 00d8 | | Load_Top At_Offset_0 07fa 00e2 | | Load_Encached Integer_Cache 07fb 0260 | ` | Execute Discrete,In_Type 07fc 7001 |p | Jump_Nonzero 0x7fe 07fd 0801 | | Execute_Immediate Raise,0x1 07fe 00db | | Load_Top At_Offset_3 07ff 01cf | | Execute Vector,Slice_Read 0800 0007 | | Action Break_Optional 0801 e02e | . | Load 0x0,0x2e 0802 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0803 0604 | | Execute_Immediate Set_Value_Unchecked,0x4 0804 e02e | . | Load 0x0,0x2e 0805 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0806 0605 | | Execute_Immediate Set_Value_Unchecked,0x5 0807 00d8 | | Load_Top At_Offset_0 0808 0007 | | Action Break_Optional 0809 e012 | | Load 0x0,0x12 080a 1b0e | | Execute Package,Field_Read,Field_Number 0xe 080b 0337 | 7 | Declare_Variable Array 080c e604 | | Load 0x3,0x4 080d e024 | $ | Load 0x0,0x24 080e 1b16 | | Execute Package,Field_Read,Field_Number 0x16 080f 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 0810 e024 | $ | Load 0x0,0x24 0811 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0812 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0813 e007 | | Load 0x0,0x7 0814 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0815 00d9 | | Load_Top At_Offset_1 0816 01d4 | | Execute Vector,Structure_Write 0817 BODY_07e8: 0817 4808 |H | Short_Literal 0x8 0818 00d9 | | Load_Top At_Offset_1 0819 01d7 | | Execute Vector,Field_Read 081a 6802 |h | Jump_Zero 0x81d 081b 00db | | Load_Top At_Offset_3 081c 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 081d e025 | % | Load 0x0,0x25 081e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 081f e404 | | Load 0x2,0x4 0820 0120 | | Execute Any,Is_Value 0821 6803 |h | Jump_Zero 0x825 0822 e018 | | Load 0x0,0x18 0823 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0824 7801 |x | Jump 0x826 0825 e404 | | Load 0x2,0x4 0826 e605 | | Load 0x3,0x5 0827 e015 | | Load 0x0,0x15 0828 180e | | Execute Package,Field_Execute,Field_Number 0xe 0829 e017 | | Load 0x0,0x17 082a 1b0e | | Execute Package,Field_Read,Field_Number 0xe 082b 00ea | | Load_Encached Null_String_Cache 082c 4802 |H | Short_Literal 0x2 082d e018 | | Load 0x0,0x18 082e 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 082f 00ea | | Load_Encached Null_String_Cache 0830 4801 |H | Short_Literal 0x1 0831 e807 | | Load 0x4,0x7 0832 e804 | | Load 0x4,0x4 0833 e411 | | Load 0x2,0x11 0834 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0835 00d1 | | Pop_Control Pop_Count_1 0836 c404 | | Store 0x2,0x4 0837 c405 | | Store 0x2,0x5 0838 e405 | | Load 0x2,0x5 0839 681c |h | Jump_Zero 0x856 083a e006 | | Load 0x0,0x6 083b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 083c 4801 |H | Short_Literal 0x1 083d 4802 |H | Short_Literal 0x2 083e e013 | | Load 0x0,0x13 083f 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0840 0334 | 4 | Declare_Variable Array,With_Constraint 0841 e604 | | Load 0x3,0x4 0842 e024 | $ | Load 0x0,0x24 0843 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0844 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0845 4801 |H | Short_Literal 0x1 0846 00da | | Load_Top At_Offset_2 0847 01d6 | | Execute Vector,Field_Write 0848 e405 | | Load 0x2,0x5 0849 e025 | % | Load 0x0,0x25 084a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 084b 011c | | Execute Any,Convert_Unchecked 084c 1c01 | | Execute_Immediate Run_Utility,0x1 084d e013 | | Load 0x0,0x13 084e 1810 | | Execute Package,Field_Execute,Field_Number 0x10 084f 4802 |H | Short_Literal 0x2 0850 00da | | Load_Top At_Offset_2 0851 01d6 | | Execute Vector,Field_Write 0852 6005 |` | Indirect_Literal Discrete,0x858,{0x00000000, 0x0000402b} 0853 e006 | | Load 0x0,0x6 0854 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0855 c403 | | Store 0x2,0x3 0856 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0857 0000 | | .XXX[0x1] 0858 0000 0000 | | .LITERAL {0x00000000, 0x0000402b} 085c 0000 0000 | | .BLANK 0000[0x4] 0860 ; -------------------------------------------------------------------------------------- 0860 ; SUBPROGRAM 0860 ; -------------------------------------------------------------------------------------- 0860 0867 | g | .CONST 0x0867 ; Address of begin 0861 0004 | | .CONST 0x0004 ; Address of exception handler 0862 0002 | | .CONST 0x0002 ; Number of locals 0863 INIT_0860: 0863 e605 | | Load 0x3,0x5 0864 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0865 e40c | | Load 0x2,0xc 0866 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0867 BODY_0860: 0867 e403 | | Load 0x2,0x3 0868 6806 |h | Jump_Zero 0x86f 0869 e403 | | Load 0x2,0x3 086a e5f9 | | Load 0x2,-0x7 086b e001 | | Load 0x0,0x1 086c 181f | | Execute Package,Field_Execute,Field_Number 0x1f 086d 00cc | | Action Pop_Block 086e 7e14 |~ | Jump 0x683 086f e605 | | Load 0x3,0x5 0870 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0871 e40c | | Load 0x2,0xc 0872 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0873 6806 |h | Jump_Zero 0x87a 0874 00d8 | | Load_Top At_Offset_0 0875 e407 | | Load 0x2,0x7 0876 e002 | | Load 0x0,0x2 0877 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 0878 00cc | | Action Pop_Block 0879 7e09 |~ | Jump 0x683 087a 480a |H | Short_Literal 0xa 087b 00d9 | | Load_Top At_Offset_1 087c 01cb | | Execute Vector,Append 087d e407 | | Load 0x2,0x7 087e e002 | | Load 0x0,0x2 087f 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 0880 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0881 0000 0000 | | .BLANK 0000[0x7] 0888 ; -------------------------------------------------------------------------------------- 0888 ; SUBPROGRAM 0888 ; -------------------------------------------------------------------------------------- 0888 08e5 | | .CONST 0x08e5 ; Address of begin 0889 0004 | | .CONST 0x0004 ; Address of exception handler 088a 0026 | & | .CONST 0x0026 ; Number of locals 088b INIT_0888: 088b 03a9 | | Declare_Type Heap_Access,Indirect_Literal,Visible 088c 029a 08eb | | Declare_Subprogram INIT_08e8,For_Outer_Call,Visible,Unelaborated 088e 029a 092b | +| Declare_Subprogram INIT_0928,For_Outer_Call,Visible,Unelaborated 0890 029a 0933 | 3| Declare_Subprogram INIT_0930,For_Outer_Call,Visible,Unelaborated 0892 029a 09e3 | | Declare_Subprogram INIT_09e0,For_Outer_Call,Visible,Unelaborated 0894 029a 09f3 | | Declare_Subprogram INIT_09f0,For_Outer_Call,Visible,Unelaborated 0896 029a 0a03 | | Declare_Subprogram INIT_0a00,For_Outer_Call,Visible,Unelaborated 0898 029a 0a13 | | Declare_Subprogram INIT_0a10,For_Outer_Call,Visible,Unelaborated 089a 029a 0a1b | | Declare_Subprogram INIT_0a18,For_Outer_Call,Visible,Unelaborated 089c 029a 0a23 | #| Declare_Subprogram INIT_0a20,For_Outer_Call,Visible,Unelaborated 089e 029a 0a2b | +| Declare_Subprogram INIT_0a28,For_Outer_Call,Visible,Unelaborated 08a0 029a 0a3b | ;| Declare_Subprogram INIT_0a38,For_Outer_Call,Visible,Unelaborated 08a2 029a 0a4b | K| Declare_Subprogram INIT_0a48,For_Outer_Call,Visible,Unelaborated 08a4 4806 |H | Short_Literal 0x6 08a5 032a | * | Declare_Type Record,Incomplete 08a6 00d8 | | Load_Top At_Offset_0 08a7 02a0 | | Declare_Subprogram Null_Subprogram 08a8 e212 | | Load 0x1,0x12 08a9 03a3 | | Complete_Type Heap_Access,By_Defining 08aa 00bf | | Action Accept_Activation 08ab e001 | | Load 0x0,0x1 08ac 1b0d | | Execute Package,Field_Read,Field_Number 0xd 08ad e002 | | Load 0x0,0x2 08ae 1b0d | | Execute Package,Field_Read,Field_Number 0xd 08af e003 | | Load 0x0,0x3 08b0 1b0d | | Execute Package,Field_Read,Field_Number 0xd 08b1 00e1 | | Load_Encached Boolean_Cache 08b2 e004 | | Load 0x0,0x4 08b3 1b14 | | Execute Package,Field_Read,Field_Number 0x14 08b4 e210 | | Load 0x1,0x10 08b5 029f 0a53 | S| Declare_Subprogram INIT_0a50,For_Call 08b7 e21f | | Load 0x1,0x1f 08b8 0326 | & | Complete_Type Record,By_Defining 08b9 1d13 | | Execute_Immediate Reference_Lex_1,0x13 08ba 00c7 | | Action Elaborate_Subprogram 08bb 1d14 | | Execute_Immediate Reference_Lex_1,0x14 08bc 00c7 | | Action Elaborate_Subprogram 08bd 029d 0a73 | s| Declare_Subprogram INIT_0a70,For_Outer_Call 08bf 1d15 | | Execute_Immediate Reference_Lex_1,0x15 08c0 00c7 | | Action Elaborate_Subprogram 08c1 1d16 | | Execute_Immediate Reference_Lex_1,0x16 08c2 00c7 | | Action Elaborate_Subprogram 08c3 1d17 | | Execute_Immediate Reference_Lex_1,0x17 08c4 00c7 | | Action Elaborate_Subprogram 08c5 1d18 | | Execute_Immediate Reference_Lex_1,0x18 08c6 00c7 | | Action Elaborate_Subprogram 08c7 1d19 | | Execute_Immediate Reference_Lex_1,0x19 08c8 00c7 | | Action Elaborate_Subprogram 08c9 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 08ca 00c7 | | Action Elaborate_Subprogram 08cb 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 08cc 00c7 | | Action Elaborate_Subprogram 08cd 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 08ce 00c7 | | Action Elaborate_Subprogram 08cf e005 | | Load 0x0,0x5 08d0 e006 | | Load 0x0,0x6 08d1 00db | | Load_Top At_Offset_3 08d2 e212 | | Load 0x1,0x12 08d3 e007 | | Load 0x0,0x7 08d4 1b18 | | Execute Package,Field_Read,Field_Number 0x18 08d5 0387 | | Declare_Variable Package 08d6 00d8 | | Load_Top At_Offset_0 08d7 020f | | Execute Module,Activate 08d8 e007 | | Load 0x0,0x7 08d9 1919 | | Execute Package,Field_Reference,Field_Number 0x19 08da 00c6 | | Action Check_Subprogram_Elaborated 08db 00da | | Load_Top At_Offset_2 08dc e212 | | Load 0x1,0x12 08dd e008 | | Load 0x0,0x8 08de e009 | | Load 0x0,0x9 08df 4800 |H | Short_Literal 0x0 08e0 0007 | | Action Break_Optional 08e1 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 08e2 00c7 | | Action Elaborate_Subprogram 08e3 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 08e4 00c7 | | Action Elaborate_Subprogram 08e5 BODY_0888: 08e5 00bc | | Action Signal_Activated 08e6 00bb | | Action Signal_Completion 08e7 0000 | | .XXX[0x1] 08e8 ; -------------------------------------------------------------------------------------- 08e8 ; SUBPROGRAM 08e8 ; -------------------------------------------------------------------------------------- 08e8 08f2 | | .CONST 0x08f2 ; Address of begin 08e9 0915 | | .CONST 0x0915 ; Address of exception handler 08ea 0002 | | .CONST 0x0002 ; Number of locals 08eb INIT_08e8: 08eb e212 | | Load 0x1,0x12 08ec e00a | | Load 0x0,0xa 08ed 180d | | Execute Package,Field_Execute,Field_Number 0xd 08ee 039c | | Declare_Variable Heap_Access,By_Allocation 08ef 00d8 | | Load_Top At_Offset_0 08f0 0217 | | Execute Heap_Access,All_Reference 08f1 1c00 | | Execute_Immediate Run_Utility,0x0 08f2 BODY_08e8: 08f2 00db | | Load_Top At_Offset_3 08f3 e20f | | Load 0x1,0xf 08f4 0119 | | Execute Any,Check_In_Formal_Type 08f5 e210 | | Load 0x1,0x10 08f6 e00a | | Load 0x0,0xa 08f7 180d | | Execute Package,Field_Execute,Field_Number 0xd 08f8 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value 08f9 00d9 | | Load_Top At_Offset_1 08fa 0217 | | Execute Heap_Access,All_Reference 08fb 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 08fc e5fe | | Load 0x2,-0x2 08fd 00d9 | | Load_Top At_Offset_1 08fe 0217 | | Execute Heap_Access,All_Reference 08ff 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0900 e001 | | Load 0x0,0x1 0901 180e | | Execute Package,Field_Execute,Field_Number 0xe 0902 00d9 | | Load_Top At_Offset_1 0903 0217 | | Execute Heap_Access,All_Reference 0904 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0905 4800 |H | Short_Literal 0x0 0906 00d9 | | Load_Top At_Offset_1 0907 0217 | | Execute Heap_Access,All_Reference 0908 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0909 e004 | | Load 0x0,0x4 090a 1815 | | Execute Package,Field_Execute,Field_Number 0x15 090b 00d9 | | Load_Top At_Offset_1 090c 0217 | | Execute Heap_Access,All_Reference 090d 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 090e 00d8 | | Load_Top At_Offset_0 090f a5fd | | Store_Unchecked 0x2,-0x3 0910 00d8 | | Load_Top At_Offset_0 0911 0217 | | Execute Heap_Access,All_Reference 0912 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0913 a5fc | | Store_Unchecked 0x2,-0x4 0914 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0915 TRAP_08e8: 0915 010b | | Execute Exception,Is_Storage_Error 0916 680b |h | Jump_Zero 0x922 0917 e001 | | Load 0x0,0x1 0918 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0919 e00b | | Load 0x0,0xb 091a 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 091b 6008 |` | Indirect_Literal Discrete,0x924,{0x00000000, 0x00004008} 091c e001 | | Load 0x0,0x1 091d 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 091e c5fc | | Store 0x2,-0x4 091f e212 | | Load 0x1,0x12 0920 a5fd | | Store_Unchecked 0x2,-0x3 0921 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0922 0100 | | Execute Exception,Raise 0923 0000 | | .XXX[0x1] 0924 0000 0000 | | .LITERAL {0x00000000, 0x00004008} 0928 ; -------------------------------------------------------------------------------------- 0928 ; SUBPROGRAM 0928 ; -------------------------------------------------------------------------------------- 0928 092b | + | .CONST 0x092b ; Address of begin 0929 0004 | | .CONST 0x0004 ; Address of exception handler 092a 0001 | | .CONST 0x0001 ; Number of locals 092b BODY_0928: 092b INIT_0928: 092b 4503 |E | Exit_Suprogram New_Top_Offset 0x3 092c 0000 0000 | | .BLANK 0000[0x4] 0930 ; -------------------------------------------------------------------------------------- 0930 ; SUBPROGRAM 0930 ; -------------------------------------------------------------------------------------- 0930 094b | K | .CONST 0x094b ; Address of begin 0931 099a | | .CONST 0x099a ; Address of exception handler 0932 000b | | .CONST 0x000b ; Number of locals 0933 INIT_0930: 0933 e001 | | Load 0x0,0x1 0934 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0935 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0936 e00b | | Load 0x0,0xb 0937 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0938 e00b | | Load 0x0,0xb 0939 1b0e | | Execute Package,Field_Read,Field_Number 0xe 093a 00ea | | Load_Encached Null_String_Cache 093b e5ff | | Load 0x2,-0x1 093c 0217 | | Execute Heap_Access,All_Reference 093d 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4 093e 800c | | Call 0x0,0xc 093f 029f 0aa3 | | Declare_Subprogram INIT_0aa0,For_Call 0941 029f 0ac3 | | Declare_Subprogram INIT_0ac0,For_Call 0943 029f 0ae3 | | Declare_Subprogram INIT_0ae0,For_Call 0945 029f 0b53 | S| Declare_Subprogram INIT_0b50,For_Call 0947 029f 0beb | | Declare_Subprogram INIT_0be8,For_Call 0949 029f 0c7b | {| Declare_Subprogram INIT_0c78,For_Call 094b BODY_0930: 094b e5fe | | Load 0x2,-0x2 094c e00d | | Load 0x0,0xd 094d 1816 | | Execute Package,Field_Execute,Field_Number 0x16 094e 4612 |F | Jump_Case 0x13 094f 7812 |x | Jump 0x962 ; case 0x0 0950 7811 |x | Jump 0x962 ; case 0x1 0951 7810 |x | Jump 0x962 ; case 0x2 0952 780f |x | Jump 0x962 ; case 0x3 0953 780e |x | Jump 0x962 ; case 0x4 0954 780d |x | Jump 0x962 ; case 0x5 0955 780c |x | Jump 0x962 ; case 0x6 0956 780b |x | Jump 0x962 ; case 0x7 0957 780a |x | Jump 0x962 ; case 0x8 0958 7809 |x | Jump 0x962 ; case 0x9 0959 7821 |x! | Jump 0x97b ; case 0xa 095a 782c |x, | Jump 0x987 ; case 0xb 095b 7832 |x2 | Jump 0x98e ; case 0xc 095c 7805 |x | Jump 0x962 ; case 0xd 095d 7804 |x | Jump 0x962 ; case 0xe 095e 7803 |x | Jump 0x962 ; case 0xf 095f 7802 |x | Jump 0x962 ; case 0x10 0960 7801 |x | Jump 0x962 ; case 0x11 0961 7800 |x | Jump 0x962 ; case 0x12 0962 e00e | | Load 0x0,0xe 0963 180e | | Execute Package,Field_Execute,Field_Number 0xe 0964 4801 |H | Short_Literal 0x1 0965 4801 |H | Short_Literal 0x1 0966 e00b | | Load 0x0,0xb 0967 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0968 0334 | 4 | Declare_Variable Array,With_Constraint 0969 e5fe | | Load 0x2,-0x2 096a e00d | | Load 0x0,0xd 096b 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 096c 4801 |H | Short_Literal 0x1 096d 00da | | Load_Top At_Offset_2 096e 01d6 | | Execute Vector,Field_Write 096f 606c |`l | Indirect_Literal Discrete,0x9dc,{0x00000000, 0x00004018} 0970 e001 | | Load 0x0,0x1 0971 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0972 e00b | | Load 0x0,0xb 0973 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0974 6067 |`g | Indirect_Literal Discrete,0x9dc,{0x00000000, 0x00004018} 0975 e001 | | Load 0x0,0x1 0976 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0977 e5fe | | Load 0x2,-0x2 0978 e00d | | Load 0x0,0xd 0979 181f | | Execute Package,Field_Execute,Field_Number 0x1f 097a 4504 |E | Exit_Suprogram New_Top_Offset 0x4 097b 4801 |H | Short_Literal 0x1 097c e5fe | | Load 0x2,-0x2 097d e00d | | Load 0x0,0xd 097e 1818 | | Execute Package,Field_Execute,Field_Number 0x18 097f a403 | | Store_Unchecked 0x2,0x3 0980 4802 |H | Short_Literal 0x2 0981 e5fe | | Load 0x2,-0x2 0982 e00d | | Load 0x0,0xd 0983 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0984 a404 | | Store_Unchecked 0x2,0x4 0985 8409 | | Call 0x2,0x9 0986 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0987 4801 |H | Short_Literal 0x1 0988 e5fe | | Load 0x2,-0x2 0989 e00d | | Load 0x0,0xd 098a 1818 | | Execute Package,Field_Execute,Field_Number 0x18 098b a403 | | Store_Unchecked 0x2,0x3 098c 840a | | Call 0x2,0xa 098d 4504 |E | Exit_Suprogram New_Top_Offset 0x4 098e 4801 |H | Short_Literal 0x1 098f e5fe | | Load 0x2,-0x2 0990 e00d | | Load 0x0,0xd 0991 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0992 a403 | | Store_Unchecked 0x2,0x3 0993 4802 |H | Short_Literal 0x2 0994 e5fe | | Load 0x2,-0x2 0995 e00d | | Load 0x0,0xd 0996 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0997 a404 | | Store_Unchecked 0x2,0x4 0998 840b | | Call 0x2,0xb 0999 4504 |E | Exit_Suprogram New_Top_Offset 0x4 099a TRAP_0930: 099a e00f | | Load 0x0,0xf 099b 010f | | Execute Exception,Equal 099c 6815 |h | Jump_Zero 0x9b2 099d e5ff | | Load 0x2,-0x1 099e 0219 | | Execute Heap_Access,All_Read 099f e001 | | Load 0x0,0x1 09a0 1b0d | | Execute Package,Field_Read,Field_Number 0xd 09a1 4801 |H | Short_Literal 0x1 09a2 4801 |H | Short_Literal 0x1 09a3 e00b | | Load 0x0,0xb 09a4 1b0f | | Execute Package,Field_Read,Field_Number 0xf 09a5 0334 | 4 | Declare_Variable Array,With_Constraint 09a6 e5fe | | Load 0x2,-0x2 09a7 e00d | | Load 0x0,0xd 09a8 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 09a9 4801 |H | Short_Literal 0x1 09aa 00da | | Load_Top At_Offset_2 09ab 01d6 | | Execute Vector,Field_Write 09ac 602b |`+ | Indirect_Literal Discrete,0x9d8,{0x00000000, 0x00004007} 09ad e001 | | Load 0x0,0x1 09ae 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 09af 00d9 | | Load_Top At_Offset_1 09b0 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 09b1 4504 |E | Exit_Suprogram New_Top_Offset 0x4 09b2 e010 | | Load 0x0,0x10 09b3 010f | | Execute Exception,Equal 09b4 681b |h | Jump_Zero 0x9d0 09b5 e5ff | | Load 0x2,-0x1 09b6 8220 | | Call 0x1,0x20 09b7 e00e | | Load 0x0,0xe 09b8 180e | | Execute Package,Field_Execute,Field_Number 0xe 09b9 4801 |H | Short_Literal 0x1 09ba 4801 |H | Short_Literal 0x1 09bb e00b | | Load 0x0,0xb 09bc 1b0f | | Execute Package,Field_Read,Field_Number 0xf 09bd 0334 | 4 | Declare_Variable Array,With_Constraint 09be e5fe | | Load 0x2,-0x2 09bf e00d | | Load 0x0,0xd 09c0 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 09c1 4801 |H | Short_Literal 0x1 09c2 00da | | Load_Top At_Offset_2 09c3 01d6 | | Execute Vector,Field_Write 09c4 600f |` | Indirect_Literal Discrete,0x9d4,{0x00000000, 0x00004019} 09c5 e001 | | Load 0x0,0x1 09c6 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 09c7 e00b | | Load 0x0,0xb 09c8 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 09c9 600a |` | Indirect_Literal Discrete,0x9d4,{0x00000000, 0x00004019} 09ca e001 | | Load 0x0,0x1 09cb 1813 | | Execute Package,Field_Execute,Field_Number 0x13 09cc e5fe | | Load 0x2,-0x2 09cd e00d | | Load 0x0,0xd 09ce 181f | | Execute Package,Field_Execute,Field_Number 0x1f 09cf 4504 |E | Exit_Suprogram New_Top_Offset 0x4 09d0 e5ff | | Load 0x2,-0x1 09d1 8220 | | Call 0x1,0x20 09d2 00d8 | | Load_Top At_Offset_0 09d3 0101 | | Execute Exception,Reraise 09d4 0000 0000 | | .LITERAL {0x00000000, 0x00004019} 09d8 0000 0000 | | .LITERAL {0x00000000, 0x00004007} 09dc 0000 0000 | | .LITERAL {0x00000000, 0x00004018} 09e0 ; -------------------------------------------------------------------------------------- 09e0 ; SUBPROGRAM 09e0 ; -------------------------------------------------------------------------------------- 09e0 09e3 | | .CONST 0x09e3 ; Address of begin 09e1 0004 | | .CONST 0x0004 ; Address of exception handler 09e2 0001 | | .CONST 0x0001 ; Number of locals 09e3 BODY_09e0: 09e3 INIT_09e0: 09e3 00da | | Load_Top At_Offset_2 09e4 0217 | | Execute Heap_Access,All_Reference 09e5 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 09e6 0219 | | Execute Heap_Access,All_Read 09e7 c5fe | | Store 0x2,-0x2 09e8 e210 | | Load 0x1,0x10 09e9 00db | | Load_Top At_Offset_3 09ea 0217 | | Execute Heap_Access,All_Reference 09eb 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 09ec 00da | | Load_Top At_Offset_2 09ed 8220 | | Call 0x1,0x20 09ee 4502 |E | Exit_Suprogram New_Top_Offset 0x2 09ef 0000 | | .XXX[0x1] 09f0 ; -------------------------------------------------------------------------------------- 09f0 ; SUBPROGRAM 09f0 ; -------------------------------------------------------------------------------------- 09f0 09f3 | | .CONST 0x09f3 ; Address of begin 09f1 0004 | | .CONST 0x0004 ; Address of exception handler 09f2 0001 | | .CONST 0x0001 ; Number of locals 09f3 BODY_09f0: 09f3 INIT_09f0: 09f3 00da | | Load_Top At_Offset_2 09f4 0217 | | Execute Heap_Access,All_Reference 09f5 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 09f6 00d8 | | Load_Top At_Offset_0 09f7 0120 | | Execute Any,Is_Value 09f8 7002 |p | Jump_Nonzero 0x9fb 09f9 00d8 | | Load_Top At_Offset_0 09fa 011e | | Execute Any,Convert 09fb 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 09fc 0000 0000 | | .BLANK 0000[0x4] 0a00 ; -------------------------------------------------------------------------------------- 0a00 ; SUBPROGRAM 0a00 ; -------------------------------------------------------------------------------------- 0a00 0a03 | | .CONST 0x0a03 ; Address of begin 0a01 0004 | | .CONST 0x0004 ; Address of exception handler 0a02 0001 | | .CONST 0x0001 ; Number of locals 0a03 BODY_0a00: 0a03 INIT_0a00: 0a03 00da | | Load_Top At_Offset_2 0a04 0217 | | Execute Heap_Access,All_Reference 0a05 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 0a06 e210 | | Load 0x1,0x10 0a07 0213 | | Execute Heap_Access,Check_In_Type 0a08 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0a09 0000 0000 | | .BLANK 0000[0x7] 0a10 ; -------------------------------------------------------------------------------------- 0a10 ; SUBPROGRAM 0a10 ; -------------------------------------------------------------------------------------- 0a10 0a13 | | .CONST 0x0a13 ; Address of begin 0a11 0004 | | .CONST 0x0004 ; Address of exception handler 0a12 0001 | | .CONST 0x0001 ; Number of locals 0a13 BODY_0a10: 0a13 INIT_0a10: 0a13 00da | | Load_Top At_Offset_2 0a14 0217 | | Execute Heap_Access,All_Reference 0a15 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0a16 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0a17 0000 | | .XXX[0x1] 0a18 ; -------------------------------------------------------------------------------------- 0a18 ; SUBPROGRAM 0a18 ; -------------------------------------------------------------------------------------- 0a18 0a1b | | .CONST 0x0a1b ; Address of begin 0a19 0004 | | .CONST 0x0004 ; Address of exception handler 0a1a 0001 | | .CONST 0x0001 ; Number of locals 0a1b BODY_0a18: 0a1b INIT_0a18: 0a1b 00db | | Load_Top At_Offset_3 0a1c 00db | | Load_Top At_Offset_3 0a1d 0217 | | Execute Heap_Access,All_Reference 0a1e 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0a1f 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0a20 ; -------------------------------------------------------------------------------------- 0a20 ; SUBPROGRAM 0a20 ; -------------------------------------------------------------------------------------- 0a20 0a23 | # | .CONST 0x0a23 ; Address of begin 0a21 0004 | | .CONST 0x0004 ; Address of exception handler 0a22 0001 | | .CONST 0x0001 ; Number of locals 0a23 BODY_0a20: 0a23 INIT_0a20: 0a23 00da | | Load_Top At_Offset_2 0a24 0217 | | Execute Heap_Access,All_Reference 0a25 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0a26 0f00 | | Execute_Immediate Equal,0x0 0a27 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0a28 ; -------------------------------------------------------------------------------------- 0a28 ; SUBPROGRAM 0a28 ; -------------------------------------------------------------------------------------- 0a28 0a2b | + | .CONST 0x0a2b ; Address of begin 0a29 0004 | | .CONST 0x0004 ; Address of exception handler 0a2a 0001 | | .CONST 0x0001 ; Number of locals 0a2b BODY_0a28: 0a2b INIT_0a28: 0a2b 00da | | Load_Top At_Offset_2 0a2c 0217 | | Execute Heap_Access,All_Reference 0a2d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0a2e e001 | | Load 0x0,0x1 0a2f 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0a30 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0a31 0000 0000 | | .BLANK 0000[0x7] 0a38 ; -------------------------------------------------------------------------------------- 0a38 ; SUBPROGRAM 0a38 ; -------------------------------------------------------------------------------------- 0a38 0a3b | ; | .CONST 0x0a3b ; Address of begin 0a39 0004 | | .CONST 0x0004 ; 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 e00a | | Load 0x0,0xa 0a3d 180d | | Execute Package,Field_Execute,Field_Number 0xd 0a3e e222 | " | Load 0x1,0x22 0a3f e223 | # | Load 0x1,0x23 0a40 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24 0a41 e007 | | Load 0x0,0x7 0a42 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0a43 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0a44 0000 0000 | | .BLANK 0000[0x4] 0a48 ; -------------------------------------------------------------------------------------- 0a48 ; SUBPROGRAM 0a48 ; -------------------------------------------------------------------------------------- 0a48 0a4b | K | .CONST 0x0a4b ; Address of begin 0a49 0004 | | .CONST 0x0004 ; Address of exception handler 0a4a 0001 | | .CONST 0x0001 ; Number of locals 0a4b BODY_0a48: 0a4b INIT_0a48: 0a4b 00da | | Load_Top At_Offset_2 0a4c e221 | ! | Load 0x1,0x21 0a4d 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0a4e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0a4f 0000 | | .XXX[0x1] 0a50 ; -------------------------------------------------------------------------------------- 0a50 ; SUBPROGRAM 0a50 ; -------------------------------------------------------------------------------------- 0a50 0a53 | S | .CONST 0x0a53 ; Address of begin 0a51 0004 | | .CONST 0x0004 ; Address of exception handler 0a52 0001 | | .CONST 0x0001 ; Number of locals 0a53 BODY_0a50: 0a53 INIT_0a50: 0a53 4608 |F | Jump_Case 0x9 0a54 7808 |x | Jump 0xa5d ; case 0x0 0a55 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 0a56 7813 |x | Jump 0xa6a ; case 0x2 0a57 7812 |x | Jump 0xa6a ; case 0x3 0a58 7811 |x | Jump 0xa6a ; case 0x4 0a59 7810 |x | Jump 0xa6a ; case 0x5 0a5a 780f |x | Jump 0xa6a ; case 0x6 0a5b 780e |x | Jump 0xa6a ; case 0x7 0a5c 780d |x | Jump 0xa6a ; case 0x8 0a5d 00da | | Load_Top At_Offset_2 0a5e 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0a5f 0125 | % | Execute Any,Set_Constraint 0a60 00da | | Load_Top At_Offset_2 0a61 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0a62 1c00 | | Execute_Immediate Run_Utility,0x0 0a63 00da | | Load_Top At_Offset_2 0a64 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 0a65 0125 | % | Execute Any,Set_Constraint 0a66 00da | | Load_Top At_Offset_2 0a67 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 0a68 1c00 | | Execute_Immediate Run_Utility,0x0 0a69 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0a6a 0869 | i | Execute_Immediate Raise,0x69 0a6b 0000 0000 | | .BLANK 0000[0x5] 0a70 ; -------------------------------------------------------------------------------------- 0a70 ; SUBPROGRAM 0a70 ; -------------------------------------------------------------------------------------- 0a70 0a73 | s | .CONST 0x0a73 ; Address of begin 0a71 0004 | | .CONST 0x0004 ; Address of exception handler 0a72 0001 | | .CONST 0x0001 ; Number of locals 0a73 BODY_0a70: 0a73 INIT_0a70: 0a73 00da | | Load_Top At_Offset_2 0a74 0217 | | Execute Heap_Access,All_Reference 0a75 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0a76 6827 |h' | Jump_Zero 0xa9e 0a77 00da | | Load_Top At_Offset_2 0a78 0217 | | Execute Heap_Access,All_Reference 0a79 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0a7a e003 | | Load 0x0,0x3 0a7b 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0a7c 7014 |p | Jump_Nonzero 0xa91 0a7d 00da | | Load_Top At_Offset_2 0a7e 0219 | | Execute Heap_Access,All_Read 0a7f 00d8 | | Load_Top At_Offset_0 0a80 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0a81 e011 | | Load 0x0,0x11 0a82 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0a83 e012 | | Load 0x0,0x12 0a84 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0a85 00ea | | Load_Encached Null_String_Cache 0a86 00ea | | Load_Encached Null_String_Cache 0a87 e5ff | | Load 0x2,-0x1 0a88 0217 | | Execute Heap_Access,All_Reference 0a89 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4 0a8a 800c | | Call 0x0,0xc 0a8b 4800 |H | Short_Literal 0x0 0a8c e003 | | Load 0x0,0x3 0a8d 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0a8e 00d9 | | Load_Top At_Offset_1 0a8f 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0a90 00d1 | | Pop_Control Pop_Count_1 0a91 00da | | Load_Top At_Offset_2 0a92 0219 | | Execute Heap_Access,All_Read 0a93 00d8 | | Load_Top At_Offset_0 0a94 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0a95 e003 | | Load 0x0,0x3 0a96 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0a97 00d9 | | Load_Top At_Offset_1 0a98 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0a99 00d1 | | Pop_Control Pop_Count_1 0a9a 4800 |H | Short_Literal 0x0 0a9b 00db | | Load_Top At_Offset_3 0a9c 0217 | | Execute Heap_Access,All_Reference 0a9d 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0a9e 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0a9f 0000 | | .XXX[0x1] 0aa0 ; -------------------------------------------------------------------------------------- 0aa0 ; SUBPROGRAM 0aa0 ; -------------------------------------------------------------------------------------- 0aa0 0aa3 | | .CONST 0x0aa3 ; Address of begin 0aa1 0004 | | .CONST 0x0004 ; Address of exception handler 0aa2 0001 | | .CONST 0x0001 ; Number of locals 0aa3 BODY_0aa0: 0aa3 INIT_0aa0: 0aa3 00da | | Load_Top At_Offset_2 0aa4 e00b | | Load 0x0,0xb 0aa5 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 0aa6 0b0f | | Execute_Immediate Case_Compare,0xf 0aa7 7004 |p | Jump_Nonzero 0xaac 0aa8 0f01 | | Execute_Immediate Equal,0x1 0aa9 700c |p | Jump_Nonzero 0xab6 0aaa e010 | | Load 0x0,0x10 0aab 0257 | W | Execute Discrete,Raise 0aac 00d1 | | Pop_Control Pop_Count_1 0aad e5ff | | Load 0x2,-0x1 0aae 0217 | | Execute Heap_Access,All_Reference 0aaf 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 0ab0 0219 | | Execute Heap_Access,All_Read 0ab1 e20f | | Load 0x1,0xf 0ab2 0119 | | Execute Any,Check_In_Formal_Type 0ab3 e5fe | | Load 0x2,-0x2 0ab4 8211 | | Call 0x1,0x11 0ab5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0ab6 00da | | Load_Top At_Offset_2 0ab7 e00b | | Load 0x0,0xb 0ab8 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0ab9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0aba 0000 0000 | | .BLANK 0000[0x6] 0ac0 ; -------------------------------------------------------------------------------------- 0ac0 ; SUBPROGRAM 0ac0 ; -------------------------------------------------------------------------------------- 0ac0 0ac5 | | .CONST 0x0ac5 ; Address of begin 0ac1 0acb | | .CONST 0x0acb ; Address of exception handler 0ac2 0002 | | .CONST 0x0002 ; Number of locals 0ac3 INIT_0ac0: 0ac3 029f 0ce3 | | Declare_Subprogram INIT_0ce0,For_Call 0ac5 BODY_0ac0: 0ac5 e7fe | | Load 0x3,-0x2 0ac6 e002 | | Load 0x0,0x2 0ac7 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0ac8 c7fe | | Store 0x3,-0x2 0ac9 8602 | | Call 0x3,0x2 0aca 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0acb TRAP_0ac0: 0acb 0007 | | Action Break_Optional 0acc e00e | | Load 0x0,0xe 0acd 180e | | Execute Package,Field_Execute,Field_Number 0xe 0ace e00b | | Load 0x0,0xb 0acf 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0ad0 6007 |` | Indirect_Literal Discrete,0xad8,{0x00000000, 0x00004026} 0ad1 e001 | | Load 0x0,0x1 0ad2 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0ad3 e00f | | Load 0x0,0xf 0ad4 0257 | W | Execute Discrete,Raise 0ad5 0000 0000 | | .XXX[0x3] 0ad7 0000 | | 0ad8 0000 0000 | | .LITERAL {0x00000000, 0x00004026} 0adc 0000 0000 | | .BLANK 0000[0x4] 0ae0 ; -------------------------------------------------------------------------------------- 0ae0 ; SUBPROGRAM 0ae0 ; -------------------------------------------------------------------------------------- 0ae0 0aef | | .CONST 0x0aef ; Address of begin 0ae1 0b2d | - | .CONST 0x0b2d ; Address of exception handler 0ae2 0004 | | .CONST 0x0004 ; Number of locals 0ae3 INIT_0ae0: 0ae3 4801 |H | Short_Literal 0x1 0ae4 4a00 |J | Short_Literal 0x200 0ae5 e003 | | Load 0x0,0x3 0ae6 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0ae7 035b | [ | Declare_Type Array,Constrained 0ae8 0337 | 7 | Declare_Variable Array 0ae9 00e3 | | Load_Encached Natural_Cache 0aea e003 | | Load 0x0,0x3 0aeb 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0aec 02c7 | | Declare_Variable Any 0aed 00d8 | | Load_Top At_Offset_0 0aee 1c00 | | Execute_Immediate Run_Utility,0x0 0aef BODY_0ae0: 0aef e7ff | | Load 0x3,-0x1 0af0 0092 1785 | | Action Push_String_Extended,0x1785 ; "<TEMP>" 0af2 01df | | Execute Vector,Equal 0af3 6805 |h | Jump_Zero 0xaf9 0af4 e5ff | | Load 0x2,-0x1 0af5 0217 | | Execute Heap_Access,All_Reference 0af6 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0af7 c604 | | Store 0x3,0x4 0af8 780b |x | Jump 0xb04 0af9 00d8 | | Load_Top At_Offset_0 0afa e011 | | Load 0x0,0x11 0afb 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0afc e012 | | Load 0x0,0x12 0afd 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0afe 00ea | | Load_Encached Null_String_Cache 0aff e7ff | | Load 0x3,-0x1 0b00 4800 |H | Short_Literal 0x0 0b01 e003 | | Load 0x0,0x3 0b02 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0b03 c604 | | Store 0x3,0x4 0b04 e7fd | | Load 0x3,-0x3 0b05 00ea | | Load_Encached Null_String_Cache 0b06 e7fe | | Load 0x3,-0x2 0b07 e002 | | Load 0x0,0x2 0b08 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0b09 c7fd | | Store 0x3,-0x3 0b0a 00cf | | Action Mark_Auxiliary 0b0b 780f |x | Jump 0xb1b 0b0c 00e3 | | Load_Encached Natural_Cache 0b0d e602 | | Load 0x3,0x2 0b0e 00db | | Load_Top At_Offset_3 0b0f e003 | | Load 0x0,0x3 0b10 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0b11 00d1 | | Pop_Control Pop_Count_1 0b12 005b | [ | Store_Top Discrete,At_Offset_3 0b13 4801 |H | Short_Literal 0x1 0b14 00db | | Load_Top At_Offset_3 0b15 e602 | | Load 0x3,0x2 0b16 01cf | | Execute Vector,Slice_Read 0b17 e7fd | | Load 0x3,-0x3 0b18 e002 | | Load 0x0,0x2 0b19 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 0b1a 00c9 | | Action Pop_Auxiliary_Loop 0b1b 00d9 | | Load_Top At_Offset_1 0b1c e003 | | Load 0x0,0x3 0b1d 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0b1e 6fed |o | Jump_Zero 0xb0c 0b1f 00ce | | Action Pop_Auxiliary 0b20 e7ff | | Load 0x3,-0x1 0b21 0092 1785 | | Action Push_String_Extended,0x1785 ; "<TEMP>" 0b23 01de | | Execute Vector,Not_Equal 0b24 6804 |h | Jump_Zero 0xb29 0b25 00d8 | | Load_Top At_Offset_0 0b26 e003 | | Load 0x0,0x3 0b27 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0b28 c604 | | Store 0x3,0x4 0b29 e7fd | | Load 0x3,-0x3 0b2a e002 | | Load 0x0,0x2 0b2b 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 0b2c 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0b2d TRAP_0ae0: 0b2d 0007 | | Action Break_Optional 0b2e e00e | | Load 0x0,0xe 0b2f 180e | | Execute Package,Field_Execute,Field_Number 0xe 0b30 4801 |H | Short_Literal 0x1 0b31 4802 |H | Short_Literal 0x2 0b32 e00b | | Load 0x0,0xb 0b33 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0b34 0334 | 4 | Declare_Variable Array,With_Constraint 0b35 e7ff | | Load 0x3,-0x1 0b36 e00b | | Load 0x0,0xb 0b37 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0b38 4801 |H | Short_Literal 0x1 0b39 00da | | Load_Top At_Offset_2 0b3a 01d6 | | Execute Vector,Field_Write 0b3b e7fe | | Load 0x3,-0x2 0b3c e00b | | Load 0x0,0xb 0b3d 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0b3e 4802 |H | Short_Literal 0x2 0b3f 00da | | Load_Top At_Offset_2 0b40 01d6 | | Execute Vector,Field_Write 0b41 6006 |` | Indirect_Literal Discrete,0xb48,{0x00000000, 0x00004025} 0b42 e001 | | Load 0x0,0x1 0b43 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0b44 e00f | | Load 0x0,0xf 0b45 0257 | W | Execute Discrete,Raise 0b46 0000 0000 | | .XXX[0x2] 0b48 0000 0000 | | .LITERAL {0x00000000, 0x00004025} 0b4c 0000 0000 | | .BLANK 0000[0x4] 0b50 ; -------------------------------------------------------------------------------------- 0b50 ; SUBPROGRAM 0b50 ; -------------------------------------------------------------------------------------- 0b50 0b57 | W | .CONST 0x0b57 ; Address of begin 0b51 0004 | | .CONST 0x0004 ; Address of exception handler 0b52 0003 | | .CONST 0x0003 ; Number of locals 0b53 INIT_0b50: 0b53 e403 | | Load 0x2,0x3 0b54 8013 | | Call 0x0,0x13 0b55 e404 | | Load 0x2,0x4 0b56 8406 | | Call 0x2,0x6 0b57 BODY_0b50: 0b57 e5fe | | Load 0x2,-0x2 0b58 8014 | | Call 0x0,0x14 0b59 7025 |p% | Jump_Nonzero 0xb7f 0b5a e5ff | | Load 0x2,-0x1 0b5b 0219 | | Execute Heap_Access,All_Read 0b5c 00d8 | | Load_Top At_Offset_0 0b5d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0b5e 00da | | Load_Top At_Offset_2 0b5f e602 | | Load 0x3,0x2 0b60 8408 | | Call 0x2,0x8 0b61 00d9 | | Load_Top At_Offset_1 0b62 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0b63 00d1 | | Pop_Control Pop_Count_1 0b64 e5fe | | Load 0x2,-0x2 0b65 e00d | | Load 0x0,0xd 0b66 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0b67 6816 |h | Jump_Zero 0xb7e 0b68 e00e | | Load 0x0,0xe 0b69 180e | | Execute Package,Field_Execute,Field_Number 0xe 0b6a 4801 |H | Short_Literal 0x1 0b6b 4802 |H | Short_Literal 0x2 0b6c e00b | | Load 0x0,0xb 0b6d 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0b6e 0334 | 4 | Declare_Variable Array,With_Constraint 0b6f 00db | | Load_Top At_Offset_3 0b70 e00b | | Load 0x0,0xb 0b71 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0b72 4801 |H | Short_Literal 0x1 0b73 00da | | Load_Top At_Offset_2 0b74 01d6 | | Execute Vector,Field_Write 0b75 00da | | Load_Top At_Offset_2 0b76 e00b | | Load 0x0,0xb 0b77 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0b78 4802 |H | Short_Literal 0x2 0b79 00da | | Load_Top At_Offset_2 0b7a 01d6 | | Execute Vector,Field_Write 0b7b 6068 |`h | Indirect_Literal Discrete,0xbe4,{0x00000000, 0x00004022} 0b7c e001 | | Load 0x0,0x1 0b7d 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0b7e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0b7f e5fe | | Load 0x2,-0x2 0b80 e00d | | Load 0x0,0xd 0b81 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0b82 7002 |p | Jump_Nonzero 0xb85 0b83 00cc | | Action Pop_Block 0b84 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0b85 e5ff | | Load 0x2,-0x1 0b86 0219 | | Execute Heap_Access,All_Read 0b87 e402 | | Load 0x2,0x2 0b88 00d9 | | Load_Top At_Offset_1 0b89 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0b8a e405 | | Load 0x2,0x5 0b8b 8015 | | Call 0x0,0x15 0b8c 00da | | Load_Top At_Offset_2 0b8d 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0b8e c402 | | Store 0x2,0x2 0b8f 00d1 | | Pop_Control Pop_Count_1 0b90 e402 | | Load 0x2,0x2 0b91 7005 |p | Jump_Nonzero 0xb97 0b92 4801 |H | Short_Literal 0x1 0b93 e5ff | | Load 0x2,-0x1 0b94 0217 | | Execute Heap_Access,All_Reference 0b95 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0b96 7806 |x | Jump 0xb9d 0b97 e402 | | Load 0x2,0x2 0b98 e5fe | | Load 0x2,-0x2 0b99 e00d | | Load 0x0,0xd 0b9a 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0b9b 00cc | | Action Pop_Block 0b9c 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0b9d e5ff | | Load 0x2,-0x1 0b9e 0219 | | Execute Heap_Access,All_Read 0b9f 00d8 | | Load_Top At_Offset_0 0ba0 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0ba1 e5fe | | Load 0x2,-0x2 0ba2 e016 | | Load 0x0,0x16 0ba3 a017 | | Store_Unchecked 0x0,0x17 0ba4 a018 | | Store_Unchecked 0x0,0x18 0ba5 a019 | | Store_Unchecked 0x0,0x19 0ba6 a01a | | Store_Unchecked 0x0,0x1a 0ba7 a01b | | Store_Unchecked 0x0,0x1b 0ba8 e01c | | Load 0x0,0x1c 0ba9 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0baa 00d9 | | Load_Top At_Offset_1 0bab 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0bac 00d1 | | Pop_Control Pop_Count_1 0bad e5ff | | Load 0x2,-0x1 0bae 0219 | | Execute Heap_Access,All_Read 0baf 00d8 | | Load_Top At_Offset_0 0bb0 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0bb1 4800 |H | Short_Literal 0x0 0bb2 e003 | | Load 0x0,0x3 0bb3 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0bb4 00d9 | | Load_Top At_Offset_1 0bb5 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0bb6 00d1 | | Pop_Control Pop_Count_1 0bb7 e5ff | | Load 0x2,-0x1 0bb8 0219 | | Execute Heap_Access,All_Read 0bb9 00d8 | | Load_Top At_Offset_0 0bba 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0bbb 00da | | Load_Top At_Offset_2 0bbc 0092 1785 | | Action Push_String_Extended,0x1785 ; "<TEMP>" 0bbe 8408 | | Call 0x2,0x8 0bbf 00d9 | | Load_Top At_Offset_1 0bc0 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0bc1 00d1 | | Pop_Control Pop_Count_1 0bc2 e5fe | | Load 0x2,-0x2 0bc3 e00d | | Load 0x0,0xd 0bc4 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0bc5 6816 |h | Jump_Zero 0xbdc 0bc6 e00e | | Load 0x0,0xe 0bc7 180e | | Execute Package,Field_Execute,Field_Number 0xe 0bc8 4801 |H | Short_Literal 0x1 0bc9 4802 |H | Short_Literal 0x2 0bca e00b | | Load 0x0,0xb 0bcb 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0bcc 0334 | 4 | Declare_Variable Array,With_Constraint 0bcd 00db | | Load_Top At_Offset_3 0bce e00b | | Load 0x0,0xb 0bcf 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0bd0 4801 |H | Short_Literal 0x1 0bd1 00da | | Load_Top At_Offset_2 0bd2 01d6 | | Execute Vector,Field_Write 0bd3 00da | | Load_Top At_Offset_2 0bd4 e00b | | Load 0x0,0xb 0bd5 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0bd6 4802 |H | Short_Literal 0x2 0bd7 00da | | Load_Top At_Offset_2 0bd8 01d6 | | Execute Vector,Field_Write 0bd9 6006 |` | Indirect_Literal Discrete,0xbe0,{0x00000000, 0x00004021} 0bda e001 | | Load 0x0,0x1 0bdb 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0bdc 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0bdd 0000 0000 | | .XXX[0x3] 0bdf 0000 | | 0be0 0000 0000 | | .LITERAL {0x00000000, 0x00004021} 0be4 0000 0000 | | .LITERAL {0x00000000, 0x00004022} 0be8 ; -------------------------------------------------------------------------------------- 0be8 ; SUBPROGRAM 0be8 ; -------------------------------------------------------------------------------------- 0be8 0bed | | .CONST 0x0bed ; Address of begin 0be9 0004 | | .CONST 0x0004 ; Address of exception handler 0bea 0002 | | .CONST 0x0002 ; Number of locals 0beb INIT_0be8: 0beb e403 | | Load 0x2,0x3 0bec 8013 | | Call 0x0,0x13 0bed BODY_0be8: 0bed e5fe | | Load 0x2,-0x2 0bee 801d | | Call 0x0,0x1d 0bef 7028 |p( | Jump_Nonzero 0xc18 0bf0 e403 | | Load 0x2,0x3 0bf1 e00b | | Load 0x0,0xb 0bf2 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 0bf3 0f01 | | Execute_Immediate Equal,0x1 0bf4 6823 |h# | Jump_Zero 0xc18 0bf5 e403 | | Load 0x2,0x3 0bf6 e00b | | Load 0x0,0xb 0bf7 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0bf8 01db | | Execute Vector,Length 0bf9 681e |h | Jump_Zero 0xc18 0bfa e5ff | | Load 0x2,-0x1 0bfb 0219 | | Execute Heap_Access,All_Read 0bfc 00d8 | | Load_Top At_Offset_0 0bfd 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0bfe 00da | | Load_Top At_Offset_2 0bff 8407 | | Call 0x2,0x7 0c00 00d9 | | Load_Top At_Offset_1 0c01 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0c02 00d1 | | Pop_Control Pop_Count_1 0c03 e5fe | | Load 0x2,-0x2 0c04 e00d | | Load 0x0,0xd 0c05 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0c06 6810 |h | Jump_Zero 0xc17 0c07 e00e | | Load 0x0,0xe 0c08 180e | | Execute Package,Field_Execute,Field_Number 0xe 0c09 4801 |H | Short_Literal 0x1 0c0a 4801 |H | Short_Literal 0x1 0c0b e00b | | Load 0x0,0xb 0c0c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0c0d 0334 | 4 | Declare_Variable Array,With_Constraint 0c0e 00da | | Load_Top At_Offset_2 0c0f e00b | | Load 0x0,0xb 0c10 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0c11 4801 |H | Short_Literal 0x1 0c12 00da | | Load_Top At_Offset_2 0c13 01d6 | | Execute Vector,Field_Write 0c14 605b |`[ | Indirect_Literal Discrete,0xc70,{0x00000000, 0x00004024} 0c15 e001 | | Load 0x0,0x1 0c16 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0c17 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0c18 e5ff | | Load 0x2,-0x1 0c19 0219 | | Execute Heap_Access,All_Read 0c1a e402 | | Load 0x2,0x2 0c1b 00d9 | | Load_Top At_Offset_1 0c1c 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0c1d e405 | | Load 0x2,0x5 0c1e 8015 | | Call 0x0,0x15 0c1f 00da | | Load_Top At_Offset_2 0c20 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0c21 c402 | | Store 0x2,0x2 0c22 00d1 | | Pop_Control Pop_Count_1 0c23 e402 | | Load 0x2,0x2 0c24 7005 |p | Jump_Nonzero 0xc2a 0c25 4801 |H | Short_Literal 0x1 0c26 e5ff | | Load 0x2,-0x1 0c27 0217 | | Execute Heap_Access,All_Reference 0c28 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0c29 7806 |x | Jump 0xc30 0c2a e402 | | Load 0x2,0x2 0c2b e5fe | | Load 0x2,-0x2 0c2c e00d | | Load 0x0,0xd 0c2d 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0c2e 00cc | | Action Pop_Block 0c2f 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0c30 e5ff | | Load 0x2,-0x1 0c31 0219 | | Execute Heap_Access,All_Read 0c32 00d8 | | Load_Top At_Offset_0 0c33 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0c34 0092 1785 | | Action Push_String_Extended,0x1785 ; "<TEMP>" 0c36 8407 | | Call 0x2,0x7 0c37 00d9 | | Load_Top At_Offset_1 0c38 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0c39 00d1 | | Pop_Control Pop_Count_1 0c3a e5ff | | Load 0x2,-0x1 0c3b 0219 | | Execute Heap_Access,All_Read 0c3c 00d8 | | Load_Top At_Offset_0 0c3d 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0c3e 4800 |H | Short_Literal 0x0 0c3f e003 | | Load 0x0,0x3 0c40 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0c41 00d9 | | Load_Top At_Offset_1 0c42 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0c43 00d1 | | Pop_Control Pop_Count_1 0c44 e5ff | | Load 0x2,-0x1 0c45 0219 | | Execute Heap_Access,All_Read 0c46 00d8 | | Load_Top At_Offset_0 0c47 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0c48 e5fe | | Load 0x2,-0x2 0c49 e016 | | Load 0x0,0x16 0c4a a017 | | Store_Unchecked 0x0,0x17 0c4b a018 | | Store_Unchecked 0x0,0x18 0c4c a019 | | Store_Unchecked 0x0,0x19 0c4d a01a | | Store_Unchecked 0x0,0x1a 0c4e a01b | | Store_Unchecked 0x0,0x1b 0c4f e01c | | Load 0x0,0x1c 0c50 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0c51 00d9 | | Load_Top At_Offset_1 0c52 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0c53 00d1 | | Pop_Control Pop_Count_1 0c54 e5fe | | Load 0x2,-0x2 0c55 e00d | | Load 0x0,0xd 0c56 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0c57 6810 |h | Jump_Zero 0xc68 0c58 e00e | | Load 0x0,0xe 0c59 180e | | Execute Package,Field_Execute,Field_Number 0xe 0c5a 4801 |H | Short_Literal 0x1 0c5b 4801 |H | Short_Literal 0x1 0c5c e00b | | Load 0x0,0xb 0c5d 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0c5e 0334 | 4 | Declare_Variable Array,With_Constraint 0c5f 00da | | Load_Top At_Offset_2 0c60 e00b | | Load 0x0,0xb 0c61 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0c62 4801 |H | Short_Literal 0x1 0c63 00da | | Load_Top At_Offset_2 0c64 01d6 | | Execute Vector,Field_Write 0c65 6006 |` | Indirect_Literal Discrete,0xc6c,{0x00000000, 0x00004023} 0c66 e001 | | Load 0x0,0x1 0c67 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0c68 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0c69 0000 0000 | | .XXX[0x3] 0c6b 0000 | | 0c6c 0000 0000 | | .LITERAL {0x00000000, 0x00004023} 0c70 0000 0000 | | .LITERAL {0x00000000, 0x00004024} 0c74 0000 0000 | | .BLANK 0000[0x4] 0c78 ; -------------------------------------------------------------------------------------- 0c78 ; SUBPROGRAM 0c78 ; -------------------------------------------------------------------------------------- 0c78 0c7f | | .CONST 0x0c7f ; Address of begin 0c79 0004 | | .CONST 0x0004 ; Address of exception handler 0c7a 0003 | | .CONST 0x0003 ; Number of locals 0c7b INIT_0c78: 0c7b e404 | | Load 0x2,0x4 0c7c 8013 | | Call 0x0,0x13 0c7d e403 | | Load 0x2,0x3 0c7e 8406 | | Call 0x2,0x6 0c7f BODY_0c78: 0c7f e5ff | | Load 0x2,-0x1 0c80 0219 | | Execute Heap_Access,All_Read 0c81 e402 | | Load 0x2,0x2 0c82 00d9 | | Load_Top At_Offset_1 0c83 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0c84 e405 | | Load 0x2,0x5 0c85 8015 | | Call 0x0,0x15 0c86 00da | | Load_Top At_Offset_2 0c87 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0c88 c402 | | Store 0x2,0x2 0c89 00d1 | | Pop_Control Pop_Count_1 0c8a e402 | | Load 0x2,0x2 0c8b 7005 |p | Jump_Nonzero 0xc91 0c8c 4801 |H | Short_Literal 0x1 0c8d e5ff | | Load 0x2,-0x1 0c8e 0217 | | Execute Heap_Access,All_Reference 0c8f 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0c90 7806 |x | Jump 0xc97 0c91 e402 | | Load 0x2,0x2 0c92 e5fe | | Load 0x2,-0x2 0c93 e00d | | Load 0x0,0xd 0c94 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0c95 00cc | | Action Pop_Block 0c96 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0c97 e5ff | | Load 0x2,-0x1 0c98 0219 | | Execute Heap_Access,All_Read 0c99 00d8 | | Load_Top At_Offset_0 0c9a 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0c9b e5fe | | Load 0x2,-0x2 0c9c e016 | | Load 0x0,0x16 0c9d a017 | | Store_Unchecked 0x0,0x17 0c9e a018 | | Store_Unchecked 0x0,0x18 0c9f a019 | | Store_Unchecked 0x0,0x19 0ca0 a01a | | Store_Unchecked 0x0,0x1a 0ca1 a01b | | Store_Unchecked 0x0,0x1b 0ca2 e01c | | Load 0x0,0x1c 0ca3 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0ca4 00d9 | | Load_Top At_Offset_1 0ca5 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0ca6 00d1 | | Pop_Control Pop_Count_1 0ca7 e5ff | | Load 0x2,-0x1 0ca8 0219 | | Execute Heap_Access,All_Read 0ca9 00d8 | | Load_Top At_Offset_0 0caa 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0cab 4800 |H | Short_Literal 0x0 0cac e003 | | Load 0x0,0x3 0cad 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0cae 00d9 | | Load_Top At_Offset_1 0caf 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0cb0 00d1 | | Pop_Control Pop_Count_1 0cb1 e5ff | | Load 0x2,-0x1 0cb2 0219 | | Execute Heap_Access,All_Read 0cb3 00d8 | | Load_Top At_Offset_0 0cb4 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0cb5 00da | | Load_Top At_Offset_2 0cb6 0092 1785 | | Action Push_String_Extended,0x1785 ; "<TEMP>" 0cb8 8408 | | Call 0x2,0x8 0cb9 00d9 | | Load_Top At_Offset_1 0cba 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0cbb 00d1 | | Pop_Control Pop_Count_1 0cbc e5fe | | Load 0x2,-0x2 0cbd e00d | | Load 0x0,0xd 0cbe 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0cbf 6816 |h | Jump_Zero 0xcd6 0cc0 e00e | | Load 0x0,0xe 0cc1 180e | | Execute Package,Field_Execute,Field_Number 0xe 0cc2 4801 |H | Short_Literal 0x1 0cc3 4802 |H | Short_Literal 0x2 0cc4 e00b | | Load 0x0,0xb 0cc5 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0cc6 0334 | 4 | Declare_Variable Array,With_Constraint 0cc7 00db | | Load_Top At_Offset_3 0cc8 e00b | | Load 0x0,0xb 0cc9 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0cca 4801 |H | Short_Literal 0x1 0ccb 00da | | Load_Top At_Offset_2 0ccc 01d6 | | Execute Vector,Field_Write 0ccd 00da | | Load_Top At_Offset_2 0cce e00b | | Load 0x0,0xb 0ccf 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0cd0 4802 |H | Short_Literal 0x2 0cd1 00da | | Load_Top At_Offset_2 0cd2 01d6 | | Execute Vector,Field_Write 0cd3 6004 |` | Indirect_Literal Discrete,0xcd8,{0x00000000, 0x00004021} 0cd4 e001 | | Load 0x0,0x1 0cd5 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0cd6 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0cd7 0000 | | .XXX[0x1] 0cd8 0000 0000 | | .LITERAL {0x00000000, 0x00004021} 0cdc 0000 0000 | | .BLANK 0000[0x4] 0ce0 ; -------------------------------------------------------------------------------------- 0ce0 ; SUBPROGRAM 0ce0 ; -------------------------------------------------------------------------------------- 0ce0 0cf7 | | .CONST 0x0cf7 ; Address of begin 0ce1 0004 | | .CONST 0x0004 ; Address of exception handler 0ce2 0007 | | .CONST 0x0007 ; Number of locals 0ce3 INIT_0ce0: 0ce3 e003 | | Load 0x0,0x3 0ce4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0ce5 02c7 | | Declare_Variable Any 0ce6 00d8 | | Load_Top At_Offset_0 0ce7 1c00 | | Execute_Immediate Run_Utility,0x0 0ce8 e7fe | | Load 0x3,-0x2 0ce9 e002 | | Load 0x0,0x2 0cea 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0ceb e7fe | | Load 0x3,-0x2 0cec e002 | | Load 0x0,0x2 0ced 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 0cee 4801 |H | Short_Literal 0x1 0cef 00d9 | | Load_Top At_Offset_1 0cf0 e003 | | Load 0x0,0x3 0cf1 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0cf2 035b | [ | Declare_Type Array,Constrained 0cf3 0337 | 7 | Declare_Variable Array 0cf4 00e3 | | Load_Encached Natural_Cache 0cf5 029f 0d3b | ;| Declare_Subprogram INIT_0d38,For_Call 0cf7 BODY_0ce0: 0cf7 e7ff | | Load 0x3,-0x1 0cf8 0092 1785 | | Action Push_String_Extended,0x1785 ; "<TEMP>" 0cfa 01df | | Execute Vector,Equal 0cfb 6805 |h | Jump_Zero 0xd01 0cfc e5ff | | Load 0x2,-0x1 0cfd 0217 | | Execute Heap_Access,All_Reference 0cfe 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0cff c802 | | Store 0x4,0x2 0d00 780d |x | Jump 0xd0e 0d01 e802 | | Load 0x4,0x2 0d02 e011 | | Load 0x0,0x11 0d03 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0d04 e012 | | Load 0x0,0x12 0d05 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0d06 e012 | | Load 0x0,0x12 0d07 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0d08 00ea | | Load_Encached Null_String_Cache 0d09 8807 | | Call 0x4,0x7 0d0a 4801 |H | Short_Literal 0x1 0d0b e003 | | Load 0x0,0x3 0d0c 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0d0d c802 | | Store 0x4,0x2 0d0e 00cf | | Action Mark_Auxiliary 0d0f 780f |x | Jump 0xd1f 0d10 00e3 | | Load_Encached Natural_Cache 0d11 e805 | | Load 0x4,0x5 0d12 e7fe | | Load 0x3,-0x2 0d13 e002 | | Load 0x0,0x2 0d14 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0d15 00d1 | | Pop_Control Pop_Count_1 0d16 005b | [ | Store_Top Discrete,At_Offset_3 0d17 4801 |H | Short_Literal 0x1 0d18 00db | | Load_Top At_Offset_3 0d19 e805 | | Load 0x4,0x5 0d1a 01cf | | Execute Vector,Slice_Read 0d1b e802 | | Load 0x4,0x2 0d1c e003 | | Load 0x0,0x3 0d1d 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0d1e 00c9 | | Action Pop_Auxiliary_Loop 0d1f e7fe | | Load 0x3,-0x2 0d20 e002 | | Load 0x0,0x2 0d21 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33 0d22 6fed |o | Jump_Zero 0xd10 0d23 00ce | | Action Pop_Auxiliary 0d24 e7ff | | Load 0x3,-0x1 0d25 0092 1785 | | Action Push_String_Extended,0x1785 ; "<TEMP>" 0d27 01de | | Execute Vector,Not_Equal 0d28 6804 |h | Jump_Zero 0xd2d 0d29 e802 | | Load 0x4,0x2 0d2a e003 | | Load 0x0,0x3 0d2b 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0d2c c802 | | Store 0x4,0x2 0d2d e7fe | | Load 0x3,-0x2 0d2e e002 | | Load 0x0,0x2 0d2f 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 0d30 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0d31 0000 0000 | | .BLANK 0000[0x7] 0d38 ; -------------------------------------------------------------------------------------- 0d38 ; SUBPROGRAM 0d38 ; -------------------------------------------------------------------------------------- 0d38 0d3b | ; | .CONST 0x0d3b ; Address of begin 0d39 0004 | | .CONST 0x0004 ; Address of exception handler 0d3a 0001 | | .CONST 0x0001 ; Number of locals 0d3b BODY_0d38: 0d3b INIT_0d38: 0d3b e7ff | | Load 0x3,-0x1 0d3c 01db | | Execute Vector,Length 0d3d 7002 |p | Jump_Nonzero 0xd40 0d3e e803 | | Load 0x4,0x3 0d3f 00ca | | Action Exit_Nullary_Function 0d40 e7ff | | Load 0x3,-0x1 0d41 0335 | 5 | Declare_Variable Array,Duplicate 0d42 00cd | | Action Spare6_Action 0d43 00ca | | Action Exit_Nullary_Function 0d44 0000 0000 | | .BLANK 0000[0x4] 0d48 ; -------------------------------------------------------------------------------------- 0d48 ; SUBPROGRAM 0d48 ; -------------------------------------------------------------------------------------- 0d48 0db2 | | .CONST 0x0db2 ; Address of begin 0d49 0004 | | .CONST 0x0004 ; Address of exception handler 0d4a 0028 | ( | .CONST 0x0028 ; Number of locals 0d4b INIT_0d48: 0d4b 03a9 | | Declare_Type Heap_Access,Indirect_Literal,Visible 0d4c 029a 0dbb | | Declare_Subprogram INIT_0db8,For_Outer_Call,Visible,Unelaborated 0d4e 029a 0e53 | S| Declare_Subprogram INIT_0e50,For_Outer_Call,Visible,Unelaborated 0d50 029a 0ed3 | | Declare_Subprogram INIT_0ed0,For_Outer_Call,Visible,Unelaborated 0d52 029a 0edb | | Declare_Subprogram INIT_0ed8,For_Outer_Call,Visible,Unelaborated 0d54 029a 0f8b | | Declare_Subprogram INIT_0f88,For_Outer_Call,Visible,Unelaborated 0d56 029a 0fab | | Declare_Subprogram INIT_0fa8,For_Outer_Call,Visible,Unelaborated 0d58 029a 0fb3 | | Declare_Subprogram INIT_0fb0,For_Outer_Call,Visible,Unelaborated 0d5a 029a 0fc3 | | Declare_Subprogram INIT_0fc0,For_Outer_Call,Visible,Unelaborated 0d5c 029a 0fd3 | | Declare_Subprogram INIT_0fd0,For_Outer_Call,Visible,Unelaborated 0d5e 029a 0fdb | | Declare_Subprogram INIT_0fd8,For_Outer_Call,Visible,Unelaborated 0d60 029a 0fe3 | | Declare_Subprogram INIT_0fe0,For_Outer_Call,Visible,Unelaborated 0d62 029a 0feb | | Declare_Subprogram INIT_0fe8,For_Outer_Call,Visible,Unelaborated 0d64 029a 0ffb | | Declare_Subprogram INIT_0ff8,For_Outer_Call,Visible,Unelaborated 0d66 029a 100b | | Declare_Subprogram INIT_1008,For_Outer_Call,Visible,Unelaborated 0d68 4809 |H | Short_Literal 0x9 0d69 032a | * | Declare_Type Record,Incomplete 0d6a 00d8 | | Load_Top At_Offset_0 0d6b 02a0 | | Declare_Subprogram Null_Subprogram 0d6c e212 | | Load 0x1,0x12 0d6d 03a3 | | Complete_Type Heap_Access,By_Defining 0d6e 00bf | | Action Accept_Activation 0d6f e001 | | Load 0x0,0x1 0d70 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0d71 e002 | | Load 0x0,0x2 0d72 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0d73 e003 | | Load 0x0,0x3 0d74 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0d75 e004 | | Load 0x0,0x4 0d76 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0d77 00e1 | | Load_Encached Boolean_Cache 0d78 e002 | | Load 0x0,0x2 0d79 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0d7a 00e1 | | Load_Encached Boolean_Cache 0d7b e005 | | Load 0x0,0x5 0d7c 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0d7d e210 | | Load 0x1,0x10 0d7e 029f 1013 | | Declare_Subprogram INIT_1010,For_Call 0d80 e221 | ! | Load 0x1,0x21 0d81 0326 | & | Complete_Type Record,By_Defining 0d82 1d13 | | Execute_Immediate Reference_Lex_1,0x13 0d83 00c7 | | Action Elaborate_Subprogram 0d84 1d14 | | Execute_Immediate Reference_Lex_1,0x14 0d85 00c7 | | Action Elaborate_Subprogram 0d86 1d15 | | Execute_Immediate Reference_Lex_1,0x15 0d87 00c7 | | Action Elaborate_Subprogram 0d88 029d 103b | ;| Declare_Subprogram INIT_1038,For_Outer_Call 0d8a 1d16 | | Execute_Immediate Reference_Lex_1,0x16 0d8b 00c7 | | Action Elaborate_Subprogram 0d8c 1d17 | | Execute_Immediate Reference_Lex_1,0x17 0d8d 00c7 | | Action Elaborate_Subprogram 0d8e 1d18 | | Execute_Immediate Reference_Lex_1,0x18 0d8f 00c7 | | Action Elaborate_Subprogram 0d90 1d19 | | Execute_Immediate Reference_Lex_1,0x19 0d91 00c7 | | Action Elaborate_Subprogram 0d92 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 0d93 00c7 | | Action Elaborate_Subprogram 0d94 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 0d95 00c7 | | Action Elaborate_Subprogram 0d96 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 0d97 00c7 | | Action Elaborate_Subprogram 0d98 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 0d99 00c7 | | Action Elaborate_Subprogram 0d9a 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 0d9b 00c7 | | Action Elaborate_Subprogram 0d9c e006 | | Load 0x0,0x6 0d9d e007 | | Load 0x0,0x7 0d9e 00db | | Load_Top At_Offset_3 0d9f e212 | | Load 0x1,0x12 0da0 e008 | | Load 0x0,0x8 0da1 1b18 | | Execute Package,Field_Read,Field_Number 0x18 0da2 0387 | | Declare_Variable Package 0da3 00d8 | | Load_Top At_Offset_0 0da4 020f | | Execute Module,Activate 0da5 e008 | | Load 0x0,0x8 0da6 1919 | | Execute Package,Field_Reference,Field_Number 0x19 0da7 00c6 | | Action Check_Subprogram_Elaborated 0da8 00da | | Load_Top At_Offset_2 0da9 e212 | | Load 0x1,0x12 0daa e009 | | Load 0x0,0x9 0dab e00a | | Load 0x0,0xa 0dac 4800 |H | Short_Literal 0x0 0dad 0007 | | Action Break_Optional 0dae 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 0daf 00c7 | | Action Elaborate_Subprogram 0db0 1d20 | | Execute_Immediate Reference_Lex_1,0x20 0db1 00c7 | | Action Elaborate_Subprogram 0db2 BODY_0d48: 0db2 00bc | | Action Signal_Activated 0db3 00bb | | Action Signal_Completion 0db4 0000 0000 | | .BLANK 0000[0x4] 0db8 ; -------------------------------------------------------------------------------------- 0db8 ; SUBPROGRAM 0db8 ; -------------------------------------------------------------------------------------- 0db8 0dc7 | | .CONST 0x0dc7 ; Address of begin 0db9 0e0a | | .CONST 0x0e0a ; Address of exception handler 0dba 0003 | | .CONST 0x0003 ; Number of locals 0dbb INIT_0db8: 0dbb e004 | | Load 0x0,0x4 0dbc 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0dbd 02c7 | | Declare_Variable Any 0dbe 00d8 | | Load_Top At_Offset_0 0dbf 1c00 | | Execute_Immediate Run_Utility,0x0 0dc0 e212 | | Load 0x1,0x12 0dc1 e00b | | Load 0x0,0xb 0dc2 180d | | Execute Package,Field_Execute,Field_Number 0xd 0dc3 039c | | Declare_Variable Heap_Access,By_Allocation 0dc4 00d8 | | Load_Top At_Offset_0 0dc5 0217 | | Execute Heap_Access,All_Reference 0dc6 1c00 | | Execute_Immediate Run_Utility,0x0 0dc7 BODY_0db8: 0dc7 e5ff | | Load 0x2,-0x1 0dc8 e20f | | Load 0x1,0xf 0dc9 0119 | | Execute Any,Check_In_Formal_Type 0dca e210 | | Load 0x1,0x10 0dcb e00b | | Load 0x0,0xb 0dcc 180d | | Execute Package,Field_Execute,Field_Number 0xd 0dcd 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value 0dce 00d9 | | Load_Top At_Offset_1 0dcf 0217 | | Execute Heap_Access,All_Reference 0dd0 3808 |8 | Execute Record,Field_Write,Field_Number 0x8 0dd1 e5fa | | Load 0x2,-0x6 0dd2 00da | | Load_Top At_Offset_2 0dd3 e5fd | | Load 0x2,-0x3 0dd4 e5fe | | Load 0x2,-0x2 0dd5 800c | | Call 0x0,0xc 0dd6 c402 | | Store 0x2,0x2 0dd7 c5fa | | Store 0x2,-0x6 0dd8 e5fa | | Load 0x2,-0x6 0dd9 7010 |p | Jump_Nonzero 0xdea 0dda e00d | | Load 0x0,0xd 0ddb 180e | | Execute Package,Field_Execute,Field_Number 0xe 0ddc 4801 |H | Short_Literal 0x1 0ddd 4801 |H | Short_Literal 0x1 0dde e00e | | Load 0x0,0xe 0ddf 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0de0 0334 | 4 | Declare_Variable Array,With_Constraint 0de1 e5fe | | Load 0x2,-0x2 0de2 e00e | | Load 0x0,0xe 0de3 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0de4 4801 |H | Short_Literal 0x1 0de5 00da | | Load_Top At_Offset_2 0de6 01d6 | | Execute Vector,Field_Write 0de7 6064 |`d | Indirect_Literal Discrete,0xe4c,{0x00000000, 0x00004029} 0de8 e001 | | Load 0x0,0x1 0de9 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0dea e5fa | | Load 0x2,-0x6 0deb 00d9 | | Load_Top At_Offset_1 0dec 0217 | | Execute Heap_Access,All_Reference 0ded 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0dee e5fc | | Load 0x2,-0x4 0def 00d9 | | Load_Top At_Offset_1 0df0 0217 | | Execute Heap_Access,All_Reference 0df1 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0df2 00d9 | | Load_Top At_Offset_1 0df3 00d9 | | Load_Top At_Offset_1 0df4 0217 | | Execute Heap_Access,All_Reference 0df5 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0df6 4801 |H | Short_Literal 0x1 0df7 00d9 | | Load_Top At_Offset_1 0df8 0217 | | Execute Heap_Access,All_Reference 0df9 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0dfa 4800 |H | Short_Literal 0x0 0dfb 00d9 | | Load_Top At_Offset_1 0dfc 0217 | | Execute Heap_Access,All_Reference 0dfd 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 0dfe e005 | | Load 0x0,0x5 0dff 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0e00 00d9 | | Load_Top At_Offset_1 0e01 0217 | | Execute Heap_Access,All_Reference 0e02 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 0e03 00d8 | | Load_Top At_Offset_0 0e04 a5fb | | Store_Unchecked 0x2,-0x5 0e05 00d8 | | Load_Top At_Offset_0 0e06 0217 | | Execute Heap_Access,All_Reference 0e07 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0e08 a5fa | | Store_Unchecked 0x2,-0x6 0e09 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0e0a TRAP_0db8: 0e0a e00f | | Load 0x0,0xf 0e0b 010f | | Execute Exception,Equal 0e0c 681a |h | Jump_Zero 0xe27 0e0d e001 | | Load 0x0,0x1 0e0e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0e0f 4801 |H | Short_Literal 0x1 0e10 4802 |H | Short_Literal 0x2 0e11 e00e | | Load 0x0,0xe 0e12 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0e13 0334 | 4 | Declare_Variable Array,With_Constraint 0e14 e5fe | | Load 0x2,-0x2 0e15 e00e | | Load 0x0,0xe 0e16 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0e17 4801 |H | Short_Literal 0x1 0e18 00da | | Load_Top At_Offset_2 0e19 01d6 | | Execute Vector,Field_Write 0e1a e5fd | | Load 0x2,-0x3 0e1b e00e | | Load 0x0,0xe 0e1c 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0e1d 4802 |H | Short_Literal 0x2 0e1e 00da | | Load_Top At_Offset_2 0e1f 01d6 | | Execute Vector,Field_Write 0e20 6027 |`' | Indirect_Literal Discrete,0xe48,{0x00000000, 0x0000400a} 0e21 e001 | | Load 0x0,0x1 0e22 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0e23 c5fa | | Store 0x2,-0x6 0e24 e212 | | Load 0x1,0x12 0e25 a5fb | | Store_Unchecked 0x2,-0x5 0e26 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0e27 010b | | Execute Exception,Is_Storage_Error 0e28 681a |h | Jump_Zero 0xe43 0e29 e001 | | Load 0x0,0x1 0e2a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0e2b 4801 |H | Short_Literal 0x1 0e2c 4802 |H | Short_Literal 0x2 0e2d e00e | | Load 0x0,0xe 0e2e 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0e2f 0334 | 4 | Declare_Variable Array,With_Constraint 0e30 e5fe | | Load 0x2,-0x2 0e31 e00e | | Load 0x0,0xe 0e32 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0e33 4801 |H | Short_Literal 0x1 0e34 00da | | Load_Top At_Offset_2 0e35 01d6 | | Execute Vector,Field_Write 0e36 e5fd | | Load 0x2,-0x3 0e37 e00e | | Load 0x0,0xe 0e38 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0e39 4802 |H | Short_Literal 0x2 0e3a 00da | | Load_Top At_Offset_2 0e3b 01d6 | | Execute Vector,Field_Write 0e3c 6007 |` | Indirect_Literal Discrete,0xe44,{0x00000000, 0x00004003} 0e3d e001 | | Load 0x0,0x1 0e3e 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0e3f c5fa | | Store 0x2,-0x6 0e40 e212 | | Load 0x1,0x12 0e41 a5fb | | Store_Unchecked 0x2,-0x5 0e42 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0e43 0100 | | Execute Exception,Raise 0e44 0000 0000 | | .LITERAL {0x00000000, 0x00004003} 0e48 0000 0000 | | .LITERAL {0x00000000, 0x0000400a} 0e4c 0000 0000 | | .LITERAL {0x00000000, 0x00004029} 0e50 ; -------------------------------------------------------------------------------------- 0e50 ; SUBPROGRAM 0e50 ; -------------------------------------------------------------------------------------- 0e50 0e5f | _ | .CONST 0x0e5f ; Address of begin 0e51 0eae | | .CONST 0x0eae ; Address of exception handler 0e52 0003 | | .CONST 0x0003 ; Number of locals 0e53 INIT_0e50: 0e53 e002 | | Load 0x0,0x2 0e54 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0e55 02c7 | | Declare_Variable Any 0e56 00d8 | | Load_Top At_Offset_0 0e57 1c00 | | Execute_Immediate Run_Utility,0x0 0e58 e212 | | Load 0x1,0x12 0e59 e00b | | Load 0x0,0xb 0e5a 180d | | Execute Package,Field_Execute,Field_Number 0xd 0e5b 039c | | Declare_Variable Heap_Access,By_Allocation 0e5c 00d8 | | Load_Top At_Offset_0 0e5d 0217 | | Execute Heap_Access,All_Reference 0e5e 1c00 | | Execute_Immediate Run_Utility,0x0 0e5f BODY_0e50: 0e5f e5ff | | Load 0x2,-0x1 0e60 e20f | | Load 0x1,0xf 0e61 0119 | | Execute Any,Check_In_Formal_Type 0e62 e210 | | Load 0x1,0x10 0e63 e00b | | Load 0x0,0xb 0e64 180d | | Execute Package,Field_Execute,Field_Number 0xd 0e65 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value 0e66 00d9 | | Load_Top At_Offset_1 0e67 0217 | | Execute Heap_Access,All_Reference 0e68 3808 |8 | Execute Record,Field_Write,Field_Number 0x8 0e69 e001 | | Load 0x0,0x1 0e6a 180e | | Execute Package,Field_Execute,Field_Number 0xe 0e6b 00d9 | | Load_Top At_Offset_1 0e6c 0217 | | Execute Heap_Access,All_Reference 0e6d 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0e6e e5fd | | Load 0x2,-0x3 0e6f 00d9 | | Load_Top At_Offset_1 0e70 0217 | | Execute Heap_Access,All_Reference 0e71 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0e72 e5fe | | Load 0x2,-0x2 0e73 00d9 | | Load_Top At_Offset_1 0e74 0217 | | Execute Heap_Access,All_Reference 0e75 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0e76 00d9 | | Load_Top At_Offset_1 0e77 e010 | | Load 0x0,0x10 0e78 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0e79 e004 | | Load 0x0,0x4 0e7a 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0e7b e004 | | Load 0x0,0x4 0e7c 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0e7d 00ea | | Load_Encached Null_String_Cache 0e7e e5fe | | Load 0x2,-0x2 0e7f e004 | | Load 0x0,0x4 0e80 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0e81 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 0e82 4801 |H | Short_Literal 0x1 0e83 e002 | | Load 0x0,0x2 0e84 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0e85 c402 | | Store 0x2,0x2 0e86 e00d | | Load 0x0,0xd 0e87 180e | | Execute Package,Field_Execute,Field_Number 0xe 0e88 4801 |H | Short_Literal 0x1 0e89 4801 |H | Short_Literal 0x1 0e8a e00e | | Load 0x0,0xe 0e8b 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0e8c 0334 | 4 | Declare_Variable Array,With_Constraint 0e8d e5fe | | Load 0x2,-0x2 0e8e e00e | | Load 0x0,0xe 0e8f 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0e90 4801 |H | Short_Literal 0x1 0e91 00da | | Load_Top At_Offset_2 0e92 01d6 | | Execute Vector,Field_Write 0e93 6034 |`4 | Indirect_Literal Discrete,0xec8,{0x00000000, 0x0000402a} 0e94 e001 | | Load 0x0,0x1 0e95 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0e96 00d9 | | Load_Top At_Offset_1 0e97 00d9 | | Load_Top At_Offset_1 0e98 0217 | | Execute Heap_Access,All_Reference 0e99 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0e9a 4800 |H | Short_Literal 0x0 0e9b 00d9 | | Load_Top At_Offset_1 0e9c 0217 | | Execute Heap_Access,All_Reference 0e9d 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0e9e 4800 |H | Short_Literal 0x0 0e9f 00d9 | | Load_Top At_Offset_1 0ea0 0217 | | Execute Heap_Access,All_Reference 0ea1 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 0ea2 e005 | | Load 0x0,0x5 0ea3 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0ea4 00d9 | | Load_Top At_Offset_1 0ea5 0217 | | Execute Heap_Access,All_Reference 0ea6 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 0ea7 00d8 | | Load_Top At_Offset_0 0ea8 a5fc | | Store_Unchecked 0x2,-0x4 0ea9 00d8 | | Load_Top At_Offset_0 0eaa 0217 | | Execute Heap_Access,All_Reference 0eab 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0eac a5fb | | Store_Unchecked 0x2,-0x5 0ead 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0eae TRAP_0e50: 0eae 010b | | Execute Exception,Is_Storage_Error 0eaf 6814 |h | Jump_Zero 0xec4 0eb0 e001 | | Load 0x0,0x1 0eb1 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0eb2 4801 |H | Short_Literal 0x1 0eb3 4801 |H | Short_Literal 0x1 0eb4 e00e | | Load 0x0,0xe 0eb5 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0eb6 0334 | 4 | Declare_Variable Array,With_Constraint 0eb7 e5fe | | Load 0x2,-0x2 0eb8 e00e | | Load 0x0,0xe 0eb9 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0eba 4801 |H | Short_Literal 0x1 0ebb 00da | | Load_Top At_Offset_2 0ebc 01d6 | | Execute Vector,Field_Write 0ebd 6786 |g | Indirect_Literal Discrete,0xe44,{0x00000000, 0x00004003} 0ebe e001 | | Load 0x0,0x1 0ebf 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0ec0 c5fb | | Store 0x2,-0x5 0ec1 e212 | | Load 0x1,0x12 0ec2 a5fc | | Store_Unchecked 0x2,-0x4 0ec3 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0ec4 0100 | | Execute Exception,Raise 0ec5 0000 0000 | | .XXX[0x3] 0ec7 0000 | | 0ec8 0000 0000 | | .LITERAL {0x00000000, 0x0000402a} 0ecc 0000 0000 | | .BLANK 0000[0x4] 0ed0 ; -------------------------------------------------------------------------------------- 0ed0 ; SUBPROGRAM 0ed0 ; -------------------------------------------------------------------------------------- 0ed0 0ed3 | | .CONST 0x0ed3 ; Address of begin 0ed1 0004 | | .CONST 0x0004 ; Address of exception handler 0ed2 0001 | | .CONST 0x0001 ; Number of locals 0ed3 BODY_0ed0: 0ed3 INIT_0ed0: 0ed3 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0ed4 0000 0000 | | .BLANK 0000[0x4] 0ed8 ; -------------------------------------------------------------------------------------- 0ed8 ; SUBPROGRAM 0ed8 ; -------------------------------------------------------------------------------------- 0ed8 0f07 | | .CONST 0x0f07 ; Address of begin 0ed9 0f5b | [ | .CONST 0x0f5b ; Address of exception handler 0eda 000f | | .CONST 0x000f ; Number of locals 0edb INIT_0ed8: 0edb e001 | | Load 0x0,0x1 0edc 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0edd 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0ede e002 | | Load 0x0,0x2 0edf 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0ee0 02c7 | | Declare_Variable Any 0ee1 00d8 | | Load_Top At_Offset_0 0ee2 1c00 | | Execute_Immediate Run_Utility,0x0 0ee3 e002 | | Load 0x0,0x2 0ee4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0ee5 02c7 | | Declare_Variable Any 0ee6 00d8 | | Load_Top At_Offset_0 0ee7 1c00 | | Execute_Immediate Run_Utility,0x0 0ee8 e00e | | Load 0x0,0xe 0ee9 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0eea e00e | | Load 0x0,0xe 0eeb 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0eec 00ea | | Load_Encached Null_String_Cache 0eed e5ff | | Load 0x2,-0x1 0eee 0217 | | Execute Heap_Access,All_Reference 0eef 3407 |4 | Execute Record,Field_Reference,Field_Number 0x7 0ef0 8011 | | Call 0x0,0x11 0ef1 4801 |H | Short_Literal 0x1 0ef2 4900 |I | Short_Literal 0x100 0ef3 00e9 | | Load_Encached String_Cache 0ef4 035b | [ | Declare_Type Array,Constrained 0ef5 0337 | 7 | Declare_Variable Array 0ef6 00e3 | | Load_Encached Natural_Cache 0ef7 e5ff | | Load 0x2,-0x1 0ef8 0217 | | Execute Heap_Access,All_Reference 0ef9 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0efa e004 | | Load 0x0,0x4 0efb 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0efc 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 0efd 029f 106b | k| Declare_Subprogram INIT_1068,For_Call 0eff 029f 10f3 | | Declare_Subprogram INIT_10f0,For_Call 0f01 029f 110b | | Declare_Subprogram INIT_1108,For_Call 0f03 029f 11e3 | | Declare_Subprogram INIT_11e0,For_Call 0f05 029f 1283 | | Declare_Subprogram INIT_1280,For_Call 0f07 BODY_0ed8: 0f07 e5fe | | Load 0x2,-0x2 0f08 e012 | | Load 0x0,0x12 0f09 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0f0a 4612 |F | Jump_Case 0x13 0f0b 7812 |x | Jump 0xf1e ; case 0x0 0f0c 7811 |x | Jump 0xf1e ; case 0x1 0f0d 7810 |x | Jump 0xf1e ; case 0x2 0f0e 780f |x | Jump 0xf1e ; case 0x3 0f0f 780e |x | Jump 0xf1e ; case 0x4 0f10 780d |x | Jump 0xf1e ; case 0x5 0f11 780c |x | Jump 0xf1e ; case 0x6 0f12 780b |x | Jump 0xf1e ; case 0x7 0f13 780a |x | Jump 0xf1e ; case 0x8 0f14 7809 |x | Jump 0xf1e ; case 0x9 0f15 7821 |x! | Jump 0xf37 ; case 0xa 0f16 782c |x, | Jump 0xf43 ; case 0xb 0f17 7837 |x7 | Jump 0xf4f ; case 0xc 0f18 7805 |x | Jump 0xf1e ; case 0xd 0f19 7804 |x | Jump 0xf1e ; case 0xe 0f1a 7803 |x | Jump 0xf1e ; case 0xf 0f1b 7802 |x | Jump 0xf1e ; case 0x10 0f1c 7801 |x | Jump 0xf1e ; case 0x11 0f1d 7800 |x | Jump 0xf1e ; case 0x12 0f1e e00d | | Load 0x0,0xd 0f1f 180e | | Execute Package,Field_Execute,Field_Number 0xe 0f20 4801 |H | Short_Literal 0x1 0f21 4801 |H | Short_Literal 0x1 0f22 e00e | | Load 0x0,0xe 0f23 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0f24 0334 | 4 | Declare_Variable Array,With_Constraint 0f25 e5fe | | Load 0x2,-0x2 0f26 e012 | | Load 0x0,0x12 0f27 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0f28 4801 |H | Short_Literal 0x1 0f29 00da | | Load_Top At_Offset_2 0f2a 01d6 | | Execute Vector,Field_Write 0f2b 6058 |`X | Indirect_Literal Discrete,0xf84,{0x00000000, 0x00004016} 0f2c e001 | | Load 0x0,0x1 0f2d 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0f2e e00e | | Load 0x0,0xe 0f2f 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0f30 6053 |`S | Indirect_Literal Discrete,0xf84,{0x00000000, 0x00004016} 0f31 e001 | | Load 0x0,0x1 0f32 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0f33 e5fe | | Load 0x2,-0x2 0f34 e012 | | Load 0x0,0x12 0f35 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0f36 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0f37 4801 |H | Short_Literal 0x1 0f38 e5fe | | Load 0x2,-0x2 0f39 e012 | | Load 0x0,0x12 0f3a 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0f3b a405 | | Store_Unchecked 0x2,0x5 0f3c 4802 |H | Short_Literal 0x2 0f3d e5fe | | Load 0x2,-0x2 0f3e e012 | | Load 0x0,0x12 0f3f 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0f40 a406 | | Store_Unchecked 0x2,0x6 0f41 840d | | Call 0x2,0xd 0f42 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0f43 4801 |H | Short_Literal 0x1 0f44 e5fe | | Load 0x2,-0x2 0f45 e012 | | Load 0x0,0x12 0f46 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0f47 a405 | | Store_Unchecked 0x2,0x5 0f48 4802 |H | Short_Literal 0x2 0f49 e5fe | | Load 0x2,-0x2 0f4a e012 | | Load 0x0,0x12 0f4b 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0f4c a406 | | Store_Unchecked 0x2,0x6 0f4d 840e | | Call 0x2,0xe 0f4e 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0f4f 4801 |H | Short_Literal 0x1 0f50 e5fe | | Load 0x2,-0x2 0f51 e012 | | Load 0x0,0x12 0f52 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0f53 a405 | | Store_Unchecked 0x2,0x5 0f54 4802 |H | Short_Literal 0x2 0f55 e5fe | | Load 0x2,-0x2 0f56 e012 | | Load 0x0,0x12 0f57 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0f58 a406 | | Store_Unchecked 0x2,0x6 0f59 840f | | Call 0x2,0xf 0f5a 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0f5b TRAP_0ed8: 0f5b e013 | | Load 0x0,0x13 0f5c 010f | | Execute Exception,Equal 0f5d 681b |h | Jump_Zero 0xf79 0f5e e5ff | | Load 0x2,-0x1 0f5f 8222 | " | Call 0x1,0x22 0f60 e00d | | Load 0x0,0xd 0f61 180e | | Execute Package,Field_Execute,Field_Number 0xe 0f62 4801 |H | Short_Literal 0x1 0f63 4801 |H | Short_Literal 0x1 0f64 e00e | | Load 0x0,0xe 0f65 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0f66 0334 | 4 | Declare_Variable Array,With_Constraint 0f67 e5fe | | Load 0x2,-0x2 0f68 e012 | | Load 0x0,0x12 0f69 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0f6a 4801 |H | Short_Literal 0x1 0f6b 00da | | Load_Top At_Offset_2 0f6c 01d6 | | Execute Vector,Field_Write 0f6d 6012 |` | Indirect_Literal Discrete,0xf80,{0x00000000, 0x00004019} 0f6e e001 | | Load 0x0,0x1 0f6f 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0f70 e00e | | Load 0x0,0xe 0f71 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0f72 600d |` | Indirect_Literal Discrete,0xf80,{0x00000000, 0x00004019} 0f73 e001 | | Load 0x0,0x1 0f74 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0f75 e5fe | | Load 0x2,-0x2 0f76 e012 | | Load 0x0,0x12 0f77 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0f78 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0f79 e5ff | | Load 0x2,-0x1 0f7a 8222 | " | Call 0x1,0x22 0f7b 00d8 | | Load_Top At_Offset_0 0f7c 0101 | | Execute Exception,Reraise 0f7d 0000 0000 | | .XXX[0x3] 0f7f 0000 | | 0f80 0000 0000 | | .LITERAL {0x00000000, 0x00004019} 0f84 0000 0000 | | .LITERAL {0x00000000, 0x00004016} 0f88 ; -------------------------------------------------------------------------------------- 0f88 ; SUBPROGRAM 0f88 ; -------------------------------------------------------------------------------------- 0f88 0f8b | | .CONST 0x0f8b ; Address of begin 0f89 0004 | | .CONST 0x0004 ; Address of exception handler 0f8a 0001 | | .CONST 0x0001 ; Number of locals 0f8b BODY_0f88: 0f8b INIT_0f88: 0f8b 00da | | Load_Top At_Offset_2 0f8c 0217 | | Execute Heap_Access,All_Reference 0f8d 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 0f8e 0219 | | Execute Heap_Access,All_Read 0f8f c5fe | | Store 0x2,-0x2 0f90 00da | | Load_Top At_Offset_2 0f91 0217 | | Execute Heap_Access,All_Reference 0f92 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0f93 7009 |p | Jump_Nonzero 0xf9d 0f94 00da | | Load_Top At_Offset_2 0f95 0219 | | Execute Heap_Access,All_Read 0f96 00d8 | | Load_Top At_Offset_0 0f97 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0f98 e002 | | Load 0x0,0x2 0f99 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0f9a 00d9 | | Load_Top At_Offset_1 0f9b 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0f9c 00d1 | | Pop_Control Pop_Count_1 0f9d e210 | | Load 0x1,0x10 0f9e 00db | | Load_Top At_Offset_3 0f9f 0217 | | Execute Heap_Access,All_Reference 0fa0 3808 |8 | Execute Record,Field_Write,Field_Number 0x8 0fa1 00da | | Load_Top At_Offset_2 0fa2 8222 | " | Call 0x1,0x22 0fa3 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0fa4 0000 0000 | | .BLANK 0000[0x4] 0fa8 ; -------------------------------------------------------------------------------------- 0fa8 ; SUBPROGRAM 0fa8 ; -------------------------------------------------------------------------------------- 0fa8 0fab | | .CONST 0x0fab ; Address of begin 0fa9 0004 | | .CONST 0x0004 ; Address of exception handler 0faa 0001 | | .CONST 0x0001 ; Number of locals 0fab BODY_0fa8: 0fab INIT_0fa8: 0fab 00da | | Load_Top At_Offset_2 0fac 0217 | | Execute Heap_Access,All_Reference 0fad 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0fae 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0faf 0000 | | .XXX[0x1] 0fb0 ; -------------------------------------------------------------------------------------- 0fb0 ; SUBPROGRAM 0fb0 ; -------------------------------------------------------------------------------------- 0fb0 0fb3 | | .CONST 0x0fb3 ; Address of begin 0fb1 0004 | | .CONST 0x0004 ; Address of exception handler 0fb2 0001 | | .CONST 0x0001 ; Number of locals 0fb3 BODY_0fb0: 0fb3 INIT_0fb0: 0fb3 00da | | Load_Top At_Offset_2 0fb4 0217 | | Execute Heap_Access,All_Reference 0fb5 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0fb6 00d8 | | Load_Top At_Offset_0 0fb7 0120 | | Execute Any,Is_Value 0fb8 7002 |p | Jump_Nonzero 0xfbb 0fb9 00d8 | | Load_Top At_Offset_0 0fba 011e | | Execute Any,Convert 0fbb 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0fbc 0000 0000 | | .BLANK 0000[0x4] 0fc0 ; -------------------------------------------------------------------------------------- 0fc0 ; SUBPROGRAM 0fc0 ; -------------------------------------------------------------------------------------- 0fc0 0fc3 | | .CONST 0x0fc3 ; Address of begin 0fc1 0004 | | .CONST 0x0004 ; Address of exception handler 0fc2 0001 | | .CONST 0x0001 ; Number of locals 0fc3 BODY_0fc0: 0fc3 INIT_0fc0: 0fc3 00da | | Load_Top At_Offset_2 0fc4 0217 | | Execute Heap_Access,All_Reference 0fc5 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 0fc6 e210 | | Load 0x1,0x10 0fc7 0213 | | Execute Heap_Access,Check_In_Type 0fc8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0fc9 0000 0000 | | .BLANK 0000[0x7] 0fd0 ; -------------------------------------------------------------------------------------- 0fd0 ; SUBPROGRAM 0fd0 ; -------------------------------------------------------------------------------------- 0fd0 0fd3 | | .CONST 0x0fd3 ; Address of begin 0fd1 0004 | | .CONST 0x0004 ; Address of exception handler 0fd2 0001 | | .CONST 0x0001 ; Number of locals 0fd3 BODY_0fd0: 0fd3 INIT_0fd0: 0fd3 00da | | Load_Top At_Offset_2 0fd4 0217 | | Execute Heap_Access,All_Reference 0fd5 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0fd6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0fd7 0000 | | .XXX[0x1] 0fd8 ; -------------------------------------------------------------------------------------- 0fd8 ; SUBPROGRAM 0fd8 ; -------------------------------------------------------------------------------------- 0fd8 0fdb | | .CONST 0x0fdb ; Address of begin 0fd9 0004 | | .CONST 0x0004 ; Address of exception handler 0fda 0001 | | .CONST 0x0001 ; Number of locals 0fdb BODY_0fd8: 0fdb INIT_0fd8: 0fdb 00db | | Load_Top At_Offset_3 0fdc 00db | | Load_Top At_Offset_3 0fdd 0217 | | Execute Heap_Access,All_Reference 0fde 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0fdf 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0fe0 ; -------------------------------------------------------------------------------------- 0fe0 ; SUBPROGRAM 0fe0 ; -------------------------------------------------------------------------------------- 0fe0 0fe3 | | .CONST 0x0fe3 ; Address of begin 0fe1 0004 | | .CONST 0x0004 ; Address of exception handler 0fe2 0001 | | .CONST 0x0001 ; Number of locals 0fe3 BODY_0fe0: 0fe3 INIT_0fe0: 0fe3 00da | | Load_Top At_Offset_2 0fe4 0217 | | Execute Heap_Access,All_Reference 0fe5 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0fe6 0f00 | | Execute_Immediate Equal,0x0 0fe7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0fe8 ; -------------------------------------------------------------------------------------- 0fe8 ; SUBPROGRAM 0fe8 ; -------------------------------------------------------------------------------------- 0fe8 0feb | | .CONST 0x0feb ; Address of begin 0fe9 0004 | | .CONST 0x0004 ; Address of exception handler 0fea 0001 | | .CONST 0x0001 ; Number of locals 0feb BODY_0fe8: 0feb INIT_0fe8: 0feb 00da | | Load_Top At_Offset_2 0fec 0217 | | Execute Heap_Access,All_Reference 0fed 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0fee e001 | | Load 0x0,0x1 0fef 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0ff0 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0ff1 0000 0000 | | .BLANK 0000[0x7] 0ff8 ; -------------------------------------------------------------------------------------- 0ff8 ; SUBPROGRAM 0ff8 ; -------------------------------------------------------------------------------------- 0ff8 0ffb | | .CONST 0x0ffb ; Address of begin 0ff9 0004 | | .CONST 0x0004 ; Address of exception handler 0ffa 0001 | | .CONST 0x0001 ; Number of locals 0ffb BODY_0ff8: 0ffb INIT_0ff8: 0ffb 00da | | Load_Top At_Offset_2 0ffc e00b | | Load 0x0,0xb 0ffd 180d | | Execute Package,Field_Execute,Field_Number 0xd 0ffe e224 | $ | Load 0x1,0x24 0fff e225 | % | Load 0x1,0x25 1000 1d26 | & | Execute_Immediate Reference_Lex_1,0x26 1001 e008 | | Load 0x0,0x8 1002 1819 | | Execute Package,Field_Execute,Field_Number 0x19 1003 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 1004 0000 0000 | | .BLANK 0000[0x4] 1008 ; -------------------------------------------------------------------------------------- 1008 ; SUBPROGRAM 1008 ; -------------------------------------------------------------------------------------- 1008 100b | | .CONST 0x100b ; Address of begin 1009 0004 | | .CONST 0x0004 ; Address of exception handler 100a 0001 | | .CONST 0x0001 ; Number of locals 100b BODY_1008: 100b INIT_1008: 100b 00da | | Load_Top At_Offset_2 100c e223 | # | Load 0x1,0x23 100d 1812 | | Execute Package,Field_Execute,Field_Number 0x12 100e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 100f 0000 | | .XXX[0x1] 1010 ; -------------------------------------------------------------------------------------- 1010 ; SUBPROGRAM 1010 ; -------------------------------------------------------------------------------------- 1010 1013 | | .CONST 0x1013 ; Address of begin 1011 0004 | | .CONST 0x0004 ; Address of exception handler 1012 0001 | | .CONST 0x0001 ; Number of locals 1013 BODY_1010: 1013 INIT_1010: 1013 4608 |F | Jump_Case 0x9 1014 7808 |x | Jump 0x101d ; case 0x0 1015 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 1016 7819 |x | Jump 0x1030 ; case 0x2 1017 7818 |x | Jump 0x1030 ; case 0x3 1018 7817 |x | Jump 0x1030 ; case 0x4 1019 7816 |x | Jump 0x1030 ; case 0x5 101a 7815 |x | Jump 0x1030 ; case 0x6 101b 7814 |x | Jump 0x1030 ; case 0x7 101c 7813 |x | Jump 0x1030 ; case 0x8 101d 00da | | Load_Top At_Offset_2 101e 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 101f 0125 | % | Execute Any,Set_Constraint 1020 00da | | Load_Top At_Offset_2 1021 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 1022 1c00 | | Execute_Immediate Run_Utility,0x0 1023 00da | | Load_Top At_Offset_2 1024 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 1025 0125 | % | Execute Any,Set_Constraint 1026 00da | | Load_Top At_Offset_2 1027 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 1028 1c00 | | Execute_Immediate Run_Utility,0x0 1029 00da | | Load_Top At_Offset_2 102a 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5 102b 0125 | % | Execute Any,Set_Constraint 102c 00da | | Load_Top At_Offset_2 102d 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5 102e 1c00 | | Execute_Immediate Run_Utility,0x0 102f 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 1030 0869 | i | Execute_Immediate Raise,0x69 1031 0000 0000 | | .BLANK 0000[0x7] 1038 ; -------------------------------------------------------------------------------------- 1038 ; SUBPROGRAM 1038 ; -------------------------------------------------------------------------------------- 1038 103b | ; | .CONST 0x103b ; Address of begin 1039 0004 | | .CONST 0x0004 ; Address of exception handler 103a 0001 | | .CONST 0x0001 ; Number of locals 103b BODY_1038: 103b INIT_1038: 103b 00da | | Load_Top At_Offset_2 103c 0217 | | Execute Heap_Access,All_Reference 103d 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 103e 6827 |h' | Jump_Zero 0x1066 103f 00da | | Load_Top At_Offset_2 1040 0217 | | Execute Heap_Access,All_Reference 1041 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 1042 e002 | | Load 0x0,0x2 1043 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 1044 7014 |p | Jump_Nonzero 0x1059 1045 00da | | Load_Top At_Offset_2 1046 0219 | | Execute Heap_Access,All_Read 1047 00d8 | | Load_Top At_Offset_0 1048 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 1049 e010 | | Load 0x0,0x10 104a 1b0e | | Execute Package,Field_Read,Field_Number 0xe 104b e004 | | Load 0x0,0x4 104c 181e | | Execute Package,Field_Execute,Field_Number 0x1e 104d 00ea | | Load_Encached Null_String_Cache 104e 00ea | | Load_Encached Null_String_Cache 104f e5ff | | Load 0x2,-0x1 1050 0217 | | Execute Heap_Access,All_Reference 1051 3407 |4 | Execute Record,Field_Reference,Field_Number 0x7 1052 8011 | | Call 0x0,0x11 1053 4800 |H | Short_Literal 0x0 1054 e002 | | Load 0x0,0x2 1055 1814 | | Execute Package,Field_Execute,Field_Number 0x14 1056 00d9 | | Load_Top At_Offset_1 1057 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 1058 00d1 | | Pop_Control Pop_Count_1 1059 00da | | Load_Top At_Offset_2 105a 0219 | | Execute Heap_Access,All_Read 105b 00d8 | | Load_Top At_Offset_0 105c 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 105d e002 | | Load 0x0,0x2 105e 181a | | Execute Package,Field_Execute,Field_Number 0x1a 105f 00d9 | | Load_Top At_Offset_1 1060 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 1061 00d1 | | Pop_Control Pop_Count_1 1062 4800 |H | Short_Literal 0x0 1063 00db | | Load_Top At_Offset_3 1064 0217 | | Execute Heap_Access,All_Reference 1065 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 1066 4502 |E | Exit_Suprogram New_Top_Offset 0x2 1067 0000 | | .XXX[0x1] 1068 ; -------------------------------------------------------------------------------------- 1068 ; SUBPROGRAM 1068 ; -------------------------------------------------------------------------------------- 1068 106b | k | .CONST 0x106b ; Address of begin 1069 0004 | | .CONST 0x0004 ; Address of exception handler 106a 0001 | | .CONST 0x0001 ; Number of locals 106b BODY_1068: 106b INIT_1068: 106b 00da | | Load_Top At_Offset_2 106c 0092 1785 | | Action Push_String_Extended,0x1785 ; "<TEMP>" 106e 01df | | Execute Vector,Equal 106f 680a |h | Jump_Zero 0x107a 1070 e5ff | | Load 0x2,-0x1 1071 0217 | | Execute Heap_Access,All_Reference 1072 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 1073 c404 | | Store 0x2,0x4 1074 e404 | | Load 0x2,0x4 1075 4800 |H | Short_Literal 0x0 1076 e002 | | Load 0x0,0x2 1077 181b | | Execute Package,Field_Execute,Field_Number 0x1b 1078 c404 | | Store 0x2,0x4 1079 780b |x | Jump 0x1085 107a e404 | | Load 0x2,0x4 107b e010 | | Load 0x0,0x10 107c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 107d e004 | | Load 0x0,0x4 107e 181e | | Execute Package,Field_Execute,Field_Number 0x1e 107f 00ea | | Load_Encached Null_String_Cache 1080 e7ff | | Load 0x3,-0x1 1081 4800 |H | Short_Literal 0x0 1082 e002 | | Load 0x0,0x2 1083 1814 | | Execute Package,Field_Execute,Field_Number 0x14 1084 c404 | | Store 0x2,0x4 1085 e5ff | | Load 0x2,-0x1 1086 0217 | | Execute Heap_Access,All_Reference 1087 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 1088 681d |h | Jump_Zero 0x10a6 1089 00db | | Load_Top At_Offset_3 108a 0092 1785 | | Action Push_String_Extended,0x1785 ; "<TEMP>" 108c 01df | | Execute Vector,Equal 108d 680a |h | Jump_Zero 0x1098 108e e5ff | | Load 0x2,-0x1 108f 0217 | | Execute Heap_Access,All_Reference 1090 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 1091 c403 | | Store 0x2,0x3 1092 e403 | | Load 0x2,0x3 1093 4801 |H | Short_Literal 0x1 1094 e002 | | Load 0x0,0x2 1095 181b | | Execute Package,Field_Execute,Field_Number 0x1b 1096 c403 | | Store 0x2,0x3 1097 7826 |x& | Jump 0x10be 1098 e403 | | Load 0x2,0x3 1099 e010 | | Load 0x0,0x10 109a 1b0e | | Execute Package,Field_Read,Field_Number 0xe 109b e004 | | Load 0x0,0x4 109c 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 109d e004 | | Load 0x0,0x4 109e 181e | | Execute Package,Field_Execute,Field_Number 0x1e 109f 00ea | | Load_Encached Null_String_Cache 10a0 e7fe | | Load 0x3,-0x2 10a1 4801 |H | Short_Literal 0x1 10a2 e002 | | Load 0x0,0x2 10a3 1818 | | Execute Package,Field_Execute,Field_Number 0x18 10a4 c403 | | Store 0x2,0x3 10a5 7818 |x | Jump 0x10be 10a6 e7fd | | Load 0x3,-0x3 10a7 680e |h | Jump_Zero 0x10b6 10a8 e403 | | Load 0x2,0x3 10a9 e010 | | Load 0x0,0x10 10aa 1b0e | | Execute Package,Field_Read,Field_Number 0xe 10ab e004 | | Load 0x0,0x4 10ac 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 10ad e004 | | Load 0x0,0x4 10ae 181e | | Execute Package,Field_Execute,Field_Number 0x1e 10af 00ea | | Load_Encached Null_String_Cache 10b0 e7fe | | Load 0x3,-0x2 10b1 4801 |H | Short_Literal 0x1 10b2 e002 | | Load 0x0,0x2 10b3 1818 | | Execute Package,Field_Execute,Field_Number 0x18 10b4 c403 | | Store 0x2,0x3 10b5 7808 |x | Jump 0x10be 10b6 e5ff | | Load 0x2,-0x1 10b7 0217 | | Execute Heap_Access,All_Reference 10b8 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 10b9 c403 | | Store 0x2,0x3 10ba 00db | | Load_Top At_Offset_3 10bb e403 | | Load 0x2,0x3 10bc e002 | | Load 0x0,0x2 10bd 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 10be 00cf | | Action Mark_Auxiliary 10bf 780f |x | Jump 0x10cf 10c0 00e3 | | Load_Encached Natural_Cache 10c1 e408 | | Load 0x2,0x8 10c2 e404 | | Load 0x2,0x4 10c3 e002 | | Load 0x0,0x2 10c4 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 10c5 00d1 | | Pop_Control Pop_Count_1 10c6 c409 | | Store 0x2,0x9 10c7 4801 |H | Short_Literal 0x1 10c8 e409 | | Load 0x2,0x9 10c9 e408 | | Load 0x2,0x8 10ca 01cf | | Execute Vector,Slice_Read 10cb e403 | | Load 0x2,0x3 10cc e002 | | Load 0x0,0x2 10cd 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 10ce 00c9 | | Action Pop_Auxiliary_Loop 10cf e404 | | Load 0x2,0x4 10d0 e002 | | Load 0x0,0x2 10d1 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 10d2 6fed |o | Jump_Zero 0x10c0 10d3 00ce | | Action Pop_Auxiliary 10d4 00da | | Load_Top At_Offset_2 10d5 0092 1785 | | Action Push_String_Extended,0x1785 ; "<TEMP>" 10d7 01de | | Execute Vector,Not_Equal 10d8 6804 |h | Jump_Zero 0x10dd 10d9 e404 | | Load 0x2,0x4 10da e002 | | Load 0x0,0x2 10db 1819 | | Execute Package,Field_Execute,Field_Number 0x19 10dc c404 | | Store 0x2,0x4 10dd e7fd | | Load 0x3,-0x3 10de 7009 |p | Jump_Nonzero 0x10e8 10df e5ff | | Load 0x2,-0x1 10e0 0217 | | Execute Heap_Access,All_Reference 10e1 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 10e2 6809 |h | Jump_Zero 0x10ec 10e3 00db | | Load_Top At_Offset_3 10e4 0092 1785 | | Action Push_String_Extended,0x1785 ; "<TEMP>" 10e6 01de | | Execute Vector,Not_Equal 10e7 6804 |h | Jump_Zero 0x10ec 10e8 e403 | | Load 0x2,0x3 10e9 e002 | | Load 0x0,0x2 10ea 1819 | | Execute Package,Field_Execute,Field_Number 0x19 10eb c403 | | Store 0x2,0x3 10ec 4504 |E | Exit_Suprogram New_Top_Offset 0x4 10ed 0000 0000 | | .XXX[0x3] 10ef 0000 | | 10f0 ; -------------------------------------------------------------------------------------- 10f0 ; SUBPROGRAM 10f0 ; -------------------------------------------------------------------------------------- 10f0 10f5 | | .CONST 0x10f5 ; Address of begin 10f1 0004 | | .CONST 0x0004 ; Address of exception handler 10f2 0002 | | .CONST 0x0002 ; Number of locals 10f3 INIT_10f0: 10f3 029f 12fb | | Declare_Subprogram INIT_12f8,For_Call 10f5 BODY_10f0: 10f5 00db | | Load_Top At_Offset_3 10f6 e00e | | Load 0x0,0xe 10f7 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 10f8 0b0f | | Execute_Immediate Case_Compare,0xf 10f9 7004 |p | Jump_Nonzero 0x10fe 10fa 0f01 | | Execute_Immediate Equal,0x1 10fb 7005 |p | Jump_Nonzero 0x1101 10fc e013 | | Load 0x0,0x13 10fd 0257 | W | Execute Discrete,Raise 10fe 00d1 | | Pop_Control Pop_Count_1 10ff 8602 | | Call 0x3,0x2 1100 7804 |x | Jump 0x1105 1101 00db | | Load_Top At_Offset_3 1102 e00e | | Load 0x0,0xe 1103 1811 | | Execute Package,Field_Execute,Field_Number 0x11 1104 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 1105 0831 | 1 | Execute_Immediate Raise,0x31 1106 0000 0000 | | .XXX[0x2] 1108 ; -------------------------------------------------------------------------------------- 1108 ; SUBPROGRAM 1108 ; -------------------------------------------------------------------------------------- 1108 1118 | | .CONST 0x1118 ; Address of begin 1109 0004 | | .CONST 0x0004 ; Address of exception handler 110a 0005 | | .CONST 0x0005 ; Number of locals 110b INIT_1108: 110b e405 | | Load 0x2,0x5 110c 8014 | | Call 0x0,0x14 110d e406 | | Load 0x2,0x6 110e 840c | | Call 0x2,0xc 110f 00e1 | | Load_Encached Boolean_Cache 1110 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 1111 e00e | | Load 0x0,0xe 1112 1b0e | | Execute Package,Field_Read,Field_Number 0xe 1113 4803 |H | Short_Literal 0x3 1114 e5fe | | Load 0x2,-0x2 1115 e012 | | Load 0x0,0x12 1116 1818 | | Execute Package,Field_Execute,Field_Number 0x18 1117 0031 | 1 | Store_Top Heap_Access,At_Offset_1 1118 BODY_1108: 1118 e5fe | | Load 0x2,-0x2 1119 8015 | | Call 0x0,0x15 111a 7048 |pH | Jump_Nonzero 0x1163 111b 00d8 | | Load_Top At_Offset_0 111c e00e | | Load 0x0,0xe 111d 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 111e 700e |p | Jump_Nonzero 0x112d 111f 00d8 | | Load_Top At_Offset_0 1120 e00e | | Load 0x0,0xe 1121 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 1122 0f01 | | Execute_Immediate Equal,0x1 1123 6809 |h | Jump_Zero 0x112d 1124 00d8 | | Load_Top At_Offset_0 1125 e00e | | Load 0x0,0xe 1126 1811 | | Execute Package,Field_Execute,Field_Number 0x11 1127 0092 1786 | | Action Push_String_Extended,0x1786 ; "<SCRIPT_FILE>" 1129 01df | | Execute Vector,Equal 112a 6802 |h | Jump_Zero 0x112d 112b 4801 |H | Short_Literal 0x1 112c 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 112d 00d9 | | Load_Top At_Offset_1 112e 00db | | Load_Top At_Offset_3 112f e602 | | Load 0x3,0x2 1130 840b | | Call 0x2,0xb 1131 e5fe | | Load 0x2,-0x2 1132 e012 | | Load 0x0,0x12 1133 1820 | | Execute Package,Field_Execute,Field_Number 0x20 1134 682d |h- | Jump_Zero 0x1162 1135 e5ff | | Load 0x2,-0x1 1136 0217 | | Execute Heap_Access,All_Reference 1137 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 1138 7002 |p | Jump_Nonzero 0x113b 1139 00d9 | | Load_Top At_Offset_1 113a 6817 |h | Jump_Zero 0x1152 113b e00d | | Load 0x0,0xd 113c 180e | | Execute Package,Field_Execute,Field_Number 0xe 113d 4801 |H | Short_Literal 0x1 113e 4802 |H | Short_Literal 0x2 113f e00e | | Load 0x0,0xe 1140 1b0f | | Execute Package,Field_Read,Field_Number 0xf 1141 0334 | 4 | Declare_Variable Array,With_Constraint 1142 e602 | | Load 0x3,0x2 1143 e00e | | Load 0x0,0xe 1144 1810 | | Execute Package,Field_Execute,Field_Number 0x10 1145 4801 |H | Short_Literal 0x1 1146 00da | | Load_Top At_Offset_2 1147 01d6 | | Execute Vector,Field_Write 1148 e603 | | Load 0x3,0x3 1149 e00e | | Load 0x0,0xe 114a 1810 | | Execute Package,Field_Execute,Field_Number 0x10 114b 4802 |H | Short_Literal 0x2 114c 00da | | Load_Top At_Offset_2 114d 01d6 | | Execute Vector,Field_Write 114e 6089 |` | Indirect_Literal Discrete,0x11d8,{0x00000000, 0x00004020} 114f e001 | | Load 0x0,0x1 1150 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 1151 4501 |E | Exit_Suprogram New_Top_Offset 0x1 1152 e00d | | Load 0x0,0xd 1153 180e | | Execute Package,Field_Execute,Field_Number 0xe 1154 4801 |H | Short_Literal 0x1 1155 4801 |H | Short_Literal 0x1 1156 e00e | | Load 0x0,0xe 1157 1b0f | | Execute Package,Field_Read,Field_Number 0xf 1158 0334 | 4 | Declare_Variable Array,With_Constraint 1159 e602 | | Load 0x3,0x2 115a e00e | | Load 0x0,0xe 115b 1810 | | Execute Package,Field_Execute,Field_Number 0x10 115c 4801 |H | Short_Literal 0x1 115d 00da | | Load_Top At_Offset_2 115e 01d6 | | Execute Vector,Field_Write 115f 6074 |`t | Indirect_Literal Discrete,0x11d4,{0x00000000, 0x00004028} 1160 e001 | | Load 0x0,0x1 1161 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 1162 4501 |E | Exit_Suprogram New_Top_Offset 0x1 1163 e5fe | | Load 0x2,-0x2 1164 e012 | | Load 0x0,0x12 1165 1820 | | Execute Package,Field_Execute,Field_Number 0x20 1166 7002 |p | Jump_Nonzero 0x1169 1167 00cc | | Action Pop_Block 1168 4504 |E | Exit_Suprogram New_Top_Offset 0x4 1169 e5ff | | Load 0x2,-0x1 116a 0219 | | Execute Heap_Access,All_Read 116b e402 | | Load 0x2,0x2 116c 00d9 | | Load_Top At_Offset_1 116d 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 116e e407 | | Load 0x2,0x7 116f 8016 | | Call 0x0,0x16 1170 00da | | Load_Top At_Offset_2 1171 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 1172 c402 | | Store 0x2,0x2 1173 00d1 | | Pop_Control Pop_Count_1 1174 e402 | | Load 0x2,0x2 1175 7005 |p | Jump_Nonzero 0x117b 1176 4801 |H | Short_Literal 0x1 1177 e5ff | | Load 0x2,-0x1 1178 0217 | | Execute Heap_Access,All_Reference 1179 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 117a 7806 |x | Jump 0x1181 117b e402 | | Load 0x2,0x2 117c e5fe | | Load 0x2,-0x2 117d e012 | | Load 0x0,0x12 117e 181f | | Execute Package,Field_Execute,Field_Number 0x1f 117f 00cc | | Action Pop_Block 1180 4504 |E | Exit_Suprogram New_Top_Offset 0x4 1181 e5ff | | Load 0x2,-0x1 1182 0219 | | Execute Heap_Access,All_Read 1183 00d8 | | Load_Top At_Offset_0 1184 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 1185 e5fe | | Load 0x2,-0x2 1186 e017 | | Load 0x0,0x17 1187 a018 | | Store_Unchecked 0x0,0x18 1188 a019 | | Store_Unchecked 0x0,0x19 1189 a01a | | Store_Unchecked 0x0,0x1a 118a a01b | | Store_Unchecked 0x0,0x1b 118b a01c | | Store_Unchecked 0x0,0x1c 118c e01d | | Load 0x0,0x1d 118d 1815 | | Execute Package,Field_Execute,Field_Number 0x15 118e 00d9 | | Load_Top At_Offset_1 118f 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 1190 00d1 | | Pop_Control Pop_Count_1 1191 e5ff | | Load 0x2,-0x1 1192 0219 | | Execute Heap_Access,All_Read 1193 00d8 | | Load_Top At_Offset_0 1194 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 1195 4800 |H | Short_Literal 0x0 1196 e002 | | Load 0x0,0x2 1197 181b | | Execute Package,Field_Execute,Field_Number 0x1b 1198 00d9 | | Load_Top At_Offset_1 1199 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 119a 00d1 | | Pop_Control Pop_Count_1 119b 4800 |H | Short_Literal 0x0 119c 00db | | Load_Top At_Offset_3 119d 0092 1785 | | Action Push_String_Extended,0x1785 ; "<TEMP>" 119f 840b | | Call 0x2,0xb 11a0 e5fe | | Load 0x2,-0x2 11a1 e012 | | Load 0x0,0x12 11a2 1820 | | Execute Package,Field_Execute,Field_Number 0x20 11a3 682b |h+ | Jump_Zero 0x11cf 11a4 e5ff | | Load 0x2,-0x1 11a5 0217 | | Execute Heap_Access,All_Reference 11a6 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 11a7 6817 |h | Jump_Zero 0x11bf 11a8 e00d | | Load 0x0,0xd 11a9 180e | | Execute Package,Field_Execute,Field_Number 0xe 11aa 4801 |H | Short_Literal 0x1 11ab 4802 |H | Short_Literal 0x2 11ac e00e | | Load 0x0,0xe 11ad 1b0f | | Execute Package,Field_Read,Field_Number 0xf 11ae 0334 | 4 | Declare_Variable Array,With_Constraint 11af e602 | | Load 0x3,0x2 11b0 e00e | | Load 0x0,0xe 11b1 1810 | | Execute Package,Field_Execute,Field_Number 0x10 11b2 4801 |H | Short_Literal 0x1 11b3 00da | | Load_Top At_Offset_2 11b4 01d6 | | Execute Vector,Field_Write 11b5 e603 | | Load 0x3,0x3 11b6 e00e | | Load 0x0,0xe 11b7 1810 | | Execute Package,Field_Execute,Field_Number 0x10 11b8 4802 |H | Short_Literal 0x2 11b9 00da | | Load_Top At_Offset_2 11ba 01d6 | | Execute Vector,Field_Write 11bb 6014 |` | Indirect_Literal Discrete,0x11d0,{0x00000000, 0x0000401f} 11bc e001 | | Load 0x0,0x1 11bd 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 11be 4501 |E | Exit_Suprogram New_Top_Offset 0x1 11bf e00d | | Load 0x0,0xd 11c0 180e | | Execute Package,Field_Execute,Field_Number 0xe 11c1 4801 |H | Short_Literal 0x1 11c2 4801 |H | Short_Literal 0x1 11c3 e00e | | Load 0x0,0xe 11c4 1b0f | | Execute Package,Field_Read,Field_Number 0xf 11c5 0334 | 4 | Declare_Variable Array,With_Constraint 11c6 e602 | | Load 0x3,0x2 11c7 e00e | | Load 0x0,0xe 11c8 1810 | | Execute Package,Field_Execute,Field_Number 0x10 11c9 4801 |H | Short_Literal 0x1 11ca 00da | | Load_Top At_Offset_2 11cb 01d6 | | Execute Vector,Field_Write 11cc 6003 |` | Indirect_Literal Discrete,0x11d0,{0x00000000, 0x0000401f} 11cd e001 | | Load 0x0,0x1 11ce 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 11cf 4501 |E | Exit_Suprogram New_Top_Offset 0x1 11d0 0000 0000 | | .LITERAL {0x00000000, 0x0000401f} 11d4 0000 0000 | | .LITERAL {0x00000000, 0x00004028} 11d8 0000 0000 | | .LITERAL {0x00000000, 0x00004020} 11dc 0000 0000 | | .BLANK 0000[0x4] 11e0 ; -------------------------------------------------------------------------------------- 11e0 ; SUBPROGRAM 11e0 ; -------------------------------------------------------------------------------------- 11e0 11e7 | | .CONST 0x11e7 ; Address of begin 11e1 0004 | | .CONST 0x0004 ; Address of exception handler 11e2 0003 | | .CONST 0x0003 ; Number of locals 11e3 INIT_11e0: 11e3 e405 | | Load 0x2,0x5 11e4 8014 | | Call 0x0,0x14 11e5 e406 | | Load 0x2,0x6 11e6 840c | | Call 0x2,0xc 11e7 BODY_11e0: 11e7 e5fe | | Load 0x2,-0x2 11e8 801e | | Call 0x0,0x1e 11e9 7029 |p) | Jump_Nonzero 0x1213 11ea e405 | | Load 0x2,0x5 11eb e00e | | Load 0x0,0xe 11ec 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 11ed 0f01 | | Execute_Immediate Equal,0x1 11ee 6824 |h$ | Jump_Zero 0x1213 11ef e405 | | Load 0x2,0x5 11f0 e00e | | Load 0x0,0xe 11f1 1811 | | Execute Package,Field_Execute,Field_Number 0x11 11f2 01db | | Execute Vector,Length 11f3 681f |h | Jump_Zero 0x1213 11f4 4800 |H | Short_Literal 0x0 11f5 00da | | Load_Top At_Offset_2 11f6 00da | | Load_Top At_Offset_2 11f7 840b | | Call 0x2,0xb 11f8 e5fe | | Load 0x2,-0x2 11f9 e012 | | Load 0x0,0x12 11fa 1820 | | Execute Package,Field_Execute,Field_Number 0x20 11fb 6816 |h | Jump_Zero 0x1212 11fc e00d | | Load 0x0,0xd 11fd 180e | | Execute Package,Field_Execute,Field_Number 0xe 11fe 4801 |H | Short_Literal 0x1 11ff 4802 |H | Short_Literal 0x2 1200 e00e | | Load 0x0,0xe 1201 1b0f | | Execute Package,Field_Read,Field_Number 0xf 1202 0334 | 4 | Declare_Variable Array,With_Constraint 1203 00da | | Load_Top At_Offset_2 1204 e00e | | Load 0x0,0xe 1205 1810 | | Execute Package,Field_Execute,Field_Number 0x10 1206 4801 |H | Short_Literal 0x1 1207 00da | | Load_Top At_Offset_2 1208 01d6 | | Execute Vector,Field_Write 1209 00db | | Load_Top At_Offset_3 120a e00e | | Load 0x0,0xe 120b 1810 | | Execute Package,Field_Execute,Field_Number 0x10 120c 4802 |H | Short_Literal 0x2 120d 00da | | Load_Top At_Offset_2 120e 01d6 | | Execute Vector,Field_Write 120f 67c8 |g | Indirect_Literal Discrete,0x11d8,{0x00000000, 0x00004020} 1210 e001 | | Load 0x0,0x1 1211 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 1212 4501 |E | Exit_Suprogram New_Top_Offset 0x1 1213 e5fe | | Load 0x2,-0x2 1214 e012 | | Load 0x0,0x12 1215 1820 | | Execute Package,Field_Execute,Field_Number 0x20 1216 7002 |p | Jump_Nonzero 0x1219 1217 00cc | | Action Pop_Block 1218 4504 |E | Exit_Suprogram New_Top_Offset 0x4 1219 e403 | | Load 0x2,0x3 121a e010 | | Load 0x0,0x10 121b 1b0e | | Execute Package,Field_Read,Field_Number 0xe 121c e004 | | Load 0x0,0x4 121d 181e | | Execute Package,Field_Execute,Field_Number 0x1e 121e 00ea | | Load_Encached Null_String_Cache 121f e603 | | Load 0x3,0x3 1220 4800 |H | Short_Literal 0x0 1221 e002 | | Load 0x0,0x2 1222 1814 | | Execute Package,Field_Execute,Field_Number 0x14 1223 c403 | | Store 0x2,0x3 1224 e5ff | | Load 0x2,-0x1 1225 0219 | | Execute Heap_Access,All_Read 1226 e402 | | Load 0x2,0x2 1227 00d9 | | Load_Top At_Offset_1 1228 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 1229 e407 | | Load 0x2,0x7 122a 8016 | | Call 0x0,0x16 122b 00da | | Load_Top At_Offset_2 122c 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 122d c402 | | Store 0x2,0x2 122e 00d1 | | Pop_Control Pop_Count_1 122f e402 | | Load 0x2,0x2 1230 7005 |p | Jump_Nonzero 0x1236 1231 4801 |H | Short_Literal 0x1 1232 e5ff | | Load 0x2,-0x1 1233 0217 | | Execute Heap_Access,All_Reference 1234 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 1235 7806 |x | Jump 0x123c 1236 e402 | | Load 0x2,0x2 1237 e5fe | | Load 0x2,-0x2 1238 e012 | | Load 0x0,0x12 1239 181f | | Execute Package,Field_Execute,Field_Number 0x1f 123a 00cc | | Action Pop_Block 123b 4504 |E | Exit_Suprogram New_Top_Offset 0x4 123c 4800 |H | Short_Literal 0x0 123d 0092 1785 | | Action Push_String_Extended,0x1785 ; "<TEMP>" 123f 00da | | Load_Top At_Offset_2 1240 840b | | Call 0x2,0xb 1241 e403 | | Load 0x2,0x3 1242 e002 | | Load 0x0,0x2 1243 1819 | | Execute Package,Field_Execute,Field_Number 0x19 1244 c403 | | Store 0x2,0x3 1245 e5ff | | Load 0x2,-0x1 1246 0219 | | Execute Heap_Access,All_Read 1247 00d8 | | Load_Top At_Offset_0 1248 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 1249 4800 |H | Short_Literal 0x0 124a e002 | | Load 0x0,0x2 124b 181b | | Execute Package,Field_Execute,Field_Number 0x1b 124c 00d9 | | Load_Top At_Offset_1 124d 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 124e 00d1 | | Pop_Control Pop_Count_1 124f e5ff | | Load 0x2,-0x1 1250 0219 | | Execute Heap_Access,All_Read 1251 00d8 | | Load_Top At_Offset_0 1252 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 1253 e5fe | | Load 0x2,-0x2 1254 e017 | | Load 0x0,0x17 1255 a018 | | Store_Unchecked 0x0,0x18 1256 a019 | | Store_Unchecked 0x0,0x19 1257 a01a | | Store_Unchecked 0x0,0x1a 1258 a01b | | Store_Unchecked 0x0,0x1b 1259 a01c | | Store_Unchecked 0x0,0x1c 125a e01d | | Load 0x0,0x1d 125b 1815 | | Execute Package,Field_Execute,Field_Number 0x15 125c 00d9 | | Load_Top At_Offset_1 125d 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 125e 00d1 | | Pop_Control Pop_Count_1 125f e5fe | | Load 0x2,-0x2 1260 e012 | | Load 0x0,0x12 1261 1820 | | Execute Package,Field_Execute,Field_Number 0x20 1262 6816 |h | Jump_Zero 0x1279 1263 e00d | | Load 0x0,0xd 1264 180e | | Execute Package,Field_Execute,Field_Number 0xe 1265 4801 |H | Short_Literal 0x1 1266 4802 |H | Short_Literal 0x2 1267 e00e | | Load 0x0,0xe 1268 1b0f | | Execute Package,Field_Read,Field_Number 0xf 1269 0334 | 4 | Declare_Variable Array,With_Constraint 126a 00da | | Load_Top At_Offset_2 126b e00e | | Load 0x0,0xe 126c 1810 | | Execute Package,Field_Execute,Field_Number 0x10 126d 4801 |H | Short_Literal 0x1 126e 00da | | Load_Top At_Offset_2 126f 01d6 | | Execute Vector,Field_Write 1270 00db | | Load_Top At_Offset_3 1271 e00e | | Load 0x0,0xe 1272 1810 | | Execute Package,Field_Execute,Field_Number 0x10 1273 4802 |H | Short_Literal 0x2 1274 00da | | Load_Top At_Offset_2 1275 01d6 | | Execute Vector,Field_Write 1276 6759 |gY | Indirect_Literal Discrete,0x11d0,{0x00000000, 0x0000401f} 1277 e001 | | Load 0x0,0x1 1278 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 1279 4501 |E | Exit_Suprogram New_Top_Offset 0x1 127a 0000 0000 | | .BLANK 0000[0x6] 1280 ; -------------------------------------------------------------------------------------- 1280 ; SUBPROGRAM 1280 ; -------------------------------------------------------------------------------------- 1280 1287 | | .CONST 0x1287 ; Address of begin 1281 0004 | | .CONST 0x0004 ; Address of exception handler 1282 0003 | | .CONST 0x0003 ; Number of locals 1283 INIT_1280: 1283 e406 | | Load 0x2,0x6 1284 8014 | | Call 0x0,0x14 1285 e405 | | Load 0x2,0x5 1286 840c | | Call 0x2,0xc 1287 BODY_1280: 1287 e5ff | | Load 0x2,-0x1 1288 0219 | | Execute Heap_Access,All_Read 1289 e402 | | Load 0x2,0x2 128a 00d9 | | Load_Top At_Offset_1 128b 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 128c e407 | | Load 0x2,0x7 128d 8016 | | Call 0x0,0x16 128e 00da | | Load_Top At_Offset_2 128f 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 1290 c402 | | Store 0x2,0x2 1291 00d1 | | Pop_Control Pop_Count_1 1292 e402 | | Load 0x2,0x2 1293 7005 |p | Jump_Nonzero 0x1299 1294 4801 |H | Short_Literal 0x1 1295 e5ff | | Load 0x2,-0x1 1296 0217 | | Execute Heap_Access,All_Reference 1297 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 1298 7806 |x | Jump 0x129f 1299 e402 | | Load 0x2,0x2 129a e5fe | | Load 0x2,-0x2 129b e012 | | Load 0x0,0x12 129c 181f | | Execute Package,Field_Execute,Field_Number 0x1f 129d 00cc | | Action Pop_Block 129e 4504 |E | Exit_Suprogram New_Top_Offset 0x4 129f e5ff | | Load 0x2,-0x1 12a0 0219 | | Execute Heap_Access,All_Read 12a1 00d8 | | Load_Top At_Offset_0 12a2 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 12a3 e5fe | | Load 0x2,-0x2 12a4 e017 | | Load 0x0,0x17 12a5 a018 | | Store_Unchecked 0x0,0x18 12a6 a019 | | Store_Unchecked 0x0,0x19 12a7 a01a | | Store_Unchecked 0x0,0x1a 12a8 a01b | | Store_Unchecked 0x0,0x1b 12a9 a01c | | Store_Unchecked 0x0,0x1c 12aa e01d | | Load 0x0,0x1d 12ab 1815 | | Execute Package,Field_Execute,Field_Number 0x15 12ac 00d9 | | Load_Top At_Offset_1 12ad 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 12ae 00d1 | | Pop_Control Pop_Count_1 12af e5ff | | Load 0x2,-0x1 12b0 0219 | | Execute Heap_Access,All_Read 12b1 00d8 | | Load_Top At_Offset_0 12b2 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 12b3 4800 |H | Short_Literal 0x0 12b4 e002 | | Load 0x0,0x2 12b5 181b | | Execute Package,Field_Execute,Field_Number 0x1b 12b6 00d9 | | Load_Top At_Offset_1 12b7 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 12b8 00d1 | | Pop_Control Pop_Count_1 12b9 4800 |H | Short_Literal 0x0 12ba 00d9 | | Load_Top At_Offset_1 12bb 0092 1785 | | Action Push_String_Extended,0x1785 ; "<TEMP>" 12bd 840b | | Call 0x2,0xb 12be e5fe | | Load 0x2,-0x2 12bf e012 | | Load 0x0,0x12 12c0 1820 | | Execute Package,Field_Execute,Field_Number 0x20 12c1 682b |h+ | Jump_Zero 0x12ed 12c2 e5ff | | Load 0x2,-0x1 12c3 0217 | | Execute Heap_Access,All_Reference 12c4 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 12c5 6817 |h | Jump_Zero 0x12dd 12c6 e00d | | Load 0x0,0xd 12c7 180e | | Execute Package,Field_Execute,Field_Number 0xe 12c8 4801 |H | Short_Literal 0x1 12c9 4802 |H | Short_Literal 0x2 12ca e00e | | Load 0x0,0xe 12cb 1b0f | | Execute Package,Field_Read,Field_Number 0xf 12cc 0334 | 4 | Declare_Variable Array,With_Constraint 12cd 00db | | Load_Top At_Offset_3 12ce e00e | | Load 0x0,0xe 12cf 1810 | | Execute Package,Field_Execute,Field_Number 0x10 12d0 4801 |H | Short_Literal 0x1 12d1 00da | | Load_Top At_Offset_2 12d2 01d6 | | Execute Vector,Field_Write 12d3 00da | | Load_Top At_Offset_2 12d4 e00e | | Load 0x0,0xe 12d5 1810 | | Execute Package,Field_Execute,Field_Number 0x10 12d6 4802 |H | Short_Literal 0x2 12d7 00da | | Load_Top At_Offset_2 12d8 01d6 | | Execute Vector,Field_Write 12d9 6016 |` | Indirect_Literal Discrete,0x12f0,{0x00000000, 0x0000401f} 12da e001 | | Load 0x0,0x1 12db 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 12dc 4501 |E | Exit_Suprogram New_Top_Offset 0x1 12dd e00d | | Load 0x0,0xd 12de 180e | | Execute Package,Field_Execute,Field_Number 0xe 12df 4801 |H | Short_Literal 0x1 12e0 4801 |H | Short_Literal 0x1 12e1 e00e | | Load 0x0,0xe 12e2 1b0f | | Execute Package,Field_Read,Field_Number 0xf 12e3 0334 | 4 | Declare_Variable Array,With_Constraint 12e4 00db | | Load_Top At_Offset_3 12e5 e00e | | Load 0x0,0xe 12e6 1810 | | Execute Package,Field_Execute,Field_Number 0x10 12e7 4801 |H | Short_Literal 0x1 12e8 00da | | Load_Top At_Offset_2 12e9 01d6 | | Execute Vector,Field_Write 12ea 6005 |` | Indirect_Literal Discrete,0x12f0,{0x00000000, 0x0000401f} 12eb e001 | | Load 0x0,0x1 12ec 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 12ed 4501 |E | Exit_Suprogram New_Top_Offset 0x1 12ee 0000 0000 | | .XXX[0x2] 12f0 0000 0000 | | .LITERAL {0x00000000, 0x0000401f} 12f4 0000 0000 | | .BLANK 0000[0x4] 12f8 ; -------------------------------------------------------------------------------------- 12f8 ; SUBPROGRAM 12f8 ; -------------------------------------------------------------------------------------- 12f8 1306 | | .CONST 0x1306 ; Address of begin 12f9 0004 | | .CONST 0x0004 ; Address of exception handler 12fa 0002 | | .CONST 0x0002 ; Number of locals 12fb INIT_12f8: 12fb e5ff | | Load 0x2,-0x1 12fc 0217 | | Execute Heap_Access,All_Reference 12fd 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 12fe 0219 | | Execute Heap_Access,All_Read 12ff e20f | | Load 0x1,0xf 1300 0119 | | Execute Any,Check_In_Formal_Type 1301 e5ff | | Load 0x2,-0x1 1302 0217 | | Execute Heap_Access,All_Reference 1303 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 1304 e5fe | | Load 0x2,-0x2 1305 8211 | | Call 0x1,0x11 1306 BODY_12f8: 1306 e5ff | | Load 0x2,-0x1 1307 0217 | | Execute Heap_Access,All_Reference 1308 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 1309 6824 |h$ | Jump_Zero 0x132e 130a 00d8 | | Load_Top At_Offset_0 130b e001 | | Load 0x0,0x1 130c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 130d 01df | | Execute Vector,Equal 130e 6818 |h | Jump_Zero 0x1327 130f e00d | | Load 0x0,0xd 1310 180e | | Execute Package,Field_Execute,Field_Number 0xe 1311 4801 |H | Short_Literal 0x1 1312 4801 |H | Short_Literal 0x1 1313 e00e | | Load 0x0,0xe 1314 1b0f | | Execute Package,Field_Read,Field_Number 0xf 1315 0334 | 4 | Declare_Variable Array,With_Constraint 1316 e5fe | | Load 0x2,-0x2 1317 e012 | | Load 0x0,0x12 1318 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 1319 4801 |H | Short_Literal 0x1 131a 00da | | Load_Top At_Offset_2 131b 01d6 | | Execute Vector,Field_Write 131c 6017 |` | Indirect_Literal Discrete,0x1334,{0x00000000, 0x00004027} 131d e001 | | Load 0x0,0x1 131e 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 131f e00e | | Load 0x0,0xe 1320 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 1321 6012 |` | Indirect_Literal Discrete,0x1334,{0x00000000, 0x00004027} 1322 e001 | | Load 0x0,0x1 1323 1813 | | Execute Package,Field_Execute,Field_Number 0x13 1324 e5fe | | Load 0x2,-0x2 1325 e012 | | Load 0x0,0x12 1326 181f | | Execute Package,Field_Execute,Field_Number 0x1f 1327 482e |H. | Short_Literal 0x2e 1328 e40a | | Load 0x2,0xa 1329 01cb | | Execute Vector,Append 132a 00d9 | | Load_Top At_Offset_1 132b 01cc | | Execute Vector,Catenate 132c 00cb | | Action Pop_Block_With_Result 132d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 132e 00d8 | | Load_Top At_Offset_0 132f 00cb | | Action Pop_Block_With_Result 1330 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 1331 0000 0000 | | .XXX[0x3] 1333 0000 | | 1334 0000 0000 | | .LITERAL {0x00000000, 0x00004027} 1338 ; -------------------------------------------------------------------------------------- 1338 ; SUBPROGRAM 1338 ; -------------------------------------------------------------------------------------- 1338 1397 | | .CONST 0x1397 ; Address of begin 1339 0004 | | .CONST 0x0004 ; Address of exception handler 133a 0027 | ' | .CONST 0x0027 ; Number of locals 133b INIT_1338: 133b 03a9 | | Declare_Type Heap_Access,Indirect_Literal,Visible 133c 029a 13a3 | | Declare_Subprogram INIT_13a0,For_Outer_Call,Visible,Unelaborated 133e 029a 1433 | 3| Declare_Subprogram INIT_1430,For_Outer_Call,Visible,Unelaborated 1340 029a 143b | ;| Declare_Subprogram INIT_1438,For_Outer_Call,Visible,Unelaborated 1342 029a 155b | [| Declare_Subprogram INIT_1558,For_Outer_Call,Visible,Unelaborated 1344 029a 156b | k| Declare_Subprogram INIT_1568,For_Outer_Call,Visible,Unelaborated 1346 029a 1573 | s| Declare_Subprogram INIT_1570,For_Outer_Call,Visible,Unelaborated 1348 029a 1583 | | Declare_Subprogram INIT_1580,For_Outer_Call,Visible,Unelaborated 134a 029a 158b | | Declare_Subprogram INIT_1588,For_Outer_Call,Visible,Unelaborated 134c 029a 1593 | | Declare_Subprogram INIT_1590,For_Outer_Call,Visible,Unelaborated 134e 029a 159b | | Declare_Subprogram INIT_1598,For_Outer_Call,Visible,Unelaborated 1350 029a 15ab | | Declare_Subprogram INIT_15a8,For_Outer_Call,Visible,Unelaborated 1352 029a 15bb | | Declare_Subprogram INIT_15b8,For_Outer_Call,Visible,Unelaborated 1354 4807 |H | Short_Literal 0x7 1355 032a | * | Declare_Type Record,Incomplete 1356 00d8 | | Load_Top At_Offset_0 1357 02a0 | | Declare_Subprogram Null_Subprogram 1358 e213 | | Load 0x1,0x13 1359 03a3 | | Complete_Type Heap_Access,By_Defining 135a 00bf | | Action Accept_Activation 135b e001 | | Load 0x0,0x1 135c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 135d e002 | | Load 0x0,0x2 135e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 135f e003 | | Load 0x0,0x3 1360 1b0d | | Execute Package,Field_Read,Field_Number 0xd 1361 e004 | | Load 0x0,0x4 1362 1b0f | | Execute Package,Field_Read,Field_Number 0xf 1363 00e1 | | Load_Encached Boolean_Cache 1364 e005 | | Load 0x0,0x5 1365 1b14 | | Execute Package,Field_Read,Field_Number 0x14 1366 e210 | | Load 0x1,0x10 1367 029f 15c3 | | Declare_Subprogram INIT_15c0,For_Call 1369 e220 | | Load 0x1,0x20 136a 0326 | & | Complete_Type Record,By_Defining 136b 1d14 | | Execute_Immediate Reference_Lex_1,0x14 136c 00c7 | | Action Elaborate_Subprogram 136d 1d15 | | Execute_Immediate Reference_Lex_1,0x15 136e 00c7 | | Action Elaborate_Subprogram 136f 029d 15db | | Declare_Subprogram INIT_15d8,For_Outer_Call 1371 1d16 | | Execute_Immediate Reference_Lex_1,0x16 1372 00c7 | | Action Elaborate_Subprogram 1373 1d17 | | Execute_Immediate Reference_Lex_1,0x17 1374 00c7 | | Action Elaborate_Subprogram 1375 1d18 | | Execute_Immediate Reference_Lex_1,0x18 1376 00c7 | | Action Elaborate_Subprogram 1377 1d19 | | Execute_Immediate Reference_Lex_1,0x19 1378 00c7 | | Action Elaborate_Subprogram 1379 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 137a 00c7 | | Action Elaborate_Subprogram 137b 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 137c 00c7 | | Action Elaborate_Subprogram 137d 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 137e 00c7 | | Action Elaborate_Subprogram 137f 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 1380 00c7 | | Action Elaborate_Subprogram 1381 e006 | | Load 0x0,0x6 1382 e007 | | Load 0x0,0x7 1383 00db | | Load_Top At_Offset_3 1384 e213 | | Load 0x1,0x13 1385 e008 | | Load 0x0,0x8 1386 1b18 | | Execute Package,Field_Read,Field_Number 0x18 1387 0387 | | Declare_Variable Package 1388 00d8 | | Load_Top At_Offset_0 1389 020f | | Execute Module,Activate 138a e008 | | Load 0x0,0x8 138b 1919 | | Execute Package,Field_Reference,Field_Number 0x19 138c 00c6 | | Action Check_Subprogram_Elaborated 138d 00da | | Load_Top At_Offset_2 138e e213 | | Load 0x1,0x13 138f e009 | | Load 0x0,0x9 1390 e00a | | Load 0x0,0xa 1391 4800 |H | Short_Literal 0x0 1392 0007 | | Action Break_Optional 1393 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 1394 00c7 | | Action Elaborate_Subprogram 1395 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 1396 00c7 | | Action Elaborate_Subprogram 1397 BODY_1338: 1397 00bc | | Action Signal_Activated 1398 00bb | | Action Signal_Completion 1399 0000 0000 | | .BLANK 0000[0x7] 13a0 ; -------------------------------------------------------------------------------------- 13a0 ; SUBPROGRAM 13a0 ; -------------------------------------------------------------------------------------- 13a0 13ae | | .CONST 0x13ae ; Address of begin 13a1 1413 | | .CONST 0x1413 ; Address of exception handler 13a2 0004 | | .CONST 0x0004 ; Number of locals 13a3 INIT_13a0: 13a3 e213 | | Load 0x1,0x13 13a4 e00b | | Load 0x0,0xb 13a5 180d | | Execute Package,Field_Execute,Field_Number 0xd 13a6 039c | | Declare_Variable Heap_Access,By_Allocation 13a7 00d8 | | Load_Top At_Offset_0 13a8 0217 | | Execute Heap_Access,All_Reference 13a9 1c00 | | Execute_Immediate Run_Utility,0x0 13aa e00c | | Load 0x0,0xc 13ab 1b0d | | Execute Package,Field_Read,Field_Number 0xd 13ac e002 | | Load 0x0,0x2 13ad 1b10 | | Execute Package,Field_Read,Field_Number 0x10 13ae BODY_13a0: 13ae e5ff | | Load 0x2,-0x1 13af e20f | | Load 0x1,0xf 13b0 0119 | | Execute Any,Check_In_Formal_Type 13b1 e210 | | Load 0x1,0x10 13b2 e00b | | Load 0x0,0xb 13b3 180d | | Execute Package,Field_Execute,Field_Number 0xd 13b4 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value 13b5 00db | | Load_Top At_Offset_3 13b6 0217 | | Execute Heap_Access,All_Reference 13b7 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 13b8 e00d | | Load 0x0,0xd 13b9 181d | | Execute Package,Field_Execute,Field_Number 0x1d 13ba e00e | | Load 0x0,0xe 13bb 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37 13bc 702d |p- | Jump_Nonzero 0x13ea 13bd e00c | | Load 0x0,0xc 13be 1b0d | | Execute Package,Field_Read,Field_Number 0xd 13bf 4800 |H | Short_Literal 0x0 13c0 e00f | | Load 0x0,0xf 13c1 180f | | Execute Package,Field_Execute,Field_Number 0xf 13c2 e010 | | Load 0x0,0x10 13c3 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 13c4 4800 |H | Short_Literal 0x0 13c5 e00c | | Load 0x0,0xc 13c6 1812 | | Execute Package,Field_Execute,Field_Number 0x12 13c7 0032 | 2 | Store_Top Heap_Access,At_Offset_2 13c8 00da | | Load_Top At_Offset_2 13c9 0219 | | Execute Heap_Access,All_Read 13ca 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 13cb e002 | | Load 0x0,0x2 13cc 1b10 | | Execute Package,Field_Read,Field_Number 0x10 13cd 00d9 | | Load_Top At_Offset_1 13ce 0219 | | Execute Heap_Access,All_Read 13cf 00d8 | | Load_Top At_Offset_0 13d0 0120 | | Execute Any,Is_Value 13d1 6803 |h | Jump_Zero 0x13d5 13d2 e20f | | Load 0x1,0xf 13d3 011e | | Execute Any,Convert 13d4 7802 |x | Jump 0x13d7 13d5 e20f | | Load 0x1,0xf 13d6 0119 | | Execute Any,Check_In_Formal_Type 13d7 e403 | | Load 0x2,0x3 13d8 8212 | | Call 0x1,0x12 13d9 00da | | Load_Top At_Offset_2 13da 0218 | | Execute Heap_Access,All_Write 13db 005a | Z | Store_Top Discrete,At_Offset_2 13dc 00d1 | | Pop_Control Pop_Count_1 13dd 00d8 | | Load_Top At_Offset_0 13de 680b |h | Jump_Zero 0x13ea 13df e002 | | Load 0x0,0x2 13e0 1b0d | | Execute Package,Field_Read,Field_Number 0xd 13e1 e010 | | Load 0x0,0x10 13e2 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 13e3 6044 |`D | Indirect_Literal Discrete,0x1428,{0x00000000, 0x0000400e} 13e4 e002 | | Load 0x0,0x2 13e5 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 13e6 c5fc | | Store 0x2,-0x4 13e7 e213 | | Load 0x1,0x13 13e8 a5fd | | Store_Unchecked 0x2,-0x3 13e9 4503 |E | Exit_Suprogram New_Top_Offset 0x3 13ea 00da | | Load_Top At_Offset_2 13eb 0219 | | Execute Heap_Access,All_Read 13ec 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 13ed 00d8 | | Load_Top At_Offset_0 13ee e00d | | Load 0x0,0xd 13ef 181d | | Execute Package,Field_Execute,Field_Number 0x1d 13f0 e001 | | Load 0x0,0x1 13f1 1812 | | Execute Package,Field_Execute,Field_Number 0x12 13f2 00d2 | | Pop_Control Pop_Count_2 13f3 e00d | | Load 0x0,0xd 13f4 181d | | Execute Package,Field_Execute,Field_Number 0x1d 13f5 e00e | | Load 0x0,0xe 13f6 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 13f7 00db | | Load_Top At_Offset_3 13f8 0217 | | Execute Heap_Access,All_Reference 13f9 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 13fa e002 | | Load 0x0,0x2 13fb 180e | | Execute Package,Field_Execute,Field_Number 0xe 13fc 00db | | Load_Top At_Offset_3 13fd 0217 | | Execute Heap_Access,All_Reference 13fe 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 13ff e5fe | | Load 0x2,-0x2 1400 00db | | Load_Top At_Offset_3 1401 0217 | | Execute Heap_Access,All_Reference 1402 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 1403 4800 |H | Short_Literal 0x0 1404 00db | | Load_Top At_Offset_3 1405 0217 | | Execute Heap_Access,All_Reference 1406 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 1407 e005 | | Load 0x0,0x5 1408 1815 | | Execute Package,Field_Execute,Field_Number 0x15 1409 00db | | Load_Top At_Offset_3 140a 0217 | | Execute Heap_Access,All_Reference 140b 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 140c 00da | | Load_Top At_Offset_2 140d a5fd | | Store_Unchecked 0x2,-0x3 140e 00da | | Load_Top At_Offset_2 140f 0217 | | Execute Heap_Access,All_Reference 1410 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 1411 a5fc | | Store_Unchecked 0x2,-0x4 1412 4503 |E | Exit_Suprogram New_Top_Offset 0x3 1413 TRAP_13a0: 1413 010b | | Execute Exception,Is_Storage_Error 1414 680b |h | Jump_Zero 0x1420 1415 e002 | | Load 0x0,0x2 1416 1b0d | | Execute Package,Field_Read,Field_Number 0xd 1417 e010 | | Load 0x0,0x10 1418 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 1419 600a |` | Indirect_Literal Discrete,0x1424,{0x00000000, 0x00004006} 141a e002 | | Load 0x0,0x2 141b 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 141c c5fc | | Store 0x2,-0x4 141d e213 | | Load 0x1,0x13 141e a5fd | | Store_Unchecked 0x2,-0x3 141f 4503 |E | Exit_Suprogram New_Top_Offset 0x3 1420 0100 | | Execute Exception,Raise 1421 0000 0000 | | .XXX[0x3] 1423 0000 | | 1424 0000 0000 | | .LITERAL {0x00000000, 0x00004006} 1428 0000 0000 | | .LITERAL {0x00000000, 0x0000400e} 142c 0000 0000 | | .BLANK 0000[0x4] 1430 ; -------------------------------------------------------------------------------------- 1430 ; SUBPROGRAM 1430 ; -------------------------------------------------------------------------------------- 1430 1433 | 3 | .CONST 0x1433 ; Address of begin 1431 0004 | | .CONST 0x0004 ; Address of exception handler 1432 0001 | | .CONST 0x0001 ; Number of locals 1433 BODY_1430: 1433 INIT_1430: 1433 4503 |E | Exit_Suprogram New_Top_Offset 0x3 1434 0000 0000 | | .BLANK 0000[0x4] 1438 ; -------------------------------------------------------------------------------------- 1438 ; SUBPROGRAM 1438 ; -------------------------------------------------------------------------------------- 1438 1458 | X | .CONST 0x1458 ; Address of begin 1439 1521 | ! | .CONST 0x1521 ; Address of exception handler 143a 000c | | .CONST 0x000c ; Number of locals 143b INIT_1438: 143b e002 | | Load 0x0,0x2 143c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 143d 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 143e e010 | | Load 0x0,0x10 143f 1b0e | | Execute Package,Field_Read,Field_Number 0xe 1440 e010 | | Load 0x0,0x10 1441 1b0e | | Execute Package,Field_Read,Field_Number 0xe 1442 e002 | | Load 0x0,0x2 1443 1b10 | | Execute Package,Field_Read,Field_Number 0x10 1444 e011 | | Load 0x0,0x11 1445 1b0f | | Execute Package,Field_Read,Field_Number 0xf 1446 02c7 | | Declare_Variable Any 1447 00d8 | | Load_Top At_Offset_0 1448 1c00 | | Execute_Immediate Run_Utility,0x0 1449 00ea | | Load_Encached Null_String_Cache 144a e5ff | | Load 0x2,-0x1 144b 0217 | | Execute Heap_Access,All_Reference 144c 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5 144d 8012 | | Call 0x0,0x12 144e 029f 1613 | | Declare_Subprogram INIT_1610,For_Call 1450 029f 162b | +| Declare_Subprogram INIT_1628,For_Call 1452 029f 1643 | C| Declare_Subprogram INIT_1640,For_Call 1454 029f 1693 | | Declare_Subprogram INIT_1690,For_Call 1456 029f 1703 | | Declare_Subprogram INIT_1700,For_Call 1458 BODY_1438: 1458 e00d | | Load 0x0,0xd 1459 181d | | Execute Package,Field_Execute,Field_Number 0x1d 145a e00e | | Load 0x0,0xe 145b 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37 145c 7030 |p0 | Jump_Nonzero 0x148d 145d e5ff | | Load 0x2,-0x1 145e 0219 | | Execute Heap_Access,All_Read 145f 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 1460 e002 | | Load 0x0,0x2 1461 1b10 | | Execute Package,Field_Read,Field_Number 0x10 1462 00d9 | | Load_Top At_Offset_1 1463 0219 | | Execute Heap_Access,All_Read 1464 00d8 | | Load_Top At_Offset_0 1465 0120 | | Execute Any,Is_Value 1466 6803 |h | Jump_Zero 0x146a 1467 e20f | | Load 0x1,0xf 1468 011e | | Execute Any,Convert 1469 7802 |x | Jump 0x146c 146a e20f | | Load 0x1,0xf 146b 0119 | | Execute Any,Check_In_Formal_Type 146c e5fe | | Load 0x2,-0x2 146d 8212 | | Call 0x1,0x12 146e 00da | | Load_Top At_Offset_2 146f 0218 | | Execute Heap_Access,All_Write 1470 c405 | | Store 0x2,0x5 1471 00d1 | | Pop_Control Pop_Count_1 1472 e405 | | Load 0x2,0x5 1473 6810 |h | Jump_Zero 0x1484 1474 e013 | | Load 0x0,0x13 1475 180e | | Execute Package,Field_Execute,Field_Number 0xe 1476 e010 | | Load 0x0,0x10 1477 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 1478 60d7 |` | Indirect_Literal Discrete,0x1550,{0x00000000, 0x0000400f} 1479 e002 | | Load 0x0,0x2 147a 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 147b e010 | | Load 0x0,0x10 147c 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 147d e405 | | Load 0x2,0x5 147e e002 | | Load 0x0,0x2 147f 1813 | | Execute Package,Field_Execute,Field_Number 0x13 1480 e5fe | | Load 0x2,-0x2 1481 e00c | | Load 0x0,0xc 1482 181f | | Execute Package,Field_Execute,Field_Number 0x1f 1483 4504 |E | Exit_Suprogram New_Top_Offset 0x4 1484 e5ff | | Load 0x2,-0x1 1485 0219 | | Execute Heap_Access,All_Read 1486 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 1487 00d8 | | Load_Top At_Offset_0 1488 e00d | | Load 0x0,0xd 1489 181d | | Execute Package,Field_Execute,Field_Number 0x1d 148a e001 | | Load 0x0,0x1 148b 1812 | | Execute Package,Field_Execute,Field_Number 0x12 148c 00d2 | | Pop_Control Pop_Count_2 148d e5fe | | Load 0x2,-0x2 148e e00c | | Load 0x0,0xc 148f 1816 | | Execute Package,Field_Execute,Field_Number 0x16 1490 4612 |F | Jump_Case 0x13 1491 7812 |x | Jump 0x14a4 ; case 0x0 1492 7811 |x | Jump 0x14a4 ; case 0x1 1493 7810 |x | Jump 0x14a4 ; case 0x2 1494 780f |x | Jump 0x14a4 ; case 0x3 1495 780e |x | Jump 0x14a4 ; case 0x4 1496 780d |x | Jump 0x14a4 ; case 0x5 1497 780c |x | Jump 0x14a4 ; case 0x6 1498 780b |x | Jump 0x14a4 ; case 0x7 1499 780a |x | Jump 0x14a4 ; case 0x8 149a 7809 |x | Jump 0x14a4 ; case 0x9 149b 7821 |x! | Jump 0x14bd ; case 0xa 149c 7843 |xC | Jump 0x14e0 ; case 0xb 149d 786f |xo | Jump 0x150d ; case 0xc 149e 7805 |x | Jump 0x14a4 ; case 0xd 149f 7804 |x | Jump 0x14a4 ; case 0xe 14a0 7803 |x | Jump 0x14a4 ; case 0xf 14a1 7802 |x | Jump 0x14a4 ; case 0x10 14a2 7801 |x | Jump 0x14a4 ; case 0x11 14a3 7800 |x | Jump 0x14a4 ; case 0x12 14a4 e013 | | Load 0x0,0x13 14a5 180e | | Execute Package,Field_Execute,Field_Number 0xe 14a6 4801 |H | Short_Literal 0x1 14a7 4801 |H | Short_Literal 0x1 14a8 e010 | | Load 0x0,0x10 14a9 1b0f | | Execute Package,Field_Read,Field_Number 0xf 14aa 0334 | 4 | Declare_Variable Array,With_Constraint 14ab e5fe | | Load 0x2,-0x2 14ac e00c | | Load 0x0,0xc 14ad 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 14ae 4801 |H | Short_Literal 0x1 14af 00da | | Load_Top At_Offset_2 14b0 01d6 | | Execute Vector,Field_Write 14b1 609a |` | Indirect_Literal Discrete,0x154c,{0x00000000, 0x00004017} 14b2 e002 | | Load 0x0,0x2 14b3 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 14b4 e010 | | Load 0x0,0x10 14b5 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 14b6 6095 |` | Indirect_Literal Discrete,0x154c,{0x00000000, 0x00004017} 14b7 e002 | | Load 0x0,0x2 14b8 1813 | | Execute Package,Field_Execute,Field_Number 0x13 14b9 e5fe | | Load 0x2,-0x2 14ba e00c | | Load 0x0,0xc 14bb 181f | | Execute Package,Field_Execute,Field_Number 0x1f 14bc 4504 |E | Exit_Suprogram New_Top_Offset 0x4 14bd 4801 |H | Short_Literal 0x1 14be e5fe | | Load 0x2,-0x2 14bf e00c | | Load 0x0,0xc 14c0 1818 | | Execute Package,Field_Execute,Field_Number 0x18 14c1 a403 | | Store_Unchecked 0x2,0x3 14c2 4802 |H | Short_Literal 0x2 14c3 e5fe | | Load 0x2,-0x2 14c4 e00c | | Load 0x0,0xc 14c5 1818 | | Execute Package,Field_Execute,Field_Number 0x18 14c6 a404 | | Store_Unchecked 0x2,0x4 14c7 e5fe | | Load 0x2,-0x2 14c8 8014 | | Call 0x0,0x14 14c9 7007 |p | Jump_Nonzero 0x14d1 14ca e404 | | Load 0x2,0x4 14cb 8408 | | Call 0x2,0x8 14cc e403 | | Load 0x2,0x3 14cd 8015 | | Call 0x0,0x15 14ce 4800 |H | Short_Literal 0x0 14cf 8409 | | Call 0x2,0x9 14d0 7801 |x | Jump 0x14d2 14d1 840a | | Call 0x2,0xa 14d2 4802 |H | Short_Literal 0x2 14d3 e406 | | Load 0x2,0x6 14d4 e011 | | Load 0x0,0x11 14d5 1817 | | Execute Package,Field_Execute,Field_Number 0x17 14d6 6808 |h | Jump_Zero 0x14df 14d7 e010 | | Load 0x0,0x10 14d8 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 14d9 606e |`n | Indirect_Literal Discrete,0x1548,{0x00000000, 0x00004011} 14da e002 | | Load 0x0,0x2 14db 1813 | | Execute Package,Field_Execute,Field_Number 0x13 14dc e5fe | | Load 0x2,-0x2 14dd e00c | | Load 0x0,0xc 14de 181f | | Execute Package,Field_Execute,Field_Number 0x1f 14df 4504 |E | Exit_Suprogram New_Top_Offset 0x4 14e0 4801 |H | Short_Literal 0x1 14e1 e5fe | | Load 0x2,-0x2 14e2 e00c | | Load 0x0,0xc 14e3 1818 | | Execute Package,Field_Execute,Field_Number 0x18 14e4 a403 | | Store_Unchecked 0x2,0x3 14e5 4802 |H | Short_Literal 0x2 14e6 e5fe | | Load 0x2,-0x2 14e7 e00c | | Load 0x0,0xc 14e8 1818 | | Execute Package,Field_Execute,Field_Number 0x18 14e9 a404 | | Store_Unchecked 0x2,0x4 14ea e5fe | | Load 0x2,-0x2 14eb 8016 | | Call 0x0,0x16 14ec 7011 |p | Jump_Nonzero 0x14fe 14ed e403 | | Load 0x2,0x3 14ee e010 | | Load 0x0,0x10 14ef 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 14f0 0f01 | | Execute_Immediate Equal,0x1 14f1 680c |h | Jump_Zero 0x14fe 14f2 e403 | | Load 0x2,0x3 14f3 e010 | | Load 0x0,0x10 14f4 1811 | | Execute Package,Field_Execute,Field_Number 0x11 14f5 01db | | Execute Vector,Length 14f6 6807 |h | Jump_Zero 0x14fe 14f7 e404 | | Load 0x2,0x4 14f8 8408 | | Call 0x2,0x8 14f9 e403 | | Load 0x2,0x3 14fa 8015 | | Call 0x0,0x15 14fb 4801 |H | Short_Literal 0x1 14fc 8409 | | Call 0x2,0x9 14fd 7801 |x | Jump 0x14ff 14fe 840b | | Call 0x2,0xb 14ff 4802 |H | Short_Literal 0x2 1500 e406 | | Load 0x2,0x6 1501 e011 | | Load 0x0,0x11 1502 1817 | | Execute Package,Field_Execute,Field_Number 0x17 1503 6808 |h | Jump_Zero 0x150c 1504 e010 | | Load 0x0,0x10 1505 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 1506 6041 |`A | Indirect_Literal Discrete,0x1548,{0x00000000, 0x00004011} 1507 e002 | | Load 0x0,0x2 1508 1813 | | Execute Package,Field_Execute,Field_Number 0x13 1509 e5fe | | Load 0x2,-0x2 150a e00c | | Load 0x0,0xc 150b 181f | | Execute Package,Field_Execute,Field_Number 0x1f 150c 4504 |E | Exit_Suprogram New_Top_Offset 0x4 150d 4801 |H | Short_Literal 0x1 150e e5fe | | Load 0x2,-0x2 150f e00c | | Load 0x0,0xc 1510 1818 | | Execute Package,Field_Execute,Field_Number 0x18 1511 a403 | | Store_Unchecked 0x2,0x3 1512 840c | | Call 0x2,0xc 1513 4802 |H | Short_Literal 0x2 1514 e406 | | Load 0x2,0x6 1515 e011 | | Load 0x0,0x11 1516 1817 | | Execute Package,Field_Execute,Field_Number 0x17 1517 6808 |h | Jump_Zero 0x1520 1518 e010 | | Load 0x0,0x10 1519 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 151a 602d |`- | Indirect_Literal Discrete,0x1548,{0x00000000, 0x00004011} 151b e002 | | Load 0x0,0x2 151c 1813 | | Execute Package,Field_Execute,Field_Number 0x13 151d e5fe | | Load 0x2,-0x2 151e e00c | | Load 0x0,0xc 151f 181f | | Execute Package,Field_Execute,Field_Number 0x1f 1520 4504 |E | Exit_Suprogram New_Top_Offset 0x4 1521 TRAP_1438: 1521 e017 | | Load 0x0,0x17 1522 010f | | Execute Exception,Equal 1523 681b |h | Jump_Zero 0x153f 1524 e5ff | | Load 0x2,-0x1 1525 8221 | ! | Call 0x1,0x21 1526 e013 | | Load 0x0,0x13 1527 180e | | Execute Package,Field_Execute,Field_Number 0xe 1528 4801 |H | Short_Literal 0x1 1529 4801 |H | Short_Literal 0x1 152a e010 | | Load 0x0,0x10 152b 1b0f | | Execute Package,Field_Read,Field_Number 0xf 152c 0334 | 4 | Declare_Variable Array,With_Constraint 152d e5fe | | Load 0x2,-0x2 152e e00c | | Load 0x0,0xc 152f 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 1530 4801 |H | Short_Literal 0x1 1531 00da | | Load_Top At_Offset_2 1532 01d6 | | Execute Vector,Field_Write 1533 6010 |` | Indirect_Literal Discrete,0x1544,{0x00000000, 0x00004019} 1534 e002 | | Load 0x0,0x2 1535 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 1536 e010 | | Load 0x0,0x10 1537 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 1538 600b |` | Indirect_Literal Discrete,0x1544,{0x00000000, 0x00004019} 1539 e002 | | Load 0x0,0x2 153a 1813 | | Execute Package,Field_Execute,Field_Number 0x13 153b e5fe | | Load 0x2,-0x2 153c e00c | | Load 0x0,0xc 153d 181f | | Execute Package,Field_Execute,Field_Number 0x1f 153e 4504 |E | Exit_Suprogram New_Top_Offset 0x4 153f e5ff | | Load 0x2,-0x1 1540 8221 | ! | Call 0x1,0x21 1541 00d8 | | Load_Top At_Offset_0 1542 0101 | | Execute Exception,Reraise 1543 0000 | | .XXX[0x1] 1544 0000 0000 | | .LITERAL {0x00000000, 0x00004019} 1548 0000 0000 | | .LITERAL {0x00000000, 0x00004011} 154c 0000 0000 | | .LITERAL {0x00000000, 0x00004017} 1550 0000 0000 | | .LITERAL {0x00000000, 0x0000400f} 1554 0000 0000 | | .BLANK 0000[0x4] 1558 ; -------------------------------------------------------------------------------------- 1558 ; SUBPROGRAM 1558 ; -------------------------------------------------------------------------------------- 1558 155b | [ | .CONST 0x155b ; Address of begin 1559 0004 | | .CONST 0x0004 ; Address of exception handler 155a 0001 | | .CONST 0x0001 ; Number of locals 155b BODY_1558: 155b INIT_1558: 155b 00da | | Load_Top At_Offset_2 155c 0217 | | Execute Heap_Access,All_Reference 155d 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 155e 0219 | | Execute Heap_Access,All_Read 155f c5fe | | Store 0x2,-0x2 1560 e210 | | Load 0x1,0x10 1561 00db | | Load_Top At_Offset_3 1562 0217 | | Execute Heap_Access,All_Reference 1563 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 1564 00da | | Load_Top At_Offset_2 1565 8221 | ! | Call 0x1,0x21 1566 4502 |E | Exit_Suprogram New_Top_Offset 0x2 1567 0000 | | .XXX[0x1] 1568 ; -------------------------------------------------------------------------------------- 1568 ; SUBPROGRAM 1568 ; -------------------------------------------------------------------------------------- 1568 156b | k | .CONST 0x156b ; Address of begin 1569 0004 | | .CONST 0x0004 ; Address of exception handler 156a 0001 | | .CONST 0x0001 ; Number of locals 156b BODY_1568: 156b INIT_1568: 156b 00da | | Load_Top At_Offset_2 156c 0217 | | Execute Heap_Access,All_Reference 156d 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 156e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 156f 0000 | | .XXX[0x1] 1570 ; -------------------------------------------------------------------------------------- 1570 ; SUBPROGRAM 1570 ; -------------------------------------------------------------------------------------- 1570 1573 | s | .CONST 0x1573 ; Address of begin 1571 0004 | | .CONST 0x0004 ; Address of exception handler 1572 0001 | | .CONST 0x0001 ; Number of locals 1573 BODY_1570: 1573 INIT_1570: 1573 00da | | Load_Top At_Offset_2 1574 0217 | | Execute Heap_Access,All_Reference 1575 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 1576 e210 | | Load 0x1,0x10 1577 0213 | | Execute Heap_Access,Check_In_Type 1578 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 1579 0000 0000 | | .BLANK 0000[0x7] 1580 ; -------------------------------------------------------------------------------------- 1580 ; SUBPROGRAM 1580 ; -------------------------------------------------------------------------------------- 1580 1583 | | .CONST 0x1583 ; Address of begin 1581 0004 | | .CONST 0x0004 ; Address of exception handler 1582 0001 | | .CONST 0x0001 ; Number of locals 1583 BODY_1580: 1583 INIT_1580: 1583 00da | | Load_Top At_Offset_2 1584 0217 | | Execute Heap_Access,All_Reference 1585 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 1586 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 1587 0000 | | .XXX[0x1] 1588 ; -------------------------------------------------------------------------------------- 1588 ; SUBPROGRAM 1588 ; -------------------------------------------------------------------------------------- 1588 158b | | .CONST 0x158b ; Address of begin 1589 0004 | | .CONST 0x0004 ; Address of exception handler 158a 0001 | | .CONST 0x0001 ; Number of locals 158b BODY_1588: 158b INIT_1588: 158b 00db | | Load_Top At_Offset_3 158c 00db | | Load_Top At_Offset_3 158d 0217 | | Execute Heap_Access,All_Reference 158e 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 158f 4503 |E | Exit_Suprogram New_Top_Offset 0x3 1590 ; -------------------------------------------------------------------------------------- 1590 ; SUBPROGRAM 1590 ; -------------------------------------------------------------------------------------- 1590 1593 | | .CONST 0x1593 ; Address of begin 1591 0004 | | .CONST 0x0004 ; Address of exception handler 1592 0001 | | .CONST 0x0001 ; Number of locals 1593 BODY_1590: 1593 INIT_1590: 1593 00da | | Load_Top At_Offset_2 1594 0217 | | Execute Heap_Access,All_Reference 1595 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 1596 0f00 | | Execute_Immediate Equal,0x0 1597 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 1598 ; -------------------------------------------------------------------------------------- 1598 ; SUBPROGRAM 1598 ; -------------------------------------------------------------------------------------- 1598 159b | | .CONST 0x159b ; Address of begin 1599 0004 | | .CONST 0x0004 ; Address of exception handler 159a 0001 | | .CONST 0x0001 ; Number of locals 159b BODY_1598: 159b INIT_1598: 159b 00da | | Load_Top At_Offset_2 159c 0217 | | Execute Heap_Access,All_Reference 159d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 159e e002 | | Load 0x0,0x2 159f 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 15a0 4502 |E | Exit_Suprogram New_Top_Offset 0x2 15a1 0000 0000 | | .BLANK 0000[0x7] 15a8 ; -------------------------------------------------------------------------------------- 15a8 ; SUBPROGRAM 15a8 ; -------------------------------------------------------------------------------------- 15a8 15ab | | .CONST 0x15ab ; Address of begin 15a9 0004 | | .CONST 0x0004 ; Address of exception handler 15aa 0001 | | .CONST 0x0001 ; Number of locals 15ab BODY_15a8: 15ab INIT_15a8: 15ab 00da | | Load_Top At_Offset_2 15ac e00b | | Load 0x0,0xb 15ad 180d | | Execute Package,Field_Execute,Field_Number 0xd 15ae e223 | # | Load 0x1,0x23 15af e224 | $ | Load 0x1,0x24 15b0 1d25 | % | Execute_Immediate Reference_Lex_1,0x25 15b1 e008 | | Load 0x0,0x8 15b2 1819 | | Execute Package,Field_Execute,Field_Number 0x19 15b3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 15b4 0000 0000 | | .BLANK 0000[0x4] 15b8 ; -------------------------------------------------------------------------------------- 15b8 ; SUBPROGRAM 15b8 ; -------------------------------------------------------------------------------------- 15b8 15bb | | .CONST 0x15bb ; Address of begin 15b9 0004 | | .CONST 0x0004 ; Address of exception handler 15ba 0001 | | .CONST 0x0001 ; Number of locals 15bb BODY_15b8: 15bb INIT_15b8: 15bb 00da | | Load_Top At_Offset_2 15bc e222 | " | Load 0x1,0x22 15bd 1812 | | Execute Package,Field_Execute,Field_Number 0x12 15be 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 15bf 0000 | | .XXX[0x1] 15c0 ; -------------------------------------------------------------------------------------- 15c0 ; SUBPROGRAM 15c0 ; -------------------------------------------------------------------------------------- 15c0 15c3 | | .CONST 0x15c3 ; Address of begin 15c1 0004 | | .CONST 0x0004 ; Address of exception handler 15c2 0001 | | .CONST 0x0001 ; Number of locals 15c3 BODY_15c0: 15c3 INIT_15c0: 15c3 4608 |F | Jump_Case 0x9 15c4 7808 |x | Jump 0x15cd ; case 0x0 15c5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 15c6 780a |x | Jump 0x15d1 ; case 0x2 15c7 7809 |x | Jump 0x15d1 ; case 0x3 15c8 7808 |x | Jump 0x15d1 ; case 0x4 15c9 7807 |x | Jump 0x15d1 ; case 0x5 15ca 7806 |x | Jump 0x15d1 ; case 0x6 15cb 7805 |x | Jump 0x15d1 ; case 0x7 15cc 7804 |x | Jump 0x15d1 ; case 0x8 15cd 00da | | Load_Top At_Offset_2 15ce 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 15cf 1c00 | | Execute_Immediate Run_Utility,0x0 15d0 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 15d1 0869 | i | Execute_Immediate Raise,0x69 15d2 0000 0000 | | .BLANK 0000[0x6] 15d8 ; -------------------------------------------------------------------------------------- 15d8 ; SUBPROGRAM 15d8 ; -------------------------------------------------------------------------------------- 15d8 15db | | .CONST 0x15db ; Address of begin 15d9 0004 | | .CONST 0x0004 ; Address of exception handler 15da 0001 | | .CONST 0x0001 ; Number of locals 15db BODY_15d8: 15db INIT_15d8: 15db 00da | | Load_Top At_Offset_2 15dc 0217 | | Execute Heap_Access,All_Reference 15dd 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 15de 682a |h* | Jump_Zero 0x1609 15df 00da | | Load_Top At_Offset_2 15e0 0217 | | Execute Heap_Access,All_Reference 15e1 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 15e2 0229 | ) | Execute Access,All_Read 15e3 e018 | | Load 0x0,0x18 15e4 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 15e5 7015 |p | Jump_Nonzero 0x15fb 15e6 00da | | Load_Top At_Offset_2 15e7 0219 | | Execute Heap_Access,All_Read 15e8 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 15e9 00d8 | | Load_Top At_Offset_0 15ea 0229 | ) | Execute Access,All_Read 15eb e019 | | Load 0x0,0x19 15ec 1b0e | | Execute Package,Field_Read,Field_Number 0xe 15ed e01a | | Load 0x0,0x1a 15ee 181e | | Execute Package,Field_Execute,Field_Number 0x1e 15ef 00ea | | Load_Encached Null_String_Cache 15f0 00ea | | Load_Encached Null_String_Cache 15f1 e5ff | | Load 0x2,-0x1 15f2 0217 | | Execute Heap_Access,All_Reference 15f3 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5 15f4 8012 | | Call 0x0,0x12 15f5 4800 |H | Short_Literal 0x0 15f6 e018 | | Load 0x0,0x18 15f7 1814 | | Execute Package,Field_Execute,Field_Number 0x14 15f8 00d9 | | Load_Top At_Offset_1 15f9 0228 | ( | Execute Access,All_Write 15fa 00d1 | | Pop_Control Pop_Count_1 15fb 00da | | Load_Top At_Offset_2 15fc 0219 | | Execute Heap_Access,All_Read 15fd 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 15fe 00d8 | | Load_Top At_Offset_0 15ff 0229 | ) | Execute Access,All_Read 1600 e018 | | Load 0x0,0x18 1601 181a | | Execute Package,Field_Execute,Field_Number 0x1a 1602 00d9 | | Load_Top At_Offset_1 1603 0228 | ( | Execute Access,All_Write 1604 00d1 | | Pop_Control Pop_Count_1 1605 4800 |H | Short_Literal 0x0 1606 00db | | Load_Top At_Offset_3 1607 0217 | | Execute Heap_Access,All_Reference 1608 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 1609 4502 |E | Exit_Suprogram New_Top_Offset 0x2 160a 0000 0000 | | .BLANK 0000[0x6] 1610 ; -------------------------------------------------------------------------------------- 1610 ; SUBPROGRAM 1610 ; -------------------------------------------------------------------------------------- 1610 1615 | | .CONST 0x1615 ; Address of begin 1611 0004 | | .CONST 0x0004 ; Address of exception handler 1612 0002 | | .CONST 0x0002 ; Number of locals 1613 INIT_1610: 1613 029f 1753 | S| Declare_Subprogram INIT_1750,For_Call 1615 BODY_1610: 1615 00db | | Load_Top At_Offset_3 1616 e010 | | Load 0x0,0x10 1617 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 1618 0b0f | | Execute_Immediate Case_Compare,0xf 1619 7004 |p | Jump_Nonzero 0x161e 161a 0f01 | | Execute_Immediate Equal,0x1 161b 7005 |p | Jump_Nonzero 0x1621 161c e017 | | Load 0x0,0x17 161d 0257 | W | Execute Discrete,Raise 161e 00d1 | | Pop_Control Pop_Count_1 161f 8602 | | Call 0x3,0x2 1620 7804 |x | Jump 0x1625 1621 00db | | Load_Top At_Offset_3 1622 e010 | | Load 0x0,0x10 1623 1811 | | Execute Package,Field_Execute,Field_Number 0x11 1624 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 1625 0831 | 1 | Execute_Immediate Raise,0x31 1626 0000 0000 | | .XXX[0x2] 1628 ; -------------------------------------------------------------------------------------- 1628 ; SUBPROGRAM 1628 ; -------------------------------------------------------------------------------------- 1628 162b | + | .CONST 0x162b ; Address of begin 1629 0004 | | .CONST 0x0004 ; Address of exception handler 162a 0001 | | .CONST 0x0001 ; Number of locals 162b BODY_1628: 162b INIT_1628: 162b e5ff | | Load 0x2,-0x1 162c 0219 | | Execute Heap_Access,All_Read 162d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 162e e406 | | Load 0x2,0x6 162f 00d9 | | Load_Top At_Offset_1 1630 e013 | | Load 0x0,0x13 1631 180e | | Execute Package,Field_Execute,Field_Number 0xe 1632 e5fd | | Load 0x2,-0x3 1633 e7fd | | Load 0x3,-0x3 1634 e7fe | | Load 0x3,-0x2 1635 e7ff | | Load 0x3,-0x1 1636 e001 | | Load 0x0,0x1 1637 1818 | | Execute Package,Field_Execute,Field_Number 0x18 1638 00d1 | | Pop_Control Pop_Count_1 1639 c406 | | Store 0x2,0x6 163a 4504 |E | Exit_Suprogram New_Top_Offset 0x4 163b 0000 0000 | | .BLANK 0000[0x5] 1640 ; -------------------------------------------------------------------------------------- 1640 ; SUBPROGRAM 1640 ; -------------------------------------------------------------------------------------- 1640 1645 | E | .CONST 0x1645 ; Address of begin 1641 0004 | | .CONST 0x0004 ; Address of exception handler 1642 0002 | | .CONST 0x0002 ; Number of locals 1643 INIT_1640: 1643 e404 | | Load 0x2,0x4 1644 8408 | | Call 0x2,0x8 1645 BODY_1640: 1645 e5fe | | Load 0x2,-0x2 1646 e00c | | Load 0x0,0xc 1647 1820 | | Execute Package,Field_Execute,Field_Number 0x20 1648 7002 |p | Jump_Nonzero 0x164b 1649 00cc | | Action Pop_Block 164a 4504 |E | Exit_Suprogram New_Top_Offset 0x4 164b e5ff | | Load 0x2,-0x1 164c 0219 | | Execute Heap_Access,All_Read 164d 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 164e e402 | | Load 0x2,0x2 164f 00d9 | | Load_Top At_Offset_1 1650 0229 | ) | Execute Access,All_Read 1651 e407 | | Load 0x2,0x7 1652 801b | | Call 0x0,0x1b 1653 00da | | Load_Top At_Offset_2 1654 0228 | ( | Execute Access,All_Write 1655 c402 | | Store 0x2,0x2 1656 00d1 | | Pop_Control Pop_Count_1 1657 e402 | | Load 0x2,0x2 1658 7005 |p | Jump_Nonzero 0x165e 1659 4801 |H | Short_Literal 0x1 165a e5ff | | Load 0x2,-0x1 165b 0217 | | Execute Heap_Access,All_Reference 165c 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 165d 7806 |x | Jump 0x1664 165e e402 | | Load 0x2,0x2 165f e5fe | | Load 0x2,-0x2 1660 e00c | | Load 0x0,0xc 1661 181f | | Execute Package,Field_Execute,Field_Number 0x1f 1662 00cc | | Action Pop_Block 1663 4504 |E | Exit_Suprogram New_Top_Offset 0x4 1664 e5ff | | Load 0x2,-0x1 1665 0219 | | Execute Heap_Access,All_Read 1666 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 1667 00d8 | | Load_Top At_Offset_0 1668 0229 | ) | Execute Access,All_Read 1669 e5fe | | Load 0x2,-0x2 166a e01c | | Load 0x0,0x1c 166b a01d | | Store_Unchecked 0x0,0x1d 166c a01e | | Store_Unchecked 0x0,0x1e 166d a01f | | Store_Unchecked 0x0,0x1f 166e a020 | | Store_Unchecked 0x0,0x20 166f a021 | ! | Store_Unchecked 0x0,0x21 1670 e022 | " | Load 0x0,0x22 1671 1815 | | Execute Package,Field_Execute,Field_Number 0x15 1672 00d9 | | Load_Top At_Offset_1 1673 0228 | ( | Execute Access,All_Write 1674 00d1 | | Pop_Control Pop_Count_1 1675 e5ff | | Load 0x2,-0x1 1676 0219 | | Execute Heap_Access,All_Read 1677 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 1678 00d8 | | Load_Top At_Offset_0 1679 0229 | ) | Execute Access,All_Read 167a 4800 |H | Short_Literal 0x0 167b e018 | | Load 0x0,0x18 167c 181b | | Execute Package,Field_Execute,Field_Number 0x1b 167d 00d9 | | Load_Top At_Offset_1 167e 0228 | ( | Execute Access,All_Write 167f 00d1 | | Pop_Control Pop_Count_1 1680 00d8 | | Load_Top At_Offset_0 1681 0092 1787 | | Action Push_String_Extended,0x1787 ; "<OPEN>" 1683 4800 |H | Short_Literal 0x0 1684 8409 | | Call 0x2,0x9 1685 e5ff | | Load 0x2,-0x1 1686 0219 | | Execute Heap_Access,All_Read 1687 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 1688 00d8 | | Load_Top At_Offset_0 1689 0229 | ) | Execute Access,All_Read 168a e018 | | Load 0x0,0x18 168b 1819 | | Execute Package,Field_Execute,Field_Number 0x19 168c 00d9 | | Load_Top At_Offset_1 168d 0228 | ( | Execute Access,All_Write 168e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 168f 0000 | | .XXX[0x1] 1690 ; -------------------------------------------------------------------------------------- 1690 ; SUBPROGRAM 1690 ; -------------------------------------------------------------------------------------- 1690 1695 | | .CONST 0x1695 ; Address of begin 1691 0004 | | .CONST 0x0004 ; Address of exception handler 1692 0002 | | .CONST 0x0002 ; Number of locals 1693 INIT_1690: 1693 e404 | | Load 0x2,0x4 1694 8408 | | Call 0x2,0x8 1695 BODY_1690: 1695 e5fe | | Load 0x2,-0x2 1696 e00c | | Load 0x0,0xc 1697 1820 | | Execute Package,Field_Execute,Field_Number 0x20 1698 7002 |p | Jump_Nonzero 0x169b 1699 00cc | | Action Pop_Block 169a 4504 |E | Exit_Suprogram New_Top_Offset 0x4 169b e5ff | | Load 0x2,-0x1 169c 0219 | | Execute Heap_Access,All_Read 169d 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 169e e402 | | Load 0x2,0x2 169f 00d9 | | Load_Top At_Offset_1 16a0 0229 | ) | Execute Access,All_Read 16a1 e407 | | Load 0x2,0x7 16a2 801b | | Call 0x0,0x1b 16a3 00da | | Load_Top At_Offset_2 16a4 0228 | ( | Execute Access,All_Write 16a5 c402 | | Store 0x2,0x2 16a6 00d1 | | Pop_Control Pop_Count_1 16a7 e402 | | Load 0x2,0x2 16a8 7005 |p | Jump_Nonzero 0x16ae 16a9 4801 |H | Short_Literal 0x1 16aa e5ff | | Load 0x2,-0x1 16ab 0217 | | Execute Heap_Access,All_Reference 16ac 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 16ad 7806 |x | Jump 0x16b4 16ae e402 | | Load 0x2,0x2 16af e5fe | | Load 0x2,-0x2 16b0 e00c | | Load 0x0,0xc 16b1 181f | | Execute Package,Field_Execute,Field_Number 0x1f 16b2 00cc | | Action Pop_Block 16b3 4504 |E | Exit_Suprogram New_Top_Offset 0x4 16b4 00d8 | | Load_Top At_Offset_0 16b5 0092 1787 | | Action Push_String_Extended,0x1787 ; "<OPEN>" 16b7 4801 |H | Short_Literal 0x1 16b8 8409 | | Call 0x2,0x9 16b9 4802 |H | Short_Literal 0x2 16ba e406 | | Load 0x2,0x6 16bb e011 | | Load 0x0,0x11 16bc 1817 | | Execute Package,Field_Execute,Field_Number 0x17 16bd 6814 |h | Jump_Zero 0x16d2 16be e5ff | | Load 0x2,-0x1 16bf 0219 | | Execute Heap_Access,All_Read 16c0 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 16c1 00d8 | | Load_Top At_Offset_0 16c2 0229 | ) | Execute Access,All_Read 16c3 e018 | | Load 0x0,0x18 16c4 1819 | | Execute Package,Field_Execute,Field_Number 0x19 16c5 00d9 | | Load_Top At_Offset_1 16c6 0228 | ( | Execute Access,All_Write 16c7 00d1 | | Pop_Control Pop_Count_1 16c8 e010 | | Load 0x0,0x10 16c9 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 16ca 6031 |`1 | Indirect_Literal Discrete,0x16fc,{0x00000000, 0x00004011} 16cb e002 | | Load 0x0,0x2 16cc 1813 | | Execute Package,Field_Execute,Field_Number 0x13 16cd e5fe | | Load 0x2,-0x2 16ce e00c | | Load 0x0,0xc 16cf 181f | | Execute Package,Field_Execute,Field_Number 0x1f 16d0 00cc | | Action Pop_Block 16d1 4504 |E | Exit_Suprogram New_Top_Offset 0x4 16d2 4801 |H | Short_Literal 0x1 16d3 e5ff | | Load 0x2,-0x1 16d4 0217 | | Execute Heap_Access,All_Reference 16d5 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 16d6 e5ff | | Load 0x2,-0x1 16d7 0219 | | Execute Heap_Access,All_Read 16d8 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 16d9 00d8 | | Load_Top At_Offset_0 16da 0229 | ) | Execute Access,All_Read 16db 4800 |H | Short_Literal 0x0 16dc e018 | | Load 0x0,0x18 16dd 181b | | Execute Package,Field_Execute,Field_Number 0x1b 16de 00d9 | | Load_Top At_Offset_1 16df 0228 | ( | Execute Access,All_Write 16e0 00d1 | | Pop_Control Pop_Count_1 16e1 e5ff | | Load 0x2,-0x1 16e2 0219 | | Execute Heap_Access,All_Read 16e3 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 16e4 00d8 | | Load_Top At_Offset_0 16e5 0229 | ) | Execute Access,All_Read 16e6 e5fe | | Load 0x2,-0x2 16e7 e01c | | Load 0x0,0x1c 16e8 a01d | | Store_Unchecked 0x0,0x1d 16e9 a01e | | Store_Unchecked 0x0,0x1e 16ea a01f | | Store_Unchecked 0x0,0x1f 16eb a020 | | Store_Unchecked 0x0,0x20 16ec a021 | ! | Store_Unchecked 0x0,0x21 16ed e022 | " | Load 0x0,0x22 16ee 1815 | | Execute Package,Field_Execute,Field_Number 0x15 16ef 00d9 | | Load_Top At_Offset_1 16f0 0228 | ( | Execute Access,All_Write 16f1 00d1 | | Pop_Control Pop_Count_1 16f2 e5ff | | Load 0x2,-0x1 16f3 0219 | | Execute Heap_Access,All_Read 16f4 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 16f5 00d8 | | Load_Top At_Offset_0 16f6 0229 | ) | Execute Access,All_Read 16f7 e018 | | Load 0x0,0x18 16f8 1819 | | Execute Package,Field_Execute,Field_Number 0x19 16f9 00d9 | | Load_Top At_Offset_1 16fa 0228 | ( | Execute Access,All_Write 16fb 4501 |E | Exit_Suprogram New_Top_Offset 0x1 16fc 0000 0000 | | .LITERAL {0x00000000, 0x00004011} 1700 ; -------------------------------------------------------------------------------------- 1700 ; SUBPROGRAM 1700 ; -------------------------------------------------------------------------------------- 1700 1705 | | .CONST 0x1705 ; Address of begin 1701 0004 | | .CONST 0x0004 ; Address of exception handler 1702 0002 | | .CONST 0x0002 ; Number of locals 1703 INIT_1700: 1703 e403 | | Load 0x2,0x3 1704 8408 | | Call 0x2,0x8 1705 BODY_1700: 1705 e5ff | | Load 0x2,-0x1 1706 0219 | | Execute Heap_Access,All_Read 1707 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 1708 e402 | | Load 0x2,0x2 1709 00d9 | | Load_Top At_Offset_1 170a 0229 | ) | Execute Access,All_Read 170b e407 | | Load 0x2,0x7 170c 801b | | Call 0x0,0x1b 170d 00da | | Load_Top At_Offset_2 170e 0228 | ( | Execute Access,All_Write 170f c402 | | Store 0x2,0x2 1710 00d1 | | Pop_Control Pop_Count_1 1711 e402 | | Load 0x2,0x2 1712 7005 |p | Jump_Nonzero 0x1718 1713 4801 |H | Short_Literal 0x1 1714 e5ff | | Load 0x2,-0x1 1715 0217 | | Execute Heap_Access,All_Reference 1716 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 1717 7806 |x | Jump 0x171e 1718 e402 | | Load 0x2,0x2 1719 e5fe | | Load 0x2,-0x2 171a e00c | | Load 0x0,0xc 171b 181f | | Execute Package,Field_Execute,Field_Number 0x1f 171c 00cc | | Action Pop_Block 171d 4504 |E | Exit_Suprogram New_Top_Offset 0x4 171e e5ff | | Load 0x2,-0x1 171f 0219 | | Execute Heap_Access,All_Read 1720 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 1721 00d8 | | Load_Top At_Offset_0 1722 0229 | ) | Execute Access,All_Read 1723 e5fe | | Load 0x2,-0x2 1724 e01c | | Load 0x0,0x1c 1725 a01d | | Store_Unchecked 0x0,0x1d 1726 a01e | | Store_Unchecked 0x0,0x1e 1727 a01f | | Store_Unchecked 0x0,0x1f 1728 a020 | | Store_Unchecked 0x0,0x20 1729 a021 | ! | Store_Unchecked 0x0,0x21 172a e022 | " | Load 0x0,0x22 172b 1815 | | Execute Package,Field_Execute,Field_Number 0x15 172c 00d9 | | Load_Top At_Offset_1 172d 0228 | ( | Execute Access,All_Write 172e 00d1 | | Pop_Control Pop_Count_1 172f e5ff | | Load 0x2,-0x1 1730 0219 | | Execute Heap_Access,All_Read 1731 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 1732 00d8 | | Load_Top At_Offset_0 1733 0229 | ) | Execute Access,All_Read 1734 4800 |H | Short_Literal 0x0 1735 e018 | | Load 0x0,0x18 1736 181b | | Execute Package,Field_Execute,Field_Number 0x1b 1737 00d9 | | Load_Top At_Offset_1 1738 0228 | ( | Execute Access,All_Write 1739 00d1 | | Pop_Control Pop_Count_1 173a 00d8 | | Load_Top At_Offset_0 173b 0092 1787 | | Action Push_String_Extended,0x1787 ; "<OPEN>" 173d 4800 |H | Short_Literal 0x0 173e 8409 | | Call 0x2,0x9 173f e5ff | | Load 0x2,-0x1 1740 0219 | | Execute Heap_Access,All_Read 1741 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 1742 00d8 | | Load_Top At_Offset_0 1743 0229 | ) | Execute Access,All_Read 1744 e018 | | Load 0x0,0x18 1745 1819 | | Execute Package,Field_Execute,Field_Number 0x19 1746 00d9 | | Load_Top At_Offset_1 1747 0228 | ( | Execute Access,All_Write 1748 4501 |E | Exit_Suprogram New_Top_Offset 0x1 1749 0000 0000 | | .BLANK 0000[0x7] 1750 ; -------------------------------------------------------------------------------------- 1750 ; SUBPROGRAM 1750 ; -------------------------------------------------------------------------------------- 1750 175b | [ | .CONST 0x175b ; Address of begin 1751 0004 | | .CONST 0x0004 ; Address of exception handler 1752 0002 | | .CONST 0x0002 ; Number of locals 1753 INIT_1750: 1753 e5ff | | Load 0x2,-0x1 1754 0217 | | Execute Heap_Access,All_Reference 1755 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 1756 0219 | | Execute Heap_Access,All_Read 1757 e20f | | Load 0x1,0xf 1758 0119 | | Execute Any,Check_In_Formal_Type 1759 e5fe | | Load 0x2,-0x2 175a 8211 | | Call 0x1,0x11 175b BODY_1750: 175b 00d8 | | Load_Top At_Offset_0 175c e002 | | Load 0x0,0x2 175d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 175e 01df | | Execute Vector,Equal 175f 6818 |h | Jump_Zero 0x1778 1760 e013 | | Load 0x0,0x13 1761 180e | | Execute Package,Field_Execute,Field_Number 0xe 1762 4801 |H | Short_Literal 0x1 1763 4801 |H | Short_Literal 0x1 1764 e010 | | Load 0x0,0x10 1765 1b0f | | Execute Package,Field_Read,Field_Number 0xf 1766 0334 | 4 | Declare_Variable Array,With_Constraint 1767 e5fe | | Load 0x2,-0x2 1768 e00c | | Load 0x0,0xc 1769 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 176a 4801 |H | Short_Literal 0x1 176b 00da | | Load_Top At_Offset_2 176c 01d6 | | Execute Vector,Field_Write 176d 600e |` | Indirect_Literal Discrete,0x177c,{0x00000000, 0x0000401e} 176e e002 | | Load 0x0,0x2 176f 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 1770 e010 | | Load 0x0,0x10 1771 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 1772 6009 |` | Indirect_Literal Discrete,0x177c,{0x00000000, 0x0000401e} 1773 e002 | | Load 0x0,0x2 1774 1813 | | Execute Package,Field_Execute,Field_Number 0x13 1775 e5fe | | Load 0x2,-0x2 1776 e00c | | Load 0x0,0xc 1777 181f | | Execute Package,Field_Execute,Field_Number 0x1f 1778 00d8 | | Load_Top At_Offset_0 1779 00cb | | Action Pop_Block_With_Result 177a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 177b 0000 | | .XXX[0x1] 177c 0000 0000 | | .LITERAL {0x00000000, 0x0000401e} 1780 ; -------------------------------------------------------------------------------------- 1780 ; STRING TABLE 1780 ; -------------------------------------------------------------------------------------- 1780 0012 | | .STRTAB 0x0012->0x1789 ; "--/" 1781 0013 | | .STRTAB 0x0013->0x178a ; "!Machine.Temporary.Downloader_Temp_D" 1782 0035 | 5 | .STRTAB 0x0035->0x179c ; "$" 1783 0034 | 4 | .STRTAB 0x0034->0x179d ; "--/<error> " 1784 003d | = | .STRTAB 0x003d->0x17a2 ; "pragma End_Of_Input;" 1785 004f | O | .STRTAB 0x004f->0x17ac ; "<TEMP>" 1786 0053 | S | .STRTAB 0x0053->0x17af ; "<SCRIPT_FILE>" 1787 005e | ^ | .STRTAB 0x005e->0x17b6 ; "<OPEN>" 1788 0062 | b | .STREND 0x0062->0x17b9 1789 2d2d 2f21 |--/!| .STRTAB_STRINGS 17b9 0000 0000 | | .BLANK 0000[0x7] 17c0 ; -------------------------------------------------------------------------------------- 17c0 ; Debug Table 17c0 ; -------------------------------------------------------------------------------------- 17c0 0004 0009 | | .DEBUG4 0x0004,0x0009,0xeb3e,0x0000,0x0001,0x0000 17c6 0000 0000 | | .BLANK 0000[0x3a]