|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 7168 (0x1c00)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_ccb0b3
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0c30 | 0 | .CONST 0x0c30 ; Offset of debug table
0004 0100 | | .CONST 0x0100 ; Default exception handler - raise instruction
0005 00bb | | .CONST 0x00bb ; Module termination instruction - signal completion
0006 0000 | | .CONST 0x0000 ; Offset to segment table (only in elab segments)
0007 8007 | | .CONST 0x8007 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 019b | | .CONST 0x019b ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 005a | Z | .CONST 0x005a ; Number of locals
000b INIT_0008:
000b 4800 |H | Short_Literal 0x0
000c 481a |H | Short_Literal 0x1a
000d 029f 01a3 | | Declare_Subprogram For_Call,INIT_01a0
000f 03fe | | Declare_Type Discrete,Defined,Visible
0010 03a9 | | Declare_Type Heap_Access,Incomplete,Visible
0011 00e4 | | Load_Encached Positive_Cache
0012 0266 | f | Execute Discrete,Bounds
0013 00da | | Load_Top At_Offset_2
0014 02a0 | | Declare_Subprogram Null_Subprogram
0015 4801 |H | Short_Literal 0x1
0016 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object
0017 029a 01cb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01c8
0019 029a 01e3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01e0
001b 029a 01f3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01f0
001d 029a 0203 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0200
001f 029a 020b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0208
0021 029a 021b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0218
0023 029a 0223 | #| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0220
0025 029a 0233 | 3| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0230
0027 029a 023b | ;| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0238
0029 029a 0253 | S| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0250
002b 029a 0263 | c| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0260
002d 029a 027b | {| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0278
002f 029a 028b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0288
0031 029a 029b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0298
0033 029a 02ab | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_02a8
0035 029a 02c3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_02c0
0037 029a 02d3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_02d0
0039 029a 02e3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_02e0
003b 029a 02eb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_02e8
003d 029a 02fb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_02f8
003f 029a 0303 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0300
0041 029a 031b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0318
0043 029a 0323 | #| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0320
0045 4816 |H | Short_Literal 0x16
0046 481a |H | Short_Literal 0x1a
0047 e20d | | Load 0x1,0xd
0048 03f9 | | Declare_Type Discrete,Constrained,Visible
0049 4807 |H | Short_Literal 0x7
004a 0093 0a6b | k| PushFullAddress InMicrocode,INIT_0a68
004c 02a0 | | Declare_Subprogram Null_Subprogram
004d 038d | | Declare_Type Package,Defined,Visible,Not_Elaborated
004e 029a 033b | ;| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0338
0050 029a 0343 | C| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0340
0052 029a 0353 | S| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0350
0054 029a 035b | [| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0358
0056 029a 036b | k| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0368
0058 4802 |H | Short_Literal 0x2
0059 032b | + | Declare_Type Record,Incomplete,Visible
005a 029a 0453 | S| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0450
005c 029a 0463 | c| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0460
005e 029a 0493 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0490
0060 029a 04c3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_04c0
0062 029a 050b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0508
0064 029a 051b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0518
0066 029a 057b | {| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0578
0068 029a 05d3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_05d0
006a 029a 05db | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_05d8
006c 029a 0603 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0600
006e 029a 0633 | 3| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0630
0070 480f |H | Short_Literal 0xf
0071 4815 |H | Short_Literal 0x15
0072 e20d | | Load 0x1,0xd
0073 03f9 | | Declare_Type Discrete,Constrained,Visible
0074 480c |H | Short_Literal 0xc
0075 480e |H | Short_Literal 0xe
0076 e20d | | Load 0x1,0xd
0077 03f9 | | Declare_Type Discrete,Constrained,Visible
0078 029a 0653 | S| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0650
007a 029a 067b | {| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0678
007c 029a 069b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0698
007e 029a 06d3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_06d0
0080 4800 |H | Short_Literal 0x0
0081 48ff |H | Short_Literal 0xff
0082 00e2 | | Load_Encached Integer_Cache
0083 03f8 | | Declare_Type Discrete,Constrained
0084 00d8 | | Load_Top At_Offset_0
0085 e001 | | Load 0x0,0x1
0086 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0087 02a0 | | Declare_Subprogram Null_Subprogram
0088 e22e | . | Load 0x1,0x2e
0089 0326 | & | Complete_Type Record,By_Defining
008a e20d | | Load 0x1,0xd
008b 4810 |H | Short_Literal 0x10
008c 4800 |H | Short_Literal 0x0
008d 4801 |H | Short_Literal 0x1
008e 4814 |H | Short_Literal 0x14
008f 0318 | | Declare_Type Variant_Record,Incomplete
0090 029f 071b | | Declare_Subprogram For_Call,INIT_0718
0092 00d9 | | Load_Top At_Offset_1
0093 012a | * | Execute Any,Change_Utility
0094 0007 | | Action Break_Optional
0095 00d8 | | Load_Top At_Offset_0
0096 02a0 | | Declare_Subprogram Null_Subprogram
0097 e20e | | Load 0x1,0xe
0098 03a3 | | Complete_Type Heap_Access,By_Defining
0099 00bf | | Action Accept_Activation
009a 4801 |H | Short_Literal 0x1
009b e002 | | Load 0x0,0x2
009c 1b17 | | Execute Package,Field_Read,Field_Number 0x17
009d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
009e 4801 |H | Short_Literal 0x1
009f 00e2 | | Load_Encached Integer_Cache
00a0 4801 |H | Short_Literal 0x1
00a1 00e6 | | Load_Encached Float_Cache
00a2 4801 |H | Short_Literal 0x1
00a3 00e7 | | Load_Encached Duration_Cache
00a4 4801 |H | Short_Literal 0x1
00a5 e003 | | Load 0x0,0x3
00a6 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00a7 4801 |H | Short_Literal 0x1
00a8 e004 | | Load 0x0,0x4
00a9 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00aa 4801 |H | Short_Literal 0x1
00ab e004 | | Load 0x0,0x4
00ac 1b14 | | Execute Package,Field_Read,Field_Number 0x14
00ad 4801 |H | Short_Literal 0x1
00ae e004 | | Load 0x0,0x4
00af 1b1d | | Execute Package,Field_Read,Field_Number 0x1d
00b0 4801 |H | Short_Literal 0x1
00b1 e004 | | Load 0x0,0x4
00b2 1b25 | % | Execute Package,Field_Read,Field_Number 0x25
00b3 4801 |H | Short_Literal 0x1
00b4 e004 | | Load 0x0,0x4
00b5 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00b6 4802 |H | Short_Literal 0x2
00b7 e004 | | Load 0x0,0x4
00b8 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00b9 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00ba e002 | | Load 0x0,0x2
00bb 1b17 | | Execute Package,Field_Read,Field_Number 0x17
00bc 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00bd 4801 |H | Short_Literal 0x1
00be e005 | | Load 0x0,0x5
00bf 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00c0 4801 |H | Short_Literal 0x1
00c1 e005 | | Load 0x0,0x5
00c2 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00c3 4801 |H | Short_Literal 0x1
00c4 e006 | | Load 0x0,0x6
00c5 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00c6 4802 |H | Short_Literal 0x2
00c7 e001 | | Load 0x0,0x1
00c8 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
00c9 e001 | | Load 0x0,0x1
00ca 1b17 | | Execute Package,Field_Read,Field_Number 0x17
00cb 4802 |H | Short_Literal 0x2
00cc 00e5 | | Load_Encached Long_Integer_Cache
00cd e001 | | Load 0x0,0x1
00ce 1b17 | | Execute Package,Field_Read,Field_Number 0x17
00cf 029f 071b | | Declare_Subprogram For_Call,INIT_0718
00d1 4813 |H | Short_Literal 0x13
00d2 4800 |H | Short_Literal 0x0
00d3 e241 | A | Load 0x1,0x41
00d4 0307 | | Complete_Type Variant_Record,By_Defining
00d5 e20f | | Load 0x1,0xf
00d6 02a0 | | Declare_Subprogram Null_Subprogram
00d7 03ad | | Declare_Type Heap_Access,Defined
00d8 4801 |H | Short_Literal 0x1
00d9 4800 |H | Short_Literal 0x0
00da e20f | | Load 0x1,0xf
00db 035b | [ | Declare_Type Array,Constrained
00dc 0337 | 7 | Declare_Variable Array
00dd 4800 |H | Short_Literal 0x0
00de 0093 0b13 | | PushFullAddress InMicrocode,INIT_0b10
00e0 02a0 | | Declare_Subprogram Null_Subprogram
00e1 038e | | Declare_Type Package,Defined
00e2 0387 | | Declare_Variable Package
00e3 4816 |H | Short_Literal 0x16
00e4 481a |H | Short_Literal 0x1a
00e5 00da | | Load_Top At_Offset_2
00e6 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00e7 02a0 | | Declare_Subprogram Null_Subprogram
00e8 4801 |H | Short_Literal 0x1
00e9 035d | ] | Declare_Type Array,Defined
00ea 00d8 | | Load_Top At_Offset_0
00eb 0337 | 7 | Declare_Variable Array
00ec 4816 |H | Short_Literal 0x16
00ed 481a |H | Short_Literal 0x1a
00ee 00e1 | | Load_Encached Boolean_Cache
00ef 02a0 | | Declare_Subprogram Null_Subprogram
00f0 4801 |H | Short_Literal 0x1
00f1 035d | ] | Declare_Type Array,Defined
00f2 00d8 | | Load_Top At_Offset_0
00f3 0337 | 7 | Declare_Variable Array
00f4 00d8 | | Load_Top At_Offset_0
00f5 0335 | 5 | Declare_Variable Array,Duplicate
00f6 00cd | | Action Spare6_Action
00f7 481a |H | Short_Literal 0x1a
00f8 4816 |H | Short_Literal 0x16
00f9 4800 |H | Short_Literal 0x0
00fa 00d9 | | Load_Top At_Offset_1
00fb e249 | I | Load 0x1,0x49
00fc 01d6 | | Execute Vector,Field_Write
00fd 3ffb |? | Loop_Increasing 0xf9
00fe 00d9 | | Load_Top At_Offset_1
00ff 01d4 | | Execute Vector,Structure_Write
0100 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29
0101 00c7 | | Action Elaborate_Subprogram
0102 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a
0103 00c7 | | Action Elaborate_Subprogram
0104 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b
0105 00c7 | | Action Elaborate_Subprogram
0106 1d2c | , | Execute_Immediate Reference_Lex_1,0x2c
0107 00c7 | | Action Elaborate_Subprogram
0108 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0109 00c7 | | Action Elaborate_Subprogram
010a 1d11 | | Execute_Immediate Reference_Lex_1,0x11
010b 00c7 | | Action Elaborate_Subprogram
010c 1d12 | | Execute_Immediate Reference_Lex_1,0x12
010d 00c7 | | Action Elaborate_Subprogram
010e 1d13 | | Execute_Immediate Reference_Lex_1,0x13
010f 00c7 | | Action Elaborate_Subprogram
0110 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0111 00c7 | | Action Elaborate_Subprogram
0112 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0113 00c7 | | Action Elaborate_Subprogram
0114 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0115 00c7 | | Action Elaborate_Subprogram
0116 1d17 | | Execute_Immediate Reference_Lex_1,0x17
0117 00c7 | | Action Elaborate_Subprogram
0118 1d18 | | Execute_Immediate Reference_Lex_1,0x18
0119 00c7 | | Action Elaborate_Subprogram
011a 1d19 | | Execute_Immediate Reference_Lex_1,0x19
011b 00c7 | | Action Elaborate_Subprogram
011c 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
011d 00c7 | | Action Elaborate_Subprogram
011e 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
011f 00c7 | | Action Elaborate_Subprogram
0120 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
0121 00c7 | | Action Elaborate_Subprogram
0122 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
0123 00c7 | | Action Elaborate_Subprogram
0124 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
0125 00c7 | | Action Elaborate_Subprogram
0126 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
0127 00c7 | | Action Elaborate_Subprogram
0128 1d20 | | Execute_Immediate Reference_Lex_1,0x20
0129 00c7 | | Action Elaborate_Subprogram
012a 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
012b 00c7 | | Action Elaborate_Subprogram
012c 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
012d 00c7 | | Action Elaborate_Subprogram
012e 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
012f 00c7 | | Action Elaborate_Subprogram
0130 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
0131 00c7 | | Action Elaborate_Subprogram
0132 1d26 | & | Execute_Immediate Reference_Lex_1,0x26
0133 00c7 | | Action Elaborate_Subprogram
0134 1d25 | % | Execute_Immediate Reference_Lex_1,0x25
0135 00c7 | | Action Elaborate_Subprogram
0136 e007 | | Load 0x0,0x7
0137 e008 | | Load 0x0,0x8
0138 e009 | | Load 0x0,0x9
0139 e00a | | Load 0x0,0xa
013a e00b | | Load 0x0,0xb
013b e00c | | Load 0x0,0xc
013c e00d | | Load 0x0,0xd
013d e244 | D | Load 0x1,0x44
013e e248 | H | Load 0x1,0x48
013f e246 | F | Load 0x1,0x46
0140 e00e | | Load 0x0,0xe
0141 e241 | A | Load 0x1,0x41
0142 00b6 | | Action Make_Scope
0143 480d |H | Short_Literal 0xd
0144 e228 | ( | Load 0x1,0x28
0145 020e | | Execute Module,Augment_Imports
0146 e228 | ( | Load 0x1,0x28
0147 020d | | Execute Module,Elaborate
0148 0007 | | Action Break_Optional
0149 1d2d | - | Execute_Immediate Reference_Lex_1,0x2d
014a 00c7 | | Action Elaborate_Subprogram
014b 029d 07eb | | Declare_Subprogram For_Outer_Call,INIT_07e8
014d 029d 08d3 | | Declare_Subprogram For_Outer_Call,INIT_08d0
014f 1d3c | < | Execute_Immediate Reference_Lex_1,0x3c
0150 00c7 | | Action Elaborate_Subprogram
0151 1d3d | = | Execute_Immediate Reference_Lex_1,0x3d
0152 00c7 | | Action Elaborate_Subprogram
0153 1d3e | > | Execute_Immediate Reference_Lex_1,0x3e
0154 00c7 | | Action Elaborate_Subprogram
0155 1d3f | ? | Execute_Immediate Reference_Lex_1,0x3f
0156 00c7 | | Action Elaborate_Subprogram
0157 1d2f | / | Execute_Immediate Reference_Lex_1,0x2f
0158 00c7 | | Action Elaborate_Subprogram
0159 e00f | | Load 0x0,0xf
015a e010 | | Load 0x0,0x10
015b e241 | A | Load 0x1,0x41
015c e20e | | Load 0x1,0xe
015d e009 | | Load 0x0,0x9
015e 1b18 | | Execute Package,Field_Read,Field_Number 0x18
015f 0387 | | Declare_Variable Package
0160 00d8 | | Load_Top At_Offset_0
0161 020f | | Execute Module,Activate
0162 e009 | | Load 0x0,0x9
0163 1919 | | Execute Package,Field_Reference,Field_Number 0x19
0164 00c6 | | Action Check_Subprogram_Elaborated
0165 e241 | A | Load 0x1,0x41
0166 e20e | | Load 0x1,0xe
0167 e011 | | Load 0x0,0x11
0168 e012 | | Load 0x0,0x12
0169 4800 |H | Short_Literal 0x0
016a 0007 | | Action Break_Optional
016b e013 | | Load 0x0,0x13
016c e014 | | Load 0x0,0x14
016d e20f | | Load 0x1,0xf
016e e242 | B | Load 0x1,0x42
016f e009 | | Load 0x0,0x9
0170 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0171 0387 | | Declare_Variable Package
0172 00d8 | | Load_Top At_Offset_0
0173 020f | | Execute Module,Activate
0174 e009 | | Load 0x0,0x9
0175 1919 | | Execute Package,Field_Reference,Field_Number 0x19
0176 00c6 | | Action Check_Subprogram_Elaborated
0177 e20f | | Load 0x1,0xf
0178 e242 | B | Load 0x1,0x42
0179 e015 | | Load 0x0,0x15
017a e016 | | Load 0x0,0x16
017b 4800 |H | Short_Literal 0x0
017c 0007 | | Action Break_Optional
017d 1d30 | 0 | Execute_Immediate Reference_Lex_1,0x30
017e 00c7 | | Action Elaborate_Subprogram
017f 029d 0943 | C| Declare_Subprogram For_Outer_Call,INIT_0940
0181 1d31 | 1 | Execute_Immediate Reference_Lex_1,0x31
0182 00c7 | | Action Elaborate_Subprogram
0183 1d32 | 2 | Execute_Immediate Reference_Lex_1,0x32
0184 00c7 | | Action Elaborate_Subprogram
0185 1d36 | 6 | Execute_Immediate Reference_Lex_1,0x36
0186 00c7 | | Action Elaborate_Subprogram
0187 1d37 | 7 | Execute_Immediate Reference_Lex_1,0x37
0188 00c7 | | Action Elaborate_Subprogram
0189 1d38 | 8 | Execute_Immediate Reference_Lex_1,0x38
018a 00c7 | | Action Elaborate_Subprogram
018b 1d33 | 3 | Execute_Immediate Reference_Lex_1,0x33
018c 00c7 | | Action Elaborate_Subprogram
018d 029d 0963 | c| Declare_Subprogram For_Outer_Call,INIT_0960
018f 029d 09a3 | | Declare_Subprogram For_Outer_Call,INIT_09a0
0191 1d34 | 4 | Execute_Immediate Reference_Lex_1,0x34
0192 00c7 | | Action Elaborate_Subprogram
0193 029d 09fb | | Declare_Subprogram For_Outer_Call,INIT_09f8
0195 1d35 | 5 | Execute_Immediate Reference_Lex_1,0x35
0196 00c7 | | Action Elaborate_Subprogram
0197 1d39 | 9 | Execute_Immediate Reference_Lex_1,0x39
0198 00c7 | | Action Elaborate_Subprogram
0199 e244 | D | Load 0x1,0x44
019a 020f | | Execute Module,Activate
019b BODY_0008:
019b 00bc | | Action Signal_Activated
019c 00bb | | Action Signal_Completion
019d 0000 0000 | | .XXX[0x3]
019f 0000 | |
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01a3 | | .CONST 0x01a3 ; Address of begin
01a1 0004 | | .CONST 0x0004 ; Address of exception handler
01a2 0001 | | .CONST 0x0001 ; Number of locals
01a3 BODY_01a0:
01a3 INIT_01a0:
01a3 4607 |F | Jump_Case 0x7
01a4 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x0
01a5 7806 |x | Jump 0x1ac ; case 0x1
01a6 7809 |x | Jump 0x1b0 ; case 0x2
01a7 780d |x | Jump 0x1b5 ; case 0x3
01a8 7810 |x | Jump 0x1b9 ; case 0x4
01a9 7811 |x | Jump 0x1bb ; case 0x5
01aa 7812 |x | Jump 0x1bd ; case 0x6
01ab 7815 |x | Jump 0x1c1 ; case 0x7
01ac 00da | | Load_Top At_Offset_2
01ad 0091 0b2e | .| Action Push_String_Extended_Indexed,0xb2e ; "NIL_PARAMETER"
01af 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
01b0 00db | | Load_Top At_Offset_3
01b1 00db | | Load_Top At_Offset_3
01b2 00e0 | | Load_Encached Standard_Cache
01b3 181b | | Execute Package,Field_Execute,Field_Number 0x1b
01b4 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
01b5 00da | | Load_Top At_Offset_2
01b6 00e0 | | Load_Encached Standard_Cache
01b7 181c | | Execute Package,Field_Execute,Field_Number 0x1c
01b8 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
01b9 00db | | Load_Top At_Offset_3
01ba 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
01bb 00db | | Load_Top At_Offset_3
01bc 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
01bd e20d | | Load 0x1,0xd
01be 00dc | | Load_Top At_Offset_4
01bf 0267 | g | Execute Discrete,Predecessor
01c0 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
01c1 e20d | | Load 0x1,0xd
01c2 00dc | | Load_Top At_Offset_4
01c3 0268 | h | Execute Discrete,Successor
01c4 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
01c5 0000 0000 | | .XXX[0x3]
01c7 0000 | |
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01cb | | .CONST 0x01cb ; Address of begin
01c9 0004 | | .CONST 0x0004 ; Address of exception handler
01ca 0001 | | .CONST 0x0001 ; Number of locals
01cb BODY_01c8:
01cb INIT_01c8:
01cb 4801 |H | Short_Literal 0x1
01cc e241 | A | Load 0x1,0x41
01cd 1c08 | | Execute_Immediate Run_Utility,0x8
01ce 00db | | Load_Top At_Offset_3
01cf e002 | | Load 0x0,0x2
01d0 1b17 | | Execute Package,Field_Read,Field_Number 0x17
01d1 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01d2 e00e | | Load 0x0,0xe
01d3 180d | | Execute Package,Field_Execute,Field_Number 0xd
01d4 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value
01d5 00d9 | | Load_Top At_Offset_1
01d6 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
01d7 e20e | | Load 0x1,0xe
01d8 e00e | | Load 0x0,0xe
01d9 180d | | Execute Package,Field_Execute,Field_Number 0xd
01da 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value
01db 4401 |D | Exit_Subprogram With_Result,0x1
01dc 0000 0000 | | .BLANK 0000[0x4]
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 01e3 | | .CONST 0x01e3 ; Address of begin
01e1 0004 | | .CONST 0x0004 ; Address of exception handler
01e2 0001 | | .CONST 0x0001 ; Number of locals
01e3 BODY_01e0:
01e3 INIT_01e0:
01e3 00da | | Load_Top At_Offset_2
01e4 0217 | | Execute Heap_Access,All_Reference
01e5 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
01e6 0217 | | Execute Heap_Access,All_Reference
01e7 0335 | 5 | Declare_Variable Array,Duplicate
01e8 00cd | | Action Spare6_Action
01e9 4401 |D | Exit_Subprogram With_Result,0x1
01ea 0000 0000 | | .BLANK 0000[0x6]
01f0 ; --------------------------------------------------------------------------------------
01f0 ; SUBPROGRAM
01f0 ; --------------------------------------------------------------------------------------
01f0 01f3 | | .CONST 0x01f3 ; Address of begin
01f1 0004 | | .CONST 0x0004 ; Address of exception handler
01f2 0001 | | .CONST 0x0001 ; Number of locals
01f3 BODY_01f0:
01f3 INIT_01f0:
01f3 4802 |H | Short_Literal 0x2
01f4 e241 | A | Load 0x1,0x41
01f5 1c08 | | Execute_Immediate Run_Utility,0x8
01f6 00db | | Load_Top At_Offset_3
01f7 00d9 | | Load_Top At_Offset_1
01f8 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
01f9 e20e | | Load 0x1,0xe
01fa e00e | | Load 0x0,0xe
01fb 180d | | Execute Package,Field_Execute,Field_Number 0xd
01fc 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value
01fd 4401 |D | Exit_Subprogram With_Result,0x1
01fe 0000 0000 | | .XXX[0x2]
0200 ; --------------------------------------------------------------------------------------
0200 ; SUBPROGRAM
0200 ; --------------------------------------------------------------------------------------
0200 0203 | | .CONST 0x0203 ; Address of begin
0201 0004 | | .CONST 0x0004 ; Address of exception handler
0202 0001 | | .CONST 0x0001 ; Number of locals
0203 BODY_0200:
0203 INIT_0200:
0203 00da | | Load_Top At_Offset_2
0204 0217 | | Execute Heap_Access,All_Reference
0205 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
0206 4401 |D | Exit_Subprogram With_Result,0x1
0207 0000 | | .XXX[0x1]
0208 ; --------------------------------------------------------------------------------------
0208 ; SUBPROGRAM
0208 ; --------------------------------------------------------------------------------------
0208 020b | | .CONST 0x020b ; Address of begin
0209 0004 | | .CONST 0x0004 ; Address of exception handler
020a 0001 | | .CONST 0x0001 ; Number of locals
020b BODY_0208:
020b INIT_0208:
020b 4803 |H | Short_Literal 0x3
020c e241 | A | Load 0x1,0x41
020d 1c08 | | Execute_Immediate Run_Utility,0x8
020e 00db | | Load_Top At_Offset_3
020f 00d9 | | Load_Top At_Offset_1
0210 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
0211 e20e | | Load 0x1,0xe
0212 e00e | | Load 0x0,0xe
0213 180d | | Execute Package,Field_Execute,Field_Number 0xd
0214 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value
0215 4401 |D | Exit_Subprogram With_Result,0x1
0216 0000 0000 | | .XXX[0x2]
0218 ; --------------------------------------------------------------------------------------
0218 ; SUBPROGRAM
0218 ; --------------------------------------------------------------------------------------
0218 021b | | .CONST 0x021b ; Address of begin
0219 0004 | | .CONST 0x0004 ; Address of exception handler
021a 0001 | | .CONST 0x0001 ; Number of locals
021b BODY_0218:
021b INIT_0218:
021b 00da | | Load_Top At_Offset_2
021c 0217 | | Execute Heap_Access,All_Reference
021d 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
021e 4401 |D | Exit_Subprogram With_Result,0x1
021f 0000 | | .XXX[0x1]
0220 ; --------------------------------------------------------------------------------------
0220 ; SUBPROGRAM
0220 ; --------------------------------------------------------------------------------------
0220 0223 | # | .CONST 0x0223 ; Address of begin
0221 0004 | | .CONST 0x0004 ; Address of exception handler
0222 0001 | | .CONST 0x0001 ; Number of locals
0223 BODY_0220:
0223 INIT_0220:
0223 4804 |H | Short_Literal 0x4
0224 e241 | A | Load 0x1,0x41
0225 1c08 | | Execute_Immediate Run_Utility,0x8
0226 00db | | Load_Top At_Offset_3
0227 00d9 | | Load_Top At_Offset_1
0228 2a05 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
0229 e20e | | Load 0x1,0xe
022a e00e | | Load 0x0,0xe
022b 180d | | Execute Package,Field_Execute,Field_Number 0xd
022c 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value
022d 4401 |D | Exit_Subprogram With_Result,0x1
022e 0000 0000 | | .XXX[0x2]
0230 ; --------------------------------------------------------------------------------------
0230 ; SUBPROGRAM
0230 ; --------------------------------------------------------------------------------------
0230 0233 | 3 | .CONST 0x0233 ; Address of begin
0231 0004 | | .CONST 0x0004 ; Address of exception handler
0232 0001 | | .CONST 0x0001 ; Number of locals
0233 BODY_0230:
0233 INIT_0230:
0233 00da | | Load_Top At_Offset_2
0234 0217 | | Execute Heap_Access,All_Reference
0235 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
0236 4401 |D | Exit_Subprogram With_Result,0x1
0237 0000 | | .XXX[0x1]
0238 ; --------------------------------------------------------------------------------------
0238 ; SUBPROGRAM
0238 ; --------------------------------------------------------------------------------------
0238 023b | ; | .CONST 0x023b ; Address of begin
0239 0004 | | .CONST 0x0004 ; Address of exception handler
023a 0001 | | .CONST 0x0001 ; Number of locals
023b BODY_0238:
023b INIT_0238:
023b 4805 |H | Short_Literal 0x5
023c e241 | A | Load 0x1,0x41
023d 1c08 | | Execute_Immediate Run_Utility,0x8
023e 00db | | Load_Top At_Offset_3
023f e241 | A | Load 0x1,0x41
0240 2306 |# | Execute Variant_Record,Field_Type,Field_Number 0x6
0241 0119 | | Execute Any,Check_In_Formal_Type
0242 00d9 | | Load_Top At_Offset_1
0243 2a06 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6
0244 e20e | | Load 0x1,0xe
0245 e00e | | Load 0x0,0xe
0246 180d | | Execute Package,Field_Execute,Field_Number 0xd
0247 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value
0248 4401 |D | Exit_Subprogram With_Result,0x1
0249 0000 0000 | | .BLANK 0000[0x7]
0250 ; --------------------------------------------------------------------------------------
0250 ; SUBPROGRAM
0250 ; --------------------------------------------------------------------------------------
0250 0253 | S | .CONST 0x0253 ; Address of begin
0251 0004 | | .CONST 0x0004 ; Address of exception handler
0252 0001 | | .CONST 0x0001 ; Number of locals
0253 BODY_0250:
0253 INIT_0250:
0253 00da | | Load_Top At_Offset_2
0254 0217 | | Execute Heap_Access,All_Reference
0255 2e06 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
0256 00d8 | | Load_Top At_Offset_0
0257 0120 | | Execute Any,Is_Value
0258 7002 |p | Jump_Nonzero 0x25b
0259 00d8 | | Load_Top At_Offset_0
025a 011e | | Execute Any,Convert
025b 4401 |D | Exit_Subprogram With_Result,0x1
025c 0000 0000 | | .BLANK 0000[0x4]
0260 ; --------------------------------------------------------------------------------------
0260 ; SUBPROGRAM
0260 ; --------------------------------------------------------------------------------------
0260 0263 | c | .CONST 0x0263 ; Address of begin
0261 0004 | | .CONST 0x0004 ; Address of exception handler
0262 0001 | | .CONST 0x0001 ; Number of locals
0263 BODY_0260:
0263 INIT_0260:
0263 4806 |H | Short_Literal 0x6
0264 e241 | A | Load 0x1,0x41
0265 1c08 | | Execute_Immediate Run_Utility,0x8
0266 00db | | Load_Top At_Offset_3
0267 e241 | A | Load 0x1,0x41
0268 2307 |# | Execute Variant_Record,Field_Type,Field_Number 0x7
0269 0119 | | Execute Any,Check_In_Formal_Type
026a 00d9 | | Load_Top At_Offset_1
026b 2a07 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x7
026c e20e | | Load 0x1,0xe
026d e00e | | Load 0x0,0xe
026e 180d | | Execute Package,Field_Execute,Field_Number 0xd
026f 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value
0270 4401 |D | Exit_Subprogram With_Result,0x1
0271 0000 0000 | | .BLANK 0000[0x7]
0278 ; --------------------------------------------------------------------------------------
0278 ; SUBPROGRAM
0278 ; --------------------------------------------------------------------------------------
0278 027b | { | .CONST 0x027b ; Address of begin
0279 0004 | | .CONST 0x0004 ; Address of exception handler
027a 0001 | | .CONST 0x0001 ; Number of locals
027b BODY_0278:
027b INIT_0278:
027b 00da | | Load_Top At_Offset_2
027c 0217 | | Execute Heap_Access,All_Reference
027d 2e07 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7
027e 00d8 | | Load_Top At_Offset_0
027f 0120 | | Execute Any,Is_Value
0280 7002 |p | Jump_Nonzero 0x283
0281 00d8 | | Load_Top At_Offset_0
0282 011e | | Execute Any,Convert
0283 4401 |D | Exit_Subprogram With_Result,0x1
0284 0000 0000 | | .BLANK 0000[0x4]
0288 ; --------------------------------------------------------------------------------------
0288 ; SUBPROGRAM
0288 ; --------------------------------------------------------------------------------------
0288 028b | | .CONST 0x028b ; Address of begin
0289 0004 | | .CONST 0x0004 ; Address of exception handler
028a 0001 | | .CONST 0x0001 ; Number of locals
028b BODY_0288:
028b INIT_0288:
028b 4807 |H | Short_Literal 0x7
028c e241 | A | Load 0x1,0x41
028d 1c08 | | Execute_Immediate Run_Utility,0x8
028e 00db | | Load_Top At_Offset_3
028f 00d9 | | Load_Top At_Offset_1
0290 2a08 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x8
0291 e20e | | Load 0x1,0xe
0292 e00e | | Load 0x0,0xe
0293 180d | | Execute Package,Field_Execute,Field_Number 0xd
0294 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value
0295 4401 |D | Exit_Subprogram With_Result,0x1
0296 0000 0000 | | .XXX[0x2]
0298 ; --------------------------------------------------------------------------------------
0298 ; SUBPROGRAM
0298 ; --------------------------------------------------------------------------------------
0298 029b | | .CONST 0x029b ; Address of begin
0299 0004 | | .CONST 0x0004 ; Address of exception handler
029a 0001 | | .CONST 0x0001 ; Number of locals
029b BODY_0298:
029b INIT_0298:
029b 00da | | Load_Top At_Offset_2
029c 0217 | | Execute Heap_Access,All_Reference
029d 2608 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x8
029e 02fd | | Declare_Variable Variant_Record,Duplicate
029f 00cd | | Action Spare6_Action
02a0 4401 |D | Exit_Subprogram With_Result,0x1
02a1 0000 0000 | | .BLANK 0000[0x7]
02a8 ; --------------------------------------------------------------------------------------
02a8 ; SUBPROGRAM
02a8 ; --------------------------------------------------------------------------------------
02a8 02ab | | .CONST 0x02ab ; Address of begin
02a9 0004 | | .CONST 0x0004 ; Address of exception handler
02aa 0001 | | .CONST 0x0001 ; Number of locals
02ab BODY_02a8:
02ab INIT_02a8:
02ab 4808 |H | Short_Literal 0x8
02ac e241 | A | Load 0x1,0x41
02ad 1c08 | | Execute_Immediate Run_Utility,0x8
02ae 00db | | Load_Top At_Offset_3
02af e241 | A | Load 0x1,0x41
02b0 2309 |# | Execute Variant_Record,Field_Type,Field_Number 0x9
02b1 0119 | | Execute Any,Check_In_Formal_Type
02b2 00d9 | | Load_Top At_Offset_1
02b3 2a09 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x9
02b4 e20e | | Load 0x1,0xe
02b5 e00e | | Load 0x0,0xe
02b6 180d | | Execute Package,Field_Execute,Field_Number 0xd
02b7 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value
02b8 4401 |D | Exit_Subprogram With_Result,0x1
02b9 0000 0000 | | .BLANK 0000[0x7]
02c0 ; --------------------------------------------------------------------------------------
02c0 ; SUBPROGRAM
02c0 ; --------------------------------------------------------------------------------------
02c0 02c3 | | .CONST 0x02c3 ; Address of begin
02c1 0004 | | .CONST 0x0004 ; Address of exception handler
02c2 0001 | | .CONST 0x0001 ; Number of locals
02c3 BODY_02c0:
02c3 INIT_02c0:
02c3 00da | | Load_Top At_Offset_2
02c4 0217 | | Execute Heap_Access,All_Reference
02c5 2e09 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x9
02c6 00d8 | | Load_Top At_Offset_0
02c7 0120 | | Execute Any,Is_Value
02c8 7002 |p | Jump_Nonzero 0x2cb
02c9 00d8 | | Load_Top At_Offset_0
02ca 011e | | Execute Any,Convert
02cb 4401 |D | Exit_Subprogram With_Result,0x1
02cc 0000 0000 | | .BLANK 0000[0x4]
02d0 ; --------------------------------------------------------------------------------------
02d0 ; SUBPROGRAM
02d0 ; --------------------------------------------------------------------------------------
02d0 02d3 | | .CONST 0x02d3 ; Address of begin
02d1 0004 | | .CONST 0x0004 ; Address of exception handler
02d2 0001 | | .CONST 0x0001 ; Number of locals
02d3 BODY_02d0:
02d3 INIT_02d0:
02d3 4809 |H | Short_Literal 0x9
02d4 e241 | A | Load 0x1,0x41
02d5 1c08 | | Execute_Immediate Run_Utility,0x8
02d6 00db | | Load_Top At_Offset_3
02d7 00d9 | | Load_Top At_Offset_1
02d8 2a0a |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0xa
02d9 e20e | | Load 0x1,0xe
02da e00e | | Load 0x0,0xe
02db 180d | | Execute Package,Field_Execute,Field_Number 0xd
02dc 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value
02dd 4401 |D | Exit_Subprogram With_Result,0x1
02de 0000 0000 | | .XXX[0x2]
02e0 ; --------------------------------------------------------------------------------------
02e0 ; SUBPROGRAM
02e0 ; --------------------------------------------------------------------------------------
02e0 02e3 | | .CONST 0x02e3 ; Address of begin
02e1 0004 | | .CONST 0x0004 ; Address of exception handler
02e2 0001 | | .CONST 0x0001 ; Number of locals
02e3 BODY_02e0:
02e3 INIT_02e0:
02e3 00da | | Load_Top At_Offset_2
02e4 0217 | | Execute Heap_Access,All_Reference
02e5 2e0a |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xa
02e6 4401 |D | Exit_Subprogram With_Result,0x1
02e7 0000 | | .XXX[0x1]
02e8 ; --------------------------------------------------------------------------------------
02e8 ; SUBPROGRAM
02e8 ; --------------------------------------------------------------------------------------
02e8 02eb | | .CONST 0x02eb ; Address of begin
02e9 0004 | | .CONST 0x0004 ; Address of exception handler
02ea 0001 | | .CONST 0x0001 ; Number of locals
02eb BODY_02e8:
02eb INIT_02e8:
02eb 480a |H | Short_Literal 0xa
02ec e241 | A | Load 0x1,0x41
02ed 1c08 | | Execute_Immediate Run_Utility,0x8
02ee 00db | | Load_Top At_Offset_3
02ef 00d9 | | Load_Top At_Offset_1
02f0 2a0b |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0xb
02f1 e20e | | Load 0x1,0xe
02f2 e00e | | Load 0x0,0xe
02f3 180d | | Execute Package,Field_Execute,Field_Number 0xd
02f4 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value
02f5 4401 |D | Exit_Subprogram With_Result,0x1
02f6 0000 0000 | | .XXX[0x2]
02f8 ; --------------------------------------------------------------------------------------
02f8 ; SUBPROGRAM
02f8 ; --------------------------------------------------------------------------------------
02f8 02fb | | .CONST 0x02fb ; Address of begin
02f9 0004 | | .CONST 0x0004 ; Address of exception handler
02fa 0001 | | .CONST 0x0001 ; Number of locals
02fb BODY_02f8:
02fb INIT_02f8:
02fb 00da | | Load_Top At_Offset_2
02fc 0217 | | Execute Heap_Access,All_Reference
02fd 2e0b |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xb
02fe 4401 |D | Exit_Subprogram With_Result,0x1
02ff 0000 | | .XXX[0x1]
0300 ; --------------------------------------------------------------------------------------
0300 ; SUBPROGRAM
0300 ; --------------------------------------------------------------------------------------
0300 0303 | | .CONST 0x0303 ; Address of begin
0301 0004 | | .CONST 0x0004 ; Address of exception handler
0302 0001 | | .CONST 0x0001 ; Number of locals
0303 BODY_0300:
0303 INIT_0300:
0303 480b |H | Short_Literal 0xb
0304 e241 | A | Load 0x1,0x41
0305 1c08 | | Execute_Immediate Run_Utility,0x8
0306 00db | | Load_Top At_Offset_3
0307 00d9 | | Load_Top At_Offset_1
0308 2a0c |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0xc
0309 e002 | | Load 0x0,0x2
030a 1b17 | | Execute Package,Field_Read,Field_Number 0x17
030b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
030c 00d9 | | Load_Top At_Offset_1
030d 2a0d |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0xd
030e e20e | | Load 0x1,0xe
030f e00e | | Load 0x0,0xe
0310 180d | | Execute Package,Field_Execute,Field_Number 0xd
0311 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value
0312 4401 |D | Exit_Subprogram With_Result,0x1
0313 0000 0000 | | .BLANK 0000[0x5]
0318 ; --------------------------------------------------------------------------------------
0318 ; SUBPROGRAM
0318 ; --------------------------------------------------------------------------------------
0318 031b | | .CONST 0x031b ; Address of begin
0319 0004 | | .CONST 0x0004 ; Address of exception handler
031a 0001 | | .CONST 0x0001 ; Number of locals
031b BODY_0318:
031b INIT_0318:
031b 00da | | Load_Top At_Offset_2
031c 0217 | | Execute Heap_Access,All_Reference
031d 2e0c |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xc
031e 4401 |D | Exit_Subprogram With_Result,0x1
031f 0000 | | .XXX[0x1]
0320 ; --------------------------------------------------------------------------------------
0320 ; SUBPROGRAM
0320 ; --------------------------------------------------------------------------------------
0320 0323 | # | .CONST 0x0323 ; Address of begin
0321 0004 | | .CONST 0x0004 ; Address of exception handler
0322 0001 | | .CONST 0x0001 ; Number of locals
0323 BODY_0320:
0323 INIT_0320:
0323 480b |H | Short_Literal 0xb
0324 e241 | A | Load 0x1,0x41
0325 1c08 | | Execute_Immediate Run_Utility,0x8
0326 00db | | Load_Top At_Offset_3
0327 00d9 | | Load_Top At_Offset_1
0328 2a0c |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0xc
0329 e5fe | | Load 0x2,-0x2
032a e002 | | Load 0x0,0x2
032b 1b17 | | Execute Package,Field_Read,Field_Number 0x17
032c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
032d e00e | | Load 0x0,0xe
032e 180d | | Execute Package,Field_Execute,Field_Number 0xd
032f 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value
0330 00d9 | | Load_Top At_Offset_1
0331 2a0d |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0xd
0332 e20e | | Load 0x1,0xe
0333 e00e | | Load 0x0,0xe
0334 180d | | Execute Package,Field_Execute,Field_Number 0xd
0335 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value
0336 4402 |D | Exit_Subprogram With_Result,0x2
0337 0000 | | .XXX[0x1]
0338 ; --------------------------------------------------------------------------------------
0338 ; SUBPROGRAM
0338 ; --------------------------------------------------------------------------------------
0338 033b | ; | .CONST 0x033b ; Address of begin
0339 0004 | | .CONST 0x0004 ; Address of exception handler
033a 0001 | | .CONST 0x0001 ; Number of locals
033b BODY_0338:
033b INIT_0338:
033b e20e | | Load 0x1,0xe
033c 00ca | | Action Exit_Nullary_Function
033d 0000 0000 | | .XXX[0x3]
033f 0000 | |
0340 ; --------------------------------------------------------------------------------------
0340 ; SUBPROGRAM
0340 ; --------------------------------------------------------------------------------------
0340 0343 | C | .CONST 0x0343 ; Address of begin
0341 0004 | | .CONST 0x0004 ; Address of exception handler
0342 0001 | | .CONST 0x0001 ; Number of locals
0343 BODY_0340:
0343 INIT_0340:
0343 00da | | Load_Top At_Offset_2
0344 6805 |h | Jump_Zero 0x34a
0345 00da | | Load_Top At_Offset_2
0346 0217 | | Execute Heap_Access,All_Reference
0347 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0348 0f00 | | Execute_Immediate Equal,0x0
0349 4401 |D | Exit_Subprogram With_Result,0x1
034a 4801 |H | Short_Literal 0x1
034b 4401 |D | Exit_Subprogram With_Result,0x1
034c 0000 0000 | | .BLANK 0000[0x4]
0350 ; --------------------------------------------------------------------------------------
0350 ; SUBPROGRAM
0350 ; --------------------------------------------------------------------------------------
0350 0353 | S | .CONST 0x0353 ; Address of begin
0351 0004 | | .CONST 0x0004 ; Address of exception handler
0352 0001 | | .CONST 0x0001 ; Number of locals
0353 BODY_0350:
0353 INIT_0350:
0353 e243 | C | Load 0x1,0x43
0354 00ca | | Action Exit_Nullary_Function
0355 0000 0000 | | .XXX[0x3]
0357 0000 | |
0358 ; --------------------------------------------------------------------------------------
0358 ; SUBPROGRAM
0358 ; --------------------------------------------------------------------------------------
0358 035b | [ | .CONST 0x035b ; Address of begin
0359 035f | _ | .CONST 0x035f ; Address of exception handler
035a 0001 | | .CONST 0x0001 ; Number of locals
035b BODY_0358:
035b INIT_0358:
035b 00da | | Load_Top At_Offset_2
035c 0217 | | Execute Heap_Access,All_Reference
035d 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
035e 4401 |D | Exit_Subprogram With_Result,0x1
035f TRAP_0358:
035f 010e | | Execute Exception,Is_Constraint_Error
0360 6802 |h | Jump_Zero 0x363
0361 4800 |H | Short_Literal 0x0
0362 4401 |D | Exit_Subprogram With_Result,0x1
0363 0100 | | Execute Exception,Raise
0364 0000 0000 | | .BLANK 0000[0x4]
0368 ; --------------------------------------------------------------------------------------
0368 ; SUBPROGRAM
0368 ; --------------------------------------------------------------------------------------
0368 036b | k | .CONST 0x036b ; Address of begin
0369 0004 | | .CONST 0x0004 ; Address of exception handler
036a 0001 | | .CONST 0x0001 ; Number of locals
036b BODY_0368:
036b INIT_0368:
036b 00da | | Load_Top At_Offset_2
036c 7003 |p | Jump_Nonzero 0x370
036d 0092 0b49 | I| Action Push_String_Extended,0xb49 ; "<>"
036f 4401 |D | Exit_Subprogram With_Result,0x1
0370 00da | | Load_Top At_Offset_2
0371 0217 | | Execute Heap_Access,All_Reference
0372 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0373 461a |F | Jump_Case 0x1a
0374 782b |x+ | Jump 0x3a0 ; case 0x0
0375 782d |x- | Jump 0x3a3 ; case 0x1
0376 7833 |x3 | Jump 0x3aa ; case 0x2
0377 7838 |x8 | Jump 0x3b0 ; case 0x3
0378 783d |x= | Jump 0x3b6 ; case 0x4
0379 7842 |xB | Jump 0x3bc ; case 0x5
037a 7847 |xG | Jump 0x3c2 ; case 0x6
037b 784c |xL | Jump 0x3c8 ; case 0x7
037c 7851 |xQ | Jump 0x3ce ; case 0x8
037d 7856 |xV | Jump 0x3d4 ; case 0x9
037e 785b |x[ | Jump 0x3da ; case 0xa
037f 7862 |xb | Jump 0x3e2 ; case 0xb
0380 7887 |x | Jump 0x408 ; case 0xc
0381 788c |x | Jump 0x40e ; case 0xd
0382 7891 |x | Jump 0x414 ; case 0xe
0383 7896 |x | Jump 0x41a ; case 0xf
0384 789d |x | Jump 0x422 ; case 0x10
0385 78a4 |x | Jump 0x42a ; case 0x11
0386 78ab |x | Jump 0x432 ; case 0x12
0387 78b2 |x | Jump 0x43a ; case 0x13
0388 78b7 |x | Jump 0x440 ; case 0x14
0389 78bc |x | Jump 0x446 ; case 0x15
038a 7804 |x | Jump 0x38f ; case 0x16
038b 7803 |x | Jump 0x38f ; case 0x17
038c 7802 |x | Jump 0x38f ; case 0x18
038d 7801 |x | Jump 0x38f ; case 0x19
038e 7800 |x | Jump 0x38f ; case 0x1a
038f 00da | | Load_Top At_Offset_2
0390 00db | | Load_Top At_Offset_3
0391 0217 | | Execute Heap_Access,All_Reference
0392 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0393 e246 | F | Load 0x1,0x46
0394 01d7 | | Execute Vector,Field_Read
0395 e017 | | Load 0x0,0x17
0396 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0397 00d8 | | Load_Top At_Offset_0
0398 e017 | | Load 0x0,0x17
0399 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
039a 7003 |p | Jump_Nonzero 0x39e
039b e001 | | Load 0x0,0x1
039c 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
039d 0257 | W | Execute Discrete,Raise
039e 180f | | Execute Package,Field_Execute,Field_Number 0xf
039f 4401 |D | Exit_Subprogram With_Result,0x1
03a0 0092 0b49 | I| Action Push_String_Extended,0xb49 ; "<>"
03a2 4401 |D | Exit_Subprogram With_Result,0x1
03a3 00da | | Load_Top At_Offset_2
03a4 0217 | | Execute Heap_Access,All_Reference
03a5 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
03a6 0217 | | Execute Heap_Access,All_Reference
03a7 0335 | 5 | Declare_Variable Array,Duplicate
03a8 00cd | | Action Spare6_Action
03a9 4401 |D | Exit_Subprogram With_Result,0x1
03aa 00da | | Load_Top At_Offset_2
03ab 0217 | | Execute Heap_Access,All_Reference
03ac 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
03ad e018 | | Load 0x0,0x18
03ae 180d | | Execute Package,Field_Execute,Field_Number 0xd
03af 4401 |D | Exit_Subprogram With_Result,0x1
03b0 00da | | Load_Top At_Offset_2
03b1 0217 | | Execute Heap_Access,All_Reference
03b2 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
03b3 e018 | | Load 0x0,0x18
03b4 1810 | | Execute Package,Field_Execute,Field_Number 0x10
03b5 4401 |D | Exit_Subprogram With_Result,0x1
03b6 00da | | Load_Top At_Offset_2
03b7 0217 | | Execute Heap_Access,All_Reference
03b8 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
03b9 e018 | | Load 0x0,0x18
03ba 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03bb 4401 |D | Exit_Subprogram With_Result,0x1
03bc 00da | | Load_Top At_Offset_2
03bd 0217 | | Execute Heap_Access,All_Reference
03be 2e06 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
03bf e018 | | Load 0x0,0x18
03c0 1816 | | Execute Package,Field_Execute,Field_Number 0x16
03c1 4401 |D | Exit_Subprogram With_Result,0x1
03c2 00da | | Load_Top At_Offset_2
03c3 0217 | | Execute Heap_Access,All_Reference
03c4 2e07 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7
03c5 e018 | | Load 0x0,0x18
03c6 1819 | | Execute Package,Field_Execute,Field_Number 0x19
03c7 4401 |D | Exit_Subprogram With_Result,0x1
03c8 00da | | Load_Top At_Offset_2
03c9 0217 | | Execute Heap_Access,All_Reference
03ca 2608 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x8
03cb e018 | | Load 0x0,0x18
03cc 181c | | Execute Package,Field_Execute,Field_Number 0x1c
03cd 4401 |D | Exit_Subprogram With_Result,0x1
03ce 00da | | Load_Top At_Offset_2
03cf 0217 | | Execute Heap_Access,All_Reference
03d0 2e09 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x9
03d1 e018 | | Load 0x0,0x18
03d2 181f | | Execute Package,Field_Execute,Field_Number 0x1f
03d3 4401 |D | Exit_Subprogram With_Result,0x1
03d4 00da | | Load_Top At_Offset_2
03d5 0217 | | Execute Heap_Access,All_Reference
03d6 2e0a |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xa
03d7 e018 | | Load 0x0,0x18
03d8 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
03d9 4401 |D | Exit_Subprogram With_Result,0x1
03da 00da | | Load_Top At_Offset_2
03db 0217 | | Execute Heap_Access,All_Reference
03dc 2e0b |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xb
03dd e004 | | Load 0x0,0x4
03de 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03df 011c | | Execute Any,Convert_Unchecked
03e0 1c01 | | Execute_Immediate Run_Utility,0x1
03e1 4401 |D | Exit_Subprogram With_Result,0x1
03e2 00da | | Load_Top At_Offset_2
03e3 0217 | | Execute Heap_Access,All_Reference
03e4 2e0d |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xd
03e5 7009 |p | Jump_Nonzero 0x3ef
03e6 00da | | Load_Top At_Offset_2
03e7 0217 | | Execute Heap_Access,All_Reference
03e8 2e0c |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xc
03e9 e004 | | Load 0x0,0x4
03ea 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
03eb 1b0f | | Execute Package,Field_Read,Field_Number 0xf
03ec 011c | | Execute Any,Convert_Unchecked
03ed 1c01 | | Execute_Immediate Run_Utility,0x1
03ee 4401 |D | Exit_Subprogram With_Result,0x1
03ef 605c |`\ | Indirect_Literal Discrete,0x44c,{0x00000000, 0x00004000}
03f0 e019 | | Load 0x0,0x19
03f1 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03f2 e01a | | Load 0x0,0x1a
03f3 1811 | | Execute Package,Field_Execute,Field_Number 0x11
03f4 e01b | | Load 0x0,0x1b
03f5 1811 | | Execute Package,Field_Execute,Field_Number 0x11
03f6 4801 |H | Short_Literal 0x1
03f7 4800 |H | Short_Literal 0x0
03f8 e01a | | Load 0x0,0x1a
03f9 1811 | | Execute Package,Field_Execute,Field_Number 0x11
03fa e004 | | Load 0x0,0x4
03fb 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
03fc 1816 | | Execute Package,Field_Execute,Field_Number 0x16
03fd e5ff | | Load 0x2,-0x1
03fe 0217 | | Execute Heap_Access,All_Reference
03ff 2e0d |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xd
0400 0217 | | Execute Heap_Access,All_Reference
0401 e5ff | | Load 0x2,-0x1
0402 0217 | | Execute Heap_Access,All_Reference
0403 2e0c |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xc
0404 e004 | | Load 0x0,0x4
0405 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0406 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51
0407 4401 |D | Exit_Subprogram With_Result,0x1
0408 00da | | Load_Top At_Offset_2
0409 0217 | | Execute Heap_Access,All_Reference
040a 2e0e |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xe
040b e005 | | Load 0x0,0x5
040c 1811 | | Execute Package,Field_Execute,Field_Number 0x11
040d 4401 |D | Exit_Subprogram With_Result,0x1
040e 00da | | Load_Top At_Offset_2
040f 0217 | | Execute Heap_Access,All_Reference
0410 2e0f |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xf
0411 e005 | | Load 0x0,0x5
0412 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0413 4401 |D | Exit_Subprogram With_Result,0x1
0414 00da | | Load_Top At_Offset_2
0415 0217 | | Execute Heap_Access,All_Reference
0416 2e10 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x10
0417 e006 | | Load 0x0,0x6
0418 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
0419 4401 |D | Exit_Subprogram With_Result,0x1
041a 00da | | Load_Top At_Offset_2
041b e002 | | Load 0x0,0x2
041c 1b14 | | Execute Package,Field_Read,Field_Number 0x14
041d 1811 | | Execute Package,Field_Execute,Field_Number 0x11
041e e002 | | Load 0x0,0x2
041f 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0420 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0421 4401 |D | Exit_Subprogram With_Result,0x1
0422 00da | | Load_Top At_Offset_2
0423 e002 | | Load 0x0,0x2
0424 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0425 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0426 e002 | | Load 0x0,0x2
0427 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0428 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0429 4401 |D | Exit_Subprogram With_Result,0x1
042a 00da | | Load_Top At_Offset_2
042b e002 | | Load 0x0,0x2
042c 1b16 | | Execute Package,Field_Read,Field_Number 0x16
042d 185b | [ | Execute Package,Field_Execute,Field_Number 0x5b
042e e002 | | Load 0x0,0x2
042f 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0430 185c | \ | Execute Package,Field_Execute,Field_Number 0x5c
0431 4401 |D | Exit_Subprogram With_Result,0x1
0432 00da | | Load_Top At_Offset_2
0433 e002 | | Load 0x0,0x2
0434 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0435 1843 | C | Execute Package,Field_Execute,Field_Number 0x43
0436 e002 | | Load 0x0,0x2
0437 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0438 1844 | D | Execute Package,Field_Execute,Field_Number 0x44
0439 4401 |D | Exit_Subprogram With_Result,0x1
043a 00da | | Load_Top At_Offset_2
043b e01c | | Load 0x0,0x1c
043c 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
043d e01c | | Load 0x0,0x1c
043e 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
043f 4401 |D | Exit_Subprogram With_Result,0x1
0440 00da | | Load_Top At_Offset_2
0441 e01d | | Load 0x0,0x1d
0442 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
0443 e01d | | Load 0x0,0x1d
0444 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0445 4401 |D | Exit_Subprogram With_Result,0x1
0446 00da | | Load_Top At_Offset_2
0447 e01d | | Load 0x0,0x1d
0448 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0449 e01d | | Load 0x0,0x1d
044a 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
044b 4401 |D | Exit_Subprogram With_Result,0x1
044c 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
0450 ; --------------------------------------------------------------------------------------
0450 ; SUBPROGRAM
0450 ; --------------------------------------------------------------------------------------
0450 0453 | S | .CONST 0x0453 ; Address of begin
0451 0004 | | .CONST 0x0004 ; Address of exception handler
0452 0001 | | .CONST 0x0001 ; Number of locals
0453 BODY_0450:
0453 INIT_0450:
0453 e22e | . | Load 0x1,0x2e
0454 0322 | " | Declare_Variable Record
0455 4800 |H | Short_Literal 0x0
0456 00d9 | | Load_Top At_Offset_1
0457 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0458 4800 |H | Short_Literal 0x0
0459 00d9 | | Load_Top At_Offset_1
045a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
045b 00ca | | Action Exit_Nullary_Function
045c 0000 0000 | | .BLANK 0000[0x4]
0460 ; --------------------------------------------------------------------------------------
0460 ; SUBPROGRAM
0460 ; --------------------------------------------------------------------------------------
0460 0463 | c | .CONST 0x0463 ; Address of begin
0461 048b | | .CONST 0x048b ; Address of exception handler
0462 0001 | | .CONST 0x0001 ; Number of locals
0463 BODY_0460:
0463 INIT_0460:
0463 00da | | Load_Top At_Offset_2
0464 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0465 7004 |p | Jump_Nonzero 0x46a
0466 00da | | Load_Top At_Offset_2
0467 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0468 0f00 | | Execute_Immediate Equal,0x0
0469 4401 |D | Exit_Subprogram With_Result,0x1
046a 00da | | Load_Top At_Offset_2
046b 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
046c 0f01 | | Execute_Immediate Equal,0x1
046d 680e |h | Jump_Zero 0x47c
046e 00da | | Load_Top At_Offset_2
046f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0470 e00e | | Load 0x0,0xe
0471 180d | | Execute Package,Field_Execute,Field_Number 0xd
0472 e24c | L | Load 0x1,0x4c
0473 e24d | M | Load 0x1,0x4d
0474 1d4e | N | Execute_Immediate Reference_Lex_1,0x4e
0475 e009 | | Load 0x0,0x9
0476 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0477 0217 | | Execute Heap_Access,All_Reference
0478 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0479 e20d | | Load 0x1,0xd
047a 0260 | ` | Execute Discrete,In_Type
047b 4401 |D | Exit_Subprogram With_Result,0x1
047c 00da | | Load_Top At_Offset_2
047d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
047e e00e | | Load 0x0,0xe
047f 180d | | Execute Package,Field_Execute,Field_Number 0xd
0480 e252 | R | Load 0x1,0x52
0481 e253 | S | Load 0x1,0x53
0482 1d54 | T | Execute_Immediate Reference_Lex_1,0x54
0483 e009 | | Load 0x0,0x9
0484 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0485 0217 | | Execute Heap_Access,All_Reference
0486 01db | | Execute Vector,Length
0487 00db | | Load_Top At_Offset_3
0488 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0489 027f | | Execute Discrete,Equal
048a 4401 |D | Exit_Subprogram With_Result,0x1
048b TRAP_0460:
048b 0007 | | Action Break_Optional
048c 4800 |H | Short_Literal 0x0
048d 4401 |D | Exit_Subprogram With_Result,0x1
048e 0000 0000 | | .XXX[0x2]
0490 ; --------------------------------------------------------------------------------------
0490 ; SUBPROGRAM
0490 ; --------------------------------------------------------------------------------------
0490 0493 | | .CONST 0x0493 ; Address of begin
0491 0004 | | .CONST 0x0004 ; Address of exception handler
0492 0001 | | .CONST 0x0001 ; Number of locals
0493 BODY_0490:
0493 INIT_0490:
0493 00da | | Load_Top At_Offset_2
0494 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0495 7002 |p | Jump_Nonzero 0x498
0496 822b | + | Call 0x1,0x2b
0497 4401 |D | Exit_Subprogram With_Result,0x1
0498 00da | | Load_Top At_Offset_2
0499 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
049a 0f01 | | Execute_Immediate Equal,0x1
049b 6814 |h | Jump_Zero 0x4b0
049c 4801 |H | Short_Literal 0x1
049d 4801 |H | Short_Literal 0x1
049e e20f | | Load 0x1,0xf
049f 035b | [ | Declare_Type Array,Constrained
04a0 0337 | 7 | Declare_Variable Array
04a1 00db | | Load_Top At_Offset_3
04a2 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
04a3 e00e | | Load 0x0,0xe
04a4 180d | | Execute Package,Field_Execute,Field_Number 0xd
04a5 e24c | L | Load 0x1,0x4c
04a6 e24d | M | Load 0x1,0x4d
04a7 1d4e | N | Execute_Immediate Reference_Lex_1,0x4e
04a8 e009 | | Load 0x0,0x9
04a9 1819 | | Execute Package,Field_Execute,Field_Number 0x19
04aa 4801 |H | Short_Literal 0x1
04ab 00da | | Load_Top At_Offset_2
04ac 01d6 | | Execute Vector,Field_Write
04ad e20f | | Load 0x1,0xf
04ae 01c6 | | Execute Vector,Convert_To_Formal
04af 4401 |D | Exit_Subprogram With_Result,0x1
04b0 00da | | Load_Top At_Offset_2
04b1 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
04b2 e00e | | Load 0x0,0xe
04b3 180d | | Execute Package,Field_Execute,Field_Number 0xd
04b4 e252 | R | Load 0x1,0x52
04b5 e253 | S | Load 0x1,0x53
04b6 1d54 | T | Execute_Immediate Reference_Lex_1,0x54
04b7 e009 | | Load 0x0,0x9
04b8 1819 | | Execute Package,Field_Execute,Field_Number 0x19
04b9 8257 | W | Call 0x1,0x57
04ba 4401 |D | Exit_Subprogram With_Result,0x1
04bb 0000 0000 | | .BLANK 0000[0x5]
04c0 ; --------------------------------------------------------------------------------------
04c0 ; SUBPROGRAM
04c0 ; --------------------------------------------------------------------------------------
04c0 04c9 | | .CONST 0x04c9 ; Address of begin
04c1 0004 | | .CONST 0x0004 ; Address of exception handler
04c2 0004 | | .CONST 0x0004 ; Number of locals
04c3 INIT_04c0:
04c3 e22e | . | Load 0x1,0x2e
04c4 0322 | " | Declare_Variable Record
04c5 00e2 | | Load_Encached Integer_Cache
04c6 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
04c7 e242 | B | Load 0x1,0x42
04c8 0007 | | Action Break_Optional
04c9 BODY_04c0:
04c9 e5ff | | Load 0x2,-0x1
04ca 01db | | Execute Vector,Length
04cb 00db | | Load_Top At_Offset_3
04cc 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
04cd 00da | | Load_Top At_Offset_2
04ce 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
04cf 0f01 | | Execute_Immediate Equal,0x1
04d0 6809 |h | Jump_Zero 0x4da
04d1 e5ff | | Load 0x2,-0x1
04d2 01dd | | Execute Vector,First
04d3 e5ff | | Load 0x2,-0x1
04d4 01d7 | | Execute Vector,Field_Read
04d5 e24b | K | Load 0x1,0x4b
04d6 1812 | | Execute Package,Field_Execute,Field_Number 0x12
04d7 00db | | Load_Top At_Offset_3
04d8 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
04d9 7827 |x' | Jump 0x501
04da 00da | | Load_Top At_Offset_2
04db 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
04dc 0c02 | | Execute_Immediate Greater_Equal,0x2
04dd 6820 |h | Jump_Zero 0x4fe
04de 4801 |H | Short_Literal 0x1
04df 00db | | Load_Top At_Offset_3
04e0 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
04e1 e242 | B | Load 0x1,0x42
04e2 e00e | | Load 0x0,0xe
04e3 180d | | Execute Package,Field_Execute,Field_Number 0xd
04e4 039a | | Declare_Variable Heap_Access,By_Allocation,With_Constraint
04e5 0031 | 1 | Store_Top Heap_Access,At_Offset_1
04e6 00cf | | Action Mark_Auxiliary
04e7 e5ff | | Load 0x2,-0x1
04e8 01d9 | | Execute Vector,Reverse_Bounds
04e9 0263 | c | Execute Discrete,Above_Bound
04ea 700c |p | Jump_Nonzero 0x4f7
04eb e403 | | Load 0x2,0x3
04ec 0a01 | | Execute_Immediate Plus,0x1
04ed c403 | | Store 0x2,0x3
04ee 00d8 | | Load_Top At_Offset_0
04ef e5ff | | Load 0x2,-0x1
04f0 01d7 | | Execute Vector,Field_Read
04f1 e403 | | Load 0x2,0x3
04f2 e404 | | Load 0x2,0x4
04f3 0217 | | Execute Heap_Access,All_Reference
04f4 01d6 | | Execute Vector,Field_Write
04f5 00c8 | | Action Pop_Auxiliary_Range
04f6 3ff4 |? | Loop_Increasing 0x4eb
04f7 00ce | | Action Pop_Auxiliary
04f8 00d8 | | Load_Top At_Offset_0
04f9 e251 | Q | Load 0x1,0x51
04fa 1812 | | Execute Package,Field_Execute,Field_Number 0x12
04fb 00db | | Load_Top At_Offset_3
04fc 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
04fd 7803 |x | Jump 0x501
04fe 4800 |H | Short_Literal 0x0
04ff 00db | | Load_Top At_Offset_3
0500 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0501 00da | | Load_Top At_Offset_2
0502 4401 |D | Exit_Subprogram With_Result,0x1
0503 0000 0000 | | .BLANK 0000[0x5]
0508 ; --------------------------------------------------------------------------------------
0508 ; SUBPROGRAM
0508 ; --------------------------------------------------------------------------------------
0508 050b | | .CONST 0x050b ; Address of begin
0509 0004 | | .CONST 0x0004 ; Address of exception handler
050a 0001 | | .CONST 0x0001 ; Number of locals
050b BODY_0508:
050b INIT_0508:
050b e22e | . | Load 0x1,0x2e
050c 0322 | " | Declare_Variable Record
050d 4801 |H | Short_Literal 0x1
050e 00d9 | | Load_Top At_Offset_1
050f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0510 00db | | Load_Top At_Offset_3
0511 e24b | K | Load 0x1,0x4b
0512 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0513 00d9 | | Load_Top At_Offset_1
0514 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0515 4401 |D | Exit_Subprogram With_Result,0x1
0516 0000 0000 | | .XXX[0x2]
0518 ; --------------------------------------------------------------------------------------
0518 ; SUBPROGRAM
0518 ; --------------------------------------------------------------------------------------
0518 0525 | % | .CONST 0x0525 ; Address of begin
0519 0004 | | .CONST 0x0004 ; Address of exception handler
051a 0006 | | .CONST 0x0006 ; Number of locals
051b INIT_0518:
051b e22e | . | Load 0x1,0x2e
051c 0322 | " | Declare_Variable Record
051d 00e2 | | Load_Encached Integer_Cache
051e 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
051f e242 | B | Load 0x1,0x42
0520 0007 | | Action Break_Optional
0521 e20e | | Load 0x1,0xe
0522 0007 | | Action Break_Optional
0523 00e1 | | Load_Encached Boolean_Cache
0524 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
0525 BODY_0518:
0525 4800 |H | Short_Literal 0x0
0526 a5fc | | Store_Unchecked 0x2,-0x4
0527 e5ff | | Load 0x2,-0x1
0528 01db | | Execute Vector,Length
0529 e402 | | Load 0x2,0x2
052a 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
052b e402 | | Load 0x2,0x2
052c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
052d 0f01 | | Execute_Immediate Equal,0x1
052e 6810 |h | Jump_Zero 0x53f
052f 00d8 | | Load_Top At_Offset_0
0530 e20e | | Load 0x1,0xe
0531 e5fe | | Load 0x2,-0x2
0532 e5ff | | Load 0x2,-0x1
0533 01dd | | Execute Vector,First
0534 e5ff | | Load 0x2,-0x1
0535 01d7 | | Execute Vector,Field_Read
0536 8259 | Y | Call 0x1,0x59
0537 0033 | 3 | Store_Top Heap_Access,At_Offset_3
0538 0059 | Y | Store_Top Discrete,At_Offset_1
0539 00d9 | | Load_Top At_Offset_1
053a e24b | K | Load 0x1,0x4b
053b 1812 | | Execute Package,Field_Execute,Field_Number 0x12
053c e402 | | Load 0x2,0x2
053d 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
053e 7832 |x2 | Jump 0x571
053f e402 | | Load 0x2,0x2
0540 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0541 0c02 | | Execute_Immediate Greater_Equal,0x2
0542 682e |h. | Jump_Zero 0x571
0543 4801 |H | Short_Literal 0x1
0544 e402 | | Load 0x2,0x2
0545 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0546 e242 | B | Load 0x1,0x42
0547 e5fe | | Load 0x2,-0x2
0548 039a | | Declare_Variable Heap_Access,By_Allocation,With_Constraint
0549 0033 | 3 | Store_Top Heap_Access,At_Offset_3
054a 00cf | | Action Mark_Auxiliary
054b e5ff | | Load 0x2,-0x1
054c 01d9 | | Execute Vector,Reverse_Bounds
054d 0263 | c | Execute Discrete,Above_Bound
054e 701c |p | Jump_Nonzero 0x56b
054f e403 | | Load 0x2,0x3
0550 0a01 | | Execute_Immediate Plus,0x1
0551 c403 | | Store 0x2,0x3
0552 e404 | | Load 0x2,0x4
0553 0219 | | Execute Heap_Access,All_Read
0554 e403 | | Load 0x2,0x3
0555 e406 | | Load 0x2,0x6
0556 e20e | | Load 0x1,0xe
0557 00da | | Load_Top At_Offset_2
0558 e40a | | Load 0x2,0xa
0559 01d7 | | Execute Vector,Field_Read
055a 00d1 | | Pop_Control Pop_Count_1
055b e5fe | | Load 0x2,-0x2
055c e409 | | Load 0x2,0x9
055d e5ff | | Load 0x2,-0x1
055e 01d7 | | Execute Vector,Field_Read
055f 8259 | Y | Call 0x1,0x59
0560 00da | | Load_Top At_Offset_2
0561 e40a | | Load 0x2,0xa
0562 01d6 | | Execute Vector,Field_Write
0563 c406 | | Store 0x2,0x6
0564 00d2 | | Pop_Control Pop_Count_2
0565 00db | | Load_Top At_Offset_3
0566 7002 |p | Jump_Nonzero 0x569
0567 00d2 | | Pop_Control Pop_Count_2
0568 7802 |x | Jump 0x56b
0569 00c8 | | Action Pop_Auxiliary_Range
056a 3fe4 |? | Loop_Increasing 0x54f
056b 00ce | | Action Pop_Auxiliary
056c 00da | | Load_Top At_Offset_2
056d e251 | Q | Load 0x1,0x51
056e 1812 | | Execute Package,Field_Execute,Field_Number 0x12
056f e402 | | Load 0x2,0x2
0570 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0571 e402 | | Load 0x2,0x2
0572 e5fd | | Load 0x2,-0x3
0573 017d | } | Execute Record,Structure_Write
0574 00d8 | | Load_Top At_Offset_0
0575 a5fc | | Store_Unchecked 0x2,-0x4
0576 4503 |E | Exit_Subprogram 0x3
0577 0000 | | .XXX[0x1]
0578 ; --------------------------------------------------------------------------------------
0578 ; SUBPROGRAM
0578 ; --------------------------------------------------------------------------------------
0578 0585 | | .CONST 0x0585 ; Address of begin
0579 0004 | | .CONST 0x0004 ; Address of exception handler
057a 0004 | | .CONST 0x0004 ; Number of locals
057b INIT_0578:
057b 4801 |H | Short_Literal 0x1
057c 00db | | Load_Top At_Offset_3
057d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
057e e20f | | Load 0x1,0xf
057f 035b | [ | Declare_Type Array,Constrained
0580 0337 | 7 | Declare_Variable Array
0581 e242 | B | Load 0x1,0x42
0582 0007 | | Action Break_Optional
0583 e20e | | Load 0x1,0xe
0584 0007 | | Action Break_Optional
0585 BODY_0578:
0585 e5ff | | Load 0x2,-0x1
0586 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0587 0f01 | | Execute_Immediate Equal,0x1
0588 6815 |h | Jump_Zero 0x59e
0589 e5ff | | Load 0x2,-0x1
058a 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
058b e5fe | | Load 0x2,-0x2
058c e24c | L | Load 0x1,0x4c
058d e24d | M | Load 0x1,0x4d
058e 1d4e | N | Execute_Immediate Reference_Lex_1,0x4e
058f e009 | | Load 0x0,0x9
0590 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0591 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0592 e20e | | Load 0x1,0xe
0593 4801 |H | Short_Literal 0x1
0594 e402 | | Load 0x2,0x2
0595 01d7 | | Execute Vector,Field_Read
0596 00d1 | | Pop_Control Pop_Count_1
0597 e5fe | | Load 0x2,-0x2
0598 00da | | Load_Top At_Offset_2
0599 825a | Z | Call 0x1,0x5a
059a 4801 |H | Short_Literal 0x1
059b e402 | | Load 0x2,0x2
059c 01d6 | | Execute Vector,Field_Write
059d 7828 |x( | Jump 0x5c6
059e e5ff | | Load 0x2,-0x1
059f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
05a0 0c02 | | Execute_Immediate Greater_Equal,0x2
05a1 6824 |h$ | Jump_Zero 0x5c6
05a2 e5ff | | Load 0x2,-0x1
05a3 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
05a4 e5fe | | Load 0x2,-0x2
05a5 e252 | R | Load 0x1,0x52
05a6 e253 | S | Load 0x1,0x53
05a7 1d54 | T | Execute_Immediate Reference_Lex_1,0x54
05a8 e009 | | Load 0x0,0x9
05a9 1819 | | Execute Package,Field_Execute,Field_Number 0x19
05aa 0032 | 2 | Store_Top Heap_Access,At_Offset_2
05ab 00cf | | Action Mark_Auxiliary
05ac 00db | | Load_Top At_Offset_3
05ad 01d9 | | Execute Vector,Reverse_Bounds
05ae 0263 | c | Execute Discrete,Above_Bound
05af 7015 |p | Jump_Nonzero 0x5c5
05b0 00d8 | | Load_Top At_Offset_0
05b1 e403 | | Load 0x2,0x3
05b2 0217 | | Execute Heap_Access,All_Reference
05b3 01d7 | | Execute Vector,Field_Read
05b4 a404 | | Store_Unchecked 0x2,0x4
05b5 e402 | | Load 0x2,0x2
05b6 00d9 | | Load_Top At_Offset_1
05b7 e20e | | Load 0x1,0xe
05b8 00d9 | | Load_Top At_Offset_1
05b9 00db | | Load_Top At_Offset_3
05ba 01d7 | | Execute Vector,Field_Read
05bb 00d1 | | Pop_Control Pop_Count_1
05bc e5fe | | Load 0x2,-0x2
05bd e404 | | Load 0x2,0x4
05be 825a | Z | Call 0x1,0x5a
05bf 00d9 | | Load_Top At_Offset_1
05c0 00db | | Load_Top At_Offset_3
05c1 01d6 | | Execute Vector,Field_Write
05c2 00d2 | | Pop_Control Pop_Count_2
05c3 00c8 | | Action Pop_Auxiliary_Range
05c4 3feb |? | Loop_Increasing 0x5b0
05c5 00ce | | Action Pop_Auxiliary
05c6 00da | | Load_Top At_Offset_2
05c7 e20f | | Load 0x1,0xf
05c8 01c6 | | Execute Vector,Convert_To_Formal
05c9 4402 |D | Exit_Subprogram With_Result,0x2
05ca 0000 0000 | | .BLANK 0000[0x6]
05d0 ; --------------------------------------------------------------------------------------
05d0 ; SUBPROGRAM
05d0 ; --------------------------------------------------------------------------------------
05d0 05d3 | | .CONST 0x05d3 ; Address of begin
05d1 0004 | | .CONST 0x0004 ; Address of exception handler
05d2 0001 | | .CONST 0x0001 ; Number of locals
05d3 BODY_05d0:
05d3 INIT_05d0:
05d3 00da | | Load_Top At_Offset_2
05d4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
05d5 4401 |D | Exit_Subprogram With_Result,0x1
05d6 0000 0000 | | .XXX[0x2]
05d8 ; --------------------------------------------------------------------------------------
05d8 ; SUBPROGRAM
05d8 ; --------------------------------------------------------------------------------------
05d8 05db | | .CONST 0x05db ; Address of begin
05d9 0004 | | .CONST 0x0004 ; Address of exception handler
05da 0001 | | .CONST 0x0001 ; Number of locals
05db BODY_05d8:
05db INIT_05d8:
05db 00db | | Load_Top At_Offset_3
05dc 00db | | Load_Top At_Offset_3
05dd 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
05de 027d | } | Execute Discrete,Greater
05df 6802 |h | Jump_Zero 0x5e2
05e0 8229 | ) | Call 0x1,0x29
05e1 4402 |D | Exit_Subprogram With_Result,0x2
05e2 00da | | Load_Top At_Offset_2
05e3 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
05e4 0f01 | | Execute_Immediate Equal,0x1
05e5 680a |h | Jump_Zero 0x5f0
05e6 00da | | Load_Top At_Offset_2
05e7 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
05e8 e00e | | Load 0x0,0xe
05e9 180d | | Execute Package,Field_Execute,Field_Number 0xd
05ea e24c | L | Load 0x1,0x4c
05eb e24d | M | Load 0x1,0x4d
05ec 1d4e | N | Execute_Immediate Reference_Lex_1,0x4e
05ed e009 | | Load 0x0,0x9
05ee 1819 | | Execute Package,Field_Execute,Field_Number 0x19
05ef 4402 |D | Exit_Subprogram With_Result,0x2
05f0 00db | | Load_Top At_Offset_3
05f1 00db | | Load_Top At_Offset_3
05f2 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
05f3 e00e | | Load 0x0,0xe
05f4 180d | | Execute Package,Field_Execute,Field_Number 0xd
05f5 e252 | R | Load 0x1,0x52
05f6 e253 | S | Load 0x1,0x53
05f7 1d54 | T | Execute_Immediate Reference_Lex_1,0x54
05f8 e009 | | Load 0x0,0x9
05f9 1819 | | Execute Package,Field_Execute,Field_Number 0x19
05fa 0217 | | Execute Heap_Access,All_Reference
05fb 01d7 | | Execute Vector,Field_Read
05fc 4402 |D | Exit_Subprogram With_Result,0x2
05fd 0000 0000 | | .XXX[0x3]
05ff 0000 | |
0600 ; --------------------------------------------------------------------------------------
0600 ; SUBPROGRAM
0600 ; --------------------------------------------------------------------------------------
0600 0603 | | .CONST 0x0603 ; Address of begin
0601 0004 | | .CONST 0x0004 ; Address of exception handler
0602 0001 | | .CONST 0x0001 ; Number of locals
0603 BODY_0600:
0603 INIT_0600:
0603 00db | | Load_Top At_Offset_3
0604 00db | | Load_Top At_Offset_3
0605 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0606 027d | } | Execute Discrete,Greater
0607 6802 |h | Jump_Zero 0x60a
0608 4800 |H | Short_Literal 0x0
0609 4402 |D | Exit_Subprogram With_Result,0x2
060a 00da | | Load_Top At_Offset_2
060b 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
060c 0f01 | | Execute_Immediate Equal,0x1
060d 680c |h | Jump_Zero 0x61a
060e 00da | | Load_Top At_Offset_2
060f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0610 e00e | | Load 0x0,0xe
0611 180d | | Execute Package,Field_Execute,Field_Number 0xd
0612 e24c | L | Load 0x1,0x4c
0613 e24d | M | Load 0x1,0x4d
0614 1d4e | N | Execute_Immediate Reference_Lex_1,0x4e
0615 e009 | | Load 0x0,0x9
0616 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0617 0217 | | Execute Heap_Access,All_Reference
0618 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0619 4402 |D | Exit_Subprogram With_Result,0x2
061a 00db | | Load_Top At_Offset_3
061b 00db | | Load_Top At_Offset_3
061c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
061d e00e | | Load 0x0,0xe
061e 180d | | Execute Package,Field_Execute,Field_Number 0xd
061f e252 | R | Load 0x1,0x52
0620 e253 | S | Load 0x1,0x53
0621 1d54 | T | Execute_Immediate Reference_Lex_1,0x54
0622 e009 | | Load 0x0,0x9
0623 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0624 0217 | | Execute Heap_Access,All_Reference
0625 01d7 | | Execute Vector,Field_Read
0626 0217 | | Execute Heap_Access,All_Reference
0627 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0628 4402 |D | Exit_Subprogram With_Result,0x2
0629 0000 0000 | | .BLANK 0000[0x7]
0630 ; --------------------------------------------------------------------------------------
0630 ; SUBPROGRAM
0630 ; --------------------------------------------------------------------------------------
0630 0635 | 5 | .CONST 0x0635 ; Address of begin
0631 0004 | | .CONST 0x0004 ; Address of exception handler
0632 0002 | | .CONST 0x0002 ; Number of locals
0633 INIT_0630:
0633 029f 0a43 | C| Declare_Subprogram For_Call,INIT_0a40
0635 BODY_0630:
0635 00db | | Load_Top At_Offset_3
0636 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0637 0c01 | | Execute_Immediate Greater_Equal,0x1
0638 680e |h | Jump_Zero 0x647
0639 e5fd | | Load 0x2,-0x3
063a e5ff | | Load 0x2,-0x1
063b 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
063c 027b | { | Execute Discrete,Greater_Equal
063d 6805 |h | Jump_Zero 0x643
063e 00db | | Load_Top At_Offset_3
063f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0640 4801 |H | Short_Literal 0x1
0641 8402 | | Call 0x2,0x2
0642 4403 |D | Exit_Subprogram With_Result,0x3
0643 e5fd | | Load 0x2,-0x3
0644 4801 |H | Short_Literal 0x1
0645 8402 | | Call 0x2,0x2
0646 4403 |D | Exit_Subprogram With_Result,0x3
0647 00ea | | Load_Encached Null_String_Cache
0648 4403 |D | Exit_Subprogram With_Result,0x3
0649 0000 0000 | | .BLANK 0000[0x7]
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 e20e | | Load 0x1,0xe
0654 0007 | | Action Break_Optional
0655 BODY_0650:
0655 e5fc | | Load 0x2,-0x4
0656 00d8 | | Load_Top At_Offset_0
0657 e241 | A | Load 0x1,0x41
0658 1c06 | | Execute_Immediate Run_Utility,0x6
0659 e20e | | Load 0x1,0xe
065a e00e | | Load 0x0,0xe
065b 180d | | Execute Package,Field_Execute,Field_Number 0xd
065c 039a | | Declare_Variable Heap_Access,By_Allocation,With_Constraint
065d 00d8 | | Load_Top At_Offset_0
065e 0217 | | Execute Heap_Access,All_Reference
065f 1c00 | | Execute_Immediate Run_Utility,0x0
0660 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0661 e5fa | | Load 0x2,-0x6
0662 e5fb | | Load 0x2,-0x5
0663 0119 | | Execute Any,Check_In_Formal_Type
0664 85fe | | Call 0x2,-0x2
0665 00d9 | | Load_Top At_Offset_1
0666 0217 | | Execute Heap_Access,All_Reference
0667 2a12 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x12
0668 e5fa | | Load 0x2,-0x6
0669 e5fb | | Load 0x2,-0x5
066a 0119 | | Execute Any,Check_In_Formal_Type
066b 85fd | | Call 0x2,-0x3
066c 00d9 | | Load_Top At_Offset_1
066d 0217 | | Execute Heap_Access,All_Reference
066e 2a11 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x11
066f 00d8 | | Load_Top At_Offset_0
0670 4406 |D | Exit_Subprogram With_Result,0x6
0671 0000 0000 | | .BLANK 0000[0x7]
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 e5fc | | Load 0x2,-0x4
067c e5fa | | Load 0x2,-0x6
067d 0217 | | Execute Heap_Access,All_Reference
067e 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
067f 027f | | Execute Discrete,Equal
0680 680a |h | Jump_Zero 0x68b
0681 e5fa | | Load 0x2,-0x6
0682 0217 | | Execute Heap_Access,All_Reference
0683 2e12 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x12
0684 e5fa | | Load 0x2,-0x6
0685 0217 | | Execute Heap_Access,All_Reference
0686 2e11 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x11
0687 85fd | | Call 0x2,-0x3
0688 e5fb | | Load 0x2,-0x5
0689 0119 | | Execute Any,Check_In_Formal_Type
068a 4406 |D | Exit_Subprogram With_Result,0x6
068b 00db | | Load_Top At_Offset_3
068c 00d8 | | Load_Top At_Offset_0
068d 0120 | | Execute Any,Is_Value
068e 7002 |p | Jump_Nonzero 0x691
068f 00d8 | | Load_Top At_Offset_0
0690 011e | | Execute Any,Convert
0691 e5fb | | Load 0x2,-0x5
0692 0119 | | Execute Any,Check_In_Formal_Type
0693 4406 |D | Exit_Subprogram With_Result,0x6
0694 0000 0000 | | .BLANK 0000[0x4]
0698 ; --------------------------------------------------------------------------------------
0698 ; SUBPROGRAM
0698 ; --------------------------------------------------------------------------------------
0698 069d | | .CONST 0x069d ; Address of begin
0699 0004 | | .CONST 0x0004 ; Address of exception handler
069a 0002 | | .CONST 0x0002 ; Number of locals
069b INIT_0698:
069b e20e | | Load 0x1,0xe
069c 0007 | | Action Break_Optional
069d BODY_0698:
069d e5fe | | Load 0x2,-0x2
069e 00d8 | | Load_Top At_Offset_0
069f e241 | A | Load 0x1,0x41
06a0 1c06 | | Execute_Immediate Run_Utility,0x6
06a1 e20e | | Load 0x1,0xe
06a2 e00e | | Load 0x0,0xe
06a3 180d | | Execute Package,Field_Execute,Field_Number 0xd
06a4 039a | | Declare_Variable Heap_Access,By_Allocation,With_Constraint
06a5 00d8 | | Load_Top At_Offset_0
06a6 0217 | | Execute Heap_Access,All_Reference
06a7 1c00 | | Execute_Immediate Run_Utility,0x0
06a8 0031 | 1 | Store_Top Heap_Access,At_Offset_1
06a9 e5fe | | Load 0x2,-0x2
06aa 0af4 | | Execute_Immediate Plus,-0xc
06ab 4602 |F | Jump_Case 0x2
06ac 7807 |x | Jump 0x6b4 ; case 0x0
06ad 7810 |x | Jump 0x6be ; case 0x1
06ae 7800 |x | Jump 0x6af ; case 0x2
06af e5fc | | Load 0x2,-0x4
06b0 00d9 | | Load_Top At_Offset_1
06b1 0217 | | Execute Heap_Access,All_Reference
06b2 2a10 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x10
06b3 7813 |x | Jump 0x6c7
06b4 e5fc | | Load 0x2,-0x4
06b5 00d8 | | Load_Top At_Offset_0
06b6 00e2 | | Load_Encached Integer_Cache
06b7 0260 | ` | Execute Discrete,In_Type
06b8 7001 |p | Jump_Nonzero 0x6ba
06b9 0801 | | Execute_Immediate Raise,0x1
06ba 00d9 | | Load_Top At_Offset_1
06bb 0217 | | Execute Heap_Access,All_Reference
06bc 2a0e |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0xe
06bd 7809 |x | Jump 0x6c7
06be e5fc | | Load 0x2,-0x4
06bf 00d8 | | Load_Top At_Offset_0
06c0 00e2 | | Load_Encached Integer_Cache
06c1 0260 | ` | Execute Discrete,In_Type
06c2 7001 |p | Jump_Nonzero 0x6c4
06c3 0801 | | Execute_Immediate Raise,0x1
06c4 00d9 | | Load_Top At_Offset_1
06c5 0217 | | Execute Heap_Access,All_Reference
06c6 2a0f |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0xf
06c7 00d8 | | Load_Top At_Offset_0
06c8 4404 |D | Exit_Subprogram With_Result,0x4
06c9 0000 0000 | | .BLANK 0000[0x7]
06d0 ; --------------------------------------------------------------------------------------
06d0 ; SUBPROGRAM
06d0 ; --------------------------------------------------------------------------------------
06d0 06d3 | | .CONST 0x06d3 ; Address of begin
06d1 070d | | .CONST 0x070d ; Address of exception handler
06d2 0001 | | .CONST 0x0001 ; Number of locals
06d3 BODY_06d0:
06d3 INIT_06d0:
06d3 e5fb | | Load 0x2,-0x5
06d4 0217 | | Execute Heap_Access,All_Reference
06d5 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
06d6 00d8 | | Load_Top At_Offset_0
06d7 e23b | ; | Load 0x1,0x3b
06d8 0260 | ` | Execute Discrete,In_Type
06d9 7001 |p | Jump_Nonzero 0x6db
06da 0801 | | Execute_Immediate Raise,0x1
06db 0af4 | | Execute_Immediate Plus,-0xc
06dc 4602 |F | Jump_Case 0x2
06dd 7811 |x | Jump 0x6ef ; case 0x0
06de 781f |x | Jump 0x6fe ; case 0x1
06df 7800 |x | Jump 0x6e0 ; case 0x2
06e0 e5fb | | Load 0x2,-0x5
06e1 0217 | | Execute Heap_Access,All_Reference
06e2 2e10 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x10
06e3 00d8 | | Load_Top At_Offset_0
06e4 e5fc | | Load 0x2,-0x4
06e5 0122 | " | Execute Any,Make_Root_Type
06e6 0260 | ` | Execute Discrete,In_Type
06e7 7001 |p | Jump_Nonzero 0x6e9
06e8 0801 | | Execute_Immediate Raise,0x1
06e9 00d8 | | Load_Top At_Offset_0
06ea e5fc | | Load 0x2,-0x4
06eb 0260 | ` | Execute Discrete,In_Type
06ec 7001 |p | Jump_Nonzero 0x6ee
06ed 0801 | | Execute_Immediate Raise,0x1
06ee 4405 |D | Exit_Subprogram With_Result,0x5
06ef e5fb | | Load 0x2,-0x5
06f0 0217 | | Execute Heap_Access,All_Reference
06f1 2e0e |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xe
06f2 00d8 | | Load_Top At_Offset_0
06f3 e5fc | | Load 0x2,-0x4
06f4 0122 | " | Execute Any,Make_Root_Type
06f5 0260 | ` | Execute Discrete,In_Type
06f6 7001 |p | Jump_Nonzero 0x6f8
06f7 0801 | | Execute_Immediate Raise,0x1
06f8 00d8 | | Load_Top At_Offset_0
06f9 e5fc | | Load 0x2,-0x4
06fa 0260 | ` | Execute Discrete,In_Type
06fb 7001 |p | Jump_Nonzero 0x6fd
06fc 0801 | | Execute_Immediate Raise,0x1
06fd 4405 |D | Exit_Subprogram With_Result,0x5
06fe e5fb | | Load 0x2,-0x5
06ff 0217 | | Execute Heap_Access,All_Reference
0700 2e0f |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xf
0701 00d8 | | Load_Top At_Offset_0
0702 e5fc | | Load 0x2,-0x4
0703 0122 | " | Execute Any,Make_Root_Type
0704 0260 | ` | Execute Discrete,In_Type
0705 7001 |p | Jump_Nonzero 0x707
0706 0801 | | Execute_Immediate Raise,0x1
0707 00d8 | | Load_Top At_Offset_0
0708 e5fc | | Load 0x2,-0x4
0709 0260 | ` | Execute Discrete,In_Type
070a 7001 |p | Jump_Nonzero 0x70c
070b 0801 | | Execute_Immediate Raise,0x1
070c 4405 |D | Exit_Subprogram With_Result,0x5
070d TRAP_06d0:
070d 010e | | Execute Exception,Is_Constraint_Error
070e 6807 |h | Jump_Zero 0x716
070f e5fe | | Load 0x2,-0x2
0710 00d8 | | Load_Top At_Offset_0
0711 e5fc | | Load 0x2,-0x4
0712 0260 | ` | Execute Discrete,In_Type
0713 7001 |p | Jump_Nonzero 0x715
0714 0801 | | Execute_Immediate Raise,0x1
0715 4405 |D | Exit_Subprogram With_Result,0x5
0716 0100 | | Execute Exception,Raise
0717 0000 | | .XXX[0x1]
0718 ; --------------------------------------------------------------------------------------
0718 ; SUBPROGRAM
0718 ; SUBPROGRAM
0718 ; --------------------------------------------------------------------------------------
0718 071b | | .CONST 0x071b ; Address of begin
; Address of begin
0719 0004 | | .CONST 0x0004 ; Address of exception handler
; Address of exception handler
071a 0001 | | .CONST 0x0001 ; Number of locals
; Number of locals
071b BODY_0718:
071b BODY_0718:
071b INIT_0718:
071b INIT_0718:
071b 4608 |F | Jump_Case 0x8
071c 7808 |x | Jump 0x725 ; case 0x0
071d 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x1
071e 78c4 |x | Jump 0x7e3 ; case 0x2
071f 78c3 |x | Jump 0x7e3 ; case 0x3
0720 78c2 |x | Jump 0x7e3 ; case 0x4
0721 78c1 |x | Jump 0x7e3 ; case 0x5
0722 7838 |x8 | Jump 0x75b ; case 0x6
0723 7876 |xv | Jump 0x79a ; case 0x7
0724 78b7 |x | Jump 0x7dc ; case 0x8
0725 00da | | Load_Top At_Offset_2
0726 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0727 461a |F | Jump_Case 0x1a
0728 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x0
0729 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x1
072a 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x2
072b 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x3
072c 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x4
072d 7815 |x | Jump 0x743 ; case 0x5
072e 781a |x | Jump 0x749 ; case 0x6
072f 781f |x | Jump 0x74f ; case 0x7
0730 7824 |x$ | Jump 0x755 ; case 0x8
0731 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x9
0732 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0xa
0733 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0xb
0734 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0xc
0735 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0xd
0736 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0xe
0737 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0xf
0738 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x10
0739 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x11
073a 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x12
073b 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x13
073c 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x14
073d 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x15
073e 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x16
073f 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x17
0740 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x18
0741 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x19
0742 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x1a
0743 00da | | Load_Top At_Offset_2
0744 2206 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x6
0745 00da | | Load_Top At_Offset_2
0746 2606 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x6
0747 1c00 | | Execute_Immediate Run_Utility,0x0
0748 4302 |C | Exit_Subprogram From_Utility,0x2
0749 00da | | Load_Top At_Offset_2
074a 2207 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x7
074b 00da | | Load_Top At_Offset_2
074c 2607 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x7
074d 1c00 | | Execute_Immediate Run_Utility,0x0
074e 4302 |C | Exit_Subprogram From_Utility,0x2
074f 00da | | Load_Top At_Offset_2
0750 2208 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x8
0751 00da | | Load_Top At_Offset_2
0752 2608 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x8
0753 1c00 | | Execute_Immediate Run_Utility,0x0
0754 4302 |C | Exit_Subprogram From_Utility,0x2
0755 00da | | Load_Top At_Offset_2
0756 2209 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x9
0757 00da | | Load_Top At_Offset_2
0758 2609 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x9
0759 1c00 | | Execute_Immediate Run_Utility,0x0
075a 4302 |C | Exit_Subprogram From_Utility,0x2
075b 00db | | Load_Top At_Offset_3
075c 461a |F | Jump_Case 0x1a
075d 783a |x: | Jump 0x798 ; case 0x0
075e 781b |x | Jump 0x77a ; case 0x1
075f 781c |x | Jump 0x77c ; case 0x2
0760 781d |x | Jump 0x77e ; case 0x3
0761 781e |x | Jump 0x780 ; case 0x4
0762 781f |x | Jump 0x782 ; case 0x5
0763 7820 |x | Jump 0x784 ; case 0x6
0764 7821 |x! | Jump 0x786 ; case 0x7
0765 7822 |x" | Jump 0x788 ; case 0x8
0766 7823 |x# | Jump 0x78a ; case 0x9
0767 7824 |x$ | Jump 0x78c ; case 0xa
0768 7825 |x% | Jump 0x78e ; case 0xb
0769 7826 |x& | Jump 0x790 ; case 0xc
076a 7827 |x' | Jump 0x792 ; case 0xd
076b 7828 |x( | Jump 0x794 ; case 0xe
076c 7829 |x) | Jump 0x796 ; case 0xf
076d 7828 |x( | Jump 0x796 ; case 0x10
076e 7827 |x' | Jump 0x796 ; case 0x11
076f 7826 |x& | Jump 0x796 ; case 0x12
0770 7825 |x% | Jump 0x796 ; case 0x13
0771 7824 |x$ | Jump 0x796 ; case 0x14
0772 7823 |x# | Jump 0x796 ; case 0x15
0773 7804 |x | Jump 0x778 ; case 0x16
0774 7803 |x | Jump 0x778 ; case 0x17
0775 7802 |x | Jump 0x778 ; case 0x18
0776 7801 |x | Jump 0x778 ; case 0x19
0777 7800 |x | Jump 0x778 ; case 0x1a
0778 4810 |H | Short_Literal 0x10
0779 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
077a 4801 |H | Short_Literal 0x1
077b 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
077c 4802 |H | Short_Literal 0x2
077d 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
077e 4803 |H | Short_Literal 0x3
077f 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0780 4804 |H | Short_Literal 0x4
0781 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0782 4805 |H | Short_Literal 0x5
0783 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0784 4806 |H | Short_Literal 0x6
0785 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0786 4807 |H | Short_Literal 0x7
0787 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0788 4808 |H | Short_Literal 0x8
0789 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
078a 4809 |H | Short_Literal 0x9
078b 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
078c 480a |H | Short_Literal 0xa
078d 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
078e 480b |H | Short_Literal 0xb
078f 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0790 480c |H | Short_Literal 0xc
0791 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0792 480d |H | Short_Literal 0xd
0793 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0794 480e |H | Short_Literal 0xe
0795 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0796 480f |H | Short_Literal 0xf
0797 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0798 48ff |H | Short_Literal 0xff
0799 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
079a 00db | | Load_Top At_Offset_3
079b e5fe | | Load 0x2,-0x2
079c 461a |F | Jump_Case 0x1a
079d 781c |x | Jump 0x7ba ; case 0x0
079e 781d |x | Jump 0x7bc ; case 0x1
079f 781e |x | Jump 0x7be ; case 0x2
07a0 781f |x | Jump 0x7c0 ; case 0x3
07a1 7820 |x | Jump 0x7c2 ; case 0x4
07a2 7821 |x! | Jump 0x7c4 ; case 0x5
07a3 7822 |x" | Jump 0x7c6 ; case 0x6
07a4 7823 |x# | Jump 0x7c8 ; case 0x7
07a5 7824 |x$ | Jump 0x7ca ; case 0x8
07a6 7825 |x% | Jump 0x7cc ; case 0x9
07a7 7826 |x& | Jump 0x7ce ; case 0xa
07a8 7827 |x' | Jump 0x7d0 ; case 0xb
07a9 7828 |x( | Jump 0x7d2 ; case 0xc
07aa 7829 |x) | Jump 0x7d4 ; case 0xd
07ab 782a |x* | Jump 0x7d6 ; case 0xe
07ac 782b |x+ | Jump 0x7d8 ; case 0xf
07ad 782a |x* | Jump 0x7d8 ; case 0x10
07ae 7829 |x) | Jump 0x7d8 ; case 0x11
07af 7828 |x( | Jump 0x7d8 ; case 0x12
07b0 7827 |x' | Jump 0x7d8 ; case 0x13
07b1 7826 |x& | Jump 0x7d8 ; case 0x14
07b2 7825 |x% | Jump 0x7d8 ; case 0x15
07b3 7804 |x | Jump 0x7b8 ; case 0x16
07b4 7803 |x | Jump 0x7b8 ; case 0x17
07b5 7802 |x | Jump 0x7b8 ; case 0x18
07b6 7801 |x | Jump 0x7b8 ; case 0x19
07b7 7800 |x | Jump 0x7b8 ; case 0x1a
07b8 4810 |H | Short_Literal 0x10
07b9 781f |x | Jump 0x7d9
07ba 48ff |H | Short_Literal 0xff
07bb 781d |x | Jump 0x7d9
07bc 4801 |H | Short_Literal 0x1
07bd 781b |x | Jump 0x7d9
07be 4802 |H | Short_Literal 0x2
07bf 7819 |x | Jump 0x7d9
07c0 4803 |H | Short_Literal 0x3
07c1 7817 |x | Jump 0x7d9
07c2 4804 |H | Short_Literal 0x4
07c3 7815 |x | Jump 0x7d9
07c4 4805 |H | Short_Literal 0x5
07c5 7813 |x | Jump 0x7d9
07c6 4806 |H | Short_Literal 0x6
07c7 7811 |x | Jump 0x7d9
07c8 4807 |H | Short_Literal 0x7
07c9 780f |x | Jump 0x7d9
07ca 4808 |H | Short_Literal 0x8
07cb 780d |x | Jump 0x7d9
07cc 4809 |H | Short_Literal 0x9
07cd 780b |x | Jump 0x7d9
07ce 480a |H | Short_Literal 0xa
07cf 7809 |x | Jump 0x7d9
07d0 480b |H | Short_Literal 0xb
07d1 7807 |x | Jump 0x7d9
07d2 480c |H | Short_Literal 0xc
07d3 7805 |x | Jump 0x7d9
07d4 480d |H | Short_Literal 0xd
07d5 7803 |x | Jump 0x7d9
07d6 480e |H | Short_Literal 0xe
07d7 7801 |x | Jump 0x7d9
07d8 480f |H | Short_Literal 0xf
07d9 e5ff | | Load 0x2,-0x1
07da 031b | | Declare_Type Variant_Record,Constrained
07db 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
07dc 00db | | Load_Top At_Offset_3
07dd e5fe | | Load 0x2,-0x2
07de e5ff | | Load 0x2,-0x1
07df 1c06 | | Execute_Immediate Run_Utility,0x6
07e0 e5ff | | Load 0x2,-0x1
07e1 02fc | | Declare_Variable Variant_Record,With_Constraint
07e2 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
07e3 0869 | i | Execute_Immediate Raise,0x69
07e4 0000 0000 | | .BLANK 0000[0x4]
07e8 ; --------------------------------------------------------------------------------------
07e8 ; SUBPROGRAM
07e8 ; --------------------------------------------------------------------------------------
07e8 07eb | | .CONST 0x07eb ; Address of begin
07e9 0004 | | .CONST 0x0004 ; Address of exception handler
07ea 0001 | | .CONST 0x0001 ; Number of locals
07eb BODY_07e8:
07eb INIT_07e8:
07eb 00da | | Load_Top At_Offset_2
07ec 7003 |p | Jump_Nonzero 0x7f0
07ed 0092 0b49 | I| Action Push_String_Extended,0xb49 ; "<>"
07ef 4401 |D | Exit_Subprogram With_Result,0x1
07f0 00da | | Load_Top At_Offset_2
07f1 0217 | | Execute Heap_Access,All_Reference
07f2 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
07f3 461a |F | Jump_Case 0x1a
07f4 782b |x+ | Jump 0x820 ; case 0x0
07f5 782d |x- | Jump 0x823 ; case 0x1
07f6 7833 |x3 | Jump 0x82a ; case 0x2
07f7 7838 |x8 | Jump 0x830 ; case 0x3
07f8 783d |x= | Jump 0x836 ; case 0x4
07f9 7842 |xB | Jump 0x83c ; case 0x5
07fa 7847 |xG | Jump 0x842 ; case 0x6
07fb 784c |xL | Jump 0x848 ; case 0x7
07fc 7851 |xQ | Jump 0x84e ; case 0x8
07fd 7856 |xV | Jump 0x854 ; case 0x9
07fe 785b |x[ | Jump 0x85a ; case 0xa
07ff 7862 |xb | Jump 0x862 ; case 0xb
0800 7887 |x | Jump 0x888 ; case 0xc
0801 788c |x | Jump 0x88e ; case 0xd
0802 7891 |x | Jump 0x894 ; case 0xe
0803 7896 |x | Jump 0x89a ; case 0xf
0804 789d |x | Jump 0x8a2 ; case 0x10
0805 78a4 |x | Jump 0x8aa ; case 0x11
0806 78ab |x | Jump 0x8b2 ; case 0x12
0807 78b2 |x | Jump 0x8ba ; case 0x13
0808 78b7 |x | Jump 0x8c0 ; case 0x14
0809 78bc |x | Jump 0x8c6 ; case 0x15
080a 7804 |x | Jump 0x80f ; case 0x16
080b 7803 |x | Jump 0x80f ; case 0x17
080c 7802 |x | Jump 0x80f ; case 0x18
080d 7801 |x | Jump 0x80f ; case 0x19
080e 7800 |x | Jump 0x80f ; case 0x1a
080f 00da | | Load_Top At_Offset_2
0810 00db | | Load_Top At_Offset_3
0811 0217 | | Execute Heap_Access,All_Reference
0812 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0813 e246 | F | Load 0x1,0x46
0814 01d7 | | Execute Vector,Field_Read
0815 e017 | | Load 0x0,0x17
0816 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0817 00d8 | | Load_Top At_Offset_0
0818 e017 | | Load 0x0,0x17
0819 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
081a 7003 |p | Jump_Nonzero 0x81e
081b e001 | | Load 0x0,0x1
081c 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
081d 0257 | W | Execute Discrete,Raise
081e 1810 | | Execute Package,Field_Execute,Field_Number 0x10
081f 4401 |D | Exit_Subprogram With_Result,0x1
0820 0092 0b49 | I| Action Push_String_Extended,0xb49 ; "<>"
0822 4401 |D | Exit_Subprogram With_Result,0x1
0823 00da | | Load_Top At_Offset_2
0824 0217 | | Execute Heap_Access,All_Reference
0825 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
0826 0217 | | Execute Heap_Access,All_Reference
0827 0335 | 5 | Declare_Variable Array,Duplicate
0828 00cd | | Action Spare6_Action
0829 4401 |D | Exit_Subprogram With_Result,0x1
082a 00da | | Load_Top At_Offset_2
082b 0217 | | Execute Heap_Access,All_Reference
082c 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
082d e018 | | Load 0x0,0x18
082e 180e | | Execute Package,Field_Execute,Field_Number 0xe
082f 4401 |D | Exit_Subprogram With_Result,0x1
0830 00da | | Load_Top At_Offset_2
0831 0217 | | Execute Heap_Access,All_Reference
0832 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
0833 e018 | | Load 0x0,0x18
0834 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0835 4401 |D | Exit_Subprogram With_Result,0x1
0836 00da | | Load_Top At_Offset_2
0837 0217 | | Execute Heap_Access,All_Reference
0838 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
0839 e018 | | Load 0x0,0x18
083a 1814 | | Execute Package,Field_Execute,Field_Number 0x14
083b 4401 |D | Exit_Subprogram With_Result,0x1
083c 00da | | Load_Top At_Offset_2
083d 0217 | | Execute Heap_Access,All_Reference
083e 2e06 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
083f e018 | | Load 0x0,0x18
0840 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0841 4401 |D | Exit_Subprogram With_Result,0x1
0842 00da | | Load_Top At_Offset_2
0843 0217 | | Execute Heap_Access,All_Reference
0844 2e07 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7
0845 e018 | | Load 0x0,0x18
0846 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0847 4401 |D | Exit_Subprogram With_Result,0x1
0848 00da | | Load_Top At_Offset_2
0849 0217 | | Execute Heap_Access,All_Reference
084a 2608 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x8
084b e018 | | Load 0x0,0x18
084c 181d | | Execute Package,Field_Execute,Field_Number 0x1d
084d 4401 |D | Exit_Subprogram With_Result,0x1
084e 00da | | Load_Top At_Offset_2
084f 0217 | | Execute Heap_Access,All_Reference
0850 2e09 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x9
0851 e018 | | Load 0x0,0x18
0852 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0853 4401 |D | Exit_Subprogram With_Result,0x1
0854 00da | | Load_Top At_Offset_2
0855 0217 | | Execute Heap_Access,All_Reference
0856 2e0a |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xa
0857 e018 | | Load 0x0,0x18
0858 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
0859 4401 |D | Exit_Subprogram With_Result,0x1
085a 00da | | Load_Top At_Offset_2
085b 0217 | | Execute Heap_Access,All_Reference
085c 2e0b |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xb
085d e004 | | Load 0x0,0x4
085e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
085f 011c | | Execute Any,Convert_Unchecked
0860 1c01 | | Execute_Immediate Run_Utility,0x1
0861 4401 |D | Exit_Subprogram With_Result,0x1
0862 00da | | Load_Top At_Offset_2
0863 0217 | | Execute Heap_Access,All_Reference
0864 2e0d |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xd
0865 7009 |p | Jump_Nonzero 0x86f
0866 00da | | Load_Top At_Offset_2
0867 0217 | | Execute Heap_Access,All_Reference
0868 2e0c |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xc
0869 e004 | | Load 0x0,0x4
086a 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
086b 1b0f | | Execute Package,Field_Read,Field_Number 0xf
086c 011c | | Execute Any,Convert_Unchecked
086d 1c01 | | Execute_Immediate Run_Utility,0x1
086e 4401 |D | Exit_Subprogram With_Result,0x1
086f 605c |`\ | Indirect_Literal Discrete,0x8cc,{0x00000000, 0x00004000}
0870 e019 | | Load 0x0,0x19
0871 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0872 e01a | | Load 0x0,0x1a
0873 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0874 e01b | | Load 0x0,0x1b
0875 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0876 4801 |H | Short_Literal 0x1
0877 4800 |H | Short_Literal 0x0
0878 e01a | | Load 0x0,0x1a
0879 1811 | | Execute Package,Field_Execute,Field_Number 0x11
087a e004 | | Load 0x0,0x4
087b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
087c 1816 | | Execute Package,Field_Execute,Field_Number 0x16
087d e5ff | | Load 0x2,-0x1
087e 0217 | | Execute Heap_Access,All_Reference
087f 2e0d |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xd
0880 0217 | | Execute Heap_Access,All_Reference
0881 e5ff | | Load 0x2,-0x1
0882 0217 | | Execute Heap_Access,All_Reference
0883 2e0c |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xc
0884 e004 | | Load 0x0,0x4
0885 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0886 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51
0887 4401 |D | Exit_Subprogram With_Result,0x1
0888 00da | | Load_Top At_Offset_2
0889 0217 | | Execute Heap_Access,All_Reference
088a 2e0e |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xe
088b e005 | | Load 0x0,0x5
088c 1811 | | Execute Package,Field_Execute,Field_Number 0x11
088d 4401 |D | Exit_Subprogram With_Result,0x1
088e 00da | | Load_Top At_Offset_2
088f 0217 | | Execute Heap_Access,All_Reference
0890 2e0f |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xf
0891 e005 | | Load 0x0,0x5
0892 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0893 4401 |D | Exit_Subprogram With_Result,0x1
0894 00da | | Load_Top At_Offset_2
0895 0217 | | Execute Heap_Access,All_Reference
0896 2e10 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x10
0897 e006 | | Load 0x0,0x6
0898 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
0899 4401 |D | Exit_Subprogram With_Result,0x1
089a 00da | | Load_Top At_Offset_2
089b e002 | | Load 0x0,0x2
089c 1b14 | | Execute Package,Field_Read,Field_Number 0x14
089d 1811 | | Execute Package,Field_Execute,Field_Number 0x11
089e e002 | | Load 0x0,0x2
089f 1b14 | | Execute Package,Field_Read,Field_Number 0x14
08a0 1812 | | Execute Package,Field_Execute,Field_Number 0x12
08a1 4401 |D | Exit_Subprogram With_Result,0x1
08a2 00da | | Load_Top At_Offset_2
08a3 e002 | | Load 0x0,0x2
08a4 1b15 | | Execute Package,Field_Read,Field_Number 0x15
08a5 181c | | Execute Package,Field_Execute,Field_Number 0x1c
08a6 e002 | | Load 0x0,0x2
08a7 1b15 | | Execute Package,Field_Read,Field_Number 0x15
08a8 181d | | Execute Package,Field_Execute,Field_Number 0x1d
08a9 4401 |D | Exit_Subprogram With_Result,0x1
08aa 00da | | Load_Top At_Offset_2
08ab e002 | | Load 0x0,0x2
08ac 1b16 | | Execute Package,Field_Read,Field_Number 0x16
08ad 185b | [ | Execute Package,Field_Execute,Field_Number 0x5b
08ae e002 | | Load 0x0,0x2
08af 1b16 | | Execute Package,Field_Read,Field_Number 0x16
08b0 185c | \ | Execute Package,Field_Execute,Field_Number 0x5c
08b1 4401 |D | Exit_Subprogram With_Result,0x1
08b2 00da | | Load_Top At_Offset_2
08b3 e002 | | Load 0x0,0x2
08b4 1b16 | | Execute Package,Field_Read,Field_Number 0x16
08b5 1843 | C | Execute Package,Field_Execute,Field_Number 0x43
08b6 e002 | | Load 0x0,0x2
08b7 1b16 | | Execute Package,Field_Read,Field_Number 0x16
08b8 1844 | D | Execute Package,Field_Execute,Field_Number 0x44
08b9 4401 |D | Exit_Subprogram With_Result,0x1
08ba 00da | | Load_Top At_Offset_2
08bb e01c | | Load 0x0,0x1c
08bc 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
08bd e01c | | Load 0x0,0x1c
08be 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
08bf 4401 |D | Exit_Subprogram With_Result,0x1
08c0 00da | | Load_Top At_Offset_2
08c1 e01d | | Load 0x0,0x1d
08c2 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
08c3 e01d | | Load 0x0,0x1d
08c4 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
08c5 4401 |D | Exit_Subprogram With_Result,0x1
08c6 00da | | Load_Top At_Offset_2
08c7 e01d | | Load 0x0,0x1d
08c8 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
08c9 e01d | | Load 0x0,0x1d
08ca 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
08cb 4401 |D | Exit_Subprogram With_Result,0x1
08cc 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
08d0 ; --------------------------------------------------------------------------------------
08d0 ; SUBPROGRAM
08d0 ; --------------------------------------------------------------------------------------
08d0 08d3 | | .CONST 0x08d3 ; Address of begin
08d1 0004 | | .CONST 0x0004 ; Address of exception handler
08d2 0001 | | .CONST 0x0001 ; Number of locals
08d3 BODY_08d0:
08d3 INIT_08d0:
08d3 00da | | Load_Top At_Offset_2
08d4 461a |F | Jump_Case 0x1a
08d5 7862 |xb | Jump 0x938 ; case 0x0
08d6 7829 |x) | Jump 0x900 ; case 0x1
08d7 782b |x+ | Jump 0x903 ; case 0x2
08d8 782f |x/ | Jump 0x908 ; case 0x3
08d9 7833 |x3 | Jump 0x90d ; case 0x4
08da 7837 |x7 | Jump 0x912 ; case 0x5
08db 783b |x; | Jump 0x917 ; case 0x6
08dc 783f |x? | Jump 0x91c ; case 0x7
08dd 7843 |xC | Jump 0x921 ; case 0x8
08de 7847 |xG | Jump 0x926 ; case 0x9
08df 784b |xK | Jump 0x92b ; case 0xa
08e0 7850 |xP | Jump 0x931 ; case 0xb
08e1 7858 |xX | Jump 0x93a ; case 0xc
08e2 7857 |xW | Jump 0x93a ; case 0xd
08e3 7856 |xV | Jump 0x93a ; case 0xe
08e4 7855 |xU | Jump 0x93a ; case 0xf
08e5 7854 |xT | Jump 0x93a ; case 0x10
08e6 7853 |xS | Jump 0x93a ; case 0x11
08e7 7852 |xR | Jump 0x93a ; case 0x12
08e8 7851 |xQ | Jump 0x93a ; case 0x13
08e9 7850 |xP | Jump 0x93a ; case 0x14
08ea 784f |xO | Jump 0x93a ; case 0x15
08eb 7804 |x | Jump 0x8f0 ; case 0x16
08ec 7803 |x | Jump 0x8f0 ; case 0x17
08ed 7802 |x | Jump 0x8f0 ; case 0x18
08ee 7801 |x | Jump 0x8f0 ; case 0x19
08ef 7800 |x | Jump 0x8f0 ; case 0x1a
08f0 e5fd | | Load 0x2,-0x3
08f1 e5fe | | Load 0x2,-0x2
08f2 e5ff | | Load 0x2,-0x1
08f3 e246 | F | Load 0x1,0x46
08f4 01d7 | | Execute Vector,Field_Read
08f5 e017 | | Load 0x0,0x17
08f6 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
08f7 00d8 | | Load_Top At_Offset_0
08f8 e017 | | Load 0x0,0x17
08f9 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
08fa 7003 |p | Jump_Nonzero 0x8fe
08fb e001 | | Load 0x0,0x1
08fc 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
08fd 0257 | W | Execute Discrete,Raise
08fe 1811 | | Execute Package,Field_Execute,Field_Number 0x11
08ff 4403 |D | Exit_Subprogram With_Result,0x3
0900 00db | | Load_Top At_Offset_3
0901 8210 | | Call 0x1,0x10
0902 4403 |D | Exit_Subprogram With_Result,0x3
0903 00db | | Load_Top At_Offset_3
0904 e018 | | Load 0x0,0x18
0905 180f | | Execute Package,Field_Execute,Field_Number 0xf
0906 8212 | | Call 0x1,0x12
0907 4403 |D | Exit_Subprogram With_Result,0x3
0908 00db | | Load_Top At_Offset_3
0909 e018 | | Load 0x0,0x18
090a 1812 | | Execute Package,Field_Execute,Field_Number 0x12
090b 8214 | | Call 0x1,0x14
090c 4403 |D | Exit_Subprogram With_Result,0x3
090d 00db | | Load_Top At_Offset_3
090e e018 | | Load 0x0,0x18
090f 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0910 8216 | | Call 0x1,0x16
0911 4403 |D | Exit_Subprogram With_Result,0x3
0912 00db | | Load_Top At_Offset_3
0913 e018 | | Load 0x0,0x18
0914 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0915 8218 | | Call 0x1,0x18
0916 4403 |D | Exit_Subprogram With_Result,0x3
0917 00db | | Load_Top At_Offset_3
0918 e018 | | Load 0x0,0x18
0919 181b | | Execute Package,Field_Execute,Field_Number 0x1b
091a 821a | | Call 0x1,0x1a
091b 4403 |D | Exit_Subprogram With_Result,0x3
091c 00db | | Load_Top At_Offset_3
091d e018 | | Load 0x0,0x18
091e 181e | | Execute Package,Field_Execute,Field_Number 0x1e
091f 821c | | Call 0x1,0x1c
0920 4403 |D | Exit_Subprogram With_Result,0x3
0921 00db | | Load_Top At_Offset_3
0922 e018 | | Load 0x0,0x18
0923 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0924 821e | | Call 0x1,0x1e
0925 4403 |D | Exit_Subprogram With_Result,0x3
0926 00db | | Load_Top At_Offset_3
0927 e018 | | Load 0x0,0x18
0928 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0929 8220 | | Call 0x1,0x20
092a 4403 |D | Exit_Subprogram With_Result,0x3
092b 00db | | Load_Top At_Offset_3
092c e004 | | Load 0x0,0x4
092d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
092e 1c02 | | Execute_Immediate Run_Utility,0x2
092f 8222 | " | Call 0x1,0x22
0930 4403 |D | Exit_Subprogram With_Result,0x3
0931 00db | | Load_Top At_Offset_3
0932 e004 | | Load 0x0,0x4
0933 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0934 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0935 1c02 | | Execute_Immediate Run_Utility,0x2
0936 8224 | $ | Call 0x1,0x24
0937 4403 |D | Exit_Subprogram With_Result,0x3
0938 e20e | | Load 0x1,0xe
0939 4403 |D | Exit_Subprogram With_Result,0x3
093a 0831 | 1 | Execute_Immediate Raise,0x31
093b 0000 0000 | | .BLANK 0000[0x5]
0940 ; --------------------------------------------------------------------------------------
0940 ; SUBPROGRAM
0940 ; --------------------------------------------------------------------------------------
0940 0949 | I | .CONST 0x0949 ; Address of begin
0941 0004 | | .CONST 0x0004 ; Address of exception handler
0942 0002 | | .CONST 0x0002 ; Number of locals
0943 INIT_0940:
0943 00da | | Load_Top At_Offset_2
0944 0217 | | Execute Heap_Access,All_Reference
0945 01da | | Execute Vector,Bounds
0946 e20f | | Load 0x1,0xf
0947 035b | [ | Declare_Type Array,Constrained
0948 0337 | 7 | Declare_Variable Array
0949 BODY_0940:
0949 00cf | | Action Mark_Auxiliary
094a 00d9 | | Load_Top At_Offset_1
094b 01d9 | | Execute Vector,Reverse_Bounds
094c 0263 | c | Execute Discrete,Above_Bound
094d 7009 |p | Jump_Nonzero 0x957
094e 00d8 | | Load_Top At_Offset_0
094f e5ff | | Load 0x2,-0x1
0950 0217 | | Execute Heap_Access,All_Reference
0951 01d7 | | Execute Vector,Field_Read
0952 00d9 | | Load_Top At_Offset_1
0953 e402 | | Load 0x2,0x2
0954 01d6 | | Execute Vector,Field_Write
0955 00c8 | | Action Pop_Auxiliary_Range
0956 3ff7 |? | Loop_Increasing 0x94e
0957 00ce | | Action Pop_Auxiliary
0958 00d8 | | Load_Top At_Offset_0
0959 e20f | | Load 0x1,0xf
095a 01c6 | | Execute Vector,Convert_To_Formal
095b 4401 |D | Exit_Subprogram With_Result,0x1
095c 0000 0000 | | .BLANK 0000[0x4]
0960 ; --------------------------------------------------------------------------------------
0960 ; SUBPROGRAM
0960 ; --------------------------------------------------------------------------------------
0960 0995 | | .CONST 0x0995 ; Address of begin
0961 0004 | | .CONST 0x0004 ; Address of exception handler
0962 000c | | .CONST 0x000c ; Number of locals
0963 INIT_0960:
0963 4801 |H | Short_Literal 0x1
0964 00db | | Load_Top At_Offset_3
0965 0217 | | Execute Heap_Access,All_Reference
0966 2e13 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x13
0967 00e1 | | Load_Encached Boolean_Cache
0968 02a0 | | Declare_Subprogram Null_Subprogram
0969 4801 |H | Short_Literal 0x1
096a 035d | ] | Declare_Type Array,Defined
096b 00d8 | | Load_Top At_Offset_0
096c 02a0 | | Declare_Subprogram Null_Subprogram
096d 03ad | | Declare_Type Heap_Access,Defined
096e e009 | | Load 0x0,0x9
096f 1919 | | Execute Package,Field_Reference,Field_Number 0x19
0970 00c6 | | Action Check_Subprogram_Elaborated
0971 00d9 | | Load_Top At_Offset_1
0972 00d9 | | Load_Top At_Offset_1
0973 e01e | | Load 0x0,0x1e
0974 e01f | | Load 0x0,0x1f
0975 4808 |H | Short_Literal 0x8
0976 0007 | | Action Break_Optional
0977 e020 | | Load 0x0,0x20
0978 e021 | ! | Load 0x0,0x21
0979 e402 | | Load 0x2,0x2
097a e403 | | Load 0x2,0x3
097b e009 | | Load 0x0,0x9
097c 1b18 | | Execute Package,Field_Read,Field_Number 0x18
097d 0387 | | Declare_Variable Package
097e 00d8 | | Load_Top At_Offset_0
097f 020f | | Execute Module,Activate
0980 e5ff | | Load 0x2,-0x1
0981 e24b | K | Load 0x1,0x4b
0982 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0983 e5ff | | Load 0x2,-0x1
0984 0217 | | Execute Heap_Access,All_Reference
0985 2e12 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x12
0986 00d9 | | Load_Top At_Offset_1
0987 e404 | | Load 0x2,0x4
0988 e405 | | Load 0x2,0x5
0989 4806 |H | Short_Literal 0x6
098a 4802 |H | Short_Literal 0x2
098b 0099 | | Action Reference_Dynamic
098c e009 | | Load 0x0,0x9
098d 1819 | | Execute Package,Field_Execute,Field_Number 0x19
098e 00d8 | | Load_Top At_Offset_0
098f 0217 | | Execute Heap_Access,All_Reference
0990 e403 | | Load 0x2,0x3
0991 e5fe | | Load 0x2,-0x2
0992 e24b | K | Load 0x1,0x4b
0993 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0994 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value
0995 BODY_0960:
0995 00d8 | | Load_Top At_Offset_0
0996 e409 | | Load 0x2,0x9
0997 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0998 e5fe | | Load 0x2,-0x2
0999 0217 | | Execute Heap_Access,All_Reference
099a 2a12 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x12
099b 4503 |E | Exit_Subprogram 0x3
099c 0000 0000 | | .BLANK 0000[0x4]
09a0 ; --------------------------------------------------------------------------------------
09a0 ; SUBPROGRAM
09a0 ; --------------------------------------------------------------------------------------
09a0 09a8 | | .CONST 0x09a8 ; Address of begin
09a1 0004 | | .CONST 0x0004 ; Address of exception handler
09a2 0002 | | .CONST 0x0002 ; Number of locals
09a3 INIT_09a0:
09a3 00da | | Load_Top At_Offset_2
09a4 0217 | | Execute Heap_Access,All_Reference
09a5 e20e | | Load 0x1,0xe
09a6 e5fe | | Load 0x2,-0x2
09a7 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value
09a8 BODY_09a0:
09a8 00db | | Load_Top At_Offset_3
09a9 0217 | | Execute Heap_Access,All_Reference
09aa 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
09ab 461a |F | Jump_Case 0x1a
09ac 7841 |xA | Jump 0x9ee ; case 0x0
09ad 7834 |x4 | Jump 0x9e2 ; case 0x1
09ae 783f |x? | Jump 0x9ee ; case 0x2
09af 783e |x> | Jump 0x9ee ; case 0x3
09b0 783d |x= | Jump 0x9ee ; case 0x4
09b1 783c |x< | Jump 0x9ee ; case 0x5
09b2 783b |x; | Jump 0x9ee ; case 0x6
09b3 783a |x: | Jump 0x9ee ; case 0x7
09b4 7839 |x9 | Jump 0x9ee ; case 0x8
09b5 7838 |x8 | Jump 0x9ee ; case 0x9
09b6 7837 |x7 | Jump 0x9ee ; case 0xa
09b7 7813 |x | Jump 0x9cb ; case 0xb
09b8 7835 |x5 | Jump 0x9ee ; case 0xc
09b9 7834 |x4 | Jump 0x9ee ; case 0xd
09ba 781d |x | Jump 0x9d8 ; case 0xe
09bb 781f |x | Jump 0x9db ; case 0xf
09bc 781e |x | Jump 0x9db ; case 0x10
09bd 781d |x | Jump 0x9db ; case 0x11
09be 781c |x | Jump 0x9db ; case 0x12
09bf 781b |x | Jump 0x9db ; case 0x13
09c0 781a |x | Jump 0x9db ; case 0x14
09c1 7819 |x | Jump 0x9db ; case 0x15
09c2 7804 |x | Jump 0x9c7 ; case 0x16
09c3 7803 |x | Jump 0x9c7 ; case 0x17
09c4 7802 |x | Jump 0x9c7 ; case 0x18
09c5 7801 |x | Jump 0x9c7 ; case 0x19
09c6 7800 |x | Jump 0x9c7 ; case 0x1a
09c7 00d8 | | Load_Top At_Offset_0
09c8 e5ff | | Load 0x2,-0x1
09c9 8258 | X | Call 0x1,0x58
09ca 7823 |x# | Jump 0x9ee
09cb 00db | | Load_Top At_Offset_3
09cc 0217 | | Execute Heap_Access,All_Reference
09cd 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
09ce 0217 | | Execute Heap_Access,All_Reference
09cf e002 | | Load 0x0,0x2
09d0 1b17 | | Execute Package,Field_Read,Field_Number 0x17
09d1 1b0d | | Execute Package,Field_Read,Field_Number 0xd
09d2 e5fe | | Load 0x2,-0x2
09d3 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value
09d4 00d9 | | Load_Top At_Offset_1
09d5 0217 | | Execute Heap_Access,All_Reference
09d6 2a0d |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0xd
09d7 7816 |x | Jump 0x9ee
09d8 4800 |H | Short_Literal 0x0
09d9 a5fc | | Store_Unchecked 0x2,-0x4
09da 7813 |x | Jump 0x9ee
09db 00db | | Load_Top At_Offset_3
09dc 0217 | | Execute Heap_Access,All_Reference
09dd 2e11 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x11
09de e5fe | | Load 0x2,-0x2
09df 021f | | Execute Heap_Access,Equal
09e0 a5fc | | Store_Unchecked 0x2,-0x4
09e1 780c |x | Jump 0x9ee
09e2 00db | | Load_Top At_Offset_3
09e3 0217 | | Execute Heap_Access,All_Reference
09e4 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
09e5 0217 | | Execute Heap_Access,All_Reference
09e6 e002 | | Load 0x0,0x2
09e7 1b17 | | Execute Package,Field_Read,Field_Number 0x17
09e8 1b0d | | Execute Package,Field_Read,Field_Number 0xd
09e9 e5fe | | Load 0x2,-0x2
09ea 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value
09eb 00d9 | | Load_Top At_Offset_1
09ec 0217 | | Execute Heap_Access,All_Reference
09ed 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
09ee 00d8 | | Load_Top At_Offset_0
09ef a5fd | | Store_Unchecked 0x2,-0x3
09f0 4503 |E | Exit_Subprogram 0x3
09f1 0000 0000 | | .BLANK 0000[0x7]
09f8 ; --------------------------------------------------------------------------------------
09f8 ; SUBPROGRAM
09f8 ; --------------------------------------------------------------------------------------
09f8 0a01 | | .CONST 0x0a01 ; Address of begin
09f9 0004 | | .CONST 0x0004 ; Address of exception handler
09fa 0002 | | .CONST 0x0002 ; Number of locals
09fb INIT_09f8:
09fb 00da | | Load_Top At_Offset_2
09fc 0217 | | Execute Heap_Access,All_Reference
09fd e20e | | Load 0x1,0xe
09fe e00e | | Load 0x0,0xe
09ff 180d | | Execute Package,Field_Execute,Field_Number 0xd
0a00 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value
0a01 BODY_09f8:
0a01 00db | | Load_Top At_Offset_3
0a02 0217 | | Execute Heap_Access,All_Reference
0a03 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0a04 461a |F | Jump_Case 0x1a
0a05 7830 |x0 | Jump 0xa36 ; case 0x0
0a06 7829 |x) | Jump 0xa30 ; case 0x1
0a07 782e |x. | Jump 0xa36 ; case 0x2
0a08 782d |x- | Jump 0xa36 ; case 0x3
0a09 782c |x, | Jump 0xa36 ; case 0x4
0a0a 782b |x+ | Jump 0xa36 ; case 0x5
0a0b 782a |x* | Jump 0xa36 ; case 0x6
0a0c 7829 |x) | Jump 0xa36 ; case 0x7
0a0d 7828 |x( | Jump 0xa36 ; case 0x8
0a0e 7827 |x' | Jump 0xa36 ; case 0x9
0a0f 7826 |x& | Jump 0xa36 ; case 0xa
0a10 7813 |x | Jump 0xa24 ; case 0xb
0a11 7824 |x$ | Jump 0xa36 ; case 0xc
0a12 7823 |x# | Jump 0xa36 ; case 0xd
0a13 7822 |x" | Jump 0xa36 ; case 0xe
0a14 7816 |x | Jump 0xa2b ; case 0xf
0a15 7815 |x | Jump 0xa2b ; case 0x10
0a16 7814 |x | Jump 0xa2b ; case 0x11
0a17 7813 |x | Jump 0xa2b ; case 0x12
0a18 7812 |x | Jump 0xa2b ; case 0x13
0a19 7811 |x | Jump 0xa2b ; case 0x14
0a1a 7810 |x | Jump 0xa2b ; case 0x15
0a1b 7804 |x | Jump 0xa20 ; case 0x16
0a1c 7803 |x | Jump 0xa20 ; case 0x17
0a1d 7802 |x | Jump 0xa20 ; case 0x18
0a1e 7801 |x | Jump 0xa20 ; case 0x19
0a1f 7800 |x | Jump 0xa20 ; case 0x1a
0a20 00d8 | | Load_Top At_Offset_0
0a21 e5ff | | Load 0x2,-0x1
0a22 8258 | X | Call 0x1,0x58
0a23 7812 |x | Jump 0xa36
0a24 00db | | Load_Top At_Offset_3
0a25 0217 | | Execute Heap_Access,All_Reference
0a26 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
0a27 00d9 | | Load_Top At_Offset_1
0a28 0217 | | Execute Heap_Access,All_Reference
0a29 2a0d |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0xd
0a2a 780b |x | Jump 0xa36
0a2b e5fe | | Load 0x2,-0x2
0a2c 00d9 | | Load_Top At_Offset_1
0a2d 0217 | | Execute Heap_Access,All_Reference
0a2e 2a11 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x11
0a2f 7806 |x | Jump 0xa36
0a30 00db | | Load_Top At_Offset_3
0a31 0217 | | Execute Heap_Access,All_Reference
0a32 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
0a33 00d9 | | Load_Top At_Offset_1
0a34 0217 | | Execute Heap_Access,All_Reference
0a35 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
0a36 00d8 | | Load_Top At_Offset_0
0a37 a5fd | | Store_Unchecked 0x2,-0x3
0a38 4503 |E | Exit_Subprogram 0x3
0a39 0000 0000 | | .BLANK 0000[0x7]
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 00da | | Load_Top At_Offset_2
0a44 e7fe | | Load 0x3,-0x2
0a45 027f | | Execute Discrete,Equal
0a46 680a |h | Jump_Zero 0xa51
0a47 00da | | Load_Top At_Offset_2
0a48 00d8 | | Load_Top At_Offset_0
0a49 00e4 | | Load_Encached Positive_Cache
0a4a 0260 | ` | Execute Discrete,In_Type
0a4b 7001 |p | Jump_Nonzero 0xa4d
0a4c 0801 | | Execute_Immediate Raise,0x1
0a4d e5ff | | Load 0x2,-0x1
0a4e 8237 | 7 | Call 0x1,0x37
0a4f 822d | - | Call 0x1,0x2d
0a50 4402 |D | Exit_Subprogram With_Result,0x2
0a51 00da | | Load_Top At_Offset_2
0a52 00d8 | | Load_Top At_Offset_0
0a53 00e4 | | Load_Encached Positive_Cache
0a54 0260 | ` | Execute Discrete,In_Type
0a55 7001 |p | Jump_Nonzero 0xa57
0a56 0801 | | Execute_Immediate Raise,0x1
0a57 e5ff | | Load 0x2,-0x1
0a58 8237 | 7 | Call 0x1,0x37
0a59 822d | - | Call 0x1,0x2d
0a5a e5fe | | Load 0x2,-0x2
0a5b 01cc | | Execute Vector,Catenate
0a5c e7fe | | Load 0x3,-0x2
0a5d e7ff | | Load 0x3,-0x1
0a5e 0a01 | | Execute_Immediate Plus,0x1
0a5f 00d8 | | Load_Top At_Offset_0
0a60 00e2 | | Load_Encached Integer_Cache
0a61 0260 | ` | Execute Discrete,In_Type
0a62 7001 |p | Jump_Nonzero 0xa64
0a63 0801 | | Execute_Immediate Raise,0x1
0a64 8402 | | Call 0x2,0x2
0a65 01cc | | Execute Vector,Catenate
0a66 4402 |D | Exit_Subprogram With_Result,0x2
0a67 0000 | | .XXX[0x1]
0a68 ; --------------------------------------------------------------------------------------
0a68 ; SUBPROGRAM
0a68 ; --------------------------------------------------------------------------------------
0a68 0a99 | | .CONST 0x0a99 ; Address of begin
0a69 0004 | | .CONST 0x0004 ; Address of exception handler
0a6a 0020 | | .CONST 0x0020 ; Number of locals
0a6b INIT_0a68:
0a6b e20f | | Load 0x1,0xf
0a6c 02a0 | | Declare_Subprogram Null_Subprogram
0a6d 03ae | | Declare_Type Heap_Access,Defined,Visible
0a6e 029a 0ab3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0ab0
0a70 029a 0ad3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0ad0
0a72 00bf | | Action Accept_Activation
0a73 e001 | | Load 0x0,0x1
0a74 e002 | | Load 0x0,0x2
0a75 e20f | | Load 0x1,0xf
0a76 e214 | | Load 0x1,0x14
0a77 e003 | | Load 0x0,0x3
0a78 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0a79 0387 | | Declare_Variable Package
0a7a 00d8 | | Load_Top At_Offset_0
0a7b 020f | | Execute Module,Activate
0a7c e003 | | Load 0x0,0x3
0a7d 1919 | | Execute Package,Field_Reference,Field_Number 0x19
0a7e 00c6 | | Action Check_Subprogram_Elaborated
0a7f e20f | | Load 0x1,0xf
0a80 e214 | | Load 0x1,0x14
0a81 e004 | | Load 0x0,0x4
0a82 e005 | | Load 0x0,0x5
0a83 4800 |H | Short_Literal 0x0
0a84 0007 | | Action Break_Optional
0a85 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0a86 00c7 | | Action Elaborate_Subprogram
0a87 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0a88 00c7 | | Action Elaborate_Subprogram
0a89 029d 0ae3 | | Declare_Subprogram For_Outer_Call,INIT_0ae0
0a8b 029d 0af3 | | Declare_Subprogram For_Outer_Call,INIT_0af0
0a8d 029d 0b03 | | Declare_Subprogram For_Outer_Call,INIT_0b00
0a8f e006 | | Load 0x0,0x6
0a90 e007 | | Load 0x0,0x7
0a91 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
0a92 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
0a93 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
0a94 e008 | | Load 0x0,0x8
0a95 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0a96 0387 | | Declare_Variable Package
0a97 00d8 | | Load_Top At_Offset_0
0a98 020f | | Execute Module,Activate
0a99 BODY_0a68:
0a99 e213 | | Load 0x1,0x13
0a9a e009 | | Load 0x0,0x9
0a9b 01d7 | | Execute Vector,Field_Read
0a9c 6801 |h | Jump_Zero 0xa9e
0a9d 7809 |x | Jump 0xaa7
0a9e 4801 |H | Short_Literal 0x1
0a9f e213 | | Load 0x1,0x13
0aa0 e009 | | Load 0x0,0x9
0aa1 01d6 | | Execute Vector,Field_Write
0aa2 00d8 | | Load_Top At_Offset_0
0aa3 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0aa4 e213 | | Load 0x1,0x13
0aa5 e00a | | Load 0x0,0xa
0aa6 01d6 | | Execute Vector,Field_Write
0aa7 00bc | | Action Signal_Activated
0aa8 00bb | | Action Signal_Completion
0aa9 0000 0000 | | .BLANK 0000[0x7]
0ab0 ; --------------------------------------------------------------------------------------
0ab0 ; SUBPROGRAM
0ab0 ; --------------------------------------------------------------------------------------
0ab0 0ac6 | | .CONST 0x0ac6 ; Address of begin
0ab1 0004 | | .CONST 0x0004 ; Address of exception handler
0ab2 0003 | | .CONST 0x0003 ; Number of locals
0ab3 INIT_0ab0:
0ab3 00da | | Load_Top At_Offset_2
0ab4 e20f | | Load 0x1,0xf
0ab5 0119 | | Execute Any,Check_In_Formal_Type
0ab6 e214 | | Load 0x1,0x14
0ab7 e00b | | Load 0x0,0xb
0ab8 180d | | Execute Package,Field_Execute,Field_Number 0xd
0ab9 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value
0aba e213 | | Load 0x1,0x13
0abb 00d8 | | Load_Top At_Offset_0
0abc e00c | | Load 0x0,0xc
0abd 1c06 | | Execute_Immediate Run_Utility,0x6
0abe e00d | | Load 0x0,0xd
0abf 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0ac0 e00b | | Load 0x0,0xb
0ac1 180d | | Execute Package,Field_Execute,Field_Number 0xd
0ac2 039a | | Declare_Variable Heap_Access,By_Allocation,With_Constraint
0ac3 00d8 | | Load_Top At_Offset_0
0ac4 0217 | | Execute Heap_Access,All_Reference
0ac5 1c00 | | Execute_Immediate Run_Utility,0x0
0ac6 BODY_0ab0:
0ac6 00d9 | | Load_Top At_Offset_1
0ac7 e217 | | Load 0x1,0x17
0ac8 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0ac9 00d9 | | Load_Top At_Offset_1
0aca 0217 | | Execute Heap_Access,All_Reference
0acb 2a14 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x14
0acc 00d8 | | Load_Top At_Offset_0
0acd 4401 |D | Exit_Subprogram With_Result,0x1
0ace 0000 0000 | | .XXX[0x2]
0ad0 ; --------------------------------------------------------------------------------------
0ad0 ; SUBPROGRAM
0ad0 ; --------------------------------------------------------------------------------------
0ad0 0ad3 | | .CONST 0x0ad3 ; Address of begin
0ad1 0004 | | .CONST 0x0004 ; Address of exception handler
0ad2 0001 | | .CONST 0x0001 ; Number of locals
0ad3 BODY_0ad0:
0ad3 INIT_0ad0:
0ad3 00da | | Load_Top At_Offset_2
0ad4 0217 | | Execute Heap_Access,All_Reference
0ad5 2e14 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x14
0ad6 e00b | | Load 0x0,0xb
0ad7 180d | | Execute Package,Field_Execute,Field_Number 0xd
0ad8 e218 | | Load 0x1,0x18
0ad9 e219 | | Load 0x1,0x19
0ada 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
0adb e003 | | Load 0x0,0x3
0adc 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0add 4401 |D | Exit_Subprogram With_Result,0x1
0ade 0000 0000 | | .XXX[0x2]
0ae0 ; --------------------------------------------------------------------------------------
0ae0 ; SUBPROGRAM
0ae0 ; --------------------------------------------------------------------------------------
0ae0 0ae3 | | .CONST 0x0ae3 ; Address of begin
0ae1 0004 | | .CONST 0x0004 ; Address of exception handler
0ae2 0001 | | .CONST 0x0001 ; Number of locals
0ae3 BODY_0ae0:
0ae3 INIT_0ae0:
0ae3 00da | | Load_Top At_Offset_2
0ae4 8216 | | Call 0x1,0x16
0ae5 0219 | | Execute Heap_Access,All_Read
0ae6 e20f | | Load 0x1,0xf
0ae7 0119 | | Execute Any,Check_In_Formal_Type
0ae8 8212 | | Call 0x1,0x12
0ae9 4401 |D | Exit_Subprogram With_Result,0x1
0aea 0000 0000 | | .BLANK 0000[0x6]
0af0 ; --------------------------------------------------------------------------------------
0af0 ; SUBPROGRAM
0af0 ; --------------------------------------------------------------------------------------
0af0 0af3 | | .CONST 0x0af3 ; Address of begin
0af1 0004 | | .CONST 0x0004 ; Address of exception handler
0af2 0001 | | .CONST 0x0001 ; Number of locals
0af3 BODY_0af0:
0af3 INIT_0af0:
0af3 00da | | Load_Top At_Offset_2
0af4 8216 | | Call 0x1,0x16
0af5 0219 | | Execute Heap_Access,All_Read
0af6 e20f | | Load 0x1,0xf
0af7 0119 | | Execute Any,Check_In_Formal_Type
0af8 8210 | | Call 0x1,0x10
0af9 4401 |D | Exit_Subprogram With_Result,0x1
0afa 0000 0000 | | .BLANK 0000[0x6]
0b00 ; --------------------------------------------------------------------------------------
0b00 ; SUBPROGRAM
0b00 ; --------------------------------------------------------------------------------------
0b00 0b03 | | .CONST 0x0b03 ; Address of begin
0b01 0004 | | .CONST 0x0004 ; Address of exception handler
0b02 0001 | | .CONST 0x0001 ; Number of locals
0b03 BODY_0b00:
0b03 INIT_0b00:
0b03 00db | | Load_Top At_Offset_3
0b04 00db | | Load_Top At_Offset_3
0b05 8211 | | Call 0x1,0x11
0b06 e20f | | Load 0x1,0xf
0b07 0119 | | Execute Any,Check_In_Formal_Type
0b08 8215 | | Call 0x1,0x15
0b09 4402 |D | Exit_Subprogram With_Result,0x2
0b0a 0000 0000 | | .BLANK 0000[0x6]
0b10 ; --------------------------------------------------------------------------------------
0b10 ; SUBPROGRAM
0b10 ; --------------------------------------------------------------------------------------
0b10 0b1b | | .CONST 0x0b1b ; Address of begin
0b11 0004 | | .CONST 0x0004 ; Address of exception handler
0b12 000e | | .CONST 0x000e ; Number of locals
0b13 INIT_0b10:
0b13 00e5 | | Load_Encached Long_Integer_Cache
0b14 0129 | ) | Execute Any,Make_Visible
0b15 4805 |H | Short_Literal 0x5
0b16 0093 0b23 | #| PushFullAddress InMicrocode,INIT_0b20
0b18 02a0 | | Declare_Subprogram Null_Subprogram
0b19 038f | | Declare_Type Package,Defined,Visible
0b1a 00bf | | Action Accept_Activation
0b1b BODY_0b10:
0b1b 00bc | | Action Signal_Activated
0b1c 00bb | | Action Signal_Completion
0b1d 0000 0000 | | .XXX[0x3]
0b1f 0000 | |
0b20 ; --------------------------------------------------------------------------------------
0b20 ; SUBPROGRAM
0b20 ; --------------------------------------------------------------------------------------
0b20 0b26 | & | .CONST 0x0b26 ; Address of begin
0b21 0004 | | .CONST 0x0004 ; Address of exception handler
0b22 0012 | | .CONST 0x0012 ; Number of locals
0b23 INIT_0b20:
0b23 029c 0b2b | +| Declare_Subprogram For_Outer_Call,Visible,INIT_0b28
0b25 00bf | | Action Accept_Activation
0b26 BODY_0b20:
0b26 00bc | | Action Signal_Activated
0b27 00bb | | Action Signal_Completion
0b28 ; --------------------------------------------------------------------------------------
0b28 ; SUBPROGRAM
0b28 ; --------------------------------------------------------------------------------------
0b28 0b2b | + | .CONST 0x0b2b ; Address of begin
0b29 0004 | | .CONST 0x0004 ; Address of exception handler
0b2a 0001 | | .CONST 0x0001 ; Number of locals
0b2b BODY_0b28:
0b2b INIT_0b28:
0b2b 00b6 | | Action Make_Scope
0b2c 020a | | Execute Module,Get_Name
0b2d 00ca | | Action Exit_Nullary_Function
0b2e ; --------------------------------------------------------------------------------------
0b2e ; STRING TABLE
0b2e ; --------------------------------------------------------------------------------------
0b2e 003a | : | .STRTAB 0x003a->0x0b4b ; "NIL_PARAMETER"
0b2f 0045 | E | .STRTAB 0x0045->0x0b51 ; "STRING_PARAMETER"
0b30 0053 | S | .STRTAB 0x0053->0x0b59 ; "INTEGER_PARAMETER"
0b31 0062 | b | .STRTAB 0x0062->0x0b62 ; "FLOAT_PARAMETER"
0b32 006f | o | .STRTAB 0x006f->0x0b69 ; "DURATION_PARAMETER"
0b33 007f | | .STRTAB 0x007f->0x0b72 ; "TIME_PARAMETER"
0b34 008b | | .STRTAB 0x008b->0x0b79 ; "OBJECT_PARAMETER"
0b35 0099 | | .STRTAB 0x0099->0x0b81 ; "VERSION_PARAMETER"
0b36 00a8 | | .STRTAB 0x00a8->0x0b8a ; "CLASS_PARAMETER"
0b37 00b5 | | .STRTAB 0x00b5->0x0b91 ; "SUBCLASS_PARAMETER"
0b38 00c5 | | .STRTAB 0x00c5->0x0b9a ; "ERROR_STATUS_PARAMETER"
0b39 00d9 | | .STRTAB 0x00d9->0x0ba5 ; "NAME_STATUS_PARAMETER"
0b3a 00ec | | .STRTAB 0x00ec->0x0bb0 ; "COMPILER_PARAMETER"
0b3b 00fc | | .STRTAB 0x00fc->0x0bb9 ; "MACHINE_PARAMETER"
0b3c 010b | | .STRTAB 0x010b->0x0bc1 ; "CONDITION_PARAMETER"
0b3d 011c | | .STRTAB 0x011c->0x0bcb ; "DATA_PARAMETER"
0b3e 0128 | ( | .STRTAB 0x0128->0x0bd2 ; "LINK_PARAMETER"
0b3f 0134 | 4 | .STRTAB 0x0134->0x0bd9 ; "STATE_PARAMETER"
0b40 0141 | A | .STRTAB 0x0141->0x0be0 ; "IMPORT_PARAMETER"
0b41 014f | O | .STRTAB 0x014f->0x0be8 ; "HANDLE_PARAMETER"
0b42 015d | ] | .STRTAB 0x015d->0x0bf0 ; "STEP_PARAMETER"
0b43 0169 | i | .STRTAB 0x0169->0x0bf7 ; "SCRIPT_PARAMETER"
0b44 0177 | w | .STRTAB 0x0177->0x0bff ; "CUSTOM_PARAMETER_1"
0b45 0187 | | .STRTAB 0x0187->0x0c08 ; "CUSTOM_PARAMETER_2"
0b46 0197 | | .STRTAB 0x0197->0x0c11 ; "CUSTOM_PARAMETER_3"
0b47 01a7 | | .STRTAB 0x01a7->0x0c1a ; "CUSTOM_PARAMETER_4"
0b48 01b7 | | .STRTAB 0x01b7->0x0c23 ; "CUSTOM_PARAMETER_5"
0b49 01c7 | | .STRTAB 0x01c7->0x0c2c ; "<>"
; "<>"
; "<>"
; "<>"
0b4a 01c7 | | .STREND 0x01c7->0x0c2d
0b4b 4e49 4c5f |NIL_| .STRTAB_STRINGS
0c2e 0000 0000 | | .XXX[0x2]
0c30 ; --------------------------------------------------------------------------------------
0c30 ; Debug Table
0c30 ; --------------------------------------------------------------------------------------
0c30 0004 000d | | .DEBUG4 0x0004,0x000d,0xd945,0x0000,0x0001,0x0000
0c36 2593 a980 |% | .XXX[0x9]
0c38 0000 0010 | |
0c3a 3f92 c9d4 |? |
0c3c c000 0000 | |
0c3e 0800 | |
0c3f 0000 0000 | | .BLANK 0000[0x4]
0c43 00ff 4a14 | J | .XXX[0x1b]
0c45 0000 0100 | |
0c47 00ff 5214 | R |
0c49 0000 0100 | |
0c4b 0000 0000 | |
0c4d 001f ea42 | B|
0c4f 8000 0020 | |
0c51 0fe4 b275 | u|
0c53 3000 0000 |0 |
0c55 0200 0000 | |
0c57 0120 000a | |
0c59 4f00 0000 |O |
0c5b 0040 0000 | @ |
0c5d 0040 | @ |
0c5e 0000 0000 | | .BLANK 0000[0x5]
0c63 0002 0571 | q| .XXX[0x25]
0c65 9636 4f28 | 6O(|
0c67 0000 4000 | @ |
0c69 0000 2400 | $ |
0c6b 0149 e000 | I |
0c6d 0000 0800 | |
0c6f 0000 0800 | |
0c71 0000 0800 | |
0c73 01e7 800a | |
0c75 df18 a000 | |
0c77 0000 0000 | |
0c79 0000 0005 | |
0c7b 6f9f a400 |o |
0c7d 00d3 6f20 | o |
0c7f 65e4 4c2d |e L-|
0c81 1980 0001 | |
0c83 5038 6943 |P8iC|
0c85 9569 8000 | i |
0c87 0240 | @ |
0c88 0000 0000 | | .BLANK 0000[0x4]
0c8c 00af b685 | | .XXX[0x19]
0c8e 8000 0040 | @|
0c90 00af b885 | |
0c92 8000 0040 | @|
0c94 0000 0000 | |
0c96 0015 f710 | |
0c98 b000 0008 | |
0c9a 040c bc89 | |
0c9c 8cda 0800 | |
0c9e 0028 0000 | ( |
0ca0 0048 0002 | H |
0ca2 e060 0000 | ` |
0ca4 0010 | |
0ca5 0000 0000 | | .BLANK 0000[0x8]
0cad 0001 0708 | | .XXX[0x2]
0caf 0000 0000 | | .BLANK 0000[0x8]
0cb7 0200 0000 | | .XXX[0x1a]
0cb9 0000 0000 | |
0cbb 0200 0091 | |
0cbd 8602 b7cf | |
0cbf 4c02 b7ce |L |
0cc1 0a02 b7e0 | |
0cc3 5201 5bec |R [ |
0cc5 7b00 003b |{ ;|
0cc7 c948 197a | H z|
0cc9 5eec 58b0 |^ X |
0ccb 0000 540e | T |
0ccd 1a53 0f0e | S |
0ccf 5800 0090 |X |
0cd1 0000 0000 | | .BLANK 0000[0x4]
0cd5 0034 65a1 | 4e | .XXX[0x1b]
0cd7 6000 0010 |` |
0cd9 0034 6621 | 4f!|
0cdb 6000 0010 |` |
0cdd 0000 0157 | W|
0cdf 3006 8cc4 |0 |
0ce1 2c00 0002 |, |
0ce3 0103 2f4b | /K|
0ce5 de36 f400 | 6 |
0ce7 000a 0000 | |
0ce9 0012 0000 | |
0ceb cb48 0000 | H |
0ced 0004 0000 | |
0cef 0004 | |
0cf0 0000 0000 | | .BLANK 0000[0x7]
0cf7 41c2 |A | .XXX[0x1]
0cf8 0000 0000 | | .BLANK 0000[0x8]
0d00 0080 0000 | | .XXX[0x9]
0d02 0000 0000 | |
0d04 0080 0026 | &|
0d06 5a00 adf6 |Z |
0d08 1c00 | |
0d09 0000 0000 | | .BLANK 0000[0x4]
0d0d 56fc 4340 |V C@| .XXX[0xd]
0d0f 000f 3152 | 1R|
0d11 0660 2173 | `!s|
0d13 5258 0000 |RX |
0d15 1503 8694 | |
0d17 ca8c 4400 | D |
0d19 0024 | $ |
0d1a 0000 0000 | | .BLANK 0000[0x4]
0d1e 000e 8c28 | (| .XXX[0x19]
0d20 5800 0004 |X |
0d22 000e 8c68 | h|
0d24 5800 0004 |X |
0d26 0100 0000 | |
0d28 0001 d18d | |
0d2a 0b00 0000 | |
0d2c 8040 cc04 | @ |
0d2e 2ea7 4300 |. C |
0d30 0002 8000 | |
0d32 0004 8000 | |
0d34 32fb 0000 |2 |
0d36 0001 | |
0d37 0000 0000 | | .BLANK 0000[0x9]
0d40 1070 8000 | p | .XXX[0x2]
0d42 0000 0000 | | .BLANK 0000[0x7]
0d49 0020 0000 | | .XXX[0x3a]
0d4b 0000 0000 | |
0d4d 0020 000a | |
0d4f 14a0 2b7e | +~|
0d51 1940 2b7d | @+}|
0d53 72e0 2b7f |r + |
0d55 bbe0 15bf | |
0d57 59f0 0005 |Y |
0d59 6164 8104 |ad |
0d5b 7681 0000 |v |
0d5d 0000 1241 | A|
0d5f aeaf 9649 | I|
0d61 0a00 0009 | |
0d63 8000 0000 | |
0d65 0000 0000 | |
0d67 0005 7e3a | ~:|
0d69 1600 0001 | |
0d6b 0005 80da | |
0d6d 1600 0001 | |
0d6f 0000 0000 | |
0d71 0000 afc7 | |
0d73 42c0 0000 |B |
0d75 2010 208e | |
0d77 d020 0000 | |
0d79 0002 4000 | @ |
0d7b 0001 2000 | |
0d7d 0e5e 8000 | ^ |
0d7f 0000 4000 | @ |
0d81 0000 4000 | @ |
0d83 0000 0000 | | .BLANK 0000[0x5]
0d88 0206 d547 | G| .XXX[0x13]
0d8a 6cd3 d000 |l |
0d8c 0048 0000 | H |
0d8e 0024 0001 | $ |
0d90 cbd0 0000 | |
0d92 0008 0000 | |
0d94 0008 0000 | |
0d96 0008 0002 | |
0d98 e3c0 0adf | |
0d9a aae0 | |
0d9b 0000 0000 | | .BLANK 0000[0x4]
0d9f 056f e8c4 | o | .XXX[0x2d]
0da1 0001 d84e | N|
0da3 206f e371 | o q|
0da5 9f82 c000 | |
0da7 08d0 6c42 | lB|
0da9 7508 aae0 |u |
0dab 0000 2000 | |
0dad 0000 0000 | |
0daf 0000 0001 | |
0db1 c2f4 8580 | |
0db3 0000 4001 | @ |
0db5 c2f6 8580 | |
0db7 0000 4000 | @ |
0db9 0005 49f0 | I |
0dbb 385e d0b0 |8^ |
0dbd 0000 0804 | |
0dbf 0dfc 6e65 | ne|
0dc1 ec28 0001 | ( |
0dc3 1800 0000 | |
0dc5 4800 031d |H |
0dc7 0000 0000 | |
0dc9 1000 0000 | |
0dcb 1000 | |
0dcc 0000 0000 | | .BLANK 0000[0x6]
0dd2 0107 0800 | | .XXX[0x2]
0dd4 0000 0000 | | .BLANK 0000[0x7]
0ddb 0002 0000 | | .XXX[0x1b]
0ddd 0000 0000 | |
0ddf 0002 0000 | |
0de1 d096 02b7 | |
0de3 f3dc 02b7 | |
0de5 f29a 02b8 | |
0de7 04e2 015b | [|
0de9 fec3 0000 | |
0deb 05ad 081c | |
0ded 04ca 1226 | &|
0def 6000 0014 |` |
0df1 0e1a 48c2 | H |
0df3 7bb0 0000 |{ |
0df5 9000 | |
0df6 0000 0000 | | .BLANK 0000[0x4]
0dfa 5ad3 a140 |Z @| .XXX[0x6]
0dfc 0000 1000 | |
0dfe 5ad4 2140 |Z !@|