|
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: 4096 (0x1000) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_5850da
└─⟦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 0750 | P | .CONST 0x0750 ; 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 8004 | | .CONST 0x8004 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0186 | | .CONST 0x0186 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0040 | @ | .CONST 0x0040 ; Number of locals 000b INIT_0008: 000b e002 | | Load 0x0,0x2 000c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 000d 0129 | ) | Execute Any,Make_Visible 000e e002 | | Load 0x0,0x2 000f 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0010 0129 | ) | Execute Any,Make_Visible 0011 029a 01db | | Declare_Subprogram INIT_01d8,For_Outer_Call,Visible,Unelaborated 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 029a 0203 | | Declare_Subprogram INIT_0200,For_Outer_Call,Visible,Unelaborated 0035 c22d | - | Store 0x1,0x2d 0036 029a 0233 | 3| Declare_Subprogram INIT_0230,For_Outer_Call,Visible,Unelaborated 0038 c210 | | Store 0x1,0x10 0039 029a 023b | ;| Declare_Subprogram INIT_0238,For_Outer_Call,Visible,Unelaborated 003b c211 | | Store 0x1,0x11 003c 4801 |H | Short_Literal 0x1 003d 4801 |H | Short_Literal 0x1 003e 00e9 | | Load_Encached String_Cache 003f 0334 | 4 | Declare_Variable Array,With_Constraint 0040 480d |H | Short_Literal 0xd 0041 4801 |H | Short_Literal 0x1 0042 00da | | Load_Top At_Offset_2 0043 01d6 | | Execute Vector,Field_Write 0044 0129 | ) | Execute Any,Make_Visible 0045 c212 | | Store 0x1,0x12 0046 4801 |H | Short_Literal 0x1 0047 4801 |H | Short_Literal 0x1 0048 00e9 | | Load_Encached String_Cache 0049 0334 | 4 | Declare_Variable Array,With_Constraint 004a 480a |H | Short_Literal 0xa 004b 4801 |H | Short_Literal 0x1 004c 00da | | Load_Top At_Offset_2 004d 01d6 | | Execute Vector,Field_Write 004e 0129 | ) | Execute Any,Make_Visible 004f c213 | | Store 0x1,0x13 0050 4801 |H | Short_Literal 0x1 0051 4801 |H | Short_Literal 0x1 0052 00e9 | | Load_Encached String_Cache 0053 0334 | 4 | Declare_Variable Array,With_Constraint 0054 481b |H | Short_Literal 0x1b 0055 4801 |H | Short_Literal 0x1 0056 00da | | Load_Top At_Offset_2 0057 01d6 | | Execute Vector,Field_Write 0058 0129 | ) | Execute Any,Make_Visible 0059 c214 | | Store 0x1,0x14 005a 029a 0243 | C| Declare_Subprogram INIT_0240,For_Outer_Call,Visible,Unelaborated 005c c215 | | Store 0x1,0x15 005d 029a 0273 | s| Declare_Subprogram INIT_0270,For_Outer_Call,Visible,Unelaborated 005f c216 | | Store 0x1,0x16 0060 029a 0283 | | Declare_Subprogram INIT_0280,For_Outer_Call,Visible,Unelaborated 0062 c217 | | Store 0x1,0x17 0063 4800 |H | Short_Literal 0x0 0064 48ff |H | Short_Literal 0xff 0065 00e1 | | Load_Encached Boolean_Cache 0066 02a0 | | Declare_Subprogram Null_Subprogram 0067 4801 |H | Short_Literal 0x1 0068 035e | ^ | Declare_Type Array,Defined,Visible 0069 c218 | | Store 0x1,0x18 006a e218 | | Load 0x1,0x18 006b 0336 | 6 | Declare_Variable Array,Visible 006c 00d8 | | Load_Top At_Offset_0 006d 0335 | 5 | Declare_Variable Array,Duplicate 006e 00cd | | Action Spare6_Action 006f 48ff |H | Short_Literal 0xff 0070 4800 |H | Short_Literal 0x0 0071 4800 |H | Short_Literal 0x0 0072 00d9 | | Load_Top At_Offset_1 0073 e231 | 1 | Load 0x1,0x31 0074 01d6 | | Execute Vector,Field_Write 0075 3ffb |? | Loop_Increasing 0x71 0076 00d9 | | Load_Top At_Offset_1 0077 01d4 | | Execute Vector,Structure_Write 0078 c219 | | Store 0x1,0x19 0079 e218 | | Load 0x1,0x18 007a 0336 | 6 | Declare_Variable Array,Visible 007b 00d8 | | Load_Top At_Offset_0 007c 0335 | 5 | Declare_Variable Array,Duplicate 007d 00cd | | Action Spare6_Action 007e 48ff |H | Short_Literal 0xff 007f 4800 |H | Short_Literal 0x0 0080 4801 |H | Short_Literal 0x1 0081 00d9 | | Load_Top At_Offset_1 0082 e231 | 1 | Load 0x1,0x31 0083 01d6 | | Execute Vector,Field_Write 0084 3ffb |? | Loop_Increasing 0x80 0085 00d9 | | Load_Top At_Offset_1 0086 01d4 | | Execute Vector,Structure_Write 0087 c21a | | Store 0x1,0x1a 0088 4800 |H | Short_Literal 0x0 0089 48ff |H | Short_Literal 0xff 008a e20d | | Load 0x1,0xd 008b 02a0 | | Declare_Subprogram Null_Subprogram 008c 4801 |H | Short_Literal 0x1 008d 035e | ^ | Declare_Type Array,Defined,Visible 008e c21b | | Store 0x1,0x1b 008f 029a 0293 | | Declare_Subprogram INIT_0290,For_Outer_Call,Visible,Unelaborated 0091 c21c | | Store 0x1,0x1c 0092 029a 029b | | Declare_Subprogram INIT_0298,For_Outer_Call,Visible,Unelaborated 0094 c21d | | Store 0x1,0x1d 0095 029a 02a3 | | Declare_Subprogram INIT_02a0,For_Outer_Call,Visible,Unelaborated 0097 c21e | | Store 0x1,0x1e 0098 029a 02ab | | Declare_Subprogram INIT_02a8,For_Outer_Call,Visible,Unelaborated 009a c21f | | Store 0x1,0x1f 009b 029a 02b3 | | Declare_Subprogram INIT_02b0,For_Outer_Call,Visible,Unelaborated 009d c220 | | Store 0x1,0x20 009e e218 | | Load 0x1,0x18 009f e21b | | Load 0x1,0x1b 00a0 029f 0653 | S| Declare_Subprogram INIT_0650,For_Call 00a2 4802 |H | Short_Literal 0x2 00a3 032e | . | Declare_Type Record,Defined,Visible 00a4 c221 | ! | Store 0x1,0x21 00a5 029a 02cb | | Declare_Subprogram INIT_02c8,For_Outer_Call,Visible,Unelaborated 00a7 c222 | " | Store 0x1,0x22 00a8 029a 02d3 | | Declare_Subprogram INIT_02d0,For_Outer_Call,Visible,Unelaborated 00aa c22e | . | Store 0x1,0x2e 00ab 029a 030b | | Declare_Subprogram INIT_0308,For_Outer_Call,Visible,Unelaborated 00ad c22f | / | Store 0x1,0x2f 00ae e003 | | Load 0x0,0x3 00af 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00b0 e221 | ! | Load 0x1,0x21 00b1 00e7 | | Load_Encached Duration_Cache 00b2 00e7 | | Load_Encached Duration_Cache 00b3 029f 0673 | s| Declare_Subprogram INIT_0670,For_Call 00b5 4804 |H | Short_Literal 0x4 00b6 032e | . | Declare_Type Record,Defined,Visible 00b7 c223 | # | Store 0x1,0x23 00b8 e003 | | Load 0x0,0x3 00b9 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00ba e221 | ! | Load 0x1,0x21 00bb 00e7 | | Load_Encached Duration_Cache 00bc 029f 069b | | Declare_Subprogram INIT_0698,For_Call 00be 4803 |H | Short_Literal 0x3 00bf 032e | . | Declare_Type Record,Defined,Visible 00c0 c224 | $ | Store 0x1,0x24 00c1 e001 | | Load 0x0,0x1 00c2 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00c3 e221 | ! | Load 0x1,0x21 00c4 00e1 | | Load_Encached Boolean_Cache 00c5 00e1 | | Load_Encached Boolean_Cache 00c6 029f 06bb | | Declare_Subprogram INIT_06b8,For_Call 00c8 4804 |H | Short_Literal 0x4 00c9 032e | . | Declare_Type Record,Defined,Visible 00ca c225 | % | Store 0x1,0x25 00cb 029a 0343 | C| Declare_Subprogram INIT_0340,For_Outer_Call,Visible,Unelaborated 00cd c22b | + | Store 0x1,0x2b 00ce e223 | # | Load 0x1,0x23 00cf e224 | $ | Load 0x1,0x24 00d0 e225 | % | Load 0x1,0x25 00d1 029f 06e3 | | Declare_Subprogram INIT_06e0,For_Call 00d3 4803 |H | Short_Literal 0x3 00d4 032e | . | Declare_Type Record,Defined,Visible 00d5 c226 | & | Store 0x1,0x26 00d6 0092 06fb | | Action Push_String_Extended,0x6fb ; "~echo, ~crlf, edit=none" 00d8 0129 | ) | Execute Any,Make_Visible 00d9 c227 | ' | Store 0x1,0x27 00da 029a 036b | k| Declare_Subprogram INIT_0368,For_Outer_Call,Visible,Unelaborated 00dc c228 | ( | Store 0x1,0x28 00dd 029a 0393 | | Declare_Subprogram INIT_0390,For_Outer_Call,Visible,Unelaborated 00df c229 | ) | Store 0x1,0x29 00e0 4808 |H | Short_Literal 0x8 00e1 e004 | | Load 0x0,0x4 00e2 02a0 | | Declare_Subprogram Null_Subprogram 00e3 038d | | Declare_Type Package,Defined,Visible,Not_Elaborated 00e4 00b6 | | Action Make_Scope 00e5 e005 | | Load 0x0,0x5 00e6 e006 | | Load 0x0,0x6 00e7 e007 | | Load 0x0,0x7 00e8 e008 | | Load 0x0,0x8 00e9 e009 | | Load 0x0,0x9 00ea e00a | | Load 0x0,0xa 00eb e00b | | Load 0x0,0xb 00ec 4808 |H | Short_Literal 0x8 00ed e230 | 0 | Load 0x1,0x30 00ee 020e | | Execute Module,Augment_Imports 00ef c22c | , | Store 0x1,0x2c 00f0 00bf | | Action Accept_Activation 00f1 4801 |H | Short_Literal 0x1 00f2 4800 |H | Short_Literal 0x0 00f3 e20e | | Load 0x1,0xe 00f4 035b | [ | Declare_Type Array,Constrained 00f5 0337 | 7 | Declare_Variable Array 00f6 00d8 | | Load_Top At_Offset_0 00f7 0335 | 5 | Declare_Variable Array,Duplicate 00f8 00cd | | Action Spare6_Action 00f9 00d9 | | Load_Top At_Offset_1 00fa 01d4 | | Execute Vector,Structure_Write 00fb 00e4 | | Load_Encached Positive_Cache 00fc 00e3 | | Load_Encached Natural_Cache 00fd 02a0 | | Declare_Subprogram Null_Subprogram 00fe 4802 |H | Short_Literal 0x2 00ff 032d | - | Declare_Type Record,Defined 0100 00e4 | | Load_Encached Positive_Cache 0101 00e4 | | Load_Encached Positive_Cache 0102 00e1 | | Load_Encached Boolean_Cache 0103 00e3 | | Load_Encached Natural_Cache 0104 00e7 | | Load_Encached Duration_Cache 0105 02a0 | | Declare_Subprogram Null_Subprogram 0106 4805 |H | Short_Literal 0x5 0107 032d | - | Declare_Type Record,Defined 0108 00d8 | | Load_Top At_Offset_0 0109 0322 | " | Declare_Variable Record 010a 4801 |H | Short_Literal 0x1 010b 00d9 | | Load_Top At_Offset_1 010c 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 010d 4801 |H | Short_Literal 0x1 010e 00d9 | | Load_Top At_Offset_1 010f 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0110 4800 |H | Short_Literal 0x0 0111 00d9 | | Load_Top At_Offset_1 0112 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0113 4800 |H | Short_Literal 0x0 0114 00d9 | | Load_Top At_Offset_1 0115 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0116 4800 |H | Short_Literal 0x0 0117 00d9 | | Load_Top At_Offset_1 0118 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0119 00d9 | | Load_Top At_Offset_1 011a 00da | | Load_Top At_Offset_2 011b 029f 03a3 | | Declare_Subprogram INIT_03a0,For_Call 011d 4802 |H | Short_Literal 0x2 011e 032d | - | Declare_Type Record,Defined 011f e21b | | Load 0x1,0x1b 0120 0337 | 7 | Declare_Variable Array 0121 e21b | | Load 0x1,0x1b 0122 0337 | 7 | Declare_Variable Array 0123 e21b | | Load 0x1,0x1b 0124 0337 | 7 | Declare_Variable Array 0125 e21b | | Load 0x1,0x1b 0126 0337 | 7 | Declare_Variable Array 0127 e221 | ! | Load 0x1,0x21 0128 0322 | " | Declare_Variable Record 0129 e219 | | Load 0x1,0x19 012a e221 | ! | Load 0x1,0x21 012b 3000 |0 | Execute Record,Field_Type,Field_Number 0x0 012c 0119 | | Execute Any,Check_In_Formal_Type 012d 00d9 | | Load_Top At_Offset_1 012e 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 012f e221 | ! | Load 0x1,0x21 0130 3001 |0 | Execute Record,Field_Type,Field_Number 0x1 0131 0337 | 7 | Declare_Variable Array 0132 48ff |H | Short_Literal 0xff 0133 4800 |H | Short_Literal 0x0 0134 4800 |H | Short_Literal 0x0 0135 00d9 | | Load_Top At_Offset_1 0136 e23a | : | Load 0x1,0x3a 0137 01d6 | | Execute Vector,Field_Write 0138 3ffb |? | Loop_Increasing 0x134 0139 e221 | ! | Load 0x1,0x21 013a 3001 |0 | Execute Record,Field_Type,Field_Number 0x1 013b 0119 | | Execute Any,Check_In_Formal_Type 013c 00d9 | | Load_Top At_Offset_1 013d 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 013e 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 013f 00c7 | | Action Elaborate_Subprogram 0140 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 0141 00c7 | | Action Elaborate_Subprogram 0142 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 0143 00c7 | | Action Elaborate_Subprogram 0144 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 0145 00c7 | | Action Elaborate_Subprogram 0146 1d22 | " | Execute_Immediate Reference_Lex_1,0x22 0147 00c7 | | Action Elaborate_Subprogram 0148 1d20 | | Execute_Immediate Reference_Lex_1,0x20 0149 00c7 | | Action Elaborate_Subprogram 014a 029d 03bb | | Declare_Subprogram INIT_03b8,For_Outer_Call 014c 029d 03db | | Declare_Subprogram INIT_03d8,For_Outer_Call 014e 1d0f | | Execute_Immediate Reference_Lex_1,0xf 014f 00c7 | | Action Elaborate_Subprogram 0150 1d2d | - | Execute_Immediate Reference_Lex_1,0x2d 0151 00c7 | | Action Elaborate_Subprogram 0152 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0153 00c7 | | Action Elaborate_Subprogram 0154 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0155 00c7 | | Action Elaborate_Subprogram 0156 029d 03eb | | Declare_Subprogram INIT_03e8,For_Outer_Call 0158 029d 03fb | | Declare_Subprogram INIT_03f8,For_Outer_Call 015a 1d15 | | Execute_Immediate Reference_Lex_1,0x15 015b 00c7 | | Action Elaborate_Subprogram 015c 1d2e | . | Execute_Immediate Reference_Lex_1,0x2e 015d 00c7 | | Action Elaborate_Subprogram 015e 1d2f | / | Execute_Immediate Reference_Lex_1,0x2f 015f 00c7 | | Action Elaborate_Subprogram 0160 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b 0161 00c7 | | Action Elaborate_Subprogram 0162 029d 040b | | Declare_Subprogram INIT_0408,For_Outer_Call 0164 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28 0165 00c7 | | Action Elaborate_Subprogram 0166 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29 0167 00c7 | | Action Elaborate_Subprogram 0168 029d 041b | | Declare_Subprogram INIT_0418,For_Outer_Call 016a 029d 044b | K| Declare_Subprogram INIT_0448,For_Outer_Call 016c e00c | | Load 0x0,0xc 016d 1d3b | ; | Execute_Immediate Reference_Lex_1,0x3b 016e e231 | 1 | Load 0x1,0x31 016f e00d | | Load 0x0,0xd 0170 e003 | | Load 0x0,0x3 0171 e234 | 4 | Load 0x1,0x34 0172 e00f | | Load 0x0,0xf 0173 e014 | | Load 0x0,0x14 0174 e016 | | Load 0x0,0x16 0175 e232 | 2 | Load 0x1,0x32 0176 e230 | 0 | Load 0x1,0x30 0177 e00e | | Load 0x0,0xe 0178 e002 | | Load 0x0,0x2 0179 e017 | | Load 0x0,0x17 017a 1d40 | @ | Execute_Immediate Reference_Lex_1,0x40 017b 1d3e | > | Execute_Immediate Reference_Lex_1,0x3e 017c 4810 |H | Short_Literal 0x10 017d e22c | , | Load 0x1,0x2c 017e 020e | | Execute Module,Augment_Imports 017f e22c | , | Load 0x1,0x2c 0180 020d | | Execute Module,Elaborate 0181 0007 | | Action Break_Optional 0182 1d16 | | Execute_Immediate Reference_Lex_1,0x16 0183 00c7 | | Action Elaborate_Subprogram 0184 1d17 | | Execute_Immediate Reference_Lex_1,0x17 0185 00c7 | | Action Elaborate_Subprogram 0186 BODY_0008: 0186 00cf | | Action Mark_Auxiliary 0187 48ff |H | Short_Literal 0xff 0188 4800 |H | Short_Literal 0x0 0189 0007 | | Action Break_Optional 018a 00d8 | | Load_Top At_Offset_0 018b 00d9 | | Load_Top At_Offset_1 018c e235 | 5 | Load 0x1,0x35 018d 01d6 | | Execute Vector,Field_Write 018e 00d8 | | Load_Top At_Offset_0 018f 487f |H | Short_Literal 0x7f 0190 0279 | y | Execute Discrete,And 0191 00d9 | | Load_Top At_Offset_1 0192 e238 | 8 | Load 0x1,0x38 0193 01d6 | | Execute Vector,Field_Write 0194 00c8 | | Action Pop_Auxiliary_Range 0195 3ff4 |? | Loop_Increasing 0x18a 0196 00ce | | Action Pop_Auxiliary 0197 e235 | 5 | Load 0x1,0x35 0198 e237 | 7 | Load 0x1,0x37 0199 01d4 | | Execute Vector,Structure_Write 019a 00cf | | Action Mark_Auxiliary 019b 485a |HZ | Short_Literal 0x5a 019c 4841 |HA | Short_Literal 0x41 019d 0007 | | Action Break_Optional 019e 00d8 | | Load_Top At_Offset_0 019f 0a20 | | Execute_Immediate Plus,0x20 01a0 00d8 | | Load_Top At_Offset_0 01a1 e00d | | Load 0x0,0xd 01a2 1b11 | | Execute Package,Field_Read,Field_Number 0x11 01a3 0260 | ` | Execute Discrete,In_Type 01a4 7001 |p | Jump_Nonzero 0x1a6 01a5 0801 | | Execute_Immediate Raise,0x1 01a6 00d9 | | Load_Top At_Offset_1 01a7 e237 | 7 | Load 0x1,0x37 01a8 01d6 | | Execute Vector,Field_Write 01a9 00c8 | | Action Pop_Auxiliary_Range 01aa 3ff3 |? | Loop_Increasing 0x19e 01ab 00ce | | Action Pop_Auxiliary 01ac e235 | 5 | Load 0x1,0x35 01ad e236 | 6 | Load 0x1,0x36 01ae 01d4 | | Execute Vector,Structure_Write 01af 00cf | | Action Mark_Auxiliary 01b0 487a |Hz | Short_Literal 0x7a 01b1 4861 |Ha | Short_Literal 0x61 01b2 0007 | | Action Break_Optional 01b3 00d8 | | Load_Top At_Offset_0 01b4 0ae0 | | Execute_Immediate Plus,-0x20 01b5 00d8 | | Load_Top At_Offset_0 01b6 e00d | | Load 0x0,0xd 01b7 1b11 | | Execute Package,Field_Read,Field_Number 0x11 01b8 0260 | ` | Execute Discrete,In_Type 01b9 7001 |p | Jump_Nonzero 0x1bb 01ba 0801 | | Execute_Immediate Raise,0x1 01bb 00d9 | | Load_Top At_Offset_1 01bc e236 | 6 | Load 0x1,0x36 01bd 01d6 | | Execute Vector,Field_Write 01be 00c8 | | Action Pop_Auxiliary_Range 01bf 3ff3 |? | Loop_Increasing 0x1b3 01c0 00ce | | Action Pop_Auxiliary 01c1 4801 |H | Short_Literal 0x1 01c2 4801 |H | Short_Literal 0x1 01c3 e212 | | Load 0x1,0x12 01c4 01d7 | | Execute Vector,Field_Read 01c5 00d8 | | Load_Top At_Offset_0 01c6 e00d | | Load 0x0,0xd 01c7 1b11 | | Execute Package,Field_Read,Field_Number 0x11 01c8 0260 | ` | Execute Discrete,In_Type 01c9 7001 |p | Jump_Nonzero 0x1cb 01ca 0801 | | Execute_Immediate Raise,0x1 01cb e239 | 9 | Load 0x1,0x39 01cc 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 01cd 01d6 | | Execute Vector,Field_Write 01ce e235 | 5 | Load 0x1,0x35 01cf e239 | 9 | Load 0x1,0x39 01d0 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 01d1 00bc | | Action Signal_Activated 01d2 00bb | | Action Signal_Completion 01d3 0000 0000 | | .BLANK 0000[0x5] 01d8 ; -------------------------------------------------------------------------------------- 01d8 ; SUBPROGRAM 01d8 ; -------------------------------------------------------------------------------------- 01d8 01e0 | | .CONST 0x01e0 ; Address of begin 01d9 0004 | | .CONST 0x0004 ; Address of exception handler 01da 0002 | | .CONST 0x0002 ; Number of locals 01db INIT_01d8: 01db 00da | | Load_Top At_Offset_2 01dc 01da | | Execute Vector,Bounds 01dd e20e | | Load 0x1,0xe 01de 035b | [ | Declare_Type Array,Constrained 01df 0337 | 7 | Declare_Variable Array 01e0 BODY_01d8: 01e0 00cf | | Action Mark_Auxiliary 01e1 e5ff | | Load 0x2,-0x1 01e2 01d9 | | Execute Vector,Reverse_Bounds 01e3 0263 | c | Execute Discrete,Above_Bound 01e4 700e |p | Jump_Nonzero 0x1f3 01e5 00d8 | | Load_Top At_Offset_0 01e6 e5ff | | Load 0x2,-0x1 01e7 01d7 | | Execute Vector,Field_Read 01e8 00d8 | | Load_Top At_Offset_0 01e9 e00d | | Load 0x0,0xd 01ea 1b11 | | Execute Package,Field_Read,Field_Number 0x11 01eb 0260 | ` | Execute Discrete,In_Type 01ec 7001 |p | Jump_Nonzero 0x1ee 01ed 0801 | | Execute_Immediate Raise,0x1 01ee 00d9 | | Load_Top At_Offset_1 01ef e402 | | Load 0x2,0x2 01f0 01d6 | | Execute Vector,Field_Write 01f1 00c8 | | Action Pop_Auxiliary_Range 01f2 3ff2 |? | Loop_Increasing 0x1e5 01f3 00ce | | Action Pop_Auxiliary 01f4 00d8 | | Load_Top At_Offset_0 01f5 e00d | | Load 0x0,0xd 01f6 1b12 | | Execute Package,Field_Read,Field_Number 0x12 01f7 01c6 | | Execute Vector,Convert_To_Formal 01f8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01f9 0000 0000 | | .BLANK 0000[0x7] 0200 ; -------------------------------------------------------------------------------------- 0200 ; SUBPROGRAM 0200 ; -------------------------------------------------------------------------------------- 0200 020e | | .CONST 0x020e ; Address of begin 0201 0004 | | .CONST 0x0004 ; Address of exception handler 0202 0002 | | .CONST 0x0002 ; Number of locals 0203 INIT_0200: 0203 4801 |H | Short_Literal 0x1 0204 00db | | Load_Top At_Offset_3 0205 01db | | Execute Vector,Length 0206 00d8 | | Load_Top At_Offset_0 0207 00e2 | | Load_Encached Integer_Cache 0208 0260 | ` | Execute Discrete,In_Type 0209 7001 |p | Jump_Nonzero 0x20b 020a 0801 | | Execute_Immediate Raise,0x1 020b 00e9 | | Load_Encached String_Cache 020c 035b | [ | Declare_Type Array,Constrained 020d 0337 | 7 | Declare_Variable Array 020e BODY_0200: 020e 00cf | | Action Mark_Auxiliary 020f 00d9 | | Load_Top At_Offset_1 0210 01d9 | | Execute Vector,Reverse_Bounds 0211 0263 | c | Execute Discrete,Above_Bound 0212 7013 |p | Jump_Nonzero 0x226 0213 e5ff | | Load 0x2,-0x1 0214 01dd | | Execute Vector,First 0215 00d9 | | Load_Top At_Offset_1 0216 0273 | s | Execute Discrete,Plus 0217 0aff | | Execute_Immediate Plus,-0x1 0218 e5ff | | Load 0x2,-0x1 0219 01d7 | | Execute Vector,Field_Read 021a 487f |H | Short_Literal 0x7f 021b 0279 | y | Execute Discrete,And 021c 00d8 | | Load_Top At_Offset_0 021d 00e8 | | Load_Encached Character_Cache 021e 0260 | ` | Execute Discrete,In_Type 021f 7001 |p | Jump_Nonzero 0x221 0220 0801 | | Execute_Immediate Raise,0x1 0221 00d9 | | Load_Top At_Offset_1 0222 e402 | | Load 0x2,0x2 0223 01d6 | | Execute Vector,Field_Write 0224 00c8 | | Action Pop_Auxiliary_Range 0225 3fed |? | Loop_Increasing 0x213 0226 00ce | | Action Pop_Auxiliary 0227 00d8 | | Load_Top At_Offset_0 0228 00e9 | | Load_Encached String_Cache 0229 01c6 | | Execute Vector,Convert_To_Formal 022a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 022b 0000 0000 | | .BLANK 0000[0x5] 0230 ; -------------------------------------------------------------------------------------- 0230 ; SUBPROGRAM 0230 ; -------------------------------------------------------------------------------------- 0230 0233 | 3 | .CONST 0x0233 ; Address of begin 0231 0004 | | .CONST 0x0004 ; Address of exception handler 0232 0001 | | .CONST 0x0001 ; Number of locals 0233 BODY_0230: 0233 INIT_0230: 0233 00da | | Load_Top At_Offset_2 0234 820f | | Call 0x1,0xf 0235 e5fe | | Load 0x2,-0x2 0236 01cc | | Execute Vector,Catenate 0237 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0238 ; -------------------------------------------------------------------------------------- 0238 ; SUBPROGRAM 0238 ; -------------------------------------------------------------------------------------- 0238 023b | ; | .CONST 0x023b ; Address of begin 0239 0004 | | .CONST 0x0004 ; Address of exception handler 023a 0001 | | .CONST 0x0001 ; Number of locals 023b BODY_0238: 023b INIT_0238: 023b 00da | | Load_Top At_Offset_2 023c e5fe | | Load 0x2,-0x2 023d 820f | | Call 0x1,0xf 023e 01cc | | Execute Vector,Catenate 023f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0240 ; -------------------------------------------------------------------------------------- 0240 ; SUBPROGRAM 0240 ; -------------------------------------------------------------------------------------- 0240 0261 | a | .CONST 0x0261 ; Address of begin 0241 0004 | | .CONST 0x0004 ; Address of exception handler 0242 0008 | | .CONST 0x0008 ; Number of locals 0243 INIT_0240: 0243 00da | | Load_Top At_Offset_2 0244 01db | | Execute Vector,Length 0245 0a02 | | Execute_Immediate Plus,0x2 0246 00e3 | | Load_Encached Natural_Cache 0247 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 0248 4801 |H | Short_Literal 0x1 0249 4800 |H | Short_Literal 0x0 024a 00e9 | | Load_Encached String_Cache 024b 035b | [ | Declare_Type Array,Constrained 024c 0337 | 7 | Declare_Variable Array 024d 00d8 | | Load_Top At_Offset_0 024e 0335 | 5 | Declare_Variable Array,Duplicate 024f 00cd | | Action Spare6_Action 0250 00d9 | | Load_Top At_Offset_1 0251 01d4 | | Execute Vector,Structure_Write 0252 4820 |H | Short_Literal 0x20 0253 487f |H | Short_Literal 0x7f 0254 e20d | | Load 0x1,0xd 0255 03f8 | | Declare_Type Discrete,Constrained 0256 4800 |H | Short_Literal 0x0 0257 4802 |H | Short_Literal 0x2 0258 029f 0463 | c| Declare_Subprogram INIT_0460,For_Call 025a 03fd | | Declare_Type Discrete,Defined 025b 029f 048b | | Declare_Subprogram INIT_0488,For_Call 025d 029f 04c3 | | Declare_Subprogram INIT_04c0,For_Call 025f 029f 057b | {| Declare_Subprogram INIT_0578,For_Call 0261 BODY_0240: 0261 e5ff | | Load 0x2,-0x1 0262 01db | | Execute Vector,Length 0263 0d01 | | Execute_Immediate Less,0x1 0264 6803 |h | Jump_Zero 0x268 0265 0092 06fc | | Action Push_String_Extended,0x6fc ; "\x22\x22" 0267 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0268 00cf | | Action Mark_Auxiliary 0269 8408 | | Call 0x2,0x8 026a 00c9 | | Action Pop_Auxiliary_Loop 026b 7ffd | | Jump 0x269 026c 0000 0000 | | .BLANK 0000[0x4] 0270 ; -------------------------------------------------------------------------------------- 0270 ; SUBPROGRAM 0270 ; -------------------------------------------------------------------------------------- 0270 0273 | s | .CONST 0x0273 ; Address of begin 0271 0004 | | .CONST 0x0004 ; Address of exception handler 0272 0001 | | .CONST 0x0001 ; Number of locals 0273 BODY_0270: 0273 INIT_0270: 0273 e00e | | Load 0x0,0xe 0274 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0275 00db | | Load_Top At_Offset_3 0276 e00e | | Load 0x0,0xe 0277 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0278 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0279 0000 0000 | | .BLANK 0000[0x7] 0280 ; -------------------------------------------------------------------------------------- 0280 ; SUBPROGRAM 0280 ; -------------------------------------------------------------------------------------- 0280 0283 | | .CONST 0x0283 ; Address of begin 0281 0004 | | .CONST 0x0004 ; Address of exception handler 0282 0001 | | .CONST 0x0001 ; Number of locals 0283 BODY_0280: 0283 INIT_0280: 0283 00da | | Load_Top At_Offset_2 0284 e00f | | Load 0x0,0xf 0285 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0286 e00f | | Load 0x0,0xf 0287 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0288 8216 | | Call 0x1,0x16 0289 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 028a 0000 0000 | | .BLANK 0000[0x6] 0290 ; -------------------------------------------------------------------------------------- 0290 ; SUBPROGRAM 0290 ; -------------------------------------------------------------------------------------- 0290 0293 | | .CONST 0x0293 ; Address of begin 0291 0004 | | .CONST 0x0004 ; Address of exception handler 0292 0001 | | .CONST 0x0001 ; Number of locals 0293 BODY_0290: 0293 INIT_0290: 0293 e235 | 5 | Load 0x1,0x35 0294 0335 | 5 | Declare_Variable Array,Duplicate 0295 00cd | | Action Spare6_Action 0296 00ca | | Action Exit_Nullary_Function 0297 0000 | | .XXX[0x1] 0298 ; -------------------------------------------------------------------------------------- 0298 ; SUBPROGRAM 0298 ; -------------------------------------------------------------------------------------- 0298 029b | | .CONST 0x029b ; Address of begin 0299 0004 | | .CONST 0x0004 ; Address of exception handler 029a 0001 | | .CONST 0x0001 ; Number of locals 029b BODY_0298: 029b INIT_0298: 029b e236 | 6 | Load 0x1,0x36 029c 0335 | 5 | Declare_Variable Array,Duplicate 029d 00cd | | Action Spare6_Action 029e 00ca | | Action Exit_Nullary_Function 029f 0000 | | .XXX[0x1] 02a0 ; -------------------------------------------------------------------------------------- 02a0 ; SUBPROGRAM 02a0 ; -------------------------------------------------------------------------------------- 02a0 02a3 | | .CONST 0x02a3 ; Address of begin 02a1 0004 | | .CONST 0x0004 ; Address of exception handler 02a2 0001 | | .CONST 0x0001 ; Number of locals 02a3 BODY_02a0: 02a3 INIT_02a0: 02a3 e237 | 7 | Load 0x1,0x37 02a4 0335 | 5 | Declare_Variable Array,Duplicate 02a5 00cd | | Action Spare6_Action 02a6 00ca | | Action Exit_Nullary_Function 02a7 0000 | | .XXX[0x1] 02a8 ; -------------------------------------------------------------------------------------- 02a8 ; SUBPROGRAM 02a8 ; -------------------------------------------------------------------------------------- 02a8 02ab | | .CONST 0x02ab ; Address of begin 02a9 0004 | | .CONST 0x0004 ; Address of exception handler 02aa 0001 | | .CONST 0x0001 ; Number of locals 02ab BODY_02a8: 02ab INIT_02a8: 02ab e238 | 8 | Load 0x1,0x38 02ac 0335 | 5 | Declare_Variable Array,Duplicate 02ad 00cd | | Action Spare6_Action 02ae 00ca | | Action Exit_Nullary_Function 02af 0000 | | .XXX[0x1] 02b0 ; -------------------------------------------------------------------------------------- 02b0 ; SUBPROGRAM 02b0 ; -------------------------------------------------------------------------------------- 02b0 02b5 | | .CONST 0x02b5 ; Address of begin 02b1 0004 | | .CONST 0x0004 ; Address of exception handler 02b2 0002 | | .CONST 0x0002 ; Number of locals 02b3 INIT_02b0: 02b3 e21b | | Load 0x1,0x1b 02b4 0337 | 7 | Declare_Variable Array 02b5 BODY_02b0: 02b5 00cf | | Action Mark_Auxiliary 02b6 48ff |H | Short_Literal 0xff 02b7 4800 |H | Short_Literal 0x0 02b8 0007 | | Action Break_Optional 02b9 00d8 | | Load_Top At_Offset_0 02ba e5fe | | Load 0x2,-0x2 02bb 01d7 | | Execute Vector,Field_Read 02bc e5ff | | Load 0x2,-0x1 02bd 01d7 | | Execute Vector,Field_Read 02be 00d9 | | Load_Top At_Offset_1 02bf e402 | | Load 0x2,0x2 02c0 01d6 | | Execute Vector,Field_Write 02c1 00c8 | | Action Pop_Auxiliary_Range 02c2 3ff6 |? | Loop_Increasing 0x2b9 02c3 00ce | | Action Pop_Auxiliary 02c4 00d8 | | Load_Top At_Offset_0 02c5 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 02c6 0000 0000 | | .XXX[0x2] 02c8 ; -------------------------------------------------------------------------------------- 02c8 ; SUBPROGRAM 02c8 ; -------------------------------------------------------------------------------------- 02c8 02cb | | .CONST 0x02cb ; Address of begin 02c9 0004 | | .CONST 0x0004 ; Address of exception handler 02ca 0001 | | .CONST 0x0001 ; Number of locals 02cb BODY_02c8: 02cb INIT_02c8: 02cb e239 | 9 | Load 0x1,0x39 02cc 0320 | | Declare_Variable Record,Duplicate 02cd 00cd | | Action Spare6_Action 02ce 00ca | | Action Exit_Nullary_Function 02cf 0000 | | .XXX[0x1] 02d0 ; -------------------------------------------------------------------------------------- 02d0 ; SUBPROGRAM 02d0 ; -------------------------------------------------------------------------------------- 02d0 02dc | | .CONST 0x02dc ; Address of begin 02d1 0004 | | .CONST 0x0004 ; Address of exception handler 02d2 0003 | | .CONST 0x0003 ; Number of locals 02d3 INIT_02d0: 02d3 00da | | Load_Top At_Offset_2 02d4 01da | | Execute Vector,Bounds 02d5 e20e | | Load 0x1,0xe 02d6 035b | [ | Declare_Type Array,Constrained 02d7 0337 | 7 | Declare_Variable Array 02d8 00d8 | | Load_Top At_Offset_0 02d9 01dd | | Execute Vector,First 02da 00e2 | | Load_Encached Integer_Cache 02db 03f1 | | Declare_Variable Discrete,With_Value 02dc BODY_02d0: 02dc 00cf | | Action Mark_Auxiliary 02dd e5ff | | Load 0x2,-0x1 02de 01d9 | | Execute Vector,Reverse_Bounds 02df 0263 | c | Execute Discrete,Above_Bound 02e0 7013 |p | Jump_Nonzero 0x2f4 02e1 00d8 | | Load_Top At_Offset_0 02e2 e5ff | | Load 0x2,-0x1 02e3 01d7 | | Execute Vector,Field_Read 02e4 e5fe | | Load 0x2,-0x2 02e5 01d7 | | Execute Vector,Field_Read 02e6 700b |p | Jump_Nonzero 0x2f2 02e7 00d8 | | Load_Top At_Offset_0 02e8 e5ff | | Load 0x2,-0x1 02e9 01d7 | | Execute Vector,Field_Read 02ea e5fd | | Load 0x2,-0x3 02eb 01d7 | | Execute Vector,Field_Read 02ec e403 | | Load 0x2,0x3 02ed e402 | | Load 0x2,0x2 02ee 01d6 | | Execute Vector,Field_Write 02ef 00db | | Load_Top At_Offset_3 02f0 0a01 | | Execute_Immediate Plus,0x1 02f1 c403 | | Store 0x2,0x3 02f2 00c8 | | Action Pop_Auxiliary_Range 02f3 3fed |? | Loop_Increasing 0x2e1 02f4 00ce | | Action Pop_Auxiliary 02f5 00d9 | | Load_Top At_Offset_1 02f6 01dd | | Execute Vector,First 02f7 00d9 | | Load_Top At_Offset_1 02f8 0aff | | Execute_Immediate Plus,-0x1 02f9 00d8 | | Load_Top At_Offset_0 02fa 00e2 | | Load_Encached Integer_Cache 02fb 0260 | ` | Execute Discrete,In_Type 02fc 7001 |p | Jump_Nonzero 0x2fe 02fd 0801 | | Execute_Immediate Raise,0x1 02fe 00db | | Load_Top At_Offset_3 02ff 01cf | | Execute Vector,Slice_Read 0300 e00d | | Load 0x0,0xd 0301 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0302 01c6 | | Execute Vector,Convert_To_Formal 0303 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0304 0000 0000 | | .BLANK 0000[0x4] 0308 ; -------------------------------------------------------------------------------------- 0308 ; SUBPROGRAM 0308 ; -------------------------------------------------------------------------------------- 0308 0314 | | .CONST 0x0314 ; Address of begin 0309 0004 | | .CONST 0x0004 ; Address of exception handler 030a 0003 | | .CONST 0x0003 ; Number of locals 030b INIT_0308: 030b 00da | | Load_Top At_Offset_2 030c 01da | | Execute Vector,Bounds 030d e20e | | Load 0x1,0xe 030e 035b | [ | Declare_Type Array,Constrained 030f 0337 | 7 | Declare_Variable Array 0310 00d8 | | Load_Top At_Offset_0 0311 01dd | | Execute Vector,First 0312 00e2 | | Load_Encached Integer_Cache 0313 03f1 | | Declare_Variable Discrete,With_Value 0314 BODY_0308: 0314 00cf | | Action Mark_Auxiliary 0315 e5ff | | Load 0x2,-0x1 0316 01d9 | | Execute Vector,Reverse_Bounds 0317 0263 | c | Execute Discrete,Above_Bound 0318 7013 |p | Jump_Nonzero 0x32c 0319 00d8 | | Load_Top At_Offset_0 031a e5ff | | Load 0x2,-0x1 031b 01d7 | | Execute Vector,Field_Read 031c e5fe | | Load 0x2,-0x2 031d 01d7 | | Execute Vector,Field_Read 031e e403 | | Load 0x2,0x3 031f e402 | | Load 0x2,0x2 0320 01d6 | | Execute Vector,Field_Write 0321 00db | | Load_Top At_Offset_3 0322 e402 | | Load 0x2,0x2 0323 01d7 | | Execute Vector,Field_Read 0324 e5fd | | Load 0x2,-0x3 0325 01d7 | | Execute Vector,Field_Read 0326 7003 |p | Jump_Nonzero 0x32a 0327 00db | | Load_Top At_Offset_3 0328 0a01 | | Execute_Immediate Plus,0x1 0329 c403 | | Store 0x2,0x3 032a 00c8 | | Action Pop_Auxiliary_Range 032b 3fed |? | Loop_Increasing 0x319 032c 00ce | | Action Pop_Auxiliary 032d 00d9 | | Load_Top At_Offset_1 032e 01dd | | Execute Vector,First 032f 00d9 | | Load_Top At_Offset_1 0330 0aff | | Execute_Immediate Plus,-0x1 0331 00d8 | | Load_Top At_Offset_0 0332 00e2 | | Load_Encached Integer_Cache 0333 0260 | ` | Execute Discrete,In_Type 0334 7001 |p | Jump_Nonzero 0x336 0335 0801 | | Execute_Immediate Raise,0x1 0336 00db | | Load_Top At_Offset_3 0337 01cf | | Execute Vector,Slice_Read 0338 e00d | | Load 0x0,0xd 0339 1b12 | | Execute Package,Field_Read,Field_Number 0x12 033a 01c6 | | Execute Vector,Convert_To_Formal 033b 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 033c 0000 0000 | | .BLANK 0000[0x4] 0340 ; -------------------------------------------------------------------------------------- 0340 ; SUBPROGRAM 0340 ; -------------------------------------------------------------------------------------- 0340 0345 | E | .CONST 0x0345 ; Address of begin 0341 0004 | | .CONST 0x0004 ; Address of exception handler 0342 0002 | | .CONST 0x0002 ; Number of locals 0343 INIT_0340: 0343 029f 0593 | | Declare_Subprogram INIT_0590,For_Call 0345 BODY_0340: 0345 e5fd | | Load 0x2,-0x3 0346 6803 |h | Jump_Zero 0x34a 0347 e5fe | | Load 0x2,-0x2 0348 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0349 7005 |p | Jump_Nonzero 0x34f 034a e5fd | | Load 0x2,-0x3 034b 7014 |p | Jump_Nonzero 0x360 034c e5fe | | Load 0x2,-0x2 034d 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 034e 6811 |h | Jump_Zero 0x360 034f e5fe | | Load 0x2,-0x2 0350 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0351 e001 | | Load 0x0,0x1 0352 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0353 e5fe | | Load 0x2,-0x2 0354 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0355 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0356 e5fe | | Load 0x2,-0x2 0357 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0358 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0359 e5ff | | Load 0x2,-0x1 035a 822e | . | Call 0x1,0x2e 035b e5fe | | Load 0x2,-0x2 035c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 035d e001 | | Load 0x0,0x1 035e 187e | ~ | Execute Package,Field_Execute,Field_Number 0x7e 035f 8402 | | Call 0x2,0x2 0360 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0361 0000 0000 | | .BLANK 0000[0x7] 0368 ; -------------------------------------------------------------------------------------- 0368 ; SUBPROGRAM 0368 ; -------------------------------------------------------------------------------------- 0368 036e | n | .CONST 0x036e ; Address of begin 0369 0004 | | .CONST 0x0004 ; Address of exception handler 036a 0002 | | .CONST 0x0002 ; Number of locals 036b INIT_0368: 036b 00da | | Load_Top At_Offset_2 036c e010 | | Load 0x0,0x10 036d 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 036e BODY_0368: 036e e5fd | | Load 0x2,-0x3 036f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0370 00d8 | | Load_Top At_Offset_0 0371 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0372 e011 | | Load 0x0,0x11 0373 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0374 e012 | | Load 0x0,0x12 0375 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0376 e5fe | | Load 0x2,-0x2 0377 e402 | | Load 0x2,0x2 0378 4801 |H | Short_Literal 0x1 0379 e013 | | Load 0x0,0x13 037a 1814 | | Execute Package,Field_Execute,Field_Number 0x14 037b 00d9 | | Load_Top At_Offset_1 037c 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 037d 00d1 | | Pop_Control Pop_Count_1 037e e5fd | | Load 0x2,-0x3 037f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0380 00d8 | | Load_Top At_Offset_0 0381 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0382 e011 | | Load 0x0,0x11 0383 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0384 e012 | | Load 0x0,0x12 0385 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0386 e5fe | | Load 0x2,-0x2 0387 e402 | | Load 0x2,0x2 0388 4800 |H | Short_Literal 0x0 0389 e013 | | Load 0x0,0x13 038a 1814 | | Execute Package,Field_Execute,Field_Number 0x14 038b 00d9 | | Load_Top At_Offset_1 038c 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 038d 4503 |E | Exit_Suprogram New_Top_Offset 0x3 038e 0000 0000 | | .XXX[0x2] 0390 ; -------------------------------------------------------------------------------------- 0390 ; SUBPROGRAM 0390 ; -------------------------------------------------------------------------------------- 0390 0397 | | .CONST 0x0397 ; Address of begin 0391 0004 | | .CONST 0x0004 ; Address of exception handler 0392 0003 | | .CONST 0x0003 ; Number of locals 0393 INIT_0390: 0393 029f 05ab | | Declare_Subprogram INIT_05a8,For_Call 0395 029f 05bb | | Declare_Subprogram INIT_05b8,For_Call 0397 BODY_0390: 0397 8402 | | Call 0x2,0x2 0398 8403 | | Call 0x2,0x3 0399 4501 |E | Exit_Suprogram New_Top_Offset 0x1 039a 0000 0000 | | .BLANK 0000[0x6] 03a0 ; -------------------------------------------------------------------------------------- 03a0 ; SUBPROGRAM 03a0 ; -------------------------------------------------------------------------------------- 03a0 03a3 | | .CONST 0x03a3 ; Address of begin 03a1 0004 | | .CONST 0x0004 ; Address of exception handler 03a2 0001 | | .CONST 0x0001 ; Number of locals 03a3 BODY_03a0: 03a3 INIT_03a0: 03a3 4608 |F | Jump_Case 0x9 03a4 7808 |x | Jump 0x3ad ; case 0x0 03a5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 03a6 780d |x | Jump 0x3b4 ; case 0x2 03a7 780c |x | Jump 0x3b4 ; case 0x3 03a8 780b |x | Jump 0x3b4 ; case 0x4 03a9 780a |x | Jump 0x3b4 ; case 0x5 03aa 7809 |x | Jump 0x3b4 ; case 0x6 03ab 7808 |x | Jump 0x3b4 ; case 0x7 03ac 7807 |x | Jump 0x3b4 ; case 0x8 03ad e233 | 3 | Load 0x1,0x33 03ae 00db | | Load_Top At_Offset_3 03af 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 03b0 e233 | 3 | Load 0x1,0x33 03b1 00db | | Load_Top At_Offset_3 03b2 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 03b3 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 03b4 0869 | i | Execute_Immediate Raise,0x69 03b5 0000 0000 | | .XXX[0x3] 03b7 0000 | | 03b8 ; -------------------------------------------------------------------------------------- 03b8 ; SUBPROGRAM 03b8 ; -------------------------------------------------------------------------------------- 03b8 03c0 | | .CONST 0x03c0 ; Address of begin 03b9 0004 | | .CONST 0x0004 ; Address of exception handler 03ba 0002 | | .CONST 0x0002 ; Number of locals 03bb INIT_03b8: 03bb 00da | | Load_Top At_Offset_2 03bc 01da | | Execute Vector,Bounds 03bd e20e | | Load 0x1,0xe 03be 035b | [ | Declare_Type Array,Constrained 03bf 0337 | 7 | Declare_Variable Array 03c0 BODY_03b8: 03c0 00cf | | Action Mark_Auxiliary 03c1 00d9 | | Load_Top At_Offset_1 03c2 01d9 | | Execute Vector,Reverse_Bounds 03c3 0263 | c | Execute Discrete,Above_Bound 03c4 700a |p | Jump_Nonzero 0x3cf 03c5 00d8 | | Load_Top At_Offset_0 03c6 e5ff | | Load 0x2,-0x1 03c7 01d7 | | Execute Vector,Field_Read 03c8 e5fe | | Load 0x2,-0x2 03c9 01d7 | | Execute Vector,Field_Read 03ca 00d9 | | Load_Top At_Offset_1 03cb e402 | | Load 0x2,0x2 03cc 01d6 | | Execute Vector,Field_Write 03cd 00c8 | | Action Pop_Auxiliary_Range 03ce 3ff6 |? | Loop_Increasing 0x3c5 03cf 00ce | | Action Pop_Auxiliary 03d0 00d8 | | Load_Top At_Offset_0 03d1 e00d | | Load 0x0,0xd 03d2 1b12 | | Execute Package,Field_Read,Field_Number 0x12 03d3 01c6 | | Execute Vector,Convert_To_Formal 03d4 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 03d5 0000 0000 | | .XXX[0x3] 03d7 0000 | | 03d8 ; -------------------------------------------------------------------------------------- 03d8 ; SUBPROGRAM 03d8 ; -------------------------------------------------------------------------------------- 03d8 03db | | .CONST 0x03db ; Address of begin 03d9 0004 | | .CONST 0x0004 ; Address of exception handler 03da 0001 | | .CONST 0x0001 ; Number of locals 03db BODY_03d8: 03db INIT_03d8: 03db 00db | | Load_Top At_Offset_3 03dc 6804 |h | Jump_Zero 0x3e1 03dd 821e | | Call 0x1,0x1e 03de 00db | | Load_Top At_Offset_3 03df 823a | : | Call 0x1,0x3a 03e0 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 03e1 00da | | Load_Top At_Offset_2 03e2 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 03e3 0000 0000 | | .BLANK 0000[0x5] 03e8 ; -------------------------------------------------------------------------------------- 03e8 ; SUBPROGRAM 03e8 ; -------------------------------------------------------------------------------------- 03e8 03eb | | .CONST 0x03eb ; Address of begin 03e9 0004 | | .CONST 0x0004 ; Address of exception handler 03ea 0001 | | .CONST 0x0001 ; Number of locals 03eb BODY_03e8: 03eb INIT_03e8: 03eb 00db | | Load_Top At_Offset_3 03ec 4801 |H | Short_Literal 0x1 03ed 4801 |H | Short_Literal 0x1 03ee 00e9 | | Load_Encached String_Cache 03ef 0334 | 4 | Declare_Variable Array,With_Constraint 03f0 e5ff | | Load 0x2,-0x1 03f1 4801 |H | Short_Literal 0x1 03f2 00da | | Load_Top At_Offset_2 03f3 01d6 | | Execute Vector,Field_Write 03f4 8210 | | Call 0x1,0x10 03f5 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 03f6 0000 0000 | | .XXX[0x2] 03f8 ; -------------------------------------------------------------------------------------- 03f8 ; SUBPROGRAM 03f8 ; -------------------------------------------------------------------------------------- 03f8 03fb | | .CONST 0x03fb ; Address of begin 03f9 0004 | | .CONST 0x0004 ; Address of exception handler 03fa 0001 | | .CONST 0x0001 ; Number of locals 03fb BODY_03f8: 03fb INIT_03f8: 03fb 4801 |H | Short_Literal 0x1 03fc 4801 |H | Short_Literal 0x1 03fd 00e9 | | Load_Encached String_Cache 03fe 0334 | 4 | Declare_Variable Array,With_Constraint 03ff e5fe | | Load 0x2,-0x2 0400 4801 |H | Short_Literal 0x1 0401 00da | | Load_Top At_Offset_2 0402 01d6 | | Execute Vector,Field_Write 0403 00db | | Load_Top At_Offset_3 0404 8211 | | Call 0x1,0x11 0405 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0406 0000 0000 | | .XXX[0x2] 0408 ; -------------------------------------------------------------------------------------- 0408 ; SUBPROGRAM 0408 ; -------------------------------------------------------------------------------------- 0408 040b | | .CONST 0x040b ; Address of begin 0409 0004 | | .CONST 0x0004 ; Address of exception handler 040a 0001 | | .CONST 0x0001 ; Number of locals 040b BODY_0408: 040b INIT_0408: 040b 00da | | Load_Top At_Offset_2 040c e5fe | | Load 0x2,-0x2 040d 027c | | | Execute Discrete,Less 040e 6802 |h | Jump_Zero 0x411 040f 00da | | Load_Top At_Offset_2 0410 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0411 00db | | Load_Top At_Offset_3 0412 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0413 0000 0000 | | .BLANK 0000[0x5] 0418 ; -------------------------------------------------------------------------------------- 0418 ; SUBPROGRAM 0418 ; -------------------------------------------------------------------------------------- 0418 0421 | ! | .CONST 0x0421 ; Address of begin 0419 0004 | | .CONST 0x0004 ; Address of exception handler 041a 0004 | | .CONST 0x0004 ; Number of locals 041b INIT_0418: 041b 029f 05cb | | Declare_Subprogram INIT_05c8,For_Call 041d 029f 05db | | Declare_Subprogram INIT_05d8,For_Call 041f 029f 05f3 | | Declare_Subprogram INIT_05f0,For_Call 0421 BODY_0418: 0421 0092 06fd | | Action Push_String_Extended,0x6fd ; "Cue=" 0423 4820 |H | Short_Literal 0x20 0424 e5ff | | Load 0x2,-0x1 0425 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0426 00e0 | | Load_Encached Standard_Cache 0427 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0428 e014 | | Load 0x0,0x14 0429 181c | | Execute Package,Field_Execute,Field_Number 0x1c 042a 01cc | | Execute Vector,Catenate 042b 0092 06fe | | Action Push_String_Extended,0x6fe ; ",Data=" 042d 01cc | | Execute Vector,Catenate 042e 4820 |H | Short_Literal 0x20 042f e5ff | | Load 0x2,-0x1 0430 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0431 00e0 | | Load_Encached Standard_Cache 0432 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0433 e014 | | Load 0x0,0x14 0434 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0435 01cc | | Execute Vector,Catenate 0436 e5ff | | Load 0x2,-0x1 0437 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0438 8402 | | Call 0x2,0x2 0439 01cc | | Execute Vector,Catenate 043a e5ff | | Load 0x2,-0x1 043b 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 043c 8403 | | Call 0x2,0x3 043d 01cc | | Execute Vector,Catenate 043e e5ff | | Load 0x2,-0x1 043f 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0440 8404 | | Call 0x2,0x4 0441 01cc | | Execute Vector,Catenate 0442 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0443 0000 0000 | | .BLANK 0000[0x5] 0448 ; -------------------------------------------------------------------------------------- 0448 ; SUBPROGRAM 0448 ; -------------------------------------------------------------------------------------- 0448 044b | K | .CONST 0x044b ; Address of begin 0449 0004 | | .CONST 0x0004 ; Address of exception handler 044a 0001 | | .CONST 0x0001 ; Number of locals 044b BODY_0448: 044b INIT_0448: 044b 0092 06ff | | Action Push_String_Extended,0x6ff ; "Current=(" 044d 00db | | Load_Top At_Offset_3 044e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 044f 823f | ? | Call 0x1,0x3f 0450 01cc | | Execute Vector,Catenate 0451 0092 0700 | | Action Push_String_Extended,0x700 ; "), Previous=(" 0453 01cc | | Execute Vector,Catenate 0454 00db | | Load_Top At_Offset_3 0455 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0456 823f | ? | Call 0x1,0x3f 0457 01cc | | Execute Vector,Catenate 0458 0092 0701 | | Action Push_String_Extended,0x701 ; ")" 045a 01cc | | Execute Vector,Catenate 045b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 045c 0000 0000 | | .BLANK 0000[0x4] 0460 ; -------------------------------------------------------------------------------------- 0460 ; SUBPROGRAM 0460 ; -------------------------------------------------------------------------------------- 0460 0463 | c | .CONST 0x0463 ; Address of begin 0461 0004 | | .CONST 0x0004 ; Address of exception handler 0462 0001 | | .CONST 0x0001 ; Number of locals 0463 BODY_0460: 0463 INIT_0460: 0463 4607 |F | Jump_Case 0x8 0464 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0465 7806 |x | Jump 0x46c ; case 0x1 0466 7809 |x | Jump 0x470 ; case 0x2 0467 780d |x | Jump 0x475 ; case 0x3 0468 7810 |x | Jump 0x479 ; case 0x4 0469 7811 |x | Jump 0x47b ; case 0x5 046a 7812 |x | Jump 0x47d ; case 0x6 046b 7815 |x | Jump 0x481 ; case 0x7 046c 00da | | Load_Top At_Offset_2 046d 0091 06f8 | | Action Push_String_Extended_Indexed,0x6f8 ; "CONTROL" 046f 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0470 00db | | Load_Top At_Offset_3 0471 00db | | Load_Top At_Offset_3 0472 00e0 | | Load_Encached Standard_Cache 0473 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0474 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0475 00da | | Load_Top At_Offset_2 0476 00e0 | | Load_Encached Standard_Cache 0477 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0478 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0479 00db | | Load_Top At_Offset_3 047a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 047b 00db | | Load_Top At_Offset_3 047c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 047d e405 | | Load 0x2,0x5 047e 00dc | | Load_Top At_Offset_4 047f 0267 | g | Execute Discrete,Predecessor 0480 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0481 e405 | | Load 0x2,0x5 0482 00dc | | Load_Top At_Offset_4 0483 0268 | h | Execute Discrete,Successor 0484 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0485 0000 0000 | | .XXX[0x3] 0487 0000 | | 0488 ; -------------------------------------------------------------------------------------- 0488 ; SUBPROGRAM 0488 ; -------------------------------------------------------------------------------------- 0488 048b | | .CONST 0x048b ; Address of begin 0489 0004 | | .CONST 0x0004 ; Address of exception handler 048a 0001 | | .CONST 0x0001 ; Number of locals 048b BODY_0488: 048b INIT_0488: 048b 00da | | Load_Top At_Offset_2 048c 00d8 | | Load_Top At_Offset_0 048d 0c20 | | Execute_Immediate Greater_Equal,0x20 048e 7023 |p# | Jump_Nonzero 0x4b2 048f 461f |F | Jump_Case 0x20 0490 781f |x | Jump 0x4b0 ; case 0x0 0491 781e |x | Jump 0x4b0 ; case 0x1 0492 781d |x | Jump 0x4b0 ; case 0x2 0493 781c |x | Jump 0x4b0 ; case 0x3 0494 781b |x | Jump 0x4b0 ; case 0x4 0495 781a |x | Jump 0x4b0 ; case 0x5 0496 7819 |x | Jump 0x4b0 ; case 0x6 0497 7818 |x | Jump 0x4b0 ; case 0x7 0498 7817 |x | Jump 0x4b0 ; case 0x8 0499 7816 |x | Jump 0x4b0 ; case 0x9 049a 781a |x | Jump 0x4b5 ; case 0xa 049b 7814 |x | Jump 0x4b0 ; case 0xb 049c 7813 |x | Jump 0x4b0 ; case 0xc 049d 7817 |x | Jump 0x4b5 ; case 0xd 049e 7811 |x | Jump 0x4b0 ; case 0xe 049f 7810 |x | Jump 0x4b0 ; case 0xf 04a0 780f |x | Jump 0x4b0 ; case 0x10 04a1 780e |x | Jump 0x4b0 ; case 0x11 04a2 780d |x | Jump 0x4b0 ; case 0x12 04a3 780c |x | Jump 0x4b0 ; case 0x13 04a4 780b |x | Jump 0x4b0 ; case 0x14 04a5 780a |x | Jump 0x4b0 ; case 0x15 04a6 7809 |x | Jump 0x4b0 ; case 0x16 04a7 7808 |x | Jump 0x4b0 ; case 0x17 04a8 7807 |x | Jump 0x4b0 ; case 0x18 04a9 7806 |x | Jump 0x4b0 ; case 0x19 04aa 7805 |x | Jump 0x4b0 ; case 0x1a 04ab 7809 |x | Jump 0x4b5 ; case 0x1b 04ac 7803 |x | Jump 0x4b0 ; case 0x1c 04ad 7802 |x | Jump 0x4b0 ; case 0x1d 04ae 7801 |x | Jump 0x4b0 ; case 0x1e 04af 7800 |x | Jump 0x4b0 ; case 0x1f 04b0 4802 |H | Short_Literal 0x2 04b1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04b2 0c80 | | Execute_Immediate Greater_Equal,-0x80 04b3 6803 |h | Jump_Zero 0x4b7 04b4 7ffb | | Jump 0x4b0 04b5 4800 |H | Short_Literal 0x0 04b6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04b7 4801 |H | Short_Literal 0x1 04b8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04b9 0000 0000 | | .BLANK 0000[0x7] 04c0 ; -------------------------------------------------------------------------------------- 04c0 ; SUBPROGRAM 04c0 ; -------------------------------------------------------------------------------------- 04c0 04d9 | | .CONST 0x04d9 ; Address of begin 04c1 0004 | | .CONST 0x0004 ; Address of exception handler 04c2 0008 | | .CONST 0x0008 ; Number of locals 04c3 INIT_04c0: 04c3 4801 |H | Short_Literal 0x1 04c4 00db | | Load_Top At_Offset_3 04c5 00e9 | | Load_Encached String_Cache 04c6 035b | [ | Declare_Type Array,Constrained 04c7 0337 | 7 | Declare_Variable Array 04c8 00e3 | | Load_Encached Natural_Cache 04c9 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 04ca e5ff | | Load 0x2,-0x1 04cb 01dd | | Execute Vector,First 04cc e5ff | | Load 0x2,-0x1 04cd 01d7 | | Execute Vector,Field_Read 04ce 8406 | | Call 0x2,0x6 04cf e405 | | Load 0x2,0x5 04d0 03f1 | | Declare_Variable Discrete,With_Value 04d1 e405 | | Load 0x2,0x5 04d2 0007 | | Action Break_Optional 04d3 029f 060b | | Declare_Subprogram INIT_0608,For_Call 04d5 029f 0633 | 3| Declare_Subprogram INIT_0630,For_Call 04d7 029f 0643 | C| Declare_Subprogram INIT_0640,For_Call 04d9 BODY_04c0: 04d9 e604 | | Load 0x3,0x4 04da 8607 | | Call 0x3,0x7 04db 00cf | | Action Mark_Auxiliary 04dc e5ff | | Load 0x2,-0x1 04dd 01d9 | | Execute Vector,Reverse_Bounds 04de 0263 | c | Execute Discrete,Above_Bound 04df 7087 |p | Jump_Nonzero 0x567 04e0 e604 | | Load 0x3,0x4 04e1 4602 |F | Jump_Case 0x3 04e2 780c |x | Jump 0x4ef ; case 0x0 04e3 783c |x< | Jump 0x520 ; case 0x1 04e4 7800 |x | Jump 0x4e5 ; case 0x2 04e5 4820 |H | Short_Literal 0x20 04e6 00d9 | | Load_Top At_Offset_1 04e7 e5ff | | Load 0x2,-0x1 04e8 01d7 | | Execute Vector,Field_Read 04e9 00e0 | | Load_Encached Standard_Cache 04ea 1818 | | Execute Package,Field_Execute,Field_Number 0x18 04eb e014 | | Load 0x0,0x14 04ec 181c | | Execute Package,Field_Execute,Field_Number 0x1c 04ed 8606 | | Call 0x3,0x6 04ee 784a |xJ | Jump 0x539 04ef 00d8 | | Load_Top At_Offset_0 04f0 e5ff | | Load 0x2,-0x1 04f1 01d7 | | Execute Vector,Field_Read 04f2 00d8 | | Load_Top At_Offset_0 04f3 0c1c | | Execute_Immediate Greater_Equal,0x1c 04f4 7021 |p! | Jump_Nonzero 0x516 04f5 461b |F | Jump_Case 0x1c 04f6 7820 |x | Jump 0x517 ; case 0x0 04f7 781f |x | Jump 0x517 ; case 0x1 04f8 781e |x | Jump 0x517 ; case 0x2 04f9 781d |x | Jump 0x517 ; case 0x3 04fa 781c |x | Jump 0x517 ; case 0x4 04fb 781b |x | Jump 0x517 ; case 0x5 04fc 781a |x | Jump 0x517 ; case 0x6 04fd 7819 |x | Jump 0x517 ; case 0x7 04fe 7818 |x | Jump 0x517 ; case 0x8 04ff 7817 |x | Jump 0x517 ; case 0x9 0500 781b |x | Jump 0x51c ; case 0xa 0501 7815 |x | Jump 0x517 ; case 0xb 0502 7814 |x | Jump 0x517 ; case 0xc 0503 7814 |x | Jump 0x518 ; case 0xd 0504 7812 |x | Jump 0x517 ; case 0xe 0505 7811 |x | Jump 0x517 ; case 0xf 0506 7810 |x | Jump 0x517 ; case 0x10 0507 780f |x | Jump 0x517 ; case 0x11 0508 780e |x | Jump 0x517 ; case 0x12 0509 780d |x | Jump 0x517 ; case 0x13 050a 780c |x | Jump 0x517 ; case 0x14 050b 780b |x | Jump 0x517 ; case 0x15 050c 780a |x | Jump 0x517 ; case 0x16 050d 7809 |x | Jump 0x517 ; case 0x17 050e 7808 |x | Jump 0x517 ; case 0x18 050f 7807 |x | Jump 0x517 ; case 0x19 0510 7806 |x | Jump 0x517 ; case 0x1a 0511 7800 |x | Jump 0x512 ; case 0x1b 0512 0092 0702 | | Action Push_String_Extended,0x702 ; "ESC" 0514 8606 | | Call 0x3,0x6 0515 7823 |x# | Jump 0x539 0516 00d1 | | Pop_Control Pop_Count_1 0517 08e0 | | Execute_Immediate Raise,0xe0 0518 0092 0703 | | Action Push_String_Extended,0x703 ; "CR" 051a 8606 | | Call 0x3,0x6 051b 781d |x | Jump 0x539 051c 0092 0704 | | Action Push_String_Extended,0x704 ; "LF" 051e 8606 | | Call 0x3,0x6 051f 7819 |x | Jump 0x539 0520 00d8 | | Load_Top At_Offset_0 0521 e5ff | | Load 0x2,-0x1 0522 01d7 | | Execute Vector,Field_Read 0523 0f22 | " | Execute_Immediate Equal,0x22 0524 6804 |h | Jump_Zero 0x529 0525 0092 06fc | | Action Push_String_Extended,0x6fc ; "\x22\x22" 0527 8606 | | Call 0x3,0x6 0528 7810 |x | Jump 0x539 0529 4801 |H | Short_Literal 0x1 052a 4801 |H | Short_Literal 0x1 052b 00e9 | | Load_Encached String_Cache 052c 0334 | 4 | Declare_Variable Array,With_Constraint 052d 00d9 | | Load_Top At_Offset_1 052e e5ff | | Load 0x2,-0x1 052f 01d7 | | Execute Vector,Field_Read 0530 00d8 | | Load_Top At_Offset_0 0531 00e8 | | Load_Encached Character_Cache 0532 0260 | ` | Execute Discrete,In_Type 0533 7001 |p | Jump_Nonzero 0x535 0534 0801 | | Execute_Immediate Raise,0x1 0535 4801 |H | Short_Literal 0x1 0536 00da | | Load_Top At_Offset_2 0537 01d6 | | Execute Vector,Field_Write 0538 8606 | | Call 0x3,0x6 0539 00d8 | | Load_Top At_Offset_0 053a e5ff | | Load 0x2,-0x1 053b 01dc | | Execute Vector,Last 053c 027c | | | Execute Discrete,Less 053d 6827 |h' | Jump_Zero 0x565 053e 00d8 | | Load_Top At_Offset_0 053f 0a01 | | Execute_Immediate Plus,0x1 0540 e5ff | | Load 0x2,-0x1 0541 01d7 | | Execute Vector,Field_Read 0542 8406 | | Call 0x2,0x6 0543 a605 | | Store_Unchecked 0x3,0x5 0544 e605 | | Load 0x3,0x5 0545 e604 | | Load 0x3,0x4 0546 027f | | Execute Discrete,Equal 0547 6811 |h | Jump_Zero 0x559 0548 e604 | | Load 0x3,0x4 0549 4602 |F | Jump_Case 0x3 054a 7807 |x | Jump 0x552 ; case 0x0 054b 7819 |x | Jump 0x565 ; case 0x1 054c 7800 |x | Jump 0x54d ; case 0x2 054d 482c |H, | Short_Literal 0x2c 054e e403 | | Load 0x2,0x3 054f 01ca | | Execute Vector,Prepend 0550 8606 | | Call 0x3,0x6 0551 7813 |x | Jump 0x565 0552 4826 |H& | Short_Literal 0x26 0553 e403 | | Load 0x2,0x3 0554 01cb | | Execute Vector,Append 0555 e403 | | Load 0x2,0x3 0556 01cc | | Execute Vector,Catenate 0557 8606 | | Call 0x3,0x6 0558 780c |x | Jump 0x565 0559 e604 | | Load 0x3,0x4 055a 8608 | | Call 0x3,0x8 055b 4826 |H& | Short_Literal 0x26 055c e403 | | Load 0x2,0x3 055d 01cb | | Execute Vector,Append 055e e403 | | Load 0x2,0x3 055f 01cc | | Execute Vector,Catenate 0560 8606 | | Call 0x3,0x6 0561 e605 | | Load 0x3,0x5 0562 8607 | | Call 0x3,0x7 0563 e605 | | Load 0x3,0x5 0564 a604 | | Store_Unchecked 0x3,0x4 0565 00c8 | | Action Pop_Auxiliary_Range 0566 3f79 |?y | Loop_Increasing 0x4e0 0567 00ce | | Action Pop_Auxiliary 0568 e604 | | Load 0x3,0x4 0569 8608 | | Call 0x3,0x8 056a 4801 |H | Short_Literal 0x1 056b e603 | | Load 0x3,0x3 056c e602 | | Load 0x3,0x2 056d 01cf | | Execute Vector,Slice_Read 056e 00e9 | | Load_Encached String_Cache 056f 01c6 | | Execute Vector,Convert_To_Formal 0570 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0571 0000 0000 | | .BLANK 0000[0x7] 0578 ; -------------------------------------------------------------------------------------- 0578 ; SUBPROGRAM 0578 ; -------------------------------------------------------------------------------------- 0578 057b | { | .CONST 0x057b ; Address of begin 0579 0586 | | .CONST 0x0586 ; Address of exception handler 057a 0001 | | .CONST 0x0001 ; Number of locals 057b BODY_0578: 057b INIT_0578: 057b e402 | | Load 0x2,0x2 057c 00d8 | | Load_Top At_Offset_0 057d 00e4 | | Load_Encached Positive_Cache 057e 0260 | ` | Execute Discrete,In_Type 057f 7001 |p | Jump_Nonzero 0x581 0580 0801 | | Execute_Immediate Raise,0x1 0581 8407 | | Call 0x2,0x7 0582 00e9 | | Load_Encached String_Cache 0583 01c6 | | Execute Vector,Convert_To_Formal 0584 00cb | | Action Pop_Block_With_Result 0585 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0586 TRAP_0578: 0586 e015 | | Load 0x0,0x15 0587 010f | | Execute Exception,Equal 0588 6804 |h | Jump_Zero 0x58d 0589 e402 | | Load 0x2,0x2 058a 0901 | | Execute_Immediate Binary_Scale,0x1 058b c402 | | Store 0x2,0x2 058c 4501 |E | Exit_Suprogram New_Top_Offset 0x1 058d 0100 | | Execute Exception,Raise 058e 0000 0000 | | .XXX[0x2] 0590 ; -------------------------------------------------------------------------------------- 0590 ; SUBPROGRAM 0590 ; -------------------------------------------------------------------------------------- 0590 0593 | | .CONST 0x0593 ; Address of begin 0591 0598 | | .CONST 0x0598 ; Address of exception handler 0592 0001 | | .CONST 0x0001 ; Number of locals 0593 BODY_0590: 0593 INIT_0590: 0593 00db | | Load_Top At_Offset_3 0594 00db | | Load_Top At_Offset_3 0595 e013 | | Load 0x0,0x13 0596 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0597 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0598 TRAP_0590: 0598 00d8 | | Load_Top At_Offset_0 0599 0107 | | Execute Exception,Get_Name 059a 4930 |I0 | Short_Literal 0x130 059b 493f |I? | Short_Literal 0x13f 059c 0262 | b | Execute Discrete,In_Range 059d 6806 |h | Jump_Zero 0x5a4 059e e7fe | | Load 0x3,-0x2 059f 822d | - | Call 0x1,0x2d 05a0 e7ff | | Load 0x3,-0x1 05a1 e013 | | Load 0x0,0x13 05a2 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 05a3 4503 |E | Exit_Suprogram New_Top_Offset 0x3 05a4 0100 | | Execute Exception,Raise 05a5 0000 0000 | | .XXX[0x3] 05a7 0000 | | 05a8 ; -------------------------------------------------------------------------------------- 05a8 ; SUBPROGRAM 05a8 ; -------------------------------------------------------------------------------------- 05a8 05ab | | .CONST 0x05ab ; Address of begin 05a9 05b4 | | .CONST 0x05b4 ; Address of exception handler 05aa 0001 | | .CONST 0x0001 ; Number of locals 05ab BODY_05a8: 05ab INIT_05a8: 05ab e5ff | | Load 0x2,-0x1 05ac 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 05ad 00d8 | | Load_Top At_Offset_0 05ae 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 05af e013 | | Load 0x0,0x13 05b0 1819 | | Execute Package,Field_Execute,Field_Number 0x19 05b1 00d9 | | Load_Top At_Offset_1 05b2 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 05b3 4501 |E | Exit_Suprogram New_Top_Offset 0x1 05b4 TRAP_05a8: 05b4 0007 | | Action Break_Optional 05b5 4501 |E | Exit_Suprogram New_Top_Offset 0x1 05b6 0000 0000 | | .XXX[0x2] 05b8 ; -------------------------------------------------------------------------------------- 05b8 ; SUBPROGRAM 05b8 ; -------------------------------------------------------------------------------------- 05b8 05bb | | .CONST 0x05bb ; Address of begin 05b9 05c4 | | .CONST 0x05c4 ; Address of exception handler 05ba 0001 | | .CONST 0x0001 ; Number of locals 05bb BODY_05b8: 05bb INIT_05b8: 05bb e5ff | | Load 0x2,-0x1 05bc 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 05bd 00d8 | | Load_Top At_Offset_0 05be 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 05bf e013 | | Load 0x0,0x13 05c0 1819 | | Execute Package,Field_Execute,Field_Number 0x19 05c1 00d9 | | Load_Top At_Offset_1 05c2 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 05c3 4501 |E | Exit_Suprogram New_Top_Offset 0x1 05c4 TRAP_05b8: 05c4 0007 | | Action Break_Optional 05c5 4501 |E | Exit_Suprogram New_Top_Offset 0x1 05c6 0000 0000 | | .XXX[0x2] 05c8 ; -------------------------------------------------------------------------------------- 05c8 ; SUBPROGRAM 05c8 ; -------------------------------------------------------------------------------------- 05c8 05cb | | .CONST 0x05cb ; Address of begin 05c9 0004 | | .CONST 0x0004 ; Address of exception handler 05ca 0001 | | .CONST 0x0001 ; Number of locals 05cb BODY_05c8: 05cb INIT_05c8: 05cb 00da | | Load_Top At_Offset_2 05cc e233 | 3 | Load 0x1,0x33 05cd 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 05ce 027e | ~ | Execute Discrete,Not_Equal 05cf 6803 |h | Jump_Zero 0x5d3 05d0 0092 0705 | | Action Push_String_Extended,0x705 ; ",Event_Matched" 05d2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 05d3 00ea | | Load_Encached Null_String_Cache 05d4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 05d5 0000 0000 | | .XXX[0x3] 05d7 0000 | | 05d8 ; -------------------------------------------------------------------------------------- 05d8 ; SUBPROGRAM 05d8 ; -------------------------------------------------------------------------------------- 05d8 05db | | .CONST 0x05db ; Address of begin 05d9 0004 | | .CONST 0x0004 ; Address of exception handler 05da 0001 | | .CONST 0x0001 ; Number of locals 05db BODY_05d8: 05db INIT_05d8: 05db 00da | | Load_Top At_Offset_2 05dc e233 | 3 | Load 0x1,0x33 05dd 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 05de 027e | ~ | Execute Discrete,Not_Equal 05df 680a |h | Jump_Zero 0x5ea 05e0 0092 0706 | | Action Push_String_Extended,0x706 ; ",Bytes_Matched=" 05e2 4820 |H | Short_Literal 0x20 05e3 e7ff | | Load 0x3,-0x1 05e4 00e0 | | Load_Encached Standard_Cache 05e5 1818 | | Execute Package,Field_Execute,Field_Number 0x18 05e6 e014 | | Load 0x0,0x14 05e7 181c | | Execute Package,Field_Execute,Field_Number 0x1c 05e8 01cc | | Execute Vector,Catenate 05e9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 05ea 00ea | | Load_Encached Null_String_Cache 05eb 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 05ec 0000 0000 | | .BLANK 0000[0x4] 05f0 ; -------------------------------------------------------------------------------------- 05f0 ; SUBPROGRAM 05f0 ; -------------------------------------------------------------------------------------- 05f0 05f3 | | .CONST 0x05f3 ; Address of begin 05f1 0004 | | .CONST 0x0004 ; Address of exception handler 05f2 0001 | | .CONST 0x0001 ; Number of locals 05f3 BODY_05f0: 05f3 INIT_05f0: 05f3 00da | | Load_Top At_Offset_2 05f4 e233 | 3 | Load 0x1,0x33 05f5 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 05f6 027e | ~ | Execute Discrete,Not_Equal 05f7 680a |h | Jump_Zero 0x602 05f8 0092 0707 | | Action Push_String_Extended,0x707 ; ",Silence_Matched=" 05fa 4820 |H | Short_Literal 0x20 05fb e7ff | | Load 0x3,-0x1 05fc e00f | | Load 0x0,0xf 05fd 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 05fe e014 | | Load 0x0,0x14 05ff 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0600 01cc | | Execute Vector,Catenate 0601 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0602 00ea | | Load_Encached Null_String_Cache 0603 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0604 0000 0000 | | .BLANK 0000[0x4] 0608 ; -------------------------------------------------------------------------------------- 0608 ; SUBPROGRAM 0608 ; -------------------------------------------------------------------------------------- 0608 060b | | .CONST 0x060b ; Address of begin 0609 0004 | | .CONST 0x0004 ; Address of exception handler 060a 0001 | | .CONST 0x0001 ; Number of locals 060b BODY_0608: 060b INIT_0608: 060b e603 | | Load 0x3,0x3 060c 00db | | Load_Top At_Offset_3 060d 01db | | Execute Vector,Length 060e 0273 | s | Execute Discrete,Plus 060f e602 | | Load 0x3,0x2 0610 01dc | | Execute Vector,Last 0611 027d | } | Execute Discrete,Greater 0612 6802 |h | Jump_Zero 0x615 0613 e015 | | Load 0x0,0x15 0614 0257 | W | Execute Discrete,Raise 0615 00da | | Load_Top At_Offset_2 0616 e603 | | Load 0x3,0x3 0617 0a01 | | Execute_Immediate Plus,0x1 0618 00d8 | | Load_Top At_Offset_0 0619 00e2 | | Load_Encached Integer_Cache 061a 0260 | ` | Execute Discrete,In_Type 061b 7001 |p | Jump_Nonzero 0x61d 061c 0801 | | Execute_Immediate Raise,0x1 061d e603 | | Load 0x3,0x3 061e e9ff | | Load 0x4,-0x1 061f 01db | | Execute Vector,Length 0620 0273 | s | Execute Discrete,Plus 0621 00d8 | | Load_Top At_Offset_0 0622 00e2 | | Load_Encached Integer_Cache 0623 0260 | ` | Execute Discrete,In_Type 0624 7001 |p | Jump_Nonzero 0x626 0625 0801 | | Execute_Immediate Raise,0x1 0626 e602 | | Load 0x3,0x2 0627 01ce | | Execute Vector,Slice_Write 0628 e603 | | Load 0x3,0x3 0629 00db | | Load_Top At_Offset_3 062a 01db | | Execute Vector,Length 062b 0273 | s | Execute Discrete,Plus 062c c603 | | Store 0x3,0x3 062d 4502 |E | Exit_Suprogram New_Top_Offset 0x2 062e 0000 0000 | | .XXX[0x2] 0630 ; -------------------------------------------------------------------------------------- 0630 ; SUBPROGRAM 0630 ; -------------------------------------------------------------------------------------- 0630 0633 | 3 | .CONST 0x0633 ; Address of begin 0631 0004 | | .CONST 0x0004 ; Address of exception handler 0632 0001 | | .CONST 0x0001 ; Number of locals 0633 BODY_0630: 0633 INIT_0630: 0633 00da | | Load_Top At_Offset_2 0634 4602 |F | Jump_Case 0x3 0635 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x0 0636 7805 |x | Jump 0x63c ; case 0x1 0637 7800 |x | Jump 0x638 ; case 0x2 0638 0092 0708 | | Action Push_String_Extended,0x708 ; "(" 063a 8606 | | Call 0x3,0x6 063b 4502 |E | Exit_Suprogram New_Top_Offset 0x2 063c 0092 0709 | | Action Push_String_Extended,0x709 ; "\x22" 063e 8606 | | Call 0x3,0x6 063f 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0640 ; -------------------------------------------------------------------------------------- 0640 ; SUBPROGRAM 0640 ; -------------------------------------------------------------------------------------- 0640 0643 | C | .CONST 0x0643 ; Address of begin 0641 0004 | | .CONST 0x0004 ; Address of exception handler 0642 0001 | | .CONST 0x0001 ; Number of locals 0643 BODY_0640: 0643 INIT_0640: 0643 00da | | Load_Top At_Offset_2 0644 4602 |F | Jump_Case 0x3 0645 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x0 0646 7805 |x | Jump 0x64c ; case 0x1 0647 7800 |x | Jump 0x648 ; case 0x2 0648 0092 0701 | | Action Push_String_Extended,0x701 ; ")" 064a 8606 | | Call 0x3,0x6 064b 4502 |E | Exit_Suprogram New_Top_Offset 0x2 064c 0092 0709 | | Action Push_String_Extended,0x709 ; "\x22" 064e 8606 | | Call 0x3,0x6 064f 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0650 ; -------------------------------------------------------------------------------------- 0650 ; SUBPROGRAM 0650 ; -------------------------------------------------------------------------------------- 0650 0653 | S | .CONST 0x0653 ; Address of begin 0651 0004 | | .CONST 0x0004 ; Address of exception handler 0652 0001 | | .CONST 0x0001 ; Number of locals 0653 BODY_0650: 0653 INIT_0650: 0653 4608 |F | Jump_Case 0x9 0654 7808 |x | Jump 0x65d ; case 0x0 0655 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 0656 7817 |x | Jump 0x66e ; case 0x2 0657 7816 |x | Jump 0x66e ; case 0x3 0658 7815 |x | Jump 0x66e ; case 0x4 0659 7814 |x | Jump 0x66e ; case 0x5 065a 7813 |x | Jump 0x66e ; case 0x6 065b 7812 |x | Jump 0x66e ; case 0x7 065c 7811 |x | Jump 0x66e ; case 0x8 065d e219 | | Load 0x1,0x19 065e 00db | | Load_Top At_Offset_3 065f 00d9 | | Load_Top At_Offset_1 0660 00d9 | | Load_Top At_Offset_1 0661 3000 |0 | Execute Record,Field_Type,Field_Number 0x0 0662 0119 | | Execute Any,Check_In_Formal_Type 0663 00d1 | | Pop_Control Pop_Count_1 0664 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0665 821c | | Call 0x1,0x1c 0666 00db | | Load_Top At_Offset_3 0667 00d9 | | Load_Top At_Offset_1 0668 00d9 | | Load_Top At_Offset_1 0669 3001 |0 | Execute Record,Field_Type,Field_Number 0x1 066a 0119 | | Execute Any,Check_In_Formal_Type 066b 00d1 | | Pop_Control Pop_Count_1 066c 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 066d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 066e 0869 | i | Execute_Immediate Raise,0x69 066f 0000 | | .XXX[0x1] 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 7816 |x | Jump 0x68d ; case 0x2 0677 7815 |x | Jump 0x68d ; case 0x3 0678 7814 |x | Jump 0x68d ; case 0x4 0679 7813 |x | Jump 0x68d ; case 0x5 067a 7812 |x | Jump 0x68d ; case 0x6 067b 7811 |x | Jump 0x68d ; case 0x7 067c 7810 |x | Jump 0x68d ; case 0x8 067d 00da | | Load_Top At_Offset_2 067e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 067f 0125 | % | Execute Any,Set_Constraint 0680 00da | | Load_Top At_Offset_2 0681 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0682 1c00 | | Execute_Immediate Run_Utility,0x0 0683 00da | | Load_Top At_Offset_2 0684 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0685 1c00 | | Execute_Immediate Run_Utility,0x0 0686 6009 |` | Indirect_Literal Discrete,0x690,{0x00000000, 0x001e0000} 0687 00db | | Load_Top At_Offset_3 0688 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0689 4800 |H | Short_Literal 0x0 068a 00db | | Load_Top At_Offset_3 068b 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 068c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 068d 0869 | i | Execute_Immediate Raise,0x69 068e 0000 0000 | | .XXX[0x2] 0690 0000 0000 | | .LITERAL {0x00000000, 0x001e0000} 0694 0000 0000 | | .BLANK 0000[0x4] 0698 ; -------------------------------------------------------------------------------------- 0698 ; SUBPROGRAM 0698 ; -------------------------------------------------------------------------------------- 0698 069b | | .CONST 0x069b ; Address of begin 0699 0004 | | .CONST 0x0004 ; Address of exception handler 069a 0001 | | .CONST 0x0001 ; Number of locals 069b BODY_0698: 069b INIT_0698: 069b 4608 |F | Jump_Case 0x9 069c 7808 |x | Jump 0x6a5 ; case 0x0 069d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 069e 7813 |x | Jump 0x6b2 ; case 0x2 069f 7812 |x | Jump 0x6b2 ; case 0x3 06a0 7811 |x | Jump 0x6b2 ; case 0x4 06a1 7810 |x | Jump 0x6b2 ; case 0x5 06a2 780f |x | Jump 0x6b2 ; case 0x6 06a3 780e |x | Jump 0x6b2 ; case 0x7 06a4 780d |x | Jump 0x6b2 ; case 0x8 06a5 00da | | Load_Top At_Offset_2 06a6 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 06a7 0125 | % | Execute Any,Set_Constraint 06a8 00da | | Load_Top At_Offset_2 06a9 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 06aa 1c00 | | Execute_Immediate Run_Utility,0x0 06ab 00da | | Load_Top At_Offset_2 06ac 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 06ad 1c00 | | Execute_Immediate Run_Utility,0x0 06ae 67e1 |g | Indirect_Literal Discrete,0x690,{0x00000000, 0x001e0000} 06af 00db | | Load_Top At_Offset_3 06b0 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 06b1 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 06b2 0869 | i | Execute_Immediate Raise,0x69 06b3 0000 0000 | | .BLANK 0000[0x5] 06b8 ; -------------------------------------------------------------------------------------- 06b8 ; SUBPROGRAM 06b8 ; -------------------------------------------------------------------------------------- 06b8 06bb | | .CONST 0x06bb ; Address of begin 06b9 0004 | | .CONST 0x0004 ; Address of exception handler 06ba 0001 | | .CONST 0x0001 ; Number of locals 06bb BODY_06b8: 06bb INIT_06b8: 06bb 4608 |F | Jump_Case 0x9 06bc 7808 |x | Jump 0x6c5 ; case 0x0 06bd 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 06be 781c |x | Jump 0x6db ; case 0x2 06bf 781b |x | Jump 0x6db ; case 0x3 06c0 781a |x | Jump 0x6db ; case 0x4 06c1 7819 |x | Jump 0x6db ; case 0x5 06c2 7818 |x | Jump 0x6db ; case 0x6 06c3 7817 |x | Jump 0x6db ; case 0x7 06c4 7816 |x | Jump 0x6db ; case 0x8 06c5 00da | | Load_Top At_Offset_2 06c6 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 06c7 0125 | % | Execute Any,Set_Constraint 06c8 e001 | | Load 0x0,0x1 06c9 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 06ca 00db | | Load_Top At_Offset_3 06cb 00d9 | | Load_Top At_Offset_1 06cc 00d9 | | Load_Top At_Offset_1 06cd 3000 |0 | Execute Record,Field_Type,Field_Number 0x0 06ce 0119 | | Execute Any,Check_In_Formal_Type 06cf 00d1 | | Pop_Control Pop_Count_1 06d0 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 06d1 8222 | " | Call 0x1,0x22 06d2 00db | | Load_Top At_Offset_3 06d3 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 06d4 4800 |H | Short_Literal 0x0 06d5 00db | | Load_Top At_Offset_3 06d6 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 06d7 4801 |H | Short_Literal 0x1 06d8 00db | | Load_Top At_Offset_3 06d9 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 06da 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 06db 0869 | i | Execute_Immediate Raise,0x69 06dc 0000 0000 | | .BLANK 0000[0x4] 06e0 ; -------------------------------------------------------------------------------------- 06e0 ; SUBPROGRAM 06e0 ; -------------------------------------------------------------------------------------- 06e0 06e3 | | .CONST 0x06e3 ; Address of begin 06e1 0004 | | .CONST 0x0004 ; Address of exception handler 06e2 0001 | | .CONST 0x0001 ; Number of locals 06e3 BODY_06e0: 06e3 INIT_06e0: 06e3 4608 |F | Jump_Case 0x9 06e4 7808 |x | Jump 0x6ed ; case 0x0 06e5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 06e6 7810 |x | Jump 0x6f7 ; case 0x2 06e7 780f |x | Jump 0x6f7 ; case 0x3 06e8 780e |x | Jump 0x6f7 ; case 0x4 06e9 780d |x | Jump 0x6f7 ; case 0x5 06ea 780c |x | Jump 0x6f7 ; case 0x6 06eb 780b |x | Jump 0x6f7 ; case 0x7 06ec 780a |x | Jump 0x6f7 ; case 0x8 06ed 00da | | Load_Top At_Offset_2 06ee 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 06ef 1c00 | | Execute_Immediate Run_Utility,0x0 06f0 00da | | Load_Top At_Offset_2 06f1 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 06f2 1c00 | | Execute_Immediate Run_Utility,0x0 06f3 00da | | Load_Top At_Offset_2 06f4 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 06f5 1c00 | | Execute_Immediate Run_Utility,0x0 06f6 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 06f7 0869 | i | Execute_Immediate Raise,0x69 06f8 ; -------------------------------------------------------------------------------------- 06f8 ; STRING TABLE 06f8 ; -------------------------------------------------------------------------------------- 06f8 0026 | & | .STRTAB 0x0026->0x070b ; "CONTROL" 06f9 002b | + | .STRTAB 0x002b->0x070e ; "CHAR" 06fa 002d | - | .STRTAB 0x002d->0x0710 ; "OTHER" 06fb 0030 | 0 | .STRTAB 0x0030->0x0713 ; "~echo, ~crlf, edit=none" 06fc 0045 | E | .STRTAB 0x0045->0x071e ; "\x22\x22" 06fd 0045 | E | .STRTAB 0x0045->0x071f ; "Cue=" 06fe 0047 | G | .STRTAB 0x0047->0x0721 ; ",Data=" 06ff 004b | K | .STRTAB 0x004b->0x0724 ; "Current=(" 0700 0052 | R | .STRTAB 0x0052->0x0729 ; "), Previous=(" 0701 005d | ] | .STRTAB 0x005d->0x072f ; ")" 0702 005c | \ | .STRTAB 0x005c->0x0730 ; "ESC" 0703 005d | ] | .STRTAB 0x005d->0x0731 ; "CR" 0704 005d | ] | .STRTAB 0x005d->0x0732 ; "LF" 0705 005d | ] | .STRTAB 0x005d->0x0733 ; ",Event_Matched" 0706 0069 | i | .STRTAB 0x0069->0x073a ; ",Bytes_Matched=" 0707 0076 | v | .STRTAB 0x0076->0x0742 ; ",Silence_Matched=" 0708 0085 | | .STRTAB 0x0085->0x074a ; "(" 0709 0084 | | .STRTAB 0x0084->0x074b ; "\x22" 070a 0083 | | .STREND 0x0083->0x074b 070b 434f 4e54 |CONT| .STRTAB_STRINGS 074c 0000 0000 | | .BLANK 0000[0x4] 0750 ; -------------------------------------------------------------------------------------- 0750 ; Debug Table 0750 ; -------------------------------------------------------------------------------------- 0750 0004 000a | | .DEBUG4 0x0004,0x000a,0x7e3c,0x0000,0x0001,0x0000 0756 0000 0000 | | .BLANK 0000[0x1e] 0774 8014 0000 | | .XXX[0xb] 0776 0000 0000 | | 0778 0100 0000 | | 077a 0880 0000 | | 077c 0004 0000 | | 077e 0028 | ( | 077f 0000 0000 | | .BLANK 0000[0x2e] 07ad 1002 8000 | | .XXX[0xb] 07af 0000 0000 | | 07b1 0020 0000 | | 07b3 0110 0000 | | 07b5 0000 8000 | | 07b7 0005 | | 07b8 0000 0000 | | .BLANK 0000[0x48]