|
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: 5120 (0x1400)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_a5b0c4
└─⟦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 06d0 | | .CONST 0x06d0 ; 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 0105 | | .CONST 0x0105 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 003e | > | .CONST 0x003e ; Number of locals
000b INIT_0008:
000b 00c4 | | Action Make_Default
000c 00c4 | | Action Make_Default
000d 00c4 | | Action Make_Default
000e 00c4 | | Action Make_Default
000f 00c4 | | Action Make_Default
0010 00c4 | | Action Make_Default
0011 00c4 | | Action Make_Default
0012 00c4 | | Action Make_Default
0013 00c4 | | Action Make_Default
0014 00c4 | | Action Make_Default
0015 00c4 | | Action Make_Default
0016 00c4 | | Action Make_Default
0017 00c4 | | Action Make_Default
0018 00c4 | | Action Make_Default
0019 00c4 | | Action Make_Default
001a 00c4 | | Action Make_Default
001b 00c4 | | Action Make_Default
001c 00c4 | | Action Make_Default
001d 00c4 | | Action Make_Default
001e 00c4 | | Action Make_Default
001f 00c4 | | Action Make_Default
0020 00c4 | | Action Make_Default
0021 00c4 | | Action Make_Default
0022 00c4 | | Action Make_Default
0023 00c4 | | Action Make_Default
0024 00c4 | | Action Make_Default
0025 00c4 | | Action Make_Default
0026 00c4 | | Action Make_Default
0027 00c4 | | Action Make_Default
0028 00c4 | | Action Make_Default
0029 00c4 | | Action Make_Default
002a 00c4 | | Action Make_Default
002b 00c4 | | Action Make_Default
002c 00c4 | | Action Make_Default
002d 00c4 | | Action Make_Default
002e 00c4 | | Action Make_Default
002f e210 | | Load 0x1,0x10
0030 e20f | | Load 0x1,0xf
0031 e001 | | Load 0x0,0x1
0032 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0033 0129 | ) | Execute Any,Make_Visible
0034 c236 | 6 | Store 0x1,0x36
0035 00d8 | | Load_Top At_Offset_0
0036 e002 | | Load 0x0,0x2
0037 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0038 1c07 | | Execute_Immediate Run_Utility,0x7
0039 0129 | ) | Execute Any,Make_Visible
003a c214 | | Store 0x1,0x14
003b e212 | | Load 0x1,0x12
003c 0266 | f | Execute Discrete,Bounds
003d e003 | | Load 0x0,0x3
003e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
003f 029f 010b | | Declare_Subprogram INIT_0108,For_Call
0041 4801 |H | Short_Literal 0x1
0042 035e | ^ | Declare_Type Array,Defined,Visible
0043 c215 | | Store 0x1,0x15
0044 00e4 | | Load_Encached Positive_Cache
0045 0266 | f | Execute Discrete,Bounds
0046 e215 | | Load 0x1,0x15
0047 029f 0123 | #| Declare_Subprogram INIT_0120,For_Call
0049 4801 |H | Short_Literal 0x1
004a 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object
004b c216 | | Store 0x1,0x16
004c 029a 013b | ;| Declare_Subprogram INIT_0138,For_Outer_Call,Visible,Unelaborated
004e c217 | | Store 0x1,0x17
004f 029a 014b | K| Declare_Subprogram INIT_0148,For_Outer_Call,Visible,Unelaborated
0051 c219 | | Store 0x1,0x19
0052 029a 016b | k| Declare_Subprogram INIT_0168,For_Outer_Call,Visible,Unelaborated
0054 c21a | | Store 0x1,0x1a
0055 029a 017b | {| Declare_Subprogram INIT_0178,For_Outer_Call,Visible,Unelaborated
0057 c21b | | Store 0x1,0x1b
0058 029a 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call,Visible,Unelaborated
005a c21c | | Store 0x1,0x1c
005b 029a 019b | | Declare_Subprogram INIT_0198,For_Outer_Call,Visible,Unelaborated
005d c21d | | Store 0x1,0x1d
005e 029a 01a3 | | Declare_Subprogram INIT_01a0,For_Outer_Call,Visible,Unelaborated
0060 c21e | | Store 0x1,0x1e
0061 029a 01ab | | Declare_Subprogram INIT_01a8,For_Outer_Call,Visible,Unelaborated
0063 c21f | | Store 0x1,0x1f
0064 4800 |H | Short_Literal 0x0
0065 4805 |H | Short_Literal 0x5
0066 029f 01b3 | | Declare_Subprogram INIT_01b0,For_Call
0068 03fe | | Declare_Type Discrete,Defined,Visible
0069 c220 | | Store 0x1,0x20
006a e212 | | Load 0x1,0x12
006b e220 | | Load 0x1,0x20
006c e003 | | Load 0x0,0x3
006d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
006e 029f 069b | | Declare_Subprogram INIT_0698,For_Call
0070 4803 |H | Short_Literal 0x3
0071 032e | . | Declare_Type Record,Defined,Visible
0072 c221 | ! | Store 0x1,0x21
0073 00e4 | | Load_Encached Positive_Cache
0074 0266 | f | Execute Discrete,Bounds
0075 e221 | ! | Load 0x1,0x21
0076 029f 01db | | Declare_Subprogram INIT_01d8,For_Call
0078 4801 |H | Short_Literal 0x1
0079 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object
007a c222 | " | Store 0x1,0x22
007b 029a 01f3 | | Declare_Subprogram INIT_01f0,For_Outer_Call,Visible,Unelaborated
007d c223 | # | Store 0x1,0x23
007e 029a 0213 | | Declare_Subprogram INIT_0210,For_Outer_Call,Visible,Unelaborated
0080 c224 | $ | Store 0x1,0x24
0081 029a 022b | +| Declare_Subprogram INIT_0228,For_Outer_Call,Visible,Unelaborated
0083 c225 | % | Store 0x1,0x25
0084 029a 0243 | C| Declare_Subprogram INIT_0240,For_Outer_Call,Visible,Unelaborated
0086 c226 | & | Store 0x1,0x26
0087 029a 026b | k| Declare_Subprogram INIT_0268,For_Outer_Call,Visible,Unelaborated
0089 c227 | ' | Store 0x1,0x27
008a 029a 02b3 | | Declare_Subprogram INIT_02b0,For_Outer_Call,Visible,Unelaborated
008c c228 | ( | Store 0x1,0x28
008d 029a 02eb | | Declare_Subprogram INIT_02e8,For_Outer_Call,Visible,Unelaborated
008f c229 | ) | Store 0x1,0x29
0090 029a 033b | ;| Declare_Subprogram INIT_0338,For_Outer_Call,Visible,Unelaborated
0092 c22a | * | Store 0x1,0x2a
0093 029a 0383 | | Declare_Subprogram INIT_0380,For_Outer_Call,Visible,Unelaborated
0095 c22b | + | Store 0x1,0x2b
0096 029a 03ab | | Declare_Subprogram INIT_03a8,For_Outer_Call,Visible,Unelaborated
0098 c22c | , | Store 0x1,0x2c
0099 029a 03cb | | Declare_Subprogram INIT_03c8,For_Outer_Call,Visible,Unelaborated
009b c22d | - | Store 0x1,0x2d
009c 029a 03eb | | Declare_Subprogram INIT_03e8,For_Outer_Call,Visible,Unelaborated
009e c22e | . | Store 0x1,0x2e
009f 029a 040b | | Declare_Subprogram INIT_0408,For_Outer_Call,Visible,Unelaborated
00a1 c232 | 2 | Store 0x1,0x32
00a2 029a 0413 | | Declare_Subprogram INIT_0410,For_Outer_Call,Visible,Unelaborated
00a4 c233 | 3 | Store 0x1,0x33
00a5 029a 041b | | Declare_Subprogram INIT_0418,For_Outer_Call,Visible,Unelaborated
00a7 c234 | 4 | Store 0x1,0x34
00a8 029a 0423 | #| Declare_Subprogram INIT_0420,For_Outer_Call,Visible,Unelaborated
00aa c235 | 5 | Store 0x1,0x35
00ab 029a 042b | +| Declare_Subprogram INIT_0428,For_Outer_Call,Visible,Unelaborated
00ad c22f | / | Store 0x1,0x2f
00ae 029a 044b | K| Declare_Subprogram INIT_0448,For_Outer_Call,Visible,Unelaborated
00b0 c230 | 0 | Store 0x1,0x30
00b1 e004 | | Load 0x0,0x4
00b2 0129 | ) | Execute Any,Make_Visible
00b3 c231 | 1 | Store 0x1,0x31
00b4 00bf | | Action Accept_Activation
00b5 e005 | | Load 0x0,0x5
00b6 e006 | | Load 0x0,0x6
00b7 e215 | | Load 0x1,0x15
00b8 e20f | | Load 0x1,0xf
00b9 0335 | 5 | Declare_Variable Array,Duplicate
00ba 00cd | | Action Spare6_Action
00bb e210 | | Load 0x1,0x10
00bc e211 | | Load 0x1,0x11
00bd e002 | | Load 0x0,0x2
00be 1918 | | Execute Package,Field_Reference,Field_Number 0x18
00bf e007 | | Load 0x0,0x7
00c0 0387 | | Declare_Variable Package
00c1 00d8 | | Load_Top At_Offset_0
00c2 020f | | Execute Module,Activate
00c3 1d17 | | Execute_Immediate Reference_Lex_1,0x17
00c4 00c7 | | Action Elaborate_Subprogram
00c5 1d19 | | Execute_Immediate Reference_Lex_1,0x19
00c6 00c7 | | Action Elaborate_Subprogram
00c7 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
00c8 00c7 | | Action Elaborate_Subprogram
00c9 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
00ca 00c7 | | Action Elaborate_Subprogram
00cb 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
00cc 00c7 | | Action Elaborate_Subprogram
00cd 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
00ce 00c7 | | Action Elaborate_Subprogram
00cf 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
00d0 00c7 | | Action Elaborate_Subprogram
00d1 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
00d2 00c7 | | Action Elaborate_Subprogram
00d3 029d 046b | k| Declare_Subprogram INIT_0468,For_Outer_Call
00d5 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a
00d6 00c7 | | Action Elaborate_Subprogram
00d7 029d 04c3 | | Declare_Subprogram INIT_04c0,For_Outer_Call
00d9 029d 04db | | Declare_Subprogram INIT_04d8,For_Outer_Call
00db 029d 0503 | | Declare_Subprogram INIT_0500,For_Outer_Call
00dd 029d 053b | ;| Declare_Subprogram INIT_0538,For_Outer_Call
00df 029d 0583 | | Declare_Subprogram INIT_0580,For_Outer_Call
00e1 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b
00e2 00c7 | | Action Elaborate_Subprogram
00e3 1d2c | , | Execute_Immediate Reference_Lex_1,0x2c
00e4 00c7 | | Action Elaborate_Subprogram
00e5 029d 05d3 | | Declare_Subprogram INIT_05d0,For_Outer_Call
00e7 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
00e8 00c7 | | Action Elaborate_Subprogram
00e9 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
00ea 00c7 | | Action Elaborate_Subprogram
00eb 1d25 | % | Execute_Immediate Reference_Lex_1,0x25
00ec 00c7 | | Action Elaborate_Subprogram
00ed 1d26 | & | Execute_Immediate Reference_Lex_1,0x26
00ee 00c7 | | Action Elaborate_Subprogram
00ef 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28
00f0 00c7 | | Action Elaborate_Subprogram
00f1 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27
00f2 00c7 | | Action Elaborate_Subprogram
00f3 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29
00f4 00c7 | | Action Elaborate_Subprogram
00f5 1d2d | - | Execute_Immediate Reference_Lex_1,0x2d
00f6 00c7 | | Action Elaborate_Subprogram
00f7 1d2e | . | Execute_Immediate Reference_Lex_1,0x2e
00f8 00c7 | | Action Elaborate_Subprogram
00f9 1d32 | 2 | Execute_Immediate Reference_Lex_1,0x32
00fa 00c7 | | Action Elaborate_Subprogram
00fb 1d33 | 3 | Execute_Immediate Reference_Lex_1,0x33
00fc 00c7 | | Action Elaborate_Subprogram
00fd 1d34 | 4 | Execute_Immediate Reference_Lex_1,0x34
00fe 00c7 | | Action Elaborate_Subprogram
00ff 1d35 | 5 | Execute_Immediate Reference_Lex_1,0x35
0100 00c7 | | Action Elaborate_Subprogram
0101 1d2f | / | Execute_Immediate Reference_Lex_1,0x2f
0102 00c7 | | Action Elaborate_Subprogram
0103 1d30 | 0 | Execute_Immediate Reference_Lex_1,0x30
0104 00c7 | | Action Elaborate_Subprogram
0105 BODY_0008:
0105 00bc | | Action Signal_Activated
0106 00bb | | Action Signal_Completion
0107 0000 | | .XXX[0x1]
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 010b | | .CONST 0x010b ; Address of begin
0109 0004 | | .CONST 0x0004 ; Address of exception handler
010a 0001 | | .CONST 0x0001 ; Number of locals
010b BODY_0108:
010b INIT_0108:
010b 00d1 | | Pop_Control Pop_Count_1
010c 00da | | Load_Top At_Offset_2
010d 01d8 | | Execute Vector,Element_Type
010e 02ff | | Declare_Variable Variant_Record
010f 00d8 | | Load_Top At_Offset_0
0110 1c00 | | Execute_Immediate Run_Utility,0x0
0111 00db | | Load_Top At_Offset_3
0112 01dc | | Execute Vector,Last
0113 e5ff | | Load 0x2,-0x1
0114 01dd | | Execute Vector,First
0115 0263 | c | Execute Discrete,Above_Bound
0116 7006 |p | Jump_Nonzero 0x11d
0117 00da | | Load_Top At_Offset_2
0118 00d9 | | Load_Top At_Offset_1
0119 e5ff | | Load 0x2,-0x1
011a 01d6 | | Execute Vector,Field_Write
011b 0a01 | | Execute_Immediate Plus,0x1
011c 7ff8 | | Jump 0x115
011d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
011e 0000 0000 | | .XXX[0x2]
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 0123 | # | .CONST 0x0123 ; Address of begin
0121 0004 | | .CONST 0x0004 ; Address of exception handler
0122 0001 | | .CONST 0x0001 ; Number of locals
0123 BODY_0120:
0123 INIT_0120:
0123 00d1 | | Pop_Control Pop_Count_1
0124 00da | | Load_Top At_Offset_2
0125 01d8 | | Execute Vector,Element_Type
0126 0337 | 7 | Declare_Variable Array
0127 00d8 | | Load_Top At_Offset_0
0128 1c00 | | Execute_Immediate Run_Utility,0x0
0129 00db | | Load_Top At_Offset_3
012a 01dc | | Execute Vector,Last
012b e5ff | | Load 0x2,-0x1
012c 01dd | | Execute Vector,First
012d 0263 | c | Execute Discrete,Above_Bound
012e 7006 |p | Jump_Nonzero 0x135
012f 00da | | Load_Top At_Offset_2
0130 00d9 | | Load_Top At_Offset_1
0131 e5ff | | Load 0x2,-0x1
0132 01d6 | | Execute Vector,Field_Write
0133 0a01 | | Execute_Immediate Plus,0x1
0134 7ff8 | | Jump 0x12d
0135 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0136 0000 0000 | | .XXX[0x2]
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 013b | ; | .CONST 0x013b ; Address of begin
0139 0004 | | .CONST 0x0004 ; Address of exception handler
013a 0001 | | .CONST 0x0001 ; Number of locals
013b BODY_0138:
013b INIT_0138:
013b 00db | | Load_Top At_Offset_3
013c 00db | | Load_Top At_Offset_3
013d e237 | 7 | Load 0x1,0x37
013e 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
013f 01d5 | | Execute Vector,Field_Reference
0140 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0141 0000 0000 | | .BLANK 0000[0x7]
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 014f | O | .CONST 0x014f ; Address of begin
0149 0004 | | .CONST 0x0004 ; Address of exception handler
014a 0002 | | .CONST 0x0002 ; Number of locals
014b INIT_0148:
014b e215 | | Load 0x1,0x15
014c 0337 | 7 | Declare_Variable Array
014d 00d8 | | Load_Top At_Offset_0
014e 1c00 | | Execute_Immediate Run_Utility,0x0
014f BODY_0148:
014f 00db | | Load_Top At_Offset_3
0150 e237 | 7 | Load 0x1,0x37
0151 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0152 00d9 | | Load_Top At_Offset_1
0153 01d4 | | Execute Vector,Structure_Write
0154 e5fe | | Load 0x2,-0x2
0155 00d9 | | Load_Top At_Offset_1
0156 01d5 | | Execute Vector,Field_Reference
0157 e5fd | | Load 0x2,-0x3
0158 e003 | | Load 0x0,0x3
0159 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
015a 6809 |h | Jump_Zero 0x164
015b e5fd | | Load 0x2,-0x3
015c e5fe | | Load 0x2,-0x2
015d 00da | | Load_Top At_Offset_2
015e 01d6 | | Execute Vector,Field_Write
015f 00d8 | | Load_Top At_Offset_0
0160 e5ff | | Load 0x2,-0x1
0161 e237 | 7 | Load 0x1,0x37
0162 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0163 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0164 e231 | 1 | Load 0x1,0x31
0165 0257 | W | Execute Discrete,Raise
0166 0000 0000 | | .XXX[0x2]
0168 ; --------------------------------------------------------------------------------------
0168 ; SUBPROGRAM
0168 ; --------------------------------------------------------------------------------------
0168 016d | m | .CONST 0x016d ; Address of begin
0169 0004 | | .CONST 0x0004 ; Address of exception handler
016a 0002 | | .CONST 0x0002 ; Number of locals
016b INIT_0168:
016b e214 | | Load 0x1,0x14
016c 02ff | | Declare_Variable Variant_Record
016d BODY_0168:
016d 00db | | Load_Top At_Offset_3
016e e237 | 7 | Load 0x1,0x37
016f 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0170 00d9 | | Load_Top At_Offset_1
0171 016d | m | Execute Variant_Record,Structure_Write
0172 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0173 0000 0000 | | .BLANK 0000[0x5]
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 017d | } | .CONST 0x017d ; Address of begin
0179 0004 | | .CONST 0x0004 ; Address of exception handler
017a 0002 | | .CONST 0x0002 ; Number of locals
017b INIT_0178:
017b e214 | | Load 0x1,0x14
017c 02ff | | Declare_Variable Variant_Record
017d BODY_0178:
017d 00cf | | Action Mark_Auxiliary
017e e5ff | | Load 0x2,-0x1
017f 01d9 | | Execute Vector,Reverse_Bounds
0180 0263 | c | Execute Discrete,Above_Bound
0181 7009 |p | Jump_Nonzero 0x18b
0182 00d8 | | Load_Top At_Offset_0
0183 e5ff | | Load 0x2,-0x1
0184 01d5 | | Execute Vector,Field_Reference
0185 e237 | 7 | Load 0x1,0x37
0186 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0187 e402 | | Load 0x2,0x2
0188 016d | m | Execute Variant_Record,Structure_Write
0189 00c8 | | Action Pop_Auxiliary_Range
018a 3ff7 |? | Loop_Increasing 0x182
018b 4502 |E | Exit_Suprogram New_Top_Offset 0x2
018c 0000 0000 | | .BLANK 0000[0x4]
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 0193 | | .CONST 0x0193 ; Address of begin
0191 0004 | | .CONST 0x0004 ; Address of exception handler
0192 0001 | | .CONST 0x0001 ; Number of locals
0193 BODY_0190:
0193 INIT_0190:
0193 00da | | Load_Top At_Offset_2
0194 e237 | 7 | Load 0x1,0x37
0195 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0196 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0197 0000 | | .XXX[0x1]
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 019b | | .CONST 0x019b ; Address of begin
0199 0004 | | .CONST 0x0004 ; Address of exception handler
019a 0001 | | .CONST 0x0001 ; Number of locals
019b BODY_0198:
019b INIT_0198:
019b e237 | 7 | Load 0x1,0x37
019c 1817 | | Execute Package,Field_Execute,Field_Number 0x17
019d 4501 |E | Exit_Suprogram New_Top_Offset 0x1
019e 0000 0000 | | .XXX[0x2]
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01a3 | | .CONST 0x01a3 ; Address of begin
01a1 0004 | | .CONST 0x0004 ; Address of exception handler
01a2 0001 | | .CONST 0x0001 ; Number of locals
01a3 BODY_01a0:
01a3 INIT_01a0:
01a3 e237 | 7 | Load 0x1,0x37
01a4 181c | | Execute Package,Field_Execute,Field_Number 0x1c
01a5 00ca | | Action Exit_Nullary_Function
01a6 0000 0000 | | .XXX[0x2]
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
01a8 ; --------------------------------------------------------------------------------------
01a8 01ab | | .CONST 0x01ab ; Address of begin
01a9 0004 | | .CONST 0x0004 ; Address of exception handler
01aa 0001 | | .CONST 0x0001 ; Number of locals
01ab BODY_01a8:
01ab INIT_01a8:
01ab e237 | 7 | Load 0x1,0x37
01ac 181e | | Execute Package,Field_Execute,Field_Number 0x1e
01ad 00ca | | Action Exit_Nullary_Function
01ae 0000 0000 | | .XXX[0x2]
01b0 ; --------------------------------------------------------------------------------------
01b0 ; SUBPROGRAM
01b0 ; --------------------------------------------------------------------------------------
01b0 01b3 | | .CONST 0x01b3 ; Address of begin
01b1 0004 | | .CONST 0x0004 ; Address of exception handler
01b2 0001 | | .CONST 0x0001 ; Number of locals
01b3 BODY_01b0:
01b3 INIT_01b0:
01b3 4607 |F | Jump_Case 0x8
01b4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
01b5 7806 |x | Jump 0x1bc ; case 0x1
01b6 7809 |x | Jump 0x1c0 ; case 0x2
01b7 780d |x | Jump 0x1c5 ; case 0x3
01b8 7810 |x | Jump 0x1c9 ; case 0x4
01b9 7811 |x | Jump 0x1cb ; case 0x5
01ba 7812 |x | Jump 0x1cd ; case 0x6
01bb 7815 |x | Jump 0x1d1 ; case 0x7
01bc 00da | | Load_Top At_Offset_2
01bd 0091 06aa | | Action Push_String_Extended_Indexed,0x6aa ; "GREATER"
01bf 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
01c0 00db | | Load_Top At_Offset_3
01c1 00db | | Load_Top At_Offset_3
01c2 00e0 | | Load_Encached Standard_Cache
01c3 181b | | Execute Package,Field_Execute,Field_Number 0x1b
01c4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01c5 00da | | Load_Top At_Offset_2
01c6 00e0 | | Load_Encached Standard_Cache
01c7 181c | | Execute Package,Field_Execute,Field_Number 0x1c
01c8 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
01c9 00db | | Load_Top At_Offset_3
01ca 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01cb 00db | | Load_Top At_Offset_3
01cc 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01cd e220 | | Load 0x1,0x20
01ce 00dc | | Load_Top At_Offset_4
01cf 0267 | g | Execute Discrete,Predecessor
01d0 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01d1 e220 | | Load 0x1,0x20
01d2 00dc | | Load_Top At_Offset_4
01d3 0268 | h | Execute Discrete,Successor
01d4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01d5 0000 0000 | | .XXX[0x3]
01d7 0000 | |
01d8 ; --------------------------------------------------------------------------------------
01d8 ; SUBPROGRAM
01d8 ; --------------------------------------------------------------------------------------
01d8 01db | | .CONST 0x01db ; Address of begin
01d9 0004 | | .CONST 0x0004 ; Address of exception handler
01da 0001 | | .CONST 0x0001 ; Number of locals
01db BODY_01d8:
01db INIT_01d8:
01db 00d1 | | Pop_Control Pop_Count_1
01dc 00da | | Load_Top At_Offset_2
01dd 01d8 | | Execute Vector,Element_Type
01de 0322 | " | Declare_Variable Record
01df 00d8 | | Load_Top At_Offset_0
01e0 1c00 | | Execute_Immediate Run_Utility,0x0
01e1 00db | | Load_Top At_Offset_3
01e2 01dc | | Execute Vector,Last
01e3 e5ff | | Load 0x2,-0x1
01e4 01dd | | Execute Vector,First
01e5 0263 | c | Execute Discrete,Above_Bound
01e6 7006 |p | Jump_Nonzero 0x1ed
01e7 00da | | Load_Top At_Offset_2
01e8 00d9 | | Load_Top At_Offset_1
01e9 e5ff | | Load 0x2,-0x1
01ea 01d6 | | Execute Vector,Field_Write
01eb 0a01 | | Execute_Immediate Plus,0x1
01ec 7ff8 | | Jump 0x1e5
01ed 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
01ee 0000 0000 | | .XXX[0x2]
01f0 ; --------------------------------------------------------------------------------------
01f0 ; SUBPROGRAM
01f0 ; --------------------------------------------------------------------------------------
01f0 01ff | | .CONST 0x01ff ; Address of begin
01f1 0004 | | .CONST 0x0004 ; Address of exception handler
01f2 0006 | | .CONST 0x0006 ; Number of locals
01f3 INIT_01f0:
01f3 029f 05eb | | Declare_Subprogram INIT_05e8,For_Call
01f5 e008 | | Load 0x0,0x8
01f6 1937 | 7 | Execute Package,Field_Reference,Field_Number 0x37
01f7 00c6 | | Action Check_Subprogram_Elaborated
01f8 4802 |H | Short_Literal 0x2
01f9 4802 |H | Short_Literal 0x2
01fa 0099 | | Action Reference_Dynamic
01fb e009 | | Load 0x0,0x9
01fc e00a | | Load 0x0,0xa
01fd 4806 |H | Short_Literal 0x6
01fe 0007 | | Action Break_Optional
01ff BODY_01f0:
01ff 821e | | Call 0x1,0x1e
0200 4803 |H | Short_Literal 0x3
0201 4802 |H | Short_Literal 0x2
0202 0099 | | Action Reference_Dynamic
0203 4804 |H | Short_Literal 0x4
0204 4802 |H | Short_Literal 0x2
0205 0099 | | Action Reference_Dynamic
0206 e008 | | Load 0x0,0x8
0207 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
0208 00e1 | | Load_Encached Boolean_Cache
0209 025e | ^ | Execute Discrete,Convert
020a 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
020b 0000 0000 | | .BLANK 0000[0x5]
0210 ; --------------------------------------------------------------------------------------
0210 ; SUBPROGRAM
0210 ; --------------------------------------------------------------------------------------
0210 0218 | | .CONST 0x0218 ; Address of begin
0211 0004 | | .CONST 0x0004 ; Address of exception handler
0212 0002 | | .CONST 0x0002 ; Number of locals
0213 INIT_0210:
0213 e002 | | Load 0x0,0x2
0214 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0215 02ff | | Declare_Variable Variant_Record
0216 00d8 | | Load_Top At_Offset_0
0217 1c00 | | Execute_Immediate Run_Utility,0x0
0218 BODY_0210:
0218 00db | | Load_Top At_Offset_3
0219 822a | * | Call 0x1,0x2a
021a 00d9 | | Load_Top At_Offset_1
021b 016d | m | Execute Variant_Record,Structure_Write
021c 00d8 | | Load_Top At_Offset_0
021d 823e | > | Call 0x1,0x3e
021e 016f | o | Execute Variant_Record,Equal
021f 6802 |h | Jump_Zero 0x222
0220 4800 |H | Short_Literal 0x0
0221 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0222 4801 |H | Short_Literal 0x1
0223 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0224 0000 0000 | | .BLANK 0000[0x4]
0228 ; --------------------------------------------------------------------------------------
0228 ; SUBPROGRAM
0228 ; --------------------------------------------------------------------------------------
0228 022b | + | .CONST 0x022b ; Address of begin
0229 0004 | | .CONST 0x0004 ; Address of exception handler
022a 0001 | | .CONST 0x0001 ; Number of locals
022b BODY_0228:
022b INIT_0228:
022b 4801 |H | Short_Literal 0x1
022c 4801 |H | Short_Literal 0x1
022d e222 | " | Load 0x1,0x22
022e 035b | [ | Declare_Type Array,Constrained
022f 0337 | 7 | Declare_Variable Array
0230 e221 | ! | Load 0x1,0x21
0231 0322 | " | Declare_Variable Record
0232 e5ff | | Load 0x2,-0x1
0233 00d9 | | Load_Top At_Offset_1
0234 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0235 e5fe | | Load 0x2,-0x2
0236 00d9 | | Load_Top At_Offset_1
0237 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0238 e5fd | | Load 0x2,-0x3
0239 00d9 | | Load_Top At_Offset_1
023a 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
023b 4801 |H | Short_Literal 0x1
023c 00da | | Load_Top At_Offset_2
023d 01d6 | | Execute Vector,Field_Write
023e 8224 | $ | Call 0x1,0x24
023f 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0240 ; --------------------------------------------------------------------------------------
0240 ; SUBPROGRAM
0240 ; --------------------------------------------------------------------------------------
0240 0243 | C | .CONST 0x0243 ; Address of begin
0241 0004 | | .CONST 0x0004 ; Address of exception handler
0242 0001 | | .CONST 0x0001 ; Number of locals
0243 BODY_0240:
0243 INIT_0240:
0243 4801 |H | Short_Literal 0x1
0244 4802 |H | Short_Literal 0x2
0245 e222 | " | Load 0x1,0x22
0246 035b | [ | Declare_Type Array,Constrained
0247 0337 | 7 | Declare_Variable Array
0248 e221 | ! | Load 0x1,0x21
0249 0322 | " | Declare_Variable Record
024a e5ff | | Load 0x2,-0x1
024b 00d9 | | Load_Top At_Offset_1
024c 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
024d e5fe | | Load 0x2,-0x2
024e 00d9 | | Load_Top At_Offset_1
024f 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0250 e5fd | | Load 0x2,-0x3
0251 00d9 | | Load_Top At_Offset_1
0252 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0253 4801 |H | Short_Literal 0x1
0254 00da | | Load_Top At_Offset_2
0255 01d6 | | Execute Vector,Field_Write
0256 e221 | ! | Load 0x1,0x21
0257 0322 | " | Declare_Variable Record
0258 e5fc | | Load 0x2,-0x4
0259 00d9 | | Load_Top At_Offset_1
025a 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
025b e5fb | | Load 0x2,-0x5
025c 00d9 | | Load_Top At_Offset_1
025d 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
025e e5fa | | Load 0x2,-0x6
025f 00d9 | | Load_Top At_Offset_1
0260 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0261 4802 |H | Short_Literal 0x2
0262 00da | | Load_Top At_Offset_2
0263 01d6 | | Execute Vector,Field_Write
0264 8224 | $ | Call 0x1,0x24
0265 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6
0266 0000 0000 | | .XXX[0x2]
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 4801 |H | Short_Literal 0x1
026c 4804 |H | Short_Literal 0x4
026d e222 | " | Load 0x1,0x22
026e 035b | [ | Declare_Type Array,Constrained
026f 0337 | 7 | Declare_Variable Array
0270 e221 | ! | Load 0x1,0x21
0271 0322 | " | Declare_Variable Record
0272 e5ff | | Load 0x2,-0x1
0273 00d9 | | Load_Top At_Offset_1
0274 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0275 e5fe | | Load 0x2,-0x2
0276 00d9 | | Load_Top At_Offset_1
0277 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0278 e5fd | | Load 0x2,-0x3
0279 00d9 | | Load_Top At_Offset_1
027a 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
027b 4801 |H | Short_Literal 0x1
027c 00da | | Load_Top At_Offset_2
027d 01d6 | | Execute Vector,Field_Write
027e e221 | ! | Load 0x1,0x21
027f 0322 | " | Declare_Variable Record
0280 e5fc | | Load 0x2,-0x4
0281 00d9 | | Load_Top At_Offset_1
0282 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0283 e5fb | | Load 0x2,-0x5
0284 00d9 | | Load_Top At_Offset_1
0285 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0286 e5fa | | Load 0x2,-0x6
0287 00d9 | | Load_Top At_Offset_1
0288 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0289 4802 |H | Short_Literal 0x2
028a 00da | | Load_Top At_Offset_2
028b 01d6 | | Execute Vector,Field_Write
028c e221 | ! | Load 0x1,0x21
028d 0322 | " | Declare_Variable Record
028e e5f9 | | Load 0x2,-0x7
028f 00d9 | | Load_Top At_Offset_1
0290 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0291 e5f8 | | Load 0x2,-0x8
0292 00d9 | | Load_Top At_Offset_1
0293 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0294 e5f7 | | Load 0x2,-0x9
0295 00d9 | | Load_Top At_Offset_1
0296 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0297 4803 |H | Short_Literal 0x3
0298 00da | | Load_Top At_Offset_2
0299 01d6 | | Execute Vector,Field_Write
029a e221 | ! | Load 0x1,0x21
029b 0322 | " | Declare_Variable Record
029c e5f6 | | Load 0x2,-0xa
029d 00d9 | | Load_Top At_Offset_1
029e 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
029f e5f5 | | Load 0x2,-0xb
02a0 00d9 | | Load_Top At_Offset_1
02a1 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
02a2 e5f4 | | Load 0x2,-0xc
02a3 00d9 | | Load_Top At_Offset_1
02a4 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
02a5 4804 |H | Short_Literal 0x4
02a6 00da | | Load_Top At_Offset_2
02a7 01d6 | | Execute Vector,Field_Write
02a8 8224 | $ | Call 0x1,0x24
02a9 440c |D | Exit_Subprogram With_Value,New_Top_Offset 0xc
02aa 0000 0000 | | .BLANK 0000[0x6]
02b0 ; --------------------------------------------------------------------------------------
02b0 ; SUBPROGRAM
02b0 ; --------------------------------------------------------------------------------------
02b0 02b3 | | .CONST 0x02b3 ; Address of begin
02b1 0004 | | .CONST 0x0004 ; Address of exception handler
02b2 0001 | | .CONST 0x0001 ; Number of locals
02b3 BODY_02b0:
02b3 INIT_02b0:
02b3 4801 |H | Short_Literal 0x1
02b4 4803 |H | Short_Literal 0x3
02b5 e222 | " | Load 0x1,0x22
02b6 035b | [ | Declare_Type Array,Constrained
02b7 0337 | 7 | Declare_Variable Array
02b8 e221 | ! | Load 0x1,0x21
02b9 0322 | " | Declare_Variable Record
02ba e5ff | | Load 0x2,-0x1
02bb 00d9 | | Load_Top At_Offset_1
02bc 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
02bd e5fe | | Load 0x2,-0x2
02be 00d9 | | Load_Top At_Offset_1
02bf 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
02c0 e5fd | | Load 0x2,-0x3
02c1 00d9 | | Load_Top At_Offset_1
02c2 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
02c3 4801 |H | Short_Literal 0x1
02c4 00da | | Load_Top At_Offset_2
02c5 01d6 | | Execute Vector,Field_Write
02c6 e221 | ! | Load 0x1,0x21
02c7 0322 | " | Declare_Variable Record
02c8 e5fc | | Load 0x2,-0x4
02c9 00d9 | | Load_Top At_Offset_1
02ca 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
02cb e5fb | | Load 0x2,-0x5
02cc 00d9 | | Load_Top At_Offset_1
02cd 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
02ce e5fa | | Load 0x2,-0x6
02cf 00d9 | | Load_Top At_Offset_1
02d0 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
02d1 4802 |H | Short_Literal 0x2
02d2 00da | | Load_Top At_Offset_2
02d3 01d6 | | Execute Vector,Field_Write
02d4 e221 | ! | Load 0x1,0x21
02d5 0322 | " | Declare_Variable Record
02d6 e5f9 | | Load 0x2,-0x7
02d7 00d9 | | Load_Top At_Offset_1
02d8 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
02d9 e5f8 | | Load 0x2,-0x8
02da 00d9 | | Load_Top At_Offset_1
02db 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
02dc e5f7 | | Load 0x2,-0x9
02dd 00d9 | | Load_Top At_Offset_1
02de 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
02df 4803 |H | Short_Literal 0x3
02e0 00da | | Load_Top At_Offset_2
02e1 01d6 | | Execute Vector,Field_Write
02e2 8224 | $ | Call 0x1,0x24
02e3 4409 |D | Exit_Subprogram With_Value,New_Top_Offset 0x9
02e4 0000 0000 | | .BLANK 0000[0x4]
02e8 ; --------------------------------------------------------------------------------------
02e8 ; SUBPROGRAM
02e8 ; --------------------------------------------------------------------------------------
02e8 02eb | | .CONST 0x02eb ; Address of begin
02e9 0004 | | .CONST 0x0004 ; Address of exception handler
02ea 0001 | | .CONST 0x0001 ; Number of locals
02eb BODY_02e8:
02eb INIT_02e8:
02eb 4801 |H | Short_Literal 0x1
02ec 4805 |H | Short_Literal 0x5
02ed e222 | " | Load 0x1,0x22
02ee 035b | [ | Declare_Type Array,Constrained
02ef 0337 | 7 | Declare_Variable Array
02f0 e221 | ! | Load 0x1,0x21
02f1 0322 | " | Declare_Variable Record
02f2 e5ff | | Load 0x2,-0x1
02f3 00d9 | | Load_Top At_Offset_1
02f4 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
02f5 e5fe | | Load 0x2,-0x2
02f6 00d9 | | Load_Top At_Offset_1
02f7 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
02f8 e5fd | | Load 0x2,-0x3
02f9 00d9 | | Load_Top At_Offset_1
02fa 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
02fb 4801 |H | Short_Literal 0x1
02fc 00da | | Load_Top At_Offset_2
02fd 01d6 | | Execute Vector,Field_Write
02fe e221 | ! | Load 0x1,0x21
02ff 0322 | " | Declare_Variable Record
0300 e5fc | | Load 0x2,-0x4
0301 00d9 | | Load_Top At_Offset_1
0302 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0303 e5fb | | Load 0x2,-0x5
0304 00d9 | | Load_Top At_Offset_1
0305 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0306 e5fa | | Load 0x2,-0x6
0307 00d9 | | Load_Top At_Offset_1
0308 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0309 4802 |H | Short_Literal 0x2
030a 00da | | Load_Top At_Offset_2
030b 01d6 | | Execute Vector,Field_Write
030c e221 | ! | Load 0x1,0x21
030d 0322 | " | Declare_Variable Record
030e e5f9 | | Load 0x2,-0x7
030f 00d9 | | Load_Top At_Offset_1
0310 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0311 e5f8 | | Load 0x2,-0x8
0312 00d9 | | Load_Top At_Offset_1
0313 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0314 e5f7 | | Load 0x2,-0x9
0315 00d9 | | Load_Top At_Offset_1
0316 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0317 4803 |H | Short_Literal 0x3
0318 00da | | Load_Top At_Offset_2
0319 01d6 | | Execute Vector,Field_Write
031a e221 | ! | Load 0x1,0x21
031b 0322 | " | Declare_Variable Record
031c e5f6 | | Load 0x2,-0xa
031d 00d9 | | Load_Top At_Offset_1
031e 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
031f e5f5 | | Load 0x2,-0xb
0320 00d9 | | Load_Top At_Offset_1
0321 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0322 e5f4 | | Load 0x2,-0xc
0323 00d9 | | Load_Top At_Offset_1
0324 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0325 4804 |H | Short_Literal 0x4
0326 00da | | Load_Top At_Offset_2
0327 01d6 | | Execute Vector,Field_Write
0328 e221 | ! | Load 0x1,0x21
0329 0322 | " | Declare_Variable Record
032a e5f3 | | Load 0x2,-0xd
032b 00d9 | | Load_Top At_Offset_1
032c 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
032d e5f2 | | Load 0x2,-0xe
032e 00d9 | | Load_Top At_Offset_1
032f 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0330 e5f1 | | Load 0x2,-0xf
0331 00d9 | | Load_Top At_Offset_1
0332 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0333 4805 |H | Short_Literal 0x5
0334 00da | | Load_Top At_Offset_2
0335 01d6 | | Execute Vector,Field_Write
0336 8224 | $ | Call 0x1,0x24
0337 440f |D | Exit_Subprogram With_Value,New_Top_Offset 0xf
0338 ; --------------------------------------------------------------------------------------
0338 ; SUBPROGRAM
0338 ; --------------------------------------------------------------------------------------
0338 0359 | Y | .CONST 0x0359 ; Address of begin
0339 0004 | | .CONST 0x0004 ; Address of exception handler
033a 000d | | .CONST 0x000d ; Number of locals
033b INIT_0338:
033b 00e1 | | Load_Encached Boolean_Cache
033c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
033d e214 | | Load 0x1,0x14
033e 02ff | | Declare_Variable Variant_Record
033f e236 | 6 | Load 0x1,0x36
0340 e002 | | Load 0x0,0x2
0341 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0342 1c08 | | Execute_Immediate Run_Utility,0x8
0343 029f 060b | | Declare_Subprogram INIT_0608,For_Call
0345 e008 | | Load 0x0,0x8
0346 1936 | 6 | Execute Package,Field_Reference,Field_Number 0x36
0347 00c6 | | Action Check_Subprogram_Elaborated
0348 4805 |H | Short_Literal 0x5
0349 4802 |H | Short_Literal 0x2
034a 0099 | | Action Reference_Dynamic
034b e00b | | Load 0x0,0xb
034c e00c | | Load 0x0,0xc
034d 4809 |H | Short_Literal 0x9
034e 0007 | | Action Break_Optional
034f e008 | | Load 0x0,0x8
0350 1937 | 7 | Execute Package,Field_Reference,Field_Number 0x37
0351 00c6 | | Action Check_Subprogram_Elaborated
0352 4805 |H | Short_Literal 0x5
0353 4802 |H | Short_Literal 0x2
0354 0099 | | Action Reference_Dynamic
0355 e00d | | Load 0x0,0xd
0356 e00e | | Load 0x0,0xe
0357 480d |H | Short_Literal 0xd
0358 0007 | | Action Break_Optional
0359 BODY_0338:
0359 821e | | Call 0x1,0x1e
035a 480a |H | Short_Literal 0xa
035b 4802 |H | Short_Literal 0x2
035c 0099 | | Action Reference_Dynamic
035d 480b |H | Short_Literal 0xb
035e 4802 |H | Short_Literal 0x2
035f 0099 | | Action Reference_Dynamic
0360 e008 | | Load 0x0,0x8
0361 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
0362 a402 | | Store_Unchecked 0x2,0x2
0363 e402 | | Load 0x2,0x2
0364 680c |h | Jump_Zero 0x371
0365 821e | | Call 0x1,0x1e
0366 4806 |H | Short_Literal 0x6
0367 4802 |H | Short_Literal 0x2
0368 0099 | | Action Reference_Dynamic
0369 4807 |H | Short_Literal 0x7
036a 4802 |H | Short_Literal 0x2
036b 0099 | | Action Reference_Dynamic
036c e008 | | Load 0x0,0x8
036d 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
036e e403 | | Load 0x2,0x3
036f 016d | m | Execute Variant_Record,Structure_Write
0370 780a |x | Jump 0x37b
0371 e404 | | Load 0x2,0x4
0372 4800 |H | Short_Literal 0x0
0373 e002 | | Load 0x0,0x2
0374 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0375 00d1 | | Pop_Control Pop_Count_1
0376 e404 | | Load 0x2,0x4
0377 e214 | | Load 0x1,0x14
0378 0162 | b | Execute Variant_Record,Check_In_Type
0379 e403 | | Load 0x2,0x3
037a 016d | m | Execute Variant_Record,Structure_Write
037b e403 | | Load 0x2,0x3
037c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
037d 0000 0000 | | .XXX[0x3]
037f 0000 | |
0380 ; --------------------------------------------------------------------------------------
0380 ; SUBPROGRAM
0380 ; --------------------------------------------------------------------------------------
0380 038f | | .CONST 0x038f ; Address of begin
0381 0004 | | .CONST 0x0004 ; Address of exception handler
0382 0006 | | .CONST 0x0006 ; Number of locals
0383 INIT_0380:
0383 029f 0633 | 3| Declare_Subprogram INIT_0630,For_Call
0385 e008 | | Load 0x0,0x8
0386 1935 | 5 | Execute Package,Field_Reference,Field_Number 0x35
0387 00c6 | | Action Check_Subprogram_Elaborated
0388 4802 |H | Short_Literal 0x2
0389 4802 |H | Short_Literal 0x2
038a 0099 | | Action Reference_Dynamic
038b e00f | | Load 0x0,0xf
038c e010 | | Load 0x0,0x10
038d 4806 |H | Short_Literal 0x6
038e 0007 | | Action Break_Optional
038f BODY_0380:
038f 6010 |` | Indirect_Literal Discrete,0x3a0,{0x00000000, 0x7fffffff}
0390 821e | | Call 0x1,0x1e
0391 4803 |H | Short_Literal 0x3
0392 4802 |H | Short_Literal 0x2
0393 0099 | | Action Reference_Dynamic
0394 4804 |H | Short_Literal 0x4
0395 4802 |H | Short_Literal 0x2
0396 0099 | | Action Reference_Dynamic
0397 e008 | | Load 0x0,0x8
0398 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
0399 e008 | | Load 0x0,0x8
039a 1b56 | V | Execute Package,Field_Read,Field_Number 0x56
039b 01c6 | | Execute Vector,Convert_To_Formal
039c 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
039d 0000 0000 | | .XXX[0x3]
039f 0000 | |
03a0 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff}
03a4 0000 0000 | | .BLANK 0000[0x4]
03a8 ; --------------------------------------------------------------------------------------
03a8 ; SUBPROGRAM
03a8 ; --------------------------------------------------------------------------------------
03a8 03b7 | | .CONST 0x03b7 ; Address of begin
03a9 0004 | | .CONST 0x0004 ; Address of exception handler
03aa 0006 | | .CONST 0x0006 ; Number of locals
03ab INIT_03a8:
03ab 029f 0643 | C| Declare_Subprogram INIT_0640,For_Call
03ad e008 | | Load 0x0,0x8
03ae 1935 | 5 | Execute Package,Field_Reference,Field_Number 0x35
03af 00c6 | | Action Check_Subprogram_Elaborated
03b0 4802 |H | Short_Literal 0x2
03b1 4802 |H | Short_Literal 0x2
03b2 0099 | | Action Reference_Dynamic
03b3 e011 | | Load 0x0,0x11
03b4 e012 | | Load 0x0,0x12
03b5 4806 |H | Short_Literal 0x6
03b6 0007 | | Action Break_Optional
03b7 BODY_03a8:
03b7 67e8 |g | Indirect_Literal Discrete,0x3a0,{0x00000000, 0x7fffffff}
03b8 821e | | Call 0x1,0x1e
03b9 4803 |H | Short_Literal 0x3
03ba 4802 |H | Short_Literal 0x2
03bb 0099 | | Action Reference_Dynamic
03bc 4804 |H | Short_Literal 0x4
03bd 4802 |H | Short_Literal 0x2
03be 0099 | | Action Reference_Dynamic
03bf e008 | | Load 0x0,0x8
03c0 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
03c1 e008 | | Load 0x0,0x8
03c2 1b56 | V | Execute Package,Field_Read,Field_Number 0x56
03c3 01c6 | | Execute Vector,Convert_To_Formal
03c4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03c5 0000 0000 | | .XXX[0x3]
03c7 0000 | |
03c8 ; --------------------------------------------------------------------------------------
03c8 ; SUBPROGRAM
03c8 ; --------------------------------------------------------------------------------------
03c8 03d7 | | .CONST 0x03d7 ; Address of begin
03c9 0004 | | .CONST 0x0004 ; Address of exception handler
03ca 0006 | | .CONST 0x0006 ; Number of locals
03cb INIT_03c8:
03cb 029f 066b | k| Declare_Subprogram INIT_0668,For_Call
03cd e008 | | Load 0x0,0x8
03ce 1938 | 8 | Execute Package,Field_Reference,Field_Number 0x38
03cf 00c6 | | Action Check_Subprogram_Elaborated
03d0 4802 |H | Short_Literal 0x2
03d1 4802 |H | Short_Literal 0x2
03d2 0099 | | Action Reference_Dynamic
03d3 e013 | | Load 0x0,0x13
03d4 e014 | | Load 0x0,0x14
03d5 4806 |H | Short_Literal 0x6
03d6 0007 | | Action Break_Optional
03d7 BODY_03c8:
03d7 821e | | Call 0x1,0x1e
03d8 4803 |H | Short_Literal 0x3
03d9 4802 |H | Short_Literal 0x2
03da 0099 | | Action Reference_Dynamic
03db 4804 |H | Short_Literal 0x4
03dc 4802 |H | Short_Literal 0x2
03dd 0099 | | Action Reference_Dynamic
03de e008 | | Load 0x0,0x8
03df 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
03e0 e214 | | Load 0x1,0x14
03e1 0165 | e | Execute Variant_Record,Convert
03e2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03e3 0000 0000 | | .BLANK 0000[0x5]
03e8 ; --------------------------------------------------------------------------------------
03e8 ; SUBPROGRAM
03e8 ; --------------------------------------------------------------------------------------
03e8 03f7 | | .CONST 0x03f7 ; Address of begin
03e9 0004 | | .CONST 0x0004 ; Address of exception handler
03ea 0006 | | .CONST 0x0006 ; Number of locals
03eb INIT_03e8:
03eb 029f 0683 | | Declare_Subprogram INIT_0680,For_Call
03ed e008 | | Load 0x0,0x8
03ee 1938 | 8 | Execute Package,Field_Reference,Field_Number 0x38
03ef 00c6 | | Action Check_Subprogram_Elaborated
03f0 4802 |H | Short_Literal 0x2
03f1 4802 |H | Short_Literal 0x2
03f2 0099 | | Action Reference_Dynamic
03f3 e015 | | Load 0x0,0x15
03f4 e016 | | Load 0x0,0x16
03f5 4806 |H | Short_Literal 0x6
03f6 0007 | | Action Break_Optional
03f7 BODY_03e8:
03f7 821e | | Call 0x1,0x1e
03f8 4803 |H | Short_Literal 0x3
03f9 4802 |H | Short_Literal 0x2
03fa 0099 | | Action Reference_Dynamic
03fb 4804 |H | Short_Literal 0x4
03fc 4802 |H | Short_Literal 0x2
03fd 0099 | | Action Reference_Dynamic
03fe e008 | | Load 0x0,0x8
03ff 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
0400 e214 | | Load 0x1,0x14
0401 0165 | e | Execute Variant_Record,Convert
0402 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0403 0000 0000 | | .BLANK 0000[0x5]
0408 ; --------------------------------------------------------------------------------------
0408 ; SUBPROGRAM
0408 ; --------------------------------------------------------------------------------------
0408 040b | | .CONST 0x040b ; Address of begin
0409 0004 | | .CONST 0x0004 ; Address of exception handler
040a 0001 | | .CONST 0x0001 ; Number of locals
040b BODY_0408:
040b INIT_0408:
040b 00da | | Load_Top At_Offset_2
040c e237 | 7 | Load 0x1,0x37
040d 1818 | | Execute Package,Field_Execute,Field_Number 0x18
040e 4502 |E | Exit_Suprogram New_Top_Offset 0x2
040f 0000 | | .XXX[0x1]
0410 ; --------------------------------------------------------------------------------------
0410 ; SUBPROGRAM
0410 ; --------------------------------------------------------------------------------------
0410 0413 | | .CONST 0x0413 ; Address of begin
0411 0004 | | .CONST 0x0004 ; Address of exception handler
0412 0001 | | .CONST 0x0001 ; Number of locals
0413 BODY_0410:
0413 INIT_0410:
0413 e237 | 7 | Load 0x1,0x37
0414 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0415 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0416 0000 0000 | | .XXX[0x2]
0418 ; --------------------------------------------------------------------------------------
0418 ; SUBPROGRAM
0418 ; --------------------------------------------------------------------------------------
0418 041b | | .CONST 0x041b ; Address of begin
0419 0004 | | .CONST 0x0004 ; Address of exception handler
041a 0001 | | .CONST 0x0001 ; Number of locals
041b BODY_0418:
041b INIT_0418:
041b 00da | | Load_Top At_Offset_2
041c e237 | 7 | Load 0x1,0x37
041d 181a | | Execute Package,Field_Execute,Field_Number 0x1a
041e 4502 |E | Exit_Suprogram New_Top_Offset 0x2
041f 0000 | | .XXX[0x1]
0420 ; --------------------------------------------------------------------------------------
0420 ; SUBPROGRAM
0420 ; --------------------------------------------------------------------------------------
0420 0423 | # | .CONST 0x0423 ; Address of begin
0421 0004 | | .CONST 0x0004 ; Address of exception handler
0422 0001 | | .CONST 0x0001 ; Number of locals
0423 BODY_0420:
0423 INIT_0420:
0423 e237 | 7 | Load 0x1,0x37
0424 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0425 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0426 0000 0000 | | .XXX[0x2]
0428 ; --------------------------------------------------------------------------------------
0428 ; SUBPROGRAM
0428 ; --------------------------------------------------------------------------------------
0428 0435 | 5 | .CONST 0x0435 ; Address of begin
0429 0004 | | .CONST 0x0004 ; Address of exception handler
042a 0005 | | .CONST 0x0005 ; Number of locals
042b INIT_0428:
042b e008 | | Load 0x0,0x8
042c 1937 | 7 | Execute Package,Field_Reference,Field_Number 0x37
042d 00c6 | | Action Check_Subprogram_Elaborated
042e 4ffe |O | Short_Literal -0x2
042f 4802 |H | Short_Literal 0x2
0430 0099 | | Action Reference_Dynamic
0431 e017 | | Load 0x0,0x17
0432 e018 | | Load 0x0,0x18
0433 4805 |H | Short_Literal 0x5
0434 0007 | | Action Break_Optional
0435 BODY_0428:
0435 821e | | Call 0x1,0x1e
0436 4802 |H | Short_Literal 0x2
0437 4802 |H | Short_Literal 0x2
0438 0099 | | Action Reference_Dynamic
0439 4803 |H | Short_Literal 0x3
043a 4802 |H | Short_Literal 0x2
043b 0099 | | Action Reference_Dynamic
043c e008 | | Load 0x0,0x8
043d 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
043e 00e1 | | Load_Encached Boolean_Cache
043f 025e | ^ | Execute Discrete,Convert
0440 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0441 0000 0000 | | .BLANK 0000[0x7]
0448 ; --------------------------------------------------------------------------------------
0448 ; SUBPROGRAM
0448 ; --------------------------------------------------------------------------------------
0448 0455 | U | .CONST 0x0455 ; Address of begin
0449 0004 | | .CONST 0x0004 ; Address of exception handler
044a 0005 | | .CONST 0x0005 ; Number of locals
044b INIT_0448:
044b e008 | | Load 0x0,0x8
044c 1936 | 6 | Execute Package,Field_Reference,Field_Number 0x36
044d 00c6 | | Action Check_Subprogram_Elaborated
044e 4ffe |O | Short_Literal -0x2
044f 4802 |H | Short_Literal 0x2
0450 0099 | | Action Reference_Dynamic
0451 e019 | | Load 0x0,0x19
0452 e01a | | Load 0x0,0x1a
0453 4805 |H | Short_Literal 0x5
0454 0007 | | Action Break_Optional
0455 BODY_0448:
0455 821e | | Call 0x1,0x1e
0456 4802 |H | Short_Literal 0x2
0457 4802 |H | Short_Literal 0x2
0458 0099 | | Action Reference_Dynamic
0459 4803 |H | Short_Literal 0x3
045a 4802 |H | Short_Literal 0x2
045b 0099 | | Action Reference_Dynamic
045c e008 | | Load 0x0,0x8
045d 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
045e e214 | | Load 0x1,0x14
045f 0165 | e | Execute Variant_Record,Convert
0460 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0461 0000 0000 | | .BLANK 0000[0x7]
0468 ; --------------------------------------------------------------------------------------
0468 ; SUBPROGRAM
0468 ; --------------------------------------------------------------------------------------
0468 046b | k | .CONST 0x046b ; Address of begin
0469 0004 | | .CONST 0x0004 ; Address of exception handler
046a 0001 | | .CONST 0x0001 ; Number of locals
046b BODY_0468:
046b INIT_0468:
046b e5fd | | Load 0x2,-0x3
046c 4605 |F | Jump_Case 0x6
046d 7811 |x | Jump 0x47f ; case 0x0
046e 782a |x* | Jump 0x499 ; case 0x1
046f 7843 |xC | Jump 0x4b3 ; case 0x2
0470 781b |x | Jump 0x48c ; case 0x3
0471 7834 |x4 | Jump 0x4a6 ; case 0x4
0472 7800 |x | Jump 0x473 ; case 0x5
0473 00db | | Load_Top At_Offset_3
0474 00d8 | | Load_Top At_Offset_0
0475 e212 | | Load 0x1,0x12
0476 0260 | ` | Execute Discrete,In_Type
0477 7001 |p | Jump_Nonzero 0x479
0478 0801 | | Execute_Immediate Raise,0x1
0479 00db | | Load_Top At_Offset_3
047a 8217 | | Call 0x1,0x17
047b e5fc | | Load 0x2,-0x4
047c 016f | o | Execute Variant_Record,Equal
047d 0f00 | | Execute_Immediate Equal,0x0
047e 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
047f e5fc | | Load 0x2,-0x4
0480 e5fe | | Load 0x2,-0x2
0481 00d8 | | Load_Top At_Offset_0
0482 e212 | | Load 0x1,0x12
0483 0260 | ` | Execute Discrete,In_Type
0484 7001 |p | Jump_Nonzero 0x486
0485 0801 | | Execute_Immediate Raise,0x1
0486 e5ff | | Load 0x2,-0x1
0487 8217 | | Call 0x1,0x17
0488 e003 | | Load 0x0,0x3
0489 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
048a 180f | | Execute Package,Field_Execute,Field_Number 0xf
048b 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
048c e5fc | | Load 0x2,-0x4
048d e5fe | | Load 0x2,-0x2
048e 00d8 | | Load_Top At_Offset_0
048f e212 | | Load 0x1,0x12
0490 0260 | ` | Execute Discrete,In_Type
0491 7001 |p | Jump_Nonzero 0x493
0492 0801 | | Execute_Immediate Raise,0x1
0493 e5ff | | Load 0x2,-0x1
0494 8217 | | Call 0x1,0x17
0495 e003 | | Load 0x0,0x3
0496 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0497 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0498 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0499 e5fc | | Load 0x2,-0x4
049a e5fe | | Load 0x2,-0x2
049b 00d8 | | Load_Top At_Offset_0
049c e212 | | Load 0x1,0x12
049d 0260 | ` | Execute Discrete,In_Type
049e 7001 |p | Jump_Nonzero 0x4a0
049f 0801 | | Execute_Immediate Raise,0x1
04a0 e5ff | | Load 0x2,-0x1
04a1 8217 | | Call 0x1,0x17
04a2 e003 | | Load 0x0,0x3
04a3 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
04a4 180d | | Execute Package,Field_Execute,Field_Number 0xd
04a5 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
04a6 e5fc | | Load 0x2,-0x4
04a7 e5fe | | Load 0x2,-0x2
04a8 00d8 | | Load_Top At_Offset_0
04a9 e212 | | Load 0x1,0x12
04aa 0260 | ` | Execute Discrete,In_Type
04ab 7001 |p | Jump_Nonzero 0x4ad
04ac 0801 | | Execute_Immediate Raise,0x1
04ad e5ff | | Load 0x2,-0x1
04ae 8217 | | Call 0x1,0x17
04af e003 | | Load 0x0,0x3
04b0 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
04b1 180e | | Execute Package,Field_Execute,Field_Number 0xe
04b2 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
04b3 00db | | Load_Top At_Offset_3
04b4 00d8 | | Load_Top At_Offset_0
04b5 e212 | | Load 0x1,0x12
04b6 0260 | ` | Execute Discrete,In_Type
04b7 7001 |p | Jump_Nonzero 0x4b9
04b8 0801 | | Execute_Immediate Raise,0x1
04b9 00db | | Load_Top At_Offset_3
04ba 8217 | | Call 0x1,0x17
04bb e5fc | | Load 0x2,-0x4
04bc 016f | o | Execute Variant_Record,Equal
04bd 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
04be 0000 0000 | | .XXX[0x2]
04c0 ; --------------------------------------------------------------------------------------
04c0 ; SUBPROGRAM
04c0 ; --------------------------------------------------------------------------------------
04c0 04c3 | | .CONST 0x04c3 ; Address of begin
04c1 0004 | | .CONST 0x0004 ; Address of exception handler
04c2 0001 | | .CONST 0x0001 ; Number of locals
04c3 BODY_04c0:
04c3 INIT_04c0:
04c3 4801 |H | Short_Literal 0x1
04c4 4801 |H | Short_Literal 0x1
04c5 e222 | " | Load 0x1,0x22
04c6 035b | [ | Declare_Type Array,Constrained
04c7 0337 | 7 | Declare_Variable Array
04c8 e221 | ! | Load 0x1,0x21
04c9 0322 | " | Declare_Variable Record
04ca e5ff | | Load 0x2,-0x1
04cb 00d9 | | Load_Top At_Offset_1
04cc 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
04cd e5fe | | Load 0x2,-0x2
04ce 00d9 | | Load_Top At_Offset_1
04cf 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
04d0 e5fd | | Load 0x2,-0x3
04d1 00d9 | | Load_Top At_Offset_1
04d2 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
04d3 4801 |H | Short_Literal 0x1
04d4 00da | | Load_Top At_Offset_2
04d5 01d6 | | Execute Vector,Field_Write
04d6 822a | * | Call 0x1,0x2a
04d7 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
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 4801 |H | Short_Literal 0x1
04dc 4802 |H | Short_Literal 0x2
04dd e222 | " | Load 0x1,0x22
04de 035b | [ | Declare_Type Array,Constrained
04df 0337 | 7 | Declare_Variable Array
04e0 e221 | ! | Load 0x1,0x21
04e1 0322 | " | Declare_Variable Record
04e2 e5ff | | Load 0x2,-0x1
04e3 00d9 | | Load_Top At_Offset_1
04e4 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
04e5 e5fe | | Load 0x2,-0x2
04e6 00d9 | | Load_Top At_Offset_1
04e7 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
04e8 e5fd | | Load 0x2,-0x3
04e9 00d9 | | Load_Top At_Offset_1
04ea 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
04eb 4801 |H | Short_Literal 0x1
04ec 00da | | Load_Top At_Offset_2
04ed 01d6 | | Execute Vector,Field_Write
04ee e221 | ! | Load 0x1,0x21
04ef 0322 | " | Declare_Variable Record
04f0 e5fc | | Load 0x2,-0x4
04f1 00d9 | | Load_Top At_Offset_1
04f2 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
04f3 e5fb | | Load 0x2,-0x5
04f4 00d9 | | Load_Top At_Offset_1
04f5 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
04f6 e5fa | | Load 0x2,-0x6
04f7 00d9 | | Load_Top At_Offset_1
04f8 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
04f9 4802 |H | Short_Literal 0x2
04fa 00da | | Load_Top At_Offset_2
04fb 01d6 | | Execute Vector,Field_Write
04fc 822a | * | Call 0x1,0x2a
04fd 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6
04fe 0000 0000 | | .XXX[0x2]
0500 ; --------------------------------------------------------------------------------------
0500 ; SUBPROGRAM
0500 ; --------------------------------------------------------------------------------------
0500 0503 | | .CONST 0x0503 ; Address of begin
0501 0004 | | .CONST 0x0004 ; Address of exception handler
0502 0001 | | .CONST 0x0001 ; Number of locals
0503 BODY_0500:
0503 INIT_0500:
0503 4801 |H | Short_Literal 0x1
0504 4803 |H | Short_Literal 0x3
0505 e222 | " | Load 0x1,0x22
0506 035b | [ | Declare_Type Array,Constrained
0507 0337 | 7 | Declare_Variable Array
0508 e221 | ! | Load 0x1,0x21
0509 0322 | " | Declare_Variable Record
050a e5ff | | Load 0x2,-0x1
050b 00d9 | | Load_Top At_Offset_1
050c 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
050d e5fe | | Load 0x2,-0x2
050e 00d9 | | Load_Top At_Offset_1
050f 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0510 e5fd | | Load 0x2,-0x3
0511 00d9 | | Load_Top At_Offset_1
0512 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0513 4801 |H | Short_Literal 0x1
0514 00da | | Load_Top At_Offset_2
0515 01d6 | | Execute Vector,Field_Write
0516 e221 | ! | Load 0x1,0x21
0517 0322 | " | Declare_Variable Record
0518 e5fc | | Load 0x2,-0x4
0519 00d9 | | Load_Top At_Offset_1
051a 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
051b e5fb | | Load 0x2,-0x5
051c 00d9 | | Load_Top At_Offset_1
051d 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
051e e5fa | | Load 0x2,-0x6
051f 00d9 | | Load_Top At_Offset_1
0520 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0521 4802 |H | Short_Literal 0x2
0522 00da | | Load_Top At_Offset_2
0523 01d6 | | Execute Vector,Field_Write
0524 e221 | ! | Load 0x1,0x21
0525 0322 | " | Declare_Variable Record
0526 e5f9 | | Load 0x2,-0x7
0527 00d9 | | Load_Top At_Offset_1
0528 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0529 e5f8 | | Load 0x2,-0x8
052a 00d9 | | Load_Top At_Offset_1
052b 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
052c e5f7 | | Load 0x2,-0x9
052d 00d9 | | Load_Top At_Offset_1
052e 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
052f 4803 |H | Short_Literal 0x3
0530 00da | | Load_Top At_Offset_2
0531 01d6 | | Execute Vector,Field_Write
0532 822a | * | Call 0x1,0x2a
0533 4409 |D | Exit_Subprogram With_Value,New_Top_Offset 0x9
0534 0000 0000 | | .BLANK 0000[0x4]
0538 ; --------------------------------------------------------------------------------------
0538 ; SUBPROGRAM
0538 ; --------------------------------------------------------------------------------------
0538 053b | ; | .CONST 0x053b ; Address of begin
0539 0004 | | .CONST 0x0004 ; Address of exception handler
053a 0001 | | .CONST 0x0001 ; Number of locals
053b BODY_0538:
053b INIT_0538:
053b 4801 |H | Short_Literal 0x1
053c 4804 |H | Short_Literal 0x4
053d e222 | " | Load 0x1,0x22
053e 035b | [ | Declare_Type Array,Constrained
053f 0337 | 7 | Declare_Variable Array
0540 e221 | ! | Load 0x1,0x21
0541 0322 | " | Declare_Variable Record
0542 e5ff | | Load 0x2,-0x1
0543 00d9 | | Load_Top At_Offset_1
0544 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0545 e5fe | | Load 0x2,-0x2
0546 00d9 | | Load_Top At_Offset_1
0547 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0548 e5fd | | Load 0x2,-0x3
0549 00d9 | | Load_Top At_Offset_1
054a 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
054b 4801 |H | Short_Literal 0x1
054c 00da | | Load_Top At_Offset_2
054d 01d6 | | Execute Vector,Field_Write
054e e221 | ! | Load 0x1,0x21
054f 0322 | " | Declare_Variable Record
0550 e5fc | | Load 0x2,-0x4
0551 00d9 | | Load_Top At_Offset_1
0552 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0553 e5fb | | Load 0x2,-0x5
0554 00d9 | | Load_Top At_Offset_1
0555 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0556 e5fa | | Load 0x2,-0x6
0557 00d9 | | Load_Top At_Offset_1
0558 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0559 4802 |H | Short_Literal 0x2
055a 00da | | Load_Top At_Offset_2
055b 01d6 | | Execute Vector,Field_Write
055c e221 | ! | Load 0x1,0x21
055d 0322 | " | Declare_Variable Record
055e e5f9 | | Load 0x2,-0x7
055f 00d9 | | Load_Top At_Offset_1
0560 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0561 e5f8 | | Load 0x2,-0x8
0562 00d9 | | Load_Top At_Offset_1
0563 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0564 e5f7 | | Load 0x2,-0x9
0565 00d9 | | Load_Top At_Offset_1
0566 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0567 4803 |H | Short_Literal 0x3
0568 00da | | Load_Top At_Offset_2
0569 01d6 | | Execute Vector,Field_Write
056a e221 | ! | Load 0x1,0x21
056b 0322 | " | Declare_Variable Record
056c e5f6 | | Load 0x2,-0xa
056d 00d9 | | Load_Top At_Offset_1
056e 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
056f e5f5 | | Load 0x2,-0xb
0570 00d9 | | Load_Top At_Offset_1
0571 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0572 e5f4 | | Load 0x2,-0xc
0573 00d9 | | Load_Top At_Offset_1
0574 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0575 4804 |H | Short_Literal 0x4
0576 00da | | Load_Top At_Offset_2
0577 01d6 | | Execute Vector,Field_Write
0578 822c | , | Call 0x1,0x2c
0579 440c |D | Exit_Subprogram With_Value,New_Top_Offset 0xc
057a 0000 0000 | | .BLANK 0000[0x6]
0580 ; --------------------------------------------------------------------------------------
0580 ; SUBPROGRAM
0580 ; --------------------------------------------------------------------------------------
0580 0583 | | .CONST 0x0583 ; Address of begin
0581 0004 | | .CONST 0x0004 ; Address of exception handler
0582 0001 | | .CONST 0x0001 ; Number of locals
0583 BODY_0580:
0583 INIT_0580:
0583 4801 |H | Short_Literal 0x1
0584 4805 |H | Short_Literal 0x5
0585 e222 | " | Load 0x1,0x22
0586 035b | [ | Declare_Type Array,Constrained
0587 0337 | 7 | Declare_Variable Array
0588 e221 | ! | Load 0x1,0x21
0589 0322 | " | Declare_Variable Record
058a e5ff | | Load 0x2,-0x1
058b 00d9 | | Load_Top At_Offset_1
058c 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
058d e5fe | | Load 0x2,-0x2
058e 00d9 | | Load_Top At_Offset_1
058f 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0590 e5fd | | Load 0x2,-0x3
0591 00d9 | | Load_Top At_Offset_1
0592 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0593 4801 |H | Short_Literal 0x1
0594 00da | | Load_Top At_Offset_2
0595 01d6 | | Execute Vector,Field_Write
0596 e221 | ! | Load 0x1,0x21
0597 0322 | " | Declare_Variable Record
0598 e5fc | | Load 0x2,-0x4
0599 00d9 | | Load_Top At_Offset_1
059a 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
059b e5fb | | Load 0x2,-0x5
059c 00d9 | | Load_Top At_Offset_1
059d 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
059e e5fa | | Load 0x2,-0x6
059f 00d9 | | Load_Top At_Offset_1
05a0 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
05a1 4802 |H | Short_Literal 0x2
05a2 00da | | Load_Top At_Offset_2
05a3 01d6 | | Execute Vector,Field_Write
05a4 e221 | ! | Load 0x1,0x21
05a5 0322 | " | Declare_Variable Record
05a6 e5f9 | | Load 0x2,-0x7
05a7 00d9 | | Load_Top At_Offset_1
05a8 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
05a9 e5f8 | | Load 0x2,-0x8
05aa 00d9 | | Load_Top At_Offset_1
05ab 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
05ac e5f7 | | Load 0x2,-0x9
05ad 00d9 | | Load_Top At_Offset_1
05ae 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
05af 4803 |H | Short_Literal 0x3
05b0 00da | | Load_Top At_Offset_2
05b1 01d6 | | Execute Vector,Field_Write
05b2 e221 | ! | Load 0x1,0x21
05b3 0322 | " | Declare_Variable Record
05b4 e5f6 | | Load 0x2,-0xa
05b5 00d9 | | Load_Top At_Offset_1
05b6 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
05b7 e5f5 | | Load 0x2,-0xb
05b8 00d9 | | Load_Top At_Offset_1
05b9 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
05ba e5f4 | | Load 0x2,-0xc
05bb 00d9 | | Load_Top At_Offset_1
05bc 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
05bd 4804 |H | Short_Literal 0x4
05be 00da | | Load_Top At_Offset_2
05bf 01d6 | | Execute Vector,Field_Write
05c0 e221 | ! | Load 0x1,0x21
05c1 0322 | " | Declare_Variable Record
05c2 e5f3 | | Load 0x2,-0xd
05c3 00d9 | | Load_Top At_Offset_1
05c4 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
05c5 e5f2 | | Load 0x2,-0xe
05c6 00d9 | | Load_Top At_Offset_1
05c7 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
05c8 e5f1 | | Load 0x2,-0xf
05c9 00d9 | | Load_Top At_Offset_1
05ca 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
05cb 4805 |H | Short_Literal 0x5
05cc 00da | | Load_Top At_Offset_2
05cd 01d6 | | Execute Vector,Field_Write
05ce 822c | , | Call 0x1,0x2c
05cf 440f |D | Exit_Subprogram With_Value,New_Top_Offset 0xf
05d0 ; --------------------------------------------------------------------------------------
05d0 ; SUBPROGRAM
05d0 ; --------------------------------------------------------------------------------------
05d0 05d9 | | .CONST 0x05d9 ; Address of begin
05d1 0004 | | .CONST 0x0004 ; Address of exception handler
05d2 0003 | | .CONST 0x0003 ; Number of locals
05d3 INIT_05d0:
05d3 e214 | | Load 0x1,0x14
05d4 02ff | | Declare_Variable Variant_Record
05d5 e236 | 6 | Load 0x1,0x36
05d6 e002 | | Load 0x0,0x2
05d7 1b0d | | Execute Package,Field_Read,Field_Number 0xd
05d8 1c08 | | Execute_Immediate Run_Utility,0x8
05d9 BODY_05d0:
05d9 00d8 | | Load_Top At_Offset_0
05da 4800 |H | Short_Literal 0x0
05db e002 | | Load 0x0,0x2
05dc 181c | | Execute Package,Field_Execute,Field_Number 0x1c
05dd 00d1 | | Pop_Control Pop_Count_1
05de 00d8 | | Load_Top At_Offset_0
05df e214 | | Load 0x1,0x14
05e0 0162 | b | Execute Variant_Record,Check_In_Type
05e1 00da | | Load_Top At_Offset_2
05e2 016d | m | Execute Variant_Record,Structure_Write
05e3 00d9 | | Load_Top At_Offset_1
05e4 00ca | | Action Exit_Nullary_Function
05e5 0000 0000 | | .XXX[0x3]
05e7 0000 | |
05e8 ; --------------------------------------------------------------------------------------
05e8 ; SUBPROGRAM
05e8 ; --------------------------------------------------------------------------------------
05e8 05eb | | .CONST 0x05eb ; Address of begin
05e9 0004 | | .CONST 0x0004 ; Address of exception handler
05ea 0001 | | .CONST 0x0001 ; Number of locals
05eb BODY_05e8:
05eb INIT_05e8:
05eb e5fe | | Load 0x2,-0x2
05ec e5ff | | Load 0x2,-0x1
05ed 00d8 | | Load_Top At_Offset_0
05ee e212 | | Load 0x1,0x12
05ef 0260 | ` | Execute Discrete,In_Type
05f0 7001 |p | Jump_Nonzero 0x5f2
05f1 0801 | | Execute_Immediate Raise,0x1
05f2 e7ff | | Load 0x3,-0x1
05f3 8217 | | Call 0x1,0x17
05f4 e003 | | Load 0x0,0x3
05f5 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
05f6 180f | | Execute Package,Field_Execute,Field_Number 0xf
05f7 e5fd | | Load 0x2,-0x3
05f8 e5ff | | Load 0x2,-0x1
05f9 00d8 | | Load_Top At_Offset_0
05fa e212 | | Load 0x1,0x12
05fb 0260 | ` | Execute Discrete,In_Type
05fc 7001 |p | Jump_Nonzero 0x5fe
05fd 0801 | | Execute_Immediate Raise,0x1
05fe e7ff | | Load 0x3,-0x1
05ff 8217 | | Call 0x1,0x17
0600 e003 | | Load 0x0,0x3
0601 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0602 180d | | Execute Package,Field_Execute,Field_Number 0xd
0603 0279 | y | Execute Discrete,And
0604 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0605 0000 0000 | | .XXX[0x3]
0607 0000 | |
0608 ; --------------------------------------------------------------------------------------
0608 ; SUBPROGRAM
0608 ; --------------------------------------------------------------------------------------
0608 060b | | .CONST 0x060b ; Address of begin
0609 0004 | | .CONST 0x0004 ; Address of exception handler
060a 0001 | | .CONST 0x0001 ; Number of locals
060b BODY_0608:
060b INIT_0608:
060b 00cf | | Action Mark_Auxiliary
060c e5ff | | Load 0x2,-0x1
060d 01d9 | | Execute Vector,Reverse_Bounds
060e 0263 | c | Execute Discrete,Above_Bound
060f 7018 |p | Jump_Nonzero 0x628
0610 00d8 | | Load_Top At_Offset_0
0611 e5ff | | Load 0x2,-0x1
0612 01d5 | | Execute Vector,Field_Reference
0613 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0614 00d9 | | Load_Top At_Offset_1
0615 e5ff | | Load 0x2,-0x1
0616 01d5 | | Execute Vector,Field_Reference
0617 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0618 00da | | Load_Top At_Offset_2
0619 e5ff | | Load 0x2,-0x1
061a 01d5 | | Execute Vector,Field_Reference
061b 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
061c 00d8 | | Load_Top At_Offset_0
061d e212 | | Load 0x1,0x12
061e 0260 | ` | Execute Discrete,In_Type
061f 7001 |p | Jump_Nonzero 0x621
0620 0801 | | Execute_Immediate Raise,0x1
0621 e7ff | | Load 0x3,-0x1
0622 8238 | 8 | Call 0x1,0x38
0623 7002 |p | Jump_Nonzero 0x626
0624 4800 |H | Short_Literal 0x0
0625 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0626 00c8 | | Action Pop_Auxiliary_Range
0627 3fe8 |? | Loop_Increasing 0x610
0628 00ce | | Action Pop_Auxiliary
0629 4801 |H | Short_Literal 0x1
062a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
062b 0000 0000 | | .BLANK 0000[0x5]
0630 ; --------------------------------------------------------------------------------------
0630 ; SUBPROGRAM
0630 ; --------------------------------------------------------------------------------------
0630 0633 | 3 | .CONST 0x0633 ; Address of begin
0631 0004 | | .CONST 0x0004 ; Address of exception handler
0632 0001 | | .CONST 0x0001 ; Number of locals
0633 BODY_0630:
0633 INIT_0630:
0633 e5fd | | Load 0x2,-0x3
0634 e5fe | | Load 0x2,-0x2
0635 e5ff | | Load 0x2,-0x1
0636 00d8 | | Load_Top At_Offset_0
0637 e212 | | Load 0x1,0x12
0638 0260 | ` | Execute Discrete,In_Type
0639 7001 |p | Jump_Nonzero 0x63b
063a 0801 | | Execute_Immediate Raise,0x1
063b e7ff | | Load 0x3,-0x1
063c 8238 | 8 | Call 0x1,0x38
063d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
063e 0000 0000 | | .XXX[0x2]
0640 ; --------------------------------------------------------------------------------------
0640 ; SUBPROGRAM
0640 ; --------------------------------------------------------------------------------------
0640 0643 | C | .CONST 0x0643 ; Address of begin
0641 0004 | | .CONST 0x0004 ; Address of exception handler
0642 0001 | | .CONST 0x0001 ; Number of locals
0643 BODY_0640:
0643 INIT_0640:
0643 00cf | | Action Mark_Auxiliary
0644 e5ff | | Load 0x2,-0x1
0645 01d9 | | Execute Vector,Reverse_Bounds
0646 0263 | c | Execute Discrete,Above_Bound
0647 7018 |p | Jump_Nonzero 0x660
0648 00d8 | | Load_Top At_Offset_0
0649 e5ff | | Load 0x2,-0x1
064a 01d5 | | Execute Vector,Field_Reference
064b 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
064c 00d9 | | Load_Top At_Offset_1
064d e5ff | | Load 0x2,-0x1
064e 01d5 | | Execute Vector,Field_Reference
064f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0650 00da | | Load_Top At_Offset_2
0651 e5ff | | Load 0x2,-0x1
0652 01d5 | | Execute Vector,Field_Reference
0653 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0654 00d8 | | Load_Top At_Offset_0
0655 e212 | | Load 0x1,0x12
0656 0260 | ` | Execute Discrete,In_Type
0657 7001 |p | Jump_Nonzero 0x659
0658 0801 | | Execute_Immediate Raise,0x1
0659 e7ff | | Load 0x3,-0x1
065a 8238 | 8 | Call 0x1,0x38
065b 7002 |p | Jump_Nonzero 0x65e
065c 4800 |H | Short_Literal 0x0
065d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
065e 00c8 | | Action Pop_Auxiliary_Range
065f 3fe8 |? | Loop_Increasing 0x648
0660 00ce | | Action Pop_Auxiliary
0661 4801 |H | Short_Literal 0x1
0662 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0663 0000 0000 | | .BLANK 0000[0x5]
0668 ; --------------------------------------------------------------------------------------
0668 ; SUBPROGRAM
0668 ; --------------------------------------------------------------------------------------
0668 066b | k | .CONST 0x066b ; Address of begin
0669 0004 | | .CONST 0x0004 ; Address of exception handler
066a 0001 | | .CONST 0x0001 ; Number of locals
066b BODY_0668:
066b INIT_0668:
066b e5ff | | Load 0x2,-0x1
066c 00d8 | | Load_Top At_Offset_0
066d e212 | | Load 0x1,0x12
066e 0260 | ` | Execute Discrete,In_Type
066f 7001 |p | Jump_Nonzero 0x671
0670 0801 | | Execute_Immediate Raise,0x1
0671 e7fe | | Load 0x3,-0x2
0672 8217 | | Call 0x1,0x17
0673 e5ff | | Load 0x2,-0x1
0674 00d8 | | Load_Top At_Offset_0
0675 e212 | | Load 0x1,0x12
0676 0260 | ` | Execute Discrete,In_Type
0677 7001 |p | Jump_Nonzero 0x679
0678 0801 | | Execute_Immediate Raise,0x1
0679 e7ff | | Load 0x3,-0x1
067a 8217 | | Call 0x1,0x17
067b e003 | | Load 0x0,0x3
067c 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
067d 180d | | Execute Package,Field_Execute,Field_Number 0xd
067e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
067f 0000 | | .XXX[0x1]
0680 ; --------------------------------------------------------------------------------------
0680 ; SUBPROGRAM
0680 ; --------------------------------------------------------------------------------------
0680 0683 | | .CONST 0x0683 ; Address of begin
0681 0004 | | .CONST 0x0004 ; Address of exception handler
0682 0001 | | .CONST 0x0001 ; Number of locals
0683 BODY_0680:
0683 INIT_0680:
0683 e5ff | | Load 0x2,-0x1
0684 00d8 | | Load_Top At_Offset_0
0685 e212 | | Load 0x1,0x12
0686 0260 | ` | Execute Discrete,In_Type
0687 7001 |p | Jump_Nonzero 0x689
0688 0801 | | Execute_Immediate Raise,0x1
0689 e7fe | | Load 0x3,-0x2
068a 8217 | | Call 0x1,0x17
068b e5ff | | Load 0x2,-0x1
068c 00d8 | | Load_Top At_Offset_0
068d e212 | | Load 0x1,0x12
068e 0260 | ` | Execute Discrete,In_Type
068f 7001 |p | Jump_Nonzero 0x691
0690 0801 | | Execute_Immediate Raise,0x1
0691 e7ff | | Load 0x3,-0x1
0692 8217 | | Call 0x1,0x17
0693 e003 | | Load 0x0,0x3
0694 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0695 180f | | Execute Package,Field_Execute,Field_Number 0xf
0696 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0697 0000 | | .XXX[0x1]
0698 ; --------------------------------------------------------------------------------------
0698 ; SUBPROGRAM
0698 ; --------------------------------------------------------------------------------------
0698 069b | | .CONST 0x069b ; Address of begin
0699 0004 | | .CONST 0x0004 ; Address of exception handler
069a 0001 | | .CONST 0x0001 ; Number of locals
069b BODY_0698:
069b INIT_0698:
069b 4608 |F | Jump_Case 0x9
069c 7808 |x | Jump 0x6a5 ; case 0x0
069d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
069e 780a |x | Jump 0x6a9 ; case 0x2
069f 7809 |x | Jump 0x6a9 ; case 0x3
06a0 7808 |x | Jump 0x6a9 ; case 0x4
06a1 7807 |x | Jump 0x6a9 ; case 0x5
06a2 7806 |x | Jump 0x6a9 ; case 0x6
06a3 7805 |x | Jump 0x6a9 ; case 0x7
06a4 7804 |x | Jump 0x6a9 ; case 0x8
06a5 00da | | Load_Top At_Offset_2
06a6 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
06a7 1c00 | | Execute_Immediate Run_Utility,0x0
06a8 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
06a9 0869 | i | Execute_Immediate Raise,0x69
06aa ; --------------------------------------------------------------------------------------
06aa ; STRING TABLE
06aa ; --------------------------------------------------------------------------------------
06aa 000e | | .STRTAB 0x000e->0x06b1 ; "GREATER"
06ab 0013 | | .STRTAB 0x0013->0x06b4 ; "LESS"
06ac 0015 | | .STRTAB 0x0015->0x06b6 ; "EQUAL"
06ad 0018 | | .STRTAB 0x0018->0x06b9 ; "GREATER_EQUAL"
06ae 0023 | # | .STRTAB 0x0023->0x06bf ; "LESS_EQUAL"
06af 002b | + | .STRTAB 0x002b->0x06c4 ; "NOT_EQUAL"
06b0 0032 | 2 | .STREND 0x0032->0x06c9
06b1 4752 4541 |GREA| .STRTAB_STRINGS
06c9 0000 0000 | | .BLANK 0000[0x7]
06d0 ; --------------------------------------------------------------------------------------
06d0 ; Debug Table
06d0 ; --------------------------------------------------------------------------------------
06d0 0004 0001 | | .DEBUG4 0x0004,0x0001,0xdf12,0x0000,0x0001,0x002e
06d6 000b 078e | | .DBG4T 0x000b,0x078e,0xc000,0x0000
06da 00b5 07b2 | | .DBG4T 0x00b5,0x07b2,0xc000,0x0000
06de 010b 0000 | | .DBG4T 0x010b,0x0000,0x1005,0x0000
06e2 0123 0000 | # | .DBG4T 0x0123,0x0000,0x1005,0x0000
06e6 013b 07d6 | ; | .DBG4T 0x013b,0x07d6,0x1002,0x0000
06ea 014b 07d9 | K | .DBG4T 0x014b,0x07d9,0x1001,0x0000
06ee 016b 07e1 | k | .DBG4T 0x016b,0x07e1,0x1001,0x0000
06f2 017b 07e5 | { | .DBG4T 0x017b,0x07e5,0x1001,0x0000
06f6 0193 07ea | | .DBG4T 0x0193,0x07ea,0x1001,0x0000
06fa 019b 07ed | | .DBG4T 0x019b,0x07ed,0x1001,0x0000
06fe 01a3 07f0 | | .DBG4T 0x01a3,0x07f0,0x1002,0x0000
0702 01ab 07f3 | | .DBG4T 0x01ab,0x07f3,0x1002,0x0000
0706 01b3 0000 | | .DBG4T 0x01b3,0x0000,0x1005,0x0000
070a 01db 0000 | | .DBG4T 0x01db,0x0000,0x1005,0x0000
070e 01f3 07f6 | | .DBG4T 0x01f3,0x07f6,0x1002,0x0000
0712 0213 07fb | | .DBG4T 0x0213,0x07fb,0x1002,0x0000
0716 022b 0802 | + | .DBG4T 0x022b,0x0802,0x1002,0x0000
071a 0243 0805 | C | .DBG4T 0x0243,0x0805,0x1002,0x0000
071e 026b 0808 | k | .DBG4T 0x026b,0x0808,0x1002,0x0000
0722 02b3 080b | | .DBG4T 0x02b3,0x080b,0x1002,0x0000
0726 02eb 080e | | .DBG4T 0x02eb,0x080e,0x1002,0x0000
072a 033b 0811 | ; | .DBG4T 0x033b,0x0811,0x1002,0x0000
072e 0383 081f | | .DBG4T 0x0383,0x081f,0x1002,0x0000
0732 03ab 0824 | $| .DBG4T 0x03ab,0x0824,0x1002,0x0000
0736 03cb 0829 | )| .DBG4T 0x03cb,0x0829,0x1002,0x0000
073a 03eb 082e | .| .DBG4T 0x03eb,0x082e,0x1002,0x0000
073e 040b 0833 | 3| .DBG4T 0x040b,0x0833,0x1001,0x0000
0742 0413 0836 | 6| .DBG4T 0x0413,0x0836,0x1001,0x0000
0746 041b 0839 | 9| .DBG4T 0x041b,0x0839,0x1001,0x0000
074a 0423 083c | # <| .DBG4T 0x0423,0x083c,0x1001,0x0000
074e 042b 083f | + ?| .DBG4T 0x042b,0x083f,0x3802,0x0002
0752 044b 0843 | K C| .DBG4T 0x044b,0x0843,0x3802,0x0002
0756 046b 0847 | k G| .DBG4T 0x046b,0x0847,0x1002,0x4000
075a 04c3 0857 | W| .DBG4T 0x04c3,0x0857,0x1002,0x0000
075e 04db 085a | Z| .DBG4T 0x04db,0x085a,0x1002,0x0000
0762 0503 085d | ]| .DBG4T 0x0503,0x085d,0x1002,0x0000
0766 053b 0860 | ; `| .DBG4T 0x053b,0x0860,0x1002,0x0000
076a 0583 0863 | c| .DBG4T 0x0583,0x0863,0x1002,0x0000
076e 05d3 0866 | f| .DBG4T 0x05d3,0x0866,0x1002,0x0000
0772 05eb 086d | m| .DBG4T 0x05eb,0x086d,0x1002,0x0000
0776 060b 0870 | p| .DBG4T 0x060b,0x0870,0x1002,0x0000
077a 0633 0876 | 3 v| .DBG4T 0x0633,0x0876,0x1002,0x0000
077e 0643 0879 | C y| .DBG4T 0x0643,0x0879,0x1002,0x0000
0782 066b 087f | k | .DBG4T 0x066b,0x087f,0x1002,0x0000
0786 0683 0882 | | .DBG4T 0x0683,0x0882,0x1002,0x0000
078a 069b 0000 | | .DBG4T 0x069b,0x0000,0x1005,0x0000
078e ; --------------------------------------------------------------------------------------
078e ; Debug chain
078e ; --------------------------------------------------------------------------------------
078e 0022 0000 | " | .DBGLEN 0x0022,0x0000
0790 002f 0035 | / 5| .DBGLNO 0x002f,0x0035,0x003b,0x0044,0x004c,0x004f,0x0052,0x0055,0x0058,0x005b,0x005e,0x0061,0x0064,0x006a,0x0073,0x007b,0x007e,0x0081,0x0084,0x0087,0x008a,0x008d,0x0090,0x0093,0x0096,0x0099,0x009c,0x009f,0x00a2,0x00a5,0x00a8,0x00ab,0x00ae,0x00b1
07b2 ; --------------------------------------------------------------------------------------
07b2 ; Debug chain
07b2 ; --------------------------------------------------------------------------------------
07b2 0022 0000 | " | .DBGLEN 0x0022,0x0000
07b4 00b5 00c3 | | .DBGLNO 0x00b5,0x00c3,0x00c5,0x00c7,0x00c9,0x00cb,0x00cd,0x00cf,0x00d1,0x00d3,0x00d5,0x00d7,0x00d9,0x00db,0x00dd,0x00df,0x00e1,0x00e3,0x00e5,0x00e7,0x00e9,0x00eb,0x00ed,0x00ef,0x00f1,0x00f3,0x00f5,0x00f7,0x00f9,0x00fb,0x00fd,0x00ff,0x0101,0x0103
07d6 ; --------------------------------------------------------------------------------------
07d6 ; Debug chain
07d6 ; --------------------------------------------------------------------------------------
07d6 0000 0001 | | .DBGLEN 0x0000,0x0001
07d8 013b | ; | .DBGLNO 0x013b
07d9 ; --------------------------------------------------------------------------------------
07d9 ; Debug chain
07d9 ; --------------------------------------------------------------------------------------
07d9 0001 0005 | | .DBGLEN 0x0001,0x0005
07db 014b 014f | K O| .DBGLNO 0x014b,0x014f,0x0154,0x015b,0x015f,0x0164
07e1 ; --------------------------------------------------------------------------------------
07e1 ; Debug chain
07e1 ; --------------------------------------------------------------------------------------
07e1 0001 0001 | | .DBGLEN 0x0001,0x0001
07e3 016b 016d | k m| .DBGLNO 0x016b,0x016d
07e5 ; --------------------------------------------------------------------------------------
07e5 ; Debug chain
07e5 ; --------------------------------------------------------------------------------------
07e5 0001 0002 | | .DBGLEN 0x0001,0x0002
07e7 017b 017e | { ~| .DBGLNO 0x017b,0x017e,0x0182
07ea ; --------------------------------------------------------------------------------------
07ea ; Debug chain
07ea ; --------------------------------------------------------------------------------------
07ea 0000 0001 | | .DBGLEN 0x0000,0x0001
07ec 0193 | | .DBGLNO 0x0193
07ed ; --------------------------------------------------------------------------------------
07ed ; Debug chain
07ed ; --------------------------------------------------------------------------------------
07ed 0000 0001 | | .DBGLEN 0x0000,0x0001
07ef 019b | | .DBGLNO 0x019b
07f0 ; --------------------------------------------------------------------------------------
07f0 ; Debug chain
07f0 ; --------------------------------------------------------------------------------------
07f0 0000 0001 | | .DBGLEN 0x0000,0x0001
07f2 01a3 | | .DBGLNO 0x01a3
07f3 ; --------------------------------------------------------------------------------------
07f3 ; Debug chain
07f3 ; --------------------------------------------------------------------------------------
07f3 0000 0001 | | .DBGLEN 0x0000,0x0001
07f5 01ab | | .DBGLNO 0x01ab
07f6 ; --------------------------------------------------------------------------------------
07f6 ; Debug chain
07f6 ; --------------------------------------------------------------------------------------
07f6 0002 0001 | | .DBGLEN 0x0002,0x0001
07f8 01f3 01f5 | | .DBGLNO 0x01f3,0x01f5,0x01ff
07fb ; --------------------------------------------------------------------------------------
07fb ; Debug chain
07fb ; --------------------------------------------------------------------------------------
07fb 0001 0004 | | .DBGLEN 0x0001,0x0004
07fd 0213 0218 | | .DBGLNO 0x0213,0x0218,0x021c,0x0220,0x0222
0802 ; --------------------------------------------------------------------------------------
0802 ; Debug chain
0802 ; --------------------------------------------------------------------------------------
0802 0000 0001 | | .DBGLEN 0x0000,0x0001
0804 022b | + | .DBGLNO 0x022b
0805 ; --------------------------------------------------------------------------------------
0805 ; Debug chain
0805 ; --------------------------------------------------------------------------------------
0805 0000 0001 | | .DBGLEN 0x0000,0x0001
0807 0243 | C | .DBGLNO 0x0243
0808 ; --------------------------------------------------------------------------------------
0808 ; Debug chain
0808 ; --------------------------------------------------------------------------------------
0808 0000 0001 | | .DBGLEN 0x0000,0x0001
080a 026b | k | .DBGLNO 0x026b
080b ; --------------------------------------------------------------------------------------
080b ; Debug chain
080b ; --------------------------------------------------------------------------------------
080b 0000 0001 | | .DBGLEN 0x0000,0x0001
080d 02b3 | | .DBGLNO 0x02b3
080e ; --------------------------------------------------------------------------------------
080e ; Debug chain
080e ; --------------------------------------------------------------------------------------
080e 0000 0001 | | .DBGLEN 0x0000,0x0001
0810 02eb | | .DBGLNO 0x02eb
0811 ; --------------------------------------------------------------------------------------
0811 ; Debug chain
0811 ; --------------------------------------------------------------------------------------
0811 0006 0006 | | .DBGLEN 0x0006,0x0006
0813 033b 033d | ; =| .DBGLNO 0x033b,0x033d,0x033f,0x0343,0x0345,0x034f,0x0359,0x0363,0x0365,0x0371,0x0376,0x037b
081f ; --------------------------------------------------------------------------------------
081f ; Debug chain
081f ; --------------------------------------------------------------------------------------
081f 0002 0001 | | .DBGLEN 0x0002,0x0001
0821 0383 0385 | | .DBGLNO 0x0383,0x0385,0x038f
0824 ; --------------------------------------------------------------------------------------
0824 ; Debug chain
0824 ; --------------------------------------------------------------------------------------
0824 0002 0001 | | .DBGLEN 0x0002,0x0001
0826 03ab 03ad | | .DBGLNO 0x03ab,0x03ad,0x03b7
0829 ; --------------------------------------------------------------------------------------
0829 ; Debug chain
0829 ; --------------------------------------------------------------------------------------
0829 0002 0001 | | .DBGLEN 0x0002,0x0001
082b 03cb 03cd | | .DBGLNO 0x03cb,0x03cd,0x03d7
082e ; --------------------------------------------------------------------------------------
082e ; Debug chain
082e ; --------------------------------------------------------------------------------------
082e 0002 0001 | | .DBGLEN 0x0002,0x0001
0830 03eb 03ed | | .DBGLNO 0x03eb,0x03ed,0x03f7
0833 ; --------------------------------------------------------------------------------------
0833 ; Debug chain
0833 ; --------------------------------------------------------------------------------------
0833 0000 0001 | | .DBGLEN 0x0000,0x0001
0835 040b | | .DBGLNO 0x040b
0836 ; --------------------------------------------------------------------------------------
0836 ; Debug chain
0836 ; --------------------------------------------------------------------------------------
0836 0000 0001 | | .DBGLEN 0x0000,0x0001
0838 0413 | | .DBGLNO 0x0413
0839 ; --------------------------------------------------------------------------------------
0839 ; Debug chain
0839 ; --------------------------------------------------------------------------------------
0839 0000 0001 | | .DBGLEN 0x0000,0x0001
083b 041b | | .DBGLNO 0x041b
083c ; --------------------------------------------------------------------------------------
083c ; Debug chain
083c ; --------------------------------------------------------------------------------------
083c 0000 0001 | | .DBGLEN 0x0000,0x0001
083e 0423 | # | .DBGLNO 0x0423
083f ; --------------------------------------------------------------------------------------
083f ; Debug chain
083f ; --------------------------------------------------------------------------------------
083f 0001 0001 | | .DBGLEN 0x0001,0x0001
0841 042b 0435 | + 5| .DBGLNO 0x042b,0x0435
0843 ; --------------------------------------------------------------------------------------
0843 ; Debug chain
0843 ; --------------------------------------------------------------------------------------
0843 0001 0001 | | .DBGLEN 0x0001,0x0001
0845 044b 0455 | K U| .DBGLNO 0x044b,0x0455
0847 ; --------------------------------------------------------------------------------------
0847 ; Debug chain
0847 ; --------------------------------------------------------------------------------------
0847 0000 0007 | | .DBGLEN 0x0000,0x0007
0849 046b 0473 | k s| .DBGLNO 0x046b,0x0473,0x047f,0x048c,0x0499,0x04a6,0x04b3
0850 0001 0007 | | .XXX[0x7]
0852 0002 0003 | |
0854 0004 0005 | |
0856 0006 | |
0857 ; --------------------------------------------------------------------------------------
0857 ; Debug chain
0857 ; --------------------------------------------------------------------------------------
0857 0000 0001 | | .DBGLEN 0x0000,0x0001
0859 04c3 | | .DBGLNO 0x04c3
085a ; --------------------------------------------------------------------------------------
085a ; Debug chain
085a ; --------------------------------------------------------------------------------------
085a 0000 0001 | | .DBGLEN 0x0000,0x0001
085c 04db | | .DBGLNO 0x04db
085d ; --------------------------------------------------------------------------------------
085d ; Debug chain
085d ; --------------------------------------------------------------------------------------
085d 0000 0001 | | .DBGLEN 0x0000,0x0001
085f 0503 | | .DBGLNO 0x0503
0860 ; --------------------------------------------------------------------------------------
0860 ; Debug chain
0860 ; --------------------------------------------------------------------------------------
0860 0000 0001 | | .DBGLEN 0x0000,0x0001
0862 053b | ; | .DBGLNO 0x053b
0863 ; --------------------------------------------------------------------------------------
0863 ; Debug chain
0863 ; --------------------------------------------------------------------------------------
0863 0000 0001 | | .DBGLEN 0x0000,0x0001
0865 0583 | | .DBGLNO 0x0583
0866 ; --------------------------------------------------------------------------------------
0866 ; Debug chain
0866 ; --------------------------------------------------------------------------------------
0866 0002 0003 | | .DBGLEN 0x0002,0x0003
0868 05d3 05d5 | | .DBGLNO 0x05d3,0x05d5,0x05d9,0x05de,0x05e3
086d ; --------------------------------------------------------------------------------------
086d ; Debug chain
086d ; --------------------------------------------------------------------------------------
086d 0000 0001 | | .DBGLEN 0x0000,0x0001
086f 05eb | | .DBGLNO 0x05eb
0870 ; --------------------------------------------------------------------------------------
0870 ; Debug chain
0870 ; --------------------------------------------------------------------------------------
0870 0000 0004 | | .DBGLEN 0x0000,0x0004
0872 060c 0610 | | .DBGLNO 0x060c,0x0610,0x0624,0x0629
0876 ; --------------------------------------------------------------------------------------
0876 ; Debug chain
0876 ; --------------------------------------------------------------------------------------
0876 0000 0001 | | .DBGLEN 0x0000,0x0001
0878 0633 | 3 | .DBGLNO 0x0633
0879 ; --------------------------------------------------------------------------------------
0879 ; Debug chain
0879 ; --------------------------------------------------------------------------------------
0879 0000 0004 | | .DBGLEN 0x0000,0x0004
087b 0644 0648 | D H| .DBGLNO 0x0644,0x0648,0x065c,0x0661
087f ; --------------------------------------------------------------------------------------
087f ; Debug chain
087f ; --------------------------------------------------------------------------------------
087f 0000 0001 | | .DBGLEN 0x0000,0x0001
0881 066b | k | .DBGLNO 0x066b
0882 ; --------------------------------------------------------------------------------------
0882 ; Debug chain
0882 ; --------------------------------------------------------------------------------------
0882 0000 0001 | | .DBGLEN 0x0000,0x0001
0884 0683 | | .DBGLNO 0x0683
0885 0000 0000 | | .BLANK 0000[0x17b]