|
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_779ce4
└─⟦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 0558 | X | .CONST 0x0558 ; 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 0119 | | .CONST 0x0119 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 002f | / | .CONST 0x002f ; Number of locals 000b INIT_0008: 000b 4800 |H | Short_Literal 0x0 000c 4801 |H | Short_Literal 0x1 000d 029f 0123 | #| Declare_Subprogram INIT_0120,For_Call 000f 03fe | | Declare_Type Discrete,Defined,Visible 0010 029a 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call,Visible,Unelaborated 0012 029a 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call,Visible,Unelaborated 0014 029a 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call,Visible,Unelaborated 0016 029a 018b | | Declare_Subprogram INIT_0188,For_Outer_Call,Visible,Unelaborated 0018 029a 019b | | Declare_Subprogram INIT_0198,For_Outer_Call,Visible,Unelaborated 001a 4802 |H | Short_Literal 0x2 001b e001 | | Load 0x0,0x1 001c 01d7 | | Execute Vector,Field_Read 001d 02a8 | | Declare_Subprogram For_Call,Visible,Unelaborated,With_Address 001e 029a 01c3 | | Declare_Subprogram INIT_01c0,For_Outer_Call,Visible,Unelaborated 0020 029a 01d3 | | Declare_Subprogram INIT_01d0,For_Outer_Call,Visible,Unelaborated 0022 029a 01e3 | | Declare_Subprogram INIT_01e0,For_Outer_Call,Visible,Unelaborated 0024 029a 01fb | | Declare_Subprogram INIT_01f8,For_Outer_Call,Visible,Unelaborated 0026 4800 |H | Short_Literal 0x0 0027 0093 043b | ;| push_full_address INIT_0438 0029 02a0 | | Declare_Subprogram Null_Subprogram 002a 038f | | Declare_Type Package,Defined,Visible 002b 0386 | | Declare_Variable Package,Visible 002c e002 | | Load 0x0,0x2 002d 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 002e e20d | | Load 0x1,0xd 002f e003 | | Load 0x0,0x3 0030 e004 | | Load 0x0,0x4 0031 e005 | | Load 0x0,0x5 0032 029f 040b | | Declare_Subprogram INIT_0408,For_Call 0034 4805 |H | Short_Literal 0x5 0035 032e | . | Declare_Type Record,Defined,Visible 0036 029a 020b | | Declare_Subprogram INIT_0208,For_Outer_Call,Visible,Unelaborated 0038 029a 0243 | C| Declare_Subprogram INIT_0240,For_Outer_Call,Visible,Unelaborated 003a 029a 025b | [| Declare_Subprogram INIT_0258,For_Outer_Call,Visible,Unelaborated 003c 029a 0273 | s| Declare_Subprogram INIT_0270,For_Outer_Call,Visible,Unelaborated 003e 029a 027b | {| Declare_Subprogram INIT_0278,For_Outer_Call,Visible,Unelaborated 0040 029a 029b | | Declare_Subprogram INIT_0298,For_Outer_Call,Visible,Unelaborated 0042 4800 |H | Short_Literal 0x0 0043 4804 |H | Short_Literal 0x4 0044 029f 02ab | | Declare_Subprogram INIT_02a8,For_Call 0046 03fe | | Declare_Type Discrete,Defined,Visible 0047 e219 | | Load 0x1,0x19 0048 00e1 | | Load_Encached Boolean_Cache 0049 00da | | Load_Top At_Offset_2 004a 00e1 | | Load_Encached Boolean_Cache 004b e006 | | Load 0x0,0x6 004c e007 | | Load 0x0,0x7 004d e008 | | Load 0x0,0x8 004e 029f 041b | | Declare_Subprogram INIT_0418,For_Call 0050 4807 |H | Short_Literal 0x7 0051 032e | . | Declare_Type Record,Defined,Visible 0052 029a 02d3 | | Declare_Subprogram INIT_02d0,For_Outer_Call,Visible,Unelaborated 0054 029a 02eb | | Declare_Subprogram INIT_02e8,For_Outer_Call,Visible,Unelaborated 0056 029a 02f3 | | Declare_Subprogram INIT_02f0,For_Outer_Call,Visible,Unelaborated 0058 029a 0313 | | Declare_Subprogram INIT_0310,For_Outer_Call,Visible,Unelaborated 005a 0093 0000 | | push_full_address 0x0 005c 60eb |` | Indirect_Literal Discrete,0x148,{0x80000000, 0x00010000} 005d 0273 | s | Execute Discrete,Plus 005e e009 | | Load 0x0,0x9 005f 0273 | s | Execute Discrete,Plus 0060 e00a | | Load 0x0,0xa 0061 0273 | s | Execute Discrete,Plus 0062 e219 | | Load 0x1,0x19 0063 e221 | ! | Load 0x1,0x21 0064 4801 |H | Short_Literal 0x1 0065 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 0066 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 0067 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 0068 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 0069 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 006a 1d22 | " | Execute_Immediate Reference_Lex_1,0x22 006b 1d23 | # | Execute_Immediate Reference_Lex_1,0x23 006c 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24 006d 1d25 | % | Execute_Immediate Reference_Lex_1,0x25 006e 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 006f e00b | | Load 0x0,0xb 0070 480d |H | Short_Literal 0xd 0071 e00c | | Load 0x0,0xc 0072 0386 | | Declare_Variable Package,Visible 0073 00d8 | | Load_Top At_Offset_0 0074 020f | | Execute Module,Activate 0075 e00d | | Load 0x0,0xd 0076 00d9 | | Load_Top At_Offset_1 0077 0098 | | Execute Package,Field_Read_Dynamic 0078 0129 | ) | Execute Any,Make_Visible 0079 00bf | | Action Accept_Activation 007a e220 | | Load 0x1,0x20 007b 0266 | f | Execute Discrete,Bounds 007c 00e1 | | Load_Encached Boolean_Cache 007d 02a0 | | Declare_Subprogram Null_Subprogram 007e 4801 |H | Short_Literal 0x1 007f 035d | ] | Declare_Type Array,Defined 0080 00d8 | | Load_Top At_Offset_0 0081 0337 | 7 | Declare_Variable Array 0082 00d8 | | Load_Top At_Offset_0 0083 0335 | 5 | Declare_Variable Array,Duplicate 0084 00cd | | Action Spare6_Action 0085 4800 |H | Short_Literal 0x0 0086 4800 |H | Short_Literal 0x0 0087 00da | | Load_Top At_Offset_2 0088 01d6 | | Execute Vector,Field_Write 0089 4800 |H | Short_Literal 0x0 008a 4801 |H | Short_Literal 0x1 008b 00da | | Load_Top At_Offset_2 008c 01d6 | | Execute Vector,Field_Write 008d 4801 |H | Short_Literal 0x1 008e 4802 |H | Short_Literal 0x2 008f 00da | | Load_Top At_Offset_2 0090 01d6 | | Execute Vector,Field_Write 0091 4801 |H | Short_Literal 0x1 0092 4803 |H | Short_Literal 0x3 0093 00da | | Load_Top At_Offset_2 0094 01d6 | | Execute Vector,Field_Write 0095 4801 |H | Short_Literal 0x1 0096 4804 |H | Short_Literal 0x4 0097 00da | | Load_Top At_Offset_2 0098 01d6 | | Execute Vector,Field_Write 0099 00d9 | | Load_Top At_Offset_1 009a 01d4 | | Execute Vector,Structure_Write 009b e00e | | Load 0x0,0xe 009c e00f | | Load 0x0,0xf 009d e220 | | Load 0x1,0x20 009e 4800 |H | Short_Literal 0x0 009f 4801 |H | Short_Literal 0x1 00a0 4804 |H | Short_Literal 0x4 00a1 0092 0505 | | Action Push_String_Extended,0x505 ; "others => Unspecified" 00a3 00ea | | Load_Encached Null_String_Cache 00a4 00ea | | Load_Encached Null_String_Cache 00a5 4801 |H | Short_Literal 0x1 00a6 4804 |H | Short_Literal 0x4 00a7 e010 | | Load 0x0,0x10 00a8 0387 | | Declare_Variable Package 00a9 00d8 | | Load_Top At_Offset_0 00aa 020f | | Execute Module,Activate 00ab 1d0e | | Execute_Immediate Reference_Lex_1,0xe 00ac 00c7 | | Action Elaborate_Subprogram 00ad 1d0f | | Execute_Immediate Reference_Lex_1,0xf 00ae 00c7 | | Action Elaborate_Subprogram 00af 1d10 | | Execute_Immediate Reference_Lex_1,0x10 00b0 00c7 | | Action Elaborate_Subprogram 00b1 1d11 | | Execute_Immediate Reference_Lex_1,0x11 00b2 00c7 | | Action Elaborate_Subprogram 00b3 1d12 | | Execute_Immediate Reference_Lex_1,0x12 00b4 00c7 | | Action Elaborate_Subprogram 00b5 1d13 | | Execute_Immediate Reference_Lex_1,0x13 00b6 00c7 | | Action Elaborate_Subprogram 00b7 1d14 | | Execute_Immediate Reference_Lex_1,0x14 00b8 00c7 | | Action Elaborate_Subprogram 00b9 1d15 | | Execute_Immediate Reference_Lex_1,0x15 00ba 00c7 | | Action Elaborate_Subprogram 00bb 1d16 | | Execute_Immediate Reference_Lex_1,0x16 00bc 00c7 | | Action Elaborate_Subprogram 00bd 1d17 | | Execute_Immediate Reference_Lex_1,0x17 00be 00c7 | | Action Elaborate_Subprogram 00bf e011 | | Load 0x0,0x11 00c0 e012 | | Load 0x0,0x12 00c1 e226 | & | Load 0x1,0x26 00c2 0098 | | Execute Package,Field_Read_Dynamic 00c3 0095 | | Execute Package,Field_Reference_Dynamic 00c4 e00d | | Load 0x0,0xd 00c5 e226 | & | Load 0x1,0x26 00c6 0098 | | Execute Package,Field_Read_Dynamic 00c7 e013 | | Load 0x0,0x13 00c8 e012 | | Load 0x0,0x12 00c9 e226 | & | Load 0x1,0x26 00ca 0098 | | Execute Package,Field_Read_Dynamic 00cb 0095 | | Execute Package,Field_Reference_Dynamic 00cc e014 | | Load 0x0,0x14 00cd e012 | | Load 0x0,0x12 00ce e226 | & | Load 0x1,0x26 00cf 0098 | | Execute Package,Field_Read_Dynamic 00d0 0095 | | Execute Package,Field_Reference_Dynamic 00d1 e015 | | Load 0x0,0x15 00d2 e012 | | Load 0x0,0x12 00d3 e226 | & | Load 0x1,0x26 00d4 0098 | | Execute Package,Field_Read_Dynamic 00d5 0095 | | Execute Package,Field_Reference_Dynamic 00d6 e016 | | Load 0x0,0x16 00d7 e012 | | Load 0x0,0x12 00d8 e226 | & | Load 0x1,0x26 00d9 0098 | | Execute Package,Field_Read_Dynamic 00da 0095 | | Execute Package,Field_Reference_Dynamic 00db e017 | | Load 0x0,0x17 00dc e012 | | Load 0x0,0x12 00dd e226 | & | Load 0x1,0x26 00de 0098 | | Execute Package,Field_Read_Dynamic 00df 0095 | | Execute Package,Field_Reference_Dynamic 00e0 e018 | | Load 0x0,0x18 00e1 e012 | | Load 0x0,0x12 00e2 e226 | & | Load 0x1,0x26 00e3 0098 | | Execute Package,Field_Read_Dynamic 00e4 0095 | | Execute Package,Field_Reference_Dynamic 00e5 e019 | | Load 0x0,0x19 00e6 e012 | | Load 0x0,0x12 00e7 e226 | & | Load 0x1,0x26 00e8 0098 | | Execute Package,Field_Read_Dynamic 00e9 0095 | | Execute Package,Field_Reference_Dynamic 00ea e01a | | Load 0x0,0x1a 00eb e012 | | Load 0x0,0x12 00ec e226 | & | Load 0x1,0x26 00ed 0098 | | Execute Package,Field_Read_Dynamic 00ee 0095 | | Execute Package,Field_Reference_Dynamic 00ef e219 | | Load 0x1,0x19 00f0 e01b | | Load 0x0,0x1b 00f1 e226 | & | Load 0x1,0x26 00f2 0095 | | Execute Package,Field_Reference_Dynamic 00f3 e01c | | Load 0x0,0x1c 00f4 e226 | & | Load 0x1,0x26 00f5 0095 | | Execute Package,Field_Reference_Dynamic 00f6 480d |H | Short_Literal 0xd 00f7 e218 | | Load 0x1,0x18 00f8 020e | | Execute Module,Augment_Imports 00f9 e218 | | Load 0x1,0x18 00fa 020f | | Execute Module,Activate 00fb 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 00fc 00c7 | | Action Elaborate_Subprogram 00fd 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 00fe 00c7 | | Action Elaborate_Subprogram 00ff 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 0100 00c7 | | Action Elaborate_Subprogram 0101 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 0102 00c7 | | Action Elaborate_Subprogram 0103 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 0104 00c7 | | Action Elaborate_Subprogram 0105 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 0106 00c7 | | Action Elaborate_Subprogram 0107 029d 0343 | C| Declare_Subprogram INIT_0340,For_Outer_Call 0109 029d 036b | k| Declare_Subprogram INIT_0368,For_Outer_Call 010b 029d 038b | | Declare_Subprogram INIT_0388,For_Outer_Call 010d 029d 03a3 | | Declare_Subprogram INIT_03a0,For_Outer_Call 010f 029d 03b3 | | Declare_Subprogram INIT_03b0,For_Outer_Call 0111 1d22 | " | Execute_Immediate Reference_Lex_1,0x22 0112 00c7 | | Action Elaborate_Subprogram 0113 1d23 | # | Execute_Immediate Reference_Lex_1,0x23 0114 00c7 | | Action Elaborate_Subprogram 0115 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24 0116 00c7 | | Action Elaborate_Subprogram 0117 1d25 | % | Execute_Immediate Reference_Lex_1,0x25 0118 00c7 | | Action Elaborate_Subprogram 0119 BODY_0008: 0119 00bc | | Action Signal_Activated 011a 00bb | | Action Signal_Completion 011b 0000 0000 | | .BLANK 0000[0x5] 0120 ; -------------------------------------------------------------------------------------- 0120 ; SUBPROGRAM 0120 ; -------------------------------------------------------------------------------------- 0120 0123 | # | .CONST 0x0123 ; Address of begin 0121 0004 | | .CONST 0x0004 ; Address of exception handler 0122 0001 | | .CONST 0x0001 ; Number of locals 0123 BODY_0120: 0123 INIT_0120: 0123 4607 |F | Jump_Case 0x8 0124 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0125 7807 |x | Jump 0x12d ; case 0x1 0126 780a |x | Jump 0x131 ; case 0x2 0127 780e |x | Jump 0x136 ; case 0x3 0128 7811 |x | Jump 0x13a ; case 0x4 0129 7812 |x | Jump 0x13c ; case 0x5 012a 7813 |x | Jump 0x13e ; case 0x6 012b 7816 |x | Jump 0x142 ; case 0x7 012c 4302 |C | .XXX[0x1] 012d 00da | | Load_Top At_Offset_2 012e 0091 04fe | | Action Push_String_Extended_Indexed,0x4fe ; "SEGMENT" 0130 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0131 00db | | Load_Top At_Offset_3 0132 00db | | Load_Top At_Offset_3 0133 00e0 | | Load_Encached Standard_Cache 0134 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0135 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0136 00da | | Load_Top At_Offset_2 0137 00e0 | | Load_Encached Standard_Cache 0138 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0139 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 013a 00db | | Load_Top At_Offset_3 013b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 013c 00db | | Load_Top At_Offset_3 013d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 013e e20d | | Load 0x1,0xd 013f 00dc | | Load_Top At_Offset_4 0140 0267 | g | Execute Discrete,Predecessor 0141 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0142 e20d | | Load 0x1,0xd 0143 00dc | | Load_Top At_Offset_4 0144 0268 | h | Execute Discrete,Successor 0145 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0146 0000 0000 | | .XXX[0x2] 0148 8000 0000 | | .LITERAL {0x80000000, 0x00010000} 014c 0000 0000 | | .BLANK 0000[0x4] 0150 ; -------------------------------------------------------------------------------------- 0150 ; SUBPROGRAM 0150 ; -------------------------------------------------------------------------------------- 0150 0157 | W | .CONST 0x0157 ; Address of begin 0151 0004 | | .CONST 0x0004 ; Address of exception handler 0152 0002 | | .CONST 0x0002 ; Number of locals 0153 INIT_0150: 0153 e00d | | Load 0x0,0xd 0154 e226 | & | Load 0x1,0x26 0155 0098 | | Execute Package,Field_Read_Dynamic 0156 0007 | | Action Break_Optional 0157 BODY_0150: 0157 00db | | Load_Top At_Offset_3 0158 e01d | | Load 0x0,0x1d 0159 e226 | & | Load 0x1,0x26 015a 0096 | | Execute Package,Entry 015b 0031 | 1 | Store_Top Heap_Access,At_Offset_1 015c 00d8 | | Load_Top At_Offset_0 015d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 015e 0000 0000 | | .XXX[0x2] 0160 ; -------------------------------------------------------------------------------------- 0160 ; SUBPROGRAM 0160 ; -------------------------------------------------------------------------------------- 0160 0163 | c | .CONST 0x0163 ; Address of begin 0161 0004 | | .CONST 0x0004 ; Address of exception handler 0162 0001 | | .CONST 0x0001 ; Number of locals 0163 BODY_0160: 0163 INIT_0160: 0163 00da | | Load_Top At_Offset_2 0164 e00d | | Load 0x0,0xd 0165 e226 | & | Load 0x1,0x26 0166 0098 | | Execute Package,Field_Read_Dynamic 0167 0216 | | Execute Heap_Access,Convert 0168 e01e | | Load 0x0,0x1e 0169 e226 | & | Load 0x1,0x26 016a 0096 | | Execute Package,Entry 016b 0033 | 3 | Store_Top Heap_Access,At_Offset_3 016c 4501 |E | Exit_Suprogram New_Top_Offset 0x1 016d 0000 0000 | | .XXX[0x3] 016f 0000 | | 0170 ; -------------------------------------------------------------------------------------- 0170 ; SUBPROGRAM 0170 ; -------------------------------------------------------------------------------------- 0170 017b | { | .CONST 0x017b ; Address of begin 0171 0004 | | .CONST 0x0004 ; Address of exception handler 0172 0002 | | .CONST 0x0002 ; Number of locals 0173 INIT_0170: 0173 e219 | | Load 0x1,0x19 0174 0322 | " | Declare_Variable Record 0175 e5fe | | Load 0x2,-0x2 0176 e01b | | Load 0x0,0x1b 0177 e226 | & | Load 0x1,0x26 0178 0096 | | Execute Package,Entry 0179 00d9 | | Load_Top At_Offset_1 017a 017d | } | Execute Record,Structure_Write 017b BODY_0170: 017b 00db | | Load_Top At_Offset_3 017c 00d9 | | Load_Top At_Offset_1 017d 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 017e e5fe | | Load 0x2,-0x2 017f 00d9 | | Load_Top At_Offset_1 0180 e01c | | Load 0x0,0x1c 0181 e226 | & | Load 0x1,0x26 0182 0096 | | Execute Package,Entry 0183 c5fe | | Store 0x2,-0x2 0184 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0185 0000 0000 | | .XXX[0x3] 0187 0000 | | 0188 ; -------------------------------------------------------------------------------------- 0188 ; SUBPROGRAM 0188 ; -------------------------------------------------------------------------------------- 0188 0193 | | .CONST 0x0193 ; Address of begin 0189 0004 | | .CONST 0x0004 ; Address of exception handler 018a 0002 | | .CONST 0x0002 ; Number of locals 018b INIT_0188: 018b e219 | | Load 0x1,0x19 018c 0322 | " | Declare_Variable Record 018d 00db | | Load_Top At_Offset_3 018e e01b | | Load 0x0,0x1b 018f e226 | & | Load 0x1,0x26 0190 0096 | | Execute Package,Entry 0191 00d9 | | Load_Top At_Offset_1 0192 017d | } | Execute Record,Structure_Write 0193 BODY_0188: 0193 00d8 | | Load_Top At_Offset_0 0194 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0195 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0196 0000 0000 | | .XXX[0x2] 0198 ; -------------------------------------------------------------------------------------- 0198 ; SUBPROGRAM 0198 ; -------------------------------------------------------------------------------------- 0198 01a7 | | .CONST 0x01a7 ; Address of begin 0199 0004 | | .CONST 0x0004 ; Address of exception handler 019a 0003 | | .CONST 0x0003 ; Number of locals 019b INIT_0198: 019b e01f | | Load 0x0,0x1f 019c 0322 | " | Declare_Variable Record 019d 00d8 | | Load_Top At_Offset_0 019e 1c00 | | Execute_Immediate Run_Utility,0x0 019f e219 | | Load 0x1,0x19 01a0 0322 | " | Declare_Variable Record 01a1 e5fd | | Load 0x2,-0x3 01a2 e01b | | Load 0x0,0x1b 01a3 e226 | & | Load 0x1,0x26 01a4 0096 | | Execute Package,Entry 01a5 00d9 | | Load_Top At_Offset_1 01a6 017d | } | Execute Record,Structure_Write 01a7 BODY_0198: 01a7 e5fb | | Load 0x2,-0x5 01a8 e5fc | | Load 0x2,-0x4 01a9 00db | | Load_Top At_Offset_3 01aa 00db | | Load_Top At_Offset_3 01ab 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01ac e5ff | | Load 0x2,-0x1 01ad 8020 | | Call 0x0,0x20 01ae 00d1 | | Pop_Control Pop_Count_1 01af c5fc | | Store 0x2,-0x4 01b0 c5fb | | Store 0x2,-0x5 01b1 00d8 | | Load_Top At_Offset_0 01b2 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 01b3 00da | | Load_Top At_Offset_2 01b4 e5fe | | Load 0x2,-0x2 01b5 8021 | ! | Call 0x0,0x21 01b6 00d9 | | Load_Top At_Offset_1 01b7 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 01b8 e5fd | | Load 0x2,-0x3 01b9 00d9 | | Load_Top At_Offset_1 01ba e01c | | Load 0x0,0x1c 01bb e226 | & | Load 0x1,0x26 01bc 0096 | | Execute Package,Entry 01bd c5fd | | Store 0x2,-0x3 01be 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01bf 0000 | | .XXX[0x1] 01c0 ; -------------------------------------------------------------------------------------- 01c0 ; SUBPROGRAM 01c0 ; -------------------------------------------------------------------------------------- 01c0 01cb | | .CONST 0x01cb ; Address of begin 01c1 0004 | | .CONST 0x0004 ; Address of exception handler 01c2 0002 | | .CONST 0x0002 ; Number of locals 01c3 INIT_01c0: 01c3 e219 | | Load 0x1,0x19 01c4 0322 | " | Declare_Variable Record 01c5 00db | | Load_Top At_Offset_3 01c6 e01b | | Load 0x0,0x1b 01c7 e226 | & | Load 0x1,0x26 01c8 0096 | | Execute Package,Entry 01c9 00d9 | | Load_Top At_Offset_1 01ca 017d | } | Execute Record,Structure_Write 01cb BODY_01c0: 01cb 00d8 | | Load_Top At_Offset_0 01cc 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 01cd a5fe | | Store_Unchecked 0x2,-0x2 01ce 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01cf 0000 | | .XXX[0x1] 01d0 ; -------------------------------------------------------------------------------------- 01d0 ; SUBPROGRAM 01d0 ; -------------------------------------------------------------------------------------- 01d0 01db | | .CONST 0x01db ; Address of begin 01d1 0004 | | .CONST 0x0004 ; Address of exception handler 01d2 0002 | | .CONST 0x0002 ; Number of locals 01d3 INIT_01d0: 01d3 e219 | | Load 0x1,0x19 01d4 0322 | " | Declare_Variable Record 01d5 00db | | Load_Top At_Offset_3 01d6 e01b | | Load 0x0,0x1b 01d7 e226 | & | Load 0x1,0x26 01d8 0096 | | Execute Package,Entry 01d9 00d9 | | Load_Top At_Offset_1 01da 017d | } | Execute Record,Structure_Write 01db BODY_01d0: 01db 00d8 | | Load_Top At_Offset_0 01dc 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 01dd a5fe | | Store_Unchecked 0x2,-0x2 01de 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01df 0000 | | .XXX[0x1] 01e0 ; -------------------------------------------------------------------------------------- 01e0 ; SUBPROGRAM 01e0 ; -------------------------------------------------------------------------------------- 01e0 01ed | | .CONST 0x01ed ; Address of begin 01e1 0004 | | .CONST 0x0004 ; Address of exception handler 01e2 0003 | | .CONST 0x0003 ; Number of locals 01e3 INIT_01e0: 01e3 e219 | | Load 0x1,0x19 01e4 0322 | " | Declare_Variable Record 01e5 00db | | Load_Top At_Offset_3 01e6 e01b | | Load 0x0,0x1b 01e7 e226 | & | Load 0x1,0x26 01e8 0096 | | Execute Package,Entry 01e9 00d9 | | Load_Top At_Offset_1 01ea 017d | } | Execute Record,Structure_Write 01eb 00db | | Load_Top At_Offset_3 01ec 0007 | | Action Break_Optional 01ed BODY_01e0: 01ed e5fe | | Load 0x2,-0x2 01ee 00da | | Load_Top At_Offset_2 01ef 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 01f0 00d8 | | Load_Top At_Offset_0 01f1 00da | | Load_Top At_Offset_2 01f2 e01c | | Load 0x0,0x1c 01f3 e226 | & | Load 0x1,0x26 01f4 0096 | | Execute Package,Entry 01f5 0031 | 1 | Store_Top Heap_Access,At_Offset_1 01f6 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01f7 0000 | | .XXX[0x1] 01f8 ; -------------------------------------------------------------------------------------- 01f8 ; SUBPROGRAM 01f8 ; -------------------------------------------------------------------------------------- 01f8 01fb | | .CONST 0x01fb ; Address of begin 01f9 0004 | | .CONST 0x0004 ; Address of exception handler 01fa 0001 | | .CONST 0x0001 ; Number of locals 01fb BODY_01f8: 01fb INIT_01f8: 01fb 00da | | Load_Top At_Offset_2 01fc e01b | | Load 0x0,0x1b 01fd e226 | & | Load 0x1,0x26 01fe 0096 | | Execute Package,Entry 01ff 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0200 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0201 0000 0000 | | .BLANK 0000[0x7] 0208 ; -------------------------------------------------------------------------------------- 0208 ; SUBPROGRAM 0208 ; -------------------------------------------------------------------------------------- 0208 0214 | | .CONST 0x0214 ; Address of begin 0209 0004 | | .CONST 0x0004 ; Address of exception handler 020a 0004 | | .CONST 0x0004 ; Number of locals 020b INIT_0208: 020b e219 | | Load 0x1,0x19 020c 0322 | " | Declare_Variable Record 020d 00d8 | | Load_Top At_Offset_0 020e 1c00 | | Execute_Immediate Run_Utility,0x0 020f 00db | | Load_Top At_Offset_3 0210 e22a | * | Load 0x1,0x2a 0211 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0212 029f 03d3 | | Declare_Subprogram INIT_03d0,For_Call 0214 BODY_0208: 0214 00d9 | | Load_Top At_Offset_1 0215 e22a | * | Load 0x1,0x2a 0216 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0217 7002 |p | Jump_Nonzero 0x21a 0218 e022 | " | Load 0x0,0x22 0219 0257 | W | Execute Discrete,Raise 021a e5fe | | Load 0x2,-0x2 021b 00db | | Load_Top At_Offset_3 021c 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 021d 8404 | | Call 0x2,0x4 021e e5fe | | Load 0x2,-0x2 021f 00ea | | Load_Encached Null_String_Cache 0220 4804 |H | Short_Literal 0x4 0221 e403 | | Load 0x2,0x3 0222 e22a | * | Load 0x1,0x2a 0223 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0224 8023 | # | Call 0x0,0x23 0225 00db | | Load_Top At_Offset_3 0226 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0227 00da | | Load_Top At_Offset_2 0228 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0229 e5fe | | Load 0x2,-0x2 022a 00ea | | Load_Encached Null_String_Cache 022b 4802 |H | Short_Literal 0x2 022c e403 | | Load 0x2,0x3 022d e22a | * | Load 0x1,0x2a 022e 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 022f 8024 | $ | Call 0x0,0x24 0230 00db | | Load_Top At_Offset_3 0231 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0232 00da | | Load_Top At_Offset_2 0233 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0234 e5fe | | Load 0x2,-0x2 0235 00ea | | Load_Encached Null_String_Cache 0236 4803 |H | Short_Literal 0x3 0237 e403 | | Load 0x2,0x3 0238 e22a | * | Load 0x1,0x2a 0239 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 023a 8025 | % | Call 0x0,0x25 023b 00db | | Load_Top At_Offset_3 023c 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 023d 00da | | Load_Top At_Offset_2 023e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 023f 0000 | | .XXX[0x1] 0240 ; -------------------------------------------------------------------------------------- 0240 ; SUBPROGRAM 0240 ; -------------------------------------------------------------------------------------- 0240 0247 | G | .CONST 0x0247 ; Address of begin 0241 0004 | | .CONST 0x0004 ; Address of exception handler 0242 0002 | | .CONST 0x0002 ; Number of locals 0243 INIT_0240: 0243 e219 | | Load 0x1,0x19 0244 0322 | " | Declare_Variable Record 0245 00d8 | | Load_Top At_Offset_0 0246 1c00 | | Execute_Immediate Run_Utility,0x0 0247 BODY_0240: 0247 00db | | Load_Top At_Offset_3 0248 00d9 | | Load_Top At_Offset_1 0249 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 024a 00db | | Load_Top At_Offset_3 024b 8026 | & | Call 0x0,0x26 024c 00d9 | | Load_Top At_Offset_1 024d 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 024e 00db | | Load_Top At_Offset_3 024f 8027 | ' | Call 0x0,0x27 0250 00d9 | | Load_Top At_Offset_1 0251 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0252 00db | | Load_Top At_Offset_3 0253 8028 | ( | Call 0x0,0x28 0254 00d9 | | Load_Top At_Offset_1 0255 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0256 00d8 | | Load_Top At_Offset_0 0257 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 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 e002 | | Load 0x0,0x2 025c 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 025d 00db | | Load_Top At_Offset_3 025e 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 025f 00da | | Load_Top At_Offset_2 0260 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0261 8029 | ) | Call 0x0,0x29 0262 00db | | Load_Top At_Offset_3 0263 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0264 00da | | Load_Top At_Offset_2 0265 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0266 802a | * | Call 0x0,0x2a 0267 00db | | Load_Top At_Offset_3 0268 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0269 00da | | Load_Top At_Offset_2 026a 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 026b 802b | + | Call 0x0,0x2b 026c 00db | | Load_Top At_Offset_3 026d 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 026e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 026f 0000 | | .XXX[0x1] 0270 ; -------------------------------------------------------------------------------------- 0270 ; SUBPROGRAM 0270 ; -------------------------------------------------------------------------------------- 0270 0273 | s | .CONST 0x0273 ; Address of begin 0271 0004 | | .CONST 0x0004 ; Address of exception handler 0272 0001 | | .CONST 0x0001 ; Number of locals 0273 BODY_0270: 0273 INIT_0270: 0273 00da | | Load_Top At_Offset_2 0274 e5fe | | Load 0x2,-0x2 0275 017f | | Execute Record,Equal 0276 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0277 0000 | | .XXX[0x1] 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 e5fd | | Load 0x2,-0x3 027c 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 027d e5fe | | Load 0x2,-0x2 027e e5ff | | Load 0x2,-0x1 027f 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0280 802c | , | Call 0x0,0x2c 0281 e5fd | | Load 0x2,-0x3 0282 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0283 e5fd | | Load 0x2,-0x3 0284 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0285 e5fe | | Load 0x2,-0x2 0286 e5ff | | Load 0x2,-0x1 0287 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0288 802d | - | Call 0x0,0x2d 0289 e5fd | | Load 0x2,-0x3 028a 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 028b e5fd | | Load 0x2,-0x3 028c 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 028d e5fe | | Load 0x2,-0x2 028e e5ff | | Load 0x2,-0x1 028f 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0290 802e | . | Call 0x0,0x2e 0291 e5fd | | Load 0x2,-0x3 0292 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0293 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0294 0000 0000 | | .BLANK 0000[0x4] 0298 ; -------------------------------------------------------------------------------------- 0298 ; SUBPROGRAM 0298 ; -------------------------------------------------------------------------------------- 0298 029d | | .CONST 0x029d ; Address of begin 0299 0004 | | .CONST 0x0004 ; Address of exception handler 029a 0002 | | .CONST 0x0002 ; Number of locals 029b INIT_0298: 029b 00db | | Load_Top At_Offset_3 029c 802f | / | Call 0x0,0x2f 029d BODY_0298: 029d 00d8 | | Load_Top At_Offset_0 029e 4801 |H | Short_Literal 0x1 029f e5ff | | Load 0x2,-0x1 02a0 8030 | 0 | Call 0x0,0x30 02a1 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 02a2 0000 0000 | | .BLANK 0000[0x6] 02a8 ; -------------------------------------------------------------------------------------- 02a8 ; SUBPROGRAM 02a8 ; -------------------------------------------------------------------------------------- 02a8 02ab | | .CONST 0x02ab ; Address of begin 02a9 0004 | | .CONST 0x0004 ; Address of exception handler 02aa 0001 | | .CONST 0x0001 ; Number of locals 02ab BODY_02a8: 02ab INIT_02a8: 02ab 4607 |F | Jump_Case 0x8 02ac 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 02ad 7807 |x | Jump 0x2b5 ; case 0x1 02ae 780a |x | Jump 0x2b9 ; case 0x2 02af 780e |x | Jump 0x2be ; case 0x3 02b0 7811 |x | Jump 0x2c2 ; case 0x4 02b1 7812 |x | Jump 0x2c4 ; case 0x5 02b2 7813 |x | Jump 0x2c6 ; case 0x6 02b3 7816 |x | Jump 0x2ca ; case 0x7 02b4 4302 |C | .XXX[0x1] 02b5 00da | | Load_Top At_Offset_2 02b6 0091 0500 | | Action Push_String_Extended_Indexed,0x500 ; "NONE" 02b8 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 02b9 00db | | Load_Top At_Offset_3 02ba 00db | | Load_Top At_Offset_3 02bb 00e0 | | Load_Encached Standard_Cache 02bc 181b | | Execute Package,Field_Execute,Field_Number 0x1b 02bd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 02be 00da | | Load_Top At_Offset_2 02bf 00e0 | | Load_Encached Standard_Cache 02c0 181c | | Execute Package,Field_Execute,Field_Number 0x1c 02c1 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 02c2 00db | | Load_Top At_Offset_3 02c3 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 02c4 00db | | Load_Top At_Offset_3 02c5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 02c6 e220 | | Load 0x1,0x20 02c7 00dc | | Load_Top At_Offset_4 02c8 0267 | g | Execute Discrete,Predecessor 02c9 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 02ca e220 | | Load 0x1,0x20 02cb 00dc | | Load_Top At_Offset_4 02cc 0268 | h | Execute Discrete,Successor 02cd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 02ce 0000 0000 | | .XXX[0x2] 02d0 ; -------------------------------------------------------------------------------------- 02d0 ; SUBPROGRAM 02d0 ; -------------------------------------------------------------------------------------- 02d0 02d7 | | .CONST 0x02d7 ; Address of begin 02d1 0004 | | .CONST 0x0004 ; Address of exception handler 02d2 0002 | | .CONST 0x0002 ; Number of locals 02d3 INIT_02d0: 02d3 e221 | ! | Load 0x1,0x21 02d4 0322 | " | Declare_Variable Record 02d5 00d8 | | Load_Top At_Offset_0 02d6 1c00 | | Execute_Immediate Run_Utility,0x0 02d7 BODY_02d0: 02d7 00db | | Load_Top At_Offset_3 02d8 00d9 | | Load_Top At_Offset_1 02d9 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 02da 4801 |H | Short_Literal 0x1 02db 00d9 | | Load_Top At_Offset_1 02dc 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 02dd 00d8 | | Load_Top At_Offset_0 02de 00d9 | | Load_Top At_Offset_1 02df 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 02e0 822b | + | Call 0x1,0x2b 02e1 00d1 | | Pop_Control Pop_Count_1 02e2 00d8 | | Load_Top At_Offset_0 02e3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02e4 0000 0000 | | .BLANK 0000[0x4] 02e8 ; -------------------------------------------------------------------------------------- 02e8 ; SUBPROGRAM 02e8 ; -------------------------------------------------------------------------------------- 02e8 02eb | | .CONST 0x02eb ; Address of begin 02e9 0004 | | .CONST 0x0004 ; Address of exception handler 02ea 0001 | | .CONST 0x0001 ; Number of locals 02eb BODY_02e8: 02eb INIT_02e8: 02eb 00da | | Load_Top At_Offset_2 02ec 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 02ed 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02ee 0000 0000 | | .XXX[0x2] 02f0 ; -------------------------------------------------------------------------------------- 02f0 ; SUBPROGRAM 02f0 ; -------------------------------------------------------------------------------------- 02f0 02fd | | .CONST 0x02fd ; Address of begin 02f1 0004 | | .CONST 0x0004 ; Address of exception handler 02f2 0003 | | .CONST 0x0003 ; Number of locals 02f3 INIT_02f0: 02f3 00da | | Load_Top At_Offset_2 02f4 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 02f5 e220 | | Load 0x1,0x20 02f6 011c | | Execute Any,Convert_Unchecked 02f7 1c01 | | Execute_Immediate Run_Utility,0x1 02f8 0092 0506 | | Action Push_String_Extended,0x506 ; "=>" 02fa 01cc | | Execute Vector,Catenate 02fb 029f 03f3 | | Declare_Subprogram INIT_03f0,For_Call 02fd BODY_02f0: 02fd e5ff | | Load 0x2,-0x1 02fe 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 02ff e229 | ) | Load 0x1,0x29 0300 01d7 | | Execute Vector,Field_Read 0301 6802 |h | Jump_Zero 0x304 0302 8403 | | Call 0x2,0x3 0303 7807 |x | Jump 0x30b 0304 00d9 | | Load_Top At_Offset_1 0305 e5ff | | Load 0x2,-0x1 0306 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0307 e5ff | | Load 0x2,-0x1 0308 822e | . | Call 0x1,0x2e 0309 01cc | | Execute Vector,Catenate 030a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 030b 0831 | 1 | Execute_Immediate Raise,0x31 030c 0000 0000 | | .BLANK 0000[0x4] 0310 ; -------------------------------------------------------------------------------------- 0310 ; SUBPROGRAM 0310 ; -------------------------------------------------------------------------------------- 0310 0313 | | .CONST 0x0313 ; Address of begin 0311 0004 | | .CONST 0x0004 ; Address of exception handler 0312 0001 | | .CONST 0x0001 ; Number of locals 0313 BODY_0310: 0313 INIT_0310: 0313 00da | | Load_Top At_Offset_2 0314 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0315 7023 |p# | Jump_Nonzero 0x339 0316 00da | | Load_Top At_Offset_2 0317 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0318 e229 | ) | Load 0x1,0x29 0319 01d7 | | Execute Vector,Field_Read 031a 680b |h | Jump_Zero 0x326 031b 00da | | Load_Top At_Offset_2 031c 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 031d 00db | | Load_Top At_Offset_3 031e 822d | - | Call 0x1,0x2d 031f 7006 |p | Jump_Nonzero 0x326 0320 00da | | Load_Top At_Offset_2 0321 00db | | Load_Top At_Offset_3 0322 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0323 822c | , | Call 0x1,0x2c 0324 00d1 | | Pop_Control Pop_Count_1 0325 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0326 00da | | Load_Top At_Offset_2 0327 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0328 0f04 | | Execute_Immediate Equal,0x4 0329 6804 |h | Jump_Zero 0x32e 032a 4801 |H | Short_Literal 0x1 032b 00db | | Load_Top At_Offset_3 032c 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 032d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 032e e220 | | Load 0x1,0x20 032f 00db | | Load_Top At_Offset_3 0330 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0331 0268 | h | Execute Discrete,Successor 0332 00db | | Load_Top At_Offset_3 0333 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0334 00da | | Load_Top At_Offset_2 0335 00db | | Load_Top At_Offset_3 0336 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0337 822b | + | Call 0x1,0x2b 0338 00d1 | | Pop_Control Pop_Count_1 0339 4501 |E | Exit_Suprogram New_Top_Offset 0x1 033a 0000 0000 | | .BLANK 0000[0x6] 0340 ; -------------------------------------------------------------------------------------- 0340 ; SUBPROGRAM 0340 ; -------------------------------------------------------------------------------------- 0340 0343 | C | .CONST 0x0343 ; Address of begin 0341 0004 | | .CONST 0x0004 ; Address of exception handler 0342 0001 | | .CONST 0x0001 ; Number of locals 0343 BODY_0340: 0343 INIT_0340: 0343 00da | | Load_Top At_Offset_2 0344 4604 |F | Jump_Case 0x5 0345 7818 |x | Jump 0x35e ; case 0x0 0346 7817 |x | Jump 0x35e ; case 0x1 0347 7809 |x | Jump 0x351 ; case 0x2 0348 780f |x | Jump 0x358 ; case 0x3 0349 7800 |x | Jump 0x34a ; case 0x4 034a 00db | | Load_Top At_Offset_3 034b 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 034c 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 034d 8031 | 1 | Call 0x0,0x31 034e e5fe | | Load 0x2,-0x2 034f 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 0350 780d |x | Jump 0x35e 0351 00db | | Load_Top At_Offset_3 0352 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0353 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0354 8032 | 2 | Call 0x0,0x32 0355 e5fe | | Load 0x2,-0x2 0356 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0357 7806 |x | Jump 0x35e 0358 00db | | Load_Top At_Offset_3 0359 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 035a 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 035b 8033 | 3 | Call 0x0,0x33 035c e5fe | | Load 0x2,-0x2 035d 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 035e 4801 |H | Short_Literal 0x1 035f e5fe | | Load 0x2,-0x2 0360 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0361 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0362 0000 0000 | | .BLANK 0000[0x6] 0368 ; -------------------------------------------------------------------------------------- 0368 ; SUBPROGRAM 0368 ; -------------------------------------------------------------------------------------- 0368 036b | k | .CONST 0x036b ; Address of begin 0369 0004 | | .CONST 0x0004 ; Address of exception handler 036a 0001 | | .CONST 0x0001 ; Number of locals 036b BODY_0368: 036b INIT_0368: 036b 00da | | Load_Top At_Offset_2 036c 4604 |F | Jump_Case 0x5 036d 7812 |x | Jump 0x380 ; case 0x0 036e 7811 |x | Jump 0x380 ; case 0x1 036f 7807 |x | Jump 0x377 ; case 0x2 0370 780b |x | Jump 0x37c ; case 0x3 0371 7800 |x | Jump 0x372 ; case 0x4 0372 00db | | Load_Top At_Offset_3 0373 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 0374 8034 | 4 | Call 0x0,0x34 0375 00d1 | | Pop_Control Pop_Count_1 0376 7809 |x | Jump 0x380 0377 00db | | Load_Top At_Offset_3 0378 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0379 8035 | 5 | Call 0x0,0x35 037a 00d1 | | Pop_Control Pop_Count_1 037b 7804 |x | Jump 0x380 037c 00db | | Load_Top At_Offset_3 037d 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 037e 8036 | 6 | Call 0x0,0x36 037f 00d1 | | Pop_Control Pop_Count_1 0380 4800 |H | Short_Literal 0x0 0381 e5fe | | Load 0x2,-0x2 0382 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0383 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0384 0000 0000 | | .BLANK 0000[0x4] 0388 ; -------------------------------------------------------------------------------------- 0388 ; SUBPROGRAM 0388 ; -------------------------------------------------------------------------------------- 0388 038b | | .CONST 0x038b ; Address of begin 0389 0004 | | .CONST 0x0004 ; Address of exception handler 038a 0001 | | .CONST 0x0001 ; Number of locals 038b BODY_0388: 038b INIT_0388: 038b 00db | | Load_Top At_Offset_3 038c 4604 |F | Jump_Case 0x5 038d 7808 |x | Jump 0x396 ; case 0x0 038e 7807 |x | Jump 0x396 ; case 0x1 038f 7808 |x | Jump 0x398 ; case 0x2 0390 780b |x | Jump 0x39c ; case 0x3 0391 7800 |x | Jump 0x392 ; case 0x4 0392 00da | | Load_Top At_Offset_2 0393 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 0394 8037 | 7 | Call 0x0,0x37 0395 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0396 4801 |H | Short_Literal 0x1 0397 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0398 00da | | Load_Top At_Offset_2 0399 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4 039a 8038 | 8 | Call 0x0,0x38 039b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 039c 00da | | Load_Top At_Offset_2 039d 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5 039e 8039 | 9 | Call 0x0,0x39 039f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 03a0 ; -------------------------------------------------------------------------------------- 03a0 ; SUBPROGRAM 03a0 ; -------------------------------------------------------------------------------------- 03a0 03a3 | | .CONST 0x03a3 ; Address of begin 03a1 0004 | | .CONST 0x0004 ; Address of exception handler 03a2 0001 | | .CONST 0x0001 ; Number of locals 03a3 BODY_03a0: 03a3 INIT_03a0: 03a3 00db | | Load_Top At_Offset_3 03a4 0f01 | | Execute_Immediate Equal,0x1 03a5 7001 |p | Jump_Nonzero 0x3a7 03a6 7807 |x | Jump 0x3ae 03a7 00da | | Load_Top At_Offset_2 03a8 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 03a9 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 03aa e20d | | Load 0x1,0xd 03ab 011c | | Execute Any,Convert_Unchecked 03ac 1c01 | | Execute_Immediate Run_Utility,0x1 03ad 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 03ae 0831 | 1 | Execute_Immediate Raise,0x31 03af 0000 | | .XXX[0x1] 03b0 ; -------------------------------------------------------------------------------------- 03b0 ; SUBPROGRAM 03b0 ; -------------------------------------------------------------------------------------- 03b0 03b3 | | .CONST 0x03b3 ; Address of begin 03b1 0004 | | .CONST 0x0004 ; Address of exception handler 03b2 0001 | | .CONST 0x0001 ; Number of locals 03b3 BODY_03b0: 03b3 INIT_03b0: 03b3 00db | | Load_Top At_Offset_3 03b4 00db | | Load_Top At_Offset_3 03b5 822d | - | Call 0x1,0x2d 03b6 6803 |h | Jump_Zero 0x3ba 03b7 0092 0507 | | Action Push_String_Extended,0x507 ; ")" 03b9 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 03ba 00db | | Load_Top At_Offset_3 03bb 4604 |F | Jump_Case 0x5 03bc 7810 |x | Jump 0x3cd ; case 0x0 03bd 780f |x | Jump 0x3cd ; case 0x1 03be 7806 |x | Jump 0x3c5 ; case 0x2 03bf 7809 |x | Jump 0x3c9 ; case 0x3 03c0 7800 |x | Jump 0x3c1 ; case 0x4 03c1 00da | | Load_Top At_Offset_2 03c2 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 03c3 803a | : | Call 0x0,0x3a 03c4 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 03c5 00da | | Load_Top At_Offset_2 03c6 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4 03c7 803b | ; | Call 0x0,0x3b 03c8 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 03c9 00da | | Load_Top At_Offset_2 03ca 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5 03cb 803c | < | Call 0x0,0x3c 03cc 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 03cd 0831 | 1 | Execute_Immediate Raise,0x31 03ce 0000 0000 | | .XXX[0x2] 03d0 ; -------------------------------------------------------------------------------------- 03d0 ; SUBPROGRAM 03d0 ; -------------------------------------------------------------------------------------- 03d0 03d3 | | .CONST 0x03d3 ; Address of begin 03d1 03dd | | .CONST 0x03dd ; Address of exception handler 03d2 0001 | | .CONST 0x0001 ; Number of locals 03d3 BODY_03d0: 03d3 INIT_03d0: 03d3 00ea | | Load_Encached Null_String_Cache 03d4 4801 |H | Short_Literal 0x1 03d5 e403 | | Load 0x2,0x3 03d6 e22a | * | Load 0x1,0x2a 03d7 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 03d8 e20d | | Load 0x1,0xd 03d9 1c02 | | Execute_Immediate Run_Utility,0x2 03da e402 | | Load 0x2,0x2 03db 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 03dc 4501 |E | Exit_Suprogram New_Top_Offset 0x1 03dd TRAP_03d0: 03dd 0007 | | Action Break_Optional 03de e03d | = | Load 0x0,0x3d 03df 180e | | Execute Package,Field_Execute,Field_Number 0xe 03e0 4802 |H | Short_Literal 0x2 03e1 0092 0508 | | Action Push_String_Extended,0x508 ; "Invalid coverage kind in external object" 03e3 e03e | > | Load 0x0,0x3e 03e4 1813 | | Execute Package,Field_Execute,Field_Number 0x13 03e5 4800 |H | Short_Literal 0x0 03e6 e402 | | Load 0x2,0x2 03e7 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 03e8 4501 |E | Exit_Suprogram New_Top_Offset 0x1 03e9 0000 0000 | | .BLANK 0000[0x7] 03f0 ; -------------------------------------------------------------------------------------- 03f0 ; SUBPROGRAM 03f0 ; -------------------------------------------------------------------------------------- 03f0 03f7 | | .CONST 0x03f7 ; Address of begin 03f1 0004 | | .CONST 0x0004 ; Address of exception handler 03f2 0002 | | .CONST 0x0002 ; Number of locals 03f3 INIT_03f0: 03f3 e5ff | | Load 0x2,-0x1 03f4 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 03f5 e5ff | | Load 0x2,-0x1 03f6 822f | / | Call 0x1,0x2f 03f7 BODY_03f0: 03f7 e5ff | | Load 0x2,-0x1 03f8 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 03f9 6808 |h | Jump_Zero 0x402 03fa e402 | | Load 0x2,0x2 03fb 0092 0509 | | Action Push_String_Extended,0x509 ; "(" 03fd 01cc | | Execute Vector,Catenate 03fe 00d9 | | Load_Top At_Offset_1 03ff 01cc | | Execute Vector,Catenate 0400 00cb | | Action Pop_Block_With_Result 0401 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0402 00d8 | | Load_Top At_Offset_0 0403 00cb | | Action Pop_Block_With_Result 0404 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0405 0000 0000 | | .XXX[0x3] 0407 0000 | | 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 4601 |F | Jump_Case 0x2 040c 7801 |x | Jump 0x40e ; case 0x0 040d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 040e 4800 |H | Short_Literal 0x0 040f 00db | | Load_Top At_Offset_3 0410 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0411 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0412 0000 0000 | | .BLANK 0000[0x6] 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 4601 |F | Jump_Case 0x2 041c 7801 |x | Jump 0x41e ; case 0x0 041d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 041e 00da | | Load_Top At_Offset_2 041f 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0420 1c00 | | Execute_Immediate Run_Utility,0x0 0421 4800 |H | Short_Literal 0x0 0422 00db | | Load_Top At_Offset_3 0423 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0424 4800 |H | Short_Literal 0x0 0425 00db | | Load_Top At_Offset_3 0426 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0427 4801 |H | Short_Literal 0x1 0428 00db | | Load_Top At_Offset_3 0429 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 042a 00da | | Load_Top At_Offset_2 042b 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4 042c 1c00 | | Execute_Immediate Run_Utility,0x0 042d 00da | | Load_Top At_Offset_2 042e 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5 042f 1c00 | | Execute_Immediate Run_Utility,0x0 0430 00da | | Load_Top At_Offset_2 0431 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 0432 1c00 | | Execute_Immediate Run_Utility,0x0 0433 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0434 0000 0000 | | .BLANK 0000[0x4] 0438 ; -------------------------------------------------------------------------------------- 0438 ; SUBPROGRAM 0438 ; -------------------------------------------------------------------------------------- 0438 0460 | ` | .CONST 0x0460 ; Address of begin 0439 0004 | | .CONST 0x0004 ; Address of exception handler 043a 0015 | | .CONST 0x0015 ; Number of locals 043b INIT_0438: 043b 029a 046b | k| Declare_Subprogram INIT_0468,For_Outer_Call,Visible,Unelaborated 043d 029a 0473 | s| Declare_Subprogram INIT_0470,For_Outer_Call,Visible,Unelaborated 043f 029a 0483 | | Declare_Subprogram INIT_0480,For_Outer_Call,Visible,Unelaborated 0441 029a 0493 | | Declare_Subprogram INIT_0490,For_Outer_Call,Visible,Unelaborated 0443 029a 049b | | Declare_Subprogram INIT_0498,For_Outer_Call,Visible,Unelaborated 0445 029a 04ab | | Declare_Subprogram INIT_04a8,For_Outer_Call,Visible,Unelaborated 0447 029a 04bb | | Declare_Subprogram INIT_04b8,For_Outer_Call,Visible,Unelaborated 0449 029a 04cb | | Declare_Subprogram INIT_04c8,For_Outer_Call,Visible,Unelaborated 044b 029a 04d3 | | Declare_Subprogram INIT_04d0,For_Outer_Call,Visible,Unelaborated 044d 00bf | | Action Accept_Activation 044e 1d0d | | Execute_Immediate Reference_Lex_1,0xd 044f 00c7 | | Action Elaborate_Subprogram 0450 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0451 00c7 | | Action Elaborate_Subprogram 0452 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0453 00c7 | | Action Elaborate_Subprogram 0454 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0455 00c7 | | Action Elaborate_Subprogram 0456 1d12 | | Execute_Immediate Reference_Lex_1,0x12 0457 00c7 | | Action Elaborate_Subprogram 0458 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0459 00c7 | | Action Elaborate_Subprogram 045a 1d13 | | Execute_Immediate Reference_Lex_1,0x13 045b 00c7 | | Action Elaborate_Subprogram 045c 1d14 | | Execute_Immediate Reference_Lex_1,0x14 045d 00c7 | | Action Elaborate_Subprogram 045e 1d15 | | Execute_Immediate Reference_Lex_1,0x15 045f 00c7 | | Action Elaborate_Subprogram 0460 BODY_0438: 0460 00bc | | Action Signal_Activated 0461 00bb | | Action Signal_Completion 0462 0000 0000 | | .BLANK 0000[0x6] 0468 ; -------------------------------------------------------------------------------------- 0468 ; SUBPROGRAM 0468 ; -------------------------------------------------------------------------------------- 0468 046b | k | .CONST 0x046b ; Address of begin 0469 0004 | | .CONST 0x0004 ; Address of exception handler 046a 0001 | | .CONST 0x0001 ; Number of locals 046b BODY_0468: 046b INIT_0468: 046b 00db | | Load_Top At_Offset_3 046c 00db | | Load_Top At_Offset_3 046d 8001 | | Call 0x0,0x1 046e c5fe | | Store 0x2,-0x2 046f 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0470 ; -------------------------------------------------------------------------------------- 0470 ; SUBPROGRAM 0470 ; -------------------------------------------------------------------------------------- 0470 0473 | s | .CONST 0x0473 ; Address of begin 0471 0004 | | .CONST 0x0004 ; Address of exception handler 0472 0001 | | .CONST 0x0001 ; Number of locals 0473 BODY_0470: 0473 INIT_0470: 0473 e5fd | | Load 0x2,-0x3 0474 e002 | | Load 0x0,0x2 0475 0216 | | Execute Heap_Access,Convert 0476 e5fe | | Load 0x2,-0x2 0477 e5ff | | Load 0x2,-0x1 0478 8003 | | Call 0x0,0x3 0479 c5fd | | Store 0x2,-0x3 047a 4503 |E | Exit_Suprogram New_Top_Offset 0x3 047b 0000 0000 | | .BLANK 0000[0x5] 0480 ; -------------------------------------------------------------------------------------- 0480 ; SUBPROGRAM 0480 ; -------------------------------------------------------------------------------------- 0480 0485 | | .CONST 0x0485 ; Address of begin 0481 0004 | | .CONST 0x0004 ; Address of exception handler 0482 0002 | | .CONST 0x0002 ; Number of locals 0483 INIT_0480: 0483 029f 04e3 | | Declare_Subprogram INIT_04e0,For_Call 0485 BODY_0480: 0485 e5fe | | Load 0x2,-0x2 0486 e002 | | Load 0x0,0x2 0487 0216 | | Execute Heap_Access,Convert 0488 e5ff | | Load 0x2,-0x1 0489 8004 | | Call 0x0,0x4 048a c5fe | | Store 0x2,-0x2 048b 8402 | | Call 0x2,0x2 048c 4502 |E | Exit_Suprogram New_Top_Offset 0x2 048d 0000 0000 | | .XXX[0x3] 048f 0000 | | 0490 ; -------------------------------------------------------------------------------------- 0490 ; SUBPROGRAM 0490 ; -------------------------------------------------------------------------------------- 0490 0493 | | .CONST 0x0493 ; Address of begin 0491 0004 | | .CONST 0x0004 ; Address of exception handler 0492 0001 | | .CONST 0x0001 ; Number of locals 0493 BODY_0490: 0493 INIT_0490: 0493 00da | | Load_Top At_Offset_2 0494 8005 | | Call 0x0,0x5 0495 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0496 0000 0000 | | .XXX[0x2] 0498 ; -------------------------------------------------------------------------------------- 0498 ; SUBPROGRAM 0498 ; -------------------------------------------------------------------------------------- 0498 049b | | .CONST 0x049b ; Address of begin 0499 0004 | | .CONST 0x0004 ; Address of exception handler 049a 0001 | | .CONST 0x0001 ; Number of locals 049b BODY_0498: 049b INIT_0498: 049b 00da | | Load_Top At_Offset_2 049c e002 | | Load 0x0,0x2 049d 0216 | | Execute Heap_Access,Convert 049e 8006 | | Call 0x0,0x6 049f 0033 | 3 | Store_Top Heap_Access,At_Offset_3 04a0 4501 |E | Exit_Suprogram New_Top_Offset 0x1 04a1 0000 0000 | | .BLANK 0000[0x7] 04a8 ; -------------------------------------------------------------------------------------- 04a8 ; SUBPROGRAM 04a8 ; -------------------------------------------------------------------------------------- 04a8 04ab | | .CONST 0x04ab ; Address of begin 04a9 0004 | | .CONST 0x0004 ; Address of exception handler 04aa 0001 | | .CONST 0x0001 ; Number of locals 04ab BODY_04a8: 04ab INIT_04a8: 04ab 00db | | Load_Top At_Offset_3 04ac e002 | | Load 0x0,0x2 04ad 0216 | | Execute Heap_Access,Convert 04ae 00db | | Load_Top At_Offset_3 04af 8007 | | Call 0x0,0x7 04b0 c5fe | | Store 0x2,-0x2 04b1 4502 |E | Exit_Suprogram New_Top_Offset 0x2 04b2 0000 0000 | | .BLANK 0000[0x6] 04b8 ; -------------------------------------------------------------------------------------- 04b8 ; SUBPROGRAM 04b8 ; -------------------------------------------------------------------------------------- 04b8 04bd | | .CONST 0x04bd ; Address of begin 04b9 0004 | | .CONST 0x0004 ; Address of exception handler 04ba 0002 | | .CONST 0x0002 ; Number of locals 04bb INIT_04b8: 04bb 029f 04f3 | | Declare_Subprogram INIT_04f0,For_Call 04bd BODY_04b8: 04bd 8402 | | Call 0x2,0x2 04be e5fe | | Load 0x2,-0x2 04bf e002 | | Load 0x0,0x2 04c0 0216 | | Execute Heap_Access,Convert 04c1 e5ff | | Load 0x2,-0x1 04c2 8008 | | Call 0x0,0x8 04c3 c5fe | | Store 0x2,-0x2 04c4 4502 |E | Exit_Suprogram New_Top_Offset 0x2 04c5 0000 0000 | | .XXX[0x3] 04c7 0000 | | 04c8 ; -------------------------------------------------------------------------------------- 04c8 ; SUBPROGRAM 04c8 ; -------------------------------------------------------------------------------------- 04c8 04cb | | .CONST 0x04cb ; Address of begin 04c9 0004 | | .CONST 0x0004 ; Address of exception handler 04ca 0001 | | .CONST 0x0001 ; Number of locals 04cb BODY_04c8: 04cb INIT_04c8: 04cb 00da | | Load_Top At_Offset_2 04cc 8009 | | Call 0x0,0x9 04cd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04ce 0000 0000 | | .XXX[0x2] 04d0 ; -------------------------------------------------------------------------------------- 04d0 ; SUBPROGRAM 04d0 ; -------------------------------------------------------------------------------------- 04d0 04d3 | | .CONST 0x04d3 ; Address of begin 04d1 0004 | | .CONST 0x0004 ; Address of exception handler 04d2 0001 | | .CONST 0x0001 ; Number of locals 04d3 BODY_04d0: 04d3 INIT_04d0: 04d3 00db | | Load_Top At_Offset_3 04d4 e002 | | Load 0x0,0x2 04d5 0216 | | Execute Heap_Access,Convert 04d6 00db | | Load_Top At_Offset_3 04d7 800a | | Call 0x0,0xa 04d8 c5fe | | Store 0x2,-0x2 04d9 4502 |E | Exit_Suprogram New_Top_Offset 0x2 04da 0000 0000 | | .BLANK 0000[0x6] 04e0 ; -------------------------------------------------------------------------------------- 04e0 ; SUBPROGRAM 04e0 ; -------------------------------------------------------------------------------------- 04e0 04e9 | | .CONST 0x04e9 ; Address of begin 04e1 0004 | | .CONST 0x0004 ; Address of exception handler 04e2 0002 | | .CONST 0x0002 ; Number of locals 04e3 INIT_04e0: 04e3 e00b | | Load 0x0,0xb 04e4 0322 | " | Declare_Variable Record 04e5 e5fe | | Load 0x2,-0x2 04e6 800c | | Call 0x0,0xc 04e7 00d9 | | Load_Top At_Offset_1 04e8 017d | } | Execute Record,Structure_Write 04e9 BODY_04e0: 04e9 e5fe | | Load 0x2,-0x2 04ea 00d9 | | Load_Top At_Offset_1 04eb 800d | | Call 0x0,0xd 04ec c5fe | | Store 0x2,-0x2 04ed 4501 |E | Exit_Suprogram New_Top_Offset 0x1 04ee 0000 0000 | | .XXX[0x2] 04f0 ; -------------------------------------------------------------------------------------- 04f0 ; SUBPROGRAM 04f0 ; -------------------------------------------------------------------------------------- 04f0 04f9 | | .CONST 0x04f9 ; Address of begin 04f1 0004 | | .CONST 0x0004 ; Address of exception handler 04f2 0002 | | .CONST 0x0002 ; Number of locals 04f3 INIT_04f0: 04f3 e00b | | Load 0x0,0xb 04f4 0322 | " | Declare_Variable Record 04f5 e5fe | | Load 0x2,-0x2 04f6 800c | | Call 0x0,0xc 04f7 00d9 | | Load_Top At_Offset_1 04f8 017d | } | Execute Record,Structure_Write 04f9 BODY_04f0: 04f9 e5fe | | Load 0x2,-0x2 04fa 00d9 | | Load_Top At_Offset_1 04fb 800d | | Call 0x0,0xd 04fc c5fe | | Store 0x2,-0x2 04fd 4501 |E | Exit_Suprogram New_Top_Offset 0x1 04fe ; -------------------------------------------------------------------------------------- 04fe ; STRING TABLE 04fe ; -------------------------------------------------------------------------------------- 04fe 001a | | .STRTAB 0x001a->0x050b ; "SEGMENT" 04ff 001f | | .STRTAB 0x001f->0x050e ; "DECISION" 0500 0025 | % | .STRTAB 0x0025->0x0512 ; "NONE" 0501 0027 | ' | .STRTAB 0x0027->0x0514 ; "THE_COVERAGE_KIND" 0502 0036 | 6 | .STRTAB 0x0036->0x051d ; "UNIT_SET_MAP" 0503 0040 | @ | .STRTAB 0x0040->0x0523 ; "WORLD_COVERAGE_MAP" 0504 0050 | P | .STRTAB 0x0050->0x052c ; "THE_STRING_POOL" 0505 005d | ] | .STRTAB 0x005d->0x0533 ; "others => Unspecified" 0506 0070 | p | .STRTAB 0x0070->0x053e ; "=>" 0507 0070 | p | .STRTAB 0x0070->0x053f ; ")" 0508 006f | o | .STRTAB 0x006f->0x053f ; "Invalid coverage kind in external object" 0509 0095 | | .STRTAB 0x0095->0x0553 ; "(" 050a 0094 | | .STREND 0x0094->0x0554 050b 5345 474d |SEGM| .STRTAB_STRINGS 0554 0000 0000 | | .BLANK 0000[0x4] 0558 ; -------------------------------------------------------------------------------------- 0558 ; Debug Table 0558 ; -------------------------------------------------------------------------------------- 0558 0004 000a | | .DEBUG4 0x0004,0x000a,0x7622,0x0000,0x0001,0x0000 055e 0000 0000 | | .BLANK 0000[0xa2]