|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 5120 (0x1400)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_191cd7
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0740 | @ | .CONST 0x0740 ; 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 0004 | | .CONST 0x0004 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 00d7 | | .CONST 0x00d7 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0044 | D | .CONST 0x0044 ; Number of locals
000b INIT_0008:
000b 0007 | | Action Break_Optional
000c 0007 | | Action Break_Optional
000d 00c4 | | Action Make_Default
000e 00c4 | | Action Make_Default
000f 0093 0000 | | PushFullAddress InMicrocode
0011 60e2 |` | Indirect_Literal Discrete,0xf4,{0x80000000, 0x00010000}
0012 0273 | s | Execute Discrete,Plus
0013 e20d | | Load 0x1,0xd
0014 60db |` | Indirect_Literal Discrete,0xf0,{0x00000000, 0x0000ffff}
0015 0279 | y | Execute Discrete,And
0016 0273 | s | Execute Discrete,Plus
0017 0129 | ) | Execute Any,Make_Visible
0018 0093 0000 | | PushFullAddress InMicrocode
001a 60d1 |` | Indirect_Literal Discrete,0xec,{0x80000000, 0x00020000}
001b 0273 | s | Execute Discrete,Plus
001c e20d | | Load 0x1,0xd
001d 60d2 |` | Indirect_Literal Discrete,0xf0,{0x00000000, 0x0000ffff}
001e 0279 | y | Execute Discrete,And
001f 0273 | s | Execute Discrete,Plus
0020 0129 | ) | Execute Any,Make_Visible
0021 029a 00e3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00e0
0023 029a 00fb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00f8
0025 029a 0143 | C| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0140
0027 029a 014b | K| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0148
0029 029a 0153 | S| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0150
002b 029a 017b | {| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0178
002d 029a 01a3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01a0
002f 029a 01d3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01d0
0031 029a 01fb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01f8
0033 029a 027b | {| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0278
0035 029a 030b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0308
0037 029a 035b | [| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0358
0039 029a 03b3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_03b0
003b 029a 03e3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_03e0
003d 029a 042b | +| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0428
003f 029a 043b | ;| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0438
0041 029a 0453 | S| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0450
0043 029a 0463 | c| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0460
0045 029a 0473 | s| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0470
0047 029a 04ab | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_04a8
0049 4802 |H | Short_Literal 0x2
004a 032b | + | Declare_Type Record,Incomplete,Visible
004b 4804 |H | Short_Literal 0x4
004c 032b | + | Declare_Type Record,Incomplete,Visible
004d 00d8 | | Load_Top At_Offset_0
004e 02a0 | | Declare_Subprogram Null_Subprogram
004f 4818 |H | Short_Literal 0x18
0050 03d4 | | Declare_Type Access,Defined,Visible,Accesses_Protected
0051 00d8 | | Load_Top At_Offset_0
0052 0221 | ! | Execute Access,Allow_Deallocate
0053 00da | | Load_Top At_Offset_2
0054 02a0 | | Declare_Subprogram Null_Subprogram
0055 4818 |H | Short_Literal 0x18
0056 03d4 | | Declare_Type Access,Defined,Visible,Accesses_Protected
0057 00d8 | | Load_Top At_Offset_0
0058 0221 | ! | Execute Access,Allow_Deallocate
0059 00d8 | | Load_Top At_Offset_0
005a 0129 | ) | Execute Any,Make_Visible
005b c215 | | Store 0x1,0x15
005c 00d8 | | Load_Top At_Offset_0
005d 00da | | Load_Top At_Offset_2
005e e002 | | Load 0x0,0x2
005f 029f 0733 | 3| Declare_Subprogram For_Call,INIT_0730
0061 4803 |H | Short_Literal 0x3
0062 032e | . | Declare_Type Record,Defined,Visible
0063 00d8 | | Load_Top At_Offset_0
0064 0322 | " | Declare_Variable Record
0065 00da | | Load_Top At_Offset_2
0066 00d9 | | Load_Top At_Offset_1
0067 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0068 00db | | Load_Top At_Offset_3
0069 00d9 | | Load_Top At_Offset_1
006a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
006b 4800 |H | Short_Literal 0x0
006c 00d9 | | Load_Top At_Offset_1
006d 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
006e 0129 | ) | Execute Any,Make_Visible
006f c216 | | Store 0x1,0x16
0070 0007 | | Action Break_Optional
0071 00bf | | Action Accept_Activation
0072 e003 | | Load 0x0,0x3
0073 00db | | Load_Top At_Offset_3
0074 e212 | | Load 0x1,0x12
0075 e211 | | Load 0x1,0x11
0076 029f 050b | | Declare_Subprogram For_Call,INIT_0508
0078 e22e | . | Load 0x1,0x2e
0079 0326 | & | Complete_Type Record,By_Defining
007a 00da | | Load_Top At_Offset_2
007b 03c4 | | Complete_Type Access,By_Component_Completion
007c 00da | | Load_Top At_Offset_2
007d 0221 | ! | Execute Access,Allow_Deallocate
007e 4800 |H | Short_Literal 0x0
007f e213 | | Load 0x1,0x13
0080 0aff | | Execute_Immediate Plus,-0x1
0081 e003 | | Load 0x0,0x3
0082 025d | ] | Execute Discrete,Bounds_Check
0083 e22f | / | Load 0x1,0x2f
0084 02a0 | | Declare_Subprogram Null_Subprogram
0085 4801 |H | Short_Literal 0x1
0086 035d | ] | Declare_Type Array,Defined
0087 e002 | | Load 0x0,0x2
0088 00d9 | | Load_Top At_Offset_1
0089 029f 051b | | Declare_Subprogram For_Call,INIT_0518
008b e22d | - | Load 0x1,0x2d
008c 0326 | & | Complete_Type Record,By_Defining
008d 00da | | Load_Top At_Offset_2
008e 03c4 | | Complete_Type Access,By_Component_Completion
008f 00da | | Load_Top At_Offset_2
0090 0221 | ! | Execute Access,Allow_Deallocate
0091 a004 | | Reference 0x0,0x4
0092 00c6 | | Action Check_Subprogram_Elaborated
0093 e210 | | Load 0x1,0x10
0094 e211 | | Load 0x1,0x11
0095 e005 | | Load 0x0,0x5
0096 e006 | | Load 0x0,0x6
0097 4800 |H | Short_Literal 0x0
0098 0007 | | Action Break_Optional
0099 a004 | | Reference 0x0,0x4
009a 00c6 | | Action Check_Subprogram_Elaborated
009b e22e | . | Load 0x1,0x2e
009c e22f | / | Load 0x1,0x2f
009d e007 | | Load 0x0,0x7
009e e008 | | Load 0x0,0x8
009f 4800 |H | Short_Literal 0x0
00a0 0007 | | Action Break_Optional
00a1 a004 | | Reference 0x0,0x4
00a2 00c6 | | Action Check_Subprogram_Elaborated
00a3 e22d | - | Load 0x1,0x2d
00a4 e230 | 0 | Load 0x1,0x30
00a5 e009 | | Load 0x0,0x9
00a6 e00a | | Load 0x0,0xa
00a7 4800 |H | Short_Literal 0x0
00a8 0007 | | Action Break_Optional
00a9 029d 053b | ;| Declare_Subprogram For_Outer_Call,INIT_0538
00ab 029d 060b | | Declare_Subprogram For_Outer_Call,INIT_0608
00ad 029d 067b | {| Declare_Subprogram For_Outer_Call,INIT_0678
00af 1d19 | | Execute_Immediate Reference_Lex_1,0x19
00b0 00c7 | | Action Elaborate_Subprogram
00b1 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
00b2 00c7 | | Action Elaborate_Subprogram
00b3 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
00b4 00c7 | | Action Elaborate_Subprogram
00b5 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
00b6 00c7 | | Action Elaborate_Subprogram
00b7 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
00b8 00c7 | | Action Elaborate_Subprogram
00b9 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
00ba 00c7 | | Action Elaborate_Subprogram
00bb 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
00bc 00c7 | | Action Elaborate_Subprogram
00bd 1d20 | | Execute_Immediate Reference_Lex_1,0x20
00be 00c7 | | Action Elaborate_Subprogram
00bf 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
00c0 00c7 | | Action Elaborate_Subprogram
00c1 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
00c2 00c7 | | Action Elaborate_Subprogram
00c3 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
00c4 00c7 | | Action Elaborate_Subprogram
00c5 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
00c6 00c7 | | Action Elaborate_Subprogram
00c7 1d25 | % | Execute_Immediate Reference_Lex_1,0x25
00c8 00c7 | | Action Elaborate_Subprogram
00c9 1d26 | & | Execute_Immediate Reference_Lex_1,0x26
00ca 00c7 | | Action Elaborate_Subprogram
00cb 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27
00cc 00c7 | | Action Elaborate_Subprogram
00cd 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28
00ce 00c7 | | Action Elaborate_Subprogram
00cf 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29
00d0 00c7 | | Action Elaborate_Subprogram
00d1 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a
00d2 00c7 | | Action Elaborate_Subprogram
00d3 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b
00d4 00c7 | | Action Elaborate_Subprogram
00d5 1d2c | , | Execute_Immediate Reference_Lex_1,0x2c
00d6 00c7 | | Action Elaborate_Subprogram
00d7 BODY_0008:
00d7 00bc | | Action Signal_Activated
00d8 00bb | | Action Signal_Completion
00d9 0000 0000 | | .BLANK 0000[0x7]
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 e230 | 0 | Load 0x1,0x30
00e4 03bc | | Declare_Variable Access,By_Allocation
00e5 00d8 | | Load_Top At_Offset_0
00e6 0227 | ' | Execute Access,All_Reference
00e7 1c00 | | Execute_Immediate Run_Utility,0x0
00e8 003b | ; | Store_Top Access,At_Offset_3
00e9 4501 |E | Exit_Subprogram 0x1
00ea 0000 0000 | | .XXX[0x2]
00ec 8000 0000 | | .LITERAL {0x80000000, 0x00020000}
00f0 0000 0000 | | .LITERAL {0x00000000, 0x0000ffff}
00f4 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 00ff | | .CONST 0x00ff ; Address of begin
00f9 0004 | | .CONST 0x0004 ; Address of exception handler
00fa 0003 | | .CONST 0x0003 ; Number of locals
00fb INIT_00f8:
00fb e22f | / | Load 0x1,0x2f
00fc 0007 | | Action Break_Optional
00fd e22f | / | Load 0x1,0x2f
00fe 0007 | | Action Break_Optional
00ff BODY_00f8:
00ff e5ff | | Load 0x2,-0x1
0100 7001 |p | Jump_Nonzero 0x102
0101 4501 |E | Exit_Subprogram 0x1
0102 e5ff | | Load 0x2,-0x1
0103 0227 | ' | Execute Access,All_Reference
0104 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0105 0c01 | | Execute_Immediate Greater_Equal,0x1
0106 682f |h/ | Jump_Zero 0x136
0107 00cf | | Action Mark_Auxiliary
0108 e5ff | | Load 0x2,-0x1
0109 0227 | ' | Execute Access,All_Reference
010a 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
010b 01d9 | | Execute Vector,Reverse_Bounds
010c 0263 | c | Execute Discrete,Above_Bound
010d 7027 |p' | Jump_Nonzero 0x135
010e 00d8 | | Load_Top At_Offset_0
010f e5ff | | Load 0x2,-0x1
0110 0227 | ' | Execute Access,All_Reference
0111 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0112 01d7 | | Execute Vector,Field_Read
0113 a402 | | Store_Unchecked 0x2,0x2
0114 00cf | | Action Mark_Auxiliary
0115 781a |x | Jump 0x130
0116 e402 | | Load 0x2,0x2
0117 0227 | ' | Execute Access,All_Reference
0118 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0119 a403 | | Store_Unchecked 0x2,0x3
011a e402 | | Load 0x2,0x2
011b 0229 | ) | Execute Access,All_Read
011c 00d8 | | Load_Top At_Offset_0
011d 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
011e e234 | 4 | Load 0x1,0x34
011f 0226 | & | Execute Access,Convert
0120 e233 | 3 | Load 0x1,0x33
0121 e234 | 4 | Load 0x1,0x34
0122 1d35 | 5 | Execute_Immediate Reference_Lex_1,0x35
0123 8004 | | Call 0x0,0x4
0124 00d9 | | Load_Top At_Offset_1
0125 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0126 00d1 | | Pop_Control Pop_Count_1
0127 e402 | | Load 0x2,0x2
0128 e238 | 8 | Load 0x1,0x38
0129 e239 | 9 | Load 0x1,0x39
012a 1d3a | : | Execute_Immediate Reference_Lex_1,0x3a
012b 8004 | | Call 0x0,0x4
012c c402 | | Store 0x2,0x2
012d e403 | | Load 0x2,0x3
012e a402 | | Store_Unchecked 0x2,0x2
012f 00c9 | | Action Pop_Auxiliary_Loop
0130 e402 | | Load 0x2,0x2
0131 77e4 |w | Jump_Nonzero 0x116
0132 00ce | | Action Pop_Auxiliary
0133 00c8 | | Action Pop_Auxiliary_Range
0134 3fd9 |? | Loop_Increasing 0x10e
0135 00ce | | Action Pop_Auxiliary
0136 e5ff | | Load 0x2,-0x1
0137 e23d | = | Load 0x1,0x3d
0138 e23e | > | Load 0x1,0x3e
0139 1d3f | ? | Execute_Immediate Reference_Lex_1,0x3f
013a 8004 | | Call 0x0,0x4
013b c5ff | | Store 0x2,-0x1
013c 4501 |E | Exit_Subprogram 0x1
013d 0000 0000 | | .XXX[0x3]
013f 0000 | |
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 0143 | C | .CONST 0x0143 ; Address of begin
0141 0004 | | .CONST 0x0004 ; Address of exception handler
0142 0001 | | .CONST 0x0001 ; Number of locals
0143 BODY_0140:
0143 INIT_0140:
0143 00da | | Load_Top At_Offset_2
0144 0227 | ' | Execute Access,All_Reference
0145 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0146 0f00 | | Execute_Immediate Equal,0x0
0147 4401 |D | Exit_Subprogram With_Result,0x1
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 0227 | ' | Execute Access,All_Reference
014d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
014e 4401 |D | Exit_Subprogram With_Result,0x1
014f 0000 | | .XXX[0x1]
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 0161 | a | .CONST 0x0161 ; Address of begin
0151 0004 | | .CONST 0x0004 ; Address of exception handler
0152 0004 | | .CONST 0x0004 ; Number of locals
0153 INIT_0150:
0153 00db | | Load_Top At_Offset_3
0154 8242 | B | Call 0x1,0x42
0155 e003 | | Load 0x0,0x3
0156 03f1 | | Declare_Variable Discrete,With_Value
0157 e22f | / | Load 0x1,0x2f
0158 0007 | | Action Break_Optional
0159 00d9 | | Load_Top At_Offset_1
015a e213 | | Load 0x1,0x13
015b 026f | o | Execute Discrete,Remainder
015c e5ff | | Load 0x2,-0x1
015d 0227 | ' | Execute Access,All_Reference
015e 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
015f 01d7 | | Execute Vector,Field_Read
0160 0007 | | Action Break_Optional
0161 BODY_0150:
0161 00d8 | | Load_Top At_Offset_0
0162 e22f | / | Load 0x1,0x2f
0163 e5fe | | Load 0x2,-0x2
0164 e402 | | Load 0x2,0x2
0165 8244 | D | Call 0x1,0x44
0166 003b | ; | Store_Top Access,At_Offset_3
0167 0039 | 9 | Store_Top Access,At_Offset_1
0168 00d8 | | Load_Top At_Offset_0
0169 6807 |h | Jump_Zero 0x171
016a 00d8 | | Load_Top At_Offset_0
016b 0227 | ' | Execute Access,All_Reference
016c 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
016d c5fd | | Store 0x2,-0x3
016e 4801 |H | Short_Literal 0x1
016f a5fc | | Store_Unchecked 0x2,-0x4
0170 4503 |E | Exit_Subprogram 0x3
0171 4800 |H | Short_Literal 0x0
0172 a5fc | | Store_Unchecked 0x2,-0x4
0173 4503 |E | Exit_Subprogram 0x3
0174 0000 0000 | | .BLANK 0000[0x4]
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 0189 | | .CONST 0x0189 ; Address of begin
0179 0004 | | .CONST 0x0004 ; Address of exception handler
017a 0004 | | .CONST 0x0004 ; Number of locals
017b INIT_0178:
017b 00db | | Load_Top At_Offset_3
017c 8242 | B | Call 0x1,0x42
017d e003 | | Load 0x0,0x3
017e 03f1 | | Declare_Variable Discrete,With_Value
017f e22f | / | Load 0x1,0x2f
0180 0007 | | Action Break_Optional
0181 00d9 | | Load_Top At_Offset_1
0182 e213 | | Load 0x1,0x13
0183 026f | o | Execute Discrete,Remainder
0184 e5ff | | Load 0x2,-0x1
0185 0227 | ' | Execute Access,All_Reference
0186 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0187 01d7 | | Execute Vector,Field_Read
0188 0007 | | Action Break_Optional
0189 BODY_0178:
0189 00d8 | | Load_Top At_Offset_0
018a e22f | / | Load 0x1,0x2f
018b e5fe | | Load 0x2,-0x2
018c e402 | | Load 0x2,0x2
018d 8244 | D | Call 0x1,0x44
018e 003b | ; | Store_Top Access,At_Offset_3
018f 0039 | 9 | Store_Top Access,At_Offset_1
0190 00d8 | | Load_Top At_Offset_0
0191 680b |h | Jump_Zero 0x19d
0192 00d8 | | Load_Top At_Offset_0
0193 0227 | ' | Execute Access,All_Reference
0194 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0195 c5fc | | Store 0x2,-0x4
0196 00d8 | | Load_Top At_Offset_0
0197 0227 | ' | Execute Access,All_Reference
0198 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0199 a5fd | | Store_Unchecked 0x2,-0x3
019a 4801 |H | Short_Literal 0x1
019b a5fb | | Store_Unchecked 0x2,-0x5
019c 4503 |E | Exit_Subprogram 0x3
019d 4800 |H | Short_Literal 0x0
019e a5fb | | Store_Unchecked 0x2,-0x5
019f 4503 |E | Exit_Subprogram 0x3
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01b2 | | .CONST 0x01b2 ; Address of begin
01a1 0004 | | .CONST 0x0004 ; Address of exception handler
01a2 0004 | | .CONST 0x0004 ; Number of locals
01a3 INIT_01a0:
01a3 00db | | Load_Top At_Offset_3
01a4 0227 | ' | Execute Access,All_Reference
01a5 8242 | B | Call 0x1,0x42
01a6 e003 | | Load 0x0,0x3
01a7 03f1 | | Declare_Variable Discrete,With_Value
01a8 e22f | / | Load 0x1,0x2f
01a9 0007 | | Action Break_Optional
01aa 00d9 | | Load_Top At_Offset_1
01ab e213 | | Load 0x1,0x13
01ac 026f | o | Execute Discrete,Remainder
01ad e5ff | | Load 0x2,-0x1
01ae 0227 | ' | Execute Access,All_Reference
01af 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
01b0 01d7 | | Execute Vector,Field_Read
01b1 0007 | | Action Break_Optional
01b2 BODY_01a0:
01b2 00d8 | | Load_Top At_Offset_0
01b3 e22f | / | Load 0x1,0x2f
01b4 e5fe | | Load 0x2,-0x2
01b5 0227 | ' | Execute Access,All_Reference
01b6 e402 | | Load 0x2,0x2
01b7 8244 | D | Call 0x1,0x44
01b8 003b | ; | Store_Top Access,At_Offset_3
01b9 0039 | 9 | Store_Top Access,At_Offset_1
01ba 00d8 | | Load_Top At_Offset_0
01bb 680b |h | Jump_Zero 0x1c7
01bc 00d8 | | Load_Top At_Offset_0
01bd 0227 | ' | Execute Access,All_Reference
01be 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
01bf c5fd | | Store 0x2,-0x3
01c0 00d8 | | Load_Top At_Offset_0
01c1 0227 | ' | Execute Access,All_Reference
01c2 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
01c3 a5fe | | Store_Unchecked 0x2,-0x2
01c4 4801 |H | Short_Literal 0x1
01c5 a5fc | | Store_Unchecked 0x2,-0x4
01c6 4502 |E | Exit_Subprogram 0x2
01c7 4800 |H | Short_Literal 0x0
01c8 a5fc | | Store_Unchecked 0x2,-0x4
01c9 4502 |E | Exit_Subprogram 0x2
01ca 0000 0000 | | .BLANK 0000[0x6]
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; --------------------------------------------------------------------------------------
01d0 01e1 | | .CONST 0x01e1 ; Address of begin
01d1 0004 | | .CONST 0x0004 ; Address of exception handler
01d2 0004 | | .CONST 0x0004 ; Number of locals
01d3 INIT_01d0:
01d3 00db | | Load_Top At_Offset_3
01d4 8242 | B | Call 0x1,0x42
01d5 e003 | | Load 0x0,0x3
01d6 03f1 | | Declare_Variable Discrete,With_Value
01d7 e22f | / | Load 0x1,0x2f
01d8 0007 | | Action Break_Optional
01d9 00d9 | | Load_Top At_Offset_1
01da e213 | | Load 0x1,0x13
01db 026f | o | Execute Discrete,Remainder
01dc e5ff | | Load 0x2,-0x1
01dd 0227 | ' | Execute Access,All_Reference
01de 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
01df 01d7 | | Execute Vector,Field_Read
01e0 0007 | | Action Break_Optional
01e1 BODY_01d0:
01e1 00d8 | | Load_Top At_Offset_0
01e2 e22f | / | Load 0x1,0x2f
01e3 e5fe | | Load 0x2,-0x2
01e4 e402 | | Load 0x2,0x2
01e5 8244 | D | Call 0x1,0x44
01e6 003b | ; | Store_Top Access,At_Offset_3
01e7 0039 | 9 | Store_Top Access,At_Offset_1
01e8 00d8 | | Load_Top At_Offset_0
01e9 680b |h | Jump_Zero 0x1f5
01ea 00d8 | | Load_Top At_Offset_0
01eb 0227 | ' | Execute Access,All_Reference
01ec 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
01ed 00d8 | | Load_Top At_Offset_0
01ee 0120 | | Execute Any,Is_Value
01ef 7002 |p | Jump_Nonzero 0x1f2
01f0 00d8 | | Load_Top At_Offset_0
01f1 011e | | Execute Any,Convert
01f2 e212 | | Load 0x1,0x12
01f3 0119 | | Execute Any,Check_In_Formal_Type
01f4 4402 |D | Exit_Subprogram With_Result,0x2
01f5 e218 | | Load 0x1,0x18
01f6 0257 | W | Execute Discrete,Raise
01f7 0000 | | .XXX[0x1]
01f8 ; --------------------------------------------------------------------------------------
01f8 ; SUBPROGRAM
01f8 ; --------------------------------------------------------------------------------------
01f8 020a | | .CONST 0x020a ; Address of begin
01f9 0004 | | .CONST 0x0004 ; Address of exception handler
01fa 0005 | | .CONST 0x0005 ; Number of locals
01fb INIT_01f8:
01fb 00db | | Load_Top At_Offset_3
01fc 8242 | B | Call 0x1,0x42
01fd e003 | | Load 0x0,0x3
01fe 03f1 | | Declare_Variable Discrete,With_Value
01ff e22f | / | Load 0x1,0x2f
0200 0007 | | Action Break_Optional
0201 00d9 | | Load_Top At_Offset_1
0202 e213 | | Load 0x1,0x13
0203 026f | o | Execute Discrete,Remainder
0204 e5ff | | Load 0x2,-0x1
0205 0227 | ' | Execute Access,All_Reference
0206 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0207 01d7 | | Execute Vector,Field_Read
0208 029f 06b3 | | Declare_Subprogram For_Call,INIT_06b0
020a BODY_01f8:
020a 00d9 | | Load_Top At_Offset_1
020b e22f | / | Load 0x1,0x2f
020c e5fe | | Load 0x2,-0x2
020d e402 | | Load 0x2,0x2
020e 8244 | D | Call 0x1,0x44
020f c403 | | Store 0x2,0x3
0210 003a | : | Store_Top Access,At_Offset_2
0211 00d9 | | Load_Top At_Offset_1
0212 6809 |h | Jump_Zero 0x21c
0213 e5fc | | Load 0x2,-0x4
0214 6805 |h | Jump_Zero 0x21a
0215 e5fd | | Load 0x2,-0x3
0216 00da | | Load_Top At_Offset_2
0217 0227 | ' | Execute Access,All_Reference
0218 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0219 4505 |E | Exit_Subprogram 0x5
021a e217 | | Load 0x1,0x17
021b 0257 | W | Execute Discrete,Raise
021c 8405 | | Call 0x2,0x5
021d 00db | | Load_Top At_Offset_3
021e e213 | | Load 0x1,0x13
021f 026f | o | Execute Discrete,Remainder
0220 c402 | | Store 0x2,0x2
0221 00db | | Load_Top At_Offset_3
0222 e5ff | | Load 0x2,-0x1
0223 0227 | ' | Execute Access,All_Reference
0224 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0225 01d7 | | Execute Vector,Field_Read
0226 00da | | Load_Top At_Offset_2
0227 0227 | ' | Execute Access,All_Reference
0228 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0229 00d9 | | Load_Top At_Offset_1
022a e402 | | Load 0x2,0x2
022b e5ff | | Load 0x2,-0x1
022c 0227 | ' | Execute Access,All_Reference
022d 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
022e 01d6 | | Execute Vector,Field_Write
022f e5ff | | Load 0x2,-0x1
0230 0227 | ' | Execute Access,All_Reference
0231 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0232 0a01 | | Execute_Immediate Plus,0x1
0233 e5ff | | Load 0x2,-0x1
0234 0227 | ' | Execute Access,All_Reference
0235 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0236 e214 | | Load 0x1,0x14
0237 703c |p< | Jump_Nonzero 0x274
0238 00cf | | Action Mark_Auxiliary
0239 00da | | Load_Top At_Offset_2
023a 0227 | ' | Execute Access,All_Reference
023b 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
023c 0227 | ' | Execute Access,All_Reference
023d 01d9 | | Execute Vector,Reverse_Bounds
023e 0263 | c | Execute Discrete,Above_Bound
023f 7033 |p3 | Jump_Nonzero 0x273
0240 00d8 | | Load_Top At_Offset_0
0241 e404 | | Load 0x2,0x4
0242 0227 | ' | Execute Access,All_Reference
0243 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0244 0227 | ' | Execute Access,All_Reference
0245 01d7 | | Execute Vector,Field_Read
0246 4861 |Ha | Short_Literal 0x61
0247 e20e | | Load 0x1,0xe
0248 1c05 | | Execute_Immediate Run_Utility,0x5
0249 00d8 | | Load_Top At_Offset_0
024a e20e | | Load 0x1,0xe
024b 0122 | " | Execute Any,Make_Root_Type
024c 0260 | ` | Execute Discrete,In_Type
024d 7001 |p | Jump_Nonzero 0x24f
024e 0801 | | Execute_Immediate Raise,0x1
024f 487a |Hz | Short_Literal 0x7a
0250 e20e | | Load 0x1,0xe
0251 1c05 | | Execute_Immediate Run_Utility,0x5
0252 00d8 | | Load_Top At_Offset_0
0253 e20e | | Load 0x1,0xe
0254 0122 | " | Execute Any,Make_Root_Type
0255 0260 | ` | Execute Discrete,In_Type
0256 7001 |p | Jump_Nonzero 0x258
0257 0801 | | Execute_Immediate Raise,0x1
0258 0262 | b | Execute Discrete,In_Range
0259 6817 |h | Jump_Zero 0x271
025a 00d8 | | Load_Top At_Offset_0
025b e404 | | Load 0x2,0x4
025c 0227 | ' | Execute Access,All_Reference
025d 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
025e 0227 | ' | Execute Access,All_Reference
025f 01d7 | | Execute Vector,Field_Read
0260 e20e | | Load 0x1,0xe
0261 1c04 | | Execute_Immediate Run_Utility,0x4
0262 0ae0 | | Execute_Immediate Plus,-0x20
0263 e20e | | Load 0x1,0xe
0264 1c05 | | Execute_Immediate Run_Utility,0x5
0265 00d8 | | Load_Top At_Offset_0
0266 e20e | | Load 0x1,0xe
0267 0122 | " | Execute Any,Make_Root_Type
0268 0260 | ` | Execute Discrete,In_Type
0269 7001 |p | Jump_Nonzero 0x26b
026a 0801 | | Execute_Immediate Raise,0x1
026b 00d9 | | Load_Top At_Offset_1
026c e404 | | Load 0x2,0x4
026d 0227 | ' | Execute Access,All_Reference
026e 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
026f 0227 | ' | Execute Access,All_Reference
0270 01d6 | | Execute Vector,Field_Write
0271 00c8 | | Action Pop_Auxiliary_Range
0272 3fcd |? | Loop_Increasing 0x240
0273 00ce | | Action Pop_Auxiliary
0274 4505 |E | Exit_Subprogram 0x5
0275 0000 0000 | | .XXX[0x3]
0277 0000 | |
0278 ; --------------------------------------------------------------------------------------
0278 ; SUBPROGRAM
0278 ; --------------------------------------------------------------------------------------
0278 028b | | .CONST 0x028b ; Address of begin
0279 0004 | | .CONST 0x0004 ; Address of exception handler
027a 0005 | | .CONST 0x0005 ; Number of locals
027b INIT_0278:
027b 00db | | Load_Top At_Offset_3
027c 0227 | ' | Execute Access,All_Reference
027d 8242 | B | Call 0x1,0x42
027e e003 | | Load 0x0,0x3
027f 03f1 | | Declare_Variable Discrete,With_Value
0280 e22f | / | Load 0x1,0x2f
0281 0007 | | Action Break_Optional
0282 00d9 | | Load_Top At_Offset_1
0283 e213 | | Load 0x1,0x13
0284 026f | o | Execute Discrete,Remainder
0285 e5ff | | Load 0x2,-0x1
0286 0227 | ' | Execute Access,All_Reference
0287 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0288 01d7 | | Execute Vector,Field_Read
0289 029f 06cb | | Declare_Subprogram For_Call,INIT_06c8
028b BODY_0278:
028b 00d9 | | Load_Top At_Offset_1
028c e22f | / | Load 0x1,0x2f
028d e5fe | | Load 0x2,-0x2
028e 0227 | ' | Execute Access,All_Reference
028f e402 | | Load 0x2,0x2
0290 8244 | D | Call 0x1,0x44
0291 c403 | | Store 0x2,0x3
0292 003a | : | Store_Top Access,At_Offset_2
0293 00d9 | | Load_Top At_Offset_1
0294 681a |h | Jump_Zero 0x2af
0295 e5fc | | Load 0x2,-0x4
0296 6816 |h | Jump_Zero 0x2ad
0297 00d9 | | Load_Top At_Offset_1
0298 0229 | ) | Execute Access,All_Read
0299 00d8 | | Load_Top At_Offset_0
029a 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
029b e234 | 4 | Load 0x1,0x34
029c 0226 | & | Execute Access,Convert
029d e233 | 3 | Load 0x1,0x33
029e e234 | 4 | Load 0x1,0x34
029f 1d35 | 5 | Execute_Immediate Reference_Lex_1,0x35
02a0 8004 | | Call 0x0,0x4
02a1 00d9 | | Load_Top At_Offset_1
02a2 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
02a3 00d1 | | Pop_Control Pop_Count_1
02a4 e5fe | | Load 0x2,-0x2
02a5 00da | | Load_Top At_Offset_2
02a6 0227 | ' | Execute Access,All_Reference
02a7 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
02a8 e5fd | | Load 0x2,-0x3
02a9 00da | | Load_Top At_Offset_2
02aa 0227 | ' | Execute Access,All_Reference
02ab 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
02ac 4505 |E | Exit_Subprogram 0x5
02ad e217 | | Load 0x1,0x17
02ae 0257 | W | Execute Discrete,Raise
02af 8405 | | Call 0x2,0x5
02b0 00db | | Load_Top At_Offset_3
02b1 e213 | | Load 0x1,0x13
02b2 026f | o | Execute Discrete,Remainder
02b3 c402 | | Store 0x2,0x2
02b4 00db | | Load_Top At_Offset_3
02b5 e5ff | | Load 0x2,-0x1
02b6 0227 | ' | Execute Access,All_Reference
02b7 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
02b8 01d7 | | Execute Vector,Field_Read
02b9 00da | | Load_Top At_Offset_2
02ba 0227 | ' | Execute Access,All_Reference
02bb 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
02bc 00d9 | | Load_Top At_Offset_1
02bd e402 | | Load 0x2,0x2
02be e5ff | | Load 0x2,-0x1
02bf 0227 | ' | Execute Access,All_Reference
02c0 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
02c1 01d6 | | Execute Vector,Field_Write
02c2 e5ff | | Load 0x2,-0x1
02c3 0227 | ' | Execute Access,All_Reference
02c4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02c5 0a01 | | Execute_Immediate Plus,0x1
02c6 e5ff | | Load 0x2,-0x1
02c7 0227 | ' | Execute Access,All_Reference
02c8 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
02c9 e214 | | Load 0x1,0x14
02ca 703c |p< | Jump_Nonzero 0x307
02cb 00cf | | Action Mark_Auxiliary
02cc 00da | | Load_Top At_Offset_2
02cd 0227 | ' | Execute Access,All_Reference
02ce 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
02cf 0227 | ' | Execute Access,All_Reference
02d0 01d9 | | Execute Vector,Reverse_Bounds
02d1 0263 | c | Execute Discrete,Above_Bound
02d2 7033 |p3 | Jump_Nonzero 0x306
02d3 00d8 | | Load_Top At_Offset_0
02d4 e404 | | Load 0x2,0x4
02d5 0227 | ' | Execute Access,All_Reference
02d6 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
02d7 0227 | ' | Execute Access,All_Reference
02d8 01d7 | | Execute Vector,Field_Read
02d9 4861 |Ha | Short_Literal 0x61
02da e20e | | Load 0x1,0xe
02db 1c05 | | Execute_Immediate Run_Utility,0x5
02dc 00d8 | | Load_Top At_Offset_0
02dd e20e | | Load 0x1,0xe
02de 0122 | " | Execute Any,Make_Root_Type
02df 0260 | ` | Execute Discrete,In_Type
02e0 7001 |p | Jump_Nonzero 0x2e2
02e1 0801 | | Execute_Immediate Raise,0x1
02e2 487a |Hz | Short_Literal 0x7a
02e3 e20e | | Load 0x1,0xe
02e4 1c05 | | Execute_Immediate Run_Utility,0x5
02e5 00d8 | | Load_Top At_Offset_0
02e6 e20e | | Load 0x1,0xe
02e7 0122 | " | Execute Any,Make_Root_Type
02e8 0260 | ` | Execute Discrete,In_Type
02e9 7001 |p | Jump_Nonzero 0x2eb
02ea 0801 | | Execute_Immediate Raise,0x1
02eb 0262 | b | Execute Discrete,In_Range
02ec 6817 |h | Jump_Zero 0x304
02ed 00d8 | | Load_Top At_Offset_0
02ee e404 | | Load 0x2,0x4
02ef 0227 | ' | Execute Access,All_Reference
02f0 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
02f1 0227 | ' | Execute Access,All_Reference
02f2 01d7 | | Execute Vector,Field_Read
02f3 e20e | | Load 0x1,0xe
02f4 1c04 | | Execute_Immediate Run_Utility,0x4
02f5 0ae0 | | Execute_Immediate Plus,-0x20
02f6 e20e | | Load 0x1,0xe
02f7 1c05 | | Execute_Immediate Run_Utility,0x5
02f8 00d8 | | Load_Top At_Offset_0
02f9 e20e | | Load 0x1,0xe
02fa 0122 | " | Execute Any,Make_Root_Type
02fb 0260 | ` | Execute Discrete,In_Type
02fc 7001 |p | Jump_Nonzero 0x2fe
02fd 0801 | | Execute_Immediate Raise,0x1
02fe 00d9 | | Load_Top At_Offset_1
02ff e404 | | Load 0x2,0x4
0300 0227 | ' | Execute Access,All_Reference
0301 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0302 0227 | ' | Execute Access,All_Reference
0303 01d6 | | Execute Vector,Field_Write
0304 00c8 | | Action Pop_Auxiliary_Range
0305 3fcd |? | Loop_Increasing 0x2d3
0306 00ce | | Action Pop_Auxiliary
0307 4505 |E | Exit_Subprogram 0x5
0308 ; --------------------------------------------------------------------------------------
0308 ; SUBPROGRAM
0308 ; --------------------------------------------------------------------------------------
0308 031c | | .CONST 0x031c ; Address of begin
0309 0004 | | .CONST 0x0004 ; Address of exception handler
030a 0005 | | .CONST 0x0005 ; Number of locals
030b INIT_0308:
030b 00db | | Load_Top At_Offset_3
030c 8242 | B | Call 0x1,0x42
030d e003 | | Load 0x0,0x3
030e 03f1 | | Declare_Variable Discrete,With_Value
030f 00d8 | | Load_Top At_Offset_0
0310 e213 | | Load 0x1,0x13
0311 026f | o | Execute Discrete,Remainder
0312 e003 | | Load 0x0,0x3
0313 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
0314 e22f | / | Load 0x1,0x2f
0315 0007 | | Action Break_Optional
0316 00d9 | | Load_Top At_Offset_1
0317 e5ff | | Load 0x2,-0x1
0318 0227 | ' | Execute Access,All_Reference
0319 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
031a 01d7 | | Execute Vector,Field_Read
031b 0007 | | Action Break_Optional
031c BODY_0308:
031c 00d8 | | Load_Top At_Offset_0
031d e22f | / | Load 0x1,0x2f
031e e5fe | | Load 0x2,-0x2
031f e402 | | Load 0x2,0x2
0320 8244 | D | Call 0x1,0x44
0321 003b | ; | Store_Top Access,At_Offset_3
0322 0039 | 9 | Store_Top Access,At_Offset_1
0323 00d8 | | Load_Top At_Offset_0
0324 682c |h, | Jump_Zero 0x351
0325 00d9 | | Load_Top At_Offset_1
0326 7009 |p | Jump_Nonzero 0x330
0327 00d8 | | Load_Top At_Offset_0
0328 0227 | ' | Execute Access,All_Reference
0329 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
032a 00db | | Load_Top At_Offset_3
032b e5ff | | Load 0x2,-0x1
032c 0227 | ' | Execute Access,All_Reference
032d 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
032e 01d6 | | Execute Vector,Field_Write
032f 7806 |x | Jump 0x336
0330 00d8 | | Load_Top At_Offset_0
0331 0227 | ' | Execute Access,All_Reference
0332 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0333 00da | | Load_Top At_Offset_2
0334 0227 | ' | Execute Access,All_Reference
0335 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0336 00d8 | | Load_Top At_Offset_0
0337 0229 | ) | Execute Access,All_Read
0338 00d8 | | Load_Top At_Offset_0
0339 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
033a e234 | 4 | Load 0x1,0x34
033b 0226 | & | Execute Access,Convert
033c e233 | 3 | Load 0x1,0x33
033d e234 | 4 | Load 0x1,0x34
033e 1d35 | 5 | Execute_Immediate Reference_Lex_1,0x35
033f 8004 | | Call 0x0,0x4
0340 00d9 | | Load_Top At_Offset_1
0341 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0342 00d1 | | Pop_Control Pop_Count_1
0343 00d8 | | Load_Top At_Offset_0
0344 e238 | 8 | Load 0x1,0x38
0345 e239 | 9 | Load 0x1,0x39
0346 1d3a | : | Execute_Immediate Reference_Lex_1,0x3a
0347 8004 | | Call 0x0,0x4
0348 0039 | 9 | Store_Top Access,At_Offset_1
0349 e5ff | | Load 0x2,-0x1
034a 0227 | ' | Execute Access,All_Reference
034b 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
034c 0aff | | Execute_Immediate Plus,-0x1
034d e5ff | | Load 0x2,-0x1
034e 0227 | ' | Execute Access,All_Reference
034f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0350 4504 |E | Exit_Subprogram 0x4
0351 e5fd | | Load 0x2,-0x3
0352 6801 |h | Jump_Zero 0x354
0353 4504 |E | Exit_Subprogram 0x4
0354 e218 | | Load 0x1,0x18
0355 0257 | W | Execute Discrete,Raise
0356 0000 0000 | | .XXX[0x2]
0358 ; --------------------------------------------------------------------------------------
0358 ; SUBPROGRAM
0358 ; --------------------------------------------------------------------------------------
0358 036c | l | .CONST 0x036c ; Address of begin
0359 0004 | | .CONST 0x0004 ; Address of exception handler
035a 0005 | | .CONST 0x0005 ; Number of locals
035b INIT_0358:
035b 00db | | Load_Top At_Offset_3
035c 8242 | B | Call 0x1,0x42
035d e003 | | Load 0x0,0x3
035e 03f1 | | Declare_Variable Discrete,With_Value
035f 00d8 | | Load_Top At_Offset_0
0360 e213 | | Load 0x1,0x13
0361 026f | o | Execute Discrete,Remainder
0362 e003 | | Load 0x0,0x3
0363 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
0364 e22f | / | Load 0x1,0x2f
0365 0007 | | Action Break_Optional
0366 00d9 | | Load_Top At_Offset_1
0367 e5ff | | Load 0x2,-0x1
0368 0227 | ' | Execute Access,All_Reference
0369 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
036a 01d7 | | Execute Vector,Field_Read
036b 0007 | | Action Break_Optional
036c BODY_0358:
036c 00d8 | | Load_Top At_Offset_0
036d e22f | / | Load 0x1,0x2f
036e e5fe | | Load 0x2,-0x2
036f e402 | | Load 0x2,0x2
0370 8244 | D | Call 0x1,0x44
0371 003b | ; | Store_Top Access,At_Offset_3
0372 0039 | 9 | Store_Top Access,At_Offset_1
0373 00d8 | | Load_Top At_Offset_0
0374 6832 |h2 | Jump_Zero 0x3a7
0375 00d9 | | Load_Top At_Offset_1
0376 7009 |p | Jump_Nonzero 0x380
0377 00d8 | | Load_Top At_Offset_0
0378 0227 | ' | Execute Access,All_Reference
0379 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
037a 00db | | Load_Top At_Offset_3
037b e5ff | | Load 0x2,-0x1
037c 0227 | ' | Execute Access,All_Reference
037d 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
037e 01d6 | | Execute Vector,Field_Write
037f 7806 |x | Jump 0x386
0380 00d8 | | Load_Top At_Offset_0
0381 0227 | ' | Execute Access,All_Reference
0382 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0383 00da | | Load_Top At_Offset_2
0384 0227 | ' | Execute Access,All_Reference
0385 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0386 00d8 | | Load_Top At_Offset_0
0387 0227 | ' | Execute Access,All_Reference
0388 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0389 c5fd | | Store 0x2,-0x3
038a 00d8 | | Load_Top At_Offset_0
038b 0229 | ) | Execute Access,All_Read
038c 00d8 | | Load_Top At_Offset_0
038d 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
038e e234 | 4 | Load 0x1,0x34
038f 0226 | & | Execute Access,Convert
0390 e233 | 3 | Load 0x1,0x33
0391 e234 | 4 | Load 0x1,0x34
0392 1d35 | 5 | Execute_Immediate Reference_Lex_1,0x35
0393 8004 | | Call 0x0,0x4
0394 00d9 | | Load_Top At_Offset_1
0395 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0396 00d1 | | Pop_Control Pop_Count_1
0397 00d8 | | Load_Top At_Offset_0
0398 e238 | 8 | Load 0x1,0x38
0399 e239 | 9 | Load 0x1,0x39
039a 1d3a | : | Execute_Immediate Reference_Lex_1,0x3a
039b 8004 | | Call 0x0,0x4
039c 0039 | 9 | Store_Top Access,At_Offset_1
039d e5ff | | Load 0x2,-0x1
039e 0227 | ' | Execute Access,All_Reference
039f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
03a0 0aff | | Execute_Immediate Plus,-0x1
03a1 e5ff | | Load 0x2,-0x1
03a2 0227 | ' | Execute Access,All_Reference
03a3 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
03a4 4801 |H | Short_Literal 0x1
03a5 a5fc | | Store_Unchecked 0x2,-0x4
03a6 4503 |E | Exit_Subprogram 0x3
03a7 4800 |H | Short_Literal 0x0
03a8 a5fc | | Store_Unchecked 0x2,-0x4
03a9 4503 |E | Exit_Subprogram 0x3
03aa 0000 0000 | | .BLANK 0000[0x6]
03b0 ; --------------------------------------------------------------------------------------
03b0 ; SUBPROGRAM
03b0 ; --------------------------------------------------------------------------------------
03b0 03b3 | | .CONST 0x03b3 ; Address of begin
03b1 0004 | | .CONST 0x0004 ; Address of exception handler
03b2 0001 | | .CONST 0x0001 ; Number of locals
03b3 BODY_03b0:
03b3 INIT_03b0:
03b3 00da | | Load_Top At_Offset_2
03b4 e5fe | | Load 0x2,-0x2
03b5 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
03b6 00cf | | Action Mark_Auxiliary
03b7 e213 | | Load 0x1,0x13
03b8 0aff | | Execute_Immediate Plus,-0x1
03b9 4800 |H | Short_Literal 0x0
03ba e003 | | Load 0x0,0x3
03bb 025c | \ | Execute Discrete,?ReverseBounds_Check?
03bc 0263 | c | Execute Discrete,Above_Bound
03bd 7013 |p | Jump_Nonzero 0x3d1
03be 00d8 | | Load_Top At_Offset_0
03bf e5ff | | Load 0x2,-0x1
03c0 0227 | ' | Execute Access,All_Reference
03c1 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
03c2 01d7 | | Execute Vector,Field_Read
03c3 680b |h | Jump_Zero 0x3cf
03c4 00d8 | | Load_Top At_Offset_0
03c5 e5ff | | Load 0x2,-0x1
03c6 0227 | ' | Execute Access,All_Reference
03c7 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
03c8 01d7 | | Execute Vector,Field_Read
03c9 e5fe | | Load 0x2,-0x2
03ca 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
03cb 00d8 | | Load_Top At_Offset_0
03cc e5fe | | Load 0x2,-0x2
03cd 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
03ce 4502 |E | Exit_Subprogram 0x2
03cf 00c8 | | Action Pop_Auxiliary_Range
03d0 3fed |? | Loop_Increasing 0x3be
03d1 00ce | | Action Pop_Auxiliary
03d2 e22f | / | Load 0x1,0x2f
03d3 e5fe | | Load 0x2,-0x2
03d4 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
03d5 e213 | | Load 0x1,0x13
03d6 e5fe | | Load 0x2,-0x2
03d7 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
03d8 4502 |E | Exit_Subprogram 0x2
03d9 0000 0000 | | .BLANK 0000[0x7]
03e0 ; --------------------------------------------------------------------------------------
03e0 ; SUBPROGRAM
03e0 ; --------------------------------------------------------------------------------------
03e0 03e3 | | .CONST 0x03e3 ; Address of begin
03e1 0004 | | .CONST 0x0004 ; Address of exception handler
03e2 0001 | | .CONST 0x0001 ; Number of locals
03e3 BODY_03e0:
03e3 INIT_03e0:
03e3 00da | | Load_Top At_Offset_2
03e4 e5fd | | Load 0x2,-0x3
03e5 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
03e6 00cf | | Action Mark_Auxiliary
03e7 e213 | | Load 0x1,0x13
03e8 0aff | | Execute_Immediate Plus,-0x1
03e9 4800 |H | Short_Literal 0x0
03ea e003 | | Load 0x0,0x3
03eb 025c | \ | Execute Discrete,?ReverseBounds_Check?
03ec 0263 | c | Execute Discrete,Above_Bound
03ed 702c |p, | Jump_Nonzero 0x41a
03ee 00d8 | | Load_Top At_Offset_0
03ef e5ff | | Load 0x2,-0x1
03f0 0227 | ' | Execute Access,All_Reference
03f1 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
03f2 01d7 | | Execute Vector,Field_Read
03f3 6824 |h$ | Jump_Zero 0x418
03f4 00d8 | | Load_Top At_Offset_0
03f5 e5fd | | Load 0x2,-0x3
03f6 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
03f7 0227 | ' | Execute Access,All_Reference
03f8 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
03f9 01d7 | | Execute Vector,Field_Read
03fa e5fd | | Load 0x2,-0x3
03fb 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
03fc 00cf | | Action Mark_Auxiliary
03fd 0007 | | Action Break_Optional
03fe e5fd | | Load 0x2,-0x3
03ff 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0400 0227 | ' | Execute Access,All_Reference
0401 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0402 e5fe | | Load 0x2,-0x2
0403 012f | / | Execute Any,Equal
0404 6804 |h | Jump_Zero 0x409
0405 00d9 | | Load_Top At_Offset_1
0406 e5fd | | Load 0x2,-0x3
0407 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0408 4503 |E | Exit_Subprogram 0x3
0409 e5fd | | Load 0x2,-0x3
040a 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
040b 0227 | ' | Execute Access,All_Reference
040c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
040d 7001 |p | Jump_Nonzero 0x40f
040e 7808 |x | Jump 0x417
040f e5fd | | Load 0x2,-0x3
0410 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0411 0227 | ' | Execute Access,All_Reference
0412 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0413 e5fd | | Load 0x2,-0x3
0414 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0415 00c9 | | Action Pop_Auxiliary_Loop
0416 7fe7 | | Jump 0x3fe
0417 00ce | | Action Pop_Auxiliary
0418 00c8 | | Action Pop_Auxiliary_Range
0419 3fd4 |? | Loop_Increasing 0x3ee
041a 00ce | | Action Pop_Auxiliary
041b e22f | / | Load 0x1,0x2f
041c e5fd | | Load 0x2,-0x3
041d 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
041e e213 | | Load 0x1,0x13
041f e5fd | | Load 0x2,-0x3
0420 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0421 4503 |E | Exit_Subprogram 0x3
0422 0000 0000 | | .BLANK 0000[0x6]
0428 ; --------------------------------------------------------------------------------------
0428 ; SUBPROGRAM
0428 ; --------------------------------------------------------------------------------------
0428 042b | + | .CONST 0x042b ; Address of begin
0429 0004 | | .CONST 0x0004 ; Address of exception handler
042a 0001 | | .CONST 0x0001 ; Number of locals
042b BODY_0428:
042b INIT_0428:
042b 00da | | Load_Top At_Offset_2
042c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
042d 6802 |h | Jump_Zero 0x430
042e 4800 |H | Short_Literal 0x0
042f 4401 |D | Exit_Subprogram With_Result,0x1
0430 4801 |H | Short_Literal 0x1
0431 4401 |D | Exit_Subprogram With_Result,0x1
0432 0000 0000 | | .BLANK 0000[0x6]
0438 ; --------------------------------------------------------------------------------------
0438 ; SUBPROGRAM
0438 ; --------------------------------------------------------------------------------------
0438 043b | ; | .CONST 0x043b ; Address of begin
0439 0004 | | .CONST 0x0004 ; Address of exception handler
043a 0001 | | .CONST 0x0001 ; Number of locals
043b BODY_0438:
043b INIT_0438:
043b 00da | | Load_Top At_Offset_2
043c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
043d 7002 |p | Jump_Nonzero 0x440
043e e218 | | Load 0x1,0x18
043f 0257 | W | Execute Discrete,Raise
0440 00da | | Load_Top At_Offset_2
0441 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0442 0227 | ' | Execute Access,All_Reference
0443 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0444 00d8 | | Load_Top At_Offset_0
0445 0120 | | Execute Any,Is_Value
0446 7002 |p | Jump_Nonzero 0x449
0447 00d8 | | Load_Top At_Offset_0
0448 011e | | Execute Any,Convert
0449 e212 | | Load 0x1,0x12
044a 0119 | | Execute Any,Check_In_Formal_Type
044b 4401 |D | Exit_Subprogram With_Result,0x1
044c 0000 0000 | | .BLANK 0000[0x4]
0450 ; --------------------------------------------------------------------------------------
0450 ; SUBPROGRAM
0450 ; --------------------------------------------------------------------------------------
0450 0453 | S | .CONST 0x0453 ; Address of begin
0451 0004 | | .CONST 0x0004 ; Address of exception handler
0452 0001 | | .CONST 0x0001 ; Number of locals
0453 BODY_0450:
0453 INIT_0450:
0453 00da | | Load_Top At_Offset_2
0454 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0455 7002 |p | Jump_Nonzero 0x458
0456 e218 | | Load 0x1,0x18
0457 0257 | W | Execute Discrete,Raise
0458 00da | | Load_Top At_Offset_2
0459 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
045a 0227 | ' | Execute Access,All_Reference
045b 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
045c 0227 | ' | Execute Access,All_Reference
045d 0335 | 5 | Declare_Variable Array,Duplicate
045e 00cd | | Action Spare6_Action
045f 4401 |D | Exit_Subprogram With_Result,0x1
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 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0465 7002 |p | Jump_Nonzero 0x468
0466 e218 | | Load 0x1,0x18
0467 0257 | W | Execute Discrete,Raise
0468 00da | | Load_Top At_Offset_2
0469 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
046a 0227 | ' | Execute Access,All_Reference
046b 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
046c e211 | | Load 0x1,0x11
046d 0223 | # | Execute Access,Check_In_Type
046e 4401 |D | Exit_Subprogram With_Result,0x1
046f 0000 | | .XXX[0x1]
0470 ; --------------------------------------------------------------------------------------
0470 ; SUBPROGRAM
0470 ; --------------------------------------------------------------------------------------
0470 0473 | s | .CONST 0x0473 ; Address of begin
0471 0004 | | .CONST 0x0004 ; Address of exception handler
0472 0001 | | .CONST 0x0001 ; Number of locals
0473 BODY_0470:
0473 INIT_0470:
0473 00da | | Load_Top At_Offset_2
0474 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0475 7002 |p | Jump_Nonzero 0x478
0476 e218 | | Load 0x1,0x18
0477 0257 | W | Execute Discrete,Raise
0478 00da | | Load_Top At_Offset_2
0479 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
047a 0227 | ' | Execute Access,All_Reference
047b 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
047c 6807 |h | Jump_Zero 0x484
047d 00da | | Load_Top At_Offset_2
047e 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
047f 0227 | ' | Execute Access,All_Reference
0480 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0481 00db | | Load_Top At_Offset_3
0482 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0483 4501 |E | Exit_Subprogram 0x1
0484 00cf | | Action Mark_Auxiliary
0485 e213 | | Load 0x1,0x13
0486 0aff | | Execute_Immediate Plus,-0x1
0487 e5ff | | Load 0x2,-0x1
0488 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0489 0a01 | | Execute_Immediate Plus,0x1
048a 0263 | c | Execute Discrete,Above_Bound
048b 7015 |p | Jump_Nonzero 0x4a1
048c 00d8 | | Load_Top At_Offset_0
048d e5ff | | Load 0x2,-0x1
048e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
048f 0227 | ' | Execute Access,All_Reference
0490 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0491 01d7 | | Execute Vector,Field_Read
0492 680c |h | Jump_Zero 0x49f
0493 00d8 | | Load_Top At_Offset_0
0494 e5ff | | Load 0x2,-0x1
0495 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0496 0227 | ' | Execute Access,All_Reference
0497 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0498 01d7 | | Execute Vector,Field_Read
0499 e5ff | | Load 0x2,-0x1
049a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
049b 00d8 | | Load_Top At_Offset_0
049c e5ff | | Load 0x2,-0x1
049d 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
049e 4501 |E | Exit_Subprogram 0x1
049f 00c8 | | Action Pop_Auxiliary_Range
04a0 3feb |? | Loop_Increasing 0x48c
04a1 00ce | | Action Pop_Auxiliary
04a2 e22f | / | Load 0x1,0x2f
04a3 00db | | Load_Top At_Offset_3
04a4 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
04a5 4501 |E | Exit_Subprogram 0x1
04a6 0000 0000 | | .XXX[0x2]
04a8 ; --------------------------------------------------------------------------------------
04a8 ; SUBPROGRAM
04a8 ; --------------------------------------------------------------------------------------
04a8 04ab | | .CONST 0x04ab ; Address of begin
04a9 0004 | | .CONST 0x0004 ; Address of exception handler
04aa 0001 | | .CONST 0x0001 ; Number of locals
04ab BODY_04a8:
04ab INIT_04a8:
04ab 00db | | Load_Top At_Offset_3
04ac 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
04ad 7002 |p | Jump_Nonzero 0x4b0
04ae e218 | | Load 0x1,0x18
04af 0257 | W | Execute Discrete,Raise
04b0 00db | | Load_Top At_Offset_3
04b1 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
04b2 0227 | ' | Execute Access,All_Reference
04b3 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
04b4 6819 |h | Jump_Zero 0x4ce
04b5 00cf | | Action Mark_Auxiliary
04b6 0007 | | Action Break_Optional
04b7 e5fe | | Load 0x2,-0x2
04b8 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
04b9 0227 | ' | Execute Access,All_Reference
04ba 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
04bb e5fe | | Load 0x2,-0x2
04bc 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
04bd e5fe | | Load 0x2,-0x2
04be 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
04bf 0227 | ' | Execute Access,All_Reference
04c0 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
04c1 e5ff | | Load 0x2,-0x1
04c2 012f | / | Execute Any,Equal
04c3 6801 |h | Jump_Zero 0x4c5
04c4 4502 |E | Exit_Subprogram 0x2
04c5 e5fe | | Load 0x2,-0x2
04c6 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
04c7 0227 | ' | Execute Access,All_Reference
04c8 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
04c9 7001 |p | Jump_Nonzero 0x4cb
04ca 7802 |x | Jump 0x4cd
04cb 00c9 | | Action Pop_Auxiliary_Loop
04cc 7fea | | Jump 0x4b7
04cd 00ce | | Action Pop_Auxiliary
04ce 00cf | | Action Mark_Auxiliary
04cf e213 | | Load 0x1,0x13
04d0 0aff | | Execute_Immediate Plus,-0x1
04d1 e5fe | | Load 0x2,-0x2
04d2 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
04d3 0a01 | | Execute_Immediate Plus,0x1
04d4 0263 | c | Execute Discrete,Above_Bound
04d5 702d |p- | Jump_Nonzero 0x503
04d6 00d8 | | Load_Top At_Offset_0
04d7 e5fe | | Load 0x2,-0x2
04d8 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
04d9 0227 | ' | Execute Access,All_Reference
04da 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
04db 01d7 | | Execute Vector,Field_Read
04dc 6824 |h$ | Jump_Zero 0x501
04dd 00d8 | | Load_Top At_Offset_0
04de e5fe | | Load 0x2,-0x2
04df 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
04e0 0227 | ' | Execute Access,All_Reference
04e1 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
04e2 01d7 | | Execute Vector,Field_Read
04e3 e5fe | | Load 0x2,-0x2
04e4 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
04e5 00cf | | Action Mark_Auxiliary
04e6 0007 | | Action Break_Optional
04e7 e5fe | | Load 0x2,-0x2
04e8 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
04e9 0227 | ' | Execute Access,All_Reference
04ea 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
04eb e5ff | | Load 0x2,-0x1
04ec 012f | / | Execute Any,Equal
04ed 6804 |h | Jump_Zero 0x4f2
04ee 00d9 | | Load_Top At_Offset_1
04ef e5fe | | Load 0x2,-0x2
04f0 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
04f1 4502 |E | Exit_Subprogram 0x2
04f2 e5fe | | Load 0x2,-0x2
04f3 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
04f4 0227 | ' | Execute Access,All_Reference
04f5 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
04f6 7001 |p | Jump_Nonzero 0x4f8
04f7 7808 |x | Jump 0x500
04f8 e5fe | | Load 0x2,-0x2
04f9 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
04fa 0227 | ' | Execute Access,All_Reference
04fb 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
04fc e5fe | | Load 0x2,-0x2
04fd 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
04fe 00c9 | | Action Pop_Auxiliary_Loop
04ff 7fe7 | | Jump 0x4e7
0500 00ce | | Action Pop_Auxiliary
0501 00c8 | | Action Pop_Auxiliary_Range
0502 3fd3 |? | Loop_Increasing 0x4d6
0503 00ce | | Action Pop_Auxiliary
0504 e22f | / | Load 0x1,0x2f
0505 e5fe | | Load 0x2,-0x2
0506 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0507 4502 |E | Exit_Subprogram 0x2
0508 ; --------------------------------------------------------------------------------------
0508 ; SUBPROGRAM
0508 ; --------------------------------------------------------------------------------------
0508 050b | | .CONST 0x050b ; Address of begin
0509 0004 | | .CONST 0x0004 ; Address of exception handler
050a 0001 | | .CONST 0x0001 ; Number of locals
050b BODY_0508:
050b INIT_0508:
050b 4601 |F | Jump_Case 0x1
050c 7801 |x | Jump 0x50e ; case 0x0
050d 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x1
050e 4800 |H | Short_Literal 0x0
050f 00db | | Load_Top At_Offset_3
0510 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0511 00da | | Load_Top At_Offset_2
0512 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0513 0125 | % | Execute Any,Set_Constraint
0514 00da | | Load_Top At_Offset_2
0515 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0516 1c00 | | Execute_Immediate Run_Utility,0x0
0517 4302 |C | Exit_Subprogram From_Utility,0x2
0518 ; --------------------------------------------------------------------------------------
0518 ; SUBPROGRAM
0518 ; --------------------------------------------------------------------------------------
0518 051b | | .CONST 0x051b ; Address of begin
0519 0004 | | .CONST 0x0004 ; Address of exception handler
051a 0001 | | .CONST 0x0001 ; Number of locals
051b BODY_0518:
051b INIT_0518:
051b 4601 |F | Jump_Case 0x1
051c 7801 |x | Jump 0x51e ; case 0x0
051d 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x1
051e 4800 |H | Short_Literal 0x0
051f 00db | | Load_Top At_Offset_3
0520 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0521 e22d | - | Load 0x1,0x2d
0522 3001 |0 | Execute Record,Field_Type,Field_Number 0x1
0523 0337 | 7 | Declare_Variable Array
0524 e22d | - | Load 0x1,0x2d
0525 3001 |0 | Execute Record,Field_Type,Field_Number 0x1
0526 01d9 | | Execute Vector,Reverse_Bounds
0527 0263 | c | Execute Discrete,Above_Bound
0528 7005 |p | Jump_Nonzero 0x52e
0529 e22f | / | Load 0x1,0x2f
052a 00d9 | | Load_Top At_Offset_1
052b e402 | | Load 0x2,0x2
052c 01d6 | | Execute Vector,Field_Write
052d 3ffb |? | Loop_Increasing 0x529
052e 00db | | Load_Top At_Offset_3
052f 00d9 | | Load_Top At_Offset_1
0530 00d9 | | Load_Top At_Offset_1
0531 3001 |0 | Execute Record,Field_Type,Field_Number 0x1
0532 0119 | | Execute Any,Check_In_Formal_Type
0533 00d1 | | Pop_Control Pop_Count_1
0534 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0535 4302 |C | Exit_Subprogram From_Utility,0x2
0536 0000 0000 | | .XXX[0x2]
0538 ; --------------------------------------------------------------------------------------
0538 ; SUBPROGRAM
0538 ; --------------------------------------------------------------------------------------
0538 054e | N | .CONST 0x054e ; Address of begin
0539 0004 | | .CONST 0x0004 ; Address of exception handler
053a 0003 | | .CONST 0x0003 ; Number of locals
053b INIT_0538:
053b 00da | | Load_Top At_Offset_2
053c 01dd | | Execute Vector,First
053d 00d8 | | Load_Top At_Offset_0
053e e003 | | Load 0x0,0x3
053f 0260 | ` | Execute Discrete,In_Type
0540 7001 |p | Jump_Nonzero 0x542
0541 0801 | | Execute_Immediate Raise,0x1
0542 00db | | Load_Top At_Offset_3
0543 01dc | | Execute Vector,Last
0544 00d8 | | Load_Top At_Offset_0
0545 e003 | | Load 0x0,0x3
0546 0260 | ` | Execute Discrete,In_Type
0547 7001 |p | Jump_Nonzero 0x549
0548 0801 | | Execute_Immediate Raise,0x1
0549 e00b | | Load 0x0,0xb
054a 035b | [ | Declare_Type Array,Constrained
054b 0337 | 7 | Declare_Variable Array
054c 029f 06e3 | | Declare_Subprogram For_Call,INIT_06e0
054e BODY_0538:
054e e214 | | Load 0x1,0x14
054f 6816 |h | Jump_Zero 0x566
0550 00cf | | Action Mark_Auxiliary
0551 e5ff | | Load 0x2,-0x1
0552 01d9 | | Execute Vector,Reverse_Bounds
0553 0263 | c | Execute Discrete,Above_Bound
0554 700f |p | Jump_Nonzero 0x564
0555 00d8 | | Load_Top At_Offset_0
0556 e5ff | | Load 0x2,-0x1
0557 01d7 | | Execute Vector,Field_Read
0558 e20e | | Load 0x1,0xe
0559 1c04 | | Execute_Immediate Run_Utility,0x4
055a 00d9 | | Load_Top At_Offset_1
055b 00d8 | | Load_Top At_Offset_0
055c e002 | | Load 0x0,0x2
055d 0260 | ` | Execute Discrete,In_Type
055e 7001 |p | Jump_Nonzero 0x560
055f 0801 | | Execute_Immediate Raise,0x1
0560 e402 | | Load 0x2,0x2
0561 01d6 | | Execute Vector,Field_Write
0562 00c8 | | Action Pop_Auxiliary_Range
0563 3ff1 |? | Loop_Increasing 0x555
0564 00ce | | Action Pop_Auxiliary
0565 783b |x; | Jump 0x5a1
0566 00cf | | Action Mark_Auxiliary
0567 e5ff | | Load 0x2,-0x1
0568 01d9 | | Execute Vector,Reverse_Bounds
0569 0263 | c | Execute Discrete,Above_Bound
056a 7035 |p5 | Jump_Nonzero 0x5a0
056b 00d8 | | Load_Top At_Offset_0
056c e5ff | | Load 0x2,-0x1
056d 01d7 | | Execute Vector,Field_Read
056e 4861 |Ha | Short_Literal 0x61
056f e20e | | Load 0x1,0xe
0570 1c05 | | Execute_Immediate Run_Utility,0x5
0571 00d8 | | Load_Top At_Offset_0
0572 e20e | | Load 0x1,0xe
0573 0122 | " | Execute Any,Make_Root_Type
0574 0260 | ` | Execute Discrete,In_Type
0575 7001 |p | Jump_Nonzero 0x577
0576 0801 | | Execute_Immediate Raise,0x1
0577 487a |Hz | Short_Literal 0x7a
0578 e20e | | Load 0x1,0xe
0579 1c05 | | Execute_Immediate Run_Utility,0x5
057a 00d8 | | Load_Top At_Offset_0
057b e20e | | Load 0x1,0xe
057c 0122 | " | Execute Any,Make_Root_Type
057d 0260 | ` | Execute Discrete,In_Type
057e 7001 |p | Jump_Nonzero 0x580
057f 0801 | | Execute_Immediate Raise,0x1
0580 0262 | b | Execute Discrete,In_Range
0581 680f |h | Jump_Zero 0x591
0582 00d8 | | Load_Top At_Offset_0
0583 e5ff | | Load 0x2,-0x1
0584 01d7 | | Execute Vector,Field_Read
0585 e20e | | Load 0x1,0xe
0586 1c04 | | Execute_Immediate Run_Utility,0x4
0587 0ae0 | | Execute_Immediate Plus,-0x20
0588 00d9 | | Load_Top At_Offset_1
0589 00d8 | | Load_Top At_Offset_0
058a e002 | | Load 0x0,0x2
058b 0260 | ` | Execute Discrete,In_Type
058c 7001 |p | Jump_Nonzero 0x58e
058d 0801 | | Execute_Immediate Raise,0x1
058e e402 | | Load 0x2,0x2
058f 01d6 | | Execute Vector,Field_Write
0590 780d |x | Jump 0x59e
0591 00d8 | | Load_Top At_Offset_0
0592 e5ff | | Load 0x2,-0x1
0593 01d7 | | Execute Vector,Field_Read
0594 e20e | | Load 0x1,0xe
0595 1c04 | | Execute_Immediate Run_Utility,0x4
0596 00d9 | | Load_Top At_Offset_1
0597 00d8 | | Load_Top At_Offset_0
0598 e002 | | Load 0x0,0x2
0599 0260 | ` | Execute Discrete,In_Type
059a 7001 |p | Jump_Nonzero 0x59c
059b 0801 | | Execute_Immediate Raise,0x1
059c e402 | | Load 0x2,0x2
059d 01d6 | | Execute Vector,Field_Write
059e 00c8 | | Action Pop_Auxiliary_Range
059f 3fcb |? | Loop_Increasing 0x56b
05a0 00ce | | Action Pop_Auxiliary
05a1 e5ff | | Load 0x2,-0x1
05a2 01db | | Execute Vector,Length
05a3 00d8 | | Load_Top At_Offset_0
05a4 4800 |H | Short_Literal 0x0
05a5 4804 |H | Short_Literal 0x4
05a6 0262 | b | Execute Discrete,In_Range
05a7 6857 |hW | Jump_Zero 0x5ff
05a8 0b00 | | Execute_Immediate Case_Compare,0x0
05a9 7024 |p$ | Jump_Nonzero 0x5ce
05aa 0b01 | | Execute_Immediate Case_Compare,0x1
05ab 7025 |p% | Jump_Nonzero 0x5d1
05ac 0b02 | | Execute_Immediate Case_Compare,0x2
05ad 7029 |p) | Jump_Nonzero 0x5d7
05ae 0f03 | | Execute_Immediate Equal,0x3
05af 7038 |p8 | Jump_Nonzero 0x5e8
05b0 00d9 | | Load_Top At_Offset_1
05b1 01dd | | Execute Vector,First
05b2 00da | | Load_Top At_Offset_2
05b3 01d7 | | Execute Vector,Field_Read
05b4 0915 | | Execute_Immediate Binary_Scale,0x15
05b5 00da | | Load_Top At_Offset_2
05b6 01dd | | Execute Vector,First
05b7 0a01 | | Execute_Immediate Plus,0x1
05b8 00db | | Load_Top At_Offset_3
05b9 01d7 | | Execute Vector,Field_Read
05ba 090e | | Execute_Immediate Binary_Scale,0xe
05bb 0273 | s | Execute Discrete,Plus
05bc 00da | | Load_Top At_Offset_2
05bd 01dd | | Execute Vector,First
05be 0a02 | | Execute_Immediate Plus,0x2
05bf 00db | | Load_Top At_Offset_3
05c0 01d7 | | Execute Vector,Field_Read
05c1 0907 | | Execute_Immediate Binary_Scale,0x7
05c2 0273 | s | Execute Discrete,Plus
05c3 00da | | Load_Top At_Offset_2
05c4 01dc | | Execute Vector,Last
05c5 00db | | Load_Top At_Offset_3
05c6 01d7 | | Execute Vector,Field_Read
05c7 0273 | s | Execute Discrete,Plus
05c8 00d8 | | Load_Top At_Offset_0
05c9 e003 | | Load 0x0,0x3
05ca 0260 | ` | Execute Discrete,In_Type
05cb 7001 |p | Jump_Nonzero 0x5cd
05cc 0801 | | Execute_Immediate Raise,0x1
05cd 4401 |D | Exit_Subprogram With_Result,0x1
05ce 00d1 | | Pop_Control Pop_Count_1
05cf 4800 |H | Short_Literal 0x0
05d0 4401 |D | Exit_Subprogram With_Result,0x1
05d1 00d1 | | Pop_Control Pop_Count_1
05d2 00d9 | | Load_Top At_Offset_1
05d3 01dd | | Execute Vector,First
05d4 00da | | Load_Top At_Offset_2
05d5 01d7 | | Execute Vector,Field_Read
05d6 4401 |D | Exit_Subprogram With_Result,0x1
05d7 00d1 | | Pop_Control Pop_Count_1
05d8 00d9 | | Load_Top At_Offset_1
05d9 01dd | | Execute Vector,First
05da 00da | | Load_Top At_Offset_2
05db 01d7 | | Execute Vector,Field_Read
05dc 0907 | | Execute_Immediate Binary_Scale,0x7
05dd 00da | | Load_Top At_Offset_2
05de 01dc | | Execute Vector,Last
05df 00db | | Load_Top At_Offset_3
05e0 01d7 | | Execute Vector,Field_Read
05e1 0273 | s | Execute Discrete,Plus
05e2 00d8 | | Load_Top At_Offset_0
05e3 e003 | | Load 0x0,0x3
05e4 0260 | ` | Execute Discrete,In_Type
05e5 7001 |p | Jump_Nonzero 0x5e7
05e6 0801 | | Execute_Immediate Raise,0x1
05e7 4401 |D | Exit_Subprogram With_Result,0x1
05e8 00d9 | | Load_Top At_Offset_1
05e9 01dd | | Execute Vector,First
05ea 00da | | Load_Top At_Offset_2
05eb 01d7 | | Execute Vector,Field_Read
05ec 090e | | Execute_Immediate Binary_Scale,0xe
05ed 00da | | Load_Top At_Offset_2
05ee 01dd | | Execute Vector,First
05ef 0a01 | | Execute_Immediate Plus,0x1
05f0 00db | | Load_Top At_Offset_3
05f1 01d7 | | Execute Vector,Field_Read
05f2 0907 | | Execute_Immediate Binary_Scale,0x7
05f3 0273 | s | Execute Discrete,Plus
05f4 00da | | Load_Top At_Offset_2
05f5 01dc | | Execute Vector,Last
05f6 00db | | Load_Top At_Offset_3
05f7 01d7 | | Execute Vector,Field_Read
05f8 0273 | s | Execute Discrete,Plus
05f9 00d8 | | Load_Top At_Offset_0
05fa e003 | | Load 0x0,0x3
05fb 0260 | ` | Execute Discrete,In_Type
05fc 7001 |p | Jump_Nonzero 0x5fe
05fd 0801 | | Execute_Immediate Raise,0x1
05fe 4401 |D | Exit_Subprogram With_Result,0x1
05ff 00d1 | | Pop_Control Pop_Count_1
0600 8403 | | Call 0x2,0x3
0601 0831 | 1 | Execute_Immediate Raise,0x31
0602 0000 0000 | | .BLANK 0000[0x6]
0608 ; --------------------------------------------------------------------------------------
0608 ; SUBPROGRAM
0608 ; --------------------------------------------------------------------------------------
0608 0613 | | .CONST 0x0613 ; Address of begin
0609 0004 | | .CONST 0x0004 ; Address of exception handler
060a 0003 | | .CONST 0x0003 ; Number of locals
060b INIT_0608:
060b 00da | | Load_Top At_Offset_2
060c 01dd | | Execute Vector,First
060d e20f | | Load 0x1,0xf
060e 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
060f e5fe | | Load 0x2,-0x2
0610 01dd | | Execute Vector,First
0611 e20f | | Load 0x1,0xf
0612 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
0613 BODY_0608:
0613 e5ff | | Load 0x2,-0x1
0614 01db | | Execute Vector,Length
0615 e5fe | | Load 0x2,-0x2
0616 01db | | Execute Vector,Length
0617 027e | ~ | Execute Discrete,Not_Equal
0618 6802 |h | Jump_Zero 0x61b
0619 4800 |H | Short_Literal 0x0
061a 4402 |D | Exit_Subprogram With_Result,0x2
061b 00cf | | Action Mark_Auxiliary
061c e5ff | | Load 0x2,-0x1
061d 01db | | Execute Vector,Length
061e e20f | | Load 0x1,0xf
061f 0122 | " | Execute Any,Make_Root_Type
0620 00d9 | | Load_Top At_Offset_1
0621 00d0 | | Action Swap_Control
0622 0260 | ` | Execute Discrete,In_Type
0623 7001 |p | Jump_Nonzero 0x625
0624 0801 | | Execute_Immediate Raise,0x1
0625 4801 |H | Short_Literal 0x1
0626 e20f | | Load 0x1,0xf
0627 025c | \ | Execute Discrete,?ReverseBounds_Check?
0628 0263 | c | Execute Discrete,Above_Bound
0629 7045 |pE | Jump_Nonzero 0x66f
062a e402 | | Load 0x2,0x2
062b 00d9 | | Load_Top At_Offset_1
062c 0273 | s | Execute Discrete,Plus
062d 0aff | | Execute_Immediate Plus,-0x1
062e e5ff | | Load 0x2,-0x1
062f 01d7 | | Execute Vector,Field_Read
0630 e403 | | Load 0x2,0x3
0631 00da | | Load_Top At_Offset_2
0632 0273 | s | Execute Discrete,Plus
0633 0aff | | Execute_Immediate Plus,-0x1
0634 e5fe | | Load 0x2,-0x2
0635 01d7 | | Execute Vector,Field_Read
0636 027e | ~ | Execute Discrete,Not_Equal
0637 6835 |h5 | Jump_Zero 0x66d
0638 e402 | | Load 0x2,0x2
0639 00d9 | | Load_Top At_Offset_1
063a 0273 | s | Execute Discrete,Plus
063b 0aff | | Execute_Immediate Plus,-0x1
063c e5ff | | Load 0x2,-0x1
063d 01d7 | | Execute Vector,Field_Read
063e 4861 |Ha | Short_Literal 0x61
063f e20e | | Load 0x1,0xe
0640 1c05 | | Execute_Immediate Run_Utility,0x5
0641 00d8 | | Load_Top At_Offset_0
0642 e20e | | Load 0x1,0xe
0643 0122 | " | Execute Any,Make_Root_Type
0644 0260 | ` | Execute Discrete,In_Type
0645 7001 |p | Jump_Nonzero 0x647
0646 0801 | | Execute_Immediate Raise,0x1
0647 487a |Hz | Short_Literal 0x7a
0648 e20e | | Load 0x1,0xe
0649 1c05 | | Execute_Immediate Run_Utility,0x5
064a 00d8 | | Load_Top At_Offset_0
064b e20e | | Load 0x1,0xe
064c 0122 | " | Execute Any,Make_Root_Type
064d 0260 | ` | Execute Discrete,In_Type
064e 7001 |p | Jump_Nonzero 0x650
064f 0801 | | Execute_Immediate Raise,0x1
0650 0261 | a | Execute Discrete,Not_In_Range
0651 7019 |p | Jump_Nonzero 0x66b
0652 e402 | | Load 0x2,0x2
0653 00d9 | | Load_Top At_Offset_1
0654 0273 | s | Execute Discrete,Plus
0655 0aff | | Execute_Immediate Plus,-0x1
0656 e5ff | | Load 0x2,-0x1
0657 01d7 | | Execute Vector,Field_Read
0658 e20e | | Load 0x1,0xe
0659 1c04 | | Execute_Immediate Run_Utility,0x4
065a 0ae0 | | Execute_Immediate Plus,-0x20
065b e20e | | Load 0x1,0xe
065c 1c05 | | Execute_Immediate Run_Utility,0x5
065d 00d8 | | Load_Top At_Offset_0
065e e20e | | Load 0x1,0xe
065f 0122 | " | Execute Any,Make_Root_Type
0660 0260 | ` | Execute Discrete,In_Type
0661 7001 |p | Jump_Nonzero 0x663
0662 0801 | | Execute_Immediate Raise,0x1
0663 e403 | | Load 0x2,0x3
0664 00da | | Load_Top At_Offset_2
0665 0273 | s | Execute Discrete,Plus
0666 0aff | | Execute_Immediate Plus,-0x1
0667 e5fe | | Load 0x2,-0x2
0668 01d7 | | Execute Vector,Field_Read
0669 027e | ~ | Execute Discrete,Not_Equal
066a 6802 |h | Jump_Zero 0x66d
066b 4800 |H | Short_Literal 0x0
066c 4402 |D | Exit_Subprogram With_Result,0x2
066d 00c8 | | Action Pop_Auxiliary_Range
066e 3fbb |? | Loop_Increasing 0x62a
066f 00ce | | Action Pop_Auxiliary
0670 4801 |H | Short_Literal 0x1
0671 4402 |D | Exit_Subprogram With_Result,0x2
0672 0000 0000 | | .BLANK 0000[0x6]
0678 ; --------------------------------------------------------------------------------------
0678 ; SUBPROGRAM
0678 ; --------------------------------------------------------------------------------------
0678 067d | } | .CONST 0x067d ; Address of begin
0679 0004 | | .CONST 0x0004 ; Address of exception handler
067a 0002 | | .CONST 0x0002 ; Number of locals
067b INIT_0678:
067b e5fc | | Load 0x2,-0x4
067c 0007 | | Action Break_Optional
067d BODY_0678:
067d e22f | / | Load 0x1,0x2f
067e a5fd | | Store_Unchecked 0x2,-0x3
067f 00cf | | Action Mark_Auxiliary
0680 7823 |x# | Jump 0x6a4
0681 00d9 | | Load_Top At_Offset_1
0682 0227 | ' | Execute Access,All_Reference
0683 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0684 e5ff | | Load 0x2,-0x1
0685 027f | | Execute Discrete,Equal
0686 6816 |h | Jump_Zero 0x69d
0687 e214 | | Load 0x1,0x14
0688 680a |h | Jump_Zero 0x693
0689 00d9 | | Load_Top At_Offset_1
068a 0227 | ' | Execute Access,All_Reference
068b 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
068c 0227 | ' | Execute Access,All_Reference
068d e5fe | | Load 0x2,-0x2
068e 01df | | Execute Vector,Equal
068f 680d |h | Jump_Zero 0x69d
0690 00d9 | | Load_Top At_Offset_1
0691 a5fc | | Store_Unchecked 0x2,-0x4
0692 4503 |E | Exit_Subprogram 0x3
0693 00d9 | | Load_Top At_Offset_1
0694 0227 | ' | Execute Access,All_Reference
0695 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0696 0227 | ' | Execute Access,All_Reference
0697 e5fe | | Load 0x2,-0x2
0698 8243 | C | Call 0x1,0x43
0699 6803 |h | Jump_Zero 0x69d
069a 00d9 | | Load_Top At_Offset_1
069b a5fc | | Store_Unchecked 0x2,-0x4
069c 4503 |E | Exit_Subprogram 0x3
069d 00d9 | | Load_Top At_Offset_1
069e a5fd | | Store_Unchecked 0x2,-0x3
069f 00d9 | | Load_Top At_Offset_1
06a0 0227 | ' | Execute Access,All_Reference
06a1 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
06a2 003a | : | Store_Top Access,At_Offset_2
06a3 00c9 | | Action Pop_Auxiliary_Loop
06a4 00d9 | | Load_Top At_Offset_1
06a5 77db |w | Jump_Nonzero 0x681
06a6 00ce | | Action Pop_Auxiliary
06a7 e22f | / | Load 0x1,0x2f
06a8 a5fc | | Store_Unchecked 0x2,-0x4
06a9 4503 |E | Exit_Subprogram 0x3
06aa 0000 0000 | | .BLANK 0000[0x6]
06b0 ; --------------------------------------------------------------------------------------
06b0 ; SUBPROGRAM
06b0 ; --------------------------------------------------------------------------------------
06b0 06b7 | | .CONST 0x06b7 ; Address of begin
06b1 0004 | | .CONST 0x0004 ; Address of exception handler
06b2 0002 | | .CONST 0x0002 ; Number of locals
06b3 INIT_06b0:
06b3 e22e | . | Load 0x1,0x2e
06b4 0322 | " | Declare_Variable Record
06b5 00d8 | | Load_Top At_Offset_0
06b6 1c00 | | Execute_Immediate Run_Utility,0x0
06b7 BODY_06b0:
06b7 e402 | | Load 0x2,0x2
06b8 00d9 | | Load_Top At_Offset_1
06b9 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
06ba e5fe | | Load 0x2,-0x2
06bb e211 | | Load 0x1,0x11
06bc 03b6 | | Declare_Variable Access,By_Allocation,With_Value
06bd 00d9 | | Load_Top At_Offset_1
06be 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
06bf e5fd | | Load 0x2,-0x3
06c0 00d9 | | Load_Top At_Offset_1
06c1 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
06c2 00d8 | | Load_Top At_Offset_0
06c3 e22f | / | Load 0x1,0x2f
06c4 03b6 | | Declare_Variable Access,By_Allocation,With_Value
06c5 a404 | | Store_Unchecked 0x2,0x4
06c6 4501 |E | Exit_Subprogram 0x1
06c7 0000 | | .XXX[0x1]
06c8 ; --------------------------------------------------------------------------------------
06c8 ; SUBPROGRAM
06c8 ; --------------------------------------------------------------------------------------
06c8 06cf | | .CONST 0x06cf ; Address of begin
06c9 0004 | | .CONST 0x0004 ; Address of exception handler
06ca 0002 | | .CONST 0x0002 ; Number of locals
06cb INIT_06c8:
06cb e22e | . | Load 0x1,0x2e
06cc 0322 | " | Declare_Variable Record
06cd 00d8 | | Load_Top At_Offset_0
06ce 1c00 | | Execute_Immediate Run_Utility,0x0
06cf BODY_06c8:
06cf e402 | | Load 0x2,0x2
06d0 00d9 | | Load_Top At_Offset_1
06d1 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
06d2 e5fe | | Load 0x2,-0x2
06d3 00d9 | | Load_Top At_Offset_1
06d4 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
06d5 e5fd | | Load 0x2,-0x3
06d6 00d9 | | Load_Top At_Offset_1
06d7 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
06d8 00d8 | | Load_Top At_Offset_0
06d9 e22f | / | Load 0x1,0x2f
06da 03b6 | | Declare_Variable Access,By_Allocation,With_Value
06db a404 | | Store_Unchecked 0x2,0x4
06dc 4501 |E | Exit_Subprogram 0x1
06dd 0000 0000 | | .XXX[0x3]
06df 0000 | |
06e0 ; --------------------------------------------------------------------------------------
06e0 ; SUBPROGRAM
06e0 ; --------------------------------------------------------------------------------------
06e0 06e9 | | .CONST 0x06e9 ; Address of begin
06e1 0004 | | .CONST 0x0004 ; Address of exception handler
06e2 0003 | | .CONST 0x0003 ; Number of locals
06e3 INIT_06e0:
06e3 e402 | | Load 0x2,0x2
06e4 01dd | | Execute Vector,First
06e5 e002 | | Load 0x0,0x2
06e6 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
06e7 e003 | | Load 0x0,0x3
06e8 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
06e9 BODY_06e0:
06e9 00cf | | Action Mark_Auxiliary
06ea 7824 |x$ | Jump 0x70f
06eb 00d9 | | Load_Top At_Offset_1
06ec 603b |`; | Indirect_Literal Discrete,0x728,{0x00000000, 0x6fffffff}
06ed 027d | } | Execute Discrete,Greater
06ee 6804 |h | Jump_Zero 0x6f3
06ef 00d9 | | Load_Top At_Offset_1
06f0 4803 |H | Short_Literal 0x3
06f1 0270 | p | Execute Discrete,Divide
06f2 005a | Z | Store_Top Discrete,At_Offset_2
06f3 00d9 | | Load_Top At_Offset_1
06f4 00db | | Load_Top At_Offset_3
06f5 e402 | | Load 0x2,0x2
06f6 01d7 | | Execute Vector,Field_Read
06f7 0915 | | Execute_Immediate Binary_Scale,0x15
06f8 0273 | s | Execute Discrete,Plus
06f9 00db | | Load_Top At_Offset_3
06fa 0a01 | | Execute_Immediate Plus,0x1
06fb e402 | | Load 0x2,0x2
06fc 01d7 | | Execute Vector,Field_Read
06fd 090e | | Execute_Immediate Binary_Scale,0xe
06fe 0273 | s | Execute Discrete,Plus
06ff 00db | | Load_Top At_Offset_3
0700 0a02 | | Execute_Immediate Plus,0x2
0701 e402 | | Load 0x2,0x2
0702 01d7 | | Execute Vector,Field_Read
0703 0907 | | Execute_Immediate Binary_Scale,0x7
0704 0273 | s | Execute Discrete,Plus
0705 00db | | Load_Top At_Offset_3
0706 0a03 | | Execute_Immediate Plus,0x3
0707 e402 | | Load 0x2,0x2
0708 01d7 | | Execute Vector,Field_Read
0709 0273 | s | Execute Discrete,Plus
070a 005a | Z | Store_Top Discrete,At_Offset_2
070b 00da | | Load_Top At_Offset_2
070c 0a04 | | Execute_Immediate Plus,0x4
070d 005b | [ | Store_Top Discrete,At_Offset_3
070e 00c9 | | Action Pop_Auxiliary_Loop
070f 00da | | Load_Top At_Offset_2
0710 0a03 | | Execute_Immediate Plus,0x3
0711 e402 | | Load 0x2,0x2
0712 01dc | | Execute Vector,Last
0713 027a | z | Execute Discrete,Less_Equal
0714 77d6 |w | Jump_Nonzero 0x6eb
0715 00c9 | | Action Pop_Auxiliary_Loop
0716 e402 | | Load 0x2,0x2
0717 01dc | | Execute Vector,Last
0718 00db | | Load_Top At_Offset_3
0719 0263 | c | Execute Discrete,Above_Bound
071a 7008 |p | Jump_Nonzero 0x723
071b 00db | | Load_Top At_Offset_3
071c 00d9 | | Load_Top At_Offset_1
071d e402 | | Load 0x2,0x2
071e 01d7 | | Execute Vector,Field_Read
071f 0273 | s | Execute Discrete,Plus
0720 c603 | | Store 0x3,0x3
0721 00c8 | | Action Pop_Auxiliary_Range
0722 3ff8 |? | Loop_Increasing 0x71b
0723 00ce | | Action Pop_Auxiliary
0724 00d8 | | Load_Top At_Offset_0
0725 00cb | | Action Pop_Block_With_Result
0726 4401 |D | Exit_Subprogram With_Result,0x1
0727 0000 | | .XXX[0x1]
0728 0000 0000 | | .LITERAL {0x00000000, 0x6fffffff}
072c 0000 0000 | | .BLANK 0000[0x4]
0730 ; --------------------------------------------------------------------------------------
0730 ; SUBPROGRAM
0730 ; --------------------------------------------------------------------------------------
0730 0733 | 3 | .CONST 0x0733 ; Address of begin
0731 0004 | | .CONST 0x0004 ; Address of exception handler
0732 0001 | | .CONST 0x0001 ; Number of locals
0733 BODY_0730:
0733 INIT_0730:
0733 4601 |F | Jump_Case 0x1
0734 7801 |x | Jump 0x736 ; case 0x0
0735 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x1
0736 4800 |H | Short_Literal 0x0
0737 00db | | Load_Top At_Offset_3
0738 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0739 4302 |C | Exit_Subprogram From_Utility,0x2
073a 0000 0000 | | .BLANK 0000[0x6]
0740 ; --------------------------------------------------------------------------------------
0740 ; Debug Table
0740 ; --------------------------------------------------------------------------------------
0740 0004 0000 | | .DEBUG4 0x0004,0x0000,0x4927,0x0000,0x0001,0x001f
0746 000b 07c2 | | .DBG4T 0x000b,0x07c2,0xc000,0x0000
074a 0072 07e7 | r | .DBG4T 0x0072,0x07e7,0xc000,0x0000
074e 00e3 0806 | | .DBG4T 0x00e3,0x0806,0x1001,0x0000
0752 00fb 0809 | | .DBG4T 0x00fb,0x0809,0x1001,0x4000
0756 0143 0823 | C #| .DBG4T 0x0143,0x0823,0x1002,0x0000
075a 014b 0826 | K &| .DBG4T 0x014b,0x0826,0x1002,0x0000
075e 0153 0829 | S )| .DBG4T 0x0153,0x0829,0x1001,0x0000
0762 017b 0834 | { 4| .DBG4T 0x017b,0x0834,0x1001,0x0000
0766 01a3 0840 | @| .DBG4T 0x01a3,0x0840,0x1001,0x0000
076a 01d3 084c | L| .DBG4T 0x01d3,0x084c,0x1002,0x0000
076e 01fb 0855 | U| .DBG4T 0x01fb,0x0855,0x1001,0x0000
0772 027b 0869 | { i| .DBG4T 0x027b,0x0869,0x1001,0x0000
0776 030b 087f | | .DBG4T 0x030b,0x087f,0x1001,0x0000
077a 035b 0891 | [ | .DBG4T 0x035b,0x0891,0x1001,0x0000
077e 03b3 08a3 | | .DBG4T 0x03b3,0x08a3,0x1001,0x0000
0782 03e3 08ad | | .DBG4T 0x03e3,0x08ad,0x1001,0x0000
0786 042b 08bc | + | .DBG4T 0x042b,0x08bc,0x1002,0x0000
078a 043b 08c1 | ; | .DBG4T 0x043b,0x08c1,0x1002,0x0000
078e 0453 08c6 | S | .DBG4T 0x0453,0x08c6,0x1002,0x0000
0792 0463 08cb | c | .DBG4T 0x0463,0x08cb,0x1002,0x0000
0796 0473 08d0 | s | .DBG4T 0x0473,0x08d0,0x1001,0x0000
079a 04ab 08dd | | .DBG4T 0x04ab,0x08dd,0x1001,0x0000
079e 050b 0000 | | .DBG4T 0x050b,0x0000,0x1005,0x0000
07a2 051b 0000 | | .DBG4T 0x051b,0x0000,0x1005,0x0000
07a6 053b 08f3 | ; | .DBG4T 0x053b,0x08f3,0x1002,0x4000
07aa 060b 0912 | | .DBG4T 0x060b,0x0912,0x1002,0x0000
07ae 067b 091d | { | .DBG4T 0x067b,0x091d,0x1001,0x4000
07b2 06b3 093a | :| .DBG4T 0x06b3,0x093a,0x1004,0x0000
07b6 06cb 0941 | A| .DBG4T 0x06cb,0x0941,0x1004,0x0000
07ba 06e3 0948 | H| .DBG4T 0x06e3,0x0948,0x1004,0x4000
07be 0733 0000 | 3 | .DBG4T 0x0733,0x0000,0x1005,0x0000
07c2 ; --------------------------------------------------------------------------------------
07c2 ; Debug chain
07c2 ; --------------------------------------------------------------------------------------
07c2 0023 0000 | # | .DBGLEN 0x0023,0x0000
07c4 000b 000c | | .DBGLNO 0x000b,0x000c,0x000d,0x000e,0x000f,0x0018,0x0021,0x0023,0x0025,0x0027,0x0029,0x002b,0x002d,0x002f,0x0031,0x0033,0x0035,0x0037,0x0039,0x003b,0x003d,0x003f,0x0041,0x0043,0x0045,0x0047,0x0049,0x004b,0x004d,0x0053,0x0059,0x005c,0x0063,0x0070,0x0071
07e7 ; --------------------------------------------------------------------------------------
07e7 ; Debug chain
07e7 ; --------------------------------------------------------------------------------------
07e7 001d 0000 | | .DBGLEN 0x001d,0x0000
07e9 0072 007e | r ~| .DBGLNO 0x0072,0x007e,0x0087,0x0091,0x0099,0x00a1,0x00a9,0x00ab,0x00ad,0x00af,0x00b1,0x00b3,0x00b5,0x00b7,0x00b9,0x00bb,0x00bd,0x00bf,0x00c1,0x00c3,0x00c5,0x00c7,0x00c9,0x00cb,0x00cd,0x00cf,0x00d1,0x00d3,0x00d5
0806 ; --------------------------------------------------------------------------------------
0806 ; Debug chain
0806 ; --------------------------------------------------------------------------------------
0806 0000 0001 | | .DBGLEN 0x0000,0x0001
0808 00e3 | | .DBGLNO 0x00e3
0809 ; --------------------------------------------------------------------------------------
0809 ; Debug chain
0809 ; --------------------------------------------------------------------------------------
0809 0002 000b | | .DBGLEN 0x0002,0x000b
080b 00fb 00fd | | .DBGLNO 0x00fb,0x00fd,0x00ff,0x0101,0x0102,0x0108,0x010e,0x0116,0x011a,0x0127,0x012d,0x0130,0x0136
0818 0001 0002 | | .XXX[0xb]
081a 0003 0004 | |
081c 0005 0007 | |
081e 0008 0009 | |
0820 000a 0006 | |
0822 000b | |
0823 ; --------------------------------------------------------------------------------------
0823 ; Debug chain
0823 ; --------------------------------------------------------------------------------------
0823 0000 0001 | | .DBGLEN 0x0000,0x0001
0825 0143 | C | .DBGLNO 0x0143
0826 ; --------------------------------------------------------------------------------------
0826 ; Debug chain
0826 ; --------------------------------------------------------------------------------------
0826 0000 0001 | | .DBGLEN 0x0000,0x0001
0828 014b | K | .DBGLNO 0x014b
0829 ; --------------------------------------------------------------------------------------
0829 ; Debug chain
0829 ; --------------------------------------------------------------------------------------
0829 0003 0006 | | .DBGLEN 0x0003,0x0006
082b 0153 0157 | S W| .DBGLNO 0x0153,0x0157,0x0159,0x0161,0x0168,0x016a,0x016e,0x0170,0x0171
0834 ; --------------------------------------------------------------------------------------
0834 ; Debug chain
0834 ; --------------------------------------------------------------------------------------
0834 0003 0007 | | .DBGLEN 0x0003,0x0007
0836 017b 017f | { | .DBGLNO 0x017b,0x017f,0x0181,0x0189,0x0190,0x0192,0x0196,0x019a,0x019c,0x019d
0840 ; --------------------------------------------------------------------------------------
0840 ; Debug chain
0840 ; --------------------------------------------------------------------------------------
0840 0003 0007 | | .DBGLEN 0x0003,0x0007
0842 01a3 01a8 | | .DBGLNO 0x01a3,0x01a8,0x01aa,0x01b2,0x01ba,0x01bc,0x01c0,0x01c4,0x01c6,0x01c7
084c ; --------------------------------------------------------------------------------------
084c ; Debug chain
084c ; --------------------------------------------------------------------------------------
084c 0003 0004 | | .DBGLEN 0x0003,0x0004
084e 01d3 01d7 | | .DBGLNO 0x01d3,0x01d7,0x01d9,0x01e1,0x01e8,0x01ea,0x01f5
0855 ; --------------------------------------------------------------------------------------
0855 ; Debug chain
0855 ; --------------------------------------------------------------------------------------
0855 0003 000f | | .DBGLEN 0x0003,0x000f
0857 01fb 01ff | | .DBGLNO 0x01fb,0x01ff,0x0201,0x020a,0x0211,0x0213,0x0215,0x0219,0x021a,0x021c,0x021d,0x0221,0x0229,0x022f,0x0236,0x0239,0x0240,0x025a
0869 ; --------------------------------------------------------------------------------------
0869 ; Debug chain
0869 ; --------------------------------------------------------------------------------------
0869 0003 0011 | | .DBGLEN 0x0003,0x0011
086b 027b 0280 | { | .DBGLNO 0x027b,0x0280,0x0282,0x028b,0x0293,0x0295,0x0297,0x02a4,0x02a8,0x02ac,0x02ad,0x02af,0x02b0,0x02b4,0x02bc,0x02c2,0x02c9,0x02cc,0x02d3,0x02ed
087f ; --------------------------------------------------------------------------------------
087f ; Debug chain
087f ; --------------------------------------------------------------------------------------
087f 0004 000c | | .DBGLEN 0x0004,0x000c
0881 030b 030f | | .DBGLNO 0x030b,0x030f,0x0314,0x0316,0x031c,0x0323,0x0325,0x0327,0x0330,0x0336,0x0343,0x0349,0x0350,0x0351,0x0353,0x0354
0891 ; --------------------------------------------------------------------------------------
0891 ; Debug chain
0891 ; --------------------------------------------------------------------------------------
0891 0004 000c | | .DBGLEN 0x0004,0x000c
0893 035b 035f | [ _| .DBGLNO 0x035b,0x035f,0x0364,0x0366,0x036c,0x0373,0x0375,0x0377,0x0380,0x0386,0x038a,0x0397,0x039d,0x03a4,0x03a6,0x03a7
08a3 ; --------------------------------------------------------------------------------------
08a3 ; Debug chain
08a3 ; --------------------------------------------------------------------------------------
08a3 0000 0008 | | .DBGLEN 0x0000,0x0008
08a5 03b3 03b7 | | .DBGLNO 0x03b3,0x03b7,0x03be,0x03c4,0x03cb,0x03ce,0x03d2,0x03d5
08ad ; --------------------------------------------------------------------------------------
08ad ; Debug chain
08ad ; --------------------------------------------------------------------------------------
08ad 0000 000d | | .DBGLEN 0x0000,0x000d
08af 03e3 03e7 | | .DBGLNO 0x03e3,0x03e7,0x03ee,0x03f4,0x03fd,0x03fe,0x0405,0x0408,0x0409,0x040e,0x040f,0x041b,0x041e
08bc ; --------------------------------------------------------------------------------------
08bc ; Debug chain
08bc ; --------------------------------------------------------------------------------------
08bc 0000 0003 | | .DBGLEN 0x0000,0x0003
08be 042b 042e | + .| .DBGLNO 0x042b,0x042e,0x0430
08c1 ; --------------------------------------------------------------------------------------
08c1 ; Debug chain
08c1 ; --------------------------------------------------------------------------------------
08c1 0000 0003 | | .DBGLEN 0x0000,0x0003
08c3 043b 043e | ; >| .DBGLNO 0x043b,0x043e,0x0440
08c6 ; --------------------------------------------------------------------------------------
08c6 ; Debug chain
08c6 ; --------------------------------------------------------------------------------------
08c6 0000 0003 | | .DBGLEN 0x0000,0x0003
08c8 0453 0456 | S V| .DBGLNO 0x0453,0x0456,0x0458
08cb ; --------------------------------------------------------------------------------------
08cb ; Debug chain
08cb ; --------------------------------------------------------------------------------------
08cb 0000 0003 | | .DBGLEN 0x0000,0x0003
08cd 0463 0466 | c f| .DBGLNO 0x0463,0x0466,0x0468
08d0 ; --------------------------------------------------------------------------------------
08d0 ; Debug chain
08d0 ; --------------------------------------------------------------------------------------
08d0 0000 000b | | .DBGLEN 0x0000,0x000b
08d2 0473 0476 | s v| .DBGLNO 0x0473,0x0476,0x0478,0x047d,0x0483,0x0485,0x048c,0x0493,0x049b,0x049e,0x04a2
08dd ; --------------------------------------------------------------------------------------
08dd ; Debug chain
08dd ; --------------------------------------------------------------------------------------
08dd 0000 0014 | | .DBGLEN 0x0000,0x0014
08df 04ab 04ae | | .DBGLNO 0x04ab,0x04ae,0x04b0,0x04b6,0x04b7,0x04bd,0x04c4,0x04c5,0x04ca,0x04cf,0x04d6,0x04dd,0x04e6,0x04e7,0x04ee,0x04f1,0x04f2,0x04f7,0x04f8,0x0504
08f3 ; --------------------------------------------------------------------------------------
08f3 ; Debug chain
08f3 ; --------------------------------------------------------------------------------------
08f3 0001 000e | | .DBGLEN 0x0001,0x000e
08f5 053b 054e | ; N| .DBGLNO 0x053b,0x054e,0x0551,0x0555,0x0567,0x056b,0x0582,0x0591,0x05a1,0x05b0,0x05cf,0x05d2,0x05d8,0x05e8,0x0600
0904 0001 0002 | | .XXX[0xe]
0906 0003 0004 | |
0908 0005 0006 | |
090a 0007 0008 | |
090c 000d 0009 | |
090e 000a 000b | |
0910 000c 000e | |
0912 ; --------------------------------------------------------------------------------------
0912 ; Debug chain
0912 ; --------------------------------------------------------------------------------------
0912 0002 0007 | | .DBGLEN 0x0002,0x0007
0914 060b 060f | | .DBGLNO 0x060b,0x060f,0x0613,0x0619,0x061c,0x062a,0x0638,0x066b,0x0670
091d ; --------------------------------------------------------------------------------------
091d ; Debug chain
091d ; --------------------------------------------------------------------------------------
091d 0001 000d | | .DBGLEN 0x0001,0x000d
091f 067b 067d | { }| .DBGLNO 0x067b,0x067d,0x0681,0x0687,0x0689,0x0690,0x0692,0x0693,0x069a,0x069c,0x069d,0x069f,0x06a4,0x06a7
092d 0001 0003 | | .XXX[0xd]
092f 0004 0005 | |
0931 0006 0007 | |
0933 0008 0009 | |
0935 000a 000b | |
0937 000c 0002 | |
0939 000d | |
093a ; --------------------------------------------------------------------------------------
093a ; Debug chain
093a ; --------------------------------------------------------------------------------------
093a 0001 0004 | | .DBGLEN 0x0001,0x0004
093c 06b3 06b7 | | .DBGLNO 0x06b3,0x06b7,0x06ba,0x06bf,0x06c2
0941 ; --------------------------------------------------------------------------------------
0941 ; Debug chain
0941 ; --------------------------------------------------------------------------------------
0941 0001 0004 | | .DBGLEN 0x0001,0x0004
0943 06cb 06cf | | .DBGLNO 0x06cb,0x06cf,0x06d2,0x06d5,0x06d8
0948 ; --------------------------------------------------------------------------------------
0948 ; Debug chain
0948 ; --------------------------------------------------------------------------------------
0948 0002 0008 | | .DBGLEN 0x0002,0x0008
094a 06e3 06e7 | | .DBGLNO 0x06e3,0x06e7,0x06eb,0x06ef,0x06f3,0x070b,0x070f,0x0716,0x071b,0x0724
0954 0002 0003 | | .XXX[0x8]
0956 0004 0005 | |
0958 0001 0006 | |
095a 0007 0008 | |
095c 0000 0000 | | .BLANK 0000[0xa4]