|
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_5d44f0
└─⟦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 07b8 | | .CONST 0x07b8 ; 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 8005 | | .CONST 0x8005 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 00d1 | | .CONST 0x00d1 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0034 | 4 | .CONST 0x0034 ; Number of locals
000b INIT_0008:
000b 4818 |H | Short_Literal 0x18
000c 03cd | | Declare_Type Access,Incomplete,Visible,Accesses_Protected
000d 4800 |H | Short_Literal 0x0
000e 4801 |H | Short_Literal 0x1
000f 029f 00db | | Declare_Subprogram INIT_00d8,For_Call
0011 03fe | | Declare_Type Discrete,Defined,Visible
0012 029a 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible,Unelaborated
0014 029a 014b | K| Declare_Subprogram INIT_0148,For_Outer_Call,Visible,Unelaborated
0016 029a 016b | k| Declare_Subprogram INIT_0168,For_Outer_Call,Visible,Unelaborated
0018 029a 017b | {| Declare_Subprogram INIT_0178,For_Outer_Call,Visible,Unelaborated
001a 029a 01bb | | Declare_Subprogram INIT_01b8,For_Outer_Call,Visible,Unelaborated
001c 029a 01eb | | Declare_Subprogram INIT_01e8,For_Outer_Call,Visible,Unelaborated
001e 4800 |H | Short_Literal 0x0
001f 0093 0373 | s| push_full_address INIT_0370
0021 02a0 | | Declare_Subprogram Null_Subprogram
0022 038f | | Declare_Type Package,Defined,Visible
0023 0386 | | Declare_Variable Package,Visible
0024 4802 |H | Short_Literal 0x2
0025 032b | + | Declare_Type Record,Incomplete,Visible
0026 029a 020b | | Declare_Subprogram INIT_0208,For_Outer_Call,Visible,Unelaborated
0028 029a 021b | | Declare_Subprogram INIT_0218,For_Outer_Call,Visible,Unelaborated
002a 029a 0233 | 3| Declare_Subprogram INIT_0230,For_Outer_Call,Visible,Unelaborated
002c 029a 024b | K| Declare_Subprogram INIT_0248,For_Outer_Call,Visible,Unelaborated
002e 029a 026b | k| Declare_Subprogram INIT_0268,For_Outer_Call,Visible,Unelaborated
0030 029a 027b | {| Declare_Subprogram INIT_0278,For_Outer_Call,Visible,Unelaborated
0032 029a 02cb | | Declare_Subprogram INIT_02c8,For_Outer_Call,Visible,Unelaborated
0034 4807 |H | Short_Literal 0x7
0035 032a | * | Declare_Type Record,Incomplete
0036 00d8 | | Load_Top At_Offset_0
0037 02a0 | | Declare_Subprogram Null_Subprogram
0038 e217 | | Load 0x1,0x17
0039 03c7 | | Complete_Type Access,By_Defining
003a e217 | | Load 0x1,0x17
003b e001 | | Load 0x0,0x1
003c 1b15 | | Execute Package,Field_Read,Field_Number 0x15
003d 029f 035b | [| Declare_Subprogram INIT_0358,For_Call
003f e220 | | Load 0x1,0x20
0040 0326 | & | Complete_Type Record,By_Defining
0041 00bf | | Action Accept_Activation
0042 e20f | | Load 0x1,0xf
0043 e002 | | Load 0x0,0x2
0044 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0045 e218 | | Load 0x1,0x18
0046 00e5 | | Load_Encached Long_Integer_Cache
0047 00e2 | | Load_Encached Integer_Cache
0048 00e2 | | Load_Encached Integer_Cache
0049 00e1 | | Load_Encached Boolean_Cache
004a 029f 02db | | Declare_Subprogram INIT_02d8,For_Call
004c e228 | ( | Load 0x1,0x28
004d 0326 | & | Complete_Type Record,By_Defining
004e 00e3 | | Load_Encached Natural_Cache
004f 4800 |H | Short_Literal 0x0
0050 4801 |H | Short_Literal 0x1
0051 4801 |H | Short_Literal 0x1
0052 4803 |H | Short_Literal 0x3
0053 0318 | | Declare_Type Variant_Record,Incomplete
0054 029f 02f3 | | Declare_Subprogram INIT_02f0,For_Call
0056 00d9 | | Load_Top At_Offset_1
0057 012a | * | Execute Any,Change_Utility
0058 0007 | | Action Break_Optional
0059 00d8 | | Load_Top At_Offset_0
005a 02a0 | | Declare_Subprogram Null_Subprogram
005b 03ad | | Declare_Type Heap_Access,Defined
005c 00e5 | | Load_Encached Long_Integer_Cache
005d 00e9 | | Load_Encached String_Cache
005e 029f 02f3 | | Declare_Subprogram INIT_02f0,For_Call
0060 4800 |H | Short_Literal 0x0
0061 4801 |H | Short_Literal 0x1
0062 4801 |H | Short_Literal 0x1
0063 e229 | ) | Load 0x1,0x29
0064 0307 | | Complete_Type Variant_Record,By_Defining
0065 e003 | | Load 0x0,0x3
0066 e004 | | Load 0x0,0x4
0067 00db | | Load_Top At_Offset_3
0068 e001 | | Load 0x0,0x1
0069 1b2d | - | Execute Package,Field_Read,Field_Number 0x2d
006a 0387 | | Declare_Variable Package
006b 00d8 | | Load_Top At_Offset_0
006c 020f | | Execute Module,Activate
006d e005 | | Load 0x0,0x5
006e e006 | | Load 0x0,0x6
006f e229 | ) | Load 0x1,0x29
0070 e22a | * | Load 0x1,0x2a
0071 e001 | | Load 0x0,0x1
0072 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e
0073 0387 | | Declare_Variable Package
0074 00d8 | | Load_Top At_Offset_0
0075 020f | | Execute Module,Activate
0076 e218 | | Load 0x1,0x18
0077 0266 | f | Execute Discrete,Bounds
0078 e001 | | Load 0x0,0x1
0079 1b14 | | Execute Package,Field_Read,Field_Number 0x14
007a 02a0 | | Declare_Subprogram Null_Subprogram
007b 4801 |H | Short_Literal 0x1
007c 035d | ] | Declare_Type Array,Defined
007d 00d8 | | Load_Top At_Offset_0
007e 0337 | 7 | Declare_Variable Array
007f 00d8 | | Load_Top At_Offset_0
0080 0335 | 5 | Declare_Variable Array,Duplicate
0081 00cd | | Action Spare6_Action
0082 4800 |H | Short_Literal 0x0
0083 4800 |H | Short_Literal 0x0
0084 00da | | Load_Top At_Offset_2
0085 01d6 | | Execute Vector,Field_Write
0086 4802 |H | Short_Literal 0x2
0087 4801 |H | Short_Literal 0x1
0088 00da | | Load_Top At_Offset_2
0089 01d6 | | Execute Vector,Field_Write
008a 00d9 | | Load_Top At_Offset_1
008b 01d4 | | Execute Vector,Structure_Write
008c 029d 031b | | Declare_Subprogram INIT_0318,For_Outer_Call
008e 029d 032b | +| Declare_Subprogram INIT_0328,For_Outer_Call
0090 029d 033b | ;| Declare_Subprogram INIT_0338,For_Outer_Call
0092 029d 034b | K| Declare_Subprogram INIT_0348,For_Outer_Call
0094 1d19 | | Execute_Immediate Reference_Lex_1,0x19
0095 00c7 | | Action Elaborate_Subprogram
0096 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
0097 00c7 | | Action Elaborate_Subprogram
0098 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
0099 00c7 | | Action Elaborate_Subprogram
009a 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
009b 00c7 | | Action Elaborate_Subprogram
009c 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
009d 00c7 | | Action Elaborate_Subprogram
009e 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
009f 00c7 | | Action Elaborate_Subprogram
00a0 e007 | | Load 0x0,0x7
00a1 e008 | | Load 0x0,0x8
00a2 00e5 | | Load_Encached Long_Integer_Cache
00a3 e001 | | Load 0x0,0x1
00a4 1b2d | - | Execute Package,Field_Read,Field_Number 0x2d
00a5 0387 | | Declare_Variable Package
00a6 00d8 | | Load_Top At_Offset_0
00a7 020f | | Execute Module,Activate
00a8 e009 | | Load 0x0,0x9
00a9 e00a | | Load 0x0,0xa
00aa 00e9 | | Load_Encached String_Cache
00ab e001 | | Load 0x0,0x1
00ac 1b2d | - | Execute Package,Field_Read,Field_Number 0x2d
00ad 0387 | | Declare_Variable Package
00ae 00d8 | | Load_Top At_Offset_0
00af 020f | | Execute Module,Activate
00b0 00b6 | | Action Make_Scope
00b1 e22a | * | Load 0x1,0x2a
00b2 e001 | | Load 0x0,0x1
00b3 e00b | | Load 0x0,0xb
00b4 e00c | | Load 0x0,0xc
00b5 e00d | | Load 0x0,0xd
00b6 e00e | | Load 0x0,0xe
00b7 1d31 | 1 | Execute_Immediate Reference_Lex_1,0x31
00b8 1d32 | 2 | Execute_Immediate Reference_Lex_1,0x32
00b9 e00f | | Load 0x0,0xf
00ba 1d30 | 0 | Execute_Immediate Reference_Lex_1,0x30
00bb e22c | , | Load 0x1,0x2c
00bc e22b | + | Load 0x1,0x2b
00bd e229 | ) | Load 0x1,0x29
00be 480e |H | Short_Literal 0xe
00bf e21f | | Load 0x1,0x1f
00c0 020e | | Execute Module,Augment_Imports
00c1 e21f | | Load 0x1,0x1f
00c2 020f | | Execute Module,Activate
00c3 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
00c4 00c7 | | Action Elaborate_Subprogram
00c5 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
00c6 00c7 | | Action Elaborate_Subprogram
00c7 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
00c8 00c7 | | Action Elaborate_Subprogram
00c9 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
00ca 00c7 | | Action Elaborate_Subprogram
00cb 1d25 | % | Execute_Immediate Reference_Lex_1,0x25
00cc 00c7 | | Action Elaborate_Subprogram
00cd 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27
00ce 00c7 | | Action Elaborate_Subprogram
00cf 1d26 | & | Execute_Immediate Reference_Lex_1,0x26
00d0 00c7 | | Action Elaborate_Subprogram
00d1 BODY_0008:
00d1 00bc | | Action Signal_Activated
00d2 00bb | | Action Signal_Completion
00d3 0000 0000 | | .BLANK 0000[0x5]
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00db | | .CONST 0x00db ; Address of begin
00d9 0004 | | .CONST 0x0004 ; Address of exception handler
00da 0001 | | .CONST 0x0001 ; Number of locals
00db BODY_00d8:
00db INIT_00d8:
00db 4607 |F | Jump_Case 0x8
00dc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
00dd 7806 |x | Jump 0xe4 ; case 0x1
00de 7809 |x | Jump 0xe8 ; case 0x2
00df 780d |x | Jump 0xed ; case 0x3
00e0 7810 |x | Jump 0xf1 ; case 0x4
00e1 7811 |x | Jump 0xf3 ; case 0x5
00e2 7812 |x | Jump 0xf5 ; case 0x6
00e3 7815 |x | Jump 0xf9 ; case 0x7
00e4 00da | | Load_Top At_Offset_2
00e5 0091 07a6 | | Action Push_String_Extended_Indexed,0x7a6 ; "IN_FILE"
00e7 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00e8 00db | | Load_Top At_Offset_3
00e9 00db | | Load_Top At_Offset_3
00ea 00e0 | | Load_Encached Standard_Cache
00eb 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00ec 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00ed 00da | | Load_Top At_Offset_2
00ee 00e0 | | Load_Encached Standard_Cache
00ef 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00f0 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00f1 00db | | Load_Top At_Offset_3
00f2 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00f3 00db | | Load_Top At_Offset_3
00f4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00f5 e218 | | Load 0x1,0x18
00f6 00dc | | Load_Top At_Offset_4
00f7 0267 | g | Execute Discrete,Predecessor
00f8 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00f9 e218 | | Load 0x1,0x18
00fa 00dc | | Load_Top At_Offset_4
00fb 0268 | h | Execute Discrete,Successor
00fc 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00fd 0000 0000 | | .XXX[0x3]
00ff 0000 | |
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0103 | | .CONST 0x0103 ; Address of begin
0101 0004 | | .CONST 0x0004 ; Address of exception handler
0102 0001 | | .CONST 0x0001 ; Number of locals
0103 BODY_0100:
0103 INIT_0100:
0103 e5fc | | Load 0x2,-0x4
0104 7006 |p | Jump_Nonzero 0x10b
0105 e217 | | Load 0x1,0x17
0106 03bc | | Declare_Variable Access,By_Allocation
0107 00d8 | | Load_Top At_Offset_0
0108 0227 | ' | Execute Access,All_Reference
0109 1c00 | | Execute_Immediate Run_Utility,0x0
010a a5fc | | Store_Unchecked 0x2,-0x4
010b e5fc | | Load 0x2,-0x4
010c 8232 | 2 | Call 0x1,0x32
010d 6803 |h | Jump_Zero 0x111
010e e5fc | | Load 0x2,-0x4
010f 821a | | Call 0x1,0x1a
0110 c5fc | | Store 0x2,-0x4
0111 e5fc | | Load 0x2,-0x4
0112 0229 | ) | Execute Access,All_Read
0113 e5fc | | Load 0x2,-0x4
0114 0229 | ) | Execute Access,All_Read
0115 e002 | | Load 0x0,0x2
0116 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0117 00d9 | | Load_Top At_Offset_1
0118 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0119 0120 | | Execute Any,Is_Value
011a 6802 |h | Jump_Zero 0x11d
011b e20f | | Load 0x1,0xf
011c 7804 |x | Jump 0x121
011d 00d9 | | Load_Top At_Offset_1
011e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
011f e20f | | Load 0x1,0xf
0120 0119 | | Execute Any,Check_In_Formal_Type
0121 e010 | | Load 0x0,0x10
0122 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0123 e5fe | | Load 0x2,-0x2
0124 e5ff | | Load 0x2,-0x1
0125 e22e | . | Load 0x1,0x2e
0126 01d7 | | Execute Vector,Field_Read
0127 8211 | | Call 0x1,0x11
0128 00da | | Load_Top At_Offset_2
0129 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
012a 00da | | Load_Top At_Offset_2
012b 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
012c 00d2 | | Pop_Control Pop_Count_2
012d 00da | | Load_Top At_Offset_2
012e e5fc | | Load 0x2,-0x4
012f 0227 | ' | Execute Access,All_Reference
0130 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0131 e5fd | | Load 0x2,-0x3
0132 e5fc | | Load 0x2,-0x4
0133 0227 | ' | Execute Access,All_Reference
0134 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0135 4800 |H | Short_Literal 0x0
0136 e5fc | | Load 0x2,-0x4
0137 0227 | ' | Execute Access,All_Reference
0138 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0139 4800 |H | Short_Literal 0x0
013a e5fc | | Load 0x2,-0x4
013b 0227 | ' | Execute Access,All_Reference
013c 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
013d 4801 |H | Short_Literal 0x1
013e e5fc | | Load 0x2,-0x4
013f 0227 | ' | Execute Access,All_Reference
0140 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
0141 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0142 0000 0000 | | .BLANK 0000[0x6]
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 014b | K | .CONST 0x014b ; Address of begin
0149 0004 | | .CONST 0x0004 ; Address of exception handler
014a 0001 | | .CONST 0x0001 ; Number of locals
014b BODY_0148:
014b INIT_0148:
014b 00da | | Load_Top At_Offset_2
014c 8232 | 2 | Call 0x1,0x32
014d 6814 |h | Jump_Zero 0x162
014e 00da | | Load_Top At_Offset_2
014f 0229 | ) | Execute Access,All_Read
0150 00d8 | | Load_Top At_Offset_0
0151 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0152 00d8 | | Load_Top At_Offset_0
0153 0120 | | Execute Any,Is_Value
0154 6803 |h | Jump_Zero 0x158
0155 e20f | | Load 0x1,0xf
0156 011e | | Execute Any,Convert
0157 7802 |x | Jump 0x15a
0158 e20f | | Load 0x1,0xf
0159 0119 | | Execute Any,Check_In_Formal_Type
015a 8212 | | Call 0x1,0x12
015b 00d9 | | Load_Top At_Offset_1
015c 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
015d 00d1 | | Pop_Control Pop_Count_1
015e 4800 |H | Short_Literal 0x0
015f 00db | | Load_Top At_Offset_3
0160 0227 | ' | Execute Access,All_Reference
0161 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
0162 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0163 0000 0000 | | .BLANK 0000[0x5]
0168 ; --------------------------------------------------------------------------------------
0168 ; SUBPROGRAM
0168 ; --------------------------------------------------------------------------------------
0168 016b | k | .CONST 0x016b ; Address of begin
0169 0004 | | .CONST 0x0004 ; Address of exception handler
016a 0001 | | .CONST 0x0001 ; Number of locals
016b BODY_0168:
016b INIT_0168:
016b 00da | | Load_Top At_Offset_2
016c 8232 | 2 | Call 0x1,0x32
016d 7002 |p | Jump_Nonzero 0x170
016e 4900 |I | Short_Literal 0x100
016f 0257 | W | Execute Discrete,Raise
0170 00da | | Load_Top At_Offset_2
0171 0227 | ' | Execute Access,All_Reference
0172 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0173 e20f | | Load 0x1,0xf
0174 0119 | | Execute Any,Check_In_Formal_Type
0175 8210 | | Call 0x1,0x10
0176 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0177 0000 | | .XXX[0x1]
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 017c | | | .CONST 0x017c ; Address of begin
0179 0004 | | .CONST 0x0004 ; Address of exception handler
017a 0002 | | .CONST 0x0002 ; Number of locals
017b INIT_0178:
017b 00e2 | | Load_Encached Integer_Cache
017c BODY_0178:
017c 00cf | | Action Mark_Auxiliary
017d e5ff | | Load 0x2,-0x1
017e 01da | | Execute Vector,Bounds
017f 0264 | d | Execute Discrete,Below_Bound
0180 7030 |p0 | Jump_Nonzero 0x1b1
0181 00d8 | | Load_Top At_Offset_0
0182 e5ff | | Load 0x2,-0x1
0183 01d7 | | Execute Vector,Field_Read
0184 4830 |H0 | Short_Literal 0x30
0185 4839 |H9 | Short_Literal 0x39
0186 0261 | a | Execute Discrete,Not_In_Range
0187 6827 |h' | Jump_Zero 0x1af
0188 00d8 | | Load_Top At_Offset_0
0189 e5ff | | Load 0x2,-0x1
018a 01dc | | Execute Vector,Last
018b 027f | | Execute Discrete,Equal
018c 6802 |h | Jump_Zero 0x18f
018d 00d2 | | Pop_Control Pop_Count_2
018e 7822 |x" | Jump 0x1b1
018f e5ff | | Load 0x2,-0x1
0190 01dd | | Execute Vector,First
0191 00d9 | | Load_Top At_Offset_1
0192 e5ff | | Load 0x2,-0x1
0193 01cf | | Execute Vector,Slice_Read
0194 4830 |H0 | Short_Literal 0x30
0195 4803 |H | Short_Literal 0x3
0196 480a |H | Short_Literal 0xa
0197 e405 | | Load 0x2,0x5
0198 0a01 | | Execute_Immediate Plus,0x1
0199 00d8 | | Load_Top At_Offset_0
019a 00e2 | | Load_Encached Integer_Cache
019b 0260 | ` | Execute Discrete,In_Type
019c 7001 |p | Jump_Nonzero 0x19e
019d 0801 | | Execute_Immediate Raise,0x1
019e e5ff | | Load 0x2,-0x1
019f 01dc | | Execute Vector,Last
01a0 e5ff | | Load 0x2,-0x1
01a1 01cf | | Execute Vector,Slice_Read
01a2 00e2 | | Load_Encached Integer_Cache
01a3 00e0 | | Load_Encached Standard_Cache
01a4 1819 | | Execute Package,Field_Execute,Field_Number 0x19
01a5 0a01 | | Execute_Immediate Plus,0x1
01a6 00d8 | | Load_Top At_Offset_0
01a7 00e2 | | Load_Encached Integer_Cache
01a8 0260 | ` | Execute Discrete,In_Type
01a9 7001 |p | Jump_Nonzero 0x1ab
01aa 0801 | | Execute_Immediate Raise,0x1
01ab e00f | | Load 0x0,0xf
01ac 1816 | | Execute Package,Field_Execute,Field_Number 0x16
01ad 01cc | | Execute Vector,Catenate
01ae 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01af 00c8 | | Action Pop_Auxiliary_Range
01b0 37d0 |7 | Loop_Decreasing 0x181
01b1 00ce | | Action Pop_Auxiliary
01b2 00db | | Load_Top At_Offset_3
01b3 0092 07a8 | | Action Push_String_Extended,0x7a8 ; "_000"
01b5 01cc | | Execute Vector,Catenate
01b6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01b7 0000 | | .XXX[0x1]
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; --------------------------------------------------------------------------------------
01b8 01bb | | .CONST 0x01bb ; Address of begin
01b9 0004 | | .CONST 0x0004 ; Address of exception handler
01ba 0001 | | .CONST 0x0001 ; Number of locals
01bb BODY_01b8:
01bb INIT_01b8:
01bb 00da | | Load_Top At_Offset_2
01bc 8232 | 2 | Call 0x1,0x32
01bd 7002 |p | Jump_Nonzero 0x1c0
01be 4900 |I | Short_Literal 0x100
01bf 0257 | W | Execute Discrete,Raise
01c0 00da | | Load_Top At_Offset_2
01c1 0227 | ' | Execute Access,All_Reference
01c2 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01c3 e20f | | Load 0x1,0xf
01c4 0119 | | Execute Any,Check_In_Formal_Type
01c5 8213 | | Call 0x1,0x13
01c6 00db | | Load_Top At_Offset_3
01c7 0227 | ' | Execute Access,All_Reference
01c8 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01c9 e20f | | Load 0x1,0xf
01ca 0119 | | Execute Any,Check_In_Formal_Type
01cb 8214 | | Call 0x1,0x14
01cc 8231 | 1 | Call 0x1,0x31
01cd 00db | | Load_Top At_Offset_3
01ce 0227 | ' | Execute Access,All_Reference
01cf 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
01d0 027d | } | Execute Discrete,Greater
01d1 6808 |h | Jump_Zero 0x1da
01d2 00da | | Load_Top At_Offset_2
01d3 0227 | ' | Execute Access,All_Reference
01d4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01d5 e20f | | Load 0x1,0xf
01d6 0119 | | Execute Any,Check_In_Formal_Type
01d7 8210 | | Call 0x1,0x10
01d8 821c | | Call 0x1,0x1c
01d9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01da 00da | | Load_Top At_Offset_2
01db 0227 | ' | Execute Access,All_Reference
01dc 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01dd e20f | | Load 0x1,0xf
01de 0119 | | Execute Any,Check_In_Formal_Type
01df 8210 | | Call 0x1,0x10
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 e215 | | Load 0x1,0x15
01ee e00f | | Load 0x0,0xf
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 e20f | | Load 0x1,0xf
0212 0119 | | Execute Any,Check_In_Formal_Type
0213 8213 | | Call 0x1,0x13
0214 00db | | Load_Top At_Offset_3
0215 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0216 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0217 0000 | | .XXX[0x1]
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 e22a | * | Load 0x1,0x2a
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 e22c | , | Load 0x1,0x2c
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 e22a | * | Load 0x1,0x2a
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 e22c | , | Load 0x1,0x2c
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 e22a | * | Load 0x1,0x2a
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 e22c | , | Load 0x1,0x2c
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 e22b | + | Load 0x1,0x2b
0263 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0264 8230 | 0 | Call 0x1,0x30
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 e20f | | Load 0x1,0xf
0270 0119 | | Execute Any,Check_In_Formal_Type
0271 8213 | | Call 0x1,0x13
0272 00db | | Load_Top At_Offset_3
0273 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0274 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0275 0000 0000 | | .XXX[0x3]
0277 0000 | |
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 e22b | + | Load 0x1,0x2b
0286 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0287 e001 | | Load 0x0,0x1
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 e22c | , | Load 0x1,0x2c
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 601b |` | Indirect_Literal Discrete,0x2c4,{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 e20f | | Load 0x1,0xf
02bc 0119 | | Execute Any,Check_In_Formal_Type
02bd 8210 | | Call 0x1,0x10
02be e011 | | Load 0x0,0x11
02bf 1817 | | Execute Package,Field_Execute,Field_Number 0x17
02c0 4502 |E | Exit_Suprogram New_Top_Offset 0x2
02c1 0000 0000 | | .XXX[0x3]
02c3 0000 | |
02c4 0000 0000 | | .LITERAL {0x00000000, 0x00001fff}
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 e20f | | Load 0x1,0xf
02d0 0119 | | Execute Any,Check_In_Formal_Type
02d1 8214 | | Call 0x1,0x14
02d2 00db | | Load_Top At_Offset_3
02d3 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
02d4 e001 | | Load 0x0,0x1
02d5 181d | | Execute Package,Field_Execute,Field_Number 0x1d
02d6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02d7 0000 | | .XXX[0x1]
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 4608 |F | Jump_Case 0x9
02dc 7808 |x | Jump 0x2e5 ; case 0x0
02dd 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
02de 780d |x | Jump 0x2ec ; case 0x2
02df 780c |x | Jump 0x2ec ; case 0x3
02e0 780b |x | Jump 0x2ec ; case 0x4
02e1 780a |x | Jump 0x2ec ; case 0x5
02e2 7809 |x | Jump 0x2ec ; case 0x6
02e3 7808 |x | Jump 0x2ec ; case 0x7
02e4 7807 |x | Jump 0x2ec ; case 0x8
02e5 00da | | Load_Top At_Offset_2
02e6 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
02e7 0125 | % | Execute Any,Set_Constraint
02e8 00da | | Load_Top At_Offset_2
02e9 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
02ea 1c00 | | Execute_Immediate Run_Utility,0x0
02eb 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
02ec 0869 | i | Execute_Immediate Raise,0x69
02ed 0000 0000 | | .XXX[0x3]
02ef 0000 | |
02f0 ; --------------------------------------------------------------------------------------
02f0 ; SUBPROGRAM
02f0 ; SUBPROGRAM
02f0 ; --------------------------------------------------------------------------------------
02f0 02f3 | | .CONST 0x02f3 ; Address of begin
02f1 0004 | | .CONST 0x0004 ; Address of exception handler
02f2 0001 | | .CONST 0x0001 ; Number of locals
02f3 BODY_02f0:
02f3 BODY_02f0:
02f3 INIT_02f0:
02f3 INIT_02f0:
02f3 4608 |F | Jump_Case 0x9
02f4 7808 |x | Jump 0x2fd ; case 0x0
02f5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
02f6 781d |x | Jump 0x314 ; case 0x2
02f7 781c |x | Jump 0x314 ; case 0x3
02f8 781b |x | Jump 0x314 ; case 0x4
02f9 781a |x | Jump 0x314 ; case 0x5
02fa 7819 |x | Jump 0x314 ; case 0x6
02fb 7805 |x | Jump 0x301 ; case 0x7
02fc 780d |x | Jump 0x30a ; case 0x8
02fd 4800 |H | Short_Literal 0x0
02fe 00db | | Load_Top At_Offset_3
02ff 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0300 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0301 00db | | Load_Top At_Offset_3
0302 4801 |H | Short_Literal 0x1
0303 e5fe | | Load 0x2,-0x2
0304 00e9 | | Load_Encached String_Cache
0305 035b | [ | Declare_Type Array,Constrained
0306 4801 |H | Short_Literal 0x1
0307 e5ff | | Load 0x2,-0x1
0308 031b | | Declare_Type Variant_Record,Constrained
0309 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
030a 00db | | Load_Top At_Offset_3
030b 00db | | Load_Top At_Offset_3
030c 02fc | | Declare_Variable Variant_Record,With_Constraint
030d 4801 |H | Short_Literal 0x1
030e e5fe | | Load 0x2,-0x2
030f 00e9 | | Load_Encached String_Cache
0310 0334 | 4 | Declare_Variable Array,With_Constraint
0311 2d03 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x3
0312 016a | j | QQ_execute Variant_Record,XXX
0313 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0314 0869 | i | Execute_Immediate Raise,0x69
0315 0000 0000 | | .XXX[0x3]
0317 0000 | |
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 e001 | | Load 0x0,0x1
031d 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
031e e5fe | | Load 0x2,-0x2
031f 0272 | r | Execute Discrete,Minus
0320 e001 | | Load 0x0,0x1
0321 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
0322 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0323 0000 0000 | | .BLANK 0000[0x5]
0328 ; --------------------------------------------------------------------------------------
0328 ; SUBPROGRAM
0328 ; --------------------------------------------------------------------------------------
0328 032b | + | .CONST 0x032b ; Address of begin
0329 0004 | | .CONST 0x0004 ; Address of exception handler
032a 0001 | | .CONST 0x0001 ; Number of locals
032b BODY_0328:
032b INIT_0328:
032b 00da | | Load_Top At_Offset_2
032c e001 | | Load 0x0,0x1
032d 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
032e e5fe | | Load 0x2,-0x2
032f 0273 | s | Execute Discrete,Plus
0330 e001 | | Load 0x0,0x1
0331 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
0332 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0333 0000 0000 | | .BLANK 0000[0x5]
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 00da | | Load_Top At_Offset_2
033c e001 | | Load 0x0,0x1
033d 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
033e e5fe | | Load 0x2,-0x2
033f e001 | | Load 0x0,0x1
0340 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
0341 0272 | r | Execute Discrete,Minus
0342 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0343 0000 0000 | | .BLANK 0000[0x5]
0348 ; --------------------------------------------------------------------------------------
0348 ; SUBPROGRAM
0348 ; --------------------------------------------------------------------------------------
0348 034b | K | .CONST 0x034b ; Address of begin
0349 0004 | | .CONST 0x0004 ; Address of exception handler
034a 0001 | | .CONST 0x0001 ; Number of locals
034b BODY_0348:
034b INIT_0348:
034b 00da | | Load_Top At_Offset_2
034c 6804 |h | Jump_Zero 0x351
034d 00da | | Load_Top At_Offset_2
034e 0227 | ' | Execute Access,All_Reference
034f 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
0350 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0351 4800 |H | Short_Literal 0x0
0352 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0353 0000 0000 | | .BLANK 0000[0x5]
0358 ; --------------------------------------------------------------------------------------
0358 ; SUBPROGRAM
0358 ; --------------------------------------------------------------------------------------
0358 035b | [ | .CONST 0x035b ; Address of begin
0359 0004 | | .CONST 0x0004 ; Address of exception handler
035a 0001 | | .CONST 0x0001 ; Number of locals
035b BODY_0358:
035b INIT_0358:
035b 4608 |F | Jump_Case 0x9
035c 7808 |x | Jump 0x365 ; case 0x0
035d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
035e 780d |x | Jump 0x36c ; case 0x2
035f 780c |x | Jump 0x36c ; case 0x3
0360 780b |x | Jump 0x36c ; case 0x4
0361 780a |x | Jump 0x36c ; case 0x5
0362 7809 |x | Jump 0x36c ; case 0x6
0363 7808 |x | Jump 0x36c ; case 0x7
0364 7807 |x | Jump 0x36c ; case 0x8
0365 00da | | Load_Top At_Offset_2
0366 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0367 0125 | % | Execute Any,Set_Constraint
0368 00da | | Load_Top At_Offset_2
0369 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
036a 1c00 | | Execute_Immediate Run_Utility,0x0
036b 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
036c 0869 | i | Execute_Immediate Raise,0x69
036d 0000 0000 | | .XXX[0x3]
036f 0000 | |
0370 ; --------------------------------------------------------------------------------------
0370 ; SUBPROGRAM
0370 ; --------------------------------------------------------------------------------------
0370 03d7 | | .CONST 0x03d7 ; Address of begin
0371 0004 | | .CONST 0x0004 ; Address of exception handler
0372 001d | | .CONST 0x001d ; Number of locals
0373 INIT_0370:
0373 4818 |H | Short_Literal 0x18
0374 03cd | | Declare_Type Access,Incomplete,Visible,Accesses_Protected
0375 029a 03e3 | | Declare_Subprogram INIT_03e0,For_Outer_Call,Visible,Unelaborated
0377 029a 0463 | c| Declare_Subprogram INIT_0460,For_Outer_Call,Visible,Unelaborated
0379 029a 047b | {| Declare_Subprogram INIT_0478,For_Outer_Call,Visible,Unelaborated
037b 029a 0493 | | Declare_Subprogram INIT_0490,For_Outer_Call,Visible,Unelaborated
037d 029a 04cb | | Declare_Subprogram INIT_04c8,For_Outer_Call,Visible,Unelaborated
037f 029a 04db | | Declare_Subprogram INIT_04d8,For_Outer_Call,Visible,Unelaborated
0381 029a 04eb | | Declare_Subprogram INIT_04e8,For_Outer_Call,Visible,Unelaborated
0383 029a 050b | | Declare_Subprogram INIT_0508,For_Outer_Call,Visible,Unelaborated
0385 029a 056b | k| Declare_Subprogram INIT_0568,For_Outer_Call,Visible,Unelaborated
0387 029a 0583 | | Declare_Subprogram INIT_0580,For_Outer_Call,Visible,Unelaborated
0389 029a 05e3 | | Declare_Subprogram INIT_05e0,For_Outer_Call,Visible,Unelaborated
038b 4803 |H | Short_Literal 0x3
038c 0093 0743 | C| push_full_address INIT_0740
038e 02a0 | | Declare_Subprogram Null_Subprogram
038f 038d | | Declare_Type Package,Defined,Visible,Not_Elaborated
0390 4804 |H | Short_Literal 0x4
0391 0093 06fb | | push_full_address INIT_06f8
0393 02a0 | | Declare_Subprogram Null_Subprogram
0394 038d | | Declare_Type Package,Defined,Visible,Not_Elaborated
0395 4806 |H | Short_Literal 0x6
0396 032a | * | Declare_Type Record,Incomplete
0397 00d8 | | Load_Top At_Offset_0
0398 02a0 | | Declare_Subprogram Null_Subprogram
0399 e20d | | Load 0x1,0xd
039a 03c7 | | Complete_Type Access,By_Defining
039b 00bf | | Action Accept_Activation
039c e001 | | Load 0x0,0x1
039d 1b17 | | Execute Package,Field_Read,Field_Number 0x17
039e e002 | | Load 0x0,0x2
039f e003 | | Load 0x0,0x3
03a0 1b15 | | Execute Package,Field_Read,Field_Number 0x15
03a1 e003 | | Load 0x0,0x3
03a2 1b15 | | Execute Package,Field_Read,Field_Number 0x15
03a3 e003 | | Load 0x0,0x3
03a4 1b15 | | Execute Package,Field_Read,Field_Number 0x15
03a5 e001 | | Load 0x0,0x1
03a6 1b18 | | Execute Package,Field_Read,Field_Number 0x18
03a7 029f 05fb | | Declare_Subprogram INIT_05f8,For_Call
03a9 e21b | | Load 0x1,0x1b
03aa 0326 | & | Complete_Type Record,By_Defining
03ab 029d 0623 | #| Declare_Subprogram INIT_0620,For_Outer_Call
03ad 1d0f | | Execute_Immediate Reference_Lex_1,0xf
03ae 00c7 | | Action Elaborate_Subprogram
03af 1d10 | | Execute_Immediate Reference_Lex_1,0x10
03b0 00c7 | | Action Elaborate_Subprogram
03b1 029d 0633 | 3| Declare_Subprogram INIT_0630,For_Outer_Call
03b3 1d0e | | Execute_Immediate Reference_Lex_1,0xe
03b4 00c7 | | Action Elaborate_Subprogram
03b5 1d11 | | Execute_Immediate Reference_Lex_1,0x11
03b6 00c7 | | Action Elaborate_Subprogram
03b7 1d12 | | Execute_Immediate Reference_Lex_1,0x12
03b8 00c7 | | Action Elaborate_Subprogram
03b9 1d13 | | Execute_Immediate Reference_Lex_1,0x13
03ba 00c7 | | Action Elaborate_Subprogram
03bb 1d14 | | Execute_Immediate Reference_Lex_1,0x14
03bc 00c7 | | Action Elaborate_Subprogram
03bd 1d15 | | Execute_Immediate Reference_Lex_1,0x15
03be 00c7 | | Action Elaborate_Subprogram
03bf 1d16 | | Execute_Immediate Reference_Lex_1,0x16
03c0 00c7 | | Action Elaborate_Subprogram
03c1 1d17 | | Execute_Immediate Reference_Lex_1,0x17
03c2 00c7 | | Action Elaborate_Subprogram
03c3 1d18 | | Execute_Immediate Reference_Lex_1,0x18
03c4 00c7 | | Action Elaborate_Subprogram
03c5 e004 | | Load 0x0,0x4
03c6 e005 | | Load 0x0,0x5
03c7 e003 | | Load 0x0,0x3
03c8 4803 |H | Short_Literal 0x3
03c9 e219 | | Load 0x1,0x19
03ca 020e | | Execute Module,Augment_Imports
03cb e219 | | Load 0x1,0x19
03cc 020d | | Execute Module,Elaborate
03cd 0007 | | Action Break_Optional
03ce e006 | | Load 0x0,0x6
03cf e007 | | Load 0x0,0x7
03d0 e003 | | Load 0x0,0x3
03d1 a008 | | Store_Unchecked 0x0,0x8
03d2 4804 |H | Short_Literal 0x4
03d3 e21a | | Load 0x1,0x1a
03d4 020e | | Execute Module,Augment_Imports
03d5 00db | | Load_Top At_Offset_3
03d6 020d | | Execute Module,Elaborate
03d7 BODY_0370:
03d7 00bc | | Action Signal_Activated
03d8 00bb | | Action Signal_Completion
03d9 0000 0000 | | .BLANK 0000[0x7]
03e0 ; --------------------------------------------------------------------------------------
03e0 ; SUBPROGRAM
03e0 ; --------------------------------------------------------------------------------------
03e0 03ec | | .CONST 0x03ec ; Address of begin
03e1 0004 | | .CONST 0x0004 ; Address of exception handler
03e2 0005 | | .CONST 0x0005 ; Number of locals
03e3 INIT_03e0:
03e3 00da | | Load_Top At_Offset_2
03e4 e001 | | Load 0x0,0x1
03e5 181e | | Execute Package,Field_Execute,Field_Number 0x1e
03e6 e001 | | Load 0x0,0x1
03e7 1b18 | | Execute Package,Field_Read,Field_Number 0x18
03e8 029f 0693 | | Declare_Subprogram INIT_0690,For_Call
03ea 029f 06ab | | Declare_Subprogram INIT_06a8,For_Call
03ec BODY_03e0:
03ec 00db | | Load_Top At_Offset_3
03ed 01db | | Execute Vector,Length
03ee 6825 |h% | Jump_Zero 0x414
03ef e5fe | | Load 0x2,-0x2
03f0 8009 | | Call 0x0,0x9
03f1 6817 |h | Jump_Zero 0x409
03f2 00db | | Load_Top At_Offset_3
03f3 e00a | | Load 0x0,0xa
03f4 1814 | | Execute Package,Field_Execute,Field_Number 0x14
03f5 e5fe | | Load 0x2,-0x2
03f6 0227 | ' | Execute Access,All_Reference
03f7 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
03f8 e001 | | Load 0x0,0x1
03f9 1b0f | | Execute Package,Field_Read,Field_Number 0xf
03fa 0119 | | Execute Any,Check_In_Formal_Type
03fb e001 | | Load 0x0,0x1
03fc 1810 | | Execute Package,Field_Execute,Field_Number 0x10
03fd 01de | | Execute Vector,Not_Equal
03fe 6812 |h | Jump_Zero 0x411
03ff e5fe | | Load 0x2,-0x2
0400 00d8 | | Load_Top At_Offset_0
0401 0227 | ' | Execute Access,All_Reference
0402 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0403 e402 | | Load 0x2,0x2
0404 4800 |H | Short_Literal 0x0
0405 e001 | | Load 0x0,0x1
0406 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0407 c5fe | | Store 0x2,-0x2
0408 7808 |x | Jump 0x411
0409 e5fe | | Load 0x2,-0x2
040a e001 | | Load 0x0,0x1
040b 1b16 | | Execute Package,Field_Read,Field_Number 0x16
040c e402 | | Load 0x2,0x2
040d 4800 |H | Short_Literal 0x0
040e e001 | | Load 0x0,0x1
040f 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0410 c5fe | | Store 0x2,-0x2
0411 4800 |H | Short_Literal 0x0
0412 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
0413 7804 |x | Jump 0x418
0414 e5fe | | Load 0x2,-0x2
0415 0227 | ' | Execute Access,All_Reference
0416 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0417 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
0418 e5fd | | Load 0x2,-0x3
0419 7006 |p | Jump_Nonzero 0x420
041a e20d | | Load 0x1,0xd
041b 03bc | | Declare_Variable Access,By_Allocation
041c 00d8 | | Load_Top At_Offset_0
041d 0227 | ' | Execute Access,All_Reference
041e 1c00 | | Execute_Immediate Run_Utility,0x0
041f a5fd | | Store_Unchecked 0x2,-0x3
0420 e5fe | | Load 0x2,-0x2
0421 e5fd | | Load 0x2,-0x3
0422 0227 | ' | Execute Access,All_Reference
0423 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0424 00da | | Load_Top At_Offset_2
0425 e5fd | | Load 0x2,-0x3
0426 0227 | ' | Execute Access,All_Reference
0427 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0428 00da | | Load_Top At_Offset_2
0429 700f |p | Jump_Nonzero 0x439
042a e5fd | | Load 0x2,-0x3
042b e5ff | | Load 0x2,-0x1
042c 8210 | | Call 0x1,0x10
042d e00a | | Load 0x0,0xa
042e 1814 | | Execute Package,Field_Execute,Field_Number 0x14
042f 821d | | Call 0x1,0x1d
0430 c5fd | | Store 0x2,-0x3
0431 e5fe | | Load 0x2,-0x2
0432 0227 | ' | Execute Access,All_Reference
0433 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0434 0a01 | | Execute_Immediate Plus,0x1
0435 e5fe | | Load 0x2,-0x2
0436 0227 | ' | Execute Access,All_Reference
0437 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0438 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0439 e5fe | | Load 0x2,-0x2
043a 0227 | ' | Execute Access,All_Reference
043b 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
043c 0c01 | | Execute_Immediate Greater_Equal,0x1
043d 6802 |h | Jump_Zero 0x440
043e 4930 |I0 | Short_Literal 0x130
043f 0257 | W | Execute Discrete,Raise
0440 00cf | | Action Mark_Auxiliary
0441 7802 |x | Jump 0x444
0442 8404 | | Call 0x2,0x4
0443 00c9 | | Action Pop_Auxiliary_Loop
0444 e5fe | | Load 0x2,-0x2
0445 0227 | ' | Execute Access,All_Reference
0446 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0447 e001 | | Load 0x0,0x1
0448 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0449 0119 | | Execute Any,Check_In_Formal_Type
044a e001 | | Load 0x0,0x1
044b 1813 | | Execute Package,Field_Execute,Field_Number 0x13
044c e5fe | | Load 0x2,-0x2
044d 0227 | ' | Execute Access,All_Reference
044e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
044f e001 | | Load 0x0,0x1
0450 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0451 0119 | | Execute Any,Check_In_Formal_Type
0452 e001 | | Load 0x0,0x1
0453 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0454 8008 | | Call 0x0,0x8
0455 e5fe | | Load 0x2,-0x2
0456 0227 | ' | Execute Access,All_Reference
0457 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0458 027b | { | Execute Discrete,Greater_Equal
0459 77e8 |w | Jump_Nonzero 0x442
045a 00ce | | Action Pop_Auxiliary
045b 8405 | | Call 0x2,0x5
045c 4502 |E | Exit_Suprogram New_Top_Offset 0x2
045d 0000 0000 | | .XXX[0x3]
045f 0000 | |
0460 ; --------------------------------------------------------------------------------------
0460 ; SUBPROGRAM
0460 ; --------------------------------------------------------------------------------------
0460 0463 | c | .CONST 0x0463 ; Address of begin
0461 0004 | | .CONST 0x0004 ; 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 0227 | ' | Execute Access,All_Reference
0465 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0466 0227 | ' | Execute Access,All_Reference
0467 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0468 e001 | | Load 0x0,0x1
0469 1b0f | | Execute Package,Field_Read,Field_Number 0xf
046a 0119 | | Execute Any,Check_In_Formal_Type
046b e001 | | Load 0x0,0x1
046c 1810 | | Execute Package,Field_Execute,Field_Number 0x10
046d 00db | | Load_Top At_Offset_3
046e 821c | | Call 0x1,0x1c
046f 01cc | | Execute Vector,Catenate
0470 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0471 0000 0000 | | .BLANK 0000[0x7]
0478 ; --------------------------------------------------------------------------------------
0478 ; SUBPROGRAM
0478 ; --------------------------------------------------------------------------------------
0478 0483 | | .CONST 0x0483 ; Address of begin
0479 0004 | | .CONST 0x0004 ; Address of exception handler
047a 0002 | | .CONST 0x0002 ; Number of locals
047b INIT_0478:
047b 4801 |H | Short_Literal 0x1
047c 00db | | Load_Top At_Offset_3
047d e001 | | Load 0x0,0x1
047e 1b15 | | Execute Package,Field_Read,Field_Number 0x15
047f e00a | | Load 0x0,0xa
0480 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0481 00e2 | | Load_Encached Integer_Cache
0482 03f1 | | Declare_Variable Discrete,With_Value
0483 BODY_0478:
0483 00d8 | | Load_Top At_Offset_0
0484 7002 |p | Jump_Nonzero 0x487
0485 00ea | | Load_Encached Null_String_Cache
0486 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0487 00d8 | | Load_Top At_Offset_0
0488 e5ff | | Load 0x2,-0x1
0489 01dc | | Execute Vector,Last
048a e5ff | | Load 0x2,-0x1
048b 01cf | | Execute Vector,Slice_Read
048c 0335 | 5 | Declare_Variable Array,Duplicate
048d 00cd | | Action Spare6_Action
048e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
048f 0000 | | .XXX[0x1]
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 0227 | ' | Execute Access,All_Reference
0495 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
0496 0f01 | | Execute_Immediate Equal,0x1
0497 681f |h | Jump_Zero 0x4b7
0498 00da | | Load_Top At_Offset_2
0499 0227 | ' | Execute Access,All_Reference
049a 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
049b 00db | | Load_Top At_Offset_3
049c 0227 | ' | Execute Access,All_Reference
049d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
049e 0227 | ' | Execute Access,All_Reference
049f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
04a0 e001 | | Load 0x0,0x1
04a1 1b0f | | Execute Package,Field_Read,Field_Number 0xf
04a2 0119 | | Execute Any,Check_In_Formal_Type
04a3 e001 | | Load 0x0,0x1
04a4 1814 | | Execute Package,Field_Execute,Field_Number 0x14
04a5 8008 | | Call 0x0,0x8
04a6 00db | | Load_Top At_Offset_3
04a7 0227 | ' | Execute Access,All_Reference
04a8 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
04a9 0217 | | Execute Heap_Access,All_Reference
04aa 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
04ab 00da | | Load_Top At_Offset_2
04ac 0227 | ' | Execute Access,All_Reference
04ad 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
04ae 0227 | ' | Execute Access,All_Reference
04af 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
04b0 0aff | | Execute_Immediate Plus,-0x1
04b1 00db | | Load_Top At_Offset_3
04b2 0227 | ' | Execute Access,All_Reference
04b3 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
04b4 0227 | ' | Execute Access,All_Reference
04b5 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
04b6 4501 |E | Exit_Suprogram New_Top_Offset 0x1
04b7 00da | | Load_Top At_Offset_2
04b8 0227 | ' | Execute Access,All_Reference
04b9 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
04ba 0227 | ' | Execute Access,All_Reference
04bb 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
04bc 0aff | | Execute_Immediate Plus,-0x1
04bd 00db | | Load_Top At_Offset_3
04be 0227 | ' | Execute Access,All_Reference
04bf 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
04c0 0227 | ' | Execute Access,All_Reference
04c1 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
04c2 4501 |E | Exit_Suprogram New_Top_Offset 0x1
04c3 0000 0000 | | .BLANK 0000[0x5]
04c8 ; --------------------------------------------------------------------------------------
04c8 ; SUBPROGRAM
04c8 ; --------------------------------------------------------------------------------------
04c8 04cb | | .CONST 0x04cb ; Address of begin
04c9 0004 | | .CONST 0x0004 ; Address of exception handler
04ca 0001 | | .CONST 0x0001 ; Number of locals
04cb BODY_04c8:
04cb INIT_04c8:
04cb 00da | | Load_Top At_Offset_2
04cc e5fe | | Load 0x2,-0x2
04cd 0227 | ' | Execute Access,All_Reference
04ce 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
04cf 800b | | Call 0x0,0xb
04d0 e5fe | | Load 0x2,-0x2
04d1 0227 | ' | Execute Access,All_Reference
04d2 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
04d3 4502 |E | Exit_Suprogram New_Top_Offset 0x2
04d4 0000 0000 | | .BLANK 0000[0x4]
04d8 ; --------------------------------------------------------------------------------------
04d8 ; SUBPROGRAM
04d8 ; --------------------------------------------------------------------------------------
04d8 04db | | .CONST 0x04db ; Address of begin
04d9 0004 | | .CONST 0x0004 ; Address of exception handler
04da 0001 | | .CONST 0x0001 ; Number of locals
04db BODY_04d8:
04db INIT_04d8:
04db 00da | | Load_Top At_Offset_2
04dc 0227 | ' | Execute Access,All_Reference
04dd 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
04de 00db | | Load_Top At_Offset_3
04df 0227 | ' | Execute Access,All_Reference
04e0 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
04e1 8008 | | Call 0x0,0x8
04e2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
04e3 0000 0000 | | .BLANK 0000[0x5]
04e8 ; --------------------------------------------------------------------------------------
04e8 ; SUBPROGRAM
04e8 ; --------------------------------------------------------------------------------------
04e8 04eb | | .CONST 0x04eb ; Address of begin
04e9 0004 | | .CONST 0x0004 ; Address of exception handler
04ea 0001 | | .CONST 0x0001 ; Number of locals
04eb BODY_04e8:
04eb INIT_04e8:
04eb 00da | | Load_Top At_Offset_2
04ec 0227 | ' | Execute Access,All_Reference
04ed 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
04ee 7009 |p | Jump_Nonzero 0x4f8
04ef 00da | | Load_Top At_Offset_2
04f0 0227 | ' | Execute Access,All_Reference
04f1 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
04f2 00db | | Load_Top At_Offset_3
04f3 0227 | ' | Execute Access,All_Reference
04f4 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
04f5 e003 | | Load 0x0,0x3
04f6 181d | | Execute Package,Field_Execute,Field_Number 0x1d
04f7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
04f8 00da | | Load_Top At_Offset_2
04f9 0227 | ' | Execute Access,All_Reference
04fa 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
04fb 0227 | ' | Execute Access,All_Reference
04fc 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
04fd e001 | | Load 0x0,0x1
04fe 1b0f | | Execute Package,Field_Read,Field_Number 0xf
04ff 0119 | | Execute Any,Check_In_Formal_Type
0500 e001 | | Load 0x0,0x1
0501 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0502 00db | | Load_Top At_Offset_3
0503 0227 | ' | Execute Access,All_Reference
0504 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0505 e003 | | Load 0x0,0x3
0506 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0507 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0508 ; --------------------------------------------------------------------------------------
0508 ; SUBPROGRAM
0508 ; --------------------------------------------------------------------------------------
0508 0515 | | .CONST 0x0515 ; Address of begin
0509 0004 | | .CONST 0x0004 ; Address of exception handler
050a 0002 | | .CONST 0x0002 ; Number of locals
050b INIT_0508:
050b 00da | | Load_Top At_Offset_2
050c 0227 | ' | Execute Access,All_Reference
050d 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
050e 00db | | Load_Top At_Offset_3
050f 0227 | ' | Execute Access,All_Reference
0510 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0511 8008 | | Call 0x0,0x8
0512 09fd | | Execute_Immediate Binary_Scale,-0x3
0513 00e5 | | Load_Encached Long_Integer_Cache
0514 03f1 | | Declare_Variable Discrete,With_Value
0515 BODY_0508:
0515 00d8 | | Load_Top At_Offset_0
0516 0d01 | | Execute_Immediate Less,0x1
0517 6803 |h | Jump_Zero 0x51b
0518 4800 |H | Short_Literal 0x0
0519 a5fd | | Store_Unchecked 0x2,-0x3
051a 4501 |E | Exit_Suprogram New_Top_Offset 0x1
051b 00d8 | | Load_Top At_Offset_0
051c e5fe | | Load 0x2,-0x2
051d 01db | | Execute Vector,Length
051e 027c | | | Execute Discrete,Less
051f 682c |h, | Jump_Zero 0x54c
0520 e5fe | | Load 0x2,-0x2
0521 00d8 | | Load_Top At_Offset_0
0522 01dd | | Execute Vector,First
0523 e5fe | | Load 0x2,-0x2
0524 01dd | | Execute Vector,First
0525 00db | | Load_Top At_Offset_3
0526 00d8 | | Load_Top At_Offset_0
0527 00e3 | | Load_Encached Natural_Cache
0528 0260 | ` | Execute Discrete,In_Type
0529 7001 |p | Jump_Nonzero 0x52b
052a 0801 | | Execute_Immediate Raise,0x1
052b 0273 | s | Execute Discrete,Plus
052c 0aff | | Execute_Immediate Plus,-0x1
052d 00d8 | | Load_Top At_Offset_0
052e 00e2 | | Load_Encached Integer_Cache
052f 0260 | ` | Execute Discrete,In_Type
0530 7001 |p | Jump_Nonzero 0x532
0531 0801 | | Execute_Immediate Raise,0x1
0532 00da | | Load_Top At_Offset_2
0533 035b | [ | Declare_Type Array,Constrained
0534 00d0 | | Action Swap_Control
0535 01cd | | Execute Vector,Slice_Reference
0536 e5ff | | Load 0x2,-0x1
0537 0229 | ) | Execute Access,All_Read
0538 00e3 | | Load_Encached Natural_Cache
0539 00da | | Load_Top At_Offset_2
053a 00da | | Load_Top At_Offset_2
053b 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
053c e5ff | | Load 0x2,-0x1
053d 0227 | ' | Execute Access,All_Reference
053e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
053f 0227 | ' | Execute Access,All_Reference
0540 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0541 0227 | ' | Execute Access,All_Reference
0542 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0543 e003 | | Load 0x0,0x3
0544 1b33 | 3 | Execute Package,Field_Read,Field_Number 0x33
0545 180f | | Execute Package,Field_Execute,Field_Number 0xf
0546 00db | | Load_Top At_Offset_3
0547 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0548 00d1 | | Pop_Control Pop_Count_1
0549 c5fd | | Store 0x2,-0x3
054a 00d2 | | Pop_Control Pop_Count_2
054b 4501 |E | Exit_Suprogram New_Top_Offset 0x1
054c 00db | | Load_Top At_Offset_3
054d 0229 | ) | Execute Access,All_Read
054e 00e3 | | Load_Encached Natural_Cache
054f e5fe | | Load 0x2,-0x2
0550 00da | | Load_Top At_Offset_2
0551 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0552 e5ff | | Load 0x2,-0x1
0553 0227 | ' | Execute Access,All_Reference
0554 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0555 0227 | ' | Execute Access,All_Reference
0556 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0557 0227 | ' | Execute Access,All_Reference
0558 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0559 e003 | | Load 0x0,0x3
055a 1b33 | 3 | Execute Package,Field_Read,Field_Number 0x33
055b 180f | | Execute Package,Field_Execute,Field_Number 0xf
055c 00db | | Load_Top At_Offset_3
055d 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
055e 00d1 | | Pop_Control Pop_Count_1
055f c5fd | | Store 0x2,-0x3
0560 00d1 | | Pop_Control Pop_Count_1
0561 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0562 0000 0000 | | .BLANK 0000[0x6]
0568 ; --------------------------------------------------------------------------------------
0568 ; SUBPROGRAM
0568 ; --------------------------------------------------------------------------------------
0568 056b | k | .CONST 0x056b ; Address of begin
0569 0004 | | .CONST 0x0004 ; Address of exception handler
056a 0001 | | .CONST 0x0001 ; Number of locals
056b BODY_0568:
056b INIT_0568:
056b 00db | | Load_Top At_Offset_3
056c 0229 | ) | Execute Access,All_Read
056d 00d8 | | Load_Top At_Offset_0
056e 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
056f e5ff | | Load 0x2,-0x1
0570 e5fe | | Load 0x2,-0x2
0571 0227 | ' | Execute Access,All_Reference
0572 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0573 0227 | ' | Execute Access,All_Reference
0574 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0575 0227 | ' | Execute Access,All_Reference
0576 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0577 e003 | | Load 0x0,0x3
0578 1b33 | 3 | Execute Package,Field_Read,Field_Number 0x33
0579 1813 | | Execute Package,Field_Execute,Field_Number 0x13
057a 00d9 | | Load_Top At_Offset_1
057b 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
057c 4502 |E | Exit_Suprogram New_Top_Offset 0x2
057d 0000 0000 | | .XXX[0x3]
057f 0000 | |
0580 ; --------------------------------------------------------------------------------------
0580 ; SUBPROGRAM
0580 ; --------------------------------------------------------------------------------------
0580 058d | | .CONST 0x058d ; Address of begin
0581 0004 | | .CONST 0x0004 ; Address of exception handler
0582 0002 | | .CONST 0x0002 ; Number of locals
0583 INIT_0580:
0583 00da | | Load_Top At_Offset_2
0584 0227 | ' | Execute Access,All_Reference
0585 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0586 00db | | Load_Top At_Offset_3
0587 0227 | ' | Execute Access,All_Reference
0588 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0589 8008 | | Call 0x0,0x8
058a 09fd | | Execute_Immediate Binary_Scale,-0x3
058b 00e5 | | Load_Encached Long_Integer_Cache
058c 03f1 | | Declare_Variable Discrete,With_Value
058d BODY_0580:
058d 00d8 | | Load_Top At_Offset_0
058e 0d01 | | Execute_Immediate Less,0x1
058f 6803 |h | Jump_Zero 0x593
0590 4800 |H | Short_Literal 0x0
0591 a5fd | | Store_Unchecked 0x2,-0x3
0592 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0593 00d8 | | Load_Top At_Offset_0
0594 e5fe | | Load 0x2,-0x2
0595 01db | | Execute Vector,Length
0596 027c | | | Execute Discrete,Less
0597 682c |h, | Jump_Zero 0x5c4
0598 e5fe | | Load 0x2,-0x2
0599 00d8 | | Load_Top At_Offset_0
059a 01dd | | Execute Vector,First
059b e5fe | | Load 0x2,-0x2
059c 01dd | | Execute Vector,First
059d 00db | | Load_Top At_Offset_3
059e 00d8 | | Load_Top At_Offset_0
059f 00e3 | | Load_Encached Natural_Cache
05a0 0260 | ` | Execute Discrete,In_Type
05a1 7001 |p | Jump_Nonzero 0x5a3
05a2 0801 | | Execute_Immediate Raise,0x1
05a3 0273 | s | Execute Discrete,Plus
05a4 0aff | | Execute_Immediate Plus,-0x1
05a5 00d8 | | Load_Top At_Offset_0
05a6 00e2 | | Load_Encached Integer_Cache
05a7 0260 | ` | Execute Discrete,In_Type
05a8 7001 |p | Jump_Nonzero 0x5aa
05a9 0801 | | Execute_Immediate Raise,0x1
05aa 00da | | Load_Top At_Offset_2
05ab 035b | [ | Declare_Type Array,Constrained
05ac 00d0 | | Action Swap_Control
05ad 01cd | | Execute Vector,Slice_Reference
05ae e5ff | | Load 0x2,-0x1
05af 0229 | ) | Execute Access,All_Read
05b0 00e3 | | Load_Encached Natural_Cache
05b1 00da | | Load_Top At_Offset_2
05b2 00da | | Load_Top At_Offset_2
05b3 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
05b4 e5ff | | Load 0x2,-0x1
05b5 0227 | ' | Execute Access,All_Reference
05b6 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
05b7 0227 | ' | Execute Access,All_Reference
05b8 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
05b9 0227 | ' | Execute Access,All_Reference
05ba 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
05bb e003 | | Load 0x0,0x3
05bc 1b33 | 3 | Execute Package,Field_Read,Field_Number 0x33
05bd 1811 | | Execute Package,Field_Execute,Field_Number 0x11
05be 00db | | Load_Top At_Offset_3
05bf 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
05c0 00d1 | | Pop_Control Pop_Count_1
05c1 c5fd | | Store 0x2,-0x3
05c2 00d2 | | Pop_Control Pop_Count_2
05c3 4501 |E | Exit_Suprogram New_Top_Offset 0x1
05c4 00db | | Load_Top At_Offset_3
05c5 0229 | ) | Execute Access,All_Read
05c6 00e3 | | Load_Encached Natural_Cache
05c7 e5fe | | Load 0x2,-0x2
05c8 00da | | Load_Top At_Offset_2
05c9 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
05ca e5ff | | Load 0x2,-0x1
05cb 0227 | ' | Execute Access,All_Reference
05cc 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
05cd 0227 | ' | Execute Access,All_Reference
05ce 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
05cf 0227 | ' | Execute Access,All_Reference
05d0 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
05d1 e003 | | Load 0x0,0x3
05d2 1b33 | 3 | Execute Package,Field_Read,Field_Number 0x33
05d3 1811 | | Execute Package,Field_Execute,Field_Number 0x11
05d4 00db | | Load_Top At_Offset_3
05d5 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
05d6 00d1 | | Pop_Control Pop_Count_1
05d7 c5fd | | Store 0x2,-0x3
05d8 00d1 | | Pop_Control Pop_Count_1
05d9 4501 |E | Exit_Suprogram New_Top_Offset 0x1
05da 0000 0000 | | .BLANK 0000[0x6]
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 00db | | Load_Top At_Offset_3
05e4 0229 | ) | Execute Access,All_Read
05e5 00d8 | | Load_Top At_Offset_0
05e6 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
05e7 e5ff | | Load 0x2,-0x1
05e8 e5fe | | Load 0x2,-0x2
05e9 0227 | ' | Execute Access,All_Reference
05ea 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
05eb 0227 | ' | Execute Access,All_Reference
05ec 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
05ed 0227 | ' | Execute Access,All_Reference
05ee 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
05ef e003 | | Load 0x0,0x3
05f0 1b33 | 3 | Execute Package,Field_Read,Field_Number 0x33
05f1 1815 | | Execute Package,Field_Execute,Field_Number 0x15
05f2 00d9 | | Load_Top At_Offset_1
05f3 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
05f4 4502 |E | Exit_Suprogram New_Top_Offset 0x2
05f5 0000 0000 | | .XXX[0x3]
05f7 0000 | |
05f8 ; --------------------------------------------------------------------------------------
05f8 ; SUBPROGRAM
05f8 ; --------------------------------------------------------------------------------------
05f8 05fb | | .CONST 0x05fb ; Address of begin
05f9 0004 | | .CONST 0x0004 ; Address of exception handler
05fa 0001 | | .CONST 0x0001 ; Number of locals
05fb BODY_05f8:
05fb INIT_05f8:
05fb 4608 |F | Jump_Case 0x9
05fc 7808 |x | Jump 0x605 ; case 0x0
05fd 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
05fe 7819 |x | Jump 0x618 ; case 0x2
05ff 7818 |x | Jump 0x618 ; case 0x3
0600 7817 |x | Jump 0x618 ; case 0x4
0601 7816 |x | Jump 0x618 ; case 0x5
0602 7815 |x | Jump 0x618 ; case 0x6
0603 7814 |x | Jump 0x618 ; case 0x7
0604 7813 |x | Jump 0x618 ; case 0x8
0605 00da | | Load_Top At_Offset_2
0606 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0607 0125 | % | Execute Any,Set_Constraint
0608 00da | | Load_Top At_Offset_2
0609 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
060a 1c00 | | Execute_Immediate Run_Utility,0x0
060b 00da | | Load_Top At_Offset_2
060c 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
060d 0125 | % | Execute Any,Set_Constraint
060e 00da | | Load_Top At_Offset_2
060f 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
0610 1c00 | | Execute_Immediate Run_Utility,0x0
0611 00da | | Load_Top At_Offset_2
0612 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4
0613 0125 | % | Execute Any,Set_Constraint
0614 00da | | Load_Top At_Offset_2
0615 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4
0616 1c00 | | Execute_Immediate Run_Utility,0x0
0617 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0618 0869 | i | Execute_Immediate Raise,0x69
0619 0000 0000 | | .BLANK 0000[0x7]
0620 ; --------------------------------------------------------------------------------------
0620 ; SUBPROGRAM
0620 ; --------------------------------------------------------------------------------------
0620 0623 | # | .CONST 0x0623 ; Address of begin
0621 0004 | | .CONST 0x0004 ; Address of exception handler
0622 0001 | | .CONST 0x0001 ; Number of locals
0623 BODY_0620:
0623 INIT_0620:
0623 00da | | Load_Top At_Offset_2
0624 0227 | ' | Execute Access,All_Reference
0625 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0626 0217 | | Execute Heap_Access,All_Reference
0627 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0628 0335 | 5 | Declare_Variable Array,Duplicate
0629 00cd | | Action Spare6_Action
062a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
062b 0000 0000 | | .BLANK 0000[0x5]
0630 ; --------------------------------------------------------------------------------------
0630 ; SUBPROGRAM
0630 ; --------------------------------------------------------------------------------------
0630 064a | J | .CONST 0x064a ; Address of begin
0631 0004 | | .CONST 0x0004 ; Address of exception handler
0632 0004 | | .CONST 0x0004 ; Number of locals
0633 INIT_0630:
0633 00db | | Load_Top At_Offset_3
0634 0227 | ' | Execute Access,All_Reference
0635 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0636 0227 | ' | Execute Access,All_Reference
0637 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0638 0227 | ' | Execute Access,All_Reference
0639 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
063a 0007 | | Action Break_Optional
063b e003 | | Load 0x0,0x3
063c 1b15 | | Execute Package,Field_Read,Field_Number 0x15
063d 02c7 | | Declare_Variable Any
063e e5fe | | Load 0x2,-0x2
063f 0227 | ' | Execute Access,All_Reference
0640 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0641 0227 | ' | Execute Access,All_Reference
0642 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0643 e001 | | Load 0x0,0x1
0644 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0645 0119 | | Execute Any,Check_In_Formal_Type
0646 e001 | | Load 0x0,0x1
0647 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0648 a403 | | Store_Unchecked 0x2,0x3
0649 e002 | | Load 0x0,0x2
064a BODY_0630:
064a 00be | | Action Activate_Tasks
064b 00cf | | Action Mark_Auxiliary
064c 782c |x, | Jump 0x679
064d 00da | | Load_Top At_Offset_2
064e e402 | | Load 0x2,0x2
064f e00c | | Load 0x0,0xc
0650 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0651 0032 | 2 | Store_Top Heap_Access,At_Offset_2
0652 00da | | Load_Top At_Offset_2
0653 e402 | | Load 0x2,0x2
0654 e00d | | Load 0x0,0xd
0655 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0656 c403 | | Store 0x2,0x3
0657 00d9 | | Load_Top At_Offset_1
0658 0217 | | Execute Heap_Access,All_Reference
0659 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
065a e5ff | | Load 0x2,-0x1
065b 01df | | Execute Vector,Equal
065c 6815 |h | Jump_Zero 0x672
065d 00d9 | | Load_Top At_Offset_1
065e e5fe | | Load 0x2,-0x2
065f 0227 | ' | Execute Access,All_Reference
0660 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0661 00da | | Load_Top At_Offset_2
0662 e5fe | | Load 0x2,-0x2
0663 0227 | ' | Execute Access,All_Reference
0664 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0665 00da | | Load_Top At_Offset_2
0666 e5fe | | Load 0x2,-0x2
0667 0227 | ' | Execute Access,All_Reference
0668 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0669 00d9 | | Load_Top At_Offset_1
066a 0217 | | Execute Heap_Access,All_Reference
066b 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
066c 00db | | Load_Top At_Offset_3
066d 800b | | Call 0x0,0xb
066e e5fe | | Load 0x2,-0x2
066f 0227 | ' | Execute Access,All_Reference
0670 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0671 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0672 00d9 | | Load_Top At_Offset_1
0673 0217 | | Execute Heap_Access,All_Reference
0674 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0675 00db | | Load_Top At_Offset_3
0676 800b | | Call 0x0,0xb
0677 c403 | | Store 0x2,0x3
0678 00c9 | | Action Pop_Auxiliary_Loop
0679 e5fe | | Load 0x2,-0x2
067a 0227 | ' | Execute Access,All_Reference
067b 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
067c 0227 | ' | Execute Access,All_Reference
067d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
067e e001 | | Load 0x0,0x1
067f 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0680 0119 | | Execute Any,Check_In_Formal_Type
0681 e001 | | Load 0x0,0x1
0682 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0683 00db | | Load_Top At_Offset_3
0684 e003 | | Load 0x0,0x3
0685 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0686 77c6 |w | Jump_Nonzero 0x64d
0687 00ce | | Action Pop_Auxiliary
0688 4920 |I | Short_Literal 0x120
0689 0257 | W | Execute Discrete,Raise
068a 0000 0000 | | .BLANK 0000[0x6]
0690 ; --------------------------------------------------------------------------------------
0690 ; SUBPROGRAM
0690 ; --------------------------------------------------------------------------------------
0690 069d | | .CONST 0x069d ; Address of begin
0691 0004 | | .CONST 0x0004 ; Address of exception handler
0692 0002 | | .CONST 0x0002 ; Number of locals
0693 INIT_0690:
0693 e5fe | | Load 0x2,-0x2
0694 0227 | ' | Execute Access,All_Reference
0695 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0696 e001 | | Load 0x0,0x1
0697 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0698 0119 | | Execute Any,Check_In_Formal_Type
0699 e001 | | Load 0x0,0x1
069a 1810 | | Execute Package,Field_Execute,Field_Number 0x10
069b e001 | | Load 0x0,0x1
069c 181c | | Execute Package,Field_Execute,Field_Number 0x1c
069d BODY_0690:
069d e5fe | | Load 0x2,-0x2
069e 00d8 | | Load_Top At_Offset_0
069f 0227 | ' | Execute Access,All_Reference
06a0 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
06a1 00da | | Load_Top At_Offset_2
06a2 4801 |H | Short_Literal 0x1
06a3 e001 | | Load 0x0,0x1
06a4 1819 | | Execute Package,Field_Execute,Field_Number 0x19
06a5 c5fe | | Store 0x2,-0x2
06a6 4501 |E | Exit_Suprogram New_Top_Offset 0x1
06a7 0000 | | .XXX[0x1]
06a8 ; --------------------------------------------------------------------------------------
06a8 ; SUBPROGRAM
06a8 ; --------------------------------------------------------------------------------------
06a8 06c7 | | .CONST 0x06c7 ; Address of begin
06a9 0004 | | .CONST 0x0004 ; Address of exception handler
06aa 0005 | | .CONST 0x0005 ; Number of locals
06ab INIT_06a8:
06ab e5ff | | Load 0x2,-0x1
06ac 8210 | | Call 0x1,0x10
06ad e00a | | Load 0x0,0xa
06ae 1814 | | Execute Package,Field_Execute,Field_Number 0x14
06af e5fe | | Load 0x2,-0x2
06b0 0227 | ' | Execute Access,All_Reference
06b1 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
06b2 0227 | ' | Execute Access,All_Reference
06b3 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
06b4 0007 | | Action Break_Optional
06b5 00d9 | | Load_Top At_Offset_1
06b6 01db | | Execute Vector,Length
06b7 e00e | | Load 0x0,0xe
06b8 1c08 | | Execute_Immediate Run_Utility,0x8
06b9 00d8 | | Load_Top At_Offset_0
06ba 1c00 | | Execute_Immediate Run_Utility,0x0
06bb e003 | | Load 0x0,0x3
06bc 1b15 | | Execute Package,Field_Read,Field_Number 0x15
06bd 02c7 | | Declare_Variable Any
06be e5fe | | Load 0x2,-0x2
06bf 0227 | ' | Execute Access,All_Reference
06c0 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
06c1 e001 | | Load 0x0,0x1
06c2 1b0f | | Execute Package,Field_Read,Field_Number 0xf
06c3 0119 | | Execute Any,Check_In_Formal_Type
06c4 e001 | | Load 0x0,0x1
06c5 1814 | | Execute Package,Field_Execute,Field_Number 0x14
06c6 a605 | | Store_Unchecked 0x3,0x5
06c7 BODY_06a8:
06c7 00be | | Action Activate_Tasks
06c8 00d9 | | Load_Top At_Offset_1
06c9 00d9 | | Load_Top At_Offset_1
06ca e603 | | Load 0x3,0x3
06cb e00d | | Load 0x0,0xd
06cc 1812 | | Execute Package,Field_Execute,Field_Number 0x12
06cd 00d8 | | Load_Top At_Offset_0
06ce 00db | | Load_Top At_Offset_3
06cf e00c | | Load 0x0,0xc
06d0 1811 | | Execute Package,Field_Execute,Field_Number 0x11
06d1 e5fd | | Load 0x2,-0x3
06d2 0227 | ' | Execute Access,All_Reference
06d3 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
06d4 00db | | Load_Top At_Offset_3
06d5 e5fd | | Load 0x2,-0x3
06d6 0227 | ' | Execute Access,All_Reference
06d7 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
06d8 0217 | | Execute Heap_Access,All_Reference
06d9 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3
06da 00d8 | | Load_Top At_Offset_0
06db 00db | | Load_Top At_Offset_3
06dc e00d | | Load 0x0,0xd
06dd 1810 | | Execute Package,Field_Execute,Field_Number 0x10
06de e5fd | | Load 0x2,-0x3
06df 0227 | ' | Execute Access,All_Reference
06e0 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
06e1 e5fd | | Load 0x2,-0x3
06e2 0227 | ' | Execute Access,All_Reference
06e3 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
06e4 e5fd | | Load 0x2,-0x3
06e5 0227 | ' | Execute Access,All_Reference
06e6 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
06e7 e5fd | | Load 0x2,-0x3
06e8 0227 | ' | Execute Access,All_Reference
06e9 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
06ea e5fd | | Load 0x2,-0x3
06eb 0227 | ' | Execute Access,All_Reference
06ec 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
06ed e5fe | | Load 0x2,-0x2
06ee 0227 | ' | Execute Access,All_Reference
06ef 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
06f0 0a01 | | Execute_Immediate Plus,0x1
06f1 e5fe | | Load 0x2,-0x2
06f2 0227 | ' | Execute Access,All_Reference
06f3 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
06f4 4501 |E | Exit_Suprogram New_Top_Offset 0x1
06f5 0000 0000 | | .XXX[0x3]
06f7 0000 | |
06f8 ; --------------------------------------------------------------------------------------
06f8 ; SUBPROGRAM
06f8 ; --------------------------------------------------------------------------------------
06f8 070d | | .CONST 0x070d ; Address of begin
06f9 0004 | | .CONST 0x0004 ; Address of exception handler
06fa 0013 | | .CONST 0x0013 ; Number of locals
06fb INIT_06f8:
06fb 029a 0713 | | Declare_Subprogram INIT_0710,For_Outer_Call,Visible,Unelaborated
06fd 029a 072b | +| Declare_Subprogram INIT_0728,For_Outer_Call,Visible,Unelaborated
06ff 00bf | | Action Accept_Activation
0700 e001 | | Load 0x0,0x1
0701 e002 | | Load 0x0,0x2
0702 e20f | | Load 0x1,0xf
0703 e210 | | Load 0x1,0x10
0704 e003 | | Load 0x0,0x3
0705 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e
0706 0387 | | Declare_Variable Package
0707 00d8 | | Load_Top At_Offset_0
0708 020f | | Execute Module,Activate
0709 1d11 | | Execute_Immediate Reference_Lex_1,0x11
070a 00c7 | | Action Elaborate_Subprogram
070b 1d12 | | Execute_Immediate Reference_Lex_1,0x12
070c 00c7 | | Action Elaborate_Subprogram
070d BODY_06f8:
070d 00bc | | Action Signal_Activated
070e 00bb | | Action Signal_Completion
070f 0000 | | .XXX[0x1]
0710 ; --------------------------------------------------------------------------------------
0710 ; SUBPROGRAM
0710 ; --------------------------------------------------------------------------------------
0710 071a | | .CONST 0x071a ; Address of begin
0711 0004 | | .CONST 0x0004 ; Address of exception handler
0712 0002 | | .CONST 0x0002 ; Number of locals
0713 INIT_0710:
0713 00da | | Load_Top At_Offset_2
0714 0227 | ' | Execute Access,All_Reference
0715 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0716 0227 | ' | Execute Access,All_Reference
0717 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0718 0227 | ' | Execute Access,All_Reference
0719 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
071a BODY_0710:
071a 00be | | Action Activate_Tasks
071b 00db | | Load_Top At_Offset_3
071c 0227 | ' | Execute Access,All_Reference
071d 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
071e 00d9 | | Load_Top At_Offset_1
071f e213 | | Load 0x1,0x13
0720 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0721 e210 | | Load 0x1,0x10
0722 0213 | | Execute Heap_Access,Check_In_Type
0723 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0724 0000 0000 | | .BLANK 0000[0x4]
0728 ; --------------------------------------------------------------------------------------
0728 ; SUBPROGRAM
0728 ; --------------------------------------------------------------------------------------
0728 0732 | 2 | .CONST 0x0732 ; Address of begin
0729 0004 | | .CONST 0x0004 ; Address of exception handler
072a 0002 | | .CONST 0x0002 ; Number of locals
072b INIT_0728:
072b 00da | | Load_Top At_Offset_2
072c 0227 | ' | Execute Access,All_Reference
072d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
072e 0227 | ' | Execute Access,All_Reference
072f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0730 0227 | ' | Execute Access,All_Reference
0731 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0732 BODY_0728:
0732 00be | | Action Activate_Tasks
0733 00db | | Load_Top At_Offset_3
0734 0227 | ' | Execute Access,All_Reference
0735 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0736 e5fe | | Load 0x2,-0x2
0737 e210 | | Load 0x1,0x10
0738 0213 | | Execute Heap_Access,Check_In_Type
0739 00da | | Load_Top At_Offset_2
073a e213 | | Load 0x1,0x13
073b 1812 | | Execute Package,Field_Execute,Field_Number 0x12
073c 8004 | | Call 0x0,0x4
073d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
073e 0000 0000 | | .XXX[0x2]
0740 ; --------------------------------------------------------------------------------------
0740 ; SUBPROGRAM
0740 ; --------------------------------------------------------------------------------------
0740 0754 | T | .CONST 0x0754 ; Address of begin
0741 0004 | | .CONST 0x0004 ; Address of exception handler
0742 0012 | | .CONST 0x0012 ; Number of locals
0743 INIT_0740:
0743 029a 075b | [| Declare_Subprogram INIT_0758,For_Outer_Call,Visible,Unelaborated
0745 029a 078b | | Declare_Subprogram INIT_0788,For_Outer_Call,Visible,Unelaborated
0747 00bf | | Action Accept_Activation
0748 e001 | | Load 0x0,0x1
0749 e002 | | Load 0x0,0x2
074a e20f | | Load 0x1,0xf
074b e003 | | Load 0x0,0x3
074c 1b2d | - | Execute Package,Field_Read,Field_Number 0x2d
074d 0387 | | Declare_Variable Package
074e 00d8 | | Load_Top At_Offset_0
074f 020f | | Execute Module,Activate
0750 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0751 00c7 | | Action Elaborate_Subprogram
0752 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0753 00c7 | | Action Elaborate_Subprogram
0754 BODY_0740:
0754 00bc | | Action Signal_Activated
0755 00bb | | Action Signal_Completion
0756 0000 0000 | | .XXX[0x2]
0758 ; --------------------------------------------------------------------------------------
0758 ; SUBPROGRAM
0758 ; --------------------------------------------------------------------------------------
0758 076a | j | .CONST 0x076a ; Address of begin
0759 0004 | | .CONST 0x0004 ; Address of exception handler
075a 0003 | | .CONST 0x0003 ; Number of locals
075b INIT_0758:
075b 00da | | Load_Top At_Offset_2
075c 0227 | ' | Execute Access,All_Reference
075d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
075e 0227 | ' | Execute Access,All_Reference
075f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0760 0227 | ' | Execute Access,All_Reference
0761 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0762 0007 | | Action Break_Optional
0763 e003 | | Load 0x0,0x3
0764 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0765 02c7 | | Declare_Variable Any
0766 e5ff | | Load 0x2,-0x1
0767 0227 | ' | Execute Access,All_Reference
0768 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0769 a403 | | Store_Unchecked 0x2,0x3
076a BODY_0758:
076a 00be | | Action Activate_Tasks
076b 00d8 | | Load_Top At_Offset_0
076c 00da | | Load_Top At_Offset_2
076d e212 | | Load 0x1,0x12
076e 1810 | | Execute Package,Field_Execute,Field_Number 0x10
076f e5ff | | Load 0x2,-0x1
0770 0227 | ' | Execute Access,All_Reference
0771 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0772 e5ff | | Load 0x2,-0x1
0773 0227 | ' | Execute Access,All_Reference
0774 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0775 e5ff | | Load 0x2,-0x1
0776 0227 | ' | Execute Access,All_Reference
0777 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0778 e003 | | Load 0x0,0x3
0779 181c | | Execute Package,Field_Execute,Field_Number 0x1c
077a 6806 |h | Jump_Zero 0x781
077b 00d8 | | Load_Top At_Offset_0
077c e5ff | | Load 0x2,-0x1
077d 0227 | ' | Execute Access,All_Reference
077e 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
077f 4950 |IP | Short_Literal 0x150
0780 0257 | W | Execute Discrete,Raise
0781 00d8 | | Load_Top At_Offset_0
0782 00da | | Load_Top At_Offset_2
0783 e212 | | Load 0x1,0x12
0784 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0785 e20f | | Load 0x1,0xf
0786 0119 | | Execute Any,Check_In_Formal_Type
0787 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0788 ; --------------------------------------------------------------------------------------
0788 ; SUBPROGRAM
0788 ; --------------------------------------------------------------------------------------
0788 0792 | | .CONST 0x0792 ; Address of begin
0789 0004 | | .CONST 0x0004 ; Address of exception handler
078a 0002 | | .CONST 0x0002 ; Number of locals
078b INIT_0788:
078b 00db | | Load_Top At_Offset_3
078c 0227 | ' | Execute Access,All_Reference
078d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
078e 0227 | ' | Execute Access,All_Reference
078f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0790 0227 | ' | Execute Access,All_Reference
0791 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0792 BODY_0788:
0792 00be | | Action Activate_Tasks
0793 00db | | Load_Top At_Offset_3
0794 e20f | | Load 0x1,0xf
0795 0119 | | Execute Any,Check_In_Formal_Type
0796 e5fe | | Load 0x2,-0x2
0797 0227 | ' | Execute Access,All_Reference
0798 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0799 00da | | Load_Top At_Offset_2
079a e212 | | Load 0x1,0x12
079b 1812 | | Execute Package,Field_Execute,Field_Number 0x12
079c e5fe | | Load 0x2,-0x2
079d 0227 | ' | Execute Access,All_Reference
079e 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
079f 00d9 | | Load_Top At_Offset_1
07a0 e212 | | Load 0x1,0x12
07a1 1810 | | Execute Package,Field_Execute,Field_Number 0x10
07a2 e5fe | | Load 0x2,-0x2
07a3 0227 | ' | Execute Access,All_Reference
07a4 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
07a5 4502 |E | Exit_Suprogram New_Top_Offset 0x2
07a6 ; --------------------------------------------------------------------------------------
07a6 ; STRING TABLE
07a6 ; --------------------------------------------------------------------------------------
07a6 0008 | | .STRTAB 0x0008->0x07aa ; "IN_FILE"
07a7 000d | | .STRTAB 0x000d->0x07ad ; "OUT_FILE"
07a8 0013 | | .STRTAB 0x0013->0x07b1 ; "_000"
07a9 0015 | | .STREND 0x0015->0x07b3
07aa 494e 5f46 |IN_F| .STRTAB_STRINGS
07b4 0000 0000 | | .BLANK 0000[0x4]
07b8 ; --------------------------------------------------------------------------------------
07b8 ; Debug Table
07b8 ; --------------------------------------------------------------------------------------
07b8 0004 0015 | | .DEBUG4 0x0004,0x0015,0x104d,0x0000,0x0001,0x0000
07be 1a64 1dfb | d | .XXX[0xe]
07c0 bda0 0001 | |
07c2 0000 0000 | |
07c4 9000 06fb | |
07c6 6000 0000 |` |
07c8 2000 0000 | |
07ca 4008 8206 |@ |
07cc 0000 0000 | | .BLANK 0000[0x8]
07d4 0206 9907 | | .XXX[0x13]
07d6 7eef 6800 |~ h |
07d8 0040 0000 | @ |
07da 0024 0001 | $ |
07dc bed8 0000 | |
07de 0008 0000 | |
07e0 0010 0000 | |
07e2 0018 0002 | |
07e4 dbd0 0176 | v|
07e6 ccf0 | |
07e7 0000 0000 | | .BLANK 0000[0x4]
07eb 00bb 7bc4 | { | .XXX[0xe]
07ed 0000 76b3 | v |
07ef 9f68 636e | hcn|
07f1 53fa c000 |S |
07f3 0050 316f | P1o|
07f5 49e3 1660 |I `|
07f7 0000 8000 | |
07f9 0000 0000 | | .BLANK 0000[0x4]
07fd f6e0 8000 | | .XXX[0x3]
07ff 0000 | |