|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 4096 (0x1000)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0bf8df
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0790 | | .CONST 0x0790 ; 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 8004 | | .CONST 0x8004 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 00d8 | | .CONST 0x00d8 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0033 | 3 | .CONST 0x0033 ; Number of locals
000b INIT_0008:
000b 4800 |H | Short_Literal 0x0
000c 4801 |H | Short_Literal 0x1
000d 029f 00e3 | | Declare_Subprogram INIT_00e0,For_Call
000f 03fe | | Declare_Type Discrete,Defined,Visible
0010 029a 010b | | Declare_Subprogram INIT_0108,For_Outer_Call,Visible,Unelaborated
0012 029a 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call,Visible,Unelaborated
0014 029a 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call,Visible,Unelaborated
0016 029a 0183 | | Declare_Subprogram INIT_0180,For_Outer_Call,Visible,Unelaborated
0018 029a 01c3 | | Declare_Subprogram INIT_01c0,For_Outer_Call,Visible,Unelaborated
001a 029a 01eb | | Declare_Subprogram INIT_01e8,For_Outer_Call,Visible,Unelaborated
001c 4800 |H | Short_Literal 0x0
001d 0093 0383 | | push_full_address INIT_0380
001f 02a0 | | Declare_Subprogram Null_Subprogram
0020 038f | | Declare_Type Package,Defined,Visible
0021 0386 | | Declare_Variable Package,Visible
0022 029a 020b | | Declare_Subprogram INIT_0208,For_Outer_Call,Visible,Unelaborated
0024 029a 021b | | Declare_Subprogram INIT_0218,For_Outer_Call,Visible,Unelaborated
0026 029a 0233 | 3| Declare_Subprogram INIT_0230,For_Outer_Call,Visible,Unelaborated
0028 029a 024b | K| Declare_Subprogram INIT_0248,For_Outer_Call,Visible,Unelaborated
002a 029a 026b | k| Declare_Subprogram INIT_0268,For_Outer_Call,Visible,Unelaborated
002c 029a 027b | {| Declare_Subprogram INIT_0278,For_Outer_Call,Visible,Unelaborated
002e 029a 02cb | | Declare_Subprogram INIT_02c8,For_Outer_Call,Visible,Unelaborated
0030 4818 |H | Short_Literal 0x18
0031 03cd | | Declare_Type Access,Incomplete,Visible,Accesses_Protected
0032 00d8 | | Load_Top At_Offset_0
0033 e002 | | Load 0x0,0x2
0034 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0035 029f 0373 | s| Declare_Subprogram INIT_0370,For_Call
0037 4802 |H | Short_Literal 0x2
0038 032e | . | Declare_Type Record,Defined,Visible
0039 00bf | | Action Accept_Activation
003a e20e | | Load 0x1,0xe
003b e003 | | Load 0x0,0x3
003c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
003d e216 | | Load 0x1,0x16
003e 00e5 | | Load_Encached Long_Integer_Cache
003f 00e2 | | Load_Encached Integer_Cache
0040 00e2 | | Load_Encached Integer_Cache
0041 00e1 | | Load_Encached Boolean_Cache
0042 029f 02db | | Declare_Subprogram INIT_02d8,For_Call
0044 4807 |H | Short_Literal 0x7
0045 032d | - | Declare_Type Record,Defined
0046 00d8 | | Load_Top At_Offset_0
0047 02a0 | | Declare_Subprogram Null_Subprogram
0048 e225 | % | Load 0x1,0x25
0049 03c7 | | Complete_Type Access,By_Defining
004a 00e3 | | Load_Encached Natural_Cache
004b 4800 |H | Short_Literal 0x0
004c 4801 |H | Short_Literal 0x1
004d 4801 |H | Short_Literal 0x1
004e 4803 |H | Short_Literal 0x3
004f 0318 | | Declare_Type Variant_Record,Incomplete
0050 029f 02eb | | Declare_Subprogram INIT_02e8,For_Call
0052 00d9 | | Load_Top At_Offset_1
0053 012a | * | Execute Any,Change_Utility
0054 0007 | | Action Break_Optional
0055 00d8 | | Load_Top At_Offset_0
0056 02a0 | | Declare_Subprogram Null_Subprogram
0057 03ad | | Declare_Type Heap_Access,Defined
0058 00e5 | | Load_Encached Long_Integer_Cache
0059 00e9 | | Load_Encached String_Cache
005a 029f 02eb | | Declare_Subprogram INIT_02e8,For_Call
005c 4800 |H | Short_Literal 0x0
005d 4801 |H | Short_Literal 0x1
005e 4801 |H | Short_Literal 0x1
005f e228 | ( | Load 0x1,0x28
0060 0307 | | Complete_Type Variant_Record,By_Defining
0061 00d8 | | Load_Top At_Offset_0
0062 03a0 | | Complete_Type Heap_Access,By_Component_Completion
0063 e004 | | Load 0x0,0x4
0064 e005 | | Load 0x0,0x5
0065 00db | | Load_Top At_Offset_3
0066 e002 | | Load 0x0,0x2
0067 1b2d | - | Execute Package,Field_Read,Field_Number 0x2d
0068 0387 | | Declare_Variable Package
0069 00d8 | | Load_Top At_Offset_0
006a 020f | | Execute Module,Activate
006b e006 | | Load 0x0,0x6
006c e007 | | Load 0x0,0x7
006d e228 | ( | Load 0x1,0x28
006e e229 | ) | Load 0x1,0x29
006f e002 | | Load 0x0,0x2
0070 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e
0071 0387 | | Declare_Variable Package
0072 00d8 | | Load_Top At_Offset_0
0073 020f | | Execute Module,Activate
0074 e216 | | Load 0x1,0x16
0075 0266 | f | Execute Discrete,Bounds
0076 e002 | | Load 0x0,0x2
0077 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0078 02a0 | | Declare_Subprogram Null_Subprogram
0079 4801 |H | Short_Literal 0x1
007a 035d | ] | Declare_Type Array,Defined
007b 00d8 | | Load_Top At_Offset_0
007c 0337 | 7 | Declare_Variable Array
007d 00d8 | | Load_Top At_Offset_0
007e 0335 | 5 | Declare_Variable Array,Duplicate
007f 00cd | | Action Spare6_Action
0080 4800 |H | Short_Literal 0x0
0081 4800 |H | Short_Literal 0x0
0082 00da | | Load_Top At_Offset_2
0083 01d6 | | Execute Vector,Field_Write
0084 4802 |H | Short_Literal 0x2
0085 4801 |H | Short_Literal 0x1
0086 00da | | Load_Top At_Offset_2
0087 01d6 | | Execute Vector,Field_Write
0088 00d9 | | Load_Top At_Offset_1
0089 01d4 | | Execute Vector,Structure_Write
008a 029d 0333 | 3| Declare_Subprogram INIT_0330,For_Outer_Call
008c 029d 0343 | C| Declare_Subprogram INIT_0340,For_Outer_Call
008e 029d 0353 | S| Declare_Subprogram INIT_0350,For_Outer_Call
0090 029d 0363 | c| Declare_Subprogram INIT_0360,For_Outer_Call
0092 1d17 | | Execute_Immediate Reference_Lex_1,0x17
0093 00c7 | | Action Elaborate_Subprogram
0094 1d18 | | Execute_Immediate Reference_Lex_1,0x18
0095 00c7 | | Action Elaborate_Subprogram
0096 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
0097 00c7 | | Action Elaborate_Subprogram
0098 1d19 | | Execute_Immediate Reference_Lex_1,0x19
0099 00c7 | | Action Elaborate_Subprogram
009a 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
009b 00c7 | | Action Elaborate_Subprogram
009c 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
009d 00c7 | | Action Elaborate_Subprogram
009e e008 | | Load 0x0,0x8
009f e009 | | Load 0x0,0x9
00a0 00e5 | | Load_Encached Long_Integer_Cache
00a1 e002 | | Load 0x0,0x2
00a2 1b2d | - | Execute Package,Field_Read,Field_Number 0x2d
00a3 0387 | | Declare_Variable Package
00a4 00d8 | | Load_Top At_Offset_0
00a5 020f | | Execute Module,Activate
00a6 e00a | | Load 0x0,0xa
00a7 e00b | | Load 0x0,0xb
00a8 00e9 | | Load_Encached String_Cache
00a9 e002 | | Load 0x0,0x2
00aa 1b2d | - | Execute Package,Field_Read,Field_Number 0x2d
00ab 0387 | | Declare_Variable Package
00ac 00d8 | | Load_Top At_Offset_0
00ad 020f | | Execute Module,Activate
00ae e225 | % | Load 0x1,0x25
00af e229 | ) | Load 0x1,0x29
00b0 e002 | | Load 0x0,0x2
00b1 e216 | | Load 0x1,0x16
00b2 e00c | | Load 0x0,0xc
00b3 e00d | | Load 0x0,0xd
00b4 e00e | | Load 0x0,0xe
00b5 e00f | | Load 0x0,0xf
00b6 1d30 | 0 | Execute_Immediate Reference_Lex_1,0x30
00b7 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
00b8 1d31 | 1 | Execute_Immediate Reference_Lex_1,0x31
00b9 e010 | | Load 0x0,0x10
00ba 1d0f | | Execute_Immediate Reference_Lex_1,0xf
00bb 1d17 | | Execute_Immediate Reference_Lex_1,0x17
00bc e215 | | Load 0x1,0x15
00bd 1d12 | | Execute_Immediate Reference_Lex_1,0x12
00be 1d13 | | Execute_Immediate Reference_Lex_1,0x13
00bf e214 | | Load 0x1,0x14
00c0 1d2f | / | Execute_Immediate Reference_Lex_1,0x2f
00c1 e22b | + | Load 0x1,0x2b
00c2 e22a | * | Load 0x1,0x2a
00c3 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
00c4 e228 | ( | Load 0x1,0x28
00c5 4817 |H | Short_Literal 0x17
00c6 e21d | | Load 0x1,0x1d
00c7 020e | | Execute Module,Augment_Imports
00c8 e21d | | Load 0x1,0x1d
00c9 020f | | Execute Module,Activate
00ca 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
00cb 00c7 | | Action Elaborate_Subprogram
00cc 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
00cd 00c7 | | Action Elaborate_Subprogram
00ce 1d20 | | Execute_Immediate Reference_Lex_1,0x20
00cf 00c7 | | Action Elaborate_Subprogram
00d0 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
00d1 00c7 | | Action Elaborate_Subprogram
00d2 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
00d3 00c7 | | Action Elaborate_Subprogram
00d4 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
00d5 00c7 | | Action Elaborate_Subprogram
00d6 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
00d7 00c7 | | Action Elaborate_Subprogram
00d8 BODY_0008:
00d8 00bc | | Action Signal_Activated
00d9 00bb | | Action Signal_Completion
00da 0000 0000 | | .BLANK 0000[0x6]
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00e3 | | .CONST 0x00e3 ; Address of begin
00e1 0004 | | .CONST 0x0004 ; Address of exception handler
00e2 0001 | | .CONST 0x0001 ; Number of locals
00e3 BODY_00e0:
00e3 INIT_00e0:
00e3 4607 |F | Jump_Case 0x8
00e4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
00e5 7807 |x | Jump 0xed ; case 0x1
00e6 780a |x | Jump 0xf1 ; case 0x2
00e7 780e |x | Jump 0xf6 ; case 0x3
00e8 7811 |x | Jump 0xfa ; case 0x4
00e9 7812 |x | Jump 0xfc ; case 0x5
00ea 7813 |x | Jump 0xfe ; case 0x6
00eb 7816 |x | Jump 0x102 ; case 0x7
00ec 4302 |C | .XXX[0x1]
00ed 00da | | Load_Top At_Offset_2
00ee 0091 077e | ~| Action Push_String_Extended_Indexed,0x77e ; "IN_FILE"
00f0 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00f1 00db | | Load_Top At_Offset_3
00f2 00db | | Load_Top At_Offset_3
00f3 00e0 | | Load_Encached Standard_Cache
00f4 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00f5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00f6 00da | | Load_Top At_Offset_2
00f7 00e0 | | Load_Encached Standard_Cache
00f8 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00f9 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00fa 00db | | Load_Top At_Offset_3
00fb 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00fc 00db | | Load_Top At_Offset_3
00fd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00fe e216 | | Load 0x1,0x16
00ff 00dc | | Load_Top At_Offset_4
0100 0267 | g | Execute Discrete,Predecessor
0101 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0102 e216 | | Load 0x1,0x16
0103 00dc | | Load_Top At_Offset_4
0104 0268 | h | Execute Discrete,Successor
0105 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0106 0000 0000 | | .XXX[0x2]
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 010b | | .CONST 0x010b ; Address of begin
0109 0004 | | .CONST 0x0004 ; Address of exception handler
010a 0001 | | .CONST 0x0001 ; Number of locals
010b BODY_0108:
010b INIT_0108:
010b e5fc | | Load 0x2,-0x4
010c 7006 |p | Jump_Nonzero 0x113
010d e225 | % | Load 0x1,0x25
010e 03bc | | Declare_Variable Access,By_Allocation
010f 00d8 | | Load_Top At_Offset_0
0110 0227 | ' | Execute Access,All_Reference
0111 1c00 | | Execute_Immediate Run_Utility,0x0
0112 a5fc | | Store_Unchecked 0x2,-0x4
0113 e5fc | | Load 0x2,-0x4
0114 8231 | 1 | Call 0x1,0x31
0115 6803 |h | Jump_Zero 0x119
0116 e5fc | | Load 0x2,-0x4
0117 8218 | | Call 0x1,0x18
0118 c5fc | | Store 0x2,-0x4
0119 e5fc | | Load 0x2,-0x4
011a 0229 | ) | Execute Access,All_Read
011b e5fc | | Load 0x2,-0x4
011c 0229 | ) | Execute Access,All_Read
011d e003 | | Load 0x0,0x3
011e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
011f 0122 | " | Execute Any,Make_Root_Type
0120 00d9 | | Load_Top At_Offset_1
0121 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0122 0120 | | Execute Any,Is_Value
0123 6803 |h | Jump_Zero 0x127
0124 e20e | | Load 0x1,0xe
0125 0122 | " | Execute Any,Make_Root_Type
0126 7802 |x | Jump 0x129
0127 00d9 | | Load_Top At_Offset_1
0128 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0129 e011 | | Load 0x0,0x11
012a 1b0e | | Execute Package,Field_Read,Field_Number 0xe
012b e5fe | | Load 0x2,-0x2
012c e5ff | | Load 0x2,-0x1
012d e22d | - | Load 0x1,0x2d
012e 01d7 | | Execute Vector,Field_Read
012f 8210 | | Call 0x1,0x10
0130 00da | | Load_Top At_Offset_2
0131 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0132 00da | | Load_Top At_Offset_2
0133 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0134 00d2 | | Pop_Control Pop_Count_2
0135 00da | | Load_Top At_Offset_2
0136 e5fc | | Load 0x2,-0x4
0137 0227 | ' | Execute Access,All_Reference
0138 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0139 e5fd | | Load 0x2,-0x3
013a e5fc | | Load 0x2,-0x4
013b 0227 | ' | Execute Access,All_Reference
013c 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
013d 4800 |H | Short_Literal 0x0
013e e5fc | | Load 0x2,-0x4
013f 0227 | ' | Execute Access,All_Reference
0140 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0141 4800 |H | Short_Literal 0x0
0142 e5fc | | Load 0x2,-0x4
0143 0227 | ' | Execute Access,All_Reference
0144 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0145 4801 |H | Short_Literal 0x1
0146 e5fc | | Load 0x2,-0x4
0147 0227 | ' | Execute Access,All_Reference
0148 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
0149 4504 |E | Exit_Suprogram New_Top_Offset 0x4
014a 0000 0000 | | .BLANK 0000[0x6]
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 0153 | S | .CONST 0x0153 ; Address of begin
0151 0004 | | .CONST 0x0004 ; Address of exception handler
0152 0001 | | .CONST 0x0001 ; Number of locals
0153 BODY_0150:
0153 INIT_0150:
0153 00da | | Load_Top At_Offset_2
0154 8231 | 1 | Call 0x1,0x31
0155 6812 |h | Jump_Zero 0x168
0156 00da | | Load_Top At_Offset_2
0157 0229 | ) | Execute Access,All_Read
0158 00d8 | | Load_Top At_Offset_0
0159 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
015a 00d8 | | Load_Top At_Offset_0
015b 0120 | | Execute Any,Is_Value
015c 6803 |h | Jump_Zero 0x160
015d e20e | | Load 0x1,0xe
015e 0122 | " | Execute Any,Make_Root_Type
015f 011e | | Execute Any,Convert
0160 8211 | | Call 0x1,0x11
0161 00d9 | | Load_Top At_Offset_1
0162 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0163 00d1 | | Pop_Control Pop_Count_1
0164 4800 |H | Short_Literal 0x0
0165 00db | | Load_Top At_Offset_3
0166 0227 | ' | Execute Access,All_Reference
0167 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
0168 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0169 0000 0000 | | .BLANK 0000[0x7]
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 0173 | s | .CONST 0x0173 ; Address of begin
0171 0004 | | .CONST 0x0004 ; Address of exception handler
0172 0001 | | .CONST 0x0001 ; Number of locals
0173 BODY_0170:
0173 INIT_0170:
0173 00da | | Load_Top At_Offset_2
0174 8231 | 1 | Call 0x1,0x31
0175 7002 |p | Jump_Nonzero 0x178
0176 4900 |I | Short_Literal 0x100
0177 0257 | W | Execute Discrete,Raise
0178 00da | | Load_Top At_Offset_2
0179 0227 | ' | Execute Access,All_Reference
017a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
017b 820f | | Call 0x1,0xf
017c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
017d 0000 0000 | | .XXX[0x3]
017f 0000 | |
0180 ; --------------------------------------------------------------------------------------
0180 ; SUBPROGRAM
0180 ; --------------------------------------------------------------------------------------
0180 0184 | | .CONST 0x0184 ; Address of begin
0181 0004 | | .CONST 0x0004 ; Address of exception handler
0182 0002 | | .CONST 0x0002 ; Number of locals
0183 INIT_0180:
0183 00e2 | | Load_Encached Integer_Cache
0184 BODY_0180:
0184 00cf | | Action Mark_Auxiliary
0185 e5ff | | Load 0x2,-0x1
0186 01da | | Execute Vector,Bounds
0187 0264 | d | Execute Discrete,Below_Bound
0188 7030 |p0 | Jump_Nonzero 0x1b9
0189 00d8 | | Load_Top At_Offset_0
018a e5ff | | Load 0x2,-0x1
018b 01d7 | | Execute Vector,Field_Read
018c 4830 |H0 | Short_Literal 0x30
018d 4839 |H9 | Short_Literal 0x39
018e 0261 | a | Execute Discrete,Not_In_Range
018f 6827 |h' | Jump_Zero 0x1b7
0190 00d8 | | Load_Top At_Offset_0
0191 e5ff | | Load 0x2,-0x1
0192 01dc | | Execute Vector,Last
0193 027f | | Execute Discrete,Equal
0194 6802 |h | Jump_Zero 0x197
0195 00d2 | | Pop_Control Pop_Count_2
0196 7822 |x" | Jump 0x1b9
0197 e5ff | | Load 0x2,-0x1
0198 01dd | | Execute Vector,First
0199 00d9 | | Load_Top At_Offset_1
019a e5ff | | Load 0x2,-0x1
019b 01cf | | Execute Vector,Slice_Read
019c 4830 |H0 | Short_Literal 0x30
019d 4803 |H | Short_Literal 0x3
019e 480a |H | Short_Literal 0xa
019f e405 | | Load 0x2,0x5
01a0 0a01 | | Execute_Immediate Plus,0x1
01a1 00d8 | | Load_Top At_Offset_0
01a2 00e2 | | Load_Encached Integer_Cache
01a3 0260 | ` | Execute Discrete,In_Type
01a4 7001 |p | Jump_Nonzero 0x1a6
01a5 0801 | | Execute_Immediate Raise,0x1
01a6 e5ff | | Load 0x2,-0x1
01a7 01dc | | Execute Vector,Last
01a8 e5ff | | Load 0x2,-0x1
01a9 01cf | | Execute Vector,Slice_Read
01aa 00e2 | | Load_Encached Integer_Cache
01ab 00e0 | | Load_Encached Standard_Cache
01ac 1819 | | Execute Package,Field_Execute,Field_Number 0x19
01ad 0a01 | | Execute_Immediate Plus,0x1
01ae 00d8 | | Load_Top At_Offset_0
01af 00e2 | | Load_Encached Integer_Cache
01b0 0260 | ` | Execute Discrete,In_Type
01b1 7001 |p | Jump_Nonzero 0x1b3
01b2 0801 | | Execute_Immediate Raise,0x1
01b3 e010 | | Load 0x0,0x10
01b4 1816 | | Execute Package,Field_Execute,Field_Number 0x16
01b5 01cc | | Execute Vector,Catenate
01b6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01b7 00c8 | | Action Pop_Auxiliary_Range
01b8 37d0 |7 | Loop_Decreasing 0x189
01b9 00ce | | Action Pop_Auxiliary
01ba 00db | | Load_Top At_Offset_3
01bb 0092 0780 | | Action Push_String_Extended,0x780 ; "_000"
01bd 01cc | | Execute Vector,Catenate
01be 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01bf 0000 | | .XXX[0x1]
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01c3 | | .CONST 0x01c3 ; Address of begin
01c1 0004 | | .CONST 0x0004 ; Address of exception handler
01c2 0001 | | .CONST 0x0001 ; Number of locals
01c3 BODY_01c0:
01c3 INIT_01c0:
01c3 00da | | Load_Top At_Offset_2
01c4 8231 | 1 | Call 0x1,0x31
01c5 7002 |p | Jump_Nonzero 0x1c8
01c6 4900 |I | Short_Literal 0x100
01c7 0257 | W | Execute Discrete,Raise
01c8 00da | | Load_Top At_Offset_2
01c9 0227 | ' | Execute Access,All_Reference
01ca 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01cb 8212 | | Call 0x1,0x12
01cc 00db | | Load_Top At_Offset_3
01cd 0227 | ' | Execute Access,All_Reference
01ce 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01cf 8213 | | Call 0x1,0x13
01d0 8230 | 0 | Call 0x1,0x30
01d1 00db | | Load_Top At_Offset_3
01d2 0227 | ' | Execute Access,All_Reference
01d3 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
01d4 027d | } | Execute Discrete,Greater
01d5 6806 |h | Jump_Zero 0x1dc
01d6 00da | | Load_Top At_Offset_2
01d7 0227 | ' | Execute Access,All_Reference
01d8 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01d9 820f | | Call 0x1,0xf
01da 821a | | Call 0x1,0x1a
01db 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01dc 00da | | Load_Top At_Offset_2
01dd 0227 | ' | Execute Access,All_Reference
01de 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01df 820f | | Call 0x1,0xf
01e0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01e1 0000 0000 | | .BLANK 0000[0x7]
01e8 ; --------------------------------------------------------------------------------------
01e8 ; SUBPROGRAM
01e8 ; --------------------------------------------------------------------------------------
01e8 01f0 | | .CONST 0x01f0 ; Address of begin
01e9 0004 | | .CONST 0x0004 ; Address of exception handler
01ea 0002 | | .CONST 0x0002 ; Number of locals
01eb INIT_01e8:
01eb 4801 |H | Short_Literal 0x1
01ec 00db | | Load_Top At_Offset_3
01ed e214 | | Load 0x1,0x14
01ee e010 | | Load 0x0,0x10
01ef 181e | | Execute Package,Field_Execute,Field_Number 0x1e
01f0 BODY_01e8:
01f0 00d8 | | Load_Top At_Offset_0
01f1 7004 |p | Jump_Nonzero 0x1f6
01f2 00db | | Load_Top At_Offset_3
01f3 0335 | 5 | Declare_Variable Array,Duplicate
01f4 00cd | | Action Spare6_Action
01f5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01f6 00db | | Load_Top At_Offset_3
01f7 01dd | | Execute Vector,First
01f8 00d9 | | Load_Top At_Offset_1
01f9 0aff | | Execute_Immediate Plus,-0x1
01fa 00d8 | | Load_Top At_Offset_0
01fb 00e2 | | Load_Encached Integer_Cache
01fc 0260 | ` | Execute Discrete,In_Type
01fd 7001 |p | Jump_Nonzero 0x1ff
01fe 0801 | | Execute_Immediate Raise,0x1
01ff e5ff | | Load 0x2,-0x1
0200 01cf | | Execute Vector,Slice_Read
0201 0335 | 5 | Declare_Variable Array,Duplicate
0202 00cd | | Action Spare6_Action
0203 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0204 0000 0000 | | .BLANK 0000[0x4]
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 00db | | Load_Top At_Offset_3
020c 00db | | Load_Top At_Offset_3
020d 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
020e 00db | | Load_Top At_Offset_3
020f 0227 | ' | Execute Access,All_Reference
0210 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0211 8212 | | Call 0x1,0x12
0212 00db | | Load_Top At_Offset_3
0213 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0214 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0215 0000 0000 | | .XXX[0x3]
0217 0000 | |
0218 ; --------------------------------------------------------------------------------------
0218 ; SUBPROGRAM
0218 ; --------------------------------------------------------------------------------------
0218 0227 | ' | .CONST 0x0227 ; Address of begin
0219 0004 | | .CONST 0x0004 ; Address of exception handler
021a 0002 | | .CONST 0x0002 ; Number of locals
021b INIT_0218:
021b e229 | ) | Load 0x1,0x29
021c 00db | | Load_Top At_Offset_3
021d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
021e e5ff | | Load 0x2,-0x1
021f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0220 0227 | ' | Execute Access,All_Reference
0221 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0222 0227 | ' | Execute Access,All_Reference
0223 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0224 e22b | + | Load 0x1,0x2b
0225 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0226 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0227 BODY_0218:
0227 00d8 | | Load_Top At_Offset_0
0228 0217 | | Execute Heap_Access,All_Reference
0229 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
022a 0335 | 5 | Declare_Variable Array,Duplicate
022b 00cd | | Action Spare6_Action
022c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
022d 0000 0000 | | .XXX[0x3]
022f 0000 | |
0230 ; --------------------------------------------------------------------------------------
0230 ; SUBPROGRAM
0230 ; --------------------------------------------------------------------------------------
0230 023f | ? | .CONST 0x023f ; Address of begin
0231 0004 | | .CONST 0x0004 ; Address of exception handler
0232 0002 | | .CONST 0x0002 ; Number of locals
0233 INIT_0230:
0233 e229 | ) | Load 0x1,0x29
0234 00db | | Load_Top At_Offset_3
0235 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0236 e5ff | | Load 0x2,-0x1
0237 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0238 0227 | ' | Execute Access,All_Reference
0239 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
023a 0227 | ' | Execute Access,All_Reference
023b 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
023c e22b | + | Load 0x1,0x2b
023d 1811 | | Execute Package,Field_Execute,Field_Number 0x11
023e 0031 | 1 | Store_Top Heap_Access,At_Offset_1
023f BODY_0230:
023f 00d8 | | Load_Top At_Offset_0
0240 0217 | | Execute Heap_Access,All_Reference
0241 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0242 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0243 0000 0000 | | .BLANK 0000[0x5]
0248 ; --------------------------------------------------------------------------------------
0248 ; SUBPROGRAM
0248 ; --------------------------------------------------------------------------------------
0248 0257 | W | .CONST 0x0257 ; Address of begin
0249 0004 | | .CONST 0x0004 ; Address of exception handler
024a 0002 | | .CONST 0x0002 ; Number of locals
024b INIT_0248:
024b e229 | ) | Load 0x1,0x29
024c 00db | | Load_Top At_Offset_3
024d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
024e e5ff | | Load 0x2,-0x1
024f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0250 0227 | ' | Execute Access,All_Reference
0251 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0252 0227 | ' | Execute Access,All_Reference
0253 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0254 e22b | + | Load 0x1,0x2b
0255 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0256 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0257 BODY_0248:
0257 00d8 | | Load_Top At_Offset_0
0258 0217 | | Execute Heap_Access,All_Reference
0259 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
025a e5ff | | Load 0x2,-0x1
025b 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
025c e5ff | | Load 0x2,-0x1
025d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
025e 0227 | ' | Execute Access,All_Reference
025f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0260 0227 | ' | Execute Access,All_Reference
0261 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0262 e22a | * | Load 0x1,0x2a
0263 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0264 822f | / | Call 0x1,0x2f
0265 e5ff | | Load 0x2,-0x1
0266 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0267 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0268 ; --------------------------------------------------------------------------------------
0268 ; SUBPROGRAM
0268 ; --------------------------------------------------------------------------------------
0268 026b | k | .CONST 0x026b ; Address of begin
0269 0004 | | .CONST 0x0004 ; Address of exception handler
026a 0001 | | .CONST 0x0001 ; Number of locals
026b BODY_0268:
026b INIT_0268:
026b 00da | | Load_Top At_Offset_2
026c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
026d 0227 | ' | Execute Access,All_Reference
026e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
026f 8212 | | Call 0x1,0x12
0270 00db | | Load_Top At_Offset_3
0271 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0272 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0273 0000 0000 | | .BLANK 0000[0x5]
0278 ; --------------------------------------------------------------------------------------
0278 ; SUBPROGRAM
0278 ; --------------------------------------------------------------------------------------
0278 0294 | | .CONST 0x0294 ; Address of begin
0279 0004 | | .CONST 0x0004 ; Address of exception handler
027a 0004 | | .CONST 0x0004 ; Number of locals
027b INIT_0278:
027b 00db | | Load_Top At_Offset_3
027c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
027d 0227 | ' | Execute Access,All_Reference
027e 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
027f 0227 | ' | Execute Access,All_Reference
0280 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0281 0007 | | Action Break_Optional
0282 e5fe | | Load 0x2,-0x2
0283 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0284 00d9 | | Load_Top At_Offset_1
0285 e22a | * | Load 0x1,0x2a
0286 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0287 e002 | | Load 0x0,0x2
0288 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
0289 00e5 | | Load_Encached Long_Integer_Cache
028a 03f1 | | Declare_Variable Discrete,With_Value
028b e5fe | | Load 0x2,-0x2
028c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
028d 00da | | Load_Top At_Offset_2
028e e22b | + | Load 0x1,0x2b
028f 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0290 0217 | | Execute Heap_Access,All_Reference
0291 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0292 00e5 | | Load_Encached Long_Integer_Cache
0293 03f1 | | Declare_Variable Discrete,With_Value
0294 BODY_0278:
0294 00be | | Action Activate_Tasks
0295 00d8 | | Load_Top At_Offset_0
0296 e5ff | | Load 0x2,-0x1
0297 027d | } | Execute Discrete,Greater
0298 6802 |h | Jump_Zero 0x29b
0299 e5ff | | Load 0x2,-0x1
029a 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
029b 00d8 | | Load_Top At_Offset_0
029c 09f9 | | Execute_Immediate Binary_Scale,-0x7
029d 00d8 | | Load_Top At_Offset_0
029e 00e3 | | Load_Encached Natural_Cache
029f 0260 | ` | Execute Discrete,In_Type
02a0 7001 |p | Jump_Nonzero 0x2a2
02a1 0801 | | Execute_Immediate Raise,0x1
02a2 00d8 | | Load_Top At_Offset_0
02a3 00e4 | | Load_Encached Positive_Cache
02a4 0260 | ` | Execute Discrete,In_Type
02a5 7001 |p | Jump_Nonzero 0x2a7
02a6 0801 | | Execute_Immediate Raise,0x1
02a7 00da | | Load_Top At_Offset_2
02a8 6017 |` | Indirect_Literal Discrete,0x2c0,{0x00000000, 0x00001fff}
02a9 0279 | y | Execute Discrete,And
02aa 09f9 | | Execute_Immediate Binary_Scale,-0x7
02ab 00d8 | | Load_Top At_Offset_0
02ac 00e3 | | Load_Encached Natural_Cache
02ad 0260 | ` | Execute Discrete,In_Type
02ae 7001 |p | Jump_Nonzero 0x2b0
02af 0801 | | Execute_Immediate Raise,0x1
02b0 00db | | Load_Top At_Offset_3
02b1 09f3 | | Execute_Immediate Binary_Scale,-0xd
02b2 00d8 | | Load_Top At_Offset_0
02b3 00e3 | | Load_Encached Natural_Cache
02b4 0260 | ` | Execute Discrete,In_Type
02b5 7001 |p | Jump_Nonzero 0x2b7
02b6 0801 | | Execute_Immediate Raise,0x1
02b7 e5fe | | Load 0x2,-0x2
02b8 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02b9 0227 | ' | Execute Access,All_Reference
02ba 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02bb 820f | | Call 0x1,0xf
02bc e012 | | Load 0x0,0x12
02bd 1817 | | Execute Package,Field_Execute,Field_Number 0x17
02be 4502 |E | Exit_Suprogram New_Top_Offset 0x2
02bf 0000 | | .XXX[0x1]
02c0 0000 0000 | | .LITERAL {0x00000000, 0x00001fff}
02c4 0000 0000 | | .BLANK 0000[0x4]
02c8 ; --------------------------------------------------------------------------------------
02c8 ; SUBPROGRAM
02c8 ; --------------------------------------------------------------------------------------
02c8 02cb | | .CONST 0x02cb ; Address of begin
02c9 0004 | | .CONST 0x0004 ; Address of exception handler
02ca 0001 | | .CONST 0x0001 ; Number of locals
02cb BODY_02c8:
02cb INIT_02c8:
02cb 00da | | Load_Top At_Offset_2
02cc 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02cd 0227 | ' | Execute Access,All_Reference
02ce 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02cf 8213 | | Call 0x1,0x13
02d0 00db | | Load_Top At_Offset_3
02d1 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
02d2 e002 | | Load 0x0,0x2
02d3 181d | | Execute Package,Field_Execute,Field_Number 0x1d
02d4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02d5 0000 0000 | | .XXX[0x3]
02d7 0000 | |
02d8 ; --------------------------------------------------------------------------------------
02d8 ; SUBPROGRAM
02d8 ; --------------------------------------------------------------------------------------
02d8 02db | | .CONST 0x02db ; Address of begin
02d9 0004 | | .CONST 0x0004 ; Address of exception handler
02da 0001 | | .CONST 0x0001 ; Number of locals
02db BODY_02d8:
02db INIT_02d8:
02db 4601 |F | Jump_Case 0x2
02dc 7801 |x | Jump 0x2de ; case 0x0
02dd 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
02de 00da | | Load_Top At_Offset_2
02df 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
02e0 0125 | % | Execute Any,Set_Constraint
02e1 00da | | Load_Top At_Offset_2
02e2 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
02e3 1c00 | | Execute_Immediate Run_Utility,0x0
02e4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
02e5 0000 0000 | | .XXX[0x3]
02e7 0000 | |
02e8 ; --------------------------------------------------------------------------------------
02e8 ; SUBPROGRAM
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 BODY_02e8:
02eb INIT_02e8:
02eb INIT_02e8:
02eb 4609 |F | Jump_Case 0xa
02ec 7809 |x | Jump 0x2f6 ; case 0x0
02ed 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
02ee 780b |x | Jump 0x2fa ; case 0x2
02ef 780e |x | Jump 0x2fe ; case 0x3
02f0 7813 |x | Jump 0x304 ; case 0x4
02f1 781a |x | Jump 0x30c ; case 0x5
02f2 7836 |x6 | Jump 0x329 ; case 0x6
02f3 7822 |x" | Jump 0x316 ; case 0x7
02f4 782a |x* | Jump 0x31f ; case 0x8
02f5 7833 |x3 | Jump 0x329 ; case 0x9
02f6 4800 |H | Short_Literal 0x0
02f7 00db | | Load_Top At_Offset_3
02f8 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
02f9 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
02fa 4801 |H | Short_Literal 0x1
02fb 4803 |H | Short_Literal 0x3
02fc 0311 | | Declare_Type Variant_Record,Constrained_Incomplete
02fd 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
02fe e5fd | | Load 0x2,-0x3
02ff 00db | | Load_Top At_Offset_3
0300 1c07 | | Execute_Immediate Run_Utility,0x7
0301 e5fe | | Load 0x2,-0x2
0302 0306 | | Complete_Type Variant_Record,By_Renaming
0303 4304 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x4
0304 4801 |H | Short_Literal 0x1
0305 4803 |H | Short_Literal 0x3
0306 0311 | | Declare_Type Variant_Record,Constrained_Incomplete
0307 e5fe | | Load 0x2,-0x2
0308 e5ff | | Load 0x2,-0x1
0309 00da | | Load_Top At_Offset_2
030a 0305 | | Complete_Type Variant_Record,By_Constraining_Incomplete
030b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
030c 4801 |H | Short_Literal 0x1
030d 4801 |H | Short_Literal 0x1
030e e5ff | | Load 0x2,-0x1
030f 0169 | i | Execute Variant_Record,Read_Discriminant_Constraint
0310 00e9 | | Load_Encached String_Cache
0311 035b | [ | Declare_Type Array,Constrained
0312 4801 |H | Short_Literal 0x1
0313 e5ff | | Load 0x2,-0x1
0314 0304 | | Complete_Type Variant_Record,By_Completing_Constraint
0315 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0316 00db | | Load_Top At_Offset_3
0317 4801 |H | Short_Literal 0x1
0318 e5fe | | Load 0x2,-0x2
0319 00e9 | | Load_Encached String_Cache
031a 035b | [ | Declare_Type Array,Constrained
031b 4801 |H | Short_Literal 0x1
031c e5ff | | Load 0x2,-0x1
031d 031b | | Declare_Type Variant_Record,Constrained
031e 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
031f 00db | | Load_Top At_Offset_3
0320 00db | | Load_Top At_Offset_3
0321 02fc | | Declare_Variable Variant_Record,With_Constraint
0322 4801 |H | Short_Literal 0x1
0323 e5fe | | Load 0x2,-0x2
0324 00e9 | | Load_Encached String_Cache
0325 0334 | 4 | Declare_Variable Array,With_Constraint
0326 2d03 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x3
0327 016a | j | QQ_execute Variant_Record,XXX
0328 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0329 0869 | i | Execute_Immediate Raise,0x69
032a 0000 0000 | | .BLANK 0000[0x6]
0330 ; --------------------------------------------------------------------------------------
0330 ; SUBPROGRAM
0330 ; --------------------------------------------------------------------------------------
0330 0333 | 3 | .CONST 0x0333 ; Address of begin
0331 0004 | | .CONST 0x0004 ; Address of exception handler
0332 0001 | | .CONST 0x0001 ; Number of locals
0333 BODY_0330:
0333 INIT_0330:
0333 00da | | Load_Top At_Offset_2
0334 e002 | | Load 0x0,0x2
0335 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
0336 e5fe | | Load 0x2,-0x2
0337 0272 | r | Execute Discrete,Minus
0338 e002 | | Load 0x0,0x2
0339 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
033a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
033b 0000 0000 | | .BLANK 0000[0x5]
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 e002 | | Load 0x0,0x2
0345 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
0346 e5fe | | Load 0x2,-0x2
0347 0273 | s | Execute Discrete,Plus
0348 e002 | | Load 0x0,0x2
0349 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
034a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
034b 0000 0000 | | .BLANK 0000[0x5]
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 00da | | Load_Top At_Offset_2
0354 e002 | | Load 0x0,0x2
0355 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
0356 e5fe | | Load 0x2,-0x2
0357 e002 | | Load 0x0,0x2
0358 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
0359 0272 | r | Execute Discrete,Minus
035a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
035b 0000 0000 | | .BLANK 0000[0x5]
0360 ; --------------------------------------------------------------------------------------
0360 ; SUBPROGRAM
0360 ; --------------------------------------------------------------------------------------
0360 0363 | c | .CONST 0x0363 ; Address of begin
0361 0004 | | .CONST 0x0004 ; Address of exception handler
0362 0001 | | .CONST 0x0001 ; Number of locals
0363 BODY_0360:
0363 INIT_0360:
0363 00da | | Load_Top At_Offset_2
0364 6804 |h | Jump_Zero 0x369
0365 00da | | Load_Top At_Offset_2
0366 0227 | ' | Execute Access,All_Reference
0367 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
0368 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0369 4800 |H | Short_Literal 0x0
036a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
036b 0000 0000 | | .BLANK 0000[0x5]
0370 ; --------------------------------------------------------------------------------------
0370 ; SUBPROGRAM
0370 ; --------------------------------------------------------------------------------------
0370 0373 | s | .CONST 0x0373 ; Address of begin
0371 0004 | | .CONST 0x0004 ; Address of exception handler
0372 0001 | | .CONST 0x0001 ; Number of locals
0373 BODY_0370:
0373 INIT_0370:
0373 4601 |F | Jump_Case 0x2
0374 7801 |x | Jump 0x376 ; case 0x0
0375 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
0376 00da | | Load_Top At_Offset_2
0377 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0378 0125 | % | Execute Any,Set_Constraint
0379 00da | | Load_Top At_Offset_2
037a 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
037b 1c00 | | Execute_Immediate Run_Utility,0x0
037c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
037d 0000 0000 | | .XXX[0x3]
037f 0000 | |
0380 ; --------------------------------------------------------------------------------------
0380 ; SUBPROGRAM
0380 ; --------------------------------------------------------------------------------------
0380 03e3 | | .CONST 0x03e3 ; Address of begin
0381 0004 | | .CONST 0x0004 ; Address of exception handler
0382 001d | | .CONST 0x001d ; Number of locals
0383 INIT_0380:
0383 029a 03eb | | Declare_Subprogram INIT_03e8,For_Outer_Call,Visible,Unelaborated
0385 029a 045b | [| Declare_Subprogram INIT_0458,For_Outer_Call,Visible,Unelaborated
0387 029a 046b | k| Declare_Subprogram INIT_0468,For_Outer_Call,Visible,Unelaborated
0389 029a 0483 | | Declare_Subprogram INIT_0480,For_Outer_Call,Visible,Unelaborated
038b 029a 04b3 | | Declare_Subprogram INIT_04b0,For_Outer_Call,Visible,Unelaborated
038d 029a 04c3 | | Declare_Subprogram INIT_04c0,For_Outer_Call,Visible,Unelaborated
038f 029a 04d3 | | Declare_Subprogram INIT_04d0,For_Outer_Call,Visible,Unelaborated
0391 029a 04f3 | | Declare_Subprogram INIT_04f0,For_Outer_Call,Visible,Unelaborated
0393 029a 0553 | S| Declare_Subprogram INIT_0550,For_Outer_Call,Visible,Unelaborated
0395 029a 056b | k| Declare_Subprogram INIT_0568,For_Outer_Call,Visible,Unelaborated
0397 029a 05cb | | Declare_Subprogram INIT_05c8,For_Outer_Call,Visible,Unelaborated
0399 4802 |H | Short_Literal 0x2
039a 0093 071b | | push_full_address INIT_0718
039c 02a0 | | Declare_Subprogram Null_Subprogram
039d 038d | | Declare_Type Package,Defined,Visible,Not_Elaborated
039e 4803 |H | Short_Literal 0x3
039f 0093 06d3 | | push_full_address INIT_06d0
03a1 02a0 | | Declare_Subprogram Null_Subprogram
03a2 038d | | Declare_Type Package,Defined,Visible,Not_Elaborated
03a3 4818 |H | Short_Literal 0x18
03a4 03cd | | Declare_Type Access,Incomplete,Visible,Accesses_Protected
03a5 00bf | | Action Accept_Activation
03a6 e001 | | Load 0x0,0x1
03a7 e002 | | Load 0x0,0x2
03a8 e003 | | Load 0x0,0x3
03a9 1b15 | | Execute Package,Field_Read,Field_Number 0x15
03aa e003 | | Load 0x0,0x3
03ab 1b15 | | Execute Package,Field_Read,Field_Number 0x15
03ac e003 | | Load 0x0,0x3
03ad 1b15 | | Execute Package,Field_Read,Field_Number 0x15
03ae e004 | | Load 0x0,0x4
03af 029f 05e3 | | Declare_Subprogram INIT_05e0,For_Call
03b1 4806 |H | Short_Literal 0x6
03b2 032d | - | Declare_Type Record,Defined
03b3 00d8 | | Load_Top At_Offset_0
03b4 02a0 | | Declare_Subprogram Null_Subprogram
03b5 00db | | Load_Top At_Offset_3
03b6 03c7 | | Complete_Type Access,By_Defining
03b7 029d 0603 | | Declare_Subprogram INIT_0600,For_Outer_Call
03b9 1d0e | | Execute_Immediate Reference_Lex_1,0xe
03ba 00c7 | | Action Elaborate_Subprogram
03bb 1d0f | | Execute_Immediate Reference_Lex_1,0xf
03bc 00c7 | | Action Elaborate_Subprogram
03bd 029d 0613 | | Declare_Subprogram INIT_0610,For_Outer_Call
03bf 1d0d | | Execute_Immediate Reference_Lex_1,0xd
03c0 00c7 | | Action Elaborate_Subprogram
03c1 1d10 | | Execute_Immediate Reference_Lex_1,0x10
03c2 00c7 | | Action Elaborate_Subprogram
03c3 1d11 | | Execute_Immediate Reference_Lex_1,0x11
03c4 00c7 | | Action Elaborate_Subprogram
03c5 1d12 | | Execute_Immediate Reference_Lex_1,0x12
03c6 00c7 | | Action Elaborate_Subprogram
03c7 1d13 | | Execute_Immediate Reference_Lex_1,0x13
03c8 00c7 | | Action Elaborate_Subprogram
03c9 1d14 | | Execute_Immediate Reference_Lex_1,0x14
03ca 00c7 | | Action Elaborate_Subprogram
03cb 1d15 | | Execute_Immediate Reference_Lex_1,0x15
03cc 00c7 | | Action Elaborate_Subprogram
03cd 1d16 | | Execute_Immediate Reference_Lex_1,0x16
03ce 00c7 | | Action Elaborate_Subprogram
03cf 1d17 | | Execute_Immediate Reference_Lex_1,0x17
03d0 00c7 | | Action Elaborate_Subprogram
03d1 e005 | | Load 0x0,0x5
03d2 e006 | | Load 0x0,0x6
03d3 e003 | | Load 0x0,0x3
03d4 4803 |H | Short_Literal 0x3
03d5 e218 | | Load 0x1,0x18
03d6 020e | | Execute Module,Augment_Imports
03d7 e218 | | Load 0x1,0x18
03d8 020d | | Execute Module,Elaborate
03d9 0007 | | Action Break_Optional
03da e007 | | Load 0x0,0x7
03db e008 | | Load 0x0,0x8
03dc e003 | | Load 0x0,0x3
03dd a009 | | Store_Unchecked 0x0,0x9
03de 4804 |H | Short_Literal 0x4
03df e219 | | Load 0x1,0x19
03e0 020e | | Execute Module,Augment_Imports
03e1 e219 | | Load 0x1,0x19
03e2 020d | | Execute Module,Elaborate
03e3 BODY_0380:
03e3 00bc | | Action Signal_Activated
03e4 00bb | | Action Signal_Completion
03e5 0000 0000 | | .XXX[0x3]
03e7 0000 | |
03e8 ; --------------------------------------------------------------------------------------
03e8 ; SUBPROGRAM
03e8 ; --------------------------------------------------------------------------------------
03e8 03f2 | | .CONST 0x03f2 ; Address of begin
03e9 0004 | | .CONST 0x0004 ; Address of exception handler
03ea 0005 | | .CONST 0x0005 ; Number of locals
03eb INIT_03e8:
03eb 00da | | Load_Top At_Offset_2
03ec 800a | | Call 0x0,0xa
03ed e004 | | Load 0x0,0x4
03ee 029f 066b | k| Declare_Subprogram INIT_0668,For_Call
03f0 029f 0683 | | Declare_Subprogram INIT_0680,For_Call
03f2 BODY_03e8:
03f2 00db | | Load_Top At_Offset_3
03f3 01db | | Execute Vector,Length
03f4 681e |h | Jump_Zero 0x413
03f5 e5fe | | Load 0x2,-0x2
03f6 800b | | Call 0x0,0xb
03f7 6812 |h | Jump_Zero 0x40a
03f8 00db | | Load_Top At_Offset_3
03f9 e00c | | Load 0x0,0xc
03fa 1814 | | Execute Package,Field_Execute,Field_Number 0x14
03fb e5fe | | Load 0x2,-0x2
03fc 0227 | ' | Execute Access,All_Reference
03fd 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
03fe 800d | | Call 0x0,0xd
03ff 01de | | Execute Vector,Not_Equal
0400 680f |h | Jump_Zero 0x410
0401 e5fe | | Load 0x2,-0x2
0402 00d8 | | Load_Top At_Offset_0
0403 0227 | ' | Execute Access,All_Reference
0404 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0405 e402 | | Load 0x2,0x2
0406 4800 |H | Short_Literal 0x0
0407 800e | | Call 0x0,0xe
0408 c5fe | | Store 0x2,-0x2
0409 7806 |x | Jump 0x410
040a e5fe | | Load 0x2,-0x2
040b e00f | | Load 0x0,0xf
040c e402 | | Load 0x2,0x2
040d 4800 |H | Short_Literal 0x0
040e 800e | | Call 0x0,0xe
040f c5fe | | Store 0x2,-0x2
0410 4800 |H | Short_Literal 0x0
0411 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
0412 7804 |x | Jump 0x417
0413 e5fe | | Load 0x2,-0x2
0414 0227 | ' | Execute Access,All_Reference
0415 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0416 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
0417 e5fd | | Load 0x2,-0x3
0418 7006 |p | Jump_Nonzero 0x41f
0419 e21a | | Load 0x1,0x1a
041a 03bc | | Declare_Variable Access,By_Allocation
041b 00d8 | | Load_Top At_Offset_0
041c 0227 | ' | Execute Access,All_Reference
041d 1c00 | | Execute_Immediate Run_Utility,0x0
041e a5fd | | Store_Unchecked 0x2,-0x3
041f e5fe | | Load 0x2,-0x2
0420 e5fd | | Load 0x2,-0x3
0421 0227 | ' | Execute Access,All_Reference
0422 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0423 00da | | Load_Top At_Offset_2
0424 e5fd | | Load 0x2,-0x3
0425 0227 | ' | Execute Access,All_Reference
0426 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0427 00da | | Load_Top At_Offset_2
0428 700f |p | Jump_Nonzero 0x438
0429 e5fd | | Load 0x2,-0x3
042a e5ff | | Load 0x2,-0x1
042b 820f | | Call 0x1,0xf
042c e00c | | Load 0x0,0xc
042d 1814 | | Execute Package,Field_Execute,Field_Number 0x14
042e 821d | | Call 0x1,0x1d
042f c5fd | | Store 0x2,-0x3
0430 e5fe | | Load 0x2,-0x2
0431 0227 | ' | Execute Access,All_Reference
0432 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0433 0a01 | | Execute_Immediate Plus,0x1
0434 e5fe | | Load 0x2,-0x2
0435 0227 | ' | Execute Access,All_Reference
0436 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0437 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0438 e5fe | | Load 0x2,-0x2
0439 0227 | ' | Execute Access,All_Reference
043a 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
043b 0c01 | | Execute_Immediate Greater_Equal,0x1
043c 6802 |h | Jump_Zero 0x43f
043d 4930 |I0 | Short_Literal 0x130
043e 0257 | W | Execute Discrete,Raise
043f 00cf | | Action Mark_Auxiliary
0440 7802 |x | Jump 0x443
0441 8404 | | Call 0x2,0x4
0442 00c9 | | Action Pop_Auxiliary_Loop
0443 e5fe | | Load 0x2,-0x2
0444 0227 | ' | Execute Access,All_Reference
0445 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0446 8010 | | Call 0x0,0x10
0447 e5fe | | Load 0x2,-0x2
0448 0227 | ' | Execute Access,All_Reference
0449 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
044a 8011 | | Call 0x0,0x11
044b 8009 | | Call 0x0,0x9
044c e5fe | | Load 0x2,-0x2
044d 0227 | ' | Execute Access,All_Reference
044e 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
044f 027b | { | Execute Discrete,Greater_Equal
0450 77f0 |w | Jump_Nonzero 0x441
0451 00ce | | Action Pop_Auxiliary
0452 8405 | | Call 0x2,0x5
0453 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0454 0000 0000 | | .BLANK 0000[0x4]
0458 ; --------------------------------------------------------------------------------------
0458 ; SUBPROGRAM
0458 ; --------------------------------------------------------------------------------------
0458 045b | [ | .CONST 0x045b ; Address of begin
0459 0004 | | .CONST 0x0004 ; Address of exception handler
045a 0001 | | .CONST 0x0001 ; Number of locals
045b BODY_0458:
045b INIT_0458:
045b 00da | | Load_Top At_Offset_2
045c 0227 | ' | Execute Access,All_Reference
045d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
045e 0227 | ' | Execute Access,All_Reference
045f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0460 800d | | Call 0x0,0xd
0461 00db | | Load_Top At_Offset_3
0462 821c | | Call 0x1,0x1c
0463 01cc | | Execute Vector,Catenate
0464 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0465 0000 0000 | | .XXX[0x3]
0467 0000 | |
0468 ; --------------------------------------------------------------------------------------
0468 ; SUBPROGRAM
0468 ; --------------------------------------------------------------------------------------
0468 0472 | r | .CONST 0x0472 ; Address of begin
0469 0004 | | .CONST 0x0004 ; Address of exception handler
046a 0002 | | .CONST 0x0002 ; Number of locals
046b INIT_0468:
046b 4801 |H | Short_Literal 0x1
046c 00db | | Load_Top At_Offset_3
046d e012 | | Load 0x0,0x12
046e e00c | | Load 0x0,0xc
046f 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0470 00e2 | | Load_Encached Integer_Cache
0471 03f1 | | Declare_Variable Discrete,With_Value
0472 BODY_0468:
0472 00d8 | | Load_Top At_Offset_0
0473 7002 |p | Jump_Nonzero 0x476
0474 00ea | | Load_Encached Null_String_Cache
0475 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0476 00d8 | | Load_Top At_Offset_0
0477 e5ff | | Load 0x2,-0x1
0478 01dc | | Execute Vector,Last
0479 e5ff | | Load 0x2,-0x1
047a 01cf | | Execute Vector,Slice_Read
047b 0335 | 5 | Declare_Variable Array,Duplicate
047c 00cd | | Action Spare6_Action
047d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
047e 0000 0000 | | .XXX[0x2]
0480 ; --------------------------------------------------------------------------------------
0480 ; SUBPROGRAM
0480 ; --------------------------------------------------------------------------------------
0480 0483 | | .CONST 0x0483 ; Address of begin
0481 0004 | | .CONST 0x0004 ; Address of exception handler
0482 0001 | | .CONST 0x0001 ; Number of locals
0483 BODY_0480:
0483 INIT_0480:
0483 00da | | Load_Top At_Offset_2
0484 0227 | ' | Execute Access,All_Reference
0485 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
0486 0f01 | | Execute_Immediate Equal,0x1
0487 681b |h | Jump_Zero 0x4a3
0488 00da | | Load_Top At_Offset_2
0489 0227 | ' | Execute Access,All_Reference
048a 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
048b 00db | | Load_Top At_Offset_3
048c 0227 | ' | Execute Access,All_Reference
048d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
048e 0227 | ' | Execute Access,All_Reference
048f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0490 8011 | | Call 0x0,0x11
0491 8009 | | Call 0x0,0x9
0492 00db | | Load_Top At_Offset_3
0493 0227 | ' | Execute Access,All_Reference
0494 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0495 0217 | | Execute Heap_Access,All_Reference
0496 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0497 00da | | Load_Top At_Offset_2
0498 0227 | ' | Execute Access,All_Reference
0499 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
049a 0227 | ' | Execute Access,All_Reference
049b 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
049c 0aff | | Execute_Immediate Plus,-0x1
049d 00db | | Load_Top At_Offset_3
049e 0227 | ' | Execute Access,All_Reference
049f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
04a0 0227 | ' | Execute Access,All_Reference
04a1 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
04a2 4501 |E | Exit_Suprogram New_Top_Offset 0x1
04a3 00da | | Load_Top At_Offset_2
04a4 0227 | ' | Execute Access,All_Reference
04a5 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
04a6 0227 | ' | Execute Access,All_Reference
04a7 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
04a8 0aff | | Execute_Immediate Plus,-0x1
04a9 00db | | Load_Top At_Offset_3
04aa 0227 | ' | Execute Access,All_Reference
04ab 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
04ac 0227 | ' | Execute Access,All_Reference
04ad 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
04ae 4501 |E | Exit_Suprogram New_Top_Offset 0x1
04af 0000 | | .XXX[0x1]
04b0 ; --------------------------------------------------------------------------------------
04b0 ; SUBPROGRAM
04b0 ; --------------------------------------------------------------------------------------
04b0 04b3 | | .CONST 0x04b3 ; Address of begin
04b1 0004 | | .CONST 0x0004 ; Address of exception handler
04b2 0001 | | .CONST 0x0001 ; Number of locals
04b3 BODY_04b0:
04b3 INIT_04b0:
04b3 00da | | Load_Top At_Offset_2
04b4 e5fe | | Load 0x2,-0x2
04b5 0227 | ' | Execute Access,All_Reference
04b6 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
04b7 8013 | | Call 0x0,0x13
04b8 e5fe | | Load 0x2,-0x2
04b9 0227 | ' | Execute Access,All_Reference
04ba 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
04bb 4502 |E | Exit_Suprogram New_Top_Offset 0x2
04bc 0000 0000 | | .BLANK 0000[0x4]
04c0 ; --------------------------------------------------------------------------------------
04c0 ; SUBPROGRAM
04c0 ; --------------------------------------------------------------------------------------
04c0 04c3 | | .CONST 0x04c3 ; Address of begin
04c1 0004 | | .CONST 0x0004 ; Address of exception handler
04c2 0001 | | .CONST 0x0001 ; Number of locals
04c3 BODY_04c0:
04c3 INIT_04c0:
04c3 00da | | Load_Top At_Offset_2
04c4 0227 | ' | Execute Access,All_Reference
04c5 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
04c6 00db | | Load_Top At_Offset_3
04c7 0227 | ' | Execute Access,All_Reference
04c8 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
04c9 8009 | | Call 0x0,0x9
04ca 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
04cb 0000 0000 | | .BLANK 0000[0x5]
04d0 ; --------------------------------------------------------------------------------------
04d0 ; SUBPROGRAM
04d0 ; --------------------------------------------------------------------------------------
04d0 04d3 | | .CONST 0x04d3 ; Address of begin
04d1 0004 | | .CONST 0x0004 ; Address of exception handler
04d2 0001 | | .CONST 0x0001 ; Number of locals
04d3 BODY_04d0:
04d3 INIT_04d0:
04d3 00da | | Load_Top At_Offset_2
04d4 0227 | ' | Execute Access,All_Reference
04d5 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
04d6 7009 |p | Jump_Nonzero 0x4e0
04d7 00da | | Load_Top At_Offset_2
04d8 0227 | ' | Execute Access,All_Reference
04d9 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
04da 00db | | Load_Top At_Offset_3
04db 0227 | ' | Execute Access,All_Reference
04dc 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
04dd e003 | | Load 0x0,0x3
04de 181d | | Execute Package,Field_Execute,Field_Number 0x1d
04df 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
04e0 00da | | Load_Top At_Offset_2
04e1 0227 | ' | Execute Access,All_Reference
04e2 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
04e3 0227 | ' | Execute Access,All_Reference
04e4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
04e5 8011 | | Call 0x0,0x11
04e6 00db | | Load_Top At_Offset_3
04e7 0227 | ' | Execute Access,All_Reference
04e8 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
04e9 e003 | | Load 0x0,0x3
04ea 181d | | Execute Package,Field_Execute,Field_Number 0x1d
04eb 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
04ec 0000 0000 | | .BLANK 0000[0x4]
04f0 ; --------------------------------------------------------------------------------------
04f0 ; SUBPROGRAM
04f0 ; --------------------------------------------------------------------------------------
04f0 04fd | | .CONST 0x04fd ; Address of begin
04f1 0004 | | .CONST 0x0004 ; Address of exception handler
04f2 0002 | | .CONST 0x0002 ; Number of locals
04f3 INIT_04f0:
04f3 00da | | Load_Top At_Offset_2
04f4 0227 | ' | Execute Access,All_Reference
04f5 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
04f6 00db | | Load_Top At_Offset_3
04f7 0227 | ' | Execute Access,All_Reference
04f8 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
04f9 8009 | | Call 0x0,0x9
04fa 09fd | | Execute_Immediate Binary_Scale,-0x3
04fb 00e5 | | Load_Encached Long_Integer_Cache
04fc 03f1 | | Declare_Variable Discrete,With_Value
04fd BODY_04f0:
04fd 00d8 | | Load_Top At_Offset_0
04fe 0d01 | | Execute_Immediate Less,0x1
04ff 6803 |h | Jump_Zero 0x503
0500 4800 |H | Short_Literal 0x0
0501 a5fd | | Store_Unchecked 0x2,-0x3
0502 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0503 00d8 | | Load_Top At_Offset_0
0504 e5fe | | Load 0x2,-0x2
0505 01db | | Execute Vector,Length
0506 027c | | | Execute Discrete,Less
0507 682c |h, | Jump_Zero 0x534
0508 e5fe | | Load 0x2,-0x2
0509 00d8 | | Load_Top At_Offset_0
050a 01dd | | Execute Vector,First
050b e5fe | | Load 0x2,-0x2
050c 01dd | | Execute Vector,First
050d 00db | | Load_Top At_Offset_3
050e 00d8 | | Load_Top At_Offset_0
050f 00e3 | | Load_Encached Natural_Cache
0510 0260 | ` | Execute Discrete,In_Type
0511 7001 |p | Jump_Nonzero 0x513
0512 0801 | | Execute_Immediate Raise,0x1
0513 0273 | s | Execute Discrete,Plus
0514 0aff | | Execute_Immediate Plus,-0x1
0515 00d8 | | Load_Top At_Offset_0
0516 00e2 | | Load_Encached Integer_Cache
0517 0260 | ` | Execute Discrete,In_Type
0518 7001 |p | Jump_Nonzero 0x51a
0519 0801 | | Execute_Immediate Raise,0x1
051a 00da | | Load_Top At_Offset_2
051b 035b | [ | Declare_Type Array,Constrained
051c 00d0 | | Action Swap_Control
051d 01cd | | Execute Vector,Slice_Reference
051e e5ff | | Load 0x2,-0x1
051f 0229 | ) | Execute Access,All_Read
0520 00e3 | | Load_Encached Natural_Cache
0521 00da | | Load_Top At_Offset_2
0522 00da | | Load_Top At_Offset_2
0523 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0524 e5ff | | Load 0x2,-0x1
0525 0227 | ' | Execute Access,All_Reference
0526 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0527 0227 | ' | Execute Access,All_Reference
0528 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0529 0227 | ' | Execute Access,All_Reference
052a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
052b e003 | | Load 0x0,0x3
052c 1b33 | 3 | Execute Package,Field_Read,Field_Number 0x33
052d 180f | | Execute Package,Field_Execute,Field_Number 0xf
052e 00db | | Load_Top At_Offset_3
052f 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0530 00d1 | | Pop_Control Pop_Count_1
0531 c5fd | | Store 0x2,-0x3
0532 00d2 | | Pop_Control Pop_Count_2
0533 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0534 00db | | Load_Top At_Offset_3
0535 0229 | ) | Execute Access,All_Read
0536 00e3 | | Load_Encached Natural_Cache
0537 e5fe | | Load 0x2,-0x2
0538 00da | | Load_Top At_Offset_2
0539 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
053a e5ff | | Load 0x2,-0x1
053b 0227 | ' | Execute Access,All_Reference
053c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
053d 0227 | ' | Execute Access,All_Reference
053e 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
053f 0227 | ' | Execute Access,All_Reference
0540 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0541 e003 | | Load 0x0,0x3
0542 1b33 | 3 | Execute Package,Field_Read,Field_Number 0x33
0543 180f | | Execute Package,Field_Execute,Field_Number 0xf
0544 00db | | Load_Top At_Offset_3
0545 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0546 00d1 | | Pop_Control Pop_Count_1
0547 c5fd | | Store 0x2,-0x3
0548 00d1 | | Pop_Control Pop_Count_1
0549 4501 |E | Exit_Suprogram New_Top_Offset 0x1
054a 0000 0000 | | .BLANK 0000[0x6]
0550 ; --------------------------------------------------------------------------------------
0550 ; SUBPROGRAM
0550 ; --------------------------------------------------------------------------------------
0550 0553 | S | .CONST 0x0553 ; Address of begin
0551 0004 | | .CONST 0x0004 ; Address of exception handler
0552 0001 | | .CONST 0x0001 ; Number of locals
0553 BODY_0550:
0553 INIT_0550:
0553 00db | | Load_Top At_Offset_3
0554 0229 | ) | Execute Access,All_Read
0555 00d8 | | Load_Top At_Offset_0
0556 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0557 e5ff | | Load 0x2,-0x1
0558 e5fe | | Load 0x2,-0x2
0559 0227 | ' | Execute Access,All_Reference
055a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
055b 0227 | ' | Execute Access,All_Reference
055c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
055d 0227 | ' | Execute Access,All_Reference
055e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
055f e003 | | Load 0x0,0x3
0560 1b33 | 3 | Execute Package,Field_Read,Field_Number 0x33
0561 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0562 00d9 | | Load_Top At_Offset_1
0563 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0564 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0565 0000 0000 | | .XXX[0x3]
0567 0000 | |
0568 ; --------------------------------------------------------------------------------------
0568 ; SUBPROGRAM
0568 ; --------------------------------------------------------------------------------------
0568 0575 | u | .CONST 0x0575 ; Address of begin
0569 0004 | | .CONST 0x0004 ; Address of exception handler
056a 0002 | | .CONST 0x0002 ; Number of locals
056b INIT_0568:
056b 00da | | Load_Top At_Offset_2
056c 0227 | ' | Execute Access,All_Reference
056d 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
056e 00db | | Load_Top At_Offset_3
056f 0227 | ' | Execute Access,All_Reference
0570 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0571 8009 | | Call 0x0,0x9
0572 09fd | | Execute_Immediate Binary_Scale,-0x3
0573 00e5 | | Load_Encached Long_Integer_Cache
0574 03f1 | | Declare_Variable Discrete,With_Value
0575 BODY_0568:
0575 00d8 | | Load_Top At_Offset_0
0576 0d01 | | Execute_Immediate Less,0x1
0577 6803 |h | Jump_Zero 0x57b
0578 4800 |H | Short_Literal 0x0
0579 a5fd | | Store_Unchecked 0x2,-0x3
057a 4501 |E | Exit_Suprogram New_Top_Offset 0x1
057b 00d8 | | Load_Top At_Offset_0
057c e5fe | | Load 0x2,-0x2
057d 01db | | Execute Vector,Length
057e 027c | | | Execute Discrete,Less
057f 682c |h, | Jump_Zero 0x5ac
0580 e5fe | | Load 0x2,-0x2
0581 00d8 | | Load_Top At_Offset_0
0582 01dd | | Execute Vector,First
0583 e5fe | | Load 0x2,-0x2
0584 01dd | | Execute Vector,First
0585 00db | | Load_Top At_Offset_3
0586 00d8 | | Load_Top At_Offset_0
0587 00e3 | | Load_Encached Natural_Cache
0588 0260 | ` | Execute Discrete,In_Type
0589 7001 |p | Jump_Nonzero 0x58b
058a 0801 | | Execute_Immediate Raise,0x1
058b 0273 | s | Execute Discrete,Plus
058c 0aff | | Execute_Immediate Plus,-0x1
058d 00d8 | | Load_Top At_Offset_0
058e 00e2 | | Load_Encached Integer_Cache
058f 0260 | ` | Execute Discrete,In_Type
0590 7001 |p | Jump_Nonzero 0x592
0591 0801 | | Execute_Immediate Raise,0x1
0592 00da | | Load_Top At_Offset_2
0593 035b | [ | Declare_Type Array,Constrained
0594 00d0 | | Action Swap_Control
0595 01cd | | Execute Vector,Slice_Reference
0596 e5ff | | Load 0x2,-0x1
0597 0229 | ) | Execute Access,All_Read
0598 00e3 | | Load_Encached Natural_Cache
0599 00da | | Load_Top At_Offset_2
059a 00da | | Load_Top At_Offset_2
059b 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
059c e5ff | | Load 0x2,-0x1
059d 0227 | ' | Execute Access,All_Reference
059e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
059f 0227 | ' | Execute Access,All_Reference
05a0 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
05a1 0227 | ' | Execute Access,All_Reference
05a2 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
05a3 e003 | | Load 0x0,0x3
05a4 1b33 | 3 | Execute Package,Field_Read,Field_Number 0x33
05a5 1811 | | Execute Package,Field_Execute,Field_Number 0x11
05a6 00db | | Load_Top At_Offset_3
05a7 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
05a8 00d1 | | Pop_Control Pop_Count_1
05a9 c5fd | | Store 0x2,-0x3
05aa 00d2 | | Pop_Control Pop_Count_2
05ab 4501 |E | Exit_Suprogram New_Top_Offset 0x1
05ac 00db | | Load_Top At_Offset_3
05ad 0229 | ) | Execute Access,All_Read
05ae 00e3 | | Load_Encached Natural_Cache
05af e5fe | | Load 0x2,-0x2
05b0 00da | | Load_Top At_Offset_2
05b1 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
05b2 e5ff | | Load 0x2,-0x1
05b3 0227 | ' | Execute Access,All_Reference
05b4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
05b5 0227 | ' | Execute Access,All_Reference
05b6 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
05b7 0227 | ' | Execute Access,All_Reference
05b8 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
05b9 e003 | | Load 0x0,0x3
05ba 1b33 | 3 | Execute Package,Field_Read,Field_Number 0x33
05bb 1811 | | Execute Package,Field_Execute,Field_Number 0x11
05bc 00db | | Load_Top At_Offset_3
05bd 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
05be 00d1 | | Pop_Control Pop_Count_1
05bf c5fd | | Store 0x2,-0x3
05c0 00d1 | | Pop_Control Pop_Count_1
05c1 4501 |E | Exit_Suprogram New_Top_Offset 0x1
05c2 0000 0000 | | .BLANK 0000[0x6]
05c8 ; --------------------------------------------------------------------------------------
05c8 ; SUBPROGRAM
05c8 ; --------------------------------------------------------------------------------------
05c8 05cb | | .CONST 0x05cb ; Address of begin
05c9 0004 | | .CONST 0x0004 ; Address of exception handler
05ca 0001 | | .CONST 0x0001 ; Number of locals
05cb BODY_05c8:
05cb INIT_05c8:
05cb 00db | | Load_Top At_Offset_3
05cc 0229 | ) | Execute Access,All_Read
05cd 00d8 | | Load_Top At_Offset_0
05ce 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
05cf e5ff | | Load 0x2,-0x1
05d0 e5fe | | Load 0x2,-0x2
05d1 0227 | ' | Execute Access,All_Reference
05d2 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
05d3 0227 | ' | Execute Access,All_Reference
05d4 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
05d5 0227 | ' | Execute Access,All_Reference
05d6 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
05d7 e003 | | Load 0x0,0x3
05d8 1b33 | 3 | Execute Package,Field_Read,Field_Number 0x33
05d9 1815 | | Execute Package,Field_Execute,Field_Number 0x15
05da 00d9 | | Load_Top At_Offset_1
05db 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
05dc 4502 |E | Exit_Suprogram New_Top_Offset 0x2
05dd 0000 0000 | | .XXX[0x3]
05df 0000 | |
05e0 ; --------------------------------------------------------------------------------------
05e0 ; SUBPROGRAM
05e0 ; --------------------------------------------------------------------------------------
05e0 05e3 | | .CONST 0x05e3 ; Address of begin
05e1 0004 | | .CONST 0x0004 ; Address of exception handler
05e2 0001 | | .CONST 0x0001 ; Number of locals
05e3 BODY_05e0:
05e3 INIT_05e0:
05e3 4601 |F | Jump_Case 0x2
05e4 7801 |x | Jump 0x5e6 ; case 0x0
05e5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
05e6 00da | | Load_Top At_Offset_2
05e7 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
05e8 0125 | % | Execute Any,Set_Constraint
05e9 00da | | Load_Top At_Offset_2
05ea 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
05eb 1c00 | | Execute_Immediate Run_Utility,0x0
05ec 00da | | Load_Top At_Offset_2
05ed 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
05ee 0125 | % | Execute Any,Set_Constraint
05ef 00da | | Load_Top At_Offset_2
05f0 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
05f1 1c00 | | Execute_Immediate Run_Utility,0x0
05f2 00da | | Load_Top At_Offset_2
05f3 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4
05f4 0125 | % | Execute Any,Set_Constraint
05f5 00da | | Load_Top At_Offset_2
05f6 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4
05f7 1c00 | | Execute_Immediate Run_Utility,0x0
05f8 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
05f9 0000 0000 | | .BLANK 0000[0x7]
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 00da | | Load_Top At_Offset_2
0604 0227 | ' | Execute Access,All_Reference
0605 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0606 0217 | | Execute Heap_Access,All_Reference
0607 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0608 0335 | 5 | Declare_Variable Array,Duplicate
0609 00cd | | Action Spare6_Action
060a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
060b 0000 0000 | | .BLANK 0000[0x5]
0610 ; --------------------------------------------------------------------------------------
0610 ; SUBPROGRAM
0610 ; --------------------------------------------------------------------------------------
0610 0626 | & | .CONST 0x0626 ; Address of begin
0611 0004 | | .CONST 0x0004 ; Address of exception handler
0612 0004 | | .CONST 0x0004 ; Number of locals
0613 INIT_0610:
0613 00db | | Load_Top At_Offset_3
0614 0227 | ' | Execute Access,All_Reference
0615 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0616 0227 | ' | Execute Access,All_Reference
0617 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0618 0227 | ' | Execute Access,All_Reference
0619 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
061a 0007 | | Action Break_Optional
061b e003 | | Load 0x0,0x3
061c 1b15 | | Execute Package,Field_Read,Field_Number 0x15
061d 02c7 | | Declare_Variable Any
061e e5fe | | Load 0x2,-0x2
061f 0227 | ' | Execute Access,All_Reference
0620 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0621 0227 | ' | Execute Access,All_Reference
0622 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0623 8010 | | Call 0x0,0x10
0624 a403 | | Store_Unchecked 0x2,0x3
0625 e002 | | Load 0x0,0x2
0626 BODY_0610:
0626 00be | | Action Activate_Tasks
0627 00cf | | Action Mark_Auxiliary
0628 782c |x, | Jump 0x655
0629 00da | | Load_Top At_Offset_2
062a e402 | | Load 0x2,0x2
062b e014 | | Load 0x0,0x14
062c 1811 | | Execute Package,Field_Execute,Field_Number 0x11
062d 0032 | 2 | Store_Top Heap_Access,At_Offset_2
062e 00da | | Load_Top At_Offset_2
062f e402 | | Load 0x2,0x2
0630 e015 | | Load 0x0,0x15
0631 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0632 c403 | | Store 0x2,0x3
0633 00d9 | | Load_Top At_Offset_1
0634 0217 | | Execute Heap_Access,All_Reference
0635 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0636 e5ff | | Load 0x2,-0x1
0637 01df | | Execute Vector,Equal
0638 6815 |h | Jump_Zero 0x64e
0639 00d9 | | Load_Top At_Offset_1
063a e5fe | | Load 0x2,-0x2
063b 0227 | ' | Execute Access,All_Reference
063c 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
063d 00da | | Load_Top At_Offset_2
063e e5fe | | Load 0x2,-0x2
063f 0227 | ' | Execute Access,All_Reference
0640 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0641 00da | | Load_Top At_Offset_2
0642 e5fe | | Load 0x2,-0x2
0643 0227 | ' | Execute Access,All_Reference
0644 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0645 00d9 | | Load_Top At_Offset_1
0646 0217 | | Execute Heap_Access,All_Reference
0647 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0648 00db | | Load_Top At_Offset_3
0649 8013 | | Call 0x0,0x13
064a e5fe | | Load 0x2,-0x2
064b 0227 | ' | Execute Access,All_Reference
064c 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
064d 4502 |E | Exit_Suprogram New_Top_Offset 0x2
064e 00d9 | | Load_Top At_Offset_1
064f 0217 | | Execute Heap_Access,All_Reference
0650 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0651 00db | | Load_Top At_Offset_3
0652 8013 | | Call 0x0,0x13
0653 c403 | | Store 0x2,0x3
0654 00c9 | | Action Pop_Auxiliary_Loop
0655 e5fe | | Load 0x2,-0x2
0656 0227 | ' | Execute Access,All_Reference
0657 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0658 0227 | ' | Execute Access,All_Reference
0659 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
065a 8011 | | Call 0x0,0x11
065b 00db | | Load_Top At_Offset_3
065c e003 | | Load 0x0,0x3
065d 181a | | Execute Package,Field_Execute,Field_Number 0x1a
065e 77ca |w | Jump_Nonzero 0x629
065f 00ce | | Action Pop_Auxiliary
0660 4920 |I | Short_Literal 0x120
0661 0257 | W | Execute Discrete,Raise
0662 0000 0000 | | .BLANK 0000[0x6]
0668 ; --------------------------------------------------------------------------------------
0668 ; SUBPROGRAM
0668 ; --------------------------------------------------------------------------------------
0668 0670 | p | .CONST 0x0670 ; Address of begin
0669 0004 | | .CONST 0x0004 ; Address of exception handler
066a 0002 | | .CONST 0x0002 ; Number of locals
066b INIT_0668:
066b e5fe | | Load 0x2,-0x2
066c 0227 | ' | Execute Access,All_Reference
066d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
066e 800d | | Call 0x0,0xd
066f 8016 | | Call 0x0,0x16
0670 BODY_0668:
0670 e5fe | | Load 0x2,-0x2
0671 00d8 | | Load_Top At_Offset_0
0672 0227 | ' | Execute Access,All_Reference
0673 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0674 00da | | Load_Top At_Offset_2
0675 4801 |H | Short_Literal 0x1
0676 800e | | Call 0x0,0xe
0677 c5fe | | Store 0x2,-0x2
0678 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0679 0000 0000 | | .BLANK 0000[0x7]
0680 ; --------------------------------------------------------------------------------------
0680 ; SUBPROGRAM
0680 ; --------------------------------------------------------------------------------------
0680 069b | | .CONST 0x069b ; Address of begin
0681 0004 | | .CONST 0x0004 ; Address of exception handler
0682 0005 | | .CONST 0x0005 ; Number of locals
0683 INIT_0680:
0683 e5ff | | Load 0x2,-0x1
0684 820f | | Call 0x1,0xf
0685 e00c | | Load 0x0,0xc
0686 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0687 e5fe | | Load 0x2,-0x2
0688 0227 | ' | Execute Access,All_Reference
0689 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
068a 0227 | ' | Execute Access,All_Reference
068b 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
068c 0007 | | Action Break_Optional
068d 00d9 | | Load_Top At_Offset_1
068e 01db | | Execute Vector,Length
068f e017 | | Load 0x0,0x17
0690 1c08 | | Execute_Immediate Run_Utility,0x8
0691 00d8 | | Load_Top At_Offset_0
0692 1c00 | | Execute_Immediate Run_Utility,0x0
0693 e003 | | Load 0x0,0x3
0694 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0695 02c7 | | Declare_Variable Any
0696 e5fe | | Load 0x2,-0x2
0697 0227 | ' | Execute Access,All_Reference
0698 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0699 8011 | | Call 0x0,0x11
069a a605 | | Store_Unchecked 0x3,0x5
069b BODY_0680:
069b 00be | | Action Activate_Tasks
069c 00d9 | | Load_Top At_Offset_1
069d 00d9 | | Load_Top At_Offset_1
069e e603 | | Load 0x3,0x3
069f e015 | | Load 0x0,0x15
06a0 1812 | | Execute Package,Field_Execute,Field_Number 0x12
06a1 00d8 | | Load_Top At_Offset_0
06a2 00db | | Load_Top At_Offset_3
06a3 e014 | | Load 0x0,0x14
06a4 1811 | | Execute Package,Field_Execute,Field_Number 0x11
06a5 e5fd | | Load 0x2,-0x3
06a6 0227 | ' | Execute Access,All_Reference
06a7 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
06a8 00db | | Load_Top At_Offset_3
06a9 e5fd | | Load 0x2,-0x3
06aa 0227 | ' | Execute Access,All_Reference
06ab 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
06ac 0217 | | Execute Heap_Access,All_Reference
06ad 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3
06ae 00d8 | | Load_Top At_Offset_0
06af 00db | | Load_Top At_Offset_3
06b0 e015 | | Load 0x0,0x15
06b1 1810 | | Execute Package,Field_Execute,Field_Number 0x10
06b2 e5fd | | Load 0x2,-0x3
06b3 0227 | ' | Execute Access,All_Reference
06b4 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
06b5 e5fd | | Load 0x2,-0x3
06b6 0227 | ' | Execute Access,All_Reference
06b7 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
06b8 e5fd | | Load 0x2,-0x3
06b9 0227 | ' | Execute Access,All_Reference
06ba 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
06bb e5fd | | Load 0x2,-0x3
06bc 0227 | ' | Execute Access,All_Reference
06bd 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
06be e5fd | | Load 0x2,-0x3
06bf 0227 | ' | Execute Access,All_Reference
06c0 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
06c1 e5fe | | Load 0x2,-0x2
06c2 0227 | ' | Execute Access,All_Reference
06c3 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
06c4 0a01 | | Execute_Immediate Plus,0x1
06c5 e5fe | | Load 0x2,-0x2
06c6 0227 | ' | Execute Access,All_Reference
06c7 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
06c8 4501 |E | Exit_Suprogram New_Top_Offset 0x1
06c9 0000 0000 | | .BLANK 0000[0x7]
06d0 ; --------------------------------------------------------------------------------------
06d0 ; SUBPROGRAM
06d0 ; --------------------------------------------------------------------------------------
06d0 06e5 | | .CONST 0x06e5 ; Address of begin
06d1 0004 | | .CONST 0x0004 ; Address of exception handler
06d2 0012 | | .CONST 0x0012 ; Number of locals
06d3 INIT_06d0:
06d3 029a 06eb | | Declare_Subprogram INIT_06e8,For_Outer_Call,Visible,Unelaborated
06d5 029a 0703 | | Declare_Subprogram INIT_0700,For_Outer_Call,Visible,Unelaborated
06d7 00bf | | Action Accept_Activation
06d8 e001 | | Load 0x0,0x1
06d9 e002 | | Load 0x0,0x2
06da e20e | | Load 0x1,0xe
06db e20f | | Load 0x1,0xf
06dc e003 | | Load 0x0,0x3
06dd 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e
06de 0387 | | Declare_Variable Package
06df 00d8 | | Load_Top At_Offset_0
06e0 020f | | Execute Module,Activate
06e1 1d10 | | Execute_Immediate Reference_Lex_1,0x10
06e2 00c7 | | Action Elaborate_Subprogram
06e3 1d11 | | Execute_Immediate Reference_Lex_1,0x11
06e4 00c7 | | Action Elaborate_Subprogram
06e5 BODY_06d0:
06e5 00bc | | Action Signal_Activated
06e6 00bb | | Action Signal_Completion
06e7 0000 | | .XXX[0x1]
06e8 ; --------------------------------------------------------------------------------------
06e8 ; SUBPROGRAM
06e8 ; --------------------------------------------------------------------------------------
06e8 06f2 | | .CONST 0x06f2 ; Address of begin
06e9 0004 | | .CONST 0x0004 ; Address of exception handler
06ea 0002 | | .CONST 0x0002 ; Number of locals
06eb INIT_06e8:
06eb 00da | | Load_Top At_Offset_2
06ec 0227 | ' | Execute Access,All_Reference
06ed 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
06ee 0227 | ' | Execute Access,All_Reference
06ef 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
06f0 0227 | ' | Execute Access,All_Reference
06f1 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
06f2 BODY_06e8:
06f2 00be | | Action Activate_Tasks
06f3 00db | | Load_Top At_Offset_3
06f4 0227 | ' | Execute Access,All_Reference
06f5 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
06f6 00d9 | | Load_Top At_Offset_1
06f7 e212 | | Load 0x1,0x12
06f8 1811 | | Execute Package,Field_Execute,Field_Number 0x11
06f9 e20f | | Load 0x1,0xf
06fa 0213 | | Execute Heap_Access,Check_In_Type
06fb 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
06fc 0000 0000 | | .BLANK 0000[0x4]
0700 ; --------------------------------------------------------------------------------------
0700 ; SUBPROGRAM
0700 ; --------------------------------------------------------------------------------------
0700 070a | | .CONST 0x070a ; Address of begin
0701 0004 | | .CONST 0x0004 ; Address of exception handler
0702 0002 | | .CONST 0x0002 ; Number of locals
0703 INIT_0700:
0703 00da | | Load_Top At_Offset_2
0704 0227 | ' | Execute Access,All_Reference
0705 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0706 0227 | ' | Execute Access,All_Reference
0707 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0708 0227 | ' | Execute Access,All_Reference
0709 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
070a BODY_0700:
070a 00be | | Action Activate_Tasks
070b 00db | | Load_Top At_Offset_3
070c 0227 | ' | Execute Access,All_Reference
070d 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
070e e5fe | | Load 0x2,-0x2
070f e20f | | Load 0x1,0xf
0710 0213 | | Execute Heap_Access,Check_In_Type
0711 00da | | Load_Top At_Offset_2
0712 e212 | | Load 0x1,0x12
0713 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0714 8004 | | Call 0x0,0x4
0715 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0716 0000 0000 | | .XXX[0x2]
0718 ; --------------------------------------------------------------------------------------
0718 ; SUBPROGRAM
0718 ; --------------------------------------------------------------------------------------
0718 072c | , | .CONST 0x072c ; Address of begin
0719 0004 | | .CONST 0x0004 ; Address of exception handler
071a 0011 | | .CONST 0x0011 ; Number of locals
071b INIT_0718:
071b 029a 0733 | 3| Declare_Subprogram INIT_0730,For_Outer_Call,Visible,Unelaborated
071d 029a 0763 | c| Declare_Subprogram INIT_0760,For_Outer_Call,Visible,Unelaborated
071f 00bf | | Action Accept_Activation
0720 e001 | | Load 0x0,0x1
0721 e002 | | Load 0x0,0x2
0722 e20e | | Load 0x1,0xe
0723 e003 | | Load 0x0,0x3
0724 1b2d | - | Execute Package,Field_Read,Field_Number 0x2d
0725 0387 | | Declare_Variable Package
0726 00d8 | | Load_Top At_Offset_0
0727 020f | | Execute Module,Activate
0728 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0729 00c7 | | Action Elaborate_Subprogram
072a 1d10 | | Execute_Immediate Reference_Lex_1,0x10
072b 00c7 | | Action Elaborate_Subprogram
072c BODY_0718:
072c 00bc | | Action Signal_Activated
072d 00bb | | Action Signal_Completion
072e 0000 0000 | | .XXX[0x2]
0730 ; --------------------------------------------------------------------------------------
0730 ; SUBPROGRAM
0730 ; --------------------------------------------------------------------------------------
0730 0742 | B | .CONST 0x0742 ; Address of begin
0731 0004 | | .CONST 0x0004 ; Address of exception handler
0732 0003 | | .CONST 0x0003 ; Number of locals
0733 INIT_0730:
0733 00da | | Load_Top At_Offset_2
0734 0227 | ' | Execute Access,All_Reference
0735 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0736 0227 | ' | Execute Access,All_Reference
0737 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0738 0227 | ' | Execute Access,All_Reference
0739 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
073a 0007 | | Action Break_Optional
073b e003 | | Load 0x0,0x3
073c 1b15 | | Execute Package,Field_Read,Field_Number 0x15
073d 02c7 | | Declare_Variable Any
073e e5ff | | Load 0x2,-0x1
073f 0227 | ' | Execute Access,All_Reference
0740 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0741 a403 | | Store_Unchecked 0x2,0x3
0742 BODY_0730:
0742 00be | | Action Activate_Tasks
0743 00d8 | | Load_Top At_Offset_0
0744 00da | | Load_Top At_Offset_2
0745 e211 | | Load 0x1,0x11
0746 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0747 e5ff | | Load 0x2,-0x1
0748 0227 | ' | Execute Access,All_Reference
0749 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
074a e5ff | | Load 0x2,-0x1
074b 0227 | ' | Execute Access,All_Reference
074c 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
074d e5ff | | Load 0x2,-0x1
074e 0227 | ' | Execute Access,All_Reference
074f 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0750 e003 | | Load 0x0,0x3
0751 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0752 6806 |h | Jump_Zero 0x759
0753 00d8 | | Load_Top At_Offset_0
0754 e5ff | | Load 0x2,-0x1
0755 0227 | ' | Execute Access,All_Reference
0756 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0757 4950 |IP | Short_Literal 0x150
0758 0257 | W | Execute Discrete,Raise
0759 00d8 | | Load_Top At_Offset_0
075a 00da | | Load_Top At_Offset_2
075b e211 | | Load 0x1,0x11
075c 1811 | | Execute Package,Field_Execute,Field_Number 0x11
075d e20e | | Load 0x1,0xe
075e 0119 | | Execute Any,Check_In_Formal_Type
075f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0760 ; --------------------------------------------------------------------------------------
0760 ; SUBPROGRAM
0760 ; --------------------------------------------------------------------------------------
0760 076a | j | .CONST 0x076a ; Address of begin
0761 0004 | | .CONST 0x0004 ; Address of exception handler
0762 0002 | | .CONST 0x0002 ; Number of locals
0763 INIT_0760:
0763 00db | | Load_Top At_Offset_3
0764 0227 | ' | Execute Access,All_Reference
0765 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0766 0227 | ' | Execute Access,All_Reference
0767 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0768 0227 | ' | Execute Access,All_Reference
0769 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
076a BODY_0760:
076a 00be | | Action Activate_Tasks
076b 00db | | Load_Top At_Offset_3
076c e20e | | Load 0x1,0xe
076d 0119 | | Execute Any,Check_In_Formal_Type
076e e5fe | | Load 0x2,-0x2
076f 0227 | ' | Execute Access,All_Reference
0770 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0771 00da | | Load_Top At_Offset_2
0772 e211 | | Load 0x1,0x11
0773 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0774 e5fe | | Load 0x2,-0x2
0775 0227 | ' | Execute Access,All_Reference
0776 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0777 00d9 | | Load_Top At_Offset_1
0778 e211 | | Load 0x1,0x11
0779 1810 | | Execute Package,Field_Execute,Field_Number 0x10
077a e5fe | | Load 0x2,-0x2
077b 0227 | ' | Execute Access,All_Reference
077c 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
077d 4502 |E | Exit_Suprogram New_Top_Offset 0x2
077e ; --------------------------------------------------------------------------------------
077e ; STRING TABLE
077e ; --------------------------------------------------------------------------------------
077e 0008 | | .STRTAB 0x0008->0x0782 ; "IN_FILE"
077f 000d | | .STRTAB 0x000d->0x0785 ; "OUT_FILE"
0780 0013 | | .STRTAB 0x0013->0x0789 ; "_000"
0781 0015 | | .STREND 0x0015->0x078b
0782 494e 5f46 |IN_F| .STRTAB_STRINGS
078c 0000 0000 | | .BLANK 0000[0x4]
0790 ; --------------------------------------------------------------------------------------
0790 ; Debug Table
0790 ; --------------------------------------------------------------------------------------
0790 0004 0002 | | .DEBUG4 0x0004,0x0002,0x0b8f,0x0000,0x0001,0x0000
0796 81d1 bc28 | (| .XXX[0x6a]
0798 8080 8080 | |
079a b4b4 8080 | |
079c 8080 81d1 | |
079e a185 d081 | |
07a0 a1a5 9da1 | |
07a2 b1a5 9da1 | |
07a4 d195 9081 | |
07a6 c995 9da5 | |
07a8 bdb8 b828 | (|
07aa 2880 8080 |( |
07ac 80b4 b480 | |
07ae 8080 8081 | |
07b0 51a1 a5cc |Q |
07b2 81a5 cc81 | |
07b4 d1a1 9481 | |
07b6 b5bd cdd0 | |
07b8 81c9 95cd | |
07ba d1c9 a58d | |
07bc d1a5 d994 | |
07be 81cd 95b1 | |
07c0 958d d1a5 | |
07c2 bdb8 81b5 | |
07c4 bd91 9481 | |
07c6 85b9 9081 | |
07c8 ddbd d5b1 | |
07ca 9081 8994 | |
07cc 81d5 cd95 | |
07ce 9028 8080 | ( |
07d0 8080 b4b4 | |
07d2 8080 8080 | |
07d4 8189 e481 | |
07d6 8dbd b5b5 | |
07d8 85b9 91cc | |
07da b081 cdd5 | |
07dc 8da0 8185 | |
07de cc81 9195 | |
07e0 b195 d194 | |
07e2 8185 b990 | |
07e4 8191 95b5 | |
07e6 bdd1 94b0 | |
07e8 81d1 a185 | |
07ea d081 b5d5 | |
07ec cdd0 81a1 | |
07ee 85d9 9481 | |
07f0 8428 8080 | ( |
07f2 8080 b4b4 | |
07f4 8080 8080 | |
07f6 81cd d1c9 | |
07f8 bdb9 9c81 | |
07fa a5b9 91a5 | |
07fc 8d85 d1a5 | |
07fe bdb8 8199 | |