|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 3072 (0xc00) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_6a18da
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« └─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0420 | | .CONST 0x0420 ; Offset of debug table 0004 0100 | | .CONST 0x0100 ; Default exception handler - raise instruction 0005 00bb | | .CONST 0x00bb ; Module termination instruction - signal completion 0006 0000 | | .CONST 0x0000 ; Offset to segment table (only in elab segments) 0007 8003 | | .CONST 0x8003 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 007d | } | .CONST 0x007d ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0018 | | .CONST 0x0018 ; Number of locals 000b INIT_0008: 000b 4800 |H | Short_Literal 0x0 000c 0093 03f3 | | push_full_address INIT_03f0 000e 02a0 | | Declare_Subprogram Null_Subprogram 000f 038f | | Declare_Type Package,Defined,Visible 0010 0386 | | Declare_Variable Package,Visible 0011 4800 |H | Short_Literal 0x0 0012 0093 032b | +| push_full_address INIT_0328 0014 02a0 | | Declare_Subprogram Null_Subprogram 0015 038f | | Declare_Type Package,Defined,Visible 0016 e001 | | Load 0x0,0x1 0017 4801 |H | Short_Literal 0x1 0018 00da | | Load_Top At_Offset_2 0019 020e | | Execute Module,Augment_Imports 001a 0386 | | Declare_Variable Package,Visible 001b 4800 |H | Short_Literal 0x0 001c 0093 029b | | push_full_address INIT_0298 001e 02a0 | | Declare_Subprogram Null_Subprogram 001f 038f | | Declare_Type Package,Defined,Visible 0020 e001 | | Load 0x0,0x1 0021 4801 |H | Short_Literal 0x1 0022 00da | | Load_Top At_Offset_2 0023 020e | | Execute Module,Augment_Imports 0024 0386 | | Declare_Variable Package,Visible 0025 4800 |H | Short_Literal 0x0 0026 0093 0263 | c| push_full_address INIT_0260 0028 02a0 | | Declare_Subprogram Null_Subprogram 0029 038f | | Declare_Type Package,Defined,Visible 002a 0386 | | Declare_Variable Package,Visible 002b 4800 |H | Short_Literal 0x0 002c 0093 022b | +| push_full_address INIT_0228 002e 02a0 | | Declare_Subprogram Null_Subprogram 002f 038f | | Declare_Type Package,Defined,Visible 0030 0386 | | Declare_Variable Package,Visible 0031 4800 |H | Short_Literal 0x0 0032 0093 01fb | | push_full_address INIT_01f8 0034 02a0 | | Declare_Subprogram Null_Subprogram 0035 038f | | Declare_Type Package,Defined,Visible 0036 0386 | | Declare_Variable Package,Visible 0037 4800 |H | Short_Literal 0x0 0038 0093 01cb | | push_full_address INIT_01c8 003a 02a0 | | Declare_Subprogram Null_Subprogram 003b 038f | | Declare_Type Package,Defined,Visible 003c 0386 | | Declare_Variable Package,Visible 003d 4800 |H | Short_Literal 0x0 003e 0093 019b | | push_full_address INIT_0198 0040 02a0 | | Declare_Subprogram Null_Subprogram 0041 038f | | Declare_Type Package,Defined,Visible 0042 0386 | | Declare_Variable Package,Visible 0043 4800 |H | Short_Literal 0x0 0044 0093 0113 | | push_full_address INIT_0110 0046 02a0 | | Declare_Subprogram Null_Subprogram 0047 038f | | Declare_Type Package,Defined,Visible 0048 e001 | | Load 0x0,0x1 0049 4801 |H | Short_Literal 0x1 004a 00da | | Load_Top At_Offset_2 004b 020e | | Execute Module,Augment_Imports 004c 0386 | | Declare_Variable Package,Visible 004d 4800 |H | Short_Literal 0x0 004e 0093 00e3 | | push_full_address INIT_00e0 0050 02a0 | | Declare_Subprogram Null_Subprogram 0051 038f | | Declare_Type Package,Defined,Visible 0052 0386 | | Declare_Variable Package,Visible 0053 4800 |H | Short_Literal 0x0 0054 0093 00b3 | | push_full_address INIT_00b0 0056 02a0 | | Declare_Subprogram Null_Subprogram 0057 038f | | Declare_Type Package,Defined,Visible 0058 0386 | | Declare_Variable Package,Visible 0059 4800 |H | Short_Literal 0x0 005a 0093 0083 | | push_full_address INIT_0080 005c 02a0 | | Declare_Subprogram Null_Subprogram 005d 038f | | Declare_Type Package,Defined,Visible 005e 0386 | | Declare_Variable Package,Visible 005f 00bf | | Action Accept_Activation 0060 e20d | | Load 0x1,0xd 0061 020f | | Execute Module,Activate 0062 e002 | | Load 0x0,0x2 0063 e003 | | Load 0x0,0x3 0064 4802 |H | Short_Literal 0x2 0065 e20e | | Load 0x1,0xe 0066 020e | | Execute Module,Augment_Imports 0067 e20e | | Load 0x1,0xe 0068 020f | | Execute Module,Activate 0069 e20f | | Load 0x1,0xf 006a 020f | | Execute Module,Activate 006b e210 | | Load 0x1,0x10 006c 020f | | Execute Module,Activate 006d e211 | | Load 0x1,0x11 006e 020f | | Execute Module,Activate 006f e212 | | Load 0x1,0x12 0070 020f | | Execute Module,Activate 0071 e213 | | Load 0x1,0x13 0072 020f | | Execute Module,Activate 0073 e214 | | Load 0x1,0x14 0074 020f | | Execute Module,Activate 0075 00db | | Load_Top At_Offset_3 0076 020f | | Execute Module,Activate 0077 00da | | Load_Top At_Offset_2 0078 020f | | Execute Module,Activate 0079 00d9 | | Load_Top At_Offset_1 007a 020f | | Execute Module,Activate 007b 00d8 | | Load_Top At_Offset_0 007c 020f | | Execute Module,Activate 007d BODY_0008: 007d 00bc | | Action Signal_Activated 007e 00bb | | Action Signal_Completion 007f 0000 | | .XXX[0x1] 0080 ; -------------------------------------------------------------------------------------- 0080 ; SUBPROGRAM 0080 ; -------------------------------------------------------------------------------------- 0080 0090 | | .CONST 0x0090 ; Address of begin 0081 0004 | | .CONST 0x0004 ; Address of exception handler 0082 000f | | .CONST 0x000f ; Number of locals 0083 INIT_0080: 0083 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated 0085 029a 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call,Visible,Unelaborated 0087 029a 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call,Visible,Unelaborated 0089 00bf | | Action Accept_Activation 008a 1d0d | | Execute_Immediate Reference_Lex_1,0xd 008b 00c7 | | Action Elaborate_Subprogram 008c 1d0e | | Execute_Immediate Reference_Lex_1,0xe 008d 00c7 | | Action Elaborate_Subprogram 008e 1d0f | | Execute_Immediate Reference_Lex_1,0xf 008f 00c7 | | Action Elaborate_Subprogram 0090 BODY_0080: 0090 00bc | | Action Signal_Activated 0091 00bb | | Action Signal_Completion 0092 0000 0000 | | .BLANK 0000[0x6] 0098 ; -------------------------------------------------------------------------------------- 0098 ; SUBPROGRAM 0098 ; -------------------------------------------------------------------------------------- 0098 009b | | .CONST 0x009b ; Address of begin 0099 0004 | | .CONST 0x0004 ; Address of exception handler 009a 0001 | | .CONST 0x0001 ; Number of locals 009b BODY_0098: 009b INIT_0098: 009b 4502 |E | Exit_Suprogram New_Top_Offset 0x2 009c 0000 0000 | | .BLANK 0000[0x4] 00a0 ; -------------------------------------------------------------------------------------- 00a0 ; SUBPROGRAM 00a0 ; -------------------------------------------------------------------------------------- 00a0 00a3 | | .CONST 0x00a3 ; Address of begin 00a1 0004 | | .CONST 0x0004 ; Address of exception handler 00a2 0001 | | .CONST 0x0001 ; Number of locals 00a3 BODY_00a0: 00a3 INIT_00a0: 00a3 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00a4 0000 0000 | | .BLANK 0000[0x4] 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 4800 |H | Short_Literal 0x0 00ac 00ca | | Action Exit_Nullary_Function 00ad 0000 0000 | | .XXX[0x3] 00af 0000 | | 00b0 ; -------------------------------------------------------------------------------------- 00b0 ; SUBPROGRAM 00b0 ; -------------------------------------------------------------------------------------- 00b0 00c0 | | .CONST 0x00c0 ; Address of begin 00b1 0004 | | .CONST 0x0004 ; Address of exception handler 00b2 000f | | .CONST 0x000f ; Number of locals 00b3 INIT_00b0: 00b3 029a 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call,Visible,Unelaborated 00b5 029a 00d3 | | Declare_Subprogram INIT_00d0,For_Outer_Call,Visible,Unelaborated 00b7 029a 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call,Visible,Unelaborated 00b9 00bf | | Action Accept_Activation 00ba 1d0d | | Execute_Immediate Reference_Lex_1,0xd 00bb 00c7 | | Action Elaborate_Subprogram 00bc 1d0e | | Execute_Immediate Reference_Lex_1,0xe 00bd 00c7 | | Action Elaborate_Subprogram 00be 1d0f | | Execute_Immediate Reference_Lex_1,0xf 00bf 00c7 | | Action Elaborate_Subprogram 00c0 BODY_00b0: 00c0 00bc | | Action Signal_Activated 00c1 00bb | | Action Signal_Completion 00c2 0000 0000 | | .BLANK 0000[0x6] 00c8 ; -------------------------------------------------------------------------------------- 00c8 ; SUBPROGRAM 00c8 ; -------------------------------------------------------------------------------------- 00c8 00cb | | .CONST 0x00cb ; Address of begin 00c9 0004 | | .CONST 0x0004 ; Address of exception handler 00ca 0001 | | .CONST 0x0001 ; Number of locals 00cb BODY_00c8: 00cb INIT_00c8: 00cb 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00cc 0000 0000 | | .BLANK 0000[0x4] 00d0 ; -------------------------------------------------------------------------------------- 00d0 ; SUBPROGRAM 00d0 ; -------------------------------------------------------------------------------------- 00d0 00d3 | | .CONST 0x00d3 ; Address of begin 00d1 0004 | | .CONST 0x0004 ; Address of exception handler 00d2 0001 | | .CONST 0x0001 ; Number of locals 00d3 BODY_00d0: 00d3 INIT_00d0: 00d3 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00d4 0000 0000 | | .BLANK 0000[0x4] 00d8 ; -------------------------------------------------------------------------------------- 00d8 ; SUBPROGRAM 00d8 ; -------------------------------------------------------------------------------------- 00d8 00db | | .CONST 0x00db ; Address of begin 00d9 0004 | | .CONST 0x0004 ; Address of exception handler 00da 0001 | | .CONST 0x0001 ; Number of locals 00db BODY_00d8: 00db INIT_00d8: 00db 4800 |H | Short_Literal 0x0 00dc 00ca | | Action Exit_Nullary_Function 00dd 0000 0000 | | .XXX[0x3] 00df 0000 | | 00e0 ; -------------------------------------------------------------------------------------- 00e0 ; SUBPROGRAM 00e0 ; -------------------------------------------------------------------------------------- 00e0 00f0 | | .CONST 0x00f0 ; Address of begin 00e1 0004 | | .CONST 0x0004 ; Address of exception handler 00e2 000f | | .CONST 0x000f ; Number of locals 00e3 INIT_00e0: 00e3 029a 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call,Visible,Unelaborated 00e5 029a 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible,Unelaborated 00e7 029a 010b | | Declare_Subprogram INIT_0108,For_Outer_Call,Visible,Unelaborated 00e9 00bf | | Action Accept_Activation 00ea 1d0d | | Execute_Immediate Reference_Lex_1,0xd 00eb 00c7 | | Action Elaborate_Subprogram 00ec 1d0e | | Execute_Immediate Reference_Lex_1,0xe 00ed 00c7 | | Action Elaborate_Subprogram 00ee 1d0f | | Execute_Immediate Reference_Lex_1,0xf 00ef 00c7 | | Action Elaborate_Subprogram 00f0 BODY_00e0: 00f0 00bc | | Action Signal_Activated 00f1 00bb | | Action Signal_Completion 00f2 0000 0000 | | .BLANK 0000[0x6] 00f8 ; -------------------------------------------------------------------------------------- 00f8 ; SUBPROGRAM 00f8 ; -------------------------------------------------------------------------------------- 00f8 00fb | | .CONST 0x00fb ; Address of begin 00f9 0004 | | .CONST 0x0004 ; Address of exception handler 00fa 0001 | | .CONST 0x0001 ; Number of locals 00fb BODY_00f8: 00fb INIT_00f8: 00fb 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00fc 0000 0000 | | .BLANK 0000[0x4] 0100 ; -------------------------------------------------------------------------------------- 0100 ; SUBPROGRAM 0100 ; -------------------------------------------------------------------------------------- 0100 0103 | | .CONST 0x0103 ; Address of begin 0101 0004 | | .CONST 0x0004 ; Address of exception handler 0102 0001 | | .CONST 0x0001 ; Number of locals 0103 BODY_0100: 0103 INIT_0100: 0103 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0104 0000 0000 | | .BLANK 0000[0x4] 0108 ; -------------------------------------------------------------------------------------- 0108 ; SUBPROGRAM 0108 ; -------------------------------------------------------------------------------------- 0108 010b | | .CONST 0x010b ; Address of begin 0109 0004 | | .CONST 0x0004 ; Address of exception handler 010a 0001 | | .CONST 0x0001 ; Number of locals 010b BODY_0108: 010b INIT_0108: 010b 4800 |H | Short_Literal 0x0 010c 00ca | | Action Exit_Nullary_Function 010d 0000 0000 | | .XXX[0x3] 010f 0000 | | 0110 ; -------------------------------------------------------------------------------------- 0110 ; SUBPROGRAM 0110 ; -------------------------------------------------------------------------------------- 0110 012e | . | .CONST 0x012e ; Address of begin 0111 0004 | | .CONST 0x0004 ; Address of exception handler 0112 0011 | | .CONST 0x0011 ; Number of locals 0113 INIT_0110: 0113 4803 |H | Short_Literal 0x3 0114 032b | + | Declare_Type Record,Incomplete,Visible 0115 029a 0133 | 3| Declare_Subprogram INIT_0130,For_Outer_Call,Visible,Unelaborated 0117 029a 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call,Visible,Unelaborated 0119 029a 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call,Visible,Unelaborated 011b 029a 016b | k| Declare_Subprogram INIT_0168,For_Outer_Call,Visible,Unelaborated 011d 00e1 | | Load_Encached Boolean_Cache 011e e001 | | Load 0x0,0x1 011f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0120 00e1 | | Load_Encached Boolean_Cache 0121 029f 017b | {| Declare_Subprogram INIT_0178,For_Call 0123 e20d | | Load 0x1,0xd 0124 0326 | & | Complete_Type Record,By_Defining 0125 00bf | | Action Accept_Activation 0126 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0127 00c7 | | Action Elaborate_Subprogram 0128 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0129 00c7 | | Action Elaborate_Subprogram 012a 1d10 | | Execute_Immediate Reference_Lex_1,0x10 012b 00c7 | | Action Elaborate_Subprogram 012c 1d11 | | Execute_Immediate Reference_Lex_1,0x11 012d 00c7 | | Action Elaborate_Subprogram 012e BODY_0110: 012e 00bc | | Action Signal_Activated 012f 00bb | | Action Signal_Completion 0130 ; -------------------------------------------------------------------------------------- 0130 ; SUBPROGRAM 0130 ; -------------------------------------------------------------------------------------- 0130 0133 | 3 | .CONST 0x0133 ; Address of begin 0131 0004 | | .CONST 0x0004 ; Address of exception handler 0132 0001 | | .CONST 0x0001 ; Number of locals 0133 BODY_0130: 0133 INIT_0130: 0133 e5fd | | Load 0x2,-0x3 0134 e001 | | Load 0x0,0x1 0135 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0136 0e01 | | Execute_Immediate Not_Equal,0x1 0137 e5fb | | Load 0x2,-0x5 0138 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0139 e5fd | | Load 0x2,-0x3 013a e5fb | | Load 0x2,-0x5 013b 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 013c e5fc | | Load 0x2,-0x4 013d e5fb | | Load 0x2,-0x5 013e 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 013f 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0140 ; -------------------------------------------------------------------------------------- 0140 ; SUBPROGRAM 0140 ; -------------------------------------------------------------------------------------- 0140 0143 | C | .CONST 0x0143 ; Address of begin 0141 0004 | | .CONST 0x0004 ; Address of exception handler 0142 0001 | | .CONST 0x0001 ; Number of locals 0143 BODY_0140: 0143 INIT_0140: 0143 00da | | Load_Top At_Offset_2 0144 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0145 7007 |p | Jump_Nonzero 0x14d 0146 480a |H | Short_Literal 0xa 0147 e5fd | | Load 0x2,-0x3 0148 01cb | | Execute Vector,Append 0149 00db | | Load_Top At_Offset_3 014a 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 014b e001 | | Load 0x0,0x1 014c 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 014d 4504 |E | Exit_Suprogram New_Top_Offset 0x4 014e 0000 0000 | | .XXX[0x2] 0150 ; -------------------------------------------------------------------------------------- 0150 ; SUBPROGRAM 0150 ; -------------------------------------------------------------------------------------- 0150 0158 | X | .CONST 0x0158 ; Address of begin 0151 0004 | | .CONST 0x0004 ; Address of exception handler 0152 0002 | | .CONST 0x0002 ; Number of locals 0153 INIT_0150: 0153 e20d | | Load 0x1,0xd 0154 0322 | " | Declare_Variable Record 0155 00db | | Load_Top At_Offset_3 0156 00d9 | | Load_Top At_Offset_1 0157 017d | } | Execute Record,Structure_Write 0158 BODY_0150: 0158 00d8 | | Load_Top At_Offset_0 0159 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 015a 7009 |p | Jump_Nonzero 0x164 015b 00db | | Load_Top At_Offset_3 015c 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 015d 7006 |p | Jump_Nonzero 0x164 015e 00d8 | | Load_Top At_Offset_0 015f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0160 e001 | | Load 0x0,0x1 0161 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0162 00d9 | | Load_Top At_Offset_1 0163 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0164 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0165 0000 0000 | | .XXX[0x3] 0167 0000 | | 0168 ; -------------------------------------------------------------------------------------- 0168 ; SUBPROGRAM 0168 ; -------------------------------------------------------------------------------------- 0168 016b | k | .CONST 0x016b ; Address of begin 0169 0004 | | .CONST 0x0004 ; Address of exception handler 016a 0001 | | .CONST 0x0001 ; Number of locals 016b BODY_0168: 016b INIT_0168: 016b 00da | | Load_Top At_Offset_2 016c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 016d 6802 |h | Jump_Zero 0x170 016e 4807 |H | Short_Literal 0x7 016f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0170 4800 |H | Short_Literal 0x0 0171 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0172 0000 0000 | | .BLANK 0000[0x6] 0178 ; -------------------------------------------------------------------------------------- 0178 ; SUBPROGRAM 0178 ; -------------------------------------------------------------------------------------- 0178 017b | { | .CONST 0x017b ; Address of begin 0179 0004 | | .CONST 0x0004 ; Address of exception handler 017a 0001 | | .CONST 0x0001 ; Number of locals 017b BODY_0178: 017b INIT_0178: 017b 4608 |F | Jump_Case 0x9 017c 7808 |x | Jump 0x185 ; case 0x0 017d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 017e 7813 |x | Jump 0x192 ; case 0x2 017f 7812 |x | Jump 0x192 ; case 0x3 0180 7811 |x | Jump 0x192 ; case 0x4 0181 7810 |x | Jump 0x192 ; case 0x5 0182 780f |x | Jump 0x192 ; case 0x6 0183 780e |x | Jump 0x192 ; case 0x7 0184 780d |x | Jump 0x192 ; case 0x8 0185 4801 |H | Short_Literal 0x1 0186 00db | | Load_Top At_Offset_3 0187 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0188 00da | | Load_Top At_Offset_2 0189 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 018a 0125 | % | Execute Any,Set_Constraint 018b 00da | | Load_Top At_Offset_2 018c 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 018d 1c00 | | Execute_Immediate Run_Utility,0x0 018e 4801 |H | Short_Literal 0x1 018f 00db | | Load_Top At_Offset_3 0190 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0191 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0192 0869 | i | Execute_Immediate Raise,0x69 0193 0000 0000 | | .BLANK 0000[0x5] 0198 ; -------------------------------------------------------------------------------------- 0198 ; SUBPROGRAM 0198 ; -------------------------------------------------------------------------------------- 0198 01a8 | | .CONST 0x01a8 ; Address of begin 0199 0004 | | .CONST 0x0004 ; Address of exception handler 019a 000f | | .CONST 0x000f ; Number of locals 019b INIT_0198: 019b 029a 01b3 | | Declare_Subprogram INIT_01b0,For_Outer_Call,Visible,Unelaborated 019d 029a 01bb | | Declare_Subprogram INIT_01b8,For_Outer_Call,Visible,Unelaborated 019f 029a 01c3 | | Declare_Subprogram INIT_01c0,For_Outer_Call,Visible,Unelaborated 01a1 00bf | | Action Accept_Activation 01a2 1d0d | | Execute_Immediate Reference_Lex_1,0xd 01a3 00c7 | | Action Elaborate_Subprogram 01a4 1d0e | | Execute_Immediate Reference_Lex_1,0xe 01a5 00c7 | | Action Elaborate_Subprogram 01a6 1d0f | | Execute_Immediate Reference_Lex_1,0xf 01a7 00c7 | | Action Elaborate_Subprogram 01a8 BODY_0198: 01a8 00bc | | Action Signal_Activated 01a9 00bb | | Action Signal_Completion 01aa 0000 0000 | | .BLANK 0000[0x6] 01b0 ; -------------------------------------------------------------------------------------- 01b0 ; SUBPROGRAM 01b0 ; -------------------------------------------------------------------------------------- 01b0 01b3 | | .CONST 0x01b3 ; Address of begin 01b1 0004 | | .CONST 0x0004 ; Address of exception handler 01b2 0001 | | .CONST 0x0001 ; Number of locals 01b3 BODY_01b0: 01b3 INIT_01b0: 01b3 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01b4 0000 0000 | | .BLANK 0000[0x4] 01b8 ; -------------------------------------------------------------------------------------- 01b8 ; SUBPROGRAM 01b8 ; -------------------------------------------------------------------------------------- 01b8 01bb | | .CONST 0x01bb ; Address of begin 01b9 0004 | | .CONST 0x0004 ; Address of exception handler 01ba 0001 | | .CONST 0x0001 ; Number of locals 01bb BODY_01b8: 01bb INIT_01b8: 01bb 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01bc 0000 0000 | | .BLANK 0000[0x4] 01c0 ; -------------------------------------------------------------------------------------- 01c0 ; SUBPROGRAM 01c0 ; -------------------------------------------------------------------------------------- 01c0 01c3 | | .CONST 0x01c3 ; Address of begin 01c1 0004 | | .CONST 0x0004 ; Address of exception handler 01c2 0001 | | .CONST 0x0001 ; Number of locals 01c3 BODY_01c0: 01c3 INIT_01c0: 01c3 4800 |H | Short_Literal 0x0 01c4 00ca | | Action Exit_Nullary_Function 01c5 0000 0000 | | .XXX[0x3] 01c7 0000 | | 01c8 ; -------------------------------------------------------------------------------------- 01c8 ; SUBPROGRAM 01c8 ; -------------------------------------------------------------------------------------- 01c8 01d8 | | .CONST 0x01d8 ; Address of begin 01c9 0004 | | .CONST 0x0004 ; Address of exception handler 01ca 000f | | .CONST 0x000f ; Number of locals 01cb INIT_01c8: 01cb 029a 01e3 | | Declare_Subprogram INIT_01e0,For_Outer_Call,Visible,Unelaborated 01cd 029a 01eb | | Declare_Subprogram INIT_01e8,For_Outer_Call,Visible,Unelaborated 01cf 029a 01f3 | | Declare_Subprogram INIT_01f0,For_Outer_Call,Visible,Unelaborated 01d1 00bf | | Action Accept_Activation 01d2 1d0d | | Execute_Immediate Reference_Lex_1,0xd 01d3 00c7 | | Action Elaborate_Subprogram 01d4 1d0e | | Execute_Immediate Reference_Lex_1,0xe 01d5 00c7 | | Action Elaborate_Subprogram 01d6 1d0f | | Execute_Immediate Reference_Lex_1,0xf 01d7 00c7 | | Action Elaborate_Subprogram 01d8 BODY_01c8: 01d8 00bc | | Action Signal_Activated 01d9 00bb | | Action Signal_Completion 01da 0000 0000 | | .BLANK 0000[0x6] 01e0 ; -------------------------------------------------------------------------------------- 01e0 ; SUBPROGRAM 01e0 ; -------------------------------------------------------------------------------------- 01e0 01e3 | | .CONST 0x01e3 ; Address of begin 01e1 0004 | | .CONST 0x0004 ; Address of exception handler 01e2 0001 | | .CONST 0x0001 ; Number of locals 01e3 BODY_01e0: 01e3 INIT_01e0: 01e3 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01e4 0000 0000 | | .BLANK 0000[0x4] 01e8 ; -------------------------------------------------------------------------------------- 01e8 ; SUBPROGRAM 01e8 ; -------------------------------------------------------------------------------------- 01e8 01eb | | .CONST 0x01eb ; Address of begin 01e9 0004 | | .CONST 0x0004 ; Address of exception handler 01ea 0001 | | .CONST 0x0001 ; Number of locals 01eb BODY_01e8: 01eb INIT_01e8: 01eb 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01ec 0000 0000 | | .BLANK 0000[0x4] 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 4800 |H | Short_Literal 0x0 01f4 00ca | | Action Exit_Nullary_Function 01f5 0000 0000 | | .XXX[0x3] 01f7 0000 | | 01f8 ; -------------------------------------------------------------------------------------- 01f8 ; SUBPROGRAM 01f8 ; -------------------------------------------------------------------------------------- 01f8 0208 | | .CONST 0x0208 ; Address of begin 01f9 0004 | | .CONST 0x0004 ; Address of exception handler 01fa 000f | | .CONST 0x000f ; Number of locals 01fb INIT_01f8: 01fb 029a 0213 | | Declare_Subprogram INIT_0210,For_Outer_Call,Visible,Unelaborated 01fd 029a 021b | | Declare_Subprogram INIT_0218,For_Outer_Call,Visible,Unelaborated 01ff 029a 0223 | #| Declare_Subprogram INIT_0220,For_Outer_Call,Visible,Unelaborated 0201 00bf | | Action Accept_Activation 0202 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0203 00c7 | | Action Elaborate_Subprogram 0204 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0205 00c7 | | Action Elaborate_Subprogram 0206 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0207 00c7 | | Action Elaborate_Subprogram 0208 BODY_01f8: 0208 00bc | | Action Signal_Activated 0209 00bb | | Action Signal_Completion 020a 0000 0000 | | .BLANK 0000[0x6] 0210 ; -------------------------------------------------------------------------------------- 0210 ; SUBPROGRAM 0210 ; -------------------------------------------------------------------------------------- 0210 0213 | | .CONST 0x0213 ; Address of begin 0211 0004 | | .CONST 0x0004 ; Address of exception handler 0212 0001 | | .CONST 0x0001 ; Number of locals 0213 BODY_0210: 0213 INIT_0210: 0213 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0214 0000 0000 | | .BLANK 0000[0x4] 0218 ; -------------------------------------------------------------------------------------- 0218 ; SUBPROGRAM 0218 ; -------------------------------------------------------------------------------------- 0218 021b | | .CONST 0x021b ; Address of begin 0219 0004 | | .CONST 0x0004 ; Address of exception handler 021a 0001 | | .CONST 0x0001 ; Number of locals 021b BODY_0218: 021b INIT_0218: 021b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 021c 0000 0000 | | .BLANK 0000[0x4] 0220 ; -------------------------------------------------------------------------------------- 0220 ; SUBPROGRAM 0220 ; -------------------------------------------------------------------------------------- 0220 0223 | # | .CONST 0x0223 ; Address of begin 0221 0004 | | .CONST 0x0004 ; Address of exception handler 0222 0001 | | .CONST 0x0001 ; Number of locals 0223 BODY_0220: 0223 INIT_0220: 0223 4800 |H | Short_Literal 0x0 0224 00ca | | Action Exit_Nullary_Function 0225 0000 0000 | | .XXX[0x3] 0227 0000 | | 0228 ; -------------------------------------------------------------------------------------- 0228 ; SUBPROGRAM 0228 ; -------------------------------------------------------------------------------------- 0228 023c | < | .CONST 0x023c ; Address of begin 0229 0004 | | .CONST 0x0004 ; Address of exception handler 022a 0010 | | .CONST 0x0010 ; Number of locals 022b INIT_0228: 022b 029a 0243 | C| Declare_Subprogram INIT_0240,For_Outer_Call,Visible,Unelaborated 022d 029a 024b | K| Declare_Subprogram INIT_0248,For_Outer_Call,Visible,Unelaborated 022f 029a 0253 | S| Declare_Subprogram INIT_0250,For_Outer_Call,Visible,Unelaborated 0231 029a 025b | [| Declare_Subprogram INIT_0258,For_Outer_Call,Visible,Unelaborated 0233 00bf | | Action Accept_Activation 0234 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0235 00c7 | | Action Elaborate_Subprogram 0236 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0237 00c7 | | Action Elaborate_Subprogram 0238 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0239 00c7 | | Action Elaborate_Subprogram 023a 1d10 | | Execute_Immediate Reference_Lex_1,0x10 023b 00c7 | | Action Elaborate_Subprogram 023c BODY_0228: 023c 00bc | | Action Signal_Activated 023d 00bb | | Action Signal_Completion 023e 0000 0000 | | .XXX[0x2] 0240 ; -------------------------------------------------------------------------------------- 0240 ; SUBPROGRAM 0240 ; -------------------------------------------------------------------------------------- 0240 0243 | C | .CONST 0x0243 ; Address of begin 0241 0004 | | .CONST 0x0004 ; Address of exception handler 0242 0001 | | .CONST 0x0001 ; Number of locals 0243 BODY_0240: 0243 INIT_0240: 0243 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0244 0000 0000 | | .BLANK 0000[0x4] 0248 ; -------------------------------------------------------------------------------------- 0248 ; SUBPROGRAM 0248 ; -------------------------------------------------------------------------------------- 0248 024b | K | .CONST 0x024b ; Address of begin 0249 0004 | | .CONST 0x0004 ; Address of exception handler 024a 0001 | | .CONST 0x0001 ; Number of locals 024b BODY_0248: 024b INIT_0248: 024b 4502 |E | Exit_Suprogram New_Top_Offset 0x2 024c 0000 0000 | | .BLANK 0000[0x4] 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 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0254 0000 0000 | | .BLANK 0000[0x4] 0258 ; -------------------------------------------------------------------------------------- 0258 ; SUBPROGRAM 0258 ; -------------------------------------------------------------------------------------- 0258 025b | [ | .CONST 0x025b ; Address of begin 0259 0004 | | .CONST 0x0004 ; Address of exception handler 025a 0001 | | .CONST 0x0001 ; Number of locals 025b BODY_0258: 025b INIT_0258: 025b 4800 |H | Short_Literal 0x0 025c 00ca | | Action Exit_Nullary_Function 025d 0000 0000 | | .XXX[0x3] 025f 0000 | | 0260 ; -------------------------------------------------------------------------------------- 0260 ; SUBPROGRAM 0260 ; -------------------------------------------------------------------------------------- 0260 0274 | t | .CONST 0x0274 ; Address of begin 0261 0004 | | .CONST 0x0004 ; Address of exception handler 0262 0010 | | .CONST 0x0010 ; Number of locals 0263 INIT_0260: 0263 029a 027b | {| Declare_Subprogram INIT_0278,For_Outer_Call,Visible,Unelaborated 0265 029a 0283 | | Declare_Subprogram INIT_0280,For_Outer_Call,Visible,Unelaborated 0267 029a 028b | | Declare_Subprogram INIT_0288,For_Outer_Call,Visible,Unelaborated 0269 029a 0293 | | Declare_Subprogram INIT_0290,For_Outer_Call,Visible,Unelaborated 026b 00bf | | Action Accept_Activation 026c 1d0d | | Execute_Immediate Reference_Lex_1,0xd 026d 00c7 | | Action Elaborate_Subprogram 026e 1d0e | | Execute_Immediate Reference_Lex_1,0xe 026f 00c7 | | Action Elaborate_Subprogram 0270 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0271 00c7 | | Action Elaborate_Subprogram 0272 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0273 00c7 | | Action Elaborate_Subprogram 0274 BODY_0260: 0274 00bc | | Action Signal_Activated 0275 00bb | | Action Signal_Completion 0276 0000 0000 | | .XXX[0x2] 0278 ; -------------------------------------------------------------------------------------- 0278 ; SUBPROGRAM 0278 ; -------------------------------------------------------------------------------------- 0278 027b | { | .CONST 0x027b ; Address of begin 0279 0004 | | .CONST 0x0004 ; Address of exception handler 027a 0001 | | .CONST 0x0001 ; Number of locals 027b BODY_0278: 027b INIT_0278: 027b 4502 |E | Exit_Suprogram New_Top_Offset 0x2 027c 0000 0000 | | .BLANK 0000[0x4] 0280 ; -------------------------------------------------------------------------------------- 0280 ; SUBPROGRAM 0280 ; -------------------------------------------------------------------------------------- 0280 0283 | | .CONST 0x0283 ; Address of begin 0281 0004 | | .CONST 0x0004 ; Address of exception handler 0282 0001 | | .CONST 0x0001 ; Number of locals 0283 BODY_0280: 0283 INIT_0280: 0283 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0284 0000 0000 | | .BLANK 0000[0x4] 0288 ; -------------------------------------------------------------------------------------- 0288 ; SUBPROGRAM 0288 ; -------------------------------------------------------------------------------------- 0288 028b | | .CONST 0x028b ; Address of begin 0289 0004 | | .CONST 0x0004 ; Address of exception handler 028a 0001 | | .CONST 0x0001 ; Number of locals 028b BODY_0288: 028b INIT_0288: 028b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 028c 0000 0000 | | .BLANK 0000[0x4] 0290 ; -------------------------------------------------------------------------------------- 0290 ; SUBPROGRAM 0290 ; -------------------------------------------------------------------------------------- 0290 0293 | | .CONST 0x0293 ; Address of begin 0291 0004 | | .CONST 0x0004 ; Address of exception handler 0292 0001 | | .CONST 0x0001 ; Number of locals 0293 BODY_0290: 0293 INIT_0290: 0293 4800 |H | Short_Literal 0x0 0294 00ca | | Action Exit_Nullary_Function 0295 0000 0000 | | .XXX[0x3] 0297 0000 | | 0298 ; -------------------------------------------------------------------------------------- 0298 ; SUBPROGRAM 0298 ; -------------------------------------------------------------------------------------- 0298 02b6 | | .CONST 0x02b6 ; Address of begin 0299 0004 | | .CONST 0x0004 ; Address of exception handler 029a 0011 | | .CONST 0x0011 ; Number of locals 029b INIT_0298: 029b 4803 |H | Short_Literal 0x3 029c 032b | + | Declare_Type Record,Incomplete,Visible 029d 029a 02bb | | Declare_Subprogram INIT_02b8,For_Outer_Call,Visible,Unelaborated 029f 029a 02cb | | Declare_Subprogram INIT_02c8,For_Outer_Call,Visible,Unelaborated 02a1 029a 02e3 | | Declare_Subprogram INIT_02e0,For_Outer_Call,Visible,Unelaborated 02a3 029a 02fb | | Declare_Subprogram INIT_02f8,For_Outer_Call,Visible,Unelaborated 02a5 00e1 | | Load_Encached Boolean_Cache 02a6 e001 | | Load 0x0,0x1 02a7 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02a8 00e1 | | Load_Encached Boolean_Cache 02a9 029f 030b | | Declare_Subprogram INIT_0308,For_Call 02ab e20d | | Load 0x1,0xd 02ac 0326 | & | Complete_Type Record,By_Defining 02ad 00bf | | Action Accept_Activation 02ae 1d0e | | Execute_Immediate Reference_Lex_1,0xe 02af 00c7 | | Action Elaborate_Subprogram 02b0 1d0f | | Execute_Immediate Reference_Lex_1,0xf 02b1 00c7 | | Action Elaborate_Subprogram 02b2 1d10 | | Execute_Immediate Reference_Lex_1,0x10 02b3 00c7 | | Action Elaborate_Subprogram 02b4 1d11 | | Execute_Immediate Reference_Lex_1,0x11 02b5 00c7 | | Action Elaborate_Subprogram 02b6 BODY_0298: 02b6 00bc | | Action Signal_Activated 02b7 00bb | | Action Signal_Completion 02b8 ; -------------------------------------------------------------------------------------- 02b8 ; SUBPROGRAM 02b8 ; -------------------------------------------------------------------------------------- 02b8 02bb | | .CONST 0x02bb ; Address of begin 02b9 0004 | | .CONST 0x0004 ; Address of exception handler 02ba 0001 | | .CONST 0x0001 ; Number of locals 02bb BODY_02b8: 02bb INIT_02b8: 02bb 00db | | Load_Top At_Offset_3 02bc e001 | | Load 0x0,0x1 02bd 181e | | Execute Package,Field_Execute,Field_Number 0x1e 02be 0e01 | | Execute_Immediate Not_Equal,0x1 02bf e5fc | | Load 0x2,-0x4 02c0 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 02c1 00db | | Load_Top At_Offset_3 02c2 e5fc | | Load 0x2,-0x4 02c3 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 02c4 e5fd | | Load 0x2,-0x3 02c5 e5fc | | Load 0x2,-0x4 02c6 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 02c7 4504 |E | Exit_Suprogram New_Top_Offset 0x4 02c8 ; -------------------------------------------------------------------------------------- 02c8 ; SUBPROGRAM 02c8 ; -------------------------------------------------------------------------------------- 02c8 02d0 | | .CONST 0x02d0 ; Address of begin 02c9 0004 | | .CONST 0x0004 ; Address of exception handler 02ca 0002 | | .CONST 0x0002 ; Number of locals 02cb INIT_02c8: 02cb e20d | | Load 0x1,0xd 02cc 0322 | " | Declare_Variable Record 02cd 00db | | Load_Top At_Offset_3 02ce 00d9 | | Load_Top At_Offset_1 02cf 017d | } | Execute Record,Structure_Write 02d0 BODY_02c8: 02d0 00d8 | | Load_Top At_Offset_0 02d1 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 02d2 7005 |p | Jump_Nonzero 0x2d8 02d3 e5fd | | Load 0x2,-0x3 02d4 00d9 | | Load_Top At_Offset_1 02d5 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 02d6 e001 | | Load 0x0,0x1 02d7 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 02d8 4504 |E | Exit_Suprogram New_Top_Offset 0x4 02d9 0000 0000 | | .BLANK 0000[0x7] 02e0 ; -------------------------------------------------------------------------------------- 02e0 ; SUBPROGRAM 02e0 ; -------------------------------------------------------------------------------------- 02e0 02e8 | | .CONST 0x02e8 ; Address of begin 02e1 0004 | | .CONST 0x0004 ; Address of exception handler 02e2 0002 | | .CONST 0x0002 ; Number of locals 02e3 INIT_02e0: 02e3 e20d | | Load 0x1,0xd 02e4 0322 | " | Declare_Variable Record 02e5 00db | | Load_Top At_Offset_3 02e6 00d9 | | Load_Top At_Offset_1 02e7 017d | } | Execute Record,Structure_Write 02e8 BODY_02e0: 02e8 00d8 | | Load_Top At_Offset_0 02e9 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 02ea 7009 |p | Jump_Nonzero 0x2f4 02eb 00db | | Load_Top At_Offset_3 02ec 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 02ed 7006 |p | Jump_Nonzero 0x2f4 02ee 00d8 | | Load_Top At_Offset_0 02ef 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 02f0 e001 | | Load 0x0,0x1 02f1 1819 | | Execute Package,Field_Execute,Field_Number 0x19 02f2 00d9 | | Load_Top At_Offset_1 02f3 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 02f4 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02f5 0000 0000 | | .XXX[0x3] 02f7 0000 | | 02f8 ; -------------------------------------------------------------------------------------- 02f8 ; SUBPROGRAM 02f8 ; -------------------------------------------------------------------------------------- 02f8 02fb | | .CONST 0x02fb ; Address of begin 02f9 0004 | | .CONST 0x0004 ; Address of exception handler 02fa 0001 | | .CONST 0x0001 ; Number of locals 02fb BODY_02f8: 02fb INIT_02f8: 02fb 00da | | Load_Top At_Offset_2 02fc 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 02fd 6802 |h | Jump_Zero 0x300 02fe 4807 |H | Short_Literal 0x7 02ff 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0300 4800 |H | Short_Literal 0x0 0301 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0302 0000 0000 | | .BLANK 0000[0x6] 0308 ; -------------------------------------------------------------------------------------- 0308 ; SUBPROGRAM 0308 ; -------------------------------------------------------------------------------------- 0308 030b | | .CONST 0x030b ; Address of begin 0309 0004 | | .CONST 0x0004 ; Address of exception handler 030a 0001 | | .CONST 0x0001 ; Number of locals 030b BODY_0308: 030b INIT_0308: 030b 4608 |F | Jump_Case 0x9 030c 7808 |x | Jump 0x315 ; case 0x0 030d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 030e 7813 |x | Jump 0x322 ; case 0x2 030f 7812 |x | Jump 0x322 ; case 0x3 0310 7811 |x | Jump 0x322 ; case 0x4 0311 7810 |x | Jump 0x322 ; case 0x5 0312 780f |x | Jump 0x322 ; case 0x6 0313 780e |x | Jump 0x322 ; case 0x7 0314 780d |x | Jump 0x322 ; case 0x8 0315 4801 |H | Short_Literal 0x1 0316 00db | | Load_Top At_Offset_3 0317 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0318 00da | | Load_Top At_Offset_2 0319 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 031a 0125 | % | Execute Any,Set_Constraint 031b 00da | | Load_Top At_Offset_2 031c 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 031d 1c00 | | Execute_Immediate Run_Utility,0x0 031e 4800 |H | Short_Literal 0x0 031f 00db | | Load_Top At_Offset_3 0320 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0321 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0322 0869 | i | Execute_Immediate Raise,0x69 0323 0000 0000 | | .BLANK 0000[0x5] 0328 ; -------------------------------------------------------------------------------------- 0328 ; SUBPROGRAM 0328 ; -------------------------------------------------------------------------------------- 0328 034a | J | .CONST 0x034a ; Address of begin 0329 0004 | | .CONST 0x0004 ; Address of exception handler 032a 0012 | | .CONST 0x0012 ; Number of locals 032b INIT_0328: 032b 4803 |H | Short_Literal 0x3 032c 032b | + | Declare_Type Record,Incomplete,Visible 032d 029a 0353 | S| Declare_Subprogram INIT_0350,For_Outer_Call,Visible,Unelaborated 032f 029a 0363 | c| Declare_Subprogram INIT_0360,For_Outer_Call,Visible,Unelaborated 0331 029a 0373 | s| Declare_Subprogram INIT_0370,For_Outer_Call,Visible,Unelaborated 0333 029a 03ab | | Declare_Subprogram INIT_03a8,For_Outer_Call,Visible,Unelaborated 0335 029a 03c3 | | Declare_Subprogram INIT_03c0,For_Outer_Call,Visible,Unelaborated 0337 00e1 | | Load_Encached Boolean_Cache 0338 e001 | | Load 0x0,0x1 0339 1b0d | | Execute Package,Field_Read,Field_Number 0xd 033a 00e1 | | Load_Encached Boolean_Cache 033b 029f 03d3 | | Declare_Subprogram INIT_03d0,For_Call 033d e20d | | Load 0x1,0xd 033e 0326 | & | Complete_Type Record,By_Defining 033f 00bf | | Action Accept_Activation 0340 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0341 00c7 | | Action Elaborate_Subprogram 0342 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0343 00c7 | | Action Elaborate_Subprogram 0344 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0345 00c7 | | Action Elaborate_Subprogram 0346 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0347 00c7 | | Action Elaborate_Subprogram 0348 1d12 | | Execute_Immediate Reference_Lex_1,0x12 0349 00c7 | | Action Elaborate_Subprogram 034a BODY_0328: 034a 00bc | | Action Signal_Activated 034b 00bb | | Action Signal_Completion 034c 0000 0000 | | .BLANK 0000[0x4] 0350 ; -------------------------------------------------------------------------------------- 0350 ; SUBPROGRAM 0350 ; -------------------------------------------------------------------------------------- 0350 0353 | S | .CONST 0x0353 ; Address of begin 0351 0004 | | .CONST 0x0004 ; Address of exception handler 0352 0001 | | .CONST 0x0001 ; Number of locals 0353 BODY_0350: 0353 INIT_0350: 0353 00da | | Load_Top At_Offset_2 0354 e001 | | Load 0x0,0x1 0355 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0356 0e00 | | Execute_Immediate Not_Equal,0x0 0357 e5fc | | Load 0x2,-0x4 0358 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0359 00da | | Load_Top At_Offset_2 035a e5fc | | Load 0x2,-0x4 035b 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 035c 00db | | Load_Top At_Offset_3 035d e5fc | | Load 0x2,-0x4 035e 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 035f 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0360 ; -------------------------------------------------------------------------------------- 0360 ; SUBPROGRAM 0360 ; -------------------------------------------------------------------------------------- 0360 0363 | c | .CONST 0x0363 ; Address of begin 0361 0004 | | .CONST 0x0004 ; Address of exception handler 0362 0001 | | .CONST 0x0001 ; Number of locals 0363 BODY_0360: 0363 INIT_0360: 0363 00da | | Load_Top At_Offset_2 0364 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0365 7005 |p | Jump_Nonzero 0x36b 0366 00da | | Load_Top At_Offset_2 0367 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0368 e001 | | Load 0x0,0x1 0369 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 036a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 036b 4801 |H | Short_Literal 0x1 036c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 036d 0000 0000 | | .XXX[0x3] 036f 0000 | | 0370 ; -------------------------------------------------------------------------------------- 0370 ; SUBPROGRAM 0370 ; -------------------------------------------------------------------------------------- 0370 0380 | | .CONST 0x0380 ; Address of begin 0371 0004 | | .CONST 0x0004 ; Address of exception handler 0372 0004 | | .CONST 0x0004 ; Number of locals 0373 INIT_0370: 0373 4801 |H | Short_Literal 0x1 0374 602b |`+ | Indirect_Literal Discrete,0x3a0,{0x00000000, 0x000007d0} 0375 e002 | | Load 0x0,0x2 0376 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0377 035b | [ | Declare_Type Array,Constrained 0378 0337 | 7 | Declare_Variable Array 0379 4801 |H | Short_Literal 0x1 037a 4800 |H | Short_Literal 0x0 037b e002 | | Load 0x0,0x2 037c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 037d 035b | [ | Declare_Type Array,Constrained 037e 0337 | 7 | Declare_Variable Array 037f 00e3 | | Load_Encached Natural_Cache 0380 BODY_0370: 0380 e5ff | | Load 0x2,-0x1 0381 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0382 7015 |p | Jump_Nonzero 0x398 0383 00e3 | | Load_Encached Natural_Cache 0384 00db | | Load_Top At_Offset_3 0385 e5ff | | Load 0x2,-0x1 0386 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0387 e001 | | Load 0x0,0x1 0388 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0389 00d1 | | Pop_Control Pop_Count_1 038a 0059 | Y | Store_Top Discrete,At_Offset_1 038b 4801 |H | Short_Literal 0x1 038c 00d9 | | Load_Top At_Offset_1 038d 00d8 | | Load_Top At_Offset_0 038e 00e2 | | Load_Encached Integer_Cache 038f 0260 | ` | Execute Discrete,In_Type 0390 7001 |p | Jump_Nonzero 0x392 0391 0801 | | Execute_Immediate Raise,0x1 0392 e402 | | Load 0x2,0x2 0393 01cf | | Execute Vector,Slice_Read 0394 e003 | | Load 0x0,0x3 0395 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0396 01c6 | | Execute Vector,Convert_To_Formal 0397 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0398 00d9 | | Load_Top At_Offset_1 0399 e003 | | Load 0x0,0x3 039a 1b12 | | Execute Package,Field_Read,Field_Number 0x12 039b 01c6 | | Execute Vector,Convert_To_Formal 039c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 039d 0000 0000 | | .XXX[0x3] 039f 0000 | | 03a0 0000 0000 | | .LITERAL {0x00000000, 0x000007d0} 03a4 0000 0000 | | .BLANK 0000[0x4] 03a8 ; -------------------------------------------------------------------------------------- 03a8 ; SUBPROGRAM 03a8 ; -------------------------------------------------------------------------------------- 03a8 03b0 | | .CONST 0x03b0 ; Address of begin 03a9 0004 | | .CONST 0x0004 ; Address of exception handler 03aa 0002 | | .CONST 0x0002 ; Number of locals 03ab INIT_03a8: 03ab e20d | | Load 0x1,0xd 03ac 0322 | " | Declare_Variable Record 03ad 00db | | Load_Top At_Offset_3 03ae 00d9 | | Load_Top At_Offset_1 03af 017d | } | Execute Record,Structure_Write 03b0 BODY_03a8: 03b0 00db | | Load_Top At_Offset_3 03b1 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 03b2 7009 |p | Jump_Nonzero 0x3bc 03b3 00db | | Load_Top At_Offset_3 03b4 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 03b5 7006 |p | Jump_Nonzero 0x3bc 03b6 00d8 | | Load_Top At_Offset_0 03b7 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 03b8 e001 | | Load 0x0,0x1 03b9 1819 | | Execute Package,Field_Execute,Field_Number 0x19 03ba 00d9 | | Load_Top At_Offset_1 03bb 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 03bc 4502 |E | Exit_Suprogram New_Top_Offset 0x2 03bd 0000 0000 | | .XXX[0x3] 03bf 0000 | | 03c0 ; -------------------------------------------------------------------------------------- 03c0 ; SUBPROGRAM 03c0 ; -------------------------------------------------------------------------------------- 03c0 03c3 | | .CONST 0x03c3 ; Address of begin 03c1 0004 | | .CONST 0x0004 ; Address of exception handler 03c2 0001 | | .CONST 0x0001 ; Number of locals 03c3 BODY_03c0: 03c3 INIT_03c0: 03c3 00da | | Load_Top At_Offset_2 03c4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 03c5 6802 |h | Jump_Zero 0x3c8 03c6 4807 |H | Short_Literal 0x7 03c7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03c8 4800 |H | Short_Literal 0x0 03c9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03ca 0000 0000 | | .BLANK 0000[0x6] 03d0 ; -------------------------------------------------------------------------------------- 03d0 ; SUBPROGRAM 03d0 ; -------------------------------------------------------------------------------------- 03d0 03d3 | | .CONST 0x03d3 ; Address of begin 03d1 0004 | | .CONST 0x0004 ; Address of exception handler 03d2 0001 | | .CONST 0x0001 ; Number of locals 03d3 BODY_03d0: 03d3 INIT_03d0: 03d3 4608 |F | Jump_Case 0x9 03d4 7808 |x | Jump 0x3dd ; case 0x0 03d5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 03d6 7813 |x | Jump 0x3ea ; case 0x2 03d7 7812 |x | Jump 0x3ea ; case 0x3 03d8 7811 |x | Jump 0x3ea ; case 0x4 03d9 7810 |x | Jump 0x3ea ; case 0x5 03da 780f |x | Jump 0x3ea ; case 0x6 03db 780e |x | Jump 0x3ea ; case 0x7 03dc 780d |x | Jump 0x3ea ; case 0x8 03dd 4801 |H | Short_Literal 0x1 03de 00db | | Load_Top At_Offset_3 03df 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 03e0 00da | | Load_Top At_Offset_2 03e1 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 03e2 0125 | % | Execute Any,Set_Constraint 03e3 00da | | Load_Top At_Offset_2 03e4 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 03e5 1c00 | | Execute_Immediate Run_Utility,0x0 03e6 4800 |H | Short_Literal 0x0 03e7 00db | | Load_Top At_Offset_3 03e8 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 03e9 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 03ea 0869 | i | Execute_Immediate Raise,0x69 03eb 0000 0000 | | .BLANK 0000[0x5] 03f0 ; -------------------------------------------------------------------------------------- 03f0 ; SUBPROGRAM 03f0 ; -------------------------------------------------------------------------------------- 03f0 0400 | | .CONST 0x0400 ; Address of begin 03f1 0004 | | .CONST 0x0004 ; Address of exception handler 03f2 000f | | .CONST 0x000f ; Number of locals 03f3 INIT_03f0: 03f3 029a 040b | | Declare_Subprogram INIT_0408,For_Outer_Call,Visible,Unelaborated 03f5 029a 0413 | | Declare_Subprogram INIT_0410,For_Outer_Call,Visible,Unelaborated 03f7 029a 041b | | Declare_Subprogram INIT_0418,For_Outer_Call,Visible,Unelaborated 03f9 00bf | | Action Accept_Activation 03fa 1d0d | | Execute_Immediate Reference_Lex_1,0xd 03fb 00c7 | | Action Elaborate_Subprogram 03fc 1d0e | | Execute_Immediate Reference_Lex_1,0xe 03fd 00c7 | | Action Elaborate_Subprogram 03fe 1d0f | | Execute_Immediate Reference_Lex_1,0xf 03ff 00c7 | | Action Elaborate_Subprogram 0400 BODY_03f0: 0400 00bc | | Action Signal_Activated 0401 00bb | | Action Signal_Completion 0402 0000 0000 | | .BLANK 0000[0x6] 0408 ; -------------------------------------------------------------------------------------- 0408 ; SUBPROGRAM 0408 ; -------------------------------------------------------------------------------------- 0408 040b | | .CONST 0x040b ; Address of begin 0409 0004 | | .CONST 0x0004 ; Address of exception handler 040a 0001 | | .CONST 0x0001 ; Number of locals 040b BODY_0408: 040b INIT_0408: 040b 4503 |E | Exit_Suprogram New_Top_Offset 0x3 040c 0000 0000 | | .BLANK 0000[0x4] 0410 ; -------------------------------------------------------------------------------------- 0410 ; SUBPROGRAM 0410 ; -------------------------------------------------------------------------------------- 0410 0413 | | .CONST 0x0413 ; Address of begin 0411 0004 | | .CONST 0x0004 ; Address of exception handler 0412 0001 | | .CONST 0x0001 ; Number of locals 0413 BODY_0410: 0413 INIT_0410: 0413 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0414 0000 0000 | | .BLANK 0000[0x4] 0418 ; -------------------------------------------------------------------------------------- 0418 ; SUBPROGRAM 0418 ; -------------------------------------------------------------------------------------- 0418 041b | | .CONST 0x041b ; Address of begin 0419 0004 | | .CONST 0x0004 ; Address of exception handler 041a 0001 | | .CONST 0x0001 ; Number of locals 041b BODY_0418: 041b INIT_0418: 041b 4800 |H | Short_Literal 0x0 041c 00ca | | Action Exit_Nullary_Function 041d 0000 0000 | | .XXX[0x3] 041f 0000 | | 0420 ; -------------------------------------------------------------------------------------- 0420 ; Debug Table 0420 ; -------------------------------------------------------------------------------------- 0420 0004 000e | | .DEBUG4 0x0004,0x000e,0xf46b,0x0000,0x0001,0x0000 0426 8080 8080 | | .BLANK 8080[0x38] 045e 0000 0004 | | .XXX[0xa] 0460 0000 0004 | | 0462 0000 0004 | | 0464 0008 49a0 | I | 0466 0000 0008 | | 0468 0000 0000 | | .BLANK 0000[0x9] 0471 0010 | | .XXX[0x1] 0472 0000 0000 | | .BLANK 0000[0xb] 047d 0004 0000 | | .XXX[0x1d] 047f 0048 0000 | H | 0481 0000 0000 | | 0483 001c 1e00 | | 0485 0000 2400 | $ | 0487 0000 0000 | | 0489 0000 0c00 | | 048b 0000 4800 | H | 048d 0000 0000 | | 048f 0000 1000 | | 0491 0000 0000 | | 0493 0100 0000 | | 0495 1200 0000 | | 0497 0000 0000 | | 0499 0400 | | 049a 0000 0000 | | .BLANK 0000[0xa] 04a4 3c00 |< | .XXX[0x1] 04a5 0000 0000 | | .BLANK 0000[0x5] 04aa 0800 | | .XXX[0x1] 04ab 0000 0000 | | .BLANK 0000[0xb] 04b6 007f ffff | | .XXX[0x3] 04b8 ff80 | | 04b9 0404 0404 | | .BLANK 0404[0x81] 053a 0400 | | .XXX[0x1] 053b 0202 0202 | | .BLANK 0202[0x81] 05bc 0200 0000 | | .XXX[0xb] 05be 0010 0000 | | 05c0 0010 0000 | | 05c2 0010 0021 | !| 05c4 2680 0000 |& | 05c6 0020 | | 05c7 0000 0000 | | .BLANK 0000[0x9] 05d0 0040 | @ | .XXX[0x1] 05d1 0000 0000 | | .BLANK 0000[0xb] 05dc 0010 0000 | | .XXX[0x7] 05de 0120 0000 | | 05e0 0000 0000 | | 05e2 0040 | @ | 05e3 0000 0000 | | .BLANK 0000[0x1d]