|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 4096 (0x1000)
Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_65acc1
└─⟦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 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0570 | p | .CONST 0x0570 ; 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 0003 | | .CONST 0x0003 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 00ae | | .CONST 0x00ae ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0030 | 0 | .CONST 0x0030 ; Number of locals
000b INIT_0008:
000b 4800 |H | Short_Literal 0x0
000c 4802 |H | Short_Literal 0x2
000d 029f 00cb | | Declare_Subprogram INIT_00c8,For_Call
000f 03fe | | Declare_Type Discrete,Defined,Visible
0010 029a 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call,Visible,Unelaborated
0012 029a 010b | | Declare_Subprogram INIT_0108,For_Outer_Call,Visible,Unelaborated
0014 029a 012b | +| Declare_Subprogram INIT_0128,For_Outer_Call,Visible,Unelaborated
0016 029a 013b | ;| Declare_Subprogram INIT_0138,For_Outer_Call,Visible,Unelaborated
0018 029a 014b | K| Declare_Subprogram INIT_0148,For_Outer_Call,Visible,Unelaborated
001a 00e2 | | Load_Encached Integer_Cache
001b 0266 | f | Execute Discrete,Bounds
001c 00e4 | | Load_Encached Positive_Cache
001d 02a0 | | Declare_Subprogram Null_Subprogram
001e 4801 |H | Short_Literal 0x1
001f 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object
0020 029a 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call,Visible,Unelaborated
0022 029a 019b | | Declare_Subprogram INIT_0198,For_Outer_Call,Visible,Unelaborated
0024 00bf | | Action Accept_Activation
0025 4801 |H | Short_Literal 0x1
0026 e20e | | Load 0x1,0xe
0027 00e3 | | Load_Encached Natural_Cache
0028 03f8 | | Declare_Type Discrete,Constrained
0029 4801 |H | Short_Literal 0x1
002a 00d9 | | Load_Top At_Offset_1
002b 0269 | i | Execute Discrete,Last
002c 00e3 | | Load_Encached Natural_Cache
002d 02a0 | | Declare_Subprogram Null_Subprogram
002e 4801 |H | Short_Literal 0x1
002f 035d | ] | Declare_Type Array,Defined
0030 00e9 | | Load_Encached String_Cache
0031 02a0 | | Declare_Subprogram Null_Subprogram
0032 4818 |H | Short_Literal 0x18
0033 03d3 | | Declare_Type Access,Defined,Accesses_Protected
0034 00e3 | | Load_Encached Natural_Cache
0035 4800 |H | Short_Literal 0x0
0036 4801 |H | Short_Literal 0x1
0037 4801 |H | Short_Literal 0x1
0038 4803 |H | Short_Literal 0x3
0039 0318 | | Declare_Type Variant_Record,Incomplete
003a 029f 01db | | Declare_Subprogram INIT_01d8,For_Call
003c 00d9 | | Load_Top At_Offset_1
003d 012a | * | Execute Any,Change_Utility
003e 0007 | | Action Break_Optional
003f 00d8 | | Load_Top At_Offset_0
0040 02a0 | | Declare_Subprogram Null_Subprogram
0041 4818 |H | Short_Literal 0x18
0042 03d3 | | Declare_Type Access,Defined,Accesses_Protected
0043 00d8 | | Load_Top At_Offset_0
0044 00e9 | | Load_Encached String_Cache
0045 029f 01db | | Declare_Subprogram INIT_01d8,For_Call
0047 4800 |H | Short_Literal 0x0
0048 4801 |H | Short_Literal 0x1
0049 4801 |H | Short_Literal 0x1
004a e21c | | Load 0x1,0x1c
004b 0307 | | Complete_Type Variant_Record,By_Defining
004c 00d8 | | Load_Top At_Offset_0
004d 03c4 | | Complete_Type Access,By_Component_Completion
004e 4801 |H | Short_Literal 0x1
004f e219 | | Load 0x1,0x19
0050 0269 | i | Execute Discrete,Last
0051 00da | | Load_Top At_Offset_2
0052 02a0 | | Declare_Subprogram Null_Subprogram
0053 4801 |H | Short_Literal 0x1
0054 035d | ] | Declare_Type Array,Defined
0055 4818 |H | Short_Literal 0x18
0056 03cc | | Declare_Type Access,Incomplete,Accesses_Protected
0057 00e2 | | Load_Encached Integer_Cache
0058 0266 | f | Execute Discrete,Bounds
0059 00da | | Load_Top At_Offset_2
005a 02a0 | | Declare_Subprogram Null_Subprogram
005b 4801 |H | Short_Literal 0x1
005c 0350 | P | Declare_Type Array,Defined,Bounds_With_Object
005d 00d9 | | Load_Top At_Offset_1
005e 0007 | | Action Break_Optional
005f 00db | | Load_Top At_Offset_3
0060 e21a | | Load 0x1,0x1a
0061 e21f | | Load 0x1,0x1f
0062 029f 021b | | Declare_Subprogram INIT_0218,For_Call
0064 4803 |H | Short_Literal 0x3
0065 032d | - | Declare_Type Record,Defined
0066 00d8 | | Load_Top At_Offset_0
0067 02a0 | | Declare_Subprogram Null_Subprogram
0068 e21f | | Load 0x1,0x1f
0069 03c7 | | Complete_Type Access,By_Defining
006a e219 | | Load 0x1,0x19
006b 0269 | i | Execute Discrete,Last
006c e219 | | Load 0x1,0x19
006d 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
006e 00e1 | | Load_Encached Boolean_Cache
006f 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0070 e21a | | Load 0x1,0x1a
0071 0337 | 7 | Declare_Variable Array
0072 00d8 | | Load_Top At_Offset_0
0073 0335 | 5 | Declare_Variable Array,Duplicate
0074 00cd | | Action Spare6_Action
0075 00d9 | | Load_Top At_Offset_1
0076 01d9 | | Execute Vector,Reverse_Bounds
0077 0263 | c | Execute Discrete,Above_Bound
0078 7005 |p | Jump_Nonzero 0x7e
0079 4800 |H | Short_Literal 0x0
007a 00d9 | | Load_Top At_Offset_1
007b e226 | & | Load 0x1,0x26
007c 01d6 | | Execute Vector,Field_Write
007d 3ffb |? | Loop_Increasing 0x79
007e 00d9 | | Load_Top At_Offset_1
007f 01d4 | | Execute Vector,Structure_Write
0080 4801 |H | Short_Literal 0x1
0081 e219 | | Load 0x1,0x19
0082 0269 | i | Execute Discrete,Last
0083 e21b | | Load 0x1,0x1b
0084 02a0 | | Declare_Subprogram Null_Subprogram
0085 4801 |H | Short_Literal 0x1
0086 035d | ] | Declare_Type Array,Defined
0087 00d8 | | Load_Top At_Offset_0
0088 0337 | 7 | Declare_Variable Array
0089 00e3 | | Load_Encached Natural_Cache
008a 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
008b 4801 |H | Short_Literal 0x1
008c e219 | | Load 0x1,0x19
008d 0269 | i | Execute Discrete,Last
008e e210 | | Load 0x1,0x10
008f 02a0 | | Declare_Subprogram Null_Subprogram
0090 4801 |H | Short_Literal 0x1
0091 035d | ] | Declare_Type Array,Defined
0092 00d8 | | Load_Top At_Offset_0
0093 0337 | 7 | Declare_Variable Array
0094 029d 023b | ;| Declare_Subprogram INIT_0238,For_Outer_Call
0096 029d 024b | K| Declare_Subprogram INIT_0248,For_Outer_Call
0098 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0099 00c7 | | Action Elaborate_Subprogram
009a 1d11 | | Execute_Immediate Reference_Lex_1,0x11
009b 00c7 | | Action Elaborate_Subprogram
009c 1d13 | | Execute_Immediate Reference_Lex_1,0x13
009d 00c7 | | Action Elaborate_Subprogram
009e 1d14 | | Execute_Immediate Reference_Lex_1,0x14
009f 00c7 | | Action Elaborate_Subprogram
00a0 029d 0293 | | Declare_Subprogram INIT_0290,For_Outer_Call
00a2 1d15 | | Execute_Immediate Reference_Lex_1,0x15
00a3 00c7 | | Action Elaborate_Subprogram
00a4 029d 02ab | | Declare_Subprogram INIT_02a8,For_Outer_Call
00a6 029d 032b | +| Declare_Subprogram INIT_0328,For_Outer_Call
00a8 029d 0343 | C| Declare_Subprogram INIT_0340,For_Outer_Call
00aa 1d17 | | Execute_Immediate Reference_Lex_1,0x17
00ab 00c7 | | Action Elaborate_Subprogram
00ac 1d18 | | Execute_Immediate Reference_Lex_1,0x18
00ad 00c7 | | Action Elaborate_Subprogram
00ae BODY_0008:
00ae 00cf | | Action Mark_Auxiliary
00af e219 | | Load 0x1,0x19
00b0 0269 | i | Execute Discrete,Last
00b1 4801 |H | Short_Literal 0x1
00b2 0263 | c | Execute Discrete,Above_Bound
00b3 700c |p | Jump_Nonzero 0xc0
00b4 4800 |H | Short_Literal 0x0
00b5 00d9 | | Load_Top At_Offset_1
00b6 e22a | * | Load 0x1,0x2a
00b7 01d6 | | Execute Vector,Field_Write
00b8 00ea | | Load_Encached Null_String_Cache
00b9 e21b | | Load 0x1,0x1b
00ba 03b6 | | Declare_Variable Access,By_Allocation,With_Value
00bb 00d9 | | Load_Top At_Offset_1
00bc e227 | ' | Load 0x1,0x27
00bd 01d6 | | Execute Vector,Field_Write
00be 00c8 | | Action Pop_Auxiliary_Range
00bf 3ff4 |? | Loop_Increasing 0xb4
00c0 00ce | | Action Pop_Auxiliary
00c1 00bc | | Action Signal_Activated
00c2 00bb | | Action Signal_Completion
00c3 0000 0000 | | .BLANK 0000[0x5]
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00cb | | .CONST 0x00cb ; Address of begin
00c9 0004 | | .CONST 0x0004 ; Address of exception handler
00ca 0001 | | .CONST 0x0001 ; Number of locals
00cb BODY_00c8:
00cb INIT_00c8:
00cb 4607 |F | Jump_Case 0x8
00cc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
00cd 7807 |x | Jump 0xd5 ; case 0x1
00ce 780a |x | Jump 0xd9 ; case 0x2
00cf 780e |x | Jump 0xde ; case 0x3
00d0 7811 |x | Jump 0xe2 ; case 0x4
00d1 7812 |x | Jump 0xe4 ; case 0x5
00d2 7813 |x | Jump 0xe6 ; case 0x6
00d3 7816 |x | Jump 0xea ; case 0x7
00d4 4302 |C | .XXX[0x1]
00d5 00da | | Load_Top At_Offset_2
00d6 0091 0559 | Y| Action Push_String_Extended_Indexed,0x559 ; "LEFT"
00d8 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00d9 00db | | Load_Top At_Offset_3
00da 00db | | Load_Top At_Offset_3
00db 00e0 | | Load_Encached Standard_Cache
00dc 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00dd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00de 00da | | Load_Top At_Offset_2
00df 00e0 | | Load_Encached Standard_Cache
00e0 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00e1 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00e2 00db | | Load_Top At_Offset_3
00e3 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00e4 00db | | Load_Top At_Offset_3
00e5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00e6 e210 | | Load 0x1,0x10
00e7 00dc | | Load_Top At_Offset_4
00e8 0267 | g | Execute Discrete,Predecessor
00e9 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00ea e210 | | Load 0x1,0x10
00eb 00dc | | Load_Top At_Offset_4
00ec 0268 | h | Execute Discrete,Successor
00ed 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00ee 0000 0000 | | .XXX[0x2]
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 00f3 | | .CONST 0x00f3 ; Address of begin
00f1 0004 | | .CONST 0x0004 ; Address of exception handler
00f2 0001 | | .CONST 0x0001 ; Number of locals
00f3 BODY_00f0:
00f3 INIT_00f0:
00f3 e228 | ( | Load 0x1,0x28
00f4 0a01 | | Execute_Immediate Plus,0x1
00f5 c228 | ( | Store 0x1,0x28
00f6 00db | | Load_Top At_Offset_3
00f7 e228 | ( | Load 0x1,0x28
00f8 e22a | * | Load 0x1,0x2a
00f9 01d6 | | Execute Vector,Field_Write
00fa 00da | | Load_Top At_Offset_2
00fb e21b | | Load 0x1,0x1b
00fc 03b6 | | Declare_Variable Access,By_Allocation,With_Value
00fd e228 | ( | Load 0x1,0x28
00fe e227 | ' | Load 0x1,0x27
00ff 01d6 | | Execute Vector,Field_Write
0100 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0101 0000 0000 | | .BLANK 0000[0x7]
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 e223 | # | Load 0x1,0x23
010c e219 | | Load 0x1,0x19
010d 0269 | i | Execute Discrete,Last
010e 027f | | Execute Discrete,Equal
010f 6809 |h | Jump_Zero 0x119
0110 e21f | | Load 0x1,0x1f
0111 03bc | | Declare_Variable Access,By_Allocation
0112 00d8 | | Load_Top At_Offset_0
0113 0227 | ' | Execute Access,All_Reference
0114 1c00 | | Execute_Immediate Run_Utility,0x0
0115 a221 | ! | Store_Unchecked 0x1,0x21
0116 4801 |H | Short_Literal 0x1
0117 c223 | # | Store 0x1,0x23
0118 7803 |x | Jump 0x11c
0119 e223 | # | Load 0x1,0x23
011a 0a01 | | Execute_Immediate Plus,0x1
011b c223 | # | Store 0x1,0x23
011c 00da | | Load_Top At_Offset_2
011d 822c | , | Call 0x1,0x2c
011e 4800 |H | Short_Literal 0x0
011f a224 | $ | Store_Unchecked 0x1,0x24
0120 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0121 0000 0000 | | .BLANK 0000[0x7]
0128 ; --------------------------------------------------------------------------------------
0128 ; SUBPROGRAM
0128 ; --------------------------------------------------------------------------------------
0128 012b | + | .CONST 0x012b ; Address of begin
0129 0004 | | .CONST 0x0004 ; Address of exception handler
012a 0001 | | .CONST 0x0001 ; Number of locals
012b BODY_0128:
012b INIT_0128:
012b e224 | $ | Load 0x1,0x24
012c 6803 |h | Jump_Zero 0x130
012d 00da | | Load_Top At_Offset_2
012e 822c | , | Call 0x1,0x2c
012f 7802 |x | Jump 0x132
0130 00da | | Load_Top At_Offset_2
0131 8212 | | Call 0x1,0x12
0132 4801 |H | Short_Literal 0x1
0133 a224 | $ | Store_Unchecked 0x1,0x24
0134 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0135 0000 0000 | | .XXX[0x3]
0137 0000 | |
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 e224 | $ | Load 0x1,0x24
013c 6803 |h | Jump_Zero 0x140
013d 4800 |H | Short_Literal 0x0
013e a224 | $ | Store_Unchecked 0x1,0x24
013f 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0140 0092 055c | \| Action Push_String_Extended,0x55c ; "(none)"
0142 8212 | | Call 0x1,0x12
0143 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0144 0000 0000 | | .BLANK 0000[0x4]
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 0155 | U | .CONST 0x0155 ; Address of begin
0149 0004 | | .CONST 0x0004 ; Address of exception handler
014a 0006 | | .CONST 0x0006 ; Number of locals
014b INIT_0148:
014b 029f 0373 | s| Declare_Subprogram INIT_0370,For_Call
014d 029f 0393 | | Declare_Subprogram INIT_0390,For_Call
014f 029f 03a3 | | Declare_Subprogram INIT_03a0,For_Call
0151 029f 0403 | | Declare_Subprogram INIT_0400,For_Call
0153 029f 04a3 | | Declare_Subprogram INIT_04a0,For_Call
0155 BODY_0148:
0155 e221 | ! | Load 0x1,0x21
0156 8406 | | Call 0x2,0x6
0157 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 017e | ~ | .CONST 0x017e ; Address of begin
0159 0004 | | .CONST 0x0004 ; Address of exception handler
015a 0009 | | .CONST 0x0009 ; Number of locals
015b INIT_0158:
015b 4801 |H | Short_Literal 0x1
015c 822e | . | Call 0x1,0x2e
015d e220 | | Load 0x1,0x20
015e 035b | [ | Declare_Type Array,Constrained
015f 0337 | 7 | Declare_Variable Array
0160 029f 04e3 | | Declare_Subprogram INIT_04e0,For_Call
0162 a002 | | Store_Unchecked 0x0,0x2
0163 00c6 | | Action Check_Subprogram_Elaborated
0164 e21f | | Load 0x1,0x1f
0165 00e2 | | Load_Encached Integer_Cache
0166 00d8 | | Load_Top At_Offset_0
0167 012c | , | Execute Any,Size
0168 00d9 | | Load_Top At_Offset_1
0169 0266 | f | Execute Discrete,Bounds
016a 029f 04fb | | Declare_Subprogram INIT_04f8,For_Call
016c 03fa | | Declare_Type Discrete,Defined,With_Size
016d 00cd | | Action Spare6_Action
016e e220 | | Load 0x1,0x20
016f 4803 |H | Short_Literal 0x3
0170 4802 |H | Short_Literal 0x2
0171 0099 | | Action Reference_Dynamic
0172 0093 0000 | | push_full_address 0x0
0174 601f |` | Indirect_Literal Discrete,0x194,{0x80000000, 0x00020000}
0175 0273 | s | Execute Discrete,Plus
0176 e20d | | Load 0x1,0xd
0177 6018 |` | Indirect_Literal Discrete,0x190,{0x00000000, 0x0000ffff}
0178 0279 | y | Execute Discrete,And
0179 0273 | s | Execute Discrete,Plus
017a e003 | | Load 0x0,0x3
017b 0273 | s | Execute Discrete,Plus
017c 4809 |H | Short_Literal 0x9
017d 0007 | | Action Break_Optional
017e BODY_0158:
017e e402 | | Load 0x2,0x2
017f 822f | / | Call 0x1,0x2f
0180 00d1 | | Pop_Control Pop_Count_1
0181 e402 | | Load 0x2,0x2
0182 e404 | | Load 0x2,0x4
0183 e405 | | Load 0x2,0x5
0184 e406 | | Load 0x2,0x6
0185 4807 |H | Short_Literal 0x7
0186 4802 |H | Short_Literal 0x2
0187 0099 | | Action Reference_Dynamic
0188 4808 |H | Short_Literal 0x8
0189 4802 |H | Short_Literal 0x2
018a 0099 | | Action Reference_Dynamic
018b 8002 | | Call 0x0,0x2
018c 00d1 | | Pop_Control Pop_Count_1
018d e402 | | Load 0x2,0x2
018e 8230 | 0 | Call 0x1,0x30
018f 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0190 0000 0000 | | .LITERAL {0x00000000, 0x0000ffff}
0194 8000 0000 | | .LITERAL {0x80000000, 0x00020000}
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 01be | | .CONST 0x01be ; Address of begin
0199 0004 | | .CONST 0x0004 ; Address of exception handler
019a 0009 | | .CONST 0x0009 ; Number of locals
019b INIT_0198:
019b 4801 |H | Short_Literal 0x1
019c 822e | . | Call 0x1,0x2e
019d e220 | | Load 0x1,0x20
019e 035b | [ | Declare_Type Array,Constrained
019f 0337 | 7 | Declare_Variable Array
01a0 029f 0523 | #| Declare_Subprogram INIT_0520,For_Call
01a2 a002 | | Store_Unchecked 0x0,0x2
01a3 00c6 | | Action Check_Subprogram_Elaborated
01a4 e21f | | Load 0x1,0x1f
01a5 00e2 | | Load_Encached Integer_Cache
01a6 00d8 | | Load_Top At_Offset_0
01a7 012c | , | Execute Any,Size
01a8 00d9 | | Load_Top At_Offset_1
01a9 0266 | f | Execute Discrete,Bounds
01aa 029f 04fb | | Declare_Subprogram INIT_04f8,For_Call
01ac 03fa | | Declare_Type Discrete,Defined,With_Size
01ad 00cd | | Action Spare6_Action
01ae e220 | | Load 0x1,0x20
01af 4803 |H | Short_Literal 0x3
01b0 4802 |H | Short_Literal 0x2
01b1 0099 | | Action Reference_Dynamic
01b2 0093 0000 | | push_full_address 0x0
01b4 601b |` | Indirect_Literal Discrete,0x1d0,{0x80000000, 0x00010000}
01b5 0273 | s | Execute Discrete,Plus
01b6 e20d | | Load 0x1,0xd
01b7 67d8 |g | Indirect_Literal Discrete,0x190,{0x00000000, 0x0000ffff}
01b8 0279 | y | Execute Discrete,And
01b9 0273 | s | Execute Discrete,Plus
01ba e004 | | Load 0x0,0x4
01bb 0273 | s | Execute Discrete,Plus
01bc 4809 |H | Short_Literal 0x9
01bd 0007 | | Action Break_Optional
01be BODY_0198:
01be e402 | | Load 0x2,0x2
01bf 822f | / | Call 0x1,0x2f
01c0 00d1 | | Pop_Control Pop_Count_1
01c1 e402 | | Load 0x2,0x2
01c2 e404 | | Load 0x2,0x4
01c3 e405 | | Load 0x2,0x5
01c4 e406 | | Load 0x2,0x6
01c5 4807 |H | Short_Literal 0x7
01c6 4802 |H | Short_Literal 0x2
01c7 0099 | | Action Reference_Dynamic
01c8 4808 |H | Short_Literal 0x8
01c9 4802 |H | Short_Literal 0x2
01ca 0099 | | Action Reference_Dynamic
01cb 8002 | | Call 0x0,0x2
01cc 00d1 | | Pop_Control Pop_Count_1
01cd e402 | | Load 0x2,0x2
01ce 8230 | 0 | Call 0x1,0x30
01cf 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01d0 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
01d4 0000 0000 | | .BLANK 0000[0x4]
01d8 ; --------------------------------------------------------------------------------------
01d8 ; SUBPROGRAM
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 BODY_01d8:
01db INIT_01d8:
01db INIT_01d8:
01db 4609 |F | Jump_Case 0xa
01dc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
01dd 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
01de 7808 |x | Jump 0x1e7 ; case 0x2
01df 780b |x | Jump 0x1eb ; case 0x3
01e0 7810 |x | Jump 0x1f1 ; case 0x4
01e1 7817 |x | Jump 0x1f9 ; case 0x5
01e2 7833 |x3 | Jump 0x216 ; case 0x6
01e3 781f |x | Jump 0x203 ; case 0x7
01e4 7827 |x' | Jump 0x20c ; case 0x8
01e5 7830 |x0 | Jump 0x216 ; case 0x9
01e6 4302 |C | .XXX[0x1]
01e7 4801 |H | Short_Literal 0x1
01e8 4803 |H | Short_Literal 0x3
01e9 0311 | | Declare_Type Variant_Record,Constrained_Incomplete
01ea 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
01eb e5fd | | Load 0x2,-0x3
01ec 00db | | Load_Top At_Offset_3
01ed 1c07 | | Execute_Immediate Run_Utility,0x7
01ee e5fe | | Load 0x2,-0x2
01ef 0306 | | Complete_Type Variant_Record,By_Renaming
01f0 4304 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x4
01f1 4801 |H | Short_Literal 0x1
01f2 4803 |H | Short_Literal 0x3
01f3 0311 | | Declare_Type Variant_Record,Constrained_Incomplete
01f4 e5fe | | Load 0x2,-0x2
01f5 e5ff | | Load 0x2,-0x1
01f6 00da | | Load_Top At_Offset_2
01f7 0305 | | Complete_Type Variant_Record,By_Constraining_Incomplete
01f8 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01f9 4801 |H | Short_Literal 0x1
01fa 4801 |H | Short_Literal 0x1
01fb e5ff | | Load 0x2,-0x1
01fc 0169 | i | Execute Variant_Record,Read_Discriminant_Constraint
01fd 00e9 | | Load_Encached String_Cache
01fe 035b | [ | Declare_Type Array,Constrained
01ff 4801 |H | Short_Literal 0x1
0200 e5ff | | Load 0x2,-0x1
0201 0304 | | Complete_Type Variant_Record,By_Completing_Constraint
0202 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0203 00db | | Load_Top At_Offset_3
0204 4801 |H | Short_Literal 0x1
0205 e5fe | | Load 0x2,-0x2
0206 00e9 | | Load_Encached String_Cache
0207 035b | [ | Declare_Type Array,Constrained
0208 4801 |H | Short_Literal 0x1
0209 e5ff | | Load 0x2,-0x1
020a 031b | | Declare_Type Variant_Record,Constrained
020b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
020c 00db | | Load_Top At_Offset_3
020d 00db | | Load_Top At_Offset_3
020e 02fc | | Declare_Variable Variant_Record,With_Constraint
020f 4801 |H | Short_Literal 0x1
0210 e5fe | | Load 0x2,-0x2
0211 00e9 | | Load_Encached String_Cache
0212 0334 | 4 | Declare_Variable Array,With_Constraint
0213 2d03 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x3
0214 016a | j | QQ_execute Variant_Record,XXX
0215 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0216 0869 | i | Execute_Immediate Raise,0x69
0217 0000 | | .XXX[0x1]
0218 ; --------------------------------------------------------------------------------------
0218 ; SUBPROGRAM
0218 ; --------------------------------------------------------------------------------------
0218 021b | | .CONST 0x021b ; Address of begin
0219 0004 | | .CONST 0x0004 ; Address of exception handler
021a 0001 | | .CONST 0x0001 ; Number of locals
021b BODY_0218:
021b INIT_0218:
021b 4601 |F | Jump_Case 0x2
021c 7801 |x | Jump 0x21e ; case 0x0
021d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
021e e222 | " | Load 0x1,0x22
021f 3001 |0 | Execute Record,Field_Type,Field_Number 0x1
0220 0337 | 7 | Declare_Variable Array
0221 e222 | " | Load 0x1,0x22
0222 3001 |0 | Execute Record,Field_Type,Field_Number 0x1
0223 01d9 | | Execute Vector,Reverse_Bounds
0224 0263 | c | Execute Discrete,Above_Bound
0225 7005 |p | Jump_Nonzero 0x22b
0226 4800 |H | Short_Literal 0x0
0227 00d9 | | Load_Top At_Offset_1
0228 e402 | | Load 0x2,0x2
0229 01d6 | | Execute Vector,Field_Write
022a 3ffb |? | Loop_Increasing 0x226
022b 00db | | Load_Top At_Offset_3
022c 00d9 | | Load_Top At_Offset_1
022d 00d9 | | Load_Top At_Offset_1
022e 3001 |0 | Execute Record,Field_Type,Field_Number 0x1
022f 0119 | | Execute Any,Check_In_Formal_Type
0230 00d1 | | Pop_Control Pop_Count_1
0231 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0232 e221 | ! | Load 0x1,0x21
0233 00db | | Load_Top At_Offset_3
0234 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0235 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0236 0000 0000 | | .XXX[0x2]
0238 ; --------------------------------------------------------------------------------------
0238 ; SUBPROGRAM
0238 ; --------------------------------------------------------------------------------------
0238 023b | ; | .CONST 0x023b ; Address of begin
0239 0004 | | .CONST 0x0004 ; Address of exception handler
023a 0001 | | .CONST 0x0001 ; Number of locals
023b BODY_0238:
023b INIT_0238:
023b 00da | | Load_Top At_Offset_2
023c e5fe | | Load 0x2,-0x2
023d 027b | { | Execute Discrete,Greater_Equal
023e 6802 |h | Jump_Zero 0x241
023f 00da | | Load_Top At_Offset_2
0240 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0241 00db | | Load_Top At_Offset_3
0242 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0243 0000 0000 | | .BLANK 0000[0x5]
0248 ; --------------------------------------------------------------------------------------
0248 ; SUBPROGRAM
0248 ; --------------------------------------------------------------------------------------
0248 025b | [ | .CONST 0x025b ; Address of begin
0249 0004 | | .CONST 0x0004 ; Address of exception handler
024a 0004 | | .CONST 0x0004 ; Number of locals
024b INIT_0248:
024b e223 | # | Load 0x1,0x23
024c e221 | ! | Load 0x1,0x21
024d 0227 | ' | Execute Access,All_Reference
024e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
024f 01d5 | | Execute Vector,Field_Reference
0250 0007 | | Action Break_Optional
0251 e223 | # | Load 0x1,0x23
0252 e221 | ! | Load 0x1,0x21
0253 0227 | ' | Execute Access,All_Reference
0254 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0255 01d5 | | Execute Vector,Field_Reference
0256 0007 | | Action Break_Optional
0257 e223 | # | Load 0x1,0x23
0258 e225 | % | Load 0x1,0x25
0259 01d5 | | Execute Vector,Field_Reference
025a 0007 | | Action Break_Optional
025b BODY_0248:
025b 00da | | Load_Top At_Offset_2
025c 7004 |p | Jump_Nonzero 0x261
025d e5ff | | Load 0x2,-0x1
025e 01db | | Execute Vector,Length
025f c403 | | Store 0x2,0x3
0260 7808 |x | Jump 0x269
0261 00d9 | | Load_Top At_Offset_1
0262 e20f | | Load 0x1,0xf
0263 01db | | Execute Vector,Length
0264 0273 | s | Execute Discrete,Plus
0265 e5ff | | Load 0x2,-0x1
0266 01db | | Execute Vector,Length
0267 0273 | s | Execute Discrete,Plus
0268 c403 | | Store 0x2,0x3
0269 00d9 | | Load_Top At_Offset_1
026a 00d9 | | Load_Top At_Offset_1
026b 027d | } | Execute Discrete,Greater
026c 6802 |h | Jump_Zero 0x26f
026d 00d9 | | Load_Top At_Offset_1
026e a404 | | Store_Unchecked 0x2,0x4
026f e5ff | | Load 0x2,-0x1
0270 01db | | Execute Vector,Length
0271 e21c | | Load 0x1,0x1c
0272 1c08 | | Execute_Immediate Run_Utility,0x8
0273 e5ff | | Load 0x2,-0x1
0274 00d9 | | Load_Top At_Offset_1
0275 00d8 | | Load_Top At_Offset_0
0276 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0277 00da | | Load_Top At_Offset_2
0278 01da | | Execute Vector,Bounds
0279 00da | | Load_Top At_Offset_2
027a 01da | | Execute Vector,Bounds
027b 00da | | Load_Top At_Offset_2
027c 027f | | Execute Discrete,Equal
027d 7001 |p | Jump_Nonzero 0x27f
027e 08e0 | | Execute_Immediate Raise,0xe0
027f 00cd | | Action Spare6_Action
0280 027f | | Execute Discrete,Equal
0281 7001 |p | Jump_Nonzero 0x283
0282 08e0 | | Execute_Immediate Raise,0xe0
0283 00d2 | | Pop_Control Pop_Count_2
0284 00d9 | | Load_Top At_Offset_1
0285 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3
0286 00db | | Load_Top At_Offset_3
0287 00d9 | | Load_Top At_Offset_1
0288 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0289 e21d | | Load 0x1,0x1d
028a 03b6 | | Declare_Variable Access,By_Allocation,With_Value
028b a402 | | Store_Unchecked 0x2,0x2
028c 4502 |E | Exit_Suprogram New_Top_Offset 0x2
028d 0000 0000 | | .XXX[0x3]
028f 0000 | |
0290 ; --------------------------------------------------------------------------------------
0290 ; SUBPROGRAM
0290 ; --------------------------------------------------------------------------------------
0290 0293 | | .CONST 0x0293 ; Address of begin
0291 0004 | | .CONST 0x0004 ; Address of exception handler
0292 0001 | | .CONST 0x0001 ; Number of locals
0293 BODY_0290:
0293 INIT_0290:
0293 00da | | Load_Top At_Offset_2
0294 0227 | ' | Execute Access,All_Reference
0295 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0296 7006 |p | Jump_Nonzero 0x29d
0297 00da | | Load_Top At_Offset_2
0298 0227 | ' | Execute Access,All_Reference
0299 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
029a 0335 | 5 | Declare_Variable Array,Duplicate
029b 00cd | | Action Spare6_Action
029c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
029d 00da | | Load_Top At_Offset_2
029e 0227 | ' | Execute Access,All_Reference
029f 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
02a0 822d | - | Call 0x1,0x2d
02a1 e20f | | Load 0x1,0xf
02a2 01cc | | Execute Vector,Catenate
02a3 00db | | Load_Top At_Offset_3
02a4 0227 | ' | Execute Access,All_Reference
02a5 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
02a6 01cc | | Execute Vector,Catenate
02a7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02a8 ; --------------------------------------------------------------------------------------
02a8 ; SUBPROGRAM
02a8 ; --------------------------------------------------------------------------------------
02a8 02b0 | | .CONST 0x02b0 ; Address of begin
02a9 0004 | | .CONST 0x0004 ; Address of exception handler
02aa 0004 | | .CONST 0x0004 ; Number of locals
02ab INIT_02a8:
02ab 00e3 | | Load_Encached Natural_Cache
02ac 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
02ad e221 | ! | Load 0x1,0x21
02ae 0007 | | Action Break_Optional
02af e21d | | Load 0x1,0x1d
02b0 BODY_02a8:
02b0 00cf | | Action Mark_Auxiliary
02b1 786c |xl | Jump 0x31e
02b2 00cf | | Action Mark_Auxiliary
02b3 00db | | Load_Top At_Offset_3
02b4 0227 | ' | Execute Access,All_Reference
02b5 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
02b6 01d9 | | Execute Vector,Reverse_Bounds
02b7 0263 | c | Execute Discrete,Above_Bound
02b8 705c |p\ | Jump_Nonzero 0x315
02b9 00d8 | | Load_Top At_Offset_0
02ba e403 | | Load 0x2,0x3
02bb 0227 | ' | Execute Access,All_Reference
02bc 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
02bd 01d7 | | Execute Vector,Field_Read
02be a404 | | Store_Unchecked 0x2,0x4
02bf e404 | | Load 0x2,0x4
02c0 7029 |p) | Jump_Nonzero 0x2ea
02c1 4800 |H | Short_Literal 0x0
02c2 e21c | | Load 0x1,0x1c
02c3 1c08 | | Execute_Immediate Run_Utility,0x8
02c4 00d8 | | Load_Top At_Offset_0
02c5 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
02c6 01dd | | Execute Vector,First
02c7 00e2 | | Load_Encached Integer_Cache
02c8 00d9 | | Load_Top At_Offset_1
02c9 0267 | g | Execute Discrete,Predecessor
02ca 00e9 | | Load_Encached String_Cache
02cb 035b | [ | Declare_Type Array,Constrained
02cc 0337 | 7 | Declare_Variable Array
02cd 00d9 | | Load_Top At_Offset_1
02ce 00d8 | | Load_Top At_Offset_0
02cf 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
02d0 00da | | Load_Top At_Offset_2
02d1 01da | | Execute Vector,Bounds
02d2 00da | | Load_Top At_Offset_2
02d3 01da | | Execute Vector,Bounds
02d4 00da | | Load_Top At_Offset_2
02d5 027f | | Execute Discrete,Equal
02d6 7001 |p | Jump_Nonzero 0x2d8
02d7 08e0 | | Execute_Immediate Raise,0xe0
02d8 00cd | | Action Spare6_Action
02d9 027f | | Execute Discrete,Equal
02da 7001 |p | Jump_Nonzero 0x2dc
02db 08e0 | | Execute_Immediate Raise,0xe0
02dc 00d2 | | Pop_Control Pop_Count_2
02dd 00d9 | | Load_Top At_Offset_1
02de 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3
02df e21d | | Load 0x1,0x1d
02e0 00d9 | | Load_Top At_Offset_1
02e1 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
02e2 e21d | | Load 0x1,0x1d
02e3 03b6 | | Declare_Variable Access,By_Allocation,With_Value
02e4 00d9 | | Load_Top At_Offset_1
02e5 e403 | | Load 0x2,0x3
02e6 0227 | ' | Execute Access,All_Reference
02e7 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
02e8 01d6 | | Execute Vector,Field_Write
02e9 7829 |x) | Jump 0x313
02ea e404 | | Load 0x2,0x4
02eb 0227 | ' | Execute Access,All_Reference
02ec 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
02ed 6825 |h% | Jump_Zero 0x313
02ee 00d8 | | Load_Top At_Offset_0
02ef e403 | | Load 0x2,0x3
02f0 0227 | ' | Execute Access,All_Reference
02f1 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
02f2 01d7 | | Execute Vector,Field_Read
02f3 e21c | | Load 0x1,0x1c
02f4 1c08 | | Execute_Immediate Run_Utility,0x8
02f5 e404 | | Load 0x2,0x4
02f6 822d | - | Call 0x1,0x2d
02f7 00d9 | | Load_Top At_Offset_1
02f8 00d8 | | Load_Top At_Offset_0
02f9 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
02fa 00da | | Load_Top At_Offset_2
02fb 01da | | Execute Vector,Bounds
02fc 00da | | Load_Top At_Offset_2
02fd 01da | | Execute Vector,Bounds
02fe 00da | | Load_Top At_Offset_2
02ff 027f | | Execute Discrete,Equal
0300 7001 |p | Jump_Nonzero 0x302
0301 08e0 | | Execute_Immediate Raise,0xe0
0302 00cd | | Action Spare6_Action
0303 027f | | Execute Discrete,Equal
0304 7001 |p | Jump_Nonzero 0x306
0305 08e0 | | Execute_Immediate Raise,0xe0
0306 00d2 | | Pop_Control Pop_Count_2
0307 00d9 | | Load_Top At_Offset_1
0308 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3
0309 e21d | | Load 0x1,0x1d
030a 00d9 | | Load_Top At_Offset_1
030b 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
030c e21d | | Load 0x1,0x1d
030d 03b6 | | Declare_Variable Access,By_Allocation,With_Value
030e 00d9 | | Load_Top At_Offset_1
030f e403 | | Load 0x2,0x3
0310 0227 | ' | Execute Access,All_Reference
0311 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0312 01d6 | | Execute Vector,Field_Write
0313 00c8 | | Action Pop_Auxiliary_Range
0314 3fa4 |? | Loop_Increasing 0x2b9
0315 00ce | | Action Pop_Auxiliary
0316 00da | | Load_Top At_Offset_2
0317 0227 | ' | Execute Access,All_Reference
0318 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0319 003b | ; | Store_Top Access,At_Offset_3
031a 00db | | Load_Top At_Offset_3
031b 0a01 | | Execute_Immediate Plus,0x1
031c c402 | | Store 0x2,0x2
031d 00c9 | | Action Pop_Auxiliary_Loop
031e 00da | | Load_Top At_Offset_2
031f 7792 |w | Jump_Nonzero 0x2b2
0320 00ce | | Action Pop_Auxiliary
0321 00da | | Load_Top At_Offset_2
0322 00ca | | Action Exit_Nullary_Function
0323 0000 0000 | | .BLANK 0000[0x5]
0328 ; --------------------------------------------------------------------------------------
0328 ; SUBPROGRAM
0328 ; --------------------------------------------------------------------------------------
0328 032d | - | .CONST 0x032d ; Address of begin
0329 0004 | | .CONST 0x0004 ; Address of exception handler
032a 0002 | | .CONST 0x0002 ; Number of locals
032b INIT_0328:
032b e21f | | Load 0x1,0x1f
032c 0007 | | Action Break_Optional
032d BODY_0328:
032d e221 | ! | Load 0x1,0x21
032e 0039 | 9 | Store_Top Access,At_Offset_1
032f 00cf | | Action Mark_Auxiliary
0330 e5ff | | Load 0x2,-0x1
0331 01da | | Execute Vector,Bounds
0332 0264 | d | Execute Discrete,Below_Bound
0333 700a |p | Jump_Nonzero 0x33e
0334 00db | | Load_Top At_Offset_3
0335 00d9 | | Load_Top At_Offset_1
0336 e5ff | | Load 0x2,-0x1
0337 01d6 | | Execute Vector,Field_Write
0338 00db | | Load_Top At_Offset_3
0339 0227 | ' | Execute Access,All_Reference
033a 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
033b a402 | | Store_Unchecked 0x2,0x2
033c 00c8 | | Action Pop_Auxiliary_Range
033d 37f6 |7 | Loop_Decreasing 0x334
033e 4501 |E | Exit_Suprogram New_Top_Offset 0x1
033f 0000 | | .XXX[0x1]
0340 ; --------------------------------------------------------------------------------------
0340 ; SUBPROGRAM
0340 ; --------------------------------------------------------------------------------------
0340 0343 | C | .CONST 0x0343 ; Address of begin
0341 0004 | | .CONST 0x0004 ; Address of exception handler
0342 0001 | | .CONST 0x0001 ; Number of locals
0343 BODY_0340:
0343 INIT_0340:
0343 00da | | Load_Top At_Offset_2
0344 01db | | Execute Vector,Length
0345 7003 |p | Jump_Nonzero 0x349
0346 e21f | | Load 0x1,0x1f
0347 a221 | ! | Store_Unchecked 0x1,0x21
0348 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0349 e21f | | Load 0x1,0x1f
034a 00db | | Load_Top At_Offset_3
034b 01dd | | Execute Vector,First
034c e5ff | | Load 0x2,-0x1
034d 01d7 | | Execute Vector,Field_Read
034e 0227 | ' | Execute Access,All_Reference
034f 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0350 00cf | | Action Mark_Auxiliary
0351 00db | | Load_Top At_Offset_3
0352 01dc | | Execute Vector,Last
0353 e5ff | | Load 0x2,-0x1
0354 01dd | | Execute Vector,First
0355 0a01 | | Execute_Immediate Plus,0x1
0356 00d8 | | Load_Top At_Offset_0
0357 00e2 | | Load_Encached Integer_Cache
0358 0260 | ` | Execute Discrete,In_Type
0359 7001 |p | Jump_Nonzero 0x35b
035a 0801 | | Execute_Immediate Raise,0x1
035b 0263 | c | Execute Discrete,Above_Bound
035c 700b |p | Jump_Nonzero 0x368
035d 00d8 | | Load_Top At_Offset_0
035e 0aff | | Execute_Immediate Plus,-0x1
035f e5ff | | Load 0x2,-0x1
0360 01d7 | | Execute Vector,Field_Read
0361 00d9 | | Load_Top At_Offset_1
0362 e5ff | | Load 0x2,-0x1
0363 01d7 | | Execute Vector,Field_Read
0364 0227 | ' | Execute Access,All_Reference
0365 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0366 00c8 | | Action Pop_Auxiliary_Range
0367 3ff5 |? | Loop_Increasing 0x35d
0368 00ce | | Action Pop_Auxiliary
0369 00da | | Load_Top At_Offset_2
036a 01dc | | Execute Vector,Last
036b 00db | | Load_Top At_Offset_3
036c 01d7 | | Execute Vector,Field_Read
036d a221 | ! | Store_Unchecked 0x1,0x21
036e 4502 |E | Exit_Suprogram New_Top_Offset 0x2
036f 0000 | | .XXX[0x1]
0370 ; --------------------------------------------------------------------------------------
0370 ; SUBPROGRAM
0370 ; --------------------------------------------------------------------------------------
0370 0386 | | .CONST 0x0386 ; Address of begin
0371 0004 | | .CONST 0x0004 ; Address of exception handler
0372 0002 | | .CONST 0x0002 ; Number of locals
0373 INIT_0370:
0373 4801 |H | Short_Literal 0x1
0374 e7fe | | Load 0x3,-0x2
0375 00e9 | | Load_Encached String_Cache
0376 035b | [ | Declare_Type Array,Constrained
0377 0337 | 7 | Declare_Variable Array
0378 00d8 | | Load_Top At_Offset_0
0379 0335 | 5 | Declare_Variable Array,Duplicate
037a 00cd | | Action Spare6_Action
037b 00d9 | | Load_Top At_Offset_1
037c 01d9 | | Execute Vector,Reverse_Bounds
037d 0263 | c | Execute Discrete,Above_Bound
037e 7005 |p | Jump_Nonzero 0x384
037f e7ff | | Load 0x3,-0x1
0380 00d9 | | Load_Top At_Offset_1
0381 e603 | | Load 0x3,0x3
0382 01d6 | | Execute Vector,Field_Write
0383 3ffb |? | Loop_Increasing 0x37f
0384 00d9 | | Load_Top At_Offset_1
0385 01d4 | | Execute Vector,Structure_Write
0386 BODY_0370:
0386 00d8 | | Load_Top At_Offset_0
0387 e5ff | | Load 0x2,-0x1
0388 e005 | | Load 0x0,0x5
0389 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
038a 4503 |E | Exit_Suprogram New_Top_Offset 0x3
038b 0000 0000 | | .BLANK 0000[0x5]
0390 ; --------------------------------------------------------------------------------------
0390 ; SUBPROGRAM
0390 ; --------------------------------------------------------------------------------------
0390 0393 | | .CONST 0x0393 ; Address of begin
0391 0004 | | .CONST 0x0004 ; Address of exception handler
0392 0001 | | .CONST 0x0001 ; Number of locals
0393 BODY_0390:
0393 INIT_0390:
0393 00da | | Load_Top At_Offset_2
0394 6805 |h | Jump_Zero 0x39a
0395 00da | | Load_Top At_Offset_2
0396 822d | - | Call 0x1,0x2d
0397 e5ff | | Load 0x2,-0x1
0398 e005 | | Load 0x0,0x5
0399 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
039a 4502 |E | Exit_Suprogram New_Top_Offset 0x2
039b 0000 0000 | | .BLANK 0000[0x5]
03a0 ; --------------------------------------------------------------------------------------
03a0 ; SUBPROGRAM
03a0 ; --------------------------------------------------------------------------------------
03a0 03a5 | | .CONST 0x03a5 ; Address of begin
03a1 0004 | | .CONST 0x0004 ; Address of exception handler
03a2 0002 | | .CONST 0x0002 ; Number of locals
03a3 INIT_03a0:
03a3 e21a | | Load 0x1,0x1a
03a4 0337 | 7 | Declare_Variable Array
03a5 BODY_03a0:
03a5 00cf | | Action Mark_Auxiliary
03a6 e219 | | Load 0x1,0x19
03a7 0269 | i | Execute Discrete,Last
03a8 4801 |H | Short_Literal 0x1
03a9 0263 | c | Execute Discrete,Above_Bound
03aa 7019 |p | Jump_Nonzero 0x3c4
03ab 00d8 | | Load_Top At_Offset_0
03ac e225 | % | Load 0x1,0x25
03ad 01d7 | | Execute Vector,Field_Read
03ae 00d9 | | Load_Top At_Offset_1
03af e227 | ' | Load 0x1,0x27
03b0 01d7 | | Execute Vector,Field_Read
03b1 0227 | ' | Execute Access,All_Reference
03b2 01db | | Execute Vector,Length
03b3 00d8 | | Load_Top At_Offset_0
03b4 00e2 | | Load_Encached Integer_Cache
03b5 0260 | ` | Execute Discrete,In_Type
03b6 7001 |p | Jump_Nonzero 0x3b8
03b7 0801 | | Execute_Immediate Raise,0x1
03b8 822b | + | Call 0x1,0x2b
03b9 00d9 | | Load_Top At_Offset_1
03ba e227 | ' | Load 0x1,0x27
03bb 01d7 | | Execute Vector,Field_Read
03bc 0227 | ' | Execute Access,All_Reference
03bd 01db | | Execute Vector,Length
03be 0272 | r | Execute Discrete,Minus
03bf 00d9 | | Load_Top At_Offset_1
03c0 e602 | | Load 0x3,0x2
03c1 01d6 | | Execute Vector,Field_Write
03c2 00c8 | | Action Pop_Auxiliary_Range
03c3 3fe7 |? | Loop_Increasing 0x3ab
03c4 00ce | | Action Pop_Auxiliary
03c5 4801 |H | Short_Literal 0x1
03c6 00d9 | | Load_Top At_Offset_1
03c7 01d7 | | Execute Vector,Field_Read
03c8 09ff | | Execute_Immediate Binary_Scale,-0x1
03c9 00d8 | | Load_Top At_Offset_0
03ca 00e3 | | Load_Encached Natural_Cache
03cb 0260 | ` | Execute Discrete,In_Type
03cc 7001 |p | Jump_Nonzero 0x3ce
03cd 0801 | | Execute_Immediate Raise,0x1
03ce 4820 |H | Short_Literal 0x20
03cf 8402 | | Call 0x2,0x2
03d0 00cf | | Action Mark_Auxiliary
03d1 e219 | | Load 0x1,0x19
03d2 0269 | i | Execute Discrete,Last
03d3 4801 |H | Short_Literal 0x1
03d4 0263 | c | Execute Discrete,Above_Bound
03d5 7021 |p! | Jump_Nonzero 0x3f7
03d6 00d8 | | Load_Top At_Offset_0
03d7 e227 | ' | Load 0x1,0x27
03d8 01d7 | | Execute Vector,Field_Read
03d9 0227 | ' | Execute Access,All_Reference
03da e5ff | | Load 0x2,-0x1
03db e005 | | Load 0x0,0x5
03dc 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
03dd 00d8 | | Load_Top At_Offset_0
03de e219 | | Load 0x1,0x19
03df 0269 | i | Execute Discrete,Last
03e0 027e | ~ | Execute Discrete,Not_Equal
03e1 6813 |h | Jump_Zero 0x3f5
03e2 00d8 | | Load_Top At_Offset_0
03e3 e602 | | Load 0x3,0x2
03e4 01d7 | | Execute Vector,Field_Read
03e5 0a01 | | Execute_Immediate Plus,0x1
03e6 09ff | | Execute_Immediate Binary_Scale,-0x1
03e7 00d9 | | Load_Top At_Offset_1
03e8 0a01 | | Execute_Immediate Plus,0x1
03e9 e602 | | Load 0x3,0x2
03ea 01d7 | | Execute Vector,Field_Read
03eb 09ff | | Execute_Immediate Binary_Scale,-0x1
03ec 0273 | s | Execute Discrete,Plus
03ed 0a02 | | Execute_Immediate Plus,0x2
03ee 00d8 | | Load_Top At_Offset_0
03ef 00e3 | | Load_Encached Natural_Cache
03f0 0260 | ` | Execute Discrete,In_Type
03f1 7001 |p | Jump_Nonzero 0x3f3
03f2 0801 | | Execute_Immediate Raise,0x1
03f3 4820 |H | Short_Literal 0x20
03f4 8402 | | Call 0x2,0x2
03f5 00c8 | | Action Pop_Auxiliary_Range
03f6 3fdf |? | Loop_Increasing 0x3d6
03f7 00ce | | Action Pop_Auxiliary
03f8 4801 |H | Short_Literal 0x1
03f9 e5ff | | Load 0x2,-0x1
03fa e005 | | Load 0x0,0x5
03fb 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
03fc 4501 |E | Exit_Suprogram New_Top_Offset 0x1
03fd 0000 0000 | | .XXX[0x3]
03ff 0000 | |
0400 ; --------------------------------------------------------------------------------------
0400 ; SUBPROGRAM
0400 ; --------------------------------------------------------------------------------------
0400 0405 | | .CONST 0x0405 ; Address of begin
0401 0004 | | .CONST 0x0004 ; Address of exception handler
0402 0003 | | .CONST 0x0003 ; Number of locals
0403 INIT_0400:
0403 00e3 | | Load_Encached Natural_Cache
0404 03e9 | | Declare_Variable Discrete,Duplicate
0405 BODY_0400:
0405 00cf | | Action Mark_Auxiliary
0406 e219 | | Load 0x1,0x19
0407 0269 | i | Execute Discrete,Last
0408 4801 |H | Short_Literal 0x1
0409 0263 | c | Execute Discrete,Above_Bound
040a 7089 |p | Jump_Nonzero 0x494
040b 00d8 | | Load_Top At_Offset_0
040c e225 | % | Load 0x1,0x25
040d 01d7 | | Execute Vector,Field_Read
040e 00d9 | | Load_Top At_Offset_1
040f e7ff | | Load 0x3,-0x1
0410 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0411 01d7 | | Execute Vector,Field_Read
0412 0272 | r | Execute Discrete,Minus
0413 c602 | | Store 0x3,0x2
0414 00d8 | | Load_Top At_Offset_0
0415 e225 | % | Load 0x1,0x25
0416 01d7 | | Execute Vector,Field_Read
0417 00d9 | | Load_Top At_Offset_1
0418 e227 | ' | Load 0x1,0x27
0419 01d7 | | Execute Vector,Field_Read
041a 0227 | ' | Execute Access,All_Reference
041b 01db | | Execute Vector,Length
041c 00d8 | | Load_Top At_Offset_0
041d 00e2 | | Load_Encached Integer_Cache
041e 0260 | ` | Execute Discrete,In_Type
041f 7001 |p | Jump_Nonzero 0x421
0420 0801 | | Execute_Immediate Raise,0x1
0421 822b | + | Call 0x1,0x2b
0422 00d9 | | Load_Top At_Offset_1
0423 e225 | % | Load 0x1,0x25
0424 01d7 | | Execute Vector,Field_Read
0425 0272 | r | Execute Discrete,Minus
0426 c603 | | Store 0x3,0x3
0427 00d8 | | Load_Top At_Offset_0
0428 e22a | * | Load 0x1,0x2a
0429 01d7 | | Execute Vector,Field_Read
042a 4602 |F | Jump_Case 0x3
042b 7825 |x% | Jump 0x451 ; case 0x0
042c 7845 |xE | Jump 0x472 ; case 0x1
042d 7800 |x | Jump 0x42e ; case 0x2
042e e602 | | Load 0x3,0x2
042f e603 | | Load 0x3,0x3
0430 0273 | s | Execute Discrete,Plus
0431 09ff | | Execute_Immediate Binary_Scale,-0x1
0432 00d8 | | Load_Top At_Offset_0
0433 00e3 | | Load_Encached Natural_Cache
0434 0260 | ` | Execute Discrete,In_Type
0435 7001 |p | Jump_Nonzero 0x437
0436 0801 | | Execute_Immediate Raise,0x1
0437 4820 |H | Short_Literal 0x20
0438 8402 | | Call 0x2,0x2
0439 00d8 | | Load_Top At_Offset_0
043a e7ff | | Load 0x3,-0x1
043b 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
043c 01d7 | | Execute Vector,Field_Read
043d 8403 | | Call 0x2,0x3
043e 00d8 | | Load_Top At_Offset_0
043f e219 | | Load 0x1,0x19
0440 0269 | i | Execute Discrete,Last
0441 027e | ~ | Execute Discrete,Not_Equal
0442 684f |hO | Jump_Zero 0x492
0443 e602 | | Load 0x3,0x2
0444 e603 | | Load 0x3,0x3
0445 0273 | s | Execute Discrete,Plus
0446 0a01 | | Execute_Immediate Plus,0x1
0447 09ff | | Execute_Immediate Binary_Scale,-0x1
0448 0a02 | | Execute_Immediate Plus,0x2
0449 00d8 | | Load_Top At_Offset_0
044a 00e3 | | Load_Encached Natural_Cache
044b 0260 | ` | Execute Discrete,In_Type
044c 7001 |p | Jump_Nonzero 0x44e
044d 0801 | | Execute_Immediate Raise,0x1
044e 4820 |H | Short_Literal 0x20
044f 8402 | | Call 0x2,0x2
0450 7841 |xA | Jump 0x492
0451 00db | | Load_Top At_Offset_3
0452 09ff | | Execute_Immediate Binary_Scale,-0x1
0453 00d8 | | Load_Top At_Offset_0
0454 00e3 | | Load_Encached Natural_Cache
0455 0260 | ` | Execute Discrete,In_Type
0456 7001 |p | Jump_Nonzero 0x458
0457 0801 | | Execute_Immediate Raise,0x1
0458 4820 |H | Short_Literal 0x20
0459 8402 | | Call 0x2,0x2
045a 00d8 | | Load_Top At_Offset_0
045b e7ff | | Load 0x3,-0x1
045c 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
045d 01d7 | | Execute Vector,Field_Read
045e 8403 | | Call 0x2,0x3
045f 00d8 | | Load_Top At_Offset_0
0460 e219 | | Load 0x1,0x19
0461 0269 | i | Execute Discrete,Last
0462 027e | ~ | Execute Discrete,Not_Equal
0463 682e |h. | Jump_Zero 0x492
0464 00db | | Load_Top At_Offset_3
0465 0a01 | | Execute_Immediate Plus,0x1
0466 09ff | | Execute_Immediate Binary_Scale,-0x1
0467 e602 | | Load 0x3,0x2
0468 0273 | s | Execute Discrete,Plus
0469 0a02 | | Execute_Immediate Plus,0x2
046a 00d8 | | Load_Top At_Offset_0
046b 00e3 | | Load_Encached Natural_Cache
046c 0260 | ` | Execute Discrete,In_Type
046d 7001 |p | Jump_Nonzero 0x46f
046e 0801 | | Execute_Immediate Raise,0x1
046f 4820 |H | Short_Literal 0x20
0470 8402 | | Call 0x2,0x2
0471 7820 |x | Jump 0x492
0472 00db | | Load_Top At_Offset_3
0473 09ff | | Execute_Immediate Binary_Scale,-0x1
0474 e602 | | Load 0x3,0x2
0475 0273 | s | Execute Discrete,Plus
0476 00d8 | | Load_Top At_Offset_0
0477 00e3 | | Load_Encached Natural_Cache
0478 0260 | ` | Execute Discrete,In_Type
0479 7001 |p | Jump_Nonzero 0x47b
047a 0801 | | Execute_Immediate Raise,0x1
047b 4820 |H | Short_Literal 0x20
047c 8402 | | Call 0x2,0x2
047d 00d8 | | Load_Top At_Offset_0
047e e7ff | | Load 0x3,-0x1
047f 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0480 01d7 | | Execute Vector,Field_Read
0481 8403 | | Call 0x2,0x3
0482 00d8 | | Load_Top At_Offset_0
0483 e219 | | Load 0x1,0x19
0484 0269 | i | Execute Discrete,Last
0485 027e | ~ | Execute Discrete,Not_Equal
0486 680b |h | Jump_Zero 0x492
0487 00db | | Load_Top At_Offset_3
0488 0a01 | | Execute_Immediate Plus,0x1
0489 09ff | | Execute_Immediate Binary_Scale,-0x1
048a 0a02 | | Execute_Immediate Plus,0x2
048b 00d8 | | Load_Top At_Offset_0
048c 00e3 | | Load_Encached Natural_Cache
048d 0260 | ` | Execute Discrete,In_Type
048e 7001 |p | Jump_Nonzero 0x490
048f 0801 | | Execute_Immediate Raise,0x1
0490 4820 |H | Short_Literal 0x20
0491 8402 | | Call 0x2,0x2
0492 00c8 | | Action Pop_Auxiliary_Range
0493 3f77 |?w | Loop_Increasing 0x40b
0494 00ce | | Action Pop_Auxiliary
0495 4801 |H | Short_Literal 0x1
0496 e5ff | | Load 0x2,-0x1
0497 e005 | | Load 0x0,0x5
0498 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
0499 4502 |E | Exit_Suprogram New_Top_Offset 0x2
049a 0000 0000 | | .BLANK 0000[0x6]
04a0 ; --------------------------------------------------------------------------------------
04a0 ; SUBPROGRAM
04a0 ; --------------------------------------------------------------------------------------
04a0 04a3 | | .CONST 0x04a3 ; Address of begin
04a1 0004 | | .CONST 0x0004 ; Address of exception handler
04a2 0001 | | .CONST 0x0001 ; Number of locals
04a3 BODY_04a0:
04a3 INIT_04a0:
04a3 00da | | Load_Top At_Offset_2
04a4 702c |p, | Jump_Nonzero 0x4d1
04a5 8404 | | Call 0x2,0x4
04a6 00cf | | Action Mark_Auxiliary
04a7 e219 | | Load 0x1,0x19
04a8 0269 | i | Execute Discrete,Last
04a9 4801 |H | Short_Literal 0x1
04aa 0263 | c | Execute Discrete,Above_Bound
04ab 701f |p | Jump_Nonzero 0x4cb
04ac 00d8 | | Load_Top At_Offset_0
04ad e225 | % | Load 0x1,0x25
04ae 01d7 | | Execute Vector,Field_Read
04af 00d9 | | Load_Top At_Offset_1
04b0 e227 | ' | Load 0x1,0x27
04b1 01d7 | | Execute Vector,Field_Read
04b2 0227 | ' | Execute Access,All_Reference
04b3 01db | | Execute Vector,Length
04b4 00d8 | | Load_Top At_Offset_0
04b5 00e2 | | Load_Encached Integer_Cache
04b6 0260 | ` | Execute Discrete,In_Type
04b7 7001 |p | Jump_Nonzero 0x4b9
04b8 0801 | | Execute_Immediate Raise,0x1
04b9 822b | + | Call 0x1,0x2b
04ba 00d8 | | Load_Top At_Offset_0
04bb 00e3 | | Load_Encached Natural_Cache
04bc 0260 | ` | Execute Discrete,In_Type
04bd 7001 |p | Jump_Nonzero 0x4bf
04be 0801 | | Execute_Immediate Raise,0x1
04bf 483d |H= | Short_Literal 0x3d
04c0 8402 | | Call 0x2,0x2
04c1 00d8 | | Load_Top At_Offset_0
04c2 e219 | | Load 0x1,0x19
04c3 0269 | i | Execute Discrete,Last
04c4 027e | ~ | Execute Discrete,Not_Equal
04c5 6803 |h | Jump_Zero 0x4c9
04c6 4802 |H | Short_Literal 0x2
04c7 4820 |H | Short_Literal 0x20
04c8 8402 | | Call 0x2,0x2
04c9 00c8 | | Action Pop_Auxiliary_Range
04ca 3fe1 |? | Loop_Increasing 0x4ac
04cb 00ce | | Action Pop_Auxiliary
04cc 4801 |H | Short_Literal 0x1
04cd e5ff | | Load 0x2,-0x1
04ce e005 | | Load 0x0,0x5
04cf 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
04d0 4502 |E | Exit_Suprogram New_Top_Offset 0x2
04d1 00da | | Load_Top At_Offset_2
04d2 0227 | ' | Execute Access,All_Reference
04d3 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
04d4 8406 | | Call 0x2,0x6
04d5 00da | | Load_Top At_Offset_2
04d6 0227 | ' | Execute Access,All_Reference
04d7 8405 | | Call 0x2,0x5
04d8 4502 |E | Exit_Suprogram New_Top_Offset 0x2
04d9 0000 0000 | | .BLANK 0000[0x7]
04e0 ; --------------------------------------------------------------------------------------
04e0 ; SUBPROGRAM
04e0 ; --------------------------------------------------------------------------------------
04e0 04e3 | | .CONST 0x04e3 ; Address of begin
04e1 0004 | | .CONST 0x0004 ; Address of exception handler
04e2 0001 | | .CONST 0x0001 ; Number of locals
04e3 BODY_04e0:
04e3 INIT_04e0:
04e3 e5ff | | Load 0x2,-0x1
04e4 00db | | Load_Top At_Offset_3
04e5 0227 | ' | Execute Access,All_Reference
04e6 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
04e7 01d7 | | Execute Vector,Field_Read
04e8 0227 | ' | Execute Access,All_Reference
04e9 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
04ea e5ff | | Load 0x2,-0x1
04eb e7fe | | Load 0x3,-0x2
04ec 0227 | ' | Execute Access,All_Reference
04ed 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
04ee 01d7 | | Execute Vector,Field_Read
04ef 0227 | ' | Execute Access,All_Reference
04f0 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
04f1 01c1 | | Execute Vector,Less
04f2 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
04f3 0000 0000 | | .BLANK 0000[0x5]
04f8 ; --------------------------------------------------------------------------------------
04f8 ; SUBPROGRAM
04f8 ; SUBPROGRAM
04f8 ; --------------------------------------------------------------------------------------
04f8 04fb | | .CONST 0x04fb ; Address of begin
04f9 0004 | | .CONST 0x0004 ; Address of exception handler
04fa 0001 | | .CONST 0x0001 ; Number of locals
04fb BODY_04f8:
04fb BODY_04f8:
04fb INIT_04f8:
04fb INIT_04f8:
04fb 4607 |F | Jump_Case 0x8
04fc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
04fd 7807 |x | Jump 0x505 ; case 0x1
04fe 780a |x | Jump 0x509 ; case 0x2
04ff 780e |x | Jump 0x50e ; case 0x3
0500 7811 |x | Jump 0x512 ; case 0x4
0501 7810 |x | Jump 0x512 ; case 0x5
0502 7811 |x | Jump 0x514 ; case 0x6
0503 7814 |x | Jump 0x518 ; case 0x7
0504 4302 |C | .XXX[0x1]
0505 00da | | Load_Top At_Offset_2
0506 00e0 | | Load_Encached Standard_Cache
0507 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0508 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0509 00db | | Load_Top At_Offset_3
050a 00db | | Load_Top At_Offset_3
050b 00e0 | | Load_Encached Standard_Cache
050c 1819 | | Execute Package,Field_Execute,Field_Number 0x19
050d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
050e 00da | | Load_Top At_Offset_2
050f 00e0 | | Load_Encached Standard_Cache
0510 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0511 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0512 00db | | Load_Top At_Offset_3
0513 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0514 00e2 | | Load_Encached Integer_Cache
0515 00dc | | Load_Top At_Offset_4
0516 0267 | g | Execute Discrete,Predecessor
0517 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0518 00e2 | | Load_Encached Integer_Cache
0519 00dc | | Load_Top At_Offset_4
051a 0268 | h | Execute Discrete,Successor
051b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
051c 0000 0000 | | .BLANK 0000[0x4]
0520 ; --------------------------------------------------------------------------------------
0520 ; SUBPROGRAM
0520 ; --------------------------------------------------------------------------------------
0520 0523 | # | .CONST 0x0523 ; Address of begin
0521 0004 | | .CONST 0x0004 ; Address of exception handler
0522 0001 | | .CONST 0x0001 ; Number of locals
0523 BODY_0520:
0523 INIT_0520:
0523 00cf | | Action Mark_Auxiliary
0524 e5ff | | Load 0x2,-0x1
0525 01d9 | | Execute Vector,Reverse_Bounds
0526 0263 | c | Execute Discrete,Above_Bound
0527 702e |p. | Jump_Nonzero 0x556
0528 00d8 | | Load_Top At_Offset_0
0529 e5ff | | Load 0x2,-0x1
052a 01d7 | | Execute Vector,Field_Read
052b e7ff | | Load 0x3,-0x1
052c 0227 | ' | Execute Access,All_Reference
052d 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
052e 01d7 | | Execute Vector,Field_Read
052f 0227 | ' | Execute Access,All_Reference
0530 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0531 00d9 | | Load_Top At_Offset_1
0532 e5ff | | Load 0x2,-0x1
0533 01d7 | | Execute Vector,Field_Read
0534 e7fe | | Load 0x3,-0x2
0535 0227 | ' | Execute Access,All_Reference
0536 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0537 01d7 | | Execute Vector,Field_Read
0538 0227 | ' | Execute Access,All_Reference
0539 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
053a 01c1 | | Execute Vector,Less
053b 6802 |h | Jump_Zero 0x53e
053c 4801 |H | Short_Literal 0x1
053d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
053e 00d8 | | Load_Top At_Offset_0
053f e5ff | | Load 0x2,-0x1
0540 01d7 | | Execute Vector,Field_Read
0541 e7fe | | Load 0x3,-0x2
0542 0227 | ' | Execute Access,All_Reference
0543 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0544 01d7 | | Execute Vector,Field_Read
0545 0227 | ' | Execute Access,All_Reference
0546 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0547 00d9 | | Load_Top At_Offset_1
0548 e5ff | | Load 0x2,-0x1
0549 01d7 | | Execute Vector,Field_Read
054a e7ff | | Load 0x3,-0x1
054b 0227 | ' | Execute Access,All_Reference
054c 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
054d 01d7 | | Execute Vector,Field_Read
054e 0227 | ' | Execute Access,All_Reference
054f 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0550 01c1 | | Execute Vector,Less
0551 6802 |h | Jump_Zero 0x554
0552 4800 |H | Short_Literal 0x0
0553 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0554 00c8 | | Action Pop_Auxiliary_Range
0555 3fd2 |? | Loop_Increasing 0x528
0556 00ce | | Action Pop_Auxiliary
0557 4800 |H | Short_Literal 0x0
0558 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0559 ; --------------------------------------------------------------------------------------
0559 ; STRING TABLE
0559 ; --------------------------------------------------------------------------------------
0559 000a | | .STRTAB 0x000a->0x055e ; "LEFT"
055a 000c | | .STRTAB 0x000c->0x0560 ; "RIGHT"
055b 000f | | .STRTAB 0x000f->0x0562 ; "CENTERED"
055c 0015 | | .STRTAB 0x0015->0x0566 ; "(none)"
055d 0019 | | .STREND 0x0019->0x0569
055e 4c45 4654 |LEFT| .STRTAB_STRINGS
056a 0000 0000 | | .BLANK 0000[0x6]
0570 ; --------------------------------------------------------------------------------------
0570 ; Debug Table
0570 ; --------------------------------------------------------------------------------------
0570 0004 0001 | | .DEBUG4 0x0004,0x0001,0x97d2,0x0000,0x0001,0x001a
0576 000b 05de | | .DBG4T 0x000b,0x05de,0xc000,0x0000
057a 0025 05e9 | % | .DBG4T 0x0025,0x05e9,0xc000,0x8000
057e 00cb 0000 | | .DBG4T 0x00cb,0x0000,0x1005,0x0000
0582 00f3 062a | *| .DBG4T 0x00f3,0x062a,0x1001,0x0000
0586 010b 062f | /| .DBG4T 0x010b,0x062f,0x1001,0x0000
058a 012b 0637 | + 7| .DBG4T 0x012b,0x0637,0x1001,0x0000
058e 013b 063d | ; =| .DBG4T 0x013b,0x063d,0x1001,0x0000
0592 014b 0642 | K B| .DBG4T 0x014b,0x0642,0x1001,0x0000
0596 015b 064a | [ J| .DBG4T 0x015b,0x064a,0x1001,0x0000
059a 019b 0652 | R| .DBG4T 0x019b,0x0652,0x1001,0x0000
059e 01db 0000 | | .DBG4T 0x01db,0x0000,0x1005,0x0000
05a2 021b 0000 | | .DBG4T 0x021b,0x0000,0x1005,0x0000
05a6 023b 065a | ; Z| .DBG4T 0x023b,0x065a,0x1002,0x0000
05aa 024b 065f | K _| .DBG4T 0x024b,0x065f,0x1001,0x0000
05ae 0293 066a | j| .DBG4T 0x0293,0x066a,0x1002,0x0000
05b2 02ab 066f | o| .DBG4T 0x02ab,0x066f,0x1002,0x4000
05b6 032b 0688 | + | .DBG4T 0x032b,0x0688,0x1001,0x0000
05ba 0343 068f | C | .DBG4T 0x0343,0x068f,0x1001,0x0000
05be 0373 0698 | s | .DBG4T 0x0373,0x0698,0x1001,0x0000
05c2 0393 069c | | .DBG4T 0x0393,0x069c,0x1001,0x0000
05c6 03a3 06a0 | | .DBG4T 0x03a3,0x06a0,0x1001,0x0000
05ca 0403 06ab | | .DBG4T 0x0403,0x06ab,0x1001,0x4000
05ce 04a3 06d0 | | .DBG4T 0x04a3,0x06d0,0x1001,0x0000
05d2 04e3 06db | | .DBG4T 0x04e3,0x06db,0x1002,0x0000
05d6 04fb 0000 | | .DBG4T 0x04fb,0x0000,0x0005,0x0000
05da 0523 06de | # | .DBG4T 0x0523,0x06de,0x1002,0x0000
05de ; --------------------------------------------------------------------------------------
05de ; Debug chain
05de ; --------------------------------------------------------------------------------------
05de 0009 0000 | | .DBGLEN 0x0009,0x0000
05e0 000b 0010 | | .DBGLNO 0x000b,0x0010,0x0012,0x0014,0x0016,0x0018,0x001a,0x0020,0x0022
05e9 ; --------------------------------------------------------------------------------------
05e9 ; Debug chain
05e9 ; --------------------------------------------------------------------------------------
05e9 001e 0003 | | .DBGLEN 0x001e,0x0003
05eb 0025 0029 | % )| .DBGLNO 0x0025,0x0029,0x0030,0x0034,0x003f,0x0043,0x004e,0x0055,0x0057,0x005d,0x005f,0x006a,0x006e,0x0070,0x0080,0x0089,0x008b,0x0094,0x0096,0x0098,0x009a,0x009c,0x009e,0x00a0,0x00a2,0x00a4,0x00a6,0x00a8,0x00aa,0x00ac,0x00af,0x00b4,0x00b8
060c 0002 0003 | | .XXX[0x1e]
060e 0004 0005 | |
0610 0006 0007 | |
0612 0008 000a | |
0614 000b 000c | |
0616 000d 000e | |
0618 000f 0010 | |
061a 0011 0012 | |
061c 0013 0014 | |
061e 0015 0016 | |
0620 0017 0018 | |
0622 0019 001a | |
0624 001b 001c | |
0626 001d 001e | |
0628 001f 0020 | |
062a ; --------------------------------------------------------------------------------------
062a ; Debug chain
062a ; --------------------------------------------------------------------------------------
062a 0000 0003 | | .DBGLEN 0x0000,0x0003
062c 00f3 00f6 | | .DBGLNO 0x00f3,0x00f6,0x00fa
062f ; --------------------------------------------------------------------------------------
062f ; Debug chain
062f ; --------------------------------------------------------------------------------------
062f 0000 0006 | | .DBGLEN 0x0000,0x0006
0631 010b 0110 | | .DBGLNO 0x010b,0x0110,0x0116,0x0119,0x011c,0x011e
0637 ; --------------------------------------------------------------------------------------
0637 ; Debug chain
0637 ; --------------------------------------------------------------------------------------
0637 0000 0004 | | .DBGLEN 0x0000,0x0004
0639 012b 012d | + -| .DBGLNO 0x012b,0x012d,0x0130,0x0132
063d ; --------------------------------------------------------------------------------------
063d ; Debug chain
063d ; --------------------------------------------------------------------------------------
063d 0000 0003 | | .DBGLEN 0x0000,0x0003
063f 013b 013d | ; =| .DBGLNO 0x013b,0x013d,0x0140
0642 ; --------------------------------------------------------------------------------------
0642 ; Debug chain
0642 ; --------------------------------------------------------------------------------------
0642 0005 0001 | | .DBGLEN 0x0005,0x0001
0644 014b 014d | K M| .DBGLNO 0x014b,0x014d,0x014f,0x0151,0x0153,0x0155
064a ; --------------------------------------------------------------------------------------
064a ; Debug chain
064a ; --------------------------------------------------------------------------------------
064a 0003 0003 | | .DBGLEN 0x0003,0x0003
064c 015b 0160 | [ `| .DBGLNO 0x015b,0x0160,0x0162,0x017e,0x0181,0x018d
0652 ; --------------------------------------------------------------------------------------
0652 ; Debug chain
0652 ; --------------------------------------------------------------------------------------
0652 0003 0003 | | .DBGLEN 0x0003,0x0003
0654 019b 01a0 | | .DBGLNO 0x019b,0x01a0,0x01a2,0x01be,0x01c1,0x01cd
065a ; --------------------------------------------------------------------------------------
065a ; Debug chain
065a ; --------------------------------------------------------------------------------------
065a 0000 0003 | | .DBGLEN 0x0000,0x0003
065c 023b 023f | ; ?| .DBGLNO 0x023b,0x023f,0x0241
065f ; --------------------------------------------------------------------------------------
065f ; Debug chain
065f ; --------------------------------------------------------------------------------------
065f 0003 0006 | | .DBGLEN 0x0003,0x0006
0661 024b 0251 | K Q| .DBGLNO 0x024b,0x0251,0x0257,0x025b,0x025d,0x0261,0x0269,0x026d,0x026f
066a ; --------------------------------------------------------------------------------------
066a ; Debug chain
066a ; --------------------------------------------------------------------------------------
066a 0000 0003 | | .DBGLEN 0x0000,0x0003
066c 0293 0297 | | .DBGLNO 0x0293,0x0297,0x029d
066f ; --------------------------------------------------------------------------------------
066f ; Debug chain
066f ; --------------------------------------------------------------------------------------
066f 0003 000a | | .DBGLEN 0x0003,0x000a
0671 02ab 02ad | | .DBGLNO 0x02ab,0x02ad,0x02af,0x02b3,0x02b9,0x02bf,0x02c1,0x02ea,0x02ee,0x0316,0x031a,0x031e,0x0321
067e 0002 0003 | | .XXX[0xa]
0680 0004 0005 | |
0682 0006 0007 | |
0684 0008 0009 | |
0686 0001 000a | |
0688 ; --------------------------------------------------------------------------------------
0688 ; Debug chain
0688 ; --------------------------------------------------------------------------------------
0688 0001 0004 | | .DBGLEN 0x0001,0x0004
068a 032b 032d | + -| .DBGLNO 0x032b,0x032d,0x0330,0x0334,0x0338
068f ; --------------------------------------------------------------------------------------
068f ; Debug chain
068f ; --------------------------------------------------------------------------------------
068f 0000 0007 | | .DBGLEN 0x0000,0x0007
0691 0343 0346 | C F| .DBGLNO 0x0343,0x0346,0x0348,0x0349,0x0351,0x035d,0x0369
0698 ; --------------------------------------------------------------------------------------
0698 ; Debug chain
0698 ; --------------------------------------------------------------------------------------
0698 0001 0001 | | .DBGLEN 0x0001,0x0001
069a 0373 0386 | s | .DBGLNO 0x0373,0x0386
069c ; --------------------------------------------------------------------------------------
069c ; Debug chain
069c ; --------------------------------------------------------------------------------------
069c 0000 0002 | | .DBGLEN 0x0000,0x0002
069e 0393 0395 | | .DBGLNO 0x0393,0x0395
06a0 ; --------------------------------------------------------------------------------------
06a0 ; Debug chain
06a0 ; --------------------------------------------------------------------------------------
06a0 0001 0008 | | .DBGLEN 0x0001,0x0008
06a2 03a3 03a6 | | .DBGLNO 0x03a3,0x03a6,0x03ab,0x03c5,0x03d1,0x03d6,0x03dd,0x03e2,0x03f8
06ab ; --------------------------------------------------------------------------------------
06ab ; Debug chain
06ab ; --------------------------------------------------------------------------------------
06ab 0001 0011 | | .DBGLEN 0x0001,0x0011
06ad 0403 0406 | | .DBGLNO 0x0403,0x0406,0x040b,0x0414,0x0427,0x042e,0x0439,0x043e,0x0443,0x0451,0x045a,0x045f,0x0464,0x0472,0x047d,0x0482,0x0487,0x0495
06bf 0001 0002 | | .XXX[0x11]
06c1 0003 0004 | |
06c3 000d 000e | |
06c5 000f 0010 | |
06c7 0005 0006 | |
06c9 0007 0008 | |
06cb 0009 000a | |
06cd 000b 000c | |
06cf 0011 | |
06d0 ; --------------------------------------------------------------------------------------
06d0 ; Debug chain
06d0 ; --------------------------------------------------------------------------------------
06d0 0000 0009 | | .DBGLEN 0x0000,0x0009
06d2 04a3 04a5 | | .DBGLNO 0x04a3,0x04a5,0x04a7,0x04ac,0x04c1,0x04c6,0x04cc,0x04d1,0x04d5
06db ; --------------------------------------------------------------------------------------
06db ; Debug chain
06db ; --------------------------------------------------------------------------------------
06db 0000 0001 | | .DBGLEN 0x0000,0x0001
06dd 04e3 | | .DBGLNO 0x04e3
06de ; --------------------------------------------------------------------------------------
06de ; Debug chain
06de ; --------------------------------------------------------------------------------------
06de 0000 0006 | | .DBGLEN 0x0000,0x0006
06e0 0524 0528 | $ (| .DBGLNO 0x0524,0x0528,0x053c,0x053e,0x0552,0x0557
06e6 0000 0000 | | .BLANK 0000[0x11a]