|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 14336 (0x3800) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_779ce4
└─⟦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 1a10 | | .CONST 0x1a10 ; 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 8011 | | .CONST 0x8011 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0206 | | .CONST 0x0206 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0079 | y | .CONST 0x0079 ; Number of locals 000b INIT_0008: 000b 029a 020b | | Declare_Subprogram INIT_0208,For_Outer_Call,Visible,Unelaborated 000d 029a 027b | {| Declare_Subprogram INIT_0278,For_Outer_Call,Visible,Unelaborated 000f 029a 02cb | | Declare_Subprogram INIT_02c8,For_Outer_Call,Visible,Unelaborated 0011 029a 033b | ;| Declare_Subprogram INIT_0338,For_Outer_Call,Visible,Unelaborated 0013 029a 0343 | C| Declare_Subprogram INIT_0340,For_Outer_Call,Visible,Unelaborated 0015 029a 0363 | c| Declare_Subprogram INIT_0360,For_Outer_Call,Visible,Unelaborated 0017 029a 038b | | Declare_Subprogram INIT_0388,For_Outer_Call,Visible,Unelaborated 0019 029a 03ab | | Declare_Subprogram INIT_03a8,For_Outer_Call,Visible,Unelaborated 001b 029a 03b3 | | Declare_Subprogram INIT_03b0,For_Outer_Call,Visible,Unelaborated 001d 029a 03eb | | Declare_Subprogram INIT_03e8,For_Outer_Call,Visible,Unelaborated 001f 029a 0433 | 3| Declare_Subprogram INIT_0430,For_Outer_Call,Visible,Unelaborated 0021 029a 04b3 | | Declare_Subprogram INIT_04b0,For_Outer_Call,Visible,Unelaborated 0023 029a 04f3 | | Declare_Subprogram INIT_04f0,For_Outer_Call,Visible,Unelaborated 0025 029a 0533 | 3| Declare_Subprogram INIT_0530,For_Outer_Call,Visible,Unelaborated 0027 029a 053b | ;| Declare_Subprogram INIT_0538,For_Outer_Call,Visible,Unelaborated 0029 029a 0543 | C| Declare_Subprogram INIT_0540,For_Outer_Call,Visible,Unelaborated 002b 029a 0553 | S| Declare_Subprogram INIT_0550,For_Outer_Call,Visible,Unelaborated 002d 029a 0563 | c| Declare_Subprogram INIT_0560,For_Outer_Call,Visible,Unelaborated 002f 029a 0573 | s| Declare_Subprogram INIT_0570,For_Outer_Call,Visible,Unelaborated 0031 029a 05db | | Declare_Subprogram INIT_05d8,For_Outer_Call,Visible,Unelaborated 0033 029a 05eb | | Declare_Subprogram INIT_05e8,For_Outer_Call,Visible,Unelaborated 0035 029a 05fb | | Declare_Subprogram INIT_05f8,For_Outer_Call,Visible,Unelaborated 0037 029a 060b | | Declare_Subprogram INIT_0608,For_Outer_Call,Visible,Unelaborated 0039 029a 061b | | Declare_Subprogram INIT_0618,For_Outer_Call,Visible,Unelaborated 003b 029a 0643 | C| Declare_Subprogram INIT_0640,For_Outer_Call,Visible,Unelaborated 003d 029a 0653 | S| Declare_Subprogram INIT_0650,For_Outer_Call,Visible,Unelaborated 003f 029a 0663 | c| Declare_Subprogram INIT_0660,For_Outer_Call,Visible,Unelaborated 0041 029a 067b | {| Declare_Subprogram INIT_0678,For_Outer_Call,Visible,Unelaborated 0043 029a 068b | | Declare_Subprogram INIT_0688,For_Outer_Call,Visible,Unelaborated 0045 029a 06a3 | | Declare_Subprogram INIT_06a0,For_Outer_Call,Visible,Unelaborated 0047 03a9 | | Declare_Type Heap_Access,Indirect_Literal,Visible 0048 00d8 | | Load_Top At_Offset_0 0049 02a0 | | Declare_Subprogram Null_Subprogram 004a 03ae | | Declare_Type Heap_Access,Defined,Visible 004b 4802 |H | Short_Literal 0x2 004c 032b | + | Declare_Type Record,Incomplete,Visible 004d 00d8 | | Load_Top At_Offset_0 004e 02a0 | | Declare_Subprogram Null_Subprogram 004f 03ae | | Declare_Type Heap_Access,Defined,Visible 0050 4804 |H | Short_Literal 0x4 0051 032b | + | Declare_Type Record,Incomplete,Visible 0052 00d8 | | Load_Top At_Offset_0 0053 02a0 | | Declare_Subprogram Null_Subprogram 0054 03ae | | Declare_Type Heap_Access,Defined,Visible 0055 00bf | | Action Accept_Activation 0056 0093 0000 | | push_full_address 0x0 0058 6217 |b | Indirect_Literal Discrete,0x270,{0x80000000, 0x00060000} 0059 0273 | s | Execute Discrete,Plus 005a e20d | | Load 0x1,0xd 005b 6210 |b | Indirect_Literal Discrete,0x26c,{0x00000000, 0x0000ffff} 005c 0279 | y | Execute Discrete,And 005d 0273 | s | Execute Discrete,Plus 005e e002 | | Load 0x0,0x2 005f 0273 | s | Execute Discrete,Plus 0060 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0061 e003 | | Load 0x0,0x3 0062 0387 | | Declare_Variable Package 0063 00d8 | | Load_Top At_Offset_0 0064 020f | | Execute Module,Activate 0065 4800 |H | Short_Literal 0x0 0066 4802 |H | Short_Literal 0x2 0067 029f 06b3 | | Declare_Subprogram INIT_06b0,For_Call 0069 03fd | | Declare_Type Discrete,Defined 006a 4800 |H | Short_Literal 0x0 006b 4804 |H | Short_Literal 0x4 006c 029f 06db | | Declare_Subprogram INIT_06d8,For_Call 006e 03fd | | Declare_Type Discrete,Defined 006f 4800 |H | Short_Literal 0x0 0070 4803 |H | Short_Literal 0x3 0071 029f 0703 | | Declare_Subprogram INIT_0700,For_Call 0073 03fd | | Declare_Type Discrete,Defined 0074 4800 |H | Short_Literal 0x0 0075 4801 |H | Short_Literal 0x1 0076 029f 072b | +| Declare_Subprogram INIT_0728,For_Call 0078 03fd | | Declare_Type Discrete,Defined 0079 4800 |H | Short_Literal 0x0 007a 4802 |H | Short_Literal 0x2 007b 029f 0753 | S| Declare_Subprogram INIT_0750,For_Call 007d 03fd | | Declare_Type Discrete,Defined 007e e004 | | Load 0x0,0x4 007f 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 0080 e235 | 5 | Load 0x1,0x35 0081 e234 | 4 | Load 0x1,0x34 0082 e237 | 7 | Load 0x1,0x37 0083 e005 | | Load 0x0,0x5 0084 e238 | 8 | Load 0x1,0x38 0085 e005 | | Load 0x0,0x5 0086 e006 | | Load 0x0,0x6 0087 e005 | | Load 0x0,0x5 0088 029f 077b | {| Declare_Subprogram INIT_0778,For_Call 008a 4809 |H | Short_Literal 0x9 008b 032d | - | Declare_Type Record,Defined 008c 00d8 | | Load_Top At_Offset_0 008d 0322 | " | Declare_Variable Record 008e 00d8 | | Load_Top At_Offset_0 008f 1c00 | | Execute_Immediate Run_Utility,0x0 0090 029b 078b | | Declare_Subprogram INIT_0788,For_Outer_Call,Unelaborated 0092 4800 |H | Short_Literal 0x0 0093 4806 |H | Short_Literal 0x6 0094 029f 0793 | | Declare_Subprogram INIT_0790,For_Call 0096 03fd | | Declare_Type Discrete,Defined 0097 00e3 | | Load_Encached Natural_Cache 0098 00e3 | | Load_Encached Natural_Cache 0099 00e3 | | Load_Encached Natural_Cache 009a 00e3 | | Load_Encached Natural_Cache 009b 02a0 | | Declare_Subprogram Null_Subprogram 009c 4804 |H | Short_Literal 0x4 009d 032d | - | Declare_Type Record,Defined 009e 00d9 | | Load_Top At_Offset_1 009f 00e1 | | Load_Encached Boolean_Cache 00a0 e230 | 0 | Load 0x1,0x30 00a1 029f 07bb | | Declare_Subprogram INIT_07b8,For_Call 00a3 4800 |H | Short_Literal 0x0 00a4 4802 |H | Short_Literal 0x2 00a5 4800 |H | Short_Literal 0x0 00a6 4800 |H | Short_Literal 0x0 00a7 4801 |H | Short_Literal 0x1 00a8 031d | | Declare_Type Variant_Record,Defined 00a9 4800 |H | Short_Literal 0x0 00aa 00d9 | | Load_Top At_Offset_1 00ab 1c08 | | Execute_Immediate Run_Utility,0x8 00ac 00d8 | | Load_Top At_Offset_0 00ad 1c00 | | Execute_Immediate Run_Utility,0x0 00ae 029b 07fb | | Declare_Subprogram INIT_07f8,For_Outer_Call,Unelaborated 00b0 e236 | 6 | Load 0x1,0x36 00b1 e23c | < | Load 0x1,0x3c 00b2 4801 |H | Short_Literal 0x1 00b3 e005 | | Load 0x0,0x5 00b4 4801 |H | Short_Literal 0x1 00b5 00e3 | | Load_Encached Natural_Cache 00b6 4803 |H | Short_Literal 0x3 00b7 e23d | = | Load 0x1,0x3d 00b8 00e3 | | Load_Encached Natural_Cache 00b9 00e3 | | Load_Encached Natural_Cache 00ba 029f 0803 | | Declare_Subprogram INIT_0800,For_Call 00bc 4805 |H | Short_Literal 0x5 00bd 4801 |H | Short_Literal 0x1 00be 4803 |H | Short_Literal 0x3 00bf 4800 |H | Short_Literal 0x0 00c0 4801 |H | Short_Literal 0x1 00c1 031d | | Declare_Type Variant_Record,Defined 00c2 4800 |H | Short_Literal 0x0 00c3 00d9 | | Load_Top At_Offset_1 00c4 1c08 | | Execute_Immediate Run_Utility,0x8 00c5 029b 085b | [| Declare_Subprogram INIT_0858,For_Outer_Call,Unelaborated 00c7 029b 0863 | c| Declare_Subprogram INIT_0860,For_Outer_Call,Unelaborated 00c9 029b 087b | {| Declare_Subprogram INIT_0878,For_Outer_Call,Unelaborated 00cb 029b 0883 | | Declare_Subprogram INIT_0880,For_Outer_Call,Unelaborated 00cd 029b 0893 | | Declare_Subprogram INIT_0890,For_Outer_Call,Unelaborated 00cf 0093 0000 | | push_full_address 0x0 00d1 6196 |a | Indirect_Literal Discrete,0x268,{0x80000000, 0x00050000} 00d2 0273 | s | Execute Discrete,Plus 00d3 e20d | | Load 0x1,0xd 00d4 6197 |a | Indirect_Literal Discrete,0x26c,{0x00000000, 0x0000ffff} 00d5 0279 | y | Execute Discrete,And 00d6 0273 | s | Execute Discrete,Plus 00d7 e007 | | Load 0x0,0x7 00d8 0273 | s | Execute Discrete,Plus 00d9 e236 | 6 | Load 0x1,0x36 00da e239 | 9 | Load 0x1,0x39 00db e23a | : | Load 0x1,0x3a 00dc 0320 | | Declare_Variable Record,Duplicate 00dd 00cd | | Action Spare6_Action 00de 1d3b | ; | Execute_Immediate Reference_Lex_1,0x3b 00df 1d44 | D | Execute_Immediate Reference_Lex_1,0x44 00e0 e23e | > | Load 0x1,0x3e 00e1 e23f | ? | Load 0x1,0x3f 00e2 02fd | | Declare_Variable Variant_Record,Duplicate 00e3 00cd | | Action Spare6_Action 00e4 1d40 | @ | Execute_Immediate Reference_Lex_1,0x40 00e5 1d45 | E | Execute_Immediate Reference_Lex_1,0x45 00e6 e241 | A | Load 0x1,0x41 00e7 e242 | B | Load 0x1,0x42 00e8 02fd | | Declare_Variable Variant_Record,Duplicate 00e9 00cd | | Action Spare6_Action 00ea 1d43 | C | Execute_Immediate Reference_Lex_1,0x43 00eb 1d46 | F | Execute_Immediate Reference_Lex_1,0x46 00ec 1d47 | G | Execute_Immediate Reference_Lex_1,0x47 00ed 0092 1830 | 0| Action Push_String_Extended,0x1830 ; " " 00ef e008 | | Load 0x0,0x8 00f0 0387 | | Declare_Variable Package 00f1 00d8 | | Load_Top At_Offset_0 00f2 020f | | Execute Module,Activate 00f3 e009 | | Load 0x0,0x9 00f4 00d9 | | Load_Top At_Offset_1 00f5 0098 | | Execute Package,Field_Read_Dynamic 00f6 e22d | - | Load 0x1,0x2d 00f7 03a2 | | Complete_Type Heap_Access,By_Renaming 00f8 e00a | | Load 0x0,0xa 00f9 00d9 | | Load_Top At_Offset_1 00fa 0098 | | Execute Package,Field_Read_Dynamic 00fb e22f | / | Load 0x1,0x2f 00fc 0325 | % | Complete_Type Record,By_Renaming 00fd e230 | 0 | Load 0x1,0x30 00fe 03a0 | | Complete_Type Heap_Access,By_Component_Completion 00ff e00b | | Load 0x0,0xb 0100 00d9 | | Load_Top At_Offset_1 0101 0098 | | Execute Package,Field_Read_Dynamic 0102 e231 | 1 | Load 0x1,0x31 0103 0325 | % | Complete_Type Record,By_Renaming 0104 e232 | 2 | Load 0x1,0x32 0105 03a0 | | Complete_Type Heap_Access,By_Component_Completion 0106 e00c | | Load 0x0,0xc 0107 00d9 | | Load_Top At_Offset_1 0108 0098 | | Execute Package,Field_Read_Dynamic 0109 0337 | 7 | Declare_Variable Array 010a 00d8 | | Load_Top At_Offset_0 010b 0335 | 5 | Declare_Variable Array,Duplicate 010c 00cd | | Action Spare6_Action 010d 4800 |H | Short_Literal 0x0 010e 4800 |H | Short_Literal 0x0 010f 00da | | Load_Top At_Offset_2 0110 01d6 | | Execute Vector,Field_Write 0111 4835 |H5 | Short_Literal 0x35 0112 4801 |H | Short_Literal 0x1 0113 00da | | Load_Top At_Offset_2 0114 01d6 | | Execute Vector,Field_Write 0115 480a |H | Short_Literal 0xa 0116 4802 |H | Short_Literal 0x2 0117 00da | | Load_Top At_Offset_2 0118 01d6 | | Execute Vector,Field_Write 0119 480f |H | Short_Literal 0xf 011a 4803 |H | Short_Literal 0x3 011b 00da | | Load_Top At_Offset_2 011c 01d6 | | Execute Vector,Field_Write 011d 00d9 | | Load_Top At_Offset_1 011e 01d4 | | Execute Vector,Structure_Write 011f 00ea | | Load_Encached Null_String_Cache 0120 0092 1831 | 1| Action Push_String_Extended,0x1831 ; " NAME" 0122 0092 1832 | 2| Action Push_String_Extended,0x1832 ; " COVERAGE" 0124 0092 1833 | 3| Action Push_String_Extended,0x1833 ; " % COV" 0126 4801 |H | Short_Literal 0x1 0127 4850 |HP | Short_Literal 0x50 0128 00e9 | | Load_Encached String_Cache 0129 035b | [ | Declare_Type Array,Constrained 012a 0337 | 7 | Declare_Variable Array 012b 4850 |HP | Short_Literal 0x50 012c 4801 |H | Short_Literal 0x1 012d 482d |H- | Short_Literal 0x2d 012e 00d9 | | Load_Top At_Offset_1 012f e24e | N | Load 0x1,0x4e 0130 01d6 | | Execute Vector,Field_Write 0131 3ffb |? | Loop_Increasing 0x12d 0132 e00d | | Load 0x0,0xd 0133 0007 | | Action Break_Optional 0134 029b 08cb | | Declare_Subprogram INIT_08c8,For_Outer_Call,Unelaborated 0136 029b 09ab | | Declare_Subprogram INIT_09a8,For_Outer_Call,Unelaborated 0138 029d 09cb | | Declare_Subprogram INIT_09c8,For_Outer_Call 013a 029b 0a5b | [| Declare_Subprogram INIT_0a58,For_Outer_Call,Unelaborated 013c 029d 0a93 | | Declare_Subprogram INIT_0a90,For_Outer_Call 013e 029d 0abb | | Declare_Subprogram INIT_0ab8,For_Outer_Call 0140 029d 0ad3 | | Declare_Subprogram INIT_0ad0,For_Outer_Call 0142 029d 0b0b | | Declare_Subprogram INIT_0b08,For_Outer_Call 0144 029d 0b23 | #| Declare_Subprogram INIT_0b20,For_Outer_Call 0146 029d 0b3b | ;| Declare_Subprogram INIT_0b38,For_Outer_Call 0148 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0149 00c7 | | Action Elaborate_Subprogram 014a 1d0f | | Execute_Immediate Reference_Lex_1,0xf 014b 00c7 | | Action Elaborate_Subprogram 014c 029d 0b4b | K| Declare_Subprogram INIT_0b48,For_Outer_Call 014e 1d11 | | Execute_Immediate Reference_Lex_1,0x11 014f 00c7 | | Action Elaborate_Subprogram 0150 1d12 | | Execute_Immediate Reference_Lex_1,0x12 0151 00c7 | | Action Elaborate_Subprogram 0152 1d13 | | Execute_Immediate Reference_Lex_1,0x13 0153 00c7 | | Action Elaborate_Subprogram 0154 1d14 | | Execute_Immediate Reference_Lex_1,0x14 0155 00c7 | | Action Elaborate_Subprogram 0156 1d15 | | Execute_Immediate Reference_Lex_1,0x15 0157 00c7 | | Action Elaborate_Subprogram 0158 1d16 | | Execute_Immediate Reference_Lex_1,0x16 0159 00c7 | | Action Elaborate_Subprogram 015a 029b 0b5b | [| Declare_Subprogram INIT_0b58,For_Outer_Call,Unelaborated 015c 1d53 | S | Execute_Immediate Reference_Lex_1,0x53 015d 00c7 | | Action Elaborate_Subprogram 015e 1d18 | | Execute_Immediate Reference_Lex_1,0x18 015f 00c7 | | Action Elaborate_Subprogram 0160 1d19 | | Execute_Immediate Reference_Lex_1,0x19 0161 00c7 | | Action Elaborate_Subprogram 0162 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 0163 00c7 | | Action Elaborate_Subprogram 0164 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 0165 00c7 | | Action Elaborate_Subprogram 0166 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 0167 00c7 | | Action Elaborate_Subprogram 0168 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 0169 00c7 | | Action Elaborate_Subprogram 016a 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 016b 00c7 | | Action Elaborate_Subprogram 016c 1d20 | | Execute_Immediate Reference_Lex_1,0x20 016d 00c7 | | Action Elaborate_Subprogram 016e 029d 0bc3 | | Declare_Subprogram INIT_0bc0,For_Outer_Call 0170 029d 0bd3 | | Declare_Subprogram INIT_0bd0,For_Outer_Call 0172 029d 0bf3 | | Declare_Subprogram INIT_0bf0,For_Outer_Call 0174 029d 0c1b | | Declare_Subprogram INIT_0c18,For_Outer_Call 0176 029d 0c3b | ;| Declare_Subprogram INIT_0c38,For_Outer_Call 0178 029d 0c5b | [| Declare_Subprogram INIT_0c58,For_Outer_Call 017a 029d 0c83 | | Declare_Subprogram INIT_0c80,For_Outer_Call 017c 029d 0ca3 | | Declare_Subprogram INIT_0ca0,For_Outer_Call 017e 029d 0cc3 | | Declare_Subprogram INIT_0cc0,For_Outer_Call 0180 029d 0ce3 | | Declare_Subprogram INIT_0ce0,For_Outer_Call 0182 029d 0d03 | | Declare_Subprogram INIT_0d00,For_Outer_Call 0184 029d 0d23 | #| Declare_Subprogram INIT_0d20,For_Outer_Call 0186 029d 0d5b | [| Declare_Subprogram INIT_0d58,For_Outer_Call 0188 029d 0d93 | | Declare_Subprogram INIT_0d90,For_Outer_Call 018a 029d 0e3b | ;| Declare_Subprogram INIT_0e38,For_Outer_Call 018c e00e | | Load 0x0,0xe 018d e248 | H | Load 0x1,0x48 018e 0095 | | Execute Package,Field_Reference_Dynamic 018f 00c6 | | Action Check_Subprogram_Elaborated 0190 1d67 | g | Execute_Immediate Reference_Lex_1,0x67 0191 0093 0000 | | push_full_address 0x0 0193 60d0 |` | Indirect_Literal Discrete,0x264,{0x80000000, 0x00040000} 0194 0273 | s | Execute Discrete,Plus 0195 e20d | | Load 0x1,0xd 0196 60d5 |` | Indirect_Literal Discrete,0x26c,{0x00000000, 0x0000ffff} 0197 0279 | y | Execute Discrete,And 0198 0273 | s | Execute Discrete,Plus 0199 e00f | | Load 0x0,0xf 019a 0273 | s | Execute Discrete,Plus 019b 4800 |H | Short_Literal 0x0 019c 0007 | | Action Break_Optional 019d e00e | | Load 0x0,0xe 019e e248 | H | Load 0x1,0x48 019f 0095 | | Execute Package,Field_Reference_Dynamic 01a0 00c6 | | Action Check_Subprogram_Elaborated 01a1 1d68 | h | Execute_Immediate Reference_Lex_1,0x68 01a2 0093 0000 | | push_full_address 0x0 01a4 60bb |` | Indirect_Literal Discrete,0x260,{0x80000000, 0x00030000} 01a5 0273 | s | Execute Discrete,Plus 01a6 e20d | | Load 0x1,0xd 01a7 60c4 |` | Indirect_Literal Discrete,0x26c,{0x00000000, 0x0000ffff} 01a8 0279 | y | Execute Discrete,And 01a9 0273 | s | Execute Discrete,Plus 01aa e010 | | Load 0x0,0x10 01ab 0273 | s | Execute Discrete,Plus 01ac 4800 |H | Short_Literal 0x0 01ad 0007 | | Action Break_Optional 01ae e00e | | Load 0x0,0xe 01af e248 | H | Load 0x1,0x48 01b0 0095 | | Execute Package,Field_Reference_Dynamic 01b1 00c6 | | Action Check_Subprogram_Elaborated 01b2 1d69 | i | Execute_Immediate Reference_Lex_1,0x69 01b3 0093 0000 | | push_full_address 0x0 01b5 60a6 |` | Indirect_Literal Discrete,0x25c,{0x80000000, 0x00020000} 01b6 0273 | s | Execute Discrete,Plus 01b7 e20d | | Load 0x1,0xd 01b8 60b3 |` | Indirect_Literal Discrete,0x26c,{0x00000000, 0x0000ffff} 01b9 0279 | y | Execute Discrete,And 01ba 0273 | s | Execute Discrete,Plus 01bb e011 | | Load 0x0,0x11 01bc 0273 | s | Execute Discrete,Plus 01bd 4800 |H | Short_Literal 0x0 01be 0007 | | Action Break_Optional 01bf e00e | | Load 0x0,0xe 01c0 e248 | H | Load 0x1,0x48 01c1 0095 | | Execute Package,Field_Reference_Dynamic 01c2 00c6 | | Action Check_Subprogram_Elaborated 01c3 1d6a | j | Execute_Immediate Reference_Lex_1,0x6a 01c4 0093 0000 | | push_full_address 0x0 01c6 6091 |` | Indirect_Literal Discrete,0x258,{0x80000000, 0x00010000} 01c7 0273 | s | Execute Discrete,Plus 01c8 e20d | | Load 0x1,0xd 01c9 60a2 |` | Indirect_Literal Discrete,0x26c,{0x00000000, 0x0000ffff} 01ca 0279 | y | Execute Discrete,And 01cb 0273 | s | Execute Discrete,Plus 01cc e012 | | Load 0x0,0x12 01cd 0273 | s | Execute Discrete,Plus 01ce 4800 |H | Short_Literal 0x0 01cf 0007 | | Action Break_Optional 01d0 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 01d1 00c7 | | Action Elaborate_Subprogram 01d2 029d 0ee3 | | Declare_Subprogram INIT_0ee0,For_Outer_Call 01d4 1d51 | Q | Execute_Immediate Reference_Lex_1,0x51 01d5 00c7 | | Action Elaborate_Subprogram 01d6 1d22 | " | Execute_Immediate Reference_Lex_1,0x22 01d7 00c7 | | Action Elaborate_Subprogram 01d8 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24 01d9 00c7 | | Action Elaborate_Subprogram 01da 1d23 | # | Execute_Immediate Reference_Lex_1,0x23 01db 00c7 | | Action Elaborate_Subprogram 01dc 1d25 | % | Execute_Immediate Reference_Lex_1,0x25 01dd 00c7 | | Action Elaborate_Subprogram 01de 1d26 | & | Execute_Immediate Reference_Lex_1,0x26 01df 00c7 | | Action Elaborate_Subprogram 01e0 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27 01e1 00c7 | | Action Elaborate_Subprogram 01e2 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28 01e3 00c7 | | Action Elaborate_Subprogram 01e4 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29 01e5 00c7 | | Action Elaborate_Subprogram 01e6 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a 01e7 00c7 | | Action Elaborate_Subprogram 01e8 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b 01e9 00c7 | | Action Elaborate_Subprogram 01ea 1d2c | , | Execute_Immediate Reference_Lex_1,0x2c 01eb 00c7 | | Action Elaborate_Subprogram 01ec 1d3b | ; | Execute_Immediate Reference_Lex_1,0x3b 01ed 00c7 | | Action Elaborate_Subprogram 01ee 1d40 | @ | Execute_Immediate Reference_Lex_1,0x40 01ef 00c7 | | Action Elaborate_Subprogram 01f0 1d43 | C | Execute_Immediate Reference_Lex_1,0x43 01f1 00c7 | | Action Elaborate_Subprogram 01f2 1d44 | D | Execute_Immediate Reference_Lex_1,0x44 01f3 00c7 | | Action Elaborate_Subprogram 01f4 1d45 | E | Execute_Immediate Reference_Lex_1,0x45 01f5 00c7 | | Action Elaborate_Subprogram 01f6 1d46 | F | Execute_Immediate Reference_Lex_1,0x46 01f7 00c7 | | Action Elaborate_Subprogram 01f8 029d 0f03 | | Declare_Subprogram INIT_0f00,For_Outer_Call 01fa 1d47 | G | Execute_Immediate Reference_Lex_1,0x47 01fb 00c7 | | Action Elaborate_Subprogram 01fc 029d 0f1b | | Declare_Subprogram INIT_0f18,For_Outer_Call 01fe 1d5b | [ | Execute_Immediate Reference_Lex_1,0x5b 01ff 00c7 | | Action Elaborate_Subprogram 0200 1d50 | P | Execute_Immediate Reference_Lex_1,0x50 0201 00c7 | | Action Elaborate_Subprogram 0202 1d17 | | Execute_Immediate Reference_Lex_1,0x17 0203 00c7 | | Action Elaborate_Subprogram 0204 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 0205 00c7 | | Action Elaborate_Subprogram 0206 BODY_0008: 0206 00bc | | Action Signal_Activated 0207 00bb | | Action Signal_Completion 0208 ; -------------------------------------------------------------------------------------- 0208 ; SUBPROGRAM 0208 ; -------------------------------------------------------------------------------------- 0208 021b | | .CONST 0x021b ; Address of begin 0209 0004 | | .CONST 0x0004 ; Address of exception handler 020a 0007 | | .CONST 0x0007 ; Number of locals 020b INIT_0208: 020b e22e | . | Load 0x1,0x2e 020c 0007 | | Action Break_Optional 020d e005 | | Load 0x0,0x5 020e e5ff | | Load 0x2,-0x1 020f 8013 | | Call 0x0,0x13 0210 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0211 e005 | | Load 0x0,0x5 0212 0007 | | Action Break_Optional 0213 e014 | | Load 0x0,0x14 0214 0007 | | Action Break_Optional 0215 e00a | | Load 0x0,0xa 0216 e248 | H | Load 0x1,0x48 0217 0098 | | Execute Package,Field_Read_Dynamic 0218 0322 | " | Declare_Variable Record 0219 e237 | 7 | Load 0x1,0x37 021a 0007 | | Action Break_Optional 021b BODY_0208: 021b e5fd | | Load 0x2,-0x3 021c e015 | | Load 0x0,0x15 021d e248 | H | Load 0x1,0x48 021e 0096 | | Execute Package,Entry 021f e22e | . | Load 0x1,0x2e 0220 e5fd | | Load 0x2,-0x3 0221 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value 0222 a402 | | Store_Unchecked 0x2,0x2 0223 e5fd | | Load 0x2,-0x3 0224 e403 | | Load 0x2,0x3 0225 8016 | | Call 0x0,0x16 0226 8017 | | Call 0x0,0x17 0227 a404 | | Store_Unchecked 0x2,0x4 0228 00d9 | | Load_Top At_Offset_1 0229 e402 | | Load 0x2,0x2 022a e5fd | | Load 0x2,-0x3 022b 8018 | | Call 0x0,0x18 022c e404 | | Load 0x2,0x4 022d 8252 | R | Call 0x1,0x52 022e c402 | | Store 0x2,0x2 022f 00d1 | | Pop_Control Pop_Count_1 0230 e5fd | | Load 0x2,-0x3 0231 8019 | | Call 0x0,0x19 0232 0033 | 3 | Store_Top Heap_Access,At_Offset_3 0233 00da | | Load_Top At_Offset_2 0234 e5fd | | Load 0x2,-0x3 0235 e5ff | | Load 0x2,-0x1 0236 801a | | Call 0x0,0x1a 0237 0033 | 3 | Store_Top Heap_Access,At_Offset_3 0238 00d8 | | Load_Top At_Offset_0 0239 00db | | Load_Top At_Offset_3 023a 8259 | Y | Call 0x1,0x59 023b 0059 | Y | Store_Top Discrete,At_Offset_1 023c 00da | | Load_Top At_Offset_2 023d 8018 | | Call 0x0,0x18 023e e5fd | | Load 0x2,-0x3 023f 4800 |H | Short_Literal 0x0 0240 4800 |H | Short_Literal 0x0 0241 e406 | | Load 0x2,0x6 0242 e402 | | Load 0x2,0x2 0243 8250 | P | Call 0x1,0x50 0244 0033 | 3 | Store_Top Heap_Access,At_Offset_3 0245 00da | | Load_Top At_Offset_2 0246 e402 | | Load 0x2,0x2 0247 e5fd | | Load 0x2,-0x3 0248 e403 | | Load 0x2,0x3 0249 8256 | V | Call 0x1,0x56 024a c402 | | Store 0x2,0x2 024b 0033 | 3 | Store_Top Heap_Access,At_Offset_3 024c e402 | | Load 0x2,0x2 024d 00d9 | | Load_Top At_Offset_1 024e 8254 | T | Call 0x1,0x54 024f c402 | | Store 0x2,0x2 0250 e402 | | Load 0x2,0x2 0251 4801 |H | Short_Literal 0x1 0252 8257 | W | Call 0x1,0x57 0253 c402 | | Store 0x2,0x2 0254 e402 | | Load 0x2,0x2 0255 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0256 0000 0000 | | .XXX[0x2] 0258 8000 0000 | | .LITERAL {0x80000000, 0x00010000} 025c 8000 0000 | | .LITERAL {0x80000000, 0x00020000} 0260 8000 0000 | | .LITERAL {0x80000000, 0x00030000} 0264 8000 0000 | | .LITERAL {0x80000000, 0x00040000} 0268 8000 0000 | | .LITERAL {0x80000000, 0x00050000} 026c 0000 0000 | | .LITERAL {0x00000000, 0x0000ffff} 0270 8000 0000 | | .LITERAL {0x80000000, 0x00060000} 0274 0000 0000 | | .BLANK 0000[0x4] 0278 ; -------------------------------------------------------------------------------------- 0278 ; SUBPROGRAM 0278 ; -------------------------------------------------------------------------------------- 0278 0292 | | .CONST 0x0292 ; Address of begin 0279 0004 | | .CONST 0x0004 ; Address of exception handler 027a 000c | | .CONST 0x000c ; Number of locals 027b INIT_0278: 027b e22e | . | Load 0x1,0x2e 027c 0007 | | Action Break_Optional 027d e01b | | Load 0x0,0x1b 027e 0007 | | Action Break_Optional 027f e014 | | Load 0x0,0x14 0280 0007 | | Action Break_Optional 0281 e005 | | Load 0x0,0x5 0282 0007 | | Action Break_Optional 0283 e00a | | Load 0x0,0xa 0284 e248 | H | Load 0x1,0x48 0285 0098 | | Execute Package,Field_Read_Dynamic 0286 0322 | " | Declare_Variable Record 0287 00e1 | | Load_Encached Boolean_Cache 0288 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0289 e006 | | Load 0x0,0x6 028a 0007 | | Action Break_Optional 028b 00e1 | | Load_Encached Boolean_Cache 028c 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 028d e237 | 7 | Load 0x1,0x37 028e 029f 0f5b | [| Declare_Subprogram INIT_0f58,For_Call 0290 029f 0fa3 | | Declare_Subprogram INIT_0fa0,For_Call 0292 BODY_0278: 0292 e5fd | | Load 0x2,-0x3 0293 e015 | | Load 0x0,0x15 0294 e248 | H | Load 0x1,0x48 0295 0096 | | Execute Package,Entry 0296 e22e | . | Load 0x1,0x2e 0297 e5fd | | Load 0x2,-0x3 0298 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value 0299 a402 | | Store_Unchecked 0x2,0x2 029a e5fd | | Load 0x2,-0x3 029b e5ff | | Load 0x2,-0x1 029c 801c | | Call 0x0,0x1c 029d 8017 | | Call 0x0,0x17 029e a405 | | Store_Unchecked 0x2,0x5 029f e406 | | Load 0x2,0x6 02a0 e402 | | Load 0x2,0x2 02a1 e5fd | | Load 0x2,-0x3 02a2 8018 | | Call 0x0,0x18 02a3 e405 | | Load 0x2,0x5 02a4 8252 | R | Call 0x1,0x52 02a5 c402 | | Store 0x2,0x2 02a6 00d1 | | Pop_Control Pop_Count_1 02a7 e5fd | | Load 0x2,-0x3 02a8 801d | | Call 0x0,0x1d 02a9 a24f | O | Store_Unchecked 0x1,0x4f 02aa e01b | | Load 0x0,0x1b 02ab e5ff | | Load 0x2,-0x1 02ac 801e | | Call 0x0,0x1e 02ad c403 | | Store 0x2,0x3 02ae 00cf | | Action Mark_Auxiliary 02af 7802 |x | Jump 0x2b2 02b0 840b | | Call 0x2,0xb 02b1 00c9 | | Action Pop_Auxiliary_Loop 02b2 e403 | | Load 0x2,0x3 02b3 801f | | Call 0x0,0x1f 02b4 6ffb |o | Jump_Zero 0x2b0 02b5 00ce | | Action Pop_Auxiliary 02b6 e408 | | Load 0x2,0x8 02b7 e402 | | Load 0x2,0x2 02b8 8255 | U | Call 0x1,0x55 02b9 c402 | | Store 0x2,0x2 02ba c408 | | Store 0x2,0x8 02bb e402 | | Load 0x2,0x2 02bc 00db | | Load_Top At_Offset_3 02bd 8254 | T | Call 0x1,0x54 02be c402 | | Store 0x2,0x2 02bf e402 | | Load 0x2,0x2 02c0 4800 |H | Short_Literal 0x0 02c1 8257 | W | Call 0x1,0x57 02c2 c402 | | Store 0x2,0x2 02c3 840c | | Call 0x2,0xc 02c4 e402 | | Load 0x2,0x2 02c5 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 02c6 0000 0000 | | .XXX[0x2] 02c8 ; -------------------------------------------------------------------------------------- 02c8 ; SUBPROGRAM 02c8 ; -------------------------------------------------------------------------------------- 02c8 02e2 | | .CONST 0x02e2 ; Address of begin 02c9 0004 | | .CONST 0x0004 ; Address of exception handler 02ca 000a | | .CONST 0x000a ; Number of locals 02cb INIT_02c8: 02cb e22e | . | Load 0x1,0x2e 02cc 0007 | | Action Break_Optional 02cd e014 | | Load 0x0,0x14 02ce 0007 | | Action Break_Optional 02cf e005 | | Load 0x0,0x5 02d0 0007 | | Action Break_Optional 02d1 00d8 | | Load_Top At_Offset_0 02d2 0007 | | Action Break_Optional 02d3 e020 | | Load 0x0,0x20 02d4 02ff | | Declare_Variable Variant_Record 02d5 00d8 | | Load_Top At_Offset_0 02d6 1c00 | | Execute_Immediate Run_Utility,0x0 02d7 e00a | | Load 0x0,0xa 02d8 e248 | H | Load 0x1,0x48 02d9 0098 | | Execute Package,Field_Read_Dynamic 02da 0322 | " | Declare_Variable Record 02db e005 | | Load 0x0,0x5 02dc e5ff | | Load 0x2,-0x1 02dd 0031 | 1 | Store_Top Heap_Access,At_Offset_1 02de 00d8 | | Load_Top At_Offset_0 02df 8016 | | Call 0x0,0x16 02e0 e237 | 7 | Load 0x1,0x37 02e1 0007 | | Action Break_Optional 02e2 BODY_02c8: 02e2 e5fc | | Load 0x2,-0x4 02e3 e015 | | Load 0x0,0x15 02e4 e248 | H | Load 0x1,0x48 02e5 0096 | | Execute Package,Entry 02e6 e22e | . | Load 0x1,0x2e 02e7 e5fc | | Load 0x2,-0x4 02e8 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value 02e9 a402 | | Store_Unchecked 0x2,0x2 02ea e405 | | Load 0x2,0x5 02eb e5fc | | Load 0x2,-0x4 02ec e5fe | | Load 0x2,-0x2 02ed 8021 | ! | Call 0x0,0x21 02ee 8022 | " | Call 0x0,0x22 02ef c405 | | Store 0x2,0x5 02f0 e5fc | | Load 0x2,-0x4 02f1 482e |H. | Short_Literal 0x2e 02f2 e405 | | Load 0x2,0x5 02f3 8016 | | Call 0x0,0x16 02f4 01cb | | Execute Vector,Append 02f5 00db | | Load_Top At_Offset_3 02f6 01cc | | Execute Vector,Catenate 02f7 8017 | | Call 0x0,0x17 02f8 a404 | | Store_Unchecked 0x2,0x4 02f9 e5fc | | Load 0x2,-0x4 02fa 4800 |H | Short_Literal 0x0 02fb e405 | | Load 0x2,0x5 02fc 8023 | # | Call 0x0,0x23 02fd e406 | | Load 0x2,0x6 02fe 016d | m | Execute Variant_Record,Structure_Write 02ff e406 | | Load 0x2,0x6 0300 00db | | Load_Top At_Offset_3 0301 8024 | $ | Call 0x0,0x24 0302 00d1 | | Pop_Control Pop_Count_1 0303 00db | | Load_Top At_Offset_3 0304 e402 | | Load 0x2,0x2 0305 e5fc | | Load 0x2,-0x4 0306 e408 | | Load 0x2,0x8 0307 e404 | | Load 0x2,0x4 0308 8252 | R | Call 0x1,0x52 0309 c402 | | Store 0x2,0x2 030a 00d1 | | Pop_Control Pop_Count_1 030b e5fc | | Load 0x2,-0x4 030c 8019 | | Call 0x0,0x19 030d a403 | | Store_Unchecked 0x2,0x3 030e e403 | | Load 0x2,0x3 030f e5fc | | Load 0x2,-0x4 0310 e406 | | Load 0x2,0x6 0311 801a | | Call 0x0,0x1a 0312 c403 | | Store 0x2,0x3 0313 00d8 | | Load_Top At_Offset_0 0314 e403 | | Load 0x2,0x3 0315 8259 | Y | Call 0x1,0x59 0316 0059 | Y | Store_Top Discrete,At_Offset_1 0317 e403 | | Load 0x2,0x3 0318 00db | | Load_Top At_Offset_3 0319 e5fc | | Load 0x2,-0x4 031a 4800 |H | Short_Literal 0x0 031b 4800 |H | Short_Literal 0x0 031c e407 | | Load 0x2,0x7 031d e402 | | Load 0x2,0x2 031e 8250 | P | Call 0x1,0x50 031f c403 | | Store 0x2,0x3 0320 e403 | | Load 0x2,0x3 0321 e402 | | Load 0x2,0x2 0322 e5fc | | Load 0x2,-0x4 0323 e405 | | Load 0x2,0x5 0324 8256 | V | Call 0x1,0x56 0325 c402 | | Store 0x2,0x2 0326 c403 | | Store 0x2,0x3 0327 e402 | | Load 0x2,0x2 0328 00d9 | | Load_Top At_Offset_1 0329 8254 | T | Call 0x1,0x54 032a c402 | | Store 0x2,0x2 032b e402 | | Load 0x2,0x2 032c 4802 |H | Short_Literal 0x2 032d 8257 | W | Call 0x1,0x57 032e c402 | | Store 0x2,0x2 032f e402 | | Load 0x2,0x2 0330 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 0331 0000 0000 | | .BLANK 0000[0x7] 0338 ; -------------------------------------------------------------------------------------- 0338 ; SUBPROGRAM 0338 ; -------------------------------------------------------------------------------------- 0338 033b | ; | .CONST 0x033b ; Address of begin 0339 0004 | | .CONST 0x0004 ; Address of exception handler 033a 0001 | | .CONST 0x0001 ; Number of locals 033b BODY_0338: 033b INIT_0338: 033b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 033c 0000 0000 | | .BLANK 0000[0x4] 0340 ; -------------------------------------------------------------------------------------- 0340 ; SUBPROGRAM 0340 ; -------------------------------------------------------------------------------------- 0340 034f | O | .CONST 0x034f ; Address of begin 0341 0004 | | .CONST 0x0004 ; Address of exception handler 0342 0004 | | .CONST 0x0004 ; Number of locals 0343 INIT_0340: 0343 00da | | Load_Top At_Offset_2 0344 0219 | | Execute Heap_Access,All_Read 0345 e025 | % | Load 0x0,0x25 0346 e248 | H | Load 0x1,0x48 0347 0096 | | Execute Package,Entry 0348 4801 |H | Short_Literal 0x1 0349 e026 | & | Load 0x0,0x26 034a 1c08 | | Execute_Immediate Run_Utility,0x8 034b 00d8 | | Load_Top At_Offset_0 034c 1c00 | | Execute_Immediate Run_Utility,0x0 034d e005 | | Load 0x0,0x5 034e 0007 | | Action Break_Optional 034f BODY_0340: 034f 00da | | Load_Top At_Offset_2 0350 4801 |H | Short_Literal 0x1 0351 8027 | ' | Call 0x0,0x27 0352 00da | | Load_Top At_Offset_2 0353 016d | m | Execute Variant_Record,Structure_Write 0354 00da | | Load_Top At_Offset_2 0355 e24a | J | Load 0x1,0x4a 0356 8017 | | Call 0x0,0x17 0357 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0358 00d8 | | Load_Top At_Offset_0 0359 00da | | Load_Top At_Offset_2 035a 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3 035b 00d9 | | Load_Top At_Offset_1 035c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 035d 0000 0000 | | .XXX[0x3] 035f 0000 | | 0360 ; -------------------------------------------------------------------------------------- 0360 ; SUBPROGRAM 0360 ; -------------------------------------------------------------------------------------- 0360 0371 | q | .CONST 0x0371 ; Address of begin 0361 0004 | | .CONST 0x0004 ; Address of exception handler 0362 0004 | | .CONST 0x0004 ; Number of locals 0363 INIT_0360: 0363 e239 | 9 | Load 0x1,0x39 0364 0322 | " | Declare_Variable Record 0365 00db | | Load_Top At_Offset_3 0366 0219 | | Execute Heap_Access,All_Read 0367 e028 | ( | Load 0x0,0x28 0368 e248 | H | Load 0x1,0x48 0369 0096 | | Execute Package,Entry 036a 00d9 | | Load_Top At_Offset_1 036b 017d | } | Execute Record,Structure_Write 036c 00d8 | | Load_Top At_Offset_0 036d 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 036e 8016 | | Call 0x0,0x16 036f 029f 0fb3 | | Declare_Subprogram INIT_0fb0,For_Call 0371 BODY_0360: 0371 00da | | Load_Top At_Offset_2 0372 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 0373 4602 |F | Jump_Case 0x3 0374 7804 |x | Jump 0x379 ; case 0x0 0375 780c |x | Jump 0x382 ; case 0x1 0376 7800 |x | Jump 0x377 ; case 0x2 0377 8404 | | Call 0x2,0x4 0378 780b |x | Jump 0x384 0379 00d9 | | Load_Top At_Offset_1 037a 8029 | ) | Call 0x0,0x29 037b 6804 |h | Jump_Zero 0x380 037c 00da | | Load_Top At_Offset_2 037d 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 037e 802a | * | Call 0x0,0x2a 037f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0380 00d9 | | Load_Top At_Offset_1 0381 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0382 00d9 | | Load_Top At_Offset_1 0383 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0384 0831 | 1 | Execute_Immediate Raise,0x31 0385 0000 0000 | | .XXX[0x3] 0387 0000 | | 0388 ; -------------------------------------------------------------------------------------- 0388 ; SUBPROGRAM 0388 ; -------------------------------------------------------------------------------------- 0388 038e | | .CONST 0x038e ; Address of begin 0389 0004 | | .CONST 0x0004 ; Address of exception handler 038a 0002 | | .CONST 0x0002 ; Number of locals 038b INIT_0388: 038b e22e | . | Load 0x1,0x2e 038c e5fe | | Load 0x2,-0x2 038d 039c | | Declare_Variable Heap_Access,By_Allocation 038e BODY_0388: 038e 00d8 | | Load_Top At_Offset_0 038f 00d8 | | Load_Top At_Offset_0 0390 0219 | | Execute Heap_Access,All_Read 0391 e009 | | Load 0x0,0x9 0392 e248 | H | Load 0x1,0x48 0393 0098 | | Execute Package,Field_Read_Dynamic 0394 0216 | | Execute Heap_Access,Convert 0395 e5fe | | Load 0x2,-0x2 0396 e5ff | | Load 0x2,-0x1 0397 0219 | | Execute Heap_Access,All_Read 0398 e02b | + | Load 0x0,0x2b 0399 e248 | H | Load 0x1,0x48 039a 0096 | | Execute Package,Entry 039b 00d9 | | Load_Top At_Offset_1 039c 0218 | | Execute Heap_Access,All_Write 039d 00d1 | | Pop_Control Pop_Count_1 039e 00d8 | | Load_Top At_Offset_0 039f a5fd | | Store_Unchecked 0x2,-0x3 03a0 4503 |E | Exit_Suprogram New_Top_Offset 0x3 03a1 0000 0000 | | .BLANK 0000[0x7] 03a8 ; -------------------------------------------------------------------------------------- 03a8 ; SUBPROGRAM 03a8 ; -------------------------------------------------------------------------------------- 03a8 03ab | | .CONST 0x03ab ; Address of begin 03a9 0004 | | .CONST 0x0004 ; Address of exception handler 03aa 0001 | | .CONST 0x0001 ; Number of locals 03ab BODY_03a8: 03ab INIT_03a8: 03ab 4801 |H | Short_Literal 0x1 03ac a5fc | | Store_Unchecked 0x2,-0x4 03ad 4504 |E | Exit_Suprogram New_Top_Offset 0x4 03ae 0000 0000 | | .XXX[0x2] 03b0 ; -------------------------------------------------------------------------------------- 03b0 ; SUBPROGRAM 03b0 ; -------------------------------------------------------------------------------------- 03b0 03c6 | | .CONST 0x03c6 ; Address of begin 03b1 03d7 | | .CONST 0x03d7 ; Address of exception handler 03b2 0004 | | .CONST 0x0004 ; Number of locals 03b3 INIT_03b0: 03b3 00db | | Load_Top At_Offset_3 03b4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 03b5 00d8 | | Load_Top At_Offset_0 03b6 00e4 | | Load_Encached Positive_Cache 03b7 0260 | ` | Execute Discrete,In_Type 03b8 7001 |p | Jump_Nonzero 0x3ba 03b9 0801 | | Execute_Immediate Raise,0x1 03ba 00db | | Load_Top At_Offset_3 03bb 0219 | | Execute Heap_Access,All_Read 03bc e02c | , | Load 0x0,0x2c 03bd e248 | H | Load 0x1,0x48 03be 0096 | | Execute Package,Entry 03bf 00d8 | | Load_Top At_Offset_0 03c0 e02d | - | Load 0x0,0x2d 03c1 e248 | H | Load 0x1,0x48 03c2 0096 | | Execute Package,Entry 03c3 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 03c4 029f 0fcb | | Declare_Subprogram INIT_0fc8,For_Call 03c6 BODY_03b0: 03c6 00d9 | | Load_Top At_Offset_1 03c7 4804 |H | Short_Literal 0x4 03c8 4806 |H | Short_Literal 0x6 03c9 0262 | b | Execute Discrete,In_Range 03ca 700a |p | Jump_Nonzero 0x3d5 03cb 4800 |H | Short_Literal 0x0 03cc 0092 1834 | 4| Action Push_String_Extended,0x1834 ; "Explanation not supported on this " 03ce 00db | | Load_Top At_Offset_3 03cf e23c | < | Load 0x1,0x3c 03d0 011c | | Execute Any,Convert_Unchecked 03d1 1c01 | | Execute_Immediate Run_Utility,0x1 03d2 01cc | | Execute Vector,Catenate 03d3 820e | | Call 0x1,0xe 03d4 4503 |E | Exit_Suprogram New_Top_Offset 0x3 03d5 8404 | | Call 0x2,0x4 03d6 4503 |E | Exit_Suprogram New_Top_Offset 0x3 03d7 TRAP_03b0: 03d7 e02e | . | Load 0x0,0x2e 03d8 e248 | H | Load 0x1,0x48 03d9 0098 | | Execute Package,Field_Read_Dynamic 03da 010f | | Execute Exception,Equal 03db 7002 |p | Jump_Nonzero 0x3de 03dc 010e | | Execute Exception,Is_Constraint_Error 03dd 6805 |h | Jump_Zero 0x3e3 03de 4801 |H | Short_Literal 0x1 03df 0092 1835 | 5| Action Push_String_Extended,0x1835 ; "Explanation not supported at this position" 03e1 820e | | Call 0x1,0xe 03e2 4503 |E | Exit_Suprogram New_Top_Offset 0x3 03e3 0100 | | Execute Exception,Raise 03e4 0000 0000 | | .BLANK 0000[0x4] 03e8 ; -------------------------------------------------------------------------------------- 03e8 ; SUBPROGRAM 03e8 ; -------------------------------------------------------------------------------------- 03e8 0403 | | .CONST 0x0403 ; Address of begin 03e9 0420 | | .CONST 0x0420 ; Address of exception handler 03ea 0006 | | .CONST 0x0006 ; Number of locals 03eb INIT_03e8: 03eb 00db | | Load_Top At_Offset_3 03ec 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 03ed 00d8 | | Load_Top At_Offset_0 03ee 00e4 | | Load_Encached Positive_Cache 03ef 0260 | ` | Execute Discrete,In_Type 03f0 7001 |p | Jump_Nonzero 0x3f2 03f1 0801 | | Execute_Immediate Raise,0x1 03f2 00db | | Load_Top At_Offset_3 03f3 0219 | | Execute Heap_Access,All_Read 03f4 e02c | , | Load 0x0,0x2c 03f5 e248 | H | Load 0x1,0x48 03f6 0096 | | Execute Package,Entry 03f7 00d8 | | Load_Top At_Offset_0 03f8 e02d | - | Load 0x0,0x2d 03f9 e248 | H | Load 0x1,0x48 03fa 0096 | | Execute Package,Entry 03fb 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 03fc 0007 | | Action Break_Optional 03fd 00e1 | | Load_Encached Boolean_Cache 03fe 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 03ff 029f 0ff3 | | Declare_Subprogram INIT_0ff0,For_Call 0401 029f 1023 | #| Declare_Subprogram INIT_1020,For_Call 0403 BODY_03e8: 0403 00db | | Load_Top At_Offset_3 0404 4606 |F | Jump_Case 0x7 0405 780d |x | Jump 0x413 ; case 0x0 0406 780c |x | Jump 0x413 ; case 0x1 0407 780b |x | Jump 0x413 ; case 0x2 0408 7808 |x | Jump 0x411 ; case 0x3 0409 7802 |x | Jump 0x40c ; case 0x4 040a 7801 |x | Jump 0x40c ; case 0x5 040b 7800 |x | Jump 0x40c ; case 0x6 040c 8405 | | Call 0x2,0x5 040d 802f | / | Call 0x0,0x2f 040e e5fd | | Load 0x2,-0x3 040f 016d | m | Execute Variant_Record,Structure_Write 0410 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0411 8406 | | Call 0x2,0x6 0412 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0413 4800 |H | Short_Literal 0x0 0414 0092 1836 | 6| Action Push_String_Extended,0x1836 ; "Definition not supported on this " 0416 e403 | | Load 0x2,0x3 0417 e23c | < | Load 0x1,0x3c 0418 011c | | Execute Any,Convert_Unchecked 0419 1c01 | | Execute_Immediate Run_Utility,0x1 041a 01cc | | Execute Vector,Catenate 041b 820e | | Call 0x1,0xe 041c 802f | / | Call 0x0,0x2f 041d e5fd | | Load 0x2,-0x3 041e 016d | m | Execute Variant_Record,Structure_Write 041f 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0420 TRAP_03e8: 0420 e02e | . | Load 0x0,0x2e 0421 e248 | H | Load 0x1,0x48 0422 0098 | | Execute Package,Field_Read_Dynamic 0423 010f | | Execute Exception,Equal 0424 7002 |p | Jump_Nonzero 0x427 0425 010e | | Execute Exception,Is_Constraint_Error 0426 6805 |h | Jump_Zero 0x42c 0427 4801 |H | Short_Literal 0x1 0428 0092 1837 | 7| Action Push_String_Extended,0x1837 ; "Definition not supported at this position" 042a 820e | | Call 0x1,0xe 042b 4503 |E | Exit_Suprogram New_Top_Offset 0x3 042c 0100 | | Execute Exception,Raise 042d 0000 0000 | | .XXX[0x3] 042f 0000 | | 0430 ; -------------------------------------------------------------------------------------- 0430 ; SUBPROGRAM 0430 ; -------------------------------------------------------------------------------------- 0430 0452 | R | .CONST 0x0452 ; Address of begin 0431 0004 | | .CONST 0x0004 ; Address of exception handler 0432 0006 | | .CONST 0x0006 ; Number of locals 0433 INIT_0430: 0433 e239 | 9 | Load 0x1,0x39 0434 0322 | " | Declare_Variable Record 0435 00db | | Load_Top At_Offset_3 0436 0219 | | Execute Heap_Access,All_Read 0437 e028 | ( | Load 0x0,0x28 0438 e248 | H | Load 0x1,0x48 0439 0096 | | Execute Package,Entry 043a 00d9 | | Load_Top At_Offset_1 043b 017d | } | Execute Record,Structure_Write 043c 00db | | Load_Top At_Offset_3 043d 8214 | | Call 0x1,0x14 043e e026 | & | Load 0x0,0x26 043f 02ff | | Declare_Variable Variant_Record 0440 e5ff | | Load 0x2,-0x1 0441 0219 | | Execute Heap_Access,All_Read 0442 e025 | % | Load 0x0,0x25 0443 e248 | H | Load 0x1,0x48 0444 0096 | | Execute Package,Entry 0445 4810 |H | Short_Literal 0x10 0446 8027 | ' | Call 0x0,0x27 0447 00d9 | | Load_Top At_Offset_1 0448 016d | m | Execute Variant_Record,Structure_Write 0449 e020 | | Load 0x0,0x20 044a 02ff | | Declare_Variable Variant_Record 044b 00d8 | | Load_Top At_Offset_0 044c 1c00 | | Execute_Immediate Run_Utility,0x0 044d e5ff | | Load 0x2,-0x1 044e 0219 | | Execute Heap_Access,All_Read 044f e025 | % | Load 0x0,0x25 0450 e248 | H | Load 0x1,0x48 0451 0096 | | Execute Package,Entry 0452 BODY_0430: 0452 e402 | | Load 0x2,0x2 0453 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 0454 4602 |F | Jump_Case 0x3 0455 7818 |x | Jump 0x46e ; case 0x0 0456 783b |x; | Jump 0x492 ; case 0x1 0457 7800 |x | Jump 0x458 ; case 0x2 0458 00d8 | | Load_Top At_Offset_0 0459 4802 |H | Short_Literal 0x2 045a 8027 | ' | Call 0x0,0x27 045b 00db | | Load_Top At_Offset_3 045c 016d | m | Execute Variant_Record,Structure_Write 045d 00d8 | | Load_Top At_Offset_0 045e 4801 |H | Short_Literal 0x1 045f 00da | | Load_Top At_Offset_2 0460 e403 | | Load 0x2,0x3 0461 8017 | | Call 0x0,0x17 0462 8023 | # | Call 0x0,0x23 0463 00da | | Load_Top At_Offset_2 0464 016d | m | Execute Variant_Record,Structure_Write 0465 00d9 | | Load_Top At_Offset_1 0466 00db | | Load_Top At_Offset_3 0467 2a05 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5 0468 00da | | Load_Top At_Offset_2 0469 e5fe | | Load 0x2,-0x2 046a 016d | m | Execute Variant_Record,Structure_Write 046b 4800 |H | Short_Literal 0x0 046c a5fd | | Store_Unchecked 0x2,-0x3 046d 4502 |E | Exit_Suprogram New_Top_Offset 0x2 046e 00db | | Load_Top At_Offset_3 046f 01db | | Execute Vector,Length 0470 6817 |h | Jump_Zero 0x488 0471 00da | | Load_Top At_Offset_2 0472 00d8 | | Load_Top At_Offset_0 0473 270a |' | Execute Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0xa 0474 00d8 | | Load_Top At_Offset_0 0475 e5ff | | Load 0x2,-0x1 0476 0219 | | Execute Heap_Access,All_Read 0477 e025 | % | Load 0x0,0x25 0478 e248 | H | Load 0x1,0x48 0479 0096 | | Execute Package,Entry 047a e403 | | Load 0x2,0x3 047b 8030 | 0 | Call 0x0,0x30 047c 8017 | | Call 0x0,0x17 047d 00d9 | | Load_Top At_Offset_1 047e 2801 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x1 047f 00d1 | | Pop_Control Pop_Count_1 0480 00d0 | | Action Swap_Control 0481 2b0a |+ | Execute Variant_Record,Field_Write,Variant,Indirect,Field_Number 0xa 0482 4800 |H | Short_Literal 0x0 0483 a5fd | | Store_Unchecked 0x2,-0x3 0484 00da | | Load_Top At_Offset_2 0485 e5fe | | Load 0x2,-0x2 0486 016d | m | Execute Variant_Record,Structure_Write 0487 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0488 4800 |H | Short_Literal 0x0 0489 0092 1838 | 8| Action Push_String_Extended,0x1838 ; "No enclosing object for an temporary Test_Run_Group" 048b 820e | | Call 0x1,0xe 048c 802f | / | Call 0x0,0x2f 048d e5fe | | Load 0x2,-0x2 048e 016d | m | Execute Variant_Record,Structure_Write 048f 4800 |H | Short_Literal 0x0 0490 a5fd | | Store_Unchecked 0x2,-0x3 0491 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0492 00da | | Load_Top At_Offset_2 0493 00d8 | | Load_Top At_Offset_0 0494 270a |' | Execute Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0xa 0495 00d8 | | Load_Top At_Offset_0 0496 e5ff | | Load 0x2,-0x1 0497 0219 | | Execute Heap_Access,All_Read 0498 e025 | % | Load 0x0,0x25 0499 e248 | H | Load 0x1,0x48 049a 0096 | | Execute Package,Entry 049b e403 | | Load 0x2,0x3 049c 8030 | 0 | Call 0x0,0x30 049d 8017 | | Call 0x0,0x17 049e 00d9 | | Load_Top At_Offset_1 049f 2801 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x1 04a0 00d1 | | Pop_Control Pop_Count_1 04a1 00d0 | | Action Swap_Control 04a2 2b0a |+ | Execute Variant_Record,Field_Write,Variant,Indirect,Field_Number 0xa 04a3 4800 |H | Short_Literal 0x0 04a4 a5fd | | Store_Unchecked 0x2,-0x3 04a5 00da | | Load_Top At_Offset_2 04a6 e5fe | | Load 0x2,-0x2 04a7 016d | m | Execute Variant_Record,Structure_Write 04a8 4502 |E | Exit_Suprogram New_Top_Offset 0x2 04a9 0000 0000 | | .BLANK 0000[0x7] 04b0 ; -------------------------------------------------------------------------------------- 04b0 ; SUBPROGRAM 04b0 ; -------------------------------------------------------------------------------------- 04b0 04bc | | .CONST 0x04bc ; Address of begin 04b1 0004 | | .CONST 0x0004 ; Address of exception handler 04b2 0002 | | .CONST 0x0002 ; Number of locals 04b3 INIT_04b0: 04b3 e239 | 9 | Load 0x1,0x39 04b4 0322 | " | Declare_Variable Record 04b5 00db | | Load_Top At_Offset_3 04b6 0219 | | Execute Heap_Access,All_Read 04b7 e028 | ( | Load 0x0,0x28 04b8 e248 | H | Load 0x1,0x48 04b9 0096 | | Execute Package,Entry 04ba 00d9 | | Load_Top At_Offset_1 04bb 017d | } | Execute Record,Structure_Write 04bc BODY_04b0: 04bc 00d8 | | Load_Top At_Offset_0 04bd 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 04be 4602 |F | Jump_Case 0x3 04bf 7810 |x | Jump 0x4d0 ; case 0x0 04c0 7814 |x | Jump 0x4d5 ; case 0x1 04c1 7800 |x | Jump 0x4c2 ; case 0x2 04c2 4801 |H | Short_Literal 0x1 04c3 00d9 | | Load_Top At_Offset_1 04c4 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 04c5 00d8 | | Load_Top At_Offset_0 04c6 e5ff | | Load 0x2,-0x1 04c7 0219 | | Execute Heap_Access,All_Read 04c8 e031 | 1 | Load 0x0,0x31 04c9 e248 | H | Load 0x1,0x48 04ca 0096 | | Execute Package,Entry 04cb 4801 |H | Short_Literal 0x1 04cc 4805 |H | Short_Literal 0x5 04cd e5ff | | Load 0x2,-0x1 04ce 8251 | Q | Call 0x1,0x51 04cf 4504 |E | Exit_Suprogram New_Top_Offset 0x4 04d0 4800 |H | Short_Literal 0x0 04d1 0092 1839 | 9| Action Push_String_Extended,0x1839 ; "Image is fully elided" 04d3 820e | | Call 0x1,0xe 04d4 4504 |E | Exit_Suprogram New_Top_Offset 0x4 04d5 4800 |H | Short_Literal 0x0 04d6 00d9 | | Load_Top At_Offset_1 04d7 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 04d8 00d8 | | Load_Top At_Offset_0 04d9 e5ff | | Load 0x2,-0x1 04da 0219 | | Execute Heap_Access,All_Read 04db e031 | 1 | Load 0x0,0x31 04dc e248 | H | Load 0x1,0x48 04dd 0096 | | Execute Package,Entry 04de 4801 |H | Short_Literal 0x1 04df 4804 |H | Short_Literal 0x4 04e0 e5ff | | Load 0x2,-0x1 04e1 8251 | Q | Call 0x1,0x51 04e2 4504 |E | Exit_Suprogram New_Top_Offset 0x4 04e3 183a 00da | : | .XXX[0x9] 04e5 3c02 e234 |< 4| 04e7 011c 1c01 | | 04e9 01cc 820e | | 04eb 4504 |E | 04ec 0000 0000 | | .BLANK 0000[0x4] 04f0 ; -------------------------------------------------------------------------------------- 04f0 ; SUBPROGRAM 04f0 ; -------------------------------------------------------------------------------------- 04f0 04fc | | .CONST 0x04fc ; Address of begin 04f1 0004 | | .CONST 0x0004 ; Address of exception handler 04f2 0002 | | .CONST 0x0002 ; Number of locals 04f3 INIT_04f0: 04f3 e239 | 9 | Load 0x1,0x39 04f4 0322 | " | Declare_Variable Record 04f5 00db | | Load_Top At_Offset_3 04f6 0219 | | Execute Heap_Access,All_Read 04f7 e028 | ( | Load 0x0,0x28 04f8 e248 | H | Load 0x1,0x48 04f9 0096 | | Execute Package,Entry 04fa 00d9 | | Load_Top At_Offset_1 04fb 017d | } | Execute Record,Structure_Write 04fc BODY_04f0: 04fc 00d8 | | Load_Top At_Offset_0 04fd 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 04fe 4602 |F | Jump_Case 0x3 04ff 7815 |x | Jump 0x515 ; case 0x0 0500 7806 |x | Jump 0x507 ; case 0x1 0501 7800 |x | Jump 0x502 ; case 0x2 0502 4800 |H | Short_Literal 0x0 0503 0092 183b | ;| Action Push_String_Extended,0x183b ; "Image is fully expanded" 0505 820e | | Call 0x1,0xe 0506 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0507 4802 |H | Short_Literal 0x2 0508 00d9 | | Load_Top At_Offset_1 0509 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 050a 00d8 | | Load_Top At_Offset_0 050b e5ff | | Load 0x2,-0x1 050c 0219 | | Execute Heap_Access,All_Read 050d e031 | 1 | Load 0x0,0x31 050e e248 | H | Load 0x1,0x48 050f 0096 | | Execute Package,Entry 0510 4800 |H | Short_Literal 0x0 0511 4805 |H | Short_Literal 0x5 0512 e5ff | | Load 0x2,-0x1 0513 8251 | Q | Call 0x1,0x51 0514 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0515 4801 |H | Short_Literal 0x1 0516 00d9 | | Load_Top At_Offset_1 0517 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0518 00d8 | | Load_Top At_Offset_0 0519 e5ff | | Load 0x2,-0x1 051a 0219 | | Execute Heap_Access,All_Read 051b e031 | 1 | Load 0x0,0x31 051c e248 | H | Load 0x1,0x48 051d 0096 | | Execute Package,Entry 051e 4800 |H | Short_Literal 0x0 051f 4804 |H | Short_Literal 0x4 0520 e5ff | | Load 0x2,-0x1 0521 8251 | Q | Call 0x1,0x51 0522 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0523 183c 00da | < | .XXX[0x9] 0525 3c02 e234 |< 4| 0527 011c 1c01 | | 0529 01cc 820e | | 052b 4504 |E | 052c 0000 0000 | | .BLANK 0000[0x4] 0530 ; -------------------------------------------------------------------------------------- 0530 ; SUBPROGRAM 0530 ; -------------------------------------------------------------------------------------- 0530 0533 | 3 | .CONST 0x0533 ; Address of begin 0531 0004 | | .CONST 0x0004 ; Address of exception handler 0532 0001 | | .CONST 0x0001 ; Number of locals 0533 BODY_0530: 0533 INIT_0530: 0533 0833 | 3 | Execute_Immediate Raise,0x33 0534 0000 0000 | | .BLANK 0000[0x4] 0538 ; -------------------------------------------------------------------------------------- 0538 ; SUBPROGRAM 0538 ; -------------------------------------------------------------------------------------- 0538 053b | ; | .CONST 0x053b ; Address of begin 0539 0004 | | .CONST 0x0004 ; Address of exception handler 053a 0001 | | .CONST 0x0001 ; Number of locals 053b BODY_0538: 053b INIT_0538: 053b 0833 | 3 | Execute_Immediate Raise,0x33 053c 0000 0000 | | .BLANK 0000[0x4] 0540 ; -------------------------------------------------------------------------------------- 0540 ; SUBPROGRAM 0540 ; -------------------------------------------------------------------------------------- 0540 0543 | C | .CONST 0x0543 ; Address of begin 0541 0004 | | .CONST 0x0004 ; Address of exception handler 0542 0001 | | .CONST 0x0001 ; Number of locals 0543 BODY_0540: 0543 INIT_0540: 0543 00ea | | Load_Encached Null_String_Cache 0544 0092 183d | =| Action Push_String_Extended,0x183d ; "Promote" 0546 e032 | 2 | Load 0x0,0x32 0547 e233 | 3 | Load 0x1,0x33 0548 0096 | | Execute Package,Entry 0549 4503 |E | Exit_Suprogram New_Top_Offset 0x3 054a 0000 0000 | | .BLANK 0000[0x6] 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 00ea | | Load_Encached Null_String_Cache 0554 0092 183e | >| Action Push_String_Extended,0x183e ; "Demote" 0556 e032 | 2 | Load 0x0,0x32 0557 e233 | 3 | Load 0x1,0x33 0558 0096 | | Execute Package,Entry 0559 4503 |E | Exit_Suprogram New_Top_Offset 0x3 055a 0000 0000 | | .BLANK 0000[0x6] 0560 ; -------------------------------------------------------------------------------------- 0560 ; SUBPROGRAM 0560 ; -------------------------------------------------------------------------------------- 0560 0567 | g | .CONST 0x0567 ; Address of begin 0561 0004 | | .CONST 0x0004 ; Address of exception handler 0562 0003 | | .CONST 0x0003 ; Number of locals 0563 INIT_0560: 0563 00db | | Load_Top At_Offset_3 0564 8033 | 3 | Call 0x0,0x33 0565 029f 1053 | S| Declare_Subprogram INIT_1050,For_Call 0567 BODY_0560: 0567 00d9 | | Load_Top At_Offset_1 0568 6802 |h | Jump_Zero 0x56b 0569 8403 | | Call 0x2,0x3 056a 4503 |E | Exit_Suprogram New_Top_Offset 0x3 056b 4800 |H | Short_Literal 0x0 056c 0092 183f | ?| Action Push_String_Extended,0x183f ; "Delete requires a selected line" 056e 820e | | Call 0x1,0xe 056f 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0570 ; -------------------------------------------------------------------------------------- 0570 ; SUBPROGRAM 0570 ; -------------------------------------------------------------------------------------- 0570 057c | | | .CONST 0x057c ; Address of begin 0571 0004 | | .CONST 0x0004 ; Address of exception handler 0572 0002 | | .CONST 0x0002 ; Number of locals 0573 INIT_0570: 0573 e239 | 9 | Load 0x1,0x39 0574 0322 | " | Declare_Variable Record 0575 00db | | Load_Top At_Offset_3 0576 0219 | | Execute Heap_Access,All_Read 0577 e028 | ( | Load 0x0,0x28 0578 e248 | H | Load 0x1,0x48 0579 0096 | | Execute Package,Entry 057a 00d9 | | Load_Top At_Offset_1 057b 017d | } | Execute Record,Structure_Write 057c BODY_0570: 057c e5fe | | Load 0x2,-0x2 057d 00d8 | | Load_Top At_Offset_0 057e 4ffd |O | Short_Literal -0x3 057f 4803 |H | Short_Literal 0x3 0580 0262 | b | Execute Discrete,In_Range 0581 683d |h= | Jump_Zero 0x5bf 0582 0a03 | | Execute_Immediate Plus,0x3 0583 4606 |F | Jump_Case 0x7 0584 782d |x- | Jump 0x5b2 ; case 0x0 0585 783a |x: | Jump 0x5c0 ; case 0x1 0586 781e |x | Jump 0x5a5 ; case 0x2 0587 7838 |x8 | Jump 0x5c0 ; case 0x3 0588 780f |x | Jump 0x598 ; case 0x4 0589 7836 |x6 | Jump 0x5c0 ; case 0x5 058a 7800 |x | Jump 0x58b ; case 0x6 058b 4803 |H | Short_Literal 0x3 058c 00d9 | | Load_Top At_Offset_1 058d 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 058e 6041 |`A | Indirect_Literal Discrete,0x5d0,{0x00000000, 0x7fffffff} 058f 4801 |H | Short_Literal 0x1 0590 e5ff | | Load 0x2,-0x1 0591 0219 | | Execute Heap_Access,All_Read 0592 1d71 | q | Execute_Immediate Reference_Lex_1,0x71 0593 1d72 | r | Execute_Immediate Reference_Lex_1,0x72 0594 e00e | | Load 0x0,0xe 0595 e248 | H | Load 0x1,0x48 0596 0096 | | Execute Package,Entry 0597 7830 |x0 | Jump 0x5c8 0598 4801 |H | Short_Literal 0x1 0599 00d9 | | Load_Top At_Offset_1 059a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 059b 6034 |`4 | Indirect_Literal Discrete,0x5d0,{0x00000000, 0x7fffffff} 059c 4801 |H | Short_Literal 0x1 059d e5ff | | Load 0x2,-0x1 059e 0219 | | Execute Heap_Access,All_Read 059f 1d6b | k | Execute_Immediate Reference_Lex_1,0x6b 05a0 1d6c | l | Execute_Immediate Reference_Lex_1,0x6c 05a1 e00e | | Load 0x0,0xe 05a2 e248 | H | Load 0x1,0x48 05a3 0096 | | Execute Package,Entry 05a4 7823 |x# | Jump 0x5c8 05a5 4802 |H | Short_Literal 0x2 05a6 00d9 | | Load_Top At_Offset_1 05a7 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 05a8 6027 |`' | Indirect_Literal Discrete,0x5d0,{0x00000000, 0x7fffffff} 05a9 4801 |H | Short_Literal 0x1 05aa e5ff | | Load 0x2,-0x1 05ab 0219 | | Execute Heap_Access,All_Read 05ac 1d6e | n | Execute_Immediate Reference_Lex_1,0x6e 05ad 1d6f | o | Execute_Immediate Reference_Lex_1,0x6f 05ae e00e | | Load 0x0,0xe 05af e248 | H | Load 0x1,0x48 05b0 0096 | | Execute Package,Entry 05b1 7816 |x | Jump 0x5c8 05b2 4804 |H | Short_Literal 0x4 05b3 00d9 | | Load_Top At_Offset_1 05b4 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 05b5 601a |` | Indirect_Literal Discrete,0x5d0,{0x00000000, 0x7fffffff} 05b6 4801 |H | Short_Literal 0x1 05b7 e5ff | | Load 0x2,-0x1 05b8 0219 | | Execute Heap_Access,All_Read 05b9 1d74 | t | Execute_Immediate Reference_Lex_1,0x74 05ba 1d75 | u | Execute_Immediate Reference_Lex_1,0x75 05bb e00e | | Load 0x0,0xe 05bc e248 | H | Load 0x1,0x48 05bd 0096 | | Execute Package,Entry 05be 7809 |x | Jump 0x5c8 05bf 00d1 | | Pop_Control Pop_Count_1 05c0 4800 |H | Short_Literal 0x0 05c1 0092 1840 | @| Action Push_String_Extended,0x1840 ; "No operation defined for value " 05c3 e5fe | | Load 0x2,-0x2 05c4 00e0 | | Load_Encached Standard_Cache 05c5 1818 | | Execute Package,Field_Execute,Field_Number 0x18 05c6 01cc | | Execute Vector,Catenate 05c7 820e | | Call 0x1,0xe 05c8 00d8 | | Load_Top At_Offset_0 05c9 e5ff | | Load 0x2,-0x1 05ca 0219 | | Execute Heap_Access,All_Read 05cb e031 | 1 | Load 0x0,0x31 05cc e248 | H | Load 0x1,0x48 05cd 0096 | | Execute Package,Entry 05ce 4503 |E | Exit_Suprogram New_Top_Offset 0x3 05cf 0000 | | .XXX[0x1] 05d0 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff} 05d4 0000 0000 | | .BLANK 0000[0x4] 05d8 ; -------------------------------------------------------------------------------------- 05d8 ; SUBPROGRAM 05d8 ; -------------------------------------------------------------------------------------- 05d8 05db | | .CONST 0x05db ; Address of begin 05d9 0004 | | .CONST 0x0004 ; Address of exception handler 05da 0001 | | .CONST 0x0001 ; Number of locals 05db BODY_05d8: 05db INIT_05d8: 05db 00ea | | Load_Encached Null_String_Cache 05dc 0092 1841 | A| Action Push_String_Extended,0x1841 ; "Filter" 05de e032 | 2 | Load 0x0,0x32 05df e233 | 3 | Load 0x1,0x33 05e0 0096 | | Execute Package,Entry 05e1 4503 |E | Exit_Suprogram New_Top_Offset 0x3 05e2 0000 0000 | | .BLANK 0000[0x6] 05e8 ; -------------------------------------------------------------------------------------- 05e8 ; SUBPROGRAM 05e8 ; -------------------------------------------------------------------------------------- 05e8 05eb | | .CONST 0x05eb ; Address of begin 05e9 0004 | | .CONST 0x0004 ; Address of exception handler 05ea 0001 | | .CONST 0x0001 ; Number of locals 05eb BODY_05e8: 05eb INIT_05e8: 05eb 00ea | | Load_Encached Null_String_Cache 05ec 0092 1842 | B| Action Push_String_Extended,0x1842 ; "Show_Differential" 05ee e032 | 2 | Load 0x0,0x32 05ef e233 | 3 | Load 0x1,0x33 05f0 0096 | | Execute Package,Entry 05f1 4503 |E | Exit_Suprogram New_Top_Offset 0x3 05f2 0000 0000 | | .BLANK 0000[0x6] 05f8 ; -------------------------------------------------------------------------------------- 05f8 ; SUBPROGRAM 05f8 ; -------------------------------------------------------------------------------------- 05f8 05fb | | .CONST 0x05fb ; Address of begin 05f9 0004 | | .CONST 0x0004 ; Address of exception handler 05fa 0001 | | .CONST 0x0001 ; Number of locals 05fb BODY_05f8: 05fb INIT_05f8: 05fb 00ea | | Load_Encached Null_String_Cache 05fc 0092 1843 | C| Action Push_String_Extended,0x1843 ; "Generate_Test_Set" 05fe e032 | 2 | Load 0x0,0x32 05ff e233 | 3 | Load 0x1,0x33 0600 0096 | | Execute Package,Entry 0601 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0602 0000 0000 | | .BLANK 0000[0x6] 0608 ; -------------------------------------------------------------------------------------- 0608 ; SUBPROGRAM 0608 ; -------------------------------------------------------------------------------------- 0608 0610 | | .CONST 0x0610 ; Address of begin 0609 0004 | | .CONST 0x0004 ; Address of exception handler 060a 0002 | | .CONST 0x0002 ; Number of locals 060b INIT_0608: 060b 00da | | Load_Top At_Offset_2 060c 0217 | | Execute Heap_Access,All_Reference 060d e034 | 4 | Load 0x0,0x34 060e e248 | H | Load 0x1,0x48 060f 0096 | | Execute Package,Entry 0610 BODY_0608: 0610 00d8 | | Load_Top At_Offset_0 0611 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0612 0000 0000 | | .BLANK 0000[0x6] 0618 ; -------------------------------------------------------------------------------------- 0618 ; SUBPROGRAM 0618 ; -------------------------------------------------------------------------------------- 0618 0624 | $ | .CONST 0x0624 ; Address of begin 0619 0004 | | .CONST 0x0004 ; Address of exception handler 061a 0002 | | .CONST 0x0002 ; Number of locals 061b INIT_0618: 061b e239 | 9 | Load 0x1,0x39 061c 0322 | " | Declare_Variable Record 061d 00db | | Load_Top At_Offset_3 061e 0219 | | Execute Heap_Access,All_Read 061f e028 | ( | Load 0x0,0x28 0620 e248 | H | Load 0x1,0x48 0621 0096 | | Execute Package,Entry 0622 00d9 | | Load_Top At_Offset_1 0623 017d | } | Execute Record,Structure_Write 0624 BODY_0618: 0624 00d8 | | Load_Top At_Offset_0 0625 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0626 e234 | 4 | Load 0x1,0x34 0627 011c | | Execute Any,Convert_Unchecked 0628 1c01 | | Execute_Immediate Run_Utility,0x1 0629 0092 1844 | D| Action Push_String_Extended,0x1844 ; " (" 062b 01cc | | Execute Vector,Catenate 062c 00d9 | | Load_Top At_Offset_1 062d 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 062e e237 | 7 | Load 0x1,0x37 062f 011c | | Execute Any,Convert_Unchecked 0630 1c01 | | Execute_Immediate Run_Utility,0x1 0631 01cc | | Execute Vector,Catenate 0632 0092 1845 | E| Action Push_String_Extended,0x1845 ; "S) by " 0634 01cc | | Execute Vector,Catenate 0635 00d9 | | Load_Top At_Offset_1 0636 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0637 e235 | 5 | Load 0x1,0x35 0638 011c | | Execute Any,Convert_Unchecked 0639 1c01 | | Execute_Immediate Run_Utility,0x1 063a 01cc | | Execute Vector,Catenate 063b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 063c 0000 0000 | | .BLANK 0000[0x4] 0640 ; -------------------------------------------------------------------------------------- 0640 ; SUBPROGRAM 0640 ; -------------------------------------------------------------------------------------- 0640 064c | L | .CONST 0x064c ; Address of begin 0641 0004 | | .CONST 0x0004 ; Address of exception handler 0642 0002 | | .CONST 0x0002 ; Number of locals 0643 INIT_0640: 0643 e239 | 9 | Load 0x1,0x39 0644 0322 | " | Declare_Variable Record 0645 00db | | Load_Top At_Offset_3 0646 0219 | | Execute Heap_Access,All_Read 0647 e028 | ( | Load 0x0,0x28 0648 e248 | H | Load 0x1,0x48 0649 0096 | | Execute Package,Entry 064a 00d9 | | Load_Top At_Offset_1 064b 017d | } | Execute Record,Structure_Write 064c BODY_0640: 064c 00d8 | | Load_Top At_Offset_0 064d 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 064e 8016 | | Call 0x0,0x16 064f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0650 ; -------------------------------------------------------------------------------------- 0650 ; SUBPROGRAM 0650 ; -------------------------------------------------------------------------------------- 0650 0653 | S | .CONST 0x0653 ; Address of begin 0651 0004 | | .CONST 0x0004 ; Address of exception handler 0652 0001 | | .CONST 0x0001 ; Number of locals 0653 BODY_0650: 0653 INIT_0650: 0653 00da | | Load_Top At_Offset_2 0654 8227 | ' | Call 0x1,0x27 0655 e5fe | | Load 0x2,-0x2 0656 8227 | ' | Call 0x1,0x27 0657 01df | | Execute Vector,Equal 0658 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0659 0000 0000 | | .BLANK 0000[0x7] 0660 ; -------------------------------------------------------------------------------------- 0660 ; SUBPROGRAM 0660 ; -------------------------------------------------------------------------------------- 0660 0663 | c | .CONST 0x0663 ; Address of begin 0661 0004 | | .CONST 0x0004 ; Address of exception handler 0662 0001 | | .CONST 0x0001 ; Number of locals 0663 BODY_0660: 0663 INIT_0660: 0663 4801 |H | Short_Literal 0x1 0664 00db | | Load_Top At_Offset_3 0665 0219 | | Execute Heap_Access,All_Read 0666 e035 | 5 | Load 0x0,0x35 0667 e248 | H | Load 0x1,0x48 0668 0096 | | Execute Package,Entry 0669 e232 | 2 | Load 0x1,0x32 066a e5ff | | Load 0x2,-0x1 066b 0219 | | Execute Heap_Access,All_Read 066c e025 | % | Load 0x0,0x25 066d e248 | H | Load 0x1,0x48 066e 0096 | | Execute Package,Entry 066f 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value 0670 a5fe | | Store_Unchecked 0x2,-0x2 0671 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0672 0000 0000 | | .BLANK 0000[0x6] 0678 ; -------------------------------------------------------------------------------------- 0678 ; SUBPROGRAM 0678 ; -------------------------------------------------------------------------------------- 0678 067b | { | .CONST 0x067b ; Address of begin 0679 0004 | | .CONST 0x0004 ; Address of exception handler 067a 0001 | | .CONST 0x0001 ; Number of locals 067b BODY_0678: 067b INIT_0678: 067b 00da | | Load_Top At_Offset_2 067c 0217 | | Execute Heap_Access,All_Reference 067d e036 | 6 | Load 0x0,0x36 067e e248 | H | Load 0x1,0x48 067f 0096 | | Execute Package,Entry 0680 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0681 0000 0000 | | .BLANK 0000[0x7] 0688 ; -------------------------------------------------------------------------------------- 0688 ; SUBPROGRAM 0688 ; -------------------------------------------------------------------------------------- 0688 0693 | | .CONST 0x0693 ; Address of begin 0689 0004 | | .CONST 0x0004 ; Address of exception handler 068a 0002 | | .CONST 0x0002 ; Number of locals 068b INIT_0688: 068b 00da | | Load_Top At_Offset_2 068c 0217 | | Execute Heap_Access,All_Reference 068d e037 | 7 | Load 0x0,0x37 068e e248 | H | Load 0x1,0x48 068f 0096 | | Execute Package,Entry 0690 e025 | % | Load 0x0,0x25 0691 e248 | H | Load 0x1,0x48 0692 0096 | | Execute Package,Entry 0693 BODY_0688: 0693 00db | | Load_Top At_Offset_3 0694 0217 | | Execute Heap_Access,All_Reference 0695 e038 | 8 | Load 0x0,0x38 0696 e248 | H | Load 0x1,0x48 0697 0096 | | Execute Package,Entry 0698 e230 | 0 | Load 0x1,0x30 0699 00da | | Load_Top At_Offset_2 069a 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value 069b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 069c 0000 0000 | | .BLANK 0000[0x4] 06a0 ; -------------------------------------------------------------------------------------- 06a0 ; SUBPROGRAM 06a0 ; -------------------------------------------------------------------------------------- 06a0 06a3 | | .CONST 0x06a3 ; Address of begin 06a1 0004 | | .CONST 0x0004 ; Address of exception handler 06a2 0001 | | .CONST 0x0001 ; Number of locals 06a3 BODY_06a0: 06a3 INIT_06a0: 06a3 00da | | Load_Top At_Offset_2 06a4 0219 | | Execute Heap_Access,All_Read 06a5 00d8 | | Load_Top At_Offset_0 06a6 e039 | 9 | Load 0x0,0x39 06a7 e248 | H | Load 0x1,0x48 06a8 0096 | | Execute Package,Entry 06a9 4501 |E | Exit_Suprogram New_Top_Offset 0x1 06aa 0000 0000 | | .BLANK 0000[0x6] 06b0 ; -------------------------------------------------------------------------------------- 06b0 ; SUBPROGRAM 06b0 ; -------------------------------------------------------------------------------------- 06b0 06b3 | | .CONST 0x06b3 ; Address of begin 06b1 0004 | | .CONST 0x0004 ; Address of exception handler 06b2 0001 | | .CONST 0x0001 ; Number of locals 06b3 BODY_06b0: 06b3 INIT_06b0: 06b3 4607 |F | Jump_Case 0x8 06b4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 06b5 7807 |x | Jump 0x6bd ; case 0x1 06b6 780a |x | Jump 0x6c1 ; case 0x2 06b7 780e |x | Jump 0x6c6 ; case 0x3 06b8 7811 |x | Jump 0x6ca ; case 0x4 06b9 7812 |x | Jump 0x6cc ; case 0x5 06ba 7813 |x | Jump 0x6ce ; case 0x6 06bb 7816 |x | Jump 0x6d2 ; case 0x7 06bc 4302 |C | .XXX[0x1] 06bd 00da | | Load_Top At_Offset_2 06be 0091 1818 | | Action Push_String_Extended_Indexed,0x1818 ; "WORLD" 06c0 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 06c1 00db | | Load_Top At_Offset_3 06c2 00db | | Load_Top At_Offset_3 06c3 00e0 | | Load_Encached Standard_Cache 06c4 181b | | Execute Package,Field_Execute,Field_Number 0x1b 06c5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 06c6 00da | | Load_Top At_Offset_2 06c7 00e0 | | Load_Encached Standard_Cache 06c8 181c | | Execute Package,Field_Execute,Field_Number 0x1c 06c9 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 06ca 00db | | Load_Top At_Offset_3 06cb 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 06cc 00db | | Load_Top At_Offset_3 06cd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 06ce e234 | 4 | Load 0x1,0x34 06cf 00dc | | Load_Top At_Offset_4 06d0 0267 | g | Execute Discrete,Predecessor 06d1 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 06d2 e234 | 4 | Load 0x1,0x34 06d3 00dc | | Load_Top At_Offset_4 06d4 0268 | h | Execute Discrete,Successor 06d5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 06d6 0000 0000 | | .XXX[0x2] 06d8 ; -------------------------------------------------------------------------------------- 06d8 ; SUBPROGRAM 06d8 ; -------------------------------------------------------------------------------------- 06d8 06db | | .CONST 0x06db ; Address of begin 06d9 0004 | | .CONST 0x0004 ; Address of exception handler 06da 0001 | | .CONST 0x0001 ; Number of locals 06db BODY_06d8: 06db INIT_06d8: 06db 4607 |F | Jump_Case 0x8 06dc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 06dd 7807 |x | Jump 0x6e5 ; case 0x1 06de 780a |x | Jump 0x6e9 ; case 0x2 06df 780e |x | Jump 0x6ee ; case 0x3 06e0 7811 |x | Jump 0x6f2 ; case 0x4 06e1 7812 |x | Jump 0x6f4 ; case 0x5 06e2 7813 |x | Jump 0x6f6 ; case 0x6 06e3 7816 |x | Jump 0x6fa ; case 0x7 06e4 4302 |C | .XXX[0x1] 06e5 00da | | Load_Top At_Offset_2 06e6 0091 181b | | Action Push_String_Extended_Indexed,0x181b ; "NONE" 06e8 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 06e9 00db | | Load_Top At_Offset_3 06ea 00db | | Load_Top At_Offset_3 06eb 00e0 | | Load_Encached Standard_Cache 06ec 181b | | Execute Package,Field_Execute,Field_Number 0x1b 06ed 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 06ee 00da | | Load_Top At_Offset_2 06ef 00e0 | | Load_Encached Standard_Cache 06f0 181c | | Execute Package,Field_Execute,Field_Number 0x1c 06f1 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 06f2 00db | | Load_Top At_Offset_3 06f3 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 06f4 00db | | Load_Top At_Offset_3 06f5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 06f6 e235 | 5 | Load 0x1,0x35 06f7 00dc | | Load_Top At_Offset_4 06f8 0267 | g | Execute Discrete,Predecessor 06f9 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 06fa e235 | 5 | Load 0x1,0x35 06fb 00dc | | Load_Top At_Offset_4 06fc 0268 | h | Execute Discrete,Successor 06fd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 06fe 0000 0000 | | .XXX[0x2] 0700 ; -------------------------------------------------------------------------------------- 0700 ; SUBPROGRAM 0700 ; -------------------------------------------------------------------------------------- 0700 0703 | | .CONST 0x0703 ; Address of begin 0701 0004 | | .CONST 0x0004 ; Address of exception handler 0702 0001 | | .CONST 0x0001 ; Number of locals 0703 BODY_0700: 0703 INIT_0700: 0703 4607 |F | Jump_Case 0x8 0704 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0705 7807 |x | Jump 0x70d ; case 0x1 0706 780a |x | Jump 0x711 ; case 0x2 0707 780e |x | Jump 0x716 ; case 0x3 0708 7811 |x | Jump 0x71a ; case 0x4 0709 7812 |x | Jump 0x71c ; case 0x5 070a 7813 |x | Jump 0x71e ; case 0x6 070b 7816 |x | Jump 0x722 ; case 0x7 070c 4302 |C | .XXX[0x1] 070d 00da | | Load_Top At_Offset_2 070e 0091 1820 | | Action Push_String_Extended_Indexed,0x1820 ; "NIL_COL" 0710 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0711 00db | | Load_Top At_Offset_3 0712 00db | | Load_Top At_Offset_3 0713 00e0 | | Load_Encached Standard_Cache 0714 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0715 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0716 00da | | Load_Top At_Offset_2 0717 00e0 | | Load_Encached Standard_Cache 0718 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0719 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 071a 00db | | Load_Top At_Offset_3 071b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 071c 00db | | Load_Top At_Offset_3 071d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 071e e236 | 6 | Load 0x1,0x36 071f 00dc | | Load_Top At_Offset_4 0720 0267 | g | Execute Discrete,Predecessor 0721 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0722 e236 | 6 | Load 0x1,0x36 0723 00dc | | Load_Top At_Offset_4 0724 0268 | h | Execute Discrete,Successor 0725 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0726 0000 0000 | | .XXX[0x2] 0728 ; -------------------------------------------------------------------------------------- 0728 ; SUBPROGRAM 0728 ; -------------------------------------------------------------------------------------- 0728 072b | + | .CONST 0x072b ; Address of begin 0729 0004 | | .CONST 0x0004 ; Address of exception handler 072a 0001 | | .CONST 0x0001 ; Number of locals 072b BODY_0728: 072b INIT_0728: 072b 4607 |F | Jump_Case 0x8 072c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 072d 7807 |x | Jump 0x735 ; case 0x1 072e 780a |x | Jump 0x739 ; case 0x2 072f 780e |x | Jump 0x73e ; case 0x3 0730 7811 |x | Jump 0x742 ; case 0x4 0731 7812 |x | Jump 0x744 ; case 0x5 0732 7813 |x | Jump 0x746 ; case 0x6 0733 7816 |x | Jump 0x74a ; case 0x7 0734 4302 |C | .XXX[0x1] 0735 00da | | Load_Top At_Offset_2 0736 0091 1824 | $| Action Push_String_Extended_Indexed,0x1824 ; "SEGMENT" 0738 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0739 00db | | Load_Top At_Offset_3 073a 00db | | Load_Top At_Offset_3 073b 00e0 | | Load_Encached Standard_Cache 073c 181b | | Execute Package,Field_Execute,Field_Number 0x1b 073d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 073e 00da | | Load_Top At_Offset_2 073f 00e0 | | Load_Encached Standard_Cache 0740 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0741 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0742 00db | | Load_Top At_Offset_3 0743 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0744 00db | | Load_Top At_Offset_3 0745 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0746 e237 | 7 | Load 0x1,0x37 0747 00dc | | Load_Top At_Offset_4 0748 0267 | g | Execute Discrete,Predecessor 0749 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 074a e237 | 7 | Load 0x1,0x37 074b 00dc | | Load_Top At_Offset_4 074c 0268 | h | Execute Discrete,Successor 074d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 074e 0000 0000 | | .XXX[0x2] 0750 ; -------------------------------------------------------------------------------------- 0750 ; SUBPROGRAM 0750 ; -------------------------------------------------------------------------------------- 0750 0753 | S | .CONST 0x0753 ; Address of begin 0751 0004 | | .CONST 0x0004 ; Address of exception handler 0752 0001 | | .CONST 0x0001 ; Number of locals 0753 BODY_0750: 0753 INIT_0750: 0753 4607 |F | Jump_Case 0x8 0754 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0755 7807 |x | Jump 0x75d ; case 0x1 0756 780a |x | Jump 0x761 ; case 0x2 0757 780e |x | Jump 0x766 ; case 0x3 0758 7811 |x | Jump 0x76a ; case 0x4 0759 7812 |x | Jump 0x76c ; case 0x5 075a 7813 |x | Jump 0x76e ; case 0x6 075b 7816 |x | Jump 0x772 ; case 0x7 075c 4302 |C | .XXX[0x1] 075d 00da | | Load_Top At_Offset_2 075e 0091 1826 | &| Action Push_String_Extended_Indexed,0x1826 ; "RGROUP" 0760 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0761 00db | | Load_Top At_Offset_3 0762 00db | | Load_Top At_Offset_3 0763 00e0 | | Load_Encached Standard_Cache 0764 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0765 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0766 00da | | Load_Top At_Offset_2 0767 00e0 | | Load_Encached Standard_Cache 0768 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0769 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 076a 00db | | Load_Top At_Offset_3 076b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 076c 00db | | Load_Top At_Offset_3 076d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 076e e238 | 8 | Load 0x1,0x38 076f 00dc | | Load_Top At_Offset_4 0770 0267 | g | Execute Discrete,Predecessor 0771 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0772 e238 | 8 | Load 0x1,0x38 0773 00dc | | Load_Top At_Offset_4 0774 0268 | h | Execute Discrete,Successor 0775 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0776 0000 0000 | | .XXX[0x2] 0778 ; -------------------------------------------------------------------------------------- 0778 ; SUBPROGRAM 0778 ; -------------------------------------------------------------------------------------- 0778 077b | { | .CONST 0x077b ; Address of begin 0779 0004 | | .CONST 0x0004 ; Address of exception handler 077a 0001 | | .CONST 0x0001 ; Number of locals 077b BODY_0778: 077b INIT_0778: 077b 4601 |F | Jump_Case 0x2 077c 7801 |x | Jump 0x77e ; case 0x0 077d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 077e 4800 |H | Short_Literal 0x0 077f 00db | | Load_Top At_Offset_3 0780 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 0781 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0782 0000 0000 | | .BLANK 0000[0x6] 0788 ; -------------------------------------------------------------------------------------- 0788 ; SUBPROGRAM 0788 ; -------------------------------------------------------------------------------------- 0788 078b | | .CONST 0x078b ; Address of begin 0789 0004 | | .CONST 0x0004 ; Address of exception handler 078a 0001 | | .CONST 0x0001 ; Number of locals 078b BODY_0788: 078b INIT_0788: 078b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 078c 0000 0000 | | .BLANK 0000[0x4] 0790 ; -------------------------------------------------------------------------------------- 0790 ; SUBPROGRAM 0790 ; -------------------------------------------------------------------------------------- 0790 0793 | | .CONST 0x0793 ; Address of begin 0791 0004 | | .CONST 0x0004 ; Address of exception handler 0792 0001 | | .CONST 0x0001 ; Number of locals 0793 BODY_0790: 0793 INIT_0790: 0793 4607 |F | Jump_Case 0x8 0794 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0795 7807 |x | Jump 0x79d ; case 0x1 0796 780a |x | Jump 0x7a1 ; case 0x2 0797 780e |x | Jump 0x7a6 ; case 0x3 0798 7811 |x | Jump 0x7aa ; case 0x4 0799 7812 |x | Jump 0x7ac ; case 0x5 079a 7813 |x | Jump 0x7ae ; case 0x6 079b 7816 |x | Jump 0x7b2 ; case 0x7 079c 4302 |C | .XXX[0x1] 079d 00da | | Load_Top At_Offset_2 079e 0091 1829 | )| Action Push_String_Extended_Indexed,0x1829 ; "NIL_ROW" 07a0 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 07a1 00db | | Load_Top At_Offset_3 07a2 00db | | Load_Top At_Offset_3 07a3 00e0 | | Load_Encached Standard_Cache 07a4 181b | | Execute Package,Field_Execute,Field_Number 0x1b 07a5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 07a6 00da | | Load_Top At_Offset_2 07a7 00e0 | | Load_Encached Standard_Cache 07a8 181c | | Execute Package,Field_Execute,Field_Number 0x1c 07a9 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 07aa 00db | | Load_Top At_Offset_3 07ab 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 07ac 00db | | Load_Top At_Offset_3 07ad 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 07ae e23c | < | Load 0x1,0x3c 07af 00dc | | Load_Top At_Offset_4 07b0 0267 | g | Execute Discrete,Predecessor 07b1 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 07b2 e23c | < | Load 0x1,0x3c 07b3 00dc | | Load_Top At_Offset_4 07b4 0268 | h | Execute Discrete,Successor 07b5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 07b6 0000 0000 | | .XXX[0x2] 07b8 ; -------------------------------------------------------------------------------------- 07b8 ; SUBPROGRAM 07b8 ; -------------------------------------------------------------------------------------- 07b8 07bb | | .CONST 0x07bb ; Address of begin 07b9 0004 | | .CONST 0x0004 ; Address of exception handler 07ba 0001 | | .CONST 0x0001 ; Number of locals 07bb BODY_07b8: 07bb INIT_07b8: 07bb 4609 |F | Jump_Case 0xa 07bc 7809 |x | Jump 0x7c6 ; case 0x0 07bd 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 07be 7821 |x! | Jump 0x7e0 ; case 0x2 07bf 7824 |x$ | Jump 0x7e4 ; case 0x3 07c0 7835 |x5 | Jump 0x7f6 ; case 0x4 07c1 7834 |x4 | Jump 0x7f6 ; case 0x5 07c2 7833 |x3 | Jump 0x7f6 ; case 0x6 07c3 7826 |x& | Jump 0x7ea ; case 0x7 07c4 7829 |x) | Jump 0x7ee ; case 0x8 07c5 782c |x, | Jump 0x7f2 ; case 0x9 07c6 00da | | Load_Top At_Offset_2 07c7 016c | l | Execute Variant_Record,Is_Constrained 07c8 7009 |p | Jump_Nonzero 0x7d2 07c9 00cf | | Action Mark_Auxiliary 07ca 4800 |H | Short_Literal 0x0 07cb e5ff | | Load 0x2,-0x1 07cc 1c08 | | Execute_Immediate Run_Utility,0x8 07cd 00d8 | | Load_Top At_Offset_0 07ce 1c00 | | Execute_Immediate Run_Utility,0x0 07cf c5ff | | Store 0x2,-0x1 07d0 00ce | | Action Pop_Auxiliary 07d1 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 07d2 4800 |H | Short_Literal 0x0 07d3 00db | | Load_Top At_Offset_3 07d4 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 07d5 00da | | Load_Top At_Offset_2 07d6 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 07d7 4606 |F | Jump_Case 0x7 07d8 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 07d9 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 07da 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2 07db 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3 07dc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4 07dd 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5 07de 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x6 07df 4302 |C | .XXX[0x1] 07e0 4801 |H | Short_Literal 0x1 07e1 4803 |H | Short_Literal 0x3 07e2 0311 | | Declare_Type Variant_Record,Constrained_Incomplete 07e3 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 07e4 e5fd | | Load 0x2,-0x3 07e5 00db | | Load_Top At_Offset_3 07e6 1c07 | | Execute_Immediate Run_Utility,0x7 07e7 e5fe | | Load 0x2,-0x2 07e8 0306 | | Complete_Type Variant_Record,By_Renaming 07e9 4304 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x4 07ea 00db | | Load_Top At_Offset_3 07eb e5ff | | Load 0x2,-0x1 07ec 031b | | Declare_Type Variant_Record,Constrained 07ed 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 07ee 00db | | Load_Top At_Offset_3 07ef 00db | | Load_Top At_Offset_3 07f0 02fc | | Declare_Variable Variant_Record,With_Constraint 07f1 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 07f2 4800 |H | Short_Literal 0x0 07f3 00db | | Load_Top At_Offset_3 07f4 1c07 | | Execute_Immediate Run_Utility,0x7 07f5 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 07f6 0869 | i | Execute_Immediate Raise,0x69 07f7 0000 | | .XXX[0x1] 07f8 ; -------------------------------------------------------------------------------------- 07f8 ; SUBPROGRAM 07f8 ; -------------------------------------------------------------------------------------- 07f8 07fb | | .CONST 0x07fb ; Address of begin 07f9 0004 | | .CONST 0x0004 ; Address of exception handler 07fa 0001 | | .CONST 0x0001 ; Number of locals 07fb BODY_07f8: 07fb INIT_07f8: 07fb 4501 |E | Exit_Suprogram New_Top_Offset 0x1 07fc 0000 0000 | | .BLANK 0000[0x4] 0800 ; -------------------------------------------------------------------------------------- 0800 ; SUBPROGRAM 0800 ; -------------------------------------------------------------------------------------- 0800 0803 | | .CONST 0x0803 ; Address of begin 0801 0004 | | .CONST 0x0004 ; Address of exception handler 0802 0001 | | .CONST 0x0001 ; Number of locals 0803 BODY_0800: 0803 INIT_0800: 0803 4609 |F | Jump_Case 0xa 0804 7809 |x | Jump 0x80e ; case 0x0 0805 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 0806 781b |x | Jump 0x822 ; case 0x2 0807 781e |x | Jump 0x826 ; case 0x3 0808 784d |xM | Jump 0x856 ; case 0x4 0809 784c |xL | Jump 0x856 ; case 0x5 080a 7821 |x! | Jump 0x82c ; case 0x6 080b 782e |x. | Jump 0x83a ; case 0x7 080c 783e |x> | Jump 0x84b ; case 0x8 080d 7844 |xD | Jump 0x852 ; case 0x9 080e 00da | | Load_Top At_Offset_2 080f 016c | l | Execute Variant_Record,Is_Constrained 0810 7009 |p | Jump_Nonzero 0x81a 0811 00cf | | Action Mark_Auxiliary 0812 4800 |H | Short_Literal 0x0 0813 e5ff | | Load 0x2,-0x1 0814 1c08 | | Execute_Immediate Run_Utility,0x8 0815 00d8 | | Load_Top At_Offset_0 0816 1c00 | | Execute_Immediate Run_Utility,0x0 0817 c5ff | | Store 0x2,-0x1 0818 00ce | | Action Pop_Auxiliary 0819 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 081a 00da | | Load_Top At_Offset_2 081b 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 081c 4603 |F | Jump_Case 0x4 081d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 081e 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 081f 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2 0820 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3 0821 4302 |C | .XXX[0x1] 0822 4801 |H | Short_Literal 0x1 0823 4807 |H | Short_Literal 0x7 0824 0311 | | Declare_Type Variant_Record,Constrained_Incomplete 0825 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0826 e5fd | | Load 0x2,-0x3 0827 00db | | Load_Top At_Offset_3 0828 1c07 | | Execute_Immediate Run_Utility,0x7 0829 e5fe | | Load 0x2,-0x2 082a 0306 | | Complete_Type Variant_Record,By_Renaming 082b 4304 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x4 082c 00db | | Load_Top At_Offset_3 082d 4603 |F | Jump_Case 0x4 082e 7809 |x | Jump 0x838 ; case 0x0 082f 7804 |x | Jump 0x834 ; case 0x1 0830 7805 |x | Jump 0x836 ; case 0x2 0831 7800 |x | Jump 0x832 ; case 0x3 0832 4803 |H | Short_Literal 0x3 0833 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0834 4801 |H | Short_Literal 0x1 0835 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0836 4802 |H | Short_Literal 0x2 0837 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0838 48ff |H | Short_Literal 0xff 0839 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 083a 00db | | Load_Top At_Offset_3 083b e5fe | | Load 0x2,-0x2 083c 4603 |F | Jump_Case 0x4 083d 7809 |x | Jump 0x847 ; case 0x0 083e 7804 |x | Jump 0x843 ; case 0x1 083f 7805 |x | Jump 0x845 ; case 0x2 0840 7800 |x | Jump 0x841 ; case 0x3 0841 4803 |H | Short_Literal 0x3 0842 7805 |x | Jump 0x848 0843 4801 |H | Short_Literal 0x1 0844 7803 |x | Jump 0x848 0845 4802 |H | Short_Literal 0x2 0846 7801 |x | Jump 0x848 0847 48ff |H | Short_Literal 0xff 0848 e5ff | | Load 0x2,-0x1 0849 031b | | Declare_Type Variant_Record,Constrained 084a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 084b 00db | | Load_Top At_Offset_3 084c e5fe | | Load 0x2,-0x2 084d e5ff | | Load 0x2,-0x1 084e 1c06 | | Execute_Immediate Run_Utility,0x6 084f e5ff | | Load 0x2,-0x1 0850 02fc | | Declare_Variable Variant_Record,With_Constraint 0851 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0852 4800 |H | Short_Literal 0x0 0853 00db | | Load_Top At_Offset_3 0854 1c07 | | Execute_Immediate Run_Utility,0x7 0855 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0856 0869 | i | Execute_Immediate Raise,0x69 0857 0000 | | .XXX[0x1] 0858 ; -------------------------------------------------------------------------------------- 0858 ; SUBPROGRAM 0858 ; -------------------------------------------------------------------------------------- 0858 085b | [ | .CONST 0x085b ; Address of begin 0859 0004 | | .CONST 0x0004 ; Address of exception handler 085a 0001 | | .CONST 0x0001 ; Number of locals 085b BODY_0858: 085b INIT_0858: 085b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 085c 0000 0000 | | .BLANK 0000[0x4] 0860 ; -------------------------------------------------------------------------------------- 0860 ; SUBPROGRAM 0860 ; -------------------------------------------------------------------------------------- 0860 0863 | c | .CONST 0x0863 ; Address of begin 0861 0004 | | .CONST 0x0004 ; Address of exception handler 0862 0001 | | .CONST 0x0001 ; Number of locals 0863 BODY_0860: 0863 INIT_0860: 0863 00da | | Load_Top At_Offset_2 0864 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0865 e5fd | | Load 0x2,-0x3 0866 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0867 00da | | Load_Top At_Offset_2 0868 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0869 e5fd | | Load 0x2,-0x3 086a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 086b e5fd | | Load 0x2,-0x3 086c 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 086d e5fe | | Load 0x2,-0x2 086e e5ff | | Load 0x2,-0x1 086f 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0870 803a | : | Call 0x0,0x3a 0871 e5fd | | Load 0x2,-0x3 0872 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0873 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0874 0000 0000 | | .BLANK 0000[0x4] 0878 ; -------------------------------------------------------------------------------------- 0878 ; SUBPROGRAM 0878 ; -------------------------------------------------------------------------------------- 0878 087b | { | .CONST 0x087b ; Address of begin 0879 0004 | | .CONST 0x0004 ; Address of exception handler 087a 0001 | | .CONST 0x0001 ; Number of locals 087b BODY_0878: 087b INIT_0878: 087b 00da | | Load_Top At_Offset_2 087c e5fd | | Load 0x2,-0x3 087d 016d | m | Execute Variant_Record,Structure_Write 087e 4503 |E | Exit_Suprogram New_Top_Offset 0x3 087f 0000 | | .XXX[0x1] 0880 ; -------------------------------------------------------------------------------------- 0880 ; SUBPROGRAM 0880 ; -------------------------------------------------------------------------------------- 0880 0885 | | .CONST 0x0885 ; Address of begin 0881 0004 | | .CONST 0x0004 ; Address of exception handler 0882 0002 | | .CONST 0x0002 ; Number of locals 0883 INIT_0880: 0883 029f 107b | {| Declare_Subprogram INIT_1078,For_Call 0885 BODY_0880: 0885 00db | | Load_Top At_Offset_3 0886 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0887 0f01 | | Execute_Immediate Equal,0x1 0888 6802 |h | Jump_Zero 0x88b 0889 8402 | | Call 0x2,0x2 088a 4503 |E | Exit_Suprogram New_Top_Offset 0x3 088b 00db | | Load_Top At_Offset_3 088c e5fd | | Load 0x2,-0x3 088d 016d | m | Execute Variant_Record,Structure_Write 088e 4503 |E | Exit_Suprogram New_Top_Offset 0x3 088f 0000 | | .XXX[0x1] 0890 ; -------------------------------------------------------------------------------------- 0890 ; SUBPROGRAM 0890 ; -------------------------------------------------------------------------------------- 0890 0895 | | .CONST 0x0895 ; Address of begin 0891 0004 | | .CONST 0x0004 ; Address of exception handler 0892 0002 | | .CONST 0x0002 ; Number of locals 0893 INIT_0890: 0893 029f 1093 | | Declare_Subprogram INIT_1090,For_Call 0895 BODY_0890: 0895 00db | | Load_Top At_Offset_3 0896 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0897 4603 |F | Jump_Case 0x4 0898 7805 |x | Jump 0x89e ; case 0x0 0899 7806 |x | Jump 0x8a0 ; case 0x1 089a 780d |x | Jump 0x8a8 ; case 0x2 089b 7800 |x | Jump 0x89c ; case 0x3 089c 8402 | | Call 0x2,0x2 089d 7823 |x# | Jump 0x8c1 089e e24a | J | Load 0x1,0x4a 089f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 08a0 00db | | Load_Top At_Offset_3 08a1 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 08a2 8278 | x | Call 0x1,0x78 08a3 e5ff | | Load 0x2,-0x1 08a4 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3 08a5 8016 | | Call 0x0,0x16 08a6 01cc | | Execute Vector,Catenate 08a7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 08a8 00db | | Load_Top At_Offset_3 08a9 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4 08aa 0c65 | e | Execute_Immediate Greater_Equal,0x65 08ab 6807 |h | Jump_Zero 0x8b3 08ac 00db | | Load_Top At_Offset_3 08ad 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 08ae 8278 | x | Call 0x1,0x78 08af 0092 1846 | F| Action Push_String_Extended,0x1846 ; " -" 08b1 01cc | | Execute Vector,Catenate 08b2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 08b3 4825 |H% | Short_Literal 0x25 08b4 e5ff | | Load 0x2,-0x1 08b5 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 08b6 8278 | x | Call 0x1,0x78 08b7 4820 |H | Short_Literal 0x20 08b8 4804 |H | Short_Literal 0x4 08b9 480a |H | Short_Literal 0xa 08ba e5ff | | Load 0x2,-0x1 08bb 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4 08bc e03b | ; | Load 0x0,0x3b 08bd 1816 | | Execute Package,Field_Execute,Field_Number 0x16 08be 01cc | | Execute Vector,Catenate 08bf 01cb | | Execute Vector,Append 08c0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 08c1 0831 | 1 | Execute_Immediate Raise,0x31 08c2 0000 0000 | | .BLANK 0000[0x6] 08c8 ; -------------------------------------------------------------------------------------- 08c8 ; SUBPROGRAM 08c8 ; -------------------------------------------------------------------------------------- 08c8 090f | | .CONST 0x090f ; Address of begin 08c9 0004 | | .CONST 0x0004 ; Address of exception handler 08ca 0021 | ! | .CONST 0x0021 ; Number of locals 08cb INIT_08c8: 08cb e03c | < | Load 0x0,0x3c 08cc 0007 | | Action Break_Optional 08cd e03d | = | Load 0x0,0x3d 08ce 0322 | " | Declare_Variable Record 08cf 00d8 | | Load_Top At_Offset_0 08d0 1c00 | | Execute_Immediate Run_Utility,0x0 08d1 e03e | > | Load 0x0,0x3e 08d2 0007 | | Action Break_Optional 08d3 e03f | ? | Load 0x0,0x3f 08d4 0007 | | Action Break_Optional 08d5 e040 | @ | Load 0x0,0x40 08d6 0007 | | Action Break_Optional 08d7 e041 | A | Load 0x0,0x41 08d8 0007 | | Action Break_Optional 08d9 e042 | B | Load 0x0,0x42 08da 0007 | | Action Break_Optional 08db e043 | C | Load 0x0,0x43 08dc 0007 | | Action Break_Optional 08dd e044 | D | Load 0x0,0x44 08de 0322 | " | Declare_Variable Record 08df 00d8 | | Load_Top At_Offset_0 08e0 1c00 | | Execute_Immediate Run_Utility,0x0 08e1 e005 | | Load 0x0,0x5 08e2 039d | | Declare_Variable Heap_Access,Duplicate 08e3 039d | | Declare_Variable Heap_Access,Duplicate 08e4 e23d | = | Load 0x1,0x3d 08e5 0322 | " | Declare_Variable Record 08e6 00d8 | | Load_Top At_Offset_0 08e7 0322 | " | Declare_Variable Record 08e8 00d8 | | Load_Top At_Offset_0 08e9 0322 | " | Declare_Variable Record 08ea e00a | | Load 0x0,0xa 08eb e248 | H | Load 0x1,0x48 08ec 0098 | | Execute Package,Field_Read_Dynamic 08ed 0322 | " | Declare_Variable Record 08ee 00d8 | | Load_Top At_Offset_0 08ef 0322 | " | Declare_Variable Record 08f0 00d8 | | Load_Top At_Offset_0 08f1 0322 | " | Declare_Variable Record 08f2 8018 | | Call 0x0,0x18 08f3 e5fa | | Load 0x2,-0x6 08f4 8045 | E | Call 0x0,0x45 08f5 0f00 | | Execute_Immediate Equal,0x0 08f6 0007 | | Action Break_Optional 08f7 00e1 | | Load_Encached Boolean_Cache 08f8 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 08f9 03e9 | | Declare_Variable Discrete,Duplicate 08fa 03e9 | | Declare_Variable Discrete,Duplicate 08fb 03e9 | | Declare_Variable Discrete,Duplicate 08fc e5fd | | Load 0x2,-0x3 08fd 00e1 | | Load_Encached Boolean_Cache 08fe 03f1 | | Declare_Variable Discrete,With_Value 08ff 029f 10cb | | Declare_Subprogram INIT_10c8,For_Call 0901 029f 10e3 | | Declare_Subprogram INIT_10e0,For_Call 0903 029f 110b | | Declare_Subprogram INIT_1108,For_Call 0905 029f 1163 | c| Declare_Subprogram INIT_1160,For_Call 0907 029f 1173 | s| Declare_Subprogram INIT_1170,For_Call 0909 029f 118b | | Declare_Subprogram INIT_1188,For_Call 090b 029f 11ab | | Declare_Subprogram INIT_11a8,For_Call 090d 029f 11db | | Declare_Subprogram INIT_11d8,For_Call 090f BODY_08c8: 090f e414 | | Load 0x2,0x14 0910 6810 |h | Jump_Zero 0x921 0911 e5fb | | Load 0x2,-0x5 0912 8046 | F | Call 0x0,0x46 0913 a402 | | Store_Unchecked 0x2,0x2 0914 e402 | | Load 0x2,0x2 0915 e5f9 | | Load 0x2,-0x7 0916 8047 | G | Call 0x0,0x47 0917 c402 | | Store 0x2,0x2 0918 e5fb | | Load 0x2,-0x5 0919 8048 | H | Call 0x0,0x48 091a e403 | | Load 0x2,0x3 091b 017d | } | Execute Record,Structure_Write 091c e5fa | | Load 0x2,-0x6 091d e402 | | Load 0x2,0x2 091e 8049 | I | Call 0x0,0x49 091f e403 | | Load 0x2,0x3 0920 017d | } | Execute Record,Structure_Write 0921 e5fb | | Load 0x2,-0x5 0922 804a | J | Call 0x0,0x4a 0923 a404 | | Store_Unchecked 0x2,0x4 0924 e404 | | Load 0x2,0x4 0925 e5f9 | | Load 0x2,-0x7 0926 804b | K | Call 0x0,0x4b 0927 c404 | | Store 0x2,0x4 0928 e03f | ? | Load 0x0,0x3f 0929 e404 | | Load 0x2,0x4 092a 804c | L | Call 0x0,0x4c 092b c405 | | Store 0x2,0x5 092c 00cf | | Action Mark_Auxiliary 092d 7876 |xv | Jump 0x9a4 092e e5fd | | Load 0x2,-0x3 092f a419 | | Store_Unchecked 0x2,0x19 0930 e405 | | Load 0x2,0x5 0931 804d | M | Call 0x0,0x4d 0932 a40b | | Store_Unchecked 0x2,0xb 0933 e40b | | Load 0x2,0xb 0934 e404 | | Load 0x2,0x4 0935 804e | N | Call 0x0,0x4e 0936 a406 | | Store_Unchecked 0x2,0x6 0937 e40e | | Load 0x2,0xe 0938 e411 | | Load 0x2,0x11 0939 4803 |H | Short_Literal 0x3 093a 841e | | Call 0x2,0x1e 093b 00d2 | | Pop_Control Pop_Count_2 093c e041 | A | Load 0x0,0x41 093d e406 | | Load 0x2,0x6 093e 804f | O | Call 0x0,0x4f 093f c407 | | Store 0x2,0x7 0940 00cf | | Action Mark_Auxiliary 0941 7856 |xV | Jump 0x998 0942 e407 | | Load 0x2,0x7 0943 8050 | P | Call 0x0,0x50 0944 a40c | | Store_Unchecked 0x2,0xc 0945 e414 | | Load 0x2,0x14 0946 680b |h | Jump_Zero 0x952 0947 e40b | | Load 0x2,0xb 0948 8016 | | Call 0x0,0x16 0949 0092 1847 | G| Action Push_String_Extended,0x1847 ; "." 094b 01cc | | Execute Vector,Catenate 094c e40c | | Load 0x2,0xc 094d 8016 | | Call 0x0,0x16 094e 01cc | | Execute Vector,Catenate 094f e403 | | Load 0x2,0x3 0950 8051 | Q | Call 0x0,0x51 0951 6842 |hB | Jump_Zero 0x994 0952 e40c | | Load 0x2,0xc 0953 e406 | | Load 0x2,0x6 0954 8052 | R | Call 0x0,0x52 0955 a408 | | Store_Unchecked 0x2,0x8 0956 e40f | | Load 0x2,0xf 0957 e412 | | Load 0x2,0x12 0958 4804 |H | Short_Literal 0x4 0959 841e | | Call 0x2,0x1e 095a 00d2 | | Pop_Control Pop_Count_2 095b e043 | C | Load 0x0,0x43 095c e408 | | Load 0x2,0x8 095d 8053 | S | Call 0x0,0x53 095e c409 | | Store 0x2,0x9 095f 00cf | | Action Mark_Auxiliary 0960 782b |x+ | Jump 0x98c 0961 e409 | | Load 0x2,0x9 0962 8054 | T | Call 0x0,0x54 0963 a40d | | Store_Unchecked 0x2,0xd 0964 e40d | | Load 0x2,0xd 0965 e408 | | Load 0x2,0x8 0966 8055 | U | Call 0x0,0x55 0967 e40a | | Load 0x2,0xa 0968 017d | } | Execute Record,Structure_Write 0969 e410 | | Load 0x2,0x10 096a e413 | | Load 0x2,0x13 096b 4805 |H | Short_Literal 0x5 096c 841e | | Call 0x2,0x1e 096d 00d2 | | Pop_Control Pop_Count_2 096e e5fd | | Load 0x2,-0x3 096f 0f00 | | Execute_Immediate Equal,0x0 0970 e5fc | | Load 0x2,-0x4 0971 0279 | y | Execute Discrete,And 0972 6802 |h | Jump_Zero 0x975 0973 e40a | | Load 0x2,0xa 0974 8420 | | Call 0x2,0x20 0975 e419 | | Load 0x2,0x19 0976 680b |h | Jump_Zero 0x982 0977 e416 | | Load 0x2,0x16 0978 7007 |p | Jump_Nonzero 0x980 0979 e40a | | Load 0x2,0xa 097a 8420 | | Call 0x2,0x20 097b e40a | | Load 0x2,0xa 097c 841c | | Call 0x2,0x1c 097d 4801 |H | Short_Literal 0x1 097e a415 | | Store_Unchecked 0x2,0x15 097f 7804 |x | Jump 0x984 0980 8421 | ! | Call 0x2,0x21 0981 7802 |x | Jump 0x984 0982 e40a | | Load 0x2,0xa 0983 841c | | Call 0x2,0x1c 0984 e413 | | Load 0x2,0x13 0985 e410 | | Load 0x2,0x10 0986 841f | | Call 0x2,0x1f 0987 00d1 | | Pop_Control Pop_Count_1 0988 e409 | | Load 0x2,0x9 0989 8056 | V | Call 0x0,0x56 098a c409 | | Store 0x2,0x9 098b 00c9 | | Action Pop_Auxiliary_Loop 098c e409 | | Load 0x2,0x9 098d 8057 | W | Call 0x0,0x57 098e 6fd2 |o | Jump_Zero 0x961 098f 00ce | | Action Pop_Auxiliary 0990 e412 | | Load 0x2,0x12 0991 e40f | | Load 0x2,0xf 0992 841f | | Call 0x2,0x1f 0993 00d1 | | Pop_Control Pop_Count_1 0994 e407 | | Load 0x2,0x7 0995 8058 | X | Call 0x0,0x58 0996 c407 | | Store 0x2,0x7 0997 00c9 | | Action Pop_Auxiliary_Loop 0998 e407 | | Load 0x2,0x7 0999 8059 | Y | Call 0x0,0x59 099a 6fa7 |o | Jump_Zero 0x942 099b 00ce | | Action Pop_Auxiliary 099c e411 | | Load 0x2,0x11 099d e40e | | Load 0x2,0xe 099e 841f | | Call 0x2,0x1f 099f 00d1 | | Pop_Control Pop_Count_1 09a0 e405 | | Load 0x2,0x5 09a1 805a | Z | Call 0x0,0x5a 09a2 c405 | | Store 0x2,0x5 09a3 00c9 | | Action Pop_Auxiliary_Loop 09a4 e405 | | Load 0x2,0x5 09a5 805b | [ | Call 0x0,0x5b 09a6 6f87 |o | Jump_Zero 0x92e 09a7 4507 |E | Exit_Suprogram New_Top_Offset 0x7 09a8 ; -------------------------------------------------------------------------------------- 09a8 ; SUBPROGRAM 09a8 ; -------------------------------------------------------------------------------------- 09a8 09b9 | | .CONST 0x09b9 ; Address of begin 09a9 0004 | | .CONST 0x0004 ; Address of exception handler 09aa 0003 | | .CONST 0x0003 ; Number of locals 09ab INIT_09a8: 09ab e00b | | Load 0x0,0xb 09ac e248 | H | Load 0x1,0x48 09ad 0098 | | Execute Package,Field_Read_Dynamic 09ae 0322 | " | Declare_Variable Record 09af e5fd | | Load 0x2,-0x3 09b0 e5ff | | Load 0x2,-0x1 09b1 0219 | | Execute Heap_Access,All_Read 09b2 e035 | 5 | Load 0x0,0x35 09b3 e248 | H | Load 0x1,0x48 09b4 0096 | | Execute Package,Entry 09b5 00d9 | | Load_Top At_Offset_1 09b6 017d | } | Execute Record,Structure_Write 09b7 029f 1213 | | Declare_Subprogram INIT_1210,For_Call 09b9 BODY_09a8: 09b9 00cf | | Action Mark_Auxiliary 09ba 7807 |x | Jump 0x9c2 09bb 8403 | | Call 0x2,0x3 09bc 00da | | Load_Top At_Offset_2 09bd e039 | 9 | Load 0x0,0x39 09be e248 | H | Load 0x1,0x48 09bf 0096 | | Execute Package,Entry 09c0 00d1 | | Pop_Control Pop_Count_1 09c1 00c9 | | Action Pop_Auxiliary_Loop 09c2 00da | | Load_Top At_Offset_2 09c3 e036 | 6 | Load 0x0,0x36 09c4 e248 | H | Load 0x1,0x48 09c5 0096 | | Execute Package,Entry 09c6 6ff4 |o | Jump_Zero 0x9bb 09c7 4504 |E | Exit_Suprogram New_Top_Offset 0x4 09c8 ; -------------------------------------------------------------------------------------- 09c8 ; SUBPROGRAM 09c8 ; -------------------------------------------------------------------------------------- 09c8 09cf | | .CONST 0x09cf ; Address of begin 09c9 0004 | | .CONST 0x0004 ; Address of exception handler 09ca 0002 | | .CONST 0x0002 ; Number of locals 09cb INIT_09c8: 09cb e00a | | Load 0x0,0xa 09cc e248 | H | Load 0x1,0x48 09cd 0098 | | Execute Package,Field_Read_Dynamic 09ce 0322 | " | Declare_Variable Record 09cf BODY_09c8: 09cf e239 | 9 | Load 0x1,0x39 09d0 0322 | " | Declare_Variable Record 09d1 e5fd | | Load 0x2,-0x3 09d2 00d9 | | Load_Top At_Offset_1 09d3 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 09d4 4801 |H | Short_Literal 0x1 09d5 00d9 | | Load_Top At_Offset_1 09d6 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 09d7 4801 |H | Short_Literal 0x1 09d8 00d9 | | Load_Top At_Offset_1 09d9 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 09da e5ff | | Load 0x2,-0x1 09db 00d9 | | Load_Top At_Offset_1 09dc 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 09dd 4800 |H | Short_Literal 0x0 09de 00d9 | | Load_Top At_Offset_1 09df 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 09e0 e006 | | Load 0x0,0x6 09e1 00d9 | | Load_Top At_Offset_1 09e2 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 09e3 4801 |H | Short_Literal 0x1 09e4 00d9 | | Load_Top At_Offset_1 09e5 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 09e6 8018 | | Call 0x0,0x18 09e7 00d9 | | Load_Top At_Offset_1 09e8 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 09e9 e5fe | | Load 0x2,-0x2 09ea 00d9 | | Load_Top At_Offset_1 09eb 3808 |8 | Execute Record,Field_Write,Field_Number 0x8 09ec e5fc | | Load 0x2,-0x4 09ed 0219 | | Execute Heap_Access,All_Read 09ee e031 | 1 | Load 0x0,0x31 09ef e248 | H | Load 0x1,0x48 09f0 0096 | | Execute Package,Entry 09f1 00d8 | | Load_Top At_Offset_0 09f2 4801 |H | Short_Literal 0x1 09f3 e5fc | | Load 0x2,-0x4 09f4 0219 | | Execute Heap_Access,All_Read 09f5 e05c | \ | Load 0x0,0x5c 09f6 e248 | H | Load 0x1,0x48 09f7 0096 | | Execute Package,Entry 09f8 00d1 | | Pop_Control Pop_Count_1 09f9 4802 |H | Short_Literal 0x2 09fa e23e | > | Load 0x1,0x3e 09fb 1c08 | | Execute_Immediate Run_Utility,0x8 09fc e230 | 0 | Load 0x1,0x30 09fd 00d9 | | Load_Top At_Offset_1 09fe 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3 09ff 4800 |H | Short_Literal 0x0 0a00 00d9 | | Load_Top At_Offset_1 0a01 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0a02 00d9 | | Load_Top At_Offset_1 0a03 e05d | ] | Load 0x0,0x5d 0a04 e248 | H | Load 0x1,0x48 0a05 0096 | | Execute Package,Entry 0a06 4801 |H | Short_Literal 0x1 0a07 e24b | K | Load 0x1,0x4b 0a08 00da | | Load_Top At_Offset_2 0a09 e05e | ^ | Load 0x0,0x5e 0a0a e248 | H | Load 0x1,0x48 0a0b 0096 | | Execute Package,Entry 0a0c 4802 |H | Short_Literal 0x2 0a0d e24d | M | Load 0x1,0x4d 0a0e 00da | | Load_Top At_Offset_2 0a0f e05e | ^ | Load 0x0,0x5e 0a10 e248 | H | Load 0x1,0x48 0a11 0096 | | Execute Package,Entry 0a12 4803 |H | Short_Literal 0x3 0a13 e24c | L | Load 0x1,0x4c 0a14 00da | | Load_Top At_Offset_2 0a15 e05e | ^ | Load 0x0,0x5e 0a16 e248 | H | Load 0x1,0x48 0a17 0096 | | Execute Package,Entry 0a18 00d8 | | Load_Top At_Offset_0 0a19 4801 |H | Short_Literal 0x1 0a1a e5fc | | Load 0x2,-0x4 0a1b 0219 | | Execute Heap_Access,All_Read 0a1c e05c | \ | Load 0x0,0x5c 0a1d e248 | H | Load 0x1,0x48 0a1e 0096 | | Execute Package,Entry 0a1f 00d1 | | Pop_Control Pop_Count_1 0a20 4802 |H | Short_Literal 0x2 0a21 e23e | > | Load 0x1,0x3e 0a22 1c08 | | Execute_Immediate Run_Utility,0x8 0a23 e230 | 0 | Load 0x1,0x30 0a24 00d9 | | Load_Top At_Offset_1 0a25 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3 0a26 4800 |H | Short_Literal 0x0 0a27 00d9 | | Load_Top At_Offset_1 0a28 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0a29 00d9 | | Load_Top At_Offset_1 0a2a e05d | ] | Load 0x0,0x5d 0a2b e248 | H | Load 0x1,0x48 0a2c 0096 | | Execute Package,Entry 0a2d 4801 |H | Short_Literal 0x1 0a2e 4801 |H | Short_Literal 0x1 0a2f 4801 |H | Short_Literal 0x1 0a30 e249 | I | Load 0x1,0x49 0a31 01d7 | | Execute Vector,Field_Read 0a32 e24e | N | Load 0x1,0x4e 0a33 01cf | | Execute Vector,Slice_Read 0a34 00da | | Load_Top At_Offset_2 0a35 e05e | ^ | Load 0x0,0x5e 0a36 e248 | H | Load 0x1,0x48 0a37 0096 | | Execute Package,Entry 0a38 4802 |H | Short_Literal 0x2 0a39 4801 |H | Short_Literal 0x1 0a3a 4802 |H | Short_Literal 0x2 0a3b e249 | I | Load 0x1,0x49 0a3c 01d7 | | Execute Vector,Field_Read 0a3d e24e | N | Load 0x1,0x4e 0a3e 01cf | | Execute Vector,Slice_Read 0a3f 00da | | Load_Top At_Offset_2 0a40 e05e | ^ | Load 0x0,0x5e 0a41 e248 | H | Load 0x1,0x48 0a42 0096 | | Execute Package,Entry 0a43 4803 |H | Short_Literal 0x3 0a44 4801 |H | Short_Literal 0x1 0a45 4803 |H | Short_Literal 0x3 0a46 e249 | I | Load 0x1,0x49 0a47 01d7 | | Execute Vector,Field_Read 0a48 e24e | N | Load 0x1,0x4e 0a49 01cf | | Execute Vector,Slice_Read 0a4a 00da | | Load_Top At_Offset_2 0a4b e05e | ^ | Load 0x0,0x5e 0a4c e248 | H | Load 0x1,0x48 0a4d 0096 | | Execute Package,Entry 0a4e e249 | I | Load 0x1,0x49 0a4f e5fc | | Load 0x2,-0x4 0a50 0219 | | Execute Heap_Access,All_Read 0a51 e05f | _ | Load 0x0,0x5f 0a52 e248 | H | Load 0x1,0x48 0a53 0096 | | Execute Package,Entry 0a54 00d8 | | Load_Top At_Offset_0 0a55 e5fb | | Load 0x2,-0x5 0a56 017d | } | Execute Record,Structure_Write 0a57 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0a58 ; -------------------------------------------------------------------------------------- 0a58 ; SUBPROGRAM 0a58 ; -------------------------------------------------------------------------------------- 0a58 0a6d | m | .CONST 0x0a6d ; Address of begin 0a59 0004 | | .CONST 0x0004 ; Address of exception handler 0a5a 0004 | | .CONST 0x0004 ; Number of locals 0a5b INIT_0a58: 0a5b e00b | | Load 0x0,0xb 0a5c e248 | H | Load 0x1,0x48 0a5d 0098 | | Execute Package,Field_Read_Dynamic 0a5e 0322 | " | Declare_Variable Record 0a5f 4800 |H | Short_Literal 0x0 0a60 e5ff | | Load 0x2,-0x1 0a61 0219 | | Execute Heap_Access,All_Read 0a62 e035 | 5 | Load 0x0,0x35 0a63 e248 | H | Load 0x1,0x48 0a64 0096 | | Execute Package,Entry 0a65 00d9 | | Load_Top At_Offset_1 0a66 017d | } | Execute Record,Structure_Write 0a67 e00a | | Load 0x0,0xa 0a68 e248 | H | Load 0x1,0x48 0a69 0098 | | Execute Package,Field_Read_Dynamic 0a6a 0322 | " | Declare_Variable Record 0a6b 029f 1233 | 3| Declare_Subprogram INIT_1230,For_Call 0a6d BODY_0a58: 0a6d 00cf | | Action Mark_Auxiliary 0a6e 7817 |x | Jump 0xa86 0a6f 00db | | Load_Top At_Offset_3 0a70 e038 | 8 | Load 0x0,0x38 0a71 e248 | H | Load 0x1,0x48 0a72 0096 | | Execute Package,Entry 0a73 00db | | Load_Top At_Offset_3 0a74 017d | } | Execute Record,Structure_Write 0a75 00da | | Load_Top At_Offset_2 0a76 e02d | - | Load 0x0,0x2d 0a77 e248 | H | Load 0x1,0x48 0a78 0096 | | Execute Package,Entry 0a79 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0a7a 4800 |H | Short_Literal 0x0 0a7b 4802 |H | Short_Literal 0x2 0a7c 0262 | b | Execute Discrete,In_Range 0a7d 7002 |p | Jump_Nonzero 0xa80 0a7e 7800 |x | Jump 0xa7f 0a7f 8404 | | Call 0x2,0x4 0a80 00db | | Load_Top At_Offset_3 0a81 e039 | 9 | Load 0x0,0x39 0a82 e248 | H | Load 0x1,0x48 0a83 0096 | | Execute Package,Entry 0a84 00d1 | | Pop_Control Pop_Count_1 0a85 00c9 | | Action Pop_Auxiliary_Loop 0a86 00db | | Load_Top At_Offset_3 0a87 e036 | 6 | Load 0x0,0x36 0a88 e248 | H | Load 0x1,0x48 0a89 0096 | | Execute Package,Entry 0a8a 6fe4 |o | Jump_Zero 0xa6f 0a8b 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0a8c 0000 0000 | | .BLANK 0000[0x4] 0a90 ; -------------------------------------------------------------------------------------- 0a90 ; SUBPROGRAM 0a90 ; -------------------------------------------------------------------------------------- 0a90 0a9c | | .CONST 0x0a9c ; Address of begin 0a91 0004 | | .CONST 0x0004 ; Address of exception handler 0a92 0002 | | .CONST 0x0002 ; Number of locals 0a93 INIT_0a90: 0a93 e239 | 9 | Load 0x1,0x39 0a94 0322 | " | Declare_Variable Record 0a95 e5fe | | Load 0x2,-0x2 0a96 0219 | | Execute Heap_Access,All_Read 0a97 e028 | ( | Load 0x0,0x28 0a98 e248 | H | Load 0x1,0x48 0a99 0096 | | Execute Package,Entry 0a9a 00d9 | | Load_Top At_Offset_1 0a9b 017d | } | Execute Record,Structure_Write 0a9c BODY_0a90: 0a9c 00db | | Load_Top At_Offset_3 0a9d 00d9 | | Load_Top At_Offset_1 0a9e 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0a9f 00d8 | | Load_Top At_Offset_0 0aa0 e5fe | | Load 0x2,-0x2 0aa1 0219 | | Execute Heap_Access,All_Read 0aa2 e031 | 1 | Load 0x0,0x31 0aa3 e248 | H | Load 0x1,0x48 0aa4 0096 | | Execute Package,Entry 0aa5 4801 |H | Short_Literal 0x1 0aa6 4805 |H | Short_Literal 0x5 0aa7 e5fe | | Load 0x2,-0x2 0aa8 8251 | Q | Call 0x1,0x51 0aa9 00db | | Load_Top At_Offset_3 0aaa 0f01 | | Execute_Immediate Equal,0x1 0aab 6803 |h | Jump_Zero 0xaaf 0aac 00db | | Load_Top At_Offset_3 0aad e5fe | | Load 0x2,-0x2 0aae 8253 | S | Call 0x1,0x53 0aaf 4801 |H | Short_Literal 0x1 0ab0 e5fe | | Load 0x2,-0x2 0ab1 8221 | ! | Call 0x1,0x21 0ab2 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0ab3 0000 0000 | | .BLANK 0000[0x5] 0ab8 ; -------------------------------------------------------------------------------------- 0ab8 ; SUBPROGRAM 0ab8 ; -------------------------------------------------------------------------------------- 0ab8 0ac4 | | .CONST 0x0ac4 ; Address of begin 0ab9 0004 | | .CONST 0x0004 ; Address of exception handler 0aba 0002 | | .CONST 0x0002 ; Number of locals 0abb INIT_0ab8: 0abb e239 | 9 | Load 0x1,0x39 0abc 0322 | " | Declare_Variable Record 0abd 00db | | Load_Top At_Offset_3 0abe 0219 | | Execute Heap_Access,All_Read 0abf e028 | ( | Load 0x0,0x28 0ac0 e248 | H | Load 0x1,0x48 0ac1 0096 | | Execute Package,Entry 0ac2 00d9 | | Load_Top At_Offset_1 0ac3 017d | } | Execute Record,Structure_Write 0ac4 BODY_0ab8: 0ac4 e5fe | | Load 0x2,-0x2 0ac5 00d9 | | Load_Top At_Offset_1 0ac6 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 0ac7 00d8 | | Load_Top At_Offset_0 0ac8 e5ff | | Load 0x2,-0x1 0ac9 0219 | | Execute Heap_Access,All_Read 0aca e031 | 1 | Load 0x0,0x31 0acb e248 | H | Load 0x1,0x48 0acc 0096 | | Execute Package,Entry 0acd 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0ace 0000 0000 | | .XXX[0x2] 0ad0 ; -------------------------------------------------------------------------------------- 0ad0 ; SUBPROGRAM 0ad0 ; -------------------------------------------------------------------------------------- 0ad0 0ad5 | | .CONST 0x0ad5 ; Address of begin 0ad1 0004 | | .CONST 0x0004 ; Address of exception handler 0ad2 0002 | | .CONST 0x0002 ; Number of locals 0ad3 INIT_0ad0: 0ad3 e006 | | Load 0x0,0x6 0ad4 0007 | | Action Break_Optional 0ad5 BODY_0ad0: 0ad5 e006 | | Load 0x0,0x6 0ad6 e5fe | | Load 0x2,-0x2 0ad7 039c | | Declare_Variable Heap_Access,By_Allocation 0ad8 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0ad9 00db | | Load_Top At_Offset_3 0ada 00d9 | | Load_Top At_Offset_1 0adb 0217 | | Execute Heap_Access,All_Reference 0adc 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0add e5fe | | Load 0x2,-0x2 0ade 804a | J | Call 0x0,0x4a 0adf 00d9 | | Load_Top At_Offset_1 0ae0 0217 | | Execute Heap_Access,All_Reference 0ae1 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0ae2 00d8 | | Load_Top At_Offset_0 0ae3 0219 | | Execute Heap_Access,All_Read 0ae4 00d8 | | Load_Top At_Offset_0 0ae5 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0ae6 e5fc | | Load 0x2,-0x4 0ae7 804b | K | Call 0x0,0x4b 0ae8 00d9 | | Load_Top At_Offset_1 0ae9 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0aea 00d1 | | Pop_Control Pop_Count_1 0aeb e5fe | | Load 0x2,-0x2 0aec 8046 | F | Call 0x0,0x46 0aed 00d9 | | Load_Top At_Offset_1 0aee 0217 | | Execute Heap_Access,All_Reference 0aef 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0af0 00d8 | | Load_Top At_Offset_0 0af1 0219 | | Execute Heap_Access,All_Read 0af2 00d8 | | Load_Top At_Offset_0 0af3 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0af4 e5fc | | Load 0x2,-0x4 0af5 8047 | G | Call 0x0,0x47 0af6 00d9 | | Load_Top At_Offset_1 0af7 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0af8 00d1 | | Pop_Control Pop_Count_1 0af9 e5fc | | Load 0x2,-0x4 0afa 4800 |H | Short_Literal 0x0 0afb 8060 | ` | Call 0x0,0x60 0afc c5fc | | Store 0x2,-0x4 0afd 00d8 | | Load_Top At_Offset_0 0afe e5fd | | Load 0x2,-0x3 0aff 8255 | U | Call 0x1,0x55 0b00 c5fd | | Store 0x2,-0x3 0b01 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0b02 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0b03 0000 0000 | | .BLANK 0000[0x5] 0b08 ; -------------------------------------------------------------------------------------- 0b08 ; SUBPROGRAM 0b08 ; -------------------------------------------------------------------------------------- 0b08 0b14 | | .CONST 0x0b14 ; Address of begin 0b09 0004 | | .CONST 0x0004 ; Address of exception handler 0b0a 0002 | | .CONST 0x0002 ; Number of locals 0b0b INIT_0b08: 0b0b e239 | 9 | Load 0x1,0x39 0b0c 0322 | " | Declare_Variable Record 0b0d e5fe | | Load 0x2,-0x2 0b0e 0219 | | Execute Heap_Access,All_Read 0b0f e028 | ( | Load 0x0,0x28 0b10 e248 | H | Load 0x1,0x48 0b11 0096 | | Execute Package,Entry 0b12 00d9 | | Load_Top At_Offset_1 0b13 017d | } | Execute Record,Structure_Write 0b14 BODY_0b08: 0b14 00db | | Load_Top At_Offset_3 0b15 00d9 | | Load_Top At_Offset_1 0b16 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 0b17 00d8 | | Load_Top At_Offset_0 0b18 e5fe | | Load 0x2,-0x2 0b19 0219 | | Execute Heap_Access,All_Read 0b1a e031 | 1 | Load 0x0,0x31 0b1b e248 | H | Load 0x1,0x48 0b1c 0096 | | Execute Package,Entry 0b1d 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0b1e 0000 0000 | | .XXX[0x2] 0b20 ; -------------------------------------------------------------------------------------- 0b20 ; SUBPROGRAM 0b20 ; -------------------------------------------------------------------------------------- 0b20 0b2c | , | .CONST 0x0b2c ; Address of begin 0b21 0004 | | .CONST 0x0004 ; Address of exception handler 0b22 0002 | | .CONST 0x0002 ; Number of locals 0b23 INIT_0b20: 0b23 e239 | 9 | Load 0x1,0x39 0b24 0322 | " | Declare_Variable Record 0b25 e5fe | | Load 0x2,-0x2 0b26 0219 | | Execute Heap_Access,All_Read 0b27 e028 | ( | Load 0x0,0x28 0b28 e248 | H | Load 0x1,0x48 0b29 0096 | | Execute Package,Entry 0b2a 00d9 | | Load_Top At_Offset_1 0b2b 017d | } | Execute Record,Structure_Write 0b2c BODY_0b20: 0b2c 00db | | Load_Top At_Offset_3 0b2d 00d9 | | Load_Top At_Offset_1 0b2e 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 0b2f 00d8 | | Load_Top At_Offset_0 0b30 e5fe | | Load 0x2,-0x2 0b31 0219 | | Execute Heap_Access,All_Read 0b32 e031 | 1 | Load 0x0,0x31 0b33 e248 | H | Load 0x1,0x48 0b34 0096 | | Execute Package,Entry 0b35 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0b36 0000 0000 | | .XXX[0x2] 0b38 ; -------------------------------------------------------------------------------------- 0b38 ; SUBPROGRAM 0b38 ; -------------------------------------------------------------------------------------- 0b38 0b3b | ; | .CONST 0x0b3b ; Address of begin 0b39 0004 | | .CONST 0x0004 ; Address of exception handler 0b3a 0001 | | .CONST 0x0001 ; Number of locals 0b3b BODY_0b38: 0b3b INIT_0b38: 0b3b 00da | | Load_Top At_Offset_2 0b3c 8061 | a | Call 0x0,0x61 0b3d 7003 |p | Jump_Nonzero 0xb41 0b3e 4800 |H | Short_Literal 0x0 0b3f a5fe | | Store_Unchecked 0x2,-0x2 0b40 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0b41 4801 |H | Short_Literal 0x1 0b42 a5fe | | Store_Unchecked 0x2,-0x2 0b43 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0b44 0000 0000 | | .BLANK 0000[0x4] 0b48 ; -------------------------------------------------------------------------------------- 0b48 ; SUBPROGRAM 0b48 ; -------------------------------------------------------------------------------------- 0b48 0b4b | K | .CONST 0x0b4b ; Address of begin 0b49 0004 | | .CONST 0x0004 ; Address of exception handler 0b4a 0001 | | .CONST 0x0001 ; Number of locals 0b4b BODY_0b48: 0b4b INIT_0b48: 0b4b 00db | | Load_Top At_Offset_3 0b4c 00db | | Load_Top At_Offset_3 0b4d 802a | * | Call 0x0,0x2a 0b4e e062 | b | Load 0x0,0x62 0b4f 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0b50 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0b51 8017 | | Call 0x0,0x17 0b52 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0b53 0000 0000 | | .BLANK 0000[0x5] 0b58 ; -------------------------------------------------------------------------------------- 0b58 ; SUBPROGRAM 0b58 ; -------------------------------------------------------------------------------------- 0b58 0b98 | | .CONST 0x0b98 ; Address of begin 0b59 0004 | | .CONST 0x0004 ; Address of exception handler 0b5a 0018 | | .CONST 0x0018 ; Number of locals 0b5b INIT_0b58: 0b5b 00f1 | | Load_Encached Diana_Temp_Seq 0b5c e239 | 9 | Load 0x1,0x39 0b5d 0322 | " | Declare_Variable Record 0b5e e5ff | | Load 0x2,-0x1 0b5f 0219 | | Execute Heap_Access,All_Read 0b60 e028 | ( | Load 0x0,0x28 0b61 e248 | H | Load 0x1,0x48 0b62 0096 | | Execute Package,Entry 0b63 00d9 | | Load_Top At_Offset_1 0b64 017d | } | Execute Record,Structure_Write 0b65 00d8 | | Load_Top At_Offset_0 0b66 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 0b67 0007 | | Action Break_Optional 0b68 e00d | | Load 0x0,0xd 0b69 039d | | Declare_Variable Heap_Access,Duplicate 0b6a 039d | | Declare_Variable Heap_Access,Duplicate 0b6b e403 | | Load 0x2,0x3 0b6c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0b6d 0007 | | Action Break_Optional 0b6e e005 | | Load 0x0,0x5 0b6f e403 | | Load 0x2,0x3 0b70 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 0b71 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0b72 8018 | | Call 0x0,0x18 0b73 00d9 | | Load_Top At_Offset_1 0b74 8045 | E | Call 0x0,0x45 0b75 0f00 | | Execute_Immediate Equal,0x0 0b76 0007 | | Action Break_Optional 0b77 e03d | = | Load 0x0,0x3d 0b78 0322 | " | Declare_Variable Record 0b79 00d8 | | Load_Top At_Offset_0 0b7a 1c00 | | Execute_Immediate Run_Utility,0x0 0b7b e03c | < | Load 0x0,0x3c 0b7c 0007 | | Action Break_Optional 0b7d e040 | @ | Load 0x0,0x40 0b7e 0007 | | Action Break_Optional 0b7f e042 | B | Load 0x0,0x42 0b80 0007 | | Action Break_Optional 0b81 e044 | D | Load 0x0,0x44 0b82 0322 | " | Declare_Variable Record 0b83 00d8 | | Load_Top At_Offset_0 0b84 1c00 | | Execute_Immediate Run_Utility,0x0 0b85 e005 | | Load 0x0,0x5 0b86 039d | | Declare_Variable Heap_Access,Duplicate 0b87 e403 | | Load 0x2,0x3 0b88 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0b89 0f00 | | Execute_Immediate Equal,0x0 0b8a 00e1 | | Load_Encached Boolean_Cache 0b8b 03f1 | | Declare_Variable Discrete,With_Value 0b8c 029f 12c3 | | Declare_Subprogram INIT_12c0,For_Call 0b8e 029f 12eb | | Declare_Subprogram INIT_12e8,For_Call 0b90 029f 131b | | Declare_Subprogram INIT_1318,For_Call 0b92 029f 133b | ;| Declare_Subprogram INIT_1338,For_Call 0b94 029f 136b | k| Declare_Subprogram INIT_1368,For_Call 0b96 029f 13c3 | | Declare_Subprogram INIT_13c0,For_Call 0b98 BODY_0b58: 0b98 e5fd | | Load 0x2,-0x3 0b99 4804 |H | Short_Literal 0x4 0b9a 4806 |H | Short_Literal 0x6 0b9b 0262 | b | Execute Discrete,In_Range 0b9c 7003 |p | Jump_Nonzero 0xba0 0b9d 4801 |H | Short_Literal 0x1 0b9e a5fc | | Store_Unchecked 0x2,-0x4 0b9f 781c |x | Jump 0xbbc 0ba0 e5fc | | Load 0x2,-0x4 0ba1 6802 |h | Jump_Zero 0xba4 0ba2 8417 | | Call 0x2,0x17 0ba3 7818 |x | Jump 0xbbc 0ba4 4801 |H | Short_Literal 0x1 0ba5 a5fc | | Store_Unchecked 0x2,-0x4 0ba6 e408 | | Load 0x2,0x8 0ba7 801d | | Call 0x0,0x1d 0ba8 a405 | | Store_Unchecked 0x2,0x5 0ba9 e408 | | Load 0x2,0x8 0baa 801d | | Call 0x0,0x1d 0bab a406 | | Store_Unchecked 0x2,0x6 0bac e408 | | Load 0x2,0x8 0bad 801d | | Call 0x0,0x1d 0bae a407 | | Store_Unchecked 0x2,0x7 0baf 00cf | | Action Mark_Auxiliary 0bb0 7806 |x | Jump 0xbb7 0bb1 8418 | | Call 0x2,0x18 0bb2 e404 | | Load 0x2,0x4 0bb3 0217 | | Execute Heap_Access,All_Reference 0bb4 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0bb5 a404 | | Store_Unchecked 0x2,0x4 0bb6 00c9 | | Action Pop_Auxiliary_Loop 0bb7 e404 | | Load 0x2,0x4 0bb8 77f8 |w | Jump_Nonzero 0xbb1 0bb9 00ce | | Action Pop_Auxiliary 0bba 8415 | | Call 0x2,0x15 0bbb 8416 | | Call 0x2,0x16 0bbc e402 | | Load 0x2,0x2 0bbd a5fb | | Store_Unchecked 0x2,-0x5 0bbe 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0bbf 0000 | | .XXX[0x1] 0bc0 ; -------------------------------------------------------------------------------------- 0bc0 ; SUBPROGRAM 0bc0 ; -------------------------------------------------------------------------------------- 0bc0 0bcc | | .CONST 0x0bcc ; Address of begin 0bc1 0004 | | .CONST 0x0004 ; Address of exception handler 0bc2 0002 | | .CONST 0x0002 ; Number of locals 0bc3 INIT_0bc0: 0bc3 e00a | | Load 0x0,0xa 0bc4 e248 | H | Load 0x1,0x48 0bc5 0098 | | Execute Package,Field_Read_Dynamic 0bc6 0322 | " | Declare_Variable Record 0bc7 00db | | Load_Top At_Offset_3 0bc8 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3 0bc9 0217 | | Execute Heap_Access,All_Reference 0bca 00d9 | | Load_Top At_Offset_1 0bcb 017d | } | Execute Record,Structure_Write 0bcc BODY_0bc0: 0bcc 00d8 | | Load_Top At_Offset_0 0bcd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0bce 0000 0000 | | .XXX[0x2] 0bd0 ; -------------------------------------------------------------------------------------- 0bd0 ; SUBPROGRAM 0bd0 ; -------------------------------------------------------------------------------------- 0bd0 0bdc | | .CONST 0x0bdc ; Address of begin 0bd1 0004 | | .CONST 0x0004 ; Address of exception handler 0bd2 0002 | | .CONST 0x0002 ; Number of locals 0bd3 INIT_0bd0: 0bd3 e00a | | Load 0x0,0xa 0bd4 e248 | H | Load 0x1,0x48 0bd5 0098 | | Execute Package,Field_Read_Dynamic 0bd6 0322 | " | Declare_Variable Record 0bd7 00db | | Load_Top At_Offset_3 0bd8 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3 0bd9 0217 | | Execute Heap_Access,All_Reference 0bda 00d9 | | Load_Top At_Offset_1 0bdb 017d | } | Execute Record,Structure_Write 0bdc BODY_0bd0: 0bdc 00db | | Load_Top At_Offset_3 0bdd 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0bde 4606 |F | Jump_Case 0x7 0bdf 780e |x | Jump 0xbee ; case 0x0 0be0 780d |x | Jump 0xbee ; case 0x1 0be1 780c |x | Jump 0xbee ; case 0x2 0be2 780b |x | Jump 0xbee ; case 0x3 0be3 7808 |x | Jump 0xbec ; case 0x4 0be4 7801 |x | Jump 0xbe6 ; case 0x5 0be5 7800 |x | Jump 0xbe6 ; case 0x6 0be6 00d8 | | Load_Top At_Offset_0 0be7 e02d | - | Load 0x0,0x2d 0be8 e248 | H | Load 0x1,0x48 0be9 0096 | | Execute Package,Entry 0bea 825d | ] | Call 0x1,0x5d 0beb 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0bec 00d8 | | Load_Top At_Offset_0 0bed 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0bee 00d8 | | Load_Top At_Offset_0 0bef 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0bf0 ; -------------------------------------------------------------------------------------- 0bf0 ; SUBPROGRAM 0bf0 ; -------------------------------------------------------------------------------------- 0bf0 0bfb | | .CONST 0x0bfb ; Address of begin 0bf1 0004 | | .CONST 0x0004 ; Address of exception handler 0bf2 0002 | | .CONST 0x0002 ; Number of locals 0bf3 INIT_0bf0: 0bf3 e23e | > | Load 0x1,0x3e 0bf4 02ff | | Declare_Variable Variant_Record 0bf5 00db | | Load_Top At_Offset_3 0bf6 e02d | - | Load 0x0,0x2d 0bf7 e248 | H | Load 0x1,0x48 0bf8 0096 | | Execute Package,Entry 0bf9 00d9 | | Load_Top At_Offset_1 0bfa 016d | m | Execute Variant_Record,Structure_Write 0bfb BODY_0bf0: 0bfb 00d8 | | Load_Top At_Offset_0 0bfc 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0bfd 4606 |F | Jump_Case 0x7 0bfe 780d |x | Jump 0xc0c ; case 0x0 0bff 780c |x | Jump 0xc0c ; case 0x1 0c00 780b |x | Jump 0xc0c ; case 0x2 0c01 7808 |x | Jump 0xc0a ; case 0x3 0c02 7809 |x | Jump 0xc0c ; case 0x4 0c03 7801 |x | Jump 0xc05 ; case 0x5 0c04 7800 |x | Jump 0xc05 ; case 0x6 0c05 00d8 | | Load_Top At_Offset_0 0c06 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3 0c07 0217 | | Execute Heap_Access,All_Reference 0c08 825e | ^ | Call 0x1,0x5e 0c09 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0c0a 00db | | Load_Top At_Offset_3 0c0b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0c0c 00d8 | | Load_Top At_Offset_0 0c0d 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3 0c0e 0217 | | Execute Heap_Access,All_Reference 0c0f 0320 | | Declare_Variable Record,Duplicate 0c10 00cd | | Action Spare6_Action 0c11 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0c12 0000 0000 | | .BLANK 0000[0x6] 0c18 ; -------------------------------------------------------------------------------------- 0c18 ; SUBPROGRAM 0c18 ; -------------------------------------------------------------------------------------- 0c18 0c23 | # | .CONST 0x0c23 ; Address of begin 0c19 0004 | | .CONST 0x0004 ; Address of exception handler 0c1a 0002 | | .CONST 0x0002 ; Number of locals 0c1b INIT_0c18: 0c1b e00a | | Load 0x0,0xa 0c1c e248 | H | Load 0x1,0x48 0c1d 0098 | | Execute Package,Field_Read_Dynamic 0c1e 0322 | " | Declare_Variable Record 0c1f 00db | | Load_Top At_Offset_3 0c20 825e | ^ | Call 0x1,0x5e 0c21 00d9 | | Load_Top At_Offset_1 0c22 017d | } | Execute Record,Structure_Write 0c23 BODY_0c18: 0c23 00d8 | | Load_Top At_Offset_0 0c24 e02d | - | Load 0x0,0x2d 0c25 e248 | H | Load 0x1,0x48 0c26 0096 | | Execute Package,Entry 0c27 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0c28 4803 |H | Short_Literal 0x3 0c29 4806 |H | Short_Literal 0x6 0c2a 0262 | b | Execute Discrete,In_Range 0c2b 7002 |p | Jump_Nonzero 0xc2e 0c2c e5fe | | Load 0x2,-0x2 0c2d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0c2e 4801 |H | Short_Literal 0x1 0c2f 00d9 | | Load_Top At_Offset_1 0c30 e063 | c | Load 0x0,0x63 0c31 e248 | H | Load 0x1,0x48 0c32 0096 | | Execute Package,Entry 0c33 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3 0c34 8016 | | Call 0x0,0x16 0c35 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0c36 0000 0000 | | .XXX[0x2] 0c38 ; -------------------------------------------------------------------------------------- 0c38 ; SUBPROGRAM 0c38 ; -------------------------------------------------------------------------------------- 0c38 0c45 | E | .CONST 0x0c45 ; Address of begin 0c39 0004 | | .CONST 0x0004 ; Address of exception handler 0c3a 0003 | | .CONST 0x0003 ; Number of locals 0c3b INIT_0c38: 0c3b e00a | | Load 0x0,0xa 0c3c e248 | H | Load 0x1,0x48 0c3d 0098 | | Execute Package,Field_Read_Dynamic 0c3e 0322 | " | Declare_Variable Record 0c3f 00db | | Load_Top At_Offset_3 0c40 825e | ^ | Call 0x1,0x5e 0c41 00d9 | | Load_Top At_Offset_1 0c42 017d | } | Execute Record,Structure_Write 0c43 e005 | | Load 0x0,0x5 0c44 0007 | | Action Break_Optional 0c45 BODY_0c38: 0c45 00d9 | | Load_Top At_Offset_1 0c46 e02d | - | Load 0x0,0x2d 0c47 e248 | H | Load 0x1,0x48 0c48 0096 | | Execute Package,Entry 0c49 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0c4a 4803 |H | Short_Literal 0x3 0c4b 4806 |H | Short_Literal 0x6 0c4c 0262 | b | Execute Discrete,In_Range 0c4d 7002 |p | Jump_Nonzero 0xc50 0c4e 00d8 | | Load_Top At_Offset_0 0c4f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0c50 4801 |H | Short_Literal 0x1 0c51 00da | | Load_Top At_Offset_2 0c52 e063 | c | Load 0x0,0x63 0c53 e248 | H | Load 0x1,0x48 0c54 0096 | | Execute Package,Entry 0c55 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3 0c56 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0c57 0000 | | .XXX[0x1] 0c58 ; -------------------------------------------------------------------------------------- 0c58 ; SUBPROGRAM 0c58 ; -------------------------------------------------------------------------------------- 0c58 0c63 | c | .CONST 0x0c63 ; Address of begin 0c59 0004 | | .CONST 0x0004 ; Address of exception handler 0c5a 0002 | | .CONST 0x0002 ; Number of locals 0c5b INIT_0c58: 0c5b e23e | > | Load 0x1,0x3e 0c5c 02ff | | Declare_Variable Variant_Record 0c5d 00db | | Load_Top At_Offset_3 0c5e e02d | - | Load 0x0,0x2d 0c5f e248 | H | Load 0x1,0x48 0c60 0096 | | Execute Package,Entry 0c61 00d9 | | Load_Top At_Offset_1 0c62 016d | m | Execute Variant_Record,Structure_Write 0c63 BODY_0c58: 0c63 00d8 | | Load_Top At_Offset_0 0c64 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0c65 4606 |F | Jump_Case 0x7 0c66 780e |x | Jump 0xc75 ; case 0x0 0c67 780d |x | Jump 0xc75 ; case 0x1 0c68 780c |x | Jump 0xc75 ; case 0x2 0c69 780b |x | Jump 0xc75 ; case 0x3 0c6a 7808 |x | Jump 0xc73 ; case 0x4 0c6b 7801 |x | Jump 0xc6d ; case 0x5 0c6c 7800 |x | Jump 0xc6d ; case 0x6 0c6d 00d8 | | Load_Top At_Offset_0 0c6e 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3 0c6f 0217 | | Execute Heap_Access,All_Reference 0c70 0320 | | Declare_Variable Record,Duplicate 0c71 00cd | | Action Spare6_Action 0c72 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0c73 00db | | Load_Top At_Offset_3 0c74 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0c75 00d8 | | Load_Top At_Offset_0 0c76 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3 0c77 0217 | | Execute Heap_Access,All_Reference 0c78 0320 | | Declare_Variable Record,Duplicate 0c79 00cd | | Action Spare6_Action 0c7a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0c7b 0000 0000 | | .BLANK 0000[0x5] 0c80 ; -------------------------------------------------------------------------------------- 0c80 ; SUBPROGRAM 0c80 ; -------------------------------------------------------------------------------------- 0c80 0c8b | | .CONST 0x0c8b ; Address of begin 0c81 0004 | | .CONST 0x0004 ; Address of exception handler 0c82 0002 | | .CONST 0x0002 ; Number of locals 0c83 INIT_0c80: 0c83 e00a | | Load 0x0,0xa 0c84 e248 | H | Load 0x1,0x48 0c85 0098 | | Execute Package,Field_Read_Dynamic 0c86 0322 | " | Declare_Variable Record 0c87 00db | | Load_Top At_Offset_3 0c88 8261 | a | Call 0x1,0x61 0c89 00d9 | | Load_Top At_Offset_1 0c8a 017d | } | Execute Record,Structure_Write 0c8b BODY_0c80: 0c8b 00d8 | | Load_Top At_Offset_0 0c8c e02d | - | Load 0x0,0x2d 0c8d e248 | H | Load 0x1,0x48 0c8e 0096 | | Execute Package,Entry 0c8f 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0c90 4803 |H | Short_Literal 0x3 0c91 4806 |H | Short_Literal 0x6 0c92 0262 | b | Execute Discrete,In_Range 0c93 7002 |p | Jump_Nonzero 0xc96 0c94 e5fe | | Load 0x2,-0x2 0c95 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0c96 4801 |H | Short_Literal 0x1 0c97 00d9 | | Load_Top At_Offset_1 0c98 e063 | c | Load 0x0,0x63 0c99 e248 | H | Load 0x1,0x48 0c9a 0096 | | Execute Package,Entry 0c9b 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3 0c9c 8016 | | Call 0x0,0x16 0c9d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0c9e 0000 0000 | | .XXX[0x2] 0ca0 ; -------------------------------------------------------------------------------------- 0ca0 ; SUBPROGRAM 0ca0 ; -------------------------------------------------------------------------------------- 0ca0 0cad | | .CONST 0x0cad ; Address of begin 0ca1 0004 | | .CONST 0x0004 ; Address of exception handler 0ca2 0003 | | .CONST 0x0003 ; Number of locals 0ca3 INIT_0ca0: 0ca3 e00a | | Load 0x0,0xa 0ca4 e248 | H | Load 0x1,0x48 0ca5 0098 | | Execute Package,Field_Read_Dynamic 0ca6 0322 | " | Declare_Variable Record 0ca7 00db | | Load_Top At_Offset_3 0ca8 8261 | a | Call 0x1,0x61 0ca9 00d9 | | Load_Top At_Offset_1 0caa 017d | } | Execute Record,Structure_Write 0cab e005 | | Load 0x0,0x5 0cac 0007 | | Action Break_Optional 0cad BODY_0ca0: 0cad 00d9 | | Load_Top At_Offset_1 0cae e02d | - | Load 0x0,0x2d 0caf e248 | H | Load 0x1,0x48 0cb0 0096 | | Execute Package,Entry 0cb1 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0cb2 4803 |H | Short_Literal 0x3 0cb3 4806 |H | Short_Literal 0x6 0cb4 0262 | b | Execute Discrete,In_Range 0cb5 7002 |p | Jump_Nonzero 0xcb8 0cb6 00d8 | | Load_Top At_Offset_0 0cb7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0cb8 4801 |H | Short_Literal 0x1 0cb9 00da | | Load_Top At_Offset_2 0cba e063 | c | Load 0x0,0x63 0cbb e248 | H | Load 0x1,0x48 0cbc 0096 | | Execute Package,Entry 0cbd 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3 0cbe 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0cbf 0000 | | .XXX[0x1] 0cc0 ; -------------------------------------------------------------------------------------- 0cc0 ; SUBPROGRAM 0cc0 ; -------------------------------------------------------------------------------------- 0cc0 0ccc | | .CONST 0x0ccc ; Address of begin 0cc1 0004 | | .CONST 0x0004 ; Address of exception handler 0cc2 0002 | | .CONST 0x0002 ; Number of locals 0cc3 INIT_0cc0: 0cc3 e241 | A | Load 0x1,0x41 0cc4 02ff | | Declare_Variable Variant_Record 0cc5 4801 |H | Short_Literal 0x1 0cc6 e5ff | | Load 0x2,-0x1 0cc7 e063 | c | Load 0x0,0x63 0cc8 e248 | H | Load 0x1,0x48 0cc9 0096 | | Execute Package,Entry 0cca 00d9 | | Load_Top At_Offset_1 0ccb 016d | m | Execute Variant_Record,Structure_Write 0ccc BODY_0cc0: 0ccc 00db | | Load_Top At_Offset_3 0ccd e02d | - | Load 0x0,0x2d 0cce e248 | H | Load 0x1,0x48 0ccf 0096 | | Execute Package,Entry 0cd0 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0cd1 4805 |H | Short_Literal 0x5 0cd2 4806 |H | Short_Literal 0x6 0cd3 0262 | b | Execute Discrete,In_Range 0cd4 7002 |p | Jump_Nonzero 0xcd7 0cd5 e5fe | | Load 0x2,-0x2 0cd6 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0cd7 00d8 | | Load_Top At_Offset_0 0cd8 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3 0cd9 8016 | | Call 0x0,0x16 0cda 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0cdb 0000 0000 | | .BLANK 0000[0x5] 0ce0 ; -------------------------------------------------------------------------------------- 0ce0 ; SUBPROGRAM 0ce0 ; -------------------------------------------------------------------------------------- 0ce0 0cee | | .CONST 0x0cee ; Address of begin 0ce1 0004 | | .CONST 0x0004 ; Address of exception handler 0ce2 0003 | | .CONST 0x0003 ; Number of locals 0ce3 INIT_0ce0: 0ce3 e241 | A | Load 0x1,0x41 0ce4 02ff | | Declare_Variable Variant_Record 0ce5 4801 |H | Short_Literal 0x1 0ce6 e5ff | | Load 0x2,-0x1 0ce7 e063 | c | Load 0x0,0x63 0ce8 e248 | H | Load 0x1,0x48 0ce9 0096 | | Execute Package,Entry 0cea 00d9 | | Load_Top At_Offset_1 0ceb 016d | m | Execute Variant_Record,Structure_Write 0cec e005 | | Load 0x0,0x5 0ced 0007 | | Action Break_Optional 0cee BODY_0ce0: 0cee e5ff | | Load 0x2,-0x1 0cef e02d | - | Load 0x0,0x2d 0cf0 e248 | H | Load 0x1,0x48 0cf1 0096 | | Execute Package,Entry 0cf2 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0cf3 4805 |H | Short_Literal 0x5 0cf4 4806 |H | Short_Literal 0x6 0cf5 0262 | b | Execute Discrete,In_Range 0cf6 7002 |p | Jump_Nonzero 0xcf9 0cf7 00d8 | | Load_Top At_Offset_0 0cf8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0cf9 00d9 | | Load_Top At_Offset_1 0cfa 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3 0cfb 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0cfc 0000 0000 | | .BLANK 0000[0x4] 0d00 ; -------------------------------------------------------------------------------------- 0d00 ; SUBPROGRAM 0d00 ; -------------------------------------------------------------------------------------- 0d00 0d0c | | .CONST 0x0d0c ; Address of begin 0d01 0004 | | .CONST 0x0004 ; Address of exception handler 0d02 0002 | | .CONST 0x0002 ; Number of locals 0d03 INIT_0d00: 0d03 e241 | A | Load 0x1,0x41 0d04 02ff | | Declare_Variable Variant_Record 0d05 4802 |H | Short_Literal 0x2 0d06 e5ff | | Load 0x2,-0x1 0d07 e063 | c | Load 0x0,0x63 0d08 e248 | H | Load 0x1,0x48 0d09 0096 | | Execute Package,Entry 0d0a 00d9 | | Load_Top At_Offset_1 0d0b 016d | m | Execute Variant_Record,Structure_Write 0d0c BODY_0d00: 0d0c 00d8 | | Load_Top At_Offset_0 0d0d 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0d0e 4803 |H | Short_Literal 0x3 0d0f 4806 |H | Short_Literal 0x6 0d10 0262 | b | Execute Discrete,In_Range 0d11 7002 |p | Jump_Nonzero 0xd14 0d12 4fff |O | Short_Literal -0x1 0d13 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0d14 00d8 | | Load_Top At_Offset_0 0d15 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4 0d16 0c65 | e | Execute_Immediate Greater_Equal,0x65 0d17 6802 |h | Jump_Zero 0xd1a 0d18 4fff |O | Short_Literal -0x1 0d19 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0d1a 00d8 | | Load_Top At_Offset_0 0d1b 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4 0d1c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0d1d 0000 0000 | | .XXX[0x3] 0d1f 0000 | | 0d20 ; -------------------------------------------------------------------------------------- 0d20 ; SUBPROGRAM 0d20 ; -------------------------------------------------------------------------------------- 0d20 0d25 | % | .CONST 0x0d25 ; Address of begin 0d21 0004 | | .CONST 0x0004 ; Address of exception handler 0d22 0002 | | .CONST 0x0002 ; Number of locals 0d23 INIT_0d20: 0d23 00e1 | | Load_Encached Boolean_Cache 0d24 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0d25 BODY_0d20: 0d25 e24a | J | Load 0x1,0x4a 0d26 e5ff | | Load 0x2,-0x1 0d27 825f | _ | Call 0x1,0x5f 0d28 e24a | J | Load 0x1,0x4a 0d29 e5fe | | Load 0x2,-0x2 0d2a 825f | _ | Call 0x1,0x5f 0d2b 01c1 | | Execute Vector,Less 0d2c 6803 |h | Jump_Zero 0xd30 0d2d 4801 |H | Short_Literal 0x1 0d2e 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0d2f 7823 |x# | Jump 0xd53 0d30 e24a | J | Load 0x1,0x4a 0d31 e5ff | | Load 0x2,-0x1 0d32 825f | _ | Call 0x1,0x5f 0d33 e24a | J | Load 0x1,0x4a 0d34 e5fe | | Load 0x2,-0x2 0d35 825f | _ | Call 0x1,0x5f 0d36 01df | | Execute Vector,Equal 0d37 681b |h | Jump_Zero 0xd53 0d38 e24a | J | Load 0x1,0x4a 0d39 e5ff | | Load 0x2,-0x1 0d3a 8262 | b | Call 0x1,0x62 0d3b e24a | J | Load 0x1,0x4a 0d3c e5fe | | Load 0x2,-0x2 0d3d 8262 | b | Call 0x1,0x62 0d3e 01c1 | | Execute Vector,Less 0d3f 6803 |h | Jump_Zero 0xd43 0d40 4801 |H | Short_Literal 0x1 0d41 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0d42 7810 |x | Jump 0xd53 0d43 e24a | J | Load 0x1,0x4a 0d44 e5ff | | Load 0x2,-0x1 0d45 8262 | b | Call 0x1,0x62 0d46 e24a | J | Load 0x1,0x4a 0d47 e5fe | | Load 0x2,-0x2 0d48 8262 | b | Call 0x1,0x62 0d49 01df | | Execute Vector,Equal 0d4a 6808 |h | Jump_Zero 0xd53 0d4b e24a | J | Load 0x1,0x4a 0d4c e5ff | | Load 0x2,-0x1 0d4d 8264 | d | Call 0x1,0x64 0d4e e24a | J | Load 0x1,0x4a 0d4f e5fe | | Load 0x2,-0x2 0d50 8264 | d | Call 0x1,0x64 0d51 01c1 | | Execute Vector,Less 0d52 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0d53 00d8 | | Load_Top At_Offset_0 0d54 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0d55 0000 0000 | | .XXX[0x3] 0d57 0000 | | 0d58 ; -------------------------------------------------------------------------------------- 0d58 ; SUBPROGRAM 0d58 ; -------------------------------------------------------------------------------------- 0d58 0d5f | _ | .CONST 0x0d5f ; Address of begin 0d59 0004 | | .CONST 0x0004 ; Address of exception handler 0d5a 0003 | | .CONST 0x0003 ; Number of locals 0d5b INIT_0d58: 0d5b 00e1 | | Load_Encached Boolean_Cache 0d5c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0d5d 0092 1848 | H| Action Push_String_Extended,0x1848 ; "~" 0d5f BODY_0d58: 0d5f 00d8 | | Load_Top At_Offset_0 0d60 e5fe | | Load 0x2,-0x2 0d61 825f | _ | Call 0x1,0x5f 0d62 00d9 | | Load_Top At_Offset_1 0d63 e5ff | | Load 0x2,-0x1 0d64 825f | _ | Call 0x1,0x5f 0d65 01c1 | | Execute Vector,Less 0d66 6803 |h | Jump_Zero 0xd6a 0d67 4801 |H | Short_Literal 0x1 0d68 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 0d69 7823 |x# | Jump 0xd8d 0d6a 00d8 | | Load_Top At_Offset_0 0d6b e5ff | | Load 0x2,-0x1 0d6c 825f | _ | Call 0x1,0x5f 0d6d 00d9 | | Load_Top At_Offset_1 0d6e e5fe | | Load 0x2,-0x2 0d6f 825f | _ | Call 0x1,0x5f 0d70 01df | | Execute Vector,Equal 0d71 681b |h | Jump_Zero 0xd8d 0d72 00d8 | | Load_Top At_Offset_0 0d73 e5fe | | Load 0x2,-0x2 0d74 8262 | b | Call 0x1,0x62 0d75 00d9 | | Load_Top At_Offset_1 0d76 e5ff | | Load 0x2,-0x1 0d77 8262 | b | Call 0x1,0x62 0d78 01c1 | | Execute Vector,Less 0d79 6803 |h | Jump_Zero 0xd7d 0d7a 4801 |H | Short_Literal 0x1 0d7b 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 0d7c 7810 |x | Jump 0xd8d 0d7d 00d8 | | Load_Top At_Offset_0 0d7e e5ff | | Load 0x2,-0x1 0d7f 8262 | b | Call 0x1,0x62 0d80 00d9 | | Load_Top At_Offset_1 0d81 e5fe | | Load 0x2,-0x2 0d82 8262 | b | Call 0x1,0x62 0d83 01df | | Execute Vector,Equal 0d84 6808 |h | Jump_Zero 0xd8d 0d85 00d8 | | Load_Top At_Offset_0 0d86 e5fe | | Load 0x2,-0x2 0d87 8264 | d | Call 0x1,0x64 0d88 00d9 | | Load_Top At_Offset_1 0d89 e5ff | | Load 0x2,-0x1 0d8a 8264 | d | Call 0x1,0x64 0d8b 01c1 | | Execute Vector,Less 0d8c 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 0d8d 00d9 | | Load_Top At_Offset_1 0d8e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0d8f 0000 | | .XXX[0x1] 0d90 ; -------------------------------------------------------------------------------------- 0d90 ; SUBPROGRAM 0d90 ; -------------------------------------------------------------------------------------- 0d90 0da7 | | .CONST 0x0da7 ; Address of begin 0d91 0004 | | .CONST 0x0004 ; Address of exception handler 0d92 0006 | | .CONST 0x0006 ; Number of locals 0d93 INIT_0d90: 0d93 e23e | > | Load 0x1,0x3e 0d94 02ff | | Declare_Variable Variant_Record 0d95 00db | | Load_Top At_Offset_3 0d96 e02d | - | Load 0x0,0x2d 0d97 e248 | H | Load 0x1,0x48 0d98 0096 | | Execute Package,Entry 0d99 00d9 | | Load_Top At_Offset_1 0d9a 016d | m | Execute Variant_Record,Structure_Write 0d9b e23e | > | Load 0x1,0x3e 0d9c 02ff | | Declare_Variable Variant_Record 0d9d e5fe | | Load 0x2,-0x2 0d9e e02d | - | Load 0x0,0x2d 0d9f e248 | H | Load 0x1,0x48 0da0 0096 | | Execute Package,Entry 0da1 00d9 | | Load_Top At_Offset_1 0da2 016d | m | Execute Variant_Record,Structure_Write 0da3 00e1 | | Load_Encached Boolean_Cache 0da4 00e2 | | Load_Encached Integer_Cache 0da5 029f 1413 | | Declare_Subprogram INIT_1410,For_Call 0da7 BODY_0d90: 0da7 e402 | | Load 0x2,0x2 0da8 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0da9 4606 |F | Jump_Case 0x7 0daa 7887 |x | Jump 0xe32 ; case 0x0 0dab 7886 |x | Jump 0xe32 ; case 0x1 0dac 7885 |x | Jump 0xe32 ; case 0x2 0dad 784f |xO | Jump 0xdfd ; case 0x3 0dae 7881 |x | Jump 0xe30 ; case 0x4 0daf 7801 |x | Jump 0xdb1 ; case 0x5 0db0 7800 |x | Jump 0xdb1 ; case 0x6 0db1 00db | | Load_Top At_Offset_3 0db2 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0db3 4606 |F | Jump_Case 0x7 0db4 7845 |xE | Jump 0xdfa ; case 0x0 0db5 7844 |xD | Jump 0xdfa ; case 0x1 0db6 7843 |xC | Jump 0xdfa ; case 0x2 0db7 7836 |x6 | Jump 0xdee ; case 0x3 0db8 783b |x; | Jump 0xdf4 ; case 0x4 0db9 7801 |x | Jump 0xdbb ; case 0x5 0dba 7800 |x | Jump 0xdbb ; case 0x6 0dbb e24a | J | Load 0x1,0x4a 0dbc e5ff | | Load 0x2,-0x1 0dbd 825f | _ | Call 0x1,0x5f 0dbe e24a | J | Load 0x1,0x4a 0dbf e5fe | | Load 0x2,-0x2 0dc0 825f | _ | Call 0x1,0x5f 0dc1 01df | | Execute Vector,Equal 0dc2 6824 |h$ | Jump_Zero 0xde7 0dc3 e24a | J | Load 0x1,0x4a 0dc4 e5ff | | Load 0x2,-0x1 0dc5 8262 | b | Call 0x1,0x62 0dc6 e24a | J | Load 0x1,0x4a 0dc7 e5fe | | Load 0x2,-0x2 0dc8 8262 | b | Call 0x1,0x62 0dc9 01df | | Execute Vector,Equal 0dca 6815 |h | Jump_Zero 0xde0 0dcb e5ff | | Load 0x2,-0x1 0dcc 8266 | f | Call 0x1,0x66 0dcd e5fe | | Load 0x2,-0x2 0dce 8266 | f | Call 0x1,0x66 0dcf 0272 | r | Execute Discrete,Minus 0dd0 005a | Z | Store_Top Discrete,At_Offset_2 0dd1 00d9 | | Load_Top At_Offset_1 0dd2 7009 |p | Jump_Nonzero 0xddc 0dd3 e24a | J | Load 0x1,0x4a 0dd4 e5ff | | Load 0x2,-0x1 0dd5 8264 | d | Call 0x1,0x64 0dd6 e24a | J | Load 0x1,0x4a 0dd7 e5fe | | Load 0x2,-0x2 0dd8 8264 | d | Call 0x1,0x64 0dd9 01c1 | | Execute Vector,Less 0dda 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 0ddb 7858 |xX | Jump 0xe34 0ddc 00d9 | | Load_Top At_Offset_1 0ddd 0d00 | | Execute_Immediate Less,0x0 0dde 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 0ddf 7854 |xT | Jump 0xe34 0de0 00db | | Load_Top At_Offset_3 0de1 825c | \ | Call 0x1,0x5c 0de2 e402 | | Load 0x2,0x2 0de3 825c | \ | Call 0x1,0x5c 0de4 8269 | i | Call 0x1,0x69 0de5 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 0de6 784d |xM | Jump 0xe34 0de7 00db | | Load_Top At_Offset_3 0de8 825d | ] | Call 0x1,0x5d 0de9 e402 | | Load 0x2,0x2 0dea 825d | ] | Call 0x1,0x5d 0deb 8269 | i | Call 0x1,0x69 0dec 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 0ded 7846 |xF | Jump 0xe34 0dee e5fe | | Load 0x2,-0x2 0def e402 | | Load 0x2,0x2 0df0 825d | ] | Call 0x1,0x5d 0df1 8269 | i | Call 0x1,0x69 0df2 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 0df3 7840 |x@ | Jump 0xe34 0df4 e5fe | | Load 0x2,-0x2 0df5 e402 | | Load 0x2,0x2 0df6 825c | \ | Call 0x1,0x5c 0df7 8269 | i | Call 0x1,0x69 0df8 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 0df9 783a |x: | Jump 0xe34 0dfa 4800 |H | Short_Literal 0x0 0dfb 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 0dfc 7837 |x7 | Jump 0xe34 0dfd 00db | | Load_Top At_Offset_3 0dfe 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0dff 4606 |F | Jump_Case 0x7 0e00 782c |x, | Jump 0xe2d ; case 0x0 0e01 782b |x+ | Jump 0xe2d ; case 0x1 0e02 782a |x* | Jump 0xe2d ; case 0x2 0e03 7814 |x | Jump 0xe18 ; case 0x3 0e04 7802 |x | Jump 0xe07 ; case 0x4 0e05 7801 |x | Jump 0xe07 ; case 0x5 0e06 7800 |x | Jump 0xe07 ; case 0x6 0e07 e24a | J | Load 0x1,0x4a 0e08 e5ff | | Load 0x2,-0x1 0e09 825f | _ | Call 0x1,0x5f 0e0a e24a | J | Load 0x1,0x4a 0e0b e5fe | | Load 0x2,-0x2 0e0c 825f | _ | Call 0x1,0x5f 0e0d 01df | | Execute Vector,Equal 0e0e 6803 |h | Jump_Zero 0xe12 0e0f 4801 |H | Short_Literal 0x1 0e10 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 0e11 7822 |x" | Jump 0xe34 0e12 00db | | Load_Top At_Offset_3 0e13 825d | ] | Call 0x1,0x5d 0e14 e5ff | | Load 0x2,-0x1 0e15 8269 | i | Call 0x1,0x69 0e16 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 0e17 781c |x | Jump 0xe34 0e18 e5ff | | Load 0x2,-0x1 0e19 8266 | f | Call 0x1,0x66 0e1a e5fe | | Load 0x2,-0x2 0e1b 8266 | f | Call 0x1,0x66 0e1c 0272 | r | Execute Discrete,Minus 0e1d 005a | Z | Store_Top Discrete,At_Offset_2 0e1e 00d9 | | Load_Top At_Offset_1 0e1f 7009 |p | Jump_Nonzero 0xe29 0e20 e24a | J | Load 0x1,0x4a 0e21 e5ff | | Load 0x2,-0x1 0e22 825f | _ | Call 0x1,0x5f 0e23 e24a | J | Load 0x1,0x4a 0e24 e5fe | | Load 0x2,-0x2 0e25 825f | _ | Call 0x1,0x5f 0e26 01c1 | | Execute Vector,Less 0e27 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 0e28 780b |x | Jump 0xe34 0e29 00d9 | | Load_Top At_Offset_1 0e2a 0d00 | | Execute_Immediate Less,0x0 0e2b 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 0e2c 7807 |x | Jump 0xe34 0e2d 4800 |H | Short_Literal 0x0 0e2e 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 0e2f 7804 |x | Jump 0xe34 0e30 8406 | | Call 0x2,0x6 0e31 7802 |x | Jump 0xe34 0e32 4801 |H | Short_Literal 0x1 0e33 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 0e34 00da | | Load_Top At_Offset_2 0e35 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0e36 0000 0000 | | .XXX[0x2] 0e38 ; -------------------------------------------------------------------------------------- 0e38 ; SUBPROGRAM 0e38 ; -------------------------------------------------------------------------------------- 0e38 0e51 | Q | .CONST 0x0e51 ; Address of begin 0e39 0004 | | .CONST 0x0004 ; Address of exception handler 0e3a 0007 | | .CONST 0x0007 ; Number of locals 0e3b INIT_0e38: 0e3b e23e | > | Load 0x1,0x3e 0e3c 02ff | | Declare_Variable Variant_Record 0e3d 00db | | Load_Top At_Offset_3 0e3e e02d | - | Load 0x0,0x2d 0e3f e248 | H | Load 0x1,0x48 0e40 0096 | | Execute Package,Entry 0e41 00d9 | | Load_Top At_Offset_1 0e42 016d | m | Execute Variant_Record,Structure_Write 0e43 e23e | > | Load 0x1,0x3e 0e44 02ff | | Declare_Variable Variant_Record 0e45 e5fe | | Load 0x2,-0x2 0e46 e02d | - | Load 0x0,0x2d 0e47 e248 | H | Load 0x1,0x48 0e48 0096 | | Execute Package,Entry 0e49 00d9 | | Load_Top At_Offset_1 0e4a 016d | m | Execute Variant_Record,Structure_Write 0e4b 00e1 | | Load_Encached Boolean_Cache 0e4c 00e2 | | Load_Encached Integer_Cache 0e4d 0092 1848 | H| Action Push_String_Extended,0x1848 ; "~" 0e4f 029f 1473 | s| Declare_Subprogram INIT_1470,For_Call 0e51 BODY_0e38: 0e51 e402 | | Load 0x2,0x2 0e52 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0e53 4606 |F | Jump_Case 0x7 0e54 7887 |x | Jump 0xedc ; case 0x0 0e55 7886 |x | Jump 0xedc ; case 0x1 0e56 7885 |x | Jump 0xedc ; case 0x2 0e57 784f |xO | Jump 0xea7 ; case 0x3 0e58 7881 |x | Jump 0xeda ; case 0x4 0e59 7801 |x | Jump 0xe5b ; case 0x5 0e5a 7800 |x | Jump 0xe5b ; case 0x6 0e5b e403 | | Load 0x2,0x3 0e5c 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0e5d 4606 |F | Jump_Case 0x7 0e5e 7845 |xE | Jump 0xea4 ; case 0x0 0e5f 7844 |xD | Jump 0xea4 ; case 0x1 0e60 7843 |xC | Jump 0xea4 ; case 0x2 0e61 7836 |x6 | Jump 0xe98 ; case 0x3 0e62 783b |x; | Jump 0xe9e ; case 0x4 0e63 7801 |x | Jump 0xe65 ; case 0x5 0e64 7800 |x | Jump 0xe65 ; case 0x6 0e65 00d9 | | Load_Top At_Offset_1 0e66 e5ff | | Load 0x2,-0x1 0e67 825f | _ | Call 0x1,0x5f 0e68 00da | | Load_Top At_Offset_2 0e69 e5fe | | Load 0x2,-0x2 0e6a 825f | _ | Call 0x1,0x5f 0e6b 01df | | Execute Vector,Equal 0e6c 6824 |h$ | Jump_Zero 0xe91 0e6d 00d9 | | Load_Top At_Offset_1 0e6e e5ff | | Load 0x2,-0x1 0e6f 8262 | b | Call 0x1,0x62 0e70 00da | | Load_Top At_Offset_2 0e71 e5fe | | Load 0x2,-0x2 0e72 8262 | b | Call 0x1,0x62 0e73 01df | | Execute Vector,Equal 0e74 6815 |h | Jump_Zero 0xe8a 0e75 e5ff | | Load 0x2,-0x1 0e76 8266 | f | Call 0x1,0x66 0e77 e5fe | | Load 0x2,-0x2 0e78 8266 | f | Call 0x1,0x66 0e79 0272 | r | Execute Discrete,Minus 0e7a 005b | [ | Store_Top Discrete,At_Offset_3 0e7b 00da | | Load_Top At_Offset_2 0e7c 7009 |p | Jump_Nonzero 0xe86 0e7d 00d9 | | Load_Top At_Offset_1 0e7e e5ff | | Load 0x2,-0x1 0e7f 8264 | d | Call 0x1,0x64 0e80 00da | | Load_Top At_Offset_2 0e81 e5fe | | Load 0x2,-0x2 0e82 8264 | d | Call 0x1,0x64 0e83 01c1 | | Execute Vector,Less 0e84 a404 | | Store_Unchecked 0x2,0x4 0e85 7858 |xX | Jump 0xede 0e86 00da | | Load_Top At_Offset_2 0e87 0c01 | | Execute_Immediate Greater_Equal,0x1 0e88 a404 | | Store_Unchecked 0x2,0x4 0e89 7854 |xT | Jump 0xede 0e8a e403 | | Load 0x2,0x3 0e8b 825c | \ | Call 0x1,0x5c 0e8c e402 | | Load 0x2,0x2 0e8d 825c | \ | Call 0x1,0x5c 0e8e 826a | j | Call 0x1,0x6a 0e8f a404 | | Store_Unchecked 0x2,0x4 0e90 784d |xM | Jump 0xede 0e91 e403 | | Load 0x2,0x3 0e92 825d | ] | Call 0x1,0x5d 0e93 e402 | | Load 0x2,0x2 0e94 825d | ] | Call 0x1,0x5d 0e95 826a | j | Call 0x1,0x6a 0e96 a404 | | Store_Unchecked 0x2,0x4 0e97 7846 |xF | Jump 0xede 0e98 e5fe | | Load 0x2,-0x2 0e99 e402 | | Load 0x2,0x2 0e9a 825d | ] | Call 0x1,0x5d 0e9b 826a | j | Call 0x1,0x6a 0e9c a404 | | Store_Unchecked 0x2,0x4 0e9d 7840 |x@ | Jump 0xede 0e9e e5fe | | Load 0x2,-0x2 0e9f e402 | | Load 0x2,0x2 0ea0 825c | \ | Call 0x1,0x5c 0ea1 826a | j | Call 0x1,0x6a 0ea2 a404 | | Store_Unchecked 0x2,0x4 0ea3 783a |x: | Jump 0xede 0ea4 4800 |H | Short_Literal 0x0 0ea5 a404 | | Store_Unchecked 0x2,0x4 0ea6 7837 |x7 | Jump 0xede 0ea7 e403 | | Load 0x2,0x3 0ea8 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0ea9 4606 |F | Jump_Case 0x7 0eaa 782c |x, | Jump 0xed7 ; case 0x0 0eab 782b |x+ | Jump 0xed7 ; case 0x1 0eac 782a |x* | Jump 0xed7 ; case 0x2 0ead 7814 |x | Jump 0xec2 ; case 0x3 0eae 7802 |x | Jump 0xeb1 ; case 0x4 0eaf 7801 |x | Jump 0xeb1 ; case 0x5 0eb0 7800 |x | Jump 0xeb1 ; case 0x6 0eb1 00d9 | | Load_Top At_Offset_1 0eb2 e5ff | | Load 0x2,-0x1 0eb3 825f | _ | Call 0x1,0x5f 0eb4 00da | | Load_Top At_Offset_2 0eb5 e5fe | | Load 0x2,-0x2 0eb6 825f | _ | Call 0x1,0x5f 0eb7 01df | | Execute Vector,Equal 0eb8 6803 |h | Jump_Zero 0xebc 0eb9 4801 |H | Short_Literal 0x1 0eba a404 | | Store_Unchecked 0x2,0x4 0ebb 7822 |x" | Jump 0xede 0ebc e403 | | Load 0x2,0x3 0ebd 825d | ] | Call 0x1,0x5d 0ebe e5ff | | Load 0x2,-0x1 0ebf 826a | j | Call 0x1,0x6a 0ec0 a404 | | Store_Unchecked 0x2,0x4 0ec1 781c |x | Jump 0xede 0ec2 e5ff | | Load 0x2,-0x1 0ec3 8266 | f | Call 0x1,0x66 0ec4 e5fe | | Load 0x2,-0x2 0ec5 8266 | f | Call 0x1,0x66 0ec6 0272 | r | Execute Discrete,Minus 0ec7 005b | [ | Store_Top Discrete,At_Offset_3 0ec8 00da | | Load_Top At_Offset_2 0ec9 7009 |p | Jump_Nonzero 0xed3 0eca 00d9 | | Load_Top At_Offset_1 0ecb e5ff | | Load 0x2,-0x1 0ecc 825f | _ | Call 0x1,0x5f 0ecd 00da | | Load_Top At_Offset_2 0ece e5fe | | Load 0x2,-0x2 0ecf 825f | _ | Call 0x1,0x5f 0ed0 01c1 | | Execute Vector,Less 0ed1 a404 | | Store_Unchecked 0x2,0x4 0ed2 780b |x | Jump 0xede 0ed3 00da | | Load_Top At_Offset_2 0ed4 0c01 | | Execute_Immediate Greater_Equal,0x1 0ed5 a404 | | Store_Unchecked 0x2,0x4 0ed6 7807 |x | Jump 0xede 0ed7 4800 |H | Short_Literal 0x0 0ed8 a404 | | Store_Unchecked 0x2,0x4 0ed9 7804 |x | Jump 0xede 0eda 8407 | | Call 0x2,0x7 0edb 7802 |x | Jump 0xede 0edc 4801 |H | Short_Literal 0x1 0edd a404 | | Store_Unchecked 0x2,0x4 0ede 00db | | Load_Top At_Offset_3 0edf 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0ee0 ; -------------------------------------------------------------------------------------- 0ee0 ; SUBPROGRAM 0ee0 ; -------------------------------------------------------------------------------------- 0ee0 0eeb | | .CONST 0x0eeb ; Address of begin 0ee1 0004 | | .CONST 0x0004 ; Address of exception handler 0ee2 0002 | | .CONST 0x0002 ; Number of locals 0ee3 INIT_0ee0: 0ee3 e23e | > | Load 0x1,0x3e 0ee4 02ff | | Declare_Variable Variant_Record 0ee5 00db | | Load_Top At_Offset_3 0ee6 e02d | - | Load 0x0,0x2d 0ee7 e248 | H | Load 0x1,0x48 0ee8 0096 | | Execute Package,Entry 0ee9 00d9 | | Load_Top At_Offset_1 0eea 016d | m | Execute Variant_Record,Structure_Write 0eeb BODY_0ee0: 0eeb e5fe | | Load 0x2,-0x2 0eec 00d9 | | Load_Top At_Offset_1 0eed 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0eee 00d8 | | Load_Top At_Offset_0 0eef e5ff | | Load 0x2,-0x1 0ef0 e05d | ] | Load 0x0,0x5d 0ef1 e248 | H | Load 0x1,0x48 0ef2 0096 | | Execute Package,Entry 0ef3 e5fe | | Load 0x2,-0x2 0ef4 0f00 | | Execute_Immediate Equal,0x0 0ef5 e5ff | | Load 0x2,-0x1 0ef6 e064 | d | Load 0x0,0x64 0ef7 e248 | H | Load 0x1,0x48 0ef8 0096 | | Execute Package,Entry 0ef9 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0efa 0000 0000 | | .BLANK 0000[0x6] 0f00 ; -------------------------------------------------------------------------------------- 0f00 ; SUBPROGRAM 0f00 ; -------------------------------------------------------------------------------------- 0f00 0f03 | | .CONST 0x0f03 ; Address of begin 0f01 0004 | | .CONST 0x0004 ; Address of exception handler 0f02 0001 | | .CONST 0x0001 ; Number of locals 0f03 BODY_0f00: 0f03 INIT_0f00: 0f03 00da | | Load_Top At_Offset_2 0f04 4606 |F | Jump_Case 0x7 0f05 7806 |x | Jump 0xf0c ; case 0x0 0f06 7805 |x | Jump 0xf0c ; case 0x1 0f07 7804 |x | Jump 0xf0c ; case 0x2 0f08 7808 |x | Jump 0xf11 ; case 0x3 0f09 7804 |x | Jump 0xf0e ; case 0x4 0f0a 7808 |x | Jump 0xf13 ; case 0x5 0f0b 7800 |x | Jump 0xf0c ; case 0x6 0f0c e24a | J | Load 0x1,0x4a 0f0d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0f0e 0092 1849 | I| Action Push_String_Extended,0x1849 ; " " 0f10 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0f11 e24a | J | Load 0x1,0x4a 0f12 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0f13 0092 184a | J| Action Push_String_Extended,0x184a ; " " 0f15 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0f16 0000 0000 | | .XXX[0x2] 0f18 ; -------------------------------------------------------------------------------------- 0f18 ; SUBPROGRAM 0f18 ; -------------------------------------------------------------------------------------- 0f18 0f45 | E | .CONST 0x0f45 ; Address of begin 0f19 0004 | | .CONST 0x0004 ; Address of exception handler 0f1a 000f | | .CONST 0x000f ; Number of locals 0f1b INIT_0f18: 0f1b 00da | | Load_Top At_Offset_2 0f1c 0219 | | Execute Heap_Access,All_Read 0f1d e028 | ( | Load 0x0,0x28 0f1e e248 | H | Load 0x1,0x48 0f1f 0096 | | Execute Package,Entry 0f20 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 0f21 0007 | | Action Break_Optional 0f22 e040 | @ | Load 0x0,0x40 0f23 0007 | | Action Break_Optional 0f24 e042 | B | Load 0x0,0x42 0f25 0007 | | Action Break_Optional 0f26 e044 | D | Load 0x0,0x44 0f27 0322 | " | Declare_Variable Record 0f28 00d8 | | Load_Top At_Offset_0 0f29 1c00 | | Execute_Immediate Run_Utility,0x0 0f2a e065 | e | Load 0x0,0x65 0f2b 03bd | | Declare_Variable Access,Duplicate 0f2c e066 | f | Load 0x0,0x66 0f2d 0322 | " | Declare_Variable Record 0f2e 00d8 | | Load_Top At_Offset_0 0f2f 1c00 | | Execute_Immediate Run_Utility,0x0 0f30 00d8 | | Load_Top At_Offset_0 0f31 0322 | " | Declare_Variable Record 0f32 00d8 | | Load_Top At_Offset_0 0f33 1c00 | | Execute_Immediate Run_Utility,0x0 0f34 e5ff | | Load 0x2,-0x1 0f35 0219 | | Execute Heap_Access,All_Read 0f36 e028 | ( | Load 0x0,0x28 0f37 e248 | H | Load 0x1,0x48 0f38 0096 | | Execute Package,Entry 0f39 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0f3a 0007 | | Action Break_Optional 0f3b 00e1 | | Load_Encached Boolean_Cache 0f3c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0f3d 00e1 | | Load_Encached Boolean_Cache 0f3e 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0f3f 029f 14d3 | | Declare_Subprogram INIT_14d0,For_Call 0f41 029f 14e3 | | Declare_Subprogram INIT_14e0,For_Call 0f43 029f 14fb | | Declare_Subprogram INIT_14f8,For_Call 0f45 BODY_0f18: 0f45 4800 |H | Short_Literal 0x0 0f46 a5f9 | | Store_Unchecked 0x2,-0x7 0f47 4800 |H | Short_Literal 0x0 0f48 a5f8 | | Store_Unchecked 0x2,-0x8 0f49 00cf | | Action Mark_Auxiliary 0f4a 7806 |x | Jump 0xf51 0f4b 840f | | Call 0x2,0xf 0f4c e402 | | Load 0x2,0x2 0f4d 0217 | | Execute Heap_Access,All_Reference 0f4e 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0f4f a402 | | Store_Unchecked 0x2,0x2 0f50 00c9 | | Action Pop_Auxiliary_Loop 0f51 e402 | | Load 0x2,0x2 0f52 77f8 |w | Jump_Nonzero 0xf4b 0f53 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0f54 0000 0000 | | .BLANK 0000[0x4] 0f58 ; -------------------------------------------------------------------------------------- 0f58 ; SUBPROGRAM 0f58 ; -------------------------------------------------------------------------------------- 0f58 0f5f | _ | .CONST 0x0f5f ; Address of begin 0f59 0f98 | | .CONST 0x0f98 ; Address of exception handler 0f5a 0002 | | .CONST 0x0002 ; Number of locals 0f5b INIT_0f58: 0f5b e020 | | Load 0x0,0x20 0f5c 02ff | | Declare_Variable Variant_Record 0f5d 00d8 | | Load_Top At_Offset_0 0f5e 1c00 | | Execute_Immediate Run_Utility,0x0 0f5f BODY_0f58: 0f5f e5fd | | Load 0x2,-0x3 0f60 8019 | | Call 0x0,0x19 0f61 a404 | | Store_Unchecked 0x2,0x4 0f62 e403 | | Load 0x2,0x3 0f63 8067 | g | Call 0x0,0x67 0f64 e5ff | | Load 0x2,-0x1 0f65 8068 | h | Call 0x0,0x68 0f66 00d9 | | Load_Top At_Offset_1 0f67 016d | m | Execute Variant_Record,Structure_Write 0f68 e409 | | Load 0x2,0x9 0f69 6807 |h | Jump_Zero 0xf71 0f6a e402 | | Load 0x2,0x2 0f6b 00d9 | | Load_Top At_Offset_1 0f6c 8013 | | Call 0x0,0x13 0f6d 8258 | X | Call 0x1,0x58 0f6e c402 | | Store 0x2,0x2 0f6f 4800 |H | Short_Literal 0x0 0f70 a409 | | Store_Unchecked 0x2,0x9 0f71 e404 | | Load 0x2,0x4 0f72 e5fd | | Load 0x2,-0x3 0f73 00da | | Load_Top At_Offset_2 0f74 801a | | Call 0x0,0x1a 0f75 c404 | | Store 0x2,0x4 0f76 e407 | | Load 0x2,0x7 0f77 7004 |p | Jump_Nonzero 0xf7c 0f78 e40a | | Load 0x2,0xa 0f79 e404 | | Load 0x2,0x4 0f7a 8259 | Y | Call 0x1,0x59 0f7b c40a | | Store 0x2,0xa 0f7c e404 | | Load 0x2,0x4 0f7d 8018 | | Call 0x0,0x18 0f7e e5fd | | Load 0x2,-0x3 0f7f e407 | | Load 0x2,0x7 0f80 0f00 | | Execute_Immediate Equal,0x0 0f81 e407 | | Load 0x2,0x7 0f82 e406 | | Load 0x2,0x6 0f83 e402 | | Load 0x2,0x2 0f84 8250 | P | Call 0x1,0x50 0f85 c404 | | Store 0x2,0x4 0f86 e408 | | Load 0x2,0x8 0f87 e5fd | | Load 0x2,-0x3 0f88 e403 | | Load 0x2,0x3 0f89 8067 | g | Call 0x0,0x67 0f8a e404 | | Load 0x2,0x4 0f8b 8069 | i | Call 0x0,0x69 0f8c c408 | | Store 0x2,0x8 0f8d e408 | | Load 0x2,0x8 0f8e e402 | | Load 0x2,0x2 0f8f 8255 | U | Call 0x1,0x55 0f90 c402 | | Store 0x2,0x2 0f91 c408 | | Store 0x2,0x8 0f92 e403 | | Load 0x2,0x3 0f93 806a | j | Call 0x0,0x6a 0f94 c403 | | Store 0x2,0x3 0f95 4801 |H | Short_Literal 0x1 0f96 a407 | | Store_Unchecked 0x2,0x7 0f97 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0f98 TRAP_0f58: 0f98 e06b | k | Load 0x0,0x6b 0f99 010f | | Execute Exception,Equal 0f9a 6804 |h | Jump_Zero 0xf9f 0f9b e403 | | Load 0x2,0x3 0f9c 806a | j | Call 0x0,0x6a 0f9d c403 | | Store 0x2,0x3 0f9e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0f9f 0100 | | Execute Exception,Raise 0fa0 ; -------------------------------------------------------------------------------------- 0fa0 ; SUBPROGRAM 0fa0 ; -------------------------------------------------------------------------------------- 0fa0 0fa5 | | .CONST 0x0fa5 ; Address of begin 0fa1 0004 | | .CONST 0x0004 ; Address of exception handler 0fa2 0002 | | .CONST 0x0002 ; Number of locals 0fa3 INIT_0fa0: 0fa3 e5ff | | Load 0x2,-0x1 0fa4 0007 | | Action Break_Optional 0fa5 BODY_0fa0: 0fa5 00d8 | | Load_Top At_Offset_0 0fa6 4800 |H | Short_Literal 0x0 0fa7 806c | l | Call 0x0,0x6c 0fa8 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0fa9 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0faa 0000 0000 | | .BLANK 0000[0x6] 0fb0 ; -------------------------------------------------------------------------------------- 0fb0 ; SUBPROGRAM 0fb0 ; -------------------------------------------------------------------------------------- 0fb0 0fbd | | .CONST 0x0fbd ; Address of begin 0fb1 0004 | | .CONST 0x0004 ; Address of exception handler 0fb2 0002 | | .CONST 0x0002 ; Number of locals 0fb3 INIT_0fb0: 0fb3 4801 |H | Short_Literal 0x1 0fb4 e403 | | Load 0x2,0x3 0fb5 e402 | | Load 0x2,0x2 0fb6 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 0fb7 802a | * | Call 0x0,0x2a 0fb8 e062 | b | Load 0x0,0x62 0fb9 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0fba 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0fbb e03b | ; | Load 0x0,0x3b 0fbc 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0fbd BODY_0fb0: 0fbd e403 | | Load 0x2,0x3 0fbe 01dd | | Execute Vector,First 0fbf 00d9 | | Load_Top At_Offset_1 0fc0 0aff | | Execute_Immediate Plus,-0x1 0fc1 e403 | | Load 0x2,0x3 0fc2 01cf | | Execute Vector,Slice_Read 0fc3 00cb | | Action Pop_Block_With_Result 0fc4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0fc5 0000 0000 | | .XXX[0x3] 0fc7 0000 | | 0fc8 ; -------------------------------------------------------------------------------------- 0fc8 ; SUBPROGRAM 0fc8 ; -------------------------------------------------------------------------------------- 0fc8 0fd9 | | .CONST 0x0fd9 ; Address of begin 0fc9 0004 | | .CONST 0x0004 ; Address of exception handler 0fca 0004 | | .CONST 0x0004 ; Number of locals 0fcb INIT_0fc8: 0fcb e239 | 9 | Load 0x1,0x39 0fcc 0322 | " | Declare_Variable Record 0fcd e5ff | | Load 0x2,-0x1 0fce 0219 | | Execute Heap_Access,All_Read 0fcf e028 | ( | Load 0x0,0x28 0fd0 e248 | H | Load 0x1,0x48 0fd1 0096 | | Execute Package,Entry 0fd2 00d9 | | Load_Top At_Offset_1 0fd3 017d | } | Execute Record,Structure_Write 0fd4 00d8 | | Load_Top At_Offset_0 0fd5 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0fd6 806d | m | Call 0x0,0x6d 0fd7 029f 1573 | s| Declare_Subprogram INIT_1570,For_Call 0fd9 BODY_0fc8: 0fd9 8018 | | Call 0x0,0x18 0fda 00db | | Load_Top At_Offset_3 0fdb 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 0fdc 8045 | E | Call 0x0,0x45 0fdd 7001 |p | Jump_Nonzero 0xfdf 0fde 8604 | | Call 0x3,0x4 0fdf 00da | | Load_Top At_Offset_2 0fe0 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0fe1 00db | | Load_Top At_Offset_3 0fe2 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0fe3 0f00 | | Execute_Immediate Equal,0x0 0fe4 00db | | Load_Top At_Offset_3 0fe5 e602 | | Load 0x3,0x2 0fe6 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 0fe7 e402 | | Load 0x2,0x2 0fe8 8265 | e | Call 0x1,0x65 0fe9 e402 | | Load 0x2,0x2 0fea 8263 | c | Call 0x1,0x63 0feb e402 | | Load 0x2,0x2 0fec 8260 | ` | Call 0x1,0x60 0fed 806e | n | Call 0x0,0x6e 0fee a5fd | | Store_Unchecked 0x2,-0x3 0fef 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0ff0 ; -------------------------------------------------------------------------------------- 0ff0 ; SUBPROGRAM 0ff0 ; -------------------------------------------------------------------------------------- 0ff0 1002 | | .CONST 0x1002 ; Address of begin 0ff1 0004 | | .CONST 0x0004 ; Address of exception handler 0ff2 0006 | | .CONST 0x0006 ; Number of locals 0ff3 INIT_0ff0: 0ff3 00f1 | | Load_Encached Diana_Temp_Seq 0ff4 4803 |H | Short_Literal 0x3 0ff5 e402 | | Load 0x2,0x2 0ff6 e063 | c | Load 0x0,0x63 0ff7 e248 | H | Load 0x1,0x48 0ff8 0096 | | Execute Package,Entry 0ff9 4802 |H | Short_Literal 0x2 0ffa e402 | | Load 0x2,0x2 0ffb e063 | c | Load 0x0,0x63 0ffc e248 | H | Load 0x1,0x48 0ffd 0096 | | Execute Package,Entry 0ffe 029f 158b | | Declare_Subprogram INIT_1588,For_Call 1000 029f 15b3 | | Declare_Subprogram INIT_15b0,For_Call 1002 BODY_0ff0: 1002 00da | | Load_Top At_Offset_2 1003 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4 1004 0c64 | d | Execute_Immediate Greater_Equal,0x64 1005 e603 | | Load 0x3,0x3 1006 2e07 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7 1007 0d01 | | Execute_Immediate Less,0x1 1008 0278 | x | Execute Discrete,Or 1009 6802 |h | Jump_Zero 0x100c 100a 4801 |H | Short_Literal 0x1 100b a404 | | Store_Unchecked 0x2,0x4 100c e602 | | Load 0x3,0x2 100d e404 | | Load 0x2,0x4 100e e403 | | Load 0x2,0x3 100f e402 | | Load 0x2,0x2 1010 e5ff | | Load 0x2,-0x1 1011 825b | [ | Call 0x1,0x5b 1012 c404 | | Store 0x2,0x4 1013 c602 | | Store 0x3,0x2 1014 e404 | | Load 0x2,0x4 1015 6801 |h | Jump_Zero 0x1017 1016 8606 | | Call 0x3,0x6 1017 e404 | | Load 0x2,0x4 1018 0f00 | | Execute_Immediate Equal,0x0 1019 e602 | | Load 0x3,0x2 101a 8605 | | Call 0x3,0x5 101b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 101c 0000 0000 | | .BLANK 0000[0x4] 1020 ; -------------------------------------------------------------------------------------- 1020 ; SUBPROGRAM 1020 ; -------------------------------------------------------------------------------------- 1020 1039 | 9 | .CONST 0x1039 ; Address of begin 1021 0004 | | .CONST 0x0004 ; Address of exception handler 1022 0004 | | .CONST 0x0004 ; Number of locals 1023 INIT_1020: 1023 e026 | & | Load 0x0,0x26 1024 02ff | | Declare_Variable Variant_Record 1025 00d8 | | Load_Top At_Offset_0 1026 1c00 | | Execute_Immediate Run_Utility,0x0 1027 e5ff | | Load 0x2,-0x1 1028 0219 | | Execute Heap_Access,All_Read 1029 e028 | ( | Load 0x0,0x28 102a e248 | H | Load 0x1,0x48 102b 0096 | | Execute Package,Entry 102c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 102d 0007 | | Action Break_Optional 102e e005 | | Load 0x0,0x5 102f 00d9 | | Load_Top At_Offset_1 1030 4801 |H | Short_Literal 0x1 1031 e402 | | Load 0x2,0x2 1032 e063 | c | Load 0x0,0x63 1033 e248 | H | Load 0x1,0x48 1034 0096 | | Execute Package,Entry 1035 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3 1036 8016 | | Call 0x0,0x16 1037 8017 | | Call 0x0,0x17 1038 0031 | 1 | Store_Top Heap_Access,At_Offset_1 1039 BODY_1020: 1039 00d9 | | Load_Top At_Offset_1 103a 4810 |H | Short_Literal 0x10 103b 8027 | ' | Call 0x0,0x27 103c 00db | | Load_Top At_Offset_3 103d 016d | m | Execute Variant_Record,Structure_Write 103e 00da | | Load_Top At_Offset_2 103f 00d8 | | Load_Top At_Offset_0 1040 270a |' | Execute Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0xa 1041 00d8 | | Load_Top At_Offset_0 1042 00db | | Load_Top At_Offset_3 1043 00d9 | | Load_Top At_Offset_1 1044 2801 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x1 1045 00d1 | | Pop_Control Pop_Count_1 1046 00d0 | | Action Swap_Control 1047 2b0a |+ | Execute Variant_Record,Field_Write,Variant,Indirect,Field_Number 0xa 1048 00da | | Load_Top At_Offset_2 1049 e5fd | | Load 0x2,-0x3 104a 016d | m | Execute Variant_Record,Structure_Write 104b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 104c 0000 0000 | | .BLANK 0000[0x4] 1050 ; -------------------------------------------------------------------------------------- 1050 ; SUBPROGRAM 1050 ; -------------------------------------------------------------------------------------- 1050 1063 | c | .CONST 0x1063 ; Address of begin 1051 0004 | | .CONST 0x0004 ; Address of exception handler 1052 0003 | | .CONST 0x0003 ; Number of locals 1053 INIT_1050: 1053 e5fe | | Load 0x2,-0x2 1054 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 1055 00d8 | | Load_Top At_Offset_0 1056 00e4 | | Load_Encached Positive_Cache 1057 0260 | ` | Execute Discrete,In_Type 1058 7001 |p | Jump_Nonzero 0x105a 1059 0801 | | Execute_Immediate Raise,0x1 105a e5ff | | Load 0x2,-0x1 105b 0219 | | Execute Heap_Access,All_Read 105c e02c | , | Load 0x0,0x2c 105d e248 | H | Load 0x1,0x48 105e 0096 | | Execute Package,Entry 105f 00d8 | | Load_Top At_Offset_0 1060 e02d | - | Load 0x0,0x2d 1061 e248 | H | Load 0x1,0x48 1062 0096 | | Execute Package,Entry 1063 BODY_1050: 1063 00d8 | | Load_Top At_Offset_0 1064 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 1065 4800 |H | Short_Literal 0x0 1066 4802 |H | Short_Literal 0x2 1067 0262 | b | Execute Discrete,In_Range 1068 7005 |p | Jump_Nonzero 0x106e 1069 4800 |H | Short_Literal 0x0 106a 0092 184b | K| Action Push_String_Extended,0x184b ; "Deletion is not supported for coverage images" 106c 820e | | Call 0x1,0xe 106d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 106e 4800 |H | Short_Literal 0x0 106f 0092 184c | L| Action Push_String_Extended,0x184c ; "Delete not defined for this line" 1071 820e | | Call 0x1,0xe 1072 4501 |E | Exit_Suprogram New_Top_Offset 0x1 1073 0000 0000 | | .BLANK 0000[0x5] 1078 ; -------------------------------------------------------------------------------------- 1078 ; SUBPROGRAM 1078 ; -------------------------------------------------------------------------------------- 1078 107e | ~ | .CONST 0x107e ; Address of begin 1079 0004 | | .CONST 0x0004 ; Address of exception handler 107a 0002 | | .CONST 0x0002 ; Number of locals 107b INIT_1078: 107b 4801 |H | Short_Literal 0x1 107c e241 | A | Load 0x1,0x41 107d 1c08 | | Execute_Immediate Run_Utility,0x8 107e BODY_1078: 107e 00d8 | | Load_Top At_Offset_0 107f 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3 1080 e5fe | | Load 0x2,-0x2 1081 e5ff | | Load 0x2,-0x1 1082 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3 1083 803a | : | Call 0x0,0x3a 1084 00d9 | | Load_Top At_Offset_1 1085 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3 1086 00d8 | | Load_Top At_Offset_0 1087 e5fd | | Load 0x2,-0x3 1088 016d | m | Execute Variant_Record,Structure_Write 1089 4501 |E | Exit_Suprogram New_Top_Offset 0x1 108a 0000 0000 | | .BLANK 0000[0x6] 1090 ; -------------------------------------------------------------------------------------- 1090 ; SUBPROGRAM 1090 ; -------------------------------------------------------------------------------------- 1090 109b | | .CONST 0x109b ; Address of begin 1091 0004 | | .CONST 0x0004 ; Address of exception handler 1092 0003 | | .CONST 0x0003 ; Number of locals 1093 INIT_1090: 1093 e5ff | | Load 0x2,-0x1 1094 2e06 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6 1095 00e0 | | Load_Encached Standard_Cache 1096 1818 | | Execute Package,Field_Execute,Field_Number 0x18 1097 e5ff | | Load 0x2,-0x1 1098 2e07 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7 1099 00e0 | | Load_Encached Standard_Cache 109a 1818 | | Execute Package,Field_Execute,Field_Number 0x18 109b BODY_1090: 109b 4829 |H) | Short_Literal 0x29 109c 482f |H/ | Short_Literal 0x2f 109d e5ff | | Load 0x2,-0x1 109e 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 109f 8278 | x | Call 0x1,0x78 10a0 0092 1844 | D| Action Push_String_Extended,0x1844 ; " (" 10a2 01cc | | Execute Vector,Catenate 10a3 e602 | | Load 0x3,0x2 10a4 01dd | | Execute Vector,First 10a5 0a01 | | Execute_Immediate Plus,0x1 10a6 00d8 | | Load_Top At_Offset_0 10a7 00e2 | | Load_Encached Integer_Cache 10a8 0260 | ` | Execute Discrete,In_Type 10a9 7001 |p | Jump_Nonzero 0x10ab 10aa 0801 | | Execute_Immediate Raise,0x1 10ab e602 | | Load 0x3,0x2 10ac 01dc | | Execute Vector,Last 10ad e602 | | Load 0x3,0x2 10ae 01cf | | Execute Vector,Slice_Read 10af 01cc | | Execute Vector,Catenate 10b0 01cb | | Execute Vector,Append 10b1 00da | | Load_Top At_Offset_2 10b2 01dd | | Execute Vector,First 10b3 0a01 | | Execute_Immediate Plus,0x1 10b4 00d8 | | Load_Top At_Offset_0 10b5 00e2 | | Load_Encached Integer_Cache 10b6 0260 | ` | Execute Discrete,In_Type 10b7 7001 |p | Jump_Nonzero 0x10b9 10b8 0801 | | Execute_Immediate Raise,0x1 10b9 00db | | Load_Top At_Offset_3 10ba 01dc | | Execute Vector,Last 10bb e603 | | Load 0x3,0x3 10bc 01cf | | Execute Vector,Slice_Read 10bd 01cc | | Execute Vector,Catenate 10be 01cb | | Execute Vector,Append 10bf 00cb | | Action Pop_Block_With_Result 10c0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 10c1 0000 0000 | | .BLANK 0000[0x7] 10c8 ; -------------------------------------------------------------------------------------- 10c8 ; SUBPROGRAM 10c8 ; -------------------------------------------------------------------------------------- 10c8 10cb | | .CONST 0x10cb ; Address of begin 10c9 10d4 | | .CONST 0x10d4 ; Address of exception handler 10ca 0001 | | .CONST 0x0001 ; Number of locals 10cb BODY_10c8: 10cb INIT_10c8: 10cb 00da | | Load_Top At_Offset_2 10cc e7fe | | Load 0x3,-0x2 10cd 0273 | s | Execute Discrete,Plus 10ce 00d8 | | Load_Top At_Offset_0 10cf 00e3 | | Load_Encached Natural_Cache 10d0 0260 | ` | Execute Discrete,In_Type 10d1 7001 |p | Jump_Nonzero 0x10d3 10d2 0801 | | Execute_Immediate Raise,0x1 10d3 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 10d4 TRAP_10c8: 10d4 010e | | Execute Exception,Is_Constraint_Error 10d5 7002 |p | Jump_Nonzero 0x10d8 10d6 010d | | Execute Exception,Is_Numeric_Error 10d7 6802 |h | Jump_Zero 0x10da 10d8 4800 |H | Short_Literal 0x0 10d9 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 10da 0100 | | Execute Exception,Raise 10db 0000 0000 | | .BLANK 0000[0x5] 10e0 ; -------------------------------------------------------------------------------------- 10e0 ; SUBPROGRAM 10e0 ; -------------------------------------------------------------------------------------- 10e0 10eb | | .CONST 0x10eb ; Address of begin 10e1 0004 | | .CONST 0x0004 ; Address of exception handler 10e2 0004 | | .CONST 0x0004 ; Number of locals 10e3 INIT_10e0: 10e3 e065 | e | Load 0x0,0x65 10e4 0007 | | Action Break_Optional 10e5 e066 | f | Load 0x0,0x66 10e6 0322 | " | Declare_Variable Record 10e7 00d8 | | Load_Top At_Offset_0 10e8 1c00 | | Execute_Immediate Run_Utility,0x0 10e9 029f 15db | | Declare_Subprogram INIT_15d8,For_Call 10eb BODY_10e0: 10eb e065 | e | Load 0x0,0x65 10ec e7ff | | Load 0x3,-0x1 10ed 806f | o | Call 0x0,0x6f 10ee 003b | ; | Store_Top Access,At_Offset_3 10ef 00cf | | Action Mark_Auxiliary 10f0 780c |x | Jump 0x10fd 10f1 00db | | Load_Top At_Offset_3 10f2 8070 | p | Call 0x0,0x70 10f3 00db | | Load_Top At_Offset_3 10f4 017d | } | Execute Record,Structure_Write 10f5 00da | | Load_Top At_Offset_2 10f6 8071 | q | Call 0x0,0x71 10f7 7001 |p | Jump_Nonzero 0x10f9 10f8 8604 | | Call 0x3,0x4 10f9 00db | | Load_Top At_Offset_3 10fa 8072 | r | Call 0x0,0x72 10fb c602 | | Store 0x3,0x2 10fc 00c9 | | Action Pop_Auxiliary_Loop 10fd 00db | | Load_Top At_Offset_3 10fe 8073 | s | Call 0x0,0x73 10ff 6ff1 |o | Jump_Zero 0x10f1 1100 4502 |E | Exit_Suprogram New_Top_Offset 0x2 1101 0000 0000 | | .BLANK 0000[0x7] 1108 ; -------------------------------------------------------------------------------------- 1108 ; SUBPROGRAM 1108 ; -------------------------------------------------------------------------------------- 1108 110b | | .CONST 0x110b ; Address of begin 1109 0004 | | .CONST 0x0004 ; Address of exception handler 110a 0001 | | .CONST 0x0001 ; Number of locals 110b BODY_1108: 110b INIT_1108: 110b e414 | | Load 0x2,0x14 110c 6805 |h | Jump_Zero 0x1112 110d e410 | | Load 0x2,0x10 110e 00db | | Load_Top At_Offset_3 110f 841b | | Call 0x2,0x1b 1110 00d1 | | Pop_Control Pop_Count_1 1111 7808 |x | Jump 0x111a 1112 00da | | Load_Top At_Offset_2 1113 8074 | t | Call 0x0,0x74 1114 e410 | | Load 0x2,0x10 1115 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 1116 00da | | Load_Top At_Offset_2 1117 8075 | u | Call 0x0,0x75 1118 e410 | | Load 0x2,0x10 1119 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 111a 00da | | Load_Top At_Offset_2 111b 8076 | v | Call 0x0,0x76 111c e410 | | Load 0x2,0x10 111d 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 111e 00da | | Load_Top At_Offset_2 111f 8077 | w | Call 0x0,0x77 1120 e410 | | Load 0x2,0x10 1121 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 1122 e410 | | Load 0x2,0x10 1123 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 1124 e40e | | Load 0x2,0xe 1125 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 1126 841a | | Call 0x2,0x1a 1127 e40e | | Load 0x2,0xe 1128 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 1129 e410 | | Load 0x2,0x10 112a 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 112b e40e | | Load 0x2,0xe 112c 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 112d 841a | | Call 0x2,0x1a 112e e40e | | Load 0x2,0xe 112f 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 1130 e410 | | Load 0x2,0x10 1131 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 1132 e40f | | Load 0x2,0xf 1133 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 1134 841a | | Call 0x2,0x1a 1135 e40f | | Load 0x2,0xf 1136 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 1137 e410 | | Load 0x2,0x10 1138 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 1139 e40f | | Load 0x2,0xf 113a 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 113b 841a | | Call 0x2,0x1a 113c e40f | | Load 0x2,0xf 113d 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 113e e410 | | Load 0x2,0x10 113f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 1140 e40f | | Load 0x2,0xf 1141 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 1142 841a | | Call 0x2,0x1a 1143 e40f | | Load 0x2,0xf 1144 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 1145 e410 | | Load 0x2,0x10 1146 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 1147 e40f | | Load 0x2,0xf 1148 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 1149 841a | | Call 0x2,0x1a 114a e40f | | Load 0x2,0xf 114b 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 114c e410 | | Load 0x2,0x10 114d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 114e e40e | | Load 0x2,0xe 114f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 1150 841a | | Call 0x2,0x1a 1151 e40e | | Load 0x2,0xe 1152 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 1153 e410 | | Load 0x2,0x10 1154 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 1155 e40e | | Load 0x2,0xe 1156 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 1157 841a | | Call 0x2,0x1a 1158 e40e | | Load 0x2,0xe 1159 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 115a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 115b 0000 0000 | | .BLANK 0000[0x5] 1160 ; -------------------------------------------------------------------------------------- 1160 ; SUBPROGRAM 1160 ; -------------------------------------------------------------------------------------- 1160 1165 | e | .CONST 0x1165 ; Address of begin 1161 0004 | | .CONST 0x0004 ; Address of exception handler 1162 0002 | | .CONST 0x0002 ; Number of locals 1163 INIT_1160: 1163 029f 1613 | | Declare_Subprogram INIT_1610,For_Call 1165 BODY_1160: 1165 4800 |H | Short_Literal 0x0 1166 a7fc | | Store_Unchecked 0x3,-0x4 1167 e419 | | Load 0x2,0x19 1168 7001 |p | Jump_Nonzero 0x116a 1169 4502 |E | Exit_Suprogram New_Top_Offset 0x2 116a 8602 | | Call 0x3,0x2 116b 4502 |E | Exit_Suprogram New_Top_Offset 0x2 116c 0000 0000 | | .BLANK 0000[0x4] 1170 ; -------------------------------------------------------------------------------------- 1170 ; SUBPROGRAM 1170 ; -------------------------------------------------------------------------------------- 1170 117b | { | .CONST 0x117b ; Address of begin 1171 0004 | | .CONST 0x0004 ; Address of exception handler 1172 0004 | | .CONST 0x0004 ; Number of locals 1173 INIT_1170: 1173 00da | | Load_Top At_Offset_2 1174 e23e | > | Load 0x1,0x3e 1175 1c08 | | Execute_Immediate Run_Utility,0x8 1176 00d8 | | Load_Top At_Offset_0 1177 1c00 | | Execute_Immediate Run_Utility,0x0 1178 00e1 | | Load_Encached Boolean_Cache 1179 029f 169b | | Declare_Subprogram INIT_1698,For_Call 117b BODY_1170: 117b 00d9 | | Load_Top At_Offset_1 117c e7fd | | Load 0x3,-0x3 117d e7fe | | Load 0x3,-0x2 117e e7ff | | Load 0x3,-0x1 117f 841d | | Call 0x2,0x1d 1180 00d2 | | Pop_Control Pop_Count_2 1181 005a | Z | Store_Top Discrete,At_Offset_2 1182 00d9 | | Load_Top At_Offset_1 1183 7001 |p | Jump_Nonzero 0x1185 1184 8604 | | Call 0x3,0x4 1185 00d9 | | Load_Top At_Offset_1 1186 a415 | | Store_Unchecked 0x2,0x15 1187 4502 |E | Exit_Suprogram New_Top_Offset 0x2 1188 ; -------------------------------------------------------------------------------------- 1188 ; SUBPROGRAM 1188 ; -------------------------------------------------------------------------------------- 1188 1194 | | .CONST 0x1194 ; Address of begin 1189 0004 | | .CONST 0x0004 ; Address of exception handler 118a 0003 | | .CONST 0x0003 ; Number of locals 118b INIT_1188: 118b 00db | | Load_Top At_Offset_3 118c e02d | - | Load 0x0,0x2d 118d e248 | H | Load 0x1,0x48 118e 0096 | | Execute Package,Entry 118f 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 1190 e23c | < | Load 0x1,0x3c 1191 03f1 | | Declare_Variable Discrete,With_Value 1192 029f 171b | | Declare_Subprogram INIT_1718,For_Call 1194 BODY_1188: 1194 e419 | | Load 0x2,0x19 1195 0f00 | | Execute_Immediate Equal,0x0 1196 e415 | | Load 0x2,0x15 1197 0278 | x | Execute Discrete,Or 1198 6808 |h | Jump_Zero 0x11a1 1199 00cf | | Action Mark_Auxiliary 119a 4803 |H | Short_Literal 0x3 119b 4802 |H | Short_Literal 0x2 119c 0007 | | Action Break_Optional 119d 8603 | | Call 0x3,0x3 119e 00c8 | | Action Pop_Auxiliary_Range 119f 3ffd |? | Loop_Increasing 0x119d 11a0 00ce | | Action Pop_Auxiliary 11a1 4502 |E | Exit_Suprogram New_Top_Offset 0x2 11a2 0000 0000 | | .BLANK 0000[0x6] 11a8 ; -------------------------------------------------------------------------------------- 11a8 ; SUBPROGRAM 11a8 ; -------------------------------------------------------------------------------------- 11a8 11b3 | | .CONST 0x11b3 ; Address of begin 11a9 0004 | | .CONST 0x0004 ; Address of exception handler 11aa 0004 | | .CONST 0x0004 ; Number of locals 11ab INIT_11a8: 11ab e065 | e | Load 0x0,0x65 11ac 0007 | | Action Break_Optional 11ad e066 | f | Load 0x0,0x66 11ae 0322 | " | Declare_Variable Record 11af 00d8 | | Load_Top At_Offset_0 11b0 1c00 | | Execute_Immediate Run_Utility,0x0 11b1 e078 | x | Load 0x0,0x78 11b2 0007 | | Action Break_Optional 11b3 BODY_11a8: 11b3 e065 | e | Load 0x0,0x65 11b4 e7ff | | Load 0x3,-0x1 11b5 806f | o | Call 0x0,0x6f 11b6 003b | ; | Store_Top Access,At_Offset_3 11b7 00cf | | Action Mark_Auxiliary 11b8 781a |x | Jump 0x11d3 11b9 00db | | Load_Top At_Offset_3 11ba 8070 | p | Call 0x0,0x70 11bb 00db | | Load_Top At_Offset_3 11bc 017d | } | Execute Record,Structure_Write 11bd 00da | | Load_Top At_Offset_2 11be 8071 | q | Call 0x0,0x71 11bf 700f |p | Jump_Nonzero 0x11cf 11c0 00da | | Load_Top At_Offset_2 11c1 8079 | y | Call 0x0,0x79 11c2 00db | | Load_Top At_Offset_3 11c3 807a | z | Call 0x0,0x7a 11c4 0278 | x | Execute Discrete,Or 11c5 6809 |h | Jump_Zero 0x11cf 11c6 00d9 | | Load_Top At_Offset_1 11c7 e5fb | | Load 0x2,-0x5 11c8 e603 | | Load 0x3,0x3 11c9 807b | { | Call 0x0,0x7b 11ca 0032 | 2 | Store_Top Heap_Access,At_Offset_2 11cb e24f | O | Load 0x1,0x4f 11cc 00da | | Load_Top At_Offset_2 11cd 807c | | | Call 0x0,0x7c 11ce c24f | O | Store 0x1,0x4f 11cf 00db | | Load_Top At_Offset_3 11d0 8072 | r | Call 0x0,0x72 11d1 c602 | | Store 0x3,0x2 11d2 00c9 | | Action Pop_Auxiliary_Loop 11d3 00db | | Load_Top At_Offset_3 11d4 8073 | s | Call 0x0,0x73 11d5 6fe3 |o | Jump_Zero 0x11b9 11d6 4502 |E | Exit_Suprogram New_Top_Offset 0x2 11d7 0000 | | .XXX[0x1] 11d8 ; -------------------------------------------------------------------------------------- 11d8 ; SUBPROGRAM 11d8 ; -------------------------------------------------------------------------------------- 11d8 11dd | | .CONST 0x11dd ; Address of begin 11d9 0004 | | .CONST 0x0004 ; Address of exception handler 11da 0003 | | .CONST 0x0003 ; Number of locals 11db INIT_11d8: 11db 00e3 | | Load_Encached Natural_Cache 11dc 03e9 | | Declare_Variable Discrete,Duplicate 11dd BODY_11d8: 11dd 00d8 | | Load_Top At_Offset_0 11de 00da | | Load_Top At_Offset_2 11df e410 | | Load 0x2,0x10 11e0 e40a | | Load 0x2,0xa 11e1 e40d | | Load 0x2,0xd 11e2 e40c | | Load 0x2,0xc 11e3 e413 | | Load 0x2,0x13 11e4 e5ff | | Load 0x2,-0x1 11e5 8279 | y | Call 0x1,0x79 11e6 00d1 | | Pop_Control Pop_Count_1 11e7 005b | [ | Store_Top Discrete,At_Offset_3 11e8 0059 | Y | Store_Top Discrete,At_Offset_1 11e9 00d9 | | Load_Top At_Offset_1 11ea 0c01 | | Execute_Immediate Greater_Equal,0x1 11eb 680e |h | Jump_Zero 0x11fa 11ec e40f | | Load 0x2,0xf 11ed 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 11ee 00da | | Load_Top At_Offset_2 11ef 0273 | s | Execute Discrete,Plus 11f0 e40f | | Load 0x2,0xf 11f1 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 11f2 e40e | | Load 0x2,0xe 11f3 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 11f4 00da | | Load_Top At_Offset_2 11f5 0273 | s | Execute Discrete,Plus 11f6 e40e | | Load 0x2,0xe 11f7 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 11f8 4801 |H | Short_Literal 0x1 11f9 a415 | | Store_Unchecked 0x2,0x15 11fa 00d8 | | Load_Top At_Offset_0 11fb 0c01 | | Execute_Immediate Greater_Equal,0x1 11fc 680e |h | Jump_Zero 0x120b 11fd e40f | | Load 0x2,0xf 11fe 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 11ff 00d9 | | Load_Top At_Offset_1 1200 0273 | s | Execute Discrete,Plus 1201 e40f | | Load 0x2,0xf 1202 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 1203 e40e | | Load 0x2,0xe 1204 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 1205 00d9 | | Load_Top At_Offset_1 1206 0273 | s | Execute Discrete,Plus 1207 e40e | | Load 0x2,0xe 1208 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 1209 4801 |H | Short_Literal 0x1 120a a415 | | Store_Unchecked 0x2,0x15 120b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 120c 0000 0000 | | .BLANK 0000[0x4] 1210 ; -------------------------------------------------------------------------------------- 1210 ; SUBPROGRAM 1210 ; -------------------------------------------------------------------------------------- 1210 121e | | .CONST 0x121e ; Address of begin 1211 0004 | | .CONST 0x0004 ; Address of exception handler 1212 0002 | | .CONST 0x0002 ; Number of locals 1213 INIT_1210: 1213 e23e | > | Load 0x1,0x3e 1214 02ff | | Declare_Variable Variant_Record 1215 e402 | | Load 0x2,0x2 1216 e038 | 8 | Load 0x0,0x38 1217 e248 | H | Load 0x1,0x48 1218 0096 | | Execute Package,Entry 1219 e02d | - | Load 0x0,0x2d 121a e248 | H | Load 0x1,0x48 121b 0096 | | Execute Package,Entry 121c 00d9 | | Load_Top At_Offset_1 121d 016d | m | Execute Variant_Record,Structure_Write 121e BODY_1210: 121e 00d8 | | Load_Top At_Offset_0 121f 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 1220 e5fe | | Load 0x2,-0x2 1221 027f | | Execute Discrete,Equal 1222 680b |h | Jump_Zero 0x122e 1223 00d8 | | Load_Top At_Offset_0 1224 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 1225 e5fd | | Load 0x2,-0x3 1226 027e | ~ | Execute Discrete,Not_Equal 1227 6806 |h | Jump_Zero 0x122e 1228 e5fd | | Load 0x2,-0x3 1229 e402 | | Load 0x2,0x2 122a e038 | 8 | Load 0x0,0x38 122b e248 | H | Load 0x1,0x48 122c 0096 | | Execute Package,Entry 122d 8277 | w | Call 0x1,0x77 122e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 122f 0000 | | .XXX[0x1] 1230 ; -------------------------------------------------------------------------------------- 1230 ; SUBPROGRAM 1230 ; -------------------------------------------------------------------------------------- 1230 1245 | E | .CONST 0x1245 ; Address of begin 1231 0004 | | .CONST 0x0004 ; Address of exception handler 1232 0003 | | .CONST 0x0003 ; Number of locals 1233 INIT_1230: 1233 e241 | A | Load 0x1,0x41 1234 02ff | | Declare_Variable Variant_Record 1235 4802 |H | Short_Literal 0x2 1236 e403 | | Load 0x2,0x3 1237 e063 | c | Load 0x0,0x63 1238 e248 | H | Load 0x1,0x48 1239 0096 | | Execute Package,Entry 123a 00d9 | | Load_Top At_Offset_1 123b 016d | m | Execute Variant_Record,Structure_Write 123c e241 | A | Load 0x1,0x41 123d 02ff | | Declare_Variable Variant_Record 123e 4803 |H | Short_Literal 0x3 123f e403 | | Load 0x2,0x3 1240 e063 | c | Load 0x0,0x63 1241 e248 | H | Load 0x1,0x48 1242 0096 | | Execute Package,Entry 1243 00d9 | | Load_Top At_Offset_1 1244 016d | m | Execute Variant_Record,Structure_Write 1245 BODY_1230: 1245 e5fe | | Load 0x2,-0x2 1246 6830 |h0 | Jump_Zero 0x1277 1247 00d8 | | Load_Top At_Offset_0 1248 2605 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x5 1249 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 124a 6816 |h | Jump_Zero 0x1261 124b 6070 |`p | Indirect_Literal Discrete,0x12bc,{0x00000000, 0x00320000} 124c 00d9 | | Load_Top At_Offset_1 124d 2605 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x5 124e 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 124f 0271 | q | Execute Discrete,Times 1250 00d9 | | Load_Top At_Offset_1 1251 2605 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x5 1252 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 1253 0270 | p | Execute Discrete,Divide 1254 00d8 | | Load_Top At_Offset_0 1255 0c00 | | Execute_Immediate Greater_Equal,0x0 1256 7002 |p | Jump_Nonzero 0x1259 1257 6060 |`` | Indirect_Literal Discrete,0x12b8,{0xffffffff, 0xffffc000} 1258 7801 |x | Jump 0x125a 1259 605a |`Z | Indirect_Literal Discrete,0x12b4,{0x00000000, 0x00004000} 125a 0273 | s | Execute Discrete,Plus 125b 09f1 | | Execute_Immediate Binary_Scale,-0xf 125c 00e3 | | Load_Encached Natural_Cache 125d 025e | ^ | Execute Discrete,Convert 125e 00da | | Load_Top At_Offset_2 125f 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4 1260 780b |x | Jump 0x126c 1261 00d8 | | Load_Top At_Offset_0 1262 2605 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x5 1263 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 1264 7004 |p | Jump_Nonzero 0x1269 1265 4865 |He | Short_Literal 0x65 1266 00da | | Load_Top At_Offset_2 1267 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4 1268 7803 |x | Jump 0x126c 1269 4800 |H | Short_Literal 0x0 126a 00da | | Load_Top At_Offset_2 126b 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4 126c 00d8 | | Load_Top At_Offset_0 126d 2605 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x5 126e 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 126f 00d9 | | Load_Top At_Offset_1 1270 2a06 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6 1271 00d8 | | Load_Top At_Offset_0 1272 2605 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x5 1273 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 1274 00d9 | | Load_Top At_Offset_1 1275 2a07 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x7 1276 782f |x/ | Jump 0x12a6 1277 00d8 | | Load_Top At_Offset_0 1278 2605 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x5 1279 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 127a 6816 |h | Jump_Zero 0x1291 127b 6040 |`@ | Indirect_Literal Discrete,0x12bc,{0x00000000, 0x00320000} 127c 00d9 | | Load_Top At_Offset_1 127d 2605 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x5 127e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 127f 0271 | q | Execute Discrete,Times 1280 00d9 | | Load_Top At_Offset_1 1281 2605 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x5 1282 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 1283 0270 | p | Execute Discrete,Divide 1284 00d8 | | Load_Top At_Offset_0 1285 0c00 | | Execute_Immediate Greater_Equal,0x0 1286 7002 |p | Jump_Nonzero 0x1289 1287 6030 |`0 | Indirect_Literal Discrete,0x12b8,{0xffffffff, 0xffffc000} 1288 7801 |x | Jump 0x128a 1289 602a |`* | Indirect_Literal Discrete,0x12b4,{0x00000000, 0x00004000} 128a 0273 | s | Execute Discrete,Plus 128b 09f1 | | Execute_Immediate Binary_Scale,-0xf 128c 00e3 | | Load_Encached Natural_Cache 128d 025e | ^ | Execute Discrete,Convert 128e 00da | | Load_Top At_Offset_2 128f 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4 1290 780b |x | Jump 0x129c 1291 00d8 | | Load_Top At_Offset_0 1292 2605 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x5 1293 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 1294 7004 |p | Jump_Nonzero 0x1299 1295 4865 |He | Short_Literal 0x65 1296 00da | | Load_Top At_Offset_2 1297 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4 1298 7803 |x | Jump 0x129c 1299 4800 |H | Short_Literal 0x0 129a 00da | | Load_Top At_Offset_2 129b 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4 129c 00d8 | | Load_Top At_Offset_0 129d 2605 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x5 129e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 129f 00d9 | | Load_Top At_Offset_1 12a0 2a06 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6 12a1 00d8 | | Load_Top At_Offset_0 12a2 2605 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x5 12a3 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 12a4 00d9 | | Load_Top At_Offset_1 12a5 2a07 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x7 12a6 00d9 | | Load_Top At_Offset_1 12a7 4802 |H | Short_Literal 0x2 12a8 e403 | | Load 0x2,0x3 12a9 e07d | } | Load 0x0,0x7d 12aa e248 | H | Load 0x1,0x48 12ab 0096 | | Execute Package,Entry 12ac 00d8 | | Load_Top At_Offset_0 12ad 4803 |H | Short_Literal 0x3 12ae e403 | | Load 0x2,0x3 12af e07d | } | Load 0x0,0x7d 12b0 e248 | H | Load 0x1,0x48 12b1 0096 | | Execute Package,Entry 12b2 4501 |E | Exit_Suprogram New_Top_Offset 0x1 12b3 0000 | | .XXX[0x1] 12b4 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 12b8 ffff ffff | | .LITERAL {0xffffffff, 0xffffc000} 12bc 0000 0000 | | .LITERAL {0x00000000, 0x00320000} 12c0 ; -------------------------------------------------------------------------------------- 12c0 ; SUBPROGRAM 12c0 ; -------------------------------------------------------------------------------------- 12c0 12c7 | | .CONST 0x12c7 ; Address of begin 12c1 0004 | | .CONST 0x0004 ; Address of exception handler 12c2 0003 | | .CONST 0x0003 ; Number of locals 12c3 INIT_12c0: 12c3 e07e | ~ | Load 0x0,0x7e 12c4 0007 | | Action Break_Optional 12c5 e005 | | Load 0x0,0x5 12c6 0007 | | Action Break_Optional 12c7 BODY_12c0: 12c7 e07e | ~ | Load 0x0,0x7e 12c8 e7ff | | Load 0x3,-0x1 12c9 807f | | Call 0x0,0x7f 12ca 003a | : | Store_Top Access,At_Offset_2 12cb 00cf | | Action Mark_Auxiliary 12cc 7813 |x | Jump 0x12e0 12cd 00da | | Load_Top At_Offset_2 12ce 8080 | | Call 0x0,0x80 12cf 0032 | 2 | Store_Top Heap_Access,At_Offset_2 12d0 e409 | | Load 0x2,0x9 12d1 802a | * | Call 0x0,0x2a 12d2 e03b | ; | Load 0x0,0x3b 12d3 1814 | | Execute Package,Field_Execute,Field_Number 0x14 12d4 00da | | Load_Top At_Offset_2 12d5 802a | * | Call 0x0,0x2a 12d6 e03b | ; | Load 0x0,0x3b 12d7 1814 | | Execute Package,Field_Execute,Field_Number 0x14 12d8 01df | | Execute Vector,Equal 12d9 6802 |h | Jump_Zero 0x12dc 12da 4801 |H | Short_Literal 0x1 12db 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 12dc 00da | | Load_Top At_Offset_2 12dd 8081 | | Call 0x0,0x81 12de 003b | ; | Store_Top Access,At_Offset_3 12df 00c9 | | Action Pop_Auxiliary_Loop 12e0 00da | | Load_Top At_Offset_2 12e1 8082 | | Call 0x0,0x82 12e2 6fea |o | Jump_Zero 0x12cd 12e3 00ce | | Action Pop_Auxiliary 12e4 4800 |H | Short_Literal 0x0 12e5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 12e6 0000 0000 | | .XXX[0x2] 12e8 ; -------------------------------------------------------------------------------------- 12e8 ; SUBPROGRAM 12e8 ; -------------------------------------------------------------------------------------- 12e8 12f3 | | .CONST 0x12f3 ; Address of begin 12e9 0004 | | .CONST 0x0004 ; Address of exception handler 12ea 0004 | | .CONST 0x0004 ; Number of locals 12eb INIT_12e8: 12eb e065 | e | Load 0x0,0x65 12ec 0007 | | Action Break_Optional 12ed e066 | f | Load 0x0,0x66 12ee 0322 | " | Declare_Variable Record 12ef 00d8 | | Load_Top At_Offset_0 12f0 1c00 | | Execute_Immediate Run_Utility,0x0 12f1 029f 177b | {| Declare_Subprogram INIT_1778,For_Call 12f3 BODY_12e8: 12f3 e065 | e | Load 0x0,0x65 12f4 e7ff | | Load 0x3,-0x1 12f5 806f | o | Call 0x0,0x6f 12f6 003b | ; | Store_Top Access,At_Offset_3 12f7 00cf | | Action Mark_Auxiliary 12f8 7814 |x | Jump 0x130d 12f9 00db | | Load_Top At_Offset_3 12fa 8070 | p | Call 0x0,0x70 12fb 00db | | Load_Top At_Offset_3 12fc 017d | } | Execute Record,Structure_Write 12fd 00da | | Load_Top At_Offset_2 12fe 8079 | y | Call 0x0,0x79 12ff e412 | | Load 0x2,0x12 1300 0279 | y | Execute Discrete,And 1301 00db | | Load_Top At_Offset_3 1302 807a | z | Call 0x0,0x7a 1303 e412 | | Load 0x2,0x12 1304 0f00 | | Execute_Immediate Equal,0x0 1305 0279 | y | Execute Discrete,And 1306 0278 | x | Execute Discrete,Or 1307 6801 |h | Jump_Zero 0x1309 1308 8604 | | Call 0x3,0x4 1309 00db | | Load_Top At_Offset_3 130a 8072 | r | Call 0x0,0x72 130b c602 | | Store 0x3,0x2 130c 00c9 | | Action Pop_Auxiliary_Loop 130d 00db | | Load_Top At_Offset_3 130e 8073 | s | Call 0x0,0x73 130f 6fe9 |o | Jump_Zero 0x12f9 1310 4502 |E | Exit_Suprogram New_Top_Offset 0x2 1311 0000 0000 | | .BLANK 0000[0x7] 1318 ; -------------------------------------------------------------------------------------- 1318 ; SUBPROGRAM 1318 ; -------------------------------------------------------------------------------------- 1318 131f | | .CONST 0x131f ; Address of begin 1319 0004 | | .CONST 0x0004 ; Address of exception handler 131a 0003 | | .CONST 0x0003 ; Number of locals 131b INIT_1318: 131b e083 | | Load 0x0,0x83 131c 0007 | | Action Break_Optional 131d e078 | x | Load 0x0,0x78 131e 0007 | | Action Break_Optional 131f BODY_1318: 131f e083 | | Load 0x0,0x83 1320 e406 | | Load 0x2,0x6 1321 8084 | | Call 0x0,0x84 1322 0032 | 2 | Store_Top Heap_Access,At_Offset_2 1323 00cf | | Action Mark_Auxiliary 1324 780f |x | Jump 0x1334 1325 00da | | Load_Top At_Offset_2 1326 8085 | | Call 0x0,0x85 1327 0032 | 2 | Store_Top Heap_Access,At_Offset_2 1328 00d9 | | Load_Top At_Offset_1 1329 e407 | | Load 0x2,0x7 132a 8086 | | Call 0x0,0x86 132b 7004 |p | Jump_Nonzero 0x1330 132c e405 | | Load 0x2,0x5 132d 00da | | Load_Top At_Offset_2 132e 807c | | | Call 0x0,0x7c 132f c405 | | Store 0x2,0x5 1330 00da | | Load_Top At_Offset_2 1331 8087 | | Call 0x0,0x87 1332 0033 | 3 | Store_Top Heap_Access,At_Offset_3 1333 00c9 | | Action Pop_Auxiliary_Loop 1334 00da | | Load_Top At_Offset_2 1335 8088 | | Call 0x0,0x88 1336 6fee |o | Jump_Zero 0x1325 1337 4501 |E | Exit_Suprogram New_Top_Offset 0x1 1338 ; -------------------------------------------------------------------------------------- 1338 ; SUBPROGRAM 1338 ; -------------------------------------------------------------------------------------- 1338 1346 | F | .CONST 0x1346 ; Address of begin 1339 0004 | | .CONST 0x0004 ; Address of exception handler 133a 0005 | | .CONST 0x0005 ; Number of locals 133b INIT_1338: 133b e083 | | Load 0x0,0x83 133c 0007 | | Action Break_Optional 133d e078 | x | Load 0x0,0x78 133e 0007 | | Action Break_Optional 133f e089 | | Load 0x0,0x89 1340 0007 | | Action Break_Optional 1341 e08a | | Load 0x0,0x8a 1342 1b0f | | Execute Package,Field_Read,Field_Number 0xf 1343 02c7 | | Declare_Variable Any 1344 00d8 | | Load_Top At_Offset_0 1345 1c00 | | Execute_Immediate Run_Utility,0x0 1346 BODY_1338: 1346 e083 | | Load 0x0,0x83 1347 e405 | | Load 0x2,0x5 1348 8084 | | Call 0x0,0x84 1349 c602 | | Store 0x3,0x2 134a 00cf | | Action Mark_Auxiliary 134b 7818 |x | Jump 0x1364 134c e602 | | Load 0x3,0x2 134d 8085 | | Call 0x0,0x85 134e a603 | | Store_Unchecked 0x3,0x3 134f 00d9 | | Load_Top At_Offset_1 1350 e089 | | Load 0x0,0x89 1351 0092 184d | M| Action Push_String_Extended,0x184d ; "<DEFAULT>" 1353 e603 | | Load 0x3,0x3 1354 808b | | Call 0x0,0x8b 1355 808c | | Call 0x0,0x8c 1356 c604 | | Store 0x3,0x4 1357 c605 | | Store 0x3,0x5 1358 e402 | | Load 0x2,0x2 1359 00db | | Load_Top At_Offset_3 135a 808d | | Call 0x0,0x8d 135b 00eb | | Load_Encached Diana_Cache 135c 1874 | t | Execute Package,Field_Execute,Field_Number 0x74 135d a402 | | Store_Unchecked 0x2,0x2 135e 4800 |H | Short_Literal 0x0 135f a5fc | | Store_Unchecked 0x2,-0x4 1360 e602 | | Load 0x3,0x2 1361 8087 | | Call 0x0,0x87 1362 c602 | | Store 0x3,0x2 1363 00c9 | | Action Pop_Auxiliary_Loop 1364 e602 | | Load 0x3,0x2 1365 8088 | | Call 0x0,0x88 1366 6fe5 |o | Jump_Zero 0x134c 1367 4501 |E | Exit_Suprogram New_Top_Offset 0x1 1368 ; -------------------------------------------------------------------------------------- 1368 ; SUBPROGRAM 1368 ; -------------------------------------------------------------------------------------- 1368 137a | z | .CONST 0x137a ; Address of begin 1369 13b0 | | .CONST 0x13b0 ; Address of exception handler 136a 0006 | | .CONST 0x0006 ; Number of locals 136b INIT_1368: 136b e065 | e | Load 0x0,0x65 136c 0007 | | Action Break_Optional 136d e066 | f | Load 0x0,0x66 136e 0322 | " | Declare_Variable Record 136f 00d8 | | Load_Top At_Offset_0 1370 1c00 | | Execute_Immediate Run_Utility,0x0 1371 e089 | | Load 0x0,0x89 1372 0007 | | Action Break_Optional 1373 e08a | | Load 0x0,0x8a 1374 1b0f | | Execute Package,Field_Read,Field_Number 0xf 1375 02c7 | | Declare_Variable Any 1376 00d8 | | Load_Top At_Offset_0 1377 1c00 | | Execute_Immediate Run_Utility,0x0 1378 029f 17a3 | | Declare_Subprogram INIT_17a0,For_Call 137a BODY_1368: 137a e5fe | | Load 0x2,-0x2 137b 8260 | ` | Call 0x1,0x60 137c a411 | | Store_Unchecked 0x2,0x11 137d e411 | | Load 0x2,0x11 137e e404 | | Load 0x2,0x4 137f 0217 | | Execute Heap_Access,All_Reference 1380 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 1381 804e | N | Call 0x0,0x4e 1382 a40d | | Store_Unchecked 0x2,0xd 1383 e5fe | | Load 0x2,-0x2 1384 8263 | c | Call 0x1,0x63 1385 a410 | | Store_Unchecked 0x2,0x10 1386 e410 | | Load 0x2,0x10 1387 e40d | | Load 0x2,0xd 1388 8052 | R | Call 0x0,0x52 1389 a40e | | Store_Unchecked 0x2,0xe 138a e5fd | | Load 0x2,-0x3 138b 0f04 | | Execute_Immediate Equal,0x4 138c 6802 |h | Jump_Zero 0x138f 138d 8606 | | Call 0x3,0x6 138e 7806 |x | Jump 0x1395 138f e5fe | | Load 0x2,-0x2 1390 8265 | e | Call 0x1,0x65 1391 e40e | | Load 0x2,0xe 1392 8055 | U | Call 0x0,0x55 1393 e40f | | Load 0x2,0xf 1394 017d | } | Execute Record,Structure_Write 1395 e065 | e | Load 0x0,0x65 1396 e40f | | Load 0x2,0xf 1397 806f | o | Call 0x0,0x6f 1398 c602 | | Store 0x3,0x2 1399 e602 | | Load 0x3,0x2 139a 8073 | s | Call 0x0,0x73 139b 7013 |p | Jump_Nonzero 0x13af 139c e602 | | Load 0x3,0x2 139d 8070 | p | Call 0x0,0x70 139e e603 | | Load 0x3,0x3 139f 017d | } | Execute Record,Structure_Write 13a0 00d9 | | Load_Top At_Offset_1 13a1 e089 | | Load 0x0,0x89 13a2 0092 184d | M| Action Push_String_Extended,0x184d ; "<DEFAULT>" 13a4 e603 | | Load 0x3,0x3 13a5 808e | | Call 0x0,0x8e 13a6 808c | | Call 0x0,0x8c 13a7 c604 | | Store 0x3,0x4 13a8 c605 | | Store 0x3,0x5 13a9 e402 | | Load 0x2,0x2 13aa 00db | | Load_Top At_Offset_3 13ab 808d | | Call 0x0,0x8d 13ac 00eb | | Load_Encached Diana_Cache 13ad 1874 | t | Execute Package,Field_Execute,Field_Number 0x74 13ae a402 | | Store_Unchecked 0x2,0x2 13af 4501 |E | Exit_Suprogram New_Top_Offset 0x1 13b0 TRAP_1368: 13b0 e08f | | Load 0x0,0x8f 13b1 010f | | Execute Exception,Equal 13b2 7006 |p | Jump_Nonzero 0x13b9 13b3 e090 | | Load 0x0,0x90 13b4 010f | | Execute Exception,Equal 13b5 7003 |p | Jump_Nonzero 0x13b9 13b6 e091 | | Load 0x0,0x91 13b7 010f | | Execute Exception,Equal 13b8 6801 |h | Jump_Zero 0x13ba 13b9 4501 |E | Exit_Suprogram New_Top_Offset 0x1 13ba 0100 | | Execute Exception,Raise 13bb 0000 0000 | | .BLANK 0000[0x5] 13c0 ; -------------------------------------------------------------------------------------- 13c0 ; SUBPROGRAM 13c0 ; -------------------------------------------------------------------------------------- 13c0 13c5 | | .CONST 0x13c5 ; Address of begin 13c1 13ff | | .CONST 0x13ff ; Address of exception handler 13c2 0002 | | .CONST 0x0002 ; Number of locals 13c3 INIT_13c0: 13c3 029f 17bb | | Declare_Subprogram INIT_17b8,For_Call 13c5 BODY_13c0: 13c5 e40a | | Load 0x2,0xa 13c6 680d |h | Jump_Zero 0x13d4 13c7 e404 | | Load 0x2,0x4 13c8 0217 | | Execute Heap_Access,All_Reference 13c9 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 13ca a40c | | Store_Unchecked 0x2,0xc 13cb e408 | | Load 0x2,0x8 13cc 8048 | H | Call 0x0,0x48 13cd e40b | | Load 0x2,0xb 13ce 017d | } | Execute Record,Structure_Write 13cf e409 | | Load 0x2,0x9 13d0 e40c | | Load 0x2,0xc 13d1 8049 | I | Call 0x0,0x49 13d2 e40b | | Load 0x2,0xb 13d3 017d | } | Execute Record,Structure_Write 13d4 e5fe | | Load 0x2,-0x2 13d5 8260 | ` | Call 0x1,0x60 13d6 a411 | | Store_Unchecked 0x2,0x11 13d7 e411 | | Load 0x2,0x11 13d8 e404 | | Load 0x2,0x4 13d9 0217 | | Execute Heap_Access,All_Reference 13da 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 13db 804e | N | Call 0x0,0x4e 13dc a40d | | Store_Unchecked 0x2,0xd 13dd e5fe | | Load 0x2,-0x2 13de 8263 | c | Call 0x1,0x63 13df a410 | | Store_Unchecked 0x2,0x10 13e0 e40a | | Load 0x2,0xa 13e1 680b |h | Jump_Zero 0x13ed 13e2 e411 | | Load 0x2,0x11 13e3 8016 | | Call 0x0,0x16 13e4 0092 1847 | G| Action Push_String_Extended,0x1847 ; "." 13e6 01cc | | Execute Vector,Catenate 13e7 e410 | | Load 0x2,0x10 13e8 8016 | | Call 0x0,0x16 13e9 01cc | | Execute Vector,Catenate 13ea e40b | | Load 0x2,0xb 13eb 8051 | Q | Call 0x0,0x51 13ec 6811 |h | Jump_Zero 0x13fe 13ed e410 | | Load 0x2,0x10 13ee e40d | | Load 0x2,0xd 13ef 8052 | R | Call 0x0,0x52 13f0 a40e | | Store_Unchecked 0x2,0xe 13f1 e5fd | | Load 0x2,-0x3 13f2 0f04 | | Execute_Immediate Equal,0x4 13f3 6802 |h | Jump_Zero 0x13f6 13f4 8602 | | Call 0x3,0x2 13f5 4501 |E | Exit_Suprogram New_Top_Offset 0x1 13f6 e5fe | | Load 0x2,-0x2 13f7 8265 | e | Call 0x1,0x65 13f8 e40e | | Load 0x2,0xe 13f9 8055 | U | Call 0x0,0x55 13fa e40f | | Load 0x2,0xf 13fb 017d | } | Execute Record,Structure_Write 13fc e40f | | Load 0x2,0xf 13fd 8414 | | Call 0x2,0x14 13fe 4501 |E | Exit_Suprogram New_Top_Offset 0x1 13ff TRAP_13c0: 13ff e08f | | Load 0x0,0x8f 1400 010f | | Execute Exception,Equal 1401 7006 |p | Jump_Nonzero 0x1408 1402 e090 | | Load 0x0,0x90 1403 010f | | Execute Exception,Equal 1404 7003 |p | Jump_Nonzero 0x1408 1405 e091 | | Load 0x0,0x91 1406 010f | | Execute Exception,Equal 1407 6801 |h | Jump_Zero 0x1409 1408 4501 |E | Exit_Suprogram New_Top_Offset 0x1 1409 0100 | | Execute Exception,Raise 140a 0000 0000 | | .BLANK 0000[0x6] 1410 ; -------------------------------------------------------------------------------------- 1410 ; SUBPROGRAM 1410 ; -------------------------------------------------------------------------------------- 1410 141c | | .CONST 0x141c ; Address of begin 1411 0004 | | .CONST 0x0004 ; Address of exception handler 1412 0002 | | .CONST 0x0002 ; Number of locals 1413 INIT_1410: 1413 e24a | J | Load 0x1,0x4a 1414 e5ff | | Load 0x2,-0x1 1415 825f | _ | Call 0x1,0x5f 1416 e24a | J | Load 0x1,0x4a 1417 e5fe | | Load 0x2,-0x2 1418 825f | _ | Call 0x1,0x5f 1419 01df | | Execute Vector,Equal 141a 00e1 | | Load_Encached Boolean_Cache 141b 03f1 | | Declare_Variable Discrete,With_Value 141c BODY_1410: 141c e403 | | Load 0x2,0x3 141d 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 141e 4606 |F | Jump_Case 0x7 141f 7849 |xI | Jump 0x1469 ; case 0x0 1420 7848 |xH | Jump 0x1469 ; case 0x1 1421 7847 |xG | Jump 0x1469 ; case 0x2 1422 781d |x | Jump 0x1440 ; case 0x3 1423 7827 |x' | Jump 0x144b ; case 0x4 1424 7801 |x | Jump 0x1426 ; case 0x5 1425 7800 |x | Jump 0x1426 ; case 0x6 1426 00d8 | | Load_Top At_Offset_0 1427 6811 |h | Jump_Zero 0x1439 1428 e24a | J | Load 0x1,0x4a 1429 e5ff | | Load 0x2,-0x1 142a 8262 | b | Call 0x1,0x62 142b e24a | J | Load 0x1,0x4a 142c e5fe | | Load 0x2,-0x2 142d 8262 | b | Call 0x1,0x62 142e 01df | | Execute Vector,Equal 142f 6803 |h | Jump_Zero 0x1433 1430 4801 |H | Short_Literal 0x1 1431 a404 | | Store_Unchecked 0x2,0x4 1432 4501 |E | Exit_Suprogram New_Top_Offset 0x1 1433 e403 | | Load 0x2,0x3 1434 825c | \ | Call 0x1,0x5c 1435 e5ff | | Load 0x2,-0x1 1436 8269 | i | Call 0x1,0x69 1437 a404 | | Store_Unchecked 0x2,0x4 1438 4501 |E | Exit_Suprogram New_Top_Offset 0x1 1439 e403 | | Load 0x2,0x3 143a 825d | ] | Call 0x1,0x5d 143b e402 | | Load 0x2,0x2 143c 825d | ] | Call 0x1,0x5d 143d 8269 | i | Call 0x1,0x69 143e a404 | | Store_Unchecked 0x2,0x4 143f 4501 |E | Exit_Suprogram New_Top_Offset 0x1 1440 00d8 | | Load_Top At_Offset_0 1441 6803 |h | Jump_Zero 0x1445 1442 4800 |H | Short_Literal 0x0 1443 a404 | | Store_Unchecked 0x2,0x4 1444 4501 |E | Exit_Suprogram New_Top_Offset 0x1 1445 e5fe | | Load 0x2,-0x2 1446 e402 | | Load 0x2,0x2 1447 825d | ] | Call 0x1,0x5d 1448 8269 | i | Call 0x1,0x69 1449 a404 | | Store_Unchecked 0x2,0x4 144a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 144b 00d8 | | Load_Top At_Offset_0 144c 6815 |h | Jump_Zero 0x1462 144d e5ff | | Load 0x2,-0x1 144e 8266 | f | Call 0x1,0x66 144f e5fe | | Load 0x2,-0x2 1450 8266 | f | Call 0x1,0x66 1451 0272 | r | Execute Discrete,Minus 1452 c405 | | Store 0x2,0x5 1453 e405 | | Load 0x2,0x5 1454 7009 |p | Jump_Nonzero 0x145e 1455 e24a | J | Load 0x1,0x4a 1456 e5ff | | Load 0x2,-0x1 1457 8262 | b | Call 0x1,0x62 1458 e24a | J | Load 0x1,0x4a 1459 e5fe | | Load 0x2,-0x2 145a 8262 | b | Call 0x1,0x62 145b 01c1 | | Execute Vector,Less 145c a404 | | Store_Unchecked 0x2,0x4 145d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 145e e405 | | Load 0x2,0x5 145f 0d00 | | Execute_Immediate Less,0x0 1460 a404 | | Store_Unchecked 0x2,0x4 1461 4501 |E | Exit_Suprogram New_Top_Offset 0x1 1462 e403 | | Load 0x2,0x3 1463 825d | ] | Call 0x1,0x5d 1464 e402 | | Load 0x2,0x2 1465 825d | ] | Call 0x1,0x5d 1466 8269 | i | Call 0x1,0x69 1467 a404 | | Store_Unchecked 0x2,0x4 1468 4501 |E | Exit_Suprogram New_Top_Offset 0x1 1469 4800 |H | Short_Literal 0x0 146a a404 | | Store_Unchecked 0x2,0x4 146b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 146c 0000 0000 | | .BLANK 0000[0x4] 1470 ; -------------------------------------------------------------------------------------- 1470 ; SUBPROGRAM 1470 ; -------------------------------------------------------------------------------------- 1470 147c | | | .CONST 0x147c ; Address of begin 1471 0004 | | .CONST 0x0004 ; Address of exception handler 1472 0002 | | .CONST 0x0002 ; Number of locals 1473 INIT_1470: 1473 e406 | | Load 0x2,0x6 1474 e5ff | | Load 0x2,-0x1 1475 825f | _ | Call 0x1,0x5f 1476 e406 | | Load 0x2,0x6 1477 e5fe | | Load 0x2,-0x2 1478 825f | _ | Call 0x1,0x5f 1479 01df | | Execute Vector,Equal 147a 00e1 | | Load_Encached Boolean_Cache 147b 03f1 | | Declare_Variable Discrete,With_Value 147c BODY_1470: 147c e403 | | Load 0x2,0x3 147d 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 147e 4606 |F | Jump_Case 0x7 147f 7849 |xI | Jump 0x14c9 ; case 0x0 1480 7848 |xH | Jump 0x14c9 ; case 0x1 1481 7847 |xG | Jump 0x14c9 ; case 0x2 1482 781d |x | Jump 0x14a0 ; case 0x3 1483 7827 |x' | Jump 0x14ab ; case 0x4 1484 7801 |x | Jump 0x1486 ; case 0x5 1485 7800 |x | Jump 0x1486 ; case 0x6 1486 00d8 | | Load_Top At_Offset_0 1487 6811 |h | Jump_Zero 0x1499 1488 e406 | | Load 0x2,0x6 1489 e5ff | | Load 0x2,-0x1 148a 8262 | b | Call 0x1,0x62 148b e406 | | Load 0x2,0x6 148c e5fe | | Load 0x2,-0x2 148d 8262 | b | Call 0x1,0x62 148e 01df | | Execute Vector,Equal 148f 6803 |h | Jump_Zero 0x1493 1490 4801 |H | Short_Literal 0x1 1491 a404 | | Store_Unchecked 0x2,0x4 1492 4501 |E | Exit_Suprogram New_Top_Offset 0x1 1493 e403 | | Load 0x2,0x3 1494 825c | \ | Call 0x1,0x5c 1495 e5ff | | Load 0x2,-0x1 1496 826a | j | Call 0x1,0x6a 1497 a404 | | Store_Unchecked 0x2,0x4 1498 4501 |E | Exit_Suprogram New_Top_Offset 0x1 1499 e403 | | Load 0x2,0x3 149a 825d | ] | Call 0x1,0x5d 149b e402 | | Load 0x2,0x2 149c 825d | ] | Call 0x1,0x5d 149d 826a | j | Call 0x1,0x6a 149e a404 | | Store_Unchecked 0x2,0x4 149f 4501 |E | Exit_Suprogram New_Top_Offset 0x1 14a0 00d8 | | Load_Top At_Offset_0 14a1 6803 |h | Jump_Zero 0x14a5 14a2 4800 |H | Short_Literal 0x0 14a3 a404 | | Store_Unchecked 0x2,0x4 14a4 4501 |E | Exit_Suprogram New_Top_Offset 0x1 14a5 e5fe | | Load 0x2,-0x2 14a6 e402 | | Load 0x2,0x2 14a7 825d | ] | Call 0x1,0x5d 14a8 826a | j | Call 0x1,0x6a 14a9 a404 | | Store_Unchecked 0x2,0x4 14aa 4501 |E | Exit_Suprogram New_Top_Offset 0x1 14ab 00d8 | | Load_Top At_Offset_0 14ac 6815 |h | Jump_Zero 0x14c2 14ad e5ff | | Load 0x2,-0x1 14ae 8266 | f | Call 0x1,0x66 14af e5fe | | Load 0x2,-0x2 14b0 8266 | f | Call 0x1,0x66 14b1 0272 | r | Execute Discrete,Minus 14b2 c405 | | Store 0x2,0x5 14b3 e405 | | Load 0x2,0x5 14b4 7009 |p | Jump_Nonzero 0x14be 14b5 e406 | | Load 0x2,0x6 14b6 e5ff | | Load 0x2,-0x1 14b7 8262 | b | Call 0x1,0x62 14b8 e406 | | Load 0x2,0x6 14b9 e5fe | | Load 0x2,-0x2 14ba 8262 | b | Call 0x1,0x62 14bb 01c1 | | Execute Vector,Less 14bc a404 | | Store_Unchecked 0x2,0x4 14bd 4501 |E | Exit_Suprogram New_Top_Offset 0x1 14be e405 | | Load 0x2,0x5 14bf 0c01 | | Execute_Immediate Greater_Equal,0x1 14c0 a404 | | Store_Unchecked 0x2,0x4 14c1 4501 |E | Exit_Suprogram New_Top_Offset 0x1 14c2 e403 | | Load 0x2,0x3 14c3 825d | ] | Call 0x1,0x5d 14c4 e402 | | Load 0x2,0x2 14c5 825d | ] | Call 0x1,0x5d 14c6 826a | j | Call 0x1,0x6a 14c7 a404 | | Store_Unchecked 0x2,0x4 14c8 4501 |E | Exit_Suprogram New_Top_Offset 0x1 14c9 4800 |H | Short_Literal 0x0 14ca a404 | | Store_Unchecked 0x2,0x4 14cb 4501 |E | Exit_Suprogram New_Top_Offset 0x1 14cc 0000 0000 | | .BLANK 0000[0x4] 14d0 ; -------------------------------------------------------------------------------------- 14d0 ; SUBPROGRAM 14d0 ; -------------------------------------------------------------------------------------- 14d0 14d5 | | .CONST 0x14d5 ; Address of begin 14d1 0004 | | .CONST 0x0004 ; Address of exception handler 14d2 0002 | | .CONST 0x0002 ; Number of locals 14d3 INIT_14d0: 14d3 e078 | x | Load 0x0,0x78 14d4 0007 | | Action Break_Optional 14d5 BODY_14d0: 14d5 00d8 | | Load_Top At_Offset_0 14d6 e40a | | Load 0x2,0xa 14d7 e408 | | Load 0x2,0x8 14d8 807b | { | Call 0x0,0x7b 14d9 0031 | 1 | Store_Top Heap_Access,At_Offset_1 14da e24f | O | Load 0x1,0x4f 14db 00d9 | | Load_Top At_Offset_1 14dc 807c | | | Call 0x0,0x7c 14dd c24f | O | Store 0x1,0x4f 14de 4501 |E | Exit_Suprogram New_Top_Offset 0x1 14df 0000 | | .XXX[0x1] 14e0 ; -------------------------------------------------------------------------------------- 14e0 ; SUBPROGRAM 14e0 ; -------------------------------------------------------------------------------------- 14e0 14e6 | | .CONST 0x14e6 ; Address of begin 14e1 0004 | | .CONST 0x0004 ; Address of exception handler 14e2 0003 | | .CONST 0x0003 ; Number of locals 14e3 INIT_14e0: 14e3 e078 | x | Load 0x0,0x78 14e4 0007 | | Action Break_Optional 14e5 00e1 | | Load_Encached Boolean_Cache 14e6 BODY_14e0: 14e6 00d9 | | Load_Top At_Offset_1 14e7 e40a | | Load 0x2,0xa 14e8 e409 | | Load 0x2,0x9 14e9 807b | { | Call 0x0,0x7b 14ea 0032 | 2 | Store_Top Heap_Access,At_Offset_2 14eb 00d9 | | Load_Top At_Offset_1 14ec e24f | O | Load 0x1,0x4f 14ed 8086 | | Call 0x0,0x86 14ee 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 14ef 00d8 | | Load_Top At_Offset_0 14f0 00ca | | Action Exit_Nullary_Function 14f1 0000 0000 | | .BLANK 0000[0x7] 14f8 ; -------------------------------------------------------------------------------------- 14f8 ; SUBPROGRAM 14f8 ; -------------------------------------------------------------------------------------- 14f8 14fb | | .CONST 0x14fb ; Address of begin 14f9 1565 | e | .CONST 0x1565 ; Address of exception handler 14fa 0001 | | .CONST 0x0001 ; Number of locals 14fb BODY_14f8: 14fb INIT_14f8: 14fb e5fe | | Load 0x2,-0x2 14fc 8260 | ` | Call 0x1,0x60 14fd e402 | | Load 0x2,0x2 14fe 0217 | | Execute Heap_Access,All_Reference 14ff 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 1500 804e | N | Call 0x0,0x4e 1501 a403 | | Store_Unchecked 0x2,0x3 1502 e5fe | | Load 0x2,-0x2 1503 8263 | c | Call 0x1,0x63 1504 e403 | | Load 0x2,0x3 1505 8052 | R | Call 0x0,0x52 1506 a404 | | Store_Unchecked 0x2,0x4 1507 e5fc | | Load 0x2,-0x4 1508 e404 | | Load 0x2,0x4 1509 8055 | U | Call 0x0,0x55 150a e405 | | Load 0x2,0x5 150b 017d | } | Execute Record,Structure_Write 150c e065 | e | Load 0x0,0x65 150d e405 | | Load 0x2,0x5 150e 806f | o | Call 0x0,0x6f 150f c406 | | Store 0x2,0x6 1510 e065 | e | Load 0x0,0x65 1511 e5fb | | Load 0x2,-0x5 1512 806f | o | Call 0x0,0x6f 1513 c407 | | Store 0x2,0x7 1514 00cf | | Action Mark_Auxiliary 1515 7846 |xF | Jump 0x155c 1516 e406 | | Load 0x2,0x6 1517 8070 | p | Call 0x0,0x70 1518 e408 | | Load 0x2,0x8 1519 017d | } | Execute Record,Structure_Write 151a e407 | | Load 0x2,0x7 151b 8070 | p | Call 0x0,0x70 151c e409 | | Load 0x2,0x9 151d 017d | } | Execute Record,Structure_Write 151e e408 | | Load 0x2,0x8 151f 8079 | y | Call 0x0,0x79 1520 6803 |h | Jump_Zero 0x1524 1521 e409 | | Load 0x2,0x9 1522 8079 | y | Call 0x0,0x79 1523 7801 |x | Jump 0x1525 1524 4800 |H | Short_Literal 0x0 1525 a40c | | Store_Unchecked 0x2,0xc 1526 e408 | | Load 0x2,0x8 1527 807a | z | Call 0x0,0x7a 1528 6803 |h | Jump_Zero 0x152c 1529 e409 | | Load 0x2,0x9 152a 807a | z | Call 0x0,0x7a 152b 7801 |x | Jump 0x152d 152c 4800 |H | Short_Literal 0x0 152d a40b | | Store_Unchecked 0x2,0xb 152e e40c | | Load 0x2,0xc 152f e40b | | Load 0x2,0xb 1530 0278 | x | Execute Discrete,Or 1531 6823 |h# | Jump_Zero 0x1555 1532 e408 | | Load 0x2,0x8 1533 8071 | q | Call 0x0,0x71 1534 6820 |h | Jump_Zero 0x1555 1535 e409 | | Load 0x2,0x9 1536 8071 | q | Call 0x0,0x71 1537 701d |p | Jump_Nonzero 0x1555 1538 e408 | | Load 0x2,0x8 1539 808e | | Call 0x0,0x8e 153a e409 | | Load 0x2,0x9 153b 808e | | Call 0x0,0x8e 153c 01df | | Execute Vector,Equal 153d 6817 |h | Jump_Zero 0x1555 153e 840e | | Call 0x2,0xe 153f 7015 |p | Jump_Nonzero 0x1555 1540 840d | | Call 0x2,0xd 1541 e40c | | Load 0x2,0xc 1542 6808 |h | Jump_Zero 0x154b 1543 e5fa | | Load 0x2,-0x6 1544 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 1545 0a01 | | Execute_Immediate Plus,0x1 1546 e5fa | | Load 0x2,-0x6 1547 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 1548 e5f9 | | Load 0x2,-0x7 1549 0a01 | | Execute_Immediate Plus,0x1 154a c5f9 | | Store 0x2,-0x7 154b e40b | | Load 0x2,0xb 154c 6808 |h | Jump_Zero 0x1555 154d e5fa | | Load 0x2,-0x6 154e 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 154f 0a01 | | Execute_Immediate Plus,0x1 1550 e5fa | | Load 0x2,-0x6 1551 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 1552 e5f8 | | Load 0x2,-0x8 1553 0a01 | | Execute_Immediate Plus,0x1 1554 c5f8 | | Store 0x2,-0x8 1555 e406 | | Load 0x2,0x6 1556 8072 | r | Call 0x0,0x72 1557 c406 | | Store 0x2,0x6 1558 e407 | | Load 0x2,0x7 1559 8072 | r | Call 0x0,0x72 155a c407 | | Store 0x2,0x7 155b 00c9 | | Action Pop_Auxiliary_Loop 155c e406 | | Load 0x2,0x6 155d 8073 | s | Call 0x0,0x73 155e 0f00 | | Execute_Immediate Equal,0x0 155f e407 | | Load 0x2,0x7 1560 8073 | s | Call 0x0,0x73 1561 0f00 | | Execute_Immediate Equal,0x0 1562 0279 | y | Execute Discrete,And 1563 77b2 |w | Jump_Nonzero 0x1516 1564 4501 |E | Exit_Suprogram New_Top_Offset 0x1 1565 TRAP_14f8: 1565 e08f | | Load 0x0,0x8f 1566 010f | | Execute Exception,Equal 1567 7006 |p | Jump_Nonzero 0x156e 1568 e090 | | Load 0x0,0x90 1569 010f | | Execute Exception,Equal 156a 7003 |p | Jump_Nonzero 0x156e 156b e091 | | Load 0x0,0x91 156c 010f | | Execute Exception,Equal 156d 6801 |h | Jump_Zero 0x156f 156e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 156f 0100 | | Execute Exception,Raise 1570 ; -------------------------------------------------------------------------------------- 1570 ; SUBPROGRAM 1570 ; -------------------------------------------------------------------------------------- 1570 1575 | u | .CONST 0x1575 ; Address of begin 1571 0004 | | .CONST 0x0004 ; Address of exception handler 1572 0002 | | .CONST 0x0002 ; Number of locals 1573 INIT_1570: 1573 e092 | | Load 0x0,0x92 1574 0007 | | Action Break_Optional 1575 BODY_1570: 1575 00d8 | | Load_Top At_Offset_0 1576 e602 | | Load 0x3,0x2 1577 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 1578 e602 | | Load 0x3,0x2 1579 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 157a 8093 | | Call 0x0,0x93 157b 0031 | 1 | Store_Top Heap_Access,At_Offset_1 157c e603 | | Load 0x3,0x3 157d 00d9 | | Load_Top At_Offset_1 157e 8094 | | Call 0x0,0x94 157f c603 | | Store 0x3,0x3 1580 4501 |E | Exit_Suprogram New_Top_Offset 0x1 1581 0000 0000 | | .BLANK 0000[0x7] 1588 ; -------------------------------------------------------------------------------------- 1588 ; SUBPROGRAM 1588 ; -------------------------------------------------------------------------------------- 1588 158d | | .CONST 0x158d ; Address of begin 1589 0004 | | .CONST 0x0004 ; Address of exception handler 158a 0002 | | .CONST 0x0002 ; Number of locals 158b INIT_1588: 158b 029f 17db | | Declare_Subprogram INIT_17d8,For_Call 158d BODY_1588: 158d 00db | | Load_Top At_Offset_3 158e 680a |h | Jump_Zero 0x1599 158f 00db | | Load_Top At_Offset_3 1590 0217 | | Execute Heap_Access,All_Reference 1591 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 1592 8802 | | Call 0x4,0x2 1593 e095 | | Load 0x0,0x95 1594 1817 | | Execute Package,Field_Execute,Field_Number 0x17 1595 4800 |H | Short_Literal 0x0 1596 e9ff | | Load 0x4,-0x1 1597 e096 | | Load 0x0,0x96 1598 181e | | Execute Package,Field_Execute,Field_Number 0x1e 1599 e9fe | | Load 0x4,-0x2 159a 7003 |p | Jump_Nonzero 0x159e 159b e097 | | Load 0x0,0x97 159c 180e | | Execute Package,Field_Execute,Field_Number 0xe 159d 4503 |E | Exit_Suprogram New_Top_Offset 0x3 159e 4800 |H | Short_Literal 0x0 159f e098 | | Load 0x0,0x98 15a0 1b12 | | Execute Package,Field_Read,Field_Number 0x12 15a1 1812 | | Execute Package,Field_Execute,Field_Number 0x12 15a2 4801 |H | Short_Literal 0x1 15a3 4800 |H | Short_Literal 0x0 15a4 4801 |H | Short_Literal 0x1 15a5 e098 | | Load 0x0,0x98 15a6 1b0d | | Execute Package,Field_Read,Field_Number 0xd 15a7 1813 | | Execute Package,Field_Execute,Field_Number 0x13 15a8 4503 |E | Exit_Suprogram New_Top_Offset 0x3 15a9 0000 0000 | | .BLANK 0000[0x7] 15b0 ; -------------------------------------------------------------------------------------- 15b0 ; SUBPROGRAM 15b0 ; -------------------------------------------------------------------------------------- 15b0 15bc | | .CONST 0x15bc ; Address of begin 15b1 0004 | | .CONST 0x0004 ; Address of exception handler 15b2 0003 | | .CONST 0x0003 ; Number of locals 15b3 INIT_15b0: 15b3 e5ff | | Load 0x2,-0x1 15b4 0219 | | Execute Heap_Access,All_Read 15b5 e028 | ( | Load 0x0,0x28 15b6 e248 | H | Load 0x1,0x48 15b7 0096 | | Execute Package,Entry 15b8 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 15b9 0007 | | Action Break_Optional 15ba 029f 1803 | | Declare_Subprogram INIT_1800,For_Call 15bc BODY_15b0: 15bc e403 | | Load 0x2,0x3 15bd 0f04 | | Execute_Immediate Equal,0x4 15be 6806 |h | Jump_Zero 0x15c5 15bf 4801 |H | Short_Literal 0x1 15c0 0092 184e | N| Action Push_String_Extended,0x184e ; "unit" 15c2 8803 | | Call 0x4,0x3 15c3 820e | | Call 0x1,0xe 15c4 4501 |E | Exit_Suprogram New_Top_Offset 0x1 15c5 e403 | | Load 0x2,0x3 15c6 0f05 | | Execute_Immediate Equal,0x5 15c7 6806 |h | Jump_Zero 0x15ce 15c8 4801 |H | Short_Literal 0x1 15c9 0092 184f | O| Action Push_String_Extended,0x184f ; "subprogram" 15cb 8803 | | Call 0x4,0x3 15cc 820e | | Call 0x1,0xe 15cd 4501 |E | Exit_Suprogram New_Top_Offset 0x1 15ce 4801 |H | Short_Literal 0x1 15cf 0092 1850 | P| Action Push_String_Extended,0x1850 ; "block" 15d1 8803 | | Call 0x4,0x3 15d2 820e | | Call 0x1,0xe 15d3 4501 |E | Exit_Suprogram New_Top_Offset 0x1 15d4 0000 0000 | | .BLANK 0000[0x4] 15d8 ; -------------------------------------------------------------------------------------- 15d8 ; SUBPROGRAM 15d8 ; -------------------------------------------------------------------------------------- 15d8 15df | | .CONST 0x15df ; Address of begin 15d9 0004 | | .CONST 0x0004 ; Address of exception handler 15da 0003 | | .CONST 0x0003 ; Number of locals 15db INIT_15d8: 15db e07e | ~ | Load 0x0,0x7e 15dc 0007 | | Action Break_Optional 15dd e005 | | Load 0x0,0x5 15de 0007 | | Action Break_Optional 15df BODY_15d8: 15df e07e | ~ | Load 0x0,0x7e 15e0 e603 | | Load 0x3,0x3 15e1 807f | | Call 0x0,0x7f 15e2 003a | : | Store_Top Access,At_Offset_2 15e3 00cf | | Action Mark_Auxiliary 15e4 7823 |x# | Jump 0x1608 15e5 00da | | Load_Top At_Offset_2 15e6 8080 | | Call 0x0,0x80 15e7 0032 | 2 | Store_Top Heap_Access,At_Offset_2 15e8 e5fa | | Load 0x2,-0x6 15e9 802a | * | Call 0x0,0x2a 15ea e03b | ; | Load 0x0,0x3b 15eb 1814 | | Execute Package,Field_Execute,Field_Number 0x14 15ec 00da | | Load_Top At_Offset_2 15ed 802a | * | Call 0x0,0x2a 15ee e03b | ; | Load 0x0,0x3b 15ef 1814 | | Execute Package,Field_Execute,Field_Number 0x14 15f0 01df | | Execute Vector,Equal 15f1 6812 |h | Jump_Zero 0x1604 15f2 e603 | | Load 0x3,0x3 15f3 8079 | y | Call 0x0,0x79 15f4 6806 |h | Jump_Zero 0x15fb 15f5 4801 |H | Short_Literal 0x1 15f6 e7fe | | Load 0x3,-0x2 15f7 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 15f8 841a | | Call 0x2,0x1a 15f9 e7fe | | Load 0x3,-0x2 15fa 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 15fb e603 | | Load 0x3,0x3 15fc 807a | z | Call 0x0,0x7a 15fd 6806 |h | Jump_Zero 0x1604 15fe 4801 |H | Short_Literal 0x1 15ff e7fe | | Load 0x3,-0x2 1600 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 1601 841a | | Call 0x2,0x1a 1602 e7fe | | Load 0x3,-0x2 1603 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 1604 00da | | Load_Top At_Offset_2 1605 8081 | | Call 0x0,0x81 1606 003b | ; | Store_Top Access,At_Offset_3 1607 00c9 | | Action Pop_Auxiliary_Loop 1608 00da | | Load_Top At_Offset_2 1609 8082 | | Call 0x0,0x82 160a 6fda |o | Jump_Zero 0x15e5 160b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 160c 0000 0000 | | .BLANK 0000[0x4] 1610 ; -------------------------------------------------------------------------------------- 1610 ; SUBPROGRAM 1610 ; -------------------------------------------------------------------------------------- 1610 1624 | $ | .CONST 0x1624 ; Address of begin 1611 0004 | | .CONST 0x0004 ; Address of exception handler 1612 0004 | | .CONST 0x0004 ; Number of locals 1613 INIT_1610: 1613 e00b | | Load 0x0,0xb 1614 e248 | H | Load 0x1,0x48 1615 0098 | | Execute Package,Field_Read_Dynamic 1616 0322 | " | Declare_Variable Record 1617 4800 |H | Short_Literal 0x0 1618 e5ff | | Load 0x2,-0x1 1619 0219 | | Execute Heap_Access,All_Read 161a e035 | 5 | Load 0x0,0x35 161b e248 | H | Load 0x1,0x48 161c 0096 | | Execute Package,Entry 161d 00d9 | | Load_Top At_Offset_1 161e 017d | } | Execute Record,Structure_Write 161f e00a | | Load 0x0,0xa 1620 e248 | H | Load 0x1,0x48 1621 0098 | | Execute Package,Field_Read_Dynamic 1622 0322 | " | Declare_Variable Record 1623 e23c | < | Load 0x1,0x3c 1624 BODY_1610: 1624 00cf | | Action Mark_Auxiliary 1625 7864 |xd | Jump 0x168a 1626 00db | | Load_Top At_Offset_3 1627 e038 | 8 | Load 0x0,0x38 1628 e248 | H | Load 0x1,0x48 1629 0096 | | Execute Package,Entry 162a 00db | | Load_Top At_Offset_3 162b 017d | } | Execute Record,Structure_Write 162c 00da | | Load_Top At_Offset_2 162d e02d | - | Load 0x0,0x2d 162e e248 | H | Load 0x1,0x48 162f 0096 | | Execute Package,Entry 1630 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 1631 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 1632 00d9 | | Load_Top At_Offset_1 1633 e7ff | | Load 0x3,-0x1 1634 027f | | Execute Discrete,Equal 1635 684e |hN | Jump_Zero 0x1684 1636 e7ff | | Load 0x3,-0x1 1637 4606 |F | Jump_Case 0x7 1638 783e |x> | Jump 0x1677 ; case 0x0 1639 783d |x= | Jump 0x1677 ; case 0x1 163a 783c |x< | Jump 0x1677 ; case 0x2 163b 7832 |x2 | Jump 0x166e ; case 0x3 163c 781e |x | Jump 0x165b ; case 0x4 163d 7801 |x | Jump 0x163f ; case 0x5 163e 7800 |x | Jump 0x163f ; case 0x6 163f e24a | J | Load 0x1,0x4a 1640 00db | | Load_Top At_Offset_3 1641 825f | _ | Call 0x1,0x5f 1642 e40b | | Load 0x2,0xb 1643 8016 | | Call 0x0,0x16 1644 01df | | Execute Vector,Equal 1645 6810 |h | Jump_Zero 0x1656 1646 e24a | J | Load 0x1,0x4a 1647 00db | | Load_Top At_Offset_3 1648 8262 | b | Call 0x1,0x62 1649 e40c | | Load 0x2,0xc 164a 8016 | | Call 0x0,0x16 164b 01df | | Execute Vector,Equal 164c 6807 |h | Jump_Zero 0x1654 164d e24a | J | Load 0x1,0x4a 164e 00db | | Load_Top At_Offset_3 164f 8264 | d | Call 0x1,0x64 1650 e40d | | Load 0x2,0xd 1651 8016 | | Call 0x0,0x16 1652 01df | | Execute Vector,Equal 1653 7803 |x | Jump 0x1657 1654 4800 |H | Short_Literal 0x0 1655 7801 |x | Jump 0x1657 1656 4800 |H | Short_Literal 0x0 1657 a7fc | | Store_Unchecked 0x3,-0x4 1658 e7fc | | Load 0x3,-0x4 1659 a416 | | Store_Unchecked 0x2,0x16 165a 781c |x | Jump 0x1677 165b e24a | J | Load 0x1,0x4a 165c 00db | | Load_Top At_Offset_3 165d 825f | _ | Call 0x1,0x5f 165e e40b | | Load 0x2,0xb 165f 8016 | | Call 0x0,0x16 1660 01df | | Execute Vector,Equal 1661 6807 |h | Jump_Zero 0x1669 1662 e24a | J | Load 0x1,0x4a 1663 00db | | Load_Top At_Offset_3 1664 8262 | b | Call 0x1,0x62 1665 e40c | | Load 0x2,0xc 1666 8016 | | Call 0x0,0x16 1667 01df | | Execute Vector,Equal 1668 7801 |x | Jump 0x166a 1669 4800 |H | Short_Literal 0x0 166a a7fc | | Store_Unchecked 0x3,-0x4 166b e7fc | | Load 0x3,-0x4 166c a417 | | Store_Unchecked 0x2,0x17 166d 7809 |x | Jump 0x1677 166e e24a | J | Load 0x1,0x4a 166f 00db | | Load_Top At_Offset_3 1670 825f | _ | Call 0x1,0x5f 1671 e40b | | Load 0x2,0xb 1672 8016 | | Call 0x0,0x16 1673 01df | | Execute Vector,Equal 1674 a7fc | | Store_Unchecked 0x3,-0x4 1675 e7fc | | Load 0x3,-0x4 1676 a418 | | Store_Unchecked 0x2,0x18 1677 e7fc | | Load 0x3,-0x4 1678 680b |h | Jump_Zero 0x1684 1679 00da | | Load_Top At_Offset_2 167a e7fe | | Load 0x3,-0x2 167b 017d | } | Execute Record,Structure_Write 167c 4803 |H | Short_Literal 0x3 167d 00db | | Load_Top At_Offset_3 167e e063 | c | Load 0x0,0x63 167f e248 | H | Load 0x1,0x48 1680 0096 | | Execute Package,Entry 1681 2605 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x5 1682 e7fd | | Load 0x3,-0x3 1683 017d | } | Execute Record,Structure_Write 1684 00db | | Load_Top At_Offset_3 1685 e039 | 9 | Load 0x0,0x39 1686 e248 | H | Load 0x1,0x48 1687 0096 | | Execute Package,Entry 1688 00d1 | | Pop_Control Pop_Count_1 1689 00c9 | | Action Pop_Auxiliary_Loop 168a e7fc | | Load 0x3,-0x4 168b 7005 |p | Jump_Nonzero 0x1691 168c 00db | | Load_Top At_Offset_3 168d e036 | 6 | Load 0x0,0x36 168e e248 | H | Load 0x1,0x48 168f 0096 | | Execute Package,Entry 1690 6f95 |o | Jump_Zero 0x1626 1691 4501 |E | Exit_Suprogram New_Top_Offset 0x1 1692 0000 0000 | | .BLANK 0000[0x6] 1698 ; -------------------------------------------------------------------------------------- 1698 ; SUBPROGRAM 1698 ; -------------------------------------------------------------------------------------- 1698 169e | | .CONST 0x169e ; Address of begin 1699 0004 | | .CONST 0x0004 ; Address of exception handler 169a 0002 | | .CONST 0x0002 ; Number of locals 169b INIT_1698: 169b 4801 |H | Short_Literal 0x1 169c e241 | A | Load 0x1,0x41 169d 1c08 | | Execute_Immediate Run_Utility,0x8 169e BODY_1698: 169e e7ff | | Load 0x3,-0x1 169f 4606 |F | Jump_Case 0x7 16a0 7836 |x6 | Jump 0x16d7 ; case 0x0 16a1 7835 |x5 | Jump 0x16d7 ; case 0x1 16a2 7834 |x4 | Jump 0x16d7 ; case 0x2 16a3 7823 |x# | Jump 0x16c7 ; case 0x3 16a4 7812 |x | Jump 0x16b7 ; case 0x4 16a5 7801 |x | Jump 0x16a7 ; case 0x5 16a6 7800 |x | Jump 0x16a7 ; case 0x6 16a7 e412 | | Load 0x2,0x12 16a8 e230 | 0 | Load 0x1,0x30 16a9 e5fb | | Load 0x2,-0x5 16aa 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value 16ab e602 | | Load 0x3,0x2 16ac 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3 16ad 4801 |H | Short_Literal 0x1 16ae e602 | | Load 0x3,0x2 16af 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 16b0 e5fb | | Load 0x2,-0x5 16b1 e40d | | Load 0x2,0xd 16b2 8016 | | Call 0x0,0x16 16b3 8017 | | Call 0x0,0x17 16b4 00d9 | | Load_Top At_Offset_1 16b5 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3 16b6 7826 |x& | Jump 0x16dd 16b7 e411 | | Load 0x2,0x11 16b8 e230 | 0 | Load 0x1,0x30 16b9 e5fb | | Load 0x2,-0x5 16ba 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value 16bb e602 | | Load 0x3,0x2 16bc 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3 16bd 4800 |H | Short_Literal 0x0 16be e602 | | Load 0x3,0x2 16bf 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 16c0 e5fb | | Load 0x2,-0x5 16c1 e40c | | Load 0x2,0xc 16c2 8016 | | Call 0x0,0x16 16c3 8017 | | Call 0x0,0x17 16c4 00d9 | | Load_Top At_Offset_1 16c5 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3 16c6 7816 |x | Jump 0x16dd 16c7 e5fe | | Load 0x2,-0x2 16c8 e230 | 0 | Load 0x1,0x30 16c9 e5fb | | Load 0x2,-0x5 16ca 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value 16cb e602 | | Load 0x3,0x2 16cc 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3 16cd 4800 |H | Short_Literal 0x0 16ce e602 | | Load 0x3,0x2 16cf 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 16d0 e5fb | | Load 0x2,-0x5 16d1 e40b | | Load 0x2,0xb 16d2 8016 | | Call 0x0,0x16 16d3 8017 | | Call 0x0,0x17 16d4 00d9 | | Load_Top At_Offset_1 16d5 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3 16d6 7806 |x | Jump 0x16dd 16d7 e5fe | | Load 0x2,-0x2 16d8 e230 | 0 | Load 0x1,0x30 16d9 e5fb | | Load 0x2,-0x5 16da 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value 16db e602 | | Load 0x3,0x2 16dc 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3 16dd e23d | = | Load 0x1,0x3d 16de 0322 | " | Declare_Variable Record 16df 4800 |H | Short_Literal 0x0 16e0 00d9 | | Load_Top At_Offset_1 16e1 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 16e2 4800 |H | Short_Literal 0x0 16e3 00d9 | | Load_Top At_Offset_1 16e4 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 16e5 4800 |H | Short_Literal 0x0 16e6 00d9 | | Load_Top At_Offset_1 16e7 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 16e8 4800 |H | Short_Literal 0x0 16e9 00d9 | | Load_Top At_Offset_1 16ea 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 16eb e7fd | | Load 0x3,-0x3 16ec 017d | } | Execute Record,Structure_Write 16ed e7fe | | Load 0x3,-0x2 16ee 4802 |H | Short_Literal 0x2 16ef e5ff | | Load 0x2,-0x1 16f0 0219 | | Execute Heap_Access,All_Read 16f1 e05c | \ | Load 0x0,0x5c 16f2 e248 | H | Load 0x1,0x48 16f3 0096 | | Execute Package,Entry 16f4 00d1 | | Pop_Control Pop_Count_1 16f5 e602 | | Load 0x3,0x2 16f6 e7fe | | Load 0x3,-0x2 16f7 e05d | ] | Load 0x0,0x5d 16f8 e248 | H | Load 0x1,0x48 16f9 0096 | | Execute Package,Entry 16fa e602 | | Load 0x3,0x2 16fb 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 16fc 0f00 | | Execute_Immediate Equal,0x0 16fd e7fe | | Load 0x3,-0x2 16fe e064 | d | Load 0x0,0x64 16ff e248 | H | Load 0x1,0x48 1700 0096 | | Execute Package,Entry 1701 e7ff | | Load 0x3,-0x1 1702 4800 |H | Short_Literal 0x0 1703 4802 |H | Short_Literal 0x2 1704 0262 | b | Execute Discrete,In_Range 1705 700a |p | Jump_Nonzero 0x1710 1706 7800 |x | Jump 0x1707 1707 e7ff | | Load 0x3,-0x1 1708 00d9 | | Load_Top At_Offset_1 1709 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 170a 00d8 | | Load_Top At_Offset_0 170b 4801 |H | Short_Literal 0x1 170c e7fe | | Load 0x3,-0x2 170d e07d | } | Load 0x0,0x7d 170e e248 | H | Load 0x1,0x48 170f 0096 | | Execute Package,Entry 1710 4501 |E | Exit_Suprogram New_Top_Offset 0x1 1711 0000 0000 | | .BLANK 0000[0x7] 1718 ; -------------------------------------------------------------------------------------- 1718 ; SUBPROGRAM 1718 ; -------------------------------------------------------------------------------------- 1718 171e | | .CONST 0x171e ; Address of begin 1719 0004 | | .CONST 0x0004 ; Address of exception handler 171a 0002 | | .CONST 0x0002 ; Number of locals 171b INIT_1718: 171b e606 | | Load 0x3,0x6 171c e241 | A | Load 0x1,0x41 171d 1c08 | | Execute_Immediate Run_Utility,0x8 171e BODY_1718: 171e e602 | | Load 0x3,0x2 171f 00d9 | | Load_Top At_Offset_1 1720 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 1721 e606 | | Load 0x3,0x6 1722 0f02 | | Execute_Immediate Equal,0x2 1723 701d |p | Jump_Nonzero 0x1741 1724 e7ff | | Load 0x3,-0x1 1725 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 1726 00d9 | | Load_Top At_Offset_1 1727 2605 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x5 1728 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 1729 e7ff | | Load 0x3,-0x1 172a 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 172b 00d9 | | Load_Top At_Offset_1 172c 2605 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x5 172d 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 172e e7ff | | Load 0x3,-0x1 172f 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 1730 00d9 | | Load_Top At_Offset_1 1731 2605 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x5 1732 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 1733 e7ff | | Load 0x3,-0x1 1734 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 1735 00d9 | | Load_Top At_Offset_1 1736 2605 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x5 1737 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 1738 e7ff | | Load 0x3,-0x1 1739 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 173a 00d9 | | Load_Top At_Offset_1 173b 2a06 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6 173c e7ff | | Load 0x3,-0x1 173d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 173e 00d9 | | Load_Top At_Offset_1 173f 2a07 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x7 1740 7821 |x! | Jump 0x1762 1741 e7ff | | Load 0x3,-0x1 1742 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 1743 6814 |h | Jump_Zero 0x1758 1744 602f |`/ | Indirect_Literal Discrete,0x1774,{0x00000000, 0x00320000} 1745 e7ff | | Load 0x3,-0x1 1746 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 1747 0271 | q | Execute Discrete,Times 1748 e7ff | | Load 0x3,-0x1 1749 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 174a 0270 | p | Execute Discrete,Divide 174b 00d8 | | Load_Top At_Offset_0 174c 0c00 | | Execute_Immediate Greater_Equal,0x0 174d 7002 |p | Jump_Nonzero 0x1750 174e 6021 |`! | Indirect_Literal Discrete,0x1770,{0xffffffff, 0xffffc000} 174f 7801 |x | Jump 0x1751 1750 601b |` | Indirect_Literal Discrete,0x176c,{0x00000000, 0x00004000} 1751 0273 | s | Execute Discrete,Plus 1752 09f1 | | Execute_Immediate Binary_Scale,-0xf 1753 00e3 | | Load_Encached Natural_Cache 1754 025e | ^ | Execute Discrete,Convert 1755 00d9 | | Load_Top At_Offset_1 1756 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4 1757 780a |x | Jump 0x1762 1758 e7ff | | Load 0x3,-0x1 1759 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 175a 7004 |p | Jump_Nonzero 0x175f 175b 4865 |He | Short_Literal 0x65 175c 00d9 | | Load_Top At_Offset_1 175d 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4 175e 7803 |x | Jump 0x1762 175f 4800 |H | Short_Literal 0x0 1760 00d9 | | Load_Top At_Offset_1 1761 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4 1762 00d8 | | Load_Top At_Offset_0 1763 e606 | | Load 0x3,0x6 1764 e7fe | | Load 0x3,-0x2 1765 e07d | } | Load 0x0,0x7d 1766 e248 | H | Load 0x1,0x48 1767 0096 | | Execute Package,Entry 1768 4501 |E | Exit_Suprogram New_Top_Offset 0x1 1769 0000 0000 | | .XXX[0x3] 176b 0000 | | 176c 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 1770 ffff ffff | | .LITERAL {0xffffffff, 0xffffc000} 1774 0000 0000 | | .LITERAL {0x00000000, 0x00320000} 1778 ; -------------------------------------------------------------------------------------- 1778 ; SUBPROGRAM 1778 ; -------------------------------------------------------------------------------------- 1778 177d | } | .CONST 0x177d ; Address of begin 1779 0004 | | .CONST 0x0004 ; Address of exception handler 177a 0002 | | .CONST 0x0002 ; Number of locals 177b INIT_1778: 177b e078 | x | Load 0x0,0x78 177c 0007 | | Action Break_Optional 177d BODY_1778: 177d 00d8 | | Load_Top At_Offset_0 177e e408 | | Load 0x2,0x8 177f e603 | | Load 0x3,0x3 1780 807b | { | Call 0x0,0x7b 1781 0031 | 1 | Store_Top Heap_Access,At_Offset_1 1782 e603 | | Load 0x3,0x3 1783 8071 | q | Call 0x0,0x71 1784 6805 |h | Jump_Zero 0x178a 1785 e406 | | Load 0x2,0x6 1786 00d9 | | Load_Top At_Offset_1 1787 807c | | | Call 0x0,0x7c 1788 c406 | | Store 0x2,0x6 1789 4501 |E | Exit_Suprogram New_Top_Offset 0x1 178a e40a | | Load 0x2,0xa 178b 680d |h | Jump_Zero 0x1799 178c e603 | | Load 0x3,0x3 178d 8413 | | Call 0x2,0x13 178e 6805 |h | Jump_Zero 0x1794 178f e407 | | Load 0x2,0x7 1790 00d9 | | Load_Top At_Offset_1 1791 807c | | | Call 0x0,0x7c 1792 c407 | | Store 0x2,0x7 1793 4501 |E | Exit_Suprogram New_Top_Offset 0x1 1794 e406 | | Load 0x2,0x6 1795 00d9 | | Load_Top At_Offset_1 1796 807c | | | Call 0x0,0x7c 1797 c406 | | Store 0x2,0x6 1798 4501 |E | Exit_Suprogram New_Top_Offset 0x1 1799 e407 | | Load 0x2,0x7 179a 00d9 | | Load_Top At_Offset_1 179b 807c | | | Call 0x0,0x7c 179c c407 | | Store 0x2,0x7 179d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 179e 0000 0000 | | .XXX[0x2] 17a0 ; -------------------------------------------------------------------------------------- 17a0 ; SUBPROGRAM 17a0 ; -------------------------------------------------------------------------------------- 17a0 17a5 | | .CONST 0x17a5 ; Address of begin 17a1 0004 | | .CONST 0x0004 ; Address of exception handler 17a2 0002 | | .CONST 0x0002 ; Number of locals 17a3 INIT_17a0: 17a3 e043 | C | Load 0x0,0x43 17a4 0007 | | Action Break_Optional 17a5 BODY_17a0: 17a5 e043 | C | Load 0x0,0x43 17a6 e40e | | Load 0x2,0xe 17a7 8053 | S | Call 0x0,0x53 17a8 0039 | 9 | Store_Top Access,At_Offset_1 17a9 00d8 | | Load_Top At_Offset_0 17aa 8057 | W | Call 0x0,0x57 17ab 7006 |p | Jump_Nonzero 0x17b2 17ac 00d8 | | Load_Top At_Offset_0 17ad 8054 | T | Call 0x0,0x54 17ae e40e | | Load 0x2,0xe 17af 8055 | U | Call 0x0,0x55 17b0 e40f | | Load 0x2,0xf 17b1 017d | } | Execute Record,Structure_Write 17b2 4501 |E | Exit_Suprogram New_Top_Offset 0x1 17b3 0000 0000 | | .BLANK 0000[0x5] 17b8 ; -------------------------------------------------------------------------------------- 17b8 ; SUBPROGRAM 17b8 ; -------------------------------------------------------------------------------------- 17b8 17bd | | .CONST 0x17bd ; Address of begin 17b9 0004 | | .CONST 0x0004 ; Address of exception handler 17ba 0002 | | .CONST 0x0002 ; Number of locals 17bb INIT_17b8: 17bb e043 | C | Load 0x0,0x43 17bc 0007 | | Action Break_Optional 17bd BODY_17b8: 17bd e043 | C | Load 0x0,0x43 17be e40e | | Load 0x2,0xe 17bf 8053 | S | Call 0x0,0x53 17c0 0039 | 9 | Store_Top Access,At_Offset_1 17c1 00cf | | Action Mark_Auxiliary 17c2 780c |x | Jump 0x17cf 17c3 00d9 | | Load_Top At_Offset_1 17c4 8054 | T | Call 0x0,0x54 17c5 e40e | | Load 0x2,0xe 17c6 8055 | U | Call 0x0,0x55 17c7 e40f | | Load 0x2,0xf 17c8 017d | } | Execute Record,Structure_Write 17c9 e40f | | Load 0x2,0xf 17ca 8414 | | Call 0x2,0x14 17cb 00d9 | | Load_Top At_Offset_1 17cc 8056 | V | Call 0x0,0x56 17cd 003a | : | Store_Top Access,At_Offset_2 17ce 00c9 | | Action Pop_Auxiliary_Loop 17cf 00d9 | | Load_Top At_Offset_1 17d0 8057 | W | Call 0x0,0x57 17d1 6ff1 |o | Jump_Zero 0x17c3 17d2 4501 |E | Exit_Suprogram New_Top_Offset 0x1 17d3 0000 0000 | | .BLANK 0000[0x5] 17d8 ; -------------------------------------------------------------------------------------- 17d8 ; SUBPROGRAM 17d8 ; -------------------------------------------------------------------------------------- 17d8 17e3 | | .CONST 0x17e3 ; Address of begin 17d9 0004 | | .CONST 0x0004 ; Address of exception handler 17da 0003 | | .CONST 0x0003 ; Number of locals 17db INIT_17d8: 17db e099 | | Load 0x0,0x99 17dc 1b0d | | Execute Package,Field_Read,Field_Number 0xd 17dd e099 | | Load 0x0,0x99 17de 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 17df 1b0e | | Execute Package,Field_Read,Field_Number 0xe 17e0 02c7 | | Declare_Variable Any 17e1 00d8 | | Load_Top At_Offset_0 17e2 1c00 | | Execute_Immediate Run_Utility,0x0 17e3 BODY_17d8: 17e3 e099 | | Load 0x0,0x99 17e4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 17e5 00d9 | | Load_Top At_Offset_1 17e6 0120 | | Execute Any,Is_Value 17e7 6804 |h | Jump_Zero 0x17ec 17e8 e099 | | Load 0x0,0x99 17e9 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 17ea 1b0e | | Execute Package,Field_Read,Field_Number 0xe 17eb 7801 |x | Jump 0x17ed 17ec 00d9 | | Load_Top At_Offset_1 17ed ebff | | Load 0x5,-0x1 17ee e099 | | Load 0x0,0x99 17ef 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 17f0 181c | | Execute Package,Field_Execute,Field_Number 0x1c 17f1 ca03 | | Store 0x5,0x3 17f2 005a | Z | Store_Top Discrete,At_Offset_2 17f3 00d9 | | Load_Top At_Offset_1 17f4 7005 |p | Jump_Nonzero 0x17fa 17f5 00d8 | | Load_Top At_Offset_0 17f6 e099 | | Load 0x0,0x99 17f7 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 17f8 1812 | | Execute Package,Field_Execute,Field_Number 0x12 17f9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 17fa e099 | | Load 0x0,0x99 17fb 1810 | | Execute Package,Field_Execute,Field_Number 0x10 17fc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 17fd 0000 0000 | | .XXX[0x3] 17ff 0000 | | 1800 ; -------------------------------------------------------------------------------------- 1800 ; SUBPROGRAM 1800 ; -------------------------------------------------------------------------------------- 1800 1803 | | .CONST 0x1803 ; Address of begin 1801 0004 | | .CONST 0x0004 ; Address of exception handler 1802 0001 | | .CONST 0x0001 ; Number of locals 1803 BODY_1800: 1803 INIT_1800: 1803 e802 | | Load 0x4,0x2 1804 680e |h | Jump_Zero 0x1813 1805 e603 | | Load 0x3,0x3 1806 2e07 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7 1807 0d01 | | Execute_Immediate Less,0x1 1808 6805 |h | Jump_Zero 0x180e 1809 0092 1851 | Q| Action Push_String_Extended,0x1851 ; "No decisions exist for this " 180b 00db | | Load_Top At_Offset_3 180c 01cc | | Execute Vector,Catenate 180d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 180e 0092 1852 | R| Action Push_String_Extended,0x1852 ; "No missed decisions for this " 1810 00db | | Load_Top At_Offset_3 1811 01cc | | Execute Vector,Catenate 1812 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 1813 0092 1853 | S| Action Push_String_Extended,0x1853 ; "No missed segments for this " 1815 00db | | Load_Top At_Offset_3 1816 01cc | | Execute Vector,Catenate 1817 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 1818 ; -------------------------------------------------------------------------------------- 1818 ; STRING TABLE 1818 ; -------------------------------------------------------------------------------------- 1818 007a | z | .STRTAB 0x007a->0x1855 ; "WORLD" 1819 007d | } | .STRTAB 0x007d->0x1857 ; "UNIT" 181a 007f | | .STRTAB 0x007f->0x1859 ; "SUBPROGRAM" 181b 0087 | | .STRTAB 0x0087->0x185e ; "NONE" 181c 0089 | | .STRTAB 0x0089->0x1860 ; "ADA" 181d 008a | | .STRTAB 0x008a->0x1862 ; "REVERSE_ADA" 181e 0093 | | .STRTAB 0x0093->0x1867 ; "COVERAGE" 181f 0099 | | .STRTAB 0x0099->0x186b ; "REVERSE_COVERAGE" 1820 00a7 | | .STRTAB 0x00a7->0x1873 ; "NIL_COL" 1821 00ac | | .STRTAB 0x00ac->0x1877 ; "NAME_COL" 1822 00b2 | | .STRTAB 0x00b2->0x187b ; "PERCENT_COL" 1823 00bb | | .STRTAB 0x00bb->0x1880 ; "COVERAGE_COL" 1824 00c5 | | .STRTAB 0x00c5->0x1886 ; "SEGMENT" 1825 00ca | | .STRTAB 0x00ca->0x188a ; "DECISION" 1826 00d0 | | .STRTAB 0x00d0->0x188e ; "RGROUP" 1827 00d4 | | .STRTAB 0x00d4->0x1891 ; "RTEST_RUN" 1828 00db | | .STRTAB 0x00db->0x1895 ; "RTEST_CASE" 1829 00e3 | | .STRTAB 0x00e3->0x189a ; "NIL_ROW" 182a 00e8 | | .STRTAB 0x00e8->0x189e ; "TABLE_TITLE_ROW" 182b 00f5 | | .STRTAB 0x00f5->0x18a5 ; "COLUMN_TITLE_ROW" 182c 0103 | | .STRTAB 0x0103->0x18ad ; "WORLD_ROW" 182d 010a | | .STRTAB 0x010a->0x18b2 ; "UNIT_ROW" 182e 0110 | | .STRTAB 0x0110->0x18b6 ; "SUBPROGRAM_ROW" 182f 011c | | .STRTAB 0x011c->0x18bd ; "BLOCK_ROW" 1830 0123 | # | .STRTAB 0x0123->0x18c1 ; " " 1831 0122 | " | .STRTAB 0x0122->0x18c2 ; " NAME" 1832 012a | * | .STRTAB 0x012a->0x18c7 ; " COVERAGE" 1833 0134 | 4 | .STRTAB 0x0134->0x18cd ; " % COV" 1834 0139 | 9 | .STRTAB 0x0139->0x18d0 ; "Explanation not supported on this " 1835 0159 | Y | .STRTAB 0x0159->0x18e1 ; "Explanation not supported at this position" 1836 0181 | | .STRTAB 0x0181->0x18f6 ; "Definition not supported on this " 1837 01a0 | | .STRTAB 0x01a0->0x1907 ; "Definition not supported at this position" 1838 01c7 | | .STRTAB 0x01c7->0x191b ; "No enclosing object for an temporary Test_Run_Group" 1839 01f8 | | .STRTAB 0x01f8->0x1935 ; "Image is fully elided" 183a 020b | | .STRTAB 0x020b->0x193f ; "Elision not yet implemented for " 183b 0229 | ) | .STRTAB 0x0229->0x194f ; "Image is fully expanded" 183c 023e | > | .STRTAB 0x023e->0x195b ; "Expansion not yet implemented for " 183d 025e | ^ | .STRTAB 0x025e->0x196c ; "Promote" 183e 0263 | c | .STRTAB 0x0263->0x196f ; "Demote" 183f 0267 | g | .STRTAB 0x0267->0x1972 ; "Delete requires a selected line" 1840 0284 | | .STRTAB 0x0284->0x1982 ; "No operation defined for value " 1841 02a1 | | .STRTAB 0x02a1->0x1991 ; "Filter" 1842 02a5 | | .STRTAB 0x02a5->0x1994 ; "Show_Differential" 1843 02b4 | | .STRTAB 0x02b4->0x199d ; "Generate_Test_Set" 1844 02c3 | | .STRTAB 0x02c3->0x19a5 ; " (" 1845 02c3 | | .STRTAB 0x02c3->0x19a6 ; "S) by " 1846 02c7 | | .STRTAB 0x02c7->0x19a9 ; " -" 1847 02c9 | | .STRTAB 0x02c9->0x19ab ; "." 1848 02c8 | | .STRTAB 0x02c8->0x19ac ; "~" 1849 02c7 | | .STRTAB 0x02c7->0x19ac ; " " 184a 02c7 | | .STRTAB 0x02c7->0x19ad ; " " 184b 02c9 | | .STRTAB 0x02c9->0x19af ; "Deletion is not supported for coverage images" 184c 02f4 | | .STRTAB 0x02f4->0x19c6 ; "Delete not defined for this line" 184d 0312 | | .STRTAB 0x0312->0x19d6 ; "<DEFAULT>" 184e 0319 | | .STRTAB 0x0319->0x19da ; "unit" 184f 031b | | .STRTAB 0x031b->0x19dc ; "subprogram" 1850 0323 | # | .STRTAB 0x0323->0x19e1 ; "block" 1851 0326 | & | .STRTAB 0x0326->0x19e4 ; "No decisions exist for this " 1852 0340 | @ | .STRTAB 0x0340->0x19f2 ; "No missed decisions for this " 1853 035b | [ | .STRTAB 0x035b->0x1a00 ; "No missed segments for this " 1854 0375 | u | .STREND 0x0375->0x1a0e 1855 574f 524c |WORL| .STRTAB_STRINGS 1a0f 0000 | | .XXX[0x1] 1a10 ; -------------------------------------------------------------------------------------- 1a10 ; Debug Table 1a10 ; -------------------------------------------------------------------------------------- 1a10 0004 000a | | .DEBUG4 0x0004,0x000a,0x764a,0x0000,0x0001,0x0000 1a16 0000 0000 | | .BLANK 0000[0x1ea]