|
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: 12288 (0x3000) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_02f8e7
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦5a81ac88f⟧ »Space Info Vol 1« └─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 16a0 | | .CONST 0x16a0 ; 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 800d | | .CONST 0x800d ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 04e5 | | .CONST 0x04e5 ; Address of begin 0009 04e8 | | .CONST 0x04e8 ; Address of exception handler 000a 00ba | | .CONST 0x00ba ; Number of locals 000b INIT_0008: 000b 00c4 | | Action Make_Default 000c 00c4 | | Action Make_Default 000d 00c4 | | Action Make_Default 000e 00c4 | | Action Make_Default 000f 00c4 | | Action Make_Default 0010 00c4 | | Action Make_Default 0011 00c4 | | Action Make_Default 0012 00c4 | | Action Make_Default 0013 00c4 | | Action Make_Default 0014 00c4 | | Action Make_Default 0015 00c4 | | Action Make_Default 0016 00c4 | | Action Make_Default 0017 00c4 | | Action Make_Default 0018 00c4 | | Action Make_Default 0019 00c4 | | Action Make_Default 001a 00c4 | | Action Make_Default 001b 00c4 | | Action Make_Default 001c 00c4 | | Action Make_Default 001d 00c4 | | Action Make_Default 001e 00c4 | | Action Make_Default 001f 00c4 | | Action Make_Default 0020 00c4 | | Action Make_Default 0021 00c4 | | Action Make_Default 0022 00c4 | | Action Make_Default 0023 00c4 | | Action Make_Default 0024 00c4 | | Action Make_Default 0025 00c4 | | Action Make_Default 0026 00c4 | | Action Make_Default 0027 00c4 | | Action Make_Default 0028 00c4 | | Action Make_Default 0029 00c4 | | Action Make_Default 002a 00c4 | | Action Make_Default 002b 00c4 | | Action Make_Default 002c 00c4 | | Action Make_Default 002d 00c4 | | Action Make_Default 002e 00c4 | | Action Make_Default 002f 00c4 | | Action Make_Default 0030 00c4 | | Action Make_Default 0031 00c4 | | Action Make_Default 0032 00c4 | | Action Make_Default 0033 00c4 | | Action Make_Default 0034 00c4 | | Action Make_Default 0035 00c4 | | Action Make_Default 0036 00c4 | | Action Make_Default 0037 00c4 | | Action Make_Default 0038 00c4 | | Action Make_Default 0039 00c4 | | Action Make_Default 003a 00c4 | | Action Make_Default 003b 00c4 | | Action Make_Default 003c 00c4 | | Action Make_Default 003d 00c4 | | Action Make_Default 003e 00c4 | | Action Make_Default 003f 00c4 | | Action Make_Default 0040 00c4 | | Action Make_Default 0041 00c4 | | Action Make_Default 0042 00c4 | | Action Make_Default 0043 00c4 | | Action Make_Default 0044 00c4 | | Action Make_Default 0045 00c4 | | Action Make_Default 0046 00c4 | | Action Make_Default 0047 00c4 | | Action Make_Default 0048 00c4 | | Action Make_Default 0049 00c4 | | Action Make_Default 004a 00c4 | | Action Make_Default 004b 00c4 | | Action Make_Default 004c 00c4 | | Action Make_Default 004d 00c4 | | Action Make_Default 004e 00c4 | | Action Make_Default 004f 00c4 | | Action Make_Default 0050 00c4 | | Action Make_Default 0051 00c4 | | Action Make_Default 0052 00c4 | | Action Make_Default 0053 00c4 | | Action Make_Default 0054 00c4 | | Action Make_Default 0055 00c4 | | Action Make_Default 0056 00c4 | | Action Make_Default 0057 00c4 | | Action Make_Default 0058 00c4 | | Action Make_Default 0059 00c4 | | Action Make_Default 005a 00c4 | | Action Make_Default 005b 00c4 | | Action Make_Default 005c 00c4 | | Action Make_Default 005d 00c4 | | Action Make_Default 005e 00c4 | | Action Make_Default 005f 00c4 | | Action Make_Default 0060 00c4 | | Action Make_Default 0061 00c4 | | Action Make_Default 0062 00c4 | | Action Make_Default 0063 00c4 | | Action Make_Default 0064 00c4 | | Action Make_Default 0065 00c4 | | Action Make_Default 0066 00c4 | | Action Make_Default 0067 00c4 | | Action Make_Default 0068 00c4 | | Action Make_Default 0069 00c4 | | Action Make_Default 006a 00c4 | | Action Make_Default 006b 00c4 | | Action Make_Default 006c 00c4 | | Action Make_Default 006d 00c4 | | Action Make_Default 006e 00c4 | | Action Make_Default 006f 00c4 | | Action Make_Default 0070 00c4 | | Action Make_Default 0071 00c4 | | Action Make_Default 0072 00c4 | | Action Make_Default 0073 00c4 | | Action Make_Default 0074 00c4 | | Action Make_Default 0075 00c4 | | Action Make_Default 0076 00c4 | | Action Make_Default 0077 00c4 | | Action Make_Default 0078 00c4 | | Action Make_Default 0079 00c4 | | Action Make_Default 007a 00c4 | | Action Make_Default 007b 00c4 | | Action Make_Default 007c 00c4 | | Action Make_Default 007d 00c4 | | Action Make_Default 007e 00c4 | | Action Make_Default 007f 00c4 | | Action Make_Default 0080 00c4 | | Action Make_Default 0081 00c4 | | Action Make_Default 0082 00c4 | | Action Make_Default 0083 00c4 | | Action Make_Default 0084 00c4 | | Action Make_Default 0085 00c4 | | Action Make_Default 0086 00c4 | | Action Make_Default 0087 00c4 | | Action Make_Default 0088 00c4 | | Action Make_Default 0089 00c4 | | Action Make_Default 008a 00c4 | | Action Make_Default 008b 00c4 | | Action Make_Default 008c 00c4 | | Action Make_Default 008d 00c4 | | Action Make_Default 008e 00c4 | | Action Make_Default 008f 00c4 | | Action Make_Default 0090 00c4 | | Action Make_Default 0091 00c4 | | Action Make_Default 0092 00c4 | | Action Make_Default 0093 00c4 | | Action Make_Default 0094 00c4 | | Action Make_Default 0095 00c4 | | Action Make_Default 0096 00c4 | | Action Make_Default 0097 00c4 | | Action Make_Default 0098 00c4 | | Action Make_Default 0099 00c4 | | Action Make_Default 009a 00c4 | | Action Make_Default 009b 00c4 | | Action Make_Default 009c 00c4 | | Action Make_Default 009d 00c4 | | Action Make_Default 009e 00c4 | | Action Make_Default 009f 00c4 | | Action Make_Default 00a0 00c4 | | Action Make_Default 00a1 00c4 | | Action Make_Default 00a2 00c4 | | Action Make_Default 00a3 00c4 | | Action Make_Default 00a4 00c4 | | Action Make_Default 00a5 00c4 | | Action Make_Default 00a6 00c4 | | Action Make_Default 00a7 00c4 | | Action Make_Default 00a8 00c4 | | Action Make_Default 00a9 00c4 | | Action Make_Default 00aa 00c4 | | Action Make_Default 00ab 00c4 | | Action Make_Default 00ac 00c4 | | Action Make_Default 00ad 00c4 | | Action Make_Default 00ae 00c4 | | Action Make_Default 00af 00c4 | | Action Make_Default 00b0 00c4 | | Action Make_Default 00b1 00c4 | | Action Make_Default 00b2 00c4 | | Action Make_Default 00b3 00c4 | | Action Make_Default 00b4 00c4 | | Action Make_Default 00b5 00c4 | | Action Make_Default 00b6 00c4 | | Action Make_Default 00b7 00c4 | | Action Make_Default 00b8 00c4 | | Action Make_Default 00b9 4801 |H | Short_Literal 0x1 00ba 4864 |Hd | Short_Literal 0x64 00bb 00e9 | | Load_Encached String_Cache 00bc 0333 | 3 | Declare_Variable Array,Visible,With_Constraint 00bd 4801 |H | Short_Literal 0x1 00be 4864 |Hd | Short_Literal 0x64 00bf 00e9 | | Load_Encached String_Cache 00c0 0334 | 4 | Declare_Variable Array,With_Constraint 00c1 4864 |Hd | Short_Literal 0x64 00c2 4801 |H | Short_Literal 0x1 00c3 4820 |H | Short_Literal 0x20 00c4 e2be | | Load 0x1,0xbe 00c5 e2bc | | Load 0x1,0xbc 00c6 01d6 | | Execute Vector,Field_Write 00c7 3ffb |? | Loop_Increasing 0xc3 00c8 e2bb | | Load 0x1,0xbb 00c9 01d4 | | Execute Vector,Structure_Write 00ca c2b1 | | Store 0x1,0xb1 00cb 00e2 | | Load_Encached Integer_Cache 00cc 0400 | | Execute_Immediate Set_Value_Visible_Unchecked,0x0 00cd c2b2 | | Store 0x1,0xb2 00ce 4801 |H | Short_Literal 0x1 00cf 4864 |Hd | Short_Literal 0x64 00d0 00e9 | | Load_Encached String_Cache 00d1 0333 | 3 | Declare_Variable Array,Visible,With_Constraint 00d2 4801 |H | Short_Literal 0x1 00d3 4864 |Hd | Short_Literal 0x64 00d4 00e9 | | Load_Encached String_Cache 00d5 0334 | 4 | Declare_Variable Array,With_Constraint 00d6 4864 |Hd | Short_Literal 0x64 00d7 4801 |H | Short_Literal 0x1 00d8 4820 |H | Short_Literal 0x20 00d9 e2be | | Load 0x1,0xbe 00da e2bc | | Load 0x1,0xbc 00db 01d6 | | Execute Vector,Field_Write 00dc 3ffb |? | Loop_Increasing 0xd8 00dd e2bb | | Load 0x1,0xbb 00de 01d4 | | Execute Vector,Structure_Write 00df c20d | | Store 0x1,0xd 00e0 00e2 | | Load_Encached Integer_Cache 00e1 0400 | | Execute_Immediate Set_Value_Visible_Unchecked,0x0 00e2 c20e | | Store 0x1,0xe 00e3 4801 |H | Short_Literal 0x1 00e4 4864 |Hd | Short_Literal 0x64 00e5 00e9 | | Load_Encached String_Cache 00e6 0333 | 3 | Declare_Variable Array,Visible,With_Constraint 00e7 4801 |H | Short_Literal 0x1 00e8 4864 |Hd | Short_Literal 0x64 00e9 00e9 | | Load_Encached String_Cache 00ea 0334 | 4 | Declare_Variable Array,With_Constraint 00eb 4864 |Hd | Short_Literal 0x64 00ec 4801 |H | Short_Literal 0x1 00ed 4820 |H | Short_Literal 0x20 00ee e2be | | Load 0x1,0xbe 00ef e2bc | | Load 0x1,0xbc 00f0 01d6 | | Execute Vector,Field_Write 00f1 3ffb |? | Loop_Increasing 0xed 00f2 e2bb | | Load 0x1,0xbb 00f3 01d4 | | Execute Vector,Structure_Write 00f4 c20f | | Store 0x1,0xf 00f5 00e2 | | Load_Encached Integer_Cache 00f6 0400 | | Execute_Immediate Set_Value_Visible_Unchecked,0x0 00f7 c210 | | Store 0x1,0x10 00f8 4801 |H | Short_Literal 0x1 00f9 4864 |Hd | Short_Literal 0x64 00fa 00e9 | | Load_Encached String_Cache 00fb 0333 | 3 | Declare_Variable Array,Visible,With_Constraint 00fc 4801 |H | Short_Literal 0x1 00fd 4864 |Hd | Short_Literal 0x64 00fe 00e9 | | Load_Encached String_Cache 00ff 0334 | 4 | Declare_Variable Array,With_Constraint 0100 4864 |Hd | Short_Literal 0x64 0101 4801 |H | Short_Literal 0x1 0102 4820 |H | Short_Literal 0x20 0103 e2be | | Load 0x1,0xbe 0104 e2bc | | Load 0x1,0xbc 0105 01d6 | | Execute Vector,Field_Write 0106 3ffb |? | Loop_Increasing 0x102 0107 e2bb | | Load 0x1,0xbb 0108 01d4 | | Execute Vector,Structure_Write 0109 c211 | | Store 0x1,0x11 010a 00e2 | | Load_Encached Integer_Cache 010b 0400 | | Execute_Immediate Set_Value_Visible_Unchecked,0x0 010c c212 | | Store 0x1,0x12 010d 4801 |H | Short_Literal 0x1 010e 4864 |Hd | Short_Literal 0x64 010f 00e9 | | Load_Encached String_Cache 0110 0333 | 3 | Declare_Variable Array,Visible,With_Constraint 0111 4801 |H | Short_Literal 0x1 0112 4864 |Hd | Short_Literal 0x64 0113 00e9 | | Load_Encached String_Cache 0114 0334 | 4 | Declare_Variable Array,With_Constraint 0115 4864 |Hd | Short_Literal 0x64 0116 4801 |H | Short_Literal 0x1 0117 4820 |H | Short_Literal 0x20 0118 e2be | | Load 0x1,0xbe 0119 e2bc | | Load 0x1,0xbc 011a 01d6 | | Execute Vector,Field_Write 011b 3ffb |? | Loop_Increasing 0x117 011c e2bb | | Load 0x1,0xbb 011d 01d4 | | Execute Vector,Structure_Write 011e c213 | | Store 0x1,0x13 011f 00e2 | | Load_Encached Integer_Cache 0120 0400 | | Execute_Immediate Set_Value_Visible_Unchecked,0x0 0121 c214 | | Store 0x1,0x14 0122 4801 |H | Short_Literal 0x1 0123 4864 |Hd | Short_Literal 0x64 0124 00e9 | | Load_Encached String_Cache 0125 0333 | 3 | Declare_Variable Array,Visible,With_Constraint 0126 4801 |H | Short_Literal 0x1 0127 4864 |Hd | Short_Literal 0x64 0128 00e9 | | Load_Encached String_Cache 0129 0334 | 4 | Declare_Variable Array,With_Constraint 012a 4864 |Hd | Short_Literal 0x64 012b 4801 |H | Short_Literal 0x1 012c 4820 |H | Short_Literal 0x20 012d e2be | | Load 0x1,0xbe 012e e2bc | | Load 0x1,0xbc 012f 01d6 | | Execute Vector,Field_Write 0130 3ffb |? | Loop_Increasing 0x12c 0131 e2bb | | Load 0x1,0xbb 0132 01d4 | | Execute Vector,Structure_Write 0133 c215 | | Store 0x1,0x15 0134 00e2 | | Load_Encached Integer_Cache 0135 0400 | | Execute_Immediate Set_Value_Visible_Unchecked,0x0 0136 c216 | | Store 0x1,0x16 0137 4801 |H | Short_Literal 0x1 0138 4864 |Hd | Short_Literal 0x64 0139 00e9 | | Load_Encached String_Cache 013a 0333 | 3 | Declare_Variable Array,Visible,With_Constraint 013b 4801 |H | Short_Literal 0x1 013c 4864 |Hd | Short_Literal 0x64 013d 00e9 | | Load_Encached String_Cache 013e 0334 | 4 | Declare_Variable Array,With_Constraint 013f 4864 |Hd | Short_Literal 0x64 0140 4801 |H | Short_Literal 0x1 0141 4820 |H | Short_Literal 0x20 0142 e2be | | Load 0x1,0xbe 0143 e2bc | | Load 0x1,0xbc 0144 01d6 | | Execute Vector,Field_Write 0145 3ffb |? | Loop_Increasing 0x141 0146 e2bb | | Load 0x1,0xbb 0147 01d4 | | Execute Vector,Structure_Write 0148 c217 | | Store 0x1,0x17 0149 00e2 | | Load_Encached Integer_Cache 014a 0400 | | Execute_Immediate Set_Value_Visible_Unchecked,0x0 014b c218 | | Store 0x1,0x18 014c 4801 |H | Short_Literal 0x1 014d 4864 |Hd | Short_Literal 0x64 014e 00e9 | | Load_Encached String_Cache 014f 0333 | 3 | Declare_Variable Array,Visible,With_Constraint 0150 4801 |H | Short_Literal 0x1 0151 4864 |Hd | Short_Literal 0x64 0152 00e9 | | Load_Encached String_Cache 0153 0334 | 4 | Declare_Variable Array,With_Constraint 0154 4864 |Hd | Short_Literal 0x64 0155 4801 |H | Short_Literal 0x1 0156 4820 |H | Short_Literal 0x20 0157 e2be | | Load 0x1,0xbe 0158 e2bc | | Load 0x1,0xbc 0159 01d6 | | Execute Vector,Field_Write 015a 3ffb |? | Loop_Increasing 0x156 015b e2bb | | Load 0x1,0xbb 015c 01d4 | | Execute Vector,Structure_Write 015d c219 | | Store 0x1,0x19 015e 00e2 | | Load_Encached Integer_Cache 015f 0400 | | Execute_Immediate Set_Value_Visible_Unchecked,0x0 0160 c21a | | Store 0x1,0x1a 0161 00e2 | | Load_Encached Integer_Cache 0162 0401 | | Execute_Immediate Set_Value_Visible_Unchecked,0x1 0163 c21b | | Store 0x1,0x1b 0164 00e2 | | Load_Encached Integer_Cache 0165 0401 | | Execute_Immediate Set_Value_Visible_Unchecked,0x1 0166 c21c | | Store 0x1,0x1c 0167 4801 |H | Short_Literal 0x1 0168 4801 |H | Short_Literal 0x1 0169 00e9 | | Load_Encached String_Cache 016a 0333 | 3 | Declare_Variable Array,Visible,With_Constraint 016b 53cc |S | Indirect_Literal Any,0x538,{0x20202020, 0x20202020} 016c c21d | | Store 0x1,0x1d 016d 4801 |H | Short_Literal 0x1 016e 4801 |H | Short_Literal 0x1 016f 00e9 | | Load_Encached String_Cache 0170 0333 | 3 | Declare_Variable Array,Visible,With_Constraint 0171 53ca |S | Indirect_Literal Any,0x53c,{0x20202020, 0x20202020} 0172 c21e | | Store 0x1,0x1e 0173 4801 |H | Short_Literal 0x1 0174 4801 |H | Short_Literal 0x1 0175 00e9 | | Load_Encached String_Cache 0176 0333 | 3 | Declare_Variable Array,Visible,With_Constraint 0177 53c8 |S | Indirect_Literal Any,0x540,{0x20202020, 0x20202020} 0178 c21f | | Store 0x1,0x1f 0179 4801 |H | Short_Literal 0x1 017a 4850 |HP | Short_Literal 0x50 017b 00e9 | | Load_Encached String_Cache 017c 0333 | 3 | Declare_Variable Array,Visible,With_Constraint 017d 4801 |H | Short_Literal 0x1 017e 4850 |HP | Short_Literal 0x50 017f 00e9 | | Load_Encached String_Cache 0180 0334 | 4 | Declare_Variable Array,With_Constraint 0181 4850 |HP | Short_Literal 0x50 0182 4801 |H | Short_Literal 0x1 0183 4820 |H | Short_Literal 0x20 0184 e2be | | Load 0x1,0xbe 0185 e2bc | | Load 0x1,0xbc 0186 01d6 | | Execute Vector,Field_Write 0187 3ffb |? | Loop_Increasing 0x183 0188 e2bb | | Load 0x1,0xbb 0189 01d4 | | Execute Vector,Structure_Write 018a c220 | | Store 0x1,0x20 018b 4801 |H | Short_Literal 0x1 018c 4850 |HP | Short_Literal 0x50 018d 00e9 | | Load_Encached String_Cache 018e 0333 | 3 | Declare_Variable Array,Visible,With_Constraint 018f 4801 |H | Short_Literal 0x1 0190 4850 |HP | Short_Literal 0x50 0191 00e9 | | Load_Encached String_Cache 0192 0334 | 4 | Declare_Variable Array,With_Constraint 0193 4850 |HP | Short_Literal 0x50 0194 4801 |H | Short_Literal 0x1 0195 485f |H_ | Short_Literal 0x5f 0196 e2be | | Load 0x1,0xbe 0197 e2bc | | Load 0x1,0xbc 0198 01d6 | | Execute Vector,Field_Write 0199 3ffb |? | Loop_Increasing 0x195 019a e2bb | | Load 0x1,0xbb 019b 01d4 | | Execute Vector,Structure_Write 019c c221 | ! | Store 0x1,0x21 019d 4800 |H | Short_Literal 0x0 019e 4802 |H | Short_Literal 0x2 019f 029f 0553 | S| Declare_Subprogram INIT_0550,For_Call 01a1 03fe | | Declare_Type Discrete,Defined,Visible 01a2 c222 | " | Store 0x1,0x22 01a3 e222 | " | Load 0x1,0x22 01a4 0401 | | Execute_Immediate Set_Value_Visible_Unchecked,0x1 01a5 c223 | # | Store 0x1,0x23 01a6 e222 | " | Load 0x1,0x22 01a7 0401 | | Execute_Immediate Set_Value_Visible_Unchecked,0x1 01a8 c224 | $ | Store 0x1,0x24 01a9 e222 | " | Load 0x1,0x22 01aa 0400 | | Execute_Immediate Set_Value_Visible_Unchecked,0x0 01ab c225 | % | Store 0x1,0x25 01ac e222 | " | Load 0x1,0x22 01ad 0401 | | Execute_Immediate Set_Value_Visible_Unchecked,0x1 01ae c226 | & | Store 0x1,0x26 01af e222 | " | Load 0x1,0x22 01b0 0400 | | Execute_Immediate Set_Value_Visible_Unchecked,0x0 01b1 c227 | ' | Store 0x1,0x27 01b2 e222 | " | Load 0x1,0x22 01b3 0400 | | Execute_Immediate Set_Value_Visible_Unchecked,0x0 01b4 c228 | ( | Store 0x1,0x28 01b5 e222 | " | Load 0x1,0x22 01b6 0400 | | Execute_Immediate Set_Value_Visible_Unchecked,0x0 01b7 c229 | ) | Store 0x1,0x29 01b8 e222 | " | Load 0x1,0x22 01b9 0400 | | Execute_Immediate Set_Value_Visible_Unchecked,0x0 01ba c22a | * | Store 0x1,0x2a 01bb e222 | " | Load 0x1,0x22 01bc 0400 | | Execute_Immediate Set_Value_Visible_Unchecked,0x0 01bd c22b | + | Store 0x1,0x2b 01be e222 | " | Load 0x1,0x22 01bf 0401 | | Execute_Immediate Set_Value_Visible_Unchecked,0x1 01c0 c22c | , | Store 0x1,0x2c 01c1 e222 | " | Load 0x1,0x22 01c2 0400 | | Execute_Immediate Set_Value_Visible_Unchecked,0x0 01c3 c22d | - | Store 0x1,0x2d 01c4 e222 | " | Load 0x1,0x22 01c5 0400 | | Execute_Immediate Set_Value_Visible_Unchecked,0x0 01c6 c22e | . | Store 0x1,0x2e 01c7 e222 | " | Load 0x1,0x22 01c8 0400 | | Execute_Immediate Set_Value_Visible_Unchecked,0x0 01c9 c22f | / | Store 0x1,0x2f 01ca e222 | " | Load 0x1,0x22 01cb 0401 | | Execute_Immediate Set_Value_Visible_Unchecked,0x1 01cc c230 | 0 | Store 0x1,0x30 01cd 4800 |H | Short_Literal 0x0 01ce 6365 |ce | Indirect_Literal Discrete,0x534,{0x00000000, 0x7fffffff} 01cf 00e5 | | Load_Encached Long_Integer_Cache 01d0 03f9 | | Declare_Type Discrete,Constrained,Visible 01d1 c231 | 1 | Store 0x1,0x31 01d2 4801 |H | Short_Literal 0x1 01d3 635c |c\ | Indirect_Literal Discrete,0x530,{0x00000000, 0x001e8480} 01d4 e231 | 1 | Load 0x1,0x31 01d5 03f9 | | Declare_Type Discrete,Constrained,Visible 01d6 c232 | 2 | Store 0x1,0x32 01d7 4801 |H | Short_Literal 0x1 01d8 4805 |H | Short_Literal 0x5 01d9 00e9 | | Load_Encached String_Cache 01da 035c | \ | Declare_Type Array,Constrained,Visible 01db c233 | 3 | Store 0x1,0x33 01dc 0007 | | Action Break_Optional 01dd 4800 |H | Short_Literal 0x0 01de 4802 |H | Short_Literal 0x2 01df 029f 056b | k| Declare_Subprogram INIT_0568,For_Call 01e1 03fe | | Declare_Type Discrete,Defined,Visible 01e2 c234 | 4 | Store 0x1,0x34 01e3 4800 |H | Short_Literal 0x0 01e4 4802 |H | Short_Literal 0x2 01e5 029f 0583 | | Declare_Subprogram INIT_0580,For_Call 01e7 03fe | | Declare_Type Discrete,Defined,Visible 01e8 c235 | 5 | Store 0x1,0x35 01e9 4800 |H | Short_Literal 0x0 01ea 6341 |cA | Indirect_Literal Discrete,0x52c,{0x00000000, 0x000005f0} 01eb 00e2 | | Load_Encached Integer_Cache 01ec 03f9 | | Declare_Type Discrete,Constrained,Visible 01ed c236 | 6 | Store 0x1,0x36 01ee 4801 |H | Short_Literal 0x1 01ef 4850 |HP | Short_Literal 0x50 01f0 e236 | 6 | Load 0x1,0x36 01f1 02a0 | | Declare_Subprogram Null_Subprogram 01f2 4801 |H | Short_Literal 0x1 01f3 035e | ^ | Declare_Type Array,Defined,Visible 01f4 c237 | 7 | Store 0x1,0x37 01f5 e237 | 7 | Load 0x1,0x37 01f6 0336 | 6 | Declare_Variable Array,Visible 01f7 c238 | 8 | Store 0x1,0x38 01f8 4801 |H | Short_Literal 0x1 01f9 632e |c. | Indirect_Literal Discrete,0x528,{0x00000000, 0x000005dc} 01fa 00e9 | | Load_Encached String_Cache 01fb 035c | \ | Declare_Type Array,Constrained,Visible 01fc c239 | 9 | Store 0x1,0x39 01fd e239 | 9 | Load 0x1,0x39 01fe 0336 | 6 | Declare_Variable Array,Visible 01ff 4801 |H | Short_Literal 0x1 0200 6327 |c' | Indirect_Literal Discrete,0x528,{0x00000000, 0x000005dc} 0201 00e9 | | Load_Encached String_Cache 0202 0334 | 4 | Declare_Variable Array,With_Constraint 0203 6324 |c$ | Indirect_Literal Discrete,0x528,{0x00000000, 0x000005dc} 0204 4801 |H | Short_Literal 0x1 0205 4820 |H | Short_Literal 0x20 0206 e2be | | Load 0x1,0xbe 0207 e2bc | | Load 0x1,0xbc 0208 01d6 | | Execute Vector,Field_Write 0209 3ffb |? | Loop_Increasing 0x205 020a e2bb | | Load 0x1,0xbb 020b 01d4 | | Execute Vector,Structure_Write 020c c23a | : | Store 0x1,0x3a 020d e239 | 9 | Load 0x1,0x39 020e 0336 | 6 | Declare_Variable Array,Visible 020f 4801 |H | Short_Literal 0x1 0210 6317 |c | Indirect_Literal Discrete,0x528,{0x00000000, 0x000005dc} 0211 00e9 | | Load_Encached String_Cache 0212 0334 | 4 | Declare_Variable Array,With_Constraint 0213 6314 |c | Indirect_Literal Discrete,0x528,{0x00000000, 0x000005dc} 0214 4801 |H | Short_Literal 0x1 0215 4820 |H | Short_Literal 0x20 0216 e2be | | Load 0x1,0xbe 0217 e2bc | | Load 0x1,0xbc 0218 01d6 | | Execute Vector,Field_Write 0219 3ffb |? | Loop_Increasing 0x215 021a e2bb | | Load 0x1,0xbb 021b 01d4 | | Execute Vector,Structure_Write 021c c23b | ; | Store 0x1,0x3b 021d 00e2 | | Load_Encached Integer_Cache 021e 0400 | | Execute_Immediate Set_Value_Visible_Unchecked,0x0 021f c23c | < | Store 0x1,0x3c 0220 00e2 | | Load_Encached Integer_Cache 0221 e234 | 4 | Load 0x1,0x34 0222 e235 | 5 | Load 0x1,0x35 0223 00e2 | | Load_Encached Integer_Cache 0224 00e2 | | Load_Encached Integer_Cache 0225 e237 | 7 | Load 0x1,0x37 0226 e239 | 9 | Load 0x1,0x39 0227 00e2 | | Load_Encached Integer_Cache 0228 00e2 | | Load_Encached Integer_Cache 0229 029f 059b | | Declare_Subprogram INIT_0598,For_Call 022b 4809 |H | Short_Literal 0x9 022c 032e | . | Declare_Type Record,Defined,Visible 022d c23d | = | Store 0x1,0x3d 022e 0007 | | Action Break_Optional 022f 0007 | | Action Break_Optional 0230 00e2 | | Load_Encached Integer_Cache 0231 0401 | | Execute_Immediate Set_Value_Visible_Unchecked,0x1 0232 c23e | > | Store 0x1,0x3e 0233 00e2 | | Load_Encached Integer_Cache 0234 0465 | e | Execute_Immediate Set_Value_Visible_Unchecked,0x65 0235 c23f | ? | Store 0x1,0x3f 0236 00e2 | | Load_Encached Integer_Cache 0237 0466 | f | Execute_Immediate Set_Value_Visible_Unchecked,0x66 0238 c240 | @ | Store 0x1,0x40 0239 00e2 | | Load_Encached Integer_Cache 023a 0467 | g | Execute_Immediate Set_Value_Visible_Unchecked,0x67 023b c241 | A | Store 0x1,0x41 023c 00e2 | | Load_Encached Integer_Cache 023d 0468 | h | Execute_Immediate Set_Value_Visible_Unchecked,0x68 023e c242 | B | Store 0x1,0x42 023f 00e2 | | Load_Encached Integer_Cache 0240 0469 | i | Execute_Immediate Set_Value_Visible_Unchecked,0x69 0241 c243 | C | Store 0x1,0x43 0242 00e2 | | Load_Encached Integer_Cache 0243 046a | j | Execute_Immediate Set_Value_Visible_Unchecked,0x6a 0244 c244 | D | Store 0x1,0x44 0245 00e2 | | Load_Encached Integer_Cache 0246 046b | k | Execute_Immediate Set_Value_Visible_Unchecked,0x6b 0247 c245 | E | Store 0x1,0x45 0248 00e2 | | Load_Encached Integer_Cache 0249 046c | l | Execute_Immediate Set_Value_Visible_Unchecked,0x6c 024a c246 | F | Store 0x1,0x46 024b 00e2 | | Load_Encached Integer_Cache 024c 046d | m | Execute_Immediate Set_Value_Visible_Unchecked,0x6d 024d c247 | G | Store 0x1,0x47 024e 00e2 | | Load_Encached Integer_Cache 024f 046e | n | Execute_Immediate Set_Value_Visible_Unchecked,0x6e 0250 c248 | H | Store 0x1,0x48 0251 00e2 | | Load_Encached Integer_Cache 0252 0129 | ) | Execute Any,Make_Visible 0253 c249 | I | Store 0x1,0x49 0254 00e2 | | Load_Encached Integer_Cache 0255 0129 | ) | Execute Any,Make_Visible 0256 c24a | J | Store 0x1,0x4a 0257 00e2 | | Load_Encached Integer_Cache 0258 0129 | ) | Execute Any,Make_Visible 0259 c24b | K | Store 0x1,0x4b 025a e222 | " | Load 0x1,0x22 025b 0400 | | Execute_Immediate Set_Value_Visible_Unchecked,0x0 025c c24c | L | Store 0x1,0x4c 025d e222 | " | Load 0x1,0x22 025e 0401 | | Execute_Immediate Set_Value_Visible_Unchecked,0x1 025f c24d | M | Store 0x1,0x4d 0260 00e2 | | Load_Encached Integer_Cache 0261 0129 | ) | Execute Any,Make_Visible 0262 c24e | N | Store 0x1,0x4e 0263 4801 |H | Short_Literal 0x1 0264 4850 |HP | Short_Literal 0x50 0265 00e9 | | Load_Encached String_Cache 0266 035c | \ | Declare_Type Array,Constrained,Visible 0267 c24f | O | Store 0x1,0x4f 0268 0007 | | Action Break_Optional 0269 e249 | I | Load 0x1,0x49 026a e24a | J | Load 0x1,0x4a 026b e222 | " | Load 0x1,0x22 026c e222 | " | Load 0x1,0x22 026d e24e | N | Load 0x1,0x4e 026e e222 | " | Load 0x1,0x22 026f e24f | O | Load 0x1,0x4f 0270 e24b | K | Load 0x1,0x4b 0271 029f 05d3 | | Declare_Subprogram INIT_05d0,For_Call 0273 4808 |H | Short_Literal 0x8 0274 032e | . | Declare_Type Record,Defined,Visible 0275 c2b4 | | Store 0x1,0xb4 0276 00e2 | | Load_Encached Integer_Cache 0277 046e | n | Execute_Immediate Set_Value_Visible_Unchecked,0x6e 0278 c251 | Q | Store 0x1,0x51 0279 00e2 | | Load_Encached Integer_Cache 027a 0464 | d | Execute_Immediate Set_Value_Visible_Unchecked,0x64 027b c252 | R | Store 0x1,0x52 027c e2b4 | | Load 0x1,0xb4 027d 0321 | ! | Declare_Variable Record,Visible 027e 00d8 | | Load_Top At_Offset_0 027f 1c00 | | Execute_Immediate Run_Utility,0x0 0280 c253 | S | Store 0x1,0x53 0281 4801 |H | Short_Literal 0x1 0282 486e |Hn | Short_Literal 0x6e 0283 e2b4 | | Load 0x1,0xb4 0284 029f 05fb | | Declare_Subprogram INIT_05f8,For_Call 0286 4801 |H | Short_Literal 0x1 0287 035e | ^ | Declare_Type Array,Defined,Visible 0288 c254 | T | Store 0x1,0x54 0289 0007 | | Action Break_Optional 028a 00e2 | | Load_Encached Integer_Cache 028b 0401 | | Execute_Immediate Set_Value_Visible_Unchecked,0x1 028c c255 | U | Store 0x1,0x55 028d 00e2 | | Load_Encached Integer_Cache 028e 0402 | | Execute_Immediate Set_Value_Visible_Unchecked,0x2 028f c256 | V | Store 0x1,0x56 0290 00e2 | | Load_Encached Integer_Cache 0291 0403 | | Execute_Immediate Set_Value_Visible_Unchecked,0x3 0292 c257 | W | Store 0x1,0x57 0293 00e2 | | Load_Encached Integer_Cache 0294 0404 | | Execute_Immediate Set_Value_Visible_Unchecked,0x4 0295 c258 | X | Store 0x1,0x58 0296 00e2 | | Load_Encached Integer_Cache 0297 0405 | | Execute_Immediate Set_Value_Visible_Unchecked,0x5 0298 c259 | Y | Store 0x1,0x59 0299 00e2 | | Load_Encached Integer_Cache 029a 0406 | | Execute_Immediate Set_Value_Visible_Unchecked,0x6 029b c25a | Z | Store 0x1,0x5a 029c 00e2 | | Load_Encached Integer_Cache 029d 0407 | | Execute_Immediate Set_Value_Visible_Unchecked,0x7 029e c25b | [ | Store 0x1,0x5b 029f 00e2 | | Load_Encached Integer_Cache 02a0 0408 | | Execute_Immediate Set_Value_Visible_Unchecked,0x8 02a1 c25c | \ | Store 0x1,0x5c 02a2 00e2 | | Load_Encached Integer_Cache 02a3 0409 | | Execute_Immediate Set_Value_Visible_Unchecked,0x9 02a4 c25d | ] | Store 0x1,0x5d 02a5 00e2 | | Load_Encached Integer_Cache 02a6 040a | | Execute_Immediate Set_Value_Visible_Unchecked,0xa 02a7 c25e | ^ | Store 0x1,0x5e 02a8 e254 | T | Load 0x1,0x54 02a9 0336 | 6 | Declare_Variable Array,Visible 02aa 00d8 | | Load_Top At_Offset_0 02ab 1c00 | | Execute_Immediate Run_Utility,0x0 02ac c25f | _ | Store 0x1,0x5f 02ad 00e2 | | Load_Encached Integer_Cache 02ae 040a | | Execute_Immediate Set_Value_Visible_Unchecked,0xa 02af c260 | ` | Store 0x1,0x60 02b0 e2b4 | | Load 0x1,0xb4 02b1 0321 | ! | Declare_Variable Record,Visible 02b2 00d8 | | Load_Top At_Offset_0 02b3 1c00 | | Execute_Immediate Run_Utility,0x0 02b4 c261 | a | Store 0x1,0x61 02b5 4801 |H | Short_Literal 0x1 02b6 480a |H | Short_Literal 0xa 02b7 e2b4 | | Load 0x1,0xb4 02b8 029f 0613 | | Declare_Subprogram INIT_0610,For_Call 02ba 4801 |H | Short_Literal 0x1 02bb 035e | ^ | Declare_Type Array,Defined,Visible 02bc c262 | b | Store 0x1,0x62 02bd 0007 | | Action Break_Optional 02be 00e2 | | Load_Encached Integer_Cache 02bf 0400 | | Execute_Immediate Set_Value_Visible_Unchecked,0x0 02c0 c263 | c | Store 0x1,0x63 02c1 4801 |H | Short_Literal 0x1 02c2 4814 |H | Short_Literal 0x14 02c3 00e9 | | Load_Encached String_Cache 02c4 035c | \ | Declare_Type Array,Constrained,Visible 02c5 00e2 | | Load_Encached Integer_Cache 02c6 e222 | " | Load 0x1,0x22 02c7 e222 | " | Load 0x1,0x22 02c8 e222 | " | Load 0x1,0x22 02c9 e222 | " | Load 0x1,0x22 02ca 029f 062b | +| Declare_Subprogram INIT_0628,For_Call 02cc 4806 |H | Short_Literal 0x6 02cd 032e | . | Declare_Type Record,Defined,Visible 02ce c264 | d | Store 0x1,0x64 02cf e23d | = | Load 0x1,0x3d 02d0 0321 | ! | Declare_Variable Record,Visible 02d1 00d8 | | Load_Top At_Offset_0 02d2 1c00 | | Execute_Immediate Run_Utility,0x0 02d3 c265 | e | Store 0x1,0x65 02d4 00e3 | | Load_Encached Natural_Cache 02d5 03ea | | Declare_Variable Discrete,Visible 02d6 c266 | f | Store 0x1,0x66 02d7 4801 |H | Short_Literal 0x1 02d8 4801 |H | Short_Literal 0x1 02d9 00e9 | | Load_Encached String_Cache 02da 0333 | 3 | Declare_Variable Array,Visible,With_Constraint 02db c267 | g | Store 0x1,0x67 02dc 4801 |H | Short_Literal 0x1 02dd 4802 |H | Short_Literal 0x2 02de 00e9 | | Load_Encached String_Cache 02df 0333 | 3 | Declare_Variable Array,Visible,With_Constraint 02e0 c268 | h | Store 0x1,0x68 02e1 4801 |H | Short_Literal 0x1 02e2 4805 |H | Short_Literal 0x5 02e3 00e9 | | Load_Encached String_Cache 02e4 0333 | 3 | Declare_Variable Array,Visible,With_Constraint 02e5 c269 | i | Store 0x1,0x69 02e6 4801 |H | Short_Literal 0x1 02e7 480a |H | Short_Literal 0xa 02e8 00e9 | | Load_Encached String_Cache 02e9 0333 | 3 | Declare_Variable Array,Visible,With_Constraint 02ea c26a | j | Store 0x1,0x6a 02eb 4801 |H | Short_Literal 0x1 02ec 4846 |HF | Short_Literal 0x46 02ed 00e9 | | Load_Encached String_Cache 02ee 0333 | 3 | Declare_Variable Array,Visible,With_Constraint 02ef c26b | k | Store 0x1,0x6b 02f0 4801 |H | Short_Literal 0x1 02f1 4850 |HP | Short_Literal 0x50 02f2 00e9 | | Load_Encached String_Cache 02f3 0333 | 3 | Declare_Variable Array,Visible,With_Constraint 02f4 c26c | l | Store 0x1,0x6c 02f5 4801 |H | Short_Literal 0x1 02f6 4801 |H | Short_Literal 0x1 02f7 00e9 | | Load_Encached String_Cache 02f8 0333 | 3 | Declare_Variable Array,Visible,With_Constraint 02f9 4801 |H | Short_Literal 0x1 02fa 4801 |H | Short_Literal 0x1 02fb 00e9 | | Load_Encached String_Cache 02fc 0334 | 4 | Declare_Variable Array,With_Constraint 02fd 4820 |H | Short_Literal 0x20 02fe 4801 |H | Short_Literal 0x1 02ff e2bc | | Load 0x1,0xbc 0300 01d6 | | Execute Vector,Field_Write 0301 e2bb | | Load 0x1,0xbb 0302 01d4 | | Execute Vector,Structure_Write 0303 c26d | m | Store 0x1,0x6d 0304 4801 |H | Short_Literal 0x1 0305 4802 |H | Short_Literal 0x2 0306 00e9 | | Load_Encached String_Cache 0307 0333 | 3 | Declare_Variable Array,Visible,With_Constraint 0308 4801 |H | Short_Literal 0x1 0309 4802 |H | Short_Literal 0x2 030a 00e9 | | Load_Encached String_Cache 030b 0334 | 4 | Declare_Variable Array,With_Constraint 030c 4820 |H | Short_Literal 0x20 030d 4801 |H | Short_Literal 0x1 030e e2bc | | Load 0x1,0xbc 030f 01d6 | | Execute Vector,Field_Write 0310 4820 |H | Short_Literal 0x20 0311 4802 |H | Short_Literal 0x2 0312 e2bc | | Load 0x1,0xbc 0313 01d6 | | Execute Vector,Field_Write 0314 e2bb | | Load 0x1,0xbb 0315 01d4 | | Execute Vector,Structure_Write 0316 c26e | n | Store 0x1,0x6e 0317 4801 |H | Short_Literal 0x1 0318 4805 |H | Short_Literal 0x5 0319 00e9 | | Load_Encached String_Cache 031a 0333 | 3 | Declare_Variable Array,Visible,With_Constraint 031b 4801 |H | Short_Literal 0x1 031c 4805 |H | Short_Literal 0x5 031d 00e9 | | Load_Encached String_Cache 031e 0334 | 4 | Declare_Variable Array,With_Constraint 031f 4805 |H | Short_Literal 0x5 0320 4801 |H | Short_Literal 0x1 0321 4820 |H | Short_Literal 0x20 0322 e2be | | Load 0x1,0xbe 0323 e2bc | | Load 0x1,0xbc 0324 01d6 | | Execute Vector,Field_Write 0325 3ffb |? | Loop_Increasing 0x321 0326 e2bb | | Load 0x1,0xbb 0327 01d4 | | Execute Vector,Structure_Write 0328 c26f | o | Store 0x1,0x6f 0329 4801 |H | Short_Literal 0x1 032a 480a |H | Short_Literal 0xa 032b 00e9 | | Load_Encached String_Cache 032c 0333 | 3 | Declare_Variable Array,Visible,With_Constraint 032d 4801 |H | Short_Literal 0x1 032e 480a |H | Short_Literal 0xa 032f 00e9 | | Load_Encached String_Cache 0330 0334 | 4 | Declare_Variable Array,With_Constraint 0331 480a |H | Short_Literal 0xa 0332 4801 |H | Short_Literal 0x1 0333 4820 |H | Short_Literal 0x20 0334 e2be | | Load 0x1,0xbe 0335 e2bc | | Load 0x1,0xbc 0336 01d6 | | Execute Vector,Field_Write 0337 3ffb |? | Loop_Increasing 0x333 0338 e2bb | | Load 0x1,0xbb 0339 01d4 | | Execute Vector,Structure_Write 033a c270 | p | Store 0x1,0x70 033b 4801 |H | Short_Literal 0x1 033c 4846 |HF | Short_Literal 0x46 033d 00e9 | | Load_Encached String_Cache 033e 0333 | 3 | Declare_Variable Array,Visible,With_Constraint 033f 4801 |H | Short_Literal 0x1 0340 4846 |HF | Short_Literal 0x46 0341 00e9 | | Load_Encached String_Cache 0342 0334 | 4 | Declare_Variable Array,With_Constraint 0343 4846 |HF | Short_Literal 0x46 0344 4801 |H | Short_Literal 0x1 0345 4820 |H | Short_Literal 0x20 0346 e2be | | Load 0x1,0xbe 0347 e2bc | | Load 0x1,0xbc 0348 01d6 | | Execute Vector,Field_Write 0349 3ffb |? | Loop_Increasing 0x345 034a e2bb | | Load 0x1,0xbb 034b 01d4 | | Execute Vector,Structure_Write 034c c271 | q | Store 0x1,0x71 034d 00e2 | | Load_Encached Integer_Cache 034e 0400 | | Execute_Immediate Set_Value_Visible_Unchecked,0x0 034f c272 | r | Store 0x1,0x72 0350 61d3 |a | Indirect_Literal Discrete,0x524,{0x00000000, 0x00020000} 0351 00e7 | | Load_Encached Duration_Cache 0352 03f0 | | Declare_Variable Discrete,Visible,With_Value 0353 c273 | s | Store 0x1,0x73 0354 00e3 | | Load_Encached Natural_Cache 0355 03ea | | Declare_Variable Discrete,Visible 0356 c274 | t | Store 0x1,0x74 0357 0007 | | Action Break_Optional 0358 e001 | | Load 0x0,0x1 0359 e002 | | Load 0x0,0x2 035a e23d | = | Load 0x1,0x3d 035b e003 | | Load 0x0,0x3 035c 0386 | | Declare_Variable Package,Visible 035d 00d8 | | Load_Top At_Offset_0 035e 020f | | Execute Module,Activate 035f c275 | u | Store 0x1,0x75 0360 00e2 | | Load_Encached Integer_Cache 0361 e262 | b | Load 0x1,0x62 0362 029f 065b | [| Declare_Subprogram INIT_0658,For_Call 0364 4802 |H | Short_Literal 0x2 0365 032e | . | Declare_Type Record,Defined,Visible 0366 c276 | v | Store 0x1,0x76 0367 00e2 | | Load_Encached Integer_Cache 0368 0400 | | Execute_Immediate Set_Value_Visible_Unchecked,0x0 0369 c277 | w | Store 0x1,0x77 036a e276 | v | Load 0x1,0x76 036b 0321 | ! | Declare_Variable Record,Visible 036c 00d8 | | Load_Top At_Offset_0 036d 1c00 | | Execute_Immediate Run_Utility,0x0 036e c278 | x | Store 0x1,0x78 036f e276 | v | Load 0x1,0x76 0370 0321 | ! | Declare_Variable Record,Visible 0371 00d8 | | Load_Top At_Offset_0 0372 1c00 | | Execute_Immediate Run_Utility,0x0 0373 c279 | y | Store 0x1,0x79 0374 e004 | | Load 0x0,0x4 0375 e005 | | Load 0x0,0x5 0376 e276 | v | Load 0x1,0x76 0377 e003 | | Load 0x0,0x3 0378 0386 | | Declare_Variable Package,Visible 0379 00d8 | | Load_Top At_Offset_0 037a 020f | | Execute Module,Activate 037b c27a | z | Store 0x1,0x7a 037c e27a | z | Load 0x1,0x7a 037d 1b13 | | Execute Package,Field_Read,Field_Number 0x13 037e 0129 | ) | Execute Any,Make_Visible 037f c27b | { | Store 0x1,0x7b 0380 e27a | z | Load 0x1,0x7a 0381 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0382 039e | | Declare_Variable Heap_Access,Visible 0383 c27c | | | Store 0x1,0x7c 0384 e006 | | Load 0x0,0x6 0385 e007 | | Load 0x0,0x7 0386 00e7 | | Load_Encached Duration_Cache 0387 e008 | | Load 0x0,0x8 0388 1b52 | R | Execute Package,Field_Read,Field_Number 0x52 0389 0386 | | Declare_Variable Package,Visible 038a 00d8 | | Load_Top At_Offset_0 038b 020f | | Execute Module,Activate 038c c27d | } | Store 0x1,0x7d 038d e008 | | Load 0x0,0x8 038e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 038f 02c6 | | Declare_Variable Any,Visible 0390 00d8 | | Load_Top At_Offset_0 0391 1c00 | | Execute_Immediate Run_Utility,0x0 0392 c27e | ~ | Store 0x1,0x7e 0393 e275 | u | Load 0x1,0x75 0394 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0395 0400 | | Execute_Immediate Set_Value_Visible_Unchecked,0x0 0396 c27f | | Store 0x1,0x7f 0397 e275 | u | Load 0x1,0x75 0398 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0399 0401 | | Execute_Immediate Set_Value_Visible_Unchecked,0x1 039a c280 | | Store 0x1,0x80 039b e275 | u | Load 0x1,0x75 039c 1b11 | | Execute Package,Field_Read,Field_Number 0x11 039d 0402 | | Execute_Immediate Set_Value_Visible_Unchecked,0x2 039e c281 | | Store 0x1,0x81 039f e233 | 3 | Load 0x1,0x33 03a0 0336 | 6 | Declare_Variable Array,Visible 03a1 51a2 |Q | Indirect_Literal Any,0x544,{0x626c616e, 0x6b202020} 03a2 c282 | | Store 0x1,0x82 03a3 e233 | 3 | Load 0x1,0x33 03a4 0336 | 6 | Declare_Variable Array,Visible 03a5 51a2 |Q | Indirect_Literal Any,0x548,{0x626c616e, 0x6b202020} 03a6 c283 | | Store 0x1,0x83 03a7 e275 | u | Load 0x1,0x75 03a8 1b13 | | Execute Package,Field_Read,Field_Number 0x13 03a9 0129 | ) | Execute Any,Make_Visible 03aa c284 | | Store 0x1,0x84 03ab e275 | u | Load 0x1,0x75 03ac 1b13 | | Execute Package,Field_Read,Field_Number 0x13 03ad 03ea | | Declare_Variable Discrete,Visible 03ae c285 | | Store 0x1,0x85 03af 0007 | | Action Break_Optional 03b0 4801 |H | Short_Literal 0x1 03b1 4828 |H( | Short_Literal 0x28 03b2 00e9 | | Load_Encached String_Cache 03b3 035c | \ | Declare_Type Array,Constrained,Visible 03b4 c286 | | Store 0x1,0x86 03b5 4801 |H | Short_Literal 0x1 03b6 4850 |HP | Short_Literal 0x50 03b7 00e9 | | Load_Encached String_Cache 03b8 035c | \ | Declare_Type Array,Constrained,Visible 03b9 c287 | | Store 0x1,0x87 03ba 00e2 | | Load_Encached Integer_Cache 03bb 4801 |H | Short_Literal 0x1 03bc 4850 |HP | Short_Literal 0x50 03bd 00e9 | | Load_Encached String_Cache 03be 035c | \ | Declare_Type Array,Constrained,Visible 03bf 00e2 | | Load_Encached Integer_Cache 03c0 00e2 | | Load_Encached Integer_Cache 03c1 e286 | | Load 0x1,0x86 03c2 00e2 | | Load_Encached Integer_Cache 03c3 00e1 | | Load_Encached Boolean_Cache 03c4 00e2 | | Load_Encached Integer_Cache 03c5 00e2 | | Load_Encached Integer_Cache 03c6 00e2 | | Load_Encached Integer_Cache 03c7 00e1 | | Load_Encached Boolean_Cache 03c8 4801 |H | Short_Literal 0x1 03c9 4802 |H | Short_Literal 0x2 03ca 00e9 | | Load_Encached String_Cache 03cb 035c | \ | Declare_Type Array,Constrained,Visible 03cc 00e2 | | Load_Encached Integer_Cache 03cd 00e2 | | Load_Encached Integer_Cache 03ce 00e2 | | Load_Encached Integer_Cache 03cf 00e2 | | Load_Encached Integer_Cache 03d0 00e2 | | Load_Encached Integer_Cache 03d1 00e2 | | Load_Encached Integer_Cache 03d2 00e2 | | Load_Encached Integer_Cache 03d3 00e2 | | Load_Encached Integer_Cache 03d4 4801 |H | Short_Literal 0x1 03d5 4850 |HP | Short_Literal 0x50 03d6 00e9 | | Load_Encached String_Cache 03d7 035c | \ | Declare_Type Array,Constrained,Visible 03d8 00e2 | | Load_Encached Integer_Cache 03d9 00e2 | | Load_Encached Integer_Cache 03da 4801 |H | Short_Literal 0x1 03db 4850 |HP | Short_Literal 0x50 03dc 00e9 | | Load_Encached String_Cache 03dd 035c | \ | Declare_Type Array,Constrained,Visible 03de 00e2 | | Load_Encached Integer_Cache 03df 00e2 | | Load_Encached Integer_Cache 03e0 4801 |H | Short_Literal 0x1 03e1 4850 |HP | Short_Literal 0x50 03e2 00e9 | | Load_Encached String_Cache 03e3 035c | \ | Declare_Type Array,Constrained,Visible 03e4 00e2 | | Load_Encached Integer_Cache 03e5 00e2 | | Load_Encached Integer_Cache 03e6 4801 |H | Short_Literal 0x1 03e7 4850 |HP | Short_Literal 0x50 03e8 00e9 | | Load_Encached String_Cache 03e9 035c | \ | Declare_Type Array,Constrained,Visible 03ea 00e2 | | Load_Encached Integer_Cache 03eb 00e2 | | Load_Encached Integer_Cache 03ec 4801 |H | Short_Literal 0x1 03ed 4850 |HP | Short_Literal 0x50 03ee 00e9 | | Load_Encached String_Cache 03ef 035c | \ | Declare_Type Array,Constrained,Visible 03f0 00e2 | | Load_Encached Integer_Cache 03f1 e275 | u | Load 0x1,0x75 03f2 1b10 | | Execute Package,Field_Read,Field_Number 0x10 03f3 4801 |H | Short_Literal 0x1 03f4 4805 |H | Short_Literal 0x5 03f5 00e9 | | Load_Encached String_Cache 03f6 035c | \ | Declare_Type Array,Constrained,Visible 03f7 e23d | = | Load 0x1,0x3d 03f8 00e2 | | Load_Encached Integer_Cache 03f9 00e2 | | Load_Encached Integer_Cache 03fa 029f 0673 | s| Declare_Subprogram INIT_0670,For_Call 03fc 4827 |H' | Short_Literal 0x27 03fd 032e | . | Declare_Type Record,Defined,Visible 03fe c2b3 | | Store 0x1,0xb3 03ff e2b3 | | Load 0x1,0xb3 0400 0321 | ! | Declare_Variable Record,Visible 0401 00d8 | | Load_Top At_Offset_0 0402 1c00 | | Execute_Immediate Run_Utility,0x0 0403 c289 | | Store 0x1,0x89 0404 00e2 | | Load_Encached Integer_Cache 0405 0415 | | Execute_Immediate Set_Value_Visible_Unchecked,0x15 0406 c28a | | Store 0x1,0x8a 0407 0007 | | Action Break_Optional 0408 00e2 | | Load_Encached Integer_Cache 0409 0410 | | Execute_Immediate Set_Value_Visible_Unchecked,0x10 040a c2b5 | | Store 0x1,0xb5 040b 4801 |H | Short_Literal 0x1 040c 4810 |H | Short_Literal 0x10 040d e254 | T | Load 0x1,0x54 040e 029f 074b | K| Declare_Subprogram INIT_0748,For_Call 0410 4801 |H | Short_Literal 0x1 0411 035e | ^ | Declare_Type Array,Defined,Visible 0412 c2b6 | | Store 0x1,0xb6 0413 e2b6 | | Load 0x1,0xb6 0414 0336 | 6 | Declare_Variable Array,Visible 0415 00d8 | | Load_Top At_Offset_0 0416 1c00 | | Execute_Immediate Run_Utility,0x0 0417 c28d | | Store 0x1,0x8d 0418 49f4 |I | Short_Literal 0x1f4 0419 00e2 | | Load_Encached Integer_Cache 041a 03f0 | | Declare_Variable Discrete,Visible,With_Value 041b c28e | | Store 0x1,0x8e 041c 4801 |H | Short_Literal 0x1 041d 49f4 |I | Short_Literal 0x1f4 041e e262 | b | Load 0x1,0x62 041f 029f 0763 | c| Declare_Subprogram INIT_0760,For_Call 0421 4801 |H | Short_Literal 0x1 0422 035e | ^ | Declare_Type Array,Defined,Visible 0423 c28f | | Store 0x1,0x8f 0424 e28f | | Load 0x1,0x8f 0425 0336 | 6 | Declare_Variable Array,Visible 0426 00d8 | | Load_Top At_Offset_0 0427 1c00 | | Execute_Immediate Run_Utility,0x0 0428 c290 | | Store 0x1,0x90 0429 4990 |I | Short_Literal 0x190 042a 00e2 | | Load_Encached Integer_Cache 042b 03f0 | | Declare_Variable Discrete,Visible,With_Value 042c c2b7 | | Store 0x1,0xb7 042d 4801 |H | Short_Literal 0x1 042e 4990 |I | Short_Literal 0x190 042f e264 | d | Load 0x1,0x64 0430 029f 077b | {| Declare_Subprogram INIT_0778,For_Call 0432 4801 |H | Short_Literal 0x1 0433 035e | ^ | Declare_Type Array,Defined,Visible 0434 c2b8 | | Store 0x1,0xb8 0435 e2b8 | | Load 0x1,0xb8 0436 0336 | 6 | Declare_Variable Array,Visible 0437 00d8 | | Load_Top At_Offset_0 0438 1c00 | | Execute_Immediate Run_Utility,0x0 0439 c293 | | Store 0x1,0x93 043a 00e2 | | Load_Encached Integer_Cache 043b 040c | | Execute_Immediate Set_Value_Visible_Unchecked,0xc 043c c2b9 | | Store 0x1,0xb9 043d 4801 |H | Short_Literal 0x1 043e 480c |H | Short_Literal 0xc 043f e2b3 | | Load 0x1,0xb3 0440 029f 0793 | | Declare_Subprogram INIT_0790,For_Call 0442 4801 |H | Short_Literal 0x1 0443 035e | ^ | Declare_Type Array,Defined,Visible 0444 c2ba | | Store 0x1,0xba 0445 00d8 | | Load_Top At_Offset_0 0446 0336 | 6 | Declare_Variable Array,Visible 0447 00d8 | | Load_Top At_Offset_0 0448 1c00 | | Execute_Immediate Run_Utility,0x0 0449 c296 | | Store 0x1,0x96 044a 0007 | | Action Break_Optional 044b 029a 07ab | | Declare_Subprogram INIT_07a8,For_Outer_Call,Visible,Unelaborated 044d c297 | | Store 0x1,0x97 044e 029a 07cb | | Declare_Subprogram INIT_07c8,For_Outer_Call,Visible,Unelaborated 0450 c298 | | Store 0x1,0x98 0451 029a 07e3 | | Declare_Subprogram INIT_07e0,For_Outer_Call,Visible,Unelaborated 0453 c299 | | Store 0x1,0x99 0454 029a 07fb | | Declare_Subprogram INIT_07f8,For_Outer_Call,Visible,Unelaborated 0456 c29a | | Store 0x1,0x9a 0457 029a 0833 | 3| Declare_Subprogram INIT_0830,For_Outer_Call,Visible,Unelaborated 0459 c29b | | Store 0x1,0x9b 045a 029a 0883 | | Declare_Subprogram INIT_0880,For_Outer_Call,Visible,Unelaborated 045c c29c | | Store 0x1,0x9c 045d 029a 088b | | Declare_Subprogram INIT_0888,For_Outer_Call,Visible,Unelaborated 045f c29d | | Store 0x1,0x9d 0460 029a 08a3 | | Declare_Subprogram INIT_08a0,For_Outer_Call,Visible,Unelaborated 0462 c29e | | Store 0x1,0x9e 0463 029a 08ab | | Declare_Subprogram INIT_08a8,For_Outer_Call,Visible,Unelaborated 0465 c29f | | Store 0x1,0x9f 0466 029a 08d3 | | Declare_Subprogram INIT_08d0,For_Outer_Call,Visible,Unelaborated 0468 c2a0 | | Store 0x1,0xa0 0469 0007 | | Action Break_Optional 046a 029a 091b | | Declare_Subprogram INIT_0918,For_Outer_Call,Visible,Unelaborated 046c c2a1 | | Store 0x1,0xa1 046d 029a 0923 | #| Declare_Subprogram INIT_0920,For_Outer_Call,Visible,Unelaborated 046f c2a2 | | Store 0x1,0xa2 0470 029a 092b | +| Declare_Subprogram INIT_0928,For_Outer_Call,Visible,Unelaborated 0472 c2a3 | | Store 0x1,0xa3 0473 029a 0933 | 3| Declare_Subprogram INIT_0930,For_Outer_Call,Visible,Unelaborated 0475 c2a4 | | Store 0x1,0xa4 0476 029a 094b | K| Declare_Subprogram INIT_0948,For_Outer_Call,Visible,Unelaborated 0478 c2a5 | | Store 0x1,0xa5 0479 029a 0953 | S| Declare_Subprogram INIT_0950,For_Outer_Call,Visible,Unelaborated 047b c2a6 | | Store 0x1,0xa6 047c 029a 095b | [| Declare_Subprogram INIT_0958,For_Outer_Call,Visible,Unelaborated 047e c2a7 | | Store 0x1,0xa7 047f 029a 096b | k| Declare_Subprogram INIT_0968,For_Outer_Call,Visible,Unelaborated 0481 c2a8 | | Store 0x1,0xa8 0482 029a 0a03 | | Declare_Subprogram INIT_0a00,For_Outer_Call,Visible,Unelaborated 0484 c2a9 | | Store 0x1,0xa9 0485 029a 0a43 | C| Declare_Subprogram INIT_0a40,For_Outer_Call,Visible,Unelaborated 0487 c2aa | | Store 0x1,0xaa 0488 0007 | | Action Break_Optional 0489 029a 0a53 | S| Declare_Subprogram INIT_0a50,For_Outer_Call,Visible,Unelaborated 048b c2ab | | Store 0x1,0xab 048c 029a 0a63 | c| Declare_Subprogram INIT_0a60,For_Outer_Call,Visible,Unelaborated 048e c2ac | | Store 0x1,0xac 048f 029a 0a6b | k| Declare_Subprogram INIT_0a68,For_Outer_Call,Visible,Unelaborated 0491 c2ad | | Store 0x1,0xad 0492 029a 0a93 | | Declare_Subprogram INIT_0a90,For_Outer_Call,Visible,Unelaborated 0494 c2ae | | Store 0x1,0xae 0495 029a 0a9b | | Declare_Subprogram INIT_0a98,For_Outer_Call,Visible,Unelaborated 0497 c2af | | Store 0x1,0xaf 0498 029a 0abb | | Declare_Subprogram INIT_0ab8,For_Outer_Call,Visible,Unelaborated 049a c2b0 | | Store 0x1,0xb0 049b 00bf | | Action Accept_Activation 049c 1d97 | | Execute_Immediate Reference_Lex_1,0x97 049d 00c7 | | Action Elaborate_Subprogram 049e 1d98 | | Execute_Immediate Reference_Lex_1,0x98 049f 00c7 | | Action Elaborate_Subprogram 04a0 0007 | | Action Break_Optional 04a1 1d99 | | Execute_Immediate Reference_Lex_1,0x99 04a2 00c7 | | Action Elaborate_Subprogram 04a3 1d9a | | Execute_Immediate Reference_Lex_1,0x9a 04a4 00c7 | | Action Elaborate_Subprogram 04a5 0007 | | Action Break_Optional 04a6 1d9b | | Execute_Immediate Reference_Lex_1,0x9b 04a7 00c7 | | Action Elaborate_Subprogram 04a8 0007 | | Action Break_Optional 04a9 1d9c | | Execute_Immediate Reference_Lex_1,0x9c 04aa 00c7 | | Action Elaborate_Subprogram 04ab 0007 | | Action Break_Optional 04ac 1d9d | | Execute_Immediate Reference_Lex_1,0x9d 04ad 00c7 | | Action Elaborate_Subprogram 04ae 0007 | | Action Break_Optional 04af 1d9e | | Execute_Immediate Reference_Lex_1,0x9e 04b0 00c7 | | Action Elaborate_Subprogram 04b1 0007 | | Action Break_Optional 04b2 0007 | | Action Break_Optional 04b3 1d9f | | Execute_Immediate Reference_Lex_1,0x9f 04b4 00c7 | | Action Elaborate_Subprogram 04b5 0007 | | Action Break_Optional 04b6 1da0 | | Execute_Immediate Reference_Lex_1,0xa0 04b7 00c7 | | Action Elaborate_Subprogram 04b8 0007 | | Action Break_Optional 04b9 1da1 | | Execute_Immediate Reference_Lex_1,0xa1 04ba 00c7 | | Action Elaborate_Subprogram 04bb 0007 | | Action Break_Optional 04bc 1da2 | | Execute_Immediate Reference_Lex_1,0xa2 04bd 00c7 | | Action Elaborate_Subprogram 04be 0007 | | Action Break_Optional 04bf 1da3 | | Execute_Immediate Reference_Lex_1,0xa3 04c0 00c7 | | Action Elaborate_Subprogram 04c1 1da4 | | Execute_Immediate Reference_Lex_1,0xa4 04c2 00c7 | | Action Elaborate_Subprogram 04c3 0007 | | Action Break_Optional 04c4 1da5 | | Execute_Immediate Reference_Lex_1,0xa5 04c5 00c7 | | Action Elaborate_Subprogram 04c6 0007 | | Action Break_Optional 04c7 1da6 | | Execute_Immediate Reference_Lex_1,0xa6 04c8 00c7 | | Action Elaborate_Subprogram 04c9 0007 | | Action Break_Optional 04ca 1da7 | | Execute_Immediate Reference_Lex_1,0xa7 04cb 00c7 | | Action Elaborate_Subprogram 04cc 0007 | | Action Break_Optional 04cd 1da8 | | Execute_Immediate Reference_Lex_1,0xa8 04ce 00c7 | | Action Elaborate_Subprogram 04cf 0007 | | Action Break_Optional 04d0 1da9 | | Execute_Immediate Reference_Lex_1,0xa9 04d1 00c7 | | Action Elaborate_Subprogram 04d2 0007 | | Action Break_Optional 04d3 1daa | | Execute_Immediate Reference_Lex_1,0xaa 04d4 00c7 | | Action Elaborate_Subprogram 04d5 0007 | | Action Break_Optional 04d6 1dab | | Execute_Immediate Reference_Lex_1,0xab 04d7 00c7 | | Action Elaborate_Subprogram 04d8 0007 | | Action Break_Optional 04d9 1dac | | Execute_Immediate Reference_Lex_1,0xac 04da 00c7 | | Action Elaborate_Subprogram 04db 1dad | | Execute_Immediate Reference_Lex_1,0xad 04dc 00c7 | | Action Elaborate_Subprogram 04dd 0007 | | Action Break_Optional 04de 1dae | | Execute_Immediate Reference_Lex_1,0xae 04df 00c7 | | Action Elaborate_Subprogram 04e0 0007 | | Action Break_Optional 04e1 1daf | | Execute_Immediate Reference_Lex_1,0xaf 04e2 00c7 | | Action Elaborate_Subprogram 04e3 1db0 | | Execute_Immediate Reference_Lex_1,0xb0 04e4 00c7 | | Action Elaborate_Subprogram 04e5 BODY_0008: 04e5 00be | | Action Activate_Tasks 04e6 00bc | | Action Signal_Activated 04e7 00bb | | Action Signal_Completion 04e8 TRAP_0008: 04e8 010e | | Execute Exception,Is_Constraint_Error 04e9 6808 |h | Jump_Zero 0x4f2 04ea 4800 |H | Short_Literal 0x0 04eb 4801 |H | Short_Literal 0x1 04ec 0092 12dc | | Action Push_String_Extended,0x12dc ; "Constraint error in base." 04ee e009 | | Load 0x0,0x9 04ef 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 04f0 00bc | | Action Signal_Activated 04f1 00bb | | Action Signal_Completion 04f2 010d | | Execute Exception,Is_Numeric_Error 04f3 6808 |h | Jump_Zero 0x4fc 04f4 4800 |H | Short_Literal 0x0 04f5 4801 |H | Short_Literal 0x1 04f6 0092 12dd | | Action Push_String_Extended,0x12dd ; "Numeric error in base." 04f8 e009 | | Load 0x0,0x9 04f9 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 04fa 00bc | | Action Signal_Activated 04fb 00bb | | Action Signal_Completion 04fc 010c | | Execute Exception,Is_Program_Error 04fd 6808 |h | Jump_Zero 0x506 04fe 4800 |H | Short_Literal 0x0 04ff 4801 |H | Short_Literal 0x1 0500 0092 12de | | Action Push_String_Extended,0x12de ; "Program error in base." 0502 e009 | | Load 0x0,0x9 0503 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0504 00bc | | Action Signal_Activated 0505 00bb | | Action Signal_Completion 0506 010b | | Execute Exception,Is_Storage_Error 0507 6808 |h | Jump_Zero 0x510 0508 4800 |H | Short_Literal 0x0 0509 4801 |H | Short_Literal 0x1 050a 0092 12df | | Action Push_String_Extended,0x12df ; "Storage error in base." 050c e009 | | Load 0x0,0x9 050d 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 050e 00bc | | Action Signal_Activated 050f 00bb | | Action Signal_Completion 0510 010a | | Execute Exception,Is_Tasking_Error 0511 6808 |h | Jump_Zero 0x51a 0512 4800 |H | Short_Literal 0x0 0513 4801 |H | Short_Literal 0x1 0514 0092 12e0 | | Action Push_String_Extended,0x12e0 ; "Tasking error in base." 0516 e009 | | Load 0x0,0x9 0517 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0518 00bc | | Action Signal_Activated 0519 00bb | | Action Signal_Completion 051a 4800 |H | Short_Literal 0x0 051b 4801 |H | Short_Literal 0x1 051c 0092 12e1 | | Action Push_String_Extended,0x12e1 ; "Other Program error in base." 051e e009 | | Load 0x0,0x9 051f 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0520 00bc | | Action Signal_Activated 0521 00bb | | Action Signal_Completion 0522 0000 0000 | | .XXX[0x2] 0524 0000 0000 | | .LITERAL {0x00000000, 0x00020000} 0528 0000 0000 | | .LITERAL {0x00000000, 0x000005dc} 052c 0000 0000 | | .LITERAL {0x00000000, 0x000005f0} 0530 0000 0000 | | .LITERAL {0x00000000, 0x001e8480} 0534 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff} 0538 2020 2020 | | .LITERAL {0x20202020, 0x20202020} 053c 2020 2020 | | .LITERAL {0x20202020, 0x20202020} 0540 2020 2020 | | .LITERAL {0x20202020, 0x20202020} 0544 626c 616e |blan| .LITERAL {0x626c616e, 0x6b202020} 0548 626c 616e |blan| .LITERAL {0x626c616e, 0x6b202020} 054c 0000 0000 | | .BLANK 0000[0x4] 0550 ; -------------------------------------------------------------------------------------- 0550 ; SUBPROGRAM 0550 ; -------------------------------------------------------------------------------------- 0550 0553 | S | .CONST 0x0553 ; Address of begin 0551 0004 | | .CONST 0x0004 ; Address of exception handler 0552 0001 | | .CONST 0x0001 ; Number of locals 0553 BODY_0550: 0553 INIT_0550: 0553 4603 |F | Jump_Case 0x4 0554 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0555 7802 |x | Jump 0x558 ; case 0x1 0556 7805 |x | Jump 0x55c ; case 0x2 0557 7809 |x | Jump 0x561 ; case 0x3 0558 e5ff | | Load 0x2,-0x1 0559 0091 12d3 | | Action Push_String_Extended_Indexed,0x12d3 ; "ON" 055b 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 055c e5fe | | Load 0x2,-0x2 055d e5ff | | Load 0x2,-0x1 055e 00e0 | | Load_Encached Standard_Cache 055f 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0560 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0561 e5ff | | Load 0x2,-0x1 0562 00e0 | | Load_Encached Standard_Cache 0563 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0564 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0565 0000 0000 | | .XXX[0x3] 0567 0000 | | 0568 ; -------------------------------------------------------------------------------------- 0568 ; SUBPROGRAM 0568 ; -------------------------------------------------------------------------------------- 0568 056b | k | .CONST 0x056b ; Address of begin 0569 0004 | | .CONST 0x0004 ; Address of exception handler 056a 0001 | | .CONST 0x0001 ; Number of locals 056b BODY_0568: 056b INIT_0568: 056b 4603 |F | Jump_Case 0x4 056c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 056d 7802 |x | Jump 0x570 ; case 0x1 056e 7805 |x | Jump 0x574 ; case 0x2 056f 7809 |x | Jump 0x579 ; case 0x3 0570 e5ff | | Load 0x2,-0x1 0571 0091 12d6 | | Action Push_String_Extended_Indexed,0x12d6 ; "UNUSED" 0573 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0574 e5fe | | Load 0x2,-0x2 0575 e5ff | | Load 0x2,-0x1 0576 00e0 | | Load_Encached Standard_Cache 0577 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0578 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0579 e5ff | | Load 0x2,-0x1 057a 00e0 | | Load_Encached Standard_Cache 057b 181c | | Execute Package,Field_Execute,Field_Number 0x1c 057c 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 057d 0000 0000 | | .XXX[0x3] 057f 0000 | | 0580 ; -------------------------------------------------------------------------------------- 0580 ; SUBPROGRAM 0580 ; -------------------------------------------------------------------------------------- 0580 0583 | | .CONST 0x0583 ; Address of begin 0581 0004 | | .CONST 0x0004 ; Address of exception handler 0582 0001 | | .CONST 0x0001 ; Number of locals 0583 BODY_0580: 0583 INIT_0580: 0583 4603 |F | Jump_Case 0x4 0584 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0585 7802 |x | Jump 0x588 ; case 0x1 0586 7805 |x | Jump 0x58c ; case 0x2 0587 7809 |x | Jump 0x591 ; case 0x3 0588 e5ff | | Load 0x2,-0x1 0589 0091 12d9 | | Action Push_String_Extended_Indexed,0x12d9 ; "UNUSED" 058b 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 058c e5fe | | Load 0x2,-0x2 058d e5ff | | Load 0x2,-0x1 058e 00e0 | | Load_Encached Standard_Cache 058f 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0590 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0591 e5ff | | Load 0x2,-0x1 0592 00e0 | | Load_Encached Standard_Cache 0593 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0594 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0595 0000 0000 | | .XXX[0x3] 0597 0000 | | 0598 ; -------------------------------------------------------------------------------------- 0598 ; SUBPROGRAM 0598 ; -------------------------------------------------------------------------------------- 0598 059b | | .CONST 0x059b ; Address of begin 0599 0004 | | .CONST 0x0004 ; Address of exception handler 059a 0001 | | .CONST 0x0001 ; Number of locals 059b BODY_0598: 059b INIT_0598: 059b 4608 |F | Jump_Case 0x9 059c 7808 |x | Jump 0x5a5 ; case 0x0 059d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 059e 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2 059f 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3 05a0 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4 05a1 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5 05a2 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x6 05a3 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x7 05a4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x8 05a5 4801 |H | Short_Literal 0x1 05a6 e5ff | | Load 0x2,-0x1 05a7 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 05a8 4800 |H | Short_Literal 0x0 05a9 e5ff | | Load 0x2,-0x1 05aa 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 05ab 4800 |H | Short_Literal 0x0 05ac e5ff | | Load 0x2,-0x1 05ad 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 05ae 4800 |H | Short_Literal 0x0 05af e5ff | | Load 0x2,-0x1 05b0 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 05b1 4800 |H | Short_Literal 0x0 05b2 e5ff | | Load 0x2,-0x1 05b3 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 05b4 4801 |H | Short_Literal 0x1 05b5 6772 |gr | Indirect_Literal Discrete,0x528,{0x00000000, 0x000005dc} 05b6 00e9 | | Load_Encached String_Cache 05b7 0334 | 4 | Declare_Variable Array,With_Constraint 05b8 676f |go | Indirect_Literal Discrete,0x528,{0x00000000, 0x000005dc} 05b9 4801 |H | Short_Literal 0x1 05ba 4820 |H | Short_Literal 0x20 05bb e404 | | Load 0x2,0x4 05bc e402 | | Load 0x2,0x2 05bd 01d6 | | Execute Vector,Field_Write 05be 3ffb |? | Loop_Increasing 0x5ba 05bf e5ff | | Load 0x2,-0x1 05c0 00d9 | | Load_Top At_Offset_1 05c1 00d9 | | Load_Top At_Offset_1 05c2 3006 |0 | Execute Record,Field_Type,Field_Number 0x6 05c3 0119 | | Execute Any,Check_In_Formal_Type 05c4 00d1 | | Pop_Control Pop_Count_1 05c5 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 05c6 4801 |H | Short_Literal 0x1 05c7 e5ff | | Load 0x2,-0x1 05c8 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 05c9 4801 |H | Short_Literal 0x1 05ca e5ff | | Load 0x2,-0x1 05cb 3808 |8 | Execute Record,Field_Write,Field_Number 0x8 05cc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 05cd 0000 0000 | | .XXX[0x3] 05cf 0000 | | 05d0 ; -------------------------------------------------------------------------------------- 05d0 ; SUBPROGRAM 05d0 ; -------------------------------------------------------------------------------------- 05d0 05d3 | | .CONST 0x05d3 ; Address of begin 05d1 0004 | | .CONST 0x0004 ; Address of exception handler 05d2 0001 | | .CONST 0x0001 ; Number of locals 05d3 BODY_05d0: 05d3 INIT_05d0: 05d3 4608 |F | Jump_Case 0x9 05d4 7808 |x | Jump 0x5dd ; case 0x0 05d5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 05d6 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2 05d7 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3 05d8 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4 05d9 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5 05da 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x6 05db 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x7 05dc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x8 05dd 4800 |H | Short_Literal 0x0 05de e5ff | | Load 0x2,-0x1 05df 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 05e0 4800 |H | Short_Literal 0x0 05e1 e5ff | | Load 0x2,-0x1 05e2 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 05e3 4801 |H | Short_Literal 0x1 05e4 e5ff | | Load 0x2,-0x1 05e5 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 05e6 4801 |H | Short_Literal 0x1 05e7 e5ff | | Load 0x2,-0x1 05e8 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 05e9 4800 |H | Short_Literal 0x0 05ea e5ff | | Load 0x2,-0x1 05eb 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 05ec 4801 |H | Short_Literal 0x1 05ed e5ff | | Load 0x2,-0x1 05ee 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 05ef 4800 |H | Short_Literal 0x0 05f0 e5ff | | Load 0x2,-0x1 05f1 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 05f2 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 05f3 0000 0000 | | .BLANK 0000[0x5] 05f8 ; -------------------------------------------------------------------------------------- 05f8 ; SUBPROGRAM 05f8 ; -------------------------------------------------------------------------------------- 05f8 05fb | | .CONST 0x05fb ; Address of begin 05f9 0004 | | .CONST 0x0004 ; Address of exception handler 05fa 0001 | | .CONST 0x0001 ; Number of locals 05fb BODY_05f8: 05fb INIT_05f8: 05fb 00d1 | | Pop_Control Pop_Count_1 05fc e5ff | | Load 0x2,-0x1 05fd 01d8 | | Execute Vector,Element_Type 05fe 0322 | " | Declare_Variable Record 05ff 00d8 | | Load_Top At_Offset_0 0600 1c00 | | Execute_Immediate Run_Utility,0x0 0601 e5ff | | Load 0x2,-0x1 0602 01dc | | Execute Vector,Last 0603 e5ff | | Load 0x2,-0x1 0604 01dd | | Execute Vector,First 0605 0263 | c | Execute Discrete,Above_Bound 0606 7006 |p | Jump_Nonzero 0x60d 0607 e402 | | Load 0x2,0x2 0608 e404 | | Load 0x2,0x4 0609 e5ff | | Load 0x2,-0x1 060a 01d6 | | Execute Vector,Field_Write 060b 0a01 | | Execute_Immediate Plus,0x1 060c 7ff8 | | Jump 0x605 060d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 060e 0000 0000 | | .XXX[0x2] 0610 ; -------------------------------------------------------------------------------------- 0610 ; SUBPROGRAM 0610 ; -------------------------------------------------------------------------------------- 0610 0613 | | .CONST 0x0613 ; Address of begin 0611 0004 | | .CONST 0x0004 ; Address of exception handler 0612 0001 | | .CONST 0x0001 ; Number of locals 0613 BODY_0610: 0613 INIT_0610: 0613 00d1 | | Pop_Control Pop_Count_1 0614 e5ff | | Load 0x2,-0x1 0615 01d8 | | Execute Vector,Element_Type 0616 0322 | " | Declare_Variable Record 0617 00d8 | | Load_Top At_Offset_0 0618 1c00 | | Execute_Immediate Run_Utility,0x0 0619 e5ff | | Load 0x2,-0x1 061a 01dc | | Execute Vector,Last 061b e5ff | | Load 0x2,-0x1 061c 01dd | | Execute Vector,First 061d 0263 | c | Execute Discrete,Above_Bound 061e 7006 |p | Jump_Nonzero 0x625 061f e402 | | Load 0x2,0x2 0620 e404 | | Load 0x2,0x4 0621 e5ff | | Load 0x2,-0x1 0622 01d6 | | Execute Vector,Field_Write 0623 0a01 | | Execute_Immediate Plus,0x1 0624 7ff8 | | Jump 0x61d 0625 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0626 0000 0000 | | .XXX[0x2] 0628 ; -------------------------------------------------------------------------------------- 0628 ; SUBPROGRAM 0628 ; -------------------------------------------------------------------------------------- 0628 062b | + | .CONST 0x062b ; Address of begin 0629 0004 | | .CONST 0x0004 ; Address of exception handler 062a 0001 | | .CONST 0x0001 ; Number of locals 062b BODY_0628: 062b INIT_0628: 062b 4608 |F | Jump_Case 0x9 062c 7808 |x | Jump 0x635 ; case 0x0 062d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 062e 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2 062f 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3 0630 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4 0631 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5 0632 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x6 0633 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x7 0634 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x8 0635 4801 |H | Short_Literal 0x1 0636 4814 |H | Short_Literal 0x14 0637 00e9 | | Load_Encached String_Cache 0638 0334 | 4 | Declare_Variable Array,With_Constraint 0639 4814 |H | Short_Literal 0x14 063a 4801 |H | Short_Literal 0x1 063b 4820 |H | Short_Literal 0x20 063c e404 | | Load 0x2,0x4 063d e402 | | Load 0x2,0x2 063e 01d6 | | Execute Vector,Field_Write 063f 3ffb |? | Loop_Increasing 0x63b 0640 e5ff | | Load 0x2,-0x1 0641 00d9 | | Load_Top At_Offset_1 0642 00d9 | | Load_Top At_Offset_1 0643 3000 |0 | Execute Record,Field_Type,Field_Number 0x0 0644 0119 | | Execute Any,Check_In_Formal_Type 0645 00d1 | | Pop_Control Pop_Count_1 0646 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0647 4800 |H | Short_Literal 0x0 0648 e5ff | | Load 0x2,-0x1 0649 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 064a 4800 |H | Short_Literal 0x0 064b e5ff | | Load 0x2,-0x1 064c 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 064d 4801 |H | Short_Literal 0x1 064e e5ff | | Load 0x2,-0x1 064f 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0650 4801 |H | Short_Literal 0x1 0651 e5ff | | Load 0x2,-0x1 0652 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0653 4801 |H | Short_Literal 0x1 0654 e5ff | | Load 0x2,-0x1 0655 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 0656 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0657 0000 | | .XXX[0x1] 0658 ; -------------------------------------------------------------------------------------- 0658 ; SUBPROGRAM 0658 ; -------------------------------------------------------------------------------------- 0658 065b | [ | .CONST 0x065b ; Address of begin 0659 0004 | | .CONST 0x0004 ; Address of exception handler 065a 0001 | | .CONST 0x0001 ; Number of locals 065b BODY_0658: 065b INIT_0658: 065b 4608 |F | Jump_Case 0x9 065c 7808 |x | Jump 0x665 ; case 0x0 065d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 065e 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2 065f 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3 0660 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4 0661 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5 0662 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x6 0663 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x7 0664 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x8 0665 4800 |H | Short_Literal 0x0 0666 e5ff | | Load 0x2,-0x1 0667 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0668 e5ff | | Load 0x2,-0x1 0669 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 066a 1c00 | | Execute_Immediate Run_Utility,0x0 066b 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 066c 0000 0000 | | .BLANK 0000[0x4] 0670 ; -------------------------------------------------------------------------------------- 0670 ; SUBPROGRAM 0670 ; -------------------------------------------------------------------------------------- 0670 0673 | s | .CONST 0x0673 ; Address of begin 0671 0004 | | .CONST 0x0004 ; Address of exception handler 0672 0001 | | .CONST 0x0001 ; Number of locals 0673 BODY_0670: 0673 INIT_0670: 0673 4608 |F | Jump_Case 0x9 0674 7808 |x | Jump 0x67d ; case 0x0 0675 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 0676 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2 0677 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3 0678 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4 0679 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5 067a 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x6 067b 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x7 067c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x8 067d 4800 |H | Short_Literal 0x0 067e e5ff | | Load 0x2,-0x1 067f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0680 4800 |H | Short_Literal 0x0 0681 e5ff | | Load 0x2,-0x1 0682 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0683 4802 |H | Short_Literal 0x2 0684 e5ff | | Load 0x2,-0x1 0685 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0686 4800 |H | Short_Literal 0x0 0687 e5ff | | Load 0x2,-0x1 0688 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 0689 4800 |H | Short_Literal 0x0 068a e5ff | | Load 0x2,-0x1 068b 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 068c 4801 |H | Short_Literal 0x1 068d e5ff | | Load 0x2,-0x1 068e 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 068f 4814 |H | Short_Literal 0x14 0690 e5ff | | Load 0x2,-0x1 0691 3808 |8 | Execute Record,Field_Write,Field_Number 0x8 0692 4800 |H | Short_Literal 0x0 0693 e5ff | | Load 0x2,-0x1 0694 3809 |8 | Execute Record,Field_Write,Field_Number 0x9 0695 4800 |H | Short_Literal 0x0 0696 e5ff | | Load 0x2,-0x1 0697 380a |8 | Execute Record,Field_Write,Field_Number 0xa 0698 0092 12e2 | | Action Push_String_Extended,0x12e2 ; "xx" 069a e5ff | | Load 0x2,-0x1 069b 00d9 | | Load_Top At_Offset_1 069c 00d9 | | Load_Top At_Offset_1 069d 300b |0 | Execute Record,Field_Type,Field_Number 0xb 069e 0119 | | Execute Any,Check_In_Formal_Type 069f 00d1 | | Pop_Control Pop_Count_1 06a0 380b |8 | Execute Record,Field_Write,Field_Number 0xb 06a1 4800 |H | Short_Literal 0x0 06a2 e5ff | | Load 0x2,-0x1 06a3 380c |8 | Execute Record,Field_Write,Field_Number 0xc 06a4 4800 |H | Short_Literal 0x0 06a5 e5ff | | Load 0x2,-0x1 06a6 380d |8 | Execute Record,Field_Write,Field_Number 0xd 06a7 4800 |H | Short_Literal 0x0 06a8 e5ff | | Load 0x2,-0x1 06a9 380e |8 | Execute Record,Field_Write,Field_Number 0xe 06aa 4801 |H | Short_Literal 0x1 06ab e5ff | | Load 0x2,-0x1 06ac 380f |8 | Execute Record,Field_Write,Field_Number 0xf 06ad 4801 |H | Short_Literal 0x1 06ae e5ff | | Load 0x2,-0x1 06af 3810 |8 | Execute Record,Field_Write,Field_Number 0x10 06b0 4801 |H | Short_Literal 0x1 06b1 e5ff | | Load 0x2,-0x1 06b2 3811 |8 | Execute Record,Field_Write,Field_Number 0x11 06b3 4800 |H | Short_Literal 0x0 06b4 e5ff | | Load 0x2,-0x1 06b5 3812 |8 | Execute Record,Field_Write,Field_Number 0x12 06b6 4802 |H | Short_Literal 0x2 06b7 e5ff | | Load 0x2,-0x1 06b8 3813 |8 | Execute Record,Field_Write,Field_Number 0x13 06b9 4801 |H | Short_Literal 0x1 06ba 4850 |HP | Short_Literal 0x50 06bb 00e9 | | Load_Encached String_Cache 06bc 0334 | 4 | Declare_Variable Array,With_Constraint 06bd 4850 |HP | Short_Literal 0x50 06be 4801 |H | Short_Literal 0x1 06bf 4820 |H | Short_Literal 0x20 06c0 e404 | | Load 0x2,0x4 06c1 e402 | | Load 0x2,0x2 06c2 01d6 | | Execute Vector,Field_Write 06c3 3ffb |? | Loop_Increasing 0x6bf 06c4 e5ff | | Load 0x2,-0x1 06c5 00d9 | | Load_Top At_Offset_1 06c6 00d9 | | Load_Top At_Offset_1 06c7 3014 |0 | Execute Record,Field_Type,Field_Number 0x14 06c8 0119 | | Execute Any,Check_In_Formal_Type 06c9 00d1 | | Pop_Control Pop_Count_1 06ca 3814 |8 | Execute Record,Field_Write,Field_Number 0x14 06cb 4800 |H | Short_Literal 0x0 06cc e5ff | | Load 0x2,-0x1 06cd 3815 |8 | Execute Record,Field_Write,Field_Number 0x15 06ce 4802 |H | Short_Literal 0x2 06cf e5ff | | Load 0x2,-0x1 06d0 3816 |8 | Execute Record,Field_Write,Field_Number 0x16 06d1 4801 |H | Short_Literal 0x1 06d2 4850 |HP | Short_Literal 0x50 06d3 00e9 | | Load_Encached String_Cache 06d4 0334 | 4 | Declare_Variable Array,With_Constraint 06d5 4850 |HP | Short_Literal 0x50 06d6 4801 |H | Short_Literal 0x1 06d7 4820 |H | Short_Literal 0x20 06d8 e404 | | Load 0x2,0x4 06d9 e402 | | Load 0x2,0x2 06da 01d6 | | Execute Vector,Field_Write 06db 3ffb |? | Loop_Increasing 0x6d7 06dc e5ff | | Load 0x2,-0x1 06dd 00d9 | | Load_Top At_Offset_1 06de 00d9 | | Load_Top At_Offset_1 06df 3017 |0 | Execute Record,Field_Type,Field_Number 0x17 06e0 0119 | | Execute Any,Check_In_Formal_Type 06e1 00d1 | | Pop_Control Pop_Count_1 06e2 3817 |8 | Execute Record,Field_Write,Field_Number 0x17 06e3 4800 |H | Short_Literal 0x0 06e4 e5ff | | Load 0x2,-0x1 06e5 3818 |8 | Execute Record,Field_Write,Field_Number 0x18 06e6 4802 |H | Short_Literal 0x2 06e7 e5ff | | Load 0x2,-0x1 06e8 3819 |8 | Execute Record,Field_Write,Field_Number 0x19 06e9 4801 |H | Short_Literal 0x1 06ea 4850 |HP | Short_Literal 0x50 06eb 00e9 | | Load_Encached String_Cache 06ec 0334 | 4 | Declare_Variable Array,With_Constraint 06ed 4850 |HP | Short_Literal 0x50 06ee 4801 |H | Short_Literal 0x1 06ef 4820 |H | Short_Literal 0x20 06f0 e404 | | Load 0x2,0x4 06f1 e402 | | Load 0x2,0x2 06f2 01d6 | | Execute Vector,Field_Write 06f3 3ffb |? | Loop_Increasing 0x6ef 06f4 e5ff | | Load 0x2,-0x1 06f5 00d9 | | Load_Top At_Offset_1 06f6 00d9 | | Load_Top At_Offset_1 06f7 301a |0 | Execute Record,Field_Type,Field_Number 0x1a 06f8 0119 | | Execute Any,Check_In_Formal_Type 06f9 00d1 | | Pop_Control Pop_Count_1 06fa 381a |8 | Execute Record,Field_Write,Field_Number 0x1a 06fb 4800 |H | Short_Literal 0x0 06fc e5ff | | Load 0x2,-0x1 06fd 381b |8 | Execute Record,Field_Write,Field_Number 0x1b 06fe 4802 |H | Short_Literal 0x2 06ff e5ff | | Load 0x2,-0x1 0700 381c |8 | Execute Record,Field_Write,Field_Number 0x1c 0701 4801 |H | Short_Literal 0x1 0702 4850 |HP | Short_Literal 0x50 0703 00e9 | | Load_Encached String_Cache 0704 0334 | 4 | Declare_Variable Array,With_Constraint 0705 4850 |HP | Short_Literal 0x50 0706 4801 |H | Short_Literal 0x1 0707 4820 |H | Short_Literal 0x20 0708 e404 | | Load 0x2,0x4 0709 e402 | | Load 0x2,0x2 070a 01d6 | | Execute Vector,Field_Write 070b 3ffb |? | Loop_Increasing 0x707 070c e5ff | | Load 0x2,-0x1 070d 00d9 | | Load_Top At_Offset_1 070e 00d9 | | Load_Top At_Offset_1 070f 301d |0 | Execute Record,Field_Type,Field_Number 0x1d 0710 0119 | | Execute Any,Check_In_Formal_Type 0711 00d1 | | Pop_Control Pop_Count_1 0712 381d |8 | Execute Record,Field_Write,Field_Number 0x1d 0713 4800 |H | Short_Literal 0x0 0714 e5ff | | Load 0x2,-0x1 0715 381e |8 | Execute Record,Field_Write,Field_Number 0x1e 0716 4802 |H | Short_Literal 0x2 0717 e5ff | | Load 0x2,-0x1 0718 381f |8 | Execute Record,Field_Write,Field_Number 0x1f 0719 4801 |H | Short_Literal 0x1 071a 4850 |HP | Short_Literal 0x50 071b 00e9 | | Load_Encached String_Cache 071c 0334 | 4 | Declare_Variable Array,With_Constraint 071d 4850 |HP | Short_Literal 0x50 071e 4801 |H | Short_Literal 0x1 071f 4820 |H | Short_Literal 0x20 0720 e404 | | Load 0x2,0x4 0721 e402 | | Load 0x2,0x2 0722 01d6 | | Execute Vector,Field_Write 0723 3ffb |? | Loop_Increasing 0x71f 0724 e5ff | | Load 0x2,-0x1 0725 00d9 | | Load_Top At_Offset_1 0726 00d9 | | Load_Top At_Offset_1 0727 3020 |0 | Execute Record,Field_Type,Field_Number 0x20 0728 0119 | | Execute Any,Check_In_Formal_Type 0729 00d1 | | Pop_Control Pop_Count_1 072a 3820 |8 | Execute Record,Field_Write,Field_Number 0x20 072b 4800 |H | Short_Literal 0x0 072c e5ff | | Load 0x2,-0x1 072d 3821 |8! | Execute Record,Field_Write,Field_Number 0x21 072e 0092 12e3 | | Action Push_String_Extended,0x12e3 ; "blank" 0730 e5ff | | Load 0x2,-0x1 0731 00d9 | | Load_Top At_Offset_1 0732 00d9 | | Load_Top At_Offset_1 0733 3023 |0# | Execute Record,Field_Type,Field_Number 0x23 0734 0119 | | Execute Any,Check_In_Formal_Type 0735 00d1 | | Pop_Control Pop_Count_1 0736 3823 |8# | Execute Record,Field_Write,Field_Number 0x23 0737 e5ff | | Load 0x2,-0x1 0738 3424 |4$ | Execute Record,Field_Reference,Field_Number 0x24 0739 1c00 | | Execute_Immediate Run_Utility,0x0 073a 65f5 |e | Indirect_Literal Discrete,0x530,{0x00000000, 0x001e8480} 073b e5ff | | Load 0x2,-0x1 073c 3825 |8% | Execute Record,Field_Write,Field_Number 0x25 073d 4801 |H | Short_Literal 0x1 073e e5ff | | Load 0x2,-0x1 073f 3826 |8& | Execute Record,Field_Write,Field_Number 0x26 0740 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0741 0000 0000 | | .BLANK 0000[0x7] 0748 ; -------------------------------------------------------------------------------------- 0748 ; SUBPROGRAM 0748 ; -------------------------------------------------------------------------------------- 0748 074b | K | .CONST 0x074b ; Address of begin 0749 0004 | | .CONST 0x0004 ; Address of exception handler 074a 0001 | | .CONST 0x0001 ; Number of locals 074b BODY_0748: 074b INIT_0748: 074b 00d1 | | Pop_Control Pop_Count_1 074c e5ff | | Load 0x2,-0x1 074d 01d8 | | Execute Vector,Element_Type 074e 0337 | 7 | Declare_Variable Array 074f 00d8 | | Load_Top At_Offset_0 0750 1c00 | | Execute_Immediate Run_Utility,0x0 0751 e5ff | | Load 0x2,-0x1 0752 01dc | | Execute Vector,Last 0753 e5ff | | Load 0x2,-0x1 0754 01dd | | Execute Vector,First 0755 0263 | c | Execute Discrete,Above_Bound 0756 7006 |p | Jump_Nonzero 0x75d 0757 e402 | | Load 0x2,0x2 0758 e404 | | Load 0x2,0x4 0759 e5ff | | Load 0x2,-0x1 075a 01d6 | | Execute Vector,Field_Write 075b 0a01 | | Execute_Immediate Plus,0x1 075c 7ff8 | | Jump 0x755 075d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 075e 0000 0000 | | .XXX[0x2] 0760 ; -------------------------------------------------------------------------------------- 0760 ; SUBPROGRAM 0760 ; -------------------------------------------------------------------------------------- 0760 0763 | c | .CONST 0x0763 ; Address of begin 0761 0004 | | .CONST 0x0004 ; Address of exception handler 0762 0001 | | .CONST 0x0001 ; Number of locals 0763 BODY_0760: 0763 INIT_0760: 0763 00d1 | | Pop_Control Pop_Count_1 0764 e5ff | | Load 0x2,-0x1 0765 01d8 | | Execute Vector,Element_Type 0766 0337 | 7 | Declare_Variable Array 0767 00d8 | | Load_Top At_Offset_0 0768 1c00 | | Execute_Immediate Run_Utility,0x0 0769 e5ff | | Load 0x2,-0x1 076a 01dc | | Execute Vector,Last 076b e5ff | | Load 0x2,-0x1 076c 01dd | | Execute Vector,First 076d 0263 | c | Execute Discrete,Above_Bound 076e 7006 |p | Jump_Nonzero 0x775 076f e402 | | Load 0x2,0x2 0770 e404 | | Load 0x2,0x4 0771 e5ff | | Load 0x2,-0x1 0772 01d6 | | Execute Vector,Field_Write 0773 0a01 | | Execute_Immediate Plus,0x1 0774 7ff8 | | Jump 0x76d 0775 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0776 0000 0000 | | .XXX[0x2] 0778 ; -------------------------------------------------------------------------------------- 0778 ; SUBPROGRAM 0778 ; -------------------------------------------------------------------------------------- 0778 077b | { | .CONST 0x077b ; Address of begin 0779 0004 | | .CONST 0x0004 ; Address of exception handler 077a 0001 | | .CONST 0x0001 ; Number of locals 077b BODY_0778: 077b INIT_0778: 077b 00d1 | | Pop_Control Pop_Count_1 077c e5ff | | Load 0x2,-0x1 077d 01dc | | Execute Vector,Last 077e e5ff | | Load 0x2,-0x1 077f 01dd | | Execute Vector,First 0780 0263 | c | Execute Discrete,Above_Bound 0781 7006 |p | Jump_Nonzero 0x788 0782 00d8 | | Load_Top At_Offset_0 0783 e5ff | | Load 0x2,-0x1 0784 01d5 | | Execute Vector,Field_Reference 0785 1c00 | | Execute_Immediate Run_Utility,0x0 0786 0a01 | | Execute_Immediate Plus,0x1 0787 7ff8 | | Jump 0x780 0788 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0789 0000 0000 | | .BLANK 0000[0x7] 0790 ; -------------------------------------------------------------------------------------- 0790 ; SUBPROGRAM 0790 ; -------------------------------------------------------------------------------------- 0790 0793 | | .CONST 0x0793 ; Address of begin 0791 0004 | | .CONST 0x0004 ; Address of exception handler 0792 0001 | | .CONST 0x0001 ; Number of locals 0793 BODY_0790: 0793 INIT_0790: 0793 00d1 | | Pop_Control Pop_Count_1 0794 e5ff | | Load 0x2,-0x1 0795 01dc | | Execute Vector,Last 0796 e5ff | | Load 0x2,-0x1 0797 01dd | | Execute Vector,First 0798 0263 | c | Execute Discrete,Above_Bound 0799 7006 |p | Jump_Nonzero 0x7a0 079a 00d8 | | Load_Top At_Offset_0 079b e5ff | | Load 0x2,-0x1 079c 01d5 | | Execute Vector,Field_Reference 079d 1c00 | | Execute_Immediate Run_Utility,0x0 079e 0a01 | | Execute_Immediate Plus,0x1 079f 7ff8 | | Jump 0x798 07a0 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 07a1 0000 0000 | | .BLANK 0000[0x7] 07a8 ; -------------------------------------------------------------------------------------- 07a8 ; SUBPROGRAM 07a8 ; -------------------------------------------------------------------------------------- 07a8 07ab | | .CONST 0x07ab ; Address of begin 07a9 07be | | .CONST 0x07be ; Address of exception handler 07aa 0001 | | .CONST 0x0001 ; Number of locals 07ab BODY_07a8: 07ab INIT_07a8: 07ab 0092 12e4 | | Action Push_String_Extended,0x12e4 ; "ok " 07ad e5fe | | Load 0x2,-0x2 07ae 3823 |8# | Execute Record,Field_Write,Field_Number 0x23 07af e5fe | | Load 0x2,-0x2 07b0 3c22 |<" | Execute Record,Field_Read,Field_Number 0x22 07b1 00ea | | Load_Encached Null_String_Cache 07b2 4801 |H | Short_Literal 0x1 07b3 e5fe | | Load 0x2,-0x2 07b4 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 07b5 e5fe | | Load 0x2,-0x2 07b6 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 07b7 01cf | | Execute Vector,Slice_Read 07b8 e280 | | Load 0x1,0x80 07b9 e275 | u | Load 0x1,0x75 07ba 1814 | | Execute Package,Field_Execute,Field_Number 0x14 07bb e5fe | | Load 0x2,-0x2 07bc 3822 |8" | Execute Record,Field_Write,Field_Number 0x22 07bd 4502 |E | Exit_Suprogram New_Top_Offset 0x2 07be TRAP_07a8: 07be 0007 | | Action Break_Optional 07bf 0092 12e5 | | Action Push_String_Extended,0x12e5 ; "cr er" 07c1 e5fe | | Load 0x2,-0x2 07c2 3823 |8# | Execute Record,Field_Write,Field_Number 0x23 07c3 4502 |E | Exit_Suprogram New_Top_Offset 0x2 07c4 0000 0000 | | .BLANK 0000[0x4] 07c8 ; -------------------------------------------------------------------------------------- 07c8 ; SUBPROGRAM 07c8 ; -------------------------------------------------------------------------------------- 07c8 07cb | | .CONST 0x07cb ; Address of begin 07c9 07da | | .CONST 0x07da ; Address of exception handler 07ca 0001 | | .CONST 0x0001 ; Number of locals 07cb BODY_07c8: 07cb INIT_07c8: 07cb e5fd | | Load 0x2,-0x3 07cc 3c22 |<" | Execute Record,Field_Read,Field_Number 0x22 07cd 00ea | | Load_Encached Null_String_Cache 07ce 4801 |H | Short_Literal 0x1 07cf e5fd | | Load 0x2,-0x3 07d0 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 07d1 e5fd | | Load 0x2,-0x3 07d2 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 07d3 01cf | | Execute Vector,Slice_Read 07d4 e5fe | | Load 0x2,-0x2 07d5 e275 | u | Load 0x1,0x75 07d6 1815 | | Execute Package,Field_Execute,Field_Number 0x15 07d7 e5fd | | Load 0x2,-0x3 07d8 3822 |8" | Execute Record,Field_Write,Field_Number 0x22 07d9 4503 |E | Exit_Suprogram New_Top_Offset 0x3 07da TRAP_07c8: 07da 0007 | | Action Break_Optional 07db 0092 12e6 | | Action Push_String_Extended,0x12e6 ; "op er" 07dd e5fd | | Load 0x2,-0x3 07de 3823 |8# | Execute Record,Field_Write,Field_Number 0x23 07df 4503 |E | Exit_Suprogram New_Top_Offset 0x3 07e0 ; -------------------------------------------------------------------------------------- 07e0 ; SUBPROGRAM 07e0 ; -------------------------------------------------------------------------------------- 07e0 07e3 | | .CONST 0x07e3 ; Address of begin 07e1 07ea | | .CONST 0x07ea ; Address of exception handler 07e2 0001 | | .CONST 0x0001 ; Number of locals 07e3 BODY_07e0: 07e3 INIT_07e0: 07e3 e5fe | | Load 0x2,-0x2 07e4 3c22 |<" | Execute Record,Field_Read,Field_Number 0x22 07e5 e275 | u | Load 0x1,0x75 07e6 1816 | | Execute Package,Field_Execute,Field_Number 0x16 07e7 e5fe | | Load 0x2,-0x2 07e8 3822 |8" | Execute Record,Field_Write,Field_Number 0x22 07e9 4502 |E | Exit_Suprogram New_Top_Offset 0x2 07ea TRAP_07e0: 07ea 0007 | | Action Break_Optional 07eb e5fe | | Load 0x2,-0x2 07ec 3423 |4# | Execute Record,Field_Reference,Field_Number 0x23 07ed 0092 12e4 | | Action Push_String_Extended,0x12e4 ; "ok " 07ef 01df | | Execute Vector,Equal 07f0 6804 |h | Jump_Zero 0x7f5 07f1 0092 12e7 | | Action Push_String_Extended,0x12e7 ; "cl er" 07f3 e5fe | | Load 0x2,-0x2 07f4 3823 |8# | Execute Record,Field_Write,Field_Number 0x23 07f5 4502 |E | Exit_Suprogram New_Top_Offset 0x2 07f6 0000 0000 | | .XXX[0x2] 07f8 ; -------------------------------------------------------------------------------------- 07f8 ; SUBPROGRAM 07f8 ; -------------------------------------------------------------------------------------- 07f8 07fb | | .CONST 0x07fb ; Address of begin 07f9 0816 | | .CONST 0x0816 ; Address of exception handler 07fa 0001 | | .CONST 0x0001 ; Number of locals 07fb BODY_07f8: 07fb INIT_07f8: 07fb e5fe | | Load 0x2,-0x2 07fc e275 | u | Load 0x1,0x75 07fd 1b13 | | Execute Package,Field_Read,Field_Number 0x13 07fe 025b | [ | Execute Discrete,Check_In_Type 07ff e5fd | | Load 0x2,-0x3 0800 3424 |4$ | Execute Record,Field_Reference,Field_Number 0x24 0801 e5fd | | Load 0x2,-0x3 0802 3c22 |<" | Execute Record,Field_Read,Field_Number 0x22 0803 e275 | u | Load 0x1,0x75 0804 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0805 e5fe | | Load 0x2,-0x2 0806 e5fd | | Load 0x2,-0x3 0807 3c11 |< | Execute Record,Field_Read,Field_Number 0x11 0808 027f | | Execute Discrete,Equal 0809 6804 |h | Jump_Zero 0x80e 080a e5fe | | Load 0x2,-0x2 080b e5fd | | Load 0x2,-0x3 080c 3811 |8 | Execute Record,Field_Write,Field_Number 0x11 080d 4503 |E | Exit_Suprogram New_Top_Offset 0x3 080e e5fd | | Load 0x2,-0x3 080f 3c11 |< | Execute Record,Field_Read,Field_Number 0x11 0810 e5fd | | Load 0x2,-0x3 0811 3810 |8 | Execute Record,Field_Write,Field_Number 0x10 0812 e5fe | | Load 0x2,-0x2 0813 e5fd | | Load 0x2,-0x3 0814 3811 |8 | Execute Record,Field_Write,Field_Number 0x11 0815 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0816 TRAP_07f8: 0816 0007 | | Action Break_Optional 0817 0092 12e8 | | Action Push_String_Extended,0x12e8 ; "wr er" 0819 e5fd | | Load 0x2,-0x3 081a 3823 |8# | Execute Record,Field_Write,Field_Number 0x23 081b 4800 |H | Short_Literal 0x0 081c 4803 |H | Short_Literal 0x3 081d 0092 12e9 | | Action Push_String_Extended,0x12e9 ; "Exception in ap_write_master, invalid index/file err.: " 081f e009 | | Load 0x0,0x9 0820 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0821 4801 |H | Short_Literal 0x1 0822 4804 |H | Short_Literal 0x4 0823 4801 |H | Short_Literal 0x1 0824 e5fd | | Load 0x2,-0x3 0825 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0826 e5fd | | Load 0x2,-0x3 0827 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0828 01cf | | Execute Vector,Slice_Read 0829 e009 | | Load 0x0,0x9 082a 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 082b 4503 |E | Exit_Suprogram New_Top_Offset 0x3 082c 0000 0000 | | .BLANK 0000[0x4] 0830 ; -------------------------------------------------------------------------------------- 0830 ; SUBPROGRAM 0830 ; -------------------------------------------------------------------------------------- 0830 0833 | 3 | .CONST 0x0833 ; Address of begin 0831 0863 | c | .CONST 0x0863 ; Address of exception handler 0832 0001 | | .CONST 0x0001 ; Number of locals 0833 BODY_0830: 0833 INIT_0830: 0833 0092 12e4 | | Action Push_String_Extended,0x12e4 ; "ok " 0835 e5fd | | Load 0x2,-0x3 0836 3823 |8# | Execute Record,Field_Write,Field_Number 0x23 0837 e5fd | | Load 0x2,-0x3 0838 e281 | | Load 0x1,0x81 0839 e5ff | | Load 0x2,-0x1 083a 8298 | | Call 0x1,0x98 083b 00d1 | | Pop_Control Pop_Count_1 083c 4800 |H | Short_Literal 0x0 083d e5fd | | Load 0x2,-0x3 083e 3424 |4$ | Execute Record,Field_Reference,Field_Number 0x24 083f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0840 4802 |H | Short_Literal 0x2 0841 e5fd | | Load 0x2,-0x3 0842 3424 |4$ | Execute Record,Field_Reference,Field_Number 0x24 0843 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0844 4802 |H | Short_Literal 0x2 0845 e5fd | | Load 0x2,-0x3 0846 3424 |4$ | Execute Record,Field_Reference,Field_Number 0x24 0847 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0848 e5fe | | Load 0x2,-0x2 0849 e275 | u | Load 0x1,0x75 084a 1b13 | | Execute Package,Field_Read,Field_Number 0x13 084b 025b | [ | Execute Discrete,Check_In_Type 084c e5fd | | Load 0x2,-0x3 084d 3424 |4$ | Execute Record,Field_Reference,Field_Number 0x24 084e e5fd | | Load 0x2,-0x3 084f 3c22 |<" | Execute Record,Field_Read,Field_Number 0x22 0850 e275 | u | Load 0x1,0x75 0851 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0852 4801 |H | Short_Literal 0x1 0853 e5fd | | Load 0x2,-0x3 0854 3811 |8 | Execute Record,Field_Write,Field_Number 0x11 0855 4801 |H | Short_Literal 0x1 0856 e5fd | | Load 0x2,-0x3 0857 3810 |8 | Execute Record,Field_Write,Field_Number 0x10 0858 4801 |H | Short_Literal 0x1 0859 e5fd | | Load 0x2,-0x3 085a 380f |8 | Execute Record,Field_Write,Field_Number 0xf 085b 4800 |H | Short_Literal 0x0 085c e5fd | | Load 0x2,-0x3 085d 3424 |4$ | Execute Record,Field_Reference,Field_Number 0x24 085e 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 085f e5fd | | Load 0x2,-0x3 0860 e5ff | | Load 0x2,-0x1 0861 8299 | | Call 0x1,0x99 0862 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0863 TRAP_0830: 0863 0007 | | Action Break_Optional 0864 0092 12ea | | Action Push_String_Extended,0x12ea ; "dl er" 0866 e5fd | | Load 0x2,-0x3 0867 3823 |8# | Execute Record,Field_Write,Field_Number 0x23 0868 4800 |H | Short_Literal 0x0 0869 4803 |H | Short_Literal 0x3 086a 0092 12eb | | Action Push_String_Extended,0x12eb ; "Exception in ap_delete_record, invalid index/file err.: " 086c e009 | | Load 0x0,0x9 086d 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 086e 4801 |H | Short_Literal 0x1 086f 4804 |H | Short_Literal 0x4 0870 4801 |H | Short_Literal 0x1 0871 e5fd | | Load 0x2,-0x3 0872 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0873 e5fd | | Load 0x2,-0x3 0874 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0875 01cf | | Execute Vector,Slice_Read 0876 e009 | | Load 0x0,0x9 0877 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0878 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0879 0000 0000 | | .BLANK 0000[0x7] 0880 ; -------------------------------------------------------------------------------------- 0880 ; SUBPROGRAM 0880 ; -------------------------------------------------------------------------------------- 0880 0885 | | .CONST 0x0885 ; Address of begin 0881 0004 | | .CONST 0x0004 ; Address of exception handler 0882 0002 | | .CONST 0x0002 ; Number of locals 0883 INIT_0880: 0883 029f 0ae3 | | Declare_Subprogram INIT_0ae0,For_Call 0885 BODY_0880: 0885 8402 | | Call 0x2,0x2 0886 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0887 0000 | | .XXX[0x1] 0888 ; -------------------------------------------------------------------------------------- 0888 ; SUBPROGRAM 0888 ; -------------------------------------------------------------------------------------- 0888 088d | | .CONST 0x088d ; Address of begin 0889 088f | | .CONST 0x088f ; Address of exception handler 088a 0002 | | .CONST 0x0002 ; Number of locals 088b INIT_0888: 088b 029f 0b2b | +| Declare_Subprogram INIT_0b28,For_Call 088d BODY_0888: 088d 8402 | | Call 0x2,0x2 088e 4503 |E | Exit_Suprogram New_Top_Offset 0x3 088f TRAP_0888: 088f 0007 | | Action Break_Optional 0890 4800 |H | Short_Literal 0x0 0891 4801 |H | Short_Literal 0x1 0892 0092 12ec | | Action Push_String_Extended,0x12ec ; "Exception in ap_get_last_record.." 0894 e009 | | Load 0x0,0x9 0895 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0896 0092 12ed | | Action Push_String_Extended,0x12ed ; "error" 0898 e5fd | | Load 0x2,-0x3 0899 3823 |8# | Execute Record,Field_Write,Field_Number 0x23 089a 4503 |E | Exit_Suprogram New_Top_Offset 0x3 089b 0000 0000 | | .BLANK 0000[0x5] 08a0 ; -------------------------------------------------------------------------------------- 08a0 ; SUBPROGRAM 08a0 ; -------------------------------------------------------------------------------------- 08a0 08a3 | | .CONST 0x08a3 ; Address of begin 08a1 08a4 | | .CONST 0x08a4 ; Address of exception handler 08a2 0001 | | .CONST 0x0001 ; Number of locals 08a3 BODY_08a0: 08a3 INIT_08a0: 08a3 4502 |E | Exit_Suprogram New_Top_Offset 0x2 08a4 TRAP_08a0: 08a4 0007 | | Action Break_Optional 08a5 4502 |E | Exit_Suprogram New_Top_Offset 0x2 08a6 0000 0000 | | .XXX[0x2] 08a8 ; -------------------------------------------------------------------------------------- 08a8 ; SUBPROGRAM 08a8 ; -------------------------------------------------------------------------------------- 08a8 08ab | | .CONST 0x08ab ; Address of begin 08a9 08c4 | | .CONST 0x08c4 ; Address of exception handler 08aa 0001 | | .CONST 0x0001 ; Number of locals 08ab BODY_08a8: 08ab INIT_08a8: 08ab 0092 12e4 | | Action Push_String_Extended,0x12e4 ; "ok " 08ad e5fd | | Load 0x2,-0x3 08ae 3823 |8# | Execute Record,Field_Write,Field_Number 0x23 08af e5fd | | Load 0x2,-0x3 08b0 e5fe | | Load 0x2,-0x2 08b1 e5ff | | Load 0x2,-0x1 08b2 8298 | | Call 0x1,0x98 08b3 00d1 | | Pop_Control Pop_Count_1 08b4 e5fd | | Load 0x2,-0x3 08b5 3423 |4# | Execute Record,Field_Reference,Field_Number 0x23 08b6 0092 12e4 | | Action Push_String_Extended,0x12e4 ; "ok " 08b8 01df | | Execute Vector,Equal 08b9 6806 |h | Jump_Zero 0x8c0 08ba e5fd | | Load 0x2,-0x3 08bb e5fd | | Load 0x2,-0x3 08bc 3c0f |< | Execute Record,Field_Read,Field_Number 0xf 08bd e5ff | | Load 0x2,-0x1 08be 829c | | Call 0x1,0x9c 08bf 00d1 | | Pop_Control Pop_Count_1 08c0 e5fd | | Load 0x2,-0x3 08c1 e5ff | | Load 0x2,-0x1 08c2 8299 | | Call 0x1,0x99 08c3 4503 |E | Exit_Suprogram New_Top_Offset 0x3 08c4 TRAP_08a8: 08c4 0007 | | Action Break_Optional 08c5 0092 12ee | | Action Push_String_Extended,0x12ee ; "rdcer" 08c7 e5fd | | Load 0x2,-0x3 08c8 3823 |8# | Execute Record,Field_Write,Field_Number 0x23 08c9 4503 |E | Exit_Suprogram New_Top_Offset 0x3 08ca 0000 0000 | | .BLANK 0000[0x6] 08d0 ; -------------------------------------------------------------------------------------- 08d0 ; SUBPROGRAM 08d0 ; -------------------------------------------------------------------------------------- 08d0 08d3 | | .CONST 0x08d3 ; Address of begin 08d1 090b | | .CONST 0x090b ; Address of exception handler 08d2 0001 | | .CONST 0x0001 ; Number of locals 08d3 BODY_08d0: 08d3 INIT_08d0: 08d3 00cf | | Action Mark_Auxiliary 08d4 4805 |H | Short_Literal 0x5 08d5 4801 |H | Short_Literal 0x1 08d6 0007 | | Action Break_Optional 08d7 0092 12e4 | | Action Push_String_Extended,0x12e4 ; "ok " 08d9 e5fd | | Load 0x2,-0x3 08da 3823 |8# | Execute Record,Field_Write,Field_Number 0x23 08db e5fd | | Load 0x2,-0x3 08dc e5fe | | Load 0x2,-0x2 08dd e5ff | | Load 0x2,-0x1 08de 8298 | | Call 0x1,0x98 08df 00d1 | | Pop_Control Pop_Count_1 08e0 e5fd | | Load 0x2,-0x3 08e1 3423 |4# | Execute Record,Field_Reference,Field_Number 0x23 08e2 0092 12e4 | | Action Push_String_Extended,0x12e4 ; "ok " 08e4 01df | | Execute Vector,Equal 08e5 6802 |h | Jump_Zero 0x8e8 08e6 00d2 | | Pop_Control Pop_Count_2 08e7 780b |x | Jump 0x8f3 08e8 0092 12ef | | Action Push_String_Extended,0x12ef ; "[Concurrent database update in progress, will delay 2 seconds & retry.]" 08ea e009 | | Load 0x0,0x9 08eb 181d | | Execute Package,Field_Execute,Field_Number 0x1d 08ec e009 | | Load 0x0,0x9 08ed 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 08ee 00a2 0cd8 | | Action Push_Discrete_Extended 08f0 00ba | | Action Initiate_Delay 08f1 00c8 | | Action Pop_Auxiliary_Range 08f2 3fe4 |? | Loop_Increasing 0x8d7 08f3 00ce | | Action Pop_Auxiliary 08f4 e5fd | | Load 0x2,-0x3 08f5 3423 |4# | Execute Record,Field_Reference,Field_Number 0x23 08f6 0092 12e4 | | Action Push_String_Extended,0x12e4 ; "ok " 08f8 01df | | Execute Vector,Equal 08f9 6807 |h | Jump_Zero 0x901 08fa e5fd | | Load 0x2,-0x3 08fb e5fd | | Load 0x2,-0x3 08fc 3c0f |< | Execute Record,Field_Read,Field_Number 0xf 08fd e5ff | | Load 0x2,-0x1 08fe 829a | | Call 0x1,0x9a 08ff 00d1 | | Pop_Control Pop_Count_1 0900 7806 |x | Jump 0x907 0901 0092 12f0 | | Action Push_String_Extended,0x12f0 ; "[Error - Retried database update open 5 times, and file still locked.]" 0903 e009 | | Load 0x0,0x9 0904 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0905 e009 | | Load 0x0,0x9 0906 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0907 e5fd | | Load 0x2,-0x3 0908 e5ff | | Load 0x2,-0x1 0909 8299 | | Call 0x1,0x99 090a 4503 |E | Exit_Suprogram New_Top_Offset 0x3 090b TRAP_08d0: 090b 0007 | | Action Break_Optional 090c 0092 12e8 | | Action Push_String_Extended,0x12e8 ; "wr er" 090e e5fd | | Load 0x2,-0x3 090f 3823 |8# | Execute Record,Field_Write,Field_Number 0x23 0910 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0911 0000 0000 | | .BLANK 0000[0x7] 0918 ; -------------------------------------------------------------------------------------- 0918 ; SUBPROGRAM 0918 ; -------------------------------------------------------------------------------------- 0918 091d | | .CONST 0x091d ; Address of begin 0919 0004 | | .CONST 0x0004 ; Address of exception handler 091a 0002 | | .CONST 0x0002 ; Number of locals 091b INIT_0918: 091b 029f 0b73 | s| Declare_Subprogram INIT_0b70,For_Call 091d BODY_0918: 091d 8402 | | Call 0x2,0x2 091e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 091f 0000 | | .XXX[0x1] 0920 ; -------------------------------------------------------------------------------------- 0920 ; SUBPROGRAM 0920 ; -------------------------------------------------------------------------------------- 0920 0925 | % | .CONST 0x0925 ; Address of begin 0921 0004 | | .CONST 0x0004 ; Address of exception handler 0922 0002 | | .CONST 0x0002 ; Number of locals 0923 INIT_0920: 0923 029f 0ce3 | | Declare_Subprogram INIT_0ce0,For_Call 0925 BODY_0920: 0925 8402 | | Call 0x2,0x2 0926 450a |E | Exit_Suprogram New_Top_Offset 0xa 0927 0000 | | .XXX[0x1] 0928 ; -------------------------------------------------------------------------------------- 0928 ; SUBPROGRAM 0928 ; -------------------------------------------------------------------------------------- 0928 092b | + | .CONST 0x092b ; Address of begin 0929 0004 | | .CONST 0x0004 ; Address of exception handler 092a 0001 | | .CONST 0x0001 ; Number of locals 092b BODY_0928: 092b INIT_0928: 092b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 092c 0000 0000 | | .BLANK 0000[0x4] 0930 ; -------------------------------------------------------------------------------------- 0930 ; SUBPROGRAM 0930 ; -------------------------------------------------------------------------------------- 0930 0933 | 3 | .CONST 0x0933 ; Address of begin 0931 093a | : | .CONST 0x093a ; Address of exception handler 0932 0001 | | .CONST 0x0001 ; Number of locals 0933 BODY_0930: 0933 INIT_0930: 0933 e5fd | | Load 0x2,-0x3 0934 e5fe | | Load 0x2,-0x2 0935 4801 |H | Short_Literal 0x1 0936 4801 |H | Short_Literal 0x1 0937 e5ff | | Load 0x2,-0x1 0938 82a6 | | Call 0x1,0xa6 0939 4504 |E | Exit_Suprogram New_Top_Offset 0x4 093a TRAP_0930: 093a 0007 | | Action Break_Optional 093b 4800 |H | Short_Literal 0x0 093c 4801 |H | Short_Literal 0x1 093d 0092 12f1 | | Action Push_String_Extended,0x12f1 ; "Exception in ap_clear_and_display_screen." 093f e009 | | Load 0x0,0x9 0940 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0941 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0942 0000 0000 | | .BLANK 0000[0x6] 0948 ; -------------------------------------------------------------------------------------- 0948 ; SUBPROGRAM 0948 ; -------------------------------------------------------------------------------------- 0948 094d | M | .CONST 0x094d ; Address of begin 0949 0004 | | .CONST 0x0004 ; Address of exception handler 094a 0002 | | .CONST 0x0002 ; Number of locals 094b INIT_0948: 094b 029f 0d03 | | Declare_Subprogram INIT_0d00,For_Call 094d BODY_0948: 094d 8402 | | Call 0x2,0x2 094e 4506 |E | Exit_Suprogram New_Top_Offset 0x6 094f 0000 | | .XXX[0x1] 0950 ; -------------------------------------------------------------------------------------- 0950 ; SUBPROGRAM 0950 ; -------------------------------------------------------------------------------------- 0950 0955 | U | .CONST 0x0955 ; Address of begin 0951 0004 | | .CONST 0x0004 ; Address of exception handler 0952 0002 | | .CONST 0x0002 ; Number of locals 0953 INIT_0950: 0953 029f 0d1b | | Declare_Subprogram INIT_0d18,For_Call 0955 BODY_0950: 0955 8402 | | Call 0x2,0x2 0956 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0957 0000 | | .XXX[0x1] 0958 ; -------------------------------------------------------------------------------------- 0958 ; SUBPROGRAM 0958 ; -------------------------------------------------------------------------------------- 0958 095d | ] | .CONST 0x095d ; Address of begin 0959 095f | _ | .CONST 0x095f ; Address of exception handler 095a 0002 | | .CONST 0x0002 ; Number of locals 095b INIT_0958: 095b 029f 0dab | | Declare_Subprogram INIT_0da8,For_Call 095d BODY_0958: 095d 8402 | | Call 0x2,0x2 095e 4504 |E | Exit_Suprogram New_Top_Offset 0x4 095f TRAP_0958: 095f 0007 | | Action Break_Optional 0960 4800 |H | Short_Literal 0x0 0961 4801 |H | Short_Literal 0x1 0962 0092 12f2 | | Action Push_String_Extended,0x12f2 ; "Exception in ap_print_screen" 0964 e009 | | Load 0x0,0x9 0965 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0966 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0967 0000 | | .XXX[0x1] 0968 ; -------------------------------------------------------------------------------------- 0968 ; SUBPROGRAM 0968 ; -------------------------------------------------------------------------------------- 0968 096b | k | .CONST 0x096b ; Address of begin 0969 09f2 | | .CONST 0x09f2 ; Address of exception handler 096a 0001 | | .CONST 0x0001 ; Number of locals 096b BODY_0968: 096b INIT_0968: 096b e245 | E | Load 0x1,0x45 096c e5ff | | Load 0x2,-0x1 096d 01d5 | | Execute Vector,Field_Reference 096e 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 096f 0c01 | | Execute_Immediate Greater_Equal,0x1 0970 4801 |H | Short_Literal 0x1 0971 480a |H | Short_Literal 0xa 0972 e245 | E | Load 0x1,0x45 0973 e5ff | | Load 0x2,-0x1 0974 01d5 | | Execute Vector,Field_Reference 0975 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 0976 01cf | | Execute Vector,Slice_Read 0977 4801 |H | Short_Literal 0x1 0978 480a |H | Short_Literal 0xa 0979 e220 | | Load 0x1,0x20 097a 01cf | | Execute Vector,Slice_Read 097b 01de | | Execute Vector,Not_Equal 097c 0279 | y | Execute Discrete,And 097d 680e |h | Jump_Zero 0x98c 097e 4800 |H | Short_Literal 0x0 097f 4801 |H | Short_Literal 0x1 0980 4801 |H | Short_Literal 0x1 0981 e245 | E | Load 0x1,0x45 0982 e5ff | | Load 0x2,-0x1 0983 01d5 | | Execute Vector,Field_Reference 0984 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 0985 e245 | E | Load 0x1,0x45 0986 e5ff | | Load 0x2,-0x1 0987 01d5 | | Execute Vector,Field_Reference 0988 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 0989 01cf | | Execute Vector,Slice_Read 098a e009 | | Load 0x0,0x9 098b 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 098c e246 | F | Load 0x1,0x46 098d e5ff | | Load 0x2,-0x1 098e 01d5 | | Execute Vector,Field_Reference 098f 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 0990 0c01 | | Execute_Immediate Greater_Equal,0x1 0991 4801 |H | Short_Literal 0x1 0992 480a |H | Short_Literal 0xa 0993 e246 | F | Load 0x1,0x46 0994 e5ff | | Load 0x2,-0x1 0995 01d5 | | Execute Vector,Field_Reference 0996 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 0997 01cf | | Execute Vector,Slice_Read 0998 4801 |H | Short_Literal 0x1 0999 480a |H | Short_Literal 0xa 099a e220 | | Load 0x1,0x20 099b 01cf | | Execute Vector,Slice_Read 099c 01de | | Execute Vector,Not_Equal 099d 0279 | y | Execute Discrete,And 099e 680e |h | Jump_Zero 0x9ad 099f 4800 |H | Short_Literal 0x0 09a0 4802 |H | Short_Literal 0x2 09a1 4801 |H | Short_Literal 0x1 09a2 e246 | F | Load 0x1,0x46 09a3 e5ff | | Load 0x2,-0x1 09a4 01d5 | | Execute Vector,Field_Reference 09a5 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 09a6 e246 | F | Load 0x1,0x46 09a7 e5ff | | Load 0x2,-0x1 09a8 01d5 | | Execute Vector,Field_Reference 09a9 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 09aa 01cf | | Execute Vector,Slice_Read 09ab e009 | | Load 0x0,0x9 09ac 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 09ad e247 | G | Load 0x1,0x47 09ae e5ff | | Load 0x2,-0x1 09af 01d5 | | Execute Vector,Field_Reference 09b0 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 09b1 0c01 | | Execute_Immediate Greater_Equal,0x1 09b2 4801 |H | Short_Literal 0x1 09b3 480a |H | Short_Literal 0xa 09b4 e247 | G | Load 0x1,0x47 09b5 e5ff | | Load 0x2,-0x1 09b6 01d5 | | Execute Vector,Field_Reference 09b7 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 09b8 01cf | | Execute Vector,Slice_Read 09b9 4801 |H | Short_Literal 0x1 09ba 480a |H | Short_Literal 0xa 09bb e220 | | Load 0x1,0x20 09bc 01cf | | Execute Vector,Slice_Read 09bd 01de | | Execute Vector,Not_Equal 09be 0279 | y | Execute Discrete,And 09bf 680e |h | Jump_Zero 0x9ce 09c0 4800 |H | Short_Literal 0x0 09c1 4803 |H | Short_Literal 0x3 09c2 4801 |H | Short_Literal 0x1 09c3 e247 | G | Load 0x1,0x47 09c4 e5ff | | Load 0x2,-0x1 09c5 01d5 | | Execute Vector,Field_Reference 09c6 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 09c7 e247 | G | Load 0x1,0x47 09c8 e5ff | | Load 0x2,-0x1 09c9 01d5 | | Execute Vector,Field_Reference 09ca 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 09cb 01cf | | Execute Vector,Slice_Read 09cc e009 | | Load 0x0,0x9 09cd 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 09ce e248 | H | Load 0x1,0x48 09cf e5ff | | Load 0x2,-0x1 09d0 01d5 | | Execute Vector,Field_Reference 09d1 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 09d2 0c01 | | Execute_Immediate Greater_Equal,0x1 09d3 4801 |H | Short_Literal 0x1 09d4 480a |H | Short_Literal 0xa 09d5 e248 | H | Load 0x1,0x48 09d6 e5ff | | Load 0x2,-0x1 09d7 01d5 | | Execute Vector,Field_Reference 09d8 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 09d9 01cf | | Execute Vector,Slice_Read 09da 4801 |H | Short_Literal 0x1 09db 480a |H | Short_Literal 0xa 09dc e220 | | Load 0x1,0x20 09dd 01cf | | Execute Vector,Slice_Read 09de 01de | | Execute Vector,Not_Equal 09df 0279 | y | Execute Discrete,And 09e0 680e |h | Jump_Zero 0x9ef 09e1 4800 |H | Short_Literal 0x0 09e2 4804 |H | Short_Literal 0x4 09e3 4801 |H | Short_Literal 0x1 09e4 e248 | H | Load 0x1,0x48 09e5 e5ff | | Load 0x2,-0x1 09e6 01d5 | | Execute Vector,Field_Reference 09e7 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 09e8 e248 | H | Load 0x1,0x48 09e9 e5ff | | Load 0x2,-0x1 09ea 01d5 | | Execute Vector,Field_Reference 09eb 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 09ec 01cf | | Execute Vector,Slice_Read 09ed e009 | | Load 0x0,0x9 09ee 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 09ef e009 | | Load 0x0,0x9 09f0 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 09f1 4502 |E | Exit_Suprogram New_Top_Offset 0x2 09f2 TRAP_0968: 09f2 0007 | | Action Break_Optional 09f3 4800 |H | Short_Literal 0x0 09f4 4801 |H | Short_Literal 0x1 09f5 0092 12f3 | | Action Push_String_Extended,0x12f3 ; "Exception in ap_display_menu_error_message" 09f7 e009 | | Load 0x0,0x9 09f8 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 09f9 4502 |E | Exit_Suprogram New_Top_Offset 0x2 09fa 0000 0000 | | .BLANK 0000[0x6] 0a00 ; -------------------------------------------------------------------------------------- 0a00 ; SUBPROGRAM 0a00 ; -------------------------------------------------------------------------------------- 0a00 0a03 | | .CONST 0x0a03 ; Address of begin 0a01 0a38 | 8 | .CONST 0x0a38 ; Address of exception handler 0a02 0001 | | .CONST 0x0001 ; Number of locals 0a03 BODY_0a00: 0a03 INIT_0a00: 0a03 e5fe | | Load 0x2,-0x2 0a04 e5ff | | Load 0x2,-0x1 0a05 01d5 | | Execute Vector,Field_Reference 0a06 e253 | S | Load 0x1,0x53 0a07 017d | } | Execute Record,Structure_Write 0a08 e253 | S | Load 0x1,0x53 0a09 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0a0a 0c01 | | Execute_Immediate Greater_Equal,0x1 0a0b e253 | S | Load 0x1,0x53 0a0c 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 0a0d 0c01 | | Execute_Immediate Greater_Equal,0x1 0a0e e253 | S | Load 0x1,0x53 0a0f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0a10 0f00 | | Execute_Immediate Equal,0x0 0a11 e5fe | | Load 0x2,-0x2 0a12 0c02 | | Execute_Immediate Greater_Equal,0x2 0a13 0279 | y | Execute Discrete,And 0a14 0279 | y | Execute Discrete,And 0a15 0279 | y | Execute Discrete,And 0a16 680f |h | Jump_Zero 0xa26 0a17 e5fe | | Load 0x2,-0x2 0a18 0aff | | Execute_Immediate Plus,-0x1 0a19 0248 | H | Execute Discrete,Check_In_Integer 0a1a e5ff | | Load 0x2,-0x1 0a1b 01d5 | | Execute Vector,Field_Reference 0a1c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0a1d e5fe | | Load 0x2,-0x2 0a1e 0aff | | Execute_Immediate Plus,-0x1 0a1f 0248 | H | Execute Discrete,Check_In_Integer 0a20 e5ff | | Load 0x2,-0x1 0a21 01d5 | | Execute Vector,Field_Reference 0a22 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 0a23 0273 | s | Execute Discrete,Plus 0a24 e253 | S | Load 0x1,0x53 0a25 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0a26 e5fe | | Load 0x2,-0x2 0a27 e243 | C | Load 0x1,0x43 0a28 027e | ~ | Execute Discrete,Not_Equal 0a29 6807 |h | Jump_Zero 0xa31 0a2a 4801 |H | Short_Literal 0x1 0a2b e5fc | | Load 0x2,-0x4 0a2c e5fd | | Load 0x2,-0x3 0a2d e5fe | | Load 0x2,-0x2 0a2e e253 | S | Load 0x1,0x53 0a2f 82aa | | Call 0x1,0xaa 0a30 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0a31 4800 |H | Short_Literal 0x0 0a32 e5fc | | Load 0x2,-0x4 0a33 e5fd | | Load 0x2,-0x3 0a34 e5fe | | Load 0x2,-0x2 0a35 e253 | S | Load 0x1,0x53 0a36 82aa | | Call 0x1,0xaa 0a37 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0a38 TRAP_0a00: 0a38 0007 | | Action Break_Optional 0a39 4800 |H | Short_Literal 0x0 0a3a 4801 |H | Short_Literal 0x1 0a3b 0092 12f4 | | Action Push_String_Extended,0x12f4 ; "Exception in ap_display_field." 0a3d e009 | | Load 0x0,0x9 0a3e 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0a3f 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0a40 ; -------------------------------------------------------------------------------------- 0a40 ; SUBPROGRAM 0a40 ; -------------------------------------------------------------------------------------- 0a40 0a45 | E | .CONST 0x0a45 ; Address of begin 0a41 0a47 | G | .CONST 0x0a47 ; Address of exception handler 0a42 0002 | | .CONST 0x0002 ; Number of locals 0a43 INIT_0a40: 0a43 029f 0deb | | Declare_Subprogram INIT_0de8,For_Call 0a45 BODY_0a40: 0a45 8402 | | Call 0x2,0x2 0a46 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0a47 TRAP_0a40: 0a47 0007 | | Action Break_Optional 0a48 4800 |H | Short_Literal 0x0 0a49 4801 |H | Short_Literal 0x1 0a4a 0092 12f5 | | Action Push_String_Extended,0x12f5 ; "Exception in ap_display_item." 0a4c e009 | | Load 0x0,0x9 0a4d 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0a4e 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0a4f 0000 | | .XXX[0x1] 0a50 ; -------------------------------------------------------------------------------------- 0a50 ; SUBPROGRAM 0a50 ; -------------------------------------------------------------------------------------- 0a50 0a55 | U | .CONST 0x0a55 ; Address of begin 0a51 0004 | | .CONST 0x0004 ; Address of exception handler 0a52 0002 | | .CONST 0x0002 ; Number of locals 0a53 INIT_0a50: 0a53 029f 0e33 | 3| Declare_Subprogram INIT_0e30,For_Call 0a55 BODY_0a50: 0a55 00cf | | Action Mark_Auxiliary 0a56 0007 | | Action Break_Optional 0a57 8402 | | Call 0x2,0x2 0a58 00c9 | | Action Pop_Auxiliary_Loop 0a59 7ffd | | Jump 0xa57 0a5a 0000 0000 | | .BLANK 0000[0x6] 0a60 ; -------------------------------------------------------------------------------------- 0a60 ; SUBPROGRAM 0a60 ; -------------------------------------------------------------------------------------- 0a60 0a65 | e | .CONST 0x0a65 ; Address of begin 0a61 0004 | | .CONST 0x0004 ; Address of exception handler 0a62 0002 | | .CONST 0x0002 ; Number of locals 0a63 INIT_0a60: 0a63 029f 0fdb | | Declare_Subprogram INIT_0fd8,For_Call 0a65 BODY_0a60: 0a65 8402 | | Call 0x2,0x2 0a66 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0a67 0000 | | .XXX[0x1] 0a68 ; -------------------------------------------------------------------------------------- 0a68 ; SUBPROGRAM 0a68 ; -------------------------------------------------------------------------------------- 0a68 0a6b | k | .CONST 0x0a6b ; Address of begin 0a69 0004 | | .CONST 0x0004 ; Address of exception handler 0a6a 0001 | | .CONST 0x0001 ; Number of locals 0a6b BODY_0a68: 0a6b INIT_0a68: 0a6b e5fc | | Load 0x2,-0x4 0a6c e5fd | | Load 0x2,-0x3 0a6d 4801 |H | Short_Literal 0x1 0a6e e009 | | Load 0x0,0x9 0a6f 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0a70 00d1 | | Pop_Control Pop_Count_1 0a71 c5fc | | Store 0x2,-0x4 0a72 e5fc | | Load 0x2,-0x4 0a73 0aff | | Execute_Immediate Plus,-0x1 0a74 0248 | H | Execute Discrete,Check_In_Integer 0a75 a5fc | | Store_Unchecked 0x2,-0x4 0a76 e5fc | | Load 0x2,-0x4 0a77 e241 | A | Load 0x1,0x41 0a78 e23f | ? | Load 0x1,0x3f 0a79 e5ff | | Load 0x2,-0x1 0a7a 0272 | r | Execute Discrete,Minus 0a7b 0272 | r | Execute Discrete,Minus 0a7c 0248 | H | Execute Discrete,Check_In_Integer 0a7d e5fe | | Load 0x2,-0x2 0a7e 01d5 | | Execute Vector,Field_Reference 0a7f 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 0a80 e5fd | | Load 0x2,-0x3 0a81 e241 | A | Load 0x1,0x41 0a82 e23f | ? | Load 0x1,0x3f 0a83 e5ff | | Load 0x2,-0x1 0a84 0272 | r | Execute Discrete,Minus 0a85 0272 | r | Execute Discrete,Minus 0a86 0248 | H | Execute Discrete,Check_In_Integer 0a87 e5fe | | Load 0x2,-0x2 0a88 01d5 | | Execute Vector,Field_Reference 0a89 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 0a8a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0a8b 0000 0000 | | .BLANK 0000[0x5] 0a90 ; -------------------------------------------------------------------------------------- 0a90 ; SUBPROGRAM 0a90 ; -------------------------------------------------------------------------------------- 0a90 0a95 | | .CONST 0x0a95 ; Address of begin 0a91 0004 | | .CONST 0x0004 ; Address of exception handler 0a92 0002 | | .CONST 0x0002 ; Number of locals 0a93 INIT_0a90: 0a93 029f 10d3 | | Declare_Subprogram INIT_10d0,For_Call 0a95 BODY_0a90: 0a95 8402 | | Call 0x2,0x2 0a96 450a |E | Exit_Suprogram New_Top_Offset 0xa 0a97 0000 | | .XXX[0x1] 0a98 ; -------------------------------------------------------------------------------------- 0a98 ; SUBPROGRAM 0a98 ; -------------------------------------------------------------------------------------- 0a98 0a9b | | .CONST 0x0a9b ; Address of begin 0a99 0aaa | | .CONST 0x0aaa ; Address of exception handler 0a9a 0001 | | .CONST 0x0001 ; Number of locals 0a9b BODY_0a98: 0a9b INIT_0a98: 0a9b e5ff | | Load 0x2,-0x1 0a9c e279 | y | Load 0x1,0x79 0a9d 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0a9e e5fe | | Load 0x2,-0x2 0a9f e279 | y | Load 0x1,0x79 0aa0 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0aa1 e5ff | | Load 0x2,-0x1 0aa2 e27a | z | Load 0x1,0x7a 0aa3 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0aa4 025b | [ | Execute Discrete,Check_In_Type 0aa5 e279 | y | Load 0x1,0x79 0aa6 e27c | | | Load 0x1,0x7c 0aa7 e27a | z | Load 0x1,0x7a 0aa8 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0aa9 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0aaa TRAP_0a98: 0aaa 0007 | | Action Break_Optional 0aab 4801 |H | Short_Literal 0x1 0aac 4804 |H | Short_Literal 0x4 0aad 0092 12f6 | | Action Push_String_Extended,0x12f6 ; "Exception in ap_write_rec_params, invalid index/file err.: " 0aaf e009 | | Load 0x0,0x9 0ab0 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0ab1 00d8 | | Load_Top At_Offset_0 0ab2 0101 | | Execute Exception,Reraise 0ab3 0000 0000 | | .BLANK 0000[0x5] 0ab8 ; -------------------------------------------------------------------------------------- 0ab8 ; SUBPROGRAM 0ab8 ; -------------------------------------------------------------------------------------- 0ab8 0abc | | .CONST 0x0abc ; Address of begin 0ab9 0ad4 | | .CONST 0x0ad4 ; Address of exception handler 0aba 0001 | | .CONST 0x0001 ; Number of locals 0abb INIT_0ab8: 0abb 0007 | | Action Break_Optional 0abc BODY_0ab8: 0abc e278 | x | Load 0x1,0x78 0abd e5ff | | Load 0x2,-0x1 0abe e27a | z | Load 0x1,0x7a 0abf 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0ac0 025b | [ | Execute Discrete,Check_In_Type 0ac1 e27c | | | Load 0x1,0x7c 0ac2 e27a | z | Load 0x1,0x7a 0ac3 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0ac4 00d1 | | Pop_Control Pop_Count_1 0ac5 e5ff | | Load 0x2,-0x1 0ac6 e278 | x | Load 0x1,0x78 0ac7 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0ac8 027e | ~ | Execute Discrete,Not_Equal 0ac9 6802 |h | Jump_Zero 0xacc 0aca e00a | | Load 0x0,0xa 0acb 0257 | W | Execute Discrete,Raise 0acc e278 | x | Load 0x1,0x78 0acd e279 | y | Load 0x1,0x79 0ace 017d | } | Execute Record,Structure_Write 0acf e279 | y | Load 0x1,0x79 0ad0 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0ad1 e5fe | | Load 0x2,-0x2 0ad2 01d4 | | Execute Vector,Structure_Write 0ad3 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0ad4 TRAP_0ab8: 0ad4 0007 | | Action Break_Optional 0ad5 4801 |H | Short_Literal 0x1 0ad6 4804 |H | Short_Literal 0x4 0ad7 0092 12f7 | | Action Push_String_Extended,0x12f7 ; "Exception in ap_read_rec_params, invalid index/file err.: " 0ad9 e009 | | Load 0x0,0x9 0ada 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0adb 00d8 | | Load_Top At_Offset_0 0adc 0101 | | Execute Exception,Reraise 0add 0000 0000 | | .XXX[0x3] 0adf 0000 | | 0ae0 ; -------------------------------------------------------------------------------------- 0ae0 ; SUBPROGRAM 0ae0 ; -------------------------------------------------------------------------------------- 0ae0 0ae4 | | .CONST 0x0ae4 ; Address of begin 0ae1 0b16 | | .CONST 0x0b16 ; Address of exception handler 0ae2 0001 | | .CONST 0x0001 ; Number of locals 0ae3 INIT_0ae0: 0ae3 0007 | | Action Break_Optional 0ae4 BODY_0ae0: 0ae4 e272 | r | Load 0x1,0x72 0ae5 0f01 | | Execute_Immediate Equal,0x1 0ae6 6803 |h | Jump_Zero 0xaea 0ae7 0092 12f8 | | Action Push_String_Extended,0x12f8 ; "1.Before read in ap_read_master" 0ae9 829e | | Call 0x1,0x9e 0aea e265 | e | Load 0x1,0x65 0aeb e5fe | | Load 0x2,-0x2 0aec e275 | u | Load 0x1,0x75 0aed 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0aee 025b | [ | Execute Discrete,Check_In_Type 0aef e5fd | | Load 0x2,-0x3 0af0 3c22 |<" | Execute Record,Field_Read,Field_Number 0x22 0af1 e275 | u | Load 0x1,0x75 0af2 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0af3 00d1 | | Pop_Control Pop_Count_1 0af4 e5fe | | Load 0x2,-0x2 0af5 e265 | e | Load 0x1,0x65 0af6 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0af7 027e | ~ | Execute Discrete,Not_Equal 0af8 6802 |h | Jump_Zero 0xafb 0af9 e00b | | Load 0x0,0xb 0afa 0257 | W | Execute Discrete,Raise 0afb 0007 | | Action Break_Optional 0afc e265 | e | Load 0x1,0x65 0afd e5fd | | Load 0x2,-0x3 0afe 3824 |8$ | Execute Record,Field_Write,Field_Number 0x24 0aff e5fe | | Load 0x2,-0x2 0b00 e5fd | | Load 0x2,-0x3 0b01 3c11 |< | Execute Record,Field_Read,Field_Number 0x11 0b02 027f | | Execute Discrete,Equal 0b03 6804 |h | Jump_Zero 0xb08 0b04 e5fe | | Load 0x2,-0x2 0b05 e5fd | | Load 0x2,-0x3 0b06 3811 |8 | Execute Record,Field_Write,Field_Number 0x11 0b07 7807 |x | Jump 0xb0f 0b08 e5fd | | Load 0x2,-0x3 0b09 3c11 |< | Execute Record,Field_Read,Field_Number 0x11 0b0a e5fd | | Load 0x2,-0x3 0b0b 3810 |8 | Execute Record,Field_Write,Field_Number 0x10 0b0c e5fe | | Load 0x2,-0x2 0b0d e5fd | | Load 0x2,-0x3 0b0e 3811 |8 | Execute Record,Field_Write,Field_Number 0x11 0b0f e272 | r | Load 0x1,0x72 0b10 0f01 | | Execute_Immediate Equal,0x1 0b11 6803 |h | Jump_Zero 0xb15 0b12 0092 12f9 | | Action Push_String_Extended,0x12f9 ; "5.After update keys in ap_read_master. end." 0b14 829e | | Call 0x1,0x9e 0b15 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0b16 TRAP_0ae0: 0b16 0007 | | Action Break_Optional 0b17 0092 12fa | | Action Push_String_Extended,0x12fa ; "rd er" 0b19 e5fd | | Load 0x2,-0x3 0b1a 3823 |8# | Execute Record,Field_Write,Field_Number 0x23 0b1b e272 | r | Load 0x1,0x72 0b1c 0f01 | | Execute_Immediate Equal,0x1 0b1d 6803 |h | Jump_Zero 0xb21 0b1e 0092 12fb | | Action Push_String_Extended,0x12fb ; "6.After got except,end in ap_read_master" 0b20 829e | | Call 0x1,0x9e 0b21 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0b22 0000 0000 | | .BLANK 0000[0x6] 0b28 ; -------------------------------------------------------------------------------------- 0b28 ; SUBPROGRAM 0b28 ; -------------------------------------------------------------------------------------- 0b28 0b2d | - | .CONST 0x0b2d ; Address of begin 0b29 0004 | | .CONST 0x0004 ; Address of exception handler 0b2a 0002 | | .CONST 0x0002 ; Number of locals 0b2b INIT_0b28: 0b2b 00e2 | | Load_Encached Integer_Cache 0b2c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0b2d BODY_0b28: 0b2d 0092 12e4 | | Action Push_String_Extended,0x12e4 ; "ok " 0b2f e5fd | | Load 0x2,-0x3 0b30 3823 |8# | Execute Record,Field_Write,Field_Number 0x23 0b31 e5fd | | Load 0x2,-0x3 0b32 e27f | | Load 0x1,0x7f 0b33 e5ff | | Load 0x2,-0x1 0b34 8298 | | Call 0x1,0x98 0b35 00d1 | | Pop_Control Pop_Count_1 0b36 4800 |H | Short_Literal 0x0 0b37 a602 | | Store_Unchecked 0x3,0x2 0b38 e5fd | | Load 0x2,-0x3 0b39 3423 |4# | Execute Record,Field_Reference,Field_Number 0x23 0b3a 0092 12e4 | | Action Push_String_Extended,0x12e4 ; "ok " 0b3c 01df | | Execute Vector,Equal 0b3d 682a |h* | Jump_Zero 0xb68 0b3e e5fd | | Load 0x2,-0x3 0b3f 3c22 |<" | Execute Record,Field_Read,Field_Number 0x22 0b40 e275 | u | Load 0x1,0x75 0b41 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0b42 a602 | | Store_Unchecked 0x3,0x2 0b43 00d8 | | Load_Top At_Offset_0 0b44 e5fd | | Load 0x2,-0x3 0b45 3826 |8& | Execute Record,Field_Write,Field_Number 0x26 0b46 e5fe | | Load 0x2,-0x2 0b47 0f01 | | Execute_Immediate Equal,0x1 0b48 681f |h | Jump_Zero 0xb68 0b49 00cf | | Action Mark_Auxiliary 0b4a 0007 | | Action Break_Optional 0b4b e602 | | Load 0x3,0x2 0b4c 7001 |p | Jump_Nonzero 0xb4e 0b4d 7819 |x | Jump 0xb67 0b4e 0092 12e4 | | Action Push_String_Extended,0x12e4 ; "ok " 0b50 e5fd | | Load 0x2,-0x3 0b51 3823 |8# | Execute Record,Field_Write,Field_Number 0x23 0b52 e5fd | | Load 0x2,-0x3 0b53 e602 | | Load 0x3,0x2 0b54 e5ff | | Load 0x2,-0x1 0b55 829c | | Call 0x1,0x9c 0b56 00d1 | | Pop_Control Pop_Count_1 0b57 e5fd | | Load 0x2,-0x3 0b58 3423 |4# | Execute Record,Field_Reference,Field_Number 0x23 0b59 0092 12e4 | | Action Push_String_Extended,0x12e4 ; "ok " 0b5b 01df | | Execute Vector,Equal 0b5c 6801 |h | Jump_Zero 0xb5e 0b5d 7809 |x | Jump 0xb67 0b5e e602 | | Load 0x3,0x2 0b5f 0aff | | Execute_Immediate Plus,-0x1 0b60 0248 | H | Execute Discrete,Check_In_Integer 0b61 a602 | | Store_Unchecked 0x3,0x2 0b62 e602 | | Load 0x3,0x2 0b63 e5fd | | Load 0x2,-0x3 0b64 3826 |8& | Execute Record,Field_Write,Field_Number 0x26 0b65 00c9 | | Action Pop_Auxiliary_Loop 0b66 7fe4 | | Jump 0xb4b 0b67 00ce | | Action Pop_Auxiliary 0b68 e5fd | | Load 0x2,-0x3 0b69 e5ff | | Load 0x2,-0x1 0b6a 8299 | | Call 0x1,0x99 0b6b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0b6c 0000 0000 | | .BLANK 0000[0x4] 0b70 ; -------------------------------------------------------------------------------------- 0b70 ; SUBPROGRAM 0b70 ; -------------------------------------------------------------------------------------- 0b70 0b74 | t | .CONST 0x0b74 ; Address of begin 0b71 0cd0 | | .CONST 0x0cd0 ; Address of exception handler 0b72 0002 | | .CONST 0x0002 ; Number of locals 0b73 INIT_0b70: 0b73 00e2 | | Load_Encached Integer_Cache 0b74 BODY_0b70: 0b74 4801 |H | Short_Literal 0x1 0b75 e251 | Q | Load 0x1,0x51 0b76 e254 | T | Load 0x1,0x54 0b77 0334 | 4 | Declare_Variable Array,With_Constraint 0b78 00d8 | | Load_Top At_Offset_0 0b79 01dc | | Execute Vector,Last 0b7a 4801 |H | Short_Literal 0x1 0b7b 0263 | c | Execute Discrete,Above_Bound 0b7c 7021 |p! | Jump_Nonzero 0xb9e 0b7d e2b4 | | Load 0x1,0xb4 0b7e 0322 | " | Declare_Variable Record 0b7f 4800 |H | Short_Literal 0x0 0b80 e606 | | Load 0x3,0x6 0b81 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0b82 4800 |H | Short_Literal 0x0 0b83 e606 | | Load 0x3,0x6 0b84 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0b85 4801 |H | Short_Literal 0x1 0b86 e606 | | Load 0x3,0x6 0b87 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0b88 4801 |H | Short_Literal 0x1 0b89 e606 | | Load 0x3,0x6 0b8a 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0b8b 4800 |H | Short_Literal 0x0 0b8c e606 | | Load 0x3,0x6 0b8d 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0b8e 4801 |H | Short_Literal 0x1 0b8f e606 | | Load 0x3,0x6 0b90 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 0b91 e220 | | Load 0x1,0x20 0b92 e2b4 | | Load 0x1,0xb4 0b93 3006 |0 | Execute Record,Field_Type,Field_Number 0x6 0b94 0119 | | Execute Any,Check_In_Formal_Type 0b95 e606 | | Load 0x3,0x6 0b96 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 0b97 4800 |H | Short_Literal 0x0 0b98 e606 | | Load 0x3,0x6 0b99 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 0b9a e605 | | Load 0x3,0x5 0b9b e603 | | Load 0x3,0x3 0b9c 01d6 | | Execute Vector,Field_Write 0b9d 3fdf |? | Loop_Increasing 0xb7d 0b9e e254 | T | Load 0x1,0x54 0b9f 01c3 | | Execute Vector,Check_In_Type 0ba0 4801 |H | Short_Literal 0x1 0ba1 e251 | Q | Load 0x1,0x51 0ba2 e5ff | | Load 0x2,-0x1 0ba3 01ce | | Execute Vector,Slice_Write 0ba4 e5ff | | Load 0x2,-0x1 0ba5 4be7 |K | Short_Literal 0x3e7 0ba6 4801 |H | Short_Literal 0x1 0ba7 4800 |H | Short_Literal 0x0 0ba8 4800 |H | Short_Literal 0x0 0ba9 4800 |H | Short_Literal 0x0 0baa 4801 |H | Short_Literal 0x1 0bab 4801 |H | Short_Literal 0x1 0bac e220 | | Load 0x1,0x20 0bad e23e | > | Load 0x1,0x3e 0bae 82a2 | | Call 0x1,0xa2 0baf 00d1 | | Pop_Control Pop_Count_1 0bb0 0007 | | Action Break_Optional 0bb1 4801 |H | Short_Literal 0x1 0bb2 a602 | | Store_Unchecked 0x3,0x2 0bb3 00cf | | Action Mark_Auxiliary 0bb4 4815 |H | Short_Literal 0x15 0bb5 4802 |H | Short_Literal 0x2 0bb6 0007 | | Action Break_Optional 0bb7 e602 | | Load 0x3,0x2 0bb8 0a01 | | Execute_Immediate Plus,0x1 0bb9 0248 | H | Execute Discrete,Check_In_Integer 0bba a602 | | Store_Unchecked 0x3,0x2 0bbb e602 | | Load 0x3,0x2 0bbc 0a01 | | Execute_Immediate Plus,0x1 0bbd e602 | | Load 0x3,0x2 0bbe e5ff | | Load 0x2,-0x1 0bbf 01d5 | | Execute Vector,Field_Reference 0bc0 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0bc1 4801 |H | Short_Literal 0x1 0bc2 e602 | | Load 0x3,0x2 0bc3 e5ff | | Load 0x2,-0x1 0bc4 01d5 | | Execute Vector,Field_Reference 0bc5 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0bc6 00c8 | | Action Pop_Auxiliary_Range 0bc7 3fef |? | Loop_Increasing 0xbb7 0bc8 00ce | | Action Pop_Auxiliary 0bc9 4815 |H | Short_Literal 0x15 0bca a602 | | Store_Unchecked 0x3,0x2 0bcb 00cf | | Action Mark_Auxiliary 0bcc 4829 |H) | Short_Literal 0x29 0bcd 4816 |H | Short_Literal 0x16 0bce 0007 | | Action Break_Optional 0bcf e602 | | Load 0x3,0x2 0bd0 0a01 | | Execute_Immediate Plus,0x1 0bd1 0248 | H | Execute Discrete,Check_In_Integer 0bd2 a602 | | Store_Unchecked 0x3,0x2 0bd3 e602 | | Load 0x3,0x2 0bd4 0a01 | | Execute_Immediate Plus,0x1 0bd5 0248 | H | Execute Discrete,Check_In_Integer 0bd6 0aec | | Execute_Immediate Plus,-0x14 0bd7 e602 | | Load 0x3,0x2 0bd8 e5ff | | Load 0x2,-0x1 0bd9 01d5 | | Execute Vector,Field_Reference 0bda 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0bdb 4828 |H( | Short_Literal 0x28 0bdc e602 | | Load 0x3,0x2 0bdd e5ff | | Load 0x2,-0x1 0bde 01d5 | | Execute Vector,Field_Reference 0bdf 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0be0 00c8 | | Action Pop_Auxiliary_Range 0be1 3fed |? | Loop_Increasing 0xbcf 0be2 00ce | | Action Pop_Auxiliary 0be3 e5ff | | Load 0x2,-0x1 0be4 4be7 |K | Short_Literal 0x3e7 0be5 4802 |H | Short_Literal 0x2 0be6 4be7 |K | Short_Literal 0x3e7 0be7 4801 |H | Short_Literal 0x1 0be8 4801 |H | Short_Literal 0x1 0be9 4801 |H | Short_Literal 0x1 0bea 4800 |H | Short_Literal 0x0 0beb e220 | | Load 0x1,0x20 0bec e23f | ? | Load 0x1,0x3f 0bed 82a2 | | Call 0x1,0xa2 0bee 00d1 | | Pop_Control Pop_Count_1 0bef e5ff | | Load 0x2,-0x1 0bf0 4be7 |K | Short_Literal 0x3e7 0bf1 4802 |H | Short_Literal 0x2 0bf2 4be7 |K | Short_Literal 0x3e7 0bf3 4801 |H | Short_Literal 0x1 0bf4 4801 |H | Short_Literal 0x1 0bf5 4800 |H | Short_Literal 0x0 0bf6 4800 |H | Short_Literal 0x0 0bf7 0092 12fc | | Action Push_String_Extended,0x12fc ; "1 " 0bf9 e241 | A | Load 0x1,0x41 0bfa 82a2 | | Call 0x1,0xa2 0bfb 00d1 | | Pop_Control Pop_Count_1 0bfc e5ff | | Load 0x2,-0x1 0bfd 4be7 |K | Short_Literal 0x3e7 0bfe 4802 |H | Short_Literal 0x2 0bff 4be7 |K | Short_Literal 0x3e7 0c00 4801 |H | Short_Literal 0x1 0c01 4800 |H | Short_Literal 0x0 0c02 4801 |H | Short_Literal 0x1 0c03 e009 | | Load 0x0,0x9 0c04 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0c05 e220 | | Load 0x1,0x20 0c06 e242 | B | Load 0x1,0x42 0c07 82a2 | | Call 0x1,0xa2 0c08 00d1 | | Pop_Control Pop_Count_1 0c09 e5ff | | Load 0x2,-0x1 0c0a 4be7 |K | Short_Literal 0x3e7 0c0b 4802 |H | Short_Literal 0x2 0c0c 4be7 |K | Short_Literal 0x3e7 0c0d 4801 |H | Short_Literal 0x1 0c0e 4801 |H | Short_Literal 0x1 0c0f 4801 |H | Short_Literal 0x1 0c10 e009 | | Load 0x0,0x9 0c11 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0c12 e220 | | Load 0x1,0x20 0c13 e240 | @ | Load 0x1,0x40 0c14 82a2 | | Call 0x1,0xa2 0c15 00d1 | | Pop_Control Pop_Count_1 0c16 e5ff | | Load 0x2,-0x1 0c17 4be7 |K | Short_Literal 0x3e7 0c18 4802 |H | Short_Literal 0x2 0c19 4be7 |K | Short_Literal 0x3e7 0c1a 4801 |H | Short_Literal 0x1 0c1b 4801 |H | Short_Literal 0x1 0c1c 4800 |H | Short_Literal 0x0 0c1d e009 | | Load 0x0,0x9 0c1e 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0c1f 0092 12fc | | Action Push_String_Extended,0x12fc ; "1 " 0c21 e243 | C | Load 0x1,0x43 0c22 82a2 | | Call 0x1,0xa2 0c23 00d1 | | Pop_Control Pop_Count_1 0c24 e5ff | | Load 0x2,-0x1 0c25 4be7 |K | Short_Literal 0x3e7 0c26 4802 |H | Short_Literal 0x2 0c27 4be7 |K | Short_Literal 0x3e7 0c28 4801 |H | Short_Literal 0x1 0c29 4801 |H | Short_Literal 0x1 0c2a 4801 |H | Short_Literal 0x1 0c2b e009 | | Load 0x0,0x9 0c2c 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0c2d 0a01 | | Execute_Immediate Plus,0x1 0c2e 0248 | H | Execute Discrete,Check_In_Integer 0c2f 4801 |H | Short_Literal 0x1 0c30 4828 |H( | Short_Literal 0x28 0c31 e220 | | Load 0x1,0x20 0c32 01cf | | Execute Vector,Slice_Read 0c33 e244 | D | Load 0x1,0x44 0c34 82a2 | | Call 0x1,0xa2 0c35 00d1 | | Pop_Control Pop_Count_1 0c36 e5ff | | Load 0x2,-0x1 0c37 4be7 |K | Short_Literal 0x3e7 0c38 4802 |H | Short_Literal 0x2 0c39 4be7 |K | Short_Literal 0x3e7 0c3a 4801 |H | Short_Literal 0x1 0c3b 4800 |H | Short_Literal 0x0 0c3c 4801 |H | Short_Literal 0x1 0c3d e009 | | Load 0x0,0x9 0c3e 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0c3f 0a02 | | Execute_Immediate Plus,0x2 0c40 0248 | H | Execute Discrete,Check_In_Integer 0c41 e220 | | Load 0x1,0x20 0c42 e245 | E | Load 0x1,0x45 0c43 82a2 | | Call 0x1,0xa2 0c44 00d1 | | Pop_Control Pop_Count_1 0c45 e5ff | | Load 0x2,-0x1 0c46 4be7 |K | Short_Literal 0x3e7 0c47 4802 |H | Short_Literal 0x2 0c48 4be7 |K | Short_Literal 0x3e7 0c49 4801 |H | Short_Literal 0x1 0c4a 4801 |H | Short_Literal 0x1 0c4b 4801 |H | Short_Literal 0x1 0c4c e009 | | Load 0x0,0x9 0c4d 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0c4e 0a01 | | Execute_Immediate Plus,0x1 0c4f 0248 | H | Execute Discrete,Check_In_Integer 0c50 e220 | | Load 0x1,0x20 0c51 e246 | F | Load 0x1,0x46 0c52 82a2 | | Call 0x1,0xa2 0c53 00d1 | | Pop_Control Pop_Count_1 0c54 e5ff | | Load 0x2,-0x1 0c55 4be7 |K | Short_Literal 0x3e7 0c56 4802 |H | Short_Literal 0x2 0c57 4be7 |K | Short_Literal 0x3e7 0c58 4801 |H | Short_Literal 0x1 0c59 4801 |H | Short_Literal 0x1 0c5a 4801 |H | Short_Literal 0x1 0c5b e009 | | Load 0x0,0x9 0c5c 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0c5d 0a02 | | Execute_Immediate Plus,0x2 0c5e 0248 | H | Execute Discrete,Check_In_Integer 0c5f e220 | | Load 0x1,0x20 0c60 e247 | G | Load 0x1,0x47 0c61 82a2 | | Call 0x1,0xa2 0c62 00d1 | | Pop_Control Pop_Count_1 0c63 e5ff | | Load 0x2,-0x1 0c64 4be7 |K | Short_Literal 0x3e7 0c65 4802 |H | Short_Literal 0x2 0c66 4be7 |K | Short_Literal 0x3e7 0c67 4801 |H | Short_Literal 0x1 0c68 4801 |H | Short_Literal 0x1 0c69 4801 |H | Short_Literal 0x1 0c6a e009 | | Load 0x0,0x9 0c6b 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0c6c 0a03 | | Execute_Immediate Plus,0x3 0c6d 0248 | H | Execute Discrete,Check_In_Integer 0c6e e220 | | Load 0x1,0x20 0c6f e248 | H | Load 0x1,0x48 0c70 82a2 | | Call 0x1,0xa2 0c71 00d1 | | Pop_Control Pop_Count_1 0c72 0007 | | Action Break_Optional 0c73 e5ff | | Load 0x2,-0x1 0c74 4be7 |K | Short_Literal 0x3e7 0c75 4802 |H | Short_Literal 0x2 0c76 4be7 |K | Short_Literal 0x3e7 0c77 4802 |H | Short_Literal 0x2 0c78 4802 |H | Short_Literal 0x2 0c79 4be7 |K | Short_Literal 0x3e7 0c7a 4be7 |K | Short_Literal 0x3e7 0c7b 0092 12fd | | Action Push_String_Extended,0x12fd ; " Command: (or ?):" 0c7d e242 | B | Load 0x1,0x42 0c7e 82a2 | | Call 0x1,0xa2 0c7f 00d1 | | Pop_Control Pop_Count_1 0c80 e5ff | | Load 0x2,-0x1 0c81 4be7 |K | Short_Literal 0x3e7 0c82 4802 |H | Short_Literal 0x2 0c83 4be7 |K | Short_Literal 0x3e7 0c84 4802 |H | Short_Literal 0x2 0c85 4802 |H | Short_Literal 0x2 0c86 4be7 |K | Short_Literal 0x3e7 0c87 4be7 |K | Short_Literal 0x3e7 0c88 0092 12fe | | Action Push_String_Extended,0x12fe ; "Command:" 0c8a e240 | @ | Load 0x1,0x40 0c8b 82a2 | | Call 0x1,0xa2 0c8c 00d1 | | Pop_Control Pop_Count_1 0c8d e5ff | | Load 0x2,-0x1 0c8e 4be7 |K | Short_Literal 0x3e7 0c8f 4802 |H | Short_Literal 0x2 0c90 4be7 |K | Short_Literal 0x3e7 0c91 4802 |H | Short_Literal 0x2 0c92 4802 |H | Short_Literal 0x2 0c93 4be7 |K | Short_Literal 0x3e7 0c94 4be7 |K | Short_Literal 0x3e7 0c95 4801 |H | Short_Literal 0x1 0c96 4828 |H( | Short_Literal 0x28 0c97 e220 | | Load 0x1,0x20 0c98 01cf | | Execute Vector,Slice_Read 0c99 e244 | D | Load 0x1,0x44 0c9a 82a2 | | Call 0x1,0xa2 0c9b 00d1 | | Pop_Control Pop_Count_1 0c9c e5ff | | Load 0x2,-0x1 0c9d 4be7 |K | Short_Literal 0x3e7 0c9e 4802 |H | Short_Literal 0x2 0c9f 4be7 |K | Short_Literal 0x3e7 0ca0 4802 |H | Short_Literal 0x2 0ca1 4802 |H | Short_Literal 0x2 0ca2 4be7 |K | Short_Literal 0x3e7 0ca3 4be7 |K | Short_Literal 0x3e7 0ca4 0092 12ff | | Action Push_String_Extended,0x12ff ; "Invalid Menu Command. A '?' re-displays the menu choices." 0ca6 e245 | E | Load 0x1,0x45 0ca7 82a2 | | Call 0x1,0xa2 0ca8 00d1 | | Pop_Control Pop_Count_1 0ca9 e5ff | | Load 0x2,-0x1 0caa 4be7 |K | Short_Literal 0x3e7 0cab 4802 |H | Short_Literal 0x2 0cac 4be7 |K | Short_Literal 0x3e7 0cad 4802 |H | Short_Literal 0x2 0cae 4802 |H | Short_Literal 0x2 0caf 4be7 |K | Short_Literal 0x3e7 0cb0 4be7 |K | Short_Literal 0x3e7 0cb1 0092 1300 | | Action Push_String_Extended,0x1300 ; "Please enter a keyword or numeric command or use default and promote." 0cb3 e246 | F | Load 0x1,0x46 0cb4 82a2 | | Call 0x1,0xa2 0cb5 00d1 | | Pop_Control Pop_Count_1 0cb6 e5ff | | Load 0x2,-0x1 0cb7 4be7 |K | Short_Literal 0x3e7 0cb8 4802 |H | Short_Literal 0x2 0cb9 4be7 |K | Short_Literal 0x3e7 0cba 4802 |H | Short_Literal 0x2 0cbb 4802 |H | Short_Literal 0x2 0cbc 4be7 |K | Short_Literal 0x3e7 0cbd 4be7 |K | Short_Literal 0x3e7 0cbe 0092 1301 | | Action Push_String_Extended,0x1301 ; "[Or '?' for new menu, Or use standard R1000 window & editing.]" 0cc0 e247 | G | Load 0x1,0x47 0cc1 82a2 | | Call 0x1,0xa2 0cc2 00d1 | | Pop_Control Pop_Count_1 0cc3 e5ff | | Load 0x2,-0x1 0cc4 4be7 |K | Short_Literal 0x3e7 0cc5 4802 |H | Short_Literal 0x2 0cc6 4be7 |K | Short_Literal 0x3e7 0cc7 4802 |H | Short_Literal 0x2 0cc8 4802 |H | Short_Literal 0x2 0cc9 4be7 |K | Short_Literal 0x3e7 0cca 4be7 |K | Short_Literal 0x3e7 0ccb 0092 1302 | | Action Push_String_Extended,0x1302 ; "[Or for record editing: Up= ^ Top= , Select= . Exit= / ]" 0ccd e248 | H | Load 0x1,0x48 0cce 82a2 | | Call 0x1,0xa2 0ccf 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0cd0 TRAP_0b70: 0cd0 0007 | | Action Break_Optional 0cd1 4800 |H | Short_Literal 0x0 0cd2 4801 |H | Short_Literal 0x1 0cd3 0092 1303 | | Action Push_String_Extended,0x1303 ; "Exception occurred in ap_init_screen_array_defaults." 0cd5 e009 | | Load 0x0,0x9 0cd6 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0cd7 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0cd8 0000 0000 | | .XXX[0x3] 0cda 0001 | | 0cdb 0000 0000 | | .BLANK 0000[0x5] 0ce0 ; -------------------------------------------------------------------------------------- 0ce0 ; SUBPROGRAM 0ce0 ; -------------------------------------------------------------------------------------- 0ce0 0ce4 | | .CONST 0x0ce4 ; Address of begin 0ce1 0cf3 | | .CONST 0x0cf3 ; Address of exception handler 0ce2 0001 | | .CONST 0x0001 ; Number of locals 0ce3 INIT_0ce0: 0ce3 0007 | | Action Break_Optional 0ce4 BODY_0ce0: 0ce4 e5ff | | Load 0x2,-0x1 0ce5 e5f6 | | Load 0x2,-0xa 0ce6 01d7 | | Execute Vector,Field_Read 0ce7 00d8 | | Load_Top At_Offset_0 0ce8 4800 |H | Short_Literal 0x0 0ce9 e5f7 | | Load 0x2,-0x9 0cea e5f8 | | Load 0x2,-0x8 0ceb e5f9 | | Load 0x2,-0x7 0cec e5fa | | Load 0x2,-0x6 0ced e5fb | | Load 0x2,-0x5 0cee e5fc | | Load 0x2,-0x4 0cef e5fd | | Load 0x2,-0x3 0cf0 e5fe | | Load 0x2,-0x2 0cf1 82ae | | Call 0x1,0xae 0cf2 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0cf3 TRAP_0ce0: 0cf3 0007 | | Action Break_Optional 0cf4 4800 |H | Short_Literal 0x0 0cf5 4801 |H | Short_Literal 0x1 0cf6 0092 1304 | | Action Push_String_Extended,0x1304 ; "Exception occurred in ap_screen." 0cf8 e009 | | Load 0x0,0x9 0cf9 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0cfa e00c | | Load 0x0,0xc 0cfb 0257 | W | Execute Discrete,Raise 0cfc 0000 0000 | | .BLANK 0000[0x4] 0d00 ; -------------------------------------------------------------------------------------- 0d00 ; SUBPROGRAM 0d00 ; -------------------------------------------------------------------------------------- 0d00 0d05 | | .CONST 0x0d05 ; Address of begin 0d01 0d0d | | .CONST 0x0d0d ; Address of exception handler 0d02 0003 | | .CONST 0x0003 ; Number of locals 0d03 INIT_0d00: 0d03 00e2 | | Load_Encached Integer_Cache 0d04 00e2 | | Load_Encached Integer_Cache 0d05 BODY_0d00: 0d05 0007 | | Action Break_Optional 0d06 e5fb | | Load 0x2,-0x5 0d07 e5fc | | Load 0x2,-0x4 0d08 e5fd | | Load 0x2,-0x3 0d09 e5fe | | Load 0x2,-0x2 0d0a e5ff | | Load 0x2,-0x1 0d0b 82a6 | | Call 0x1,0xa6 0d0c 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0d0d TRAP_0d00: 0d0d 0007 | | Action Break_Optional 0d0e 4800 |H | Short_Literal 0x0 0d0f 4801 |H | Short_Literal 0x1 0d10 0092 1305 | | Action Push_String_Extended,0x1305 ; "Exception in ap_display_random_screen." 0d12 e009 | | Load 0x0,0x9 0d13 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0d14 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0d15 0000 0000 | | .XXX[0x3] 0d17 0000 | | 0d18 ; -------------------------------------------------------------------------------------- 0d18 ; SUBPROGRAM 0d18 ; -------------------------------------------------------------------------------------- 0d18 0d2f | / | .CONST 0x0d2f ; Address of begin 0d19 0d9b | | .CONST 0x0d9b ; Address of exception handler 0d1a 0004 | | .CONST 0x0004 ; Number of locals 0d1b INIT_0d18: 0d1b 00e2 | | Load_Encached Integer_Cache 0d1c 00e2 | | Load_Encached Integer_Cache 0d1d 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0d1e 4801 |H | Short_Literal 0x1 0d1f 4850 |HP | Short_Literal 0x50 0d20 00e9 | | Load_Encached String_Cache 0d21 0334 | 4 | Declare_Variable Array,With_Constraint 0d22 4801 |H | Short_Literal 0x1 0d23 4850 |HP | Short_Literal 0x50 0d24 00e9 | | Load_Encached String_Cache 0d25 0334 | 4 | Declare_Variable Array,With_Constraint 0d26 4850 |HP | Short_Literal 0x50 0d27 4801 |H | Short_Literal 0x1 0d28 483d |H= | Short_Literal 0x3d 0d29 e607 | | Load 0x3,0x7 0d2a e605 | | Load 0x3,0x5 0d2b 01d6 | | Execute Vector,Field_Write 0d2c 3ffb |? | Loop_Increasing 0xd28 0d2d e604 | | Load 0x3,0x4 0d2e 01d4 | | Execute Vector,Structure_Write 0d2f BODY_0d18: 0d2f 4800 |H | Short_Literal 0x0 0d30 a603 | | Store_Unchecked 0x3,0x3 0d31 e223 | # | Load 0x1,0x23 0d32 7006 |p | Jump_Nonzero 0xd39 0d33 e23f | ? | Load 0x1,0x3f 0d34 0aff | | Execute_Immediate Plus,-0x1 0d35 0248 | H | Execute Discrete,Check_In_Integer 0d36 e5fc | | Load 0x2,-0x4 0d37 e5ff | | Load 0x2,-0x1 0d38 82a7 | | Call 0x1,0xa7 0d39 00cf | | Action Mark_Auxiliary 0d3a e5fb | | Load 0x2,-0x5 0d3b e5fc | | Load 0x2,-0x4 0d3c 0263 | c | Execute Discrete,Above_Bound 0d3d 7057 |pW | Jump_Nonzero 0xd95 0d3e 00d8 | | Load_Top At_Offset_0 0d3f e5ff | | Load 0x2,-0x1 0d40 01d5 | | Execute Vector,Field_Reference 0d41 e253 | S | Load 0x1,0x53 0d42 017d | } | Execute Record,Structure_Write 0d43 e253 | S | Load 0x1,0x53 0d44 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0d45 0e00 | | Execute_Immediate Not_Equal,0x0 0d46 e253 | S | Load 0x1,0x53 0d47 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 0d48 0e00 | | Execute_Immediate Not_Equal,0x0 0d49 0279 | y | Execute Discrete,And 0d4a 6848 |hH | Jump_Zero 0xd93 0d4b e603 | | Load 0x3,0x3 0d4c 0f00 | | Execute_Immediate Equal,0x0 0d4d e607 | | Load 0x3,0x7 0d4e e23e | > | Load 0x1,0x3e 0d4f 027e | ~ | Execute Discrete,Not_Equal 0d50 0279 | y | Execute Discrete,And 0d51 6801 |h | Jump_Zero 0xd53 0d52 780a |x | Jump 0xd5d 0d53 00d8 | | Load_Top At_Offset_0 0d54 e23e | > | Load 0x1,0x3e 0d55 027f | | Execute Discrete,Equal 0d56 6806 |h | Jump_Zero 0xd5d 0d57 e009 | | Load 0x0,0x9 0d58 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0d59 e009 | | Load 0x0,0x9 0d5a 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0d5b 4800 |H | Short_Literal 0x0 0d5c a603 | | Store_Unchecked 0x3,0x3 0d5d e603 | | Load 0x3,0x3 0d5e 7001 |p | Jump_Nonzero 0xd60 0d5f 7819 |x | Jump 0xd79 0d60 e603 | | Load 0x3,0x3 0d61 0c01 | | Execute_Immediate Greater_Equal,0x1 0d62 e603 | | Load 0x3,0x3 0d63 0d28 | ( | Execute_Immediate Less,0x28 0d64 0279 | y | Execute Discrete,And 0d65 680c |h | Jump_Zero 0xd72 0d66 4801 |H | Short_Literal 0x1 0d67 4828 |H( | Short_Literal 0x28 0d68 e603 | | Load 0x3,0x3 0d69 0272 | r | Execute Discrete,Minus 0d6a 0248 | H | Execute Discrete,Check_In_Integer 0d6b e220 | | Load 0x1,0x20 0d6c 01cf | | Execute Vector,Slice_Read 0d6d e009 | | Load 0x0,0x9 0d6e 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0d6f 4828 |H( | Short_Literal 0x28 0d70 a603 | | Store_Unchecked 0x3,0x3 0d71 7807 |x | Jump 0xd79 0d72 e603 | | Load 0x3,0x3 0d73 0c29 | ) | Execute_Immediate Greater_Equal,0x29 0d74 6804 |h | Jump_Zero 0xd79 0d75 4800 |H | Short_Literal 0x0 0d76 a603 | | Store_Unchecked 0x3,0x3 0d77 e009 | | Load 0x0,0x9 0d78 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0d79 4801 |H | Short_Literal 0x1 0d7a 4801 |H | Short_Literal 0x1 0d7b e607 | | Load 0x3,0x7 0d7c e5ff | | Load 0x2,-0x1 0d7d 82a9 | | Call 0x1,0xa9 0d7e 00d8 | | Load_Top At_Offset_0 0d7f e23e | > | Load 0x1,0x3e 0d80 027f | | Execute Discrete,Equal 0d81 680b |h | Jump_Zero 0xd8d 0d82 e009 | | Load 0x0,0x9 0d83 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0d84 4801 |H | Short_Literal 0x1 0d85 e253 | S | Load 0x1,0x53 0d86 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 0d87 e604 | | Load 0x3,0x4 0d88 01cf | | Execute Vector,Slice_Read 0d89 e009 | | Load 0x0,0x9 0d8a 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0d8b 4850 |HP | Short_Literal 0x50 0d8c a603 | | Store_Unchecked 0x3,0x3 0d8d e603 | | Load 0x3,0x3 0d8e e253 | S | Load 0x1,0x53 0d8f 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 0d90 0273 | s | Execute Discrete,Plus 0d91 0248 | H | Execute Discrete,Check_In_Integer 0d92 a603 | | Store_Unchecked 0x3,0x3 0d93 00c8 | | Action Pop_Auxiliary_Range 0d94 3fa9 |? | Loop_Increasing 0xd3e 0d95 00ce | | Action Pop_Auxiliary 0d96 e009 | | Load 0x0,0x9 0d97 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0d98 e009 | | Load 0x0,0x9 0d99 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0d9a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0d9b TRAP_0d18: 0d9b 0007 | | Action Break_Optional 0d9c 4800 |H | Short_Literal 0x0 0d9d 4801 |H | Short_Literal 0x1 0d9e 0092 1306 | | Action Push_String_Extended,0x1306 ; "Exception in ap_display_screen." 0da0 e009 | | Load 0x0,0x9 0da1 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0da2 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0da3 0000 0000 | | .BLANK 0000[0x5] 0da8 ; -------------------------------------------------------------------------------------- 0da8 ; SUBPROGRAM 0da8 ; -------------------------------------------------------------------------------------- 0da8 0dac | | .CONST 0x0dac ; Address of begin 0da9 0004 | | .CONST 0x0004 ; Address of exception handler 0daa 0002 | | .CONST 0x0002 ; Number of locals 0dab INIT_0da8: 0dab 00e2 | | Load_Encached Integer_Cache 0dac BODY_0da8: 0dac 00cf | | Action Mark_Auxiliary 0dad e5fd | | Load 0x2,-0x3 0dae e5fe | | Load 0x2,-0x2 0daf 0263 | c | Execute Discrete,Above_Bound 0db0 702e |p. | Jump_Nonzero 0xddf 0db1 00d8 | | Load_Top At_Offset_0 0db2 e5ff | | Load 0x2,-0x1 0db3 01d5 | | Execute Vector,Field_Reference 0db4 e253 | S | Load 0x1,0x53 0db5 017d | } | Execute Record,Structure_Write 0db6 e253 | S | Load 0x1,0x53 0db7 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0db8 0e00 | | Execute_Immediate Not_Equal,0x0 0db9 e253 | S | Load 0x1,0x53 0dba 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 0dbb 0e00 | | Execute_Immediate Not_Equal,0x0 0dbc 0279 | y | Execute Discrete,And 0dbd 681f |h | Jump_Zero 0xddd 0dbe 4801 |H | Short_Literal 0x1 0dbf e27e | ~ | Load 0x1,0x7e 0dc0 e008 | | Load 0x0,0x8 0dc1 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 0dc2 0092 1307 | | Action Push_String_Extended,0x1307 ; " " 0dc4 e27e | ~ | Load 0x1,0x7e 0dc5 e008 | | Load 0x0,0x8 0dc6 184a | J | Execute Package,Field_Execute,Field_Number 0x4a 0dc7 4801 |H | Short_Literal 0x1 0dc8 e253 | S | Load 0x1,0x53 0dc9 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 0dca e253 | S | Load 0x1,0x53 0dcb 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 0dcc 01cf | | Execute Vector,Slice_Read 0dcd e27e | ~ | Load 0x1,0x7e 0dce e008 | | Load 0x0,0x8 0dcf 184a | J | Execute Package,Field_Execute,Field_Number 0x4a 0dd0 00d8 | | Load_Top At_Offset_0 0dd1 e5fe | | Load 0x2,-0x2 0dd2 027f | | Execute Discrete,Equal 0dd3 6809 |h | Jump_Zero 0xddd 0dd4 4801 |H | Short_Literal 0x1 0dd5 e27e | ~ | Load 0x1,0x7e 0dd6 e008 | | Load 0x0,0x8 0dd7 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 0dd8 0092 1308 | | Action Push_String_Extended,0x1308 ; " ----------------------------------------" 0dda e27e | ~ | Load 0x1,0x7e 0ddb e008 | | Load 0x0,0x8 0ddc 184a | J | Execute Package,Field_Execute,Field_Number 0x4a 0ddd 00c8 | | Action Pop_Auxiliary_Range 0dde 3fd2 |? | Loop_Increasing 0xdb1 0ddf 00ce | | Action Pop_Auxiliary 0de0 4802 |H | Short_Literal 0x2 0de1 e27e | ~ | Load 0x1,0x7e 0de2 e008 | | Load 0x0,0x8 0de3 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 0de4 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0de5 0000 0000 | | .XXX[0x3] 0de7 0000 | | 0de8 ; -------------------------------------------------------------------------------------- 0de8 ; SUBPROGRAM 0de8 ; -------------------------------------------------------------------------------------- 0de8 0dec | | .CONST 0x0dec ; Address of begin 0de9 0004 | | .CONST 0x0004 ; Address of exception handler 0dea 0002 | | .CONST 0x0002 ; Number of locals 0deb INIT_0de8: 0deb 00e2 | | Load_Encached Integer_Cache 0dec BODY_0de8: 0dec 00cf | | Action Mark_Auxiliary 0ded 0007 | | Action Break_Optional 0dee e5ff | | Load 0x2,-0x1 0def 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0df0 0f00 | | Execute_Immediate Equal,0x0 0df1 e5ff | | Load 0x2,-0x1 0df2 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 0df3 0f00 | | Execute_Immediate Equal,0x0 0df4 0278 | x | Execute Discrete,Or 0df5 6801 |h | Jump_Zero 0xdf7 0df6 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0df7 0007 | | Action Break_Optional 0df8 e5ff | | Load 0x2,-0x1 0df9 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0dfa 701f |p | Jump_Nonzero 0xe1a 0dfb e5ff | | Load 0x2,-0x1 0dfc 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0dfd 700e |p | Jump_Nonzero 0xe0c 0dfe 4801 |H | Short_Literal 0x1 0dff e5ff | | Load 0x2,-0x1 0e00 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 0e01 e5ff | | Load 0x2,-0x1 0e02 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 0e03 01cf | | Execute Vector,Slice_Read 0e04 4801 |H | Short_Literal 0x1 0e05 e5ff | | Load 0x2,-0x1 0e06 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0e07 e5ff | | Load 0x2,-0x1 0e08 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0e09 e009 | | Load 0x0,0x9 0e0a 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0e0b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0e0c 4801 |H | Short_Literal 0x1 0e0d e5ff | | Load 0x2,-0x1 0e0e 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 0e0f e5ff | | Load 0x2,-0x1 0e10 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 0e11 01cf | | Execute Vector,Slice_Read 0e12 4800 |H | Short_Literal 0x0 0e13 e5ff | | Load 0x2,-0x1 0e14 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0e15 e5ff | | Load 0x2,-0x1 0e16 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0e17 e009 | | Load 0x0,0x9 0e18 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0e19 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0e1a e5fb | | Load 0x2,-0x5 0e1b 7004 |p | Jump_Nonzero 0xe20 0e1c 0092 1309 | | Action Push_String_Extended,0x1309 ; "[" 0e1e e009 | | Load 0x0,0x9 0e1f 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0e20 4801 |H | Short_Literal 0x1 0e21 e5ff | | Load 0x2,-0x1 0e22 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 0e23 e5ff | | Load 0x2,-0x1 0e24 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 0e25 01cf | | Execute Vector,Slice_Read 0e26 e009 | | Load 0x0,0x9 0e27 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0e28 e5fb | | Load 0x2,-0x5 0e29 7004 |p | Jump_Nonzero 0xe2e 0e2a 0092 130a | | Action Push_String_Extended,0x130a ; "]:" 0e2c e009 | | Load 0x0,0x9 0e2d 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0e2e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0e2f 0000 | | .XXX[0x1] 0e30 ; -------------------------------------------------------------------------------------- 0e30 ; SUBPROGRAM 0e30 ; -------------------------------------------------------------------------------------- 0e30 0e41 | A | .CONST 0x0e41 ; Address of begin 0e31 0fbc | | .CONST 0x0fbc ; Address of exception handler 0e32 0009 | | .CONST 0x0009 ; Number of locals 0e33 INIT_0e30: 0e33 0007 | | Action Break_Optional 0e34 4801 |H | Short_Literal 0x1 0e35 4850 |HP | Short_Literal 0x50 0e36 00e9 | | Load_Encached String_Cache 0e37 0334 | 4 | Declare_Variable Array,With_Constraint 0e38 00e2 | | Load_Encached Integer_Cache 0e39 00e2 | | Load_Encached Integer_Cache 0e3a 00e2 | | Load_Encached Integer_Cache 0e3b 00e2 | | Load_Encached Integer_Cache 0e3c 00e2 | | Load_Encached Integer_Cache 0e3d 00e2 | | Load_Encached Integer_Cache 0e3e 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0e3f 029f 122b | +| Declare_Subprogram INIT_1228,For_Call 0e41 BODY_0e30: 0e41 4800 |H | Short_Literal 0x0 0e42 a603 | | Store_Unchecked 0x3,0x3 0e43 4800 |H | Short_Literal 0x0 0e44 a608 | | Store_Unchecked 0x3,0x8 0e45 e23f | ? | Load 0x1,0x3f 0e46 e5fc | | Load 0x2,-0x4 0e47 0272 | r | Execute Discrete,Minus 0e48 0248 | H | Execute Discrete,Check_In_Integer 0e49 a606 | | Store_Unchecked 0x3,0x6 0e4a e5fd | | Load 0x2,-0x3 0e4b 7009 |p | Jump_Nonzero 0xe55 0e4c e272 | r | Load 0x1,0x72 0e4d 0f01 | | Execute_Immediate Equal,0x1 0e4e 6804 |h | Jump_Zero 0xe53 0e4f 0092 130b | | Action Push_String_Extended,0x130b ; "--deb*2* before menu error in proc menu." 0e51 e009 | | Load 0x0,0x9 0e52 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0e53 e5fb | | Load 0x2,-0x5 0e54 82a8 | | Call 0x1,0xa8 0e55 0007 | | Action Break_Optional 0e56 e229 | ) | Load 0x1,0x29 0e57 701e |p | Jump_Nonzero 0xe76 0e58 e242 | B | Load 0x1,0x42 0e59 e606 | | Load 0x3,0x6 0e5a 0272 | r | Execute Discrete,Minus 0e5b 0248 | H | Execute Discrete,Check_In_Integer 0e5c e5fb | | Load 0x2,-0x5 0e5d 01d5 | | Execute Vector,Field_Reference 0e5e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0e5f 0c01 | | Execute_Immediate Greater_Equal,0x1 0e60 e242 | B | Load 0x1,0x42 0e61 e606 | | Load 0x3,0x6 0e62 0272 | r | Execute Discrete,Minus 0e63 0248 | H | Execute Discrete,Check_In_Integer 0e64 e5fb | | Load 0x2,-0x5 0e65 01d5 | | Execute Vector,Field_Reference 0e66 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 0e67 0c01 | | Execute_Immediate Greater_Equal,0x1 0e68 0279 | y | Execute Discrete,And 0e69 680c |h | Jump_Zero 0xe76 0e6a 4801 |H | Short_Literal 0x1 0e6b 4801 |H | Short_Literal 0x1 0e6c e242 | B | Load 0x1,0x42 0e6d e606 | | Load 0x3,0x6 0e6e 0272 | r | Execute Discrete,Minus 0e6f 0248 | H | Execute Discrete,Check_In_Integer 0e70 e5fb | | Load 0x2,-0x5 0e71 82a9 | | Call 0x1,0xa9 0e72 e228 | ( | Load 0x1,0x28 0e73 7002 |p | Jump_Nonzero 0xe76 0e74 e009 | | Load 0x0,0x9 0e75 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0e76 e240 | @ | Load 0x1,0x40 0e77 e606 | | Load 0x3,0x6 0e78 0272 | r | Execute Discrete,Minus 0e79 0248 | H | Execute Discrete,Check_In_Integer 0e7a e5fb | | Load 0x2,-0x5 0e7b 01d5 | | Execute Vector,Field_Reference 0e7c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0e7d 0c01 | | Execute_Immediate Greater_Equal,0x1 0e7e e240 | @ | Load 0x1,0x40 0e7f e606 | | Load 0x3,0x6 0e80 0272 | r | Execute Discrete,Minus 0e81 0248 | H | Execute Discrete,Check_In_Integer 0e82 e5fb | | Load 0x2,-0x5 0e83 01d5 | | Execute Vector,Field_Reference 0e84 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 0e85 0c01 | | Execute_Immediate Greater_Equal,0x1 0e86 0279 | y | Execute Discrete,And 0e87 680a |h | Jump_Zero 0xe92 0e88 e228 | ( | Load 0x1,0x28 0e89 7008 |p | Jump_Nonzero 0xe92 0e8a 4801 |H | Short_Literal 0x1 0e8b 4801 |H | Short_Literal 0x1 0e8c e240 | @ | Load 0x1,0x40 0e8d e606 | | Load 0x3,0x6 0e8e 0272 | r | Execute Discrete,Minus 0e8f 0248 | H | Execute Discrete,Check_In_Integer 0e90 e5fb | | Load 0x2,-0x5 0e91 82a9 | | Call 0x1,0xa9 0e92 e241 | A | Load 0x1,0x41 0e93 e606 | | Load 0x3,0x6 0e94 0272 | r | Execute Discrete,Minus 0e95 0248 | H | Execute Discrete,Check_In_Integer 0e96 e5fb | | Load 0x2,-0x5 0e97 01d5 | | Execute Vector,Field_Reference 0e98 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 0e99 e243 | C | Load 0x1,0x43 0e9a e606 | | Load 0x3,0x6 0e9b 0272 | r | Execute Discrete,Minus 0e9c 0248 | H | Execute Discrete,Check_In_Integer 0e9d e5fb | | Load 0x2,-0x5 0e9e 01d5 | | Execute Vector,Field_Reference 0e9f 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 0ea0 e241 | A | Load 0x1,0x41 0ea1 e606 | | Load 0x3,0x6 0ea2 0272 | r | Execute Discrete,Minus 0ea3 0248 | H | Execute Discrete,Check_In_Integer 0ea4 e5fb | | Load 0x2,-0x5 0ea5 01d5 | | Execute Vector,Field_Reference 0ea6 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 0ea7 e243 | C | Load 0x1,0x43 0ea8 e606 | | Load 0x3,0x6 0ea9 0272 | r | Execute Discrete,Minus 0eaa 0248 | H | Execute Discrete,Check_In_Integer 0eab e5fb | | Load 0x2,-0x5 0eac 01d5 | | Execute Vector,Field_Reference 0ead 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 0eae e243 | C | Load 0x1,0x43 0eaf e606 | | Load 0x3,0x6 0eb0 0272 | r | Execute Discrete,Minus 0eb1 0248 | H | Execute Discrete,Check_In_Integer 0eb2 e5fb | | Load 0x2,-0x5 0eb3 01d5 | | Execute Vector,Field_Reference 0eb4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0eb5 0c01 | | Execute_Immediate Greater_Equal,0x1 0eb6 e243 | C | Load 0x1,0x43 0eb7 e606 | | Load 0x3,0x6 0eb8 0272 | r | Execute Discrete,Minus 0eb9 0248 | H | Execute Discrete,Check_In_Integer 0eba e5fb | | Load 0x2,-0x5 0ebb 01d5 | | Execute Vector,Field_Reference 0ebc 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 0ebd 0c01 | | Execute_Immediate Greater_Equal,0x1 0ebe 0279 | y | Execute Discrete,And 0ebf 6830 |h0 | Jump_Zero 0xef0 0ec0 e243 | C | Load 0x1,0x43 0ec1 e606 | | Load 0x3,0x6 0ec2 0272 | r | Execute Discrete,Minus 0ec3 0248 | H | Execute Discrete,Check_In_Integer 0ec4 e5fb | | Load 0x2,-0x5 0ec5 01d5 | | Execute Vector,Field_Reference 0ec6 e261 | a | Load 0x1,0x61 0ec7 017d | } | Execute Record,Structure_Write 0ec8 e228 | ( | Load 0x1,0x28 0ec9 7026 |p& | Jump_Nonzero 0xef0 0eca 4801 |H | Short_Literal 0x1 0ecb e261 | a | Load 0x1,0x61 0ecc 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 0ecd e261 | a | Load 0x1,0x61 0ece 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 0ecf 01cf | | Execute Vector,Slice_Read 0ed0 e009 | | Load 0x0,0x9 0ed1 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0ed2 e244 | D | Load 0x1,0x44 0ed3 e606 | | Load 0x3,0x6 0ed4 0272 | r | Execute Discrete,Minus 0ed5 0248 | H | Execute Discrete,Check_In_Integer 0ed6 e5fb | | Load 0x2,-0x5 0ed7 01d5 | | Execute Vector,Field_Reference 0ed8 e261 | a | Load 0x1,0x61 0ed9 017d | } | Execute Record,Structure_Write 0eda 4801 |H | Short_Literal 0x1 0edb e261 | a | Load 0x1,0x61 0edc 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 0edd e243 | C | Load 0x1,0x43 0ede e606 | | Load 0x3,0x6 0edf 0272 | r | Execute Discrete,Minus 0ee0 0248 | H | Execute Discrete,Check_In_Integer 0ee1 e5fb | | Load 0x2,-0x5 0ee2 01d5 | | Execute Vector,Field_Reference 0ee3 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 0ee4 0272 | r | Execute Discrete,Minus 0ee5 0248 | H | Execute Discrete,Check_In_Integer 0ee6 e220 | | Load 0x1,0x20 0ee7 01cf | | Execute Vector,Slice_Read 0ee8 e009 | | Load 0x0,0x9 0ee9 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0eea 0092 130c | | Action Push_String_Extended,0x130c ; "<=" 0eec e009 | | Load 0x0,0x9 0eed 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0eee e009 | | Load 0x0,0x9 0eef 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0ef0 0007 | | Action Break_Optional 0ef1 e22b | + | Load 0x1,0x2b 0ef2 701a |p | Jump_Nonzero 0xf0d 0ef3 e240 | @ | Load 0x1,0x40 0ef4 e606 | | Load 0x3,0x6 0ef5 0272 | r | Execute Discrete,Minus 0ef6 0248 | H | Execute Discrete,Check_In_Integer 0ef7 e5fb | | Load 0x2,-0x5 0ef8 01d5 | | Execute Vector,Field_Reference 0ef9 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0efa 0c01 | | Execute_Immediate Greater_Equal,0x1 0efb e240 | @ | Load 0x1,0x40 0efc e606 | | Load 0x3,0x6 0efd 0272 | r | Execute Discrete,Minus 0efe 0248 | H | Execute Discrete,Check_In_Integer 0eff e5fb | | Load 0x2,-0x5 0f00 01d5 | | Execute Vector,Field_Reference 0f01 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 0f02 0c01 | | Execute_Immediate Greater_Equal,0x1 0f03 0279 | y | Execute Discrete,And 0f04 6808 |h | Jump_Zero 0xf0d 0f05 4801 |H | Short_Literal 0x1 0f06 4801 |H | Short_Literal 0x1 0f07 e240 | @ | Load 0x1,0x40 0f08 e606 | | Load 0x3,0x6 0f09 0272 | r | Execute Discrete,Minus 0f0a 0248 | H | Execute Discrete,Check_In_Integer 0f0b e5fb | | Load 0x2,-0x5 0f0c 82a9 | | Call 0x1,0xa9 0f0d e22c | , | Load 0x1,0x2c 0f0e 702a |p* | Jump_Nonzero 0xf39 0f0f 0092 1309 | | Action Push_String_Extended,0x1309 ; "[" 0f11 4801 |H | Short_Literal 0x1 0f12 e261 | a | Load 0x1,0x61 0f13 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 0f14 e261 | a | Load 0x1,0x61 0f15 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 0f16 01cf | | Execute Vector,Slice_Read 0f17 01cc | | Execute Vector,Catenate 0f18 0092 130a | | Action Push_String_Extended,0x130a ; "]:" 0f1a 01cc | | Execute Vector,Catenate 0f1b e009 | | Load 0x0,0x9 0f1c 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0f1d e240 | @ | Load 0x1,0x40 0f1e e606 | | Load 0x3,0x6 0f1f 0272 | r | Execute Discrete,Minus 0f20 0248 | H | Execute Discrete,Check_In_Integer 0f21 e5fb | | Load 0x2,-0x5 0f22 01d5 | | Execute Vector,Field_Reference 0f23 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 0f24 e243 | C | Load 0x1,0x43 0f25 e606 | | Load 0x3,0x6 0f26 0272 | r | Execute Discrete,Minus 0f27 0248 | H | Execute Discrete,Check_In_Integer 0f28 e5fb | | Load 0x2,-0x5 0f29 01d5 | | Execute Vector,Field_Reference 0f2a 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 0f2b 0273 | s | Execute Discrete,Plus 0f2c 0248 | H | Execute Discrete,Check_In_Integer 0f2d e244 | D | Load 0x1,0x44 0f2e e606 | | Load 0x3,0x6 0f2f 0272 | r | Execute Discrete,Minus 0f30 0248 | H | Execute Discrete,Check_In_Integer 0f31 e5fb | | Load 0x2,-0x5 0f32 01d5 | | Execute Vector,Field_Reference 0f33 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 0f34 0273 | s | Execute Discrete,Plus 0f35 0c4c | L | Execute_Immediate Greater_Equal,0x4c 0f36 6802 |h | Jump_Zero 0xf39 0f37 e009 | | Load 0x0,0x9 0f38 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0f39 e5f9 | | Load 0x2,-0x7 0f3a 01dd | | Execute Vector,First 0f3b e5f9 | | Load 0x2,-0x7 0f3c 01dd | | Execute Vector,First 0f3d e5f9 | | Load 0x2,-0x7 0f3e 01cf | | Execute Vector,Slice_Read 0f3f 0092 130d | | Action Push_String_Extended,0x130d ; "#" 0f41 01df | | Execute Vector,Equal 0f42 6808 |h | Jump_Zero 0xf4b 0f43 e603 | | Load 0x3,0x3 0f44 e602 | | Load 0x3,0x2 0f45 e5fb | | Load 0x2,-0x5 0f46 e5fc | | Load 0x2,-0x4 0f47 82ad | | Call 0x1,0xad 0f48 00d2 | | Pop_Control Pop_Count_2 0f49 c603 | | Store 0x3,0x3 0f4a 7807 |x | Jump 0xf52 0f4b e603 | | Load 0x3,0x3 0f4c e602 | | Load 0x3,0x2 0f4d e5fb | | Load 0x2,-0x5 0f4e e5fc | | Load 0x2,-0x4 0f4f 82ac | | Call 0x1,0xac 0f50 00d2 | | Pop_Control Pop_Count_2 0f51 c603 | | Store 0x3,0x3 0f52 0092 130e | | Action Push_String_Extended,0x130e ; " " 0f54 e5f9 | | Load 0x2,-0x7 0f55 01dd | | Execute Vector,First 0f56 e5f9 | | Load 0x2,-0x7 0f57 01dd | | Execute Vector,First 0f58 e5f9 | | Load 0x2,-0x7 0f59 01ce | | Execute Vector,Slice_Write 0f5a e272 | r | Load 0x1,0x72 0f5b 0f01 | | Execute_Immediate Equal,0x1 0f5c 6804 |h | Jump_Zero 0xf61 0f5d 0092 130f | | Action Push_String_Extended,0x130f ; "--deb*31--" 0f5f e009 | | Load 0x0,0x9 0f60 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0f61 e603 | | Load 0x3,0x3 0f62 0f01 | | Execute_Immediate Equal,0x1 0f63 4801 |H | Short_Literal 0x1 0f64 4801 |H | Short_Literal 0x1 0f65 e602 | | Load 0x3,0x2 0f66 01cf | | Execute Vector,Slice_Read 0f67 0092 1310 | | Action Push_String_Extended,0x1310 ; "," 0f69 01df | | Execute Vector,Equal 0f6a 4801 |H | Short_Literal 0x1 0f6b 4801 |H | Short_Literal 0x1 0f6c e602 | | Load 0x3,0x2 0f6d 01cf | | Execute Vector,Slice_Read 0f6e 0092 1311 | | Action Push_String_Extended,0x1311 ; "." 0f70 01df | | Execute Vector,Equal 0f71 4801 |H | Short_Literal 0x1 0f72 4801 |H | Short_Literal 0x1 0f73 e602 | | Load 0x3,0x2 0f74 01cf | | Execute Vector,Slice_Read 0f75 0092 1312 | | Action Push_String_Extended,0x1312 ; "/" 0f77 01df | | Execute Vector,Equal 0f78 4801 |H | Short_Literal 0x1 0f79 4801 |H | Short_Literal 0x1 0f7a e602 | | Load 0x3,0x2 0f7b 01cf | | Execute Vector,Slice_Read 0f7c 0092 1313 | | Action Push_String_Extended,0x1313 ; "^" 0f7e 01df | | Execute Vector,Equal 0f7f 0278 | x | Execute Discrete,Or 0f80 0278 | x | Execute Discrete,Or 0f81 0278 | x | Execute Discrete,Or 0f82 0279 | y | Execute Discrete,And 0f83 680a |h | Jump_Zero 0xf8e 0f84 4801 |H | Short_Literal 0x1 0f85 4801 |H | Short_Literal 0x1 0f86 e602 | | Load 0x3,0x2 0f87 01cf | | Execute Vector,Slice_Read 0f88 e5f9 | | Load 0x2,-0x7 0f89 01dd | | Execute Vector,First 0f8a e5f9 | | Load 0x2,-0x7 0f8b 01dd | | Execute Vector,First 0f8c e5f9 | | Load 0x2,-0x7 0f8d 01ce | | Execute Vector,Slice_Write 0f8e e5ff | | Load 0x2,-0x1 0f8f 0f01 | | Execute_Immediate Equal,0x1 0f90 6802 |h | Jump_Zero 0xf93 0f91 00cc | | Action Pop_Block 0f92 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0f93 4800 |H | Short_Literal 0x0 0f94 a5fa | | Store_Unchecked 0x2,-0x6 0f95 00cf | | Action Mark_Auxiliary 0f96 4828 |H( | Short_Literal 0x28 0f97 4801 |H | Short_Literal 0x1 0f98 0007 | | Action Break_Optional 0f99 8609 | | Call 0x3,0x9 0f9a 00c8 | | Action Pop_Auxiliary_Range 0f9b 3ffd |? | Loop_Increasing 0xf99 0f9c 00ce | | Action Pop_Auxiliary 0f9d e5fa | | Load 0x2,-0x6 0f9e 700d |p | Jump_Nonzero 0xfac 0f9f 00e4 | | Load_Encached Positive_Cache 0fa0 e009 | | Load 0x0,0x9 0fa1 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0fa2 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0fa3 4801 |H | Short_Literal 0x1 0fa4 e603 | | Load 0x3,0x3 0fa5 e602 | | Load 0x3,0x2 0fa6 01cf | | Execute Vector,Slice_Read 0fa7 e009 | | Load 0x0,0x9 0fa8 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0fa9 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0faa c5fa | | Store 0x2,-0x6 0fab c607 | | Store 0x3,0x7 0fac e5fa | | Load 0x2,-0x6 0fad 0d01 | | Execute_Immediate Less,0x1 0fae 6802 |h | Jump_Zero 0xfb1 0faf e00d | | Load 0x0,0xd 0fb0 0257 | W | Execute Discrete,Raise 0fb1 e5fa | | Load 0x2,-0x6 0fb2 e5fc | | Load 0x2,-0x4 0fb3 e5fb | | Load 0x2,-0x5 0fb4 01d5 | | Execute Vector,Field_Reference 0fb5 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0fb6 027d | } | Execute Discrete,Greater 0fb7 6802 |h | Jump_Zero 0xfba 0fb8 e00d | | Load 0x0,0xd 0fb9 0257 | W | Execute Discrete,Raise 0fba 00cc | | Action Pop_Block 0fbb 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0fbc TRAP_0e30: 0fbc 0007 | | Action Break_Optional 0fbd 4801 |H | Short_Literal 0x1 0fbe 4801 |H | Short_Literal 0x1 0fbf e602 | | Load 0x3,0x2 0fc0 01cf | | Execute Vector,Slice_Read 0fc1 0092 1314 | | Action Push_String_Extended,0x1314 ; "?" 0fc3 01de | | Execute Vector,Not_Equal 0fc4 680a |h | Jump_Zero 0xfcf 0fc5 4801 |H | Short_Literal 0x1 0fc6 4801 |H | Short_Literal 0x1 0fc7 e245 | E | Load 0x1,0x45 0fc8 e606 | | Load 0x3,0x6 0fc9 0272 | r | Execute Discrete,Minus 0fca 0248 | H | Execute Discrete,Check_In_Integer 0fcb e5fb | | Load 0x2,-0x5 0fcc 82a9 | | Call 0x1,0xa9 0fcd e009 | | Load 0x0,0x9 0fce 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0fcf e5ff | | Load 0x2,-0x1 0fd0 7006 |p | Jump_Nonzero 0xfd7 0fd1 e252 | R | Load 0x1,0x52 0fd2 4801 |H | Short_Literal 0x1 0fd3 4801 |H | Short_Literal 0x1 0fd4 4801 |H | Short_Literal 0x1 0fd5 e5fb | | Load 0x2,-0x5 0fd6 82a6 | | Call 0x1,0xa6 0fd7 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0fd8 ; -------------------------------------------------------------------------------------- 0fd8 ; SUBPROGRAM 0fd8 ; -------------------------------------------------------------------------------------- 0fd8 0ff2 | | .CONST 0x0ff2 ; Address of begin 0fd9 10ca | | .CONST 0x10ca ; Address of exception handler 0fda 0006 | | .CONST 0x0006 ; Number of locals 0fdb INIT_0fd8: 0fdb 0007 | | Action Break_Optional 0fdc 00e2 | | Load_Encached Integer_Cache 0fdd 00e2 | | Load_Encached Integer_Cache 0fde 00e2 | | Load_Encached Integer_Cache 0fdf 00e2 | | Load_Encached Integer_Cache 0fe0 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0fe1 4801 |H | Short_Literal 0x1 0fe2 4850 |HP | Short_Literal 0x50 0fe3 00e9 | | Load_Encached String_Cache 0fe4 0334 | 4 | Declare_Variable Array,With_Constraint 0fe5 4801 |H | Short_Literal 0x1 0fe6 4850 |HP | Short_Literal 0x50 0fe7 00e9 | | Load_Encached String_Cache 0fe8 0334 | 4 | Declare_Variable Array,With_Constraint 0fe9 4850 |HP | Short_Literal 0x50 0fea 4801 |H | Short_Literal 0x1 0feb 4820 |H | Short_Literal 0x20 0fec e609 | | Load 0x3,0x9 0fed e607 | | Load 0x3,0x7 0fee 01d6 | | Execute Vector,Field_Write 0fef 3ffb |? | Loop_Increasing 0xfeb 0ff0 e606 | | Load 0x3,0x6 0ff1 01d4 | | Execute Vector,Structure_Write 0ff2 BODY_0fd8: 0ff2 e23f | ? | Load 0x1,0x3f 0ff3 e5ff | | Load 0x2,-0x1 0ff4 0272 | r | Execute Discrete,Minus 0ff5 0248 | H | Execute Discrete,Check_In_Integer 0ff6 a604 | | Store_Unchecked 0x3,0x4 0ff7 e244 | D | Load 0x1,0x44 0ff8 e604 | | Load 0x3,0x4 0ff9 0272 | r | Execute Discrete,Minus 0ffa 0248 | H | Execute Discrete,Check_In_Integer 0ffb e5fe | | Load 0x2,-0x2 0ffc 01d5 | | Execute Vector,Field_Reference 0ffd 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 0ffe a602 | | Store_Unchecked 0x3,0x2 0fff e243 | C | Load 0x1,0x43 1000 e604 | | Load 0x3,0x4 1001 0272 | r | Execute Discrete,Minus 1002 0248 | H | Execute Discrete,Check_In_Integer 1003 e5fe | | Load 0x2,-0x2 1004 01d5 | | Execute Vector,Field_Reference 1005 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 1006 a603 | | Store_Unchecked 0x3,0x3 1007 e605 | | Load 0x3,0x5 1008 e606 | | Load 0x3,0x6 1009 4801 |H | Short_Literal 0x1 100a e009 | | Load 0x0,0x9 100b 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 100c 00d1 | | Pop_Control Pop_Count_1 100d c605 | | Store 0x3,0x5 100e e605 | | Load 0x3,0x5 100f a5fc | | Store_Unchecked 0x2,-0x4 1010 00d8 | | Load_Top At_Offset_0 1011 e5fd | | Load 0x2,-0x3 1012 01d4 | | Execute Vector,Structure_Write 1013 e5fc | | Load 0x2,-0x4 1014 0aff | | Execute_Immediate Plus,-0x1 1015 0248 | H | Execute Discrete,Check_In_Integer 1016 a5fc | | Store_Unchecked 0x2,-0x4 1017 e272 | r | Load 0x1,0x72 1018 0f01 | | Execute_Immediate Equal,0x1 1019 6816 |h | Jump_Zero 0x1030 101a 0092 1315 | | Action Push_String_Extended,0x1315 ; "deb*7: input=>" 101c 4801 |H | Short_Literal 0x1 101d e5fc | | Load 0x2,-0x4 101e e5fd | | Load 0x2,-0x3 101f 01cf | | Execute Vector,Slice_Read 1020 01cc | | Execute Vector,Catenate 1021 0092 1316 | | Action Push_String_Extended,0x1316 ; "<end, size =" 1023 01cc | | Execute Vector,Catenate 1024 e009 | | Load 0x0,0x9 1025 181d | | Execute Package,Field_Execute,Field_Number 0x1d 1026 e5fc | | Load 0x2,-0x4 1027 e009 | | Load 0x0,0x9 1028 181e | | Execute Package,Field_Execute,Field_Number 0x1e 1029 0092 1317 | | Action Push_String_Extended,0x1317 ; ", and size max=" 102b e009 | | Load 0x0,0x9 102c 181d | | Execute Package,Field_Execute,Field_Number 0x1d 102d e602 | | Load 0x3,0x2 102e e009 | | Load 0x0,0x9 102f 181e | | Execute Package,Field_Execute,Field_Number 0x1e 1030 e5fc | | Load 0x2,-0x4 1031 0f01 | | Execute_Immediate Equal,0x1 1032 e5fd | | Load 0x2,-0x3 1033 01dd | | Execute Vector,First 1034 e5fd | | Load 0x2,-0x3 1035 01dd | | Execute Vector,First 1036 e5fd | | Load 0x2,-0x3 1037 01cf | | Execute Vector,Slice_Read 1038 0092 1314 | | Action Push_String_Extended,0x1314 ; "?" 103a 01df | | Execute Vector,Equal 103b 0279 | y | Execute Discrete,And 103c 6802 |h | Jump_Zero 0x103f 103d e00e | | Load 0x0,0xe 103e 0257 | W | Execute Discrete,Raise 103f e5fc | | Load 0x2,-0x4 1040 e602 | | Load 0x3,0x2 1041 027d | } | Execute Discrete,Greater 1042 6804 |h | Jump_Zero 0x1047 1043 e602 | | Load 0x3,0x2 1044 a5fc | | Store_Unchecked 0x2,-0x4 1045 e00e | | Load 0x0,0xe 1046 0257 | W | Execute Discrete,Raise 1047 0007 | | Action Break_Optional 1048 e5fc | | Load 0x2,-0x4 1049 0f01 | | Execute_Immediate Equal,0x1 104a e5fd | | Load 0x2,-0x3 104b 01dd | | Execute Vector,First 104c e5fd | | Load 0x2,-0x3 104d 01dd | | Execute Vector,First 104e e5fd | | Load 0x2,-0x3 104f 01cf | | Execute Vector,Slice_Read 1050 0092 1310 | | Action Push_String_Extended,0x1310 ; "," 1052 01df | | Execute Vector,Equal 1053 e5fd | | Load 0x2,-0x3 1054 01dd | | Execute Vector,First 1055 e5fd | | Load 0x2,-0x3 1056 01dd | | Execute Vector,First 1057 e5fd | | Load 0x2,-0x3 1058 01cf | | Execute Vector,Slice_Read 1059 0092 1311 | | Action Push_String_Extended,0x1311 ; "." 105b 01df | | Execute Vector,Equal 105c e5fd | | Load 0x2,-0x3 105d 01dd | | Execute Vector,First 105e e5fd | | Load 0x2,-0x3 105f 01dd | | Execute Vector,First 1060 e5fd | | Load 0x2,-0x3 1061 01cf | | Execute Vector,Slice_Read 1062 0092 1312 | | Action Push_String_Extended,0x1312 ; "/" 1064 01df | | Execute Vector,Equal 1065 e5fd | | Load 0x2,-0x3 1066 01dd | | Execute Vector,First 1067 e5fd | | Load 0x2,-0x3 1068 01dd | | Execute Vector,First 1069 e5fd | | Load 0x2,-0x3 106a 01cf | | Execute Vector,Slice_Read 106b 0092 1313 | | Action Push_String_Extended,0x1313 ; "^" 106d 01df | | Execute Vector,Equal 106e 0278 | x | Execute Discrete,Or 106f 0278 | x | Execute Discrete,Or 1070 0278 | x | Execute Discrete,Or 1071 0279 | y | Execute Discrete,And 1072 6813 |h | Jump_Zero 0x1086 1073 e241 | A | Load 0x1,0x41 1074 e604 | | Load 0x3,0x4 1075 0272 | r | Execute Discrete,Minus 1076 0248 | H | Execute Discrete,Check_In_Integer 1077 e5fe | | Load 0x2,-0x2 1078 01d5 | | Execute Vector,Field_Reference 1079 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 107a e244 | D | Load 0x1,0x44 107b e604 | | Load 0x3,0x4 107c 0272 | r | Execute Discrete,Minus 107d 0248 | H | Execute Discrete,Check_In_Integer 107e e5fe | | Load 0x2,-0x2 107f 01d5 | | Execute Vector,Field_Reference 1080 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 1081 027d | } | Execute Discrete,Greater 1082 6802 |h | Jump_Zero 0x1085 1083 e00e | | Load 0x0,0xe 1084 0257 | W | Execute Discrete,Raise 1085 4501 |E | Exit_Suprogram New_Top_Offset 0x1 1086 e243 | C | Load 0x1,0x43 1087 e604 | | Load 0x3,0x4 1088 0272 | r | Execute Discrete,Minus 1089 0248 | H | Execute Discrete,Check_In_Integer 108a e5fe | | Load 0x2,-0x2 108b 01d5 | | Execute Vector,Field_Reference 108c 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 108d 0c01 | | Execute_Immediate Greater_Equal,0x1 108e e5fc | | Load 0x2,-0x4 108f 0f00 | | Execute_Immediate Equal,0x0 1090 0279 | y | Execute Discrete,And 1091 6827 |h' | Jump_Zero 0x10b9 1092 4801 |H | Short_Literal 0x1 1093 e5fd | | Load 0x2,-0x3 1094 01db | | Execute Vector,Length 1095 e220 | | Load 0x1,0x20 1096 01cf | | Execute Vector,Slice_Read 1097 4801 |H | Short_Literal 0x1 1098 e5fd | | Load 0x2,-0x3 1099 01db | | Execute Vector,Length 109a e5fd | | Load 0x2,-0x3 109b 01ce | | Execute Vector,Slice_Write 109c 4801 |H | Short_Literal 0x1 109d e603 | | Load 0x3,0x3 109e e243 | C | Load 0x1,0x43 109f e604 | | Load 0x3,0x4 10a0 0272 | r | Execute Discrete,Minus 10a1 0248 | H | Execute Discrete,Check_In_Integer 10a2 e5fe | | Load 0x2,-0x2 10a3 01d5 | | Execute Vector,Field_Reference 10a4 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 10a5 01cf | | Execute Vector,Slice_Read 10a6 4801 |H | Short_Literal 0x1 10a7 e603 | | Load 0x3,0x3 10a8 e5fd | | Load 0x2,-0x3 10a9 01ce | | Execute Vector,Slice_Write 10aa e603 | | Load 0x3,0x3 10ab a5fc | | Store_Unchecked 0x2,-0x4 10ac e5fc | | Load 0x2,-0x4 10ad e244 | D | Load 0x1,0x44 10ae e604 | | Load 0x3,0x4 10af 0272 | r | Execute Discrete,Minus 10b0 0248 | H | Execute Discrete,Check_In_Integer 10b1 e5fe | | Load 0x2,-0x2 10b2 01d5 | | Execute Vector,Field_Reference 10b3 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 10b4 027d | } | Execute Discrete,Greater 10b5 6802 |h | Jump_Zero 0x10b8 10b6 e00e | | Load 0x0,0xe 10b7 0257 | W | Execute Discrete,Raise 10b8 4501 |E | Exit_Suprogram New_Top_Offset 0x1 10b9 e5fc | | Load 0x2,-0x4 10ba e241 | A | Load 0x1,0x41 10bb e604 | | Load 0x3,0x4 10bc 0272 | r | Execute Discrete,Minus 10bd 0248 | H | Execute Discrete,Check_In_Integer 10be e5fe | | Load 0x2,-0x2 10bf 01d5 | | Execute Vector,Field_Reference 10c0 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 10c1 e5fd | | Load 0x2,-0x3 10c2 e241 | A | Load 0x1,0x41 10c3 e604 | | Load 0x3,0x4 10c4 0272 | r | Execute Discrete,Minus 10c5 0248 | H | Execute Discrete,Check_In_Integer 10c6 e5fe | | Load 0x2,-0x2 10c7 01d5 | | Execute Vector,Field_Reference 10c8 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 10c9 4501 |E | Exit_Suprogram New_Top_Offset 0x1 10ca TRAP_0fd8: 10ca 0007 | | Action Break_Optional 10cb 00d8 | | Load_Top At_Offset_0 10cc 0101 | | Execute Exception,Reraise 10cd 0000 0000 | | .XXX[0x3] 10cf 0000 | | 10d0 ; -------------------------------------------------------------------------------------- 10d0 ; SUBPROGRAM 10d0 ; -------------------------------------------------------------------------------------- 10d0 10e6 | | .CONST 0x10e6 ; Address of begin 10d1 1218 | | .CONST 0x1218 ; Address of exception handler 10d2 0006 | | .CONST 0x0006 ; Number of locals 10d3 INIT_10d0: 10d3 4801 |H | Short_Literal 0x1 10d4 4802 |H | Short_Literal 0x2 10d5 00e9 | | Load_Encached String_Cache 10d6 0334 | 4 | Declare_Variable Array,With_Constraint 10d7 4801 |H | Short_Literal 0x1 10d8 4803 |H | Short_Literal 0x3 10d9 00e9 | | Load_Encached String_Cache 10da 0334 | 4 | Declare_Variable Array,With_Constraint 10db 4801 |H | Short_Literal 0x1 10dc 4805 |H | Short_Literal 0x5 10dd 00e9 | | Load_Encached String_Cache 10de 0334 | 4 | Declare_Variable Array,With_Constraint 10df 4801 |H | Short_Literal 0x1 10e0 4850 |HP | Short_Literal 0x50 10e1 00e9 | | Load_Encached String_Cache 10e2 0334 | 4 | Declare_Variable Array,With_Constraint 10e3 00e2 | | Load_Encached Integer_Cache 10e4 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 10e5 0007 | | Action Break_Optional 10e6 BODY_10d0: 10e6 e5fe | | Load 0x2,-0x2 10e7 4be7 |K | Short_Literal 0x3e7 10e8 027e | ~ | Execute Discrete,Not_Equal 10e9 6803 |h | Jump_Zero 0x10ed 10ea e5fe | | Load 0x2,-0x2 10eb e5f6 | | Load 0x2,-0xa 10ec 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 10ed e5fd | | Load 0x2,-0x3 10ee 4be7 |K | Short_Literal 0x3e7 10ef 027e | ~ | Execute Discrete,Not_Equal 10f0 6803 |h | Jump_Zero 0x10f4 10f1 e5fd | | Load 0x2,-0x3 10f2 e5f6 | | Load 0x2,-0xa 10f3 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 10f4 e5fc | | Load 0x2,-0x4 10f5 0e02 | | Execute_Immediate Not_Equal,0x2 10f6 6803 |h | Jump_Zero 0x10fa 10f7 e5fc | | Load 0x2,-0x4 10f8 e5f6 | | Load 0x2,-0xa 10f9 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 10fa e5fb | | Load 0x2,-0x5 10fb 0e02 | | Execute_Immediate Not_Equal,0x2 10fc 6803 |h | Jump_Zero 0x1100 10fd e5fb | | Load 0x2,-0x5 10fe e5f6 | | Load 0x2,-0xa 10ff 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 1100 e5fa | | Load 0x2,-0x6 1101 4be7 |K | Short_Literal 0x3e7 1102 027e | ~ | Execute Discrete,Not_Equal 1103 6803 |h | Jump_Zero 0x1107 1104 e5fa | | Load 0x2,-0x6 1105 e5f6 | | Load 0x2,-0xa 1106 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 1107 e5f9 | | Load 0x2,-0x7 1108 0e02 | | Execute_Immediate Not_Equal,0x2 1109 6803 |h | Jump_Zero 0x110d 110a e5f9 | | Load 0x2,-0x7 110b e5f6 | | Load 0x2,-0xa 110c 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 110d 0007 | | Action Break_Optional 110e 4801 |H | Short_Literal 0x1 110f e5ff | | Load 0x2,-0x1 1110 01db | | Execute Vector,Length 1111 e5ff | | Load 0x2,-0x1 1112 01cf | | Execute Vector,Slice_Read 1113 4801 |H | Short_Literal 0x1 1114 4850 |HP | Short_Literal 0x50 1115 e5ff | | Load 0x2,-0x1 1116 01db | | Execute Vector,Length 1117 0272 | r | Execute Discrete,Minus 1118 0248 | H | Execute Discrete,Check_In_Integer 1119 e220 | | Load 0x1,0x20 111a 01cf | | Execute Vector,Slice_Read 111b 01cc | | Execute Vector,Catenate 111c 4801 |H | Short_Literal 0x1 111d 4850 |HP | Short_Literal 0x50 111e e605 | | Load 0x3,0x5 111f 01ce | | Execute Vector,Slice_Write 1120 e5ff | | Load 0x2,-0x1 1121 01db | | Execute Vector,Length 1122 a606 | | Store_Unchecked 0x3,0x6 1123 e5f7 | | Load 0x2,-0x9 1124 0f01 | | Execute_Immediate Equal,0x1 1125 4801 |H | Short_Literal 0x1 1126 4809 |H | Short_Literal 0x9 1127 e605 | | Load 0x3,0x5 1128 01cf | | Execute Vector,Slice_Read 1129 0092 1318 | | Action Push_String_Extended,0x1318 ; "\x5cdefault\x5c" 112b 01df | | Execute Vector,Equal 112c 0279 | y | Execute Discrete,And 112d 6801 |h | Jump_Zero 0x112f 112e 78de |x | Jump 0x120d 112f e5f7 | | Load 0x2,-0x9 1130 0f01 | | Execute_Immediate Equal,0x1 1131 4801 |H | Short_Literal 0x1 1132 4809 |H | Short_Literal 0x9 1133 e605 | | Load 0x3,0x5 1134 01cf | | Execute Vector,Slice_Read 1135 0092 1318 | | Action Push_String_Extended,0x1318 ; "\x5cdefault\x5c" 1137 01de | | Execute Vector,Not_Equal 1138 0279 | y | Execute Discrete,And 1139 680d |h | Jump_Zero 0x1147 113a 4801 |H | Short_Literal 0x1 113b 4850 |HP | Short_Literal 0x50 113c e605 | | Load 0x3,0x5 113d 01cf | | Execute Vector,Slice_Read 113e 4801 |H | Short_Literal 0x1 113f 4850 |HP | Short_Literal 0x50 1140 e5f6 | | Load 0x2,-0xa 1141 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 1142 01ce | | Execute Vector,Slice_Write 1143 00d8 | | Load_Top At_Offset_0 1144 e5f6 | | Load 0x2,-0xa 1145 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 1146 78c6 |x | Jump 0x120d 1147 4801 |H | Short_Literal 0x1 1148 4809 |H | Short_Literal 0x9 1149 e605 | | Load 0x3,0x5 114a 01cf | | Execute Vector,Slice_Read 114b 0092 1318 | | Action Push_String_Extended,0x1318 ; "\x5cdefault\x5c" 114d 01df | | Execute Vector,Equal 114e e5fa | | Load 0x2,-0x6 114f 0f00 | | Execute_Immediate Equal,0x0 1150 0279 | y | Execute Discrete,And 1151 6801 |h | Jump_Zero 0x1153 1152 78ba |x | Jump 0x120d 1153 4801 |H | Short_Literal 0x1 1154 4809 |H | Short_Literal 0x9 1155 e605 | | Load 0x3,0x5 1156 01cf | | Execute Vector,Slice_Read 1157 0092 1318 | | Action Push_String_Extended,0x1318 ; "\x5cdefault\x5c" 1159 01df | | Execute Vector,Equal 115a e5fa | | Load 0x2,-0x6 115b 4be7 |K | Short_Literal 0x3e7 115c 027f | | Execute Discrete,Equal 115d 0279 | y | Execute Discrete,And 115e 6801 |h | Jump_Zero 0x1160 115f 78ad |x | Jump 0x120d 1160 e5fa | | Load 0x2,-0x6 1161 700d |p | Jump_Nonzero 0x116f 1162 4801 |H | Short_Literal 0x1 1163 4850 |HP | Short_Literal 0x50 1164 e605 | | Load 0x3,0x5 1165 01cf | | Execute Vector,Slice_Read 1166 4801 |H | Short_Literal 0x1 1167 4850 |HP | Short_Literal 0x50 1168 e5f6 | | Load 0x2,-0xa 1169 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 116a 01ce | | Execute Vector,Slice_Write 116b 00d8 | | Load_Top At_Offset_0 116c e5f6 | | Load 0x2,-0xa 116d 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 116e 789e |x | Jump 0x120d 116f e5fa | | Load 0x2,-0x6 1170 0c64 | d | Execute_Immediate Greater_Equal,0x64 1171 680d |h | Jump_Zero 0x117f 1172 4801 |H | Short_Literal 0x1 1173 4850 |HP | Short_Literal 0x50 1174 e605 | | Load 0x3,0x5 1175 01cf | | Execute Vector,Slice_Read 1176 4801 |H | Short_Literal 0x1 1177 4850 |HP | Short_Literal 0x50 1178 e5f6 | | Load 0x2,-0xa 1179 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 117a 01ce | | Execute Vector,Slice_Write 117b 00d8 | | Load_Top At_Offset_0 117c e5f6 | | Load 0x2,-0xa 117d 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 117e 788e |x | Jump 0x120d 117f e5fa | | Load 0x2,-0x6 1180 4f9d |O | Short_Literal -0x63 1181 027c | | | Execute Discrete,Less 1182 680d |h | Jump_Zero 0x1190 1183 4801 |H | Short_Literal 0x1 1184 4850 |HP | Short_Literal 0x50 1185 e605 | | Load 0x3,0x5 1186 01cf | | Execute Vector,Slice_Read 1187 4801 |H | Short_Literal 0x1 1188 4850 |HP | Short_Literal 0x50 1189 e5f6 | | Load 0x2,-0xa 118a 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 118b 01ce | | Execute Vector,Slice_Write 118c 00d8 | | Load_Top At_Offset_0 118d e5f6 | | Load 0x2,-0xa 118e 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 118f 787d |x} | Jump 0x120d 1190 4801 |H | Short_Literal 0x1 1191 4809 |H | Short_Literal 0x9 1192 e605 | | Load 0x3,0x5 1193 01cf | | Execute Vector,Slice_Read 1194 0092 1318 | | Action Push_String_Extended,0x1318 ; "\x5cdefault\x5c" 1196 01df | | Execute Vector,Equal 1197 6838 |h8 | Jump_Zero 0x11d0 1198 0092 1307 | | Action Push_String_Extended,0x1307 ; " " 119a 4801 |H | Short_Literal 0x1 119b 4802 |H | Short_Literal 0x2 119c e602 | | Load 0x3,0x2 119d 01ce | | Execute Vector,Slice_Write 119e 0092 1319 | | Action Push_String_Extended,0x1319 ; ". " 11a0 4801 |H | Short_Literal 0x1 11a1 4803 |H | Short_Literal 0x3 11a2 e603 | | Load 0x3,0x3 11a3 01ce | | Execute Vector,Slice_Write 11a4 0092 131a | | Action Push_String_Extended,0x131a ; " " 11a6 4801 |H | Short_Literal 0x1 11a7 4805 |H | Short_Literal 0x5 11a8 e604 | | Load 0x3,0x4 11a9 01ce | | Execute Vector,Slice_Write 11aa e602 | | Load 0x3,0x2 11ab 4801 |H | Short_Literal 0x1 11ac 4802 |H | Short_Literal 0x2 11ad e607 | | Load 0x3,0x7 11ae 035b | [ | Declare_Type Array,Constrained 11af 00d0 | | Action Swap_Control 11b0 01cd | | Execute Vector,Slice_Reference 11b1 480a |H | Short_Literal 0xa 11b2 e5f6 | | Load 0x2,-0xa 11b3 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 11b4 0274 | t | Execute Discrete,Absolute_Value 11b5 e009 | | Load 0x0,0x9 11b6 1b14 | | Execute Package,Field_Read,Field_Number 0x14 11b7 1817 | | Execute Package,Field_Execute,Field_Number 0x17 11b8 00d1 | | Pop_Control Pop_Count_1 11b9 4801 |H | Short_Literal 0x1 11ba 4802 |H | Short_Literal 0x2 11bb e602 | | Load 0x3,0x2 11bc 01cf | | Execute Vector,Slice_Read 11bd 4801 |H | Short_Literal 0x1 11be 4803 |H | Short_Literal 0x3 11bf e603 | | Load 0x3,0x3 11c0 01cf | | Execute Vector,Slice_Read 11c1 01cc | | Execute Vector,Catenate 11c2 4801 |H | Short_Literal 0x1 11c3 4805 |H | Short_Literal 0x5 11c4 e604 | | Load 0x3,0x4 11c5 01ce | | Execute Vector,Slice_Write 11c6 4801 |H | Short_Literal 0x1 11c7 4804 |H | Short_Literal 0x4 11c8 e604 | | Load 0x3,0x4 11c9 01cf | | Execute Vector,Slice_Read 11ca 4801 |H | Short_Literal 0x1 11cb 4804 |H | Short_Literal 0x4 11cc e5f6 | | Load 0x2,-0xa 11cd 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 11ce 01ce | | Execute Vector,Slice_Write 11cf 783d |x= | Jump 0x120d 11d0 0092 1307 | | Action Push_String_Extended,0x1307 ; " " 11d2 4801 |H | Short_Literal 0x1 11d3 4802 |H | Short_Literal 0x2 11d4 e602 | | Load 0x3,0x2 11d5 01ce | | Execute Vector,Slice_Write 11d6 0092 1319 | | Action Push_String_Extended,0x1319 ; ". " 11d8 4801 |H | Short_Literal 0x1 11d9 4803 |H | Short_Literal 0x3 11da e603 | | Load 0x3,0x3 11db 01ce | | Execute Vector,Slice_Write 11dc 0092 131a | | Action Push_String_Extended,0x131a ; " " 11de 4801 |H | Short_Literal 0x1 11df 4805 |H | Short_Literal 0x5 11e0 e604 | | Load 0x3,0x4 11e1 01ce | | Execute Vector,Slice_Write 11e2 e602 | | Load 0x3,0x2 11e3 4801 |H | Short_Literal 0x1 11e4 4802 |H | Short_Literal 0x2 11e5 e607 | | Load 0x3,0x7 11e6 035b | [ | Declare_Type Array,Constrained 11e7 00d0 | | Action Swap_Control 11e8 01cd | | Execute Vector,Slice_Reference 11e9 480a |H | Short_Literal 0xa 11ea e5f6 | | Load 0x2,-0xa 11eb 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 11ec 0274 | t | Execute Discrete,Absolute_Value 11ed e009 | | Load 0x0,0x9 11ee 1b14 | | Execute Package,Field_Read,Field_Number 0x14 11ef 1817 | | Execute Package,Field_Execute,Field_Number 0x17 11f0 00d1 | | Pop_Control Pop_Count_1 11f1 4801 |H | Short_Literal 0x1 11f2 4802 |H | Short_Literal 0x2 11f3 e602 | | Load 0x3,0x2 11f4 01cf | | Execute Vector,Slice_Read 11f5 4801 |H | Short_Literal 0x1 11f6 4803 |H | Short_Literal 0x3 11f7 e603 | | Load 0x3,0x3 11f8 01cf | | Execute Vector,Slice_Read 11f9 01cc | | Execute Vector,Catenate 11fa 4801 |H | Short_Literal 0x1 11fb 4805 |H | Short_Literal 0x5 11fc e604 | | Load 0x3,0x4 11fd 01ce | | Execute Vector,Slice_Write 11fe 4801 |H | Short_Literal 0x1 11ff 4804 |H | Short_Literal 0x4 1200 e604 | | Load 0x3,0x4 1201 01cf | | Execute Vector,Slice_Read 1202 4801 |H | Short_Literal 0x1 1203 484c |HL | Short_Literal 0x4c 1204 e605 | | Load 0x3,0x5 1205 01cf | | Execute Vector,Slice_Read 1206 01cc | | Execute Vector,Catenate 1207 e5f6 | | Load 0x2,-0xa 1208 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 1209 00d8 | | Load_Top At_Offset_0 120a 0a04 | | Execute_Immediate Plus,0x4 120b e5f6 | | Load 0x2,-0xa 120c 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 120d e5f8 | | Load 0x2,-0x8 120e 4be7 |K | Short_Literal 0x3e7 120f 027e | ~ | Execute Discrete,Not_Equal 1210 6806 |h | Jump_Zero 0x1217 1211 e5f8 | | Load 0x2,-0x8 1212 0d51 | Q | Execute_Immediate Less,0x51 1213 6803 |h | Jump_Zero 0x1217 1214 e5f8 | | Load 0x2,-0x8 1215 e5f6 | | Load 0x2,-0xa 1216 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 1217 4501 |E | Exit_Suprogram New_Top_Offset 0x1 1218 TRAP_10d0: 1218 0007 | | Action Break_Optional 1219 4800 |H | Short_Literal 0x0 121a 4801 |H | Short_Literal 0x1 121b 0092 131b | | Action Push_String_Extended,0x131b ; "Exception occurred in ap_load_param." 121d e009 | | Load 0x0,0x9 121e 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 121f e00f | | Load 0x0,0xf 1220 0257 | W | Execute Discrete,Raise 1221 0000 0000 | | .BLANK 0000[0x7] 1228 ; -------------------------------------------------------------------------------------- 1228 ; SUBPROGRAM 1228 ; -------------------------------------------------------------------------------------- 1228 122d | - | .CONST 0x122d ; Address of begin 1229 12cd | | .CONST 0x12cd ; Address of exception handler 122a 0002 | | .CONST 0x0002 ; Number of locals 122b INIT_1228: 122b 00e1 | | Load_Encached Boolean_Cache 122c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 122d BODY_1228: 122d 4800 |H | Short_Literal 0x0 122e a802 | | Store_Unchecked 0x4,0x2 122f e272 | r | Load 0x1,0x72 1230 0f01 | | Execute_Immediate Equal,0x1 1231 6831 |h1 | Jump_Zero 0x1263 1232 0092 131c | | Action Push_String_Extended,0x131c ; "**Debugging: Keyword loop=> " 1234 e009 | | Load 0x0,0x9 1235 181d | | Execute Package,Field_Execute,Field_Number 0x1d 1236 e60c | | Load 0x3,0xc 1237 e009 | | Load 0x0,0x9 1238 181e | | Execute Package,Field_Execute,Field_Number 0x1e 1239 e009 | | Load 0x0,0x9 123a 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 123b 0092 131d | | Action Push_String_Extended,0x131d ; " Search mask=>" 123d 4801 |H | Short_Literal 0x1 123e e241 | A | Load 0x1,0x41 123f e5fb | | Load 0x2,-0x5 1240 01d5 | | Execute Vector,Field_Reference 1241 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 1242 e241 | A | Load 0x1,0x41 1243 e5fb | | Load 0x2,-0x5 1244 01d5 | | Execute Vector,Field_Reference 1245 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 1246 01cf | | Execute Vector,Slice_Read 1247 01cc | | Execute Vector,Catenate 1248 0092 130c | | Action Push_String_Extended,0x130c ; "<=" 124a 01cc | | Execute Vector,Catenate 124b e009 | | Load 0x0,0x9 124c 181d | | Execute Package,Field_Execute,Field_Number 0x1d 124d e009 | | Load 0x0,0x9 124e 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 124f 0092 131e | | Action Push_String_Extended,0x131e ; " Value mask=>" 1251 4801 |H | Short_Literal 0x1 1252 e60c | | Load 0x3,0xc 1253 e5fb | | Load 0x2,-0x5 1254 01d5 | | Execute Vector,Field_Reference 1255 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 1256 e60c | | Load 0x3,0xc 1257 e5fb | | Load 0x2,-0x5 1258 01d5 | | Execute Vector,Field_Reference 1259 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 125a 01cf | | Execute Vector,Slice_Read 125b 01cc | | Execute Vector,Catenate 125c 0092 131f | | Action Push_String_Extended,0x131f ; "<=(& +4,-4" 125e 01cc | | Execute Vector,Catenate 125f e009 | | Load 0x0,0x9 1260 181d | | Execute Package,Field_Execute,Field_Number 0x1d 1261 e009 | | Load 0x0,0x9 1262 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 1263 e60c | | Load 0x3,0xc 1264 e5fb | | Load 0x2,-0x5 1265 01d5 | | Execute Vector,Field_Reference 1266 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 1267 0c05 | | Execute_Immediate Greater_Equal,0x5 1268 e60c | | Load 0x3,0xc 1269 e5fb | | Load 0x2,-0x5 126a 01d5 | | Execute Vector,Field_Reference 126b 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 126c 0c01 | | Execute_Immediate Greater_Equal,0x1 126d 0279 | y | Execute Discrete,And 126e 685d |h] | Jump_Zero 0x12cc 126f 00e1 | | Load_Encached Boolean_Cache 1270 4801 |H | Short_Literal 0x1 1271 4fff |O | Short_Literal -0x1 1272 4805 |H | Short_Literal 0x5 1273 e60c | | Load 0x3,0xc 1274 e5fb | | Load 0x2,-0x5 1275 01d5 | | Execute Vector,Field_Reference 1276 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 1277 0afc | | Execute_Immediate Plus,-0x4 1278 0248 | H | Execute Discrete,Check_In_Integer 1279 e60c | | Load 0x3,0xc 127a e5fb | | Load 0x2,-0x5 127b 01d5 | | Execute Vector,Field_Reference 127c 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 127d 01cf | | Execute Vector,Slice_Read 127e 4fff |O | Short_Literal -0x1 127f 4801 |H | Short_Literal 0x1 1280 e241 | A | Load 0x1,0x41 1281 e5fb | | Load 0x2,-0x5 1282 01d5 | | Execute Vector,Field_Reference 1283 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 1284 e241 | A | Load 0x1,0x41 1285 e5fb | | Load 0x2,-0x5 1286 01d5 | | Execute Vector,Field_Reference 1287 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 1288 01cf | | Execute Vector,Slice_Read 1289 e009 | | Load 0x0,0x9 128a 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 128b c802 | | Store 0x4,0x2 128c 00d8 | | Load_Top At_Offset_0 128d 0f01 | | Execute_Immediate Equal,0x1 128e 681c |h | Jump_Zero 0x12ab 128f e60c | | Load 0x3,0xc 1290 e5fb | | Load 0x2,-0x5 1291 01d5 | | Execute Vector,Field_Reference 1292 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 1293 0c01 | | Execute_Immediate Greater_Equal,0x1 1294 6815 |h | Jump_Zero 0x12aa 1295 e60c | | Load 0x3,0xc 1296 e5fb | | Load 0x2,-0x5 1297 01d5 | | Execute Vector,Field_Reference 1298 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 1299 a5fa | | Store_Unchecked 0x2,-0x6 129a e272 | r | Load 0x1,0x72 129b 0f01 | | Execute_Immediate Equal,0x1 129c 680a |h | Jump_Zero 0x12a7 129d 0092 1320 | | Action Push_String_Extended,0x1320 ; "Debug: Got match, substituting command no=>" 129f e009 | | Load 0x0,0x9 12a0 181d | | Execute Package,Field_Execute,Field_Number 0x1d 12a1 e60c | | Load 0x3,0xc 12a2 e5fb | | Load 0x2,-0x5 12a3 01d5 | | Execute Vector,Field_Reference 12a4 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 12a5 e009 | | Load 0x0,0x9 12a6 181e | | Execute Package,Field_Execute,Field_Number 0x1e 12a7 00cc | | Action Pop_Block 12a8 00d2 | | Pop_Control Pop_Count_2 12a9 7cf2 || | Jump 0xf9c 12aa 4501 |E | Exit_Suprogram New_Top_Offset 0x1 12ab 4801 |H | Short_Literal 0x1 12ac 4804 |H | Short_Literal 0x4 12ad e241 | A | Load 0x1,0x41 12ae e5fb | | Load 0x2,-0x5 12af 01d5 | | Execute Vector,Field_Reference 12b0 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 12b1 01cf | | Execute Vector,Slice_Read 12b2 0092 1321 | !| Action Push_String_Extended,0x1321 ; "Exit" 12b4 01df | | Execute Vector,Equal 12b5 4801 |H | Short_Literal 0x1 12b6 4804 |H | Short_Literal 0x4 12b7 e241 | A | Load 0x1,0x41 12b8 e5fb | | Load 0x2,-0x5 12b9 01d5 | | Execute Vector,Field_Reference 12ba 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 12bb 01cf | | Execute Vector,Slice_Read 12bc 0092 1322 | "| Action Push_String_Extended,0x1322 ; "exit" 12be 01df | | Execute Vector,Equal 12bf 0278 | x | Execute Discrete,Or 12c0 680b |h | Jump_Zero 0x12cc 12c1 0092 1323 | #| Action Push_String_Extended,0x1323 ; "Quit" 12c3 4801 |H | Short_Literal 0x1 12c4 4804 |H | Short_Literal 0x4 12c5 e241 | A | Load 0x1,0x41 12c6 e5fb | | Load 0x2,-0x5 12c7 01d7 | | Execute Vector,Field_Read 12c8 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 12c9 01ce | | Execute Vector,Slice_Write 12ca 481e |H | Short_Literal 0x1e 12cb a5fa | | Store_Unchecked 0x2,-0x6 12cc 4501 |E | Exit_Suprogram New_Top_Offset 0x1 12cd TRAP_1228: 12cd 0007 | | Action Break_Optional 12ce 0092 1324 | $| Action Push_String_Extended,0x1324 ; "Error => Common_base.process_menu Got exception in keyword match handling." 12d0 e009 | | Load 0x0,0x9 12d1 181d | | Execute Package,Field_Execute,Field_Number 0x1d 12d2 4501 |E | Exit_Suprogram New_Top_Offset 0x1 12d3 ; -------------------------------------------------------------------------------------- 12d3 ; STRING TABLE 12d3 ; -------------------------------------------------------------------------------------- 12d3 00a6 | | .STRTAB 0x00a6->0x1326 ; "ON" 12d4 00a6 | | .STRTAB 0x00a6->0x1327 ; "OFF" 12d5 00a7 | | .STRTAB 0x00a7->0x1328 ; "DEFAULT" 12d6 00ac | | .STRTAB 0x00ac->0x132c ; "UNUSED" 12d7 00b0 | | .STRTAB 0x00b0->0x132f ; "VALID" 12d8 00b3 | | .STRTAB 0x00b3->0x1331 ; "DELETED" 12d9 00b8 | | .STRTAB 0x00b8->0x1335 ; "UNUSED" 12da 00bc | | .STRTAB 0x00bc->0x1338 ; "LOCKED" 12db 00c0 | | .STRTAB 0x00c0->0x133b ; "UNLOCKED" 12dc 00c6 | | .STRTAB 0x00c6->0x133f ; "Constraint error in base." 12dd 00dd | | .STRTAB 0x00dd->0x134b ; "Numeric error in base." 12de 00f1 | | .STRTAB 0x00f1->0x1356 ; "Program error in base." 12df 0105 | | .STRTAB 0x0105->0x1361 ; "Storage error in base." 12e0 0119 | | .STRTAB 0x0119->0x136c ; "Tasking error in base." 12e1 012d | - | .STRTAB 0x012d->0x1377 ; "Other Program error in base." 12e2 0147 | G | .STRTAB 0x0147->0x1385 ; "xx" 12e3 0147 | G | .STRTAB 0x0147->0x1386 ; "blank" 12e4 014a | J | .STRTAB 0x014a->0x1389 ; "ok " 12e5 014d | M | .STRTAB 0x014d->0x138b ; "cr er" 12e6 0150 | P | .STRTAB 0x0150->0x138e ; "op er" 12e7 0153 | S | .STRTAB 0x0153->0x1390 ; "cl er" 12e8 0156 | V | .STRTAB 0x0156->0x1393 ; "wr er" 12e9 0159 | Y | .STRTAB 0x0159->0x1395 ; "Exception in ap_write_master, invalid index/file err.: " 12ea 018e | | .STRTAB 0x018e->0x13b1 ; "dl er" 12eb 0191 | | .STRTAB 0x0191->0x13b3 ; "Exception in ap_delete_record, invalid index/file err.: " 12ec 01c7 | | .STRTAB 0x01c7->0x13cf ; "Exception in ap_get_last_record.." 12ed 01e6 | | .STRTAB 0x01e6->0x13e0 ; "error" 12ee 01e9 | | .STRTAB 0x01e9->0x13e2 ; "rdcer" 12ef 01ec | | .STRTAB 0x01ec->0x13e5 ; "[Concurrent database update in progress, will delay 2 seconds & retry.]" 12f0 0231 | 1 | .STRTAB 0x0231->0x1408 ; "[Error - Retried database update open 5 times, and file still locked.]" 12f1 0275 | u | .STRTAB 0x0275->0x142b ; "Exception in ap_clear_and_display_screen." 12f2 029c | | .STRTAB 0x029c->0x1440 ; "Exception in ap_print_screen" 12f3 02b6 | | .STRTAB 0x02b6->0x144e ; "Exception in ap_display_menu_error_message" 12f4 02de | | .STRTAB 0x02de->0x1463 ; "Exception in ap_display_field." 12f5 02fa | | .STRTAB 0x02fa->0x1472 ; "Exception in ap_display_item." 12f6 0315 | | .STRTAB 0x0315->0x1480 ; "Exception in ap_write_rec_params, invalid index/file err.: " 12f7 034e | N | .STRTAB 0x034e->0x149e ; "Exception in ap_read_rec_params, invalid index/file err.: " 12f8 0386 | | .STRTAB 0x0386->0x14bb ; "1.Before read in ap_read_master" 12f9 03a3 | | .STRTAB 0x03a3->0x14ca ; "5.After update keys in ap_read_master. end." 12fa 03cc | | .STRTAB 0x03cc->0x14e0 ; "rd er" 12fb 03cf | | .STRTAB 0x03cf->0x14e2 ; "6.After got except,end in ap_read_master" 12fc 03f5 | | .STRTAB 0x03f5->0x14f6 ; "1 " 12fd 03f5 | | .STRTAB 0x03f5->0x14f7 ; " Command: (or ?):" 12fe 0405 | | .STRTAB 0x0405->0x1500 ; "Command:" 12ff 040b | | .STRTAB 0x040b->0x1504 ; "Invalid Menu Command. A '?' re-displays the menu choices." 1300 0444 | D | .STRTAB 0x0444->0x1522 ; "Please enter a keyword or numeric command or use default and promote." 1301 0487 | | .STRTAB 0x0487->0x1544 ; "[Or '?' for new menu, Or use standard R1000 window & editing.]" 1302 04c3 | | .STRTAB 0x04c3->0x1563 ; "[Or for record editing: Up= ^ Top= , Select= . Exit= / ]" 1303 0504 | | .STRTAB 0x0504->0x1585 ; "Exception occurred in ap_init_screen_array_defaults." 1304 0536 | 6 | .STRTAB 0x0536->0x159f ; "Exception occurred in ap_screen." 1305 0554 | T | .STRTAB 0x0554->0x15af ; "Exception in ap_display_random_screen." 1306 0578 | x | .STRTAB 0x0578->0x15c2 ; "Exception in ap_display_screen." 1307 0595 | | .STRTAB 0x0595->0x15d1 ; " " 1308 0595 | | .STRTAB 0x0595->0x15d2 ; " ----------------------------------------" 1309 05bd | | .STRTAB 0x05bd->0x15e7 ; "[" 130a 05bc | | .STRTAB 0x05bc->0x15e8 ; "]:" 130b 05bc | | .STRTAB 0x05bc->0x15e9 ; "--deb*2* before menu error in proc menu." 130c 05e2 | | .STRTAB 0x05e2->0x15fd ; "<=" 130d 05e2 | | .STRTAB 0x05e2->0x15fe ; "#" 130e 05e1 | | .STRTAB 0x05e1->0x15fe ; " " 130f 05e0 | | .STRTAB 0x05e0->0x15ff ; "--deb*31--" 1310 05e8 | | .STRTAB 0x05e8->0x1604 ; "," 1311 05e7 | | .STRTAB 0x05e7->0x1604 ; "." 1312 05e6 | | .STRTAB 0x05e6->0x1605 ; "/" 1313 05e5 | | .STRTAB 0x05e5->0x1605 ; "^" 1314 05e4 | | .STRTAB 0x05e4->0x1606 ; "?" 1315 05e3 | | .STRTAB 0x05e3->0x1606 ; "deb*7: input=>" 1316 05ef | | .STRTAB 0x05ef->0x160d ; "<end, size =" 1317 05f9 | | .STRTAB 0x05f9->0x1613 ; ", and size max=" 1318 0606 | | .STRTAB 0x0606->0x161b ; "\x5cdefault\x5c" 1319 060d | | .STRTAB 0x060d->0x161f ; ". " 131a 060e | | .STRTAB 0x060e->0x1621 ; " " 131b 0611 | | .STRTAB 0x0611->0x1623 ; "Exception occurred in ap_load_param." 131c 0633 | 3 | .STRTAB 0x0633->0x1635 ; "**Debugging: Keyword loop=> " 131d 064e | N | .STRTAB 0x064e->0x1644 ; " Search mask=>" 131e 065c | \ | .STRTAB 0x065c->0x164c ; " Value mask=>" 131f 066a | j | .STRTAB 0x066a->0x1654 ; "<=(& +4,-4" 1320 0672 | r | .STRTAB 0x0672->0x1659 ; "Debug: Got match, substituting command no=>" 1321 069b | | .STRTAB 0x069b->0x166e ; "Exit" 1322 069d | | .STRTAB 0x069d->0x1670 ; "exit" 1323 069f | | .STRTAB 0x069f->0x1672 ; "Quit" 1324 06a1 | | .STRTAB 0x06a1->0x1674 ; "Error => Common_base.process_menu Got exception in keyword match handling." 1325 06e9 | | .STREND 0x06e9->0x1699 1326 4f4e 4f46 |ONOF| .STRTAB_STRINGS 169a 0000 0000 | | .BLANK 0000[0x6] 16a0 ; -------------------------------------------------------------------------------------- 16a0 ; Debug Table 16a0 ; -------------------------------------------------------------------------------------- 16a0 0004 0000 | | .DEBUG4 0x0004,0x0000,0x1204,0x0000,0x0001,0x0000 16a6 0000 0000 | | .BLANK 0000[0x15a]