|
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: 2048 (0x800)
Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_03c0fe
└─⟦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 0338 | 8 | .CONST 0x0338 ; 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 8002 | | .CONST 0x8002 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 00cf | | .CONST 0x00cf ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0051 | Q | .CONST 0x0051 ; Number of locals
000b INIT_0008:
000b 4800 |H | Short_Literal 0x0
000c 48ff |H | Short_Literal 0xff
000d 00e3 | | Load_Encached Natural_Cache
000e 03f9 | | Declare_Type Discrete,Constrained,Visible
000f 4800 |H | Short_Literal 0x0
0010 60d7 |` | Indirect_Literal Discrete,0xe8,{0x00000000, 0x0000ffff}
0011 00e3 | | Load_Encached Natural_Cache
0012 03f9 | | Declare_Type Discrete,Constrained,Visible
0013 029a 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call,Visible,Unelaborated
0015 029a 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call,Visible,Unelaborated
0017 029a 011b | | Declare_Subprogram INIT_0118,For_Outer_Call,Visible,Unelaborated
0019 029a 0133 | 3| Declare_Subprogram INIT_0130,For_Outer_Call,Visible,Unelaborated
001b 029a 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call,Visible,Unelaborated
001d 029a 016b | k| Declare_Subprogram INIT_0168,For_Outer_Call,Visible,Unelaborated
001f 029a 017b | {| Declare_Subprogram INIT_0178,For_Outer_Call,Visible,Unelaborated
0021 029a 018b | | Declare_Subprogram INIT_0188,For_Outer_Call,Visible,Unelaborated
0023 029a 019b | | Declare_Subprogram INIT_0198,For_Outer_Call,Visible,Unelaborated
0025 029a 01ab | | Declare_Subprogram INIT_01a8,For_Outer_Call,Visible,Unelaborated
0027 029a 01bb | | Declare_Subprogram INIT_01b8,For_Outer_Call,Visible,Unelaborated
0029 029a 01cb | | Declare_Subprogram INIT_01c8,For_Outer_Call,Visible,Unelaborated
002b 029a 01db | | Declare_Subprogram INIT_01d8,For_Outer_Call,Visible,Unelaborated
002d 029a 01eb | | Declare_Subprogram INIT_01e8,For_Outer_Call,Visible,Unelaborated
002f 029a 0203 | | Declare_Subprogram INIT_0200,For_Outer_Call,Visible,Unelaborated
0031 029a 021b | | Declare_Subprogram INIT_0218,For_Outer_Call,Visible,Unelaborated
0033 029a 0233 | 3| Declare_Subprogram INIT_0230,For_Outer_Call,Visible,Unelaborated
0035 029a 0243 | C| Declare_Subprogram INIT_0240,For_Outer_Call,Visible,Unelaborated
0037 029a 0263 | c| Declare_Subprogram INIT_0260,For_Outer_Call,Visible,Unelaborated
0039 029a 0273 | s| Declare_Subprogram INIT_0270,For_Outer_Call,Visible,Unelaborated
003b 029a 028b | | Declare_Subprogram INIT_0288,For_Outer_Call,Visible,Unelaborated
003d 029a 02a3 | | Declare_Subprogram INIT_02a0,For_Outer_Call,Visible,Unelaborated
003f e002 | | Load 0x0,0x2
0040 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0041 02a0 | | Declare_Subprogram Null_Subprogram
0042 4818 |H | Short_Literal 0x18
0043 03d4 | | Declare_Type Access,Defined,Visible,Accesses_Protected
0044 00e3 | | Load_Encached Natural_Cache
0045 00e3 | | Load_Encached Natural_Cache
0046 00e3 | | Load_Encached Natural_Cache
0047 00db | | Load_Top At_Offset_3
0048 029f 02fb | | Declare_Subprogram INIT_02f8,For_Call
004a 4800 |H | Short_Literal 0x0
004b 4803 |H | Short_Literal 0x3
004c 4800 |H | Short_Literal 0x0
004d 4800 |H | Short_Literal 0x0
004e 4801 |H | Short_Literal 0x1
004f 031e | | Declare_Type Variant_Record,Defined,Visible
0050 00bf | | Action Accept_Activation
0051 e003 | | Load 0x0,0x3
0052 190e | | Execute Package,Field_Reference,Field_Number 0xe
0053 00c6 | | Action Check_Subprogram_Elaborated
0054 00e6 | | Load_Encached Float_Cache
0055 e004 | | Load 0x0,0x4
0056 e005 | | Load 0x0,0x5
0057 4800 |H | Short_Literal 0x0
0058 0007 | | Action Break_Optional
0059 e003 | | Load 0x0,0x3
005a 190e | | Execute Package,Field_Reference,Field_Number 0xe
005b 00c6 | | Action Check_Subprogram_Elaborated
005c e20f | | Load 0x1,0xf
005d e006 | | Load 0x0,0x6
005e e007 | | Load 0x0,0x7
005f 4800 |H | Short_Literal 0x0
0060 0007 | | Action Break_Optional
0061 e003 | | Load 0x0,0x3
0062 190e | | Execute Package,Field_Reference,Field_Number 0xe
0063 00c6 | | Action Check_Subprogram_Elaborated
0064 e210 | | Load 0x1,0x10
0065 e008 | | Load 0x0,0x8
0066 e009 | | Load 0x0,0x9
0067 4800 |H | Short_Literal 0x0
0068 0007 | | Action Break_Optional
0069 e003 | | Load 0x0,0x3
006a 190e | | Execute Package,Field_Reference,Field_Number 0xe
006b 00c6 | | Action Check_Subprogram_Elaborated
006c 00e2 | | Load_Encached Integer_Cache
006d e00a | | Load 0x0,0xa
006e e00b | | Load 0x0,0xb
006f 4800 |H | Short_Literal 0x0
0070 0007 | | Action Break_Optional
0071 e003 | | Load 0x0,0x3
0072 190e | | Execute Package,Field_Reference,Field_Number 0xe
0073 00c6 | | Action Check_Subprogram_Elaborated
0074 00e5 | | Load_Encached Long_Integer_Cache
0075 e00c | | Load 0x0,0xc
0076 e00d | | Load 0x0,0xd
0077 4800 |H | Short_Literal 0x0
0078 0007 | | Action Break_Optional
0079 e003 | | Load 0x0,0x3
007a 190f | | Execute Package,Field_Reference,Field_Number 0xf
007b 00c6 | | Action Check_Subprogram_Elaborated
007c 00e6 | | Load_Encached Float_Cache
007d e00e | | Load 0x0,0xe
007e e00f | | Load 0x0,0xf
007f 4800 |H | Short_Literal 0x0
0080 0007 | | Action Break_Optional
0081 e003 | | Load 0x0,0x3
0082 190f | | Execute Package,Field_Reference,Field_Number 0xf
0083 00c6 | | Action Check_Subprogram_Elaborated
0084 e20f | | Load 0x1,0xf
0085 e010 | | Load 0x0,0x10
0086 e011 | | Load 0x0,0x11
0087 4800 |H | Short_Literal 0x0
0088 0007 | | Action Break_Optional
0089 e003 | | Load 0x0,0x3
008a 190f | | Execute Package,Field_Reference,Field_Number 0xf
008b 00c6 | | Action Check_Subprogram_Elaborated
008c e210 | | Load 0x1,0x10
008d e012 | | Load 0x0,0x12
008e e013 | | Load 0x0,0x13
008f 4800 |H | Short_Literal 0x0
0090 0007 | | Action Break_Optional
0091 e003 | | Load 0x0,0x3
0092 190f | | Execute Package,Field_Reference,Field_Number 0xf
0093 00c6 | | Action Check_Subprogram_Elaborated
0094 00e2 | | Load_Encached Integer_Cache
0095 e014 | | Load 0x0,0x14
0096 e015 | | Load 0x0,0x15
0097 4800 |H | Short_Literal 0x0
0098 0007 | | Action Break_Optional
0099 e003 | | Load 0x0,0x3
009a 190f | | Execute Package,Field_Reference,Field_Number 0xf
009b 00c6 | | Action Check_Subprogram_Elaborated
009c 00e5 | | Load_Encached Long_Integer_Cache
009d e016 | | Load 0x0,0x16
009e e017 | | Load 0x0,0x17
009f 4800 |H | Short_Literal 0x0
00a0 0007 | | Action Break_Optional
00a1 1d11 | | Execute_Immediate Reference_Lex_1,0x11
00a2 00c7 | | Action Elaborate_Subprogram
00a3 1d12 | | Execute_Immediate Reference_Lex_1,0x12
00a4 00c7 | | Action Elaborate_Subprogram
00a5 029d 02bb | | Declare_Subprogram INIT_02b8,For_Outer_Call
00a7 1d13 | | Execute_Immediate Reference_Lex_1,0x13
00a8 00c7 | | Action Elaborate_Subprogram
00a9 1d14 | | Execute_Immediate Reference_Lex_1,0x14
00aa 00c7 | | Action Elaborate_Subprogram
00ab 1d17 | | Execute_Immediate Reference_Lex_1,0x17
00ac 00c7 | | Action Elaborate_Subprogram
00ad 1d18 | | Execute_Immediate Reference_Lex_1,0x18
00ae 00c7 | | Action Elaborate_Subprogram
00af 1d19 | | Execute_Immediate Reference_Lex_1,0x19
00b0 00c7 | | Action Elaborate_Subprogram
00b1 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
00b2 00c7 | | Action Elaborate_Subprogram
00b3 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
00b4 00c7 | | Action Elaborate_Subprogram
00b5 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
00b6 00c7 | | Action Elaborate_Subprogram
00b7 1d15 | | Execute_Immediate Reference_Lex_1,0x15
00b8 00c7 | | Action Elaborate_Subprogram
00b9 1d16 | | Execute_Immediate Reference_Lex_1,0x16
00ba 00c7 | | Action Elaborate_Subprogram
00bb 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
00bc 00c7 | | Action Elaborate_Subprogram
00bd 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
00be 00c7 | | Action Elaborate_Subprogram
00bf 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
00c0 00c7 | | Action Elaborate_Subprogram
00c1 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
00c2 00c7 | | Action Elaborate_Subprogram
00c3 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
00c4 00c7 | | Action Elaborate_Subprogram
00c5 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
00c6 00c7 | | Action Elaborate_Subprogram
00c7 1d25 | % | Execute_Immediate Reference_Lex_1,0x25
00c8 00c7 | | Action Elaborate_Subprogram
00c9 1d26 | & | Execute_Immediate Reference_Lex_1,0x26
00ca 00c7 | | Action Elaborate_Subprogram
00cb 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
00cc 00c7 | | Action Elaborate_Subprogram
00cd 1d20 | | Execute_Immediate Reference_Lex_1,0x20
00ce 00c7 | | Action Elaborate_Subprogram
00cf BODY_0008:
00cf 00bc | | Action Signal_Activated
00d0 00bb | | Action Signal_Completion
00d1 0000 0000 | | .BLANK 0000[0x7]
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00db | | .CONST 0x00db ; Address of begin
00d9 0004 | | .CONST 0x0004 ; Address of exception handler
00da 0001 | | .CONST 0x0001 ; Number of locals
00db BODY_00d8:
00db INIT_00d8:
00db 4801 |H | Short_Literal 0x1
00dc 00db | | Load_Top At_Offset_3
00dd 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
00de e5ff | | Load 0x2,-0x1
00df 2c04 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x4
00e0 0227 | ' | Execute Access,All_Reference
00e1 01cf | | Execute Vector,Slice_Read
00e2 0335 | 5 | Declare_Variable Array,Duplicate
00e3 00cd | | Action Spare6_Action
00e4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00e5 0000 0000 | | .XXX[0x3]
00e7 0000 | |
00e8 0000 0000 | | .LITERAL {0x00000000, 0x0000ffff}
00ec 0000 0000 | | .BLANK 0000[0x4]
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 00f7 | | .CONST 0x00f7 ; Address of begin
00f1 0004 | | .CONST 0x0004 ; Address of exception handler
00f2 0002 | | .CONST 0x0002 ; Number of locals
00f3 INIT_00f0:
00f3 e228 | ( | Load 0x1,0x28
00f4 02ff | | Declare_Variable Variant_Record
00f5 00d8 | | Load_Top At_Offset_0
00f6 1c00 | | Execute_Immediate Run_Utility,0x0
00f7 BODY_00f0:
00f7 e20e | | Load 0x1,0xe
00f8 e228 | ( | Load 0x1,0x28
00f9 1c08 | | Execute_Immediate Run_Utility,0x8
00fa e5ff | | Load 0x2,-0x1
00fb 01db | | Execute Vector,Length
00fc 00d9 | | Load_Top At_Offset_1
00fd 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
00fe e5ff | | Load 0x2,-0x1
00ff 01db | | Execute Vector,Length
0100 00d9 | | Load_Top At_Offset_1
0101 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
0102 4801 |H | Short_Literal 0x1
0103 e5ff | | Load 0x2,-0x1
0104 01db | | Execute Vector,Length
0105 00d8 | | Load_Top At_Offset_0
0106 00e2 | | Load_Encached Integer_Cache
0107 0260 | ` | Execute Discrete,In_Type
0108 7001 |p | Jump_Nonzero 0x10a
0109 0801 | | Execute_Immediate Raise,0x1
010a e227 | ' | Load 0x1,0x27
010b 03ba | | Declare_Variable Access,By_Allocation,With_Constraint
010c 00d9 | | Load_Top At_Offset_1
010d 2804 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x4
010e 00d9 | | Load_Top At_Offset_1
010f 016d | m | Execute Variant_Record,Structure_Write
0110 00db | | Load_Top At_Offset_3
0111 00d9 | | Load_Top At_Offset_1
0112 2c04 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x4
0113 0228 | ( | Execute Access,All_Write
0114 00d8 | | Load_Top At_Offset_0
0115 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0116 0000 0000 | | .XXX[0x2]
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 011b | | .CONST 0x011b ; Address of begin
0119 0004 | | .CONST 0x0004 ; Address of exception handler
011a 0001 | | .CONST 0x0001 ; Number of locals
011b BODY_0118:
011b INIT_0118:
011b 00db | | Load_Top At_Offset_3
011c 4801 |H | Short_Literal 0x1
011d 8251 | Q | Call 0x1,0x51
011e 00d1 | | Pop_Control Pop_Count_1
011f 00db | | Load_Top At_Offset_3
0120 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
0121 0a01 | | Execute_Immediate Plus,0x1
0122 e5fe | | Load 0x2,-0x2
0123 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
0124 00da | | Load_Top At_Offset_2
0125 e5fe | | Load 0x2,-0x2
0126 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
0127 e5fe | | Load 0x2,-0x2
0128 2c04 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x4
0129 0227 | ' | Execute Access,All_Reference
012a 01d6 | | Execute Vector,Field_Write
012b 4502 |E | Exit_Suprogram New_Top_Offset 0x2
012c 0000 0000 | | .BLANK 0000[0x4]
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 0135 | 5 | .CONST 0x0135 ; Address of begin
0131 0004 | | .CONST 0x0004 ; Address of exception handler
0132 0003 | | .CONST 0x0003 ; Number of locals
0133 INIT_0130:
0133 00e3 | | Load_Encached Natural_Cache
0134 00e3 | | Load_Encached Natural_Cache
0135 BODY_0130:
0135 e5fe | | Load 0x2,-0x2
0136 e5ff | | Load 0x2,-0x1
0137 01db | | Execute Vector,Length
0138 00d8 | | Load_Top At_Offset_0
0139 00e3 | | Load_Encached Natural_Cache
013a 0260 | ` | Execute Discrete,In_Type
013b 7001 |p | Jump_Nonzero 0x13d
013c 0801 | | Execute_Immediate Raise,0x1
013d 8251 | Q | Call 0x1,0x51
013e 00d1 | | Pop_Control Pop_Count_1
013f e5fe | | Load 0x2,-0x2
0140 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
0141 0a01 | | Execute_Immediate Plus,0x1
0142 005a | Z | Store_Top Discrete,At_Offset_2
0143 00d9 | | Load_Top At_Offset_1
0144 e5ff | | Load 0x2,-0x1
0145 01db | | Execute Vector,Length
0146 0273 | s | Execute Discrete,Plus
0147 0aff | | Execute_Immediate Plus,-0x1
0148 0059 | Y | Store_Top Discrete,At_Offset_1
0149 e5fe | | Load 0x2,-0x2
014a 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
014b e5ff | | Load 0x2,-0x1
014c 01db | | Execute Vector,Length
014d 0273 | s | Execute Discrete,Plus
014e e5fe | | Load 0x2,-0x2
014f 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
0150 e5ff | | Load 0x2,-0x1
0151 00da | | Load_Top At_Offset_2
0152 00da | | Load_Top At_Offset_2
0153 e5fe | | Load 0x2,-0x2
0154 2c04 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x4
0155 0229 | ) | Execute Access,All_Read
0156 01ce | | Execute Vector,Slice_Write
0157 4502 |E | Exit_Suprogram New_Top_Offset 0x2
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 00db | | Load_Top At_Offset_3
015c 00db | | Load_Top At_Offset_3
015d e22d | - | Load 0x1,0x2d
015e 1d2e | . | Execute_Immediate Reference_Lex_1,0x2e
015f e003 | | Load 0x0,0x3
0160 180e | | Execute Package,Field_Execute,Field_Number 0xe
0161 8214 | | Call 0x1,0x14
0162 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0163 0000 0000 | | .BLANK 0000[0x5]
0168 ; --------------------------------------------------------------------------------------
0168 ; SUBPROGRAM
0168 ; --------------------------------------------------------------------------------------
0168 016b | k | .CONST 0x016b ; Address of begin
0169 0004 | | .CONST 0x0004 ; Address of exception handler
016a 0001 | | .CONST 0x0001 ; Number of locals
016b BODY_0168:
016b INIT_0168:
016b 00db | | Load_Top At_Offset_3
016c 00db | | Load_Top At_Offset_3
016d e231 | 1 | Load 0x1,0x31
016e 1d32 | 2 | Execute_Immediate Reference_Lex_1,0x32
016f e003 | | Load 0x0,0x3
0170 180e | | Execute Package,Field_Execute,Field_Number 0xe
0171 8214 | | Call 0x1,0x14
0172 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0173 0000 0000 | | .BLANK 0000[0x5]
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 017b | { | .CONST 0x017b ; Address of begin
0179 0004 | | .CONST 0x0004 ; Address of exception handler
017a 0001 | | .CONST 0x0001 ; Number of locals
017b BODY_0178:
017b INIT_0178:
017b 00db | | Load_Top At_Offset_3
017c 00db | | Load_Top At_Offset_3
017d 00d8 | | Load_Top At_Offset_0
017e e002 | | Load 0x0,0x2
017f 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0180 0260 | ` | Execute Discrete,In_Type
0181 7001 |p | Jump_Nonzero 0x183
0182 0801 | | Execute_Immediate Raise,0x1
0183 8213 | | Call 0x1,0x13
0184 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0185 0000 0000 | | .XXX[0x3]
0187 0000 | |
0188 ; --------------------------------------------------------------------------------------
0188 ; SUBPROGRAM
0188 ; --------------------------------------------------------------------------------------
0188 018b | | .CONST 0x018b ; Address of begin
0189 0004 | | .CONST 0x0004 ; Address of exception handler
018a 0001 | | .CONST 0x0001 ; Number of locals
018b BODY_0188:
018b INIT_0188:
018b 00db | | Load_Top At_Offset_3
018c 00db | | Load_Top At_Offset_3
018d e018 | | Load 0x0,0x18
018e 180e | | Execute Package,Field_Execute,Field_Number 0xe
018f 8214 | | Call 0x1,0x14
0190 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0191 0000 0000 | | .BLANK 0000[0x7]
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 019b | | .CONST 0x019b ; Address of begin
0199 0004 | | .CONST 0x0004 ; Address of exception handler
019a 0001 | | .CONST 0x0001 ; Number of locals
019b BODY_0198:
019b INIT_0198:
019b 00db | | Load_Top At_Offset_3
019c 00db | | Load_Top At_Offset_3
019d 00d8 | | Load_Top At_Offset_0
019e e002 | | Load 0x0,0x2
019f 1b11 | | Execute Package,Field_Read,Field_Number 0x11
01a0 0260 | ` | Execute Discrete,In_Type
01a1 7001 |p | Jump_Nonzero 0x1a3
01a2 0801 | | Execute_Immediate Raise,0x1
01a3 8213 | | Call 0x1,0x13
01a4 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01a5 0000 0000 | | .XXX[0x3]
01a7 0000 | |
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
01a8 ; --------------------------------------------------------------------------------------
01a8 01ab | | .CONST 0x01ab ; Address of begin
01a9 0004 | | .CONST 0x0004 ; Address of exception handler
01aa 0001 | | .CONST 0x0001 ; Number of locals
01ab BODY_01a8:
01ab INIT_01a8:
01ab 00db | | Load_Top At_Offset_3
01ac 00db | | Load_Top At_Offset_3
01ad e235 | 5 | Load 0x1,0x35
01ae 1d36 | 6 | Execute_Immediate Reference_Lex_1,0x36
01af e003 | | Load 0x0,0x3
01b0 180e | | Execute Package,Field_Execute,Field_Number 0xe
01b1 8214 | | Call 0x1,0x14
01b2 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01b3 0000 0000 | | .BLANK 0000[0x5]
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; --------------------------------------------------------------------------------------
01b8 01bb | | .CONST 0x01bb ; Address of begin
01b9 0004 | | .CONST 0x0004 ; Address of exception handler
01ba 0001 | | .CONST 0x0001 ; Number of locals
01bb BODY_01b8:
01bb INIT_01b8:
01bb 00db | | Load_Top At_Offset_3
01bc 00db | | Load_Top At_Offset_3
01bd e239 | 9 | Load 0x1,0x39
01be 1d3a | : | Execute_Immediate Reference_Lex_1,0x3a
01bf e003 | | Load 0x0,0x3
01c0 180e | | Execute Package,Field_Execute,Field_Number 0xe
01c1 8214 | | Call 0x1,0x14
01c2 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01c3 0000 0000 | | .BLANK 0000[0x5]
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01cb | | .CONST 0x01cb ; Address of begin
01c9 0004 | | .CONST 0x0004 ; Address of exception handler
01ca 0001 | | .CONST 0x0001 ; Number of locals
01cb BODY_01c8:
01cb INIT_01c8:
01cb 00db | | Load_Top At_Offset_3
01cc 00db | | Load_Top At_Offset_3
01cd e229 | ) | Load 0x1,0x29
01ce 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a
01cf e003 | | Load 0x0,0x3
01d0 180e | | Execute Package,Field_Execute,Field_Number 0xe
01d1 8214 | | Call 0x1,0x14
01d2 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01d3 0000 0000 | | .BLANK 0000[0x5]
01d8 ; --------------------------------------------------------------------------------------
01d8 ; SUBPROGRAM
01d8 ; --------------------------------------------------------------------------------------
01d8 01db | | .CONST 0x01db ; Address of begin
01d9 0004 | | .CONST 0x0004 ; Address of exception handler
01da 0001 | | .CONST 0x0001 ; Number of locals
01db BODY_01d8:
01db INIT_01d8:
01db 00db | | Load_Top At_Offset_3
01dc 00db | | Load_Top At_Offset_3
01dd 01d7 | | Execute Vector,Field_Read
01de a5fd | | Store_Unchecked 0x2,-0x3
01df 00db | | Load_Top At_Offset_3
01e0 0a01 | | Execute_Immediate Plus,0x1
01e1 c5fe | | Store 0x2,-0x2
01e2 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01e3 0000 0000 | | .BLANK 0000[0x5]
01e8 ; --------------------------------------------------------------------------------------
01e8 ; SUBPROGRAM
01e8 ; --------------------------------------------------------------------------------------
01e8 01ed | | .CONST 0x01ed ; Address of begin
01e9 0004 | | .CONST 0x0004 ; Address of exception handler
01ea 0003 | | .CONST 0x0003 ; Number of locals
01eb INIT_01e8:
01eb 00e3 | | Load_Encached Natural_Cache
01ec 00e3 | | Load_Encached Natural_Cache
01ed BODY_01e8:
01ed e5fe | | Load 0x2,-0x2
01ee 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
01ef 00d9 | | Load_Top At_Offset_1
01f0 e5fd | | Load 0x2,-0x3
01f1 01db | | Execute Vector,Length
01f2 0273 | s | Execute Discrete,Plus
01f3 0aff | | Execute_Immediate Plus,-0x1
01f4 0059 | Y | Store_Top Discrete,At_Offset_1
01f5 00d8 | | Load_Top At_Offset_0
01f6 0a01 | | Execute_Immediate Plus,0x1
01f7 c5fe | | Store 0x2,-0x2
01f8 00d9 | | Load_Top At_Offset_1
01f9 00d9 | | Load_Top At_Offset_1
01fa e5ff | | Load 0x2,-0x1
01fb 01cf | | Execute Vector,Slice_Read
01fc e5fd | | Load 0x2,-0x3
01fd 01d4 | | Execute Vector,Structure_Write
01fe 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01ff 0000 | | .XXX[0x1]
0200 ; --------------------------------------------------------------------------------------
0200 ; SUBPROGRAM
0200 ; --------------------------------------------------------------------------------------
0200 0205 | | .CONST 0x0205 ; Address of begin
0201 0004 | | .CONST 0x0004 ; Address of exception handler
0202 0003 | | .CONST 0x0003 ; Number of locals
0203 INIT_0200:
0203 00e3 | | Load_Encached Natural_Cache
0204 00e3 | | Load_Encached Natural_Cache
0205 BODY_0200:
0205 e5fe | | Load 0x2,-0x2
0206 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
0207 00d9 | | Load_Top At_Offset_1
0208 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0209 00d8 | | Load_Top At_Offset_0
020a 0a01 | | Execute_Immediate Plus,0x1
020b c5fe | | Store 0x2,-0x2
020c 00d9 | | Load_Top At_Offset_1
020d 00d9 | | Load_Top At_Offset_1
020e e5ff | | Load 0x2,-0x1
020f 01cf | | Execute Vector,Slice_Read
0210 e241 | A | Load 0x1,0x41
0211 1d42 | B | Execute_Immediate Reference_Lex_1,0x42
0212 e003 | | Load 0x0,0x3
0213 180f | | Execute Package,Field_Execute,Field_Number 0xf
0214 a5fd | | Store_Unchecked 0x2,-0x3
0215 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0216 0000 0000 | | .XXX[0x2]
0218 ; --------------------------------------------------------------------------------------
0218 ; SUBPROGRAM
0218 ; --------------------------------------------------------------------------------------
0218 021d | | .CONST 0x021d ; Address of begin
0219 0004 | | .CONST 0x0004 ; Address of exception handler
021a 0003 | | .CONST 0x0003 ; Number of locals
021b INIT_0218:
021b 00e3 | | Load_Encached Natural_Cache
021c 00e3 | | Load_Encached Natural_Cache
021d BODY_0218:
021d e5fe | | Load 0x2,-0x2
021e 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
021f 00d9 | | Load_Top At_Offset_1
0220 0a01 | | Execute_Immediate Plus,0x1
0221 0059 | Y | Store_Top Discrete,At_Offset_1
0222 00d8 | | Load_Top At_Offset_0
0223 0a01 | | Execute_Immediate Plus,0x1
0224 c5fe | | Store 0x2,-0x2
0225 00d9 | | Load_Top At_Offset_1
0226 00d9 | | Load_Top At_Offset_1
0227 e5ff | | Load 0x2,-0x1
0228 01cf | | Execute Vector,Slice_Read
0229 e245 | E | Load 0x1,0x45
022a 1d46 | F | Execute_Immediate Reference_Lex_1,0x46
022b e003 | | Load 0x0,0x3
022c 180f | | Execute Package,Field_Execute,Field_Number 0xf
022d a5fd | | Store_Unchecked 0x2,-0x3
022e 4502 |E | Exit_Suprogram New_Top_Offset 0x2
022f 0000 | | .XXX[0x1]
0230 ; --------------------------------------------------------------------------------------
0230 ; SUBPROGRAM
0230 ; --------------------------------------------------------------------------------------
0230 0233 | 3 | .CONST 0x0233 ; Address of begin
0231 0004 | | .CONST 0x0004 ; Address of exception handler
0232 0001 | | .CONST 0x0001 ; Number of locals
0233 BODY_0230:
0233 INIT_0230:
0233 00db | | Load_Top At_Offset_3
0234 00db | | Load_Top At_Offset_3
0235 01d7 | | Execute Vector,Field_Read
0236 00d8 | | Load_Top At_Offset_0
0237 00e8 | | Load_Encached Character_Cache
0238 0260 | ` | Execute Discrete,In_Type
0239 7001 |p | Jump_Nonzero 0x23b
023a 0801 | | Execute_Immediate Raise,0x1
023b a5fd | | Store_Unchecked 0x2,-0x3
023c 00db | | Load_Top At_Offset_3
023d 0a01 | | Execute_Immediate Plus,0x1
023e c5fe | | Store 0x2,-0x2
023f 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0240 ; --------------------------------------------------------------------------------------
0240 ; SUBPROGRAM
0240 ; --------------------------------------------------------------------------------------
0240 0245 | E | .CONST 0x0245 ; Address of begin
0241 0004 | | .CONST 0x0004 ; Address of exception handler
0242 0003 | | .CONST 0x0003 ; Number of locals
0243 INIT_0240:
0243 00e3 | | Load_Encached Natural_Cache
0244 00e3 | | Load_Encached Natural_Cache
0245 BODY_0240:
0245 e5fe | | Load 0x2,-0x2
0246 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
0247 00d9 | | Load_Top At_Offset_1
0248 e5fd | | Load 0x2,-0x3
0249 01db | | Execute Vector,Length
024a 0273 | s | Execute Discrete,Plus
024b 0aff | | Execute_Immediate Plus,-0x1
024c 0059 | Y | Store_Top Discrete,At_Offset_1
024d 00d8 | | Load_Top At_Offset_0
024e 0a01 | | Execute_Immediate Plus,0x1
024f c5fe | | Store 0x2,-0x2
0250 00d9 | | Load_Top At_Offset_1
0251 00d9 | | Load_Top At_Offset_1
0252 e5ff | | Load 0x2,-0x1
0253 01cf | | Execute Vector,Slice_Read
0254 e018 | | Load 0x0,0x18
0255 180d | | Execute Package,Field_Execute,Field_Number 0xd
0256 e5fd | | Load 0x2,-0x3
0257 01d4 | | Execute Vector,Structure_Write
0258 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0259 0000 0000 | | .BLANK 0000[0x7]
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 00db | | Load_Top At_Offset_3
0264 00db | | Load_Top At_Offset_3
0265 01d7 | | Execute Vector,Field_Read
0266 00d8 | | Load_Top At_Offset_0
0267 00e1 | | Load_Encached Boolean_Cache
0268 0260 | ` | Execute Discrete,In_Type
0269 7001 |p | Jump_Nonzero 0x26b
026a 0801 | | Execute_Immediate Raise,0x1
026b a5fd | | Store_Unchecked 0x2,-0x3
026c 00db | | Load_Top At_Offset_3
026d 0a01 | | Execute_Immediate Plus,0x1
026e c5fe | | Store 0x2,-0x2
026f 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0270 ; --------------------------------------------------------------------------------------
0270 ; SUBPROGRAM
0270 ; --------------------------------------------------------------------------------------
0270 0275 | u | .CONST 0x0275 ; Address of begin
0271 0004 | | .CONST 0x0004 ; Address of exception handler
0272 0003 | | .CONST 0x0003 ; Number of locals
0273 INIT_0270:
0273 00e3 | | Load_Encached Natural_Cache
0274 00e3 | | Load_Encached Natural_Cache
0275 BODY_0270:
0275 e5fe | | Load 0x2,-0x2
0276 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
0277 00d9 | | Load_Top At_Offset_1
0278 0a03 | | Execute_Immediate Plus,0x3
0279 0059 | Y | Store_Top Discrete,At_Offset_1
027a 00d8 | | Load_Top At_Offset_0
027b 0a01 | | Execute_Immediate Plus,0x1
027c c5fe | | Store 0x2,-0x2
027d 00d9 | | Load_Top At_Offset_1
027e 00d9 | | Load_Top At_Offset_1
027f e5ff | | Load 0x2,-0x1
0280 01cf | | Execute Vector,Slice_Read
0281 e249 | I | Load 0x1,0x49
0282 1d4a | J | Execute_Immediate Reference_Lex_1,0x4a
0283 e003 | | Load 0x0,0x3
0284 180f | | Execute Package,Field_Execute,Field_Number 0xf
0285 a5fd | | Store_Unchecked 0x2,-0x3
0286 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0287 0000 | | .XXX[0x1]
0288 ; --------------------------------------------------------------------------------------
0288 ; SUBPROGRAM
0288 ; --------------------------------------------------------------------------------------
0288 028d | | .CONST 0x028d ; Address of begin
0289 0004 | | .CONST 0x0004 ; Address of exception handler
028a 0003 | | .CONST 0x0003 ; Number of locals
028b INIT_0288:
028b 00e3 | | Load_Encached Natural_Cache
028c 00e3 | | Load_Encached Natural_Cache
028d BODY_0288:
028d e5fe | | Load 0x2,-0x2
028e 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
028f 00d9 | | Load_Top At_Offset_1
0290 0a07 | | Execute_Immediate Plus,0x7
0291 0059 | Y | Store_Top Discrete,At_Offset_1
0292 00d8 | | Load_Top At_Offset_0
0293 0a01 | | Execute_Immediate Plus,0x1
0294 c5fe | | Store 0x2,-0x2
0295 00d9 | | Load_Top At_Offset_1
0296 00d9 | | Load_Top At_Offset_1
0297 e5ff | | Load 0x2,-0x1
0298 01cf | | Execute Vector,Slice_Read
0299 e24d | M | Load 0x1,0x4d
029a 1d4e | N | Execute_Immediate Reference_Lex_1,0x4e
029b e003 | | Load 0x0,0x3
029c 180f | | Execute Package,Field_Execute,Field_Number 0xf
029d a5fd | | Store_Unchecked 0x2,-0x3
029e 4502 |E | Exit_Suprogram New_Top_Offset 0x2
029f 0000 | | .XXX[0x1]
02a0 ; --------------------------------------------------------------------------------------
02a0 ; SUBPROGRAM
02a0 ; --------------------------------------------------------------------------------------
02a0 02a5 | | .CONST 0x02a5 ; Address of begin
02a1 0004 | | .CONST 0x0004 ; Address of exception handler
02a2 0003 | | .CONST 0x0003 ; Number of locals
02a3 INIT_02a0:
02a3 00e3 | | Load_Encached Natural_Cache
02a4 00e3 | | Load_Encached Natural_Cache
02a5 BODY_02a0:
02a5 e5fe | | Load 0x2,-0x2
02a6 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
02a7 00d9 | | Load_Top At_Offset_1
02a8 0a07 | | Execute_Immediate Plus,0x7
02a9 0059 | Y | Store_Top Discrete,At_Offset_1
02aa 00d8 | | Load_Top At_Offset_0
02ab 0a01 | | Execute_Immediate Plus,0x1
02ac c5fe | | Store 0x2,-0x2
02ad 00d9 | | Load_Top At_Offset_1
02ae 00d9 | | Load_Top At_Offset_1
02af e5ff | | Load 0x2,-0x1
02b0 01cf | | Execute Vector,Slice_Read
02b1 e23d | = | Load 0x1,0x3d
02b2 1d3e | > | Execute_Immediate Reference_Lex_1,0x3e
02b3 e003 | | Load 0x0,0x3
02b4 180f | | Execute Package,Field_Execute,Field_Number 0xf
02b5 a5fd | | Store_Unchecked 0x2,-0x3
02b6 4502 |E | Exit_Suprogram New_Top_Offset 0x2
02b7 0000 | | .XXX[0x1]
02b8 ; --------------------------------------------------------------------------------------
02b8 ; SUBPROGRAM
02b8 ; --------------------------------------------------------------------------------------
02b8 02c6 | | .CONST 0x02c6 ; Address of begin
02b9 0004 | | .CONST 0x0004 ; Address of exception handler
02ba 0006 | | .CONST 0x0006 ; Number of locals
02bb INIT_02b8:
02bb 00e3 | | Load_Encached Natural_Cache
02bc e227 | ' | Load 0x1,0x27
02bd 0007 | | Action Break_Optional
02be 00d8 | | Load_Top At_Offset_0
02bf 0007 | | Action Break_Optional
02c0 e5fe | | Load 0x2,-0x2
02c1 2402 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x2
02c2 0007 | | Action Break_Optional
02c3 e5fe | | Load 0x2,-0x2
02c4 2403 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x3
02c5 0007 | | Action Break_Optional
02c6 BODY_02b8:
02c6 e5fe | | Load 0x2,-0x2
02c7 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
02c8 e5fe | | Load 0x2,-0x2
02c9 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
02ca 0272 | r | Execute Discrete,Minus
02cb c402 | | Store 0x2,0x2
02cc e5ff | | Load 0x2,-0x1
02cd e402 | | Load 0x2,0x2
02ce 027d | } | Execute Discrete,Greater
02cf 6826 |h& | Jump_Zero 0x2f6
02d0 00cf | | Action Mark_Auxiliary
02d1 e5fe | | Load 0x2,-0x2
02d2 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
02d3 0901 | | Execute_Immediate Binary_Scale,0x1
02d4 e5fe | | Load 0x2,-0x2
02d5 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
02d6 e5ff | | Load 0x2,-0x1
02d7 e5fe | | Load 0x2,-0x2
02d8 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
02d9 e5fe | | Load 0x2,-0x2
02da 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
02db 0272 | r | Execute Discrete,Minus
02dc 027a | z | Execute Discrete,Less_Equal
02dd 7002 |p | Jump_Nonzero 0x2e0
02de 00c9 | | Action Pop_Auxiliary_Loop
02df 7ff1 | | Jump 0x2d1
02e0 00ce | | Action Pop_Auxiliary
02e1 4801 |H | Short_Literal 0x1
02e2 00da | | Load_Top At_Offset_2
02e3 e227 | ' | Load 0x1,0x27
02e4 03ba | | Declare_Variable Access,By_Allocation,With_Constraint
02e5 003b | ; | Store_Top Access,At_Offset_3
02e6 e5fe | | Load 0x2,-0x2
02e7 2c04 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x4
02e8 a403 | | Store_Unchecked 0x2,0x3
02e9 4801 |H | Short_Literal 0x1
02ea 00d9 | | Load_Top At_Offset_1
02eb e403 | | Load 0x2,0x3
02ec 0227 | ' | Execute Access,All_Reference
02ed 01cf | | Execute Vector,Slice_Read
02ee 4801 |H | Short_Literal 0x1
02ef 00da | | Load_Top At_Offset_2
02f0 e404 | | Load 0x2,0x4
02f1 0229 | ) | Execute Access,All_Read
02f2 01ce | | Execute Vector,Slice_Write
02f3 00da | | Load_Top At_Offset_2
02f4 e5fe | | Load 0x2,-0x2
02f5 2804 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x4
02f6 4502 |E | Exit_Suprogram New_Top_Offset 0x2
02f7 0000 | | .XXX[0x1]
02f8 ; --------------------------------------------------------------------------------------
02f8 ; SUBPROGRAM
02f8 ; --------------------------------------------------------------------------------------
02f8 02fb | | .CONST 0x02fb ; Address of begin
02f9 0004 | | .CONST 0x0004 ; Address of exception handler
02fa 0001 | | .CONST 0x0001 ; Number of locals
02fb BODY_02f8:
02fb INIT_02f8:
02fb 4609 |F | Jump_Case 0xa
02fc 7809 |x | Jump 0x306 ; case 0x0
02fd 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
02fe 7822 |x" | Jump 0x321 ; case 0x2
02ff 7825 |x% | Jump 0x325 ; case 0x3
0300 7836 |x6 | Jump 0x337 ; case 0x4
0301 7835 |x5 | Jump 0x337 ; case 0x5
0302 7834 |x4 | Jump 0x337 ; case 0x6
0303 7827 |x' | Jump 0x32b ; case 0x7
0304 782a |x* | Jump 0x32f ; case 0x8
0305 782d |x- | Jump 0x333 ; case 0x9
0306 00da | | Load_Top At_Offset_2
0307 016c | l | Execute Variant_Record,Is_Constrained
0308 7009 |p | Jump_Nonzero 0x312
0309 00cf | | Action Mark_Auxiliary
030a e20e | | Load 0x1,0xe
030b e5ff | | Load 0x2,-0x1
030c 1c08 | | Execute_Immediate Run_Utility,0x8
030d 00d8 | | Load_Top At_Offset_0
030e 1c00 | | Execute_Immediate Run_Utility,0x0
030f c5ff | | Store 0x2,-0x1
0310 00ce | | Action Pop_Auxiliary
0311 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0312 00da | | Load_Top At_Offset_2
0313 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0314 00db | | Load_Top At_Offset_3
0315 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0316 4800 |H | Short_Literal 0x0
0317 00db | | Load_Top At_Offset_3
0318 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
0319 4801 |H | Short_Literal 0x1
031a 00db | | Load_Top At_Offset_3
031b 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
031c e227 | ' | Load 0x1,0x27
031d 03ba | | Declare_Variable Access,By_Allocation,With_Constraint
031e 00db | | Load_Top At_Offset_3
031f 2804 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x4
0320 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0321 4801 |H | Short_Literal 0x1
0322 4804 |H | Short_Literal 0x4
0323 0311 | | Declare_Type Variant_Record,Constrained_Incomplete
0324 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0325 e5fd | | Load 0x2,-0x3
0326 00db | | Load_Top At_Offset_3
0327 1c07 | | Execute_Immediate Run_Utility,0x7
0328 e5fe | | Load 0x2,-0x2
0329 0306 | | Complete_Type Variant_Record,By_Renaming
032a 4304 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x4
032b 00db | | Load_Top At_Offset_3
032c e5ff | | Load 0x2,-0x1
032d 031b | | Declare_Type Variant_Record,Constrained
032e 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
032f 00db | | Load_Top At_Offset_3
0330 00db | | Load_Top At_Offset_3
0331 02fc | | Declare_Variable Variant_Record,With_Constraint
0332 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0333 e20e | | Load 0x1,0xe
0334 00db | | Load_Top At_Offset_3
0335 1c07 | | Execute_Immediate Run_Utility,0x7
0336 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0337 0869 | i | Execute_Immediate Raise,0x69
0338 ; --------------------------------------------------------------------------------------
0338 ; Debug Table
0338 ; --------------------------------------------------------------------------------------
0338 0004 0008 | | .DEBUG4 0x0004,0x0008,0xc01d,0x0000,0x0001,0x0000
033e 0000 0000 | | .BLANK 0000[0xc2]