|
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: 6144 (0x1800) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_06e8fd
└─⟦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 0b78 | x | .CONST 0x0b78 ; 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 8007 | | .CONST 0x8007 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; SUBPROGRAM 0008 ; See instruction 0x02cf at 0x87b, index=0x0 0008 ; -------------------------------------------------------------------------------------- 0008 01de | | .CONST 0x01de ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0078 | x | .CONST 0x0078 ; Number of locals 000b INIT_0008: 000b INIT_0008: 000b 4802 |H | Short_Literal 0x2 000c 02cb | | Declare_Variable Entry 000d 4806 |H | Short_Literal 0x6 000e 02cb | | Declare_Variable Entry 000f 4801 |H | Short_Literal 0x1 0010 02cb | | Declare_Variable Entry 0011 4803 |H | Short_Literal 0x3 0012 02cb | | Declare_Variable Entry 0013 4805 |H | Short_Literal 0x5 0014 02cb | | Declare_Variable Entry 0015 4808 |H | Short_Literal 0x8 0016 02cb | | Declare_Variable Entry 0017 4807 |H | Short_Literal 0x7 0018 02cb | | Declare_Variable Entry 0019 4803 |H | Short_Literal 0x3 001a 02cb | | Declare_Variable Entry 001b 4808 |H | Short_Literal 0x8 001c 02cb | | Declare_Variable Entry 001d 4807 |H | Short_Literal 0x7 001e 02cb | | Declare_Variable Entry 001f 4801 |H | Short_Literal 0x1 0020 02cb | | Declare_Variable Entry 0021 4801 |H | Short_Literal 0x1 0022 02cb | | Declare_Variable Entry 0023 4801 |H | Short_Literal 0x1 0024 02cb | | Declare_Variable Entry 0025 4800 |H | Short_Literal 0x0 0026 02cb | | Declare_Variable Entry 0027 4802 |H | Short_Literal 0x2 0028 02cb | | Declare_Variable Entry 0029 4801 |H | Short_Literal 0x1 002a 02cb | | Declare_Variable Entry 002b 4801 |H | Short_Literal 0x1 002c 02cb | | Declare_Variable Entry 002d 4802 |H | Short_Literal 0x2 002e 02cb | | Declare_Variable Entry 002f 4800 |H | Short_Literal 0x0 0030 02cb | | Declare_Variable Entry 0031 4803 |H | Short_Literal 0x3 0032 02cb | | Declare_Variable Entry 0033 00bf | | Action Accept_Activation 0034 0092 0b67 | g| Action Push_String_Extended,0xb67 ; "Action not found" 0036 0093 0000 | | push_full_address 0x0 0038 61ff |a | Indirect_Literal Discrete,0x238,{0x80000000, 0x00010000} 0039 0273 | s | Execute Discrete,Plus 003a 0007 | | Action Break_Optional 003b 0093 0000 | | push_full_address 0x0 003d 61f6 |a | Indirect_Literal Discrete,0x234,{0x80000000, 0x00020000} 003e 0273 | s | Execute Discrete,Plus 003f 0007 | | Action Break_Optional 0040 e001 | | Load 0x0,0x1 0041 0007 | | Action Break_Optional 0042 029d 01fb | | Declare_Subprogram INIT_01f8,For_Outer_Call 0044 029d 0243 | C| Declare_Subprogram INIT_0240,For_Outer_Call 0046 029d 027b | {| Declare_Subprogram INIT_0278,For_Outer_Call 0048 029d 02ab | | Declare_Subprogram INIT_02a8,For_Outer_Call 004a e002 | | Load 0x0,0x2 004b 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 004c 0337 | 7 | Declare_Variable Array 004d 4801 |H | Short_Literal 0x1 004e 4801 |H | Short_Literal 0x1 004f 00da | | Load_Top At_Offset_2 0050 01d6 | | Execute Vector,Field_Write 0051 4801 |H | Short_Literal 0x1 0052 4802 |H | Short_Literal 0x2 0053 00da | | Load_Top At_Offset_2 0054 01d6 | | Execute Vector,Field_Write 0055 4801 |H | Short_Literal 0x1 0056 4803 |H | Short_Literal 0x3 0057 00da | | Load_Top At_Offset_2 0058 01d6 | | Execute Vector,Field_Write 0059 4801 |H | Short_Literal 0x1 005a 4809 |H | Short_Literal 0x9 005b 00da | | Load_Top At_Offset_2 005c 01d6 | | Execute Vector,Field_Write 005d 4801 |H | Short_Literal 0x1 005e 4804 |H | Short_Literal 0x4 005f 00da | | Load_Top At_Offset_2 0060 01d6 | | Execute Vector,Field_Write 0061 4801 |H | Short_Literal 0x1 0062 4805 |H | Short_Literal 0x5 0063 00da | | Load_Top At_Offset_2 0064 01d6 | | Execute Vector,Field_Write 0065 4801 |H | Short_Literal 0x1 0066 4806 |H | Short_Literal 0x6 0067 00da | | Load_Top At_Offset_2 0068 01d6 | | Execute Vector,Field_Write 0069 4801 |H | Short_Literal 0x1 006a 4807 |H | Short_Literal 0x7 006b 00da | | Load_Top At_Offset_2 006c 01d6 | | Execute Vector,Field_Write 006d 4800 |H | Short_Literal 0x0 006e 4800 |H | Short_Literal 0x0 006f 00da | | Load_Top At_Offset_2 0070 01d6 | | Execute Vector,Field_Write 0071 4800 |H | Short_Literal 0x0 0072 4808 |H | Short_Literal 0x8 0073 00da | | Load_Top At_Offset_2 0074 01d6 | | Execute Vector,Field_Write 0075 480f |H | Short_Literal 0xf 0076 480a |H | Short_Literal 0xa 0077 4800 |H | Short_Literal 0x0 0078 00d9 | | Load_Top At_Offset_1 0079 e229 | ) | Load 0x1,0x29 007a 01d6 | | Execute Vector,Field_Write 007b 3ffb |? | Loop_Increasing 0x77 007c e002 | | Load 0x0,0x2 007d 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 007e 01c3 | | Execute Vector,Check_In_Type 007f e002 | | Load 0x0,0x2 0080 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0081 e002 | | Load 0x0,0x2 0082 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 0083 03f1 | | Declare_Variable Discrete,With_Value 0084 e002 | | Load 0x0,0x2 0085 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 0086 0337 | 7 | Declare_Variable Array 0087 4801 |H | Short_Literal 0x1 0088 4803 |H | Short_Literal 0x3 0089 00da | | Load_Top At_Offset_2 008a 01d6 | | Execute Vector,Field_Write 008b 4802 |H | Short_Literal 0x2 008c 4800 |H | Short_Literal 0x0 008d 4800 |H | Short_Literal 0x0 008e 00d9 | | Load_Top At_Offset_1 008f e22a | * | Load 0x1,0x2a 0090 01d6 | | Execute Vector,Field_Write 0091 3ffb |? | Loop_Increasing 0x8d 0092 480f |H | Short_Literal 0xf 0093 4804 |H | Short_Literal 0x4 0094 4800 |H | Short_Literal 0x0 0095 00d9 | | Load_Top At_Offset_1 0096 e22a | * | Load 0x1,0x2a 0097 01d6 | | Execute Vector,Field_Write 0098 3ffb |? | Loop_Increasing 0x94 0099 e002 | | Load 0x0,0x2 009a 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 009b 01c3 | | Execute Vector,Check_In_Type 009c e002 | | Load 0x0,0x2 009d 181e | | Execute Package,Field_Execute,Field_Number 0x1e 009e e002 | | Load 0x0,0x2 009f 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 00a0 03f1 | | Declare_Variable Discrete,With_Value 00a1 e002 | | Load 0x0,0x2 00a2 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 00a3 0337 | 7 | Declare_Variable Array 00a4 4801 |H | Short_Literal 0x1 00a5 4801 |H | Short_Literal 0x1 00a6 00da | | Load_Top At_Offset_2 00a7 01d6 | | Execute Vector,Field_Write 00a8 4801 |H | Short_Literal 0x1 00a9 4802 |H | Short_Literal 0x2 00aa 00da | | Load_Top At_Offset_2 00ab 01d6 | | Execute Vector,Field_Write 00ac 4801 |H | Short_Literal 0x1 00ad 4803 |H | Short_Literal 0x3 00ae 00da | | Load_Top At_Offset_2 00af 01d6 | | Execute Vector,Field_Write 00b0 4801 |H | Short_Literal 0x1 00b1 4809 |H | Short_Literal 0x9 00b2 00da | | Load_Top At_Offset_2 00b3 01d6 | | Execute Vector,Field_Write 00b4 4801 |H | Short_Literal 0x1 00b5 4804 |H | Short_Literal 0x4 00b6 00da | | Load_Top At_Offset_2 00b7 01d6 | | Execute Vector,Field_Write 00b8 4801 |H | Short_Literal 0x1 00b9 4805 |H | Short_Literal 0x5 00ba 00da | | Load_Top At_Offset_2 00bb 01d6 | | Execute Vector,Field_Write 00bc 4801 |H | Short_Literal 0x1 00bd 4806 |H | Short_Literal 0x6 00be 00da | | Load_Top At_Offset_2 00bf 01d6 | | Execute Vector,Field_Write 00c0 4801 |H | Short_Literal 0x1 00c1 4807 |H | Short_Literal 0x7 00c2 00da | | Load_Top At_Offset_2 00c3 01d6 | | Execute Vector,Field_Write 00c4 4801 |H | Short_Literal 0x1 00c5 4808 |H | Short_Literal 0x8 00c6 00da | | Load_Top At_Offset_2 00c7 01d6 | | Execute Vector,Field_Write 00c8 4800 |H | Short_Literal 0x0 00c9 4800 |H | Short_Literal 0x0 00ca 00da | | Load_Top At_Offset_2 00cb 01d6 | | Execute Vector,Field_Write 00cc 480f |H | Short_Literal 0xf 00cd 480a |H | Short_Literal 0xa 00ce 4800 |H | Short_Literal 0x0 00cf 00d9 | | Load_Top At_Offset_1 00d0 e22b | + | Load 0x1,0x2b 00d1 01d6 | | Execute Vector,Field_Write 00d2 3ffb |? | Loop_Increasing 0xce 00d3 e002 | | Load 0x0,0x2 00d4 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 00d5 01c3 | | Execute Vector,Check_In_Type 00d6 e002 | | Load 0x0,0x2 00d7 181e | | Execute Package,Field_Execute,Field_Number 0x1e 00d8 e002 | | Load 0x0,0x2 00d9 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 00da 03f1 | | Declare_Variable Discrete,With_Value 00db e002 | | Load 0x0,0x2 00dc 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 00dd 0337 | 7 | Declare_Variable Array 00de 4801 |H | Short_Literal 0x1 00df 480d |H | Short_Literal 0xd 00e0 00da | | Load_Top At_Offset_2 00e1 01d6 | | Execute Vector,Field_Write 00e2 480c |H | Short_Literal 0xc 00e3 4800 |H | Short_Literal 0x0 00e4 4800 |H | Short_Literal 0x0 00e5 00d9 | | Load_Top At_Offset_1 00e6 e22c | , | Load 0x1,0x2c 00e7 01d6 | | Execute Vector,Field_Write 00e8 3ffb |? | Loop_Increasing 0xe4 00e9 4800 |H | Short_Literal 0x0 00ea 480e |H | Short_Literal 0xe 00eb 00da | | Load_Top At_Offset_2 00ec 01d6 | | Execute Vector,Field_Write 00ed 4800 |H | Short_Literal 0x0 00ee 480f |H | Short_Literal 0xf 00ef 00da | | Load_Top At_Offset_2 00f0 01d6 | | Execute Vector,Field_Write 00f1 e002 | | Load 0x0,0x2 00f2 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 00f3 01c3 | | Execute Vector,Check_In_Type 00f4 e002 | | Load 0x0,0x2 00f5 181e | | Execute Package,Field_Execute,Field_Number 0x1e 00f6 e002 | | Load 0x0,0x2 00f7 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 00f8 03f1 | | Declare_Variable Discrete,With_Value 00f9 e002 | | Load 0x0,0x2 00fa 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 00fb 0337 | 7 | Declare_Variable Array 00fc 4801 |H | Short_Literal 0x1 00fd 480e |H | Short_Literal 0xe 00fe 00da | | Load_Top At_Offset_2 00ff 01d6 | | Execute Vector,Field_Write 0100 4801 |H | Short_Literal 0x1 0101 480d |H | Short_Literal 0xd 0102 00da | | Load_Top At_Offset_2 0103 01d6 | | Execute Vector,Field_Write 0104 480c |H | Short_Literal 0xc 0105 4800 |H | Short_Literal 0x0 0106 4800 |H | Short_Literal 0x0 0107 00d9 | | Load_Top At_Offset_1 0108 e22d | - | Load 0x1,0x2d 0109 01d6 | | Execute Vector,Field_Write 010a 3ffb |? | Loop_Increasing 0x106 010b 4800 |H | Short_Literal 0x0 010c 480f |H | Short_Literal 0xf 010d 00da | | Load_Top At_Offset_2 010e 01d6 | | Execute Vector,Field_Write 010f e002 | | Load 0x0,0x2 0110 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 0111 01c3 | | Execute Vector,Check_In_Type 0112 e002 | | Load 0x0,0x2 0113 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0114 e002 | | Load 0x0,0x2 0115 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 0116 03f1 | | Declare_Variable Discrete,With_Value 0117 e002 | | Load 0x0,0x2 0118 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 0119 0337 | 7 | Declare_Variable Array 011a 4801 |H | Short_Literal 0x1 011b 480f |H | Short_Literal 0xf 011c 00da | | Load_Top At_Offset_2 011d 01d6 | | Execute Vector,Field_Write 011e 480e |H | Short_Literal 0xe 011f 4800 |H | Short_Literal 0x0 0120 4800 |H | Short_Literal 0x0 0121 00d9 | | Load_Top At_Offset_1 0122 e22e | . | Load 0x1,0x2e 0123 01d6 | | Execute Vector,Field_Write 0124 3ffb |? | Loop_Increasing 0x120 0125 e002 | | Load 0x0,0x2 0126 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 0127 01c3 | | Execute Vector,Check_In_Type 0128 e002 | | Load 0x0,0x2 0129 181e | | Execute Package,Field_Execute,Field_Number 0x1e 012a e002 | | Load 0x0,0x2 012b 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 012c 03f1 | | Declare_Variable Discrete,With_Value 012d 029d 02b3 | | Declare_Subprogram INIT_02b0,For_Outer_Call 012f 029d 033b | ;| Declare_Subprogram INIT_0338,For_Outer_Call 0131 029d 034b | K| Declare_Subprogram INIT_0348,For_Outer_Call 0133 a003 | | Store_Unchecked 0x0,0x3 0134 00c6 | | Action Check_Subprogram_Elaborated 0135 00e2 | | Load_Encached Integer_Cache 0136 1d31 | 1 | Execute_Immediate Reference_Lex_1,0x31 0137 4800 |H | Short_Literal 0x0 0138 0093 0000 | | push_full_address 0x0 013a 60f5 |` | Indirect_Literal Discrete,0x230,{0x80000000, 0x00060000} 013b 0273 | s | Execute Discrete,Plus 013c e004 | | Load 0x0,0x4 013d 0273 | s | Execute Discrete,Plus 013e e005 | | Load 0x0,0x5 013f 0273 | s | Execute Discrete,Plus 0140 4800 |H | Short_Literal 0x0 0141 0007 | | Action Break_Optional 0142 029d 034b | K| Declare_Subprogram INIT_0348,For_Outer_Call 0144 029d 0363 | c| Declare_Subprogram INIT_0360,For_Outer_Call 0146 a006 | | Store_Unchecked 0x0,0x6 0147 00c6 | | Action Check_Subprogram_Elaborated 0148 00e2 | | Load_Encached Integer_Cache 0149 00e2 | | Load_Encached Integer_Cache 014a 1d37 | 7 | Execute_Immediate Reference_Lex_1,0x37 014b 1d38 | 8 | Execute_Immediate Reference_Lex_1,0x38 014c 0093 0000 | | push_full_address 0x0 014e 60dd |` | Indirect_Literal Discrete,0x22c,{0x80000000, 0x00050000} 014f 0273 | s | Execute Discrete,Plus 0150 e004 | | Load 0x0,0x4 0151 0273 | s | Execute Discrete,Plus 0152 e007 | | Load 0x0,0x7 0153 0273 | s | Execute Discrete,Plus 0154 4800 |H | Short_Literal 0x0 0155 0007 | | Action Break_Optional 0156 029d 037b | {| Declare_Subprogram INIT_0378,For_Outer_Call 0158 029d 0393 | | Declare_Subprogram INIT_0390,For_Outer_Call 015a 029d 03f3 | | Declare_Subprogram INIT_03f0,For_Outer_Call 015c 029d 0403 | | Declare_Subprogram INIT_0400,For_Outer_Call 015e 029d 0413 | | Declare_Subprogram INIT_0410,For_Outer_Call 0160 029d 043b | ;| Declare_Subprogram INIT_0438,For_Outer_Call 0162 029d 044b | K| Declare_Subprogram INIT_0448,For_Outer_Call 0164 029d 048b | | Declare_Subprogram INIT_0488,For_Outer_Call 0166 029d 04a3 | | Declare_Subprogram INIT_04a0,For_Outer_Call 0168 029d 04c3 | | Declare_Subprogram INIT_04c0,For_Outer_Call 016a 029d 04db | | Declare_Subprogram INIT_04d8,For_Outer_Call 016c 029d 0553 | S| Declare_Subprogram INIT_0550,For_Outer_Call 016e 029d 0563 | c| Declare_Subprogram INIT_0560,For_Outer_Call 0170 029d 057b | {| Declare_Subprogram INIT_0578,For_Outer_Call 0172 029d 0593 | | Declare_Subprogram INIT_0590,For_Outer_Call 0174 029d 05cb | | Declare_Subprogram INIT_05c8,For_Outer_Call 0176 029d 0603 | | Declare_Subprogram INIT_0600,For_Outer_Call 0178 029d 0643 | C| Declare_Subprogram INIT_0640,For_Outer_Call 017a 029d 066b | k| Declare_Subprogram INIT_0668,For_Outer_Call 017c 029d 0363 | c| Declare_Subprogram INIT_0360,For_Outer_Call 017e a006 | | Store_Unchecked 0x0,0x6 017f 00c6 | | Action Check_Subprogram_Elaborated 0180 00e2 | | Load_Encached Integer_Cache 0181 00e2 | | Load_Encached Integer_Cache 0182 1d51 | Q | Execute_Immediate Reference_Lex_1,0x51 0183 1d52 | R | Execute_Immediate Reference_Lex_1,0x52 0184 0093 0000 | | push_full_address 0x0 0186 60a1 |` | Indirect_Literal Discrete,0x228,{0x80000000, 0x00040000} 0187 0273 | s | Execute Discrete,Plus 0188 e004 | | Load 0x0,0x4 0189 0273 | s | Execute Discrete,Plus 018a e008 | | Load 0x0,0x8 018b 0273 | s | Execute Discrete,Plus 018c 4800 |H | Short_Literal 0x0 018d 0007 | | Action Break_Optional 018e 029d 066b | k| Declare_Subprogram INIT_0668,For_Outer_Call 0190 a003 | | Store_Unchecked 0x0,0x3 0191 00c6 | | Action Check_Subprogram_Elaborated 0192 00e2 | | Load_Encached Integer_Cache 0193 1d59 | Y | Execute_Immediate Reference_Lex_1,0x59 0194 4800 |H | Short_Literal 0x0 0195 0093 0000 | | push_full_address 0x0 0197 608c |` | Indirect_Literal Discrete,0x224,{0x80000000, 0x00030000} 0198 0273 | s | Execute Discrete,Plus 0199 e004 | | Load 0x0,0x4 019a 0273 | s | Execute Discrete,Plus 019b e009 | | Load 0x0,0x9 019c 0273 | s | Execute Discrete,Plus 019d 4800 |H | Short_Literal 0x0 019e 0007 | | Action Break_Optional 019f 029d 0683 | | Declare_Subprogram INIT_0680,For_Outer_Call 01a1 029d 069b | | Declare_Subprogram INIT_0698,For_Outer_Call 01a3 029d 06c3 | | Declare_Subprogram INIT_06c0,For_Outer_Call 01a5 029d 06d3 | | Declare_Subprogram INIT_06d0,For_Outer_Call 01a7 029d 0363 | c| Declare_Subprogram INIT_0360,For_Outer_Call 01a9 a006 | | Store_Unchecked 0x0,0x6 01aa 00c6 | | Action Check_Subprogram_Elaborated 01ab 00e2 | | Load_Encached Integer_Cache 01ac 00e2 | | Load_Encached Integer_Cache 01ad 1d62 | b | Execute_Immediate Reference_Lex_1,0x62 01ae 1d63 | c | Execute_Immediate Reference_Lex_1,0x63 01af 0093 0000 | | push_full_address 0x0 01b1 606e |`n | Indirect_Literal Discrete,0x220,{0x80000000, 0x00020000} 01b2 0273 | s | Execute Discrete,Plus 01b3 e004 | | Load 0x0,0x4 01b4 0273 | s | Execute Discrete,Plus 01b5 e00a | | Load 0x0,0xa 01b6 0273 | s | Execute Discrete,Plus 01b7 4800 |H | Short_Literal 0x0 01b8 0007 | | Action Break_Optional 01b9 029d 06eb | | Declare_Subprogram INIT_06e8,For_Outer_Call 01bb 029d 0723 | #| Declare_Subprogram INIT_0720,For_Outer_Call 01bd 029d 078b | | Declare_Subprogram INIT_0788,For_Outer_Call 01bf 029d 079b | | Declare_Subprogram INIT_0798,For_Outer_Call 01c1 a003 | | Store_Unchecked 0x0,0x3 01c2 00c6 | | Action Check_Subprogram_Elaborated 01c3 e001 | | Load 0x0,0x1 01c4 1d6d | m | Execute_Immediate Reference_Lex_1,0x6d 01c5 4800 |H | Short_Literal 0x0 01c6 0093 0000 | | push_full_address 0x0 01c8 6053 |`S | Indirect_Literal Discrete,0x21c,{0x80000000, 0x00010000} 01c9 0273 | s | Execute Discrete,Plus 01ca e004 | | Load 0x0,0x4 01cb 0273 | s | Execute Discrete,Plus 01cc e00b | | Load 0x0,0xb 01cd 0273 | s | Execute Discrete,Plus 01ce 4800 |H | Short_Literal 0x0 01cf 0007 | | Action Break_Optional 01d0 029d 07b3 | | Declare_Subprogram INIT_07b0,For_Outer_Call 01d2 029d 07cb | | Declare_Subprogram INIT_07c8,For_Outer_Call 01d4 029d 07e3 | | Declare_Subprogram INIT_07e0,For_Outer_Call 01d6 029d 0803 | | Declare_Subprogram INIT_0800,For_Outer_Call 01d8 481f |H | Short_Literal 0x1f 01d9 0299 0873 | s| Declare_Subprogram INIT_0870,For_Accept 01db 029f 087b | {| Declare_Subprogram INIT_0878,For_Call 01dd 00bc | | Action Signal_Activated 01de BODY_0008: 01de BODY_0008: 01de 1d77 | w | Execute_Immediate Reference_Lex_1,0x77 01df 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 01e0 0137 | 7 | Execute Entry,Rendezvous 01e1 00cf | | Action Mark_Auxiliary 01e2 4864 |Hd | Short_Literal 0x64 01e3 4801 |H | Short_Literal 0x1 01e4 0007 | | Action Break_Optional 01e5 4800 |H | Short_Literal 0x0 01e6 00d9 | | Load_Top At_Offset_1 01e7 e00c | | Load 0x0,0xc 01e8 01d5 | | Execute Vector,Field_Reference 01e9 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 01ea 00c8 | | Action Pop_Auxiliary_Range 01eb 3ff9 |? | Loop_Increasing 0x1e5 01ec 00ce | | Action Pop_Auxiliary 01ed 4801 |H | Short_Literal 0x1 01ee a224 | $ | Store_Unchecked 0x1,0x24 01ef 00cf | | Action Mark_Auxiliary 01f0 8278 | x | Call 0x1,0x78 01f1 00c9 | | Action Pop_Auxiliary_Loop 01f2 7ffd | | Jump 0x1f0 01f3 0000 0000 | | .BLANK 0000[0x5] 01f8 ; -------------------------------------------------------------------------------------- 01f8 ; SUBPROGRAM 01f8 ; -------------------------------------------------------------------------------------- 01f8 01fb | | .CONST 0x01fb ; Address of begin 01f9 0217 | | .CONST 0x0217 ; Address of exception handler 01fa 0001 | | .CONST 0x0001 ; Number of locals 01fb BODY_01f8: 01fb INIT_01f8: 01fb 00db | | Load_Top At_Offset_3 01fc e002 | | Load 0x0,0x2 01fd 181e | | Execute Package,Field_Execute,Field_Number 0x1e 01fe e5fd | | Load 0x2,-0x3 01ff 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0200 00da | | Load_Top At_Offset_2 0201 800d | | Call 0x0,0xd 0202 7007 |p | Jump_Nonzero 0x20a 0203 00db | | Load_Top At_Offset_3 0204 00db | | Load_Top At_Offset_3 0205 e00e | | Load 0x0,0xe 0206 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 0207 e002 | | Load 0x0,0x2 0208 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 0209 4503 |E | Exit_Suprogram New_Top_Offset 0x3 020a 4801 |H | Short_Literal 0x1 020b 00db | | Load_Top At_Offset_3 020c 800f | | Call 0x0,0xf 020d 00da | | Load_Top At_Offset_2 020e 800d | | Call 0x0,0xd 020f 7006 |p | Jump_Nonzero 0x216 0210 00db | | Load_Top At_Offset_3 0211 00db | | Load_Top At_Offset_3 0212 e00e | | Load 0x0,0xe 0213 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 0214 e002 | | Load 0x0,0x2 0215 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 0216 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0217 TRAP_01f8: 0217 0007 | | Action Break_Optional 0218 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0219 0000 0000 | | .XXX[0x3] 021b 0000 | | 021c 8000 0000 | | .LITERAL {0x80000000, 0x00010000} 0220 8000 0000 | | .LITERAL {0x80000000, 0x00020000} 0224 8000 0000 | | .LITERAL {0x80000000, 0x00030000} 0228 8000 0000 | | .LITERAL {0x80000000, 0x00040000} 022c 8000 0000 | | .LITERAL {0x80000000, 0x00050000} 0230 8000 0000 | | .LITERAL {0x80000000, 0x00060000} 0234 8000 0000 | | .LITERAL {0x80000000, 0x00020000} 0238 8000 0000 | | .LITERAL {0x80000000, 0x00010000} 023c 0000 0000 | | .BLANK 0000[0x4] 0240 ; -------------------------------------------------------------------------------------- 0240 ; SUBPROGRAM 0240 ; -------------------------------------------------------------------------------------- 0240 0243 | C | .CONST 0x0243 ; Address of begin 0241 0004 | | .CONST 0x0004 ; Address of exception handler 0242 0001 | | .CONST 0x0001 ; Number of locals 0243 BODY_0240: 0243 INIT_0240: 0243 00cf | | Action Mark_Auxiliary 0244 e010 | | Load 0x0,0x10 0245 4801 |H | Short_Literal 0x1 0246 0263 | c | Execute Discrete,Above_Bound 0247 7026 |p& | Jump_Nonzero 0x26e 0248 00d8 | | Load_Top At_Offset_0 0249 e011 | | Load 0x0,0x11 024a 01d5 | | Execute Vector,Field_Reference 024b 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 024c e012 | | Load 0x0,0x12 024d 027e | ~ | Execute Discrete,Not_Equal 024e 681d |h | Jump_Zero 0x26c 024f 00d8 | | Load_Top At_Offset_0 0250 e011 | | Load 0x0,0x11 0251 01d5 | | Execute Vector,Field_Reference 0252 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0253 e013 | | Load 0x0,0x13 0254 027f | | Execute Discrete,Equal 0255 7007 |p | Jump_Nonzero 0x25d 0256 00d8 | | Load_Top At_Offset_0 0257 e011 | | Load 0x0,0x11 0258 01d5 | | Execute Vector,Field_Reference 0259 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 025a e5ff | | Load 0x2,-0x1 025b 027f | | Execute Discrete,Equal 025c 680f |h | Jump_Zero 0x26c 025d 00d8 | | Load_Top At_Offset_0 025e e011 | | Load 0x0,0x11 025f 01d5 | | Execute Vector,Field_Reference 0260 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0261 8014 | | Call 0x0,0x14 0262 027f | | Execute Discrete,Equal 0263 7006 |p | Jump_Nonzero 0x26a 0264 00d8 | | Load_Top At_Offset_0 0265 e011 | | Load 0x0,0x11 0266 01d5 | | Execute Vector,Field_Reference 0267 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0268 8015 | | Call 0x0,0x15 0269 7002 |p | Jump_Nonzero 0x26c 026a 4801 |H | Short_Literal 0x1 026b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 026c 00c8 | | Action Pop_Auxiliary_Range 026d 3fda |? | Loop_Increasing 0x248 026e 00ce | | Action Pop_Auxiliary 026f 4800 |H | Short_Literal 0x0 0270 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0271 0000 0000 | | .BLANK 0000[0x7] 0278 ; -------------------------------------------------------------------------------------- 0278 ; SUBPROGRAM 0278 ; -------------------------------------------------------------------------------------- 0278 027b | { | .CONST 0x027b ; Address of begin 0279 0004 | | .CONST 0x0004 ; Address of exception handler 027a 0001 | | .CONST 0x0001 ; Number of locals 027b BODY_0278: 027b INIT_0278: 027b 00cf | | Action Mark_Auxiliary 027c e010 | | Load 0x0,0x10 027d 4801 |H | Short_Literal 0x1 027e 0263 | c | Execute Discrete,Above_Bound 027f 701f |p | Jump_Nonzero 0x29f 0280 00d8 | | Load_Top At_Offset_0 0281 e011 | | Load 0x0,0x11 0282 01d5 | | Execute Vector,Field_Reference 0283 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 0284 e012 | | Load 0x0,0x12 0285 027e | ~ | Execute Discrete,Not_Equal 0286 6816 |h | Jump_Zero 0x29d 0287 00d8 | | Load_Top At_Offset_0 0288 e011 | | Load 0x0,0x11 0289 01d5 | | Execute Vector,Field_Reference 028a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 028b e013 | | Load 0x0,0x13 028c 027f | | Execute Discrete,Equal 028d 7007 |p | Jump_Nonzero 0x295 028e 00d8 | | Load_Top At_Offset_0 028f e011 | | Load 0x0,0x11 0290 01d5 | | Execute Vector,Field_Reference 0291 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0292 e5ff | | Load 0x2,-0x1 0293 027f | | Execute Discrete,Equal 0294 6808 |h | Jump_Zero 0x29d 0295 00d8 | | Load_Top At_Offset_0 0296 e011 | | Load 0x0,0x11 0297 01d5 | | Execute Vector,Field_Reference 0298 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0299 8015 | | Call 0x0,0x15 029a 6802 |h | Jump_Zero 0x29d 029b 4801 |H | Short_Literal 0x1 029c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 029d 00c8 | | Action Pop_Auxiliary_Range 029e 3fe1 |? | Loop_Increasing 0x280 029f 00ce | | Action Pop_Auxiliary 02a0 4800 |H | Short_Literal 0x0 02a1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02a2 0000 0000 | | .BLANK 0000[0x6] 02a8 ; -------------------------------------------------------------------------------------- 02a8 ; SUBPROGRAM 02a8 ; -------------------------------------------------------------------------------------- 02a8 02ab | | .CONST 0x02ab ; Address of begin 02a9 0004 | | .CONST 0x0004 ; Address of exception handler 02aa 0001 | | .CONST 0x0001 ; Number of locals 02ab BODY_02a8: 02ab INIT_02a8: 02ab e5ff | | Load 0x2,-0x1 02ac e5fe | | Load 0x2,-0x2 02ad 0278 | x | Execute Discrete,Or 02ae 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 02af 0831 | 1 | .XXX[0x1] 02b0 ; -------------------------------------------------------------------------------------- 02b0 ; SUBPROGRAM 02b0 ; -------------------------------------------------------------------------------------- 02b0 02bb | | .CONST 0x02bb ; Address of begin 02b1 0327 | ' | .CONST 0x0327 ; Address of exception handler 02b2 0005 | | .CONST 0x0005 ; Number of locals 02b3 INIT_02b0: 02b3 e22e | . | Load 0x1,0x2e 02b4 0007 | | Action Break_Optional 02b5 00e1 | | Load_Encached Boolean_Cache 02b6 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 02b7 00e1 | | Load_Encached Boolean_Cache 02b8 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 02b9 029f 08b3 | | Declare_Subprogram INIT_08b0,For_Call 02bb BODY_02b0: 02bb e5ff | | Load 0x2,-0x1 02bc 8016 | | Call 0x0,0x16 02bd e5fe | | Load 0x2,-0x2 02be 380e |8 | Execute Record,Field_Write,Field_Number 0xe 02bf e017 | | Load 0x0,0x17 02c0 6804 |h | Jump_Zero 0x2c5 02c1 e229 | ) | Load 0x1,0x29 02c2 4801 |H | Short_Literal 0x1 02c3 4801 |H | Short_Literal 0x1 02c4 8405 | | Call 0x2,0x5 02c5 e5ff | | Load 0x2,-0x1 02c6 8018 | | Call 0x0,0x18 02c7 6804 |h | Jump_Zero 0x2cc 02c8 e229 | ) | Load 0x1,0x29 02c9 4800 |H | Short_Literal 0x0 02ca 4801 |H | Short_Literal 0x1 02cb 8405 | | Call 0x2,0x5 02cc e5ff | | Load 0x2,-0x1 02cd e019 | | Load 0x0,0x19 02ce 027f | | Execute Discrete,Equal 02cf 6804 |h | Jump_Zero 0x2d4 02d0 e229 | ) | Load 0x1,0x29 02d1 4801 |H | Short_Literal 0x1 02d2 4800 |H | Short_Literal 0x0 02d3 8405 | | Call 0x2,0x5 02d4 e01a | | Load 0x0,0x1a 02d5 6804 |h | Jump_Zero 0x2da 02d6 e229 | ) | Load 0x1,0x29 02d7 4801 |H | Short_Literal 0x1 02d8 4800 |H | Short_Literal 0x0 02d9 8405 | | Call 0x2,0x5 02da e5ff | | Load 0x2,-0x1 02db 801b | | Call 0x0,0x1b 02dc 6804 |h | Jump_Zero 0x2e1 02dd e22a | * | Load 0x1,0x2a 02de 4801 |H | Short_Literal 0x1 02df 4800 |H | Short_Literal 0x0 02e0 8405 | | Call 0x2,0x5 02e1 e5ff | | Load 0x2,-0x1 02e2 801c | | Call 0x0,0x1c 02e3 6804 |h | Jump_Zero 0x2e8 02e4 e229 | ) | Load 0x1,0x29 02e5 4801 |H | Short_Literal 0x1 02e6 4800 |H | Short_Literal 0x0 02e7 8405 | | Call 0x2,0x5 02e8 e5fe | | Load 0x2,-0x2 02e9 3c09 |< | Execute Record,Field_Read,Field_Number 0x9 02ea 6804 |h | Jump_Zero 0x2ef 02eb e229 | ) | Load 0x1,0x29 02ec 4800 |H | Short_Literal 0x0 02ed 4800 |H | Short_Literal 0x0 02ee 8405 | | Call 0x2,0x5 02ef e5fe | | Load 0x2,-0x2 02f0 3c0e |< | Execute Record,Field_Read,Field_Number 0xe 02f1 6804 |h | Jump_Zero 0x2f6 02f2 e229 | ) | Load 0x1,0x29 02f3 4800 |H | Short_Literal 0x0 02f4 4800 |H | Short_Literal 0x0 02f5 8405 | | Call 0x2,0x5 02f6 e5fe | | Load 0x2,-0x2 02f7 3c0b |< | Execute Record,Field_Read,Field_Number 0xb 02f8 6804 |h | Jump_Zero 0x2fd 02f9 e229 | ) | Load 0x1,0x29 02fa 4800 |H | Short_Literal 0x0 02fb 4800 |H | Short_Literal 0x0 02fc 8405 | | Call 0x2,0x5 02fd e5ff | | Load 0x2,-0x1 02fe e01d | | Load 0x0,0x1d 02ff 027f | | Execute Discrete,Equal 0300 6804 |h | Jump_Zero 0x305 0301 e22b | + | Load 0x1,0x2b 0302 4801 |H | Short_Literal 0x1 0303 4800 |H | Short_Literal 0x0 0304 8405 | | Call 0x2,0x5 0305 e5fe | | Load 0x2,-0x2 0306 3c0f |< | Execute Record,Field_Read,Field_Number 0xf 0307 6804 |h | Jump_Zero 0x30c 0308 e22d | - | Load 0x1,0x2d 0309 4801 |H | Short_Literal 0x1 030a 4801 |H | Short_Literal 0x1 030b 8405 | | Call 0x2,0x5 030c e5ff | | Load 0x2,-0x1 030d 8226 | & | Call 0x1,0x26 030e 6804 |h | Jump_Zero 0x313 030f e22d | - | Load 0x1,0x2d 0310 4801 |H | Short_Literal 0x1 0311 4801 |H | Short_Literal 0x1 0312 8405 | | Call 0x2,0x5 0313 e5ff | | Load 0x2,-0x1 0314 8227 | ' | Call 0x1,0x27 0315 6804 |h | Jump_Zero 0x31a 0316 e22c | , | Load 0x1,0x2c 0317 4801 |H | Short_Literal 0x1 0318 4801 |H | Short_Literal 0x1 0319 8405 | | Call 0x2,0x5 031a e5fe | | Load 0x2,-0x2 031b e402 | | Load 0x2,0x2 031c e002 | | Load 0x0,0x2 031d 181f | | Execute Package,Field_Execute,Field_Number 0x1f 031e e5ff | | Load 0x2,-0x1 031f 8225 | % | Call 0x1,0x25 0320 00d1 | | Pop_Control Pop_Count_1 0321 00d9 | | Load_Top At_Offset_1 0322 00db | | Load_Top At_Offset_3 0323 e5ff | | Load 0x2,-0x1 0324 801e | | Call 0x0,0x1e 0325 801f | | Call 0x0,0x1f 0326 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0327 TRAP_02b0: 0327 0007 | | Action Break_Optional 0328 e5ff | | Load 0x2,-0x1 0329 e002 | | Load 0x0,0x2 032a 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b 032b 7004 |p | Jump_Nonzero 0x330 032c 4800 |H | Short_Literal 0x0 032d 4802 |H | Short_Literal 0x2 032e e5ff | | Load 0x2,-0x1 032f 8020 | | Call 0x0,0x20 0330 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0331 0000 0000 | | .BLANK 0000[0x7] 0338 ; -------------------------------------------------------------------------------------- 0338 ; SUBPROGRAM 0338 ; -------------------------------------------------------------------------------------- 0338 033b | ; | .CONST 0x033b ; Address of begin 0339 0004 | | .CONST 0x0004 ; Address of exception handler 033a 0001 | | .CONST 0x0001 ; Number of locals 033b BODY_0338: 033b INIT_0338: 033b e021 | ! | Load 0x0,0x21 033c e5fe | | Load 0x2,-0x2 033d e5ff | | Load 0x2,-0x1 033e 822f | / | Call 0x1,0x2f 033f 00d1 | | Pop_Control Pop_Count_1 0340 c021 | ! | Store 0x0,0x21 0341 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0342 0000 0000 | | .BLANK 0000[0x6] 0348 ; -------------------------------------------------------------------------------------- 0348 ; SUBPROGRAM 0348 ; SUBPROGRAM 0348 ; -------------------------------------------------------------------------------------- 0348 034b | K | .CONST 0x034b ; Address of begin 0349 0004 | | .CONST 0x0004 ; Address of exception handler 034a 0001 | | .CONST 0x0001 ; Number of locals 034b BODY_0348: 034b BODY_0348: 034b INIT_0348: 034b INIT_0348: 034b e5fd | | Load 0x2,-0x3 034c 00e2 | | Load_Encached Integer_Cache 034d 025e | ^ | Execute Discrete,Convert 034e e5fe | | Load 0x2,-0x2 034f e5ff | | Load 0x2,-0x1 0350 e022 | " | Load 0x0,0x22 0351 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0352 00d9 | | Load_Top At_Offset_1 0353 00d0 | | Action Swap_Control 0354 0260 | ` | Execute Discrete,In_Type 0355 7001 |p | Jump_Nonzero 0x357 0356 0801 | | Execute_Immediate Raise,0x1 0357 822f | / | Call 0x1,0x2f 0358 00d1 | | Pop_Control Pop_Count_1 0359 c5fd | | Store 0x2,-0x3 035a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 035b 0000 0000 | | .BLANK 0000[0x5] 0360 ; -------------------------------------------------------------------------------------- 0360 ; SUBPROGRAM 0360 ; SUBPROGRAM 0360 ; SUBPROGRAM 0360 ; -------------------------------------------------------------------------------------- 0360 0363 | c | .CONST 0x0363 ; Address of begin 0361 0004 | | .CONST 0x0004 ; Address of exception handler 0362 0001 | | .CONST 0x0001 ; Number of locals 0363 BODY_0360: 0363 BODY_0360: 0363 BODY_0360: 0363 INIT_0360: 0363 INIT_0360: 0363 INIT_0360: 0363 e5fd | | Load 0x2,-0x3 0364 00d8 | | Load_Top At_Offset_0 0365 00e2 | | Load_Encached Integer_Cache 0366 0260 | ` | Execute Discrete,In_Type 0367 7001 |p | Jump_Nonzero 0x369 0368 0801 | | Execute_Immediate Raise,0x1 0369 e5fe | | Load 0x2,-0x2 036a e5ff | | Load 0x2,-0x1 036b e022 | " | Load 0x0,0x22 036c 1b15 | | Execute Package,Field_Read,Field_Number 0x15 036d 00d9 | | Load_Top At_Offset_1 036e 00d0 | | Action Swap_Control 036f 0260 | ` | Execute Discrete,In_Type 0370 7001 |p | Jump_Nonzero 0x372 0371 0801 | | Execute_Immediate Raise,0x1 0372 8023 | # | Call 0x0,0x23 0373 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0374 0000 0000 | | .BLANK 0000[0x4] 0378 ; -------------------------------------------------------------------------------------- 0378 ; SUBPROGRAM 0378 ; -------------------------------------------------------------------------------------- 0378 037d | } | .CONST 0x037d ; Address of begin 0379 0004 | | .CONST 0x0004 ; Address of exception handler 037a 0002 | | .CONST 0x0002 ; Number of locals 037b INIT_0378: 037b 029f 08c3 | | Declare_Subprogram INIT_08c0,For_Call 037d BODY_0378: 037d 00db | | Load_Top At_Offset_3 037e e013 | | Load 0x0,0x13 037f 027f | | Execute Discrete,Equal 0380 680a |h | Jump_Zero 0x38b 0381 e021 | ! | Load 0x0,0x21 0382 00d8 | | Load_Top At_Offset_0 0383 e239 | 9 | Load 0x1,0x39 0384 e23a | : | Load 0x1,0x3a 0385 1d3b | ; | Execute_Immediate Reference_Lex_1,0x3b 0386 1d3c | < | Execute_Immediate Reference_Lex_1,0x3c 0387 1d3d | = | Execute_Immediate Reference_Lex_1,0x3d 0388 8006 | | Call 0x0,0x6 0389 c021 | ! | Store 0x0,0x21 038a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 038b 8402 | | Call 0x2,0x2 038c 4502 |E | Exit_Suprogram New_Top_Offset 0x2 038d 0000 0000 | | .XXX[0x3] 038f 0000 | | 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 08d3 | | Declare_Subprogram INIT_08d0,For_Call 0395 029f 08fb | | Declare_Subprogram INIT_08f8,For_Call 0397 BODY_0390: 0397 e5fe | | Load 0x2,-0x2 0398 e024 | $ | Load 0x0,0x24 0399 027f | | Execute Discrete,Equal 039a 6802 |h | Jump_Zero 0x39d 039b e025 | % | Load 0x0,0x25 039c 0257 | W | Execute Discrete,Raise 039d e5ff | | Load 0x2,-0x1 039e e013 | | Load 0x0,0x13 039f 027f | | Execute Discrete,Equal 03a0 6826 |h& | Jump_Zero 0x3c7 03a1 00cf | | Action Mark_Auxiliary 03a2 e026 | & | Load 0x0,0x26 03a3 4801 |H | Short_Literal 0x1 03a4 0263 | c | Execute Discrete,Above_Bound 03a5 700d |p | Jump_Nonzero 0x3b3 03a6 00d8 | | Load_Top At_Offset_0 03a7 e027 | ' | Load 0x0,0x27 03a8 01d7 | | Execute Vector,Field_Read 03a9 e024 | $ | Load 0x0,0x24 03aa 027f | | Execute Discrete,Equal 03ab 6805 |h | Jump_Zero 0x3b1 03ac 00d8 | | Load_Top At_Offset_0 03ad 8402 | | Call 0x2,0x2 03ae e013 | | Load 0x0,0x13 03af 823f | ? | Call 0x1,0x3f 03b0 4507 |E | Exit_Suprogram New_Top_Offset 0x7 03b1 00c8 | | Action Pop_Auxiliary_Range 03b2 3ff3 |? | Loop_Increasing 0x3a6 03b3 00ce | | Action Pop_Auxiliary 03b4 e017 | | Load 0x0,0x17 03b5 0f14 | | Execute_Immediate Equal,0x14 03b6 6802 |h | Jump_Zero 0x3b9 03b7 e028 | ( | Load 0x0,0x28 03b8 0257 | W | Execute Discrete,Raise 03b9 e026 | & | Load 0x0,0x26 03ba 0a01 | | Execute_Immediate Plus,0x1 03bb 00d8 | | Load_Top At_Offset_0 03bc 00e3 | | Load_Encached Natural_Cache 03bd 0260 | ` | Execute Discrete,In_Type 03be 7001 |p | Jump_Nonzero 0x3c0 03bf 0801 | | Execute_Immediate Raise,0x1 03c0 8402 | | Call 0x2,0x2 03c1 e026 | & | Load 0x0,0x26 03c2 0a01 | | Execute_Immediate Plus,0x1 03c3 c026 | & | Store 0x0,0x26 03c4 e013 | | Load 0x0,0x13 03c5 823f | ? | Call 0x1,0x3f 03c6 4507 |E | Exit_Suprogram New_Top_Offset 0x7 03c7 00cf | | Action Mark_Auxiliary 03c8 e029 | ) | Load 0x0,0x29 03c9 4801 |H | Short_Literal 0x1 03ca 0263 | c | Execute Discrete,Above_Bound 03cb 700e |p | Jump_Nonzero 0x3da 03cc 00d8 | | Load_Top At_Offset_0 03cd e02a | * | Load 0x0,0x2a 03ce 01d5 | | Execute Vector,Field_Reference 03cf 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 03d0 e024 | $ | Load 0x0,0x24 03d1 027f | | Execute Discrete,Equal 03d2 6805 |h | Jump_Zero 0x3d8 03d3 00d8 | | Load_Top At_Offset_0 03d4 8403 | | Call 0x2,0x3 03d5 e5ff | | Load 0x2,-0x1 03d6 823f | ? | Call 0x1,0x3f 03d7 4507 |E | Exit_Suprogram New_Top_Offset 0x7 03d8 00c8 | | Action Pop_Auxiliary_Range 03d9 3ff2 |? | Loop_Increasing 0x3cc 03da 00ce | | Action Pop_Auxiliary 03db e02b | + | Load 0x0,0x2b 03dc 0f1e | | Execute_Immediate Equal,0x1e 03dd 6802 |h | Jump_Zero 0x3e0 03de e02c | , | Load 0x0,0x2c 03df 0257 | W | Execute Discrete,Raise 03e0 e029 | ) | Load 0x0,0x29 03e1 0a01 | | Execute_Immediate Plus,0x1 03e2 00d8 | | Load_Top At_Offset_0 03e3 00e3 | | Load_Encached Natural_Cache 03e4 0260 | ` | Execute Discrete,In_Type 03e5 7001 |p | Jump_Nonzero 0x3e7 03e6 0801 | | Execute_Immediate Raise,0x1 03e7 8403 | | Call 0x2,0x3 03e8 e029 | ) | Load 0x0,0x29 03e9 0a01 | | Execute_Immediate Plus,0x1 03ea c029 | ) | Store 0x0,0x29 03eb e5ff | | Load 0x2,-0x1 03ec 823f | ? | Call 0x1,0x3f 03ed 4507 |E | Exit_Suprogram New_Top_Offset 0x7 03ee 0000 0000 | | .XXX[0x2] 03f0 ; -------------------------------------------------------------------------------------- 03f0 ; SUBPROGRAM 03f0 ; -------------------------------------------------------------------------------------- 03f0 03f3 | | .CONST 0x03f3 ; Address of begin 03f1 0004 | | .CONST 0x0004 ; Address of exception handler 03f2 0001 | | .CONST 0x0001 ; Number of locals 03f3 BODY_03f0: 03f3 INIT_03f0: 03f3 00da | | Load_Top At_Offset_2 03f4 c02d | - | Store 0x0,0x2d 03f5 4801 |H | Short_Literal 0x1 03f6 c01a | | Store 0x0,0x1a 03f7 e013 | | Load 0x0,0x13 03f8 823f | ? | Call 0x1,0x3f 03f9 4502 |E | Exit_Suprogram New_Top_Offset 0x2 03fa 0000 0000 | | .BLANK 0000[0x6] 0400 ; -------------------------------------------------------------------------------------- 0400 ; SUBPROGRAM 0400 ; -------------------------------------------------------------------------------------- 0400 0403 | | .CONST 0x0403 ; Address of begin 0401 0004 | | .CONST 0x0004 ; Address of exception handler 0402 0001 | | .CONST 0x0001 ; Number of locals 0403 BODY_0400: 0403 INIT_0400: 0403 00db | | Load_Top At_Offset_3 0404 e5fd | | Load 0x2,-0x3 0405 380a |8 | Execute Record,Field_Write,Field_Number 0xa 0406 4801 |H | Short_Literal 0x1 0407 e5fd | | Load 0x2,-0x3 0408 3809 |8 | Execute Record,Field_Write,Field_Number 0x9 0409 e5fd | | Load 0x2,-0x3 040a 00db | | Load_Top At_Offset_3 040b 8230 | 0 | Call 0x1,0x30 040c 4503 |E | Exit_Suprogram New_Top_Offset 0x3 040d 0000 0000 | | .XXX[0x3] 040f 0000 | | 0410 ; -------------------------------------------------------------------------------------- 0410 ; SUBPROGRAM 0410 ; -------------------------------------------------------------------------------------- 0410 0413 | | .CONST 0x0413 ; Address of begin 0411 0004 | | .CONST 0x0004 ; Address of exception handler 0412 0001 | | .CONST 0x0001 ; Number of locals 0413 BODY_0410: 0413 INIT_0410: 0413 e019 | | Load 0x0,0x19 0414 e013 | | Load 0x0,0x13 0415 027f | | Execute Discrete,Equal 0416 7004 |p | Jump_Nonzero 0x41b 0417 e019 | | Load 0x0,0x19 0418 00db | | Load_Top At_Offset_3 0419 027f | | Execute Discrete,Equal 041a 680e |h | Jump_Zero 0x429 041b e013 | | Load 0x0,0x13 041c c019 | | Store 0x0,0x19 041d 00db | | Load_Top At_Offset_3 041e c02e | . | Store 0x0,0x2e 041f e5fd | | Load 0x2,-0x3 0420 c02f | / | Store 0x0,0x2f 0421 e5fc | | Load 0x2,-0x4 0422 c030 | 0 | Store 0x0,0x30 0423 4800 |H | Short_Literal 0x0 0424 e5fb | | Load 0x2,-0x5 0425 380b |8 | Execute Record,Field_Write,Field_Number 0xb 0426 00da | | Load_Top At_Offset_2 0427 c019 | | Store 0x0,0x19 0428 7809 |x | Jump 0x432 0429 e5fd | | Load 0x2,-0x3 042a e5fb | | Load 0x2,-0x5 042b 380c |8 | Execute Record,Field_Write,Field_Number 0xc 042c e5fc | | Load 0x2,-0x4 042d e5fb | | Load 0x2,-0x5 042e 380d |8 | Execute Record,Field_Write,Field_Number 0xd 042f 00db | | Load_Top At_Offset_3 0430 e5fb | | Load 0x2,-0x5 0431 380b |8 | Execute Record,Field_Write,Field_Number 0xb 0432 e5fb | | Load 0x2,-0x5 0433 00db | | Load_Top At_Offset_3 0434 8230 | 0 | Call 0x1,0x30 0435 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0436 0000 0000 | | .XXX[0x2] 0438 ; -------------------------------------------------------------------------------------- 0438 ; SUBPROGRAM 0438 ; -------------------------------------------------------------------------------------- 0438 043f | ? | .CONST 0x043f ; Address of begin 0439 0004 | | .CONST 0x0004 ; Address of exception handler 043a 0003 | | .CONST 0x0003 ; Number of locals 043b INIT_0438: 043b 029f 092b | +| Declare_Subprogram INIT_0928,For_Call 043d 029f 0953 | S| Declare_Subprogram INIT_0950,For_Call 043f BODY_0438: 043f 8403 | | Call 0x2,0x3 0440 4801 |H | Short_Literal 0x1 0441 e5f8 | | Load 0x2,-0x8 0442 380e |8 | Execute Record,Field_Write,Field_Number 0xe 0443 e5f8 | | Load 0x2,-0x8 0444 e5ff | | Load 0x2,-0x1 0445 8230 | 0 | Call 0x1,0x30 0446 4508 |E | Exit_Suprogram New_Top_Offset 0x8 0447 0000 | | .XXX[0x1] 0448 ; -------------------------------------------------------------------------------------- 0448 ; SUBPROGRAM 0448 ; -------------------------------------------------------------------------------------- 0448 0456 | V | .CONST 0x0456 ; Address of begin 0449 0004 | | .CONST 0x0004 ; Address of exception handler 044a 0005 | | .CONST 0x0005 ; Number of locals 044b INIT_0448: 044b e031 | 1 | Load 0x0,0x31 044c 0337 | 7 | Declare_Variable Array 044d e032 | 2 | Load 0x0,0x32 044e 00d9 | | Load_Top At_Offset_1 044f 01d4 | | Execute Vector,Structure_Write 0450 00e3 | | Load_Encached Natural_Cache 0451 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0452 029f 098b | | Declare_Subprogram INIT_0988,For_Call 0454 029f 09bb | | Declare_Subprogram INIT_09b8,For_Call 0456 BODY_0448: 0456 e5fc | | Load 0x2,-0x4 0457 e033 | 3 | Load 0x0,0x33 0458 017f | | Execute Record,Equal 0459 6801 |h | Jump_Zero 0x45b 045a 781e |x | Jump 0x479 045b e5fb | | Load 0x2,-0x5 045c 0f00 | | Execute_Immediate Equal,0x0 045d 680b |h | Jump_Zero 0x469 045e 00e3 | | Load_Encached Natural_Cache 045f e402 | | Load 0x2,0x2 0460 e5fc | | Load 0x2,-0x4 0461 e5fa | | Load 0x2,-0x6 0462 8034 | 4 | Call 0x0,0x34 0463 00d1 | | Pop_Control Pop_Count_1 0464 005b | [ | Store_Top Discrete,At_Offset_3 0465 00da | | Load_Top At_Offset_2 0466 7012 |p | Jump_Nonzero 0x479 0467 e025 | % | Load 0x0,0x25 0468 0257 | W | Execute Discrete,Raise 0469 e5fb | | Load 0x2,-0x5 046a e5fc | | Load 0x2,-0x4 046b e5fa | | Load 0x2,-0x6 046c 8035 | 5 | Call 0x0,0x35 046d 4801 |H | Short_Literal 0x1 046e e402 | | Load 0x2,0x2 046f 01d5 | | Execute Vector,Field_Reference 0470 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0471 4801 |H | Short_Literal 0x1 0472 e402 | | Load 0x2,0x2 0473 01d5 | | Execute Vector,Field_Reference 0474 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0475 4801 |H | Short_Literal 0x1 0476 e402 | | Load 0x2,0x2 0477 01d5 | | Execute Vector,Field_Reference 0478 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0479 00da | | Load_Top At_Offset_2 047a 7002 |p | Jump_Nonzero 0x47d 047b 4801 |H | Short_Literal 0x1 047c 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 047d 8405 | | Call 0x2,0x5 047e e5ff | | Load 0x2,-0x1 047f 823f | ? | Call 0x1,0x3f 0480 4508 |E | Exit_Suprogram New_Top_Offset 0x8 0481 0000 0000 | | .BLANK 0000[0x7] 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 e01d | | Load 0x0,0x1d 048c e013 | | Load 0x0,0x13 048d 027f | | Execute Discrete,Equal 048e 7006 |p | Jump_Nonzero 0x495 048f e01d | | Load 0x0,0x1d 0490 00db | | Load_Top At_Offset_3 0491 027f | | Execute Discrete,Equal 0492 7002 |p | Jump_Nonzero 0x495 0493 e036 | 6 | Load 0x0,0x36 0494 0257 | W | Execute Discrete,Raise 0495 00db | | Load_Top At_Offset_3 0496 c037 | 7 | Store 0x0,0x37 0497 e5fd | | Load 0x2,-0x3 0498 c038 | 8 | Store 0x0,0x38 0499 00da | | Load_Top At_Offset_2 049a c01d | | Store 0x0,0x1d 049b 00da | | Load_Top At_Offset_2 049c 823f | ? | Call 0x1,0x3f 049d 4504 |E | Exit_Suprogram New_Top_Offset 0x4 049e 0000 0000 | | .XXX[0x2] 04a0 ; -------------------------------------------------------------------------------------- 04a0 ; SUBPROGRAM 04a0 ; -------------------------------------------------------------------------------------- 04a0 04a7 | | .CONST 0x04a7 ; Address of begin 04a1 0004 | | .CONST 0x0004 ; Address of exception handler 04a2 0003 | | .CONST 0x0003 ; Number of locals 04a3 INIT_04a0: 04a3 029f 0a0b | | Declare_Subprogram INIT_0a08,For_Call 04a5 029f 0a3b | ;| Declare_Subprogram INIT_0a38,For_Call 04a7 BODY_04a0: 04a7 00cf | | Action Mark_Auxiliary 04a8 e010 | | Load 0x0,0x10 04a9 4801 |H | Short_Literal 0x1 04aa 0263 | c | Execute Discrete,Above_Bound 04ab 700b |p | Jump_Nonzero 0x4b7 04ac 00d8 | | Load_Top At_Offset_0 04ad e011 | | Load 0x0,0x11 04ae 01d5 | | Execute Vector,Field_Reference 04af 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 04b0 e5f8 | | Load 0x2,-0x8 04b1 027f | | Execute Discrete,Equal 04b2 6802 |h | Jump_Zero 0x4b5 04b3 e222 | " | Load 0x1,0x22 04b4 0257 | W | Execute Discrete,Raise 04b5 00c8 | | Action Pop_Auxiliary_Range 04b6 3ff5 |? | Loop_Increasing 0x4ac 04b7 00ce | | Action Pop_Auxiliary 04b8 8403 | | Call 0x2,0x3 04b9 e5ff | | Load 0x2,-0x1 04ba 823f | ? | Call 0x1,0x3f 04bb 4509 |E | Exit_Suprogram New_Top_Offset 0x9 04bc 0000 0000 | | .BLANK 0000[0x4] 04c0 ; -------------------------------------------------------------------------------------- 04c0 ; SUBPROGRAM 04c0 ; -------------------------------------------------------------------------------------- 04c0 04c3 | | .CONST 0x04c3 ; Address of begin 04c1 0004 | | .CONST 0x0004 ; Address of exception handler 04c2 0001 | | .CONST 0x0001 ; Number of locals 04c3 BODY_04c0: 04c3 INIT_04c0: 04c3 e5f9 | | Load 0x2,-0x7 04c4 e5fa | | Load 0x2,-0x6 04c5 600a |` | Indirect_Literal Discrete,0x4d0,{0x00000000, 0x7fffffff} 04c6 e5fb | | Load 0x2,-0x5 04c7 e5fc | | Load 0x2,-0x4 04c8 e5fd | | Load 0x2,-0x3 04c9 e5fe | | Load 0x2,-0x2 04ca e5ff | | Load 0x2,-0x1 04cb 8247 | G | Call 0x1,0x47 04cc 4508 |E | Exit_Suprogram New_Top_Offset 0x8 04cd 0000 0000 | | .XXX[0x3] 04cf 0000 | | 04d0 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff} 04d4 0000 0000 | | .BLANK 0000[0x4] 04d8 ; -------------------------------------------------------------------------------------- 04d8 ; SUBPROGRAM 04d8 ; -------------------------------------------------------------------------------------- 04d8 04dd | | .CONST 0x04dd ; Address of begin 04d9 0004 | | .CONST 0x0004 ; Address of exception handler 04da 0002 | | .CONST 0x0002 ; Number of locals 04db INIT_04d8: 04db 00e1 | | Load_Encached Boolean_Cache 04dc 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 04dd BODY_04d8: 04dd 00cf | | Action Mark_Auxiliary 04de e026 | & | Load 0x0,0x26 04df 4801 |H | Short_Literal 0x1 04e0 0263 | c | Execute Discrete,Above_Bound 04e1 702d |p- | Jump_Nonzero 0x50f 04e2 00d8 | | Load_Top At_Offset_0 04e3 e027 | ' | Load 0x0,0x27 04e4 01d7 | | Execute Vector,Field_Read 04e5 e024 | $ | Load 0x0,0x24 04e6 027f | | Execute Discrete,Equal 04e7 7025 |p% | Jump_Nonzero 0x50d 04e8 00d8 | | Load_Top At_Offset_0 04e9 e039 | 9 | Load 0x0,0x39 04ea 01d5 | | Execute Vector,Field_Reference 04eb 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 04ec e5ff | | Load 0x2,-0x1 04ed 027f | | Execute Discrete,Equal 04ee 681e |h | Jump_Zero 0x50d 04ef e024 | $ | Load 0x0,0x24 04f0 00d9 | | Load_Top At_Offset_1 04f1 e027 | ' | Load 0x0,0x27 04f2 01d6 | | Execute Vector,Field_Write 04f3 e017 | | Load 0x0,0x17 04f4 0aff | | Execute_Immediate Plus,-0x1 04f5 c017 | | Store 0x0,0x17 04f6 4801 |H | Short_Literal 0x1 04f7 a402 | | Store_Unchecked 0x2,0x2 04f8 00d8 | | Load_Top At_Offset_0 04f9 e026 | & | Load 0x0,0x26 04fa 027f | | Execute Discrete,Equal 04fb 6811 |h | Jump_Zero 0x50d 04fc 00cf | | Action Mark_Auxiliary 04fd e026 | & | Load 0x0,0x26 04fe 0aff | | Execute_Immediate Plus,-0x1 04ff c026 | & | Store 0x0,0x26 0500 e026 | & | Load 0x0,0x26 0501 6808 |h | Jump_Zero 0x50a 0502 e026 | & | Load 0x0,0x26 0503 e027 | ' | Load 0x0,0x27 0504 01d7 | | Execute Vector,Field_Read 0505 e024 | $ | Load 0x0,0x24 0506 027f | | Execute Discrete,Equal 0507 6802 |h | Jump_Zero 0x50a 0508 00c9 | | Action Pop_Auxiliary_Loop 0509 7ff3 | | Jump 0x4fd 050a 00ce | | Action Pop_Auxiliary 050b 00d2 | | Pop_Control Pop_Count_2 050c 7802 |x | Jump 0x50f 050d 00c8 | | Action Pop_Auxiliary_Range 050e 3fd3 |? | Loop_Increasing 0x4e2 050f 00c9 | | Action Pop_Auxiliary_Loop 0510 e029 | ) | Load 0x0,0x29 0511 4801 |H | Short_Literal 0x1 0512 0263 | c | Execute Discrete,Above_Bound 0513 7031 |p1 | Jump_Nonzero 0x545 0514 00d8 | | Load_Top At_Offset_0 0515 e02a | * | Load 0x0,0x2a 0516 01d5 | | Execute Vector,Field_Reference 0517 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0518 e024 | $ | Load 0x0,0x24 0519 027f | | Execute Discrete,Equal 051a 7028 |p( | Jump_Nonzero 0x543 051b 00d8 | | Load_Top At_Offset_0 051c e02a | * | Load 0x0,0x2a 051d 01d5 | | Execute Vector,Field_Reference 051e 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 051f e5ff | | Load 0x2,-0x1 0520 027f | | Execute Discrete,Equal 0521 6821 |h! | Jump_Zero 0x543 0522 e024 | $ | Load 0x0,0x24 0523 00d9 | | Load_Top At_Offset_1 0524 e02a | * | Load 0x0,0x2a 0525 01d5 | | Execute Vector,Field_Reference 0526 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0527 e02b | + | Load 0x0,0x2b 0528 0aff | | Execute_Immediate Plus,-0x1 0529 c02b | + | Store 0x0,0x2b 052a 00d8 | | Load_Top At_Offset_0 052b e029 | ) | Load 0x0,0x29 052c 027f | | Execute Discrete,Equal 052d 6810 |h | Jump_Zero 0x53e 052e 00cf | | Action Mark_Auxiliary 052f e029 | ) | Load 0x0,0x29 0530 0aff | | Execute_Immediate Plus,-0x1 0531 c029 | ) | Store 0x0,0x29 0532 e029 | ) | Load 0x0,0x29 0533 6809 |h | Jump_Zero 0x53d 0534 e029 | ) | Load 0x0,0x29 0535 e02a | * | Load 0x0,0x2a 0536 01d5 | | Execute Vector,Field_Reference 0537 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0538 e024 | $ | Load 0x0,0x24 0539 027f | | Execute Discrete,Equal 053a 6802 |h | Jump_Zero 0x53d 053b 00c9 | | Action Pop_Auxiliary_Loop 053c 7ff2 | | Jump 0x52f 053d 00ce | | Action Pop_Auxiliary 053e 00d8 | | Load_Top At_Offset_0 053f e02a | * | Load 0x0,0x2a 0540 01d5 | | Execute Vector,Field_Reference 0541 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0542 823f | ? | Call 0x1,0x3f 0543 00c8 | | Action Pop_Auxiliary_Range 0544 3fcf |? | Loop_Increasing 0x514 0545 00ce | | Action Pop_Auxiliary 0546 00d8 | | Load_Top At_Offset_0 0547 6804 |h | Jump_Zero 0x54c 0548 e017 | | Load 0x0,0x17 0549 7002 |p | Jump_Nonzero 0x54c 054a e013 | | Load 0x0,0x13 054b 823f | ? | Call 0x1,0x3f 054c 4502 |E | Exit_Suprogram New_Top_Offset 0x2 054d 0000 0000 | | .XXX[0x3] 054f 0000 | | 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 e02d | - | Load 0x0,0x2d 0554 00db | | Load_Top At_Offset_3 0555 027f | | Execute Discrete,Equal 0556 6806 |h | Jump_Zero 0x55d 0557 4800 |H | Short_Literal 0x0 0558 c01a | | Store 0x0,0x1a 0559 e012 | | Load 0x0,0x12 055a c02d | - | Store 0x0,0x2d 055b e013 | | Load 0x0,0x13 055c 823f | ? | Call 0x1,0x3f 055d 4502 |E | Exit_Suprogram New_Top_Offset 0x2 055e 0000 0000 | | .XXX[0x2] 0560 ; -------------------------------------------------------------------------------------- 0560 ; SUBPROGRAM 0560 ; -------------------------------------------------------------------------------------- 0560 0565 | e | .CONST 0x0565 ; Address of begin 0561 0004 | | .CONST 0x0004 ; Address of exception handler 0562 0002 | | .CONST 0x0002 ; Number of locals 0563 INIT_0560: 0563 e002 | | Load 0x0,0x2 0564 1b26 | & | Execute Package,Field_Read,Field_Number 0x26 0565 BODY_0560: 0565 e019 | | Load 0x0,0x19 0566 e013 | | Load 0x0,0x13 0567 027f | | Execute Discrete,Equal 0568 700c |p | Jump_Nonzero 0x575 0569 e030 | 0 | Load 0x0,0x30 056a e5ff | | Load 0x2,-0x1 056b 027f | | Execute Discrete,Equal 056c 6808 |h | Jump_Zero 0x575 056d e019 | | Load 0x0,0x19 056e 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 056f e013 | | Load 0x0,0x13 0570 c019 | | Store 0x0,0x19 0571 e012 | | Load 0x0,0x12 0572 c030 | 0 | Store 0x0,0x30 0573 00d8 | | Load_Top At_Offset_0 0574 823f | ? | Call 0x1,0x3f 0575 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0576 0000 0000 | | .XXX[0x2] 0578 ; -------------------------------------------------------------------------------------- 0578 ; SUBPROGRAM 0578 ; -------------------------------------------------------------------------------------- 0578 057d | } | .CONST 0x057d ; Address of begin 0579 0004 | | .CONST 0x0004 ; Address of exception handler 057a 0002 | | .CONST 0x0002 ; Number of locals 057b INIT_0578: 057b e002 | | Load 0x0,0x2 057c 1b26 | & | Execute Package,Field_Read,Field_Number 0x26 057d BODY_0578: 057d e01d | | Load 0x0,0x1d 057e e013 | | Load 0x0,0x13 057f 027f | | Execute Discrete,Equal 0580 700c |p | Jump_Nonzero 0x58d 0581 00db | | Load_Top At_Offset_3 0582 e038 | 8 | Load 0x0,0x38 0583 027e | ~ | Execute Discrete,Not_Equal 0584 6802 |h | Jump_Zero 0x587 0585 e223 | # | Load 0x1,0x23 0586 0257 | W | Execute Discrete,Raise 0587 e01d | | Load 0x0,0x1d 0588 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0589 e013 | | Load 0x0,0x13 058a c01d | | Store 0x0,0x1d 058b 00d8 | | Load_Top At_Offset_0 058c 823f | ? | Call 0x1,0x3f 058d 4502 |E | Exit_Suprogram New_Top_Offset 0x2 058e 0000 0000 | | .XXX[0x2] 0590 ; -------------------------------------------------------------------------------------- 0590 ; SUBPROGRAM 0590 ; -------------------------------------------------------------------------------------- 0590 0593 | | .CONST 0x0593 ; Address of begin 0591 0004 | | .CONST 0x0004 ; Address of exception handler 0592 0001 | | .CONST 0x0001 ; Number of locals 0593 BODY_0590: 0593 INIT_0590: 0593 00cf | | Action Mark_Auxiliary 0594 e03a | : | Load 0x0,0x3a 0595 4801 |H | Short_Literal 0x1 0596 0263 | c | Execute Discrete,Above_Bound 0597 702a |p* | Jump_Nonzero 0x5c2 0598 00d8 | | Load_Top At_Offset_0 0599 e03b | ; | Load 0x0,0x3b 059a 01d5 | | Execute Vector,Field_Reference 059b 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 059c e5ff | | Load 0x2,-0x1 059d 027f | | Execute Discrete,Equal 059e 6821 |h! | Jump_Zero 0x5c0 059f e012 | | Load 0x0,0x12 05a0 00d9 | | Load_Top At_Offset_1 05a1 e03b | ; | Load 0x0,0x3b 05a2 01d5 | | Execute Vector,Field_Reference 05a3 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 05a4 e03c | < | Load 0x0,0x3c 05a5 0aff | | Execute_Immediate Plus,-0x1 05a6 c03c | < | Store 0x0,0x3c 05a7 00d8 | | Load_Top At_Offset_0 05a8 e03a | : | Load 0x0,0x3a 05a9 027f | | Execute Discrete,Equal 05aa 6810 |h | Jump_Zero 0x5bb 05ab 00cf | | Action Mark_Auxiliary 05ac e03a | : | Load 0x0,0x3a 05ad 0aff | | Execute_Immediate Plus,-0x1 05ae c03a | : | Store 0x0,0x3a 05af e03a | : | Load 0x0,0x3a 05b0 6809 |h | Jump_Zero 0x5ba 05b1 e03a | : | Load 0x0,0x3a 05b2 e03b | ; | Load 0x0,0x3b 05b3 01d5 | | Execute Vector,Field_Reference 05b4 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 05b5 e012 | | Load 0x0,0x12 05b6 027e | ~ | Execute Discrete,Not_Equal 05b7 7002 |p | Jump_Nonzero 0x5ba 05b8 00c9 | | Action Pop_Auxiliary_Loop 05b9 7ff2 | | Jump 0x5ac 05ba 00ce | | Action Pop_Auxiliary 05bb 00d8 | | Load_Top At_Offset_0 05bc e03b | ; | Load 0x0,0x3b 05bd 01d5 | | Execute Vector,Field_Reference 05be 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 05bf 823f | ? | Call 0x1,0x3f 05c0 00c8 | | Action Pop_Auxiliary_Range 05c1 3fd6 |? | Loop_Increasing 0x598 05c2 4502 |E | Exit_Suprogram New_Top_Offset 0x2 05c3 0000 0000 | | .BLANK 0000[0x5] 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 00cf | | Action Mark_Auxiliary 05cc e03d | = | Load 0x0,0x3d 05cd 4801 |H | Short_Literal 0x1 05ce 0263 | c | Execute Discrete,Above_Bound 05cf 702a |p* | Jump_Nonzero 0x5fa 05d0 00d8 | | Load_Top At_Offset_0 05d1 e03e | > | Load 0x0,0x3e 05d2 01d5 | | Execute Vector,Field_Reference 05d3 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 05d4 e5ff | | Load 0x2,-0x1 05d5 027f | | Execute Discrete,Equal 05d6 6821 |h! | Jump_Zero 0x5f8 05d7 e012 | | Load 0x0,0x12 05d8 00d9 | | Load_Top At_Offset_1 05d9 e03e | > | Load 0x0,0x3e 05da 01d5 | | Execute Vector,Field_Reference 05db 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 05dc e03f | ? | Load 0x0,0x3f 05dd 0aff | | Execute_Immediate Plus,-0x1 05de c03f | ? | Store 0x0,0x3f 05df 00d8 | | Load_Top At_Offset_0 05e0 e03d | = | Load 0x0,0x3d 05e1 027f | | Execute Discrete,Equal 05e2 6810 |h | Jump_Zero 0x5f3 05e3 00cf | | Action Mark_Auxiliary 05e4 e03d | = | Load 0x0,0x3d 05e5 0aff | | Execute_Immediate Plus,-0x1 05e6 c03d | = | Store 0x0,0x3d 05e7 e03d | = | Load 0x0,0x3d 05e8 6809 |h | Jump_Zero 0x5f2 05e9 e03d | = | Load 0x0,0x3d 05ea e03e | > | Load 0x0,0x3e 05eb 01d5 | | Execute Vector,Field_Reference 05ec 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 05ed e012 | | Load 0x0,0x12 05ee 027e | ~ | Execute Discrete,Not_Equal 05ef 7002 |p | Jump_Nonzero 0x5f2 05f0 00c9 | | Action Pop_Auxiliary_Loop 05f1 7ff2 | | Jump 0x5e4 05f2 00ce | | Action Pop_Auxiliary 05f3 00d8 | | Load_Top At_Offset_0 05f4 e03e | > | Load 0x0,0x3e 05f5 01d5 | | Execute Vector,Field_Reference 05f6 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 05f7 823f | ? | Call 0x1,0x3f 05f8 00c8 | | Action Pop_Auxiliary_Range 05f9 3fd6 |? | Loop_Increasing 0x5d0 05fa 4502 |E | Exit_Suprogram New_Top_Offset 0x2 05fb 0000 0000 | | .BLANK 0000[0x5] 0600 ; -------------------------------------------------------------------------------------- 0600 ; SUBPROGRAM 0600 ; -------------------------------------------------------------------------------------- 0600 0603 | | .CONST 0x0603 ; Address of begin 0601 0004 | | .CONST 0x0004 ; Address of exception handler 0602 0001 | | .CONST 0x0001 ; Number of locals 0603 BODY_0600: 0603 INIT_0600: 0603 00cf | | Action Mark_Auxiliary 0604 e010 | | Load 0x0,0x10 0605 4801 |H | Short_Literal 0x1 0606 0263 | c | Execute Discrete,Above_Bound 0607 7031 |p1 | Jump_Nonzero 0x639 0608 00d8 | | Load_Top At_Offset_0 0609 e011 | | Load 0x0,0x11 060a 01d5 | | Execute Vector,Field_Reference 060b 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 060c e012 | | Load 0x0,0x12 060d 027e | ~ | Execute Discrete,Not_Equal 060e 6828 |h( | Jump_Zero 0x637 060f 00d8 | | Load_Top At_Offset_0 0610 e011 | | Load 0x0,0x11 0611 01d5 | | Execute Vector,Field_Reference 0612 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 0613 e5ff | | Load 0x2,-0x1 0614 027f | | Execute Discrete,Equal 0615 6821 |h! | Jump_Zero 0x637 0616 e012 | | Load 0x0,0x12 0617 00d9 | | Load_Top At_Offset_1 0618 e011 | | Load 0x0,0x11 0619 01d5 | | Execute Vector,Field_Reference 061a 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 061b e040 | @ | Load 0x0,0x40 061c 0aff | | Execute_Immediate Plus,-0x1 061d c040 | @ | Store 0x0,0x40 061e 00d8 | | Load_Top At_Offset_0 061f e010 | | Load 0x0,0x10 0620 027f | | Execute Discrete,Equal 0621 6810 |h | Jump_Zero 0x632 0622 00cf | | Action Mark_Auxiliary 0623 e010 | | Load 0x0,0x10 0624 0aff | | Execute_Immediate Plus,-0x1 0625 c010 | | Store 0x0,0x10 0626 e010 | | Load 0x0,0x10 0627 6809 |h | Jump_Zero 0x631 0628 e010 | | Load 0x0,0x10 0629 e011 | | Load 0x0,0x11 062a 01d5 | | Execute Vector,Field_Reference 062b 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 062c e012 | | Load 0x0,0x12 062d 027e | ~ | Execute Discrete,Not_Equal 062e 7002 |p | Jump_Nonzero 0x631 062f 00c9 | | Action Pop_Auxiliary_Loop 0630 7ff2 | | Jump 0x623 0631 00ce | | Action Pop_Auxiliary 0632 00d8 | | Load_Top At_Offset_0 0633 e011 | | Load 0x0,0x11 0634 01d5 | | Execute Vector,Field_Reference 0635 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0636 823f | ? | Call 0x1,0x3f 0637 00c8 | | Action Pop_Auxiliary_Range 0638 3fcf |? | Loop_Increasing 0x608 0639 4502 |E | Exit_Suprogram New_Top_Offset 0x2 063a 0000 0000 | | .BLANK 0000[0x6] 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 00db | | Load_Top At_Offset_3 0644 3c09 |< | Execute Record,Field_Read,Field_Number 0x9 0645 680e |h | Jump_Zero 0x654 0646 00db | | Load_Top At_Offset_3 0647 3c0a |< | Execute Record,Field_Read,Field_Number 0xa 0648 e5fd | | Load 0x2,-0x3 0649 027f | | Execute Discrete,Equal 064a 6809 |h | Jump_Zero 0x654 064b 4800 |H | Short_Literal 0x0 064c e5fe | | Load 0x2,-0x2 064d 3809 |8 | Execute Record,Field_Write,Field_Number 0x9 064e e021 | ! | Load 0x0,0x21 064f e5fe | | Load 0x2,-0x2 0650 e5ff | | Load 0x2,-0x1 0651 822f | / | Call 0x1,0x2f 0652 00d1 | | Pop_Control Pop_Count_1 0653 c021 | ! | Store 0x0,0x21 0654 00db | | Load_Top At_Offset_3 0655 3c0b |< | Execute Record,Field_Read,Field_Number 0xb 0656 680e |h | Jump_Zero 0x665 0657 00db | | Load_Top At_Offset_3 0658 3c0d |< | Execute Record,Field_Read,Field_Number 0xd 0659 e5fd | | Load 0x2,-0x3 065a 027f | | Execute Discrete,Equal 065b 6809 |h | Jump_Zero 0x665 065c 4800 |H | Short_Literal 0x0 065d e5fe | | Load 0x2,-0x2 065e 380b |8 | Execute Record,Field_Write,Field_Number 0xb 065f e021 | ! | Load 0x0,0x21 0660 e5fe | | Load 0x2,-0x2 0661 e5ff | | Load 0x2,-0x1 0662 822f | / | Call 0x1,0x2f 0663 00d1 | | Pop_Control Pop_Count_1 0664 c021 | ! | Store 0x0,0x21 0665 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0666 0000 0000 | | .XXX[0x2] 0668 ; -------------------------------------------------------------------------------------- 0668 ; SUBPROGRAM 0668 ; SUBPROGRAM 0668 ; -------------------------------------------------------------------------------------- 0668 066b | k | .CONST 0x066b ; Address of begin 0669 0004 | | .CONST 0x0004 ; Address of exception handler 066a 0001 | | .CONST 0x0001 ; Number of locals 066b BODY_0668: 066b BODY_0668: 066b INIT_0668: 066b INIT_0668: 066b e5fd | | Load 0x2,-0x3 066c 00e2 | | Load_Encached Integer_Cache 066d 025e | ^ | Execute Discrete,Convert 066e e5fe | | Load 0x2,-0x2 066f e5ff | | Load 0x2,-0x1 0670 e022 | " | Load 0x0,0x22 0671 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0672 00d9 | | Load_Top At_Offset_1 0673 00d0 | | Action Swap_Control 0674 0260 | ` | Execute Discrete,In_Type 0675 7001 |p | Jump_Nonzero 0x677 0676 0801 | | Execute_Immediate Raise,0x1 0677 8250 | P | Call 0x1,0x50 0678 00d1 | | Pop_Control Pop_Count_1 0679 c5fd | | Store 0x2,-0x3 067a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 067b 0000 0000 | | .BLANK 0000[0x5] 0680 ; -------------------------------------------------------------------------------------- 0680 ; SUBPROGRAM 0680 ; -------------------------------------------------------------------------------------- 0680 0686 | | .CONST 0x0686 ; Address of begin 0681 068f | | .CONST 0x068f ; Address of exception handler 0682 0002 | | .CONST 0x0002 ; Number of locals 0683 INIT_0680: 0683 00db | | Load_Top At_Offset_3 0684 00e2 | | Load_Encached Integer_Cache 0685 03f1 | | Declare_Variable Discrete,With_Value 0686 BODY_0680: 0686 00d8 | | Load_Top At_Offset_0 0687 e5ff | | Load 0x2,-0x1 0688 e25a | Z | Load 0x1,0x5a 0689 1d5b | [ | Execute_Immediate Reference_Lex_1,0x5b 068a e25c | \ | Load 0x1,0x5c 068b 1d5d | ] | Execute_Immediate Reference_Lex_1,0x5d 068c 8003 | | Call 0x0,0x3 068d 0059 | Y | Store_Top Discrete,At_Offset_1 068e 4503 |E | Exit_Suprogram New_Top_Offset 0x3 068f TRAP_0680: 068f 0007 | | Action Break_Optional 0690 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0691 0000 0000 | | .BLANK 0000[0x7] 0698 ; -------------------------------------------------------------------------------------- 0698 ; SUBPROGRAM 0698 ; -------------------------------------------------------------------------------------- 0698 06a0 | | .CONST 0x06a0 ; Address of begin 0699 0004 | | .CONST 0x0004 ; Address of exception handler 069a 0003 | | .CONST 0x0003 ; Number of locals 069b INIT_0698: 069b 00da | | Load_Top At_Offset_2 069c 00e2 | | Load_Encached Integer_Cache 069d 03f1 | | Declare_Variable Discrete,With_Value 069e 029f 0a63 | c| Declare_Subprogram INIT_0a60,For_Call 06a0 BODY_0698: 06a0 e041 | A | Load 0x0,0x41 06a1 e5ff | | Load 0x2,-0x1 06a2 027f | | Execute Discrete,Equal 06a3 6804 |h | Jump_Zero 0x6a8 06a4 4800 |H | Short_Literal 0x0 06a5 c042 | B | Store 0x0,0x42 06a6 e012 | | Load 0x0,0x12 06a7 c041 | A | Store 0x0,0x41 06a8 e5ff | | Load 0x2,-0x1 06a9 8249 | I | Call 0x1,0x49 06aa e5ff | | Load 0x2,-0x1 06ab 824a | J | Call 0x1,0x4a 06ac e5ff | | Load 0x2,-0x1 06ad 824b | K | Call 0x1,0x4b 06ae 8403 | | Call 0x2,0x3 06af e5ff | | Load 0x2,-0x1 06b0 824f | O | Call 0x1,0x4f 06b1 e5ff | | Load 0x2,-0x1 06b2 824d | M | Call 0x1,0x4d 06b3 e5ff | | Load 0x2,-0x1 06b4 824e | N | Call 0x1,0x4e 06b5 00d9 | | Load_Top At_Offset_1 06b6 e021 | ! | Load 0x0,0x21 06b7 e253 | S | Load 0x1,0x53 06b8 e254 | T | Load 0x1,0x54 06b9 1d55 | U | Execute_Immediate Reference_Lex_1,0x55 06ba 1d56 | V | Execute_Immediate Reference_Lex_1,0x56 06bb 1d57 | W | Execute_Immediate Reference_Lex_1,0x57 06bc 8006 | | Call 0x0,0x6 06bd 005a | Z | Store_Top Discrete,At_Offset_2 06be 4502 |E | Exit_Suprogram New_Top_Offset 0x2 06bf 0000 | | .XXX[0x1] 06c0 ; -------------------------------------------------------------------------------------- 06c0 ; SUBPROGRAM 06c0 ; -------------------------------------------------------------------------------------- 06c0 06c3 | | .CONST 0x06c3 ; Address of begin 06c1 0004 | | .CONST 0x0004 ; Address of exception handler 06c2 0001 | | .CONST 0x0001 ; Number of locals 06c3 BODY_06c0: 06c3 INIT_06c0: 06c3 4800 |H | Short_Literal 0x0 06c4 e5fe | | Load 0x2,-0x2 06c5 3809 |8 | Execute Record,Field_Write,Field_Number 0x9 06c6 4800 |H | Short_Literal 0x0 06c7 e5fe | | Load 0x2,-0x2 06c8 380b |8 | Execute Record,Field_Write,Field_Number 0xb 06c9 4800 |H | Short_Literal 0x0 06ca e5fe | | Load 0x2,-0x2 06cb 380e |8 | Execute Record,Field_Write,Field_Number 0xe 06cc 4800 |H | Short_Literal 0x0 06cd e5fe | | Load 0x2,-0x2 06ce 380f |8 | Execute Record,Field_Write,Field_Number 0xf 06cf 4502 |E | Exit_Suprogram New_Top_Offset 0x2 06d0 ; -------------------------------------------------------------------------------------- 06d0 ; SUBPROGRAM 06d0 ; -------------------------------------------------------------------------------------- 06d0 06d3 | | .CONST 0x06d3 ; Address of begin 06d1 0004 | | .CONST 0x0004 ; Address of exception handler 06d2 0001 | | .CONST 0x0001 ; Number of locals 06d3 BODY_06d0: 06d3 INIT_06d0: 06d3 e5fd | | Load 0x2,-0x3 06d4 00e2 | | Load_Encached Integer_Cache 06d5 025e | ^ | Execute Discrete,Convert 06d6 e5fe | | Load 0x2,-0x2 06d7 e5ff | | Load 0x2,-0x1 06d8 e022 | " | Load 0x0,0x22 06d9 1b15 | | Execute Package,Field_Read,Field_Number 0x15 06da 00d9 | | Load_Top At_Offset_1 06db 00d0 | | Action Swap_Control 06dc 0260 | ` | Execute Discrete,In_Type 06dd 7001 |p | Jump_Nonzero 0x6df 06de 0801 | | Execute_Immediate Raise,0x1 06df 8261 | a | Call 0x1,0x61 06e0 00d1 | | Pop_Control Pop_Count_1 06e1 c5fd | | Store 0x2,-0x3 06e2 4502 |E | Exit_Suprogram New_Top_Offset 0x2 06e3 0000 0000 | | .BLANK 0000[0x5] 06e8 ; -------------------------------------------------------------------------------------- 06e8 ; SUBPROGRAM 06e8 ; -------------------------------------------------------------------------------------- 06e8 06eb | | .CONST 0x06eb ; Address of begin 06e9 0004 | | .CONST 0x0004 ; Address of exception handler 06ea 0001 | | .CONST 0x0001 ; Number of locals 06eb BODY_06e8: 06eb INIT_06e8: 06eb 4800 |H | Short_Literal 0x0 06ec c01a | | Store 0x0,0x1a 06ed e013 | | Load 0x0,0x13 06ee c019 | | Store 0x0,0x19 06ef e013 | | Load 0x0,0x13 06f0 c01d | | Store 0x0,0x1d 06f1 4800 |H | Short_Literal 0x0 06f2 c029 | ) | Store 0x0,0x29 06f3 4800 |H | Short_Literal 0x0 06f4 c02b | + | Store 0x0,0x2b 06f5 4800 |H | Short_Literal 0x0 06f6 c026 | & | Store 0x0,0x26 06f7 4800 |H | Short_Literal 0x0 06f8 c017 | | Store 0x0,0x17 06f9 4800 |H | Short_Literal 0x0 06fa c03a | : | Store 0x0,0x3a 06fb 4800 |H | Short_Literal 0x0 06fc c03c | < | Store 0x0,0x3c 06fd 4800 |H | Short_Literal 0x0 06fe c010 | | Store 0x0,0x10 06ff 4800 |H | Short_Literal 0x0 0700 c040 | @ | Store 0x0,0x40 0701 4800 |H | Short_Literal 0x0 0702 c03d | = | Store 0x0,0x3d 0703 4800 |H | Short_Literal 0x0 0704 c03f | ? | Store 0x0,0x3f 0705 4800 |H | Short_Literal 0x0 0706 e043 | C | Load 0x0,0x43 0707 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0708 00cf | | Action Mark_Auxiliary 0709 e044 | D | Load 0x0,0x44 070a 01d9 | | Execute Vector,Reverse_Bounds 070b 0007 | | Action Break_Optional 070c 8045 | E | Call 0x0,0x45 070d 00d9 | | Load_Top At_Offset_1 070e e044 | D | Load 0x0,0x44 070f 01d6 | | Execute Vector,Field_Write 0710 00c8 | | Action Pop_Auxiliary_Range 0711 3ffa |? | Loop_Increasing 0x70c 0712 00ce | | Action Pop_Auxiliary 0713 e021 | ! | Load 0x0,0x21 0714 00d8 | | Load_Top At_Offset_0 0715 e264 | d | Load 0x1,0x64 0716 e265 | e | Load 0x1,0x65 0717 1d66 | f | Execute_Immediate Reference_Lex_1,0x66 0718 1d67 | g | Execute_Immediate Reference_Lex_1,0x67 0719 1d68 | h | Execute_Immediate Reference_Lex_1,0x68 071a 8006 | | Call 0x0,0x6 071b c021 | ! | Store 0x0,0x21 071c 8046 | F | Call 0x0,0x46 071d 823f | ? | Call 0x1,0x3f 071e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 071f 0000 | | .XXX[0x1] 0720 ; -------------------------------------------------------------------------------------- 0720 ; SUBPROGRAM 0720 ; -------------------------------------------------------------------------------------- 0720 0729 | ) | .CONST 0x0729 ; Address of begin 0721 0004 | | .CONST 0x0004 ; Address of exception handler 0722 0003 | | .CONST 0x0003 ; Number of locals 0723 INIT_0720: 0723 e047 | G | Load 0x0,0x47 0724 0322 | " | Declare_Variable Record 0725 00d8 | | Load_Top At_Offset_0 0726 1c00 | | Execute_Immediate Run_Utility,0x0 0727 e048 | H | Load 0x0,0x48 0728 0007 | | Action Break_Optional 0729 BODY_0720: 0729 e5fd | | Load 0x2,-0x3 072a e049 | I | Load 0x0,0x49 072b 181a | | Execute Package,Field_Execute,Field_Number 0x1a 072c c5fd | | Store 0x2,-0x3 072d e5ff | | Load 0x2,-0x1 072e e030 | 0 | Load 0x0,0x30 072f 027f | | Execute Discrete,Equal 0730 6803 |h | Jump_Zero 0x734 0731 e02e | . | Load 0x0,0x2e 0732 a5fe | | Store_Unchecked 0x2,-0x2 0733 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0734 e5ff | | Load 0x2,-0x1 0735 e038 | 8 | Load 0x0,0x38 0736 027f | | Execute Discrete,Equal 0737 6803 |h | Jump_Zero 0x73b 0738 e037 | 7 | Load 0x0,0x37 0739 a5fe | | Store_Unchecked 0x2,-0x2 073a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 073b 00cf | | Action Mark_Auxiliary 073c e026 | & | Load 0x0,0x26 073d 4801 |H | Short_Literal 0x1 073e 0263 | c | Execute Discrete,Above_Bound 073f 700f |p | Jump_Nonzero 0x74f 0740 e5ff | | Load 0x2,-0x1 0741 00d9 | | Load_Top At_Offset_1 0742 e039 | 9 | Load 0x0,0x39 0743 01d5 | | Execute Vector,Field_Reference 0744 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0745 027f | | Execute Discrete,Equal 0746 6806 |h | Jump_Zero 0x74d 0747 00d8 | | Load_Top At_Offset_0 0748 e039 | 9 | Load 0x0,0x39 0749 01d5 | | Execute Vector,Field_Reference 074a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 074b a5fe | | Store_Unchecked 0x2,-0x2 074c 4502 |E | Exit_Suprogram New_Top_Offset 0x2 074d 00c8 | | Action Pop_Auxiliary_Range 074e 3ff1 |? | Loop_Increasing 0x740 074f 00c9 | | Action Pop_Auxiliary_Loop 0750 e029 | ) | Load 0x0,0x29 0751 4801 |H | Short_Literal 0x1 0752 0263 | c | Execute Discrete,Above_Bound 0753 700f |p | Jump_Nonzero 0x763 0754 e5ff | | Load 0x2,-0x1 0755 00d9 | | Load_Top At_Offset_1 0756 e02a | * | Load 0x0,0x2a 0757 01d5 | | Execute Vector,Field_Reference 0758 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 0759 027f | | Execute Discrete,Equal 075a 6806 |h | Jump_Zero 0x761 075b 00d8 | | Load_Top At_Offset_0 075c e02a | * | Load 0x0,0x2a 075d 01d5 | | Execute Vector,Field_Reference 075e 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 075f a5fe | | Store_Unchecked 0x2,-0x2 0760 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0761 00c8 | | Action Pop_Auxiliary_Range 0762 3ff1 |? | Loop_Increasing 0x754 0763 00ce | | Action Pop_Auxiliary 0764 e048 | H | Load 0x0,0x48 0765 804a | J | Call 0x0,0x4a 0766 0039 | 9 | Store_Top Access,At_Offset_1 0767 00cf | | Action Mark_Auxiliary 0768 7812 |x | Jump 0x77b 0769 00d9 | | Load_Top At_Offset_1 076a 804b | K | Call 0x0,0x4b 076b 804c | L | Call 0x0,0x4c 076c 00db | | Load_Top At_Offset_3 076d 017d | } | Execute Record,Structure_Write 076e e5ff | | Load 0x2,-0x1 076f 00db | | Load_Top At_Offset_3 0770 3c0d |< | Execute Record,Field_Read,Field_Number 0xd 0771 027f | | Execute Discrete,Equal 0772 6804 |h | Jump_Zero 0x777 0773 00da | | Load_Top At_Offset_2 0774 3c0b |< | Execute Record,Field_Read,Field_Number 0xb 0775 a5fe | | Store_Unchecked 0x2,-0x2 0776 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0777 00d9 | | Load_Top At_Offset_1 0778 804d | M | Call 0x0,0x4d 0779 003a | : | Store_Top Access,At_Offset_2 077a 00c9 | | Action Pop_Auxiliary_Loop 077b 00d9 | | Load_Top At_Offset_1 077c 804e | N | Call 0x0,0x4e 077d 6feb |o | Jump_Zero 0x769 077e 00ce | | Action Pop_Auxiliary 077f 4800 |H | Short_Literal 0x0 0780 a5fe | | Store_Unchecked 0x2,-0x2 0781 e5fd | | Load 0x2,-0x3 0782 e221 | ! | Load 0x1,0x21 0783 e049 | I | Load 0x0,0x49 0784 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0785 c5fd | | Store 0x2,-0x3 0786 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0787 0000 | | .XXX[0x1] 0788 ; -------------------------------------------------------------------------------------- 0788 ; SUBPROGRAM 0788 ; -------------------------------------------------------------------------------------- 0788 078b | | .CONST 0x078b ; Address of begin 0789 0004 | | .CONST 0x0004 ; Address of exception handler 078a 0001 | | .CONST 0x0001 ; Number of locals 078b BODY_0788: 078b INIT_0788: 078b 00db | | Load_Top At_Offset_3 078c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 078d e5fd | | Load 0x2,-0x3 078e e00c | | Load 0x0,0xc 078f 01d5 | | Execute Vector,Field_Reference 0790 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0791 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0792 0000 0000 | | .BLANK 0000[0x6] 0798 ; -------------------------------------------------------------------------------------- 0798 ; SUBPROGRAM 0798 ; -------------------------------------------------------------------------------------- 0798 079b | | .CONST 0x079b ; Address of begin 0799 0004 | | .CONST 0x0004 ; Address of exception handler 079a 0001 | | .CONST 0x0001 ; Number of locals 079b BODY_0798: 079b INIT_0798: 079b e5fd | | Load 0x2,-0x3 079c e001 | | Load 0x0,0x1 079d 025e | ^ | Execute Discrete,Convert 079e e5fe | | Load 0x2,-0x2 079f e5ff | | Load 0x2,-0x1 07a0 e022 | " | Load 0x0,0x22 07a1 1b15 | | Execute Package,Field_Read,Field_Number 0x15 07a2 00d9 | | Load_Top At_Offset_1 07a3 00d0 | | Action Swap_Control 07a4 0260 | ` | Execute Discrete,In_Type 07a5 7001 |p | Jump_Nonzero 0x7a7 07a6 0801 | | Execute_Immediate Raise,0x1 07a7 826c | l | Call 0x1,0x6c 07a8 00d1 | | Pop_Control Pop_Count_1 07a9 c5fd | | Store 0x2,-0x3 07aa 4502 |E | Exit_Suprogram New_Top_Offset 0x2 07ab 0000 0000 | | .BLANK 0000[0x5] 07b0 ; -------------------------------------------------------------------------------------- 07b0 ; SUBPROGRAM 07b0 ; -------------------------------------------------------------------------------------- 07b0 07b6 | | .CONST 0x07b6 ; Address of begin 07b1 07c2 | | .CONST 0x07c2 ; Address of exception handler 07b2 0002 | | .CONST 0x0002 ; Number of locals 07b3 INIT_07b0: 07b3 00da | | Load_Top At_Offset_2 07b4 e001 | | Load 0x0,0x1 07b5 03f1 | | Declare_Variable Discrete,With_Value 07b6 BODY_07b0: 07b6 00d8 | | Load_Top At_Offset_0 07b7 e5ff | | Load 0x2,-0x1 07b8 e00c | | Load 0x0,0xc 07b9 01d5 | | Execute Vector,Field_Reference 07ba 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 07bb e26e | n | Load 0x1,0x6e 07bc 1d6f | o | Execute_Immediate Reference_Lex_1,0x6f 07bd e270 | p | Load 0x1,0x70 07be 1d71 | q | Execute_Immediate Reference_Lex_1,0x71 07bf 8003 | | Call 0x0,0x3 07c0 0059 | Y | Store_Top Discrete,At_Offset_1 07c1 4502 |E | Exit_Suprogram New_Top_Offset 0x2 07c2 TRAP_07b0: 07c2 e04f | O | Load 0x0,0x4f 07c3 010f | | Execute Exception,Equal 07c4 6801 |h | Jump_Zero 0x7c6 07c5 4502 |E | Exit_Suprogram New_Top_Offset 0x2 07c6 0100 | | Execute Exception,Raise 07c7 0000 | | .XXX[0x1] 07c8 ; -------------------------------------------------------------------------------------- 07c8 ; SUBPROGRAM 07c8 ; -------------------------------------------------------------------------------------- 07c8 07cb | | .CONST 0x07cb ; Address of begin 07c9 0004 | | .CONST 0x0004 ; Address of exception handler 07ca 0001 | | .CONST 0x0001 ; Number of locals 07cb BODY_07c8: 07cb INIT_07c8: 07cb 00da | | Load_Top At_Offset_2 07cc e5fe | | Load 0x2,-0x2 07cd e00c | | Load 0x0,0xc 07ce 01d5 | | Execute Vector,Field_Reference 07cf 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 07d0 4801 |H | Short_Literal 0x1 07d1 e5fe | | Load 0x2,-0x2 07d2 e00c | | Load 0x0,0xc 07d3 01d5 | | Execute Vector,Field_Reference 07d4 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 07d5 4800 |H | Short_Literal 0x0 07d6 e5fe | | Load 0x2,-0x2 07d7 e00c | | Load 0x0,0xc 07d8 01d5 | | Execute Vector,Field_Reference 07d9 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 07da 00db | | Load_Top At_Offset_3 07db 8273 | s | Call 0x1,0x73 07dc 00db | | Load_Top At_Offset_3 07dd 00db | | Load_Top At_Offset_3 07de 8050 | P | Call 0x0,0x50 07df 4503 |E | Exit_Suprogram New_Top_Offset 0x3 07e0 ; -------------------------------------------------------------------------------------- 07e0 ; SUBPROGRAM 07e0 ; -------------------------------------------------------------------------------------- 07e0 07e3 | | .CONST 0x07e3 ; Address of begin 07e1 0004 | | .CONST 0x0004 ; Address of exception handler 07e2 0001 | | .CONST 0x0001 ; Number of locals 07e3 BODY_07e0: 07e3 INIT_07e0: 07e3 00cf | | Action Mark_Auxiliary 07e4 4864 |Hd | Short_Literal 0x64 07e5 4801 |H | Short_Literal 0x1 07e6 0007 | | Action Break_Optional 07e7 00d8 | | Load_Top At_Offset_0 07e8 e00c | | Load 0x0,0xc 07e9 01d5 | | Execute Vector,Field_Reference 07ea 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 07eb 0d0f | | Execute_Immediate Less,0xf 07ec 6809 |h | Jump_Zero 0x7f6 07ed 00d8 | | Load_Top At_Offset_0 07ee e00c | | Load 0x0,0xc 07ef 01d5 | | Execute Vector,Field_Reference 07f0 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 07f1 0a01 | | Execute_Immediate Plus,0x1 07f2 00d9 | | Load_Top At_Offset_1 07f3 e00c | | Load 0x0,0xc 07f4 01d5 | | Execute Vector,Field_Reference 07f5 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 07f6 00c8 | | Action Pop_Auxiliary_Range 07f7 3fef |? | Loop_Increasing 0x7e7 07f8 4501 |E | Exit_Suprogram New_Top_Offset 0x1 07f9 0000 0000 | | .BLANK 0000[0x7] 0800 ; -------------------------------------------------------------------------------------- 0800 ; SUBPROGRAM 0800 ; -------------------------------------------------------------------------------------- 0800 0806 | | .CONST 0x0806 ; Address of begin 0801 0862 | b | .CONST 0x0862 ; Address of exception handler 0802 0003 | | .CONST 0x0003 ; Number of locals 0803 INIT_0800: 0803 00e2 | | Load_Encached Integer_Cache 0804 e002 | | Load 0x0,0x2 0805 1b26 | & | Execute Package,Field_Read,Field_Number 0x26 0806 BODY_0800: 0806 00cf | | Action Mark_Auxiliary 0807 4864 |Hd | Short_Literal 0x64 0808 4801 |H | Short_Literal 0x1 0809 0007 | | Action Break_Optional 080a 00d8 | | Load_Top At_Offset_0 080b e00c | | Load 0x0,0xc 080c 01d5 | | Execute Vector,Field_Reference 080d 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 080e 7005 |p | Jump_Nonzero 0x814 080f 00d8 | | Load_Top At_Offset_0 0810 e5ff | | Load 0x2,-0x1 0811 8274 | t | Call 0x1,0x74 0812 00d8 | | Load_Top At_Offset_0 0813 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0814 00d8 | | Load_Top At_Offset_0 0815 e00c | | Load 0x0,0xc 0816 01d5 | | Execute Vector,Field_Reference 0817 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0818 a403 | | Store_Unchecked 0x2,0x3 0819 00db | | Load_Top At_Offset_3 081a e002 | | Load 0x0,0x2 081b 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b 081c 7005 |p | Jump_Nonzero 0x822 081d 00d8 | | Load_Top At_Offset_0 081e e5ff | | Load 0x2,-0x1 081f 8274 | t | Call 0x1,0x74 0820 00d8 | | Load_Top At_Offset_0 0821 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0822 00db | | Load_Top At_Offset_3 0823 e002 | | Load 0x0,0x2 0824 1842 | B | Execute Package,Field_Execute,Field_Number 0x42 0825 0b0d | | Execute_Immediate Case_Compare,0xd 0826 7003 |p | Jump_Nonzero 0x82a 0827 0f07 | | Execute_Immediate Equal,0x7 0828 7002 |p | Jump_Nonzero 0x82b 0829 7809 |x | Jump 0x833 082a 00d1 | | Pop_Control Pop_Count_1 082b 4800 |H | Short_Literal 0x0 082c e403 | | Load 0x2,0x3 082d 8050 | P | Call 0x0,0x50 082e 00d8 | | Load_Top At_Offset_0 082f e5ff | | Load 0x2,-0x1 0830 8274 | t | Call 0x1,0x74 0831 00d8 | | Load_Top At_Offset_0 0832 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0833 00c8 | | Action Pop_Auxiliary_Range 0834 3fd5 |? | Loop_Increasing 0x80a 0835 00ce | | Action Pop_Auxiliary 0836 4800 |H | Short_Literal 0x0 0837 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 0838 00cf | | Action Mark_Auxiliary 0839 e224 | $ | Load 0x1,0x24 083a 4864 |Hd | Short_Literal 0x64 083b 026e | n | Execute Discrete,Modulo 083c 0a01 | | Execute_Immediate Plus,0x1 083d c224 | $ | Store 0x1,0x24 083e e224 | $ | Load 0x1,0x24 083f e00c | | Load 0x0,0xc 0840 01d5 | | Execute Vector,Field_Reference 0841 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0842 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 0843 e224 | $ | Load 0x1,0x24 0844 e00c | | Load 0x0,0xc 0845 01d5 | | Execute Vector,Field_Reference 0846 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0847 680d |h | Jump_Zero 0x855 0848 e5ff | | Load 0x2,-0x1 0849 e224 | $ | Load 0x1,0x24 084a e00c | | Load 0x0,0xc 084b 01d5 | | Execute Vector,Field_Reference 084c 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 084d 4800 |H | Short_Literal 0x0 084e 00da | | Load_Top At_Offset_2 084f 8050 | P | Call 0x0,0x50 0850 e224 | $ | Load 0x1,0x24 0851 e5ff | | Load 0x2,-0x1 0852 8274 | t | Call 0x1,0x74 0853 e224 | $ | Load 0x1,0x24 0854 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0855 00da | | Load_Top At_Offset_2 0856 0a01 | | Execute_Immediate Plus,0x1 0857 005b | [ | Store_Top Discrete,At_Offset_3 0858 00da | | Load_Top At_Offset_2 0859 0cc9 | | Execute_Immediate Greater_Equal,-0x37 085a 6805 |h | Jump_Zero 0x860 085b 8275 | u | Call 0x1,0x75 085c 600b |` | Indirect_Literal Discrete,0x868,{0x00000000, 0x00002000} 085d 00ba | | Action Initiate_Delay 085e 4800 |H | Short_Literal 0x0 085f 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 0860 00c9 | | Action Pop_Auxiliary_Loop 0861 7fd7 | | Jump 0x839 0862 TRAP_0800: 0862 0007 | | Action Break_Optional 0863 4800 |H | Short_Literal 0x0 0864 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0865 0000 0000 | | .XXX[0x3] 0867 0000 | | 0868 0000 0000 | | .LITERAL {0x00000000, 0x00002000} 086c 0000 0000 | | .BLANK 0000[0x4] 0870 ; -------------------------------------------------------------------------------------- 0870 ; SUBPROGRAM 0870 ; -------------------------------------------------------------------------------------- 0870 0873 | s | .CONST 0x0873 ; Address of begin 0871 0004 | | .CONST 0x0004 ; Address of exception handler 0872 0001 | | .CONST 0x0001 ; Number of locals 0873 BODY_0870: 0873 INIT_0870: 0873 4100 |A | End_Rendezvous 0x0 0874 0000 0000 | | .BLANK 0000[0x4] 0878 ; -------------------------------------------------------------------------------------- 0878 ; SUBPROGRAM 0878 ; -------------------------------------------------------------------------------------- 0878 08a8 | | .CONST 0x08a8 ; Address of begin 0879 08ae | | .CONST 0x08ae ; Address of exception handler 087a 0002 | | .CONST 0x0002 ; Number of locals 087b INIT_0878: 087b 4820 494d |H IM| Declare_Variable Select 0x000, 0x014, 087d 481f 494f |H IO| [0x000]: 0x001 = 0x0008, 087f 481e 4950 |H IP| [0x00d]: 0x16c = 0x0b60, 0881 481d 4956 |H IV| [0x00e]: 0x16a = 0x0b50, 0883 481c 4957 |H IW| [0x00f]: 0x169 = 0x0b48, 0885 481b 4958 |H IX| [0x010]: 0x168 = 0x0b40, 0887 481a 4959 |H IY| [0x011]: 0x166 = 0x0b30, 0889 4819 495a |H IZ| [0x012]: 0x164 = 0x0b20, 088b 4818 495b |H I[| [0x013]: 0x162 = 0x0b10, 088d 4817 495c |H I\| [0x014]: 0x161 = 0x0b08, 088f 4816 495d |H I]| [0x015]: 0x15f = 0x0af8, 0891 4815 495f |H I_| [0x016]: 0x15d = 0x0ae8, 0893 4814 4961 |H Ia| [0x017]: 0x15c = 0x0ae0, 0895 4813 4962 |H Ib| [0x018]: 0x15b = 0x0ad8, 0897 4812 4964 |H Id| [0x019]: 0x15a = 0x0ad0, 0899 4811 4966 |H If| [0x01a]: 0x159 = 0x0ac8, 089b 4810 4968 |H Ih| [0x01b]: 0x158 = 0x0ac0, 089d 480f 4969 |H Ii| [0x01c]: 0x157 = 0x0ab8, 089f 480e 496a |H Ij| [0x01d]: 0x156 = 0x0ab0, 08a1 480d 496c |H Il| [0x01e]: 0x150 = 0x0a80, 08a3 4800 4801 |H H | [0x01f]: 0x14f = 0x0a78, 08a5 4800 4814 |H H | [0x020]: 0x14d = 0x0a68 08a7 02cf | | 08a8 BODY_0878: 08a8 00cf | | Action Mark_Auxiliary 08a9 00d9 | | Load_Top At_Offset_1 08aa 013f | ? | Execute Select,Rendezvous 08ab 00d1 | | Pop_Control Pop_Count_1 08ac 00c9 | | Action Pop_Auxiliary_Loop 08ad 7ffb | | Jump 0x8a9 08ae TRAP_0878: 08ae 0007 | | Action Break_Optional 08af 4501 |E | Exit_Suprogram New_Top_Offset 0x1 08b0 ; -------------------------------------------------------------------------------------- 08b0 ; SUBPROGRAM 08b0 ; -------------------------------------------------------------------------------------- 08b0 08b3 | | .CONST 0x08b3 ; Address of begin 08b1 0004 | | .CONST 0x0004 ; Address of exception handler 08b2 0001 | | .CONST 0x0001 ; Number of locals 08b3 BODY_08b0: 08b3 INIT_08b0: 08b3 00da | | Load_Top At_Offset_2 08b4 e403 | | Load 0x2,0x3 08b5 0279 | y | Execute Discrete,And 08b6 a403 | | Store_Unchecked 0x2,0x3 08b7 e404 | | Load 0x2,0x4 08b8 e7fe | | Load 0x3,-0x2 08b9 0279 | y | Execute Discrete,And 08ba a404 | | Store_Unchecked 0x2,0x4 08bb e7fd | | Load 0x3,-0x3 08bc e402 | | Load 0x2,0x2 08bd 8228 | ( | Call 0x1,0x28 08be a402 | | Store_Unchecked 0x2,0x2 08bf 4504 |E | Exit_Suprogram New_Top_Offset 0x4 08c0 ; -------------------------------------------------------------------------------------- 08c0 ; SUBPROGRAM 08c0 ; -------------------------------------------------------------------------------------- 08c0 08c3 | | .CONST 0x08c3 ; Address of begin 08c1 08cc | | .CONST 0x08cc ; Address of exception handler 08c2 0001 | | .CONST 0x0001 ; Number of locals 08c3 BODY_08c0: 08c3 INIT_08c0: 08c3 e021 | ! | Load 0x0,0x21 08c4 e5ff | | Load 0x2,-0x1 08c5 e232 | 2 | Load 0x1,0x32 08c6 1d33 | 3 | Execute_Immediate Reference_Lex_1,0x33 08c7 e234 | 4 | Load 0x1,0x34 08c8 1d35 | 5 | Execute_Immediate Reference_Lex_1,0x35 08c9 8003 | | Call 0x0,0x3 08ca c021 | ! | Store 0x0,0x21 08cb 4501 |E | Exit_Suprogram New_Top_Offset 0x1 08cc TRAP_08c0: 08cc 0007 | | Action Break_Optional 08cd 4501 |E | Exit_Suprogram New_Top_Offset 0x1 08ce 0000 0000 | | .XXX[0x2] 08d0 ; -------------------------------------------------------------------------------------- 08d0 ; SUBPROGRAM 08d0 ; -------------------------------------------------------------------------------------- 08d0 08d3 | | .CONST 0x08d3 ; Address of begin 08d1 0004 | | .CONST 0x0004 ; Address of exception handler 08d2 0001 | | .CONST 0x0001 ; Number of locals 08d3 BODY_08d0: 08d3 INIT_08d0: 08d3 e5fc | | Load 0x2,-0x4 08d4 00db | | Load_Top At_Offset_3 08d5 e039 | 9 | Load 0x0,0x39 08d6 01d5 | | Execute Vector,Field_Reference 08d7 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 08d8 e5fc | | Load 0x2,-0x4 08d9 00db | | Load_Top At_Offset_3 08da e039 | 9 | Load 0x0,0x39 08db 01d5 | | Execute Vector,Field_Reference 08dc 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 08dd e5fd | | Load 0x2,-0x3 08de 00db | | Load_Top At_Offset_3 08df e039 | 9 | Load 0x0,0x39 08e0 01d5 | | Execute Vector,Field_Reference 08e1 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 08e2 e5fa | | Load 0x2,-0x6 08e3 00db | | Load_Top At_Offset_3 08e4 e039 | 9 | Load 0x0,0x39 08e5 01d5 | | Execute Vector,Field_Reference 08e6 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 08e7 e5fb | | Load 0x2,-0x5 08e8 00db | | Load_Top At_Offset_3 08e9 e039 | 9 | Load 0x0,0x39 08ea 01d5 | | Execute Vector,Field_Reference 08eb 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 08ec e5fe | | Load 0x2,-0x2 08ed 00db | | Load_Top At_Offset_3 08ee e027 | ' | Load 0x0,0x27 08ef 01d6 | | Execute Vector,Field_Write 08f0 e017 | | Load 0x0,0x17 08f1 0a01 | | Execute_Immediate Plus,0x1 08f2 c017 | | Store 0x0,0x17 08f3 4502 |E | Exit_Suprogram New_Top_Offset 0x2 08f4 0000 0000 | | .BLANK 0000[0x4] 08f8 ; -------------------------------------------------------------------------------------- 08f8 ; SUBPROGRAM 08f8 ; -------------------------------------------------------------------------------------- 08f8 08fb | | .CONST 0x08fb ; Address of begin 08f9 0004 | | .CONST 0x0004 ; Address of exception handler 08fa 0001 | | .CONST 0x0001 ; Number of locals 08fb BODY_08f8: 08fb INIT_08f8: 08fb e5ff | | Load 0x2,-0x1 08fc 00db | | Load_Top At_Offset_3 08fd e02a | * | Load 0x0,0x2a 08fe 01d5 | | Execute Vector,Field_Reference 08ff 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0900 e5fc | | Load 0x2,-0x4 0901 00db | | Load_Top At_Offset_3 0902 e02a | * | Load 0x0,0x2a 0903 01d5 | | Execute Vector,Field_Reference 0904 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0905 e5fc | | Load 0x2,-0x4 0906 00db | | Load_Top At_Offset_3 0907 e02a | * | Load 0x0,0x2a 0908 01d5 | | Execute Vector,Field_Reference 0909 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 090a e5fd | | Load 0x2,-0x3 090b 00db | | Load_Top At_Offset_3 090c e02a | * | Load 0x0,0x2a 090d 01d5 | | Execute Vector,Field_Reference 090e 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 090f e5fa | | Load 0x2,-0x6 0910 00db | | Load_Top At_Offset_3 0911 e02a | * | Load 0x0,0x2a 0912 01d5 | | Execute Vector,Field_Reference 0913 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 0914 e5fb | | Load 0x2,-0x5 0915 00db | | Load_Top At_Offset_3 0916 e02a | * | Load 0x0,0x2a 0917 01d5 | | Execute Vector,Field_Reference 0918 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 0919 e5fe | | Load 0x2,-0x2 091a 00db | | Load_Top At_Offset_3 091b e02a | * | Load 0x0,0x2a 091c 01d5 | | Execute Vector,Field_Reference 091d 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 091e e02b | + | Load 0x0,0x2b 091f 0a01 | | Execute_Immediate Plus,0x1 0920 c02b | + | Store 0x0,0x2b 0921 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0922 0000 0000 | | .BLANK 0000[0x6] 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 e5f9 | | Load 0x2,-0x7 092c 00db | | Load_Top At_Offset_3 092d e03b | ; | Load 0x0,0x3b 092e 01d5 | | Execute Vector,Field_Reference 092f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0930 e5fe | | Load 0x2,-0x2 0931 00db | | Load_Top At_Offset_3 0932 e03b | ; | Load 0x0,0x3b 0933 01d5 | | Execute Vector,Field_Reference 0934 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0935 e5fd | | Load 0x2,-0x3 0936 00db | | Load_Top At_Offset_3 0937 e03b | ; | Load 0x0,0x3b 0938 01d5 | | Execute Vector,Field_Reference 0939 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 093a e5fc | | Load 0x2,-0x4 093b 00db | | Load_Top At_Offset_3 093c e03b | ; | Load 0x0,0x3b 093d 01d5 | | Execute Vector,Field_Reference 093e 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 093f e5fb | | Load 0x2,-0x5 0940 00db | | Load_Top At_Offset_3 0941 e03b | ; | Load 0x0,0x3b 0942 01d5 | | Execute Vector,Field_Reference 0943 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0944 e5fa | | Load 0x2,-0x6 0945 00db | | Load_Top At_Offset_3 0946 e03b | ; | Load 0x0,0x3b 0947 01d5 | | Execute Vector,Field_Reference 0948 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 0949 e03c | < | Load 0x0,0x3c 094a 0a01 | | Execute_Immediate Plus,0x1 094b c03c | < | Store 0x0,0x3c 094c 4502 |E | Exit_Suprogram New_Top_Offset 0x2 094d 0000 0000 | | .XXX[0x3] 094f 0000 | | 0950 ; -------------------------------------------------------------------------------------- 0950 ; SUBPROGRAM 0950 ; -------------------------------------------------------------------------------------- 0950 0953 | S | .CONST 0x0953 ; Address of begin 0951 0004 | | .CONST 0x0004 ; Address of exception handler 0952 0001 | | .CONST 0x0001 ; Number of locals 0953 BODY_0950: 0953 INIT_0950: 0953 00cf | | Action Mark_Auxiliary 0954 e03a | : | Load 0x0,0x3a 0955 4801 |H | Short_Literal 0x1 0956 0263 | c | Execute Discrete,Above_Bound 0957 700a |p | Jump_Nonzero 0x962 0958 00d8 | | Load_Top At_Offset_0 0959 e03b | ; | Load 0x0,0x3b 095a 01d5 | | Execute Vector,Field_Reference 095b 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 095c e5fa | | Load 0x2,-0x6 095d 027f | | Execute Discrete,Equal 095e 6801 |h | Jump_Zero 0x960 095f 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0960 00c8 | | Action Pop_Auxiliary_Range 0961 3ff6 |? | Loop_Increasing 0x958 0962 00c9 | | Action Pop_Auxiliary_Loop 0963 e03a | : | Load 0x0,0x3a 0964 4801 |H | Short_Literal 0x1 0965 0263 | c | Execute Discrete,Above_Bound 0966 700c |p | Jump_Nonzero 0x973 0967 00d8 | | Load_Top At_Offset_0 0968 e03b | ; | Load 0x0,0x3b 0969 01d5 | | Execute Vector,Field_Reference 096a 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 096b e012 | | Load 0x0,0x12 096c 027f | | Execute Discrete,Equal 096d 6803 |h | Jump_Zero 0x971 096e 00d8 | | Load_Top At_Offset_0 096f 8402 | | Call 0x2,0x2 0970 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0971 00c8 | | Action Pop_Auxiliary_Range 0972 3ff4 |? | Loop_Increasing 0x967 0973 00ce | | Action Pop_Auxiliary 0974 e03c | < | Load 0x0,0x3c 0975 0f14 | | Execute_Immediate Equal,0x14 0976 6802 |h | Jump_Zero 0x979 0977 e051 | Q | Load 0x0,0x51 0978 0257 | W | Execute Discrete,Raise 0979 e03a | : | Load 0x0,0x3a 097a 0a01 | | Execute_Immediate Plus,0x1 097b 00d8 | | Load_Top At_Offset_0 097c 00e3 | | Load_Encached Natural_Cache 097d 0260 | ` | Execute Discrete,In_Type 097e 7001 |p | Jump_Nonzero 0x980 097f 0801 | | Execute_Immediate Raise,0x1 0980 8402 | | Call 0x2,0x2 0981 e03a | : | Load 0x0,0x3a 0982 0a01 | | Execute_Immediate Plus,0x1 0983 c03a | : | Store 0x0,0x3a 0984 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0985 0000 0000 | | .XXX[0x3] 0987 0000 | | 0988 ; -------------------------------------------------------------------------------------- 0988 ; SUBPROGRAM 0988 ; -------------------------------------------------------------------------------------- 0988 098b | | .CONST 0x098b ; Address of begin 0989 0004 | | .CONST 0x0004 ; Address of exception handler 098a 0001 | | .CONST 0x0001 ; Number of locals 098b BODY_0988: 098b INIT_0988: 098b e5ff | | Load 0x2,-0x1 098c 00db | | Load_Top At_Offset_3 098d e03e | > | Load 0x0,0x3e 098e 01d5 | | Execute Vector,Field_Reference 098f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0990 e5fe | | Load 0x2,-0x2 0991 00db | | Load_Top At_Offset_3 0992 e03e | > | Load 0x0,0x3e 0993 01d5 | | Execute Vector,Field_Reference 0994 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0995 e5fd | | Load 0x2,-0x3 0996 00db | | Load_Top At_Offset_3 0997 e03e | > | Load 0x0,0x3e 0998 01d5 | | Execute Vector,Field_Reference 0999 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 099a 00db | | Load_Top At_Offset_3 099b e402 | | Load 0x2,0x2 099c 01d5 | | Execute Vector,Field_Reference 099d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 099e 00db | | Load_Top At_Offset_3 099f e03e | > | Load 0x0,0x3e 09a0 01d5 | | Execute Vector,Field_Reference 09a1 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 09a2 00db | | Load_Top At_Offset_3 09a3 e402 | | Load 0x2,0x2 09a4 01d5 | | Execute Vector,Field_Reference 09a5 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 09a6 00db | | Load_Top At_Offset_3 09a7 e03e | > | Load 0x0,0x3e 09a8 01d5 | | Execute Vector,Field_Reference 09a9 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 09aa e5f9 | | Load 0x2,-0x7 09ab 00db | | Load_Top At_Offset_3 09ac e03e | > | Load 0x0,0x3e 09ad 01d5 | | Execute Vector,Field_Reference 09ae 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 09af e03f | ? | Load 0x0,0x3f 09b0 0a01 | | Execute_Immediate Plus,0x1 09b1 c03f | ? | Store 0x0,0x3f 09b2 4503 |E | Exit_Suprogram New_Top_Offset 0x3 09b3 0000 0000 | | .BLANK 0000[0x5] 09b8 ; -------------------------------------------------------------------------------------- 09b8 ; SUBPROGRAM 09b8 ; -------------------------------------------------------------------------------------- 09b8 09bd | | .CONST 0x09bd ; Address of begin 09b9 0004 | | .CONST 0x0004 ; Address of exception handler 09ba 0003 | | .CONST 0x0003 ; Number of locals 09bb INIT_09b8: 09bb 00e3 | | Load_Encached Natural_Cache 09bc 00e1 | | Load_Encached Boolean_Cache 09bd BODY_09b8: 09bd 00cf | | Action Mark_Auxiliary 09be e03d | = | Load 0x0,0x3d 09bf 4801 |H | Short_Literal 0x1 09c0 0263 | c | Execute Discrete,Above_Bound 09c1 700a |p | Jump_Nonzero 0x9cc 09c2 00d8 | | Load_Top At_Offset_0 09c3 e03e | > | Load 0x0,0x3e 09c4 01d5 | | Execute Vector,Field_Reference 09c5 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 09c6 e5f9 | | Load 0x2,-0x7 09c7 027f | | Execute Discrete,Equal 09c8 6801 |h | Jump_Zero 0x9ca 09c9 4501 |E | Exit_Suprogram New_Top_Offset 0x1 09ca 00c8 | | Action Pop_Auxiliary_Range 09cb 3ff6 |? | Loop_Increasing 0x9c2 09cc 00ce | | Action Pop_Auxiliary 09cd 4801 |H | Short_Literal 0x1 09ce 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 09cf 00cf | | Action Mark_Auxiliary 09d0 e403 | | Load 0x2,0x3 09d1 4801 |H | Short_Literal 0x1 09d2 0263 | c | Execute Discrete,Above_Bound 09d3 7030 |p0 | Jump_Nonzero 0xa04 09d4 4801 |H | Short_Literal 0x1 09d5 a603 | | Store_Unchecked 0x3,0x3 09d6 00cf | | Action Mark_Auxiliary 09d7 e03d | = | Load 0x0,0x3d 09d8 e602 | | Load 0x3,0x2 09d9 0263 | c | Execute Discrete,Above_Bound 09da 7013 |p | Jump_Nonzero 0x9ee 09db 00d8 | | Load_Top At_Offset_0 09dc e03e | > | Load 0x0,0x3e 09dd 01d5 | | Execute Vector,Field_Reference 09de 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 09df e012 | | Load 0x0,0x12 09e0 027f | | Execute Discrete,Equal 09e1 680a |h | Jump_Zero 0x9ec 09e2 00db | | Load_Top At_Offset_3 09e3 00d9 | | Load_Top At_Offset_1 09e4 8404 | | Call 0x2,0x4 09e5 00d8 | | Load_Top At_Offset_0 09e6 0a01 | | Execute_Immediate Plus,0x1 09e7 c602 | | Store 0x3,0x2 09e8 4800 |H | Short_Literal 0x0 09e9 a603 | | Store_Unchecked 0x3,0x3 09ea 00d2 | | Pop_Control Pop_Count_2 09eb 7802 |x | Jump 0x9ee 09ec 00c8 | | Action Pop_Auxiliary_Range 09ed 3fed |? | Loop_Increasing 0x9db 09ee 00ce | | Action Pop_Auxiliary 09ef 00db | | Load_Top At_Offset_3 09f0 6811 |h | Jump_Zero 0xa02 09f1 e03f | ? | Load 0x0,0x3f 09f2 0f14 | | Execute_Immediate Equal,0x14 09f3 6802 |h | Jump_Zero 0x9f6 09f4 e052 | R | Load 0x0,0x52 09f5 0257 | W | Execute Discrete,Raise 09f6 00d8 | | Load_Top At_Offset_0 09f7 e03d | = | Load 0x0,0x3d 09f8 0a01 | | Execute_Immediate Plus,0x1 09f9 00d8 | | Load_Top At_Offset_0 09fa 00e3 | | Load_Encached Natural_Cache 09fb 0260 | ` | Execute Discrete,In_Type 09fc 7001 |p | Jump_Nonzero 0x9fe 09fd 0801 | | Execute_Immediate Raise,0x1 09fe 8404 | | Call 0x2,0x4 09ff e03d | = | Load 0x0,0x3d 0a00 0a01 | | Execute_Immediate Plus,0x1 0a01 c03d | = | Store 0x0,0x3d 0a02 00c8 | | Action Pop_Auxiliary_Range 0a03 3fd0 |? | Loop_Increasing 0x9d4 0a04 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0a05 0000 0000 | | .XXX[0x3] 0a07 0000 | | 0a08 ; -------------------------------------------------------------------------------------- 0a08 ; SUBPROGRAM 0a08 ; -------------------------------------------------------------------------------------- 0a08 0a0b | | .CONST 0x0a0b ; Address of begin 0a09 0004 | | .CONST 0x0004 ; Address of exception handler 0a0a 0001 | | .CONST 0x0001 ; Number of locals 0a0b BODY_0a08: 0a0b INIT_0a08: 0a0b e5ff | | Load 0x2,-0x1 0a0c 00db | | Load_Top At_Offset_3 0a0d e011 | | Load 0x0,0x11 0a0e 01d5 | | Execute Vector,Field_Reference 0a0f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0a10 e5fe | | Load 0x2,-0x2 0a11 00db | | Load_Top At_Offset_3 0a12 e011 | | Load 0x0,0x11 0a13 01d5 | | Execute Vector,Field_Reference 0a14 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0a15 e5fa | | Load 0x2,-0x6 0a16 00db | | Load_Top At_Offset_3 0a17 e011 | | Load 0x0,0x11 0a18 01d5 | | Execute Vector,Field_Reference 0a19 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0a1a e5fd | | Load 0x2,-0x3 0a1b 00db | | Load_Top At_Offset_3 0a1c e011 | | Load 0x0,0x11 0a1d 01d5 | | Execute Vector,Field_Reference 0a1e 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0a1f e5fc | | Load 0x2,-0x4 0a20 00db | | Load_Top At_Offset_3 0a21 e011 | | Load 0x0,0x11 0a22 01d5 | | Execute Vector,Field_Reference 0a23 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0a24 e5fb | | Load 0x2,-0x5 0a25 00db | | Load_Top At_Offset_3 0a26 e011 | | Load 0x0,0x11 0a27 01d5 | | Execute Vector,Field_Reference 0a28 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 0a29 e5f9 | | Load 0x2,-0x7 0a2a 00db | | Load_Top At_Offset_3 0a2b e011 | | Load 0x0,0x11 0a2c 01d5 | | Execute Vector,Field_Reference 0a2d 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 0a2e e5f8 | | Load 0x2,-0x8 0a2f 00db | | Load_Top At_Offset_3 0a30 e011 | | Load 0x0,0x11 0a31 01d5 | | Execute Vector,Field_Reference 0a32 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 0a33 e040 | @ | Load 0x0,0x40 0a34 0a01 | | Execute_Immediate Plus,0x1 0a35 c040 | @ | Store 0x0,0x40 0a36 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0a37 0000 | | .XXX[0x1] 0a38 ; -------------------------------------------------------------------------------------- 0a38 ; SUBPROGRAM 0a38 ; -------------------------------------------------------------------------------------- 0a38 0a3b | ; | .CONST 0x0a3b ; Address of begin 0a39 0004 | | .CONST 0x0004 ; Address of exception handler 0a3a 0001 | | .CONST 0x0001 ; Number of locals 0a3b BODY_0a38: 0a3b INIT_0a38: 0a3b 00cf | | Action Mark_Auxiliary 0a3c e010 | | Load 0x0,0x10 0a3d 4801 |H | Short_Literal 0x1 0a3e 0263 | c | Execute Discrete,Above_Bound 0a3f 700c |p | Jump_Nonzero 0xa4c 0a40 00d8 | | Load_Top At_Offset_0 0a41 e011 | | Load 0x0,0x11 0a42 01d5 | | Execute Vector,Field_Reference 0a43 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 0a44 e012 | | Load 0x0,0x12 0a45 027f | | Execute Discrete,Equal 0a46 6803 |h | Jump_Zero 0xa4a 0a47 00d8 | | Load_Top At_Offset_0 0a48 8402 | | Call 0x2,0x2 0a49 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0a4a 00c8 | | Action Pop_Auxiliary_Range 0a4b 3ff4 |? | Loop_Increasing 0xa40 0a4c 00ce | | Action Pop_Auxiliary 0a4d e040 | @ | Load 0x0,0x40 0a4e 0f28 | ( | Execute_Immediate Equal,0x28 0a4f 6802 |h | Jump_Zero 0xa52 0a50 e053 | S | Load 0x0,0x53 0a51 0257 | W | Execute Discrete,Raise 0a52 e010 | | Load 0x0,0x10 0a53 0a01 | | Execute_Immediate Plus,0x1 0a54 00d8 | | Load_Top At_Offset_0 0a55 00e3 | | Load_Encached Natural_Cache 0a56 0260 | ` | Execute Discrete,In_Type 0a57 7001 |p | Jump_Nonzero 0xa59 0a58 0801 | | Execute_Immediate Raise,0x1 0a59 8402 | | Call 0x2,0x2 0a5a e010 | | Load 0x0,0x10 0a5b 0a01 | | Execute_Immediate Plus,0x1 0a5c c010 | | Store 0x0,0x10 0a5d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0a5e 0000 0000 | | .XXX[0x2] 0a60 ; -------------------------------------------------------------------------------------- 0a60 ; SUBPROGRAM 0a60 ; -------------------------------------------------------------------------------------- 0a60 0a63 | c | .CONST 0x0a63 ; Address of begin 0a61 0a66 | f | .CONST 0x0a66 ; Address of exception handler 0a62 0001 | | .CONST 0x0001 ; Number of locals 0a63 BODY_0a60: 0a63 INIT_0a60: 0a63 e5ff | | Load 0x2,-0x1 0a64 824c | L | Call 0x1,0x4c 0a65 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0a66 TRAP_0a60: 0a66 0007 | | Action Break_Optional 0a67 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0a68 ; -------------------------------------------------------------------------------------- 0a68 ; SUBPROGRAM 0a68 ; See instruction 0x02cf at 0x87b, index=0x20 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 e7fc | | Load 0x3,-0x4 0a6c 00e3 | | Load_Encached Natural_Cache 0a6d e7fe | | Load 0x3,-0x2 0a6e 826b | k | Call 0x1,0x6b 0a6f c7fd | | Store 0x3,-0x3 0a70 c7fc | | Store 0x3,-0x4 0a71 4102 |A | End_Rendezvous 0x2 0a72 0000 0000 | | .BLANK 0000[0x6] 0a78 ; -------------------------------------------------------------------------------------- 0a78 ; SUBPROGRAM 0a78 ; See instruction 0x02cf at 0x87b, index=0x1f 0a78 ; -------------------------------------------------------------------------------------- 0a78 0a7b | { | .CONST 0x0a7b ; Address of begin 0a79 0004 | | .CONST 0x0004 ; Address of exception handler 0a7a 0001 | | .CONST 0x0001 ; Number of locals 0a7b BODY_0a78: 0a7b INIT_0a78: 0a7b 4100 |A | End_Rendezvous 0x0 0a7c 0000 0000 | | .BLANK 0000[0x4] 0a80 ; -------------------------------------------------------------------------------------- 0a80 ; SUBPROGRAM 0a80 ; See instruction 0x02cf at 0x87b, index=0x1e 0a80 ; -------------------------------------------------------------------------------------- 0a80 0a83 | | .CONST 0x0a83 ; Address of begin 0a81 0004 | | .CONST 0x0004 ; Address of exception handler 0a82 0001 | | .CONST 0x0001 ; Number of locals 0a83 BODY_0a80: 0a83 INIT_0a80: 0a83 00db | | Load_Top At_Offset_3 0a84 e039 | 9 | Load 0x0,0x39 0a85 01d5 | | Execute Vector,Field_Reference 0a86 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0a87 0f01 | | Execute_Immediate Equal,0x1 0a88 6819 |h | Jump_Zero 0xaa2 0a89 00db | | Load_Top At_Offset_3 0a8a e039 | 9 | Load 0x0,0x39 0a8b 01d5 | | Execute Vector,Field_Reference 0a8c 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0a8d a7fd | | Store_Unchecked 0x3,-0x3 0a8e 00db | | Load_Top At_Offset_3 0a8f e039 | 9 | Load 0x0,0x39 0a90 01d5 | | Execute Vector,Field_Reference 0a91 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0a92 6806 |h | Jump_Zero 0xa99 0a93 00db | | Load_Top At_Offset_3 0a94 e039 | 9 | Load 0x0,0x39 0a95 01d5 | | Execute Vector,Field_Reference 0a96 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0a97 8249 | I | Call 0x1,0x49 0a98 4101 |A | End_Rendezvous 0x1 0a99 00db | | Load_Top At_Offset_3 0a9a e039 | 9 | Load 0x0,0x39 0a9b 01d5 | | Execute Vector,Field_Reference 0a9c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0a9d e7fe | | Load 0x3,-0x2 0a9e e039 | 9 | Load 0x0,0x39 0a9f 01d5 | | Execute Vector,Field_Reference 0aa0 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0aa1 4101 |A | End_Rendezvous 0x1 0aa2 e012 | | Load 0x0,0x12 0aa3 a7fd | | Store_Unchecked 0x3,-0x3 0aa4 00db | | Load_Top At_Offset_3 0aa5 e039 | 9 | Load 0x0,0x39 0aa6 01d5 | | Execute Vector,Field_Reference 0aa7 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0aa8 0aff | | Execute_Immediate Plus,-0x1 0aa9 e7fe | | Load 0x3,-0x2 0aaa e039 | 9 | Load 0x0,0x39 0aab 01d5 | | Execute Vector,Field_Reference 0aac 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0aad 4101 |A | End_Rendezvous 0x1 0aae 0000 0000 | | .XXX[0x2] 0ab0 ; -------------------------------------------------------------------------------------- 0ab0 ; SUBPROGRAM 0ab0 ; See instruction 0x02cf at 0x87b, index=0x1d 0ab0 ; -------------------------------------------------------------------------------------- 0ab0 0ab3 | | .CONST 0x0ab3 ; Address of begin 0ab1 0004 | | .CONST 0x0004 ; Address of exception handler 0ab2 0001 | | .CONST 0x0001 ; Number of locals 0ab3 BODY_0ab0: 0ab3 INIT_0ab0: 0ab3 00db | | Load_Top At_Offset_3 0ab4 823f | ? | Call 0x1,0x3f 0ab5 4100 |A | End_Rendezvous 0x0 0ab6 0000 0000 | | .XXX[0x2] 0ab8 ; -------------------------------------------------------------------------------------- 0ab8 ; SUBPROGRAM 0ab8 ; See instruction 0x02cf at 0x87b, index=0x1c 0ab8 ; -------------------------------------------------------------------------------------- 0ab8 0abb | | .CONST 0x0abb ; Address of begin 0ab9 0004 | | .CONST 0x0004 ; Address of exception handler 0aba 0001 | | .CONST 0x0001 ; Number of locals 0abb BODY_0ab8: 0abb INIT_0ab8: 0abb 00db | | Load_Top At_Offset_3 0abc 8249 | I | Call 0x1,0x49 0abd 4100 |A | End_Rendezvous 0x0 0abe 0000 0000 | | .XXX[0x2] 0ac0 ; -------------------------------------------------------------------------------------- 0ac0 ; SUBPROGRAM 0ac0 ; See instruction 0x02cf at 0x87b, index=0x1b 0ac0 ; -------------------------------------------------------------------------------------- 0ac0 0ac3 | | .CONST 0x0ac3 ; Address of begin 0ac1 0004 | | .CONST 0x0004 ; Address of exception handler 0ac2 0001 | | .CONST 0x0001 ; Number of locals 0ac3 BODY_0ac0: 0ac3 INIT_0ac0: 0ac3 e7fd | | Load 0x3,-0x3 0ac4 e7fe | | Load 0x3,-0x2 0ac5 825f | _ | Call 0x1,0x5f 0ac6 4100 |A | End_Rendezvous 0x0 0ac7 0000 | | .XXX[0x1] 0ac8 ; -------------------------------------------------------------------------------------- 0ac8 ; SUBPROGRAM 0ac8 ; See instruction 0x02cf at 0x87b, index=0x1a 0ac8 ; -------------------------------------------------------------------------------------- 0ac8 0acb | | .CONST 0x0acb ; Address of begin 0ac9 0004 | | .CONST 0x0004 ; Address of exception handler 0aca 0001 | | .CONST 0x0001 ; Number of locals 0acb BODY_0ac8: 0acb INIT_0ac8: 0acb 826a | j | Call 0x1,0x6a 0acc 4100 |A | End_Rendezvous 0x0 0acd 0000 0000 | | .XXX[0x3] 0acf 0000 | | 0ad0 ; -------------------------------------------------------------------------------------- 0ad0 ; SUBPROGRAM 0ad0 ; See instruction 0x02cf at 0x87b, index=0x19 0ad0 ; -------------------------------------------------------------------------------------- 0ad0 0ad3 | | .CONST 0x0ad3 ; Address of begin 0ad1 0004 | | .CONST 0x0004 ; Address of exception handler 0ad2 0001 | | .CONST 0x0001 ; Number of locals 0ad3 BODY_0ad0: 0ad3 INIT_0ad0: 0ad3 00db | | Load_Top At_Offset_3 0ad4 824c | L | Call 0x1,0x4c 0ad5 4100 |A | End_Rendezvous 0x0 0ad6 0000 0000 | | .XXX[0x2] 0ad8 ; -------------------------------------------------------------------------------------- 0ad8 ; SUBPROGRAM 0ad8 ; See instruction 0x02cf at 0x87b, index=0x18 0ad8 ; -------------------------------------------------------------------------------------- 0ad8 0adb | | .CONST 0x0adb ; Address of begin 0ad9 0004 | | .CONST 0x0004 ; Address of exception handler 0ada 0001 | | .CONST 0x0001 ; Number of locals 0adb BODY_0ad8: 0adb INIT_0ad8: 0adb 00db | | Load_Top At_Offset_3 0adc 8260 | ` | Call 0x1,0x60 0add 4100 |A | End_Rendezvous 0x0 0ade 0000 0000 | | .XXX[0x2] 0ae0 ; -------------------------------------------------------------------------------------- 0ae0 ; SUBPROGRAM 0ae0 ; See instruction 0x02cf at 0x87b, index=0x17 0ae0 ; -------------------------------------------------------------------------------------- 0ae0 0ae3 | | .CONST 0x0ae3 ; Address of begin 0ae1 0004 | | .CONST 0x0004 ; Address of exception handler 0ae2 0001 | | .CONST 0x0001 ; Number of locals 0ae3 BODY_0ae0: 0ae3 INIT_0ae0: 0ae3 00db | | Load_Top At_Offset_3 0ae4 824a | J | Call 0x1,0x4a 0ae5 4100 |A | End_Rendezvous 0x0 0ae6 0000 0000 | | .XXX[0x2] 0ae8 ; -------------------------------------------------------------------------------------- 0ae8 ; SUBPROGRAM 0ae8 ; See instruction 0x02cf at 0x87b, index=0x16 0ae8 ; -------------------------------------------------------------------------------------- 0ae8 0aeb | | .CONST 0x0aeb ; Address of begin 0ae9 0004 | | .CONST 0x0004 ; Address of exception handler 0aea 0001 | | .CONST 0x0001 ; Number of locals 0aeb BODY_0ae8: 0aeb INIT_0ae8: 0aeb e7f8 | | Load 0x3,-0x8 0aec e7f9 | | Load 0x3,-0x7 0aed e7fa | | Load 0x3,-0x6 0aee e7fb | | Load 0x3,-0x5 0aef e7fc | | Load 0x3,-0x4 0af0 e7fd | | Load 0x3,-0x3 0af1 e7fe | | Load 0x3,-0x2 0af2 8248 | H | Call 0x1,0x48 0af3 4100 |A | End_Rendezvous 0x0 0af4 0000 0000 | | .BLANK 0000[0x4] 0af8 ; -------------------------------------------------------------------------------------- 0af8 ; SUBPROGRAM 0af8 ; See instruction 0x02cf at 0x87b, index=0x15 0af8 ; -------------------------------------------------------------------------------------- 0af8 0afb | | .CONST 0x0afb ; Address of begin 0af9 0004 | | .CONST 0x0004 ; Address of exception handler 0afa 0001 | | .CONST 0x0001 ; Number of locals 0afb BODY_0af8: 0afb INIT_0af8: 0afb e7f7 | | Load 0x3,-0x9 0afc e7f8 | | Load 0x3,-0x8 0afd e7f9 | | Load 0x3,-0x7 0afe e7fa | | Load 0x3,-0x6 0aff e7fb | | Load 0x3,-0x5 0b00 e7fc | | Load 0x3,-0x4 0b01 e7fd | | Load 0x3,-0x3 0b02 e7fe | | Load 0x3,-0x2 0b03 8247 | G | Call 0x1,0x47 0b04 4100 |A | End_Rendezvous 0x0 0b05 0000 0000 | | .XXX[0x3] 0b07 0000 | | 0b08 ; -------------------------------------------------------------------------------------- 0b08 ; SUBPROGRAM 0b08 ; See instruction 0x02cf at 0x87b, index=0x14 0b08 ; -------------------------------------------------------------------------------------- 0b08 0b0b | | .CONST 0x0b0b ; Address of begin 0b09 0004 | | .CONST 0x0004 ; Address of exception handler 0b0a 0001 | | .CONST 0x0001 ; Number of locals 0b0b BODY_0b08: 0b0b INIT_0b08: 0b0b e7fc | | Load 0x3,-0x4 0b0c e7fd | | Load 0x3,-0x3 0b0d e7fe | | Load 0x3,-0x2 0b0e 8246 | F | Call 0x1,0x46 0b0f 4100 |A | End_Rendezvous 0x0 0b10 ; -------------------------------------------------------------------------------------- 0b10 ; SUBPROGRAM 0b10 ; See instruction 0x02cf at 0x87b, index=0x13 0b10 ; -------------------------------------------------------------------------------------- 0b10 0b13 | | .CONST 0x0b13 ; Address of begin 0b11 0004 | | .CONST 0x0004 ; Address of exception handler 0b12 0001 | | .CONST 0x0001 ; Number of locals 0b13 BODY_0b10: 0b13 INIT_0b10: 0b13 e7f8 | | Load 0x3,-0x8 0b14 e7f9 | | Load 0x3,-0x7 0b15 e7fa | | Load 0x3,-0x6 0b16 e7fb | | Load 0x3,-0x5 0b17 e7fc | | Load 0x3,-0x4 0b18 e7fd | | Load 0x3,-0x3 0b19 e7fe | | Load 0x3,-0x2 0b1a 8245 | E | Call 0x1,0x45 0b1b 4100 |A | End_Rendezvous 0x0 0b1c 0000 0000 | | .BLANK 0000[0x4] 0b20 ; -------------------------------------------------------------------------------------- 0b20 ; SUBPROGRAM 0b20 ; See instruction 0x02cf at 0x87b, index=0x12 0b20 ; -------------------------------------------------------------------------------------- 0b20 0b23 | # | .CONST 0x0b23 ; Address of begin 0b21 0004 | | .CONST 0x0004 ; Address of exception handler 0b22 0001 | | .CONST 0x0001 ; Number of locals 0b23 BODY_0b20: 0b23 INIT_0b20: 0b23 e7f7 | | Load 0x3,-0x9 0b24 e7f8 | | Load 0x3,-0x8 0b25 e7f9 | | Load 0x3,-0x7 0b26 e7fa | | Load 0x3,-0x6 0b27 e7fb | | Load 0x3,-0x5 0b28 e7fc | | Load 0x3,-0x4 0b29 e7fd | | Load 0x3,-0x3 0b2a e7fe | | Load 0x3,-0x2 0b2b 8244 | D | Call 0x1,0x44 0b2c 4101 |A | End_Rendezvous 0x1 0b2d 0000 0000 | | .XXX[0x3] 0b2f 0000 | | 0b30 ; -------------------------------------------------------------------------------------- 0b30 ; SUBPROGRAM 0b30 ; See instruction 0x02cf at 0x87b, index=0x11 0b30 ; -------------------------------------------------------------------------------------- 0b30 0b33 | 3 | .CONST 0x0b33 ; Address of begin 0b31 0004 | | .CONST 0x0004 ; Address of exception handler 0b32 0001 | | .CONST 0x0001 ; Number of locals 0b33 BODY_0b30: 0b33 INIT_0b30: 0b33 e7fa | | Load 0x3,-0x6 0b34 e7fb | | Load 0x3,-0x5 0b35 e7fc | | Load 0x3,-0x4 0b36 e7fd | | Load 0x3,-0x3 0b37 e7fe | | Load 0x3,-0x2 0b38 8243 | C | Call 0x1,0x43 0b39 4101 |A | End_Rendezvous 0x1 0b3a 0000 0000 | | .BLANK 0000[0x6] 0b40 ; -------------------------------------------------------------------------------------- 0b40 ; SUBPROGRAM 0b40 ; See instruction 0x02cf at 0x87b, index=0x10 0b40 ; -------------------------------------------------------------------------------------- 0b40 0b43 | C | .CONST 0x0b43 ; Address of begin 0b41 0004 | | .CONST 0x0004 ; Address of exception handler 0b42 0001 | | .CONST 0x0001 ; Number of locals 0b43 BODY_0b40: 0b43 INIT_0b40: 0b43 e7fd | | Load 0x3,-0x3 0b44 e7fc | | Load 0x3,-0x4 0b45 e7fe | | Load 0x3,-0x2 0b46 8242 | B | Call 0x1,0x42 0b47 4102 |A | End_Rendezvous 0x2 0b48 ; -------------------------------------------------------------------------------------- 0b48 ; SUBPROGRAM 0b48 ; See instruction 0x02cf at 0x87b, index=0xf 0b48 ; -------------------------------------------------------------------------------------- 0b48 0b4b | K | .CONST 0x0b4b ; Address of begin 0b49 0004 | | .CONST 0x0004 ; Address of exception handler 0b4a 0001 | | .CONST 0x0001 ; Number of locals 0b4b BODY_0b48: 0b4b INIT_0b48: 0b4b 00db | | Load_Top At_Offset_3 0b4c 8241 | A | Call 0x1,0x41 0b4d 4100 |A | End_Rendezvous 0x0 0b4e 0000 0000 | | .XXX[0x2] 0b50 ; -------------------------------------------------------------------------------------- 0b50 ; SUBPROGRAM 0b50 ; See instruction 0x02cf at 0x87b, index=0xe 0b50 ; -------------------------------------------------------------------------------------- 0b50 0b53 | S | .CONST 0x0b53 ; Address of begin 0b51 0004 | | .CONST 0x0004 ; Address of exception handler 0b52 0001 | | .CONST 0x0001 ; Number of locals 0b53 BODY_0b50: 0b53 INIT_0b50: 0b53 e7f9 | | Load 0x3,-0x7 0b54 e7fa | | Load 0x3,-0x6 0b55 e7fb | | Load 0x3,-0x5 0b56 e7fc | | Load 0x3,-0x4 0b57 e7fd | | Load 0x3,-0x3 0b58 e7fe | | Load 0x3,-0x2 0b59 8240 | @ | Call 0x1,0x40 0b5a 4100 |A | End_Rendezvous 0x0 0b5b 0000 0000 | | .BLANK 0000[0x5] 0b60 ; -------------------------------------------------------------------------------------- 0b60 ; SUBPROGRAM 0b60 ; See instruction 0x02cf at 0x87b, index=0xd 0b60 ; -------------------------------------------------------------------------------------- 0b60 0b63 | c | .CONST 0x0b63 ; Address of begin 0b61 0004 | | .CONST 0x0004 ; Address of exception handler 0b62 0001 | | .CONST 0x0001 ; Number of locals 0b63 BODY_0b60: 0b63 INIT_0b60: 0b63 00db | | Load_Top At_Offset_3 0b64 8276 | v | Call 0x1,0x76 0b65 a7fd | | Store_Unchecked 0x3,-0x3 0b66 4101 |A | End_Rendezvous 0x1 0b67 ; -------------------------------------------------------------------------------------- 0b67 ; STRING TABLE 0b67 ; -------------------------------------------------------------------------------------- 0b67 0004 | | .STRTAB 0x0004->0x0b69 ; "Action not found" 0b68 0012 | | .STREND 0x0012->0x0b71 0b69 4163 7469 |Acti| .STRTAB_STRINGS 0b71 0000 0000 | | .BLANK 0000[0x7] 0b78 ; -------------------------------------------------------------------------------------- 0b78 ; Debug Table 0b78 ; -------------------------------------------------------------------------------------- 0b78 0004 0009 | | .DEBUG4 0x0004,0x0009,0x12a6,0x0000,0x0001,0x0000 0b7e 0028 | ( | .XXX[0x1] 0b7f 0000 0000 | | .BLANK 0000[0x2e] 0bad 1002 8000 | | .XXX[0xb] 0baf 0000 0000 | | 0bb1 0020 0000 | | 0bb3 0110 0000 | | 0bb5 0000 8000 | | 0bb7 0005 | | 0bb8 0000 0000 | | .BLANK 0000[0x48]