|
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: 11264 (0x2c00)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_06e8fd
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 1548 | H | .CONST 0x1548 ; 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 800d | | .CONST 0x800d ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 01ce | | .CONST 0x01ce ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0065 | e | .CONST 0x0065 ; Number of locals
000b INIT_0008:
000b 4800 |H | Short_Literal 0x0
000c 481b |H | Short_Literal 0x1b
000d 029f 01d3 | | Declare_Subprogram INIT_01d0,For_Call
000f 03fe | | Declare_Type Discrete,Defined,Visible
0010 029a 0203 | | Declare_Subprogram INIT_0200,For_Outer_Call,Visible,Unelaborated
0012 029a 0213 | | Declare_Subprogram INIT_0210,For_Outer_Call,Visible,Unelaborated
0014 029a 0223 | #| Declare_Subprogram INIT_0220,For_Outer_Call,Visible,Unelaborated
0016 029a 022b | +| Declare_Subprogram INIT_0228,For_Outer_Call,Visible,Unelaborated
0018 029a 023b | ;| Declare_Subprogram INIT_0238,For_Outer_Call,Visible,Unelaborated
001a 029a 0243 | C| Declare_Subprogram INIT_0240,For_Outer_Call,Visible,Unelaborated
001c 0093 0000 | | push_full_address 0x0
001e 61d9 |a | Indirect_Literal Discrete,0x1f8,{0x80000000, 0x00010000}
001f 0273 | s | Execute Discrete,Plus
0020 0129 | ) | Execute Any,Make_Visible
0021 029a 024b | K| Declare_Subprogram INIT_0248,For_Outer_Call,Visible,Unelaborated
0023 029a 026b | k| Declare_Subprogram INIT_0268,For_Outer_Call,Visible,Unelaborated
0025 029a 0283 | | Declare_Subprogram INIT_0280,For_Outer_Call,Visible,Unelaborated
0027 029a 029b | | Declare_Subprogram INIT_0298,For_Outer_Call,Visible,Unelaborated
0029 029a 02ab | | Declare_Subprogram INIT_02a8,For_Outer_Call,Visible,Unelaborated
002b 029a 02fb | | Declare_Subprogram INIT_02f8,For_Outer_Call,Visible,Unelaborated
002d 029a 034b | K| Declare_Subprogram INIT_0348,For_Outer_Call,Visible,Unelaborated
002f 029a 039b | | Declare_Subprogram INIT_0398,For_Outer_Call,Visible,Unelaborated
0031 029a 03eb | | Declare_Subprogram INIT_03e8,For_Outer_Call,Visible,Unelaborated
0033 029a 043b | ;| Declare_Subprogram INIT_0438,For_Outer_Call,Visible,Unelaborated
0035 029a 048b | | Declare_Subprogram INIT_0488,For_Outer_Call,Visible,Unelaborated
0037 029a 04db | | Declare_Subprogram INIT_04d8,For_Outer_Call,Visible,Unelaborated
0039 029a 052b | +| Declare_Subprogram INIT_0528,For_Outer_Call,Visible,Unelaborated
003b 029a 057b | {| Declare_Subprogram INIT_0578,For_Outer_Call,Visible,Unelaborated
003d 029a 05cb | | Declare_Subprogram INIT_05c8,For_Outer_Call,Visible,Unelaborated
003f 029a 061b | | Declare_Subprogram INIT_0618,For_Outer_Call,Visible,Unelaborated
0041 029a 066b | k| Declare_Subprogram INIT_0668,For_Outer_Call,Visible,Unelaborated
0043 029a 06bb | | Declare_Subprogram INIT_06b8,For_Outer_Call,Visible,Unelaborated
0045 029a 070b | | Declare_Subprogram INIT_0708,For_Outer_Call,Visible,Unelaborated
0047 029a 075b | [| Declare_Subprogram INIT_0758,For_Outer_Call,Visible,Unelaborated
0049 029a 07ab | | Declare_Subprogram INIT_07a8,For_Outer_Call,Visible,Unelaborated
004b 029a 07fb | | Declare_Subprogram INIT_07f8,For_Outer_Call,Visible,Unelaborated
004d 029a 08a3 | | Declare_Subprogram INIT_08a0,For_Outer_Call,Visible,Unelaborated
004f 029a 08f3 | | Declare_Subprogram INIT_08f0,For_Outer_Call,Visible,Unelaborated
0051 029a 0943 | C| Declare_Subprogram INIT_0940,For_Outer_Call,Visible,Unelaborated
0053 029a 0993 | | Declare_Subprogram INIT_0990,For_Outer_Call,Visible,Unelaborated
0055 029a 09e3 | | Declare_Subprogram INIT_09e0,For_Outer_Call,Visible,Unelaborated
0057 029a 0a33 | 3| Declare_Subprogram INIT_0a30,For_Outer_Call,Visible,Unelaborated
0059 029a 0a83 | | Declare_Subprogram INIT_0a80,For_Outer_Call,Visible,Unelaborated
005b 029a 0ad3 | | Declare_Subprogram INIT_0ad0,For_Outer_Call,Visible,Unelaborated
005d 029a 0b23 | #| Declare_Subprogram INIT_0b20,For_Outer_Call,Visible,Unelaborated
005f 029a 0b73 | s| Declare_Subprogram INIT_0b70,For_Outer_Call,Visible,Unelaborated
0061 029a 0b7b | {| Declare_Subprogram INIT_0b78,For_Outer_Call,Visible,Unelaborated
0063 029a 0b83 | | Declare_Subprogram INIT_0b80,For_Outer_Call,Visible,Unelaborated
0065 029a 0b93 | | Declare_Subprogram INIT_0b90,For_Outer_Call,Visible,Unelaborated
0067 029a 0b9b | | Declare_Subprogram INIT_0b98,For_Outer_Call,Visible,Unelaborated
0069 029a 0ba3 | | Declare_Subprogram INIT_0ba0,For_Outer_Call,Visible,Unelaborated
006b 029a 0bab | | Declare_Subprogram INIT_0ba8,For_Outer_Call,Visible,Unelaborated
006d 029a 0bb3 | | Declare_Subprogram INIT_0bb0,For_Outer_Call,Visible,Unelaborated
006f 029a 0bbb | | Declare_Subprogram INIT_0bb8,For_Outer_Call,Visible,Unelaborated
0071 029a 0bc3 | | Declare_Subprogram INIT_0bc0,For_Outer_Call,Visible,Unelaborated
0073 029a 0bcb | | Declare_Subprogram INIT_0bc8,For_Outer_Call,Visible,Unelaborated
0075 029a 0bd3 | | Declare_Subprogram INIT_0bd0,For_Outer_Call,Visible,Unelaborated
0077 029a 0bdb | | Declare_Subprogram INIT_0bd8,For_Outer_Call,Visible,Unelaborated
0079 029a 0be3 | | Declare_Subprogram INIT_0be0,For_Outer_Call,Visible,Unelaborated
007b 029a 0bf3 | | Declare_Subprogram INIT_0bf0,For_Outer_Call,Visible,Unelaborated
007d 029a 0bfb | | Declare_Subprogram INIT_0bf8,For_Outer_Call,Visible,Unelaborated
007f 029a 0c03 | | Declare_Subprogram INIT_0c00,For_Outer_Call,Visible,Unelaborated
0081 029a 0c13 | | Declare_Subprogram INIT_0c10,For_Outer_Call,Visible,Unelaborated
0083 029a 0c1b | | Declare_Subprogram INIT_0c18,For_Outer_Call,Visible,Unelaborated
0085 029a 0c2b | +| Declare_Subprogram INIT_0c28,For_Outer_Call,Visible,Unelaborated
0087 029a 0c33 | 3| Declare_Subprogram INIT_0c30,For_Outer_Call,Visible,Unelaborated
0089 029a 0c3b | ;| Declare_Subprogram INIT_0c38,For_Outer_Call,Visible,Unelaborated
008b 029a 0c43 | C| Declare_Subprogram INIT_0c40,For_Outer_Call,Visible,Unelaborated
008d 029a 0c4b | K| Declare_Subprogram INIT_0c48,For_Outer_Call,Visible,Unelaborated
008f 029a 0c53 | S| Declare_Subprogram INIT_0c50,For_Outer_Call,Visible,Unelaborated
0091 029a 0c5b | [| Declare_Subprogram INIT_0c58,For_Outer_Call,Visible,Unelaborated
0093 029a 0c73 | s| Declare_Subprogram INIT_0c70,For_Outer_Call,Visible,Unelaborated
0095 029a 0c7b | {| Declare_Subprogram INIT_0c78,For_Outer_Call,Visible,Unelaborated
0097 029a 0c83 | | Declare_Subprogram INIT_0c80,For_Outer_Call,Visible,Unelaborated
0099 029a 0c8b | | Declare_Subprogram INIT_0c88,For_Outer_Call,Visible,Unelaborated
009b 029a 0cb3 | | Declare_Subprogram INIT_0cb0,For_Outer_Call,Visible,Unelaborated
009d 029a 0cbb | | Declare_Subprogram INIT_0cb8,For_Outer_Call,Visible,Unelaborated
009f 029a 0cc3 | | Declare_Subprogram INIT_0cc0,For_Outer_Call,Visible,Unelaborated
00a1 029a 0d43 | C| Declare_Subprogram INIT_0d40,For_Outer_Call,Visible,Unelaborated
00a3 029a 0d93 | | Declare_Subprogram INIT_0d90,For_Outer_Call,Visible,Unelaborated
00a5 029a 0d9b | | Declare_Subprogram INIT_0d98,For_Outer_Call,Visible,Unelaborated
00a7 e20d | | Load 0x1,0xd
00a8 00e3 | | Load_Encached Natural_Cache
00a9 00e1 | | Load_Encached Boolean_Cache
00aa 00e1 | | Load_Encached Boolean_Cache
00ab 00e3 | | Load_Encached Natural_Cache
00ac e002 | | Load 0x0,0x2
00ad 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
00ae 00e3 | | Load_Encached Natural_Cache
00af e003 | | Load 0x0,0x3
00b0 00e3 | | Load_Encached Natural_Cache
00b1 00e1 | | Load_Encached Boolean_Cache
00b2 00e3 | | Load_Encached Natural_Cache
00b3 00e3 | | Load_Encached Natural_Cache
00b4 00e3 | | Load_Encached Natural_Cache
00b5 00e1 | | Load_Encached Boolean_Cache
00b6 e002 | | Load 0x0,0x2
00b7 1b15 | | Execute Package,Field_Read,Field_Number 0x15
00b8 00e3 | | Load_Encached Natural_Cache
00b9 00e2 | | Load_Encached Integer_Cache
00ba e004 | | Load 0x0,0x4
00bb 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28
00bc e005 | | Load 0x0,0x5
00bd 00e3 | | Load_Encached Natural_Cache
00be 00e1 | | Load_Encached Boolean_Cache
00bf 00e1 | | Load_Encached Boolean_Cache
00c0 029f 13ab | | Declare_Subprogram INIT_13a8,For_Call
00c2 4816 |H | Short_Literal 0x16
00c3 032e | . | Declare_Type Record,Defined,Visible
00c4 00e4 | | Load_Encached Positive_Cache
00c5 0266 | f | Execute Discrete,Bounds
00c6 00da | | Load_Top At_Offset_2
00c7 029f 0da3 | | Declare_Subprogram INIT_0da0,For_Call
00c9 4801 |H | Short_Literal 0x1
00ca 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object
00cb 00d9 | | Load_Top At_Offset_1
00cc 0322 | " | Declare_Variable Record
00cd 4800 |H | Short_Literal 0x0
00ce 00d9 | | Load_Top At_Offset_1
00cf 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00d0 4800 |H | Short_Literal 0x0
00d1 00d9 | | Load_Top At_Offset_1
00d2 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00d3 4800 |H | Short_Literal 0x0
00d4 00d9 | | Load_Top At_Offset_1
00d5 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
00d6 4800 |H | Short_Literal 0x0
00d7 00d9 | | Load_Top At_Offset_1
00d8 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
00d9 4800 |H | Short_Literal 0x0
00da 00d9 | | Load_Top At_Offset_1
00db 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
00dc e002 | | Load 0x0,0x2
00dd 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
00de 00d9 | | Load_Top At_Offset_1
00df 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
00e0 4800 |H | Short_Literal 0x0
00e1 00d9 | | Load_Top At_Offset_1
00e2 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
00e3 8006 | | Call 0x0,0x6
00e4 00d9 | | Load_Top At_Offset_1
00e5 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
00e6 4800 |H | Short_Literal 0x0
00e7 00d9 | | Load_Top At_Offset_1
00e8 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
00e9 4800 |H | Short_Literal 0x0
00ea 00d9 | | Load_Top At_Offset_1
00eb 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
00ec 4800 |H | Short_Literal 0x0
00ed 00d9 | | Load_Top At_Offset_1
00ee 380a |8 | Execute Record,Field_Write,Field_Number 0xa
00ef 4800 |H | Short_Literal 0x0
00f0 00d9 | | Load_Top At_Offset_1
00f1 380b |8 | Execute Record,Field_Write,Field_Number 0xb
00f2 4800 |H | Short_Literal 0x0
00f3 00d9 | | Load_Top At_Offset_1
00f4 380c |8 | Execute Record,Field_Write,Field_Number 0xc
00f5 4800 |H | Short_Literal 0x0
00f6 00d9 | | Load_Top At_Offset_1
00f7 380d |8 | Execute Record,Field_Write,Field_Number 0xd
00f8 8007 | | Call 0x0,0x7
00f9 00d9 | | Load_Top At_Offset_1
00fa 380e |8 | Execute Record,Field_Write,Field_Number 0xe
00fb 4800 |H | Short_Literal 0x0
00fc 00d9 | | Load_Top At_Offset_1
00fd 380f |8 | Execute Record,Field_Write,Field_Number 0xf
00fe 8008 | | Call 0x0,0x8
00ff 00db | | Load_Top At_Offset_3
0100 3011 |0 | Execute Record,Field_Type,Field_Number 0x11
0101 0119 | | Execute Any,Check_In_Formal_Type
0102 00d9 | | Load_Top At_Offset_1
0103 3811 |8 | Execute Record,Field_Write,Field_Number 0x11
0104 e009 | | Load 0x0,0x9
0105 00d9 | | Load_Top At_Offset_1
0106 3812 |8 | Execute Record,Field_Write,Field_Number 0x12
0107 4800 |H | Short_Literal 0x0
0108 00d9 | | Load_Top At_Offset_1
0109 3810 |8 | Execute Record,Field_Write,Field_Number 0x10
010a 4800 |H | Short_Literal 0x0
010b 00d9 | | Load_Top At_Offset_1
010c 3813 |8 | Execute Record,Field_Write,Field_Number 0x13
010d 4800 |H | Short_Literal 0x0
010e 00d9 | | Load_Top At_Offset_1
010f 3814 |8 | Execute Record,Field_Write,Field_Number 0x14
0110 4800 |H | Short_Literal 0x0
0111 00d9 | | Load_Top At_Offset_1
0112 3815 |8 | Execute Record,Field_Write,Field_Number 0x15
0113 0129 | ) | Execute Any,Make_Visible
0114 e00a | | Load 0x0,0xa
0115 e00b | | Load 0x0,0xb
0116 e258 | X | Load 0x1,0x58
0117 e259 | Y | Load 0x1,0x59
0118 e25a | Z | Load 0x1,0x5a
0119 0320 | | Declare_Variable Record,Duplicate
011a 00cd | | Action Spare6_Action
011b 4880 |H | Short_Literal 0x80
011c e00c | | Load 0x0,0xc
011d 0386 | | Declare_Variable Package,Visible
011e 00d8 | | Load_Top At_Offset_0
011f 020f | | Execute Module,Activate
0120 4880 |H | Short_Literal 0x80
0121 00d9 | | Load_Top At_Offset_1
0122 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0123 1c07 | | Execute_Immediate Run_Utility,0x7
0124 0129 | ) | Execute Any,Make_Visible
0125 00bf | | Action Accept_Activation
0126 4801 |H | Short_Literal 0x1
0127 480a |H | Short_Literal 0xa
0128 00e4 | | Load_Encached Positive_Cache
0129 03f8 | | Declare_Type Discrete,Constrained
012a 1d0e | | Execute_Immediate Reference_Lex_1,0xe
012b 00c7 | | Action Elaborate_Subprogram
012c 1d0f | | Execute_Immediate Reference_Lex_1,0xf
012d 00c7 | | Action Elaborate_Subprogram
012e 1d10 | | Execute_Immediate Reference_Lex_1,0x10
012f 00c7 | | Action Elaborate_Subprogram
0130 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0131 00c7 | | Action Elaborate_Subprogram
0132 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0133 00c7 | | Action Elaborate_Subprogram
0134 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0135 00c7 | | Action Elaborate_Subprogram
0136 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0137 00c7 | | Action Elaborate_Subprogram
0138 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0139 00c7 | | Action Elaborate_Subprogram
013a 1d17 | | Execute_Immediate Reference_Lex_1,0x17
013b 00c7 | | Action Elaborate_Subprogram
013c 1d18 | | Execute_Immediate Reference_Lex_1,0x18
013d 00c7 | | Action Elaborate_Subprogram
013e 1d19 | | Execute_Immediate Reference_Lex_1,0x19
013f 00c7 | | Action Elaborate_Subprogram
0140 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
0141 00c7 | | Action Elaborate_Subprogram
0142 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
0143 00c7 | | Action Elaborate_Subprogram
0144 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
0145 00c7 | | Action Elaborate_Subprogram
0146 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
0147 00c7 | | Action Elaborate_Subprogram
0148 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
0149 00c7 | | Action Elaborate_Subprogram
014a 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
014b 00c7 | | Action Elaborate_Subprogram
014c 1d20 | | Execute_Immediate Reference_Lex_1,0x20
014d 00c7 | | Action Elaborate_Subprogram
014e 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
014f 00c7 | | Action Elaborate_Subprogram
0150 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
0151 00c7 | | Action Elaborate_Subprogram
0152 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
0153 00c7 | | Action Elaborate_Subprogram
0154 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
0155 00c7 | | Action Elaborate_Subprogram
0156 1d25 | % | Execute_Immediate Reference_Lex_1,0x25
0157 00c7 | | Action Elaborate_Subprogram
0158 1d26 | & | Execute_Immediate Reference_Lex_1,0x26
0159 00c7 | | Action Elaborate_Subprogram
015a 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27
015b 00c7 | | Action Elaborate_Subprogram
015c 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28
015d 00c7 | | Action Elaborate_Subprogram
015e 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29
015f 00c7 | | Action Elaborate_Subprogram
0160 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a
0161 00c7 | | Action Elaborate_Subprogram
0162 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b
0163 00c7 | | Action Elaborate_Subprogram
0164 1d2c | , | Execute_Immediate Reference_Lex_1,0x2c
0165 00c7 | | Action Elaborate_Subprogram
0166 1d2d | - | Execute_Immediate Reference_Lex_1,0x2d
0167 00c7 | | Action Elaborate_Subprogram
0168 1d2e | . | Execute_Immediate Reference_Lex_1,0x2e
0169 00c7 | | Action Elaborate_Subprogram
016a 1d2f | / | Execute_Immediate Reference_Lex_1,0x2f
016b 00c7 | | Action Elaborate_Subprogram
016c 1d30 | 0 | Execute_Immediate Reference_Lex_1,0x30
016d 00c7 | | Action Elaborate_Subprogram
016e 1d31 | 1 | Execute_Immediate Reference_Lex_1,0x31
016f 00c7 | | Action Elaborate_Subprogram
0170 1d32 | 2 | Execute_Immediate Reference_Lex_1,0x32
0171 00c7 | | Action Elaborate_Subprogram
0172 1d33 | 3 | Execute_Immediate Reference_Lex_1,0x33
0173 00c7 | | Action Elaborate_Subprogram
0174 1d34 | 4 | Execute_Immediate Reference_Lex_1,0x34
0175 00c7 | | Action Elaborate_Subprogram
0176 1d36 | 6 | Execute_Immediate Reference_Lex_1,0x36
0177 00c7 | | Action Elaborate_Subprogram
0178 1d35 | 5 | Execute_Immediate Reference_Lex_1,0x35
0179 00c7 | | Action Elaborate_Subprogram
017a 1d37 | 7 | Execute_Immediate Reference_Lex_1,0x37
017b 00c7 | | Action Elaborate_Subprogram
017c 1d38 | 8 | Execute_Immediate Reference_Lex_1,0x38
017d 00c7 | | Action Elaborate_Subprogram
017e 1d39 | 9 | Execute_Immediate Reference_Lex_1,0x39
017f 00c7 | | Action Elaborate_Subprogram
0180 1d3a | : | Execute_Immediate Reference_Lex_1,0x3a
0181 00c7 | | Action Elaborate_Subprogram
0182 1d3b | ; | Execute_Immediate Reference_Lex_1,0x3b
0183 00c7 | | Action Elaborate_Subprogram
0184 1d3c | < | Execute_Immediate Reference_Lex_1,0x3c
0185 00c7 | | Action Elaborate_Subprogram
0186 1d3d | = | Execute_Immediate Reference_Lex_1,0x3d
0187 00c7 | | Action Elaborate_Subprogram
0188 1d3e | > | Execute_Immediate Reference_Lex_1,0x3e
0189 00c7 | | Action Elaborate_Subprogram
018a 1d3f | ? | Execute_Immediate Reference_Lex_1,0x3f
018b 00c7 | | Action Elaborate_Subprogram
018c 1d40 | @ | Execute_Immediate Reference_Lex_1,0x40
018d 00c7 | | Action Elaborate_Subprogram
018e 1d41 | A | Execute_Immediate Reference_Lex_1,0x41
018f 00c7 | | Action Elaborate_Subprogram
0190 1d42 | B | Execute_Immediate Reference_Lex_1,0x42
0191 00c7 | | Action Elaborate_Subprogram
0192 1d43 | C | Execute_Immediate Reference_Lex_1,0x43
0193 00c7 | | Action Elaborate_Subprogram
0194 1d44 | D | Execute_Immediate Reference_Lex_1,0x44
0195 00c7 | | Action Elaborate_Subprogram
0196 1d45 | E | Execute_Immediate Reference_Lex_1,0x45
0197 00c7 | | Action Elaborate_Subprogram
0198 1d46 | F | Execute_Immediate Reference_Lex_1,0x46
0199 00c7 | | Action Elaborate_Subprogram
019a 1d47 | G | Execute_Immediate Reference_Lex_1,0x47
019b 00c7 | | Action Elaborate_Subprogram
019c 1d4e | N | Execute_Immediate Reference_Lex_1,0x4e
019d 00c7 | | Action Elaborate_Subprogram
019e 1d4f | O | Execute_Immediate Reference_Lex_1,0x4f
019f 00c7 | | Action Elaborate_Subprogram
01a0 1d50 | P | Execute_Immediate Reference_Lex_1,0x50
01a1 00c7 | | Action Elaborate_Subprogram
01a2 1d48 | H | Execute_Immediate Reference_Lex_1,0x48
01a3 00c7 | | Action Elaborate_Subprogram
01a4 1d49 | I | Execute_Immediate Reference_Lex_1,0x49
01a5 00c7 | | Action Elaborate_Subprogram
01a6 1d4a | J | Execute_Immediate Reference_Lex_1,0x4a
01a7 00c7 | | Action Elaborate_Subprogram
01a8 1d4b | K | Execute_Immediate Reference_Lex_1,0x4b
01a9 00c7 | | Action Elaborate_Subprogram
01aa 1d4c | L | Execute_Immediate Reference_Lex_1,0x4c
01ab 00c7 | | Action Elaborate_Subprogram
01ac 1d4d | M | Execute_Immediate Reference_Lex_1,0x4d
01ad 00c7 | | Action Elaborate_Subprogram
01ae 029d 0dbb | | Declare_Subprogram INIT_0db8,For_Outer_Call
01b0 029d 0ecb | | Declare_Subprogram INIT_0ec8,For_Outer_Call
01b2 029d 0ee3 | | Declare_Subprogram INIT_0ee0,For_Outer_Call
01b4 1d55 | U | Execute_Immediate Reference_Lex_1,0x55
01b5 00c7 | | Action Elaborate_Subprogram
01b6 029d 10d3 | | Declare_Subprogram INIT_10d0,For_Outer_Call
01b8 1d51 | Q | Execute_Immediate Reference_Lex_1,0x51
01b9 00c7 | | Action Elaborate_Subprogram
01ba 029b 10f3 | | Declare_Subprogram INIT_10f0,For_Outer_Call,Unelaborated
01bc 029d 12a3 | | Declare_Subprogram INIT_12a0,For_Outer_Call
01be 1d52 | R | Execute_Immediate Reference_Lex_1,0x52
01bf 00c7 | | Action Elaborate_Subprogram
01c0 029d 12db | | Declare_Subprogram INIT_12d8,For_Outer_Call
01c2 029d 135b | [| Declare_Subprogram INIT_1358,For_Outer_Call
01c4 1d62 | b | Execute_Immediate Reference_Lex_1,0x62
01c5 00c7 | | Action Elaborate_Subprogram
01c6 1d53 | S | Execute_Immediate Reference_Lex_1,0x53
01c7 00c7 | | Action Elaborate_Subprogram
01c8 1d54 | T | Execute_Immediate Reference_Lex_1,0x54
01c9 00c7 | | Action Elaborate_Subprogram
01ca 1d56 | V | Execute_Immediate Reference_Lex_1,0x56
01cb 00c7 | | Action Elaborate_Subprogram
01cc 1d57 | W | Execute_Immediate Reference_Lex_1,0x57
01cd 00c7 | | Action Elaborate_Subprogram
01ce BODY_0008:
01ce 00bc | | Action Signal_Activated
01cf 00bb | | Action Signal_Completion
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; --------------------------------------------------------------------------------------
01d0 01d3 | | .CONST 0x01d3 ; Address of begin
01d1 0004 | | .CONST 0x0004 ; Address of exception handler
01d2 0001 | | .CONST 0x0001 ; Number of locals
01d3 BODY_01d0:
01d3 INIT_01d0:
01d3 4607 |F | Jump_Case 0x8
01d4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
01d5 7807 |x | Jump 0x1dd ; case 0x1
01d6 780a |x | Jump 0x1e1 ; case 0x2
01d7 780e |x | Jump 0x1e6 ; case 0x3
01d8 7811 |x | Jump 0x1ea ; case 0x4
01d9 7812 |x | Jump 0x1ec ; case 0x5
01da 7813 |x | Jump 0x1ee ; case 0x6
01db 7816 |x | Jump 0x1f2 ; case 0x7
01dc 4302 |C | .XXX[0x1]
01dd 00da | | Load_Top At_Offset_2
01de 0091 13b5 | | Action Push_String_Extended_Indexed,0x13b5 ; "NO_OP"
01e0 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
01e1 00db | | Load_Top At_Offset_3
01e2 00db | | Load_Top At_Offset_3
01e3 00e0 | | Load_Encached Standard_Cache
01e4 181b | | Execute Package,Field_Execute,Field_Number 0x1b
01e5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01e6 00da | | Load_Top At_Offset_2
01e7 00e0 | | Load_Encached Standard_Cache
01e8 181c | | Execute Package,Field_Execute,Field_Number 0x1c
01e9 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
01ea 00db | | Load_Top At_Offset_3
01eb 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01ec 00db | | Load_Top At_Offset_3
01ed 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01ee e20d | | Load 0x1,0xd
01ef 00dc | | Load_Top At_Offset_4
01f0 0267 | g | Execute Discrete,Predecessor
01f1 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01f2 e20d | | Load 0x1,0xd
01f3 00dc | | Load_Top At_Offset_4
01f4 0268 | h | Execute Discrete,Successor
01f5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01f6 0000 0000 | | .XXX[0x2]
01f8 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
01fc 0000 0000 | | .BLANK 0000[0x4]
0200 ; --------------------------------------------------------------------------------------
0200 ; SUBPROGRAM
0200 ; --------------------------------------------------------------------------------------
0200 0207 | | .CONST 0x0207 ; Address of begin
0201 0004 | | .CONST 0x0004 ; Address of exception handler
0202 0002 | | .CONST 0x0002 ; Number of locals
0203 INIT_0200:
0203 e25c | \ | Load 0x1,0x5c
0204 02ff | | Declare_Variable Variant_Record
0205 00d8 | | Load_Top At_Offset_0
0206 1c00 | | Execute_Immediate Run_Utility,0x0
0207 BODY_0200:
0207 00d8 | | Load_Top At_Offset_0
0208 e25b | [ | Load 0x1,0x5b
0209 1b11 | | Execute Package,Field_Read,Field_Number 0x11
020a 4800 |H | Short_Literal 0x0
020b e25b | [ | Load 0x1,0x5b
020c 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
020d 00d1 | | Pop_Control Pop_Count_1
020e 00d8 | | Load_Top At_Offset_0
020f 00ca | | Action Exit_Nullary_Function
0210 ; --------------------------------------------------------------------------------------
0210 ; SUBPROGRAM
0210 ; --------------------------------------------------------------------------------------
0210 0213 | | .CONST 0x0213 ; Address of begin
0211 0004 | | .CONST 0x0004 ; Address of exception handler
0212 0001 | | .CONST 0x0001 ; Number of locals
0213 BODY_0210:
0213 INIT_0210:
0213 00da | | Load_Top At_Offset_2
0214 e25b | [ | Load 0x1,0x5b
0215 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0216 4800 |H | Short_Literal 0x0
0217 e25b | [ | Load 0x1,0x5b
0218 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
0219 4501 |E | Exit_Suprogram New_Top_Offset 0x1
021a 0000 0000 | | .BLANK 0000[0x6]
0220 ; --------------------------------------------------------------------------------------
0220 ; SUBPROGRAM
0220 ; --------------------------------------------------------------------------------------
0220 0223 | # | .CONST 0x0223 ; Address of begin
0221 0004 | | .CONST 0x0004 ; Address of exception handler
0222 0001 | | .CONST 0x0001 ; Number of locals
0223 BODY_0220:
0223 INIT_0220:
0223 00da | | Load_Top At_Offset_2
0224 e25b | [ | Load 0x1,0x5b
0225 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0226 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0227 0000 | | .XXX[0x1]
0228 ; --------------------------------------------------------------------------------------
0228 ; SUBPROGRAM
0228 ; --------------------------------------------------------------------------------------
0228 022f | / | .CONST 0x022f ; Address of begin
0229 0004 | | .CONST 0x0004 ; Address of exception handler
022a 0002 | | .CONST 0x0002 ; Number of locals
022b INIT_0228:
022b e25c | \ | Load 0x1,0x5c
022c 02ff | | Declare_Variable Variant_Record
022d 00d8 | | Load_Top At_Offset_0
022e 1c00 | | Execute_Immediate Run_Utility,0x0
022f BODY_0228:
022f 00d8 | | Load_Top At_Offset_0
0230 e5ff | | Load 0x2,-0x1
0231 8212 | | Call 0x1,0x12
0232 00d1 | | Pop_Control Pop_Count_1
0233 00d8 | | Load_Top At_Offset_0
0234 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0235 0000 0000 | | .XXX[0x3]
0237 0000 | |
0238 ; --------------------------------------------------------------------------------------
0238 ; SUBPROGRAM
0238 ; --------------------------------------------------------------------------------------
0238 023b | ; | .CONST 0x023b ; Address of begin
0239 0004 | | .CONST 0x0004 ; Address of exception handler
023a 0001 | | .CONST 0x0001 ; Number of locals
023b BODY_0238:
023b INIT_0238:
023b 00db | | Load_Top At_Offset_3
023c 00db | | Load_Top At_Offset_3
023d e25b | [ | Load 0x1,0x5b
023e 1815 | | Execute Package,Field_Execute,Field_Number 0x15
023f 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0240 ; --------------------------------------------------------------------------------------
0240 ; SUBPROGRAM
0240 ; --------------------------------------------------------------------------------------
0240 0243 | C | .CONST 0x0243 ; Address of begin
0241 0004 | | .CONST 0x0004 ; Address of exception handler
0242 0001 | | .CONST 0x0001 ; Number of locals
0243 BODY_0240:
0243 INIT_0240:
0243 00db | | Load_Top At_Offset_3
0244 00db | | Load_Top At_Offset_3
0245 e25b | [ | Load 0x1,0x5b
0246 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
0247 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0248 ; --------------------------------------------------------------------------------------
0248 ; SUBPROGRAM
0248 ; --------------------------------------------------------------------------------------
0248 024b | K | .CONST 0x024b ; Address of begin
0249 0004 | | .CONST 0x0004 ; Address of exception handler
024a 0001 | | .CONST 0x0001 ; Number of locals
024b BODY_0248:
024b INIT_0248:
024b 00da | | Load_Top At_Offset_2
024c e5fd | | Load 0x2,-0x3
024d e25b | [ | Load 0x1,0x5b
024e 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
024f 027d | } | Execute Discrete,Greater
0250 680d |h | Jump_Zero 0x25e
0251 e5fd | | Load 0x2,-0x3
0252 e25b | [ | Load 0x1,0x5b
0253 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0254 0c80 | | Execute_Immediate Greater_Equal,-0x80
0255 6802 |h | Jump_Zero 0x258
0256 e214 | | Load 0x1,0x14
0257 0257 | W | Execute Discrete,Raise
0258 e5fd | | Load 0x2,-0x3
0259 e5fe | | Load 0x2,-0x2
025a e25b | [ | Load 0x1,0x5b
025b 181f | | Execute Package,Field_Execute,Field_Number 0x1f
025c 00d1 | | Pop_Control Pop_Count_1
025d 4503 |E | Exit_Suprogram New_Top_Offset 0x3
025e e5fd | | Load 0x2,-0x3
025f e5fe | | Load 0x2,-0x2
0260 e5ff | | Load 0x2,-0x1
0261 e25b | [ | Load 0x1,0x5b
0262 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0263 00d1 | | Pop_Control Pop_Count_1
0264 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0265 0000 0000 | | .XXX[0x3]
0267 0000 | |
0268 ; --------------------------------------------------------------------------------------
0268 ; SUBPROGRAM
0268 ; --------------------------------------------------------------------------------------
0268 026b | k | .CONST 0x026b ; Address of begin
0269 0004 | | .CONST 0x0004 ; Address of exception handler
026a 0001 | | .CONST 0x0001 ; Number of locals
026b BODY_0268:
026b INIT_0268:
026b e5fd | | Load 0x2,-0x3
026c e25b | [ | Load 0x1,0x5b
026d 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
026e 0c80 | | Execute_Immediate Greater_Equal,-0x80
026f 6802 |h | Jump_Zero 0x272
0270 e214 | | Load 0x1,0x14
0271 0257 | W | Execute Discrete,Raise
0272 e5fd | | Load 0x2,-0x3
0273 e25b | [ | Load 0x1,0x5b
0274 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0275 0162 | b | Execute Variant_Record,Check_In_Type
0276 e5fe | | Load 0x2,-0x2
0277 e5ff | | Load 0x2,-0x1
0278 e25b | [ | Load 0x1,0x5b
0279 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
027a 00d1 | | Pop_Control Pop_Count_1
027b 4503 |E | Exit_Suprogram New_Top_Offset 0x3
027c 0000 0000 | | .BLANK 0000[0x4]
0280 ; --------------------------------------------------------------------------------------
0280 ; SUBPROGRAM
0280 ; --------------------------------------------------------------------------------------
0280 0283 | | .CONST 0x0283 ; Address of begin
0281 0004 | | .CONST 0x0004 ; Address of exception handler
0282 0001 | | .CONST 0x0001 ; Number of locals
0283 BODY_0280:
0283 INIT_0280:
0283 00db | | Load_Top At_Offset_3
0284 e25b | [ | Load 0x1,0x5b
0285 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0286 0c80 | | Execute_Immediate Greater_Equal,-0x80
0287 6802 |h | Jump_Zero 0x28a
0288 e214 | | Load 0x1,0x14
0289 0257 | W | Execute Discrete,Raise
028a 00db | | Load_Top At_Offset_3
028b e25b | [ | Load 0x1,0x5b
028c 1b14 | | Execute Package,Field_Read,Field_Number 0x14
028d 0162 | b | Execute Variant_Record,Check_In_Type
028e 00db | | Load_Top At_Offset_3
028f e25b | [ | Load 0x1,0x5b
0290 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0291 00d1 | | Pop_Control Pop_Count_1
0292 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0293 0000 0000 | | .BLANK 0000[0x5]
0298 ; --------------------------------------------------------------------------------------
0298 ; SUBPROGRAM
0298 ; --------------------------------------------------------------------------------------
0298 029b | | .CONST 0x029b ; Address of begin
0299 0004 | | .CONST 0x0004 ; Address of exception handler
029a 0001 | | .CONST 0x0001 ; Number of locals
029b BODY_0298:
029b INIT_0298:
029b 00db | | Load_Top At_Offset_3
029c e25b | [ | Load 0x1,0x5b
029d 1b14 | | Execute Package,Field_Read,Field_Number 0x14
029e 0162 | b | Execute Variant_Record,Check_In_Type
029f 4801 |H | Short_Literal 0x1
02a0 e5ff | | Load 0x2,-0x1
02a1 e25b | [ | Load 0x1,0x5b
02a2 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
02a3 4502 |E | Exit_Suprogram New_Top_Offset 0x2
02a4 0000 0000 | | .BLANK 0000[0x4]
02a8 ; --------------------------------------------------------------------------------------
02a8 ; SUBPROGRAM
02a8 ; --------------------------------------------------------------------------------------
02a8 02ab | | .CONST 0x02ab ; Address of begin
02a9 0004 | | .CONST 0x0004 ; Address of exception handler
02aa 0001 | | .CONST 0x0001 ; Number of locals
02ab BODY_02a8:
02ab INIT_02a8:
02ab e258 | X | Load 0x1,0x58
02ac 0322 | " | Declare_Variable Record
02ad 4800 |H | Short_Literal 0x0
02ae 00d9 | | Load_Top At_Offset_1
02af 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
02b0 00db | | Load_Top At_Offset_3
02b1 00d9 | | Load_Top At_Offset_1
02b2 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
02b3 e5fe | | Load 0x2,-0x2
02b4 00d9 | | Load_Top At_Offset_1
02b5 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
02b6 4800 |H | Short_Literal 0x0
02b7 00d9 | | Load_Top At_Offset_1
02b8 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
02b9 4800 |H | Short_Literal 0x0
02ba 00d9 | | Load_Top At_Offset_1
02bb 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
02bc e002 | | Load 0x0,0x2
02bd 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
02be 00d9 | | Load_Top At_Offset_1
02bf 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
02c0 4800 |H | Short_Literal 0x0
02c1 00d9 | | Load_Top At_Offset_1
02c2 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
02c3 8006 | | Call 0x0,0x6
02c4 00d9 | | Load_Top At_Offset_1
02c5 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
02c6 4800 |H | Short_Literal 0x0
02c7 00d9 | | Load_Top At_Offset_1
02c8 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
02c9 4800 |H | Short_Literal 0x0
02ca 00d9 | | Load_Top At_Offset_1
02cb 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
02cc 4800 |H | Short_Literal 0x0
02cd 00d9 | | Load_Top At_Offset_1
02ce 380a |8 | Execute Record,Field_Write,Field_Number 0xa
02cf 4800 |H | Short_Literal 0x0
02d0 00d9 | | Load_Top At_Offset_1
02d1 380b |8 | Execute Record,Field_Write,Field_Number 0xb
02d2 4800 |H | Short_Literal 0x0
02d3 00d9 | | Load_Top At_Offset_1
02d4 380c |8 | Execute Record,Field_Write,Field_Number 0xc
02d5 4800 |H | Short_Literal 0x0
02d6 00d9 | | Load_Top At_Offset_1
02d7 380d |8 | Execute Record,Field_Write,Field_Number 0xd
02d8 8007 | | Call 0x0,0x7
02d9 00d9 | | Load_Top At_Offset_1
02da 380e |8 | Execute Record,Field_Write,Field_Number 0xe
02db 4800 |H | Short_Literal 0x0
02dc 00d9 | | Load_Top At_Offset_1
02dd 380f |8 | Execute Record,Field_Write,Field_Number 0xf
02de 8008 | | Call 0x0,0x8
02df e258 | X | Load 0x1,0x58
02e0 3011 |0 | Execute Record,Field_Type,Field_Number 0x11
02e1 0119 | | Execute Any,Check_In_Formal_Type
02e2 00d9 | | Load_Top At_Offset_1
02e3 3811 |8 | Execute Record,Field_Write,Field_Number 0x11
02e4 e009 | | Load 0x0,0x9
02e5 00d9 | | Load_Top At_Offset_1
02e6 3812 |8 | Execute Record,Field_Write,Field_Number 0x12
02e7 4800 |H | Short_Literal 0x0
02e8 00d9 | | Load_Top At_Offset_1
02e9 3810 |8 | Execute Record,Field_Write,Field_Number 0x10
02ea 4800 |H | Short_Literal 0x0
02eb 00d9 | | Load_Top At_Offset_1
02ec 3813 |8 | Execute Record,Field_Write,Field_Number 0x13
02ed 4800 |H | Short_Literal 0x0
02ee 00d9 | | Load_Top At_Offset_1
02ef 3814 |8 | Execute Record,Field_Write,Field_Number 0x14
02f0 4800 |H | Short_Literal 0x0
02f1 00d9 | | Load_Top At_Offset_1
02f2 3815 |8 | Execute Record,Field_Write,Field_Number 0x15
02f3 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
02f4 0000 0000 | | .BLANK 0000[0x4]
02f8 ; --------------------------------------------------------------------------------------
02f8 ; SUBPROGRAM
02f8 ; --------------------------------------------------------------------------------------
02f8 02fb | | .CONST 0x02fb ; Address of begin
02f9 0004 | | .CONST 0x0004 ; Address of exception handler
02fa 0001 | | .CONST 0x0001 ; Number of locals
02fb BODY_02f8:
02fb INIT_02f8:
02fb e258 | X | Load 0x1,0x58
02fc 0322 | " | Declare_Variable Record
02fd 4801 |H | Short_Literal 0x1
02fe 00d9 | | Load_Top At_Offset_1
02ff 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0300 00db | | Load_Top At_Offset_3
0301 00d9 | | Load_Top At_Offset_1
0302 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0303 4800 |H | Short_Literal 0x0
0304 00d9 | | Load_Top At_Offset_1
0305 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0306 4800 |H | Short_Literal 0x0
0307 00d9 | | Load_Top At_Offset_1
0308 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0309 4800 |H | Short_Literal 0x0
030a 00d9 | | Load_Top At_Offset_1
030b 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
030c e002 | | Load 0x0,0x2
030d 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
030e 00d9 | | Load_Top At_Offset_1
030f 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0310 4800 |H | Short_Literal 0x0
0311 00d9 | | Load_Top At_Offset_1
0312 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
0313 8006 | | Call 0x0,0x6
0314 00d9 | | Load_Top At_Offset_1
0315 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
0316 4800 |H | Short_Literal 0x0
0317 00d9 | | Load_Top At_Offset_1
0318 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
0319 4800 |H | Short_Literal 0x0
031a 00d9 | | Load_Top At_Offset_1
031b 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
031c 4800 |H | Short_Literal 0x0
031d 00d9 | | Load_Top At_Offset_1
031e 380a |8 | Execute Record,Field_Write,Field_Number 0xa
031f 4800 |H | Short_Literal 0x0
0320 00d9 | | Load_Top At_Offset_1
0321 380b |8 | Execute Record,Field_Write,Field_Number 0xb
0322 4800 |H | Short_Literal 0x0
0323 00d9 | | Load_Top At_Offset_1
0324 380c |8 | Execute Record,Field_Write,Field_Number 0xc
0325 4800 |H | Short_Literal 0x0
0326 00d9 | | Load_Top At_Offset_1
0327 380d |8 | Execute Record,Field_Write,Field_Number 0xd
0328 8007 | | Call 0x0,0x7
0329 00d9 | | Load_Top At_Offset_1
032a 380e |8 | Execute Record,Field_Write,Field_Number 0xe
032b 4800 |H | Short_Literal 0x0
032c 00d9 | | Load_Top At_Offset_1
032d 380f |8 | Execute Record,Field_Write,Field_Number 0xf
032e 8008 | | Call 0x0,0x8
032f e258 | X | Load 0x1,0x58
0330 3011 |0 | Execute Record,Field_Type,Field_Number 0x11
0331 0119 | | Execute Any,Check_In_Formal_Type
0332 00d9 | | Load_Top At_Offset_1
0333 3811 |8 | Execute Record,Field_Write,Field_Number 0x11
0334 e009 | | Load 0x0,0x9
0335 00d9 | | Load_Top At_Offset_1
0336 3812 |8 | Execute Record,Field_Write,Field_Number 0x12
0337 4800 |H | Short_Literal 0x0
0338 00d9 | | Load_Top At_Offset_1
0339 3810 |8 | Execute Record,Field_Write,Field_Number 0x10
033a 4800 |H | Short_Literal 0x0
033b 00d9 | | Load_Top At_Offset_1
033c 3813 |8 | Execute Record,Field_Write,Field_Number 0x13
033d 4800 |H | Short_Literal 0x0
033e 00d9 | | Load_Top At_Offset_1
033f 3814 |8 | Execute Record,Field_Write,Field_Number 0x14
0340 4800 |H | Short_Literal 0x0
0341 00d9 | | Load_Top At_Offset_1
0342 3815 |8 | Execute Record,Field_Write,Field_Number 0x15
0343 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0344 0000 0000 | | .BLANK 0000[0x4]
0348 ; --------------------------------------------------------------------------------------
0348 ; SUBPROGRAM
0348 ; --------------------------------------------------------------------------------------
0348 034b | K | .CONST 0x034b ; Address of begin
0349 0004 | | .CONST 0x0004 ; Address of exception handler
034a 0001 | | .CONST 0x0001 ; Number of locals
034b BODY_0348:
034b INIT_0348:
034b e258 | X | Load 0x1,0x58
034c 0322 | " | Declare_Variable Record
034d 4803 |H | Short_Literal 0x3
034e 00d9 | | Load_Top At_Offset_1
034f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0350 e5f9 | | Load 0x2,-0x7
0351 00d9 | | Load_Top At_Offset_1
0352 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0353 e5fa | | Load 0x2,-0x6
0354 00d9 | | Load_Top At_Offset_1
0355 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0356 00db | | Load_Top At_Offset_3
0357 00d9 | | Load_Top At_Offset_1
0358 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0359 e5fb | | Load 0x2,-0x5
035a 00d9 | | Load_Top At_Offset_1
035b 380d |8 | Execute Record,Field_Write,Field_Number 0xd
035c e5fe | | Load 0x2,-0x2
035d 00d9 | | Load_Top At_Offset_1
035e 380e |8 | Execute Record,Field_Write,Field_Number 0xe
035f e5fd | | Load 0x2,-0x3
0360 00d9 | | Load_Top At_Offset_1
0361 380f |8 | Execute Record,Field_Write,Field_Number 0xf
0362 e5fc | | Load 0x2,-0x4
0363 00d9 | | Load_Top At_Offset_1
0364 3810 |8 | Execute Record,Field_Write,Field_Number 0x10
0365 e5f8 | | Load 0x2,-0x8
0366 e258 | X | Load 0x1,0x58
0367 3011 |0 | Execute Record,Field_Type,Field_Number 0x11
0368 0119 | | Execute Any,Check_In_Formal_Type
0369 00d9 | | Load_Top At_Offset_1
036a 3811 |8 | Execute Record,Field_Write,Field_Number 0x11
036b e5f7 | | Load 0x2,-0x9
036c 00d9 | | Load_Top At_Offset_1
036d 3812 |8 | Execute Record,Field_Write,Field_Number 0x12
036e 4800 |H | Short_Literal 0x0
036f 00d9 | | Load_Top At_Offset_1
0370 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0371 e002 | | Load 0x0,0x2
0372 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0373 00d9 | | Load_Top At_Offset_1
0374 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0375 4800 |H | Short_Literal 0x0
0376 00d9 | | Load_Top At_Offset_1
0377 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
0378 8006 | | Call 0x0,0x6
0379 00d9 | | Load_Top At_Offset_1
037a 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
037b 4800 |H | Short_Literal 0x0
037c 00d9 | | Load_Top At_Offset_1
037d 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
037e 4800 |H | Short_Literal 0x0
037f 00d9 | | Load_Top At_Offset_1
0380 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
0381 4800 |H | Short_Literal 0x0
0382 00d9 | | Load_Top At_Offset_1
0383 380a |8 | Execute Record,Field_Write,Field_Number 0xa
0384 4800 |H | Short_Literal 0x0
0385 00d9 | | Load_Top At_Offset_1
0386 380b |8 | Execute Record,Field_Write,Field_Number 0xb
0387 4800 |H | Short_Literal 0x0
0388 00d9 | | Load_Top At_Offset_1
0389 380c |8 | Execute Record,Field_Write,Field_Number 0xc
038a 4800 |H | Short_Literal 0x0
038b 00d9 | | Load_Top At_Offset_1
038c 3813 |8 | Execute Record,Field_Write,Field_Number 0x13
038d 4800 |H | Short_Literal 0x0
038e 00d9 | | Load_Top At_Offset_1
038f 3814 |8 | Execute Record,Field_Write,Field_Number 0x14
0390 4800 |H | Short_Literal 0x0
0391 00d9 | | Load_Top At_Offset_1
0392 3815 |8 | Execute Record,Field_Write,Field_Number 0x15
0393 4409 |D | Exit_Subprogram With_Value,New_Top_Offset 0x9
0394 0000 0000 | | .BLANK 0000[0x4]
0398 ; --------------------------------------------------------------------------------------
0398 ; SUBPROGRAM
0398 ; --------------------------------------------------------------------------------------
0398 039b | | .CONST 0x039b ; Address of begin
0399 0004 | | .CONST 0x0004 ; Address of exception handler
039a 0001 | | .CONST 0x0001 ; Number of locals
039b BODY_0398:
039b INIT_0398:
039b e258 | X | Load 0x1,0x58
039c 0322 | " | Declare_Variable Record
039d 4802 |H | Short_Literal 0x2
039e 00d9 | | Load_Top At_Offset_1
039f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
03a0 e5fd | | Load 0x2,-0x3
03a1 00d9 | | Load_Top At_Offset_1
03a2 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
03a3 4800 |H | Short_Literal 0x0
03a4 00d9 | | Load_Top At_Offset_1
03a5 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
03a6 00db | | Load_Top At_Offset_3
03a7 00d9 | | Load_Top At_Offset_1
03a8 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
03a9 4800 |H | Short_Literal 0x0
03aa 00d9 | | Load_Top At_Offset_1
03ab 380d |8 | Execute Record,Field_Write,Field_Number 0xd
03ac e5fe | | Load 0x2,-0x2
03ad 00d9 | | Load_Top At_Offset_1
03ae 380e |8 | Execute Record,Field_Write,Field_Number 0xe
03af 4800 |H | Short_Literal 0x0
03b0 00d9 | | Load_Top At_Offset_1
03b1 380f |8 | Execute Record,Field_Write,Field_Number 0xf
03b2 8008 | | Call 0x0,0x8
03b3 e258 | X | Load 0x1,0x58
03b4 3011 |0 | Execute Record,Field_Type,Field_Number 0x11
03b5 0119 | | Execute Any,Check_In_Formal_Type
03b6 00d9 | | Load_Top At_Offset_1
03b7 3811 |8 | Execute Record,Field_Write,Field_Number 0x11
03b8 e009 | | Load 0x0,0x9
03b9 00d9 | | Load_Top At_Offset_1
03ba 3812 |8 | Execute Record,Field_Write,Field_Number 0x12
03bb 4800 |H | Short_Literal 0x0
03bc 00d9 | | Load_Top At_Offset_1
03bd 3810 |8 | Execute Record,Field_Write,Field_Number 0x10
03be 4800 |H | Short_Literal 0x0
03bf 00d9 | | Load_Top At_Offset_1
03c0 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
03c1 e002 | | Load 0x0,0x2
03c2 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
03c3 00d9 | | Load_Top At_Offset_1
03c4 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
03c5 4800 |H | Short_Literal 0x0
03c6 00d9 | | Load_Top At_Offset_1
03c7 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
03c8 8006 | | Call 0x0,0x6
03c9 00d9 | | Load_Top At_Offset_1
03ca 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
03cb 4800 |H | Short_Literal 0x0
03cc 00d9 | | Load_Top At_Offset_1
03cd 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
03ce 4800 |H | Short_Literal 0x0
03cf 00d9 | | Load_Top At_Offset_1
03d0 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
03d1 4800 |H | Short_Literal 0x0
03d2 00d9 | | Load_Top At_Offset_1
03d3 380a |8 | Execute Record,Field_Write,Field_Number 0xa
03d4 4800 |H | Short_Literal 0x0
03d5 00d9 | | Load_Top At_Offset_1
03d6 380b |8 | Execute Record,Field_Write,Field_Number 0xb
03d7 4800 |H | Short_Literal 0x0
03d8 00d9 | | Load_Top At_Offset_1
03d9 380c |8 | Execute Record,Field_Write,Field_Number 0xc
03da 4800 |H | Short_Literal 0x0
03db 00d9 | | Load_Top At_Offset_1
03dc 3813 |8 | Execute Record,Field_Write,Field_Number 0x13
03dd 4800 |H | Short_Literal 0x0
03de 00d9 | | Load_Top At_Offset_1
03df 3814 |8 | Execute Record,Field_Write,Field_Number 0x14
03e0 4800 |H | Short_Literal 0x0
03e1 00d9 | | Load_Top At_Offset_1
03e2 3815 |8 | Execute Record,Field_Write,Field_Number 0x15
03e3 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
03e4 0000 0000 | | .BLANK 0000[0x4]
03e8 ; --------------------------------------------------------------------------------------
03e8 ; SUBPROGRAM
03e8 ; --------------------------------------------------------------------------------------
03e8 03eb | | .CONST 0x03eb ; Address of begin
03e9 0004 | | .CONST 0x0004 ; Address of exception handler
03ea 0001 | | .CONST 0x0001 ; Number of locals
03eb BODY_03e8:
03eb INIT_03e8:
03eb e258 | X | Load 0x1,0x58
03ec 0322 | " | Declare_Variable Record
03ed 4804 |H | Short_Literal 0x4
03ee 00d9 | | Load_Top At_Offset_1
03ef 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
03f0 00db | | Load_Top At_Offset_3
03f1 00d9 | | Load_Top At_Offset_1
03f2 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
03f3 e5fc | | Load 0x2,-0x4
03f4 00d9 | | Load_Top At_Offset_1
03f5 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
03f6 e5fd | | Load 0x2,-0x3
03f7 00d9 | | Load_Top At_Offset_1
03f8 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
03f9 e5fe | | Load 0x2,-0x2
03fa 00d9 | | Load_Top At_Offset_1
03fb 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
03fc e002 | | Load 0x0,0x2
03fd 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
03fe 00d9 | | Load_Top At_Offset_1
03ff 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0400 4800 |H | Short_Literal 0x0
0401 00d9 | | Load_Top At_Offset_1
0402 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
0403 8006 | | Call 0x0,0x6
0404 00d9 | | Load_Top At_Offset_1
0405 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
0406 4800 |H | Short_Literal 0x0
0407 00d9 | | Load_Top At_Offset_1
0408 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
0409 4800 |H | Short_Literal 0x0
040a 00d9 | | Load_Top At_Offset_1
040b 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
040c 4800 |H | Short_Literal 0x0
040d 00d9 | | Load_Top At_Offset_1
040e 380a |8 | Execute Record,Field_Write,Field_Number 0xa
040f 4800 |H | Short_Literal 0x0
0410 00d9 | | Load_Top At_Offset_1
0411 380b |8 | Execute Record,Field_Write,Field_Number 0xb
0412 4800 |H | Short_Literal 0x0
0413 00d9 | | Load_Top At_Offset_1
0414 380c |8 | Execute Record,Field_Write,Field_Number 0xc
0415 4800 |H | Short_Literal 0x0
0416 00d9 | | Load_Top At_Offset_1
0417 380d |8 | Execute Record,Field_Write,Field_Number 0xd
0418 8007 | | Call 0x0,0x7
0419 00d9 | | Load_Top At_Offset_1
041a 380e |8 | Execute Record,Field_Write,Field_Number 0xe
041b 4800 |H | Short_Literal 0x0
041c 00d9 | | Load_Top At_Offset_1
041d 380f |8 | Execute Record,Field_Write,Field_Number 0xf
041e 8008 | | Call 0x0,0x8
041f e258 | X | Load 0x1,0x58
0420 3011 |0 | Execute Record,Field_Type,Field_Number 0x11
0421 0119 | | Execute Any,Check_In_Formal_Type
0422 00d9 | | Load_Top At_Offset_1
0423 3811 |8 | Execute Record,Field_Write,Field_Number 0x11
0424 e009 | | Load 0x0,0x9
0425 00d9 | | Load_Top At_Offset_1
0426 3812 |8 | Execute Record,Field_Write,Field_Number 0x12
0427 4800 |H | Short_Literal 0x0
0428 00d9 | | Load_Top At_Offset_1
0429 3810 |8 | Execute Record,Field_Write,Field_Number 0x10
042a 4800 |H | Short_Literal 0x0
042b 00d9 | | Load_Top At_Offset_1
042c 3813 |8 | Execute Record,Field_Write,Field_Number 0x13
042d 4800 |H | Short_Literal 0x0
042e 00d9 | | Load_Top At_Offset_1
042f 3814 |8 | Execute Record,Field_Write,Field_Number 0x14
0430 4800 |H | Short_Literal 0x0
0431 00d9 | | Load_Top At_Offset_1
0432 3815 |8 | Execute Record,Field_Write,Field_Number 0x15
0433 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0434 0000 0000 | | .BLANK 0000[0x4]
0438 ; --------------------------------------------------------------------------------------
0438 ; SUBPROGRAM
0438 ; --------------------------------------------------------------------------------------
0438 043b | ; | .CONST 0x043b ; Address of begin
0439 0004 | | .CONST 0x0004 ; Address of exception handler
043a 0001 | | .CONST 0x0001 ; Number of locals
043b BODY_0438:
043b INIT_0438:
043b e258 | X | Load 0x1,0x58
043c 0322 | " | Declare_Variable Record
043d 4805 |H | Short_Literal 0x5
043e 00d9 | | Load_Top At_Offset_1
043f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0440 00db | | Load_Top At_Offset_3
0441 00d9 | | Load_Top At_Offset_1
0442 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0443 e5fa | | Load 0x2,-0x6
0444 00d9 | | Load_Top At_Offset_1
0445 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0446 e5fb | | Load 0x2,-0x5
0447 00d9 | | Load_Top At_Offset_1
0448 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0449 e5fc | | Load 0x2,-0x4
044a 00d9 | | Load_Top At_Offset_1
044b 380d |8 | Execute Record,Field_Write,Field_Number 0xd
044c e5fe | | Load 0x2,-0x2
044d 00d9 | | Load_Top At_Offset_1
044e 3814 |8 | Execute Record,Field_Write,Field_Number 0x14
044f e5fd | | Load 0x2,-0x3
0450 00d9 | | Load_Top At_Offset_1
0451 3815 |8 | Execute Record,Field_Write,Field_Number 0x15
0452 4800 |H | Short_Literal 0x0
0453 00d9 | | Load_Top At_Offset_1
0454 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0455 e002 | | Load 0x0,0x2
0456 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0457 00d9 | | Load_Top At_Offset_1
0458 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0459 4800 |H | Short_Literal 0x0
045a 00d9 | | Load_Top At_Offset_1
045b 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
045c 8006 | | Call 0x0,0x6
045d 00d9 | | Load_Top At_Offset_1
045e 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
045f 4800 |H | Short_Literal 0x0
0460 00d9 | | Load_Top At_Offset_1
0461 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
0462 4800 |H | Short_Literal 0x0
0463 00d9 | | Load_Top At_Offset_1
0464 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
0465 4800 |H | Short_Literal 0x0
0466 00d9 | | Load_Top At_Offset_1
0467 380a |8 | Execute Record,Field_Write,Field_Number 0xa
0468 4800 |H | Short_Literal 0x0
0469 00d9 | | Load_Top At_Offset_1
046a 380b |8 | Execute Record,Field_Write,Field_Number 0xb
046b 4800 |H | Short_Literal 0x0
046c 00d9 | | Load_Top At_Offset_1
046d 380c |8 | Execute Record,Field_Write,Field_Number 0xc
046e 8007 | | Call 0x0,0x7
046f 00d9 | | Load_Top At_Offset_1
0470 380e |8 | Execute Record,Field_Write,Field_Number 0xe
0471 4800 |H | Short_Literal 0x0
0472 00d9 | | Load_Top At_Offset_1
0473 380f |8 | Execute Record,Field_Write,Field_Number 0xf
0474 8008 | | Call 0x0,0x8
0475 e258 | X | Load 0x1,0x58
0476 3011 |0 | Execute Record,Field_Type,Field_Number 0x11
0477 0119 | | Execute Any,Check_In_Formal_Type
0478 00d9 | | Load_Top At_Offset_1
0479 3811 |8 | Execute Record,Field_Write,Field_Number 0x11
047a e009 | | Load 0x0,0x9
047b 00d9 | | Load_Top At_Offset_1
047c 3812 |8 | Execute Record,Field_Write,Field_Number 0x12
047d 4800 |H | Short_Literal 0x0
047e 00d9 | | Load_Top At_Offset_1
047f 3810 |8 | Execute Record,Field_Write,Field_Number 0x10
0480 4800 |H | Short_Literal 0x0
0481 00d9 | | Load_Top At_Offset_1
0482 3813 |8 | Execute Record,Field_Write,Field_Number 0x13
0483 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6
0484 0000 0000 | | .BLANK 0000[0x4]
0488 ; --------------------------------------------------------------------------------------
0488 ; SUBPROGRAM
0488 ; --------------------------------------------------------------------------------------
0488 048b | | .CONST 0x048b ; Address of begin
0489 0004 | | .CONST 0x0004 ; Address of exception handler
048a 0001 | | .CONST 0x0001 ; Number of locals
048b BODY_0488:
048b INIT_0488:
048b e258 | X | Load 0x1,0x58
048c 0322 | " | Declare_Variable Record
048d 4806 |H | Short_Literal 0x6
048e 00d9 | | Load_Top At_Offset_1
048f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0490 4800 |H | Short_Literal 0x0
0491 00d9 | | Load_Top At_Offset_1
0492 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0493 e5fe | | Load 0x2,-0x2
0494 00d9 | | Load_Top At_Offset_1
0495 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0496 00db | | Load_Top At_Offset_3
0497 00d9 | | Load_Top At_Offset_1
0498 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0499 4800 |H | Short_Literal 0x0
049a 00d9 | | Load_Top At_Offset_1
049b 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
049c e002 | | Load 0x0,0x2
049d 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
049e 00d9 | | Load_Top At_Offset_1
049f 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
04a0 4800 |H | Short_Literal 0x0
04a1 00d9 | | Load_Top At_Offset_1
04a2 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
04a3 8006 | | Call 0x0,0x6
04a4 00d9 | | Load_Top At_Offset_1
04a5 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
04a6 4800 |H | Short_Literal 0x0
04a7 00d9 | | Load_Top At_Offset_1
04a8 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
04a9 4800 |H | Short_Literal 0x0
04aa 00d9 | | Load_Top At_Offset_1
04ab 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
04ac 4800 |H | Short_Literal 0x0
04ad 00d9 | | Load_Top At_Offset_1
04ae 380a |8 | Execute Record,Field_Write,Field_Number 0xa
04af 4800 |H | Short_Literal 0x0
04b0 00d9 | | Load_Top At_Offset_1
04b1 380b |8 | Execute Record,Field_Write,Field_Number 0xb
04b2 4800 |H | Short_Literal 0x0
04b3 00d9 | | Load_Top At_Offset_1
04b4 380c |8 | Execute Record,Field_Write,Field_Number 0xc
04b5 4800 |H | Short_Literal 0x0
04b6 00d9 | | Load_Top At_Offset_1
04b7 380d |8 | Execute Record,Field_Write,Field_Number 0xd
04b8 8007 | | Call 0x0,0x7
04b9 00d9 | | Load_Top At_Offset_1
04ba 380e |8 | Execute Record,Field_Write,Field_Number 0xe
04bb 4800 |H | Short_Literal 0x0
04bc 00d9 | | Load_Top At_Offset_1
04bd 380f |8 | Execute Record,Field_Write,Field_Number 0xf
04be 8008 | | Call 0x0,0x8
04bf e258 | X | Load 0x1,0x58
04c0 3011 |0 | Execute Record,Field_Type,Field_Number 0x11
04c1 0119 | | Execute Any,Check_In_Formal_Type
04c2 00d9 | | Load_Top At_Offset_1
04c3 3811 |8 | Execute Record,Field_Write,Field_Number 0x11
04c4 e009 | | Load 0x0,0x9
04c5 00d9 | | Load_Top At_Offset_1
04c6 3812 |8 | Execute Record,Field_Write,Field_Number 0x12
04c7 4800 |H | Short_Literal 0x0
04c8 00d9 | | Load_Top At_Offset_1
04c9 3810 |8 | Execute Record,Field_Write,Field_Number 0x10
04ca 4800 |H | Short_Literal 0x0
04cb 00d9 | | Load_Top At_Offset_1
04cc 3813 |8 | Execute Record,Field_Write,Field_Number 0x13
04cd 4800 |H | Short_Literal 0x0
04ce 00d9 | | Load_Top At_Offset_1
04cf 3814 |8 | Execute Record,Field_Write,Field_Number 0x14
04d0 4800 |H | Short_Literal 0x0
04d1 00d9 | | Load_Top At_Offset_1
04d2 3815 |8 | Execute Record,Field_Write,Field_Number 0x15
04d3 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
04d4 0000 0000 | | .BLANK 0000[0x4]
04d8 ; --------------------------------------------------------------------------------------
04d8 ; SUBPROGRAM
04d8 ; --------------------------------------------------------------------------------------
04d8 04db | | .CONST 0x04db ; Address of begin
04d9 0004 | | .CONST 0x0004 ; Address of exception handler
04da 0001 | | .CONST 0x0001 ; Number of locals
04db BODY_04d8:
04db INIT_04d8:
04db e258 | X | Load 0x1,0x58
04dc 0322 | " | Declare_Variable Record
04dd 4807 |H | Short_Literal 0x7
04de 00d9 | | Load_Top At_Offset_1
04df 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
04e0 00db | | Load_Top At_Offset_3
04e1 00d9 | | Load_Top At_Offset_1
04e2 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
04e3 e5fd | | Load 0x2,-0x3
04e4 00d9 | | Load_Top At_Offset_1
04e5 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
04e6 e5fe | | Load 0x2,-0x2
04e7 00d9 | | Load_Top At_Offset_1
04e8 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
04e9 4800 |H | Short_Literal 0x0
04ea 00d9 | | Load_Top At_Offset_1
04eb 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
04ec e002 | | Load 0x0,0x2
04ed 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
04ee 00d9 | | Load_Top At_Offset_1
04ef 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
04f0 4800 |H | Short_Literal 0x0
04f1 00d9 | | Load_Top At_Offset_1
04f2 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
04f3 8006 | | Call 0x0,0x6
04f4 00d9 | | Load_Top At_Offset_1
04f5 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
04f6 4800 |H | Short_Literal 0x0
04f7 00d9 | | Load_Top At_Offset_1
04f8 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
04f9 4800 |H | Short_Literal 0x0
04fa 00d9 | | Load_Top At_Offset_1
04fb 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
04fc 4800 |H | Short_Literal 0x0
04fd 00d9 | | Load_Top At_Offset_1
04fe 380a |8 | Execute Record,Field_Write,Field_Number 0xa
04ff 4800 |H | Short_Literal 0x0
0500 00d9 | | Load_Top At_Offset_1
0501 380b |8 | Execute Record,Field_Write,Field_Number 0xb
0502 4800 |H | Short_Literal 0x0
0503 00d9 | | Load_Top At_Offset_1
0504 380c |8 | Execute Record,Field_Write,Field_Number 0xc
0505 4800 |H | Short_Literal 0x0
0506 00d9 | | Load_Top At_Offset_1
0507 380d |8 | Execute Record,Field_Write,Field_Number 0xd
0508 8007 | | Call 0x0,0x7
0509 00d9 | | Load_Top At_Offset_1
050a 380e |8 | Execute Record,Field_Write,Field_Number 0xe
050b 4800 |H | Short_Literal 0x0
050c 00d9 | | Load_Top At_Offset_1
050d 380f |8 | Execute Record,Field_Write,Field_Number 0xf
050e 8008 | | Call 0x0,0x8
050f e258 | X | Load 0x1,0x58
0510 3011 |0 | Execute Record,Field_Type,Field_Number 0x11
0511 0119 | | Execute Any,Check_In_Formal_Type
0512 00d9 | | Load_Top At_Offset_1
0513 3811 |8 | Execute Record,Field_Write,Field_Number 0x11
0514 e009 | | Load 0x0,0x9
0515 00d9 | | Load_Top At_Offset_1
0516 3812 |8 | Execute Record,Field_Write,Field_Number 0x12
0517 4800 |H | Short_Literal 0x0
0518 00d9 | | Load_Top At_Offset_1
0519 3810 |8 | Execute Record,Field_Write,Field_Number 0x10
051a 4800 |H | Short_Literal 0x0
051b 00d9 | | Load_Top At_Offset_1
051c 3813 |8 | Execute Record,Field_Write,Field_Number 0x13
051d 4800 |H | Short_Literal 0x0
051e 00d9 | | Load_Top At_Offset_1
051f 3814 |8 | Execute Record,Field_Write,Field_Number 0x14
0520 4800 |H | Short_Literal 0x0
0521 00d9 | | Load_Top At_Offset_1
0522 3815 |8 | Execute Record,Field_Write,Field_Number 0x15
0523 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0524 0000 0000 | | .BLANK 0000[0x4]
0528 ; --------------------------------------------------------------------------------------
0528 ; SUBPROGRAM
0528 ; --------------------------------------------------------------------------------------
0528 052b | + | .CONST 0x052b ; Address of begin
0529 0004 | | .CONST 0x0004 ; Address of exception handler
052a 0001 | | .CONST 0x0001 ; Number of locals
052b BODY_0528:
052b INIT_0528:
052b e258 | X | Load 0x1,0x58
052c 0322 | " | Declare_Variable Record
052d 4808 |H | Short_Literal 0x8
052e 00d9 | | Load_Top At_Offset_1
052f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0530 00db | | Load_Top At_Offset_3
0531 00d9 | | Load_Top At_Offset_1
0532 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0533 e5fd | | Load 0x2,-0x3
0534 00d9 | | Load_Top At_Offset_1
0535 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0536 e5fe | | Load 0x2,-0x2
0537 00d9 | | Load_Top At_Offset_1
0538 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0539 4800 |H | Short_Literal 0x0
053a 00d9 | | Load_Top At_Offset_1
053b 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
053c e002 | | Load 0x0,0x2
053d 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
053e 00d9 | | Load_Top At_Offset_1
053f 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0540 4800 |H | Short_Literal 0x0
0541 00d9 | | Load_Top At_Offset_1
0542 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
0543 8006 | | Call 0x0,0x6
0544 00d9 | | Load_Top At_Offset_1
0545 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
0546 4800 |H | Short_Literal 0x0
0547 00d9 | | Load_Top At_Offset_1
0548 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
0549 4800 |H | Short_Literal 0x0
054a 00d9 | | Load_Top At_Offset_1
054b 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
054c 4800 |H | Short_Literal 0x0
054d 00d9 | | Load_Top At_Offset_1
054e 380a |8 | Execute Record,Field_Write,Field_Number 0xa
054f 4800 |H | Short_Literal 0x0
0550 00d9 | | Load_Top At_Offset_1
0551 380b |8 | Execute Record,Field_Write,Field_Number 0xb
0552 4800 |H | Short_Literal 0x0
0553 00d9 | | Load_Top At_Offset_1
0554 380c |8 | Execute Record,Field_Write,Field_Number 0xc
0555 4800 |H | Short_Literal 0x0
0556 00d9 | | Load_Top At_Offset_1
0557 380d |8 | Execute Record,Field_Write,Field_Number 0xd
0558 8007 | | Call 0x0,0x7
0559 00d9 | | Load_Top At_Offset_1
055a 380e |8 | Execute Record,Field_Write,Field_Number 0xe
055b 4800 |H | Short_Literal 0x0
055c 00d9 | | Load_Top At_Offset_1
055d 380f |8 | Execute Record,Field_Write,Field_Number 0xf
055e 8008 | | Call 0x0,0x8
055f e258 | X | Load 0x1,0x58
0560 3011 |0 | Execute Record,Field_Type,Field_Number 0x11
0561 0119 | | Execute Any,Check_In_Formal_Type
0562 00d9 | | Load_Top At_Offset_1
0563 3811 |8 | Execute Record,Field_Write,Field_Number 0x11
0564 e009 | | Load 0x0,0x9
0565 00d9 | | Load_Top At_Offset_1
0566 3812 |8 | Execute Record,Field_Write,Field_Number 0x12
0567 4800 |H | Short_Literal 0x0
0568 00d9 | | Load_Top At_Offset_1
0569 3810 |8 | Execute Record,Field_Write,Field_Number 0x10
056a 4800 |H | Short_Literal 0x0
056b 00d9 | | Load_Top At_Offset_1
056c 3813 |8 | Execute Record,Field_Write,Field_Number 0x13
056d 4800 |H | Short_Literal 0x0
056e 00d9 | | Load_Top At_Offset_1
056f 3814 |8 | Execute Record,Field_Write,Field_Number 0x14
0570 4800 |H | Short_Literal 0x0
0571 00d9 | | Load_Top At_Offset_1
0572 3815 |8 | Execute Record,Field_Write,Field_Number 0x15
0573 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0574 0000 0000 | | .BLANK 0000[0x4]
0578 ; --------------------------------------------------------------------------------------
0578 ; SUBPROGRAM
0578 ; --------------------------------------------------------------------------------------
0578 057b | { | .CONST 0x057b ; Address of begin
0579 0004 | | .CONST 0x0004 ; Address of exception handler
057a 0001 | | .CONST 0x0001 ; Number of locals
057b BODY_0578:
057b INIT_0578:
057b e258 | X | Load 0x1,0x58
057c 0322 | " | Declare_Variable Record
057d 4809 |H | Short_Literal 0x9
057e 00d9 | | Load_Top At_Offset_1
057f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0580 00db | | Load_Top At_Offset_3
0581 00d9 | | Load_Top At_Offset_1
0582 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0583 e5fe | | Load 0x2,-0x2
0584 00d9 | | Load_Top At_Offset_1
0585 380d |8 | Execute Record,Field_Write,Field_Number 0xd
0586 e5fc | | Load 0x2,-0x4
0587 00d9 | | Load_Top At_Offset_1
0588 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0589 e5fd | | Load 0x2,-0x3
058a 00d9 | | Load_Top At_Offset_1
058b 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
058c 4800 |H | Short_Literal 0x0
058d 00d9 | | Load_Top At_Offset_1
058e 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
058f e002 | | Load 0x0,0x2
0590 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0591 00d9 | | Load_Top At_Offset_1
0592 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0593 4800 |H | Short_Literal 0x0
0594 00d9 | | Load_Top At_Offset_1
0595 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
0596 8006 | | Call 0x0,0x6
0597 00d9 | | Load_Top At_Offset_1
0598 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
0599 4800 |H | Short_Literal 0x0
059a 00d9 | | Load_Top At_Offset_1
059b 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
059c 4800 |H | Short_Literal 0x0
059d 00d9 | | Load_Top At_Offset_1
059e 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
059f 4800 |H | Short_Literal 0x0
05a0 00d9 | | Load_Top At_Offset_1
05a1 380a |8 | Execute Record,Field_Write,Field_Number 0xa
05a2 4800 |H | Short_Literal 0x0
05a3 00d9 | | Load_Top At_Offset_1
05a4 380b |8 | Execute Record,Field_Write,Field_Number 0xb
05a5 4800 |H | Short_Literal 0x0
05a6 00d9 | | Load_Top At_Offset_1
05a7 380c |8 | Execute Record,Field_Write,Field_Number 0xc
05a8 8007 | | Call 0x0,0x7
05a9 00d9 | | Load_Top At_Offset_1
05aa 380e |8 | Execute Record,Field_Write,Field_Number 0xe
05ab 4800 |H | Short_Literal 0x0
05ac 00d9 | | Load_Top At_Offset_1
05ad 380f |8 | Execute Record,Field_Write,Field_Number 0xf
05ae 8008 | | Call 0x0,0x8
05af e258 | X | Load 0x1,0x58
05b0 3011 |0 | Execute Record,Field_Type,Field_Number 0x11
05b1 0119 | | Execute Any,Check_In_Formal_Type
05b2 00d9 | | Load_Top At_Offset_1
05b3 3811 |8 | Execute Record,Field_Write,Field_Number 0x11
05b4 e009 | | Load 0x0,0x9
05b5 00d9 | | Load_Top At_Offset_1
05b6 3812 |8 | Execute Record,Field_Write,Field_Number 0x12
05b7 4800 |H | Short_Literal 0x0
05b8 00d9 | | Load_Top At_Offset_1
05b9 3810 |8 | Execute Record,Field_Write,Field_Number 0x10
05ba 4800 |H | Short_Literal 0x0
05bb 00d9 | | Load_Top At_Offset_1
05bc 3813 |8 | Execute Record,Field_Write,Field_Number 0x13
05bd 4800 |H | Short_Literal 0x0
05be 00d9 | | Load_Top At_Offset_1
05bf 3814 |8 | Execute Record,Field_Write,Field_Number 0x14
05c0 4800 |H | Short_Literal 0x0
05c1 00d9 | | Load_Top At_Offset_1
05c2 3815 |8 | Execute Record,Field_Write,Field_Number 0x15
05c3 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
05c4 0000 0000 | | .BLANK 0000[0x4]
05c8 ; --------------------------------------------------------------------------------------
05c8 ; SUBPROGRAM
05c8 ; --------------------------------------------------------------------------------------
05c8 05cb | | .CONST 0x05cb ; Address of begin
05c9 0004 | | .CONST 0x0004 ; Address of exception handler
05ca 0001 | | .CONST 0x0001 ; Number of locals
05cb BODY_05c8:
05cb INIT_05c8:
05cb e258 | X | Load 0x1,0x58
05cc 0322 | " | Declare_Variable Record
05cd 480a |H | Short_Literal 0xa
05ce 00d9 | | Load_Top At_Offset_1
05cf 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
05d0 00db | | Load_Top At_Offset_3
05d1 00d9 | | Load_Top At_Offset_1
05d2 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
05d3 e5fb | | Load 0x2,-0x5
05d4 00d9 | | Load_Top At_Offset_1
05d5 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
05d6 e5fc | | Load 0x2,-0x4
05d7 00d9 | | Load_Top At_Offset_1
05d8 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
05d9 e5fd | | Load 0x2,-0x3
05da 00d9 | | Load_Top At_Offset_1
05db 380d |8 | Execute Record,Field_Write,Field_Number 0xd
05dc e5fe | | Load 0x2,-0x2
05dd 00d9 | | Load_Top At_Offset_1
05de 3813 |8 | Execute Record,Field_Write,Field_Number 0x13
05df 4800 |H | Short_Literal 0x0
05e0 00d9 | | Load_Top At_Offset_1
05e1 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
05e2 e002 | | Load 0x0,0x2
05e3 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
05e4 00d9 | | Load_Top At_Offset_1
05e5 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
05e6 4800 |H | Short_Literal 0x0
05e7 00d9 | | Load_Top At_Offset_1
05e8 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
05e9 8006 | | Call 0x0,0x6
05ea 00d9 | | Load_Top At_Offset_1
05eb 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
05ec 4800 |H | Short_Literal 0x0
05ed 00d9 | | Load_Top At_Offset_1
05ee 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
05ef 4800 |H | Short_Literal 0x0
05f0 00d9 | | Load_Top At_Offset_1
05f1 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
05f2 4800 |H | Short_Literal 0x0
05f3 00d9 | | Load_Top At_Offset_1
05f4 380a |8 | Execute Record,Field_Write,Field_Number 0xa
05f5 4800 |H | Short_Literal 0x0
05f6 00d9 | | Load_Top At_Offset_1
05f7 380b |8 | Execute Record,Field_Write,Field_Number 0xb
05f8 4800 |H | Short_Literal 0x0
05f9 00d9 | | Load_Top At_Offset_1
05fa 380c |8 | Execute Record,Field_Write,Field_Number 0xc
05fb 8007 | | Call 0x0,0x7
05fc 00d9 | | Load_Top At_Offset_1
05fd 380e |8 | Execute Record,Field_Write,Field_Number 0xe
05fe 4800 |H | Short_Literal 0x0
05ff 00d9 | | Load_Top At_Offset_1
0600 380f |8 | Execute Record,Field_Write,Field_Number 0xf
0601 8008 | | Call 0x0,0x8
0602 e258 | X | Load 0x1,0x58
0603 3011 |0 | Execute Record,Field_Type,Field_Number 0x11
0604 0119 | | Execute Any,Check_In_Formal_Type
0605 00d9 | | Load_Top At_Offset_1
0606 3811 |8 | Execute Record,Field_Write,Field_Number 0x11
0607 e009 | | Load 0x0,0x9
0608 00d9 | | Load_Top At_Offset_1
0609 3812 |8 | Execute Record,Field_Write,Field_Number 0x12
060a 4800 |H | Short_Literal 0x0
060b 00d9 | | Load_Top At_Offset_1
060c 3810 |8 | Execute Record,Field_Write,Field_Number 0x10
060d 4800 |H | Short_Literal 0x0
060e 00d9 | | Load_Top At_Offset_1
060f 3814 |8 | Execute Record,Field_Write,Field_Number 0x14
0610 4800 |H | Short_Literal 0x0
0611 00d9 | | Load_Top At_Offset_1
0612 3815 |8 | Execute Record,Field_Write,Field_Number 0x15
0613 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5
0614 0000 0000 | | .BLANK 0000[0x4]
0618 ; --------------------------------------------------------------------------------------
0618 ; SUBPROGRAM
0618 ; --------------------------------------------------------------------------------------
0618 061b | | .CONST 0x061b ; Address of begin
0619 0004 | | .CONST 0x0004 ; Address of exception handler
061a 0001 | | .CONST 0x0001 ; Number of locals
061b BODY_0618:
061b INIT_0618:
061b e258 | X | Load 0x1,0x58
061c 0322 | " | Declare_Variable Record
061d 480b |H | Short_Literal 0xb
061e 00d9 | | Load_Top At_Offset_1
061f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0620 00db | | Load_Top At_Offset_3
0621 00d9 | | Load_Top At_Offset_1
0622 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0623 e5fb | | Load 0x2,-0x5
0624 00d9 | | Load_Top At_Offset_1
0625 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0626 e5fc | | Load 0x2,-0x4
0627 00d9 | | Load_Top At_Offset_1
0628 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0629 e5fd | | Load 0x2,-0x3
062a 00d9 | | Load_Top At_Offset_1
062b 380d |8 | Execute Record,Field_Write,Field_Number 0xd
062c e5fe | | Load 0x2,-0x2
062d 00d9 | | Load_Top At_Offset_1
062e 3813 |8 | Execute Record,Field_Write,Field_Number 0x13
062f 4800 |H | Short_Literal 0x0
0630 00d9 | | Load_Top At_Offset_1
0631 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0632 e002 | | Load 0x0,0x2
0633 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0634 00d9 | | Load_Top At_Offset_1
0635 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0636 4800 |H | Short_Literal 0x0
0637 00d9 | | Load_Top At_Offset_1
0638 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
0639 8006 | | Call 0x0,0x6
063a 00d9 | | Load_Top At_Offset_1
063b 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
063c 4800 |H | Short_Literal 0x0
063d 00d9 | | Load_Top At_Offset_1
063e 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
063f 4800 |H | Short_Literal 0x0
0640 00d9 | | Load_Top At_Offset_1
0641 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
0642 4800 |H | Short_Literal 0x0
0643 00d9 | | Load_Top At_Offset_1
0644 380a |8 | Execute Record,Field_Write,Field_Number 0xa
0645 4800 |H | Short_Literal 0x0
0646 00d9 | | Load_Top At_Offset_1
0647 380b |8 | Execute Record,Field_Write,Field_Number 0xb
0648 4800 |H | Short_Literal 0x0
0649 00d9 | | Load_Top At_Offset_1
064a 380c |8 | Execute Record,Field_Write,Field_Number 0xc
064b 8007 | | Call 0x0,0x7
064c 00d9 | | Load_Top At_Offset_1
064d 380e |8 | Execute Record,Field_Write,Field_Number 0xe
064e 4800 |H | Short_Literal 0x0
064f 00d9 | | Load_Top At_Offset_1
0650 3810 |8 | Execute Record,Field_Write,Field_Number 0x10
0651 4800 |H | Short_Literal 0x0
0652 00d9 | | Load_Top At_Offset_1
0653 380f |8 | Execute Record,Field_Write,Field_Number 0xf
0654 8008 | | Call 0x0,0x8
0655 e258 | X | Load 0x1,0x58
0656 3011 |0 | Execute Record,Field_Type,Field_Number 0x11
0657 0119 | | Execute Any,Check_In_Formal_Type
0658 00d9 | | Load_Top At_Offset_1
0659 3811 |8 | Execute Record,Field_Write,Field_Number 0x11
065a e009 | | Load 0x0,0x9
065b 00d9 | | Load_Top At_Offset_1
065c 3812 |8 | Execute Record,Field_Write,Field_Number 0x12
065d 4800 |H | Short_Literal 0x0
065e 00d9 | | Load_Top At_Offset_1
065f 3814 |8 | Execute Record,Field_Write,Field_Number 0x14
0660 4800 |H | Short_Literal 0x0
0661 00d9 | | Load_Top At_Offset_1
0662 3815 |8 | Execute Record,Field_Write,Field_Number 0x15
0663 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5
0664 0000 0000 | | .BLANK 0000[0x4]
0668 ; --------------------------------------------------------------------------------------
0668 ; SUBPROGRAM
0668 ; --------------------------------------------------------------------------------------
0668 066b | k | .CONST 0x066b ; Address of begin
0669 0004 | | .CONST 0x0004 ; Address of exception handler
066a 0001 | | .CONST 0x0001 ; Number of locals
066b BODY_0668:
066b INIT_0668:
066b e258 | X | Load 0x1,0x58
066c 0322 | " | Declare_Variable Record
066d 480c |H | Short_Literal 0xc
066e 00d9 | | Load_Top At_Offset_1
066f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0670 00db | | Load_Top At_Offset_3
0671 00d9 | | Load_Top At_Offset_1
0672 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0673 e5fc | | Load 0x2,-0x4
0674 00d9 | | Load_Top At_Offset_1
0675 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0676 e5fd | | Load 0x2,-0x3
0677 00d9 | | Load_Top At_Offset_1
0678 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0679 e5fe | | Load 0x2,-0x2
067a 00d9 | | Load_Top At_Offset_1
067b 380d |8 | Execute Record,Field_Write,Field_Number 0xd
067c 4800 |H | Short_Literal 0x0
067d 00d9 | | Load_Top At_Offset_1
067e 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
067f e002 | | Load 0x0,0x2
0680 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0681 00d9 | | Load_Top At_Offset_1
0682 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0683 4800 |H | Short_Literal 0x0
0684 00d9 | | Load_Top At_Offset_1
0685 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
0686 8006 | | Call 0x0,0x6
0687 00d9 | | Load_Top At_Offset_1
0688 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
0689 4800 |H | Short_Literal 0x0
068a 00d9 | | Load_Top At_Offset_1
068b 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
068c 4800 |H | Short_Literal 0x0
068d 00d9 | | Load_Top At_Offset_1
068e 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
068f 4800 |H | Short_Literal 0x0
0690 00d9 | | Load_Top At_Offset_1
0691 380a |8 | Execute Record,Field_Write,Field_Number 0xa
0692 4800 |H | Short_Literal 0x0
0693 00d9 | | Load_Top At_Offset_1
0694 380b |8 | Execute Record,Field_Write,Field_Number 0xb
0695 4800 |H | Short_Literal 0x0
0696 00d9 | | Load_Top At_Offset_1
0697 380c |8 | Execute Record,Field_Write,Field_Number 0xc
0698 8007 | | Call 0x0,0x7
0699 00d9 | | Load_Top At_Offset_1
069a 380e |8 | Execute Record,Field_Write,Field_Number 0xe
069b 4800 |H | Short_Literal 0x0
069c 00d9 | | Load_Top At_Offset_1
069d 380f |8 | Execute Record,Field_Write,Field_Number 0xf
069e 8008 | | Call 0x0,0x8
069f e258 | X | Load 0x1,0x58
06a0 3011 |0 | Execute Record,Field_Type,Field_Number 0x11
06a1 0119 | | Execute Any,Check_In_Formal_Type
06a2 00d9 | | Load_Top At_Offset_1
06a3 3811 |8 | Execute Record,Field_Write,Field_Number 0x11
06a4 e009 | | Load 0x0,0x9
06a5 00d9 | | Load_Top At_Offset_1
06a6 3812 |8 | Execute Record,Field_Write,Field_Number 0x12
06a7 4800 |H | Short_Literal 0x0
06a8 00d9 | | Load_Top At_Offset_1
06a9 3810 |8 | Execute Record,Field_Write,Field_Number 0x10
06aa 4800 |H | Short_Literal 0x0
06ab 00d9 | | Load_Top At_Offset_1
06ac 3813 |8 | Execute Record,Field_Write,Field_Number 0x13
06ad 4800 |H | Short_Literal 0x0
06ae 00d9 | | Load_Top At_Offset_1
06af 3814 |8 | Execute Record,Field_Write,Field_Number 0x14
06b0 4800 |H | Short_Literal 0x0
06b1 00d9 | | Load_Top At_Offset_1
06b2 3815 |8 | Execute Record,Field_Write,Field_Number 0x15
06b3 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
06b4 0000 0000 | | .BLANK 0000[0x4]
06b8 ; --------------------------------------------------------------------------------------
06b8 ; SUBPROGRAM
06b8 ; --------------------------------------------------------------------------------------
06b8 06bb | | .CONST 0x06bb ; Address of begin
06b9 0004 | | .CONST 0x0004 ; Address of exception handler
06ba 0001 | | .CONST 0x0001 ; Number of locals
06bb BODY_06b8:
06bb INIT_06b8:
06bb e258 | X | Load 0x1,0x58
06bc 0322 | " | Declare_Variable Record
06bd 480d |H | Short_Literal 0xd
06be 00d9 | | Load_Top At_Offset_1
06bf 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
06c0 00db | | Load_Top At_Offset_3
06c1 00d9 | | Load_Top At_Offset_1
06c2 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
06c3 e5fc | | Load 0x2,-0x4
06c4 00d9 | | Load_Top At_Offset_1
06c5 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
06c6 e5fd | | Load 0x2,-0x3
06c7 00d9 | | Load_Top At_Offset_1
06c8 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
06c9 e5fe | | Load 0x2,-0x2
06ca 00d9 | | Load_Top At_Offset_1
06cb 380d |8 | Execute Record,Field_Write,Field_Number 0xd
06cc 4800 |H | Short_Literal 0x0
06cd 00d9 | | Load_Top At_Offset_1
06ce 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
06cf e002 | | Load 0x0,0x2
06d0 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
06d1 00d9 | | Load_Top At_Offset_1
06d2 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
06d3 4800 |H | Short_Literal 0x0
06d4 00d9 | | Load_Top At_Offset_1
06d5 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
06d6 8006 | | Call 0x0,0x6
06d7 00d9 | | Load_Top At_Offset_1
06d8 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
06d9 4800 |H | Short_Literal 0x0
06da 00d9 | | Load_Top At_Offset_1
06db 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
06dc 4800 |H | Short_Literal 0x0
06dd 00d9 | | Load_Top At_Offset_1
06de 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
06df 4800 |H | Short_Literal 0x0
06e0 00d9 | | Load_Top At_Offset_1
06e1 380a |8 | Execute Record,Field_Write,Field_Number 0xa
06e2 4800 |H | Short_Literal 0x0
06e3 00d9 | | Load_Top At_Offset_1
06e4 380b |8 | Execute Record,Field_Write,Field_Number 0xb
06e5 4800 |H | Short_Literal 0x0
06e6 00d9 | | Load_Top At_Offset_1
06e7 380c |8 | Execute Record,Field_Write,Field_Number 0xc
06e8 8007 | | Call 0x0,0x7
06e9 00d9 | | Load_Top At_Offset_1
06ea 380e |8 | Execute Record,Field_Write,Field_Number 0xe
06eb 4800 |H | Short_Literal 0x0
06ec 00d9 | | Load_Top At_Offset_1
06ed 380f |8 | Execute Record,Field_Write,Field_Number 0xf
06ee 8008 | | Call 0x0,0x8
06ef e258 | X | Load 0x1,0x58
06f0 3011 |0 | Execute Record,Field_Type,Field_Number 0x11
06f1 0119 | | Execute Any,Check_In_Formal_Type
06f2 00d9 | | Load_Top At_Offset_1
06f3 3811 |8 | Execute Record,Field_Write,Field_Number 0x11
06f4 e009 | | Load 0x0,0x9
06f5 00d9 | | Load_Top At_Offset_1
06f6 3812 |8 | Execute Record,Field_Write,Field_Number 0x12
06f7 4800 |H | Short_Literal 0x0
06f8 00d9 | | Load_Top At_Offset_1
06f9 3810 |8 | Execute Record,Field_Write,Field_Number 0x10
06fa 4800 |H | Short_Literal 0x0
06fb 00d9 | | Load_Top At_Offset_1
06fc 3813 |8 | Execute Record,Field_Write,Field_Number 0x13
06fd 4800 |H | Short_Literal 0x0
06fe 00d9 | | Load_Top At_Offset_1
06ff 3814 |8 | Execute Record,Field_Write,Field_Number 0x14
0700 4800 |H | Short_Literal 0x0
0701 00d9 | | Load_Top At_Offset_1
0702 3815 |8 | Execute Record,Field_Write,Field_Number 0x15
0703 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0704 0000 0000 | | .BLANK 0000[0x4]
0708 ; --------------------------------------------------------------------------------------
0708 ; SUBPROGRAM
0708 ; --------------------------------------------------------------------------------------
0708 070b | | .CONST 0x070b ; Address of begin
0709 0004 | | .CONST 0x0004 ; Address of exception handler
070a 0001 | | .CONST 0x0001 ; Number of locals
070b BODY_0708:
070b INIT_0708:
070b e258 | X | Load 0x1,0x58
070c 0322 | " | Declare_Variable Record
070d 480e |H | Short_Literal 0xe
070e 00d9 | | Load_Top At_Offset_1
070f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0710 00db | | Load_Top At_Offset_3
0711 00d9 | | Load_Top At_Offset_1
0712 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0713 e5fc | | Load 0x2,-0x4
0714 00d9 | | Load_Top At_Offset_1
0715 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0716 e5fd | | Load 0x2,-0x3
0717 00d9 | | Load_Top At_Offset_1
0718 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0719 e5fe | | Load 0x2,-0x2
071a 00d9 | | Load_Top At_Offset_1
071b 380d |8 | Execute Record,Field_Write,Field_Number 0xd
071c 4800 |H | Short_Literal 0x0
071d 00d9 | | Load_Top At_Offset_1
071e 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
071f e002 | | Load 0x0,0x2
0720 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0721 00d9 | | Load_Top At_Offset_1
0722 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0723 4800 |H | Short_Literal 0x0
0724 00d9 | | Load_Top At_Offset_1
0725 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
0726 8006 | | Call 0x0,0x6
0727 00d9 | | Load_Top At_Offset_1
0728 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
0729 4800 |H | Short_Literal 0x0
072a 00d9 | | Load_Top At_Offset_1
072b 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
072c 4800 |H | Short_Literal 0x0
072d 00d9 | | Load_Top At_Offset_1
072e 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
072f 4800 |H | Short_Literal 0x0
0730 00d9 | | Load_Top At_Offset_1
0731 380a |8 | Execute Record,Field_Write,Field_Number 0xa
0732 4800 |H | Short_Literal 0x0
0733 00d9 | | Load_Top At_Offset_1
0734 380b |8 | Execute Record,Field_Write,Field_Number 0xb
0735 4800 |H | Short_Literal 0x0
0736 00d9 | | Load_Top At_Offset_1
0737 380c |8 | Execute Record,Field_Write,Field_Number 0xc
0738 8007 | | Call 0x0,0x7
0739 00d9 | | Load_Top At_Offset_1
073a 380e |8 | Execute Record,Field_Write,Field_Number 0xe
073b 4800 |H | Short_Literal 0x0
073c 00d9 | | Load_Top At_Offset_1
073d 380f |8 | Execute Record,Field_Write,Field_Number 0xf
073e 8008 | | Call 0x0,0x8
073f e258 | X | Load 0x1,0x58
0740 3011 |0 | Execute Record,Field_Type,Field_Number 0x11
0741 0119 | | Execute Any,Check_In_Formal_Type
0742 00d9 | | Load_Top At_Offset_1
0743 3811 |8 | Execute Record,Field_Write,Field_Number 0x11
0744 e009 | | Load 0x0,0x9
0745 00d9 | | Load_Top At_Offset_1
0746 3812 |8 | Execute Record,Field_Write,Field_Number 0x12
0747 4800 |H | Short_Literal 0x0
0748 00d9 | | Load_Top At_Offset_1
0749 3810 |8 | Execute Record,Field_Write,Field_Number 0x10
074a 4800 |H | Short_Literal 0x0
074b 00d9 | | Load_Top At_Offset_1
074c 3813 |8 | Execute Record,Field_Write,Field_Number 0x13
074d 4800 |H | Short_Literal 0x0
074e 00d9 | | Load_Top At_Offset_1
074f 3814 |8 | Execute Record,Field_Write,Field_Number 0x14
0750 4800 |H | Short_Literal 0x0
0751 00d9 | | Load_Top At_Offset_1
0752 3815 |8 | Execute Record,Field_Write,Field_Number 0x15
0753 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0754 0000 0000 | | .BLANK 0000[0x4]
0758 ; --------------------------------------------------------------------------------------
0758 ; SUBPROGRAM
0758 ; --------------------------------------------------------------------------------------
0758 075b | [ | .CONST 0x075b ; Address of begin
0759 0004 | | .CONST 0x0004 ; Address of exception handler
075a 0001 | | .CONST 0x0001 ; Number of locals
075b BODY_0758:
075b INIT_0758:
075b e258 | X | Load 0x1,0x58
075c 0322 | " | Declare_Variable Record
075d 480f |H | Short_Literal 0xf
075e 00d9 | | Load_Top At_Offset_1
075f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0760 00db | | Load_Top At_Offset_3
0761 00d9 | | Load_Top At_Offset_1
0762 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0763 e5fc | | Load 0x2,-0x4
0764 00d9 | | Load_Top At_Offset_1
0765 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0766 e5fd | | Load 0x2,-0x3
0767 00d9 | | Load_Top At_Offset_1
0768 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0769 e5fe | | Load 0x2,-0x2
076a 00d9 | | Load_Top At_Offset_1
076b 380d |8 | Execute Record,Field_Write,Field_Number 0xd
076c 4800 |H | Short_Literal 0x0
076d 00d9 | | Load_Top At_Offset_1
076e 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
076f e002 | | Load 0x0,0x2
0770 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0771 00d9 | | Load_Top At_Offset_1
0772 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0773 4800 |H | Short_Literal 0x0
0774 00d9 | | Load_Top At_Offset_1
0775 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
0776 8006 | | Call 0x0,0x6
0777 00d9 | | Load_Top At_Offset_1
0778 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
0779 4800 |H | Short_Literal 0x0
077a 00d9 | | Load_Top At_Offset_1
077b 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
077c 4800 |H | Short_Literal 0x0
077d 00d9 | | Load_Top At_Offset_1
077e 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
077f 4800 |H | Short_Literal 0x0
0780 00d9 | | Load_Top At_Offset_1
0781 380a |8 | Execute Record,Field_Write,Field_Number 0xa
0782 4800 |H | Short_Literal 0x0
0783 00d9 | | Load_Top At_Offset_1
0784 380b |8 | Execute Record,Field_Write,Field_Number 0xb
0785 4800 |H | Short_Literal 0x0
0786 00d9 | | Load_Top At_Offset_1
0787 380c |8 | Execute Record,Field_Write,Field_Number 0xc
0788 8007 | | Call 0x0,0x7
0789 00d9 | | Load_Top At_Offset_1
078a 380e |8 | Execute Record,Field_Write,Field_Number 0xe
078b 4800 |H | Short_Literal 0x0
078c 00d9 | | Load_Top At_Offset_1
078d 380f |8 | Execute Record,Field_Write,Field_Number 0xf
078e 8008 | | Call 0x0,0x8
078f e258 | X | Load 0x1,0x58
0790 3011 |0 | Execute Record,Field_Type,Field_Number 0x11
0791 0119 | | Execute Any,Check_In_Formal_Type
0792 00d9 | | Load_Top At_Offset_1
0793 3811 |8 | Execute Record,Field_Write,Field_Number 0x11
0794 e009 | | Load 0x0,0x9
0795 00d9 | | Load_Top At_Offset_1
0796 3812 |8 | Execute Record,Field_Write,Field_Number 0x12
0797 4800 |H | Short_Literal 0x0
0798 00d9 | | Load_Top At_Offset_1
0799 3810 |8 | Execute Record,Field_Write,Field_Number 0x10
079a 4800 |H | Short_Literal 0x0
079b 00d9 | | Load_Top At_Offset_1
079c 3813 |8 | Execute Record,Field_Write,Field_Number 0x13
079d 4800 |H | Short_Literal 0x0
079e 00d9 | | Load_Top At_Offset_1
079f 3814 |8 | Execute Record,Field_Write,Field_Number 0x14
07a0 4800 |H | Short_Literal 0x0
07a1 00d9 | | Load_Top At_Offset_1
07a2 3815 |8 | Execute Record,Field_Write,Field_Number 0x15
07a3 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
07a4 0000 0000 | | .BLANK 0000[0x4]
07a8 ; --------------------------------------------------------------------------------------
07a8 ; SUBPROGRAM
07a8 ; --------------------------------------------------------------------------------------
07a8 07ab | | .CONST 0x07ab ; Address of begin
07a9 0004 | | .CONST 0x0004 ; Address of exception handler
07aa 0001 | | .CONST 0x0001 ; Number of locals
07ab BODY_07a8:
07ab INIT_07a8:
07ab e258 | X | Load 0x1,0x58
07ac 0322 | " | Declare_Variable Record
07ad 4810 |H | Short_Literal 0x10
07ae 00d9 | | Load_Top At_Offset_1
07af 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
07b0 00db | | Load_Top At_Offset_3
07b1 00d9 | | Load_Top At_Offset_1
07b2 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
07b3 4800 |H | Short_Literal 0x0
07b4 00d9 | | Load_Top At_Offset_1
07b5 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
07b6 e5fd | | Load 0x2,-0x3
07b7 00d9 | | Load_Top At_Offset_1
07b8 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
07b9 e002 | | Load 0x0,0x2
07ba 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
07bb 00d9 | | Load_Top At_Offset_1
07bc 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
07bd e5fe | | Load 0x2,-0x2
07be 00d9 | | Load_Top At_Offset_1
07bf 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
07c0 4800 |H | Short_Literal 0x0
07c1 00d9 | | Load_Top At_Offset_1
07c2 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
07c3 8006 | | Call 0x0,0x6
07c4 00d9 | | Load_Top At_Offset_1
07c5 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
07c6 4800 |H | Short_Literal 0x0
07c7 00d9 | | Load_Top At_Offset_1
07c8 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
07c9 4800 |H | Short_Literal 0x0
07ca 00d9 | | Load_Top At_Offset_1
07cb 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
07cc 4800 |H | Short_Literal 0x0
07cd 00d9 | | Load_Top At_Offset_1
07ce 380a |8 | Execute Record,Field_Write,Field_Number 0xa
07cf 4800 |H | Short_Literal 0x0
07d0 00d9 | | Load_Top At_Offset_1
07d1 380b |8 | Execute Record,Field_Write,Field_Number 0xb
07d2 4800 |H | Short_Literal 0x0
07d3 00d9 | | Load_Top At_Offset_1
07d4 380c |8 | Execute Record,Field_Write,Field_Number 0xc
07d5 4800 |H | Short_Literal 0x0
07d6 00d9 | | Load_Top At_Offset_1
07d7 380d |8 | Execute Record,Field_Write,Field_Number 0xd
07d8 8007 | | Call 0x0,0x7
07d9 00d9 | | Load_Top At_Offset_1
07da 380e |8 | Execute Record,Field_Write,Field_Number 0xe
07db 4800 |H | Short_Literal 0x0
07dc 00d9 | | Load_Top At_Offset_1
07dd 380f |8 | Execute Record,Field_Write,Field_Number 0xf
07de 8008 | | Call 0x0,0x8
07df e258 | X | Load 0x1,0x58
07e0 3011 |0 | Execute Record,Field_Type,Field_Number 0x11
07e1 0119 | | Execute Any,Check_In_Formal_Type
07e2 00d9 | | Load_Top At_Offset_1
07e3 3811 |8 | Execute Record,Field_Write,Field_Number 0x11
07e4 e009 | | Load 0x0,0x9
07e5 00d9 | | Load_Top At_Offset_1
07e6 3812 |8 | Execute Record,Field_Write,Field_Number 0x12
07e7 4800 |H | Short_Literal 0x0
07e8 00d9 | | Load_Top At_Offset_1
07e9 3810 |8 | Execute Record,Field_Write,Field_Number 0x10
07ea 4800 |H | Short_Literal 0x0
07eb 00d9 | | Load_Top At_Offset_1
07ec 3813 |8 | Execute Record,Field_Write,Field_Number 0x13
07ed 4800 |H | Short_Literal 0x0
07ee 00d9 | | Load_Top At_Offset_1
07ef 3814 |8 | Execute Record,Field_Write,Field_Number 0x14
07f0 4800 |H | Short_Literal 0x0
07f1 00d9 | | Load_Top At_Offset_1
07f2 3815 |8 | Execute Record,Field_Write,Field_Number 0x15
07f3 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
07f4 0000 0000 | | .BLANK 0000[0x4]
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 00db | | Load_Top At_Offset_3
07fc 800d | | Call 0x0,0xd
07fd 4606 |F | Jump_Case 0x7
07fe 7807 |x | Jump 0x806 ; case 0x0
07ff 7806 |x | Jump 0x806 ; case 0x1
0800 784e |xN | Jump 0x84f ; case 0x2
0801 7804 |x | Jump 0x806 ; case 0x3
0802 7803 |x | Jump 0x806 ; case 0x4
0803 7894 |x | Jump 0x898 ; case 0x5
0804 7800 |x | Jump 0x805 ; case 0x6
0805 08e2 | | Execute_Immediate Raise,0xe2
0806 e258 | X | Load 0x1,0x58
0807 0322 | " | Declare_Variable Record
0808 4811 |H | Short_Literal 0x11
0809 00d9 | | Load_Top At_Offset_1
080a 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
080b 00db | | Load_Top At_Offset_3
080c 00d9 | | Load_Top At_Offset_1
080d 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
080e e5fd | | Load 0x2,-0x3
080f 00d9 | | Load_Top At_Offset_1
0810 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0811 4800 |H | Short_Literal 0x0
0812 00d9 | | Load_Top At_Offset_1
0813 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0814 e5fe | | Load 0x2,-0x2
0815 00d9 | | Load_Top At_Offset_1
0816 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
0817 4800 |H | Short_Literal 0x0
0818 00d9 | | Load_Top At_Offset_1
0819 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
081a e002 | | Load 0x0,0x2
081b 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
081c 00d9 | | Load_Top At_Offset_1
081d 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
081e 4800 |H | Short_Literal 0x0
081f 00d9 | | Load_Top At_Offset_1
0820 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
0821 4800 |H | Short_Literal 0x0
0822 00d9 | | Load_Top At_Offset_1
0823 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
0824 4800 |H | Short_Literal 0x0
0825 00d9 | | Load_Top At_Offset_1
0826 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
0827 4800 |H | Short_Literal 0x0
0828 00d9 | | Load_Top At_Offset_1
0829 380a |8 | Execute Record,Field_Write,Field_Number 0xa
082a 4800 |H | Short_Literal 0x0
082b 00d9 | | Load_Top At_Offset_1
082c 380b |8 | Execute Record,Field_Write,Field_Number 0xb
082d 4800 |H | Short_Literal 0x0
082e 00d9 | | Load_Top At_Offset_1
082f 380c |8 | Execute Record,Field_Write,Field_Number 0xc
0830 4800 |H | Short_Literal 0x0
0831 00d9 | | Load_Top At_Offset_1
0832 380d |8 | Execute Record,Field_Write,Field_Number 0xd
0833 8007 | | Call 0x0,0x7
0834 00d9 | | Load_Top At_Offset_1
0835 380e |8 | Execute Record,Field_Write,Field_Number 0xe
0836 4800 |H | Short_Literal 0x0
0837 00d9 | | Load_Top At_Offset_1
0838 380f |8 | Execute Record,Field_Write,Field_Number 0xf
0839 8008 | | Call 0x0,0x8
083a e258 | X | Load 0x1,0x58
083b 3011 |0 | Execute Record,Field_Type,Field_Number 0x11
083c 0119 | | Execute Any,Check_In_Formal_Type
083d 00d9 | | Load_Top At_Offset_1
083e 3811 |8 | Execute Record,Field_Write,Field_Number 0x11
083f e009 | | Load 0x0,0x9
0840 00d9 | | Load_Top At_Offset_1
0841 3812 |8 | Execute Record,Field_Write,Field_Number 0x12
0842 4800 |H | Short_Literal 0x0
0843 00d9 | | Load_Top At_Offset_1
0844 3810 |8 | Execute Record,Field_Write,Field_Number 0x10
0845 4800 |H | Short_Literal 0x0
0846 00d9 | | Load_Top At_Offset_1
0847 3813 |8 | Execute Record,Field_Write,Field_Number 0x13
0848 4800 |H | Short_Literal 0x0
0849 00d9 | | Load_Top At_Offset_1
084a 3814 |8 | Execute Record,Field_Write,Field_Number 0x14
084b 4800 |H | Short_Literal 0x0
084c 00d9 | | Load_Top At_Offset_1
084d 3815 |8 | Execute Record,Field_Write,Field_Number 0x15
084e 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
084f e258 | X | Load 0x1,0x58
0850 0322 | " | Declare_Variable Record
0851 4812 |H | Short_Literal 0x12
0852 00d9 | | Load_Top At_Offset_1
0853 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0854 00db | | Load_Top At_Offset_3
0855 00d9 | | Load_Top At_Offset_1
0856 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0857 e5fd | | Load 0x2,-0x3
0858 00d9 | | Load_Top At_Offset_1
0859 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
085a 4800 |H | Short_Literal 0x0
085b 00d9 | | Load_Top At_Offset_1
085c 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
085d e5fe | | Load 0x2,-0x2
085e 00d9 | | Load_Top At_Offset_1
085f 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
0860 4800 |H | Short_Literal 0x0
0861 00d9 | | Load_Top At_Offset_1
0862 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0863 e002 | | Load 0x0,0x2
0864 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0865 00d9 | | Load_Top At_Offset_1
0866 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0867 4800 |H | Short_Literal 0x0
0868 00d9 | | Load_Top At_Offset_1
0869 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
086a 4800 |H | Short_Literal 0x0
086b 00d9 | | Load_Top At_Offset_1
086c 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
086d 4800 |H | Short_Literal 0x0
086e 00d9 | | Load_Top At_Offset_1
086f 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
0870 4800 |H | Short_Literal 0x0
0871 00d9 | | Load_Top At_Offset_1
0872 380a |8 | Execute Record,Field_Write,Field_Number 0xa
0873 4800 |H | Short_Literal 0x0
0874 00d9 | | Load_Top At_Offset_1
0875 380b |8 | Execute Record,Field_Write,Field_Number 0xb
0876 4800 |H | Short_Literal 0x0
0877 00d9 | | Load_Top At_Offset_1
0878 380c |8 | Execute Record,Field_Write,Field_Number 0xc
0879 4800 |H | Short_Literal 0x0
087a 00d9 | | Load_Top At_Offset_1
087b 380d |8 | Execute Record,Field_Write,Field_Number 0xd
087c 8007 | | Call 0x0,0x7
087d 00d9 | | Load_Top At_Offset_1
087e 380e |8 | Execute Record,Field_Write,Field_Number 0xe
087f 4800 |H | Short_Literal 0x0
0880 00d9 | | Load_Top At_Offset_1
0881 380f |8 | Execute Record,Field_Write,Field_Number 0xf
0882 8008 | | Call 0x0,0x8
0883 e258 | X | Load 0x1,0x58
0884 3011 |0 | Execute Record,Field_Type,Field_Number 0x11
0885 0119 | | Execute Any,Check_In_Formal_Type
0886 00d9 | | Load_Top At_Offset_1
0887 3811 |8 | Execute Record,Field_Write,Field_Number 0x11
0888 e009 | | Load 0x0,0x9
0889 00d9 | | Load_Top At_Offset_1
088a 3812 |8 | Execute Record,Field_Write,Field_Number 0x12
088b 4800 |H | Short_Literal 0x0
088c 00d9 | | Load_Top At_Offset_1
088d 3810 |8 | Execute Record,Field_Write,Field_Number 0x10
088e 4800 |H | Short_Literal 0x0
088f 00d9 | | Load_Top At_Offset_1
0890 3813 |8 | Execute Record,Field_Write,Field_Number 0x13
0891 4800 |H | Short_Literal 0x0
0892 00d9 | | Load_Top At_Offset_1
0893 3814 |8 | Execute Record,Field_Write,Field_Number 0x14
0894 4800 |H | Short_Literal 0x0
0895 00d9 | | Load_Top At_Offset_1
0896 3815 |8 | Execute Record,Field_Write,Field_Number 0x15
0897 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0898 08e0 | | Execute_Immediate Raise,0xe0
0899 0000 0000 | | .BLANK 0000[0x7]
08a0 ; --------------------------------------------------------------------------------------
08a0 ; SUBPROGRAM
08a0 ; --------------------------------------------------------------------------------------
08a0 08a3 | | .CONST 0x08a3 ; Address of begin
08a1 0004 | | .CONST 0x0004 ; Address of exception handler
08a2 0001 | | .CONST 0x0001 ; Number of locals
08a3 BODY_08a0:
08a3 INIT_08a0:
08a3 e258 | X | Load 0x1,0x58
08a4 0322 | " | Declare_Variable Record
08a5 4814 |H | Short_Literal 0x14
08a6 00d9 | | Load_Top At_Offset_1
08a7 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
08a8 e5fe | | Load 0x2,-0x2
08a9 00d9 | | Load_Top At_Offset_1
08aa 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
08ab 4800 |H | Short_Literal 0x0
08ac 00d9 | | Load_Top At_Offset_1
08ad 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
08ae 00db | | Load_Top At_Offset_3
08af 00d9 | | Load_Top At_Offset_1
08b0 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
08b1 4800 |H | Short_Literal 0x0
08b2 00d9 | | Load_Top At_Offset_1
08b3 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
08b4 e002 | | Load 0x0,0x2
08b5 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
08b6 00d9 | | Load_Top At_Offset_1
08b7 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
08b8 4800 |H | Short_Literal 0x0
08b9 00d9 | | Load_Top At_Offset_1
08ba 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
08bb 8006 | | Call 0x0,0x6
08bc 00d9 | | Load_Top At_Offset_1
08bd 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
08be 4800 |H | Short_Literal 0x0
08bf 00d9 | | Load_Top At_Offset_1
08c0 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
08c1 4800 |H | Short_Literal 0x0
08c2 00d9 | | Load_Top At_Offset_1
08c3 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
08c4 4800 |H | Short_Literal 0x0
08c5 00d9 | | Load_Top At_Offset_1
08c6 380a |8 | Execute Record,Field_Write,Field_Number 0xa
08c7 4800 |H | Short_Literal 0x0
08c8 00d9 | | Load_Top At_Offset_1
08c9 380b |8 | Execute Record,Field_Write,Field_Number 0xb
08ca 4800 |H | Short_Literal 0x0
08cb 00d9 | | Load_Top At_Offset_1
08cc 380c |8 | Execute Record,Field_Write,Field_Number 0xc
08cd 4800 |H | Short_Literal 0x0
08ce 00d9 | | Load_Top At_Offset_1
08cf 380d |8 | Execute Record,Field_Write,Field_Number 0xd
08d0 8007 | | Call 0x0,0x7
08d1 00d9 | | Load_Top At_Offset_1
08d2 380e |8 | Execute Record,Field_Write,Field_Number 0xe
08d3 4800 |H | Short_Literal 0x0
08d4 00d9 | | Load_Top At_Offset_1
08d5 380f |8 | Execute Record,Field_Write,Field_Number 0xf
08d6 8008 | | Call 0x0,0x8
08d7 e258 | X | Load 0x1,0x58
08d8 3011 |0 | Execute Record,Field_Type,Field_Number 0x11
08d9 0119 | | Execute Any,Check_In_Formal_Type
08da 00d9 | | Load_Top At_Offset_1
08db 3811 |8 | Execute Record,Field_Write,Field_Number 0x11
08dc e009 | | Load 0x0,0x9
08dd 00d9 | | Load_Top At_Offset_1
08de 3812 |8 | Execute Record,Field_Write,Field_Number 0x12
08df 4800 |H | Short_Literal 0x0
08e0 00d9 | | Load_Top At_Offset_1
08e1 3810 |8 | Execute Record,Field_Write,Field_Number 0x10
08e2 4800 |H | Short_Literal 0x0
08e3 00d9 | | Load_Top At_Offset_1
08e4 3813 |8 | Execute Record,Field_Write,Field_Number 0x13
08e5 4800 |H | Short_Literal 0x0
08e6 00d9 | | Load_Top At_Offset_1
08e7 3814 |8 | Execute Record,Field_Write,Field_Number 0x14
08e8 4800 |H | Short_Literal 0x0
08e9 00d9 | | Load_Top At_Offset_1
08ea 3815 |8 | Execute Record,Field_Write,Field_Number 0x15
08eb 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
08ec 0000 0000 | | .BLANK 0000[0x4]
08f0 ; --------------------------------------------------------------------------------------
08f0 ; SUBPROGRAM
08f0 ; --------------------------------------------------------------------------------------
08f0 08f3 | | .CONST 0x08f3 ; Address of begin
08f1 0004 | | .CONST 0x0004 ; Address of exception handler
08f2 0001 | | .CONST 0x0001 ; Number of locals
08f3 BODY_08f0:
08f3 INIT_08f0:
08f3 e258 | X | Load 0x1,0x58
08f4 0322 | " | Declare_Variable Record
08f5 4815 |H | Short_Literal 0x15
08f6 00d9 | | Load_Top At_Offset_1
08f7 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
08f8 00db | | Load_Top At_Offset_3
08f9 00d9 | | Load_Top At_Offset_1
08fa 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
08fb 4800 |H | Short_Literal 0x0
08fc 00d9 | | Load_Top At_Offset_1
08fd 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
08fe 4801 |H | Short_Literal 0x1
08ff 00d9 | | Load_Top At_Offset_1
0900 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0901 e5fe | | Load 0x2,-0x2
0902 00d9 | | Load_Top At_Offset_1
0903 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
0904 4800 |H | Short_Literal 0x0
0905 00d9 | | Load_Top At_Offset_1
0906 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0907 e002 | | Load 0x0,0x2
0908 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0909 00d9 | | Load_Top At_Offset_1
090a 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
090b 4800 |H | Short_Literal 0x0
090c 00d9 | | Load_Top At_Offset_1
090d 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
090e 8006 | | Call 0x0,0x6
090f 00d9 | | Load_Top At_Offset_1
0910 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
0911 4800 |H | Short_Literal 0x0
0912 00d9 | | Load_Top At_Offset_1
0913 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
0914 4800 |H | Short_Literal 0x0
0915 00d9 | | Load_Top At_Offset_1
0916 380a |8 | Execute Record,Field_Write,Field_Number 0xa
0917 4800 |H | Short_Literal 0x0
0918 00d9 | | Load_Top At_Offset_1
0919 380b |8 | Execute Record,Field_Write,Field_Number 0xb
091a 4800 |H | Short_Literal 0x0
091b 00d9 | | Load_Top At_Offset_1
091c 380c |8 | Execute Record,Field_Write,Field_Number 0xc
091d 4800 |H | Short_Literal 0x0
091e 00d9 | | Load_Top At_Offset_1
091f 380d |8 | Execute Record,Field_Write,Field_Number 0xd
0920 8007 | | Call 0x0,0x7
0921 00d9 | | Load_Top At_Offset_1
0922 380e |8 | Execute Record,Field_Write,Field_Number 0xe
0923 4800 |H | Short_Literal 0x0
0924 00d9 | | Load_Top At_Offset_1
0925 380f |8 | Execute Record,Field_Write,Field_Number 0xf
0926 8008 | | Call 0x0,0x8
0927 e258 | X | Load 0x1,0x58
0928 3011 |0 | Execute Record,Field_Type,Field_Number 0x11
0929 0119 | | Execute Any,Check_In_Formal_Type
092a 00d9 | | Load_Top At_Offset_1
092b 3811 |8 | Execute Record,Field_Write,Field_Number 0x11
092c e009 | | Load 0x0,0x9
092d 00d9 | | Load_Top At_Offset_1
092e 3812 |8 | Execute Record,Field_Write,Field_Number 0x12
092f 4800 |H | Short_Literal 0x0
0930 00d9 | | Load_Top At_Offset_1
0931 3810 |8 | Execute Record,Field_Write,Field_Number 0x10
0932 4800 |H | Short_Literal 0x0
0933 00d9 | | Load_Top At_Offset_1
0934 3813 |8 | Execute Record,Field_Write,Field_Number 0x13
0935 4800 |H | Short_Literal 0x0
0936 00d9 | | Load_Top At_Offset_1
0937 3814 |8 | Execute Record,Field_Write,Field_Number 0x14
0938 4800 |H | Short_Literal 0x0
0939 00d9 | | Load_Top At_Offset_1
093a 3815 |8 | Execute Record,Field_Write,Field_Number 0x15
093b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
093c 0000 0000 | | .BLANK 0000[0x4]
0940 ; --------------------------------------------------------------------------------------
0940 ; SUBPROGRAM
0940 ; --------------------------------------------------------------------------------------
0940 0943 | C | .CONST 0x0943 ; Address of begin
0941 0004 | | .CONST 0x0004 ; Address of exception handler
0942 0001 | | .CONST 0x0001 ; Number of locals
0943 BODY_0940:
0943 INIT_0940:
0943 e258 | X | Load 0x1,0x58
0944 0322 | " | Declare_Variable Record
0945 4813 |H | Short_Literal 0x13
0946 00d9 | | Load_Top At_Offset_1
0947 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0948 00db | | Load_Top At_Offset_3
0949 00d9 | | Load_Top At_Offset_1
094a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
094b 4800 |H | Short_Literal 0x0
094c 00d9 | | Load_Top At_Offset_1
094d 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
094e e5fe | | Load 0x2,-0x2
094f 00d9 | | Load_Top At_Offset_1
0950 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0951 4800 |H | Short_Literal 0x0
0952 00d9 | | Load_Top At_Offset_1
0953 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0954 e002 | | Load 0x0,0x2
0955 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0956 00d9 | | Load_Top At_Offset_1
0957 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0958 4800 |H | Short_Literal 0x0
0959 00d9 | | Load_Top At_Offset_1
095a 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
095b 8006 | | Call 0x0,0x6
095c 00d9 | | Load_Top At_Offset_1
095d 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
095e 4800 |H | Short_Literal 0x0
095f 00d9 | | Load_Top At_Offset_1
0960 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
0961 4800 |H | Short_Literal 0x0
0962 00d9 | | Load_Top At_Offset_1
0963 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
0964 4800 |H | Short_Literal 0x0
0965 00d9 | | Load_Top At_Offset_1
0966 380a |8 | Execute Record,Field_Write,Field_Number 0xa
0967 4800 |H | Short_Literal 0x0
0968 00d9 | | Load_Top At_Offset_1
0969 380b |8 | Execute Record,Field_Write,Field_Number 0xb
096a 4800 |H | Short_Literal 0x0
096b 00d9 | | Load_Top At_Offset_1
096c 380c |8 | Execute Record,Field_Write,Field_Number 0xc
096d 4800 |H | Short_Literal 0x0
096e 00d9 | | Load_Top At_Offset_1
096f 380d |8 | Execute Record,Field_Write,Field_Number 0xd
0970 8007 | | Call 0x0,0x7
0971 00d9 | | Load_Top At_Offset_1
0972 380e |8 | Execute Record,Field_Write,Field_Number 0xe
0973 4800 |H | Short_Literal 0x0
0974 00d9 | | Load_Top At_Offset_1
0975 380f |8 | Execute Record,Field_Write,Field_Number 0xf
0976 8008 | | Call 0x0,0x8
0977 e258 | X | Load 0x1,0x58
0978 3011 |0 | Execute Record,Field_Type,Field_Number 0x11
0979 0119 | | Execute Any,Check_In_Formal_Type
097a 00d9 | | Load_Top At_Offset_1
097b 3811 |8 | Execute Record,Field_Write,Field_Number 0x11
097c e009 | | Load 0x0,0x9
097d 00d9 | | Load_Top At_Offset_1
097e 3812 |8 | Execute Record,Field_Write,Field_Number 0x12
097f 4800 |H | Short_Literal 0x0
0980 00d9 | | Load_Top At_Offset_1
0981 3810 |8 | Execute Record,Field_Write,Field_Number 0x10
0982 4800 |H | Short_Literal 0x0
0983 00d9 | | Load_Top At_Offset_1
0984 3813 |8 | Execute Record,Field_Write,Field_Number 0x13
0985 4800 |H | Short_Literal 0x0
0986 00d9 | | Load_Top At_Offset_1
0987 3814 |8 | Execute Record,Field_Write,Field_Number 0x14
0988 4800 |H | Short_Literal 0x0
0989 00d9 | | Load_Top At_Offset_1
098a 3815 |8 | Execute Record,Field_Write,Field_Number 0x15
098b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
098c 0000 0000 | | .BLANK 0000[0x4]
0990 ; --------------------------------------------------------------------------------------
0990 ; SUBPROGRAM
0990 ; --------------------------------------------------------------------------------------
0990 0993 | | .CONST 0x0993 ; Address of begin
0991 0004 | | .CONST 0x0004 ; Address of exception handler
0992 0001 | | .CONST 0x0001 ; Number of locals
0993 BODY_0990:
0993 INIT_0990:
0993 e258 | X | Load 0x1,0x58
0994 0322 | " | Declare_Variable Record
0995 481b |H | Short_Literal 0x1b
0996 00d9 | | Load_Top At_Offset_1
0997 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0998 00db | | Load_Top At_Offset_3
0999 00d9 | | Load_Top At_Offset_1
099a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
099b 4800 |H | Short_Literal 0x0
099c 00d9 | | Load_Top At_Offset_1
099d 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
099e 4800 |H | Short_Literal 0x0
099f 00d9 | | Load_Top At_Offset_1
09a0 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
09a1 4800 |H | Short_Literal 0x0
09a2 00d9 | | Load_Top At_Offset_1
09a3 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
09a4 e002 | | Load 0x0,0x2
09a5 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
09a6 00d9 | | Load_Top At_Offset_1
09a7 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
09a8 4800 |H | Short_Literal 0x0
09a9 00d9 | | Load_Top At_Offset_1
09aa 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
09ab 8006 | | Call 0x0,0x6
09ac 00d9 | | Load_Top At_Offset_1
09ad 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
09ae 4800 |H | Short_Literal 0x0
09af 00d9 | | Load_Top At_Offset_1
09b0 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
09b1 4800 |H | Short_Literal 0x0
09b2 00d9 | | Load_Top At_Offset_1
09b3 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
09b4 4800 |H | Short_Literal 0x0
09b5 00d9 | | Load_Top At_Offset_1
09b6 380a |8 | Execute Record,Field_Write,Field_Number 0xa
09b7 4800 |H | Short_Literal 0x0
09b8 00d9 | | Load_Top At_Offset_1
09b9 380b |8 | Execute Record,Field_Write,Field_Number 0xb
09ba 4800 |H | Short_Literal 0x0
09bb 00d9 | | Load_Top At_Offset_1
09bc 380c |8 | Execute Record,Field_Write,Field_Number 0xc
09bd 4800 |H | Short_Literal 0x0
09be 00d9 | | Load_Top At_Offset_1
09bf 380d |8 | Execute Record,Field_Write,Field_Number 0xd
09c0 8007 | | Call 0x0,0x7
09c1 00d9 | | Load_Top At_Offset_1
09c2 380e |8 | Execute Record,Field_Write,Field_Number 0xe
09c3 4800 |H | Short_Literal 0x0
09c4 00d9 | | Load_Top At_Offset_1
09c5 380f |8 | Execute Record,Field_Write,Field_Number 0xf
09c6 8008 | | Call 0x0,0x8
09c7 e258 | X | Load 0x1,0x58
09c8 3011 |0 | Execute Record,Field_Type,Field_Number 0x11
09c9 0119 | | Execute Any,Check_In_Formal_Type
09ca 00d9 | | Load_Top At_Offset_1
09cb 3811 |8 | Execute Record,Field_Write,Field_Number 0x11
09cc e009 | | Load 0x0,0x9
09cd 00d9 | | Load_Top At_Offset_1
09ce 3812 |8 | Execute Record,Field_Write,Field_Number 0x12
09cf 4800 |H | Short_Literal 0x0
09d0 00d9 | | Load_Top At_Offset_1
09d1 3810 |8 | Execute Record,Field_Write,Field_Number 0x10
09d2 4800 |H | Short_Literal 0x0
09d3 00d9 | | Load_Top At_Offset_1
09d4 3813 |8 | Execute Record,Field_Write,Field_Number 0x13
09d5 4800 |H | Short_Literal 0x0
09d6 00d9 | | Load_Top At_Offset_1
09d7 3814 |8 | Execute Record,Field_Write,Field_Number 0x14
09d8 4800 |H | Short_Literal 0x0
09d9 00d9 | | Load_Top At_Offset_1
09da 3815 |8 | Execute Record,Field_Write,Field_Number 0x15
09db 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
09dc 0000 0000 | | .BLANK 0000[0x4]
09e0 ; --------------------------------------------------------------------------------------
09e0 ; SUBPROGRAM
09e0 ; --------------------------------------------------------------------------------------
09e0 09e3 | | .CONST 0x09e3 ; Address of begin
09e1 0004 | | .CONST 0x0004 ; Address of exception handler
09e2 0001 | | .CONST 0x0001 ; Number of locals
09e3 BODY_09e0:
09e3 INIT_09e0:
09e3 e258 | X | Load 0x1,0x58
09e4 0322 | " | Declare_Variable Record
09e5 4816 |H | Short_Literal 0x16
09e6 00d9 | | Load_Top At_Offset_1
09e7 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
09e8 00db | | Load_Top At_Offset_3
09e9 00d9 | | Load_Top At_Offset_1
09ea 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
09eb 4800 |H | Short_Literal 0x0
09ec 00d9 | | Load_Top At_Offset_1
09ed 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
09ee 4800 |H | Short_Literal 0x0
09ef 00d9 | | Load_Top At_Offset_1
09f0 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
09f1 4800 |H | Short_Literal 0x0
09f2 00d9 | | Load_Top At_Offset_1
09f3 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
09f4 e002 | | Load 0x0,0x2
09f5 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
09f6 00d9 | | Load_Top At_Offset_1
09f7 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
09f8 4800 |H | Short_Literal 0x0
09f9 00d9 | | Load_Top At_Offset_1
09fa 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
09fb 8006 | | Call 0x0,0x6
09fc 00d9 | | Load_Top At_Offset_1
09fd 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
09fe 4800 |H | Short_Literal 0x0
09ff 00d9 | | Load_Top At_Offset_1
0a00 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
0a01 4800 |H | Short_Literal 0x0
0a02 00d9 | | Load_Top At_Offset_1
0a03 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
0a04 4800 |H | Short_Literal 0x0
0a05 00d9 | | Load_Top At_Offset_1
0a06 380a |8 | Execute Record,Field_Write,Field_Number 0xa
0a07 4800 |H | Short_Literal 0x0
0a08 00d9 | | Load_Top At_Offset_1
0a09 380b |8 | Execute Record,Field_Write,Field_Number 0xb
0a0a 4800 |H | Short_Literal 0x0
0a0b 00d9 | | Load_Top At_Offset_1
0a0c 380c |8 | Execute Record,Field_Write,Field_Number 0xc
0a0d 4800 |H | Short_Literal 0x0
0a0e 00d9 | | Load_Top At_Offset_1
0a0f 380d |8 | Execute Record,Field_Write,Field_Number 0xd
0a10 8007 | | Call 0x0,0x7
0a11 00d9 | | Load_Top At_Offset_1
0a12 380e |8 | Execute Record,Field_Write,Field_Number 0xe
0a13 4800 |H | Short_Literal 0x0
0a14 00d9 | | Load_Top At_Offset_1
0a15 380f |8 | Execute Record,Field_Write,Field_Number 0xf
0a16 8008 | | Call 0x0,0x8
0a17 e258 | X | Load 0x1,0x58
0a18 3011 |0 | Execute Record,Field_Type,Field_Number 0x11
0a19 0119 | | Execute Any,Check_In_Formal_Type
0a1a 00d9 | | Load_Top At_Offset_1
0a1b 3811 |8 | Execute Record,Field_Write,Field_Number 0x11
0a1c e009 | | Load 0x0,0x9
0a1d 00d9 | | Load_Top At_Offset_1
0a1e 3812 |8 | Execute Record,Field_Write,Field_Number 0x12
0a1f 4800 |H | Short_Literal 0x0
0a20 00d9 | | Load_Top At_Offset_1
0a21 3810 |8 | Execute Record,Field_Write,Field_Number 0x10
0a22 4800 |H | Short_Literal 0x0
0a23 00d9 | | Load_Top At_Offset_1
0a24 3813 |8 | Execute Record,Field_Write,Field_Number 0x13
0a25 4800 |H | Short_Literal 0x0
0a26 00d9 | | Load_Top At_Offset_1
0a27 3814 |8 | Execute Record,Field_Write,Field_Number 0x14
0a28 4800 |H | Short_Literal 0x0
0a29 00d9 | | Load_Top At_Offset_1
0a2a 3815 |8 | Execute Record,Field_Write,Field_Number 0x15
0a2b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0a2c 0000 0000 | | .BLANK 0000[0x4]
0a30 ; --------------------------------------------------------------------------------------
0a30 ; SUBPROGRAM
0a30 ; --------------------------------------------------------------------------------------
0a30 0a33 | 3 | .CONST 0x0a33 ; Address of begin
0a31 0004 | | .CONST 0x0004 ; Address of exception handler
0a32 0001 | | .CONST 0x0001 ; Number of locals
0a33 BODY_0a30:
0a33 INIT_0a30:
0a33 e258 | X | Load 0x1,0x58
0a34 0322 | " | Declare_Variable Record
0a35 4817 |H | Short_Literal 0x17
0a36 00d9 | | Load_Top At_Offset_1
0a37 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0a38 00db | | Load_Top At_Offset_3
0a39 00d9 | | Load_Top At_Offset_1
0a3a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0a3b 4800 |H | Short_Literal 0x0
0a3c 00d9 | | Load_Top At_Offset_1
0a3d 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0a3e 4800 |H | Short_Literal 0x0
0a3f 00d9 | | Load_Top At_Offset_1
0a40 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0a41 4800 |H | Short_Literal 0x0
0a42 00d9 | | Load_Top At_Offset_1
0a43 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0a44 e002 | | Load 0x0,0x2
0a45 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0a46 00d9 | | Load_Top At_Offset_1
0a47 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0a48 4800 |H | Short_Literal 0x0
0a49 00d9 | | Load_Top At_Offset_1
0a4a 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
0a4b 8006 | | Call 0x0,0x6
0a4c 00d9 | | Load_Top At_Offset_1
0a4d 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
0a4e 4800 |H | Short_Literal 0x0
0a4f 00d9 | | Load_Top At_Offset_1
0a50 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
0a51 4800 |H | Short_Literal 0x0
0a52 00d9 | | Load_Top At_Offset_1
0a53 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
0a54 4800 |H | Short_Literal 0x0
0a55 00d9 | | Load_Top At_Offset_1
0a56 380a |8 | Execute Record,Field_Write,Field_Number 0xa
0a57 4800 |H | Short_Literal 0x0
0a58 00d9 | | Load_Top At_Offset_1
0a59 380b |8 | Execute Record,Field_Write,Field_Number 0xb
0a5a 4800 |H | Short_Literal 0x0
0a5b 00d9 | | Load_Top At_Offset_1
0a5c 380c |8 | Execute Record,Field_Write,Field_Number 0xc
0a5d 4800 |H | Short_Literal 0x0
0a5e 00d9 | | Load_Top At_Offset_1
0a5f 380d |8 | Execute Record,Field_Write,Field_Number 0xd
0a60 8007 | | Call 0x0,0x7
0a61 00d9 | | Load_Top At_Offset_1
0a62 380e |8 | Execute Record,Field_Write,Field_Number 0xe
0a63 4800 |H | Short_Literal 0x0
0a64 00d9 | | Load_Top At_Offset_1
0a65 380f |8 | Execute Record,Field_Write,Field_Number 0xf
0a66 8008 | | Call 0x0,0x8
0a67 e258 | X | Load 0x1,0x58
0a68 3011 |0 | Execute Record,Field_Type,Field_Number 0x11
0a69 0119 | | Execute Any,Check_In_Formal_Type
0a6a 00d9 | | Load_Top At_Offset_1
0a6b 3811 |8 | Execute Record,Field_Write,Field_Number 0x11
0a6c e009 | | Load 0x0,0x9
0a6d 00d9 | | Load_Top At_Offset_1
0a6e 3812 |8 | Execute Record,Field_Write,Field_Number 0x12
0a6f 4800 |H | Short_Literal 0x0
0a70 00d9 | | Load_Top At_Offset_1
0a71 3810 |8 | Execute Record,Field_Write,Field_Number 0x10
0a72 4800 |H | Short_Literal 0x0
0a73 00d9 | | Load_Top At_Offset_1
0a74 3813 |8 | Execute Record,Field_Write,Field_Number 0x13
0a75 4800 |H | Short_Literal 0x0
0a76 00d9 | | Load_Top At_Offset_1
0a77 3814 |8 | Execute Record,Field_Write,Field_Number 0x14
0a78 4800 |H | Short_Literal 0x0
0a79 00d9 | | Load_Top At_Offset_1
0a7a 3815 |8 | Execute Record,Field_Write,Field_Number 0x15
0a7b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0a7c 0000 0000 | | .BLANK 0000[0x4]
0a80 ; --------------------------------------------------------------------------------------
0a80 ; SUBPROGRAM
0a80 ; --------------------------------------------------------------------------------------
0a80 0a83 | | .CONST 0x0a83 ; Address of begin
0a81 0004 | | .CONST 0x0004 ; Address of exception handler
0a82 0001 | | .CONST 0x0001 ; Number of locals
0a83 BODY_0a80:
0a83 INIT_0a80:
0a83 e258 | X | Load 0x1,0x58
0a84 0322 | " | Declare_Variable Record
0a85 4818 |H | Short_Literal 0x18
0a86 00d9 | | Load_Top At_Offset_1
0a87 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0a88 00db | | Load_Top At_Offset_3
0a89 00d9 | | Load_Top At_Offset_1
0a8a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0a8b e5fb | | Load 0x2,-0x5
0a8c 00d9 | | Load_Top At_Offset_1
0a8d 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0a8e 4800 |H | Short_Literal 0x0
0a8f 00d9 | | Load_Top At_Offset_1
0a90 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0a91 e5fe | | Load 0x2,-0x2
0a92 00d9 | | Load_Top At_Offset_1
0a93 380a |8 | Execute Record,Field_Write,Field_Number 0xa
0a94 e5fd | | Load 0x2,-0x3
0a95 00d9 | | Load_Top At_Offset_1
0a96 380b |8 | Execute Record,Field_Write,Field_Number 0xb
0a97 e5fc | | Load 0x2,-0x4
0a98 00d9 | | Load_Top At_Offset_1
0a99 380c |8 | Execute Record,Field_Write,Field_Number 0xc
0a9a 4800 |H | Short_Literal 0x0
0a9b 00d9 | | Load_Top At_Offset_1
0a9c 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0a9d e002 | | Load 0x0,0x2
0a9e 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0a9f 00d9 | | Load_Top At_Offset_1
0aa0 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0aa1 4800 |H | Short_Literal 0x0
0aa2 00d9 | | Load_Top At_Offset_1
0aa3 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
0aa4 8006 | | Call 0x0,0x6
0aa5 00d9 | | Load_Top At_Offset_1
0aa6 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
0aa7 4800 |H | Short_Literal 0x0
0aa8 00d9 | | Load_Top At_Offset_1
0aa9 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
0aaa 4800 |H | Short_Literal 0x0
0aab 00d9 | | Load_Top At_Offset_1
0aac 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
0aad 4800 |H | Short_Literal 0x0
0aae 00d9 | | Load_Top At_Offset_1
0aaf 380d |8 | Execute Record,Field_Write,Field_Number 0xd
0ab0 8007 | | Call 0x0,0x7
0ab1 00d9 | | Load_Top At_Offset_1
0ab2 380e |8 | Execute Record,Field_Write,Field_Number 0xe
0ab3 4800 |H | Short_Literal 0x0
0ab4 00d9 | | Load_Top At_Offset_1
0ab5 380f |8 | Execute Record,Field_Write,Field_Number 0xf
0ab6 8008 | | Call 0x0,0x8
0ab7 e258 | X | Load 0x1,0x58
0ab8 3011 |0 | Execute Record,Field_Type,Field_Number 0x11
0ab9 0119 | | Execute Any,Check_In_Formal_Type
0aba 00d9 | | Load_Top At_Offset_1
0abb 3811 |8 | Execute Record,Field_Write,Field_Number 0x11
0abc e009 | | Load 0x0,0x9
0abd 00d9 | | Load_Top At_Offset_1
0abe 3812 |8 | Execute Record,Field_Write,Field_Number 0x12
0abf 4800 |H | Short_Literal 0x0
0ac0 00d9 | | Load_Top At_Offset_1
0ac1 3810 |8 | Execute Record,Field_Write,Field_Number 0x10
0ac2 4800 |H | Short_Literal 0x0
0ac3 00d9 | | Load_Top At_Offset_1
0ac4 3813 |8 | Execute Record,Field_Write,Field_Number 0x13
0ac5 4800 |H | Short_Literal 0x0
0ac6 00d9 | | Load_Top At_Offset_1
0ac7 3814 |8 | Execute Record,Field_Write,Field_Number 0x14
0ac8 4800 |H | Short_Literal 0x0
0ac9 00d9 | | Load_Top At_Offset_1
0aca 3815 |8 | Execute Record,Field_Write,Field_Number 0x15
0acb 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5
0acc 0000 0000 | | .BLANK 0000[0x4]
0ad0 ; --------------------------------------------------------------------------------------
0ad0 ; SUBPROGRAM
0ad0 ; --------------------------------------------------------------------------------------
0ad0 0ad3 | | .CONST 0x0ad3 ; Address of begin
0ad1 0004 | | .CONST 0x0004 ; Address of exception handler
0ad2 0001 | | .CONST 0x0001 ; Number of locals
0ad3 BODY_0ad0:
0ad3 INIT_0ad0:
0ad3 e258 | X | Load 0x1,0x58
0ad4 0322 | " | Declare_Variable Record
0ad5 4819 |H | Short_Literal 0x19
0ad6 00d9 | | Load_Top At_Offset_1
0ad7 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0ad8 00db | | Load_Top At_Offset_3
0ad9 00d9 | | Load_Top At_Offset_1
0ada 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0adb e5fd | | Load 0x2,-0x3
0adc 00d9 | | Load_Top At_Offset_1
0add 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0ade e5fc | | Load 0x2,-0x4
0adf 00d9 | | Load_Top At_Offset_1
0ae0 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0ae1 e5fe | | Load 0x2,-0x2
0ae2 00d9 | | Load_Top At_Offset_1
0ae3 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
0ae4 4800 |H | Short_Literal 0x0
0ae5 00d9 | | Load_Top At_Offset_1
0ae6 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0ae7 e002 | | Load 0x0,0x2
0ae8 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0ae9 00d9 | | Load_Top At_Offset_1
0aea 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0aeb 4800 |H | Short_Literal 0x0
0aec 00d9 | | Load_Top At_Offset_1
0aed 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
0aee 8006 | | Call 0x0,0x6
0aef 00d9 | | Load_Top At_Offset_1
0af0 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
0af1 4800 |H | Short_Literal 0x0
0af2 00d9 | | Load_Top At_Offset_1
0af3 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
0af4 4800 |H | Short_Literal 0x0
0af5 00d9 | | Load_Top At_Offset_1
0af6 380a |8 | Execute Record,Field_Write,Field_Number 0xa
0af7 4800 |H | Short_Literal 0x0
0af8 00d9 | | Load_Top At_Offset_1
0af9 380b |8 | Execute Record,Field_Write,Field_Number 0xb
0afa 4800 |H | Short_Literal 0x0
0afb 00d9 | | Load_Top At_Offset_1
0afc 380c |8 | Execute Record,Field_Write,Field_Number 0xc
0afd 4800 |H | Short_Literal 0x0
0afe 00d9 | | Load_Top At_Offset_1
0aff 380d |8 | Execute Record,Field_Write,Field_Number 0xd
0b00 8007 | | Call 0x0,0x7
0b01 00d9 | | Load_Top At_Offset_1
0b02 380e |8 | Execute Record,Field_Write,Field_Number 0xe
0b03 4800 |H | Short_Literal 0x0
0b04 00d9 | | Load_Top At_Offset_1
0b05 380f |8 | Execute Record,Field_Write,Field_Number 0xf
0b06 8008 | | Call 0x0,0x8
0b07 e258 | X | Load 0x1,0x58
0b08 3011 |0 | Execute Record,Field_Type,Field_Number 0x11
0b09 0119 | | Execute Any,Check_In_Formal_Type
0b0a 00d9 | | Load_Top At_Offset_1
0b0b 3811 |8 | Execute Record,Field_Write,Field_Number 0x11
0b0c e009 | | Load 0x0,0x9
0b0d 00d9 | | Load_Top At_Offset_1
0b0e 3812 |8 | Execute Record,Field_Write,Field_Number 0x12
0b0f 4800 |H | Short_Literal 0x0
0b10 00d9 | | Load_Top At_Offset_1
0b11 3810 |8 | Execute Record,Field_Write,Field_Number 0x10
0b12 4800 |H | Short_Literal 0x0
0b13 00d9 | | Load_Top At_Offset_1
0b14 3813 |8 | Execute Record,Field_Write,Field_Number 0x13
0b15 4800 |H | Short_Literal 0x0
0b16 00d9 | | Load_Top At_Offset_1
0b17 3814 |8 | Execute Record,Field_Write,Field_Number 0x14
0b18 4800 |H | Short_Literal 0x0
0b19 00d9 | | Load_Top At_Offset_1
0b1a 3815 |8 | Execute Record,Field_Write,Field_Number 0x15
0b1b 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0b1c 0000 0000 | | .BLANK 0000[0x4]
0b20 ; --------------------------------------------------------------------------------------
0b20 ; SUBPROGRAM
0b20 ; --------------------------------------------------------------------------------------
0b20 0b23 | # | .CONST 0x0b23 ; Address of begin
0b21 0004 | | .CONST 0x0004 ; Address of exception handler
0b22 0001 | | .CONST 0x0001 ; Number of locals
0b23 BODY_0b20:
0b23 INIT_0b20:
0b23 e258 | X | Load 0x1,0x58
0b24 0322 | " | Declare_Variable Record
0b25 481a |H | Short_Literal 0x1a
0b26 00d9 | | Load_Top At_Offset_1
0b27 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0b28 00db | | Load_Top At_Offset_3
0b29 00d9 | | Load_Top At_Offset_1
0b2a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0b2b 4800 |H | Short_Literal 0x0
0b2c 00d9 | | Load_Top At_Offset_1
0b2d 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0b2e 4801 |H | Short_Literal 0x1
0b2f 00d9 | | Load_Top At_Offset_1
0b30 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0b31 e5fe | | Load 0x2,-0x2
0b32 00d9 | | Load_Top At_Offset_1
0b33 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0b34 e5fd | | Load 0x2,-0x3
0b35 00d9 | | Load_Top At_Offset_1
0b36 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0b37 4800 |H | Short_Literal 0x0
0b38 00d9 | | Load_Top At_Offset_1
0b39 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
0b3a 8006 | | Call 0x0,0x6
0b3b 00d9 | | Load_Top At_Offset_1
0b3c 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
0b3d 4800 |H | Short_Literal 0x0
0b3e 00d9 | | Load_Top At_Offset_1
0b3f 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
0b40 4800 |H | Short_Literal 0x0
0b41 00d9 | | Load_Top At_Offset_1
0b42 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
0b43 4800 |H | Short_Literal 0x0
0b44 00d9 | | Load_Top At_Offset_1
0b45 380a |8 | Execute Record,Field_Write,Field_Number 0xa
0b46 e5fc | | Load 0x2,-0x4
0b47 00d9 | | Load_Top At_Offset_1
0b48 380b |8 | Execute Record,Field_Write,Field_Number 0xb
0b49 4800 |H | Short_Literal 0x0
0b4a 00d9 | | Load_Top At_Offset_1
0b4b 380c |8 | Execute Record,Field_Write,Field_Number 0xc
0b4c 4800 |H | Short_Literal 0x0
0b4d 00d9 | | Load_Top At_Offset_1
0b4e 380d |8 | Execute Record,Field_Write,Field_Number 0xd
0b4f 8007 | | Call 0x0,0x7
0b50 00d9 | | Load_Top At_Offset_1
0b51 380e |8 | Execute Record,Field_Write,Field_Number 0xe
0b52 4800 |H | Short_Literal 0x0
0b53 00d9 | | Load_Top At_Offset_1
0b54 380f |8 | Execute Record,Field_Write,Field_Number 0xf
0b55 8008 | | Call 0x0,0x8
0b56 e258 | X | Load 0x1,0x58
0b57 3011 |0 | Execute Record,Field_Type,Field_Number 0x11
0b58 0119 | | Execute Any,Check_In_Formal_Type
0b59 00d9 | | Load_Top At_Offset_1
0b5a 3811 |8 | Execute Record,Field_Write,Field_Number 0x11
0b5b e009 | | Load 0x0,0x9
0b5c 00d9 | | Load_Top At_Offset_1
0b5d 3812 |8 | Execute Record,Field_Write,Field_Number 0x12
0b5e 4800 |H | Short_Literal 0x0
0b5f 00d9 | | Load_Top At_Offset_1
0b60 3810 |8 | Execute Record,Field_Write,Field_Number 0x10
0b61 4800 |H | Short_Literal 0x0
0b62 00d9 | | Load_Top At_Offset_1
0b63 3813 |8 | Execute Record,Field_Write,Field_Number 0x13
0b64 e5fb | | Load 0x2,-0x5
0b65 00d9 | | Load_Top At_Offset_1
0b66 3814 |8 | Execute Record,Field_Write,Field_Number 0x14
0b67 4800 |H | Short_Literal 0x0
0b68 00d9 | | Load_Top At_Offset_1
0b69 3815 |8 | Execute Record,Field_Write,Field_Number 0x15
0b6a 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5
0b6b 0000 0000 | | .BLANK 0000[0x5]
0b70 ; --------------------------------------------------------------------------------------
0b70 ; SUBPROGRAM
0b70 ; --------------------------------------------------------------------------------------
0b70 0b73 | s | .CONST 0x0b73 ; Address of begin
0b71 0004 | | .CONST 0x0004 ; Address of exception handler
0b72 0001 | | .CONST 0x0001 ; Number of locals
0b73 BODY_0b70:
0b73 INIT_0b70:
0b73 00da | | Load_Top At_Offset_2
0b74 e5fe | | Load 0x2,-0x2
0b75 3810 |8 | Execute Record,Field_Write,Field_Number 0x10
0b76 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0b77 0000 | | .XXX[0x1]
0b78 ; --------------------------------------------------------------------------------------
0b78 ; SUBPROGRAM
0b78 ; --------------------------------------------------------------------------------------
0b78 0b7b | { | .CONST 0x0b7b ; Address of begin
0b79 0004 | | .CONST 0x0004 ; Address of exception handler
0b7a 0001 | | .CONST 0x0001 ; Number of locals
0b7b BODY_0b78:
0b7b INIT_0b78:
0b7b 4801 |H | Short_Literal 0x1
0b7c 00db | | Load_Top At_Offset_3
0b7d 380d |8 | Execute Record,Field_Write,Field_Number 0xd
0b7e 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0b7f 0000 | | .XXX[0x1]
0b80 ; --------------------------------------------------------------------------------------
0b80 ; SUBPROGRAM
0b80 ; --------------------------------------------------------------------------------------
0b80 0b83 | | .CONST 0x0b83 ; Address of begin
0b81 0004 | | .CONST 0x0004 ; Address of exception handler
0b82 0001 | | .CONST 0x0001 ; Number of locals
0b83 BODY_0b80:
0b83 INIT_0b80:
0b83 00da | | Load_Top At_Offset_2
0b84 e5fd | | Load 0x2,-0x3
0b85 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0b86 00db | | Load_Top At_Offset_3
0b87 e5fd | | Load 0x2,-0x3
0b88 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0b89 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0b8a 0000 0000 | | .BLANK 0000[0x6]
0b90 ; --------------------------------------------------------------------------------------
0b90 ; SUBPROGRAM
0b90 ; --------------------------------------------------------------------------------------
0b90 0b93 | | .CONST 0x0b93 ; Address of begin
0b91 0004 | | .CONST 0x0004 ; Address of exception handler
0b92 0001 | | .CONST 0x0001 ; Number of locals
0b93 BODY_0b90:
0b93 INIT_0b90:
0b93 00da | | Load_Top At_Offset_2
0b94 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0b95 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0b96 0000 0000 | | .XXX[0x2]
0b98 ; --------------------------------------------------------------------------------------
0b98 ; SUBPROGRAM
0b98 ; --------------------------------------------------------------------------------------
0b98 0b9b | | .CONST 0x0b9b ; Address of begin
0b99 0004 | | .CONST 0x0004 ; Address of exception handler
0b9a 0001 | | .CONST 0x0001 ; Number of locals
0b9b BODY_0b98:
0b9b INIT_0b98:
0b9b 00da | | Load_Top At_Offset_2
0b9c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0b9d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0b9e 0000 0000 | | .XXX[0x2]
0ba0 ; --------------------------------------------------------------------------------------
0ba0 ; SUBPROGRAM
0ba0 ; --------------------------------------------------------------------------------------
0ba0 0ba3 | | .CONST 0x0ba3 ; Address of begin
0ba1 0004 | | .CONST 0x0004 ; Address of exception handler
0ba2 0001 | | .CONST 0x0001 ; Number of locals
0ba3 BODY_0ba0:
0ba3 INIT_0ba0:
0ba3 00da | | Load_Top At_Offset_2
0ba4 3c0d |< | Execute Record,Field_Read,Field_Number 0xd
0ba5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0ba6 0000 0000 | | .XXX[0x2]
0ba8 ; --------------------------------------------------------------------------------------
0ba8 ; SUBPROGRAM
0ba8 ; --------------------------------------------------------------------------------------
0ba8 0bab | | .CONST 0x0bab ; Address of begin
0ba9 0004 | | .CONST 0x0004 ; Address of exception handler
0baa 0001 | | .CONST 0x0001 ; Number of locals
0bab BODY_0ba8:
0bab INIT_0ba8:
0bab 00da | | Load_Top At_Offset_2
0bac 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0bad 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0bae 0000 0000 | | .XXX[0x2]
0bb0 ; --------------------------------------------------------------------------------------
0bb0 ; SUBPROGRAM
0bb0 ; --------------------------------------------------------------------------------------
0bb0 0bb3 | | .CONST 0x0bb3 ; Address of begin
0bb1 0004 | | .CONST 0x0004 ; Address of exception handler
0bb2 0001 | | .CONST 0x0001 ; Number of locals
0bb3 BODY_0bb0:
0bb3 INIT_0bb0:
0bb3 00da | | Load_Top At_Offset_2
0bb4 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0bb5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0bb6 0000 0000 | | .XXX[0x2]
0bb8 ; --------------------------------------------------------------------------------------
0bb8 ; SUBPROGRAM
0bb8 ; --------------------------------------------------------------------------------------
0bb8 0bbb | | .CONST 0x0bbb ; Address of begin
0bb9 0004 | | .CONST 0x0004 ; Address of exception handler
0bba 0001 | | .CONST 0x0001 ; Number of locals
0bbb BODY_0bb8:
0bbb INIT_0bb8:
0bbb 00da | | Load_Top At_Offset_2
0bbc 3c09 |< | Execute Record,Field_Read,Field_Number 0x9
0bbd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0bbe 0000 0000 | | .XXX[0x2]
0bc0 ; --------------------------------------------------------------------------------------
0bc0 ; SUBPROGRAM
0bc0 ; --------------------------------------------------------------------------------------
0bc0 0bc3 | | .CONST 0x0bc3 ; Address of begin
0bc1 0004 | | .CONST 0x0004 ; Address of exception handler
0bc2 0001 | | .CONST 0x0001 ; Number of locals
0bc3 BODY_0bc0:
0bc3 INIT_0bc0:
0bc3 00da | | Load_Top At_Offset_2
0bc4 3c13 |< | Execute Record,Field_Read,Field_Number 0x13
0bc5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0bc6 0000 0000 | | .XXX[0x2]
0bc8 ; --------------------------------------------------------------------------------------
0bc8 ; SUBPROGRAM
0bc8 ; --------------------------------------------------------------------------------------
0bc8 0bcb | | .CONST 0x0bcb ; Address of begin
0bc9 0004 | | .CONST 0x0004 ; Address of exception handler
0bca 0001 | | .CONST 0x0001 ; Number of locals
0bcb BODY_0bc8:
0bcb INIT_0bc8:
0bcb 00da | | Load_Top At_Offset_2
0bcc 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
0bcd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0bce 0000 0000 | | .XXX[0x2]
0bd0 ; --------------------------------------------------------------------------------------
0bd0 ; SUBPROGRAM
0bd0 ; --------------------------------------------------------------------------------------
0bd0 0bd3 | | .CONST 0x0bd3 ; Address of begin
0bd1 0004 | | .CONST 0x0004 ; Address of exception handler
0bd2 0001 | | .CONST 0x0001 ; Number of locals
0bd3 BODY_0bd0:
0bd3 INIT_0bd0:
0bd3 00da | | Load_Top At_Offset_2
0bd4 3407 |4 | Execute Record,Field_Reference,Field_Number 0x7
0bd5 0320 | | Declare_Variable Record,Duplicate
0bd6 00cd | | Action Spare6_Action
0bd7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0bd8 ; --------------------------------------------------------------------------------------
0bd8 ; SUBPROGRAM
0bd8 ; --------------------------------------------------------------------------------------
0bd8 0bdb | | .CONST 0x0bdb ; Address of begin
0bd9 0004 | | .CONST 0x0004 ; Address of exception handler
0bda 0001 | | .CONST 0x0001 ; Number of locals
0bdb BODY_0bd8:
0bdb INIT_0bd8:
0bdb 00da | | Load_Top At_Offset_2
0bdc 3407 |4 | Execute Record,Field_Reference,Field_Number 0x7
0bdd 800e | | Call 0x0,0xe
0bde 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0bdf 0000 | | .XXX[0x1]
0be0 ; --------------------------------------------------------------------------------------
0be0 ; SUBPROGRAM
0be0 ; --------------------------------------------------------------------------------------
0be0 0be4 | | .CONST 0x0be4 ; Address of begin
0be1 0004 | | .CONST 0x0004 ; Address of exception handler
0be2 0002 | | .CONST 0x0002 ; Number of locals
0be3 INIT_0be0:
0be3 00e5 | | Load_Encached Long_Integer_Cache
0be4 BODY_0be0:
0be4 00db | | Load_Top At_Offset_3
0be5 3407 |4 | Execute Record,Field_Reference,Field_Number 0x7
0be6 800f | | Call 0x0,0xf
0be7 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0be8 00d8 | | Load_Top At_Offset_0
0be9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0bea 0000 0000 | | .BLANK 0000[0x6]
0bf0 ; --------------------------------------------------------------------------------------
0bf0 ; SUBPROGRAM
0bf0 ; --------------------------------------------------------------------------------------
0bf0 0bf3 | | .CONST 0x0bf3 ; Address of begin
0bf1 0004 | | .CONST 0x0004 ; Address of exception handler
0bf2 0001 | | .CONST 0x0001 ; Number of locals
0bf3 BODY_0bf0:
0bf3 INIT_0bf0:
0bf3 00da | | Load_Top At_Offset_2
0bf4 3c0e |< | Execute Record,Field_Read,Field_Number 0xe
0bf5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0bf6 0000 0000 | | .XXX[0x2]
0bf8 ; --------------------------------------------------------------------------------------
0bf8 ; SUBPROGRAM
0bf8 ; --------------------------------------------------------------------------------------
0bf8 0bfb | | .CONST 0x0bfb ; Address of begin
0bf9 0004 | | .CONST 0x0004 ; Address of exception handler
0bfa 0001 | | .CONST 0x0001 ; Number of locals
0bfb BODY_0bf8:
0bfb INIT_0bf8:
0bfb 00da | | Load_Top At_Offset_2
0bfc 3c0f |< | Execute Record,Field_Read,Field_Number 0xf
0bfd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0bfe 0000 0000 | | .XXX[0x2]
0c00 ; --------------------------------------------------------------------------------------
0c00 ; SUBPROGRAM
0c00 ; --------------------------------------------------------------------------------------
0c00 0c03 | | .CONST 0x0c03 ; Address of begin
0c01 0004 | | .CONST 0x0004 ; Address of exception handler
0c02 0001 | | .CONST 0x0001 ; Number of locals
0c03 BODY_0c00:
0c03 INIT_0c00:
0c03 00da | | Load_Top At_Offset_2
0c04 3c11 |< | Execute Record,Field_Read,Field_Number 0x11
0c05 00d8 | | Load_Top At_Offset_0
0c06 0120 | | Execute Any,Is_Value
0c07 7002 |p | Jump_Nonzero 0xc0a
0c08 00d8 | | Load_Top At_Offset_0
0c09 011e | | Execute Any,Convert
0c0a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0c0b 0000 0000 | | .BLANK 0000[0x5]
0c10 ; --------------------------------------------------------------------------------------
0c10 ; SUBPROGRAM
0c10 ; --------------------------------------------------------------------------------------
0c10 0c13 | | .CONST 0x0c13 ; Address of begin
0c11 0004 | | .CONST 0x0004 ; Address of exception handler
0c12 0001 | | .CONST 0x0001 ; Number of locals
0c13 BODY_0c10:
0c13 INIT_0c10:
0c13 00da | | Load_Top At_Offset_2
0c14 3412 |4 | Execute Record,Field_Reference,Field_Number 0x12
0c15 0320 | | Declare_Variable Record,Duplicate
0c16 00cd | | Action Spare6_Action
0c17 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0c18 ; --------------------------------------------------------------------------------------
0c18 ; SUBPROGRAM
0c18 ; --------------------------------------------------------------------------------------
0c18 0c1b | | .CONST 0x0c1b ; Address of begin
0c19 0004 | | .CONST 0x0004 ; Address of exception handler
0c1a 0001 | | .CONST 0x0001 ; Number of locals
0c1b BODY_0c18:
0c1b INIT_0c18:
0c1b 00da | | Load_Top At_Offset_2
0c1c 8237 | 7 | Call 0x1,0x37
0c1d 0f19 | | Execute_Immediate Equal,0x19
0c1e 6803 |h | Jump_Zero 0xc22
0c1f 00da | | Load_Top At_Offset_2
0c20 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
0c21 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0c22 00da | | Load_Top At_Offset_2
0c23 3c10 |< | Execute Record,Field_Read,Field_Number 0x10
0c24 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0c25 0000 0000 | | .XXX[0x3]
0c27 0000 | |
0c28 ; --------------------------------------------------------------------------------------
0c28 ; SUBPROGRAM
0c28 ; --------------------------------------------------------------------------------------
0c28 0c2b | + | .CONST 0x0c2b ; Address of begin
0c29 0004 | | .CONST 0x0004 ; Address of exception handler
0c2a 0001 | | .CONST 0x0001 ; Number of locals
0c2b BODY_0c28:
0c2b INIT_0c28:
0c2b 00da | | Load_Top At_Offset_2
0c2c 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0c2d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0c2e 0000 0000 | | .XXX[0x2]
0c30 ; --------------------------------------------------------------------------------------
0c30 ; SUBPROGRAM
0c30 ; --------------------------------------------------------------------------------------
0c30 0c33 | 3 | .CONST 0x0c33 ; Address of begin
0c31 0004 | | .CONST 0x0004 ; Address of exception handler
0c32 0001 | | .CONST 0x0001 ; Number of locals
0c33 BODY_0c30:
0c33 INIT_0c30:
0c33 00da | | Load_Top At_Offset_2
0c34 3c14 |< | Execute Record,Field_Read,Field_Number 0x14
0c35 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0c36 0000 0000 | | .XXX[0x2]
0c38 ; --------------------------------------------------------------------------------------
0c38 ; SUBPROGRAM
0c38 ; --------------------------------------------------------------------------------------
0c38 0c3b | ; | .CONST 0x0c3b ; Address of begin
0c39 0004 | | .CONST 0x0004 ; Address of exception handler
0c3a 0001 | | .CONST 0x0001 ; Number of locals
0c3b BODY_0c38:
0c3b INIT_0c38:
0c3b 00da | | Load_Top At_Offset_2
0c3c 3c15 |< | Execute Record,Field_Read,Field_Number 0x15
0c3d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0c3e 0000 0000 | | .XXX[0x2]
0c40 ; --------------------------------------------------------------------------------------
0c40 ; SUBPROGRAM
0c40 ; --------------------------------------------------------------------------------------
0c40 0c43 | C | .CONST 0x0c43 ; Address of begin
0c41 0004 | | .CONST 0x0004 ; Address of exception handler
0c42 0001 | | .CONST 0x0001 ; Number of locals
0c43 BODY_0c40:
0c43 INIT_0c40:
0c43 00da | | Load_Top At_Offset_2
0c44 3c0a |< | Execute Record,Field_Read,Field_Number 0xa
0c45 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0c46 0000 0000 | | .XXX[0x2]
0c48 ; --------------------------------------------------------------------------------------
0c48 ; SUBPROGRAM
0c48 ; --------------------------------------------------------------------------------------
0c48 0c4b | K | .CONST 0x0c4b ; Address of begin
0c49 0004 | | .CONST 0x0004 ; Address of exception handler
0c4a 0001 | | .CONST 0x0001 ; Number of locals
0c4b BODY_0c48:
0c4b INIT_0c48:
0c4b 00da | | Load_Top At_Offset_2
0c4c 3c0b |< | Execute Record,Field_Read,Field_Number 0xb
0c4d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0c4e 0000 0000 | | .XXX[0x2]
0c50 ; --------------------------------------------------------------------------------------
0c50 ; SUBPROGRAM
0c50 ; --------------------------------------------------------------------------------------
0c50 0c53 | S | .CONST 0x0c53 ; Address of begin
0c51 0004 | | .CONST 0x0004 ; Address of exception handler
0c52 0001 | | .CONST 0x0001 ; Number of locals
0c53 BODY_0c50:
0c53 INIT_0c50:
0c53 00da | | Load_Top At_Offset_2
0c54 3c0c |< | Execute Record,Field_Read,Field_Number 0xc
0c55 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0c56 0000 0000 | | .XXX[0x2]
0c58 ; --------------------------------------------------------------------------------------
0c58 ; SUBPROGRAM
0c58 ; --------------------------------------------------------------------------------------
0c58 0c5b | [ | .CONST 0x0c5b ; Address of begin
0c59 0004 | | .CONST 0x0004 ; Address of exception handler
0c5a 0001 | | .CONST 0x0001 ; Number of locals
0c5b BODY_0c58:
0c5b INIT_0c58:
0c5b 00da | | Load_Top At_Offset_2
0c5c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0c5d 00d8 | | Load_Top At_Offset_0
0c5e 4814 |H | Short_Literal 0x14
0c5f 4817 |H | Short_Literal 0x17
0c60 0262 | b | Execute Discrete,In_Range
0c61 7004 |p | Jump_Nonzero 0xc66
0c62 0f1b | | Execute_Immediate Equal,0x1b
0c63 7003 |p | Jump_Nonzero 0xc67
0c64 4801 |H | Short_Literal 0x1
0c65 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0c66 00d1 | | Pop_Control Pop_Count_1
0c67 4800 |H | Short_Literal 0x0
0c68 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0c69 0000 0000 | | .BLANK 0000[0x7]
0c70 ; --------------------------------------------------------------------------------------
0c70 ; SUBPROGRAM
0c70 ; --------------------------------------------------------------------------------------
0c70 0c73 | s | .CONST 0x0c73 ; Address of begin
0c71 0004 | | .CONST 0x0004 ; Address of exception handler
0c72 0001 | | .CONST 0x0001 ; Number of locals
0c73 BODY_0c70:
0c73 INIT_0c70:
0c73 00da | | Load_Top At_Offset_2
0c74 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
0c75 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0c76 0000 0000 | | .XXX[0x2]
0c78 ; --------------------------------------------------------------------------------------
0c78 ; SUBPROGRAM
0c78 ; --------------------------------------------------------------------------------------
0c78 0c7b | { | .CONST 0x0c7b ; Address of begin
0c79 0004 | | .CONST 0x0004 ; Address of exception handler
0c7a 0001 | | .CONST 0x0001 ; Number of locals
0c7b BODY_0c78:
0c7b INIT_0c78:
0c7b 00da | | Load_Top At_Offset_2
0c7c 3c0b |< | Execute Record,Field_Read,Field_Number 0xb
0c7d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0c7e 0000 0000 | | .XXX[0x2]
0c80 ; --------------------------------------------------------------------------------------
0c80 ; SUBPROGRAM
0c80 ; --------------------------------------------------------------------------------------
0c80 0c83 | | .CONST 0x0c83 ; Address of begin
0c81 0004 | | .CONST 0x0004 ; Address of exception handler
0c82 0001 | | .CONST 0x0001 ; Number of locals
0c83 BODY_0c80:
0c83 INIT_0c80:
0c83 00da | | Load_Top At_Offset_2
0c84 3c14 |< | Execute Record,Field_Read,Field_Number 0x14
0c85 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0c86 0000 0000 | | .XXX[0x2]
0c88 ; --------------------------------------------------------------------------------------
0c88 ; SUBPROGRAM
0c88 ; --------------------------------------------------------------------------------------
0c88 0c8d | | .CONST 0x0c8d ; Address of begin
0c89 0004 | | .CONST 0x0004 ; Address of exception handler
0c8a 0002 | | .CONST 0x0002 ; Number of locals
0c8b INIT_0c88:
0c8b 029f 136b | k| Declare_Subprogram INIT_1368,For_Call
0c8d BODY_0c88:
0c8d 00db | | Load_Top At_Offset_3
0c8e 800d | | Call 0x0,0xd
0c8f 4606 |F | Jump_Case 0x7
0c90 780e |x | Jump 0xc9f ; case 0x0
0c91 780d |x | Jump 0xc9f ; case 0x1
0c92 7818 |x | Jump 0xcab ; case 0x2
0c93 780b |x | Jump 0xc9f ; case 0x3
0c94 780a |x | Jump 0xc9f ; case 0x4
0c95 7809 |x | Jump 0xc9f ; case 0x5
0c96 7800 |x | Jump 0xc97 ; case 0x6
0c97 00db | | Load_Top At_Offset_3
0c98 800d | | Call 0x0,0xd
0c99 8261 | a | Call 0x1,0x61
0c9a e5ff | | Load 0x2,-0x1
0c9b 8010 | | Call 0x0,0x10
0c9c 0217 | | Execute Heap_Access,All_Reference
0c9d 01ca | | Execute Vector,Prepend
0c9e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0c9f 00db | | Load_Top At_Offset_3
0ca0 800d | | Call 0x0,0xd
0ca1 8261 | a | Call 0x1,0x61
0ca2 4820 |H | Short_Literal 0x20
0ca3 4800 |H | Short_Literal 0x0
0ca4 4810 |H | Short_Literal 0x10
0ca5 e5ff | | Load 0x2,-0x1
0ca6 800f | | Call 0x0,0xf
0ca7 e011 | | Load 0x0,0x11
0ca8 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0ca9 01ca | | Execute Vector,Prepend
0caa 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0cab 8402 | | Call 0x2,0x2
0cac 0831 | 1 | Execute_Immediate Raise,0x31
0cad 0000 0000 | | .XXX[0x3]
0caf 0000 | |
0cb0 ; --------------------------------------------------------------------------------------
0cb0 ; SUBPROGRAM
0cb0 ; --------------------------------------------------------------------------------------
0cb0 0cb3 | | .CONST 0x0cb3 ; Address of begin
0cb1 0004 | | .CONST 0x0004 ; Address of exception handler
0cb2 0001 | | .CONST 0x0001 ; Number of locals
0cb3 BODY_0cb0:
0cb3 INIT_0cb0:
0cb3 4800 |H | Short_Literal 0x0
0cb4 00db | | Load_Top At_Offset_3
0cb5 8263 | c | Call 0x1,0x63
0cb6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0cb7 0000 | | .XXX[0x1]
0cb8 ; --------------------------------------------------------------------------------------
0cb8 ; SUBPROGRAM
0cb8 ; --------------------------------------------------------------------------------------
0cb8 0cbb | | .CONST 0x0cbb ; Address of begin
0cb9 0004 | | .CONST 0x0004 ; Address of exception handler
0cba 0001 | | .CONST 0x0001 ; Number of locals
0cbb BODY_0cb8:
0cbb INIT_0cb8:
0cbb 4800 |H | Short_Literal 0x0
0cbc 00db | | Load_Top At_Offset_3
0cbd 8262 | b | Call 0x1,0x62
0cbe 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0cbf 0000 | | .XXX[0x1]
0cc0 ; --------------------------------------------------------------------------------------
0cc0 ; SUBPROGRAM
0cc0 ; --------------------------------------------------------------------------------------
0cc0 0ce1 | | .CONST 0x0ce1 ; Address of begin
0cc1 0004 | | .CONST 0x0004 ; Address of exception handler
0cc2 0002 | | .CONST 0x0002 ; Number of locals
0cc3 INIT_0cc0:
0cc3 4801 |H | Short_Literal 0x1
0cc4 00db | | Load_Top At_Offset_3
0cc5 01db | | Execute Vector,Length
0cc6 0aff | | Execute_Immediate Plus,-0x1
0cc7 00d8 | | Load_Top At_Offset_0
0cc8 00e2 | | Load_Encached Integer_Cache
0cc9 0260 | ` | Execute Discrete,In_Type
0cca 7001 |p | Jump_Nonzero 0xccc
0ccb 0801 | | Execute_Immediate Raise,0x1
0ccc 00e9 | | Load_Encached String_Cache
0ccd 035b | [ | Declare_Type Array,Constrained
0cce 0337 | 7 | Declare_Variable Array
0ccf 4801 |H | Short_Literal 0x1
0cd0 e5ff | | Load 0x2,-0x1
0cd1 01db | | Execute Vector,Length
0cd2 0aff | | Execute_Immediate Plus,-0x1
0cd3 00e9 | | Load_Encached String_Cache
0cd4 0334 | 4 | Declare_Variable Array,With_Constraint
0cd5 00d8 | | Load_Top At_Offset_0
0cd6 01dc | | Execute Vector,Last
0cd7 4801 |H | Short_Literal 0x1
0cd8 0263 | c | Execute Discrete,Above_Bound
0cd9 7005 |p | Jump_Nonzero 0xcdf
0cda 4820 |H | Short_Literal 0x20
0cdb 00d9 | | Load_Top At_Offset_1
0cdc e403 | | Load 0x2,0x3
0cdd 01d6 | | Execute Vector,Field_Write
0cde 3ffb |? | Loop_Increasing 0xcda
0cdf 00d9 | | Load_Top At_Offset_1
0ce0 01d4 | | Execute Vector,Structure_Write
0ce1 BODY_0cc0:
0ce1 00db | | Load_Top At_Offset_3
0ce2 01dd | | Execute Vector,First
0ce3 0a01 | | Execute_Immediate Plus,0x1
0ce4 00d8 | | Load_Top At_Offset_0
0ce5 00e2 | | Load_Encached Integer_Cache
0ce6 0260 | ` | Execute Discrete,In_Type
0ce7 7001 |p | Jump_Nonzero 0xce9
0ce8 0801 | | Execute_Immediate Raise,0x1
0ce9 e5ff | | Load 0x2,-0x1
0cea 01dc | | Execute Vector,Last
0ceb e5ff | | Load 0x2,-0x1
0cec 01cf | | Execute Vector,Slice_Read
0ced 4801 |H | Short_Literal 0x1
0cee e5ff | | Load 0x2,-0x1
0cef 01db | | Execute Vector,Length
0cf0 0aff | | Execute_Immediate Plus,-0x1
0cf1 00d8 | | Load_Top At_Offset_0
0cf2 00e2 | | Load_Encached Integer_Cache
0cf3 0260 | ` | Execute Discrete,In_Type
0cf4 7001 |p | Jump_Nonzero 0xcf6
0cf5 0801 | | Execute_Immediate Raise,0x1
0cf6 00db | | Load_Top At_Offset_3
0cf7 01ce | | Execute Vector,Slice_Write
0cf8 00db | | Load_Top At_Offset_3
0cf9 01dd | | Execute Vector,First
0cfa e5ff | | Load 0x2,-0x1
0cfb 01d7 | | Execute Vector,Field_Read
0cfc 00d8 | | Load_Top At_Offset_0
0cfd 4841 |HA | Short_Literal 0x41
0cfe 4858 |HX | Short_Literal 0x58
0cff 0262 | b | Execute Discrete,In_Range
0d00 6820 |h | Jump_Zero 0xd21
0d01 0abf | | Execute_Immediate Plus,-0x41
0d02 4617 |F | Jump_Case 0x18
0d03 782c |x, | Jump 0xd30 ; case 0x0
0d04 7837 |x7 | Jump 0xd3c ; case 0x1
0d05 7836 |x6 | Jump 0xd3c ; case 0x2
0d06 7835 |x5 | Jump 0xd3c ; case 0x3
0d07 782e |x. | Jump 0xd36 ; case 0x4
0d08 7833 |x3 | Jump 0xd3c ; case 0x5
0d09 7832 |x2 | Jump 0xd3c ; case 0x6
0d0a 7831 |x1 | Jump 0xd3c ; case 0x7
0d0b 7817 |x | Jump 0xd23 ; case 0x8
0d0c 782f |x/ | Jump 0xd3c ; case 0x9
0d0d 782e |x. | Jump 0xd3c ; case 0xa
0d0e 782d |x- | Jump 0xd3c ; case 0xb
0d0f 782c |x, | Jump 0xd3c ; case 0xc
0d10 782b |x+ | Jump 0xd3c ; case 0xd
0d11 782a |x* | Jump 0xd3c ; case 0xe
0d12 7829 |x) | Jump 0xd3c ; case 0xf
0d13 7828 |x( | Jump 0xd3c ; case 0x10
0d14 7827 |x' | Jump 0xd3c ; case 0x11
0d15 7826 |x& | Jump 0xd3c ; case 0x12
0d16 7812 |x | Jump 0xd29 ; case 0x13
0d17 7824 |x$ | Jump 0xd3c ; case 0x14
0d18 7823 |x# | Jump 0xd3c ; case 0x15
0d19 7822 |x" | Jump 0xd3c ; case 0x16
0d1a 7800 |x | Jump 0xd1b ; case 0x17
0d1b 00d8 | | Load_Top At_Offset_0
0d1c 00e5 | | Load_Encached Long_Integer_Cache
0d1d 00e0 | | Load_Encached Standard_Cache
0d1e 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0d1f 8012 | | Call 0x0,0x12
0d20 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0d21 00d1 | | Pop_Control Pop_Count_1
0d22 7819 |x | Jump 0xd3c
0d23 00d8 | | Load_Top At_Offset_0
0d24 00e2 | | Load_Encached Integer_Cache
0d25 00e0 | | Load_Encached Standard_Cache
0d26 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0d27 8013 | | Call 0x0,0x13
0d28 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0d29 00d8 | | Load_Top At_Offset_0
0d2a 8014 | | Call 0x0,0x14
0d2b 8015 | | Call 0x0,0x15
0d2c 8016 | | Call 0x0,0x16
0d2d e003 | | Load 0x0,0x3
0d2e 017b | { | Execute Record,Convert
0d2f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0d30 00d8 | | Load_Top At_Offset_0
0d31 00e5 | | Load_Encached Long_Integer_Cache
0d32 00e0 | | Load_Encached Standard_Cache
0d33 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0d34 8017 | | Call 0x0,0x17
0d35 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0d36 00d8 | | Load_Top At_Offset_0
0d37 00e2 | | Load_Encached Integer_Cache
0d38 00e0 | | Load_Encached Standard_Cache
0d39 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0d3a 8018 | | Call 0x0,0x18
0d3b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0d3c 0831 | 1 | Execute_Immediate Raise,0x31
0d3d 0000 0000 | | .XXX[0x3]
0d3f 0000 | |
0d40 ; --------------------------------------------------------------------------------------
0d40 ; SUBPROGRAM
0d40 ; --------------------------------------------------------------------------------------
0d40 0d56 | V | .CONST 0x0d56 ; Address of begin
0d41 0004 | | .CONST 0x0004 ; Address of exception handler
0d42 0006 | | .CONST 0x0006 ; Number of locals
0d43 INIT_0d40:
0d43 4878 |Hx | Short_Literal 0x78
0d44 e019 | | Load 0x0,0x19
0d45 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0d46 1c08 | | Execute_Immediate Run_Utility,0x8
0d47 00d8 | | Load_Top At_Offset_0
0d48 1c00 | | Execute_Immediate Run_Utility,0x0
0d49 00db | | Load_Top At_Offset_3
0d4a 01dc | | Execute Vector,Last
0d4b 00e3 | | Load_Encached Natural_Cache
0d4c 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
0d4d 00e8 | | Load_Encached Character_Cache
0d4e e5ff | | Load 0x2,-0x1
0d4f 01dd | | Execute Vector,First
0d50 00e3 | | Load_Encached Natural_Cache
0d51 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
0d52 e25c | \ | Load 0x1,0x5c
0d53 02ff | | Declare_Variable Variant_Record
0d54 00d8 | | Load_Top At_Offset_0
0d55 1c00 | | Execute_Immediate Run_Utility,0x0
0d56 BODY_0d40:
0d56 820e | | Call 0x1,0xe
0d57 00d9 | | Load_Top At_Offset_1
0d58 016d | m | Execute Variant_Record,Structure_Write
0d59 00cf | | Action Mark_Auxiliary
0d5a 7827 |x' | Jump 0xd82
0d5b e402 | | Load 0x2,0x2
0d5c 00ea | | Load_Encached Null_String_Cache
0d5d e019 | | Load 0x0,0x19
0d5e 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0d5f 00d1 | | Pop_Control Pop_Count_1
0d60 00cf | | Action Mark_Auxiliary
0d61 00db | | Load_Top At_Offset_3
0d62 e403 | | Load 0x2,0x3
0d63 027d | } | Execute Discrete,Greater
0d64 7011 |p | Jump_Nonzero 0xd76
0d65 00db | | Load_Top At_Offset_3
0d66 e5ff | | Load 0x2,-0x1
0d67 01d7 | | Execute Vector,Field_Read
0d68 a404 | | Store_Unchecked 0x2,0x4
0d69 00db | | Load_Top At_Offset_3
0d6a 0a01 | | Execute_Immediate Plus,0x1
0d6b c405 | | Store 0x2,0x5
0d6c e404 | | Load 0x2,0x4
0d6d 0f0d | | Execute_Immediate Equal,0xd
0d6e 7007 |p | Jump_Nonzero 0xd76
0d6f e402 | | Load 0x2,0x2
0d70 e404 | | Load 0x2,0x4
0d71 e019 | | Load 0x0,0x19
0d72 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0d73 00d1 | | Pop_Control Pop_Count_1
0d74 00c9 | | Action Pop_Auxiliary_Loop
0d75 7feb | | Jump 0xd61
0d76 00ce | | Action Pop_Auxiliary
0d77 00d9 | | Load_Top At_Offset_1
0d78 e402 | | Load 0x2,0x2
0d79 8260 | ` | Call 0x1,0x60
0d7a e25b | [ | Load 0x1,0x5b
0d7b 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0d7c 00d1 | | Pop_Control Pop_Count_1
0d7d e402 | | Load 0x2,0x2
0d7e e019 | | Load 0x0,0x19
0d7f 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0d80 00d1 | | Pop_Control Pop_Count_1
0d81 00c9 | | Action Pop_Auxiliary_Loop
0d82 00da | | Load_Top At_Offset_2
0d83 e403 | | Load 0x2,0x3
0d84 027a | z | Execute Discrete,Less_Equal
0d85 77d5 |w | Jump_Nonzero 0xd5b
0d86 00ce | | Action Pop_Auxiliary
0d87 00d8 | | Load_Top At_Offset_0
0d88 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0d89 0000 0000 | | .BLANK 0000[0x7]
0d90 ; --------------------------------------------------------------------------------------
0d90 ; SUBPROGRAM
0d90 ; --------------------------------------------------------------------------------------
0d90 0d93 | | .CONST 0x0d93 ; Address of begin
0d91 0004 | | .CONST 0x0004 ; Address of exception handler
0d92 0001 | | .CONST 0x0001 ; Number of locals
0d93 BODY_0d90:
0d93 INIT_0d90:
0d93 4801 |H | Short_Literal 0x1
0d94 00db | | Load_Top At_Offset_3
0d95 8263 | c | Call 0x1,0x63
0d96 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0d97 0000 | | .XXX[0x1]
0d98 ; --------------------------------------------------------------------------------------
0d98 ; SUBPROGRAM
0d98 ; --------------------------------------------------------------------------------------
0d98 0d9b | | .CONST 0x0d9b ; Address of begin
0d99 0004 | | .CONST 0x0004 ; Address of exception handler
0d9a 0001 | | .CONST 0x0001 ; Number of locals
0d9b BODY_0d98:
0d9b INIT_0d98:
0d9b 4801 |H | Short_Literal 0x1
0d9c 00db | | Load_Top At_Offset_3
0d9d 8262 | b | Call 0x1,0x62
0d9e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0d9f 0000 | | .XXX[0x1]
0da0 ; --------------------------------------------------------------------------------------
0da0 ; SUBPROGRAM
0da0 ; --------------------------------------------------------------------------------------
0da0 0da3 | | .CONST 0x0da3 ; Address of begin
0da1 0004 | | .CONST 0x0004 ; Address of exception handler
0da2 0001 | | .CONST 0x0001 ; Number of locals
0da3 BODY_0da0:
0da3 INIT_0da0:
0da3 00d1 | | Pop_Control Pop_Count_1
0da4 00da | | Load_Top At_Offset_2
0da5 01dc | | Execute Vector,Last
0da6 00db | | Load_Top At_Offset_3
0da7 01dd | | Execute Vector,First
0da8 0263 | c | Execute Discrete,Above_Bound
0da9 7006 |p | Jump_Nonzero 0xdb0
0daa 00d8 | | Load_Top At_Offset_0
0dab e5ff | | Load 0x2,-0x1
0dac 01d5 | | Execute Vector,Field_Reference
0dad 1c00 | | Execute_Immediate Run_Utility,0x0
0dae 0a01 | | Execute_Immediate Plus,0x1
0daf 7ff8 | | Jump 0xda8
0db0 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0db1 0000 0000 | | .BLANK 0000[0x7]
0db8 ; --------------------------------------------------------------------------------------
0db8 ; SUBPROGRAM
0db8 ; --------------------------------------------------------------------------------------
0db8 0dbb | | .CONST 0x0dbb ; Address of begin
0db9 0004 | | .CONST 0x0004 ; Address of exception handler
0dba 0001 | | .CONST 0x0001 ; Number of locals
0dbb BODY_0db8:
0dbb INIT_0db8:
0dbb 00da | | Load_Top At_Offset_2
0dbc 01dd | | Execute Vector,First
0dbd 00db | | Load_Top At_Offset_3
0dbe 01d7 | | Execute Vector,Field_Read
0dbf 00d8 | | Load_Top At_Offset_0
0dc0 0d41 | A | Execute_Immediate Less,0x41
0dc1 7042 |pB | Jump_Nonzero 0xe04
0dc2 0abf | | Execute_Immediate Plus,-0x41
0dc3 463e |F> | Jump_Case 0x3f
0dc4 78e4 |x | Jump 0xea9 ; case 0x0
0dc5 78fa |x | Jump 0xec0 ; case 0x1
0dc6 787e |x~ | Jump 0xe45 ; case 0x2
0dc7 78f8 |x | Jump 0xec0 ; case 0x3
0dc8 78f7 |x | Jump 0xec0 ; case 0x4
0dc9 78ae |x | Jump 0xe78 ; case 0x5
0dca 789d |x | Jump 0xe68 ; case 0x6
0dcb 789e |x | Jump 0xe6a ; case 0x7
0dcc 78f3 |x | Jump 0xec0 ; case 0x8
0dcd 78f2 |x | Jump 0xec0 ; case 0x9
0dce 78f1 |x | Jump 0xec0 ; case 0xa
0dcf 7836 |x6 | Jump 0xe06 ; case 0xb
0dd0 78ef |x | Jump 0xec0 ; case 0xc
0dd1 78ec |x | Jump 0xebe ; case 0xd
0dd2 78ed |x | Jump 0xec0 ; case 0xe
0dd3 787f |x | Jump 0xe53 ; case 0xf
0dd4 78eb |x | Jump 0xec0 ; case 0x10
0dd5 78c5 |x | Jump 0xe9b ; case 0x11
0dd6 784b |xK | Jump 0xe22 ; case 0x12
0dd7 785f |x_ | Jump 0xe37 ; case 0x13
0dd8 78e7 |x | Jump 0xec0 ; case 0x14
0dd9 78ac |x | Jump 0xe86 ; case 0x15
0dda 78e5 |x | Jump 0xec0 ; case 0x16
0ddb 78e4 |x | Jump 0xec0 ; case 0x17
0ddc 78e3 |x | Jump 0xec0 ; case 0x18
0ddd 78e2 |x | Jump 0xec0 ; case 0x19
0dde 78e1 |x | Jump 0xec0 ; case 0x1a
0ddf 78e0 |x | Jump 0xec0 ; case 0x1b
0de0 78df |x | Jump 0xec0 ; case 0x1c
0de1 78de |x | Jump 0xec0 ; case 0x1d
0de2 78dd |x | Jump 0xec0 ; case 0x1e
0de3 78dc |x | Jump 0xec0 ; case 0x1f
0de4 78db |x | Jump 0xec0 ; case 0x20
0de5 78da |x | Jump 0xec0 ; case 0x21
0de6 78d9 |x | Jump 0xec0 ; case 0x22
0de7 78d8 |x | Jump 0xec0 ; case 0x23
0de8 78d7 |x | Jump 0xec0 ; case 0x24
0de9 78d6 |x | Jump 0xec0 ; case 0x25
0dea 78d5 |x | Jump 0xec0 ; case 0x26
0deb 78d4 |x | Jump 0xec0 ; case 0x27
0dec 78d3 |x | Jump 0xec0 ; case 0x28
0ded 78d2 |x | Jump 0xec0 ; case 0x29
0dee 78d1 |x | Jump 0xec0 ; case 0x2a
0def 78d0 |x | Jump 0xec0 ; case 0x2b
0df0 78cf |x | Jump 0xec0 ; case 0x2c
0df1 78ce |x | Jump 0xec0 ; case 0x2d
0df2 78cd |x | Jump 0xec0 ; case 0x2e
0df3 78cc |x | Jump 0xec0 ; case 0x2f
0df4 78cb |x | Jump 0xec0 ; case 0x30
0df5 78ca |x | Jump 0xec0 ; case 0x31
0df6 78c9 |x | Jump 0xec0 ; case 0x32
0df7 78c8 |x | Jump 0xec0 ; case 0x33
0df8 78c7 |x | Jump 0xec0 ; case 0x34
0df9 78c6 |x | Jump 0xec0 ; case 0x35
0dfa 78c5 |x | Jump 0xec0 ; case 0x36
0dfb 78c4 |x | Jump 0xec0 ; case 0x37
0dfc 78c3 |x | Jump 0xec0 ; case 0x38
0dfd 78c2 |x | Jump 0xec0 ; case 0x39
0dfe 78c1 |x | Jump 0xec0 ; case 0x3a
0dff 78c0 |x | Jump 0xec0 ; case 0x3b
0e00 78bf |x | Jump 0xec0 ; case 0x3c
0e01 78be |x | Jump 0xec0 ; case 0x3d
0e02 78bd |x | Jump 0xec0 ; case 0x3e
0e03 78bc |x | .XXX[0x1]
0e04 00d1 | | Pop_Control Pop_Count_1
0e05 78ba |x | Jump 0xec0
0e06 00da | | Load_Top At_Offset_2
0e07 0092 13ce | | Action Push_String_Extended,0x13ce ; "LOAD"
0e09 01df | | Execute Vector,Equal
0e0a 6802 |h | Jump_Zero 0xe0d
0e0b 4819 |H | Short_Literal 0x19
0e0c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0e0d 00da | | Load_Top At_Offset_2
0e0e 0092 13d1 | | Action Push_String_Extended,0x13d1 ; "LTI"
0e10 01df | | Execute Vector,Equal
0e11 6802 |h | Jump_Zero 0xe14
0e12 4813 |H | Short_Literal 0x13
0e13 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0e14 00da | | Load_Top At_Offset_2
0e15 0092 13d2 | | Action Push_String_Extended,0x13d2 ; "L"
0e17 01df | | Execute Vector,Equal
0e18 6802 |h | Jump_Zero 0xe1b
0e19 4811 |H | Short_Literal 0x11
0e1a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0e1b 00da | | Load_Top At_Offset_2
0e1c 0092 13d3 | | Action Push_String_Extended,0x13d3 ; "LFC"
0e1e 01df | | Execute Vector,Equal
0e1f 68a0 |h | Jump_Zero 0xec0
0e20 4812 |H | Short_Literal 0x12
0e21 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0e22 00da | | Load_Top At_Offset_2
0e23 0092 13d4 | | Action Push_String_Extended,0x13d4 ; "ST"
0e25 01df | | Execute Vector,Equal
0e26 6802 |h | Jump_Zero 0xe29
0e27 4801 |H | Short_Literal 0x1
0e28 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0e29 00da | | Load_Top At_Offset_2
0e2a 0092 13d5 | | Action Push_String_Extended,0x13d5 ; "SRV"
0e2c 01df | | Execute Vector,Equal
0e2d 6802 |h | Jump_Zero 0xe30
0e2e 4815 |H | Short_Literal 0x15
0e2f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0e30 00da | | Load_Top At_Offset_2
0e31 0092 13d6 | | Action Push_String_Extended,0x13d6 ; "SPDIS"
0e33 01df | | Execute Vector,Equal
0e34 688b |h | Jump_Zero 0xec0
0e35 481a |H | Short_Literal 0x1a
0e36 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0e37 00da | | Load_Top At_Offset_2
0e38 0092 13d7 | | Action Push_String_Extended,0x13d7 ; "TA"
0e3a 01df | | Execute Vector,Equal
0e3b 6802 |h | Jump_Zero 0xe3e
0e3c 4802 |H | Short_Literal 0x2
0e3d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0e3e 00da | | Load_Top At_Offset_2
0e3f 0092 13d8 | | Action Push_String_Extended,0x13d8 ; "TF"
0e41 01df | | Execute Vector,Equal
0e42 687d |h} | Jump_Zero 0xec0
0e43 480b |H | Short_Literal 0xb
0e44 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0e45 00da | | Load_Top At_Offset_2
0e46 0092 13d9 | | Action Push_String_Extended,0x13d9 ; "CTD"
0e48 01df | | Execute Vector,Equal
0e49 6802 |h | Jump_Zero 0xe4c
0e4a 4807 |H | Short_Literal 0x7
0e4b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0e4c 00da | | Load_Top At_Offset_2
0e4d 0092 13da | | Action Push_String_Extended,0x13da ; "CC"
0e4f 01df | | Execute Vector,Equal
0e50 686f |ho | Jump_Zero 0xec0
0e51 4816 |H | Short_Literal 0x16
0e52 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0e53 00da | | Load_Top At_Offset_2
0e54 0092 13db | | Action Push_String_Extended,0x13db ; "PF"
0e56 01df | | Execute Vector,Equal
0e57 6802 |h | Jump_Zero 0xe5a
0e58 480a |H | Short_Literal 0xa
0e59 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0e5a 00da | | Load_Top At_Offset_2
0e5b 0092 13dc | | Action Push_String_Extended,0x13dc ; "PO"
0e5d 01df | | Execute Vector,Equal
0e5e 6802 |h | Jump_Zero 0xe61
0e5f 4814 |H | Short_Literal 0x14
0e60 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0e61 00da | | Load_Top At_Offset_2
0e62 0092 13dd | | Action Push_String_Extended,0x13dd ; "P"
0e64 01df | | Execute Vector,Equal
0e65 685a |hZ | Jump_Zero 0xec0
0e66 4804 |H | Short_Literal 0x4
0e67 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0e68 4810 |H | Short_Literal 0x10
0e69 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0e6a 00da | | Load_Top At_Offset_2
0e6b 0092 13de | | Action Push_String_Extended,0x13de ; "HCT"
0e6d 01df | | Execute Vector,Equal
0e6e 6802 |h | Jump_Zero 0xe71
0e6f 4808 |H | Short_Literal 0x8
0e70 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0e71 00da | | Load_Top At_Offset_2
0e72 0092 13df | | Action Push_String_Extended,0x13df ; "HAA"
0e74 01df | | Execute Vector,Equal
0e75 684a |hJ | Jump_Zero 0xec0
0e76 480d |H | Short_Literal 0xd
0e77 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0e78 00da | | Load_Top At_Offset_2
0e79 0092 13e0 | | Action Push_String_Extended,0x13e0 ; "F"
0e7b 01df | | Execute Vector,Equal
0e7c 6802 |h | Jump_Zero 0xe7f
0e7d 481b |H | Short_Literal 0x1b
0e7e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0e7f 00da | | Load_Top At_Offset_2
0e80 0092 13e1 | | Action Push_String_Extended,0x13e1 ; "FA"
0e82 01df | | Execute Vector,Equal
0e83 683c |h< | Jump_Zero 0xec0
0e84 4803 |H | Short_Literal 0x3
0e85 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0e86 00da | | Load_Top At_Offset_2
0e87 0092 13e2 | | Action Push_String_Extended,0x13e2 ; "VA"
0e89 01df | | Execute Vector,Equal
0e8a 6802 |h | Jump_Zero 0xe8d
0e8b 480f |H | Short_Literal 0xf
0e8c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0e8d 00da | | Load_Top At_Offset_2
0e8e 0092 13e3 | | Action Push_String_Extended,0x13e3 ; "VRF"
0e90 01df | | Execute Vector,Equal
0e91 6802 |h | Jump_Zero 0xe94
0e92 4805 |H | Short_Literal 0x5
0e93 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0e94 00da | | Load_Top At_Offset_2
0e95 0092 13e4 | | Action Push_String_Extended,0x13e4 ; "VCI"
0e97 01df | | Execute Vector,Equal
0e98 6827 |h' | Jump_Zero 0xec0
0e99 4806 |H | Short_Literal 0x6
0e9a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0e9b 00da | | Load_Top At_Offset_2
0e9c 0092 13e5 | | Action Push_String_Extended,0x13e5 ; "RFA"
0e9e 01df | | Execute Vector,Equal
0e9f 6802 |h | Jump_Zero 0xea2
0ea0 4809 |H | Short_Literal 0x9
0ea1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0ea2 00da | | Load_Top At_Offset_2
0ea3 0092 13e6 | | Action Push_String_Extended,0x13e6 ; "RC"
0ea5 01df | | Execute Vector,Equal
0ea6 6819 |h | Jump_Zero 0xec0
0ea7 4817 |H | Short_Literal 0x17
0ea8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0ea9 00da | | Load_Top At_Offset_2
0eaa 0092 13e7 | | Action Push_String_Extended,0x13e7 ; "AA"
0eac 01df | | Execute Vector,Equal
0ead 6802 |h | Jump_Zero 0xeb0
0eae 480c |H | Short_Literal 0xc
0eaf 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0eb0 00da | | Load_Top At_Offset_2
0eb1 0092 13e8 | | Action Push_String_Extended,0x13e8 ; "AR"
0eb3 01df | | Execute Vector,Equal
0eb4 6802 |h | Jump_Zero 0xeb7
0eb5 480e |H | Short_Literal 0xe
0eb6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0eb7 00da | | Load_Top At_Offset_2
0eb8 0092 13e9 | | Action Push_String_Extended,0x13e9 ; "ABR"
0eba 01df | | Execute Vector,Equal
0ebb 6804 |h | Jump_Zero 0xec0
0ebc 4818 |H | Short_Literal 0x18
0ebd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0ebe 4800 |H | Short_Literal 0x0
0ebf 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0ec0 0831 | 1 | Execute_Immediate Raise,0x31
0ec1 0000 0000 | | .BLANK 0000[0x7]
0ec8 ; --------------------------------------------------------------------------------------
0ec8 ; SUBPROGRAM
0ec8 ; --------------------------------------------------------------------------------------
0ec8 0ecb | | .CONST 0x0ecb ; Address of begin
0ec9 0004 | | .CONST 0x0004 ; Address of exception handler
0eca 0001 | | .CONST 0x0001 ; Number of locals
0ecb BODY_0ec8:
0ecb INIT_0ec8:
0ecb 00da | | Load_Top At_Offset_2
0ecc 01db | | Execute Vector,Length
0ecd 0c02 | | Execute_Immediate Greater_Equal,0x2
0ece 6801 |h | Jump_Zero 0xed0
0ecf 08e0 | | Execute_Immediate Raise,0xe0
0ed0 4801 |H | Short_Literal 0x1
0ed1 00db | | Load_Top At_Offset_3
0ed2 01d7 | | Execute Vector,Field_Read
0ed3 0b54 | T | Execute_Immediate Case_Compare,0x54
0ed4 7003 |p | Jump_Nonzero 0xed8
0ed5 0f46 | F | Execute_Immediate Equal,0x46
0ed6 7004 |p | Jump_Nonzero 0xedb
0ed7 08e0 | | Execute_Immediate Raise,0xe0
0ed8 00d1 | | Pop_Control Pop_Count_1
0ed9 4801 |H | Short_Literal 0x1
0eda 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0edb 4800 |H | Short_Literal 0x0
0edc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0edd 0000 0000 | | .XXX[0x3]
0edf 0000 | |
0ee0 ; --------------------------------------------------------------------------------------
0ee0 ; SUBPROGRAM
0ee0 ; --------------------------------------------------------------------------------------
0ee0 0f10 | | .CONST 0x0f10 ; Address of begin
0ee1 0004 | | .CONST 0x0004 ; Address of exception handler
0ee2 001a | | .CONST 0x001a ; Number of locals
0ee3 INIT_0ee0:
0ee3 e258 | X | Load 0x1,0x58
0ee4 0322 | " | Declare_Variable Record
0ee5 00d8 | | Load_Top At_Offset_0
0ee6 1c00 | | Execute_Immediate Run_Utility,0x0
0ee7 e20d | | Load 0x1,0xd
0ee8 0007 | | Action Break_Optional
0ee9 00e3 | | Load_Encached Natural_Cache
0eea 00e1 | | Load_Encached Boolean_Cache
0eeb e25d | ] | Load 0x1,0x5d
0eec 0007 | | Action Break_Optional
0eed 00e1 | | Load_Encached Boolean_Cache
0eee 03e9 | | Declare_Variable Discrete,Duplicate
0eef e005 | | Load 0x0,0x5
0ef0 0322 | " | Declare_Variable Record
0ef1 00e3 | | Load_Encached Natural_Cache
0ef2 00e1 | | Load_Encached Boolean_Cache
0ef3 03e9 | | Declare_Variable Discrete,Duplicate
0ef4 00e3 | | Load_Encached Natural_Cache
0ef5 03e9 | | Declare_Variable Discrete,Duplicate
0ef6 03e9 | | Declare_Variable Discrete,Duplicate
0ef7 00e3 | | Load_Encached Natural_Cache
0ef8 00e3 | | Load_Encached Natural_Cache
0ef9 03e9 | | Declare_Variable Discrete,Duplicate
0efa 00e1 | | Load_Encached Boolean_Cache
0efb e002 | | Load 0x0,0x2
0efc 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0efd e002 | | Load 0x0,0x2
0efe 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0eff 00e3 | | Load_Encached Natural_Cache
0f00 e004 | | Load 0x0,0x4
0f01 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28
0f02 02c7 | | Declare_Variable Any
0f03 00d8 | | Load_Top At_Offset_0
0f04 1c00 | | Execute_Immediate Run_Utility,0x0
0f05 00e3 | | Load_Encached Natural_Cache
0f06 e5ff | | Load 0x2,-0x1
0f07 e019 | | Load 0x0,0x19
0f08 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0f09 e01a | | Load 0x0,0x1a
0f0a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0f0b 1c08 | | Execute_Immediate Run_Utility,0x8
0f0c 00d8 | | Load_Top At_Offset_0
0f0d 1c00 | | Execute_Immediate Run_Utility,0x0
0f0e 029f 1373 | s| Declare_Subprogram INIT_1370,For_Call
0f10 BODY_0ee0:
0f10 00d9 | | Load_Top At_Offset_1
0f11 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0f12 e5ff | | Load 0x2,-0x1
0f13 e019 | | Load 0x0,0x19
0f14 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0f15 e019 | | Load 0x0,0x19
0f16 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0f17 00d1 | | Pop_Control Pop_Count_1
0f18 4801 |H | Short_Literal 0x1
0f19 00da | | Load_Top At_Offset_2
0f1a 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0f1b 841a | | Call 0x2,0x1a
0f1c 825e | ^ | Call 0x1,0x5e
0f1d a403 | | Store_Unchecked 0x2,0x3
0f1e 841a | | Call 0x2,0x1a
0f1f 00e2 | | Load_Encached Integer_Cache
0f20 00e0 | | Load_Encached Standard_Cache
0f21 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0f22 c404 | | Store 0x2,0x4
0f23 e403 | | Load 0x2,0x3
0f24 461b |F | Jump_Case 0x1c
0f25 7827 |x' | Jump 0xf4d ; case 0x0
0f26 782d |x- | Jump 0xf54 ; case 0x1
0f27 7831 |x1 | Jump 0xf59 ; case 0x2
0f28 790e |y | Jump 0x1037 ; case 0x3
0f29 78af |x | Jump 0xfd9 ; case 0x4
0f2a 790c |y | Jump 0x1037 ; case 0x5
0f2b 788c |x | Jump 0xfb8 ; case 0x6
0f2c 7892 |x | Jump 0xfbf ; case 0x7
0f2d 789e |x | Jump 0xfcc ; case 0x8
0f2e 7908 |y | Jump 0x1037 ; case 0x9
0f2f 7907 |y | Jump 0x1037 ; case 0xa
0f30 7906 |y | Jump 0x1037 ; case 0xb
0f31 7905 |y | Jump 0x1037 ; case 0xc
0f32 7904 |y | Jump 0x1037 ; case 0xd
0f33 7903 |y | Jump 0x1037 ; case 0xe
0f34 7902 |y | Jump 0x1037 ; case 0xf
0f35 78b9 |x | Jump 0xfef ; case 0x10
0f36 78cd |x | Jump 0x1004 ; case 0x11
0f37 78da |x | Jump 0x1012 ; case 0x12
0f38 780d |x | Jump 0xf46 ; case 0x13
0f39 78f3 |x | Jump 0x102d ; case 0x14
0f3a 78e5 |x | Jump 0x1020 ; case 0x15
0f3b 782d |x- | Jump 0xf69 ; case 0x16
0f3c 7831 |x1 | Jump 0xf6e ; case 0x17
0f3d 7835 |x5 | Jump 0xf73 ; case 0x18
0f3e 7852 |xR | Jump 0xf91 ; case 0x19
0f3f 7864 |xd | Jump 0xfa4 ; case 0x1a
0f40 7800 |x | Jump 0xf41 ; case 0x1b
0f41 e404 | | Load 0x2,0x4
0f42 822e | . | Call 0x1,0x2e
0f43 e402 | | Load 0x2,0x2
0f44 017d | } | Execute Record,Structure_Write
0f45 7986 |y | Jump 0x10cc
0f46 841a | | Call 0x2,0x1a
0f47 825f | _ | Call 0x1,0x5f
0f48 e404 | | Load 0x2,0x4
0f49 822d | - | Call 0x1,0x2d
0f4a e402 | | Load 0x2,0x2
0f4b 017d | } | Execute Record,Structure_Write
0f4c 797f |y | Jump 0x10cc
0f4d 841a | | Call 0x2,0x1a
0f4e 825f | _ | Call 0x1,0x5f
0f4f e404 | | Load 0x2,0x4
0f50 8219 | | Call 0x1,0x19
0f51 e402 | | Load 0x2,0x2
0f52 017d | } | Execute Record,Structure_Write
0f53 7978 |yx | Jump 0x10cc
0f54 e404 | | Load 0x2,0x4
0f55 821a | | Call 0x1,0x1a
0f56 e402 | | Load 0x2,0x2
0f57 017d | } | Execute Record,Structure_Write
0f58 7973 |ys | Jump 0x10cc
0f59 841a | | Call 0x2,0x1a
0f5a 825f | _ | Call 0x1,0x5f
0f5b a407 | | Store_Unchecked 0x2,0x7
0f5c 841a | | Call 0x2,0x1a
0f5d 825f | _ | Call 0x1,0x5f
0f5e a408 | | Store_Unchecked 0x2,0x8
0f5f 841a | | Call 0x2,0x1a
0f60 801b | | Call 0x0,0x1b
0f61 a415 | | Store_Unchecked 0x2,0x15
0f62 e408 | | Load 0x2,0x8
0f63 e415 | | Load 0x2,0x15
0f64 e404 | | Load 0x2,0x4
0f65 821c | | Call 0x1,0x1c
0f66 e402 | | Load 0x2,0x2
0f67 017d | } | Execute Record,Structure_Write
0f68 7963 |yc | Jump 0x10cc
0f69 e404 | | Load 0x2,0x4
0f6a 822f | / | Call 0x1,0x2f
0f6b e402 | | Load 0x2,0x2
0f6c 017d | } | Execute Record,Structure_Write
0f6d 795e |y^ | Jump 0x10cc
0f6e e404 | | Load 0x2,0x4
0f6f 8230 | 0 | Call 0x1,0x30
0f70 e402 | | Load 0x2,0x2
0f71 017d | } | Execute Record,Structure_Write
0f72 7959 |yY | Jump 0x10cc
0f73 841a | | Call 0x2,0x1a
0f74 825f | _ | Call 0x1,0x5f
0f75 a407 | | Store_Unchecked 0x2,0x7
0f76 841a | | Call 0x2,0x1a
0f77 825f | _ | Call 0x1,0x5f
0f78 a408 | | Store_Unchecked 0x2,0x8
0f79 841a | | Call 0x2,0x1a
0f7a 00e2 | | Load_Encached Integer_Cache
0f7b 00e0 | | Load_Encached Standard_Cache
0f7c 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0f7d c40d | | Store 0x2,0xd
0f7e 841a | | Call 0x2,0x1a
0f7f 00e2 | | Load_Encached Integer_Cache
0f80 00e0 | | Load_Encached Standard_Cache
0f81 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0f82 c40e | | Store 0x2,0xe
0f83 841a | | Call 0x2,0x1a
0f84 00e2 | | Load_Encached Integer_Cache
0f85 00e0 | | Load_Encached Standard_Cache
0f86 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0f87 c40f | | Store 0x2,0xf
0f88 e408 | | Load 0x2,0x8
0f89 e40f | | Load 0x2,0xf
0f8a e40e | | Load 0x2,0xe
0f8b e40d | | Load 0x2,0xd
0f8c e404 | | Load 0x2,0x4
0f8d 8231 | 1 | Call 0x1,0x31
0f8e e402 | | Load 0x2,0x2
0f8f 017d | } | Execute Record,Structure_Write
0f90 793b |y; | Jump 0x10cc
0f91 841a | | Call 0x2,0x1a
0f92 825f | _ | Call 0x1,0x5f
0f93 a407 | | Store_Unchecked 0x2,0x7
0f94 841a | | Call 0x2,0x1a
0f95 825f | _ | Call 0x1,0x5f
0f96 a408 | | Store_Unchecked 0x2,0x8
0f97 841a | | Call 0x2,0x1a
0f98 00e2 | | Load_Encached Integer_Cache
0f99 00e0 | | Load_Encached Standard_Cache
0f9a 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0f9b c410 | | Store 0x2,0x10
0f9c e407 | | Load 0x2,0x7
0f9d e408 | | Load 0x2,0x8
0f9e e410 | | Load 0x2,0x10
0f9f e404 | | Load 0x2,0x4
0fa0 8232 | 2 | Call 0x1,0x32
0fa1 e402 | | Load 0x2,0x2
0fa2 017d | } | Execute Record,Structure_Write
0fa3 7928 |y( | Jump 0x10cc
0fa4 841a | | Call 0x2,0x1a
0fa5 825f | _ | Call 0x1,0x5f
0fa6 a407 | | Store_Unchecked 0x2,0x7
0fa7 841a | | Call 0x2,0x1a
0fa8 825f | _ | Call 0x1,0x5f
0fa9 a408 | | Store_Unchecked 0x2,0x8
0faa 841a | | Call 0x2,0x1a
0fab 00e2 | | Load_Encached Integer_Cache
0fac 00e0 | | Load_Encached Standard_Cache
0fad 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0fae c411 | | Store 0x2,0x11
0faf e413 | | Load 0x2,0x13
0fb0 e412 | | Load 0x2,0x12
0fb1 e414 | | Load 0x2,0x14
0fb2 e411 | | Load 0x2,0x11
0fb3 e404 | | Load 0x2,0x4
0fb4 8233 | 3 | Call 0x1,0x33
0fb5 e402 | | Load 0x2,0x2
0fb6 017d | } | Execute Record,Structure_Write
0fb7 7914 |y | Jump 0x10cc
0fb8 841a | | Call 0x2,0x1a
0fb9 825f | _ | Call 0x1,0x5f
0fba e404 | | Load 0x2,0x4
0fbb 821f | | Call 0x1,0x1f
0fbc e402 | | Load 0x2,0x2
0fbd 017d | } | Execute Record,Structure_Write
0fbe 790d |y | Jump 0x10cc
0fbf 841a | | Call 0x2,0x1a
0fc0 825f | _ | Call 0x1,0x5f
0fc1 a407 | | Store_Unchecked 0x2,0x7
0fc2 841a | | Call 0x2,0x1a
0fc3 825f | _ | Call 0x1,0x5f
0fc4 a408 | | Store_Unchecked 0x2,0x8
0fc5 e408 | | Load 0x2,0x8
0fc6 e407 | | Load 0x2,0x7
0fc7 e404 | | Load 0x2,0x4
0fc8 8220 | | Call 0x1,0x20
0fc9 e402 | | Load 0x2,0x2
0fca 017d | } | Execute Record,Structure_Write
0fcb 7900 |y | Jump 0x10cc
0fcc 841a | | Call 0x2,0x1a
0fcd 825f | _ | Call 0x1,0x5f
0fce a407 | | Store_Unchecked 0x2,0x7
0fcf 841a | | Call 0x2,0x1a
0fd0 825f | _ | Call 0x1,0x5f
0fd1 a408 | | Store_Unchecked 0x2,0x8
0fd2 e408 | | Load 0x2,0x8
0fd3 e407 | | Load 0x2,0x7
0fd4 e404 | | Load 0x2,0x4
0fd5 8221 | ! | Call 0x1,0x21
0fd6 e402 | | Load 0x2,0x2
0fd7 017d | } | Execute Record,Structure_Write
0fd8 78f3 |x | Jump 0x10cc
0fd9 841a | | Call 0x2,0x1a
0fda 825f | _ | Call 0x1,0x5f
0fdb a407 | | Store_Unchecked 0x2,0x7
0fdc 841a | | Call 0x2,0x1a
0fdd 825f | _ | Call 0x1,0x5f
0fde a408 | | Store_Unchecked 0x2,0x8
0fdf e408 | | Load 0x2,0x8
0fe0 e407 | | Load 0x2,0x7
0fe1 841a | | Call 0x2,0x1a
0fe2 00e2 | | Load_Encached Integer_Cache
0fe3 00e0 | | Load_Encached Standard_Cache
0fe4 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0fe5 00d8 | | Load_Top At_Offset_0
0fe6 00e3 | | Load_Encached Natural_Cache
0fe7 0260 | ` | Execute Discrete,In_Type
0fe8 7001 |p | Jump_Nonzero 0xfea
0fe9 0801 | | Execute_Immediate Raise,0x1
0fea e404 | | Load 0x2,0x4
0feb 821d | | Call 0x1,0x1d
0fec e402 | | Load 0x2,0x2
0fed 017d | } | Execute Record,Structure_Write
0fee 78dd |x | Jump 0x10cc
0fef 841a | | Call 0x2,0x1a
0ff0 825f | _ | Call 0x1,0x5f
0ff1 a407 | | Store_Unchecked 0x2,0x7
0ff2 841a | | Call 0x2,0x1a
0ff3 825f | _ | Call 0x1,0x5f
0ff4 a408 | | Store_Unchecked 0x2,0x8
0ff5 e407 | | Load 0x2,0x7
0ff6 841a | | Call 0x2,0x1a
0ff7 00e2 | | Load_Encached Integer_Cache
0ff8 00e0 | | Load_Encached Standard_Cache
0ff9 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0ffa 00d8 | | Load_Top At_Offset_0
0ffb 00e3 | | Load_Encached Natural_Cache
0ffc 0260 | ` | Execute Discrete,In_Type
0ffd 7001 |p | Jump_Nonzero 0xfff
0ffe 0801 | | Execute_Immediate Raise,0x1
0fff e404 | | Load 0x2,0x4
1000 8229 | ) | Call 0x1,0x29
1001 e402 | | Load 0x2,0x2
1002 017d | } | Execute Record,Structure_Write
1003 78c8 |x | Jump 0x10cc
1004 841a | | Call 0x2,0x1a
1005 825f | _ | Call 0x1,0x5f
1006 a407 | | Store_Unchecked 0x2,0x7
1007 841a | | Call 0x2,0x1a
1008 825f | _ | Call 0x1,0x5f
1009 a408 | | Store_Unchecked 0x2,0x8
100a e408 | | Load 0x2,0x8
100b 841a | | Call 0x2,0x1a
100c 8254 | T | Call 0x1,0x54
100d e404 | | Load 0x2,0x4
100e 822a | * | Call 0x1,0x2a
100f e402 | | Load 0x2,0x2
1010 017d | } | Execute Record,Structure_Write
1011 78ba |x | Jump 0x10cc
1012 841a | | Call 0x2,0x1a
1013 825f | _ | Call 0x1,0x5f
1014 a407 | | Store_Unchecked 0x2,0x7
1015 841a | | Call 0x2,0x1a
1016 825f | _ | Call 0x1,0x5f
1017 a408 | | Store_Unchecked 0x2,0x8
1018 e408 | | Load 0x2,0x8
1019 841a | | Call 0x2,0x1a
101a 8254 | T | Call 0x1,0x54
101b e404 | | Load 0x2,0x4
101c 822a | * | Call 0x1,0x2a
101d e402 | | Load 0x2,0x2
101e 017d | } | Execute Record,Structure_Write
101f 78ac |x | Jump 0x10cc
1020 841a | | Call 0x2,0x1a
1021 825f | _ | Call 0x1,0x5f
1022 a407 | | Store_Unchecked 0x2,0x7
1023 841a | | Call 0x2,0x1a
1024 825f | _ | Call 0x1,0x5f
1025 a408 | | Store_Unchecked 0x2,0x8
1026 841a | | Call 0x2,0x1a
1027 825f | _ | Call 0x1,0x5f
1028 e404 | | Load 0x2,0x4
1029 822c | , | Call 0x1,0x2c
102a e402 | | Load 0x2,0x2
102b 017d | } | Execute Record,Structure_Write
102c 789f |x | Jump 0x10cc
102d 841a | | Call 0x2,0x1a
102e 825f | _ | Call 0x1,0x5f
102f a407 | | Store_Unchecked 0x2,0x7
1030 841a | | Call 0x2,0x1a
1031 825f | _ | Call 0x1,0x5f
1032 e404 | | Load 0x2,0x4
1033 822b | + | Call 0x1,0x2b
1034 e402 | | Load 0x2,0x2
1035 017d | } | Execute Record,Structure_Write
1036 7895 |x | Jump 0x10cc
1037 841a | | Call 0x2,0x1a
1038 825f | _ | Call 0x1,0x5f
1039 a407 | | Store_Unchecked 0x2,0x7
103a 841a | | Call 0x2,0x1a
103b 825f | _ | Call 0x1,0x5f
103c a408 | | Store_Unchecked 0x2,0x8
103d 841a | | Call 0x2,0x1a
103e 825f | _ | Call 0x1,0x5f
103f a405 | | Store_Unchecked 0x2,0x5
1040 e403 | | Load 0x2,0x3
1041 461b |F | Jump_Case 0x1c
1042 7889 |x | Jump 0x10cc ; case 0x0
1043 7888 |x | Jump 0x10cc ; case 0x1
1044 7887 |x | Jump 0x10cc ; case 0x2
1045 786d |xm | Jump 0x10b3 ; case 0x3
1046 7885 |x | Jump 0x10cc ; case 0x4
1047 783b |x; | Jump 0x1083 ; case 0x5
1048 7883 |x | Jump 0x10cc ; case 0x6
1049 7882 |x | Jump 0x10cc ; case 0x7
104a 7881 |x | Jump 0x10cc ; case 0x8
104b 782f |x/ | Jump 0x107b ; case 0x9
104c 7812 |x | Jump 0x105f ; case 0xa
104d 781f |x | Jump 0x106d ; case 0xb
104e 7854 |xT | Jump 0x10a3 ; case 0xc
104f 785b |x[ | Jump 0x10ab ; case 0xd
1050 784a |xJ | Jump 0x109b ; case 0xe
1051 7841 |xA | Jump 0x1093 ; case 0xf
1052 7879 |xy | Jump 0x10cc ; case 0x10
1053 7878 |xx | Jump 0x10cc ; case 0x11
1054 7877 |xw | Jump 0x10cc ; case 0x12
1055 7876 |xv | Jump 0x10cc ; case 0x13
1056 7875 |xu | Jump 0x10cc ; case 0x14
1057 7874 |xt | Jump 0x10cc ; case 0x15
1058 7873 |xs | Jump 0x10cc ; case 0x16
1059 7872 |xr | Jump 0x10cc ; case 0x17
105a 7871 |xq | Jump 0x10cc ; case 0x18
105b 7870 |xp | Jump 0x10cc ; case 0x19
105c 786f |xo | Jump 0x10cc ; case 0x1a
105d 786e |xn | Jump 0x10cc ; case 0x1b
105e 786d |xm | .XXX[0x1]
105f 841a | | Call 0x2,0x1a
1060 00e2 | | Load_Encached Integer_Cache
1061 00e0 | | Load_Encached Standard_Cache
1062 1819 | | Execute Package,Field_Execute,Field_Number 0x19
1063 c40a | | Store 0x2,0xa
1064 e408 | | Load 0x2,0x8
1065 e407 | | Load 0x2,0x7
1066 e405 | | Load 0x2,0x5
1067 e418 | | Load 0x2,0x18
1068 e404 | | Load 0x2,0x4
1069 8223 | # | Call 0x1,0x23
106a e402 | | Load 0x2,0x2
106b 017d | } | Execute Record,Structure_Write
106c 785f |x_ | Jump 0x10cc
106d 841a | | Call 0x2,0x1a
106e 00e2 | | Load_Encached Integer_Cache
106f 00e0 | | Load_Encached Standard_Cache
1070 1819 | | Execute Package,Field_Execute,Field_Number 0x19
1071 c40a | | Store 0x2,0xa
1072 e408 | | Load 0x2,0x8
1073 e407 | | Load 0x2,0x7
1074 e405 | | Load 0x2,0x5
1075 e418 | | Load 0x2,0x18
1076 e404 | | Load 0x2,0x4
1077 8224 | $ | Call 0x1,0x24
1078 e402 | | Load 0x2,0x2
1079 017d | } | Execute Record,Structure_Write
107a 7851 |xQ | Jump 0x10cc
107b e408 | | Load 0x2,0x8
107c e407 | | Load 0x2,0x7
107d e405 | | Load 0x2,0x5
107e e404 | | Load 0x2,0x4
107f 8222 | " | Call 0x1,0x22
1080 e402 | | Load 0x2,0x2
1081 017d | } | Execute Record,Structure_Write
1082 7849 |xI | Jump 0x10cc
1083 841a | | Call 0x2,0x1a
1084 825f | _ | Call 0x1,0x5f
1085 a40b | | Store_Unchecked 0x2,0xb
1086 841a | | Call 0x2,0x1a
1087 825f | _ | Call 0x1,0x5f
1088 a40c | | Store_Unchecked 0x2,0xc
1089 e408 | | Load 0x2,0x8
108a e407 | | Load 0x2,0x7
108b e405 | | Load 0x2,0x5
108c e40c | | Load 0x2,0xc
108d e40b | | Load 0x2,0xb
108e e404 | | Load 0x2,0x4
108f 821e | | Call 0x1,0x1e
1090 e402 | | Load 0x2,0x2
1091 017d | } | Execute Record,Structure_Write
1092 7839 |x9 | Jump 0x10cc
1093 e408 | | Load 0x2,0x8
1094 e407 | | Load 0x2,0x7
1095 e405 | | Load 0x2,0x5
1096 e404 | | Load 0x2,0x4
1097 8228 | ( | Call 0x1,0x28
1098 e402 | | Load 0x2,0x2
1099 017d | } | Execute Record,Structure_Write
109a 7831 |x1 | Jump 0x10cc
109b e408 | | Load 0x2,0x8
109c e407 | | Load 0x2,0x7
109d e405 | | Load 0x2,0x5
109e e404 | | Load 0x2,0x4
109f 8227 | ' | Call 0x1,0x27
10a0 e402 | | Load 0x2,0x2
10a1 017d | } | Execute Record,Structure_Write
10a2 7829 |x) | Jump 0x10cc
10a3 e408 | | Load 0x2,0x8
10a4 e407 | | Load 0x2,0x7
10a5 e405 | | Load 0x2,0x5
10a6 e404 | | Load 0x2,0x4
10a7 8225 | % | Call 0x1,0x25
10a8 e402 | | Load 0x2,0x2
10a9 017d | } | Execute Record,Structure_Write
10aa 7821 |x! | Jump 0x10cc
10ab e408 | | Load 0x2,0x8
10ac e407 | | Load 0x2,0x7
10ad e405 | | Load 0x2,0x5
10ae e404 | | Load 0x2,0x4
10af 8226 | & | Call 0x1,0x26
10b0 e402 | | Load 0x2,0x2
10b1 017d | } | Execute Record,Structure_Write
10b2 7819 |x | Jump 0x10cc
10b3 841a | | Call 0x2,0x1a
10b4 801b | | Call 0x0,0x1b
10b5 a415 | | Store_Unchecked 0x2,0x15
10b6 841a | | Call 0x2,0x1a
10b7 00e2 | | Load_Encached Integer_Cache
10b8 00e0 | | Load_Encached Standard_Cache
10b9 1819 | | Execute Package,Field_Execute,Field_Number 0x19
10ba c416 | | Store 0x2,0x16
10bb 841a | | Call 0x2,0x1a
10bc 00e2 | | Load_Encached Integer_Cache
10bd 00e0 | | Load_Encached Standard_Cache
10be 1819 | | Execute Package,Field_Execute,Field_Number 0x19
10bf c410 | | Store 0x2,0x10
10c0 e409 | | Load 0x2,0x9
10c1 e417 | | Load 0x2,0x17
10c2 e408 | | Load 0x2,0x8
10c3 e407 | | Load 0x2,0x7
10c4 e405 | | Load 0x2,0x5
10c5 e410 | | Load 0x2,0x10
10c6 e416 | | Load 0x2,0x16
10c7 e415 | | Load 0x2,0x15
10c8 e404 | | Load 0x2,0x4
10c9 821b | | Call 0x1,0x1b
10ca e402 | | Load 0x2,0x2
10cb 017d | } | Execute Record,Structure_Write
10cc e402 | | Load 0x2,0x2
10cd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
10ce 0000 0000 | | .XXX[0x2]
10d0 ; --------------------------------------------------------------------------------------
10d0 ; SUBPROGRAM
10d0 ; --------------------------------------------------------------------------------------
10d0 10d3 | | .CONST 0x10d3 ; Address of begin
10d1 0004 | | .CONST 0x0004 ; Address of exception handler
10d2 0001 | | .CONST 0x0001 ; Number of locals
10d3 BODY_10d0:
10d3 INIT_10d0:
10d3 00da | | Load_Top At_Offset_2
10d4 4606 |F | Jump_Case 0x7
10d5 780a |x | Jump 0x10e0 ; case 0x0
10d6 7807 |x | Jump 0x10de ; case 0x1
10d7 7810 |x | Jump 0x10e8 ; case 0x2
10d8 780b |x | Jump 0x10e4 ; case 0x3
10d9 7808 |x | Jump 0x10e2 ; case 0x4
10da 780b |x | Jump 0x10e6 ; case 0x5
10db 7800 |x | Jump 0x10dc ; case 0x6
10dc 484f |HO | Short_Literal 0x4f
10dd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
10de 4845 |HE | Short_Literal 0x45
10df 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
10e0 4849 |HI | Short_Literal 0x49
10e1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
10e2 4858 |HX | Short_Literal 0x58
10e3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
10e4 4841 |HA | Short_Literal 0x41
10e5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
10e6 4854 |HT | Short_Literal 0x54
10e7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
10e8 4846 |HF | Short_Literal 0x46
10e9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
10ea 0000 0000 | | .BLANK 0000[0x6]
10f0 ; --------------------------------------------------------------------------------------
10f0 ; SUBPROGRAM
10f0 ; --------------------------------------------------------------------------------------
10f0 10fb | | .CONST 0x10fb ; Address of begin
10f1 0004 | | .CONST 0x0004 ; Address of exception handler
10f2 0003 | | .CONST 0x0003 ; Number of locals
10f3 INIT_10f0:
10f3 4878 |Hx | Short_Literal 0x78
10f4 e019 | | Load 0x0,0x19
10f5 1b0e | | Execute Package,Field_Read,Field_Number 0xe
10f6 1c08 | | Execute_Immediate Run_Utility,0x8
10f7 00d8 | | Load_Top At_Offset_0
10f8 1c00 | | Execute_Immediate Run_Utility,0x0
10f9 029f 138b | | Declare_Subprogram INIT_1388,For_Call
10fb BODY_10f0:
10fb 00d9 | | Load_Top At_Offset_1
10fc 00ea | | Load_Encached Null_String_Cache
10fd e019 | | Load 0x0,0x19
10fe 1810 | | Execute Package,Field_Execute,Field_Number 0x10
10ff 00d1 | | Pop_Control Pop_Count_1
1100 00d9 | | Load_Top At_Offset_1
1101 e5fe | | Load 0x2,-0x2
1102 e5ff | | Load 0x2,-0x1
1103 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
1104 8264 | d | Call 0x1,0x64
1105 e019 | | Load 0x0,0x19
1106 1818 | | Execute Package,Field_Execute,Field_Number 0x18
1107 00d1 | | Pop_Control Pop_Count_1
1108 e5fe | | Load 0x2,-0x2
1109 680b |h | Jump_Zero 0x1115
110a 00d9 | | Load_Top At_Offset_1
110b e019 | | Load 0x0,0x19
110c 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
110d 0d18 | | Execute_Immediate Less,0x18
110e 6806 |h | Jump_Zero 0x1115
110f 00d9 | | Load_Top At_Offset_1
1110 4820 |H | Short_Literal 0x20
1111 4818 |H | Short_Literal 0x18
1112 e019 | | Load 0x0,0x19
1113 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
1114 00d1 | | Pop_Control Pop_Count_1
1115 0092 13ea | | Action Push_String_Extended,0x13ea ; "["
1117 8403 | | Call 0x2,0x3
1118 00d9 | | Load_Top At_Offset_1
1119 e5ff | | Load 0x2,-0x1
111a 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
111b 00e0 | | Load_Encached Standard_Cache
111c 1818 | | Execute Package,Field_Execute,Field_Number 0x18
111d e019 | | Load 0x0,0x19
111e 1818 | | Execute Package,Field_Execute,Field_Number 0x18
111f 00d1 | | Pop_Control Pop_Count_1
1120 0092 13eb | | Action Push_String_Extended,0x13eb ; "]"
1122 8403 | | Call 0x2,0x3
1123 e5fe | | Load 0x2,-0x2
1124 680d |h | Jump_Zero 0x1132
1125 e5ff | | Load 0x2,-0x1
1126 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
1127 6803 |h | Jump_Zero 0x112b
1128 0092 13ec | | Action Push_String_Extended,0x13ec ; "Result"
112a 8403 | | Call 0x2,0x3
112b e5ff | | Load 0x2,-0x1
112c 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
112d 6812 |h | Jump_Zero 0x1140
112e 0092 13ed | | Action Push_String_Extended,0x13ed ; "Mark"
1130 8403 | | Call 0x2,0x3
1131 780e |x | Jump 0x1140
1132 00d9 | | Load_Top At_Offset_1
1133 e5ff | | Load 0x2,-0x1
1134 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
1135 8265 | e | Call 0x1,0x65
1136 e019 | | Load 0x0,0x19
1137 1818 | | Execute Package,Field_Execute,Field_Number 0x18
1138 00d1 | | Pop_Control Pop_Count_1
1139 00d9 | | Load_Top At_Offset_1
113a e5ff | | Load 0x2,-0x1
113b 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
113c 8265 | e | Call 0x1,0x65
113d e019 | | Load 0x0,0x19
113e 1818 | | Execute Package,Field_Execute,Field_Number 0x18
113f 00d1 | | Pop_Control Pop_Count_1
1140 e5ff | | Load 0x2,-0x1
1141 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
1142 461b |F | Jump_Case 0x1c
1143 7953 |yS | Jump 0x1297 ; case 0x0
1144 7952 |yR | Jump 0x1297 ; case 0x1
1145 7826 |x& | Jump 0x116c ; case 0x2
1146 789b |x | Jump 0x11e2 ; case 0x3
1147 7818 |x | Jump 0x1160 ; case 0x4
1148 7899 |x | Jump 0x11e2 ; case 0x5
1149 794d |yM | Jump 0x1297 ; case 0x6
114a 794c |yL | Jump 0x1297 ; case 0x7
114b 794b |yK | Jump 0x1297 ; case 0x8
114c 7895 |x | Jump 0x11e2 ; case 0x9
114d 7894 |x | Jump 0x11e2 ; case 0xa
114e 7893 |x | Jump 0x11e2 ; case 0xb
114f 7892 |x | Jump 0x11e2 ; case 0xc
1150 7891 |x | Jump 0x11e2 ; case 0xd
1151 7890 |x | Jump 0x11e2 ; case 0xe
1152 788f |x | Jump 0x11e2 ; case 0xf
1153 786e |xn | Jump 0x11c2 ; case 0x10
1154 7822 |x" | Jump 0x1177 ; case 0x11
1155 7821 |x! | Jump 0x1177 ; case 0x12
1156 7940 |y@ | Jump 0x1297 ; case 0x13
1157 793f |y? | Jump 0x1297 ; case 0x14
1158 7875 |xu | Jump 0x11ce ; case 0x15
1159 793d |y= | Jump 0x1297 ; case 0x16
115a 793c |y< | Jump 0x1297 ; case 0x17
115b 7835 |x5 | Jump 0x1191 ; case 0x18
115c 7828 |x( | Jump 0x1185 ; case 0x19
115d 7855 |xU | Jump 0x11b3 ; case 0x1a
115e 7938 |y8 | Jump 0x1297 ; case 0x1b
115f 7937 |y7 | .XXX[0x1]
1160 0092 13ee | | Action Push_String_Extended,0x13ee ; "Index:"
1162 8403 | | Call 0x2,0x3
1163 00d9 | | Load_Top At_Offset_1
1164 e5ff | | Load 0x2,-0x1
1165 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
1166 00e0 | | Load_Encached Standard_Cache
1167 1818 | | Execute Package,Field_Execute,Field_Number 0x18
1168 e019 | | Load 0x0,0x19
1169 1818 | | Execute Package,Field_Execute,Field_Number 0x18
116a 00d1 | | Pop_Control Pop_Count_1
116b 792b |y+ | Jump 0x1297
116c 0092 13ef | | Action Push_String_Extended,0x13ef ; "Task:"
116e 8403 | | Call 0x2,0x3
116f 00d9 | | Load_Top At_Offset_1
1170 e5ff | | Load 0x2,-0x1
1171 3c0e |< | Execute Record,Field_Read,Field_Number 0xe
1172 801c | | Call 0x0,0x1c
1173 e019 | | Load 0x0,0x19
1174 1818 | | Execute Package,Field_Execute,Field_Number 0x18
1175 00d1 | | Pop_Control Pop_Count_1
1176 7920 |y | Jump 0x1297
1177 00d9 | | Load_Top At_Offset_1
1178 0092 13f0 | | Action Push_String_Extended,0x13f0 ; " "
117a e019 | | Load 0x0,0x19
117b 1818 | | Execute Package,Field_Execute,Field_Number 0x18
117c 00d1 | | Pop_Control Pop_Count_1
117d 00d9 | | Load_Top At_Offset_1
117e e5ff | | Load 0x2,-0x1
117f 3407 |4 | Execute Record,Field_Reference,Field_Number 0x7
1180 801d | | Call 0x0,0x1d
1181 e019 | | Load 0x0,0x19
1182 1818 | | Execute Package,Field_Execute,Field_Number 0x18
1183 00d1 | | Pop_Control Pop_Count_1
1184 7912 |y | Jump 0x1297
1185 0092 13f1 | | Action Push_String_Extended,0x13f1 ; "Offset:"
1187 8403 | | Call 0x2,0x3
1188 00d9 | | Load_Top At_Offset_1
1189 e5ff | | Load 0x2,-0x1
118a 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
118b 00e0 | | Load_Encached Standard_Cache
118c 1818 | | Execute Package,Field_Execute,Field_Number 0x18
118d e019 | | Load 0x0,0x19
118e 1818 | | Execute Package,Field_Execute,Field_Number 0x18
118f 00d1 | | Pop_Control Pop_Count_1
1190 7906 |y | Jump 0x1297
1191 0092 13f2 | | Action Push_String_Extended,0x13f2 ; "Start_Offset:"
1193 8403 | | Call 0x2,0x3
1194 00d9 | | Load_Top At_Offset_1
1195 e5ff | | Load 0x2,-0x1
1196 3c0a |< | Execute Record,Field_Read,Field_Number 0xa
1197 00e0 | | Load_Encached Standard_Cache
1198 1818 | | Execute Package,Field_Execute,Field_Number 0x18
1199 e019 | | Load 0x0,0x19
119a 1818 | | Execute Package,Field_Execute,Field_Number 0x18
119b 00d1 | | Pop_Control Pop_Count_1
119c 0092 13f3 | | Action Push_String_Extended,0x13f3 ; "Max_Elements:"
119e 8403 | | Call 0x2,0x3
119f 00d9 | | Load_Top At_Offset_1
11a0 e5ff | | Load 0x2,-0x1
11a1 3c0b |< | Execute Record,Field_Read,Field_Number 0xb
11a2 00e0 | | Load_Encached Standard_Cache
11a3 1818 | | Execute Package,Field_Execute,Field_Number 0x18
11a4 e019 | | Load 0x0,0x19
11a5 1818 | | Execute Package,Field_Execute,Field_Number 0x18
11a6 00d1 | | Pop_Control Pop_Count_1
11a7 0092 13f4 | | Action Push_String_Extended,0x13f4 ; "Instruction_Count:"
11a9 8403 | | Call 0x2,0x3
11aa 00d9 | | Load_Top At_Offset_1
11ab e5ff | | Load 0x2,-0x1
11ac 3c0c |< | Execute Record,Field_Read,Field_Number 0xc
11ad 00e0 | | Load_Encached Standard_Cache
11ae 1818 | | Execute Package,Field_Execute,Field_Number 0x18
11af e019 | | Load 0x0,0x19
11b0 1818 | | Execute Package,Field_Execute,Field_Number 0x18
11b1 00d1 | | Pop_Control Pop_Count_1
11b2 78e4 |x | Jump 0x1297
11b3 0092 13ee | | Action Push_String_Extended,0x13ee ; "Index:"
11b5 8403 | | Call 0x2,0x3
11b6 00d9 | | Load_Top At_Offset_1
11b7 e5ff | | Load 0x2,-0x1
11b8 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
11b9 00e0 | | Load_Encached Standard_Cache
11ba 1818 | | Execute Package,Field_Execute,Field_Number 0x18
11bb e019 | | Load 0x0,0x19
11bc 1818 | | Execute Package,Field_Execute,Field_Number 0x18
11bd 00d1 | | Pop_Control Pop_Count_1
11be 0092 13f5 | | Action Push_String_Extended,0x13f5 ; "Space: (skipped)"
11c0 8403 | | Call 0x2,0x3
11c1 78d5 |x | Jump 0x1297
11c2 0092 13ee | | Action Push_String_Extended,0x13ee ; "Index:"
11c4 8403 | | Call 0x2,0x3
11c5 00d9 | | Load_Top At_Offset_1
11c6 e5ff | | Load 0x2,-0x1
11c7 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
11c8 00e0 | | Load_Encached Standard_Cache
11c9 1818 | | Execute Package,Field_Execute,Field_Number 0x18
11ca e019 | | Load 0x0,0x19
11cb 1818 | | Execute Package,Field_Execute,Field_Number 0x18
11cc 00d1 | | Pop_Control Pop_Count_1
11cd 78c9 |x | Jump 0x1297
11ce e5fe | | Load 0x2,-0x2
11cf 680a |h | Jump_Zero 0x11da
11d0 e5ff | | Load 0x2,-0x1
11d1 3c09 |< | Execute Record,Field_Read,Field_Number 0x9
11d2 68c4 |h | Jump_Zero 0x1297
11d3 00d9 | | Load_Top At_Offset_1
11d4 0092 13f6 | | Action Push_String_Extended,0x13f6 ; " Pop"
11d6 e019 | | Load 0x0,0x19
11d7 1818 | | Execute Package,Field_Execute,Field_Number 0x18
11d8 00d1 | | Pop_Control Pop_Count_1
11d9 78bd |x | Jump 0x1297
11da 00d9 | | Load_Top At_Offset_1
11db e5ff | | Load 0x2,-0x1
11dc 3c09 |< | Execute Record,Field_Read,Field_Number 0x9
11dd 8265 | e | Call 0x1,0x65
11de e019 | | Load 0x0,0x19
11df 1818 | | Execute Package,Field_Execute,Field_Number 0x18
11e0 00d1 | | Pop_Control Pop_Count_1
11e1 78b5 |x | Jump 0x1297
11e2 e5fe | | Load 0x2,-0x2
11e3 680a |h | Jump_Zero 0x11ee
11e4 e5ff | | Load 0x2,-0x1
11e5 3c0d |< | Execute Record,Field_Read,Field_Number 0xd
11e6 680e |h | Jump_Zero 0x11f5
11e7 00d9 | | Load_Top At_Offset_1
11e8 0092 13f7 | | Action Push_String_Extended,0x13f7 ; " Write"
11ea e019 | | Load 0x0,0x19
11eb 1818 | | Execute Package,Field_Execute,Field_Number 0x18
11ec 00d1 | | Pop_Control Pop_Count_1
11ed 7807 |x | Jump 0x11f5
11ee 00d9 | | Load_Top At_Offset_1
11ef e5ff | | Load 0x2,-0x1
11f0 3c0d |< | Execute Record,Field_Read,Field_Number 0xd
11f1 8265 | e | Call 0x1,0x65
11f2 e019 | | Load 0x0,0x19
11f3 1818 | | Execute Package,Field_Execute,Field_Number 0x18
11f4 00d1 | | Pop_Control Pop_Count_1
11f5 e5ff | | Load 0x2,-0x1
11f6 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
11f7 461b |F | Jump_Case 0x1c
11f8 789e |x | Jump 0x1297 ; case 0x0
11f9 789d |x | Jump 0x1297 ; case 0x1
11fa 789c |x | Jump 0x1297 ; case 0x2
11fb 7862 |xb | Jump 0x125e ; case 0x3
11fc 789a |x | Jump 0x1297 ; case 0x4
11fd 7817 |x | Jump 0x1215 ; case 0x5
11fe 7898 |x | Jump 0x1297 ; case 0x6
11ff 7897 |x | Jump 0x1297 ; case 0x7
1200 7896 |x | Jump 0x1297 ; case 0x8
1201 7813 |x | Jump 0x1215 ; case 0x9
1202 784f |xO | Jump 0x1252 ; case 0xa
1203 784e |xN | Jump 0x1252 ; case 0xb
1204 7892 |x | Jump 0x1297 ; case 0xc
1205 7891 |x | Jump 0x1297 ; case 0xd
1206 7890 |x | Jump 0x1297 ; case 0xe
1207 780d |x | Jump 0x1215 ; case 0xf
1208 788e |x | Jump 0x1297 ; case 0x10
1209 788d |x | Jump 0x1297 ; case 0x11
120a 788c |x | Jump 0x1297 ; case 0x12
120b 788b |x | Jump 0x1297 ; case 0x13
120c 788a |x | Jump 0x1297 ; case 0x14
120d 7889 |x | Jump 0x1297 ; case 0x15
120e 7888 |x | Jump 0x1297 ; case 0x16
120f 7887 |x | Jump 0x1297 ; case 0x17
1210 7886 |x | Jump 0x1297 ; case 0x18
1211 7885 |x | Jump 0x1297 ; case 0x19
1212 7884 |x | Jump 0x1297 ; case 0x1a
1213 7883 |x | Jump 0x1297 ; case 0x1b
1214 7882 |x | .XXX[0x1]
1215 00d9 | | Load_Top At_Offset_1
1216 0092 13f0 | | Action Push_String_Extended,0x13f0 ; " "
1218 e019 | | Load 0x0,0x19
1219 1818 | | Execute Package,Field_Execute,Field_Number 0x18
121a 00d1 | | Pop_Control Pop_Count_1
121b e5ff | | Load 0x2,-0x1
121c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
121d 0f05 | | Execute_Immediate Equal,0x5
121e 7001 |p | Jump_Nonzero 0x1220
121f 7877 |xw | Jump 0x1297
1220 00d9 | | Load_Top At_Offset_1
1221 0092 13f0 | | Action Push_String_Extended,0x13f0 ; " "
1223 e019 | | Load 0x0,0x19
1224 1818 | | Execute Package,Field_Execute,Field_Number 0x18
1225 00d1 | | Pop_Control Pop_Count_1
1226 e5fe | | Load 0x2,-0x2
1227 6815 |h | Jump_Zero 0x123d
1228 e5ff | | Load 0x2,-0x1
1229 3c14 |< | Execute Record,Field_Read,Field_Number 0x14
122a 6804 |h | Jump_Zero 0x122f
122b 0092 13f8 | | Action Push_String_Extended,0x13f8 ; "Fixed"
122d 8403 | | Call 0x2,0x3
122e 7803 |x | Jump 0x1232
122f 0092 13f9 | | Action Push_String_Extended,0x13f9 ; "Variant"
1231 8403 | | Call 0x2,0x3
1232 e5ff | | Load 0x2,-0x1
1233 3c15 |< | Execute Record,Field_Read,Field_Number 0x15
1234 6804 |h | Jump_Zero 0x1239
1235 0092 13fa | | Action Push_String_Extended,0x13fa ; "Direct"
1237 8403 | | Call 0x2,0x3
1238 785e |x^ | Jump 0x1297
1239 0092 13fb | | Action Push_String_Extended,0x13fb ; "Indirect"
123b 8403 | | Call 0x2,0x3
123c 785a |xZ | Jump 0x1297
123d 00d9 | | Load_Top At_Offset_1
123e e5ff | | Load 0x2,-0x1
123f 3c14 |< | Execute Record,Field_Read,Field_Number 0x14
1240 8265 | e | Call 0x1,0x65
1241 e019 | | Load 0x0,0x19
1242 1818 | | Execute Package,Field_Execute,Field_Number 0x18
1243 00d1 | | Pop_Control Pop_Count_1
1244 00d9 | | Load_Top At_Offset_1
1245 0092 13f0 | | Action Push_String_Extended,0x13f0 ; " "
1247 e019 | | Load 0x0,0x19
1248 1818 | | Execute Package,Field_Execute,Field_Number 0x18
1249 00d1 | | Pop_Control Pop_Count_1
124a 00d9 | | Load_Top At_Offset_1
124b e5ff | | Load 0x2,-0x1
124c 3c15 |< | Execute Record,Field_Read,Field_Number 0x15
124d 8265 | e | Call 0x1,0x65
124e e019 | | Load 0x0,0x19
124f 1818 | | Execute Package,Field_Execute,Field_Number 0x18
1250 00d1 | | Pop_Control Pop_Count_1
1251 7845 |xE | Jump 0x1297
1252 0092 13fc | | Action Push_String_Extended,0x13fc ; "Field:"
1254 8403 | | Call 0x2,0x3
1255 00d9 | | Load_Top At_Offset_1
1256 e5ff | | Load 0x2,-0x1
1257 3c13 |< | Execute Record,Field_Read,Field_Number 0x13
1258 00e0 | | Load_Encached Standard_Cache
1259 1818 | | Execute Package,Field_Execute,Field_Number 0x18
125a e019 | | Load 0x0,0x19
125b 1818 | | Execute Package,Field_Execute,Field_Number 0x18
125c 00d1 | | Pop_Control Pop_Count_1
125d 7839 |x9 | Jump 0x1297
125e 00d9 | | Load_Top At_Offset_1
125f 0092 13f0 | | Action Push_String_Extended,0x13f0 ; " "
1261 e019 | | Load 0x0,0x19
1262 1818 | | Execute Package,Field_Execute,Field_Number 0x18
1263 00d1 | | Pop_Control Pop_Count_1
1264 0092 13ef | | Action Push_String_Extended,0x13ef ; "Task:"
1266 8403 | | Call 0x2,0x3
1267 00d9 | | Load_Top At_Offset_1
1268 e5ff | | Load 0x2,-0x1
1269 3c0e |< | Execute Record,Field_Read,Field_Number 0xe
126a 801c | | Call 0x0,0x1c
126b e019 | | Load 0x0,0x19
126c 1818 | | Execute Package,Field_Execute,Field_Number 0x18
126d 00d1 | | Pop_Control Pop_Count_1
126e 0092 13fd | | Action Push_String_Extended,0x13fd ; "Frame:"
1270 8403 | | Call 0x2,0x3
1271 00d9 | | Load_Top At_Offset_1
1272 e5ff | | Load 0x2,-0x1
1273 3c0f |< | Execute Record,Field_Read,Field_Number 0xf
1274 00e0 | | Load_Encached Standard_Cache
1275 1818 | | Execute Package,Field_Execute,Field_Number 0x18
1276 e019 | | Load 0x0,0x19
1277 1818 | | Execute Package,Field_Execute,Field_Number 0x18
1278 00d1 | | Pop_Control Pop_Count_1
1279 0092 13f1 | | Action Push_String_Extended,0x13f1 ; "Offset:"
127b 8403 | | Call 0x2,0x3
127c 00d9 | | Load_Top At_Offset_1
127d 0092 13f0 | | Action Push_String_Extended,0x13f0 ; " "
127f e019 | | Load 0x0,0x19
1280 1818 | | Execute Package,Field_Execute,Field_Number 0x18
1281 00d1 | | Pop_Control Pop_Count_1
1282 00d9 | | Load_Top At_Offset_1
1283 e5ff | | Load 0x2,-0x1
1284 3c10 |< | Execute Record,Field_Read,Field_Number 0x10
1285 00e0 | | Load_Encached Standard_Cache
1286 1818 | | Execute Package,Field_Execute,Field_Number 0x18
1287 e019 | | Load 0x0,0x19
1288 1818 | | Execute Package,Field_Execute,Field_Number 0x18
1289 00d1 | | Pop_Control Pop_Count_1
128a 00d9 | | Load_Top At_Offset_1
128b 0092 13fe | | Action Push_String_Extended,0x13fe ; " FramePtr: "
128d e019 | | Load 0x0,0x19
128e 1818 | | Execute Package,Field_Execute,Field_Number 0x18
128f 00d1 | | Pop_Control Pop_Count_1
1290 00d9 | | Load_Top At_Offset_1
1291 e5ff | | Load 0x2,-0x1
1292 3c11 |< | Execute Record,Field_Read,Field_Number 0x11
1293 801e | | Call 0x0,0x1e
1294 e019 | | Load 0x0,0x19
1295 1818 | | Execute Package,Field_Execute,Field_Number 0x18
1296 00d1 | | Pop_Control Pop_Count_1
1297 00d9 | | Load_Top At_Offset_1
1298 e019 | | Load 0x0,0x19
1299 1813 | | Execute Package,Field_Execute,Field_Number 0x13
129a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
129b 0000 0000 | | .BLANK 0000[0x5]
12a0 ; --------------------------------------------------------------------------------------
12a0 ; SUBPROGRAM
12a0 ; --------------------------------------------------------------------------------------
12a0 12ad | | .CONST 0x12ad ; Address of begin
12a1 0004 | | .CONST 0x0004 ; Address of exception handler
12a2 0002 | | .CONST 0x0002 ; Number of locals
12a3 INIT_12a0:
12a3 00da | | Load_Top At_Offset_2
12a4 e25b | [ | Load 0x1,0x5b
12a5 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
12a6 4878 |Hx | Short_Literal 0x78
12a7 0271 | q | Execute Discrete,Times
12a8 e019 | | Load 0x0,0x19
12a9 1b0e | | Execute Package,Field_Read,Field_Number 0xe
12aa 1c08 | | Execute_Immediate Run_Utility,0x8
12ab 00d8 | | Load_Top At_Offset_0
12ac 1c00 | | Execute_Immediate Run_Utility,0x0
12ad BODY_12a0:
12ad 00d8 | | Load_Top At_Offset_0
12ae 00ea | | Load_Encached Null_String_Cache
12af e019 | | Load 0x0,0x19
12b0 1810 | | Execute Package,Field_Execute,Field_Number 0x10
12b1 00d1 | | Pop_Control Pop_Count_1
12b2 00cf | | Action Mark_Auxiliary
12b3 e5ff | | Load 0x2,-0x1
12b4 e25b | [ | Load 0x1,0x5b
12b5 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
12b6 4801 |H | Short_Literal 0x1
12b7 0263 | c | Execute Discrete,Above_Bound
12b8 7019 |p | Jump_Nonzero 0x12d2
12b9 00db | | Load_Top At_Offset_3
12ba e5fe | | Load 0x2,-0x2
12bb 00da | | Load_Top At_Offset_2
12bc e5ff | | Load 0x2,-0x1
12bd e25b | [ | Load 0x1,0x5b
12be 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
12bf 8262 | b | Call 0x1,0x62
12c0 e019 | | Load 0x0,0x19
12c1 1818 | | Execute Package,Field_Execute,Field_Number 0x18
12c2 00d1 | | Pop_Control Pop_Count_1
12c3 e5fe | | Load 0x2,-0x2
12c4 6806 |h | Jump_Zero 0x12cb
12c5 00db | | Load_Top At_Offset_3
12c6 480a |H | Short_Literal 0xa
12c7 e019 | | Load 0x0,0x19
12c8 1819 | | Execute Package,Field_Execute,Field_Number 0x19
12c9 00d1 | | Pop_Control Pop_Count_1
12ca 7805 |x | Jump 0x12d0
12cb 00db | | Load_Top At_Offset_3
12cc 480d |H | Short_Literal 0xd
12cd e019 | | Load 0x0,0x19
12ce 1819 | | Execute Package,Field_Execute,Field_Number 0x19
12cf 00d1 | | Pop_Control Pop_Count_1
12d0 00c8 | | Action Pop_Auxiliary_Range
12d1 3fe7 |? | Loop_Increasing 0x12b9
12d2 00ce | | Action Pop_Auxiliary
12d3 00d8 | | Load_Top At_Offset_0
12d4 e019 | | Load 0x0,0x19
12d5 1813 | | Execute Package,Field_Execute,Field_Number 0x13
12d6 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
12d7 0000 | | .XXX[0x1]
12d8 ; --------------------------------------------------------------------------------------
12d8 ; SUBPROGRAM
12d8 ; --------------------------------------------------------------------------------------
12d8 12db | | .CONST 0x12db ; Address of begin
12d9 0004 | | .CONST 0x0004 ; Address of exception handler
12da 0001 | | .CONST 0x0001 ; Number of locals
12db BODY_12d8:
12db INIT_12d8:
12db 00db | | Load_Top At_Offset_3
12dc 6805 |h | Jump_Zero 0x12e2
12dd 00da | | Load_Top At_Offset_2
12de e20d | | Load 0x1,0xd
12df 011c | | Execute Any,Convert_Unchecked
12e0 1c01 | | Execute_Immediate Run_Utility,0x1
12e1 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
12e2 00da | | Load_Top At_Offset_2
12e3 461b |F | Jump_Case 0x1c
12e4 781e |x | Jump 0x1303 ; case 0x0
12e5 7820 |x | Jump 0x1306 ; case 0x1
12e6 7846 |xF | Jump 0x132d ; case 0x2
12e7 7848 |xH | Jump 0x1330 ; case 0x3
12e8 782c |x, | Jump 0x1315 ; case 0x4
12e9 7849 |xI | Jump 0x1333 ; case 0x5
12ea 781e |x | Jump 0x1309 ; case 0x6
12eb 7823 |x# | Jump 0x130f ; case 0x7
12ec 7825 |x% | Jump 0x1312 ; case 0x8
12ed 7848 |xH | Jump 0x1336 ; case 0x9
12ee 784a |xJ | Jump 0x1339 ; case 0xa
12ef 784c |xL | Jump 0x133c ; case 0xb
12f0 784e |xN | Jump 0x133f ; case 0xc
12f1 7850 |xP | Jump 0x1342 ; case 0xd
12f2 7852 |xR | Jump 0x1345 ; case 0xe
12f3 7836 |x6 | Jump 0x132a ; case 0xf
12f4 7823 |x# | Jump 0x1318 ; case 0x10
12f5 7825 |x% | Jump 0x131b ; case 0x11
12f6 7827 |x' | Jump 0x131e ; case 0x12
12f7 7814 |x | Jump 0x130c ; case 0x13
12f8 782e |x. | Jump 0x1327 ; case 0x14
12f9 782a |x* | Jump 0x1324 ; case 0x15
12fa 784d |xM | Jump 0x1348 ; case 0x16
12fb 784f |xO | Jump 0x134b ; case 0x17
12fc 7851 |xQ | Jump 0x134e ; case 0x18
12fd 7823 |x# | Jump 0x1321 ; case 0x19
12fe 7852 |xR | Jump 0x1351 ; case 0x1a
12ff 7800 |x | Jump 0x1300 ; case 0x1b
1300 0092 13e0 | | Action Push_String_Extended,0x13e0 ; "F"
1302 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
1303 0092 13ff | | Action Push_String_Extended,0x13ff ; "NO"
1305 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
1306 0092 13d4 | | Action Push_String_Extended,0x13d4 ; "ST"
1308 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
1309 0092 13e4 | | Action Push_String_Extended,0x13e4 ; "VCI"
130b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
130c 0092 13d1 | | Action Push_String_Extended,0x13d1 ; "LTI"
130e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
130f 0092 13d9 | | Action Push_String_Extended,0x13d9 ; "CTD"
1311 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
1312 0092 13de | | Action Push_String_Extended,0x13de ; "HCT"
1314 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
1315 0092 13dd | | Action Push_String_Extended,0x13dd ; "P"
1317 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
1318 0092 1400 | | Action Push_String_Extended,0x1400 ; "GAB"
131a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
131b 0092 13d2 | | Action Push_String_Extended,0x13d2 ; "L"
131d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
131e 0092 13d3 | | Action Push_String_Extended,0x13d3 ; "LFC"
1320 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
1321 0092 13ce | | Action Push_String_Extended,0x13ce ; "LOAD"
1323 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
1324 0092 13d5 | | Action Push_String_Extended,0x13d5 ; "SRV"
1326 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
1327 0092 13dc | | Action Push_String_Extended,0x13dc ; "PO"
1329 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
132a 0092 13e2 | | Action Push_String_Extended,0x13e2 ; "VA"
132c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
132d 0092 13d7 | | Action Push_String_Extended,0x13d7 ; "TA"
132f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
1330 0092 13e1 | | Action Push_String_Extended,0x13e1 ; "FA"
1332 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
1333 0092 13e3 | | Action Push_String_Extended,0x13e3 ; "VRF"
1335 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
1336 0092 13e5 | | Action Push_String_Extended,0x13e5 ; "RFA"
1338 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
1339 0092 13db | | Action Push_String_Extended,0x13db ; "PF"
133b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
133c 0092 13d8 | | Action Push_String_Extended,0x13d8 ; "TF"
133e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
133f 0092 13e7 | | Action Push_String_Extended,0x13e7 ; "AA"
1341 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
1342 0092 13df | | Action Push_String_Extended,0x13df ; "HAA"
1344 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
1345 0092 13e8 | | Action Push_String_Extended,0x13e8 ; "AR"
1347 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
1348 0092 13da | | Action Push_String_Extended,0x13da ; "CC"
134a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
134b 0092 13e6 | | Action Push_String_Extended,0x13e6 ; "RC"
134d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
134e 0092 13e9 | | Action Push_String_Extended,0x13e9 ; "ABR"
1350 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
1351 0092 13d6 | | Action Push_String_Extended,0x13d6 ; "SPDIS"
1353 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
1354 0000 0000 | | .BLANK 0000[0x4]
1358 ; --------------------------------------------------------------------------------------
1358 ; SUBPROGRAM
1358 ; --------------------------------------------------------------------------------------
1358 135b | [ | .CONST 0x135b ; Address of begin
1359 0004 | | .CONST 0x0004 ; Address of exception handler
135a 0001 | | .CONST 0x0001 ; Number of locals
135b BODY_1358:
135b INIT_1358:
135b 00da | | Load_Top At_Offset_2
135c 0f01 | | Execute_Immediate Equal,0x1
135d 7003 |p | Jump_Nonzero 0x1361
135e 0092 1401 | | Action Push_String_Extended,0x1401 ; " F"
1360 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
1361 0092 1402 | | Action Push_String_Extended,0x1402 ; " T"
1363 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
1364 0000 0000 | | .BLANK 0000[0x4]
1368 ; --------------------------------------------------------------------------------------
1368 ; SUBPROGRAM
1368 ; --------------------------------------------------------------------------------------
1368 136b | k | .CONST 0x136b ; Address of begin
1369 0004 | | .CONST 0x0004 ; Address of exception handler
136a 0001 | | .CONST 0x0001 ; Number of locals
136b BODY_1368:
136b INIT_1368:
136b 4501 |E | Exit_Suprogram New_Top_Offset 0x1
136c 0000 0000 | | .BLANK 0000[0x4]
1370 ; --------------------------------------------------------------------------------------
1370 ; SUBPROGRAM
1370 ; --------------------------------------------------------------------------------------
1370 1379 | y | .CONST 0x1379 ; Address of begin
1371 0004 | | .CONST 0x0004 ; Address of exception handler
1372 0002 | | .CONST 0x0002 ; Number of locals
1373 INIT_1370:
1373 4832 |H2 | Short_Literal 0x32
1374 e019 | | Load 0x0,0x19
1375 1b0e | | Execute Package,Field_Read,Field_Number 0xe
1376 1c08 | | Execute_Immediate Run_Utility,0x8
1377 00d8 | | Load_Top At_Offset_0
1378 1c00 | | Execute_Immediate Run_Utility,0x0
1379 BODY_1370:
1379 00d8 | | Load_Top At_Offset_0
137a e419 | | Load 0x2,0x19
137b e01a | | Load 0x0,0x1a
137c 180f | | Execute Package,Field_Execute,Field_Number 0xf
137d 00d2 | | Pop_Control Pop_Count_2
137e 00d8 | | Load_Top At_Offset_0
137f e019 | | Load 0x0,0x19
1380 1813 | | Execute Package,Field_Execute,Field_Number 0x13
1381 00ca | | Action Exit_Nullary_Function
1382 0000 0000 | | .BLANK 0000[0x6]
1388 ; --------------------------------------------------------------------------------------
1388 ; SUBPROGRAM
1388 ; --------------------------------------------------------------------------------------
1388 138b | | .CONST 0x138b ; Address of begin
1389 0004 | | .CONST 0x0004 ; Address of exception handler
138a 0001 | | .CONST 0x0001 ; Number of locals
138b BODY_1388:
138b INIT_1388:
138b e5fe | | Load 0x2,-0x2
138c 681a |h | Jump_Zero 0x13a7
138d e402 | | Load 0x2,0x2
138e e019 | | Load 0x0,0x19
138f 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
1390 00d8 | | Load_Top At_Offset_0
1391 00e4 | | Load_Encached Positive_Cache
1392 0260 | ` | Execute Discrete,In_Type
1393 7001 |p | Jump_Nonzero 0x1395
1394 0801 | | Execute_Immediate Raise,0x1
1395 e402 | | Load 0x2,0x2
1396 e019 | | Load 0x0,0x19
1397 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
1398 0e20 | | Execute_Immediate Not_Equal,0x20
1399 6805 |h | Jump_Zero 0x139f
139a e402 | | Load 0x2,0x2
139b 4820 |H | Short_Literal 0x20
139c e019 | | Load 0x0,0x19
139d 1819 | | Execute Package,Field_Execute,Field_Number 0x19
139e 00d1 | | Pop_Control Pop_Count_1
139f e402 | | Load 0x2,0x2
13a0 00db | | Load_Top At_Offset_3
13a1 0092 13f0 | | Action Push_String_Extended,0x13f0 ; " "
13a3 01cc | | Execute Vector,Catenate
13a4 e019 | | Load 0x0,0x19
13a5 1818 | | Execute Package,Field_Execute,Field_Number 0x18
13a6 00d1 | | Pop_Control Pop_Count_1
13a7 4502 |E | Exit_Suprogram New_Top_Offset 0x2
13a8 ; --------------------------------------------------------------------------------------
13a8 ; SUBPROGRAM
13a8 ; --------------------------------------------------------------------------------------
13a8 13ab | | .CONST 0x13ab ; Address of begin
13a9 0004 | | .CONST 0x0004 ; Address of exception handler
13aa 0001 | | .CONST 0x0001 ; Number of locals
13ab BODY_13a8:
13ab INIT_13a8:
13ab 4601 |F | Jump_Case 0x2
13ac 7801 |x | Jump 0x13ae ; case 0x0
13ad 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
13ae 00da | | Load_Top At_Offset_2
13af 3411 |4 | Execute Record,Field_Reference,Field_Number 0x11
13b0 0125 | % | Execute Any,Set_Constraint
13b1 00da | | Load_Top At_Offset_2
13b2 3411 |4 | Execute Record,Field_Reference,Field_Number 0x11
13b3 1c00 | | Execute_Immediate Run_Utility,0x0
13b4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
13b5 ; --------------------------------------------------------------------------------------
13b5 ; STRING TABLE
13b5 ; --------------------------------------------------------------------------------------
13b5 009e | | .STRTAB 0x009e->0x1404 ; "NO_OP"
13b6 00a1 | | .STRTAB 0x00a1->0x1406 ; "STORE_TASK"
13b7 00a9 | | .STRTAB 0x00a9->0x140b ; "TASK_ACCESS"
13b8 00b2 | | .STRTAB 0x00b2->0x1411 ; "FRAME_ACCESS"
13b9 00bc | | .STRTAB 0x00bc->0x1417 ; "PACKAGE_ACCESS"
13ba 00c8 | | .STRTAB 0x00c8->0x141e ; "VARIANT_RECORD_FIELD_ACCESS"
13bb 00e1 | | .STRTAB 0x00e1->0x142b ; "VARIANT_CLAUSE_INDEX_READ"
13bc 00f8 | | .STRTAB 0x00f8->0x1438 ; "CONVERT_TO_DISCRETE"
13bd 0109 | | .STRTAB 0x0109->0x1441 ; "HEAP_CONVERT_TO_DISCRETE"
13be 011f | | .STRTAB 0x011f->0x144d ; "RECORD_FIELD_ACCESS"
13bf 0130 | 0 | .STRTAB 0x0130->0x1457 ; "PACKAGE_FIELD_ACCESS"
13c0 0142 | B | .STRTAB 0x0142->0x1461 ; "TASK_FIELD_ACCESS"
13c1 0151 | Q | .STRTAB 0x0151->0x1469 ; "ALL_ACCESS"
13c2 0159 | Y | .STRTAB 0x0159->0x146e ; "HEAP_ALL_ACCESS"
13c3 0166 | f | .STRTAB 0x0166->0x1476 ; "ARRAY_ACCESS"
13c4 0170 | p | .STRTAB 0x0170->0x147c ; "VECTOR_ACCESS"
13c5 017b | { | .STRTAB 0x017b->0x1482 ; "GET_ARRAY_BOUNDS"
13c6 0189 | | .STRTAB 0x0189->0x148a ; "LOAD_DISCRETE_CONSTANT"
13c7 019d | | .STRTAB 0x019d->0x1495 ; "LOAD_FLOAT_CONSTANT"
13c8 01ae | | .STRTAB 0x01ae->0x149f ; "LOAD_TASK_ID"
13c9 01b8 | | .STRTAB 0x01b8->0x14a5 ; "POP"
13ca 01b9 | | .STRTAB 0x01b9->0x14a6 ; "STORE_RETURN_VALUE"
13cb 01c9 | | .STRTAB 0x01c9->0x14af ; "CLEAR_CONTEXT"
13cc 01d4 | | .STRTAB 0x01d4->0x14b6 ; "RESTORE_CONTEXT"
13cd 01e1 | | .STRTAB 0x01e1->0x14bd ; "ARRAY_BLOCK_READ"
13ce 01ef | | .STRTAB 0x01ef->0x14c5 ; "LOAD"
13cf 01f1 | | .STRTAB 0x01f1->0x14c7 ; "SPECIAL_TYPE_DISPLAY"
13d0 0203 | | .STRTAB 0x0203->0x14d1 ; "FINI"
13d1 0205 | | .STRTAB 0x0205->0x14d3 ; "LTI"
13d2 0206 | | .STRTAB 0x0206->0x14d5 ; "L"
13d3 0205 | | .STRTAB 0x0205->0x14d5 ; "LFC"
13d4 0206 | | .STRTAB 0x0206->0x14d7 ; "ST"
13d5 0206 | | .STRTAB 0x0206->0x14d8 ; "SRV"
13d6 0207 | | .STRTAB 0x0207->0x14d9 ; "SPDIS"
13d7 020a | | .STRTAB 0x020a->0x14dc ; "TA"
13d8 020a | | .STRTAB 0x020a->0x14dd ; "TF"
13d9 020a | | .STRTAB 0x020a->0x14de ; "CTD"
13da 020b | | .STRTAB 0x020b->0x14df ; "CC"
13db 020b | | .STRTAB 0x020b->0x14e0 ; "PF"
13dc 020b | | .STRTAB 0x020b->0x14e1 ; "PO"
13dd 020b | | .STRTAB 0x020b->0x14e2 ; "P"
13de 020a | | .STRTAB 0x020a->0x14e3 ; "HCT"
13df 020b | | .STRTAB 0x020b->0x14e4 ; "HAA"
13e0 020c | | .STRTAB 0x020c->0x14e6 ; "F"
13e1 020b | | .STRTAB 0x020b->0x14e6 ; "FA"
13e2 020b | | .STRTAB 0x020b->0x14e7 ; "VA"
13e3 020b | | .STRTAB 0x020b->0x14e8 ; "VRF"
13e4 020c | | .STRTAB 0x020c->0x14ea ; "VCI"
13e5 020d | | .STRTAB 0x020d->0x14eb ; "RFA"
13e6 020e | | .STRTAB 0x020e->0x14ed ; "RC"
13e7 020e | | .STRTAB 0x020e->0x14ee ; "AA"
13e8 020e | | .STRTAB 0x020e->0x14ef ; "AR"
13e9 020e | | .STRTAB 0x020e->0x14f0 ; "ABR"
13ea 020f | | .STRTAB 0x020f->0x14f1 ; "["
13eb 020e | | .STRTAB 0x020e->0x14f2 ; "]"
13ec 020d | | .STRTAB 0x020d->0x14f2 ; "Result"
13ed 0211 | | .STRTAB 0x0211->0x14f5 ; "Mark"
13ee 0213 | | .STRTAB 0x0213->0x14f7 ; "Index:"
13ef 0217 | | .STRTAB 0x0217->0x14fa ; "Task:"
13f0 021a | | .STRTAB 0x021a->0x14fd ; " "
13f1 0219 | | .STRTAB 0x0219->0x14fd ; "Offset:"
13f2 021e | | .STRTAB 0x021e->0x1501 ; "Start_Offset:"
13f3 0229 | ) | .STRTAB 0x0229->0x1507 ; "Max_Elements:"
13f4 0234 | 4 | .STRTAB 0x0234->0x150e ; "Instruction_Count:"
13f5 0244 | D | .STRTAB 0x0244->0x1517 ; "Space: (skipped)"
13f6 0252 | R | .STRTAB 0x0252->0x151f ; " Pop"
13f7 0254 | T | .STRTAB 0x0254->0x1521 ; " Write"
13f8 0258 | X | .STRTAB 0x0258->0x1524 ; "Fixed"
13f9 025b | [ | .STRTAB 0x025b->0x1526 ; "Variant"
13fa 0260 | ` | .STRTAB 0x0260->0x152a ; "Direct"
13fb 0264 | d | .STRTAB 0x0264->0x152d ; "Indirect"
13fc 026a | j | .STRTAB 0x026a->0x1531 ; "Field:"
13fd 026e | n | .STRTAB 0x026e->0x1534 ; "Frame:"
13fe 0272 | r | .STRTAB 0x0272->0x1537 ; " FramePtr: "
13ff 027b | { | .STRTAB 0x027b->0x153c ; "NO"
1400 027b | { | .STRTAB 0x027b->0x153d ; "GAB"
1401 027c | | | .STRTAB 0x027c->0x153f ; " F"
1402 027c | | | .STRTAB 0x027c->0x1540 ; " T"
1403 027c | | | .STREND 0x027c->0x1541
1404 4e4f 5f4f |NO_O| .STRTAB_STRINGS
1541 0000 0000 | | .BLANK 0000[0x7]
1548 ; --------------------------------------------------------------------------------------
1548 ; Debug Table
1548 ; --------------------------------------------------------------------------------------
1548 0004 0006 | | .DEBUG4 0x0004,0x0006,0x9a41,0x0000,0x0001,0x0000
154e 8081 cdd1 | | .XXX[0xb2]
1550 95c1 c195 | |
1552 9081 a5b8 | |
1554 81d1 a1a5 | |
1556 cc81 dd85 | |
1558 e481 85b1 | |
155a dd85 e5cc | |
155c 81cd d1bd | |
155e c1cc 81dd | |
1560 a5d1 a1a5 | |
1562 b881 d1a1 | |
1564 a5cc 81cd | |
1566 d589 c1c9 | |
1568 bd9d c985 | |
156a b4b8 8081 | |
156c 0d85 b1b1 | |
156e cc28 8081 | ( |
1570 85c9 9481 | |
1572 95e1 958d | |
1574 d5d1 9590 | |
1576 8185 cc81 | |
1578 c185 c9d0 | |
157a 81bd 9881 | |
157c 8481 cda5 | |
157e b99d b194 | |
1580 81cd d195 | |
1582 c081 dda1 | |
1584 95b8 8191 | |
1586 bda5 b99c | |
1588 8131 bd8d | 1 |
158a 85b1 7d4d | }M|
158c d185 d195 | |
158e b595 b9d0 | |
1590 2880 81cd |( |
1592 d195 c1c1 | |
1594 a5b9 9cb8 | |
1596 8081 2598 | % |
1598 81d1 a194 | |
159a 81cd d589 | |
159c c1c9 bd9d | |
159e c985 b481 | |
15a0 c995 d1d5 | |
15a2 c9b9 ccb0 | |
15a4 81d1 a194 | |
15a6 81d1 85cd | |
15a8 ac81 cdd1 | |
15aa bdc1 cc81 | |
15ac 85d0 81d1 | |
15ae a194 2880 | ( |
15b0 8189 959d | |
15b2 a5b9 b9a5 | |
15b4 b99c 81bd | |
15b6 9881 d1a1 | |
15b8 9481 b995 | |
15ba e1d0 81cd | |
15bc d185 d195 | |
15be b595 b9d0 | |
15c0 81a5 d081 | |
15c2 a5cc 8185 | |
15c4 89bd d5d0 | |
15c6 81d1 bc81 | |
15c8 95e1 958d | |
15ca d5d1 94b8 | |
15cc 2828 8081 |(( |
15ce 4dd1 95c1 |M |
15d0 c1a5 b99c | |
15d2 81cd d589 | |
15d4 cdd1 85b9 | |
15d6 d1a5 85b1 | |
15d8 b1e4 81cd | |
15da b1bd ddcc | |
15dc 8195 e195 | |
15de 8dd5 d1a5 | |
15e0 bdb8 81bd | |
15e2 9881 d1a1 | |
15e4 9481 c1c9 | |
15e6 bd9d c985 | |
15e8 b4b8 8081 | |
15ea 25d0 81b5 |% |
15ec 85e4 8189 | |
15ee 9428 8081 | ( |
15f0 dda5 cd94 | |
15f2 81d1 bc81 | |
15f4 cd95 d081 | |
15f6 89c9 9585 | |
15f8 adc1 bda5 | |
15fa b9d1 cc81 | |
15fc b995 85c8 | |
15fe 81d1 a194 | |