|
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_5a98bb
└─⟦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 0368 | h | .CONST 0x0368 ; 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 009e | | .CONST 0x009e ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0028 | ( | .CONST 0x0028 ; Number of locals
000b INIT_0008:
000b 4800 |H | Short_Literal 0x0
000c e20f | | Load 0x1,0xf
000d 00e3 | | Load_Encached Natural_Cache
000e 03f9 | | Declare_Type Discrete,Constrained,Visible
000f 029a 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call,Visible,Unelaborated
0011 029a 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call,Visible,Unelaborated
0013 029a 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call,Visible,Unelaborated
0015 029a 01eb | | Declare_Subprogram INIT_01e8,For_Outer_Call,Visible,Unelaborated
0017 029a 0203 | | Declare_Subprogram INIT_0200,For_Outer_Call,Visible,Unelaborated
0019 029a 021b | | Declare_Subprogram INIT_0218,For_Outer_Call,Visible,Unelaborated
001b 029a 022b | +| Declare_Subprogram INIT_0228,For_Outer_Call,Visible,Unelaborated
001d 029a 0233 | 3| Declare_Subprogram INIT_0230,For_Outer_Call,Visible,Unelaborated
001f 029a 027b | {| Declare_Subprogram INIT_0278,For_Outer_Call,Visible,Unelaborated
0021 029a 0283 | | Declare_Subprogram INIT_0280,For_Outer_Call,Visible,Unelaborated
0023 029a 028b | | Declare_Subprogram INIT_0288,For_Outer_Call,Visible,Unelaborated
0025 029a 02a3 | | Declare_Subprogram INIT_02a0,For_Outer_Call,Visible,Unelaborated
0027 029a 02bb | | Declare_Subprogram INIT_02b8,For_Outer_Call,Visible,Unelaborated
0029 029a 02e3 | | Declare_Subprogram INIT_02e0,For_Outer_Call,Visible,Unelaborated
002b 00c4 | | Action Make_Default
002c 00c4 | | Action Make_Default
002d e213 | | Load 0x1,0x13
002e 0266 | f | Execute Discrete,Bounds
002f e20e | | Load 0x1,0xe
0030 029f 02f3 | | Declare_Subprogram INIT_02f0,For_Call
0032 4801 |H | Short_Literal 0x1
0033 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object
0034 4801 |H | Short_Literal 0x1
0035 4800 |H | Short_Literal 0x0
0036 00da | | Load_Top At_Offset_2
0037 035b | [ | Declare_Type Array,Constrained
0038 0336 | 6 | Declare_Variable Array,Visible
0039 00d8 | | Load_Top At_Offset_0
003a 0335 | 5 | Declare_Variable Array,Duplicate
003b 00cd | | Action Spare6_Action
003c 00d9 | | Load_Top At_Offset_1
003d 01d4 | | Execute Vector,Structure_Write
003e e213 | | Load 0x1,0x13
003f 4801 |H | Short_Literal 0x1
0040 00db | | Load_Top At_Offset_3
0041 01dc | | Execute Vector,Last
0042 e213 | | Load 0x1,0x13
0043 0269 | i | Execute Discrete,Last
0044 026c | l | Execute Discrete,Minimum
0045 e224 | $ | Load 0x1,0x24
0046 034f | O | Declare_Type Array,Constrained,Visible,Bounds_With_Object
0047 029f 030b | | Declare_Subprogram INIT_0308,For_Call
0049 4800 |H | Short_Literal 0x0
004a 4801 |H | Short_Literal 0x1
004b 4800 |H | Short_Literal 0x0
004c 4800 |H | Short_Literal 0x0
004d 4801 |H | Short_Literal 0x1
004e 4801 |H | Short_Literal 0x1
004f 031e | | Declare_Type Variant_Record,Defined,Visible
0050 00d8 | | Load_Top At_Offset_0
0051 029f 034b | K| Declare_Subprogram INIT_0348,For_Call
0053 4801 |H | Short_Literal 0x1
0054 032e | . | Declare_Type Record,Defined,Visible
0055 00d8 | | Load_Top At_Offset_0
0056 e213 | | Load 0x1,0x13
0057 029f 035b | [| Declare_Subprogram INIT_0358,For_Call
0059 4802 |H | Short_Literal 0x2
005a 032e | . | Declare_Type Record,Defined,Visible
005b 00d9 | | Load_Top At_Offset_1
005c 0322 | " | Declare_Variable Record
005d 4800 |H | Short_Literal 0x0
005e e226 | & | Load 0x1,0x26
005f 1c08 | | Execute_Immediate Run_Utility,0x8
0060 e225 | % | Load 0x1,0x25
0061 00d9 | | Load_Top At_Offset_1
0062 00d8 | | Load_Top At_Offset_0
0063 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0064 00da | | Load_Top At_Offset_2
0065 01da | | Execute Vector,Bounds
0066 00da | | Load_Top At_Offset_2
0067 01da | | Execute Vector,Bounds
0068 00da | | Load_Top At_Offset_2
0069 027f | | Execute Discrete,Equal
006a 7001 |p | Jump_Nonzero 0x6c
006b 08e0 | | Execute_Immediate Raise,0xe0
006c 00cd | | Action Spare6_Action
006d 027f | | Execute Discrete,Equal
006e 7001 |p | Jump_Nonzero 0x70
006f 08e0 | | Execute_Immediate Raise,0xe0
0070 00d2 | | Pop_Control Pop_Count_2
0071 00d9 | | Load_Top At_Offset_1
0072 2902 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x2
0073 00d9 | | Load_Top At_Offset_1
0074 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0075 0129 | ) | Execute Any,Make_Visible
0076 c223 | # | Store 0x1,0x23
0077 00d8 | | Load_Top At_Offset_0
0078 0322 | " | Declare_Variable Record
0079 e223 | # | Load 0x1,0x23
007a 00d9 | | Load_Top At_Offset_1
007b 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
007c 4800 |H | Short_Literal 0x0
007d 00d9 | | Load_Top At_Offset_1
007e 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
007f 0129 | ) | Execute Any,Make_Visible
0080 c222 | " | Store 0x1,0x22
0081 00bf | | Action Accept_Activation
0082 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0083 00c7 | | Action Elaborate_Subprogram
0084 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0085 00c7 | | Action Elaborate_Subprogram
0086 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0087 00c7 | | Action Elaborate_Subprogram
0088 1d17 | | Execute_Immediate Reference_Lex_1,0x17
0089 00c7 | | Action Elaborate_Subprogram
008a 1d18 | | Execute_Immediate Reference_Lex_1,0x18
008b 00c7 | | Action Elaborate_Subprogram
008c 1d19 | | Execute_Immediate Reference_Lex_1,0x19
008d 00c7 | | Action Elaborate_Subprogram
008e 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
008f 00c7 | | Action Elaborate_Subprogram
0090 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
0091 00c7 | | Action Elaborate_Subprogram
0092 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
0093 00c7 | | Action Elaborate_Subprogram
0094 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
0095 00c7 | | Action Elaborate_Subprogram
0096 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
0097 00c7 | | Action Elaborate_Subprogram
0098 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
0099 00c7 | | Action Elaborate_Subprogram
009a 1d20 | | Execute_Immediate Reference_Lex_1,0x20
009b 00c7 | | Action Elaborate_Subprogram
009c 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
009d 00c7 | | Action Elaborate_Subprogram
009e BODY_0008:
009e 00bc | | Action Signal_Activated
009f 00bb | | Action Signal_Completion
00a0 ; --------------------------------------------------------------------------------------
00a0 ; SUBPROGRAM
00a0 ; --------------------------------------------------------------------------------------
00a0 00b5 | | .CONST 0x00b5 ; Address of begin
00a1 0004 | | .CONST 0x0004 ; Address of exception handler
00a2 0003 | | .CONST 0x0003 ; Number of locals
00a3 INIT_00a0:
00a3 e213 | | Load 0x1,0x13
00a4 0701 | | Execute_Immediate Set_Value,0x1
00a5 4801 |H | Short_Literal 0x1
00a6 e5fe | | Load 0x2,-0x2
00a7 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
00a8 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
00a9 01dc | | Execute Vector,Last
00aa 0a01 | | Execute_Immediate Plus,0x1
00ab 00d8 | | Load_Top At_Offset_0
00ac 00e2 | | Load_Encached Integer_Cache
00ad 0260 | ` | Execute Discrete,In_Type
00ae 7001 |p | Jump_Nonzero 0xb0
00af 0801 | | Execute_Immediate Raise,0x1
00b0 e224 | $ | Load 0x1,0x24
00b1 035b | [ | Declare_Type Array,Constrained
00b2 0337 | 7 | Declare_Variable Array
00b3 00d8 | | Load_Top At_Offset_0
00b4 1c00 | | Execute_Immediate Run_Utility,0x0
00b5 BODY_00a0:
00b5 e5fe | | Load 0x2,-0x2
00b6 8219 | | Call 0x1,0x19
00b7 6803 |h | Jump_Zero 0xbb
00b8 4800 |H | Short_Literal 0x0
00b9 a5fd | | Store_Unchecked 0x2,-0x3
00ba 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00bb e5fe | | Load 0x2,-0x2
00bc 821a | | Call 0x1,0x1a
00bd 682a |h* | Jump_Zero 0xe8
00be 4801 |H | Short_Literal 0x1
00bf a5fd | | Store_Unchecked 0x2,-0x3
00c0 4801 |H | Short_Literal 0x1
00c1 e226 | & | Load 0x1,0x26
00c2 1c08 | | Execute_Immediate Run_Utility,0x8
00c3 00d8 | | Load_Top At_Offset_0
00c4 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
00c5 0335 | 5 | Declare_Variable Array,Duplicate
00c6 00cd | | Action Spare6_Action
00c7 00d9 | | Load_Top At_Offset_1
00c8 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
00c9 01d9 | | Execute Vector,Reverse_Bounds
00ca 0263 | c | Execute Discrete,Above_Bound
00cb 7007 |p | Jump_Nonzero 0xd3
00cc e5ff | | Load 0x2,-0x1
00cd e20e | | Load 0x1,0xe
00ce 0119 | | Execute Any,Check_In_Formal_Type
00cf 00d9 | | Load_Top At_Offset_1
00d0 e405 | | Load 0x2,0x5
00d1 01d6 | | Execute Vector,Field_Write
00d2 3ff9 |? | Loop_Increasing 0xcc
00d3 00d9 | | Load_Top At_Offset_1
00d4 00d8 | | Load_Top At_Offset_0
00d5 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
00d6 00da | | Load_Top At_Offset_2
00d7 01da | | Execute Vector,Bounds
00d8 00da | | Load_Top At_Offset_2
00d9 01da | | Execute Vector,Bounds
00da 00da | | Load_Top At_Offset_2
00db 027f | | Execute Discrete,Equal
00dc 7001 |p | Jump_Nonzero 0xde
00dd 08e0 | | Execute_Immediate Raise,0xe0
00de 00cd | | Action Spare6_Action
00df 027f | | Execute Discrete,Equal
00e0 7001 |p | Jump_Nonzero 0xe2
00e1 08e0 | | Execute_Immediate Raise,0xe0
00e2 00d2 | | Pop_Control Pop_Count_2
00e3 00d9 | | Load_Top At_Offset_1
00e4 2902 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x2
00e5 e5fe | | Load 0x2,-0x2
00e6 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00e7 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00e8 00cf | | Action Mark_Auxiliary
00e9 7804 |x | Jump 0xee
00ea 00da | | Load_Top At_Offset_2
00eb 0a01 | | Execute_Immediate Plus,0x1
00ec 005b | [ | Store_Top Discrete,At_Offset_3
00ed 00c9 | | Action Pop_Auxiliary_Loop
00ee 00da | | Load_Top At_Offset_2
00ef e5fe | | Load 0x2,-0x2
00f0 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
00f1 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
00f2 01da | | Execute Vector,Bounds
00f3 0262 | b | Execute Discrete,In_Range
00f4 680a |h | Jump_Zero 0xff
00f5 00da | | Load_Top At_Offset_2
00f6 e5fe | | Load 0x2,-0x2
00f7 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
00f8 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
00f9 01d7 | | Execute Vector,Field_Read
00fa 8212 | | Call 0x1,0x12
00fb e5ff | | Load 0x2,-0x1
00fc 8212 | | Call 0x1,0x12
00fd 01c1 | | Execute Vector,Less
00fe 77eb |w | Jump_Nonzero 0xea
00ff 00ce | | Action Pop_Auxiliary
0100 00d9 | | Load_Top At_Offset_1
0101 e5fe | | Load 0x2,-0x2
0102 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0103 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0104 01da | | Execute Vector,Bounds
0105 0261 | a | Execute Discrete,Not_In_Range
0106 6825 |h% | Jump_Zero 0x12c
0107 4801 |H | Short_Literal 0x1
0108 a5fd | | Store_Unchecked 0x2,-0x3
0109 e5ff | | Load 0x2,-0x1
010a e5fe | | Load 0x2,-0x2
010b 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
010c 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
010d 01cb | | Execute Vector,Append
010e 00d9 | | Load_Top At_Offset_1
010f 01d4 | | Execute Vector,Structure_Write
0110 e5fe | | Load 0x2,-0x2
0111 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0112 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0113 0a01 | | Execute_Immediate Plus,0x1
0114 e226 | & | Load 0x1,0x26
0115 1c08 | | Execute_Immediate Run_Utility,0x8
0116 00d9 | | Load_Top At_Offset_1
0117 00d9 | | Load_Top At_Offset_1
0118 00d8 | | Load_Top At_Offset_0
0119 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
011a 00da | | Load_Top At_Offset_2
011b 01da | | Execute Vector,Bounds
011c 00da | | Load_Top At_Offset_2
011d 01da | | Execute Vector,Bounds
011e 00da | | Load_Top At_Offset_2
011f 027f | | Execute Discrete,Equal
0120 7001 |p | Jump_Nonzero 0x122
0121 08e0 | | Execute_Immediate Raise,0xe0
0122 00cd | | Action Spare6_Action
0123 027f | | Execute Discrete,Equal
0124 7001 |p | Jump_Nonzero 0x126
0125 08e0 | | Execute_Immediate Raise,0xe0
0126 00d2 | | Pop_Control Pop_Count_2
0127 00d9 | | Load_Top At_Offset_1
0128 2902 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x2
0129 e5fe | | Load 0x2,-0x2
012a 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
012b 4502 |E | Exit_Suprogram New_Top_Offset 0x2
012c 00d9 | | Load_Top At_Offset_1
012d e5fe | | Load 0x2,-0x2
012e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
012f 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0130 01d7 | | Execute Vector,Field_Read
0131 8212 | | Call 0x1,0x12
0132 e5ff | | Load 0x2,-0x1
0133 8212 | | Call 0x1,0x12
0134 01de | | Execute Vector,Not_Equal
0135 6833 |h3 | Jump_Zero 0x169
0136 4801 |H | Short_Literal 0x1
0137 a5fd | | Store_Unchecked 0x2,-0x3
0138 e5ff | | Load 0x2,-0x1
0139 4801 |H | Short_Literal 0x1
013a 00db | | Load_Top At_Offset_3
013b 0aff | | Execute_Immediate Plus,-0x1
013c e5fe | | Load 0x2,-0x2
013d 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
013e 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
013f 01cf | | Execute Vector,Slice_Read
0140 01cb | | Execute Vector,Append
0141 00da | | Load_Top At_Offset_2
0142 e5fe | | Load 0x2,-0x2
0143 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0144 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0145 01dc | | Execute Vector,Last
0146 e5fe | | Load 0x2,-0x2
0147 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0148 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0149 01cf | | Execute Vector,Slice_Read
014a 01cc | | Execute Vector,Catenate
014b 00d9 | | Load_Top At_Offset_1
014c 01d4 | | Execute Vector,Structure_Write
014d e5fe | | Load 0x2,-0x2
014e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
014f 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0150 0a01 | | Execute_Immediate Plus,0x1
0151 e226 | & | Load 0x1,0x26
0152 1c08 | | Execute_Immediate Run_Utility,0x8
0153 00d9 | | Load_Top At_Offset_1
0154 00d9 | | Load_Top At_Offset_1
0155 00d8 | | Load_Top At_Offset_0
0156 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0157 00da | | Load_Top At_Offset_2
0158 01da | | Execute Vector,Bounds
0159 00da | | Load_Top At_Offset_2
015a 01da | | Execute Vector,Bounds
015b 00da | | Load_Top At_Offset_2
015c 027f | | Execute Discrete,Equal
015d 7001 |p | Jump_Nonzero 0x15f
015e 08e0 | | Execute_Immediate Raise,0xe0
015f 00cd | | Action Spare6_Action
0160 027f | | Execute Discrete,Equal
0161 7001 |p | Jump_Nonzero 0x163
0162 08e0 | | Execute_Immediate Raise,0xe0
0163 00d2 | | Pop_Control Pop_Count_2
0164 00d9 | | Load_Top At_Offset_1
0165 2902 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x2
0166 e5fe | | Load 0x2,-0x2
0167 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0168 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0169 4800 |H | Short_Literal 0x0
016a a5fd | | Store_Unchecked 0x2,-0x3
016b 4502 |E | Exit_Suprogram New_Top_Offset 0x2
016c 0000 0000 | | .BLANK 0000[0x4]
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 017a | z | .CONST 0x017a ; Address of begin
0171 0004 | | .CONST 0x0004 ; Address of exception handler
0172 0003 | | .CONST 0x0003 ; Number of locals
0173 INIT_0170:
0173 00da | | Load_Top At_Offset_2
0174 8212 | | Call 0x1,0x12
0175 e5fe | | Load 0x2,-0x2
0176 821b | | Call 0x1,0x1b
0177 e213 | | Load 0x1,0x13
0178 03f1 | | Declare_Variable Discrete,With_Value
0179 00e1 | | Load_Encached Boolean_Cache
017a BODY_0170:
017a 00d9 | | Load_Top At_Offset_1
017b 7009 |p | Jump_Nonzero 0x185
017c 00e1 | | Load_Encached Boolean_Cache
017d e5fe | | Load 0x2,-0x2
017e e5ff | | Load 0x2,-0x1
017f e20e | | Load 0x1,0xe
0180 0119 | | Execute Any,Check_In_Formal_Type
0181 8214 | | Call 0x1,0x14
0182 00d1 | | Pop_Control Pop_Count_1
0183 0059 | Y | Store_Top Discrete,At_Offset_1
0184 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0185 e5ff | | Load 0x2,-0x1
0186 00da | | Load_Top At_Offset_2
0187 e5fe | | Load 0x2,-0x2
0188 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0189 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
018a 01d6 | | Execute Vector,Field_Write
018b 4502 |E | Exit_Suprogram New_Top_Offset 0x2
018c 0000 0000 | | .BLANK 0000[0x4]
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 0198 | | .CONST 0x0198 ; Address of begin
0191 0004 | | .CONST 0x0004 ; Address of exception handler
0192 0005 | | .CONST 0x0005 ; Number of locals
0193 INIT_0190:
0193 e213 | | Load 0x1,0x13
0194 03e9 | | Declare_Variable Discrete,Duplicate
0195 03e9 | | Declare_Variable Discrete,Duplicate
0196 00e1 | | Load_Encached Boolean_Cache
0197 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0198 BODY_0190:
0198 e5ff | | Load 0x2,-0x1
0199 821a | | Call 0x1,0x1a
019a 6805 |h | Jump_Zero 0x1a0
019b 4800 |H | Short_Literal 0x0
019c a5fc | | Store_Unchecked 0x2,-0x4
019d e210 | | Load 0x1,0x10
019e c5fd | | Store 0x2,-0x3
019f 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01a0 4801 |H | Short_Literal 0x1
01a1 c402 | | Store 0x2,0x2
01a2 e5ff | | Load 0x2,-0x1
01a3 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
01a4 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
01a5 01dc | | Execute Vector,Last
01a6 005a | Z | Store_Top Discrete,At_Offset_2
01a7 00cf | | Action Mark_Auxiliary
01a8 7822 |x" | Jump 0x1cb
01a9 e402 | | Load 0x2,0x2
01aa 00db | | Load_Top At_Offset_3
01ab 0273 | s | Execute Discrete,Plus
01ac 09ff | | Execute_Immediate Binary_Scale,-0x1
01ad c403 | | Store 0x2,0x3
01ae 00db | | Load_Top At_Offset_3
01af e5ff | | Load 0x2,-0x1
01b0 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
01b1 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
01b2 01d7 | | Execute Vector,Field_Read
01b3 8212 | | Call 0x1,0x12
01b4 e5fe | | Load 0x2,-0x2
01b5 01c1 | | Execute Vector,Less
01b6 6804 |h | Jump_Zero 0x1bb
01b7 00db | | Load_Top At_Offset_3
01b8 0a01 | | Execute_Immediate Plus,0x1
01b9 c402 | | Store 0x2,0x2
01ba 780f |x | Jump 0x1ca
01bb e5fe | | Load 0x2,-0x2
01bc e403 | | Load 0x2,0x3
01bd e5ff | | Load 0x2,-0x1
01be 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
01bf 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
01c0 01d7 | | Execute Vector,Field_Read
01c1 8212 | | Call 0x1,0x12
01c2 01c1 | | Execute Vector,Less
01c3 6804 |h | Jump_Zero 0x1c8
01c4 00db | | Load_Top At_Offset_3
01c5 0aff | | Execute_Immediate Plus,-0x1
01c6 005b | [ | Store_Top Discrete,At_Offset_3
01c7 7802 |x | Jump 0x1ca
01c8 4801 |H | Short_Literal 0x1
01c9 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
01ca 00c9 | | Action Pop_Auxiliary_Loop
01cb e402 | | Load 0x2,0x2
01cc 00db | | Load_Top At_Offset_3
01cd 027a | z | Execute Discrete,Less_Equal
01ce 00da | | Load_Top At_Offset_2
01cf 0f00 | | Execute_Immediate Equal,0x0
01d0 0279 | y | Execute Discrete,And
01d1 77d7 |w | Jump_Nonzero 0x1a9
01d2 00ce | | Action Pop_Auxiliary
01d3 00d8 | | Load_Top At_Offset_0
01d4 6809 |h | Jump_Zero 0x1de
01d5 4801 |H | Short_Literal 0x1
01d6 a5fc | | Store_Unchecked 0x2,-0x4
01d7 00da | | Load_Top At_Offset_2
01d8 e5ff | | Load 0x2,-0x1
01d9 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
01da 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
01db 01d7 | | Execute Vector,Field_Read
01dc c5fd | | Store 0x2,-0x3
01dd 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01de 4800 |H | Short_Literal 0x0
01df a5fc | | Store_Unchecked 0x2,-0x4
01e0 e210 | | Load 0x1,0x10
01e1 c5fd | | Store 0x2,-0x3
01e2 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01e3 0000 0000 | | .BLANK 0000[0x5]
01e8 ; --------------------------------------------------------------------------------------
01e8 ; SUBPROGRAM
01e8 ; --------------------------------------------------------------------------------------
01e8 01eb | | .CONST 0x01eb ; Address of begin
01e9 0004 | | .CONST 0x0004 ; Address of exception handler
01ea 0001 | | .CONST 0x0001 ; Number of locals
01eb BODY_01e8:
01eb INIT_01e8:
01eb 00db | | Load_Top At_Offset_3
01ec 00db | | Load_Top At_Offset_3
01ed 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
01ee 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
01ef 01da | | Execute Vector,Bounds
01f0 0261 | a | Execute Discrete,Not_In_Range
01f1 6805 |h | Jump_Zero 0x1f7
01f2 4800 |H | Short_Literal 0x0
01f3 a5fc | | Store_Unchecked 0x2,-0x4
01f4 e210 | | Load 0x1,0x10
01f5 c5fd | | Store 0x2,-0x3
01f6 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01f7 4801 |H | Short_Literal 0x1
01f8 a5fc | | Store_Unchecked 0x2,-0x4
01f9 00db | | Load_Top At_Offset_3
01fa 00db | | Load_Top At_Offset_3
01fb 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
01fc 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
01fd 01d7 | | Execute Vector,Field_Read
01fe c5fd | | Store 0x2,-0x3
01ff 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0200 ; --------------------------------------------------------------------------------------
0200 ; SUBPROGRAM
0200 ; --------------------------------------------------------------------------------------
0200 0207 | | .CONST 0x0207 ; Address of begin
0201 0004 | | .CONST 0x0004 ; Address of exception handler
0202 0002 | | .CONST 0x0002 ; Number of locals
0203 INIT_0200:
0203 e228 | ( | Load 0x1,0x28
0204 0322 | " | Declare_Variable Record
0205 00d8 | | Load_Top At_Offset_0
0206 1c00 | | Execute_Immediate Run_Utility,0x0
0207 BODY_0200:
0207 00d8 | | Load_Top At_Offset_0
0208 e5ff | | Load 0x2,-0x1
0209 821e | | Call 0x1,0x1e
020a 00d1 | | Pop_Control Pop_Count_1
020b 00cf | | Action Mark_Auxiliary
020c 7807 |x | Jump 0x214
020d 00d9 | | Load_Top At_Offset_1
020e 8220 | | Call 0x1,0x20
020f 8211 | | Call 0x1,0x11
0210 00d9 | | Load_Top At_Offset_1
0211 8221 | ! | Call 0x1,0x21
0212 00d1 | | Pop_Control Pop_Count_1
0213 00c9 | | Action Pop_Auxiliary_Loop
0214 00d9 | | Load_Top At_Offset_1
0215 821f | | Call 0x1,0x1f
0216 6ff6 |o | Jump_Zero 0x20d
0217 4502 |E | Exit_Suprogram New_Top_Offset 0x2
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 00da | | Load_Top At_Offset_2
021c 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
021d 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
021e e20f | | Load 0x1,0xf
021f 0aff | | Execute_Immediate Plus,-0x1
0220 027f | | Execute Discrete,Equal
0221 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0222 0000 0000 | | .BLANK 0000[0x6]
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 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
022d 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
022e 0f00 | | Execute_Immediate Equal,0x0
022f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0230 ; --------------------------------------------------------------------------------------
0230 ; SUBPROGRAM
0230 ; --------------------------------------------------------------------------------------
0230 023a | : | .CONST 0x023a ; Address of begin
0231 0004 | | .CONST 0x0004 ; Address of exception handler
0232 0006 | | .CONST 0x0006 ; Number of locals
0233 INIT_0230:
0233 e213 | | Load 0x1,0x13
0234 03e9 | | Declare_Variable Discrete,Duplicate
0235 03e9 | | Declare_Variable Discrete,Duplicate
0236 00e1 | | Load_Encached Boolean_Cache
0237 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0238 e213 | | Load 0x1,0x13
0239 0700 | | Execute_Immediate Set_Value,0x0
023a BODY_0230:
023a e5ff | | Load 0x2,-0x1
023b 821a | | Call 0x1,0x1a
023c 7037 |p7 | Jump_Nonzero 0x274
023d 4801 |H | Short_Literal 0x1
023e c402 | | Store 0x2,0x2
023f e5ff | | Load 0x2,-0x1
0240 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0241 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0242 01dc | | Execute Vector,Last
0243 005b | [ | Store_Top Discrete,At_Offset_3
0244 00cf | | Action Mark_Auxiliary
0245 7822 |x" | Jump 0x268
0246 e402 | | Load 0x2,0x2
0247 e404 | | Load 0x2,0x4
0248 0273 | s | Execute Discrete,Plus
0249 09ff | | Execute_Immediate Binary_Scale,-0x1
024a c403 | | Store 0x2,0x3
024b e403 | | Load 0x2,0x3
024c e5ff | | Load 0x2,-0x1
024d 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
024e 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
024f 01d7 | | Execute Vector,Field_Read
0250 8212 | | Call 0x1,0x12
0251 e5fe | | Load 0x2,-0x2
0252 01c1 | | Execute Vector,Less
0253 6804 |h | Jump_Zero 0x258
0254 e403 | | Load 0x2,0x3
0255 0a01 | | Execute_Immediate Plus,0x1
0256 c402 | | Store 0x2,0x2
0257 780f |x | Jump 0x267
0258 e5fe | | Load 0x2,-0x2
0259 e403 | | Load 0x2,0x3
025a e5ff | | Load 0x2,-0x1
025b 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
025c 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
025d 01d7 | | Execute Vector,Field_Read
025e 8212 | | Call 0x1,0x12
025f 01c1 | | Execute Vector,Less
0260 6804 |h | Jump_Zero 0x265
0261 e403 | | Load 0x2,0x3
0262 0aff | | Execute_Immediate Plus,-0x1
0263 c404 | | Store 0x2,0x4
0264 7802 |x | Jump 0x267
0265 4801 |H | Short_Literal 0x1
0266 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
0267 00c9 | | Action Pop_Auxiliary_Loop
0268 e402 | | Load 0x2,0x2
0269 e404 | | Load 0x2,0x4
026a 027a | z | Execute Discrete,Less_Equal
026b 00db | | Load_Top At_Offset_3
026c 0f00 | | Execute_Immediate Equal,0x0
026d 0279 | y | Execute Discrete,And
026e 77d7 |w | Jump_Nonzero 0x246
026f 00ce | | Action Pop_Auxiliary
0270 00d9 | | Load_Top At_Offset_1
0271 6802 |h | Jump_Zero 0x274
0272 00db | | Load_Top At_Offset_3
0273 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0274 00d8 | | Load_Top At_Offset_0
0275 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
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 00db | | Load_Top At_Offset_3
027c 00db | | Load_Top At_Offset_3
027d 821b | | Call 0x1,0x1b
027e 0e00 | | Execute_Immediate Not_Equal,0x0
027f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0280 ; --------------------------------------------------------------------------------------
0280 ; SUBPROGRAM
0280 ; --------------------------------------------------------------------------------------
0280 0283 | | .CONST 0x0283 ; Address of begin
0281 0004 | | .CONST 0x0004 ; Address of exception handler
0282 0001 | | .CONST 0x0001 ; Number of locals
0283 BODY_0280:
0283 INIT_0280:
0283 00da | | Load_Top At_Offset_2
0284 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0285 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0286 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0287 0000 | | .XXX[0x1]
0288 ; --------------------------------------------------------------------------------------
0288 ; SUBPROGRAM
0288 ; --------------------------------------------------------------------------------------
0288 028b | | .CONST 0x028b ; Address of begin
0289 0004 | | .CONST 0x0004 ; Address of exception handler
028a 0001 | | .CONST 0x0001 ; Number of locals
028b BODY_0288:
028b INIT_0288:
028b 00da | | Load_Top At_Offset_2
028c 821a | | Call 0x1,0x1a
028d 6807 |h | Jump_Zero 0x295
028e e223 | # | Load 0x1,0x23
028f e5fe | | Load 0x2,-0x2
0290 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0291 4800 |H | Short_Literal 0x0
0292 e5fe | | Load 0x2,-0x2
0293 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0294 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0295 00da | | Load_Top At_Offset_2
0296 e5fe | | Load 0x2,-0x2
0297 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0298 4801 |H | Short_Literal 0x1
0299 e5fe | | Load 0x2,-0x2
029a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
029b 4502 |E | Exit_Suprogram New_Top_Offset 0x2
029c 0000 0000 | | .BLANK 0000[0x4]
02a0 ; --------------------------------------------------------------------------------------
02a0 ; SUBPROGRAM
02a0 ; --------------------------------------------------------------------------------------
02a0 02a3 | | .CONST 0x02a3 ; Address of begin
02a1 0004 | | .CONST 0x0004 ; Address of exception handler
02a2 0001 | | .CONST 0x0001 ; Number of locals
02a3 BODY_02a0:
02a3 INIT_02a0:
02a3 00da | | Load_Top At_Offset_2
02a4 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
02a5 821a | | Call 0x1,0x1a
02a6 6802 |h | Jump_Zero 0x2a9
02a7 4801 |H | Short_Literal 0x1
02a8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02a9 00da | | Load_Top At_Offset_2
02aa 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
02ab 00db | | Load_Top At_Offset_3
02ac 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
02ad 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
02ae 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
02af 0a01 | | Execute_Immediate Plus,0x1
02b0 027f | | Execute Discrete,Equal
02b1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02b2 0000 0000 | | .BLANK 0000[0x6]
02b8 ; --------------------------------------------------------------------------------------
02b8 ; SUBPROGRAM
02b8 ; --------------------------------------------------------------------------------------
02b8 02bb | | .CONST 0x02bb ; Address of begin
02b9 0004 | | .CONST 0x0004 ; Address of exception handler
02ba 0001 | | .CONST 0x0001 ; Number of locals
02bb BODY_02b8:
02bb INIT_02b8:
02bb 00da | | Load_Top At_Offset_2
02bc 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
02bd 0c01 | | Execute_Immediate Greater_Equal,0x1
02be 00db | | Load_Top At_Offset_3
02bf 821f | | Call 0x1,0x1f
02c0 0f00 | | Execute_Immediate Equal,0x0
02c1 0279 | y | Execute Discrete,And
02c2 680f |h | Jump_Zero 0x2d2
02c3 00da | | Load_Top At_Offset_2
02c4 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
02c5 00db | | Load_Top At_Offset_3
02c6 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
02c7 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
02c8 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
02c9 01d7 | | Execute Vector,Field_Read
02ca 00d8 | | Load_Top At_Offset_0
02cb 0120 | | Execute Any,Is_Value
02cc 7002 |p | Jump_Nonzero 0x2cf
02cd 00d8 | | Load_Top At_Offset_0
02ce 011e | | Execute Any,Convert
02cf e20e | | Load 0x1,0xe
02d0 0119 | | Execute Any,Check_In_Formal_Type
02d1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02d2 e210 | | Load 0x1,0x10
02d3 00d8 | | Load_Top At_Offset_0
02d4 0120 | | Execute Any,Is_Value
02d5 7002 |p | Jump_Nonzero 0x2d8
02d6 00d8 | | Load_Top At_Offset_0
02d7 011e | | Execute Any,Convert
02d8 e20e | | Load 0x1,0xe
02d9 0119 | | Execute Any,Check_In_Formal_Type
02da 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02db 0000 0000 | | .BLANK 0000[0x5]
02e0 ; --------------------------------------------------------------------------------------
02e0 ; SUBPROGRAM
02e0 ; --------------------------------------------------------------------------------------
02e0 02e3 | | .CONST 0x02e3 ; Address of begin
02e1 0004 | | .CONST 0x0004 ; Address of exception handler
02e2 0001 | | .CONST 0x0001 ; Number of locals
02e3 BODY_02e0:
02e3 INIT_02e0:
02e3 00da | | Load_Top At_Offset_2
02e4 821f | | Call 0x1,0x1f
02e5 7005 |p | Jump_Nonzero 0x2eb
02e6 00da | | Load_Top At_Offset_2
02e7 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
02e8 0a01 | | Execute_Immediate Plus,0x1
02e9 00db | | Load_Top At_Offset_3
02ea 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
02eb 4501 |E | Exit_Suprogram New_Top_Offset 0x1
02ec 0000 0000 | | .BLANK 0000[0x4]
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 00d1 | | Pop_Control Pop_Count_1
02f4 00da | | Load_Top At_Offset_2
02f5 01dc | | Execute Vector,Last
02f6 00db | | Load_Top At_Offset_3
02f7 01dd | | Execute Vector,First
02f8 0263 | c | Execute Discrete,Above_Bound
02f9 700a |p | Jump_Nonzero 0x304
02fa 00d8 | | Load_Top At_Offset_0
02fb e5ff | | Load 0x2,-0x1
02fc 01d5 | | Execute Vector,Field_Reference
02fd 0125 | % | Execute Any,Set_Constraint
02fe 00d8 | | Load_Top At_Offset_0
02ff e5ff | | Load 0x2,-0x1
0300 01d5 | | Execute Vector,Field_Reference
0301 1c00 | | Execute_Immediate Run_Utility,0x0
0302 0a01 | | Execute_Immediate Plus,0x1
0303 7ff4 | | Jump 0x2f8
0304 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0305 0000 0000 | | .XXX[0x3]
0307 0000 | |
0308 ; --------------------------------------------------------------------------------------
0308 ; SUBPROGRAM
0308 ; --------------------------------------------------------------------------------------
0308 030b | | .CONST 0x030b ; Address of begin
0309 0004 | | .CONST 0x0004 ; Address of exception handler
030a 0001 | | .CONST 0x0001 ; Number of locals
030b BODY_0308:
030b INIT_0308:
030b 4609 |F | Jump_Case 0xa
030c 7809 |x | Jump 0x316 ; case 0x0
030d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
030e 7817 |x | Jump 0x326 ; case 0x2
030f 781a |x | Jump 0x32a ; case 0x3
0310 7836 |x6 | Jump 0x347 ; case 0x4
0311 7835 |x5 | Jump 0x347 ; case 0x5
0312 7834 |x4 | Jump 0x347 ; case 0x6
0313 781c |x | Jump 0x330 ; case 0x7
0314 7824 |x$ | Jump 0x339 ; case 0x8
0315 782d |x- | Jump 0x343 ; case 0x9
0316 00da | | Load_Top At_Offset_2
0317 016c | l | Execute Variant_Record,Is_Constrained
0318 7009 |p | Jump_Nonzero 0x322
0319 00cf | | Action Mark_Auxiliary
031a 4800 |H | Short_Literal 0x0
031b e5ff | | Load 0x2,-0x1
031c 1c08 | | Execute_Immediate Run_Utility,0x8
031d 00d8 | | Load_Top At_Offset_0
031e 1c00 | | Execute_Immediate Run_Utility,0x0
031f c5ff | | Store 0x2,-0x1
0320 00ce | | Action Pop_Auxiliary
0321 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0322 00da | | Load_Top At_Offset_2
0323 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0324 1c00 | | Execute_Immediate Run_Utility,0x0
0325 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0326 4801 |H | Short_Literal 0x1
0327 4802 |H | Short_Literal 0x2
0328 0311 | | Declare_Type Variant_Record,Constrained_Incomplete
0329 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
032a e5fd | | Load 0x2,-0x3
032b 00db | | Load_Top At_Offset_3
032c 1c07 | | Execute_Immediate Run_Utility,0x7
032d e5fe | | Load 0x2,-0x2
032e 0306 | | Complete_Type Variant_Record,By_Renaming
032f 4304 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x4
0330 00db | | Load_Top At_Offset_3
0331 4801 |H | Short_Literal 0x1
0332 e5fe | | Load 0x2,-0x2
0333 e224 | $ | Load 0x1,0x24
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 e224 | $ | Load 0x1,0x24
033f 0334 | 4 | Declare_Variable Array,With_Constraint
0340 2d02 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x2
0341 016a | j | QQ_execute Variant_Record,XXX
0342 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0343 4800 |H | Short_Literal 0x0
0344 00db | | Load_Top At_Offset_3
0345 1c07 | | Execute_Immediate Run_Utility,0x7
0346 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0347 0869 | i | Execute_Immediate Raise,0x69
0348 ; --------------------------------------------------------------------------------------
0348 ; SUBPROGRAM
0348 ; --------------------------------------------------------------------------------------
0348 034b | K | .CONST 0x034b ; Address of begin
0349 0004 | | .CONST 0x0004 ; Address of exception handler
034a 0001 | | .CONST 0x0001 ; Number of locals
034b BODY_0348:
034b INIT_0348:
034b 4601 |F | Jump_Case 0x2
034c 7801 |x | Jump 0x34e ; case 0x0
034d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
034e 00da | | Load_Top At_Offset_2
034f 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0350 1c00 | | Execute_Immediate Run_Utility,0x0
0351 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0352 0000 0000 | | .BLANK 0000[0x6]
0358 ; --------------------------------------------------------------------------------------
0358 ; SUBPROGRAM
0358 ; --------------------------------------------------------------------------------------
0358 035b | [ | .CONST 0x035b ; Address of begin
0359 0004 | | .CONST 0x0004 ; Address of exception handler
035a 0001 | | .CONST 0x0001 ; Number of locals
035b BODY_0358:
035b INIT_0358:
035b 4601 |F | Jump_Case 0x2
035c 7801 |x | Jump 0x35e ; case 0x0
035d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
035e e223 | # | Load 0x1,0x23
035f 00db | | Load_Top At_Offset_3
0360 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0361 4800 |H | Short_Literal 0x0
0362 00db | | Load_Top At_Offset_3
0363 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0364 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0365 0000 0000 | | .XXX[0x3]
0367 0000 | |
0368 ; --------------------------------------------------------------------------------------
0368 ; Debug Table
0368 ; --------------------------------------------------------------------------------------
0368 0004 0008 | | .DEBUG4 0x0004,0x0008,0xd767,0x0000,0x0001,0x0014
036e 000b 03be | | .DBG4T 0x000b,0x03be,0xc000,0x8000
0372 0082 03f0 | | .DBG4T 0x0082,0x03f0,0xc000,0x0000
0376 00a3 0400 | | .DBG4T 0x00a3,0x0400,0x1001,0x4000
037a 0173 0424 | s $| .DBG4T 0x0173,0x0424,0x1001,0x0000
037e 0193 042b | +| .DBG4T 0x0193,0x042b,0x1001,0x4000
0382 01eb 0451 | Q| .DBG4T 0x01eb,0x0451,0x1001,0x0000
0386 0203 0458 | X| .DBG4T 0x0203,0x0458,0x1001,0x4000
038a 021b 0463 | c| .DBG4T 0x021b,0x0463,0x1002,0x0000
038e 022b 0466 | + f| .DBG4T 0x022b,0x0466,0x1002,0x0000
0392 0233 0469 | 3 i| .DBG4T 0x0233,0x0469,0x1002,0x4000
0396 027b 0488 | { | .DBG4T 0x027b,0x0488,0x1002,0x0000
039a 0283 048b | | .DBG4T 0x0283,0x048b,0x1002,0x0000
039e 028b 048e | | .DBG4T 0x028b,0x048e,0x1001,0x0000
03a2 02a3 0495 | | .DBG4T 0x02a3,0x0495,0x1002,0x0000
03a6 02bb 049a | | .DBG4T 0x02bb,0x049a,0x1002,0x0000
03aa 02e3 049f | | .DBG4T 0x02e3,0x049f,0x1001,0x0000
03ae 02f3 0000 | | .DBG4T 0x02f3,0x0000,0x1005,0x0000
03b2 030b 0000 | | .DBG4T 0x030b,0x0000,0x1005,0x0000
03b6 034b 0000 | K | .DBG4T 0x034b,0x0000,0x1005,0x0000
03ba 035b 0000 | [ | .DBG4T 0x035b,0x0000,0x1005,0x0000
03be ; --------------------------------------------------------------------------------------
03be ; Debug chain
03be ; --------------------------------------------------------------------------------------
03be 0018 0000 | | .DBGLEN 0x0018,0x0000
03c0 000b 000f | | .DBGLNO 0x000b,0x000f,0x0011,0x0013,0x0015,0x0017,0x0019,0x001b,0x001d,0x001f,0x0021,0x0023,0x0025,0x0027,0x0029,0x002b,0x002c,0x002d,0x0034,0x003e,0x0050,0x0055,0x005b,0x0077
03d8 0002 0003 | | .XXX[0x18]
03da 0004 0005 | |
03dc 0006 0007 | |
03de 0008 0009 | |
03e0 000a 000b | |
03e2 000c 000e | |
03e4 000f 0010 | |
03e6 0011 0012 | |
03e8 0013 0014 | |
03ea 0015 0016 | |
03ec 0017 0018 | |
03ee 0019 001a | |
03f0 ; --------------------------------------------------------------------------------------
03f0 ; Debug chain
03f0 ; --------------------------------------------------------------------------------------
03f0 000e 0000 | | .DBGLEN 0x000e,0x0000
03f2 0082 0084 | | .DBGLNO 0x0082,0x0084,0x0086,0x0088,0x008a,0x008c,0x008e,0x0090,0x0092,0x0094,0x0096,0x0098,0x009a,0x009c
0400 ; --------------------------------------------------------------------------------------
0400 ; Debug chain
0400 ; --------------------------------------------------------------------------------------
0400 0002 0010 | | .DBGLEN 0x0002,0x0010
0402 00a3 00a5 | | .DBGLNO 0x00a3,0x00a5,0x00b5,0x00b8,0x00bb,0x00be,0x00c0,0x00ea,0x00ee,0x0100,0x0107,0x0109,0x0110,0x012c,0x0136,0x0138,0x014d,0x0169
0414 0001 0002 | | .XXX[0x10]
0416 0003 0004 | |
0418 0005 0007 | |
041a 0006 0008 | |
041c 0009 000a | |
041e 000b 000c | |
0420 000d 000e | |
0422 000f 0010 | |
0424 ; --------------------------------------------------------------------------------------
0424 ; Debug chain
0424 ; --------------------------------------------------------------------------------------
0424 0002 0003 | | .DBGLEN 0x0002,0x0003
0426 0173 0179 | s y| .DBGLNO 0x0173,0x0179,0x017a,0x017c,0x0185
042b ; --------------------------------------------------------------------------------------
042b ; Debug chain
042b ; --------------------------------------------------------------------------------------
042b 0002 0011 | | .DBGLEN 0x0002,0x0011
042d 0193 0196 | | .DBGLNO 0x0193,0x0196,0x0198,0x019b,0x019d,0x01a0,0x01a2,0x01a9,0x01ae,0x01b7,0x01bb,0x01c4,0x01c8,0x01cb,0x01d3,0x01d5,0x01d7,0x01de,0x01e0
0440 0001 0002 | | .XXX[0x11]
0442 0003 0004 | |
0444 0005 0007 | |
0446 0008 0009 | |
0448 000a 000b | |
044a 000c 0006 | |
044c 000d 000e | |
044e 000f 0010 | |
0450 0011 | |
0451 ; --------------------------------------------------------------------------------------
0451 ; Debug chain
0451 ; --------------------------------------------------------------------------------------
0451 0000 0005 | | .DBGLEN 0x0000,0x0005
0453 01eb 01f2 | | .DBGLNO 0x01eb,0x01f2,0x01f4,0x01f7,0x01f9
0458 ; --------------------------------------------------------------------------------------
0458 ; Debug chain
0458 ; --------------------------------------------------------------------------------------
0458 0001 0004 | | .DBGLEN 0x0001,0x0004
045a 0203 0207 | | .DBGLNO 0x0203,0x0207,0x020d,0x0210,0x0214
045f 0001 0003 | | .XXX[0x4]
0461 0004 0002 | |
0463 ; --------------------------------------------------------------------------------------
0463 ; Debug chain
0463 ; --------------------------------------------------------------------------------------
0463 0000 0001 | | .DBGLEN 0x0000,0x0001
0465 021b | | .DBGLNO 0x021b
0466 ; --------------------------------------------------------------------------------------
0466 ; Debug chain
0466 ; --------------------------------------------------------------------------------------
0466 0000 0001 | | .DBGLEN 0x0000,0x0001
0468 022b | + | .DBGLNO 0x022b
0469 ; --------------------------------------------------------------------------------------
0469 ; Debug chain
0469 ; --------------------------------------------------------------------------------------
0469 0003 000d | | .DBGLEN 0x0003,0x000d
046b 0233 0236 | 3 6| .DBGLNO 0x0233,0x0236,0x0238,0x023a,0x023d,0x023f,0x0246,0x024b,0x0254,0x0258,0x0261,0x0265,0x0268,0x0270,0x0272,0x0274
047b 0001 0002 | | .XXX[0xd]
047d 0003 0005 | |
047f 0006 0007 | |
0481 0008 0009 | |
0483 000a 0004 | |
0485 000b 000c | |
0487 000d | |
0488 ; --------------------------------------------------------------------------------------
0488 ; Debug chain
0488 ; --------------------------------------------------------------------------------------
0488 0000 0001 | | .DBGLEN 0x0000,0x0001
048a 027b | { | .DBGLNO 0x027b
048b ; --------------------------------------------------------------------------------------
048b ; Debug chain
048b ; --------------------------------------------------------------------------------------
048b 0000 0001 | | .DBGLEN 0x0000,0x0001
048d 0283 | | .DBGLNO 0x0283
048e ; --------------------------------------------------------------------------------------
048e ; Debug chain
048e ; --------------------------------------------------------------------------------------
048e 0000 0005 | | .DBGLEN 0x0000,0x0005
0490 028b 028e | | .DBGLNO 0x028b,0x028e,0x0291,0x0295,0x0298
0495 ; --------------------------------------------------------------------------------------
0495 ; Debug chain
0495 ; --------------------------------------------------------------------------------------
0495 0000 0003 | | .DBGLEN 0x0000,0x0003
0497 02a3 02a7 | | .DBGLNO 0x02a3,0x02a7,0x02a9
049a ; --------------------------------------------------------------------------------------
049a ; Debug chain
049a ; --------------------------------------------------------------------------------------
049a 0000 0003 | | .DBGLEN 0x0000,0x0003
049c 02bb 02c3 | | .DBGLNO 0x02bb,0x02c3,0x02d2
049f ; --------------------------------------------------------------------------------------
049f ; Debug chain
049f ; --------------------------------------------------------------------------------------
049f 0000 0002 | | .DBGLEN 0x0000,0x0002
04a1 02e3 02e6 | | .DBGLNO 0x02e3,0x02e6
04a3 0000 0000 | | .BLANK 0000[0x15d]