|
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: 5120 (0x1400)
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 0920 | | .CONST 0x0920 ; 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 8006 | | .CONST 0x8006 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 007c | | | .CONST 0x007c ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0017 | | .CONST 0x0017 ; Number of locals
000b INIT_0008:
000b 00c4 | | Action Make_Default
000c 00c4 | | Action Make_Default
000d 00c4 | | Action Make_Default
000e 00c4 | | Action Make_Default
000f 00c4 | | Action Make_Default
0010 00c4 | | Action Make_Default
0011 029a 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call,Visible,Unelaborated
0013 c212 | | Store 0x1,0x12
0014 4800 |H | Short_Literal 0x0
0015 0093 084b | K| push_full_address INIT_0848
0017 02a0 | | Declare_Subprogram Null_Subprogram
0018 038f | | Declare_Type Package,Defined,Visible
0019 0386 | | Declare_Variable Package,Visible
001a c20d | | Store 0x1,0xd
001b 4800 |H | Short_Literal 0x0
001c 0093 07ab | | push_full_address INIT_07a8
001e 02a0 | | Declare_Subprogram Null_Subprogram
001f 038f | | Declare_Type Package,Defined,Visible
0020 0386 | | Declare_Variable Package,Visible
0021 c20e | | Store 0x1,0xe
0022 4800 |H | Short_Literal 0x0
0023 0093 03c3 | | push_full_address INIT_03c0
0025 02a0 | | Declare_Subprogram Null_Subprogram
0026 038f | | Declare_Type Package,Defined,Visible
0027 0386 | | Declare_Variable Package,Visible
0028 c20f | | Store 0x1,0xf
0029 4800 |H | Short_Literal 0x0
002a 0093 0173 | s| push_full_address INIT_0170
002c 02a0 | | Declare_Subprogram Null_Subprogram
002d 038f | | Declare_Type Package,Defined,Visible
002e 0386 | | Declare_Variable Package,Visible
002f c210 | | Store 0x1,0x10
0030 4800 |H | Short_Literal 0x0
0031 0093 0123 | #| push_full_address INIT_0120
0033 02a0 | | Declare_Subprogram Null_Subprogram
0034 038f | | Declare_Type Package,Defined,Visible
0035 0386 | | Declare_Variable Package,Visible
0036 c211 | | Store 0x1,0x11
0037 00bf | | Action Accept_Activation
0038 e001 | | Load 0x0,0x1
0039 e002 | | Load 0x0,0x2
003a 4814 |H | Short_Literal 0x14
003b e003 | | Load 0x0,0x3
003c 0387 | | Declare_Variable Package
003d 00d8 | | Load_Top At_Offset_0
003e 020f | | Execute Module,Activate
003f 0092 0876 | v| Action Push_String_Extended,0x876 ; "N/A"
0041 0092 0877 | w| Action Push_String_Extended,0x877 ; "TBD"
0043 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0044 00c7 | | Action Elaborate_Subprogram
0045 029d 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call
0047 029d 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call
0049 e20d | | Load 0x1,0xd
004a 020f | | Execute Module,Activate
004b e004 | | Load 0x0,0x4
004c e005 | | Load 0x0,0x5
004d e213 | | Load 0x1,0x13
004e 1d17 | | Execute_Immediate Reference_Lex_1,0x17
004f e006 | | Load 0x0,0x6
0050 e007 | | Load 0x0,0x7
0051 e008 | | Load 0x0,0x8
0052 4807 |H | Short_Literal 0x7
0053 e20e | | Load 0x1,0xe
0054 020e | | Execute Module,Augment_Imports
0055 e20e | | Load 0x1,0xe
0056 020f | | Execute Module,Activate
0057 e009 | | Load 0x0,0x9
0058 00b6 | | Action Make_Scope
0059 e00a | | Load 0x0,0xa
005a e00b | | Load 0x0,0xb
005b e213 | | Load 0x1,0x13
005c 1d17 | | Execute_Immediate Reference_Lex_1,0x17
005d e00c | | Load 0x0,0xc
005e 1d16 | | Execute_Immediate Reference_Lex_1,0x16
005f e00d | | Load 0x0,0xd
0060 e00e | | Load 0x0,0xe
0061 e008 | | Load 0x0,0x8
0062 e00f | | Load 0x0,0xf
0063 e010 | | Load 0x0,0x10
0064 e006 | | Load 0x0,0x6
0065 e004 | | Load 0x0,0x4
0066 480f |H | Short_Literal 0xf
0067 e20f | | Load 0x1,0xf
0068 020e | | Execute Module,Augment_Imports
0069 e20f | | Load 0x1,0xf
006a 020f | | Execute Module,Activate
006b e011 | | Load 0x0,0x11
006c e213 | | Load 0x1,0x13
006d 1d17 | | Execute_Immediate Reference_Lex_1,0x17
006e e008 | | Load 0x0,0x8
006f 4804 |H | Short_Literal 0x4
0070 e210 | | Load 0x1,0x10
0071 020e | | Execute Module,Augment_Imports
0072 e210 | | Load 0x1,0x10
0073 020f | | Execute Module,Activate
0074 e007 | | Load 0x0,0x7
0075 e006 | | Load 0x0,0x6
0076 e008 | | Load 0x0,0x8
0077 4803 |H | Short_Literal 0x3
0078 e211 | | Load 0x1,0x11
0079 020e | | Execute Module,Augment_Imports
007a e211 | | Load 0x1,0x11
007b 020f | | Execute Module,Activate
007c BODY_0008:
007c 00bc | | Action Signal_Activated
007d 00bb | | Action Signal_Completion
007e 0000 0000 | | .XXX[0x2]
0080 ; --------------------------------------------------------------------------------------
0080 ; SUBPROGRAM
0080 ; --------------------------------------------------------------------------------------
0080 008b | | .CONST 0x008b ; Address of begin
0081 0004 | | .CONST 0x0004 ; Address of exception handler
0082 0002 | | .CONST 0x0002 ; Number of locals
0083 INIT_0080:
0083 00da | | Load_Top At_Offset_2
0084 01da | | Execute Vector,Bounds
0085 00e9 | | Load_Encached String_Cache
0086 035b | [ | Declare_Type Array,Constrained
0087 0337 | 7 | Declare_Variable Array
0088 00db | | Load_Top At_Offset_3
0089 00d9 | | Load_Top At_Offset_1
008a 01d4 | | Execute Vector,Structure_Write
008b BODY_0080:
008b 00cf | | Action Mark_Auxiliary
008c 00d9 | | Load_Top At_Offset_1
008d 01d9 | | Execute Vector,Reverse_Bounds
008e 0263 | c | Execute Discrete,Above_Bound
008f 700c |p | Jump_Nonzero 0x9c
0090 00d8 | | Load_Top At_Offset_0
0091 e402 | | Load 0x2,0x2
0092 01d7 | | Execute Vector,Field_Read
0093 0f5f | _ | Execute_Immediate Equal,0x5f
0094 7001 |p | Jump_Nonzero 0x96
0095 7804 |x | Jump 0x9a
0096 4820 |H | Short_Literal 0x20
0097 00d9 | | Load_Top At_Offset_1
0098 e402 | | Load 0x2,0x2
0099 01d6 | | Execute Vector,Field_Write
009a 00c8 | | Action Pop_Auxiliary_Range
009b 3ff4 |? | Loop_Increasing 0x90
009c 00ce | | Action Pop_Auxiliary
009d 00d8 | | Load_Top At_Offset_0
009e e00e | | Load 0x0,0xe
009f 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
00a0 00e9 | | Load_Encached String_Cache
00a1 01c6 | | Execute Vector,Convert_To_Formal
00a2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00a3 0000 0000 | | .BLANK 0000[0x5]
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00ab | | .CONST 0x00ab ; Address of begin
00a9 0004 | | .CONST 0x0004 ; Address of exception handler
00aa 0001 | | .CONST 0x0001 ; Number of locals
00ab BODY_00a8:
00ab INIT_00a8:
00ab 00da | | Load_Top At_Offset_2
00ac e009 | | Load 0x0,0x9
00ad 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
00ae 4606 |F | Jump_Case 0x7
00af 7806 |x | Jump 0xb6 ; case 0x0
00b0 780b |x | Jump 0xbc ; case 0x1
00b1 7808 |x | Jump 0xba ; case 0x2
00b2 7809 |x | Jump 0xbc ; case 0x3
00b3 7808 |x | Jump 0xbc ; case 0x4
00b4 7807 |x | Jump 0xbc ; case 0x5
00b5 7809 |x | Jump 0xbf ; case 0x6
00b6 00da | | Load_Top At_Offset_2
00b7 e00a | | Load 0x0,0xa
00b8 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00b9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00ba 00da | | Load_Top At_Offset_2
00bb 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00bc e009 | | Load 0x0,0x9
00bd 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00be 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00bf 00da | | Load_Top At_Offset_2
00c0 e009 | | Load 0x0,0x9
00c1 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00c2 4602 |F | Jump_Case 0x3
00c3 7809 |x | Jump 0xcd ; case 0x0
00c4 7801 |x | Jump 0xc6 ; case 0x1
00c5 780b |x | Jump 0xd1 ; case 0x2
00c6 4801 |H | Short_Literal 0x1
00c7 00db | | Load_Top At_Offset_3
00c8 e009 | | Load 0x0,0x9
00c9 1850 | P | Execute Package,Field_Execute,Field_Number 0x50
00ca e00b | | Load 0x0,0xb
00cb 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
00cc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00cd 00da | | Load_Top At_Offset_2
00ce e00b | | Load 0x0,0xb
00cf 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
00d0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00d1 00da | | Load_Top At_Offset_2
00d2 e00f | | Load 0x0,0xf
00d3 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00d4 4612 |F | Jump_Case 0x13
00d5 7812 |x | Jump 0xe8 ; case 0x0
00d6 7818 |x | Jump 0xef ; case 0x1
00d7 7810 |x | Jump 0xe8 ; case 0x2
00d8 780f |x | Jump 0xe8 ; case 0x3
00d9 780e |x | Jump 0xe8 ; case 0x4
00da 7814 |x | Jump 0xef ; case 0x5
00db 7813 |x | Jump 0xef ; case 0x6
00dc 7812 |x | Jump 0xef ; case 0x7
00dd 7811 |x | Jump 0xef ; case 0x8
00de 7810 |x | Jump 0xef ; case 0x9
00df 780f |x | Jump 0xef ; case 0xa
00e0 780e |x | Jump 0xef ; case 0xb
00e1 780d |x | Jump 0xef ; case 0xc
00e2 7805 |x | Jump 0xe8 ; case 0xd
00e3 7804 |x | Jump 0xe8 ; case 0xe
00e4 7803 |x | Jump 0xe8 ; case 0xf
00e5 7809 |x | Jump 0xef ; case 0x10
00e6 7808 |x | Jump 0xef ; case 0x11
00e7 7807 |x | Jump 0xef ; case 0x12
00e8 4801 |H | Short_Literal 0x1
00e9 00db | | Load_Top At_Offset_3
00ea e009 | | Load 0x0,0x9
00eb 1850 | P | Execute Package,Field_Execute,Field_Number 0x50
00ec e00b | | Load 0x0,0xb
00ed 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
00ee 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00ef 00da | | Load_Top At_Offset_2
00f0 e00c | | Load 0x0,0xc
00f1 1819 | | Execute Package,Field_Execute,Field_Number 0x19
00f2 0f0c | | Execute_Immediate Equal,0xc
00f3 7004 |p | Jump_Nonzero 0xf8
00f4 00da | | Load_Top At_Offset_2
00f5 e00c | | Load 0x0,0xc
00f6 181a | | Execute Package,Field_Execute,Field_Number 0x1a
00f7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00f8 e009 | | Load 0x0,0x9
00f9 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00fa 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00fb 0000 0000 | | .BLANK 0000[0x5]
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0113 | | .CONST 0x0113 ; Address of begin
0101 0004 | | .CONST 0x0004 ; Address of exception handler
0102 0003 | | .CONST 0x0003 ; Number of locals
0103 INIT_0100:
0103 00da | | Load_Top At_Offset_2
0104 0007 | | Action Break_Optional
0105 00d8 | | Load_Top At_Offset_0
0106 e213 | | Load 0x1,0x13
0107 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0108 e5fe | | Load 0x2,-0x2
0109 0272 | r | Execute Discrete,Minus
010a 00d8 | | Load_Top At_Offset_0
010b 00e3 | | Load_Encached Natural_Cache
010c 0260 | ` | Execute Discrete,In_Type
010d 7001 |p | Jump_Nonzero 0x10f
010e 0801 | | Execute_Immediate Raise,0x1
010f 4801 |H | Short_Literal 0x1
0110 00da | | Load_Top At_Offset_2
0111 e213 | | Load 0x1,0x13
0112 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0113 BODY_0100:
0113 00d9 | | Load_Top At_Offset_1
0114 e213 | | Load 0x1,0x13
0115 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0116 003a | : | Store_Top Access,At_Offset_2
0117 00d8 | | Load_Top At_Offset_0
0118 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0119 0000 0000 | | .BLANK 0000[0x7]
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 0128 | ( | .CONST 0x0128 ; Address of begin
0121 0004 | | .CONST 0x0004 ; Address of exception handler
0122 000d | | .CONST 0x000d ; Number of locals
0123 INIT_0120:
0123 029a 0133 | 3| Declare_Subprogram INIT_0130,For_Outer_Call,Visible,Unelaborated
0125 00bf | | Action Accept_Activation
0126 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0127 00c7 | | Action Elaborate_Subprogram
0128 BODY_0120:
0128 00bc | | Action Signal_Activated
0129 00bb | | Action Signal_Completion
012a 0000 0000 | | .BLANK 0000[0x6]
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 013d | = | .CONST 0x013d ; Address of begin
0131 0004 | | .CONST 0x0004 ; Address of exception handler
0132 0003 | | .CONST 0x0003 ; Number of locals
0133 INIT_0130:
0133 e001 | | Load 0x0,0x1
0134 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0135 02c7 | | Declare_Variable Any
0136 00d8 | | Load_Top At_Offset_0
0137 1c00 | | Execute_Immediate Run_Utility,0x0
0138 e002 | | Load 0x0,0x2
0139 1b0e | | Execute Package,Field_Read,Field_Number 0xe
013a 02c7 | | Declare_Variable Any
013b 00d8 | | Load_Top At_Offset_0
013c 1c00 | | Execute_Immediate Run_Utility,0x0
013d BODY_0130:
013d 00d8 | | Load_Top At_Offset_0
013e 00da | | Load_Top At_Offset_2
013f 4802 |H | Short_Literal 0x2
0140 e5ff | | Load 0x2,-0x1
0141 e001 | | Load 0x0,0x1
0142 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0143 c402 | | Store 0x2,0x2
0144 c403 | | Store 0x2,0x3
0145 e5fe | | Load 0x2,-0x2
0146 01db | | Execute Vector,Length
0147 7001 |p | Jump_Nonzero 0x149
0148 7819 |x | Jump 0x162
0149 e5fe | | Load 0x2,-0x2
014a 01dd | | Execute Vector,First
014b e5fe | | Load 0x2,-0x2
014c 01d7 | | Execute Vector,Field_Read
014d 4830 |H0 | Short_Literal 0x30
014e 4839 |H9 | Short_Literal 0x39
014f 0262 | b | Execute Discrete,In_Range
0150 6809 |h | Jump_Zero 0x15a
0151 00d8 | | Load_Top At_Offset_0
0152 00da | | Load_Top At_Offset_2
0153 e5fe | | Load 0x2,-0x2
0154 4801 |H | Short_Literal 0x1
0155 e001 | | Load 0x0,0x1
0156 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0157 c402 | | Store 0x2,0x2
0158 c403 | | Store 0x2,0x3
0159 7808 |x | Jump 0x162
015a 00d8 | | Load_Top At_Offset_0
015b 00da | | Load_Top At_Offset_2
015c e5fe | | Load 0x2,-0x2
015d 4800 |H | Short_Literal 0x0
015e e001 | | Load 0x0,0x1
015f 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0160 c402 | | Store 0x2,0x2
0161 c403 | | Store 0x2,0x3
0162 e003 | | Load 0x0,0x3
0163 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0164 e003 | | Load 0x0,0x3
0165 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0166 00db | | Load_Top At_Offset_3
0167 e003 | | Load 0x0,0x3
0168 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0169 e003 | | Load 0x0,0x3
016a 1815 | | Execute Package,Field_Execute,Field_Number 0x15
016b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
016c 0000 0000 | | .BLANK 0000[0x4]
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 0198 | | .CONST 0x0198 ; Address of begin
0171 0004 | | .CONST 0x0004 ; Address of exception handler
0172 0015 | | .CONST 0x0015 ; Number of locals
0173 INIT_0170:
0173 029a 01a3 | | Declare_Subprogram INIT_01a0,For_Outer_Call,Visible,Unelaborated
0175 029a 01bb | | Declare_Subprogram INIT_01b8,For_Outer_Call,Visible,Unelaborated
0177 029a 01f3 | | Declare_Subprogram INIT_01f0,For_Outer_Call,Visible,Unelaborated
0179 029a 0213 | | Declare_Subprogram INIT_0210,For_Outer_Call,Visible,Unelaborated
017b 029a 0253 | S| Declare_Subprogram INIT_0250,For_Outer_Call,Visible,Unelaborated
017d 029a 0273 | s| Declare_Subprogram INIT_0270,For_Outer_Call,Visible,Unelaborated
017f 029a 02c3 | | Declare_Subprogram INIT_02c0,For_Outer_Call,Visible,Unelaborated
0181 029a 0323 | #| Declare_Subprogram INIT_0320,For_Outer_Call,Visible,Unelaborated
0183 029a 036b | k| Declare_Subprogram INIT_0368,For_Outer_Call,Visible,Unelaborated
0185 00bf | | Action Accept_Activation
0186 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0187 00c7 | | Action Elaborate_Subprogram
0188 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0189 00c7 | | Action Elaborate_Subprogram
018a 1d0f | | Execute_Immediate Reference_Lex_1,0xf
018b 00c7 | | Action Elaborate_Subprogram
018c 1d10 | | Execute_Immediate Reference_Lex_1,0x10
018d 00c7 | | Action Elaborate_Subprogram
018e 1d11 | | Execute_Immediate Reference_Lex_1,0x11
018f 00c7 | | Action Elaborate_Subprogram
0190 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0191 00c7 | | Action Elaborate_Subprogram
0192 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0193 00c7 | | Action Elaborate_Subprogram
0194 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0195 00c7 | | Action Elaborate_Subprogram
0196 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0197 00c7 | | Action Elaborate_Subprogram
0198 BODY_0170:
0198 00bc | | Action Signal_Activated
0199 00bb | | Action Signal_Completion
019a 0000 0000 | | .BLANK 0000[0x6]
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01a8 | | .CONST 0x01a8 ; Address of begin
01a1 0004 | | .CONST 0x0004 ; Address of exception handler
01a2 0003 | | .CONST 0x0003 ; Number of locals
01a3 INIT_01a0:
01a3 e001 | | Load 0x0,0x1
01a4 1b20 | | Execute Package,Field_Read,Field_Number 0x20
01a5 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b
01a6 0322 | " | Declare_Variable Record
01a7 00e1 | | Load_Encached Boolean_Cache
01a8 BODY_01a0:
01a8 00e1 | | Load_Encached Boolean_Cache
01a9 00da | | Load_Top At_Offset_2
01aa 4803 |H | Short_Literal 0x3
01ab e5fe | | Load 0x2,-0x2
01ac e001 | | Load 0x0,0x1
01ad 1b20 | | Execute Package,Field_Read,Field_Number 0x20
01ae 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
01af 00d1 | | Pop_Control Pop_Count_1
01b0 0059 | Y | Store_Top Discrete,At_Offset_1
01b1 00d9 | | Load_Top At_Offset_1
01b2 e5ff | | Load 0x2,-0x1
01b3 820e | | Call 0x1,0xe
01b4 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01b5 0000 0000 | | .XXX[0x3]
01b7 0000 | |
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; --------------------------------------------------------------------------------------
01b8 01c5 | | .CONST 0x01c5 ; Address of begin
01b9 0004 | | .CONST 0x0004 ; Address of exception handler
01ba 0003 | | .CONST 0x0003 ; Number of locals
01bb INIT_01b8:
01bb e001 | | Load 0x0,0x1
01bc 1b20 | | Execute Package,Field_Read,Field_Number 0x20
01bd 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b
01be 0322 | " | Declare_Variable Record
01bf e5fe | | Load 0x2,-0x2
01c0 00d9 | | Load_Top At_Offset_1
01c1 017d | } | Execute Record,Structure_Write
01c2 e001 | | Load 0x0,0x1
01c3 1b20 | | Execute Package,Field_Read,Field_Number 0x20
01c4 1b1d | | Execute Package,Field_Read,Field_Number 0x1d
01c5 BODY_01b8:
01c5 00d9 | | Load_Top At_Offset_1
01c6 e001 | | Load 0x0,0x1
01c7 1b20 | | Execute Package,Field_Read,Field_Number 0x20
01c8 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33
01c9 00d1 | | Pop_Control Pop_Count_1
01ca 00cf | | Action Mark_Auxiliary
01cb 781a |x | Jump 0x1e6
01cc 00da | | Load_Top At_Offset_2
01cd e001 | | Load 0x0,0x1
01ce 1b20 | | Execute Package,Field_Read,Field_Number 0x20
01cf 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
01d0 0032 | 2 | Store_Top Heap_Access,At_Offset_2
01d1 00d9 | | Load_Top At_Offset_1
01d2 e001 | | Load 0x0,0x1
01d3 1b20 | | Execute Package,Field_Read,Field_Number 0x20
01d4 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
01d5 0f01 | | Execute_Immediate Equal,0x1
01d6 6809 |h | Jump_Zero 0x1e0
01d7 00d9 | | Load_Top At_Offset_1
01d8 e001 | | Load 0x0,0x1
01d9 1b20 | | Execute Package,Field_Read,Field_Number 0x20
01da 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
01db e5ff | | Load 0x2,-0x1
01dc 027f | | Execute Discrete,Equal
01dd 6802 |h | Jump_Zero 0x1e0
01de 00d9 | | Load_Top At_Offset_1
01df 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01e0 00da | | Load_Top At_Offset_2
01e1 e001 | | Load 0x0,0x1
01e2 1b20 | | Execute Package,Field_Read,Field_Number 0x20
01e3 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
01e4 00d1 | | Pop_Control Pop_Count_1
01e5 00c9 | | Action Pop_Auxiliary_Loop
01e6 00da | | Load_Top At_Offset_2
01e7 e001 | | Load 0x0,0x1
01e8 1b20 | | Execute Package,Field_Read,Field_Number 0x20
01e9 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
01ea 6fe1 |o | Jump_Zero 0x1cc
01eb 00ce | | Action Pop_Auxiliary
01ec e001 | | Load 0x0,0x1
01ed 1b20 | | Execute Package,Field_Read,Field_Number 0x20
01ee 1b1d | | Execute Package,Field_Read,Field_Number 0x1d
01ef 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01f0 ; --------------------------------------------------------------------------------------
01f0 ; SUBPROGRAM
01f0 ; --------------------------------------------------------------------------------------
01f0 01f3 | | .CONST 0x01f3 ; Address of begin
01f1 0004 | | .CONST 0x0004 ; Address of exception handler
01f2 0001 | | .CONST 0x0001 ; Number of locals
01f3 BODY_01f0:
01f3 INIT_01f0:
01f3 00da | | Load_Top At_Offset_2
01f4 e001 | | Load 0x0,0x1
01f5 1b20 | | Execute Package,Field_Read,Field_Number 0x20
01f6 181f | | Execute Package,Field_Execute,Field_Number 0x1f
01f7 6804 |h | Jump_Zero 0x1fc
01f8 00db | | Load_Top At_Offset_3
01f9 0335 | 5 | Declare_Variable Array,Duplicate
01fa 00cd | | Action Spare6_Action
01fb 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01fc 00da | | Load_Top At_Offset_2
01fd e001 | | Load 0x0,0x1
01fe 1b20 | | Execute Package,Field_Read,Field_Number 0x20
01ff 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0200 0f01 | | Execute_Immediate Equal,0x1
0201 6809 |h | Jump_Zero 0x20b
0202 00da | | Load_Top At_Offset_2
0203 e001 | | Load 0x0,0x1
0204 1b20 | | Execute Package,Field_Read,Field_Number 0x20
0205 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
0206 e001 | | Load 0x0,0x1
0207 1b20 | | Execute Package,Field_Read,Field_Number 0x20
0208 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
0209 181b | | Execute Package,Field_Execute,Field_Number 0x1b
020a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
020b 00da | | Load_Top At_Offset_2
020c e001 | | Load 0x0,0x1
020d 1b20 | | Execute Package,Field_Read,Field_Number 0x20
020e 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
020f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0210 ; --------------------------------------------------------------------------------------
0210 ; SUBPROGRAM
0210 ; --------------------------------------------------------------------------------------
0210 021c | | .CONST 0x021c ; Address of begin
0211 0004 | | .CONST 0x0004 ; Address of exception handler
0212 0003 | | .CONST 0x0003 ; Number of locals
0213 INIT_0210:
0213 e001 | | Load 0x0,0x1
0214 1b20 | | Execute Package,Field_Read,Field_Number 0x20
0215 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b
0216 0322 | " | Declare_Variable Record
0217 00db | | Load_Top At_Offset_3
0218 00d9 | | Load_Top At_Offset_1
0219 017d | } | Execute Record,Structure_Write
021a e002 | | Load 0x0,0x2
021b 1b11 | | Execute Package,Field_Read,Field_Number 0x11
021c BODY_0210:
021c 00d9 | | Load_Top At_Offset_1
021d e001 | | Load 0x0,0x1
021e 1b20 | | Execute Package,Field_Read,Field_Number 0x20
021f 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
0220 6804 |h | Jump_Zero 0x225
0221 e5fe | | Load 0x2,-0x2
0222 0335 | 5 | Declare_Variable Array,Duplicate
0223 00cd | | Action Spare6_Action
0224 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0225 00cf | | Action Mark_Auxiliary
0226 7812 |x | Jump 0x239
0227 00d9 | | Load_Top At_Offset_1
0228 00ea | | Load_Encached Null_String_Cache
0229 e402 | | Load 0x2,0x2
022a e001 | | Load 0x0,0x1
022b 1b20 | | Execute Package,Field_Read,Field_Number 0x20
022c 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
022d 820f | | Call 0x1,0xf
022e e5fd | | Load 0x2,-0x3
022f 01cc | | Execute Vector,Catenate
0230 e002 | | Load 0x0,0x2
0231 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0232 003a | : | Store_Top Access,At_Offset_2
0233 00da | | Load_Top At_Offset_2
0234 e001 | | Load 0x0,0x1
0235 1b20 | | Execute Package,Field_Read,Field_Number 0x20
0236 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
0237 00d1 | | Pop_Control Pop_Count_1
0238 00c9 | | Action Pop_Auxiliary_Loop
0239 00da | | Load_Top At_Offset_2
023a e001 | | Load 0x0,0x1
023b 1b20 | | Execute Package,Field_Read,Field_Number 0x20
023c 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
023d 6fe9 |o | Jump_Zero 0x227
023e 00ce | | Action Pop_Auxiliary
023f e5fd | | Load 0x2,-0x3
0240 01db | | Execute Vector,Length
0241 00d8 | | Load_Top At_Offset_0
0242 00e3 | | Load_Encached Natural_Cache
0243 0260 | ` | Execute Discrete,In_Type
0244 7001 |p | Jump_Nonzero 0x246
0245 0801 | | Execute_Immediate Raise,0x1
0246 00d9 | | Load_Top At_Offset_1
0247 8003 | | Call 0x0,0x3
0248 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0249 0000 0000 | | .BLANK 0000[0x7]
0250 ; --------------------------------------------------------------------------------------
0250 ; SUBPROGRAM
0250 ; --------------------------------------------------------------------------------------
0250 0253 | S | .CONST 0x0253 ; Address of begin
0251 0004 | | .CONST 0x0004 ; Address of exception handler
0252 0001 | | .CONST 0x0001 ; Number of locals
0253 BODY_0250:
0253 INIT_0250:
0253 00da | | Load_Top At_Offset_2
0254 e001 | | Load 0x0,0x1
0255 1b20 | | Execute Package,Field_Read,Field_Number 0x20
0256 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0257 700f |p | Jump_Nonzero 0x267
0258 e004 | | Load 0x0,0x4
0259 1b0e | | Execute Package,Field_Read,Field_Number 0xe
025a 00db | | Load_Top At_Offset_3
025b e001 | | Load 0x0,0x1
025c 1b20 | | Execute Package,Field_Read,Field_Number 0x20
025d 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
025e e004 | | Load 0x0,0x4
025f 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0260 e5ff | | Load 0x2,-0x1
0261 e001 | | Load 0x0,0x1
0262 1b20 | | Execute Package,Field_Read,Field_Number 0x20
0263 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0264 e004 | | Load 0x0,0x4
0265 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0266 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0267 e004 | | Load 0x0,0x4
0268 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0269 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
026a 0000 0000 | | .BLANK 0000[0x6]
0270 ; --------------------------------------------------------------------------------------
0270 ; SUBPROGRAM
0270 ; --------------------------------------------------------------------------------------
0270 0282 | | .CONST 0x0282 ; Address of begin
0271 0004 | | .CONST 0x0004 ; Address of exception handler
0272 0004 | | .CONST 0x0004 ; Number of locals
0273 INIT_0270:
0273 e001 | | Load 0x0,0x1
0274 1b20 | | Execute Package,Field_Read,Field_Number 0x20
0275 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b
0276 0322 | " | Declare_Variable Record
0277 00db | | Load_Top At_Offset_3
0278 00d9 | | Load_Top At_Offset_1
0279 017d | } | Execute Record,Structure_Write
027a e001 | | Load 0x0,0x1
027b 1b20 | | Execute Package,Field_Read,Field_Number 0x20
027c 1b1d | | Execute Package,Field_Read,Field_Number 0x1d
027d e004 | | Load 0x0,0x4
027e 1b12 | | Execute Package,Field_Read,Field_Number 0x12
027f 02c7 | | Declare_Variable Any
0280 00d8 | | Load_Top At_Offset_0
0281 1c00 | | Execute_Immediate Run_Utility,0x0
0282 BODY_0270:
0282 00da | | Load_Top At_Offset_2
0283 e001 | | Load 0x0,0x1
0284 1b20 | | Execute Package,Field_Read,Field_Number 0x20
0285 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33
0286 00d1 | | Pop_Control Pop_Count_1
0287 00da | | Load_Top At_Offset_2
0288 e001 | | Load 0x0,0x1
0289 1b20 | | Execute Package,Field_Read,Field_Number 0x20
028a 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
028b 702c |p, | Jump_Nonzero 0x2b8
028c e004 | | Load 0x0,0x4
028d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
028e e004 | | Load 0x0,0x4
028f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0290 e004 | | Load 0x0,0x4
0291 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0292 e004 | | Load 0x0,0x4
0293 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0294 e004 | | Load 0x0,0x4
0295 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0296 c404 | | Store 0x2,0x4
0297 00cf | | Action Mark_Auxiliary
0298 7817 |x | Jump 0x2b0
0299 00db | | Load_Top At_Offset_3
029a e001 | | Load 0x0,0x1
029b 1b20 | | Execute Package,Field_Read,Field_Number 0x20
029c 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
029d 0033 | 3 | Store_Top Heap_Access,At_Offset_3
029e 00d9 | | Load_Top At_Offset_1
029f 00db | | Load_Top At_Offset_3
02a0 e001 | | Load 0x0,0x1
02a1 1b20 | | Execute Package,Field_Read,Field_Number 0x20
02a2 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
02a3 e403 | | Load 0x2,0x3
02a4 e001 | | Load 0x0,0x1
02a5 1b20 | | Execute Package,Field_Read,Field_Number 0x20
02a6 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
02a7 e004 | | Load 0x0,0x4
02a8 1818 | | Execute Package,Field_Execute,Field_Number 0x18
02a9 c404 | | Store 0x2,0x4
02aa 00db | | Load_Top At_Offset_3
02ab e001 | | Load 0x0,0x1
02ac 1b20 | | Execute Package,Field_Read,Field_Number 0x20
02ad 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
02ae 00d1 | | Pop_Control Pop_Count_1
02af 00c9 | | Action Pop_Auxiliary_Loop
02b0 00db | | Load_Top At_Offset_3
02b1 e001 | | Load 0x0,0x1
02b2 1b20 | | Execute Package,Field_Read,Field_Number 0x20
02b3 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
02b4 6fe4 |o | Jump_Zero 0x299
02b5 00ce | | Action Pop_Auxiliary
02b6 00d8 | | Load_Top At_Offset_0
02b7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02b8 e004 | | Load 0x0,0x4
02b9 1b13 | | Execute Package,Field_Read,Field_Number 0x13
02ba 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02bb 0000 0000 | | .BLANK 0000[0x5]
02c0 ; --------------------------------------------------------------------------------------
02c0 ; SUBPROGRAM
02c0 ; --------------------------------------------------------------------------------------
02c0 02d3 | | .CONST 0x02d3 ; Address of begin
02c1 0004 | | .CONST 0x0004 ; Address of exception handler
02c2 0004 | | .CONST 0x0004 ; Number of locals
02c3 INIT_02c0:
02c3 e001 | | Load 0x0,0x1
02c4 1b20 | | Execute Package,Field_Read,Field_Number 0x20
02c5 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
02c6 1b13 | | Execute Package,Field_Read,Field_Number 0x13
02c7 02c7 | | Declare_Variable Any
02c8 00d8 | | Load_Top At_Offset_0
02c9 1c00 | | Execute_Immediate Run_Utility,0x0
02ca e001 | | Load 0x0,0x1
02cb 1b20 | | Execute Package,Field_Read,Field_Number 0x20
02cc 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
02cd 1b16 | | Execute Package,Field_Read,Field_Number 0x16
02ce 02c7 | | Declare_Variable Any
02cf 00d8 | | Load_Top At_Offset_0
02d0 1c00 | | Execute_Immediate Run_Utility,0x0
02d1 e002 | | Load 0x0,0x2
02d2 1b11 | | Execute Package,Field_Read,Field_Number 0x11
02d3 BODY_02c0:
02d3 e5ff | | Load 0x2,-0x1
02d4 e001 | | Load 0x0,0x1
02d5 1b20 | | Execute Package,Field_Read,Field_Number 0x20
02d6 181f | | Execute Package,Field_Execute,Field_Number 0x1f
02d7 7006 |p | Jump_Nonzero 0x2de
02d8 e5ff | | Load 0x2,-0x1
02d9 e001 | | Load 0x0,0x1
02da 1b20 | | Execute Package,Field_Read,Field_Number 0x20
02db 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
02dc 0f01 | | Execute_Immediate Equal,0x1
02dd 7004 |p | Jump_Nonzero 0x2e2
02de e5fe | | Load 0x2,-0x2
02df 0335 | 5 | Declare_Variable Array,Duplicate
02e0 00cd | | Action Spare6_Action
02e1 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
02e2 e5ff | | Load 0x2,-0x1
02e3 e001 | | Load 0x0,0x1
02e4 1b20 | | Execute Package,Field_Read,Field_Number 0x20
02e5 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
02e6 c402 | | Store 0x2,0x2
02e7 00da | | Load_Top At_Offset_2
02e8 e001 | | Load 0x0,0x1
02e9 1b20 | | Execute Package,Field_Read,Field_Number 0x20
02ea 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
02eb 1815 | | Execute Package,Field_Execute,Field_Number 0x15
02ec 6804 |h | Jump_Zero 0x2f1
02ed e5fe | | Load 0x2,-0x2
02ee 0335 | 5 | Declare_Variable Array,Duplicate
02ef 00cd | | Action Spare6_Action
02f0 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
02f1 00da | | Load_Top At_Offset_2
02f2 e001 | | Load 0x0,0x1
02f3 1b20 | | Execute Package,Field_Read,Field_Number 0x20
02f4 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
02f5 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
02f6 c403 | | Store 0x2,0x3
02f7 00cf | | Action Mark_Auxiliary
02f8 7812 |x | Jump 0x30b
02f9 00d9 | | Load_Top At_Offset_1
02fa 00db | | Load_Top At_Offset_3
02fb e001 | | Load 0x0,0x1
02fc 1b20 | | Execute Package,Field_Read,Field_Number 0x20
02fd 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
02fe 183a | : | Execute Package,Field_Execute,Field_Number 0x3a
02ff e5fd | | Load 0x2,-0x3
0300 01cc | | Execute Vector,Catenate
0301 e002 | | Load 0x0,0x2
0302 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0303 003a | : | Store_Top Access,At_Offset_2
0304 00da | | Load_Top At_Offset_2
0305 e001 | | Load 0x0,0x1
0306 1b20 | | Execute Package,Field_Read,Field_Number 0x20
0307 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
0308 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
0309 c403 | | Store 0x2,0x3
030a 00c9 | | Action Pop_Auxiliary_Loop
030b 00da | | Load_Top At_Offset_2
030c e001 | | Load 0x0,0x1
030d 1b20 | | Execute Package,Field_Read,Field_Number 0x20
030e 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
030f 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
0310 6fe8 |o | Jump_Zero 0x2f9
0311 00ce | | Action Pop_Auxiliary
0312 e5fd | | Load 0x2,-0x3
0313 01db | | Execute Vector,Length
0314 00d8 | | Load_Top At_Offset_0
0315 00e3 | | Load_Encached Natural_Cache
0316 0260 | ` | Execute Discrete,In_Type
0317 7001 |p | Jump_Nonzero 0x319
0318 0801 | | Execute_Immediate Raise,0x1
0319 00d9 | | Load_Top At_Offset_1
031a 8003 | | Call 0x0,0x3
031b 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
031c 0000 0000 | | .BLANK 0000[0x4]
0320 ; --------------------------------------------------------------------------------------
0320 ; SUBPROGRAM
0320 ; --------------------------------------------------------------------------------------
0320 032c | , | .CONST 0x032c ; Address of begin
0321 0004 | | .CONST 0x0004 ; Address of exception handler
0322 0003 | | .CONST 0x0003 ; Number of locals
0323 INIT_0320:
0323 e001 | | Load 0x0,0x1
0324 1b20 | | Execute Package,Field_Read,Field_Number 0x20
0325 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
0326 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0327 02c7 | | Declare_Variable Any
0328 00db | | Load_Top At_Offset_3
0329 a402 | | Store_Unchecked 0x2,0x2
032a e002 | | Load 0x0,0x2
032b 1b11 | | Execute Package,Field_Read,Field_Number 0x11
032c BODY_0320:
032c e5ff | | Load 0x2,-0x1
032d e001 | | Load 0x0,0x1
032e 1b20 | | Execute Package,Field_Read,Field_Number 0x20
032f 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
0330 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0331 012f | / | Execute Any,Equal
0332 6804 |h | Jump_Zero 0x337
0333 e5fe | | Load 0x2,-0x2
0334 0335 | 5 | Declare_Variable Array,Duplicate
0335 00cd | | Action Spare6_Action
0336 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0337 00d9 | | Load_Top At_Offset_1
0338 e001 | | Load 0x0,0x1
0339 1b20 | | Execute Package,Field_Read,Field_Number 0x20
033a 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
033b 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
033c c402 | | Store 0x2,0x2
033d 00cf | | Action Mark_Auxiliary
033e 7812 |x | Jump 0x351
033f 00d9 | | Load_Top At_Offset_1
0340 00db | | Load_Top At_Offset_3
0341 e001 | | Load 0x0,0x1
0342 1b20 | | Execute Package,Field_Read,Field_Number 0x20
0343 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
0344 183a | : | Execute Package,Field_Execute,Field_Number 0x3a
0345 e5fd | | Load 0x2,-0x3
0346 01cc | | Execute Vector,Catenate
0347 e002 | | Load 0x0,0x2
0348 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0349 003a | : | Store_Top Access,At_Offset_2
034a 00da | | Load_Top At_Offset_2
034b e001 | | Load 0x0,0x1
034c 1b20 | | Execute Package,Field_Read,Field_Number 0x20
034d 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
034e 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
034f c402 | | Store 0x2,0x2
0350 00c9 | | Action Pop_Auxiliary_Loop
0351 00da | | Load_Top At_Offset_2
0352 e001 | | Load 0x0,0x1
0353 1b20 | | Execute Package,Field_Read,Field_Number 0x20
0354 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
0355 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
0356 6fe8 |o | Jump_Zero 0x33f
0357 00ce | | Action Pop_Auxiliary
0358 e5fd | | Load 0x2,-0x3
0359 01db | | Execute Vector,Length
035a 00d8 | | Load_Top At_Offset_0
035b 00e3 | | Load_Encached Natural_Cache
035c 0260 | ` | Execute Discrete,In_Type
035d 7001 |p | Jump_Nonzero 0x35f
035e 0801 | | Execute_Immediate Raise,0x1
035f 00d9 | | Load_Top At_Offset_1
0360 8003 | | Call 0x0,0x3
0361 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0362 0000 0000 | | .BLANK 0000[0x6]
0368 ; --------------------------------------------------------------------------------------
0368 ; SUBPROGRAM
0368 ; --------------------------------------------------------------------------------------
0368 036d | m | .CONST 0x036d ; Address of begin
0369 0004 | | .CONST 0x0004 ; Address of exception handler
036a 0002 | | .CONST 0x0002 ; Number of locals
036b INIT_0368:
036b 029f 038b | | Declare_Subprogram INIT_0388,For_Call
036d BODY_0368:
036d 00db | | Load_Top At_Offset_3
036e 01db | | Execute Vector,Length
036f 0c03 | | Execute_Immediate Greater_Equal,0x3
0370 680d |h | Jump_Zero 0x37e
0371 00db | | Load_Top At_Offset_3
0372 01dd | | Execute Vector,First
0373 e5ff | | Load 0x2,-0x1
0374 01d7 | | Execute Vector,Field_Read
0375 0f28 | ( | Execute_Immediate Equal,0x28
0376 e5ff | | Load 0x2,-0x1
0377 01dc | | Execute Vector,Last
0378 e5ff | | Load 0x2,-0x1
0379 01d7 | | Execute Vector,Field_Read
037a 0f29 | ) | Execute_Immediate Equal,0x29
037b 0279 | y | Execute Discrete,And
037c 6801 |h | Jump_Zero 0x37e
037d 8402 | | Call 0x2,0x2
037e 00db | | Load_Top At_Offset_3
037f 0335 | 5 | Declare_Variable Array,Duplicate
0380 00cd | | Action Spare6_Action
0381 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0382 0000 0000 | | .BLANK 0000[0x6]
0388 ; --------------------------------------------------------------------------------------
0388 ; SUBPROGRAM
0388 ; --------------------------------------------------------------------------------------
0388 0397 | | .CONST 0x0397 ; Address of begin
0389 0004 | | .CONST 0x0004 ; Address of exception handler
038a 0002 | | .CONST 0x0002 ; Number of locals
038b INIT_0388:
038b 4801 |H | Short_Literal 0x1
038c e5ff | | Load 0x2,-0x1
038d 01db | | Execute Vector,Length
038e 0afe | | Execute_Immediate Plus,-0x2
038f 00d8 | | Load_Top At_Offset_0
0390 00e2 | | Load_Encached Integer_Cache
0391 0260 | ` | Execute Discrete,In_Type
0392 7001 |p | Jump_Nonzero 0x394
0393 0801 | | Execute_Immediate Raise,0x1
0394 00e9 | | Load_Encached String_Cache
0395 035b | [ | Declare_Type Array,Constrained
0396 0337 | 7 | Declare_Variable Array
0397 BODY_0388:
0397 e5ff | | Load 0x2,-0x1
0398 01dd | | Execute Vector,First
0399 0a01 | | Execute_Immediate Plus,0x1
039a 00d8 | | Load_Top At_Offset_0
039b 00e2 | | Load_Encached Integer_Cache
039c 0260 | ` | Execute Discrete,In_Type
039d 7001 |p | Jump_Nonzero 0x39f
039e 0801 | | Execute_Immediate Raise,0x1
039f e5ff | | Load 0x2,-0x1
03a0 01dc | | Execute Vector,Last
03a1 0aff | | Execute_Immediate Plus,-0x1
03a2 00d8 | | Load_Top At_Offset_0
03a3 00e2 | | Load_Encached Integer_Cache
03a4 0260 | ` | Execute Discrete,In_Type
03a5 7001 |p | Jump_Nonzero 0x3a7
03a6 0801 | | Execute_Immediate Raise,0x1
03a7 e5ff | | Load 0x2,-0x1
03a8 01cf | | Execute Vector,Slice_Read
03a9 4801 |H | Short_Literal 0x1
03aa e5ff | | Load 0x2,-0x1
03ab 01db | | Execute Vector,Length
03ac 0afe | | Execute_Immediate Plus,-0x2
03ad 00d8 | | Load_Top At_Offset_0
03ae 00e2 | | Load_Encached Integer_Cache
03af 0260 | ` | Execute Discrete,In_Type
03b0 7001 |p | Jump_Nonzero 0x3b2
03b1 0801 | | Execute_Immediate Raise,0x1
03b2 00db | | Load_Top At_Offset_3
03b3 01ce | | Execute Vector,Slice_Write
03b4 00d8 | | Load_Top At_Offset_0
03b5 00e9 | | Load_Encached String_Cache
03b6 01c6 | | Execute Vector,Convert_To_Formal
03b7 00cb | | Action Pop_Block_With_Result
03b8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03b9 0000 0000 | | .BLANK 0000[0x7]
03c0 ; --------------------------------------------------------------------------------------
03c0 ; SUBPROGRAM
03c0 ; --------------------------------------------------------------------------------------
03c0 0410 | | .CONST 0x0410 ; Address of begin
03c1 0004 | | .CONST 0x0004 ; Address of exception handler
03c2 001b | | .CONST 0x001b ; Number of locals
03c3 INIT_03c0:
03c3 029a 041b | | Declare_Subprogram INIT_0418,For_Outer_Call,Visible,Unelaborated
03c5 029a 0473 | s| Declare_Subprogram INIT_0470,For_Outer_Call,Visible,Unelaborated
03c7 029a 04ab | | Declare_Subprogram INIT_04a8,For_Outer_Call,Visible,Unelaborated
03c9 029a 0563 | c| Declare_Subprogram INIT_0560,For_Outer_Call,Visible,Unelaborated
03cb 029a 05bb | | Declare_Subprogram INIT_05b8,For_Outer_Call,Visible,Unelaborated
03cd 029a 05cb | | Declare_Subprogram INIT_05c8,For_Outer_Call,Visible,Unelaborated
03cf 029a 05db | | Declare_Subprogram INIT_05d8,For_Outer_Call,Visible,Unelaborated
03d1 00c4 | | Action Make_Default
03d2 00c4 | | Action Make_Default
03d3 00c4 | | Action Make_Default
03d4 00c4 | | Action Make_Default
03d5 00c4 | | Action Make_Default
03d6 00c4 | | Action Make_Default
03d7 00c4 | | Action Make_Default
03d8 00c4 | | Action Make_Default
03d9 029a 05eb | | Declare_Subprogram INIT_05e8,For_Outer_Call,Visible,Unelaborated
03db c217 | | Store 0x1,0x17
03dc 029a 063b | ;| Declare_Subprogram INIT_0638,For_Outer_Call,Visible,Unelaborated
03de c214 | | Store 0x1,0x14
03df 029a 0673 | s| Declare_Subprogram INIT_0670,For_Outer_Call,Visible,Unelaborated
03e1 c215 | | Store 0x1,0x15
03e2 029a 068b | | Declare_Subprogram INIT_0688,For_Outer_Call,Visible,Unelaborated
03e4 c216 | | Store 0x1,0x16
03e5 029a 06a3 | | Declare_Subprogram INIT_06a0,For_Outer_Call,Visible,Unelaborated
03e7 c218 | | Store 0x1,0x18
03e8 029a 06fb | | Declare_Subprogram INIT_06f8,For_Outer_Call,Visible,Unelaborated
03ea c219 | | Store 0x1,0x19
03eb 029a 0733 | 3| Declare_Subprogram INIT_0730,For_Outer_Call,Visible,Unelaborated
03ed c21a | | Store 0x1,0x1a
03ee 029a 0753 | S| Declare_Subprogram INIT_0750,For_Outer_Call,Visible,Unelaborated
03f0 c21b | | Store 0x1,0x1b
03f1 00bf | | Action Accept_Activation
03f2 1d0d | | Execute_Immediate Reference_Lex_1,0xd
03f3 00c7 | | Action Elaborate_Subprogram
03f4 1d0e | | Execute_Immediate Reference_Lex_1,0xe
03f5 00c7 | | Action Elaborate_Subprogram
03f6 1d0f | | Execute_Immediate Reference_Lex_1,0xf
03f7 00c7 | | Action Elaborate_Subprogram
03f8 1d10 | | Execute_Immediate Reference_Lex_1,0x10
03f9 00c7 | | Action Elaborate_Subprogram
03fa 1d11 | | Execute_Immediate Reference_Lex_1,0x11
03fb 00c7 | | Action Elaborate_Subprogram
03fc 1d12 | | Execute_Immediate Reference_Lex_1,0x12
03fd 00c7 | | Action Elaborate_Subprogram
03fe 1d13 | | Execute_Immediate Reference_Lex_1,0x13
03ff 00c7 | | Action Elaborate_Subprogram
0400 1d17 | | Execute_Immediate Reference_Lex_1,0x17
0401 00c7 | | Action Elaborate_Subprogram
0402 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0403 00c7 | | Action Elaborate_Subprogram
0404 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0405 00c7 | | Action Elaborate_Subprogram
0406 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0407 00c7 | | Action Elaborate_Subprogram
0408 1d19 | | Execute_Immediate Reference_Lex_1,0x19
0409 00c7 | | Action Elaborate_Subprogram
040a 1d18 | | Execute_Immediate Reference_Lex_1,0x18
040b 00c7 | | Action Elaborate_Subprogram
040c 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
040d 00c7 | | Action Elaborate_Subprogram
040e 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
040f 00c7 | | Action Elaborate_Subprogram
0410 BODY_03c0:
0410 00bc | | Action Signal_Activated
0411 00bb | | Action Signal_Completion
0412 0000 0000 | | .BLANK 0000[0x6]
0418 ; --------------------------------------------------------------------------------------
0418 ; SUBPROGRAM
0418 ; --------------------------------------------------------------------------------------
0418 0425 | % | .CONST 0x0425 ; Address of begin
0419 0004 | | .CONST 0x0004 ; Address of exception handler
041a 0003 | | .CONST 0x0003 ; Number of locals
041b INIT_0418:
041b e001 | | Load 0x0,0x1
041c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
041d 02c7 | | Declare_Variable Any
041e 00db | | Load_Top At_Offset_3
041f a402 | | Store_Unchecked 0x2,0x2
0420 e001 | | Load 0x0,0x1
0421 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0422 02c7 | | Declare_Variable Any
0423 00d8 | | Load_Top At_Offset_0
0424 1c00 | | Execute_Immediate Run_Utility,0x0
0425 BODY_0418:
0425 00cf | | Action Mark_Auxiliary
0426 00da | | Load_Top At_Offset_2
0427 e001 | | Load 0x0,0x1
0428 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
0429 4606 |F | Jump_Case 0x7
042a 781f |x | Jump 0x44a ; case 0x0
042b 7823 |x# | Jump 0x44f ; case 0x1
042c 7835 |x5 | Jump 0x462 ; case 0x2
042d 783a |x: | Jump 0x468 ; case 0x3
042e 7839 |x9 | Jump 0x468 ; case 0x4
042f 7838 |x8 | Jump 0x468 ; case 0x5
0430 7800 |x | Jump 0x431 ; case 0x6
0431 00da | | Load_Top At_Offset_2
0432 e001 | | Load 0x0,0x1
0433 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0434 4602 |F | Jump_Case 0x3
0435 7808 |x | Jump 0x43e ; case 0x0
0436 780d |x | Jump 0x444 ; case 0x1
0437 7800 |x | Jump 0x438 ; case 0x2
0438 00da | | Load_Top At_Offset_2
0439 e001 | | Load 0x0,0x1
043a 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
043b e002 | | Load 0x0,0x2
043c 1812 | | Execute Package,Field_Execute,Field_Number 0x12
043d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
043e 00da | | Load_Top At_Offset_2
043f e001 | | Load 0x0,0x1
0440 1853 | S | Execute Package,Field_Execute,Field_Number 0x53
0441 e002 | | Load 0x0,0x2
0442 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0443 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0444 4801 |H | Short_Literal 0x1
0445 00db | | Load_Top At_Offset_3
0446 e001 | | Load 0x0,0x1
0447 1850 | P | Execute Package,Field_Execute,Field_Number 0x50
0448 c402 | | Store 0x2,0x2
0449 7822 |x" | Jump 0x46c
044a 00da | | Load_Top At_Offset_2
044b e003 | | Load 0x0,0x3
044c 1813 | | Execute Package,Field_Execute,Field_Number 0x13
044d c402 | | Store 0x2,0x2
044e 781d |x | Jump 0x46c
044f 00d9 | | Load_Top At_Offset_1
0450 0120 | | Execute Any,Is_Value
0451 6803 |h | Jump_Zero 0x455
0452 e001 | | Load 0x0,0x1
0453 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0454 7801 |x | Jump 0x456
0455 00d9 | | Load_Top At_Offset_1
0456 00db | | Load_Top At_Offset_3
0457 e003 | | Load 0x0,0x3
0458 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0459 e001 | | Load 0x0,0x1
045a 181b | | Execute Package,Field_Execute,Field_Number 0x1b
045b c403 | | Store 0x2,0x3
045c 0092 0878 | x| Action Push_String_Extended,0x878 ; ", "
045e e5fe | | Load 0x2,-0x2
045f 00db | | Load_Top At_Offset_3
0460 820e | | Call 0x1,0xe
0461 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0462 00da | | Load_Top At_Offset_2
0463 e004 | | Load 0x0,0x4
0464 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0465 e002 | | Load 0x0,0x2
0466 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0467 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0468 e5fe | | Load 0x2,-0x2
0469 0335 | 5 | Declare_Variable Array,Duplicate
046a 00cd | | Action Spare6_Action
046b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
046c 00c9 | | Action Pop_Auxiliary_Loop
046d 7fb8 | | Jump 0x426
046e 0000 0000 | | .XXX[0x2]
0470 ; --------------------------------------------------------------------------------------
0470 ; SUBPROGRAM
0470 ; --------------------------------------------------------------------------------------
0470 047a | z | .CONST 0x047a ; Address of begin
0471 0004 | | .CONST 0x0004 ; Address of exception handler
0472 0003 | | .CONST 0x0003 ; Number of locals
0473 INIT_0470:
0473 e001 | | Load 0x0,0x1
0474 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0475 02c7 | | Declare_Variable Any
0476 00db | | Load_Top At_Offset_3
0477 a402 | | Store_Unchecked 0x2,0x2
0478 e005 | | Load 0x0,0x5
0479 1b11 | | Execute Package,Field_Read,Field_Number 0x11
047a BODY_0470:
047a 00d9 | | Load_Top At_Offset_1
047b e001 | | Load 0x0,0x1
047c 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
047d 6804 |h | Jump_Zero 0x482
047e e5fe | | Load 0x2,-0x2
047f 0335 | 5 | Declare_Variable Array,Duplicate
0480 00cd | | Action Spare6_Action
0481 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0482 00cf | | Action Mark_Auxiliary
0483 7810 |x | Jump 0x494
0484 00d9 | | Load_Top At_Offset_1
0485 00ea | | Load_Encached Null_String_Cache
0486 e402 | | Load 0x2,0x2
0487 e001 | | Load 0x0,0x1
0488 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0489 820d | | Call 0x1,0xd
048a e5fd | | Load 0x2,-0x3
048b 01cc | | Execute Vector,Catenate
048c e005 | | Load 0x0,0x5
048d 181d | | Execute Package,Field_Execute,Field_Number 0x1d
048e 003a | : | Store_Top Access,At_Offset_2
048f 00da | | Load_Top At_Offset_2
0490 e001 | | Load 0x0,0x1
0491 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0492 c402 | | Store 0x2,0x2
0493 00c9 | | Action Pop_Auxiliary_Loop
0494 00da | | Load_Top At_Offset_2
0495 e001 | | Load 0x0,0x1
0496 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
0497 6fec |o | Jump_Zero 0x484
0498 00ce | | Action Pop_Auxiliary
0499 e5fd | | Load 0x2,-0x3
049a 01db | | Execute Vector,Length
049b 00d8 | | Load_Top At_Offset_0
049c 00e3 | | Load_Encached Natural_Cache
049d 0260 | ` | Execute Discrete,In_Type
049e 7001 |p | Jump_Nonzero 0x4a0
049f 0801 | | Execute_Immediate Raise,0x1
04a0 00d9 | | Load_Top At_Offset_1
04a1 8006 | | Call 0x0,0x6
04a2 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
04a3 0000 0000 | | .BLANK 0000[0x5]
04a8 ; --------------------------------------------------------------------------------------
04a8 ; SUBPROGRAM
04a8 ; --------------------------------------------------------------------------------------
04a8 04b5 | | .CONST 0x04b5 ; Address of begin
04a9 0553 | S | .CONST 0x0553 ; Address of exception handler
04aa 0003 | | .CONST 0x0003 ; Number of locals
04ab INIT_04a8:
04ab e001 | | Load 0x0,0x1
04ac 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a
04ad 02c7 | | Declare_Variable Any
04ae 00d8 | | Load_Top At_Offset_0
04af 1c00 | | Execute_Immediate Run_Utility,0x0
04b0 e001 | | Load 0x0,0x1
04b1 1b4c | L | Execute Package,Field_Read,Field_Number 0x4c
04b2 02c7 | | Declare_Variable Any
04b3 00d8 | | Load_Top At_Offset_0
04b4 1c00 | | Execute_Immediate Run_Utility,0x0
04b5 BODY_04a8:
04b5 e5ff | | Load 0x2,-0x1
04b6 e001 | | Load 0x0,0x1
04b7 180f | | Execute Package,Field_Execute,Field_Number 0xf
04b8 6804 |h | Jump_Zero 0x4bd
04b9 e5fe | | Load 0x2,-0x2
04ba 0335 | 5 | Declare_Variable Array,Duplicate
04bb 00cd | | Action Spare6_Action
04bc 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
04bd e5ff | | Load 0x2,-0x1
04be e007 | | Load 0x0,0x7
04bf 1819 | | Execute Package,Field_Execute,Field_Number 0x19
04c0 460c |F | Jump_Case 0xd
04c1 7870 |xp | Jump 0x532 ; case 0x0
04c2 7872 |xr | Jump 0x535 ; case 0x1
04c3 7874 |xt | Jump 0x538 ; case 0x2
04c4 7876 |xv | Jump 0x53b ; case 0x3
04c5 7878 |xx | Jump 0x53e ; case 0x4
04c6 787a |xz | Jump 0x541 ; case 0x5
04c7 787c |x| | Jump 0x544 ; case 0x6
04c8 787e |x~ | Jump 0x547 ; case 0x7
04c9 7880 |x | Jump 0x54a ; case 0x8
04ca 7882 |x | Jump 0x54d ; case 0x9
04cb 7884 |x | Jump 0x550 ; case 0xa
04cc 7883 |x | Jump 0x550 ; case 0xb
04cd 7800 |x | Jump 0x4ce ; case 0xc
04ce e5ff | | Load 0x2,-0x1
04cf 8008 | | Call 0x0,0x8
04d0 c402 | | Store 0x2,0x2
04d1 00d9 | | Load_Top At_Offset_1
04d2 e004 | | Load 0x0,0x4
04d3 1816 | | Execute Package,Field_Execute,Field_Number 0x16
04d4 4626 |F& | Jump_Case 0x27
04d5 7828 |x( | Jump 0x4fe ; case 0x0
04d6 7827 |x' | Jump 0x4fe ; case 0x1
04d7 784f |xO | Jump 0x527 ; case 0x2
04d8 783c |x< | Jump 0x515 ; case 0x3
04d9 783e |x> | Jump 0x518 ; case 0x4
04da 7840 |x@ | Jump 0x51b ; case 0x5
04db 783f |x? | Jump 0x51b ; case 0x6
04dc 783e |x> | Jump 0x51b ; case 0x7
04dd 781e |x | Jump 0x4fc ; case 0x8
04de 781d |x | Jump 0x4fc ; case 0x9
04df 781c |x | Jump 0x4fc ; case 0xa
04e0 781b |x | Jump 0x4fc ; case 0xb
04e1 781a |x | Jump 0x4fc ; case 0xc
04e2 7819 |x | Jump 0x4fc ; case 0xd
04e3 783d |x= | Jump 0x521 ; case 0xe
04e4 783c |x< | Jump 0x521 ; case 0xf
04e5 783b |x; | Jump 0x521 ; case 0x10
04e6 783a |x: | Jump 0x521 ; case 0x11
04e7 7839 |x9 | Jump 0x521 ; case 0x12
04e8 7813 |x | Jump 0x4fc ; case 0x13
04e9 7812 |x | Jump 0x4fc ; case 0x14
04ea 7811 |x | Jump 0x4fc ; case 0x15
04eb 7810 |x | Jump 0x4fc ; case 0x16
04ec 780f |x | Jump 0x4fc ; case 0x17
04ed 780e |x | Jump 0x4fc ; case 0x18
04ee 780d |x | Jump 0x4fc ; case 0x19
04ef 780c |x | Jump 0x4fc ; case 0x1a
04f0 782a |x* | Jump 0x51b ; case 0x1b
04f1 780a |x | Jump 0x4fc ; case 0x1c
04f2 7809 |x | Jump 0x4fc ; case 0x1d
04f3 7808 |x | Jump 0x4fc ; case 0x1e
04f4 7807 |x | Jump 0x4fc ; case 0x1f
04f5 7806 |x | Jump 0x4fc ; case 0x20
04f6 7805 |x | Jump 0x4fc ; case 0x21
04f7 782f |x/ | Jump 0x527 ; case 0x22
04f8 7803 |x | Jump 0x4fc ; case 0x23
04f9 7804 |x | Jump 0x4fe ; case 0x24
04fa 7803 |x | Jump 0x4fe ; case 0x25
04fb 7800 |x | Jump 0x4fc ; case 0x26
04fc 00ea | | Load_Encached Null_String_Cache
04fd 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
04fe 4801 |H | Short_Literal 0x1
04ff 00da | | Load_Top At_Offset_2
0500 e004 | | Load 0x0,0x4
0501 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
0502 e001 | | Load 0x0,0x1
0503 1850 | P | Execute Package,Field_Execute,Field_Number 0x50
0504 c403 | | Store 0x2,0x3
0505 00d8 | | Load_Top At_Offset_0
0506 e001 | | Load 0x0,0x1
0507 180f | | Execute Package,Field_Execute,Field_Number 0xf
0508 7006 |p | Jump_Nonzero 0x50f
0509 00ea | | Load_Encached Null_String_Cache
050a 00d9 | | Load_Top At_Offset_1
050b e004 | | Load 0x0,0x4
050c 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
050d 820f | | Call 0x1,0xf
050e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
050f 00ea | | Load_Encached Null_String_Cache
0510 00da | | Load_Top At_Offset_2
0511 e004 | | Load 0x0,0x4
0512 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
0513 820f | | Call 0x1,0xf
0514 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0515 0092 0879 | y| Action Push_String_Extended,0x879 ; "Integer"
0517 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0518 0092 087a | z| Action Push_String_Extended,0x87a ; "Real"
051a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
051b 00ea | | Load_Encached Null_String_Cache
051c 00da | | Load_Top At_Offset_2
051d e004 | | Load 0x0,0x4
051e 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
051f 820f | | Call 0x1,0xf
0520 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0521 00ea | | Load_Encached Null_String_Cache
0522 00da | | Load_Top At_Offset_2
0523 e004 | | Load 0x0,0x4
0524 1846 | F | Execute Package,Field_Execute,Field_Number 0x46
0525 820f | | Call 0x1,0xf
0526 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0527 00ea | | Load_Encached Null_String_Cache
0528 4801 |H | Short_Literal 0x1
0529 00db | | Load_Top At_Offset_3
052a e004 | | Load 0x0,0x4
052b 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
052c e001 | | Load 0x0,0x1
052d 1850 | P | Execute Package,Field_Execute,Field_Number 0x50
052e e004 | | Load 0x0,0x4
052f 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
0530 820f | | Call 0x1,0xf
0531 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0532 0092 087b | {| Action Push_String_Extended,0x87b ; "Subtype"
0534 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0535 0092 087c | || Action Push_String_Extended,0x87c ; "Enumeration"
0537 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0538 0092 0879 | y| Action Push_String_Extended,0x879 ; "Integer"
053a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
053b 0092 087d | }| Action Push_String_Extended,0x87d ; "Float"
053d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
053e 0092 087e | ~| Action Push_String_Extended,0x87e ; "Fixed"
0540 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0541 0092 087f | | Action Push_String_Extended,0x87f ; "Array"
0543 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0544 0092 0880 | | Action Push_String_Extended,0x880 ; "Record"
0546 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0547 0092 0881 | | Action Push_String_Extended,0x881 ; "Access"
0549 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
054a 0092 0882 | | Action Push_String_Extended,0x882 ; "Derived"
054c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
054d 0092 0883 | | Action Push_String_Extended,0x883 ; "Task"
054f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0550 0092 0884 | | Action Push_String_Extended,0x884 ; "Private"
0552 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0553 TRAP_04a8:
0553 e001 | | Load 0x0,0x1
0554 1b59 | Y | Execute Package,Field_Read,Field_Number 0x59
0555 010f | | Execute Exception,Equal
0556 6804 |h | Jump_Zero 0x55b
0557 e5fe | | Load 0x2,-0x2
0558 0335 | 5 | Declare_Variable Array,Duplicate
0559 00cd | | Action Spare6_Action
055a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
055b 0100 | | Execute Exception,Raise
055c 0000 0000 | | .BLANK 0000[0x4]
0560 ; --------------------------------------------------------------------------------------
0560 ; SUBPROGRAM
0560 ; --------------------------------------------------------------------------------------
0560 056b | k | .CONST 0x056b ; Address of begin
0561 0004 | | .CONST 0x0004 ; Address of exception handler
0562 0003 | | .CONST 0x0003 ; Number of locals
0563 INIT_0560:
0563 e001 | | Load 0x0,0x1
0564 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0565 02c7 | | Declare_Variable Any
0566 00db | | Load_Top At_Offset_3
0567 8008 | | Call 0x0,0x8
0568 a402 | | Store_Unchecked 0x2,0x2
0569 029f 0783 | | Declare_Subprogram INIT_0780,For_Call
056b BODY_0560:
056b 00d9 | | Load_Top At_Offset_1
056c e004 | | Load 0x0,0x4
056d 1816 | | Execute Package,Field_Execute,Field_Number 0x16
056e 4626 |F& | Jump_Case 0x27
056f 783c |x< | Jump 0x5ac ; case 0x0
0570 783e |x> | Jump 0x5af ; case 0x1
0571 783d |x= | Jump 0x5af ; case 0x2
0572 783c |x< | Jump 0x5af ; case 0x3
0573 783b |x; | Jump 0x5af ; case 0x4
0574 7828 |x( | Jump 0x59d ; case 0x5
0575 7827 |x' | Jump 0x59d ; case 0x6
0576 7826 |x& | Jump 0x59d ; case 0x7
0577 7828 |x( | Jump 0x5a0 ; case 0x8
0578 781d |x | Jump 0x596 ; case 0x9
0579 7829 |x) | Jump 0x5a3 ; case 0xa
057a 781b |x | Jump 0x596 ; case 0xb
057b 782a |x* | Jump 0x5a6 ; case 0xc
057c 7819 |x | Jump 0x596 ; case 0xd
057d 7822 |x" | Jump 0x5a0 ; case 0xe
057e 7824 |x$ | Jump 0x5a3 ; case 0xf
057f 7826 |x& | Jump 0x5a6 ; case 0x10
0580 7815 |x | Jump 0x596 ; case 0x11
0581 7814 |x | Jump 0x596 ; case 0x12
0582 781d |x | Jump 0x5a0 ; case 0x13
0583 781f |x | Jump 0x5a3 ; case 0x14
0584 7821 |x! | Jump 0x5a6 ; case 0x15
0585 781a |x | Jump 0x5a0 ; case 0x16
0586 781c |x | Jump 0x5a3 ; case 0x17
0587 781e |x | Jump 0x5a6 ; case 0x18
0588 780d |x | Jump 0x596 ; case 0x19
0589 780c |x | Jump 0x596 ; case 0x1a
058a 780b |x | Jump 0x596 ; case 0x1b
058b 780a |x | Jump 0x596 ; case 0x1c
058c 7809 |x | Jump 0x596 ; case 0x1d
058d 7808 |x | Jump 0x596 ; case 0x1e
058e 7807 |x | Jump 0x596 ; case 0x1f
058f 7806 |x | Jump 0x596 ; case 0x20
0590 7805 |x | Jump 0x596 ; case 0x21
0591 7817 |x | Jump 0x5a9 ; case 0x22
0592 781f |x | Jump 0x5b2 ; case 0x23
0593 7806 |x | Jump 0x59a ; case 0x24
0594 7805 |x | Jump 0x59a ; case 0x25
0595 7800 |x | Jump 0x596 ; case 0x26
0596 e5fe | | Load 0x2,-0x2
0597 0335 | 5 | Declare_Variable Array,Duplicate
0598 00cd | | Action Spare6_Action
0599 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
059a 0092 0885 | | Action Push_String_Extended,0x885 ; "Component"
059c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
059d 0092 0886 | | Action Push_String_Extended,0x886 ; "Type"
059f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
05a0 0092 0887 | | Action Push_String_Extended,0x887 ; "Package"
05a2 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
05a3 0092 0888 | | Action Push_String_Extended,0x888 ; "Procedure"
05a5 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
05a6 0092 0889 | | Action Push_String_Extended,0x889 ; "Function"
05a8 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
05a9 0092 088a | | Action Push_String_Extended,0x88a ; "Parameter"
05ab 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
05ac 0092 088b | | Action Push_String_Extended,0x88b ; "Variable"
05ae 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
05af 0092 088c | | Action Push_String_Extended,0x88c ; "Constant"
05b1 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
05b2 8403 | | Call 0x2,0x3
05b3 0831 | 1 | Execute_Immediate Raise,0x31
05b4 0000 0000 | | .BLANK 0000[0x4]
05b8 ; --------------------------------------------------------------------------------------
05b8 ; SUBPROGRAM
05b8 ; --------------------------------------------------------------------------------------
05b8 05bb | | .CONST 0x05bb ; Address of begin
05b9 0004 | | .CONST 0x0004 ; Address of exception handler
05ba 0001 | | .CONST 0x0001 ; Number of locals
05bb BODY_05b8:
05bb INIT_05b8:
05bb 00db | | Load_Top At_Offset_3
05bc 00db | | Load_Top At_Offset_3
05bd 8008 | | Call 0x0,0x8
05be e009 | | Load 0x0,0x9
05bf 180f | | Execute Package,Field_Execute,Field_Number 0xf
05c0 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
05c1 0000 0000 | | .BLANK 0000[0x7]
05c8 ; --------------------------------------------------------------------------------------
05c8 ; SUBPROGRAM
05c8 ; --------------------------------------------------------------------------------------
05c8 05cb | | .CONST 0x05cb ; Address of begin
05c9 0004 | | .CONST 0x0004 ; Address of exception handler
05ca 0001 | | .CONST 0x0001 ; Number of locals
05cb BODY_05c8:
05cb INIT_05c8:
05cb 00db | | Load_Top At_Offset_3
05cc 00db | | Load_Top At_Offset_3
05cd 8008 | | Call 0x0,0x8
05ce e009 | | Load 0x0,0x9
05cf 180e | | Execute Package,Field_Execute,Field_Number 0xe
05d0 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
05d1 0000 0000 | | .BLANK 0000[0x7]
05d8 ; --------------------------------------------------------------------------------------
05d8 ; SUBPROGRAM
05d8 ; --------------------------------------------------------------------------------------
05d8 05db | | .CONST 0x05db ; Address of begin
05d9 0004 | | .CONST 0x0004 ; Address of exception handler
05da 0001 | | .CONST 0x0001 ; Number of locals
05db BODY_05d8:
05db INIT_05d8:
05db 00db | | Load_Top At_Offset_3
05dc 00db | | Load_Top At_Offset_3
05dd 8008 | | Call 0x0,0x8
05de e009 | | Load 0x0,0x9
05df 180d | | Execute Package,Field_Execute,Field_Number 0xd
05e0 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
05e1 0000 0000 | | .BLANK 0000[0x7]
05e8 ; --------------------------------------------------------------------------------------
05e8 ; SUBPROGRAM
05e8 ; --------------------------------------------------------------------------------------
05e8 05f0 | | .CONST 0x05f0 ; Address of begin
05e9 0004 | | .CONST 0x0004 ; Address of exception handler
05ea 0002 | | .CONST 0x0002 ; Number of locals
05eb INIT_05e8:
05eb e007 | | Load 0x0,0x7
05ec 1b13 | | Execute Package,Field_Read,Field_Number 0x13
05ed 02c7 | | Declare_Variable Any
05ee 00d8 | | Load_Top At_Offset_0
05ef 1c00 | | Execute_Immediate Run_Utility,0x0
05f0 BODY_05e8:
05f0 00db | | Load_Top At_Offset_3
05f1 e004 | | Load 0x0,0x4
05f2 1816 | | Execute Package,Field_Execute,Field_Number 0x16
05f3 4626 |F& | Jump_Case 0x27
05f4 782f |x/ | Jump 0x624 ; case 0x0
05f5 782e |x. | Jump 0x624 ; case 0x1
05f6 7832 |x2 | Jump 0x629 ; case 0x2
05f7 7826 |x& | Jump 0x61e ; case 0x3
05f8 7828 |x( | Jump 0x621 ; case 0x4
05f9 7821 |x! | Jump 0x61b ; case 0x5
05fa 7820 |x | Jump 0x61b ; case 0x6
05fb 781f |x | Jump 0x61b ; case 0x7
05fc 781e |x | Jump 0x61b ; case 0x8
05fd 781d |x | Jump 0x61b ; case 0x9
05fe 781c |x | Jump 0x61b ; case 0xa
05ff 781b |x | Jump 0x61b ; case 0xb
0600 782d |x- | Jump 0x62e ; case 0xc
0601 782c |x, | Jump 0x62e ; case 0xd
0602 7818 |x | Jump 0x61b ; case 0xe
0603 7817 |x | Jump 0x61b ; case 0xf
0604 7829 |x) | Jump 0x62e ; case 0x10
0605 7815 |x | Jump 0x61b ; case 0x11
0606 7814 |x | Jump 0x61b ; case 0x12
0607 7813 |x | Jump 0x61b ; case 0x13
0608 7812 |x | Jump 0x61b ; case 0x14
0609 7824 |x$ | Jump 0x62e ; case 0x15
060a 7810 |x | Jump 0x61b ; case 0x16
060b 780f |x | Jump 0x61b ; case 0x17
060c 7821 |x! | Jump 0x62e ; case 0x18
060d 780d |x | Jump 0x61b ; case 0x19
060e 780c |x | Jump 0x61b ; case 0x1a
060f 780b |x | Jump 0x61b ; case 0x1b
0610 780a |x | Jump 0x61b ; case 0x1c
0611 7809 |x | Jump 0x61b ; case 0x1d
0612 7808 |x | Jump 0x61b ; case 0x1e
0613 7807 |x | Jump 0x61b ; case 0x1f
0614 7806 |x | Jump 0x61b ; case 0x20
0615 7805 |x | Jump 0x61b ; case 0x21
0616 7812 |x | Jump 0x629 ; case 0x22
0617 7803 |x | Jump 0x61b ; case 0x23
0618 780b |x | Jump 0x624 ; case 0x24
0619 780a |x | Jump 0x624 ; case 0x25
061a 7800 |x | Jump 0x61b ; case 0x26
061b 0092 0876 | v| Action Push_String_Extended,0x876 ; "N/A"
061d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
061e 0092 088d | | Action Push_String_Extended,0x88d ; "Universal Integer"
0620 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0621 0092 088e | | Action Push_String_Extended,0x88e ; "Universal Real"
0623 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0624 00db | | Load_Top At_Offset_3
0625 e004 | | Load 0x0,0x4
0626 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
0627 c402 | | Store 0x2,0x2
0628 7809 |x | Jump 0x632
0629 00db | | Load_Top At_Offset_3
062a e004 | | Load 0x0,0x4
062b 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
062c c402 | | Store 0x2,0x2
062d 7804 |x | Jump 0x632
062e 00db | | Load_Top At_Offset_3
062f e004 | | Load 0x0,0x4
0630 1841 | A | Execute Package,Field_Execute,Field_Number 0x41
0631 c402 | | Store 0x2,0x2
0632 00ea | | Load_Encached Null_String_Cache
0633 00d9 | | Load_Top At_Offset_1
0634 820d | | Call 0x1,0xd
0635 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0636 0000 0000 | | .XXX[0x2]
0638 ; --------------------------------------------------------------------------------------
0638 ; SUBPROGRAM
0638 ; --------------------------------------------------------------------------------------
0638 0645 | E | .CONST 0x0645 ; Address of begin
0639 0004 | | .CONST 0x0004 ; Address of exception handler
063a 0003 | | .CONST 0x0003 ; Number of locals
063b INIT_0638:
063b e001 | | Load 0x0,0x1
063c 1b13 | | Execute Package,Field_Read,Field_Number 0x13
063d 02c7 | | Declare_Variable Any
063e 00d8 | | Load_Top At_Offset_0
063f 1c00 | | Execute_Immediate Run_Utility,0x0
0640 e001 | | Load 0x0,0x1
0641 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0642 02c7 | | Declare_Variable Any
0643 00d8 | | Load_Top At_Offset_0
0644 1c00 | | Execute_Immediate Run_Utility,0x0
0645 BODY_0638:
0645 e5ff | | Load 0x2,-0x1
0646 e007 | | Load 0x0,0x7
0647 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0648 0f01 | | Execute_Immediate Equal,0x1
0649 681f |h | Jump_Zero 0x669
064a e5ff | | Load 0x2,-0x1
064b e007 | | Load 0x0,0x7
064c 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f
064d c402 | | Store 0x2,0x2
064e 00d9 | | Load_Top At_Offset_1
064f e001 | | Load 0x0,0x1
0650 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0651 7017 |p | Jump_Nonzero 0x669
0652 00d9 | | Load_Top At_Offset_1
0653 e001 | | Load 0x0,0x1
0654 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0655 c403 | | Store 0x2,0x3
0656 00d9 | | Load_Top At_Offset_1
0657 e001 | | Load 0x0,0x1
0658 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0659 c402 | | Store 0x2,0x2
065a 00d9 | | Load_Top At_Offset_1
065b e001 | | Load 0x0,0x1
065c 1816 | | Execute Package,Field_Execute,Field_Number 0x16
065d 680b |h | Jump_Zero 0x669
065e 00d8 | | Load_Top At_Offset_0
065f e001 | | Load 0x0,0x1
0660 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
0661 e00a | | Load 0x0,0xa
0662 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0663 0092 0877 | w| Action Push_String_Extended,0x877 ; "TBD"
0665 01df | | Execute Vector,Equal
0666 6802 |h | Jump_Zero 0x669
0667 4801 |H | Short_Literal 0x1
0668 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0669 4800 |H | Short_Literal 0x0
066a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
066b 0000 0000 | | .BLANK 0000[0x5]
0670 ; --------------------------------------------------------------------------------------
0670 ; SUBPROGRAM
0670 ; --------------------------------------------------------------------------------------
0670 0673 | s | .CONST 0x0673 ; Address of begin
0671 0004 | | .CONST 0x0004 ; Address of exception handler
0672 0001 | | .CONST 0x0001 ; Number of locals
0673 BODY_0670:
0673 INIT_0670:
0673 00da | | Load_Top At_Offset_2
0674 e001 | | Load 0x0,0x1
0675 180f | | Execute Package,Field_Execute,Field_Number 0xf
0676 700a |p | Jump_Nonzero 0x681
0677 e00b | | Load 0x0,0xb
0678 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0679 e00b | | Load 0x0,0xb
067a 1b0e | | Execute Package,Field_Read,Field_Number 0xe
067b e00b | | Load 0x0,0xb
067c 1b10 | | Execute Package,Field_Read,Field_Number 0x10
067d e5ff | | Load 0x2,-0x1
067e e00b | | Load 0x0,0xb
067f 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0680 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0681 e00b | | Load 0x0,0xb
0682 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0683 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0684 0000 0000 | | .BLANK 0000[0x4]
0688 ; --------------------------------------------------------------------------------------
0688 ; SUBPROGRAM
0688 ; --------------------------------------------------------------------------------------
0688 0690 | | .CONST 0x0690 ; Address of begin
0689 0004 | | .CONST 0x0004 ; Address of exception handler
068a 0002 | | .CONST 0x0002 ; Number of locals
068b INIT_0688:
068b e00b | | Load 0x0,0xb
068c 1b12 | | Execute Package,Field_Read,Field_Number 0x12
068d 02c7 | | Declare_Variable Any
068e 00d8 | | Load_Top At_Offset_0
068f 1c00 | | Execute_Immediate Run_Utility,0x0
0690 BODY_0688:
0690 00db | | Load_Top At_Offset_3
0691 e001 | | Load 0x0,0x1
0692 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
0693 7007 |p | Jump_Nonzero 0x69b
0694 00d8 | | Load_Top At_Offset_0
0695 e5ff | | Load 0x2,-0x1
0696 e00b | | Load 0x0,0xb
0697 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0698 c402 | | Store 0x2,0x2
0699 00d8 | | Load_Top At_Offset_0
069a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
069b e00b | | Load 0x0,0xb
069c 1b13 | | Execute Package,Field_Read,Field_Number 0x13
069d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
069e 0000 0000 | | .XXX[0x2]
06a0 ; --------------------------------------------------------------------------------------
06a0 ; SUBPROGRAM
06a0 ; --------------------------------------------------------------------------------------
06a0 06a3 | | .CONST 0x06a3 ; Address of begin
06a1 0004 | | .CONST 0x0004 ; Address of exception handler
06a2 0001 | | .CONST 0x0001 ; Number of locals
06a3 BODY_06a0:
06a3 INIT_06a0:
06a3 00da | | Load_Top At_Offset_2
06a4 e001 | | Load 0x0,0x1
06a5 180f | | Execute Package,Field_Execute,Field_Number 0xf
06a6 6803 |h | Jump_Zero 0x6aa
06a7 e001 | | Load 0x0,0x1
06a8 1b0e | | Execute Package,Field_Read,Field_Number 0xe
06a9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
06aa 00da | | Load_Top At_Offset_2
06ab e004 | | Load 0x0,0x4
06ac 1816 | | Execute Package,Field_Execute,Field_Number 0x16
06ad 4626 |F& | Jump_Case 0x27
06ae 7829 |x) | Jump 0x6d8 ; case 0x0
06af 7828 |x( | Jump 0x6d8 ; case 0x1
06b0 7835 |x5 | Jump 0x6e6 ; case 0x2
06b1 7823 |x# | Jump 0x6d5 ; case 0x3
06b2 7822 |x" | Jump 0x6d5 ; case 0x4
06b3 7828 |x( | Jump 0x6dc ; case 0x5
06b4 782b |x+ | Jump 0x6e0 ; case 0x6
06b5 7826 |x& | Jump 0x6dc ; case 0x7
06b6 781e |x | Jump 0x6d5 ; case 0x8
06b7 781d |x | Jump 0x6d5 ; case 0x9
06b8 781c |x | Jump 0x6d5 ; case 0xa
06b9 781b |x | Jump 0x6d5 ; case 0xb
06ba 7831 |x1 | Jump 0x6ec ; case 0xc
06bb 7830 |x0 | Jump 0x6ec ; case 0xd
06bc 7818 |x | Jump 0x6d5 ; case 0xe
06bd 7817 |x | Jump 0x6d5 ; case 0xf
06be 782d |x- | Jump 0x6ec ; case 0x10
06bf 7815 |x | Jump 0x6d5 ; case 0x11
06c0 7814 |x | Jump 0x6d5 ; case 0x12
06c1 7813 |x | Jump 0x6d5 ; case 0x13
06c2 7812 |x | Jump 0x6d5 ; case 0x14
06c3 7828 |x( | Jump 0x6ec ; case 0x15
06c4 7810 |x | Jump 0x6d5 ; case 0x16
06c5 780f |x | Jump 0x6d5 ; case 0x17
06c6 7825 |x% | Jump 0x6ec ; case 0x18
06c7 780d |x | Jump 0x6d5 ; case 0x19
06c8 780c |x | Jump 0x6d5 ; case 0x1a
06c9 780b |x | Jump 0x6d5 ; case 0x1b
06ca 780a |x | Jump 0x6d5 ; case 0x1c
06cb 7809 |x | Jump 0x6d5 ; case 0x1d
06cc 7808 |x | Jump 0x6d5 ; case 0x1e
06cd 7807 |x | Jump 0x6d5 ; case 0x1f
06ce 7806 |x | Jump 0x6d5 ; case 0x20
06cf 7805 |x | Jump 0x6d5 ; case 0x21
06d0 7815 |x | Jump 0x6e6 ; case 0x22
06d1 7803 |x | Jump 0x6d5 ; case 0x23
06d2 7805 |x | Jump 0x6d8 ; case 0x24
06d3 7804 |x | Jump 0x6d8 ; case 0x25
06d4 7800 |x | Jump 0x6d5 ; case 0x26
06d5 e001 | | Load 0x0,0x1
06d6 1b0e | | Execute Package,Field_Read,Field_Number 0xe
06d7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
06d8 00da | | Load_Top At_Offset_2
06d9 e004 | | Load 0x0,0x4
06da 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
06db 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
06dc 00da | | Load_Top At_Offset_2
06dd e004 | | Load 0x0,0x4
06de 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
06df 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
06e0 00da | | Load_Top At_Offset_2
06e1 e004 | | Load 0x0,0x4
06e2 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
06e3 e004 | | Load 0x0,0x4
06e4 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
06e5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
06e6 00da | | Load_Top At_Offset_2
06e7 e004 | | Load 0x0,0x4
06e8 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
06e9 e00c | | Load 0x0,0xc
06ea 1816 | | Execute Package,Field_Execute,Field_Number 0x16
06eb 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
06ec 00da | | Load_Top At_Offset_2
06ed e004 | | Load 0x0,0x4
06ee 1841 | A | Execute Package,Field_Execute,Field_Number 0x41
06ef e00c | | Load 0x0,0xc
06f0 1816 | | Execute Package,Field_Execute,Field_Number 0x16
06f1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
06f2 0000 0000 | | .BLANK 0000[0x6]
06f8 ; --------------------------------------------------------------------------------------
06f8 ; SUBPROGRAM
06f8 ; --------------------------------------------------------------------------------------
06f8 0701 | | .CONST 0x0701 ; Address of begin
06f9 0004 | | .CONST 0x0004 ; Address of exception handler
06fa 0002 | | .CONST 0x0002 ; Number of locals
06fb INIT_06f8:
06fb e001 | | Load 0x0,0x1
06fc 1b40 | @ | Execute Package,Field_Read,Field_Number 0x40
06fd 02c7 | | Declare_Variable Any
06fe 00db | | Load_Top At_Offset_3
06ff 8218 | | Call 0x1,0x18
0700 a402 | | Store_Unchecked 0x2,0x2
0701 BODY_06f8:
0701 00d8 | | Load_Top At_Offset_0
0702 e001 | | Load 0x0,0x1
0703 180f | | Execute Package,Field_Execute,Field_Number 0xf
0704 6803 |h | Jump_Zero 0x708
0705 e001 | | Load 0x0,0x1
0706 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0707 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0708 00db | | Load_Top At_Offset_3
0709 e004 | | Load 0x0,0x4
070a 1816 | | Execute Package,Field_Execute,Field_Number 0x16
070b 4805 |H | Short_Literal 0x5
070c 4806 |H | Short_Literal 0x6
070d 0262 | b | Execute Discrete,In_Range
070e 7006 |p | Jump_Nonzero 0x715
070f 00d8 | | Load_Top At_Offset_0
0710 e007 | | Load 0x0,0x7
0711 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0712 e007 | | Load 0x0,0x7
0713 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0714 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0715 00d8 | | Load_Top At_Offset_0
0716 e007 | | Load 0x0,0x7
0717 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0718 0f08 | | Execute_Immediate Equal,0x8
0719 7006 |p | Jump_Nonzero 0x720
071a 00d8 | | Load_Top At_Offset_0
071b e007 | | Load 0x0,0x7
071c 181b | | Execute Package,Field_Execute,Field_Number 0x1b
071d e007 | | Load 0x0,0x7
071e 181a | | Execute Package,Field_Execute,Field_Number 0x1a
071f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0720 00d8 | | Load_Top At_Offset_0
0721 e007 | | Load 0x0,0x7
0722 1859 | Y | Execute Package,Field_Execute,Field_Number 0x59
0723 e007 | | Load 0x0,0x7
0724 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
0725 e00c | | Load 0x0,0xc
0726 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0727 e007 | | Load 0x0,0x7
0728 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0729 e007 | | Load 0x0,0x7
072a 181a | | Execute Package,Field_Execute,Field_Number 0x1a
072b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
072c 0000 0000 | | .BLANK 0000[0x4]
0730 ; --------------------------------------------------------------------------------------
0730 ; SUBPROGRAM
0730 ; --------------------------------------------------------------------------------------
0730 0733 | 3 | .CONST 0x0733 ; Address of begin
0731 0004 | | .CONST 0x0004 ; Address of exception handler
0732 0001 | | .CONST 0x0001 ; Number of locals
0733 BODY_0730:
0733 INIT_0730:
0733 00da | | Load_Top At_Offset_2
0734 8218 | | Call 0x1,0x18
0735 c5fd | | Store 0x2,-0x3
0736 e5fd | | Load 0x2,-0x3
0737 e001 | | Load 0x0,0x1
0738 180f | | Execute Package,Field_Execute,Field_Number 0xf
0739 700c |p | Jump_Nonzero 0x746
073a e5fd | | Load 0x2,-0x3
073b e007 | | Load 0x0,0x7
073c 181d | | Execute Package,Field_Execute,Field_Number 0x1d
073d c5fc | | Store 0x2,-0x4
073e e5fd | | Load 0x2,-0x3
073f e007 | | Load 0x0,0x7
0740 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0741 c5fb | | Store 0x2,-0x5
0742 e5fc | | Load 0x2,-0x4
0743 8214 | | Call 0x1,0x14
0744 a5fe | | Store_Unchecked 0x2,-0x2
0745 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0746 e001 | | Load 0x0,0x1
0747 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0748 c5fc | | Store 0x2,-0x4
0749 e001 | | Load 0x0,0x1
074a 1b0e | | Execute Package,Field_Read,Field_Number 0xe
074b c5fb | | Store 0x2,-0x5
074c 4800 |H | Short_Literal 0x0
074d a5fe | | Store_Unchecked 0x2,-0x2
074e 4502 |E | Exit_Suprogram New_Top_Offset 0x2
074f 0000 | | .XXX[0x1]
0750 ; --------------------------------------------------------------------------------------
0750 ; SUBPROGRAM
0750 ; --------------------------------------------------------------------------------------
0750 0764 | d | .CONST 0x0764 ; Address of begin
0751 0004 | | .CONST 0x0004 ; Address of exception handler
0752 0004 | | .CONST 0x0004 ; Number of locals
0753 INIT_0750:
0753 e00d | | Load 0x0,0xd
0754 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0755 02c7 | | Declare_Variable Any
0756 00db | | Load_Top At_Offset_3
0757 e00d | | Load 0x0,0xd
0758 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0759 a402 | | Store_Unchecked 0x2,0x2
075a e001 | | Load 0x0,0x1
075b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
075c 02c7 | | Declare_Variable Any
075d 00d8 | | Load_Top At_Offset_0
075e 1c00 | | Execute_Immediate Run_Utility,0x0
075f e00e | | Load 0x0,0xe
0760 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0761 02c7 | | Declare_Variable Any
0762 00d8 | | Load_Top At_Offset_0
0763 1c00 | | Execute_Immediate Run_Utility,0x0
0764 BODY_0750:
0764 00d8 | | Load_Top At_Offset_0
0765 00da | | Load_Top At_Offset_2
0766 0120 | | Execute Any,Is_Value
0767 6803 |h | Jump_Zero 0x76b
0768 e001 | | Load 0x0,0x1
0769 1b0d | | Execute Package,Field_Read,Field_Number 0xd
076a 7801 |x | Jump 0x76c
076b 00da | | Load_Top At_Offset_2
076c e402 | | Load 0x2,0x2
076d e00f | | Load 0x0,0xf
076e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
076f 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0770 0092 088f | | Action Push_String_Extended,0x88f ; "<VIEW>"
0772 e5ff | | Load 0x2,-0x1
0773 e001 | | Load 0x0,0x1
0774 1b58 | X | Execute Package,Field_Read,Field_Number 0x58
0775 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0776 e001 | | Load 0x0,0x1
0777 1b58 | X | Execute Package,Field_Read,Field_Number 0x58
0778 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0779 c403 | | Store 0x2,0x3
077a c404 | | Store 0x2,0x4
077b 00d9 | | Load_Top At_Offset_1
077c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
077d 0000 0000 | | .XXX[0x3]
077f 0000 | |
0780 ; --------------------------------------------------------------------------------------
0780 ; SUBPROGRAM
0780 ; --------------------------------------------------------------------------------------
0780 0789 | | .CONST 0x0789 ; Address of begin
0781 0004 | | .CONST 0x0004 ; Address of exception handler
0782 0002 | | .CONST 0x0002 ; Number of locals
0783 INIT_0780:
0783 e402 | | Load 0x2,0x2
0784 e004 | | Load 0x0,0x4
0785 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0786 e004 | | Load 0x0,0x4
0787 1b4a | J | Execute Package,Field_Read,Field_Number 0x4a
0788 03f1 | | Declare_Variable Discrete,With_Value
0789 BODY_0780:
0789 00d8 | | Load_Top At_Offset_0
078a 460a |F | Jump_Case 0xb
078b 7813 |x | Jump 0x79f ; case 0x0
078c 780e |x | Jump 0x79b ; case 0x1
078d 7815 |x | Jump 0x7a3 ; case 0x2
078e 7814 |x | Jump 0x7a3 ; case 0x3
078f 7813 |x | Jump 0x7a3 ; case 0x4
0790 7812 |x | Jump 0x7a3 ; case 0x5
0791 7811 |x | Jump 0x7a3 ; case 0x6
0792 7810 |x | Jump 0x7a3 ; case 0x7
0793 780f |x | Jump 0x7a3 ; case 0x8
0794 780e |x | Jump 0x7a3 ; case 0x9
0795 7800 |x | Jump 0x796 ; case 0xa
0796 e5fe | | Load 0x2,-0x2
0797 0335 | 5 | Declare_Variable Array,Duplicate
0798 00cd | | Action Spare6_Action
0799 00cb | | Action Pop_Block_With_Result
079a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
079b 0092 0890 | | Action Push_String_Extended,0x890 ; "Generic Formal Variable"
079d 00cb | | Action Pop_Block_With_Result
079e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
079f 0092 0891 | | Action Push_String_Extended,0x891 ; "Generic Formal Subprogram"
07a1 00cb | | Action Pop_Block_With_Result
07a2 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
07a3 0092 0892 | | Action Push_String_Extended,0x892 ; "Generic Formal Type"
07a5 00cb | | Action Pop_Block_With_Result
07a6 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
07a7 0000 | | .XXX[0x1]
07a8 ; --------------------------------------------------------------------------------------
07a8 ; SUBPROGRAM
07a8 ; --------------------------------------------------------------------------------------
07a8 07b8 | | .CONST 0x07b8 ; Address of begin
07a9 0004 | | .CONST 0x0004 ; Address of exception handler
07aa 000f | | .CONST 0x000f ; Number of locals
07ab INIT_07a8:
07ab 029a 07c3 | | Declare_Subprogram INIT_07c0,For_Outer_Call,Visible,Unelaborated
07ad 029a 07db | | Declare_Subprogram INIT_07d8,For_Outer_Call,Visible,Unelaborated
07af 029a 0823 | #| Declare_Subprogram INIT_0820,For_Outer_Call,Visible,Unelaborated
07b1 00bf | | Action Accept_Activation
07b2 1d0d | | Execute_Immediate Reference_Lex_1,0xd
07b3 00c7 | | Action Elaborate_Subprogram
07b4 1d0e | | Execute_Immediate Reference_Lex_1,0xe
07b5 00c7 | | Action Elaborate_Subprogram
07b6 1d0f | | Execute_Immediate Reference_Lex_1,0xf
07b7 00c7 | | Action Elaborate_Subprogram
07b8 BODY_07a8:
07b8 00bc | | Action Signal_Activated
07b9 00bb | | Action Signal_Completion
07ba 0000 0000 | | .BLANK 0000[0x6]
07c0 ; --------------------------------------------------------------------------------------
07c0 ; SUBPROGRAM
07c0 ; --------------------------------------------------------------------------------------
07c0 07c9 | | .CONST 0x07c9 ; Address of begin
07c1 0004 | | .CONST 0x0004 ; Address of exception handler
07c2 0002 | | .CONST 0x0002 ; Number of locals
07c3 INIT_07c0:
07c3 e001 | | Load 0x0,0x1
07c4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
07c5 1b0d | | Execute Package,Field_Read,Field_Number 0xd
07c6 02c7 | | Declare_Variable Any
07c7 00d8 | | Load_Top At_Offset_0
07c8 1c00 | | Execute_Immediate Run_Utility,0x0
07c9 BODY_07c0:
07c9 4801 |H | Short_Literal 0x1
07ca e001 | | Load 0x0,0x1
07cb 1b0e | | Execute Package,Field_Read,Field_Number 0xe
07cc 1813 | | Execute Package,Field_Execute,Field_Number 0x13
07cd e5ff | | Load 0x2,-0x1
07ce e001 | | Load 0x0,0x1
07cf 1b0e | | Execute Package,Field_Read,Field_Number 0xe
07d0 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
07d1 c402 | | Store 0x2,0x2
07d2 00d8 | | Load_Top At_Offset_0
07d3 e001 | | Load 0x0,0x1
07d4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
07d5 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
07d6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
07d7 0000 | | .XXX[0x1]
07d8 ; --------------------------------------------------------------------------------------
07d8 ; SUBPROGRAM
07d8 ; --------------------------------------------------------------------------------------
07d8 07e4 | | .CONST 0x07e4 ; Address of begin
07d9 080b | | .CONST 0x080b ; Address of exception handler
07da 0004 | | .CONST 0x0004 ; Number of locals
07db INIT_07d8:
07db 00e1 | | Load_Encached Boolean_Cache
07dc 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
07dd e002 | | Load 0x0,0x2
07de 1b0d | | Execute Package,Field_Read,Field_Number 0xd
07df 02c7 | | Declare_Variable Any
07e0 00d8 | | Load_Top At_Offset_0
07e1 1c00 | | Execute_Immediate Run_Utility,0x0
07e2 e003 | | Load 0x0,0x3
07e3 1b11 | | Execute Package,Field_Read,Field_Number 0x11
07e4 BODY_07d8:
07e4 00d9 | | Load_Top At_Offset_1
07e5 00ea | | Load_Encached Null_String_Cache
07e6 e5ff | | Load 0x2,-0x1
07e7 4800 |H | Short_Literal 0x0
07e8 e002 | | Load 0x0,0x2
07e9 1815 | | Execute Package,Field_Execute,Field_Number 0x15
07ea c403 | | Store 0x2,0x3
07eb 00cf | | Action Mark_Auxiliary
07ec 780c |x | Jump 0x7f9
07ed 00d9 | | Load_Top At_Offset_1
07ee 480a |H | Short_Literal 0xa
07ef e403 | | Load 0x2,0x3
07f0 e002 | | Load 0x0,0x2
07f1 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
07f2 01cb | | Execute Vector,Append
07f3 e003 | | Load 0x0,0x3
07f4 181d | | Execute Package,Field_Execute,Field_Number 0x1d
07f5 003a | : | Store_Top Access,At_Offset_2
07f6 4801 |H | Short_Literal 0x1
07f7 a402 | | Store_Unchecked 0x2,0x2
07f8 00c9 | | Action Pop_Auxiliary_Loop
07f9 00da | | Load_Top At_Offset_2
07fa e002 | | Load 0x0,0x2
07fb 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
07fc 6ff0 |o | Jump_Zero 0x7ed
07fd 00ce | | Action Pop_Auxiliary
07fe 00d9 | | Load_Top At_Offset_1
07ff e002 | | Load 0x0,0x2
0800 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0801 c403 | | Store 0x2,0x3
0802 00da | | Load_Top At_Offset_2
0803 7003 |p | Jump_Nonzero 0x807
0804 0092 0893 | | Action Push_String_Extended,0x893 ; "<EMPTY>"
0806 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0807 4801 |H | Short_Literal 0x1
0808 00d9 | | Load_Top At_Offset_1
0809 8004 | | Call 0x0,0x4
080a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
080b TRAP_07d8:
080b 00d8 | | Load_Top At_Offset_0
080c 0107 | | Execute Exception,Get_Name
080d 4920 |I | Short_Literal 0x120
080e 492f |I/ | Short_Literal 0x12f
080f 0262 | b | Execute Discrete,In_Range
0810 7006 |p | Jump_Nonzero 0x817
0811 00d8 | | Load_Top At_Offset_0
0812 0107 | | Execute Exception,Get_Name
0813 4930 |I0 | Short_Literal 0x130
0814 493f |I? | Short_Literal 0x13f
0815 0262 | b | Execute Discrete,In_Range
0816 6803 |h | Jump_Zero 0x81a
0817 0092 0894 | | Action Push_String_Extended,0x894 ; "<UNDEFINED>"
0819 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
081a 00da | | Load_Top At_Offset_2
081b e002 | | Load 0x0,0x2
081c 181b | | Execute Package,Field_Execute,Field_Number 0x1b
081d c403 | | Store 0x2,0x3
081e 00d8 | | Load_Top At_Offset_0
081f 0101 | | Execute Exception,Reraise
0820 ; --------------------------------------------------------------------------------------
0820 ; SUBPROGRAM
0820 ; --------------------------------------------------------------------------------------
0820 0832 | 2 | .CONST 0x0832 ; Address of begin
0821 0004 | | .CONST 0x0004 ; Address of exception handler
0822 0004 | | .CONST 0x0004 ; Number of locals
0823 INIT_0820:
0823 e005 | | Load 0x0,0x5
0824 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0825 02c7 | | Declare_Variable Any
0826 00d8 | | Load_Top At_Offset_0
0827 1c00 | | Execute_Immediate Run_Utility,0x0
0828 e006 | | Load 0x0,0x6
0829 1b0d | | Execute Package,Field_Read,Field_Number 0xd
082a 02c7 | | Declare_Variable Any
082b 00d8 | | Load_Top At_Offset_0
082c 1c00 | | Execute_Immediate Run_Utility,0x0
082d e007 | | Load 0x0,0x7
082e 1b12 | | Execute Package,Field_Read,Field_Number 0x12
082f 02c7 | | Declare_Variable Any
0830 00d8 | | Load_Top At_Offset_0
0831 1c00 | | Execute_Immediate Run_Utility,0x0
0832 BODY_0820:
0832 00da | | Load_Top At_Offset_2
0833 00da | | Load_Top At_Offset_2
0834 4804 |H | Short_Literal 0x4
0835 e5ff | | Load 0x2,-0x1
0836 e006 | | Load 0x0,0x6
0837 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0838 c403 | | Store 0x2,0x3
0839 c402 | | Store 0x2,0x2
083a e007 | | Load 0x0,0x7
083b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
083c e007 | | Load 0x0,0x7
083d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
083e 00db | | Load_Top At_Offset_3
083f e007 | | Load 0x0,0x7
0840 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0841 e007 | | Load 0x0,0x7
0842 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0843 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0844 0000 0000 | | .BLANK 0000[0x4]
0848 ; --------------------------------------------------------------------------------------
0848 ; SUBPROGRAM
0848 ; --------------------------------------------------------------------------------------
0848 0854 | T | .CONST 0x0854 ; Address of begin
0849 0004 | | .CONST 0x0004 ; Address of exception handler
084a 000e | | .CONST 0x000e ; Number of locals
084b INIT_0848:
084b 029a 085b | [| Declare_Subprogram INIT_0858,For_Outer_Call,Visible,Unelaborated
084d 029a 086b | k| Declare_Subprogram INIT_0868,For_Outer_Call,Visible,Unelaborated
084f 00bf | | Action Accept_Activation
0850 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0851 00c7 | | Action Elaborate_Subprogram
0852 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0853 00c7 | | Action Elaborate_Subprogram
0854 BODY_0848:
0854 00bc | | Action Signal_Activated
0855 00bb | | Action Signal_Completion
0856 0000 0000 | | .XXX[0x2]
0858 ; --------------------------------------------------------------------------------------
0858 ; SUBPROGRAM
0858 ; --------------------------------------------------------------------------------------
0858 085b | [ | .CONST 0x085b ; Address of begin
0859 0004 | | .CONST 0x0004 ; Address of exception handler
085a 0001 | | .CONST 0x0001 ; Number of locals
085b BODY_0858:
085b INIT_0858:
085b 00da | | Load_Top At_Offset_2
085c 01db | | Execute Vector,Length
085d 7002 |p | Jump_Nonzero 0x860
085e 00ea | | Load_Encached Null_String_Cache
085f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0860 4829 |H) | Short_Literal 0x29
0861 0092 0895 | | Action Push_String_Extended,0x895 ; " ("
0863 e5ff | | Load 0x2,-0x1
0864 01cc | | Execute Vector,Catenate
0865 01cb | | Execute Vector,Append
0866 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0867 0000 | | .XXX[0x1]
0868 ; --------------------------------------------------------------------------------------
0868 ; SUBPROGRAM
0868 ; --------------------------------------------------------------------------------------
0868 086b | k | .CONST 0x086b ; Address of begin
0869 0004 | | .CONST 0x0004 ; Address of exception handler
086a 0001 | | .CONST 0x0001 ; Number of locals
086b BODY_0868:
086b INIT_0868:
086b 00da | | Load_Top At_Offset_2
086c 01db | | Execute Vector,Length
086d 6804 |h | Jump_Zero 0x872
086e 00da | | Load_Top At_Offset_2
086f 0335 | 5 | Declare_Variable Array,Duplicate
0870 00cd | | Action Spare6_Action
0871 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0872 00db | | Load_Top At_Offset_3
0873 0335 | 5 | Declare_Variable Array,Duplicate
0874 00cd | | Action Spare6_Action
0875 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0876 ; --------------------------------------------------------------------------------------
0876 ; STRING TABLE
0876 ; --------------------------------------------------------------------------------------
0876 0042 | B | .STRTAB 0x0042->0x0897 ; "N/A"
0877 0043 | C | .STRTAB 0x0043->0x0898 ; "TBD"
0878 0044 | D | .STRTAB 0x0044->0x089a ; ", "
0879 0044 | D | .STRTAB 0x0044->0x089b ; "Integer"
087a 0049 | I | .STRTAB 0x0049->0x089e ; "Real"
087b 004b | K | .STRTAB 0x004b->0x08a0 ; "Subtype"
087c 0050 | P | .STRTAB 0x0050->0x08a4 ; "Enumeration"
087d 0059 | Y | .STRTAB 0x0059->0x08a9 ; "Float"
087e 005c | \ | .STRTAB 0x005c->0x08ac ; "Fixed"
087f 005f | _ | .STRTAB 0x005f->0x08ae ; "Array"
0880 0062 | b | .STRTAB 0x0062->0x08b1 ; "Record"
0881 0066 | f | .STRTAB 0x0066->0x08b4 ; "Access"
0882 006a | j | .STRTAB 0x006a->0x08b7 ; "Derived"
0883 006f | o | .STRTAB 0x006f->0x08ba ; "Task"
0884 0071 | q | .STRTAB 0x0071->0x08bc ; "Private"
0885 0076 | v | .STRTAB 0x0076->0x08c0 ; "Component"
0886 007d | } | .STRTAB 0x007d->0x08c4 ; "Type"
0887 007f | | .STRTAB 0x007f->0x08c6 ; "Package"
0888 0084 | | .STRTAB 0x0084->0x08ca ; "Procedure"
0889 008b | | .STRTAB 0x008b->0x08ce ; "Function"
088a 0091 | | .STRTAB 0x0091->0x08d2 ; "Parameter"
088b 0098 | | .STRTAB 0x0098->0x08d7 ; "Variable"
088c 009e | | .STRTAB 0x009e->0x08db ; "Constant"
088d 00a4 | | .STRTAB 0x00a4->0x08df ; "Universal Integer"
088e 00b3 | | .STRTAB 0x00b3->0x08e7 ; "Universal Real"
088f 00bf | | .STRTAB 0x00bf->0x08ee ; "<VIEW>"
0890 00c3 | | .STRTAB 0x00c3->0x08f1 ; "Generic Formal Variable"
0891 00d8 | | .STRTAB 0x00d8->0x08fd ; "Generic Formal Subprogram"
0892 00ef | | .STRTAB 0x00ef->0x0909 ; "Generic Formal Type"
0893 0100 | | .STRTAB 0x0100->0x0913 ; "<EMPTY>"
0894 0105 | | .STRTAB 0x0105->0x0916 ; "<UNDEFINED>"
0895 010e | | .STRTAB 0x010e->0x091c ; " ("
0896 010e | | .STREND 0x010e->0x091d
0897 4e2f 4154 |N/AT| .STRTAB_STRINGS
091d 0000 0000 | | .XXX[0x3]
091f 0000 | |
0920 ; --------------------------------------------------------------------------------------
0920 ; Debug Table
0920 ; --------------------------------------------------------------------------------------
0920 0004 0012 | | .DEBUG4 0x0004,0x0012,0xfcdf,0x0000,0x0001,0x0000
0926 0000 0000 | | .BLANK 0000[0x14]
093a 0004 00a0 | | .XXX[0xc]
093c 0000 0000 | |
093e 0000 0800 | |
0940 0000 4400 | D |
0942 0000 0020 | |
0944 0000 0140 | @|
0946 0000 0000 | | .BLANK 0000[0x2e]
0974 8014 0000 | | .XXX[0xb]
0976 0000 0000 | |
0978 0100 0000 | |
097a 0880 0000 | |
097c 0004 0000 | |
097e 0028 | ( |
097f 0000 0000 | | .BLANK 0000[0x2e]
09ad 1002 8000 | | .XXX[0xb]
09af 0000 0000 | |
09b1 0020 0000 | |
09b3 0110 0000 | |
09b5 0000 8000 | |
09b7 0005 | |
09b8 0000 0000 | | .BLANK 0000[0x48]