|
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: 3072 (0xc00)
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 0348 | H | .CONST 0x0348 ; 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 0002 | | .CONST 0x0002 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0096 | | .CONST 0x0096 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 002a | * | .CONST 0x002a ; Number of locals
000b INIT_0008:
000b 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated
000d 029a 00c3 | | Declare_Subprogram INIT_00c0,For_Outer_Call,Visible,Unelaborated
000f 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated
0011 029a 011b | | Declare_Subprogram INIT_0118,For_Outer_Call,Visible,Unelaborated
0013 029a 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call,Visible,Unelaborated
0015 029a 016b | k| Declare_Subprogram INIT_0168,For_Outer_Call,Visible,Unelaborated
0017 029a 0183 | | Declare_Subprogram INIT_0180,For_Outer_Call,Visible,Unelaborated
0019 029a 019b | | Declare_Subprogram INIT_0198,For_Outer_Call,Visible,Unelaborated
001b 029a 01fb | | Declare_Subprogram INIT_01f8,For_Outer_Call,Visible,Unelaborated
001d 029a 022b | +| Declare_Subprogram INIT_0228,For_Outer_Call,Visible,Unelaborated
001f 029a 0253 | S| Declare_Subprogram INIT_0250,For_Outer_Call,Visible,Unelaborated
0021 029a 0263 | c| Declare_Subprogram INIT_0260,For_Outer_Call,Visible,Unelaborated
0023 0093 0000 | | push_full_address 0x0
0025 6096 |` | Indirect_Literal Discrete,0xbc,{0x80000000, 0x00010000}
0026 0273 | s | Execute Discrete,Plus
0027 e20d | | Load 0x1,0xd
0028 608f |` | Indirect_Literal Discrete,0xb8,{0x00000000, 0x0000ffff}
0029 0279 | y | Execute Discrete,And
002a 0273 | s | Execute Discrete,Plus
002b 0129 | ) | Execute Any,Make_Visible
002c 0093 0000 | | push_full_address 0x0
002e 6085 |` | Indirect_Literal Discrete,0xb4,{0x80000000, 0x00020000}
002f 0273 | s | Execute Discrete,Plus
0030 e20d | | Load 0x1,0xd
0031 6086 |` | Indirect_Literal Discrete,0xb8,{0x00000000, 0x0000ffff}
0032 0279 | y | Execute Discrete,And
0033 0273 | s | Execute Discrete,Plus
0034 0129 | ) | Execute Any,Make_Visible
0035 029a 026b | k| Declare_Subprogram INIT_0268,For_Outer_Call,Visible,Unelaborated
0037 029a 0273 | s| Declare_Subprogram INIT_0270,For_Outer_Call,Visible,Unelaborated
0039 029a 027b | {| Declare_Subprogram INIT_0278,For_Outer_Call,Visible,Unelaborated
003b 4800 |H | Short_Literal 0x0
003c e20e | | Load 0x1,0xe
003d 0aff | | Execute_Immediate Plus,-0x1
003e 00e3 | | Load_Encached Natural_Cache
003f 03f9 | | Declare_Type Discrete,Constrained,Visible
0040 00e3 | | Load_Encached Natural_Cache
0041 4800 |H | Short_Literal 0x0
0042 4801 |H | Short_Literal 0x1
0043 4801 |H | Short_Literal 0x1
0044 4804 |H | Short_Literal 0x4
0045 0319 | | Declare_Type Variant_Record,Incomplete,Visible
0046 029f 0303 | | Declare_Subprogram INIT_0300,For_Call
0048 00d9 | | Load_Top At_Offset_1
0049 012a | * | Execute Any,Change_Utility
004a 0007 | | Action Break_Optional
004b 00d8 | | Load_Top At_Offset_0
004c 02a0 | | Declare_Subprogram Null_Subprogram
004d 4818 |H | Short_Literal 0x18
004e 03d4 | | Declare_Type Access,Defined,Visible,Accesses_Protected
004f 4800 |H | Short_Literal 0x0
0050 00db | | Load_Top At_Offset_3
0051 0269 | i | Execute Discrete,Last
0052 00da | | Load_Top At_Offset_2
0053 02a0 | | Declare_Subprogram Null_Subprogram
0054 4801 |H | Short_Literal 0x1
0055 035e | ^ | Declare_Type Array,Defined,Visible
0056 00d8 | | Load_Top At_Offset_0
0057 00e2 | | Load_Encached Integer_Cache
0058 029f 02f3 | | Declare_Subprogram INIT_02f0,For_Call
005a 4802 |H | Short_Literal 0x2
005b 032e | . | Declare_Type Record,Defined,Visible
005c 00d8 | | Load_Top At_Offset_0
005d 02a0 | | Declare_Subprogram Null_Subprogram
005e 4818 |H | Short_Literal 0x18
005f 03d4 | | Declare_Type Access,Defined,Visible,Accesses_Protected
0060 00d8 | | Load_Top At_Offset_0
0061 e222 | " | Load 0x1,0x22
0062 e224 | $ | Load 0x1,0x24
0063 00e1 | | Load_Encached Boolean_Cache
0064 02a0 | | Declare_Subprogram Null_Subprogram
0065 4804 |H | Short_Literal 0x4
0066 032e | . | Declare_Type Record,Defined,Visible
0067 e224 | $ | Load 0x1,0x24
0068 e20f | | Load 0x1,0xf
0069 00e9 | | Load_Encached String_Cache
006a 029f 0303 | | Declare_Subprogram INIT_0300,For_Call
006c 4800 |H | Short_Literal 0x0
006d 4801 |H | Short_Literal 0x1
006e 4802 |H | Short_Literal 0x2
006f e223 | # | Load 0x1,0x23
0070 0307 | | Complete_Type Variant_Record,By_Defining
0071 e224 | $ | Load 0x1,0x24
0072 03c4 | | Complete_Type Access,By_Component_Completion
0073 00bf | | Action Accept_Activation
0074 029d 028b | | Declare_Subprogram INIT_0288,For_Outer_Call
0076 029d 02ab | | Declare_Subprogram INIT_02a8,For_Outer_Call
0078 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0079 00c7 | | Action Elaborate_Subprogram
007a 1d12 | | Execute_Immediate Reference_Lex_1,0x12
007b 00c7 | | Action Elaborate_Subprogram
007c 1d13 | | Execute_Immediate Reference_Lex_1,0x13
007d 00c7 | | Action Elaborate_Subprogram
007e 1d14 | | Execute_Immediate Reference_Lex_1,0x14
007f 00c7 | | Action Elaborate_Subprogram
0080 1d18 | | Execute_Immediate Reference_Lex_1,0x18
0081 00c7 | | Action Elaborate_Subprogram
0082 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0083 00c7 | | Action Elaborate_Subprogram
0084 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0085 00c7 | | Action Elaborate_Subprogram
0086 1d17 | | Execute_Immediate Reference_Lex_1,0x17
0087 00c7 | | Action Elaborate_Subprogram
0088 1d19 | | Execute_Immediate Reference_Lex_1,0x19
0089 00c7 | | Action Elaborate_Subprogram
008a 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
008b 00c7 | | Action Elaborate_Subprogram
008c 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
008d 00c7 | | Action Elaborate_Subprogram
008e 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
008f 00c7 | | Action Elaborate_Subprogram
0090 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
0091 00c7 | | Action Elaborate_Subprogram
0092 1d20 | | Execute_Immediate Reference_Lex_1,0x20
0093 00c7 | | Action Elaborate_Subprogram
0094 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
0095 00c7 | | Action Elaborate_Subprogram
0096 BODY_0008:
0096 00bc | | Action Signal_Activated
0097 00bb | | Action Signal_Completion
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 00a5 | | .CONST 0x00a5 ; Address of begin
0099 0004 | | .CONST 0x0004 ; Address of exception handler
009a 0002 | | .CONST 0x0002 ; Number of locals
009b INIT_0098:
009b e224 | $ | Load 0x1,0x24
009c e5fe | | Load 0x2,-0x2
009d 00d8 | | Load_Top At_Offset_0
009e 822a | * | Call 0x1,0x2a
009f e5ff | | Load 0x2,-0x1
00a0 0227 | ' | Execute Access,All_Reference
00a1 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
00a2 01d7 | | Execute Vector,Field_Read
00a3 8229 | ) | Call 0x1,0x29
00a4 0039 | 9 | Store_Top Access,At_Offset_1
00a5 BODY_0098:
00a5 00d8 | | Load_Top At_Offset_0
00a6 680b |h | Jump_Zero 0xb2
00a7 00d8 | | Load_Top At_Offset_0
00a8 0227 | ' | Execute Access,All_Reference
00a9 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
00aa 00d8 | | Load_Top At_Offset_0
00ab 0120 | | Execute Any,Is_Value
00ac 7002 |p | Jump_Nonzero 0xaf
00ad 00d8 | | Load_Top At_Offset_0
00ae 011e | | Execute Any,Convert
00af e20f | | Load 0x1,0xf
00b0 0119 | | Execute Any,Check_In_Formal_Type
00b1 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
00b2 e21d | | Load 0x1,0x1d
00b3 0257 | W | Execute Discrete,Raise
00b4 8000 0000 | | .LITERAL {0x80000000, 0x00020000}
00b8 0000 0000 | | .LITERAL {0x00000000, 0x0000ffff}
00bc 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00cd | | .CONST 0x00cd ; Address of begin
00c1 0004 | | .CONST 0x0004 ; Address of exception handler
00c2 0002 | | .CONST 0x0002 ; Number of locals
00c3 INIT_00c0:
00c3 e224 | $ | Load 0x1,0x24
00c4 e5fe | | Load 0x2,-0x2
00c5 00d8 | | Load_Top At_Offset_0
00c6 822a | * | Call 0x1,0x2a
00c7 e5ff | | Load 0x2,-0x1
00c8 0227 | ' | Execute Access,All_Reference
00c9 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
00ca 01d7 | | Execute Vector,Field_Read
00cb 8229 | ) | Call 0x1,0x29
00cc 0039 | 9 | Store_Top Access,At_Offset_1
00cd BODY_00c0:
00cd 00d8 | | Load_Top At_Offset_0
00ce 6807 |h | Jump_Zero 0xd6
00cf 00d8 | | Load_Top At_Offset_0
00d0 0227 | ' | Execute Access,All_Reference
00d1 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
00d2 c5fd | | Store 0x2,-0x3
00d3 4801 |H | Short_Literal 0x1
00d4 a5fc | | Store_Unchecked 0x2,-0x4
00d5 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00d6 4800 |H | Short_Literal 0x0
00d7 a5fc | | Store_Unchecked 0x2,-0x4
00d8 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00d9 0000 0000 | | .BLANK 0000[0x7]
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00f3 | | .CONST 0x00f3 ; Address of begin
00e1 0004 | | .CONST 0x0004 ; Address of exception handler
00e2 0005 | | .CONST 0x0005 ; Number of locals
00e3 INIT_00e0:
00e3 00da | | Load_Top At_Offset_2
00e4 822a | * | Call 0x1,0x2a
00e5 e5fc | | Load 0x2,-0x4
00e6 0227 | ' | Execute Access,All_Reference
00e7 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
00e8 01d5 | | Execute Vector,Field_Reference
00e9 0007 | | Action Break_Optional
00ea 00d8 | | Load_Top At_Offset_0
00eb 0007 | | Action Break_Optional
00ec e224 | $ | Load 0x1,0x24
00ed e5ff | | Load 0x2,-0x1
00ee 00da | | Load_Top At_Offset_2
00ef 8229 | ) | Call 0x1,0x29
00f0 0039 | 9 | Store_Top Access,At_Offset_1
00f1 029f 02bb | | Declare_Subprogram INIT_02b8,For_Call
00f3 BODY_00e0:
00f3 00d9 | | Load_Top At_Offset_1
00f4 7013 |p | Jump_Nonzero 0x108
00f5 e5ff | | Load 0x2,-0x1
00f6 01db | | Execute Vector,Length
00f7 e223 | # | Load 0x1,0x23
00f8 1c08 | | Execute_Immediate Run_Utility,0x8
00f9 e224 | $ | Load 0x1,0x24
00fa 03b6 | | Declare_Variable Access,By_Allocation,With_Value
00fb 00d8 | | Load_Top At_Offset_0
00fc 0227 | ' | Execute Access,All_Reference
00fd 1c00 | | Execute_Immediate Run_Utility,0x0
00fe a402 | | Store_Unchecked 0x2,0x2
00ff 8405 | | Call 0x2,0x5
0100 e5fc | | Load 0x2,-0x4
0101 0227 | ' | Execute Access,All_Reference
0102 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0103 0a01 | | Execute_Immediate Plus,0x1
0104 e5fc | | Load 0x2,-0x4
0105 0227 | ' | Execute Access,All_Reference
0106 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0107 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0108 e5fd | | Load 0x2,-0x3
0109 6802 |h | Jump_Zero 0x10c
010a e21e | | Load 0x1,0x1e
010b 0257 | W | Execute Discrete,Raise
010c e5fe | | Load 0x2,-0x2
010d 00da | | Load_Top At_Offset_2
010e 0227 | ' | Execute Access,All_Reference
010f 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
0110 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0111 0000 0000 | | .BLANK 0000[0x7]
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 0127 | ' | .CONST 0x0127 ; Address of begin
0119 0004 | | .CONST 0x0004 ; Address of exception handler
011a 0004 | | .CONST 0x0004 ; Number of locals
011b INIT_0118:
011b 00da | | Load_Top At_Offset_2
011c 822a | * | Call 0x1,0x2a
011d e222 | " | Load 0x1,0x22
011e 03f1 | | Declare_Variable Discrete,With_Value
011f e224 | $ | Load 0x1,0x24
0120 00d9 | | Load_Top At_Offset_1
0121 e5fe | | Load 0x2,-0x2
0122 0227 | ' | Execute Access,All_Reference
0123 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0124 01d7 | | Execute Vector,Field_Read
0125 0039 | 9 | Store_Top Access,At_Offset_1
0126 e224 | $ | Load 0x1,0x24
0127 BODY_0118:
0127 00cf | | Action Mark_Auxiliary
0128 7826 |x& | Jump 0x14f
0129 00da | | Load_Top At_Offset_2
012a 0227 | ' | Execute Access,All_Reference
012b 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4
012c e5ff | | Load 0x2,-0x1
012d 01df | | Execute Vector,Equal
012e 6819 |h | Jump_Zero 0x148
012f 00d9 | | Load_Top At_Offset_1
0130 6807 |h | Jump_Zero 0x138
0131 00da | | Load_Top At_Offset_2
0132 0227 | ' | Execute Access,All_Reference
0133 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0134 00da | | Load_Top At_Offset_2
0135 0227 | ' | Execute Access,All_Reference
0136 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0137 7808 |x | Jump 0x140
0138 00da | | Load_Top At_Offset_2
0139 0227 | ' | Execute Access,All_Reference
013a 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
013b e402 | | Load 0x2,0x2
013c e5fe | | Load 0x2,-0x2
013d 0227 | ' | Execute Access,All_Reference
013e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
013f 01d6 | | Execute Vector,Field_Write
0140 e5fe | | Load 0x2,-0x2
0141 0227 | ' | Execute Access,All_Reference
0142 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0143 0aff | | Execute_Immediate Plus,-0x1
0144 e5fe | | Load 0x2,-0x2
0145 0227 | ' | Execute Access,All_Reference
0146 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0147 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0148 00da | | Load_Top At_Offset_2
0149 003a | : | Store_Top Access,At_Offset_2
014a 00da | | Load_Top At_Offset_2
014b 0227 | ' | Execute Access,All_Reference
014c 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
014d 003b | ; | Store_Top Access,At_Offset_3
014e 00c9 | | Action Pop_Auxiliary_Loop
014f 00da | | Load_Top At_Offset_2
0150 77d8 |w | Jump_Nonzero 0x129
0151 00ce | | Action Pop_Auxiliary
0152 e21d | | Load 0x1,0x1d
0153 0257 | W | Execute Discrete,Raise
0154 0000 0000 | | .BLANK 0000[0x4]
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 015b | [ | .CONST 0x015b ; Address of begin
0159 0004 | | .CONST 0x0004 ; Address of exception handler
015a 0001 | | .CONST 0x0001 ; Number of locals
015b BODY_0158:
015b INIT_0158:
015b e227 | ' | Load 0x1,0x27
015c 03bc | | Declare_Variable Access,By_Allocation
015d 00d8 | | Load_Top At_Offset_0
015e 0227 | ' | Execute Access,All_Reference
015f 1c00 | | Execute_Immediate Run_Utility,0x0
0160 003b | ; | Store_Top Access,At_Offset_3
0161 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0162 0000 0000 | | .BLANK 0000[0x6]
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 e228 | ( | Load 0x1,0x28
016c 0322 | " | Declare_Variable Record
016d BODY_0168:
016d 00cf | | Action Mark_Auxiliary
016e e222 | " | Load 0x1,0x22
016f 0269 | i | Execute Discrete,Last
0170 4800 |H | Short_Literal 0x0
0171 0263 | c | Execute Discrete,Above_Bound
0172 700a |p | Jump_Nonzero 0x17d
0173 00d8 | | Load_Top At_Offset_0
0174 e5ff | | Load 0x2,-0x1
0175 0227 | ' | Execute Access,All_Reference
0176 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0177 01d7 | | Execute Vector,Field_Read
0178 6802 |h | Jump_Zero 0x17b
0179 4800 |H | Short_Literal 0x0
017a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
017b 00c8 | | Action Pop_Auxiliary_Range
017c 3ff6 |? | Loop_Increasing 0x173
017d 00ce | | Action Pop_Auxiliary
017e 4801 |H | Short_Literal 0x1
017f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0180 ; --------------------------------------------------------------------------------------
0180 ; SUBPROGRAM
0180 ; --------------------------------------------------------------------------------------
0180 0183 | | .CONST 0x0183 ; Address of begin
0181 0004 | | .CONST 0x0004 ; Address of exception handler
0182 0001 | | .CONST 0x0001 ; Number of locals
0183 BODY_0180:
0183 INIT_0180:
0183 00cf | | Action Mark_Auxiliary
0184 e222 | " | Load 0x1,0x22
0185 0269 | i | Execute Discrete,Last
0186 4800 |H | Short_Literal 0x0
0187 0263 | c | Execute Discrete,Above_Bound
0188 7008 |p | Jump_Nonzero 0x191
0189 e224 | $ | Load 0x1,0x24
018a 00d9 | | Load_Top At_Offset_1
018b e5ff | | Load 0x2,-0x1
018c 0227 | ' | Execute Access,All_Reference
018d 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
018e 01d6 | | Execute Vector,Field_Write
018f 00c8 | | Action Pop_Auxiliary_Range
0190 3ff8 |? | Loop_Increasing 0x189
0191 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0192 0000 0000 | | .BLANK 0000[0x6]
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 019c | | .CONST 0x019c ; Address of begin
0199 0004 | | .CONST 0x0004 ; Address of exception handler
019a 0002 | | .CONST 0x0002 ; Number of locals
019b INIT_0198:
019b e224 | $ | Load 0x1,0x24
019c BODY_0198:
019c 00cf | | Action Mark_Auxiliary
019d e222 | " | Load 0x1,0x22
019e 0269 | i | Execute Discrete,Last
019f 4800 |H | Short_Literal 0x0
01a0 0263 | c | Execute Discrete,Above_Bound
01a1 7049 |pI | Jump_Nonzero 0x1eb
01a2 00d8 | | Load_Top At_Offset_0
01a3 e5ff | | Load 0x2,-0x1
01a4 0227 | ' | Execute Access,All_Reference
01a5 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
01a6 01d7 | | Execute Vector,Field_Read
01a7 a402 | | Store_Unchecked 0x2,0x2
01a8 e224 | $ | Load 0x1,0x24
01a9 00d9 | | Load_Top At_Offset_1
01aa e5fe | | Load 0x2,-0x2
01ab 0227 | ' | Execute Access,All_Reference
01ac 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
01ad 01d6 | | Execute Vector,Field_Write
01ae 00cf | | Action Mark_Auxiliary
01af 7836 |x6 | Jump 0x1e6
01b0 e402 | | Load 0x2,0x2
01b1 0227 | ' | Execute Access,All_Reference
01b2 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4
01b3 01db | | Execute Vector,Length
01b4 e223 | # | Load 0x1,0x23
01b5 1c08 | | Execute_Immediate Run_Utility,0x8
01b6 e402 | | Load 0x2,0x2
01b7 0227 | ' | Execute Access,All_Reference
01b8 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4
01b9 00d9 | | Load_Top At_Offset_1
01ba 00d8 | | Load_Top At_Offset_0
01bb 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4
01bc 00da | | Load_Top At_Offset_2
01bd 01da | | Execute Vector,Bounds
01be 00da | | Load_Top At_Offset_2
01bf 01da | | Execute Vector,Bounds
01c0 00da | | Load_Top At_Offset_2
01c1 027f | | Execute Discrete,Equal
01c2 7001 |p | Jump_Nonzero 0x1c4
01c3 08e0 | | Execute_Immediate Raise,0xe0
01c4 00cd | | Action Spare6_Action
01c5 027f | | Execute Discrete,Equal
01c6 7001 |p | Jump_Nonzero 0x1c8
01c7 08e0 | | Execute_Immediate Raise,0xe0
01c8 00d2 | | Pop_Control Pop_Count_2
01c9 00d9 | | Load_Top At_Offset_1
01ca 2904 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x4
01cb e402 | | Load 0x2,0x2
01cc 0227 | ' | Execute Access,All_Reference
01cd 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
01ce e223 | # | Load 0x1,0x23
01cf 2303 |# | Execute Variant_Record,Field_Type,Field_Number 0x3
01d0 0119 | | Execute Any,Check_In_Formal_Type
01d1 00d9 | | Load_Top At_Offset_1
01d2 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
01d3 00da | | Load_Top At_Offset_2
01d4 e5fe | | Load 0x2,-0x2
01d5 0227 | ' | Execute Access,All_Reference
01d6 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
01d7 01d7 | | Execute Vector,Field_Read
01d8 00d9 | | Load_Top At_Offset_1
01d9 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
01da e224 | $ | Load 0x1,0x24
01db 03b6 | | Declare_Variable Access,By_Allocation,With_Value
01dc 00da | | Load_Top At_Offset_2
01dd e5fe | | Load 0x2,-0x2
01de 0227 | ' | Execute Access,All_Reference
01df 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
01e0 01d6 | | Execute Vector,Field_Write
01e1 e402 | | Load 0x2,0x2
01e2 0227 | ' | Execute Access,All_Reference
01e3 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
01e4 a402 | | Store_Unchecked 0x2,0x2
01e5 00c9 | | Action Pop_Auxiliary_Loop
01e6 e402 | | Load 0x2,0x2
01e7 77c8 |w | Jump_Nonzero 0x1b0
01e8 00ce | | Action Pop_Auxiliary
01e9 00c8 | | Action Pop_Auxiliary_Range
01ea 3fb7 |? | Loop_Increasing 0x1a2
01eb 00ce | | Action Pop_Auxiliary
01ec 00db | | Load_Top At_Offset_3
01ed 0227 | ' | Execute Access,All_Reference
01ee 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01ef e5fe | | Load 0x2,-0x2
01f0 0227 | ' | Execute Access,All_Reference
01f1 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
01f2 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01f3 0000 0000 | | .BLANK 0000[0x5]
01f8 ; --------------------------------------------------------------------------------------
01f8 ; SUBPROGRAM
01f8 ; --------------------------------------------------------------------------------------
01f8 01fd | | .CONST 0x01fd ; Address of begin
01f9 0004 | | .CONST 0x0004 ; Address of exception handler
01fa 0002 | | .CONST 0x0002 ; Number of locals
01fb INIT_01f8:
01fb e228 | ( | Load 0x1,0x28
01fc 0322 | " | Declare_Variable Record
01fd BODY_01f8:
01fd 00cf | | Action Mark_Auxiliary
01fe e222 | " | Load 0x1,0x22
01ff 0269 | i | Execute Discrete,Last
0200 4800 |H | Short_Literal 0x0
0201 0263 | c | Execute Discrete,Above_Bound
0202 7019 |p | Jump_Nonzero 0x21c
0203 00d8 | | Load_Top At_Offset_0
0204 e5ff | | Load 0x2,-0x1
0205 0227 | ' | Execute Access,All_Reference
0206 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0207 01d7 | | Execute Vector,Field_Read
0208 e402 | | Load 0x2,0x2
0209 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
020a 00db | | Load_Top At_Offset_3
020b 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
020c 680d |h | Jump_Zero 0x21a
020d 4800 |H | Short_Literal 0x0
020e e402 | | Load 0x2,0x2
020f 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0210 00d8 | | Load_Top At_Offset_0
0211 e402 | | Load 0x2,0x2
0212 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0213 e5ff | | Load 0x2,-0x1
0214 e402 | | Load 0x2,0x2
0215 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0216 00db | | Load_Top At_Offset_3
0217 e5fe | | Load 0x2,-0x2
0218 017d | } | Execute Record,Structure_Write
0219 4502 |E | Exit_Suprogram New_Top_Offset 0x2
021a 00c8 | | Action Pop_Auxiliary_Range
021b 3fe7 |? | Loop_Increasing 0x203
021c 00ce | | Action Pop_Auxiliary
021d 4801 |H | Short_Literal 0x1
021e 00d9 | | Load_Top At_Offset_1
021f 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0220 00d8 | | Load_Top At_Offset_0
0221 e5fe | | Load 0x2,-0x2
0222 017d | } | Execute Record,Structure_Write
0223 4502 |E | Exit_Suprogram New_Top_Offset 0x2
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 00da | | Load_Top At_Offset_2
022c 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
022d 0227 | ' | Execute Access,All_Reference
022e 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
022f 00db | | Load_Top At_Offset_3
0230 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0231 00cf | | Action Mark_Auxiliary
0232 7819 |x | Jump 0x24c
0233 00db | | Load_Top At_Offset_3
0234 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0235 e222 | " | Load 0x1,0x22
0236 0269 | i | Execute Discrete,Last
0237 027f | | Execute Discrete,Equal
0238 6804 |h | Jump_Zero 0x23d
0239 4801 |H | Short_Literal 0x1
023a e5ff | | Load 0x2,-0x1
023b 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
023c 4501 |E | Exit_Suprogram New_Top_Offset 0x1
023d 00db | | Load_Top At_Offset_3
023e 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
023f 0a01 | | Execute_Immediate Plus,0x1
0240 e5ff | | Load 0x2,-0x1
0241 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0242 00db | | Load_Top At_Offset_3
0243 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0244 e5ff | | Load 0x2,-0x1
0245 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0246 0227 | ' | Execute Access,All_Reference
0247 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0248 01d7 | | Execute Vector,Field_Read
0249 e5ff | | Load 0x2,-0x1
024a 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
024b 00c9 | | Action Pop_Auxiliary_Loop
024c 00db | | Load_Top At_Offset_3
024d 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
024e 6fe4 |o | Jump_Zero 0x233
024f 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0250 ; --------------------------------------------------------------------------------------
0250 ; SUBPROGRAM
0250 ; --------------------------------------------------------------------------------------
0250 0253 | S | .CONST 0x0253 ; Address of begin
0251 0004 | | .CONST 0x0004 ; Address of exception handler
0252 0001 | | .CONST 0x0001 ; Number of locals
0253 BODY_0250:
0253 INIT_0250:
0253 00da | | Load_Top At_Offset_2
0254 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0255 0227 | ' | Execute Access,All_Reference
0256 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4
0257 0335 | 5 | Declare_Variable Array,Duplicate
0258 00cd | | Action Spare6_Action
0259 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
025a 0000 0000 | | .BLANK 0000[0x6]
0260 ; --------------------------------------------------------------------------------------
0260 ; SUBPROGRAM
0260 ; --------------------------------------------------------------------------------------
0260 0263 | c | .CONST 0x0263 ; Address of begin
0261 0004 | | .CONST 0x0004 ; Address of exception handler
0262 0001 | | .CONST 0x0001 ; Number of locals
0263 BODY_0260:
0263 INIT_0260:
0263 00da | | Load_Top At_Offset_2
0264 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0265 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
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 e227 | ' | Load 0x1,0x27
026c 00ca | | Action Exit_Nullary_Function
026d 0000 0000 | | .XXX[0x3]
026f 0000 | |
0270 ; --------------------------------------------------------------------------------------
0270 ; SUBPROGRAM
0270 ; --------------------------------------------------------------------------------------
0270 0273 | s | .CONST 0x0273 ; Address of begin
0271 0004 | | .CONST 0x0004 ; Address of exception handler
0272 0001 | | .CONST 0x0001 ; Number of locals
0273 BODY_0270:
0273 INIT_0270:
0273 00da | | Load_Top At_Offset_2
0274 022d | - | Execute Access,Is_Null
0275 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0276 0000 0000 | | .XXX[0x2]
0278 ; --------------------------------------------------------------------------------------
0278 ; SUBPROGRAM
0278 ; --------------------------------------------------------------------------------------
0278 027b | { | .CONST 0x027b ; Address of begin
0279 0004 | | .CONST 0x0004 ; Address of exception handler
027a 0001 | | .CONST 0x0001 ; Number of locals
027b BODY_0278:
027b INIT_0278:
027b 00da | | Load_Top At_Offset_2
027c 0227 | ' | Execute Access,All_Reference
027d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
027e 00d8 | | Load_Top At_Offset_0
027f 00e3 | | Load_Encached Natural_Cache
0280 0260 | ` | Execute Discrete,In_Type
0281 7001 |p | Jump_Nonzero 0x283
0282 0801 | | Execute_Immediate Raise,0x1
0283 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0284 0000 0000 | | .BLANK 0000[0x4]
0288 ; --------------------------------------------------------------------------------------
0288 ; SUBPROGRAM
0288 ; --------------------------------------------------------------------------------------
0288 0290 | | .CONST 0x0290 ; Address of begin
0289 0004 | | .CONST 0x0004 ; Address of exception handler
028a 0003 | | .CONST 0x0003 ; Number of locals
028b INIT_0288:
028b e224 | $ | Load 0x1,0x24
028c 00db | | Load_Top At_Offset_3
028d 0039 | 9 | Store_Top Access,At_Offset_1
028e 029f 02cb | | Declare_Subprogram INIT_02c8,For_Call
0290 BODY_0288:
0290 e210 | | Load 0x1,0x10
0291 6802 |h | Jump_Zero 0x294
0292 8403 | | Call 0x2,0x3
0293 7812 |x | Jump 0x2a6
0294 00cf | | Action Mark_Auxiliary
0295 780d |x | Jump 0x2a3
0296 00da | | Load_Top At_Offset_2
0297 0227 | ' | Execute Access,All_Reference
0298 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4
0299 e5fe | | Load 0x2,-0x2
029a 01df | | Execute Vector,Equal
029b 6802 |h | Jump_Zero 0x29e
029c 00da | | Load_Top At_Offset_2
029d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
029e 00da | | Load_Top At_Offset_2
029f 0227 | ' | Execute Access,All_Reference
02a0 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
02a1 003b | ; | Store_Top Access,At_Offset_3
02a2 00c9 | | Action Pop_Auxiliary_Loop
02a3 00da | | Load_Top At_Offset_2
02a4 77f1 |w | Jump_Nonzero 0x296
02a5 00ce | | Action Pop_Auxiliary
02a6 e224 | $ | Load 0x1,0x24
02a7 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
02a8 ; --------------------------------------------------------------------------------------
02a8 ; SUBPROGRAM
02a8 ; --------------------------------------------------------------------------------------
02a8 02ab | | .CONST 0x02ab ; Address of begin
02a9 0004 | | .CONST 0x0004 ; Address of exception handler
02aa 0001 | | .CONST 0x0001 ; Number of locals
02ab BODY_02a8:
02ab INIT_02a8:
02ab 00da | | Load_Top At_Offset_2
02ac 8002 | | Call 0x0,0x2
02ad e20e | | Load 0x1,0xe
02ae 026e | n | Execute Discrete,Modulo
02af 00d8 | | Load_Top At_Offset_0
02b0 e222 | " | Load 0x1,0x22
02b1 0260 | ` | Execute Discrete,In_Type
02b2 7001 |p | Jump_Nonzero 0x2b4
02b3 0801 | | Execute_Immediate Raise,0x1
02b4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02b5 0000 0000 | | .XXX[0x3]
02b7 0000 | |
02b8 ; --------------------------------------------------------------------------------------
02b8 ; SUBPROGRAM
02b8 ; --------------------------------------------------------------------------------------
02b8 02be | | .CONST 0x02be ; Address of begin
02b9 0004 | | .CONST 0x0004 ; Address of exception handler
02ba 0002 | | .CONST 0x0002 ; Number of locals
02bb INIT_02b8:
02bb e402 | | Load 0x2,0x2
02bc 0227 | ' | Execute Access,All_Reference
02bd 0007 | | Action Break_Optional
02be BODY_02b8:
02be e403 | | Load 0x2,0x3
02bf 00d9 | | Load_Top At_Offset_1
02c0 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
02c1 e5fe | | Load 0x2,-0x2
02c2 00d9 | | Load_Top At_Offset_1
02c3 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
02c4 e5ff | | Load 0x2,-0x1
02c5 00d9 | | Load_Top At_Offset_1
02c6 2904 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x4
02c7 4501 |E | Exit_Suprogram New_Top_Offset 0x1
02c8 ; --------------------------------------------------------------------------------------
02c8 ; SUBPROGRAM
02c8 ; --------------------------------------------------------------------------------------
02c8 02cd | | .CONST 0x02cd ; Address of begin
02c9 0004 | | .CONST 0x0004 ; Address of exception handler
02ca 0002 | | .CONST 0x0002 ; Number of locals
02cb INIT_02c8:
02cb e5fe | | Load 0x2,-0x2
02cc 8003 | | Call 0x0,0x3
02cd BODY_02c8:
02cd 00cf | | Action Mark_Auxiliary
02ce 7817 |x | Jump 0x2e6
02cf e402 | | Load 0x2,0x2
02d0 0227 | ' | Execute Access,All_Reference
02d1 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4
02d2 01db | | Execute Vector,Length
02d3 00da | | Load_Top At_Offset_2
02d4 01db | | Execute Vector,Length
02d5 027f | | Execute Discrete,Equal
02d6 680a |h | Jump_Zero 0x2e1
02d7 e402 | | Load 0x2,0x2
02d8 0227 | ' | Execute Access,All_Reference
02d9 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4
02da 8003 | | Call 0x0,0x3
02db 00da | | Load_Top At_Offset_2
02dc 01df | | Execute Vector,Equal
02dd 6803 |h | Jump_Zero 0x2e1
02de e402 | | Load 0x2,0x2
02df 00cb | | Action Pop_Block_With_Result
02e0 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
02e1 e402 | | Load 0x2,0x2
02e2 0227 | ' | Execute Access,All_Reference
02e3 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
02e4 a402 | | Store_Unchecked 0x2,0x2
02e5 00c9 | | Action Pop_Auxiliary_Loop
02e6 e402 | | Load 0x2,0x2
02e7 77e7 |w | Jump_Nonzero 0x2cf
02e8 4501 |E | Exit_Suprogram New_Top_Offset 0x1
02e9 0000 0000 | | .BLANK 0000[0x7]
02f0 ; --------------------------------------------------------------------------------------
02f0 ; SUBPROGRAM
02f0 ; --------------------------------------------------------------------------------------
02f0 02f3 | | .CONST 0x02f3 ; Address of begin
02f1 0004 | | .CONST 0x0004 ; Address of exception handler
02f2 0001 | | .CONST 0x0001 ; Number of locals
02f3 BODY_02f0:
02f3 INIT_02f0:
02f3 4601 |F | Jump_Case 0x2
02f4 7801 |x | Jump 0x2f6 ; case 0x0
02f5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
02f6 4800 |H | Short_Literal 0x0
02f7 00db | | Load_Top At_Offset_3
02f8 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
02f9 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
02fa 0000 0000 | | .BLANK 0000[0x6]
0300 ; --------------------------------------------------------------------------------------
0300 ; SUBPROGRAM
0300 ; SUBPROGRAM
0300 ; --------------------------------------------------------------------------------------
0300 0303 | | .CONST 0x0303 ; Address of begin
0301 0004 | | .CONST 0x0004 ; Address of exception handler
0302 0001 | | .CONST 0x0001 ; Number of locals
0303 BODY_0300:
0303 BODY_0300:
0303 INIT_0300:
0303 INIT_0300:
0303 4609 |F | Jump_Case 0xa
0304 7809 |x | Jump 0x30e ; case 0x0
0305 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
0306 780d |x | Jump 0x314 ; case 0x2
0307 7810 |x | Jump 0x318 ; case 0x3
0308 7815 |x | Jump 0x31e ; case 0x4
0309 781c |x | Jump 0x326 ; case 0x5
030a 7838 |x8 | Jump 0x343 ; case 0x6
030b 7824 |x$ | Jump 0x330 ; case 0x7
030c 782c |x, | Jump 0x339 ; case 0x8
030d 7835 |x5 | Jump 0x343 ; case 0x9
030e 00da | | Load_Top At_Offset_2
030f 2203 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x3
0310 00da | | Load_Top At_Offset_2
0311 2403 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x3
0312 1c00 | | Execute_Immediate Run_Utility,0x0
0313 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0314 4801 |H | Short_Literal 0x1
0315 4804 |H | Short_Literal 0x4
0316 0311 | | Declare_Type Variant_Record,Constrained_Incomplete
0317 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0318 e5fd | | Load 0x2,-0x3
0319 00db | | Load_Top At_Offset_3
031a 1c07 | | Execute_Immediate Run_Utility,0x7
031b e5fe | | Load 0x2,-0x2
031c 0306 | | Complete_Type Variant_Record,By_Renaming
031d 4304 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x4
031e 4801 |H | Short_Literal 0x1
031f 4804 |H | Short_Literal 0x4
0320 0311 | | Declare_Type Variant_Record,Constrained_Incomplete
0321 e5fe | | Load 0x2,-0x2
0322 e5ff | | Load 0x2,-0x1
0323 00da | | Load_Top At_Offset_2
0324 0305 | | Complete_Type Variant_Record,By_Constraining_Incomplete
0325 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0326 4801 |H | Short_Literal 0x1
0327 4801 |H | Short_Literal 0x1
0328 e5ff | | Load 0x2,-0x1
0329 0169 | i | Execute Variant_Record,Read_Discriminant_Constraint
032a 00e9 | | Load_Encached String_Cache
032b 035b | [ | Declare_Type Array,Constrained
032c 4801 |H | Short_Literal 0x1
032d e5ff | | Load 0x2,-0x1
032e 0304 | | Complete_Type Variant_Record,By_Completing_Constraint
032f 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0330 00db | | Load_Top At_Offset_3
0331 4801 |H | Short_Literal 0x1
0332 e5fe | | Load 0x2,-0x2
0333 00e9 | | Load_Encached String_Cache
0334 035b | [ | Declare_Type Array,Constrained
0335 4801 |H | Short_Literal 0x1
0336 e5ff | | Load 0x2,-0x1
0337 031b | | Declare_Type Variant_Record,Constrained
0338 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0339 00db | | Load_Top At_Offset_3
033a 00db | | Load_Top At_Offset_3
033b 02fc | | Declare_Variable Variant_Record,With_Constraint
033c 4801 |H | Short_Literal 0x1
033d e5fe | | Load 0x2,-0x2
033e 00e9 | | Load_Encached String_Cache
033f 0334 | 4 | Declare_Variable Array,With_Constraint
0340 2d04 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x4
0341 016a | j | QQ_execute Variant_Record,XXX
0342 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0343 0869 | i | Execute_Immediate Raise,0x69
0344 0000 0000 | | .BLANK 0000[0x4]
0348 ; --------------------------------------------------------------------------------------
0348 ; Debug Table
0348 ; --------------------------------------------------------------------------------------
0348 0004 0001 | | .DEBUG4 0x0004,0x0001,0x97cd,0x0000,0x0001,0x0017
034e 000b 03aa | | .DBG4T 0x000b,0x03aa,0xc000,0x8000
0352 0074 03de | t | .DBG4T 0x0074,0x03de,0xc000,0x8000
0356 009b 0402 | | .DBG4T 0x009b,0x0402,0x1002,0x0000
035a 00c3 0408 | | .DBG4T 0x00c3,0x0408,0x1001,0x0000
035e 00e3 040f | | .DBG4T 0x00e3,0x040f,0x1001,0x0000
0362 011b 041b | | .DBG4T 0x011b,0x041b,0x1001,0x4000
0366 015b 0434 | [ 4| .DBG4T 0x015b,0x0434,0x1001,0x0000
036a 016b 0437 | k 7| .DBG4T 0x016b,0x0437,0x1002,0x0000
036e 0183 043e | >| .DBG4T 0x0183,0x043e,0x1001,0x0000
0372 019b 0442 | B| .DBG4T 0x019b,0x0442,0x1001,0x4000
0376 01fb 0453 | S| .DBG4T 0x01fb,0x0453,0x1001,0x0000
037a 022b 0460 | + `| .DBG4T 0x022b,0x0460,0x1001,0x4000
037e 0253 0470 | S p| .DBG4T 0x0253,0x0470,0x1002,0x0000
0382 0263 0473 | c s| .DBG4T 0x0263,0x0473,0x1002,0x0000
0386 026b 0476 | k v| .DBG4T 0x026b,0x0476,0x1002,0x0000
038a 0273 0479 | s y| .DBG4T 0x0273,0x0479,0x1002,0x0000
038e 027b 047c | { || .DBG4T 0x027b,0x047c,0x1002,0x0000
0392 028b 047f | | .DBG4T 0x028b,0x047f,0x1002,0x4000
0396 02ab 0490 | | .DBG4T 0x02ab,0x0490,0x1002,0x0000
039a 02bb 0493 | | .DBG4T 0x02bb,0x0493,0x1004,0x0000
039e 02cb 0499 | | .DBG4T 0x02cb,0x0499,0x1004,0x4000
03a2 02f3 0000 | | .DBG4T 0x02f3,0x0000,0x1005,0x0000
03a6 0303 0000 | | .DBG4T 0x0303,0x0000,0x1005,0x0000
03aa ; --------------------------------------------------------------------------------------
03aa ; Debug chain
03aa ; --------------------------------------------------------------------------------------
03aa 0019 0000 | | .DBGLEN 0x0019,0x0000
03ac 000b 000d | | .DBGLNO 0x000b,0x000d,0x000f,0x0011,0x0013,0x0015,0x0017,0x0019,0x001b,0x001d,0x001f,0x0021,0x0023,0x002c,0x0035,0x0037,0x0039,0x003b,0x0040,0x004b,0x004f,0x0056,0x005c,0x0060,0x0067
03c5 0002 0003 | | .XXX[0x19]
03c7 0004 0005 | |
03c9 0006 0007 | |
03cb 0008 0009 | |
03cd 000b 000c | |
03cf 000d 000e | |
03d1 000f 0010 | |
03d3 0011 0012 | |
03d5 0013 0014 | |
03d7 0015 0016 | |
03d9 0017 0018 | |
03db 0019 001a | |
03dd 001b | |
03de ; --------------------------------------------------------------------------------------
03de ; Debug chain
03de ; --------------------------------------------------------------------------------------
03de 0011 0000 | | .DBGLEN 0x0011,0x0000
03e0 0074 0076 | t v| .DBGLNO 0x0074,0x0076,0x0078,0x007a,0x007c,0x007e,0x0080,0x0082,0x0084,0x0086,0x0088,0x008a,0x008c,0x008e,0x0090,0x0092,0x0094
03f1 0001 0002 | | .XXX[0x11]
03f3 0004 0005 | |
03f5 0006 0007 | |
03f7 0008 0009 | |
03f9 000a 000b | |
03fb 000c 000d | |
03fd 000e 000f | |
03ff 0010 0011 | |
0401 0012 | |
0402 ; --------------------------------------------------------------------------------------
0402 ; Debug chain
0402 ; --------------------------------------------------------------------------------------
0402 0001 0003 | | .DBGLEN 0x0001,0x0003
0404 009b 00a5 | | .DBGLNO 0x009b,0x00a5,0x00a7,0x00b2
0408 ; --------------------------------------------------------------------------------------
0408 ; Debug chain
0408 ; --------------------------------------------------------------------------------------
0408 0001 0004 | | .DBGLEN 0x0001,0x0004
040a 00c3 00cd | | .DBGLNO 0x00c3,0x00cd,0x00cf,0x00d3,0x00d6
040f ; --------------------------------------------------------------------------------------
040f ; Debug chain
040f ; --------------------------------------------------------------------------------------
040f 0003 0007 | | .DBGLEN 0x0003,0x0007
0411 00e3 00ea | | .DBGLNO 0x00e3,0x00ea,0x00ec,0x00f3,0x00f5,0x00ff,0x0100,0x0108,0x010a,0x010c
041b ; --------------------------------------------------------------------------------------
041b ; Debug chain
041b ; --------------------------------------------------------------------------------------
041b 0003 000a | | .DBGLEN 0x0003,0x000a
041d 011b 011f | | .DBGLNO 0x011b,0x011f,0x0126,0x0129,0x012f,0x0131,0x0138,0x0140,0x0147,0x0148,0x014a,0x014f,0x0152
042a 0002 0003 | | .XXX[0xa]
042c 0004 0005 | |
042e 0006 0007 | |
0430 0008 0009 | |
0432 0001 000a | |
0434 ; --------------------------------------------------------------------------------------
0434 ; Debug chain
0434 ; --------------------------------------------------------------------------------------
0434 0000 0001 | | .DBGLEN 0x0000,0x0001
0436 015b | [ | .DBGLNO 0x015b
0437 ; --------------------------------------------------------------------------------------
0437 ; Debug chain
0437 ; --------------------------------------------------------------------------------------
0437 0001 0004 | | .DBGLEN 0x0001,0x0004
0439 016b 016e | k n| .DBGLNO 0x016b,0x016e,0x0173,0x0179,0x017e
043e ; --------------------------------------------------------------------------------------
043e ; Debug chain
043e ; --------------------------------------------------------------------------------------
043e 0000 0002 | | .DBGLEN 0x0000,0x0002
0440 0184 0189 | | .DBGLNO 0x0184,0x0189
0442 ; --------------------------------------------------------------------------------------
0442 ; Debug chain
0442 ; --------------------------------------------------------------------------------------
0442 0001 0007 | | .DBGLEN 0x0001,0x0007
0444 019b 019d | | .DBGLNO 0x019b,0x019d,0x01a2,0x01a8,0x01b0,0x01e1,0x01e6,0x01ec
044c 0001 0002 | | .XXX[0x7]
044e 0003 0005 | |
0450 0006 0004 | |
0452 0007 | |
0453 ; --------------------------------------------------------------------------------------
0453 ; Debug chain
0453 ; --------------------------------------------------------------------------------------
0453 0001 000a | | .DBGLEN 0x0001,0x000a
0455 01fb 01fe | | .DBGLNO 0x01fb,0x01fe,0x0203,0x020a,0x020d,0x0210,0x0213,0x0216,0x0219,0x021d,0x0220
0460 ; --------------------------------------------------------------------------------------
0460 ; Debug chain
0460 ; --------------------------------------------------------------------------------------
0460 0000 0007 | | .DBGLEN 0x0000,0x0007
0462 022b 0233 | + 3| .DBGLNO 0x022b,0x0233,0x0239,0x023c,0x023d,0x0242,0x024c
0469 0001 0003 | | .XXX[0x7]
046b 0004 0005 | |
046d 0006 0007 | |
046f 0002 | |
0470 ; --------------------------------------------------------------------------------------
0470 ; Debug chain
0470 ; --------------------------------------------------------------------------------------
0470 0000 0001 | | .DBGLEN 0x0000,0x0001
0472 0253 | S | .DBGLNO 0x0253
0473 ; --------------------------------------------------------------------------------------
0473 ; Debug chain
0473 ; --------------------------------------------------------------------------------------
0473 0000 0001 | | .DBGLEN 0x0000,0x0001
0475 0263 | c | .DBGLNO 0x0263
0476 ; --------------------------------------------------------------------------------------
0476 ; Debug chain
0476 ; --------------------------------------------------------------------------------------
0476 0000 0001 | | .DBGLEN 0x0000,0x0001
0478 026b | k | .DBGLNO 0x026b
0479 ; --------------------------------------------------------------------------------------
0479 ; Debug chain
0479 ; --------------------------------------------------------------------------------------
0479 0000 0001 | | .DBGLEN 0x0000,0x0001
047b 0273 | s | .DBGLNO 0x0273
047c ; --------------------------------------------------------------------------------------
047c ; Debug chain
047c ; --------------------------------------------------------------------------------------
047c 0000 0001 | | .DBGLEN 0x0000,0x0001
047e 027b | { | .DBGLNO 0x027b
047f ; --------------------------------------------------------------------------------------
047f ; Debug chain
047f ; --------------------------------------------------------------------------------------
047f 0001 0007 | | .DBGLEN 0x0001,0x0007
0481 028b 0290 | | .DBGLNO 0x028b,0x0290,0x0292,0x0296,0x029c,0x029e,0x02a3,0x02a6
0489 0001 0002 | | .XXX[0x7]
048b 0004 0005 | |
048d 0006 0003 | |
048f 0007 | |
0490 ; --------------------------------------------------------------------------------------
0490 ; Debug chain
0490 ; --------------------------------------------------------------------------------------
0490 0000 0001 | | .DBGLEN 0x0000,0x0001
0492 02ab | | .DBGLNO 0x02ab
0493 ; --------------------------------------------------------------------------------------
0493 ; Debug chain
0493 ; --------------------------------------------------------------------------------------
0493 0001 0003 | | .DBGLEN 0x0001,0x0003
0495 02bb 02be | | .DBGLNO 0x02bb,0x02be,0x02c1,0x02c4
0499 ; --------------------------------------------------------------------------------------
0499 ; Debug chain
0499 ; --------------------------------------------------------------------------------------
0499 0001 0004 | | .DBGLEN 0x0001,0x0004
049b 02cb 02cf | | .DBGLNO 0x02cb,0x02cf,0x02de,0x02e1,0x02e6
04a0 0002 0003 | | .XXX[0x4]
04a2 0004 0001 | |
04a4 0000 0000 | | .BLANK 0000[0x15c]