|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 14336 (0x3800)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_03b8fe
└─⟦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 1bf8 | | .CONST 0x1bf8 ; 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 8012 | | .CONST 0x8012 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0368 | h | .CONST 0x0368 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0167 | g | .CONST 0x0167 ; Number of locals
000b INIT_0008:
000b 00c4 | | Action Make_Default
000c 00c4 | | Action Make_Default
000d 00c4 | | Action Make_Default
000e 00c4 | | Action Make_Default
000f 00c4 | | Action Make_Default
0010 029a 037b | {| Declare_Subprogram INIT_0378,For_Outer_Call,Visible,Unelaborated
0012 c211 | | Store 0x1,0x11
0013 00bf | | Action Accept_Activation
0014 4800 |H | Short_Literal 0x0
0015 0093 1a83 | | push_full_address INIT_1a80
0017 02a0 | | Declare_Subprogram Null_Subprogram
0018 038e | | Declare_Type Package,Defined
0019 e001 | | Load 0x0,0x1
001a 4801 |H | Short_Literal 0x1
001b e212 | | Load 0x1,0x12
001c 020e | | Execute Module,Augment_Imports
001d 0387 | | Declare_Variable Package
001e 00d8 | | Load_Top At_Offset_0
001f 020f | | Execute Module,Activate
0020 4800 |H | Short_Literal 0x0
0021 487f |H | Short_Literal 0x7f
0022 00e1 | | Load_Encached Boolean_Cache
0023 02a0 | | Declare_Subprogram Null_Subprogram
0024 4801 |H | Short_Literal 0x1
0025 035d | ] | Declare_Type Array,Defined
0026 4800 |H | Short_Literal 0x0
0027 6348 |cH | Indirect_Literal Discrete,0x370,{0x00000000, 0x000fffff}
0028 00e5 | | Load_Encached Long_Integer_Cache
0029 03f8 | | Declare_Type Discrete,Constrained
002a e212 | | Load 0x1,0x12
002b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
002c 00e3 | | Load_Encached Natural_Cache
002d 06ff | | Execute_Immediate Set_Value_Unchecked,0xff
002e 00d8 | | Load_Top At_Offset_0
002f 09ff | | Execute_Immediate Binary_Scale,-0x1
0030 0275 | u | Execute Discrete,Unary_Minus
0031 0a03 | | Execute_Immediate Plus,0x3
0032 00e5 | | Load_Encached Long_Integer_Cache
0033 03f1 | | Declare_Variable Discrete,With_Value
0034 00d8 | | Load_Top At_Offset_0
0035 633a |c: | Indirect_Literal Discrete,0x370,{0x00000000, 0x000fffff}
0036 00e5 | | Load_Encached Long_Integer_Cache
0037 03f8 | | Declare_Type Discrete,Constrained
0038 e215 | | Load 0x1,0x15
0039 0007 | | Action Break_Optional
003a 00e5 | | Load_Encached Long_Integer_Cache
003b 0266 | f | Execute Discrete,Bounds
003c 00e1 | | Load_Encached Boolean_Cache
003d 02a0 | | Declare_Subprogram Null_Subprogram
003e 4801 |H | Short_Literal 0x1
003f 0350 | P | Declare_Type Array,Defined,Bounds_With_Object
0040 4800 |H | Short_Literal 0x0
0041 4fff |O | Short_Literal -0x1
0042 e21a | | Load 0x1,0x1a
0043 0334 | 4 | Declare_Variable Array,With_Constraint
0044 029d 03bb | | Declare_Subprogram INIT_03b8,For_Outer_Call
0046 a002 | | Store_Unchecked 0x0,0x2
0047 00c6 | | Action Check_Subprogram_Elaborated
0048 e214 | | Load 0x1,0x14
0049 e001 | | Load 0x0,0x1
004a 1b50 | P | Execute Package,Field_Read,Field_Number 0x50
004b e003 | | Load 0x0,0x3
004c e004 | | Load 0x0,0x4
004d 4800 |H | Short_Literal 0x0
004e 0007 | | Action Break_Optional
004f a002 | | Store_Unchecked 0x0,0x2
0050 00c6 | | Action Check_Subprogram_Elaborated
0051 e001 | | Load 0x0,0x1
0052 1b50 | P | Execute Package,Field_Read,Field_Number 0x50
0053 e214 | | Load 0x1,0x14
0054 e005 | | Load 0x0,0x5
0055 e006 | | Load 0x0,0x6
0056 4800 |H | Short_Literal 0x0
0057 0007 | | Action Break_Optional
0058 e001 | | Load 0x0,0x1
0059 1b50 | P | Execute Package,Field_Read,Field_Number 0x50
005a 012c | , | Execute Any,Size
005b e214 | | Load 0x1,0x14
005c 012c | , | Execute Any,Size
005d 027f | | Execute Discrete,Equal
005e 7001 |p | Jump_Nonzero 0x60
005f 0887 | | Execute_Immediate Raise,0x87
0060 e001 | | Load 0x0,0x1
0061 1b51 | Q | Execute Package,Field_Read,Field_Number 0x51
0062 012c | , | Execute Any,Size
0063 00e3 | | Load_Encached Natural_Cache
0064 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
0065 a002 | | Store_Unchecked 0x0,0x2
0066 00c6 | | Action Check_Subprogram_Elaborated
0067 e215 | | Load 0x1,0x15
0068 e001 | | Load 0x0,0x1
0069 1b51 | Q | Execute Package,Field_Read,Field_Number 0x51
006a e007 | | Load 0x0,0x7
006b e008 | | Load 0x0,0x8
006c 4800 |H | Short_Literal 0x0
006d 0007 | | Action Break_Optional
006e a002 | | Store_Unchecked 0x0,0x2
006f 00c6 | | Action Check_Subprogram_Elaborated
0070 e001 | | Load 0x0,0x1
0071 1b51 | Q | Execute Package,Field_Read,Field_Number 0x51
0072 e215 | | Load 0x1,0x15
0073 e009 | | Load 0x0,0x9
0074 e00a | | Load 0x0,0xa
0075 4800 |H | Short_Literal 0x0
0076 0007 | | Action Break_Optional
0077 e227 | ' | Load 0x1,0x27
0078 e215 | | Load 0x1,0x15
0079 012c | , | Execute Any,Size
007a 027f | | Execute Discrete,Equal
007b 7001 |p | Jump_Nonzero 0x7d
007c 0887 | | Execute_Immediate Raise,0x87
007d 4801 |H | Short_Literal 0x1
007e e227 | ' | Load 0x1,0x27
007f e21a | | Load 0x1,0x1a
0080 035b | [ | Declare_Type Array,Constrained
0081 a002 | | Store_Unchecked 0x0,0x2
0082 00c6 | | Action Check_Subprogram_Elaborated
0083 00d8 | | Load_Top At_Offset_0
0084 e001 | | Load 0x0,0x1
0085 1b51 | Q | Execute Package,Field_Read,Field_Number 0x51
0086 e00b | | Load 0x0,0xb
0087 e00c | | Load 0x0,0xc
0088 4800 |H | Short_Literal 0x0
0089 0007 | | Action Break_Optional
008a 029d 03cb | | Declare_Subprogram INIT_03c8,For_Outer_Call
008c 029d 0403 | | Declare_Subprogram INIT_0400,For_Outer_Call
008e e001 | | Load 0x0,0x1
008f 1b56 | V | Execute Package,Field_Read,Field_Number 0x56
0090 012c | , | Execute Any,Size
0091 00e3 | | Load_Encached Natural_Cache
0092 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
0093 4801 |H | Short_Literal 0x1
0094 e23a | : | Load 0x1,0x3a
0095 e21a | | Load 0x1,0x1a
0096 035b | [ | Declare_Type Array,Constrained
0097 a002 | | Store_Unchecked 0x0,0x2
0098 00c6 | | Action Check_Subprogram_Elaborated
0099 00d8 | | Load_Top At_Offset_0
009a e001 | | Load 0x0,0x1
009b 1b56 | V | Execute Package,Field_Read,Field_Number 0x56
009c e00d | | Load 0x0,0xd
009d e00e | | Load 0x0,0xe
009e 4800 |H | Short_Literal 0x0
009f 0007 | | Action Break_Optional
00a0 029d 0413 | | Declare_Subprogram INIT_0410,For_Outer_Call
00a2 029d 0423 | #| Declare_Subprogram INIT_0420,For_Outer_Call
00a4 a002 | | Store_Unchecked 0x0,0x2
00a5 00c6 | | Action Check_Subprogram_Elaborated
00a6 e001 | | Load 0x0,0x1
00a7 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00a8 e001 | | Load 0x0,0x1
00a9 1b4f | O | Execute Package,Field_Read,Field_Number 0x4f
00aa e00f | | Load 0x0,0xf
00ab e010 | | Load 0x0,0x10
00ac 4800 |H | Short_Literal 0x0
00ad 0007 | | Action Break_Optional
00ae e001 | | Load 0x0,0x1
00af 1b4f | O | Execute Package,Field_Read,Field_Number 0x4f
00b0 012c | , | Execute Any,Size
00b1 e001 | | Load 0x0,0x1
00b2 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00b3 012c | , | Execute Any,Size
00b4 027f | | Execute Discrete,Equal
00b5 7001 |p | Jump_Nonzero 0xb7
00b6 0887 | | Execute_Immediate Raise,0x87
00b7 a002 | | Store_Unchecked 0x0,0x2
00b8 00c6 | | Action Check_Subprogram_Elaborated
00b9 00e5 | | Load_Encached Long_Integer_Cache
00ba e001 | | Load 0x0,0x1
00bb 1b56 | V | Execute Package,Field_Read,Field_Number 0x56
00bc e011 | | Load 0x0,0x11
00bd e012 | | Load 0x0,0x12
00be 4800 |H | Short_Literal 0x0
00bf 0007 | | Action Break_Optional
00c0 00e5 | | Load_Encached Long_Integer_Cache
00c1 012c | , | Execute Any,Size
00c2 e23a | : | Load 0x1,0x3a
00c3 027f | | Execute Discrete,Equal
00c4 7001 |p | Jump_Nonzero 0xc6
00c5 0887 | | Execute_Immediate Raise,0x87
00c6 029d 0433 | 3| Declare_Subprogram INIT_0430,For_Outer_Call
00c8 029d 044b | K| Declare_Subprogram INIT_0448,For_Outer_Call
00ca a002 | | Store_Unchecked 0x0,0x2
00cb 00c6 | | Action Check_Subprogram_Elaborated
00cc e213 | | Load 0x1,0x13
00cd e001 | | Load 0x0,0x1
00ce 1b9c | | Execute Package,Field_Read,Field_Number 0x9c
00cf e013 | | Load 0x0,0x13
00d0 e014 | | Load 0x0,0x14
00d1 4800 |H | Short_Literal 0x0
00d2 0007 | | Action Break_Optional
00d3 a002 | | Store_Unchecked 0x0,0x2
00d4 00c6 | | Action Check_Subprogram_Elaborated
00d5 e213 | | Load 0x1,0x13
00d6 e001 | | Load 0x0,0x1
00d7 1b98 | | Execute Package,Field_Read,Field_Number 0x98
00d8 e015 | | Load 0x0,0x15
00d9 e016 | | Load 0x0,0x16
00da 4800 |H | Short_Literal 0x0
00db 0007 | | Action Break_Optional
00dc a002 | | Store_Unchecked 0x0,0x2
00dd 00c6 | | Action Check_Subprogram_Elaborated
00de e213 | | Load 0x1,0x13
00df e001 | | Load 0x0,0x1
00e0 1b95 | | Execute Package,Field_Read,Field_Number 0x95
00e1 e017 | | Load 0x0,0x17
00e2 e018 | | Load 0x0,0x18
00e3 4800 |H | Short_Literal 0x0
00e4 0007 | | Action Break_Optional
00e5 a002 | | Store_Unchecked 0x0,0x2
00e6 00c6 | | Action Check_Subprogram_Elaborated
00e7 e213 | | Load 0x1,0x13
00e8 e001 | | Load 0x0,0x1
00e9 1b97 | | Execute Package,Field_Read,Field_Number 0x97
00ea e019 | | Load 0x0,0x19
00eb e01a | | Load 0x0,0x1a
00ec 4800 |H | Short_Literal 0x0
00ed 0007 | | Action Break_Optional
00ee e01b | | Load 0x0,0x1b
00ef 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00f0 1911 | | Execute Package,Field_Reference,Field_Number 0x11
00f1 00c6 | | Action Check_Subprogram_Elaborated
00f2 e213 | | Load 0x1,0x13
00f3 e01c | | Load 0x0,0x1c
00f4 e01d | | Load 0x0,0x1d
00f5 4800 |H | Short_Literal 0x0
00f6 0007 | | Action Break_Optional
00f7 029d 0463 | c| Declare_Subprogram INIT_0460,For_Outer_Call
00f9 029d 0493 | | Declare_Subprogram INIT_0490,For_Outer_Call
00fb 029d 04ab | | Declare_Subprogram INIT_04a8,For_Outer_Call
00fd 029d 04bb | | Declare_Subprogram INIT_04b8,For_Outer_Call
00ff 029d 04d3 | | Declare_Subprogram INIT_04d0,For_Outer_Call
0101 029b 04eb | | Declare_Subprogram INIT_04e8,For_Outer_Call,Unelaborated
0103 1d6c | l | Execute_Immediate Reference_Lex_1,0x6c
0104 00c7 | | Action Elaborate_Subprogram
0105 1d6c | l | Execute_Immediate Reference_Lex_1,0x6c
0106 00c6 | | Action Check_Subprogram_Elaborated
0107 e001 | | Load 0x0,0x1
0108 1b92 | | Execute Package,Field_Read,Field_Number 0x92
0109 e01e | | Load 0x0,0x1e
010a e01f | | Load 0x0,0x1f
010b 4800 |H | Short_Literal 0x0
010c 0007 | | Action Break_Optional
010d 1d6c | l | Execute_Immediate Reference_Lex_1,0x6c
010e 00c6 | | Action Check_Subprogram_Elaborated
010f e001 | | Load 0x0,0x1
0110 1b99 | | Execute Package,Field_Read,Field_Number 0x99
0111 e020 | | Load 0x0,0x20
0112 e021 | ! | Load 0x0,0x21
0113 4800 |H | Short_Literal 0x0
0114 0007 | | Action Break_Optional
0115 4801 |H | Short_Literal 0x1
0116 4840 |H@ | Short_Literal 0x40
0117 e21a | | Load 0x1,0x1a
0118 035b | [ | Declare_Type Array,Constrained
0119 a002 | | Store_Unchecked 0x0,0x2
011a 00c6 | | Action Check_Subprogram_Elaborated
011b 00d8 | | Load_Top At_Offset_0
011c e001 | | Load 0x0,0x1
011d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
011e e022 | " | Load 0x0,0x22
011f e023 | # | Load 0x0,0x23
0120 4800 |H | Short_Literal 0x0
0121 0007 | | Action Break_Optional
0122 029d 0503 | | Declare_Subprogram INIT_0500,For_Outer_Call
0124 4801 |H | Short_Literal 0x1
0125 4808 |H | Short_Literal 0x8
0126 e21a | | Load 0x1,0x1a
0127 035b | [ | Declare_Type Array,Constrained
0128 a002 | | Store_Unchecked 0x0,0x2
0129 00c6 | | Action Check_Subprogram_Elaborated
012a 00d8 | | Load_Top At_Offset_0
012b 00e8 | | Load_Encached Character_Cache
012c e024 | $ | Load 0x0,0x24
012d e025 | % | Load 0x0,0x25
012e 4800 |H | Short_Literal 0x0
012f 0007 | | Action Break_Optional
0130 029d 0533 | 3| Declare_Subprogram INIT_0530,For_Outer_Call
0132 029d 0543 | C| Declare_Subprogram INIT_0540,For_Outer_Call
0134 029d 055b | [| Declare_Subprogram INIT_0558,For_Outer_Call
0136 029d 0573 | s| Declare_Subprogram INIT_0570,For_Outer_Call
0138 029d 0593 | | Declare_Subprogram INIT_0590,For_Outer_Call
013a 029d 05b3 | | Declare_Subprogram INIT_05b0,For_Outer_Call
013c 029d 05c3 | | Declare_Subprogram INIT_05c0,For_Outer_Call
013e 029d 05db | | Declare_Subprogram INIT_05d8,For_Outer_Call
0140 029d 05f3 | | Declare_Subprogram INIT_05f0,For_Outer_Call
0142 029d 05fb | | Declare_Subprogram INIT_05f8,For_Outer_Call
0144 029d 061b | | Declare_Subprogram INIT_0618,For_Outer_Call
0146 029d 062b | +| Declare_Subprogram INIT_0628,For_Outer_Call
0148 029d 0653 | S| Declare_Subprogram INIT_0650,For_Outer_Call
014a 029d 067b | {| Declare_Subprogram INIT_0678,For_Outer_Call
014c 029d 0683 | | Declare_Subprogram INIT_0680,For_Outer_Call
014e 029d 0693 | | Declare_Subprogram INIT_0690,For_Outer_Call
0150 029d 06a3 | | Declare_Subprogram INIT_06a0,For_Outer_Call
0152 029d 06c3 | | Declare_Subprogram INIT_06c0,For_Outer_Call
0154 029d 06db | | Declare_Subprogram INIT_06d8,For_Outer_Call
0156 029d 06eb | | Declare_Subprogram INIT_06e8,For_Outer_Call
0158 029d 06fb | | Declare_Subprogram INIT_06f8,For_Outer_Call
015a 029d 070b | | Declare_Subprogram INIT_0708,For_Outer_Call
015c 029d 073b | ;| Declare_Subprogram INIT_0738,For_Outer_Call
015e 029d 0753 | S| Declare_Subprogram INIT_0750,For_Outer_Call
0160 029d 0763 | c| Declare_Subprogram INIT_0760,For_Outer_Call
0162 029d 078b | | Declare_Subprogram INIT_0788,For_Outer_Call
0164 029d 0793 | | Declare_Subprogram INIT_0790,For_Outer_Call
0166 029b 07a3 | | Declare_Subprogram INIT_07a0,For_Outer_Call,Unelaborated
0168 1d9d | | Execute_Immediate Reference_Lex_1,0x9d
0169 00c7 | | Action Elaborate_Subprogram
016a 1d9d | | Execute_Immediate Reference_Lex_1,0x9d
016b 00c6 | | Action Check_Subprogram_Elaborated
016c e001 | | Load 0x0,0x1
016d 1b51 | Q | Execute Package,Field_Read,Field_Number 0x51
016e e026 | & | Load 0x0,0x26
016f e027 | ' | Load 0x0,0x27
0170 4800 |H | Short_Literal 0x0
0171 0007 | | Action Break_Optional
0172 1d9d | | Execute_Immediate Reference_Lex_1,0x9d
0173 00c6 | | Action Check_Subprogram_Elaborated
0174 e001 | | Load 0x0,0x1
0175 1b56 | V | Execute Package,Field_Read,Field_Number 0x56
0176 e028 | ( | Load 0x0,0x28
0177 e029 | ) | Load 0x0,0x29
0178 4800 |H | Short_Literal 0x0
0179 0007 | | Action Break_Optional
017a e001 | | Load 0x0,0x1
017b 1ba2 | | Execute Package,Field_Read,Field_Number 0xa2
017c 012c | , | Execute Any,Size
017d 00e5 | | Load_Encached Long_Integer_Cache
017e 03f1 | | Declare_Variable Discrete,With_Value
017f 4801 |H | Short_Literal 0x1
0180 e2a6 | | Load 0x1,0xa6
0181 e21a | | Load 0x1,0x1a
0182 035b | [ | Declare_Type Array,Constrained
0183 a002 | | Store_Unchecked 0x0,0x2
0184 00c6 | | Action Check_Subprogram_Elaborated
0185 00d8 | | Load_Top At_Offset_0
0186 e001 | | Load 0x0,0x1
0187 1ba2 | | Execute Package,Field_Read,Field_Number 0xa2
0188 e02a | * | Load 0x0,0x2a
0189 e02b | + | Load 0x0,0x2b
018a 4800 |H | Short_Literal 0x0
018b 0007 | | Action Break_Optional
018c 029d 07f3 | | Declare_Subprogram INIT_07f0,For_Outer_Call
018e 029d 0813 | | Declare_Subprogram INIT_0810,For_Outer_Call
0190 029d 0833 | 3| Declare_Subprogram INIT_0830,For_Outer_Call
0192 e001 | | Load 0x0,0x1
0193 1ba3 | | Execute Package,Field_Read,Field_Number 0xa3
0194 012c | , | Execute Any,Size
0195 00e5 | | Load_Encached Long_Integer_Cache
0196 03f1 | | Declare_Variable Discrete,With_Value
0197 4801 |H | Short_Literal 0x1
0198 e2b0 | | Load 0x1,0xb0
0199 e21a | | Load 0x1,0x1a
019a 035b | [ | Declare_Type Array,Constrained
019b a002 | | Store_Unchecked 0x0,0x2
019c 00c6 | | Action Check_Subprogram_Elaborated
019d 00d8 | | Load_Top At_Offset_0
019e e001 | | Load 0x0,0x1
019f 1ba3 | | Execute Package,Field_Read,Field_Number 0xa3
01a0 e02c | , | Load 0x0,0x2c
01a1 e02d | - | Load 0x0,0x2d
01a2 4800 |H | Short_Literal 0x0
01a3 0007 | | Action Break_Optional
01a4 029d 083b | ;| Declare_Subprogram INIT_0838,For_Outer_Call
01a6 029d 085b | [| Declare_Subprogram INIT_0858,For_Outer_Call
01a8 029d 087b | {| Declare_Subprogram INIT_0878,For_Outer_Call
01aa 4801 |H | Short_Literal 0x1
01ab 61c0 |a | Indirect_Literal Discrete,0x36c,{0x00000000, 0x00002000}
01ac e21a | | Load 0x1,0x1a
01ad 035b | [ | Declare_Type Array,Constrained
01ae 029d 089b | | Declare_Subprogram INIT_0898,For_Outer_Call
01b0 029d 08bb | | Declare_Subprogram INIT_08b8,For_Outer_Call
01b2 029d 08e3 | | Declare_Subprogram INIT_08e0,For_Outer_Call
01b4 e001 | | Load 0x0,0x1
01b5 1ba0 | | Execute Package,Field_Read,Field_Number 0xa0
01b6 012c | , | Execute Any,Size
01b7 00e3 | | Load_Encached Natural_Cache
01b8 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
01b9 4801 |H | Short_Literal 0x1
01ba e2be | | Load 0x1,0xbe
01bb e21a | | Load 0x1,0x1a
01bc 035b | [ | Declare_Type Array,Constrained
01bd a002 | | Store_Unchecked 0x0,0x2
01be 00c6 | | Action Check_Subprogram_Elaborated
01bf 00d8 | | Load_Top At_Offset_0
01c0 e001 | | Load 0x0,0x1
01c1 1ba0 | | Execute Package,Field_Read,Field_Number 0xa0
01c2 e02e | . | Load 0x0,0x2e
01c3 e02f | / | Load 0x0,0x2f
01c4 4800 |H | Short_Literal 0x0
01c5 0007 | | Action Break_Optional
01c6 029d 0923 | #| Declare_Subprogram INIT_0920,For_Outer_Call
01c8 029d 0943 | C| Declare_Subprogram INIT_0940,For_Outer_Call
01ca 029d 0963 | c| Declare_Subprogram INIT_0960,For_Outer_Call
01cc a002 | | Store_Unchecked 0x0,0x2
01cd 00c6 | | Action Check_Subprogram_Elaborated
01ce 00e5 | | Load_Encached Long_Integer_Cache
01cf 00e6 | | Load_Encached Float_Cache
01d0 e030 | 0 | Load 0x0,0x30
01d1 e031 | 1 | Load 0x0,0x31
01d2 4800 |H | Short_Literal 0x0
01d3 0007 | | Action Break_Optional
01d4 a002 | | Store_Unchecked 0x0,0x2
01d5 00c6 | | Action Check_Subprogram_Elaborated
01d6 00e5 | | Load_Encached Long_Integer_Cache
01d7 e001 | | Load 0x0,0x1
01d8 1b5f | _ | Execute Package,Field_Read,Field_Number 0x5f
01d9 e032 | 2 | Load 0x0,0x32
01da e033 | 3 | Load 0x0,0x33
01db 4800 |H | Short_Literal 0x0
01dc 0007 | | Action Break_Optional
01dd 00e5 | | Load_Encached Long_Integer_Cache
01de 012c | , | Execute Any,Size
01df e001 | | Load 0x0,0x1
01e0 1b5f | _ | Execute Package,Field_Read,Field_Number 0x5f
01e1 012c | , | Execute Any,Size
01e2 027f | | Execute Discrete,Equal
01e3 7001 |p | Jump_Nonzero 0x1e5
01e4 0887 | | Execute_Immediate Raise,0x87
01e5 029d 099b | | Declare_Subprogram INIT_0998,For_Outer_Call
01e7 029b 09ab | | Declare_Subprogram INIT_09a8,For_Outer_Call,Unelaborated
01e9 1dd3 | | Execute_Immediate Reference_Lex_1,0xd3
01ea 00c7 | | Action Elaborate_Subprogram
01eb 029b 09db | | Declare_Subprogram INIT_09d8,For_Outer_Call,Unelaborated
01ed 1dd4 | | Execute_Immediate Reference_Lex_1,0xd4
01ee 00c7 | | Action Elaborate_Subprogram
01ef 029d 0a0b | | Declare_Subprogram INIT_0a08,For_Outer_Call
01f1 4800 |H | Short_Literal 0x0
01f2 4809 |H | Short_Literal 0x9
01f3 029f 0a43 | C| Declare_Subprogram INIT_0a40,For_Call
01f5 03fd | | Declare_Type Discrete,Defined
01f6 1dd3 | | Execute_Immediate Reference_Lex_1,0xd3
01f7 00c6 | | Action Check_Subprogram_Elaborated
01f8 00e2 | | Load_Encached Integer_Cache
01f9 e034 | 4 | Load 0x0,0x34
01fa e035 | 5 | Load 0x0,0x35
01fb 4800 |H | Short_Literal 0x0
01fc 0007 | | Action Break_Optional
01fd 1dd4 | | Execute_Immediate Reference_Lex_1,0xd4
01fe 00c6 | | Action Check_Subprogram_Elaborated
01ff 00e2 | | Load_Encached Integer_Cache
0200 e036 | 6 | Load 0x0,0x36
0201 e037 | 7 | Load 0x0,0x37
0202 4800 |H | Short_Literal 0x0
0203 0007 | | Action Break_Optional
0204 1dd4 | | Execute_Immediate Reference_Lex_1,0xd4
0205 00c6 | | Action Check_Subprogram_Elaborated
0206 00e5 | | Load_Encached Long_Integer_Cache
0207 e038 | 8 | Load 0x0,0x38
0208 e039 | 9 | Load 0x0,0x39
0209 4800 |H | Short_Literal 0x0
020a 0007 | | Action Break_Optional
020b 1dd4 | | Execute_Immediate Reference_Lex_1,0xd4
020c 00c6 | | Action Check_Subprogram_Elaborated
020d 00e1 | | Load_Encached Boolean_Cache
020e e03a | : | Load 0x0,0x3a
020f e03b | ; | Load 0x0,0x3b
0210 4800 |H | Short_Literal 0x0
0211 0007 | | Action Break_Optional
0212 1dd4 | | Execute_Immediate Reference_Lex_1,0xd4
0213 00c6 | | Action Check_Subprogram_Elaborated
0214 00e8 | | Load_Encached Character_Cache
0215 e03c | < | Load 0x0,0x3c
0216 e03d | = | Load 0x0,0x3d
0217 4800 |H | Short_Literal 0x0
0218 0007 | | Action Break_Optional
0219 1dd4 | | Execute_Immediate Reference_Lex_1,0xd4
021a 00c6 | | Action Check_Subprogram_Elaborated
021b 00e6 | | Load_Encached Float_Cache
021c e03e | > | Load 0x0,0x3e
021d e03f | ? | Load 0x0,0x3f
021e 4800 |H | Short_Literal 0x0
021f 0007 | | Action Break_Optional
0220 1dd4 | | Execute_Immediate Reference_Lex_1,0xd4
0221 00c6 | | Action Check_Subprogram_Elaborated
0222 00e7 | | Load_Encached Duration_Cache
0223 e040 | @ | Load 0x0,0x40
0224 e041 | A | Load 0x0,0x41
0225 4800 |H | Short_Literal 0x0
0226 0007 | | Action Break_Optional
0227 1dd4 | | Execute_Immediate Reference_Lex_1,0xd4
0228 00c6 | | Action Check_Subprogram_Elaborated
0229 00e4 | | Load_Encached Positive_Cache
022a e042 | B | Load 0x0,0x42
022b e043 | C | Load 0x0,0x43
022c 4800 |H | Short_Literal 0x0
022d 0007 | | Action Break_Optional
022e 1dd4 | | Execute_Immediate Reference_Lex_1,0xd4
022f 00c6 | | Action Check_Subprogram_Elaborated
0230 00e3 | | Load_Encached Natural_Cache
0231 e044 | D | Load 0x0,0x44
0232 e045 | E | Load 0x0,0x45
0233 4800 |H | Short_Literal 0x0
0234 0007 | | Action Break_Optional
0235 00e1 | | Load_Encached Boolean_Cache
0236 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0237 e001 | | Load 0x0,0x1
0238 1b4b | K | Execute Package,Field_Read,Field_Number 0x4b
0239 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
023a e001 | | Load 0x0,0x1
023b 1b50 | P | Execute Package,Field_Read,Field_Number 0x50
023c 0322 | " | Declare_Variable Record
023d 4800 |H | Short_Literal 0x0
023e e2fd | | Load 0x1,0xfd
023f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0240 4800 |H | Short_Literal 0x0
0241 e2fd | | Load 0x1,0xfd
0242 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0243 e001 | | Load 0x0,0x1
0244 1b50 | P | Execute Package,Field_Read,Field_Number 0x50
0245 0322 | " | Declare_Variable Record
0246 e2fd | | Load 0x1,0xfd
0247 e2fe | | Load 0x1,0xfe
0248 017d | } | Execute Record,Structure_Write
0249 e001 | | Load 0x0,0x1
024a 1b50 | P | Execute Package,Field_Read,Field_Number 0x50
024b 0322 | " | Declare_Variable Record
024c e2fd | | Load 0x1,0xfd
024d e2ff | | Load 0x1,0xff
024e 017d | } | Execute Record,Structure_Write
024f e001 | | Load 0x0,0x1
0250 1b50 | P | Execute Package,Field_Read,Field_Number 0x50
0251 0322 | " | Declare_Variable Record
0252 e2fd | | Load 0x1,0xfd
0253 e300 | | Load 0x1,0x100
0254 017d | } | Execute Record,Structure_Write
0255 e001 | | Load 0x0,0x1
0256 1b50 | P | Execute Package,Field_Read,Field_Number 0x50
0257 0322 | " | Declare_Variable Record
0258 e2fd | | Load 0x1,0xfd
0259 e301 | | Load 0x1,0x101
025a 017d | } | Execute Record,Structure_Write
025b e001 | | Load 0x0,0x1
025c 1b50 | P | Execute Package,Field_Read,Field_Number 0x50
025d 0322 | " | Declare_Variable Record
025e e2fd | | Load 0x1,0xfd
025f e302 | | Load 0x1,0x102
0260 017d | } | Execute Record,Structure_Write
0261 e001 | | Load 0x0,0x1
0262 1b50 | P | Execute Package,Field_Read,Field_Number 0x50
0263 0322 | " | Declare_Variable Record
0264 e2fd | | Load 0x1,0xfd
0265 e303 | | Load 0x1,0x103
0266 017d | } | Execute Record,Structure_Write
0267 e001 | | Load 0x0,0x1
0268 1b50 | P | Execute Package,Field_Read,Field_Number 0x50
0269 0322 | " | Declare_Variable Record
026a e2fd | | Load 0x1,0xfd
026b e304 | | Load 0x1,0x104
026c 017d | } | Execute Record,Structure_Write
026d e001 | | Load 0x0,0x1
026e 1b50 | P | Execute Package,Field_Read,Field_Number 0x50
026f 0322 | " | Declare_Variable Record
0270 e2fd | | Load 0x1,0xfd
0271 e305 | | Load 0x1,0x105
0272 017d | } | Execute Record,Structure_Write
0273 e001 | | Load 0x0,0x1
0274 1b50 | P | Execute Package,Field_Read,Field_Number 0x50
0275 0322 | " | Declare_Variable Record
0276 e2fd | | Load 0x1,0xfd
0277 e306 | | Load 0x1,0x106
0278 017d | } | Execute Record,Structure_Write
0279 029d 0a5b | [| Declare_Subprogram INIT_0a58,For_Outer_Call
027b 029d 0a6b | k| Declare_Subprogram INIT_0a68,For_Outer_Call
027d 029d 0a73 | s| Declare_Subprogram INIT_0a70,For_Outer_Call
027f 029d 0ab3 | | Declare_Subprogram INIT_0ab0,For_Outer_Call
0281 029d 0abb | | Declare_Subprogram INIT_0ab8,For_Outer_Call
0283 029d 0acb | | Declare_Subprogram INIT_0ac8,For_Outer_Call
0285 029d 0b13 | | Declare_Subprogram INIT_0b10,For_Outer_Call
0287 029d 0b23 | #| Declare_Subprogram INIT_0b20,For_Outer_Call
0289 029d 0b4b | K| Declare_Subprogram INIT_0b48,For_Outer_Call
028b 0092 1acc | | Action Push_String_Extended,0x1acc ; " => "
028d 0092 1acd | | Action Push_String_Extended,0x1acd ; "..."
028f e310 | | Load 0x1,0x110
0290 e311 | | Load 0x1,0x111
0291 01cc | | Execute Vector,Catenate
0292 0092 1ace | | Action Push_String_Extended,0x1ace ; ", "
0294 01cc | | Execute Vector,Catenate
0295 0007 | | Action Break_Optional
0296 e311 | | Load 0x1,0x111
0297 e312 | | Load 0x1,0x112
0298 01cc | | Execute Vector,Catenate
0299 0007 | | Action Break_Optional
029a 0092 1acf | | Action Push_String_Extended,0x1acf ; "Value\x00not\x00readable"
029c 0092 1ad0 | | Action Push_String_Extended,0x1ad0 ; "Field\x00not\x00initialized"
029e 0092 1ad1 | | Action Push_String_Extended,0x1ad1 ; "Element\x00not\x00initialized"
02a0 0092 1ad2 | | Action Push_String_Extended,0x1ad2 ; "Null\x00string"
02a2 0092 1ad3 | | Action Push_String_Extended,0x1ad3 ; "Null\x00vector"
02a4 0092 1ad4 | | Action Push_String_Extended,0x1ad4 ; "Field\x00value\x00not\x00readable"
02a6 0092 1ad5 | | Action Push_String_Extended,0x1ad5 ; "Exception\x00raised\x00reading\x00field\x00value"
02a8 0092 1ad6 | | Action Push_String_Extended,0x1ad6 ; "Element\x00value\x00not\x00readable"
02aa 0092 1ad7 | | Action Push_String_Extended,0x1ad7 ; "Exception\x00raised\x00readingelement\x00value"
02ac 0092 1ad8 | | Action Push_String_Extended,0x1ad8 ; "Uninitialized\x00boolean\x00value"
02ae 0092 1ad9 | | Action Push_String_Extended,0x1ad9 ; "Uninitialized\x00character\x00value"
02b0 0092 1ada | | Action Push_String_Extended,0x1ada ; "Object\x00too\x00big"
02b2 0092 1adb | | Action Push_String_Extended,0x1adb ; "Multi-dimensional\x00array"
02b4 029d 0b5b | [| Declare_Subprogram INIT_0b58,For_Outer_Call
02b6 029d 0b6b | k| Declare_Subprogram INIT_0b68,For_Outer_Call
02b8 029d 0b83 | | Declare_Subprogram INIT_0b80,For_Outer_Call
02ba 029d 0b93 | | Declare_Subprogram INIT_0b90,For_Outer_Call
02bc 029d 0bab | | Declare_Subprogram INIT_0ba8,For_Outer_Call
02be 029d 0bd3 | | Declare_Subprogram INIT_0bd0,For_Outer_Call
02c0 029d 0bf3 | | Declare_Subprogram INIT_0bf0,For_Outer_Call
02c2 029d 0c1b | | Declare_Subprogram INIT_0c18,For_Outer_Call
02c4 029d 0c63 | c| Declare_Subprogram INIT_0c60,For_Outer_Call
02c6 029d 0c8b | | Declare_Subprogram INIT_0c88,For_Outer_Call
02c8 029d 0ca3 | | Declare_Subprogram INIT_0ca0,For_Outer_Call
02ca 029d 0ccb | | Declare_Subprogram INIT_0cc8,For_Outer_Call
02cc 029d 0cf3 | | Declare_Subprogram INIT_0cf0,For_Outer_Call
02ce 029d 0d43 | C| Declare_Subprogram INIT_0d40,For_Outer_Call
02d0 029d 0d9b | | Declare_Subprogram INIT_0d98,For_Outer_Call
02d2 029d 0dd3 | | Declare_Subprogram INIT_0dd0,For_Outer_Call
02d4 029d 0ddb | | Declare_Subprogram INIT_0dd8,For_Outer_Call
02d6 029d 0df3 | | Declare_Subprogram INIT_0df0,For_Outer_Call
02d8 029d 0e03 | | Declare_Subprogram INIT_0e00,For_Outer_Call
02da 029d 0e73 | s| Declare_Subprogram INIT_0e70,For_Outer_Call
02dc 029d 0e93 | | Declare_Subprogram INIT_0e90,For_Outer_Call
02de 029d 0ea3 | | Declare_Subprogram INIT_0ea0,For_Outer_Call
02e0 029d 0eb3 | | Declare_Subprogram INIT_0eb0,For_Outer_Call
02e2 029d 0ec3 | | Declare_Subprogram INIT_0ec0,For_Outer_Call
02e4 029d 0edb | | Declare_Subprogram INIT_0ed8,For_Outer_Call
02e6 029d 0ef3 | | Declare_Subprogram INIT_0ef0,For_Outer_Call
02e8 0092 1adc | | Action Push_String_Extended,0x1adc ; "Inner_"
02ea 029d 0f0b | | Declare_Subprogram INIT_0f08,For_Outer_Call
02ec 029b 0f1b | | Declare_Subprogram INIT_0f18,For_Outer_Call,Unelaborated
02ee 029b 0fd3 | | Declare_Subprogram INIT_0fd0,For_Outer_Call,Unelaborated
02f0 029b 0ffb | | Declare_Subprogram INIT_0ff8,For_Outer_Call,Unelaborated
02f2 029b 1023 | #| Declare_Subprogram INIT_1020,For_Outer_Call,Unelaborated
02f4 029b 10ab | | Declare_Subprogram INIT_10a8,For_Outer_Call,Unelaborated
02f6 029b 10fb | | Declare_Subprogram INIT_10f8,For_Outer_Call,Unelaborated
02f8 029b 1143 | C| Declare_Subprogram INIT_1140,For_Outer_Call,Unelaborated
02fa 029b 1183 | | Declare_Subprogram INIT_1180,For_Outer_Call,Unelaborated
02fc 029d 11bb | | Declare_Subprogram INIT_11b8,For_Outer_Call
02fe 029d 11e3 | | Declare_Subprogram INIT_11e0,For_Outer_Call
0300 029d 120b | | Declare_Subprogram INIT_1208,For_Outer_Call
0302 029d 1263 | c| Declare_Subprogram INIT_1260,For_Outer_Call
0304 029d 12eb | | Declare_Subprogram INIT_12e8,For_Outer_Call
0306 029d 130b | | Declare_Subprogram INIT_1308,For_Outer_Call
0308 029d 132b | +| Declare_Subprogram INIT_1328,For_Outer_Call
030a 4944 |ID | Short_Literal 0x144
030b 4801 |H | Short_Literal 0x1
030c 0099 | | Action Reference_Dynamic
030d 00c7 | | Action Elaborate_Subprogram
030e 029d 1353 | S| Declare_Subprogram INIT_1350,For_Outer_Call
0310 029b 138b | | Declare_Subprogram INIT_1388,For_Outer_Call,Unelaborated
0312 029d 13cb | | Declare_Subprogram INIT_13c8,For_Outer_Call
0314 029d 13f3 | | Declare_Subprogram INIT_13f0,For_Outer_Call
0316 029d 145b | [| Declare_Subprogram INIT_1458,For_Outer_Call
0318 494d |IM | Short_Literal 0x14d
0319 4801 |H | Short_Literal 0x1
031a 0099 | | Action Reference_Dynamic
031b 00c7 | | Action Elaborate_Subprogram
031c 4943 |IC | Short_Literal 0x143
031d 4801 |H | Short_Literal 0x1
031e 0099 | | Action Reference_Dynamic
031f 00c7 | | Action Elaborate_Subprogram
0320 029d 14ab | | Declare_Subprogram INIT_14a8,For_Outer_Call
0322 029d 14bb | | Declare_Subprogram INIT_14b8,For_Outer_Call
0324 029d 14d3 | | Declare_Subprogram INIT_14d0,For_Outer_Call
0326 029d 14f3 | | Declare_Subprogram INIT_14f0,For_Outer_Call
0328 029d 1513 | | Declare_Subprogram INIT_1510,For_Outer_Call
032a 029d 1573 | s| Declare_Subprogram INIT_1570,For_Outer_Call
032c 029d 158b | | Declare_Subprogram INIT_1588,For_Outer_Call
032e 029d 15a3 | | Declare_Subprogram INIT_15a0,For_Outer_Call
0330 029d 15e3 | | Declare_Subprogram INIT_15e0,For_Outer_Call
0332 029d 15fb | | Declare_Subprogram INIT_15f8,For_Outer_Call
0334 029d 161b | | Declare_Subprogram INIT_1618,For_Outer_Call
0336 029d 1643 | C| Declare_Subprogram INIT_1640,For_Outer_Call
0338 029d 16bb | | Declare_Subprogram INIT_16b8,For_Outer_Call
033a 029d 16eb | | Declare_Subprogram INIT_16e8,For_Outer_Call
033c 029d 172b | +| Declare_Subprogram INIT_1728,For_Outer_Call
033e 4942 |IB | Short_Literal 0x142
033f 4801 |H | Short_Literal 0x1
0340 0099 | | Action Reference_Dynamic
0341 00c7 | | Action Elaborate_Subprogram
0342 4941 |IA | Short_Literal 0x141
0343 4801 |H | Short_Literal 0x1
0344 0099 | | Action Reference_Dynamic
0345 00c7 | | Action Elaborate_Subprogram
0346 029d 1753 | S| Declare_Subprogram INIT_1750,For_Outer_Call
0348 029d 1773 | s| Declare_Subprogram INIT_1770,For_Outer_Call
034a 4940 |I@ | Short_Literal 0x140
034b 4801 |H | Short_Literal 0x1
034c 0099 | | Action Reference_Dynamic
034d 00c7 | | Action Elaborate_Subprogram
034e 029d 179b | | Declare_Subprogram INIT_1798,For_Outer_Call
0350 029d 17db | | Declare_Subprogram INIT_17d8,For_Outer_Call
0352 493e |I> | Short_Literal 0x13e
0353 4801 |H | Short_Literal 0x1
0354 0099 | | Action Reference_Dynamic
0355 00c7 | | Action Elaborate_Subprogram
0356 493f |I? | Short_Literal 0x13f
0357 4801 |H | Short_Literal 0x1
0358 0099 | | Action Reference_Dynamic
0359 00c7 | | Action Elaborate_Subprogram
035a 029d 1863 | c| Declare_Subprogram INIT_1860,For_Outer_Call
035c 029d 187b | {| Declare_Subprogram INIT_1878,For_Outer_Call
035e 493d |I= | Short_Literal 0x13d
035f 4801 |H | Short_Literal 0x1
0360 0099 | | Action Reference_Dynamic
0361 00c7 | | Action Elaborate_Subprogram
0362 029d 18ab | | Declare_Subprogram INIT_18a8,For_Outer_Call
0364 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0365 00c7 | | Action Elaborate_Subprogram
0366 029d 18e3 | | Declare_Subprogram INIT_18e0,For_Outer_Call
0368 BODY_0008:
0368 8367 | g | Call 0x1,0x167
0369 00bc | | Action Signal_Activated
036a 00bb | | Action Signal_Completion
036b 0000 | | .XXX[0x1]
036c 0000 0000 | | .LITERAL {0x00000000, 0x00002000}
0370 0000 0000 | | .LITERAL {0x00000000, 0x000fffff}
0374 0000 0000 | | .BLANK 0000[0x4]
0378 ; --------------------------------------------------------------------------------------
0378 ; SUBPROGRAM
0378 ; --------------------------------------------------------------------------------------
0378 0384 | | .CONST 0x0384 ; Address of begin
0379 03a1 | | .CONST 0x03a1 ; Address of exception handler
037a 0003 | | .CONST 0x0003 ; Number of locals
037b INIT_0378:
037b e5ff | | Load 0x2,-0x1
037c e046 | F | Load 0x0,0x46
037d 185c | \ | Execute Package,Field_Execute,Field_Number 0x5c
037e e5fe | | Load 0x2,-0x2
037f 8332 | 2 | Call 0x1,0x132
0380 e5f9 | | Load 0x2,-0x7
0381 8322 | " | Call 0x1,0x122
0382 01cc | | Execute Vector,Catenate
0383 0007 | | Action Break_Optional
0384 BODY_0378:
0384 e402 | | Load 0x2,0x2
0385 830f | | Call 0x1,0x10f
0386 6815 |h | Jump_Zero 0x39c
0387 00d8 | | Load_Top At_Offset_0
0388 e402 | | Load 0x2,0x2
0389 e046 | F | Load 0x0,0x46
038a 1b59 | Y | Execute Package,Field_Read,Field_Number 0x59
038b 025e | ^ | Execute Discrete,Convert
038c 1c01 | | Execute_Immediate Run_Utility,0x1
038d 01cc | | Execute Vector,Catenate
038e 0092 1add | | Action Push_String_Extended,0x1add ; " = "
0390 01cc | | Execute Vector,Catenate
0391 e5f9 | | Load 0x2,-0x7
0392 e402 | | Load 0x2,0x2
0393 e5fa | | Load 0x2,-0x6
0394 e5fb | | Load 0x2,-0x5
0395 e5fc | | Load 0x2,-0x4
0396 e5fd | | Load 0x2,-0x3
0397 e5ff | | Load 0x2,-0x1
0398 8366 | f | Call 0x1,0x166
0399 8334 | 4 | Call 0x1,0x134
039a 01cc | | Execute Vector,Catenate
039b 4407 |D | Exit_Subprogram With_Value,New_Top_Offset 0x7
039c e5f9 | | Load 0x2,-0x7
039d e5fe | | Load 0x2,-0x2
039e e5ff | | Load 0x2,-0x1
039f 8335 | 5 | Call 0x1,0x135
03a0 4407 |D | Exit_Subprogram With_Value,New_Top_Offset 0x7
03a1 TRAP_0378:
03a1 4884 |H | Short_Literal 0x84
03a2 010f | | Execute Exception,Equal
03a3 6805 |h | Jump_Zero 0x3a9
03a4 e403 | | Load 0x2,0x3
03a5 0092 1ade | | Action Push_String_Extended,0x1ade ; "Value not readable"
03a7 01cc | | Execute Vector,Catenate
03a8 4407 |D | Exit_Subprogram With_Value,New_Top_Offset 0x7
03a9 e403 | | Load 0x2,0x3
03aa 0092 1adf | | Action Push_String_Extended,0x1adf ; "Exception raised: "
03ac 01cc | | Execute Vector,Catenate
03ad e047 | G | Load 0x0,0x47
03ae 180d | | Execute Package,Field_Execute,Field_Number 0xd
03af 01cc | | Execute Vector,Catenate
03b0 4407 |D | Exit_Subprogram With_Value,New_Top_Offset 0x7
03b1 0000 0000 | | .BLANK 0000[0x7]
03b8 ; --------------------------------------------------------------------------------------
03b8 ; SUBPROGRAM
03b8 ; --------------------------------------------------------------------------------------
03b8 03c4 | | .CONST 0x03c4 ; Address of begin
03b9 0004 | | .CONST 0x0004 ; Address of exception handler
03ba 0002 | | .CONST 0x0002 ; Number of locals
03bb INIT_03b8:
03bb 4800 |H | Short_Literal 0x0
03bc e5ff | | Load 0x2,-0x1
03bd 01db | | Execute Vector,Length
03be 0aff | | Execute_Immediate Plus,-0x1
03bf e21a | | Load 0x1,0x1a
03c0 0334 | 4 | Declare_Variable Array,With_Constraint
03c1 e5ff | | Load 0x2,-0x1
03c2 e402 | | Load 0x2,0x2
03c3 01d4 | | Execute Vector,Structure_Write
03c4 BODY_03b8:
03c4 00d8 | | Load_Top At_Offset_0
03c5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03c6 0000 0000 | | .XXX[0x2]
03c8 ; --------------------------------------------------------------------------------------
03c8 ; SUBPROGRAM
03c8 ; --------------------------------------------------------------------------------------
03c8 03d1 | | .CONST 0x03d1 ; Address of begin
03c9 0004 | | .CONST 0x0004 ; Address of exception handler
03ca 0003 | | .CONST 0x0003 ; Number of locals
03cb INIT_03c8:
03cb e232 | 2 | Load 0x1,0x32
03cc 0337 | 7 | Declare_Variable Array
03cd e5ff | | Load 0x2,-0x1
03ce 01db | | Execute Vector,Length
03cf 00e3 | | Load_Encached Natural_Cache
03d0 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
03d1 BODY_03c8:
03d1 00d8 | | Load_Top At_Offset_0
03d2 e227 | ' | Load 0x1,0x27
03d3 027f | | Execute Discrete,Equal
03d4 6804 |h | Jump_Zero 0x3d9
03d5 e5ff | | Load 0x2,-0x1
03d6 e402 | | Load 0x2,0x2
03d7 01d4 | | Execute Vector,Structure_Write
03d8 7822 |x" | Jump 0x3fb
03d9 00d8 | | Load_Top At_Offset_0
03da e227 | ' | Load 0x1,0x27
03db 027c | | | Execute Discrete,Less
03dc 7001 |p | Jump_Nonzero 0x3de
03dd 0887 | | Execute_Immediate Raise,0x87
03de e402 | | Load 0x2,0x2
03df 00d8 | | Load_Top At_Offset_0
03e0 0335 | 5 | Declare_Variable Array,Duplicate
03e1 00cd | | Action Spare6_Action
03e2 e404 | | Load 0x2,0x4
03e3 01d9 | | Execute Vector,Reverse_Bounds
03e4 0263 | c | Execute Discrete,Above_Bound
03e5 7005 |p | Jump_Nonzero 0x3eb
03e6 4800 |H | Short_Literal 0x0
03e7 e407 | | Load 0x2,0x7
03e8 e405 | | Load 0x2,0x5
03e9 01d6 | | Execute Vector,Field_Write
03ea 3ffb |? | Loop_Increasing 0x3e6
03eb 00cd | | Action Spare6_Action
03ec e402 | | Load 0x2,0x2
03ed 01d4 | | Execute Vector,Structure_Write
03ee e5ff | | Load 0x2,-0x1
03ef e227 | ' | Load 0x1,0x27
03f0 e403 | | Load 0x2,0x3
03f1 0272 | r | Execute Discrete,Minus
03f2 0a01 | | Execute_Immediate Plus,0x1
03f3 00d8 | | Load_Top At_Offset_0
03f4 00e5 | | Load_Encached Long_Integer_Cache
03f5 0260 | ` | Execute Discrete,In_Type
03f6 7001 |p | Jump_Nonzero 0x3f8
03f7 08e0 | | Execute_Immediate Raise,0xe0
03f8 e227 | ' | Load 0x1,0x27
03f9 e402 | | Load 0x2,0x2
03fa 01ce | | Execute Vector,Slice_Write
03fb e402 | | Load 0x2,0x2
03fc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03fd 0000 0000 | | .XXX[0x3]
03ff 0000 | |
0400 ; --------------------------------------------------------------------------------------
0400 ; SUBPROGRAM
0400 ; --------------------------------------------------------------------------------------
0400 0403 | | .CONST 0x0403 ; Address of begin
0401 0004 | | .CONST 0x0004 ; Address of exception handler
0402 0001 | | .CONST 0x0001 ; Number of locals
0403 BODY_0400:
0403 INIT_0400:
0403 e5ff | | Load 0x2,-0x1
0404 01db | | Execute Vector,Length
0405 e227 | ' | Load 0x1,0x27
0406 027a | z | Execute Discrete,Less_Equal
0407 7001 |p | Jump_Nonzero 0x409
0408 0887 | | Execute_Immediate Raise,0x87
0409 e5ff | | Load 0x2,-0x1
040a 8238 | 8 | Call 0x1,0x38
040b e233 | 3 | Load 0x1,0x33
040c e234 | 4 | Load 0x1,0x34
040d 1d35 | 5 | Execute_Immediate Reference_Lex_1,0x35
040e 8002 | | Call 0x0,0x2
040f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0410 ; --------------------------------------------------------------------------------------
0410 ; SUBPROGRAM
0410 ; --------------------------------------------------------------------------------------
0410 0418 | | .CONST 0x0418 ; Address of begin
0411 0004 | | .CONST 0x0004 ; Address of exception handler
0412 0002 | | .CONST 0x0002 ; Number of locals
0413 INIT_0410:
0413 e23b | ; | Load 0x1,0x3b
0414 0337 | 7 | Declare_Variable Array
0415 e5ff | | Load 0x2,-0x1
0416 e402 | | Load 0x2,0x2
0417 01d4 | | Execute Vector,Structure_Write
0418 BODY_0410:
0418 00d8 | | Load_Top At_Offset_0
0419 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
041a 0000 0000 | | .BLANK 0000[0x6]
0420 ; --------------------------------------------------------------------------------------
0420 ; SUBPROGRAM
0420 ; --------------------------------------------------------------------------------------
0420 0423 | # | .CONST 0x0423 ; Address of begin
0421 0004 | | .CONST 0x0004 ; Address of exception handler
0422 0001 | | .CONST 0x0001 ; Number of locals
0423 BODY_0420:
0423 INIT_0420:
0423 e5ff | | Load 0x2,-0x1
0424 01db | | Execute Vector,Length
0425 e23a | : | Load 0x1,0x3a
0426 027f | | Execute Discrete,Equal
0427 7001 |p | Jump_Nonzero 0x429
0428 0887 | | Execute_Immediate Raise,0x87
0429 e5ff | | Load 0x2,-0x1
042a 8241 | A | Call 0x1,0x41
042b e23c | < | Load 0x1,0x3c
042c e23d | = | Load 0x1,0x3d
042d 1d3e | > | Execute_Immediate Reference_Lex_1,0x3e
042e 8002 | | Call 0x0,0x2
042f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0430 ; --------------------------------------------------------------------------------------
0430 ; SUBPROGRAM
0430 ; --------------------------------------------------------------------------------------
0430 0433 | 3 | .CONST 0x0433 ; Address of begin
0431 0004 | | .CONST 0x0004 ; Address of exception handler
0432 0001 | | .CONST 0x0001 ; Number of locals
0433 BODY_0430:
0433 INIT_0430:
0433 e5ff | | Load 0x2,-0x1
0434 e222 | " | Load 0x1,0x22
0435 e223 | # | Load 0x1,0x23
0436 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
0437 8002 | | Call 0x0,0x2
0438 00d8 | | Load_Top At_Offset_0
0439 e218 | | Load 0x1,0x18
043a 0260 | ` | Execute Discrete,In_Type
043b 7001 |p | Jump_Nonzero 0x43d
043c 08e0 | | Execute_Immediate Raise,0xe0
043d e5fe | | Load 0x2,-0x2
043e 0273 | s | Execute Discrete,Plus
043f e214 | | Load 0x1,0x14
0440 025b | [ | Execute Discrete,Check_In_Type
0441 e21d | | Load 0x1,0x1d
0442 e21e | | Load 0x1,0x1e
0443 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
0444 8002 | | Call 0x0,0x2
0445 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0446 0000 0000 | | .XXX[0x2]
0448 ; --------------------------------------------------------------------------------------
0448 ; SUBPROGRAM
0448 ; --------------------------------------------------------------------------------------
0448 044b | K | .CONST 0x044b ; Address of begin
0449 0004 | | .CONST 0x0004 ; Address of exception handler
044a 0001 | | .CONST 0x0001 ; Number of locals
044b BODY_0448:
044b INIT_0448:
044b e5ff | | Load 0x2,-0x1
044c e22d | - | Load 0x1,0x2d
044d e22e | . | Load 0x1,0x2e
044e 1d2f | / | Execute_Immediate Reference_Lex_1,0x2f
044f 8002 | | Call 0x0,0x2
0450 e5fe | | Load 0x2,-0x2
0451 0273 | s | Execute Discrete,Plus
0452 e001 | | Load 0x0,0x1
0453 1bb1 | | Execute Package,Field_Read,Field_Number 0xb1
0454 025b | [ | Execute Discrete,Check_In_Type
0455 e228 | ( | Load 0x1,0x28
0456 e229 | ) | Load 0x1,0x29
0457 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a
0458 8002 | | Call 0x0,0x2
0459 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
045a 0000 0000 | | .BLANK 0000[0x6]
0460 ; --------------------------------------------------------------------------------------
0460 ; SUBPROGRAM
0460 ; --------------------------------------------------------------------------------------
0460 0480 | | .CONST 0x0480 ; Address of begin
0461 0004 | | .CONST 0x0004 ; Address of exception handler
0462 0005 | | .CONST 0x0005 ; Number of locals
0463 INIT_0460:
0463 e5ff | | Load 0x2,-0x1
0464 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0465 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0466 e001 | | Load 0x0,0x1
0467 1b4b | K | Execute Package,Field_Read,Field_Number 0x4b
0468 03f1 | | Declare_Variable Discrete,With_Value
0469 e001 | | Load 0x0,0x1
046a 1b50 | P | Execute Package,Field_Read,Field_Number 0x50
046b 0322 | " | Declare_Variable Record
046c e5fe | | Load 0x2,-0x2
046d e5ff | | Load 0x2,-0x1
046e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
046f 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6
0470 824d | M | Call 0x1,0x4d
0471 e403 | | Load 0x2,0x3
0472 017d | } | Execute Record,Structure_Write
0473 00d8 | | Load_Top At_Offset_0
0474 e222 | " | Load 0x1,0x22
0475 e223 | # | Load 0x1,0x23
0476 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
0477 8002 | | Call 0x0,0x2
0478 e402 | | Load 0x2,0x2
0479 e046 | F | Load 0x0,0x46
047a 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
047b e048 | H | Load 0x0,0x48
047c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
047d 03f1 | | Declare_Variable Discrete,With_Value
047e 029f 1923 | #| Declare_Subprogram INIT_1920,For_Call
0480 BODY_0460:
0480 00cf | | Action Mark_Auxiliary
0481 4803 |H | Short_Literal 0x3
0482 4801 |H | Short_Literal 0x1
0483 0007 | | Action Break_Optional
0484 8405 | | Call 0x2,0x5
0485 00c8 | | Action Pop_Auxiliary_Range
0486 3ffd |? | Loop_Increasing 0x484
0487 00ce | | Action Pop_Auxiliary
0488 4884 |H | Short_Literal 0x84
0489 0257 | W | Execute Discrete,Raise
048a 0000 0000 | | .BLANK 0000[0x6]
0490 ; --------------------------------------------------------------------------------------
0490 ; SUBPROGRAM
0490 ; --------------------------------------------------------------------------------------
0490 0496 | | .CONST 0x0496 ; Address of begin
0491 0004 | | .CONST 0x0004 ; Address of exception handler
0492 0002 | | .CONST 0x0002 ; Number of locals
0493 INIT_0490:
0493 e001 | | Load 0x0,0x1
0494 1b9c | | Execute Package,Field_Read,Field_Number 0x9c
0495 0322 | " | Declare_Variable Record
0496 BODY_0490:
0496 4fff |O | Short_Literal -0x1
0497 e218 | | Load 0x1,0x18
0498 025b | [ | Execute Discrete,Check_In_Type
0499 e5ff | | Load 0x2,-0x1
049a 8267 | g | Call 0x1,0x67
049b e24f | O | Load 0x1,0x4f
049c e250 | P | Load 0x1,0x50
049d 1d51 | Q | Execute_Immediate Reference_Lex_1,0x51
049e 8002 | | Call 0x0,0x2
049f e402 | | Load 0x2,0x2
04a0 017d | } | Execute Record,Structure_Write
04a1 00d8 | | Load_Top At_Offset_0
04a2 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
04a3 6801 |h | Jump_Zero 0x4a5
04a4 0887 | | Execute_Immediate Raise,0x87
04a5 00d8 | | Load_Top At_Offset_0
04a6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
04a7 0000 | | .XXX[0x1]
04a8 ; --------------------------------------------------------------------------------------
04a8 ; SUBPROGRAM
04a8 ; --------------------------------------------------------------------------------------
04a8 04ab | | .CONST 0x04ab ; Address of begin
04a9 0004 | | .CONST 0x0004 ; Address of exception handler
04aa 0001 | | .CONST 0x0001 ; Number of locals
04ab BODY_04a8:
04ab INIT_04a8:
04ab e5fe | | Load 0x2,-0x2
04ac 00d8 | | Load_Top At_Offset_0
04ad e218 | | Load 0x1,0x18
04ae 0260 | ` | Execute Discrete,In_Type
04af 7001 |p | Jump_Nonzero 0x4b1
04b0 08e0 | | Execute_Immediate Raise,0xe0
04b1 e5ff | | Load 0x2,-0x1
04b2 8267 | g | Call 0x1,0x67
04b3 e254 | T | Load 0x1,0x54
04b4 e255 | U | Load 0x1,0x55
04b5 1d56 | V | Execute_Immediate Reference_Lex_1,0x56
04b6 8002 | | Call 0x0,0x2
04b7 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
04b8 ; --------------------------------------------------------------------------------------
04b8 ; SUBPROGRAM
04b8 ; --------------------------------------------------------------------------------------
04b8 04bb | | .CONST 0x04bb ; Address of begin
04b9 0004 | | .CONST 0x0004 ; Address of exception handler
04ba 0001 | | .CONST 0x0001 ; Number of locals
04bb BODY_04b8:
04bb INIT_04b8:
04bb e5fe | | Load 0x2,-0x2
04bc 0901 | | Execute_Immediate Binary_Scale,0x1
04bd 0a01 | | Execute_Immediate Plus,0x1
04be 00d8 | | Load_Top At_Offset_0
04bf e218 | | Load 0x1,0x18
04c0 0260 | ` | Execute Discrete,In_Type
04c1 7001 |p | Jump_Nonzero 0x4c3
04c2 08e0 | | Execute_Immediate Raise,0xe0
04c3 e5ff | | Load 0x2,-0x1
04c4 8267 | g | Call 0x1,0x67
04c5 e259 | Y | Load 0x1,0x59
04c6 e25a | Z | Load 0x1,0x5a
04c7 1d5b | [ | Execute_Immediate Reference_Lex_1,0x5b
04c8 8002 | | Call 0x0,0x2
04c9 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
04ca 0000 0000 | | .BLANK 0000[0x6]
04d0 ; --------------------------------------------------------------------------------------
04d0 ; SUBPROGRAM
04d0 ; --------------------------------------------------------------------------------------
04d0 04d3 | | .CONST 0x04d3 ; Address of begin
04d1 0004 | | .CONST 0x0004 ; Address of exception handler
04d2 0001 | | .CONST 0x0001 ; Number of locals
04d3 BODY_04d0:
04d3 INIT_04d0:
04d3 e5fe | | Load 0x2,-0x2
04d4 0901 | | Execute_Immediate Binary_Scale,0x1
04d5 00d8 | | Load_Top At_Offset_0
04d6 e218 | | Load 0x1,0x18
04d7 0260 | ` | Execute Discrete,In_Type
04d8 7001 |p | Jump_Nonzero 0x4da
04d9 08e0 | | Execute_Immediate Raise,0xe0
04da e5ff | | Load 0x2,-0x1
04db 8267 | g | Call 0x1,0x67
04dc e25e | ^ | Load 0x1,0x5e
04dd e25f | _ | Load 0x1,0x5f
04de 1d60 | ` | Execute_Immediate Reference_Lex_1,0x60
04df 8002 | | Call 0x0,0x2
04e0 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
04e1 0000 0000 | | .BLANK 0000[0x7]
04e8 ; --------------------------------------------------------------------------------------
04e8 ; SUBPROGRAM
04e8 ; --------------------------------------------------------------------------------------
04e8 04f3 | | .CONST 0x04f3 ; Address of begin
04e9 0004 | | .CONST 0x0004 ; Address of exception handler
04ea 0006 | | .CONST 0x0006 ; Number of locals
04eb INIT_04e8:
04eb a002 | | Store_Unchecked 0x0,0x2
04ec 00c6 | | Action Check_Subprogram_Elaborated
04ed e213 | | Load 0x1,0x13
04ee e5fe | | Load 0x2,-0x2
04ef e049 | I | Load 0x0,0x49
04f0 e04a | J | Load 0x0,0x4a
04f1 4806 |H | Short_Literal 0x6
04f2 0007 | | Action Break_Optional
04f3 BODY_04e8:
04f3 e5fc | | Load 0x2,-0x4
04f4 e5fd | | Load 0x2,-0x3
04f5 8267 | g | Call 0x1,0x67
04f6 e402 | | Load 0x2,0x2
04f7 e403 | | Load 0x2,0x3
04f8 4804 |H | Short_Literal 0x4
04f9 4802 |H | Short_Literal 0x2
04fa 0099 | | Action Reference_Dynamic
04fb 8002 | | Call 0x0,0x2
04fc e5fe | | Load 0x2,-0x2
04fd 011d | | Execute Any,Convert_To_Formal
04fe 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
04ff 0000 | | .XXX[0x1]
0500 ; --------------------------------------------------------------------------------------
0500 ; SUBPROGRAM
0500 ; --------------------------------------------------------------------------------------
0500 051b | | .CONST 0x051b ; Address of begin
0501 0004 | | .CONST 0x0004 ; Address of exception handler
0502 0004 | | .CONST 0x0004 ; Number of locals
0503 INIT_0500:
0503 e275 | u | Load 0x1,0x75
0504 0337 | 7 | Declare_Variable Array
0505 00d8 | | Load_Top At_Offset_0
0506 0335 | 5 | Declare_Variable Array,Duplicate
0507 00cd | | Action Spare6_Action
0508 4840 |H@ | Short_Literal 0x40
0509 4801 |H | Short_Literal 0x1
050a 4800 |H | Short_Literal 0x0
050b e405 | | Load 0x2,0x5
050c e403 | | Load 0x2,0x3
050d 01d6 | | Execute Vector,Field_Write
050e 3ffb |? | Loop_Increasing 0x50a
050f e402 | | Load 0x2,0x2
0510 01d4 | | Execute Vector,Structure_Write
0511 e5ff | | Load 0x2,-0x1
0512 01db | | Execute Vector,Length
0513 00e5 | | Load_Encached Long_Integer_Cache
0514 03f1 | | Declare_Variable Discrete,With_Value
0515 00d8 | | Load_Top At_Offset_0
0516 0d41 | A | Execute_Immediate Less,0x41
0517 7001 |p | Jump_Nonzero 0x519
0518 0887 | | Execute_Immediate Raise,0x87
0519 e001 | | Load 0x0,0x1
051a 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
051b BODY_0500:
051b e403 | | Load 0x2,0x3
051c 7002 |p | Jump_Nonzero 0x51f
051d 4800 |H | Short_Literal 0x0
051e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
051f e5ff | | Load 0x2,-0x1
0520 4840 |H@ | Short_Literal 0x40
0521 e403 | | Load 0x2,0x3
0522 0272 | r | Execute Discrete,Minus
0523 0a01 | | Execute_Immediate Plus,0x1
0524 4840 |H@ | Short_Literal 0x40
0525 e402 | | Load 0x2,0x2
0526 01ce | | Execute Vector,Slice_Write
0527 e402 | | Load 0x2,0x2
0528 e276 | v | Load 0x1,0x76
0529 e277 | w | Load 0x1,0x77
052a 1d78 | x | Execute_Immediate Reference_Lex_1,0x78
052b 8002 | | Call 0x0,0x2
052c a404 | | Store_Unchecked 0x2,0x4
052d 00d8 | | Load_Top At_Offset_0
052e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
052f 0000 | | .XXX[0x1]
0530 ; --------------------------------------------------------------------------------------
0530 ; SUBPROGRAM
0530 ; --------------------------------------------------------------------------------------
0530 0538 | 8 | .CONST 0x0538 ; Address of begin
0531 0004 | | .CONST 0x0004 ; Address of exception handler
0532 0002 | | .CONST 0x0002 ; Number of locals
0533 INIT_0530:
0533 e27c | | | Load 0x1,0x7c
0534 0337 | 7 | Declare_Variable Array
0535 e5ff | | Load 0x2,-0x1
0536 e402 | | Load 0x2,0x2
0537 01d4 | | Execute Vector,Structure_Write
0538 BODY_0530:
0538 00d8 | | Load_Top At_Offset_0
0539 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
053a 0000 0000 | | .BLANK 0000[0x6]
0540 ; --------------------------------------------------------------------------------------
0540 ; SUBPROGRAM
0540 ; --------------------------------------------------------------------------------------
0540 0543 | C | .CONST 0x0543 ; Address of begin
0541 054f | O | .CONST 0x054f ; Address of exception handler
0542 0001 | | .CONST 0x0001 ; Number of locals
0543 BODY_0540:
0543 INIT_0540:
0543 e5ff | | Load 0x2,-0x1
0544 01db | | Execute Vector,Length
0545 0f08 | | Execute_Immediate Equal,0x8
0546 7001 |p | Jump_Nonzero 0x548
0547 0887 | | Execute_Immediate Raise,0x87
0548 e5ff | | Load 0x2,-0x1
0549 8282 | | Call 0x1,0x82
054a e27d | } | Load 0x1,0x7d
054b e27e | ~ | Load 0x1,0x7e
054c 1d7f | | Execute_Immediate Reference_Lex_1,0x7f
054d 8002 | | Call 0x0,0x2
054e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
054f TRAP_0540:
054f 010d | | Execute Exception,Is_Numeric_Error
0550 6802 |h | Jump_Zero 0x553
0551 4800 |H | Short_Literal 0x0
0552 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0553 0100 | | Execute Exception,Raise
0554 0000 0000 | | .BLANK 0000[0x4]
0558 ; --------------------------------------------------------------------------------------
0558 ; SUBPROGRAM
0558 ; --------------------------------------------------------------------------------------
0558 055b | [ | .CONST 0x055b ; Address of begin
0559 0004 | | .CONST 0x0004 ; Address of exception handler
055a 0001 | | .CONST 0x0001 ; Number of locals
055b BODY_0558:
055b INIT_0558:
055b e5ff | | Load 0x2,-0x1
055c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
055d 7009 |p | Jump_Nonzero 0x567
055e e5ff | | Load 0x2,-0x1
055f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0560 7004 |p | Jump_Nonzero 0x565
0561 e5ff | | Load 0x2,-0x1
0562 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0563 0f00 | | Execute_Immediate Equal,0x0
0564 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0565 4800 |H | Short_Literal 0x0
0566 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0567 4800 |H | Short_Literal 0x0
0568 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0569 0000 0000 | | .BLANK 0000[0x7]
0570 ; --------------------------------------------------------------------------------------
0570 ; SUBPROGRAM
0570 ; --------------------------------------------------------------------------------------
0570 057f | | .CONST 0x057f ; Address of begin
0571 0004 | | .CONST 0x0004 ; Address of exception handler
0572 0003 | | .CONST 0x0003 ; Number of locals
0573 INIT_0570:
0573 e5ff | | Load 0x2,-0x1
0574 e212 | | Load 0x1,0x12
0575 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0576 e212 | | Load 0x1,0x12
0577 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0578 03f1 | | Declare_Variable Discrete,With_Value
0579 e5ff | | Load 0x2,-0x1
057a e212 | | Load 0x1,0x12
057b 1813 | | Execute Package,Field_Execute,Field_Number 0x13
057c e212 | | Load 0x1,0x12
057d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
057e 03f1 | | Declare_Variable Discrete,With_Value
057f BODY_0570:
057f 00d8 | | Load_Top At_Offset_0
0580 e5fe | | Load 0x2,-0x2
0581 00d8 | | Load_Top At_Offset_0
0582 e001 | | Load 0x0,0x1
0583 1bb1 | | Execute Package,Field_Read,Field_Number 0xb1
0584 0260 | ` | Execute Discrete,In_Type
0585 7001 |p | Jump_Nonzero 0x587
0586 08e0 | | Execute_Immediate Raise,0xe0
0587 0273 | s | Execute Discrete,Plus
0588 e001 | | Load 0x0,0x1
0589 1bb1 | | Execute Package,Field_Read,Field_Number 0xb1
058a 025b | [ | Execute Discrete,Check_In_Type
058b e402 | | Load 0x2,0x2
058c e212 | | Load 0x1,0x12
058d 1811 | | Execute Package,Field_Execute,Field_Number 0x11
058e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
058f 0000 | | .XXX[0x1]
0590 ; --------------------------------------------------------------------------------------
0590 ; SUBPROGRAM
0590 ; --------------------------------------------------------------------------------------
0590 059f | | .CONST 0x059f ; Address of begin
0591 0004 | | .CONST 0x0004 ; Address of exception handler
0592 0003 | | .CONST 0x0003 ; Number of locals
0593 INIT_0590:
0593 e5ff | | Load 0x2,-0x1
0594 e212 | | Load 0x1,0x12
0595 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0596 e212 | | Load 0x1,0x12
0597 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0598 03f1 | | Declare_Variable Discrete,With_Value
0599 e5ff | | Load 0x2,-0x1
059a e212 | | Load 0x1,0x12
059b 1813 | | Execute Package,Field_Execute,Field_Number 0x13
059c e212 | | Load 0x1,0x12
059d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
059e 03f1 | | Declare_Variable Discrete,With_Value
059f BODY_0590:
059f 00d8 | | Load_Top At_Offset_0
05a0 600b |` | Indirect_Literal Discrete,0x5ac,{0x00000000, 0x00002000}
05a1 0273 | s | Execute Discrete,Plus
05a2 e001 | | Load 0x0,0x1
05a3 1bb1 | | Execute Package,Field_Read,Field_Number 0xb1
05a4 025b | [ | Execute Discrete,Check_In_Type
05a5 e402 | | Load 0x2,0x2
05a6 e212 | | Load 0x1,0x12
05a7 1811 | | Execute Package,Field_Execute,Field_Number 0x11
05a8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
05a9 0000 0000 | | .XXX[0x3]
05ab 0000 | |
05ac 0000 0000 | | .LITERAL {0x00000000, 0x00002000}
05b0 ; --------------------------------------------------------------------------------------
05b0 ; SUBPROGRAM
05b0 ; --------------------------------------------------------------------------------------
05b0 05b3 | | .CONST 0x05b3 ; Address of begin
05b1 0004 | | .CONST 0x0004 ; Address of exception handler
05b2 0001 | | .CONST 0x0001 ; Number of locals
05b3 BODY_05b0:
05b3 INIT_05b0:
05b3 e5fe | | Load 0x2,-0x2
05b4 e22d | - | Load 0x1,0x2d
05b5 e22e | . | Load 0x1,0x2e
05b6 1d2f | / | Execute_Immediate Reference_Lex_1,0x2f
05b7 8002 | | Call 0x0,0x2
05b8 e5ff | | Load 0x2,-0x1
05b9 e212 | | Load 0x1,0x12
05ba 1811 | | Execute Package,Field_Execute,Field_Number 0x11
05bb 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
05bc 0000 0000 | | .BLANK 0000[0x4]
05c0 ; --------------------------------------------------------------------------------------
05c0 ; SUBPROGRAM
05c0 ; --------------------------------------------------------------------------------------
05c0 05cc | | .CONST 0x05cc ; Address of begin
05c1 0004 | | .CONST 0x0004 ; Address of exception handler
05c2 0002 | | .CONST 0x0002 ; Number of locals
05c3 INIT_05c0:
05c3 e001 | | Load 0x0,0x1
05c4 1b51 | Q | Execute Package,Field_Read,Field_Number 0x51
05c5 0322 | " | Declare_Variable Record
05c6 e5fe | | Load 0x2,-0x2
05c7 e5ff | | Load 0x2,-0x1
05c8 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
05c9 824e | N | Call 0x1,0x4e
05ca e402 | | Load 0x2,0x2
05cb 017d | } | Execute Record,Structure_Write
05cc BODY_05c0:
05cc 00d8 | | Load_Top At_Offset_0
05cd e5ff | | Load 0x2,-0x1
05ce 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
05cf 8287 | | Call 0x1,0x87
05d0 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
05d1 0000 0000 | | .BLANK 0000[0x7]
05d8 ; --------------------------------------------------------------------------------------
05d8 ; SUBPROGRAM
05d8 ; --------------------------------------------------------------------------------------
05d8 05e2 | | .CONST 0x05e2 ; Address of begin
05d9 0004 | | .CONST 0x0004 ; Address of exception handler
05da 0002 | | .CONST 0x0002 ; Number of locals
05db INIT_05d8:
05db e5fe | | Load 0x2,-0x2
05dc e22d | - | Load 0x1,0x2d
05dd e22e | . | Load 0x1,0x2e
05de 1d2f | / | Execute_Immediate Reference_Lex_1,0x2f
05df 8002 | | Call 0x0,0x2
05e0 e215 | | Load 0x1,0x15
05e1 03f1 | | Declare_Variable Discrete,With_Value
05e2 BODY_05d8:
05e2 00d8 | | Load_Top At_Offset_0
05e3 7002 |p | Jump_Nonzero 0x5e6
05e4 4800 |H | Short_Literal 0x0
05e5 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
05e6 00d8 | | Load_Top At_Offset_0
05e7 e5ff | | Load 0x2,-0x1
05e8 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
05e9 8288 | | Call 0x1,0x88
05ea 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
05eb 0000 0000 | | .BLANK 0000[0x5]
05f0 ; --------------------------------------------------------------------------------------
05f0 ; SUBPROGRAM
05f0 ; --------------------------------------------------------------------------------------
05f0 05f3 | | .CONST 0x05f3 ; Address of begin
05f1 0004 | | .CONST 0x0004 ; Address of exception handler
05f2 0001 | | .CONST 0x0001 ; Number of locals
05f3 BODY_05f0:
05f3 INIT_05f0:
05f3 4800 |H | Short_Literal 0x0
05f4 e5ff | | Load 0x2,-0x1
05f5 8288 | | Call 0x1,0x88
05f6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
05f7 0000 | | .XXX[0x1]
05f8 ; --------------------------------------------------------------------------------------
05f8 ; SUBPROGRAM
05f8 ; --------------------------------------------------------------------------------------
05f8 05fb | | .CONST 0x05fb ; Address of begin
05f9 0004 | | .CONST 0x0004 ; Address of exception handler
05fa 0001 | | .CONST 0x0001 ; Number of locals
05fb BODY_05f8:
05fb INIT_05f8:
05fb e5ff | | Load 0x2,-0x1
05fc 0b38 | 8 | Execute_Immediate Case_Compare,0x38
05fd 7003 |p | Jump_Nonzero 0x601
05fe 0f10 | | Execute_Immediate Equal,0x10
05ff 7009 |p | Jump_Nonzero 0x609
0600 0887 | | Execute_Immediate Raise,0x87
0601 00d1 | | Pop_Control Pop_Count_1
0602 e5fd | | Load 0x2,-0x3
0603 e248 | H | Load 0x1,0x48
0604 e249 | I | Load 0x1,0x49
0605 1d4a | J | Execute_Immediate Reference_Lex_1,0x4a
0606 8002 | | Call 0x0,0x2
0607 828a | | Call 0x1,0x8a
0608 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0609 e5fd | | Load 0x2,-0x3
060a 00d8 | | Load_Top At_Offset_0
060b e001 | | Load 0x0,0x1
060c 1bb1 | | Execute Package,Field_Read,Field_Number 0xb1
060d 0260 | ` | Execute Discrete,In_Type
060e 7001 |p | Jump_Nonzero 0x610
060f 08e0 | | Execute_Immediate Raise,0xe0
0610 e5fe | | Load 0x2,-0x2
0611 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0612 8288 | | Call 0x1,0x88
0613 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
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 e5ff | | Load 0x2,-0x1
061c 8284 | | Call 0x1,0x84
061d 6802 |h | Jump_Zero 0x620
061e 4800 |H | Short_Literal 0x0
061f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0620 e5ff | | Load 0x2,-0x1
0621 e5fe | | Load 0x2,-0x2
0622 e046 | F | Load 0x0,0x46
0623 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33
0624 8287 | | Call 0x1,0x87
0625 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0626 0000 0000 | | .XXX[0x2]
0628 ; --------------------------------------------------------------------------------------
0628 ; SUBPROGRAM
0628 ; --------------------------------------------------------------------------------------
0628 0631 | 1 | .CONST 0x0631 ; Address of begin
0629 0004 | | .CONST 0x0004 ; Address of exception handler
062a 0003 | | .CONST 0x0003 ; Number of locals
062b INIT_0628:
062b e001 | | Load 0x0,0x1
062c 1b51 | Q | Execute Package,Field_Read,Field_Number 0x51
062d 0322 | " | Declare_Variable Record
062e e001 | | Load 0x0,0x1
062f 1b56 | V | Execute Package,Field_Read,Field_Number 0x56
0630 0322 | " | Declare_Variable Record
0631 BODY_0628:
0631 e5ff | | Load 0x2,-0x1
0632 01db | | Execute Vector,Length
0633 e23a | : | Load 0x1,0x3a
0634 027f | | Execute Discrete,Equal
0635 680f |h | Jump_Zero 0x645
0636 e5ff | | Load 0x2,-0x1
0637 8242 | B | Call 0x1,0x42
0638 e403 | | Load 0x2,0x3
0639 017d | } | Execute Record,Structure_Write
063a 00d8 | | Load_Top At_Offset_0
063b 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
063c 7005 |p | Jump_Nonzero 0x642
063d e5fe | | Load 0x2,-0x2
063e e403 | | Load 0x2,0x3
063f 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0640 828c | | Call 0x1,0x8c
0641 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0642 00d8 | | Load_Top At_Offset_0
0643 828a | | Call 0x1,0x8a
0644 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0645 e5ff | | Load 0x2,-0x1
0646 8239 | 9 | Call 0x1,0x39
0647 e402 | | Load 0x2,0x2
0648 017d | } | Execute Record,Structure_Write
0649 e5fe | | Load 0x2,-0x2
064a e402 | | Load 0x2,0x2
064b 828c | | Call 0x1,0x8c
064c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
064d 0000 0000 | | .XXX[0x3]
064f 0000 | |
0650 ; --------------------------------------------------------------------------------------
0650 ; SUBPROGRAM
0650 ; --------------------------------------------------------------------------------------
0650 0655 | U | .CONST 0x0655 ; Address of begin
0651 0004 | | .CONST 0x0004 ; Address of exception handler
0652 0002 | | .CONST 0x0002 ; Number of locals
0653 INIT_0650:
0653 e001 | | Load 0x0,0x1
0654 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0655 BODY_0650:
0655 e5ff | | Load 0x2,-0x1
0656 0b38 | 8 | Execute_Immediate Case_Compare,0x38
0657 7003 |p | Jump_Nonzero 0x65b
0658 0f10 | | Execute_Immediate Equal,0x10
0659 7006 |p | Jump_Nonzero 0x660
065a 0887 | | Execute_Immediate Raise,0x87
065b 00d1 | | Pop_Control Pop_Count_1
065c e5fc | | Load 0x2,-0x4
065d e5fd | | Load 0x2,-0x3
065e 828d | | Call 0x1,0x8d
065f 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0660 e5fd | | Load 0x2,-0x3
0661 827b | { | Call 0x1,0x7b
0662 a402 | | Store_Unchecked 0x2,0x2
0663 00d8 | | Load_Top At_Offset_0
0664 7002 |p | Jump_Nonzero 0x667
0665 4800 |H | Short_Literal 0x0
0666 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0667 00d8 | | Load_Top At_Offset_0
0668 00d8 | | Load_Top At_Offset_0
0669 e001 | | Load 0x0,0x1
066a 1bb1 | | Execute Package,Field_Read,Field_Number 0xb1
066b 0260 | ` | Execute Discrete,In_Type
066c 7001 |p | Jump_Nonzero 0x66e
066d 08e0 | | Execute_Immediate Raise,0xe0
066e e5fe | | Load 0x2,-0x2
066f 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0670 8288 | | Call 0x1,0x88
0671 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0672 0000 0000 | | .BLANK 0000[0x6]
0678 ; --------------------------------------------------------------------------------------
0678 ; SUBPROGRAM
0678 ; --------------------------------------------------------------------------------------
0678 067b | { | .CONST 0x067b ; Address of begin
0679 0004 | | .CONST 0x0004 ; Address of exception handler
067a 0001 | | .CONST 0x0001 ; Number of locals
067b BODY_0678:
067b INIT_0678:
067b e5fe | | Load 0x2,-0x2
067c 0aff | | Execute_Immediate Plus,-0x1
067d e5ff | | Load 0x2,-0x1
067e 0273 | s | Execute Discrete,Plus
067f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0680 ; --------------------------------------------------------------------------------------
0680 ; SUBPROGRAM
0680 ; --------------------------------------------------------------------------------------
0680 0683 | | .CONST 0x0683 ; Address of begin
0681 0004 | | .CONST 0x0004 ; Address of exception handler
0682 0001 | | .CONST 0x0001 ; Number of locals
0683 BODY_0680:
0683 INIT_0680:
0683 e5fe | | Load 0x2,-0x2
0684 6805 |h | Jump_Zero 0x68a
0685 e5ff | | Load 0x2,-0x1
0686 0d4f | O | Execute_Immediate Less,0x4f
0687 6802 |h | Jump_Zero 0x68a
0688 484f |HO | Short_Literal 0x4f
0689 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
068a e5ff | | Load 0x2,-0x1
068b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
068c 0000 0000 | | .BLANK 0000[0x4]
0690 ; --------------------------------------------------------------------------------------
0690 ; SUBPROGRAM
0690 ; --------------------------------------------------------------------------------------
0690 0693 | | .CONST 0x0693 ; Address of begin
0691 0697 | | .CONST 0x0697 ; Address of exception handler
0692 0001 | | .CONST 0x0001 ; Number of locals
0693 BODY_0690:
0693 INIT_0690:
0693 e5ff | | Load 0x2,-0x1
0694 e5fe | | Load 0x2,-0x2
0695 0273 | s | Execute Discrete,Plus
0696 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0697 TRAP_0690:
0697 010d | | Execute Exception,Is_Numeric_Error
0698 6802 |h | Jump_Zero 0x69b
0699 6002 |` | Indirect_Literal Discrete,0x69c,{0x7fffffff, 0xffffffff}
069a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
069b 0100 | | Execute Exception,Raise
069c 7fff ffff | | .LITERAL {0x7fffffff, 0xffffffff}
06a0 ; --------------------------------------------------------------------------------------
06a0 ; SUBPROGRAM
06a0 ; --------------------------------------------------------------------------------------
06a0 06af | | .CONST 0x06af ; Address of begin
06a1 0004 | | .CONST 0x0004 ; Address of exception handler
06a2 0003 | | .CONST 0x0003 ; Number of locals
06a3 INIT_06a0:
06a3 e5fd | | Load 0x2,-0x3
06a4 00e3 | | Load_Encached Natural_Cache
06a5 025b | [ | Execute Discrete,Check_In_Type
06a6 e5ff | | Load 0x2,-0x1
06a7 8291 | | Call 0x1,0x91
06a8 00e5 | | Load_Encached Long_Integer_Cache
06a9 03f1 | | Declare_Variable Discrete,With_Value
06aa e5fb | | Load 0x2,-0x5
06ab e5fc | | Load 0x2,-0x4
06ac 8290 | | Call 0x1,0x90
06ad 00e3 | | Load_Encached Natural_Cache
06ae 03f1 | | Declare_Variable Discrete,With_Value
06af BODY_06a0:
06af e402 | | Load 0x2,0x2
06b0 a5fa | | Store_Unchecked 0x2,-0x6
06b1 00d8 | | Load_Top At_Offset_0
06b2 0aff | | Execute_Immediate Plus,-0x1
06b3 00e3 | | Load_Encached Natural_Cache
06b4 025b | [ | Execute Discrete,Check_In_Type
06b5 e402 | | Load 0x2,0x2
06b6 8291 | | Call 0x1,0x91
06b7 a5f9 | | Store_Unchecked 0x2,-0x7
06b8 e5f9 | | Load 0x2,-0x7
06b9 e5fe | | Load 0x2,-0x2
06ba 027d | } | Execute Discrete,Greater
06bb 6802 |h | Jump_Zero 0x6be
06bc e5fe | | Load 0x2,-0x2
06bd a5f9 | | Store_Unchecked 0x2,-0x7
06be 4506 |E | Exit_Suprogram New_Top_Offset 0x6
06bf 0000 | | .XXX[0x1]
06c0 ; --------------------------------------------------------------------------------------
06c0 ; SUBPROGRAM
06c0 ; --------------------------------------------------------------------------------------
06c0 06c3 | | .CONST 0x06c3 ; Address of begin
06c1 0004 | | .CONST 0x0004 ; Address of exception handler
06c2 0001 | | .CONST 0x0001 ; Number of locals
06c3 BODY_06c0:
06c3 INIT_06c0:
06c3 e5ff | | Load 0x2,-0x1
06c4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
06c5 700b |p | Jump_Nonzero 0x6d1
06c6 e5ff | | Load 0x2,-0x1
06c7 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6
06c8 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
06c9 7005 |p | Jump_Nonzero 0x6cf
06ca e5ff | | Load 0x2,-0x1
06cb 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6
06cc 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
06cd 0f00 | | Execute_Immediate Equal,0x0
06ce 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
06cf 4800 |H | Short_Literal 0x0
06d0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
06d1 4800 |H | Short_Literal 0x0
06d2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
06d3 0000 0000 | | .BLANK 0000[0x5]
06d8 ; --------------------------------------------------------------------------------------
06d8 ; SUBPROGRAM
06d8 ; --------------------------------------------------------------------------------------
06d8 06db | | .CONST 0x06db ; Address of begin
06d9 0004 | | .CONST 0x0004 ; Address of exception handler
06da 0001 | | .CONST 0x0001 ; Number of locals
06db BODY_06d8:
06db INIT_06d8:
06db e5ff | | Load 0x2,-0x1
06dc 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
06dd 7004 |p | Jump_Nonzero 0x6e2
06de e5ff | | Load 0x2,-0x1
06df 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
06e0 8293 | | Call 0x1,0x93
06e1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
06e2 4800 |H | Short_Literal 0x0
06e3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
06e4 0000 0000 | | .BLANK 0000[0x4]
06e8 ; --------------------------------------------------------------------------------------
06e8 ; SUBPROGRAM
06e8 ; --------------------------------------------------------------------------------------
06e8 06eb | | .CONST 0x06eb ; Address of begin
06e9 0004 | | .CONST 0x0004 ; Address of exception handler
06ea 0001 | | .CONST 0x0001 ; Number of locals
06eb BODY_06e8:
06eb INIT_06e8:
06eb e5ff | | Load 0x2,-0x1
06ec 0b10 | | Execute_Immediate Case_Compare,0x10
06ed 7004 |p | Jump_Nonzero 0x6f2
06ee 0f38 | 8 | Execute_Immediate Equal,0x38
06ef 7003 |p | Jump_Nonzero 0x6f3
06f0 4800 |H | Short_Literal 0x0
06f1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
06f2 00d1 | | Pop_Control Pop_Count_1
06f3 4801 |H | Short_Literal 0x1
06f4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
06f5 0000 0000 | | .XXX[0x3]
06f7 0000 | |
06f8 ; --------------------------------------------------------------------------------------
06f8 ; SUBPROGRAM
06f8 ; --------------------------------------------------------------------------------------
06f8 06fb | | .CONST 0x06fb ; Address of begin
06f9 0004 | | .CONST 0x0004 ; Address of exception handler
06fa 0001 | | .CONST 0x0001 ; Number of locals
06fb BODY_06f8:
06fb INIT_06f8:
06fb e5ff | | Load 0x2,-0x1
06fc 0b44 | D | Execute_Immediate Case_Compare,0x44
06fd 7004 |p | Jump_Nonzero 0x702
06fe 0f4c | L | Execute_Immediate Equal,0x4c
06ff 7003 |p | Jump_Nonzero 0x703
0700 4800 |H | Short_Literal 0x0
0701 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0702 00d1 | | Pop_Control Pop_Count_1
0703 4801 |H | Short_Literal 0x1
0704 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0705 0000 0000 | | .XXX[0x3]
0707 0000 | |
0708 ; --------------------------------------------------------------------------------------
0708 ; SUBPROGRAM
0708 ; --------------------------------------------------------------------------------------
0708 0716 | | .CONST 0x0716 ; Address of begin
0709 0004 | | .CONST 0x0004 ; Address of exception handler
070a 0004 | | .CONST 0x0004 ; Number of locals
070b INIT_0708:
070b e5ff | | Load 0x2,-0x1
070c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
070d e046 | F | Load 0x0,0x46
070e 1b59 | Y | Execute Package,Field_Read,Field_Number 0x59
070f 03f1 | | Declare_Variable Discrete,With_Value
0710 e001 | | Load 0x0,0x1
0711 1b92 | | Execute Package,Field_Read,Field_Number 0x92
0712 0322 | " | Declare_Variable Record
0713 e001 | | Load 0x0,0x1
0714 1b5f | _ | Execute Package,Field_Read,Field_Number 0x5f
0715 0322 | " | Declare_Variable Record
0716 BODY_0708:
0716 e402 | | Load 0x2,0x2
0717 8295 | | Call 0x1,0x95
0718 6816 |h | Jump_Zero 0x72f
0719 4800 |H | Short_Literal 0x0
071a e218 | | Load 0x1,0x18
071b 025b | [ | Execute Discrete,Check_In_Type
071c e5ff | | Load 0x2,-0x1
071d e26d | m | Load 0x1,0x6d
071e 1d6e | n | Execute_Immediate Reference_Lex_1,0x6e
071f 826c | l | Call 0x1,0x6c
0720 e403 | | Load 0x2,0x3
0721 017d | } | Execute Record,Structure_Write
0722 e403 | | Load 0x2,0x3
0723 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0724 e404 | | Load 0x2,0x4
0725 017d | } | Execute Record,Structure_Write
0726 00d8 | | Load_Top At_Offset_0
0727 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0728 8296 | | Call 0x1,0x96
0729 7003 |p | Jump_Nonzero 0x72d
072a 00d8 | | Load_Top At_Offset_0
072b 8297 | | Call 0x1,0x97
072c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
072d 4801 |H | Short_Literal 0x1
072e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
072f 4800 |H | Short_Literal 0x0
0730 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0731 0000 0000 | | .BLANK 0000[0x7]
0738 ; --------------------------------------------------------------------------------------
0738 ; SUBPROGRAM
0738 ; --------------------------------------------------------------------------------------
0738 073b | ; | .CONST 0x073b ; Address of begin
0739 0004 | | .CONST 0x0004 ; Address of exception handler
073a 0001 | | .CONST 0x0001 ; Number of locals
073b BODY_0738:
073b INIT_0738:
073b e5ff | | Load 0x2,-0x1
073c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
073d 0f4c | L | Execute_Immediate Equal,0x4c
073e 6809 |h | Jump_Zero 0x748
073f 4800 |H | Short_Literal 0x0
0740 e218 | | Load 0x1,0x18
0741 025b | [ | Execute Discrete,Check_In_Type
0742 e5ff | | Load 0x2,-0x1
0743 e271 | q | Load 0x1,0x71
0744 1d72 | r | Execute_Immediate Reference_Lex_1,0x72
0745 826c | l | Call 0x1,0x6c
0746 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0747 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0748 4800 |H | Short_Literal 0x0
0749 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
074a 0000 0000 | | .BLANK 0000[0x6]
0750 ; --------------------------------------------------------------------------------------
0750 ; SUBPROGRAM
0750 ; --------------------------------------------------------------------------------------
0750 0753 | S | .CONST 0x0753 ; Address of begin
0751 0004 | | .CONST 0x0004 ; Address of exception handler
0752 0001 | | .CONST 0x0001 ; Number of locals
0753 BODY_0750:
0753 INIT_0750:
0753 e5ff | | Load 0x2,-0x1
0754 0b74 | t | Execute_Immediate Case_Compare,0x74
0755 7004 |p | Jump_Nonzero 0x75a
0756 0f7c | | | Execute_Immediate Equal,0x7c
0757 7003 |p | Jump_Nonzero 0x75b
0758 4800 |H | Short_Literal 0x0
0759 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
075a 00d1 | | Pop_Control Pop_Count_1
075b 4801 |H | Short_Literal 0x1
075c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
075d 0000 0000 | | .XXX[0x3]
075f 0000 | |
0760 ; --------------------------------------------------------------------------------------
0760 ; SUBPROGRAM
0760 ; --------------------------------------------------------------------------------------
0760 0763 | c | .CONST 0x0763 ; Address of begin
0761 0004 | | .CONST 0x0004 ; Address of exception handler
0762 0001 | | .CONST 0x0001 ; Number of locals
0763 BODY_0760:
0763 INIT_0760:
0763 e5ff | | Load 0x2,-0x1
0764 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0765 00d8 | | Load_Top At_Offset_0
0766 0d6c | l | Execute_Immediate Less,0x6c
0767 7018 |p | Jump_Nonzero 0x780
0768 0a94 | | Execute_Immediate Plus,-0x6c
0769 4613 |F | Jump_Case 0x14
076a 7817 |x | Jump 0x782 ; case 0x0
076b 7812 |x | Jump 0x77e ; case 0x1
076c 7811 |x | Jump 0x77e ; case 0x2
076d 7810 |x | Jump 0x77e ; case 0x3
076e 780f |x | Jump 0x77e ; case 0x4
076f 780e |x | Jump 0x77e ; case 0x5
0770 780d |x | Jump 0x77e ; case 0x6
0771 780c |x | Jump 0x77e ; case 0x7
0772 780f |x | Jump 0x782 ; case 0x8
0773 780a |x | Jump 0x77e ; case 0x9
0774 7809 |x | Jump 0x77e ; case 0xa
0775 7808 |x | Jump 0x77e ; case 0xb
0776 7807 |x | Jump 0x77e ; case 0xc
0777 7806 |x | Jump 0x77e ; case 0xd
0778 7805 |x | Jump 0x77e ; case 0xe
0779 7804 |x | Jump 0x77e ; case 0xf
077a 7807 |x | Jump 0x782 ; case 0x10
077b 7802 |x | Jump 0x77e ; case 0x11
077c 7801 |x | Jump 0x77e ; case 0x12
077d 7800 |x | Jump 0x77e ; case 0x13
077e 4800 |H | Short_Literal 0x0
077f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0780 00d1 | | Pop_Control Pop_Count_1
0781 7ffc | | Jump 0x77e
0782 e5ff | | Load 0x2,-0x1
0783 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0784 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
0785 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0786 0000 0000 | | .XXX[0x2]
0788 ; --------------------------------------------------------------------------------------
0788 ; SUBPROGRAM
0788 ; --------------------------------------------------------------------------------------
0788 078b | | .CONST 0x078b ; Address of begin
0789 0004 | | .CONST 0x0004 ; Address of exception handler
078a 0001 | | .CONST 0x0001 ; Number of locals
078b BODY_0788:
078b INIT_0788:
078b e5ff | | Load 0x2,-0x1
078c e5fe | | Load 0x2,-0x2
078d 0273 | s | Execute Discrete,Plus
078e 0aff | | Execute_Immediate Plus,-0x1
078f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0790 ; --------------------------------------------------------------------------------------
0790 ; SUBPROGRAM
0790 ; --------------------------------------------------------------------------------------
0790 079a | | .CONST 0x079a ; Address of begin
0791 0004 | | .CONST 0x0004 ; Address of exception handler
0792 0002 | | .CONST 0x0002 ; Number of locals
0793 INIT_0790:
0793 e001 | | Load 0x0,0x1
0794 1b9c | | Execute Package,Field_Read,Field_Number 0x9c
0795 0322 | " | Declare_Variable Record
0796 e5ff | | Load 0x2,-0x1
0797 8268 | h | Call 0x1,0x68
0798 e402 | | Load 0x2,0x2
0799 017d | } | Execute Record,Structure_Write
079a BODY_0790:
079a 00d8 | | Load_Top At_Offset_0
079b 3c0b |< | Execute Record,Field_Read,Field_Number 0xb
079c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
079d 0000 0000 | | .XXX[0x3]
079f 0000 | |
07a0 ; --------------------------------------------------------------------------------------
07a0 ; SUBPROGRAM
07a0 ; --------------------------------------------------------------------------------------
07a0 07de | | .CONST 0x07de ; Address of begin
07a1 0004 | | .CONST 0x0004 ; Address of exception handler
07a2 0011 | | .CONST 0x0011 ; Number of locals
07a3 INIT_07a0:
07a3 e5fe | | Load 0x2,-0x2
07a4 012c | , | Execute Any,Size
07a5 00e5 | | Load_Encached Long_Integer_Cache
07a6 03f1 | | Declare_Variable Discrete,With_Value
07a7 4801 |H | Short_Literal 0x1
07a8 e402 | | Load 0x2,0x2
07a9 e21a | | Load 0x1,0x1a
07aa 035b | [ | Declare_Type Array,Constrained
07ab a002 | | Store_Unchecked 0x0,0x2
07ac 00c6 | | Action Check_Subprogram_Elaborated
07ad 00d8 | | Load_Top At_Offset_0
07ae e5fe | | Load 0x2,-0x2
07af e04b | K | Load 0x0,0x4b
07b0 e04c | L | Load 0x0,0x4c
07b1 4808 |H | Short_Literal 0x8
07b2 0007 | | Action Break_Optional
07b3 e403 | | Load 0x2,0x3
07b4 0337 | 7 | Declare_Variable Array
07b5 00d8 | | Load_Top At_Offset_0
07b6 0335 | 5 | Declare_Variable Array,Duplicate
07b7 00cd | | Action Spare6_Action
07b8 e409 | | Load 0x2,0x9
07b9 01d9 | | Execute Vector,Reverse_Bounds
07ba 0263 | c | Execute Discrete,Above_Bound
07bb 7005 |p | Jump_Nonzero 0x7c1
07bc 4800 |H | Short_Literal 0x0
07bd e40c | | Load 0x2,0xc
07be e40a | | Load 0x2,0xa
07bf 01d6 | | Execute Vector,Field_Write
07c0 3ffb |? | Loop_Increasing 0x7bc
07c1 e409 | | Load 0x2,0x9
07c2 01d4 | | Execute Vector,Structure_Write
07c3 00d8 | | Load_Top At_Offset_0
07c4 012c | , | Execute Any,Size
07c5 00e5 | | Load_Encached Long_Integer_Cache
07c6 03f1 | | Declare_Variable Discrete,With_Value
07c7 e5fc | | Load 0x2,-0x4
07c8 829c | | Call 0x1,0x9c
07c9 00e5 | | Load_Encached Long_Integer_Cache
07ca 03f1 | | Declare_Variable Discrete,With_Value
07cb 00d8 | | Load_Top At_Offset_0
07cc 601b |` | Indirect_Literal Discrete,0x7e8,{0x00000000, 0x00002000}
07cd 027a | z | Execute Discrete,Less_Equal
07ce 7001 |p | Jump_Nonzero 0x7d0
07cf 0887 | | Execute_Immediate Raise,0x87
07d0 4801 |H | Short_Literal 0x1
07d1 e40b | | Load 0x2,0xb
07d2 e21a | | Load 0x1,0x1a
07d3 035b | [ | Declare_Type Array,Constrained
07d4 e01b | | Load 0x0,0x1b
07d5 1b0d | | Execute Package,Field_Read,Field_Number 0xd
07d6 1911 | | Execute Package,Field_Reference,Field_Number 0x11
07d7 00c6 | | Action Check_Subprogram_Elaborated
07d8 00d8 | | Load_Top At_Offset_0
07d9 e04d | M | Load 0x0,0x4d
07da e04e | N | Load 0x0,0x4e
07db 4810 |H | Short_Literal 0x10
07dc 029f 193b | ;| Declare_Subprogram INIT_1938,For_Call
07de BODY_07a0:
07de 00cf | | Action Mark_Auxiliary
07df 4803 |H | Short_Literal 0x3
07e0 4801 |H | Short_Literal 0x1
07e1 0007 | | Action Break_Optional
07e2 8411 | | Call 0x2,0x11
07e3 00c8 | | Action Pop_Auxiliary_Range
07e4 3ffd |? | Loop_Increasing 0x7e2
07e5 00ce | | Action Pop_Auxiliary
07e6 4884 |H | Short_Literal 0x84
07e7 0257 | W | Execute Discrete,Raise
07e8 0000 0000 | | .LITERAL {0x00000000, 0x00002000}
07ec 0000 0000 | | .BLANK 0000[0x4]
07f0 ; --------------------------------------------------------------------------------------
07f0 ; SUBPROGRAM
07f0 ; --------------------------------------------------------------------------------------
07f0 0806 | | .CONST 0x0806 ; Address of begin
07f1 0004 | | .CONST 0x0004 ; Address of exception handler
07f2 0003 | | .CONST 0x0003 ; Number of locals
07f3 INIT_07f0:
07f3 e2a7 | | Load 0x1,0xa7
07f4 0337 | 7 | Declare_Variable Array
07f5 4800 |H | Short_Literal 0x0
07f6 e2a6 | | Load 0x1,0xa6
07f7 0aff | | Execute_Immediate Plus,-0x1
07f8 e5ff | | Load 0x2,-0x1
07f9 01cf | | Execute Vector,Slice_Read
07fa e402 | | Load 0x2,0x2
07fb 01d4 | | Execute Vector,Structure_Write
07fc e001 | | Load 0x0,0x1
07fd 1ba2 | | Execute Package,Field_Read,Field_Number 0xa2
07fe 0322 | " | Declare_Variable Record
07ff e402 | | Load 0x2,0x2
0800 e2a8 | | Load 0x1,0xa8
0801 e2a9 | | Load 0x1,0xa9
0802 1daa | | Execute_Immediate Reference_Lex_1,0xaa
0803 8002 | | Call 0x0,0x2
0804 e403 | | Load 0x2,0x3
0805 017d | } | Execute Record,Structure_Write
0806 BODY_07f0:
0806 00d8 | | Load_Top At_Offset_0
0807 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0808 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0809 0000 0000 | | .BLANK 0000[0x7]
0810 ; --------------------------------------------------------------------------------------
0810 ; SUBPROGRAM
0810 ; --------------------------------------------------------------------------------------
0810 0820 | | .CONST 0x0820 ; Address of begin
0811 0004 | | .CONST 0x0004 ; Address of exception handler
0812 0007 | | .CONST 0x0007 ; Number of locals
0813 INIT_0810:
0813 e01b | | Load 0x0,0x1b
0814 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0815 1911 | | Execute Package,Field_Reference,Field_Number 0x11
0816 00c6 | | Action Check_Subprogram_Elaborated
0817 e2a7 | | Load 0x1,0xa7
0818 e04f | O | Load 0x0,0x4f
0819 e050 | P | Load 0x0,0x50
081a 4805 |H | Short_Literal 0x5
081b 0007 | | Action Break_Optional
081c e2a7 | | Load 0x1,0xa7
081d 0337 | 7 | Declare_Variable Array
081e 029f 1963 | c| Declare_Subprogram INIT_1960,For_Call
0820 BODY_0810:
0820 00cf | | Action Mark_Auxiliary
0821 4803 |H | Short_Literal 0x3
0822 4801 |H | Short_Literal 0x1
0823 0007 | | Action Break_Optional
0824 8407 | | Call 0x2,0x7
0825 00c8 | | Action Pop_Auxiliary_Range
0826 3ffd |? | Loop_Increasing 0x824
0827 00ce | | Action Pop_Auxiliary
0828 4884 |H | Short_Literal 0x84
0829 0257 | W | Execute Discrete,Raise
082a 0000 0000 | | .BLANK 0000[0x6]
0830 ; --------------------------------------------------------------------------------------
0830 ; SUBPROGRAM
0830 ; --------------------------------------------------------------------------------------
0830 0833 | 3 | .CONST 0x0833 ; Address of begin
0831 0004 | | .CONST 0x0004 ; Address of exception handler
0832 0001 | | .CONST 0x0001 ; Number of locals
0833 BODY_0830:
0833 INIT_0830:
0833 e5ff | | Load 0x2,-0x1
0834 82ae | | Call 0x1,0xae
0835 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0836 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0837 0000 | | .XXX[0x1]
0838 ; --------------------------------------------------------------------------------------
0838 ; SUBPROGRAM
0838 ; --------------------------------------------------------------------------------------
0838 0853 | S | .CONST 0x0853 ; Address of begin
0839 0004 | | .CONST 0x0004 ; Address of exception handler
083a 0004 | | .CONST 0x0004 ; Number of locals
083b INIT_0838:
083b e5fe | | Load 0x2,-0x2
083c 00e5 | | Load_Encached Long_Integer_Cache
083d 03f1 | | Declare_Variable Discrete,With_Value
083e e2b1 | | Load 0x1,0xb1
083f 0337 | 7 | Declare_Variable Array
0840 e402 | | Load 0x2,0x2
0841 e402 | | Load 0x2,0x2
0842 e2b0 | | Load 0x1,0xb0
0843 0273 | s | Execute Discrete,Plus
0844 0aff | | Execute_Immediate Plus,-0x1
0845 e5ff | | Load 0x2,-0x1
0846 01cf | | Execute Vector,Slice_Read
0847 e403 | | Load 0x2,0x3
0848 01d4 | | Execute Vector,Structure_Write
0849 e001 | | Load 0x0,0x1
084a 1ba3 | | Execute Package,Field_Read,Field_Number 0xa3
084b 0322 | " | Declare_Variable Record
084c e403 | | Load 0x2,0x3
084d e2b2 | | Load 0x1,0xb2
084e e2b3 | | Load 0x1,0xb3
084f 1db4 | | Execute_Immediate Reference_Lex_1,0xb4
0850 8002 | | Call 0x0,0x2
0851 e404 | | Load 0x2,0x4
0852 017d | } | Execute Record,Structure_Write
0853 BODY_0838:
0853 00d8 | | Load_Top At_Offset_0
0854 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0855 0000 0000 | | .XXX[0x3]
0857 0000 | |
0858 ; --------------------------------------------------------------------------------------
0858 ; SUBPROGRAM
0858 ; --------------------------------------------------------------------------------------
0858 0868 | h | .CONST 0x0868 ; Address of begin
0859 0004 | | .CONST 0x0004 ; Address of exception handler
085a 0007 | | .CONST 0x0007 ; Number of locals
085b INIT_0858:
085b e01b | | Load 0x0,0x1b
085c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
085d 1911 | | Execute Package,Field_Reference,Field_Number 0x11
085e 00c6 | | Action Check_Subprogram_Elaborated
085f e2b1 | | Load 0x1,0xb1
0860 e051 | Q | Load 0x0,0x51
0861 e052 | R | Load 0x0,0x52
0862 4805 |H | Short_Literal 0x5
0863 0007 | | Action Break_Optional
0864 e2b1 | | Load 0x1,0xb1
0865 0337 | 7 | Declare_Variable Array
0866 029f 1983 | | Declare_Subprogram INIT_1980,For_Call
0868 BODY_0858:
0868 00cf | | Action Mark_Auxiliary
0869 4803 |H | Short_Literal 0x3
086a 4801 |H | Short_Literal 0x1
086b 0007 | | Action Break_Optional
086c 8407 | | Call 0x2,0x7
086d 00c8 | | Action Pop_Auxiliary_Range
086e 3ffd |? | Loop_Increasing 0x86c
086f 00ce | | Action Pop_Auxiliary
0870 4884 |H | Short_Literal 0x84
0871 0257 | W | Execute Discrete,Raise
0872 0000 0000 | | .BLANK 0000[0x6]
0878 ; --------------------------------------------------------------------------------------
0878 ; SUBPROGRAM
0878 ; --------------------------------------------------------------------------------------
0878 0884 | | .CONST 0x0884 ; Address of begin
0879 0004 | | .CONST 0x0004 ; Address of exception handler
087a 0003 | | .CONST 0x0003 ; Number of locals
087b INIT_0878:
087b e5ff | | Load 0x2,-0x1
087c 01dc | | Execute Vector,Last
087d 00e5 | | Load_Encached Long_Integer_Cache
087e 03f1 | | Declare_Variable Discrete,With_Value
087f e5fe | | Load 0x2,-0x2
0880 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
0881 e001 | | Load 0x0,0x1
0882 1b31 | 1 | Execute Package,Field_Read,Field_Number 0x31
0883 03f1 | | Declare_Variable Discrete,With_Value
0884 BODY_0878:
0884 00d8 | | Load_Top At_Offset_0
0885 e2b0 | | Load 0x1,0xb0
0886 0273 | s | Execute Discrete,Plus
0887 0aff | | Execute_Immediate Plus,-0x1
0888 e402 | | Load 0x2,0x2
0889 027a | z | Execute Discrete,Less_Equal
088a 6804 |h | Jump_Zero 0x88f
088b 00d8 | | Load_Top At_Offset_0
088c e5ff | | Load 0x2,-0x1
088d 82b7 | | Call 0x1,0xb7
088e 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
088f 00d8 | | Load_Top At_Offset_0
0890 e5fd | | Load 0x2,-0x3
0891 8285 | | Call 0x1,0x85
0892 82b8 | | Call 0x1,0xb8
0893 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0894 0000 0000 | | .BLANK 0000[0x4]
0898 ; --------------------------------------------------------------------------------------
0898 ; SUBPROGRAM
0898 ; --------------------------------------------------------------------------------------
0898 08a9 | | .CONST 0x08a9 ; Address of begin
0899 0004 | | .CONST 0x0004 ; Address of exception handler
089a 0007 | | .CONST 0x0007 ; Number of locals
089b INIT_0898:
089b 4801 |H | Short_Literal 0x1
089c 6017 |` | Indirect_Literal Discrete,0x8b4,{0x00000000, 0x00002000}
089d e21a | | Load 0x1,0x1a
089e 035b | [ | Declare_Type Array,Constrained
089f e01b | | Load 0x0,0x1b
08a0 1b0d | | Execute Package,Field_Read,Field_Number 0xd
08a1 1911 | | Execute Package,Field_Reference,Field_Number 0x11
08a2 00c6 | | Action Check_Subprogram_Elaborated
08a3 00d8 | | Load_Top At_Offset_0
08a4 e053 | S | Load 0x0,0x53
08a5 e054 | T | Load 0x0,0x54
08a6 4806 |H | Short_Literal 0x6
08a7 029f 19a3 | | Declare_Subprogram INIT_19a0,For_Call
08a9 BODY_0898:
08a9 00cf | | Action Mark_Auxiliary
08aa 4803 |H | Short_Literal 0x3
08ab 4801 |H | Short_Literal 0x1
08ac 0007 | | Action Break_Optional
08ad 8407 | | Call 0x2,0x7
08ae 00c8 | | Action Pop_Auxiliary_Range
08af 3ffd |? | Loop_Increasing 0x8ad
08b0 00ce | | Action Pop_Auxiliary
08b1 4884 |H | Short_Literal 0x84
08b2 0257 | W | Execute Discrete,Raise
08b3 0000 | | .XXX[0x1]
08b4 0000 0000 | | .LITERAL {0x00000000, 0x00002000}
08b8 ; --------------------------------------------------------------------------------------
08b8 ; SUBPROGRAM
08b8 ; --------------------------------------------------------------------------------------
08b8 08cf | | .CONST 0x08cf ; Address of begin
08b9 0004 | | .CONST 0x0004 ; Address of exception handler
08ba 0007 | | .CONST 0x0007 ; Number of locals
08bb INIT_08b8:
08bb e5fe | | Load 0x2,-0x2
08bc 67f7 |g | Indirect_Literal Discrete,0x8b4,{0x00000000, 0x00002000}
08bd 027a | z | Execute Discrete,Less_Equal
08be 7001 |p | Jump_Nonzero 0x8c0
08bf 0887 | | Execute_Immediate Raise,0x87
08c0 4800 |H | Short_Literal 0x0
08c1 e5fe | | Load 0x2,-0x2
08c2 0aff | | Execute_Immediate Plus,-0x1
08c3 e21a | | Load 0x1,0x1a
08c4 035b | [ | Declare_Type Array,Constrained
08c5 e01b | | Load 0x0,0x1b
08c6 1b0d | | Execute Package,Field_Read,Field_Number 0xd
08c7 1911 | | Execute Package,Field_Reference,Field_Number 0x11
08c8 00c6 | | Action Check_Subprogram_Elaborated
08c9 00d8 | | Load_Top At_Offset_0
08ca e055 | U | Load 0x0,0x55
08cb e056 | V | Load 0x0,0x56
08cc 4806 |H | Short_Literal 0x6
08cd 029f 19bb | | Declare_Subprogram INIT_19b8,For_Call
08cf BODY_08b8:
08cf 00cf | | Action Mark_Auxiliary
08d0 4803 |H | Short_Literal 0x3
08d1 4801 |H | Short_Literal 0x1
08d2 0007 | | Action Break_Optional
08d3 8407 | | Call 0x2,0x7
08d4 00c8 | | Action Pop_Auxiliary_Range
08d5 3ffd |? | Loop_Increasing 0x8d3
08d6 00ce | | Action Pop_Auxiliary
08d7 4884 |H | Short_Literal 0x84
08d8 0257 | W | Execute Discrete,Raise
08d9 0000 0000 | | .BLANK 0000[0x7]
08e0 ; --------------------------------------------------------------------------------------
08e0 ; SUBPROGRAM
08e0 ; --------------------------------------------------------------------------------------
08e0 0905 | | .CONST 0x0905 ; Address of begin
08e1 0004 | | .CONST 0x0004 ; Address of exception handler
08e2 0008 | | .CONST 0x0008 ; Number of locals
08e3 INIT_08e0:
08e3 4800 |H | Short_Literal 0x0
08e4 e5fe | | Load 0x2,-0x2
08e5 0aff | | Execute_Immediate Plus,-0x1
08e6 e21a | | Load 0x1,0x1a
08e7 0334 | 4 | Declare_Variable Array,With_Constraint
08e8 e5fe | | Load 0x2,-0x2
08e9 09f3 | | Execute_Immediate Binary_Scale,-0xd
08ea 00d8 | | Load_Top At_Offset_0
08eb 00e3 | | Load_Encached Natural_Cache
08ec 0260 | ` | Execute Discrete,In_Type
08ed 7001 |p | Jump_Nonzero 0x8ef
08ee 08e0 | | Execute_Immediate Raise,0xe0
08ef 00e3 | | Load_Encached Natural_Cache
08f0 03f1 | | Declare_Variable Discrete,With_Value
08f1 e5fe | | Load 0x2,-0x2
08f2 6029 |`) | Indirect_Literal Discrete,0x91c,{0x00000000, 0x00001fff}
08f3 0279 | y | Execute Discrete,And
08f4 00d8 | | Load_Top At_Offset_0
08f5 00e3 | | Load_Encached Natural_Cache
08f6 0260 | ` | Execute Discrete,In_Type
08f7 7001 |p | Jump_Nonzero 0x8f9
08f8 08e0 | | Execute_Immediate Raise,0xe0
08f9 00e3 | | Load_Encached Natural_Cache
08fa 03f1 | | Declare_Variable Discrete,With_Value
08fb e5ff | | Load 0x2,-0x1
08fc e048 | H | Load 0x0,0x48
08fd 1b0d | | Execute Package,Field_Read,Field_Number 0xd
08fe 03f1 | | Declare_Variable Discrete,With_Value
08ff 00e5 | | Load_Encached Long_Integer_Cache
0900 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0901 029f 19d3 | | Declare_Subprogram INIT_19d0,For_Call
0903 029f 19f3 | | Declare_Subprogram INIT_19f0,For_Call
0905 BODY_08e0:
0905 00cf | | Action Mark_Auxiliary
0906 e403 | | Load 0x2,0x3
0907 4801 |H | Short_Literal 0x1
0908 0263 | c | Execute Discrete,Above_Bound
0909 700a |p | Jump_Nonzero 0x914
090a 8407 | | Call 0x2,0x7
090b e406 | | Load 0x2,0x6
090c 600b |` | Indirect_Literal Discrete,0x918,{0x00000000, 0x00002000}
090d 0273 | s | Execute Discrete,Plus
090e a406 | | Store_Unchecked 0x2,0x6
090f e405 | | Load 0x2,0x5
0910 8286 | | Call 0x1,0x86
0911 a405 | | Store_Unchecked 0x2,0x5
0912 00c8 | | Action Pop_Auxiliary_Range
0913 3ff6 |? | Loop_Increasing 0x90a
0914 00ce | | Action Pop_Auxiliary
0915 8408 | | Call 0x2,0x8
0916 e402 | | Load 0x2,0x2
0917 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0918 0000 0000 | | .LITERAL {0x00000000, 0x00002000}
091c 0000 0000 | | .LITERAL {0x00000000, 0x00001fff}
0920 ; --------------------------------------------------------------------------------------
0920 ; SUBPROGRAM
0920 ; --------------------------------------------------------------------------------------
0920 0930 | 0 | .CONST 0x0930 ; Address of begin
0921 0004 | | .CONST 0x0004 ; Address of exception handler
0922 0007 | | .CONST 0x0007 ; Number of locals
0923 INIT_0920:
0923 e01b | | Load 0x0,0x1b
0924 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0925 1911 | | Execute Package,Field_Reference,Field_Number 0x11
0926 00c6 | | Action Check_Subprogram_Elaborated
0927 e2bf | | Load 0x1,0xbf
0928 e057 | W | Load 0x0,0x57
0929 e058 | X | Load 0x0,0x58
092a 4805 |H | Short_Literal 0x5
092b 0007 | | Action Break_Optional
092c e2bf | | Load 0x1,0xbf
092d 0337 | 7 | Declare_Variable Array
092e 029f 1a0b | | Declare_Subprogram INIT_1a08,For_Call
0930 BODY_0920:
0930 00cf | | Action Mark_Auxiliary
0931 4803 |H | Short_Literal 0x3
0932 4801 |H | Short_Literal 0x1
0933 0007 | | Action Break_Optional
0934 8407 | | Call 0x2,0x7
0935 00c8 | | Action Pop_Auxiliary_Range
0936 3ffd |? | Loop_Increasing 0x934
0937 00ce | | Action Pop_Auxiliary
0938 4884 |H | Short_Literal 0x84
0939 0257 | W | Execute Discrete,Raise
093a 0000 0000 | | .BLANK 0000[0x6]
0940 ; --------------------------------------------------------------------------------------
0940 ; SUBPROGRAM
0940 ; --------------------------------------------------------------------------------------
0940 095a | Z | .CONST 0x095a ; Address of begin
0941 0004 | | .CONST 0x0004 ; Address of exception handler
0942 0003 | | .CONST 0x0003 ; Number of locals
0943 INIT_0940:
0943 e2bf | | Load 0x1,0xbf
0944 0337 | 7 | Declare_Variable Array
0945 e5ff | | Load 0x2,-0x1
0946 01dd | | Execute Vector,First
0947 e5ff | | Load 0x2,-0x1
0948 01dd | | Execute Vector,First
0949 e2be | | Load 0x1,0xbe
094a 0273 | s | Execute Discrete,Plus
094b 0aff | | Execute_Immediate Plus,-0x1
094c e5ff | | Load 0x2,-0x1
094d 01cf | | Execute Vector,Slice_Read
094e e402 | | Load 0x2,0x2
094f 01d4 | | Execute Vector,Structure_Write
0950 e001 | | Load 0x0,0x1
0951 1ba0 | | Execute Package,Field_Read,Field_Number 0xa0
0952 0322 | " | Declare_Variable Record
0953 e402 | | Load 0x2,0x2
0954 e2c0 | | Load 0x1,0xc0
0955 e2c1 | | Load 0x1,0xc1
0956 1dc2 | | Execute_Immediate Reference_Lex_1,0xc2
0957 8002 | | Call 0x0,0x2
0958 e403 | | Load 0x2,0x3
0959 017d | } | Execute Record,Structure_Write
095a BODY_0940:
095a 00d8 | | Load_Top At_Offset_0
095b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
095c 0000 0000 | | .BLANK 0000[0x4]
0960 ; --------------------------------------------------------------------------------------
0960 ; SUBPROGRAM
0960 ; --------------------------------------------------------------------------------------
0960 0987 | | .CONST 0x0987 ; Address of begin
0961 0004 | | .CONST 0x0004 ; Address of exception handler
0962 0009 | | .CONST 0x0009 ; Number of locals
0963 INIT_0960:
0963 e275 | u | Load 0x1,0x75
0964 0337 | 7 | Declare_Variable Array
0965 00d8 | | Load_Top At_Offset_0
0966 0335 | 5 | Declare_Variable Array,Duplicate
0967 00cd | | Action Spare6_Action
0968 4840 |H@ | Short_Literal 0x40
0969 4801 |H | Short_Literal 0x1
096a 4800 |H | Short_Literal 0x0
096b e405 | | Load 0x2,0x5
096c e403 | | Load 0x2,0x3
096d 01d6 | | Execute Vector,Field_Write
096e 3ffb |? | Loop_Increasing 0x96a
096f e402 | | Load 0x2,0x2
0970 01d4 | | Execute Vector,Structure_Write
0971 e5fe | | Load 0x2,-0x2
0972 829c | | Call 0x1,0x9c
0973 00e5 | | Load_Encached Long_Integer_Cache
0974 03f1 | | Declare_Variable Discrete,With_Value
0975 00d8 | | Load_Top At_Offset_0
0976 0d41 | A | Execute_Immediate Less,0x41
0977 7001 |p | Jump_Nonzero 0x979
0978 0887 | | Execute_Immediate Raise,0x87
0979 4801 |H | Short_Literal 0x1
097a e403 | | Load 0x2,0x3
097b e21a | | Load 0x1,0x1a
097c 035b | [ | Declare_Type Array,Constrained
097d e01b | | Load 0x0,0x1b
097e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
097f 1911 | | Execute Package,Field_Reference,Field_Number 0x11
0980 00c6 | | Action Check_Subprogram_Elaborated
0981 00d8 | | Load_Top At_Offset_0
0982 e059 | Y | Load 0x0,0x59
0983 e05a | Z | Load 0x0,0x5a
0984 4808 |H | Short_Literal 0x8
0985 029f 1a2b | +| Declare_Subprogram INIT_1a28,For_Call
0987 BODY_0960:
0987 00cf | | Action Mark_Auxiliary
0988 4803 |H | Short_Literal 0x3
0989 4801 |H | Short_Literal 0x1
098a 0007 | | Action Break_Optional
098b 8409 | | Call 0x2,0x9
098c 00c8 | | Action Pop_Auxiliary_Range
098d 3ffd |? | Loop_Increasing 0x98b
098e 00ce | | Action Pop_Auxiliary
098f 4884 |H | Short_Literal 0x84
0990 0257 | W | Execute Discrete,Raise
0991 0000 0000 | | .BLANK 0000[0x7]
0998 ; --------------------------------------------------------------------------------------
0998 ; SUBPROGRAM
0998 ; --------------------------------------------------------------------------------------
0998 099b | | .CONST 0x099b ; Address of begin
0999 0004 | | .CONST 0x0004 ; Address of exception handler
099a 0001 | | .CONST 0x0001 ; Number of locals
099b BODY_0998:
099b INIT_0998:
099b e5ff | | Load 0x2,-0x1
099c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
099d e2cd | | Load 0x1,0xcd
099e e2ce | | Load 0x1,0xce
099f 1dcf | | Execute_Immediate Reference_Lex_1,0xcf
09a0 8002 | | Call 0x0,0x2
09a1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
09a2 0000 0000 | | .BLANK 0000[0x6]
09a8 ; --------------------------------------------------------------------------------------
09a8 ; SUBPROGRAM
09a8 ; --------------------------------------------------------------------------------------
09a8 09ca | | .CONST 0x09ca ; Address of begin
09a9 0004 | | .CONST 0x0004 ; Address of exception handler
09aa 0006 | | .CONST 0x0006 ; Number of locals
09ab INIT_09a8:
09ab e5fe | | Load 0x2,-0x2
09ac 02c7 | | Declare_Variable Any
09ad 00d8 | | Load_Top At_Offset_0
09ae 1c00 | | Execute_Immediate Run_Utility,0x0
09af 4802 |H | Short_Literal 0x2
09b0 4802 |H | Short_Literal 0x2
09b1 0099 | | Action Reference_Dynamic
09b2 012d | - | Execute Any,Address
09b3 e046 | F | Load 0x0,0x46
09b4 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
09b5 e046 | F | Load 0x0,0x46
09b6 1b2a | * | Execute Package,Field_Read,Field_Number 0x2a
09b7 e046 | F | Load 0x0,0x46
09b8 183a | : | Execute Package,Field_Execute,Field_Number 0x3a
09b9 e046 | F | Load 0x0,0x46
09ba 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
09bb e046 | F | Load 0x0,0x46
09bc 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
09bd 011e | | Execute Any,Convert
09be e046 | F | Load 0x0,0x46
09bf 1b5a | Z | Execute Package,Field_Read,Field_Number 0x5a
09c0 0322 | " | Declare_Variable Record
09c1 e403 | | Load 0x2,0x3
09c2 e404 | | Load 0x2,0x4
09c3 e046 | F | Load 0x0,0x46
09c4 185b | [ | Execute Package,Field_Execute,Field_Number 0x5b
09c5 e405 | | Load 0x2,0x5
09c6 017d | } | Execute Record,Structure_Write
09c7 e001 | | Load 0x0,0x1
09c8 1b5f | _ | Execute Package,Field_Read,Field_Number 0x5f
09c9 0322 | " | Declare_Variable Record
09ca BODY_09a8:
09ca e405 | | Load 0x2,0x5
09cb 82d2 | | Call 0x1,0xd2
09cc e406 | | Load 0x2,0x6
09cd 017d | } | Execute Record,Structure_Write
09ce 00d8 | | Load_Top At_Offset_0
09cf 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
09d0 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
09d1 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
09d2 0000 0000 | | .BLANK 0000[0x6]
09d8 ; --------------------------------------------------------------------------------------
09d8 ; SUBPROGRAM
09d8 ; --------------------------------------------------------------------------------------
09d8 09fa | | .CONST 0x09fa ; Address of begin
09d9 0004 | | .CONST 0x0004 ; Address of exception handler
09da 0006 | | .CONST 0x0006 ; Number of locals
09db INIT_09d8:
09db e5fe | | Load 0x2,-0x2
09dc 02c7 | | Declare_Variable Any
09dd 00d8 | | Load_Top At_Offset_0
09de 1c00 | | Execute_Immediate Run_Utility,0x0
09df 4802 |H | Short_Literal 0x2
09e0 4802 |H | Short_Literal 0x2
09e1 0099 | | Action Reference_Dynamic
09e2 012d | - | Execute Any,Address
09e3 e046 | F | Load 0x0,0x46
09e4 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
09e5 e046 | F | Load 0x0,0x46
09e6 1b2a | * | Execute Package,Field_Read,Field_Number 0x2a
09e7 e046 | F | Load 0x0,0x46
09e8 183a | : | Execute Package,Field_Execute,Field_Number 0x3a
09e9 e046 | F | Load 0x0,0x46
09ea 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
09eb e046 | F | Load 0x0,0x46
09ec 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
09ed 011e | | Execute Any,Convert
09ee e046 | F | Load 0x0,0x46
09ef 1b5a | Z | Execute Package,Field_Read,Field_Number 0x5a
09f0 0322 | " | Declare_Variable Record
09f1 e403 | | Load 0x2,0x3
09f2 e404 | | Load 0x2,0x4
09f3 e046 | F | Load 0x0,0x46
09f4 185b | [ | Execute Package,Field_Execute,Field_Number 0x5b
09f5 e405 | | Load 0x2,0x5
09f6 017d | } | Execute Record,Structure_Write
09f7 e001 | | Load 0x0,0x1
09f8 1b5f | _ | Execute Package,Field_Read,Field_Number 0x5f
09f9 0322 | " | Declare_Variable Record
09fa BODY_09d8:
09fa e405 | | Load 0x2,0x5
09fb 82d2 | | Call 0x1,0xd2
09fc e406 | | Load 0x2,0x6
09fd 017d | } | Execute Record,Structure_Write
09fe 00d8 | | Load_Top At_Offset_0
09ff 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0a00 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6
0a01 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0a02 0000 0000 | | .BLANK 0000[0x6]
0a08 ; --------------------------------------------------------------------------------------
0a08 ; SUBPROGRAM
0a08 ; --------------------------------------------------------------------------------------
0a08 0a3a | : | .CONST 0x0a3a ; Address of begin
0a09 0004 | | .CONST 0x0004 ; Address of exception handler
0a0a 0008 | | .CONST 0x0008 ; Number of locals
0a0b INIT_0a08:
0a0b 00e2 | | Load_Encached Integer_Cache
0a0c 4801 |H | Short_Literal 0x1
0a0d 4801 |H | Short_Literal 0x1
0a0e 00e9 | | Load_Encached String_Cache
0a0f 0334 | 4 | Declare_Variable Array,With_Constraint
0a10 4802 |H | Short_Literal 0x2
0a11 4802 |H | Short_Literal 0x2
0a12 0099 | | Action Reference_Dynamic
0a13 012d | - | Execute Any,Address
0a14 e046 | F | Load 0x0,0x46
0a15 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
0a16 0a01 | | Execute_Immediate Plus,0x1
0a17 e046 | F | Load 0x0,0x46
0a18 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29
0a19 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
0a1a e046 | F | Load 0x0,0x46
0a1b 1b2a | * | Execute Package,Field_Read,Field_Number 0x2a
0a1c e046 | F | Load 0x0,0x46
0a1d 183a | : | Execute Package,Field_Execute,Field_Number 0x3a
0a1e e046 | F | Load 0x0,0x46
0a1f 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0a20 e046 | F | Load 0x0,0x46
0a21 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
0a22 011e | | Execute Any,Convert
0a23 e046 | F | Load 0x0,0x46
0a24 1b5a | Z | Execute Package,Field_Read,Field_Number 0x5a
0a25 0322 | " | Declare_Variable Record
0a26 e404 | | Load 0x2,0x4
0a27 e405 | | Load 0x2,0x5
0a28 e046 | F | Load 0x0,0x46
0a29 185b | [ | Execute Package,Field_Execute,Field_Number 0x5b
0a2a e406 | | Load 0x2,0x6
0a2b 017d | } | Execute Record,Structure_Write
0a2c e001 | | Load 0x0,0x1
0a2d 1b5f | _ | Execute Package,Field_Read,Field_Number 0x5f
0a2e 0322 | " | Declare_Variable Record
0a2f e406 | | Load 0x2,0x6
0a30 82d2 | | Call 0x1,0xd2
0a31 e407 | | Load 0x2,0x7
0a32 017d | } | Execute Record,Structure_Write
0a33 e001 | | Load 0x0,0x1
0a34 1b9c | | Execute Package,Field_Read,Field_Number 0x9c
0a35 0322 | " | Declare_Variable Record
0a36 e407 | | Load 0x2,0x7
0a37 8268 | h | Call 0x1,0x68
0a38 e408 | | Load 0x2,0x8
0a39 017d | } | Execute Record,Structure_Write
0a3a BODY_0a08:
0a3a 00d8 | | Load_Top At_Offset_0
0a3b 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5
0a3c 00ca | | Action Exit_Nullary_Function
0a3d 0000 0000 | | .XXX[0x3]
0a3f 0000 | |
0a40 ; --------------------------------------------------------------------------------------
0a40 ; SUBPROGRAM
0a40 ; --------------------------------------------------------------------------------------
0a40 0a43 | C | .CONST 0x0a43 ; Address of begin
0a41 0004 | | .CONST 0x0004 ; Address of exception handler
0a42 0001 | | .CONST 0x0001 ; Number of locals
0a43 BODY_0a40:
0a43 INIT_0a40:
0a43 4603 |F | Jump_Case 0x4
0a44 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0a45 7802 |x | Jump 0xa48 ; case 0x1
0a46 7805 |x | Jump 0xa4c ; case 0x2
0a47 7809 |x | Jump 0xa51 ; case 0x3
0a48 e5ff | | Load 0x2,-0x1
0a49 0091 1ac2 | | Action Push_String_Extended_Indexed,0x1ac2 ; "INTEGER_TYPE"
0a4b 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0a4c e5fe | | Load 0x2,-0x2
0a4d e5ff | | Load 0x2,-0x1
0a4e 00e0 | | Load_Encached Standard_Cache
0a4f 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0a50 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0a51 e5ff | | Load 0x2,-0x1
0a52 00e0 | | Load_Encached Standard_Cache
0a53 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0a54 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0a55 0000 0000 | | .XXX[0x3]
0a57 0000 | |
0a58 ; --------------------------------------------------------------------------------------
0a58 ; SUBPROGRAM
0a58 ; --------------------------------------------------------------------------------------
0a58 0a5b | [ | .CONST 0x0a5b ; Address of begin
0a59 0004 | | .CONST 0x0004 ; Address of exception handler
0a5a 0001 | | .CONST 0x0001 ; Number of locals
0a5b BODY_0a58:
0a5b INIT_0a58:
0a5b e2fb | | Load 0x1,0xfb
0a5c 6804 |h | Jump_Zero 0xa61
0a5d e5ff | | Load 0x2,-0x1
0a5e e2fc | | Load 0x1,0xfc
0a5f 027f | | Execute Discrete,Equal
0a60 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0a61 4800 |H | Short_Literal 0x0
0a62 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0a63 0000 0000 | | .BLANK 0000[0x5]
0a68 ; --------------------------------------------------------------------------------------
0a68 ; SUBPROGRAM
0a68 ; --------------------------------------------------------------------------------------
0a68 0a6b | k | .CONST 0x0a6b ; Address of begin
0a69 0004 | | .CONST 0x0004 ; Address of exception handler
0a6a 0001 | | .CONST 0x0001 ; Number of locals
0a6b BODY_0a68:
0a6b INIT_0a68:
0a6b e5ff | | Load 0x2,-0x1
0a6c 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0a6d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0a6e 8307 | | Call 0x1,0x107
0a6f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0a70 ; --------------------------------------------------------------------------------------
0a70 ; SUBPROGRAM
0a70 ; --------------------------------------------------------------------------------------
0a70 0a73 | s | .CONST 0x0a73 ; Address of begin
0a71 0004 | | .CONST 0x0004 ; Address of exception handler
0a72 0001 | | .CONST 0x0001 ; Number of locals
0a73 BODY_0a70:
0a73 INIT_0a70:
0a73 e2fb | | Load 0x1,0xfb
0a74 7002 |p | Jump_Nonzero 0xa77
0a75 4809 |H | Short_Literal 0x9
0a76 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0a77 e5ff | | Load 0x2,-0x1
0a78 e2fe | | Load 0x1,0xfe
0a79 017f | | Execute Record,Equal
0a7a 6802 |h | Jump_Zero 0xa7d
0a7b 4800 |H | Short_Literal 0x0
0a7c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0a7d e5ff | | Load 0x2,-0x1
0a7e e2ff | | Load 0x1,0xff
0a7f 017f | | Execute Record,Equal
0a80 6802 |h | Jump_Zero 0xa83
0a81 4801 |H | Short_Literal 0x1
0a82 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0a83 e5ff | | Load 0x2,-0x1
0a84 e301 | | Load 0x1,0x101
0a85 017f | | Execute Record,Equal
0a86 6802 |h | Jump_Zero 0xa89
0a87 4804 |H | Short_Literal 0x4
0a88 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0a89 e5ff | | Load 0x2,-0x1
0a8a e300 | | Load 0x1,0x100
0a8b 017f | | Execute Record,Equal
0a8c 6802 |h | Jump_Zero 0xa8f
0a8d 4805 |H | Short_Literal 0x5
0a8e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0a8f e5ff | | Load 0x2,-0x1
0a90 e302 | | Load 0x1,0x102
0a91 017f | | Execute Record,Equal
0a92 6802 |h | Jump_Zero 0xa95
0a93 4806 |H | Short_Literal 0x6
0a94 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0a95 e5ff | | Load 0x2,-0x1
0a96 e303 | | Load 0x1,0x103
0a97 017f | | Execute Record,Equal
0a98 6802 |h | Jump_Zero 0xa9b
0a99 4807 |H | Short_Literal 0x7
0a9a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0a9b e5ff | | Load 0x2,-0x1
0a9c e305 | | Load 0x1,0x105
0a9d 017f | | Execute Record,Equal
0a9e 6802 |h | Jump_Zero 0xaa1
0a9f 4802 |H | Short_Literal 0x2
0aa0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0aa1 e5ff | | Load 0x2,-0x1
0aa2 e304 | | Load 0x1,0x104
0aa3 017f | | Execute Record,Equal
0aa4 6802 |h | Jump_Zero 0xaa7
0aa5 4803 |H | Short_Literal 0x3
0aa6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0aa7 e5ff | | Load 0x2,-0x1
0aa8 e306 | | Load 0x1,0x106
0aa9 017f | | Execute Record,Equal
0aaa 6802 |h | Jump_Zero 0xaad
0aab 4808 |H | Short_Literal 0x8
0aac 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0aad 4809 |H | Short_Literal 0x9
0aae 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0aaf 0000 | | .XXX[0x1]
0ab0 ; --------------------------------------------------------------------------------------
0ab0 ; SUBPROGRAM
0ab0 ; --------------------------------------------------------------------------------------
0ab0 0ab3 | | .CONST 0x0ab3 ; Address of begin
0ab1 0004 | | .CONST 0x0004 ; Address of exception handler
0ab2 0001 | | .CONST 0x0001 ; Number of locals
0ab3 BODY_0ab0:
0ab3 INIT_0ab0:
0ab3 e5ff | | Load 0x2,-0x1
0ab4 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0ab5 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6
0ab6 8309 | | Call 0x1,0x109
0ab7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0ab8 ; --------------------------------------------------------------------------------------
0ab8 ; SUBPROGRAM
0ab8 ; --------------------------------------------------------------------------------------
0ab8 0abb | | .CONST 0x0abb ; Address of begin
0ab9 0004 | | .CONST 0x0004 ; Address of exception handler
0aba 0001 | | .CONST 0x0001 ; Number of locals
0abb BODY_0ab8:
0abb INIT_0ab8:
0abb e5ff | | Load 0x2,-0x1
0abc 8308 | | Call 0x1,0x108
0abd 6804 |h | Jump_Zero 0xac2
0abe e5ff | | Load 0x2,-0x1
0abf 830a | | Call 0x1,0x10a
0ac0 0f04 | | Execute_Immediate Equal,0x4
0ac1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0ac2 4800 |H | Short_Literal 0x0
0ac3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0ac4 0000 0000 | | .BLANK 0000[0x4]
0ac8 ; --------------------------------------------------------------------------------------
0ac8 ; SUBPROGRAM
0ac8 ; --------------------------------------------------------------------------------------
0ac8 0acb | | .CONST 0x0acb ; Address of begin
0ac9 0004 | | .CONST 0x0004 ; Address of exception handler
0aca 0001 | | .CONST 0x0001 ; Number of locals
0acb BODY_0ac8:
0acb INIT_0ac8:
0acb e5ff | | Load 0x2,-0x1
0acc 00d8 | | Load_Top At_Offset_0
0acd 0d39 | 9 | Execute_Immediate Less,0x39
0ace 7019 |p | Jump_Nonzero 0xae8
0acf 00d8 | | Load_Top At_Offset_0
0ad0 0c44 | D | Execute_Immediate Greater_Equal,0x44
0ad1 7003 |p | Jump_Nonzero 0xad5
0ad2 00d1 | | Pop_Control Pop_Count_1
0ad3 4800 |H | Short_Literal 0x0
0ad4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0ad5 00d8 | | Load_Top At_Offset_0
0ad6 0d6c | l | Execute_Immediate Less,0x6c
0ad7 700b |p | Jump_Nonzero 0xae3
0ad8 00d8 | | Load_Top At_Offset_0
0ad9 0c6d | m | Execute_Immediate Greater_Equal,0x6d
0ada 7003 |p | Jump_Nonzero 0xade
0adb 00d1 | | Pop_Control Pop_Count_1
0adc 4800 |H | Short_Literal 0x0
0add 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0ade 0b74 | t | Execute_Immediate Case_Compare,0x74
0adf 77fb |w | Jump_Nonzero 0xadb
0ae0 0f7c | | | Execute_Immediate Equal,0x7c
0ae1 77fa |w | Jump_Nonzero 0xadc
0ae2 7ff0 | | Jump 0xad3
0ae3 0b44 | D | Execute_Immediate Case_Compare,0x44
0ae4 77f6 |w | Jump_Nonzero 0xadb
0ae5 0f4c | L | Execute_Immediate Equal,0x4c
0ae6 77f5 |w | Jump_Nonzero 0xadc
0ae7 7feb | | Jump 0xad3
0ae8 00d8 | | Load_Top At_Offset_0
0ae9 0c19 | | Execute_Immediate Greater_Equal,0x19
0aea 701c |p | Jump_Nonzero 0xb07
0aeb 4618 |F | Jump_Case 0x19
0aec 7818 |x | Jump 0xb05 ; case 0x0
0aed 7fe5 | | Jump 0xad3 ; case 0x1
0aee 7fe4 | | Jump 0xad3 ; case 0x2
0aef 7fe3 | | Jump 0xad3 ; case 0x3
0af0 7fe2 | | Jump 0xad3 ; case 0x4
0af1 7fe1 | | Jump 0xad3 ; case 0x5
0af2 7fe0 | | Jump 0xad3 ; case 0x6
0af3 7fdf | | Jump 0xad3 ; case 0x7
0af4 7fe7 | | Jump 0xadc ; case 0x8
0af5 7fdd | | Jump 0xad3 ; case 0x9
0af6 7fdc | | Jump 0xad3 ; case 0xa
0af7 7fdb | | Jump 0xad3 ; case 0xb
0af8 7fda | | Jump 0xad3 ; case 0xc
0af9 7fd9 | | Jump 0xad3 ; case 0xd
0afa 7fd8 | | Jump 0xad3 ; case 0xe
0afb 7fd7 | | Jump 0xad3 ; case 0xf
0afc 7808 |x | Jump 0xb05 ; case 0x10
0afd 7fd5 | | Jump 0xad3 ; case 0x11
0afe 7fd4 | | Jump 0xad3 ; case 0x12
0aff 7fd3 | | Jump 0xad3 ; case 0x13
0b00 7fd2 | | Jump 0xad3 ; case 0x14
0b01 7fd1 | | Jump 0xad3 ; case 0x15
0b02 7fd0 | | Jump 0xad3 ; case 0x16
0b03 7fcf | | Jump 0xad3 ; case 0x17
0b04 7800 |x | Jump 0xb05 ; case 0x18
0b05 4801 |H | Short_Literal 0x1
0b06 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0b07 0f38 | 8 | Execute_Immediate Equal,0x38
0b08 77fc |w | Jump_Nonzero 0xb05
0b09 7fc9 | | Jump 0xad3
0b0a 0000 0000 | | .BLANK 0000[0x6]
0b10 ; --------------------------------------------------------------------------------------
0b10 ; SUBPROGRAM
0b10 ; --------------------------------------------------------------------------------------
0b10 0b13 | | .CONST 0x0b13 ; Address of begin
0b11 0004 | | .CONST 0x0004 ; Address of exception handler
0b12 0001 | | .CONST 0x0001 ; Number of locals
0b13 BODY_0b10:
0b13 INIT_0b10:
0b13 e5ff | | Load 0x2,-0x1
0b14 830c | | Call 0x1,0x10c
0b15 7003 |p | Jump_Nonzero 0xb19
0b16 e5ff | | Load 0x2,-0x1
0b17 0f08 | | Execute_Immediate Equal,0x8
0b18 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0b19 4801 |H | Short_Literal 0x1
0b1a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0b1b 0000 0000 | | .BLANK 0000[0x5]
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 e5ff | | Load 0x2,-0x1
0b24 00d8 | | Load_Top At_Offset_0
0b25 0d6c | l | Execute_Immediate Less,0x6c
0b26 7018 |p | Jump_Nonzero 0xb3f
0b27 0a94 | | Execute_Immediate Plus,-0x6c
0b28 4613 |F | Jump_Case 0x14
0b29 7817 |x | Jump 0xb41 ; case 0x0
0b2a 7812 |x | Jump 0xb3d ; case 0x1
0b2b 7811 |x | Jump 0xb3d ; case 0x2
0b2c 7810 |x | Jump 0xb3d ; case 0x3
0b2d 780f |x | Jump 0xb3d ; case 0x4
0b2e 780e |x | Jump 0xb3d ; case 0x5
0b2f 780d |x | Jump 0xb3d ; case 0x6
0b30 780c |x | Jump 0xb3d ; case 0x7
0b31 780f |x | Jump 0xb41 ; case 0x8
0b32 780a |x | Jump 0xb3d ; case 0x9
0b33 7809 |x | Jump 0xb3d ; case 0xa
0b34 7808 |x | Jump 0xb3d ; case 0xb
0b35 7807 |x | Jump 0xb3d ; case 0xc
0b36 7806 |x | Jump 0xb3d ; case 0xd
0b37 7805 |x | Jump 0xb3d ; case 0xe
0b38 7804 |x | Jump 0xb3d ; case 0xf
0b39 7807 |x | Jump 0xb41 ; case 0x10
0b3a 7802 |x | Jump 0xb3d ; case 0x11
0b3b 7801 |x | Jump 0xb3d ; case 0x12
0b3c 7800 |x | Jump 0xb3d ; case 0x13
0b3d 4800 |H | Short_Literal 0x0
0b3e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0b3f 00d1 | | Pop_Control Pop_Count_1
0b40 7ffc | | Jump 0xb3d
0b41 4801 |H | Short_Literal 0x1
0b42 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0b43 0000 0000 | | .BLANK 0000[0x5]
0b48 ; --------------------------------------------------------------------------------------
0b48 ; SUBPROGRAM
0b48 ; --------------------------------------------------------------------------------------
0b48 0b4b | K | .CONST 0x0b4b ; Address of begin
0b49 0004 | | .CONST 0x0004 ; Address of exception handler
0b4a 0001 | | .CONST 0x0001 ; Number of locals
0b4b BODY_0b48:
0b4b INIT_0b48:
0b4b e5ff | | Load 0x2,-0x1
0b4c 830d | | Call 0x1,0x10d
0b4d 7008 |p | Jump_Nonzero 0xb56
0b4e e5ff | | Load 0x2,-0x1
0b4f 8296 | | Call 0x1,0x96
0b50 7003 |p | Jump_Nonzero 0xb54
0b51 e5ff | | Load 0x2,-0x1
0b52 830e | | Call 0x1,0x10e
0b53 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0b54 4801 |H | Short_Literal 0x1
0b55 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0b56 4801 |H | Short_Literal 0x1
0b57 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0b58 ; --------------------------------------------------------------------------------------
0b58 ; SUBPROGRAM
0b58 ; --------------------------------------------------------------------------------------
0b58 0b5b | [ | .CONST 0x0b5b ; Address of begin
0b59 0004 | | .CONST 0x0004 ; Address of exception handler
0b5a 0001 | | .CONST 0x0001 ; Number of locals
0b5b BODY_0b58:
0b5b INIT_0b58:
0b5b e5fe | | Load 0x2,-0x2
0b5c 6802 |h | Jump_Zero 0xb5f
0b5d e5ff | | Load 0x2,-0x1
0b5e 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0b5f e5fd | | Load 0x2,-0x3
0b60 01db | | Execute Vector,Length
0b61 7002 |p | Jump_Nonzero 0xb64
0b62 00ea | | Load_Encached Null_String_Cache
0b63 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0b64 e5fd | | Load 0x2,-0x3
0b65 e5ff | | Load 0x2,-0x1
0b66 01cc | | Execute Vector,Catenate
0b67 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0b68 ; --------------------------------------------------------------------------------------
0b68 ; SUBPROGRAM
0b68 ; --------------------------------------------------------------------------------------
0b68 0b7d | } | .CONST 0x0b7d ; Address of begin
0b69 0004 | | .CONST 0x0004 ; Address of exception handler
0b6a 0002 | | .CONST 0x0002 ; Number of locals
0b6b INIT_0b68:
0b6b 4801 |H | Short_Literal 0x1
0b6c e5ff | | Load 0x2,-0x1
0b6d 00e9 | | Load_Encached String_Cache
0b6e 0334 | 4 | Declare_Variable Array,With_Constraint
0b6f 00d8 | | Load_Top At_Offset_0
0b70 0335 | 5 | Declare_Variable Array,Duplicate
0b71 00cd | | Action Spare6_Action
0b72 e402 | | Load 0x2,0x2
0b73 01d9 | | Execute Vector,Reverse_Bounds
0b74 0263 | c | Execute Discrete,Above_Bound
0b75 7005 |p | Jump_Nonzero 0xb7b
0b76 4820 |H | Short_Literal 0x20
0b77 e405 | | Load 0x2,0x5
0b78 e403 | | Load 0x2,0x3
0b79 01d6 | | Execute Vector,Field_Write
0b7a 3ffb |? | Loop_Increasing 0xb76
0b7b e402 | | Load 0x2,0x2
0b7c 01d4 | | Execute Vector,Structure_Write
0b7d BODY_0b68:
0b7d 00d8 | | Load_Top At_Offset_0
0b7e 4401 |D | Exit_Subprogram With_Value,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 4803 |H | Short_Literal 0x3
0b84 e5ff | | Load 0x2,-0x1
0b85 0271 | q | Execute Discrete,Times
0b86 492c |I, | Short_Literal 0x12c
0b87 0273 | s | Execute Discrete,Plus
0b88 00e3 | | Load_Encached Natural_Cache
0b89 025b | [ | Execute Discrete,Check_In_Type
0b8a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0b8b 0000 0000 | | .BLANK 0000[0x5]
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 e5fd | | Load 0x2,-0x3
0b94 e5fd | | Load 0x2,-0x3
0b95 4820 |H | Short_Literal 0x20
0b96 4800 |H | Short_Literal 0x0
0b97 480a |H | Short_Literal 0xa
0b98 e5ff | | Load 0x2,-0x1
0b99 e05b | [ | Load 0x0,0x5b
0b9a 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0b9b 01cb | | Execute Vector,Append
0b9c 0092 1ae0 | | Action Push_String_Extended,0x1ae0 ; ".."
0b9e 01cc | | Execute Vector,Catenate
0b9f 01cb | | Execute Vector,Append
0ba0 4820 |H | Short_Literal 0x20
0ba1 4800 |H | Short_Literal 0x0
0ba2 480a |H | Short_Literal 0xa
0ba3 e5fe | | Load 0x2,-0x2
0ba4 e05b | [ | Load 0x0,0x5b
0ba5 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0ba6 01cc | | Execute Vector,Catenate
0ba7 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
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 e5fe | | Load 0x2,-0x2
0bac 0c02 | | Execute_Immediate Greater_Equal,0x2
0bad 681c |h | Jump_Zero 0xbca
0bae e5fe | | Load 0x2,-0x2
0baf e5ff | | Load 0x2,-0x1
0bb0 e05c | \ | Load 0x0,0x5c
0bb1 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0bb2 027c | | | Execute Discrete,Less
0bb3 6814 |h | Jump_Zero 0xbc8
0bb4 e5fe | | Load 0x2,-0x2
0bb5 0aff | | Execute_Immediate Plus,-0x1
0bb6 00e4 | | Load_Encached Positive_Cache
0bb7 025b | [ | Execute Discrete,Check_In_Type
0bb8 e5ff | | Load 0x2,-0x1
0bb9 e05c | \ | Load 0x0,0x5c
0bba 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0bbb 0f27 | ' | Execute_Immediate Equal,0x27
0bbc 6809 |h | Jump_Zero 0xbc6
0bbd e5fe | | Load 0x2,-0x2
0bbe 0a01 | | Execute_Immediate Plus,0x1
0bbf 00e4 | | Load_Encached Positive_Cache
0bc0 025b | [ | Execute Discrete,Check_In_Type
0bc1 e5ff | | Load 0x2,-0x1
0bc2 e05c | \ | Load 0x0,0x5c
0bc3 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0bc4 0f27 | ' | Execute_Immediate Equal,0x27
0bc5 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0bc6 4800 |H | Short_Literal 0x0
0bc7 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0bc8 4800 |H | Short_Literal 0x0
0bc9 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0bca 4800 |H | Short_Literal 0x0
0bcb 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0bcc 0000 0000 | | .BLANK 0000[0x4]
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 e5fe | | Load 0x2,-0x2
0bd4 e5ff | | Load 0x2,-0x1
0bd5 01dd | | Execute Vector,First
0bd6 027d | } | Execute Discrete,Greater
0bd7 6815 |h | Jump_Zero 0xbed
0bd8 e5fe | | Load 0x2,-0x2
0bd9 e5ff | | Load 0x2,-0x1
0bda 01dc | | Execute Vector,Last
0bdb 027c | | | Execute Discrete,Less
0bdc 680e |h | Jump_Zero 0xbeb
0bdd e5fe | | Load 0x2,-0x2
0bde 0aff | | Execute_Immediate Plus,-0x1
0bdf e5ff | | Load 0x2,-0x1
0be0 01d7 | | Execute Vector,Field_Read
0be1 0f27 | ' | Execute_Immediate Equal,0x27
0be2 6806 |h | Jump_Zero 0xbe9
0be3 e5fe | | Load 0x2,-0x2
0be4 0a01 | | Execute_Immediate Plus,0x1
0be5 e5ff | | Load 0x2,-0x1
0be6 01d7 | | Execute Vector,Field_Read
0be7 0f27 | ' | Execute_Immediate Equal,0x27
0be8 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0be9 4800 |H | Short_Literal 0x0
0bea 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0beb 4800 |H | Short_Literal 0x0
0bec 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0bed 4800 |H | Short_Literal 0x0
0bee 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0bef 0000 | | .XXX[0x1]
0bf0 ; --------------------------------------------------------------------------------------
0bf0 ; SUBPROGRAM
0bf0 ; --------------------------------------------------------------------------------------
0bf0 0bfb | | .CONST 0x0bfb ; Address of begin
0bf1 0004 | | .CONST 0x0004 ; Address of exception handler
0bf2 0003 | | .CONST 0x0003 ; Number of locals
0bf3 INIT_0bf0:
0bf3 e5ff | | Load 0x2,-0x1
0bf4 01db | | Execute Vector,Length
0bf5 00e3 | | Load_Encached Natural_Cache
0bf6 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
0bf7 e5ff | | Load 0x2,-0x1
0bf8 01dc | | Execute Vector,Last
0bf9 00e3 | | Load_Encached Natural_Cache
0bfa 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
0bfb BODY_0bf0:
0bfb e402 | | Load 0x2,0x2
0bfc 0c03 | | Execute_Immediate Greater_Equal,0x3
0bfd 6813 |h | Jump_Zero 0xc11
0bfe 00d8 | | Load_Top At_Offset_0
0bff 0afe | | Execute_Immediate Plus,-0x2
0c00 e403 | | Load 0x2,0x3
0c01 e5ff | | Load 0x2,-0x1
0c02 01cf | | Execute Vector,Slice_Read
0c03 0092 1ae1 | | Action Push_String_Extended,0x1ae1 ; ", )"
0c05 01df | | Execute Vector,Equal
0c06 680a |h | Jump_Zero 0xc11
0c07 e5ff | | Load 0x2,-0x1
0c08 01dd | | Execute Vector,First
0c09 e403 | | Load 0x2,0x3
0c0a 0afd | | Execute_Immediate Plus,-0x3
0c0b e5ff | | Load 0x2,-0x1
0c0c 01cf | | Execute Vector,Slice_Read
0c0d 0092 1ae2 | | Action Push_String_Extended,0x1ae2 ; ")"
0c0f 01cc | | Execute Vector,Catenate
0c10 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0c11 e5ff | | Load 0x2,-0x1
0c12 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0c13 0000 0000 | | .BLANK 0000[0x5]
0c18 ; --------------------------------------------------------------------------------------
0c18 ; SUBPROGRAM
0c18 ; --------------------------------------------------------------------------------------
0c18 0c24 | $ | .CONST 0x0c24 ; Address of begin
0c19 0004 | | .CONST 0x0004 ; Address of exception handler
0c1a 0003 | | .CONST 0x0003 ; Number of locals
0c1b INIT_0c18:
0c1b e5fe | | Load 0x2,-0x2
0c1c e05c | \ | Load 0x0,0x5c
0c1d 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0c1e 00e3 | | Load_Encached Natural_Cache
0c1f 03f1 | | Declare_Variable Discrete,With_Value
0c20 e5ff | | Load 0x2,-0x1
0c21 01db | | Execute Vector,Length
0c22 00e3 | | Load_Encached Natural_Cache
0c23 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
0c24 BODY_0c18:
0c24 e402 | | Load 0x2,0x2
0c25 0c01 | | Execute_Immediate Greater_Equal,0x1
0c26 6812 |h | Jump_Zero 0xc39
0c27 e402 | | Load 0x2,0x2
0c28 00e4 | | Load_Encached Positive_Cache
0c29 025b | [ | Execute Discrete,Check_In_Type
0c2a e5fe | | Load 0x2,-0x2
0c2b e05c | \ | Load 0x0,0x5c
0c2c 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0c2d 0f0a | | Execute_Immediate Equal,0xa
0c2e 680a |h | Jump_Zero 0xc39
0c2f e5fe | | Load 0x2,-0x2
0c30 4820 |H | Short_Literal 0x20
0c31 e402 | | Load 0x2,0x2
0c32 0aff | | Execute_Immediate Plus,-0x1
0c33 00e3 | | Load_Encached Natural_Cache
0c34 025b | [ | Execute Discrete,Check_In_Type
0c35 e05c | \ | Load 0x0,0x5c
0c36 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0c37 00d1 | | Pop_Control Pop_Count_1
0c38 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0c39 00d8 | | Load_Top At_Offset_0
0c3a 0c01 | | Execute_Immediate Greater_Equal,0x1
0c3b 681d |h | Jump_Zero 0xc59
0c3c e402 | | Load 0x2,0x2
0c3d e403 | | Load 0x2,0x3
0c3e 027d | } | Execute Discrete,Greater
0c3f 6819 |h | Jump_Zero 0xc59
0c40 e402 | | Load 0x2,0x2
0c41 e402 | | Load 0x2,0x2
0c42 e403 | | Load 0x2,0x3
0c43 0272 | r | Execute Discrete,Minus
0c44 00e4 | | Load_Encached Positive_Cache
0c45 025b | [ | Execute Discrete,Check_In_Type
0c46 e5fe | | Load 0x2,-0x2
0c47 e05c | \ | Load 0x0,0x5c
0c48 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
0c49 480a |H | Short_Literal 0xa
0c4a e5ff | | Load 0x2,-0x1
0c4b 01ca | | Execute Vector,Prepend
0c4c 01df | | Execute Vector,Equal
0c4d 680b |h | Jump_Zero 0xc59
0c4e e5fe | | Load 0x2,-0x2
0c4f 4820 |H | Short_Literal 0x20
0c50 e402 | | Load 0x2,0x2
0c51 e403 | | Load 0x2,0x3
0c52 0a01 | | Execute_Immediate Plus,0x1
0c53 0272 | r | Execute Discrete,Minus
0c54 00e3 | | Load_Encached Natural_Cache
0c55 025b | [ | Execute Discrete,Check_In_Type
0c56 e05c | \ | Load 0x0,0x5c
0c57 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0c58 00d1 | | Pop_Control Pop_Count_1
0c59 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0c5a 0000 0000 | | .BLANK 0000[0x6]
0c60 ; --------------------------------------------------------------------------------------
0c60 ; SUBPROGRAM
0c60 ; --------------------------------------------------------------------------------------
0c60 0c64 | d | .CONST 0x0c64 ; Address of begin
0c61 0004 | | .CONST 0x0004 ; Address of exception handler
0c62 0002 | | .CONST 0x0002 ; Number of locals
0c63 INIT_0c60:
0c63 00e1 | | Load_Encached Boolean_Cache
0c64 BODY_0c60:
0c64 e5ff | | Load 0x2,-0x1
0c65 01db | | Execute Vector,Length
0c66 e5fe | | Load 0x2,-0x2
0c67 01db | | Execute Vector,Length
0c68 0273 | s | Execute Discrete,Plus
0c69 0a01 | | Execute_Immediate Plus,0x1
0c6a 0c50 | P | Execute_Immediate Greater_Equal,0x50
0c6b 6803 |h | Jump_Zero 0xc6f
0c6c 4801 |H | Short_Literal 0x1
0c6d a402 | | Store_Unchecked 0x2,0x2
0c6e 780c |x | Jump 0xc7b
0c6f 4800 |H | Short_Literal 0x0
0c70 e5fe | | Load 0x2,-0x2
0c71 480a |H | Short_Literal 0xa
0c72 e05b | [ | Load 0x0,0x5b
0c73 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0c74 0c01 | | Execute_Immediate Greater_Equal,0x1
0c75 6803 |h | Jump_Zero 0xc79
0c76 4801 |H | Short_Literal 0x1
0c77 a402 | | Store_Unchecked 0x2,0x2
0c78 7802 |x | Jump 0xc7b
0c79 4800 |H | Short_Literal 0x0
0c7a a402 | | Store_Unchecked 0x2,0x2
0c7b e5ff | | Load 0x2,-0x1
0c7c 00ea | | Load_Encached Null_String_Cache
0c7d e402 | | Load 0x2,0x2
0c7e 480a |H | Short_Literal 0xa
0c7f e5fd | | Load 0x2,-0x3
0c80 8322 | " | Call 0x1,0x122
0c81 01ca | | Execute Vector,Prepend
0c82 8321 | ! | Call 0x1,0x121
0c83 01cc | | Execute Vector,Catenate
0c84 e5fe | | Load 0x2,-0x2
0c85 01cc | | Execute Vector,Catenate
0c86 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0c87 0000 | | .XXX[0x1]
0c88 ; --------------------------------------------------------------------------------------
0c88 ; SUBPROGRAM
0c88 ; --------------------------------------------------------------------------------------
0c88 0c8b | | .CONST 0x0c8b ; Address of begin
0c89 0004 | | .CONST 0x0004 ; Address of exception handler
0c8a 0001 | | .CONST 0x0001 ; Number of locals
0c8b BODY_0c88:
0c8b INIT_0c88:
0c8b e5fd | | Load 0x2,-0x3
0c8c 6811 |h | Jump_Zero 0xc9e
0c8d e5fe | | Load 0x2,-0x2
0c8e e5ff | | Load 0x2,-0x1
0c8f e05c | \ | Load 0x0,0x5c
0c90 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0c91 027c | | | Execute Discrete,Less
0c92 6809 |h | Jump_Zero 0xc9c
0c93 e5fe | | Load 0x2,-0x2
0c94 0a01 | | Execute_Immediate Plus,0x1
0c95 00e4 | | Load_Encached Positive_Cache
0c96 025b | [ | Execute Discrete,Check_In_Type
0c97 e5ff | | Load 0x2,-0x1
0c98 e05c | \ | Load 0x0,0x5c
0c99 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0c9a 0f22 | " | Execute_Immediate Equal,0x22
0c9b 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0c9c 4800 |H | Short_Literal 0x0
0c9d 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0c9e 4800 |H | Short_Literal 0x0
0c9f 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0ca0 ; --------------------------------------------------------------------------------------
0ca0 ; SUBPROGRAM
0ca0 ; --------------------------------------------------------------------------------------
0ca0 0ca3 | | .CONST 0x0ca3 ; Address of begin
0ca1 0004 | | .CONST 0x0004 ; Address of exception handler
0ca2 0001 | | .CONST 0x0001 ; Number of locals
0ca3 BODY_0ca0:
0ca3 INIT_0ca0:
0ca3 e5fe | | Load 0x2,-0x2
0ca4 00e4 | | Load_Encached Positive_Cache
0ca5 025b | [ | Execute Discrete,Check_In_Type
0ca6 e5ff | | Load 0x2,-0x1
0ca7 e05c | \ | Load 0x0,0x5c
0ca8 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0ca9 0f22 | " | Execute_Immediate Equal,0x22
0caa 7001 |p | Jump_Nonzero 0xcac
0cab 0887 | | Execute_Immediate Raise,0x87
0cac e5fd | | Load 0x2,-0x3
0cad e5fe | | Load 0x2,-0x2
0cae e5ff | | Load 0x2,-0x1
0caf 832a | * | Call 0x1,0x12a
0cb0 6804 |h | Jump_Zero 0xcb5
0cb1 e5fe | | Load 0x2,-0x2
0cb2 0a01 | | Execute_Immediate Plus,0x1
0cb3 c5fe | | Store 0x2,-0x2
0cb4 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0cb5 e5fd | | Load 0x2,-0x3
0cb6 6803 |h | Jump_Zero 0xcba
0cb7 4800 |H | Short_Literal 0x0
0cb8 a5fd | | Store_Unchecked 0x2,-0x3
0cb9 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0cba e5fe | | Load 0x2,-0x2
0cbb e5ff | | Load 0x2,-0x1
0cbc 8325 | % | Call 0x1,0x125
0cbd 6802 |h | Jump_Zero 0xcc0
0cbe 0008 | | Action Idle
0cbf 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0cc0 4801 |H | Short_Literal 0x1
0cc1 a5fd | | Store_Unchecked 0x2,-0x3
0cc2 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0cc3 0000 0000 | | .BLANK 0000[0x5]
0cc8 ; --------------------------------------------------------------------------------------
0cc8 ; SUBPROGRAM
0cc8 ; --------------------------------------------------------------------------------------
0cc8 0ccb | | .CONST 0x0ccb ; Address of begin
0cc9 0004 | | .CONST 0x0004 ; Address of exception handler
0cca 0001 | | .CONST 0x0001 ; Number of locals
0ccb BODY_0cc8:
0ccb INIT_0cc8:
0ccb e5fe | | Load 0x2,-0x2
0ccc e5ff | | Load 0x2,-0x1
0ccd 01d7 | | Execute Vector,Field_Read
0cce 0f22 | " | Execute_Immediate Equal,0x22
0ccf 7001 |p | Jump_Nonzero 0xcd1
0cd0 0887 | | Execute_Immediate Raise,0x87
0cd1 e5fe | | Load 0x2,-0x2
0cd2 e5ff | | Load 0x2,-0x1
0cd3 8326 | & | Call 0x1,0x126
0cd4 6802 |h | Jump_Zero 0xcd7
0cd5 0008 | | Action Idle
0cd6 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0cd7 e5fd | | Load 0x2,-0x3
0cd8 6812 |h | Jump_Zero 0xceb
0cd9 e5fe | | Load 0x2,-0x2
0cda e5ff | | Load 0x2,-0x1
0cdb 01dc | | Execute Vector,Last
0cdc 027c | | | Execute Discrete,Less
0cdd 680a |h | Jump_Zero 0xce8
0cde e5fe | | Load 0x2,-0x2
0cdf 0a01 | | Execute_Immediate Plus,0x1
0ce0 e5ff | | Load 0x2,-0x1
0ce1 01d7 | | Execute Vector,Field_Read
0ce2 0f22 | " | Execute_Immediate Equal,0x22
0ce3 6804 |h | Jump_Zero 0xce8
0ce4 e5fe | | Load 0x2,-0x2
0ce5 0a01 | | Execute_Immediate Plus,0x1
0ce6 c5fe | | Store 0x2,-0x2
0ce7 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0ce8 4800 |H | Short_Literal 0x0
0ce9 a5fd | | Store_Unchecked 0x2,-0x3
0cea 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0ceb 4801 |H | Short_Literal 0x1
0cec a5fd | | Store_Unchecked 0x2,-0x3
0ced 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0cee 0000 0000 | | .XXX[0x2]
0cf0 ; --------------------------------------------------------------------------------------
0cf0 ; SUBPROGRAM
0cf0 ; --------------------------------------------------------------------------------------
0cf0 0cfd | | .CONST 0x0cfd ; Address of begin
0cf1 0004 | | .CONST 0x0004 ; Address of exception handler
0cf2 0005 | | .CONST 0x0005 ; Number of locals
0cf3 INIT_0cf0:
0cf3 00e1 | | Load_Encached Boolean_Cache
0cf4 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0cf5 e5fb | | Load 0x2,-0x5
0cf6 e05c | \ | Load 0x0,0x5c
0cf7 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0cf8 00e3 | | Load_Encached Natural_Cache
0cf9 03f1 | | Declare_Variable Discrete,With_Value
0cfa 00e8 | | Load_Encached Character_Cache
0cfb 00e3 | | Load_Encached Natural_Cache
0cfc 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
0cfd BODY_0cf0:
0cfd 00cf | | Action Mark_Auxiliary
0cfe 7836 |x6 | Jump 0xd35
0cff e405 | | Load 0x2,0x5
0d00 00e4 | | Load_Encached Positive_Cache
0d01 025b | [ | Execute Discrete,Check_In_Type
0d02 e5fb | | Load 0x2,-0x5
0d03 e05c | \ | Load 0x0,0x5c
0d04 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0d05 a404 | | Store_Unchecked 0x2,0x4
0d06 e404 | | Load 0x2,0x4
0d07 0f22 | " | Execute_Immediate Equal,0x22
0d08 6807 |h | Jump_Zero 0xd10
0d09 e402 | | Load 0x2,0x2
0d0a e405 | | Load 0x2,0x5
0d0b e5fb | | Load 0x2,-0x5
0d0c 832b | + | Call 0x1,0x12b
0d0d c405 | | Store 0x2,0x5
0d0e c402 | | Store 0x2,0x2
0d0f 7821 |x! | Jump 0xd31
0d10 e402 | | Load 0x2,0x2
0d11 701f |p | Jump_Nonzero 0xd31
0d12 e405 | | Load 0x2,0x5
0d13 e5fb | | Load 0x2,-0x5
0d14 8325 | % | Call 0x1,0x125
0d15 701b |p | Jump_Nonzero 0xd31
0d16 e404 | | Load 0x2,0x4
0d17 e5ff | | Load 0x2,-0x1
0d18 027f | | Execute Discrete,Equal
0d19 680a |h | Jump_Zero 0xd24
0d1a e5fb | | Load 0x2,-0x5
0d1b 4801 |H | Short_Literal 0x1
0d1c e5fe | | Load 0x2,-0x2
0d1d e405 | | Load 0x2,0x5
0d1e 00e4 | | Load_Encached Positive_Cache
0d1f 025b | [ | Execute Discrete,Check_In_Type
0d20 e05c | \ | Load 0x0,0x5c
0d21 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0d22 00d1 | | Pop_Control Pop_Count_1
0d23 780d |x | Jump 0xd31
0d24 e404 | | Load 0x2,0x4
0d25 e5fd | | Load 0x2,-0x3
0d26 027f | | Execute Discrete,Equal
0d27 6809 |h | Jump_Zero 0xd31
0d28 e5fb | | Load 0x2,-0x5
0d29 4801 |H | Short_Literal 0x1
0d2a e5fc | | Load 0x2,-0x4
0d2b e405 | | Load 0x2,0x5
0d2c 00e4 | | Load_Encached Positive_Cache
0d2d 025b | [ | Execute Discrete,Check_In_Type
0d2e e05c | \ | Load 0x0,0x5c
0d2f 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0d30 00d1 | | Pop_Control Pop_Count_1
0d31 e405 | | Load 0x2,0x5
0d32 0a01 | | Execute_Immediate Plus,0x1
0d33 c405 | | Store 0x2,0x5
0d34 00c9 | | Action Pop_Auxiliary_Loop
0d35 e405 | | Load 0x2,0x5
0d36 e403 | | Load 0x2,0x3
0d37 027a | z | Execute Discrete,Less_Equal
0d38 77c6 |w | Jump_Nonzero 0xcff
0d39 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0d3a 0000 0000 | | .BLANK 0000[0x6]
0d40 ; --------------------------------------------------------------------------------------
0d40 ; SUBPROGRAM
0d40 ; --------------------------------------------------------------------------------------
0d40 0d51 | Q | .CONST 0x0d51 ; Address of begin
0d41 0004 | | .CONST 0x0004 ; Address of exception handler
0d42 0005 | | .CONST 0x0005 ; Number of locals
0d43 INIT_0d40:
0d43 e5fe | | Load 0x2,-0x2
0d44 01db | | Execute Vector,Length
0d45 00e3 | | Load_Encached Natural_Cache
0d46 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
0d47 e5ff | | Load 0x2,-0x1
0d48 01dd | | Execute Vector,First
0d49 00e3 | | Load_Encached Natural_Cache
0d4a 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
0d4b e5ff | | Load 0x2,-0x1
0d4c 01dc | | Execute Vector,Last
0d4d 00e3 | | Load_Encached Natural_Cache
0d4e 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
0d4f 00e1 | | Load_Encached Boolean_Cache
0d50 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0d51 BODY_0d40:
0d51 00cf | | Action Mark_Auxiliary
0d52 783b |x; | Jump 0xd8e
0d53 e403 | | Load 0x2,0x3
0d54 e5ff | | Load 0x2,-0x1
0d55 01d7 | | Execute Vector,Field_Read
0d56 0f22 | " | Execute_Immediate Equal,0x22
0d57 680a |h | Jump_Zero 0xd62
0d58 e405 | | Load 0x2,0x5
0d59 e403 | | Load 0x2,0x3
0d5a e5ff | | Load 0x2,-0x1
0d5b 832c | , | Call 0x1,0x12c
0d5c c403 | | Store 0x2,0x3
0d5d c405 | | Store 0x2,0x5
0d5e e403 | | Load 0x2,0x3
0d5f 0a01 | | Execute_Immediate Plus,0x1
0d60 c403 | | Store 0x2,0x3
0d61 782b |x+ | Jump 0xd8d
0d62 e405 | | Load 0x2,0x5
0d63 7026 |p& | Jump_Nonzero 0xd8a
0d64 e403 | | Load 0x2,0x3
0d65 e402 | | Load 0x2,0x2
0d66 0273 | s | Execute Discrete,Plus
0d67 0aff | | Execute_Immediate Plus,-0x1
0d68 e404 | | Load 0x2,0x4
0d69 027a | z | Execute Discrete,Less_Equal
0d6a 681f |h | Jump_Zero 0xd8a
0d6b e403 | | Load 0x2,0x3
0d6c e403 | | Load 0x2,0x3
0d6d e402 | | Load 0x2,0x2
0d6e 0273 | s | Execute Discrete,Plus
0d6f 0aff | | Execute_Immediate Plus,-0x1
0d70 0248 | H | Execute Discrete,Check_In_Integer
0d71 e5ff | | Load 0x2,-0x1
0d72 01cf | | Execute Vector,Slice_Read
0d73 e5fe | | Load 0x2,-0x2
0d74 01df | | Execute Vector,Equal
0d75 6814 |h | Jump_Zero 0xd8a
0d76 e5ff | | Load 0x2,-0x1
0d77 01dd | | Execute Vector,First
0d78 e403 | | Load 0x2,0x3
0d79 0aff | | Execute_Immediate Plus,-0x1
0d7a e5ff | | Load 0x2,-0x1
0d7b 01cf | | Execute Vector,Slice_Read
0d7c e5fd | | Load 0x2,-0x3
0d7d 01cc | | Execute Vector,Catenate
0d7e e5fd | | Load 0x2,-0x3
0d7f e5fe | | Load 0x2,-0x2
0d80 e403 | | Load 0x2,0x3
0d81 e402 | | Load 0x2,0x2
0d82 0273 | s | Execute Discrete,Plus
0d83 0248 | H | Execute Discrete,Check_In_Integer
0d84 e404 | | Load 0x2,0x4
0d85 e5ff | | Load 0x2,-0x1
0d86 01cf | | Execute Vector,Slice_Read
0d87 832e | . | Call 0x1,0x12e
0d88 01cc | | Execute Vector,Catenate
0d89 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0d8a e403 | | Load 0x2,0x3
0d8b 0a01 | | Execute_Immediate Plus,0x1
0d8c c403 | | Store 0x2,0x3
0d8d 00c9 | | Action Pop_Auxiliary_Loop
0d8e e403 | | Load 0x2,0x3
0d8f e404 | | Load 0x2,0x4
0d90 027a | z | Execute Discrete,Less_Equal
0d91 77c1 |w | Jump_Nonzero 0xd53
0d92 00ce | | Action Pop_Auxiliary
0d93 e5ff | | Load 0x2,-0x1
0d94 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0d95 0000 0000 | | .XXX[0x3]
0d97 0000 | |
0d98 ; --------------------------------------------------------------------------------------
0d98 ; SUBPROGRAM
0d98 ; --------------------------------------------------------------------------------------
0d98 0da5 | | .CONST 0x0da5 ; Address of begin
0d99 0004 | | .CONST 0x0004 ; Address of exception handler
0d9a 0004 | | .CONST 0x0004 ; Number of locals
0d9b INIT_0d98:
0d9b e5fe | | Load 0x2,-0x2
0d9c 01dd | | Execute Vector,First
0d9d 00e3 | | Load_Encached Natural_Cache
0d9e 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
0d9f e5fe | | Load 0x2,-0x2
0da0 01dc | | Execute Vector,Last
0da1 00e3 | | Load_Encached Natural_Cache
0da2 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
0da3 00e1 | | Load_Encached Boolean_Cache
0da4 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0da5 BODY_0d98:
0da5 00cf | | Action Mark_Auxiliary
0da6 781e |x | Jump 0xdc5
0da7 e402 | | Load 0x2,0x2
0da8 e5fe | | Load 0x2,-0x2
0da9 01d7 | | Execute Vector,Field_Read
0daa 0f22 | " | Execute_Immediate Equal,0x22
0dab 6807 |h | Jump_Zero 0xdb3
0dac e404 | | Load 0x2,0x4
0dad e402 | | Load 0x2,0x2
0dae e5fe | | Load 0x2,-0x2
0daf 832c | , | Call 0x1,0x12c
0db0 c402 | | Store 0x2,0x2
0db1 c404 | | Store 0x2,0x4
0db2 780e |x | Jump 0xdc1
0db3 e404 | | Load 0x2,0x4
0db4 700c |p | Jump_Nonzero 0xdc1
0db5 e402 | | Load 0x2,0x2
0db6 e5fe | | Load 0x2,-0x2
0db7 01d7 | | Execute Vector,Field_Read
0db8 e5ff | | Load 0x2,-0x1
0db9 027f | | Execute Discrete,Equal
0dba 6806 |h | Jump_Zero 0xdc1
0dbb e402 | | Load 0x2,0x2
0dbc e5fe | | Load 0x2,-0x2
0dbd 8326 | & | Call 0x1,0x126
0dbe 7002 |p | Jump_Nonzero 0xdc1
0dbf e402 | | Load 0x2,0x2
0dc0 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0dc1 e402 | | Load 0x2,0x2
0dc2 0a01 | | Execute_Immediate Plus,0x1
0dc3 c402 | | Store 0x2,0x2
0dc4 00c9 | | Action Pop_Auxiliary_Loop
0dc5 e402 | | Load 0x2,0x2
0dc6 e403 | | Load 0x2,0x3
0dc7 027a | z | Execute Discrete,Less_Equal
0dc8 77de |w | Jump_Nonzero 0xda7
0dc9 00ce | | Action Pop_Auxiliary
0dca 4800 |H | Short_Literal 0x0
0dcb 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0dcc 0000 0000 | | .BLANK 0000[0x4]
0dd0 ; --------------------------------------------------------------------------------------
0dd0 ; SUBPROGRAM
0dd0 ; --------------------------------------------------------------------------------------
0dd0 0dd3 | | .CONST 0x0dd3 ; Address of begin
0dd1 0004 | | .CONST 0x0004 ; Address of exception handler
0dd2 0001 | | .CONST 0x0001 ; Number of locals
0dd3 BODY_0dd0:
0dd3 INIT_0dd0:
0dd3 e5ff | | Load 0x2,-0x1
0dd4 4828 |H( | Short_Literal 0x28
0dd5 832f | / | Call 0x1,0x12f
0dd6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0dd7 0000 | | .XXX[0x1]
0dd8 ; --------------------------------------------------------------------------------------
0dd8 ; SUBPROGRAM
0dd8 ; --------------------------------------------------------------------------------------
0dd8 0ddb | | .CONST 0x0ddb ; Address of begin
0dd9 0004 | | .CONST 0x0004 ; Address of exception handler
0dda 0001 | | .CONST 0x0001 ; Number of locals
0ddb BODY_0dd8:
0ddb INIT_0dd8:
0ddb e5ff | | Load 0x2,-0x1
0ddc 01db | | Execute Vector,Length
0ddd 0c01 | | Execute_Immediate Greater_Equal,0x1
0dde 680d |h | Jump_Zero 0xdec
0ddf e5fe | | Load 0x2,-0x2
0de0 e05c | \ | Load 0x0,0x5c
0de1 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0de2 480a |H | Short_Literal 0xa
0de3 832f | / | Call 0x1,0x12f
0de4 0c01 | | Execute_Immediate Greater_Equal,0x1
0de5 6806 |h | Jump_Zero 0xdec
0de6 e5fe | | Load 0x2,-0x2
0de7 e5ff | | Load 0x2,-0x1
0de8 4801 |H | Short_Literal 0x1
0de9 e05c | \ | Load 0x0,0x5c
0dea 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0deb 00d1 | | Pop_Control Pop_Count_1
0dec 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0ded 0000 0000 | | .XXX[0x3]
0def 0000 | |
0df0 ; --------------------------------------------------------------------------------------
0df0 ; SUBPROGRAM
0df0 ; --------------------------------------------------------------------------------------
0df0 0df3 | | .CONST 0x0df3 ; Address of begin
0df1 0004 | | .CONST 0x0004 ; Address of exception handler
0df2 0001 | | .CONST 0x0001 ; Number of locals
0df3 BODY_0df0:
0df3 INIT_0df0:
0df3 4820 |H | Short_Literal 0x20
0df4 4803 |H | Short_Literal 0x3
0df5 4810 |H | Short_Literal 0x10
0df6 e5ff | | Load 0x2,-0x1
0df7 e05b | [ | Load 0x0,0x5b
0df8 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0df9 0092 1ae3 | | Action Push_String_Extended,0x1ae3 ; ": "
0dfb 01cc | | Execute Vector,Catenate
0dfc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0dfd 0000 0000 | | .XXX[0x3]
0dff 0000 | |
0e00 ; --------------------------------------------------------------------------------------
0e00 ; SUBPROGRAM
0e00 ; --------------------------------------------------------------------------------------
0e00 0e2f | / | .CONST 0x0e2f ; Address of begin
0e01 0004 | | .CONST 0x0004 ; Address of exception handler
0e02 000e | | .CONST 0x000e ; Number of locals
0e03 INIT_0e00:
0e03 e5fe | | Load 0x2,-0x2
0e04 0a05 | | Execute_Immediate Plus,0x5
0e05 00e3 | | Load_Encached Natural_Cache
0e06 025b | [ | Execute Discrete,Check_In_Type
0e07 8322 | " | Call 0x1,0x122
0e08 00d8 | | Load_Top At_Offset_0
0e09 01db | | Execute Vector,Length
0e0a 00e3 | | Load_Encached Natural_Cache
0e0b 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
0e0c e5ff | | Load 0x2,-0x1
0e0d 01db | | Execute Vector,Length
0e0e 00e3 | | Load_Encached Natural_Cache
0e0f 025b | [ | Execute Discrete,Check_In_Type
0e10 8323 | # | Call 0x1,0x123
0e11 00e3 | | Load_Encached Natural_Cache
0e12 03f1 | | Declare_Variable Discrete,With_Value
0e13 00d8 | | Load_Top At_Offset_0
0e14 e05c | \ | Load 0x0,0x5c
0e15 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0e16 1c08 | | Execute_Immediate Run_Utility,0x8
0e17 00d8 | | Load_Top At_Offset_0
0e18 1c00 | | Execute_Immediate Run_Utility,0x0
0e19 029f 1a53 | S| Declare_Subprogram INIT_1a50,For_Call
0e1b e05d | ] | Load 0x0,0x5d
0e1c 190d | | Execute Package,Field_Reference,Field_Number 0xd
0e1d 00c6 | | Action Check_Subprogram_Elaborated
0e1e 4806 |H | Short_Literal 0x6
0e1f 4802 |H | Short_Literal 0x2
0e20 0099 | | Action Reference_Dynamic
0e21 e05e | ^ | Load 0x0,0x5e
0e22 e05f | _ | Load 0x0,0x5f
0e23 480a |H | Short_Literal 0xa
0e24 0007 | | Action Break_Optional
0e25 e05d | ] | Load 0x0,0x5d
0e26 190f | | Execute Package,Field_Reference,Field_Number 0xf
0e27 00c6 | | Action Check_Subprogram_Elaborated
0e28 4806 |H | Short_Literal 0x6
0e29 4802 |H | Short_Literal 0x2
0e2a 0099 | | Action Reference_Dynamic
0e2b e060 | ` | Load 0x0,0x60
0e2c e061 | a | Load 0x0,0x61
0e2d 480e |H | Short_Literal 0xe
0e2e 0007 | | Action Break_Optional
0e2f BODY_0e00:
0e2f e405 | | Load 0x2,0x5
0e30 4820 |H | Short_Literal 0x20
0e31 4800 |H | Short_Literal 0x0
0e32 e05c | \ | Load 0x0,0x5c
0e33 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0e34 00d1 | | Pop_Control Pop_Count_1
0e35 e5fd | | Load 0x2,-0x3
0e36 680f |h | Jump_Zero 0xe46
0e37 4800 |H | Short_Literal 0x0
0e38 484f |HO | Short_Literal 0x4f
0e39 e403 | | Load 0x2,0x3
0e3a 6031 |`1 | Indirect_Literal Discrete,0xe6c,{0x00000000, 0x7fffffff}
0e3b 4800 |H | Short_Literal 0x0
0e3c e5ff | | Load 0x2,-0x1
0e3d 480b |H | Short_Literal 0xb
0e3e 4802 |H | Short_Literal 0x2
0e3f 0099 | | Action Reference_Dynamic
0e40 480c |H | Short_Literal 0xc
0e41 4802 |H | Short_Literal 0x2
0e42 0099 | | Action Reference_Dynamic
0e43 e05d | ] | Load 0x0,0x5d
0e44 180f | | Execute Package,Field_Execute,Field_Number 0xf
0e45 7816 |x | Jump 0xe5c
0e46 484f |HO | Short_Literal 0x4f
0e47 e403 | | Load 0x2,0x3
0e48 0272 | r | Execute Discrete,Minus
0e49 00e4 | | Load_Encached Positive_Cache
0e4a 025b | [ | Execute Discrete,Check_In_Type
0e4b e402 | | Load 0x2,0x2
0e4c e5ff | | Load 0x2,-0x1
0e4d 4807 |H | Short_Literal 0x7
0e4e 4802 |H | Short_Literal 0x2
0e4f 0099 | | Action Reference_Dynamic
0e50 4808 |H | Short_Literal 0x8
0e51 4802 |H | Short_Literal 0x2
0e52 0099 | | Action Reference_Dynamic
0e53 e05d | ] | Load 0x0,0x5d
0e54 180d | | Execute Package,Field_Execute,Field_Number 0xd
0e55 e405 | | Load 0x2,0x5
0e56 482c |H, | Short_Literal 0x2c
0e57 4809 |H | Short_Literal 0x9
0e58 4820 |H | Short_Literal 0x20
0e59 4800 |H | Short_Literal 0x0
0e5a 832d | - | Call 0x1,0x12d
0e5b 00d1 | | Pop_Control Pop_Count_1
0e5c e405 | | Load 0x2,0x5
0e5d e402 | | Load 0x2,0x2
0e5e 8328 | ( | Call 0x1,0x128
0e5f 00d1 | | Pop_Control Pop_Count_1
0e60 e5fd | | Load 0x2,-0x3
0e61 6804 |h | Jump_Zero 0xe66
0e62 e405 | | Load 0x2,0x5
0e63 e402 | | Load 0x2,0x2
0e64 8331 | 1 | Call 0x1,0x131
0e65 00d1 | | Pop_Control Pop_Count_1
0e66 e405 | | Load 0x2,0x5
0e67 e05c | \ | Load 0x0,0x5c
0e68 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0e69 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0e6a 0000 0000 | | .XXX[0x2]
0e6c 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff}
0e70 ; --------------------------------------------------------------------------------------
0e70 ; SUBPROGRAM
0e70 ; --------------------------------------------------------------------------------------
0e70 0e74 | t | .CONST 0x0e74 ; Address of begin
0e71 0004 | | .CONST 0x0004 ; Address of exception handler
0e72 0002 | | .CONST 0x0002 ; Number of locals
0e73 INIT_0e70:
0e73 00e3 | | Load_Encached Natural_Cache
0e74 BODY_0e70:
0e74 e5ff | | Load 0x2,-0x1
0e75 8330 | 0 | Call 0x1,0x130
0e76 a402 | | Store_Unchecked 0x2,0x2
0e77 00d8 | | Load_Top At_Offset_0
0e78 0c01 | | Execute_Immediate Greater_Equal,0x1
0e79 6811 |h | Jump_Zero 0xe8b
0e7a e5fe | | Load 0x2,-0x2
0e7b 4801 |H | Short_Literal 0x1
0e7c e5fe | | Load 0x2,-0x2
0e7d e402 | | Load 0x2,0x2
0e7e e5ff | | Load 0x2,-0x1
0e7f 01dc | | Execute Vector,Last
0e80 e5ff | | Load 0x2,-0x1
0e81 01cf | | Execute Vector,Slice_Read
0e82 8333 | 3 | Call 0x1,0x133
0e83 e5ff | | Load 0x2,-0x1
0e84 01dd | | Execute Vector,First
0e85 e402 | | Load 0x2,0x2
0e86 0aff | | Execute_Immediate Plus,-0x1
0e87 e5ff | | Load 0x2,-0x1
0e88 01cf | | Execute Vector,Slice_Read
0e89 8329 | ) | Call 0x1,0x129
0e8a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0e8b 4800 |H | Short_Literal 0x0
0e8c e5fe | | Load 0x2,-0x2
0e8d e5ff | | Load 0x2,-0x1
0e8e 8333 | 3 | Call 0x1,0x133
0e8f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0e90 ; --------------------------------------------------------------------------------------
0e90 ; SUBPROGRAM
0e90 ; --------------------------------------------------------------------------------------
0e90 0e93 | | .CONST 0x0e93 ; Address of begin
0e91 0004 | | .CONST 0x0004 ; Address of exception handler
0e92 0001 | | .CONST 0x0001 ; Number of locals
0e93 BODY_0e90:
0e93 INIT_0e90:
0e93 e5fe | | Load 0x2,-0x2
0e94 8332 | 2 | Call 0x1,0x132
0e95 e5fd | | Load 0x2,-0x3
0e96 8322 | " | Call 0x1,0x122
0e97 01cc | | Execute Vector,Catenate
0e98 4800 |H | Short_Literal 0x0
0e99 e5fe | | Load 0x2,-0x2
0e9a e5ff | | Load 0x2,-0x1
0e9b e062 | b | Load 0x0,0x62
0e9c 180d | | Execute Package,Field_Execute,Field_Number 0xd
0e9d 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0e9e 0000 0000 | | .XXX[0x2]
0ea0 ; --------------------------------------------------------------------------------------
0ea0 ; SUBPROGRAM
0ea0 ; --------------------------------------------------------------------------------------
0ea0 0ea3 | | .CONST 0x0ea3 ; Address of begin
0ea1 0004 | | .CONST 0x0004 ; Address of exception handler
0ea2 0001 | | .CONST 0x0001 ; Number of locals
0ea3 BODY_0ea0:
0ea3 INIT_0ea0:
0ea3 e5ff | | Load 0x2,-0x1
0ea4 6802 |h | Jump_Zero 0xea7
0ea5 4800 |H | Short_Literal 0x0
0ea6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0ea7 4820 |H | Short_Literal 0x20
0ea8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0ea9 0000 0000 | | .BLANK 0000[0x7]
0eb0 ; --------------------------------------------------------------------------------------
0eb0 ; SUBPROGRAM
0eb0 ; --------------------------------------------------------------------------------------
0eb0 0eb3 | | .CONST 0x0eb3 ; Address of begin
0eb1 0004 | | .CONST 0x0004 ; Address of exception handler
0eb2 0001 | | .CONST 0x0001 ; Number of locals
0eb3 BODY_0eb0:
0eb3 INIT_0eb0:
0eb3 4820 |H | Short_Literal 0x20
0eb4 4800 |H | Short_Literal 0x0
0eb5 4810 |H | Short_Literal 0x10
0eb6 e5ff | | Load 0x2,-0x1
0eb7 e05b | [ | Load 0x0,0x5b
0eb8 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0eb9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0eba 0000 0000 | | .BLANK 0000[0x6]
0ec0 ; --------------------------------------------------------------------------------------
0ec0 ; SUBPROGRAM
0ec0 ; --------------------------------------------------------------------------------------
0ec0 0ec5 | | .CONST 0x0ec5 ; Address of begin
0ec1 0004 | | .CONST 0x0004 ; Address of exception handler
0ec2 0002 | | .CONST 0x0002 ; Number of locals
0ec3 INIT_0ec0:
0ec3 e5fe | | Load 0x2,-0x2
0ec4 8336 | 6 | Call 0x1,0x136
0ec5 BODY_0ec0:
0ec5 00d8 | | Load_Top At_Offset_0
0ec6 0092 1ae4 | | Action Push_String_Extended,0x1ae4 ; "#"
0ec8 e5ff | | Load 0x2,-0x1
0ec9 e048 | H | Load 0x0,0x48
0eca 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0ecb 8337 | 7 | Call 0x1,0x137
0ecc 01cc | | Execute Vector,Catenate
0ecd 01cb | | Execute Vector,Append
0ece 0092 1ae4 | | Action Push_String_Extended,0x1ae4 ; "#"
0ed0 01cc | | Execute Vector,Catenate
0ed1 e5ff | | Load 0x2,-0x1
0ed2 e048 | H | Load 0x0,0x48
0ed3 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0ed4 8337 | 7 | Call 0x1,0x137
0ed5 01cc | | Execute Vector,Catenate
0ed6 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0ed7 0000 | | .XXX[0x1]
0ed8 ; --------------------------------------------------------------------------------------
0ed8 ; SUBPROGRAM
0ed8 ; --------------------------------------------------------------------------------------
0ed8 0edd | | .CONST 0x0edd ; Address of begin
0ed9 0004 | | .CONST 0x0004 ; Address of exception handler
0eda 0002 | | .CONST 0x0002 ; Number of locals
0edb INIT_0ed8:
0edb e5ff | | Load 0x2,-0x1
0edc 8336 | 6 | Call 0x1,0x136
0edd BODY_0ed8:
0edd e5fe | | Load 0x2,-0x2
0ede 680d |h | Jump_Zero 0xeec
0edf 00d8 | | Load_Top At_Offset_0
0ee0 0092 1ae5 | | Action Push_String_Extended,0x1ae5 ; "->"
0ee2 01ca | | Execute Vector,Prepend
0ee3 00ea | | Load_Encached Null_String_Cache
0ee4 e5ff | | Load 0x2,-0x1
0ee5 0f00 | | Execute_Immediate Equal,0x0
0ee6 e402 | | Load 0x2,0x2
0ee7 00ea | | Load_Encached Null_String_Cache
0ee8 01ca | | Execute Vector,Prepend
0ee9 8321 | ! | Call 0x1,0x121
0eea 01cc | | Execute Vector,Catenate
0eeb 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0eec e310 | | Load 0x1,0x110
0eed 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0eee 0000 0000 | | .XXX[0x2]
0ef0 ; --------------------------------------------------------------------------------------
0ef0 ; SUBPROGRAM
0ef0 ; --------------------------------------------------------------------------------------
0ef0 0ef5 | | .CONST 0x0ef5 ; Address of begin
0ef1 0004 | | .CONST 0x0004 ; Address of exception handler
0ef2 0002 | | .CONST 0x0002 ; Number of locals
0ef3 INIT_0ef0:
0ef3 e5fe | | Load 0x2,-0x2
0ef4 8336 | 6 | Call 0x1,0x136
0ef5 BODY_0ef0:
0ef5 483e |H> | Short_Literal 0x3e
0ef6 483c |H< | Short_Literal 0x3c
0ef7 00ea | | Load_Encached Null_String_Cache
0ef8 e5fe | | Load 0x2,-0x2
0ef9 e402 | | Load 0x2,0x2
0efa 00ea | | Load_Encached Null_String_Cache
0efb 01ca | | Execute Vector,Prepend
0efc 8321 | ! | Call 0x1,0x121
0efd 01cb | | Execute Vector,Append
0efe e5fe | | Load 0x2,-0x2
0eff e5ff | | Load 0x2,-0x1
0f00 8338 | 8 | Call 0x1,0x138
0f01 01cc | | Execute Vector,Catenate
0f02 01cb | | Execute Vector,Append
0f03 e5fd | | Load 0x2,-0x3
0f04 e5fe | | Load 0x2,-0x2
0f05 8339 | 9 | Call 0x1,0x139
0f06 01cc | | Execute Vector,Catenate
0f07 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0f08 ; --------------------------------------------------------------------------------------
0f08 ; SUBPROGRAM
0f08 ; --------------------------------------------------------------------------------------
0f08 0f0b | | .CONST 0x0f0b ; Address of begin
0f09 0004 | | .CONST 0x0004 ; Address of exception handler
0f0a 0001 | | .CONST 0x0001 ; Number of locals
0f0b BODY_0f08:
0f0b INIT_0f08:
0f0b e5ff | | Load 0x2,-0x1
0f0c 0d01 | | Execute_Immediate Less,0x1
0f0d 6802 |h | Jump_Zero 0xf10
0f0e 00ea | | Load_Encached Null_String_Cache
0f0f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0f10 e33b | ; | Load 0x1,0x13b
0f11 e5ff | | Load 0x2,-0x1
0f12 0aff | | Execute_Immediate Plus,-0x1
0f13 0248 | H | Execute Discrete,Check_In_Integer
0f14 833c | < | Call 0x1,0x13c
0f15 01cc | | Execute Vector,Catenate
0f16 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0f17 0000 | | .XXX[0x1]
0f18 ; --------------------------------------------------------------------------------------
0f18 ; SUBPROGRAM
0f18 ; --------------------------------------------------------------------------------------
0f18 0f23 | # | .CONST 0x0f23 ; Address of begin
0f19 0004 | | .CONST 0x0004 ; Address of exception handler
0f1a 0005 | | .CONST 0x0005 ; Number of locals
0f1b INIT_0f18:
0f1b e001 | | Load 0x0,0x1
0f1c 1b9c | | Execute Package,Field_Read,Field_Number 0x9c
0f1d 0322 | " | Declare_Variable Record
0f1e 00e6 | | Load_Encached Float_Cache
0f1f e001 | | Load 0x0,0x1
0f20 1b4b | K | Execute Package,Field_Read,Field_Number 0x4b
0f21 029f 1a6b | k| Declare_Subprogram INIT_1a68,For_Call
0f23 BODY_0f18:
0f23 e5fe | | Load 0x2,-0x2
0f24 8294 | | Call 0x1,0x94
0f25 6807 |h | Jump_Zero 0xf2d
0f26 4820 |H | Short_Literal 0x20
0f27 4800 |H | Short_Literal 0x0
0f28 480a |H | Short_Literal 0xa
0f29 e5ff | | Load 0x2,-0x1
0f2a e05b | [ | Load 0x0,0x5b
0f2b 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0f2c 4407 |D | Exit_Subprogram With_Value,New_Top_Offset 0x7
0f2d e5fe | | Load 0x2,-0x2
0f2e 8268 | h | Call 0x1,0x68
0f2f e402 | | Load 0x2,0x2
0f30 017d | } | Execute Record,Structure_Write
0f31 e402 | | Load 0x2,0x2
0f32 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0f33 8307 | | Call 0x1,0x107
0f34 6829 |h) | Jump_Zero 0xf5e
0f35 e402 | | Load 0x2,0x2
0f36 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5
0f37 8309 | | Call 0x1,0x109
0f38 4609 |F | Jump_Case 0xa
0f39 7809 |x | Jump 0xf43 ; case 0x0
0f3a 7808 |x | Jump 0xf43 ; case 0x1
0f3b 7807 |x | Jump 0xf43 ; case 0x2
0f3c 7806 |x | Jump 0xf43 ; case 0x3
0f3d 781b |x | Jump 0xf59 ; case 0x4
0f3e 781d |x | Jump 0xf5c ; case 0x5
0f3f 780b |x | Jump 0xf4b ; case 0x6
0f40 7802 |x | Jump 0xf43 ; case 0x7
0f41 7808 |x | Jump 0xf4a ; case 0x8
0f42 7800 |x | Jump 0xf43 ; case 0x9
0f43 4820 |H | Short_Literal 0x20
0f44 4800 |H | Short_Literal 0x0
0f45 480a |H | Short_Literal 0xa
0f46 e5ff | | Load 0x2,-0x1
0f47 e05b | [ | Load 0x0,0x5b
0f48 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0f49 4407 |D | Exit_Subprogram With_Value,New_Top_Offset 0x7
0f4a 0887 | | Execute_Immediate Raise,0x87
0f4b e5ff | | Load 0x2,-0x1
0f4c e2c8 | | Load 0x1,0xc8
0f4d e2c9 | | Load 0x1,0xc9
0f4e 1dca | | Execute_Immediate Reference_Lex_1,0xca
0f4f 8002 | | Call 0x0,0x2
0f50 a403 | | Store_Unchecked 0x2,0x3
0f51 4805 |H | Short_Literal 0x5
0f52 e063 | c | Load 0x0,0x63
0f53 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0f54 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0f55 e403 | | Load 0x2,0x3
0f56 e063 | c | Load 0x0,0x63
0f57 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0f58 4407 |D | Exit_Subprogram With_Value,New_Top_Offset 0x7
0f59 e5ff | | Load 0x2,-0x1
0f5a 8365 | e | Call 0x1,0x165
0f5b 4407 |D | Exit_Subprogram With_Value,New_Top_Offset 0x7
0f5c 8405 | | Call 0x2,0x5
0f5d 786e |xn | Jump 0xfcc
0f5e e5fe | | Load 0x2,-0x2
0f5f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0f60 00d8 | | Load_Top At_Offset_0
0f61 0d39 | 9 | Execute_Immediate Less,0x39
0f62 7017 |p | Jump_Nonzero 0xf7a
0f63 00d8 | | Load_Top At_Offset_0
0f64 0c44 | D | Execute_Immediate Greater_Equal,0x44
0f65 7002 |p | Jump_Nonzero 0xf68
0f66 00d1 | | Pop_Control Pop_Count_1
0f67 0887 | | Execute_Immediate Raise,0x87
0f68 00d8 | | Load_Top At_Offset_0
0f69 0d6c | l | Execute_Immediate Less,0x6c
0f6a 700a |p | Jump_Nonzero 0xf75
0f6b 00d8 | | Load_Top At_Offset_0
0f6c 0c6d | m | Execute_Immediate Greater_Equal,0x6d
0f6d 7002 |p | Jump_Nonzero 0xf70
0f6e 00d1 | | Pop_Control Pop_Count_1
0f6f 0887 | | Execute_Immediate Raise,0x87
0f70 0b74 | t | Execute_Immediate Case_Compare,0x74
0f71 77fc |w | Jump_Nonzero 0xf6e
0f72 0f7c | | | Execute_Immediate Equal,0x7c
0f73 77fb |w | Jump_Nonzero 0xf6f
0f74 7ff2 | | Jump 0xf67
0f75 0b44 | D | Execute_Immediate Case_Compare,0x44
0f76 77f7 |w | Jump_Nonzero 0xf6e
0f77 0f4c | L | Execute_Immediate Equal,0x4c
0f78 77f6 |w | Jump_Nonzero 0xf6f
0f79 7fed | | Jump 0xf67
0f7a 00d8 | | Load_Top At_Offset_0
0f7b 0c19 | | Execute_Immediate Greater_Equal,0x19
0f7c 702d |p- | Jump_Nonzero 0xfaa
0f7d 4618 |F | Jump_Case 0x19
0f7e 782e |x. | Jump 0xfad ; case 0x0
0f7f 7fe7 | | Jump 0xf67 ; case 0x1
0f80 7fe6 | | Jump 0xf67 ; case 0x2
0f81 7fe5 | | Jump 0xf67 ; case 0x3
0f82 7fe4 | | Jump 0xf67 ; case 0x4
0f83 7fe3 | | Jump 0xf67 ; case 0x5
0f84 7fe2 | | Jump 0xf67 ; case 0x6
0f85 7fe1 | | Jump 0xf67 ; case 0x7
0f86 782d |x- | Jump 0xfb4 ; case 0x8
0f87 7fdf | | Jump 0xf67 ; case 0x9
0f88 7fde | | Jump 0xf67 ; case 0xa
0f89 7fdd | | Jump 0xf67 ; case 0xb
0f8a 7fdc | | Jump 0xf67 ; case 0xc
0f8b 7fdb | | Jump 0xf67 ; case 0xd
0f8c 7fda | | Jump 0xf67 ; case 0xe
0f8d 7fd9 | | Jump 0xf67 ; case 0xf
0f8e 7833 |x3 | Jump 0xfc2 ; case 0x10
0f8f 7fd7 | | Jump 0xf67 ; case 0x11
0f90 7fd6 | | Jump 0xf67 ; case 0x12
0f91 7fd5 | | Jump 0xf67 ; case 0x13
0f92 7fd4 | | Jump 0xf67 ; case 0x14
0f93 7fd3 | | Jump 0xf67 ; case 0x15
0f94 7fd2 | | Jump 0xf67 ; case 0x16
0f95 7fd1 | | Jump 0xf67 ; case 0x17
0f96 7800 |x | Jump 0xf97 ; case 0x18
0f97 e5ff | | Load 0x2,-0x1
0f98 e243 | C | Load 0x1,0x43
0f99 e244 | D | Load 0x1,0x44
0f9a 1d45 | E | Execute_Immediate Reference_Lex_1,0x45
0f9b 8002 | | Call 0x0,0x2
0f9c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0f9d a404 | | Store_Unchecked 0x2,0x4
0f9e 4820 |H | Short_Literal 0x20
0f9f 4800 |H | Short_Literal 0x0
0fa0 4810 |H | Short_Literal 0x10
0fa1 e404 | | Load 0x2,0x4
0fa2 00d8 | | Load_Top At_Offset_0
0fa3 00e2 | | Load_Encached Integer_Cache
0fa4 0260 | ` | Execute Discrete,In_Type
0fa5 7001 |p | Jump_Nonzero 0xfa7
0fa6 08e0 | | Execute_Immediate Raise,0xe0
0fa7 e05b | [ | Load 0x0,0x5b
0fa8 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0fa9 4407 |D | Exit_Subprogram With_Value,New_Top_Offset 0x7
0faa 0f38 | 8 | Execute_Immediate Equal,0x38
0fab 7016 |p | Jump_Nonzero 0xfc2
0fac 7fba | | Jump 0xf67
0fad 4820 |H | Short_Literal 0x20
0fae 4800 |H | Short_Literal 0x0
0faf 480a |H | Short_Literal 0xa
0fb0 e5ff | | Load 0x2,-0x1
0fb1 e05b | [ | Load 0x0,0x5b
0fb2 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0fb3 4407 |D | Exit_Subprogram With_Value,New_Top_Offset 0x7
0fb4 e5ff | | Load 0x2,-0x1
0fb5 e2c8 | | Load 0x1,0xc8
0fb6 e2c9 | | Load 0x1,0xc9
0fb7 1dca | | Execute_Immediate Reference_Lex_1,0xca
0fb8 8002 | | Call 0x0,0x2
0fb9 a403 | | Store_Unchecked 0x2,0x3
0fba 4805 |H | Short_Literal 0x5
0fbb e063 | c | Load 0x0,0x63
0fbc 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0fbd 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0fbe e403 | | Load 0x2,0x3
0fbf e063 | c | Load 0x0,0x63
0fc0 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0fc1 4407 |D | Exit_Subprogram With_Value,New_Top_Offset 0x7
0fc2 4800 |H | Short_Literal 0x0
0fc3 e5f9 | | Load 0x2,-0x7
0fc4 e5fa | | Load 0x2,-0x6
0fc5 e5fb | | Load 0x2,-0x5
0fc6 e5fc | | Load 0x2,-0x4
0fc7 e5fd | | Load 0x2,-0x3
0fc8 e5fe | | Load 0x2,-0x2
0fc9 e5ff | | Load 0x2,-0x1
0fca 833e | > | Call 0x1,0x13e
0fcb 4407 |D | Exit_Subprogram With_Value,New_Top_Offset 0x7
0fcc 0831 | 1 | Execute_Immediate Raise,0x31
0fcd 0000 0000 | | .XXX[0x3]
0fcf 0000 | |
0fd0 ; --------------------------------------------------------------------------------------
0fd0 ; SUBPROGRAM
0fd0 ; --------------------------------------------------------------------------------------
0fd0 0fe1 | | .CONST 0x0fe1 ; Address of begin
0fd1 0004 | | .CONST 0x0004 ; Address of exception handler
0fd2 0003 | | .CONST 0x0003 ; Number of locals
0fd3 INIT_0fd0:
0fd3 e001 | | Load 0x0,0x1
0fd4 1b92 | | Execute Package,Field_Read,Field_Number 0x92
0fd5 0322 | " | Declare_Variable Record
0fd6 4800 |H | Short_Literal 0x0
0fd7 e218 | | Load 0x1,0x18
0fd8 025b | [ | Execute Discrete,Check_In_Type
0fd9 e5fe | | Load 0x2,-0x2
0fda e26d | m | Load 0x1,0x6d
0fdb 1d6e | n | Execute_Immediate Reference_Lex_1,0x6e
0fdc 826c | l | Call 0x1,0x6c
0fdd e402 | | Load 0x2,0x2
0fde 017d | } | Execute Record,Structure_Write
0fdf e048 | H | Load 0x0,0x48
0fe0 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0fe1 BODY_0fd0:
0fe1 e5ff | | Load 0x2,-0x1
0fe2 7003 |p | Jump_Nonzero 0xfe6
0fe3 4800 |H | Short_Literal 0x0
0fe4 a403 | | Store_Unchecked 0x2,0x3
0fe5 7806 |x | Jump 0xfec
0fe6 e5ff | | Load 0x2,-0x1
0fe7 e402 | | Load 0x2,0x2
0fe8 e5fe | | Load 0x2,-0x2
0fe9 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0fea 828b | | Call 0x1,0x8b
0feb a403 | | Store_Unchecked 0x2,0x3
0fec e5f8 | | Load 0x2,-0x8
0fed e5f9 | | Load 0x2,-0x7
0fee e5fa | | Load 0x2,-0x6
0fef e5fb | | Load 0x2,-0x5
0ff0 e5fc | | Load 0x2,-0x4
0ff1 e5fd | | Load 0x2,-0x3
0ff2 e402 | | Load 0x2,0x2
0ff3 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0ff4 e403 | | Load 0x2,0x3
0ff5 8363 | c | Call 0x1,0x163
0ff6 4408 |D | Exit_Subprogram With_Value,New_Top_Offset 0x8
0ff7 0000 | | .XXX[0x1]
0ff8 ; --------------------------------------------------------------------------------------
0ff8 ; SUBPROGRAM
0ff8 ; --------------------------------------------------------------------------------------
0ff8 1010 | | .CONST 0x1010 ; Address of begin
0ff9 0004 | | .CONST 0x0004 ; Address of exception handler
0ffa 0003 | | .CONST 0x0003 ; Number of locals
0ffb INIT_0ff8:
0ffb e001 | | Load 0x0,0x1
0ffc 1b92 | | Execute Package,Field_Read,Field_Number 0x92
0ffd 0322 | " | Declare_Variable Record
0ffe 4800 |H | Short_Literal 0x0
0fff e218 | | Load 0x1,0x18
1000 025b | [ | Execute Discrete,Check_In_Type
1001 e5fd | | Load 0x2,-0x3
1002 e26d | m | Load 0x1,0x6d
1003 1d6e | n | Execute_Immediate Reference_Lex_1,0x6e
1004 826c | l | Call 0x1,0x6c
1005 e402 | | Load 0x2,0x2
1006 017d | } | Execute Record,Structure_Write
1007 e5fe | | Load 0x2,-0x2
1008 e5ff | | Load 0x2,-0x1
1009 e402 | | Load 0x2,0x2
100a e5fd | | Load 0x2,-0x3
100b 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
100c 828e | | Call 0x1,0x8e
100d e048 | H | Load 0x0,0x48
100e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
100f 03f1 | | Declare_Variable Discrete,With_Value
1010 BODY_0ff8:
1010 e5f7 | | Load 0x2,-0x9
1011 e5f8 | | Load 0x2,-0x8
1012 e5f9 | | Load 0x2,-0x7
1013 e5fa | | Load 0x2,-0x6
1014 e5fb | | Load 0x2,-0x5
1015 e5fc | | Load 0x2,-0x4
1016 e402 | | Load 0x2,0x2
1017 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
1018 e403 | | Load 0x2,0x3
1019 8363 | c | Call 0x1,0x163
101a 4409 |D | Exit_Subprogram With_Value,New_Top_Offset 0x9
101b 0000 0000 | | .BLANK 0000[0x5]
1020 ; --------------------------------------------------------------------------------------
1020 ; SUBPROGRAM
1020 ; --------------------------------------------------------------------------------------
1020 1038 | 8 | .CONST 0x1038 ; Address of begin
1021 0004 | | .CONST 0x0004 ; Address of exception handler
1022 000c | | .CONST 0x000c ; Number of locals
1023 INIT_1020:
1023 e2be | | Load 0x1,0xbe
1024 00e5 | | Load_Encached Long_Integer_Cache
1025 03f1 | | Declare_Variable Discrete,With_Value
1026 e5ff | | Load 0x2,-0x1
1027 01dc | | Execute Vector,Last
1028 00e5 | | Load_Encached Long_Integer_Cache
1029 03f1 | | Declare_Variable Discrete,With_Value
102a e001 | | Load 0x0,0x1
102b 1ba3 | | Execute Package,Field_Read,Field_Number 0xa3
102c 0322 | " | Declare_Variable Record
102d e001 | | Load 0x0,0x1
102e 1ba0 | | Execute Package,Field_Read,Field_Number 0xa0
102f 0322 | " | Declare_Variable Record
1030 00e5 | | Load_Encached Long_Integer_Cache
1031 03e9 | | Declare_Variable Discrete,Duplicate
1032 03e9 | | Declare_Variable Discrete,Duplicate
1033 e048 | H | Load 0x0,0x48
1034 1b0d | | Execute Package,Field_Read,Field_Number 0xd
1035 00e5 | | Load_Encached Long_Integer_Cache
1036 03e9 | | Declare_Variable Discrete,Duplicate
1037 03e9 | | Declare_Variable Discrete,Duplicate
1038 BODY_1020:
1038 e5fc | | Load 0x2,-0x4
1039 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
103a 0f6c | l | Execute_Immediate Equal,0x6c
103b 7001 |p | Jump_Nonzero 0x103d
103c 0887 | | Execute_Immediate Raise,0x87
103d e5ff | | Load 0x2,-0x1
103e 01dd | | Execute Vector,First
103f 6801 |h | Jump_Zero 0x1041
1040 0887 | | Execute_Immediate Raise,0x87
1041 e5fd | | Load 0x2,-0x3
1042 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
1043 680d |h | Jump_Zero 0x1051
1044 e5fe | | Load 0x2,-0x2
1045 e5fd | | Load 0x2,-0x3
1046 e5ff | | Load 0x2,-0x1
1047 82b9 | | Call 0x1,0xb9
1048 e404 | | Load 0x2,0x4
1049 017d | } | Execute Record,Structure_Write
104a e404 | | Load 0x2,0x4
104b 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
104c e5fd | | Load 0x2,-0x3
104d 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
104e 0273 | s | Execute Discrete,Plus
104f a406 | | Store_Unchecked 0x2,0x6
1050 7803 |x | Jump 0x1054
1051 e5fd | | Load 0x2,-0x3
1052 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
1053 a406 | | Store_Unchecked 0x2,0x6
1054 e406 | | Load 0x2,0x6
1055 e402 | | Load 0x2,0x2
1056 0273 | s | Execute Discrete,Plus
1057 0aff | | Execute_Immediate Plus,-0x1
1058 e403 | | Load 0x2,0x3
1059 027a | z | Execute Discrete,Less_Equal
105a 6808 |h | Jump_Zero 0x1063
105b e406 | | Load 0x2,0x6
105c e403 | | Load 0x2,0x3
105d e5ff | | Load 0x2,-0x1
105e 01cf | | Execute Vector,Slice_Read
105f 82c6 | | Call 0x1,0xc6
1060 e405 | | Load 0x2,0x5
1061 017d | } | Execute Record,Structure_Write
1062 7806 |x | Jump 0x1069
1063 e406 | | Load 0x2,0x6
1064 e5fe | | Load 0x2,-0x2
1065 8285 | | Call 0x1,0x85
1066 82c5 | | Call 0x1,0xc5
1067 e405 | | Load 0x2,0x5
1068 017d | } | Execute Record,Structure_Write
1069 00e5 | | Load_Encached Long_Integer_Cache
106a 00e5 | | Load_Encached Long_Integer_Cache
106b 00e5 | | Load_Encached Long_Integer_Cache
106c e405 | | Load 0x2,0x5
106d e5fc | | Load 0x2,-0x4
106e 8360 | ` | Call 0x1,0x160
106f c40a | | Store 0x2,0xa
1070 c40b | | Store 0x2,0xb
1071 c40c | | Store 0x2,0xc
1072 00d8 | | Load_Top At_Offset_0
1073 e5fb | | Load 0x2,-0x5
1074 3c0b |< | Execute Record,Field_Read,Field_Number 0xb
1075 027a | z | Execute Discrete,Less_Equal
1076 7001 |p | Jump_Nonzero 0x1078
1077 0887 | | Execute_Immediate Raise,0x87
1078 e406 | | Load 0x2,0x6
1079 e402 | | Load 0x2,0x2
107a 0273 | s | Execute Discrete,Plus
107b a407 | | Store_Unchecked 0x2,0x7
107c e407 | | Load 0x2,0x7
107d e40c | | Load 0x2,0xc
107e 0273 | s | Execute Discrete,Plus
107f 0aff | | Execute_Immediate Plus,-0x1
1080 a408 | | Store_Unchecked 0x2,0x8
1081 e407 | | Load 0x2,0x7
1082 e5fe | | Load 0x2,-0x2
1083 8285 | | Call 0x1,0x85
1084 a409 | | Store_Unchecked 0x2,0x9
1085 e408 | | Load 0x2,0x8
1086 e403 | | Load 0x2,0x3
1087 027a | z | Execute Discrete,Less_Equal
1088 6810 |h | Jump_Zero 0x1099
1089 e5f6 | | Load 0x2,-0xa
108a e5f7 | | Load 0x2,-0x9
108b e5f8 | | Load 0x2,-0x8
108c e5f9 | | Load 0x2,-0x7
108d e5fa | | Load 0x2,-0x6
108e e40b | | Load 0x2,0xb
108f e40a | | Load 0x2,0xa
1090 e5fc | | Load 0x2,-0x4
1091 e409 | | Load 0x2,0x9
1092 e407 | | Load 0x2,0x7
1093 e408 | | Load 0x2,0x8
1094 e5ff | | Load 0x2,-0x1
1095 01cf | | Execute Vector,Slice_Read
1096 821c | | Call 0x1,0x1c
1097 835e | ^ | Call 0x1,0x15e
1098 440a |D | Exit_Subprogram With_Value,New_Top_Offset 0xa
1099 e5f6 | | Load 0x2,-0xa
109a e5f7 | | Load 0x2,-0x9
109b e5f8 | | Load 0x2,-0x8
109c e5f9 | | Load 0x2,-0x7
109d e5fa | | Load 0x2,-0x6
109e e40b | | Load 0x2,0xb
109f e40a | | Load 0x2,0xa
10a0 e5fc | | Load 0x2,-0x4
10a1 e409 | | Load 0x2,0x9
10a2 e21b | | Load 0x1,0x1b
10a3 835e | ^ | Call 0x1,0x15e
10a4 440a |D | Exit_Subprogram With_Value,New_Top_Offset 0xa
10a5 0000 0000 | | .XXX[0x3]
10a7 0000 | |
10a8 ; --------------------------------------------------------------------------------------
10a8 ; SUBPROGRAM
10a8 ; --------------------------------------------------------------------------------------
10a8 10ab | | .CONST 0x10ab ; Address of begin
10a9 0004 | | .CONST 0x0004 ; Address of exception handler
10aa 0001 | | .CONST 0x0001 ; Number of locals
10ab BODY_10a8:
10ab INIT_10a8:
10ab e5fe | | Load 0x2,-0x2
10ac 829a | | Call 0x1,0x9a
10ad 6801 |h | Jump_Zero 0x10af
10ae 0887 | | Execute_Immediate Raise,0x87
10af e5fe | | Load 0x2,-0x2
10b0 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
10b1 00d8 | | Load_Top At_Offset_0
10b2 0d6c | l | Execute_Immediate Less,0x6c
10b3 7013 |p | Jump_Nonzero 0x10c7
10b4 00d8 | | Load_Top At_Offset_0
10b5 0c6d | m | Execute_Immediate Greater_Equal,0x6d
10b6 700b |p | Jump_Nonzero 0x10c2
10b7 00d1 | | Pop_Control Pop_Count_1
10b8 e5f8 | | Load 0x2,-0x8
10b9 e5f9 | | Load 0x2,-0x7
10ba e5fa | | Load 0x2,-0x6
10bb e5fb | | Load 0x2,-0x5
10bc e5fc | | Load 0x2,-0x4
10bd e5fe | | Load 0x2,-0x2
10be e5ff | | Load 0x2,-0x1
10bf e21b | | Load 0x1,0x1b
10c0 835f | _ | Call 0x1,0x15f
10c1 4408 |D | Exit_Subprogram With_Value,New_Top_Offset 0x8
10c2 0b74 | t | Execute_Immediate Case_Compare,0x74
10c3 7024 |p$ | Jump_Nonzero 0x10e8
10c4 0f7c | | | Execute_Immediate Equal,0x7c
10c5 7023 |p# | Jump_Nonzero 0x10e9
10c6 7824 |x$ | Jump 0x10eb
10c7 0b44 | D | Execute_Immediate Case_Compare,0x44
10c8 7003 |p | Jump_Nonzero 0x10cc
10c9 0f4c | L | Execute_Immediate Equal,0x4c
10ca 7010 |p | Jump_Nonzero 0x10db
10cb 781f |x | Jump 0x10eb
10cc 00d1 | | Pop_Control Pop_Count_1
10cd e5f8 | | Load 0x2,-0x8
10ce e5f9 | | Load 0x2,-0x7
10cf e5fa | | Load 0x2,-0x6
10d0 e5fb | | Load 0x2,-0x5
10d1 e5fc | | Load 0x2,-0x4
10d2 e5fd | | Load 0x2,-0x3
10d3 e5fe | | Load 0x2,-0x2
10d4 e5ff | | Load 0x2,-0x1
10d5 e5fd | | Load 0x2,-0x3
10d6 3c0b |< | Execute Record,Field_Read,Field_Number 0xb
10d7 e5ff | | Load 0x2,-0x1
10d8 82bd | | Call 0x1,0xbd
10d9 8344 | D | Call 0x1,0x144
10da 4408 |D | Exit_Subprogram With_Value,New_Top_Offset 0x8
10db e5f8 | | Load 0x2,-0x8
10dc e5f9 | | Load 0x2,-0x7
10dd e5fa | | Load 0x2,-0x6
10de e5fb | | Load 0x2,-0x5
10df e5fc | | Load 0x2,-0x4
10e0 e5fe | | Load 0x2,-0x2
10e1 e5ff | | Load 0x2,-0x1
10e2 e5fd | | Load 0x2,-0x3
10e3 3c0b |< | Execute Record,Field_Read,Field_Number 0xb
10e4 e5ff | | Load 0x2,-0x1
10e5 82bd | | Call 0x1,0xbd
10e6 8343 | C | Call 0x1,0x143
10e7 4408 |D | Exit_Subprogram With_Value,New_Top_Offset 0x8
10e8 00d1 | | Pop_Control Pop_Count_1
10e9 e320 | | Load 0x1,0x120
10ea 4408 |D | Exit_Subprogram With_Value,New_Top_Offset 0x8
10eb e5fe | | Load 0x2,-0x2
10ec 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
10ed e046 | F | Load 0x0,0x46
10ee 1b59 | Y | Execute Package,Field_Read,Field_Number 0x59
10ef 025e | ^ | Execute Discrete,Convert
10f0 1c01 | | Execute_Immediate Run_Utility,0x1
10f1 4408 |D | Exit_Subprogram With_Value,New_Top_Offset 0x8
10f2 0000 0000 | | .BLANK 0000[0x6]
10f8 ; --------------------------------------------------------------------------------------
10f8 ; SUBPROGRAM
10f8 ; --------------------------------------------------------------------------------------
10f8 10fb | | .CONST 0x10fb ; Address of begin
10f9 0004 | | .CONST 0x0004 ; Address of exception handler
10fa 0001 | | .CONST 0x0001 ; Number of locals
10fb BODY_10f8:
10fb INIT_10f8:
10fb e5fd | | Load 0x2,-0x3
10fc 829a | | Call 0x1,0x9a
10fd 6801 |h | Jump_Zero 0x10ff
10fe 0887 | | Execute_Immediate Raise,0x87
10ff e5fd | | Load 0x2,-0x3
1100 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
1101 00d8 | | Load_Top At_Offset_0
1102 0d6c | l | Execute_Immediate Less,0x6c
1103 7013 |p | Jump_Nonzero 0x1117
1104 00d8 | | Load_Top At_Offset_0
1105 0c6d | m | Execute_Immediate Greater_Equal,0x6d
1106 700b |p | Jump_Nonzero 0x1112
1107 00d1 | | Pop_Control Pop_Count_1
1108 e5f7 | | Load 0x2,-0x9
1109 e5f8 | | Load 0x2,-0x8
110a e5f9 | | Load 0x2,-0x7
110b e5fa | | Load 0x2,-0x6
110c e5fb | | Load 0x2,-0x5
110d e5fd | | Load 0x2,-0x3
110e e5fe | | Load 0x2,-0x2
110f e5ff | | Load 0x2,-0x1
1110 835f | _ | Call 0x1,0x15f
1111 4409 |D | Exit_Subprogram With_Value,New_Top_Offset 0x9
1112 0b74 | t | Execute_Immediate Case_Compare,0x74
1113 701e |p | Jump_Nonzero 0x1132
1114 0f7c | | | Execute_Immediate Equal,0x7c
1115 701d |p | Jump_Nonzero 0x1133
1116 781e |x | Jump 0x1135
1117 0b44 | D | Execute_Immediate Case_Compare,0x44
1118 7003 |p | Jump_Nonzero 0x111c
1119 0f4c | L | Execute_Immediate Equal,0x4c
111a 700d |p | Jump_Nonzero 0x1128
111b 7819 |x | Jump 0x1135
111c 00d1 | | Pop_Control Pop_Count_1
111d e5f7 | | Load 0x2,-0x9
111e e5f8 | | Load 0x2,-0x8
111f e5f9 | | Load 0x2,-0x7
1120 e5fa | | Load 0x2,-0x6
1121 e5fb | | Load 0x2,-0x5
1122 e5fc | | Load 0x2,-0x4
1123 e5fd | | Load 0x2,-0x3
1124 e5fe | | Load 0x2,-0x2
1125 e5ff | | Load 0x2,-0x1
1126 8344 | D | Call 0x1,0x144
1127 4409 |D | Exit_Subprogram With_Value,New_Top_Offset 0x9
1128 e5f7 | | Load 0x2,-0x9
1129 e5f8 | | Load 0x2,-0x8
112a e5f9 | | Load 0x2,-0x7
112b e5fa | | Load 0x2,-0x6
112c e5fb | | Load 0x2,-0x5
112d e5fd | | Load 0x2,-0x3
112e e5fe | | Load 0x2,-0x2
112f e5ff | | Load 0x2,-0x1
1130 8343 | C | Call 0x1,0x143
1131 4409 |D | Exit_Subprogram With_Value,New_Top_Offset 0x9
1132 00d1 | | Pop_Control Pop_Count_1
1133 e320 | | Load 0x1,0x120
1134 4409 |D | Exit_Subprogram With_Value,New_Top_Offset 0x9
1135 e5fd | | Load 0x2,-0x3
1136 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
1137 e046 | F | Load 0x0,0x46
1138 1b59 | Y | Execute Package,Field_Read,Field_Number 0x59
1139 025e | ^ | Execute Discrete,Convert
113a 1c01 | | Execute_Immediate Run_Utility,0x1
113b 4409 |D | Exit_Subprogram With_Value,New_Top_Offset 0x9
113c 0000 0000 | | .BLANK 0000[0x4]
1140 ; --------------------------------------------------------------------------------------
1140 ; SUBPROGRAM
1140 ; --------------------------------------------------------------------------------------
1140 114f | O | .CONST 0x114f ; Address of begin
1141 0004 | | .CONST 0x0004 ; Address of exception handler
1142 0002 | | .CONST 0x0002 ; Number of locals
1143 INIT_1140:
1143 e001 | | Load 0x0,0x1
1144 1b99 | | Execute Package,Field_Read,Field_Number 0x99
1145 0322 | " | Declare_Variable Record
1146 4800 |H | Short_Literal 0x0
1147 e218 | | Load 0x1,0x18
1148 025b | [ | Execute Discrete,Check_In_Type
1149 e5fd | | Load 0x2,-0x3
114a e271 | q | Load 0x1,0x71
114b 1d72 | r | Execute_Immediate Reference_Lex_1,0x72
114c 826c | l | Call 0x1,0x6c
114d e402 | | Load 0x2,0x2
114e 017d | } | Execute Record,Structure_Write
114f BODY_1140:
114f e5fb | | Load 0x2,-0x5
1150 0d01 | | Execute_Immediate Less,0x1
1151 6802 |h | Jump_Zero 0x1154
1152 e311 | | Load 0x1,0x111
1153 4408 |D | Exit_Subprogram With_Value,New_Top_Offset 0x8
1154 0092 1ae6 | | Action Push_String_Extended,0x1ae6 ; "("
1156 e5f8 | | Load 0x2,-0x8
1157 e5f9 | | Load 0x2,-0x7
1158 e5fa | | Load 0x2,-0x6
1159 e5fb | | Load 0x2,-0x5
115a 0aff | | Execute_Immediate Plus,-0x1
115b 00e3 | | Load_Encached Natural_Cache
115c 025b | [ | Execute Discrete,Check_In_Type
115d e5fc | | Load 0x2,-0x4
115e 4801 |H | Short_Literal 0x1
115f e402 | | Load 0x2,0x2
1160 3c0b |< | Execute Record,Field_Read,Field_Number 0xb
1161 e5fd | | Load 0x2,-0x3
1162 e5fe | | Load 0x2,-0x2
1163 e5ff | | Load 0x2,-0x1
1164 834b | K | Call 0x1,0x14b
1165 01cc | | Execute Vector,Catenate
1166 e5f8 | | Load 0x2,-0x8
1167 e5f9 | | Load 0x2,-0x7
1168 e5fa | | Load 0x2,-0x6
1169 e5fb | | Load 0x2,-0x5
116a 0aff | | Execute_Immediate Plus,-0x1
116b 00e3 | | Load_Encached Natural_Cache
116c 025b | [ | Execute Discrete,Check_In_Type
116d e5fc | | Load 0x2,-0x4
116e e402 | | Load 0x2,0x2
116f e5fd | | Load 0x2,-0x3
1170 e5fd | | Load 0x2,-0x3
1171 e5fe | | Load 0x2,-0x2
1172 e5ff | | Load 0x2,-0x1
1173 834d | M | Call 0x1,0x14d
1174 01cc | | Execute Vector,Catenate
1175 0092 1ae2 | | Action Push_String_Extended,0x1ae2 ; ")"
1177 01cc | | Execute Vector,Catenate
1178 8327 | ' | Call 0x1,0x127
1179 4408 |D | Exit_Subprogram With_Value,New_Top_Offset 0x8
117a 0000 0000 | | .BLANK 0000[0x6]
1180 ; --------------------------------------------------------------------------------------
1180 ; SUBPROGRAM
1180 ; --------------------------------------------------------------------------------------
1180 1188 | | .CONST 0x1188 ; Address of begin
1181 0004 | | .CONST 0x0004 ; Address of exception handler
1182 0002 | | .CONST 0x0002 ; Number of locals
1183 INIT_1180:
1183 e5fc | | Load 0x2,-0x4
1184 3c0a |< | Execute Record,Field_Read,Field_Number 0xa
1185 e001 | | Load 0x0,0x1
1186 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
1187 03f1 | | Declare_Variable Discrete,With_Value
1188 BODY_1180:
1188 e5ff | | Load 0x2,-0x1
1189 01db | | Execute Vector,Length
118a e5fc | | Load 0x2,-0x4
118b 3c0b |< | Execute Record,Field_Read,Field_Number 0xb
118c 027a | z | Execute Discrete,Less_Equal
118d 7001 |p | Jump_Nonzero 0x118f
118e 0887 | | Execute_Immediate Raise,0x87
118f e5fa | | Load 0x2,-0x6
1190 0d01 | | Execute_Immediate Less,0x1
1191 6802 |h | Jump_Zero 0x1194
1192 e311 | | Load 0x1,0x111
1193 4409 |D | Exit_Subprogram With_Value,New_Top_Offset 0x9
1194 00d8 | | Load_Top At_Offset_0
1195 7003 |p | Jump_Nonzero 0x1199
1196 0092 1ae7 | | Action Push_String_Extended,0x1ae7 ; "()"
1198 4409 |D | Exit_Subprogram With_Value,New_Top_Offset 0x9
1199 0092 1ae6 | | Action Push_String_Extended,0x1ae6 ; "("
119b e5f7 | | Load 0x2,-0x9
119c e5f8 | | Load 0x2,-0x8
119d e5f9 | | Load 0x2,-0x7
119e e5fa | | Load 0x2,-0x6
119f 0aff | | Execute_Immediate Plus,-0x1
11a0 00e3 | | Load_Encached Natural_Cache
11a1 025b | [ | Execute Discrete,Check_In_Type
11a2 e5fb | | Load 0x2,-0x5
11a3 4800 |H | Short_Literal 0x0
11a4 e402 | | Load 0x2,0x2
11a5 0aff | | Execute_Immediate Plus,-0x1
11a6 e001 | | Load 0x0,0x1
11a7 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
11a8 025b | [ | Execute Discrete,Check_In_Type
11a9 e5fd | | Load 0x2,-0x3
11aa e5fe | | Load 0x2,-0x2
11ab e5ff | | Load 0x2,-0x1
11ac 834b | K | Call 0x1,0x14b
11ad 01cc | | Execute Vector,Catenate
11ae 0092 1ae2 | | Action Push_String_Extended,0x1ae2 ; ")"
11b0 01cc | | Execute Vector,Catenate
11b1 8327 | ' | Call 0x1,0x127
11b2 4409 |D | Exit_Subprogram With_Value,New_Top_Offset 0x9
11b3 0000 0000 | | .BLANK 0000[0x5]
11b8 ; --------------------------------------------------------------------------------------
11b8 ; SUBPROGRAM
11b8 ; --------------------------------------------------------------------------------------
11b8 11c2 | | .CONST 0x11c2 ; Address of begin
11b9 0004 | | .CONST 0x0004 ; Address of exception handler
11ba 0002 | | .CONST 0x0002 ; Number of locals
11bb INIT_11b8:
11bb e001 | | Load 0x0,0x1
11bc 1b9c | | Execute Package,Field_Read,Field_Number 0x9c
11bd 0322 | " | Declare_Variable Record
11be e5fd | | Load 0x2,-0x3
11bf 8268 | h | Call 0x1,0x68
11c0 e402 | | Load 0x2,0x2
11c1 017d | } | Execute Record,Structure_Write
11c2 BODY_11b8:
11c2 e5fd | | Load 0x2,-0x3
11c3 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
11c4 0b44 | D | Execute_Immediate Case_Compare,0x44
11c5 7003 |p | Jump_Nonzero 0x11c9
11c6 0f4c | L | Execute_Immediate Equal,0x4c
11c7 700d |p | Jump_Nonzero 0x11d5
11c8 0887 | | Execute_Immediate Raise,0x87
11c9 00d1 | | Pop_Control Pop_Count_1
11ca e5f8 | | Load 0x2,-0x8
11cb e5f9 | | Load 0x2,-0x7
11cc e5fa | | Load 0x2,-0x6
11cd e5fb | | Load 0x2,-0x5
11ce e5fc | | Load 0x2,-0x4
11cf e402 | | Load 0x2,0x2
11d0 e5fd | | Load 0x2,-0x3
11d1 e5fe | | Load 0x2,-0x2
11d2 e5ff | | Load 0x2,-0x1
11d3 8344 | D | Call 0x1,0x144
11d4 4408 |D | Exit_Subprogram With_Value,New_Top_Offset 0x8
11d5 e5f8 | | Load 0x2,-0x8
11d6 e5f9 | | Load 0x2,-0x7
11d7 e5fa | | Load 0x2,-0x6
11d8 e5fb | | Load 0x2,-0x5
11d9 e5fc | | Load 0x2,-0x4
11da e5fd | | Load 0x2,-0x3
11db e5fe | | Load 0x2,-0x2
11dc e5ff | | Load 0x2,-0x1
11dd 8343 | C | Call 0x1,0x143
11de 4408 |D | Exit_Subprogram With_Value,New_Top_Offset 0x8
11df 0000 | | .XXX[0x1]
11e0 ; --------------------------------------------------------------------------------------
11e0 ; SUBPROGRAM
11e0 ; --------------------------------------------------------------------------------------
11e0 11e8 | | .CONST 0x11e8 ; Address of begin
11e1 0004 | | .CONST 0x0004 ; Address of exception handler
11e2 0002 | | .CONST 0x0002 ; Number of locals
11e3 INIT_11e0:
11e3 e5fd | | Load 0x2,-0x3
11e4 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
11e5 e046 | F | Load 0x0,0x46
11e6 1b59 | Y | Execute Package,Field_Read,Field_Number 0x59
11e7 03f1 | | Declare_Variable Discrete,With_Value
11e8 BODY_11e0:
11e8 e5fc | | Load 0x2,-0x4
11e9 6804 |h | Jump_Zero 0x11ee
11ea e310 | | Load 0x1,0x110
11eb e315 | | Load 0x1,0x115
11ec 01cc | | Execute Vector,Catenate
11ed 4409 |D | Exit_Subprogram With_Value,New_Top_Offset 0x9
11ee 00d8 | | Load_Top At_Offset_0
11ef 8295 | | Call 0x1,0x95
11f0 680b |h | Jump_Zero 0x11fc
11f1 4801 |H | Short_Literal 0x1
11f2 e5f7 | | Load 0x2,-0x9
11f3 e5f8 | | Load 0x2,-0x8
11f4 e5f9 | | Load 0x2,-0x7
11f5 e5fa | | Load 0x2,-0x6
11f6 e5fb | | Load 0x2,-0x5
11f7 e5fd | | Load 0x2,-0x3
11f8 e5fe | | Load 0x2,-0x2
11f9 e5ff | | Load 0x2,-0x1
11fa 833f | ? | Call 0x1,0x13f
11fb 4409 |D | Exit_Subprogram With_Value,New_Top_Offset 0x9
11fc e310 | | Load 0x1,0x110
11fd e5f7 | | Load 0x2,-0x9
11fe e5f8 | | Load 0x2,-0x8
11ff e5f9 | | Load 0x2,-0x7
1200 e5fa | | Load 0x2,-0x6
1201 e5fb | | Load 0x2,-0x5
1202 e5fd | | Load 0x2,-0x3
1203 e5ff | | Load 0x2,-0x1
1204 827b | { | Call 0x1,0x7b
1205 833d | = | Call 0x1,0x13d
1206 01cc | | Execute Vector,Catenate
1207 4409 |D | Exit_Subprogram With_Value,New_Top_Offset 0x9
1208 ; --------------------------------------------------------------------------------------
1208 ; SUBPROGRAM
1208 ; --------------------------------------------------------------------------------------
1208 1219 | | .CONST 0x1219 ; Address of begin
1209 124e | N | .CONST 0x124e ; Address of exception handler
120a 0003 | | .CONST 0x0003 ; Number of locals
120b INIT_1208:
120b e001 | | Load 0x0,0x1
120c 1b5f | _ | Execute Package,Field_Read,Field_Number 0x5f
120d 0322 | " | Declare_Variable Record
120e e5fd | | Load 0x2,-0x3
120f 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
1210 e402 | | Load 0x2,0x2
1211 017d | } | Execute Record,Structure_Write
1212 e5ff | | Load 0x2,-0x1
1213 01db | | Execute Vector,Length
1214 e5fd | | Load 0x2,-0x3
1215 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
1216 027c | | | Execute Discrete,Less
1217 00e1 | | Load_Encached Boolean_Cache
1218 03f1 | | Declare_Variable Discrete,With_Value
1219 BODY_1208:
1219 e402 | | Load 0x2,0x2
121a 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
121b 830d | | Call 0x1,0x10d
121c 680b |h | Jump_Zero 0x1228
121d e5f8 | | Load 0x2,-0x8
121e e5f9 | | Load 0x2,-0x7
121f e5fa | | Load 0x2,-0x6
1220 e5fb | | Load 0x2,-0x5
1221 e5fc | | Load 0x2,-0x4
1222 e403 | | Load 0x2,0x3
1223 e402 | | Load 0x2,0x2
1224 e5fe | | Load 0x2,-0x2
1225 e5ff | | Load 0x2,-0x1
1226 8346 | F | Declare_Type Array,Constrained_Incomplete,Bounds_With_Object
1227 4408 |D | Exit_Subprogram With_Value,New_Top_Offset 0x8
1228 e402 | | Load 0x2,0x2
1229 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
122a 8296 | | Call 0x1,0x96
122b 6812 |h | Jump_Zero 0x123e
122c e310 | | Load 0x1,0x110
122d e5f8 | | Load 0x2,-0x8
122e e5f9 | | Load 0x2,-0x7
122f e5fa | | Load 0x2,-0x6
1230 e5fb | | Load 0x2,-0x5
1231 e5fc | | Load 0x2,-0x4
1232 0a01 | | Execute_Immediate Plus,0x1
1233 0248 | H | Execute Discrete,Check_In_Integer
1234 e402 | | Load 0x2,0x2
1235 e5fd | | Load 0x2,-0x3
1236 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
1237 e5fe | | Load 0x2,-0x2
1238 8285 | | Call 0x1,0x85
1239 e5ff | | Load 0x2,-0x1
123a 821c | | Call 0x1,0x1c
123b 8345 | E | Call 0x1,0x145
123c 01cc | | Execute Vector,Catenate
123d 4408 |D | Exit_Subprogram With_Value,New_Top_Offset 0x8
123e e310 | | Load 0x1,0x110
123f e5f8 | | Load 0x2,-0x8
1240 e5f9 | | Load 0x2,-0x7
1241 e5fa | | Load 0x2,-0x6
1242 e5fb | | Load 0x2,-0x5
1243 e5fc | | Load 0x2,-0x4
1244 0a01 | | Execute_Immediate Plus,0x1
1245 0248 | H | Execute Discrete,Check_In_Integer
1246 e402 | | Load 0x2,0x2
1247 8268 | h | Call 0x1,0x68
1248 e402 | | Load 0x2,0x2
1249 e5fe | | Load 0x2,-0x2
124a e5ff | | Load 0x2,-0x1
124b 8342 | B | Call 0x1,0x142
124c 01cc | | Execute Vector,Catenate
124d 4408 |D | Exit_Subprogram With_Value,New_Top_Offset 0x8
124e TRAP_1208:
124e 4884 |H | Short_Literal 0x84
124f 010f | | Execute Exception,Equal
1250 6804 |h | Jump_Zero 0x1255
1251 e310 | | Load 0x1,0x110
1252 e319 | | Load 0x1,0x119
1253 01cc | | Execute Vector,Catenate
1254 4408 |D | Exit_Subprogram With_Value,New_Top_Offset 0x8
1255 e310 | | Load 0x1,0x110
1256 e31a | | Load 0x1,0x11a
1257 01cc | | Execute Vector,Catenate
1258 0092 1ae3 | | Action Push_String_Extended,0x1ae3 ; ": "
125a 01cc | | Execute Vector,Catenate
125b e047 | G | Load 0x0,0x47
125c 180d | | Execute Package,Field_Execute,Field_Number 0xd
125d 01cc | | Execute Vector,Catenate
125e 4408 |D | Exit_Subprogram With_Value,New_Top_Offset 0x8
125f 0000 | | .XXX[0x1]
1260 ; --------------------------------------------------------------------------------------
1260 ; SUBPROGRAM
1260 ; --------------------------------------------------------------------------------------
1260 1279 | y | .CONST 0x1279 ; Address of begin
1261 12d1 | | .CONST 0x12d1 ; Address of exception handler
1262 0007 | | .CONST 0x0007 ; Number of locals
1263 INIT_1260:
1263 e001 | | Load 0x0,0x1
1264 1b5f | _ | Execute Package,Field_Read,Field_Number 0x5f
1265 0322 | " | Declare_Variable Record
1266 e5fd | | Load 0x2,-0x3
1267 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
1268 e402 | | Load 0x2,0x2
1269 017d | } | Execute Record,Structure_Write
126a e001 | | Load 0x0,0x1
126b 1b9c | | Execute Package,Field_Read,Field_Number 0x9c
126c 0322 | " | Declare_Variable Record
126d e402 | | Load 0x2,0x2
126e 8268 | h | Call 0x1,0x68
126f e403 | | Load 0x2,0x3
1270 017d | } | Execute Record,Structure_Write
1271 e001 | | Load 0x0,0x1
1272 1b31 | 1 | Execute Package,Field_Read,Field_Number 0x31
1273 e001 | | Load 0x0,0x1
1274 1ba3 | | Execute Package,Field_Read,Field_Number 0xa3
1275 0322 | " | Declare_Variable Record
1276 e001 | | Load 0x0,0x1
1277 1b31 | 1 | Execute Package,Field_Read,Field_Number 0x31
1278 00e5 | | Load_Encached Long_Integer_Cache
1279 BODY_1260:
1279 e402 | | Load 0x2,0x2
127a 829a | | Call 0x1,0x9a
127b 6811 |h | Jump_Zero 0x128d
127c e310 | | Load 0x1,0x110
127d e5f8 | | Load 0x2,-0x8
127e e5f9 | | Load 0x2,-0x7
127f e5fa | | Load 0x2,-0x6
1280 e5fb | | Load 0x2,-0x5
1281 e5fc | | Load 0x2,-0x4
1282 0a01 | | Execute_Immediate Plus,0x1
1283 0248 | H | Execute Discrete,Check_In_Integer
1284 e402 | | Load 0x2,0x2
1285 8268 | h | Call 0x1,0x68
1286 e402 | | Load 0x2,0x2
1287 e5fd | | Load 0x2,-0x3
1288 e5fe | | Load 0x2,-0x2
1289 e5ff | | Load 0x2,-0x1
128a 8340 | @ | Call 0x1,0x140
128b 01cc | | Execute Vector,Catenate
128c 4408 |D | Exit_Subprogram With_Value,New_Top_Offset 0x8
128d e5fd | | Load 0x2,-0x3
128e 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
128f 6810 |h | Jump_Zero 0x12a0
1290 e5fe | | Load 0x2,-0x2
1291 e5fd | | Load 0x2,-0x3
1292 e5ff | | Load 0x2,-0x1
1293 82b9 | | Call 0x1,0xb9
1294 e405 | | Load 0x2,0x5
1295 017d | } | Execute Record,Structure_Write
1296 e5fd | | Load 0x2,-0x3
1297 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
1298 e405 | | Load 0x2,0x5
1299 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
129a 0273 | s | Execute Discrete,Plus
129b c406 | | Store 0x2,0x6
129c e405 | | Load 0x2,0x5
129d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
129e a404 | | Store_Unchecked 0x2,0x4
129f 7806 |x | Jump 0x12a6
12a0 e403 | | Load 0x2,0x3
12a1 3c0b |< | Execute Record,Field_Read,Field_Number 0xb
12a2 a404 | | Store_Unchecked 0x2,0x4
12a3 e5fd | | Load 0x2,-0x3
12a4 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
12a5 a406 | | Store_Unchecked 0x2,0x6
12a6 e404 | | Load 0x2,0x4
12a7 e406 | | Load 0x2,0x6
12a8 829b | | Call 0x1,0x9b
12a9 a407 | | Store_Unchecked 0x2,0x7
12aa 00d8 | | Load_Top At_Offset_0
12ab e5ff | | Load 0x2,-0x1
12ac 01dc | | Execute Vector,Last
12ad 027a | z | Execute Discrete,Less_Equal
12ae 680d |h | Jump_Zero 0x12bc
12af e5f8 | | Load 0x2,-0x8
12b0 e5f9 | | Load 0x2,-0x7
12b1 e5fa | | Load 0x2,-0x6
12b2 e5fb | | Load 0x2,-0x5
12b3 e5fc | | Load 0x2,-0x4
12b4 e5fd | | Load 0x2,-0x3
12b5 e5fe | | Load 0x2,-0x2
12b6 e406 | | Load 0x2,0x6
12b7 e407 | | Load 0x2,0x7
12b8 e5ff | | Load 0x2,-0x1
12b9 01cf | | Execute Vector,Slice_Read
12ba 8347 | G | Call 0x1,0x147
12bb 4408 |D | Exit_Subprogram With_Value,New_Top_Offset 0x8
12bc e5ff | | Load 0x2,-0x1
12bd 01db | | Execute Vector,Length
12be 700e |p | Jump_Nonzero 0x12cd
12bf e5f8 | | Load 0x2,-0x8
12c0 e5f9 | | Load 0x2,-0x7
12c1 e5fa | | Load 0x2,-0x6
12c2 e5fb | | Load 0x2,-0x5
12c3 e5fc | | Load 0x2,-0x4
12c4 e5fd | | Load 0x2,-0x3
12c5 e5fe | | Load 0x2,-0x2
12c6 e404 | | Load 0x2,0x4
12c7 e406 | | Load 0x2,0x6
12c8 e5fe | | Load 0x2,-0x2
12c9 8285 | | Call 0x1,0x85
12ca 82bd | | Call 0x1,0xbd
12cb 8347 | G | Call 0x1,0x147
12cc 4408 |D | Exit_Subprogram With_Value,New_Top_Offset 0x8
12cd e310 | | Load 0x1,0x110
12ce e315 | | Load 0x1,0x115
12cf 01cc | | Execute Vector,Catenate
12d0 4408 |D | Exit_Subprogram With_Value,New_Top_Offset 0x8
12d1 TRAP_1260:
12d1 4884 |H | Short_Literal 0x84
12d2 010f | | Execute Exception,Equal
12d3 6804 |h | Jump_Zero 0x12d8
12d4 e310 | | Load 0x1,0x110
12d5 e319 | | Load 0x1,0x119
12d6 01cc | | Execute Vector,Catenate
12d7 4408 |D | Exit_Subprogram With_Value,New_Top_Offset 0x8
12d8 e310 | | Load 0x1,0x110
12d9 e31a | | Load 0x1,0x11a
12da 01cc | | Execute Vector,Catenate
12db 0092 1ae3 | | Action Push_String_Extended,0x1ae3 ; ": "
12dd 01cc | | Execute Vector,Catenate
12de e047 | G | Load 0x0,0x47
12df 180d | | Execute Package,Field_Execute,Field_Number 0xd
12e0 01cc | | Execute Vector,Catenate
12e1 4408 |D | Exit_Subprogram With_Value,New_Top_Offset 0x8
12e2 0000 0000 | | .BLANK 0000[0x6]
12e8 ; --------------------------------------------------------------------------------------
12e8 ; SUBPROGRAM
12e8 ; --------------------------------------------------------------------------------------
12e8 12eb | | .CONST 0x12eb ; Address of begin
12e9 0004 | | .CONST 0x0004 ; Address of exception handler
12ea 0001 | | .CONST 0x0001 ; Number of locals
12eb BODY_12e8:
12eb INIT_12e8:
12eb e5fc | | Load 0x2,-0x4
12ec 833c | < | Call 0x1,0x13c
12ed 0092 1ae8 | | Action Push_String_Extended,0x1ae8 ; "F"
12ef 01cc | | Execute Vector,Catenate
12f0 4820 |H | Short_Literal 0x20
12f1 4800 |H | Short_Literal 0x0
12f2 480a |H | Short_Literal 0xa
12f3 e5fd | | Load 0x2,-0x3
12f4 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
12f5 e05b | [ | Load 0x0,0x5b
12f6 1816 | | Execute Package,Field_Execute,Field_Number 0x16
12f7 01cc | | Execute Vector,Catenate
12f8 e5f8 | | Load 0x2,-0x8
12f9 e5f9 | | Load 0x2,-0x7
12fa e5fa | | Load 0x2,-0x6
12fb e5fb | | Load 0x2,-0x5
12fc e5fc | | Load 0x2,-0x4
12fd e5fd | | Load 0x2,-0x3
12fe e5fe | | Load 0x2,-0x2
12ff e5ff | | Load 0x2,-0x1
1300 8348 | H | Call 0x1,0x148
1301 01cc | | Execute Vector,Catenate
1302 4408 |D | Exit_Subprogram With_Value,New_Top_Offset 0x8
1303 0000 0000 | | .BLANK 0000[0x5]
1308 ; --------------------------------------------------------------------------------------
1308 ; SUBPROGRAM
1308 ; --------------------------------------------------------------------------------------
1308 1313 | | .CONST 0x1313 ; Address of begin
1309 0004 | | .CONST 0x0004 ; Address of exception handler
130a 0002 | | .CONST 0x0002 ; Number of locals
130b INIT_1308:
130b e001 | | Load 0x0,0x1
130c 1b98 | | Execute Package,Field_Read,Field_Number 0x98
130d 0322 | " | Declare_Variable Record
130e e5fc | | Load 0x2,-0x4
130f e5fd | | Load 0x2,-0x3
1310 8269 | i | Call 0x1,0x69
1311 e402 | | Load 0x2,0x2
1312 017d | } | Execute Record,Structure_Write
1313 BODY_1308:
1313 e5fc | | Load 0x2,-0x4
1314 e402 | | Load 0x2,0x2
1315 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
1316 027f | | Execute Discrete,Equal
1317 7001 |p | Jump_Nonzero 0x1319
1318 0887 | | Execute_Immediate Raise,0x87
1319 e5f7 | | Load 0x2,-0x9
131a e5f8 | | Load 0x2,-0x8
131b e5f9 | | Load 0x2,-0x7
131c e5fa | | Load 0x2,-0x6
131d e5fb | | Load 0x2,-0x5
131e e402 | | Load 0x2,0x2
131f e5fe | | Load 0x2,-0x2
1320 e5ff | | Load 0x2,-0x1
1321 8349 | I | Call 0x1,0x149
1322 4409 |D | Exit_Subprogram With_Value,New_Top_Offset 0x9
1323 0000 0000 | | .BLANK 0000[0x5]
1328 ; --------------------------------------------------------------------------------------
1328 ; SUBPROGRAM
1328 ; --------------------------------------------------------------------------------------
1328 132b | + | .CONST 0x132b ; Address of begin
1329 0004 | | .CONST 0x0004 ; Address of exception handler
132a 0001 | | .CONST 0x0001 ; Number of locals
132b BODY_1328:
132b INIT_1328:
132b e5fb | | Load 0x2,-0x5
132c e5fc | | Load 0x2,-0x4
132d 027d | } | Execute Discrete,Greater
132e 6802 |h | Jump_Zero 0x1331
132f 00ea | | Load_Encached Null_String_Cache
1330 440a |D | Exit_Subprogram With_Value,New_Top_Offset 0xa
1331 e5f6 | | Load 0x2,-0xa
1332 e5f7 | | Load 0x2,-0x9
1333 e5f8 | | Load 0x2,-0x8
1334 e5f9 | | Load 0x2,-0x7
1335 e5fa | | Load 0x2,-0x6
1336 e5fb | | Load 0x2,-0x5
1337 e5fd | | Load 0x2,-0x3
1338 e5fe | | Load 0x2,-0x2
1339 e5ff | | Load 0x2,-0x1
133a 834a | J | Call 0x1,0x14a
133b 0092 1ace | | Action Push_String_Extended,0x1ace ; ", "
133d 01cc | | Execute Vector,Catenate
133e e5f6 | | Load 0x2,-0xa
133f e5f7 | | Load 0x2,-0x9
1340 e5f8 | | Load 0x2,-0x8
1341 e5f9 | | Load 0x2,-0x7
1342 e5fa | | Load 0x2,-0x6
1343 e5fb | | Load 0x2,-0x5
1344 0a01 | | Execute_Immediate Plus,0x1
1345 e001 | | Load 0x0,0x1
1346 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
1347 025b | [ | Execute Discrete,Check_In_Type
1348 e5fc | | Load 0x2,-0x4
1349 e5fd | | Load 0x2,-0x3
134a e5fe | | Load 0x2,-0x2
134b e5ff | | Load 0x2,-0x1
134c 834b | K | Call 0x1,0x14b
134d 01cc | | Execute Vector,Catenate
134e 440a |D | Exit_Subprogram With_Value,New_Top_Offset 0xa
134f 0000 | | .XXX[0x1]
1350 ; --------------------------------------------------------------------------------------
1350 ; SUBPROGRAM
1350 ; --------------------------------------------------------------------------------------
1350 1363 | c | .CONST 0x1363 ; Address of begin
1351 0004 | | .CONST 0x0004 ; Address of exception handler
1352 0005 | | .CONST 0x0005 ; Number of locals
1353 INIT_1350:
1353 e5fe | | Load 0x2,-0x2
1354 3c0b |< | Execute Record,Field_Read,Field_Number 0xb
1355 0a01 | | Execute_Immediate Plus,0x1
1356 e001 | | Load 0x0,0x1
1357 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
1358 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
1359 e5fe | | Load 0x2,-0x2
135a 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
135b e001 | | Load 0x0,0x1
135c 1b36 | 6 | Execute Package,Field_Read,Field_Number 0x36
135d 03f1 | | Declare_Variable Discrete,With_Value
135e e001 | | Load 0x0,0x1
135f 1b98 | | Execute Package,Field_Read,Field_Number 0x98
1360 0322 | " | Declare_Variable Record
1361 e001 | | Load 0x0,0x1
1362 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
1363 BODY_1350:
1363 00cf | | Action Mark_Auxiliary
1364 e403 | | Load 0x2,0x3
1365 4801 |H | Short_Literal 0x1
1366 0263 | c | Execute Discrete,Above_Bound
1367 701a |p | Jump_Nonzero 0x1382
1368 00d8 | | Load_Top At_Offset_0
1369 e5fd | | Load 0x2,-0x3
136a 027f | | Execute Discrete,Equal
136b 6802 |h | Jump_Zero 0x136e
136c e402 | | Load 0x2,0x2
136d 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
136e e402 | | Load 0x2,0x2
136f e5ff | | Load 0x2,-0x1
1370 8269 | i | Call 0x1,0x69
1371 e404 | | Load 0x2,0x4
1372 017d | } | Execute Record,Structure_Write
1373 e404 | | Load 0x2,0x4
1374 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
1375 e408 | | Load 0x2,0x8
1376 027f | | Execute Discrete,Equal
1377 7001 |p | Jump_Nonzero 0x1379
1378 0887 | | Execute_Immediate Raise,0x87
1379 e404 | | Load 0x2,0x4
137a 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
137b a405 | | Store_Unchecked 0x2,0x5
137c e402 | | Load 0x2,0x2
137d e405 | | Load 0x2,0x5
137e 0273 | s | Execute Discrete,Plus
137f c402 | | Store 0x2,0x2
1380 00c8 | | Action Pop_Auxiliary_Range
1381 3fe6 |? | Loop_Increasing 0x1368
1382 00ce | | Action Pop_Auxiliary
1383 4800 |H | Short_Literal 0x0
1384 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
1385 0000 0000 | | .XXX[0x3]
1387 0000 | |
1388 ; --------------------------------------------------------------------------------------
1388 ; SUBPROGRAM
1388 ; --------------------------------------------------------------------------------------
1388 1392 | | .CONST 0x1392 ; Address of begin
1389 0004 | | .CONST 0x0004 ; Address of exception handler
138a 0004 | | .CONST 0x0004 ; Number of locals
138b INIT_1388:
138b e001 | | Load 0x0,0x1
138c 1b36 | 6 | Execute Package,Field_Read,Field_Number 0x36
138d e001 | | Load 0x0,0x1
138e 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
138f e001 | | Load 0x0,0x1
1390 1b98 | | Execute Package,Field_Read,Field_Number 0x98
1391 0322 | " | Declare_Variable Record
1392 BODY_1388:
1392 e5ff | | Load 0x2,-0x1
1393 01db | | Execute Vector,Length
1394 e2a6 | | Load 0x1,0xa6
1395 027a | z | Execute Discrete,Less_Equal
1396 6804 |h | Jump_Zero 0x139b
1397 e5fe | | Load 0x2,-0x2
1398 82af | | Call 0x1,0xaf
1399 a402 | | Store_Unchecked 0x2,0x2
139a 7803 |x | Jump 0x139e
139b e5ff | | Load 0x2,-0x1
139c 82ad | | Call 0x1,0xad
139d a402 | | Store_Unchecked 0x2,0x2
139e e5fb | | Load 0x2,-0x5
139f 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
13a0 6803 |h | Jump_Zero 0x13a4
13a1 e402 | | Load 0x2,0x2
13a2 0fff | | Execute_Immediate Equal,-0x1
13a3 6802 |h | Jump_Zero 0x13a6
13a4 00ea | | Load_Encached Null_String_Cache
13a5 440a |D | Exit_Subprogram With_Value,New_Top_Offset 0xa
13a6 e5fb | | Load 0x2,-0x5
13a7 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
13a8 6804 |h | Jump_Zero 0x13ad
13a9 e5fb | | Load 0x2,-0x5
13aa 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
13ab a403 | | Store_Unchecked 0x2,0x3
13ac 7805 |x | Jump 0x13b2
13ad e402 | | Load 0x2,0x2
13ae e5fb | | Load 0x2,-0x5
13af e5fc | | Load 0x2,-0x4
13b0 834c | L | Call 0x1,0x14c
13b1 a403 | | Store_Unchecked 0x2,0x3
13b2 e403 | | Load 0x2,0x3
13b3 7002 |p | Jump_Nonzero 0x13b6
13b4 00ea | | Load_Encached Null_String_Cache
13b5 440a |D | Exit_Subprogram With_Value,New_Top_Offset 0xa
13b6 e403 | | Load 0x2,0x3
13b7 e5fc | | Load 0x2,-0x4
13b8 8269 | i | Call 0x1,0x69
13b9 e404 | | Load 0x2,0x4
13ba 017d | } | Execute Record,Structure_Write
13bb e5f6 | | Load 0x2,-0xa
13bc e5f7 | | Load 0x2,-0x9
13bd e5f8 | | Load 0x2,-0x8
13be e5f9 | | Load 0x2,-0x7
13bf e5fa | | Load 0x2,-0x6
13c0 e404 | | Load 0x2,0x4
13c1 e403 | | Load 0x2,0x3
13c2 e5fc | | Load 0x2,-0x4
13c3 e5fd | | Load 0x2,-0x3
13c4 e5fe | | Load 0x2,-0x2
13c5 e5ff | | Load 0x2,-0x1
13c6 8350 | P | Call 0x1,0x150
13c7 440a |D | Exit_Subprogram With_Value,New_Top_Offset 0xa
13c8 ; --------------------------------------------------------------------------------------
13c8 ; SUBPROGRAM
13c8 ; --------------------------------------------------------------------------------------
13c8 13cb | | .CONST 0x13cb ; Address of begin
13c9 0004 | | .CONST 0x0004 ; Address of exception handler
13ca 0001 | | .CONST 0x0001 ; Number of locals
13cb BODY_13c8:
13cb INIT_13c8:
13cb e5ff | | Load 0x2,-0x1
13cc e5f5 | | Load 0x2,-0xb
13cd e5f6 | | Load 0x2,-0xa
13ce e5f7 | | Load 0x2,-0x9
13cf e5f8 | | Load 0x2,-0x8
13d0 e5f9 | | Load 0x2,-0x7
13d1 0a01 | | Execute_Immediate Plus,0x1
13d2 0248 | H | Execute Discrete,Check_In_Integer
13d3 4801 |H | Short_Literal 0x1
13d4 e5fa | | Load 0x2,-0x6
13d5 3c0b |< | Execute Record,Field_Read,Field_Number 0xb
13d6 e5fb | | Load 0x2,-0x5
13d7 e5fd | | Load 0x2,-0x3
13d8 e5fe | | Load 0x2,-0x2
13d9 834b | K | Call 0x1,0x14b
13da 01cc | | Execute Vector,Catenate
13db e5f5 | | Load 0x2,-0xb
13dc e5f6 | | Load 0x2,-0xa
13dd e5f7 | | Load 0x2,-0x9
13de e5f8 | | Load 0x2,-0x8
13df e5f9 | | Load 0x2,-0x7
13e0 0a01 | | Execute_Immediate Plus,0x1
13e1 0248 | H | Execute Discrete,Check_In_Integer
13e2 e5fa | | Load 0x2,-0x6
13e3 e5fb | | Load 0x2,-0x5
13e4 e5fc | | Load 0x2,-0x4
13e5 e5fd | | Load 0x2,-0x3
13e6 e5fe | | Load 0x2,-0x2
13e7 834d | M | Call 0x1,0x14d
13e8 0092 1ae2 | | Action Push_String_Extended,0x1ae2 ; ")"
13ea 01cc | | Execute Vector,Catenate
13eb 8327 | ' | Call 0x1,0x127
13ec 01cc | | Execute Vector,Catenate
13ed 440b |D | Exit_Subprogram With_Value,New_Top_Offset 0xb
13ee 0000 0000 | | .XXX[0x2]
13f0 ; --------------------------------------------------------------------------------------
13f0 ; SUBPROGRAM
13f0 ; --------------------------------------------------------------------------------------
13f0 141d | | .CONST 0x141d ; Address of begin
13f1 0004 | | .CONST 0x0004 ; Address of exception handler
13f2 0007 | | .CONST 0x0007 ; Number of locals
13f3 INIT_13f0:
13f3 e001 | | Load 0x0,0x1
13f4 1b5f | _ | Execute Package,Field_Read,Field_Number 0x5f
13f5 0322 | " | Declare_Variable Record
13f6 e5fc | | Load 0x2,-0x4
13f7 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
13f8 e402 | | Load 0x2,0x2
13f9 017d | } | Execute Record,Structure_Write
13fa e001 | | Load 0x0,0x1
13fb 1ba3 | | Execute Package,Field_Read,Field_Number 0xa3
13fc 0322 | " | Declare_Variable Record
13fd e5fc | | Load 0x2,-0x4
13fe 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
13ff e5ff | | Load 0x2,-0x1
1400 82b7 | | Call 0x1,0xb7
1401 e403 | | Load 0x2,0x3
1402 017d | } | Execute Record,Structure_Write
1403 00d8 | | Load_Top At_Offset_0
1404 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
1405 e5fc | | Load 0x2,-0x4
1406 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
1407 0273 | s | Execute Discrete,Plus
1408 00e5 | | Load_Encached Long_Integer_Cache
1409 03f1 | | Declare_Variable Discrete,With_Value
140a 00d8 | | Load_Top At_Offset_0
140b e403 | | Load 0x2,0x3
140c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
140d 0273 | s | Execute Discrete,Plus
140e 0aff | | Execute_Immediate Plus,-0x1
140f 00e5 | | Load_Encached Long_Integer_Cache
1410 03f1 | | Declare_Variable Discrete,With_Value
1411 e404 | | Load 0x2,0x4
1412 e5fe | | Load 0x2,-0x2
1413 8285 | | Call 0x1,0x85
1414 e048 | H | Load 0x0,0x48
1415 1b0d | | Execute Package,Field_Read,Field_Number 0xd
1416 03f1 | | Declare_Variable Discrete,With_Value
1417 e5fa | | Load 0x2,-0x6
1418 833c | < | Call 0x1,0x13c
1419 0092 1ae9 | | Action Push_String_Extended,0x1ae9 ; "Anon_Inner_Rec => ("
141b 01cc | | Execute Vector,Catenate
141c 0007 | | Action Break_Optional
141d BODY_13f0:
141d e402 | | Load 0x2,0x2
141e 8298 | | Call 0x1,0x98
141f 680d |h | Jump_Zero 0x142d
1420 e5f6 | | Load 0x2,-0xa
1421 e5f7 | | Load 0x2,-0x9
1422 e5f8 | | Load 0x2,-0x8
1423 e5f9 | | Load 0x2,-0x7
1424 e5fa | | Load 0x2,-0x6
1425 e5fb | | Load 0x2,-0x5
1426 e402 | | Load 0x2,0x2
1427 e5fd | | Load 0x2,-0x3
1428 e406 | | Load 0x2,0x6
1429 e21b | | Load 0x1,0x1b
142a e407 | | Load 0x2,0x7
142b 834e | N | Call 0x1,0x14e
142c 440a |D | Exit_Subprogram With_Value,New_Top_Offset 0xa
142d e405 | | Load 0x2,0x5
142e e5ff | | Load 0x2,-0x1
142f 01dc | | Execute Vector,Last
1430 027a | z | Execute Discrete,Less_Equal
1431 6811 |h | Jump_Zero 0x1443
1432 e5f6 | | Load 0x2,-0xa
1433 e5f7 | | Load 0x2,-0x9
1434 e5f8 | | Load 0x2,-0x8
1435 e5f9 | | Load 0x2,-0x7
1436 e5fa | | Load 0x2,-0x6
1437 e5fb | | Load 0x2,-0x5
1438 e402 | | Load 0x2,0x2
1439 e5fd | | Load 0x2,-0x3
143a e406 | | Load 0x2,0x6
143b e404 | | Load 0x2,0x4
143c e405 | | Load 0x2,0x5
143d e5ff | | Load 0x2,-0x1
143e 01cf | | Execute Vector,Slice_Read
143f 821c | | Call 0x1,0x1c
1440 e407 | | Load 0x2,0x7
1441 834e | N | Call 0x1,0x14e
1442 440a |D | Exit_Subprogram With_Value,New_Top_Offset 0xa
1443 e5f6 | | Load 0x2,-0xa
1444 e5f7 | | Load 0x2,-0x9
1445 e5f8 | | Load 0x2,-0x8
1446 e5f9 | | Load 0x2,-0x7
1447 e5fa | | Load 0x2,-0x6
1448 e5fb | | Load 0x2,-0x5
1449 e402 | | Load 0x2,0x2
144a e5fd | | Load 0x2,-0x3
144b e406 | | Load 0x2,0x6
144c e403 | | Load 0x2,0x3
144d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
144e e406 | | Load 0x2,0x6
144f 82bd | | Call 0x1,0xbd
1450 e407 | | Load 0x2,0x7
1451 834e | N | Call 0x1,0x14e
1452 440a |D | Exit_Subprogram With_Value,New_Top_Offset 0xa
1453 0000 0000 | | .BLANK 0000[0x5]
1458 ; --------------------------------------------------------------------------------------
1458 ; SUBPROGRAM
1458 ; --------------------------------------------------------------------------------------
1458 1465 | e | .CONST 0x1465 ; Address of begin
1459 0004 | | .CONST 0x0004 ; Address of exception handler
145a 0004 | | .CONST 0x0004 ; Number of locals
145b INIT_1458:
145b e5fa | | Load 0x2,-0x6
145c 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
145d e001 | | Load 0x0,0x1
145e 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
145f 03f1 | | Declare_Variable Discrete,With_Value
1460 e001 | | Load 0x0,0x1
1461 1b99 | | Execute Package,Field_Read,Field_Number 0x99
1462 0322 | " | Declare_Variable Record
1463 00e1 | | Load_Encached Boolean_Cache
1464 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
1465 BODY_1458:
1465 e5fa | | Load 0x2,-0x6
1466 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
1467 6813 |h | Jump_Zero 0x147b
1468 e5fa | | Load 0x2,-0x6
1469 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
146a 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
146b 0f4c | L | Execute_Immediate Equal,0x4c
146c 680e |h | Jump_Zero 0x147b
146d 4800 |H | Short_Literal 0x0
146e e218 | | Load 0x1,0x18
146f 025b | [ | Execute Discrete,Check_In_Type
1470 e5fa | | Load 0x2,-0x6
1471 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
1472 e271 | q | Load 0x1,0x71
1473 1d72 | r | Execute_Immediate Reference_Lex_1,0x72
1474 826c | l | Call 0x1,0x6c
1475 e403 | | Load 0x2,0x3
1476 017d | } | Execute Record,Structure_Write
1477 e403 | | Load 0x2,0x3
1478 3c0a |< | Execute Record,Field_Read,Field_Number 0xa
1479 0f00 | | Execute_Immediate Equal,0x0
147a a404 | | Store_Unchecked 0x2,0x4
147b 00d8 | | Load_Top At_Offset_0
147c 6810 |h | Jump_Zero 0x148d
147d e402 | | Load 0x2,0x2
147e 0f01 | | Execute_Immediate Equal,0x1
147f 7001 |p | Jump_Nonzero 0x1481
1480 0887 | | Execute_Immediate Raise,0x87
1481 e5f5 | | Load 0x2,-0xb
1482 e5f6 | | Load 0x2,-0xa
1483 e5f7 | | Load 0x2,-0x9
1484 e5f8 | | Load 0x2,-0x8
1485 e5f9 | | Load 0x2,-0x7
1486 e403 | | Load 0x2,0x3
1487 e5fa | | Load 0x2,-0x6
1488 e5fd | | Load 0x2,-0x3
1489 e5fe | | Load 0x2,-0x2
148a e5ff | | Load 0x2,-0x1
148b 834f | O | Call 0x1,0x14f
148c 440b |D | Exit_Subprogram With_Value,New_Top_Offset 0xb
148d e402 | | Load 0x2,0x2
148e 0c01 | | Execute_Immediate Greater_Equal,0x1
148f 7001 |p | Jump_Nonzero 0x1491
1490 0887 | | Execute_Immediate Raise,0x87
1491 e5f5 | | Load 0x2,-0xb
1492 e5f6 | | Load 0x2,-0xa
1493 e5f7 | | Load 0x2,-0x9
1494 e5f8 | | Load 0x2,-0x8
1495 e5f9 | | Load 0x2,-0x7
1496 e5fb | | Load 0x2,-0x5
1497 e5fb | | Load 0x2,-0x5
1498 e402 | | Load 0x2,0x2
1499 0273 | s | Execute Discrete,Plus
149a 0aff | | Execute_Immediate Plus,-0x1
149b e001 | | Load 0x0,0x1
149c 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
149d 025b | [ | Execute Discrete,Check_In_Type
149e e5fc | | Load 0x2,-0x4
149f e5fe | | Load 0x2,-0x2
14a0 e5ff | | Load 0x2,-0x1
14a1 834b | K | Call 0x1,0x14b
14a2 440b |D | Exit_Subprogram With_Value,New_Top_Offset 0xb
14a3 0000 0000 | | .BLANK 0000[0x5]
14a8 ; --------------------------------------------------------------------------------------
14a8 ; SUBPROGRAM
14a8 ; --------------------------------------------------------------------------------------
14a8 14ab | | .CONST 0x14ab ; Address of begin
14a9 0004 | | .CONST 0x0004 ; Address of exception handler
14aa 0001 | | .CONST 0x0001 ; Number of locals
14ab BODY_14a8:
14ab INIT_14a8:
14ab 4820 |H | Short_Literal 0x20
14ac 4800 |H | Short_Literal 0x0
14ad 480a |H | Short_Literal 0xa
14ae e5ff | | Load 0x2,-0x1
14af e05b | [ | Load 0x0,0x5b
14b0 1817 | | Execute Package,Field_Execute,Field_Number 0x17
14b1 e312 | | Load 0x1,0x112
14b2 01cc | | Execute Vector,Catenate
14b3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
14b4 0000 0000 | | .BLANK 0000[0x4]
14b8 ; --------------------------------------------------------------------------------------
14b8 ; SUBPROGRAM
14b8 ; --------------------------------------------------------------------------------------
14b8 14c0 | | .CONST 0x14c0 ; Address of begin
14b9 0004 | | .CONST 0x0004 ; Address of exception handler
14ba 0002 | | .CONST 0x0002 ; Number of locals
14bb INIT_14b8:
14bb e5fe | | Load 0x2,-0x2
14bc e5fd | | Load 0x2,-0x3
14bd 0272 | r | Execute Discrete,Minus
14be 00e5 | | Load_Encached Long_Integer_Cache
14bf 03f1 | | Declare_Variable Discrete,With_Value
14c0 BODY_14b8:
14c0 e5ff | | Load 0x2,-0x1
14c1 6809 |h | Jump_Zero 0x14cb
14c2 e5fd | | Load 0x2,-0x3
14c3 8351 | Q | Call 0x1,0x151
14c4 00ea | | Load_Encached Null_String_Cache
14c5 e402 | | Load 0x2,0x2
14c6 0c02 | | Execute_Immediate Greater_Equal,0x2
14c7 e313 | | Load 0x1,0x113
14c8 8321 | ! | Call 0x1,0x121
14c9 01cc | | Execute Vector,Catenate
14ca 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
14cb 00ea | | Load_Encached Null_String_Cache
14cc 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
14cd 0000 0000 | | .XXX[0x3]
14cf 0000 | |
14d0 ; --------------------------------------------------------------------------------------
14d0 ; SUBPROGRAM
14d0 ; --------------------------------------------------------------------------------------
14d0 14d8 | | .CONST 0x14d8 ; Address of begin
14d1 0004 | | .CONST 0x0004 ; Address of exception handler
14d2 0002 | | .CONST 0x0002 ; Number of locals
14d3 INIT_14d0:
14d3 e5fd | | Load 0x2,-0x3
14d4 e5fe | | Load 0x2,-0x2
14d5 0272 | r | Execute Discrete,Minus
14d6 00e5 | | Load_Encached Long_Integer_Cache
14d7 03f1 | | Declare_Variable Discrete,With_Value
14d8 BODY_14d0:
14d8 e5ff | | Load 0x2,-0x1
14d9 6811 |h | Jump_Zero 0x14eb
14da 00d8 | | Load_Top At_Offset_0
14db 0c02 | | Execute_Immediate Greater_Equal,0x2
14dc 6808 |h | Jump_Zero 0x14e5
14dd 0092 1ace | | Action Push_String_Extended,0x1ace ; ", "
14df e313 | | Load 0x1,0x113
14e0 01cc | | Execute Vector,Catenate
14e1 e5fd | | Load 0x2,-0x3
14e2 8351 | Q | Call 0x1,0x151
14e3 01cc | | Execute Vector,Catenate
14e4 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
14e5 0092 1ace | | Action Push_String_Extended,0x1ace ; ", "
14e7 e5fd | | Load 0x2,-0x3
14e8 8351 | Q | Call 0x1,0x151
14e9 01cc | | Execute Vector,Catenate
14ea 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
14eb 00ea | | Load_Encached Null_String_Cache
14ec 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
14ed 0000 0000 | | .XXX[0x3]
14ef 0000 | |
14f0 ; --------------------------------------------------------------------------------------
14f0 ; SUBPROGRAM
14f0 ; --------------------------------------------------------------------------------------
14f0 14f9 | | .CONST 0x14f9 ; Address of begin
14f1 0004 | | .CONST 0x0004 ; Address of exception handler
14f2 0002 | | .CONST 0x0002 ; Number of locals
14f3 INIT_14f0:
14f3 e5fe | | Load 0x2,-0x2
14f4 e5ff | | Load 0x2,-0x1
14f5 0272 | r | Execute Discrete,Minus
14f6 0a01 | | Execute_Immediate Plus,0x1
14f7 00e5 | | Load_Encached Long_Integer_Cache
14f8 03f1 | | Declare_Variable Discrete,With_Value
14f9 BODY_14f0:
14f9 00d8 | | Load_Top At_Offset_0
14fa 0b01 | | Execute_Immediate Case_Compare,0x1
14fb 700a |p | Jump_Nonzero 0x1506
14fc 0f02 | | Execute_Immediate Equal,0x2
14fd 700c |p | Jump_Nonzero 0x150a
14fe e5ff | | Load 0x2,-0x1
14ff 8351 | Q | Call 0x1,0x151
1500 e313 | | Load 0x1,0x113
1501 01cc | | Execute Vector,Catenate
1502 e5fe | | Load 0x2,-0x2
1503 8351 | Q | Call 0x1,0x151
1504 01cc | | Execute Vector,Catenate
1505 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
1506 00d1 | | Pop_Control Pop_Count_1
1507 e5ff | | Load 0x2,-0x1
1508 8351 | Q | Call 0x1,0x151
1509 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
150a e5ff | | Load 0x2,-0x1
150b 8351 | Q | Call 0x1,0x151
150c e5fe | | Load 0x2,-0x2
150d 8351 | Q | Call 0x1,0x151
150e 01cc | | Execute Vector,Catenate
150f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
1510 ; --------------------------------------------------------------------------------------
1510 ; SUBPROGRAM
1510 ; --------------------------------------------------------------------------------------
1510 1521 | ! | .CONST 0x1521 ; Address of begin
1511 1558 | X | .CONST 0x1558 ; Address of exception handler
1512 0005 | | .CONST 0x0005 ; Number of locals
1513 INIT_1510:
1513 e5fd | | Load 0x2,-0x3
1514 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
1515 e046 | F | Load 0x0,0x46
1516 1b59 | Y | Execute Package,Field_Read,Field_Number 0x59
1517 03f1 | | Declare_Variable Discrete,With_Value
1518 e001 | | Load 0x0,0x1
1519 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
151a e001 | | Load 0x0,0x1
151b 1b9c | | Execute Package,Field_Read,Field_Number 0x9c
151c 0322 | " | Declare_Variable Record
151d e402 | | Load 0x2,0x2
151e 8295 | | Call 0x1,0x95
151f 00e1 | | Load_Encached Boolean_Cache
1520 03f1 | | Declare_Variable Discrete,With_Value
1521 BODY_1510:
1521 e5ff | | Load 0x2,-0x1
1522 01db | | Execute Vector,Length
1523 7004 |p | Jump_Nonzero 0x1528
1524 e310 | | Load 0x1,0x110
1525 e316 | | Load 0x1,0x116
1526 01cc | | Execute Vector,Catenate
1527 4408 |D | Exit_Subprogram With_Value,New_Top_Offset 0x8
1528 e402 | | Load 0x2,0x2
1529 830d | | Call 0x1,0x10d
152a 681b |h | Jump_Zero 0x1546
152b 00d8 | | Load_Top At_Offset_0
152c 680b |h | Jump_Zero 0x1538
152d 4801 |H | Short_Literal 0x1
152e e5f8 | | Load 0x2,-0x8
152f e5f9 | | Load 0x2,-0x7
1530 e5fa | | Load 0x2,-0x6
1531 e5fb | | Load 0x2,-0x5
1532 e5fc | | Load 0x2,-0x4
1533 e5fd | | Load 0x2,-0x3
1534 e5fe | | Load 0x2,-0x2
1535 e5ff | | Load 0x2,-0x1
1536 833f | ? | Call 0x1,0x13f
1537 4408 |D | Exit_Subprogram With_Value,New_Top_Offset 0x8
1538 e5ff | | Load 0x2,-0x1
1539 827b | { | Call 0x1,0x7b
153a a403 | | Store_Unchecked 0x2,0x3
153b e310 | | Load 0x1,0x110
153c e5f8 | | Load 0x2,-0x8
153d e5f9 | | Load 0x2,-0x7
153e e5fa | | Load 0x2,-0x6
153f e5fb | | Load 0x2,-0x5
1540 e5fc | | Load 0x2,-0x4
1541 e5fd | | Load 0x2,-0x3
1542 e403 | | Load 0x2,0x3
1543 833d | = | Call 0x1,0x13d
1544 01cc | | Execute Vector,Catenate
1545 4408 |D | Exit_Subprogram With_Value,New_Top_Offset 0x8
1546 e5fd | | Load 0x2,-0x3
1547 8268 | h | Call 0x1,0x68
1548 e404 | | Load 0x2,0x4
1549 017d | } | Execute Record,Structure_Write
154a e310 | | Load 0x1,0x110
154b e5f8 | | Load 0x2,-0x8
154c e5f9 | | Load 0x2,-0x7
154d e5fa | | Load 0x2,-0x6
154e e5fb | | Load 0x2,-0x5
154f e5fc | | Load 0x2,-0x4
1550 e404 | | Load 0x2,0x4
1551 e5fd | | Load 0x2,-0x3
1552 e5fe | | Load 0x2,-0x2
1553 e5ff | | Load 0x2,-0x1
1554 821c | | Call 0x1,0x1c
1555 8342 | B | Call 0x1,0x142
1556 01cc | | Execute Vector,Catenate
1557 4408 |D | Exit_Subprogram With_Value,New_Top_Offset 0x8
1558 TRAP_1510:
1558 4884 |H | Short_Literal 0x84
1559 010f | | Execute Exception,Equal
155a 6804 |h | Jump_Zero 0x155f
155b e310 | | Load 0x1,0x110
155c e31b | | Load 0x1,0x11b
155d 01cc | | Execute Vector,Catenate
155e 4408 |D | Exit_Subprogram With_Value,New_Top_Offset 0x8
155f e310 | | Load 0x1,0x110
1560 e31c | | Load 0x1,0x11c
1561 01cc | | Execute Vector,Catenate
1562 0092 1ae3 | | Action Push_String_Extended,0x1ae3 ; ": "
1564 01cc | | Execute Vector,Catenate
1565 e047 | G | Load 0x0,0x47
1566 180d | | Execute Package,Field_Execute,Field_Number 0xd
1567 01cc | | Execute Vector,Catenate
1568 4408 |D | Exit_Subprogram With_Value,New_Top_Offset 0x8
1569 0000 0000 | | .BLANK 0000[0x7]
1570 ; --------------------------------------------------------------------------------------
1570 ; SUBPROGRAM
1570 ; --------------------------------------------------------------------------------------
1570 1573 | s | .CONST 0x1573 ; Address of begin
1571 0004 | | .CONST 0x0004 ; Address of exception handler
1572 0001 | | .CONST 0x0001 ; Number of locals
1573 BODY_1570:
1573 INIT_1570:
1573 4820 |H | Short_Literal 0x20
1574 4800 |H | Short_Literal 0x0
1575 480a |H | Short_Literal 0xa
1576 e5fc | | Load 0x2,-0x4
1577 e05b | [ | Load 0x0,0x5b
1578 1817 | | Execute Package,Field_Execute,Field_Number 0x17
1579 e5f7 | | Load 0x2,-0x9
157a e5f8 | | Load 0x2,-0x8
157b e5f9 | | Load 0x2,-0x7
157c e5fa | | Load 0x2,-0x6
157d e5fb | | Load 0x2,-0x5
157e e5fd | | Load 0x2,-0x3
157f e5fe | | Load 0x2,-0x2
1580 e5ff | | Load 0x2,-0x1
1581 8355 | U | Call 0x1,0x155
1582 01cc | | Execute Vector,Catenate
1583 4409 |D | Exit_Subprogram With_Value,New_Top_Offset 0x9
1584 0000 0000 | | .BLANK 0000[0x4]
1588 ; --------------------------------------------------------------------------------------
1588 ; SUBPROGRAM
1588 ; --------------------------------------------------------------------------------------
1588 1591 | | .CONST 0x1591 ; Address of begin
1589 0004 | | .CONST 0x0004 ; Address of exception handler
158a 0002 | | .CONST 0x0002 ; Number of locals
158b INIT_1588:
158b e5fe | | Load 0x2,-0x2
158c e5fd | | Load 0x2,-0x3
158d 0273 | s | Execute Discrete,Plus
158e 0aff | | Execute_Immediate Plus,-0x1
158f 00e5 | | Load_Encached Long_Integer_Cache
1590 03f1 | | Declare_Variable Discrete,With_Value
1591 BODY_1588:
1591 00d8 | | Load_Top At_Offset_0
1592 e5ff | | Load 0x2,-0x1
1593 01dc | | Execute Vector,Last
1594 027a | z | Execute Discrete,Less_Equal
1595 6805 |h | Jump_Zero 0x159b
1596 e5fe | | Load 0x2,-0x2
1597 e402 | | Load 0x2,0x2
1598 e5ff | | Load 0x2,-0x1
1599 01cf | | Execute Vector,Slice_Read
159a 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
159b e21b | | Load 0x1,0x1b
159c 0335 | 5 | Declare_Variable Array,Duplicate
159d 00cd | | Action Spare6_Action
159e 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
159f 0000 | | .XXX[0x1]
15a0 ; --------------------------------------------------------------------------------------
15a0 ; SUBPROGRAM
15a0 ; --------------------------------------------------------------------------------------
15a0 15a3 | | .CONST 0x15a3 ; Address of begin
15a1 0004 | | .CONST 0x0004 ; Address of exception handler
15a2 0001 | | .CONST 0x0001 ; Number of locals
15a3 BODY_15a0:
15a3 INIT_15a0:
15a3 e5fa | | Load 0x2,-0x6
15a4 e5f9 | | Load 0x2,-0x7
15a5 027b | { | Execute Discrete,Greater_Equal
15a6 6810 |h | Jump_Zero 0x15b7
15a7 e5f4 | | Load 0x2,-0xc
15a8 e5f5 | | Load 0x2,-0xb
15a9 e5f6 | | Load 0x2,-0xa
15aa e5f7 | | Load 0x2,-0x9
15ab e5f8 | | Load 0x2,-0x8
15ac e5fa | | Load 0x2,-0x6
15ad e5fc | | Load 0x2,-0x4
15ae e5fd | | Load 0x2,-0x3
15af e5fe | | Load 0x2,-0x2
15b0 8285 | | Call 0x1,0x85
15b1 e5fb | | Load 0x2,-0x5
15b2 e5fd | | Load 0x2,-0x3
15b3 e5ff | | Load 0x2,-0x1
15b4 8357 | W | Call 0x1,0x157
15b5 8356 | V | Call 0x1,0x156
15b6 440c |D | Exit_Subprogram With_Value,New_Top_Offset 0xc
15b7 e5f4 | | Load 0x2,-0xc
15b8 e5f5 | | Load 0x2,-0xb
15b9 e5f6 | | Load 0x2,-0xa
15ba e5f7 | | Load 0x2,-0x9
15bb e5f8 | | Load 0x2,-0x8
15bc e5fa | | Load 0x2,-0x6
15bd e5fc | | Load 0x2,-0x4
15be e5fd | | Load 0x2,-0x3
15bf e5fe | | Load 0x2,-0x2
15c0 8285 | | Call 0x1,0x85
15c1 e5fb | | Load 0x2,-0x5
15c2 e5fd | | Load 0x2,-0x3
15c3 e5ff | | Load 0x2,-0x1
15c4 8357 | W | Call 0x1,0x157
15c5 8356 | V | Call 0x1,0x156
15c6 0092 1ace | | Action Push_String_Extended,0x1ace ; ", "
15c8 01cc | | Execute Vector,Catenate
15c9 e5f4 | | Load 0x2,-0xc
15ca e5f5 | | Load 0x2,-0xb
15cb e5f6 | | Load 0x2,-0xa
15cc e5f7 | | Load 0x2,-0x9
15cd e5f8 | | Load 0x2,-0x8
15ce e5f9 | | Load 0x2,-0x7
15cf e5fa | | Load 0x2,-0x6
15d0 0a01 | | Execute_Immediate Plus,0x1
15d1 e5fb | | Load 0x2,-0x5
15d2 e5fc | | Load 0x2,-0x4
15d3 e5fd | | Load 0x2,-0x3
15d4 e5fb | | Load 0x2,-0x5
15d5 0273 | s | Execute Discrete,Plus
15d6 e5fe | | Load 0x2,-0x2
15d7 e5ff | | Load 0x2,-0x1
15d8 8358 | X | Call 0x1,0x158
15d9 01cc | | Execute Vector,Catenate
15da 440c |D | Exit_Subprogram With_Value,New_Top_Offset 0xc
15db 0000 0000 | | .BLANK 0000[0x5]
15e0 ; --------------------------------------------------------------------------------------
15e0 ; SUBPROGRAM
15e0 ; --------------------------------------------------------------------------------------
15e0 15e4 | | .CONST 0x15e4 ; Address of begin
15e1 0004 | | .CONST 0x0004 ; Address of exception handler
15e2 0002 | | .CONST 0x0002 ; Number of locals
15e3 INIT_15e0:
15e3 00e8 | | Load_Encached Character_Cache
15e4 BODY_15e0:
15e4 e5ff | | Load 0x2,-0x1
15e5 8283 | | Call 0x1,0x83
15e6 a402 | | Store_Unchecked 0x2,0x2
15e7 00d8 | | Load_Top At_Offset_0
15e8 0f22 | " | Execute_Immediate Equal,0x22
15e9 6803 |h | Jump_Zero 0x15ed
15ea 0092 1aea | | Action Push_String_Extended,0x1aea ; "\x22\x22"
15ec 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
15ed 00d8 | | Load_Top At_Offset_0
15ee 00ea | | Load_Encached Null_String_Cache
15ef 01ca | | Execute Vector,Prepend
15f0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
15f1 0000 0000 | | .BLANK 0000[0x7]
15f8 ; --------------------------------------------------------------------------------------
15f8 ; SUBPROGRAM
15f8 ; --------------------------------------------------------------------------------------
15f8 15fb | | .CONST 0x15fb ; Address of begin
15f9 0004 | | .CONST 0x0004 ; Address of exception handler
15fa 0001 | | .CONST 0x0001 ; Number of locals
15fb BODY_15f8:
15fb INIT_15f8:
15fb e5ff | | Load 0x2,-0x1
15fc 01db | | Execute Vector,Length
15fd 0d08 | | Execute_Immediate Less,0x8
15fe 6802 |h | Jump_Zero 0x1601
15ff 00ea | | Load_Encached Null_String_Cache
1600 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
1601 e5ff | | Load 0x2,-0x1
1602 01dd | | Execute Vector,First
1603 e5ff | | Load 0x2,-0x1
1604 01dd | | Execute Vector,First
1605 0a08 | | Execute_Immediate Plus,0x8
1606 0aff | | Execute_Immediate Plus,-0x1
1607 e5ff | | Load 0x2,-0x1
1608 01cf | | Execute Vector,Slice_Read
1609 8359 | Y | Call 0x1,0x159
160a e5ff | | Load 0x2,-0x1
160b 01dd | | Execute Vector,First
160c 0a08 | | Execute_Immediate Plus,0x8
160d e5ff | | Load 0x2,-0x1
160e 01dc | | Execute Vector,Last
160f e5ff | | Load 0x2,-0x1
1610 01cf | | Execute Vector,Slice_Read
1611 835a | Z | Call 0x1,0x15a
1612 01cc | | Execute Vector,Catenate
1613 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
1614 0000 0000 | | .BLANK 0000[0x4]
1618 ; --------------------------------------------------------------------------------------
1618 ; SUBPROGRAM
1618 ; --------------------------------------------------------------------------------------
1618 161b | | .CONST 0x161b ; Address of begin
1619 0004 | | .CONST 0x0004 ; Address of exception handler
161a 0001 | | .CONST 0x0001 ; Number of locals
161b BODY_1618:
161b INIT_1618:
161b e5ff | | Load 0x2,-0x1
161c 01db | | Execute Vector,Length
161d 0c08 | | Execute_Immediate Greater_Equal,0x8
161e 6811 |h | Jump_Zero 0x1630
161f 4822 |H" | Short_Literal 0x22
1620 4822 |H" | Short_Literal 0x22
1621 00ea | | Load_Encached Null_String_Cache
1622 e5fe | | Load 0x2,-0x2
1623 e311 | | Load 0x1,0x111
1624 8321 | ! | Call 0x1,0x121
1625 01ca | | Execute Vector,Prepend
1626 e5ff | | Load 0x2,-0x1
1627 835a | Z | Call 0x1,0x15a
1628 01cc | | Execute Vector,Catenate
1629 00ea | | Load_Encached Null_String_Cache
162a e5fd | | Load 0x2,-0x3
162b e311 | | Load 0x1,0x111
162c 8321 | ! | Call 0x1,0x121
162d 01cc | | Execute Vector,Catenate
162e 01cb | | Execute Vector,Append
162f 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
1630 e5fe | | Load 0x2,-0x2
1631 e5fd | | Load 0x2,-0x3
1632 0278 | x | Execute Discrete,Or
1633 6806 |h | Jump_Zero 0x163a
1634 4822 |H" | Short_Literal 0x22
1635 4822 |H" | Short_Literal 0x22
1636 e311 | | Load 0x1,0x111
1637 01ca | | Execute Vector,Prepend
1638 01cb | | Execute Vector,Append
1639 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
163a e317 | | Load 0x1,0x117
163b 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
163c 0000 0000 | | .BLANK 0000[0x4]
1640 ; --------------------------------------------------------------------------------------
1640 ; SUBPROGRAM
1640 ; --------------------------------------------------------------------------------------
1640 164b | K | .CONST 0x164b ; Address of begin
1641 0004 | | .CONST 0x0004 ; Address of exception handler
1642 0006 | | .CONST 0x0006 ; Number of locals
1643 INIT_1640:
1643 00e1 | | Load_Encached Boolean_Cache
1644 03e9 | | Declare_Variable Discrete,Duplicate
1645 00e5 | | Load_Encached Long_Integer_Cache
1646 03e9 | | Declare_Variable Discrete,Duplicate
1647 e5fd | | Load 0x2,-0x3
1648 830b | | Call 0x1,0x10b
1649 00e1 | | Load_Encached Boolean_Cache
164a 03f1 | | Declare_Variable Discrete,With_Value
164b BODY_1640:
164b 00e5 | | Load_Encached Long_Integer_Cache
164c 00e5 | | Load_Encached Long_Integer_Cache
164d e406 | | Load 0x2,0x6
164e e5f5 | | Load 0x2,-0xb
164f e5f6 | | Load 0x2,-0xa
1650 e5fa | | Load 0x2,-0x6
1651 e5fb | | Load 0x2,-0x5
1652 8292 | | Call 0x1,0x92
1653 c404 | | Store 0x2,0x4
1654 c405 | | Store 0x2,0x5
1655 e404 | | Load 0x2,0x4
1656 e5fb | | Load 0x2,-0x5
1657 027d | } | Execute Discrete,Greater
1658 a402 | | Store_Unchecked 0x2,0x2
1659 e405 | | Load 0x2,0x5
165a e5fa | | Load 0x2,-0x6
165b 027c | | | Execute Discrete,Less
165c 7004 |p | Jump_Nonzero 0x1661
165d e404 | | Load 0x2,0x4
165e e405 | | Load 0x2,0x5
165f 027d | } | Execute Discrete,Greater
1660 7801 |x | Jump 0x1662
1661 4801 |H | Short_Literal 0x1
1662 a403 | | Store_Unchecked 0x2,0x3
1663 00d8 | | Load_Top At_Offset_0
1664 6816 |h | Jump_Zero 0x167b
1665 e5fc | | Load 0x2,-0x4
1666 0f08 | | Execute_Immediate Equal,0x8
1667 7001 |p | Jump_Nonzero 0x1669
1668 0887 | | Execute_Immediate Raise,0x87
1669 0092 1ae6 | | Action Push_String_Extended,0x1ae6 ; "("
166b 4800 |H | Short_Literal 0x0
166c e5fa | | Load 0x2,-0x6
166d e5fb | | Load 0x2,-0x5
166e 8324 | $ | Call 0x1,0x124
166f 01cc | | Execute Vector,Catenate
1670 e310 | | Load 0x1,0x110
1671 01cc | | Execute Vector,Catenate
1672 e403 | | Load 0x2,0x3
1673 e402 | | Load 0x2,0x2
1674 e5ff | | Load 0x2,-0x1
1675 835b | [ | Call 0x1,0x15b
1676 01cc | | Execute Vector,Catenate
1677 0092 1ae2 | | Action Push_String_Extended,0x1ae2 ; ")"
1679 01cc | | Execute Vector,Catenate
167a 440b |D | Exit_Subprogram With_Value,New_Top_Offset 0xb
167b e5fb | | Load 0x2,-0x5
167c e5fa | | Load 0x2,-0x6
167d 027d | } | Execute Discrete,Greater
167e 6802 |h | Jump_Zero 0x1681
167f e318 | | Load 0x1,0x118
1680 440b |D | Exit_Subprogram With_Value,New_Top_Offset 0xb
1681 e404 | | Load 0x2,0x4
1682 e405 | | Load 0x2,0x5
1683 027d | } | Execute Discrete,Greater
1684 680b |h | Jump_Zero 0x1690
1685 0092 1ae6 | | Action Push_String_Extended,0x1ae6 ; "("
1687 e5fa | | Load 0x2,-0x6
1688 e5fb | | Load 0x2,-0x5
1689 8354 | T | Call 0x1,0x154
168a 01cc | | Execute Vector,Catenate
168b 0092 1ae2 | | Action Push_String_Extended,0x1ae2 ; ")"
168d 01cc | | Execute Vector,Catenate
168e 8327 | ' | Call 0x1,0x127
168f 440b |D | Exit_Subprogram With_Value,New_Top_Offset 0xb
1690 0092 1ae6 | | Action Push_String_Extended,0x1ae6 ; "("
1692 e5fb | | Load 0x2,-0x5
1693 e404 | | Load 0x2,0x4
1694 e402 | | Load 0x2,0x2
1695 8352 | R | Call 0x1,0x152
1696 01cc | | Execute Vector,Catenate
1697 e5f5 | | Load 0x2,-0xb
1698 e5f6 | | Load 0x2,-0xa
1699 e5f7 | | Load 0x2,-0x9
169a e5f8 | | Load 0x2,-0x8
169b 0aff | | Execute_Immediate Plus,-0x1
169c 00e3 | | Load_Encached Natural_Cache
169d 025b | [ | Execute Discrete,Check_In_Type
169e e5f9 | | Load 0x2,-0x7
169f e405 | | Load 0x2,0x5
16a0 e404 | | Load 0x2,0x4
16a1 e5fc | | Load 0x2,-0x4
16a2 e5fd | | Load 0x2,-0x3
16a3 e5ff | | Load 0x2,-0x1
16a4 01dd | | Execute Vector,First
16a5 e5fe | | Load 0x2,-0x2
16a6 e5ff | | Load 0x2,-0x1
16a7 8358 | X | Call 0x1,0x158
16a8 01cc | | Execute Vector,Catenate
16a9 e5fa | | Load 0x2,-0x6
16aa e405 | | Load 0x2,0x5
16ab e403 | | Load 0x2,0x3
16ac 8353 | S | Call 0x1,0x153
16ad 01cc | | Execute Vector,Catenate
16ae 0092 1ae2 | | Action Push_String_Extended,0x1ae2 ; ")"
16b0 01cc | | Execute Vector,Catenate
16b1 8327 | ' | Call 0x1,0x127
16b2 440b |D | Exit_Subprogram With_Value,New_Top_Offset 0xb
16b3 0000 0000 | | .BLANK 0000[0x5]
16b8 ; --------------------------------------------------------------------------------------
16b8 ; SUBPROGRAM
16b8 ; --------------------------------------------------------------------------------------
16b8 16c2 | | .CONST 0x16c2 ; Address of begin
16b9 0004 | | .CONST 0x0004 ; Address of exception handler
16ba 0004 | | .CONST 0x0004 ; Number of locals
16bb INIT_16b8:
16bb e5fc | | Load 0x2,-0x4
16bc e5fd | | Load 0x2,-0x3
16bd 0271 | q | Execute Discrete,Times
16be 00e5 | | Load_Encached Long_Integer_Cache
16bf 03f1 | | Declare_Variable Discrete,With_Value
16c0 00e5 | | Load_Encached Long_Integer_Cache
16c1 00e5 | | Load_Encached Long_Integer_Cache
16c2 BODY_16b8:
16c2 e5fb | | Load 0x2,-0x5
16c3 e5fa | | Load 0x2,-0x6
16c4 027d | } | Execute Discrete,Greater
16c5 6804 |h | Jump_Zero 0x16ca
16c6 e21b | | Load 0x1,0x1b
16c7 0335 | 5 | Declare_Variable Array,Duplicate
16c8 00cd | | Action Spare6_Action
16c9 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6
16ca e5fa | | Load 0x2,-0x6
16cb e5fd | | Load 0x2,-0x3
16cc 0271 | q | Execute Discrete,Times
16cd 0aff | | Execute_Immediate Plus,-0x1
16ce a403 | | Store_Unchecked 0x2,0x3
16cf e403 | | Load 0x2,0x3
16d0 e402 | | Load 0x2,0x2
16d1 0272 | r | Execute Discrete,Minus
16d2 0a01 | | Execute_Immediate Plus,0x1
16d3 a404 | | Store_Unchecked 0x2,0x4
16d4 e5ff | | Load 0x2,-0x1
16d5 01db | | Execute Vector,Length
16d6 e403 | | Load 0x2,0x3
16d7 027b | { | Execute Discrete,Greater_Equal
16d8 6805 |h | Jump_Zero 0x16de
16d9 e402 | | Load 0x2,0x2
16da e403 | | Load 0x2,0x3
16db e5ff | | Load 0x2,-0x1
16dc 01cf | | Execute Vector,Slice_Read
16dd 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6
16de 00d8 | | Load_Top At_Offset_0
16df e402 | | Load 0x2,0x2
16e0 e5fe | | Load 0x2,-0x2
16e1 8285 | | Call 0x1,0x85
16e2 82bd | | Call 0x1,0xbd
16e3 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6
16e4 0000 0000 | | .BLANK 0000[0x4]
16e8 ; --------------------------------------------------------------------------------------
16e8 ; SUBPROGRAM
16e8 ; --------------------------------------------------------------------------------------
16e8 16f6 | | .CONST 0x16f6 ; Address of begin
16e9 0004 | | .CONST 0x0004 ; Address of exception handler
16ea 0007 | | .CONST 0x0007 ; Number of locals
16eb INIT_16e8:
16eb 00e3 | | Load_Encached Natural_Cache
16ec 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
16ed e001 | | Load 0x0,0x1
16ee 1b95 | | Execute Package,Field_Read,Field_Number 0x95
16ef 0322 | " | Declare_Variable Record
16f0 e001 | | Load 0x0,0x1
16f1 1b5f | _ | Execute Package,Field_Read,Field_Number 0x5f
16f2 0322 | " | Declare_Variable Record
16f3 00e5 | | Load_Encached Long_Integer_Cache
16f4 00e5 | | Load_Encached Long_Integer_Cache
16f5 00e5 | | Load_Encached Long_Integer_Cache
16f6 BODY_16e8:
16f6 e5f9 | | Load 0x2,-0x7
16f7 0d01 | | Execute_Immediate Less,0x1
16f8 6802 |h | Jump_Zero 0x16fb
16f9 e311 | | Load 0x1,0x111
16fa 440a |D | Exit_Subprogram With_Value,New_Top_Offset 0xa
16fb e402 | | Load 0x2,0x2
16fc e5fd | | Load 0x2,-0x3
16fd 826a | j | Call 0x1,0x6a
16fe e403 | | Load 0x2,0x3
16ff 017d | } | Execute Record,Structure_Write
1700 e403 | | Load 0x2,0x3
1701 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
1702 e404 | | Load 0x2,0x4
1703 017d | } | Execute Record,Structure_Write
1704 00e5 | | Load_Encached Long_Integer_Cache
1705 00e5 | | Load_Encached Long_Integer_Cache
1706 e404 | | Load 0x2,0x4
1707 830b | | Call 0x1,0x10b
1708 e5f6 | | Load 0x2,-0xa
1709 e5f7 | | Load 0x2,-0x9
170a e5fb | | Load 0x2,-0x5
170b e5fc | | Load 0x2,-0x4
170c 8292 | | Call 0x1,0x92
170d c406 | | Store 0x2,0x6
170e c407 | | Store 0x2,0x7
170f e403 | | Load 0x2,0x3
1710 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
1711 a405 | | Store_Unchecked 0x2,0x5
1712 e5f6 | | Load 0x2,-0xa
1713 e5f7 | | Load 0x2,-0x9
1714 e5f8 | | Load 0x2,-0x8
1715 e5f9 | | Load 0x2,-0x7
1716 e5fa | | Load 0x2,-0x6
1717 e5fb | | Load 0x2,-0x5
1718 e5fc | | Load 0x2,-0x4
1719 e405 | | Load 0x2,0x5
171a e404 | | Load 0x2,0x4
171b e5fe | | Load 0x2,-0x2
171c e407 | | Load 0x2,0x7
171d e406 | | Load 0x2,0x6
171e e5f7 | | Load 0x2,-0x9
171f 00e3 | | Load_Encached Natural_Cache
1720 025b | [ | Execute Discrete,Check_In_Type
1721 e405 | | Load 0x2,0x5
1722 e5fe | | Load 0x2,-0x2
1723 e5ff | | Load 0x2,-0x1
1724 821c | | Call 0x1,0x1c
1725 835d | ] | Call 0x1,0x15d
1726 835c | \ | Call 0x1,0x15c
1727 440a |D | Exit_Subprogram With_Value,New_Top_Offset 0xa
1728 ; --------------------------------------------------------------------------------------
1728 ; SUBPROGRAM
1728 ; --------------------------------------------------------------------------------------
1728 173d | = | .CONST 0x173d ; Address of begin
1729 0004 | | .CONST 0x0004 ; Address of exception handler
172a 0004 | | .CONST 0x0004 ; Number of locals
172b INIT_1728:
172b e001 | | Load 0x0,0x1
172c 1b97 | | Execute Package,Field_Read,Field_Number 0x97
172d 0322 | " | Declare_Variable Record
172e 4800 |H | Short_Literal 0x0
172f e5fd | | Load 0x2,-0x3
1730 826b | k | Call 0x1,0x6b
1731 e402 | | Load 0x2,0x2
1732 017d | } | Execute Record,Structure_Write
1733 00d8 | | Load_Top At_Offset_0
1734 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
1735 00e5 | | Load_Encached Long_Integer_Cache
1736 03f1 | | Declare_Variable Discrete,With_Value
1737 e402 | | Load 0x2,0x2
1738 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
1739 e403 | | Load 0x2,0x3
173a 828f | | Call 0x1,0x8f
173b 00e5 | | Load_Encached Long_Integer_Cache
173c 03f1 | | Declare_Variable Discrete,With_Value
173d BODY_1728:
173d e5f8 | | Load 0x2,-0x8
173e e5f9 | | Load 0x2,-0x7
173f e5fa | | Load 0x2,-0x6
1740 e5fb | | Load 0x2,-0x5
1741 e5fc | | Load 0x2,-0x4
1742 e404 | | Load 0x2,0x4
1743 e403 | | Load 0x2,0x3
1744 e5fd | | Load 0x2,-0x3
1745 e5fe | | Load 0x2,-0x2
1746 e5ff | | Load 0x2,-0x1
1747 835e | ^ | Call 0x1,0x15e
1748 4408 |D | Exit_Subprogram With_Value,New_Top_Offset 0x8
1749 0000 0000 | | .BLANK 0000[0x7]
1750 ; --------------------------------------------------------------------------------------
1750 ; SUBPROGRAM
1750 ; --------------------------------------------------------------------------------------
1750 175b | [ | .CONST 0x175b ; Address of begin
1751 0004 | | .CONST 0x0004 ; Address of exception handler
1752 0002 | | .CONST 0x0002 ; Number of locals
1753 INIT_1750:
1753 e001 | | Load 0x0,0x1
1754 1b95 | | Execute Package,Field_Read,Field_Number 0x95
1755 0322 | " | Declare_Variable Record
1756 4800 |H | Short_Literal 0x0
1757 e5ff | | Load 0x2,-0x1
1758 826a | j | Call 0x1,0x6a
1759 e402 | | Load 0x2,0x2
175a 017d | } | Execute Record,Structure_Write
175b BODY_1750:
175b e5fe | | Load 0x2,-0x2
175c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
175d a5fd | | Store_Unchecked 0x2,-0x3
175e e5fe | | Load 0x2,-0x2
175f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
1760 e5fe | | Load 0x2,-0x2
1761 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
1762 828f | | Call 0x1,0x8f
1763 a5fc | | Store_Unchecked 0x2,-0x4
1764 00d8 | | Load_Top At_Offset_0
1765 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
1766 e5fc | | Load 0x2,-0x4
1767 e5fd | | Load 0x2,-0x3
1768 0272 | r | Execute Discrete,Minus
1769 0a01 | | Execute_Immediate Plus,0x1
176a 0271 | q | Execute Discrete,Times
176b a5fb | | Store_Unchecked 0x2,-0x5
176c 4503 |E | Exit_Suprogram New_Top_Offset 0x3
176d 0000 0000 | | .XXX[0x3]
176f 0000 | |
1770 ; --------------------------------------------------------------------------------------
1770 ; SUBPROGRAM
1770 ; --------------------------------------------------------------------------------------
1770 1783 | | .CONST 0x1783 ; Address of begin
1771 0004 | | .CONST 0x0004 ; Address of exception handler
1772 0006 | | .CONST 0x0006 ; Number of locals
1773 INIT_1770:
1773 e001 | | Load 0x0,0x1
1774 1ba0 | | Execute Package,Field_Read,Field_Number 0xa0
1775 0322 | " | Declare_Variable Record
1776 e5ff | | Load 0x2,-0x1
1777 82c5 | | Call 0x1,0xc5
1778 e402 | | Load 0x2,0x2
1779 017d | } | Execute Record,Structure_Write
177a 00e5 | | Load_Encached Long_Integer_Cache
177b 03e9 | | Declare_Variable Discrete,Duplicate
177c 00e5 | | Load_Encached Long_Integer_Cache
177d e2be | | Load 0x1,0xbe
177e e5ff | | Load 0x2,-0x1
177f 8285 | | Call 0x1,0x85
1780 e048 | H | Load 0x0,0x48
1781 1b0d | | Execute Package,Field_Read,Field_Number 0xd
1782 03f1 | | Declare_Variable Discrete,With_Value
1783 BODY_1770:
1783 00e5 | | Load_Encached Long_Integer_Cache
1784 00e5 | | Load_Encached Long_Integer_Cache
1785 00e5 | | Load_Encached Long_Integer_Cache
1786 e402 | | Load 0x2,0x2
1787 e5fe | | Load 0x2,-0x2
1788 8360 | ` | Call 0x1,0x160
1789 c403 | | Store 0x2,0x3
178a c404 | | Store 0x2,0x4
178b c405 | | Store 0x2,0x5
178c e5f9 | | Load 0x2,-0x7
178d e5fa | | Load 0x2,-0x6
178e e5fb | | Load 0x2,-0x5
178f e5fc | | Load 0x2,-0x4
1790 e5fd | | Load 0x2,-0x3
1791 e404 | | Load 0x2,0x4
1792 e403 | | Load 0x2,0x3
1793 e5fe | | Load 0x2,-0x2
1794 e406 | | Load 0x2,0x6
1795 e21b | | Load 0x1,0x1b
1796 835e | ^ | Call 0x1,0x15e
1797 4407 |D | Exit_Subprogram With_Value,New_Top_Offset 0x7
1798 ; --------------------------------------------------------------------------------------
1798 ; SUBPROGRAM
1798 ; --------------------------------------------------------------------------------------
1798 179e | | .CONST 0x179e ; Address of begin
1799 17d0 | | .CONST 0x17d0 ; Address of exception handler
179a 0002 | | .CONST 0x0002 ; Number of locals
179b INIT_1798:
179b e001 | | Load 0x0,0x1
179c 1b9c | | Execute Package,Field_Read,Field_Number 0x9c
179d 0322 | " | Declare_Variable Record
179e BODY_1798:
179e e5fe | | Load 0x2,-0x2
179f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
17a0 8299 | | Call 0x1,0x99
17a1 6802 |h | Jump_Zero 0x17a4
17a2 e320 | | Load 0x1,0x120
17a3 4407 |D | Exit_Subprogram With_Value,New_Top_Offset 0x7
17a4 e5fe | | Load 0x2,-0x2
17a5 8268 | h | Call 0x1,0x68
17a6 e402 | | Load 0x2,0x2
17a7 017d | } | Execute Record,Structure_Write
17a8 e5fe | | Load 0x2,-0x2
17a9 829a | | Call 0x1,0x9a
17aa 680e |h | Jump_Zero 0x17b9
17ab e5fe | | Load 0x2,-0x2
17ac 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
17ad 0f6c | l | Execute_Immediate Equal,0x6c
17ae 7001 |p | Jump_Nonzero 0x17b0
17af 0887 | | Execute_Immediate Raise,0x87
17b0 e5f9 | | Load 0x2,-0x7
17b1 e5fa | | Load 0x2,-0x6
17b2 e5fb | | Load 0x2,-0x5
17b3 e5fc | | Load 0x2,-0x4
17b4 e5fd | | Load 0x2,-0x3
17b5 e5fe | | Load 0x2,-0x2
17b6 e5ff | | Load 0x2,-0x1
17b7 8361 | a | Call 0x1,0x161
17b8 4407 |D | Exit_Subprogram With_Value,New_Top_Offset 0x7
17b9 e5fe | | Load 0x2,-0x2
17ba 8298 | | Call 0x1,0x98
17bb 680a |h | Jump_Zero 0x17c6
17bc e5f9 | | Load 0x2,-0x7
17bd e5fa | | Load 0x2,-0x6
17be e5fb | | Load 0x2,-0x5
17bf e5fc | | Load 0x2,-0x4
17c0 e5fd | | Load 0x2,-0x3
17c1 e5fe | | Load 0x2,-0x2
17c2 e5ff | | Load 0x2,-0x1
17c3 e21b | | Load 0x1,0x1b
17c4 8343 | C | Call 0x1,0x143
17c5 4407 |D | Exit_Subprogram With_Value,New_Top_Offset 0x7
17c6 e5f9 | | Load 0x2,-0x7
17c7 e5fa | | Load 0x2,-0x6
17c8 e5fb | | Load 0x2,-0x5
17c9 e5fc | | Load 0x2,-0x4
17ca e5fd | | Load 0x2,-0x3
17cb e402 | | Load 0x2,0x2
17cc e5fe | | Load 0x2,-0x2
17cd e5ff | | Load 0x2,-0x1
17ce 8341 | A | Call 0x1,0x141
17cf 4407 |D | Exit_Subprogram With_Value,New_Top_Offset 0x7
17d0 TRAP_1798:
17d0 010d | | Execute Exception,Is_Numeric_Error
17d1 6802 |h | Jump_Zero 0x17d4
17d2 e31f | | Load 0x1,0x11f
17d3 4407 |D | Exit_Subprogram With_Value,New_Top_Offset 0x7
17d4 00d8 | | Load_Top At_Offset_0
17d5 0101 | | Execute Exception,Reraise
17d6 0000 0000 | | .XXX[0x2]
17d8 ; --------------------------------------------------------------------------------------
17d8 ; SUBPROGRAM
17d8 ; --------------------------------------------------------------------------------------
17d8 17eb | | .CONST 0x17eb ; Address of begin
17d9 0004 | | .CONST 0x0004 ; Address of exception handler
17da 0006 | | .CONST 0x0006 ; Number of locals
17db INIT_17d8:
17db e048 | H | Load 0x0,0x48
17dc 1b0d | | Execute Package,Field_Read,Field_Number 0xd
17dd e001 | | Load 0x0,0x1
17de 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
17df e001 | | Load 0x0,0x1
17e0 1b92 | | Execute Package,Field_Read,Field_Number 0x92
17e1 0322 | " | Declare_Variable Record
17e2 4800 |H | Short_Literal 0x0
17e3 e5f8 | | Load 0x2,-0x8
17e4 e5ff | | Load 0x2,-0x1
17e5 833a | : | Call 0x1,0x13a
17e6 e5fe | | Load 0x2,-0x2
17e7 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
17e8 e046 | F | Load 0x0,0x46
17e9 1b59 | Y | Execute Package,Field_Read,Field_Number 0x59
17ea 03f1 | | Declare_Variable Discrete,With_Value
17eb BODY_17d8:
17eb e5ff | | Load 0x2,-0x1
17ec 4800 |H | Short_Literal 0x0
17ed 027f | | Execute Discrete,Equal
17ee 6805 |h | Jump_Zero 0x17f4
17ef e310 | | Load 0x1,0x110
17f0 0092 1aeb | | Action Push_String_Extended,0x1aeb ; "null"
17f2 01cc | | Execute Vector,Catenate
17f3 4408 |D | Exit_Subprogram With_Value,New_Top_Offset 0x8
17f4 e5fb | | Load 0x2,-0x5
17f5 0d01 | | Execute_Immediate Less,0x1
17f6 6804 |h | Jump_Zero 0x17fb
17f7 e405 | | Load 0x2,0x5
17f8 e311 | | Load 0x1,0x111
17f9 01cc | | Execute Vector,Catenate
17fa 4408 |D | Exit_Subprogram With_Value,New_Top_Offset 0x8
17fb 00d8 | | Load_Top At_Offset_0
17fc 8295 | | Call 0x1,0x95
17fd 6838 |h8 | Jump_Zero 0x1836
17fe 4800 |H | Short_Literal 0x0
17ff e218 | | Load 0x1,0x18
1800 025b | [ | Execute Discrete,Check_In_Type
1801 e5fe | | Load 0x2,-0x2
1802 e26d | m | Load 0x1,0x6d
1803 1d6e | n | Execute_Immediate Reference_Lex_1,0x6e
1804 826c | l | Call 0x1,0x6c
1805 e404 | | Load 0x2,0x4
1806 017d | } | Execute Record,Structure_Write
1807 00d8 | | Load_Top At_Offset_0
1808 0f10 | | Execute_Immediate Equal,0x10
1809 6809 |h | Jump_Zero 0x1813
180a e5fe | | Load 0x2,-0x2
180b e5ff | | Load 0x2,-0x1
180c e29e | | Load 0x1,0x9e
180d 1d9f | | Execute_Immediate Reference_Lex_1,0x9f
180e 829d | | Call 0x1,0x9d
180f e404 | | Load 0x2,0x4
1810 8289 | | Call 0x1,0x89
1811 a402 | | Store_Unchecked 0x2,0x2
1812 7807 |x | Jump 0x181a
1813 e5fe | | Load 0x2,-0x2
1814 e5ff | | Load 0x2,-0x1
1815 e2a2 | | Load 0x1,0xa2
1816 1da3 | | Execute_Immediate Reference_Lex_1,0xa3
1817 829d | | Call 0x1,0x9d
1818 828a | | Call 0x1,0x8a
1819 a402 | | Store_Unchecked 0x2,0x2
181a e402 | | Load 0x2,0x2
181b 4800 |H | Short_Literal 0x0
181c 027f | | Execute Discrete,Equal
181d 6805 |h | Jump_Zero 0x1823
181e e405 | | Load 0x2,0x5
181f 0092 1aeb | | Action Push_String_Extended,0x1aeb ; "null"
1821 01cc | | Execute Vector,Catenate
1822 4408 |D | Exit_Subprogram With_Value,New_Top_Offset 0x8
1823 4801 |H | Short_Literal 0x1
1824 e5f8 | | Load 0x2,-0x8
1825 e5ff | | Load 0x2,-0x1
1826 833a | : | Call 0x1,0x13a
1827 e5f8 | | Load 0x2,-0x8
1828 e5f9 | | Load 0x2,-0x7
1829 e5fa | | Load 0x2,-0x6
182a e5fb | | Load 0x2,-0x5
182b 0aff | | Execute_Immediate Plus,-0x1
182c 00e3 | | Load_Encached Natural_Cache
182d 025b | [ | Execute Discrete,Check_In_Type
182e e5fc | | Load 0x2,-0x4
182f e5fd | | Load 0x2,-0x3
1830 e404 | | Load 0x2,0x4
1831 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
1832 e402 | | Load 0x2,0x2
1833 8363 | c | Call 0x1,0x163
1834 01cc | | Execute Vector,Catenate
1835 4408 |D | Exit_Subprogram With_Value,New_Top_Offset 0x8
1836 00d8 | | Load_Top At_Offset_0
1837 830d | | Call 0x1,0x10d
1838 6812 |h | Jump_Zero 0x184b
1839 e5fe | | Load 0x2,-0x2
183a e5ff | | Load 0x2,-0x1
183b 82c7 | | Call 0x1,0xc7
183c a403 | | Store_Unchecked 0x2,0x3
183d e405 | | Load 0x2,0x5
183e e5f9 | | Load 0x2,-0x7
183f e5fa | | Load 0x2,-0x6
1840 e5fb | | Load 0x2,-0x5
1841 0aff | | Execute_Immediate Plus,-0x1
1842 00e3 | | Load_Encached Natural_Cache
1843 025b | [ | Execute Discrete,Check_In_Type
1844 e5fc | | Load 0x2,-0x4
1845 e5fd | | Load 0x2,-0x3
1846 e5fe | | Load 0x2,-0x2
1847 e403 | | Load 0x2,0x3
1848 833d | = | Call 0x1,0x13d
1849 01cc | | Execute Vector,Catenate
184a 4408 |D | Exit_Subprogram With_Value,New_Top_Offset 0x8
184b e405 | | Load 0x2,0x5
184c e5f9 | | Load 0x2,-0x7
184d e5fa | | Load 0x2,-0x6
184e e5fb | | Load 0x2,-0x5
184f 0aff | | Execute_Immediate Plus,-0x1
1850 00e3 | | Load_Encached Natural_Cache
1851 025b | [ | Execute Discrete,Check_In_Type
1852 e5fc | | Load 0x2,-0x4
1853 e5fd | | Load 0x2,-0x3
1854 e5fe | | Load 0x2,-0x2
1855 e5ff | | Load 0x2,-0x1
1856 8362 | b | Call 0x1,0x162
1857 01cc | | Execute Vector,Catenate
1858 4408 |D | Exit_Subprogram With_Value,New_Top_Offset 0x8
1859 0000 0000 | | .BLANK 0000[0x7]
1860 ; --------------------------------------------------------------------------------------
1860 ; SUBPROGRAM
1860 ; --------------------------------------------------------------------------------------
1860 1863 | c | .CONST 0x1863 ; Address of begin
1861 0004 | | .CONST 0x0004 ; Address of exception handler
1862 0001 | | .CONST 0x0001 ; Number of locals
1863 BODY_1860:
1863 INIT_1860:
1863 e5ff | | Load 0x2,-0x1
1864 01db | | Execute Vector,Length
1865 0c01 | | Execute_Immediate Greater_Equal,0x1
1866 680b |h | Jump_Zero 0x1872
1867 e5ff | | Load 0x2,-0x1
1868 01dd | | Execute Vector,First
1869 e5ff | | Load 0x2,-0x1
186a 01d7 | | Execute Vector,Field_Read
186b 0e27 | ' | Execute_Immediate Not_Equal,0x27
186c 6805 |h | Jump_Zero 0x1872
186d 0092 1aec | | Action Push_String_Extended,0x1aec ; "ASCII."
186f e5ff | | Load 0x2,-0x1
1870 01cc | | Execute Vector,Catenate
1871 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
1872 e5ff | | Load 0x2,-0x1
1873 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
1874 0000 0000 | | .BLANK 0000[0x4]
1878 ; --------------------------------------------------------------------------------------
1878 ; SUBPROGRAM
1878 ; --------------------------------------------------------------------------------------
1878 187c | | | .CONST 0x187c ; Address of begin
1879 189c | | .CONST 0x189c ; Address of exception handler
187a 0002 | | .CONST 0x0002 ; Number of locals
187b INIT_1878:
187b 00e8 | | Load_Encached Character_Cache
187c BODY_1878:
187c e5ff | | Load 0x2,-0x1
187d 00d8 | | Load_Top At_Offset_0
187e 00e8 | | Load_Encached Character_Cache
187f 0260 | ` | Execute Discrete,In_Type
1880 7001 |p | Jump_Nonzero 0x1882
1881 08e0 | | Execute_Immediate Raise,0xe0
1882 a402 | | Store_Unchecked 0x2,0x2
1883 00d8 | | Load_Top At_Offset_0
1884 0b2c | , | Execute_Immediate Case_Compare,0x2c
1885 700d |p | Jump_Nonzero 0x1893
1886 0f29 | ) | Execute_Immediate Equal,0x29
1887 700c |p | Jump_Nonzero 0x1894
1888 e5ff | | Load 0x2,-0x1
1889 00d8 | | Load_Top At_Offset_0
188a 00e8 | | Load_Encached Character_Cache
188b 0260 | ` | Execute Discrete,In_Type
188c 7001 |p | Jump_Nonzero 0x188e
188d 08e0 | | Execute_Immediate Raise,0xe0
188e 00e8 | | Load_Encached Character_Cache
188f 025e | ^ | Execute Discrete,Convert
1890 1c01 | | Execute_Immediate Run_Utility,0x1
1891 8364 | d | Call 0x1,0x164
1892 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
1893 00d1 | | Pop_Control Pop_Count_1
1894 00d8 | | Load_Top At_Offset_0
1895 0092 1aed | | Action Push_String_Extended,0x1aed ; "'\x1b"
1897 01cb | | Execute Vector,Append
1898 0092 1aee | | Action Push_String_Extended,0x1aee ; "'"
189a 01cc | | Execute Vector,Catenate
189b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
189c TRAP_1878:
189c 010e | | Execute Exception,Is_Constraint_Error
189d 6802 |h | Jump_Zero 0x18a0
189e e31e | | Load 0x1,0x11e
189f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
18a0 0100 | | Execute Exception,Raise
18a1 0000 0000 | | .BLANK 0000[0x7]
18a8 ; --------------------------------------------------------------------------------------
18a8 ; SUBPROGRAM
18a8 ; --------------------------------------------------------------------------------------
18a8 18bb | | .CONST 0x18bb ; Address of begin
18a9 0004 | | .CONST 0x0004 ; Address of exception handler
18aa 0005 | | .CONST 0x0005 ; Number of locals
18ab INIT_18a8:
18ab e5ff | | Load 0x2,-0x1
18ac 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
18ad 00e5 | | Load_Encached Long_Integer_Cache
18ae 03f1 | | Declare_Variable Discrete,With_Value
18af e001 | | Load 0x0,0x1
18b0 1b5f | _ | Execute Package,Field_Read,Field_Number 0x5f
18b1 0322 | " | Declare_Variable Record
18b2 e5ff | | Load 0x2,-0x1
18b3 82d2 | | Call 0x1,0xd2
18b4 e403 | | Load 0x2,0x3
18b5 017d | } | Execute Record,Structure_Write
18b6 e048 | H | Load 0x0,0x48
18b7 1b0d | | Execute Package,Field_Read,Field_Number 0xd
18b8 e001 | | Load 0x0,0x1
18b9 1b56 | V | Execute Package,Field_Read,Field_Number 0x56
18ba 0322 | " | Declare_Variable Record
18bb BODY_18a8:
18bb e5fa | | Load 0x2,-0x6
18bc 830d | | Call 0x1,0x10d
18bd 6809 |h | Jump_Zero 0x18c7
18be e5fb | | Load 0x2,-0x5
18bf e5fc | | Load 0x2,-0x4
18c0 e5fd | | Load 0x2,-0x3
18c1 e5fe | | Load 0x2,-0x2
18c2 4800 |H | Short_Literal 0x0
18c3 e403 | | Load 0x2,0x3
18c4 e402 | | Load 0x2,0x2
18c5 833d | = | Call 0x1,0x13d
18c6 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6
18c7 e5fa | | Load 0x2,-0x6
18c8 830f | | Call 0x1,0x10f
18c9 6814 |h | Jump_Zero 0x18de
18ca e402 | | Load 0x2,0x2
18cb e248 | H | Load 0x1,0x48
18cc e249 | I | Load 0x1,0x49
18cd 1d4a | J | Execute_Immediate Reference_Lex_1,0x4a
18ce 8002 | | Call 0x0,0x2
18cf e405 | | Load 0x2,0x5
18d0 017d | } | Execute Record,Structure_Write
18d1 4800 |H | Short_Literal 0x0
18d2 e405 | | Load 0x2,0x5
18d3 8288 | | Call 0x1,0x88
18d4 a404 | | Store_Unchecked 0x2,0x4
18d5 e5fb | | Load 0x2,-0x5
18d6 e5fc | | Load 0x2,-0x4
18d7 e5fd | | Load 0x2,-0x3
18d8 e5fe | | Load 0x2,-0x2
18d9 4800 |H | Short_Literal 0x0
18da e403 | | Load 0x2,0x3
18db e404 | | Load 0x2,0x4
18dc 8362 | b | Call 0x1,0x162
18dd 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6
18de 0831 | 1 | Execute_Immediate Raise,0x31
18df 0000 | | .XXX[0x1]
18e0 ; --------------------------------------------------------------------------------------
18e0 ; SUBPROGRAM
18e0 ; --------------------------------------------------------------------------------------
18e0 18e3 | | .CONST 0x18e3 ; Address of begin
18e1 1915 | | .CONST 0x1915 ; Address of exception handler
18e2 0001 | | .CONST 0x0001 ; Number of locals
18e3 BODY_18e0:
18e3 INIT_18e0:
18e3 e2d7 | | Load 0x1,0xd7
18e4 1dd8 | | Execute_Immediate Reference_Lex_1,0xd8
18e5 82d3 | | Call 0x1,0xd3
18e6 a2fc | | Store_Unchecked 0x1,0xfc
18e7 e2db | | Load 0x1,0xdb
18e8 1ddc | | Execute_Immediate Reference_Lex_1,0xdc
18e9 82d4 | | Call 0x1,0xd4
18ea e2fe | | Load 0x1,0xfe
18eb 017d | } | Execute Record,Structure_Write
18ec e2df | | Load 0x1,0xdf
18ed 1de0 | | Execute_Immediate Reference_Lex_1,0xe0
18ee 82d4 | | Call 0x1,0xd4
18ef e2ff | | Load 0x1,0xff
18f0 017d | } | Execute Record,Structure_Write
18f1 e2e3 | | Load 0x1,0xe3
18f2 1de4 | | Execute_Immediate Reference_Lex_1,0xe4
18f3 82d4 | | Call 0x1,0xd4
18f4 e300 | | Load 0x1,0x100
18f5 017d | } | Execute Record,Structure_Write
18f6 e2e7 | | Load 0x1,0xe7
18f7 1de8 | | Execute_Immediate Reference_Lex_1,0xe8
18f8 82d4 | | Call 0x1,0xd4
18f9 e301 | | Load 0x1,0x101
18fa 017d | } | Execute Record,Structure_Write
18fb e2eb | | Load 0x1,0xeb
18fc 1dec | | Execute_Immediate Reference_Lex_1,0xec
18fd 82d4 | | Call 0x1,0xd4
18fe e302 | | Load 0x1,0x102
18ff 017d | } | Execute Record,Structure_Write
1900 e2ef | | Load 0x1,0xef
1901 1df0 | | Execute_Immediate Reference_Lex_1,0xf0
1902 82d4 | | Call 0x1,0xd4
1903 e303 | | Load 0x1,0x103
1904 017d | } | Execute Record,Structure_Write
1905 e2f3 | | Load 0x1,0xf3
1906 1df4 | | Execute_Immediate Reference_Lex_1,0xf4
1907 82d4 | | Call 0x1,0xd4
1908 e304 | | Load 0x1,0x104
1909 017d | } | Execute Record,Structure_Write
190a e2f7 | | Load 0x1,0xf7
190b 1df8 | | Execute_Immediate Reference_Lex_1,0xf8
190c 82d4 | | Call 0x1,0xd4
190d e305 | | Load 0x1,0x105
190e 017d | } | Execute Record,Structure_Write
190f 82d5 | | Call 0x1,0xd5
1910 e306 | | Load 0x1,0x106
1911 017d | } | Execute Record,Structure_Write
1912 4801 |H | Short_Literal 0x1
1913 a2fb | | Store_Unchecked 0x1,0xfb
1914 4501 |E | Exit_Suprogram New_Top_Offset 0x1
1915 TRAP_18e0:
1915 0007 | | Action Break_Optional
1916 4800 |H | Short_Literal 0x0
1917 a2fb | | Store_Unchecked 0x1,0xfb
1918 4501 |E | Exit_Suprogram New_Top_Offset 0x1
1919 0000 0000 | | .BLANK 0000[0x7]
1920 ; --------------------------------------------------------------------------------------
1920 ; SUBPROGRAM
1920 ; --------------------------------------------------------------------------------------
1920 1923 | # | .CONST 0x1923 ; Address of begin
1921 192c | , | .CONST 0x192c ; Address of exception handler
1922 0001 | | .CONST 0x0001 ; Number of locals
1923 BODY_1920:
1923 INIT_1920:
1923 4802 |H | Short_Literal 0x2
1924 e404 | | Load 0x2,0x4
1925 e263 | c | Load 0x1,0x63
1926 1d64 | d | Execute_Immediate Reference_Lex_1,0x64
1927 e01b | | Load 0x0,0x1b
1928 1b0d | | Execute Package,Field_Read,Field_Number 0xd
1929 1811 | | Execute Package,Field_Execute,Field_Number 0x11
192a 00cb | | Action Pop_Block_With_Result
192b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
192c TRAP_1920:
192c 4884 |H | Short_Literal 0x84
192d 010f | | Execute Exception,Equal
192e 6802 |h | Jump_Zero 0x1931
192f 0008 | | Action Idle
1930 4501 |E | Exit_Suprogram New_Top_Offset 0x1
1931 00d8 | | Load_Top At_Offset_0
1932 0101 | | Execute Exception,Reraise
1933 0000 0000 | | .BLANK 0000[0x5]
1938 ; --------------------------------------------------------------------------------------
1938 ; SUBPROGRAM
1938 ; --------------------------------------------------------------------------------------
1938 193b | ; | .CONST 0x193b ; Address of begin
1939 1956 | V | .CONST 0x1956 ; Address of exception handler
193a 0001 | | .CONST 0x0001 ; Number of locals
193b BODY_1938:
193b INIT_1938:
193b 4804 |H | Short_Literal 0x4
193c e5fd | | Load 0x2,-0x3
193d e40d | | Load 0x2,0xd
193e 480e |H | Short_Literal 0xe
193f 4802 |H | Short_Literal 0x2
1940 0099 | | Action Reference_Dynamic
1941 e01b | | Load 0x0,0x1b
1942 1b0d | | Execute Package,Field_Read,Field_Number 0xd
1943 1811 | | Execute Package,Field_Execute,Field_Number 0x11
1944 e40a | | Load 0x2,0xa
1945 e40b | | Load 0x2,0xb
1946 0272 | r | Execute Discrete,Minus
1947 0a01 | | Execute_Immediate Plus,0x1
1948 e40a | | Load 0x2,0xa
1949 e409 | | Load 0x2,0x9
194a 01ce | | Execute Vector,Slice_Write
194b e409 | | Load 0x2,0x9
194c e404 | | Load 0x2,0x4
194d e405 | | Load 0x2,0x5
194e 4806 |H | Short_Literal 0x6
194f 4802 |H | Short_Literal 0x2
1950 0099 | | Action Reference_Dynamic
1951 8002 | | Call 0x0,0x2
1952 e5fe | | Load 0x2,-0x2
1953 011d | | Execute Any,Convert_To_Formal
1954 00cb | | Action Pop_Block_With_Result
1955 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
1956 TRAP_1938:
1956 4884 |H | Short_Literal 0x84
1957 010f | | Execute Exception,Equal
1958 6802 |h | Jump_Zero 0x195b
1959 0008 | | Action Idle
195a 4501 |E | Exit_Suprogram New_Top_Offset 0x1
195b 00d8 | | Load_Top At_Offset_0
195c 0101 | | Execute Exception,Reraise
195d 0000 0000 | | .XXX[0x3]
195f 0000 | |
1960 ; --------------------------------------------------------------------------------------
1960 ; SUBPROGRAM
1960 ; --------------------------------------------------------------------------------------
1960 1963 | c | .CONST 0x1963 ; Address of begin
1961 1975 | u | .CONST 0x1975 ; Address of exception handler
1962 0001 | | .CONST 0x0001 ; Number of locals
1963 BODY_1960:
1963 INIT_1960:
1963 4804 |H | Short_Literal 0x4
1964 e5ff | | Load 0x2,-0x1
1965 e402 | | Load 0x2,0x2
1966 4803 |H | Short_Literal 0x3
1967 4802 |H | Short_Literal 0x2
1968 0099 | | Action Reference_Dynamic
1969 e01b | | Load 0x0,0x1b
196a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
196b 1811 | | Execute Package,Field_Execute,Field_Number 0x11
196c e406 | | Load 0x2,0x6
196d 01d4 | | Execute Vector,Structure_Write
196e e406 | | Load 0x2,0x6
196f e2a8 | | Load 0x1,0xa8
1970 e2a9 | | Load 0x1,0xa9
1971 1daa | | Execute_Immediate Reference_Lex_1,0xaa
1972 8002 | | Call 0x0,0x2
1973 00cb | | Action Pop_Block_With_Result
1974 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
1975 TRAP_1960:
1975 4884 |H | Short_Literal 0x84
1976 010f | | Execute Exception,Equal
1977 6802 |h | Jump_Zero 0x197a
1978 0008 | | Action Idle
1979 4501 |E | Exit_Suprogram New_Top_Offset 0x1
197a 00d8 | | Load_Top At_Offset_0
197b 0101 | | Execute Exception,Reraise
197c 0000 0000 | | .BLANK 0000[0x4]
1980 ; --------------------------------------------------------------------------------------
1980 ; SUBPROGRAM
1980 ; --------------------------------------------------------------------------------------
1980 1983 | | .CONST 0x1983 ; Address of begin
1981 1995 | | .CONST 0x1995 ; Address of exception handler
1982 0001 | | .CONST 0x0001 ; Number of locals
1983 BODY_1980:
1983 INIT_1980:
1983 4804 |H | Short_Literal 0x4
1984 e5ff | | Load 0x2,-0x1
1985 e402 | | Load 0x2,0x2
1986 4803 |H | Short_Literal 0x3
1987 4802 |H | Short_Literal 0x2
1988 0099 | | Action Reference_Dynamic
1989 e01b | | Load 0x0,0x1b
198a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
198b 1811 | | Execute Package,Field_Execute,Field_Number 0x11
198c e406 | | Load 0x2,0x6
198d 01d4 | | Execute Vector,Structure_Write
198e e406 | | Load 0x2,0x6
198f e2b2 | | Load 0x1,0xb2
1990 e2b3 | | Load 0x1,0xb3
1991 1db4 | | Execute_Immediate Reference_Lex_1,0xb4
1992 8002 | | Call 0x0,0x2
1993 00cb | | Action Pop_Block_With_Result
1994 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
1995 TRAP_1980:
1995 4884 |H | Short_Literal 0x84
1996 010f | | Execute Exception,Equal
1997 6802 |h | Jump_Zero 0x199a
1998 0008 | | Action Idle
1999 4501 |E | Exit_Suprogram New_Top_Offset 0x1
199a 00d8 | | Load_Top At_Offset_0
199b 0101 | | Execute Exception,Reraise
199c 0000 0000 | | .BLANK 0000[0x4]
19a0 ; --------------------------------------------------------------------------------------
19a0 ; SUBPROGRAM
19a0 ; --------------------------------------------------------------------------------------
19a0 19a3 | | .CONST 0x19a3 ; Address of begin
19a1 19b0 | | .CONST 0x19b0 ; Address of exception handler
19a2 0001 | | .CONST 0x0001 ; Number of locals
19a3 BODY_19a0:
19a3 INIT_19a0:
19a3 4804 |H | Short_Literal 0x4
19a4 e5ff | | Load 0x2,-0x1
19a5 e403 | | Load 0x2,0x3
19a6 4804 |H | Short_Literal 0x4
19a7 4802 |H | Short_Literal 0x2
19a8 0099 | | Action Reference_Dynamic
19a9 e01b | | Load 0x0,0x1b
19aa 1b0d | | Execute Package,Field_Read,Field_Number 0xd
19ab 1811 | | Execute Package,Field_Execute,Field_Number 0x11
19ac e2ba | | Load 0x1,0xba
19ad 01c6 | | Execute Vector,Convert_To_Formal
19ae 00cb | | Action Pop_Block_With_Result
19af 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
19b0 TRAP_19a0:
19b0 4884 |H | Short_Literal 0x84
19b1 010f | | Execute Exception,Equal
19b2 6802 |h | Jump_Zero 0x19b5
19b3 0008 | | Action Idle
19b4 4501 |E | Exit_Suprogram New_Top_Offset 0x1
19b5 00d8 | | Load_Top At_Offset_0
19b6 0101 | | Execute Exception,Reraise
19b7 0000 | | .XXX[0x1]
19b8 ; --------------------------------------------------------------------------------------
19b8 ; SUBPROGRAM
19b8 ; --------------------------------------------------------------------------------------
19b8 19bb | | .CONST 0x19bb ; Address of begin
19b9 19c8 | | .CONST 0x19c8 ; Address of exception handler
19ba 0001 | | .CONST 0x0001 ; Number of locals
19bb BODY_19b8:
19bb INIT_19b8:
19bb 4804 |H | Short_Literal 0x4
19bc e5ff | | Load 0x2,-0x1
19bd e403 | | Load 0x2,0x3
19be 4804 |H | Short_Literal 0x4
19bf 4802 |H | Short_Literal 0x2
19c0 0099 | | Action Reference_Dynamic
19c1 e01b | | Load 0x0,0x1b
19c2 1b0d | | Execute Package,Field_Read,Field_Number 0xd
19c3 1811 | | Execute Package,Field_Execute,Field_Number 0x11
19c4 e21a | | Load 0x1,0x1a
19c5 01c6 | | Execute Vector,Convert_To_Formal
19c6 00cb | | Action Pop_Block_With_Result
19c7 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
19c8 TRAP_19b8:
19c8 4884 |H | Short_Literal 0x84
19c9 010f | | Execute Exception,Equal
19ca 6802 |h | Jump_Zero 0x19cd
19cb 0008 | | Action Idle
19cc 4501 |E | Exit_Suprogram New_Top_Offset 0x1
19cd 00d8 | | Load_Top At_Offset_0
19ce 0101 | | Execute Exception,Reraise
19cf 0000 | | .XXX[0x1]
19d0 ; --------------------------------------------------------------------------------------
19d0 ; SUBPROGRAM
19d0 ; --------------------------------------------------------------------------------------
19d0 19d3 | | .CONST 0x19d3 ; Address of begin
19d1 19dd | | .CONST 0x19dd ; Address of exception handler
19d2 0001 | | .CONST 0x0001 ; Number of locals
19d3 BODY_19d0:
19d3 INIT_19d0:
19d3 e405 | | Load 0x2,0x5
19d4 82bb | | Call 0x1,0xbb
19d5 e406 | | Load 0x2,0x6
19d6 e406 | | Load 0x2,0x6
19d7 6010 |` | Indirect_Literal Discrete,0x19e8,{0x00000000, 0x00002000}
19d8 0273 | s | Execute Discrete,Plus
19d9 0aff | | Execute_Immediate Plus,-0x1
19da e402 | | Load 0x2,0x2
19db 01ce | | Execute Vector,Slice_Write
19dc 4501 |E | Exit_Suprogram New_Top_Offset 0x1
19dd TRAP_19d0:
19dd 4884 |H | Short_Literal 0x84
19de 010f | | Execute Exception,Equal
19df 6807 |h | Jump_Zero 0x19e7
19e0 4800 |H | Short_Literal 0x0
19e1 e406 | | Load 0x2,0x6
19e2 0aff | | Execute_Immediate Plus,-0x1
19e3 e402 | | Load 0x2,0x2
19e4 01cf | | Execute Vector,Slice_Read
19e5 00cb | | Action Pop_Block_With_Result
19e6 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
19e7 0100 | | Execute Exception,Raise
19e8 0000 0000 | | .LITERAL {0x00000000, 0x00002000}
19ec 0000 0000 | | .BLANK 0000[0x4]
19f0 ; --------------------------------------------------------------------------------------
19f0 ; SUBPROGRAM
19f0 ; --------------------------------------------------------------------------------------
19f0 19f3 | | .CONST 0x19f3 ; Address of begin
19f1 19fc | | .CONST 0x19fc ; Address of exception handler
19f2 0001 | | .CONST 0x0001 ; Number of locals
19f3 BODY_19f0:
19f3 INIT_19f0:
19f3 e404 | | Load 0x2,0x4
19f4 e405 | | Load 0x2,0x5
19f5 82bc | | Call 0x1,0xbc
19f6 e406 | | Load 0x2,0x6
19f7 e402 | | Load 0x2,0x2
19f8 01dc | | Execute Vector,Last
19f9 e402 | | Load 0x2,0x2
19fa 01ce | | Execute Vector,Slice_Write
19fb 4501 |E | Exit_Suprogram New_Top_Offset 0x1
19fc TRAP_19f0:
19fc 4884 |H | Short_Literal 0x84
19fd 010f | | Execute Exception,Equal
19fe 6807 |h | Jump_Zero 0x1a06
19ff 4800 |H | Short_Literal 0x0
1a00 e406 | | Load 0x2,0x6
1a01 0aff | | Execute_Immediate Plus,-0x1
1a02 e402 | | Load 0x2,0x2
1a03 01cf | | Execute Vector,Slice_Read
1a04 00cb | | Action Pop_Block_With_Result
1a05 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
1a06 0100 | | Execute Exception,Raise
1a07 0000 | | .XXX[0x1]
1a08 ; --------------------------------------------------------------------------------------
1a08 ; SUBPROGRAM
1a08 ; --------------------------------------------------------------------------------------
1a08 1a0b | | .CONST 0x1a0b ; Address of begin
1a09 1a1d | | .CONST 0x1a1d ; Address of exception handler
1a0a 0001 | | .CONST 0x0001 ; Number of locals
1a0b BODY_1a08:
1a0b INIT_1a08:
1a0b 4804 |H | Short_Literal 0x4
1a0c e5ff | | Load 0x2,-0x1
1a0d e402 | | Load 0x2,0x2
1a0e 4803 |H | Short_Literal 0x3
1a0f 4802 |H | Short_Literal 0x2
1a10 0099 | | Action Reference_Dynamic
1a11 e01b | | Load 0x0,0x1b
1a12 1b0d | | Execute Package,Field_Read,Field_Number 0xd
1a13 1811 | | Execute Package,Field_Execute,Field_Number 0x11
1a14 e406 | | Load 0x2,0x6
1a15 01d4 | | Execute Vector,Structure_Write
1a16 e406 | | Load 0x2,0x6
1a17 e2c0 | | Load 0x1,0xc0
1a18 e2c1 | | Load 0x1,0xc1
1a19 1dc2 | | Execute_Immediate Reference_Lex_1,0xc2
1a1a 8002 | | Call 0x0,0x2
1a1b 00cb | | Action Pop_Block_With_Result
1a1c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
1a1d TRAP_1a08:
1a1d 4884 |H | Short_Literal 0x84
1a1e 010f | | Execute Exception,Equal
1a1f 6802 |h | Jump_Zero 0x1a22
1a20 0008 | | Action Idle
1a21 4501 |E | Exit_Suprogram New_Top_Offset 0x1
1a22 00d8 | | Load_Top At_Offset_0
1a23 0101 | | Execute Exception,Reraise
1a24 0000 0000 | | .BLANK 0000[0x4]
1a28 ; --------------------------------------------------------------------------------------
1a28 ; SUBPROGRAM
1a28 ; --------------------------------------------------------------------------------------
1a28 1a2b | + | .CONST 0x1a2b ; Address of begin
1a29 1a42 | B | .CONST 0x1a42 ; Address of exception handler
1a2a 0001 | | .CONST 0x0001 ; Number of locals
1a2b BODY_1a28:
1a2b INIT_1a28:
1a2b 4804 |H | Short_Literal 0x4
1a2c e5ff | | Load 0x2,-0x1
1a2d e405 | | Load 0x2,0x5
1a2e 4806 |H | Short_Literal 0x6
1a2f 4802 |H | Short_Literal 0x2
1a30 0099 | | Action Reference_Dynamic
1a31 e01b | | Load 0x0,0x1b
1a32 1b0d | | Execute Package,Field_Read,Field_Number 0xd
1a33 1811 | | Execute Package,Field_Execute,Field_Number 0x11
1a34 4840 |H@ | Short_Literal 0x40
1a35 e403 | | Load 0x2,0x3
1a36 0272 | r | Execute Discrete,Minus
1a37 0a01 | | Execute_Immediate Plus,0x1
1a38 4840 |H@ | Short_Literal 0x40
1a39 e402 | | Load 0x2,0x2
1a3a 01ce | | Execute Vector,Slice_Write
1a3b e402 | | Load 0x2,0x2
1a3c e276 | v | Load 0x1,0x76
1a3d e277 | w | Load 0x1,0x77
1a3e 1d78 | x | Execute_Immediate Reference_Lex_1,0x78
1a3f 8002 | | Call 0x0,0x2
1a40 00cb | | Action Pop_Block_With_Result
1a41 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
1a42 TRAP_1a28:
1a42 4884 |H | Short_Literal 0x84
1a43 010f | | Execute Exception,Equal
1a44 6802 |h | Jump_Zero 0x1a47
1a45 0008 | | Action Idle
1a46 4501 |E | Exit_Suprogram New_Top_Offset 0x1
1a47 00d8 | | Load_Top At_Offset_0
1a48 0101 | | Execute Exception,Reraise
1a49 0000 0000 | | .BLANK 0000[0x7]
1a50 ; --------------------------------------------------------------------------------------
1a50 ; SUBPROGRAM
1a50 ; --------------------------------------------------------------------------------------
1a50 1a53 | S | .CONST 0x1a53 ; Address of begin
1a51 1a5d | ] | .CONST 0x1a5d ; Address of exception handler
1a52 0001 | | .CONST 0x0001 ; Number of locals
1a53 BODY_1a50:
1a53 INIT_1a50:
1a53 e405 | | Load 0x2,0x5
1a54 480a |H | Short_Literal 0xa
1a55 e7ff | | Load 0x3,-0x1
1a56 01cb | | Execute Vector,Append
1a57 e402 | | Load 0x2,0x2
1a58 01cc | | Execute Vector,Catenate
1a59 e05c | \ | Load 0x0,0x5c
1a5a 1818 | | Execute Package,Field_Execute,Field_Number 0x18
1a5b 00d1 | | Pop_Control Pop_Count_1
1a5c 4502 |E | Exit_Suprogram New_Top_Offset 0x2
1a5d TRAP_1a50:
1a5d 010e | | Execute Exception,Is_Constraint_Error
1a5e 6802 |h | Jump_Zero 0x1a61
1a5f 0008 | | Action Idle
1a60 4502 |E | Exit_Suprogram New_Top_Offset 0x2
1a61 0100 | | Execute Exception,Raise
1a62 0000 0000 | | .BLANK 0000[0x6]
1a68 ; --------------------------------------------------------------------------------------
1a68 ; SUBPROGRAM
1a68 ; --------------------------------------------------------------------------------------
1a68 1a6b | k | .CONST 0x1a6b ; Address of begin
1a69 1a76 | v | .CONST 0x1a76 ; Address of exception handler
1a6a 0001 | | .CONST 0x0001 ; Number of locals
1a6b BODY_1a68:
1a6b INIT_1a68:
1a6b e5ff | | Load 0x2,-0x1
1a6c 00d8 | | Load_Top At_Offset_0
1a6d 00e1 | | Load_Encached Boolean_Cache
1a6e 0260 | ` | Execute Discrete,In_Type
1a6f 7001 |p | Jump_Nonzero 0x1a71
1a70 08e0 | | Execute_Immediate Raise,0xe0
1a71 00e1 | | Load_Encached Boolean_Cache
1a72 025e | ^ | Execute Discrete,Convert
1a73 1c01 | | Execute_Immediate Run_Utility,0x1
1a74 00cb | | Action Pop_Block_With_Result
1a75 4407 |D | Exit_Subprogram With_Value,New_Top_Offset 0x7
1a76 TRAP_1a68:
1a76 010e | | Execute Exception,Is_Constraint_Error
1a77 6803 |h | Jump_Zero 0x1a7b
1a78 e31d | | Load 0x1,0x11d
1a79 00cb | | Action Pop_Block_With_Result
1a7a 4407 |D | Exit_Subprogram With_Value,New_Top_Offset 0x7
1a7b 0100 | | Execute Exception,Raise
1a7c 0000 0000 | | .BLANK 0000[0x4]
1a80 ; --------------------------------------------------------------------------------------
1a80 ; SUBPROGRAM
1a80 ; --------------------------------------------------------------------------------------
1a80 1a9c | | .CONST 0x1a9c ; Address of begin
1a81 0004 | | .CONST 0x0004 ; Address of exception handler
1a82 0013 | | .CONST 0x0013 ; Number of locals
1a83 INIT_1a80:
1a83 e001 | | Load 0x0,0x1
1a84 1bb0 | | Execute Package,Field_Read,Field_Number 0xb0
1a85 0129 | ) | Execute Any,Make_Visible
1a86 e001 | | Load 0x0,0x1
1a87 1bb1 | | Execute Package,Field_Read,Field_Number 0xb1
1a88 0129 | ) | Execute Any,Make_Visible
1a89 e001 | | Load 0x0,0x1
1a8a 1b4b | K | Execute Package,Field_Read,Field_Number 0x4b
1a8b 0129 | ) | Execute Any,Make_Visible
1a8c e001 | | Load 0x0,0x1
1a8d 1baf | | Execute Package,Field_Read,Field_Number 0xaf
1a8e 0129 | ) | Execute Any,Make_Visible
1a8f 029a 1aa3 | | Declare_Subprogram INIT_1aa0,For_Outer_Call,Visible,Unelaborated
1a91 029a 1ab3 | | Declare_Subprogram INIT_1ab0,For_Outer_Call,Visible,Unelaborated
1a93 029a 1abb | | Declare_Subprogram INIT_1ab8,For_Outer_Call,Visible,Unelaborated
1a95 00bf | | Action Accept_Activation
1a96 1d12 | | Execute_Immediate Reference_Lex_1,0x12
1a97 00c7 | | Action Elaborate_Subprogram
1a98 1d13 | | Execute_Immediate Reference_Lex_1,0x13
1a99 00c7 | | Action Elaborate_Subprogram
1a9a 1d11 | | Execute_Immediate Reference_Lex_1,0x11
1a9b 00c7 | | Action Elaborate_Subprogram
1a9c BODY_1a80:
1a9c 00bc | | Action Signal_Activated
1a9d 00bb | | Action Signal_Completion
1a9e 0000 0000 | | .XXX[0x2]
1aa0 ; --------------------------------------------------------------------------------------
1aa0 ; SUBPROGRAM
1aa0 ; --------------------------------------------------------------------------------------
1aa0 1aa3 | | .CONST 0x1aa3 ; Address of begin
1aa1 0004 | | .CONST 0x0004 ; Address of exception handler
1aa2 0001 | | .CONST 0x0001 ; Number of locals
1aa3 BODY_1aa0:
1aa3 INIT_1aa0:
1aa3 00db | | Load_Top At_Offset_3
1aa4 00db | | Load_Top At_Offset_3
1aa5 4820 |H | Short_Literal 0x20
1aa6 0251 | Q | Execute Discrete,Logical_Shift
1aa7 0278 | x | Execute Discrete,Or
1aa8 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
1aa9 0831 | 1 | .XXX[0x1]
1aaa 0000 0000 | | .BLANK 0000[0x6]
1ab0 ; --------------------------------------------------------------------------------------
1ab0 ; SUBPROGRAM
1ab0 ; --------------------------------------------------------------------------------------
1ab0 1ab3 | | .CONST 0x1ab3 ; Address of begin
1ab1 0004 | | .CONST 0x0004 ; Address of exception handler
1ab2 0001 | | .CONST 0x0001 ; Number of locals
1ab3 BODY_1ab0:
1ab3 INIT_1ab0:
1ab3 00da | | Load_Top At_Offset_2
1ab4 4fe0 |O | Short_Literal -0x20
1ab5 0251 | Q | Execute Discrete,Logical_Shift
1ab6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
1ab7 0831 | 1 | .XXX[0x1]
1ab8 ; --------------------------------------------------------------------------------------
1ab8 ; SUBPROGRAM
1ab8 ; --------------------------------------------------------------------------------------
1ab8 1abb | | .CONST 0x1abb ; Address of begin
1ab9 0004 | | .CONST 0x0004 ; Address of exception handler
1aba 0001 | | .CONST 0x0001 ; Number of locals
1abb BODY_1ab8:
1abb INIT_1ab8:
1abb 00da | | Load_Top At_Offset_2
1abc 4820 |H | Short_Literal 0x20
1abd 0251 | Q | Execute Discrete,Logical_Shift
1abe 4fe0 |O | Short_Literal -0x20
1abf 0251 | Q | Execute Discrete,Logical_Shift
1ac0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
1ac1 0831 | 1 | .XXX[0x1]
1ac2 ; --------------------------------------------------------------------------------------
1ac2 ; STRING TABLE
1ac2 ; --------------------------------------------------------------------------------------
1ac2 005c | \ | .STRTAB 0x005c->0x1af0 ; "INTEGER_TYPE"
1ac3 0066 | f | .STRTAB 0x0066->0x1af6 ; "LONG_INTEGER_TYPE"
1ac4 0075 | u | .STRTAB 0x0075->0x1afe ; "NATURAL_TYPE"
1ac5 007f | | .STRTAB 0x007f->0x1b04 ; "POSITIVE_TYPE"
1ac6 008a | | .STRTAB 0x008a->0x1b0b ; "CHARACTER_TYPE"
1ac7 0096 | | .STRTAB 0x0096->0x1b12 ; "BOOLEAN_TYPE"
1ac8 00a0 | | .STRTAB 0x00a0->0x1b18 ; "FLOAT_TYPE"
1ac9 00a8 | | .STRTAB 0x00a8->0x1b1d ; "DURATION_TYPE"
1aca 00b3 | | .STRTAB 0x00b3->0x1b23 ; "STRING_TYPE"
1acb 00bc | | .STRTAB 0x00bc->0x1b29 ; "OTHER_TYPE"
1acc 00c4 | | .STRTAB 0x00c4->0x1b2e ; " => "
1acd 00c6 | | .STRTAB 0x00c6->0x1b30 ; "..."
1ace 00c7 | | .STRTAB 0x00c7->0x1b31 ; ", "
1acf 00c7 | | .STRTAB 0x00c7->0x1b32 ; "Value\x00not\x00readable"
1ad0 00d7 | | .STRTAB 0x00d7->0x1b3b ; "Field\x00not\x00initialized"
1ad1 00ea | | .STRTAB 0x00ea->0x1b46 ; "Element\x00not\x00initialized"
1ad2 00ff | | .STRTAB 0x00ff->0x1b51 ; "Null\x00string"
1ad3 0108 | | .STRTAB 0x0108->0x1b57 ; "Null\x00vector"
1ad4 0111 | | .STRTAB 0x0111->0x1b5c ; "Field\x00value\x00not\x00readable"
1ad5 0127 | ' | .STRTAB 0x0127->0x1b68 ; "Exception\x00raised\x00reading\x00field\x00value"
1ad6 0149 | I | .STRTAB 0x0149->0x1b7a ; "Element\x00value\x00not\x00readable"
1ad7 0161 | a | .STRTAB 0x0161->0x1b87 ; "Exception\x00raised\x00readingelement\x00value"
1ad8 0184 | | .STRTAB 0x0184->0x1b9a ; "Uninitialized\x00boolean\x00value"
1ad9 019d | | .STRTAB 0x019d->0x1ba7 ; "Uninitialized\x00character\x00value"
1ada 01b8 | | .STRTAB 0x01b8->0x1bb6 ; "Object\x00too\x00big"
1adb 01c4 | | .STRTAB 0x01c4->0x1bbd ; "Multi-dimensional\x00array"
1adc 01d9 | | .STRTAB 0x01d9->0x1bc8 ; "Inner_"
1add 01dd | | .STRTAB 0x01dd->0x1bcb ; " = "
1ade 01de | | .STRTAB 0x01de->0x1bcd ; "Value not readable"
1adf 01ee | | .STRTAB 0x01ee->0x1bd6 ; "Exception raised: "
1ae0 01fe | | .STRTAB 0x01fe->0x1bdf ; ".."
1ae1 01fe | | .STRTAB 0x01fe->0x1be0 ; ", )"
1ae2 01ff | | .STRTAB 0x01ff->0x1be1 ; ")"
1ae3 01fe | | .STRTAB 0x01fe->0x1be2 ; ": "
1ae4 01fe | | .STRTAB 0x01fe->0x1be3 ; "#"
1ae5 01fd | | .STRTAB 0x01fd->0x1be3 ; "->"
1ae6 01fd | | .STRTAB 0x01fd->0x1be4 ; "("
1ae7 01fc | | .STRTAB 0x01fc->0x1be5 ; "()"
1ae8 01fc | | .STRTAB 0x01fc->0x1be6 ; "F"
1ae9 01fb | | .STRTAB 0x01fb->0x1be6 ; "Anon_Inner_Rec => ("
1aea 020c | | .STRTAB 0x020c->0x1bf0 ; "\x22\x22"
1aeb 020c | | .STRTAB 0x020c->0x1bf1 ; "null"
1aec 020e | | .STRTAB 0x020e->0x1bf3 ; "ASCII."
1aed 0212 | | .STRTAB 0x0212->0x1bf6 ; "'\x1b"
1aee 0212 | | .STRTAB 0x0212->0x1bf7 ; "'"
1aef 0211 | | .STREND 0x0211->0x1bf7
1af0 494e 5445 |INTE| .STRTAB_STRINGS
1bf8 ; --------------------------------------------------------------------------------------
1bf8 ; Debug Table
1bf8 ; --------------------------------------------------------------------------------------
1bf8 0004 000b | | .DEBUG4 0x0004,0x000b,0xbb77,0x0000,0x0001,0x0000
1bfe 0c40 0000 | @ | .XXX[0x2]