|
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, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0a7cf5
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0548 | H | .CONST 0x0548 ; 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 8003 | | .CONST 0x8003 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 002a | * | .CONST 0x002a ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0018 | | .CONST 0x0018 ; Number of locals
000b INIT_0008:
000b 029a 0033 | 3| Declare_Subprogram INIT_0030,For_Outer_Call,Visible,Unelaborated
000d 029a 003b | ;| Declare_Subprogram INIT_0038,For_Outer_Call,Visible,Unelaborated
000f 029a 0183 | | Declare_Subprogram INIT_0180,For_Outer_Call,Visible,Unelaborated
0011 00bf | | Action Accept_Activation
0012 029d 029b | | Declare_Subprogram INIT_0298,For_Outer_Call
0014 e001 | | Load 0x0,0x1
0015 1920 | | Execute Package,Field_Reference,Field_Number 0x20
0016 00c6 | | Action Check_Subprogram_Elaborated
0017 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0018 e002 | | Load 0x0,0x2
0019 e003 | | Load 0x0,0x3
001a 4800 |H | Short_Literal 0x0
001b 0007 | | Action Break_Optional
001c 1d0d | | Execute_Immediate Reference_Lex_1,0xd
001d 00c7 | | Action Elaborate_Subprogram
001e 029d 02a3 | | Declare_Subprogram INIT_02a0,For_Outer_Call
0020 029d 0303 | | Declare_Subprogram INIT_0300,For_Outer_Call
0022 029d 034b | K| Declare_Subprogram INIT_0348,For_Outer_Call
0024 029d 035b | [| Declare_Subprogram INIT_0358,For_Outer_Call
0026 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0027 00c7 | | Action Elaborate_Subprogram
0028 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0029 00c7 | | Action Elaborate_Subprogram
002a BODY_0008:
002a 00bc | | Action Signal_Activated
002b 00bb | | Action Signal_Completion
002c 0000 0000 | | .BLANK 0000[0x4]
0030 ; --------------------------------------------------------------------------------------
0030 ; SUBPROGRAM
0030 ; --------------------------------------------------------------------------------------
0030 0033 | 3 | .CONST 0x0033 ; Address of begin
0031 0004 | | .CONST 0x0004 ; Address of exception handler
0032 0001 | | .CONST 0x0001 ; Number of locals
0033 BODY_0030:
0033 INIT_0030:
0033 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0034 0000 0000 | | .BLANK 0000[0x4]
0038 ; --------------------------------------------------------------------------------------
0038 ; SUBPROGRAM
0038 ; --------------------------------------------------------------------------------------
0038 0040 | @ | .CONST 0x0040 ; Address of begin
0039 0004 | | .CONST 0x0004 ; Address of exception handler
003a 0002 | | .CONST 0x0002 ; Number of locals
003b INIT_0038:
003b e004 | | Load 0x0,0x4
003c 1b8f | | Execute Package,Field_Read,Field_Number 0x8f
003d 02ff | | Declare_Variable Variant_Record
003e 00d8 | | Load_Top At_Offset_0
003f 1c00 | | Execute_Immediate Run_Utility,0x0
0040 BODY_0038:
0040 e5fe | | Load 0x2,-0x2
0041 0b00 | | Execute_Immediate Case_Compare,0x0
0042 7047 |pG | Jump_Nonzero 0x8a
0043 00d8 | | Load_Top At_Offset_0
0044 e005 | | Load 0x0,0x5
0045 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0046 0260 | ` | Execute Discrete,In_Type
0047 7046 |pF | Jump_Nonzero 0x8e
0048 00d8 | | Load_Top At_Offset_0
0049 e005 | | Load 0x0,0x5
004a 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
004b 0260 | ` | Execute Discrete,In_Type
004c 710a |q | Jump_Nonzero 0x157
004d 00d8 | | Load_Top At_Offset_0
004e e005 | | Load 0x0,0x5
004f 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0050 0260 | ` | Execute Discrete,In_Type
0051 7110 |q | Jump_Nonzero 0x162
0052 e005 | | Load 0x0,0x5
0053 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0054 0260 | ` | Execute Discrete,In_Type
0055 7117 |q | Jump_Nonzero 0x16d
0056 e006 | | Load 0x0,0x6
0057 00d9 | | Load_Top At_Offset_1
0058 016d | m | Execute Variant_Record,Structure_Write
0059 00db | | Load_Top At_Offset_3
005a 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
005b 0f02 | | Execute_Immediate Equal,0x2
005c 7015 |p | Jump_Nonzero 0x72
005d 4800 |H | Short_Literal 0x0
005e 4800 |H | Short_Literal 0x0
005f 4801 |H | Short_Literal 0x1
0060 0092 04dc | | Action Push_String_Extended,0x4dc ; "Initialization ("
0062 e5fe | | Load 0x2,-0x2
0063 e005 | | Load 0x0,0x5
0064 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29
0065 011c | | Execute Any,Convert_Unchecked
0066 1c01 | | Execute_Immediate Run_Utility,0x1
0067 01cc | | Execute Vector,Catenate
0068 0092 04dd | | Action Push_String_Extended,0x4dd ; ") is undefined"
006a 01cc | | Execute Vector,Catenate
006b e004 | | Load 0x0,0x4
006c 1818 | | Execute Package,Field_Execute,Field_Number 0x18
006d e004 | | Load 0x0,0x4
006e 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
006f e004 | | Load 0x0,0x4
0070 1b90 | | Execute Package,Field_Read,Field_Number 0x90
0071 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0072 e004 | | Load 0x0,0x4
0073 1b8e | | Execute Package,Field_Read,Field_Number 0x8e
0074 4801 |H | Short_Literal 0x1
0075 e5ff | | Load 0x2,-0x1
0076 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
0077 4801 |H | Short_Literal 0x1
0078 480b |H | Short_Literal 0xb
0079 e004 | | Load 0x0,0x4
007a 1b8a | | Execute Package,Field_Read,Field_Number 0x8a
007b 8007 | | Call 0x0,0x7
007c e008 | | Load 0x0,0x8
007d 181d | | Execute Package,Field_Execute,Field_Number 0x1d
007e e004 | | Load 0x0,0x4
007f 1b50 | P | Execute Package,Field_Read,Field_Number 0x50
0080 03b6 | | Declare_Variable Access,By_Allocation,With_Value
0081 00d9 | | Load_Top At_Offset_1
0082 2a08 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x8
0083 00d8 | | Load_Top At_Offset_0
0084 2e08 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8
0085 0227 | ' | Execute Access,All_Reference
0086 01db | | Execute Vector,Length
0087 00d9 | | Load_Top At_Offset_1
0088 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0089 78ed |x | Jump 0x177
008a 00d1 | | Pop_Control Pop_Count_1
008b e004 | | Load 0x0,0x4
008c 1b90 | | Execute Package,Field_Read,Field_Number 0x90
008d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
008e 00d1 | | Pop_Control Pop_Count_1
008f e009 | | Load 0x0,0x9
0090 00d9 | | Load_Top At_Offset_1
0091 016d | m | Execute Variant_Record,Structure_Write
0092 00db | | Load_Top At_Offset_3
0093 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0094 4606 |F | Jump_Case 0x7
0095 78a5 |x | Jump 0x13b ; case 0x0
0096 7824 |x$ | Jump 0xbb ; case 0x1
0097 7840 |x@ | Jump 0xd8 ; case 0x2
0098 78a2 |x | Jump 0x13b ; case 0x3
0099 7882 |x | Jump 0x11c ; case 0x4
009a 7862 |xb | Jump 0xfd ; case 0x5
009b 7800 |x | Jump 0x9c ; case 0x6
009c 4801 |H | Short_Literal 0x1
009d 4801 |H | Short_Literal 0x1
009e e00a | | Load 0x0,0xa
009f 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
00a0 035b | [ | Declare_Type Array,Constrained
00a1 0337 | 7 | Declare_Variable Array
00a2 e5fe | | Load 0x2,-0x2
00a3 00d8 | | Load_Top At_Offset_0
00a4 e00a | | Load 0x0,0xa
00a5 1b12 | | Execute Package,Field_Read,Field_Number 0x12
00a6 0260 | ` | Execute Discrete,In_Type
00a7 7001 |p | Jump_Nonzero 0xa9
00a8 0801 | | Execute_Immediate Raise,0x1
00a9 e5ff | | Load 0x2,-0x1
00aa 2e07 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7
00ab e008 | | Load 0x0,0x8
00ac 181e | | Execute Package,Field_Execute,Field_Number 0x1e
00ad e00b | | Load 0x0,0xb
00ae 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00af e00a | | Load 0x0,0xa
00b0 1b16 | | Execute Package,Field_Read,Field_Number 0x16
00b1 0119 | | Execute Any,Check_In_Formal_Type
00b2 4801 |H | Short_Literal 0x1
00b3 00da | | Load_Top At_Offset_2
00b4 01d6 | | Execute Vector,Field_Write
00b5 e004 | | Load 0x0,0x4
00b6 1b4c | L | Execute Package,Field_Read,Field_Number 0x4c
00b7 03b6 | | Declare_Variable Access,By_Allocation,With_Value
00b8 00d9 | | Load_Top At_Offset_1
00b9 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
00ba 7895 |x | Jump 0x150
00bb 4801 |H | Short_Literal 0x1
00bc 4801 |H | Short_Literal 0x1
00bd e00a | | Load 0x0,0xa
00be 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
00bf 035b | [ | Declare_Type Array,Constrained
00c0 0337 | 7 | Declare_Variable Array
00c1 e5fe | | Load 0x2,-0x2
00c2 00d8 | | Load_Top At_Offset_0
00c3 e00a | | Load 0x0,0xa
00c4 1b12 | | Execute Package,Field_Read,Field_Number 0x12
00c5 0260 | ` | Execute Discrete,In_Type
00c6 7001 |p | Jump_Nonzero 0xc8
00c7 0801 | | Execute_Immediate Raise,0x1
00c8 e5ff | | Load 0x2,-0x1
00c9 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
00ca e00b | | Load 0x0,0xb
00cb 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00cc e00a | | Load 0x0,0xa
00cd 1b16 | | Execute Package,Field_Read,Field_Number 0x16
00ce 0119 | | Execute Any,Check_In_Formal_Type
00cf 4801 |H | Short_Literal 0x1
00d0 00da | | Load_Top At_Offset_2
00d1 01d6 | | Execute Vector,Field_Write
00d2 e004 | | Load 0x0,0x4
00d3 1b4c | L | Execute Package,Field_Read,Field_Number 0x4c
00d4 03b6 | | Declare_Variable Access,By_Allocation,With_Value
00d5 00d9 | | Load_Top At_Offset_1
00d6 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
00d7 7878 |xx | Jump 0x150
00d8 e5fe | | Load 0x2,-0x2
00d9 0f0b | | Execute_Immediate Equal,0xb
00da 680e |h | Jump_Zero 0xe9
00db 4801 |H | Short_Literal 0x1
00dc e5ff | | Load 0x2,-0x1
00dd 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
00de 4801 |H | Short_Literal 0x1
00df 480b |H | Short_Literal 0xb
00e0 e004 | | Load 0x0,0x4
00e1 1b8a | | Execute Package,Field_Read,Field_Number 0x8a
00e2 8007 | | Call 0x0,0x7
00e3 e004 | | Load 0x0,0x4
00e4 1b4c | L | Execute Package,Field_Read,Field_Number 0x4c
00e5 03b6 | | Declare_Variable Access,By_Allocation,With_Value
00e6 00d9 | | Load_Top At_Offset_1
00e7 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
00e8 7867 |xg | Jump 0x150
00e9 4801 |H | Short_Literal 0x1
00ea e5ff | | Load 0x2,-0x1
00eb 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
00ec 4800 |H | Short_Literal 0x0
00ed e5fe | | Load 0x2,-0x2
00ee 00d8 | | Load_Top At_Offset_0
00ef e00a | | Load 0x0,0xa
00f0 1b12 | | Execute Package,Field_Read,Field_Number 0x12
00f1 0260 | ` | Execute Discrete,In_Type
00f2 7001 |p | Jump_Nonzero 0xf4
00f3 0801 | | Execute_Immediate Raise,0x1
00f4 e004 | | Load 0x0,0x4
00f5 1b8a | | Execute Package,Field_Read,Field_Number 0x8a
00f6 8007 | | Call 0x0,0x7
00f7 e004 | | Load 0x0,0x4
00f8 1b4c | L | Execute Package,Field_Read,Field_Number 0x4c
00f9 03b6 | | Declare_Variable Access,By_Allocation,With_Value
00fa 00d9 | | Load_Top At_Offset_1
00fb 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
00fc 7853 |xS | Jump 0x150
00fd 4801 |H | Short_Literal 0x1
00fe 4801 |H | Short_Literal 0x1
00ff e00a | | Load 0x0,0xa
0100 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
0101 035b | [ | Declare_Type Array,Constrained
0102 0337 | 7 | Declare_Variable Array
0103 e5fe | | Load 0x2,-0x2
0104 00d8 | | Load_Top At_Offset_0
0105 e00a | | Load 0x0,0xa
0106 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0107 0260 | ` | Execute Discrete,In_Type
0108 7001 |p | Jump_Nonzero 0x10a
0109 0801 | | Execute_Immediate Raise,0x1
010a e5ff | | Load 0x2,-0x1
010b 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
010c e00c | | Load 0x0,0xc
010d 181e | | Execute Package,Field_Execute,Field_Number 0x1e
010e e00b | | Load 0x0,0xb
010f 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0110 e00a | | Load 0x0,0xa
0111 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0112 0119 | | Execute Any,Check_In_Formal_Type
0113 4801 |H | Short_Literal 0x1
0114 00da | | Load_Top At_Offset_2
0115 01d6 | | Execute Vector,Field_Write
0116 e004 | | Load 0x0,0x4
0117 1b4c | L | Execute Package,Field_Read,Field_Number 0x4c
0118 03b6 | | Declare_Variable Access,By_Allocation,With_Value
0119 00d9 | | Load_Top At_Offset_1
011a 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
011b 7834 |x4 | Jump 0x150
011c 4801 |H | Short_Literal 0x1
011d 4801 |H | Short_Literal 0x1
011e e00a | | Load 0x0,0xa
011f 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
0120 035b | [ | Declare_Type Array,Constrained
0121 0337 | 7 | Declare_Variable Array
0122 e5fe | | Load 0x2,-0x2
0123 00d8 | | Load_Top At_Offset_0
0124 e00a | | Load 0x0,0xa
0125 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0126 0260 | ` | Execute Discrete,In_Type
0127 7001 |p | Jump_Nonzero 0x129
0128 0801 | | Execute_Immediate Raise,0x1
0129 e5ff | | Load 0x2,-0x1
012a 2e06 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
012b e00d | | Load 0x0,0xd
012c 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
012d e00b | | Load 0x0,0xb
012e 1813 | | Execute Package,Field_Execute,Field_Number 0x13
012f e00a | | Load 0x0,0xa
0130 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0131 0119 | | Execute Any,Check_In_Formal_Type
0132 4801 |H | Short_Literal 0x1
0133 00da | | Load_Top At_Offset_2
0134 01d6 | | Execute Vector,Field_Write
0135 e004 | | Load 0x0,0x4
0136 1b4c | L | Execute Package,Field_Read,Field_Number 0x4c
0137 03b6 | | Declare_Variable Access,By_Allocation,With_Value
0138 00d9 | | Load_Top At_Offset_1
0139 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
013a 7815 |x | Jump 0x150
013b 4800 |H | Short_Literal 0x0
013c 4800 |H | Short_Literal 0x0
013d 4801 |H | Short_Literal 0x1
013e 0092 04dc | | Action Push_String_Extended,0x4dc ; "Initialization ("
0140 e5fe | | Load 0x2,-0x2
0141 e005 | | Load 0x0,0x5
0142 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29
0143 011c | | Execute Any,Convert_Unchecked
0144 1c01 | | Execute_Immediate Run_Utility,0x1
0145 01cc | | Execute Vector,Catenate
0146 0092 04dd | | Action Push_String_Extended,0x4dd ; ") is undefined"
0148 01cc | | Execute Vector,Catenate
0149 e004 | | Load 0x0,0x4
014a 1818 | | Execute Package,Field_Execute,Field_Number 0x18
014b e004 | | Load 0x0,0x4
014c 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
014d e004 | | Load 0x0,0x4
014e 1b90 | | Execute Package,Field_Read,Field_Number 0x90
014f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0150 00d8 | | Load_Top At_Offset_0
0151 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
0152 0227 | ' | Execute Access,All_Reference
0153 01db | | Execute Vector,Length
0154 00d9 | | Load_Top At_Offset_1
0155 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0156 7820 |x | Jump 0x177
0157 00d1 | | Pop_Control Pop_Count_1
0158 00db | | Load_Top At_Offset_3
0159 e5fe | | Load 0x2,-0x2
015a 00d8 | | Load_Top At_Offset_0
015b e00e | | Load 0x0,0xe
015c 1b12 | | Execute Package,Field_Read,Field_Number 0x12
015d 0260 | ` | Execute Discrete,In_Type
015e 7001 |p | Jump_Nonzero 0x160
015f 0801 | | Execute_Immediate Raise,0x1
0160 8218 | | Call 0x1,0x18
0161 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0162 00d1 | | Pop_Control Pop_Count_1
0163 00db | | Load_Top At_Offset_3
0164 e5fe | | Load 0x2,-0x2
0165 00d8 | | Load_Top At_Offset_0
0166 e00c | | Load 0x0,0xc
0167 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0168 0260 | ` | Execute Discrete,In_Type
0169 7001 |p | Jump_Nonzero 0x16b
016a 0801 | | Execute_Immediate Raise,0x1
016b 8215 | | Call 0x1,0x15
016c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
016d 00db | | Load_Top At_Offset_3
016e e5fe | | Load 0x2,-0x2
016f 00d8 | | Load_Top At_Offset_0
0170 e00d | | Load 0x0,0xd
0171 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0172 0260 | ` | Execute Discrete,In_Type
0173 7001 |p | Jump_Nonzero 0x175
0174 0801 | | Execute_Immediate Raise,0x1
0175 8216 | | Call 0x1,0x16
0176 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0177 00d8 | | Load_Top At_Offset_0
0178 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0179 0000 0000 | | .BLANK 0000[0x7]
0180 ; --------------------------------------------------------------------------------------
0180 ; SUBPROGRAM
0180 ; --------------------------------------------------------------------------------------
0180 0192 | | .CONST 0x0192 ; Address of begin
0181 0004 | | .CONST 0x0004 ; Address of exception handler
0182 0006 | | .CONST 0x0006 ; Number of locals
0183 INIT_0180:
0183 e004 | | Load 0x0,0x4
0184 1b8f | | Execute Package,Field_Read,Field_Number 0x8f
0185 02ff | | Declare_Variable Variant_Record
0186 00d8 | | Load_Top At_Offset_0
0187 1c00 | | Execute_Immediate Run_Utility,0x0
0188 e001 | | Load 0x0,0x1
0189 1b19 | | Execute Package,Field_Read,Field_Number 0x19
018a 02c7 | | Declare_Variable Any
018b 00d8 | | Load_Top At_Offset_0
018c 1c00 | | Execute_Immediate Run_Utility,0x0
018d 00e1 | | Load_Encached Boolean_Cache
018e 029f 03f3 | | Declare_Subprogram INIT_03f0,For_Call
0190 029f 0413 | | Declare_Subprogram INIT_0410,For_Call
0192 BODY_0180:
0192 e5fe | | Load 0x2,-0x2
0193 00d8 | | Load_Top At_Offset_0
0194 0c06 | | Execute_Immediate Greater_Equal,0x6
0195 7016 |p | Jump_Nonzero 0x1ac
0196 4605 |F | Jump_Case 0x6
0197 78d4 |x | Jump 0x26c ; case 0x0
0198 7835 |x5 | Jump 0x1ce ; case 0x1
0199 784e |xN | Jump 0x1e8 ; case 0x2
019a 7871 |xq | Jump 0x20c ; case 0x3
019b 7817 |x | Jump 0x1b3 ; case 0x4
019c 7800 |x | Jump 0x19d ; case 0x5
019d e009 | | Load 0x0,0x9
019e e402 | | Load 0x2,0x2
019f 016d | m | Execute Variant_Record,Structure_Write
01a0 e5ff | | Load 0x2,-0x1
01a1 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
01a2 0f02 | | Execute_Immediate Equal,0x2
01a3 68eb |h | Jump_Zero 0x28f
01a4 8405 | | Call 0x2,0x5
01a5 e402 | | Load 0x2,0x2
01a6 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
01a7 0227 | ' | Execute Access,All_Reference
01a8 01db | | Execute Vector,Length
01a9 e402 | | Load 0x2,0x2
01aa 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
01ab 78e3 |x | Jump 0x28f
01ac 0b66 | f | Execute_Immediate Case_Compare,0x66
01ad 7067 |pg | Jump_Nonzero 0x215
01ae 0b67 | g | Execute_Immediate Case_Compare,0x67
01af 7080 |p | Jump_Nonzero 0x230
01b0 0f6a | j | Execute_Immediate Equal,0x6a
01b1 7098 |p | Jump_Nonzero 0x24a
01b2 78b9 |x | Jump 0x26c
01b3 e009 | | Load 0x0,0x9
01b4 e402 | | Load 0x2,0x2
01b5 016d | m | Execute Variant_Record,Structure_Write
01b6 e5ff | | Load 0x2,-0x1
01b7 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
01b8 0f02 | | Execute_Immediate Equal,0x2
01b9 68d5 |h | Jump_Zero 0x28f
01ba 4800 |H | Short_Literal 0x0
01bb e5ff | | Load 0x2,-0x1
01bc 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
01bd 4800 |H | Short_Literal 0x0
01be 4807 |H | Short_Literal 0x7
01bf e004 | | Load 0x0,0x4
01c0 1b8a | | Execute Package,Field_Read,Field_Number 0x8a
01c1 8007 | | Call 0x0,0x7
01c2 e004 | | Load 0x0,0x4
01c3 1b4c | L | Execute Package,Field_Read,Field_Number 0x4c
01c4 03b6 | | Declare_Variable Access,By_Allocation,With_Value
01c5 e402 | | Load 0x2,0x2
01c6 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
01c7 e402 | | Load 0x2,0x2
01c8 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
01c9 0227 | ' | Execute Access,All_Reference
01ca 01db | | Execute Vector,Length
01cb e402 | | Load 0x2,0x2
01cc 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
01cd 78c1 |x | Jump 0x28f
01ce e009 | | Load 0x0,0x9
01cf e402 | | Load 0x2,0x2
01d0 016d | m | Execute Variant_Record,Structure_Write
01d1 e5ff | | Load 0x2,-0x1
01d2 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
01d3 0f03 | | Execute_Immediate Equal,0x3
01d4 7001 |p | Jump_Nonzero 0x1d6
01d5 78b9 |x | Jump 0x28f
01d6 e004 | | Load 0x0,0x4
01d7 1b8a | | Execute Package,Field_Read,Field_Number 0x8a
01d8 e5ff | | Load 0x2,-0x1
01d9 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
01da e00e | | Load 0x0,0xe
01db 1873 | s | Execute Package,Field_Execute,Field_Number 0x73
01dc e004 | | Load 0x0,0x4
01dd 1b4c | L | Execute Package,Field_Read,Field_Number 0x4c
01de 03b6 | | Declare_Variable Access,By_Allocation,With_Value
01df e402 | | Load 0x2,0x2
01e0 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
01e1 e402 | | Load 0x2,0x2
01e2 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
01e3 0227 | ' | Execute Access,All_Reference
01e4 01db | | Execute Vector,Length
01e5 e402 | | Load 0x2,0x2
01e6 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
01e7 78a7 |x | Jump 0x28f
01e8 e009 | | Load 0x0,0x9
01e9 e402 | | Load 0x2,0x2
01ea 016d | m | Execute Variant_Record,Structure_Write
01eb e5ff | | Load 0x2,-0x1
01ec 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
01ed 0f03 | | Execute_Immediate Equal,0x3
01ee 68a0 |h | Jump_Zero 0x28f
01ef 4801 |H | Short_Literal 0x1
01f0 4801 |H | Short_Literal 0x1
01f1 e00a | | Load 0x0,0xa
01f2 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
01f3 035b | [ | Declare_Type Array,Constrained
01f4 0337 | 7 | Declare_Variable Array
01f5 e004 | | Load 0x0,0x4
01f6 1b8a | | Execute Package,Field_Read,Field_Number 0x8a
01f7 e5ff | | Load 0x2,-0x1
01f8 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
01f9 e00e | | Load 0x0,0xe
01fa 1848 | H | Execute Package,Field_Execute,Field_Number 0x48
01fb e00a | | Load 0x0,0xa
01fc 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b
01fd e00a | | Load 0x0,0xa
01fe 1b16 | | Execute Package,Field_Read,Field_Number 0x16
01ff 0119 | | Execute Any,Check_In_Formal_Type
0200 4801 |H | Short_Literal 0x1
0201 00da | | Load_Top At_Offset_2
0202 01d6 | | Execute Vector,Field_Write
0203 e004 | | Load 0x0,0x4
0204 1b4c | L | Execute Package,Field_Read,Field_Number 0x4c
0205 03b6 | | Declare_Variable Access,By_Allocation,With_Value
0206 e402 | | Load 0x2,0x2
0207 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
0208 4801 |H | Short_Literal 0x1
0209 e402 | | Load 0x2,0x2
020a 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
020b 7883 |x | Jump 0x28f
020c e009 | | Load 0x0,0x9
020d e402 | | Load 0x2,0x2
020e 016d | m | Execute Variant_Record,Structure_Write
020f e5ff | | Load 0x2,-0x1
0210 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0211 0f05 | | Execute_Immediate Equal,0x5
0212 687c |h| | Jump_Zero 0x28f
0213 8406 | | Call 0x2,0x6
0214 787a |xz | Jump 0x28f
0215 00d1 | | Pop_Control Pop_Count_1
0216 e00f | | Load 0x0,0xf
0217 e402 | | Load 0x2,0x2
0218 016d | m | Execute Variant_Record,Structure_Write
0219 e5ff | | Load 0x2,-0x1
021a 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
021b 0f02 | | Execute_Immediate Equal,0x2
021c 6872 |hr | Jump_Zero 0x28f
021d e004 | | Load 0x0,0x4
021e 1b8b | | Execute Package,Field_Read,Field_Number 0x8b
021f 480d |H | Short_Literal 0xd
0220 e5ff | | Load 0x2,-0x1
0221 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
0222 e00e | | Load 0x0,0xe
0223 187f | | Execute Package,Field_Execute,Field_Number 0x7f
0224 e004 | | Load 0x0,0x4
0225 1b4d | M | Execute Package,Field_Read,Field_Number 0x4d
0226 03b6 | | Declare_Variable Access,By_Allocation,With_Value
0227 e402 | | Load 0x2,0x2
0228 2a05 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
0229 e402 | | Load 0x2,0x2
022a 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
022b 0227 | ' | Execute Access,All_Reference
022c 01db | | Execute Vector,Length
022d e402 | | Load 0x2,0x2
022e 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
022f 785f |x_ | Jump 0x28f
0230 00d1 | | Pop_Control Pop_Count_1
0231 e00f | | Load 0x0,0xf
0232 e402 | | Load 0x2,0x2
0233 016d | m | Execute Variant_Record,Structure_Write
0234 e5ff | | Load 0x2,-0x1
0235 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0236 0f03 | | Execute_Immediate Equal,0x3
0237 6857 |hW | Jump_Zero 0x28f
0238 e004 | | Load 0x0,0x4
0239 1b8b | | Execute Package,Field_Read,Field_Number 0x8b
023a e5ff | | Load 0x2,-0x1
023b 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
023c e00e | | Load 0x0,0xe
023d 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
023e e004 | | Load 0x0,0x4
023f 1b4d | M | Execute Package,Field_Read,Field_Number 0x4d
0240 03b6 | | Declare_Variable Access,By_Allocation,With_Value
0241 e402 | | Load 0x2,0x2
0242 2a05 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
0243 e402 | | Load 0x2,0x2
0244 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
0245 0227 | ' | Execute Access,All_Reference
0246 01db | | Execute Vector,Length
0247 e402 | | Load 0x2,0x2
0248 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0249 7845 |xE | Jump 0x28f
024a e00f | | Load 0x0,0xf
024b e402 | | Load 0x2,0x2
024c 016d | m | Execute Variant_Record,Structure_Write
024d e5ff | | Load 0x2,-0x1
024e 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
024f 0f02 | | Execute_Immediate Equal,0x2
0250 683e |h> | Jump_Zero 0x28f
0251 e004 | | Load 0x0,0x4
0252 1b8b | | Execute Package,Field_Read,Field_Number 0x8b
0253 4815 |H | Short_Literal 0x15
0254 e5ff | | Load 0x2,-0x1
0255 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
0256 e00e | | Load 0x0,0xe
0257 1852 | R | Execute Package,Field_Execute,Field_Number 0x52
0258 e004 | | Load 0x0,0x4
0259 1b8b | | Execute Package,Field_Read,Field_Number 0x8b
025a 4816 |H | Short_Literal 0x16
025b e5ff | | Load 0x2,-0x1
025c 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
025d e00e | | Load 0x0,0xe
025e 1852 | R | Execute Package,Field_Execute,Field_Number 0x52
025f 01cc | | Execute Vector,Catenate
0260 e004 | | Load 0x0,0x4
0261 1b4d | M | Execute Package,Field_Read,Field_Number 0x4d
0262 03b6 | | Declare_Variable Access,By_Allocation,With_Value
0263 e402 | | Load 0x2,0x2
0264 2a05 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
0265 e402 | | Load 0x2,0x2
0266 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
0267 0227 | ' | Execute Access,All_Reference
0268 01db | | Execute Vector,Length
0269 e402 | | Load 0x2,0x2
026a 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
026b 7823 |x# | Jump 0x28f
026c 4801 |H | Short_Literal 0x1
026d e010 | | Load 0x0,0x10
026e e011 | | Load 0x0,0x11
026f 1b32 | 2 | Execute Package,Field_Read,Field_Number 0x32
0270 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0271 4811 |H | Short_Literal 0x11
0272 e004 | | Load 0x0,0x4
0273 1862 | b | Execute Package,Field_Execute,Field_Number 0x62
0274 e011 | | Load 0x0,0x11
0275 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0276 0092 04de | | Action Push_String_Extended,0x4de ; "*** The list initialization requested here is unimplemented."
0278 e010 | | Load 0x0,0x10
0279 e011 | | Load 0x0,0x11
027a 1b32 | 2 | Execute Package,Field_Read,Field_Number 0x32
027b 1815 | | Execute Package,Field_Execute,Field_Number 0x15
027c 4800 |H | Short_Literal 0x0
027d 4800 |H | Short_Literal 0x0
027e 4801 |H | Short_Literal 0x1
027f 0092 04df | | Action Push_String_Extended,0x4df ; "Undefined Initialization_Kinds =>"
0281 e5fe | | Load 0x2,-0x2
0282 00e0 | | Load_Encached Standard_Cache
0283 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0284 01cc | | Execute Vector,Catenate
0285 0092 04e0 | | Action Push_String_Extended,0x4e0 ; " has been detected"
0287 01cc | | Execute Vector,Catenate
0288 e004 | | Load 0x0,0x4
0289 1818 | | Execute Package,Field_Execute,Field_Number 0x18
028a e004 | | Load 0x0,0x4
028b 1848 | H | Execute Package,Field_Execute,Field_Number 0x48
028c e004 | | Load 0x0,0x4
028d 1b90 | | Execute Package,Field_Read,Field_Number 0x90
028e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
028f e402 | | Load 0x2,0x2
0290 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0291 0000 0000 | | .BLANK 0000[0x7]
0298 ; --------------------------------------------------------------------------------------
0298 ; SUBPROGRAM
0298 ; --------------------------------------------------------------------------------------
0298 029b | | .CONST 0x029b ; Address of begin
0299 0004 | | .CONST 0x0004 ; Address of exception handler
029a 0001 | | .CONST 0x0001 ; Number of locals
029b BODY_0298:
029b INIT_0298:
029b 00da | | Load_Top At_Offset_2
029c e012 | | Load 0x0,0x12
029d 1816 | | Execute Package,Field_Execute,Field_Number 0x16
029e 0f26 | & | Execute_Immediate Equal,0x26
029f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02a0 ; --------------------------------------------------------------------------------------
02a0 ; SUBPROGRAM
02a0 ; --------------------------------------------------------------------------------------
02a0 02a8 | | .CONST 0x02a8 ; Address of begin
02a1 0004 | | .CONST 0x0004 ; Address of exception handler
02a2 0002 | | .CONST 0x0002 ; Number of locals
02a3 INIT_02a0:
02a3 e004 | | Load 0x0,0x4
02a4 1b94 | | Execute Package,Field_Read,Field_Number 0x94
02a5 02ff | | Declare_Variable Variant_Record
02a6 00d8 | | Load_Top At_Offset_0
02a7 1c00 | | Execute_Immediate Run_Utility,0x0
02a8 BODY_02a0:
02a8 e5fe | | Load 0x2,-0x2
02a9 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
02aa 4606 |F | Jump_Case 0x7
02ab 7806 |x | Jump 0x2b2 ; case 0x0
02ac 7805 |x | Jump 0x2b2 ; case 0x1
02ad 7819 |x | Jump 0x2c7 ; case 0x2
02ae 783d |x= | Jump 0x2ec ; case 0x3
02af 7802 |x | Jump 0x2b2 ; case 0x4
02b0 7801 |x | Jump 0x2b2 ; case 0x5
02b1 7800 |x | Jump 0x2b2 ; case 0x6
02b2 4800 |H | Short_Literal 0x0
02b3 4800 |H | Short_Literal 0x0
02b4 4801 |H | Short_Literal 0x1
02b5 0092 04dc | | Action Push_String_Extended,0x4dc ; "Initialization ("
02b7 e5ff | | Load 0x2,-0x1
02b8 e005 | | Load 0x0,0x5
02b9 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29
02ba 011c | | Execute Any,Convert_Unchecked
02bb 1c01 | | Execute_Immediate Run_Utility,0x1
02bc 01cc | | Execute Vector,Catenate
02bd 0092 04dd | | Action Push_String_Extended,0x4dd ; ") is undefined"
02bf 01cc | | Execute Vector,Catenate
02c0 e004 | | Load 0x0,0x4
02c1 1818 | | Execute Package,Field_Execute,Field_Number 0x18
02c2 e004 | | Load 0x0,0x4
02c3 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
02c4 e004 | | Load 0x0,0x4
02c5 1b90 | | Execute Package,Field_Read,Field_Number 0x90
02c6 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
02c7 00db | | Load_Top At_Offset_3
02c8 4823 |H# | Short_Literal 0x23
02c9 4826 |H& | Short_Literal 0x26
02ca 0262 | b | Execute Discrete,In_Range
02cb 700d |p | Jump_Nonzero 0x2d9
02cc 00db | | Load_Top At_Offset_3
02cd e004 | | Load 0x0,0x4
02ce 1b8d | | Execute Package,Field_Read,Field_Number 0x8d
02cf e5fe | | Load 0x2,-0x2
02d0 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
02d1 e00c | | Load 0x0,0xc
02d2 181c | | Execute Package,Field_Execute,Field_Number 0x1c
02d3 e004 | | Load 0x0,0x4
02d4 1b4e | N | Execute Package,Field_Read,Field_Number 0x4e
02d5 03b6 | | Declare_Variable Access,By_Allocation,With_Value
02d6 00d9 | | Load_Top At_Offset_1
02d7 2a06 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6
02d8 781f |x | Jump 0x2f8
02d9 00db | | Load_Top At_Offset_3
02da e004 | | Load 0x0,0x4
02db 1b8d | | Execute Package,Field_Read,Field_Number 0x8d
02dc 4801 |H | Short_Literal 0x1
02dd e5fe | | Load 0x2,-0x2
02de 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
02df 4801 |H | Short_Literal 0x1
02e0 480b |H | Short_Literal 0xb
02e1 e004 | | Load 0x0,0x4
02e2 1b8a | | Execute Package,Field_Read,Field_Number 0x8a
02e3 8007 | | Call 0x0,0x7
02e4 e00c | | Load 0x0,0xc
02e5 181d | | Execute Package,Field_Execute,Field_Number 0x1d
02e6 e004 | | Load 0x0,0x4
02e7 1b4e | N | Execute Package,Field_Read,Field_Number 0x4e
02e8 03b6 | | Declare_Variable Access,By_Allocation,With_Value
02e9 00d9 | | Load_Top At_Offset_1
02ea 2a06 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6
02eb 780c |x | Jump 0x2f8
02ec 00db | | Load_Top At_Offset_3
02ed e004 | | Load 0x0,0x4
02ee 1b8d | | Execute Package,Field_Read,Field_Number 0x8d
02ef e5fe | | Load 0x2,-0x2
02f0 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
02f1 e00c | | Load 0x0,0xc
02f2 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
02f3 e004 | | Load 0x0,0x4
02f4 1b4e | N | Execute Package,Field_Read,Field_Number 0x4e
02f5 03b6 | | Declare_Variable Access,By_Allocation,With_Value
02f6 00d9 | | Load_Top At_Offset_1
02f7 2a06 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6
02f8 00d8 | | Load_Top At_Offset_0
02f9 2e06 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
02fa 0227 | ' | Execute Access,All_Reference
02fb 01db | | Execute Vector,Length
02fc 00d9 | | Load_Top At_Offset_1
02fd 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
02fe 00d8 | | Load_Top At_Offset_0
02ff 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0300 ; --------------------------------------------------------------------------------------
0300 ; SUBPROGRAM
0300 ; --------------------------------------------------------------------------------------
0300 0308 | | .CONST 0x0308 ; Address of begin
0301 0004 | | .CONST 0x0004 ; Address of exception handler
0302 0002 | | .CONST 0x0002 ; Number of locals
0303 INIT_0300:
0303 e004 | | Load 0x0,0x4
0304 1b95 | | Execute Package,Field_Read,Field_Number 0x95
0305 02ff | | Declare_Variable Variant_Record
0306 00d8 | | Load_Top At_Offset_0
0307 1c00 | | Execute_Immediate Run_Utility,0x0
0308 BODY_0300:
0308 e5fe | | Load 0x2,-0x2
0309 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
030a 4606 |F | Jump_Case 0x7
030b 7806 |x | Jump 0x312 ; case 0x0
030c 7805 |x | Jump 0x312 ; case 0x1
030d 7819 |x | Jump 0x327 ; case 0x2
030e 7825 |x% | Jump 0x334 ; case 0x3
030f 7802 |x | Jump 0x312 ; case 0x4
0310 7801 |x | Jump 0x312 ; case 0x5
0311 7800 |x | Jump 0x312 ; case 0x6
0312 4800 |H | Short_Literal 0x0
0313 4800 |H | Short_Literal 0x0
0314 4801 |H | Short_Literal 0x1
0315 0092 04dc | | Action Push_String_Extended,0x4dc ; "Initialization ("
0317 e5ff | | Load 0x2,-0x1
0318 e005 | | Load 0x0,0x5
0319 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29
031a 011c | | Execute Any,Convert_Unchecked
031b 1c01 | | Execute_Immediate Run_Utility,0x1
031c 01cc | | Execute Vector,Catenate
031d 0092 04dd | | Action Push_String_Extended,0x4dd ; ") is undefined"
031f 01cc | | Execute Vector,Catenate
0320 e004 | | Load 0x0,0x4
0321 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0322 e004 | | Load 0x0,0x4
0323 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0324 e004 | | Load 0x0,0x4
0325 1b90 | | Execute Package,Field_Read,Field_Number 0x90
0326 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0327 00db | | Load_Top At_Offset_3
0328 e004 | | Load 0x0,0x4
0329 1b8c | | Execute Package,Field_Read,Field_Number 0x8c
032a e5fe | | Load 0x2,-0x2
032b 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
032c e00d | | Load 0x0,0xd
032d 181c | | Execute Package,Field_Execute,Field_Number 0x1c
032e e004 | | Load 0x0,0x4
032f 1b4f | O | Execute Package,Field_Read,Field_Number 0x4f
0330 03b6 | | Declare_Variable Access,By_Allocation,With_Value
0331 00d9 | | Load_Top At_Offset_1
0332 2a07 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x7
0333 780c |x | Jump 0x340
0334 00db | | Load_Top At_Offset_3
0335 e004 | | Load 0x0,0x4
0336 1b8c | | Execute Package,Field_Read,Field_Number 0x8c
0337 e5fe | | Load 0x2,-0x2
0338 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
0339 e00d | | Load 0x0,0xd
033a 181e | | Execute Package,Field_Execute,Field_Number 0x1e
033b e004 | | Load 0x0,0x4
033c 1b4f | O | Execute Package,Field_Read,Field_Number 0x4f
033d 03b6 | | Declare_Variable Access,By_Allocation,With_Value
033e 00d9 | | Load_Top At_Offset_1
033f 2a07 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x7
0340 00d8 | | Load_Top At_Offset_0
0341 2e07 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7
0342 0227 | ' | Execute Access,All_Reference
0343 01db | | Execute Vector,Length
0344 00d9 | | Load_Top At_Offset_1
0345 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0346 00d8 | | Load_Top At_Offset_0
0347 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
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 00da | | Load_Top At_Offset_2
034c e00a | | Load 0x0,0xa
034d 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
034e 0f01 | | Execute_Immediate Equal,0x1
034f 6803 |h | Jump_Zero 0x353
0350 e00a | | Load 0x0,0xa
0351 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0352 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0353 00da | | Load_Top At_Offset_2
0354 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0355 0000 0000 | | .XXX[0x3]
0357 0000 | |
0358 ; --------------------------------------------------------------------------------------
0358 ; SUBPROGRAM
0358 ; --------------------------------------------------------------------------------------
0358 0362 | b | .CONST 0x0362 ; Address of begin
0359 0004 | | .CONST 0x0004 ; Address of exception handler
035a 0003 | | .CONST 0x0003 ; Number of locals
035b INIT_0358:
035b e004 | | Load 0x0,0x4
035c 1b93 | | Execute Package,Field_Read,Field_Number 0x93
035d 02ff | | Declare_Variable Variant_Record
035e 00d8 | | Load_Top At_Offset_0
035f 1c00 | | Execute_Immediate Run_Utility,0x0
0360 029f 0493 | | Declare_Subprogram INIT_0490,For_Call
0362 BODY_0358:
0362 e5fe | | Load 0x2,-0x2
0363 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0364 4606 |F | Jump_Case 0x7
0365 785b |x[ | Jump 0x3c1 ; case 0x0
0366 785a |xZ | Jump 0x3c1 ; case 0x1
0367 781e |x | Jump 0x386 ; case 0x2
0368 7803 |x | Jump 0x36c ; case 0x3
0369 7857 |xW | Jump 0x3c1 ; case 0x4
036a 7856 |xV | Jump 0x3c1 ; case 0x5
036b 7855 |xU | Jump 0x3c1 ; case 0x6
036c e5ff | | Load 0x2,-0x1
036d e00e | | Load 0x0,0xe
036e 1b43 | C | Execute Package,Field_Read,Field_Number 0x43
036f 0260 | ` | Execute Discrete,In_Type
0370 7001 |p | Jump_Nonzero 0x372
0371 784f |xO | Jump 0x3c1
0372 e004 | | Load 0x0,0x4
0373 1b8b | | Execute Package,Field_Read,Field_Number 0x8b
0374 e5ff | | Load 0x2,-0x1
0375 e00e | | Load 0x0,0xe
0376 1b43 | C | Execute Package,Field_Read,Field_Number 0x43
0377 00d9 | | Load_Top At_Offset_1
0378 00d0 | | Action Swap_Control
0379 0260 | ` | Execute Discrete,In_Type
037a 7001 |p | Jump_Nonzero 0x37c
037b 0801 | | Execute_Immediate Raise,0x1
037c e5fe | | Load 0x2,-0x2
037d 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
037e e00e | | Load 0x0,0xe
037f 1854 | T | Execute Package,Field_Execute,Field_Number 0x54
0380 e004 | | Load 0x0,0x4
0381 1b4d | M | Execute Package,Field_Read,Field_Number 0x4d
0382 03b6 | | Declare_Variable Access,By_Allocation,With_Value
0383 00da | | Load_Top At_Offset_2
0384 2a05 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
0385 783b |x; | Jump 0x3c1
0386 e5ff | | Load 0x2,-0x1
0387 00d8 | | Load_Top At_Offset_0
0388 e00e | | Load 0x0,0xe
0389 1b42 | B | Execute Package,Field_Read,Field_Number 0x42
038a 0260 | ` | Execute Discrete,In_Type
038b 7008 |p | Jump_Nonzero 0x394
038c 00d8 | | Load_Top At_Offset_0
038d e00e | | Load 0x0,0xe
038e 1b43 | C | Execute Package,Field_Read,Field_Number 0x43
038f 0260 | ` | Execute Discrete,In_Type
0390 7019 |p | Jump_Nonzero 0x3aa
0391 0f22 | " | Execute_Immediate Equal,0x22
0392 702e |p. | Jump_Nonzero 0x3c1
0393 7819 |x | Jump 0x3ad
0394 00d1 | | Pop_Control Pop_Count_1
0395 e004 | | Load 0x0,0x4
0396 1b8b | | Execute Package,Field_Read,Field_Number 0x8b
0397 e5ff | | Load 0x2,-0x1
0398 e00e | | Load 0x0,0xe
0399 1b42 | B | Execute Package,Field_Read,Field_Number 0x42
039a 00d9 | | Load_Top At_Offset_1
039b 00d0 | | Action Swap_Control
039c 0260 | ` | Execute Discrete,In_Type
039d 7001 |p | Jump_Nonzero 0x39f
039e 0801 | | Execute_Immediate Raise,0x1
039f e5fe | | Load 0x2,-0x2
03a0 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
03a1 8217 | | Call 0x1,0x17
03a2 e00e | | Load 0x0,0xe
03a3 1852 | R | Execute Package,Field_Execute,Field_Number 0x52
03a4 e004 | | Load 0x0,0x4
03a5 1b4d | M | Execute Package,Field_Read,Field_Number 0x4d
03a6 03b6 | | Declare_Variable Access,By_Allocation,With_Value
03a7 00da | | Load_Top At_Offset_2
03a8 2a05 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
03a9 7817 |x | Jump 0x3c1
03aa 00d1 | | Pop_Control Pop_Count_1
03ab 8403 | | Call 0x2,0x3
03ac 7814 |x | Jump 0x3c1
03ad e004 | | Load 0x0,0x4
03ae 1b8b | | Execute Package,Field_Read,Field_Number 0x8b
03af e5ff | | Load 0x2,-0x1
03b0 e00e | | Load 0x0,0xe
03b1 1b41 | A | Execute Package,Field_Read,Field_Number 0x41
03b2 00d9 | | Load_Top At_Offset_1
03b3 00d0 | | Action Swap_Control
03b4 0260 | ` | Execute Discrete,In_Type
03b5 7001 |p | Jump_Nonzero 0x3b7
03b6 0801 | | Execute_Immediate Raise,0x1
03b7 e5fe | | Load 0x2,-0x2
03b8 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
03b9 8217 | | Call 0x1,0x17
03ba e00e | | Load 0x0,0xe
03bb 1853 | S | Execute Package,Field_Execute,Field_Number 0x53
03bc e004 | | Load 0x0,0x4
03bd 1b4d | M | Execute Package,Field_Read,Field_Number 0x4d
03be 03b6 | | Declare_Variable Access,By_Allocation,With_Value
03bf 00da | | Load_Top At_Offset_2
03c0 2a05 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
03c1 00d9 | | Load_Top At_Offset_1
03c2 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
03c3 701f |p | Jump_Nonzero 0x3e3
03c4 4800 |H | Short_Literal 0x0
03c5 4800 |H | Short_Literal 0x0
03c6 4801 |H | Short_Literal 0x1
03c7 0092 04e1 | | Action Push_String_Extended,0x4e1 ; "Requirements_Initialization ("
03c9 e5ff | | Load 0x2,-0x1
03ca e005 | | Load 0x0,0x5
03cb 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29
03cc 011c | | Execute Any,Convert_Unchecked
03cd 1c01 | | Execute_Immediate Run_Utility,0x1
03ce 01cc | | Execute Vector,Catenate
03cf 0092 04e2 | | Action Push_String_Extended,0x4e2 ; ", "
03d1 01cc | | Execute Vector,Catenate
03d2 e5fe | | Load 0x2,-0x2
03d3 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
03d4 e004 | | Load 0x0,0x4
03d5 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
03d6 011c | | Execute Any,Convert_Unchecked
03d7 1c01 | | Execute_Immediate Run_Utility,0x1
03d8 01cc | | Execute Vector,Catenate
03d9 0092 04dd | | Action Push_String_Extended,0x4dd ; ") is undefined"
03db 01cc | | Execute Vector,Catenate
03dc e004 | | Load 0x0,0x4
03dd 1818 | | Execute Package,Field_Execute,Field_Number 0x18
03de e004 | | Load 0x0,0x4
03df 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
03e0 e004 | | Load 0x0,0x4
03e1 1b90 | | Execute Package,Field_Read,Field_Number 0x90
03e2 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
03e3 00d9 | | Load_Top At_Offset_1
03e4 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
03e5 0227 | ' | Execute Access,All_Reference
03e6 01db | | Execute Vector,Length
03e7 00da | | Load_Top At_Offset_2
03e8 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
03e9 00d9 | | Load_Top At_Offset_1
03ea 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
03eb 0000 0000 | | .BLANK 0000[0x5]
03f0 ; --------------------------------------------------------------------------------------
03f0 ; SUBPROGRAM
03f0 ; --------------------------------------------------------------------------------------
03f0 03fb | | .CONST 0x03fb ; Address of begin
03f1 0004 | | .CONST 0x0004 ; Address of exception handler
03f2 0002 | | .CONST 0x0002 ; Number of locals
03f3 INIT_03f0:
03f3 4801 |H | Short_Literal 0x1
03f4 e5ff | | Load 0x2,-0x1
03f5 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
03f6 4800 |H | Short_Literal 0x0
03f7 4807 |H | Short_Literal 0x7
03f8 e004 | | Load 0x0,0x4
03f9 1b8a | | Execute Package,Field_Read,Field_Number 0x8a
03fa 8007 | | Call 0x0,0x7
03fb BODY_03f0:
03fb 00d8 | | Load_Top At_Offset_0
03fc 01dd | | Execute Vector,First
03fd 0a01 | | Execute_Immediate Plus,0x1
03fe 00d8 | | Load_Top At_Offset_0
03ff 00e2 | | Load_Encached Integer_Cache
0400 0260 | ` | Execute Discrete,In_Type
0401 7001 |p | Jump_Nonzero 0x403
0402 0801 | | Execute_Immediate Raise,0x1
0403 00d9 | | Load_Top At_Offset_1
0404 01dc | | Execute Vector,Last
0405 00da | | Load_Top At_Offset_2
0406 01cf | | Execute Vector,Slice_Read
0407 e004 | | Load 0x0,0x4
0408 1b4c | L | Execute Package,Field_Read,Field_Number 0x4c
0409 03b6 | | Declare_Variable Access,By_Allocation,With_Value
040a e402 | | Load 0x2,0x2
040b 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
040c 4501 |E | Exit_Suprogram New_Top_Offset 0x1
040d 0000 0000 | | .XXX[0x3]
040f 0000 | |
0410 ; --------------------------------------------------------------------------------------
0410 ; SUBPROGRAM
0410 ; --------------------------------------------------------------------------------------
0410 0427 | ' | .CONST 0x0427 ; Address of begin
0411 0004 | | .CONST 0x0004 ; Address of exception handler
0412 0006 | | .CONST 0x0006 ; Number of locals
0413 INIT_0410:
0413 e001 | | Load 0x0,0x1
0414 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0415 02c7 | | Declare_Variable Any
0416 00d8 | | Load_Top At_Offset_0
0417 1c00 | | Execute_Immediate Run_Utility,0x0
0418 e001 | | Load 0x0,0x1
0419 1b0d | | Execute Package,Field_Read,Field_Number 0xd
041a 02c7 | | Declare_Variable Any
041b 00d8 | | Load_Top At_Offset_0
041c 1c00 | | Execute_Immediate Run_Utility,0x0
041d e00a | | Load 0x0,0xa
041e 1b16 | | Execute Package,Field_Read,Field_Number 0x16
041f 02c7 | | Declare_Variable Any
0420 00d8 | | Load_Top At_Offset_0
0421 1c00 | | Execute_Immediate Run_Utility,0x0
0422 e013 | | Load 0x0,0x13
0423 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0424 e013 | | Load 0x0,0x13
0425 1b1e | | Execute Package,Field_Read,Field_Number 0x1e
0426 0322 | " | Declare_Variable Record
0427 BODY_0410:
0427 e013 | | Load 0x0,0x13
0428 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0429 e013 | | Load 0x0,0x13
042a 181a | | Execute Package,Field_Execute,Field_Number 0x1a
042b 003a | : | Store_Top Access,At_Offset_2
042c 4801 |H | Short_Literal 0x1
042d 0092 04e3 | | Action Push_String_Extended,0x4e3 ; "<ALL_WORLDS>"
042f 4801 |H | Short_Literal 0x1
0430 e5ff | | Load 0x2,-0x1
0431 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
0432 e00c | | Load 0x0,0xc
0433 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0434 e001 | | Load 0x0,0x1
0435 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51
0436 c602 | | Store 0x3,0x2
0437 00cf | | Action Mark_Auxiliary
0438 7817 |x | Jump 0x450
0439 e602 | | Load 0x3,0x2
043a e001 | | Load 0x0,0x1
043b 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
043c c603 | | Store 0x3,0x3
043d e004 | | Load 0x0,0x4
043e 1b8a | | Execute Package,Field_Read,Field_Number 0x8a
043f e603 | | Load 0x3,0x3
0440 e00a | | Load 0x0,0xa
0441 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b
0442 c604 | | Store 0x3,0x4
0443 00db | | Load_Top At_Offset_3
0444 e00a | | Load 0x0,0xa
0445 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0446 7004 |p | Jump_Nonzero 0x44b
0447 00da | | Load_Top At_Offset_2
0448 e604 | | Load 0x3,0x4
0449 8014 | | Call 0x0,0x14
044a 003b | ; | Store_Top Access,At_Offset_3
044b e602 | | Load 0x3,0x2
044c e001 | | Load 0x0,0x1
044d 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
044e c602 | | Store 0x3,0x2
044f 00c9 | | Action Pop_Auxiliary_Loop
0450 e602 | | Load 0x3,0x2
0451 e001 | | Load 0x0,0x1
0452 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
0453 6fe5 |o | Jump_Zero 0x439
0454 00ce | | Action Pop_Auxiliary
0455 00d9 | | Load_Top At_Offset_1
0456 e013 | | Load 0x0,0x13
0457 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0458 e402 | | Load 0x2,0x2
0459 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
045a 4801 |H | Short_Literal 0x1
045b e402 | | Load 0x2,0x2
045c 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
045d e004 | | Load 0x0,0x4
045e 1b4c | L | Execute Package,Field_Read,Field_Number 0x4c
045f 03ba | | Declare_Variable Access,By_Allocation,With_Constraint
0460 00d8 | | Load_Top At_Offset_0
0461 0227 | ' | Execute Access,All_Reference
0462 1c00 | | Execute_Immediate Run_Utility,0x0
0463 e402 | | Load 0x2,0x2
0464 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
0465 00d8 | | Load_Top At_Offset_0
0466 00da | | Load_Top At_Offset_2
0467 e013 | | Load 0x0,0x13
0468 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0469 00d1 | | Pop_Control Pop_Count_1
046a 00cf | | Action Mark_Auxiliary
046b e402 | | Load 0x2,0x2
046c 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
046d 0227 | ' | Execute Access,All_Reference
046e 01d9 | | Execute Vector,Reverse_Bounds
046f 0263 | c | Execute Discrete,Above_Bound
0470 700e |p | Jump_Nonzero 0x47f
0471 00db | | Load_Top At_Offset_3
0472 e013 | | Load 0x0,0x13
0473 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0474 00d9 | | Load_Top At_Offset_1
0475 e402 | | Load 0x2,0x2
0476 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
0477 0227 | ' | Execute Access,All_Reference
0478 01d6 | | Execute Vector,Field_Write
0479 00db | | Load_Top At_Offset_3
047a e013 | | Load 0x0,0x13
047b 1820 | | Execute Package,Field_Execute,Field_Number 0x20
047c 00d1 | | Pop_Control Pop_Count_1
047d 00c8 | | Action Pop_Auxiliary_Range
047e 3ff2 |? | Loop_Increasing 0x471
047f 00ce | | Action Pop_Auxiliary
0480 e402 | | Load 0x2,0x2
0481 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
0482 0229 | ) | Execute Access,All_Read
0483 00d8 | | Load_Top At_Offset_0
0484 e015 | | Load 0x0,0x15
0485 e016 | | Load 0x0,0x16
0486 e017 | | Load 0x0,0x17
0487 a018 | | Store_Unchecked 0x0,0x18
0488 a019 | | Store_Unchecked 0x0,0x19
0489 801a | | Call 0x0,0x1a
048a 4501 |E | Exit_Suprogram New_Top_Offset 0x1
048b 0000 0000 | | .BLANK 0000[0x5]
0490 ; --------------------------------------------------------------------------------------
0490 ; SUBPROGRAM
0490 ; --------------------------------------------------------------------------------------
0490 04ad | | .CONST 0x04ad ; Address of begin
0491 0004 | | .CONST 0x0004 ; Address of exception handler
0492 0005 | | .CONST 0x0005 ; Number of locals
0493 INIT_0490:
0493 e001 | | Load 0x0,0x1
0494 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0495 02c7 | | Declare_Variable Any
0496 e001 | | Load 0x0,0x1
0497 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
0498 a602 | | Store_Unchecked 0x3,0x2
0499 e001 | | Load 0x0,0x1
049a 1b19 | | Execute Package,Field_Read,Field_Number 0x19
049b 02c7 | | Declare_Variable Any
049c e001 | | Load 0x0,0x1
049d 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
049e a603 | | Store_Unchecked 0x3,0x3
049f e004 | | Load 0x0,0x4
04a0 1b91 | | Execute Package,Field_Read,Field_Number 0x91
04a1 02ff | | Declare_Variable Variant_Record
04a2 00d8 | | Load_Top At_Offset_0
04a3 1c00 | | Execute_Immediate Run_Utility,0x0
04a4 e004 | | Load 0x0,0x4
04a5 1b8b | | Execute Package,Field_Read,Field_Number 0x8b
04a6 e5ff | | Load 0x2,-0x1
04a7 e00e | | Load 0x0,0xe
04a8 1876 | v | Execute Package,Field_Execute,Field_Number 0x76
04a9 e5fe | | Load 0x2,-0x2
04aa 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
04ab e00e | | Load 0x0,0xe
04ac 1853 | S | Execute Package,Field_Execute,Field_Number 0x53
04ad BODY_0490:
04ad 00cf | | Action Mark_Auxiliary
04ae 00d9 | | Load_Top At_Offset_1
04af 01d9 | | Execute Vector,Reverse_Bounds
04b0 0263 | c | Execute Discrete,Above_Bound
04b1 700b |p | Jump_Nonzero 0x4bd
04b2 e602 | | Load 0x3,0x2
04b3 00d9 | | Load_Top At_Offset_1
04b4 e605 | | Load 0x3,0x5
04b5 01d7 | | Execute Vector,Field_Read
04b6 e00e | | Load 0x0,0xe
04b7 184c | L | Execute Package,Field_Execute,Field_Number 0x4c
04b8 e001 | | Load 0x0,0x1
04b9 181f | | Execute Package,Field_Execute,Field_Number 0x1f
04ba c602 | | Store 0x3,0x2
04bb 00c8 | | Action Pop_Auxiliary_Range
04bc 3ff5 |? | Loop_Increasing 0x4b2
04bd 00ce | | Action Pop_Auxiliary
04be 00da | | Load_Top At_Offset_2
04bf 0120 | | Execute Any,Is_Value
04c0 6803 |h | Jump_Zero 0x4c4
04c1 e001 | | Load 0x0,0x1
04c2 1b19 | | Execute Package,Field_Read,Field_Number 0x19
04c3 7801 |x | Jump 0x4c5
04c4 00da | | Load_Top At_Offset_2
04c5 e602 | | Load 0x3,0x2
04c6 1d11 | | Execute_Immediate Reference_Lex_1,0x11
04c7 1d12 | | Execute_Immediate Reference_Lex_1,0x12
04c8 e001 | | Load 0x0,0x1
04c9 1820 | | Execute Package,Field_Execute,Field_Number 0x20
04ca c603 | | Store 0x3,0x3
04cb 00da | | Load_Top At_Offset_2
04cc e00b | | Load 0x0,0xb
04cd 1814 | | Execute Package,Field_Execute,Field_Number 0x14
04ce e004 | | Load 0x0,0x4
04cf 1b4b | K | Execute Package,Field_Read,Field_Number 0x4b
04d0 03b6 | | Declare_Variable Access,By_Allocation,With_Value
04d1 00da | | Load_Top At_Offset_2
04d2 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
04d3 00d9 | | Load_Top At_Offset_1
04d4 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
04d5 0227 | ' | Execute Access,All_Reference
04d6 01db | | Execute Vector,Length
04d7 00da | | Load_Top At_Offset_2
04d8 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
04d9 00d9 | | Load_Top At_Offset_1
04da 00cb | | Action Pop_Block_With_Result
04db 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
04dc ; --------------------------------------------------------------------------------------
04dc ; STRING TABLE
04dc ; --------------------------------------------------------------------------------------
04dc 0012 | | .STRTAB 0x0012->0x04e5 ; "Initialization ("
04dd 0020 | | .STRTAB 0x0020->0x04ed ; ") is undefined"
04de 002c | , | .STRTAB 0x002c->0x04f4 ; "*** The list initialization requested here is unimplemented."
04df 0066 | f | .STRTAB 0x0066->0x0512 ; "Undefined Initialization_Kinds =>"
04e0 0085 | | .STRTAB 0x0085->0x0522 ; " has been detected"
04e1 0095 | | .STRTAB 0x0095->0x052b ; "Requirements_Initialization ("
04e2 00b0 | | .STRTAB 0x00b0->0x053a ; ", "
04e3 00b0 | | .STRTAB 0x00b0->0x053b ; "<ALL_WORLDS>"
04e4 00ba | | .STREND 0x00ba->0x0541
04e5 496e 6974 |Init| .STRTAB_STRINGS
0541 0000 0000 | | .BLANK 0000[0x7]
0548 ; --------------------------------------------------------------------------------------
0548 ; Debug Table
0548 ; --------------------------------------------------------------------------------------
0548 0004 0012 | | .DEBUG4 0x0004,0x0012,0xfc72,0x0000,0x0001,0x0000
054e 0000 0000 | | .BLANK 0000[0x26]
0574 8014 0000 | | .XXX[0xb]
0576 0000 0000 | |
0578 0100 0000 | |
057a 0880 0000 | |
057c 0004 0000 | |
057e 0028 | ( |
057f 0000 0000 | | .BLANK 0000[0x2e]
05ad 1002 8000 | | .XXX[0xb]
05af 0000 0000 | |
05b1 0020 0000 | |
05b3 0110 0000 | |
05b5 0000 8000 | |
05b7 0005 | |
05b8 0000 0000 | | .BLANK 0000[0x48]