|
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 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 Data for rydstruct
0x07800…07e00 Data for allstatel
0x07e00…08100 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 Data for ryglobal
0x0d500…0e100 Data for qdmrec
0x0e100…0e400 Data for statevar
0x0e400…0e700 Data for statevar2
0x0e700…0fc00 Data for fracparpr
0x0fc00…10200 Data for readctxt
0x10200…10500 Data for readtexttxt
0x10500…12c00 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 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 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…16a00 […elided…]
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 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┆