|
DataMuseum.dkPresents historical artifacts from the history of: RC4000/8000/9000 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RC4000/8000/9000 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 96768 (0x17a00)
Types: Rc489kSubCat
Names: »crypr«
└─⟦00964e8f7⟧ Bits:30007478 RC8000 Dump tape fra HCØ.
└─⟦b2ec5d50f⟧
└─⟦this⟧ »crypr«
0x00000…00033 (0,) Rc489kSubCatEnt {f00=0x00223a, f01=0x000078, f02=0x000081, filename=»allstatel2 «, entry_tail=0-4-0-2-1981-02-16T14:33-disc2-0xb01f-0x0-0x0-0x0}
0x00033…00066 Rc489kSubCatEnt {f00=0x00418a, f01=0x000078, f02=0x000081, filename=»rydseg «, entry_tail=0-4-0-9-1981-02-16T14:31-disc2-0xe02d-0x0-0x0-0x0}
0x00066…00099 Rc489kSubCatEnt {f00=0x00d17a, f01=0x000078, f02=0x000081, filename=»alutproc «, entry_tail=0-4-0-8-1981-01-10T08:32-disc2-0x0-0x0-0x0-0x0}
0x00099…000cc Rc489kSubCatEnt {f00=0x01515a, f01=0x000078, f02=0x000081, filename=»rydstruct «, entry_tail=0-4-0-19-1981-02-04T11:57-disc2-0x0-0x0-0x0-0x0}
0x000cc…000ff Rc489kSubCatEnt {f00=0x028c92, f01=0x000078, f02=0x000081, filename=»allstatel «, entry_tail=0-4-0-2-1981-02-03T13:39-disc2-0xd020-0x0-0x0-0x0}
0x000ff…00132 Rc489kSubCatEnt {f00=0x02a7ca, f01=0x000078, f02=0x000081, filename=»convstruct «, entry_tail=0-4-0-1-1981-02-03T10:51-disc2-0x0-0x0-0x0-0x0}
0x00132…00165 Rc489kSubCatEnt {f00=0x02baea, f01=0x000078, f02=0x000081, filename=»convloop «, entry_tail=0-4-0-1-1981-02-03T09:50-disc2-0x0-0x0-0x0-0x0}
0x00165…00198 Rc489kSubCatEnt {f00=0x02c99a, f01=0x000078, f02=0x000081, filename=»stateloop2 «, entry_tail=0-4-0-2-1980-11-26T12:18-disc2-0x0-0x0-0x0-0x0}
0x00198…001cb Rc489kSubCatEnt {f00=0x02edba, f01=0x000078, f02=0x000081, filename=»ryproc «, entry_tail=0-4-0-12-1980-11-25T16:44-disc2-0x10006-0x0-0x0-0x0}
0x001cb…001fe Rc489kSubCatEnt {f00=0x03ad72, f01=0x000078, f02=0x000081, filename=»coreproc «, entry_tail=0-4-0-7-1980-10-09T14:59-disc2-0x802d-0x0-0x0-0x0}
0x001fe…00231 Rc489kSubCatEnt {f00=0x041a62, f01=0x000078, f02=0x000081, filename=»ionloop «, entry_tail=0-4-0-2-1980-09-09T17:37-disc2-0x0-0x0-0x0-0x0}
0x00231…00264 Rc489kSubCatEnt {f00=0x04379a, f01=0x000078, f02=0x000081, filename=»stateloop «, entry_tail=0-4-0-2-1980-09-09T17:40-disc2-0x0-0x0-0x0-0x0}
0x00264…00297 Rc489kSubCatEnt {f00=0x045f43, f01=0x000000, f02=0x0007cf, filename=»ryglobal «, entry_tail=0-4-0-2-1980-07-31T14:50-disc2-0x802e-0x0-0x0-0x0}
0x00297…002ca Rc489kSubCatEnt {f00=0x047003, f01=0x000078, f02=0x000081, filename=»qdmrec «, entry_tail=0-4-0-4-1980-05-07T14:37--0xc008-0x0-0x0-0x0}
0x002ca…002fd Rc489kSubCatEnt {f00=0x04b003, f01=0x000078, f02=0x000081, filename=»statevar «, entry_tail=0-4-0-1-1980-05-07T14:37--0xb026-0x0-0x0-0x0}
0x002fd…00300 0x000014
0x00300…00333 Rc489kSubCatEnt {f00=0x04c003, f01=0x000078, f02=0x000081, filename=»statevar2 «, entry_tail=0-4-0-1-1980-05-07T14:37--0x12021-0x0-0x0-0x0}
0x00333…00366 Rc489kSubCatEnt {f00=0x04d003, f01=0x000078, f02=0x000081, filename=»fracparpr «, entry_tail=0-4-0-7-1980-05-07T14:37--0x1102b-0x0-0x0-0x0}
0x00366…00399 Rc489kSubCatEnt {f00=0x054003, f01=0x000078, f02=0x000081, filename=»readctxt «, entry_tail=0-4-0-2-1980-05-07T14:37--0x0-0x0-0x0-0x0}
0x00399…003cc Rc489kSubCatEnt {f00=0x056003, f01=0x000078, f02=0x000081, filename=»readtexttxt «, entry_tail=0-4-0-1-1980-05-07T14:37--0x12004-0x0-0x0-0x0}
0x003cc…003ff Rc489kSubCatEnt {f00=0x057003, f01=0x000078, f02=0x000081, filename=»ryddesinp «, entry_tail=0-4-0-13-1980-05-07T14:37--0xd006-0x0-0x0-0x0}
0x003ff…00400 02 ┆ ┆
0x00400…00420 a7 ca 00 00 78 00 00 81 63 6f 6e 76 73 74 72 75 63 74 00 00 00 00 01 64 69 73 63 32 00 00 00 00 ┆ x convstruct disc2 ┆
0x00420…00440 00 00 00 78 42 17 00 00 00 00 00 00 00 00 00 00 00 00 02 ba ea 00 00 78 00 00 81 63 6f 6e 76 6c ┆ xB x convl┆
0x00440…00460 6f 6f 70 00 00 00 00 00 00 01 64 69 73 63 32 00 00 00 00 00 00 00 78 41 d1 00 00 00 00 00 00 00 ┆oop disc2 xA ┆
0x00460…00480 00 00 00 00 00 02 c9 9a 00 00 78 00 00 81 73 74 61 74 65 6c 6f 6f 70 32 00 00 00 00 02 64 69 73 ┆ x stateloop2 dis┆
0x00480…004a0 63 32 00 00 00 00 00 00 00 76 86 4e 00 00 00 00 00 00 00 00 00 00 00 00 02 ed ba 00 00 78 00 00 ┆c2 v N x ┆
0x004a0…004c0 81 72 79 70 72 6f 63 00 00 00 00 00 00 00 00 0c 64 69 73 63 32 00 00 00 00 00 00 00 76 81 0e 01 ┆ ryproc disc2 v ┆
0x004c0…004e0 00 06 00 00 00 00 00 00 00 00 00 03 ad 72 00 00 78 00 00 81 63 6f 72 65 70 72 6f 63 00 00 00 00 ┆ r x coreproc ┆
0x004e0…00500 00 00 07 64 69 73 63 32 00 00 00 00 00 00 00 75 52 08 00 80 2d 00 00 00 00 00 00 00 00 00 04 1a ┆ disc2 uR - ┆
0x00500…00520 62 00 00 78 00 00 81 69 6f 6e 6c 6f 6f 70 00 00 00 00 00 00 00 02 64 69 73 63 32 00 00 00 00 00 ┆b x ionloop disc2 ┆
0x00520…00540 00 00 74 91 9f 00 00 00 00 00 00 00 00 00 00 00 00 04 37 9a 00 00 78 00 00 81 73 74 61 74 65 6c ┆ t 7 x statel┆
0x00540…00560 6f 6f 70 00 00 00 00 00 02 64 69 73 63 32 00 00 00 00 00 00 00 74 91 a2 00 00 00 00 00 00 00 00 ┆oop disc2 t ┆
0x00560…00580 00 00 00 00 04 5f 43 00 00 00 00 07 cf 72 79 67 6c 6f 62 61 6c 00 00 00 00 00 00 02 64 69 73 63 ┆ _C ryglobal disc┆
0x00580…005a0 32 00 00 00 00 00 00 00 73 8f 62 00 80 2e 00 00 00 00 00 00 00 00 00 04 70 03 00 00 78 00 00 81 ┆2 s b . p x ┆
0x005a0…005c0 71 64 6d 72 65 63 00 00 00 00 00 00 00 00 04 00 00 00 00 00 00 00 00 00 00 00 00 71 6c 27 00 c0 ┆qdmrec ql' ┆
0x005c0…005e0 08 00 00 00 00 00 00 00 00 00 04 b0 03 00 00 78 00 00 81 73 74 61 74 65 76 61 72 00 00 00 00 00 ┆ x statevar ┆
0x005e0…00600 00 01 00 00 00 00 00 00 00 00 00 00 00 00 71 6c 27 00 b0 26 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ql' & ┆
0x00600…00c00 Data for allstatel2
0x00c00…02700 Data for rydseg
0x02700…03f00 Data for alutproc
0x03f00…07800 (7,) Data for rydstruct
0x07800…07e00 Data for allstatel
0x07e00…08100 (14,) Data for convstruct
0x08100…08400 Data for convloop
0x08400…08a00 Data for stateloop2
0x08a00…0ae00 Data for ryproc
0x0ae00…0c300 Data for coreproc
0x0c300…0c900 Data for ionloop
0x0c900…0cf00 Data for stateloop
0x0cf00…0d500 (23,) Data for ryglobal
0x0d500…0e100 Data for qdmrec
0x0e100…0e400 (25,) Data for statevar
0x0e400…0e700 Data for statevar2
0x0e700…0fc00 Data for fracparpr
0x0fc00…10200 (28,) Data for readctxt
0x10200…10500 Data for readtexttxt
0x10500…12c00 (29,) Data for ryddesinp
0x12c00…12c20 0a 20 32 31 35 37 20 20 32 36 34 36 20 20 61 31 38 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 2157 2646 a18: ┆
0x12c20…12c40 20 20 20 20 20 3b 20 72 65 70 6c 3a 0a 20 32 31 35 38 20 20 32 36 34 36 20 20 20 20 20 20 20 61 ┆ ; repl: 2158 2646 a┆
0x12c40…12c60 6c 2e 20 77 30 20 20 20 20 20 63 32 33 2e 2d 32 20 3b 20 20 20 61 63 74 69 6f 6e 20 28 36 29 3a ┆l. w0 c23.-2 ; action (6):┆
0x12c60…12c80 3d 20 61 6c 61 72 6d 20 28 70 6f 73 69 74 69 6f 6e 20 6e 6f 74 20 66 6f 75 6e 64 29 3b 0a 20 32 ┆= alarm (position not found); 2┆
0x12c80…12ca0 31 35 39 20 20 32 36 34 38 20 20 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 68 36 2e 20 20 ┆159 2648 jl. h6. ┆
0x12ca0…12cc0 20 20 3b 20 20 20 67 6f 74 6f 20 70 72 65 70 20 36 3b 0a 20 32 31 36 30 20 20 32 36 35 30 20 20 ┆ ; goto prep 6; 2160 2650 ┆
0x12cc0…12ce0 0a 20 32 31 36 30 20 20 32 36 35 30 20 20 0a 20 32 31 36 30 20 20 32 36 35 30 20 20 61 31 39 3a ┆ 2160 2650 2160 2650 a19:┆
0x12ce0…12d00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 67 65 6e 3a 0a 20 32 31 36 31 20 ┆ ; gen: 2161 ┆
0x12d00…12d20 20 32 36 35 30 20 20 20 20 20 20 20 61 6c 2e 20 77 30 20 20 20 20 20 61 35 34 2e 20 20 20 3b 20 ┆ 2650 al. w0 a54. ; ┆
0x12d20…12d40 20 20 61 63 74 69 6f 6e 20 28 31 30 29 3a 3d 20 67 65 6e 20 74 65 73 74 20 65 6d 3b 0a 20 32 31 ┆ action (10):= gen test em; 21┆
0x12d40…12d60 36 32 20 20 32 36 35 32 20 20 20 20 20 20 20 72 73 2e 20 77 30 20 20 20 20 20 61 34 30 2e 2b 31 ┆62 2652 rs. w0 a40.+1┆
0x12d60…12d80 30 3b 0a 20 32 31 36 33 20 20 32 36 35 34 20 20 20 20 20 20 20 61 6c 2e 20 77 30 20 20 20 20 20 ┆0; 2163 2654 al. w0 ┆
0x12d80…12da0 61 35 33 2e 20 20 20 3b 20 20 20 61 63 74 69 6f 6e 20 28 36 29 3a 3d 20 67 65 6e 20 74 65 73 74 ┆a53. ; action (6):= gen test┆
0x12da0…12dc0 20 6c 69 6e 65 3b 0a 20 32 31 36 34 20 20 32 36 35 36 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ line; 2164 2656 ┆
0x12dc0…12de0 20 20 20 20 20 20 20 20 20 20 20 3b 20 70 72 65 70 20 36 3a 0a 20 32 31 36 35 20 20 32 36 35 36 ┆ ; prep 6: 2165 2656┆
0x12de0…12e00 20 20 68 36 3a 20 20 72 73 2e 20 77 30 20 20 20 20 20 61 34 30 2e 2b 36 20 3b 0a 20 32 31 36 36 ┆ h6: rs. w0 a40.+6 ; 2166┆
0x12e00…12e20 20 20 32 36 35 38 20 20 20 20 20 20 20 61 6c 2e 20 77 30 20 20 20 20 20 61 35 30 2e 20 20 20 3b ┆ 2658 al. w0 a50. ;┆
0x12e20…12e40 20 20 20 61 63 74 69 6f 6e 20 28 31 32 29 3a 3d 20 6d 6f 76 65 20 66 69 78 3b 0a 20 32 31 36 37 ┆ action (12):= move fix; 2167┆
0x12e40…12e60 20 20 32 36 36 30 20 20 20 20 20 20 20 72 73 2e 20 77 30 20 20 20 20 20 61 34 30 2e 2b 31 32 3b ┆ 2660 rs. w0 a40.+12;┆
0x12e60…12e80 0a 20 32 31 36 38 20 20 32 36 36 32 20 20 20 20 20 20 20 61 6c 2e 20 77 30 20 20 20 20 20 61 34 ┆ 2168 2662 al. w0 a4┆
0x12e80…12ea0 33 2e 20 20 20 3b 20 20 20 61 63 74 69 6f 6e 20 28 32 29 3a 3d 20 74 6f 20 6f 62 6a 3b 0a 20 32 ┆3. ; action (2):= to obj; 2┆
0x12ea0…12ec0 31 36 39 20 20 32 36 36 34 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆169 2664 ┆
0x12ec0…12ee0 20 20 3b 20 70 72 65 70 20 37 3a 0a 20 32 31 37 30 20 20 32 36 36 34 20 20 68 37 3a 20 20 72 73 ┆ ; prep 7: 2170 2664 h7: rs┆
0x12ee0…12f00 2e 20 77 30 20 20 20 20 20 61 34 30 2e 2b 32 20 3b 0a 20 32 31 37 31 20 20 32 36 36 36 20 20 20 ┆. w0 a40.+2 ; 2171 2666 ┆
0x12f00…12f20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 28 61 34 30 2e 2b 31 34 29 3b 20 20 20 67 6f 74 6f 20 61 ┆ jl. (a40.+14); goto a┆
0x12f20…12f40 63 74 69 6f 6e 20 28 31 34 29 3b 0a 20 32 31 37 32 20 20 32 36 36 38 20 20 0c 0a 20 32 31 37 32 ┆ction (14); 2172 2668 2172┆
0x12f40…12f60 20 20 32 36 36 38 20 20 0a 20 32 31 37 32 20 20 32 36 36 38 20 20 3b 20 72 63 20 31 37 2e 36 2e ┆ 2668 2172 2668 ; rc 17.6.┆
0x12f60…12f80 36 39 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆69 ┆
0x12f80…12fa0 20 65 64 69 74 6f 72 20 69 2c 20 74 61 70 65 20 33 2c 20 70 61 67 65 20 39 2e 0a 20 32 31 37 33 ┆ editor i, tape 3, page 9. 2173┆
0x12fa0…12fc0 20 20 32 36 36 38 20 20 0a 20 32 31 37 33 20 20 32 36 36 38 20 20 61 32 30 3a 20 20 20 20 20 20 ┆ 2668 2173 2668 a20: ┆
0x12fc0…12fe0 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 73 74 6f 72 65 20 6c 69 6e 65 3a 0a 20 32 31 37 34 ┆ ; store line: 2174┆
0x12fe0…13000 20 20 32 36 36 38 20 20 20 20 20 20 20 72 6c 2e 20 77 30 20 20 20 20 20 66 34 34 2e 20 20 20 3b ┆ 2668 rl. w0 f44. ;┆
0x13000…13020 0a 20 32 31 37 35 20 20 32 36 37 30 20 20 20 20 20 20 20 72 73 2e 20 77 30 20 20 20 20 20 66 36 ┆ 2175 2670 rs. w0 f6┆
0x13020…13040 35 2e 20 20 20 3b 20 20 20 6f 6c 64 20 6c 69 6e 65 3a 3d 20 63 75 72 20 6c 69 6e 65 3b 0a 20 32 ┆5. ; old line:= cur line; 2┆
0x13040…13060 31 37 36 20 20 32 36 37 32 20 20 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 61 32 2e 20 20 ┆176 2672 jl. a2. ┆
0x13060…13080 20 20 3b 20 20 20 67 6f 74 6f 20 6e 65 78 74 20 69 6e 73 74 72 20 32 3b 0a 20 32 31 37 37 20 20 ┆ ; goto next instr 2; 2177 ┆
0x13080…130a0 32 36 37 34 20 20 0a 20 32 31 37 37 20 20 32 36 37 34 20 20 0a 20 32 31 37 37 20 20 32 36 37 34 ┆2674 2177 2674 2177 2674┆
0x130a0…130c0 20 20 61 32 31 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 72 65 73 65 74 ┆ a21: ; reset┆
0x130c0…130e0 20 6c 69 6e 65 3a 0a 20 32 31 37 38 20 20 32 36 37 34 20 20 20 20 20 20 20 72 6c 2e 20 77 30 20 ┆ line: 2178 2674 rl. w0 ┆
0x130e0…13100 20 20 20 20 66 36 35 2e 20 20 20 3b 0a 20 32 31 37 39 20 20 32 36 37 36 20 20 20 20 20 20 20 72 ┆ f65. ; 2179 2676 r┆
0x13100…13120 73 2e 20 77 30 20 20 20 20 20 66 36 34 2e 20 20 20 3b 20 20 20 6c 69 6e 65 20 64 65 73 74 3a 3d ┆s. w0 f64. ; line dest:=┆
0x13120…13140 20 6f 6c 64 20 6c 69 6e 65 3b 0a 20 32 31 38 30 20 20 32 36 37 38 20 20 20 20 20 20 20 6a 6c 2e ┆ old line; 2180 2678 jl.┆
0x13140…13160 20 20 20 20 20 20 20 20 61 36 32 2e 20 20 20 3b 20 20 20 67 6f 74 6f 20 70 72 65 70 20 30 3b 0a ┆ a62. ; goto prep 0; ┆
0x13160…13180 20 32 31 38 31 20 20 32 36 38 30 20 20 0a 20 32 31 38 31 20 20 32 36 38 30 20 20 0a 20 32 31 38 ┆ 2181 2680 2181 2680 218┆
0x13180…131a0 31 20 20 32 36 38 30 20 20 3b 20 61 32 32 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆1 2680 ; a22: ┆
0x131a0…131c0 3b 20 72 65 70 65 61 74 20 67 65 6e 3a 0a 20 32 31 38 32 20 20 32 36 38 30 20 20 20 20 20 20 20 ┆; repeat gen: 2182 2680 ┆
0x131c0…131e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 67 6f 74 6f 20 61 63 74 69 6f ┆ ; goto actio┆
0x131e0…13200 6e 20 70 72 6f 63 65 64 75 72 65 20 67 65 6e 20 74 65 73 74 20 6c 69 6e 65 3b 0a 20 32 31 38 33 ┆n procedure gen test line; 2183┆
0x13200…13220 (34,) 20 20 32 36 38 30 20 20 0a 20 32 31 38 33 20 20 32 36 38 30 20 20 0a 20 32 31 38 33 20 20 32 36 ┆ 2680 2183 2680 2183 26┆
0x13220…13240 38 30 20 20 61 32 33 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 67 65 6e ┆80 a23: ; gen┆
0x13240…13260 20 72 65 74 75 72 6e 3a 0a 20 32 31 38 34 20 20 32 36 38 30 20 20 20 20 20 20 20 62 6c 20 20 77 ┆ return: 2184 2680 bl w┆
0x13260…13280 30 20 20 78 33 2b 31 20 20 20 20 20 20 3b 0a 20 32 31 38 35 20 20 32 36 38 32 20 20 20 20 20 20 ┆0 x3+1 ; 2185 2682 ┆
0x13280…132a0 20 77 61 20 20 77 30 20 20 20 20 20 36 20 20 20 20 20 20 3b 20 20 20 67 65 6e 20 6c 61 73 74 20 ┆ wa w0 6 ; gen last ┆
0x132a0…132c0 69 6e 73 74 72 3a 3d 20 63 75 72 20 63 6f 72 72 20 2b 20 62 79 74 65 20 28 63 75 72 20 63 6f 72 ┆instr:= cur corr + byte (cur cor┆
0x132c0…132e0 72 20 2b 20 31 29 3b 0a 20 32 31 38 36 20 20 32 36 38 34 20 20 20 20 20 20 20 61 6c 20 20 77 33 ┆r + 1); 2186 2684 al w3┆
0x132e0…13300 20 20 78 33 2b 32 20 20 20 20 20 20 3b 20 20 20 63 75 72 20 63 6f 72 72 3a 3d 20 67 65 6e 20 66 ┆ x3+2 ; cur corr:= gen f┆
0x13300…13320 69 72 73 74 20 69 6e 73 74 72 3a 3d 20 63 75 72 20 63 6f 72 72 20 2b 20 32 3b 0a 20 32 31 38 37 ┆irst instr:= cur corr + 2; 2187┆
0x13320…13340 20 20 32 36 38 36 20 20 20 20 20 20 20 64 73 2e 20 77 30 20 20 20 20 20 66 35 38 2e 20 20 20 3b ┆ 2686 ds. w0 f58. ;┆
0x13340…13360 0a 20 32 31 38 38 20 20 32 36 38 38 20 20 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 61 33 ┆ 2188 2688 jl. a3┆
0x13360…13380 2e 20 20 20 20 3b 20 20 20 67 6f 74 6f 20 6e 65 78 74 20 69 6e 73 74 72 20 33 3b 0a 20 32 31 38 ┆. ; goto next instr 3; 218┆
0x13380…133a0 39 20 20 32 36 39 30 20 20 0a 20 32 31 38 39 20 20 32 36 39 30 20 20 0a 20 32 31 38 39 20 20 32 ┆9 2690 2189 2690 2189 2┆
0x133a0…133c0 36 39 30 20 20 61 32 34 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 64 65 ┆690 a24: ; de┆
0x133c0…133e0 6c 65 74 65 20 66 69 78 3a 0a 20 32 31 39 30 20 20 32 36 39 30 20 20 20 20 20 20 20 72 6c 2e 20 ┆lete fix: 2190 2690 rl. ┆
0x133e0…13400 77 32 20 20 20 20 20 66 35 39 2e 20 20 20 3b 20 20 20 63 75 72 20 6f 62 6a 3a 3d 20 63 75 72 20 ┆w2 f59. ; cur obj:= cur ┆
0x13400…13420 66 69 78 3b 0a 20 32 31 39 31 20 20 32 36 39 32 20 20 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 ┆fix; 2191 2692 jl. ┆
0x13420…13440 20 20 61 32 2e 20 20 20 20 3b 20 20 20 67 6f 74 6f 20 6e 65 78 74 20 69 6e 73 74 72 20 32 3b 0a ┆ a2. ; goto next instr 2; ┆
0x13440…13460 20 32 31 39 32 20 20 32 36 39 34 20 20 0a 20 32 31 39 32 20 20 32 36 39 34 20 20 0a 20 32 31 39 ┆ 2192 2694 2192 2694 219┆
0x13460…13480 32 20 20 32 36 39 34 20 20 65 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆2 2694 e. ┆
0x13480…134a0 3b 20 65 6e 64 20 6c 6f 61 64 69 6e 67 20 6f 66 20 61 63 74 69 6f 6e 20 73 77 69 74 63 68 3b 0a ┆; end loading of action switch; ┆
0x134a0…134c0 20 32 31 39 33 20 20 32 36 39 34 20 20 0c 0a 20 32 31 39 33 20 20 32 36 39 34 20 20 0a 20 32 31 ┆ 2193 2694 2193 2694 21┆
0x134c0…134e0 39 33 20 20 32 36 39 34 20 20 3b 20 72 63 20 31 37 2e 36 2e 36 39 20 20 20 20 20 20 20 20 20 20 ┆93 2694 ; rc 17.6.69 ┆
0x134e0…13500 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 64 69 74 6f 72 20 69 2c 20 74 ┆ editor i, t┆
0x13500…13520 61 70 65 20 33 2c 20 70 61 67 65 20 31 30 2e 0a 20 32 31 39 34 20 20 32 36 39 34 20 20 0a 20 32 ┆ape 3, page 10. 2194 2694 2┆
0x13520…13540 31 39 34 20 20 32 36 39 34 20 20 61 32 35 3a 20 3b 20 63 6f 72 72 20 69 6e 70 75 74 3a 0a 20 32 ┆194 2694 a25: ; corr input: 2┆
0x13540…13560 31 39 35 20 20 32 36 39 34 20 20 20 20 20 20 20 3b 20 20 20 63 6f 6d 6d 65 6e 74 3a 20 69 6e 70 ┆195 2694 ; comment: inp┆
0x13560…13580 75 74 20 66 72 6f 6d 20 74 68 65 20 63 6f 6e 74 72 6f 6c 20 73 74 72 69 6e 67 20 66 6f 72 20 63 ┆ut from the control string for c┆
0x13580…135a0 6f 6d 70 6f 73 69 6e 67 0a 20 32 31 39 36 20 20 32 36 39 34 20 20 20 20 20 20 20 3b 20 20 20 61 ┆omposing 2196 2694 ; a┆
0x135a0…135c0 66 74 65 72 20 63 72 20 69 73 20 70 72 65 70 61 72 65 64 2e 0a 20 32 31 39 37 20 20 32 36 39 34 ┆fter cr is prepared. 2197 2694┆
0x135c0…135e0 20 20 20 20 20 20 20 3b 20 20 20 69 6e 70 75 74 20 6c 69 6e 65 20 72 65 74 75 72 6e 20 69 73 20 ┆ ; input line return is ┆
0x135e0…13600 73 65 74 20 74 6f 20 61 66 74 65 72 20 63 6f 72 72 65 63 74 20 69 6e 20 74 68 65 20 70 72 65 70 ┆set to after correct in the prep┆
0x13600…13620 72 6f 2d 0a 20 32 31 39 38 20 20 32 36 39 34 20 20 20 20 20 20 20 3b 20 20 20 63 65 73 73 6f 72 ┆ro- 2198 2694 ; cessor┆
0x13620…13640 20 61 6e 64 20 63 6f 6e 74 72 6f 6c 20 69 73 20 74 72 61 6e 73 66 65 72 72 65 64 20 74 6f 20 63 ┆ and control is transferred to c┆
0x13640…13660 6f 6d 70 6f 73 69 6e 67 0a 20 32 31 39 39 20 20 32 36 39 34 20 20 20 20 20 20 20 3b 20 20 20 69 ┆omposing 2199 2694 ; i┆
0x13660…13680 6e 70 75 74 20 6c 69 6e 65 2e 0a 20 32 32 30 30 20 20 32 36 39 34 20 20 20 20 20 20 20 3b 20 20 ┆nput line. 2200 2694 ; ┆
0x13680…136a0 20 20 20 77 30 3a 20 64 65 73 74 72 6f 79 65 64 0a 20 32 32 30 31 20 20 32 36 39 34 20 20 20 20 ┆ w0: destroyed 2201 2694 ┆
0x136a0…136c0 20 20 20 3b 20 20 20 20 20 77 31 3a 20 63 75 72 20 73 6f 75 72 63 65 20 2f 20 64 65 73 74 72 6f ┆ ; w1: cur source / destro┆
0x136c0…136e0 79 65 64 0a 20 32 32 30 32 20 20 32 36 39 34 20 20 20 20 20 20 20 3b 20 20 20 20 20 77 32 3a 20 ┆yed 2202 2694 ; w2: ┆
0x136e0…13700 63 6f 72 72 20 6c 69 6e 65 20 74 6f 70 20 2f 20 64 65 73 74 72 6f 79 65 64 0a 20 32 32 30 33 20 ┆corr line top / destroyed 2203 ┆
0x13700…13720 20 32 36 39 34 20 20 20 20 20 20 20 3b 20 20 20 20 20 77 33 3a 20 64 65 73 74 72 6f 79 65 64 3b ┆ 2694 ; w3: destroyed;┆
0x13720…13740 0a 20 32 32 30 34 20 20 32 36 39 34 20 20 0a 20 32 32 30 34 20 20 32 36 39 34 20 20 20 20 20 20 ┆ 2204 2694 2204 2694 ┆
0x13740…13760 20 72 73 2e 20 77 31 20 20 20 20 20 66 35 35 2e 20 20 20 3b 20 20 20 73 61 76 65 20 28 63 75 72 ┆ rs. w1 f55. ; save (cur┆
0x13760…13780 20 73 6f 75 72 63 65 29 3b 0a 20 32 32 30 35 20 20 32 36 39 36 20 20 20 20 20 20 20 72 6c 2e 20 ┆ source); 2205 2696 rl. ┆
0x13780…137a0 77 31 20 20 20 20 20 66 33 30 2e 20 20 20 3b 20 20 20 64 65 73 63 72 69 70 74 6f 72 3a 3d 20 63 ┆w1 f30. ; descriptor:= c┆
0x137a0…137c0 6f 72 72 20 64 65 73 63 72 69 70 74 65 72 3b 0a 20 32 32 30 36 20 20 32 36 39 38 20 20 20 20 20 ┆orr descripter; 2206 2698 ┆
0x137c0…137e0 20 20 64 73 2e 20 77 32 20 20 20 20 20 66 33 33 2e 20 20 20 3b 20 20 20 6c 69 6e 65 20 61 64 64 ┆ ds. w2 f33. ; line add┆
0x137e0…13800 72 65 73 73 3a 3d 20 63 6f 72 72 20 6c 69 6e 65 20 61 64 64 72 65 73 73 3b 0a 20 32 32 30 37 20 ┆ress:= corr line address; 2207 ┆
0x13800…13820 20 32 37 30 30 20 20 20 20 20 20 20 61 6c 20 20 77 32 20 20 78 32 2d 31 20 20 20 20 20 20 3b 20 ┆ 2700 al w2 x2-1 ; ┆
0x13820…13840 20 20 6c 69 6e 65 20 74 6f 70 3a 3d 20 6c 69 6e 65 20 61 64 64 72 65 73 73 20 2d 20 31 3b 0a 20 ┆ line top:= line address - 1; ┆
0x13840…13860 32 32 30 38 20 20 32 37 30 32 20 20 20 20 20 20 20 61 6c 20 20 77 33 20 20 78 32 2b 64 34 2d 32 ┆2208 2702 al w3 x2+d4-2┆
0x13860…13880 20 20 20 3b 20 20 20 6c 69 6e 65 20 62 6f 74 74 6f 6d 3a 3d 20 6c 69 6e 65 20 74 6f 70 20 2b 20 ┆ ; line bottom:= line top + ┆
0x13880…138a0 6d 61 78 20 6c 69 6e 65 20 6c 65 6e 67 74 68 3b 0a 20 32 32 30 39 20 20 32 37 30 34 20 20 20 20 ┆max line length; 2209 2704 ┆
0x138a0…138c0 20 20 20 64 73 2e 20 77 33 20 20 20 20 20 66 35 33 2e 20 20 20 3b 0a 20 32 32 31 30 20 20 32 37 ┆ ds. w3 f53. ; 2210 27┆
0x138c0…138e0 30 36 20 20 20 20 20 20 20 61 6c 2e 20 77 30 20 20 20 20 20 63 31 39 2e 20 20 20 3b 20 20 20 69 ┆06 al. w0 c19. ; i┆
0x138e0…13900 6e 70 75 74 20 6c 69 6e 65 20 72 65 74 75 72 6e 3a 3d 20 61 66 74 65 72 20 63 6f 72 72 65 63 74 ┆nput line return:= after correct┆
0x13900…13920 3b 0a 20 32 32 31 31 20 20 32 37 30 38 20 20 20 20 20 20 20 72 73 2e 20 77 30 20 20 20 20 20 66 ┆; 2211 2708 rs. w0 f┆
0x13920…13940 33 36 2e 20 20 20 3b 0a 20 32 32 31 32 20 20 32 37 31 30 20 20 20 20 20 20 20 6a 6c 2e 20 20 20 ┆36. ; 2212 2710 jl. ┆
0x13940…13960 20 20 20 20 20 63 32 2e 20 20 20 20 3b 20 20 20 67 6f 74 6f 20 63 6f 6d 70 6f 73 69 6e 67 20 69 ┆ c2. ; goto composing i┆
0x13960…13980 6e 70 75 74 20 6c 69 6e 65 3b 0a 20 32 32 31 33 20 20 32 37 31 32 20 20 0a 20 32 32 31 33 20 20 ┆nput line; 2213 2712 2213 ┆
0x13980…139a0 32 37 31 32 20 20 0a 20 32 32 31 33 20 20 32 37 31 32 20 20 0a 20 32 32 31 33 20 20 32 37 31 32 ┆2712 2213 2712 2213 2712┆
0x139a0…139c0 20 20 61 32 36 3a 20 3b 20 74 6f 20 74 6f 70 3a 0a 20 32 32 31 34 20 20 32 37 31 32 20 20 20 20 ┆ a26: ; to top: 2214 2712 ┆
0x139c0…139e0 20 20 20 3b 20 20 20 63 6f 6d 6d 65 6e 74 3a 20 6c 69 6e 65 20 64 65 73 74 20 69 73 20 73 65 74 ┆ ; comment: line dest is set┆
0x139e0…13a00 20 65 71 75 61 6c 20 7a 65 72 6f 2c 20 61 6e 64 20 63 6f 6e 74 72 6f 6c 20 69 73 0a 20 32 32 31 ┆ equal zero, and control is 221┆
0x13a00…13a20 35 20 20 32 37 31 32 20 20 20 20 20 20 20 3b 20 20 20 74 72 61 6e 73 66 65 72 72 65 64 20 74 6f ┆5 2712 ; transferred to┆
0x13a20…13a40 20 62 61 63 6b 20 75 70 3b 0a 20 32 32 31 36 20 20 32 37 31 32 20 20 0a 20 32 32 31 36 20 20 32 ┆ back up; 2216 2712 2216 2┆
0x13a40…13a60 37 31 32 20 20 20 20 20 20 20 61 6c 20 20 77 30 20 20 20 20 20 64 36 20 20 20 20 20 3b 20 20 20 ┆712 al w0 d6 ; ┆
0x13a60…13a80 6c 69 6e 65 20 64 65 73 74 3a 3d 20 66 69 72 73 74 20 73 6f 75 72 63 65 20 6c 69 6e 65 3b 0a 20 ┆line dest:= first source line; ┆
0x13a80…13aa0 32 32 31 37 20 20 32 37 31 34 20 20 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 61 33 38 2e ┆2217 2714 jl. a38.┆
0x13aa0…13ac0 20 20 20 3b 20 20 20 67 6f 74 6f 20 70 72 65 70 20 62 61 63 6b 20 75 70 3b 0a 20 32 32 31 38 20 ┆ ; goto prep back up; 2218 ┆
0x13ac0…13ae0 20 32 37 31 36 20 20 0a 20 32 32 31 38 20 20 32 37 31 36 20 20 0a 20 32 32 31 38 20 20 32 37 31 ┆ 2716 2218 2716 2218 271┆
0x13ae0…13b00 36 20 20 0a 20 32 32 31 38 20 20 32 37 31 36 20 20 61 32 37 3a 20 3b 20 75 70 68 65 61 64 3a 0a ┆6 2218 2716 a27: ; uphead: ┆
0x13b00…13b20 (35,) 20 32 32 31 39 20 20 32 37 31 36 20 20 20 20 20 20 20 3b 20 20 20 63 6f 6d 6d 65 6e 74 3a 20 6c ┆ 2219 2716 ; comment: l┆
0x13b20…13b40 69 6e 65 20 64 65 73 74 20 69 73 20 73 65 74 20 65 71 75 61 6c 20 63 75 72 20 6c 69 6e 65 20 2d ┆ine dest is set equal cur line -┆
0x13b40…13b60 31 2c 20 61 6e 64 20 63 6f 6e 74 72 6f 6c 0a 20 32 32 32 30 20 20 32 37 31 36 20 20 20 20 20 20 ┆1, and control 2220 2716 ┆
0x13b60…13b80 20 3b 20 20 20 69 73 20 74 72 61 6e 73 66 65 72 72 65 64 20 74 6f 20 62 61 63 6b 20 75 70 3b 0a ┆ ; is transferred to back up; ┆
0x13b80…13ba0 20 32 32 32 31 20 20 32 37 31 36 20 20 0a 20 32 32 32 31 20 20 32 37 31 36 20 20 20 20 20 20 20 ┆ 2221 2716 2221 2716 ┆
0x13ba0…13bc0 61 6d 20 20 20 20 20 20 20 20 2d 31 20 20 20 20 20 3b 20 20 20 6c 69 6e 65 20 64 65 73 74 3a 3d ┆am -1 ; line dest:=┆
0x13bc0…13be0 20 63 75 72 20 6c 69 6e 65 20 2d 31 3b 20 67 6f 74 6f 20 70 72 65 70 20 62 61 63 6b 20 75 70 3b ┆ cur line -1; goto prep back up;┆
0x13be0…13c00 0a 20 32 32 32 32 20 20 32 37 31 38 20 20 0a 20 32 32 32 32 20 20 32 37 31 38 20 20 61 33 37 3a ┆ 2222 2718 2222 2718 a37:┆
0x13c00…13c20 20 3b 20 68 65 61 64 3a 0a 20 32 32 32 33 20 20 32 37 31 38 20 20 20 20 20 20 20 3b 20 20 20 63 ┆ ; head: 2223 2718 ; c┆
0x13c20…13c40 6f 6d 6d 65 6e 74 3a 20 6c 69 6e 65 20 64 65 73 74 20 69 73 20 73 65 74 20 65 71 75 61 6c 20 74 ┆omment: line dest is set equal t┆
0x13c40…13c60 6f 20 63 75 72 20 6c 69 6e 65 2c 20 61 6e 64 20 63 6f 6e 74 72 6f 6c 0a 20 32 32 32 34 20 20 32 ┆o cur line, and control 2224 2┆
0x13c60…13c80 37 31 38 20 20 20 20 20 20 20 3b 20 20 20 69 73 20 74 72 61 6e 73 66 65 72 65 64 20 74 6f 20 62 ┆718 ; is transfered to b┆
0x13c80…13ca0 61 63 6b 20 75 70 3b 0a 20 32 32 32 35 20 20 32 37 31 38 20 20 0a 20 32 32 32 35 20 20 32 37 31 ┆ack up; 2225 2718 2225 271┆
0x13ca0…13cc0 38 20 20 20 20 20 20 20 61 6c 20 20 77 30 20 20 20 20 20 30 20 20 20 20 20 3b 20 20 20 6c 69 6e ┆8 al w0 0 ; lin┆
0x13cc0…13ce0 65 20 64 65 73 74 3a 3d 20 63 75 72 20 6c 69 6e 65 3b 0a 20 32 32 32 36 20 20 32 37 32 30 20 20 ┆e dest:= cur line; 2226 2720 ┆
0x13ce0…13d00 20 20 20 20 20 77 61 2e 20 77 30 20 20 20 20 20 66 34 34 2e 20 20 3b 0a 20 32 32 32 37 20 20 32 ┆ wa. w0 f44. ; 2227 2┆
0x13d00…13d20 37 32 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 70 72 65 ┆722 ; pre┆
0x13d20…13d40 70 20 62 61 63 6b 20 75 70 3a 0a 20 32 32 32 38 20 20 32 37 32 32 20 20 61 33 38 3a 20 72 73 2e ┆p back up: 2228 2722 a38: rs.┆
0x13d40…13d60 20 77 30 20 20 20 20 20 66 36 34 2e 20 20 3b 20 20 20 67 6f 74 6f 20 62 61 63 6b 20 75 70 3b 0a ┆ w0 f64. ; goto back up; ┆
0x13d60…13d80 20 32 32 32 39 20 20 32 37 32 34 20 20 0c 0a 20 32 32 32 39 20 20 32 37 32 34 20 20 0a 20 32 32 ┆ 2229 2724 2229 2724 22┆
0x13d80…13da0 32 39 20 20 32 37 32 34 20 20 3b 20 72 63 20 31 37 2e 36 2e 36 39 20 20 20 20 20 20 20 20 20 20 ┆29 2724 ; rc 17.6.69 ┆
0x13da0…13dc0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 64 69 74 6f 72 20 69 2c 20 74 ┆ editor i, t┆
0x13dc0…13de0 61 70 65 20 33 2c 20 70 61 67 65 20 31 31 2e 0a 20 32 32 33 30 20 20 32 37 32 34 20 20 0a 20 32 ┆ape 3, page 11. 2230 2724 2┆
0x13de0…13e00 32 33 30 20 20 32 37 32 34 20 20 61 32 38 3a 20 3b 20 62 61 63 6b 20 75 70 3a 0a 20 32 32 33 31 ┆230 2724 a28: ; back up: 2231┆
0x13e00…13e20 20 20 32 37 32 34 20 20 20 20 20 20 20 3b 20 20 20 63 6f 6d 6d 65 6e 74 3a 20 62 61 63 6b 73 70 ┆ 2724 ; comment: backsp┆
0x13e20…13e40 61 63 69 6e 67 20 74 6f 20 74 68 65 20 62 65 67 69 6e 6e 69 6e 67 20 6f 66 20 74 68 65 0a 20 32 ┆acing to the beginning of the 2┆
0x13e40…13e60 32 33 32 20 20 32 37 32 34 20 20 20 20 20 20 20 3b 20 20 20 6c 69 6e 65 20 64 65 66 69 6e 65 64 ┆232 2724 ; line defined┆
0x13e60…13e80 20 62 79 20 6c 69 6e 65 20 64 65 73 74 20 69 73 20 70 65 72 66 6f 72 6d 65 64 2e 0a 20 32 32 33 ┆ by line dest is performed. 223┆
0x13e80…13ea0 33 20 20 32 37 32 34 20 20 20 20 20 20 20 3b 20 20 20 66 69 72 73 74 20 69 74 20 69 73 20 74 72 ┆3 2724 ; first it is tr┆
0x13ea0…13ec0 69 65 64 20 77 68 65 74 68 65 72 20 74 68 65 20 62 61 63 6b 73 70 61 63 69 6e 67 20 63 61 6e 20 ┆ied whether the backspacing can ┆
0x13ec0…13ee0 62 65 0a 20 32 32 33 34 20 20 32 37 32 34 20 20 20 20 20 20 20 3b 20 20 20 70 65 72 66 6f 72 6d ┆be 2234 2724 ; perform┆
0x13ee0…13f00 65 64 20 62 79 20 63 6f 70 79 69 6e 67 20 66 72 6f 6d 20 74 68 65 20 6f 62 6a 20 73 74 72 69 6e ┆ed by copying from the obj strin┆
0x13f00…13f20 67 20 74 6f 0a 20 32 32 33 35 20 20 32 37 32 34 20 20 20 20 20 20 20 3b 20 20 20 74 68 65 20 73 ┆g to 2235 2724 ; the s┆
0x13f20…13f40 6f 75 72 63 65 20 73 74 72 69 6e 67 2e 0a 20 32 32 33 36 20 20 32 37 32 34 20 20 20 20 20 20 20 ┆ource string. 2236 2724 ┆
0x13f40…13f60 3b 20 20 20 69 66 20 69 74 20 64 6f 65 73 20 6e 6f 74 20 73 75 63 63 65 64 20 74 68 65 20 72 65 ┆; if it does not succed the re┆
0x13f60…13f80 6d 61 69 6e 64 65 72 20 6f 66 20 74 68 65 20 73 6f 75 72 63 65 0a 20 32 32 33 37 20 20 32 37 32 ┆mainder of the source 2237 272┆
0x13f80…13fa0 34 20 20 20 20 20 20 20 3b 20 20 20 73 74 72 69 6e 67 20 69 73 20 63 6f 70 69 65 64 20 69 6e 74 ┆4 ; string is copied int┆
0x13fa0…13fc0 6f 20 74 68 65 20 6f 62 6a 65 63 74 20 73 74 72 69 6e 67 20 61 6e 64 0a 20 32 32 33 38 20 20 32 ┆o the object string and 2238 2┆
0x13fc0…13fe0 37 32 34 20 20 20 20 20 20 20 3b 20 20 20 74 68 65 20 6f 62 6a 65 63 74 20 69 73 20 74 61 6b 65 ┆724 ; the object is take┆
0x13fe0…14000 6e 20 61 73 20 6e 65 77 20 73 6f 75 72 63 65 20 73 74 72 69 6e 67 2e 20 74 68 65 6e 0a 20 32 32 ┆n as new source string. then 22┆
0x14000…14020 33 39 20 20 32 37 32 34 20 20 20 20 20 20 20 3b 20 20 20 74 68 65 20 6e 65 77 20 73 6f 75 72 63 ┆39 2724 ; the new sourc┆
0x14020…14040 65 20 73 74 72 69 6e 67 20 69 73 20 63 6f 70 69 65 64 20 69 6e 74 6f 20 61 20 6e 65 77 20 6f 62 ┆e string is copied into a new ob┆
0x14040…14060 6a 65 63 74 0a 20 32 32 34 30 20 20 32 37 32 34 20 20 20 20 20 20 20 3b 20 20 20 73 74 72 69 6e ┆ject 2240 2724 ; strin┆
0x14060…14080 67 20 75 6e 74 69 6c 20 74 68 65 20 6c 69 6e 65 20 64 65 74 65 72 6d 69 6e 65 64 20 62 79 20 6c ┆g until the line determined by l┆
0x14080…140a0 69 6e 65 20 64 65 73 74 2e 0a 20 32 32 34 31 20 20 32 37 32 34 20 20 20 20 20 20 20 3b 20 20 20 ┆ine dest. 2241 2724 ; ┆
0x140a0…140c0 74 68 65 20 62 6f 6f 6c 65 61 6e 20 65 78 74 65 6e 64 20 61 6c 6f 77 65 64 20 74 65 6c 6c 73 20 ┆the boolean extend alowed tells ┆
0x140c0…140e0 77 68 65 74 68 65 72 20 69 74 20 69 73 0a 20 32 32 34 32 20 20 32 37 32 34 20 20 20 20 20 20 20 ┆whether it is 2242 2724 ┆
0x140e0…14100 3b 20 20 20 61 6c 6f 77 65 64 20 74 6f 20 63 72 65 61 74 65 20 61 20 6e 65 77 20 73 6f 75 72 63 ┆; alowed to create a new sourc┆
0x14100…14120 65 20 73 74 72 69 6e 67 2e 0a 20 32 32 34 33 20 20 32 37 32 34 20 20 20 20 20 20 20 3b 20 20 20 ┆e string. 2243 2724 ; ┆
0x14120…14140 74 68 65 20 62 6f 6f 6c 65 61 6e 20 69 6e 74 65 72 6d 20 73 6f 75 72 63 65 20 74 65 6c 6c 73 20 ┆the boolean interm source tells ┆
0x14140…14160 77 68 65 74 68 65 72 20 74 68 65 20 6f 6c 64 0a 20 32 32 34 34 20 20 32 37 32 34 20 20 20 20 20 ┆whether the old 2244 2724 ┆
0x14160…14180 20 20 3b 20 20 20 73 6f 75 72 63 65 20 66 69 6c 65 20 73 68 61 6c 6c 20 62 65 20 72 65 6d 6f 76 ┆ ; source file shall be remov┆
0x14180…141a0 65 64 20 61 66 74 65 72 20 63 72 65 61 74 69 6f 6e 20 6f 66 20 74 68 65 0a 20 32 32 34 35 20 20 ┆ed after creation of the 2245 ┆
0x141a0…141c0 32 37 32 34 20 20 20 20 20 20 20 3b 20 20 20 6e 65 77 20 73 6f 75 72 63 65 20 66 69 6c 65 3b 20 ┆2724 ; new source file; ┆
0x141c0…141e0 74 68 65 20 62 6f 6f 6c 65 61 6e 20 69 73 20 73 65 74 20 74 72 75 65 20 61 66 74 65 72 0a 20 32 ┆the boolean is set true after 2┆
0x141e0…14200 32 34 36 20 20 32 37 32 34 20 20 20 20 20 20 20 3b 20 20 20 74 68 65 20 63 72 65 61 74 69 6f 6e ┆246 2724 ; the creation┆
0x14200…14220 2e 0a 20 32 32 34 37 20 20 32 37 32 34 20 20 20 20 20 20 20 3b 20 20 20 20 20 77 30 3a 20 61 76 ┆. 2247 2724 ; w0: av┆
0x14220…14240 61 69 6c 61 62 6c 65 0a 20 32 32 34 38 20 20 32 37 32 34 20 20 20 20 20 20 20 3b 20 20 20 20 20 ┆ailable 2248 2724 ; ┆
0x14240…14260 77 31 3a 20 63 75 72 20 73 6f 75 72 63 65 0a 20 32 32 34 39 20 20 32 37 32 34 20 20 20 20 20 20 ┆w1: cur source 2249 2724 ┆
0x14260…14280 20 3b 20 20 20 20 20 77 32 3a 20 63 75 72 20 6f 62 6a 0a 20 32 32 35 30 20 20 32 37 32 34 20 20 ┆ ; w2: cur obj 2250 2724 ┆
0x14280…142a0 20 20 20 20 20 3b 20 20 20 20 20 77 33 3a 20 63 75 72 20 63 6f 72 72 0a 20 32 32 35 31 20 20 32 ┆ ; w3: cur corr 2251 2┆
0x142a0…142c0 37 32 34 20 20 0a 20 32 32 35 31 20 20 32 37 32 34 20 20 62 2e 20 20 20 68 35 20 20 20 20 20 20 ┆724 2251 2724 b. h5 ┆
0x142c0…142e0 20 20 20 20 20 20 20 20 20 20 3b 20 62 65 67 69 6e 20 62 61 63 6b 20 75 70 3a 0a 20 32 32 35 32 ┆ ; begin back up: 2252┆
0x142e0…14300 20 20 32 37 32 34 20 20 68 2e 20 20 20 61 6c 20 20 77 30 20 2c 73 65 20 77 31 20 78 31 20 20 3b ┆ 2724 h. al w0 ,se w1 x1 ;┆
0x14300…14320 0a 20 32 32 35 33 20 20 32 37 32 36 20 20 77 2e 20 20 20 68 73 2e 20 77 30 20 20 20 20 20 66 36 ┆ 2253 2726 w. hs. w0 f6┆
0x14320…14340 31 2e 20 20 20 3b 20 20 20 6f 62 6a 20 70 72 6f 70 65 72 3a 3d 0a 20 32 32 35 34 20 20 32 37 32 ┆1. ; obj proper:= 2254 272┆
0x14340…14360 38 20 20 20 20 20 20 20 68 73 2e 20 77 30 20 20 20 20 20 66 36 32 2e 20 20 20 3b 20 20 20 64 65 ┆8 hs. w0 f62. ; de┆
0x14360…14380 6c 65 74 65 20 70 72 6f 70 65 72 3a 3d 20 66 61 6c 73 65 3b 0a 20 32 32 35 35 20 20 32 37 33 30 ┆lete proper:= false; 2255 2730┆
0x14380…143a0 20 20 68 31 3a 20 20 73 65 2e 20 77 32 20 20 20 20 28 66 34 37 2e 29 20 20 3b 20 66 72 6f 6d 20 ┆ h1: se. w2 (f47.) ; from ┆
0x143a0…143c0 6f 62 6a 3a 0a 20 32 32 35 36 20 20 32 37 33 32 20 20 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 ┆obj: 2256 2732 jl. ┆
0x143c0…143e0 20 20 68 32 2e 20 20 20 20 3b 20 20 20 69 66 20 63 75 72 20 6f 62 6a 20 3d 20 6f 62 6a 20 74 6f ┆ h2. ; if cur obj = obj to┆
0x143e0…14400 70 20 74 68 65 6e 0a 20 32 32 35 37 20 20 32 37 33 34 20 20 20 20 20 20 20 61 6d 2e 20 20 20 20 ┆p then 2257 2734 am. ┆
0x14400…14420 (36,) 20 20 20 28 66 34 34 2e 29 20 20 3b 20 20 20 62 65 67 69 6e 0a 20 32 32 35 38 20 20 32 37 33 36 ┆ (f44.) ; begin 2258 2736┆
0x14420…14440 20 20 20 20 20 20 20 73 6c 20 20 77 31 20 20 78 31 2d 64 36 20 20 20 20 20 3b 20 20 20 20 20 69 ┆ sl w1 x1-d6 ; i┆
0x14440…14460 66 20 63 75 72 20 6c 69 6e 65 20 3c 3d 20 66 69 72 73 74 20 73 6f 75 72 63 65 20 6c 69 6e 65 0a ┆f cur line <= first source line ┆
0x14460…14480 20 32 32 35 39 20 20 32 37 33 38 20 20 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 61 32 2e ┆ 2259 2738 jl. a2.┆
0x14480…144a0 20 20 20 20 3b 20 20 20 20 20 74 68 65 6e 20 67 6f 74 6f 20 6e 65 78 74 20 69 6e 73 74 72 20 32 ┆ ; then goto next instr 2┆
0x144a0…144c0 3b 0a 20 32 32 36 30 20 20 32 37 34 30 20 20 20 20 20 20 20 72 6c 2e 20 77 32 20 20 20 20 20 66 ┆; 2260 2740 rl. w2 f┆
0x144c0…144e0 34 38 2e 20 20 20 3b 20 20 20 20 20 63 75 72 20 6f 62 6a 3a 3d 20 6f 62 6a 20 62 6f 74 74 6f 6d ┆48. ; cur obj:= obj bottom┆
0x144e0…14500 0a 20 32 32 36 31 20 20 32 37 34 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 2261 2742 ┆
0x14500…14520 20 20 20 20 20 3b 20 65 6e 64 3b 0a 20 32 32 36 32 20 20 32 37 34 32 20 20 68 32 3a 20 20 73 6e ┆ ; end; 2262 2742 h2: sn┆
0x14520…14540 2e 20 77 32 20 20 20 20 28 66 34 36 2e 29 20 20 3b 20 20 20 69 66 20 63 75 72 20 6f 62 6a 20 3d ┆. w2 (f46.) ; if cur obj =┆
0x14540…14560 20 63 75 72 20 6f 75 74 0a 20 32 32 36 33 20 20 32 37 34 34 20 20 20 20 20 20 20 6a 6c 2e 20 20 ┆ cur out 2263 2744 jl. ┆
0x14560…14580 20 20 20 20 20 20 68 34 2e 20 20 20 20 3b 20 20 20 74 68 65 6e 20 67 6f 74 6f 20 66 6f 72 77 61 ┆ h4. ; then goto forwa┆
0x14580…145a0 72 64 3b 0a 20 32 32 36 34 20 20 32 37 34 36 20 20 20 20 20 20 20 61 6c 20 20 77 32 20 20 78 32 ┆rd; 2264 2746 al w2 x2┆
0x145a0…145c0 2d 31 20 20 20 20 20 20 3b 20 20 20 63 75 72 20 6f 62 6a 3a 3d 20 63 75 72 20 6f 62 6a 20 2d 20 ┆-1 ; cur obj:= cur obj - ┆
0x145c0…145e0 31 3b 0a 20 32 32 36 35 20 20 32 37 34 38 20 20 20 20 20 20 20 62 6c 20 20 77 30 20 20 78 32 20 ┆1; 2265 2748 bl w0 x2 ┆
0x145e0…14600 20 20 20 20 20 20 20 3b 20 20 20 62 79 74 65 3a 3d 20 62 79 74 65 20 28 63 75 72 20 6f 62 6a 29 ┆ ; byte:= byte (cur obj)┆
0x14600…14620 3b 0a 20 32 32 36 36 20 20 32 37 35 30 20 20 20 20 20 20 20 73 65 20 20 77 30 20 20 20 20 20 67 ┆; 2266 2750 se w0 g┆
0x14620…14640 31 30 20 20 20 20 3b 20 20 20 69 66 20 62 79 74 65 20 3c 3e 20 3c 74 6f 70 20 6f 66 20 6c 69 6e ┆10 ; if byte <> <top of lin┆
0x14640…14660 65 3e 0a 20 32 32 36 37 20 20 32 37 35 32 20 20 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 ┆e> 2267 2752 jl. ┆
0x14660…14680 68 33 2e 20 20 20 20 3b 20 20 20 74 68 65 6e 20 67 6f 74 6f 20 74 6f 20 73 6f 75 72 63 65 3b 0a ┆h3. ; then goto to source; ┆
0x14680…146a0 20 32 32 36 38 20 20 32 37 35 34 20 20 20 20 20 20 20 72 6c 2e 20 77 30 20 20 20 20 20 66 34 34 ┆ 2268 2754 rl. w0 f44┆
0x146a0…146c0 2e 20 20 20 3b 0a 20 32 32 36 39 20 20 32 37 35 36 20 20 20 20 20 20 20 62 73 2e 20 77 30 20 20 ┆. ; 2269 2756 bs. w0 ┆
0x146c0…146e0 20 20 20 31 20 20 20 20 20 20 3b 20 20 20 63 75 72 20 6c 69 6e 65 3a 3d 20 63 75 72 20 6c 69 6e ┆ 1 ; cur line:= cur lin┆
0x146e0…14700 65 20 2d 20 31 0a 20 32 32 37 30 20 20 32 37 35 38 20 20 20 20 20 20 20 72 73 2e 20 77 30 20 20 ┆e - 1 2270 2758 rs. w0 ┆
0x14700…14720 20 20 20 66 34 34 2e 20 20 20 3b 0a 20 32 32 37 31 20 20 32 37 36 30 20 20 20 20 20 20 20 73 6c ┆ f44. ; 2271 2760 sl┆
0x14720…14740 2e 20 77 30 20 20 20 20 28 66 36 34 2e 29 20 20 3b 20 20 20 69 66 20 63 75 72 20 6c 69 6e 65 20 ┆. w0 (f64.) ; if cur line ┆
0x14740…14760 3e 3d 20 6c 69 6e 65 20 64 65 73 74 0a 20 32 32 37 32 20 20 32 37 36 32 20 20 20 20 20 20 20 6a ┆>= line dest 2272 2762 j┆
0x14760…14780 6c 2e 20 20 20 20 20 20 20 20 68 31 2e 20 20 20 20 3b 20 20 20 74 68 65 6e 20 67 6f 74 6f 20 66 ┆l. h1. ; then goto f┆
0x14780…147a0 72 6f 6d 20 6f 62 6a 3b 0a 20 32 32 37 33 20 20 32 37 36 34 20 20 20 20 20 20 20 61 6c 2e 20 77 ┆rom obj; 2273 2764 al. w┆
0x147a0…147c0 30 20 20 20 20 20 61 32 2e 20 20 20 20 3b 20 20 20 0a 20 32 32 37 34 20 20 32 37 36 36 20 20 20 ┆0 a2. ; 2274 2766 ┆
0x147c0…147e0 20 20 20 20 72 73 2e 20 77 30 20 20 20 20 20 61 34 30 2e 2b 36 20 3b 20 20 20 61 63 74 69 6f 6e ┆ rs. w0 a40.+6 ; action┆
0x147e0…14800 20 28 36 29 3a 3d 20 6e 65 78 74 20 69 6e 73 74 72 20 32 3b 0a 20 32 32 37 35 20 20 32 37 36 38 ┆ (6):= next instr 2; 2275 2768┆
0x14800…14820 20 20 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 61 36 30 2e 20 20 20 3b 20 20 20 67 6f 74 ┆ jl. a60. ; got┆
0x14820…14840 6f 20 74 6f 20 6f 62 6a 20 74 6f 70 20 6f 66 20 6c 69 6e 65 3b 0a 20 32 32 37 36 20 20 32 37 37 ┆o to obj top of line; 2276 277┆
0x14840…14860 30 20 20 0c 0a 20 32 32 37 36 20 20 32 37 37 30 20 20 0a 20 32 32 37 36 20 20 32 37 37 30 20 20 ┆0 2276 2770 2276 2770 ┆
0x14860…14880 3b 20 72 63 20 32 39 2e 30 36 2e 37 31 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆; rc 29.06.71 ┆
0x14880…148a0 20 20 20 20 20 20 20 20 20 20 20 20 65 64 69 74 6f 72 20 69 2c 20 74 61 70 65 20 33 2c 20 70 61 ┆ editor i, tape 3, pa┆
0x148a0…148c0 67 65 20 31 32 2e 0a 20 32 32 37 37 20 20 32 37 37 30 20 20 0a 20 32 32 37 37 20 20 32 37 37 30 ┆ge 12. 2277 2770 2277 2770┆
0x148c0…148e0 20 20 68 33 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 74 6f 20 73 6f ┆ h3: ; to so┆
0x148e0…14900 75 72 63 65 3a 0a 20 32 32 37 38 20 20 32 37 37 30 20 20 20 20 20 20 20 68 73 20 20 77 30 20 20 ┆urce: 2278 2770 hs w0 ┆
0x14900…14920 78 31 20 20 20 20 20 20 20 20 3b 20 20 20 62 79 74 65 20 28 63 75 72 20 73 6f 75 72 63 65 29 3a ┆x1 ; byte (cur source):┆
0x14920…14940 3d 20 62 79 74 65 3b 0a 20 32 32 37 39 20 20 32 37 37 32 20 20 20 20 20 20 20 61 6c 20 20 77 31 ┆= byte; 2279 2772 al w1┆
0x14940…14960 20 20 78 31 2d 31 20 20 20 20 20 20 3b 20 20 20 63 75 72 20 73 6f 75 72 63 65 3a 3d 20 63 75 72 ┆ x1-1 ; cur source:= cur┆
0x14960…14980 20 73 6f 75 72 63 65 20 2d 20 31 3b 0a 20 32 32 38 30 20 20 32 37 37 34 20 20 20 20 20 20 20 73 ┆ source - 1; 2280 2774 s┆
0x14980…149a0 6c 2e 20 77 31 20 20 20 20 28 66 35 31 2e 29 20 20 3b 20 20 20 69 66 20 63 75 72 20 73 6f 75 72 ┆l. w1 (f51.) ; if cur sour┆
0x149a0…149c0 63 65 20 3e 3d 20 73 6f 75 72 63 65 20 74 6f 70 0a 20 32 32 38 31 20 20 32 37 37 36 20 20 20 20 ┆ce >= source top 2281 2776 ┆
0x149c0…149e0 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 68 31 2e 20 20 20 20 3b 20 20 20 74 68 65 6e 20 67 6f ┆ jl. h1. ; then go┆
0x149e0…14a00 74 6f 20 66 72 6f 6d 20 6f 62 6a 3b 0a 20 32 32 38 32 20 20 32 37 37 38 20 20 0a 20 32 32 38 32 ┆to from obj; 2282 2778 2282┆
0x14a00…14a20 20 20 32 37 37 38 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b ┆ 2778 ;┆
0x14a20…14a40 20 66 6f 72 77 61 72 64 3a 0a 20 32 32 38 33 20 20 32 37 37 38 20 20 68 34 3a 20 20 62 6c 2e 20 ┆ forward: 2283 2778 h4: bl. ┆
0x14a40…14a60 77 30 20 20 20 20 20 66 37 31 2e 20 20 20 3b 20 0a 20 32 32 38 34 20 20 32 37 38 30 20 20 20 20 ┆w0 f71. ; 2284 2780 ┆
0x14a60…14a80 20 20 20 73 6e 20 20 77 30 20 20 20 20 20 31 20 20 20 20 20 20 3b 20 20 20 69 66 20 65 78 74 65 ┆ sn w0 1 ; if exte┆
0x14a80…14aa0 6e 64 20 61 6c 6f 77 65 64 20 3d 20 66 61 6c 73 65 0a 20 32 32 38 35 20 20 32 37 38 32 20 20 20 ┆nd alowed = false 2285 2782 ┆
0x14aa0…14ac0 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 63 32 34 2e 20 20 20 3b 20 20 20 74 68 65 6e 20 61 ┆ jl. c24. ; then a┆
0x14ac0…14ae0 6c 61 72 6d 20 28 62 61 63 6b 20 73 70 61 63 65 20 65 72 72 6f 72 29 0a 20 32 32 38 36 20 20 32 ┆larm (back space error) 2286 2┆
0x14ae0…14b00 37 38 34 20 20 20 20 20 20 20 61 6c 2e 20 77 30 20 20 20 20 20 68 35 2e 20 20 20 20 3b 20 20 20 ┆784 al. w0 h5. ; ┆
0x14b00…14b20 0a 20 32 32 38 37 20 20 32 37 38 36 20 20 20 20 20 20 20 72 73 2e 20 77 30 20 20 20 20 20 61 34 ┆ 2287 2786 rs. w0 a4┆
0x14b20…14b40 30 2e 2b 31 30 3b 20 20 20 61 63 74 69 6f 6e 20 28 31 30 29 3a 3d 20 74 75 72 6e 0a 20 32 32 38 ┆0.+10; action (10):= turn 228┆
0x14b40…14b60 38 20 20 32 37 38 38 20 20 20 20 20 20 20 61 6c 2e 20 77 30 20 20 20 20 20 61 34 31 2e 20 20 20 ┆8 2788 al. w0 a41. ┆
0x14b60…14b80 3b 0a 20 32 32 38 39 20 20 32 37 39 30 20 20 20 20 20 20 20 72 73 2e 20 77 30 20 20 20 20 20 61 ┆; 2289 2790 rs. w0 a┆
0x14b80…14ba0 34 30 2e 2b 36 20 3b 20 20 20 61 63 74 69 6f 6e 20 28 36 29 3a 3d 0a 20 32 32 39 30 20 20 32 37 ┆40.+6 ; action (6):= 2290 27┆
0x14ba0…14bc0 39 32 20 20 20 20 20 20 20 72 73 2e 20 77 30 20 20 20 20 20 61 34 30 2e 2b 38 20 3b 20 20 20 61 ┆92 rs. w0 a40.+8 ; a┆
0x14bc0…14be0 63 74 69 6f 6e 20 28 38 29 3a 3d 0a 20 32 32 39 31 20 20 32 37 39 34 20 20 20 20 20 20 20 72 73 ┆ction (8):= 2291 2794 rs┆
0x14be0…14c00 2e 20 77 30 20 20 20 20 20 61 34 30 2e 2b 31 34 3b 20 20 20 61 63 74 69 6f 6e 20 28 31 34 29 3a ┆. w0 a40.+14; action (14):┆
0x14c00…14c20 3d 20 66 72 6f 6d 20 73 6f 75 72 63 65 3b 0a 20 32 32 39 32 20 20 32 37 39 36 20 20 20 20 20 20 ┆= from source; 2292 2796 ┆
0x14c20…14c40 20 6a 6c 2e 20 20 20 20 20 20 20 20 61 31 33 2e 20 20 20 3b 20 20 20 67 6f 74 6f 20 63 6f 70 79 ┆ jl. a13. ; goto copy┆
0x14c40…14c60 3b 0a 20 32 32 39 33 20 20 32 37 39 38 20 20 68 35 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆; 2293 2798 h5: ┆
0x14c60…14c80 20 20 20 20 20 20 3b 20 74 75 72 6e 3a 0a 20 32 32 39 34 20 20 32 37 39 38 20 20 65 2e 20 20 20 ┆ ; turn: 2294 2798 e. ┆
0x14c80…14ca0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 0a 20 32 32 39 35 20 20 32 37 39 38 20 ┆ ; 2295 2798 ┆
0x14ca0…14cc0 20 68 2e 20 20 20 61 6c 20 20 77 30 20 2c 73 65 20 77 31 20 78 31 20 20 3b 20 20 20 6f 62 6a 20 ┆ h. al w0 ,se w1 x1 ; obj ┆
0x14cc0…14ce0 70 72 6f 70 65 72 3a 3d 0a 20 32 32 39 36 20 20 32 38 30 30 20 20 77 2e 20 20 20 68 73 2e 20 77 ┆proper:= 2296 2800 w. hs. w┆
0x14ce0…14d00 30 20 20 20 20 20 66 36 31 2e 20 20 20 3b 20 20 20 64 65 6c 65 74 65 20 70 72 6f 70 65 72 3a 3d ┆0 f61. ; delete proper:=┆
0x14d00…14d20 (37,) 20 66 61 6c 73 65 3b 0a 20 32 32 39 37 20 20 32 38 30 32 20 20 20 20 20 20 20 68 73 2e 20 77 30 ┆ false; 2297 2802 hs. w0┆
0x14d20…14d40 20 20 20 20 20 66 36 32 2e 20 20 20 3b 0a 20 32 32 39 38 20 20 32 38 30 34 20 20 20 20 20 20 20 ┆ f62. ; 2298 2804 ┆
0x14d40…14d60 72 73 2e 20 77 33 20 20 20 20 20 66 36 37 2e 20 20 20 3b 20 20 20 73 61 76 65 28 63 75 72 20 63 ┆rs. w3 f67. ; save(cur c┆
0x14d60…14d80 6f 72 72 29 3b 0a 20 32 32 39 39 20 20 32 38 30 36 20 20 20 20 20 20 20 6a 6c 2e 20 77 33 20 20 ┆orr); 2299 2806 jl. w3 ┆
0x14d80…14da0 20 20 20 63 31 30 2e 20 20 20 3b 20 20 20 63 6c 6f 73 65 20 6f 62 6a 3b 0a 20 32 33 30 30 20 20 ┆ c10. ; close obj; 2300 ┆
0x14da0…14dc0 32 38 30 38 20 20 0a 20 32 33 30 30 20 20 32 38 30 38 20 20 62 2e 20 61 37 20 2c 20 69 33 0a 20 ┆2808 2300 2808 b. a7 , i3 ┆
0x14dc0…14de0 32 33 30 31 20 20 32 38 30 38 20 20 77 2e 0a 20 32 33 30 32 20 20 32 38 30 38 20 20 0a 20 32 33 ┆2301 2808 w. 2302 2808 23┆
0x14de0…14e00 30 32 20 20 32 38 30 38 20 20 3b 20 20 20 20 73 65 20 20 77 31 20 20 78 31 2b 61 30 2e 20 20 20 ┆02 2808 ; se w1 x1+a0. ┆
0x14e00…14e20 20 20 3b 20 20 20 69 66 20 72 65 6e 61 6d 65 20 69 6d 70 6f 73 73 69 62 6c 65 20 74 68 65 6e 0a ┆ ; if rename impossible then ┆
0x14e20…14e40 20 32 33 30 33 20 20 32 38 30 38 20 20 66 39 30 3a 20 6a 6c 2e 20 20 20 20 20 20 20 20 61 30 2e ┆ 2303 2808 f90: jl. a0.┆
0x14e40…14e60 20 20 20 20 20 3b 20 20 20 20 20 67 6f 74 6f 20 63 6f 70 79 3b 0a 20 32 33 30 34 20 20 32 38 31 ┆ ; goto copy; 2304 281┆
0x14e60…14e80 30 20 20 0a 20 32 33 30 34 20 20 32 38 31 30 20 20 20 20 20 20 20 61 6d 2e 20 20 20 20 20 20 20 ┆0 2304 2810 am. ┆
0x14e80…14ea0 28 66 32 38 2e 29 20 20 20 3b 20 72 65 6e 61 6d 65 20 6f 62 6a 65 63 74 20 61 72 65 61 3a 0a 20 ┆(f28.) ; rename object area: ┆
0x14ea0…14ec0 32 33 30 35 20 20 32 38 31 32 20 20 20 20 20 20 20 61 6c 20 20 77 33 20 20 20 20 2b 68 31 2b 32 ┆2305 2812 al w3 +h1+2┆
0x14ec0…14ee0 20 20 20 20 3b 20 20 20 73 6f 75 72 63 65 20 6e 61 6d 65 20 3a 3d 20 6e 65 77 20 67 65 6e 65 72 ┆ ; source name := new gener┆
0x14ee0…14f00 61 74 65 64 20 6e 61 6d 65 3b 0a 20 32 33 30 36 20 20 32 38 31 34 20 20 20 20 20 20 20 6a 64 20 ┆ated name; 2306 2814 jd ┆
0x14f00…14f20 20 20 20 20 20 20 31 3c 31 31 2b 36 38 20 20 20 3b 0a 20 32 33 30 37 20 20 32 38 31 36 20 20 20 ┆ 1<11+68 ; 2307 2816 ┆
0x14f20…14f40 20 20 20 20 61 6c 20 20 77 31 20 20 78 33 20 20 20 20 20 20 20 20 20 3b 20 20 20 77 31 20 3a 3d ┆ al w1 x3 ; w1 :=┆
0x14f40…14f60 20 73 6f 75 72 63 65 20 6e 61 6d 65 3b 0a 20 32 33 30 38 20 20 32 38 31 38 20 20 20 20 20 20 20 ┆ source name; 2308 2818 ┆
0x14f60…14f80 61 6d 2e 20 20 20 20 20 20 20 28 66 32 37 2e 29 20 20 20 3b 0a 20 32 33 30 39 20 20 32 38 32 30 ┆am. (f27.) ; 2309 2820┆
0x14f80…14fa0 20 20 20 20 20 20 20 61 6c 20 20 77 33 20 20 20 20 2b 68 31 2b 32 20 20 20 20 3b 20 20 20 77 33 ┆ al w3 +h1+2 ; w3┆
0x14fa0…14fc0 20 3a 3d 20 6f 62 6a 65 63 74 20 6e 61 6d 65 3b 0a 20 32 33 31 30 20 20 32 38 32 32 20 20 20 20 ┆ := object name; 2310 2822 ┆
0x14fc0…14fe0 20 20 20 6a 64 20 20 20 20 20 20 20 31 3c 31 31 2b 34 36 20 20 20 3b 20 20 20 72 65 6e 61 6d 65 ┆ jd 1<11+46 ; rename┆
0x14fe0…15000 28 77 31 2c 77 33 29 3b 0a 20 32 33 31 31 20 20 32 38 32 34 20 20 20 20 20 20 20 73 65 20 20 77 ┆(w1,w3); 2311 2824 se w┆
0x15000…15020 30 20 20 20 20 20 30 20 20 20 20 20 20 20 3b 20 20 20 69 66 20 65 72 72 6f 72 20 74 68 65 6e 0a ┆0 0 ; if error then ┆
0x15020…15040 20 32 33 31 32 20 20 32 38 32 36 20 20 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 61 30 2e ┆ 2312 2826 jl. a0.┆
0x15040…15060 20 20 20 20 20 3b 20 20 20 20 20 67 6f 74 6f 20 63 6f 70 79 3b 0a 20 32 33 31 33 20 20 32 38 32 ┆ ; goto copy; 2313 282┆
0x15060…15080 38 20 20 0a 20 32 33 31 33 20 20 32 38 32 38 20 20 20 20 20 20 20 61 6c 2e 20 77 31 20 20 20 20 ┆8 2313 2828 al. w1 ┆
0x15080…150a0 20 66 38 33 2e 20 20 20 20 3b 20 63 72 65 61 74 65 20 61 20 6e 65 77 20 6f 62 6a 65 63 74 20 61 ┆ f83. ; create a new object a┆
0x150a0…150c0 72 65 61 20 28 65 78 61 63 74 6c 79 20 61 73 20 74 68 65 20 6f 6c 64 29 3a 0a 20 32 33 31 34 20 ┆rea (exactly as the old): 2314 ┆
0x150c0…150e0 20 32 38 33 30 20 20 20 20 20 20 20 6a 64 20 20 20 20 20 20 20 31 3c 31 31 2b 34 30 20 20 20 3b ┆ 2830 jd 1<11+40 ;┆
0x150e0…15100 20 20 20 63 72 65 61 74 65 20 65 6e 74 72 79 28 77 31 2c 77 33 29 3b 0a 20 32 33 31 35 20 20 32 ┆ create entry(w1,w3); 2315 2┆
0x15100…15120 38 33 32 20 20 20 20 20 20 20 73 6e 20 20 77 30 20 20 20 20 20 30 20 20 20 20 20 20 20 3b 20 20 ┆832 sn w0 0 ; ┆
0x15120…15140 20 69 66 20 63 72 65 61 74 65 20 6f 6b 20 74 68 65 6e 20 67 6f 74 6f 20 63 6f 6e 6e 65 63 74 20 ┆ if create ok then goto connect ┆
0x15140…15160 6f 62 6a 65 63 74 3b 0a 20 32 33 31 36 20 20 32 38 33 34 20 20 20 20 20 20 20 6a 6c 2e 20 20 20 ┆object; 2316 2834 jl. ┆
0x15160…15180 20 20 20 20 61 37 2e 20 20 20 20 20 20 3b 0a 20 32 33 31 37 20 20 32 38 33 36 20 20 0a 20 32 33 ┆ a7. ; 2317 2836 23┆
0x15180…151a0 31 37 20 20 32 38 33 36 20 20 20 20 20 20 20 61 6c 20 20 77 31 20 20 78 33 20 20 20 20 20 20 20 ┆17 2836 al w1 x3 ┆
0x151a0…151c0 20 20 3b 20 72 65 6e 61 6d 65 20 62 61 63 6b 20 61 67 61 69 6e 3a 0a 20 32 33 31 38 20 20 32 38 ┆ ; rename back again: 2318 28┆
0x151c0…151e0 33 38 20 20 20 20 20 20 20 61 6d 2e 20 20 20 20 20 20 20 28 66 32 38 2e 29 20 20 20 3b 0a 20 32 ┆38 am. (f28.) ; 2┆
0x151e0…15200 33 31 39 20 20 32 38 34 30 20 20 20 20 20 20 20 61 6c 20 20 77 33 20 20 20 20 2b 68 31 2b 32 20 ┆319 2840 al w3 +h1+2 ┆
0x15200…15220 20 20 20 3b 20 20 20 77 33 20 3a 3d 20 61 64 64 72 20 6f 66 20 67 65 6e 65 72 61 74 65 64 20 6e ┆ ; w3 := addr of generated n┆
0x15220…15240 61 6d 65 3b 0a 20 32 33 32 30 20 20 32 38 34 32 20 20 20 20 20 20 20 6a 64 20 20 20 20 20 20 20 ┆ame; 2320 2842 jd ┆
0x15240…15260 31 3c 31 31 2b 34 36 20 20 20 3b 20 20 20 72 65 6e 61 6d 65 28 77 31 2c 77 33 29 3b 0a 20 32 33 ┆1<11+46 ; rename(w1,w3); 23┆
0x15260…15280 32 31 20 20 32 38 34 34 20 20 0a 20 32 33 32 31 20 20 32 38 34 34 20 20 3b 20 74 68 65 20 74 65 ┆21 2844 2321 2844 ; the te┆
0x15280…152a0 78 74 20 69 6e 20 6f 62 6a 65 63 74 20 6d 75 73 74 20 62 65 20 63 6f 70 69 65 64 20 62 61 63 6b ┆xt in object must be copied back┆
0x152a0…152c0 20 69 6e 74 6f 20 73 6f 75 72 63 65 3b 0a 20 32 33 32 32 20 20 32 38 34 34 20 20 0a 20 32 33 32 ┆ into source; 2322 2844 232┆
0x152c0…152e0 32 20 20 32 38 34 34 20 20 61 30 3a 20 20 72 6c 2e 20 77 31 20 20 20 20 20 66 32 37 2e 20 20 20 ┆2 2844 a0: rl. w1 f27. ┆
0x152e0…15300 20 3b 20 63 6f 70 79 3a 20 77 31 20 3a 3d 20 61 64 64 72 20 6f 66 20 6f 62 6a 65 63 74 20 7a 6f ┆ ; copy: w1 := addr of object zo┆
0x15300…15320 6e 65 3b 0a 20 32 33 32 33 20 20 32 38 34 36 20 20 20 20 20 20 20 61 6c 20 20 77 32 20 20 78 31 ┆ne; 2323 2846 al w2 x1┆
0x15320…15340 2b 68 31 2b 32 20 20 20 20 3b 20 20 20 77 32 20 3a 3d 20 61 64 64 72 20 6f 66 20 6f 62 6a 65 63 ┆+h1+2 ; w2 := addr of objec┆
0x15340…15360 74 20 66 69 6c 65 20 64 65 73 63 72 3b 0a 20 32 33 32 34 20 20 32 38 34 38 20 20 20 20 20 20 20 ┆t file descr; 2324 2848 ┆
0x15360…15380 61 6d 2e 20 20 20 20 20 20 20 28 66 37 37 2e 29 20 20 20 3b 0a 20 32 33 32 35 20 20 32 38 35 30 ┆am. (f77.) ; 2325 2850┆
0x15380…153a0 20 20 20 20 20 20 20 6a 6c 20 20 77 33 20 20 20 20 2b 68 32 37 20 20 20 20 20 3b 20 20 20 63 6f ┆ jl w3 +h27 ; co┆
0x153a0…153c0 6e 6e 65 63 74 20 69 6e 70 75 74 20 28 77 31 2c 20 77 32 29 3b 0a 20 32 33 32 36 20 20 32 38 35 ┆nnect input (w1, w2); 2326 285┆
0x153c0…153e0 32 20 20 20 20 20 20 20 73 65 20 20 77 30 20 20 20 20 20 30 20 20 20 20 20 20 20 3b 20 20 20 69 ┆2 se w0 0 ; i┆
0x153e0…15400 66 20 63 6f 6e 6e 65 63 74 20 74 72 6f 75 62 6c 65 20 74 68 65 6e 0a 20 32 33 32 37 20 20 32 38 ┆f connect trouble then 2327 28┆
0x15400…15420 35 34 20 20 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 63 33 37 2e 20 20 20 20 3b 20 20 20 ┆54 jl. c37. ; ┆
0x15420…15440 20 20 65 72 72 6f 72 28 77 6f 72 6b 20 61 72 65 61 29 3b 0a 20 32 33 32 38 20 20 32 38 35 36 20 ┆ error(work area); 2328 2856 ┆
0x15440…15460 20 0a 20 32 33 32 38 20 20 32 38 35 36 20 20 20 20 20 20 20 61 6d 2e 20 20 20 20 20 20 20 28 66 ┆ 2328 2856 am. (f┆
0x15460…15480 32 38 2e 29 20 20 20 3b 0a 20 32 33 32 39 20 20 32 38 35 38 20 20 20 20 20 20 20 61 6c 20 20 77 ┆28.) ; 2329 2858 al w┆
0x15480…154a0 33 20 20 20 20 2b 68 31 2b 32 20 20 20 20 3b 20 20 20 77 33 20 3a 3d 20 6e 61 6d 65 20 61 64 64 ┆3 +h1+2 ; w3 := name add┆
0x154a0…154c0 72 3b 0a 20 32 33 33 30 20 20 32 38 36 30 20 20 20 20 20 20 20 72 73 20 20 77 30 20 20 78 33 20 ┆r; 2330 2860 rs w0 x3 ┆
0x154c0…154e0 20 20 20 20 20 20 20 20 3b 20 20 20 63 6c 65 61 72 20 73 6f 75 72 63 65 6e 61 6d 65 3b 0a 20 32 ┆ ; clear sourcename; 2┆
0x154e0…15500 33 33 31 20 20 32 38 36 32 20 20 20 20 20 20 20 72 73 2e 20 77 30 20 20 20 20 20 69 33 2e 20 20 ┆331 2862 rs. w0 i3. ┆
0x15500…15520 20 20 20 3b 20 20 20 64 6f 63 75 6d 65 6e 74 2e 74 61 69 6c 20 3a 3d 20 70 72 65 66 2e 20 64 72 ┆ ; document.tail := pref. dr┆
0x15520…15540 75 6d 3b 0a 20 32 33 33 32 20 20 32 38 36 34 20 20 20 20 20 20 20 72 6c 2e 20 77 30 20 20 20 20 ┆um; 2332 2864 rl. w0 ┆
0x15540…15560 20 66 38 33 2e 20 20 20 20 3b 20 20 20 73 61 76 65 20 28 6f 62 6a 20 6e 75 6d 62 65 72 20 6f 66 ┆ f83. ; save (obj number of┆
0x15560…15580 20 73 65 67 6d 65 6e 74 73 29 3b 0a 20 32 33 33 33 20 20 32 38 36 36 20 20 20 20 20 20 20 72 73 ┆ segments); 2333 2866 rs┆
0x15580…155a0 2e 20 77 30 20 20 20 20 20 69 31 2e 20 20 20 20 20 3b 0a 20 32 33 33 34 20 20 32 38 36 38 20 20 ┆. w0 i1. ; 2334 2868 ┆
0x155a0…155c0 20 20 20 20 20 72 73 2e 20 77 30 20 20 20 20 20 69 32 2e 20 20 20 20 20 3b 0a 20 32 33 33 35 20 ┆ rs. w0 i2. ; 2335 ┆
0x155c0…155e0 20 32 38 37 30 20 20 20 20 20 20 20 61 6c 2e 20 77 31 20 20 20 20 20 69 32 2e 20 20 20 20 20 3b ┆ 2870 al. w1 i2. ;┆
0x155e0…15600 20 20 20 77 31 20 3a 3d 20 74 61 69 6c 20 61 64 64 72 65 73 73 3b 0a 20 32 33 33 36 20 20 32 38 ┆ w1 := tail address; 2336 28┆
0x15600…15620 (38,) 37 32 20 20 20 20 20 20 20 6a 64 20 20 20 20 20 20 20 31 3c 31 31 2b 34 30 20 20 20 3b 20 20 20 ┆72 jd 1<11+40 ; ┆
0x15620…15640 63 72 65 61 74 65 20 65 6e 74 72 79 28 77 31 2c 77 33 29 3b 0a 20 32 33 33 37 20 20 32 38 37 34 ┆create entry(w1,w3); 2337 2874┆
0x15640…15660 20 20 20 20 20 20 20 73 65 20 20 77 30 20 20 20 20 20 30 20 20 20 20 20 20 20 3b 20 20 20 69 66 ┆ se w0 0 ; if┆
0x15660…15680 20 63 72 65 61 74 65 20 74 72 6f 75 62 6c 65 20 74 68 65 6e 0a 20 32 33 33 38 20 20 32 38 37 36 ┆ create trouble then 2338 2876┆
0x15680…156a0 20 20 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 63 33 37 2e 20 20 20 20 3b 20 20 20 20 20 ┆ jl. c37. ; ┆
0x156a0…156c0 65 72 72 6f 72 28 77 6f 72 6b 20 61 72 65 61 29 3b 0a 20 32 33 33 39 20 20 32 38 37 38 20 20 20 ┆error(work area); 2339 2878 ┆
0x156c0…156e0 20 20 20 20 72 6c 2e 20 77 31 20 20 20 20 20 66 32 38 2e 20 20 20 20 3b 20 20 20 77 31 20 3a 3d ┆ rl. w1 f28. ; w1 :=┆
0x156e0…15700 20 73 6f 75 72 63 65 20 64 65 73 63 72 3b 0a 20 32 33 34 30 20 20 32 38 38 30 20 20 20 20 20 20 ┆ source descr; 2340 2880 ┆
0x15700…15720 20 61 6c 20 20 77 32 20 20 78 31 2b 68 31 2b 32 20 20 20 20 3b 20 20 20 77 32 20 3a 3d 20 6e 65 ┆ al w2 x1+h1+2 ; w2 := ne┆
0x15720…15740 77 20 73 6f 75 72 63 65 20 6e 61 6d 65 3b 0a 20 32 33 34 31 20 20 32 38 38 32 20 20 20 20 20 20 ┆w source name; 2341 2882 ┆
0x15740…15760 20 61 6d 2e 20 20 20 20 20 20 20 28 66 37 37 2e 29 20 20 20 3b 0a 20 32 33 34 32 20 20 32 38 38 ┆ am. (f77.) ; 2342 288┆
0x15760…15780 34 20 20 20 20 20 20 20 6a 6c 20 20 77 33 20 20 20 20 2b 68 32 38 20 20 20 20 20 3b 20 20 20 63 ┆4 jl w3 +h28 ; c┆
0x15780…157a0 6f 6e 6e 65 63 74 20 6f 75 74 70 75 74 28 77 31 2c 77 32 29 3b 0a 20 32 33 34 33 20 20 32 38 38 ┆onnect output(w1,w2); 2343 288┆
0x157a0…157c0 36 20 20 20 20 20 20 20 73 65 20 20 77 30 20 20 20 20 20 30 20 20 20 20 20 20 20 3b 20 20 20 69 ┆6 se w0 0 ; i┆
0x157c0…157e0 66 20 63 6f 6e 6e 65 63 74 20 74 72 6f 75 62 6c 65 20 74 68 65 6e 0a 20 32 33 34 34 20 20 32 38 ┆f connect trouble then 2344 28┆
0x157e0…15800 38 38 20 20 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 63 33 37 2e 20 20 20 20 3b 20 20 20 ┆88 jl. c37. ; ┆
0x15800…15820 20 20 65 72 72 6f 72 28 77 6f 72 6b 20 61 72 65 61 29 3b 0a 20 32 33 34 35 20 20 32 38 39 30 20 ┆ error(work area); 2345 2890 ┆
0x15820…15840 20 0a 20 32 33 34 35 20 20 32 38 39 30 20 20 61 31 3a 20 20 72 6c 2e 20 77 31 20 20 20 20 20 69 ┆ 2345 2890 a1: rl. w1 i┆
0x15840…15860 31 2e 20 20 20 20 20 3b 20 63 6f 70 79 20 6e 65 78 74 20 73 65 67 6d 65 6e 74 3a 0a 20 32 33 34 ┆1. ; copy next segment: 234┆
0x15860…15880 36 20 20 32 38 39 32 20 20 20 20 20 20 20 73 68 20 20 77 31 20 20 20 20 20 30 20 20 20 20 20 20 ┆6 2892 sh w1 0 ┆
0x15880…158a0 20 3b 20 20 20 69 66 20 6e 75 6d 62 65 72 20 6f 66 20 73 65 67 6d 65 6e 74 73 20 3c 3d 20 30 20 ┆ ; if number of segments <= 0 ┆
0x158a0…158c0 74 68 65 6e 0a 20 32 33 34 37 20 20 32 38 39 34 20 20 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 ┆then 2347 2894 jl. ┆
0x158c0…158e0 20 20 61 35 2e 20 20 20 20 20 3b 20 20 20 20 20 67 6f 74 6f 20 63 6f 70 79 20 65 6e 64 65 64 3b ┆ a5. ; goto copy ended;┆
0x158e0…15900 0a 20 32 33 34 38 20 20 32 38 39 36 20 20 0a 20 32 33 34 38 20 20 32 38 39 36 20 20 20 20 20 20 ┆ 2348 2896 2348 2896 ┆
0x15900…15920 20 61 6c 20 20 77 31 20 20 78 31 2d 31 20 20 20 20 20 20 20 3b 20 20 20 64 65 63 72 65 61 73 65 ┆ al w1 x1-1 ; decrease┆
0x15920…15940 28 6e 75 6d 62 65 72 20 6f 66 20 73 65 67 6d 65 6e 74 73 29 3b 0a 20 32 33 34 39 20 20 32 38 39 ┆(number of segments); 2349 289┆
0x15940…15960 38 20 20 20 20 20 20 20 72 73 2e 20 77 31 20 20 20 20 20 69 31 2e 20 20 20 20 20 3b 0a 20 32 33 ┆8 rs. w1 i1. ; 23┆
0x15960…15980 35 30 20 20 32 39 30 30 20 20 0a 20 32 33 35 30 20 20 32 39 30 30 20 20 61 32 3a 20 20 72 6c 2e ┆50 2900 2350 2900 a2: rl.┆
0x15980…159a0 20 77 31 20 20 20 20 20 66 32 37 2e 20 20 20 20 3b 20 20 20 69 6e 62 6c 6f 63 6b 3b 0a 20 32 33 ┆ w1 f27. ; inblock; 23┆
0x159a0…159c0 35 31 20 20 32 39 30 32 20 20 20 20 20 20 20 61 6d 2e 20 20 20 20 20 20 20 28 66 37 37 2e 29 20 ┆51 2902 am. (f77.) ┆
0x159c0…159e0 20 20 3b 0a 20 32 33 35 32 20 20 32 39 30 34 20 20 20 20 20 20 20 6a 6c 20 20 77 33 20 20 20 20 ┆ ; 2352 2904 jl w3 ┆
0x159e0…15a00 2b 68 32 32 20 20 20 20 20 3b 0a 20 32 33 35 33 20 20 32 39 30 36 20 20 0a 20 32 33 35 33 20 20 ┆+h22 ; 2353 2906 2353 ┆
0x15a00…15a20 32 39 30 36 20 20 20 20 20 20 20 72 6c 20 20 77 32 20 20 78 31 2b 68 33 20 20 20 20 20 20 3b 20 ┆2906 rl w2 x1+h3 ; ┆
0x15a20…15a40 20 20 77 32 20 3a 3d 20 72 65 63 6f 72 64 62 61 73 65 2e 66 72 6f 6d 3b 0a 20 32 33 35 34 20 20 ┆ w2 := recordbase.from; 2354 ┆
0x15a40…15a60 32 39 30 38 20 20 20 20 20 20 20 73 6c 20 20 77 32 20 28 78 31 2b 68 33 2b 32 29 20 20 20 3b 20 ┆2908 sl w2 (x1+h3+2) ; ┆
0x15a60…15a80 20 20 69 66 20 77 32 20 3e 3d 20 6c 61 73 74 20 62 79 74 65 20 74 68 65 6e 0a 20 32 33 35 35 20 ┆ if w2 >= last byte then 2355 ┆
0x15a80…15aa0 20 32 39 31 30 20 20 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 61 32 2e 20 20 20 20 20 3b ┆ 2910 jl. a2. ;┆
0x15aa0…15ac0 20 20 20 20 20 67 6f 74 6f 20 72 65 70 65 61 74 20 69 6e 62 6c 6f 63 6b 3b 0a 20 32 33 35 36 20 ┆ goto repeat inblock; 2356 ┆
0x15ac0…15ae0 20 32 39 31 32 20 20 20 20 20 20 20 61 6d 2e 20 20 20 20 20 20 20 28 66 32 38 2e 29 20 20 20 3b ┆ 2912 am. (f28.) ;┆
0x15ae0…15b00 0a 20 32 33 35 37 20 20 32 39 31 34 20 20 20 20 20 20 20 72 6c 20 20 77 33 20 20 20 20 20 2b 68 ┆ 2357 2914 rl w3 +h┆
0x15b00…15b20 33 20 20 20 20 20 3b 20 20 20 77 33 20 3a 3d 20 72 65 63 6f 72 64 20 62 61 73 65 2e 74 6f 3b 0a ┆3 ; w3 := record base.to; ┆
0x15b20…15b40 20 32 33 35 38 20 20 32 39 31 36 20 20 0a 20 32 33 35 38 20 20 32 39 31 36 20 20 61 33 3a 20 20 ┆ 2358 2916 2358 2916 a3: ┆
0x15b40…15b60 61 6d 2e 20 20 20 20 20 20 20 28 66 32 37 2e 29 20 20 20 3b 20 6d 6f 76 65 20 6e 65 78 74 20 77 ┆am. (f27.) ; move next w┆
0x15b60…15b80 6f 72 64 3a 0a 20 32 33 35 39 20 20 32 39 31 38 20 20 20 20 20 20 20 73 6c 20 20 77 32 20 20 20 ┆ord: 2359 2918 sl w2 ┆
0x15b80…15ba0 20 28 2b 68 33 2b 32 29 20 20 3b 20 20 20 69 66 20 77 32 20 3e 3d 20 6c 61 73 74 20 62 79 74 65 ┆ (+h3+2) ; if w2 >= last byte┆
0x15ba0…15bc0 20 74 68 65 6e 0a 20 32 33 36 30 20 20 32 39 32 30 20 20 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 ┆ then 2360 2920 jl. ┆
0x15bc0…15be0 20 20 20 61 34 2e 20 20 20 20 20 3b 20 20 20 20 20 67 6f 74 6f 20 6f 75 74 20 6e 65 78 74 3b 0a ┆ a4. ; goto out next; ┆
0x15be0…15c00 20 32 33 36 31 20 20 32 39 32 32 20 20 20 20 20 20 20 61 6c 20 20 77 32 20 20 78 32 2b 34 20 20 ┆ 2361 2922 al w2 x2+4 ┆
0x15c00…15c20 20 20 20 20 20 3b 20 20 20 69 6e 63 72 65 61 73 65 28 77 32 2c 77 33 29 3b 0a 20 32 33 36 32 20 ┆ ; increase(w2,w3); 2362 ┆
0x15c20…15c40 20 32 39 32 34 20 20 20 20 20 20 20 61 6c 20 20 77 33 20 20 78 33 2b 34 20 20 20 20 20 20 20 3b ┆ 2924 al w3 x3+4 ;┆
0x15c40…15c60 0a 20 32 33 36 33 20 20 32 39 32 36 20 20 20 20 20 20 20 64 6c 20 20 77 31 20 20 78 32 20 20 20 ┆ 2363 2926 dl w1 x2 ┆
0x15c60…15c80 20 20 20 20 20 20 3b 20 20 20 6d 6f 76 65 20 64 6f 75 62 6c 65 77 6f 72 64 3b 0a 20 32 33 36 34 ┆ ; move doubleword; 2364┆
0x15c80…15ca0 20 20 32 39 32 38 20 20 20 20 20 20 20 64 73 20 20 77 31 20 20 78 33 20 20 20 20 20 20 20 20 20 ┆ 2928 ds w1 x3 ┆
0x15ca0…15cc0 3b 0a 20 32 33 36 35 20 20 32 39 33 30 20 20 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 61 ┆; 2365 2930 jl. a┆
0x15cc0…15ce0 33 2e 20 20 20 20 20 3b 20 20 20 67 6f 74 6f 20 6d 6f 76 65 20 6e 65 78 74 20 77 6f 72 64 3b 0a ┆3. ; goto move next word; ┆
0x15ce0…15d00 20 32 33 36 36 20 20 32 39 33 32 20 20 0a 20 32 33 36 36 20 20 32 39 33 32 20 20 61 34 3a 20 20 ┆ 2366 2932 2366 2932 a4: ┆
0x15d00…15d20 72 6c 2e 20 77 31 20 20 20 20 20 66 32 38 2e 20 20 20 20 3b 20 6f 75 74 20 6e 65 78 74 3a 0a 20 ┆rl. w1 f28. ; out next: ┆
0x15d20…15d40 32 33 36 37 20 20 32 39 33 34 20 20 20 20 20 20 20 61 6d 2e 20 20 20 20 20 20 20 28 66 37 37 2e ┆2367 2934 am. (f77.┆
0x15d40…15d60 29 20 20 20 3b 20 20 20 6f 75 74 62 6c 6f 63 6b 3b 0a 20 32 33 36 38 20 20 32 39 33 36 20 20 20 ┆) ; outblock; 2368 2936 ┆
0x15d60…15d80 20 20 20 20 6a 6c 20 20 77 33 20 20 20 20 2b 68 32 33 20 20 20 20 20 3b 0a 20 32 33 36 39 20 20 ┆ jl w3 +h23 ; 2369 ┆
0x15d80…15da0 32 39 33 38 20 20 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 61 31 2e 20 20 20 20 20 3b 20 ┆2938 jl. a1. ; ┆
0x15da0…15dc0 20 20 67 6f 74 6f 20 63 6f 70 79 20 6e 65 78 74 20 73 65 67 6d 65 6e 74 3b 0a 20 32 33 37 30 20 ┆ goto copy next segment; 2370 ┆
0x15dc0…15de0 20 32 39 34 30 20 20 0a 20 32 33 37 30 20 20 32 39 34 30 20 20 61 35 3a 20 20 72 6c 2e 20 77 31 ┆ 2940 2370 2940 a5: rl. w1┆
0x15de0…15e00 20 20 20 20 20 66 32 38 2e 20 20 20 20 3b 20 63 6f 70 79 20 65 6e 64 65 64 3a 20 77 31 20 3a 3d ┆ f28. ; copy ended: w1 :=┆
0x15e00…15e20 20 73 6f 75 72 63 65 20 64 65 73 63 72 3b 0a 20 32 33 37 31 20 20 32 39 34 32 20 20 20 20 20 20 ┆ source descr; 2371 2942 ┆
0x15e20…15e40 20 61 6d 2e 20 20 20 20 20 20 20 28 66 37 37 2e 29 20 20 20 3b 0a 20 32 33 37 32 20 20 32 39 34 ┆ am. (f77.) ; 2372 294┆
0x15e40…15e60 34 20 20 20 20 20 20 20 6a 6c 20 20 77 33 20 20 20 20 2b 68 37 39 20 20 20 20 20 3b 20 20 20 74 ┆4 jl w3 +h79 ; t┆
0x15e60…15e80 65 72 6d 69 6e 61 74 65 20 7a 6f 6e 65 28 73 6f 75 72 63 65 29 3b 0a 20 32 33 37 33 20 20 32 39 ┆erminate zone(source); 2373 29┆
0x15e80…15ea0 34 36 20 20 20 20 20 20 20 72 6c 2e 20 77 31 20 20 20 20 20 66 32 37 2e 20 20 20 20 3b 20 20 20 ┆46 rl. w1 f27. ; ┆
0x15ea0…15ec0 77 31 20 3a 3d 20 6f 62 6a 65 63 74 20 64 65 73 63 72 3b 0a 20 32 33 37 34 20 20 32 39 34 38 20 ┆w1 := object descr; 2374 2948 ┆
0x15ec0…15ee0 20 20 20 20 20 20 61 6d 2e 20 20 20 20 20 20 20 28 66 37 37 2e 29 20 20 20 3b 0a 20 32 33 37 35 ┆ am. (f77.) ; 2375┆
0x15ee0…15f00 20 20 32 39 35 30 20 20 20 20 20 20 20 6a 6c 20 20 77 33 20 20 20 20 2b 68 37 39 20 20 20 20 20 ┆ 2950 jl w3 +h79 ┆
0x15f00…15f20 (39,) 3b 20 20 20 74 65 72 6d 69 6e 61 74 65 20 7a 6f 6e 65 28 6f 62 6a 65 63 74 29 3b 0a 20 32 33 37 ┆; terminate zone(object); 237┆
0x15f20…15f40 36 20 20 32 39 35 32 20 20 0a 20 32 33 37 36 20 20 32 39 35 32 20 20 20 20 20 20 20 6a 6c 2e 20 ┆6 2952 2376 2952 jl. ┆
0x15f40…15f60 20 20 20 20 20 20 20 61 37 2e 20 20 20 20 20 3b 20 20 20 67 6f 74 6f 20 63 6f 6e 6e 65 63 74 20 ┆ a7. ; goto connect ┆
0x15f60…15f80 6f 62 6a 65 63 74 3b 0a 20 32 33 37 37 20 20 32 39 35 34 20 20 0a 20 32 33 37 37 20 20 32 39 35 ┆object; 2377 2954 2377 295┆
0x15f80…15fa0 34 20 20 69 31 3a 20 20 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 6e 75 6d ┆4 i1: 0 ; num┆
0x15fa0…15fc0 62 65 72 20 6f 66 20 73 65 67 6d 65 6e 74 73 20 74 6f 20 63 6f 70 79 0a 20 32 33 37 38 20 20 32 ┆ber of segments to copy 2378 2┆
0x15fc0…15fe0 39 35 36 20 20 69 32 3a 20 20 30 20 20 2c 20 72 2e 31 30 20 20 20 20 20 20 20 20 20 20 3b 20 74 ┆956 i2: 0 , r.10 ; t┆
0x15fe0…16000 61 69 6c 20 66 6f 72 20 63 72 65 61 74 65 20 65 6e 74 72 79 0a 20 32 33 37 39 20 20 32 39 37 36 ┆ail for create entry 2379 2976┆
0x16000…16020 20 20 69 33 20 3d 20 69 32 2b 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 64 6f 63 75 ┆ i3 = i2+2 ; docu┆
0x16020…16040 6d 65 6e 74 20 6e 61 6d 65 0a 20 32 33 38 30 20 20 32 39 37 36 20 20 0a 20 32 33 38 30 20 20 32 ┆ment name 2380 2976 2380 2┆
0x16040…16060 39 37 36 20 20 61 37 3a 20 20 61 6c 20 20 77 30 20 20 20 20 20 30 20 20 20 20 20 20 20 3b 20 63 ┆976 a7: al w0 0 ; c┆
0x16060…16080 6f 6e 6e 65 63 74 20 6f 62 6a 65 63 74 3a 0a 20 32 33 38 31 20 20 32 39 37 38 20 20 20 20 20 20 ┆onnect object: 2381 2978 ┆
0x16080…160a0 20 68 73 2e 20 77 30 20 20 20 20 20 66 37 32 2e 20 20 20 20 3b 20 20 20 69 6e 74 65 72 6d 20 73 ┆ hs. w0 f72. ; interm s┆
0x160a0…160c0 6f 75 72 63 65 20 3a 3d 20 74 72 75 65 3b 0a 20 32 33 38 32 20 20 32 39 38 30 20 20 20 20 20 20 ┆ource := true; 2382 2980 ┆
0x160c0…160e0 20 72 6c 2e 20 77 31 20 20 20 20 20 66 32 37 2e 20 20 20 20 3b 20 20 20 77 31 20 3a 3d 20 6f 62 ┆ rl. w1 f27. ; w1 := ob┆
0x160e0…16100 6a 20 64 65 73 63 72 3b 0a 20 32 33 38 33 20 20 32 39 38 32 20 20 20 20 20 20 20 61 6c 20 20 77 ┆j descr; 2383 2982 al w┆
0x16100…16120 32 20 20 78 31 2b 68 31 2b 32 20 20 20 20 3b 20 20 20 77 32 20 3a 3d 20 6f 62 6a 20 6e 61 6d 65 ┆2 x1+h1+2 ; w2 := obj name┆
0x16120…16140 3b 0a 20 32 33 38 34 20 20 32 39 38 34 20 20 0a 20 32 33 38 34 20 20 32 39 38 34 20 20 65 2e 20 ┆; 2384 2984 2384 2984 e. ┆
0x16140…16160 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 65 6e 64 20 6f 66 20 74 75 ┆ ; end of tu┆
0x16160…16180 72 6e 2d 62 6c 6f 63 6b 3b 0a 20 32 33 38 35 20 20 32 39 38 34 20 20 0a 20 32 33 38 35 20 20 32 ┆rn-block; 2385 2984 2385 2┆
0x16180…161a0 39 38 34 20 20 20 20 20 20 20 61 6d 2e 20 20 20 20 20 20 20 28 66 37 37 2e 29 20 20 3b 0a 20 32 ┆984 am. (f77.) ; 2┆
0x161a0…161c0 33 38 36 20 20 32 39 38 36 20 20 20 20 20 20 20 6a 6c 20 20 77 33 20 20 20 20 20 68 32 38 20 20 ┆386 2986 jl w3 h28 ┆
0x161c0…161e0 20 20 3b 20 20 20 63 6f 6e 6e 65 63 74 20 6f 75 74 70 75 74 28 77 31 2c 77 32 29 3b 0a 20 32 33 ┆ ; connect output(w1,w2); 23┆
0x161e0…16200 38 37 20 20 32 39 38 38 20 20 20 20 20 20 20 73 65 20 20 77 30 20 20 20 20 20 30 20 20 20 20 20 ┆87 2988 se w0 0 ┆
0x16200…16220 20 3b 20 20 20 69 66 20 63 6f 6e 6e 65 63 74 20 65 72 72 6f 72 0a 20 32 33 38 38 20 20 32 39 39 ┆ ; if connect error 2388 299┆
0x16220…16240 30 20 20 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 63 33 37 2e 20 20 20 3b 20 20 20 74 68 ┆0 jl. c37. ; th┆
0x16240…16260 65 6e 20 61 6c 61 72 6d 28 77 6f 72 6b 20 61 72 65 61 29 3b 0a 20 32 33 38 39 20 20 32 39 39 32 ┆en alarm(work area); 2389 2992┆
0x16260…16280 20 20 20 20 20 20 20 72 6c 2e 20 77 32 20 20 20 20 20 66 32 38 2e 20 20 20 3b 0a 20 32 33 39 30 ┆ rl. w2 f28. ; 2390┆
0x16280…162a0 20 20 32 39 39 34 20 20 20 20 20 20 20 61 6c 20 20 77 32 20 20 78 32 2b 68 31 2b 32 20 20 20 3b ┆ 2994 al w2 x2+h1+2 ;┆
0x162a0…162c0 20 20 20 77 32 3a 3d 20 73 6f 75 72 63 65 20 64 65 73 63 72 2e 6e 61 6d 65 3b 0a 20 32 33 39 31 ┆ w2:= source descr.name; 2391┆
0x162c0…162e0 20 20 32 39 39 36 20 20 20 20 20 20 20 6a 6c 2e 20 77 33 20 20 20 20 20 63 39 2e 20 20 20 20 3b ┆ 2996 jl. w3 c9. ;┆
0x162e0…16300 20 20 20 69 6e 69 74 20 73 6f 75 72 63 65 3b 0a 20 32 33 39 32 20 20 32 39 39 38 20 20 20 20 20 ┆ init source; 2392 2998 ┆
0x16300…16320 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 63 33 37 2e 20 20 20 3b 20 20 20 69 66 20 6e 6f 74 20 6f ┆ jl. c37. ; if not o┆
0x16320…16340 6b 20 74 68 65 6e 20 61 6c 61 72 6d 28 77 6f 72 6b 20 61 72 65 61 29 3b 0a 20 32 33 39 33 20 20 ┆k then alarm(work area); 2393 ┆
0x16340…16360 33 30 30 30 20 20 20 20 20 20 20 61 6c 20 20 77 30 20 20 20 20 20 64 36 20 20 20 20 20 3b 0a 20 ┆3000 al w0 d6 ; ┆
0x16360…16380 32 33 39 34 20 20 33 30 30 32 20 20 20 20 20 20 20 72 73 2e 20 77 30 20 20 20 20 20 66 34 34 2e ┆2394 3002 rs. w0 f44.┆
0x16380…163a0 20 20 20 3b 20 20 20 63 75 72 20 6c 69 6e 65 3a 3d 0a 20 32 33 39 35 20 20 33 30 30 34 20 20 20 ┆ ; cur line:= 2395 3004 ┆
0x163a0…163c0 20 20 20 20 72 73 2e 20 77 30 20 20 20 20 20 66 34 35 2e 20 20 20 3b 20 20 20 6f 75 74 20 6c 69 ┆ rs. w0 f45. ; out li┆
0x163c0…163e0 6e 65 3a 3d 20 66 69 72 73 74 20 73 6f 75 72 63 65 20 6c 69 6e 65 3b 0a 20 32 33 39 36 20 20 33 ┆ne:= first source line; 2396 3┆
0x163e0…16400 30 30 36 20 20 20 20 20 20 20 72 6c 2e 20 77 32 20 20 20 20 20 66 34 37 2e 20 20 20 3b 20 20 20 ┆006 rl. w2 f47. ; ┆
0x16400…16420 63 75 72 20 6f 62 6a 3a 3d 0a 20 32 33 39 37 20 20 33 30 30 38 20 20 20 20 20 20 20 72 73 2e 20 ┆cur obj:= 2397 3008 rs. ┆
0x16420…16440 77 32 20 20 20 20 20 66 34 36 2e 20 20 20 3b 20 20 20 63 75 72 20 6f 75 74 3a 3d 20 6f 62 6a 20 ┆w2 f46. ; cur out:= obj ┆
0x16440…16460 74 6f 70 3b 0a 20 32 33 39 38 20 20 33 30 31 30 20 20 20 20 20 20 20 72 6c 2e 20 77 33 20 20 20 ┆top; 2398 3010 rl. w3 ┆
0x16460…16480 20 20 66 36 37 2e 20 20 20 3b 20 20 20 63 75 72 20 63 6f 72 72 3a 3d 20 73 61 76 65 64 20 63 75 ┆ f67. ; cur corr:= saved cu┆
0x16480…164a0 72 20 63 6f 72 72 3b 0a 20 32 33 39 39 20 20 33 30 31 32 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆r corr; 2399 3012 ┆
0x164a0…164c0 20 20 20 20 20 20 20 20 20 20 20 20 3b 0a 20 32 34 30 30 20 20 33 30 31 32 20 20 20 20 20 20 20 ┆ ; 2400 3012 ┆
0x164c0…164e0 61 6d 2e 20 20 20 20 20 20 20 28 66 36 34 2e 29 20 20 3b 0a 20 32 34 30 31 20 20 33 30 31 34 20 ┆am. (f64.) ; 2401 3014 ┆
0x164e0…16500 20 20 20 20 20 20 73 6c 20 20 77 31 20 20 78 31 2d 64 36 20 20 20 20 20 3b 20 20 20 69 66 20 6c ┆ sl w1 x1-d6 ; if l┆
0x16500…16520 69 6e 65 20 64 65 73 74 20 3c 3d 20 66 69 72 73 74 20 73 6f 75 72 63 65 20 6c 69 6e 65 0a 20 32 ┆ine dest <= first source line 2┆
0x16520…16540 34 30 32 20 20 33 30 31 36 20 20 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 61 32 2e 20 20 ┆402 3016 jl. a2. ┆
0x16540…16560 20 20 3b 20 20 20 74 68 65 6e 20 67 6f 74 6f 20 6e 65 78 74 20 69 6e 73 74 72 20 32 3b 0a 20 32 ┆ ; then goto next instr 2; 2┆
0x16560…16580 34 30 33 20 20 33 30 31 38 20 20 20 20 20 20 20 61 6c 20 20 77 30 20 20 20 20 20 62 31 33 20 20 ┆403 3018 al w0 b13 ┆
0x16580…165a0 20 20 3b 0a 20 32 34 30 34 20 20 33 30 32 30 20 20 20 20 20 20 20 68 73 20 20 77 30 20 20 78 33 ┆ ; 2404 3020 hs w0 x3┆
0x165a0…165c0 20 20 20 20 20 20 20 20 3b 20 20 20 62 79 74 65 20 28 63 75 72 20 63 6f 72 72 29 3a 3d 20 63 6f ┆ ; byte (cur corr):= co┆
0x165c0…165e0 70 79 3b 0a 20 32 34 30 35 20 20 33 30 32 32 20 20 20 20 20 20 20 61 6c 20 20 77 33 20 20 78 33 ┆py; 2405 3022 al w3 x3┆
0x165e0…16600 2d 31 20 20 20 20 20 20 3b 20 20 20 63 75 72 20 63 6f 72 72 3a 3d 20 63 75 72 20 63 6f 72 72 20 ┆-1 ; cur corr:= cur corr ┆
0x16600…16620 2d 20 31 3b 0a 20 32 34 30 36 20 20 33 30 32 34 20 20 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 ┆- 1; 2406 3024 jl. ┆
0x16620…16640 20 20 61 36 32 2e 20 20 20 3b 20 20 20 67 6f 74 6f 20 70 72 65 70 20 30 3b 0a 20 32 34 30 37 20 ┆ a62. ; goto prep 0; 2407 ┆
0x16640…16660 20 33 30 32 36 20 20 0a 20 32 34 30 37 20 20 33 30 32 36 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 3026 2407 3026 ┆
0x16660…16680 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 65 6e 64 20 62 61 63 6b 20 75 70 3b 0a 20 32 34 30 38 ┆ ; end back up; 2408┆
0x16680…166a0 20 20 33 30 32 36 20 20 0c 0a 20 32 34 30 38 20 20 33 30 32 36 20 20 0a 20 32 34 30 38 20 20 33 ┆ 3026 2408 3026 2408 3┆
0x166a0…166c0 30 32 36 20 20 3b 20 72 63 20 31 37 2e 36 2e 36 39 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆026 ; rc 17.6.69 ┆
0x166c0…166e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 64 69 74 6f 72 20 69 2c 20 74 61 70 65 20 33 ┆ editor i, tape 3┆
0x166e0…16700 2c 20 70 61 67 65 20 31 33 2e 0a 20 32 34 30 39 20 20 33 30 32 36 20 20 0a 20 32 34 30 39 20 20 ┆, page 13. 2409 3026 2409 ┆
0x16700…16720 33 30 32 36 20 20 20 20 20 20 20 3b 20 6d 61 72 6b 20 63 68 61 72 61 63 74 65 72 3a 0a 20 32 34 ┆3026 ; mark character: 24┆
0x16720…16740 31 30 20 20 33 30 32 36 20 20 20 20 20 20 20 3b 20 20 20 63 6f 6d 6d 65 6e 74 3a 20 74 68 65 20 ┆10 3026 ; comment: the ┆
0x16740…16760 6f 6c 64 20 6d 61 72 6b 20 63 68 61 72 61 63 74 65 72 20 69 73 20 65 78 63 68 61 6e 67 65 64 0a ┆old mark character is exchanged ┆
0x16760…16780 20 32 34 31 31 20 20 33 30 32 36 20 20 20 20 20 20 20 3b 20 20 20 77 69 74 68 20 74 68 65 20 6e ┆ 2411 3026 ; with the n┆
0x16780…167a0 65 77 20 6f 6e 65 20 67 69 76 65 6e 20 69 6e 20 74 68 65 20 63 6f 72 72 65 63 74 69 6f 6e 20 73 ┆ew one given in the correction s┆
0x167a0…167c0 74 72 69 6e 67 2e 0a 20 32 34 31 32 20 20 33 30 32 36 20 20 20 20 20 20 20 3b 20 20 20 74 68 65 ┆tring. 2412 3026 ; the┆
0x167c0…167e0 20 73 70 65 63 69 61 6c 20 6d 61 72 6b 20 69 6e 20 74 68 65 20 62 79 74 65 20 74 61 62 6c 65 20 ┆ special mark in the byte table ┆
0x167e0…16800 69 73 20 72 65 6d 6f 76 65 64 0a 20 32 34 31 33 20 20 33 30 32 36 20 20 20 20 20 20 20 3b 20 20 ┆is removed 2413 3026 ; ┆
0x16800…16820 (40,) 20 66 72 6f 6d 20 74 68 65 20 6f 6c 64 20 6d 61 72 6b 20 63 68 61 72 61 63 74 65 72 20 61 6e 64 ┆ from the old mark character and┆
0x16820…16840 20 73 65 74 20 66 6f 72 20 74 68 65 0a 20 32 34 31 34 20 20 33 30 32 36 20 20 20 20 20 20 20 3b ┆ set for the 2414 3026 ;┆
0x16840…16860 20 20 20 6e 65 77 20 6d 61 72 6b 20 63 68 61 72 61 63 74 65 72 2e 20 69 66 20 74 68 65 20 6d 61 ┆ new mark character. if the ma┆
0x16860…16880 72 6b 20 63 68 61 72 61 63 74 65 72 20 69 73 0a 20 32 34 31 35 20 20 33 30 32 36 20 20 20 20 20 ┆rk character is 2415 3026 ┆
0x16880…168a0 20 20 3b 20 20 20 65 6d 70 74 79 20 6e 6f 20 73 70 65 63 69 61 6c 20 6d 61 72 6b 20 69 73 20 73 ┆ ; empty no special mark is s┆
0x168a0…168c0 65 74 20 69 6e 20 74 68 65 20 62 79 74 65 20 74 61 62 6c 65 3b 0a 20 32 34 31 36 20 20 33 30 32 ┆et in the byte table; 2416 302┆
0x168c0…168e0 36 20 20 0a 20 32 34 31 36 20 20 33 30 32 36 20 20 62 2e 20 20 20 68 32 0a 20 32 34 31 37 20 20 ┆6 2416 3026 b. h2 2417 ┆
0x168e0…16900 33 30 32 36 20 20 77 2e 0a 20 32 34 31 38 20 20 33 30 32 36 20 20 61 32 39 3a 20 20 20 20 20 20 ┆3026 w. 2418 3026 a29: ┆
0x16900…16920 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 6e 75 6d 3a 0a 20 32 34 31 39 20 20 33 30 32 36 20 ┆ ; num: 2419 3026 ┆
0x16920…16940 20 20 20 20 20 20 61 6d 20 20 20 20 20 20 20 20 20 2d 32 20 20 20 20 20 3b 20 20 20 63 68 61 72 ┆ am -2 ; char┆
0x16940…16960 20 61 64 64 72 3a 3d 20 6e 75 6d 20 63 68 61 72 3b 20 67 6f 74 6f 20 73 65 74 20 63 68 61 72 3b ┆ addr:= num char; goto set char;┆
0x16960…16980 0a 20 32 34 32 30 20 20 33 30 32 38 20 20 0a 20 32 34 32 30 20 20 33 30 32 38 20 20 61 33 30 3a ┆ 2420 3028 2420 3028 a30:┆
0x16980…169a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 6c 69 6e 65 3a 0a 20 32 34 32 31 ┆ ; line: 2421┆
0x169a0…169c0 20 20 33 30 32 38 20 20 20 20 20 20 20 61 6d 20 20 20 20 20 20 20 20 20 2d 32 20 20 20 20 20 3b ┆ 3028 am -2 ;┆
0x169c0…169e0 20 20 20 63 68 61 72 20 61 64 64 72 3a 3d 20 6c 69 6e 65 20 63 68 61 72 3b 20 67 6f 74 6f 20 73 ┆ char addr:= line char; goto s┆
0x169e0…16a00 65 74 20 63 68 61 72 3b 0a 20 32 34 32 32 20 20 33 30 33 30 20 20 0a 20 32 34 32 32 20 20 33 30 ┆et char; 2422 3030 2422 30┆
0x16a00…16a20 33 30 20 20 61 33 31 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 63 68 61 ┆30 a31: ; cha┆
0x16a20…16a40 72 3a 0a 20 32 34 32 33 20 20 33 30 33 30 20 20 20 20 20 20 20 61 6c 2e 20 77 30 20 20 20 20 20 ┆r: 2423 3030 al. w0 ┆
0x16a40…16a60 66 33 39 2e 20 20 20 3b 20 20 20 63 68 61 72 20 61 64 64 72 3a 3d 20 63 68 61 72 20 63 68 61 72 ┆f39. ; char addr:= char char┆
0x16a60…16a80 3b 0a 20 32 34 32 34 20 20 33 30 33 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆; 2424 3032 ┆
0x16a80…16aa0 20 20 20 20 20 20 3b 20 73 65 74 20 63 68 61 72 3a 0a 20 32 34 32 35 20 20 33 30 33 32 20 20 20 ┆ ; set char: 2425 3032 ┆
0x16aa0…16ac0 20 20 20 20 64 73 2e 20 77 31 20 20 20 20 20 66 34 31 2e 20 20 20 3b 0a 20 32 34 32 36 20 20 33 ┆ ds. w1 f41. ; 2426 3┆
0x16ac0…16ae0 30 33 34 20 20 20 20 20 20 20 72 6c 2e 20 77 31 20 20 20 20 28 66 34 30 2e 29 20 20 3b 20 20 20 ┆034 rl. w1 (f40.) ; ┆
0x16ae0…16b00 6d 61 72 6b 20 63 68 61 72 3a 3d 20 77 6f 72 64 20 28 63 68 61 72 20 61 64 64 72 29 3b 0a 20 32 ┆mark char:= word (char addr); 2┆
0x16b00…16b20 34 32 37 20 20 33 30 33 36 20 20 20 20 20 20 20 73 6e 20 20 77 31 20 20 20 20 20 2d 31 20 20 20 ┆427 3036 sn w1 -1 ┆
0x16b20…16b40 20 20 3b 20 20 20 69 66 20 6d 61 72 6b 20 63 68 61 72 20 3d 20 65 6d 70 74 79 0a 20 32 34 32 38 ┆ ; if mark char = empty 2428┆
0x16b40…16b60 20 20 33 30 33 38 20 20 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 68 31 2e 20 20 20 20 3b ┆ 3038 jl. h1. ;┆
0x16b60…16b80 20 20 20 74 68 65 6e 20 67 6f 74 6f 20 6e 65 77 20 63 68 61 72 3b 0a 20 32 34 32 39 20 20 33 30 ┆ then goto new char; 2429 30┆
0x16b80…16ba0 34 30 20 20 20 20 20 20 20 6c 61 2e 20 77 31 20 20 20 20 20 66 32 30 2e 20 20 20 3b 0a 20 32 34 ┆40 la. w1 f20. ; 24┆
0x16ba0…16bc0 33 30 20 20 33 30 34 32 20 20 20 20 20 20 20 62 6c 2e 20 77 30 20 20 78 31 2b 66 31 2e 20 20 20 ┆30 3042 bl. w0 x1+f1. ┆
0x16bc0…16be0 20 3b 20 20 20 62 79 74 65 20 74 61 62 6c 65 20 28 6d 61 72 6b 20 63 68 61 72 29 3a 3d 0a 20 32 ┆ ; byte table (mark char):= 2┆
0x16be0…16c00 34 33 31 20 20 33 30 34 34 20 20 20 20 20 20 20 6c 61 2e 20 77 30 20 20 20 20 20 66 31 38 2e 20 ┆431 3044 la. w0 f18. ┆
0x16c00…16c20 20 20 3b 20 20 20 20 20 62 79 74 65 20 74 61 62 6c 65 20 28 6d 61 72 6b 20 63 68 61 72 29 20 26 ┆ ; byte table (mark char) &┆
0x16c20…16c40 20 6e 6f 74 20 73 70 65 63 69 61 6c 3b 0a 20 32 34 33 32 20 20 33 30 34 36 20 20 20 20 20 20 20 ┆ not special; 2432 3046 ┆
0x16c40…16c60 68 73 2e 20 77 30 20 20 78 31 2b 66 31 2e 20 20 20 20 3b 0a 20 32 34 33 33 20 20 33 30 34 38 20 ┆hs. w0 x1+f1. ; 2433 3048 ┆
0x16c60…16c80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 6e 65 77 20 63 68 ┆ ; new ch┆
0x16c80…16ca0 61 72 3a 0a 20 32 34 33 34 20 20 33 30 34 38 20 20 68 31 3a 20 20 62 6c 20 20 77 30 20 20 78 33 ┆ar: 2434 3048 h1: bl w0 x3┆
0x16ca0…16cc0 2b 31 20 20 20 20 20 20 3b 20 20 20 6d 61 72 6b 20 63 68 61 72 3a 3d 20 62 79 74 65 20 28 63 75 ┆+1 ; mark char:= byte (cu┆
0x16cc0…16ce0 72 20 63 6f 72 72 20 2b 20 31 29 3b 0a 20 32 34 33 35 20 20 33 30 35 30 20 20 20 20 20 20 20 73 ┆r corr + 1); 2435 3050 s┆
0x16ce0…16d00 6e 20 20 77 30 20 20 20 20 20 2d 31 20 20 20 20 20 3b 20 20 20 69 66 20 6d 61 72 6b 20 63 68 61 ┆n w0 -1 ; if mark cha┆
0x16d00…16d20 72 20 3d 20 65 6d 70 74 79 0a 20 32 34 33 36 20 20 33 30 35 32 20 20 20 20 20 20 20 6a 6c 2e 20 ┆r = empty 2436 3052 jl. ┆
0x16d20…16d40 20 20 20 20 20 20 20 68 32 2e 20 20 20 20 3b 20 20 20 74 68 65 6e 20 67 6f 74 6f 20 73 74 6f 72 ┆ h2. ; then goto stor┆
0x16d40…16d60 65 20 63 68 61 72 3b 0a 20 32 34 33 37 20 20 33 30 35 34 20 20 20 20 20 20 20 72 6c 20 20 77 31 ┆e char; 2437 3054 rl w1┆
0x16d60…16d80 20 20 20 20 20 30 20 20 20 20 20 20 3b 0a 20 32 34 33 38 20 20 33 30 35 36 20 20 20 20 20 20 20 ┆ 0 ; 2438 3056 ┆
0x16d80…16da0 6c 61 2e 20 77 31 20 20 20 20 20 66 32 30 2e 20 20 20 3b 0a 20 32 34 33 39 20 20 33 30 35 38 20 ┆la. w1 f20. ; 2439 3058 ┆
0x16da0…16dc0 20 20 20 20 20 20 62 6c 2e 20 77 30 20 20 78 31 2b 66 31 2e 20 20 20 20 3b 20 20 20 62 79 74 65 ┆ bl. w0 x1+f1. ; byte┆
0x16dc0…16de0 20 74 61 62 6c 65 20 28 6d 61 72 6b 20 63 68 61 72 29 3a 3d 20 6d 61 72 6b 20 63 68 61 72 3a 3d ┆ table (mark char):= mark char:=┆
0x16de0…16e00 0a 20 32 34 34 30 20 20 33 30 36 30 20 20 20 20 20 20 20 6c 6f 2e 20 77 30 20 20 20 20 20 66 31 ┆ 2440 3060 lo. w0 f1┆
0x16e00…16e20 35 2e 20 20 20 3b 20 20 20 20 20 62 79 74 65 20 74 61 62 6c 65 20 28 6d 61 72 6b 20 63 68 61 72 ┆5. ; byte table (mark char┆
0x16e20…16e40 20 20 20 73 70 65 63 69 61 6c 3b 0a 20 32 34 34 31 20 20 33 30 36 32 20 20 20 20 20 20 20 68 73 ┆ special; 2441 3062 hs┆
0x16e40…16e60 2e 20 77 30 20 20 78 31 2b 66 31 2e 20 20 20 20 3b 0a 20 32 34 34 32 20 20 33 30 36 34 20 20 20 ┆. w0 x1+f1. ; 2442 3064 ┆
0x16e60…16e80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 73 74 6f 72 65 20 63 68 ┆ ; store ch┆
0x16e80…16ea0 61 72 3a 0a 20 32 34 34 33 20 20 33 30 36 34 20 20 68 32 3a 20 20 72 73 2e 20 77 30 20 20 20 20 ┆ar: 2443 3064 h2: rs. w0 ┆
0x16ea0…16ec0 28 66 34 30 2e 29 20 20 3b 20 20 20 77 6f 72 64 20 28 63 68 61 72 20 61 64 64 72 29 3a 3d 20 6d ┆(f40.) ; word (char addr):= m┆
0x16ec0…16ee0 61 72 6b 20 63 68 61 72 3b 0a 20 32 34 34 34 20 20 33 30 36 36 20 20 20 20 20 20 20 72 6c 2e 20 ┆ark char; 2444 3066 rl. ┆
0x16ee0…16f00 77 31 20 20 20 20 20 66 34 31 2e 20 20 20 3b 0a 20 32 34 34 35 20 20 33 30 36 38 20 20 20 20 20 ┆w1 f41. ; 2445 3068 ┆
0x16f00…16f20 20 20 61 6c 20 20 77 33 20 20 78 33 2b 32 20 20 20 20 20 20 3b 20 20 20 63 75 72 20 63 6f 72 72 ┆ al w3 x3+2 ; cur corr┆
0x16f20…16f40 3a 3d 20 63 75 72 20 63 6f 72 72 20 2b 20 32 3b 0a 20 32 34 34 36 20 20 33 30 37 30 20 20 20 20 ┆:= cur corr + 2; 2446 3070 ┆
0x16f40…16f60 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 61 33 2e 20 20 20 20 3b 20 20 20 67 6f 74 6f 20 6e 65 ┆ jl. a3. ; goto ne┆
0x16f60…16f80 78 74 20 69 6e 73 74 72 20 33 3b 0a 20 32 34 34 37 20 20 33 30 37 32 20 20 65 2e 20 20 20 20 20 ┆xt instr 3; 2447 3072 e. ┆
0x16f80…16fa0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 65 6e 64 20 6d 61 72 6b 20 63 68 61 72 61 ┆ ; end mark chara┆
0x16fa0…16fc0 63 74 65 72 73 3b 0a 20 32 34 34 38 20 20 33 30 37 32 20 20 0c 0a 20 32 34 34 38 20 20 33 30 37 ┆cters; 2448 3072 2448 307┆
0x16fc0…16fe0 32 20 20 0a 20 32 34 34 38 20 20 33 30 37 32 20 20 3b 20 72 63 20 31 34 2e 30 39 2e 37 32 20 20 ┆2 2448 3072 ; rc 14.09.72 ┆
0x16fe0…17000 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 64 69 ┆ edi┆
0x17000…17020 74 6f 72 20 69 2c 20 74 61 70 65 20 33 2c 20 70 61 67 65 20 31 34 2e 0a 20 32 34 34 39 20 20 33 ┆tor i, tape 3, page 14. 2449 3┆
0x17020…17040 30 37 32 20 20 0a 20 32 34 34 39 20 20 33 30 37 32 20 20 61 33 34 3a 20 3b 20 6c 69 6e 65 20 6e ┆072 2449 3072 a34: ; line n┆
0x17040…17060 75 6d 62 65 72 20 70 72 69 6e 74 69 6e 67 3a 0a 20 32 34 35 30 20 20 33 30 37 32 20 20 20 20 20 ┆umber printing: 2450 3072 ┆
0x17060…17080 20 20 3b 20 20 20 63 6f 6d 6d 65 6e 74 3a 20 74 68 65 20 76 61 6c 75 65 20 6f 66 20 63 75 72 20 ┆ ; comment: the value of cur ┆
0x17080…170a0 6c 69 6e 65 20 69 73 20 70 72 69 6e 74 65 64 3b 0a 20 32 34 35 31 20 20 33 30 37 32 20 20 20 20 ┆line is printed; 2451 3072 ┆
0x170a0…170c0 20 20 20 64 73 2e 20 77 32 20 20 20 20 20 66 35 36 2e 20 20 20 3b 20 20 20 73 61 76 65 20 28 63 ┆ ds. w2 f56. ; save (c┆
0x170c0…170e0 75 72 20 73 6f 75 72 63 65 2c 20 63 75 72 20 6f 62 6a 29 3b 0a 20 32 34 35 32 20 20 33 30 37 34 ┆ur source, cur obj); 2452 3074┆
0x170e0…17100 20 20 20 20 20 20 20 72 73 2e 20 77 33 20 20 20 20 20 66 36 37 2e 20 20 20 3b 20 20 20 73 61 76 ┆ rs. w3 f67. ; sav┆
0x17100…17120 (41,) 65 20 28 63 75 72 20 63 6f 72 72 29 3b 0a 20 32 34 35 33 20 20 33 30 37 36 20 20 20 20 20 20 20 ┆e (cur corr); 2453 3076 ┆
0x17120…17140 72 6c 2e 20 77 30 20 20 20 20 20 66 34 34 2e 20 20 20 3b 0a 20 32 34 35 34 20 20 33 30 37 38 20 ┆rl. w0 f44. ; 2454 3078 ┆
0x17140…17160 20 20 20 20 20 20 6a 6c 2e 20 77 33 20 20 20 20 20 63 31 36 2e 20 20 20 3b 20 20 20 70 72 69 6e ┆ jl. w3 c16. ; prin┆
0x17160…17180 74 20 76 61 6c 75 65 20 28 63 75 72 20 6c 69 6e 65 29 3b 0a 20 32 34 35 35 20 20 33 30 38 30 20 ┆t value (cur line); 2455 3080 ┆
0x17180…171a0 20 20 20 20 20 20 20 20 20 20 35 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 0a 20 32 34 35 36 20 ┆ 5 ; 2456 ┆
0x171a0…171c0 20 33 30 38 32 20 20 20 20 20 20 20 61 6c 2e 20 77 32 20 20 20 20 20 67 35 34 2e 20 20 20 3b 20 ┆ 3082 al. w2 g54. ; ┆
0x171c0…171e0 0a 20 32 34 35 37 20 20 33 30 38 34 20 20 20 20 20 20 20 6a 6c 2e 20 77 33 20 20 20 20 20 63 34 ┆ 2457 3084 jl. w3 c4┆
0x171e0…17200 33 2e 20 20 20 3b 20 20 20 70 72 69 6e 74 20 74 65 78 74 20 28 3c 3a 6c 69 6e 65 2e 3a 3e 29 2c ┆3. ; print text (<:line.:>),┆
0x17200…17220 20 28 20 77 69 74 68 20 6e 6f 20 6e 65 77 20 6c 69 6e 65 20 63 68 61 72 29 3b 0a 20 32 34 35 38 ┆ ( with no new line char); 2458┆
0x17220…17240 20 20 33 30 38 36 20 20 20 20 20 20 20 61 6c 2e 20 77 32 20 20 20 20 20 67 35 33 2e 20 20 20 3b ┆ 3086 al. w2 g53. ;┆
0x17240…17260 20 0a 20 32 34 35 39 20 20 33 30 38 38 20 20 20 20 20 20 20 6a 6c 2e 20 77 33 20 20 20 20 20 63 ┆ 2459 3088 jl. w3 c┆
0x17260…17280 34 33 2e 20 20 20 3b 20 70 72 69 6e 74 20 74 65 78 74 20 28 3c 3a 6f 62 6a 65 63 74 3a 3a 3e 29 ┆43. ; print text (<:object::>)┆
0x17280…172a0 0a 20 32 34 36 30 20 20 33 30 39 30 20 20 20 20 20 20 20 72 6c 2e 20 77 32 20 20 20 20 20 66 32 ┆ 2460 3090 rl. w2 f2┆
0x172a0…172c0 37 2e 20 20 20 3b 20 67 65 74 20 61 64 64 72 65 73 73 20 6f 66 20 63 75 72 72 65 6e 74 20 6f 62 ┆7. ; get address of current ob┆
0x172c0…172e0 6a 2e 0a 20 32 34 36 31 20 20 33 30 39 32 20 20 20 20 20 20 20 61 6c 20 20 77 32 20 20 20 20 20 ┆j. 2461 3092 al w2 ┆
0x172e0…17300 78 32 2b 68 31 2b 32 3b 20 67 65 74 20 61 64 64 72 65 73 73 20 6f 66 20 64 6f 63 75 6d 65 6e 74 ┆x2+h1+2; get address of document┆
0x17300…17320 20 6e 61 6d 65 2e 0a 20 32 34 36 32 20 20 33 30 39 34 20 20 20 20 20 20 20 72 6c 20 20 77 30 20 ┆ name. 2462 3094 rl w0 ┆
0x17320…17340 20 78 32 20 20 20 20 20 20 20 20 3b 20 69 66 20 66 69 72 73 74 20 77 6f 72 64 20 6f 66 20 6e 61 ┆ x2 ; if first word of na┆
0x17340…17360 6d 65 20 74 6f 20 62 65 20 70 72 69 6e 74 65 64 0a 20 32 34 36 33 20 20 33 30 39 36 20 20 20 20 ┆me to be printed 2463 3096 ┆
0x17360…17380 20 20 20 73 6e 20 20 77 30 20 20 20 20 20 30 20 20 20 20 20 20 3b 20 20 69 73 20 7a 65 72 6f 20 ┆ sn w0 0 ; is zero ┆
0x17380…173a0 28 20 6e 6f 20 6e 61 6d 65 20 65 78 69 73 74 29 20 74 68 65 6e 0a 20 32 34 36 34 20 20 33 30 39 ┆( no name exist) then 2464 309┆
0x173a0…173c0 38 20 20 20 20 20 20 20 61 6c 2e 20 77 32 20 20 20 20 20 67 35 36 2e 20 20 20 3b 20 20 70 72 69 ┆8 al. w2 g56. ; pri┆
0x173c0…173e0 6e 74 20 74 65 78 74 20 28 3c 3a 3c 65 6d 70 74 79 3e 3a 3e 29 20 65 6c 73 65 0a 20 32 34 36 35 ┆nt text (<:<empty>:>) else 2465┆
0x173e0…17400 20 20 33 31 30 30 20 20 20 20 20 20 20 6a 6c 2e 20 77 33 20 20 20 20 20 63 34 33 2e 20 20 20 3b ┆ 3100 jl. w3 c43. ;┆
0x17400…17420 20 70 72 69 6e 74 20 74 65 78 74 20 6f 62 6a 20 6e 61 6d 65 2e 0a 20 32 34 36 36 20 20 33 31 30 ┆ print text obj name. 2466 310┆
0x17420…17440 32 20 20 20 20 20 20 20 61 6c 2e 20 77 32 20 20 20 20 20 67 35 32 2e 20 20 20 3b 0a 20 32 34 36 ┆2 al. w2 g52. ; 246┆
0x17440…17460 37 20 20 33 31 30 34 20 20 20 20 20 20 20 6a 6c 2e 20 77 33 20 20 20 20 20 63 34 33 2e 20 20 20 ┆7 3104 jl. w3 c43. ┆
0x17460…17480 3b 20 70 72 72 69 6e 74 20 74 65 78 74 20 28 3c 3a 73 6f 75 72 63 65 3a 20 3a 3e 29 3b 0a 20 32 ┆; prrint text (<:source: :>); 2┆
0x17480…174a0 34 36 38 20 20 33 31 30 36 20 20 20 20 20 20 20 72 6c 2e 20 77 32 20 20 20 20 20 66 32 38 2e 20 ┆468 3106 rl. w2 f28. ┆
0x174a0…174c0 20 20 3b 20 67 65 74 20 61 64 64 72 65 73 73 20 6f 66 20 63 75 72 72 65 6e 74 20 73 6f 75 72 63 ┆ ; get address of current sourc┆
0x174c0…174e0 65 20 64 65 73 63 72 69 70 74 6f 72 2e 0a 20 32 34 36 39 20 20 33 31 30 38 20 20 20 20 20 20 20 ┆e descriptor. 2469 3108 ┆
0x174e0…17500 61 6c 20 20 77 32 20 20 78 32 2b 68 31 2b 32 20 20 20 3b 20 67 65 74 20 61 64 64 72 65 73 73 20 ┆al w2 x2+h1+2 ; get address ┆
0x17500…17520 6f 66 20 63 75 72 72 65 6e 74 20 73 6f 75 72 63 65 20 6e 61 6d 65 3b 0a 20 32 34 37 30 20 20 33 ┆of current source name; 2470 3┆
0x17520…17540 31 31 30 20 20 20 20 20 20 20 72 6c 20 20 77 30 20 20 78 32 20 20 20 20 20 20 20 20 3b 20 69 66 ┆110 rl w0 x2 ; if┆
0x17540…17560 20 66 69 72 73 74 20 77 6f 72 64 20 6f 66 20 6e 61 6d 65 20 74 6f 20 62 65 20 70 72 69 6e 74 65 ┆ first word of name to be printe┆
0x17560…17580 64 20 0a 20 32 34 37 31 20 20 33 31 31 32 20 20 20 20 20 20 20 73 6e 20 20 77 30 20 20 20 20 20 ┆d 2471 3112 sn w0 ┆
0x17580…175a0 20 30 20 20 20 20 20 3b 20 69 73 20 7a 65 72 6f 20 74 68 65 6e 20 0a 20 32 34 37 32 20 20 33 31 ┆ 0 ; is zero then 2472 31┆
0x175a0…175c0 31 34 20 20 20 20 20 20 20 61 6c 2e 20 77 32 20 20 20 20 20 67 35 36 2e 20 20 20 3b 20 70 72 69 ┆14 al. w2 g56. ; pri┆
0x175c0…175e0 6e 74 20 74 65 78 74 20 28 3c 3a 3c 65 6d 70 74 79 3e 3a 3e 29 20 65 6c 73 65 0a 20 32 34 37 33 ┆nt text (<:<empty>:>) else 2473┆
0x175e0…17600 20 20 33 31 31 36 20 20 20 20 20 20 20 6a 6c 2e 20 77 33 20 20 20 20 20 63 34 33 2e 20 20 20 3b ┆ 3116 jl. w3 c43. ;┆
0x17600…17620 20 70 72 69 6e 74 20 74 65 78 74 20 28 20 63 75 72 72 65 6e 74 20 73 6f 75 72 63 65 20 6e 61 6d ┆ print text ( current source nam┆
0x17620…17640 65 29 3b 0a 20 32 34 37 34 20 20 33 31 31 38 20 20 20 20 20 20 20 61 6c 2e 20 77 32 20 20 20 20 ┆e); 2474 3118 al. w2 ┆
0x17640…17660 20 67 34 33 2e 20 20 20 3b 20 0a 20 32 34 37 35 20 20 33 31 32 30 20 20 20 20 20 20 20 6a 6c 2e ┆ g43. ; 2475 3120 jl.┆
0x17660…17680 20 77 33 20 20 20 20 20 63 31 37 2e 20 20 20 3b 20 70 72 69 6e 74 20 74 65 78 74 20 28 3c 3a 3c ┆ w3 c17. ; print text (<:<┆
0x17680…176a0 31 30 3e 3a 3e 29 3b 0a 20 32 34 37 36 20 20 33 31 32 32 20 20 20 20 20 20 20 72 6c 2e 20 77 33 ┆10>:>); 2476 3122 rl. w3┆
0x176a0…176c0 20 20 20 20 20 66 36 37 2e 20 20 20 3b 20 20 20 72 65 73 74 6f 72 65 20 28 63 75 72 20 63 6f 72 ┆ f67. ; restore (cur cor┆
0x176c0…176e0 72 29 3b 0a 20 32 34 37 37 20 20 33 31 32 34 20 20 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 ┆r); 2477 3124 jl. ┆
0x176e0…17700 20 61 31 2e 20 20 20 20 3b 20 20 20 67 6f 74 6f 20 6e 65 78 74 20 69 6e 73 74 72 20 31 3b 0a 20 ┆ a1. ; goto next instr 1; ┆
0x17700…17720 32 34 37 38 20 20 33 31 32 36 20 20 0a 20 32 34 37 38 20 20 33 31 32 36 20 20 0a 20 32 34 37 38 ┆2478 3126 2478 3126 2478┆
0x17720…17740 20 20 33 31 32 36 20 20 61 33 35 3a 20 3b 20 63 6f 6d 6d 61 6e 64 3a 0a 20 32 34 37 39 20 20 33 ┆ 3126 a35: ; command: 2479 3┆
0x17740…17760 31 32 36 20 20 20 20 20 20 20 3b 20 20 20 63 6f 6d 6d 65 6e 74 3a 20 63 6f 72 72 20 6e 6f 20 69 ┆126 ; comment: corr no i┆
0x17760…17780 73 20 69 6e 63 72 65 61 73 65 64 20 62 79 20 6f 6e 65 3b 0a 20 32 34 38 30 20 20 33 31 32 36 20 ┆s increased by one; 2480 3126 ┆
0x17780…177a0 20 0a 20 32 34 38 30 20 20 33 31 32 36 20 20 20 20 20 20 20 61 6c 20 20 77 30 20 20 20 20 20 31 ┆ 2480 3126 al w0 1┆
0x177a0…177c0 20 20 20 20 20 20 3b 0a 20 32 34 38 31 20 20 33 31 32 38 20 20 20 20 20 20 20 77 61 2e 20 77 30 ┆ ; 2481 3128 wa. w0┆
0x177c0…177e0 20 20 20 20 20 66 36 39 2e 20 20 20 3b 20 20 20 63 6f 72 72 20 6e 6f 3a 3d 20 63 6f 72 72 20 6e ┆ f69. ; corr no:= corr n┆
0x177e0…17800 6f 20 2b 20 31 3b 0a 20 32 34 38 32 20 20 33 31 33 30 20 20 20 20 20 20 20 72 73 2e 20 77 30 20 ┆o + 1; 2482 3130 rs. w0 ┆
0x17800…17820 20 20 20 20 66 36 39 2e 20 20 20 3b 0a 20 32 34 38 33 20 20 33 31 33 32 20 20 20 20 20 20 20 6a ┆ f69. ; 2483 3132 j┆
0x17820…17840 6c 2e 20 20 20 20 20 20 20 20 61 32 2e 20 20 20 20 3b 20 20 20 67 6f 74 6f 20 6e 65 78 74 20 69 ┆l. a2. ; goto next i┆
0x17840…17860 6e 73 74 72 20 32 3b 0a 20 32 34 38 34 20 20 33 31 33 34 20 20 0a 20 32 34 38 34 20 20 33 31 33 ┆nstr 2; 2484 3134 2484 313┆
0x17860…17880 34 20 20 63 32 32 3a 20 3b 20 74 65 72 6d 69 6e 61 74 65 20 65 64 69 74 6f 72 3a 0a 20 32 34 38 ┆4 c22: ; terminate editor: 248┆
0x17880…178a0 35 20 20 33 31 33 34 20 20 61 33 36 3a 20 3b 20 66 69 6e 69 73 20 65 64 3a 0a 20 32 34 38 36 20 ┆5 3134 a36: ; finis ed: 2486 ┆
0x178a0…178c0 20 33 31 33 34 20 20 20 20 20 20 20 3b 20 20 20 63 6f 6d 6d 65 6e 74 3a 20 74 68 65 20 6f 62 6a ┆ 3134 ; comment: the obj┆
0x178c0…178e0 65 63 74 20 64 6f 63 75 6d 65 6e 74 20 69 73 20 63 6c 6f 73 65 64 2c 20 61 6e 64 20 65 78 69 74 ┆ect document is closed, and exit┆
0x178e0…17900 0a 20 32 34 38 37 20 20 33 31 33 34 20 20 20 20 20 20 20 3b 20 20 20 69 73 20 6d 61 64 65 20 66 ┆ 2487 3134 ; is made f┆
0x17900…17920 72 6f 6d 20 74 68 65 20 65 64 69 74 6f 72 3b 0a 20 32 34 38 38 20 20 33 31 33 34 20 20 0a 20 32 ┆rom the editor; 2488 3134 2┆
0x17920…17940 34 38 38 20 20 33 31 33 34 20 20 62 2e 20 20 20 69 33 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆488 3134 b. i3 ┆
0x17940…17960 20 20 3b 20 62 65 67 69 6e 0a 20 32 34 38 39 20 20 33 31 33 34 20 20 77 2e 20 20 20 61 6c 20 20 ┆ ; begin 2489 3134 w. al ┆
0x17960…17980 77 30 20 20 20 20 20 30 20 20 20 20 20 20 3b 20 20 20 73 75 63 63 65 73 73 3a 3d 20 6f 6b 3b 0a ┆w0 0 ; success:= ok; ┆
0x17980…179a0 20 32 34 39 30 20 20 33 31 33 36 20 20 0a 20 32 34 39 30 20 20 33 31 33 36 20 20 63 31 38 3a 20 ┆ 2490 3136 2490 3136 c18: ┆
0x179a0…179c0 3b 20 65 72 72 6f 72 20 74 65 72 6d 69 6e 61 74 65 20 65 64 69 74 6f 72 3a 0a 20 32 34 39 31 20 ┆; error terminate editor: 2491 ┆
0x179c0…179e0 20 33 31 33 36 20 20 20 20 20 20 20 3b 20 20 20 63 6f 6d 6d 65 6e 74 3a 20 77 30 20 3d 20 6e 6f ┆ 3136 ; comment: w0 = no┆
0x179e0…17a00 20 73 75 63 63 65 73 73 3b 0a 20 32 34 39 32 20 20 33 31 33 36 20 20 0a 20 32 34 39 32 20 20 33 ┆ success; 2492 3136 2492 3┆