|
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]