|
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 - downloadIndex: 0 G R T b c f m s t
Length: 606208 (0x94000)
Types: flxcat
Notes: GA21-9182-File(01FLXSAVEFIL)
Names: »01FLXSAVEFIL«
└─⟦b9333063a⟧ Bits:30009129 PD8100/1/6.0 - OPERATING SYSTEM MISP/TS - 1 OF 2
└─⟦this⟧
| Start | End | Artifact | Summary |
|---|---|---|---|
| 0x00000000 | 0x00094000 | ⟦06e154760⟧ | »s18100:1.ttrace main «, »ttrace main «, TextFile, flxfile |
| 0x00000000 | 0x00094000 | ⟦1f1f4a04b⟧ | »s18100:1.ttransfer main «, »ttransfer main «, TextFile, flxfile |
| 0x00000000 | 0x00094000 | ⟦27e5be744⟧ | »mipsid main «, »s18100:1.mipsid main «, TextFile, flxfile |
| 0x00000000 | 0x00094000 | ⟦2866d69d5⟧ | »s18100:1.tsos main «, »tsos main «, TextFile, flxfile |
| 0x00000000 | 0x00094000 | ⟦2b6b8df9c⟧ | »s18100:1.tfileutil main «, »tfileutil main «, TextFile, flxfile |
| 0x00000000 | 0x00094000 | ⟦6b061cd89⟧ | »s18100:1.ttem main «, »ttem main «, TextFile, flxfile |
| 0x00000000 | 0x00094000 | ⟦af31bb037⟧ | »bcheckmt main «, »s18100:1.bcheckmt main «, Rc489k_binout, Rc489k_data_set, flxfile |
| 0x00000000 | 0x00094000 | ⟦b36186a78⟧ | »s18100:1.ttemtest main «, »ttemtest main «, TextFile, flxfile |
| 0x00000000 | 0x00094000 | ⟦bb49cf107⟧ | »s18100:1.trcmol main «, »trcmol main «, TextFile, flxfile |
| 0x00000000 | 0x00094000 | ⟦c9f31ec1d⟧ | »mipshelp main «, »s18100:1.mipshelp main «, TextFile, flxfile |
| 0x00000000 | 0x00094000 | ⟦cb5e2b98a⟧ | »s18100:1.tprimo main «, »tprimo main «, TextFile, flxfile |
0x00000…0003f (0,) FlxHdr {w000=(0x1,0x1), magic=»flxcat«, w011=»mipsrel60 «, nent=0x000012, nrec=0x001280, tstamp=1985-09-30T14:37, w024=0x0f1fff, w026=0x000054, w028=0x000156, flxset=»s18100«, flxno=0x000001, firstvol=» «, nextvol=»s28100«}
0x0003f…00040 31 ┆1┆
0x00040…00060 3a 3d 61 64 64 72 65 73 73 28 6d 69 63 75 6e 69 74 29 3b 0a 20 20 20 20 20 20 20 20 20 20 6d 6f ┆:=address(micunit); mo┆
0x00060…0007e 6e 69 74 6f 72 28 31 36 29 3b 20 20 20 21 20 73 65 6e 64 20 74 69 6d 65 72 20 6d 65 73 73 ┆nitor(16); ! send timer mess┆
0x0007e…000fc FlxDirSec {
0x0007e…000fc w00 = (0x2,0x2) // 0x7e @0x0
0x0007e…000fc w01 = FlxDirEnt {name=»mipsid main «, w02=0x000000, w03=0x000003, range=[0x000d…0x0013], w6=0x000001, w07=»disc «, w10=1985-09-30T14:31, w11=0x000000, w12=0x000000, w13=0x000000, w14=0x000000} // 0x84 @0x6
0x0007e…000fc w02 = FlxDirEnt {name=»mipshelp main «, w02=0x000000, w03=0x000003, range=[0x0014…0x0087], w6=0x000012, w07=»disc «, w10=1985-09-30T14:31, w11=0x000000, w12=0x000000, w13=0x000000, w14=0x000000} // 0xc0 @0x42
0x0007e…000fc }
0x000fc…0017a FlxDirSec {
0x000fc…0017a w00 = (0x2,0x3) // 0xfc @0x0
0x000fc…0017a w01 = FlxDirEnt {name=»bcheckmt main «, w02=0x000000, w03=0x000003, range=[0x0088…0x0094], w6=0x000002, w07=»disc2 «, w10=1983-02-24T10:40, w11=0x000000, w12=0x000000, w13=0x000000, w14=0x000000} // 0x102 @0x6
0x000fc…0017a w02 = FlxDirEnt {name=»trcmol main «, w02=0x000000, w03=0x000003, range=[0x0095…0x0508], w6=0x0000b2, w07=»disc «, w10=1985-09-30T14:34, w11=0x000000, w12=0x000000, w13=0x000000, w14=0x000000} // 0x13e @0x42
0x000fc…0017a }
0x0017a…001f8 FlxDirSec {
0x0017a…001f8 w00 = (0x2,0x4) // 0x17a @0x0
0x0017a…001f8 w01 = FlxDirEnt {name=»ttrace main «, w02=0x000000, w03=0x000003, range=[0x0509…0x0535], w6=0x000007, w07=»disc2 «, w10=1983-02-24T10:40, w11=0x000000, w12=0x000000, w13=0x000000, w14=0x000000} // 0x180 @0x6
0x0017a…001f8 w02 = FlxDirEnt {name=»ttem main «, w02=0x000000, w03=0x000003, range=[0x0536…0x079c], w6=0x000060, w07=»disc «, w10=1985-09-30T14:34, w11=0x000000, w12=0x000000, w13=0x000000, w14=0x000000} // 0x1bc @0x42
0x0017a…001f8 }
0x001f8…00200 00 00 00 00 00 00 00 00 ┆ ┆
0x00200…0027e (1,) FlxDirSec {
0x00200…0027e w00 = (0x2,0x5) // 0x200 @0x0
0x00200…0027e w01 = FlxDirEnt {name=»ttemtest main «, w02=0x000000, w03=0x000003, range=[0x079d…0x0869], w6=0x000020, w07=»disc «, w10=1985-09-30T14:35, w11=0x000000, w12=0x000000, w13=0x000000, w14=0x000000} // 0x206 @0x6
0x00200…0027e w02 = FlxDirEnt {name=»tprimo main «, w02=0x000000, w03=0x000003, range=[0x086a…0x1009], w6=0x000131, w07=»disc «, w10=1985-09-30T14:33, w11=0x000000, w12=0x000000, w13=0x000000, w14=0x000000} // 0x242 @0x42
0x00200…0027e }
0x0027e…002fc FlxDirSec {
0x0027e…002fc w00 = (0x2,0x6) // 0x27e @0x0
0x0027e…002fc w01 = FlxDirEnt {name=»ttransfer main «, w02=0x000000, w03=0x000003, range=[0x100a…0x1056], w6=0x00000c, w07=»disc2 «, w10=1983-02-24T10:42, w11=0x000000, w12=0x000000, w13=0x000000, w14=0x000000} // 0x284 @0x6
0x0027e…002fc w02 = FlxDirEnt {name=»tfileutil main «, w02=0x000000, w03=0x000003, range=[0x1057…0x11c3], w6=0x000039, w07=»disc2 «, w10=1983-02-24T10:42, w11=0x000000, w12=0x000000, w13=0x000000, w14=0x000000} // 0x2c0 @0x42
0x0027e…002fc }
0x002fc…0037a FlxDirSec {
0x002fc…0037a w00 = (0x2,0x7) // 0x2fc @0x0
0x002fc…0037a w01 = FlxDirEnt {name=»tsos main «, w02=0x000000, w03=0x000003, range=[0x11c4…-0x1280], w6=0x0000ae, w07=»disc «, w10=1985-09-30T14:33, w11=0x000000, w12=0x000000, w13=0x000000, w14=0x000000} // 0x302 @0x6
0x002fc…0037a w02 = FlxDirEnt {name=»tcleartemp main «, w02=0x000000, w03=0x000003, range=[0x0000…0x0000], w6=0x000006, w07=»disc «, w10=1985-09-30T14:34, w11=0x000000, w12=0x000000, w13=0x000000, w14=0x000000} // 0x33e @0x42
0x002fc…0037a }
0x0037a…003f8 FlxDirSec {
0x0037a…003f8 w00 = (0x2,0x8) // 0x37a @0x0
0x0037a…003f8 w01 = FlxDirEnt {name=»tupsoscat main «, w02=0x000000, w03=0x000003, range=[0x0000…0x0000], w6=0x00005c, w07=»disc2 «, w10=1984-10-03T15:51, w11=0x000000, w12=0x000000, w13=0x000000, w14=0x000000} // 0x380 @0x6
0x0037a…003f8 w02 = FlxDirEnt {name=»tprologue main «, w02=0x000000, w03=0x000003, range=[0x0000…0x0000], w6=0x00000b, w07=»disc2 «, w10=1983-02-24T10:43, w11=0x000000, w12=0x000000, w13=0x000000, w14=0x000000} // 0x3bc @0x42
0x0037a…003f8 }
0x003f8…00400 00 00 00 00 00 00 00 00 ┆ ┆
0x00400…0047e (2,) FlxDirSec {
0x00400…0047e w00 = (0x2,0x9) // 0x400 @0x0
0x00400…0047e w01 = FlxDirEnt {name=»tsoscat main «, w02=0x000000, w03=0x000003, range=[0x0000…0x0000], w6=0x000002, w07=»disc2 «, w10=1983-02-24T10:43, w11=0x000000, w12=0x000000, w13=0x000000, w14=0x000000} // 0x406 @0x6
0x00400…0047e w02 = FlxDirEnt {name=»tsostest main «, w02=0x000000, w03=0x000003, range=[0x0000…0x0000], w6=0x000004, w07=»disc2 «, w10=1983-02-24T10:43, w11=0x000000, w12=0x000000, w13=0x000000, w14=0x000000} // 0x442 @0x42
0x00400…0047e }
0x0047e…004fc FlxDirSec {
0x0047e…004fc w00 = (0x2,0xa) // 0x47e @0x0
0x0047e…004fc w01 = FlxDirEnt {name=»tdisplay main «, w02=0x000000, w03=0x000003, range=[0x0000…0x0000], w6=0x000004, w07=»disc2 «, w10=1983-02-24T10:43, w11=0x000000, w12=0x000000, w13=0x000000, w14=0x000000} // 0x484 @0x6
0x0047e…004fc w02 = FlxDirEnt {name=»tnews main «, w02=0x000000, w03=0x000003, range=[0x0000…0x0000], w6=0x000002, w07=»disc2 «, w10=1983-02-24T10:43, w11=0x000000, w12=0x000000, w13=0x000000, w14=0x000000} // 0x4c0 @0x42
0x0047e…004fc }
0x004fc…00502 (0x3,0xb)
0x00502…00520 62 63 68 65 63 6b 6d 74 00 00 00 00 6d 61 69 6e 00 00 00 00 00 00 00 03 00 00 88 00 00 94 ┆bcheckmt main ┆
0x00520…00540 00 00 02 64 69 73 63 32 00 00 00 00 00 00 00 8b 24 74 00 00 00 00 00 00 00 00 00 00 00 00 74 72 ┆ disc2 $t tr┆
0x00540…00560 63 6d 6f 6c 00 00 00 00 00 00 6d 61 69 6e 00 00 00 00 00 00 00 03 00 00 95 00 05 08 00 00 b2 64 ┆cmol main d┆
0x00560…0057a 69 73 63 00 00 00 00 00 00 00 00 a3 02 80 00 00 00 00 00 00 00 00 00 00 00 00 ┆isc ┆
0x0057a…00580 (0x3,0xc)
0x00580…005a0 74 74 72 61 63 65 00 00 00 00 00 00 6d 61 69 6e 00 00 00 00 00 00 00 03 00 05 09 00 05 35 00 00 ┆ttrace main 5 ┆
0x005a0…005c0 07 64 69 73 63 32 00 00 00 00 00 00 00 8b 24 74 00 00 00 00 00 00 00 00 00 00 00 00 74 74 65 6d ┆ disc2 $t ttem┆
0x005c0…005e0 00 00 00 00 00 00 00 00 6d 61 69 6e 00 00 00 00 00 00 00 03 00 05 36 00 07 9c 00 00 60 64 69 73 ┆ main 6 `dis┆
0x005e0…00600 63 00 00 00 00 00 00 00 00 a3 02 80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆c ┆
0x00600…00606 (3,) (0x68,0xd)
0x00606…00620 3b 20 6d 69 70 73 2f 74 73 20 72 65 6c 65 61 73 65 20 36 2e 30 0a 3b 20 0a 3b ┆; mips/ts release 6.0 ; ;┆
0x00620…00640 20 66 69 6c 65 20 63 6f 6e 74 65 6e 74 73 20 6f 66 20 6d 61 67 74 61 70 65 20 6d 74 73 77 38 31 ┆ file contents of magtape mtsw81┆
0x00640…00660 30 30 0a 3b 0a 3b 20 63 6f 6d 6d 6f 6e 20 66 69 6c 65 73 3a 0a 3b 0a 3b 20 66 69 6c 65 20 20 30 ┆00 ; ; common files: ; ; file 0┆
0x00660…0067e 3a 20 6c 61 62 65 6c 20 20 20 6d 74 73 77 38 31 30 30 0a 3b 20 66 69 6c 65 20 20 31 3a 20 ┆: label mtsw8100 ; file 1: ┆
0x0067e…00684 (0x68,0xe)
0x00684…006a0 74 65 78 74 20 20 20 20 69 64 65 6e 74 69 66 69 63 61 74 69 6f 6e 0a 3b 20 66 69 6c ┆text identification ; fil┆
0x006a0…006c0 65 20 20 32 3a 20 74 65 78 74 20 20 20 20 6d 69 70 73 68 65 6c 70 0a 3b 20 66 69 6c 65 20 20 33 ┆e 2: text mipshelp ; file 3┆
0x006c0…006e0 3a 20 62 69 6e 61 72 79 20 20 62 63 68 65 63 6b 6d 74 20 28 62 63 68 65 63 6b 6d 74 3d 62 69 6e ┆: binary bcheckmt (bcheckmt=bin┆
0x006e0…006fc 6f 75 74 20 63 68 65 63 6b 6d 74 29 0a 3b 20 66 69 6c 65 20 20 34 3a 20 74 65 78 74 ┆out checkmt) ; file 4: text┆
0x006fc…00702 (0x68,0xf)
0x00702…00720 20 20 20 20 74 72 63 6d 6f 6c 0a 3b 20 66 69 6c 65 20 20 35 3a 20 74 65 78 74 20 20 20 20 ┆ trcmol ; file 5: text ┆
0x00720…00740 74 74 72 61 63 65 0a 3b 0a 3b 20 74 65 6d 20 74 65 78 74 73 3a 0a 3b 0a 3b 20 66 69 6c 65 20 20 ┆ttrace ; ; tem texts: ; ; file ┆
0x00740…00760 36 3a 20 74 65 78 74 20 20 20 20 74 74 65 6d 0a 3b 20 66 69 6c 65 20 20 37 3a 20 74 65 78 74 20 ┆6: text ttem ; file 7: text ┆
0x00760…0077a 20 20 20 74 74 65 6d 74 65 73 74 0a 3b 0a 3b 20 70 72 69 6d 6f 20 74 65 78 74 ┆ ttemtest ; ; primo text┆
0x0077a…00780 (0x68,0x10)
0x00780…007a0 73 3a 0a 3b 0a 3b 20 66 69 6c 65 20 20 38 3a 20 74 65 78 74 20 20 20 20 74 70 72 69 6d 6f 0a 3b ┆s: ; ; file 8: text tprimo ;┆
0x007a0…007c0 20 66 69 6c 65 20 20 39 3a 20 74 65 78 74 20 20 20 20 74 74 72 61 6e 73 66 65 72 0a 3b 20 66 69 ┆ file 9: text ttransfer ; fi┆
0x007c0…007e0 6c 65 20 31 30 3a 20 74 65 78 74 20 20 20 20 74 66 69 6c 65 75 74 69 6c 0a 3b 0a 3b 20 73 6f 73 ┆le 10: text tfileutil ; ; sos┆
0x007e0…00800 20 74 65 78 74 73 3a 0a 3b 0a 3b 20 66 69 6c 65 20 31 31 3a 20 74 65 78 00 00 00 00 00 00 00 00 ┆ texts: ; ; file 11: tex ┆
0x00800…00806 (4,) (0x68,0x11)
0x00806…00820 74 20 20 20 20 74 73 6f 73 0a 3b 20 66 69 6c 65 20 31 32 3a 20 74 65 78 74 20 ┆t tsos ; file 12: text ┆
0x00820…00840 20 20 20 74 63 6c 65 61 72 74 65 6d 70 0a 3b 20 66 69 6c 65 20 31 33 3a 20 74 65 78 74 20 20 20 ┆ tcleartemp ; file 13: text ┆
0x00840…00860 20 74 75 70 73 6f 73 63 61 74 0a 3b 20 66 69 6c 65 20 31 34 3a 20 74 65 78 74 20 20 20 20 74 70 ┆ tupsoscat ; file 14: text tp┆
0x00860…0087e 72 6f 6c 6f 67 75 65 0a 3b 20 66 69 6c 65 20 31 35 3a 20 74 65 78 74 20 20 20 20 74 73 6f ┆rologue ; file 15: text tso┆
0x0087e…00884 (0x68,0x12)
0x00884…008a0 73 63 61 74 0a 3b 20 66 69 6c 65 20 31 36 3a 20 74 65 78 74 20 20 20 20 74 73 6f 73 ┆scat ; file 16: text tsos┆
0x008a0…008c0 74 65 73 74 0a 3b 20 66 69 6c 65 20 31 37 3a 20 74 65 78 74 20 20 20 20 74 64 69 73 70 6c 61 79 ┆test ; file 17: text tdisplay┆
0x008c0…008e0 0a 3b 20 66 69 6c 65 20 31 38 3a 20 74 65 78 74 20 20 20 20 74 6e 65 77 73 0a 19 00 00 00 00 40 ┆ ; file 18: text tnews @┆
0x008e0…008fc 0a 63 61 74 61 6c 6f 67 00 00 00 00 00 00 40 0a 62 61 73 65 00 00 00 00 00 00 00 00 ┆ catalog @ base ┆
0x008fc…00902 (0x68,0x13)
0x00902…00920 00 40 0a 6e 6f 74 00 00 00 00 00 00 00 00 00 00 40 0a 65 71 75 61 6c 00 00 00 00 00 00 00 ┆ @ not @ equal ┆
0x00920…00940 00 40 0a 74 6f 00 00 00 00 00 00 00 00 00 00 00 20 02 00 00 00 00 00 00 00 00 00 00 00 00 74 72 ┆ @ to tr┆
0x00940…00960 63 6d 6f 6c 00 00 00 00 00 00 6d 61 69 6e 00 00 00 00 00 00 00 03 00 00 00 00 00 00 00 00 b2 64 ┆cmol main d┆
0x00960…0097a 69 73 63 00 00 00 00 00 00 00 00 a3 02 80 00 00 00 00 00 00 00 00 00 00 00 00 ┆isc ┆
0x0097a…00980 (0xcc,0x14)
0x00980…009a0 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 2a 20 20 6d 69 70 73 68 65 6c 70 20 20 2a 2a 2a ┆; *** mipshelp ***┆
0x009a0…009c0 0a 3b 0a 3b 0a 0a 28 0a 0a 6d 65 73 73 61 67 65 20 6d 69 70 73 20 74 73 20 72 65 6c 65 61 73 65 ┆ ; ; ( message mips ts release┆
0x009c0…009e0 20 36 2e 30 0a 0a 74 65 6d 68 65 6c 70 3d 63 6f 70 79 20 6d 65 73 73 61 67 65 2e 6e 6f 20 36 33 ┆ 6.0 temhelp=copy message.no 63┆
0x009e0…00a00 2e 31 0a 0a 70 72 69 6d 6f 68 65 6c 70 3d 63 6f 70 79 20 6d 65 73 73 61 00 00 00 00 00 00 00 00 ┆.1 primohelp=copy messa ┆
0x00a00…00a06 (5,) (0xcc,0x15)
0x00a06…00a20 67 65 2e 6e 6f 20 36 33 2e 31 0a 0a 73 6f 73 68 65 6c 70 3d 63 6f 70 79 20 6d ┆ge.no 63.1 soshelp=copy m┆
0x00a20…00a40 65 73 73 61 67 65 2e 6e 6f 20 36 33 2e 31 0a 0a 6d 69 70 73 74 72 69 6d 3d 63 6f 70 79 20 6d 65 ┆essage.no 63.1 mipstrim=copy me┆
0x00a40…00a60 73 73 61 67 65 2e 6e 6f 20 36 33 2e 31 0a 0a 6d 69 70 73 6c 69 73 74 3d 63 6f 70 79 20 6d 65 73 ┆ssage.no 63.1 mipslist=copy mes┆
0x00a60…00a7e 73 61 67 65 2e 6e 6f 20 36 33 2e 31 0a 0a 6d 69 70 73 6c 6f 61 64 3d 63 6f 70 79 20 6d 65 ┆sage.no 63.1 mipsload=copy me┆
0x00a7e…00a84 (0xcc,0x16)
0x00a84…00aa0 73 73 61 67 65 2e 6e 6f 20 36 33 2e 31 0a 0a 6d 69 70 73 73 61 76 65 3d 63 6f 70 79 ┆ssage.no 63.1 mipssave=copy┆
0x00aa0…00ac0 20 6d 65 73 73 61 67 65 2e 6e 6f 20 36 33 2e 31 0a 0a 62 61 63 6b 66 69 6c 65 20 6d 69 70 73 68 ┆ message.no 63.1 backfile mipsh┆
0x00ac0…00ae0 65 6c 70 0a 69 66 20 6f 6b 2e 79 65 73 0a 28 0a 0a 66 3d 65 6e 74 72 79 20 6d 69 70 73 68 65 6c ┆elp if ok.yes ( f=entry mipshel┆
0x00ae0…00afc 70 20 6d 69 70 73 68 65 6c 70 20 64 2e 30 0a 0a 6d 69 70 73 69 64 20 20 20 20 3d 20 ┆p mipshelp d.0 mipsid = ┆
0x00afc…00b02 (0xcc,0x17)
0x00b02…00b20 65 6e 74 72 79 20 66 20 66 20 66 20 20 31 0a 6d 69 70 73 68 65 6c 70 20 20 3d 20 65 6e 74 ┆entry f f f 1 mipshelp = ent┆
0x00b20…00b40 72 79 20 66 20 66 20 66 20 20 32 0a 62 63 68 65 63 6b 6d 74 20 20 3d 20 65 6e 74 72 79 20 66 20 ┆ry f f f 2 bcheckmt = entry f ┆
0x00b40…00b60 66 20 66 20 20 33 0a 74 72 63 6d 6f 6c 20 20 20 20 3d 20 65 6e 74 72 79 20 66 20 66 20 66 20 20 ┆f f 3 trcmol = entry f f f ┆
0x00b60…00b7a 34 0a 74 74 72 61 63 65 20 20 20 20 3d 20 65 6e 74 72 79 20 66 20 66 20 66 20 ┆4 ttrace = entry f f f ┆
0x00b7a…00b80 (0xcc,0x18)
0x00b80…00ba0 20 35 0a 0a 74 74 65 6d 20 20 20 20 20 20 3d 20 65 6e 74 72 79 20 66 20 66 20 66 20 20 36 0a 74 ┆ 5 ttem = entry f f f 6 t┆
0x00ba0…00bc0 74 65 6d 74 65 73 74 20 20 3d 20 65 6e 74 72 79 20 66 20 66 20 66 20 20 37 0a 0a 74 70 72 69 6d ┆temtest = entry f f f 7 tprim┆
0x00bc0…00be0 6f 20 20 20 20 3d 20 65 6e 74 72 79 20 66 20 66 20 66 20 20 38 0a 74 74 72 61 6e 73 66 65 72 20 ┆o = entry f f f 8 ttransfer ┆
0x00be0…00c00 3d 20 65 6e 74 72 79 20 66 20 66 20 66 20 20 39 0a 74 66 69 6c 65 75 74 00 00 00 00 00 00 00 00 ┆= entry f f f 9 tfileut ┆
0x00c00…00c06 (6,) (0xcc,0x19)
0x00c06…00c20 69 6c 20 3d 20 65 6e 74 72 79 20 66 20 66 20 66 20 31 30 0a 0a 74 73 6f 73 20 ┆il = entry f f f 10 tsos ┆
0x00c20…00c40 20 20 20 20 20 3d 20 65 6e 74 72 79 20 66 20 66 20 66 20 31 31 0a 74 63 6c 65 61 72 74 65 6d 70 ┆ = entry f f f 11 tcleartemp┆
0x00c40…00c60 3d 20 65 6e 74 72 79 20 66 20 66 20 66 20 31 32 0a 74 75 70 73 6f 73 63 61 74 20 3d 20 65 6e 74 ┆= entry f f f 12 tupsoscat = ent┆
0x00c60…00c7e 72 79 20 66 20 66 20 66 20 31 33 0a 74 70 72 6f 6c 6f 67 75 65 20 3d 20 65 6e 74 72 79 20 ┆ry f f f 13 tprologue = entry ┆
0x00c7e…00c84 (0xcc,0x1a)
0x00c84…00ca0 66 20 66 20 66 20 31 34 0a 74 73 6f 73 63 61 74 20 20 20 3d 20 65 6e 74 72 79 20 66 ┆f f f 14 tsoscat = entry f┆
0x00ca0…00cc0 20 66 20 66 20 31 35 0a 74 73 6f 73 74 65 73 74 20 20 3d 20 65 6e 74 72 79 20 66 20 66 20 66 20 ┆ f f 15 tsostest = entry f f f ┆
0x00cc0…00ce0 31 36 0a 74 64 69 73 70 6c 61 79 20 20 3d 20 65 6e 74 72 79 20 66 20 66 20 66 20 31 37 0a 74 6e ┆16 tdisplay = entry f f f 17 tn┆
0x00ce0…00cfc 65 77 73 20 20 20 20 20 3d 20 65 6e 74 72 79 20 66 20 66 20 66 20 31 38 0a 0a 29 0a ┆ews = entry f f f 18 ) ┆
0x00cfc…00d02 (0xcc,0x1b)
0x00d02…00d20 0a 65 6e 64 0a 0a 29 0a 0c 0a 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 2a 20 20 74 ┆ end ) ; *** t┆
0x00d20…00d40 65 6d 68 65 6c 70 20 20 2a 2a 2a 0a 3b 0a 0a 28 0a 0a 74 65 6d 74 72 69 6d 3d 63 6f 70 79 20 6d ┆emhelp *** ; ( temtrim=copy m┆
0x00d40…00d60 65 73 73 61 67 65 2e 6e 6f 20 36 34 2e 31 0a 0a 74 65 6d 6c 69 73 74 3d 63 6f 70 79 20 6d 65 73 ┆essage.no 64.1 temlist=copy mes┆
0x00d60…00d7a 73 61 67 65 2e 6e 6f 20 36 34 2e 31 0a 0a 65 6e 64 0a 0a 29 0a 0c 0a 3b 20 20 ┆sage.no 64.1 end ) ; ┆
0x00d7a…00d80 (0xcc,0x1c)
0x00d80…00da0 20 20 20 20 20 20 20 20 20 20 20 2a 2a 2a 20 20 74 65 6d 74 72 69 6d 20 20 2a 2a 2a 0a 3b 0a 3b ┆ *** temtrim *** ; ;┆
0x00da0…00dc0 0a 3b 20 63 6f 6e 74 61 69 6e 73 20 6f 70 74 69 6f 6e 73 20 66 6f 72 20 74 72 69 6d 6d 69 6e 67 ┆ ; contains options for trimming┆
0x00dc0…00de0 20 74 65 6d 20 73 79 73 74 65 6d 0a 3b 20 61 6e 64 20 63 6f 6d 6d 61 6e 64 73 20 66 6f 72 20 61 ┆ tem system ; and commands for a┆
0x00de0…00e00 75 74 6f 6d 61 74 69 63 20 73 79 73 74 65 6d 20 67 65 6e 65 72 61 74 69 00 00 00 00 00 00 00 00 ┆utomatic system generati ┆
0x00e00…00e06 (7,) (0xcc,0x1d)
0x00e06…00e20 6f 6e 20 66 72 6f 6d 20 74 68 65 20 74 65 6d 20 73 79 73 74 65 6d 20 74 61 70 ┆on from the tem system tap┆
0x00e20…00e40 65 0a 0a 0a 74 65 6d 64 75 6d 6d 79 6f 75 74 3d 73 65 74 20 31 0a 6f 20 74 65 6d 64 75 6d 6d 79 ┆e temdummyout=set 1 o temdummy┆
0x00e40…00e60 6f 75 74 0a 6d 6f 64 65 20 31 2e 6e 6f 0a 6c 6f 6f 6b 75 70 20 74 65 6d 64 6f 63 0a 69 66 20 6f ┆out mode 1.no lookup temdoc if o┆
0x00e60…00e7e 6b 2e 6e 6f 0a 6d 6f 64 65 20 31 2e 79 65 73 0a 6f 20 63 0a 69 66 20 31 2e 79 65 73 0a 74 ┆k.no mode 1.yes o c if 1.yes t┆
0x00e7e…00e84 (0xcc,0x1e)
0x00e84…00ea0 65 6d 64 6f 63 3d 73 65 74 20 31 0a 0a 69 66 20 32 2e 6e 6f 0a 28 74 72 61 63 65 3d ┆emdoc=set 1 if 2.no (trace=┆
0x00ea0…00ec0 65 6e 74 72 79 20 34 30 20 74 65 6d 64 6f 63 0a 74 72 61 63 65 3d 61 6c 67 6f 6c 20 74 74 72 61 ┆entry 40 temdoc trace=algol ttra┆
0x00ec0…00ee0 63 65 29 0a 0a 78 74 65 6d 20 3d 20 65 64 69 74 20 74 74 65 6d 20 20 20 20 20 20 20 20 20 20 20 ┆ce) xtem = edit ttem ┆
0x00ee0…00efc 20 3b 20 65 64 69 74 20 6f 70 74 69 6f 6e 73 20 69 6e 74 6f 20 74 68 65 20 70 72 6f ┆ ; edit options into the pro┆
0x00efc…00f02 (0xcc,0x1f)
0x00f02…00f20 67 72 61 6d 20 74 65 78 74 0a 6c 2e 2f 62 6f 64 79 20 6f 66 20 69 6e 69 74 2f 2c 0a 6c 2e ┆gram text l./body of init/, l.┆
0x00f20…00f40 2f 76 65 72 73 74 65 78 74 2f 2c 6c 31 0a 6c 2e 2f 3d 3d 3d 74 72 69 6d 73 74 61 72 74 2f 2c 0a ┆/verstext/,l1 l./===trimstart/, ┆
0x00f40…00f60 64 2e 2f 3d 3d 3d 74 72 69 6d 66 69 6e 69 73 2f 2c 0a 69 2f 0a 0a 0a 21 20 64 61 74 65 20 6f 66 ┆d./===trimfinis/, i/ ! date of┆
0x00f60…00f7a 20 6f 70 74 69 6f 6e 73 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ options ┆
0x00f7a…00f80 (0xcc,0x20)
0x00f80…00fa0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 6f 70 74 69 6f 6e 73 20 20 20 20 20 3a 3d ┆ ! options :=┆
0x00fa0…00fc0 20 20 20 30 2c 0a 21 20 6e 75 6d 62 65 72 20 6f 66 20 61 63 74 69 76 65 20 74 65 72 6d 69 6e 61 ┆ 0, ! number of active termina┆
0x00fc0…00fe0 6c 73 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 74 68 63 6f 75 ┆ls ! thcou┆
0x00fe0…01000 6e 74 20 20 20 20 20 3a 3d 20 20 31 35 2c 0a 21 20 6e 75 6d 62 65 72 20 00 00 00 00 00 00 00 00 ┆nt := 15, ! number ┆
0x01000…01006 (8,) (0xcc,0x21)
0x01006…01020 6f 66 20 61 63 74 69 76 65 20 74 65 72 6d 69 6e 61 6c 20 67 72 6f 75 70 73 20 ┆of active terminal groups ┆
0x01020…01040 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 70 68 63 6f 75 6e 74 20 20 20 20 20 3a 3d ┆ ! phcount :=┆
0x01040…01060 20 20 20 35 2c 0a 21 20 6e 75 6d 62 65 72 20 6f 66 20 73 70 6f 6f 6c 20 73 65 67 6d 65 6e 74 73 ┆ 5, ! number of spool segments┆
0x01060…0107e 20 66 6f 72 20 65 61 63 68 20 74 65 72 6d 69 6e 61 6c 20 67 72 6f 75 70 20 21 20 70 68 73 ┆ for each terminal group ! phs┆
0x0107e…01084 (0xcc,0x22)
0x01084…010a0 70 6f 6f 6c 73 65 67 6d 20 3a 3d 20 20 31 30 2c 0a 21 20 6e 75 6d 62 65 72 20 6f 66 ┆poolsegm := 10, ! number of┆
0x010a0…010c0 20 73 70 6f 6f 6c 20 73 65 67 6d 65 6e 74 73 20 66 6f 72 20 65 61 63 68 20 74 65 72 6d 69 6e 61 ┆ spool segments for each termina┆
0x010c0…010e0 6c 20 20 20 20 20 20 20 21 20 74 68 73 70 6f 6f 6c 73 65 67 6d 20 3a 3d 20 20 31 30 2c 0a 21 20 ┆l ! thspoolsegm := 10, ! ┆
0x010e0…010fc 73 69 7a 65 20 6f 66 20 74 65 72 6d 69 6e 61 6c 20 62 75 66 66 65 72 20 69 6e 20 63 ┆size of terminal buffer in c┆
0x010fc…01102 (0xcc,0x23)
0x01102…01120 6f 72 65 20 28 68 61 6c 66 20 77 6f 72 64 73 29 20 20 20 20 20 21 20 74 65 72 6d 62 75 66 ┆ore (half words) ! termbuf┆
0x01120…01140 73 69 7a 65 20 3a 3d 20 31 30 34 2c 0a 21 20 6e 75 6d 62 65 72 20 6f 66 20 73 70 6f 6f 6c 20 73 ┆size := 104, ! number of spool s┆
0x01140…01160 65 67 6d 65 6e 74 20 62 75 66 66 65 72 73 20 69 6e 20 63 6f 72 65 20 20 20 20 20 20 20 20 20 20 ┆egment buffers in core ┆
0x01160…0117a 21 20 73 70 6f 6f 6c 62 75 66 73 20 20 20 3a 3d 20 20 20 32 2c 0a 21 20 73 69 ┆! spoolbufs := 2, ! si┆
0x0117a…01180 (0xcc,0x24)
0x01180…011a0 7a 65 20 6f 66 20 74 65 73 74 6f 75 74 70 75 74 20 61 72 65 61 20 28 73 65 67 6d 65 6e 74 73 29 ┆ze of testoutput area (segments)┆
0x011a0…011c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 74 65 73 74 73 65 67 6d 6e 74 73 20 3a 3d 20 ┆ ! testsegmnts := ┆
0x011c0…011e0 20 34 32 2c 0a 0a 2f 2c 0a 66 0a 0a 0a 69 66 20 32 2e 6e 6f 0a 72 63 6d 6f 6c 20 3d 20 61 6c 67 ┆ 42, /, f if 2.no rcmol = alg┆
0x011e0…01200 6f 6c 20 74 72 63 6d 6f 6c 20 20 20 20 20 20 20 20 3b 0a 0a 62 74 65 6d 00 00 00 00 00 00 00 00 ┆ol trcmol ; btem ┆
0x01200…01206 (9,) (0xcc,0x25)
0x01206…01220 20 3d 20 65 6e 74 72 79 20 32 30 20 74 65 6d 64 6f 63 0a 62 74 65 6d 20 3d 20 ┆ = entry 20 temdoc btem = ┆
0x01220…01240 72 63 6d 6f 6c 20 78 74 65 6d 20 20 20 20 20 20 20 20 20 20 20 3b 20 74 72 61 6e 73 6c 61 74 65 ┆rcmol xtem ; translate┆
0x01240…01260 20 74 72 69 6d 6d 65 64 20 70 72 6f 67 72 61 6d 20 74 65 78 74 0a 0a 74 65 6d 70 72 6f 63 20 3d ┆ trimmed program text temproc =┆
0x01260…0127e 20 65 6e 74 72 79 20 34 20 74 65 6d 64 6f 63 0a 69 20 74 74 65 6d 74 65 73 74 0a 0a 73 63 ┆ entry 4 temdoc i ttemtest sc┆
0x0127e…01284 (0xcc,0x26)
0x01284…012a0 6f 70 65 20 75 73 65 72 20 62 74 65 6d 20 74 72 61 63 65 20 74 65 6d 70 72 6f 63 0a ┆ope user btem trace temproc ┆
0x012a0…012c0 0a 6f 20 74 65 6d 64 75 6d 6d 79 6f 75 74 0a 0a 63 6c 65 61 72 20 74 65 6d 70 20 78 74 65 6d 20 ┆ o temdummyout clear temp xtem ┆
0x012c0…012e0 74 65 6d 74 72 69 6d 20 74 72 63 6d 6f 6c 20 74 74 65 6d 20 74 74 72 61 63 65 20 74 74 65 6d 74 ┆temtrim trcmol ttem ttrace ttemt┆
0x012e0…012fc 65 73 74 2c 0a 20 20 20 20 20 20 74 65 6d 6c 69 73 74 0a 69 66 20 32 2e 6e 6f 0a 63 ┆est, temlist if 2.no c┆
0x012fc…01302 (0xcc,0x27)
0x01302…01320 6c 65 61 72 20 74 65 6d 70 20 72 63 6d 6f 6c 0a 0a 6f 20 63 0a 63 6c 65 61 72 20 74 65 6d ┆lear temp rcmol o c clear tem┆
0x01320…01340 70 20 74 65 6d 64 75 6d 6d 79 6f 75 74 0a 0a 6d 65 73 73 61 67 65 20 74 65 6d 20 67 65 6e 65 72 ┆p temdummyout message tem gener┆
0x01340…01360 61 74 69 6f 6e 20 63 6f 6d 70 6c 65 74 65 64 0a 40 0a 0c 0a 3b 20 20 20 20 20 20 20 20 20 20 20 ┆ation completed @ ; ┆
0x01360…0137a 20 20 2a 2a 2a 20 20 74 65 6d 6c 69 73 74 20 20 2a 2a 2a 0a 3b 0a 3b 0a 3b 20 ┆ *** temlist *** ; ; ; ┆
0x0137a…01380 (0xcc,0x28)
0x01380…013a0 6c 69 73 74 73 20 61 6c 6c 20 74 65 78 74 20 66 69 6c 65 73 20 6f 6e 20 74 68 65 20 74 65 6d 20 ┆lists all text files on the tem ┆
0x013a0…013c0 73 79 73 74 65 6d 20 74 61 70 65 0a 0a 0a 6c 6f 6f 6b 75 70 20 72 63 6d 6f 6c 0a 69 66 20 6f 6b ┆system tape lookup rcmol if ok┆
0x013c0…013e0 2e 6e 6f 0a 72 63 6d 6f 6c 20 3d 20 61 6c 67 6f 6c 20 74 72 63 6d 6f 6c 0a 0a 6f 20 74 65 6d 74 ┆.no rcmol = algol trcmol o temt┆
0x013e0…01400 65 78 74 73 0a 68 65 61 64 20 33 0a 63 6f 70 79 20 6c 69 73 74 2e 79 65 00 00 00 00 00 00 00 00 ┆exts head 3 copy list.ye ┆
0x01400…01406 (10,) (0xcc,0x29)
0x01406…01420 73 20 6d 65 73 73 61 67 65 2e 6e 6f 20 74 65 6d 68 65 6c 70 0a 68 65 61 64 20 ┆s message.no temhelp head ┆
0x01420…01440 33 0a 72 63 6d 6f 6c 20 74 74 65 6d 20 6c 69 73 74 2e 79 65 73 20 78 72 65 66 2e 79 65 73 0a 68 ┆3 rcmol ttem list.yes xref.yes h┆
0x01440…01460 65 61 64 20 33 0a 63 6f 70 79 20 6c 69 73 74 2e 79 65 73 20 6d 65 73 73 61 67 65 2e 6e 6f 20 74 ┆ead 3 copy list.yes message.no t┆
0x01460…0147e 74 65 6d 74 65 73 74 0a 6f 20 63 0a 0a 63 6f 6e 76 65 72 74 20 74 65 6d 74 65 78 74 73 0a ┆temtest o c convert temtexts ┆
0x0147e…01484 (0xcc,0x2a)
0x01484…014a0 69 66 20 32 2e 6e 6f 0a 63 6c 65 61 72 20 74 65 6d 70 20 72 63 6d 6f 6c 0a 40 0a 3f ┆if 2.no clear temp rcmol @ ?┆
0x014a0…014c0 0a 0c 0a 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 2a 20 20 70 72 69 6d 6f 68 65 6c 70 20 ┆ ; *** primohelp ┆
0x014c0…014e0 20 2a 2a 2a 0a 3b 0a 0a 28 0a 0a 70 72 69 6d 6f 74 72 69 6d 3d 63 6f 70 79 20 6d 65 73 73 61 67 ┆ *** ; ( primotrim=copy messag┆
0x014e0…014fc 65 2e 6e 6f 20 36 34 2e 31 0a 0a 70 72 69 6d 6f 6c 69 73 74 3d 63 6f 70 79 20 6d 65 ┆e.no 64.1 primolist=copy me┆
0x014fc…01502 (0xcc,0x2b)
0x01502…01520 73 73 61 67 65 2e 6e 6f 20 36 34 2e 31 0a 0a 65 6e 64 0a 0a 29 0a 0c 0a 0a 3b 20 20 20 20 ┆ssage.no 64.1 end ) ; ┆
0x01520…01540 20 20 20 20 20 20 20 20 20 2a 2a 2a 20 20 70 72 69 6d 6f 74 72 69 6d 20 20 2a 2a 2a 0a 3b 0a 3b ┆ *** primotrim *** ; ;┆
0x01540…01560 0a 3b 20 63 6f 6e 74 61 69 6e 73 20 6f 70 74 69 6f 6e 73 20 66 6f 72 20 74 72 69 6d 6d 69 6e 67 ┆ ; contains options for trimming┆
0x01560…0157a 20 74 68 65 20 70 72 69 6d 6f 20 73 79 73 74 65 6d 0a 3b 20 61 6e 64 20 63 6f ┆ the primo system ; and co┆
0x0157a…01580 (0xcc,0x2c)
0x01580…015a0 6d 6d 61 6e 64 73 20 66 6f 72 20 61 75 74 6f 6d 61 74 69 63 20 73 79 73 74 65 6d 20 67 65 6e 65 ┆mmands for automatic system gene┆
0x015a0…015c0 72 61 74 69 6f 6e 20 0a 0a 0a 70 64 75 6d 6d 79 6f 75 74 3d 20 73 65 74 20 31 0a 6f 20 70 64 75 ┆ration pdummyout= set 1 o pdu┆
0x015c0…015e0 6d 6d 79 6f 75 74 0a 6d 6f 64 65 20 31 2e 6e 6f 0a 6c 6f 6f 6b 75 70 20 70 72 69 6d 6f 64 6f 63 ┆mmyout mode 1.no lookup primodoc┆
0x015e0…01600 0a 69 66 20 6f 6b 2e 6e 6f 0a 6d 6f 64 65 20 31 2e 79 65 73 0a 6f 20 63 00 00 00 00 00 00 00 00 ┆ if ok.no mode 1.yes o c ┆
0x01600…01606 (11,) (0xcc,0x2d)
0x01606…01620 0a 69 66 20 31 2e 79 65 73 0a 70 72 69 6d 6f 64 6f 63 3d 73 65 74 20 31 0a 0a ┆ if 1.yes primodoc=set 1 ┆
0x01620…01640 69 66 20 32 2e 6e 6f 0a 28 74 72 61 63 65 3d 65 6e 74 72 79 20 34 30 20 70 72 69 6d 6f 64 6f 63 ┆if 2.no (trace=entry 40 primodoc┆
0x01640…01660 0a 74 72 61 63 65 3d 61 6c 67 6f 6c 20 74 74 72 61 63 65 29 0a 0a 78 70 72 69 6d 6f 20 3d 20 65 ┆ trace=algol ttrace) xprimo = e┆
0x01660…0167e 64 69 74 20 74 70 72 69 6d 6f 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 65 64 69 74 20 6f ┆dit tprimo ; edit o┆
0x0167e…01684 (0xcc,0x2e)
0x01684…016a0 70 74 69 6f 6e 73 20 69 6e 74 6f 20 74 68 65 20 70 72 6f 67 72 61 6d 20 74 65 78 74 ┆ptions into the program text┆
0x016a0…016c0 0a 6c 2e 2f 62 6f 64 79 20 6f 66 20 69 6e 69 74 2f 2c 0a 6c 2e 2f 74 65 78 74 76 65 72 73 69 6f ┆ l./body of init/, l./textversio┆
0x016c0…016e0 6e 3a 3d 2f 2c 6c 31 0a 6c 2e 2f 3d 3d 3d 74 72 69 6d 73 74 61 72 74 2f 2c 0a 64 2e 2f 3d 3d 3d ┆n:=/,l1 l./===trimstart/, d./===┆
0x016e0…016fc 74 72 69 6d 66 69 6e 69 73 2f 2c 0a 69 23 0a 20 20 20 20 20 20 21 20 64 61 74 65 20 ┆trimfinis/, i# ! date ┆
0x016fc…01702 (0xcc,0x2f)
0x01702…01720 6f 66 20 6f 70 74 69 6f 6e 73 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆of options ┆
0x01720…01740 20 20 20 20 20 20 20 20 20 21 20 6f 70 74 69 6f 6e 73 20 20 20 20 20 20 3a 3d 20 20 20 30 2c 0a ┆ ! options := 0, ┆
0x01740…01760 20 20 20 20 20 20 21 20 6e 75 6d 62 65 72 20 6f 66 20 70 72 69 6e 74 65 72 20 63 6f 72 6f 75 74 ┆ ! number of printer corout┆
0x01760…0177a 69 6e 65 73 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 70 72 63 6f ┆ines ! prco┆
0x0177a…01780 (0xcc,0x30)
0x01780…017a0 75 6e 74 20 20 20 20 20 20 3a 3d 20 20 20 33 2c 0a 20 20 20 20 20 20 21 20 73 69 7a 65 20 6f 66 ┆unt := 3, ! size of┆
0x017a0…017c0 20 70 72 69 6e 74 65 72 20 62 75 66 66 65 72 20 28 68 61 6c 66 77 6f 72 64 73 29 20 20 20 20 20 ┆ printer buffer (halfwords) ┆
0x017c0…017e0 20 20 20 20 20 21 20 70 72 62 75 66 73 69 7a 65 20 20 20 20 3a 3d 20 31 32 38 2c 0a 20 20 20 20 ┆ ! prbufsize := 128, ┆
0x017e0…01800 20 20 21 20 6c 65 61 64 69 6e 67 20 61 6e 64 20 74 72 61 69 6c 69 6e 67 00 00 00 00 00 00 00 00 ┆ ! leading and trailing ┆
0x01800…01806 (12,) (0xcc,0x31)
0x01806…01820 20 70 61 67 65 20 6f 6e 20 70 72 69 6e 74 65 72 20 6c 69 73 74 73 20 20 21 20 ┆ page on printer lists ! ┆
0x01820…01840 70 72 6c 74 70 61 67 65 20 20 20 20 20 3a 3d 20 20 20 31 2c 0a 20 20 20 20 20 20 21 20 6d 61 78 ┆prltpage := 1, ! max┆
0x01840…01860 20 6c 69 6e 65 73 20 70 72 20 70 72 69 6e 74 65 72 20 70 61 67 65 20 20 20 20 20 20 20 20 20 20 ┆ lines pr printer page ┆
0x01860…0187e 20 20 20 20 20 20 20 20 20 21 20 70 72 6c 69 6e 65 70 61 67 65 20 20 20 3a 3d 20 31 30 30 ┆ ! prlinepage := 100┆
0x0187e…01884 (0xcc,0x32)
0x01884…018a0 2c 0a 20 20 20 20 20 20 21 20 6e 75 6d 62 65 72 20 6f 66 20 70 75 6e 63 68 20 63 6f ┆, ! number of punch co┆
0x018a0…018c0 72 6f 75 74 69 6e 65 73 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 70 63 63 6f ┆routines ! pcco┆
0x018c0…018e0 75 6e 74 20 20 20 20 20 20 3a 3d 20 20 20 31 2c 0a 20 20 20 20 20 20 21 20 73 69 7a 65 20 6f 66 ┆unt := 1, ! size of┆
0x018e0…018fc 20 70 75 6e 63 68 20 62 75 66 66 65 72 20 28 68 61 6c 66 77 6f 72 64 73 29 20 20 20 ┆ punch buffer (halfwords) ┆
0x018fc…01902 (0xcc,0x33)
0x01902…01920 20 20 20 20 20 20 20 20 20 21 20 70 63 62 75 66 73 69 7a 65 20 20 20 20 3a 3d 20 31 32 38 ┆ ! pcbufsize := 128┆
0x01920…01940 2c 0a 20 20 20 20 20 20 21 20 6e 75 6d 62 65 72 20 6f 66 20 72 65 61 64 65 72 20 63 6f 72 6f 75 ┆, ! number of reader corou┆
0x01940…01960 74 69 6e 65 73 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 72 64 63 6f 75 6e 74 20 ┆tines ! rdcount ┆
0x01960…0197a 20 20 20 20 20 3a 3d 20 20 20 31 2c 0a 20 20 20 20 20 20 21 20 73 69 7a 65 20 ┆ := 1, ! size ┆
0x0197a…01980 (0xcc,0x34)
0x01980…019a0 6f 66 20 72 65 61 64 65 72 20 62 75 66 66 65 72 20 28 68 61 6c 66 77 6f 72 64 73 29 20 20 20 20 ┆of reader buffer (halfwords) ┆
0x019a0…019c0 20 20 20 20 20 20 20 21 20 72 64 62 75 66 73 69 7a 65 20 20 20 20 3a 3d 20 31 32 38 2c 0a 20 20 ┆ ! rdbufsize := 128, ┆
0x019c0…019e0 20 20 20 20 21 20 6e 75 6d 62 65 72 20 6f 66 20 63 61 72 64 72 65 61 64 65 72 20 63 6f 72 6f 75 ┆ ! number of cardreader corou┆
0x019e0…01a00 74 69 6e 65 73 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 63 64 63 6f 00 00 00 00 00 00 00 00 ┆tines ! cdco ┆
0x01a00…01a06 (13,) (0xcc,0x35)
0x01a06…01a20 75 6e 74 20 20 20 20 20 20 3a 3d 20 20 20 31 2c 0a 20 20 20 20 20 20 21 20 73 ┆unt := 1, ! s┆
0x01a20…01a40 69 7a 65 20 6f 66 20 63 61 72 64 72 65 61 64 65 72 20 62 75 66 66 65 72 20 28 68 61 6c 66 77 6f ┆ize of cardreader buffer (halfwo┆
0x01a40…01a60 72 64 73 29 20 20 20 20 20 20 20 21 20 63 64 62 75 66 73 69 7a 65 20 20 20 20 3a 3d 20 31 30 38 ┆rds) ! cdbufsize := 108┆
0x01a60…01a7e 2c 0a 20 20 20 20 20 20 21 20 6e 75 6d 62 65 72 20 6f 66 20 74 74 79 20 63 6f 72 6f 75 74 ┆, ! number of tty corout┆
0x01a7e…01a84 (0xcc,0x36)
0x01a84…01aa0 69 6e 65 73 20 28 68 61 6c 66 77 6f 72 64 73 29 20 20 20 20 20 20 20 20 21 20 74 77 ┆ines (halfwords) ! tw┆
0x01aa0…01ac0 63 6f 75 6e 74 20 20 20 20 20 20 3a 3d 20 20 20 31 2c 0a 20 20 20 20 20 20 21 20 73 69 7a 65 20 ┆count := 1, ! size ┆
0x01ac0…01ae0 6f 66 20 74 74 79 20 62 75 66 66 65 72 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆of tty buffer ┆
0x01ae0…01afc 20 20 20 20 20 20 20 21 20 74 77 62 75 66 73 69 7a 65 20 20 20 20 3a 3d 20 20 31 30 ┆ ! twbufsize := 10┆
0x01afc…01b02 (0xcc,0x37)
0x01b02…01b20 34 2c 0a 20 20 20 20 20 20 21 20 6e 6f 20 6f 66 20 66 6f 72 6d 61 74 20 70 72 69 6e 74 65 ┆4, ! no of format printe┆
0x01b20…01b40 72 20 63 6f 72 6f 75 74 69 6e 65 73 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 66 70 72 63 6f ┆r coroutines ! fprco┆
0x01b40…01b60 75 6e 74 20 20 20 20 20 3a 3d 20 20 20 31 2c 0a 20 20 20 20 20 20 21 20 73 69 7a 65 20 6f 66 20 ┆unt := 1, ! size of ┆
0x01b60…01b7a 66 70 72 20 62 75 66 20 69 6e 63 6c 2e 20 31 30 20 68 6c 77 2e 20 68 64 2f 74 ┆fpr buf incl. 10 hlw. hd/t┆
0x01b7a…01b80 (0xcc,0x38)
0x01b80…01ba0 72 20 20 20 20 20 20 20 20 20 21 20 66 70 72 62 75 66 73 69 7a 65 20 20 20 3a 3d 20 31 37 32 2c ┆r ! fprbufsize := 172,┆
0x01ba0…01bc0 0a 20 20 20 20 20 20 21 20 6e 6f 20 6f 66 20 6f 70 65 72 61 74 6f 72 20 63 6f 72 6f 75 74 69 6e ┆ ! no of operator coroutin┆
0x01bc0…01be0 65 73 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 6f 70 72 63 6f 75 6e 74 20 ┆es ! oprcount ┆
0x01be0…01c00 20 20 20 20 3a 3d 20 20 20 32 2c 0a 20 20 20 20 20 20 21 20 6e 6f 20 6f 00 00 00 00 00 00 00 00 ┆ := 2, ! no o ┆
0x01c00…01c06 (14,) (0xcc,0x39)
0x01c06…01c20 66 20 74 72 61 6e 73 70 6f 72 74 20 64 65 73 63 72 69 70 74 69 6f 6e 20 73 65 ┆f transport description se┆
0x01c20…01c40 67 6d 6e 74 73 20 20 20 20 20 20 20 20 20 21 20 74 72 73 65 67 6d 20 20 20 20 20 20 20 3a 3d 20 ┆gmnts ! trsegm := ┆
0x01c40…01c60 31 30 30 2c 0a 20 20 20 20 20 20 21 20 73 69 7a 65 20 6f 66 20 74 65 73 74 6f 75 74 70 75 74 20 ┆100, ! size of testoutput ┆
0x01c60…01c7e 61 72 65 61 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 74 65 73 ┆area ! tes┆
0x01c7e…01c84 (0xcc,0x3a)
0x01c84…01ca0 74 73 65 67 6d 6e 74 73 20 20 3a 3d 20 20 34 32 2c 0a 20 20 20 20 20 20 21 20 74 72 ┆tsegmnts := 42, ! tr┆
0x01ca0…01cc0 61 6e 73 70 6f 72 74 20 64 65 73 63 72 69 70 74 69 6f 6e 20 73 61 76 65 20 70 65 72 69 6f 64 20 ┆ansport description save period ┆
0x01cc0…01ce0 20 20 20 20 20 20 20 20 20 20 21 20 74 72 73 61 76 65 6d 69 6e 75 74 20 20 3a 3d 20 20 36 30 2c ┆ ! trsaveminut := 60,┆
0x01ce0…01cfc 0a 20 20 20 20 20 20 21 20 6e 6f 20 6f 66 20 77 61 69 74 69 6e 67 20 74 72 61 6e 73 ┆ ! no of waiting trans┆
0x01cfc…01d02 (0xcc,0x3b)
0x01d02…01d20 70 6f 72 74 73 20 20 28 20 74 6f 74 61 6c 20 29 20 20 20 20 20 20 20 20 20 21 20 77 61 69 ┆ports ( total ) ! wai┆
0x01d20…01d40 74 74 72 61 6e 73 20 20 20 20 3a 3d 20 20 35 30 2c 0a 20 20 20 20 20 20 21 20 6e 6f 20 6f 66 20 ┆ttrans := 50, ! no of ┆
0x01d40…01d60 70 65 6e 64 69 6e 67 20 77 61 69 74 20 6f 70 65 72 61 74 69 6f 6e 73 20 20 20 20 20 20 20 20 20 ┆pending wait operations ┆
0x01d60…01d7a 20 20 20 20 20 20 21 20 77 61 69 74 6f 70 73 20 20 20 20 20 20 3a 3d 20 20 20 ┆ ! waitops := ┆
0x01d7a…01d80 (0xcc,0x3c)
0x01d80…01da0 35 2c 0a 20 20 20 20 20 20 21 20 6f 70 65 72 61 74 6f 72 20 6f 75 74 70 75 74 20 73 70 65 63 69 ┆5, ! operator output speci┆
0x01da0…01dc0 66 69 63 61 74 69 6f 6e 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 6f 70 72 64 65 74 61 ┆fication: ! oprdeta┆
0x01dc0…01de0 69 6c 73 20 20 20 3a 3d 20 20 20 32 2c 0a 20 20 20 20 20 20 21 20 62 69 74 20 32 33 3a 20 6f 75 ┆ils := 2, ! bit 23: ou┆
0x01de0…01e00 74 70 75 74 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 63 6f 6e 63 65 72 6e 00 00 00 00 00 00 00 00 ┆tput information concern ┆
0x01e00…01e06 (15,) (0xcc,0x3d)
0x01e06…01e20 69 6e 67 20 74 72 61 6e 73 70 6f 72 74 20 74 65 72 6d 69 6e 61 74 69 6f 6e 2e ┆ing transport termination.┆
0x01e20…01e40 20 20 20 20 20 21 0a 20 20 20 20 20 20 21 20 62 69 74 20 32 32 3a 20 72 6f 75 74 65 20 6f 75 74 ┆ ! ! bit 22: route out┆
0x01e40…01e60 70 75 74 20 74 6f 20 6d 61 69 6e 20 6f 70 65 72 61 74 6f 72 20 69 66 20 6e 6f 74 20 73 69 67 6e ┆put to main operator if not sign┆
0x01e60…01e7e 65 64 20 75 70 20 6f 72 20 74 72 6f 75 62 6c 65 21 0a 20 20 20 20 20 20 21 20 61 63 63 65 ┆ed up or trouble! ! acce┆
0x01e7e…01e84 (0xcc,0x3e)
0x01e84…01ea0 70 74 20 74 72 61 6e 73 70 6f 72 74 73 20 74 6f 20 6e 6f 6e 65 78 69 73 74 69 6e 67 ┆pt transports to nonexisting┆
0x01ea0…01ec0 20 64 65 76 2e 20 68 6f 73 74 20 20 21 20 74 61 63 63 65 70 74 20 20 20 20 20 20 3a 3d 20 20 20 ┆ dev. host ! taccept := ┆
0x01ec0…01ee0 30 2c 0a 0a 23 2c 0a 66 0a 0a 69 66 20 32 2e 6e 6f 0a 72 63 6d 6f 6c 20 3d 20 61 6c 67 6f 6c 20 ┆0, #, f if 2.no rcmol = algol ┆
0x01ee0…01efc 74 72 63 6d 6f 6c 0a 0a 62 70 72 69 6d 6f 20 3d 20 65 6e 74 72 79 20 32 30 20 70 72 ┆trcmol bprimo = entry 20 pr┆
0x01efc…01f02 (0xcc,0x3f)
0x01f02…01f20 69 6d 6f 64 6f 63 0a 62 70 72 69 6d 6f 20 3d 20 72 63 6d 6f 6c 20 78 70 72 69 6d 6f 20 20 ┆imodoc bprimo = rcmol xprimo ┆
0x01f20…01f40 20 20 20 20 20 3b 20 74 72 61 6e 73 6c 61 74 65 20 74 72 69 6d 6d 65 64 20 70 72 6f 67 72 61 6d ┆ ; translate trimmed program┆
0x01f40…01f60 6d 65 0a 0a 74 72 61 6e 73 66 65 72 3d 20 65 6e 74 72 79 20 32 30 20 70 72 69 6d 6f 64 6f 63 0a ┆me transfer= entry 20 primodoc ┆
0x01f60…01f7a 74 72 61 6e 73 66 65 72 3d 20 61 6c 67 6f 6c 20 74 74 72 61 6e 73 66 65 72 0a ┆transfer= algol ttransfer ┆
0x01f7a…01f80 (0xcc,0x40)
0x01f80…01fa0 0a 66 69 6c 65 78 66 65 72 3d 20 65 6e 74 72 79 20 36 30 20 70 72 69 6d 6f 64 6f 63 0a 66 69 6c ┆ filexfer= entry 60 primodoc fil┆
0x01fa0…01fc0 65 65 6e 71 20 3d 20 65 6e 74 72 79 20 36 30 20 70 72 69 6d 6f 64 6f 63 0a 73 61 76 65 74 72 61 ┆eenq = entry 60 primodoc savetra┆
0x01fc0…01fe0 6e 73 3d 20 65 6e 74 72 79 20 36 30 20 70 72 69 6d 6f 64 6f 63 0a 69 20 74 66 69 6c 65 75 74 69 ┆ns= entry 60 primodoc i tfileuti┆
0x01fe0…02000 6c 0a 0a 73 63 6f 70 65 20 75 73 65 72 20 62 70 72 69 6d 6f 20 74 72 61 00 00 00 00 00 00 00 00 ┆l scope user bprimo tra ┆
0x02000…02006 (16,) (0xcc,0x41)
0x02006…02020 63 65 20 74 72 61 6e 73 66 65 72 20 66 69 6c 65 78 66 65 72 20 66 69 6c 65 65 ┆ce transfer filexfer filee┆
0x02020…02040 6e 71 20 73 61 76 65 74 72 61 6e 73 0a 0a 28 6f 20 70 64 75 6d 6d 79 6f 75 74 0a 0a 63 6c 65 61 ┆nq savetrans (o pdummyout clea┆
0x02040…02060 72 20 74 65 6d 70 20 78 70 72 69 6d 6f 20 70 72 69 6d 6f 74 72 69 6d 20 74 72 63 6d 6f 6c 20 74 ┆r temp xprimo primotrim trcmol t┆
0x02060…0207e 70 72 69 6d 6f 20 74 74 72 61 63 65 20 74 74 72 61 6e 73 66 65 72 20 74 66 69 6c 65 75 74 ┆primo ttrace ttransfer tfileut┆
0x0207e…02084 (0xcc,0x42)
0x02084…020a0 69 6c 2c 0a 20 20 20 20 20 20 70 72 69 6d 6f 6c 69 73 74 20 70 72 69 6d 6f 64 6f 63 ┆il, primolist primodoc┆
0x020a0…020c0 0a 69 66 20 32 2e 6e 6f 0a 63 6c 65 61 72 20 74 65 6d 70 20 72 63 6d 6f 6c 0a 0a 6f 20 63 0a 63 ┆ if 2.no clear temp rcmol o c c┆
0x020c0…020e0 6c 65 61 72 20 74 65 6d 70 20 70 64 75 6d 6d 79 6f 75 74 20 29 0a 0a 6d 65 73 73 61 67 65 20 70 ┆lear temp pdummyout ) message p┆
0x020e0…020fc 72 69 6d 6f 20 67 65 6e 65 72 61 74 69 6f 6e 20 63 6f 6d 70 6c 65 74 65 64 0a 40 0a ┆rimo generation completed @ ┆
0x020fc…02102 (0xcc,0x43)
0x02102…02120 0c 0a 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 2a 20 20 70 72 69 6d 6f 6c 69 73 74 ┆ ; *** primolist┆
0x02120…02140 20 20 2a 2a 2a 0a 3b 0a 3b 0a 3b 20 6c 69 73 74 73 20 61 6c 6c 20 74 65 78 74 20 66 69 6c 65 73 ┆ *** ; ; ; lists all text files┆
0x02140…02160 20 6f 6e 20 74 68 65 20 70 72 69 6d 6f 20 73 79 73 74 65 6d 20 74 61 70 65 0a 0a 0a 6c 6f 6f 6b ┆ on the primo system tape look┆
0x02160…0217a 75 70 20 72 63 6d 6f 6c 0a 69 66 20 6f 6b 2e 6e 6f 0a 72 63 6d 6f 6c 20 3d 20 ┆up rcmol if ok.no rcmol = ┆
0x0217a…02180 (0xcc,0x44)
0x02180…021a0 61 6c 67 6f 6c 20 74 72 63 6d 6f 6c 0a 0a 6f 20 70 72 69 6d 6f 74 65 78 74 73 0a 68 65 61 64 20 ┆algol trcmol o primotexts head ┆
0x021a0…021c0 33 0a 63 6f 70 79 20 6c 69 73 74 2e 79 65 73 20 6d 65 73 73 61 67 65 2e 6e 6f 20 70 72 69 6d 6f ┆3 copy list.yes message.no primo┆
0x021c0…021e0 68 65 6c 70 0a 68 65 61 64 20 33 0a 72 63 6d 6f 6c 20 74 70 72 69 6d 6f 20 6c 69 73 74 2e 79 65 ┆help head 3 rcmol tprimo list.ye┆
0x021e0…02200 73 20 78 72 65 66 2e 79 65 73 0a 68 65 61 64 20 33 0a 61 6c 67 6f 6c 20 00 00 00 00 00 00 00 00 ┆s xref.yes head 3 algol ┆
0x02200…02206 (17,) (0xcc,0x45)
0x02206…02220 74 74 72 61 6e 73 66 65 72 20 6c 69 73 74 2e 79 65 73 20 78 72 65 66 2e 79 65 ┆ttransfer list.yes xref.ye┆
0x02220…02240 73 0a 68 65 61 64 20 33 0a 63 6f 70 79 20 6c 69 73 74 2e 79 65 73 20 6d 65 73 73 61 67 65 2e 6e ┆s head 3 copy list.yes message.n┆
0x02240…02260 6f 20 74 66 69 6c 65 75 74 69 6c 0a 6f 20 63 0a 0a 63 6f 6e 76 65 72 74 20 70 72 69 6d 6f 74 65 ┆o tfileutil o c convert primote┆
0x02260…0227e 78 74 73 0a 69 66 20 32 2e 6e 6f 0a 63 6c 65 61 72 20 74 65 6d 70 20 72 63 6d 6f 6c 0a 40 ┆xts if 2.no clear temp rcmol @┆
0x0227e…02284 (0xcc,0x46)
0x02284…022a0 0a 3f 0a 0c 0a 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 2a 20 20 73 6f 73 68 ┆ ? ; *** sosh┆
0x022a0…022c0 65 6c 70 20 20 2a 2a 2a 0a 3b 0a 0a 28 0a 0a 73 6f 73 74 72 69 6d 3d 63 6f 70 79 20 6d 65 73 73 ┆elp *** ; ( sostrim=copy mess┆
0x022c0…022e0 61 67 65 2e 6e 6f 20 36 34 2e 31 0a 0a 73 6f 73 6c 69 73 74 3d 63 6f 70 79 20 6d 65 73 73 61 67 ┆age.no 64.1 soslist=copy messag┆
0x022e0…022fc 65 2e 6e 6f 20 36 34 2e 31 0a 0a 65 6e 64 0a 0a 29 0a 0c 0a 3b 20 20 20 20 20 20 20 ┆e.no 64.1 end ) ; ┆
0x022fc…02302 (0xcc,0x47)
0x02302…02320 20 20 20 20 20 20 2a 2a 2a 20 20 73 6f 73 74 72 69 6d 20 20 2a 2a 2a 0a 3b 0a 3b 0a 3b 20 ┆ *** sostrim *** ; ; ; ┆
0x02320…02340 63 6f 6e 74 61 69 6e 73 20 6f 70 74 69 6f 6e 73 20 66 6f 72 20 74 72 69 6d 6d 69 6e 67 20 73 6f ┆contains options for trimming so┆
0x02340…02360 73 20 73 79 73 74 65 6d 0a 3b 20 61 6e 64 20 63 6f 6d 6d 61 6e 64 73 20 66 6f 72 20 61 75 74 6f ┆s system ; and commands for auto┆
0x02360…0237a 6d 61 74 69 63 20 73 79 73 74 65 6d 20 67 65 6e 65 72 61 74 69 6f 6e 20 66 72 ┆matic system generation fr┆
0x0237a…02380 (0xcc,0x48)
0x02380…023a0 6f 6d 20 74 68 65 20 73 6f 73 20 73 79 73 74 65 6d 20 74 61 70 65 0a 0a 0a 73 6f 73 64 75 6d 6d ┆om the sos system tape sosdumm┆
0x023a0…023c0 79 6f 75 74 3d 73 65 74 20 31 0a 6f 20 73 6f 73 64 75 6d 6d 79 6f 75 74 0a 6d 6f 64 65 20 31 2e ┆yout=set 1 o sosdummyout mode 1.┆
0x023c0…023e0 6e 6f 0a 6c 6f 6f 6b 75 70 20 73 6f 73 64 6f 63 0a 69 66 20 6f 6b 2e 6e 6f 0a 6d 6f 64 65 20 31 ┆no lookup sosdoc if ok.no mode 1┆
0x023e0…02400 2e 79 65 73 0a 6f 20 63 0a 69 66 20 31 2e 79 65 73 0a 73 6f 73 64 6f 63 00 00 00 00 00 00 00 00 ┆.yes o c if 1.yes sosdoc ┆
0x02400…02406 (18,) (0xcc,0x49)
0x02406…02420 3d 73 65 74 20 31 0a 0a 69 66 20 32 2e 6e 6f 0a 28 74 72 61 63 65 3d 65 6e 74 ┆=set 1 if 2.no (trace=ent┆
0x02420…02440 72 79 20 34 30 20 73 6f 73 64 6f 63 0a 74 72 61 63 65 3d 61 6c 67 6f 6c 20 74 74 72 61 63 65 29 ┆ry 40 sosdoc trace=algol ttrace)┆
0x02440…02460 0a 0a 78 73 6f 73 20 3d 20 65 64 69 74 20 74 73 6f 73 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 ┆ xsos = edit tsos ; ┆
0x02460…0247e 65 64 69 74 20 6f 70 74 69 6f 6e 73 20 69 6e 74 6f 20 70 72 6f 67 72 61 6d 20 74 65 78 74 ┆edit options into program text┆
0x0247e…02484 (0xcc,0x4a)
0x02484…024a0 0a 6c 2e 2f 62 6f 64 79 20 6f 66 20 69 6e 69 74 2f 2c 0a 6c 2e 2f 76 65 72 73 74 78 ┆ l./body of init/, l./verstx┆
0x024a0…024c0 74 2f 2c 6c 31 0a 6c 2e 2f 3d 3d 3d 74 72 69 6d 73 74 61 72 74 2f 2c 0a 64 2e 2f 3d 3d 3d 74 72 ┆t/,l1 l./===trimstart/, d./===tr┆
0x024c0…024e0 69 6d 66 69 6e 69 73 2f 2c 0a 69 2f 0a 21 20 64 61 74 65 20 6f 66 20 6f 70 74 69 6f 6e 73 20 20 ┆imfinis/, i/ ! date of options ┆
0x024e0…024fc 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 ┆ ┆
0x024fc…02502 (0xcc,0x4b)
0x02502…02520 20 20 20 20 20 20 20 20 20 20 20 21 20 6f 70 74 69 6f 6e 69 64 20 20 20 3a 3d 20 20 20 20 ┆ ! optionid := ┆
0x02520…02540 20 30 2c 0a 0a 21 20 74 61 72 67 65 74 20 6d 61 63 68 69 6e 65 20 28 72 63 34 30 30 30 3d 34 30 ┆ 0, ! target machine (rc4000=40┆
0x02540…02560 30 30 2c 72 63 38 30 30 30 3d 38 30 30 30 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 ┆00,rc8000=8000) !┆
0x02560…0257a 20 72 63 20 20 20 20 20 20 20 20 20 3a 3d 20 20 38 30 30 30 2c 0a 21 20 6d 69 ┆ rc := 8000, ! mi┆
0x0257a…02580 (0xcc,0x4c)
0x02580…025a0 6e 2e 20 6e 6f 20 6f 66 20 75 73 65 72 20 70 72 6f 63 65 73 73 65 73 20 61 63 74 69 76 65 20 61 ┆n. no of user processes active a┆
0x025a0…025c0 74 20 74 68 65 20 73 61 6d 65 20 74 69 6d 65 20 20 20 20 20 20 20 21 20 6d 69 6e 75 73 65 72 73 ┆t the same time ! minusers┆
0x025c0…025e0 20 20 20 3a 3d 20 20 20 20 20 31 2c 0a 21 20 6d 69 6e 2e 20 6e 6f 20 6f 66 20 65 6e 74 72 69 65 ┆ := 1, ! min. no of entrie┆
0x025e0…02600 73 20 66 6f 72 20 74 65 72 6d 69 6e 61 6c 73 20 70 65 72 66 6f 72 6d 69 00 00 00 00 00 00 00 00 ┆s for terminals performi ┆
0x02600…02606 (19,) (0xcc,0x4d)
0x02606…02620 6e 67 20 6f 73 20 63 6f 6d 6d 61 6e 64 73 20 21 20 63 6f 6d 6e 64 75 73 65 72 ┆ng os commands ! comnduser┆
0x02620…02640 73 20 3a 3d 20 20 20 20 20 32 2c 0a 21 20 6d 69 6e 2e 20 6e 6f 20 6f 66 20 62 75 66 66 65 72 73 ┆s := 2, ! min. no of buffers┆
0x02640…02660 20 72 65 73 65 72 76 65 64 20 66 6f 72 20 75 73 65 72 20 70 72 6f 63 65 73 73 65 73 20 20 20 20 ┆ reserved for user processes ┆
0x02660…0267e 20 20 20 20 20 20 21 20 6d 69 6e 62 75 66 73 20 20 20 20 3a 3d 20 20 20 20 20 34 2c 0a 21 ┆ ! minbufs := 4, !┆
0x0267e…02684 (0xcc,0x4e)
0x02684…026a0 20 6d 69 6e 2e 20 6e 6f 20 6f 66 20 61 72 65 61 73 20 72 65 73 65 72 76 65 64 20 66 ┆ min. no of areas reserved f┆
0x026a0…026c0 6f 72 20 75 73 65 72 20 70 72 6f 63 65 73 73 65 73 20 20 20 20 20 20 20 20 20 20 20 20 21 20 6d ┆or user processes ! m┆
0x026c0…026e0 69 6e 61 72 65 61 73 20 20 20 3a 3d 20 20 20 20 20 37 2c 0a 21 20 6d 69 6e 2e 20 63 6f 72 65 20 ┆inareas := 7, ! min. core ┆
0x026e0…026fc 73 69 7a 65 20 66 6f 72 20 75 73 65 72 20 70 72 6f 63 65 73 73 65 73 20 28 68 61 6c ┆size for user processes (hal┆
0x026fc…02702 (0xcc,0x4f)
0x02702…02720 66 77 6f 72 64 73 29 20 20 20 20 20 20 20 20 20 20 20 21 20 6d 69 6e 73 69 7a 65 20 20 20 ┆fwords) ! minsize ┆
0x02720…02740 20 3a 3d 20 31 33 30 30 30 2c 0a 21 20 73 69 7a 65 20 6f 66 20 69 2d 6f 20 62 75 66 66 65 72 20 ┆ := 13000, ! size of i-o buffer ┆
0x02740…02760 66 6f 72 20 65 61 63 68 20 75 73 65 72 20 70 72 6f 63 65 73 73 20 28 68 61 6c 66 77 6f 72 64 73 ┆for each user process (halfwords┆
0x02760…0277a 29 20 20 20 20 21 20 62 75 66 6c 20 20 20 20 20 20 20 3a 3d 20 20 20 31 30 34 ┆) ! bufl := 104┆
0x0277a…02780 (0xcc,0x50)
0x02780…027a0 2c 0a 21 20 6c 65 6e 67 74 68 20 6f 66 20 61 20 74 69 6d 65 20 73 6c 69 63 65 20 28 73 65 63 6f ┆, ! length of a time slice (seco┆
0x027a0…027c0 6e 64 73 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 74 69 ┆nds) ! ti┆
0x027c0…027e0 6d 65 73 6c 69 63 65 20 20 3a 3d 20 20 20 20 20 33 2c 0a 21 20 6d 61 78 20 6e 6f 20 6f 66 20 74 ┆meslice := 3, ! max no of t┆
0x027e0…02800 69 6d 65 20 73 6c 69 63 65 73 20 75 73 65 64 20 69 6e 20 63 70 75 20 28 00 00 00 00 00 00 00 00 ┆ime slices used in cpu ( ┆
0x02800…02806 (20,) (0xcc,0x51)
0x02806…02820 6e 6f 20 69 6e 70 75 74 29 20 20 20 20 20 20 20 20 20 20 20 20 21 20 63 70 75 ┆no input) ! cpu┆
0x02820…02840 6c 69 6d 69 74 20 20 20 3a 3d 20 20 20 20 32 35 2c 0a 21 20 6c 6f 73 73 20 6f 66 20 70 72 69 6f ┆limit := 25, ! loss of prio┆
0x02840…02860 72 69 74 79 20 63 6c 61 73 73 20 77 68 65 6e 20 74 69 6d 65 64 20 6f 75 74 20 20 20 20 20 20 20 ┆rity class when timed out ┆
0x02860…0287e 20 20 20 20 20 20 20 20 20 20 20 20 21 20 63 6c 61 73 73 6c 6f 73 73 20 20 3a 3d 20 20 20 ┆ ! classloss := ┆
0x0287e…02884 (0xcc,0x52)
0x02884…028a0 20 20 31 2c 0a 21 20 70 72 69 6f 72 69 74 79 20 63 6c 61 73 73 20 67 61 69 6e 20 61 ┆ 1, ! priority class gain a┆
0x028a0…028c0 74 20 69 6e 70 75 74 20 28 69 66 20 63 6c 61 73 73 20 3c 20 30 29 20 20 20 20 20 20 20 20 20 20 ┆t input (if class < 0) ┆
0x028c0…028e0 20 20 20 21 20 63 6c 61 73 73 67 61 69 6e 20 20 3a 3d 20 20 20 20 20 31 2c 0a 21 20 70 72 69 6f ┆ ! classgain := 1, ! prio┆
0x028e0…028fc 72 69 74 79 20 67 61 69 6e 20 77 68 65 6e 20 66 69 72 73 74 20 69 6e 20 61 63 74 69 ┆rity gain when first in acti┆
0x028fc…02902 (0xcc,0x53)
0x02902…02920 76 65 71 75 65 75 65 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 70 72 69 6f ┆vequeue ! prio┆
0x02920…02940 67 61 69 6e 20 20 20 3a 3d 20 20 20 20 20 31 2c 0a 21 20 73 69 7a 65 20 6f 66 20 74 65 73 74 6f ┆gain := 1, ! size of testo┆
0x02940…02960 75 74 70 75 74 20 61 72 65 61 20 28 73 65 67 6d 65 6e 74 73 29 20 20 20 20 20 20 20 20 20 20 20 ┆utput area (segments) ┆
0x02960…0297a 20 20 20 20 20 20 20 20 20 20 20 21 20 74 65 73 74 73 65 67 6d 6e 74 73 3a 3d ┆ ! testsegmnts:=┆
0x0297a…02980 (0xcc,0x54)
0x02980…029a0 20 20 20 20 34 32 2c 0a 21 20 72 65 61 63 74 69 6f 6e 20 6f 6e 20 74 69 6d 65 20 65 78 63 65 65 ┆ 42, ! reaction on time excee┆
0x029a0…029c0 64 65 64 20 6f 72 20 62 72 65 61 6b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ded or break ┆
0x029c0…029e0 20 20 21 20 63 6f 6e 64 69 74 69 6f 6e 73 20 3a 3d 20 32 27 30 30 30 30 31 31 2c 0a 21 20 20 20 ┆ ! conditions := 2'000011, ! ┆
0x029e0…02a00 20 20 20 32 27 30 30 30 30 30 31 20 3d 20 61 62 6f 72 74 20 6a 6f 62 20 00 00 00 00 00 00 00 00 ┆ 2'000001 = abort job ┆
0x02a00…02a06 (21,) (0xcc,0x55)
0x02a06…02a20 61 74 20 74 69 6d 65 20 65 78 63 65 65 64 65 64 20 20 20 20 20 20 20 20 20 20 ┆at time exceeded ┆
0x02a20…02a40 20 20 20 20 21 0a 21 20 20 20 20 20 20 32 27 30 30 30 30 31 30 20 3d 20 61 62 6f 72 74 20 6a 6f ┆ ! ! 2'000010 = abort jo┆
0x02a40…02a60 62 20 61 66 74 65 72 20 62 72 65 61 6b 20 63 6f 6d 6d 61 6e 64 20 20 20 20 20 20 20 20 20 20 20 ┆b after break command ┆
0x02a60…02a7e 21 0a 0a 0a 20 20 74 72 69 6d 74 65 78 74 73 3b 20 20 74 65 78 74 28 31 31 29 0a 0a 21 20 ┆! trimtexts; text(11) ! ┆
0x02a7e…02a84 (0xcc,0x56)
0x02a84…02aa0 6f 70 65 72 61 74 6f 72 20 6b 65 79 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆operator key ┆
0x02aa0…02ac0 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 21 20 6f 70 ┆ ! op┆
0x02ac0…02ae0 72 6b 65 79 20 20 20 20 20 3a 3d 20 22 6f 70 72 22 2c 0a 21 20 64 6f 63 75 6d 65 6e 74 20 66 6f ┆rkey := "opr", ! document fo┆
0x02ae0…02afc 72 20 73 77 6f 70 61 72 65 61 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆r swoparea ┆
0x02afc…02b02 (0xcc,0x57)
0x02b02…02b20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 73 77 6f 70 64 6f 63 20 20 20 20 ┆ ! swopdoc ┆
0x02b20…02b40 3a 3d 20 20 20 20 22 22 2c 0a 21 20 64 6f 63 75 6d 65 6e 74 20 66 6f 72 20 74 65 73 74 20 61 72 ┆:= "", ! document for test ar┆
0x02b40…02b60 65 61 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 ┆ea ┆
0x02b60…02b7a 20 20 20 20 21 20 74 65 73 74 64 6f 63 20 20 20 20 3a 3d 20 20 20 20 22 22 2c ┆ ! testdoc := "",┆
0x02b7a…02b80 (0xcc,0x58)
0x02b80…02ba0 0a 0a 2f 2c 66 0a 0a 69 66 20 32 2e 6e 6f 0a 72 63 6d 6f 6c 20 3d 20 61 6c 67 6f 6c 20 74 72 63 ┆ /,f if 2.no rcmol = algol trc┆
0x02ba0…02bc0 6d 6f 6c 20 20 20 20 20 20 20 20 20 3b 20 74 68 65 6e 20 67 65 6e 65 72 61 74 65 20 61 20 74 65 ┆mol ; then generate a te┆
0x02bc0…02be0 6d 70 6f 72 61 72 79 20 6f 6e 65 0a 0a 0a 62 73 6f 73 20 3d 20 65 6e 74 72 79 20 32 30 20 73 6f ┆mporary one bsos = entry 20 so┆
0x02be0…02c00 73 64 6f 63 20 20 0a 62 73 6f 73 20 3d 20 72 63 6d 6f 6c 20 78 73 6f 73 00 00 00 00 00 00 00 00 ┆sdoc bsos = rcmol xsos ┆
0x02c00…02c06 (22,) (0xcc,0x59)
0x02c06…02c20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 74 72 61 6e 73 6c 61 74 65 20 74 72 ┆ ; translate tr┆
0x02c20…02c40 69 6d 6d 65 64 20 70 72 6f 67 72 61 6d 20 74 65 78 74 0a 0a 63 6c 65 61 72 74 65 6d 70 20 3d 20 ┆immed program text cleartemp = ┆
0x02c40…02c60 65 6e 74 72 79 20 31 30 20 73 6f 73 64 6f 63 0a 63 6c 65 61 72 74 65 6d 70 20 3d 20 72 63 6d 6f ┆entry 10 sosdoc cleartemp = rcmo┆
0x02c60…02c7e 6c 20 74 63 6c 65 61 72 74 65 6d 70 20 3b 20 74 72 61 6e 73 6c 61 74 65 20 63 61 74 61 6c ┆l tcleartemp ; translate catal┆
0x02c7e…02c84 (0xcc,0x5a)
0x02c84…02ca0 6f 67 20 63 6c 65 61 6e 69 6e 67 20 70 72 6f 67 72 61 6d 0a 0a 75 70 73 6f 73 63 61 ┆og cleaning program upsosca┆
0x02ca0…02cc0 74 20 3d 20 65 6e 74 72 79 20 31 30 30 20 73 6f 73 64 6f 63 0a 75 70 73 6f 73 63 61 74 20 3d 20 ┆t = entry 100 sosdoc upsoscat = ┆
0x02cc0…02ce0 61 6c 67 6f 6c 20 74 75 70 73 6f 73 63 61 74 20 20 20 3b 20 74 72 61 6e 73 6c 61 74 65 20 70 72 ┆algol tupsoscat ; translate pr┆
0x02ce0…02cfc 6f 67 72 61 6d 20 66 6f 72 20 67 65 6e 65 72 61 74 69 6e 67 20 73 6f 73 20 75 73 65 ┆ogram for generating sos use┆
0x02cfc…02d02 (0xcc,0x5b)
0x02d02…02d20 72 20 63 61 74 61 6c 6f 67 0a 0a 70 72 6f 6c 6f 67 75 65 20 3d 20 65 6e 74 72 79 20 34 20 ┆r catalog prologue = entry 4 ┆
0x02d20…02d40 73 6f 73 64 6f 63 0a 70 72 6f 6c 6f 67 75 65 20 3d 20 72 63 6d 6f 6c 20 74 70 72 6f 6c 6f 67 75 ┆sosdoc prologue = rcmol tprologu┆
0x02d40…02d60 65 20 20 20 3b 20 67 65 6e 65 72 61 74 65 20 6c 6f 61 64 65 72 20 66 6f 72 20 73 2d 72 65 70 6c ┆e ; generate loader for s-repl┆
0x02d60…02d7a 61 63 65 6d 65 6e 74 0a 70 72 6f 6c 6f 67 75 65 20 3d 20 63 68 61 6e 67 65 65 ┆acement prologue = changee┆
0x02d7a…02d80 (0xcc,0x5c)
0x02d80…02da0 6e 74 72 79 20 70 72 6f 6c 6f 67 75 65 20 70 72 6f 6c 6f 67 75 65 20 70 72 6f 6c 6f 67 75 65 20 ┆ntry prologue prologue prologue ┆
0x02da0…02dc0 70 72 6f 6c 6f 67 75 65 20 70 72 6f 6c 6f 67 75 65 20 38 2e 70 72 6f 6c 6f 67 75 65 20 70 72 6f ┆prologue prologue 8.prologue pro┆
0x02dc0…02de0 6c 6f 67 75 65 0a 0a 62 64 69 73 70 6c 61 79 20 3d 20 65 6e 74 72 79 20 32 30 20 73 6f 73 64 6f ┆logue bdisplay = entry 20 sosdo┆
0x02de0…02e00 63 0a 62 64 69 73 70 6c 61 79 20 3d 20 61 6c 67 6f 6c 20 63 6f 6e 6e 65 00 00 00 00 00 00 00 00 ┆c bdisplay = algol conne ┆
0x02e00…02e06 (23,) (0xcc,0x5d)
0x02e06…02e20 63 74 2e 6e 6f 20 74 64 69 73 70 6c 61 79 20 0a 20 20 20 20 20 20 20 20 20 20 ┆ct.no tdisplay ┆
0x02e20…02e40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 74 72 61 6e 73 6c 61 74 65 20 70 ┆ ; translate p┆
0x02e40…02e60 72 6f 67 72 61 6d 20 64 69 73 70 6c 61 79 69 6e 67 20 72 75 6e 6e 69 6e 67 20 6a 6f 62 73 0a 0a ┆rogram displaying running jobs ┆
0x02e60…02e7e 0a 0a 6f 20 73 6f 73 64 75 6d 6d 79 6f 75 74 0a 6d 6f 64 65 20 31 2e 6e 6f 0a 6c 6f 6f 6b ┆ o sosdummyout mode 1.no look┆
0x02e7e…02e84 (0xcc,0x5e)
0x02e84…02ea0 75 70 20 73 6f 73 63 61 74 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 69 ┆up soscat ; i┆
0x02ea0…02ec0 66 20 73 6f 73 63 61 74 20 69 73 20 6e 6f 74 20 70 72 65 73 65 6e 74 0a 69 66 20 6f 6b 2e 6e 6f ┆f soscat is not present if ok.no┆
0x02ec0…02ee0 0a 6d 6f 64 65 20 31 2e 79 65 73 0a 6f 20 63 0a 69 66 20 31 2e 79 65 73 20 20 20 20 20 20 20 20 ┆ mode 1.yes o c if 1.yes ┆
0x02ee0…02efc 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 74 68 65 6e 0a 28 20 73 6f 73 63 61 74 ┆ ; then ( soscat┆
0x02efc…02f02 (0xcc,0x5f)
0x02f02…02f20 20 3d 20 65 6e 74 72 79 20 31 20 73 6f 73 64 6f 63 20 20 20 20 3b 20 62 65 67 69 6e 0a 20 ┆ = entry 1 sosdoc ; begin ┆
0x02f20…02f40 20 73 6f 73 63 61 74 20 3d 20 75 70 73 6f 73 63 61 74 20 74 73 6f 73 63 61 74 20 20 3b 20 20 20 ┆ soscat = upsoscat tsoscat ; ┆
0x02f40…02f60 67 65 6e 65 72 61 74 65 20 61 6e 20 65 78 70 65 72 69 6d 65 6e 74 61 6c 20 75 73 65 72 20 63 61 ┆generate an experimental user ca┆
0x02f60…02f7a 74 61 6c 6f 67 20 61 6e 64 3a 0a 20 20 78 73 6f 73 74 65 73 74 20 3d 20 65 6e ┆talog and: xsostest = en┆
0x02f7a…02f80 (0xcc,0x60)
0x02f80…02fa0 74 72 79 20 35 30 20 73 6f 73 64 6f 63 20 3b 0a 20 20 78 73 6f 73 74 65 73 74 20 3d 20 6d 6f 76 ┆try 50 sosdoc ; xsostest = mov┆
0x02fa0…02fc0 65 20 74 73 6f 73 74 65 73 74 20 20 20 3b 20 20 20 20 20 20 20 61 20 73 69 6d 70 6c 65 20 73 79 ┆e tsostest ; a simple sy┆
0x02fc0…02fe0 73 74 65 6d 20 74 65 73 74 20 70 72 6f 67 72 61 6d 0a 20 20 78 6e 65 77 73 20 3d 20 65 6e 74 72 ┆stem test program xnews = entr┆
0x02fe0…03000 79 20 31 20 73 6f 73 64 6f 63 20 20 20 20 20 3b 0a 20 20 78 6e 65 77 73 00 00 00 00 00 00 00 00 ┆y 1 sosdoc ; xnews ┆
0x03000…03006 (24,) (0xcc,0x61)
0x03006…03020 20 3d 20 6d 6f 76 65 20 74 6e 65 77 73 20 20 20 20 20 20 20 20 20 3b 20 20 20 ┆ = move tnews ; ┆
0x03020…03040 20 20 20 20 61 6e 20 65 78 61 6d 70 6c 65 20 6f 66 20 61 20 22 6e 65 77 73 2d 66 69 6c 65 22 0a ┆ an example of a "news-file" ┆
0x03040…03060 20 20 73 63 6f 70 65 20 74 65 6d 70 20 74 73 6f 73 74 65 73 74 20 74 6e 65 77 73 20 20 3b 0a 20 ┆ scope temp tsostest tnews ; ┆
0x03060…0307e 20 63 6c 65 61 72 20 74 65 6d 70 20 74 73 6f 73 74 65 73 74 20 74 6e 65 77 73 20 20 3b 0a ┆ clear temp tsostest tnews ; ┆
0x0307e…03084 (0xcc,0x62)
0x03084…030a0 20 20 72 65 6e 61 6d 65 20 78 73 6f 73 74 65 73 74 2e 74 73 6f 73 74 65 73 74 20 20 ┆ rename xsostest.tsostest ┆
0x030a0…030c0 20 3b 0a 20 20 72 65 6e 61 6d 65 20 78 6e 65 77 73 2e 74 6e 65 77 73 20 20 20 20 20 20 20 20 20 ┆ ; rename xnews.tnews ┆
0x030c0…030e0 3b 0a 20 20 73 63 6f 70 65 20 75 73 65 72 20 74 6e 65 77 73 20 20 20 20 20 20 20 20 20 20 20 3b ┆; scope user tnews ;┆
0x030e0…030fc 0a 20 20 73 63 6f 70 65 20 75 73 65 72 20 73 6f 73 63 61 74 20 74 73 6f 73 74 65 73 ┆ scope user soscat tsostes┆
0x030fc…03102 (0xcc,0x63)
0x03102…03120 74 20 3b 20 65 6e 64 0a 29 0a 0a 73 63 6f 70 65 20 75 73 65 72 20 62 73 6f 73 20 75 70 73 ┆t ; end ) scope user bsos ups┆
0x03120…03140 6f 73 63 61 74 20 74 72 61 63 65 20 63 6c 65 61 72 74 65 6d 70 20 70 72 6f 6c 6f 67 75 65 20 62 ┆oscat trace cleartemp prologue b┆
0x03140…03160 64 69 73 70 6c 61 79 0a 0a 6f 20 73 6f 73 64 75 6d 6d 79 6f 75 74 0a 63 6c 65 61 72 20 74 65 6d ┆display o sosdummyout clear tem┆
0x03160…0317a 70 20 78 73 6f 73 20 74 72 63 6d 6f 6c 20 73 6f 73 74 72 69 6d 20 74 73 6f 73 ┆p xsos trcmol sostrim tsos┆
0x0317a…03180 (0xcc,0x64)
0x03180…031a0 63 61 74 20 74 73 6f 73 20 74 75 70 73 6f 73 63 61 74 20 74 74 72 61 63 65 2c 0a 20 20 20 20 20 ┆cat tsos tupsoscat ttrace, ┆
0x031a0…031c0 20 20 20 20 20 20 74 73 6f 73 74 65 73 74 20 73 6f 73 6c 69 73 74 20 74 63 6c 65 61 72 74 65 6d ┆ tsostest soslist tcleartem┆
0x031c0…031e0 70 20 74 70 72 6f 6c 6f 67 75 65 20 74 64 69 73 70 6c 61 79 20 74 6e 65 77 73 0a 69 66 20 32 2e ┆p tprologue tdisplay tnews if 2.┆
0x031e0…03200 6e 6f 0a 63 6c 65 61 72 20 74 65 6d 70 20 72 63 6d 6f 6c 0a 0a 6f 20 63 00 00 00 00 00 00 00 00 ┆no clear temp rcmol o c ┆
0x03200…03206 (25,) (0xcc,0x65)
0x03206…03220 0a 63 6c 65 61 72 20 74 65 6d 70 20 73 6f 73 64 75 6d 6d 79 6f 75 74 0a 0a 6d ┆ clear temp sosdummyout m┆
0x03220…03240 65 73 73 61 67 65 20 73 6f 73 20 67 65 6e 65 72 61 74 69 6f 6e 20 63 6f 6d 70 6c 65 74 65 64 0a ┆essage sos generation completed ┆
0x03240…03260 40 0a 0a 0a 0c 0a 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 2a 20 20 73 6f 73 6c 69 73 74 ┆@ ; *** soslist┆
0x03260…0327e 20 20 2a 2a 2a 0a 3b 0a 3b 0a 3b 20 6c 69 73 74 73 20 61 6c 6c 20 74 65 78 74 20 66 69 6c ┆ *** ; ; ; lists all text fil┆
0x0327e…03284 (0xcc,0x66)
0x03284…032a0 65 73 20 6f 6e 20 61 20 73 6f 73 20 73 79 73 74 65 6d 20 74 61 70 65 0a 0a 0a 6c 6f ┆es on a sos system tape lo┆
0x032a0…032c0 6f 6b 75 70 20 72 63 6d 6f 6c 0a 69 66 20 6f 6b 2e 6e 6f 0a 72 63 6d 6f 6c 20 3d 20 61 6c 67 6f ┆okup rcmol if ok.no rcmol = algo┆
0x032c0…032e0 6c 20 74 72 63 6d 6f 6c 0a 0a 6f 20 73 6f 73 74 65 78 74 73 0a 68 65 61 64 20 33 0a 63 6f 70 79 ┆l trcmol o sostexts head 3 copy┆
0x032e0…032fc 20 6c 69 73 74 2e 79 65 73 20 6d 65 73 73 61 67 65 2e 6e 6f 20 73 6f 73 68 65 6c 70 ┆ list.yes message.no soshelp┆
0x032fc…03302 (0xcc,0x67)
0x03302…03320 0a 68 65 61 64 20 33 0a 72 63 6d 6f 6c 20 74 73 6f 73 20 6c 69 73 74 2e 79 65 73 20 78 72 ┆ head 3 rcmol tsos list.yes xr┆
0x03320…03340 65 66 2e 79 65 73 0a 68 65 61 64 20 33 0a 72 63 6d 6f 6c 20 74 63 6c 65 61 72 74 65 6d 70 20 6c ┆ef.yes head 3 rcmol tcleartemp l┆
0x03340…03360 69 73 74 2e 79 65 73 20 78 72 65 66 2e 79 65 73 0a 68 65 61 64 20 33 0a 61 6c 67 6f 6c 20 74 75 ┆ist.yes xref.yes head 3 algol tu┆
0x03360…0337a 70 73 6f 73 63 61 74 20 6c 69 73 74 2e 79 65 73 20 78 72 65 66 2e 79 65 73 0a ┆psoscat list.yes xref.yes ┆
0x0337a…03380 (0xcc,0x68)
0x03380…033a0 68 65 61 64 20 33 0a 72 63 6d 6f 6c 20 74 70 72 6f 6c 6f 67 75 65 20 6c 69 73 74 2e 79 65 73 20 ┆head 3 rcmol tprologue list.yes ┆
0x033a0…033c0 78 72 65 66 2e 79 65 73 0a 68 65 61 64 20 33 0a 63 6f 70 79 20 6c 69 73 74 2e 79 65 73 20 6d 65 ┆xref.yes head 3 copy list.yes me┆
0x033c0…033e0 73 73 61 67 65 2e 6e 6f 20 74 73 6f 73 63 61 74 0a 68 65 61 64 20 33 0a 61 6c 67 6f 6c 20 74 73 ┆ssage.no tsoscat head 3 algol ts┆
0x033e0…03400 6f 73 74 65 73 74 20 6c 69 73 74 2e 79 65 73 20 78 72 65 66 2e 79 65 73 00 00 00 00 00 00 00 00 ┆ostest list.yes xref.yes ┆
0x03400…03406 (26,) (0xcc,0x69)
0x03406…03420 0a 68 65 61 64 20 33 0a 61 6c 67 6f 6c 20 74 64 69 73 70 6c 61 79 20 6c 69 73 ┆ head 3 algol tdisplay lis┆
0x03420…03440 74 2e 79 65 73 20 78 72 65 66 2e 79 65 73 0a 68 65 61 64 20 33 0a 63 6f 70 79 20 6c 69 73 74 2e ┆t.yes xref.yes head 3 copy list.┆
0x03440…03460 79 65 73 20 6d 65 73 73 61 67 65 2e 6e 6f 20 74 6e 65 77 73 0a 68 65 61 64 20 31 0a 6f 20 63 0a ┆yes message.no tnews head 1 o c ┆
0x03460…0347e 0a 63 6f 6e 76 65 72 74 20 73 6f 73 74 65 78 74 73 0a 69 66 20 32 2e 6e 6f 0a 63 6c 65 61 ┆ convert sostexts if 2.no clea┆
0x0347e…03484 (0xcc,0x6a)
0x03484…034a0 72 20 74 65 6d 70 20 72 63 6d 6f 6c 0a 40 0a 3f 0a 0c 0a 3b 20 20 20 20 20 20 20 20 ┆r temp rcmol @ ? ; ┆
0x034a0…034c0 20 20 20 20 20 2a 2a 2a 20 20 6d 69 70 73 74 72 69 6d 20 20 2a 2a 2a 0a 3b 0a 0a 6d 6f 64 65 20 ┆ *** mipstrim *** ; mode ┆
0x034c0…034e0 32 2e 79 65 73 20 20 20 20 20 20 20 20 20 3b 20 70 72 65 76 65 6e 74 20 73 65 76 65 72 61 6c 20 ┆2.yes ; prevent several ┆
0x034e0…034fc 74 72 61 6e 73 6c 61 74 69 6f 6e 73 20 6f 66 20 74 68 65 20 72 63 6d 6f 6c 20 63 6f ┆translations of the rcmol co┆
0x034fc…03502 (0xcc,0x6b)
0x03502…03520 6d 70 69 6c 65 72 0a 0a 6d 69 70 64 75 6d 6d 79 6f 75 74 3d 73 65 74 20 31 0a 6f 20 6d 69 ┆mpiler mipdummyout=set 1 o mi┆
0x03520…03540 70 64 75 6d 6d 79 6f 75 74 0a 6d 6f 64 65 20 31 2e 6e 6f 0a 6c 6f 6f 6b 75 70 20 6d 69 70 73 64 ┆pdummyout mode 1.no lookup mipsd┆
0x03540…03560 6f 63 0a 69 66 20 6f 6b 2e 6e 6f 0a 6d 6f 64 65 20 31 2e 79 65 73 0a 6f 20 63 0a 69 66 20 31 2e ┆oc if ok.no mode 1.yes o c if 1.┆
0x03560…0357a 79 65 73 0a 6d 69 70 73 64 6f 63 20 3d 20 73 65 74 20 31 0a 74 65 6d 64 6f 63 ┆yes mipsdoc = set 1 temdoc┆
0x0357a…03580 (0xcc,0x6c)
0x03580…035a0 20 20 3d 20 65 6e 74 72 79 20 31 20 6d 69 70 73 64 6f 63 0a 70 72 69 6d 6f 64 6f 63 3d 20 65 6e ┆ = entry 1 mipsdoc primodoc= en┆
0x035a0…035c0 74 72 79 20 31 20 6d 69 70 73 64 6f 63 0a 73 6f 73 64 6f 63 20 20 3d 20 65 6e 74 72 79 20 31 20 ┆try 1 mipsdoc sosdoc = entry 1 ┆
0x035c0…035e0 6d 69 70 73 64 6f 63 0a 0a 72 63 6d 6f 6c 3d 61 6c 67 6f 6c 20 74 72 63 6d 6f 6c 0a 0a 74 72 61 ┆mipsdoc rcmol=algol trcmol tra┆
0x035e0…03600 63 65 20 20 20 3d 20 65 6e 74 72 79 20 34 30 20 6d 69 70 73 64 6f 63 0a 00 00 00 00 00 00 00 00 ┆ce = entry 40 mipsdoc ┆
0x03600…03606 (27,) (0xcc,0x6d)
0x03606…03620 74 72 61 63 65 20 20 20 3d 20 61 6c 67 6f 6c 20 74 74 72 61 63 65 0a 0a 69 20 ┆trace = algol ttrace i ┆
0x03620…03640 74 65 6d 68 65 6c 70 0a 69 20 74 65 6d 74 72 69 6d 0a 0a 69 20 70 72 69 6d 6f 68 65 6c 70 0a 69 ┆temhelp i temtrim i primohelp i┆
0x03640…03660 20 70 72 69 6d 6f 74 72 69 6d 0a 0a 69 20 73 6f 73 68 65 6c 70 0a 69 20 73 6f 73 74 72 69 6d 0a ┆ primotrim i soshelp i sostrim ┆
0x03660…0367e 0a 63 6c 65 61 72 20 74 65 6d 70 20 6d 69 70 64 75 6d 6d 79 6f 75 74 0a 0a 6d 6f 64 65 20 ┆ clear temp mipdummyout mode ┆
0x0367e…03684 (0xcc,0x6e)
0x03684…036a0 32 2e 6e 6f 0a 3f 0a 0c 0a 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 2a 20 20 ┆2.no ? ; *** ┆
0x036a0…036c0 6d 69 70 73 6c 69 73 74 20 20 2a 2a 2a 0a 3b 0a 0a 6d 6f 64 65 20 32 2e 79 65 73 20 20 20 20 3b ┆mipslist *** ; mode 2.yes ;┆
0x036c0…036e0 20 70 72 65 76 65 6e 74 20 73 65 76 65 72 61 6c 20 74 72 61 6e 73 6c 61 74 69 6f 6e 73 20 6f 66 ┆ prevent several translations of┆
0x036e0…036fc 20 74 68 65 20 72 63 6d 6f 6c 20 63 6f 6d 70 69 6c 65 72 0a 0a 72 63 6d 6f 6c 3d 61 ┆ the rcmol compiler rcmol=a┆
0x036fc…03702 (0xcc,0x6f)
0x03702…03720 6c 67 6f 6c 20 74 72 63 6d 6f 6c 0a 0a 69 20 74 65 6d 68 65 6c 70 0a 69 20 74 65 6d 6c 69 ┆lgol trcmol i temhelp i temli┆
0x03720…03740 73 74 0a 0a 69 20 70 72 69 6d 6f 68 65 6c 70 0a 69 20 70 72 69 6d 6f 6c 69 73 74 0a 0a 69 20 73 ┆st i primohelp i primolist i s┆
0x03740…03760 6f 73 68 65 6c 70 0a 69 20 73 6f 73 6c 69 73 74 0a 0a 6d 6f 64 65 20 32 2e 6e 6f 0a 3f 0a 0c 0a ┆oshelp i soslist mode 2.no ? ┆
0x03760…0377a 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 2a 20 20 6d 69 70 73 6c 6f 61 ┆; *** mipsloa┆
0x0377a…03780 (0xcc,0x70)
0x03780…037a0 64 20 20 2a 2a 2a 0a 0a 6d 69 70 64 75 6d 6d 79 6f 75 74 3d 73 65 74 20 31 0a 6f 20 6d 69 70 64 ┆d *** mipdummyout=set 1 o mipd┆
0x037a0…037c0 75 6d 6d 79 6f 75 74 0a 6d 6f 64 65 20 31 2e 6e 6f 0a 6c 6f 6f 6b 75 70 20 6d 69 70 73 64 6f 63 ┆ummyout mode 1.no lookup mipsdoc┆
0x037c0…037e0 0a 69 66 20 6f 6b 2e 6e 6f 0a 6d 6f 64 65 20 31 2e 79 65 73 0a 6f 20 63 0a 69 66 20 31 2e 79 65 ┆ if ok.no mode 1.yes o c if 1.ye┆
0x037e0…03800 73 0a 6d 69 70 73 64 6f 63 3d 73 65 74 20 31 0a 0a 62 69 6e 69 6e 20 62 00 00 00 00 00 00 00 00 ┆s mipsdoc=set 1 binin b ┆
0x03800…03806 (28,) (0xcc,0x71)
0x03806…03820 63 68 65 63 6b 6d 74 0a 0a 63 68 65 63 6b 6d 74 20 6d 69 70 73 68 65 6c 70 0a ┆checkmt checkmt mipshelp ┆
0x03820…03840 69 66 20 6f 6b 2e 6e 6f 0a 65 6e 64 0a 0a 66 3d 65 6e 74 72 79 20 6d 69 70 73 68 65 6c 70 20 6d ┆if ok.no end f=entry mipshelp m┆
0x03840…03860 69 70 73 68 65 6c 70 20 64 2e 30 20 31 0a 69 66 20 6f 6b 2e 6e 6f 0a 65 6e 64 0a 0a 63 6c 65 61 ┆ipshelp d.0 1 if ok.no end clea┆
0x03860…0387e 72 20 74 65 6d 70 20 6d 69 70 73 69 64 20 6d 69 70 73 68 65 6c 70 20 62 63 68 65 63 6b 6d ┆r temp mipsid mipshelp bcheckm┆
0x0387e…03884 (0xcc,0x72)
0x03884…038a0 74 20 74 72 63 6d 6f 6c 20 74 74 72 61 63 65 2c 0a 20 20 20 20 20 20 20 20 20 20 20 ┆t trcmol ttrace, ┆
0x038a0…038c0 74 74 65 6d 20 74 74 65 6d 74 65 73 74 2c 0a 20 20 20 20 20 20 20 20 20 20 20 74 70 72 69 6d 6f ┆ttem ttemtest, tprimo┆
0x038c0…038e0 20 74 74 72 61 6e 73 66 65 72 20 74 66 69 6c 65 75 74 69 6c 2c 0a 20 20 20 20 20 20 20 20 20 20 ┆ ttransfer tfileutil, ┆
0x038e0…038fc 20 74 73 6f 73 20 74 63 6c 65 61 72 74 65 6d 70 20 74 75 70 73 6f 73 63 61 74 20 74 ┆ tsos tcleartemp tupsoscat t┆
0x038fc…03902 (0xcc,0x73)
0x03902…03920 70 72 6f 6c 6f 67 75 65 20 74 73 6f 73 63 61 74 20 74 73 6f 73 74 65 73 74 20 74 64 69 73 ┆prologue tsoscat tsostest tdis┆
0x03920…03940 70 6c 61 79 20 74 6e 65 77 73 0a 0a 6d 69 70 73 69 64 3d 65 6e 74 72 79 20 31 20 6d 69 70 73 64 ┆play tnews mipsid=entry 1 mipsd┆
0x03940…03960 6f 63 0a 6d 69 70 73 69 64 3d 63 6f 70 79 20 66 0a 0a 6e 65 78 74 66 69 6c 65 20 66 0a 6d 69 70 ┆oc mipsid=copy f nextfile f mip┆
0x03960…0397a 73 68 65 6c 70 3d 65 6e 74 72 79 20 31 35 20 6d 69 70 73 64 6f 63 0a 6d 69 70 ┆shelp=entry 15 mipsdoc mip┆
0x0397a…03980 (0xcc,0x74)
0x03980…039a0 73 68 65 6c 70 3d 63 6f 70 79 20 66 0a 0a 6e 65 78 74 66 69 6c 65 20 66 0a 62 63 68 65 63 6b 6d ┆shelp=copy f nextfile f bcheckm┆
0x039a0…039c0 74 3d 65 6e 74 72 79 20 31 20 6d 69 70 73 64 6f 63 0a 62 63 68 65 63 6b 6d 74 3d 6d 6f 76 65 20 ┆t=entry 1 mipsdoc bcheckmt=move ┆
0x039c0…039e0 66 0a 0a 6e 65 78 74 66 69 6c 65 20 66 0a 74 72 63 6d 6f 6c 3d 65 6e 74 72 79 20 31 37 38 20 6d ┆f nextfile f trcmol=entry 178 m┆
0x039e0…03a00 69 70 73 64 6f 63 0a 74 72 63 6d 6f 6c 3d 63 6f 70 79 20 66 0a 0a 6e 65 00 00 00 00 00 00 00 00 ┆ipsdoc trcmol=copy f ne ┆
0x03a00…03a06 (29,) (0xcc,0x75)
0x03a06…03a20 78 74 66 69 6c 65 20 66 0a 74 74 72 61 63 65 3d 65 6e 74 72 79 20 34 30 20 6d ┆xtfile f ttrace=entry 40 m┆
0x03a20…03a40 69 70 73 64 6f 63 0a 74 74 72 61 63 65 3d 63 6f 70 79 20 66 0a 0a 6e 65 78 74 66 69 6c 65 20 66 ┆ipsdoc ttrace=copy f nextfile f┆
0x03a40…03a60 0a 74 74 65 6d 3d 65 6e 74 72 79 20 39 30 20 6d 69 70 73 64 6f 63 0a 74 74 65 6d 3d 63 6f 70 79 ┆ ttem=entry 90 mipsdoc ttem=copy┆
0x03a60…03a7e 20 66 0a 0a 6e 65 78 74 66 69 6c 65 20 66 0a 74 74 65 6d 74 65 73 74 3d 65 6e 74 72 79 20 ┆ f nextfile f ttemtest=entry ┆
0x03a7e…03a84 (0xcc,0x76)
0x03a84…03aa0 35 20 6d 69 70 73 64 6f 63 0a 74 74 65 6d 74 65 73 74 3d 63 6f 70 79 20 66 0a 0a 6e ┆5 mipsdoc ttemtest=copy f n┆
0x03aa0…03ac0 65 78 74 66 69 6c 65 20 66 0a 74 70 72 69 6d 6f 3d 65 6e 74 72 79 20 31 35 30 20 6d 69 70 73 64 ┆extfile f tprimo=entry 150 mipsd┆
0x03ac0…03ae0 6f 63 0a 74 70 72 69 6d 6f 3d 63 6f 70 79 20 66 0a 0a 6e 65 78 74 66 69 6c 65 20 66 0a 74 74 72 ┆oc tprimo=copy f nextfile f ttr┆
0x03ae0…03afc 61 6e 73 66 65 72 3d 65 6e 74 72 79 20 34 30 20 6d 69 70 73 64 6f 63 0a 74 74 72 61 ┆ansfer=entry 40 mipsdoc ttra┆
0x03afc…03b02 (0xcc,0x77)
0x03b02…03b20 6e 73 66 65 72 3d 63 6f 70 79 20 66 0a 0a 6e 65 78 74 66 69 6c 65 20 66 0a 74 66 69 6c 65 ┆nsfer=copy f nextfile f tfile┆
0x03b20…03b40 75 74 69 6c 3d 65 6e 74 72 79 20 35 30 20 6d 69 70 73 64 6f 63 0a 74 66 69 6c 65 75 74 69 6c 3d ┆util=entry 50 mipsdoc tfileutil=┆
0x03b40…03b60 63 6f 70 79 20 66 0a 0a 6e 65 78 74 66 69 6c 65 20 66 0a 74 73 6f 73 3d 65 6e 74 72 79 20 31 36 ┆copy f nextfile f tsos=entry 16┆
0x03b60…03b7a 30 20 6d 69 70 73 64 6f 63 0a 74 73 6f 73 3d 63 6f 70 79 20 66 0a 0a 6e 65 78 ┆0 mipsdoc tsos=copy f nex┆
0x03b7a…03b80 (0xcc,0x78)
0x03b80…03ba0 74 66 69 6c 65 20 66 0a 74 63 6c 65 61 72 74 65 6d 70 3d 65 6e 74 72 79 20 31 30 20 6d 69 70 73 ┆tfile f tcleartemp=entry 10 mips┆
0x03ba0…03bc0 64 6f 63 0a 74 63 6c 65 61 72 74 65 6d 70 3d 63 6f 70 79 20 66 0a 0a 6e 65 78 74 66 69 6c 65 20 ┆doc tcleartemp=copy f nextfile ┆
0x03bc0…03be0 66 0a 74 75 70 73 6f 73 63 61 74 3d 65 6e 74 72 79 20 31 30 30 20 6d 69 70 73 64 6f 63 0a 74 75 ┆f tupsoscat=entry 100 mipsdoc tu┆
0x03be0…03c00 70 73 6f 73 63 61 74 3d 63 6f 70 79 20 66 0a 0a 6e 65 78 74 66 69 6c 65 00 00 00 00 00 00 00 00 ┆psoscat=copy f nextfile ┆
0x03c00…03c06 (30,) (0xcc,0x79)
0x03c06…03c20 20 66 0a 74 70 72 6f 6c 6f 67 75 65 3d 65 6e 74 72 79 20 32 30 20 6d 69 70 73 ┆ f tprologue=entry 20 mips┆
0x03c20…03c40 64 6f 63 0a 74 70 72 6f 6c 6f 67 75 65 3d 63 6f 70 79 20 66 0a 0a 6e 65 78 74 66 69 6c 65 20 66 ┆doc tprologue=copy f nextfile f┆
0x03c40…03c60 0a 74 73 6f 73 63 61 74 3d 65 6e 74 72 79 20 31 30 20 6d 69 70 73 64 6f 63 0a 74 73 6f 73 63 61 ┆ tsoscat=entry 10 mipsdoc tsosca┆
0x03c60…03c7e 74 3d 63 6f 70 79 20 66 0a 0a 6e 65 78 74 66 69 6c 65 20 66 0a 74 73 6f 73 74 65 73 74 3d ┆t=copy f nextfile f tsostest=┆
0x03c7e…03c84 (0xcc,0x7a)
0x03c84…03ca0 65 6e 74 72 79 20 31 30 20 6d 69 70 73 64 6f 63 0a 74 73 6f 73 74 65 73 74 3d 63 6f ┆entry 10 mipsdoc tsostest=co┆
0x03ca0…03cc0 70 79 20 66 0a 0a 6e 65 78 74 66 69 6c 65 20 66 0a 74 64 69 73 70 6c 61 79 3d 65 6e 74 72 79 20 ┆py f nextfile f tdisplay=entry ┆
0x03cc0…03ce0 31 30 20 6d 69 70 73 64 6f 63 0a 74 64 69 73 70 6c 61 79 3d 63 6f 70 79 20 66 0a 0a 6e 65 78 74 ┆10 mipsdoc tdisplay=copy f next┆
0x03ce0…03cfc 66 69 6c 65 20 66 0a 74 6e 65 77 73 3d 65 6e 74 72 79 20 31 20 6d 69 70 73 64 6f 63 ┆file f tnews=entry 1 mipsdoc┆
0x03cfc…03d02 (0xcc,0x7b)
0x03d02…03d20 0a 74 6e 65 77 73 3d 63 6f 70 79 20 66 0a 0a 73 63 6f 70 65 20 75 73 65 72 20 6d 69 70 73 ┆ tnews=copy f scope user mips┆
0x03d20…03d40 69 64 20 6d 69 70 73 68 65 6c 70 20 62 63 68 65 63 6b 6d 74 20 74 72 63 6d 6f 6c 20 74 74 72 61 ┆id mipshelp bcheckmt trcmol ttra┆
0x03d40…03d60 63 65 20 74 74 65 6d 20 74 74 65 6d 74 65 73 74 20 74 70 72 69 6d 6f 20 74 74 72 61 6e 73 66 65 ┆ce ttem ttemtest tprimo ttransfe┆
0x03d60…03d7a 72 2c 0a 20 20 20 20 20 20 20 20 20 20 20 74 66 69 6c 65 75 74 69 6c 20 74 73 ┆r, tfileutil ts┆
0x03d7a…03d80 (0xcc,0x7c)
0x03d80…03da0 6f 73 20 74 63 6c 65 61 72 74 65 6d 70 20 74 75 70 73 6f 73 63 61 74 20 74 70 72 6f 6c 6f 67 75 ┆os tcleartemp tupsoscat tprologu┆
0x03da0…03dc0 65 20 74 73 6f 73 63 61 74 20 74 73 6f 73 74 65 73 74 2c 0a 20 20 20 20 20 20 20 20 20 20 20 74 ┆e tsoscat tsostest, t┆
0x03dc0…03de0 64 69 73 70 6c 61 79 20 74 6e 65 77 73 0a 3f 0a 0c 0a 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆display tnews ? ; ┆
0x03de0…03e00 2a 2a 2a 20 20 6d 69 70 73 73 61 76 65 20 20 2a 2a 2a 0a 0a 6d 69 70 64 00 00 00 00 00 00 00 00 ┆*** mipssave *** mipd ┆
0x03e00…03e06 (31,) (0xcc,0x7d)
0x03e06…03e20 75 6d 6d 79 6f 75 74 3d 73 65 74 20 31 0a 0a 62 69 6e 69 6e 20 62 63 68 65 63 ┆ummyout=set 1 binin bchec┆
0x03e20…03e40 6b 6d 74 0a 0a 63 68 65 63 6b 6d 74 20 6d 69 70 73 64 6f 63 0a 69 66 20 6f 6b 2e 6e 6f 0a 65 6e ┆kmt checkmt mipsdoc if ok.no en┆
0x03e40…03e60 64 0a 0a 66 3d 65 6e 74 72 79 20 6d 69 70 73 64 6f 63 20 6d 69 70 73 64 6f 63 20 64 2e 30 20 31 ┆d f=entry mipsdoc mipsdoc d.0 1┆
0x03e60…03e7e 0a 69 66 20 6f 6b 2e 6e 6f 0a 65 6e 64 0a 0a 0a 66 3d 63 6f 70 79 20 6d 69 70 73 69 64 0a ┆ if ok.no end f=copy mipsid ┆
0x03e7e…03e84 (0xcc,0x7e)
0x03e84…03ea0 0a 6e 65 78 74 66 69 6c 65 20 66 0a 66 3d 63 6f 70 79 20 6d 69 70 73 68 65 6c 70 0a ┆ nextfile f f=copy mipshelp ┆
0x03ea0…03ec0 0a 6e 65 78 74 66 69 6c 65 20 66 0a 66 3d 6d 6f 76 65 20 62 63 68 65 63 6b 6d 74 0a 0a 6e 65 78 ┆ nextfile f f=move bcheckmt nex┆
0x03ec0…03ee0 74 66 69 6c 65 20 66 0a 66 3d 63 6f 70 79 20 74 72 63 6d 6f 6c 0a 0a 6e 65 78 74 66 69 6c 65 20 ┆tfile f f=copy trcmol nextfile ┆
0x03ee0…03efc 66 0a 66 3d 63 6f 70 79 20 74 74 72 61 63 65 0a 0a 6e 65 78 74 66 69 6c 65 20 66 0a ┆f f=copy ttrace nextfile f ┆
0x03efc…03f02 (0xcc,0x7f)
0x03f02…03f20 66 3d 63 6f 70 79 20 74 74 65 6d 0a 0a 6e 65 78 74 66 69 6c 65 20 66 0a 66 3d 63 6f 70 79 ┆f=copy ttem nextfile f f=copy┆
0x03f20…03f40 20 74 74 65 6d 74 65 73 74 0a 0a 6e 65 78 74 66 69 6c 65 20 66 0a 66 3d 63 6f 70 79 20 74 70 72 ┆ ttemtest nextfile f f=copy tpr┆
0x03f40…03f60 69 6d 6f 0a 0a 6e 65 78 74 66 69 6c 65 20 66 0a 66 3d 63 6f 70 79 20 74 74 72 61 6e 73 66 65 72 ┆imo nextfile f f=copy ttransfer┆
0x03f60…03f7a 0a 0a 6e 65 78 74 66 69 6c 65 20 66 0a 66 3d 63 6f 70 79 20 74 66 69 6c 65 75 ┆ nextfile f f=copy tfileu┆
0x03f7a…03f80 (0xcc,0x80)
0x03f80…03fa0 74 69 6c 0a 0a 6e 65 78 74 66 69 6c 65 20 66 0a 66 3d 63 6f 70 79 20 74 73 6f 73 0a 0a 6e 65 78 ┆til nextfile f f=copy tsos nex┆
0x03fa0…03fc0 74 66 69 6c 65 20 66 0a 66 3d 63 6f 70 79 20 74 63 6c 65 61 72 74 65 6d 70 0a 0a 6e 65 78 74 66 ┆tfile f f=copy tcleartemp nextf┆
0x03fc0…03fe0 69 6c 65 20 66 0a 66 3d 63 6f 70 79 20 74 75 70 73 6f 73 63 61 74 0a 0a 6e 65 78 74 66 69 6c 65 ┆ile f f=copy tupsoscat nextfile┆
0x03fe0…04000 20 66 0a 66 3d 63 6f 70 79 20 74 70 72 6f 6c 6f 67 75 65 0a 0a 6e 65 78 00 00 00 00 00 00 00 00 ┆ f f=copy tprologue nex ┆
0x04000…04006 (32,) (0xcc,0x81)
0x04006…04020 74 66 69 6c 65 20 66 0a 66 3d 63 6f 70 79 20 74 73 6f 73 63 61 74 0a 0a 6e 65 ┆tfile f f=copy tsoscat ne┆
0x04020…04040 78 74 66 69 6c 65 20 66 0a 66 3d 63 6f 70 79 20 74 73 6f 73 74 65 73 74 0a 0a 6e 65 78 74 66 69 ┆xtfile f f=copy tsostest nextfi┆
0x04040…04060 6c 65 20 66 0a 66 3d 63 6f 70 79 20 74 64 69 73 70 6c 61 79 0a 0a 6e 65 78 74 66 69 6c 65 20 66 ┆le f f=copy tdisplay nextfile f┆
0x04060…0407e 0a 66 3d 63 6f 70 79 20 74 6e 65 77 73 0a 0a 63 6c 65 61 72 20 74 65 6d 70 20 66 20 63 68 ┆ f=copy tnews clear temp f ch┆
0x0407e…04084 (0xcc,0x82)
0x04084…040a0 65 63 6b 6d 74 20 6d 69 70 64 75 6d 6d 79 6f 75 74 0a 3f 0a 19 65 72 2c 0a 20 20 20 ┆eckmt mipdummyout ? er, ┆
0x040a0…040c0 20 20 20 20 20 20 20 20 74 66 69 6c 65 75 74 69 6c 20 74 73 6f 73 20 74 63 6c 65 61 72 74 65 6d ┆ tfileutil tsos tcleartem┆
0x040c0…040e0 70 20 74 75 70 73 6f 73 63 61 74 20 74 70 72 6f 6c 6f 67 75 65 20 74 73 6f 73 63 61 74 20 74 73 ┆p tupsoscat tprologue tsoscat ts┆
0x040e0…040fc 6f 73 74 65 73 74 2c 0a 20 20 20 20 20 20 20 20 20 20 20 74 64 69 73 70 6c 61 79 20 ┆ostest, tdisplay ┆
0x040fc…04102 (0xcc,0x83)
0x04102…04120 74 6e 65 77 73 0a 3f 0a 0c 0a 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 2a 20 20 6d ┆tnews ? ; *** m┆
0x04120…04140 69 70 73 73 61 76 65 20 20 2a 2a 2a 0a 0a 6d 69 70 64 75 6d 6d 79 6f 75 74 3d 73 65 74 20 31 0a ┆ipssave *** mipdummyout=set 1 ┆
0x04140…04160 0a 62 69 6e 69 6e 20 62 63 68 65 63 6b 6d 74 0a 0a 63 68 65 63 6b 6d 74 20 6d 69 70 73 64 6f 63 ┆ binin bcheckmt checkmt mipsdoc┆
0x04160…0417a 0a 69 66 20 6f 6b 2e 6e 6f 0a 65 6e 64 0a 0a 66 3d 65 6e 74 72 79 20 6d 69 70 ┆ if ok.no end f=entry mip┆
0x0417a…04180 (0xcc,0x84)
0x04180…041a0 73 64 6f 63 20 6d 69 70 73 64 6f 63 20 64 2e 30 20 31 0a 69 66 20 6f 6b 2e 6e 6f 0a 65 6e 64 0a ┆sdoc mipsdoc d.0 1 if ok.no end ┆
0x041a0…041c0 0a 0a 66 3d 63 6f 70 79 20 6d 69 70 73 69 64 0a 0a 6e 65 78 74 66 69 6c 65 20 66 0a 66 3d 63 6f ┆ f=copy mipsid nextfile f f=co┆
0x041c0…041e0 70 79 20 6d 69 70 73 68 65 6c 70 0a 0a 6e 65 78 74 66 69 6c 65 20 66 0a 66 3d 6d 6f 76 65 20 62 ┆py mipshelp nextfile f f=move b┆
0x041e0…04200 63 68 65 63 6b 6d 74 0a 0a 6e 65 78 74 66 69 6c 65 20 66 0a 66 3d 63 6f 00 00 00 00 00 00 00 00 ┆checkmt nextfile f f=co ┆
0x04200…04206 (33,) (0xcc,0x85)
0x04206…04220 70 79 20 74 72 63 6d 6f 6c 0a 0a 6e 65 78 74 66 69 6c 65 20 66 0a 66 3d 63 6f ┆py trcmol nextfile f f=co┆
0x04220…04240 70 79 20 74 74 72 61 63 65 0a 0a 6e 65 78 74 66 69 6c 65 20 66 0a 66 3d 63 6f 70 79 20 74 74 65 ┆py ttrace nextfile f f=copy tte┆
0x04240…04260 6d 0a 0a 6e 65 78 74 66 69 6c 65 20 66 0a 66 3d 63 6f 70 79 20 74 74 65 6d 74 65 73 74 0a 0a 6e ┆m nextfile f f=copy ttemtest n┆
0x04260…0427e 65 78 74 66 69 6c 65 20 66 0a 66 3d 63 6f 70 79 20 74 70 72 69 6d 6f 0a 0a 6e 65 78 74 66 ┆extfile f f=copy tprimo nextf┆
0x0427e…04284 (0xcc,0x86)
0x04284…042a0 69 6c 65 20 66 0a 66 3d 63 6f 70 79 20 74 74 72 61 6e 73 66 65 72 0a 0a 6e 65 78 74 ┆ile f f=copy ttransfer next┆
0x042a0…042c0 66 69 6c 65 20 66 0a 66 3d 63 6f 70 79 20 74 66 69 6c 65 75 74 69 6c 0a 0a 6e 65 78 74 66 69 6c ┆file f f=copy tfileutil nextfil┆
0x042c0…042e0 65 20 66 0a 66 3d 63 6f 70 79 20 74 73 6f 73 0a 0a 6e 65 78 74 66 69 6c 65 20 66 0a 66 3d 63 6f ┆e f f=copy tsos nextfile f f=co┆
0x042e0…042fc 70 79 20 74 63 6c 65 61 72 74 65 6d 70 0a 0a 6e 65 78 74 66 69 6c 65 20 66 0a 66 3d ┆py tcleartemp nextfile f f=┆
0x042fc…04302 (0xcc,0x87)
0x04302…04320 63 6f 70 79 20 74 75 70 73 6f 73 63 61 74 0a 0a 6e 65 78 74 66 69 6c 65 66 3d 63 6f 70 79 ┆copy tupsoscat nextfilef=copy┆
0x04320…04340 20 74 74 65 6d 74 65 73 74 0a 0a 6e 65 78 74 66 69 6c 65 20 66 0a 66 3d 63 6f 70 79 20 74 70 72 ┆ ttemtest nextfile f f=copy tpr┆
0x04340…04360 69 6d 6f 0a 0a 6e 65 78 74 66 69 6c 65 20 66 0a 66 3d 63 6f 70 79 20 74 74 72 61 6e 73 66 65 72 ┆imo nextfile f f=copy ttransfer┆
0x04360…0437a 0a 0a 6e 65 78 74 66 69 6c 65 20 66 0a 66 3d 63 6f 70 79 20 74 66 69 6c 65 75 ┆ nextfile f f=copy tfileu┆
0x0437a…04380 (0x130,0x88)
0x04380…043a0 98 37 89 25 98 97 91 25 98 b6 a1 25 98 b6 ad ad 9d 80 80 80 80 80 80 80 80 80 80 01 80 80 80 01 ┆ 7 % % % ┆
0x043a0…043c0 98 b0 80 80 80 80 80 80 80 80 80 80 9b 2c bc 83 80 80 80 80 80 80 80 80 80 02 80 04 80 80 08 80 ┆ , ┆
0x043c0…043e0 9b 86 3d a1 19 80 80 80 98 b6 a1 25 98 b6 ad ad 9d 80 80 80 80 80 80 80 80 80 80 01 cb 80 80 80 ┆ = % ┆
0x043e0…04400 80 80 80 80 80 2a 23 80 80 0d 08 80 2c 92 b3 80 01 02 83 80 01 2a 80 80 00 00 00 00 00 00 00 00 ┆ *# , * ┆
0x04400…04406 (34,) (0x130,0x89)
0x04406…04420 8a 0d 08 80 a4 0b 23 80 8a 02 02 80 80 a8 80 80 80 a1 04 80 80 2a 80 80 02 0d ┆ # * ┆
0x04420…04440 08 80 98 0b 98 80 ba 0b b3 80 02 0e 80 20 2a 2a 80 80 80 0d 08 80 ae 0b 20 80 80 02 01 80 01 ab ┆ ** ┆
0x04440…04460 80 80 92 a8 25 80 80 0d 08 80 8c 0d 08 a8 80 0b 08 80 38 0d 38 37 80 0b 20 80 01 0d 08 a7 38 0b ┆ % 8 87 8 ┆
0x04460…0447e 23 80 80 0b 08 80 ba 0d 38 b6 b6 0b 02 80 80 0d 38 b6 32 94 98 01 8c 2a 10 80 80 89 80 80 ┆# 8 8 2 * ┆
0x0447e…04484 (0x130,0x8a)
0x04484…044a0 8a 0b 08 80 34 0d 38 b6 a8 0b 20 80 01 0d 08 a7 20 97 08 80 3e 0d 08 bf 26 80 80 80 ┆ 4 8 > & ┆
0x044a0…044c0 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 ┆ ┆
0x044c0…044e0 80 80 80 80 80 8a a2 a8 2a 98 b6 a1 25 98 b6 ad ad 9d 02 01 b0 98 97 89 a1 9b 10 a8 80 8a a2 a8 ┆ * % ┆
0x044e0…044fc 2a 98 b6 a1 25 98 b6 ad ad 9d 02 80 80 08 86 b9 2f 9d 02 01 ad 98 16 9d 34 98 97 01 ┆* % / 4 ┆
0x044fc…04502 (0x130,0x8b)
0x04502…04520 25 02 20 80 80 08 07 15 ae 1a b6 b9 2f 9d b6 38 8a 80 80 80 80 80 80 80 80 80 80 80 80 80 ┆% / 8 ┆
0x04520…04540 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 ┆ ┆
[…0x1…]
0x04560…0457a 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 ┆ ┆
0x0457a…04580 (0x130,0x8c)
0x04580…045a0 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 ┆ ┆
[…0x2…]
0x045e0…04600 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 00 00 00 00 00 00 00 00 ┆ ┆
0x04600…04606 (35,) (0x130,0x8d)
0x04606…04620 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 ┆ ┆
0x04620…04640 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 ┆ ┆
[…0x1…]
0x04660…0467e 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 ┆ ┆
0x0467e…04684 (0x130,0x8e)
0x04684…046a0 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 ┆ ┆
0x046a0…046c0 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 ┆ ┆
[…0x1…]
0x046e0…046fc 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 ┆ ┆
0x046fc…04702 (0x130,0x8f)
0x04702…04720 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 ┆ ┆
0x04720…04740 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 ┆ ┆
[…0x1…]
0x04760…0477a 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 ┆ ┆
0x0477a…04780 (0x130,0x90)
0x04780…047a0 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 ┆ ┆
[…0x2…]
0x047e0…04800 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 00 00 00 00 00 00 00 00 ┆ ┆
0x04800…04806 (36,) (0x130,0x91)
0x04806…04820 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 ┆ ┆
0x04820…04840 80 80 80 80 80 80 80 80 80 80 80 e5 00 01 ad 98 16 9d 34 98 97 01 25 02 20 80 80 08 07 15 ae 1a ┆ 4 % ┆
0x04840…04860 b6 b9 2f 9d b6 38 8a 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 ┆ / 8 ┆
0x04860…0487e 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 ┆ ┆
0x0487e…04884 (0x130,0x92)
0x04884…048a0 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 ┆ ┆
0x048a0…048c0 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 ┆ ┆
[…0x1…]
0x048e0…048fc 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 ┆ ┆
0x048fc…04902 (0x130,0x93)
0x04902…04920 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 ┆ ┆
0x04920…04940 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 ┆ ┆
[…0x1…]
0x04960…0497a 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 ┆ ┆
0x0497a…04980 (0x130,0x94)
0x04980…049a0 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 ┆ ┆
[…0x2…]
0x049e0…04a00 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 00 00 00 00 00 00 00 00 ┆ ┆
0x04a00…04a06 (37,) (0x194,0x95)
0x04a06…04a20 28 72 63 6d 6f 6c 3d 61 6c 67 6f 6c 0a 73 63 6f 70 65 20 75 73 65 72 20 72 63 ┆(rcmol=algol scope user rc┆
0x04a20…04a40 6d 6f 6c 0a 65 6e 64 29 0a 62 65 67 69 6e 0a 20 20 20 20 20 62 6f 6f 6c 65 61 6e 20 78 72 65 66 ┆mol end) begin boolean xref┆
0x04a40…04a60 3b 0a 20 20 20 20 20 69 6e 74 65 67 65 72 20 76 65 72 73 69 6f 6e 69 64 3b 0a 20 20 20 20 20 7a ┆; integer versionid; z┆
0x04a60…04a7e 6f 6e 65 20 7a 78 72 65 66 28 31 32 38 2c 31 2c 73 74 64 65 72 72 6f 72 29 3b 0a 20 20 20 ┆one zxref(128,1,stderror); ┆
0x04a7e…04a84 (0x194,0x96)
0x04a84…04aa0 20 20 69 6e 74 65 67 65 72 20 66 69 65 6c 64 20 69 66 32 2c 69 66 34 2c 69 66 36 2c ┆ integer field if2,if4,if6,┆
0x04aa0…04ac0 69 66 38 3b 0a 20 20 20 20 20 69 66 32 3a 3d 32 3b 20 69 66 34 3a 3d 34 3b 20 69 66 36 3a 3d 36 ┆if8; if2:=2; if4:=4; if6:=6┆
0x04ac0…04ae0 3b 20 69 66 38 3a 3d 38 3b 0a 0a 20 20 20 20 20 66 6f 72 20 76 65 72 73 69 6f 6e 69 64 3a 3d 20 ┆; if8:=8; for versionid:= ┆
0x04ae0…04afc 38 35 20 30 31 20 32 34 2c 20 31 36 20 77 68 69 6c 65 20 76 65 72 73 69 6f 6e 69 64 ┆85 01 24, 16 while versionid┆
0x04afc…04b02 (0x194,0x97)
0x04b02…04b20 20 3e 20 37 30 30 20 30 30 30 20 64 6f 3b 0a 0a 0a 20 20 20 20 20 62 65 67 69 6e 0a 20 20 ┆ > 700 000 do; begin ┆
0x04b20…04b40 20 20 20 63 6f 6d 6d 65 6e 74 20 20 20 20 20 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ comment ****************┆
0x04b40…04b60 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x04b60…04b7a 2a 2a 2a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 2a 2a ┆*** ****┆
0x04b7a…04b80 (0x194,0x98)
0x04b80…04ba0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x04ba0…04bc0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆*************** ┆
0x04bc0…04be0 20 20 2a 2a 2a 2a 2a 2a 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ******* ┆
0x04be0…04c00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 2a 2a 2a 2a 2a 0a 20 20 00 00 00 00 00 00 00 00 ┆ ******* ┆
0x04c00…04c06 (38,) (0x194,0x99)
0x04c06…04c20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 2a 2a 2a 2a 2a 20 20 20 ┆ ******* ┆
0x04c20…04c40 20 20 20 20 20 20 20 72 63 6d 6f 6c 20 2d 20 63 6f 6d 70 69 6c 65 72 2e 20 20 20 20 20 20 20 20 ┆ rcmol - compiler. ┆
0x04c40…04c60 20 20 2a 2a 2a 2a 2a 2a 2a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 2a 2a ┆ ******* ****┆
0x04c60…04c7e 2a 2a 2a 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 ┆*** ┆
0x04c7e…04c84 (0x194,0x9a)
0x04c84…04ca0 20 20 20 20 20 20 20 20 20 20 2a 2a 2a 2a 2a 2a 2a 0a 20 20 20 20 20 20 20 20 20 20 ┆ ******* ┆
0x04ca0…04cc0 20 20 20 20 20 20 20 20 2a 2a 2a 2a 2a 2a 2a 20 20 20 75 64 76 69 6b 6c 65 74 20 73 6f 6d 20 65 ┆ ******* udviklet som e┆
0x04cc0…04ce0 6b 73 61 6d 65 6e 73 70 72 6f 6a 65 6b 74 20 70 7d 20 20 20 2a 2a 2a 2a 2a 2a 2a 0a 20 20 20 20 ┆ksamensprojekt på ******* ┆
0x04ce0…04cfc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 2a 2a 2a 2a 2a 20 20 20 20 20 64 61 ┆ ******* da┆
0x04cfc…04d02 (0x194,0x9b)
0x04d02…04d20 6e 6d 61 72 6b 73 20 74 65 6b 6e 69 73 6b 65 20 68 7c 6a 73 6b 6f 6c 65 20 20 20 20 20 20 ┆nmarks tekniske højskole ┆
0x04d20…04d40 2a 2a 2a 2a 2a 2a 2a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 2a 2a 2a 2a ┆******* ******┆
0x04d40…04d60 2a 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 7d 72 65 74 20 31 39 37 35 20 20 20 20 20 20 20 ┆* foråret 1975 ┆
0x04d60…04d7a 20 20 20 20 20 20 2a 2a 2a 2a 2a 2a 2a 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ******* ┆
0x04d7a…04d80 (0x194,0x9c)
0x04d80…04da0 20 20 20 20 20 20 2a 2a 2a 2a 2a 2a 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 ┆ ******* a┆
0x04da0…04dc0 66 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 2a 2a 2a 2a 2a 0a 20 20 20 20 20 20 ┆f ******* ┆
0x04dc0…04de0 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 2a 2a 2a 2a 2a 20 20 20 20 20 20 20 20 6c 61 72 73 20 ┆ ******* lars ┆
0x04de0…04e00 6f 74 74 6f 20 6b 6a 7b 72 20 6e 69 65 6c 73 65 6e 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆otto kjær nielsen ┆
0x04e00…04e06 (39,) (0x194,0x9d)
0x04e06…04e20 2a 2a 2a 2a 2a 2a 2a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆******* ┆
0x04e20…04e40 2a 2a 2a 2a 2a 2a 2a 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 ┆******* ┆
0x04e40…04e60 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 2a 2a 2a 2a 2a 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ******* ┆
0x04e60…04e7e 20 20 20 20 20 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ ************************┆
0x04e7e…04e84 (0x194,0x9e)
0x04e84…04ea0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a ┆*************************** ┆
0x04ea0…04ec0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ **************┆
0x04ec0…04ee0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x04ee0…04efc 2a 2a 2a 2a 2a 0a 20 20 20 20 20 3b 0a 0a 0a 3c 2a 20 20 20 20 6e 79 65 20 6f 67 20 ┆***** ; <* nye og ┆
0x04efc…04f02 (0x194,0x9f)
0x04f02…04f20 66 6f 72 61 6e 64 72 65 64 65 20 66 61 63 69 6c 69 74 65 74 65 72 20 69 20 72 63 6d 6f 6c ┆forandrede faciliteter i rcmol┆
0x04f20…04f40 3a 0a 0a 0a 72 65 6c 65 61 73 65 20 31 3a 0a 20 20 2d 20 20 6c 69 73 74 6e 69 6e 67 20 66 6f 72 ┆: release 1: - listning for┆
0x04f40…04f60 73 79 6e 65 73 20 6d 65 64 20 70 72 6f 63 65 73 72 65 6c 61 74 69 76 65 20 61 64 72 65 73 73 65 ┆synes med procesrelative adresse┆
0x04f60…04f7a 72 20 76 65 64 20 68 76 65 72 20 6c 69 6e 69 65 0a 20 20 2d 20 20 61 64 64 72 ┆r ved hver linie - addr┆
0x04f7a…04f80 (0x194,0xa0)
0x04f80…04fa0 65 73 73 28 6f 70 65 72 61 6e 64 29 20 20 72 65 74 75 72 6e 65 72 65 72 20 65 6e 20 72 65 66 65 ┆ess(operand) returnerer en refe┆
0x04fa0…04fc0 72 65 6e 63 65 20 74 69 6c 20 66 6f 65 72 73 74 65 20 68 61 6c 76 6f 72 64 20 69 0a 20 20 20 20 ┆rence til foerste halvord i ┆
0x04fc0…04fe0 20 6f 70 65 72 61 6e 64 65 6e 20 28 6f 67 20 69 6b 6b 65 20 73 6f 6d 20 66 6f 65 72 20 73 69 64 ┆ operanden (og ikke som foer sid┆
0x04fe0…05000 73 74 65 20 68 61 6c 76 6f 72 64 29 0a 20 20 2d 20 20 62 79 74 65 2d 6b 00 00 00 00 00 00 00 00 ┆ste halvord) - byte-k ┆
0x05000…05006 (40,) (0x194,0xa1)
0x05006…05020 6f 6e 73 74 61 6e 74 65 72 20 61 63 63 65 70 74 65 72 65 73 20 6f 70 20 74 69 ┆onstanter accepteres op ti┆
0x05020…05040 6c 20 34 30 39 35 0a 0a 72 65 6c 65 61 73 65 20 32 3a 0a 20 20 2d 20 20 63 6f 6d 70 69 6c 65 72 ┆l 4095 release 2: - compiler┆
0x05040…05060 20 6b 61 6c 64 2d 6f 70 74 69 6f 6e 73 20 6c 69 73 74 2e 79 65 73 0a 0a 72 65 6c 65 61 73 65 20 ┆ kald-options list.yes release ┆
0x05060…0507e 33 3a 0a 20 20 2d 20 20 63 72 65 65 72 20 6f 67 20 72 65 73 65 72 76 65 72 20 61 72 65 61 ┆3: - creer og reserver area┆
0x0507e…05084 (0x194,0xa2)
0x05084…050a0 6c 70 72 6f 63 65 73 20 74 69 6c 20 70 72 6f 67 72 61 6d 61 72 65 61 6c 20 68 76 69 ┆lproces til programareal hvi┆
0x050a0…050c0 73 20 66 70 2e 6e 6f 0a 0a 72 65 6c 65 61 73 65 20 34 3a 0a 20 20 2d 20 20 63 61 6c 6c 20 77 30 ┆s fp.no release 4: - call w0┆
0x050c0…050e0 20 3c 6f 70 65 72 61 6e 64 3e 20 20 61 63 63 65 70 74 65 72 65 73 20 73 6f 6d 20 68 6f 70 20 75 ┆ <operand> accepteres som hop u┆
0x050e0…050fc 64 65 6e 20 72 65 74 75 72 72 65 67 69 73 74 65 72 0a 0a 72 65 6c 65 61 73 65 20 35 ┆den returregister release 5┆
0x050fc…05102 (0x194,0xa3)
0x05102…05120 3a 0a 20 20 2d 20 20 75 64 73 6b 72 69 76 20 70 72 6f 67 72 61 6d 74 65 78 74 65 6e 73 20 ┆: - udskriv programtextens ┆
0x05120…05140 6e 61 76 6e 20 6f 67 20 73 68 6f 72 74 2d 63 6c 6f 63 6b 20 76 65 64 20 6f 76 65 72 73 61 65 74 ┆navn og short-clock ved oversaet┆
0x05140…05160 74 65 6c 73 65 0a 20 20 2d 20 20 69 6e 64 73 61 65 74 20 73 68 6f 72 74 2d 63 6c 6f 63 6b 20 69 ┆telse - indsaet short-clock i┆
0x05160…0517a 20 6f 62 6a 65 6b 74 70 72 6f 67 72 61 6d 20 65 6e 74 72 79 0a 20 20 2d 20 20 ┆ objektprogram entry - ┆
0x0517a…05180 (0x194,0xa4)
0x05180…051a0 61 63 63 65 70 74 65 72 20 6f 70 20 74 69 6c 20 33 30 30 20 69 64 65 6e 74 69 66 69 6b 61 74 6f ┆accepter op til 300 identifikato┆
0x051a0…051c0 72 65 72 0a 0a 72 65 6c 65 61 73 65 20 36 3a 0a 20 20 2d 20 20 61 63 63 65 70 74 65 72 20 6b 6f ┆rer release 6: - accepter ko┆
0x051c0…051e0 6d 6d 65 6e 74 61 72 65 72 20 6f 6d 67 69 76 65 74 20 61 66 20 28 21 20 29 20 6f 67 20 28 21 29 ┆mmentarer omgivet af (! ) og (!)┆
0x051e0…05200 0a 20 20 2d 20 20 61 63 63 65 70 74 65 72 20 73 70 65 63 69 61 6c 6b 61 00 00 00 00 00 00 00 00 ┆ - accepter specialka ┆
0x05200…05206 (41,) (0x194,0xa5)
0x05206…05220 72 61 6b 74 65 72 65 72 20 69 20 73 74 72 65 6e 67 65 0a 20 20 20 20 20 6b 61 ┆rakterer i strenge ka┆
0x05220…05240 72 61 6b 74 65 72 76 61 65 72 64 69 65 6e 20 61 6e 67 69 76 65 73 20 73 6f 6d 20 65 74 20 68 65 ┆raktervaerdien angives som et he┆
0x05240…05260 6c 74 61 6c 20 6f 6d 67 69 76 65 74 20 61 66 20 28 27 29 20 6f 67 20 28 27 29 0a 20 20 2d 20 20 ┆ltal omgivet af (') og (') - ┆
0x05260…0527e 61 63 63 65 70 74 65 72 20 6b 6f 6e 73 74 61 6e 74 65 72 20 6d 65 64 20 73 70 65 63 69 66 ┆accepter konstanter med specif┆
0x0527e…05284 (0x194,0xa6)
0x05284…052a0 69 63 65 72 65 74 20 72 61 64 69 78 20 6f 67 20 63 69 66 72 65 20 6d 65 6c 6c 65 6d ┆iceret radix og cifre mellem┆
0x052a0…052c0 20 30 20 6f 67 20 39 0a 20 20 20 20 20 72 61 64 69 78 20 6f 67 20 63 69 66 72 65 20 73 65 70 61 ┆ 0 og 9 radix og cifre sepa┆
0x052c0…052e0 72 65 72 65 73 20 6d 65 64 20 28 27 29 0a 20 20 2d 20 20 61 63 63 65 70 74 65 72 20 74 65 73 74 ┆reres med (') - accepter test┆
0x052e0…052fc 2d 73 74 61 74 65 6d 65 6e 74 3a 20 20 20 21 74 65 73 74 20 3c 6e 6f 3e 0a 20 20 20 ┆-statement: !test <no> ┆
0x052fc…05302 (0x194,0xa7)
0x05302…05320 20 20 64 65 72 20 67 65 6e 65 72 65 72 65 73 20 6b 73 2d 3c 6e 6f 3e 20 68 76 69 73 20 20 ┆ der genereres ks-<no> hvis ┆
0x05320…05340 30 20 3c 3d 20 20 3c 6e 6f 3e 20 20 3c 20 20 32 30 34 38 0a 0a 72 65 6c 65 61 73 65 20 37 3a 0a ┆0 <= <no> < 2048 release 7: ┆
0x05340…05360 20 20 2d 20 20 66 6f 72 62 65 64 72 65 74 20 65 72 72 6f 72 20 72 65 63 6f 76 65 72 79 0a 0a 72 ┆ - forbedret error recovery r┆
0x05360…0537a 65 6c 65 61 73 65 20 38 3a 0a 20 20 2d 20 20 63 6f 6d 70 69 6c 65 72 20 6b 61 ┆elease 8: - compiler ka┆
0x0537a…05380 (0x194,0xa8)
0x05380…053a0 6c 64 2d 6f 70 74 69 6f 6e 20 20 78 72 65 66 2e 79 65 73 0a 20 20 2d 20 20 75 64 73 6b 72 69 76 ┆ld-option xref.yes - udskriv┆
0x053a0…053c0 20 63 6f 6d 70 69 6c 65 72 20 76 65 72 73 69 6f 6e 20 76 65 64 20 68 76 65 72 20 6f 76 65 72 73 ┆ compiler version ved hver overs┆
0x053c0…053e0 61 65 74 74 65 6c 73 65 0a 0a 72 65 6c 65 61 73 65 20 39 3a 0a 20 20 2d 20 20 61 63 63 65 70 74 ┆aettelse release 9: - accept┆
0x053e0…05400 65 72 20 68 61 6c 74 2d 73 74 61 74 65 6d 65 6e 74 3a 20 20 21 68 61 6c 00 00 00 00 00 00 00 00 ┆er halt-statement: !hal ┆
0x05400…05406 (42,) (0x194,0xa9)
0x05406…05420 74 20 3c 6e 6f 3e 0a 20 20 20 20 20 64 65 72 20 67 65 6e 65 72 65 72 65 73 20 ┆t <no> der genereres ┆
0x05420…05440 20 6a 64 2d 3c 6e 6f 3e 20 20 68 76 69 73 20 20 30 20 20 3c 3d 20 20 3c 6e 6f 3e 20 20 3c 3d 20 ┆ jd-<no> hvis 0 <= <no> <= ┆
0x05440…05460 20 31 30 30 30 0a 20 20 2d 20 20 75 6e 64 6c 61 64 20 61 75 74 6f 6d 61 74 69 73 6b 20 74 69 6c ┆ 1000 - undlad automatisk til┆
0x05460…0547e 66 6f 65 6a 65 6c 73 65 20 61 66 20 3c 6e 75 6c 6c 3e 2d 6b 61 72 61 6b 74 65 72 20 65 66 ┆foejelse af <null>-karakter ef┆
0x0547e…05484 (0x194,0xaa)
0x05484…054a0 74 65 72 20 74 65 78 74 73 74 72 65 6e 67 0a 20 20 2d 20 20 61 63 63 65 70 74 65 72 ┆ter textstreng - accepter┆
0x054a0…054c0 20 6e 61 76 6e 65 20 69 20 69 6e 64 72 65 20 62 6c 6f 6b 6b 65 2c 20 73 6f 6d 20 66 61 6c 64 65 ┆ navne i indre blokke, som falde┆
0x054c0…054e0 72 20 73 61 6d 6d 65 6e 20 6d 65 64 20 6e 61 76 6e 65 20 66 72 61 20 79 64 72 65 20 62 6c 6f 6b ┆r sammen med navne fra ydre blok┆
0x054e0…054fc 6b 65 0a 0a 72 65 6c 65 61 73 65 20 31 30 3a 0a 20 20 2d 20 20 75 6e 64 6c 61 64 20 ┆ke release 10: - undlad ┆
0x054fc…05502 (0x194,0xab)
0x05502…05520 61 74 20 72 65 73 65 72 76 65 72 65 20 70 72 6f 67 72 61 6d 2d 61 72 65 61 6c 65 74 2c 20 ┆at reservere program-arealet, ┆
0x05520…05540 73 61 61 20 66 6c 65 72 65 20 6b 61 6e 20 75 64 66 6f 65 72 65 20 73 61 6d 6d 65 20 70 72 6f 67 ┆saa flere kan udfoere samme prog┆
0x05540…05560 72 61 6d 0a 20 20 2d 20 20 66 6f 72 62 79 64 20 21 73 61 76 65 20 73 74 61 74 65 6d 65 6e 74 2c ┆ram - forbyd !save statement,┆
0x05560…0557a 20 64 61 20 61 72 65 61 6c 65 74 20 69 6b 6b 65 20 6d 65 72 65 20 65 72 20 72 ┆ da arealet ikke mere er r┆
0x0557a…05580 (0x194,0xac)
0x05580…055a0 65 73 65 72 76 65 72 65 74 0a 0a 72 65 6c 65 61 73 65 20 31 31 3a 0a 20 20 2d 20 20 63 6f 6d 70 ┆eserveret release 11: - comp┆
0x055a0…055c0 69 6c 65 72 20 6b 61 6c 64 2d 6f 70 74 69 6f 6e 73 20 6c 69 73 74 2e 65 72 72 6f 72 0a 20 20 20 ┆iler kald-options list.error ┆
0x055c0…055e0 20 20 6c 69 73 74 65 72 20 61 6c 6c 65 20 66 65 6a 6c 62 65 68 61 65 66 74 65 64 65 20 6c 69 6e ┆ lister alle fejlbehaeftede lin┆
0x055e0…05600 69 65 72 0a 20 20 2d 20 20 63 6f 6d 70 69 6c 65 72 20 6b 61 6c 64 2d 6f 00 00 00 00 00 00 00 00 ┆ier - compiler kald-o ┆
0x05600…05606 (43,) (0x194,0xad)
0x05606…05620 70 74 69 6f 6e 20 20 74 65 73 74 20 28 2e 3c 6c 69 6d 69 74 3e 29 0a 20 20 20 ┆ption test (.<limit>) ┆
0x05620…05640 20 20 68 76 69 73 20 3c 6c 69 6d 69 74 3e 20 75 64 65 6c 61 64 65 73 20 67 65 6e 65 72 65 72 65 ┆ hvis <limit> udelades generere┆
0x05640…05660 73 20 61 6c 6c 65 20 20 6b 73 2d 3c 6e 6f 3e 20 20 69 6e 73 74 72 75 6b 74 69 6f 6e 65 72 0a 20 ┆s alle ks-<no> instruktioner ┆
0x05660…0567e 20 20 20 20 68 76 69 73 20 3c 6c 69 6d 69 74 3e 20 61 6e 67 69 76 65 73 20 67 65 6e 65 72 ┆ hvis <limit> angives gener┆
0x0567e…05684 (0x194,0xae)
0x05684…056a0 65 72 65 73 20 6b 75 6e 20 6b 73 2d 3c 6e 6f 3e 20 68 76 69 73 20 20 3c 6e 6f 3e 20 ┆eres kun ks-<no> hvis <no> ┆
0x056a0…056c0 20 3c 20 20 3c 6c 69 6d 69 74 3e 0a 20 20 2d 20 20 72 65 74 75 72 6e 65 72 20 72 65 73 75 6c 74 ┆ < <limit> - returner result┆
0x056c0…056e0 2c 73 74 61 74 75 73 20 65 66 74 65 72 20 6b 61 6c 64 20 61 66 20 21 73 61 76 65 20 6f 67 20 21 ┆,status efter kald af !save og !┆
0x056e0…056fc 67 65 74 0a 20 20 20 20 20 77 30 20 3d 20 72 65 73 75 6c 74 20 6f 72 20 73 74 61 74 ┆get w0 = result or stat┆
0x056fc…05702 (0x194,0xaf)
0x05702…05720 75 73 0a 20 20 20 20 20 77 33 20 3d 20 61 62 73 20 72 65 66 20 70 72 6f 67 72 61 6d 20 61 ┆us w3 = abs ref program a┆
0x05720…05740 72 65 61 6c 20 6e 61 76 6e 0a 20 20 2d 20 20 61 63 63 65 70 74 65 72 20 6f 70 20 74 69 6c 20 34 ┆real navn - accepter op til 4┆
0x05740…05760 30 30 20 69 64 65 6e 74 69 66 69 6b 61 74 6f 72 65 72 0a 20 20 2d 20 20 61 63 63 65 70 74 65 72 ┆00 identifikatorer - accepter┆
0x05760…0577a 20 6b 75 6e 20 62 79 74 65 20 6b 6f 6e 73 74 61 6e 74 65 72 20 6d 65 6c 6c 65 ┆ kun byte konstanter melle┆
0x0577a…05780 (0x194,0xb0)
0x05780…057a0 6d 20 2d 32 30 34 38 20 6f 67 20 32 30 34 37 0a 0a 0a 72 65 6c 65 61 73 65 20 31 32 3a 0a 20 20 ┆m -2048 og 2047 release 12: ┆
0x057a0…057c0 2d 20 20 66 65 6a 6c 20 6f 6d 6b 72 69 6e 67 20 62 72 61 6e 63 68 20 72 65 74 74 65 74 0a 0a 0a ┆- fejl omkring branch rettet ┆
0x057c0…057e0 72 65 6c 65 61 73 65 20 31 33 3a 0a 20 20 2d 20 20 6e 61 76 6e 65 74 61 62 65 6c 20 75 64 76 69 ┆release 13: - navnetabel udvi┆
0x057e0…05800 64 65 74 20 74 69 6c 20 35 30 30 20 69 6e 67 61 6e 67 65 0a 0a 0a 72 65 00 00 00 00 00 00 00 00 ┆det til 500 ingange re ┆
0x05800…05806 (44,) (0x194,0xb1)
0x05806…05820 6c 65 61 73 65 20 31 34 3a 0a 20 20 2d 20 20 66 65 6a 6c 20 72 65 74 74 65 74 ┆lease 14: - fejl rettet┆
0x05820…05840 20 6f 6d 6b 72 69 6e 67 20 61 64 64 72 65 73 73 65 72 69 6e 67 20 61 66 20 64 6f 62 62 65 6c 74 ┆ omkring addressering af dobbelt┆
0x05840…05860 20 72 65 67 69 73 74 72 65 0a 20 20 2d 20 20 66 31 2b 66 31 33 20 3a 20 66 61 20 77 31 20 31 34 ┆ registre - f1+f13 : fa w1 14┆
0x05860…0587e 20 2d 3e 20 66 61 20 77 31 20 36 0a 20 20 2d 20 20 72 65 74 74 65 74 20 69 3a 20 72 65 78 ┆ -> fa w1 6 - rettet i: rex┆
0x0587e…05884 (0x194,0xb2)
0x05884…058a0 20 3a 3a 3d 20 72 65 78 73 74 61 72 74 20 72 65 67 69 73 74 65 72 0a 20 20 2d 20 20 ┆ ::= rexstart register - ┆
0x058a0…058c0 73 68 69 66 74 20 31 3b 20 72 65 74 74 65 74 20 74 69 6c 20 73 68 69 66 74 20 31 20 65 78 74 72 ┆shift 1; rettet til shift 1 extr┆
0x058c0…058e0 61 63 74 20 33 0a 0a 0a 72 65 6c 65 61 73 65 20 31 35 3a 0a 20 20 2d 20 20 61 6e 74 61 6c 6c 65 ┆act 3 release 15: - antalle┆
0x058e0…058fc 74 20 61 66 20 69 64 65 6e 74 69 66 69 65 72 73 20 75 64 76 69 64 64 65 74 20 66 72 ┆t af identifiers udviddet fr┆
0x058fc…05902 (0x194,0xb3)
0x05902…05920 61 20 35 30 30 20 74 69 6c 20 36 30 30 0a 20 20 2d 20 20 28 69 64 74 61 62 31 2c 20 69 64 ┆a 500 til 600 - (idtab1, id┆
0x05920…05940 74 61 62 32 2c 20 69 64 74 61 62 33 2c 20 69 64 74 61 62 34 2c 20 69 64 74 61 62 35 29 0a 0a 72 ┆tab2, idtab3, idtab4, idtab5) r┆
0x05940…05960 65 6c 65 61 73 65 20 31 36 3a 0a 20 20 2d 20 20 66 65 6a 6c 20 72 65 74 74 65 74 20 6d 65 64 20 ┆elease 16: - fejl rettet med ┆
0x05960…0597a 68 65 6e 73 79 6e 20 74 69 6c 20 69 64 68 6f 6c 64 65 74 20 61 66 20 77 33 20 ┆hensyn til idholdet af w3 ┆
0x0597a…05980 (0x194,0xb4)
0x05980…059a0 76 65 64 20 65 6e 74 72 79 20 69 20 65 74 20 70 72 6f 67 72 61 6d 0a 20 20 2d 20 20 6f 76 65 72 ┆ved entry i et program - over┆
0x059a0…059c0 73 61 74 20 6d 65 64 3a 20 22 21 66 70 2e 6e 6f 3b 22 20 3b 20 77 33 20 65 72 20 6e 75 20 61 64 ┆sat med: "!fp.no;" ; w3 er nu ad┆
0x059c0…059e0 64 72 65 73 73 65 6e 20 70 7d 20 65 6e 73 20 65 67 65 6e 20 70 72 6f 63 65 73 73 20 62 65 73 6b ┆dressen på ens egen process besk┆
0x059e0…05a00 72 69 76 65 6c 73 65 0a 0a 0a 0a 72 65 6c 65 61 73 65 20 78 78 3a 0a 0a 00 00 00 00 00 00 00 00 ┆rivelse release xx: ┆
0x05a00…05a06 (45,) (0x194,0xb5)
0x05a06…05a20 2a 3e 0a 20 0a 20 0a 20 0a 20 20 20 20 20 20 20 20 69 6e 74 65 67 65 72 20 7a ┆*> integer z┆
0x05a20…05a40 70 69 6c 2c 69 74 65 6d 2c 69 64 74 61 62 70 69 6c 2c 63 75 72 72 69 64 6c 69 6d 69 74 2c 66 65 ┆pil,item,idtabpil,curridlimit,fe┆
0x05a40…05a60 6a 6c 70 69 6c 2c 73 74 61 6b 70 69 6c 2c 6c 69 6e 69 65 70 69 6c 2c 63 61 73 65 73 74 61 6b 70 ┆jlpil,stakpil,liniepil,casestakp┆
0x05a60…05a7e 69 6c 3b 0a 20 20 20 20 20 20 20 20 69 6e 74 65 67 65 72 20 6e 79 74 69 6c 73 74 2c 6c 69 ┆il; integer nytilst,li┆
0x05a7e…05a84 (0x194,0xb6)
0x05a84…05aa0 6e 69 65 6e 72 2c 69 73 6f 76 7b 72 64 69 2c 6b 6c 61 73 73 65 2c 74 65 72 6d 2c 61 ┆nienr,isoværdi,klasse,term,a┆
0x05aa0…05ac0 72 74 2c 74 79 70 65 2c 6d 6f 64 65 2c 64 79 6e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆rt,type,mode,dyn, ┆
0x05ac0…05ae0 64 65 6c 6e 61 76 6e 31 2c 64 65 6c 6e 61 76 6e 32 2c 64 65 6c 6e 61 76 6e 33 2c 62 65 67 69 6e ┆delnavn1,delnavn2,delnavn3,begin┆
0x05ae0…05afc 6e 69 76 2c 65 6e 64 6e 69 76 2c 62 6c 6f 6b 64 79 62 64 65 2c 70 72 6f 63 72 65 66 ┆niv,endniv,blokdybde,procref┆
0x05afc…05b02 (0x194,0xb7)
0x05b02…05b20 3b 0a 20 20 20 20 20 20 20 20 69 6e 74 65 67 65 72 20 69 2c 6a 2c 6e 2c 6b 72 6f 70 6e 69 ┆; integer i,j,n,kropni┆
0x05b20…05b40 76 2c 77 6c 69 73 74 65 2c 70 61 72 74 61 62 70 69 6c 2c 70 72 6b 61 6c 64 70 69 6c 2c 70 72 6f ┆v,wliste,partabpil,prkaldpil,pro┆
0x05b40…05b60 63 61 6e 74 61 6c 2c 70 72 6f 63 6e 72 3b 0a 20 20 20 20 20 20 20 20 69 6e 74 65 67 65 72 20 72 ┆cantal,procnr; integer r┆
0x05b60…05b7a 65 63 6f 76 70 6f 69 6e 74 2c 67 65 6d 6d 6f 64 65 2c 69 6e 64 68 6f 70 2c 74 ┆ecovpoint,gemmode,indhop,t┆
0x05b7a…05b80 (0x194,0xb8)
0x05b80…05ba0 65 78 74 6c 7b 6e 67 64 65 2c 6c 61 79 6f 75 74 6f 72 64 2c 7a 62 61 73 65 2c 66 69 6c 6e 72 3b ┆extlængde,layoutord,zbase,filnr;┆
0x05ba0…05bc0 0a 20 20 20 20 20 20 20 20 69 6e 74 65 67 65 72 20 68 6f 70 70 69 6c 2c 74 6f 6d 2c 6b 6f 6e 73 ┆ integer hoppil,tom,kons┆
0x05bc0…05be0 74 70 69 6c 31 2c 6b 6f 6e 73 74 70 69 6c 32 2c 6d 6f 64 65 64 79 62 64 65 2c 62 61 73 69 73 72 ┆tpil1,konstpil2,modedybde,basisr┆
0x05be0…05c00 65 66 2c 72 61 64 69 78 2c 6b 6f 64 65 61 64 64 72 3b 0a 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ef,radix,kodeaddr; ┆
0x05c00…05c06 (46,) (0x194,0xb9)
0x05c06…05c20 20 20 20 69 6e 74 65 67 65 72 20 68 70 74 6f 70 2c 6b 6f 64 65 61 64 72 65 73 ┆ integer hptop,kodeadres┆
0x05c20…05c40 73 65 2c 64 79 6e 72 65 66 2c 76 69 6e 64 68 6f 70 2c 66 6f 72 75 64 73 79 6d 62 6f 6c 2c 6d 61 ┆se,dynref,vindhop,forudsymbol,ma┆
0x05c40…05c60 78 61 64 72 65 73 73 65 2c 6b 6f 64 65 75 64 70 69 6c 3b 0a 20 20 20 20 20 20 20 20 69 6e 74 65 ┆xadresse,kodeudpil; inte┆
0x05c60…05c7e 67 65 72 20 62 6c 6f 6b 73 74 61 72 74 2c 61 75 74 6f 74 61 70 65 2c 67 72 65 6e 70 69 6c ┆ger blokstart,autotape,grenpil┆
0x05c7e…05c84 (0x194,0xba)
0x05c84…05ca0 2c 67 72 65 6e 61 6e 74 61 6c 2c 6b 6e 75 64 65 70 69 6c 2c 6b 6e 75 64 65 61 6e 74 ┆,grenantal,knudepil,knudeant┆
0x05ca0…05cc0 61 6c 2c 66 70 70 6c 61 64 73 3b 0a 20 20 20 20 20 20 20 20 69 6e 74 65 67 65 72 20 74 65 73 74 ┆al,fpplads; integer test┆
0x05cc0…05ce0 6c 69 6d 69 74 3b 0a 20 20 20 20 20 20 20 20 69 6e 74 65 67 65 72 20 61 72 72 61 79 20 68 6e 61 ┆limit; integer array hna┆
0x05ce0…05cfc 76 6e 65 28 30 3a 39 39 29 3b 0a 20 20 20 20 20 20 20 20 69 6e 74 65 67 65 72 20 61 ┆vne(0:99); integer a┆
0x05cfc…05d02 (0x194,0xbb)
0x05d02…05d20 72 72 61 79 20 6b 6f 6e 73 74 74 61 62 31 2c 6b 6f 6e 73 74 74 61 62 32 28 30 3a 32 30 30 ┆rray konsttab1,konsttab2(0:200┆
0x05d20…05d40 29 3b 0a 20 20 20 20 20 20 20 20 69 6e 74 65 67 65 72 20 61 72 72 61 79 20 68 6f 70 74 61 62 31 ┆); integer array hoptab1┆
0x05d40…05d60 2c 68 6f 70 74 61 62 32 28 31 3a 31 30 30 29 3b 0a 20 20 20 20 20 20 20 20 69 6e 74 65 67 65 72 ┆,hoptab2(1:100); integer┆
0x05d60…05d7a 20 61 72 72 61 79 20 6e 61 76 6e 65 74 61 62 31 2c 6e 61 76 6e 65 74 61 62 32 ┆ array navnetab1,navnetab2┆
0x05d7a…05d80 (0x194,0xbc)
0x05d80…05da0 2c 6e 61 76 6e 65 74 61 62 33 2c 6e 61 76 6e 65 74 61 62 34 28 31 3a 38 32 29 3b 0a 20 20 20 20 ┆,navnetab3,navnetab4(1:82); ┆
0x05da0…05dc0 20 20 20 20 69 6e 74 65 67 65 72 20 61 72 72 61 79 20 73 6b 69 6c 74 61 62 28 34 30 3a 36 32 29 ┆ integer array skiltab(40:62)┆
0x05dc0…05de0 3b 0a 20 20 20 20 20 20 20 20 69 6e 74 65 67 65 72 20 61 72 72 61 79 20 74 6f 73 6b 69 6c 31 2c ┆; integer array toskil1,┆
0x05de0…05e00 74 6f 73 6b 69 6c 32 28 31 3a 37 29 3b 0a 20 20 20 20 20 20 20 20 69 6e 00 00 00 00 00 00 00 00 ┆toskil2(1:7); in ┆
0x05e00…05e06 (47,) (0x194,0xbd)
0x05e06…05e20 74 65 67 65 72 20 61 72 72 61 79 20 74 69 6c 73 74 2c 61 6b 74 69 6f 6e 28 31 ┆teger array tilst,aktion(1┆
0x05e20…05e40 3a 38 2c 32 3a 38 29 3b 0a 20 20 20 20 20 20 20 20 69 6e 74 65 67 65 72 20 61 72 72 61 79 20 6c ┆:8,2:8); integer array l┆
0x05e40…05e60 69 6e 69 65 28 31 3a 31 33 34 29 3b 0a 20 20 20 20 20 20 20 20 69 6e 74 65 67 65 72 20 61 72 72 ┆inie(1:134); integer arr┆
0x05e60…05e7e 61 79 20 66 65 6a 6c 73 74 61 6b 28 31 3a 32 2c 31 3a 35 30 29 3b 0a 20 20 20 20 20 20 20 ┆ay fejlstak(1:2,1:50); ┆
0x05e7e…05e84 (0x194,0xbe)
0x05e84…05ea0 20 69 6e 74 65 67 65 72 20 61 72 72 61 79 20 70 72 6f 63 74 61 62 28 30 3a 32 35 36 ┆ integer array proctab(0:256┆
0x05ea0…05ec0 29 3b 0a 20 20 20 20 20 20 20 20 69 6e 74 65 67 65 72 20 61 72 72 61 79 20 69 64 74 61 62 31 2c ┆); integer array idtab1,┆
0x05ec0…05ee0 69 64 74 61 62 32 2c 69 64 74 61 62 33 2c 69 64 74 61 62 34 2c 69 64 74 61 62 35 28 31 3a 36 30 ┆idtab2,idtab3,idtab4,idtab5(1:60┆
0x05ee0…05efc 30 29 3b 0a 20 20 20 20 20 20 20 20 69 6e 74 65 67 65 72 20 61 72 72 61 79 20 61 74 ┆0); integer array at┆
0x05efc…05f02 (0x194,0xbf)
0x05f02…05f20 74 31 2c 61 74 74 32 2c 61 74 74 33 28 31 3a 31 30 30 29 3b 0a 20 20 20 20 20 20 20 20 69 ┆t1,att2,att3(1:100); i┆
0x05f20…05f40 6e 74 65 67 65 72 20 61 72 72 61 79 20 72 65 6c 61 64 72 28 31 3a 34 29 3b 0a 20 20 20 20 20 20 ┆nteger array reladr(1:4); ┆
0x05f40…05f60 20 20 69 6e 74 65 67 65 72 20 61 72 72 61 79 20 7a 28 31 3a 31 33 30 30 29 3b 0a 20 20 20 20 20 ┆ integer array z(1:1300); ┆
0x05f60…05f7a 20 20 20 69 6e 74 65 67 65 72 20 61 72 72 61 79 20 73 74 72 65 6e 67 28 30 3a ┆ integer array streng(0:┆
0x05f7a…05f80 (0x194,0xc0)
0x05f80…05fa0 34 35 29 3b 0a 20 20 20 20 20 20 20 20 69 6e 74 65 67 65 72 20 61 72 72 61 79 20 64 79 6f 70 74 ┆45); integer array dyopt┆
0x05fa0…05fc0 61 62 28 31 3a 31 34 36 29 3b 0a 20 20 20 20 20 20 20 20 69 6e 74 65 67 65 72 20 61 72 72 61 79 ┆ab(1:146); integer array┆
0x05fc0…05fe0 20 63 61 73 65 73 74 61 6b 28 31 3a 31 35 30 29 3b 0a 20 20 20 20 20 20 20 20 69 6e 74 65 67 65 ┆ casestak(1:150); intege┆
0x05fe0…06000 72 20 61 72 72 61 79 20 70 61 72 74 61 62 31 28 31 3a 32 35 29 3b 0a 20 00 00 00 00 00 00 00 00 ┆r array partab1(1:25); ┆
0x06000…06006 (48,) (0x194,0xc1)
0x06006…06020 20 20 20 20 20 20 20 69 6e 74 65 67 65 72 20 61 72 72 61 79 20 74 61 69 6c 28 ┆ integer array tail(┆
0x06020…06040 31 3a 31 30 29 3b 0a 20 20 20 20 20 20 20 20 69 6e 74 65 67 65 72 20 61 72 72 61 79 20 64 79 6f ┆1:10); integer array dyo┆
0x06040…06060 70 73 6c 61 67 28 31 3a 33 32 29 3b 0a 20 20 20 20 20 20 20 20 69 6e 74 65 67 65 72 20 61 72 72 ┆pslag(1:32); integer arr┆
0x06060…0607e 61 79 20 67 65 6d 72 65 6c 61 64 72 28 32 3a 38 29 3b 0a 20 20 20 20 20 20 20 20 69 6e 74 ┆ay gemreladr(2:8); int┆
0x0607e…06084 (0x194,0xc2)
0x06084…060a0 65 67 65 72 20 61 72 72 61 79 20 6b 6f 64 65 75 64 28 31 3a 32 2c 31 3a 35 29 3b 0a ┆eger array kodeud(1:2,1:5); ┆
0x060a0…060c0 20 20 20 20 20 20 20 20 72 65 61 6c 20 72 70 61 63 6b 6b 6f 6e 73 74 2c 72 6b 6f 6e 73 74 2c 63 ┆ real rpackkonst,rkonst,c┆
0x060c0…060e0 70 75 2c 74 69 6d 65 2c 72 6b 6f 6e 73 74 31 3b 0a 20 20 20 20 20 20 20 20 72 65 61 6c 20 61 72 ┆pu,time,rkonst1; real ar┆
0x060e0…060fc 72 61 79 20 61 72 72 28 31 3a 32 29 3b 0a 20 20 20 20 20 20 20 20 6c 6f 6e 67 20 6c ┆ray arr(1:2); long l┆
0x060fc…06102 (0x194,0xc3)
0x06102…06120 70 61 63 6b 6b 6f 6e 73 74 2c 68 6b 6f 6e 73 74 2c 68 6b 6f 6e 73 74 31 3b 0a 20 20 20 20 ┆packkonst,hkonst,hkonst1; ┆
0x06120…06140 20 20 20 20 69 6e 74 65 67 65 72 20 61 72 72 61 79 20 66 69 65 6c 64 20 66 69 3b 0a 20 20 20 20 ┆ integer array field fi; ┆
0x06140…06160 20 20 20 20 6c 6f 6e 67 20 61 72 72 61 79 20 66 69 65 6c 64 20 6c 61 66 3b 0a 20 20 20 20 20 20 ┆ long array field laf; ┆
0x06160…0617a 20 20 7a 6f 6e 65 20 73 61 76 65 28 31 32 38 2c 31 2c 73 74 64 65 72 72 6f 72 ┆ zone save(128,1,stderror┆
0x0617a…06180 (0x194,0xc4)
0x06180…061a0 29 3b 0a 20 20 20 20 20 20 20 20 62 6f 6f 6c 65 61 6e 20 6c 69 73 74 2c 65 72 72 6f 72 6c 69 73 ┆); boolean list,errorlis┆
0x061a0…061c0 74 2c 63 6f 64 65 2c 66 70 2c 6d 6f 6e 2c 62 69 6e 7b 72 2c 66 72 69 65 72 6b 6c 2c 61 66 62 72 ┆t,code,fp,mon,binær,frierkl,afbr┆
0x061c0…061e0 79 64 31 2c 61 66 62 72 79 64 32 2c 61 66 62 72 79 64 33 2c 0a 20 20 20 20 20 20 20 20 20 20 20 ┆yd1,afbryd2,afbryd3, ┆
0x061e0…06200 20 20 20 20 20 61 66 62 72 79 64 34 2c 61 66 62 72 79 64 35 2c 6f 6b 6c 00 00 00 00 00 00 00 00 ┆ afbryd4,afbryd5,okl ┆
0x06200…06206 (49,) (0x194,0xc5)
0x06206…06220 69 6e 69 65 2c 6f 62 6a 65 63 74 66 69 6c 65 3b 0a 20 20 20 20 20 20 20 20 62 ┆inie,objectfile; b┆
0x06220…06240 6f 6f 6c 65 61 6e 20 61 72 72 61 79 20 77 66 72 69 28 30 3a 33 29 3b 0a 0a 20 0a 20 0a 20 20 20 ┆oolean array wfri(0:3); ┆
0x06240…06260 20 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ comment *****************┆
0x06260…0627e 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆******************************┆
0x0627e…06284 (0x194,0xc6)
0x06284…062a0 2a 2a 2a 2a 2a 2a 2a 2a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a ┆******** *┆
0x062a0…062c0 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 20 20 ┆ ┆
0x062c0…062e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 0a 20 20 20 20 20 20 20 20 20 ┆ * ┆
0x062e0…062fc 20 20 20 20 20 20 20 20 20 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ * ┆
0x062fc…06302 (0x194,0xc7)
0x06302…06320 20 20 20 20 73 63 61 6e 6e 65 72 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ scanner ┆
0x06320…06340 20 20 20 20 20 2a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 20 20 20 20 20 ┆ * * ┆
0x06340…06360 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 20 20 ┆ ┆
0x06360…0637a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 0a 20 20 20 20 20 20 20 20 20 ┆ * ┆
0x0637a…06380 (0x194,0xc8)
0x06380…063a0 20 20 20 20 20 20 20 20 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ ***********************┆
0x063a0…063c0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x063c0…063e0 0a 20 20 20 20 20 3b 0a 20 0a 20 20 20 20 20 20 20 20 69 6e 74 65 67 65 72 20 70 72 6f 63 65 64 ┆ ; integer proced┆
0x063e0…06400 75 72 65 20 6e 7b 73 74 65 73 79 6d 62 6f 6c 3b 0a 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ure næstesymbol; ┆
0x06400…06406 (50,) (0x194,0xc9)
0x06406…06420 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 69 6e 74 65 67 65 72 20 6e ┆ begin integer n┆
0x06420…06440 61 76 6e 65 70 69 6c 2c 73 79 6d 62 6f 6c 2c 65 78 70 2c 74 6f 6d 2c 69 2c 6a 3b 0a 20 20 20 20 ┆avnepil,symbol,exp,tom,i,j; ┆
0x06440…06460 20 20 20 20 20 20 69 6e 74 65 67 65 72 20 69 6e 64 65 78 3b 0a 20 20 20 20 20 20 20 20 20 20 69 ┆ integer index; i┆
0x06460…0647e 6e 74 65 67 65 72 20 61 72 72 61 79 20 6e 61 76 6e 28 31 3a 39 29 3b 0a 0a 0a 20 20 20 20 ┆nteger array navn(1:9); ┆
0x0647e…06484 (0x194,0xca)
0x06484…064a0 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ comment **************┆
0x064a0…064c0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x064c0…064e0 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆********* ┆
0x064e0…064fc 20 20 20 69 6e 64 6c 7b 73 6e 69 6e 67 20 61 66 20 65 6e 6b 65 6c 74 6b 61 72 61 6b ┆ indlæsning af enkeltkarak┆
0x064fc…06502 (0x194,0xcb)
0x06502…06520 74 65 72 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 2a 2a 2a 2a ┆terer ******┆
0x06520…06540 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x06540…06560 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 3b 0a 0a 20 20 20 20 20 20 20 20 20 20 70 72 ┆*****************; pr┆
0x06560…0657a 6f 63 65 64 75 72 65 20 6e 79 6b 61 72 61 6b 74 65 72 3b 0a 20 20 20 20 20 20 ┆ocedure nykarakter; ┆
0x0657a…06580 (0x194,0xcc)
0x06580…065a0 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 69 73 6f 76 7b 72 64 ┆ begin if isoværd┆
0x065a0…065c0 69 3d 31 30 20 6f 72 20 69 73 6f 76 7b 72 64 69 20 3d 20 31 32 20 74 68 65 6e 0a 20 20 20 20 20 ┆i=10 or isoværdi = 12 then ┆
0x065c0…065e0 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 2a 2a 2a 20 75 64 73 6b 72 69 76 ┆ begin comment *** udskriv┆
0x065e0…06600 6e 69 6e 67 20 61 66 20 64 65 6e 20 27 67 61 6d 6c 65 27 20 6c 69 6e 69 00 00 00 00 00 00 00 00 ┆ning af den 'gamle' lini ┆
0x06600…06606 (51,) (0x194,0xcd)
0x06606…06620 65 20 2a 2a 2a 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 6c 69 ┆e ***; if li┆
0x06620…06640 73 74 20 6f 72 20 28 65 72 72 6f 72 6c 69 73 74 20 61 6e 64 20 2d 2c 20 6f 6b 6c 69 6e 69 65 29 ┆st or (errorlist and -, oklinie)┆
0x06640…06660 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 ┆ then begin ┆
0x06660…0667e 20 20 20 20 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 3c 3c 64 64 64 64 64 3e 2c 6b ┆ write(out,<<ddddd>,k┆
0x0667e…06684 (0x194,0xce)
0x06684…066a0 6f 64 65 61 64 64 72 2c 3c 3a 20 20 3a 3e 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆odeaddr,<: :>); ┆
0x066a0…066c0 20 20 20 20 20 6b 6f 64 65 61 64 64 72 3a 3d 32 2a 7a 70 69 6c 3b 0a 20 20 20 20 20 20 20 20 20 ┆ kodeaddr:=2*zpil; ┆
0x066c0…066e0 20 20 20 20 20 20 20 6f 75 74 63 68 61 72 28 6f 75 74 2c 62 65 67 69 6e 6e 69 76 29 3b 0a 20 20 ┆ outchar(out,beginniv); ┆
0x066e0…066fc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 75 74 63 68 61 72 28 6f 75 74 2c 65 6e ┆ outchar(out,en┆
0x066fc…06702 (0x194,0xcf)
0x06702…06720 64 6e 69 76 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 72 69 74 65 28 6f ┆dniv); write(o┆
0x06720…06740 75 74 2c 3c 3c 64 64 64 64 64 3e 2c 6c 69 6e 69 65 6e 72 2c 69 66 20 6f 6b 6c 69 6e 69 65 20 74 ┆ut,<<ddddd>,linienr,if oklinie t┆
0x06740…06760 68 65 6e 20 3c 3a 20 20 20 3a 3e 20 65 6c 73 65 20 3c 3a 2a 2a 2a 3a 3e 29 3b 0a 20 20 20 20 20 ┆hen <: :> else <:***:>); ┆
0x06760…0677a 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 69 3a 3d 31 20 73 74 65 70 20 31 ┆ for i:=1 step 1┆
0x0677a…06780 (0x194,0xd0)
0x06780…067a0 20 75 6e 74 69 6c 20 6c 69 6e 69 65 70 69 6c 20 64 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ until liniepil do ┆
0x067a0…067c0 20 20 20 20 20 6f 75 74 63 68 61 72 28 6f 75 74 2c 6c 69 6e 69 65 28 69 29 29 3b 0a 20 20 20 20 ┆ outchar(out,linie(i)); ┆
0x067c0…067e0 20 20 20 20 20 20 20 20 20 20 20 20 6f 75 74 63 68 61 72 28 6f 75 74 2c 69 73 6f 76 7b 72 64 69 ┆ outchar(out,isoværdi┆
0x067e0…06800 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 00 00 00 00 00 00 00 00 ┆); end; ┆
0x06800…06806 (52,) (0x194,0xd1)
0x06806…06820 20 20 20 20 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 2a 2a 2a 20 6c 69 6e 69 ┆ comment *** lini┆
0x06820…06840 65 6e 75 6d 6d 65 72 20 74 7b 6c 6c 65 73 20 6f 70 20 6f 67 20 6c 69 6e 69 65 20 30 2d 73 74 69 ┆enummer tælles op og linie 0-sti┆
0x06840…06860 6c 6c 65 73 20 2a 2a 2a 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 69 6e 69 65 6e 72 3a ┆lles ***; linienr:┆
0x06860…0687e 3d 69 66 20 69 73 6f 76 7b 72 64 69 20 3d 20 31 30 20 74 68 65 6e 20 6c 69 6e 69 65 6e 72 ┆=if isoværdi = 10 then linienr┆
0x0687e…06884 (0x194,0xd2)
0x06884…068a0 2b 31 20 65 6c 73 65 20 28 6c 69 6e 69 65 6e 72 2f 2f 31 30 30 2b 31 29 2a 31 30 30 ┆+1 else (linienr//100+1)*100┆
0x068a0…068c0 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 69 6e 69 65 70 69 6c 3a 3d 30 3b 0a 20 20 20 ┆; liniepil:=0; ┆
0x068c0…068e0 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 6e 69 76 3a 3d 65 6e 64 6e 69 76 3a 3d 34 35 3b ┆ beginniv:=endniv:=45;┆
0x068e0…068fc 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 6b 6c 69 6e 69 65 3a 3d 74 72 75 65 ┆ oklinie:=true┆
0x068fc…06902 (0x194,0xd3)
0x06902…06920 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆; end; ┆
0x06920…06940 20 6b 6c 61 73 73 65 3a 3d 72 65 61 64 63 68 61 72 28 69 6e 2c 69 73 6f 76 7b 72 64 69 29 3b 0a ┆ klasse:=readchar(in,isoværdi); ┆
0x06940…06960 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 69 73 6f 76 7b 72 64 69 3d 31 30 20 74 68 65 6e 20 ┆ if isoværdi=10 then ┆
0x06960…0697a 6b 6c 61 73 73 65 3a 3d 35 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 ┆klasse:=5; if ┆
0x0697a…06980 (0x194,0xd4)
0x06980…069a0 69 73 6f 76 7b 72 64 69 20 3d 20 31 32 20 74 68 65 6e 20 6b 6c 61 73 73 65 3a 3d 35 3b 0a 20 20 ┆isoværdi = 12 then klasse:=5; ┆
0x069a0…069c0 20 20 20 20 20 20 20 20 20 20 69 66 20 69 73 6f 76 7b 72 64 69 3d 33 32 20 74 68 65 6e 20 6b 6c ┆ if isoværdi=32 then kl┆
0x069c0…069e0 61 73 73 65 3a 3d 35 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 69 73 6f 76 7b 72 64 69 ┆asse:=5; if isoværdi┆
0x069e0…06a00 3d 39 35 20 74 68 65 6e 20 6b 6c 61 73 73 65 3a 3d 36 3b 0a 20 20 20 20 00 00 00 00 00 00 00 00 ┆=95 then klasse:=6; ┆
0x06a00…06a06 (53,) (0x194,0xd5)
0x06a06…06a20 20 20 20 20 20 20 20 20 69 66 20 69 73 6f 76 7b 72 64 69 20 3d 20 33 39 20 74 ┆ if isoværdi = 39 t┆
0x06a20…06a40 68 65 6e 20 6b 6c 61 73 73 65 3a 3d 38 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 69 73 ┆hen klasse:=8; if is┆
0x06a40…06a60 6f 76 7b 72 64 69 3d 32 35 20 74 68 65 6e 20 66 65 6a 6c 28 32 30 34 30 29 3b 0a 20 20 20 20 20 ┆oværdi=25 then fejl(2040); ┆
0x06a60…06a7e 20 20 20 20 20 20 20 69 66 20 69 73 6f 76 7b 72 64 69 3c 3e 31 30 20 61 6e 64 20 69 73 6f ┆ if isoværdi<>10 and iso┆
0x06a7e…06a84 (0x194,0xd6)
0x06a84…06aa0 76 7b 72 64 69 20 3c 3e 20 31 32 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 ┆værdi <> 12 then ┆
0x06aa0…06ac0 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 69 6e 69 65 70 69 6c 3a 3d 6c ┆ begin liniepil:=l┆
0x06ac0…06ae0 69 6e 69 65 70 69 6c 2b 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 69 6e 69 65 28 6c ┆iniepil+1; linie(l┆
0x06ae0…06afc 69 6e 69 65 70 69 6c 29 3a 3d 69 73 6f 76 7b 72 64 69 3b 0a 20 20 20 20 20 20 20 20 ┆iniepil):=isoværdi; ┆
0x06afc…06b02 (0x194,0xd7)
0x06b02…06b20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 0a 0a 0a 0a 20 20 ┆ end; end; ┆
0x06b20…06b40 20 20 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ comment ****************┆
0x06b40…06b60 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x06b60…06b7a 2a 2a 2a 2a 2a 2a 2a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆******* ┆
0x06b7a…06b80 (0x194,0xd8)
0x06b80…06ba0 20 20 20 20 20 20 20 20 20 20 73 74 61 6b 6e 69 6e 67 20 61 66 20 6c 65 6b 73 69 6b 61 6c 65 20 ┆ stakning af leksikale ┆
0x06ba0…06bc0 66 65 6a 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆fejl *********┆
0x06bc0…06be0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x06be0…06c00 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 3b 0a 20 0a 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆**************; ┆
0x06c00…06c06 (54,) (0x194,0xd9)
0x06c06…06c20 20 20 20 20 70 72 6f 63 65 64 75 72 65 20 66 65 6a 6c 28 66 65 6a 6c 6e 72 29 ┆ procedure fejl(fejlnr)┆
0x06c20…06c40 3b 0a 20 20 20 20 20 20 20 20 20 20 76 61 6c 75 65 20 66 65 6a 6c 6e 72 3b 0a 20 20 20 20 20 20 ┆; value fejlnr; ┆
0x06c40…06c60 20 20 20 20 69 6e 74 65 67 65 72 20 66 65 6a 6c 6e 72 3b 0a 20 20 20 20 20 20 20 20 20 20 62 65 ┆ integer fejlnr; be┆
0x06c60…06c7e 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 6f 6b 6c 69 6e 69 65 3a 3d 66 61 6c 73 65 ┆gin oklinie:=false┆
0x06c7e…06c84 (0x194,0xda)
0x06c84…06ca0 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 66 65 6a 6c 70 69 6c 3a 3d 66 65 6a 6c 70 ┆; fejlpil:=fejlp┆
0x06ca0…06cc0 69 6c 2b 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 66 65 6a 6c 73 74 61 6b 28 31 2c 66 65 6a ┆il+1; fejlstak(1,fej┆
0x06cc0…06ce0 6c 70 69 6c 29 3a 3d 66 65 6a 6c 6e 72 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 66 65 6a 6c 73 ┆lpil):=fejlnr; fejls┆
0x06ce0…06cfc 74 61 6b 28 32 2c 66 65 6a 6c 70 69 6c 29 3a 3d 6c 69 6e 69 65 6e 72 3b 0a 20 20 20 ┆tak(2,fejlpil):=linienr; ┆
0x06cfc…06d02 (0x194,0xdb)
0x06d02…06d20 20 20 20 20 20 20 20 20 20 69 66 20 66 65 6a 6c 70 69 6c 3d 34 39 20 74 68 65 6e 20 66 65 ┆ if fejlpil=49 then fe┆
0x06d20…06d40 6a 6c 28 32 30 34 30 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 66 65 6a 6c 6e 72 3d ┆jl(2040); if fejlnr=┆
0x06d40…06d60 32 30 34 30 20 74 68 65 6e 20 67 6f 74 6f 20 70 61 73 73 73 74 6f 70 3b 0a 20 20 20 20 20 20 20 ┆2040 then goto passstop; ┆
0x06d60…06d7a 20 20 20 20 20 66 6f 72 20 69 3a 3d 30 20 77 68 69 6c 65 20 69 73 6f 76 7b 72 ┆ for i:=0 while isovær┆
0x06d7a…06d80 (0x194,0xdc)
0x06d80…06da0 64 69 3c 3e 33 32 20 64 6f 20 6e 79 6b 61 72 61 6b 74 65 72 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆di<>32 do nykarakter; ┆
0x06da0…06dc0 20 20 6e 79 74 69 6c 73 74 3a 3d 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 6e ┆ nytilst:=1; goto n┆
0x06dc0…06de0 79 63 61 73 65 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 0a 20 0a 20 20 20 20 20 20 20 ┆ycase; end; ┆
0x06de0…06e00 20 20 20 63 6f 6d 6d 65 6e 74 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 00 00 00 00 00 00 00 ┆ comment ************* ┆
0x06e00…06e06 (55,) (0x194,0xdd)
0x06e06…06e20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆**************************┆
0x06e20…06e40 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆**************** ┆
0x06e40…06e60 20 20 20 20 20 20 20 20 73 7c 67 6e 69 6e 67 20 69 20 74 61 62 65 6c 20 6f 76 65 72 20 64 6f 62 ┆ søgning i tabel over dob┆
0x06e60…06e7e 62 65 6c 74 73 6b 69 6c 6c 65 74 65 67 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆beltskilletegn ┆
0x06e7e…06e84 (0x194,0xde)
0x06e84…06ea0 20 20 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ *************************┆
0x06ea0…06ec0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 3b 0a ┆******************************; ┆
0x06ec0…06ee0 20 0a 20 20 20 20 20 20 20 20 20 20 70 72 6f 63 65 64 75 72 65 20 74 6f 73 6b 69 6c 73 7c 67 3b ┆ procedure toskilsøg;┆
0x06ee0…06efc 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ begin ┆
0x06efc…06f02 (0x194,0xdf)
0x06f02…06f20 20 69 3a 3d 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 74 6f 6d 3a 3d 30 20 ┆ i:=1; for tom:=0 ┆
0x06f20…06f40 77 68 69 6c 65 20 73 79 6d 62 6f 6c 3c 3e 74 6f 73 6b 69 6c 31 28 69 29 20 64 6f 0a 20 20 20 20 ┆while symbol<>toskil1(i) do ┆
0x06f40…06f60 20 20 20 20 20 20 20 20 20 20 69 66 20 69 3e 36 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 ┆ if i>6 then ┆
0x06f60…06f7a 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 2a 2a 2a 20 73 79 6d 62 ┆ begin comment *** symb┆
0x06f7a…06f80 (0x194,0xe0)
0x06f80…06fa0 6f 6c 65 74 20 66 61 6e 64 74 65 73 20 69 6b 6b 65 20 6f 67 20 31 2e 20 73 6b 69 6c 6c 65 74 65 ┆olet fandtes ikke og 1. skillete┆
0x06fa0…06fc0 67 6e 20 6f 70 66 61 74 74 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆gn opfattes ┆
0x06fc0…06fe0 20 20 20 20 20 20 20 20 20 20 20 64 65 72 66 6f 72 20 73 6f 6d 20 73 65 6c 76 73 74 7b 6e 64 69 ┆ derfor som selvstændi┆
0x06fe0…07000 67 74 20 73 79 6d 62 6f 6c 20 2a 2a 2a 3b 0a 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆gt symbol ***; ┆
0x07000…07006 (56,) (0x194,0xe1)
0x07006…07020 20 20 20 20 20 20 20 73 79 6d 62 6f 6c 3a 3d 73 79 6d 62 6f 6c 20 73 68 69 66 ┆ symbol:=symbol shif┆
0x07020…07040 74 20 28 2d 31 36 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 73 79 6d 62 ┆t (-16); if symb┆
0x07040…07060 6f 6c 3c 34 30 20 6f 72 20 73 79 6d 62 6f 6c 3e 36 32 20 74 68 65 6e 20 66 65 6a 6c 28 32 30 31 ┆ol<40 or symbol>62 then fejl(201┆
0x07060…0707e 37 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 65 72 6d 3a 3d 73 6b 69 6c ┆7); term:=skil┆
0x0707e…07084 (0x194,0xe2)
0x07084…070a0 74 61 62 28 73 79 6d 62 6f 6c 29 20 65 78 74 72 61 63 74 20 36 3b 0a 20 20 20 20 20 ┆tab(symbol) extract 6; ┆
0x070a0…070c0 20 20 20 20 20 20 20 20 20 20 20 61 72 74 3a 3d 73 6b 69 6c 74 61 62 28 73 79 6d 62 6f 6c 29 20 ┆ art:=skiltab(symbol) ┆
0x070c0…070e0 73 68 69 66 74 20 28 2d 36 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f ┆shift (-6); goto┆
0x070e0…070fc 20 73 74 6f 70 73 63 61 6e 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 ┆ stopscan; end┆
0x070fc…07102 (0x194,0xe3)
0x07102…07120 20 65 6c 73 65 20 69 3a 3d 69 2b 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 74 65 72 6d ┆ else i:=i+1; term┆
0x07120…07140 3a 3d 74 6f 73 6b 69 6c 32 28 69 29 20 65 78 74 72 61 63 74 20 36 3b 0a 20 20 20 20 20 20 20 20 ┆:=toskil2(i) extract 6; ┆
0x07140…07160 20 20 20 20 61 72 74 3a 3d 74 6f 73 6b 69 6c 32 28 69 29 20 73 68 69 66 74 20 28 2d 36 29 3b 0a ┆ art:=toskil2(i) shift (-6); ┆
0x07160…0717a 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 0a 20 20 20 20 20 20 20 20 20 20 ┆ end; ┆
0x0717a…07180 (0x194,0xe4)
0x07180…071a0 63 6f 6d 6d 65 6e 74 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆comment ************************┆
0x071a0…071c0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a ┆******************************* ┆
0x071c0…071e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 7c 67 6e 69 6e 67 20 69 ┆ søgning i┆
0x071e0…07200 20 74 61 62 65 6c 20 6f 76 65 72 20 72 65 73 65 72 76 65 72 65 64 65 20 00 00 00 00 00 00 00 00 ┆ tabel over reserverede ┆
0x07200…07206 (57,) (0x194,0xe5)
0x07206…07220 6e 61 76 6e 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a ┆navne **┆
0x07220…07240 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x07240…07260 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 3b 0a 0a 20 20 20 20 20 20 20 20 ┆*********************; ┆
0x07260…0727e 20 20 70 72 6f 63 65 64 75 72 65 20 6e 61 76 6e 65 73 7c 67 28 74 61 62 65 6c 6e 72 29 3b ┆ procedure navnesøg(tabelnr);┆
0x0727e…07284 (0x194,0xe6)
0x07284…072a0 0a 20 20 20 20 20 20 20 20 20 20 76 61 6c 75 65 20 74 61 62 65 6c 6e 72 3b 0a 20 20 ┆ value tabelnr; ┆
0x072a0…072c0 20 20 20 20 20 20 20 20 69 6e 74 65 67 65 72 20 74 61 62 65 6c 6e 72 3b 0a 20 20 20 20 20 20 20 ┆ integer tabelnr; ┆
0x072c0…072e0 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 2a 2a 2a 20 6e 61 76 6e 65 74 73 20 6b 61 72 ┆ begin comment *** navnets kar┆
0x072e0…072fc 61 6b 74 65 72 65 72 20 70 61 6b 6b 65 73 20 69 20 74 72 65 20 6f 72 64 20 2a 2a 2a ┆akterer pakkes i tre ord ***┆
0x072fc…07302 (0x194,0xe7)
0x07302…07320 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 64 65 6c 6e 61 76 6e 31 3a 3d 6e 61 76 6e 28 31 ┆; delnavn1:=navn(1┆
0x07320…07340 29 20 73 68 69 66 74 20 38 20 61 64 64 20 6e 61 76 6e 28 32 29 20 73 68 69 66 74 20 38 20 61 64 ┆) shift 8 add navn(2) shift 8 ad┆
0x07340…07360 64 20 6e 61 76 6e 28 33 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 64 65 6c 6e 61 76 6e 32 3a ┆d navn(3); delnavn2:┆
0x07360…0737a 3d 6e 61 76 6e 28 34 29 20 73 68 69 66 74 20 38 20 61 64 64 20 6e 61 76 6e 28 ┆=navn(4) shift 8 add navn(┆
0x0737a…07380 (0x194,0xe8)
0x07380…073a0 35 29 20 73 68 69 66 74 20 38 20 61 64 64 20 6e 61 76 6e 28 36 29 3b 0a 20 20 20 20 20 20 20 20 ┆5) shift 8 add navn(6); ┆
0x073a0…073c0 20 20 20 20 64 65 6c 6e 61 76 6e 33 3a 3d 6e 61 76 6e 28 37 29 20 73 68 69 66 74 20 38 20 61 64 ┆ delnavn3:=navn(7) shift 8 ad┆
0x073c0…073e0 64 20 6e 61 76 6e 28 38 29 20 73 68 69 66 74 20 38 20 61 64 64 20 6e 61 76 6e 28 39 29 3b 0a 20 ┆d navn(8) shift 8 add navn(9); ┆
0x073e0…07400 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 64 65 6c 6e 61 76 6e 31 00 00 00 00 00 00 00 00 ┆ if delnavn1 ┆
0x07400…07406 (58,) (0x194,0xe9)
0x07406…07420 3d 36 35 31 36 35 38 39 20 61 6e 64 20 28 64 65 6c 6e 61 76 6e 32 3d 37 31 36 ┆=6516589 and (delnavn2=716┆
0x07420…07440 39 33 39 30 20 61 6e 64 20 64 65 6c 6e 61 76 6e 33 3d 37 36 30 32 31 37 36 29 0a 20 20 20 20 20 ┆9390 and delnavn3=7602176) ┆
0x07440…07460 20 20 20 20 20 20 20 20 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 ┆ then begi┆
0x07460…0747e 6e 20 63 6f 6d 6d 65 6e 74 20 2a 2a 2a 20 6e 61 76 6e 65 74 20 65 72 20 27 63 6f 6d 6d 65 ┆n comment *** navnet er 'comme┆
0x0747e…07484 (0x194,0xea)
0x07484…074a0 6e 74 27 20 2a 2a 2a 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 ┆nt' ***; for┆
0x074a0…074c0 20 74 6f 6d 3a 3d 30 20 77 68 69 6c 65 20 69 73 6f 76 7b 72 64 69 3c 3e 35 39 20 64 6f 20 6e 79 ┆ tom:=0 while isoværdi<>59 do ny┆
0x074c0…074e0 6b 61 72 61 6b 74 65 72 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 79 6b 61 72 61 ┆karakter; nykara┆
0x074e0…074fc 6b 74 65 72 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 79 74 69 6c 73 ┆kter; nytils┆
0x074fc…07502 (0x194,0xeb)
0x07502…07520 74 3a 3d 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 6e 79 63 ┆t:=1; goto nyc┆
0x07520…07540 61 73 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 ┆ase; end; ┆
0x07540…07560 20 20 20 20 69 66 20 74 61 62 65 6c 6e 72 3d 31 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 ┆ if tabelnr=1 then ┆
0x07560…0757a 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 2a 2a 2a 20 62 65 72 65 67 6e ┆ begin comment *** beregn┆
0x0757a…07580 (0x194,0xec)
0x07580…075a0 69 6e 67 20 61 66 20 63 69 72 6b 61 61 64 72 65 73 73 65 20 69 20 6e 61 76 6e 65 74 61 62 65 6c ┆ing af cirkaadresse i navnetabel┆
0x075a0…075c0 20 2a 2a 2a 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 6e 64 65 78 3a 3d 31 2b 28 64 65 ┆ ***; index:=1+(de┆
0x075c0…075e0 6c 6e 61 76 6e 31 2d 36 33 38 32 34 33 35 29 2f 2f 32 34 32 30 30 3b 0a 20 20 20 20 20 20 20 20 ┆lnavn1-6382435)//24200; ┆
0x075e0…07600 20 20 20 20 20 20 69 66 20 64 65 6c 6e 61 76 6e 31 3e 38 30 32 31 33 36 00 00 00 00 00 00 00 00 ┆ if delnavn1>802136 ┆
0x07600…07606 (59,) (0x194,0xed)
0x07606…07620 32 20 6f 72 20 64 65 6c 6e 61 76 6e 31 3c 36 33 38 32 36 39 32 20 74 68 65 6e ┆2 or delnavn1<6382692 then┆
0x07620…07640 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ begin ┆
0x07640…07660 20 20 20 20 20 74 65 72 6d 3a 3d 33 38 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 ┆ term:=38; a┆
0x07660…0767e 72 74 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 75 64 ┆rt:=0; goto ud┆
0x0767e…07684 (0x194,0xee)
0x07684…076a0 6e 61 76 6e 65 73 7c 67 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b ┆navnesøg; end;┆
0x076a0…076c0 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 ┆ end else ┆
0x076c0…076e0 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 2a 2a 2a 20 69 6e 64 73 7b 74 65 6c 73 65 20 61 ┆ begin comment *** indsætelse a┆
0x076e0…076fc 66 20 63 69 72 6b 61 61 64 72 65 73 73 65 20 74 69 6c 20 63 6f 6d 70 69 6c 65 72 6f ┆f cirkaadresse til compilero┆
0x076fc…07702 (0x194,0xef)
0x07702…07720 72 64 20 69 20 74 61 62 65 6c 20 2a 2a 2a 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆rd i tabel ***; ┆
0x07720…07740 69 66 20 64 65 6c 6e 61 76 6e 31 3c 36 33 38 37 30 36 30 20 6f 72 20 64 65 6c 6e 61 76 6e 31 3e ┆if delnavn1<6387060 or delnavn1>┆
0x07740…07760 37 36 32 38 31 34 37 20 74 68 65 6e 20 66 65 6a 6c 28 32 30 32 32 29 3b 0a 20 20 20 20 20 20 20 ┆7628147 then fejl(2022); ┆
0x07760…0777a 20 20 20 20 20 20 20 69 6e 64 65 78 3a 3d 37 35 3b 0a 20 20 20 20 20 20 20 20 ┆ index:=75; ┆
0x0777a…07780 (0x194,0xf0)
0x07780…077a0 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 2a 2a 2a ┆ end; comment ***┆
0x077a0…077c0 20 20 73 7c 67 6e 69 6e 67 20 69 20 74 61 62 65 6c 20 6f 76 65 72 20 72 65 73 65 72 76 65 72 65 ┆ søgning i tabel over reservere┆
0x077c0…077e0 64 65 20 6e 61 76 6e 65 20 2a 2a 2a 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 74 6f ┆de navne ***; for to┆
0x077e0…07800 6d 3a 3d 30 20 77 68 69 6c 65 20 64 65 6c 6e 61 76 6e 31 3e 6e 61 76 6e 00 00 00 00 00 00 00 00 ┆m:=0 while delnavn1>navn ┆
0x07800…07806 (60,) (0x194,0xf1)
0x07806…07820 65 74 61 62 31 28 69 6e 64 65 78 29 20 64 6f 20 69 6e 64 65 78 3a 3d 69 6e 64 ┆etab1(index) do index:=ind┆
0x07820…07840 65 78 2b 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 74 6f 6d 3a 3d 30 20 77 68 69 ┆ex+1; for tom:=0 whi┆
0x07840…07860 6c 65 20 64 65 6c 6e 61 76 6e 31 3c 6e 61 76 6e 65 74 61 62 31 28 69 6e 64 65 78 29 20 64 6f 20 ┆le delnavn1<navnetab1(index) do ┆
0x07860…0787e 69 6e 64 65 78 3a 3d 69 6e 64 65 78 2d 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 ┆index:=index-1; if┆
0x0787e…07884 (0x194,0xf2)
0x07884…078a0 20 64 65 6c 6e 61 76 6e 31 3c 3e 6e 61 76 6e 65 74 61 62 31 28 69 6e 64 65 78 29 20 ┆ delnavn1<>navnetab1(index) ┆
0x078a0…078c0 6f 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 65 6c 6e 61 76 6e 32 3c 3e 6e 61 76 6e ┆or (delnavn2<>navn┆
0x078c0…078e0 65 74 61 62 32 28 69 6e 64 65 78 29 20 6f 72 20 64 65 6c 6e 61 76 6e 33 3c 3e 6e 61 76 6e 65 74 ┆etab2(index) or delnavn3<>navnet┆
0x078e0…078fc 61 62 33 28 69 6e 64 65 78 29 29 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ab3(index)) then ┆
0x078fc…07902 (0x194,0xf3)
0x07902…07920 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 74 61 62 65 6c 6e ┆ begin if tabeln┆
0x07920…07940 72 3d 32 20 74 68 65 6e 20 66 65 6a 6c 28 32 30 32 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆r=2 then fejl(2022); ┆
0x07940…07960 20 20 20 74 65 72 6d 3a 3d 33 38 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 72 74 3a 3d ┆ term:=38; art:=┆
0x07960…0797a 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 20 65 6c 73 65 0a 20 20 ┆0; end else ┆
0x0797a…07980 (0x194,0xf4)
0x07980…079a0 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 2a 2a 2a 20 75 64 70 61 ┆ begin comment *** udpa┆
0x079a0…079c0 6b 6e 69 6e 67 20 61 66 20 73 79 6d 62 6f 6c 6e 75 6d 6d 65 72 20 6f 67 20 61 74 74 72 69 62 75 ┆kning af symbolnummer og attribu┆
0x079c0…079e0 74 74 65 72 20 2a 2a 2a 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 65 72 6d 3a 3d 6e 61 ┆tter ***; term:=na┆
0x079e0…07a00 76 6e 65 74 61 62 34 28 69 6e 64 65 78 29 20 65 78 74 72 61 63 74 20 36 00 00 00 00 00 00 00 00 ┆vnetab4(index) extract 6 ┆
0x07a00…07a06 (61,) (0x194,0xf5)
0x07a06…07a20 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 72 74 3a 3d 6e 61 76 6e 65 ┆; art:=navne┆
0x07a20…07a40 74 61 62 34 28 69 6e 64 65 78 29 20 73 68 69 66 74 20 28 2d 36 29 3b 0a 20 20 20 20 20 20 20 20 ┆tab4(index) shift (-6); ┆
0x07a40…07a60 20 20 20 20 20 20 69 66 20 74 65 72 6d 3d 31 34 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 ┆ if term=14 then ┆
0x07a60…07a7e 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 2a 2a 2a 20 6e 61 76 6e 65 74 20 65 ┆ begin comment *** navnet e┆
0x07a7e…07a84 (0x194,0xf6)
0x07a84…07aa0 72 20 27 62 65 67 69 6e 27 20 2a 2a 2a 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆r 'begin' ***; ┆
0x07aa0…07ac0 20 20 20 62 6c 6f 6b 64 79 62 64 65 3a 3d 62 6c 6f 6b 64 79 62 64 65 2b 31 3b 0a 20 20 20 20 20 ┆ blokdybde:=blokdybde+1; ┆
0x07ac0…07ae0 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 6e 69 76 3a 3d 34 38 2b 62 6c 6f 6b 64 79 62 64 ┆ beginniv:=48+blokdybd┆
0x07ae0…07afc 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 ┆e; end; ┆
0x07afc…07b02 (0x194,0xf7)
0x07b02…07b20 20 20 20 20 20 20 20 20 69 66 20 74 65 72 6d 3d 32 36 20 74 68 65 6e 0a 20 20 20 20 20 20 ┆ if term=26 then ┆
0x07b20…07b40 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 2a 2a 2a 20 6e 61 76 6e 65 74 ┆ begin comment *** navnet┆
0x07b40…07b60 20 65 72 20 27 65 6e 64 27 20 2a 2a 2a 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 ┆ er 'end' ***; e┆
0x07b60…07b7a 6e 64 6e 69 76 3a 3d 34 38 2b 62 6c 6f 6b 64 79 62 64 65 3b 0a 20 20 20 20 20 ┆ndniv:=48+blokdybde; ┆
0x07b7a…07b80 (0x194,0xf8)
0x07b80…07ba0 20 20 20 20 20 20 20 20 20 20 20 62 6c 6f 6b 64 79 62 64 65 3a 3d 62 6c 6f 6b 64 79 62 64 65 2d ┆ blokdybde:=blokdybde-┆
0x07ba0…07bc0 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 62 6c 6f 6b 64 79 62 64 65 3c ┆1; if blokdybde<┆
0x07bc0…07be0 31 20 74 68 65 6e 20 61 66 62 72 79 64 33 3a 3d 74 72 75 65 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆1 then afbryd3:=true; ┆
0x07be0…07c00 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 00 00 00 00 00 00 00 00 ┆ end; end ┆
0x07c00…07c06 (62,) (0x194,0xf9)
0x07c06…07c20 3b 0a 75 64 6e 61 76 6e 65 73 7c 67 3a 20 65 6e 64 3b 0a 0a 0a 20 20 20 20 20 ┆; udnavnesøg: end; ┆
0x07c20…07c40 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ comment *******************┆
0x07c40…07c60 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x07c60…07c7e 2a 2a 2a 2a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 69 6c 73 74 61 6e ┆**** tilstan┆
0x07c7e…07c84 (0x194,0xfa)
0x07c84…07ca0 64 73 2f 61 6b 74 69 6f 6e 73 6b 6f 6e 73 74 72 75 6b 74 69 6f 6e 20 74 69 6c 20 65 ┆ds/aktionskonstruktion til e┆
0x07ca0…07cc0 72 6b 65 6e 64 65 6c 73 65 20 61 66 20 74 65 72 6d 69 6e 61 2d 0a 20 20 20 20 20 20 20 20 20 20 ┆rkendelse af termina- ┆
0x07cc0…07ce0 20 20 20 20 20 20 20 20 6c 65 20 73 79 6d 62 6f 6c 65 72 2e 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ le symboler. ┆
0x07ce0…07cfc 20 20 20 20 20 20 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ *********************┆
0x07cfc…07d02 (0x194,0xfb)
0x07d02…07d20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆******************************┆
0x07d20…07d40 2a 2a 2a 2a 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 6e 79 74 69 6c 73 74 3a 3d 31 3b 0a 20 20 ┆****; nytilst:=1; ┆
0x07d40…07d60 20 20 20 20 20 20 20 20 69 66 20 61 66 62 72 79 64 35 20 74 68 65 6e 20 66 65 6a 6c 28 32 30 34 ┆ if afbryd5 then fejl(204┆
0x07d60…07d7a 30 29 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 61 66 62 72 79 64 32 20 74 ┆0); if afbryd2 t┆
0x07d7a…07d80 (0x194,0xfc)
0x07d80…07da0 68 65 6e 20 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 2a 2a 2a ┆hen begin comment ***┆
0x07da0…07dc0 20 75 64 73 6b 72 69 76 6e 69 6e 67 20 61 66 20 73 69 64 73 74 65 20 6c 69 6e 69 65 20 20 2d 0a ┆ udskrivning af sidste linie - ┆
0x07dc0…07de0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 65 72 20 6c 7b 73 65 ┆ der læse┆
0x07de0…07e00 73 20 69 6b 6b 65 20 6d 65 72 65 2c 20 6d 65 6e 20 73 69 6d 75 6c 65 72 00 00 00 00 00 00 00 00 ┆s ikke mere, men simuler ┆
0x07e00…07e06 (63,) (0x194,0xfd)
0x07e06…07e20 65 73 20 65 74 20 70 75 6e 6b 74 75 6d 20 2a 2a 2a 3b 0a 20 20 20 20 20 20 20 ┆es et punktum ***; ┆
0x07e20…07e40 20 20 20 20 20 74 65 72 6d 3a 3d 35 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 6c 69 73 ┆ term:=5; if lis┆
0x07e40…07e60 74 20 61 6e 64 20 6c 69 6e 69 65 70 69 6c 3e 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 ┆t and liniepil>0 then ┆
0x07e60…07e7e 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 ┆ begin write(ou┆
0x07e7e…07e84 (0x194,0xfe)
0x07e84…07ea0 74 2c 3c 3c 64 64 64 64 64 3e 2c 6b 6f 64 65 61 64 64 72 2c 3c 3a 20 20 3a 3e 29 3b ┆t,<<ddddd>,kodeaddr,<: :>);┆
0x07ea0…07ec0 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 75 74 63 68 61 72 28 6f 75 74 2c 62 65 67 69 6e ┆ outchar(out,begin┆
0x07ec0…07ee0 6e 69 76 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 75 74 63 68 61 72 28 6f 75 74 2c ┆niv); outchar(out,┆
0x07ee0…07efc 65 6e 64 6e 69 76 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 72 69 74 65 ┆endniv); write┆
0x07efc…07f02 (0x194,0xff)
0x07f02…07f20 28 6f 75 74 2c 3c 3c 64 64 64 64 64 3e 2c 6c 69 6e 69 65 6e 72 2c 3c 3a 20 20 20 3a 3e 29 ┆(out,<<ddddd>,linienr,<: :>)┆
0x07f20…07f40 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 69 3a 3d 31 20 73 74 65 70 20 31 20 ┆; for i:=1 step 1 ┆
0x07f40…07f60 75 6e 74 69 6c 20 6c 69 6e 69 65 70 69 6c 20 64 6f 20 6f 75 74 63 68 61 72 28 6f 75 74 2c 6c 69 ┆until liniepil do outchar(out,li┆
0x07f60…07f7a 6e 69 65 28 69 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 69 6e ┆nie(i)); lin┆
0x07f7a…07f80 (0x194,0x100)
0x07f80…07fa0 69 65 70 69 6c 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 ┆iepil:=0; end; ┆
0x07fa0…07fc0 20 20 20 20 20 20 20 67 6f 74 6f 20 73 74 6f 70 73 63 61 6e 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆ goto stopscan; ┆
0x07fc0…07fe0 65 6e 64 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 2a 2a 2a 20 20 6f 70 ┆end; comment *** op┆
0x07fe0…08000 73 6c 61 67 20 69 20 61 6b 74 69 6f 6e 73 6c 69 73 74 65 20 6f 76 65 72 00 00 00 00 00 00 00 00 ┆slag i aktionsliste over ┆
0x08000…08006 (64,) (0x194,0x101)
0x08006…08020 20 73 63 61 6e 6e 65 72 61 6b 74 69 6f 6e 65 72 20 20 2a 2a 2a 3b 0a 6e 79 63 ┆ scanneraktioner ***; nyc┆
0x08020…08040 61 73 65 3a 20 20 20 63 61 73 65 20 61 6b 74 69 6f 6e 28 6e 79 74 69 6c 73 74 2c 6b 6c 61 73 73 ┆ase: case aktion(nytilst,klass┆
0x08040…08060 65 29 20 6f 66 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 0a 20 20 20 20 20 20 20 20 20 ┆e) of begin ┆
0x08060…0807e 20 20 20 62 65 67 69 6e 20 20 63 6f 6d 6d 65 6e 74 20 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ begin comment ----------┆
0x0807e…08084 (0x194,0x102)
0x08084…080a0 2d 2d 20 20 73 63 61 6e 6e 65 72 61 6b 74 69 6f 6e 20 6e 72 20 20 31 20 20 20 2d 2d ┆-- scanneraktion nr 1 --┆
0x080a0…080c0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 61 64 69 78 3a ┆----------; radix:┆
0x080c0…080e0 3d 31 30 3b 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 68 6b 6f 6e 73 74 3a 3d 69 73 6f 76 ┆=10; hkonst:=isov┆
0x080e0…080fc 7b 72 64 69 2d 34 38 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 0a 20 ┆ærdi-48; end; ┆
0x080fc…08102 (0x194,0x103)
0x08102…08120 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 20 63 6f 6d 6d 65 6e 74 20 20 20 2d 2d ┆ begin comment --┆
0x08120…08140 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 20 73 63 61 6e 6e 65 72 61 6b 74 69 6f 6e 20 6e 72 20 20 32 20 ┆---------- scanneraktion nr 2 ┆
0x08140…08160 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 ┆ ------------; if┆
0x08160…0817a 20 69 73 6f 76 7b 72 64 69 2d 34 38 20 3e 3d 20 72 61 64 69 78 20 74 68 65 6e ┆ isoværdi-48 >= radix then┆
0x0817a…08180 (0x194,0x104)
0x08180…081a0 20 66 65 6a 6c 28 32 30 30 34 29 3b 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 68 6b 6f 6e ┆ fejl(2004); hkon┆
0x081a0…081c0 73 74 3a 3d 68 6b 6f 6e 73 74 2a 72 61 64 69 78 2b 69 73 6f 76 7b 72 64 69 2d 34 38 3b 0a 20 20 ┆st:=hkonst*radix+isoværdi-48; ┆
0x081c0…081e0 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 68 6b 6f 6e 73 74 3c 30 20 74 68 65 6e 20 66 65 6a ┆ if hkonst<0 then fej┆
0x081e0…08200 6c 28 32 30 33 30 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 00 00 00 00 00 00 00 00 ┆l(2030); end ┆
0x08200…08206 (65,) (0x194,0x105)
0x08206…08220 3b 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 20 63 6f 6d 6d ┆; begin comm┆
0x08220…08240 65 6e 74 20 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 20 73 63 61 6e 6e 65 72 61 6b 74 69 6f ┆ent ------------ scanneraktio┆
0x08240…08260 6e 20 6e 72 20 20 33 20 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 3b 0a 20 20 20 20 20 20 20 20 ┆n nr 3 ------------; ┆
0x08260…0827e 20 20 20 20 20 20 69 66 20 72 61 64 69 78 20 3c 3e 20 31 30 20 74 68 65 6e 20 66 65 6a 6c ┆ if radix <> 10 then fejl┆
0x0827e…08284 (0x194,0x106)
0x08284…082a0 28 32 30 30 34 29 3b 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 6b 6f 6e 73 ┆(2004); rkons┆
0x082a0…082c0 74 3a 3d 68 6b 6f 6e 73 74 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 78 70 3a 3d 30 3b ┆t:=hkonst; exp:=0;┆
0x082c0…082e0 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 ┆ end; b┆
0x082e0…082fc 65 67 69 6e 20 20 63 6f 6d 6d 65 6e 74 20 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆egin comment ------------┆
0x082fc…08302 (0x194,0x107)
0x08302…08320 20 20 73 63 61 6e 6e 65 72 61 6b 74 69 6f 6e 20 6e 72 20 20 34 20 20 20 2d 2d 2d 2d 2d 2d ┆ scanneraktion nr 4 ------┆
0x08320…08340 2d 2d 2d 2d 2d 2d 3b 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 78 70 3a 3d 65 78 70 2b ┆------; exp:=exp+┆
0x08340…08360 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 65 78 70 3e 39 20 74 68 65 6e 20 66 65 ┆1; if exp>9 then fe┆
0x08360…0837a 6a 6c 28 32 30 33 31 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 6b ┆jl(2031); rk┆
0x0837a…08380 (0x194,0x108)
0x08380…083a0 6f 6e 73 74 3a 3d 72 6b 6f 6e 73 74 2b 28 69 73 6f 76 7b 72 64 69 2d 34 38 29 2f 31 30 2a 2a 65 ┆onst:=rkonst+(isoværdi-48)/10**e┆
0x083a0…083c0 78 70 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 0a 20 20 20 20 20 20 20 20 20 20 ┆xp; end; ┆
0x083c0…083e0 20 20 62 65 67 69 6e 20 20 63 6f 6d 6d 65 6e 74 20 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 ┆ begin comment ------------ ┆
0x083e0…08400 20 73 63 61 6e 6e 65 72 61 6b 74 69 6f 6e 20 6e 72 20 20 35 20 20 20 2d 00 00 00 00 00 00 00 00 ┆ scanneraktion nr 5 - ┆
0x08400…08406 (66,) (0x194,0x109)
0x08406…08420 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 3b 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆-----------; ┆
0x08420…08440 20 20 65 78 70 3a 3d 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 6b 6f 6e 73 74 3a 3d ┆ exp:=1; rkonst:=┆
0x08440…08460 28 69 73 6f 76 7b 72 64 69 2d 34 38 29 2f 31 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e ┆(isoværdi-48)/10; en┆
0x08460…0847e 64 3b 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 20 63 6f 6d 6d 65 6e 74 ┆d; begin comment┆
0x0847e…08484 (0x194,0x10a)
0x08484…084a0 20 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 20 73 63 61 6e 6e 65 72 61 6b 74 69 ┆ ------------ scannerakti┆
0x084a0…084c0 6f 6e 20 6e 72 20 20 36 20 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 3b 0a 0a 20 20 20 20 20 20 ┆on nr 6 ------------; ┆
0x084c0…084e0 20 20 20 20 20 20 20 20 66 6f 72 20 69 3a 3d 32 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 39 20 ┆ for i:=2 step 1 until 9 ┆
0x084e0…084fc 64 6f 20 6e 61 76 6e 28 69 29 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆do navn(i):=0; ┆
0x084fc…08502 (0x194,0x10b)
0x08502…08520 20 6e 61 76 6e 28 31 29 3a 3d 69 73 6f 76 7b 72 64 69 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆ navn(1):=isoværdi; ┆
0x08520…08540 20 20 20 20 6e 61 76 6e 65 70 69 6c 3a 3d 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 ┆ navnepil:=1; end┆
0x08540…08560 3b 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 20 63 6f 6d 6d 65 6e 74 20 20 20 ┆; begin comment ┆
0x08560…0857a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 20 73 63 61 6e 6e 65 72 61 6b 74 69 6f ┆------------ scanneraktio┆
0x0857a…08580 (0x194,0x10c)
0x08580…085a0 6e 20 6e 72 20 20 37 20 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 3b 0a 0a 20 20 20 20 20 20 20 ┆n nr 7 ------------; ┆
0x085a0…085c0 20 20 20 20 20 20 20 69 66 20 6e 61 76 6e 65 70 69 6c 3c 39 20 74 68 65 6e 0a 20 20 20 20 20 20 ┆ if navnepil<9 then ┆
0x085c0…085e0 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 61 ┆ begin na┆
0x085e0…08600 76 6e 65 70 69 6c 3a 3d 6e 61 76 6e 65 70 69 6c 2b 31 3b 0a 20 20 20 20 00 00 00 00 00 00 00 00 ┆vnepil:=navnepil+1; ┆
0x08600…08606 (67,) (0x194,0x10d)
0x08606…08620 20 20 20 20 20 20 20 20 20 20 20 20 6e 61 76 6e 28 6e 61 76 6e 65 70 69 6c 29 ┆ navn(navnepil)┆
0x08620…08640 3a 3d 69 73 6f 76 7b 72 64 69 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 ┆:=isoværdi; end; ┆
0x08640…08660 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 ┆ end; be┆
0x08660…0867e 67 69 6e 20 20 63 6f 6d 6d 65 6e 74 20 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 20 73 ┆gin comment ------------ s┆
0x0867e…08684 (0x194,0x10e)
0x08684…086a0 63 61 6e 6e 65 72 61 6b 74 69 6f 6e 20 6e 72 20 20 38 20 20 20 2d 2d 2d 2d 2d 2d 2d ┆canneraktion nr 8 -------┆
0x086a0…086c0 2d 2d 2d 2d 2d 3b 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 79 6d 62 6f 6c 3a 3d 69 73 ┆-----; symbol:=is┆
0x086c0…086e0 6f 76 7b 72 64 69 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 69 73 6f 76 7b 72 64 ┆oværdi; if isoværd┆
0x086e0…086fc 69 3d 33 34 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 ┆i=34 then begi┆
0x086fc…08702 (0x194,0x10f)
0x08702…08720 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 79 6b 61 72 61 6b 74 65 72 3b 0a ┆n nykarakter; ┆
0x08720…08740 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6a 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆ j:=0; ┆
0x08740…08760 20 20 20 20 20 20 66 6f 72 20 74 6f 6d 3a 3d 30 20 77 68 69 6c 65 20 69 73 6f 76 7b 72 64 69 3c ┆ for tom:=0 while isoværdi<┆
0x08760…0877a 3e 33 34 20 61 6e 64 20 6a 3c 31 33 32 20 64 6f 0a 20 20 20 20 20 20 20 20 20 ┆>34 and j<132 do ┆
0x0877a…08780 (0x194,0x110)
0x08780…087a0 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 ┆ begin i┆
0x087a0…087c0 66 20 69 73 6f 76 7b 72 64 69 20 3d 20 33 39 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 ┆f isoværdi = 39 then ┆
0x087c0…087e0 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ begin ┆
0x087e0…08800 20 6e 79 6b 61 72 61 6b 74 65 72 3b 0a 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ nykarakter; ┆
0x08800…08806 (68,) (0x194,0x111)
0x08806…08820 20 20 20 20 20 20 20 20 20 68 6b 6f 6e 73 74 3a 3d 30 3b 0a 20 20 20 20 20 20 ┆ hkonst:=0; ┆
0x08820…08840 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 74 6f 6d 3a 3d 30 20 77 68 69 6c 65 20 69 ┆ for tom:=0 while i┆
0x08840…08860 73 6f 76 7b 72 64 69 20 3e 3d 20 34 38 20 61 6e 64 20 69 73 6f 76 7b 72 64 69 20 3c 3d 20 35 37 ┆soværdi >= 48 and isoværdi <= 57┆
0x08860…0887e 20 64 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a ┆ do begin ┆
0x0887e…08884 (0x194,0x112)
0x08884…088a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 68 6b 6f 6e 73 74 ┆ hkonst┆
0x088a0…088c0 3a 3d 68 6b 6f 6e 73 74 2a 31 30 2b 69 73 6f 76 7b 72 64 69 2d 34 38 3b 0a 20 20 20 20 20 20 20 ┆:=hkonst*10+isoværdi-48; ┆
0x088c0…088e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 79 6b 61 72 61 6b 74 65 72 3b 0a 20 20 20 20 20 ┆ nykarakter; ┆
0x088e0…088fc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 ┆ end; ┆
0x088fc…08902 (0x194,0x113)
0x08902…08920 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 69 73 6f 76 7b 72 64 69 20 3c 3e 20 33 39 20 ┆ if isoværdi <> 39 ┆
0x08920…08940 74 68 65 6e 20 66 65 6a 6c 28 32 30 30 34 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆then fejl(2004); ┆
0x08940…08960 20 20 20 20 20 69 66 20 68 6b 6f 6e 73 74 20 3e 20 32 35 35 20 6f 72 20 68 6b 6f 6e 73 74 20 3c ┆ if hkonst > 255 or hkonst <┆
0x08960…0897a 20 30 20 74 68 65 6e 20 66 65 6a 6c 28 32 30 30 34 29 3b 0a 20 20 20 20 20 20 ┆ 0 then fejl(2004); ┆
0x0897a…08980 (0x194,0x114)
0x08980…089a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 79 6d 62 6f 6c 3a 3d 68 6b 6f 6e 73 74 3b 0a 20 20 ┆ symbol:=hkonst; ┆
0x089a0…089c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 20 65 6c 73 65 20 73 79 6d 62 6f 6c 3a ┆ end else symbol:┆
0x089c0…089e0 3d 69 73 6f 76 7b 72 64 69 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 74 72 ┆=isoværdi; str┆
0x089e0…08a00 65 6e 67 28 6a 2f 2f 33 29 3a 3d 73 74 72 65 6e 67 28 6a 2f 2f 33 29 20 00 00 00 00 00 00 00 00 ┆eng(j//3):=streng(j//3) ┆
0x08a00…08a06 (69,) (0x194,0x115)
0x08a06…08a20 73 68 69 66 74 20 38 20 61 64 64 20 73 79 6d 62 6f 6c 3b 0a 20 20 20 20 20 20 ┆shift 8 add symbol; ┆
0x08a20…08a40 20 20 20 20 20 20 20 20 20 20 20 20 6a 3a 3d 6a 2b 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ j:=j+1; ┆
0x08a40…08a60 20 20 20 20 20 20 6e 79 6b 61 72 61 6b 74 65 72 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ nykarakter; ┆
0x08a60…08a7e 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 6a 3d 31 33 ┆ end; if j=13┆
0x08a7e…08a84 (0x194,0x116)
0x08a84…08aa0 32 20 74 68 65 6e 20 66 65 6a 6c 28 32 30 30 37 29 3b 0a 20 20 20 20 20 20 20 20 20 ┆2 then fejl(2007); ┆
0x08aa0…08ac0 20 20 20 20 20 20 20 66 6f 72 20 69 3a 3d 6a 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 31 33 32 ┆ for i:=j step 1 until 132┆
0x08ac0…08ae0 20 64 6f 20 73 74 72 65 6e 67 28 69 2f 2f 33 29 3a 3d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ do streng(i//3):= ┆
0x08ae0…08afc 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 ┆ ┆
0x08afc…08b02 (0x194,0x117)
0x08b02…08b20 20 20 20 20 73 74 72 65 6e 67 28 69 2f 2f 33 29 20 73 68 69 66 74 20 38 3b 0a 20 20 20 20 ┆ streng(i//3) shift 8; ┆
0x08b20…08b40 20 20 20 20 20 20 20 20 20 20 20 20 6e 79 6b 61 72 61 6b 74 65 72 3b 0a 20 20 20 20 20 20 20 20 ┆ nykarakter; ┆
0x08b40…08b60 20 20 20 20 20 20 20 20 74 65 72 6d 3a 3d 34 38 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ term:=48; ┆
0x08b60…08b7a 20 20 61 72 74 3a 3d 6a 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ art:=j; ┆
0x08b7a…08b80 (0x194,0x118)
0x08b80…08ba0 67 6f 74 6f 20 73 74 6f 70 73 63 61 6e 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 ┆goto stopscan; end┆
0x08ba0…08bc0 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆; end; ┆
0x08bc0…08be0 62 65 67 69 6e 20 20 63 6f 6d 6d 65 6e 74 20 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 20 73 ┆begin comment ------------ s┆
0x08be0…08c00 63 61 6e 6e 65 72 61 6b 74 69 6f 6e 20 6e 72 20 20 39 20 20 20 2d 2d 2d 00 00 00 00 00 00 00 00 ┆canneraktion nr 9 --- ┆
0x08c00…08c06 (70,) (0x194,0x119)
0x08c06…08c20 2d 2d 2d 2d 2d 2d 2d 2d 2d 3b 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆---------; ┆
0x08c20…08c40 69 66 20 73 79 6d 62 6f 6c 3d 33 33 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆if symbol=33 then ┆
0x08c40…08c60 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 69 3a 3d 32 20 73 ┆begin for i:=2 s┆
0x08c60…08c7e 74 65 70 20 31 20 75 6e 74 69 6c 20 39 20 64 6f 20 6e 61 76 6e 28 69 29 3a 3d 30 3b 0a 20 ┆tep 1 until 9 do navn(i):=0; ┆
0x08c7e…08c84 (0x194,0x11a)
0x08c84…08ca0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 61 76 6e 28 31 29 3a 3d 69 73 6f 76 ┆ navn(1):=isov┆
0x08ca0…08cc0 7b 72 64 69 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 61 76 6e 65 70 69 6c 3a 3d ┆ærdi; navnepil:=┆
0x08cc0…08ce0 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 20 65 6c 73 65 0a 20 20 20 20 20 20 ┆1; end else ┆
0x08ce0…08cfc 20 20 20 20 20 20 20 20 69 66 20 73 79 6d 62 6f 6c 3c 34 30 20 6f 72 20 73 79 6d 62 ┆ if symbol<40 or symb┆
0x08cfc…08d02 (0x194,0x11b)
0x08d02…08d20 6f 6c 3e 36 32 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e ┆ol>62 then begin┆
0x08d20…08d40 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 65 6a 6c 28 32 30 31 37 29 3b 0a 20 20 20 ┆ fejl(2017); ┆
0x08d40…08d60 20 20 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 73 74 6f 70 73 63 61 6e 3b 0a 20 20 20 20 ┆ goto stopscan; ┆
0x08d60…08d7a 20 20 20 20 20 20 20 20 20 20 65 6e 64 20 65 6c 73 65 0a 20 20 20 20 20 20 20 ┆ end else ┆
0x08d7a…08d80 (0x194,0x11c)
0x08d80…08da0 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 65 72 ┆ begin ter┆
0x08da0…08dc0 6d 3a 3d 73 6b 69 6c 74 61 62 28 73 79 6d 62 6f 6c 29 20 65 78 74 72 61 63 74 20 36 3b 0a 20 20 ┆m:=skiltab(symbol) extract 6; ┆
0x08dc0…08de0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 72 74 3a 3d 73 6b 69 6c 74 61 62 28 73 79 6d 62 6f ┆ art:=skiltab(symbo┆
0x08de0…08e00 6c 29 20 73 68 69 66 74 20 28 2d 36 29 3b 0a 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆l) shift (-6); ┆
0x08e00…08e06 (71,) (0x194,0x11d)
0x08e06…08e20 20 20 20 20 20 20 20 67 6f 74 6f 20 73 74 6f 70 73 63 61 6e 3b 0a 20 20 20 20 ┆ goto stopscan; ┆
0x08e20…08e40 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a ┆ end; end; ┆
0x08e40…08e60 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 20 63 6f 6d 6d 65 6e 74 20 20 20 2d 2d ┆ begin comment --┆
0x08e60…08e7e 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 20 73 63 61 6e 6e 65 72 61 6b 74 69 6f 6e 20 6e 72 20 31 ┆---------- scanneraktion nr 1┆
0x08e7e…08e84 (0x194,0x11e)
0x08e84…08ea0 30 20 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 3b 0a 0a 20 20 20 20 20 20 20 20 20 ┆0 ------------; ┆
0x08ea0…08ec0 20 20 20 65 6e 64 3b 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 20 63 6f 6d 6d ┆ end; begin comm┆
0x08ec0…08ee0 65 6e 74 20 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 20 73 63 61 6e 6e 65 72 61 6b 74 69 6f ┆ent ------------ scanneraktio┆
0x08ee0…08efc 6e 20 6e 72 20 31 31 20 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 3b 0a 0a 20 20 20 ┆n nr 11 ------------; ┆
0x08efc…08f02 (0x194,0x11f)
0x08f02…08f20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 69 73 6f 76 7b 72 64 69 3d 73 79 6d 62 6f 6c 20 ┆ if isoværdi=symbol ┆
0x08f20…08f40 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 ┆then begin ┆
0x08f40…08f60 20 20 20 20 20 20 20 20 20 74 65 72 6d 3a 3d 32 34 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ term:=24; ┆
0x08f60…08f7a 20 20 20 69 66 20 73 79 6d 62 6f 6c 3d 34 33 20 74 68 65 6e 20 61 72 74 3a 3d ┆ if symbol=43 then art:=┆
0x08f7a…08f80 (0x194,0x120)
0x08f80…08fa0 38 20 65 6c 73 65 20 61 72 74 3a 3d 31 20 73 68 69 66 74 20 36 20 61 64 64 20 38 3b 0a 20 20 20 ┆8 else art:=1 shift 6 add 8; ┆
0x08fa0…08fc0 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 79 6b 61 72 61 6b 74 65 72 3b 0a 20 20 20 20 20 20 20 ┆ nykarakter; ┆
0x08fc0…08fe0 20 20 20 20 20 20 20 65 6e 64 20 65 6c 73 65 20 66 65 6a 6c 28 32 30 30 32 29 3b 0a 20 20 20 20 ┆ end else fejl(2002); ┆
0x08fe0…09000 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 73 74 6f 70 73 63 61 6e 3b 00 00 00 00 00 00 00 00 ┆ goto stopscan; ┆
0x09000…09006 (72,) (0x194,0x121)
0x09006…09020 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 0a 20 20 20 20 20 20 20 ┆ end; ┆
0x09020…09040 20 20 20 20 20 62 65 67 69 6e 20 20 63 6f 6d 6d 65 6e 74 20 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ begin comment ----------┆
0x09040…09060 2d 2d 20 20 73 63 61 6e 6e 65 72 61 6b 74 69 6f 6e 20 6e 72 20 31 32 20 20 20 2d 2d 2d 2d 2d 2d ┆-- scanneraktion nr 12 ------┆
0x09060…0907e 2d 2d 2d 2d 2d 2d 3b 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 79 6d 62 6f 6c 3a ┆------; symbol:┆
0x0907e…09084 (0x194,0x122)
0x09084…090a0 3d 73 79 6d 62 6f 6c 20 73 68 69 66 74 20 38 20 61 64 64 20 69 73 6f 76 7b 72 64 69 ┆=symbol shift 8 add isoværdi┆
0x090a0…090c0 20 73 68 69 66 74 20 38 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 6f 73 6b 69 6c 73 7c ┆ shift 8; toskilsø┆
0x090c0…090e0 67 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 79 6b 61 72 61 6b 74 65 72 3b 0a 20 20 20 ┆g; nykarakter; ┆
0x090e0…090fc 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 73 74 6f 70 73 63 61 6e 3b 0a 20 20 ┆ goto stopscan; ┆
0x090fc…09102 (0x194,0x123)
0x09102…09120 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 ┆ end; b┆
0x09120…09140 65 67 69 6e 20 20 63 6f 6d 6d 65 6e 74 20 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 20 73 63 ┆egin comment ------------ sc┆
0x09140…09160 61 6e 6e 65 72 61 6b 74 69 6f 6e 20 6e 72 20 31 33 20 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆anneraktion nr 13 ------------┆
0x09160…0917a 3b 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 65 72 6d 3a 3d 34 31 3b ┆; term:=41;┆
0x0917a…09180 (0x194,0x124)
0x09180…091a0 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 68 6b 6f 6e 73 74 3e 38 33 38 38 36 30 37 ┆ if hkonst>8388607┆
0x091a0…091c0 20 6f 72 20 68 6b 6f 6e 73 74 3c 2d 38 33 38 38 36 30 38 20 74 68 65 6e 20 61 72 74 3a 3d 35 20 ┆ or hkonst<-8388608 then art:=5 ┆
0x091c0…091e0 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 68 6b 6f 6e 73 74 3e 32 30 34 ┆else if hkonst>204┆
0x091e0…09200 37 20 6f 72 20 68 6b 6f 6e 73 74 20 3c 2d 32 30 34 38 20 74 68 65 6e 20 00 00 00 00 00 00 00 00 ┆7 or hkonst <-2048 then ┆
0x09200…09206 (73,) (0x194,0x125)
0x09206…09220 61 72 74 3a 3d 33 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆art:=3 else ┆
0x09220…09240 20 20 20 61 72 74 3a 3d 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 73 74 ┆ art:=1; goto st┆
0x09240…09260 6f 70 73 63 61 6e 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 0a 20 20 20 20 20 20 ┆opscan; end; ┆
0x09260…0927e 20 20 20 20 20 20 62 65 67 69 6e 20 20 63 6f 6d 6d 65 6e 74 20 20 20 2d 2d 2d 2d 2d 2d 2d ┆ begin comment -------┆
0x0927e…09284 (0x194,0x126)
0x09284…092a0 2d 2d 2d 2d 2d 20 20 73 63 61 6e 6e 65 72 61 6b 74 69 6f 6e 20 6e 72 20 31 34 20 20 ┆----- scanneraktion nr 14 ┆
0x092a0…092c0 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 3b 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 65 ┆ ------------; te┆
0x092c0…092e0 72 6d 3a 3d 35 37 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 73 74 6f 70 73 ┆rm:=57; goto stops┆
0x092e0…092fc 63 61 6e 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 0a 20 20 20 20 20 ┆can; end; ┆
0x092fc…09302 (0x194,0x127)
0x09302…09320 20 20 20 20 20 20 20 62 65 67 69 6e 20 20 63 6f 6d 6d 65 6e 74 20 20 20 2d 2d 2d 2d 2d 2d ┆ begin comment ------┆
0x09320…09340 2d 2d 2d 2d 2d 2d 20 20 73 63 61 6e 6e 65 72 61 6b 74 69 6f 6e 20 6e 72 20 31 35 20 20 20 2d 2d ┆------ scanneraktion nr 15 --┆
0x09340…09360 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 3b 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 65 72 6d 3a ┆----------; term:┆
0x09360…0937a 3d 35 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 72 74 3a 3d 30 3b 0a ┆=5; art:=0; ┆
0x0937a…09380 (0x194,0x128)
0x09380…093a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 73 74 6f 70 73 63 61 6e 3b 0a 20 20 20 ┆ goto stopscan; ┆
0x093a0…093c0 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e ┆ end; begin┆
0x093c0…093e0 20 20 63 6f 6d 6d 65 6e 74 20 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 20 73 63 61 6e 6e 65 ┆ comment ------------ scanne┆
0x093e0…09400 72 61 6b 74 69 6f 6e 20 6e 72 20 31 36 20 20 20 2d 2d 2d 2d 2d 2d 2d 2d 00 00 00 00 00 00 00 00 ┆raktion nr 16 -------- ┆
0x09400…09406 (74,) (0x194,0x129)
0x09406…09420 2d 2d 2d 2d 3b 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 73 79 ┆----; if sy┆
0x09420…09440 6d 62 6f 6c 3d 34 33 20 74 68 65 6e 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 ┆mbol=43 then begi┆
0x09440…09460 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 65 72 6d 3a 3d 32 34 3b 0a 20 20 20 20 ┆n term:=24; ┆
0x09460…0947e 20 20 20 20 20 20 20 20 20 20 20 20 61 72 74 3a 3d 32 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆ art:=2; ┆
0x0947e…09484 (0x194,0x12a)
0x09484…094a0 20 20 20 20 65 6e 64 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 ┆ end else b┆
0x094a0…094c0 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 65 72 6d 3a 3d 34 3b 0a 20 20 ┆egin term:=4; ┆
0x094c0…094e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 72 74 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆ art:=0; ┆
0x094e0…094fc 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 ┆ end; goto ┆
0x094fc…09502 (0x194,0x12b)
0x09502…09520 73 74 6f 70 73 63 61 6e 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 0a 20 20 ┆stopscan; end; ┆
0x09520…09540 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 20 63 6f 6d 6d 65 6e 74 20 20 20 2d 2d 2d 2d 2d ┆ begin comment -----┆
0x09540…09560 2d 2d 2d 2d 2d 2d 2d 20 20 73 63 61 6e 6e 65 72 61 6b 74 69 6f 6e 20 6e 72 20 31 37 20 20 20 2d ┆------- scanneraktion nr 17 -┆
0x09560…0957a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 3b 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆-----------; ┆
0x0957a…09580 (0x194,0x12c)
0x09580…095a0 20 20 6e 61 76 6e 65 73 7c 67 28 31 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 ┆ navnesøg(1); got┆
0x095a0…095c0 6f 20 73 74 6f 70 73 63 61 6e 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 0a 20 20 ┆o stopscan; end; ┆
0x095c0…095e0 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 20 63 6f 6d 6d 65 6e 74 20 20 20 2d 2d 2d 2d 2d ┆ begin comment -----┆
0x095e0…09600 2d 2d 2d 2d 2d 2d 2d 20 20 73 63 61 6e 6e 65 72 61 6b 74 69 6f 6e 20 6e 00 00 00 00 00 00 00 00 ┆------- scanneraktion n ┆
0x09600…09606 (75,) (0x194,0x12d)
0x09606…09620 72 20 31 38 20 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 3b 0a 20 20 20 20 20 ┆r 18 ------------; ┆
0x09620…09640 20 20 20 20 20 20 20 20 20 69 66 20 73 79 6d 62 6f 6c 20 3d 20 33 33 20 61 6e 64 20 69 73 6f 76 ┆ if symbol = 33 and isov┆
0x09640…09660 7b 72 64 69 20 3d 20 33 32 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 ┆ærdi = 32 then beg┆
0x09660…0967e 69 6e 20 63 6f 6d 6d 65 6e 74 20 72 65 6d 6f 76 65 20 63 6f 6d 6d 65 6e 74 3b 0a 20 20 20 ┆in comment remove comment; ┆
0x0967e…09684 (0x194,0x12e)
0x09684…096a0 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 74 6f 6d 3a 3d 30 20 77 68 69 6c ┆ for tom:=0 whil┆
0x096a0…096c0 65 20 69 73 6f 76 7b 72 64 69 20 3c 3e 20 33 33 20 64 6f 20 6e 79 6b 61 72 61 6b 74 65 72 3b 0a ┆e isoværdi <> 33 do nykarakter; ┆
0x096c0…096e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 79 6b 61 72 61 6b 74 65 72 3b 0a 20 20 20 20 ┆ nykarakter; ┆
0x096e0…096fc 20 20 20 20 20 20 20 20 20 20 20 20 6e 79 74 69 6c 73 74 3a 3d 31 3b 0a 20 20 20 20 ┆ nytilst:=1; ┆
0x096fc…09702 (0x194,0x12f)
0x09702…09720 20 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 6e 79 63 61 73 65 3b 0a 20 20 20 20 20 ┆ goto nycase; ┆
0x09720…09740 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 ┆ end; if ┆
0x09740…09760 73 79 6d 62 6f 6c 20 3c 20 34 30 20 6f 72 20 73 79 6d 62 6f 6c 20 3e 20 36 32 20 74 68 65 6e 20 ┆symbol < 40 or symbol > 62 then ┆
0x09760…0977a 66 65 6a 6c 28 32 30 31 37 29 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 ┆fejl(2017) else ┆
0x0977a…09780 (0x194,0x130)
0x09780…097a0 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 65 72 6d 3a 3d ┆ begin term:=┆
0x097a0…097c0 73 6b 69 6c 74 61 62 28 73 79 6d 62 6f 6c 29 20 65 78 74 72 61 63 74 20 36 3b 0a 20 20 20 20 20 ┆skiltab(symbol) extract 6; ┆
0x097c0…097e0 20 20 20 20 20 20 20 20 20 20 20 61 72 74 3a 3d 73 6b 69 6c 74 61 62 28 73 79 6d 62 6f 6c 29 20 ┆ art:=skiltab(symbol) ┆
0x097e0…09800 73 68 69 66 74 20 28 2d 36 29 20 3b 0a 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆shift (-6) ; ┆
0x09800…09806 (76,) (0x194,0x131)
0x09806…09820 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f ┆ end; goto┆
0x09820…09840 20 73 74 6f 70 73 63 61 6e 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 0a 20 20 20 ┆ stopscan; end; ┆
0x09840…09860 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 20 63 6f 6d 6d 65 6e 74 20 20 20 2d 2d 2d 2d 2d 2d ┆ begin comment ------┆
0x09860…0987e 2d 2d 2d 2d 2d 2d 20 20 73 63 61 6e 6e 65 72 61 6b 74 69 6f 6e 20 6e 72 20 31 39 20 20 20 ┆------ scanneraktion nr 19 ┆
0x0987e…09884 (0x194,0x132)
0x09884…098a0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 3b 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆------------; ┆
0x098a0…098c0 20 6e 61 76 6e 65 73 7c 67 28 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f ┆ navnesøg(2); goto┆
0x098c0…098e0 20 73 74 6f 70 73 63 61 6e 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 0a 20 20 20 ┆ stopscan; end; ┆
0x098e0…098fc 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 20 20 2d 2d 2d ┆ begin comment ---┆
0x098fc…09902 (0x194,0x133)
0x09902…09920 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 20 73 63 61 6e 6e 65 72 61 6b 74 69 6f 6e 20 6e 72 20 32 30 ┆--------- scanneraktion nr 20┆
0x09920…09940 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 ┆ ------------; if┆
0x09940…09960 20 72 61 64 69 78 20 3c 3e 20 31 30 20 74 68 65 6e 20 66 65 6a 6c 28 32 30 30 34 29 3b 0a 20 20 ┆ radix <> 10 then fejl(2004); ┆
0x09960…0997a 20 20 20 20 20 20 20 20 20 20 20 20 72 61 64 69 78 3a 3d 68 6b 6f 6e 73 74 3b ┆ radix:=hkonst;┆
0x0997a…09980 (0x194,0x134)
0x09980…099a0 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 68 6b 6f 6e 73 74 3a 3d 30 3b 0a 20 20 20 20 20 20 ┆ hkonst:=0; ┆
0x099a0…099c0 20 20 20 20 20 20 65 6e 64 3b 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f ┆ end; begin co┆
0x099c0…099e0 6d 6d 65 6e 74 20 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 20 73 63 61 6e 6e 65 72 61 6b 74 ┆mment ------------ scannerakt┆
0x099e0…09a00 69 6f 6e 20 6e 72 20 32 31 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 3b 00 00 00 00 00 00 00 00 ┆ion nr 21 ------------; ┆
0x09a00…09a06 (77,) (0x194,0x135)
0x09a06…09a20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 65 6a 6c 28 32 30 30 34 29 3b ┆ fejl(2004);┆
0x09a20…09a40 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 ┆ end; end┆
0x09a40…09a60 3b 0a 20 20 20 20 20 20 20 20 20 20 0a 20 20 20 20 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 2a ┆; comment *┆
0x09a60…09a7e 2a 2a 20 20 6f 70 73 6c 61 67 20 61 66 20 6e 79 20 74 69 6c 73 74 61 6e 64 20 20 2a 2a 2a ┆** opslag af ny tilstand ***┆
0x09a7e…09a84 (0x194,0x136)
0x09a84…09aa0 3b 0a 20 20 20 20 20 20 20 20 20 20 6e 79 74 69 6c 73 74 3a 3d 74 69 6c 73 74 28 6e ┆; nytilst:=tilst(n┆
0x09aa0…09ac0 79 74 69 6c 73 74 2c 6b 6c 61 73 73 65 29 3b 0a 20 20 20 20 20 20 20 20 20 20 6e 79 6b 61 72 61 ┆ytilst,klasse); nykara┆
0x09ac0…09ae0 6b 74 65 72 3b 0a 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 6e 79 63 61 73 65 3b 0a 73 74 6f ┆kter; goto nycase; sto┆
0x09ae0…09afc 70 73 63 61 6e 3a 20 20 6e 7b 73 74 65 73 79 6d 62 6f 6c 3a 3d 74 65 72 6d 3b 0a 20 ┆pscan: næstesymbol:=term; ┆
0x09afc…09b02 (0x194,0x137)
0x09b02…09b20 20 20 20 20 20 20 20 20 20 61 66 62 72 79 64 35 3a 3d 61 66 62 72 79 64 34 3b 0a 20 20 20 ┆ afbryd5:=afbryd4; ┆
0x09b20…09b40 20 20 20 20 20 20 20 61 66 62 72 79 64 34 3a 3d 61 66 62 72 79 64 32 3b 0a 20 20 20 20 20 20 20 ┆ afbryd4:=afbryd2; ┆
0x09b40…09b60 20 20 20 61 66 62 72 79 64 32 3a 3d 61 66 62 72 79 64 31 3b 0a 20 20 20 20 20 20 20 20 20 20 69 ┆ afbryd2:=afbryd1; i┆
0x09b60…09b7a 66 20 28 66 6f 72 75 64 73 79 6d 62 6f 6c 3d 32 36 20 61 6e 64 20 74 65 72 6d ┆f (forudsymbol=26 and term┆
0x09b7a…09b80 (0x194,0x138)
0x09b80…09ba0 3d 35 29 20 6f 72 20 61 66 62 72 79 64 33 20 74 68 65 6e 20 61 66 62 72 79 64 31 3a 3d 74 72 75 ┆=5) or afbryd3 then afbryd1:=tru┆
0x09ba0…09bc0 65 3b 0a 20 20 20 20 20 20 20 20 20 20 66 6f 72 75 64 73 79 6d 62 6f 6c 3a 3d 74 65 72 6d 3b 0a ┆e; forudsymbol:=term; ┆
0x09bc0…09be0 20 20 20 20 20 20 20 20 65 6e 64 20 6e 7b 73 74 65 73 79 6d 62 6f 6c 3b 0a 20 0a 20 0a 20 0a 20 ┆ end næstesymbol; ┆
0x09be0…09c00 0a 20 0a 20 20 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 2a 2a 2a 2a 2a 00 00 00 00 00 00 00 00 ┆ comment ***** ┆
0x09c00…09c06 (78,) (0x194,0x139)
0x09c06…09c20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆**************************┆
0x09c20…09c40 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 20 20 20 20 20 ┆************************** ┆
0x09c40…09c60 20 20 20 20 20 20 20 20 20 20 20 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ * ┆
0x09c60…09c7e 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 ┆ ┆
0x09c7e…09c84 (0x194,0x13a)
0x09c84…09ca0 20 20 20 20 20 2a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 20 20 20 ┆ * * ┆
0x09ca0…09cc0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 79 6e 74 61 78 61 6e 61 6c 79 73 61 74 6f 72 20 ┆ syntaxanalysator ┆
0x09cc0…09ce0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ * ┆
0x09ce0…09cfc 20 20 20 20 20 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ * ┆
0x09cfc…09d02 (0x194,0x13b)
0x09d02…09d20 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 ┆ ┆
0x09d20…09d40 20 20 20 2a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ * ***********┆
0x09d40…09d60 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x09d60…09d7a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 3b 0a 0a 20 20 20 20 20 70 72 6f 63 ┆**************; proc┆
0x09d7a…09d80 (0x194,0x13c)
0x09d80…09da0 65 64 75 72 65 20 70 61 72 73 65 72 28 73 65 6d 61 6e 74 69 6b 2c 73 74 61 6b 73 65 6d 61 6e 74 ┆edure parser(semantik,staksemant┆
0x09da0…09dc0 69 6b 2c 66 65 6a 6c 2c 73 74 61 6b 67 72 7b 6e 73 65 2c 6e 7b 73 74 65 73 79 6d 62 6f 6c 29 3b ┆ik,fejl,stakgrænse,næstesymbol);┆
0x09dc0…09de0 0a 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 73 6c 72 31 3b 0a 20 20 20 20 20 76 61 6c 75 65 20 73 ┆ comment slr1; value s┆
0x09de0…09e00 74 61 6b 67 72 7b 6e 73 65 3b 0a 20 20 20 20 20 69 6e 74 65 67 65 72 20 00 00 00 00 00 00 00 00 ┆takgrænse; integer ┆
0x09e00…09e06 (79,) (0x194,0x13d)
0x09e06…09e20 73 74 61 6b 67 72 7b 6e 73 65 3b 0a 20 20 20 20 20 69 6e 74 65 67 65 72 20 70 ┆stakgrænse; integer p┆
0x09e20…09e40 72 6f 63 65 64 75 72 65 20 6e 7b 73 74 65 73 79 6d 62 6f 6c 3b 0a 20 20 20 20 20 70 72 6f 63 65 ┆rocedure næstesymbol; proce┆
0x09e40…09e60 64 75 72 65 20 73 65 6d 61 6e 74 69 6b 2c 73 74 61 6b 73 65 6d 61 6e 74 69 6b 2c 66 65 6a 6c 3b ┆dure semantik,staksemantik,fejl;┆
0x09e60…09e7e 0a 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 69 6e 74 65 67 65 72 20 ┆ begin integer ┆
0x09e7e…09e84 (0x194,0x13e)
0x09e84…09ea0 61 72 72 61 79 20 73 79 6e 74 61 6b 73 73 74 61 6b 28 31 3a 73 74 61 6b 67 72 7b 6e ┆array syntaksstak(1:stakgræn┆
0x09ea0…09ec0 73 65 29 3b 0a 20 20 20 20 20 20 20 20 20 20 69 6e 74 65 67 65 72 20 61 6b 74 69 6f 6e 2c 69 6e ┆se); integer aktion,in┆
0x09ec0…09ee0 64 65 6b 73 2c 69 6e 73 74 72 75 6b 74 69 6f 6e 2c 6e 72 2c 70 72 2c 73 74 61 6b 70 69 6c 2c 73 ┆deks,instruktion,nr,pr,stakpil,s┆
0x09ee0…09efc 79 6d 62 6f 6c 2c 76 69 6e 64 75 65 31 2c 76 69 6e 64 75 65 32 2c 67 6c 69 6e 64 65 ┆ymbol,vindue1,vindue2,glinde┆
0x09efc…09f02 (0x194,0x13f)
0x09f02…09f20 6b 73 3b 0a 20 20 20 20 20 20 20 20 20 20 62 6f 6f 6c 65 61 6e 20 72 65 63 6f 76 65 72 69 ┆ks; boolean recoveri┆
0x09f20…09f40 6e 67 3b 0a 20 20 20 20 20 20 20 20 20 20 72 65 63 6f 76 65 72 69 6e 67 3a 3d 66 61 6c 73 65 3b ┆ng; recovering:=false;┆
0x09f40…09f60 0a 20 20 20 20 20 20 20 20 20 20 67 6c 69 6e 64 65 6b 73 3a 3d 31 3b 0a 20 20 20 20 20 20 20 20 ┆ glindeks:=1; ┆
0x09f60…09f7a 20 20 73 79 6e 74 61 6b 73 73 74 61 6b 28 31 29 3a 3d 73 74 61 6b 70 69 6c 3a ┆ syntaksstak(1):=stakpil:┆
0x09f7a…09f80 (0x194,0x140)
0x09f80…09fa0 3d 69 6e 64 65 6b 73 3a 3d 31 3b 0a 20 20 20 20 20 20 20 20 20 20 76 69 6e 64 75 65 31 3a 3d 76 ┆=indeks:=1; vindue1:=v┆
0x09fa0…09fc0 69 6e 64 75 65 32 3a 3d 6e 7b 73 74 65 73 79 6d 62 6f 6c 3b 0a 6c 7c 6b 6b 65 3a 20 20 20 20 69 ┆indue2:=næstesymbol; løkke: i┆
0x09fc0…09fe0 6e 73 74 72 75 6b 74 69 6f 6e 3a 3d 63 61 73 65 20 69 6e 64 65 6b 73 20 6f 66 20 28 0a 20 20 20 ┆nstruktion:=case indeks of ( ┆
0x09fe0…0a000 20 20 20 20 20 20 20 20 20 20 20 20 31 32 33 32 39 30 33 2c 31 32 31 36 00 00 00 00 00 00 00 00 ┆ 1232903,1216 ┆
0x0a000…0a006 (80,) (0x194,0x141)
0x0a006…0a020 35 32 32 2c 31 32 34 39 33 34 30 2c 31 32 30 30 31 39 30 2c 20 36 32 36 37 37 ┆522,1249340,1200190, 62677┆
0x0a020…0a040 33 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 38 31 39 32 2c 20 31 33 35 32 35 ┆3, 8192, 13525┆
0x0a040…0a060 35 2c 20 34 33 30 31 37 31 2c 20 20 20 38 31 39 32 2c 31 35 32 37 39 30 31 2c 0a 20 20 20 20 20 ┆5, 430171, 8192,1527901, ┆
0x0a060…0a07e 20 20 20 20 20 20 20 20 20 20 31 34 39 35 31 33 36 2c 20 35 31 32 30 39 37 2c 31 32 38 32 ┆ 1495136, 512097,1282┆
0x0a07e…0a084 (0x194,0x142)
0x0a084…0a0a0 31 35 34 2c 31 35 31 31 35 33 32 2c 20 36 32 36 37 39 37 2c 0a 20 20 20 20 20 20 20 ┆154,1511532, 626797, ┆
0x0a0a0…0a0c0 20 20 20 20 20 20 20 20 31 34 34 36 30 30 31 2c 20 39 37 30 38 36 39 2c 31 33 34 37 37 30 32 2c ┆ 1446001, 970869,1347702,┆
0x0a0c0…0a0e0 20 31 35 31 36 37 31 2c 31 30 38 35 35 36 37 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 151671,1085567, ┆
0x0a0e0…0a0fc 20 35 39 34 30 34 38 2c 20 39 38 37 32 36 36 2c 31 35 36 30 37 30 39 2c 31 30 36 39 ┆ 594048, 987266,1560709,1069┆
0x0a0fc…0a102 (0x194,0x143)
0x0a102…0a120 31 39 31 2c 20 32 38 32 37 36 31 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 33 ┆191, 282761, 3┆
0x0a120…0a140 34 38 32 39 39 2c 31 31 31 38 33 34 39 2c 20 32 33 33 36 31 34 2c 20 34 37 39 33 37 36 2c 20 35 ┆48299,1118349, 233614, 479376, 5┆
0x0a140…0a160 36 31 32 39 38 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 39 30 35 33 36 34 2c 31 31 ┆61298, 905364,11┆
0x0a160…0a17a 33 34 37 34 32 2c 20 31 36 38 31 33 33 2c 31 30 32 30 31 30 33 2c 20 37 32 35 ┆34742, 168133,1020103, 725┆
0x0a17a…0a180 (0x194,0x144)
0x0a180…0a1a0 31 39 32 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 34 36 32 34 37 33 2c 20 20 36 39 ┆192, 1462473, 69┆
0x0a1a0…0a1c0 38 34 35 2c 20 36 31 30 35 32 31 2c 31 33 31 35 30 33 35 2c 20 32 31 37 33 31 31 2c 0a 20 20 20 ┆845, 610521,1315035, 217311, ┆
0x0a1c0…0a1e0 20 20 20 20 20 20 20 20 20 20 20 20 20 33 31 35 36 32 36 2c 20 37 35 37 39 39 36 2c 20 35 32 38 ┆ 315626, 757996, 528┆
0x0a1e0…0a200 36 32 32 2c 31 33 36 34 32 30 38 2c 20 34 36 33 30 39 31 2c 0a 20 20 20 00 00 00 00 00 00 00 00 ┆622,1364208, 463091, ┆
0x0a200…0a206 (81,) (0x194,0x145)
0x0a206…0a220 20 20 20 20 20 20 20 20 20 20 20 20 31 30 30 33 37 36 35 2c 20 38 37 32 36 39 ┆ 1003765, 87269┆
0x0a220…0a240 35 2c 20 34 34 36 37 31 32 2c 20 34 39 35 38 37 31 2c 31 31 30 32 30 38 36 2c 0a 20 20 20 20 20 ┆5, 446712, 495871,1102086, ┆
0x0a240…0a260 20 20 20 20 20 20 20 20 20 20 20 33 33 32 30 34 31 2c 20 20 32 30 37 34 39 2c 20 38 33 39 39 36 ┆ 332041, 20749, 83996┆
0x0a260…0a27e 32 2c 31 31 36 37 36 34 35 2c 20 32 39 39 32 39 34 2c 0a 20 20 20 20 20 20 20 20 20 20 20 ┆2,1167645, 299294, ┆
0x0a27e…0a284 (0x194,0x146)
0x0a284…0a2a0 20 20 20 20 31 31 38 34 30 33 32 2c 20 36 37 36 31 33 32 2c 20 39 33 38 32 37 37 2c ┆ 1184032, 676132, 938277,┆
0x0a2a0…0a2c0 20 20 20 20 20 35 30 2c 20 31 33 35 34 36 32 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 50, 135462, ┆
0x0a2c0…0a2e0 20 20 20 38 31 39 32 2c 20 31 33 35 34 38 32 2c 20 32 33 33 37 38 37 2c 31 30 32 30 32 32 30 2c ┆ 8192, 135482, 233787,1020220,┆
0x0a2e0…0a2fc 31 30 35 32 39 38 39 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 32 39 38 ┆1052989, 1298┆
0x0a2fc…0a302 (0x194,0x147)
0x0a302…0a320 37 35 30 2c 20 33 33 32 31 31 31 2c 20 35 37 37 38 37 34 2c 31 30 33 36 36 32 37 2c 31 32 ┆750, 332111, 577874,1036627,12┆
0x0a320…0a340 36 36 30 30 34 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 33 33 31 35 34 32 2c 20 39 ┆66004, 1331542, 9┆
0x0a340…0a360 35 34 37 31 33 2c 31 31 35 31 33 32 34 2c 31 34 37 39 30 31 32 2c 31 33 39 37 30 39 34 2c 0a 20 ┆54713,1151324,1479012,1397094, ┆
0x0a360…0a37a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 35 34 34 35 35 33 2c 20 38 34 30 ┆ 1544553, 840┆
0x0a37a…0a380 (0x194,0x148)
0x0a380…0a3a0 30 34 33 2c 20 35 34 35 31 33 33 2c 20 36 39 32 35 39 31 2c 20 32 30 31 30 37 33 2c 0a 20 20 20 ┆043, 545133, 692591, 201073, ┆
0x0a3a0…0a3c0 20 20 20 20 20 20 20 20 20 20 20 20 31 34 31 33 34 39 30 2c 20 38 30 37 32 39 33 2c 20 37 30 38 ┆ 1413490, 807293, 708┆
0x0a3c0…0a3e0 39 39 31 2c 20 20 20 38 31 39 32 2c 20 32 33 33 38 35 37 2c 0a 20 20 20 20 20 20 20 20 20 20 20 ┆991, 8192, 233857, ┆
0x0a3e0…0a400 20 20 20 20 20 20 20 38 31 39 32 2c 20 32 36 36 36 32 36 2c 31 30 32 30 00 00 00 00 00 00 00 00 ┆ 8192, 266626,1020 ┆
0x0a400…0a406 (82,) (0x194,0x149)
0x0a406…0a420 32 39 32 2c 20 33 33 32 31 31 31 2c 20 20 20 20 20 31 33 2c 0a 20 20 20 20 20 ┆292, 332111, 13, ┆
0x0a420…0a440 20 20 20 20 20 20 20 20 20 20 20 20 38 36 34 30 35 2c 20 20 20 38 31 39 32 2c 20 31 33 35 35 35 ┆ 86405, 8192, 13555┆
0x0a440…0a460 38 2c 20 34 33 30 34 37 32 2c 20 20 20 38 31 39 32 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆8, 430472, 8192, ┆
0x0a460…0a47e 20 20 20 20 20 20 20 34 34 2c 31 34 32 39 38 39 37 2c 31 34 34 36 32 38 33 2c 20 37 35 38 ┆ 44,1429897,1446283, 758┆
0x0a47e…0a484 (0x194,0x14a)
0x0a484…0a4a0 31 36 30 2c 20 37 32 35 31 39 32 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆160, 725192, ┆
0x0a4a0…0a4c0 31 34 36 32 34 37 33 2c 20 20 37 30 30 33 34 2c 20 36 31 30 35 32 31 2c 20 36 32 37 30 39 32 2c ┆1462473, 70034, 610521, 627092,┆
0x0a4c0…0a4e0 20 20 20 38 31 39 32 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 34 39 35 34 34 36 2c ┆ 8192, 1495446,┆
0x0a4e0…0a4fc 20 20 31 32 33 30 30 2c 20 20 20 20 20 34 38 2c 20 31 30 32 38 30 37 2c 20 20 32 30 ┆ 12300, 48, 102807, 20┆
0x0a4fc…0a502 (0x194,0x14b)
0x0a502…0a520 38 38 38 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 38 36 34 33 32 2c 20 20 ┆888, 86432, ┆
0x0a520…0a540 20 20 20 38 35 2c 20 31 31 39 32 30 32 2c 20 33 39 37 37 33 35 2c 20 20 37 30 30 35 36 2c 0a 20 ┆ 85, 119202, 397735, 70056, ┆
0x0a540…0a560 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 35 31 2c 20 20 20 20 20 35 32 2c 20 20 ┆ 51, 52, ┆
0x0a560…0a57a 20 20 20 35 33 2c 31 31 31 38 36 33 33 2c 31 33 34 38 30 31 30 2c 0a 20 20 20 ┆ 53,1118633,1348010, ┆
0x0a57a…0a580 (0x194,0x14c)
0x0a580…0a5a0 20 20 20 20 20 20 20 20 20 20 20 20 31 33 36 34 32 30 38 2c 20 34 39 35 38 37 31 2c 31 31 30 32 ┆ 1364208, 495871,1102┆
0x0a5a0…0a5c0 30 38 36 2c 20 31 35 31 39 37 39 2c 20 36 32 37 31 32 30 2c 0a 20 20 20 20 20 20 20 20 20 20 20 ┆086, 151979, 627120, ┆
0x0a5c0…0a5e0 20 20 20 20 20 20 20 38 31 39 32 2c 20 20 20 20 20 35 35 2c 20 20 32 30 39 31 34 2c 20 20 20 38 ┆ 8192, 55, 20914, 8┆
0x0a5e0…0a600 31 39 32 2c 20 31 33 35 36 30 34 2c 0a 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆192, 135604, ┆
0x0a600…0a606 (83,) (0x194,0x14d)
0x0a606…0a620 20 20 20 20 20 34 33 30 35 31 38 2c 20 20 20 38 31 39 32 2c 31 34 32 39 39 34 ┆ 430518, 8192,142994┆
0x0a620…0a640 33 2c 20 20 31 32 33 38 36 2c 20 37 37 34 35 38 35 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆3, 12386, 774585, ┆
0x0a640…0a660 20 20 20 20 20 38 31 39 32 2c 20 37 32 35 34 33 35 2c 20 20 20 38 31 39 32 2c 20 36 32 37 31 33 ┆ 8192, 725435, 8192, 62713┆
0x0a660…0a67e 33 2c 20 20 20 38 31 39 32 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆3, 8192, ┆
0x0a67e…0a684 (0x194,0x14e)
0x0a684…0a6a0 20 36 33 2c 31 35 32 38 32 35 35 2c 20 20 31 32 32 39 39 2c 20 20 32 30 39 33 30 2c ┆ 63,1528255, 12299, 20930,┆
0x0a6a0…0a6c0 20 20 20 38 31 39 32 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 30 39 33 32 2c ┆ 8192, 20932,┆
0x0a6c0…0a6e0 20 20 20 38 31 39 32 2c 20 20 32 30 39 33 34 2c 20 20 20 38 31 39 32 2c 31 35 31 31 38 38 30 2c ┆ 8192, 20934, 8192,1511880,┆
0x0a6e0…0a6fc 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 34 34 36 30 30 31 2c 20 39 37 30 ┆ 1446001, 970┆
0x0a6fc…0a702 (0x194,0x14f)
0x0a702…0a720 38 36 39 2c 31 33 34 37 37 30 32 2c 20 31 35 31 36 37 31 2c 31 30 38 35 35 36 37 2c 0a 20 ┆869,1347702, 151671,1085567, ┆
0x0a720…0a740 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 35 39 34 30 34 38 2c 20 39 38 37 32 36 36 2c 31 35 ┆ 594048, 987266,15┆
0x0a740…0a760 36 30 37 30 39 2c 31 30 36 39 31 39 31 2c 20 32 38 32 37 36 31 2c 0a 20 20 20 20 20 20 20 20 20 ┆60709,1069191, 282761, ┆
0x0a760…0a77a 20 20 20 20 20 20 20 33 34 38 32 39 39 2c 31 31 31 38 33 34 39 2c 20 32 33 33 ┆ 348299,1118349, 233┆
0x0a77a…0a780 (0x194,0x150)
0x0a780…0a7a0 36 31 34 2c 20 34 37 39 33 37 36 2c 20 35 36 31 32 39 38 2c 0a 20 20 20 20 20 20 20 20 20 20 20 ┆614, 479376, 561298, ┆
0x0a7a0…0a7c0 20 20 20 20 20 39 30 35 33 36 34 2c 31 31 33 34 37 34 32 2c 20 31 36 38 31 33 33 2c 31 30 32 30 ┆ 905364,1134742, 168133,1020┆
0x0a7c0…0a7e0 31 30 33 2c 20 37 32 35 31 39 32 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 34 36 32 ┆103, 725192, 1462┆
0x0a7e0…0a800 34 37 33 2c 20 20 36 39 38 34 35 2c 20 36 31 30 35 32 31 2c 20 36 32 37 00 00 00 00 00 00 00 00 ┆473, 69845, 610521, 627 ┆
0x0a800…0a806 (84,) (0x194,0x151)
0x0a806…0a820 31 34 35 2c 31 33 31 35 30 33 35 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆145,1315035, ┆
0x0a820…0a840 20 20 20 32 31 37 33 31 31 2c 20 33 31 35 36 32 36 2c 20 37 35 37 39 39 36 2c 20 35 32 38 36 32 ┆ 217311, 315626, 757996, 52862┆
0x0a840…0a860 32 2c 31 33 36 34 32 30 38 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 34 36 33 30 39 ┆2,1364208, 46309┆
0x0a860…0a87e 31 2c 31 30 30 33 37 36 35 2c 20 38 37 32 36 39 35 2c 20 34 34 36 37 31 32 2c 20 34 39 35 ┆1,1003765, 872695, 446712, 495┆
0x0a87e…0a884 (0x194,0x152)
0x0a884…0a8a0 38 37 31 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 31 30 32 30 38 36 2c ┆871, 1102086,┆
0x0a8a0…0a8c0 20 35 31 32 34 36 30 2c 20 33 33 32 30 34 31 2c 20 20 32 30 37 34 39 2c 20 38 33 39 39 36 32 2c ┆ 512460, 332041, 20749, 839962,┆
0x0a8c0…0a8e0 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 31 36 37 36 34 35 2c 20 32 39 39 32 39 34 2c ┆ 1167645, 299294,┆
0x0a8e0…0a8fc 31 31 38 34 30 33 32 2c 20 36 37 36 31 33 32 2c 20 39 33 38 32 37 37 2c 0a 20 20 20 ┆1184032, 676132, 938277, ┆
0x0a8fc…0a902 (0x194,0x153)
0x0a902…0a920 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 35 30 2c 20 20 32 30 39 34 32 2c 20 20 ┆ 50, 20942, ┆
0x0a920…0a940 20 38 31 39 32 2c 20 20 20 20 20 37 31 2c 20 20 20 20 20 37 33 2c 0a 20 20 20 20 20 20 20 20 20 ┆ 8192, 71, 73, ┆
0x0a940…0a960 20 20 20 20 20 20 20 37 32 35 34 36 39 2c 31 33 31 35 32 39 34 2c 20 36 32 37 31 36 37 2c 20 20 ┆ 725469,1315294, 627167, ┆
0x0a960…0a97a 32 30 37 34 39 2c 20 38 33 39 39 36 32 2c 0a 20 20 20 20 20 20 20 20 20 20 20 ┆20749, 839962, ┆
0x0a97a…0a980 (0x194,0x154)
0x0a980…0a9a0 20 20 20 20 31 31 36 37 36 34 35 2c 31 31 38 34 30 33 32 2c 20 36 37 36 31 33 32 2c 20 20 37 30 ┆ 1167645,1184032, 676132, 70┆
0x0a9a0…0a9c0 31 31 33 2c 20 39 33 38 32 37 37 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 33 33 32 ┆113, 938277, 332┆
0x0a9c0…0a9e0 32 36 30 2c 20 20 20 38 31 39 32 2c 20 20 32 30 39 36 36 2c 20 36 37 36 33 32 38 2c 20 39 33 38 ┆260, 8192, 20966, 676328, 938┆
0x0a9e0…0aa00 34 37 33 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 38 00 00 00 00 00 00 00 00 ┆473, 8 ┆
0x0aa00…0aa06 (85,) (0x194,0x155)
0x0aa06…0aa20 31 39 32 2c 20 20 32 30 39 37 30 2c 20 20 20 38 31 39 32 2c 20 31 31 39 32 37 ┆192, 20970, 8192, 11927┆
0x0aa20…0aa40 36 2c 20 36 34 33 35 37 32 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 39 32 32 31 30 ┆6, 643572, 92210┆
0x0aa40…0aa60 32 2c 20 20 20 38 31 39 32 2c 31 33 31 35 33 32 30 2c 20 36 32 37 31 36 37 2c 20 20 32 30 37 34 ┆2, 8192,1315320, 627167, 2074┆
0x0aa60…0aa7e 39 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 38 33 39 39 36 32 2c 31 31 36 37 ┆9, 839962,1167┆
0x0aa7e…0aa84 (0x194,0x156)
0x0aa84…0aaa0 36 34 35 2c 31 31 38 34 30 33 32 2c 20 36 37 36 31 33 32 2c 20 20 37 30 31 31 33 2c ┆645,1184032, 676132, 70113,┆
0x0aaa0…0aac0 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 39 33 38 32 37 37 2c 20 33 33 32 32 36 30 2c ┆ 938277, 332260,┆
0x0aac0…0aae0 20 20 20 38 31 39 32 2c 20 37 35 38 32 36 35 2c 20 20 20 38 31 39 32 2c 0a 20 20 20 20 20 20 20 ┆ 8192, 758265, 8192, ┆
0x0aae0…0aafc 20 20 20 20 20 20 20 20 20 31 31 39 32 39 31 2c 20 20 20 38 31 39 32 2c 20 20 32 30 ┆ 119291, 8192, 20┆
0x0aafc…0ab02 (0x194,0x157)
0x0ab02…0ab20 39 38 39 2c 20 20 20 38 31 39 32 2c 20 20 33 37 33 37 35 2c 0a 20 20 20 20 20 20 20 20 20 ┆989, 8192, 37375, ┆
0x0ab20…0ab40 20 20 20 20 20 20 20 20 35 33 37 36 30 2c 20 20 20 38 31 39 32 2c 20 20 32 30 39 39 34 2c 20 20 ┆ 53760, 8192, 20994, ┆
0x0ab40…0ab60 20 38 31 39 32 2c 31 34 39 35 35 35 36 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 8192,1495556, ┆
0x0ab60…0ab7a 31 32 33 30 30 2c 20 20 20 20 31 31 31 2c 31 34 34 36 34 30 35 2c 20 37 32 35 ┆12300, 111,1446405, 725┆
0x0ab7a…0ab80 (0x194,0x158)
0x0ab80…0aba0 31 39 32 2c 31 34 36 32 34 37 33 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 37 30 ┆192,1462473, 70┆
0x0aba0…0abc0 30 33 34 2c 20 36 31 30 35 32 31 2c 20 36 32 37 30 39 32 2c 20 20 20 38 31 39 32 2c 20 36 32 37 ┆034, 610521, 627092, 8192, 627┆
0x0abc0…0abe0 32 30 39 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 34 34 36 34 31 32 2c 20 37 32 35 ┆209, 1446412, 725┆
0x0abe0…0ac00 31 39 32 2c 31 34 36 32 34 37 33 2c 20 20 37 30 30 33 34 2c 20 36 31 30 00 00 00 00 00 00 00 00 ┆192,1462473, 70034, 610 ┆
0x0ac00…0ac06 (86,) (0x194,0x159)
0x0ac06…0ac20 35 32 31 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 38 31 39 ┆521, 819┆
0x0ac20…0ac40 32 2c 20 20 33 37 33 39 33 2c 20 20 35 33 37 37 38 2c 20 20 20 38 31 39 32 2c 20 20 32 31 30 31 ┆2, 37393, 53778, 8192, 2101┆
0x0ac40…0ac60 32 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 38 36 35 35 30 2c 20 36 37 36 33 37 ┆2, 86550, 67637┆
0x0ac60…0ac7e 36 2c 20 20 20 38 31 39 32 2c 31 31 36 37 38 39 38 2c 31 34 34 36 34 32 37 2c 0a 20 20 20 ┆6, 8192,1167898,1446427, ┆
0x0ac7e…0ac84 (0x194,0x15a)
0x0ac84…0aca0 20 20 20 20 20 20 20 20 20 20 20 20 20 37 32 35 31 39 32 2c 31 34 36 32 34 37 33 2c ┆ 725192,1462473,┆
0x0aca0…0acc0 20 20 36 39 38 34 35 2c 20 36 31 30 35 32 31 2c 20 36 32 37 30 39 32 2c 0a 20 20 20 20 20 20 20 ┆ 69845, 610521, 627092, ┆
0x0acc0…0ace0 20 20 20 20 20 20 20 20 31 31 38 34 30 33 32 2c 20 36 37 36 31 33 32 2c 20 39 33 38 32 37 37 2c ┆ 1184032, 676132, 938277,┆
0x0ace0…0acfc 20 33 33 32 32 36 30 2c 20 20 32 31 30 32 34 2c 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ 332260, 21024, ┆
0x0acfc…0ad02 (0x194,0x15b)
0x0ad02…0ad20 20 20 20 20 20 20 20 38 31 39 32 2c 20 20 32 31 30 33 32 2c 20 36 37 36 33 39 34 2c 20 20 ┆ 8192, 21032, 676394, ┆
0x0ad20…0ad40 20 38 31 39 32 2c 20 20 20 20 20 39 32 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 34 ┆ 8192, 92, 14┆
0x0ad40…0ad60 34 36 34 34 34 2c 20 20 31 32 35 33 37 2c 20 20 33 37 34 32 35 2c 20 20 37 30 31 39 34 2c 20 33 ┆46444, 12537, 37425, 70194, 3┆
0x0ad60…0ad7a 39 37 38 37 36 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 38 ┆97876, 8┆
0x0ad7a…0ad80 (0x194,0x15c)
0x0ad80…0ada0 31 39 32 2c 20 20 20 20 20 39 34 2c 20 20 20 20 20 39 36 2c 20 32 33 34 30 33 38 2c 31 30 35 33 ┆192, 94, 96, 234038,1053┆
0x0ada0…0adc0 32 33 39 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 32 39 39 30 30 30 2c 31 30 33 36 ┆239, 1299000,1036┆
0x0adc0…0ade0 36 32 37 2c 31 32 36 36 30 30 34 2c 31 33 33 31 35 34 32 2c 20 39 35 34 37 31 33 2c 0a 20 20 20 ┆627,1266004,1331542, 954713, ┆
0x0ade0…0ae00 20 20 20 20 20 20 20 20 20 20 20 20 31 31 35 31 33 32 34 2c 20 35 37 37 00 00 00 00 00 00 00 00 ┆ 1151324, 577 ┆
0x0ae00…0ae06 (87,) (0x194,0x15d)
0x0ae06…0ae20 38 37 34 2c 31 34 37 39 30 31 32 2c 31 33 39 37 30 39 34 2c 31 35 34 34 35 35 ┆874,1479012,1397094,154455┆
0x0ae20…0ae40 33 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 38 34 30 30 34 33 2c 20 35 34 35 31 33 ┆3, 840043, 54513┆
0x0ae40…0ae60 33 2c 20 36 39 32 35 39 31 2c 20 32 30 31 30 37 33 2c 31 34 31 33 34 39 30 2c 0a 20 20 20 20 20 ┆3, 692591, 201073,1413490, ┆
0x0ae60…0ae7e 20 20 20 20 20 20 20 20 20 20 20 38 30 37 32 39 33 2c 20 37 30 38 39 39 31 2c 20 20 20 38 ┆ 807293, 708991, 8┆
0x0ae7e…0ae84 (0x194,0x15e)
0x0ae84…0aea0 31 39 32 2c 20 20 20 20 20 20 34 2c 20 20 20 20 31 33 32 2c 0a 20 20 20 20 20 20 20 ┆192, 4, 132, ┆
0x0aea0…0aec0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 33 2c 20 20 20 20 20 20 36 2c 31 30 35 33 32 34 32 2c ┆ 3, 6,1053242,┆
0x0aec0…0aee0 31 30 33 36 36 32 37 2c 31 32 36 36 30 30 34 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆1036627,1266004, ┆
0x0aee0…0aefc 31 33 33 31 35 34 32 2c 20 39 35 34 37 31 33 2c 31 31 35 31 33 32 34 2c 31 34 37 39 ┆1331542, 954713,1151324,1479┆
0x0aefc…0af02 (0x194,0x15f)
0x0af02…0af20 30 31 32 2c 31 33 39 37 30 39 34 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 35 ┆012,1397094, 15┆
0x0af20…0af40 34 34 35 35 33 2c 20 38 34 30 30 34 33 2c 20 35 34 35 31 33 33 2c 20 36 39 32 35 39 31 2c 20 32 ┆44553, 840043, 545133, 692591, 2┆
0x0af40…0af60 30 31 30 37 33 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 34 31 33 34 39 30 2c 20 38 ┆01073, 1413490, 8┆
0x0af60…0af7a 30 37 32 39 33 2c 20 37 30 38 39 39 31 2c 20 20 20 38 31 39 32 2c 20 20 38 36 ┆07293, 708991, 8192, 86┆
0x0af7a…0af80 (0x194,0x160)
0x0af80…0afa0 35 35 30 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 36 37 36 33 37 36 2c 20 20 20 38 ┆550, 676376, 8┆
0x0afa0…0afc0 31 39 32 2c 20 20 20 20 20 31 34 2c 20 20 20 20 20 31 35 2c 20 20 35 33 38 31 39 2c 0a 20 20 20 ┆192, 14, 15, 53819, ┆
0x0afc0…0afe0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 36 2c 20 20 33 37 34 33 37 2c 20 31 33 35 ┆ 16, 37437, 135┆
0x0afe0…0b000 37 34 32 2c 20 20 20 38 31 39 32 2c 20 20 32 31 30 35 38 2c 0a 20 20 20 00 00 00 00 00 00 00 00 ┆742, 8192, 21058, ┆
0x0b000…0b006 (88,) (0x194,0x161)
0x0b006…0b020 20 20 20 20 20 20 20 20 20 20 20 20 20 36 32 37 32 36 38 2c 20 20 20 38 31 39 ┆ 627268, 819┆
0x0b020…0b040 32 2c 31 31 36 37 39 34 32 2c 31 31 38 34 30 33 32 2c 20 36 37 36 31 33 32 2c 0a 20 20 20 20 20 ┆2,1167942,1184032, 676132, ┆
0x0b040…0b060 20 20 20 20 20 20 20 20 20 20 20 20 37 30 31 31 33 2c 20 39 33 38 32 37 37 2c 20 33 33 32 32 36 ┆ 70113, 938277, 33226┆
0x0b060…0b07e 30 2c 20 20 32 31 30 32 34 2c 20 20 20 20 20 31 39 2c 0a 20 20 20 20 20 20 20 20 20 20 20 ┆0, 21024, 19, ┆
0x0b07e…0b084 (0x194,0x162)
0x0b084…0b0a0 20 20 20 20 20 20 35 33 38 33 31 2c 20 20 20 20 20 32 30 2c 20 20 33 37 34 34 39 2c ┆ 53831, 20, 37449,┆
0x0b0a0…0b0c0 20 31 33 35 37 35 34 2c 20 20 20 38 31 39 32 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 135754, 8192, ┆
0x0b0c0…0b0e0 20 20 35 33 38 33 36 2c 20 20 20 20 20 32 33 2c 20 36 32 37 32 37 38 2c 20 20 20 20 20 32 34 2c ┆ 53836, 23, 627278, 24,┆
0x0b0e0…0b0fc 20 36 32 37 32 38 30 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 38 ┆ 627280, 8┆
0x0b0fc…0b102 (0x194,0x163)
0x0b102…0b120 31 39 32 2c 20 36 32 37 32 38 31 2c 20 20 20 38 31 39 32 2c 20 20 20 20 20 33 35 2c 31 30 ┆192, 627281, 8192, 35,10┆
0x0b120…0b140 33 36 38 38 33 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 34 37 39 30 31 32 2c 20 39 ┆36883, 1479012, 9┆
0x0b140…0b160 35 34 39 36 34 2c 31 33 39 37 30 39 34 2c 31 35 34 34 35 35 33 2c 20 38 34 30 30 34 33 2c 0a 20 ┆54964,1397094,1544553, 840043, ┆
0x0b160…0b17a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 30 31 30 37 33 2c 31 34 31 33 ┆ 201073,1413┆
0x0b17a…0b180 (0x194,0x164)
0x0b180…0b1a0 34 39 30 2c 20 38 30 37 32 39 33 2c 20 37 30 38 39 39 31 2c 20 20 20 38 31 39 32 2c 0a 20 20 20 ┆490, 807293, 708991, 8192, ┆
0x0b1a0…0b1c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 31 30 37 38 2c 20 20 20 38 31 39 32 2c 20 36 32 37 ┆ 21078, 8192, 627┆
0x0b1c0…0b1e0 32 38 38 2c 20 20 20 38 31 39 32 2c 20 20 20 20 20 20 32 2c 0a 20 20 20 20 20 20 20 20 20 20 20 ┆288, 8192, 2, ┆
0x0b1e0…0b200 20 20 20 20 20 36 36 30 30 35 38 2c 20 20 20 38 31 39 32 2c 20 20 20 20 00 00 00 00 00 00 00 00 ┆ 660058, 8192, ┆
0x0b200…0b206 (89,) (0x194,0x165)
0x0b206…0b220 20 31 32 2c 20 20 20 20 20 20 31 2c 31 34 39 35 36 34 34 2c 0a 20 20 20 20 20 ┆ 12, 1,1495644, ┆
0x0b220…0b240 20 20 20 20 20 20 20 20 20 20 20 20 31 32 33 30 30 2c 20 20 20 20 20 31 30 2c 20 38 32 33 39 30 ┆ 12300, 10, 82390┆
0x0b240…0b260 31 2c 20 20 20 38 31 39 32 2c 20 20 37 30 30 35 36 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆1, 8192, 70056, ┆
0x0b260…0b27e 20 20 20 31 31 39 32 30 32 2c 20 33 39 37 37 33 35 2c 20 37 34 32 30 33 30 2c 20 20 20 38 ┆ 119202, 397735, 742030, 8┆
0x0b27e…0b284 (0x194,0x166)
0x0b284…0b2a0 31 39 32 2c 20 37 34 32 30 33 33 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆192, 742033, ┆
0x0b2a0…0b2c0 20 20 20 38 31 39 32 2c 20 20 32 30 39 36 36 2c 20 20 20 38 31 39 32 2c 20 20 32 31 31 33 39 2c ┆ 8192, 20966, 8192, 21139,┆
0x0b2c0…0b2e0 20 20 20 38 31 39 32 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 34 37 2c ┆ 8192, 47,┆
0x0b2e0…0b2fc 20 20 20 20 20 34 39 2c 20 20 38 36 36 37 37 2c 31 34 34 36 35 35 31 2c 20 37 32 35 ┆ 49, 86677,1446551, 725┆
0x0b2fc…0b302 (0x194,0x167)
0x0b302…0b320 31 39 32 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 34 36 32 34 37 33 2c 20 20 ┆192, 1462473, ┆
0x0b320…0b340 37 30 30 33 34 2c 20 36 31 30 35 32 31 2c 20 36 32 37 30 39 32 2c 20 20 20 38 31 39 32 2c 0a 20 ┆70034, 610521, 627092, 8192, ┆
0x0b340…0b360 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 36 32 37 33 35 36 2c 20 20 20 38 31 39 32 2c 31 30 ┆ 627356, 8192,10┆
0x0b360…0b37a 38 36 31 30 39 2c 20 31 38 34 39 39 30 2c 20 35 32 39 30 35 36 2c 0a 20 20 20 ┆86109, 184990, 529056, ┆
0x0b37a…0b380 (0x194,0x168)
0x0b380…0b3a0 20 20 20 20 20 20 20 20 20 20 20 20 20 34 36 33 30 39 31 2c 20 20 20 20 20 38 32 2c 20 20 20 20 ┆ 463091, 82, ┆
0x0b3a0…0b3c0 20 38 33 2c 20 20 20 20 20 38 34 2c 20 20 20 20 31 31 36 2c 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ 83, 84, 116, ┆
0x0b3c0…0b3e0 20 20 20 20 20 20 20 20 20 35 34 2c 31 31 31 38 36 33 33 2c 20 34 39 35 38 37 31 2c 31 31 30 32 ┆ 54,1118633, 495871,1102┆
0x0b3e0…0b400 30 38 36 2c 20 31 35 31 39 37 39 2c 0a 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆086, 151979, ┆
0x0b400…0b406 (90,) (0x194,0x169)
0x0b406…0b420 20 20 20 20 20 20 20 38 31 39 32 2c 20 20 32 31 31 35 34 2c 20 20 20 38 31 39 ┆ 8192, 21154, 819┆
0x0b420…0b440 32 2c 20 36 37 36 35 31 36 2c 20 20 20 38 31 39 32 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆2, 676516, 8192, ┆
0x0b440…0b460 20 20 31 34 39 35 37 31 38 2c 20 20 31 32 33 30 30 2c 20 20 20 20 20 35 37 2c 20 33 36 35 32 32 ┆ 1495718, 12300, 57, 36522┆
0x0b460…0b47e 33 2c 20 20 20 38 31 39 32 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 33 31 35 ┆3, 8192, 1315┆
0x0b47e…0b484 (0x194,0x16a)
0x0b484…0b4a0 34 39 37 2c 20 20 31 32 35 31 32 2c 31 33 31 35 35 30 30 2c 20 20 31 32 35 31 32 2c ┆497, 12512,1315500, 12512,┆
0x0b4a0…0b4c0 20 20 32 31 31 36 35 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 38 31 39 32 2c ┆ 21165, 8192,┆
0x0b4c0…0b4e0 20 31 33 35 35 35 38 2c 20 34 33 30 37 36 37 2c 20 20 20 38 31 39 32 2c 20 20 38 36 37 30 34 2c ┆ 135558, 430767, 8192, 86704,┆
0x0b4e0…0b4fc 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 38 31 39 32 2c 20 36 37 36 ┆ 8192, 676┆
0x0b4fc…0b502 (0x194,0x16b)
0x0b502…0b520 35 33 30 2c 20 20 20 38 31 39 32 2c 20 20 38 36 37 30 38 2c 20 20 20 38 31 39 32 2c 0a 20 ┆530, 8192, 86708, 8192, ┆
0x0b520…0b540 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 36 38 2c 20 20 32 30 38 38 38 2c 20 20 ┆ 68, 20888, ┆
0x0b540…0b560 38 36 34 33 32 2c 20 20 20 20 20 38 35 2c 31 34 33 30 31 39 38 2c 0a 20 20 20 20 20 20 20 20 20 ┆86432, 85,1430198, ┆
0x0b560…0b57a 20 20 20 20 20 20 20 20 31 32 33 38 36 2c 31 33 31 35 35 31 32 2c 31 34 34 36 ┆ 12386,1315512,1446┆
0x0b57a…0b580 (0x194,0x16c)
0x0b580…0b5a0 35 38 36 2c 20 37 32 35 31 39 32 2c 31 34 36 32 34 37 33 2c 0a 20 20 20 20 20 20 20 20 20 20 20 ┆586, 725192,1462473, ┆
0x0b5a0…0b5c0 20 20 20 20 20 20 36 39 38 34 35 2c 20 36 31 30 35 32 31 2c 20 36 32 37 33 39 31 2c 20 20 32 30 ┆ 69845, 610521, 627391, 20┆
0x0b5c0…0b5e0 37 34 39 2c 20 38 33 39 39 36 32 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 31 36 37 ┆749, 839962, 1167┆
0x0b5e0…0b600 36 34 35 2c 31 31 38 34 30 33 32 2c 20 36 37 36 31 33 32 2c 20 39 33 38 00 00 00 00 00 00 00 00 ┆645,1184032, 676132, 938 ┆
0x0b600…0b606 (91,) (0x194,0x16d)
0x0b606…0b620 32 37 37 2c 20 33 33 32 32 36 30 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆277, 332260, ┆
0x0b620…0b640 20 20 20 20 20 38 31 39 32 2c 20 20 20 20 20 37 38 2c 20 20 20 20 20 37 37 2c 20 20 38 36 34 33 ┆ 8192, 78, 77, 8643┆
0x0b640…0b660 32 2c 20 20 20 20 20 38 35 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 36 37 36 33 32 ┆2, 85, 67632┆
0x0b660…0b67e 38 2c 20 39 33 38 34 37 33 2c 20 20 20 38 31 39 32 2c 20 20 32 31 30 31 32 2c 20 20 20 38 ┆8, 938473, 8192, 21012, 8┆
0x0b67e…0b684 (0x194,0x16e)
0x0b684…0b6a0 31 39 32 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 34 34 36 35 39 34 2c ┆192, 1446594,┆
0x0b6a0…0b6c0 20 20 31 32 35 33 37 2c 20 20 20 20 20 39 35 2c 20 20 20 20 20 39 37 2c 31 34 34 36 35 39 39 2c ┆ 12537, 95, 97,1446599,┆
0x0b6c0…0b6e0 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 32 35 33 37 2c 20 37 35 38 34 37 36 2c ┆ 12537, 758476,┆
0x0b6e0…0b6fc 31 34 34 36 36 30 35 2c 20 37 32 35 31 39 32 2c 31 34 36 32 34 37 33 2c 0a 20 20 20 ┆1446605, 725192,1462473, ┆
0x0b6fc…0b702 (0x194,0x16f)
0x0b702…0b720 20 20 20 20 20 20 20 20 20 20 20 20 20 20 37 30 30 33 34 2c 20 36 31 30 35 32 31 2c 20 36 ┆ 70034, 610521, 6┆
0x0b720…0b740 32 37 30 39 32 2c 20 20 20 38 31 39 32 2c 31 34 34 36 36 30 39 2c 0a 20 20 20 20 20 20 20 20 20 ┆27092, 8192,1446609, ┆
0x0b740…0b760 20 20 20 20 20 20 20 20 31 32 35 33 37 2c 31 34 34 36 36 31 33 2c 20 20 31 32 35 33 37 2c 20 20 ┆ 12537,1446613, 12537, ┆
0x0b760…0b77a 20 20 31 32 32 2c 20 38 38 39 35 36 31 2c 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ 122, 889561, ┆
0x0b77a…0b780 (0x194,0x170)
0x0b780…0b7a0 20 20 20 20 20 20 20 38 31 39 32 2c 31 33 31 35 35 34 37 2c 20 20 31 32 35 31 32 2c 31 33 31 35 ┆ 8192,1315547, 12512,1315┆
0x0b7a0…0b7c0 35 34 38 2c 20 20 31 32 35 31 32 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆548, 12512, ┆
0x0b7c0…0b7e0 31 30 35 2c 31 34 34 36 36 32 32 2c 20 20 31 32 35 33 37 2c 20 36 37 36 35 37 38 2c 20 20 20 38 ┆105,1446622, 12537, 676578, 8┆
0x0b7e0…0b800 31 39 32 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆192, ┆
0x0b800…0b806 (92,) (0x194,0x171)
0x0b806…0b820 31 30 33 2c 20 31 31 39 32 30 32 2c 20 33 39 37 37 33 35 2c 20 20 37 30 30 35 ┆103, 119202, 397735, 7005┆
0x0b820…0b840 36 2c 20 20 20 20 31 31 32 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 31 31 33 ┆6, 112, 2113┆
0x0b840…0b860 39 2c 20 20 38 36 37 35 37 2c 20 20 20 20 31 31 33 2c 20 20 37 30 30 35 36 2c 20 31 31 39 32 30 ┆9, 86757, 113, 70056, 11920┆
0x0b860…0b87e 32 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 33 39 37 37 33 35 2c 20 36 36 30 ┆2, 397735, 660┆
0x0b87e…0b884 (0x194,0x172)
0x0b884…0b8a0 31 39 39 2c 20 20 20 38 31 39 32 2c 20 20 20 20 31 31 35 2c 20 36 32 37 34 33 33 2c ┆199, 8192, 115, 627433,┆
0x0b8a0…0b8c0 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 38 31 39 32 2c 20 36 32 37 34 33 34 2c ┆ 8192, 627434,┆
0x0b8c0…0b8e0 20 20 20 38 31 39 32 2c 20 32 35 30 36 30 34 2c 20 20 20 38 31 39 32 2c 0a 20 20 20 20 20 20 20 ┆ 8192, 250604, 8192, ┆
0x0b8e0…0b8fc 20 20 20 20 20 20 20 20 20 20 35 33 39 39 37 2c 20 20 20 20 31 33 30 2c 20 20 20 20 ┆ 53997, 130, ┆
0x0b8fc…0b902 (0x194,0x173)
0x0b902…0b920 20 39 39 2c 20 20 33 37 36 31 35 2c 20 20 37 30 30 35 36 2c 0a 20 20 20 20 20 20 20 20 20 ┆ 99, 37615, 70056, ┆
0x0b920…0b940 20 20 20 20 20 20 20 31 31 39 32 30 32 2c 20 33 39 37 37 33 35 2c 20 20 20 38 31 39 32 2c 31 31 ┆ 119202, 397735, 8192,11┆
0x0b940…0b960 36 37 38 39 38 2c 31 31 38 34 30 33 32 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 36 ┆67898,1184032, 6┆
0x0b960…0b97a 37 36 31 33 32 2c 20 20 37 30 31 31 33 2c 20 39 33 38 32 37 37 2c 20 33 33 32 ┆76132, 70113, 938277, 332┆
0x0b97a…0b980 (0x194,0x174)
0x0b980…0b9a0 32 36 30 2c 20 20 32 31 30 32 34 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 38 ┆260, 21024, 8┆
0x0b9a0…0b9c0 31 39 32 2c 31 33 31 35 35 36 39 2c 20 20 31 32 35 31 32 2c 20 36 36 30 32 31 31 2c 20 20 20 38 ┆192,1315569, 12512, 660211, 8┆
0x0b9c0…0b9e0 31 39 32 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 37 30 30 35 36 2c 20 31 31 39 ┆192, 70056, 119┆
0x0b9e0…0ba00 32 30 32 2c 20 33 39 37 37 33 35 2c 20 36 36 30 32 31 33 2c 20 20 20 38 00 00 00 00 00 00 00 00 ┆202, 397735, 660213, 8 ┆
0x0ba00…0ba06 (93,) (0x194,0x175)
0x0ba06…0ba20 31 39 32 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 39 ┆192, 9┆
0x0ba20…0ba40 33 2c 31 31 36 38 31 31 39 2c 20 20 31 32 38 33 33 2c 31 31 36 38 31 32 30 2c 20 20 31 32 38 33 ┆3,1168119, 12833,1168120, 1283┆
0x0ba40…0ba60 33 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 39 2c 20 20 20 20 20 20 ┆3, 9, ┆
0x0ba60…0ba7e 37 2c 31 30 35 33 34 33 33 2c 20 20 31 32 36 30 37 2c 20 20 20 20 20 20 35 2c 0a 20 20 20 ┆7,1053433, 12607, 5, ┆
0x0ba7e…0ba84 (0x194,0x176)
0x0ba84…0baa0 20 20 20 20 20 20 20 20 20 20 20 20 20 36 32 37 34 35 30 2c 20 20 20 38 31 39 32 2c ┆ 627450, 8192,┆
0x0baa0…0bac0 20 20 20 20 20 31 37 2c 20 37 32 35 37 35 35 2c 31 34 37 39 34 32 30 2c 0a 20 20 20 20 20 20 20 ┆ 17, 725755,1479420, ┆
0x0bac0…0bae0 20 20 20 20 20 20 20 20 20 38 34 30 34 34 36 2c 20 20 20 38 31 39 32 2c 31 31 36 38 31 32 38 2c ┆ 840446, 8192,1168128,┆
0x0bae0…0bafc 20 20 31 32 38 33 33 2c 20 36 36 30 32 32 36 2c 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ 12833, 660226, ┆
0x0bafc…0bb02 (0x194,0x177)
0x0bb02…0bb20 20 20 20 20 20 20 20 38 31 39 32 2c 20 20 20 20 20 33 34 2c 20 36 32 37 34 36 30 2c 20 20 ┆ 8192, 34, 627460, ┆
0x0bb20…0bb40 20 38 31 39 32 2c 20 20 20 20 20 32 32 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 30 ┆ 8192, 22, 10┆
0x0bb40…0bb60 33 37 30 36 32 2c 20 20 31 32 36 35 39 2c 20 36 32 37 34 36 33 2c 20 20 20 38 31 39 32 2c 20 31 ┆37062, 12659, 627463, 8192, 1┆
0x0bb60…0bb7a 31 39 35 36 31 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆19561, ┆
0x0bb7a…0bb80 (0x194,0x178)
0x0bb80…0bba0 20 32 39 2c 20 20 20 20 20 33 39 2c 20 20 32 31 32 35 39 2c 20 20 20 38 31 39 32 2c 20 20 20 20 ┆ 29, 39, 21259, 8192, ┆
0x0bba0…0bbc0 20 33 37 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 31 32 36 31 2c 20 20 20 38 ┆ 37, 21261, 8┆
0x0bbc0…0bbe0 31 39 32 2c 20 36 37 36 36 32 33 2c 20 20 20 38 31 39 32 2c 20 20 32 31 32 36 35 2c 0a 20 20 20 ┆192, 676623, 8192, 21265, ┆
0x0bbe0…0bc00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 38 31 39 32 2c 31 32 33 33 00 00 00 00 00 00 00 00 ┆ 8192,1233 ┆
0x0bc00…0bc06 (94,) (0x194,0x179)
0x0bc06…0bc20 36 38 32 2c 20 20 31 32 32 39 30 2c 20 20 20 20 20 34 35 2c 31 34 39 35 38 32 ┆682, 12290, 45,149582┆
0x0bc20…0bc40 39 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 35 31 32 32 31 34 2c 20 35 31 32 30 39 ┆9, 1512214, 51209┆
0x0bc40…0bc60 37 2c 31 32 38 32 31 35 34 2c 31 34 34 36 30 30 31 2c 20 39 37 30 38 36 39 2c 0a 20 20 20 20 20 ┆7,1282154,1446001, 970869, ┆
0x0bc60…0bc7e 20 20 20 20 20 20 20 20 20 20 31 33 34 37 37 30 32 2c 20 31 35 31 36 37 31 2c 31 30 38 35 ┆ 1347702, 151671,1085┆
0x0bc7e…0bc84 (0x194,0x17a)
0x0bc84…0bca0 35 36 37 2c 20 35 39 34 30 34 38 2c 20 39 38 37 32 36 36 2c 0a 20 20 20 20 20 20 20 ┆567, 594048, 987266, ┆
0x0bca0…0bcc0 20 20 20 20 20 20 20 20 31 35 36 30 37 30 39 2c 31 30 36 39 31 39 31 2c 20 32 38 32 37 36 31 2c ┆ 1560709,1069191, 282761,┆
0x0bcc0…0bce0 20 33 34 38 32 39 39 2c 31 31 31 38 33 34 39 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 348299,1118349, ┆
0x0bce0…0bcfc 20 32 33 33 36 31 34 2c 20 34 37 39 33 37 36 2c 20 35 36 31 32 39 38 2c 20 39 30 35 ┆ 233614, 479376, 561298, 905┆
0x0bcfc…0bd02 (0x194,0x17b)
0x0bd02…0bd20 33 36 34 2c 31 31 33 34 37 34 32 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 ┆364,1134742, 1┆
0x0bd20…0bd40 36 38 31 33 33 2c 31 30 32 30 31 30 33 2c 20 36 32 36 37 39 37 2c 20 37 32 35 31 39 32 2c 31 34 ┆68133,1020103, 626797, 725192,14┆
0x0bd40…0bd60 36 32 34 37 33 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 36 39 38 34 35 2c 20 36 ┆62473, 69845, 6┆
0x0bd60…0bd7a 31 30 35 32 31 2c 31 33 31 35 30 33 35 2c 20 32 31 37 33 31 31 2c 20 33 31 35 ┆10521,1315035, 217311, 315┆
0x0bd7a…0bd80 (0x194,0x17c)
0x0bd80…0bda0 36 32 36 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 37 35 37 39 39 36 2c 20 35 32 38 ┆626, 757996, 528┆
0x0bda0…0bdc0 36 32 32 2c 31 33 36 34 32 30 38 2c 20 34 36 33 30 39 31 2c 31 30 30 33 37 36 35 2c 0a 20 20 20 ┆622,1364208, 463091,1003765, ┆
0x0bdc0…0bde0 20 20 20 20 20 20 20 20 20 20 20 20 20 38 37 32 36 39 35 2c 20 34 34 36 37 31 32 2c 20 34 39 35 ┆ 872695, 446712, 495┆
0x0bde0…0be00 38 37 31 2c 31 31 30 32 30 38 36 2c 20 33 33 32 30 34 31 2c 0a 20 20 20 00 00 00 00 00 00 00 00 ┆871,1102086, 332041, ┆
0x0be00…0be06 (95,) (0x194,0x17d)
0x0be06…0be20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 30 37 34 39 2c 20 38 33 39 39 36 ┆ 20749, 83996┆
0x0be20…0be40 32 2c 31 31 36 37 36 34 35 2c 20 32 39 39 32 39 34 2c 31 31 38 34 30 33 32 2c 0a 20 20 20 20 20 ┆2,1167645, 299294,1184032, ┆
0x0be40…0be60 20 20 20 20 20 20 20 20 20 20 20 36 37 36 31 33 32 2c 20 39 33 38 32 37 37 2c 20 20 20 20 20 35 ┆ 676132, 938277, 5┆
0x0be60…0be7e 30 2c 31 33 31 35 36 30 38 2c 31 34 34 36 36 38 31 2c 0a 20 20 20 20 20 20 20 20 20 20 20 ┆0,1315608,1446681, ┆
0x0be7e…0be84 (0x194,0x17e)
0x0be84…0bea0 20 20 20 20 20 20 31 32 37 35 32 2c 31 33 31 35 36 31 33 2c 20 20 31 32 35 31 32 2c ┆ 12752,1315613, 12512,┆
0x0bea0…0bec0 31 34 34 36 35 35 31 2c 20 20 31 32 35 33 37 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆1446551, 12537, ┆
0x0bec0…0bee0 20 37 32 35 37 39 30 2c 20 20 20 38 31 39 32 2c 20 20 33 37 36 36 34 2c 20 20 37 30 30 35 36 2c ┆ 725790, 8192, 37664, 70056,┆
0x0bee0…0befc 20 31 31 39 32 30 32 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 33 39 37 ┆ 119202, 397┆
0x0befc…0bf02 (0x194,0x17f)
0x0bf02…0bf20 37 33 35 2c 20 20 20 38 31 39 32 2c 20 20 20 20 20 38 37 2c 20 20 20 20 20 37 34 2c 20 20 ┆735, 8192, 87, 74, ┆
0x0bf20…0bf40 32 31 32 38 31 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 38 31 39 32 2c 20 20 ┆21281, 8192, ┆
0x0bf40…0bf60 32 31 32 38 33 2c 20 20 20 38 31 39 32 2c 20 20 38 36 36 37 37 2c 20 20 20 38 31 39 32 2c 0a 20 ┆21283, 8192, 86677, 8192, ┆
0x0bf60…0bf7a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 33 37 36 36 39 2c 20 20 20 38 ┆ 37669, 8┆
0x0bf7a…0bf80 (0x194,0x180)
0x0bf80…0bfa0 31 39 32 2c 20 20 20 20 31 30 34 2c 31 35 31 32 32 33 30 2c 20 20 31 32 34 33 39 2c 0a 20 20 20 ┆192, 104,1512230, 12439, ┆
0x0bfa0…0bfc0 20 20 20 20 20 20 20 20 20 20 20 20 20 33 38 31 37 33 35 2c 20 38 35 36 38 37 33 2c 20 20 20 38 ┆ 381735, 856873, 8┆
0x0bfc0…0bfe0 31 39 32 2c 20 20 20 20 20 36 31 2c 31 34 34 36 36 39 39 2c 0a 20 20 20 20 20 20 20 20 20 20 20 ┆192, 61,1446699, ┆
0x0bfe0…0c000 20 20 20 20 20 20 31 32 35 33 37 2c 20 20 20 20 20 36 34 2c 20 37 32 35 00 00 00 00 00 00 00 00 ┆ 12537, 64, 725 ┆
0x0c000…0c006 (96,) (0x194,0x181)
0x0c006…0c020 38 30 38 2c 20 20 20 38 31 39 32 2c 20 20 35 34 30 36 36 2c 0a 20 20 20 20 20 ┆808, 8192, 54066, ┆
0x0c020…0c040 20 20 20 20 20 20 20 20 20 20 20 20 20 38 31 39 32 2c 20 37 32 35 38 31 32 2c 20 20 20 38 31 39 ┆ 8192, 725812, 819┆
0x0c040…0c060 32 2c 20 38 32 34 31 31 38 2c 20 20 20 38 31 39 32 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆2, 824118, 8192, ┆
0x0c060…0c07e 20 20 20 20 33 37 36 38 38 2c 20 20 20 38 31 39 32 2c 20 20 35 34 30 37 33 2c 20 20 37 30 ┆ 37688, 8192, 54073, 70┆
0x0c07e…0c084 (0x194,0x182)
0x0c084…0c0a0 30 35 36 2c 20 31 31 39 32 30 32 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆056, 119202, ┆
0x0c0a0…0c0c0 20 33 39 37 37 33 35 2c 20 20 20 38 31 39 32 2c 20 20 32 31 31 33 39 2c 20 20 38 36 34 33 32 2c ┆ 397735, 8192, 21139, 86432,┆
0x0c0c0…0c0e0 20 20 20 20 20 38 35 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 33 37 36 39 31 2c ┆ 85, 37691,┆
0x0c0e0…0c0fc 20 20 37 30 30 35 36 2c 20 31 31 39 32 30 32 2c 20 33 39 37 37 33 35 2c 20 20 20 38 ┆ 70056, 119202, 397735, 8┆
0x0c0fc…0c102 (0x194,0x183)
0x0c102…0c120 31 39 32 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 33 37 36 39 32 2c 20 20 ┆192, 37692, ┆
0x0c120…0c140 37 30 30 35 36 2c 20 31 31 39 32 30 32 2c 20 33 39 37 37 33 35 2c 20 20 20 38 31 39 32 2c 0a 20 ┆70056, 119202, 397735, 8192, ┆
0x0c140…0c160 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 32 35 2c 20 31 31 39 32 30 32 2c 20 33 ┆ 125, 119202, 3┆
0x0c160…0c17a 39 37 37 33 35 2c 20 20 37 30 30 35 36 2c 20 20 20 20 31 31 39 2c 0a 20 20 20 ┆97735, 70056, 119, ┆
0x0c17a…0c180 (0x194,0x184)
0x0c180…0c1a0 20 20 20 20 20 20 20 20 20 20 20 20 20 31 31 39 32 30 32 2c 20 33 39 37 37 33 35 2c 20 20 37 30 ┆ 119202, 397735, 70┆
0x0c1a0…0c1c0 30 35 36 2c 20 20 20 20 31 32 30 2c 20 31 31 39 32 30 32 2c 0a 20 20 20 20 20 20 20 20 20 20 20 ┆056, 120, 119202, ┆
0x0c1c0…0c1e0 20 20 20 20 20 33 39 37 37 33 35 2c 20 20 37 30 30 35 36 2c 20 20 20 20 31 32 31 2c 31 33 31 35 ┆ 397735, 70056, 121,1315┆
0x0c1e0…0c200 36 34 35 2c 20 20 31 32 35 31 32 2c 0a 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆645, 12512, ┆
0x0c200…0c206 (97,) (0x194,0x185)
0x0c206…0c220 20 20 20 20 20 20 20 20 31 32 34 2c 20 20 33 37 36 39 34 2c 20 20 20 38 31 39 ┆ 124, 37694, 819┆
0x0c220…0c240 32 2c 20 31 31 39 32 30 32 2c 20 33 39 37 37 33 35 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆2, 119202, 397735, ┆
0x0c240…0c260 20 20 20 20 37 30 30 35 36 2c 20 20 20 20 31 30 37 2c 20 20 33 37 36 39 36 2c 20 20 37 30 34 36 ┆ 70056, 107, 37696, 7046┆
0x0c260…0c27e 35 2c 20 20 20 38 31 39 32 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 36 32 37 ┆5, 8192, 627┆
0x0c27e…0c284 (0x194,0x186)
0x0c284…0c2a0 35 32 33 2c 20 20 20 38 31 39 32 2c 20 20 32 31 33 31 36 2c 20 20 20 38 31 39 32 2c ┆523, 8192, 21316, 8192,┆
0x0c2a0…0c2c0 20 20 20 20 31 31 38 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 33 37 37 30 32 2c ┆ 118, 37702,┆
0x0c2c0…0c2e0 20 20 20 38 31 39 32 2c 20 20 20 20 31 32 39 2c 20 36 37 36 36 37 39 2c 20 20 20 38 31 39 32 2c ┆ 8192, 129, 676679, 8192,┆
0x0c2e0…0c2fc 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 38 36 38 35 36 2c 20 20 20 20 ┆ 86856, ┆
0x0c2fc…0c302 (0x194,0x187)
0x0c302…0c320 20 38 36 2c 20 20 33 37 37 30 37 2c 20 20 20 38 31 39 32 2c 31 33 31 35 36 36 30 2c 0a 20 ┆ 86, 37707, 8192,1315660, ┆
0x0c320…0c340 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 32 35 31 32 2c 20 32 33 34 33 31 37 2c 20 20 ┆ 12512, 234317, ┆
0x0c340…0c360 20 38 31 39 32 2c 20 20 20 20 31 30 31 2c 20 20 20 20 31 30 30 2c 0a 20 20 20 20 20 20 20 20 20 ┆ 8192, 101, 100, ┆
0x0c360…0c37a 20 20 20 20 20 20 20 20 20 20 20 20 38 2c 20 20 20 20 20 34 30 2c 20 20 20 20 ┆ 8, 40, ┆
0x0c37a…0c380 (0x194,0x188)
0x0c380…0c3a0 20 34 32 2c 20 20 35 33 38 33 31 2c 20 20 20 20 20 34 33 2c 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ 42, 53831, 43, ┆
0x0c3a0…0c3c0 20 20 20 20 20 36 32 37 32 37 38 2c 20 20 20 38 31 39 32 2c 20 31 30 33 32 34 36 2c 20 20 20 38 ┆ 627278, 8192, 103246, 8┆
0x0c3c0…0c3e0 31 39 32 2c 31 30 33 37 31 33 36 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 32 ┆192,1037136, 12┆
0x0c3e0…0c400 36 35 39 2c 20 31 31 39 36 33 33 2c 20 20 20 20 20 33 32 2c 20 20 20 20 00 00 00 00 00 00 00 00 ┆659, 119633, 32, ┆
0x0c400…0c406 (98,) (0x194,0x189)
0x0c406…0c420 20 33 38 2c 20 31 31 39 36 33 35 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 38, 119635, ┆
0x0c420…0c440 20 20 20 20 20 20 20 32 37 2c 31 31 36 38 32 31 33 2c 20 20 31 32 38 33 33 2c 20 20 38 36 38 37 ┆ 27,1168213, 12833, 8687┆
0x0c440…0c460 30 2c 20 20 20 38 31 39 32 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 31 36 38 32 31 ┆0, 8192, 116821┆
0x0c460…0c47e 36 2c 20 20 31 32 38 33 33 2c 20 20 33 37 37 32 32 2c 20 20 20 38 31 39 32 2c 20 20 20 20 ┆6, 12833, 37722, 8192, ┆
0x0c47e…0c484 (0x194,0x18a)
0x0c484…0c4a0 20 33 36 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 33 35 32 35 35 2c ┆ 36, 135255,┆
0x0c4a0…0c4c0 20 34 33 30 39 34 30 2c 20 20 20 38 31 39 32 2c 20 20 20 20 20 34 36 2c 20 34 31 34 35 35 37 2c ┆ 430940, 8192, 46, 414557,┆
0x0c4c0…0c4e0 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 34 38 2c 20 20 20 20 31 30 39 2c ┆ 48, 109,┆
0x0c4e0…0c4fc 20 31 31 39 32 30 32 2c 20 33 39 37 37 33 35 2c 20 20 37 30 30 35 36 2c 0a 20 20 20 ┆ 119202, 397735, 70056, ┆
0x0c4fc…0c502 (0x194,0x18b)
0x0c502…0c520 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 30 38 2c 20 20 20 20 31 31 30 2c 20 20 ┆ 108, 110, ┆
0x0c520…0c540 38 36 38 37 38 2c 20 20 20 38 31 39 32 2c 20 20 20 20 20 38 31 2c 0a 20 20 20 20 20 20 20 20 20 ┆86878, 8192, 81, ┆
0x0c540…0c560 20 20 20 20 20 20 31 33 31 35 36 37 39 2c 20 20 31 32 35 31 32 2c 31 33 31 35 36 38 31 2c 20 20 ┆ 1315679, 12512,1315681, ┆
0x0c560…0c57a 31 32 35 31 32 2c 20 20 20 20 20 35 36 2c 0a 20 20 20 20 20 20 20 20 20 20 20 ┆12512, 56, ┆
0x0c57a…0c580 (0x194,0x18c)
0x0c580…0c5a0 20 20 20 20 20 20 20 20 20 35 38 2c 31 33 31 35 36 38 33 2c 20 20 31 32 35 31 32 2c 31 33 31 35 ┆ 58,1315683, 12512,1315┆
0x0c5a0…0c5c0 36 38 35 2c 20 20 31 32 35 31 32 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 35 34 ┆685, 12512, 54┆
0x0c5c0…0c5e0 31 31 39 2c 20 20 37 30 30 35 36 2c 20 31 31 39 32 30 32 2c 20 33 39 37 37 33 35 2c 20 20 20 38 ┆119, 70056, 119202, 397735, 8┆
0x0c5e0…0c600 31 39 32 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 38 36 00 00 00 00 00 00 00 00 ┆192, 86 ┆
0x0c600…0c606 (99,) (0x194,0x18d)
0x0c606…0c620 38 38 39 2c 20 20 20 38 31 39 32 2c 20 36 37 36 37 31 35 2c 20 20 20 38 31 39 ┆889, 8192, 676715, 819┆
0x0c620…0c640 32 2c 20 20 38 36 38 39 33 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 38 31 39 ┆2, 86893, 819┆
0x0c640…0c660 32 2c 31 35 31 32 33 30 33 2c 20 20 31 32 34 33 39 2c 20 20 20 20 20 37 30 2c 31 33 31 35 36 39 ┆2,1512303, 12439, 70,131569┆
0x0c660…0c67e 37 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 32 35 31 32 2c 20 20 20 20 ┆7, 12512, ┆
0x0c67e…0c684 (0x194,0x18e)
0x0c684…0c6a0 20 37 39 2c 20 20 20 20 20 38 30 2c 20 20 20 20 31 32 33 2c 20 31 31 39 36 36 37 2c ┆ 79, 80, 123, 119667,┆
0x0c6a0…0c6c0 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 38 31 39 32 2c 20 20 20 20 31 32 37 2c ┆ 8192, 127,┆
0x0c6c0…0c6e0 20 36 37 36 37 32 35 2c 20 20 20 38 31 39 32 2c 20 20 20 20 31 31 34 2c 0a 20 20 20 20 20 20 20 ┆ 676725, 8192, 114, ┆
0x0c6e0…0c6fc 20 20 20 20 20 20 20 20 20 36 32 37 35 37 35 2c 20 20 20 38 31 39 32 2c 20 20 20 20 ┆ 627575, 8192, ┆
0x0c6fc…0c702 (0x194,0x18f)
0x0c702…0c720 20 39 38 2c 20 20 20 20 31 33 31 2c 20 36 32 37 35 37 36 2c 0a 20 20 20 20 20 20 20 20 20 ┆ 98, 131, 627576, ┆
0x0c720…0c740 20 20 20 20 20 20 20 38 34 30 35 36 39 2c 20 20 20 38 31 39 32 2c 20 20 20 20 20 39 31 2c 20 20 ┆ 840569, 8192, 91, ┆
0x0c740…0c760 20 20 20 39 30 2c 20 20 20 20 31 30 32 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 31 ┆ 90, 102, 11┆
0x0c760…0c77a 36 38 32 35 30 2c 20 20 31 32 38 33 33 2c 20 20 20 20 20 31 38 2c 31 31 36 38 ┆68250, 12833, 18,1168┆
0x0c77a…0c780 (0x194,0x190)
0x0c780…0c7a0 32 35 32 2c 20 20 31 32 38 33 33 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 37 39 31 ┆252, 12833, 791┆
0x0c7a0…0c7c0 34 32 31 2c 20 20 20 38 31 39 32 2c 20 20 20 20 20 33 30 2c 20 37 32 35 38 38 36 2c 20 20 20 38 ┆421, 8192, 30, 725886, 8┆
0x0c7c0…0c7e0 31 39 32 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 30 33 32 39 36 2c 20 20 20 38 ┆192, 103296, 8┆
0x0c7e0…0c800 31 39 32 2c 20 36 32 37 35 38 36 2c 20 20 20 38 31 39 32 2c 20 20 20 20 00 00 00 00 00 00 00 00 ┆192, 627586, 8192, ┆
0x0c800…0c806 (100,) (0x194,0x191)
0x0c806…0c820 20 31 31 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 37 ┆ 11, 7┆
0x0c820…0c840 32 2c 20 20 20 20 31 30 36 2c 20 20 33 37 37 36 34 2c 20 20 20 38 31 39 32 2c 20 20 33 37 37 36 ┆2, 106, 37764, 8192, 3776┆
0x0c840…0c860 35 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 38 31 39 32 2c 20 33 36 35 34 34 ┆5, 8192, 36544┆
0x0c860…0c87e 36 2c 20 20 20 38 31 39 32 2c 20 33 36 35 34 34 38 2c 20 20 20 38 31 39 32 2c 0a 20 20 20 ┆6, 8192, 365448, 8192, ┆
0x0c87e…0c884 (0x194,0x192)
0x0c884…0c8a0 20 20 20 20 20 20 20 20 20 20 20 20 31 33 31 35 37 32 32 2c 20 20 31 32 35 31 32 2c ┆ 1315722, 12512,┆
0x0c8a0…0c8c0 20 20 35 34 31 35 36 2c 20 20 20 38 31 39 32 2c 20 20 35 34 31 35 38 2c 0a 20 20 20 20 20 20 20 ┆ 54156, 8192, 54158, ┆
0x0c8c0…0c8e0 20 20 20 20 20 20 20 20 20 20 20 38 31 39 32 2c 20 20 35 34 31 36 30 2c 20 20 20 38 31 39 32 2c ┆ 8192, 54160, 8192,┆
0x0c8e0…0c8fc 20 34 31 34 35 35 37 2c 20 20 20 38 31 39 32 2c 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ 414557, 8192, ┆
0x0c8fc…0c902 (0x194,0x193)
0x0c902…0c920 20 20 20 20 20 20 33 37 37 37 38 2c 20 20 20 38 31 39 32 2c 31 34 34 36 38 30 33 2c 20 20 ┆ 37778, 8192,1446803, ┆
0x0c920…0c940 31 32 35 33 37 2c 20 20 33 37 37 38 33 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆12537, 37783, ┆
0x0c940…0c960 20 38 31 39 32 2c 20 20 20 20 31 31 37 2c 20 20 20 20 20 38 38 2c 20 20 20 20 20 38 39 2c 20 20 ┆ 8192, 117, 88, 89, ┆
0x0c960…0c97a 33 37 37 38 34 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 38 ┆37784, 8┆
0x0c97a…0c980 (0x194,0x194)
0x0c980…0c9a0 31 39 32 2c 20 20 20 20 20 33 31 2c 20 20 20 20 20 32 38 2c 20 20 38 36 39 33 38 2c 20 20 20 38 ┆192, 31, 28, 86938, 8┆
0x0c9a0…0c9c0 31 39 32 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 31 36 38 32 38 33 2c 20 20 31 32 ┆192, 1168283, 12┆
0x0c9c0…0c9e0 38 33 33 2c 20 31 31 39 37 30 39 2c 20 20 20 20 20 32 35 2c 20 20 20 20 20 37 35 2c 0a 20 20 20 ┆833, 119709, 25, 75, ┆
0x0c9e0…0ca00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 37 36 2c 31 35 31 32 00 00 00 00 00 00 00 00 ┆ 76,1512 ┆
0x0ca00…0ca06 (101,) (0x194,0x195)
0x0ca06…0ca20 33 35 31 2c 20 20 31 32 34 33 39 2c 31 35 31 32 33 35 32 2c 20 20 31 32 34 33 ┆351, 12439,1512352, 1243┆
0x0ca20…0ca40 39 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 33 37 37 39 33 2c 20 20 20 38 31 39 ┆9, 37793, 819┆
0x0ca40…0ca60 32 2c 20 37 32 35 39 32 32 2c 20 20 20 38 31 39 32 2c 20 36 37 36 37 37 32 2c 0a 20 20 20 20 20 ┆2, 725922, 8192, 676772, ┆
0x0ca60…0ca7e 20 20 20 20 20 20 20 20 20 20 20 20 20 38 31 39 32 2c 31 34 34 36 38 32 32 2c 20 20 31 32 ┆ 8192,1446822, 12┆
0x0ca7e…0ca84 (0x194,0x196)
0x0ca84…0caa0 35 33 37 2c 20 20 20 20 20 36 39 2c 20 31 31 39 32 30 32 2c 0a 20 20 20 20 20 20 20 ┆537, 69, 119202, ┆
0x0caa0…0cac0 20 20 20 20 20 20 20 20 20 33 39 37 37 33 35 2c 20 20 37 30 30 35 36 2c 20 20 20 20 31 32 36 2c ┆ 397735, 70056, 126,┆
0x0cac0…0cae0 20 20 20 20 31 32 38 2c 20 36 32 37 36 32 37 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 128, 627627, ┆
0x0cae0…0cafc 20 20 20 38 31 39 32 2c 20 20 20 20 20 34 31 2c 20 20 33 37 38 30 35 2c 20 20 20 38 ┆ 8192, 41, 37805, 8┆
0x0cafc…0cb02 (0x194,0x197)
0x0cb02…0cb20 31 39 32 2c 20 37 39 31 34 37 31 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆192, 791471, ┆
0x0cb20…0cb40 20 38 31 39 32 2c 20 20 20 20 20 36 30 2c 20 20 20 20 20 35 39 2c 20 20 20 20 20 36 32 2c 20 20 ┆ 8192, 60, 59, 62, ┆
0x0cb40…0cb60 33 37 38 30 38 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 38 31 39 32 2c 20 20 ┆37808, 8192, ┆
0x0cb60…0cb7a 33 37 38 30 39 2c 20 20 20 38 31 39 32 2c 20 20 33 37 38 31 30 2c 20 20 37 30 ┆37809, 8192, 37810, 70┆
0x0cb7a…0cb80 (0x194,0x198)
0x0cb80…0cba0 30 35 36 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 31 39 32 30 32 2c 20 33 39 37 ┆056, 119202, 397┆
0x0cba0…0cbc0 37 33 35 2c 20 20 20 38 31 39 32 2c 20 36 36 30 34 30 33 2c 20 20 20 38 31 39 32 2c 0a 20 20 20 ┆735, 8192, 660403, 8192, ┆
0x0cbc0…0cbe0 20 20 20 20 20 20 20 20 20 20 20 20 20 36 32 37 36 34 36 2c 20 20 20 38 31 39 32 2c 20 20 20 20 ┆ 627646, 8192, ┆
0x0cbe0…0cc00 20 32 36 2c 20 20 20 20 20 36 35 2c 20 20 20 20 20 36 36 2c 0a 20 20 20 00 00 00 00 00 00 00 00 ┆ 26, 65, 66, ┆
0x0cc00…0cc06 (102,) (0x194,0x199)
0x0cc06…0cc20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 36 37 2c 20 38 34 30 36 34 ┆ 67, 84064┆
0x0cc20…0cc40 30 2c 31 30 33 37 32 35 31 2c 31 34 37 39 30 31 32 2c 20 39 35 34 39 36 34 2c 0a 20 20 20 20 20 ┆0,1037251,1479012, 954964, ┆
0x0cc40…0cc60 20 20 20 20 20 20 20 20 20 20 31 33 39 37 30 39 34 2c 31 35 34 34 35 35 33 2c 20 32 30 31 30 37 ┆ 1397094,1544553, 20107┆
0x0cc60…0cc7e 33 2c 31 34 31 33 34 39 30 2c 20 38 30 37 32 39 33 2c 0a 20 20 20 20 20 20 20 20 20 20 20 ┆3,1413490, 807293, ┆
0x0cc7e…0cc84 (0x194,0x19a)
0x0cc84…0cca0 20 20 20 20 20 37 30 38 39 39 31 2c 20 20 20 38 31 39 32 2c 20 36 36 30 34 32 30 2c ┆ 708991, 8192, 660420,┆
0x0cca0…0ccc0 20 20 20 38 31 39 32 2c 20 36 32 37 32 37 38 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 8192, 627278, ┆
0x0ccc0…0cce0 20 31 31 39 37 35 30 2c 20 20 20 20 20 32 34 2c 20 20 20 20 20 32 31 2c 31 30 33 37 32 35 31 2c ┆ 119750, 24, 21,1037251,┆
0x0cce0…0ccfc 20 20 31 32 36 35 39 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 12659, ┆
0x0ccfc…0cd02 (0x194,0x19b)
0x0cd02…0cd20 20 33 33 29 3b 0a 20 20 20 20 20 20 20 20 20 20 73 79 6d 62 6f 6c 3a 3d 69 6e 73 74 72 75 ┆ 33); symbol:=instru┆
0x0cd20…0cd40 6b 74 69 6f 6e 20 73 68 69 66 74 20 28 2d 31 34 29 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 ┆ktion shift (-14); if ┆
0x0cd40…0cd60 73 79 6d 62 6f 6c 3d 30 20 6f 72 20 73 79 6d 62 6f 6c 3d 76 69 6e 64 75 65 31 20 74 68 65 6e 0a ┆symbol=0 or symbol=vindue1 then ┆
0x0cd60…0cd7a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 ┆ begin ┆
0x0cd7a…0cd80 (0x194,0x19c)
0x0cd80…0cda0 20 20 20 20 20 61 6b 74 69 6f 6e 3a 3d 69 6e 73 74 72 75 6b 74 69 6f 6e 20 73 68 69 66 74 20 28 ┆ aktion:=instruktion shift (┆
0x0cda0…0cdc0 2d 31 32 29 20 65 78 74 72 61 63 74 20 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 ┆-12) extract 2; c┆
0x0cdc0…0cde0 61 73 65 20 61 6b 74 69 6f 6e 2b 31 20 6f 66 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 ┆ase aktion+1 of b┆
0x0cde0…0ce00 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆egin ┆
0x0ce00…0ce06 (103,) (0x194,0x19d)
0x0ce06…0ce20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 72 65 64 75 63 65 72 3b 0a 20 20 ┆ begin comment reducer; ┆
0x0ce20…0ce40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 72 3a 3d 69 6e 73 74 72 ┆ nr:=instr┆
0x0ce40…0ce60 75 6b 74 69 6f 6e 20 65 78 74 72 61 63 74 20 31 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆uktion extract 12; ┆
0x0ce60…0ce7e 20 20 20 20 20 20 20 20 20 20 20 20 73 65 6d 61 6e 74 69 6b 28 6e 72 2c 73 74 61 6b 70 69 ┆ semantik(nr,stakpi┆
0x0ce7e…0ce84 (0x194,0x19e)
0x0ce84…0cea0 6c 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆l); ┆
0x0cea0…0cec0 20 70 72 3a 3d 63 61 73 65 20 6e 72 20 6f 66 20 28 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ pr:=case nr of ( ┆
0x0cec0…0cee0 20 20 33 34 34 30 36 37 2c 20 32 39 39 30 31 30 2c 20 32 39 39 30 31 30 2c 20 32 39 39 30 31 30 ┆ 344067, 299010, 299010, 299010┆
0x0cee0…0cefc 2c 20 33 31 31 32 39 39 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 33 31 ┆, 311299, 31┆
0x0cefc…0cf02 (0x194,0x19f)
0x0cf02…0cf20 31 32 39 38 2c 20 33 31 31 32 39 39 2c 20 33 31 31 33 30 30 2c 20 33 30 33 31 30 37 2c 20 ┆1298, 311299, 311300, 303107, ┆
0x0cf20…0cf40 33 30 37 32 30 33 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 33 30 37 32 30 36 2c 20 ┆307203, 307206, ┆
0x0cf40…0cf60 33 30 37 32 30 33 2c 20 33 30 37 32 30 32 2c 20 33 32 33 35 38 35 2c 20 32 36 32 31 34 35 2c 0a ┆307203, 307202, 323585, 262145, ┆
0x0cf60…0cf7a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 36 32 31 34 35 2c 20 32 36 ┆ 262145, 26┆
0x0cf7a…0cf80 (0x194,0x1a0)
0x0cf80…0cfa0 32 31 34 36 2c 20 32 36 32 31 34 38 2c 20 32 36 32 31 34 35 2c 20 32 35 38 30 34 39 2c 0a 20 20 ┆2146, 262148, 262145, 258049, ┆
0x0cfa0…0cfc0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 35 38 30 35 37 2c 20 32 35 38 30 35 30 2c 20 32 35 ┆ 258057, 258050, 25┆
0x0cfc0…0cfe0 38 30 34 39 2c 20 32 35 38 30 34 39 2c 20 33 38 35 30 32 39 2c 0a 20 20 20 20 20 20 20 20 20 20 ┆8049, 258049, 385029, ┆
0x0cfe0…0d000 20 20 20 20 20 20 33 38 35 30 33 31 2c 20 33 38 35 30 32 37 2c 20 33 38 00 00 00 00 00 00 00 00 ┆ 385031, 385027, 38 ┆
0x0d000…0d006 (104,) (0x194,0x1a1)
0x0d006…0d020 35 30 32 39 2c 20 33 36 38 36 34 32 2c 20 33 36 38 36 34 34 2c 0a 20 20 20 20 ┆5029, 368642, 368644, ┆
0x0d020…0d040 20 20 20 20 20 20 20 20 20 20 20 20 33 36 38 36 34 35 2c 20 33 36 38 36 34 33 2c 20 32 38 36 37 ┆ 368645, 368643, 2867┆
0x0d040…0d060 33 30 2c 20 32 38 36 37 32 32 2c 20 32 33 37 35 36 39 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆30, 286722, 237569, ┆
0x0d060…0d07e 20 20 20 20 33 35 32 32 35 39 2c 20 33 34 38 31 36 32 2c 20 33 34 38 31 36 33 2c 20 33 31 ┆ 352259, 348162, 348163, 31┆
0x0d07e…0d084 (0x194,0x1a2)
0x0d084…0d0a0 35 33 39 34 2c 20 33 31 35 33 39 35 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆5394, 315395, ┆
0x0d0a0…0d0c0 20 20 33 33 31 37 38 32 2c 20 33 33 31 37 37 39 2c 20 33 33 31 37 37 39 2c 20 33 38 30 39 32 39 ┆ 331782, 331779, 331779, 380929┆
0x0d0c0…0d0e0 2c 20 33 38 30 39 33 31 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 33 37 32 37 34 30 ┆, 380931, 372740┆
0x0d0e0…0d0fc 2c 20 33 37 32 37 33 38 2c 20 33 37 32 37 33 37 2c 20 33 31 39 34 39 30 2c 20 33 37 ┆, 372738, 372737, 319490, 37┆
0x0d0fc…0d102 (0x194,0x1a3)
0x0d102…0d120 36 38 33 32 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 33 37 36 38 33 33 2c 20 ┆6832, 376833, ┆
0x0d120…0d140 33 37 36 38 33 33 2c 20 33 37 36 38 33 33 2c 20 33 37 36 38 33 34 2c 20 33 37 36 38 33 33 2c 0a ┆376833, 376833, 376834, 376833, ┆
0x0d140…0d160 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 33 37 36 38 33 36 2c 20 33 37 36 38 33 34 2c 20 ┆ 376836, 376834, ┆
0x0d160…0d17a 33 37 36 38 33 36 2c 20 33 37 36 38 33 39 2c 20 33 37 36 38 33 39 2c 0a 20 20 ┆376836, 376839, 376839, ┆
0x0d17a…0d180 (0x194,0x1a4)
0x0d180…0d1a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 33 37 36 38 33 35 2c 20 33 37 36 38 33 39 2c 20 33 37 ┆ 376835, 376839, 37┆
0x0d1a0…0d1c0 36 38 33 33 2c 20 33 37 36 38 33 35 2c 20 33 37 36 38 34 30 2c 0a 20 20 20 20 20 20 20 20 20 20 ┆6833, 376835, 376840, ┆
0x0d1c0…0d1e0 20 20 20 20 20 20 33 37 36 38 34 30 2c 20 33 37 36 38 34 30 2c 20 33 37 36 38 33 34 2c 20 33 37 ┆ 376840, 376840, 376834, 37┆
0x0d1e0…0d200 36 38 33 38 2c 20 33 37 36 38 33 36 2c 0a 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆6838, 376836, ┆
0x0d200…0d206 (105,) (0x194,0x1a5)
0x0d206…0d220 20 20 20 20 20 20 33 37 36 38 33 33 2c 20 32 38 32 36 32 39 2c 20 33 36 30 34 ┆ 376833, 282629, 3604┆
0x0d220…0d240 34 39 2c 20 33 36 30 34 35 31 2c 20 33 36 30 34 35 34 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆49, 360451, 360454, ┆
0x0d240…0d260 20 20 20 20 33 36 30 34 35 34 2c 20 33 36 30 34 35 30 2c 20 33 36 30 34 35 30 2c 20 33 36 30 34 ┆ 360454, 360450, 360450, 3604┆
0x0d260…0d27e 35 32 2c 20 33 36 30 34 35 32 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 33 36 ┆52, 360452, 36┆
0x0d27e…0d284 (0x194,0x1a6)
0x0d284…0d2a0 30 34 35 32 2c 20 33 36 34 35 34 36 2c 20 33 36 34 35 34 36 2c 20 33 36 34 35 34 36 ┆0452, 364546, 364546, 364546┆
0x0d2a0…0d2c0 2c 20 33 32 37 36 38 31 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 33 32 37 36 38 33 ┆, 327681, 327683┆
0x0d2c0…0d2e0 2c 20 33 32 37 36 38 33 2c 20 33 32 37 36 38 35 2c 20 33 32 37 36 38 35 2c 20 33 32 37 36 38 34 ┆, 327683, 327685, 327685, 327684┆
0x0d2e0…0d2fc 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 33 32 37 36 38 34 2c 20 33 32 ┆, 327684, 32┆
0x0d2fc…0d302 (0x194,0x1a7)
0x0d302…0d320 37 36 38 31 2c 20 32 39 30 38 31 38 2c 20 32 39 30 38 31 37 2c 20 32 39 30 38 31 38 2c 0a ┆7681, 290818, 290817, 290818, ┆
0x0d320…0d340 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 39 30 38 31 37 2c 20 32 39 30 38 31 38 2c 20 ┆ 290817, 290818, ┆
0x0d340…0d360 32 39 30 38 32 30 2c 20 32 39 34 39 31 34 2c 20 32 39 34 39 31 35 2c 0a 20 20 20 20 20 20 20 20 ┆290820, 294914, 294915, ┆
0x0d360…0d37a 20 20 20 20 20 20 20 20 32 39 34 39 31 35 2c 20 32 34 39 38 36 30 2c 20 32 34 ┆ 294915, 249860, 24┆
0x0d37a…0d380 (0x194,0x1a8)
0x0d380…0d3a0 35 37 36 32 2c 20 32 34 35 37 36 33 2c 20 33 33 35 38 37 34 2c 0a 20 20 20 20 20 20 20 20 20 20 ┆5762, 245763, 335874, ┆
0x0d3a0…0d3c0 20 20 20 20 20 20 33 33 39 39 37 33 2c 20 33 33 39 39 37 31 2c 20 33 35 36 33 35 35 2c 20 33 35 ┆ 339973, 339971, 356355, 35┆
0x0d3c0…0d3e0 36 33 35 35 2c 20 33 35 36 33 35 35 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 33 38 ┆6355, 356355, 38┆
0x0d3e0…0d400 39 31 32 31 2c 20 32 36 36 32 34 32 2c 20 32 37 38 35 33 30 2c 20 32 37 00 00 00 00 00 00 00 00 ┆9121, 266242, 278530, 27 ┆
0x0d400…0d406 (106,) (0x194,0x1a9)
0x0d406…0d420 38 35 33 32 2c 20 32 37 38 35 33 30 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆8532, 278530, ┆
0x0d420…0d440 20 20 20 20 32 37 38 35 33 30 2c 20 32 37 34 34 33 37 2c 20 32 37 34 34 33 35 2c 20 32 34 31 36 ┆ 278530, 274437, 274435, 2416┆
0x0d440…0d460 36 37 2c 20 32 34 31 36 36 37 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 34 31 36 ┆67, 241667, 2416┆
0x0d460…0d47e 36 37 2c 20 32 34 31 36 36 36 2c 20 32 34 31 36 36 38 2c 20 32 34 31 36 36 37 2c 20 32 34 ┆67, 241666, 241668, 241667, 24┆
0x0d47e…0d484 (0x194,0x1aa)
0x0d484…0d4a0 31 36 36 37 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 34 31 36 37 30 ┆1667, 241670┆
0x0d4a0…0d4c0 2c 20 32 37 30 33 34 30 2c 20 32 37 30 33 34 32 2c 20 32 35 33 39 35 35 2c 20 32 35 33 39 35 34 ┆, 270340, 270342, 253955, 253954┆
0x0d4c0…0d4e0 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 35 33 39 35 36 2c 20 33 30 33 31 30 36 ┆, 253956, 303106┆
0x0d4e0…0d4fc 29 3b 0a 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 ┆); ┆
0x0d4fc…0d502 (0x194,0x1ab)
0x0d502…0d520 73 74 61 6b 70 69 6c 3a 3d 73 74 61 6b 70 69 6c 2d 70 72 20 65 78 74 72 61 63 74 20 31 32 ┆stakpil:=stakpil-pr extract 12┆
0x0d520…0d540 3b 0a 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 76 69 6e 64 75 ┆; vindu┆
0x0d540…0d560 65 31 3a 3d 70 72 20 73 68 69 66 74 20 28 2d 31 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆e1:=pr shift (-12); ┆
0x0d560…0d57a 20 20 20 20 20 20 20 20 20 20 20 20 20 69 6e 64 65 6b 73 3a 3d 73 79 6e 74 61 ┆ indeks:=synta┆
0x0d57a…0d580 (0x194,0x1ac)
0x0d580…0d5a0 6b 73 73 74 61 6b 28 73 74 61 6b 70 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ksstak(stakpil) ┆
0x0d5a0…0d5c0 20 20 20 20 20 20 20 20 20 3b 72 65 63 6f 76 65 72 69 6e 67 3a 3d 66 61 6c 73 65 3b 0a 20 20 20 ┆ ;recovering:=false; ┆
0x0d5c0…0d5e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 6c 69 6e 64 65 6b 73 3a 3d ┆ glindeks:=┆
0x0d5e0…0d600 69 6e 64 65 6b 73 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆indeks; ┆
0x0d600…0d606 (107,) (0x194,0x1ad)
0x0d606…0d620 20 20 20 20 65 6e 64 20 72 65 64 75 63 65 72 3b 0a 20 20 20 20 20 20 20 20 20 ┆ end reducer; ┆
0x0d620…0d640 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 73 74 61 6b 3b 0a 20 ┆ begin comment stak; ┆
0x0d640…0d660 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 74 61 6b 70 69 6c 3a ┆ stakpil:┆
0x0d660…0d67e 3d 73 74 61 6b 70 69 6c 2b 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆=stakpil+1; ┆
0x0d67e…0d684 (0x194,0x1ae)
0x0d684…0d6a0 20 20 20 20 20 20 20 73 79 6e 74 61 6b 73 73 74 61 6b 28 73 74 61 6b 70 69 6c 29 3a ┆ syntaksstak(stakpil):┆
0x0d6a0…0d6c0 3d 69 6e 64 65 6b 73 3a 3d 69 6e 73 74 72 75 6b 74 69 6f 6e 20 65 78 74 72 61 63 74 20 31 32 3b ┆=indeks:=instruktion extract 12;┆
0x0d6c0…0d6e0 0a 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 66 20 76 69 6e ┆ if vin┆
0x0d6e0…0d6fc 64 75 65 31 20 3c 20 20 35 38 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆due1 < 58 then ┆
0x0d6fc…0d702 (0x194,0x1af)
0x0d702…0d720 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ begin ┆
0x0d720…0d740 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 74 61 6b 73 65 6d 61 6e 74 69 6b 28 ┆ staksemantik(┆
0x0d740…0d760 76 69 6e 64 75 65 31 2c 73 74 61 6b 70 69 6c 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆vindue1,stakpil); ┆
0x0d760…0d77a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 76 69 6e 64 75 65 31 3a 3d 76 ┆ vindue1:=v┆
0x0d77a…0d780 (0x194,0x1b0)
0x0d780…0d7a0 69 6e 64 75 65 32 3a 3d 6e 7b 73 74 65 73 79 6d 62 6f 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆indue2:=næstesymbol ┆
0x0d7a0…0d7c0 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 20 65 6c 73 65 20 76 69 6e 64 75 65 31 3a 3d 76 ┆ end else vindue1:=v┆
0x0d7c0…0d7e0 69 6e 64 75 65 32 0a 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 ┆indue2 ┆
0x0d7e0…0d800 3b 72 65 63 6f 76 65 72 69 6e 67 3a 3d 66 61 6c 73 65 3b 0a 20 20 20 20 00 00 00 00 00 00 00 00 ┆;recovering:=false; ┆
0x0d800…0d806 (108,) (0x194,0x1b1)
0x0d806…0d820 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 6c 69 6e 64 ┆ glind┆
0x0d820…0d840 65 6b 73 3a 3d 69 6e 64 65 6b 73 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆eks:=indeks; ┆
0x0d840…0d860 20 65 6e 64 20 73 74 61 6b 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 ┆ end stak; b┆
0x0d860…0d87e 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 66 65 6a 6c 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆egin comment fejl; ┆
0x0d87e…0d884 (0x194,0x1b2)
0x0d884…0d8a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 2d 2c 20 72 65 63 6f 76 65 72 69 ┆ if -, recoveri┆
0x0d8a0…0d8c0 6e 67 20 74 68 65 6e 20 66 65 6a 6c 28 76 69 6e 64 75 65 32 29 3b 0a 20 20 20 20 20 20 20 20 20 ┆ng then fejl(vindue2); ┆
0x0d8c0…0d8e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65 63 6f 76 65 72 69 6e 67 3a 3d 74 72 75 65 ┆ recovering:=true┆
0x0d8e0…0d8fc 3b 0a 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 76 ┆; v┆
0x0d8fc…0d902 (0x194,0x1b3)
0x0d902…0d920 69 6e 64 75 65 31 3a 3d 76 69 6e 64 75 65 32 3a 3d 6e 7b 73 74 65 73 79 6d 62 6f 6c 3b 0a ┆indue1:=vindue2:=næstesymbol; ┆
0x0d920…0d940 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 6e 64 65 6b 73 3a ┆ indeks:┆
0x0d940…0d960 3d 67 6c 69 6e 64 65 6b 73 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 ┆=glindeks; e┆
0x0d960…0d97a 6e 64 20 66 65 6a 6c 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆nd fejl; ┆
0x0d97a…0d980 (0x194,0x1b4)
0x0d980…0d9a0 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 68 6f 70 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆ begin comment hop; ┆
0x0d9a0…0d9c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 6e 64 65 6b 73 3a 3d 69 6e 73 74 72 75 6b 74 69 ┆ indeks:=instrukti┆
0x0d9c0…0d9e0 6f 6e 20 65 78 74 72 61 63 74 20 31 32 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆on extract 12 ┆
0x0d9e0…0da00 20 20 65 6e 64 20 68 6f 70 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ end hop ┆
0x0da00…0da06 (109,) (0x194,0x1b5)
0x0da06…0da20 20 65 6e 64 20 63 61 73 65 2d 73 7b 74 6e 69 6e 67 0a 20 20 20 20 20 20 20 20 ┆ end case-sætning ┆
0x0da20…0da40 20 20 65 6e 64 20 69 66 20 73 79 6d 62 6f 6c 3d 30 20 6f 72 20 73 79 6d 62 6f 6c 3d 76 69 6e 64 ┆ end if symbol=0 or symbol=vind┆
0x0da40…0da60 75 65 31 20 65 6c 73 65 20 69 6e 64 65 6b 73 3a 3d 69 6e 64 65 6b 73 2b 31 3b 0a 20 20 20 20 20 ┆ue1 else indeks:=indeks+1; ┆
0x0da60…0da7e 20 20 20 20 20 67 6f 74 6f 20 6c 7c 6b 6b 65 0a 20 20 20 20 20 65 6e 64 20 73 79 6e 74 61 ┆ goto løkke end synta┆
0x0da7e…0da84 (0x194,0x1b6)
0x0da84…0daa0 6b 73 61 6e 61 6c 79 73 61 74 6f 72 3b 0a 0a 0a 0a 20 20 20 20 20 20 20 20 20 20 63 ┆ksanalysator; c┆
0x0daa0…0dac0 6f 6d 6d 65 6e 74 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆omment *************************┆
0x0dac0…0dae0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 20 ┆****************************** ┆
0x0dae0…0dafc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 74 61 6b 6e 69 6e ┆ staknin┆
0x0dafc…0db02 (0x194,0x1b7)
0x0db02…0db20 67 20 61 66 20 74 65 72 6d 69 6e 61 6c 65 20 73 79 6d 62 6f 6c 65 72 73 20 61 74 74 72 69 ┆g af terminale symbolers attri┆
0x0db20…0db40 62 75 74 74 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 2a 2a 2a 2a 2a ┆butter *******┆
0x0db40…0db60 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x0db60…0db7a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 3b 0a 0a 20 20 20 20 20 20 20 ┆****************; ┆
0x0db7a…0db80 (0x194,0x1b8)
0x0db80…0dba0 20 70 72 6f 63 65 64 75 72 65 20 73 74 61 6b 73 65 6d 61 6e 74 69 6b 28 73 79 6d 62 6f 6c 2c 73 ┆ procedure staksemantik(symbol,s┆
0x0dba0…0dbc0 74 61 6b 70 69 6c 29 3b 0a 20 20 20 20 20 20 20 20 76 61 6c 75 65 20 73 79 6d 62 6f 6c 2c 73 74 ┆takpil); value symbol,st┆
0x0dbc0…0dbe0 61 6b 70 69 6c 3b 0a 20 20 20 20 20 20 20 20 69 6e 74 65 67 65 72 20 73 79 6d 62 6f 6c 2c 73 74 ┆akpil; integer symbol,st┆
0x0dbe0…0dc00 61 6b 70 69 6c 3b 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 00 00 00 00 00 00 00 00 ┆akpil; begin ┆
0x0dc00…0dc06 (110,) (0x194,0x1b9)
0x0dc06…0dc20 20 20 20 20 20 20 20 61 74 74 31 28 73 74 61 6b 70 69 6c 29 3a 3d 61 72 74 3b ┆ att1(stakpil):=art;┆
0x0dc20…0dc40 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 73 79 6d 62 6f 6c 3d 33 38 20 61 6e 64 20 61 72 74 3d ┆ if symbol=38 and art=┆
0x0dc40…0dc60 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 2a ┆0 then begin comment *┆
0x0dc60…0dc7e 2a 2a 20 74 65 72 6d 6e 61 6c 74 20 73 79 6d 62 6f 6c 20 65 72 20 6e 61 76 6e 20 2a 2a 2a ┆** termnalt symbol er navn ***┆
0x0dc7e…0dc84 (0x194,0x1ba)
0x0dc84…0dca0 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 61 74 74 31 28 73 74 61 6b 70 69 6c 29 3a ┆; att1(stakpil):┆
0x0dca0…0dcc0 3d 64 65 6c 6e 61 76 6e 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 61 74 74 32 28 73 74 61 6b ┆=delnavn1; att2(stak┆
0x0dcc0…0dce0 70 69 6c 29 3a 3d 64 65 6c 6e 61 76 6e 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 61 74 74 33 ┆pil):=delnavn2; att3┆
0x0dce0…0dcfc 28 73 74 61 6b 70 69 6c 29 3a 3d 64 65 6c 6e 61 76 6e 33 3b 0a 20 20 20 20 20 20 20 ┆(stakpil):=delnavn3; ┆
0x0dcfc…0dd02 (0x194,0x1bb)
0x0dd02…0dd20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 73 79 6d 62 6f 6c 3d 34 31 ┆ end; if symbol=41┆
0x0dd20…0dd40 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 2a 2a ┆ then begin comment **┆
0x0dd40…0dd60 2a 20 74 65 72 6d 69 6e 61 6c 74 20 73 79 6d 62 6f 6c 20 65 72 20 70 6b 6f 6e 73 74 20 2a 2a 2a ┆* terminalt symbol er pkonst ***┆
0x0dd60…0dd7a 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 61 74 74 32 28 73 74 61 6b 70 69 6c ┆; att2(stakpil┆
0x0dd7a…0dd80 (0x194,0x1bc)
0x0dd80…0dda0 29 3a 3d 31 20 73 68 69 66 74 20 33 20 61 64 64 20 61 72 74 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆):=1 shift 3 add art; ┆
0x0dda0…0ddc0 20 20 61 74 74 31 28 73 74 61 6b 70 69 6c 29 3a 3d 68 6b 6f 6e 73 74 20 73 68 69 66 74 20 28 2d ┆ att1(stakpil):=hkonst shift (-┆
0x0ddc0…0dde0 32 34 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 61 74 74 33 28 73 74 61 6b 70 69 6c 29 3a 3d ┆24); att3(stakpil):=┆
0x0dde0…0de00 68 6b 6f 6e 73 74 20 65 78 74 72 61 63 74 20 32 34 3b 0a 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆hkonst extract 24; ┆
0x0de00…0de06 (111,) (0x194,0x1bd)
0x0de06…0de20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 73 79 6d ┆ end; if sym┆
0x0de20…0de40 62 6f 6c 3d 35 37 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d ┆bol=57 then begin comm┆
0x0de40…0de60 65 6e 74 20 2a 2a 2a 20 74 65 72 6d 69 6e 61 6c 74 20 73 79 6d 62 6f 6c 20 65 72 20 72 65 65 6c ┆ent *** terminalt symbol er reel┆
0x0de60…0de7e 74 61 6c 6b 6f 6e 73 74 61 6e 74 20 2a 2a 2a 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 61 ┆talkonstant ***; a┆
0x0de7e…0de84 (0x194,0x1be)
0x0de84…0dea0 74 74 32 28 73 74 61 6b 70 69 6c 29 3a 3d 31 32 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆tt2(stakpil):=12; ┆
0x0dea0…0dec0 20 20 61 74 74 31 28 73 74 61 6b 70 69 6c 29 3a 3d 72 6b 6f 6e 73 74 20 73 68 69 66 74 20 28 2d ┆ att1(stakpil):=rkonst shift (-┆
0x0dec0…0dee0 32 34 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 61 74 74 33 28 73 74 61 6b 70 69 6c 29 3a 3d ┆24); att3(stakpil):=┆
0x0dee0…0defc 72 6b 6f 6e 73 74 20 65 78 74 72 61 63 74 20 32 34 3b 0a 20 20 20 20 20 20 20 20 20 ┆rkonst extract 24; ┆
0x0defc…0df02 (0x194,0x1bf)
0x0df02…0df20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 20 73 74 61 6b 73 65 6d 61 6e 74 69 6b ┆ end; end staksemantik┆
0x0df20…0df40 3b 0a 0a 0a 20 20 20 20 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆; comment **********┆
0x0df40…0df60 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x0df60…0df7a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 20 20 20 20 20 20 20 20 20 20 20 ┆************** ┆
0x0df7a…0df80 (0x194,0x1c0)
0x0df80…0dfa0 20 20 20 20 20 20 20 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ * ┆
0x0dfa0…0dfc0 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 2a 0a ┆ * ┆
0x0dfc0…0dfe0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ * ┆
0x0dfe0…0e000 20 20 20 20 20 20 20 20 20 20 73 65 6d 61 6e 74 69 6b 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ semantik ┆
0x0e000…0e006 (112,) (0x194,0x1c1)
0x0e006…0e020 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 0a 20 20 20 20 20 20 20 ┆ * ┆
0x0e020…0e040 20 20 20 20 20 20 20 20 20 20 20 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ * ┆
0x0e040…0e060 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 20 20 ┆ ┆
0x0e060…0e07e 20 20 2a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 2a 2a 2a 2a 2a 2a ┆ * ********┆
0x0e07e…0e084 (0x194,0x1c2)
0x0e084…0e0a0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆****************************┆
0x0e0a0…0e0c0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 3b 0a 0a 20 20 20 20 20 20 20 20 70 ┆********************; p┆
0x0e0c0…0e0e0 72 6f 63 65 64 75 72 65 20 73 65 6d 61 6e 74 69 6b 28 70 72 6f 64 6e 72 2c 73 74 61 6b 70 69 6c ┆rocedure semantik(prodnr,stakpil┆
0x0e0e0…0e0fc 29 3b 0a 20 20 20 20 20 20 20 20 76 61 6c 75 65 20 70 72 6f 64 6e 72 2c 73 74 61 6b ┆); value prodnr,stak┆
0x0e0fc…0e102 (0x194,0x1c3)
0x0e102…0e120 70 69 6c 3b 0a 20 20 20 20 20 20 20 20 69 6e 74 65 67 65 72 20 70 72 6f 64 6e 72 2c 73 74 ┆pil; integer prodnr,st┆
0x0e120…0e140 61 6b 70 69 6c 3b 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 0a 20 0a 20 20 20 20 20 20 20 ┆akpil; begin ┆
0x0e140…0e160 20 20 20 63 6f 6d 6d 65 6e 74 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ comment *********************┆
0x0e160…0e17a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆**************************┆
0x0e17a…0e180 (0x194,0x1c4)
0x0e180…0e1a0 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆********* ┆
0x0e1a0…0e1c0 20 20 20 20 73 74 61 6b 6e 69 6e 67 20 61 66 20 73 65 6d 61 6e 74 69 73 6b 65 20 66 65 6a 6c 0a ┆ stakning af semantiske fejl ┆
0x0e1c0…0e1e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ **************┆
0x0e1e0…0e200 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 00 00 00 00 00 00 00 ┆************************ ┆
0x0e200…0e206 (113,) (0x194,0x1c5)
0x0e206…0e220 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 3b 0a 20 0a 20 20 20 20 ┆******************; ┆
0x0e220…0e240 20 20 20 20 20 20 70 72 6f 63 65 64 75 72 65 20 66 65 6a 6c 28 66 65 6a 6c 6e 72 29 3b 0a 20 20 ┆ procedure fejl(fejlnr); ┆
0x0e240…0e260 20 20 20 20 20 20 20 20 76 61 6c 75 65 20 66 65 6a 6c 6e 72 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆ value fejlnr; ┆
0x0e260…0e27e 69 6e 74 65 67 65 72 20 66 65 6a 6c 6e 72 3b 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 ┆integer fejlnr; begi┆
0x0e27e…0e284 (0x194,0x1c6)
0x0e284…0e2a0 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 6f 6b 6c 69 6e 69 65 3a 3d 66 61 6c 73 65 ┆n oklinie:=false┆
0x0e2a0…0e2c0 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 66 65 6a 6c 70 69 6c 3a 3d 66 65 6a 6c 70 69 6c 2b 31 ┆; fejlpil:=fejlpil+1┆
0x0e2c0…0e2e0 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 66 65 6a 6c 73 74 61 6b 28 31 2c 66 65 6a 6c 70 69 6c ┆; fejlstak(1,fejlpil┆
0x0e2e0…0e2fc 29 3a 3d 66 65 6a 6c 6e 72 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 66 65 6a 6c 73 ┆):=fejlnr; fejls┆
0x0e2fc…0e302 (0x194,0x1c7)
0x0e302…0e320 74 61 6b 28 32 2c 66 65 6a 6c 70 69 6c 29 3a 3d 6c 69 6e 69 65 6e 72 3b 0a 20 20 20 20 20 ┆tak(2,fejlpil):=linienr; ┆
0x0e320…0e340 20 20 20 20 20 20 20 69 66 20 66 65 6a 6c 70 69 6c 3d 34 39 20 74 68 65 6e 20 66 65 6a 6c 28 32 ┆ if fejlpil=49 then fejl(2┆
0x0e340…0e360 30 34 30 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 66 65 6a 6c 6e 72 3d 32 30 34 30 ┆040); if fejlnr=2040┆
0x0e360…0e37a 20 74 68 65 6e 20 67 6f 74 6f 20 70 61 73 73 73 74 6f 70 3b 0a 20 20 20 20 20 ┆ then goto passstop; ┆
0x0e37a…0e380 (0x194,0x1c8)
0x0e380…0e3a0 20 20 20 20 20 20 20 67 6f 74 6f 20 73 74 6f 70 73 65 6d 61 6e 74 69 6b 3b 0a 20 20 20 20 20 20 ┆ goto stopsemantik; ┆
0x0e3a0…0e3c0 20 20 20 20 65 6e 64 3b 0a 20 0a 20 0a 20 0a 20 20 20 20 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 ┆ end; comment┆
0x0e3c0…0e3e0 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ *******************************┆
0x0e3e0…0e400 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 00 00 00 00 00 00 00 ┆************************ ┆
0x0e400…0e406 (114,) (0x194,0x1c9)
0x0e406…0e420 2a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 75 64 ┆* ud┆
0x0e420…0e440 6c 7b 73 6e 69 6e 67 20 61 66 20 70 72 6f 67 72 61 6d 73 65 6b 74 69 6f 6e 73 20 67 65 6e 65 72 ┆læsning af programsektions gener┆
0x0e440…0e460 65 72 65 64 65 20 6b 6f 64 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 2a ┆erede kode ***┆
0x0e460…0e47e 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆******************************┆
0x0e47e…0e484 (0x194,0x1ca)
0x0e484…0e4a0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 3b 0a 20 0a 20 ┆***********************; ┆
0x0e4a0…0e4c0 0a 20 20 20 20 20 20 20 20 20 70 72 6f 63 65 64 75 72 65 20 70 72 6f 63 75 64 28 74 7c 6d 29 3b ┆ procedure procud(tøm);┆
0x0e4c0…0e4e0 0a 20 20 20 20 20 20 20 20 20 76 61 6c 75 65 20 74 7c 6d 3b 0a 20 20 20 20 20 20 20 20 20 62 6f ┆ value tøm; bo┆
0x0e4e0…0e4fc 6f 6c 65 61 6e 20 74 7c 6d 3b 0a 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 ┆olean tøm; begin ┆
0x0e4fc…0e502 (0x194,0x1cb)
0x0e502…0e520 20 20 20 20 20 20 20 20 20 69 6e 74 65 67 65 72 20 69 2c 6a 2c 6d 2c 6e 3b 0a 20 20 20 20 ┆ integer i,j,m,n; ┆
0x0e520…0e540 20 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 2a 2a 2a 20 6c 69 73 74 6e 69 6e 67 20 61 66 20 67 ┆ comment *** listning af g┆
0x0e540…0e560 65 6e 65 72 65 72 65 74 20 6b 6f 64 65 20 2a 2a 2a 3b 0a 20 20 20 20 20 20 20 20 20 20 20 69 66 ┆enereret kode ***; if┆
0x0e560…0e57a 20 63 6f 64 65 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 ┆ code then begi┆
0x0e57a…0e580 (0x194,0x1cc)
0x0e580…0e5a0 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 64 65 3a 3d 66 61 6c 73 65 3b 0a 20 20 20 20 ┆n code:=false; ┆
0x0e5a0…0e5c0 20 20 20 20 20 20 20 20 20 6b 6f 64 65 75 64 28 32 2c 6b 6f 64 65 75 64 70 69 6c 29 3a 3d 7a 62 ┆ kodeud(2,kodeudpil):=zb┆
0x0e5c0…0e5e0 61 73 65 2b 7a 70 69 6c 3b 0a 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 ┆ase+zpil; end; ┆
0x0e5e0…0e600 20 20 20 20 20 69 66 20 6b 6f 64 65 75 64 70 69 6c 3e 30 20 74 68 65 6e 00 00 00 00 00 00 00 00 ┆ if kodeudpil>0 then ┆
0x0e600…0e606 (115,) (0x194,0x1cd)
0x0e606…0e620 0a 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 ┆ begin ┆
0x0e620…0e640 20 20 20 20 20 66 6f 72 20 69 3a 3d 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 6b 6f 64 65 75 ┆ for i:=1 step 1 until kodeu┆
0x0e640…0e660 64 70 69 6c 20 64 6f 20 6d 6e 65 6d 6f 75 64 28 6b 6f 64 65 75 64 28 31 2c 69 29 2c 0a 20 20 20 ┆dpil do mnemoud(kodeud(1,i), ┆
0x0e660…0e67e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6b 6f 64 65 75 64 28 32 2c 69 ┆ kodeud(2,i┆
0x0e67e…0e684 (0x194,0x1ce)
0x0e684…0e6a0 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 6b 6f 64 65 75 64 70 69 6c 3a 3d ┆)); kodeudpil:=┆
0x0e6a0…0e6c0 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 6a 3a ┆0; end; j:┆
0x0e6c0…0e6e0 3d 7a 62 61 73 65 2b 7a 70 69 6c 3b 0a 20 20 20 20 20 20 20 20 20 20 20 6e 3a 3d 6a 2f 2f 32 35 ┆=zbase+zpil; n:=j//25┆
0x0e6e0…0e6fc 36 3b 0a 20 20 20 20 20 20 20 20 20 20 20 69 66 20 6e 3e 30 20 74 68 65 6e 0a 20 20 ┆6; if n>0 then ┆
0x0e6fc…0e702 (0x194,0x1cf)
0x0e702…0e720 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 2a 2a 2a 20 75 64 6c ┆ begin comment *** udl┆
0x0e720…0e740 7b 73 6e 69 6e 67 20 61 66 20 68 65 6c 65 20 73 65 67 6d 65 6e 74 65 72 20 2a 2a 2a 3b 0a 20 20 ┆æsning af hele segmenter ***; ┆
0x0e740…0e760 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 6d 3a 3d 30 20 73 74 65 70 20 31 20 75 6e 74 69 6c ┆ for m:=0 step 1 until┆
0x0e760…0e77a 20 6e 2d 31 20 64 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e ┆ n-1 do begin┆
0x0e77a…0e780 (0x194,0x1d0)
0x0e780…0e7a0 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 75 74 72 65 63 28 73 61 76 65 2c 31 32 38 29 ┆ outrec(save,128)┆
0x0e7a0…0e7c0 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 69 3a 3d 31 20 73 74 65 70 20 31 ┆; for i:=1 step 1┆
0x0e7c0…0e7e0 20 75 6e 74 69 6c 20 32 35 36 20 64 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 61 76 ┆ until 256 do sav┆
0x0e7e0…0e800 65 2e 66 69 28 69 29 3a 3d 7a 28 69 2b 6d 2a 32 35 36 29 3b 0a 20 20 20 00 00 00 00 00 00 00 00 ┆e.fi(i):=z(i+m*256); ┆
0x0e800…0e806 (116,) (0x194,0x1d1)
0x0e806…0e820 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ end; ┆
0x0e820…0e840 20 20 66 69 6c 6e 72 3a 3d 66 69 6c 6e 72 2b 6e 3b 0a 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 ┆ filnr:=filnr+n; end┆
0x0e840…0e860 3b 0a 20 20 20 20 20 20 20 20 20 20 20 69 66 20 6a 20 6d 6f 64 20 32 35 36 20 3c 3e 20 30 20 74 ┆; if j mod 256 <> 0 t┆
0x0e860…0e87e 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 ┆hen begin ┆
0x0e87e…0e884 (0x194,0x1d2)
0x0e884…0e8a0 20 20 20 20 69 66 20 74 7c 6d 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ if tøm then ┆
0x0e8a0…0e8c0 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 2a 2a 2a 20 75 64 6c 7b 73 6e 69 6e 67 20 61 66 20 ┆ begin comment *** udlæsning af ┆
0x0e8c0…0e8e0 64 65 6c 73 65 67 6d 65 6e 74 20 2a 2a 2a 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f ┆delsegment ***; o┆
0x0e8e0…0e8fc 75 74 72 65 63 28 73 61 76 65 2c 31 32 38 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆utrec(save,128); ┆
0x0e8fc…0e902 (0x194,0x1d3)
0x0e902…0e920 20 20 20 20 66 6f 72 20 69 3a 3d 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 6a 20 6d 6f ┆ for i:=1 step 1 until j mo┆
0x0e920…0e940 64 20 32 35 36 20 64 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 61 76 65 2e 66 69 28 ┆d 256 do save.fi(┆
0x0e940…0e960 69 29 3a 3d 7a 28 6e 2a 32 35 36 2b 69 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 ┆i):=z(n*256+i); f┆
0x0e960…0e97a 6f 72 20 69 3a 3d 6a 20 6d 6f 64 20 32 35 36 2b 31 20 73 74 65 70 20 31 20 75 ┆or i:=j mod 256+1 step 1 u┆
0x0e97a…0e980 (0x194,0x1d4)
0x0e980…0e9a0 6e 74 69 6c 20 32 35 36 20 64 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 61 76 65 2e ┆ntil 256 do save.┆
0x0e9a0…0e9c0 66 69 28 69 29 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 28 69 2d 7a ┆fi(i):=0; if (i-z┆
0x0e9c0…0e9e0 62 61 73 65 2b 31 29 2a 32 3e 6d 61 78 61 64 72 65 73 73 65 20 74 68 65 6e 20 6d 61 78 61 64 72 ┆base+1)*2>maxadresse then maxadr┆
0x0e9e0…0ea00 65 73 73 65 3a 3d 32 2a 28 69 2d 7a 62 61 73 65 2b 31 29 3b 0a 20 20 20 00 00 00 00 00 00 00 00 ┆esse:=2*(i-zbase+1); ┆
0x0ea00…0ea06 (117,) (0x194,0x1d5)
0x0ea06…0ea20 20 20 20 20 20 20 20 20 20 20 20 20 66 69 6c 6e 72 3a 3d 66 69 6c 6e 72 2b 31 ┆ filnr:=filnr+1┆
0x0ea20…0ea40 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7a 62 61 73 65 3a 3d 2d 7a 70 69 6c 3b 0a 20 ┆; zbase:=-zpil; ┆
0x0ea40…0ea60 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ end else ┆
0x0ea60…0ea7e 20 20 69 66 20 6e 3e 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 ┆ if n>0 then beg┆
0x0ea7e…0ea84 (0x194,0x1d6)
0x0ea84…0eaa0 69 6e 20 63 6f 6d 6d 65 6e 74 20 2a 2a 2a 20 66 6c 79 74 6e 69 6e 67 20 61 66 20 64 ┆in comment *** flytning af d┆
0x0eaa0…0eac0 65 6c 73 65 67 6d 65 6e 74 20 74 69 6c 20 61 74 61 72 74 20 61 66 20 6b 6f 64 65 62 75 66 66 65 ┆elsegment til atart af kodebuffe┆
0x0eac0…0eae0 72 20 2a 2a 2a 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 69 3a 3d 31 20 73 ┆r ***; for i:=1 s┆
0x0eae0…0eafc 74 65 70 20 31 20 75 6e 74 69 6c 20 6a 20 6d 6f 64 20 32 35 36 20 64 6f 20 7a 28 69 ┆tep 1 until j mod 256 do z(i┆
0x0eafc…0eb02 (0x194,0x1d7)
0x0eb02…0eb20 29 3a 3d 7a 28 69 2b 6e 2a 32 35 36 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆):=z(i+n*256); ┆
0x0eb20…0eb40 66 6f 72 20 69 3a 3d 6a 20 6d 6f 64 20 32 35 36 20 2b 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 ┆for i:=j mod 256 + 1 step 1 unti┆
0x0eb40…0eb60 6c 20 31 33 30 30 20 64 6f 20 7a 28 69 29 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆l 1300 do z(i):=0; ┆
0x0eb60…0eb7a 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 ┆end; end; ┆
0x0eb7a…0eb80 (0x194,0x1d8)
0x0eb80…0eba0 20 20 20 20 20 20 7a 62 61 73 65 3a 3d 7a 62 61 73 65 2d 6e 2a 32 35 36 3b 0a 20 20 20 20 20 20 ┆ zbase:=zbase-n*256; ┆
0x0eba0…0ebc0 20 20 20 20 62 6c 6f 6b 73 74 61 72 74 3a 3d 7a 70 69 6c 3b 0a 20 20 20 20 20 20 20 20 20 65 6e ┆ blokstart:=zpil; en┆
0x0ebc0…0ebe0 64 20 70 72 6f 63 75 64 3b 0a 20 0a 20 0a 20 20 20 20 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 ┆d procud; comment ┆
0x0ebe0…0ec00 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 00 00 00 00 00 00 00 ┆************************ ┆
0x0ec00…0ec06 (118,) (0x194,0x1d9)
0x0ec06…0ec20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆**************************┆
0x0ec20…0ec40 2a 2a 2a 2a 2a 2a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 6e 64 73 ┆****** inds┆
0x0ec40…0ec60 7b 74 74 65 6c 73 65 20 61 66 20 6b 6f 6e 73 74 61 6e 74 74 61 62 65 6c 20 65 66 74 65 72 20 73 ┆ættelse af konstanttabel efter s┆
0x0ec60…0ec7e 65 6b 74 69 6f 6e 65 6e 73 20 6b 6f 64 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ektionens kode ┆
0x0ec7e…0ec84 (0x194,0x1da)
0x0ec84…0eca0 20 20 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ *************************┆
0x0eca0…0ecc0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 3b ┆*******************************;┆
0x0ecc0…0ece0 0a 20 0a 20 0a 20 20 20 20 20 20 20 20 70 72 6f 63 65 64 75 72 65 20 69 6e 64 6b 74 61 62 3b 0a ┆ procedure indktab; ┆
0x0ece0…0ecfc 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 69 66 ┆ begin if┆
0x0ecfc…0ed02 (0x194,0x1db)
0x0ed02…0ed20 20 7a 70 69 6c 2b 6b 6f 6e 73 74 70 69 6c 32 2d 62 6c 6f 6b 73 74 61 72 74 3e 31 30 32 34 ┆ zpil+konstpil2-blokstart>1024┆
0x0ed20…0ed40 20 74 68 65 6e 20 66 65 6a 6c 28 32 30 33 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 ┆ then fejl(2032); if┆
0x0ed40…0ed60 20 6b 6f 6e 73 74 70 69 6c 31 3e 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 ┆ konstpil1>0 then be┆
0x0ed60…0ed7a 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6a 3a 3d 6b 6f 6e 73 74 ┆gin j:=konst┆
0x0ed7a…0ed80 (0x194,0x1dc)
0x0ed80…0eda0 70 69 6c 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 74 6f 6d 3a 3d 30 20 77 ┆pil1; for tom:=0 w┆
0x0eda0…0edc0 68 69 6c 65 20 6a 3e 30 20 64 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a ┆hile j>0 do begin ┆
0x0edc0…0ede0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7a 28 7a 62 61 73 65 2b 6b 6f 6e 73 74 74 61 62 ┆ z(zbase+konsttab┆
0x0ede0…0ee00 31 28 6a 29 29 3a 3d 7a 28 7a 62 61 73 65 2b 6b 6f 6e 73 74 74 61 62 31 00 00 00 00 00 00 00 00 ┆1(j)):=z(zbase+konsttab1 ┆
0x0ee00…0ee06 (119,) (0x194,0x1dd)
0x0ee06…0ee20 28 6a 29 29 2b 32 2a 28 7a 70 69 6c 2b 31 2d 0a 20 20 20 20 20 20 20 20 20 20 ┆(j))+2*(zpil+1- ┆
0x0ee20…0ee40 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 6b 6f 6e 73 74 74 ┆ konstt┆
0x0ee40…0ee60 61 62 31 28 6a 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6a 3a 3d 6a 2d 31 3b ┆ab1(j)); j:=j-1;┆
0x0ee60…0ee7e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆ end; ┆
0x0ee7e…0ee84 (0x194,0x1de)
0x0ee84…0eea0 20 20 20 20 6b 6f 6e 73 74 70 69 6c 31 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆ konstpil1:=0; ┆
0x0eea0…0eec0 20 20 20 20 66 6f 72 20 74 6f 6d 3a 3d 30 20 77 68 69 6c 65 20 6a 3c 3d 6b 6f 6e 73 74 70 69 6c ┆ for tom:=0 while j<=konstpil┆
0x0eec0…0eee0 32 2f 2f 32 20 64 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d ┆2//2 do begin comm┆
0x0eee0…0eefc 65 6e 74 20 2a 2a 2a 20 69 6e 64 73 7b 74 74 65 6c 73 65 20 61 66 20 72 65 66 65 72 ┆ent *** indsættelse af refer┆
0x0eefc…0ef02 (0x194,0x1df)
0x0ef02…0ef20 65 6e 63 65 72 20 74 69 6c 20 6b 6f 6e 73 74 61 6e 74 74 61 62 65 6c 20 2a 2a 2a 3b 0a 20 ┆encer til konstanttabel ***; ┆
0x0ef20…0ef40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7a 28 7a 62 61 73 65 2b 7a 70 69 6c 2b 31 2b 6a 29 ┆ z(zbase+zpil+1+j)┆
0x0ef40…0ef60 3a 3d 6b 6f 6e 73 74 74 61 62 32 28 6a 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆:=konsttab2(j); ┆
0x0ef60…0ef7a 6a 3a 3d 6a 2b 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b ┆j:=j+1; end;┆
0x0ef7a…0ef80 (0x194,0x1e0)
0x0ef80…0efa0 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6b 6f 6e 73 74 70 69 6c 32 3a 3d 2d 31 3b 0a 20 20 ┆ konstpil2:=-1; ┆
0x0efa0…0efc0 20 20 20 20 20 20 20 20 20 20 20 20 7a 70 69 6c 3a 3d 7a 70 69 6c 2b 6a 3b 0a 20 20 20 20 20 20 ┆ zpil:=zpil+j; ┆
0x0efc0…0efe0 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 0a 20 0a 20 0a ┆ end; end; ┆
0x0efe0…0f000 20 20 20 20 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 2a 2a 2a 2a 2a 2a 00 00 00 00 00 00 00 00 ┆ comment ****** ┆
0x0f000…0f006 (120,) (0x194,0x1e1)
0x0f006…0f020 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆**************************┆
0x0f020…0f040 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 20 20 20 20 20 20 20 ┆************************ ┆
0x0f040…0f060 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 7c 67 6e 69 6e 67 20 69 ┆ søgning i┆
0x0f060…0f07e 20 6e 61 76 6e 65 74 61 62 65 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ navnetabel ┆
0x0f07e…0f084 (0x194,0x1e2)
0x0f084…0f0a0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆****************************┆
0x0f0a0…0f0c0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 3b 0a 20 0a ┆****************************; ┆
0x0f0c0…0f0e0 20 20 20 20 20 20 20 20 20 20 69 6e 74 65 67 65 72 20 70 72 6f 63 65 64 75 72 65 20 69 64 74 61 ┆ integer procedure idta┆
0x0f0e0…0f0fc 62 73 7c 67 65 72 28 73 74 61 6b 70 69 6c 2c 6f 6d 72 7d 64 65 29 3b 0a 20 20 20 20 ┆bsøger(stakpil,område); ┆
0x0f0fc…0f102 (0x194,0x1e3)
0x0f102…0f120 20 20 20 20 20 20 76 61 6c 75 65 20 6f 6d 72 7d 64 65 2c 73 74 61 6b 70 69 6c 3b 0a 20 20 ┆ value område,stakpil; ┆
0x0f120…0f140 20 20 20 20 20 20 20 20 69 6e 74 65 67 65 72 20 6f 6d 72 7d 64 65 2c 73 74 61 6b 70 69 6c 3b 0a ┆ integer område,stakpil; ┆
0x0f140…0f160 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 6e 74 65 ┆ begin inte┆
0x0f160…0f17a 67 65 72 20 74 6f 6d 2c 69 2c 67 72 7b 6e 73 65 3b 0a 20 20 20 20 20 20 20 20 ┆ger tom,i,grænse; ┆
0x0f17a…0f180 (0x194,0x1e4)
0x0f180…0f1a0 20 20 20 20 67 72 7b 6e 73 65 3a 3d 69 66 20 6f 6d 72 7d 64 65 20 65 78 74 72 61 63 74 20 31 3d ┆ grænse:=if område extract 1=┆
0x0f1a0…0f1c0 30 20 6f 72 20 6b 72 6f 70 6e 69 76 3d 31 20 74 68 65 6e 20 33 20 65 6c 73 65 20 68 70 74 6f 70 ┆0 or kropniv=1 then 3 else hptop┆
0x0f1c0…0f1e0 2b 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 3a 3d 69 66 20 6f 6d 72 7d 64 65 3e 30 20 74 ┆+1; i:=if område>0 t┆
0x0f1e0…0f200 68 65 6e 20 69 64 74 61 62 70 69 6c 20 65 6c 73 65 20 68 70 74 6f 70 3b 00 00 00 00 00 00 00 00 ┆hen idtabpil else hptop; ┆
0x0f200…0f206 (121,) (0x194,0x1e5)
0x0f206…0f220 0a 70 72 7c 76 6e 79 69 64 3a 20 20 20 66 6f 72 20 74 6f 6d 3a 3d 30 20 77 68 ┆ prøvnyid: for tom:=0 wh┆
0x0f220…0f240 69 6c 65 20 61 74 74 31 28 73 74 61 6b 70 69 6c 29 3c 3e 69 64 74 61 62 31 28 69 29 20 61 6e 64 ┆ile att1(stakpil)<>idtab1(i) and┆
0x0f240…0f260 20 69 3e 67 72 7b 6e 73 65 20 64 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 3a 3d ┆ i>grænse do i:=┆
0x0f260…0f27e 69 2d 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 61 74 74 31 28 73 74 61 6b 70 ┆i-1; if att1(stakp┆
0x0f27e…0f284 (0x194,0x1e6)
0x0f284…0f2a0 69 6c 29 3c 3e 69 64 74 61 62 31 28 69 29 20 6f 72 20 28 61 74 74 32 28 73 74 61 6b ┆il)<>idtab1(i) or (att2(stak┆
0x0f2a0…0f2c0 70 69 6c 29 3c 3e 69 64 74 61 62 32 28 69 29 20 6f 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 61 ┆pil)<>idtab2(i) or a┆
0x0f2c0…0f2e0 74 74 33 28 73 74 61 6b 70 69 6c 29 3c 3e 69 64 74 61 62 33 28 69 29 29 20 74 68 65 6e 0a 20 20 ┆tt3(stakpil)<>idtab3(i)) then ┆
0x0f2e0…0f2fc 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ begin ┆
0x0f2fc…0f302 (0x194,0x1e7)
0x0f302…0f320 20 20 69 66 20 69 3c 67 72 7b 6e 73 65 20 74 68 65 6e 20 66 65 6a 6c 28 32 30 30 35 29 20 ┆ if i<grænse then fejl(2005) ┆
0x0f320…0f340 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 ┆else begin ┆
0x0f340…0f360 20 20 20 20 20 20 20 20 20 69 3a 3d 69 2d 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ i:=i-1; ┆
0x0f360…0f37a 20 67 6f 74 6f 20 70 72 7c 76 6e 79 69 64 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆ goto prøvnyid; ┆
0x0f37a…0f380 (0x194,0x1e8)
0x0f380…0f3a0 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 ┆ end; end; ┆
0x0f3a0…0f3c0 20 20 20 20 20 20 69 64 74 61 62 73 7c 67 65 72 3a 3d 69 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ idtabsøger:=i; ┆
0x0f3c0…0f3e0 20 69 66 20 78 72 65 66 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a ┆ if xref then begin ┆
0x0f3e0…0f400 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 75 74 72 65 63 36 28 7a 78 00 00 00 00 00 00 00 00 ┆ outrec6(zx ┆
0x0f400…0f406 (122,) (0x194,0x1e9)
0x0f406…0f420 72 65 66 2c 38 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7a 78 72 65 ┆ref,8); zxre┆
0x0f420…0f440 66 2e 69 66 32 3a 3d 61 74 74 31 28 73 74 61 6b 70 69 6c 29 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆f.if2:=att1(stakpil); ┆
0x0f440…0f460 20 20 20 20 7a 78 72 65 66 2e 69 66 34 3a 3d 61 74 74 32 28 73 74 61 6b 70 69 6c 29 3b 0a 20 20 ┆ zxref.if4:=att2(stakpil); ┆
0x0f460…0f47e 20 20 20 20 20 20 20 20 20 20 20 20 7a 78 72 65 66 2e 69 66 36 3a 3d 61 74 74 33 28 73 74 ┆ zxref.if6:=att3(st┆
0x0f47e…0f484 (0x194,0x1ea)
0x0f484…0f4a0 61 6b 70 69 6c 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7a 78 72 65 66 2e ┆akpil); zxref.┆
0x0f4a0…0f4c0 69 66 38 3a 3d 31 20 73 68 69 66 74 20 32 30 20 61 64 64 20 6c 69 6e 69 65 6e 72 3b 0a 20 20 20 ┆if8:=1 shift 20 add linienr; ┆
0x0f4c0…0f4e0 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 20 69 64 74 61 ┆ end; end idta┆
0x0f4e0…0f4fc 62 73 7c 67 65 72 3b 0a 20 0a 20 0a 20 20 20 20 20 20 20 20 20 20 63 6f 6d 6d 65 6e ┆bsøger; commen┆
0x0f4fc…0f502 (0x194,0x1eb)
0x0f502…0f520 74 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆t ****************************┆
0x0f520…0f540 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 20 20 20 ┆**************************** ┆
0x0f540…0f560 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 6e 64 73 ┆ inds┆
0x0f560…0f57a 7b 74 74 65 6c 73 65 20 61 66 20 68 6f 70 66 72 65 66 65 72 65 6e 63 65 72 0a ┆ættelse af hopfreferencer ┆
0x0f57a…0f580 (0x194,0x1ec)
0x0f580…0f5a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ **************┆
0x0f5a0…0f5c0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x0f5c0…0f5e0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 3b 0a 20 0a 20 0a 20 20 20 20 20 20 20 20 70 72 6f 63 65 64 75 72 ┆**********; procedur┆
0x0f5e0…0f600 65 20 69 6e 64 73 7b 74 68 6f 70 3b 0a 20 20 20 20 20 20 20 20 62 65 67 00 00 00 00 00 00 00 00 ┆e indsæthop; beg ┆
0x0f600…0f606 (123,) (0x194,0x1ed)
0x0f606…0f620 69 6e 0a 20 20 20 20 20 20 20 20 20 20 69 6e 74 65 67 65 72 20 69 3b 0a 20 20 ┆in integer i; ┆
0x0f620…0f640 20 20 20 20 20 20 20 20 69 66 20 68 6f 70 70 69 6c 3e 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 ┆ if hoppil>0 then ┆
0x0f640…0f660 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 69 3a 3d 31 20 73 74 ┆ begin for i:=1 st┆
0x0f660…0f67e 65 70 20 31 20 75 6e 74 69 6c 20 68 6f 70 70 69 6c 20 64 6f 0a 20 20 20 20 20 20 20 20 20 ┆ep 1 until hoppil do ┆
0x0f67e…0f684 (0x194,0x1ee)
0x0f684…0f6a0 20 20 20 7a 28 7a 62 61 73 65 2b 68 6f 70 74 61 62 31 28 69 29 29 3a 3d 7a 28 7a 62 ┆ z(zbase+hoptab1(i)):=z(zb┆
0x0f6a0…0f6c0 61 73 65 2b 68 6f 70 74 61 62 31 28 69 29 29 2b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ase+hoptab1(i))+ ┆
0x0f6c0…0f6e0 20 28 69 64 74 61 62 35 28 68 6f 70 74 61 62 32 28 69 29 29 2d 32 2a 68 6f 70 74 61 62 31 28 69 ┆ (idtab5(hoptab2(i))-2*hoptab1(i┆
0x0f6e0…0f6fc 29 29 20 65 78 74 72 61 63 74 20 31 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 68 ┆)) extract 12; h┆
0x0f6fc…0f702 (0x194,0x1ef)
0x0f702…0f720 6f 70 70 69 6c 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 ┆oppil:=0; end; ┆
0x0f720…0f740 20 20 20 65 6e 64 20 69 6e 64 73 7b 74 68 6f 70 3b 0a 20 0a 20 0a 20 0a 20 20 20 20 20 20 20 20 ┆ end indsæthop; ┆
0x0f740…0f760 20 20 63 6f 6d 6d 65 6e 74 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ comment **********************┆
0x0f760…0f77a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆**************************┆
0x0f77a…0f780 (0x194,0x1f0)
0x0f780…0f7a0 2a 2a 2a 2a 2a 2a 2a 2a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆******** ┆
0x0f7a0…0f7c0 20 20 20 69 6e 64 73 7b 74 74 65 6c 73 65 20 61 66 20 6e 61 76 6e 20 69 20 6e 61 76 6e 65 74 61 ┆ indsættelse af navn i navneta┆
0x0f7c0…0f7e0 62 65 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆bel **********┆
0x0f7e0…0f800 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 00 00 00 00 00 00 00 ┆************************ ┆
0x0f800…0f806 (124,) (0x194,0x1f1)
0x0f806…0f820 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 3b 0a 20 0a ┆**********************; ┆
0x0f820…0f840 20 20 20 20 20 20 20 20 70 72 6f 63 65 64 75 72 65 20 69 6e 64 73 7b 74 69 64 28 73 74 61 6b 70 ┆ procedure indsætid(stakp┆
0x0f840…0f860 69 6c 2c 70 6c 61 64 73 2c 6d 6f 64 65 2c 61 72 74 2c 74 79 70 65 2c 61 64 72 65 73 73 65 29 3b ┆il,plads,mode,art,type,adresse);┆
0x0f860…0f87e 0a 20 20 20 20 20 20 20 20 76 61 6c 75 65 20 73 74 61 6b 70 69 6c 2c 70 6c 61 64 73 2c 6d ┆ value stakpil,plads,m┆
0x0f87e…0f884 (0x194,0x1f2)
0x0f884…0f8a0 6f 64 65 2c 61 72 74 2c 74 79 70 65 2c 61 64 72 65 73 73 65 3b 0a 20 20 20 20 20 20 ┆ode,art,type,adresse; ┆
0x0f8a0…0f8c0 20 20 69 6e 74 65 67 65 72 20 73 74 61 6b 70 69 6c 2c 70 6c 61 64 73 2c 6d 6f 64 65 2c 61 72 74 ┆ integer stakpil,plads,mode,art┆
0x0f8c0…0f8e0 2c 74 79 70 65 2c 61 64 72 65 73 73 65 3b 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 ┆,type,adresse; begin ┆
0x0f8e0…0f8fc 20 20 20 20 20 20 20 69 6e 74 65 67 65 72 20 74 6f 6d 2c 69 3b 0a 20 20 20 20 20 20 ┆ integer tom,i; ┆
0x0f8fc…0f902 (0x194,0x1f3)
0x0f902…0f920 20 20 20 20 69 3a 3d 63 75 72 72 69 64 6c 69 6d 69 74 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆ i:=curridlimit; ┆
0x0f920…0f940 63 6f 6d 6d 65 6e 74 20 2a 2a 2a 20 73 7c 67 6e 69 6e 67 20 6f 6d 20 6e 61 76 6e 65 74 20 65 72 ┆comment *** søgning om navnet er┆
0x0f940…0f960 20 64 65 72 20 69 20 66 6f 72 76 65 6a 65 6e 20 2a 2a 2a 3b 0a 70 72 7c 76 6e 79 69 64 3a 20 66 ┆ der i forvejen ***; prøvnyid: f┆
0x0f960…0f97a 6f 72 20 74 6f 6d 3a 3d 30 20 77 68 69 6c 65 20 69 64 74 61 62 31 28 69 29 3c ┆or tom:=0 while idtab1(i)<┆
0x0f97a…0f980 (0x194,0x1f4)
0x0f980…0f9a0 3e 61 74 74 31 28 73 74 61 6b 70 69 6c 29 20 61 6e 64 20 69 3c 69 64 74 61 62 70 69 6c 20 64 6f ┆>att1(stakpil) and i<idtabpil do┆
0x0f9a0…0f9c0 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 69 3a 3d 69 2b 31 3b 0a 20 20 20 20 20 20 20 20 20 ┆ i:=i+1; ┆
0x0f9c0…0f9e0 20 69 66 20 61 74 74 31 28 73 74 61 6b 70 69 6c 29 3d 69 64 74 61 62 31 28 69 29 20 61 6e 64 20 ┆ if att1(stakpil)=idtab1(i) and ┆
0x0f9e0…0fa00 28 61 74 74 32 28 73 74 61 6b 70 69 6c 29 3d 69 64 74 61 62 32 28 69 29 00 00 00 00 00 00 00 00 ┆(att2(stakpil)=idtab2(i) ┆
0x0fa00…0fa06 (125,) (0x194,0x1f5)
0x0fa06…0fa20 20 61 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 61 74 74 33 28 73 74 61 ┆ and att3(sta┆
0x0fa20…0fa40 6b 70 69 6c 29 3d 69 64 74 61 62 33 28 69 29 29 20 74 68 65 6e 20 66 65 6a 6c 28 32 30 30 31 29 ┆kpil)=idtab3(i)) then fejl(2001)┆
0x0fa40…0fa60 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 69 3c 69 64 74 61 62 70 69 6c 20 74 68 65 6e 0a 20 ┆; if i<idtabpil then ┆
0x0fa60…0fa7e 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 3a 3d ┆ begin i:=┆
0x0fa7e…0fa84 (0x194,0x1f6)
0x0fa84…0faa0 69 2b 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 70 72 7c 76 6e 79 ┆i+1; goto prøvny┆
0x0faa0…0fac0 69 64 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 63 6f 6d ┆id; end; com┆
0x0fac0…0fae0 6d 65 6e 74 20 2a 2a 2a 20 69 6e 64 73 7b 74 74 65 6c 73 65 20 61 66 20 6e 61 76 6e 65 74 20 2a ┆ment *** indsættelse af navnet *┆
0x0fae0…0fafc 2a 2a 3b 0a 20 20 20 20 20 20 20 20 20 20 69 64 74 61 62 70 69 6c 3a 3d 69 64 74 61 ┆**; idtabpil:=idta┆
0x0fafc…0fb02 (0x194,0x1f7)
0x0fb02…0fb20 62 70 69 6c 2b 31 3b 0a 20 20 20 20 20 20 20 20 20 20 69 64 74 61 62 31 28 69 64 74 61 62 ┆bpil+1; idtab1(idtab┆
0x0fb20…0fb40 70 69 6c 29 3a 3d 61 74 74 31 28 73 74 61 6b 70 69 6c 29 3b 0a 20 20 20 20 20 20 20 20 20 20 69 ┆pil):=att1(stakpil); i┆
0x0fb40…0fb60 64 74 61 62 32 28 69 64 74 61 62 70 69 6c 29 3a 3d 61 74 74 32 28 73 74 61 6b 70 69 6c 29 3b 0a ┆dtab2(idtabpil):=att2(stakpil); ┆
0x0fb60…0fb7a 20 20 20 20 20 20 20 20 20 20 69 64 74 61 62 33 28 69 64 74 61 62 70 69 6c 29 ┆ idtab3(idtabpil)┆
0x0fb7a…0fb80 (0x194,0x1f8)
0x0fb80…0fba0 3a 3d 61 74 74 33 28 73 74 61 6b 70 69 6c 29 3b 0a 20 20 20 20 20 20 20 20 20 20 69 64 74 61 62 ┆:=att3(stakpil); idtab┆
0x0fba0…0fbc0 34 28 69 64 74 61 62 70 69 6c 29 3a 3d 70 6c 61 64 73 20 73 68 69 66 74 20 34 20 61 64 64 20 6d ┆4(idtabpil):=plads shift 4 add m┆
0x0fbc0…0fbe0 6f 64 65 20 73 68 69 66 74 20 34 20 61 64 64 20 61 72 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ode shift 4 add art ┆
0x0fbe0…0fc00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 68 69 66 74 20 34 20 00 00 00 00 00 00 00 00 ┆ shift 4 ┆
0x0fc00…0fc06 (126,) (0x194,0x1f9)
0x0fc06…0fc20 61 64 64 20 74 79 70 65 3b 0a 20 20 20 20 20 20 20 20 20 20 69 64 74 61 62 35 ┆add type; idtab5┆
0x0fc20…0fc40 28 69 64 74 61 62 70 69 6c 29 3a 3d 61 64 72 65 73 73 65 2b 72 65 6c 61 64 72 28 6d 6f 64 65 29 ┆(idtabpil):=adresse+reladr(mode)┆
0x0fc40…0fc60 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 78 72 65 66 20 74 68 65 6e 0a 20 20 20 20 20 20 20 ┆; if xref then ┆
0x0fc60…0fc7e 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 6f 75 74 72 65 63 36 28 7a ┆ begin outrec6(z┆
0x0fc7e…0fc84 (0x194,0x1fa)
0x0fc84…0fca0 78 72 65 66 2c 38 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 7a 78 72 65 66 2e 69 ┆xref,8); zxref.i┆
0x0fca0…0fcc0 66 32 3a 3d 61 74 74 31 28 73 74 61 6b 70 69 6c 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 7a ┆f2:=att1(stakpil); z┆
0x0fcc0…0fce0 78 72 65 66 2e 69 66 34 3a 3d 61 74 74 32 28 73 74 61 6b 70 69 6c 29 3b 0a 20 20 20 20 20 20 20 ┆xref.if4:=att2(stakpil); ┆
0x0fce0…0fcfc 20 20 20 20 20 7a 78 72 65 66 2e 69 66 36 3a 3d 61 74 74 33 28 73 74 61 6b 70 69 6c ┆ zxref.if6:=att3(stakpil┆
0x0fcfc…0fd02 (0x194,0x1fb)
0x0fd02…0fd20 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 7a 78 72 65 66 2e 69 66 38 3a 3d 6c 69 6e 69 ┆); zxref.if8:=lini┆
0x0fd20…0fd40 65 6e 72 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 20 ┆enr; end; end ┆
0x0fd40…0fd60 69 6e 64 73 7b 74 69 64 3b 0a 20 0a 20 0a 20 0a 20 20 20 20 20 20 20 20 20 20 63 6f 6d 6d 65 6e ┆indsætid; commen┆
0x0fd60…0fd7a 74 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆t ************************┆
0x0fd7a…0fd80 (0x194,0x1fc)
0x0fd80…0fda0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x0fda0…0fdc0 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 65 6e 65 72 65 72 69 6e 67 20 ┆ generering ┆
0x0fdc0…0fde0 61 66 20 6d 61 73 6b 69 6e 6f 72 64 72 65 20 69 20 64 65 74 20 67 65 6e 65 72 65 6c 6c 65 20 74 ┆af maskinordre i det generelle t┆
0x0fde0…0fe00 69 6c 66 7b 6c 64 65 20 6d 65 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ilfælde med ┆
0x0fe00…0fe06 (127,) (0x194,0x1fd)
0x0fe06…0fe20 20 20 20 20 20 20 20 20 6f 70 65 72 61 74 6f 72 2c 20 72 65 67 69 73 74 65 72 ┆ operator, register┆
0x0fe20…0fe40 20 6f 67 20 6f 70 65 72 61 6e 64 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a ┆ og operand. *┆
0x0fe40…0fe60 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x0fe60…0fe7e 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 3b 0a 20 0a 20 0a 20 ┆***********************; ┆
0x0fe7e…0fe84 (0x194,0x1fe)
0x0fe84…0fea0 20 20 20 20 20 20 20 20 20 70 72 6f 63 65 64 75 72 65 20 64 61 6e 64 79 6f 70 6b 6f ┆ procedure dandyopko┆
0x0fea0…0fec0 64 65 28 6f 70 2c 72 70 69 6c 2c 6f 70 70 69 6c 29 3b 0a 20 20 20 20 20 20 20 20 20 20 76 61 6c ┆de(op,rpil,oppil); val┆
0x0fec0…0fee0 75 65 20 6f 70 2c 72 70 69 6c 2c 6f 70 70 69 6c 3b 0a 20 20 20 20 20 20 20 20 20 20 69 6e 74 65 ┆ue op,rpil,oppil; inte┆
0x0fee0…0fefc 67 65 72 20 6f 70 2c 72 70 69 6c 2c 6f 70 70 69 6c 3b 0a 20 20 20 20 20 20 20 20 20 ┆ger op,rpil,oppil; ┆
0x0fefc…0ff02 (0x194,0x1ff)
0x0ff02…0ff20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 6e 74 65 67 65 72 20 6e 7c 67 ┆ begin integer nøg┆
0x0ff20…0ff40 6c 65 2c 72 65 67 2c 72 65 6c 2c 69 6e 64 69 72 2c 69 6e 64 65 78 2c 64 69 73 70 6c 3b 0a 20 20 ┆le,reg,rel,indir,index,displ; ┆
0x0ff40…0ff60 20 20 20 20 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 2a 2a 2a 20 73 61 6d 6d 65 6e 62 79 67 6e ┆ comment *** sammenbygn┆
0x0ff60…0ff7a 69 6e 67 20 61 66 20 73 7c 67 65 6e 7c 67 6c 65 20 6f 67 20 73 7c 67 6e 69 6e ┆ing af søgenøgle og søgnin┆
0x0ff7a…0ff80 (0x194,0x200)
0x0ff80…0ffa0 67 20 61 66 20 74 69 6c 6c 61 64 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆g af tilladt ┆
0x0ffa0…0ffc0 20 20 20 20 20 74 79 70 65 2d 6f 70 65 72 61 74 6f 72 2d 6b 6f 6d 62 69 6e 61 74 69 6f 6e 20 20 ┆ type-operator-kombination ┆
0x0ffc0…0ffe0 20 2a 2a 2a 2a 3b 0a 66 69 6e 64 64 79 6f 70 3a 0a 20 20 20 20 20 20 20 20 20 20 20 20 6e 7c 67 ┆ ****; finddyop: nøg┆
0x0ffe0…10000 6c 65 3a 3d 28 6f 70 20 65 78 74 72 61 63 74 20 36 29 20 73 68 69 66 74 00 00 00 00 00 00 00 00 ┆le:=(op extract 6) shift ┆
0x10000…10006 (128,) (0x194,0x201)
0x10006…10020 20 33 20 61 64 64 20 61 74 74 32 28 72 70 69 6c 29 20 73 68 69 66 74 20 33 0a ┆ 3 add att2(rpil) shift 3 ┆
0x10020…10040 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 64 64 20 28 61 74 74 32 28 ┆ add (att2(┆
0x10040…10060 6f 70 70 69 6c 29 20 65 78 74 72 61 63 74 20 33 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 ┆oppil) extract 3); i┆
0x10060…1007e 66 20 6f 70 3d 37 20 74 68 65 6e 20 6e 7c 67 6c 65 3a 3d 6e 7c 67 6c 65 2d 36 34 3b 0a 20 ┆f op=7 then nøgle:=nøgle-64; ┆
0x1007e…10084 (0x194,0x202)
0x10084…100a0 20 20 20 20 20 20 20 20 20 20 20 69 66 20 6e 7c 67 6c 65 3e 33 32 20 73 68 69 66 74 ┆ if nøgle>32 shift┆
0x100a0…100c0 20 33 20 61 64 64 20 36 20 73 68 69 66 74 20 33 20 61 64 64 20 36 20 74 68 65 6e 20 66 65 6a 6c ┆ 3 add 6 shift 3 add 6 then fejl┆
0x100c0…100e0 28 32 30 30 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 3a 3d 64 79 6f 70 73 6c 61 67 28 ┆(2002); i:=dyopslag(┆
0x100e0…100fc 6f 70 20 65 78 74 72 61 63 74 20 36 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 66 ┆op extract 6); f┆
0x100fc…10102 (0x194,0x203)
0x10102…10120 6f 72 20 6a 3a 3d 30 20 77 68 69 6c 65 20 6e 7c 67 6c 65 3e 64 79 6f 70 74 61 62 28 69 29 ┆or j:=0 while nøgle>dyoptab(i)┆
0x10120…10140 20 73 68 69 66 74 20 28 2d 31 32 29 20 64 6f 20 69 3a 3d 69 2b 31 3b 0a 20 20 20 20 20 20 20 20 ┆ shift (-12) do i:=i+1; ┆
0x10140…10160 20 20 20 20 66 6f 72 20 6a 3a 3d 30 20 77 68 69 6c 65 20 6e 7c 67 6c 65 3c 64 79 6f 70 74 61 62 ┆ for j:=0 while nøgle<dyoptab┆
0x10160…1017a 28 69 29 20 73 68 69 66 74 20 28 2d 31 32 29 20 64 6f 20 69 3a 3d 69 2d 31 3b ┆(i) shift (-12) do i:=i-1;┆
0x1017a…10180 (0x194,0x204)
0x10180…101a0 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 64 79 6f 70 74 61 62 28 69 29 20 73 68 69 66 74 ┆ if dyoptab(i) shift┆
0x101a0…101c0 20 28 2d 31 32 29 20 65 78 74 72 61 63 74 20 31 32 3c 3e 6e 7c 67 6c 65 20 74 68 65 6e 20 0a 20 ┆ (-12) extract 12<>nøgle then ┆
0x101c0…101e0 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 ┆ begin i┆
0x101e0…10200 66 20 61 74 74 32 28 6f 70 70 69 6c 29 20 73 68 69 66 74 20 28 2d 33 29 00 00 00 00 00 00 00 00 ┆f att2(oppil) shift (-3) ┆
0x10200…10206 (129,) (0x194,0x205)
0x10206…10220 20 65 78 74 72 61 63 74 20 33 20 3d 20 31 20 61 6e 64 0a 20 20 20 20 20 20 20 ┆ extract 3 = 1 and ┆
0x10220…10240 20 20 20 20 20 20 20 20 20 20 61 74 74 32 28 6f 70 70 69 6c 29 20 65 78 74 72 61 63 74 20 33 20 ┆ att2(oppil) extract 3 ┆
0x10240…10260 3c 3e 20 31 20 74 68 65 6e 20 66 65 6a 6c 28 32 30 30 33 29 20 65 6c 73 65 0a 20 20 20 20 20 20 ┆<> 1 then fejl(2003) else ┆
0x10260…1027e 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ begin ┆
0x1027e…10284 (0x194,0x206)
0x10284…102a0 61 74 74 32 28 6f 70 70 69 6c 29 3a 3d 61 74 74 32 28 6f 70 70 69 6c 29 2b 32 3b 20 ┆att2(oppil):=att2(oppil)+2; ┆
0x102a0…102c0 63 6f 6d 6d 65 6e 74 20 63 6f 6e 76 65 72 74 20 62 79 74 65 20 74 6f 20 77 6f 72 64 3b 0a 20 20 ┆comment convert byte to word; ┆
0x102c0…102e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 66 69 6e 64 64 79 6f 70 3b 0a 20 20 20 ┆ goto finddyop; ┆
0x102e0…102fc 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ end; ┆
0x102fc…10302 (0x194,0x207)
0x10302…10320 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 61 74 74 32 28 6f 70 70 69 6c ┆end; if att2(oppil┆
0x10320…10340 29 20 65 78 74 72 61 63 74 20 36 3d 31 20 61 6e 64 20 64 79 6f 70 74 61 62 28 69 29 20 65 78 74 ┆) extract 6=1 and dyoptab(i) ext┆
0x10340…10360 72 61 63 74 20 33 3d 31 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 65 6a ┆ract 3=1 then fej┆
0x10360…1037a 6c 28 32 30 30 33 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 61 74 ┆l(2003); if at┆
0x1037a…10380 (0x194,0x208)
0x10380…103a0 74 32 28 6f 70 70 69 6c 29 20 73 68 69 66 74 20 28 2d 33 29 20 65 78 74 72 61 63 74 20 33 20 3d ┆t2(oppil) shift (-3) extract 3 =┆
0x103a0…103c0 20 31 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e ┆ 1 then begin commen┆
0x103c0…103e0 74 20 2a 2a 2a 20 6f 70 65 72 61 6e 64 65 6e 20 65 72 20 65 6e 20 6b 6f 6e 73 74 61 6e 74 20 2a ┆t *** operanden er en konstant *┆
0x103e0…10400 2a 2a 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 61 74 74 00 00 00 00 00 00 00 00 ┆**; if att ┆
0x10400…10406 (130,) (0x194,0x209)
0x10406…10420 32 28 6f 70 70 69 6c 29 20 65 78 74 72 61 63 74 20 33 3d 31 20 74 68 65 6e 0a ┆2(oppil) extract 3=1 then ┆
0x10420…10440 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 2a 2a 2a 20 ┆ begin comment *** ┆
0x10440…10460 74 79 70 65 6e 20 65 72 20 62 79 74 65 20 2a 2a 2a 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆typen er byte ***; ┆
0x10460…1047e 20 20 20 69 66 20 64 79 6f 70 74 61 62 28 69 29 20 65 78 74 72 61 63 74 20 33 3d 31 20 74 ┆ if dyoptab(i) extract 3=1 t┆
0x1047e…10484 (0x194,0x20a)
0x10484…104a0 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f ┆hen begin co┆
0x104a0…104c0 6d 6d 65 6e 74 20 2a 2a 2a 20 6b 6f 6e 73 74 61 6e 74 20 69 6e 64 73 7b 74 74 65 73 20 69 20 61 ┆mment *** konstant indsættes i a┆
0x104c0…104e0 64 72 65 73 73 65 66 65 6c 74 20 2a 2a 2a 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆dressefelt ***; ┆
0x104e0…104fc 20 20 6f 28 64 79 6f 70 74 61 62 28 69 29 20 73 68 69 66 74 20 28 2d 36 29 20 65 78 ┆ o(dyoptab(i) shift (-6) ex┆
0x104fc…10502 (0x194,0x20b)
0x10502…10520 74 72 61 63 74 20 36 2b 6f 70 20 73 68 69 66 74 20 28 2d 36 29 2c 0a 20 20 20 20 20 20 20 ┆tract 6+op shift (-6), ┆
0x10520…10540 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 74 74 31 28 72 70 69 6c 29 20 65 78 74 72 61 63 ┆ att1(rpil) extrac┆
0x10540…10560 74 20 32 2c 30 2c 30 2c 30 2c 61 74 74 33 28 6f 70 70 69 6c 29 29 3b 0a 20 20 20 20 20 20 20 20 ┆t 2,0,0,0,att3(oppil)); ┆
0x10560…1057a 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 73 74 6f 70 64 61 6e 64 79 3b 0a ┆ goto stopdandy; ┆
0x1057a…10580 (0x194,0x20c)
0x10580…105a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ end; ┆
0x105a0…105c0 20 20 20 20 20 69 66 20 6f 70 3c 34 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ if op<4 then ┆
0x105c0…105e0 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 2a 2a 2a 20 6f 70 65 72 61 74 6f 72 65 72 6e 65 ┆ begin comment *** operatorerne┆
0x105e0…10600 20 3a 3d 2c 20 2b 20 6f 67 20 2d 20 20 67 69 76 65 72 20 6d 75 6c 69 67 00 00 00 00 00 00 00 00 ┆ :=, + og - giver mulig ┆
0x10600…10606 (131,) (0x194,0x20d)
0x10606…10620 68 65 64 20 66 6f 72 20 61 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆hed for at ┆
0x10620…10640 20 20 20 20 20 20 20 20 20 20 20 69 6e 64 73 7b 74 74 65 20 62 79 74 65 2d 6b 6f 6e 73 74 61 6e ┆ indsætte byte-konstan┆
0x10640…10660 74 65 72 20 69 20 61 64 72 65 73 73 65 66 65 6c 74 65 74 20 20 20 20 2a 2a 2a 3b 0a 20 20 20 20 ┆ter i adressefeltet ***; ┆
0x10660…1067e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 61 73 65 20 6f 70 20 6f 66 0a 20 20 20 20 20 ┆ case op of ┆
0x1067e…10684 (0x194,0x20e)
0x10684…106a0 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 ┆ begin ┆
0x106a0…106c0 20 20 20 20 20 20 20 20 20 20 20 69 66 20 61 74 74 31 28 72 70 69 6c 29 3c 34 20 74 68 65 6e 0a ┆ if att1(rpil)<4 then ┆
0x106c0…106e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 ┆ begin ┆
0x106e0…106fc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 28 31 31 2c 61 74 74 31 28 72 70 ┆ o(11,att1(rp┆
0x106fc…10702 (0x194,0x20f)
0x10702…10720 69 6c 29 2c 30 2c 30 2c 30 2c 61 74 74 33 28 6f 70 70 69 6c 29 29 3b 0a 20 20 20 20 20 20 ┆il),0,0,0,att3(oppil)); ┆
0x10720…10740 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 73 74 6f 70 64 61 6e 64 79 3b 0a ┆ goto stopdandy; ┆
0x10740…10760 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 ┆ end; ┆
0x10760…1077a 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 61 74 74 31 28 72 70 69 6c 29 ┆ if att1(rpil)┆
0x1077a…10780 (0x194,0x210)
0x10780…107a0 3c 34 20 61 6e 64 20 61 74 74 31 28 72 70 69 6c 29 3e 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 ┆<4 and att1(rpil)>0 then ┆
0x107a0…107c0 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ begin ┆
0x107c0…107e0 20 20 20 20 20 20 20 20 20 6f 28 31 31 2c 61 74 74 31 28 72 70 69 6c 29 2c 30 2c 30 2c 61 74 74 ┆ o(11,att1(rpil),0,0,att┆
0x107e0…10800 31 28 72 70 69 6c 29 2c 61 74 74 33 28 6f 70 70 69 6c 29 29 3b 0a 20 20 00 00 00 00 00 00 00 00 ┆1(rpil),att3(oppil)); ┆
0x10800…10806 (132,) (0x194,0x211)
0x10806…10820 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 73 ┆ goto s┆
0x10820…10840 74 6f 70 64 61 6e 64 79 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e ┆topdandy; en┆
0x10840…10860 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 61 74 74 31 28 72 ┆d; if att1(r┆
0x10860…1087e 70 69 6c 29 3c 34 20 61 6e 64 20 61 74 74 31 28 72 70 69 6c 29 3e 30 20 74 68 65 6e 0a 20 ┆pil)<4 and att1(rpil)>0 then ┆
0x1087e…10884 (0x194,0x212)
0x10884…108a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d ┆ begin com┆
0x108a0…108c0 6d 65 6e 74 20 2a 2a 2a 20 69 6e 64 65 78 72 65 67 69 73 74 65 72 20 2a 2a 2a 3b 0a 20 20 20 20 ┆ment *** indexregister ***; ┆
0x108c0…108e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 28 31 31 2c 61 74 74 31 28 72 70 69 6c ┆ o(11,att1(rpil┆
0x108e0…108fc 29 2c 30 2c 30 2c 61 74 74 31 28 72 70 69 6c 29 2c 2d 61 74 74 33 28 6f 70 70 69 6c ┆),0,0,att1(rpil),-att3(oppil┆
0x108fc…10902 (0x194,0x213)
0x10902…10920 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f ┆)); goto┆
0x10920…10940 20 73 74 6f 70 64 61 6e 64 79 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ stopdandy; ┆
0x10940…10960 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 ┆end; end; ┆
0x10960…1097a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 ┆ end; ┆
0x1097a…10980 (0x194,0x214)
0x10980…109a0 20 20 20 20 20 65 6e 64 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6d 6d 65 6e ┆ end; commen┆
0x109a0…109c0 74 20 2a 2a 2a 2a 2a 2a 2a 20 69 6e 64 73 7b 74 74 65 6c 73 65 20 61 66 20 6b 6f 6e 73 74 61 6e ┆t ******* indsættelse af konstan┆
0x109c0…109e0 74 20 69 20 6b 6f 6e 73 74 61 6e 74 74 61 62 65 6c 20 2a 2a 2a 2a 2a 2a 2a 3b 0a 20 0a 20 20 20 ┆t i konstanttabel *******; ┆
0x109e0…10a00 20 20 20 20 20 20 20 20 20 20 20 63 61 73 65 20 28 61 74 74 32 28 6f 70 00 00 00 00 00 00 00 00 ┆ case (att2(op ┆
0x10a00…10a06 (133,) (0x194,0x215)
0x10a06…10a20 70 69 6c 29 20 65 78 74 72 61 63 74 20 33 29 2f 2f 34 2b 31 20 6f 66 0a 20 20 ┆pil) extract 3)//4+1 of ┆
0x10a20…10a40 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ begin ┆
0x10a40…10a60 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 2a 2a 2a 20 62 79 74 65 20 65 6c 6c 65 72 20 77 ┆ begin comment *** byte eller w┆
0x10a60…10a7e 6f 72 64 20 69 6e 64 73 7b 74 74 65 73 20 73 6f 6d 20 77 6f 72 64 20 2a 2a 2a 3b 0a 20 20 ┆ord indsættes som word ***; ┆
0x10a7e…10a84 (0x194,0x216)
0x10a84…10aa0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6a 3a 3d 31 3b 0a 20 20 20 20 20 20 ┆ j:=1; ┆
0x10aa0…10ac0 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 2a 2a 2a 20 73 7c 67 6e 69 6e 67 20 ┆ comment *** søgning ┆
0x10ac0…10ae0 6f 6d 20 6b 6f 6e 73 74 61 6e 74 65 6e 20 65 72 20 64 65 72 20 69 20 66 6f 72 76 65 6a 65 6e 20 ┆om konstanten er der i forvejen ┆
0x10ae0…10afc 2a 2a 2a 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 74 ┆***; for t┆
0x10afc…10b02 (0x194,0x217)
0x10b02…10b20 6f 6d 3a 3d 30 20 77 68 69 6c 65 20 6a 3c 3d 6b 6f 6e 73 74 70 69 6c 32 20 61 6e 64 20 6b ┆om:=0 while j<=konstpil2 and k┆
0x10b20…10b40 6f 6e 73 74 74 61 62 32 28 6a 2f 2f 32 29 3c 3e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆onsttab2(j//2)<> ┆
0x10b40…10b60 20 20 20 20 20 20 20 61 74 74 33 28 6f 70 70 69 6c 29 20 64 6f 20 6a 3a 3d 6a 2b 32 3b 0a 20 20 ┆ att3(oppil) do j:=j+2; ┆
0x10b60…10b7a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 6a 3e 6b 6f 6e 73 74 ┆ if j>konst┆
0x10b7a…10b80 (0x194,0x218)
0x10b80…10ba0 70 69 6c 32 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 ┆pil2 then begi┆
0x10ba0…10bc0 6e 20 63 6f 6d 6d 65 6e 74 20 2a 2a 2a 20 69 6e 64 73 7b 74 74 65 6c 73 65 20 61 66 20 6b 6f 6e ┆n comment *** indsættelse af kon┆
0x10bc0…10be0 73 74 61 6e 74 20 2a 2a 2a 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 ┆stant ***; i┆
0x10be0…10c00 66 20 6a 2d 6b 6f 6e 73 74 70 69 6c 32 3d 31 20 74 68 65 6e 20 6a 3a 3d 00 00 00 00 00 00 00 00 ┆f j-konstpil2=1 then j:= ┆
0x10c00…10c06 (134,) (0x194,0x219)
0x10c06…10c20 6a 2b 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6b ┆j+2; k┆
0x10c20…10c40 6f 6e 73 74 74 61 62 32 28 6a 2f 2f 32 29 3a 3d 61 74 74 33 28 6f 70 70 69 6c 29 3b 0a 20 20 20 ┆onsttab2(j//2):=att3(oppil); ┆
0x10c40…10c60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6b 6f 6e 73 74 70 69 6c 32 3a 3d 6a 3b 0a 20 ┆ konstpil2:=j; ┆
0x10c60…10c7e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 ┆ end; ┆
0x10c7e…10c84 (0x194,0x21a)
0x10c84…10ca0 20 20 20 20 20 20 20 20 20 20 69 66 20 61 74 74 32 28 6f 70 70 69 6c 29 20 65 78 74 ┆ if att2(oppil) ext┆
0x10ca0…10cc0 72 61 63 74 20 33 3d 31 20 74 68 65 6e 20 61 74 74 32 28 6f 70 70 69 6c 29 3a 3d 33 3b 0a 20 20 ┆ract 3=1 then att2(oppil):=3; ┆
0x10cc0…10ce0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ end; ┆
0x10ce0…10cfc 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 2a 2a 2a 20 72 65 61 6c 20 65 6c ┆ begin comment *** real el┆
0x10cfc…10d02 (0x194,0x21b)
0x10d02…10d20 6c 65 72 20 64 6f 75 62 6c 65 20 2a 2a 2a 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ler double ***; ┆
0x10d20…10d40 20 20 20 20 6a 3a 3d 33 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6d 6d ┆ j:=3; comm┆
0x10d40…10d60 65 6e 74 20 2a 2a 2a 20 73 7c 67 6e 69 6e 67 20 6f 6d 20 6b 6f 6e 73 74 61 6e 74 65 6e 20 20 65 ┆ent *** søgning om konstanten e┆
0x10d60…10d7a 72 20 64 65 72 20 69 20 66 6f 72 76 65 6a 65 6e 20 2a 2a 2a 3b 0a 20 20 20 20 ┆r der i forvejen ***; ┆
0x10d7a…10d80 (0x194,0x21c)
0x10d80…10da0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 74 6f 6d 3a 3d 30 20 77 68 69 6c 65 20 6a ┆ for tom:=0 while j┆
0x10da0…10dc0 3c 3d 6b 6f 6e 73 74 70 69 6c 32 20 61 6e 64 20 28 6b 6f 6e 73 74 74 61 62 32 28 6a 2f 2f 32 2d ┆<=konstpil2 and (konsttab2(j//2-┆
0x10dc0…10de0 31 29 3c 3e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 74 74 31 28 ┆1)<> att1(┆
0x10de0…10e00 6f 70 70 69 6c 29 20 6f 72 20 6b 6f 6e 73 74 74 61 62 32 28 6a 2f 2f 32 00 00 00 00 00 00 00 00 ┆oppil) or konsttab2(j//2 ┆
0x10e00…10e06 (135,) (0x194,0x21d)
0x10e06…10e20 29 3c 3e 61 74 74 33 28 6f 70 70 69 6c 29 29 20 64 6f 0a 20 20 20 20 20 20 20 ┆)<>att3(oppil)) do ┆
0x10e20…10e40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6a 3a 3d 6a 2b 32 3b 0a 20 20 20 20 20 20 20 20 20 ┆ j:=j+2; ┆
0x10e40…10e60 20 20 20 20 20 20 20 20 20 69 66 20 6a 3e 6b 6f 6e 73 74 70 69 6c 32 20 74 68 65 6e 0a 20 20 20 ┆ if j>konstpil2 then ┆
0x10e60…10e7e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 2a ┆ begin comment *┆
0x10e7e…10e84 (0x194,0x21e)
0x10e84…10ea0 2a 2a 20 69 6e 64 73 7b 74 74 65 6c 73 65 20 61 66 20 6b 6f 6e 73 74 61 6e 74 20 2a ┆** indsættelse af konstant *┆
0x10ea0…10ec0 2a 2a 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 6a 2d 6b 6f 6e ┆**; if j-kon┆
0x10ec0…10ee0 73 74 70 69 6c 32 3d 31 20 74 68 65 6e 20 6a 3a 3d 6a 2b 32 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆stpil2=1 then j:=j+2; ┆
0x10ee0…10efc 20 20 20 20 20 20 20 20 20 20 69 66 20 6b 6f 6e 73 74 74 61 62 32 28 6a 2f 2f 32 2d ┆ if konsttab2(j//2-┆
0x10efc…10f02 (0x194,0x21f)
0x10f02…10f20 31 29 3c 3e 61 74 74 31 28 6f 70 70 69 6c 29 20 74 68 65 6e 20 6a 3a 3d 6a 2b 32 3b 0a 20 ┆1)<>att1(oppil) then j:=j+2; ┆
0x10f20…10f40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6b 6f 6e 73 74 74 61 62 32 28 6a 2f 2f ┆ konsttab2(j//┆
0x10f40…10f60 32 2d 31 29 3a 3d 61 74 74 31 28 6f 70 70 69 6c 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆2-1):=att1(oppil); ┆
0x10f60…10f7a 20 20 20 20 20 20 20 6b 6f 6e 73 74 74 61 62 32 28 6a 2f 2f 32 29 3a 3d 61 74 ┆ konsttab2(j//2):=at┆
0x10f7a…10f80 (0x194,0x220)
0x10f80…10fa0 74 33 28 6f 70 70 69 6c 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6b ┆t3(oppil); k┆
0x10fa0…10fc0 6f 6e 73 74 70 69 6c 32 3a 3d 6a 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 ┆onstpil2:=j; e┆
0x10fc0…10fe0 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 ┆nd; end; ┆
0x10fe0…11000 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ end; ┆
0x11000…11006 (136,) (0x194,0x221)
0x11006…11020 20 20 63 6f 6d 6d 65 6e 74 20 2a 2a 2a 20 69 6e 64 73 7b 74 74 74 65 6c 73 65 ┆ comment *** indsætttelse┆
0x11020…11040 20 61 66 20 72 65 66 65 72 65 6e 63 65 20 74 69 6c 20 6b 6f 6e 73 74 61 6e 74 74 61 62 65 6c 6c ┆ af reference til konstanttabell┆
0x11040…11060 65 6e 20 2a 2a 2a 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6b 6f 6e 73 74 70 69 6c 31 3a ┆en ***; konstpil1:┆
0x11060…1107e 3d 6b 6f 6e 73 74 70 69 6c 31 2b 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6b 6f ┆=konstpil1+1; ko┆
0x1107e…11084 (0x194,0x222)
0x11084…110a0 6e 73 74 74 61 62 31 28 6b 6f 6e 73 74 70 69 6c 31 29 3a 3d 7a 70 69 6c 2b 31 3b 0a ┆nsttab1(konstpil1):=zpil+1; ┆
0x110a0…110c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 2a 2a 2a 20 62 65 73 6b 72 69 ┆ comment *** beskri┆
0x110c0…110e0 76 65 6c 73 65 20 61 66 20 6b 6f 6e 73 74 61 6e 74 20 73 6f 6d 20 69 6e 63 6f 64 65 2d 6f 70 65 ┆velse af konstant som incode-ope┆
0x110e0…110fc 72 61 6e 64 20 2a 2a 2a 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 74 74 33 ┆rand ***; att3┆
0x110fc…11102 (0x194,0x223)
0x11102…11120 28 6f 70 70 69 6c 29 3a 3d 2d 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 74 74 ┆(oppil):=-1; att┆
0x11120…11140 31 28 6f 70 70 69 6c 29 3a 3d 31 20 73 68 69 66 74 20 31 38 20 2b 20 6a 20 2b 20 28 7a 70 69 6c ┆1(oppil):=1 shift 18 + j + (zpil┆
0x11140…11160 2b 31 29 2a 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 ┆+1)*2; end; ┆
0x11160…1117a 20 20 20 20 69 66 20 61 74 74 33 28 6f 70 70 69 6c 29 3c 3e 2d 31 20 74 68 65 ┆ if att3(oppil)<>-1 the┆
0x1117a…11180 (0x194,0x224)
0x11180…111a0 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 2a 2a 2a 20 ┆n begin comment *** ┆
0x111a0…111c0 75 64 70 61 6b 6e 69 6e 67 20 61 66 20 6d 6f 64 69 66 69 6b 61 74 69 6f 6e 73 62 65 73 6b 72 69 ┆udpakning af modifikationsbeskri┆
0x111c0…111e0 76 65 6c 73 65 20 2a 2a 2a 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65 6c 3a 3d 61 74 ┆velse ***; rel:=at┆
0x111e0…11200 74 33 28 6f 70 70 69 6c 29 20 73 68 69 66 74 20 28 2d 31 38 29 20 65 78 00 00 00 00 00 00 00 00 ┆t3(oppil) shift (-18) ex ┆
0x11200…11206 (137,) (0x194,0x225)
0x11206…11220 74 72 61 63 74 20 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 6e 64 ┆tract 1; ind┆
0x11220…11240 69 72 3a 3d 61 74 74 33 28 6f 70 70 69 6c 29 20 73 68 69 66 74 20 28 2d 31 39 29 20 65 78 74 72 ┆ir:=att3(oppil) shift (-19) extr┆
0x11240…11260 61 63 74 20 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 6e 64 65 78 3a 3d 61 74 74 33 ┆act 1; index:=att3┆
0x11260…1127e 28 6f 70 70 69 6c 29 20 73 68 69 66 74 20 28 2d 31 36 29 20 65 78 74 72 61 63 74 20 32 3b ┆(oppil) shift (-16) extract 2;┆
0x1127e…11284 (0x194,0x226)
0x11284…112a0 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 69 73 70 6c 3a 3d 69 66 20 72 65 6c ┆ displ:=if rel┆
0x112a0…112c0 3d 31 20 74 68 65 6e 20 28 61 74 74 33 28 6f 70 70 69 6c 29 20 65 78 74 72 61 63 74 20 31 36 20 ┆=1 then (att3(oppil) extract 16 ┆
0x112c0…112e0 2d 20 32 2a 28 7a 70 69 6c 2b 31 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆- 2*(zpil+1)) ┆
0x112e0…112fc 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 20 61 74 74 33 28 6f 70 70 69 6c ┆ else att3(oppil┆
0x112fc…11302 (0x194,0x227)
0x11302…11320 29 20 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 2a 2a 2a 20 ┆) ; comment *** ┆
0x11320…11340 67 65 6e 65 72 65 72 69 6e 67 20 61 66 20 61 6d 2d 6f 72 64 72 65 20 2a 2a 2a 3b 0a 20 20 20 20 ┆generering af am-ordre ***; ┆
0x11340…11360 20 20 20 20 20 20 20 20 20 20 6f 28 39 2c 30 2c 72 65 6c 2c 69 6e 64 69 72 2c 69 6e 64 65 78 2c ┆ o(9,0,rel,indir,index,┆
0x11360…1137a 64 69 73 70 6c 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 ┆displ); end; ┆
0x1137a…11380 (0x194,0x228)
0x11380…113a0 20 20 20 20 20 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 2a 2a 2a 20 75 64 70 61 6b 6e 69 6e 67 ┆ comment *** udpakning┆
0x113a0…113c0 20 61 66 20 6f 70 65 72 61 6e 64 62 65 73 6b 72 69 76 65 6c 73 65 20 2a 2a 2a 3b 0a 20 20 20 20 ┆ af operandbeskrivelse ***; ┆
0x113c0…113e0 20 20 20 20 20 20 20 20 72 65 67 3a 3d 61 74 74 31 28 72 70 69 6c 29 3b 0a 20 20 20 20 20 20 20 ┆ reg:=att1(rpil); ┆
0x113e0…11400 20 20 20 20 20 72 65 6c 3a 3d 61 74 74 31 28 6f 70 70 69 6c 29 20 73 68 00 00 00 00 00 00 00 00 ┆ rel:=att1(oppil) sh ┆
0x11400…11406 (138,) (0x194,0x229)
0x11406…11420 69 66 74 20 28 2d 31 38 29 20 65 78 74 72 61 63 74 20 31 3b 0a 20 0a 20 20 20 ┆ift (-18) extract 1; ┆
0x11420…11440 20 20 20 20 20 20 20 20 20 69 6e 64 69 72 3a 3d 64 79 6f 70 74 61 62 28 69 29 20 65 78 74 72 61 ┆ indir:=dyoptab(i) extra┆
0x11440…11460 63 74 20 33 20 2b 28 61 74 74 31 28 6f 70 70 69 6c 29 20 73 68 69 66 74 20 28 2d 31 39 29 29 3b ┆ct 3 +(att1(oppil) shift (-19));┆
0x11460…1147e 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 6e 64 65 78 3a 3d 61 74 74 31 28 6f 70 70 69 6c ┆ index:=att1(oppil┆
0x1147e…11484 (0x194,0x22a)
0x11484…114a0 29 20 73 68 69 66 74 20 28 2d 31 36 29 20 65 78 74 72 61 63 74 20 32 3b 0a 20 20 20 ┆) shift (-16) extract 2; ┆
0x114a0…114c0 20 20 20 20 20 20 20 20 20 64 69 73 70 6c 3a 3d 69 66 20 72 65 6c 3d 31 20 74 68 65 6e 20 61 74 ┆ displ:=if rel=1 then at┆
0x114c0…114e0 74 31 28 6f 70 70 69 6c 29 20 65 78 74 72 61 63 74 20 31 36 20 2d 20 32 2a 28 7a 70 69 6c 2b 31 ┆t1(oppil) extract 16 - 2*(zpil+1┆
0x114e0…114fc 29 0a 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 ┆) ┆
0x114fc…11502 (0x194,0x22b)
0x11502…11520 20 20 65 6c 73 65 20 61 74 74 31 28 6f 70 70 69 6c 29 20 65 78 74 72 61 63 74 20 31 36 3b ┆ else att1(oppil) extract 16;┆
0x11520…11540 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 6f 70 3d 31 34 20 74 68 65 6e 0a 20 20 20 20 20 ┆ if op=14 then ┆
0x11540…11560 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 61 74 ┆ begin if at┆
0x11560…1157a 74 32 28 6f 70 70 69 6c 29 20 65 78 74 72 61 63 74 20 33 20 73 68 69 66 74 20 ┆t2(oppil) extract 3 shift ┆
0x1157a…11580 (0x194,0x22c)
0x11580…115a0 28 2d 31 29 3d 31 20 74 68 65 6e 20 64 69 73 70 6c 3a 3d 64 69 73 70 6c 2d 31 3b 0a 20 20 20 20 ┆(-1)=1 then displ:=displ-1; ┆
0x115a0…115c0 20 20 20 20 20 20 20 20 20 20 69 66 20 61 74 74 32 28 6f 70 70 69 6c 29 20 65 78 74 72 61 63 74 ┆ if att2(oppil) extract┆
0x115c0…115e0 20 33 20 73 68 69 66 74 20 28 2d 31 29 3d 32 20 74 68 65 6e 20 64 69 73 70 6c 3a 3d 64 69 73 70 ┆ 3 shift (-1)=2 then displ:=disp┆
0x115e0…11600 6c 2d 33 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 00 00 00 00 00 00 00 00 ┆l-3; end; ┆
0x11600…11606 (139,) (0x194,0x22d)
0x11606…11620 20 20 20 20 20 20 20 20 20 20 69 66 20 28 69 6e 64 65 78 3d 30 20 61 6e 64 20 ┆ if (index=0 and ┆
0x11620…11640 72 65 6c 3d 30 29 20 61 6e 64 20 28 64 69 73 70 6c 3d 32 20 6f 72 20 28 64 69 73 70 6c 3d 34 20 ┆rel=0) and (displ=2 or (displ=4 ┆
0x11640…11660 6f 72 20 64 69 73 70 6c 3d 36 29 29 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 ┆or displ=6)) then be┆
0x11660…1167e 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 2a 2a 2a 20 69 6e 64 69 72 65 6b 74 65 20 76 69 61 20 ┆gin comment *** indirekte via ┆
0x1167e…11684 (0x194,0x22e)
0x11684…116a0 69 6e 64 78 72 65 67 69 73 74 65 72 20 6f 6d 73 7b 74 74 65 73 20 74 69 6c 20 69 6e ┆indxregister omsættes til in┆
0x116a0…116c0 64 65 78 61 64 72 2e 20 2a 2a 2a 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 69 6e ┆dexadr. ***; if in┆
0x116c0…116e0 64 69 72 3e 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 ┆dir>0 then begin ┆
0x116e0…116fc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 6e 64 65 78 3a 3d 64 69 73 70 6c 2f ┆ index:=displ/┆
0x116fc…11702 (0x194,0x22f)
0x11702…11720 2f 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 6e 64 69 72 3a 3d 69 6e 64 ┆/2; indir:=ind┆
0x11720…11740 69 72 2d 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 69 73 70 6c 3a 3d 30 3b 0a ┆ir-1; displ:=0; ┆
0x11740…11760 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 ┆ end; e┆
0x11760…1177a 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 69 6e 64 69 72 3e 31 ┆nd; if indir>1┆
0x1177a…11780 (0x194,0x230)
0x11780…117a0 20 74 68 65 6e 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 ┆ then begin comment┆
0x117a0…117c0 20 2a 2a 2a 20 67 65 6e 65 72 65 72 69 6e 67 20 61 66 20 65 6b 73 74 72 61 20 61 6d 2d 6f 72 64 ┆ *** generering af ekstra am-ord┆
0x117c0…117e0 72 65 72 20 74 69 6c 20 69 6e 64 69 72 65 6b 74 65 20 61 64 72 2e 2a 2a 2a 3b 0a 20 20 20 20 20 ┆rer til indirekte adr.***; ┆
0x117e0…11800 20 20 20 20 20 20 20 20 20 6f 28 39 2c 30 2c 72 65 6c 2c 31 2c 69 6e 64 00 00 00 00 00 00 00 00 ┆ o(9,0,rel,1,ind ┆
0x11800…11806 (140,) (0x194,0x231)
0x11806…11820 65 78 2c 64 69 73 70 6c 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 ┆ex,displ); i┆
0x11820…11840 66 20 69 6e 64 69 72 3e 32 20 74 68 65 6e 20 66 6f 72 20 6a 3a 3d 33 20 73 74 65 70 20 31 20 75 ┆f indir>2 then for j:=3 step 1 u┆
0x11840…11860 6e 74 69 6c 20 69 6e 64 69 72 20 64 6f 20 6f 28 39 2c 30 2c 30 2c 31 2c 30 2c 30 29 3b 0a 20 20 ┆ntil indir do o(9,0,0,1,0,0); ┆
0x11860…1187e 20 20 20 20 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 2a 2a 2a 20 67 65 6e 65 72 65 72 69 ┆ comment *** genereri┆
0x1187e…11884 (0x194,0x232)
0x11884…118a0 6e 67 20 61 66 20 73 65 6c 76 65 20 6f 72 64 72 65 6e 20 2a 2a 2a 3b 0a 20 20 20 20 ┆ng af selve ordren ***; ┆
0x118a0…118c0 20 20 20 20 20 20 20 20 6f 28 64 79 6f 70 74 61 62 28 69 29 20 73 68 69 66 74 20 28 2d 36 29 20 ┆ o(dyoptab(i) shift (-6) ┆
0x118c0…118e0 65 78 74 72 61 63 74 20 36 2b 6f 70 20 73 68 69 66 74 20 28 2d 36 29 2c 0a 20 20 20 20 20 20 20 ┆extract 6+op shift (-6), ┆
0x118e0…118fc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 74 74 31 28 72 70 69 6c 29 20 65 78 ┆ att1(rpil) ex┆
0x118fc…11902 (0x194,0x233)
0x11902…11920 74 72 61 63 74 20 32 2c 30 2c 31 2c 30 2c 30 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆tract 2,0,1,0,0); ┆
0x11920…11940 65 6e 64 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 6f 28 64 79 6f 70 74 61 62 28 69 ┆end else o(dyoptab(i┆
0x11940…11960 29 20 73 68 69 66 74 20 28 2d 36 29 20 65 78 74 72 61 63 74 20 36 2b 6f 70 20 73 68 69 66 74 20 ┆) shift (-6) extract 6+op shift ┆
0x11960…1197a 28 2d 36 29 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆(-6), ┆
0x1197a…11980 (0x194,0x234)
0x11980…119a0 20 20 61 74 74 31 28 72 70 69 6c 29 20 65 78 74 72 61 63 74 20 32 2c 20 72 65 6c 2c 69 6e 64 69 ┆ att1(rpil) extract 2, rel,indi┆
0x119a0…119c0 72 2c 69 6e 64 65 78 2c 64 69 73 70 6c 29 3b 0a 73 74 6f 70 64 61 6e 64 79 3a 0a 20 20 20 20 20 ┆r,index,displ); stopdandy: ┆
0x119c0…119e0 20 20 20 20 20 20 20 61 74 74 32 28 72 70 69 6c 29 3a 3d 64 79 6f 70 74 61 62 28 69 29 20 73 68 ┆ att2(rpil):=dyoptab(i) sh┆
0x119e0…11a00 69 66 74 20 28 2d 33 29 20 65 78 74 72 61 63 74 20 33 3b 0a 20 20 20 20 00 00 00 00 00 00 00 00 ┆ift (-3) extract 3; ┆
0x11a00…11a06 (141,) (0x194,0x235)
0x11a06…11a20 20 20 20 20 20 20 20 20 69 66 20 6f 70 3d 37 20 74 68 65 6e 20 61 74 74 31 28 ┆ if op=7 then att1(┆
0x11a20…11a40 72 70 69 6c 29 3a 3d 28 61 74 74 31 28 72 70 69 6c 29 2d 31 29 20 65 78 74 72 61 63 74 20 33 3b ┆rpil):=(att1(rpil)-1) extract 3;┆
0x11a40…11a60 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 20 64 61 6e 64 79 6f 70 6b 6f 64 65 3b 0a 20 0a 20 0a ┆ end dandyopkode; ┆
0x11a60…11a7e 20 20 20 20 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ comment ************┆
0x11a7e…11a84 (0x194,0x236)
0x11a84…11aa0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆****************************┆
0x11aa0…11ac0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆**************** ┆
0x11ac0…11ae0 20 20 20 20 20 20 20 20 20 20 20 20 20 73 61 6d 6d 65 6e 70 61 6b 6e 69 6e 67 20 61 66 20 6d 61 ┆ sammenpakning af ma┆
0x11ae0…11afc 73 6b 69 6e 6f 72 64 72 65 72 20 20 20 20 20 20 0a 20 20 20 20 20 20 20 20 20 20 20 ┆skinordrer ┆
0x11afc…11b02 (0x194,0x237)
0x11b02…11b20 20 20 20 20 20 20 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ ***********************┆
0x11b20…11b40 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x11b40…11b60 2a 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 70 72 6f 63 65 64 75 72 65 20 6f 28 69 6e 73 74 72 ┆*; procedure o(instr┆
0x11b60…11b7a 2c 72 65 67 2c 72 65 6c 2c 69 6e 64 69 72 2c 69 6e 64 65 78 2c 64 69 73 70 29 ┆,reg,rel,indir,index,disp)┆
0x11b7a…11b80 (0x194,0x238)
0x11b80…11ba0 3b 0a 20 20 20 20 20 20 20 20 20 20 76 61 6c 75 65 20 69 6e 73 74 72 2c 72 65 67 2c 72 65 6c 2c ┆; value instr,reg,rel,┆
0x11ba0…11bc0 69 6e 64 69 72 2c 69 6e 64 65 78 2c 64 69 73 70 3b 0a 20 20 20 20 20 20 20 20 20 20 69 6e 74 65 ┆indir,index,disp; inte┆
0x11bc0…11be0 67 65 72 20 69 6e 73 74 72 2c 72 65 67 2c 72 65 6c 2c 69 6e 64 69 72 2c 69 6e 64 65 78 2c 64 69 ┆ger instr,reg,rel,indir,index,di┆
0x11be0…11c00 73 70 3b 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 00 00 00 00 00 00 00 00 ┆sp; begin ┆
0x11c00…11c06 (142,) (0x194,0x239)
0x11c06…11c20 20 20 20 20 20 20 20 20 69 66 20 7a 70 69 6c 2d 62 6c 6f 6b 73 74 61 72 74 3e ┆ if zpil-blokstart>┆
0x11c20…11c40 31 30 32 33 20 74 68 65 6e 20 66 65 6a 6c 28 32 30 33 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆1023 then fejl(2032); ┆
0x11c40…11c60 20 20 7a 70 69 6c 3a 3d 7a 70 69 6c 2b 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 64 ┆ zpil:=zpil+1; if d┆
0x11c60…11c7e 69 73 70 3c 2d 32 30 34 38 20 74 68 65 6e 20 66 65 6a 6c 28 32 30 33 33 29 3b 0a 20 20 20 ┆isp<-2048 then fejl(2033); ┆
0x11c7e…11c84 (0x194,0x23a)
0x11c84…11ca0 20 20 20 20 20 20 20 20 20 69 66 20 64 69 73 70 3e 32 30 34 37 20 74 68 65 6e 0a 20 ┆ if disp>2047 then ┆
0x11ca0…11cc0 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 ┆ begin i┆
0x11cc0…11ce0 66 20 64 69 73 70 3e 34 30 39 34 20 6f 72 20 72 65 6c 3d 30 20 74 68 65 6e 20 66 65 6a 6c 28 32 ┆f disp>4094 or rel=0 then fejl(2┆
0x11ce0…11cfc 30 33 33 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7a 28 7a 62 61 73 65 2b ┆033); z(zbase+┆
0x11cfc…11d02 (0x194,0x23b)
0x11d02…11d20 7a 70 69 6c 29 3a 3d 39 20 73 68 69 66 74 20 31 38 20 61 64 64 20 32 30 34 36 3b 0a 20 20 ┆zpil):=9 shift 18 add 2046; ┆
0x11d20…11d40 20 20 20 20 20 20 20 20 20 20 20 20 7a 70 69 6c 3a 3d 7a 70 69 6c 2b 31 3b 0a 20 20 20 20 20 20 ┆ zpil:=zpil+1; ┆
0x11d40…11d60 20 20 20 20 20 20 20 20 64 69 73 70 3a 3d 64 69 73 70 2d 32 30 34 38 3b 0a 20 20 20 20 20 20 20 ┆ disp:=disp-2048; ┆
0x11d60…11d7a 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 7a 28 7a 62 ┆ end; z(zb┆
0x11d7a…11d80 (0x194,0x23c)
0x11d80…11da0 61 73 65 2b 7a 70 69 6c 29 3a 3d 69 6e 73 74 72 20 73 68 69 66 74 20 32 20 61 64 64 20 72 65 67 ┆ase+zpil):=instr shift 2 add reg┆
0x11da0…11dc0 20 73 68 69 66 74 20 31 20 61 64 64 20 72 65 6c 20 73 68 69 66 74 20 31 0a 20 20 20 20 20 20 20 ┆ shift 1 add rel shift 1 ┆
0x11dc0…11de0 20 20 20 20 20 20 20 20 61 64 64 20 69 6e 64 69 72 20 73 68 69 66 74 20 32 20 61 64 64 20 69 6e ┆ add indir shift 2 add in┆
0x11de0…11e00 64 65 78 20 73 68 69 66 74 20 31 32 20 61 64 64 20 28 64 69 73 70 20 65 00 00 00 00 00 00 00 00 ┆dex shift 12 add (disp e ┆
0x11e00…11e06 (143,) (0x194,0x23d)
0x11e06…11e20 78 74 72 61 63 74 20 31 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 20 ┆xtract 12); end ┆
0x11e20…11e40 6f 3b 0a 20 0a 20 0a 20 0a 20 20 20 20 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 2a 2a 2a 2a 2a ┆o; comment *****┆
0x11e40…11e60 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x11e60…11e7e 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 20 20 20 20 20 20 20 20 20 20 ┆******************* ┆
0x11e7e…11e84 (0x194,0x23e)
0x11e84…11ea0 20 20 20 20 20 20 20 20 20 20 20 69 6e 64 73 7b 74 74 65 6c 73 65 20 61 66 20 69 6e ┆ indsættelse af in┆
0x11ea0…11ec0 69 74 69 61 6c 69 73 65 72 69 6e 67 73 6b 6f 6e 73 74 61 6e 74 65 72 20 28 69 6e 63 6f 64 65 29 ┆itialiseringskonstanter (incode)┆
0x11ec0…11ee0 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ *************┆
0x11ee0…11efc 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆****************************┆
0x11efc…11f02 (0x194,0x23f)
0x11f02…11f20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 3b 0a 20 0a 20 0a 20 20 20 20 20 20 20 20 20 ┆***************; ┆
0x11f20…11f40 20 70 72 6f 63 65 64 75 72 65 20 70 6c 61 63 65 72 6b 6f 6e 73 74 28 74 79 70 65 2c 61 64 72 29 ┆ procedure placerkonst(type,adr)┆
0x11f40…11f60 3b 0a 20 20 20 20 20 20 20 20 20 20 76 61 6c 75 65 20 74 79 70 65 2c 61 64 72 3b 0a 20 20 20 20 ┆; value type,adr; ┆
0x11f60…11f7a 20 20 20 20 20 20 69 6e 74 65 67 65 72 20 74 79 70 65 2c 61 64 72 3b 0a 20 20 ┆ integer type,adr; ┆
0x11f7a…11f80 (0x194,0x240)
0x11f80…11fa0 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 63 61 73 65 20 74 ┆ begin case t┆
0x11fa0…11fc0 79 70 65 20 6f 66 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 ┆ype of begin ┆
0x11fc0…11fe0 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 2a 2a 2a 20 62 79 74 65 20 2a 2a ┆ begin comment *** byte **┆
0x11fe0…12000 2a 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 61 74 00 00 00 00 00 00 00 00 ┆*; if at ┆
0x12000…12006 (144,) (0x194,0x241)
0x12006…12020 74 32 28 73 74 61 6b 70 69 6c 29 3c 3e 39 20 74 68 65 6e 20 66 65 6a 6c 28 32 ┆t2(stakpil)<>9 then fejl(2┆
0x12020…12040 30 30 33 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 61 64 72 20 6d 6f 64 ┆003); if adr mod┆
0x12040…12060 20 32 3d 31 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7a 28 7a 62 61 73 ┆ 2=1 then z(zbas┆
0x12060…1207e 65 2b 61 64 72 2f 2f 32 29 3a 3d 7a 28 7a 62 61 73 65 2b 61 64 72 2f 2f 32 29 20 73 68 69 ┆e+adr//2):=z(zbase+adr//2) shi┆
0x1207e…12084 (0x194,0x242)
0x12084…120a0 66 74 20 28 2d 31 32 29 20 73 68 69 66 74 20 31 32 0a 20 20 20 20 20 20 20 20 20 20 ┆ft (-12) shift 12 ┆
0x120a0…120c0 20 20 20 20 20 20 20 20 20 20 61 64 64 20 28 61 74 74 33 28 73 74 61 6b 70 69 6c 29 20 65 78 74 ┆ add (att3(stakpil) ext┆
0x120c0…120e0 72 61 63 74 20 31 32 29 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7a 28 ┆ract 12) else z(┆
0x120e0…120fc 7a 62 61 73 65 2b 61 64 72 2f 2f 32 29 3a 3d 61 74 74 33 28 73 74 61 6b 70 69 6c 29 ┆zbase+adr//2):=att3(stakpil)┆
0x120fc…12102 (0x194,0x243)
0x12102…12120 20 73 68 69 66 74 20 31 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a ┆ shift 12; end; ┆
0x12120…12140 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 2a 2a 2a 20 ┆ begin comment *** ┆
0x12140…12160 72 65 66 20 2a 2a 2a 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 28 61 74 74 ┆ref ***; if (att┆
0x12160…1217a 32 28 73 74 61 6b 70 69 6c 29 3c 3e 39 20 61 6e 64 20 61 74 74 32 28 73 74 61 ┆2(stakpil)<>9 and att2(sta┆
0x1217a…12180 (0x194,0x244)
0x12180…121a0 6b 70 69 6c 29 3c 3e 31 30 29 20 61 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆kpil)<>10) and ┆
0x121a0…121c0 20 20 20 61 74 74 32 28 73 74 61 6b 70 69 6c 29 3c 3e 31 31 20 74 68 65 6e 20 66 65 6a 6c 28 32 ┆ att2(stakpil)<>11 then fejl(2┆
0x121c0…121e0 30 30 33 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7a 28 7a 62 61 73 65 2b 61 64 ┆003); z(zbase+ad┆
0x121e0…12200 72 2f 2f 32 29 3a 3d 61 74 74 33 28 73 74 61 6b 70 69 6c 29 3b 0a 20 20 00 00 00 00 00 00 00 00 ┆r//2):=att3(stakpil); ┆
0x12200…12206 (145,) (0x194,0x245)
0x12206…12220 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 ┆ end; ┆
0x12220…12240 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 2a 2a 2a 20 77 6f 72 64 20 2a 2a 2a 3b ┆ begin comment *** word ***;┆
0x12240…12260 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 61 74 74 32 28 73 74 61 6b 70 69 6c ┆ if att2(stakpil┆
0x12260…1227e 29 3c 3e 39 20 61 6e 64 20 61 74 74 32 28 73 74 61 6b 70 69 6c 29 3c 3e 31 31 20 74 68 65 ┆)<>9 and att2(stakpil)<>11 the┆
0x1227e…12284 (0x194,0x246)
0x12284…122a0 6e 20 66 65 6a 6c 28 32 30 30 33 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆n fejl(2003); ┆
0x122a0…122c0 20 20 7a 28 7a 62 61 73 65 2b 61 64 72 2f 2f 32 29 3a 3d 61 74 74 33 28 73 74 61 6b 70 69 6c 29 ┆ z(zbase+adr//2):=att3(stakpil)┆
0x122c0…122e0 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆; end; ┆
0x122e0…122fc 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 2a 2a 2a 20 72 65 61 6c 20 2a 2a ┆ begin comment *** real **┆
0x122fc…12302 (0x194,0x247)
0x12302…12320 2a 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 61 74 74 32 28 73 74 61 ┆*; if att2(sta┆
0x12320…12340 6b 70 69 6c 29 3c 3e 31 32 20 74 68 65 6e 20 66 65 6a 6c 28 32 30 30 33 29 3b 0a 20 20 20 20 20 ┆kpil)<>12 then fejl(2003); ┆
0x12340…12360 20 20 20 20 20 20 20 20 20 20 20 7a 28 7a 62 61 73 65 2b 61 64 72 2f 2f 32 29 3a 3d 61 74 74 33 ┆ z(zbase+adr//2):=att3┆
0x12360…1237a 28 73 74 61 6b 70 69 6c 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆(stakpil); ┆
0x1237a…12380 (0x194,0x248)
0x12380…123a0 20 7a 28 7a 62 61 73 65 2b 61 64 72 2f 2f 32 2d 31 29 3a 3d 61 74 74 31 28 73 74 61 6b 70 69 6c ┆ z(zbase+adr//2-1):=att1(stakpil┆
0x123a0…123c0 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆); end; ┆
0x123c0…123e0 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 2a 2a 2a 20 64 6f 75 62 6c 65 20 2a 2a 2a ┆ begin comment *** double ***┆
0x123e0…12400 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 61 74 74 00 00 00 00 00 00 00 00 ┆; if att ┆
0x12400…12406 (146,) (0x194,0x249)
0x12406…12420 32 28 73 74 61 6b 70 69 6c 29 20 65 78 74 72 61 63 74 20 31 3c 3e 31 20 74 68 ┆2(stakpil) extract 1<>1 th┆
0x12420…12440 65 6e 20 66 65 6a 6c 28 32 30 30 33 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7a ┆en fejl(2003); z┆
0x12440…12460 28 7a 62 61 73 65 2b 61 64 72 2f 2f 32 29 3a 3d 61 74 74 33 28 73 74 61 6b 70 69 6c 29 3b 0a 20 ┆(zbase+adr//2):=att3(stakpil); ┆
0x12460…1247e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7a 28 7a 62 61 73 65 2b 61 64 72 2f 2f 32 2d ┆ z(zbase+adr//2-┆
0x1247e…12484 (0x194,0x24a)
0x12484…124a0 31 29 3a 3d 61 74 74 31 28 73 74 61 6b 70 69 6c 29 3b 0a 20 20 20 20 20 20 20 20 20 ┆1):=att1(stakpil); ┆
0x124a0…124c0 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 ┆ end; end; ┆
0x124c0…124e0 20 20 20 20 20 65 6e 64 20 70 6c 61 63 65 72 6b 6f 6e 73 74 3b 0a 20 0a 20 0a 20 20 20 20 20 20 ┆ end placerkonst; ┆
0x124e0…124fc 20 20 20 20 63 6f 6d 6d 65 6e 74 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ comment ****************┆
0x124fc…12502 (0x194,0x24b)
0x12502…12520 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆******************************┆
0x12520…12540 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆********** ┆
0x12540…12560 20 62 65 72 65 67 6e 69 6e 67 20 61 66 20 75 64 74 72 79 6b 20 62 65 73 74 7d 65 6e 64 65 20 61 ┆ beregning af udtryk bestående a┆
0x12560…1257a 66 20 68 65 6c 74 61 6c 73 6b 6f 6e 73 74 61 6e 74 65 72 0a 20 20 20 20 20 20 ┆f heltalskonstanter ┆
0x1257a…12580 (0x194,0x24c)
0x12580…125a0 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ ********************┆
0x125a0…125c0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x125c0…125e0 2a 2a 2a 2a 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 70 72 6f 63 65 64 75 72 65 20 68 6b 6f 6e ┆****; procedure hkon┆
0x125e0…12600 73 74 65 78 70 72 28 6f 70 29 3b 0a 20 20 20 20 20 20 20 20 20 20 76 61 00 00 00 00 00 00 00 00 ┆stexpr(op); va ┆
0x12600…12606 (147,) (0x194,0x24d)
0x12606…12620 6c 75 65 20 6f 70 3b 0a 20 20 20 20 20 20 20 20 20 20 69 6e 74 65 67 65 72 20 ┆lue op; integer ┆
0x12620…12640 6f 70 3b 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆op; begin ┆
0x12640…12660 69 66 20 61 74 74 32 28 73 74 61 6b 70 69 6c 2d 32 29 3c 31 32 20 74 68 65 6e 20 68 6b 6f 6e 73 ┆if att2(stakpil-2)<12 then hkons┆
0x12660…1267e 74 3a 3d 61 74 74 33 28 73 74 61 6b 70 69 6c 2d 32 29 20 65 6c 73 65 0a 20 20 20 20 20 20 ┆t:=att3(stakpil-2) else ┆
0x1267e…12684 (0x194,0x24e)
0x12684…126a0 20 20 20 20 20 20 68 6b 6f 6e 73 74 3a 3d 61 74 74 31 28 73 74 61 6b 70 69 6c 2d 32 ┆ hkonst:=att1(stakpil-2┆
0x126a0…126c0 29 20 73 68 69 66 74 20 32 34 20 61 64 64 20 61 74 74 33 28 73 74 61 6b 70 69 6c 2d 32 29 3b 0a ┆) shift 24 add att3(stakpil-2); ┆
0x126c0…126e0 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 61 74 74 32 28 73 74 61 6b 70 69 6c 29 3c 31 32 20 ┆ if att2(stakpil)<12 ┆
0x126e0…126fc 74 68 65 6e 20 68 6b 6f 6e 73 74 31 3a 3d 61 74 74 33 28 73 74 61 6b 70 69 6c 29 20 ┆then hkonst1:=att3(stakpil) ┆
0x126fc…12702 (0x194,0x24f)
0x12702…12720 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 68 6b 6f 6e 73 74 31 3a 3d 61 74 74 31 ┆else hkonst1:=att1┆
0x12720…12740 28 73 74 61 6b 70 69 6c 29 20 73 68 69 66 74 20 32 34 20 61 64 64 20 61 74 74 33 28 73 74 61 6b ┆(stakpil) shift 24 add att3(stak┆
0x12740…12760 70 69 6c 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 63 61 73 65 20 6f 70 20 6f 66 0a 20 20 20 ┆pil); case op of ┆
0x12760…1277a 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ begin ┆
0x1277a…12780 (0x194,0x250)
0x12780…127a0 20 20 20 68 6b 6f 6e 73 74 3a 3d 68 6b 6f 6e 73 74 2b 68 6b 6f 6e 73 74 31 3b 0a 20 20 20 20 20 ┆ hkonst:=hkonst+hkonst1; ┆
0x127a0…127c0 20 20 20 20 20 20 20 20 20 68 6b 6f 6e 73 74 3a 3d 68 6b 6f 6e 73 74 2d 68 6b 6f 6e 73 74 31 3b ┆ hkonst:=hkonst-hkonst1;┆
0x127c0…127e0 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 68 6b 6f 6e 73 74 3a 3d 68 6b 6f 6e 73 74 2a 68 6b ┆ hkonst:=hkonst*hk┆
0x127e0…12800 6f 6e 73 74 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 0a 20 00 00 00 00 00 00 00 00 ┆onst1; ; ┆
0x12800…12806 (148,) (0x194,0x251)
0x12806…12820 20 20 20 20 20 20 20 20 20 20 20 20 20 68 6b 6f 6e 73 74 3a 3d 68 6b 6f 6e 73 ┆ hkonst:=hkons┆
0x12820…12840 74 2f 2f 68 6b 6f 6e 73 74 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 68 6b 6f 6e 73 74 ┆t//hkonst1; hkonst┆
0x12840…12860 3a 3d 68 6b 6f 6e 73 74 20 6d 6f 64 20 68 6b 6f 6e 73 74 31 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆:=hkonst mod hkonst1; ┆
0x12860…1287e 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 68 6b 6f 6e 73 74 3e 38 ┆ end; if hkonst>8┆
0x1287e…12884 (0x194,0x252)
0x12884…128a0 33 38 38 36 30 37 20 6f 72 20 68 6b 6f 6e 73 74 3c 2d 38 33 38 38 36 30 38 20 74 68 ┆388607 or hkonst<-8388608 th┆
0x128a0…128c0 65 6e 20 74 79 70 65 3a 3d 35 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 ┆en type:=5 else if┆
0x128c0…128e0 20 68 6b 6f 6e 73 74 3e 32 30 34 37 20 6f 72 20 68 6b 6f 6e 73 74 3c 2d 32 30 34 38 20 74 68 65 ┆ hkonst>2047 or hkonst<-2048 the┆
0x128e0…128fc 6e 20 74 79 70 65 3a 3d 33 20 65 6c 73 65 20 74 79 70 65 3a 3d 31 3b 0a 20 20 20 20 ┆n type:=3 else type:=1; ┆
0x128fc…12902 (0x194,0x253)
0x12902…12920 20 20 20 20 20 20 20 20 61 74 74 32 28 73 74 61 6b 70 69 6c 2d 32 29 3a 3d 31 20 73 68 69 ┆ att2(stakpil-2):=1 shi┆
0x12920…12940 66 74 20 33 20 61 64 64 20 74 79 70 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 61 74 74 31 28 ┆ft 3 add type; att1(┆
0x12940…12960 73 74 61 6b 70 69 6c 2d 32 29 3a 3d 68 6b 6f 6e 73 74 20 73 68 69 66 74 20 28 2d 32 34 29 3b 0a ┆stakpil-2):=hkonst shift (-24); ┆
0x12960…1297a 20 20 20 20 20 20 20 20 20 20 20 20 61 74 74 33 28 73 74 61 6b 70 69 6c 2d 32 ┆ att3(stakpil-2┆
0x1297a…12980 (0x194,0x254)
0x12980…129a0 29 3a 3d 68 6b 6f 6e 73 74 20 65 78 74 72 61 63 74 20 32 34 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆):=hkonst extract 24; ┆
0x129a0…129c0 65 6e 64 20 68 6b 6f 6e 73 74 65 78 70 72 3b 0a 20 0a 20 0a 20 20 20 20 20 20 20 20 20 20 63 6f ┆end hkonstexpr; co┆
0x129c0…129e0 6d 6d 65 6e 74 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆mment **************************┆
0x129e0…12a00 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 00 00 00 00 00 00 00 ┆************************ ┆
0x12a00…12a06 (149,) (0x194,0x255)
0x12a06…12a20 2a 2a 2a 2a 2a 2a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆****** ┆
0x12a20…12a40 20 20 62 65 72 65 67 6e 69 6e 67 20 75 64 74 72 79 6b 20 62 65 73 74 7d 65 6e 64 65 20 61 66 20 ┆ beregning udtryk bestående af ┆
0x12a40…12a60 72 65 65 6c 74 61 6c 73 6b 6f 6e 73 74 61 6e 74 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆reeltalskonstanter ┆
0x12a60…12a7e 20 20 20 20 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ *************************┆
0x12a7e…12a84 (0x194,0x256)
0x12a84…12aa0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆****************************┆
0x12aa0…12ac0 2a 2a 2a 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 70 72 6f 63 65 64 75 72 65 20 72 6b 6f 6e 73 ┆***; procedure rkons┆
0x12ac0…12ae0 74 65 78 70 72 28 6f 70 29 3b 0a 20 20 20 20 20 20 20 20 20 20 76 61 6c 75 65 20 6f 70 3b 0a 20 ┆texpr(op); value op; ┆
0x12ae0…12afc 20 20 20 20 20 20 20 20 20 69 6e 74 65 67 65 72 20 6f 70 3b 0a 20 20 20 20 20 20 20 ┆ integer op; ┆
0x12afc…12b02 (0x194,0x257)
0x12b02…12b20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 72 6b 6f 6e 73 74 3a 3d 61 ┆ begin rkonst:=a┆
0x12b20…12b40 74 74 31 28 73 74 61 6b 70 69 6c 2d 32 29 20 73 68 69 66 74 20 32 34 20 61 64 64 20 61 74 74 33 ┆tt1(stakpil-2) shift 24 add att3┆
0x12b40…12b60 28 73 74 61 6b 70 69 6c 2d 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 72 6b 6f 6e 73 74 31 ┆(stakpil-2); rkonst1┆
0x12b60…12b7a 3a 3d 61 74 74 31 28 73 74 61 6b 70 69 6c 29 20 73 68 69 66 74 20 32 34 20 61 ┆:=att1(stakpil) shift 24 a┆
0x12b7a…12b80 (0x194,0x258)
0x12b80…12ba0 64 64 20 61 74 74 33 28 73 74 61 6b 70 69 6c 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 63 61 ┆dd att3(stakpil); ca┆
0x12ba0…12bc0 73 65 20 6f 70 20 6f 66 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 ┆se op of begin ┆
0x12bc0…12be0 20 20 20 20 20 20 20 20 20 72 6b 6f 6e 73 74 3a 3d 72 6b 6f 6e 73 74 2b 72 6b 6f 6e 73 74 31 3b ┆ rkonst:=rkonst+rkonst1;┆
0x12be0…12c00 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 6b 6f 6e 73 74 3a 3d 72 00 00 00 00 00 00 00 00 ┆ rkonst:=r ┆
0x12c00…12c06 (150,) (0x194,0x259)
0x12c06…12c20 6b 6f 6e 73 74 2d 72 6b 6f 6e 73 74 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆konst-rkonst1; ┆
0x12c20…12c40 20 20 20 72 6b 6f 6e 73 74 3a 3d 72 6b 6f 6e 73 74 2a 72 6b 6f 6e 73 74 31 3b 0a 20 20 20 20 20 ┆ rkonst:=rkonst*rkonst1; ┆
0x12c40…12c60 20 20 20 20 20 20 20 20 20 72 6b 6f 6e 73 74 3a 3d 72 6b 6f 6e 73 74 2f 72 6b 6f 6e 73 74 31 3b ┆ rkonst:=rkonst/rkonst1;┆
0x12c60…12c7e 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ end; ┆
0x12c7e…12c84 (0x194,0x25a)
0x12c84…12ca0 61 74 74 33 28 73 74 61 6b 70 69 6c 2d 32 29 3a 3d 72 6b 6f 6e 73 74 20 65 78 74 72 ┆att3(stakpil-2):=rkonst extr┆
0x12ca0…12cc0 61 63 74 20 32 34 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 61 74 74 31 28 73 74 61 6b 70 69 6c ┆act 24; att1(stakpil┆
0x12cc0…12ce0 2d 32 29 3a 3d 72 6b 6f 6e 73 74 20 73 68 69 66 74 20 28 2d 32 34 29 3b 0a 20 20 20 20 20 20 20 ┆-2):=rkonst shift (-24); ┆
0x12ce0…12cfc 20 20 20 65 6e 64 20 72 6b 6f 6e 73 74 65 78 70 72 3b 0a 20 0a 20 0a 20 0a 20 20 20 ┆ end rkonstexpr; ┆
0x12cfc…12d02 (0x194,0x25b)
0x12d02…12d20 20 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ comment ***************┆
0x12d20…12d40 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x12d40…12d60 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 61 ┆********* ca┆
0x12d60…12d7a 73 65 2d 6b 6f 6e 73 74 72 75 6b 74 69 6f 6e 20 69 6e 64 65 68 6f 6c 64 65 6e ┆se-konstruktion indeholden┆
0x12d7a…12d80 (0x194,0x25c)
0x12d80…12da0 64 65 20 73 65 6d 61 6e 74 69 6b 6b 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆de semantikken ┆
0x12da0…12dc0 20 20 20 68 7c 72 65 6e 64 65 20 74 69 6c 20 64 65 20 65 6e 6b 65 6c 74 65 20 70 72 6f 64 75 6b ┆ hørende til de enkelte produk┆
0x12dc0…12de0 74 69 6f 6e 65 72 20 69 20 73 70 72 6f 67 65 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆tioner i sproget ┆
0x12de0…12e00 20 20 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 00 00 00 00 00 00 00 ┆ ********************* ┆
0x12e00…12e06 (151,) (0x194,0x25d)
0x12e06…12e20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆**************************┆
0x12e20…12e40 2a 2a 2a 2a 2a 2a 2a 2a 2a 3b 0a 20 0a 20 0a 20 20 20 20 20 20 20 20 20 20 63 61 73 65 20 70 72 ┆*********; case pr┆
0x12e40…12e60 6f 64 6e 72 20 6f 66 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 ┆odnr of begin ┆
0x12e60…12e7e 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 2d 2d 2d 2d 2d 20 70 72 6f 67 72 61 ┆ begin comment ----- progra┆
0x12e7e…12e84 (0x194,0x25e)
0x12e84…12ea0 6d 20 3a 3a 3d 20 6b 72 6f 70 73 74 61 72 74 34 20 65 6e 64 20 2e 20 2d 2d 2d 2d 2d ┆m ::= kropstart4 end . -----┆
0x12ea0…12ec0 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 72 6f 63 75 64 28 74 72 75 65 29 3b 0a ┆; procud(true); ┆
0x12ec0…12ee0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 70 61 73 73 73 74 6f 70 3b 0a 20 20 20 ┆ goto passstop; ┆
0x12ee0…12efc 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 0a 20 20 20 20 20 20 20 20 20 ┆ end; ┆
0x12efc…12f02 (0x194,0x25f)
0x12f02…12f20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 2d 2d 2d 2d 2d 20 6b 72 6f 70 73 74 61 ┆ begin comment ----- kropsta┆
0x12f20…12f40 72 74 31 20 3a 3a 3d 20 6e 61 76 6e 20 62 65 67 69 6e 20 2d 2d 2d 2d 2d 3b 0a 20 0a 20 20 20 20 ┆rt1 ::= navn begin -----; ┆
0x12f40…12f60 20 20 20 20 20 20 20 20 20 20 72 65 63 6f 76 70 6f 69 6e 74 3a 3d 73 74 61 6b 70 69 6c 2d 31 3b ┆ recovpoint:=stakpil-1;┆
0x12f60…12f7a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 74 74 31 28 73 74 61 6b 70 69 ┆ att1(stakpi┆
0x12f7a…12f80 (0x194,0x260)
0x12f80…12fa0 6c 29 3a 3d 61 74 74 31 28 73 74 61 6b 70 69 6c 2d 31 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆l):=att1(stakpil-1); ┆
0x12fa0…12fc0 20 20 20 61 74 74 32 28 73 74 61 6b 70 69 6c 29 3a 3d 61 74 74 32 28 73 74 61 6b 70 69 6c 2d 31 ┆ att2(stakpil):=att2(stakpil-1┆
0x12fc0…12fe0 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 74 74 33 28 73 74 61 6b 70 69 6c 29 3a 3d ┆); att3(stakpil):=┆
0x12fe0…13000 61 74 74 33 28 73 74 61 6b 70 69 6c 2d 31 29 3b 0a 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆att3(stakpil-1); ┆
0x13000…13006 (152,) (0x194,0x261)
0x13006…13020 20 20 20 20 20 20 20 61 74 74 31 28 73 74 61 6b 70 69 6c 2d 31 29 3a 3d 69 64 ┆ att1(stakpil-1):=id┆
0x13020…13040 74 61 62 70 69 6c 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 74 74 32 28 73 74 61 6b 70 ┆tabpil; att2(stakp┆
0x13040…13060 69 6c 2d 31 29 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 74 74 33 28 73 74 61 ┆il-1):=0; att3(sta┆
0x13060…1307e 6b 70 69 6c 2d 31 29 3a 3d 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6b 72 6f 70 ┆kpil-1):=1; krop┆
0x1307e…13084 (0x194,0x262)
0x13084…130a0 6e 69 76 3a 3d 6b 72 6f 70 6e 69 76 2b 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆niv:=kropniv+1; ┆
0x130a0…130c0 20 20 64 79 6e 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 72 69 65 72 6b 6c 3a ┆ dyn:=0; frierkl:┆
0x130c0…130e0 3d 74 72 75 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f 64 65 3a 3d 34 3b 0a 20 20 ┆=true; mode:=4; ┆
0x130e0…130fc 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 6b 72 6f 70 6e 69 76 3e 31 20 74 68 65 ┆ if kropniv>1 the┆
0x130fc…13102 (0x194,0x263)
0x13102…13120 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 ┆n begin ┆
0x13120…13140 20 20 20 20 20 20 20 20 61 74 74 33 28 73 74 61 6b 70 69 6c 2d 31 29 3a 3d 69 64 74 61 62 73 7c ┆ att3(stakpil-1):=idtabsø┆
0x13140…13160 67 65 72 28 73 74 61 6b 70 69 6c 2c 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ger(stakpil,2); ┆
0x13160…1317a 69 66 20 69 64 74 61 62 34 28 61 74 74 33 28 73 74 61 6b 70 69 6c 2d 31 29 29 ┆if idtab4(att3(stakpil-1))┆
0x1317a…13180 (0x194,0x264)
0x13180…131a0 20 73 68 69 66 74 20 28 2d 34 29 20 65 78 74 72 61 63 74 20 34 3c 3e 35 0a 20 20 20 20 20 20 20 ┆ shift (-4) extract 4<>5 ┆
0x131a0…131c0 20 20 20 20 20 20 20 20 20 20 20 20 74 68 65 6e 20 66 65 6a 6c 28 32 30 30 33 29 3b 0a 20 20 20 ┆ then fejl(2003); ┆
0x131c0…131e0 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65 ┆ end; re┆
0x131e0…13200 6c 61 64 72 28 33 29 3a 3d 2d 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ladr(3):=-1; ┆
0x13200…13206 (153,) (0x194,0x265)
0x13206…13220 20 20 20 69 66 20 6b 72 6f 70 6e 69 76 3e 31 20 74 68 65 6e 20 72 65 6c 61 64 ┆ if kropniv>1 then relad┆
0x13220…13240 72 28 32 29 3a 3d 32 2a 7a 70 69 6c 2b 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b ┆r(2):=2*zpil+1; end;┆
0x13240…13260 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 2d 2d 2d ┆ begin comment ---┆
0x13260…1327e 2d 2d 20 6b 72 6f 70 73 74 61 72 74 31 20 3a 3a 3d 20 6b 72 6f 70 73 74 61 72 74 31 20 63 ┆-- kropstart1 ::= kropstart1 c┆
0x1327e…13284 (0x194,0x266)
0x13284…132a0 6f 6d 70 6b 6f 6d 20 2d 2d 2d 2d 2d 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ompkom ----- ┆
0x132a0…132c0 20 69 66 20 6b 72 6f 70 6e 69 76 3e 31 20 6f 72 20 28 61 74 74 31 28 73 74 61 6b 70 69 6c 29 3e ┆ if kropniv>1 or (att1(stakpil)>┆
0x132c0…132e0 30 20 61 6e 64 20 61 74 74 31 28 73 74 61 6b 70 69 6c 29 3c 3e 33 0a 20 20 20 20 20 20 20 20 20 ┆0 and att1(stakpil)<>3 ┆
0x132e0…132fc 20 20 20 20 20 20 20 20 74 68 65 6e 20 66 65 6a 6c 28 32 30 30 34 29 3b 0a 20 20 20 ┆ then fejl(2004); ┆
0x132fc…13302 (0x194,0x267)
0x13302…13320 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 ┆ end; be┆
0x13320…13340 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 2d 2d 2d 2d 2d 20 6b 72 6f 70 73 74 61 72 74 31 20 3a 3a 3d ┆gin comment ----- kropstart1 ::=┆
0x13340…13360 20 6b 72 6f 70 73 74 61 72 74 31 20 73 6b 20 2d 2d 2d 2d 2d 3b 0a 20 0a 20 20 20 20 20 20 20 20 ┆ kropstart1 sk -----; ┆
0x13360…1337a 20 20 20 20 65 6e 64 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 ┆ end; beg┆
0x1337a…13380 (0x194,0x268)
0x13380…133a0 69 6e 20 63 6f 6d 6d 65 6e 74 20 2d 2d 2d 2d 2d 20 6b 72 6f 70 73 74 61 72 74 32 20 3a 3a 3d 20 ┆in comment ----- kropstart2 ::= ┆
0x133a0…133c0 6b 72 6f 70 73 74 61 72 74 31 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆kropstart1 ┆
0x133c0…133e0 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 6d 6f 64 65 65 72 ┆ modeer┆
0x133e0…13400 6b 6c 20 65 72 6b 6c 7b 72 69 6e 67 0a 20 0a 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆kl erklæring ┆
0x13400…13406 (154,) (0x194,0x269)
0x13406…13420 20 20 20 20 20 69 66 20 61 74 74 31 28 73 74 61 6b 70 69 6c 29 3c 31 20 74 68 ┆ if att1(stakpil)<1 th┆
0x13420…13440 65 6e 20 66 65 6a 6c 28 32 30 30 34 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 74 74 ┆en fejl(2004); att┆
0x13440…13460 32 28 73 74 61 6b 70 69 6c 2d 32 29 3a 3d 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 ┆2(stakpil-2):=1; end┆
0x13460…1347e 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 ┆; begin comment ┆
0x1347e…13484 (0x194,0x26a)
0x13484…134a0 2d 2d 2d 2d 2d 20 6b 72 6f 70 73 74 61 72 74 32 20 3a 3a 3d 20 6b 72 6f 70 73 74 61 ┆----- kropstart2 ::= kropsta┆
0x134a0…134c0 72 74 31 20 65 72 6b 6c 7b 72 69 6e 67 20 2d 2d 2d 2d 2d 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 ┆rt1 erklæring -----; ┆
0x134c0…134e0 20 20 20 20 20 61 74 74 32 28 73 74 61 6b 70 69 6c 2d 31 29 3a 3d 61 74 74 31 28 73 74 61 6b 70 ┆ att2(stakpil-1):=att1(stakp┆
0x134e0…134fc 69 6c 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 61 74 74 31 28 73 ┆il); if att1(s┆
0x134fc…13502 (0x194,0x26b)
0x13502…13520 74 61 6b 70 69 6c 29 20 3d 20 30 20 74 68 65 6e 20 61 74 74 31 28 73 74 61 6b 70 69 6c 2d ┆takpil) = 0 then att1(stakpil-┆
0x13520…13540 31 29 3a 3d 69 64 74 61 62 70 69 6c 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 ┆1):=idtabpil; end; ┆
0x13540…13560 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 2d 2d 2d 2d 2d ┆ begin comment -----┆
0x13560…1357a 20 6b 72 6f 70 73 74 61 72 74 32 20 3a 3a 3d 20 6b 72 6f 70 73 74 61 72 74 32 ┆ kropstart2 ::= kropstart2┆
0x1357a…13580 (0x194,0x26c)
0x13580…135a0 20 0a 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 ┆ ┆
0x135a0…135c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 6b 20 65 72 6b 6c 7b 72 69 6e 67 20 2d 2d ┆ sk erklæring --┆
0x135c0…135e0 2d 2d 2d 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 61 74 74 31 28 73 74 61 ┆---; if att1(sta┆
0x135e0…13600 6b 70 69 6c 29 3c 61 74 74 32 28 73 74 61 6b 70 69 6c 2d 32 29 20 74 68 00 00 00 00 00 00 00 00 ┆kpil)<att2(stakpil-2) th ┆
0x13600…13606 (155,) (0x194,0x26d)
0x13606…13620 65 6e 20 66 65 6a 6c 28 32 30 30 34 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆en fejl(2004); ┆
0x13620…13640 20 20 20 69 66 20 61 74 74 31 28 73 74 61 6b 70 69 6c 29 20 3d 20 30 20 74 68 65 6e 20 61 74 74 ┆ if att1(stakpil) = 0 then att┆
0x13640…13660 31 28 73 74 61 6b 70 69 6c 2d 32 29 3a 3d 69 64 74 61 62 70 69 6c 3b 0a 20 20 20 20 20 20 20 20 ┆1(stakpil-2):=idtabpil; ┆
0x13660…1367e 20 20 20 20 20 20 61 74 74 32 28 73 74 61 6b 70 69 6c 2d 32 29 3a 3d 61 74 74 31 28 73 74 ┆ att2(stakpil-2):=att1(st┆
0x1367e…13684 (0x194,0x26e)
0x13684…136a0 61 6b 70 69 6c 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 0a 20 ┆akpil); end; ┆
0x136a0…136c0 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 2d 2d 2d 2d 2d 20 6b ┆ begin comment ----- k┆
0x136c0…136e0 72 6f 70 73 74 61 72 74 32 20 3a 3a 3d 20 6b 72 6f 70 73 74 61 72 74 32 20 73 6b 0a 20 20 20 20 ┆ropstart2 ::= kropstart2 sk ┆
0x136e0…136fc 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 ┆ ┆
0x136fc…13702 (0x194,0x26f)
0x13702…13720 20 20 20 20 20 20 20 20 20 20 20 6d 6f 64 65 65 72 6b 6c 20 65 72 6b 6c 7b 72 69 6e 67 20 ┆ modeerkl erklæring ┆
0x13720…13740 2d 2d 2d 2d 2d 3b 0a 20 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 61 74 74 31 28 ┆-----; if att1(┆
0x13740…13760 73 74 61 6b 70 69 6c 29 3d 30 20 74 68 65 6e 20 66 65 6a 6c 28 32 30 30 34 29 3b 0a 20 20 20 20 ┆stakpil)=0 then fejl(2004); ┆
0x13760…1377a 20 20 20 20 20 20 20 20 20 20 61 74 74 32 28 73 74 61 6b 70 69 6c 2d 33 29 3a ┆ att2(stakpil-3):┆
0x1377a…13780 (0x194,0x270)
0x13780…137a0 3d 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 ┆=2; end; ┆
0x137a0…137c0 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 2d 2d 2d 2d 2d 20 6b 72 6f 70 73 74 61 72 74 ┆ begin comment ----- kropstart┆
0x137c0…137e0 33 20 3a 3a 3d 20 6b 72 6f 70 73 74 61 72 74 32 20 73 6b 20 62 65 67 69 6e 20 2d 2d 2d 2d 2d 3b ┆3 ::= kropstart2 sk begin -----;┆
0x137e0…13800 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 64 79 6e 3d 00 00 00 00 00 00 00 00 ┆ if dyn= ┆
0x13800…13806 (156,) (0x194,0x271)
0x13806…13820 31 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e ┆1 then begin┆
0x13820…13840 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7a 70 69 6c 3a 3d 72 65 6c 61 64 72 28 32 29 ┆ zpil:=reladr(2)┆
0x13840…13860 2f 2f 32 2b 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 79 6e 72 65 66 3a 3d 32 ┆//2+2; dynref:=2┆
0x13860…1387e 2a 7a 70 69 6c 2d 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 20 65 6c 73 ┆*zpil-1; end els┆
0x1387e…13884 (0x194,0x272)
0x13884…138a0 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 ┆e begin ┆
0x138a0…138c0 20 20 20 20 20 20 20 20 20 20 7a 70 69 6c 3a 3d 72 65 6c 61 64 72 28 32 29 2f 2f 32 2b 31 3b 0a ┆ zpil:=reladr(2)//2+1; ┆
0x138c0…138e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 79 6e 72 65 66 3a 3d 2d 35 30 30 30 3b 0a 20 ┆ dynref:=-5000; ┆
0x138e0…138fc 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆ end; ┆
0x138fc…13902 (0x194,0x273)
0x13902…13920 20 20 20 20 62 61 73 69 73 72 65 66 3a 3d 7a 70 69 6c 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆ basisref:=zpil; ┆
0x13920…13940 20 20 20 20 7a 28 7a 62 61 73 65 2b 7a 70 69 6c 29 3a 3d 2d 32 2a 7a 70 69 6c 3b 0a 20 20 20 20 ┆ z(zbase+zpil):=-2*zpil; ┆
0x13940…13960 20 20 20 20 20 20 20 20 20 20 69 66 20 6b 72 6f 70 6e 69 76 3d 31 20 74 68 65 6e 20 0a 20 20 20 ┆ if kropniv=1 then ┆
0x13960…1397a 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 ┆ begin ┆
0x1397a…13980 (0x194,0x274)
0x13980…139a0 20 20 20 20 20 20 20 61 74 74 31 28 73 74 61 6b 70 69 6c 2d 32 29 3a 3d 69 64 74 61 62 70 69 6c ┆ att1(stakpil-2):=idtabpil┆
0x139a0…139c0 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 68 70 74 6f 70 3a 3d 69 64 74 61 62 70 69 ┆; hptop:=idtabpi┆
0x139c0…139e0 6c 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 2d 2c 20 66 70 20 74 68 65 6e ┆l; if -, fp then┆
0x139e0…13a00 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 00 00 00 00 00 00 00 00 ┆ begin ┆
0x13a00…13a06 (157,) (0x194,0x275)
0x13a06…13a20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7a 70 69 6c 3a 3d 7a 70 69 ┆ zpil:=zpi┆
0x13a20…13a40 6c 2b 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 6e 64 68 6f 70 3a 3d 32 ┆l+2; indhop:=2┆
0x13a40…13a60 2a 7a 70 69 6c 2b 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 28 32 33 2c ┆*zpil+2; o(23,┆
0x13a60…13a7e 30 2c 31 2c 30 2c 30 2c 2d 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 28 32 ┆0,1,0,0,-2); o(2┆
0x13a7e…13a84 (0x194,0x276)
0x13a84…13aa0 33 2c 33 2c 31 2c 30 2c 30 2c 2d 36 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆3,3,1,0,0,-6); ┆
0x13aa0…13ac0 20 20 20 20 20 6f 28 32 30 2c 31 2c 30 2c 30 2c 33 2c 32 32 29 3b 0a 20 20 20 20 20 20 20 20 20 ┆ o(20,1,0,0,3,22); ┆
0x13ac0…13ae0 20 20 20 20 20 20 20 65 6e 64 20 65 6c 73 65 20 69 6e 64 68 6f 70 3a 3d 32 2a 7a 70 69 6c 2d 31 ┆ end else indhop:=2*zpil-1┆
0x13ae0…13afc 35 33 34 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 28 37 2c 31 2c 31 ┆534; o(7,1,1┆
0x13afc…13b02 (0x194,0x277)
0x13b02…13b20 2c 30 2c 30 2c 66 70 70 6c 61 64 73 2d 32 2a 28 7a 70 69 6c 2b 31 29 29 3b 0a 20 20 20 20 ┆,0,0,fpplads-2*(zpil+1)); ┆
0x13b20…13b40 20 20 20 20 20 20 20 20 20 20 20 20 6f 28 32 33 2c 31 2c 31 2c 30 2c 30 2c 66 70 70 6c 61 64 73 ┆ o(23,1,1,0,0,fpplads┆
0x13b40…13b60 2d 32 2a 28 7a 70 69 6c 2b 31 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 28 ┆-2*(zpil+1)); o(┆
0x13b60…13b7a 31 31 2c 31 2c 30 2c 30 2c 30 2c 30 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆11,1,0,0,0,0); ┆
0x13b7a…13b80 (0x194,0x278)
0x13b80…13ba0 20 20 20 20 20 6f 28 31 31 2c 31 2c 30 2c 30 2c 31 2c 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆ o(11,1,0,0,1,2); ┆
0x13ba0…13bc0 20 20 20 20 20 20 6f 28 34 33 2c 31 2c 30 2c 30 2c 30 2c 32 2a 28 70 72 6f 63 61 6e 74 61 6c 2b ┆ o(43,1,0,0,0,2*(procantal+┆
0x13bc0…13be0 6b 6e 75 64 65 61 6e 74 61 6c 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 28 ┆knudeantal)); o(┆
0x13be0…13c00 31 33 2c 30 2c 31 2c 30 2c 30 2c 31 30 29 3b 0a 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆13,0,1,0,0,10); ┆
0x13c00…13c06 (158,) (0x194,0x279)
0x13c06…13c20 20 20 20 20 20 20 20 20 6f 28 32 30 2c 30 2c 31 2c 30 2c 30 2c 66 70 70 6c 61 ┆ o(20,0,1,0,0,fppla┆
0x13c20…13c40 64 73 2d 32 2a 28 7a 70 69 6c 2b 31 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ds-2*(zpil+1)); ┆
0x13c40…13c60 6f 28 37 2c 30 2c 31 2c 30 2c 31 2c 66 70 70 6c 61 64 73 2d 32 2a 28 7a 70 69 6c 2b 31 29 29 3b ┆o(7,0,1,0,1,fpplads-2*(zpil+1));┆
0x13c60…13c7e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 28 32 33 2c 30 2c 31 2c 30 2c 31 2c ┆ o(23,0,1,0,1,┆
0x13c7e…13c84 (0x194,0x27a)
0x13c84…13ca0 66 70 70 6c 61 64 73 2d 32 2a 28 7a 70 69 6c 2b 31 29 29 3b 0a 20 20 20 20 20 20 20 ┆fpplads-2*(zpil+1)); ┆
0x13ca0…13cc0 20 20 20 20 20 20 20 20 20 6f 28 31 33 2c 30 2c 31 2c 30 2c 30 2c 2d 31 32 29 3b 0a 20 20 20 20 ┆ o(13,0,1,0,0,-12); ┆
0x13cc0…13ce0 20 20 20 20 20 20 20 20 20 20 20 20 6f 28 32 30 2c 31 2c 31 2c 30 2c 30 2c 66 70 70 6c 61 64 73 ┆ o(20,1,1,0,0,fpplads┆
0x13ce0…13cfc 2d 32 2a 28 7a 70 69 6c 2b 31 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆-2*(zpil+1)); ┆
0x13cfc…13d02 (0x194,0x27b)
0x13d02…13d20 20 20 69 66 20 2d 2c 20 66 70 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ if -, fp then ┆
0x13d20…13d40 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 28 31 31 2c 33 ┆ begin o(11,3┆
0x13d40…13d60 2c 31 2c 30 2c 30 2c 32 2a 28 70 72 6f 63 61 6e 74 61 6c 2b 6b 6e 75 64 65 61 6e 74 61 6c 2b 67 ┆,1,0,0,2*(procantal+knudeantal+g┆
0x13d60…13d7a 72 65 6e 61 6e 74 61 6c 2d 31 2d 7a 70 69 6c 29 2b 66 70 70 6c 61 64 73 29 3b ┆renantal-1-zpil)+fpplads);┆
0x13d7a…13d80 (0x194,0x27c)
0x13d80…13da0 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 28 31 34 2c 30 2c 30 2c 30 2c 30 2c ┆ o(14,0,0,0,0,┆
0x13da0…13dc0 2d 31 39 39 36 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 28 32 30 2c 30 ┆-1996); o(20,0┆
0x13dc0…13de0 2c 31 2c 30 2c 30 2c 2d 33 34 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 28 32 30 2c ┆,1,0,0,-34); o(20,┆
0x13de0…13e00 33 2c 31 2c 30 2c 30 2c 2d 33 38 29 3b 0a 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆3,1,0,0,-38); ┆
0x13e00…13e06 (159,) (0x194,0x27d)
0x13e06…13e20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 ┆ end; e┆
0x13e20…13e40 6e 64 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 72 6f 63 74 61 62 28 69 64 ┆nd else proctab(id┆
0x13e40…13e60 74 61 62 34 28 61 74 74 33 28 73 74 61 6b 70 69 6c 2d 32 29 29 20 73 68 69 66 74 20 28 2d 31 36 ┆tab4(att3(stakpil-2)) shift (-16┆
0x13e60…13e7e 29 29 3a 3d 32 2a 7a 70 69 6c 2b 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b ┆)):=2*zpil+2; end;┆
0x13e7e…13e84 (0x194,0x27e)
0x13e84…13ea0 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 ┆ begin comment┆
0x13ea0…13ec0 20 2d 2d 2d 2d 2d 20 6b 72 6f 70 73 74 61 72 74 34 20 3a 3a 3d 20 6b 72 6f 70 73 74 61 72 74 33 ┆ ----- kropstart4 ::= kropstart3┆
0x13ec0…13ee0 20 73 7b 74 6e 6c 69 73 74 65 20 65 6e 64 20 2d 2d 2d 2d 2d 3b 0a 20 20 0a 20 20 20 20 20 20 20 ┆ sætnliste end -----; ┆
0x13ee0…13efc 20 20 20 20 20 20 20 72 65 63 6f 76 70 6f 69 6e 74 3a 3d 73 74 61 6b 70 69 6c 2d 32 ┆ recovpoint:=stakpil-2┆
0x13efc…13f02 (0x194,0x27f)
0x13f02…13f20 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 6b 72 6f 70 6e 69 76 3e 31 20 74 ┆; if kropniv>1 t┆
0x13f20…13f40 68 65 6e 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 ┆hen begin ┆
0x13f40…13f60 20 20 20 20 20 20 20 20 20 6a 3a 3d 61 74 74 33 28 73 74 61 6b 70 69 6c 2d 32 29 3b 0a 20 20 20 ┆ j:=att3(stakpil-2); ┆
0x13f60…13f7a 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 6e 3a 3d 30 20 77 68 69 6c ┆ for n:=0 whil┆
0x13f7a…13f80 (0x194,0x280)
0x13f80…13fa0 65 20 69 64 74 61 62 31 28 6a 29 3c 3e 30 20 64 6f 20 6a 3a 3d 6a 2b 31 3b 0a 20 20 20 20 20 20 ┆e idtab1(j)<>0 do j:=j+1; ┆
0x13fa0…13fc0 20 20 20 20 20 20 20 20 20 20 6f 28 31 33 2c 30 2c 30 2c 30 2c 69 64 74 61 62 34 28 61 74 74 33 ┆ o(13,0,0,0,idtab4(att3┆
0x13fc0…13fe0 28 73 74 61 6b 70 69 6c 2d 32 29 29 20 73 68 69 66 74 20 28 2d 31 32 29 20 65 78 74 72 61 63 74 ┆(stakpil-2)) shift (-12) extract┆
0x13fe0…14000 20 32 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 64 00 00 00 00 00 00 00 00 ┆ 2, id ┆
0x14000…14006 (160,) (0x194,0x281)
0x14006…14020 74 61 62 33 28 6a 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆tab3(j)); ┆
0x14020…14040 69 64 74 61 62 70 69 6c 3a 3d 63 75 72 72 69 64 6c 69 6d 69 74 3a 3d 61 74 74 31 28 73 74 61 6b ┆idtabpil:=curridlimit:=att1(stak┆
0x14040…14060 70 69 6c 2d 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 20 65 6c 73 65 0a 20 ┆pil-2); end else ┆
0x14060…1407e 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ begin ┆
0x1407e…14084 (0x194,0x282)
0x14084…140a0 20 20 20 20 20 69 66 20 66 70 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ if fp then ┆
0x140a0…140c0 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 28 31 31 ┆ begin o(11┆
0x140c0…140e0 2c 32 2c 30 2c 30 2c 30 2c 30 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 ┆,2,0,0,0,0); i┆
0x140e0…140fc 66 20 34 38 2d 32 2a 28 7a 70 69 6c 2d 31 29 3c 3d 32 30 34 38 20 74 68 65 6e 0a 20 ┆f 48-2*(zpil-1)<=2048 then ┆
0x140fc…14102 (0x194,0x283)
0x14102…14120 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 ┆ begin ┆
0x14120…14140 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 28 39 2c 30 2c 31 2c 31 2c 30 2c 28 62 61 73 69 73 72 ┆ o(9,0,1,1,0,(basisr┆
0x14140…14160 65 66 2d 7a 70 69 6c 2d 31 29 2a 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ef-zpil-1)*2); ┆
0x14160…1417a 20 20 20 6f 28 31 33 2c 30 2c 31 2c 30 2c 30 2c 34 38 2b 32 2a 28 62 61 73 69 ┆ o(13,0,1,0,0,48+2*(basi┆
0x1417a…14180 (0x194,0x284)
0x14180…141a0 73 72 65 66 2d 7a 70 69 6c 2d 31 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆sref-zpil-1)); ┆
0x141a0…141c0 20 65 6e 64 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 28 31 33 ┆ end else o(13┆
0x141c0…141e0 2c 30 2c 31 2c 30 2c 30 2c 34 38 2d 32 2a 28 7a 70 69 6c 2b 31 29 29 3b 0a 20 20 20 20 20 20 20 ┆,0,1,0,0,48-2*(zpil+1)); ┆
0x141e0…14200 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ end; ┆
0x14200…14206 (161,) (0x194,0x285)
0x14206…14220 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 6e 64 ┆ end; ind┆
0x14220…14240 6b 74 61 62 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 6e 64 73 7b 74 68 6f 70 3b 0a 20 ┆ktab; indsæthop; ┆
0x14240…14260 20 20 20 20 20 20 20 20 20 20 20 20 20 70 72 6f 63 75 64 28 66 61 6c 73 65 29 3b 0a 20 20 20 20 ┆ procud(false); ┆
0x14260…1427e 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 ┆ end; beg┆
0x1427e…14284 (0x194,0x286)
0x14284…142a0 69 6e 20 63 6f 6d 6d 65 6e 74 20 2d 2d 2d 2d 2d 20 6b 72 6f 70 73 74 61 72 74 34 20 ┆in comment ----- kropstart4 ┆
0x142a0…142c0 3a 3a 3d 20 6b 72 6f 70 73 74 61 72 74 34 20 73 6b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆::= kropstart4 sk ┆
0x142c0…142e0 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 62 6f 64 ┆ bod┆
0x142e0…142fc 79 20 6f 66 20 6b 72 6f 70 73 74 61 72 74 34 20 65 6e 64 20 2d 2d 2d 2d 2d 3b 0a 20 ┆y of kropstart4 end -----; ┆
0x142fc…14302 (0x194,0x287)
0x14302…14320 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65 63 6f 76 70 6f 69 6e 74 3a 3d 73 74 61 ┆ recovpoint:=sta┆
0x14320…14340 6b 70 69 6c 2d 35 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6b 72 6f 70 6e 69 76 3a 3d 6b ┆kpil-5; kropniv:=k┆
0x14340…14360 72 6f 70 6e 69 76 2d 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 64 74 61 62 70 69 6c ┆ropniv-1; idtabpil┆
0x14360…1437a 3a 3d 63 75 72 72 69 64 6c 69 6d 69 74 3a 3d 61 74 74 31 28 73 74 61 6b 70 69 ┆:=curridlimit:=att1(stakpi┆
0x1437a…14380 (0x194,0x288)
0x14380…143a0 6c 2d 35 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 0a 20 20 20 20 20 20 20 ┆l-5); end; ┆
0x143a0…143c0 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 2d 2d 2d 2d 2d 20 6b 72 6f 70 73 74 61 ┆ begin comment ----- kropsta┆
0x143c0…143e0 72 74 34 20 3a 3a 3d 20 6b 72 6f 70 73 74 61 72 74 34 20 73 6b 20 63 6f 6d 70 6b 6f 6d 20 2d 2d ┆rt4 ::= kropstart4 sk compkom --┆
0x143e0…14400 2d 2d 2d 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 00 00 00 00 00 00 00 00 ┆---; if ┆
0x14400…14406 (162,) (0x194,0x289)
0x14406…14420 61 74 74 31 28 73 74 61 6b 70 69 6c 29 3c 3e 31 20 61 6e 64 20 61 74 74 31 28 ┆att1(stakpil)<>1 and att1(┆
0x14420…14440 73 74 61 6b 70 69 6c 29 3c 3e 33 20 74 68 65 6e 20 66 65 6a 6c 28 32 30 30 34 29 3b 0a 20 20 20 ┆stakpil)<>3 then fejl(2004); ┆
0x14440…14460 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 ┆ end; begi┆
0x14460…1447e 6e 20 63 6f 6d 6d 65 6e 74 20 2d 2d 2d 2d 2d 20 6b 72 6f 70 73 74 61 72 74 34 20 3a 3a 3d ┆n comment ----- kropstart4 ::=┆
0x1447e…14484 (0x194,0x28a)
0x14484…144a0 20 6b 72 6f 70 73 74 61 72 74 34 20 73 6b 20 2d 2d 2d 2d 2d 3b 0a 20 0a 20 20 20 20 ┆ kropstart4 sk -----; ┆
0x144a0…144c0 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e ┆ end; begin┆
0x144c0…144e0 20 63 6f 6d 6d 65 6e 74 20 2d 2d 2d 2d 2d 20 6d 6f 64 65 65 72 6b 6c 20 3a 3a 3d 20 6d 6f 64 65 ┆ comment ----- modeerkl ::= mode┆
0x144e0…144fc 20 2d 2d 2d 2d 2d 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f 64 65 ┆ -----; mode┆
0x144fc…14502 (0x194,0x28b)
0x14502…14520 3a 3d 61 74 74 31 28 73 74 61 6b 70 69 6c 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆:=att1(stakpil); ┆
0x14520…14540 20 66 72 69 65 72 6b 6c 3a 3d 66 61 6c 73 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 ┆ frierkl:=false; i┆
0x14540…14560 66 20 6d 6f 64 65 3d 33 20 74 68 65 6e 20 64 79 6e 3a 3d 31 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆f mode=3 then dyn:=1; ┆
0x14560…1457a 20 20 65 6e 64 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e ┆ end; begin┆
0x1457a…14580 (0x194,0x28c)
0x14580…145a0 20 63 6f 6d 6d 65 6e 74 20 2d 2d 2d 2d 2d 20 65 72 6b 6c 7b 72 69 6e 67 20 3a 3a 3d 20 65 6c 65 ┆ comment ----- erklæring ::= ele┆
0x145a0…145c0 6d 65 6e 74 65 72 6b 6c 20 2d 2d 2d 2d 2d 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆menterkl -----; ┆
0x145c0…145e0 61 74 74 31 28 73 74 61 6b 70 69 6c 29 3a 3d 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e ┆att1(stakpil):=2; en┆
0x145e0…14600 64 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 00 00 00 00 00 00 00 00 ┆d; begin c ┆
0x14600…14606 (163,) (0x194,0x28d)
0x14606…14620 6f 6d 6d 65 6e 74 20 2d 2d 2d 2d 2d 20 65 72 6b 6c 7b 72 69 6e 67 20 3a 3a 3d ┆omment ----- erklæring ::=┆
0x14620…14640 20 6c 61 62 65 6c 65 72 6b 6c 20 2d 2d 2d 2d 2d 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ labelerkl -----; ┆
0x14640…14660 20 20 61 74 74 31 28 73 74 61 6b 70 69 6c 29 3a 3d 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ att1(stakpil):=1; ┆
0x14660…1467e 65 6e 64 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 ┆end; begin comme┆
0x1467e…14684 (0x194,0x28e)
0x14684…146a0 6e 74 20 2d 2d 2d 2d 2d 20 65 72 6b 6c 7b 72 69 6e 67 20 3a 3a 3d 20 20 70 72 65 72 ┆nt ----- erklæring ::= prer┆
0x146a0…146c0 6b 6c 68 6f 76 65 64 20 29 20 2d 2d 2d 2d 2d 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆klhoved ) -----; ┆
0x146c0…146e0 20 77 6c 69 73 74 65 3a 3d 77 6c 69 73 74 65 2b 37 20 73 68 69 66 74 20 28 33 2a 28 61 74 74 31 ┆ wliste:=wliste+7 shift (3*(att1┆
0x146e0…146fc 28 73 74 61 6b 70 69 6c 2d 31 29 2d 31 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆(stakpil-1)-1)); ┆
0x146fc…14702 (0x194,0x28f)
0x14702…14720 20 20 20 61 74 74 31 28 73 74 61 6b 70 69 6c 2d 31 29 3a 3d 30 3b 0a 20 20 20 20 20 20 20 ┆ att1(stakpil-1):=0; ┆
0x14720…14740 20 20 20 20 20 20 20 69 64 74 61 62 70 69 6c 3a 3d 69 64 74 61 62 70 69 6c 2b 31 3b 0a 20 20 20 ┆ idtabpil:=idtabpil+1; ┆
0x14740…14760 20 20 20 20 20 20 20 20 20 20 20 69 64 74 61 62 31 28 69 64 74 61 62 70 69 6c 29 3a 3d 30 3b 0a ┆ idtab1(idtabpil):=0; ┆
0x14760…1477a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 64 74 61 62 32 28 69 64 74 61 62 ┆ idtab2(idtab┆
0x1477a…14780 (0x194,0x290)
0x14780…147a0 70 69 6c 29 3a 3d 77 6c 69 73 74 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 64 74 61 ┆pil):=wliste; idta┆
0x147a0…147c0 62 33 28 69 64 74 61 62 70 69 6c 29 3a 3d 28 72 65 6c 61 64 72 28 34 29 2b 31 29 2f 2f 32 2a 32 ┆b3(idtabpil):=(reladr(4)+1)//2*2┆
0x147c0…147e0 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 ┆; end; ┆
0x147e0…14800 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 2d 2d 2d 2d 2d 20 65 72 6b 00 00 00 00 00 00 00 00 ┆ begin comment ----- erk ┆
0x14800…14806 (164,) (0x194,0x291)
0x14806…14820 6c 7b 72 69 6e 67 20 3a 3a 3d 20 61 72 72 61 79 20 6e 61 76 6e 20 6f 66 0a 20 ┆læring ::= array navn of ┆
0x14820…14840 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 20 20 ┆ ┆
0x14840…14860 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6c 65 6d 65 6e 74 65 72 6b 6c 20 20 20 2d 2d 2d 2d 2d ┆ elementerkl -----┆
0x14860…1487e 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 74 74 31 28 73 74 61 6b 70 69 6c ┆; att1(stakpil┆
0x1487e…14884 (0x194,0x292)
0x14884…148a0 2d 33 29 3a 3d 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f 64 65 64 79 ┆-3):=1; modedy┆
0x148a0…148c0 62 64 65 3a 3d 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 2d 2c 20 66 72 69 65 ┆bde:=1; if -, frie┆
0x148c0…148e0 72 6b 6c 20 74 68 65 6e 20 66 65 6a 6c 28 32 30 30 36 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆rkl then fejl(2006); ┆
0x148e0…148fc 20 20 20 72 65 6c 61 64 72 28 32 29 3a 3d 72 65 6c 61 64 72 28 32 29 2b 32 3b 0a 20 ┆ reladr(2):=reladr(2)+2; ┆
0x148fc…14902 (0x194,0x293)
0x14902…14920 20 20 20 20 20 20 20 20 20 20 20 20 20 69 6e 64 73 7b 74 69 64 28 73 74 61 6b 70 69 6c 2d ┆ indsætid(stakpil-┆
0x14920…14940 32 2c 61 74 74 31 28 73 74 61 6b 70 69 6c 29 2c 31 2c 32 2c 32 2c 30 29 3b 0a 20 20 20 20 20 20 ┆2,att1(stakpil),1,2,2,0); ┆
0x14940…14960 20 20 20 20 20 20 20 20 69 64 74 61 62 35 28 69 64 74 61 62 70 69 6c 29 3a 3d 72 65 6c 61 64 72 ┆ idtab5(idtabpil):=reladr┆
0x14960…1497a 28 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 0a 20 20 ┆(2); end; ┆
0x1497a…14980 (0x194,0x294)
0x14980…149a0 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 2d 2d 2d 2d 2d 20 65 72 ┆ begin comment ----- er┆
0x149a0…149c0 6b 6c 7b 72 69 6e 67 20 3a 3a 3d 20 69 6e 69 74 61 72 72 61 79 20 2d 2d 2d 2d 2d 3b 0a 20 0a 20 ┆klæring ::= initarray -----; ┆
0x149c0…149e0 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65 6c 61 64 72 28 32 29 3a 3d 28 72 65 6c 61 64 72 28 ┆ reladr(2):=(reladr(┆
0x149e0…14a00 32 29 2b 28 61 74 74 31 28 73 74 61 6b 70 69 6c 29 2b 31 29 2a 61 74 74 00 00 00 00 00 00 00 00 ┆2)+(att1(stakpil)+1)*att ┆
0x14a00…14a06 (165,) (0x194,0x295)
0x14a06…14a20 32 28 73 74 61 6b 70 69 6c 29 29 2f 2f 32 2a 32 2b 31 3b 0a 20 20 20 20 20 20 ┆2(stakpil))//2*2+1; ┆
0x14a20…14a40 20 20 20 20 20 20 20 20 61 74 74 31 28 73 74 61 6b 70 69 6c 29 3a 3d 32 3b 0a 20 20 20 20 20 20 ┆ att1(stakpil):=2; ┆
0x14a40…14a60 20 20 20 20 20 20 65 6e 64 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 ┆ end; begin c┆
0x14a60…14a7e 6f 6d 6d 65 6e 74 20 2d 2d 2d 2d 2d 20 65 6c 65 6d 65 6e 74 65 72 6b 6c 20 3a 3a 3d 20 73 ┆omment ----- elementerkl ::= s┆
0x14a7e…14a84 (0x194,0x296)
0x14a84…14aa0 69 6d 70 65 6c 65 72 6b 6c 20 2d 2d 2d 2d 2d 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆impelerkl -----; ┆
0x14aa0…14ac0 20 20 20 61 74 74 31 28 73 74 61 6b 70 69 6c 29 3a 3d 28 61 74 74 31 28 73 74 61 6b 70 69 6c 29 ┆ att1(stakpil):=(att1(stakpil)┆
0x14ac0…14ae0 2b 31 29 2f 2f 32 2a 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65 6c 61 64 72 28 6d ┆+1)//2*2; reladr(m┆
0x14ae0…14afc 6f 64 65 29 3a 3d 72 65 6c 61 64 72 28 6d 6f 64 65 29 2b 61 74 74 31 28 73 74 61 6b ┆ode):=reladr(mode)+att1(stak┆
0x14afc…14b02 (0x194,0x297)
0x14b02…14b20 70 69 6c 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 0a 20 20 20 20 20 ┆pil); end; ┆
0x14b20…14b40 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 2d 2d 2d 2d 2d 20 65 6c 65 6d 65 ┆ begin comment ----- eleme┆
0x14b40…14b60 6e 74 65 72 6b 6c 20 3a 3a 3d 20 61 72 72 61 79 20 28 20 6b 6f 6e 73 74 20 3a 0a 20 20 20 20 20 ┆nterkl ::= array ( konst : ┆
0x14b60…14b7a 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 ┆ ┆
0x14b7a…14b80 (0x194,0x298)
0x14b80…14ba0 20 20 20 20 20 20 20 20 6b 6f 6e 73 74 20 29 20 6e 61 76 6e 20 6f 66 20 65 6c 65 6d 65 6e 74 65 ┆ konst ) navn of elemente┆
0x14ba0…14bc0 72 6b 6c 20 2d 2d 2d 2d 2d 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f 64 65 64 ┆rkl -----; moded┆
0x14bc0…14be0 79 62 64 65 3a 3d 6d 6f 64 65 64 79 62 64 65 2d 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ybde:=modedybde-1; ┆
0x14be0…14c00 20 69 66 20 6d 6f 64 65 64 79 62 64 65 3d 31 20 74 68 65 6e 20 6d 6f 64 00 00 00 00 00 00 00 00 ┆ if modedybde=1 then mod ┆
0x14c00…14c06 (166,) (0x194,0x299)
0x14c06…14c20 65 3a 3d 67 65 6d 6d 6f 64 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆e:=gemmode ┆
0x14c20…14c40 20 65 6c 73 65 20 72 65 6c 61 64 72 28 34 29 3a 3d 67 65 6d 72 65 6c 61 64 72 28 6d 6f 64 65 64 ┆ else reladr(4):=gemreladr(moded┆
0x14c40…14c60 79 62 64 65 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 28 61 74 74 32 28 73 74 ┆ybde); if (att2(st┆
0x14c60…14c7e 61 6b 70 69 6c 2d 34 29 3c 3e 39 20 6f 72 20 61 74 74 32 28 73 74 61 6b 70 69 6c 2d 36 29 ┆akpil-4)<>9 or att2(stakpil-6)┆
0x14c7e…14c84 (0x194,0x29a)
0x14c84…14ca0 3c 3e 39 29 20 6f 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 74 ┆<>9) or at┆
0x14ca0…14cc0 74 33 28 73 74 61 6b 70 69 6c 2d 36 29 3e 61 74 74 33 28 73 74 61 6b 70 69 6c 2d 34 29 20 74 68 ┆t3(stakpil-6)>att3(stakpil-4) th┆
0x14cc0…14ce0 65 6e 20 66 65 6a 6c 28 32 30 34 31 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 74 74 ┆en fejl(2041); att┆
0x14ce0…14cfc 31 28 73 74 61 6b 70 69 6c 2d 38 29 3a 3d 28 28 61 74 74 33 28 73 74 61 6b 70 69 6c ┆1(stakpil-8):=((att3(stakpil┆
0x14cfc…14d02 (0x194,0x29b)
0x14d02…14d20 2d 34 29 2d 61 74 74 33 28 73 74 61 6b 70 69 6c 2d 36 29 2b 31 29 2a 0a 20 20 20 20 20 20 ┆-4)-att3(stakpil-6)+1)* ┆
0x14d20…14d40 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 61 74 74 31 28 73 ┆ att1(s┆
0x14d40…14d60 74 61 6b 70 69 6c 29 2b 31 29 2f 2f 32 2a 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 ┆takpil)+1)//2*2; i┆
0x14d60…14d7a 6e 64 73 7b 74 69 64 28 73 74 61 6b 70 69 6c 2d 32 2c 61 74 74 31 28 73 74 61 ┆ndsætid(stakpil-2,att1(sta┆
0x14d7a…14d80 (0x194,0x29c)
0x14d80…14da0 6b 70 69 6c 29 2c 6d 6f 64 65 2c 32 2c 32 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆kpil),mode,2,2, ┆
0x14da0…14dc0 20 20 20 20 20 20 31 2d 61 74 74 31 28 73 74 61 6b 70 69 6c 29 2a 28 61 74 74 33 28 73 74 61 6b ┆ 1-att1(stakpil)*(att3(stak┆
0x14dc0…14de0 70 69 6c 2d 36 29 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 66 72 69 65 72 ┆pil-6))); if frier┆
0x14de0…14e00 6b 6c 20 61 6e 64 20 6d 6f 64 65 64 79 62 64 65 3d 31 20 74 68 65 6e 20 00 00 00 00 00 00 00 00 ┆kl and modedybde=1 then ┆
0x14e00…14e06 (167,) (0x194,0x29d)
0x14e06…14e20 66 65 6a 6c 28 32 30 30 36 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆fejl(2006); ┆
0x14e20…14e40 72 65 6c 61 64 72 28 6d 6f 64 65 29 3a 3d 72 65 6c 61 64 72 28 6d 6f 64 65 29 2b 61 74 74 31 28 ┆reladr(mode):=reladr(mode)+att1(┆
0x14e40…14e60 73 74 61 6b 70 69 6c 2d 38 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 0a 20 ┆stakpil-8); end; ┆
0x14e60…14e7e 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 2d 2d 2d 2d 2d ┆ begin comment -----┆
0x14e7e…14e84 (0x194,0x29e)
0x14e84…14ea0 20 65 6c 65 6d 65 6e 74 65 72 6b 6c 20 3a 3a 3d 20 72 65 63 65 72 6b 6c 68 6f 76 65 ┆ elementerkl ::= recerklhove┆
0x14ea0…14ec0 64 20 29 20 2d 2d 2d 2d 2d 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 64 74 61 62 ┆d ) -----; idtab┆
0x14ec0…14ee0 34 28 61 74 74 32 28 73 74 61 6b 70 69 6c 2d 31 29 29 3a 3d 69 64 74 61 62 34 28 61 74 74 32 28 ┆4(att2(stakpil-1)):=idtab4(att2(┆
0x14ee0…14efc 73 74 61 6b 70 69 6c 2d 31 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆stakpil-1)) ┆
0x14efc…14f02 (0x194,0x29f)
0x14f02…14f20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2b 61 74 74 31 28 73 74 61 6b 70 69 6c 2d 31 29 ┆ +att1(stakpil-1)┆
0x14f20…14f40 20 73 68 69 66 74 20 31 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f 64 65 64 79 62 ┆ shift 12; modedyb┆
0x14f40…14f60 64 65 3a 3d 6d 6f 64 65 64 79 62 64 65 2d 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 ┆de:=modedybde-1; i┆
0x14f60…14f7a 66 20 6d 6f 64 65 64 79 62 64 65 3e 31 20 74 68 65 6e 20 72 65 6c 61 64 72 28 ┆f modedybde>1 then reladr(┆
0x14f7a…14f80 (0x194,0x2a0)
0x14f80…14fa0 34 29 3a 3d 67 65 6d 72 65 6c 61 64 72 28 6d 6f 64 65 64 79 62 64 65 29 3b 0a 20 20 20 20 20 20 ┆4):=gemreladr(modedybde); ┆
0x14fa0…14fc0 20 20 20 20 20 20 65 6e 64 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 ┆ end; begin c┆
0x14fc0…14fe0 6f 6d 6d 65 6e 74 20 2d 2d 2d 2d 2d 20 65 6c 65 6d 65 6e 74 65 72 6b 6c 20 3a 3a 3d 20 74 65 78 ┆omment ----- elementerkl ::= tex┆
0x14fe0…15000 74 65 72 6b 6c 20 2d 2d 2d 2d 2d 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆terkl -----; ┆
0x15000…15006 (168,) (0x194,0x2a1)
0x15006…15020 20 20 20 20 20 61 74 74 31 28 73 74 61 6b 70 69 6c 29 3a 3d 61 74 74 31 28 73 ┆ att1(stakpil):=att1(s┆
0x15020…15040 74 61 6b 70 69 6c 29 2d 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65 6c 61 64 72 28 ┆takpil)-1; reladr(┆
0x15040…15060 6d 6f 64 65 29 3a 3d 72 65 6c 61 64 72 28 6d 6f 64 65 29 2b 28 61 74 74 31 28 73 74 61 6b 70 69 ┆mode):=reladr(mode)+(att1(stakpi┆
0x15060…1507e 6c 29 2b 31 29 2f 2f 32 2a 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 ┆l)+1)//2*2; end; ┆
0x1507e…15084 (0x194,0x2a2)
0x15084…150a0 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 2d ┆ begin comment -┆
0x150a0…150c0 2d 2d 2d 2d 20 65 6c 65 6d 65 6e 74 65 72 6b 6c 20 3a 3a 3d 20 74 79 70 65 20 2d 2d 2d 2d 2d 3b ┆---- elementerkl ::= type -----;┆
0x150c0…150e0 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 74 74 31 28 73 74 61 6b 70 69 6c 29 3a 3d ┆ att1(stakpil):=┆
0x150e0…150fc 31 2b 61 74 74 31 28 73 74 61 6b 70 69 6c 29 2f 2f 32 2b 61 74 74 31 28 73 74 61 6b ┆1+att1(stakpil)//2+att1(stak┆
0x150fc…15102 (0x194,0x2a3)
0x15102…15120 70 69 6c 29 2f 2f 34 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 0a 20 20 ┆pil)//4; end; ┆
0x15120…15140 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 2d 2d 2d 2d 2d 20 74 65 ┆ begin comment ----- te┆
0x15140…15160 78 74 65 72 6b 6c 20 3a 3a 3d 20 74 65 78 74 20 28 20 6b 6f 6e 73 74 20 29 20 6e 61 76 6e 20 2d ┆xterkl ::= text ( konst ) navn -┆
0x15160…1517a 2d 2d 2d 2d 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 79 70 65 ┆----; type┆
0x1517a…15180 (0x194,0x2a4)
0x15180…151a0 3a 3d 37 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 61 74 74 33 28 73 74 61 6b 70 ┆:=7; if att3(stakp┆
0x151a0…151c0 69 6c 2d 32 29 3e 31 33 32 20 74 68 65 6e 20 66 65 6a 6c 28 32 30 30 37 29 3b 0a 20 20 20 20 20 ┆il-2)>132 then fejl(2007); ┆
0x151c0…151e0 20 20 20 20 20 20 20 20 20 74 65 78 74 6c 7b 6e 67 64 65 3a 3d 28 61 74 74 33 28 73 74 61 6b 70 ┆ textlængde:=(att3(stakp┆
0x151e0…15200 69 6c 2d 32 29 2b 32 29 2f 2f 33 2a 32 3b 0a 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆il-2)+2)//3*2; ┆
0x15200…15206 (169,) (0x194,0x2a5)
0x15206…15220 20 20 20 20 20 69 6e 64 73 7b 74 69 64 28 73 74 61 6b 70 69 6c 2c 74 65 78 74 ┆ indsætid(stakpil,text┆
0x15220…15240 6c 7b 6e 67 64 65 2c 6d 6f 64 65 2c 34 2c 74 79 70 65 2c 31 29 3b 0a 20 20 20 20 20 20 20 20 20 ┆længde,mode,4,type,1); ┆
0x15240…15260 20 20 20 20 20 61 74 74 31 28 73 74 61 6b 70 69 6c 2d 34 29 3a 3d 74 65 78 74 6c 7b 6e 67 64 65 ┆ att1(stakpil-4):=textlængde┆
0x15260…1527e 2b 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 74 74 32 28 73 74 61 6b 70 69 6c ┆+1; att2(stakpil┆
0x1527e…15284 (0x194,0x2a6)
0x15284…152a0 2d 34 29 3a 3d 74 65 78 74 6c 7b 6e 67 64 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆-4):=textlængde; ┆
0x152a0…152c0 20 65 6e 64 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e ┆ end; begin commen┆
0x152c0…152e0 74 20 2d 2d 2d 2d 2d 20 74 65 78 74 65 72 6b 6c 20 3a 3a 3d 20 74 65 78 74 20 28 20 6b 6f 6e 73 ┆t ----- texterkl ::= text ( kons┆
0x152e0…152fc 74 20 29 20 6e 61 76 6e 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆t ) navn ┆
0x152fc…15302 (0x194,0x2a7)
0x15302…15320 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 ┆ ┆
0x15320…15340 20 20 20 20 20 3a 3d 20 73 74 72 65 6e 67 20 2d 2d 2d 2d 2d 3b 0a 20 0a 20 20 20 20 20 20 20 20 ┆ := streng -----; ┆
0x15340…15360 20 20 20 20 20 20 69 66 20 61 74 74 31 28 73 74 61 6b 70 69 6c 29 3e 61 74 74 33 28 73 74 61 6b ┆ if att1(stakpil)>att3(stak┆
0x15360…1537a 70 69 6c 2d 34 29 20 6f 72 20 61 74 74 33 28 73 74 61 6b 70 69 6c 2d 34 29 3e ┆pil-4) or att3(stakpil-4)>┆
0x1537a…15380 (0x194,0x2a8)
0x15380…153a0 31 33 32 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 65 6a 6c 28 32 ┆132 then fejl(2┆
0x153a0…153c0 30 30 37 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 6d 6f 64 65 3c 3e 32 20 74 ┆007); if mode<>2 t┆
0x153c0…153e0 68 65 6e 20 66 65 6a 6c 28 32 30 30 36 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 79 ┆hen fejl(2006); ty┆
0x153e0…15400 70 65 3a 3d 37 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 65 78 00 00 00 00 00 00 00 00 ┆pe:=7; tex ┆
0x15400…15406 (170,) (0x194,0x2a9)
0x15406…15420 74 6c 7b 6e 67 64 65 3a 3d 28 61 74 74 33 28 73 74 61 6b 70 69 6c 2d 34 29 2b ┆tlængde:=(att3(stakpil-4)+┆
0x15420…15440 32 29 2f 2f 33 2a 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 6e 64 73 7b 74 69 64 28 ┆2)//3*2; indsætid(┆
0x15440…15460 73 74 61 6b 70 69 6c 2d 32 2c 74 65 78 74 6c 7b 6e 67 64 65 2c 6d 6f 64 65 2c 34 2c 74 79 70 65 ┆stakpil-2,textlængde,mode,4,type┆
0x15460…1547e 2c 31 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 74 74 31 28 73 74 61 6b 70 69 ┆,1); att1(stakpi┆
0x1547e…15484 (0x194,0x2aa)
0x15484…154a0 6c 2d 36 29 3a 3d 74 65 78 74 6c 7b 6e 67 64 65 2b 31 3b 0a 20 20 20 20 20 20 20 20 ┆l-6):=textlængde+1; ┆
0x154a0…154c0 20 20 20 20 20 20 61 74 74 32 28 73 74 61 6b 70 69 6c 2d 36 29 3a 3d 74 65 78 74 6c 7b 6e 67 64 ┆ att2(stakpil-6):=textlængd┆
0x154c0…154e0 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 69 3a 3d 30 20 73 74 65 70 20 31 ┆e; for i:=0 step 1┆
0x154e0…154fc 20 75 6e 74 69 6c 20 74 65 78 74 6c 7b 6e 67 64 65 2f 2f 32 20 64 6f 0a 20 20 20 20 ┆ until textlængde//2 do ┆
0x154fc…15502 (0x194,0x2ab)
0x15502…15520 20 20 20 20 20 20 20 20 20 20 20 20 7a 28 7a 62 61 73 65 2b 69 64 74 61 62 35 28 69 64 74 ┆ z(zbase+idtab5(idt┆
0x15520…15540 61 62 70 69 6c 29 2f 2f 32 2b 69 29 3a 3d 73 74 72 65 6e 67 28 69 29 3b 0a 20 20 20 20 20 20 20 ┆abpil)//2+i):=streng(i); ┆
0x15540…15560 20 20 20 20 20 65 6e 64 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f ┆ end; begin co┆
0x15560…1557a 6d 6d 65 6e 74 20 2d 2d 2d 2d 2d 20 74 65 78 74 65 72 6b 6c 20 3a 3a 3d 20 74 ┆mment ----- texterkl ::= t┆
0x1557a…15580 (0x194,0x2ac)
0x15580…155a0 65 78 74 65 72 6b 6c 20 2c 20 6e 61 76 6e 20 2d 2d 2d 2d 2d 3b 0a 20 0a 20 20 20 20 20 20 20 20 ┆exterkl , navn -----; ┆
0x155a0…155c0 20 20 20 20 20 20 69 6e 64 73 7b 74 69 64 28 73 74 61 6b 70 69 6c 2c 61 74 74 32 28 73 74 61 6b ┆ indsætid(stakpil,att2(stak┆
0x155c0…155e0 70 69 6c 2d 32 29 2c 6d 6f 64 65 2c 34 2c 74 79 70 65 2c 61 74 74 31 28 73 74 61 6b 70 69 6c 2d ┆pil-2),mode,4,type,att1(stakpil-┆
0x155e0…15600 32 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 74 74 31 28 00 00 00 00 00 00 00 00 ┆2)); att1( ┆
0x15600…15606 (171,) (0x194,0x2ad)
0x15606…15620 73 74 61 6b 70 69 6c 2d 32 29 3a 3d 61 74 74 31 28 73 74 61 6b 70 69 6c 2d 32 ┆stakpil-2):=att1(stakpil-2┆
0x15620…15640 29 2b 61 74 74 32 28 73 74 61 6b 70 69 6c 2d 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 ┆)+att2(stakpil-2); e┆
0x15640…15660 6e 64 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 ┆nd; begin comment ┆
0x15660…1567e 2d 2d 2d 2d 2d 20 74 65 78 74 65 72 6b 6c 20 3a 3a 3d 20 74 65 78 74 65 72 6b 6c 20 2c 20 ┆----- texterkl ::= texterkl , ┆
0x1567e…15684 (0x194,0x2ae)
0x15684…156a0 6e 61 76 6e 20 3a 3d 20 2d 2d 2d 2d 2d 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 ┆navn := -----; ┆
0x156a0…156c0 20 20 20 69 66 20 28 61 74 74 31 28 73 74 61 6b 70 69 6c 29 2f 2f 33 2b 31 29 2a 32 3e 61 74 74 ┆ if (att1(stakpil)//3+1)*2>att┆
0x156c0…156e0 32 28 73 74 61 6b 70 69 6c 2d 34 29 20 74 68 65 6e 20 66 65 6a 6c 28 32 30 30 37 29 3b 0a 20 20 ┆2(stakpil-4) then fejl(2007); ┆
0x156e0…156fc 20 20 20 20 20 20 20 20 20 20 20 20 69 6e 64 73 7b 74 69 64 28 73 74 61 6b 70 69 6c ┆ indsætid(stakpil┆
0x156fc…15702 (0x194,0x2af)
0x15702…15720 2d 32 2c 61 74 74 32 28 73 74 61 6b 70 69 6c 2d 34 29 2c 6d 6f 64 65 2c 34 2c 74 79 70 65 ┆-2,att2(stakpil-4),mode,4,type┆
0x15720…15740 2c 61 74 74 31 28 73 74 61 6b 70 69 6c 2d 34 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆,att1(stakpil-4)); ┆
0x15740…15760 20 61 74 74 31 28 73 74 61 6b 70 69 6c 2d 34 29 3a 3d 61 74 74 31 28 73 74 61 6b 70 69 6c 2d 34 ┆ att1(stakpil-4):=att1(stakpil-4┆
0x15760…1577a 29 2b 61 74 74 32 28 73 74 61 6b 70 69 6c 2d 34 29 3b 0a 20 20 20 20 20 20 20 ┆)+att2(stakpil-4); ┆
0x1577a…15780 (0x194,0x2b0)
0x15780…157a0 20 20 20 20 20 20 20 66 6f 72 20 69 3a 3d 30 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 74 65 78 ┆ for i:=0 step 1 until tex┆
0x157a0…157c0 74 6c 7b 6e 67 64 65 2f 2f 32 20 64 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7a 28 ┆tlængde//2 do z(┆
0x157c0…157e0 7a 62 61 73 65 2b 69 64 74 61 62 35 28 69 64 74 61 62 70 69 6c 29 2f 2f 32 2b 69 29 3a 3d 73 74 ┆zbase+idtab5(idtabpil)//2+i):=st┆
0x157e0…15800 72 65 6e 67 28 69 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 00 00 00 00 00 00 00 00 ┆reng(i); end ┆
0x15800…15806 (172,) (0x194,0x2b1)
0x15806…15820 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d ┆; begin comm┆
0x15820…15840 65 6e 74 20 2d 2d 2d 2d 2d 20 73 69 6d 70 65 6c 65 72 6b 6c 20 3a 3a 3d 20 74 79 70 65 20 6e 61 ┆ent ----- simpelerkl ::= type na┆
0x15840…15860 76 6e 20 2d 2d 2d 2d 2d 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 79 70 65 3a 3d ┆vn -----; type:=┆
0x15860…1587e 61 74 74 31 28 73 74 61 6b 70 69 6c 2d 31 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆att1(stakpil-1); ┆
0x1587e…15884 (0x194,0x2b2)
0x15884…158a0 20 61 74 74 32 28 73 74 61 6b 70 69 6c 2d 31 29 3a 3d 31 2b 74 79 70 65 2f 2f 32 2b ┆ att2(stakpil-1):=1+type//2+┆
0x158a0…158c0 74 79 70 65 2f 2f 34 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 74 74 31 28 73 74 61 6b ┆type//4; att1(stak┆
0x158c0…158e0 70 69 6c 2d 31 29 3a 3d 61 74 74 32 28 73 74 61 6b 70 69 6c 2d 31 29 3b 0a 20 20 20 20 20 20 20 ┆pil-1):=att2(stakpil-1); ┆
0x158e0…158fc 20 20 20 20 20 20 20 69 6e 64 73 7b 74 69 64 28 73 74 61 6b 70 69 6c 2c 61 74 74 32 ┆ indsætid(stakpil,att2┆
0x158fc…15902 (0x194,0x2b3)
0x15902…15920 28 73 74 61 6b 70 69 6c 2d 31 29 2c 6d 6f 64 65 2c 31 2c 74 79 70 65 2c 61 74 74 31 28 73 ┆(stakpil-1),mode,1,type,att1(s┆
0x15920…15940 74 61 6b 70 69 6c 2d 31 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 0a 20 ┆takpil-1)); end; ┆
0x15940…15960 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 2d 2d 2d 2d 2d 20 73 ┆ begin comment ----- s┆
0x15960…1597a 69 6d 70 65 6c 65 72 6b 6c 20 3a 3a 3d 20 74 79 70 65 20 6e 61 76 6e 20 3a 3d ┆impelerkl ::= type navn :=┆
0x1597a…15980 (0x194,0x2b4)
0x15980…159a0 20 6b 6f 6e 73 74 20 2d 2d 2d 2d 2d 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 ┆ konst -----; if┆
0x159a0…159c0 20 6d 6f 64 65 3c 3e 32 20 74 68 65 6e 20 66 65 6a 6c 28 33 30 29 3b 0a 20 20 20 20 20 20 20 20 ┆ mode<>2 then fejl(30); ┆
0x159c0…159e0 20 20 20 20 20 20 74 79 70 65 3a 3d 61 74 74 31 28 73 74 61 6b 70 69 6c 2d 33 29 3b 0a 20 20 20 ┆ type:=att1(stakpil-3); ┆
0x159e0…15a00 20 20 20 20 20 20 20 20 20 20 20 61 74 74 32 28 73 74 61 6b 70 69 6c 2d 00 00 00 00 00 00 00 00 ┆ att2(stakpil- ┆
0x15a00…15a06 (173,) (0x194,0x2b5)
0x15a06…15a20 33 29 3a 3d 74 79 70 65 2f 2f 32 2b 74 79 70 65 2f 2f 34 2b 31 3b 0a 20 20 20 ┆3):=type//2+type//4+1; ┆
0x15a20…15a40 20 20 20 20 20 20 20 20 20 20 20 61 74 74 31 28 73 74 61 6b 70 69 6c 2d 33 29 3a 3d 61 74 74 32 ┆ att1(stakpil-3):=att2┆
0x15a40…15a60 28 73 74 61 6b 70 69 6c 2d 33 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 6e 64 73 7b ┆(stakpil-3); indsæ┆
0x15a60…15a7e 74 69 64 28 73 74 61 6b 70 69 6c 2d 32 2c 61 74 74 32 28 73 74 61 6b 70 69 6c 2d 33 29 2c ┆tid(stakpil-2,att2(stakpil-3),┆
0x15a7e…15a84 (0x194,0x2b6)
0x15a84…15aa0 6d 6f 64 65 2c 31 2c 74 79 70 65 2c 61 74 74 31 28 73 74 61 6b 70 69 6c 2d 33 29 29 ┆mode,1,type,att1(stakpil-3))┆
0x15aa0…15ac0 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 6c 61 63 65 72 6b 6f 6e 73 74 28 74 79 70 65 ┆; placerkonst(type┆
0x15ac0…15ae0 2c 69 64 74 61 62 35 28 69 64 74 61 62 70 69 6c 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆,idtab5(idtabpil)); ┆
0x15ae0…15afc 65 6e 64 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d ┆end; begin com┆
0x15afc…15b02 (0x194,0x2b7)
0x15b02…15b20 6d 65 6e 74 20 2d 2d 2d 2d 2d 20 73 69 6d 70 65 6c 65 72 6b 6c 20 3a 3a 3d 20 73 69 6d 70 ┆ment ----- simpelerkl ::= simp┆
0x15b20…15b40 65 6c 65 72 6b 6c 20 2c 20 6e 61 76 6e 20 3a 3d 20 6b 6f 6e 73 74 20 2d 2d 2d 2d 2d 3b 0a 20 0a ┆elerkl , navn := konst -----; ┆
0x15b40…15b60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 6d 6f 64 65 3c 3e 32 20 74 68 65 6e 20 66 65 ┆ if mode<>2 then fe┆
0x15b60…15b7a 6a 6c 28 32 30 30 36 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 74 ┆jl(2006); at┆
0x15b7a…15b80 (0x194,0x2b8)
0x15b80…15ba0 74 31 28 73 74 61 6b 70 69 6c 2d 34 29 3a 3d 61 74 74 31 28 73 74 61 6b 70 69 6c 2d 34 29 2b 61 ┆t1(stakpil-4):=att1(stakpil-4)+a┆
0x15ba0…15bc0 74 74 32 28 73 74 61 6b 70 69 6c 2d 34 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 6e ┆tt2(stakpil-4); in┆
0x15bc0…15be0 64 73 7b 74 69 64 28 73 74 61 6b 70 69 6c 2d 32 2c 61 74 74 32 28 73 74 61 6b 70 69 6c 2d 34 29 ┆dsætid(stakpil-2,att2(stakpil-4)┆
0x15be0…15c00 2c 32 2c 31 2c 74 79 70 65 2c 61 74 74 31 28 73 74 61 6b 70 69 6c 2d 34 00 00 00 00 00 00 00 00 ┆,2,1,type,att1(stakpil-4 ┆
0x15c00…15c06 (174,) (0x194,0x2b9)
0x15c06…15c20 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 6c 61 63 65 72 6b 6f ┆)); placerko┆
0x15c20…15c40 6e 73 74 28 74 79 70 65 2c 69 64 74 61 62 35 28 69 64 74 61 62 70 69 6c 29 29 3b 0a 20 20 20 20 ┆nst(type,idtab5(idtabpil)); ┆
0x15c40…15c60 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e ┆ end; begin┆
0x15c60…15c7e 20 63 6f 6d 6d 65 6e 74 20 2d 2d 2d 2d 2d 20 73 69 6d 70 65 6c 65 72 6b 6c 20 3a 3a 3d 20 ┆ comment ----- simpelerkl ::= ┆
0x15c7e…15c84 (0x194,0x2ba)
0x15c84…15ca0 73 69 6d 70 65 6c 65 72 6b 6c 20 2c 20 6e 61 76 6e 20 2d 2d 2d 2d 2d 3b 0a 20 0a 20 ┆simpelerkl , navn -----; ┆
0x15ca0…15cc0 20 20 20 20 20 20 20 20 20 20 20 20 20 61 74 74 31 28 73 74 61 6b 70 69 6c 2d 32 29 3a 3d 61 74 ┆ att1(stakpil-2):=at┆
0x15cc0…15ce0 74 31 28 73 74 61 6b 70 69 6c 2d 32 29 2b 61 74 74 32 28 73 74 61 6b 70 69 6c 2d 32 29 3b 0a 20 ┆t1(stakpil-2)+att2(stakpil-2); ┆
0x15ce0…15cfc 20 20 20 20 20 20 20 20 20 20 20 20 20 69 6e 64 73 7b 74 69 64 28 73 74 61 6b 70 69 ┆ indsætid(stakpi┆
0x15cfc…15d02 (0x194,0x2bb)
0x15d02…15d20 6c 2c 61 74 74 32 28 73 74 61 6b 70 69 6c 2d 32 29 2c 6d 6f 64 65 2c 31 2c 74 79 70 65 2c ┆l,att2(stakpil-2),mode,1,type,┆
0x15d20…15d40 61 74 74 31 28 73 74 61 6b 70 69 6c 2d 32 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e ┆att1(stakpil-2)); en┆
0x15d40…15d60 64 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 2d ┆d; begin comment -┆
0x15d60…15d7a 2d 2d 2d 2d 20 69 6e 69 74 61 72 72 61 79 20 3a 3a 3d 20 61 72 72 61 79 20 28 ┆---- initarray ::= array (┆
0x15d7a…15d80 (0x194,0x2bc)
0x15d80…15da0 20 6b 6f 6e 73 74 20 3a 20 6b 6f 6e 73 74 20 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ konst : konst ) ┆
0x15da0…15dc0 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 20 6e ┆ n┆
0x15dc0…15de0 61 76 6e 20 6f 66 20 74 79 70 65 20 3a 3d 20 20 20 20 20 20 2d 2d 2d 2d 2d 3b 0a 20 0a 20 20 20 ┆avn of type := -----; ┆
0x15de0…15e00 20 20 20 20 20 20 20 20 20 20 20 6d 6f 64 65 64 79 62 64 65 3a 3d 31 3b 00 00 00 00 00 00 00 00 ┆ modedybde:=1; ┆
0x15e00…15e06 (175,) (0x194,0x2bd)
0x15e06…15e20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f 64 65 3a 3d 67 65 6d 6d 6f ┆ mode:=gemmo┆
0x15e20…15e40 64 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 28 61 74 74 32 28 73 74 61 6b 70 ┆de; if (att2(stakp┆
0x15e40…15e60 69 6c 2d 35 29 3c 3e 39 20 6f 72 20 61 74 74 32 28 73 74 61 6b 70 69 6c 2d 37 29 3c 3e 39 29 20 ┆il-5)<>9 or att2(stakpil-7)<>9) ┆
0x15e60…15e7e 6f 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 74 74 33 28 73 74 61 6b 70 ┆or att3(stakp┆
0x15e7e…15e84 (0x194,0x2be)
0x15e84…15ea0 69 6c 2d 37 29 3e 61 74 74 33 28 73 74 61 6b 70 69 6c 2d 35 29 20 74 68 65 6e 20 66 ┆il-7)>att3(stakpil-5) then f┆
0x15ea0…15ec0 65 6a 6c 28 32 30 34 31 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 6d 6f 64 65 ┆ejl(2041); if mode┆
0x15ec0…15ee0 3c 3e 32 20 74 68 65 6e 20 66 65 6a 6c 28 32 30 30 36 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆<>2 then fejl(2006); ┆
0x15ee0…15efc 20 20 20 74 79 70 65 3a 3d 61 74 74 31 28 73 74 61 6b 70 69 6c 2d 31 29 3b 0a 20 20 ┆ type:=att1(stakpil-1); ┆
0x15efc…15f02 (0x194,0x2bf)
0x15f02…15f20 20 20 20 20 20 20 20 20 20 20 20 20 61 74 74 32 28 73 74 61 6b 70 69 6c 2d 39 29 3a 3d 31 ┆ att2(stakpil-9):=1┆
0x15f20…15f40 2b 74 79 70 65 2f 2f 32 2b 74 79 70 65 2f 2f 34 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆+type//2+type//4; ┆
0x15f40…15f60 69 6e 64 73 7b 74 69 64 28 73 74 61 6b 70 69 6c 2d 33 2c 61 74 74 32 28 73 74 61 6b 70 69 6c 2d ┆indsætid(stakpil-3,att2(stakpil-┆
0x15f60…15f7a 39 29 2c 32 2c 32 2c 74 79 70 65 2c 31 2d 61 74 74 33 28 73 74 61 6b 70 69 6c ┆9),2,2,type,1-att3(stakpil┆
0x15f7a…15f80 (0x194,0x2c0)
0x15f80…15fa0 2d 37 29 2a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 74 74 32 ┆-7)* att2┆
0x15fa0…15fc0 28 73 74 61 6b 70 69 6c 2d 39 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 74 74 31 ┆(stakpil-9)); att1┆
0x15fc0…15fe0 28 73 74 61 6b 70 69 6c 2d 39 29 3a 3d 61 74 74 33 28 73 74 61 6b 70 69 6c 2d 35 29 2d 61 74 74 ┆(stakpil-9):=att3(stakpil-5)-att┆
0x15fe0…16000 33 28 73 74 61 6b 70 69 6c 2d 37 29 3b 0a 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆3(stakpil-7); ┆
0x16000…16006 (176,) (0x194,0x2c1)
0x16006…16020 20 20 65 6e 64 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e ┆ end; begin┆
0x16020…16040 20 63 6f 6d 6d 65 6e 74 20 2d 2d 2d 2d 2d 20 69 6e 69 74 61 72 72 61 79 20 3a 3a 3d 20 69 6e 69 ┆ comment ----- initarray ::= ini┆
0x16040…16060 74 61 72 72 61 79 20 6b 6f 6e 73 74 20 2d 2d 2d 2d 2d 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 ┆tarray konst -----; ┆
0x16060…1607e 20 20 20 20 69 66 20 61 74 74 31 28 73 74 61 6b 70 69 6c 2d 31 29 3c 30 20 74 68 65 6e 20 ┆ if att1(stakpil-1)<0 then ┆
0x1607e…16084 (0x194,0x2c2)
0x16084…160a0 66 65 6a 6c 28 32 30 30 38 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 74 ┆fejl(2008); at┆
0x160a0…160c0 74 31 28 73 74 61 6b 70 69 6c 2d 31 29 3a 3d 61 74 74 31 28 73 74 61 6b 70 69 6c 2d 31 29 2d 31 ┆t1(stakpil-1):=att1(stakpil-1)-1┆
0x160c0…160e0 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65 6c 61 64 72 28 32 29 3a 3d 72 65 6c 61 64 ┆; reladr(2):=relad┆
0x160e0…160fc 72 28 32 29 2b 61 74 74 32 28 73 74 61 6b 70 69 6c 2d 31 29 3b 0a 20 20 20 20 20 20 ┆r(2)+att2(stakpil-1); ┆
0x160fc…16102 (0x194,0x2c3)
0x16102…16120 20 20 20 20 20 20 20 20 70 6c 61 63 65 72 6b 6f 6e 73 74 28 74 79 70 65 2c 72 65 6c 61 64 ┆ placerkonst(type,relad┆
0x16120…16140 72 28 32 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 0a 20 20 20 20 20 20 ┆r(2)); end; ┆
0x16140…16160 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 2d 2d 2d 2d 2d 20 61 72 72 61 79 73 ┆ begin comment ----- arrays┆
0x16160…1617a 74 61 72 74 20 3a 3a 3d 20 61 72 72 61 79 20 2d 2d 2d 2d 2d 3b 0a 20 20 0a 20 ┆tart ::= array -----; ┆
0x1617a…16180 (0x194,0x2c4)
0x16180…161a0 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f 64 65 64 79 62 64 65 3a 3d 6d 6f 64 65 64 79 62 64 ┆ modedybde:=modedybd┆
0x161a0…161c0 65 2b 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 6d 6f 64 65 64 79 62 64 65 3d ┆e+1; if modedybde=┆
0x161c0…161e0 32 20 74 68 65 6e 20 67 65 6d 6d 6f 64 65 3a 3d 6d 6f 64 65 20 0a 20 20 20 20 20 20 20 20 20 20 ┆2 then gemmode:=mode ┆
0x161e0…16200 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 20 00 00 00 00 00 00 00 00 ┆ else ┆
0x16200…16206 (177,) (0x194,0x2c5)
0x16206…16220 67 65 6d 72 65 6c 61 64 72 28 6d 6f 64 65 64 79 62 64 65 2d 31 29 3a 3d 72 65 ┆gemreladr(modedybde-1):=re┆
0x16220…16240 6c 61 64 72 28 34 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65 6c 61 64 72 28 34 29 ┆ladr(4); reladr(4)┆
0x16240…16260 3a 3d 2d 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f 64 65 3a 3d 34 3b 0a 20 20 20 ┆:=-1; mode:=4; ┆
0x16260…1627e 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 ┆ end; be┆
0x1627e…16284 (0x194,0x2c6)
0x16284…162a0 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 2d 2d 2d 2d 2d 20 72 65 63 65 72 6b 6c 68 6f 76 ┆gin comment ----- recerklhov┆
0x162a0…162c0 65 64 31 20 3a 3a 3d 20 72 65 63 6f 72 64 20 6e 61 76 6e 20 28 20 2d 2d 2d 2d 2d 3b 0a 20 0a 20 ┆ed1 ::= record navn ( -----; ┆
0x162c0…162e0 20 20 20 20 20 20 20 20 20 20 20 20 20 61 74 74 32 28 73 74 61 6b 70 69 6c 2d 32 29 3a 3d 32 3b ┆ att2(stakpil-2):=2;┆
0x162e0…162fc 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 74 74 31 28 73 74 61 6b 70 69 6c 2d ┆ att1(stakpil-┆
0x162fc…16302 (0x194,0x2c7)
0x16302…16320 32 29 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 6d 6f 64 65 3c 3e ┆2):=0; if mode<>┆
0x16320…16340 34 20 74 68 65 6e 20 66 65 6a 6c 28 32 30 30 36 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆4 then fejl(2006); ┆
0x16340…16360 20 6d 6f 64 65 64 79 62 64 65 3a 3d 6d 6f 64 65 64 79 62 64 65 2b 31 3b 0a 20 20 20 20 20 20 20 ┆ modedybde:=modedybde+1; ┆
0x16360…1637a 20 20 20 20 20 20 20 69 66 20 6d 6f 64 65 64 79 62 64 65 3d 32 20 74 68 65 6e ┆ if modedybde=2 then┆
0x1637a…16380 (0x194,0x2c8)
0x16380…163a0 20 67 65 6d 6d 6f 64 65 3a 3d 6d 6f 64 65 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6c ┆ gemmode:=mode el┆
0x163a0…163c0 73 65 20 67 65 6d 72 65 6c 61 64 72 28 6d 6f 64 65 64 79 62 64 65 2d 31 29 3a 3d 72 65 6c 61 64 ┆se gemreladr(modedybde-1):=relad┆
0x163c0…163e0 72 28 34 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65 6c 61 64 72 28 34 29 3a 3d 2d ┆r(4); reladr(4):=-┆
0x163e0…16400 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 66 72 69 65 00 00 00 00 00 00 00 00 ┆1; if frie ┆
0x16400…16406 (178,) (0x194,0x2c9)
0x16406…16420 72 6b 6c 20 61 6e 64 20 6d 6f 64 65 64 79 62 64 65 3d 32 20 74 68 65 6e 0a 20 ┆rkl and modedybde=2 then ┆
0x16420…16440 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ begin ┆
0x16440…16460 20 20 20 72 65 6c 61 64 72 28 32 29 3a 3d 72 65 6c 61 64 72 28 32 29 2b 32 3b 0a 20 20 20 20 20 ┆ reladr(2):=reladr(2)+2; ┆
0x16460…1647e 20 20 20 20 20 20 20 20 20 20 20 69 6e 64 73 7b 74 69 64 28 73 74 61 6b 70 69 6c 2d 31 2c ┆ indsætid(stakpil-1,┆
0x1647e…16484 (0x194,0x2ca)
0x16484…164a0 30 2c 32 2c 33 2c 32 2c 30 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e ┆0,2,3,2,0); en┆
0x164a0…164c0 64 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 6e 64 73 7b 74 69 64 28 73 74 ┆d else indsætid(st┆
0x164c0…164e0 61 6b 70 69 6c 2d 31 2c 30 2c 34 2c 33 2c 30 2c 31 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆akpil-1,0,4,3,0,1); ┆
0x164e0…164fc 20 20 61 74 74 32 28 73 74 61 6b 70 69 6c 2d 32 29 3a 3d 69 64 74 61 62 70 69 6c 3b ┆ att2(stakpil-2):=idtabpil;┆
0x164fc…16502 (0x194,0x2cb)
0x16502…16520 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 ┆ end; ┆
0x16520…16540 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 2d 2d 2d 2d 2d 20 72 65 63 65 72 6b 6c 68 6f 76 ┆ begin comment ----- recerklhov┆
0x16540…16560 65 64 20 3a 3a 3d 20 72 65 63 65 72 6b 6c 68 6f 76 65 64 31 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ed ::= recerklhoved1 ┆
0x16560…1657a 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 ┆ ┆
0x1657a…16580 (0x194,0x2cc)
0x16580…165a0 20 20 20 20 20 20 20 20 20 20 20 20 65 6c 65 6d 65 6e 74 65 72 6b 6c 20 20 20 2d 2d 2d 2d 2d 3b ┆ elementerkl -----;┆
0x165a0…165c0 20 20 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 74 74 31 28 73 74 61 6b 70 69 6c 2d ┆ att1(stakpil-┆
0x165c0…165e0 31 29 3a 3d 61 74 74 31 28 73 74 61 6b 70 69 6c 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 ┆1):=att1(stakpil); e┆
0x165e0…16600 6e 64 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 00 00 00 00 00 00 00 00 ┆nd; begin ┆
0x16600…16606 (179,) (0x194,0x2cd)
0x16606…16620 63 6f 6d 6d 65 6e 74 20 2d 2d 2d 2d 2d 20 72 65 63 65 72 6b 6c 68 6f 76 65 64 ┆comment ----- recerklhoved┆
0x16620…16640 20 3a 3a 3d 20 72 65 63 65 72 6b 6c 68 6f 76 65 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ::= recerklhoved ┆
0x16640…16660 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 20 20 ┆ ┆
0x16660…1667e 20 20 20 73 6b 20 65 6c 65 6d 65 6e 74 65 72 6b 6c 20 2d 2d 2d 2d 2d 3b 0a 20 0a 20 20 20 ┆ sk elementerkl -----; ┆
0x1667e…16684 (0x194,0x2ce)
0x16684…166a0 20 20 20 20 20 20 20 20 20 20 20 61 74 74 31 28 73 74 61 6b 70 69 6c 2d 32 29 3a 3d ┆ att1(stakpil-2):=┆
0x166a0…166c0 61 74 74 31 28 73 74 61 6b 70 69 6c 2d 32 29 2b 61 74 74 31 28 73 74 61 6b 70 69 6c 29 3b 0a 20 ┆att1(stakpil-2)+att1(stakpil); ┆
0x166c0…166e0 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 ┆ end; be┆
0x166e0…166fc 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 2d 2d 2d 2d 2d 20 6c 61 62 65 6c 65 72 6b 6c 20 ┆gin comment ----- labelerkl ┆
0x166fc…16702 (0x194,0x2cf)
0x16702…16720 3a 3a 3d 20 6c 61 62 65 6c 20 6e 61 76 6e 20 2d 2d 2d 2d 2d 3b 0a 20 0a 20 20 20 20 20 20 ┆::= label navn -----; ┆
0x16720…16740 20 20 20 20 20 20 20 20 69 66 20 2d 2c 20 66 72 69 65 72 6b 6c 20 74 68 65 6e 20 66 65 6a 6c 28 ┆ if -, frierkl then fejl(┆
0x16740…16760 32 30 30 36 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 6e 64 73 7b 74 69 64 28 73 74 ┆2006); indsætid(st┆
0x16760…1677a 61 6b 70 69 6c 2c 30 2c 32 2c 36 2c 37 2c 30 29 3b 0a 20 20 20 20 20 20 20 20 ┆akpil,0,2,6,7,0); ┆
0x1677a…16780 (0x194,0x2d0)
0x16780…167a0 20 20 20 20 65 6e 64 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d ┆ end; begin com┆
0x167a0…167c0 6d 65 6e 74 20 2d 2d 2d 2d 2d 20 6c 61 62 65 6c 65 72 6b 6c 20 3a 3a 3d 20 6c 61 62 65 6c 65 72 ┆ment ----- labelerkl ::= labeler┆
0x167c0…167e0 6b 6c 20 2c 20 6e 61 76 6e 20 2d 2d 2d 2d 2d 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆kl , navn -----; ┆
0x167e0…16800 20 69 6e 64 73 7b 74 69 64 28 73 74 61 6b 70 69 6c 2c 30 2c 32 2c 36 2c 00 00 00 00 00 00 00 00 ┆ indsætid(stakpil,0,2,6, ┆
0x16800…16806 (180,) (0x194,0x2d1)
0x16806…16820 37 2c 30 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 0a 20 ┆7,0); end; ┆
0x16820…16840 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 2d 2d 2d 2d 2d 20 70 ┆ begin comment ----- p┆
0x16840…16860 72 65 72 6b 6c 68 6f 76 65 64 20 3a 3a 3d 20 70 72 6f 63 65 64 75 72 65 20 6e 61 76 6e 0a 20 20 ┆rerklhoved ::= procedure navn ┆
0x16860…1687e 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 ┆ ┆
0x1687e…16884 (0x194,0x2d2)
0x16884…168a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 20 2e 20 72 65 67 69 73 74 65 72 ┆ ( . register┆
0x168a0…168c0 20 2e 20 20 2d 2d 2d 2d 2d 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 61 74 ┆ . -----; if at┆
0x168c0…168e0 74 31 28 73 74 61 6b 70 69 6c 2d 31 29 3c 31 20 6f 72 20 61 74 74 31 28 73 74 61 6b 70 69 6c 2d ┆t1(stakpil-1)<1 or att1(stakpil-┆
0x168e0…168fc 31 29 3e 33 20 74 68 65 6e 20 66 65 6a 6c 28 32 30 30 39 29 3b 0a 20 20 20 20 20 20 ┆1)>3 then fejl(2009); ┆
0x168fc…16902 (0x194,0x2d3)
0x16902…16920 20 20 20 20 20 20 20 20 70 72 6f 63 6e 72 3a 3d 70 72 6f 63 6e 72 2b 31 3b 0a 20 20 20 20 ┆ procnr:=procnr+1; ┆
0x16920…16940 20 20 20 20 20 20 20 20 20 20 69 6e 64 73 7b 74 69 64 28 73 74 61 6b 70 69 6c 2d 34 2c 70 72 6f ┆ indsætid(stakpil-4,pro┆
0x16940…16960 63 6e 72 20 73 68 69 66 74 20 34 2b 61 74 74 31 28 73 74 61 6b 70 69 6c 2d 31 29 2c 34 2c 35 2c ┆cnr shift 4+att1(stakpil-1),4,5,┆
0x16960…1697a 37 2c 30 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 69 3a ┆7,0); for i:┆
0x1697a…16980 (0x194,0x2d4)
0x16980…169a0 3d 30 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 33 20 64 6f 20 77 66 72 69 28 69 29 3a 3d 74 72 ┆=0 step 1 until 3 do wfri(i):=tr┆
0x169a0…169c0 75 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 66 72 69 28 61 74 74 31 28 73 74 61 6b ┆ue; wfri(att1(stak┆
0x169c0…169e0 70 69 6c 2d 31 29 29 3a 3d 66 61 6c 73 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 6c ┆pil-1)):=false; wl┆
0x169e0…16a00 69 73 74 65 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 00 00 00 00 00 00 00 00 ┆iste:=0; r ┆
0x16a00…16a06 (181,) (0x194,0x2d5)
0x16a06…16a20 65 6c 61 64 72 28 34 29 3a 3d 2d 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆eladr(4):=-1; ┆
0x16a20…16a40 20 20 61 74 74 31 28 73 74 61 6b 70 69 6c 2d 35 29 3a 3d 31 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆ att1(stakpil-5):=1; ┆
0x16a40…16a60 20 20 20 20 20 20 69 66 20 70 72 6f 63 6e 72 20 3e 20 70 72 6f 63 61 6e 74 61 6c 20 74 68 65 6e ┆ if procnr > procantal then┆
0x16a60…16a7e 20 66 65 6a 6c 28 32 30 33 35 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a ┆ fejl(2035); end; ┆
0x16a7e…16a84 (0x194,0x2d6)
0x16a84…16aa0 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 ┆ begin comment ┆
0x16aa0…16ac0 2d 2d 2d 2d 2d 20 70 72 65 72 6b 6c 68 6f 76 65 64 20 3a 3a 3d 20 70 72 65 72 6b 6c 68 6f 76 65 ┆----- prerklhoved ::= prerklhove┆
0x16ac0…16ae0 64 20 0a 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 ┆d ┆
0x16ae0…16afc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 6b 20 72 65 67 69 73 74 ┆ sk regist┆
0x16afc…16b02 (0x194,0x2d7)
0x16b02…16b20 65 72 20 20 2d 2d 2d 2d 2d 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 3a 3d ┆er -----; i:=┆
0x16b20…16b40 61 74 74 31 28 73 74 61 6b 70 69 6c 29 20 65 78 74 72 61 63 74 20 32 3b 0a 20 20 20 20 20 20 20 ┆att1(stakpil) extract 2; ┆
0x16b40…16b60 20 20 20 20 20 20 20 69 66 20 2d 2c 20 77 66 72 69 28 69 29 20 74 68 65 6e 20 66 65 6a 6c 28 32 ┆ if -, wfri(i) then fejl(2┆
0x16b60…16b7a 30 31 30 29 20 65 6c 73 65 20 77 66 72 69 28 69 29 3a 3d 66 61 6c 73 65 3b 0a ┆010) else wfri(i):=false; ┆
0x16b7a…16b80 (0x194,0x2d8)
0x16b80…16ba0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 61 74 74 31 28 73 74 61 6b 70 69 6c 29 20 73 ┆ if att1(stakpil) s┆
0x16ba0…16bc0 68 69 66 74 20 28 2d 32 29 3d 31 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 ┆hift (-2)=1 then b┆
0x16bc0…16be0 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 2d 2c 20 77 66 72 69 28 ┆egin if -, wfri(┆
0x16be0…16c00 28 69 2d 31 29 20 65 78 74 72 61 63 74 20 32 29 20 74 68 65 6e 20 66 65 00 00 00 00 00 00 00 00 ┆(i-1) extract 2) then fe ┆
0x16c00…16c06 (182,) (0x194,0x2d9)
0x16c06…16c20 6a 6c 28 32 30 31 30 29 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆jl(2010) else ┆
0x16c20…16c40 20 20 20 20 20 20 20 20 20 20 77 66 72 69 28 28 69 2d 31 29 20 65 78 74 72 61 63 74 20 32 29 20 ┆ wfri((i-1) extract 2) ┆
0x16c40…16c60 3a 3d 20 66 61 6c 73 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 ┆:= false; end; ┆
0x16c60…16c7e 20 20 20 20 20 20 20 20 20 20 20 61 74 74 31 28 73 74 61 6b 70 69 6c 2d 32 29 3a 3d 61 74 ┆ att1(stakpil-2):=at┆
0x16c7e…16c84 (0x194,0x2da)
0x16c84…16ca0 74 31 28 73 74 61 6b 70 69 6c 2d 32 29 2b 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆t1(stakpil-2)+1; ┆
0x16ca0…16cc0 20 20 20 77 6c 69 73 74 65 3a 3d 69 66 20 61 74 74 31 28 73 74 61 6b 70 69 6c 2d 32 29 3e 32 20 ┆ wliste:=if att1(stakpil-2)>2 ┆
0x16cc0…16ce0 74 68 65 6e 20 77 6c 69 73 74 65 2b 28 61 74 74 31 28 73 74 61 6b 70 69 6c 29 0a 20 20 20 20 20 ┆then wliste+(att1(stakpil) ┆
0x16ce0…16cfc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 68 69 66 74 20 28 33 2a 28 61 ┆ shift (3*(a┆
0x16cfc…16d02 (0x194,0x2db)
0x16d02…16d20 74 74 31 28 73 74 61 6b 70 69 6c 2d 32 29 2d 32 29 29 29 20 65 6c 73 65 20 61 74 74 31 28 ┆tt1(stakpil-2)-2))) else att1(┆
0x16d20…16d40 73 74 61 6b 70 69 6c 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 0a 20 20 20 ┆stakpil); end; ┆
0x16d40…16d60 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 2d 2d 2d 2d 2d 20 70 72 65 ┆ begin comment ----- pre┆
0x16d60…16d7a 72 6b 6c 68 6f 76 65 64 20 3a 3a 3d 20 70 72 65 72 6b 6c 68 6f 76 65 64 0a 20 ┆rklhoved ::= prerklhoved ┆
0x16d7a…16d80 (0x194,0x2dc)
0x16d80…16da0 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 20 20 ┆ ┆
0x16da0…16dc0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 6b 20 73 69 6d 70 65 6c 65 72 6b 6c 20 2d 2d 2d ┆ sk simpelerkl ---┆
0x16dc0…16de0 2d 2d 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 61 74 74 31 28 73 74 61 6b ┆--; if att1(stak┆
0x16de0…16e00 70 69 6c 2d 32 29 3e 31 20 74 68 65 6e 20 66 65 6a 6c 28 32 30 30 34 29 00 00 00 00 00 00 00 00 ┆pil-2)>1 then fejl(2004) ┆
0x16e00…16e06 (183,) (0x194,0x2dd)
0x16e06…16e20 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65 6c 61 64 72 28 34 29 3a ┆; reladr(4):┆
0x16e20…16e40 3d 72 65 6c 61 64 72 28 34 29 2b 28 61 74 74 31 28 73 74 61 6b 70 69 6c 29 2b 31 29 2f 2f 32 2a ┆=reladr(4)+(att1(stakpil)+1)//2*┆
0x16e40…16e60 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 ┆2; end; ┆
0x16e60…16e7e 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 2d 2d 2d 2d 2d 20 73 7b 74 6e 6c 69 73 74 ┆ begin comment ----- sætnlist┆
0x16e7e…16e84 (0x194,0x2de)
0x16e84…16ea0 65 20 3a 3a 3d 20 73 7b 74 6e 20 2d 2d 2d 2d 2d 3b 0a 20 0a 20 20 20 20 20 20 20 20 ┆e ::= sætn -----; ┆
0x16ea0…16ec0 20 20 20 20 20 20 72 65 63 6f 76 70 6f 69 6e 74 3a 3d 73 74 61 6b 70 69 6c 3b 0a 20 20 20 20 20 ┆ recovpoint:=stakpil; ┆
0x16ec0…16ee0 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 ┆ end; begin ┆
0x16ee0…16efc 63 6f 6d 6d 65 6e 74 20 2d 2d 2d 2d 2d 20 73 7b 74 6e 6c 69 73 74 65 20 3a 3a 3d 20 ┆comment ----- sætnliste ::= ┆
0x16efc…16f02 (0x194,0x2df)
0x16f02…16f20 73 7b 74 6e 6c 69 73 74 65 20 73 6b 20 73 7b 74 6e 20 2d 2d 2d 2d 2d 3b 0a 20 0a 20 20 20 ┆sætnliste sk sætn -----; ┆
0x16f20…16f40 20 20 20 20 20 20 20 20 20 20 20 72 65 63 6f 76 70 6f 69 6e 74 3a 3d 73 74 61 6b 70 69 6c 3b 0a ┆ recovpoint:=stakpil; ┆
0x16f40…16f60 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 ┆ end; b┆
0x16f60…16f7a 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 2d 2d 2d 2d 2d 20 73 7b 74 6e 20 3a 3a ┆egin comment ----- sætn ::┆
0x16f7a…16f80 (0x194,0x2e0)
0x16f80…16fa0 3d 20 69 66 20 72 65 6c 61 74 69 6f 6e 20 74 68 65 6e 20 73 7b 74 6e 20 2d 2d 2d 2d 2d 3b 0a 20 ┆= if relation then sætn -----; ┆
0x16fa0…16fc0 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 3a 3d 61 74 74 31 28 73 74 61 6b 70 69 6c 2d 32 ┆ i:=att1(stakpil-2┆
0x16fc0…16fe0 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7a 28 7a 62 61 73 65 2b 69 29 3a 3d 31 33 20 ┆); z(zbase+i):=13 ┆
0x16fe0…17000 73 68 69 66 74 20 33 20 61 64 64 20 31 20 73 68 69 66 74 20 31 35 20 61 00 00 00 00 00 00 00 00 ┆shift 3 add 1 shift 15 a ┆
0x17000…17006 (184,) (0x194,0x2e1)
0x17006…17020 64 64 20 28 32 2a 28 7a 70 69 6c 2b 31 2d 69 29 29 3b 0a 20 20 20 20 20 20 20 ┆dd (2*(zpil+1-i)); ┆
0x17020…17040 20 20 20 20 20 65 6e 64 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f ┆ end; begin co┆
0x17040…17060 6d 6d 65 6e 74 20 2d 2d 2d 2d 2d 20 73 7b 74 6e 20 3a 3a 3d 20 6d 61 72 6b 7c 72 20 73 7b 74 6e ┆mment ----- sætn ::= markør sætn┆
0x17060…1707e 20 2d 2d 2d 2d 2d 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 0a 20 ┆ -----; end; ┆
0x1707e…17084 (0x194,0x2e2)
0x17084…170a0 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 2d 2d 2d ┆ begin comment ---┆
0x170a0…170c0 2d 2d 20 73 7b 74 6e 20 3a 3a 3d 20 73 7b 74 6e 32 20 2d 2d 2d 2d 2d 3b 0a 20 0a 20 20 20 20 20 ┆-- sætn ::= sætn2 -----; ┆
0x170c0…170e0 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 ┆ end; begin ┆
0x170e0…170fc 63 6f 6d 6d 65 6e 74 20 2d 2d 2d 2d 2d 20 6d 61 72 6b 7c 72 20 3a 3a 3d 20 6e 61 76 ┆comment ----- markør ::= nav┆
0x170fc…17102 (0x194,0x2e3)
0x17102…17120 6e 20 3a 20 2d 2d 2d 2d 2d 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 3a 3d ┆n : -----; i:=┆
0x17120…17140 69 64 74 61 62 73 7c 67 65 72 28 73 74 61 6b 70 69 6c 2d 31 2c 31 29 3b 0a 20 20 20 20 20 20 20 ┆idtabsøger(stakpil-1,1); ┆
0x17140…17160 20 20 20 20 20 20 20 69 66 20 69 64 74 61 62 34 28 69 29 20 73 68 69 66 74 20 28 2d 34 29 20 65 ┆ if idtab4(i) shift (-4) e┆
0x17160…1717a 78 74 72 61 63 74 20 34 3c 3e 36 20 74 68 65 6e 20 66 65 6a 6c 28 32 30 32 31 ┆xtract 4<>6 then fejl(2021┆
0x1717a…17180 (0x194,0x2e4)
0x17180…171a0 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 64 74 61 62 35 28 69 29 3a 3d 32 2a 28 7a ┆); idtab5(i):=2*(z┆
0x171a0…171c0 70 69 6c 2b 31 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 0a 20 20 20 20 20 ┆pil+1); end; ┆
0x171c0…171e0 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 2d 2d 2d 2d 2d 20 73 7b 74 6e 32 ┆ begin comment ----- sætn2┆
0x171e0…17200 20 3a 3a 3d 20 20 20 20 2d 2d 2d 2d 2d 3b 0a 20 0a 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ ::= -----; ┆
0x17200…17206 (185,) (0x194,0x2e5)
0x17206…17220 20 20 20 20 20 65 6e 64 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 ┆ end; be┆
0x17220…17240 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 2d 2d 2d 2d 2d 20 73 7b 74 6e 32 20 3a 3a 3d 20 72 65 78 20 ┆gin comment ----- sætn2 ::= rex ┆
0x17240…17260 2d 2d 2d 2d 2d 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 0a 20 20 20 20 ┆-----; end; ┆
0x17260…1727e 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 2d 2d 2d 2d 2d 20 73 7b ┆ begin comment ----- sæ┆
0x1727e…17284 (0x194,0x2e6)
0x17284…172a0 74 6e 32 20 3a 3a 3d 20 61 73 73 69 67 6e 6d 65 6e 74 20 2d 2d 2d 2d 2d 3b 0a 20 0a ┆tn2 ::= assignment -----; ┆
0x172a0…172c0 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 ┆ end; b┆
0x172c0…172e0 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 2d 2d 2d 2d 2d 20 73 7b 74 6e 32 20 3a 3a 3d 20 70 72 6b ┆egin comment ----- sætn2 ::= prk┆
0x172e0…172fc 61 6c 64 20 2d 2d 2d 2d 2d 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 ┆ald -----; end┆
0x172fc…17302 (0x194,0x2e7)
0x17302…17320 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 ┆; begin comment ┆
0x17320…17340 2d 2d 2d 2d 2d 20 73 7b 74 6e 32 20 3a 3a 3d 20 61 62 65 6c 65 64 20 70 72 6b 61 6c 64 20 2d 2d ┆----- sætn2 ::= abeled prkald --┆
0x17340…17360 2d 2d 2d 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7a 28 7a 62 61 73 65 2b 61 74 74 ┆---; z(zbase+att┆
0x17360…1737a 31 28 73 74 61 6b 70 69 6c 29 29 3a 3d 7a 28 7a 62 61 73 65 2b 61 74 74 31 28 ┆1(stakpil)):=z(zbase+att1(┆
0x1737a…17380 (0x194,0x2e8)
0x17380…173a0 73 74 61 6b 70 69 6c 29 29 2b 61 74 74 31 28 73 74 61 6b 70 69 6c 2d 31 29 0a 20 20 20 20 20 20 ┆stakpil))+att1(stakpil-1) ┆
0x173a0…173c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 68 69 66 74 20 31 38 3b 0a 20 20 20 20 20 20 20 ┆ shift 18; ┆
0x173c0…173e0 20 20 20 20 20 65 6e 64 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f ┆ end; begin co┆
0x173e0…17400 6d 6d 65 6e 74 20 2d 2d 2d 2d 2d 20 73 7b 74 6e 32 20 3a 3a 3d 20 66 70 00 00 00 00 00 00 00 00 ┆mment ----- sætn2 ::= fp ┆
0x17400…17406 (186,) (0x194,0x2e9)
0x17406…17420 6b 61 6c 64 20 2d 2d 2d 2d 2d 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆kald -----; ┆
0x17420…17440 20 20 69 66 20 2d 2c 20 66 70 20 74 68 65 6e 20 66 65 6a 6c 28 32 30 31 32 29 3b 0a 20 20 20 20 ┆ if -, fp then fejl(2012); ┆
0x17440…17460 20 20 20 20 20 20 20 20 20 20 69 66 20 61 74 74 31 28 73 74 61 6b 70 69 6c 29 20 73 68 69 66 74 ┆ if att1(stakpil) shift┆
0x17460…1747e 20 28 2d 31 32 29 20 65 78 74 72 61 63 74 20 32 3c 3e 31 20 74 68 65 6e 20 66 65 6a 6c 28 ┆ (-12) extract 2<>1 then fejl(┆
0x1747e…17484 (0x194,0x2ea)
0x17484…174a0 32 30 31 31 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 61 74 74 31 ┆2011); if att1┆
0x174a0…174c0 28 73 74 61 6b 70 69 6c 29 20 65 78 74 72 61 63 74 20 31 32 20 2d 32 2a 28 7a 70 69 6c 2b 31 29 ┆(stakpil) extract 12 -2*(zpil+1)┆
0x174c0…174e0 3c 2d 32 30 34 38 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a ┆<-2048 then begin ┆
0x174e0…174fc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 28 39 2c 30 2c 31 2c 31 2c 30 2c ┆ o(9,0,1,1,0,┆
0x174fc…17502 (0x194,0x2eb)
0x17502…17520 32 2a 28 62 61 73 69 73 72 65 66 2d 7a 70 69 6c 2d 31 29 29 3b 0a 20 20 20 20 20 20 20 20 ┆2*(basisref-zpil-1)); ┆
0x17520…17540 20 20 20 20 20 20 20 20 6f 28 31 33 2c 33 2c 31 2c 30 2c 30 2c 61 74 74 31 28 73 74 61 6b 70 69 ┆ o(13,3,1,0,0,att1(stakpi┆
0x17540…17560 6c 29 20 65 78 74 72 61 63 74 20 31 32 2b 32 2a 28 62 61 73 69 73 72 65 66 2d 7a 70 69 6c 2d 31 ┆l) extract 12+2*(basisref-zpil-1┆
0x17560…1757a 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 20 65 6c 73 65 ┆)); end else┆
0x1757a…17580 (0x194,0x2ec)
0x17580…175a0 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 28 31 33 2c 33 2c 31 2c 30 2c 30 2c 61 74 74 31 ┆ o(13,3,1,0,0,att1┆
0x175a0…175c0 28 73 74 61 6b 70 69 6c 29 20 65 78 74 72 61 63 74 20 31 32 20 2d 32 2a 28 7a 70 69 6c 2b 31 29 ┆(stakpil) extract 12 -2*(zpil+1)┆
0x175c0…175e0 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 61 74 74 31 28 73 74 61 6b 70 69 6c ┆); if att1(stakpil┆
0x175e0…17600 29 20 65 78 74 72 61 63 74 20 31 32 3d 31 30 34 38 20 6f 72 20 61 74 74 00 00 00 00 00 00 00 00 ┆) extract 12=1048 or att ┆
0x17600…17606 (187,) (0x194,0x2ed)
0x17606…17620 31 28 73 74 61 6b 70 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆1(stakpil) ┆
0x17620…17640 20 20 65 78 74 72 61 63 74 20 31 32 3d 31 30 34 36 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 ┆ extract 12=1046 then ┆
0x17640…17660 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7a 70 69 6c 3a ┆ begin zpil:┆
0x17660…1767e 3d 7a 70 69 6c 2b 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7a 28 7a 62 61 ┆=zpil+1; z(zba┆
0x1767e…17684 (0x194,0x2ee)
0x17684…176a0 73 65 2b 7a 70 69 6c 29 3a 3d 6c 61 79 6f 75 74 6f 72 64 3b 0a 20 20 20 20 20 20 20 ┆se+zpil):=layoutord; ┆
0x176a0…176c0 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 0a 20 ┆ end; end; ┆
0x176c0…176e0 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 2d 2d 2d 2d 2d 20 73 ┆ begin comment ----- s┆
0x176e0…176fc 7b 74 6e 32 20 3a 3a 3d 20 6d 6f 6e 69 74 6f 72 20 28 20 70 6b 6f 6e 73 74 20 29 20 ┆ætn2 ::= monitor ( pkonst ) ┆
0x176fc…17702 (0x194,0x2ef)
0x17702…17720 2d 2d 2d 2d 2d 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 2d 2c 20 6d 6f ┆----- if -, mo┆
0x17720…17740 6e 20 74 68 65 6e 20 66 65 6a 6c 28 32 30 31 33 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆n then fejl(2013); ┆
0x17740…17760 20 69 66 20 61 74 74 33 28 73 74 61 6b 70 69 6c 2d 31 29 3e 39 32 20 6f 72 20 61 74 74 33 28 73 ┆ if att3(stakpil-1)>92 or att3(s┆
0x17760…1777a 74 61 6b 70 69 6c 2d 31 29 20 65 78 74 72 61 63 74 20 31 3d 31 0a 20 20 20 20 ┆takpil-1) extract 1=1 ┆
0x1777a…17780 (0x194,0x2f0)
0x17780…177a0 20 20 20 20 20 20 20 20 20 20 20 20 20 74 68 65 6e 20 66 65 6a 6c 28 32 30 31 34 29 3b 0a 20 20 ┆ then fejl(2014); ┆
0x177a0…177c0 20 20 20 20 20 20 20 20 20 20 20 20 7a 70 69 6c 3a 3d 7a 70 69 6c 2b 31 3b 0a 20 20 20 20 20 20 ┆ zpil:=zpil+1; ┆
0x177c0…177e0 20 20 20 20 20 20 20 20 7a 28 7a 62 61 73 65 2b 7a 70 69 6c 29 3a 3d 31 34 20 73 68 69 66 74 20 ┆ z(zbase+zpil):=14 shift ┆
0x177e0…17800 37 20 61 64 64 20 31 20 73 68 69 66 74 20 31 31 20 61 64 64 20 61 74 74 00 00 00 00 00 00 00 00 ┆7 add 1 shift 11 add att ┆
0x17800…17806 (188,) (0x194,0x2f1)
0x17806…17820 33 28 73 74 61 6b 70 69 6c 2d 31 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆3(stakpil-1); ┆
0x17820…17840 65 6e 64 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 ┆end; begin comment┆
0x17840…17860 20 2d 2d 2d 2d 2d 20 73 7b 74 6e 32 20 3a 3a 3d 20 63 61 73 65 73 74 61 72 74 32 20 65 6e 64 20 ┆ ----- sætn2 ::= casestart2 end ┆
0x17860…1787e 2d 2d 2d 2d 2d 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 3a 3d 61 74 74 31 ┆-----; i:=att1┆
0x1787e…17884 (0x194,0x2f2)
0x17884…178a0 28 73 74 61 6b 70 69 6c 2d 31 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7a ┆(stakpil-1); z┆
0x178a0…178c0 28 7a 62 61 73 65 2b 7a 70 69 6c 29 3a 3d 31 33 20 73 68 69 66 74 20 33 20 61 64 64 20 31 20 73 ┆(zbase+zpil):=13 shift 3 add 1 s┆
0x178c0…178e0 68 69 66 74 20 31 35 20 61 64 64 20 28 32 2a 28 69 2b 31 29 29 3b 0a 20 20 20 20 20 20 20 20 20 ┆hift 15 add (2*(i+1)); ┆
0x178e0…178fc 20 20 20 20 20 63 61 73 65 73 74 61 6b 70 69 6c 3a 3d 63 61 73 65 73 74 61 6b 70 69 ┆ casestakpil:=casestakpi┆
0x178fc…17902 (0x194,0x2f3)
0x17902…17920 6c 2d 69 2d 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 3a 3d 63 61 73 65 73 74 ┆l-i-1; n:=casest┆
0x17920…17940 61 6b 28 63 61 73 65 73 74 61 6b 70 69 6c 2b 31 29 2d 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ak(casestakpil+1)-1; ┆
0x17940…17960 20 20 20 7a 28 7a 62 61 73 65 2b 6e 29 3a 3d 7a 28 7a 62 61 73 65 2b 6e 29 20 61 64 64 20 28 32 ┆ z(zbase+n):=z(zbase+n) add (2┆
0x17960…1797a 2a 28 7a 70 69 6c 2d 6e 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆*(zpil-n)); ┆
0x1797a…17980 (0x194,0x2f4)
0x17980…179a0 66 6f 72 20 6a 3a 3d 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 69 20 64 6f 0a 20 20 20 20 20 ┆for j:=1 step 1 until i do ┆
0x179a0…179c0 20 20 20 20 20 20 20 20 20 20 20 6f 28 31 33 2c 30 2c 31 2c 30 2c 30 2c 32 2a 28 63 61 73 65 73 ┆ o(13,0,1,0,0,2*(cases┆
0x179c0…179e0 74 61 6b 28 63 61 73 65 73 74 61 6b 70 69 6c 2b 6a 29 2d 7a 70 69 6c 2d 31 29 29 3b 0a 20 20 20 ┆tak(casestakpil+j)-zpil-1)); ┆
0x179e0…17a00 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 6a 3a 3d 32 20 73 74 00 00 00 00 00 00 00 00 ┆ for j:=2 st ┆
0x17a00…17a06 (189,) (0x194,0x2f5)
0x17a06…17a20 65 70 20 31 20 75 6e 74 69 6c 20 69 20 64 6f 0a 20 20 20 20 20 20 20 20 20 20 ┆ep 1 until i do ┆
0x17a20…17a40 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 3a ┆ begin n:┆
0x17a40…17a60 3d 63 61 73 65 73 74 61 6b 28 63 61 73 65 73 74 61 6b 70 69 6c 2b 6a 29 2d 31 3b 0a 20 20 20 20 ┆=casestak(casestakpil+j)-1; ┆
0x17a60…17a7e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7a 28 7a 62 61 73 65 2b 6e 29 3a 3d 31 33 20 73 ┆ z(zbase+n):=13 s┆
0x17a7e…17a84 (0x194,0x2f6)
0x17a84…17aa0 68 69 66 74 20 33 20 61 64 64 20 31 20 73 68 69 66 74 20 31 35 20 61 64 64 20 28 32 ┆hift 3 add 1 shift 15 add (2┆
0x17aa0…17ac0 2a 28 7a 70 69 6c 2b 31 2d 6e 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e ┆*(zpil+1-n)); en┆
0x17ac0…17ae0 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 ┆d; end; ┆
0x17ae0…17afc 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 2d 2d 2d 2d 2d 20 73 7b 74 6e 32 20 ┆ begin comment ----- sætn2 ┆
0x17afc…17b02 (0x194,0x2f7)
0x17b02…17b20 3a 3a 3d 20 77 68 69 6c 65 64 65 6c 20 72 65 6c 61 74 69 6f 6e 20 64 6f 20 73 7b 74 6e 32 ┆::= whiledel relation do sætn2┆
0x17b20…17b40 20 2d 2d 2d 2d 2d 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 28 31 33 2c 30 2c 31 ┆ -----; o(13,0,1┆
0x17b40…17b60 2c 30 2c 30 2c 28 61 74 74 31 28 73 74 61 6b 70 69 6c 2d 33 29 2d 7a 70 69 6c 2d 31 29 2a 32 29 ┆,0,0,(att1(stakpil-3)-zpil-1)*2)┆
0x17b60…17b7a 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 3a 3d 61 74 74 31 28 73 74 ┆; i:=att1(st┆
0x17b7a…17b80 (0x194,0x2f8)
0x17b80…17ba0 61 6b 70 69 6c 2d 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7a 28 7a 62 61 73 65 2b ┆akpil-2); z(zbase+┆
0x17ba0…17bc0 69 29 3a 3d 31 33 20 73 68 69 66 74 20 33 20 61 64 64 20 31 20 73 68 69 66 74 20 31 35 20 61 64 ┆i):=13 shift 3 add 1 shift 15 ad┆
0x17bc0…17be0 64 20 28 28 7a 70 69 6c 2b 31 2d 69 29 2a 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e ┆d ((zpil+1-i)*2); en┆
0x17be0…17c00 64 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 00 00 00 00 00 00 00 00 ┆d; begin c ┆
0x17c00…17c06 (190,) (0x194,0x2f9)
0x17c06…17c20 6f 6d 6d 65 6e 74 20 2d 2d 2d 2d 2d 20 73 7b 74 6e 32 20 3a 3a 3d 20 66 6f 72 ┆omment ----- sætn2 ::= for┆
0x17c20…17c40 64 65 6c 20 73 74 65 70 20 6f 70 65 72 61 6e 64 20 75 70 74 6f 20 0a 20 20 20 20 20 20 20 20 20 ┆del step operand upto ┆
0x17c40…17c60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 70 65 72 61 6e 64 20 64 ┆ operand d┆
0x17c60…17c7e 6f 20 73 7b 74 6e 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2d 2d 2d 2d ┆o sætn2 ----┆
0x17c7e…17c84 (0x194,0x2fa)
0x17c84…17ca0 2d 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 61 6e 64 79 6f 70 6b 6f ┆-; dandyopko┆
0x17ca0…17cc0 64 65 28 32 2c 73 74 61 6b 70 69 6c 2d 36 2c 73 74 61 6b 70 69 6c 2d 34 29 3b 0a 20 20 20 20 20 ┆de(2,stakpil-6,stakpil-4); ┆
0x17cc0…17ce0 20 20 20 20 20 20 20 20 20 64 61 6e 64 79 6f 70 6b 6f 64 65 28 31 36 2c 73 74 61 6b 70 69 6c 2d ┆ dandyopkode(16,stakpil-┆
0x17ce0…17cfc 36 2c 73 74 61 6b 70 69 6c 2d 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆6,stakpil-2); ┆
0x17cfc…17d02 (0x194,0x2fb)
0x17d02…17d20 6f 28 31 33 2c 30 2c 31 2c 30 2c 30 2c 28 61 74 74 33 28 73 74 61 6b 70 69 6c 2d 36 29 2d ┆o(13,0,1,0,0,(att3(stakpil-6)-┆
0x17d20…17d40 7a 70 69 6c 2d 31 29 2a 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 0a 20 ┆zpil-1)*2); end; ┆
0x17d40…17d60 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 2d 2d 2d 2d 2d 20 73 ┆ begin comment ----- s┆
0x17d60…17d7a 7b 74 6e 32 20 3a 3a 3d 20 66 6f 72 64 65 6c 20 73 74 65 70 20 6f 70 65 72 61 ┆ætn2 ::= fordel step opera┆
0x17d7a…17d80 (0x194,0x2fc)
0x17d80…17da0 6e 64 20 64 6f 77 6e 74 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆nd downto ┆
0x17da0…17dc0 20 20 20 20 20 20 20 20 20 20 6f 70 65 72 61 6e 64 20 64 6f 20 73 7b 74 6e 20 20 20 20 20 20 20 ┆ operand do sætn ┆
0x17dc0…17de0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2d 2d 2d 2d 2d 3b 0a 20 0a 20 20 20 20 20 20 20 20 ┆ -----; ┆
0x17de0…17e00 20 20 20 20 20 20 64 61 6e 64 79 6f 70 6b 6f 64 65 28 33 2c 73 74 61 6b 00 00 00 00 00 00 00 00 ┆ dandyopkode(3,stak ┆
0x17e00…17e06 (191,) (0x194,0x2fd)
0x17e06…17e20 70 69 6c 2d 36 2c 73 74 61 6b 70 69 6c 2d 34 29 3b 0a 20 20 20 20 20 20 20 20 ┆pil-6,stakpil-4); ┆
0x17e20…17e40 20 20 20 20 20 20 64 61 6e 64 79 6f 70 6b 6f 64 65 28 31 20 73 68 69 66 74 20 36 2b 31 36 2c 73 ┆ dandyopkode(1 shift 6+16,s┆
0x17e40…17e60 74 61 6b 70 69 6c 2d 36 2c 73 74 61 6b 70 69 6c 2d 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆takpil-6,stakpil-2); ┆
0x17e60…17e7e 20 20 20 6f 28 31 33 2c 30 2c 31 2c 30 2c 30 2c 28 61 74 74 33 28 73 74 61 6b 70 69 6c 2d ┆ o(13,0,1,0,0,(att3(stakpil-┆
0x17e7e…17e84 (0x194,0x2fe)
0x17e84…17ea0 36 29 2d 7a 70 69 6c 2d 31 29 2a 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 ┆6)-zpil-1)*2); e┆
0x17ea0…17ec0 6e 64 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 ┆nd; begin comment ┆
0x17ec0…17ee0 2d 2d 2d 2d 2d 20 73 7b 74 6e 32 20 3a 3a 3d 20 63 61 6c 6c 20 72 65 67 69 73 74 65 72 20 6f 70 ┆----- sætn2 ::= call register op┆
0x17ee0…17efc 65 72 61 6e 64 20 2d 2d 2d 2d 2d 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆erand -----; ┆
0x17efc…17f02 (0x194,0x2ff)
0x17f02…17f20 20 61 74 74 32 28 73 74 61 6b 70 69 6c 2d 31 29 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 ┆ att2(stakpil-1):=0; ┆
0x17f20…17f40 20 20 20 20 20 69 66 20 20 61 74 74 31 28 73 74 61 6b 70 69 6c 2d 31 29 3e 33 20 74 68 65 6e 20 ┆ if att1(stakpil-1)>3 then ┆
0x17f40…17f60 66 65 6a 6c 28 32 30 30 39 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 61 6e 64 79 6f ┆fejl(2009); dandyo┆
0x17f60…17f7a 70 6b 6f 64 65 28 33 31 2c 73 74 61 6b 70 69 6c 2d 31 2c 73 74 61 6b 70 69 6c ┆pkode(31,stakpil-1,stakpil┆
0x17f7a…17f80 (0x194,0x300)
0x17f80…17fa0 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 ┆); end; ┆
0x17fa0…17fc0 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 2d 2d 2d 2d 2d 20 73 7b 74 6e 32 20 3a 3a 3d 20 ┆ begin comment ----- sætn2 ::= ┆
0x17fc0…17fe0 63 72 65 61 74 65 20 6e 61 76 6e 20 28 20 72 65 78 20 2c 20 6f 70 65 72 61 6e 64 20 29 20 2d 2d ┆create navn ( rex , operand ) --┆
0x17fe0…18000 2d 2d 2d 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 00 00 00 00 00 00 00 00 ┆---; if ┆
0x18000…18006 (192,) (0x194,0x301)
0x18006…18020 61 74 74 32 28 73 74 61 6b 70 69 6c 2d 33 29 3c 3e 30 20 61 6e 64 20 61 74 74 ┆att2(stakpil-3)<>0 and att┆
0x18020…18040 32 28 73 74 61 6b 70 69 6c 2d 33 29 3c 3e 32 20 74 68 65 6e 20 66 65 6a 6c 28 32 30 31 35 29 3b ┆2(stakpil-3)<>2 then fejl(2015);┆
0x18040…18060 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 3a 3d 69 64 74 61 62 73 7c 67 65 72 28 73 74 61 ┆ n:=idtabsøger(sta┆
0x18060…1807e 6b 70 69 6c 2d 35 2c 31 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 69 64 ┆kpil-5,1); if id┆
0x1807e…18084 (0x194,0x302)
0x18084…180a0 74 61 62 34 28 6e 29 20 73 68 69 66 74 20 28 2d 34 29 20 65 78 74 72 61 63 74 20 34 ┆tab4(n) shift (-4) extract 4┆
0x180a0…180c0 3c 3e 32 20 74 68 65 6e 20 66 65 6a 6c 28 32 30 30 33 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆<>2 then fejl(2003); ┆
0x180c0…180e0 20 20 20 69 66 20 69 64 74 61 62 34 28 6e 29 20 73 68 69 66 74 20 28 2d 38 29 20 65 78 74 72 61 ┆ if idtab4(n) shift (-8) extra┆
0x180e0…180fc 63 74 20 34 3c 3e 34 20 74 68 65 6e 20 66 65 6a 6c 28 32 30 30 36 29 3b 0a 20 20 20 ┆ct 4<>4 then fejl(2006); ┆
0x180fc…18102 (0x194,0x303)
0x18102…18120 20 20 20 20 20 20 20 20 20 20 20 69 66 20 61 74 74 32 28 73 74 61 6b 70 69 6c 2d 31 29 20 ┆ if att2(stakpil-1) ┆
0x18120…18140 65 78 74 72 61 63 74 20 33 3c 3e 31 20 74 68 65 6e 20 66 65 6a 6c 28 32 30 30 33 29 3b 0a 20 20 ┆extract 3<>1 then fejl(2003); ┆
0x18140…18160 20 20 20 20 20 20 20 20 20 20 20 20 6f 28 32 33 2c 61 74 74 31 28 73 74 61 6b 70 69 6c 2d 33 29 ┆ o(23,att1(stakpil-3)┆
0x18160…1817a 2c 31 2c 30 2c 30 2c 69 64 74 61 62 35 28 6e 29 2d 32 2a 28 7a 70 69 6c 2b 31 ┆,1,0,0,idtab5(n)-2*(zpil+1┆
0x1817a…18180 (0x194,0x304)
0x18180…181a0 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 28 31 31 2c 61 74 74 31 28 73 74 61 6b ┆)); o(11,att1(stak┆
0x181a0…181c0 70 69 6c 2d 33 29 2c 30 2c 30 2c 30 2c 69 64 74 61 62 34 28 6e 29 20 73 68 69 66 74 20 28 2d 31 ┆pil-3),0,0,0,idtab4(n) shift (-1┆
0x181c0…181e0 32 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 74 74 32 28 73 74 61 6b 70 69 6c 2d ┆2)); att2(stakpil-┆
0x181e0…18200 33 29 3a 3d 33 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 61 6e 00 00 00 00 00 00 00 00 ┆3):=3; dan ┆
0x18200…18206 (193,) (0x194,0x305)
0x18206…18220 64 79 6f 70 6b 6f 64 65 28 34 2c 73 74 61 6b 70 69 6c 2d 33 2c 73 74 61 6b 70 ┆dyopkode(4,stakpil-3,stakp┆
0x18220…18240 69 6c 2d 31 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 28 37 2c 61 74 74 31 28 73 74 ┆il-1); o(7,att1(st┆
0x18240…18260 61 6b 70 69 6c 2d 33 29 2c 31 2c 30 2c 30 2c 69 64 74 61 62 35 28 6e 29 2d 32 2a 28 7a 70 69 6c ┆akpil-3),1,0,0,idtab5(n)-2*(zpil┆
0x18260…1827e 2b 31 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 28 32 33 2c 61 74 74 31 28 ┆+1)); o(23,att1(┆
0x1827e…18284 (0x194,0x306)
0x18284…182a0 73 74 61 6b 70 69 6c 2d 33 29 2c 31 2c 30 2c 30 2c 69 64 74 61 62 35 28 6e 29 2d 32 ┆stakpil-3),1,0,0,idtab5(n)-2┆
0x182a0…182c0 2a 28 7a 70 69 6c 2b 31 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 0a 20 ┆*(zpil+1)); end; ┆
0x182c0…182e0 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 2d 2d 2d 2d 2d 20 73 ┆ begin comment ----- s┆
0x182e0…182fc 7b 74 6e 32 20 3a 3a 3d 20 67 6f 74 6f 73 7b 74 6e 20 2d 2d 2d 2d 2d 3b 0a 20 0a 20 ┆ætn2 ::= gotosætn -----; ┆
0x182fc…18302 (0x194,0x307)
0x18302…18320 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ end; ┆
0x18320…18340 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 2d 2d 2d 2d 2d 20 73 7b 74 6e 32 20 3a 3a 3d 20 62 65 ┆begin comment ----- sætn2 ::= be┆
0x18340…18360 67 69 6e 20 73 7b 74 6e 6c 69 73 74 65 20 65 6e 64 20 2d 2d 2d 2d 2d 3b 0a 20 0a 20 20 20 20 20 ┆gin sætnliste end -----; ┆
0x18360…1837a 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ end; ┆
0x1837a…18380 (0x194,0x308)
0x18380…183a0 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 2d 2d 2d 2d 2d 20 73 7b 74 6e 32 20 3a 3a 3d 20 67 65 ┆begin comment ----- sætn2 ::= ge┆
0x183a0…183c0 74 63 68 61 72 20 28 20 2e 20 72 65 67 69 73 74 65 72 20 2e 0a 20 20 20 20 20 20 20 20 20 20 20 ┆tchar ( . register . ┆
0x183c0…183e0 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 20 20 ┆ ┆
0x183e0…18400 20 20 20 20 20 20 20 20 20 2c 20 72 65 67 69 73 74 65 72 20 20 20 2d 2d 00 00 00 00 00 00 00 00 ┆ , register -- ┆
0x18400…18406 (194,) (0x194,0x309)
0x18406…18420 2d 2d 2d 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 2d 2c ┆---; if -,┆
0x18420…18440 20 66 70 20 74 68 65 6e 20 66 65 6a 6c 28 32 30 31 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ fp then fejl(2012); ┆
0x18440…18460 20 20 20 69 66 20 61 74 74 31 28 73 74 61 6b 70 69 6c 2d 34 29 3c 3e 33 20 6f 72 20 61 74 74 31 ┆ if att1(stakpil-4)<>3 or att1┆
0x18460…1847e 28 73 74 61 6b 70 69 6c 2d 31 29 3c 3e 32 20 74 68 65 6e 20 66 65 6a 6c 28 32 30 31 36 29 ┆(stakpil-1)<>2 then fejl(2016)┆
0x1847e…18484 (0x194,0x30a)
0x18484…184a0 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 38 34 36 2d 32 2a 28 7a 70 ┆; if 846-2*(zp┆
0x184a0…184c0 69 6c 2b 31 29 3c 2d 32 30 34 38 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 ┆il+1)<-2048 then b┆
0x184c0…184e0 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 28 39 2c 30 2c 31 2c 31 2c 30 ┆egin o(9,0,1,1,0┆
0x184e0…184fc 2c 28 62 61 73 69 73 72 65 66 2d 7a 70 69 6c 2d 31 29 2a 32 29 3b 0a 20 20 20 20 20 ┆,(basisref-zpil-1)*2); ┆
0x184fc…18502 (0x194,0x30b)
0x18502…18520 20 20 20 20 20 20 20 20 20 20 20 6f 28 31 33 2c 33 2c 31 2c 30 2c 30 2c 38 34 36 2b 28 62 ┆ o(13,3,1,0,0,846+(b┆
0x18520…18540 61 73 69 73 72 65 66 2d 7a 70 69 6c 2d 31 29 2a 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆asisref-zpil-1)*2); ┆
0x18540…18560 20 20 65 6e 64 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 28 31 33 2c 33 2c ┆ end else o(13,3,┆
0x18560…1857a 31 2c 30 2c 30 2c 38 34 36 2d 32 2a 28 7a 70 69 6c 2b 31 29 29 3b 0a 20 20 20 ┆1,0,0,846-2*(zpil+1)); ┆
0x1857a…18580 (0x194,0x30c)
0x18580…185a0 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 ┆ end; begi┆
0x185a0…185c0 6e 20 63 6f 6d 6d 65 6e 74 20 2d 2d 2d 2d 2d 20 73 7b 74 6e 32 20 3a 3a 3d 20 6c 61 79 6f 75 74 ┆n comment ----- sætn2 ::= layout┆
0x185c0…185e0 20 28 20 70 70 6b 6f 6e 73 74 20 2c 20 6b 6f 6e 73 74 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ( ppkonst , konst ┆
0x185e0…18600 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ ┆
0x18600…18606 (195,) (0x194,0x30d)
0x18606…18620 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 20 70 6b 6f 6e ┆ , pkon┆
0x18620…18640 73 74 20 29 20 2d 2d 2d 2d 2d 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 61 ┆st ) -----; if a┆
0x18640…18660 74 74 33 28 73 74 61 6b 70 69 6c 2d 35 29 3e 31 20 74 68 65 6e 20 66 65 6a 6c 28 32 30 34 30 29 ┆tt3(stakpil-5)>1 then fejl(2040)┆
0x18660…1867e 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 61 74 74 33 28 73 74 61 6b 70 69 ┆; if att3(stakpi┆
0x1867e…18684 (0x194,0x30e)
0x18684…186a0 6c 2d 33 29 3e 31 32 37 20 74 68 65 6e 20 66 65 6a 6c 28 32 30 34 30 29 3b 0a 20 20 ┆l-3)>127 then fejl(2040); ┆
0x186a0…186c0 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 61 74 74 33 28 73 74 61 6b 70 69 6c 2d 31 29 3e 31 ┆ if att3(stakpil-1)>1┆
0x186c0…186e0 32 20 74 68 65 6e 20 66 65 6a 6c 28 32 30 34 30 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆2 then fejl(2040); ┆
0x186e0…186fc 20 6c 61 79 6f 75 74 6f 72 64 3a 3d 61 74 74 33 28 73 74 61 6b 70 69 6c 2d 35 29 20 ┆ layoutord:=att3(stakpil-5) ┆
0x186fc…18702 (0x194,0x30f)
0x18702…18720 73 68 69 66 74 20 32 33 2b 61 74 74 33 28 73 74 61 6b 70 69 6c 2d 33 29 0a 20 20 20 20 20 ┆shift 23+att3(stakpil-3) ┆
0x18720…18740 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 68 69 66 74 20 31 32 2b 61 74 74 33 28 73 74 ┆ shift 12+att3(st┆
0x18740…18760 61 6b 70 69 6c 2d 31 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 0a 20 20 20 ┆akpil-1); end; ┆
0x18760…1877a 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 2d 2d 2d ┆ begin comment ---┆
0x1877a…18780 (0x194,0x310)
0x18780…187a0 2d 2d 20 73 7b 74 6e 32 20 3a 3a 3d 20 77 72 69 74 65 20 28 20 2e 20 72 65 67 69 73 74 65 72 20 ┆-- sætn2 ::= write ( . register ┆
0x187a0…187c0 2e 20 2c 0a 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 ┆. , ┆
0x187c0…187e0 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 72 65 78 20 29 20 ┆ rex ) ┆
0x187e0…18800 20 20 20 20 20 20 2d 2d 2d 2d 2d 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ -----; ┆
0x18800…18806 (196,) (0x194,0x311)
0x18806…18820 20 20 20 20 20 69 66 20 2d 2c 20 66 70 20 74 68 65 6e 20 66 65 6a 6c 28 32 30 ┆ if -, fp then fejl(20┆
0x18820…18840 31 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 61 74 74 31 28 73 74 61 6b 70 ┆12); if att1(stakp┆
0x18840…18860 69 6c 2d 34 29 3c 3e 33 20 74 68 65 6e 20 66 65 6a 6c 28 32 30 31 36 29 3b 0a 20 20 20 20 20 20 ┆il-4)<>3 then fejl(2016); ┆
0x18860…1887e 20 20 20 20 20 20 20 20 69 66 20 61 74 74 31 28 73 74 61 6b 70 69 6c 2d 31 29 3d 30 20 74 ┆ if att1(stakpil-1)=0 t┆
0x1887e…18884 (0x194,0x312)
0x18884…188a0 68 65 6e 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 ┆hen begin ┆
0x188a0…188c0 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 61 74 74 32 28 73 74 61 6b 70 69 6c 2d 31 29 3d ┆ if att2(stakpil-1)=┆
0x188c0…188e0 32 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 ┆2 then begin ┆
0x188e0…188fc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 31 30 31 32 2d 32 2a 28 7a 70 ┆ if 1012-2*(zp┆
0x188fc…18902 (0x194,0x313)
0x18902…18920 69 6c 2b 31 29 3c 2d 32 30 34 38 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆il+1)<-2048 then ┆
0x18920…18940 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f ┆ begin o┆
0x18940…18960 28 39 2c 30 2c 31 2c 31 2c 30 2c 28 62 61 73 69 73 72 65 66 2d 7a 70 69 6c 2d 31 29 2a 32 29 3b ┆(9,0,1,1,0,(basisref-zpil-1)*2);┆
0x18960…1897a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 28 31 33 2c ┆ o(13,┆
0x1897a…18980 (0x194,0x314)
0x18980…189a0 33 2c 31 2c 30 2c 30 2c 31 30 31 32 2b 28 62 61 73 69 73 72 65 66 2d 7a 70 69 6c 2d 31 29 2a 32 ┆3,1,0,0,1012+(basisref-zpil-1)*2┆
0x189a0…189c0 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 20 65 6c 73 65 0a 20 20 ┆); end else ┆
0x189c0…189e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 28 31 33 2c 33 2c 31 2c 30 2c 30 2c 31 30 31 ┆ o(13,3,1,0,0,101┆
0x189e0…18a00 32 2d 32 2a 28 7a 70 69 6c 2b 31 29 29 3b 0a 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆2-2*(zpil+1)); ┆
0x18a00…18a06 (197,) (0x194,0x315)
0x18a06…18a20 20 20 20 20 20 20 20 65 6e 64 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 ┆ end else ┆
0x18a20…18a40 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 ┆ begin if┆
0x18a40…18a60 20 31 30 34 36 2d 32 2a 28 7a 70 69 6c 2b 31 29 3c 2d 32 30 34 38 20 74 68 65 6e 0a 20 20 20 20 ┆ 1046-2*(zpil+1)<-2048 then ┆
0x18a60…18a7e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 ┆ begin ┆
0x18a7e…18a84 (0x194,0x316)
0x18a84…18aa0 20 20 20 20 20 20 20 20 20 20 6f 28 39 2c 30 2c 31 2c 31 2c 30 2c 28 62 61 73 69 73 ┆ o(9,0,1,1,0,(basis┆
0x18aa0…18ac0 72 65 66 2d 7a 70 69 6c 2d 31 29 2a 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ref-zpil-1)*2); ┆
0x18ac0…18ae0 20 20 20 20 6f 28 31 33 2c 33 2c 31 2c 30 2c 30 2c 31 30 34 36 2b 28 62 61 73 69 73 72 65 66 2d ┆ o(13,3,1,0,0,1046+(basisref-┆
0x18ae0…18afc 7a 70 69 6c 2d 31 29 2a 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆zpil-1)*2); ┆
0x18afc…18b02 (0x194,0x317)
0x18b02…18b20 20 20 65 6e 64 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f ┆ end else o┆
0x18b20…18b40 28 31 33 2c 33 2c 31 2c 30 2c 30 2c 31 30 34 36 2d 32 2a 28 7a 70 69 6c 2b 31 29 29 3b 0a 20 20 ┆(13,3,1,0,0,1046-2*(zpil+1)); ┆
0x18b40…18b60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7a 70 69 6c 3a 3d 7a 70 69 6c 2b 31 3b 0a 20 20 ┆ zpil:=zpil+1; ┆
0x18b60…18b7a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7a 28 7a 62 61 73 65 2b 7a 70 ┆ z(zbase+zp┆
0x18b7a…18b80 (0x194,0x318)
0x18b80…18ba0 69 6c 29 3a 3d 6c 61 79 6f 75 74 6f 72 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆il):=layoutord; ┆
0x18ba0…18bc0 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 ┆end; end; ┆
0x18bc0…18be0 20 20 20 20 20 20 69 66 20 61 74 74 31 28 73 74 61 6b 70 69 6c 2d 31 29 3d 32 20 74 68 65 6e 0a ┆ if att1(stakpil-1)=2 then ┆
0x18be0…18c00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 00 00 00 00 00 00 00 00 ┆ begin ┆
0x18c00…18c06 (198,) (0x194,0x319)
0x18c06…18c20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 61 74 74 32 28 73 74 61 6b 70 69 ┆ if att2(stakpi┆
0x18c20…18c40 6c 2d 31 29 3d 32 20 74 68 65 6e 20 66 65 6a 6c 28 32 30 31 35 29 3b 0a 20 20 20 20 20 20 20 20 ┆l-1)=2 then fejl(2015); ┆
0x18c40…18c60 20 20 20 20 20 20 20 20 69 66 20 38 39 30 2d 32 2a 28 7a 70 69 6c 2b 31 29 3c 2d 32 30 34 38 20 ┆ if 890-2*(zpil+1)<-2048 ┆
0x18c60…18c7e 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 ┆then begin ┆
0x18c7e…18c84 (0x194,0x31a)
0x18c84…18ca0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 28 39 2c 30 2c 31 2c 31 2c 30 2c 28 ┆ o(9,0,1,1,0,(┆
0x18ca0…18cc0 62 61 73 69 73 72 65 66 2d 7a 70 69 6c 2d 31 29 2a 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆basisref-zpil-1)*2); ┆
0x18cc0…18ce0 20 20 20 20 20 20 20 6f 28 31 33 2c 33 2c 31 2c 30 2c 30 2c 38 39 30 2b 28 62 61 73 69 73 72 65 ┆ o(13,3,1,0,0,890+(basisre┆
0x18ce0…18cfc 66 2d 7a 70 69 6c 2d 31 29 2a 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆f-zpil-1)*2); ┆
0x18cfc…18d02 (0x194,0x31b)
0x18d02…18d20 20 20 65 6e 64 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 28 31 ┆ end else o(1┆
0x18d20…18d40 33 2c 33 2c 31 2c 30 2c 30 2c 38 39 30 2d 32 2a 28 7a 70 69 6c 2b 31 29 29 3b 0a 20 20 20 20 20 ┆3,3,1,0,0,890-2*(zpil+1)); ┆
0x18d40…18d60 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 61 ┆ end; if a┆
0x18d60…18d7a 74 74 31 28 73 74 61 6b 70 69 6c 2d 31 29 3c 3e 30 20 61 6e 64 20 61 74 74 31 ┆tt1(stakpil-1)<>0 and att1┆
0x18d7a…18d80 (0x194,0x31c)
0x18d80…18da0 28 73 74 61 6b 70 69 6c 2d 31 29 3c 3e 32 20 74 68 65 6e 20 66 65 6a 6c 28 32 30 31 36 29 3b 0a ┆(stakpil-1)<>2 then fejl(2016); ┆
0x18da0…18dc0 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 ┆ end; b┆
0x18dc0…18de0 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 2d 2d 2d 2d 2d 20 73 7b 74 6e 32 20 3a 3a 3d 20 69 66 74 ┆egin comment ----- sætn2 ::= ift┆
0x18de0…18e00 68 65 6e 65 6c 73 65 73 74 61 72 74 20 73 7b 74 6e 32 20 2d 2d 2d 2d 2d 00 00 00 00 00 00 00 00 ┆henelsestart sætn2 ----- ┆
0x18e00…18e06 (199,) (0x194,0x31d)
0x18e06…18e20 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 3a 3d 61 74 74 31 28 ┆; i:=att1(┆
0x18e20…18e40 73 74 61 6b 70 69 6c 2d 31 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7a 28 7a 62 61 73 ┆stakpil-1); z(zbas┆
0x18e40…18e60 65 2b 69 29 3a 3d 31 33 20 73 68 69 66 74 20 33 20 61 64 64 20 31 20 73 68 69 66 74 20 31 35 20 ┆e+i):=13 shift 3 add 1 shift 15 ┆
0x18e60…18e7e 61 64 64 20 28 32 2a 28 7a 70 69 6c 2b 31 2d 69 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆add (2*(zpil+1-i)); ┆
0x18e7e…18e84 (0x194,0x31e)
0x18e84…18ea0 20 20 65 6e 64 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 ┆ end; begin c┆
0x18ea0…18ec0 6f 6d 6d 65 6e 74 20 2d 2d 2d 2d 2d 20 73 7b 74 6e 32 20 3a 3a 3d 20 69 6e 6f 75 74 20 28 20 72 ┆omment ----- sætn2 ::= inout ( r┆
0x18ec0…18ee0 65 78 20 2c 20 6f 70 65 72 61 6e 64 20 29 20 2d 2d 2d 2d 2d 3b 0a 20 0a 20 20 20 20 20 20 20 20 ┆ex , operand ) -----; ┆
0x18ee0…18efc 20 20 20 20 20 20 69 66 20 61 74 74 31 28 73 74 61 6b 70 69 6c 2d 33 29 3e 33 20 74 ┆ if att1(stakpil-3)>3 t┆
0x18efc…18f02 (0x194,0x31f)
0x18f02…18f20 68 65 6e 20 66 65 6a 6c 28 32 30 31 36 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆hen fejl(2016); ┆
0x18f20…18f40 64 61 6e 64 79 6f 70 6b 6f 64 65 28 33 32 2c 73 74 61 6b 70 69 6c 2d 33 2c 73 74 61 6b 70 69 6c ┆dandyopkode(32,stakpil-3,stakpil┆
0x18f40…18f60 2d 31 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 0a 20 20 20 20 20 20 20 20 ┆-1); end; ┆
0x18f60…18f7a 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 2d 2d 2d 2d 2d 20 73 7b ┆ begin comment ----- sæ┆
0x18f7a…18f80 (0x194,0x320)
0x18f80…18fa0 74 6e 32 20 3a 3a 3d 20 69 6e 6f 75 74 20 28 20 6f 70 65 72 61 6e 64 20 29 20 2d 2d 2d 2d 2d 3b ┆tn2 ::= inout ( operand ) -----;┆
0x18fa0…18fc0 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 74 74 31 28 73 74 61 6b 70 69 6c 2b 31 29 ┆ att1(stakpil+1)┆
0x18fc0…18fe0 3a 3d 61 74 74 32 28 73 74 61 6b 70 69 6c 2b 31 29 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆:=att2(stakpil+1):=0; ┆
0x18fe0…19000 20 20 20 20 64 61 6e 64 79 6f 70 6b 6f 64 65 28 33 32 2c 73 74 61 6b 70 00 00 00 00 00 00 00 00 ┆ dandyopkode(32,stakp ┆
0x19000…19006 (200,) (0x194,0x321)
0x19006…19020 69 6c 2b 31 2c 73 74 61 6b 70 69 6c 2d 31 29 3b 0a 20 20 20 20 20 20 20 20 20 ┆il+1,stakpil-1); ┆
0x19020…19040 20 20 20 65 6e 64 3b 0a 20 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d ┆ end; begin com┆
0x19040…19060 6d 65 6e 74 20 2d 2d 2d 2d 2d 20 73 7b 74 6e 32 20 3a 3a 3d 20 63 6f 6d 70 6b 6f 6d 20 2d 2d 2d ┆ment ----- sætn2 ::= compkom ---┆
0x19060…1907e 2d 2d 3b 0a 20 20 20 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 61 74 74 31 ┆--; if att1┆
0x1907e…19084 (0x194,0x322)
0x19084…190a0 28 73 74 61 6b 70 69 6c 29 3c 3e 32 20 61 6e 64 20 61 74 74 31 28 73 74 61 6b 70 69 ┆(stakpil)<>2 and att1(stakpi┆
0x190a0…190c0 6c 29 3c 3e 33 20 74 68 65 6e 20 66 65 6a 6c 28 32 30 30 34 29 3b 0a 20 20 20 20 20 20 20 20 20 ┆l)<>3 then fejl(2004); ┆
0x190c0…190e0 20 20 20 65 6e 64 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d ┆ end; begin comm┆
0x190e0…190fc 65 6e 74 20 2d 2d 2d 2d 2d 20 69 66 74 68 65 6e 65 6c 73 65 73 74 61 72 74 20 3a 3a ┆ent ----- ifthenelsestart ::┆
0x190fc…19102 (0x194,0x323)
0x19102…19120 3d 20 69 66 20 72 65 6c 61 74 69 6f 6e 20 74 68 65 6e 20 73 7b 74 6e 32 20 65 6c 73 65 20 ┆= if relation then sætn2 else ┆
0x19120…19140 2d 2d 2d 2d 2d 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7a 70 69 6c 3a 3d 7a 70 69 ┆-----; zpil:=zpi┆
0x19140…19160 6c 2b 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 74 74 31 28 73 74 61 6b 70 69 6c 2d ┆l+1; att1(stakpil-┆
0x19160…1917a 34 29 3a 3d 7a 70 69 6c 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 3a ┆4):=zpil; i:┆
0x1917a…19180 (0x194,0x324)
0x19180…191a0 3d 61 74 74 31 28 73 74 61 6b 70 69 6c 2d 33 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆=att1(stakpil-3); ┆
0x191a0…191c0 7a 28 7a 62 61 73 65 2b 69 29 3a 3d 31 33 20 73 68 69 66 74 20 33 20 61 64 64 20 31 20 73 68 69 ┆z(zbase+i):=13 shift 3 add 1 shi┆
0x191c0…191e0 66 74 20 31 35 20 61 64 64 20 28 32 2a 28 7a 70 69 6c 2b 31 2d 69 29 29 3b 0a 20 20 20 20 20 20 ┆ft 15 add (2*(zpil+1-i)); ┆
0x191e0…19200 20 20 20 20 20 20 65 6e 64 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ end; ┆
0x19200…19206 (201,) (0x194,0x325)
0x19206…19220 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 2d 2d 2d 2d 2d 20 72 65 78 20 3a ┆ begin comment ----- rex :┆
0x19220…19240 3a 3d 20 72 65 67 69 73 74 65 72 20 2d 2d 2d 2d 2d 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 ┆:= register -----; ┆
0x19240…19260 20 20 20 61 74 74 32 28 73 74 61 6b 70 69 6c 29 3a 3d 69 66 20 61 74 74 31 28 73 74 61 6b 70 69 ┆ att2(stakpil):=if att1(stakpi┆
0x19260…1927e 6c 29 3e 33 20 74 68 65 6e 20 36 20 65 6c 73 65 20 30 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆l)>3 then 6 else 0; ┆
0x1927e…19284 (0x194,0x326)
0x19284…192a0 20 20 65 6e 64 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 ┆ end; begin c┆
0x192a0…192c0 6f 6d 6d 65 6e 74 20 2d 2d 2d 2d 2d 20 72 65 78 20 3a 3a 3d 20 72 65 78 20 3a 3d 20 66 70 6b 61 ┆omment ----- rex ::= rex := fpka┆
0x192c0…192e0 6c 64 20 2d 2d 2d 2d 2d 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 61 74 74 ┆ld -----; if att┆
0x192e0…192fc 32 28 73 74 61 6b 70 69 6c 2d 32 29 3c 3e 30 20 74 68 65 6e 20 66 65 6a 6c 28 32 30 ┆2(stakpil-2)<>0 then fejl(20┆
0x192fc…19302 (0x194,0x327)
0x19302…19320 30 34 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 61 73 65 20 61 74 74 31 28 73 ┆04); case att1(s┆
0x19320…19340 74 61 6b 70 69 6c 29 20 73 68 69 66 74 20 28 2d 31 32 29 20 65 78 74 72 61 63 74 20 32 20 6f 66 ┆takpil) shift (-12) extract 2 of┆
0x19340…19360 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ begin ┆
0x19360…1937a 20 20 20 20 20 66 65 6a 6c 28 32 30 32 38 29 3b 0a 20 20 20 20 20 20 20 20 20 ┆ fejl(2028); ┆
0x1937a…19380 (0x194,0x328)
0x19380…193a0 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 ┆ begin i┆
0x193a0…193c0 66 20 61 74 74 31 28 73 74 61 6b 70 69 6c 29 20 65 78 74 72 61 63 74 20 31 32 2d 32 2a 28 7a 70 ┆f att1(stakpil) extract 12-2*(zp┆
0x193c0…193e0 69 6c 2b 31 29 3c 2d 32 30 34 38 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆il+1)<-2048 then ┆
0x193e0…19400 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ begin ┆
0x19400…19406 (202,) (0x194,0x329)
0x19406…19420 20 20 20 20 20 6f 28 39 2c 30 2c 31 2c 31 2c 30 2c 32 2a 28 62 61 73 69 73 72 ┆ o(9,0,1,1,0,2*(basisr┆
0x19420…19440 65 66 2d 7a 70 69 6c 2d 31 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ef-zpil-1)); ┆
0x19440…19460 20 6f 28 31 31 2c 61 74 74 31 28 73 74 61 6b 70 69 6c 2d 32 29 2c 31 2c 30 2c 30 2c 61 74 74 31 ┆ o(11,att1(stakpil-2),1,0,0,att1┆
0x19460…1947e 28 73 74 61 6b 70 69 6c 29 20 65 78 74 72 61 63 74 20 31 32 0a 20 20 20 20 20 20 20 20 20 ┆(stakpil) extract 12 ┆
0x1947e…19484 (0x194,0x32a)
0x19484…194a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2b 32 2a 28 62 61 73 69 ┆ +2*(basi┆
0x194a0…194c0 73 72 65 66 2d 7a 70 69 6c 2d 31 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆sref-zpil-1)); ┆
0x194c0…194e0 20 65 6e 64 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 28 31 31 ┆ end else o(11┆
0x194e0…194fc 2c 61 74 74 31 28 73 74 61 6b 70 69 6c 2d 32 29 2c 31 2c 30 2c 30 2c 61 74 74 31 28 ┆,att1(stakpil-2),1,0,0,att1(┆
0x194fc…19502 (0x194,0x32b)
0x19502…19520 73 74 61 6b 70 69 6c 29 20 65 78 74 72 61 63 74 20 31 32 0a 20 20 20 20 20 20 20 20 20 20 ┆stakpil) extract 12 ┆
0x19520…19540 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 20 2d ┆ -┆
0x19540…19560 32 2a 28 7a 70 69 6c 2b 31 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 ┆2*(zpil+1)); end┆
0x19560…1957a 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 28 31 31 2c 61 74 74 ┆; o(11,att┆
0x1957a…19580 (0x194,0x32c)
0x19580…195a0 31 28 73 74 61 6b 70 69 6c 2d 32 29 2c 30 2c 30 2c 30 2c 61 74 74 31 28 73 74 61 6b 70 69 6c 29 ┆1(stakpil-2),0,0,0,att1(stakpil)┆
0x195a0…195c0 20 65 78 74 72 61 63 74 20 31 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 65 ┆ extract 12); fe┆
0x195c0…195e0 6a 6c 28 32 30 32 38 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 ┆jl(2028); end; ┆
0x195e0…19600 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 0a 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ end; ┆
0x19600…19606 (203,) (0x194,0x32d)
0x19606…19620 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 2d 2d 2d 2d 2d 20 72 65 ┆ begin comment ----- re┆
0x19620…19640 78 20 3a 3a 3d 20 72 65 78 20 3a 3d 20 61 64 64 72 65 73 73 20 28 20 6f 70 65 72 61 6e 64 20 29 ┆x ::= rex := address ( operand )┆
0x19640…19660 20 2d 2d 2d 2d 2d 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 61 74 74 32 28 ┆ -----; if att2(┆
0x19660…1967e 73 74 61 6b 70 69 6c 2d 35 29 3c 3e 30 20 74 68 65 6e 20 66 65 6a 6c 28 32 30 30 34 29 3b ┆stakpil-5)<>0 then fejl(2004);┆
0x1967e…19684 (0x194,0x32e)
0x19684…196a0 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 61 6e 64 79 6f 70 6b 6f 64 65 28 31 ┆ dandyopkode(1┆
0x196a0…196c0 34 2c 73 74 61 6b 70 69 6c 2d 35 2c 73 74 61 6b 70 69 6c 2d 31 29 3b 0a 20 20 20 20 20 20 20 20 ┆4,stakpil-5,stakpil-1); ┆
0x196c0…196e0 20 20 20 20 65 6e 64 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d ┆ end; begin com┆
0x196e0…196fc 6d 65 6e 74 20 2d 2d 2d 2d 2d 20 72 65 78 20 3a 3a 3d 20 72 65 78 20 3a 3d 20 6b 65 ┆ment ----- rex ::= rex := ke┆
0x196fc…19702 (0x194,0x32f)
0x19702…19720 79 20 28 20 6f 70 65 72 61 6e 64 20 29 20 2d 2d 2d 2d 2d 3b 0a 20 0a 20 20 20 20 20 20 20 ┆y ( operand ) -----; ┆
0x19720…19740 20 20 20 20 20 20 20 69 66 20 61 74 74 32 28 73 74 61 6b 70 69 6c 2d 35 29 3c 3e 30 20 74 68 65 ┆ if att2(stakpil-5)<>0 the┆
0x19740…19760 6e 20 66 65 6a 6c 28 32 30 30 34 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 61 ┆n fejl(2004); if a┆
0x19760…1977a 74 74 32 28 73 74 61 6b 70 69 6c 2d 31 29 20 73 68 69 66 74 20 28 2d 33 29 3c ┆tt2(stakpil-1) shift (-3)<┆
0x1977a…19780 (0x194,0x330)
0x19780…197a0 3e 30 20 74 68 65 6e 20 66 65 6a 6c 28 32 30 31 38 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆>0 then fejl(2018); ┆
0x197a0…197c0 20 20 61 74 74 32 28 73 74 61 6b 70 69 6c 2d 31 29 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆ att2(stakpil-1):=0; ┆
0x197c0…197e0 20 20 20 20 64 61 6e 64 79 6f 70 6b 6f 64 65 28 31 37 2c 73 74 61 6b 70 69 6c 2d 35 2c 73 74 61 ┆ dandyopkode(17,stakpil-5,sta┆
0x197e0…19800 6b 70 69 6c 2d 31 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 00 00 00 00 00 00 00 00 ┆kpil-1); end ┆
0x19800…19806 (204,) (0x194,0x331)
0x19806…19820 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d ┆; begin comm┆
0x19820…19840 65 6e 74 20 2d 2d 2d 2d 2d 20 72 65 78 20 3a 3a 3d 20 72 65 78 73 74 61 72 74 20 6f 70 65 72 61 ┆ent ----- rex ::= rexstart opera┆
0x19840…19860 6e 64 20 2d 2d 2d 2d 2d 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 61 74 74 ┆nd -----; if att┆
0x19860…1987e 33 28 73 74 61 6b 70 69 6c 2d 31 29 3d 31 33 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 ┆3(stakpil-1)=13 then ┆
0x1987e…19884 (0x194,0x332)
0x19884…198a0 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 ┆ begin i┆
0x198a0…198c0 66 20 61 74 74 32 28 73 74 61 6b 70 69 6c 29 3c 3e 39 20 6f 72 20 28 61 74 74 33 28 73 74 61 6b ┆f att2(stakpil)<>9 or (att3(stak┆
0x198c0…198e0 70 69 6c 29 3e 32 34 20 6f 72 20 61 74 74 33 28 73 74 61 6b 70 69 6c 29 0a 20 20 20 20 20 20 20 ┆pil)>24 or att3(stakpil) ┆
0x198e0…198fc 20 20 20 20 20 20 20 20 20 20 20 3c 30 29 20 74 68 65 6e 20 66 65 6a 6c 28 32 30 31 ┆ <0) then fejl(201┆
0x198fc…19902 (0x194,0x333)
0x19902…19920 39 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 74 74 32 28 73 74 61 6b 70 ┆9); att2(stakp┆
0x19920…19940 69 6c 29 3a 3d 31 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 74 74 33 28 73 74 ┆il):=11; att3(st┆
0x19940…19960 61 6b 70 69 6c 29 3a 3d 28 2d 31 29 20 73 68 69 66 74 20 28 61 74 74 33 28 73 74 61 6b 70 69 6c ┆akpil):=(-1) shift (att3(stakpil┆
0x19960…1997a 29 2d 32 34 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 61 6e ┆)-24); dan┆
0x1997a…19980 (0x194,0x334)
0x19980…199a0 64 79 6f 70 6b 6f 64 65 28 31 31 2c 73 74 61 6b 70 69 6c 2d 31 2c 73 74 61 6b 70 69 6c 29 3b 0a ┆dyopkode(11,stakpil-1,stakpil); ┆
0x199a0…199c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 ┆ end else ┆
0x199c0…199e0 20 20 20 20 20 64 61 6e 64 79 6f 70 6b 6f 64 65 28 61 74 74 33 28 73 74 61 6b 70 69 6c 2d 31 29 ┆ dandyopkode(att3(stakpil-1)┆
0x199e0…19a00 2c 73 74 61 6b 70 69 6c 2d 31 2c 73 74 61 6b 70 69 6c 29 3b 0a 20 20 20 00 00 00 00 00 00 00 00 ┆,stakpil-1,stakpil); ┆
0x19a00…19a06 (205,) (0x194,0x335)
0x19a06…19a20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 ┆ end; ┆
0x19a20…19a40 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 2d 2d 2d 2d 2d 20 72 65 78 20 3a 3a 3d 20 72 65 ┆ begin comment ----- rex ::= re┆
0x19a40…19a60 78 73 74 61 72 74 20 72 65 67 69 73 74 65 72 20 2d 2d 2d 2d 2d 3b 0a 20 0a 20 20 20 20 20 20 20 ┆xstart register -----; ┆
0x19a60…19a7e 20 20 20 20 20 20 20 61 74 74 33 28 73 74 61 6b 70 69 6c 29 3a 3d 2d 31 3b 0a 20 20 20 20 ┆ att3(stakpil):=-1; ┆
0x19a7e…19a84 (0x194,0x336)
0x19a84…19aa0 20 20 20 20 20 20 20 20 20 20 61 74 74 32 28 73 74 61 6b 70 69 6c 29 3a 3d 69 66 20 ┆ att2(stakpil):=if ┆
0x19aa0…19ac0 61 74 74 31 28 73 74 61 6b 70 69 6c 29 3e 33 20 74 68 65 6e 20 36 20 65 6c 73 65 20 30 3b 0a 20 ┆att1(stakpil)>3 then 6 else 0; ┆
0x19ac0…19ae0 20 20 20 20 20 20 20 20 20 20 20 20 20 61 74 74 31 28 73 74 61 6b 70 69 6c 29 3a 3d 61 74 74 31 ┆ att1(stakpil):=att1┆
0x19ae0…19afc 28 73 74 61 6b 70 69 6c 29 20 73 68 69 66 74 20 31 20 65 78 74 72 61 63 74 20 33 3b ┆(stakpil) shift 1 extract 3;┆
0x19afc…19b02 (0x194,0x337)
0x19b02…19b20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 61 6e 64 79 6f 70 6b 6f 64 65 28 61 74 74 ┆ dandyopkode(att┆
0x19b20…19b40 33 28 73 74 61 6b 70 69 6c 2d 31 29 2c 73 74 61 6b 70 69 6c 2d 31 2c 73 74 61 6b 70 69 6c 29 3b ┆3(stakpil-1),stakpil-1,stakpil);┆
0x19b40…19b60 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ end; ┆
0x19b60…19b7a 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 2d 2d 2d 2d 2d 20 72 65 78 20 3a 3a ┆begin comment ----- rex ::┆
0x19b7a…19b80 (0x194,0x338)
0x19b80…19ba0 3d 20 2d 20 28 20 72 65 78 20 29 20 2d 2d 2d 2d 2d 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 ┆= - ( rex ) -----; ┆
0x19ba0…19bc0 20 20 20 69 66 20 61 74 74 31 28 73 74 61 6b 70 69 6c 2d 31 29 3e 33 20 74 68 65 6e 20 66 65 6a ┆ if att1(stakpil-1)>3 then fej┆
0x19bc0…19be0 6c 28 32 30 31 36 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 61 74 74 32 28 73 ┆l(2016); if att2(s┆
0x19be0…19c00 74 61 6b 70 69 6c 2d 31 29 3d 32 20 74 68 65 6e 20 66 65 6a 6c 28 32 30 00 00 00 00 00 00 00 00 ┆takpil-1)=2 then fejl(20 ┆
0x19c00…19c06 (206,) (0x194,0x339)
0x19c06…19c20 30 33 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 74 74 31 28 73 74 ┆03); att1(st┆
0x19c20…19c40 61 6b 70 69 6c 2d 33 29 3a 3d 61 74 74 31 28 73 74 61 6b 70 69 6c 2d 31 29 3b 0a 20 20 20 20 20 ┆akpil-3):=att1(stakpil-1); ┆
0x19c40…19c60 20 20 20 20 20 20 20 20 20 61 74 74 32 28 73 74 61 6b 70 69 6c 2d 33 29 3a 3d 61 74 74 32 28 73 ┆ att2(stakpil-3):=att2(s┆
0x19c60…19c7e 74 61 6b 70 69 6c 2d 31 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 61 74 ┆takpil-1); if at┆
0x19c7e…19c84 (0x194,0x33a)
0x19c84…19ca0 74 31 28 73 74 61 6b 70 69 6c 2d 31 29 3d 30 20 74 68 65 6e 20 6f 28 39 2c 30 2c 30 ┆t1(stakpil-1)=0 then o(9,0,0┆
0x19ca0…19cc0 2c 31 2c 30 2c 30 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 28 33 33 2c 61 74 74 31 ┆,1,0,0); o(33,att1┆
0x19cc0…19ce0 28 73 74 61 6b 70 69 6c 2d 31 29 2c 30 2c 30 2c 61 74 74 31 28 73 74 61 6b 70 69 6c 2d 31 29 2c ┆(stakpil-1),0,0,att1(stakpil-1),┆
0x19ce0…19cfc 30 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 0a 20 20 20 20 20 ┆0); end; ┆
0x19cfc…19d02 (0x194,0x33b)
0x19d02…19d20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 2d 2d 2d 2d 2d 20 72 65 78 ┆ begin comment ----- rex┆
0x19d20…19d40 20 3a 3a 3d 20 6d 6f 6e 6f 70 20 28 20 72 65 78 20 29 20 2d 2d 2d 2d 2d 3b 0a 20 0a 20 20 20 20 ┆ ::= monop ( rex ) -----; ┆
0x19d40…19d60 20 20 20 20 20 20 20 20 20 20 63 61 73 65 20 61 74 74 31 28 73 74 61 6b 70 69 6c 2d 33 29 20 6f ┆ case att1(stakpil-3) o┆
0x19d60…19d7a 66 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 ┆f begin ┆
0x19d7a…19d80 (0x194,0x33c)
0x19d80…19da0 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 20 20 27 72 6f 75 ┆ begin comment 'rou┆
0x19da0…19dc0 6e 64 27 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 61 74 74 32 28 73 ┆nd'; if att2(s┆
0x19dc0…19de0 74 61 6b 70 69 6c 2d 31 29 3c 3e 34 20 61 6e 64 20 61 74 74 32 28 73 74 61 6b 70 69 6c 2d 31 29 ┆takpil-1)<>4 and att2(stakpil-1)┆
0x19de0…19e00 3c 3e 36 20 74 68 65 6e 20 66 65 6a 6c 28 31 30 29 3b 0a 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆<>6 then fejl(10); ┆
0x19e00…19e06 (207,) (0x194,0x33d)
0x19e06…19e20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 28 35 33 2c 61 74 74 31 28 73 74 61 ┆ o(53,att1(sta┆
0x19e20…19e40 6b 70 69 6c 2d 31 29 2d 34 2c 30 2c 30 2c 30 2c 30 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆kpil-1)-4,0,0,0,0); ┆
0x19e40…19e60 20 20 20 20 20 20 61 74 74 31 28 73 74 61 6b 70 69 6c 2d 33 29 3a 3d 61 74 74 31 28 73 74 61 6b ┆ att1(stakpil-3):=att1(stak┆
0x19e60…19e7e 70 69 6c 2d 31 29 2d 34 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 74 ┆pil-1)-4; at┆
0x19e7e…19e84 (0x194,0x33e)
0x19e84…19ea0 74 32 28 73 74 61 6b 70 69 6c 2d 33 29 3a 3d 33 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆t2(stakpil-3):=3; ┆
0x19ea0…19ec0 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e ┆ end; begin┆
0x19ec0…19ee0 20 63 6f 6d 6d 65 6e 74 20 20 20 27 66 6c 6f 61 74 27 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ comment 'float'; ┆
0x19ee0…19efc 20 20 20 20 20 20 69 66 20 61 74 74 32 28 73 74 61 6b 70 69 6c 2d 31 29 3c 3e 33 20 ┆ if att2(stakpil-1)<>3 ┆
0x19efc…19f02 (0x194,0x33f)
0x19f02…19f20 61 6e 64 20 61 74 74 32 28 73 74 61 6b 70 69 6c 2d 31 29 3c 3e 30 20 74 68 65 6e 20 66 65 ┆and att2(stakpil-1)<>0 then fe┆
0x19f20…19f40 6a 6c 28 32 30 31 35 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 28 33 32 ┆jl(2015); o(32┆
0x19f40…19f60 2c 61 74 74 31 28 73 74 61 6b 70 69 6c 2d 31 29 2c 30 2c 30 2c 30 2c 30 29 3b 0a 20 20 20 20 20 ┆,att1(stakpil-1),0,0,0,0); ┆
0x19f60…19f7a 20 20 20 20 20 20 20 20 20 20 20 20 20 61 74 74 31 28 73 74 61 6b 70 69 6c 2d ┆ att1(stakpil-┆
0x19f7a…19f80 (0x194,0x340)
0x19f80…19fa0 33 29 3a 3d 61 74 74 31 28 73 74 61 6b 70 69 6c 2d 31 29 2b 34 3b 0a 20 20 20 20 20 20 20 20 20 ┆3):=att1(stakpil-1)+4; ┆
0x19fa0…19fc0 20 20 20 20 20 20 20 20 20 61 74 74 32 28 73 74 61 6b 70 69 6c 2d 33 29 3a 3d 34 3b 0a 20 20 20 ┆ att2(stakpil-3):=4; ┆
0x19fc0…19fe0 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ end; ┆
0x19fe0…1a000 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 0a 00 00 00 00 00 00 00 00 ┆end; end; ┆
0x1a000…1a006 (208,) (0x194,0x341)
0x1a006…1a020 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 ┆ begin comment ┆
0x1a020…1a040 2d 2d 2d 2d 2d 20 72 65 78 20 3a 3a 3d 20 6e 61 76 6e 20 28 20 72 65 78 20 29 20 2d 2d 2d 2d 2d ┆----- rex ::= navn ( rex ) -----┆
0x1a040…1a060 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 61 74 74 31 28 73 74 61 6b 70 69 ┆; if att1(stakpi┆
0x1a060…1a07e 6c 2d 31 29 3c 31 20 6f 72 20 61 74 74 31 28 73 74 61 6b 70 69 6c 2d 31 29 3e 33 20 74 68 ┆l-1)<1 or att1(stakpil-1)>3 th┆
0x1a07e…1a084 (0x194,0x342)
0x1a084…1a0a0 65 6e 20 66 65 6a 6c 28 32 30 30 39 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆en fejl(2009); ┆
0x1a0a0…1a0c0 20 69 66 20 61 74 74 32 28 73 74 61 6b 70 69 6c 2d 31 29 20 65 78 74 72 61 63 74 20 33 3c 3e 33 ┆ if att2(stakpil-1) extract 3<>3┆
0x1a0c0…1a0e0 20 61 6e 64 20 61 74 74 32 28 73 74 61 6b 70 69 6c 2d 31 29 3c 3e 30 20 74 68 65 6e 0a 20 20 20 ┆ and att2(stakpil-1)<>0 then ┆
0x1a0e0…1a0fc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 65 6a 6c 28 32 30 31 35 29 3b 0a 20 20 ┆ fejl(2015); ┆
0x1a0fc…1a102 (0x194,0x343)
0x1a102…1a120 20 20 20 20 20 20 20 20 20 20 20 20 6e 3a 3d 69 64 74 61 62 73 7c 67 65 72 28 73 74 61 6b ┆ n:=idtabsøger(stak┆
0x1a120…1a140 70 69 6c 2d 33 2c 31 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 69 64 74 61 62 ┆pil-3,1); if idtab┆
0x1a140…1a160 34 28 6e 29 20 73 68 69 66 74 20 28 2d 34 29 20 65 78 74 72 61 63 74 20 34 3c 3e 32 20 74 68 65 ┆4(n) shift (-4) extract 4<>2 the┆
0x1a160…1a17a 6e 20 66 65 6a 6c 28 32 30 30 33 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆n fejl(2003); ┆
0x1a17a…1a180 (0x194,0x344)
0x1a180…1a1a0 20 20 72 6b 6f 6e 73 74 3a 3d 69 64 74 61 62 34 28 6e 29 20 73 68 69 66 74 20 28 2d 31 32 29 3b ┆ rkonst:=idtab4(n) shift (-12);┆
0x1a1a0…1a1c0 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 74 74 31 28 73 74 61 6b 70 69 6c 2b 31 29 3a 3d ┆ att1(stakpil+1):=┆
0x1a1c0…1a1e0 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 6b 6f 6e 73 74 31 3a 3d 30 2e 35 3b 0a 20 ┆0; rkonst1:=0.5; ┆
0x1a1e0…1a200 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 69 64 74 61 62 34 28 6e 00 00 00 00 00 00 00 00 ┆ if idtab4(n ┆
0x1a200…1a206 (209,) (0x194,0x345)
0x1a206…1a220 29 20 73 68 69 66 74 20 28 2d 31 32 29 3c 3e 31 20 74 68 65 6e 0a 20 20 20 20 ┆) shift (-12)<>1 then ┆
0x1a220…1a240 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ begin ┆
0x1a240…1a260 69 66 20 72 6b 6f 6e 73 74 20 73 68 69 66 74 20 28 2d 31 32 29 3d 72 6b 6f 6e 73 74 31 20 73 68 ┆if rkonst shift (-12)=rkonst1 sh┆
0x1a260…1a27e 69 66 74 20 28 2d 31 32 29 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ift (-12) then ┆
0x1a27e…1a284 (0x194,0x346)
0x1a284…1a2a0 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 74 74 ┆ begin att┆
0x1a2a0…1a2c0 32 28 73 74 61 6b 70 69 6c 2b 31 29 3a 3d 39 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆2(stakpil+1):=9; ┆
0x1a2c0…1a2e0 20 20 20 61 74 74 33 28 73 74 61 6b 70 69 6c 2b 31 29 3a 3d 72 6b 6f 6e 73 74 20 65 78 74 72 61 ┆ att3(stakpil+1):=rkonst extra┆
0x1a2e0…1a2fc 63 74 20 31 32 2d 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 ┆ct 12-1; d┆
0x1a2fc…1a302 (0x194,0x347)
0x1a302…1a320 61 6e 64 79 6f 70 6b 6f 64 65 28 31 32 2c 73 74 61 6b 70 69 6c 2d 31 2c 73 74 61 6b 70 69 ┆andyopkode(12,stakpil-1,stakpi┆
0x1a320…1a340 6c 2b 31 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 20 65 6c 73 65 0a 20 ┆l+1); end else ┆
0x1a340…1a360 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ begin ┆
0x1a360…1a37a 20 20 20 20 20 20 20 61 74 74 32 28 73 74 61 6b 70 69 6c 2b 31 29 3a 3d 31 31 ┆ att2(stakpil+1):=11┆
0x1a37a…1a380 (0x194,0x348)
0x1a380…1a3a0 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 74 74 33 28 73 74 61 6b 70 69 6c ┆; att3(stakpil┆
0x1a3a0…1a3c0 2b 31 29 3a 3d 69 64 74 61 62 34 28 6e 29 20 73 68 69 66 74 20 28 2d 31 32 29 3b 0a 20 20 20 20 ┆+1):=idtab4(n) shift (-12); ┆
0x1a3c0…1a3e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 61 6e 64 79 6f 70 6b 6f 64 65 28 34 2c 73 74 61 6b ┆ dandyopkode(4,stak┆
0x1a3e0…1a400 70 69 6c 2d 31 2c 73 74 61 6b 70 69 6c 2b 31 29 3b 0a 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆pil-1,stakpil+1); ┆
0x1a400…1a406 (210,) (0x194,0x349)
0x1a406…1a420 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ end; ┆
0x1a420…1a440 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 69 64 74 61 62 34 28 ┆ end; if idtab4(┆
0x1a440…1a460 6e 29 20 73 68 69 66 74 20 28 2d 34 29 20 65 78 74 72 61 63 74 20 38 3d 33 34 20 74 68 65 6e 0a ┆n) shift (-4) extract 8=34 then ┆
0x1a460…1a47e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 28 31 31 2c 61 74 74 31 28 73 74 61 ┆ o(11,att1(sta┆
0x1a47e…1a484 (0x194,0x34a)
0x1a484…1a4a0 6b 70 69 6c 2d 31 29 2c 31 2c 30 2c 61 74 74 31 28 73 74 61 6b 70 69 6c 2d 31 29 2c ┆kpil-1),1,0,att1(stakpil-1),┆
0x1a4a0…1a4c0 69 64 74 61 62 35 28 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆idtab5(n) ┆
0x1a4c0…1a4e0 20 2d 32 2a 28 7a 70 69 6c 2b 31 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 ┆ -2*(zpil+1)); if ┆
0x1a4e0…1a4fc 69 64 74 61 62 34 28 6e 29 20 73 68 69 66 74 20 28 2d 34 29 20 65 78 74 72 61 63 74 ┆idtab4(n) shift (-4) extract┆
0x1a4fc…1a502 (0x194,0x34b)
0x1a502…1a520 20 38 3d 31 38 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 28 ┆ 8=18 then o(┆
0x1a520…1a540 37 2c 61 74 74 31 28 73 74 61 6b 70 69 6c 2d 31 29 2c 31 2c 30 2c 30 2c 69 64 74 61 62 35 28 6e ┆7,att1(stakpil-1),1,0,0,idtab5(n┆
0x1a540…1a560 29 2d 32 2a 28 7a 70 69 6c 2b 31 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 ┆)-2*(zpil+1)); if ┆
0x1a560…1a57a 69 64 74 61 62 34 28 6e 29 20 73 68 69 66 74 20 28 2d 34 29 20 65 78 74 72 61 ┆idtab4(n) shift (-4) extra┆
0x1a57a…1a580 (0x194,0x34c)
0x1a580…1a5a0 63 74 20 38 3d 36 36 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 28 ┆ct 8=66 then o(┆
0x1a5a0…1a5c0 31 31 2c 61 74 74 31 28 73 74 61 6b 70 69 6c 2d 31 29 2c 30 2c 30 2c 61 74 74 31 28 73 74 61 6b ┆11,att1(stakpil-1),0,0,att1(stak┆
0x1a5c0…1a5e0 70 69 6c 2d 31 29 2c 69 64 74 61 62 35 28 6e 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆pil-1),idtab5(n)); ┆
0x1a5e0…1a600 20 61 74 74 31 28 73 74 61 6b 70 69 6c 2d 33 29 3a 3d 61 74 74 31 28 73 00 00 00 00 00 00 00 00 ┆ att1(stakpil-3):=att1(s ┆
0x1a600…1a606 (211,) (0x194,0x34d)
0x1a606…1a620 74 61 6b 70 69 6c 2d 31 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 ┆takpil-1); a┆
0x1a620…1a640 74 74 32 28 73 74 61 6b 70 69 6c 2d 33 29 3a 3d 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 ┆tt2(stakpil-3):=2; e┆
0x1a640…1a660 6e 64 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 ┆nd; begin comment ┆
0x1a660…1a67e 2d 2d 2d 2d 2d 20 72 65 78 73 74 61 72 74 20 3a 3a 3d 20 72 65 78 20 3a 3d 20 2d 2d 2d 2d ┆----- rexstart ::= rex := ----┆
0x1a67e…1a684 (0x194,0x34e)
0x1a684…1a6a0 2d 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 74 74 33 28 73 74 61 6b ┆-; att3(stak┆
0x1a6a0…1a6c0 70 69 6c 2d 31 29 3a 3d 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 0a 20 20 ┆pil-1):=1; end; ┆
0x1a6c0…1a6e0 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 2d 2d 2d 2d 2d 20 72 65 ┆ begin comment ----- re┆
0x1a6e0…1a6fc 78 73 74 61 72 74 20 3a 3a 3d 20 72 65 78 20 64 79 6f 70 20 2d 2d 2d 2d 2d 3b 0a 20 ┆xstart ::= rex dyop -----; ┆
0x1a6fc…1a702 (0x194,0x34f)
0x1a702…1a720 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 74 74 33 28 73 74 61 6b 70 69 6c 2d 31 29 ┆ att3(stakpil-1)┆
0x1a720…1a740 3a 3d 61 74 74 31 28 73 74 61 6b 70 69 6c 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 ┆:=att1(stakpil); end┆
0x1a740…1a760 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 2d 2d ┆; begin comment --┆
0x1a760…1a77a 2d 2d 2d 20 72 65 78 73 74 61 72 74 20 3a 3a 3d 20 72 65 78 20 2d 20 2d 2d 2d ┆--- rexstart ::= rex - ---┆
0x1a77a…1a780 (0x194,0x350)
0x1a780…1a7a0 2d 2d 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 74 74 33 28 73 74 61 6b 70 69 6c ┆--; att3(stakpil┆
0x1a7a0…1a7c0 2d 31 29 3a 3d 33 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 0a 20 20 20 20 20 ┆-1):=3; end; ┆
0x1a7c0…1a7e0 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 2d 2d 2d 2d 2d 20 6f 70 65 72 61 ┆ begin comment ----- opera┆
0x1a7e0…1a800 6e 64 20 3a 3a 3d 20 6e 61 76 6e 20 2d 2d 2d 2d 2d 3b 0a 20 0a 20 20 20 00 00 00 00 00 00 00 00 ┆nd ::= navn -----; ┆
0x1a800…1a806 (212,) (0x194,0x351)
0x1a806…1a820 20 20 20 20 20 20 20 20 20 20 20 69 66 20 61 74 74 31 28 73 74 61 6b 70 69 6c ┆ if att1(stakpil┆
0x1a820…1a840 29 3d 31 30 30 20 73 68 69 66 74 20 31 36 20 61 6e 64 20 61 74 74 32 28 73 74 61 6b 70 69 6c 29 ┆)=100 shift 16 and att2(stakpil)┆
0x1a840…1a860 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2b 61 74 74 33 28 73 74 61 6b 70 69 6c 29 3d ┆ +att3(stakpil)=┆
0x1a860…1a87e 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 ┆0 then begin ┆
0x1a87e…1a884 (0x194,0x352)
0x1a884…1a8a0 20 20 20 20 20 20 20 20 20 20 20 20 20 61 74 74 31 28 73 74 61 6b 70 69 6c 29 3a 3d ┆ att1(stakpil):=┆
0x1a8a0…1a8c0 31 20 73 68 69 66 74 20 31 38 20 61 64 64 20 64 79 6e 72 65 66 3b 0a 20 20 20 20 20 20 20 20 20 ┆1 shift 18 add dynref; ┆
0x1a8c0…1a8e0 20 20 20 20 20 20 20 61 74 74 32 28 73 74 61 6b 70 69 6c 29 3a 3d 32 3b 0a 20 20 20 20 20 20 20 ┆ att2(stakpil):=2; ┆
0x1a8e0…1a8fc 20 20 20 20 20 20 20 20 20 61 74 74 33 28 73 74 61 6b 70 69 6c 29 3a 3d 2d 31 3b 0a ┆ att3(stakpil):=-1; ┆
0x1a8fc…1a902 (0x194,0x353)
0x1a902…1a920 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 20 65 6c 73 65 0a 20 20 20 20 20 20 20 ┆ end else ┆
0x1a920…1a940 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 3a 3d ┆ begin i:=┆
0x1a940…1a960 69 64 74 61 62 73 7c 67 65 72 28 73 74 61 6b 70 69 6c 2c 31 29 3b 0a 20 20 20 20 20 20 20 20 20 ┆idtabsøger(stakpil,1); ┆
0x1a960…1a97a 20 20 20 20 20 20 20 6e 3a 3d 69 64 74 61 62 34 28 69 29 20 73 68 69 66 74 20 ┆ n:=idtab4(i) shift ┆
0x1a97a…1a980 (0x194,0x354)
0x1a980…1a9a0 28 2d 34 29 20 65 78 74 72 61 63 74 20 38 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆(-4) extract 8; ┆
0x1a9a0…1a9c0 69 66 20 6e 3d 36 39 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 ┆if n=69 then beg┆
0x1a9c0…1a9e0 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 74 74 33 28 73 74 61 6b 70 69 ┆in att3(stakpi┆
0x1a9e0…1aa00 6c 29 3a 3d 33 20 73 68 69 66 74 20 31 38 20 61 64 64 20 28 32 2a 62 61 00 00 00 00 00 00 00 00 ┆l):=3 shift 18 add (2*ba ┆
0x1aa00…1aa06 (213,) (0x194,0x355)
0x1aa06…1aa20 73 69 73 72 65 66 2b 31 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆sisref+1); ┆
0x1aa20…1aa40 20 20 20 61 74 74 32 28 73 74 61 6b 70 69 6c 29 3a 3d 37 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ att2(stakpil):=7; ┆
0x1aa40…1aa60 20 20 20 20 20 20 20 61 74 74 31 28 73 74 61 6b 70 69 6c 29 3a 3d 33 20 73 68 69 66 74 20 31 38 ┆ att1(stakpil):=3 shift 18┆
0x1aa60…1aa7e 20 61 64 64 20 28 28 69 64 74 61 62 34 28 69 29 20 73 68 69 66 74 20 28 2d 31 36 29 20 2b ┆ add ((idtab4(i) shift (-16) +┆
0x1aa7e…1aa84 (0x194,0x356)
0x1aa84…1aaa0 0a 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 ┆ ┆
0x1aaa0…1aac0 20 20 20 20 20 20 37 36 37 2b 62 61 73 69 73 72 65 66 29 2a 32 29 3b 0a 20 20 20 20 20 20 20 20 ┆ 767+basisref)*2); ┆
0x1aac0…1aae0 20 20 20 20 20 20 20 20 65 6e 64 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ end else ┆
0x1aae0…1aafc 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 ┆ begin if ┆
0x1aafc…1ab02 (0x194,0x357)
0x1ab02…1ab20 28 28 6e 3c 3e 33 38 20 61 6e 64 20 6e 3c 3e 33 36 29 20 61 6e 64 20 28 6e 3c 3e 33 33 20 ┆((n<>38 and n<>36) and (n<>33 ┆
0x1ab20…1ab40 61 6e 64 20 6e 3c 3e 33 35 29 29 20 61 6e 64 20 6e 3c 3e 31 38 0a 20 20 20 20 20 20 20 20 20 20 ┆and n<>35)) and n<>18 ┆
0x1ab40…1ab60 20 20 20 20 20 20 20 20 74 68 65 6e 20 66 65 6a 6c 28 32 30 31 39 29 3b 0a 20 20 20 20 20 20 20 ┆ then fejl(2019); ┆
0x1ab60…1ab7a 20 20 20 20 20 20 20 20 20 20 20 61 74 74 31 28 73 74 61 6b 70 69 6c 29 3a 3d ┆ att1(stakpil):=┆
0x1ab7a…1ab80 (0x194,0x358)
0x1ab80…1aba0 31 20 73 68 69 66 74 20 31 38 20 61 64 64 20 69 64 74 61 62 35 28 69 29 3b 0a 20 20 20 20 20 20 ┆1 shift 18 add idtab5(i); ┆
0x1aba0…1abc0 20 20 20 20 20 20 20 20 20 20 20 20 61 74 74 32 28 73 74 61 6b 70 69 6c 29 3a 3d 69 64 74 61 62 ┆ att2(stakpil):=idtab┆
0x1abc0…1abe0 34 28 69 29 20 65 78 74 72 61 63 74 20 34 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆4(i) extract 4; ┆
0x1abe0…1ac00 20 20 61 74 74 33 28 73 74 61 6b 70 69 6c 29 3a 3d 2d 31 3b 0a 20 20 20 00 00 00 00 00 00 00 00 ┆ att3(stakpil):=-1; ┆
0x1ac00…1ac06 (214,) (0x194,0x359)
0x1ac06…1ac20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 ┆ end; ┆
0x1ac20…1ac40 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 0a 20 20 ┆ end; end; ┆
0x1ac40…1ac60 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 2d 2d 2d 2d 2d 20 6f 70 ┆ begin comment ----- op┆
0x1ac60…1ac7e 65 72 61 6e 64 20 3a 3a 3d 20 28 20 72 65 78 20 29 20 2d 2d 2d 2d 2d 3b 0a 20 0a 20 20 20 ┆erand ::= ( rex ) -----; ┆
0x1ac7e…1ac84 (0x194,0x35a)
0x1ac84…1aca0 20 20 20 20 20 20 20 20 20 20 20 61 74 74 31 28 73 74 61 6b 70 69 6c 2d 32 29 3a 3d ┆ att1(stakpil-2):=┆
0x1aca0…1acc0 61 74 74 31 28 73 74 61 6b 70 69 6c 2d 31 29 20 73 68 69 66 74 20 31 20 65 78 74 72 61 63 74 20 ┆att1(stakpil-1) shift 1 extract ┆
0x1acc0…1ace0 33 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 74 74 32 28 73 74 61 6b 70 69 6c 2d 32 29 ┆3; att2(stakpil-2)┆
0x1ace0…1acfc 3a 3d 61 74 74 32 28 73 74 61 6b 70 69 6c 2d 31 29 3b 0a 20 20 20 20 20 20 20 20 20 ┆:=att2(stakpil-1); ┆
0x1acfc…1ad02 (0x194,0x35b)
0x1ad02…1ad20 20 20 20 20 20 61 74 74 33 28 73 74 61 6b 70 69 6c 2d 32 29 3a 3d 2d 31 3b 0a 20 20 20 20 ┆ att3(stakpil-2):=-1; ┆
0x1ad20…1ad40 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e ┆ end; begin┆
0x1ad40…1ad60 20 63 6f 6d 6d 65 6e 74 20 2d 2d 2d 2d 2d 20 6f 70 65 72 61 6e 64 20 3a 3a 3d 20 6e 61 76 6e 20 ┆ comment ----- operand ::= navn ┆
0x1ad60…1ad7a 2e 20 6e 61 76 6e 20 2d 2d 2d 2d 2d 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 ┆. navn -----; ┆
0x1ad7a…1ad80 (0x194,0x35c)
0x1ad80…1ada0 20 20 20 20 69 66 20 61 74 74 31 28 73 74 61 6b 70 69 6c 2d 32 29 3d 39 38 20 73 68 69 66 74 20 ┆ if att1(stakpil-2)=98 shift ┆
0x1ada0…1adc0 31 36 20 61 6e 64 20 28 61 74 74 32 28 73 74 61 6b 70 69 6c 2d 32 29 3d 30 20 61 6e 64 0a 20 20 ┆16 and (att2(stakpil-2)=0 and ┆
0x1adc0…1ade0 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 20 20 ┆ ┆
0x1ade0…1ae00 20 20 20 20 20 20 20 61 74 74 33 28 73 74 61 6b 70 69 6c 2d 32 29 3d 30 00 00 00 00 00 00 00 00 ┆ att3(stakpil-2)=0 ┆
0x1ae00…1ae06 (215,) (0x194,0x35d)
0x1ae06…1ae20 29 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e ┆) then begin┆
0x1ae20…1ae40 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 3a 3d 69 64 74 61 62 73 7c 67 65 72 28 73 ┆ i:=idtabsøger(s┆
0x1ae40…1ae60 74 61 6b 70 69 6c 2c 30 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 3a 3d 69 64 ┆takpil,0); n:=id┆
0x1ae60…1ae7e 74 61 62 34 28 69 29 20 73 68 69 66 74 20 28 2d 34 29 20 65 78 74 72 61 63 74 20 38 3b 0a ┆tab4(i) shift (-4) extract 8; ┆
0x1ae7e…1ae84 (0x194,0x35e)
0x1ae84…1aea0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 28 28 6e 3c 3e 33 38 20 61 ┆ if ((n<>38 a┆
0x1aea0…1aec0 6e 64 20 6e 3c 3e 33 36 29 20 61 6e 64 20 28 6e 3c 3e 33 33 20 61 6e 64 20 6e 3c 3e 33 35 29 29 ┆nd n<>36) and (n<>33 and n<>35))┆
0x1aec0…1aee0 20 61 6e 64 20 6e 3c 3e 31 38 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 68 ┆ and n<>18 th┆
0x1aee0…1aefc 65 6e 20 66 65 6a 6c 28 32 30 31 39 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆en fejl(2019); ┆
0x1aefc…1af02 (0x194,0x35f)
0x1af02…1af20 20 20 20 61 74 74 31 28 73 74 61 6b 70 69 6c 2d 32 29 3a 3d 31 20 73 68 69 66 74 20 31 38 ┆ att1(stakpil-2):=1 shift 18┆
0x1af20…1af40 20 61 64 64 20 69 64 74 61 62 35 28 69 29 2b 62 61 73 69 73 72 65 66 2a 32 3b 0a 20 20 20 20 20 ┆ add idtab5(i)+basisref*2; ┆
0x1af40…1af60 20 20 20 20 20 20 20 20 20 20 20 61 74 74 32 28 73 74 61 6b 70 69 6c 2d 32 29 3a 3d 69 64 74 61 ┆ att2(stakpil-2):=idta┆
0x1af60…1af7a 62 34 28 69 29 20 65 78 74 72 61 63 74 20 34 3b 0a 20 20 20 20 20 20 20 20 20 ┆b4(i) extract 4; ┆
0x1af7a…1af80 (0x194,0x360)
0x1af80…1afa0 20 20 20 20 20 20 20 61 74 74 33 28 73 74 61 6b 70 69 6c 2d 32 29 3a 3d 33 20 73 68 69 66 74 20 ┆ att3(stakpil-2):=3 shift ┆
0x1afa0…1afc0 31 38 20 61 64 64 20 28 32 2a 62 61 73 69 73 72 65 66 2b 31 29 3b 0a 20 20 20 20 20 20 20 20 20 ┆18 add (2*basisref+1); ┆
0x1afc0…1afe0 20 20 20 20 20 65 6e 64 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 ┆ end else begi┆
0x1afe0…1b000 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 61 74 74 00 00 00 00 00 00 00 00 ┆n if att ┆
0x1b000…1b006 (216,) (0x194,0x361)
0x1b006…1b020 31 28 73 74 61 6b 70 69 6c 2d 32 29 3d 31 30 30 20 73 68 69 66 74 20 31 36 20 ┆1(stakpil-2)=100 shift 16 ┆
0x1b020…1b040 61 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 74 74 32 28 73 74 61 6b ┆and att2(stak┆
0x1b040…1b060 70 69 6c 2d 32 29 2b 61 74 74 33 28 73 74 61 6b 70 69 6c 2d 32 29 3d 30 20 74 68 65 6e 0a 20 20 ┆pil-2)+att3(stakpil-2)=0 then ┆
0x1b060…1b07e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 ┆ begin ┆
0x1b07e…1b084 (0x194,0x362)
0x1b084…1b0a0 20 20 20 20 20 20 20 20 69 3a 3d 69 64 74 61 62 73 7c 67 65 72 28 73 74 61 6b 70 69 ┆ i:=idtabsøger(stakpi┆
0x1b0a0…1b0c0 6c 2c 31 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 69 64 74 61 62 ┆l,1); if idtab┆
0x1b0c0…1b0e0 34 28 69 29 20 73 68 69 66 74 20 28 2d 34 29 20 65 78 74 72 61 63 74 20 38 3c 3e 34 39 20 74 68 ┆4(i) shift (-4) extract 8<>49 th┆
0x1b0e0…1b0fc 65 6e 20 66 65 6a 6c 28 32 30 31 39 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆en fejl(2019); ┆
0x1b0fc…1b102 (0x194,0x363)
0x1b102…1b120 20 20 20 20 20 61 74 74 31 28 73 74 61 6b 70 69 6c 2d 32 29 3a 3d 69 64 74 61 62 35 28 69 ┆ att1(stakpil-2):=idtab5(i┆
0x1b120…1b140 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 74 74 32 28 73 74 61 6b 70 69 ┆); att2(stakpi┆
0x1b140…1b160 6c 2d 32 29 3a 3d 69 64 74 61 62 34 28 69 29 20 65 78 74 72 61 63 74 20 34 3b 0a 20 20 20 20 20 ┆l-2):=idtab4(i) extract 4; ┆
0x1b160…1b17a 20 20 20 20 20 20 20 20 20 20 20 20 20 61 74 74 33 28 73 74 61 6b 70 69 6c 2d ┆ att3(stakpil-┆
0x1b17a…1b180 (0x194,0x364)
0x1b180…1b1a0 32 29 3a 3d 33 20 73 68 69 66 74 20 31 38 2b 64 79 6e 72 65 66 3b 0a 20 20 20 20 20 20 20 20 20 ┆2):=3 shift 18+dynref; ┆
0x1b1a0…1b1c0 20 20 20 20 20 20 20 65 6e 64 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ end else ┆
0x1b1c0…1b1e0 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 3a 3d 69 64 74 61 62 ┆begin i:=idtab┆
0x1b1e0…1b200 73 7c 67 65 72 28 73 74 61 6b 70 69 6c 2d 32 2c 31 29 3b 0a 20 20 20 20 00 00 00 00 00 00 00 00 ┆søger(stakpil-2,1); ┆
0x1b200…1b206 (217,) (0x194,0x365)
0x1b206…1b220 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 3a 3d 69 64 74 61 62 34 28 69 29 ┆ n:=idtab4(i)┆
0x1b220…1b240 20 73 68 69 66 74 20 28 2d 34 29 20 65 78 74 72 61 63 74 20 38 3b 0a 20 20 20 20 20 20 20 20 20 ┆ shift (-4) extract 8; ┆
0x1b240…1b260 20 20 20 20 20 20 20 20 20 69 66 20 6e 3c 3e 31 38 20 61 6e 64 20 28 6e 3c 3e 33 33 20 61 6e 64 ┆ if n<>18 and (n<>33 and┆
0x1b260…1b27e 20 6e 3c 3e 33 35 29 20 74 68 65 6e 20 66 65 6a 6c 28 32 30 31 39 29 3b 0a 20 20 20 20 20 ┆ n<>35) then fejl(2019); ┆
0x1b27e…1b284 (0x194,0x366)
0x1b284…1b2a0 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 69 64 74 61 62 34 28 69 29 20 65 78 ┆ if idtab4(i) ex┆
0x1b2a0…1b2c0 74 72 61 63 74 20 34 3c 3e 32 20 74 68 65 6e 20 66 65 6a 6c 28 32 30 30 33 29 3b 0a 20 20 20 20 ┆tract 4<>2 then fejl(2003); ┆
0x1b2c0…1b2e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 74 74 33 28 73 74 61 6b 70 69 6c 2d 32 29 3a 3d 33 ┆ att3(stakpil-2):=3┆
0x1b2e0…1b2fc 20 73 68 69 66 74 20 31 38 20 61 64 64 20 69 64 74 61 62 35 28 69 29 3b 0a 20 20 20 ┆ shift 18 add idtab5(i); ┆
0x1b2fc…1b302 (0x194,0x367)
0x1b302…1b320 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 3a 3d 69 64 74 61 62 73 7c 67 65 72 28 73 ┆ i:=idtabsøger(s┆
0x1b320…1b340 74 61 6b 70 69 6c 2c 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 ┆takpil,2); if ┆
0x1b340…1b360 69 64 74 61 62 34 28 69 29 20 73 68 69 66 74 20 28 2d 34 29 20 65 78 74 72 61 63 74 20 38 3c 3e ┆idtab4(i) shift (-4) extract 8<>┆
0x1b360…1b37a 36 35 20 74 68 65 6e 20 66 65 6a 6c 28 32 30 31 39 29 3b 0a 20 20 20 20 20 20 ┆65 then fejl(2019); ┆
0x1b37a…1b380 (0x194,0x368)
0x1b380…1b3a0 20 20 20 20 20 20 20 20 20 20 20 20 61 74 74 31 28 73 74 61 6b 70 69 6c 2d 32 29 3a 3d 69 64 74 ┆ att1(stakpil-2):=idt┆
0x1b3a0…1b3c0 61 62 35 28 69 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 74 74 32 28 73 ┆ab5(i); att2(s┆
0x1b3c0…1b3e0 74 61 6b 70 69 6c 2d 32 29 3a 3d 69 64 74 61 62 34 28 69 29 20 65 78 74 72 61 63 74 20 34 3b 0a ┆takpil-2):=idtab4(i) extract 4; ┆
0x1b3e0…1b400 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 00 00 00 00 00 00 00 00 ┆ end; ┆
0x1b400…1b406 (218,) (0x194,0x369)
0x1b406…1b420 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆ end; ┆
0x1b420…1b440 20 20 65 6e 64 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 ┆ end; begin comme┆
0x1b440…1b460 6e 74 20 2d 2d 2d 2d 2d 20 6f 70 65 72 61 6e 64 20 3a 3a 3d 20 28 20 72 65 78 20 29 20 2e 20 6e ┆nt ----- operand ::= ( rex ) . n┆
0x1b460…1b47e 61 76 6e 20 2d 2d 2d 2d 2d 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 ┆avn -----; if ┆
0x1b47e…1b484 (0x194,0x36a)
0x1b484…1b4a0 61 74 74 31 28 73 74 61 6b 70 69 6c 2d 33 29 3c 31 20 6f 72 20 61 74 74 31 28 73 74 ┆att1(stakpil-3)<1 or att1(st┆
0x1b4a0…1b4c0 61 6b 70 69 6c 2d 33 29 3e 33 20 74 68 65 6e 20 66 65 6a 6c 28 32 30 30 39 29 3b 0a 20 20 20 20 ┆akpil-3)>3 then fejl(2009); ┆
0x1b4c0…1b4e0 20 20 20 20 20 20 20 20 20 20 69 66 20 61 74 74 32 28 73 74 61 6b 70 69 6c 2d 33 29 3c 3e 32 20 ┆ if att2(stakpil-3)<>2 ┆
0x1b4e0…1b4fc 61 6e 64 20 61 74 74 32 28 73 74 61 6b 70 69 6c 2d 33 29 3c 3e 30 20 74 68 65 6e 20 ┆and att2(stakpil-3)<>0 then ┆
0x1b4fc…1b502 (0x194,0x36b)
0x1b502…1b520 66 65 6a 6c 28 32 30 31 35 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 3a 3d 69 ┆fejl(2015); i:=i┆
0x1b520…1b540 64 74 61 62 73 7c 67 65 72 28 73 74 61 6b 70 69 6c 2c 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆dtabsøger(stakpil,2); ┆
0x1b540…1b560 20 20 20 20 6a 3a 3d 69 64 74 61 62 34 28 69 29 20 73 68 69 66 74 20 28 2d 34 29 20 65 78 74 72 ┆ j:=idtab4(i) shift (-4) extr┆
0x1b560…1b57a 61 63 74 20 38 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 6a 20 ┆act 8; if j ┆
0x1b57a…1b580 (0x194,0x36c)
0x1b580…1b5a0 3c 3e 20 36 35 20 61 6e 64 20 6a 20 3c 3e 20 36 38 20 74 68 65 6e 20 66 65 6a 6c 28 32 30 31 39 ┆<> 65 and j <> 68 then fejl(2019┆
0x1b5a0…1b5c0 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 74 74 31 28 73 74 61 6b 70 69 6c 2d 34 29 ┆); att1(stakpil-4)┆
0x1b5c0…1b5e0 3a 3d 61 74 74 31 28 73 74 61 6b 70 69 6c 2d 33 29 20 73 68 69 66 74 20 31 36 20 61 64 64 20 69 ┆:=att1(stakpil-3) shift 16 add i┆
0x1b5e0…1b600 64 74 61 62 35 28 69 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆dtab5(i); ┆
0x1b600…1b606 (219,) (0x194,0x36d)
0x1b606…1b620 61 74 74 32 28 73 74 61 6b 70 69 6c 2d 34 29 3a 3d 69 66 20 6a 20 3d 20 36 38 ┆att2(stakpil-4):=if j = 68┆
0x1b620…1b640 20 74 68 65 6e 20 37 20 65 6c 73 65 20 69 64 74 61 62 34 28 69 29 20 65 78 74 72 61 63 74 20 34 ┆ then 7 else idtab4(i) extract 4┆
0x1b640…1b660 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 74 74 33 28 73 74 61 6b 70 69 6c 2d 34 29 3a ┆; att3(stakpil-4):┆
0x1b660…1b67e 3d 2d 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 0a 20 20 20 20 20 20 ┆=-1; end; ┆
0x1b67e…1b684 (0x194,0x36e)
0x1b684…1b6a0 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 2d 2d 2d 2d 2d 20 6f 70 ┆ begin comment ----- op┆
0x1b6a0…1b6c0 65 72 61 6e 64 20 3a 3a 3d 20 28 20 72 65 78 20 29 20 2e 20 74 79 70 65 20 2d 2d 2d 2d 2d 3b 0a ┆erand ::= ( rex ) . type -----; ┆
0x1b6c0…1b6e0 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 61 74 74 31 28 73 74 61 6b 70 69 6c 2d ┆ if att1(stakpil-┆
0x1b6e0…1b6fc 33 29 3c 31 20 6f 72 20 61 74 74 31 28 73 74 61 6b 70 69 6c 2d 33 29 3e 33 20 74 68 ┆3)<1 or att1(stakpil-3)>3 th┆
0x1b6fc…1b702 (0x194,0x36f)
0x1b702…1b720 65 6e 20 66 65 6a 6c 28 32 30 30 39 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 ┆en fejl(2009); a┆
0x1b720…1b740 74 74 31 28 73 74 61 6b 70 69 6c 2d 34 29 3a 3d 61 74 74 31 28 73 74 61 6b 70 69 6c 2d 33 29 20 ┆tt1(stakpil-4):=att1(stakpil-3) ┆
0x1b740…1b760 73 68 69 66 74 20 31 36 20 2b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆shift 16 + ┆
0x1b760…1b77a 20 20 20 20 20 20 20 20 20 20 20 20 20 61 74 74 31 28 73 74 61 6b 70 69 6c 29 ┆ att1(stakpil)┆
0x1b77a…1b780 (0x194,0x370)
0x1b780…1b7a0 2f 2f 32 2b 61 74 74 31 28 73 74 61 6b 70 69 6c 29 2f 2f 34 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆//2+att1(stakpil)//4; ┆
0x1b7a0…1b7c0 20 20 20 20 61 74 74 32 28 73 74 61 6b 70 69 6c 2d 34 29 3a 3d 61 74 74 31 28 73 74 61 6b 70 69 ┆ att2(stakpil-4):=att1(stakpi┆
0x1b7c0…1b7e0 6c 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 74 74 33 28 73 74 61 6b 70 69 6c 2d 34 ┆l); att3(stakpil-4┆
0x1b7e0…1b800 29 3a 3d 2d 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 00 00 00 00 00 00 00 00 ┆):=-1; end; ┆
0x1b800…1b806 (220,) (0x194,0x371)
0x1b806…1b820 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e ┆ begin commen┆
0x1b820…1b840 74 20 2d 2d 2d 2d 2d 20 6f 70 65 72 61 6e 64 20 3a 3a 3d 20 74 79 70 65 20 70 6b 6f 6e 73 74 20 ┆t ----- operand ::= type pkonst ┆
0x1b840…1b860 6f 66 20 6f 70 65 72 61 6e 64 20 2d 2d 2d 2d 2d 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆of operand -----; ┆
0x1b860…1b87e 20 20 74 79 70 65 3a 3d 61 74 74 31 28 73 74 61 6b 70 69 6c 2d 33 29 3b 0a 20 20 20 20 20 ┆ type:=att1(stakpil-3); ┆
0x1b87e…1b884 (0x194,0x372)
0x1b884…1b8a0 20 20 20 20 20 20 20 20 20 68 6b 6f 6e 73 74 3a 3d 61 74 74 33 28 73 74 61 6b 70 69 ┆ hkonst:=att3(stakpi┆
0x1b8a0…1b8c0 6c 2d 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 74 79 70 65 3c 3e 31 20 61 ┆l-2); if type<>1 a┆
0x1b8c0…1b8e0 6e 64 20 74 79 70 65 3c 3e 33 20 74 68 65 6e 20 66 65 6a 6c 28 32 30 30 33 29 3b 0a 20 20 20 20 ┆nd type<>3 then fejl(2003); ┆
0x1b8e0…1b8fc 20 20 20 20 20 20 20 20 20 20 69 66 20 61 74 74 32 28 73 74 61 6b 70 69 6c 29 20 73 ┆ if att2(stakpil) s┆
0x1b8fc…1b902 (0x194,0x373)
0x1b902…1b920 68 69 66 74 20 28 2d 33 29 3c 3e 30 20 74 68 65 6e 20 66 65 6a 6c 28 32 30 31 38 29 3b 0a ┆hift (-3)<>0 then fejl(2018); ┆
0x1b920…1b940 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 61 73 65 20 28 74 79 70 65 2b 31 29 2f 2f 32 20 6f ┆ case (type+1)//2 o┆
0x1b940…1b960 66 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 ┆f begin ┆
0x1b960…1b97a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ begin ┆
0x1b97a…1b980 (0x194,0x374)
0x1b980…1b9a0 20 20 20 20 69 66 20 61 74 74 32 28 73 74 61 6b 70 69 6c 29 20 65 78 74 72 61 63 74 20 33 3c 32 ┆ if att2(stakpil) extract 3<2┆
0x1b9a0…1b9c0 20 74 68 65 6e 20 66 65 6a 6c 28 32 30 30 33 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ then fejl(2003); ┆
0x1b9c0…1b9e0 20 20 20 20 69 66 20 68 6b 6f 6e 73 74 3e 28 61 74 74 32 28 73 74 61 6b 70 69 6c 29 20 65 78 74 ┆ if hkonst>(att2(stakpil) ext┆
0x1b9e0…1ba00 72 61 63 74 20 33 29 2f 2f 32 2a 32 20 74 68 65 6e 20 66 65 6a 6c 28 32 00 00 00 00 00 00 00 00 ┆ract 3)//2*2 then fejl(2 ┆
0x1ba00…1ba06 (221,) (0x194,0x375)
0x1ba06…1ba20 30 32 30 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 74 ┆020); at┆
0x1ba20…1ba40 74 31 28 73 74 61 6b 70 69 6c 2d 33 29 3a 3d 61 74 74 31 28 73 74 61 6b 70 69 6c 29 2b 68 6b 6f ┆t1(stakpil-3):=att1(stakpil)+hko┆
0x1ba40…1ba60 6e 73 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2d 28 69 66 20 61 ┆nst -(if a┆
0x1ba60…1ba7e 74 74 32 28 73 74 61 6b 70 69 6c 29 3e 33 20 74 68 65 6e 20 33 20 65 6c 73 65 20 31 29 3b ┆tt2(stakpil)>3 then 3 else 1);┆
0x1ba7e…1ba84 (0x194,0x376)
0x1ba84…1baa0 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 ┆ end; ┆
0x1baa0…1bac0 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ begin ┆
0x1bac0…1bae0 20 20 69 66 20 61 74 74 32 28 73 74 61 6b 70 69 6c 29 20 65 78 74 72 61 63 74 20 33 3c 34 20 74 ┆ if att2(stakpil) extract 3<4 t┆
0x1bae0…1bafc 68 65 6e 20 66 65 6a 6c 28 32 30 30 33 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆hen fejl(2003); ┆
0x1bafc…1bb02 (0x194,0x377)
0x1bb02…1bb20 20 20 20 20 20 20 69 66 20 68 6b 6f 6e 73 74 3e 31 20 74 68 65 6e 20 66 65 6a 6c 28 32 30 ┆ if hkonst>1 then fejl(20┆
0x1bb20…1bb40 32 30 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 74 74 31 28 73 74 61 6b ┆20); att1(stak┆
0x1bb40…1bb60 70 69 6c 2d 33 29 3a 3d 61 74 74 31 28 73 74 61 6b 70 69 6c 29 2b 32 2a 68 6b 6f 6e 73 74 2d 32 ┆pil-3):=att1(stakpil)+2*hkonst-2┆
0x1bb60…1bb7a 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 ┆; end; ┆
0x1bb7a…1bb80 (0x194,0x378)
0x1bb80…1bba0 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 74 ┆ end; at┆
0x1bba0…1bbc0 74 32 28 73 74 61 6b 70 69 6c 2d 33 29 3a 3d 74 79 70 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆t2(stakpil-3):=type; ┆
0x1bbc0…1bbe0 20 20 20 61 74 74 33 28 73 74 61 6b 70 69 6c 2d 33 29 3a 3d 61 74 74 33 28 73 74 61 6b 70 69 6c ┆ att3(stakpil-3):=att3(stakpil┆
0x1bbe0…1bc00 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 0a 20 20 00 00 00 00 00 00 00 00 ┆); end; ┆
0x1bc00…1bc06 (222,) (0x194,0x379)
0x1bc06…1bc20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 2d 2d ┆ begin comment --┆
0x1bc20…1bc40 2d 2d 2d 20 6f 70 65 72 61 6e 64 20 3a 3a 3d 20 74 79 70 65 20 28 20 6f 70 65 72 61 6e 64 20 29 ┆--- operand ::= type ( operand )┆
0x1bc40…1bc60 20 2d 2d 2d 2d 2d 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 61 74 74 32 28 ┆ -----; if att2(┆
0x1bc60…1bc7e 73 74 61 6b 70 69 6c 2d 31 29 3c 3e 32 20 74 68 65 6e 20 66 65 6a 6c 28 32 30 30 33 29 3b ┆stakpil-1)<>2 then fejl(2003);┆
0x1bc7e…1bc84 (0x194,0x37a)
0x1bc84…1bca0 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 3a 3d 31 20 73 68 69 66 74 20 31 39 ┆ i:=1 shift 19┆
0x1bca0…1bcc0 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 74 74 32 28 73 74 61 6b 70 69 6c 2d 33 29 3a ┆; att2(stakpil-3):┆
0x1bcc0…1bce0 3d 61 74 74 31 28 73 74 61 6b 70 69 6c 2d 33 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆=att1(stakpil-3); ┆
0x1bce0…1bcfc 61 74 74 31 28 73 74 61 6b 70 69 6c 2d 33 29 3a 3d 61 74 74 31 28 73 74 61 6b 70 69 ┆att1(stakpil-3):=att1(stakpi┆
0x1bcfc…1bd02 (0x194,0x37b)
0x1bd02…1bd20 6c 2d 31 29 2b 69 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 74 74 33 28 73 74 61 ┆l-1)+i; att3(sta┆
0x1bd20…1bd40 6b 70 69 6c 2d 33 29 3a 3d 61 74 74 33 28 73 74 61 6b 70 69 6c 2d 31 29 3b 0a 20 20 20 20 20 20 ┆kpil-3):=att3(stakpil-1); ┆
0x1bd40…1bd60 20 20 20 20 20 20 65 6e 64 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 ┆ end; begin c┆
0x1bd60…1bd7a 6f 6d 6d 65 6e 74 20 2d 2d 2d 2d 2d 20 6f 70 65 72 61 6e 64 20 3a 3a 3d 20 6b ┆omment ----- operand ::= k┆
0x1bd7a…1bd80 (0x194,0x37c)
0x1bd80…1bda0 6f 6e 73 74 20 2d 2d 2d 2d 2d 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 ┆onst -----; end; ┆
0x1bda0…1bdc0 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 2d 2d 2d 2d 2d ┆ begin comment -----┆
0x1bdc0…1bde0 20 6b 6f 6e 73 74 20 3a 3a 3d 20 6b 6f 6e 73 74 65 78 70 72 20 29 20 2d 2d 2d 2d 2d 3b 0a 20 0a ┆ konst ::= konstexpr ) -----; ┆
0x1bde0…1be00 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 0a 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ end; ┆
0x1be00…1be06 (223,) (0x194,0x37d)
0x1be06…1be20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 2d 2d 2d 2d 2d ┆ begin comment -----┆
0x1be20…1be40 20 6b 6f 6e 73 74 31 20 3a 3a 3d 20 70 6b 6f 6e 73 74 20 2d 2d 2d 2d 2d 3b 0a 20 0a 20 20 20 20 ┆ konst1 ::= pkonst -----; ┆
0x1be40…1be60 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e ┆ end; begin┆
0x1be60…1be7e 20 63 6f 6d 6d 65 6e 74 20 2d 2d 2d 2d 2d 20 6b 6f 6e 73 74 31 20 3a 3a 3d 20 2d 20 70 6b ┆ comment ----- konst1 ::= - pk┆
0x1be7e…1be84 (0x194,0x37e)
0x1be84…1bea0 6f 6e 73 74 20 2d 2d 2d 2d 2d 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 70 ┆onst -----; lp┆
0x1bea0…1bec0 61 63 6b 6b 6f 6e 73 74 3a 3d 61 74 74 31 28 73 74 61 6b 70 69 6c 29 3b 0a 20 20 20 20 20 20 20 ┆ackkonst:=att1(stakpil); ┆
0x1bec0…1bee0 20 20 20 20 20 20 20 6c 70 61 63 6b 6b 6f 6e 73 74 3a 3d 6c 70 61 63 6b 6b 6f 6e 73 74 20 73 68 ┆ lpackkonst:=lpackkonst sh┆
0x1bee0…1befc 69 66 74 20 32 34 20 61 64 64 20 61 74 74 33 28 73 74 61 6b 70 69 6c 29 20 2a 20 28 ┆ift 24 add att3(stakpil) * (┆
0x1befc…1bf02 (0x194,0x37f)
0x1bf02…1bf20 2d 31 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 74 74 33 28 73 74 61 6b 70 69 ┆-1); att3(stakpi┆
0x1bf20…1bf40 6c 2d 31 29 3a 3d 6c 70 61 63 6b 6b 6f 6e 73 74 20 65 78 74 72 61 63 74 20 32 34 3b 0a 20 20 20 ┆l-1):=lpackkonst extract 24; ┆
0x1bf40…1bf60 20 20 20 20 20 20 20 20 20 20 20 61 74 74 31 28 73 74 61 6b 70 69 6c 2d 31 29 3a 3d 6c 70 61 63 ┆ att1(stakpil-1):=lpac┆
0x1bf60…1bf7a 6b 6b 6f 6e 73 74 20 73 68 69 66 74 20 28 2d 32 34 29 3b 0a 20 20 20 20 20 20 ┆kkonst shift (-24); ┆
0x1bf7a…1bf80 (0x194,0x380)
0x1bf80…1bfa0 20 20 20 20 20 20 20 20 61 74 74 32 28 73 74 61 6b 70 69 6c 2d 31 29 3a 3d 61 74 74 32 28 73 74 ┆ att2(stakpil-1):=att2(st┆
0x1bfa0…1bfc0 61 6b 70 69 6c 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 0a 20 20 20 20 20 ┆akpil); end; ┆
0x1bfc0…1bfe0 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 2d 2d 2d 2d 2d 20 6b 6f 6e 73 74 ┆ begin comment ----- konst┆
0x1bfe0…1c000 20 3a 3a 3d 20 72 6b 6f 6e 73 74 20 2d 2d 2d 2d 2d 3b 0a 20 0a 20 20 20 00 00 00 00 00 00 00 00 ┆ ::= rkonst -----; ┆
0x1c000…1c006 (224,) (0x194,0x381)
0x1c006…1c020 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 ┆ end; ┆
0x1c020…1c040 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 2d 2d 2d 2d 2d 20 6b 6f 6e 73 74 20 3a 3a 3d 20 ┆ begin comment ----- konst ::= ┆
0x1c040…1c060 2d 20 72 6b 6f 6e 73 74 20 2d 2d 2d 2d 2d 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 70 ┆- rkonst -----; lp┆
0x1c060…1c07e 61 63 6b 6b 6f 6e 73 74 3a 3d 61 74 74 31 28 73 74 61 6b 70 69 6c 29 3b 0a 20 20 20 20 20 ┆ackkonst:=att1(stakpil); ┆
0x1c07e…1c084 (0x194,0x382)
0x1c084…1c0a0 20 20 20 20 20 20 20 20 20 6c 70 61 63 6b 6b 6f 6e 73 74 3a 3d 6c 70 61 63 6b 6b 6f ┆ lpackkonst:=lpackko┆
0x1c0a0…1c0c0 6e 73 74 20 73 68 69 66 74 20 32 34 20 61 64 64 20 61 74 74 33 28 73 74 61 6b 70 69 6c 29 3b 0a ┆nst shift 24 add att3(stakpil); ┆
0x1c0c0…1c0e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 70 61 63 6b 6b 6f 6e 73 74 3a 3d 72 65 61 6c 20 6c ┆ rpackkonst:=real l┆
0x1c0e0…1c0fc 70 61 63 6b 6b 6f 6e 73 74 20 2a 20 28 2d 31 2e 30 29 3b 0a 20 20 20 20 20 20 20 20 ┆packkonst * (-1.0); ┆
0x1c0fc…1c102 (0x194,0x383)
0x1c102…1c120 20 20 20 20 20 20 61 74 74 33 28 73 74 61 6b 70 69 6c 2d 31 29 3a 3d 72 70 61 63 6b 6b 6f ┆ att3(stakpil-1):=rpackko┆
0x1c120…1c140 6e 73 74 20 65 78 74 72 61 63 74 20 32 34 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 74 ┆nst extract 24; at┆
0x1c140…1c160 74 31 28 73 74 61 6b 70 69 6c 2d 31 29 3a 3d 72 70 61 63 6b 6b 6f 6e 73 74 20 73 68 69 66 74 20 ┆t1(stakpil-1):=rpackkonst shift ┆
0x1c160…1c17a 28 2d 32 34 29 20 65 78 74 72 61 63 74 20 32 34 3b 0a 20 20 20 20 20 20 20 20 ┆(-24) extract 24; ┆
0x1c17a…1c180 (0x194,0x384)
0x1c180…1c1a0 20 20 20 20 20 20 61 74 74 32 28 73 74 61 6b 70 69 6c 2d 31 29 3a 3d 31 32 3b 0a 20 20 20 20 20 ┆ att2(stakpil-1):=12; ┆
0x1c1a0…1c1c0 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 ┆ end; begin ┆
0x1c1c0…1c1e0 63 6f 6d 6d 65 6e 74 20 2d 2d 2d 2d 2d 20 6b 6f 6e 73 74 31 20 3a 3a 3d 20 63 6f 6d 70 6f 72 64 ┆comment ----- konst1 ::= compord┆
0x1c1e0…1c200 20 28 20 6e 61 76 6e 20 29 20 2d 2d 2d 2d 2d 3b 0a 20 0a 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ ( navn ) -----; ┆
0x1c200…1c206 (225,) (0x194,0x385)
0x1c206…1c220 20 20 20 20 20 20 20 20 20 69 66 20 61 74 74 31 28 73 74 61 6b 70 69 6c 2d 33 ┆ if att1(stakpil-3┆
0x1c220…1c240 29 20 65 78 74 72 61 63 74 20 36 3c 3e 34 20 74 68 65 6e 20 66 65 6a 6c 28 32 30 30 34 29 3b 0a ┆) extract 6<>4 then fejl(2004); ┆
0x1c240…1c260 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 61 74 74 31 28 73 74 61 6b 70 69 6c 2d 31 29 ┆ if att1(stakpil-1)┆
0x1c260…1c27e 3d 31 30 30 20 73 68 69 66 74 20 31 36 20 61 6e 64 20 61 74 74 32 28 73 74 61 6b 70 69 6c ┆=100 shift 16 and att2(stakpil┆
0x1c27e…1c284 (0x194,0x386)
0x1c284…1c2a0 2d 31 29 2b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 74 74 33 28 73 ┆-1)+ att3(s┆
0x1c2a0…1c2c0 74 61 6b 70 69 6c 2d 31 29 3d 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 ┆takpil-1)=0 then b┆
0x1c2c0…1c2e0 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 61 74 74 31 28 73 74 61 ┆egin if att1(sta┆
0x1c2e0…1c2fc 6b 70 69 6c 2d 33 29 3d 32 20 74 68 65 6e 20 66 65 6a 6c 28 32 30 30 34 29 3b 0a 20 ┆kpil-3)=2 then fejl(2004); ┆
0x1c2fc…1c302 (0x194,0x387)
0x1c302…1c320 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 74 74 33 28 73 74 61 6b 70 69 6c 2d 33 29 ┆ att3(stakpil-3)┆
0x1c320…1c340 3a 3d 28 72 65 6c 61 64 72 28 33 29 2b 31 29 2f 2f 32 2a 32 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆:=(reladr(3)+1)//2*2; ┆
0x1c340…1c360 20 20 20 20 20 20 61 74 74 32 28 73 74 61 6b 70 69 6c 2d 33 29 3a 3d 39 3b 0a 20 20 20 20 20 20 ┆ att2(stakpil-3):=9; ┆
0x1c360…1c37a 20 20 20 20 20 20 20 20 65 6e 64 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 ┆ end else ┆
0x1c37a…1c380 (0x194,0x388)
0x1c380…1c3a0 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 3a 3d 69 64 ┆ begin i:=id┆
0x1c3a0…1c3c0 74 61 62 73 7c 67 65 72 28 73 74 61 6b 70 69 6c 2d 31 2c 32 29 3b 0a 20 20 20 20 20 20 20 20 20 ┆tabsøger(stakpil-1,2); ┆
0x1c3c0…1c3e0 20 20 20 20 20 20 20 69 66 20 61 74 74 31 28 73 74 61 6b 70 69 6c 2d 33 29 20 73 68 69 66 74 20 ┆ if att1(stakpil-3) shift ┆
0x1c3e0…1c400 28 2d 36 29 20 3d 31 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆(-6) =1 then ┆
0x1c400…1c406 (226,) (0x194,0x389)
0x1c406…1c420 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ begin ┆
0x1c420…1c440 20 20 20 69 66 20 69 64 74 61 62 34 28 69 29 20 73 68 69 66 74 20 28 2d 34 29 20 65 78 74 72 61 ┆ if idtab4(i) shift (-4) extra┆
0x1c440…1c460 63 74 20 34 20 3e 20 33 20 74 68 65 6e 20 66 65 6a 6c 28 32 30 32 31 29 3b 0a 20 20 20 20 20 20 ┆ct 4 > 3 then fejl(2021); ┆
0x1c460…1c47e 20 20 20 20 20 20 20 20 20 20 20 20 61 74 74 33 28 73 74 61 6b 70 69 6c 2d 33 29 3a 3d 69 ┆ att3(stakpil-3):=i┆
0x1c47e…1c484 (0x194,0x38a)
0x1c484…1c4a0 64 74 61 62 34 28 69 29 20 73 68 69 66 74 28 2d 31 32 29 3b 0a 20 20 20 20 20 20 20 ┆dtab4(i) shift(-12); ┆
0x1c4a0…1c4c0 20 20 20 20 20 20 20 20 20 20 20 61 74 74 32 28 73 74 61 6b 70 69 6c 2d 33 29 3a 3d 31 20 73 68 ┆ att2(stakpil-3):=1 sh┆
0x1c4c0…1c4e0 69 66 74 20 33 20 61 64 64 20 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 ┆ift 3 add 1; end┆
0x1c4e0…1c4fc 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a ┆ else begin ┆
0x1c4fc…1c502 (0x194,0x38b)
0x1c502…1c520 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 69 64 74 61 62 34 28 69 29 ┆ if idtab4(i)┆
0x1c520…1c540 20 73 68 69 66 74 20 28 2d 34 29 20 65 78 74 72 61 63 74 20 34 20 3e 20 34 20 74 68 65 6e 20 66 ┆ shift (-4) extract 4 > 4 then f┆
0x1c540…1c560 65 6a 6c 28 32 30 32 31 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 74 74 ┆ejl(2021); att┆
0x1c560…1c57a 32 28 73 74 61 6b 70 69 6c 2d 33 29 3a 3d 31 20 73 68 69 66 74 20 33 20 61 64 ┆2(stakpil-3):=1 shift 3 ad┆
0x1c57a…1c580 (0x194,0x38c)
0x1c580…1c5a0 64 20 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 74 74 33 28 73 74 61 6b ┆d 1; att3(stak┆
0x1c5a0…1c5c0 70 69 6c 2d 33 29 3a 3d 69 64 74 61 62 35 28 69 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆pil-3):=idtab5(i); ┆
0x1c5c0…1c5e0 20 20 20 20 20 69 66 20 69 64 74 61 62 34 28 69 29 20 73 68 69 66 74 20 28 2d 34 29 20 65 78 74 ┆ if idtab4(i) shift (-4) ext┆
0x1c5e0…1c600 72 61 63 74 20 34 20 3d 20 31 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ract 4 = 1 then ┆
0x1c600…1c606 (227,) (0x194,0x38d)
0x1c606…1c620 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 ┆ begin ┆
0x1c620…1c640 20 20 20 20 20 20 20 20 20 20 6a 3a 3d 69 64 74 61 62 34 28 69 29 20 65 78 74 72 61 63 74 20 34 ┆ j:=idtab4(i) extract 4┆
0x1c640…1c660 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 6a 20 73 68 69 66 74 ┆; if j shift┆
0x1c660…1c67e 20 28 2d 31 29 20 3d 20 31 20 74 68 65 6e 20 61 74 74 33 28 73 74 61 6b 70 69 6c 2d 33 29 ┆ (-1) = 1 then att3(stakpil-3)┆
0x1c67e…1c684 (0x194,0x38e)
0x1c684…1c6a0 3a 3d 61 74 74 33 28 73 74 61 6b 70 69 6c 2d 33 29 2d 31 3b 0a 20 20 20 20 20 20 20 ┆:=att3(stakpil-3)-1; ┆
0x1c6a0…1c6c0 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 6a 20 73 68 69 66 74 20 28 2d 31 29 20 3d 20 32 ┆ if j shift (-1) = 2┆
0x1c6c0…1c6e0 20 74 68 65 6e 20 61 74 74 33 28 73 74 61 6b 70 69 6c 2d 33 29 3a 3d 61 74 74 33 28 73 74 61 6b ┆ then att3(stakpil-3):=att3(stak┆
0x1c6e0…1c6fc 70 69 6c 2d 33 29 2d 33 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆pil-3)-3; ┆
0x1c6fc…1c702 (0x194,0x38f)
0x1c702…1c720 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 ┆end; end; ┆
0x1c720…1c740 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 74 74 ┆ end; att┆
0x1c740…1c760 31 28 73 74 61 6b 70 69 6c 2d 33 29 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 ┆1(stakpil-3):=0; end┆
0x1c760…1c77a 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d ┆; begin comm┆
0x1c77a…1c780 (0x194,0x390)
0x1c780…1c7a0 65 6e 74 20 2d 2d 2d 2d 2d 20 6b 6f 6e 73 74 65 78 70 72 20 3a 3a 3d 20 28 20 6b 6f 6e 73 74 20 ┆ent ----- konstexpr ::= ( konst ┆
0x1c7a0…1c7c0 2d 2d 2d 2d 2d 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 74 74 31 28 73 74 61 6b ┆-----; att1(stak┆
0x1c7c0…1c7e0 70 69 6c 2d 31 29 3a 3d 61 74 74 31 28 73 74 61 6b 70 69 6c 29 3b 0a 20 20 20 20 20 20 20 20 20 ┆pil-1):=att1(stakpil); ┆
0x1c7e0…1c800 20 20 20 20 20 61 74 74 32 28 73 74 61 6b 70 69 6c 2d 31 29 3a 3d 61 74 00 00 00 00 00 00 00 00 ┆ att2(stakpil-1):=at ┆
0x1c800…1c806 (228,) (0x194,0x391)
0x1c806…1c820 74 32 28 73 74 61 6b 70 69 6c 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆t2(stakpil); ┆
0x1c820…1c840 20 61 74 74 33 28 73 74 61 6b 70 69 6c 2d 31 29 3a 3d 61 74 74 33 28 73 74 61 6b 70 69 6c 29 3b ┆ att3(stakpil-1):=att3(stakpil);┆
0x1c840…1c860 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ end; ┆
0x1c860…1c87e 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 2d 2d 2d 2d 2d 20 6b 6f 6e 73 74 65 78 70 72 20 ┆begin comment ----- konstexpr ┆
0x1c87e…1c884 (0x194,0x392)
0x1c884…1c8a0 3a 3a 3d 20 6b 6f 6e 73 74 65 78 70 72 20 64 79 6f 70 20 6b 6f 6e 73 74 20 2d 2d 2d ┆::= konstexpr dyop konst ---┆
0x1c8a0…1c8c0 2d 2d 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 3a 3d 61 74 74 31 28 73 74 61 6b ┆--; n:=att1(stak┆
0x1c8c0…1c8e0 70 69 6c 2d 31 29 20 65 78 74 72 61 63 74 20 36 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆pil-1) extract 6; ┆
0x1c8e0…1c8fc 69 66 20 61 74 74 32 28 73 74 61 6b 70 69 6c 2d 32 29 20 65 78 74 72 61 63 74 20 31 ┆if att2(stakpil-2) extract 1┆
0x1c8fc…1c902 (0x194,0x393)
0x1c902…1c920 3d 31 20 61 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 74 74 32 28 73 ┆=1 and att2(s┆
0x1c920…1c940 74 61 6b 70 69 6c 29 20 65 78 74 72 61 63 74 20 31 3d 31 20 74 68 65 6e 0a 20 20 20 20 20 20 20 ┆takpil) extract 1=1 then ┆
0x1c940…1c960 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 ┆ begin if ┆
0x1c960…1c97a 28 6e 3c 32 20 6f 72 20 6e 3e 37 29 20 6f 72 20 6e 3d 35 20 74 68 65 6e 20 66 ┆(n<2 or n>7) or n=5 then f┆
0x1c97a…1c980 (0x194,0x394)
0x1c980…1c9a0 65 6a 6c 28 32 30 30 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 68 6b 6f 6e 73 ┆ejl(2002); hkons┆
0x1c9a0…1c9c0 74 65 78 70 72 28 6e 2d 31 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 20 65 6c ┆texpr(n-1); end el┆
0x1c9c0…1c9e0 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 ┆se begin ┆
0x1c9e0…1ca00 20 20 20 20 20 20 20 69 66 20 61 74 74 32 28 73 74 61 6b 70 69 6c 2d 32 00 00 00 00 00 00 00 00 ┆ if att2(stakpil-2 ┆
0x1ca00…1ca06 (229,) (0x194,0x395)
0x1ca06…1ca20 29 20 65 78 74 72 61 63 74 20 33 3c 3e 34 20 6f 72 0a 20 20 20 20 20 20 20 20 ┆) extract 3<>4 or ┆
0x1ca20…1ca40 20 20 20 20 20 20 20 20 20 20 20 61 74 74 32 28 73 74 61 6b 70 69 6c 29 20 65 78 74 72 61 63 74 ┆ att2(stakpil) extract┆
0x1ca40…1ca60 20 33 20 3c 3e 34 20 74 68 65 6e 20 66 65 6a 6c 28 32 30 30 33 29 3b 0a 20 20 20 20 20 20 20 20 ┆ 3 <>4 then fejl(2003); ┆
0x1ca60…1ca7e 20 20 20 20 20 20 20 20 69 66 20 6e 3c 32 20 6f 72 20 6e 3e 35 20 74 68 65 6e 20 66 65 6a ┆ if n<2 or n>5 then fej┆
0x1ca7e…1ca84 (0x194,0x396)
0x1ca84…1caa0 6c 28 32 30 30 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 6b 6f ┆l(2002); rko┆
0x1caa0…1cac0 6e 73 74 65 78 70 72 28 6e 2d 31 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b ┆nstexpr(n-1); end;┆
0x1cac0…1cae0 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ end; ┆
0x1cae0…1cafc 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 2d 2d 2d 2d 2d 20 6b 6f 6e 73 74 65 78 70 ┆begin comment ----- konstexp┆
0x1cafc…1cb02 (0x194,0x397)
0x1cb02…1cb20 72 20 3a 3a 3d 20 6b 6f 6e 73 74 65 78 70 72 20 2d 20 6b 6f 6e 73 74 20 2d 2d 2d 2d 2d 3b ┆r ::= konstexpr - konst -----;┆
0x1cb20…1cb40 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 61 74 74 32 28 73 74 61 6b 70 69 6c ┆ if att2(stakpil┆
0x1cb40…1cb60 2d 32 29 20 65 78 74 72 61 63 74 20 31 3d 31 20 61 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆-2) extract 1=1 and ┆
0x1cb60…1cb7a 20 20 20 20 20 61 74 74 32 28 73 74 61 6b 70 69 6c 29 20 65 78 74 72 61 63 74 ┆ att2(stakpil) extract┆
0x1cb7a…1cb80 (0x194,0x398)
0x1cb80…1cba0 20 31 3d 31 20 74 68 65 6e 20 68 6b 6f 6e 73 74 65 78 70 72 28 32 29 20 65 6c 73 65 0a 20 20 20 ┆ 1=1 then hkonstexpr(2) else ┆
0x1cba0…1cbc0 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ begin ┆
0x1cbc0…1cbe0 20 69 66 20 61 74 74 32 28 73 74 61 6b 70 69 6c 2d 32 29 20 65 78 74 72 61 63 74 20 33 3c 3e 34 ┆ if att2(stakpil-2) extract 3<>4┆
0x1cbe0…1cc00 20 6f 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 00 00 00 00 00 00 00 00 ┆ or a ┆
0x1cc00…1cc06 (230,) (0x194,0x399)
0x1cc06…1cc20 74 74 32 28 73 74 61 6b 70 69 6c 29 20 65 78 74 72 61 63 74 20 33 3c 3e 34 20 ┆tt2(stakpil) extract 3<>4 ┆
0x1cc20…1cc40 74 68 65 6e 20 66 65 6a 6c 28 32 30 30 33 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆then fejl(2003); ┆
0x1cc40…1cc60 20 72 6b 6f 6e 73 74 65 78 70 72 28 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e ┆ rkonstexpr(2); en┆
0x1cc60…1cc7e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 0a 20 20 20 20 20 20 20 20 ┆d; end; ┆
0x1cc7e…1cc84 (0x194,0x39a)
0x1cc84…1cca0 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 2d 2d 2d 2d 2d 20 63 61 73 65 ┆ begin comment ----- case┆
0x1cca0…1ccc0 73 74 61 72 74 31 20 3a 3a 3d 20 63 61 73 65 20 72 65 78 20 6f 66 20 62 65 67 69 6e 20 2d 2d 2d ┆start1 ::= case rex of begin ---┆
0x1ccc0…1cce0 2d 2d 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 61 73 65 73 74 61 6b 70 69 6c 3a ┆--; casestakpil:┆
0x1cce0…1ccfc 3d 63 61 73 65 73 74 61 6b 70 69 6c 2b 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆=casestakpil+1; ┆
0x1ccfc…1cd02 (0x194,0x39b)
0x1cd02…1cd20 20 20 63 61 73 65 73 74 61 6b 28 63 61 73 65 73 74 61 6b 70 69 6c 29 3a 3d 7a 70 69 6c 2b ┆ casestak(casestakpil):=zpil+┆
0x1cd20…1cd40 33 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 61 74 74 31 28 73 74 61 6b 70 69 6c ┆3; if att1(stakpil┆
0x1cd40…1cd60 2d 32 29 3d 30 20 6f 72 20 61 74 74 31 28 73 74 61 6b 70 69 6c 2d 32 29 3e 33 20 74 68 65 6e 20 ┆-2)=0 or att1(stakpil-2)>3 then ┆
0x1cd60…1cd7a 66 65 6a 6c 28 32 30 30 39 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆fejl(2009); ┆
0x1cd7a…1cd80 (0x194,0x39c)
0x1cd80…1cda0 6f 28 39 2c 30 2c 30 2c 30 2c 61 74 74 31 28 73 74 61 6b 70 69 6c 2d 32 29 2c 30 29 3b 0a 20 20 ┆o(9,0,0,0,att1(stakpil-2),0); ┆
0x1cda0…1cdc0 20 20 20 20 20 20 20 20 20 20 20 20 6f 28 31 33 2c 30 2c 31 2c 30 2c 61 74 74 31 28 73 74 61 6b ┆ o(13,0,1,0,att1(stak┆
0x1cdc0…1cde0 70 69 6c 2d 32 29 2c 30 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 0a 20 20 ┆pil-2),0); end; ┆
0x1cde0…1ce00 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 00 00 00 00 00 00 00 00 ┆ begin comment ┆
0x1ce00…1ce06 (231,) (0x194,0x39d)
0x1ce06…1ce20 2d 2d 2d 2d 2d 20 63 61 73 65 73 74 61 72 74 32 20 3a 3a 3d 20 63 61 73 65 73 ┆----- casestart2 ::= cases┆
0x1ce20…1ce40 74 61 72 74 31 20 73 7b 74 6e 20 2d 2d 2d 2d 2d 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆tart1 sætn -----; ┆
0x1ce40…1ce60 20 20 72 65 63 6f 76 70 6f 69 6e 74 3a 3d 73 74 61 6b 70 69 6c 2d 31 3b 0a 20 20 20 20 20 20 20 ┆ recovpoint:=stakpil-1; ┆
0x1ce60…1ce7e 20 20 20 20 20 20 20 61 74 74 31 28 73 74 61 6b 70 69 6c 2d 31 29 3a 3d 31 3b 0a 20 20 20 ┆ att1(stakpil-1):=1; ┆
0x1ce7e…1ce84 (0x194,0x39e)
0x1ce84…1cea0 20 20 20 20 20 20 20 20 20 20 20 7a 70 69 6c 3a 3d 7a 70 69 6c 2b 31 3b 0a 20 20 20 ┆ zpil:=zpil+1; ┆
0x1cea0…1cec0 20 20 20 20 20 20 20 20 20 20 20 63 61 73 65 73 74 61 6b 70 69 6c 3a 3d 63 61 73 65 73 74 61 6b ┆ casestakpil:=casestak┆
0x1cec0…1cee0 70 69 6c 2b 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 61 73 65 73 74 61 6b 28 63 61 ┆pil+1; casestak(ca┆
0x1cee0…1cefc 73 65 73 74 61 6b 70 69 6c 29 3a 3d 7a 70 69 6c 2b 31 3b 0a 20 20 20 20 20 20 20 20 ┆sestakpil):=zpil+1; ┆
0x1cefc…1cf02 (0x194,0x39f)
0x1cf02…1cf20 20 20 20 20 65 6e 64 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 ┆ end; begin c┆
0x1cf20…1cf40 6f 6d 6d 65 6e 74 20 2d 2d 2d 2d 2d 20 63 61 73 65 73 74 61 72 74 32 20 3a 3a 3d 20 63 61 73 65 ┆omment ----- casestart2 ::= case┆
0x1cf40…1cf60 73 74 61 72 74 32 20 73 6b 20 73 7b 74 6e 20 2d 2d 2d 2d 2d 3b 0a 20 0a 20 20 20 20 20 20 20 20 ┆start2 sk sætn -----; ┆
0x1cf60…1cf7a 20 20 20 20 20 20 61 74 74 31 28 73 74 61 6b 70 69 6c 2d 32 29 3a 3d 61 74 74 ┆ att1(stakpil-2):=att┆
0x1cf7a…1cf80 (0x194,0x3a0)
0x1cf80…1cfa0 31 28 73 74 61 6b 70 69 6c 2d 32 29 2b 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7a 70 ┆1(stakpil-2)+1; zp┆
0x1cfa0…1cfc0 69 6c 3a 3d 7a 70 69 6c 2b 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 61 73 65 73 74 ┆il:=zpil+1; casest┆
0x1cfc0…1cfe0 61 6b 70 69 6c 3a 3d 63 61 73 65 73 74 61 6b 70 69 6c 2b 31 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆akpil:=casestakpil+1; ┆
0x1cfe0…1d000 20 20 20 20 63 61 73 65 73 74 61 6b 28 63 61 73 65 73 74 61 6b 70 69 6c 00 00 00 00 00 00 00 00 ┆ casestak(casestakpil ┆
0x1d000…1d006 (232,) (0x194,0x3a1)
0x1d006…1d020 29 3a 3d 7a 70 69 6c 2b 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 ┆):=zpil+1; end┆
0x1d020…1d040 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 2d 2d ┆; begin comment --┆
0x1d040…1d060 2d 2d 2d 20 70 72 6b 61 6c 64 20 3a 3a 3d 20 70 72 6b 73 74 61 72 74 20 29 20 2d 2d 2d 2d 2d 3b ┆--- prkald ::= prkstart ) -----;┆
0x1d060…1d07e 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 3a 3d 61 74 74 31 28 73 74 61 6b 70 ┆ n:=att1(stakp┆
0x1d07e…1d084 (0x194,0x3a2)
0x1d084…1d0a0 69 6c 2d 31 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 74 74 31 28 73 74 ┆il-1); att1(st┆
0x1d0a0…1d0c0 61 6b 70 69 6c 2d 31 29 3a 3d 7a 70 69 6c 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 ┆akpil-1):=zpil; if┆
0x1d0c0…1d0e0 20 77 6c 69 73 74 65 3c 3e 37 20 74 68 65 6e 20 66 65 6a 6c 28 32 30 32 33 29 3b 0a 20 20 20 20 ┆ wliste<>7 then fejl(2023); ┆
0x1d0e0…1d0fc 20 20 20 20 20 20 20 20 20 20 70 72 6f 63 72 65 66 3a 3d 32 2a 28 28 69 66 20 66 70 ┆ procref:=2*((if fp┆
0x1d0fc…1d102 (0x194,0x3a3)
0x1d102…1d120 20 74 68 65 6e 20 37 36 37 20 65 6c 73 65 20 2d 31 29 2b 69 64 74 61 62 34 28 61 74 74 32 ┆ then 767 else -1)+idtab4(att2┆
0x1d120…1d140 28 73 74 61 6b 70 69 6c 2d 31 29 29 20 73 68 69 66 74 20 28 2d 31 36 29 29 3b 0a 20 20 20 20 20 ┆(stakpil-1)) shift (-16)); ┆
0x1d140…1d160 20 20 20 20 20 20 20 20 20 69 66 20 70 72 6f 63 72 65 66 2d 28 7a 70 69 6c 2b 31 29 2a 32 3c 2d ┆ if procref-(zpil+1)*2<-┆
0x1d160…1d17a 32 30 34 38 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 ┆2048 then be┆
0x1d17a…1d180 (0x194,0x3a4)
0x1d180…1d1a0 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 28 39 2c 30 2c 31 2c 31 2c 30 2c ┆gin o(9,0,1,1,0,┆
0x1d1a0…1d1c0 28 62 61 73 69 73 72 65 66 2d 7a 70 69 6c 2d 31 29 2a 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆(basisref-zpil-1)*2); ┆
0x1d1c0…1d1e0 20 20 20 20 20 20 6f 28 31 33 2c 6e 2c 31 2c 31 2c 30 2c 70 72 6f 63 72 65 66 2b 28 62 61 73 69 ┆ o(13,n,1,1,0,procref+(basi┆
0x1d1e0…1d200 73 72 65 66 2d 7a 70 69 6c 2d 31 29 2a 32 29 3b 0a 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆sref-zpil-1)*2); ┆
0x1d200…1d206 (233,) (0x194,0x3a5)
0x1d206…1d220 20 20 20 20 20 20 20 65 6e 64 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 ┆ end else ┆
0x1d220…1d240 20 20 20 20 6f 28 31 33 2c 6e 2c 31 2c 31 2c 30 2c 70 72 6f 63 72 65 66 2d 32 2a 28 7a 70 69 6c ┆ o(13,n,1,1,0,procref-2*(zpil┆
0x1d240…1d260 2b 31 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 74 74 31 28 73 74 61 6b 70 69 6c ┆+1)); att1(stakpil┆
0x1d260…1d27e 2d 31 29 3a 3d 7a 70 69 6c 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 70 61 ┆-1):=zpil; if pa┆
0x1d27e…1d284 (0x194,0x3a6)
0x1d284…1d2a0 72 74 61 62 70 69 6c 3e 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆rtabpil>0 then ┆
0x1d2a0…1d2c0 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 69 3a 3d 31 20 ┆ begin for i:=1 ┆
0x1d2c0…1d2e0 73 74 65 70 20 31 20 75 6e 74 69 6c 20 70 61 72 74 61 62 70 69 6c 20 64 6f 0a 20 20 20 20 20 20 ┆step 1 until partabpil do ┆
0x1d2e0…1d2fc 20 20 20 20 20 20 20 20 20 20 7a 28 7a 62 61 73 65 2b 70 61 72 74 61 62 31 28 69 29 ┆ z(zbase+partab1(i)┆
0x1d2fc…1d302 (0x194,0x3a7)
0x1d302…1d320 29 3a 3d 7a 28 7a 62 61 73 65 2b 70 61 72 74 61 62 31 28 69 29 29 2b 0a 20 20 20 20 20 20 ┆):=z(zbase+partab1(i))+ ┆
0x1d320…1d340 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 2a 28 7a 70 69 6c 2b 31 2d 70 61 72 74 61 62 ┆ 2*(zpil+1-partab┆
0x1d340…1d360 31 28 69 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7a 70 69 6c 3a 3d 7a 70 69 ┆1(i)); zpil:=zpi┆
0x1d360…1d37a 6c 2b 28 69 64 74 61 62 35 28 70 72 6b 61 6c 64 70 69 6c 2d 31 29 2b 31 29 2f ┆l+(idtab5(prkaldpil-1)+1)/┆
0x1d37a…1d380 (0x194,0x3a8)
0x1d380…1d3a0 2f 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 ┆/2; end; ┆
0x1d3a0…1d3c0 20 20 20 65 6e 64 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d ┆ end; begin comm┆
0x1d3c0…1d3e0 65 6e 74 20 2d 2d 2d 2d 2d 20 70 72 6b 73 74 61 72 74 20 3a 3a 3d 20 6e 61 76 6e 20 28 20 2e 20 ┆ent ----- prkstart ::= navn ( . ┆
0x1d3e0…1d400 72 65 67 69 73 74 65 72 20 2e 20 2d 2d 2d 2d 2d 3b 0a 20 0a 20 20 20 20 00 00 00 00 00 00 00 00 ┆register . -----; ┆
0x1d400…1d406 (234,) (0x194,0x3a9)
0x1d406…1d420 20 20 20 20 20 20 20 20 20 20 70 72 6b 61 6c 64 70 69 6c 3a 3d 32 3b 0a 20 20 ┆ prkaldpil:=2; ┆
0x1d420…1d440 20 20 20 20 20 20 20 20 20 20 20 20 70 72 6b 61 6c 64 70 69 6c 3a 3d 69 64 74 61 62 73 7c 67 65 ┆ prkaldpil:=idtabsøge┆
0x1d440…1d460 72 28 73 74 61 6b 70 69 6c 2d 34 2c 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 ┆r(stakpil-4,2); if┆
0x1d460…1d47e 20 69 64 74 61 62 34 28 70 72 6b 61 6c 64 70 69 6c 29 20 73 68 69 66 74 20 28 2d 34 29 20 ┆ idtab4(prkaldpil) shift (-4) ┆
0x1d47e…1d484 (0x194,0x3aa)
0x1d484…1d4a0 65 78 74 72 61 63 74 20 34 3c 3e 35 20 74 68 65 6e 20 66 65 6a 6c 28 32 30 32 31 29 ┆extract 4<>5 then fejl(2021)┆
0x1d4a0…1d4c0 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 61 74 74 31 28 73 74 61 6b 70 69 6c ┆; if att1(stakpil┆
0x1d4c0…1d4e0 2d 31 29 3c 3e 69 64 74 61 62 34 28 70 72 6b 61 6c 64 70 69 6c 29 20 73 68 69 66 74 20 28 2d 31 ┆-1)<>idtab4(prkaldpil) shift (-1┆
0x1d4e0…1d4fc 32 29 20 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 78 74 72 61 ┆2) extra┆
0x1d4fc…1d502 (0x194,0x3ab)
0x1d502…1d520 63 74 20 34 20 74 68 65 6e 20 66 65 6a 6c 28 32 30 32 34 29 3b 0a 20 20 20 20 20 20 20 20 ┆ct 4 then fejl(2024); ┆
0x1d520…1d540 20 20 20 20 20 20 61 74 74 31 28 73 74 61 6b 70 69 6c 2d 34 29 3a 3d 61 74 74 31 28 73 74 61 6b ┆ att1(stakpil-4):=att1(stak┆
0x1d540…1d560 70 69 6c 2d 31 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 74 74 32 28 73 74 61 6b 70 ┆pil-1); att2(stakp┆
0x1d560…1d57a 69 6c 2d 34 29 3a 3d 70 72 6b 61 6c 64 70 69 6c 3b 0a 20 20 20 20 20 20 20 20 ┆il-4):=prkaldpil; ┆
0x1d57a…1d580 (0x194,0x3ac)
0x1d580…1d5a0 20 20 20 20 20 20 70 72 6b 61 6c 64 70 69 6c 3a 3d 70 72 6b 61 6c 64 70 69 6c 2b 31 3b 0a 20 20 ┆ prkaldpil:=prkaldpil+1; ┆
0x1d5a0…1d5c0 20 20 20 20 20 20 20 20 20 20 20 20 77 6c 69 73 74 65 3a 3d 69 64 74 61 62 32 28 70 72 6b 61 6c ┆ wliste:=idtab2(prkal┆
0x1d5c0…1d5e0 64 70 69 6c 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 61 72 74 61 62 70 69 6c 3a 3d ┆dpil); partabpil:=┆
0x1d5e0…1d600 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 0a 20 20 00 00 00 00 00 00 00 00 ┆0; end; ┆
0x1d600…1d606 (235,) (0x194,0x3ad)
0x1d606…1d620 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 2d 2d ┆ begin comment --┆
0x1d620…1d640 2d 2d 2d 20 70 72 6b 73 74 61 72 74 20 3a 3a 3d 20 70 72 6b 73 74 61 72 74 20 2c 20 72 65 78 20 ┆--- prkstart ::= prkstart , rex ┆
0x1d640…1d660 2d 2d 2d 2d 2d 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 69 64 74 61 62 31 ┆-----; if idtab1┆
0x1d660…1d67e 28 70 72 6b 61 6c 64 70 69 6c 29 3c 3e 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 ┆(prkaldpil)<>0 then ┆
0x1d67e…1d684 (0x194,0x3ae)
0x1d684…1d6a0 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 3a ┆ begin n:┆
0x1d6a0…1d6c0 3d 69 64 74 61 62 34 28 70 72 6b 61 6c 64 70 69 6c 29 20 65 78 74 72 61 63 74 20 34 3b 0a 20 20 ┆=idtab4(prkaldpil) extract 4; ┆
0x1d6c0…1d6e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 61 74 74 32 28 73 74 61 6b 70 69 6c 29 3c 3e ┆ if att2(stakpil)<>┆
0x1d6e0…1d6fc 6e 20 61 6e 64 20 28 28 61 74 74 32 28 73 74 61 6b 70 69 6c 29 3d 30 20 61 6e 64 20 ┆n and ((att2(stakpil)=0 and ┆
0x1d6fc…1d702 (0x194,0x3af)
0x1d702…1d720 6e 3e 33 29 20 6f 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 74 ┆n>3) or (at┆
0x1d720…1d740 74 32 28 73 74 61 6b 70 69 6c 29 3d 36 20 61 6e 64 20 6e 3c 34 29 29 20 74 68 65 6e 20 66 65 6a ┆t2(stakpil)=6 and n<4)) then fej┆
0x1d740…1d760 6c 28 32 30 32 35 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 28 63 61 73 65 20 ┆l(2025); o(case ┆
0x1d760…1d77a 28 69 64 74 61 62 34 28 70 72 6b 61 6c 64 70 69 6c 29 20 65 78 74 72 61 63 74 ┆(idtab4(prkaldpil) extract┆
0x1d77a…1d780 (0x194,0x3b0)
0x1d780…1d7a0 20 34 29 2f 2f 32 2b 31 20 6f 66 20 28 32 36 2c 32 33 2c 35 35 29 2c 0a 20 20 20 20 20 20 20 20 ┆ 4)//2+1 of (26,23,55), ┆
0x1d7a0…1d7c0 20 20 20 20 20 20 20 20 20 20 61 74 74 31 28 73 74 61 6b 70 69 6c 29 20 65 78 74 72 61 63 74 20 ┆ att1(stakpil) extract ┆
0x1d7c0…1d7e0 32 2c 31 2c 30 2c 30 2c 69 64 74 61 62 35 28 70 72 6b 61 6c 64 70 69 6c 29 29 3b 0a 20 20 20 20 ┆2,1,0,0,idtab5(prkaldpil)); ┆
0x1d7e0…1d800 20 20 20 20 20 20 20 20 20 20 20 20 70 61 72 74 61 62 70 69 6c 3a 3d 70 00 00 00 00 00 00 00 00 ┆ partabpil:=p ┆
0x1d800…1d806 (236,) (0x194,0x3b1)
0x1d806…1d820 61 72 74 61 62 70 69 6c 2b 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆artabpil+1; ┆
0x1d820…1d840 20 20 70 61 72 74 61 62 31 28 70 61 72 74 61 62 70 69 6c 29 3a 3d 7a 70 69 6c 3b 0a 20 20 20 20 ┆ partab1(partabpil):=zpil; ┆
0x1d840…1d860 20 20 20 20 20 20 20 20 20 20 20 20 70 72 6b 61 6c 64 70 69 6c 3a 3d 70 72 6b 61 6c 64 70 69 6c ┆ prkaldpil:=prkaldpil┆
0x1d860…1d87e 2b 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 6c 69 73 74 65 3a 3d 69 64 ┆+1; wliste:=id┆
0x1d87e…1d884 (0x194,0x3b2)
0x1d884…1d8a0 74 61 62 32 28 70 72 6b 61 6c 64 70 69 6c 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆tab2(prkaldpil); ┆
0x1d8a0…1d8c0 20 20 20 65 6e 64 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a ┆ end else begin ┆
0x1d8c0…1d8e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 61 74 74 31 28 73 74 61 6b 70 69 6c 29 ┆ if att1(stakpil)┆
0x1d8e0…1d8fc 3c 3e 77 6c 69 73 74 65 20 65 78 74 72 61 63 74 20 33 20 74 68 65 6e 20 66 65 6a 6c ┆<>wliste extract 3 then fejl┆
0x1d8fc…1d902 (0x194,0x3b3)
0x1d902…1d920 28 32 30 32 33 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 6c 69 73 74 65 ┆(2023); wliste┆
0x1d920…1d940 3a 3d 77 6c 69 73 74 65 20 73 68 69 66 74 20 28 2d 33 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆:=wliste shift (-3); ┆
0x1d940…1d960 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 0a 20 20 20 20 20 ┆ end; end; ┆
0x1d960…1d97a 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 2d 2d 2d 2d 2d ┆ begin comment -----┆
0x1d97a…1d980 (0x194,0x3b4)
0x1d980…1d9a0 20 72 65 6c 61 74 69 6f 6e 20 3a 3a 3d 20 72 65 78 20 72 65 6c 6f 70 20 72 65 78 20 2d 2d 2d 2d ┆ relation ::= rex relop rex ----┆
0x1d9a0…1d9c0 2d 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 74 74 31 28 73 74 61 6b 70 69 6c 2b ┆-; att1(stakpil+┆
0x1d9c0…1d9e0 31 29 3a 3d 61 74 74 31 28 73 74 61 6b 70 69 6c 2d 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆1):=att1(stakpil-2); ┆
0x1d9e0…1da00 20 20 20 61 74 74 32 28 73 74 61 6b 70 69 6c 2b 31 29 3a 3d 61 74 74 32 00 00 00 00 00 00 00 00 ┆ att2(stakpil+1):=att2 ┆
0x1da00…1da06 (237,) (0x194,0x3b5)
0x1da06…1da20 28 73 74 61 6b 70 69 6c 2d 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆(stakpil-2); ┆
0x1da20…1da40 20 61 74 74 31 28 73 74 61 6b 70 69 6c 2d 32 29 3a 3d 7a 70 69 6c 3b 0a 20 20 20 20 20 20 20 20 ┆ att1(stakpil-2):=zpil; ┆
0x1da40…1da60 20 20 20 20 20 20 61 74 74 33 28 73 74 61 6b 70 69 6c 29 3a 3d 2d 31 3b 0a 20 20 20 20 20 20 20 ┆ att3(stakpil):=-1; ┆
0x1da60…1da7e 20 20 20 20 20 20 20 61 74 74 31 28 73 74 61 6b 70 69 6c 29 3a 3d 61 74 74 31 28 73 74 61 ┆ att1(stakpil):=att1(sta┆
0x1da7e…1da84 (0x194,0x3b6)
0x1da84…1daa0 6b 70 69 6c 29 20 73 68 69 66 74 20 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆kpil) shift 1; ┆
0x1daa0…1dac0 20 69 66 20 61 74 74 31 28 73 74 61 6b 70 69 6c 2d 31 29 3e 36 20 74 68 65 6e 0a 20 20 20 20 20 ┆ if att1(stakpil-1)>6 then ┆
0x1dac0…1dae0 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 ┆ begin d┆
0x1dae0…1dafc 61 6e 64 79 6f 70 6b 6f 64 65 28 28 61 74 74 31 28 73 74 61 6b 70 69 6c 2d 31 29 2d ┆andyopkode((att1(stakpil-1)-┆
0x1dafc…1db02 (0x194,0x3b7)
0x1db02…1db20 37 29 20 73 68 69 66 74 20 36 2b 31 36 2c 73 74 61 6b 70 69 6c 2b 31 2c 0a 20 20 20 20 20 ┆7) shift 6+16,stakpil+1, ┆
0x1db20…1db40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 74 61 6b 70 69 6c 29 3b ┆ stakpil);┆
0x1db40…1db60 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 28 31 33 2c 30 2c 31 2c 30 2c 30 2c 34 29 ┆ o(13,0,1,0,0,4)┆
0x1db60…1db7a 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 20 65 6c 73 65 0a 20 ┆; end else ┆
0x1db7a…1db80 (0x194,0x3b8)
0x1db80…1dba0 20 20 20 20 20 20 20 20 20 20 20 20 20 64 61 6e 64 79 6f 70 6b 6f 64 65 28 28 61 74 74 31 28 73 ┆ dandyopkode((att1(s┆
0x1dba0…1dbc0 74 61 6b 70 69 6c 2d 31 29 2d 31 29 20 73 68 69 66 74 20 36 2b 31 36 2c 73 74 61 6b 70 69 6c 2b ┆takpil-1)-1) shift 6+16,stakpil+┆
0x1dbc0…1dbe0 31 2c 0a 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 73 74 61 ┆1, sta┆
0x1dbe0…1dc00 6b 70 69 6c 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7a 70 69 00 00 00 00 00 00 00 00 ┆kpil); zpi ┆
0x1dc00…1dc06 (238,) (0x194,0x3b9)
0x1dc06…1dc20 6c 3a 3d 7a 70 69 6c 2b 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 ┆l:=zpil+1; a┆
0x1dc20…1dc40 74 74 31 28 73 74 61 6b 70 69 6c 2d 32 29 3a 3d 7a 70 69 6c 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆tt1(stakpil-2):=zpil; ┆
0x1dc40…1dc60 20 20 65 6e 64 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 ┆ end; begin comme┆
0x1dc60…1dc7e 6e 74 20 2d 2d 2d 2d 2d 20 72 65 6c 61 74 69 6f 6e 20 3a 3a 3d 20 72 65 78 20 72 65 6c 6f ┆nt ----- relation ::= rex relo┆
0x1dc7e…1dc84 (0x194,0x3ba)
0x1dc84…1dca0 70 20 6f 70 65 72 61 6e 64 20 2d 2d 2d 2d 2d 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 ┆p operand -----; ┆
0x1dca0…1dcc0 20 20 20 20 20 61 74 74 31 28 73 74 61 6b 70 69 6c 2b 31 29 3a 3d 61 74 74 31 28 73 74 61 6b 70 ┆ att1(stakpil+1):=att1(stakp┆
0x1dcc0…1dce0 69 6c 2d 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 74 74 32 28 73 74 61 6b 70 69 ┆il-2); att2(stakpi┆
0x1dce0…1dcfc 6c 2b 31 29 3a 3d 61 74 74 32 28 73 74 61 6b 70 69 6c 2d 32 29 3b 0a 20 20 20 20 20 ┆l+1):=att2(stakpil-2); ┆
0x1dcfc…1dd02 (0x194,0x3bb)
0x1dd02…1dd20 20 20 20 20 20 20 20 20 20 61 74 74 31 28 73 74 61 6b 70 69 6c 2d 32 29 3a 3d 7a 70 69 6c ┆ att1(stakpil-2):=zpil┆
0x1dd20…1dd40 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 61 74 74 31 28 73 74 61 6b 70 69 6c 2d ┆; if att1(stakpil-┆
0x1dd40…1dd60 31 29 3e 36 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 ┆1)>6 then begin ┆
0x1dd60…1dd7a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 61 6e 64 79 6f 70 6b 6f 64 65 28 ┆ dandyopkode(┆
0x1dd7a…1dd80 (0x194,0x3bc)
0x1dd80…1dda0 28 61 74 74 31 28 73 74 61 6b 70 69 6c 2d 31 29 2d 37 29 20 73 68 69 66 74 20 36 2b 31 36 2c 0a ┆(att1(stakpil-1)-7) shift 6+16, ┆
0x1dda0…1ddc0 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 73 74 61 ┆ sta┆
0x1ddc0…1dde0 6b 70 69 6c 2b 31 2c 73 74 61 6b 70 69 6c 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆kpil+1,stakpil); ┆
0x1dde0…1de00 20 6f 28 31 33 2c 30 2c 31 2c 30 2c 30 2c 34 29 3b 0a 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ o(13,0,1,0,0,4); ┆
0x1de00…1de06 (239,) (0x194,0x3bd)
0x1de06…1de20 20 20 20 20 20 20 20 20 65 6e 64 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 ┆ end else ┆
0x1de20…1de40 20 20 20 20 20 64 61 6e 64 79 6f 70 6b 6f 64 65 28 28 61 74 74 31 28 73 74 61 6b 70 69 6c 2d 31 ┆ dandyopkode((att1(stakpil-1┆
0x1de40…1de60 29 2d 31 29 20 73 68 69 66 74 20 36 2b 31 36 2c 73 74 61 6b 70 69 6c 2b 31 2c 0a 20 20 20 20 20 ┆)-1) shift 6+16,stakpil+1, ┆
0x1de60…1de7e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 74 61 6b 70 69 6c 29 3b ┆ stakpil);┆
0x1de7e…1de84 (0x194,0x3be)
0x1de84…1dea0 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7a 70 69 6c 3a 3d 7a 70 69 6c 2b 31 3b ┆ zpil:=zpil+1;┆
0x1dea0…1dec0 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 74 74 31 28 73 74 61 6b 70 69 6c 2d 32 29 3a 3d ┆ att1(stakpil-2):=┆
0x1dec0…1dee0 7a 70 69 6c 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 0a 20 20 20 20 20 20 20 ┆zpil; end; ┆
0x1dee0…1defc 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 2d 2d 2d 2d 2d 20 72 65 6c ┆ begin comment ----- rel┆
0x1defc…1df02 (0x194,0x3bf)
0x1df02…1df20 61 74 69 6f 6e 20 3a 3a 3d 20 72 65 73 65 72 76 65 64 20 72 65 6c 6f 70 20 6f 70 65 72 61 ┆ation ::= reserved relop opera┆
0x1df20…1df40 6e 64 20 2d 2d 2d 2d 2d 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 3a 3d 61 74 74 ┆nd -----; n:=att┆
0x1df40…1df60 31 28 73 74 61 6b 70 69 6c 2d 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 74 74 31 ┆1(stakpil-2); att1┆
0x1df60…1df7a 28 73 74 61 6b 70 69 6c 2d 32 29 3a 3d 7a 70 69 6c 3b 0a 20 20 20 20 20 20 20 ┆(stakpil-2):=zpil; ┆
0x1df7a…1df80 (0x194,0x3c0)
0x1df80…1dfa0 20 20 20 20 20 20 20 69 66 20 61 74 74 31 28 73 74 61 6b 70 69 6c 2d 31 29 3c 3e 36 20 74 68 65 ┆ if att1(stakpil-1)<>6 the┆
0x1dfa0…1dfc0 6e 20 66 65 6a 6c 28 32 30 32 36 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 6e ┆n fejl(2026); if n┆
0x1dfc0…1dfe0 3e 32 20 74 68 65 6e 20 66 65 6a 6c 28 32 30 32 37 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆>2 then fejl(2027); ┆
0x1dfe0…1e000 20 20 61 74 74 31 28 73 74 61 6b 70 69 6c 2b 31 29 3a 3d 61 74 74 32 28 00 00 00 00 00 00 00 00 ┆ att1(stakpil+1):=att2( ┆
0x1e000…1e006 (240,) (0x194,0x3c1)
0x1e006…1e020 73 74 61 6b 70 69 6c 2b 31 29 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆stakpil+1):=0; ┆
0x1e020…1e040 20 20 20 63 61 73 65 20 6e 20 6f 66 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e ┆ case n of begin┆
0x1e040…1e060 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 61 6e 64 79 6f 70 6b 6f 64 65 28 33 30 2c ┆ dandyopkode(30,┆
0x1e060…1e07e 73 74 61 6b 70 69 6c 2b 31 2c 73 74 61 6b 70 69 6c 29 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆stakpil+1,stakpil); ┆
0x1e07e…1e084 (0x194,0x3c2)
0x1e084…1e0a0 20 20 20 20 20 20 64 61 6e 64 79 6f 70 6b 6f 64 65 28 32 39 2c 73 74 61 6b 70 69 6c ┆ dandyopkode(29,stakpil┆
0x1e0a0…1e0c0 2b 31 2c 73 74 61 6b 70 69 6c 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a ┆+1,stakpil); end; ┆
0x1e0c0…1e0e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7a 70 69 6c 3a 3d 7a 70 69 6c 2b 31 3b 0a 20 20 20 20 ┆ zpil:=zpil+1; ┆
0x1e0e0…1e0fc 20 20 20 20 20 20 20 20 20 20 61 74 74 31 28 73 74 61 6b 70 69 6c 2d 32 29 3a 3d 7a ┆ att1(stakpil-2):=z┆
0x1e0fc…1e102 (0x194,0x3c3)
0x1e102…1e120 70 69 6c 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 0a 20 20 20 20 20 20 ┆pil; end; ┆
0x1e120…1e140 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 2d 2d 2d 2d 2d 20 77 68 69 6c 65 64 ┆ begin comment ----- whiled┆
0x1e140…1e160 65 6c 20 3a 3a 3d 20 77 68 69 6c 65 20 2d 2d 2d 2d 2d 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 ┆el ::= while -----; ┆
0x1e160…1e17a 20 20 20 20 61 74 74 31 28 73 74 61 6b 70 69 6c 29 3a 3d 7a 70 69 6c 2b 31 3b ┆ att1(stakpil):=zpil+1;┆
0x1e17a…1e180 (0x194,0x3c4)
0x1e180…1e1a0 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ end; ┆
0x1e1a0…1e1c0 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 2d 2d 2d 2d 2d 20 66 6f 72 64 65 6c 20 3a 3a 3d 20 66 ┆begin comment ----- fordel ::= f┆
0x1e1c0…1e1e0 6f 72 20 72 65 78 20 2d 2d 2d 2d 2d 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 74 ┆or rex -----; at┆
0x1e1e0…1e200 74 31 28 73 74 61 6b 70 69 6c 2d 31 29 3a 3d 61 74 74 31 28 73 74 61 6b 00 00 00 00 00 00 00 00 ┆t1(stakpil-1):=att1(stak ┆
0x1e200…1e206 (241,) (0x194,0x3c5)
0x1e206…1e220 70 69 6c 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 74 74 32 28 73 ┆pil); att2(s┆
0x1e220…1e240 74 61 6b 70 69 6c 2d 31 29 3a 3d 61 74 74 32 28 73 74 61 6b 70 69 6c 29 3b 0a 20 20 20 20 20 20 ┆takpil-1):=att2(stakpil); ┆
0x1e240…1e260 20 20 20 20 20 20 20 20 61 74 74 33 28 73 74 61 6b 70 69 6c 2d 31 29 3a 3d 7a 70 69 6c 2b 31 3b ┆ att3(stakpil-1):=zpil+1;┆
0x1e260…1e27e 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 ┆ end; ┆
0x1e27e…1e284 (0x194,0x3c6)
0x1e284…1e2a0 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 67 6f 74 6f 73 7b 74 6e 20 3a 3a 3d ┆ begin comment gotosætn ::=┆
0x1e2a0…1e2c0 20 67 6f 74 6f 20 6e 61 76 6e 20 2d 2d 2d 2d 2d 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ goto navn -----; ┆
0x1e2c0…1e2e0 20 20 6f 28 31 33 2c 30 2c 31 2c 30 2c 30 2c 30 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ o(13,0,1,0,0,0); ┆
0x1e2e0…1e2fc 20 61 74 74 31 28 73 74 61 6b 70 69 6c 2d 31 29 3a 3d 7a 70 69 6c 3b 0a 20 20 20 20 ┆ att1(stakpil-1):=zpil; ┆
0x1e2fc…1e302 (0x194,0x3c7)
0x1e302…1e320 20 20 20 20 20 20 20 20 20 20 68 6f 70 70 69 6c 3a 3d 68 6f 70 70 69 6c 2b 31 3b 0a 20 20 ┆ hoppil:=hoppil+1; ┆
0x1e320…1e340 20 20 20 20 20 20 20 20 20 20 20 20 68 6f 70 74 61 62 31 28 68 6f 70 70 69 6c 29 3a 3d 7a 70 69 ┆ hoptab1(hoppil):=zpi┆
0x1e340…1e360 6c 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 68 6f 70 74 61 62 32 28 68 6f 70 70 69 6c 29 ┆l; hoptab2(hoppil)┆
0x1e360…1e37a 3a 3d 69 64 74 61 62 73 7c 67 65 72 28 73 74 61 6b 70 69 6c 2c 31 29 3b 0a 20 ┆:=idtabsøger(stakpil,1); ┆
0x1e37a…1e380 (0x194,0x3c8)
0x1e380…1e3a0 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 69 64 74 61 62 34 28 68 6f 70 74 61 62 32 28 68 ┆ if idtab4(hoptab2(h┆
0x1e3a0…1e3c0 6f 70 70 69 6c 29 29 20 73 68 69 66 74 20 28 2d 34 29 20 65 78 74 72 61 63 74 20 34 3c 3e 36 20 ┆oppil)) shift (-4) extract 4<>6 ┆
0x1e3c0…1e3e0 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 65 6a 6c 28 32 30 32 31 29 ┆then fejl(2021)┆
0x1e3e0…1e400 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 0a 20 20 20 00 00 00 00 00 00 00 00 ┆; end; ┆
0x1e400…1e406 (242,) (0x194,0x3c9)
0x1e406…1e420 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 2d 2d 2d ┆ begin comment ---┆
0x1e420…1e440 2d 2d 20 67 6f 74 6f 73 7b 74 6e 20 3a 3a 3d 20 67 6f 74 6f 20 6e 61 76 6e 20 2e 20 6e 61 76 6e ┆-- gotosætn ::= goto navn . navn┆
0x1e440…1e460 20 2d 2d 2d 2d 2d 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 74 74 31 28 73 74 61 ┆ -----; att1(sta┆
0x1e460…1e47e 6b 70 69 6c 2d 33 29 3a 3d 7a 70 69 6c 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 ┆kpil-3):=zpil; i┆
0x1e47e…1e484 (0x194,0x3ca)
0x1e484…1e4a0 66 20 61 74 74 31 28 73 74 61 6b 70 69 6c 2d 32 29 3c 3e 39 38 20 73 68 69 66 74 20 ┆f att1(stakpil-2)<>98 shift ┆
0x1e4a0…1e4c0 31 36 20 6f 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 74 74 32 28 73 74 61 6b ┆16 or att2(stak┆
0x1e4c0…1e4e0 70 69 6c 2d 32 29 2b 61 74 74 33 28 73 74 61 6b 70 69 6c 2d 32 29 3c 3e 30 20 74 68 65 6e 20 66 ┆pil-2)+att3(stakpil-2)<>0 then f┆
0x1e4e0…1e4fc 65 6a 6c 28 32 30 30 34 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 3a 3d ┆ejl(2004); i:=┆
0x1e4fc…1e502 (0x194,0x3cb)
0x1e502…1e520 69 64 74 61 62 73 7c 67 65 72 28 73 74 61 6b 70 69 6c 2c 30 29 3b 0a 20 20 20 20 20 20 20 ┆idtabsøger(stakpil,0); ┆
0x1e520…1e540 20 20 20 20 20 20 20 69 66 20 69 64 74 61 62 34 28 69 29 20 73 68 69 66 74 20 28 2d 34 29 20 65 ┆ if idtab4(i) shift (-4) e┆
0x1e540…1e560 78 74 72 61 63 74 20 34 3c 3e 36 20 74 68 65 6e 20 66 65 6a 6c 28 32 30 32 31 29 3b 0a 20 20 20 ┆xtract 4<>6 then fejl(2021); ┆
0x1e560…1e57a 20 20 20 20 20 20 20 20 20 20 20 6f 28 39 2c 30 2c 31 2c 31 2c 30 2c 28 62 61 ┆ o(9,0,1,1,0,(ba┆
0x1e57a…1e580 (0x194,0x3cc)
0x1e580…1e5a0 73 69 73 72 65 66 2d 7a 70 69 6c 2d 31 29 2a 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆sisref-zpil-1)*2); ┆
0x1e5a0…1e5c0 20 6f 28 31 33 2c 30 2c 31 2c 30 2c 30 2c 69 64 74 61 62 35 28 69 29 2b 32 2a 28 62 61 73 69 73 ┆ o(13,0,1,0,0,idtab5(i)+2*(basis┆
0x1e5c0…1e5e0 72 65 66 2d 7a 70 69 6c 2d 31 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 74 74 31 ┆ref-zpil-1)); att1┆
0x1e5e0…1e600 28 73 74 61 6b 70 69 6c 2d 33 29 3a 3d 7a 70 69 6c 3b 0a 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆(stakpil-3):=zpil; ┆
0x1e600…1e606 (243,) (0x194,0x3cd)
0x1e606…1e620 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ end; ┆
0x1e620…1e640 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 2d 2d 2d 2d 2d 20 67 6f 74 6f 73 7b 74 6e 20 3a 3a 3d ┆begin comment ----- gotosætn ::=┆
0x1e640…1e660 20 67 6f 74 6f 68 6f 76 65 64 20 29 20 2d 2d 2d 2d 2d 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 ┆ gotohoved ) -----; ┆
0x1e660…1e67e 20 20 65 6e 64 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d ┆ end; begin com┆
0x1e67e…1e684 (0x194,0x3ce)
0x1e684…1e6a0 6d 65 6e 74 20 2d 2d 2d 2d 2d 20 67 6f 74 6f 73 7b 74 6e 20 3a 3a 3d 20 61 62 6c 65 ┆ment ----- gotosætn ::= able┆
0x1e6a0…1e6c0 64 20 67 6f 74 6f 73 7b 74 6e 20 2d 2d 2d 2d 2d 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆d gotosætn -----; ┆
0x1e6c0…1e6e0 20 20 69 66 20 7a 28 7a 62 61 73 65 2b 61 74 74 31 28 73 74 61 6b 70 69 6c 29 29 20 73 68 69 66 ┆ if z(zbase+att1(stakpil)) shif┆
0x1e6e0…1e6fc 74 20 28 2d 31 38 29 3c 3e 31 33 20 74 68 65 6e 20 66 65 6a 6c 28 32 30 30 34 29 3b ┆t (-18)<>13 then fejl(2004);┆
0x1e6fc…1e702 (0x194,0x3cf)
0x1e702…1e720 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7a 28 7a 62 61 73 65 2b 61 74 74 31 28 73 74 ┆ z(zbase+att1(st┆
0x1e720…1e740 61 6b 70 69 6c 29 29 3a 3d 7a 28 7a 62 61 73 65 2b 61 74 74 31 28 73 74 61 6b 70 69 6c 29 29 2b ┆akpil)):=z(zbase+att1(stakpil))+┆
0x1e740…1e760 61 74 74 31 28 73 74 61 6b 70 69 6c 2d 31 29 20 73 68 69 66 74 20 31 38 3b 0a 20 20 20 20 20 20 ┆att1(stakpil-1) shift 18; ┆
0x1e760…1e77a 20 20 20 20 20 20 65 6e 64 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 ┆ end; b┆
0x1e77a…1e780 (0x194,0x3d0)
0x1e780…1e7a0 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 2d 2d 2d 2d 2d 20 67 6f 74 6f 68 6f 76 65 64 20 3a 3a 3d ┆egin comment ----- gotohoved ::=┆
0x1e7a0…1e7c0 20 67 6f 74 6f 20 72 65 78 20 6f 66 20 28 20 6e 61 76 6e 20 2d 2d 2d 2d 2d 3b 0a 20 0a 20 20 20 ┆ goto rex of ( navn -----; ┆
0x1e7c0…1e7e0 20 20 20 20 20 20 20 20 20 20 20 61 74 74 31 28 73 74 61 6b 70 69 6c 2d 34 29 3a 3d 7a 70 69 6c ┆ att1(stakpil-4):=zpil┆
0x1e7e0…1e800 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 61 74 74 31 28 00 00 00 00 00 00 00 00 ┆; if att1( ┆
0x1e800…1e806 (244,) (0x194,0x3d1)
0x1e806…1e820 73 74 61 6b 70 69 6c 2d 33 29 3c 31 20 6f 72 20 61 74 74 31 28 73 74 61 6b 70 ┆stakpil-3)<1 or att1(stakp┆
0x1e820…1e840 69 6c 2d 33 29 3e 33 20 74 68 65 6e 20 66 65 6a 6c 28 32 30 30 39 29 3b 0a 20 20 20 20 20 20 20 ┆il-3)>3 then fejl(2009); ┆
0x1e840…1e860 20 20 20 20 20 20 20 6f 28 39 2c 30 2c 30 2c 30 2c 61 74 74 31 28 73 74 61 6b 70 69 6c 2d 33 29 ┆ o(9,0,0,0,att1(stakpil-3)┆
0x1e860…1e87e 2c 30 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 28 31 33 2c 30 2c 31 2c 30 2c ┆,0); o(13,0,1,0,┆
0x1e87e…1e884 (0x194,0x3d2)
0x1e884…1e8a0 61 74 74 31 28 73 74 61 6b 70 69 6c 2d 33 29 2c 30 29 3b 0a 20 20 20 20 20 20 20 20 ┆att1(stakpil-3),0); ┆
0x1e8a0…1e8c0 20 20 20 20 20 20 61 74 74 31 28 73 74 61 6b 70 69 6c 2d 34 29 3a 3d 7a 70 69 6c 3b 0a 20 20 20 ┆ att1(stakpil-4):=zpil; ┆
0x1e8c0…1e8e0 20 20 20 20 20 20 20 20 20 20 20 6f 28 31 33 2c 30 2c 31 2c 30 2c 30 2c 30 29 3b 0a 20 20 20 20 ┆ o(13,0,1,0,0,0); ┆
0x1e8e0…1e8fc 20 20 20 20 20 20 20 20 20 20 68 6f 70 70 69 6c 3a 3d 68 6f 70 70 69 6c 2b 31 3b 0a ┆ hoppil:=hoppil+1; ┆
0x1e8fc…1e902 (0x194,0x3d3)
0x1e902…1e920 20 20 20 20 20 20 20 20 20 20 20 20 20 20 68 6f 70 74 61 62 31 28 68 6f 70 70 69 6c 29 3a ┆ hoptab1(hoppil):┆
0x1e920…1e940 3d 7a 70 69 6c 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 68 6f 70 74 61 62 32 28 68 6f 70 ┆=zpil; hoptab2(hop┆
0x1e940…1e960 70 69 6c 29 3a 3d 69 64 74 61 62 73 7c 67 65 72 28 73 74 61 6b 70 69 6c 2c 31 29 3b 0a 20 20 20 ┆pil):=idtabsøger(stakpil,1); ┆
0x1e960…1e97a 20 20 20 20 20 20 20 20 20 20 20 69 66 20 69 64 74 61 62 34 28 68 6f 70 74 61 ┆ if idtab4(hopta┆
0x1e97a…1e980 (0x194,0x3d4)
0x1e980…1e9a0 62 32 28 68 6f 70 70 69 6c 29 29 20 73 68 69 66 74 20 28 2d 34 29 20 65 78 74 72 61 63 74 20 34 ┆b2(hoppil)) shift (-4) extract 4┆
0x1e9a0…1e9c0 3c 3e 36 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 65 6a 6c 28 32 ┆<>6 then fejl(2┆
0x1e9c0…1e9e0 30 32 31 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 0a 20 20 20 20 20 20 20 ┆021); end; ┆
0x1e9e0…1ea00 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 2d 2d 2d 2d 2d 00 00 00 00 00 00 00 00 ┆ begin comment ----- ┆
0x1ea00…1ea06 (245,) (0x194,0x3d5)
0x1ea06…1ea20 20 67 6f 74 6f 68 6f 76 65 64 20 3a 3a 3d 20 67 6f 74 6f 68 6f 76 65 64 20 2c ┆ gotohoved ::= gotohoved ,┆
0x1ea20…1ea40 20 6e 61 76 6e 20 2d 2d 2d 2d 2d 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 28 31 ┆ navn -----; o(1┆
0x1ea40…1ea60 33 2c 30 2c 31 2c 30 2c 30 2c 30 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 68 6f 70 70 ┆3,0,1,0,0,0); hopp┆
0x1ea60…1ea7e 69 6c 3a 3d 68 6f 70 70 69 6c 2b 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 68 6f ┆il:=hoppil+1; ho┆
0x1ea7e…1ea84 (0x194,0x3d6)
0x1ea84…1eaa0 70 74 61 62 31 28 68 6f 70 70 69 6c 29 3a 3d 7a 70 69 6c 3b 0a 20 20 20 20 20 20 20 ┆ptab1(hoppil):=zpil; ┆
0x1eaa0…1eac0 20 20 20 20 20 20 20 68 6f 70 74 61 62 32 28 68 6f 70 70 69 6c 29 3a 3d 69 64 74 61 62 73 7c 67 ┆ hoptab2(hoppil):=idtabsøg┆
0x1eac0…1eae0 65 72 28 73 74 61 6b 70 69 6c 2c 31 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 ┆er(stakpil,1); if ┆
0x1eae0…1eafc 69 64 74 61 62 34 28 68 6f 70 74 61 62 32 28 68 6f 70 70 69 6c 29 29 20 73 68 69 66 ┆idtab4(hoptab2(hoppil)) shif┆
0x1eafc…1eb02 (0x194,0x3d7)
0x1eb02…1eb20 74 20 28 2d 34 29 20 65 78 74 72 61 63 74 20 34 3c 3e 36 20 74 68 65 6e 0a 20 20 20 20 20 ┆t (-4) extract 4<>6 then ┆
0x1eb20…1eb40 20 20 20 20 20 20 20 20 20 20 20 20 66 65 6a 6c 28 32 30 32 31 29 3b 0a 20 20 20 20 20 20 20 20 ┆ fejl(2021); ┆
0x1eb40…1eb60 20 20 20 20 65 6e 64 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d ┆ end; begin com┆
0x1eb60…1eb7a 6d 65 6e 74 20 2d 2d 2d 2d 2d 20 61 73 73 69 67 6e 6d 65 6e 74 20 3a 3a 3d 20 ┆ment ----- assignment ::= ┆
0x1eb7a…1eb80 (0x194,0x3d8)
0x1eb80…1eba0 6f 70 65 72 61 6e 64 20 3a 3d 20 72 65 78 20 2d 2d 2d 2d 2d 3b 0a 20 0a 20 20 20 20 20 20 20 20 ┆operand := rex -----; ┆
0x1eba0…1ebc0 20 20 20 20 20 20 64 61 6e 64 79 6f 70 6b 6f 64 65 28 31 35 2c 73 74 61 6b 70 69 6c 2c 73 74 61 ┆ dandyopkode(15,stakpil,sta┆
0x1ebc0…1ebe0 6b 70 69 6c 2d 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 0a 20 20 20 20 ┆kpil-2); end; ┆
0x1ebe0…1ec00 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 2d 2d 00 00 00 00 00 00 00 00 ┆ begin comment -- ┆
0x1ec00…1ec06 (246,) (0x194,0x3d9)
0x1ec06…1ec20 2d 2d 2d 20 61 73 73 69 67 6e 6d 65 6e 74 20 3a 3a 3d 20 6f 70 65 72 61 6e 64 ┆--- assignment ::= operand┆
0x1ec20…1ec40 20 6e 6f 72 6d 20 72 65 78 20 2d 2d 2d 2d 2d 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ norm rex -----; ┆
0x1ec40…1ec60 20 64 61 6e 64 79 6f 70 6b 6f 64 65 28 32 38 2c 73 74 61 6b 70 69 6c 2c 73 74 61 6b 70 69 6c 2d ┆ dandyopkode(28,stakpil,stakpil-┆
0x1ec60…1ec7e 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 0a 20 20 20 20 20 20 20 ┆2); end; ┆
0x1ec7e…1ec84 (0x194,0x3da)
0x1ec84…1eca0 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 2d 2d 2d 2d 2d 20 61 73 73 ┆ begin comment ----- ass┆
0x1eca0…1ecc0 69 67 6e 6d 65 6e 74 20 3a 3a 3d 20 6f 70 65 72 61 6e 64 20 65 78 63 68 20 72 65 78 20 2d 2d 2d ┆ignment ::= operand exch rex ---┆
0x1ecc0…1ece0 2d 2d 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 61 6e 64 79 6f 70 6b 6f 64 65 28 ┆--; dandyopkode(┆
0x1ece0…1ecfc 31 33 2c 73 74 61 6b 70 69 6c 2c 73 74 61 6b 70 69 6c 2d 32 29 3b 0a 20 20 20 20 20 ┆13,stakpil,stakpil-2); ┆
0x1ecfc…1ed02 (0x194,0x3db)
0x1ed02…1ed20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 ┆ end; begi┆
0x1ed20…1ed40 6e 20 63 6f 6d 6d 65 6e 74 20 2d 2d 2d 2d 2d 20 61 73 73 69 67 6e 6d 65 6e 74 20 3a 3a 3d 20 61 ┆n comment ----- assignment ::= a┆
0x1ed40…1ed60 75 74 6f 6c 6f 61 64 20 6f 70 65 72 61 6e 64 20 2d 2d 2d 2d 2d 3b 0a 20 0a 20 20 20 20 20 20 20 ┆utoload operand -----; ┆
0x1ed60…1ed7a 20 20 20 20 20 20 20 61 74 74 31 28 73 74 61 6b 70 69 6c 2b 31 29 3a 3d 61 74 ┆ att1(stakpil+1):=at┆
0x1ed7a…1ed80 (0x194,0x3dc)
0x1ed80…1eda0 74 32 28 73 74 61 6b 70 69 6c 2b 31 29 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆t2(stakpil+1):=0; ┆
0x1eda0…1edc0 64 61 6e 64 79 6f 70 6b 6f 64 65 28 32 37 2c 73 74 61 6b 70 69 6c 2b 31 2c 73 74 61 6b 70 69 6c ┆dandyopkode(27,stakpil+1,stakpil┆
0x1edc0…1ede0 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 ┆); end; ┆
0x1ede0…1ee00 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 2d 2d 2d 2d 2d 20 61 73 00 00 00 00 00 00 00 00 ┆ begin comment ----- as ┆
0x1ee00…1ee06 (247,) (0x194,0x3dd)
0x1ee06…1ee20 73 69 67 6e 6d 65 6e 74 20 3a 3a 3d 20 63 6c 65 61 72 20 72 65 73 65 72 76 65 ┆signment ::= clear reserve┆
0x1ee20…1ee40 64 20 77 69 74 68 0a 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 ┆d with ┆
0x1ee40…1ee60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 70 65 72 61 6e 64 20 20 20 ┆ operand ┆
0x1ee60…1ee7e 20 20 20 20 20 20 20 20 20 2d 2d 2d 2d 2d 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ -----; ┆
0x1ee7e…1ee84 (0x194,0x3de)
0x1ee84…1eea0 20 20 69 66 20 61 74 74 31 28 73 74 61 6b 70 69 6c 2d 32 29 3c 3e 33 20 74 68 65 6e ┆ if att1(stakpil-2)<>3 then┆
0x1eea0…1eec0 20 66 65 6a 6c 28 32 30 32 37 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 74 74 31 28 ┆ fejl(2027); att1(┆
0x1eec0…1eee0 73 74 61 6b 70 69 6c 2b 31 29 3a 3d 61 74 74 32 28 73 74 61 6b 70 69 6c 2b 31 29 3a 3d 30 3b 0a ┆stakpil+1):=att2(stakpil+1):=0; ┆
0x1eee0…1eefc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 61 6e 64 79 6f 70 6b 6f 64 65 28 32 36 ┆ dandyopkode(26┆
0x1eefc…1ef02 (0x194,0x3df)
0x1ef02…1ef20 2c 73 74 61 6b 70 69 6c 2b 31 2c 73 74 61 6b 70 69 6c 29 3b 0a 20 20 20 20 20 20 20 20 20 ┆,stakpil+1,stakpil); ┆
0x1ef20…1ef40 20 20 20 65 6e 64 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d ┆ end; begin comm┆
0x1ef40…1ef60 65 6e 74 20 2d 2d 2d 2d 2d 20 61 73 73 69 67 6e 6d 65 6e 74 20 3a 3a 3d 20 72 65 73 65 72 76 65 ┆ent ----- assignment ::= reserve┆
0x1ef60…1ef7a 64 20 3a 3d 20 6f 70 65 72 61 6e 64 20 2d 2d 2d 2d 2d 3b 0a 20 0a 20 20 20 20 ┆d := operand -----; ┆
0x1ef7a…1ef80 (0x194,0x3e0)
0x1ef80…1efa0 20 20 20 20 20 20 20 20 20 20 61 74 74 31 28 73 74 61 6b 70 69 6c 2b 31 29 3a 3d 61 74 74 32 28 ┆ att1(stakpil+1):=att2(┆
0x1efa0…1efc0 73 74 61 6b 70 69 6c 2b 31 29 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 ┆stakpil+1):=0; if ┆
0x1efc0…1efe0 61 74 74 31 28 73 74 61 6b 70 69 6c 2d 32 29 3d 33 20 74 68 65 6e 20 66 65 6a 6c 28 32 30 32 37 ┆att1(stakpil-2)=3 then fejl(2027┆
0x1efe0…1f000 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 61 6e 64 79 6f 70 00 00 00 00 00 00 00 00 ┆); dandyop ┆
0x1f000…1f006 (248,) (0x194,0x3e1)
0x1f006…1f020 6b 6f 64 65 28 31 38 2b 61 74 74 31 28 73 74 61 6b 70 69 6c 2d 32 29 2d 61 74 ┆kode(18+att1(stakpil-2)-at┆
0x1f020…1f040 74 31 28 73 74 61 6b 70 69 6c 2d 32 29 2f 2f 34 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆t1(stakpil-2)//4, ┆
0x1f040…1f060 20 20 20 20 20 20 20 20 20 20 20 20 73 74 61 6b 70 69 6c 2b 31 2c 73 74 61 6b 70 69 6c 29 3b 0a ┆ stakpil+1,stakpil); ┆
0x1f060…1f07e 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ end; ┆
0x1f07e…1f084 (0x194,0x3e2)
0x1f084…1f0a0 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 2d 2d 2d 2d 2d 20 61 73 73 69 67 6e 6d ┆ begin comment ----- assignm┆
0x1f0a0…1f0c0 65 6e 74 20 3a 3a 3d 20 6f 70 65 72 61 6e 64 20 3a 3d 20 72 65 73 65 72 76 65 64 20 2d 2d 2d 2d ┆ent ::= operand := reserved ----┆
0x1f0c0…1f0e0 2d 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 74 74 31 28 73 74 61 6b 70 69 6c 2b ┆-; att1(stakpil+┆
0x1f0e0…1f0fc 31 29 3a 3d 61 74 74 32 28 73 74 61 6b 70 69 6c 2b 31 29 3a 3d 30 3b 0a 20 20 20 20 ┆1):=att2(stakpil+1):=0; ┆
0x1f0fc…1f102 (0x194,0x3e3)
0x1f102…1f120 20 20 20 20 20 20 20 20 20 20 64 61 6e 64 79 6f 70 6b 6f 64 65 28 32 31 2b 61 74 74 31 28 ┆ dandyopkode(21+att1(┆
0x1f120…1f140 73 74 61 6b 70 69 6c 29 2c 73 74 61 6b 70 69 6c 2b 31 2c 73 74 61 6b 70 69 6c 2d 32 29 3b 0a 20 ┆stakpil),stakpil+1,stakpil-2); ┆
0x1f140…1f160 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 ┆ end; be┆
0x1f160…1f17a 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 2d 2d 2d 2d 2d 20 61 73 73 69 67 6e 6d 65 ┆gin comment ----- assignme┆
0x1f17a…1f180 (0x194,0x3e4)
0x1f180…1f1a0 6e 74 20 3a 3a 3d 20 6b 65 79 20 28 20 6f 70 65 72 61 6e 64 20 29 0a 20 20 20 20 20 20 20 20 20 ┆nt ::= key ( operand ) ┆
0x1f1a0…1f1c0 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 20 20 ┆ ┆
0x1f1c0…1f1e0 20 20 20 20 20 20 3a 3d 20 72 65 78 20 20 20 20 20 20 20 20 20 20 2d 2d 2d 2d 2d 3b 0a 20 0a 20 ┆ := rex -----; ┆
0x1f1e0…1f200 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 61 74 74 32 28 73 74 61 00 00 00 00 00 00 00 00 ┆ if att2(sta ┆
0x1f200…1f206 (249,) (0x194,0x3e5)
0x1f206…1f220 6b 70 69 6c 2d 33 29 20 73 68 69 66 74 20 28 2d 34 29 3c 3e 30 20 74 68 65 6e ┆kpil-3) shift (-4)<>0 then┆
0x1f220…1f240 20 66 65 6a 6c 28 32 30 31 38 29 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ fejl(2018) else ┆
0x1f240…1f260 20 20 20 20 20 20 20 61 74 74 32 28 73 74 61 6b 70 69 6c 2d 33 29 3a 3d 30 3b 0a 20 20 20 20 20 ┆ att2(stakpil-3):=0; ┆
0x1f260…1f27e 20 20 20 20 20 20 20 20 20 64 61 6e 64 79 6f 70 6b 6f 64 65 28 31 38 2c 73 74 61 6b 70 69 ┆ dandyopkode(18,stakpi┆
0x1f27e…1f284 (0x194,0x3e6)
0x1f284…1f2a0 6c 2c 73 74 61 6b 70 69 6c 2d 33 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e ┆l,stakpil-3); en┆
0x1f2a0…1f2c0 64 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 2d ┆d; begin comment -┆
0x1f2c0…1f2e0 2d 2d 2d 2d 20 66 70 6b 61 6c 64 20 3a 3a 3d 20 66 70 20 28 20 70 6b 6f 6e 73 74 20 29 20 2d 2d ┆---- fpkald ::= fp ( pkonst ) --┆
0x1f2e0…1f2fc 2d 2d 2d 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 2d 2c 20 66 ┆---; if -, f┆
0x1f2fc…1f302 (0x194,0x3e7)
0x1f302…1f320 70 20 74 68 65 6e 20 66 65 6a 6c 28 32 30 31 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆p then fejl(2012); ┆
0x1f320…1f340 20 20 20 69 66 20 61 74 74 33 28 73 74 61 6b 70 69 6c 2d 31 29 3e 39 35 20 74 68 65 6e 20 66 65 ┆ if att3(stakpil-1)>95 then fe┆
0x1f340…1f360 6a 6c 28 32 30 32 38 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 74 74 31 28 73 74 61 ┆jl(2028); att1(sta┆
0x1f360…1f37a 6b 70 69 6c 2d 33 29 3a 3d 68 6e 61 76 6e 65 28 61 74 74 33 28 73 74 61 6b 70 ┆kpil-3):=hnavne(att3(stakp┆
0x1f37a…1f380 (0x194,0x3e8)
0x1f380…1f3a0 69 6c 2d 31 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 0a 20 20 20 20 20 ┆il-1)); end; ┆
0x1f3a0…1f3c0 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 2d 2d 2d 2d 2d 20 66 70 6b 61 6c ┆ begin comment ----- fpkal┆
0x1f3c0…1f3e0 64 20 3a 3a 3d 20 66 70 20 28 20 70 6b 6f 6e 73 74 20 2d 20 70 6b 6f 6e 73 74 20 29 20 2d 2d 2d ┆d ::= fp ( pkonst - pkonst ) ---┆
0x1f3e0…1f400 2d 2d 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 2d 00 00 00 00 00 00 00 00 ┆--; if - ┆
0x1f400…1f406 (250,) (0x194,0x3e9)
0x1f406…1f420 2c 20 66 70 20 74 68 65 6e 20 66 65 6a 6c 28 32 30 31 32 29 3b 0a 20 20 20 20 ┆, fp then fejl(2012); ┆
0x1f420…1f440 20 20 20 20 20 20 20 20 20 20 69 66 20 61 74 74 33 28 73 74 61 6b 70 69 6c 2d 31 29 3c 3e 32 20 ┆ if att3(stakpil-1)<>2 ┆
0x1f440…1f460 61 6e 64 20 61 74 74 33 28 73 74 61 6b 70 69 6c 2d 31 29 3c 3e 34 20 74 68 65 6e 20 66 65 6a 6c ┆and att3(stakpil-1)<>4 then fejl┆
0x1f460…1f47e 28 32 30 32 38 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 61 74 74 33 28 ┆(2028); if att3(┆
0x1f47e…1f484 (0x194,0x3ea)
0x1f484…1f4a0 73 74 61 6b 70 69 6c 2d 33 29 3e 39 35 20 74 68 65 6e 20 66 65 6a 6c 28 32 30 32 38 ┆stakpil-3)>95 then fejl(2028┆
0x1f4a0…1f4c0 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 74 74 31 28 73 74 61 6b 70 69 6c 2d 35 29 ┆); att1(stakpil-5)┆
0x1f4c0…1f4e0 3a 3d 68 6e 61 76 6e 65 28 61 74 74 33 28 73 74 61 6b 70 69 6c 2d 33 29 29 3b 0a 20 20 20 20 20 ┆:=hnavne(att3(stakpil-3)); ┆
0x1f4e0…1f4fc 20 20 20 20 20 20 20 20 20 69 3a 3d 61 74 74 31 28 73 74 61 6b 70 69 6c 2d 35 29 20 ┆ i:=att1(stakpil-5) ┆
0x1f4fc…1f502 (0x194,0x3eb)
0x1f502…1f520 73 68 69 66 74 20 28 2d 31 34 29 20 65 78 74 72 61 63 74 20 33 3b 0a 20 20 20 20 20 20 20 ┆shift (-14) extract 3; ┆
0x1f520…1f540 20 20 20 20 20 20 20 69 66 20 69 3d 30 20 74 68 65 6e 20 66 65 6a 6c 28 32 30 32 38 29 3b 0a 20 ┆ if i=0 then fejl(2028); ┆
0x1f540…1f560 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 28 61 74 74 33 28 73 74 61 6b 70 69 6c 2d 31 29 ┆ if (att3(stakpil-1)┆
0x1f560…1f57a 3d 32 20 61 6e 64 20 69 3d 32 29 20 6f 72 0a 20 20 20 20 20 20 20 20 20 20 20 ┆=2 and i=2) or ┆
0x1f57a…1f580 (0x194,0x3ec)
0x1f580…1f5a0 20 20 20 20 20 20 28 61 74 74 33 28 73 74 61 6b 70 69 6c 2d 31 29 3d 34 20 61 6e 64 20 69 3d 31 ┆ (att3(stakpil-1)=4 and i=1┆
0x1f5a0…1f5c0 29 20 74 68 65 6e 20 66 65 6a 6c 28 32 30 32 38 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆) then fejl(2028); ┆
0x1f5c0…1f5e0 20 61 74 74 31 28 73 74 61 6b 70 69 6c 2d 35 29 3a 3d 61 74 74 31 28 73 74 61 6b 70 69 6c 2d 35 ┆ att1(stakpil-5):=att1(stakpil-5┆
0x1f5e0…1f600 29 2d 61 74 74 33 28 73 74 61 6b 70 69 6c 2d 31 29 3b 0a 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆)-att3(stakpil-1); ┆
0x1f600…1f606 (251,) (0x194,0x3ed)
0x1f606…1f620 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ end; ┆
0x1f620…1f640 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 2d 2d 2d 2d 2d 20 63 6f 6d 70 6b 6f 6d 20 3a 3a 3d 20 ┆begin comment ----- compkom ::= ┆
0x1f640…1f660 63 6f 6d 70 6f 72 64 20 2e 20 62 69 6e 7b 72 20 2d 2d 2d 2d 2d 3b 0a 20 0a 20 20 20 20 20 20 20 ┆compord . binær -----; ┆
0x1f660…1f67e 20 20 20 20 20 20 20 69 66 20 61 74 74 31 28 73 74 61 6b 70 69 6c 2d 32 29 20 65 78 74 72 ┆ if att1(stakpil-2) extr┆
0x1f67e…1f684 (0x194,0x3ee)
0x1f684…1f6a0 61 63 74 20 36 3c 3e 33 20 74 68 65 6e 20 66 65 6a 6c 28 32 30 30 34 29 3b 0a 20 20 ┆act 6<>3 then fejl(2004); ┆
0x1f6a0…1f6c0 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 61 74 74 31 28 73 74 61 6b 70 69 6c 29 3d 32 20 74 ┆ if att1(stakpil)=2 t┆
0x1f6c0…1f6e0 68 65 6e 20 62 69 6e 7b 72 3a 3d 74 72 75 65 20 65 6c 73 65 20 62 69 6e 7b 72 3a 3d 66 61 6c 73 ┆hen binær:=true else binær:=fals┆
0x1f6e0…1f6fc 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 61 73 65 20 61 74 74 31 28 73 ┆e; case att1(s┆
0x1f6fc…1f702 (0x194,0x3ef)
0x1f702…1f720 74 61 6b 70 69 6c 2d 32 29 20 73 68 69 66 74 20 28 2d 36 29 20 6f 66 0a 20 20 20 20 20 20 ┆takpil-2) shift (-6) of ┆
0x1f720…1f740 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 ┆ begin be┆
0x1f740…1f760 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 28 63 6f 64 65 20 61 ┆gin if (code a┆
0x1f760…1f77a 6e 64 20 62 69 6e 7b 72 29 20 6f 72 20 2d 2c 28 63 6f 64 65 20 6f 72 20 62 69 ┆nd binær) or -,(code or bi┆
0x1f77a…1f780 (0x194,0x3f0)
0x1f780…1f7a0 6e 7b 72 29 20 74 68 65 6e 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆nær) then else ┆
0x1f7a0…1f7c0 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 64 ┆ begin cod┆
0x1f7c0…1f7e0 65 3a 3d 62 69 6e 7b 72 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 ┆e:=binær; if┆
0x1f7e0…1f800 20 62 69 6e 7b 72 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ binær then ┆
0x1f800…1f806 (252,) (0x194,0x3f1)
0x1f806…1f820 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ begin ┆
0x1f820…1f840 20 20 20 20 20 20 20 20 20 20 69 66 20 6b 6f 64 65 75 64 70 69 6c 3c 35 20 74 68 65 6e 0a 20 20 ┆ if kodeudpil<5 then ┆
0x1f840…1f860 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 ┆ begin ┆
0x1f860…1f87e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6b 6f 64 65 75 64 70 69 6c 3a 3d 6b ┆ kodeudpil:=k┆
0x1f87e…1f884 (0x194,0x3f2)
0x1f884…1f8a0 6f 64 65 75 64 70 69 6c 2b 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆odeudpil+1; ┆
0x1f8a0…1f8c0 20 20 20 20 20 20 20 20 6b 6f 64 65 75 64 28 31 2c 6b 6f 64 65 75 64 70 69 6c 29 3a 3d 7a 62 61 ┆ kodeud(1,kodeudpil):=zba┆
0x1f8c0…1f8e0 73 65 2b 7a 70 69 6c 2b 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆se+zpil+1; ┆
0x1f8e0…1f8fc 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e ┆ end; en┆
0x1f8fc…1f902 (0x194,0x3f3)
0x1f902…1f920 64 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6b 6f 64 ┆d else kod┆
0x1f920…1f940 65 75 64 28 32 2c 6b 6f 64 65 75 64 70 69 6c 29 3a 3d 7a 70 69 6c 2b 7a 62 61 73 65 3b 0a 20 20 ┆eud(2,kodeudpil):=zpil+zbase; ┆
0x1f940…1f960 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ end; ┆
0x1f960…1f97a 20 20 20 20 20 20 20 61 74 74 31 28 73 74 61 6b 70 69 6c 2d 32 29 3a 3d 33 3b ┆ att1(stakpil-2):=3;┆
0x1f97a…1f980 (0x194,0x3f4)
0x1f980…1f9a0 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆ end; ┆
0x1f9a0…1f9c0 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 70 ┆ begin fp┆
0x1f9c0…1f9e0 3a 3d 62 69 6e 7b 72 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 2d 2c ┆:=binær; if -,┆
0x1f9e0…1fa00 20 66 70 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ fp then ┆
0x1fa00…1fa06 (253,) (0x194,0x3f5)
0x1fa06…1fa20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ begin ┆
0x1fa20…1fa40 20 20 20 72 65 6c 61 64 72 28 32 29 3a 3d 72 65 6c 61 64 72 28 32 29 2d 31 35 33 36 3b 0a 20 20 ┆ reladr(2):=reladr(2)-1536; ┆
0x1fa40…1fa60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 6c 6f 6b 73 74 61 72 74 3a 3d 62 6c 6f ┆ blokstart:=blo┆
0x1fa60…1fa7e 6b 73 74 61 72 74 2d 37 36 38 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆kstart-768; ┆
0x1fa7e…1fa84 (0x194,0x3f6)
0x1fa84…1faa0 20 20 66 70 70 6c 61 64 73 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ fpplads:=0; ┆
0x1faa0…1fac0 20 20 20 20 20 20 7a 62 61 73 65 3a 3d 7a 62 61 73 65 2b 37 36 38 3b 0a 20 20 20 20 20 20 20 20 ┆ zbase:=zbase+768; ┆
0x1fac0…1fae0 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ end; ┆
0x1fae0…1fafc 20 61 74 74 31 28 73 74 61 6b 70 69 6c 2d 32 29 3a 3d 30 3b 0a 20 20 20 20 20 20 20 ┆ att1(stakpil-2):=0; ┆
0x1fafc…1fb02 (0x194,0x3f7)
0x1fb02…1fb20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ end; ┆
0x1fb20…1fb40 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 69 73 74 3a 3d 62 69 ┆begin list:=bi┆
0x1fb40…1fb60 6e 7b 72 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 6c 69 73 74 20 74 ┆nær; if list t┆
0x1fb60…1fb7a 68 65 6e 20 77 72 69 74 65 28 6f 75 74 2c 66 61 6c 73 65 20 61 64 64 20 31 30 ┆hen write(out,false add 10┆
0x1fb7a…1fb80 (0x194,0x3f8)
0x1fb80…1fba0 2c 33 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 74 74 31 28 73 74 61 6b ┆,3); att1(stak┆
0x1fba0…1fbc0 70 69 6c 2d 32 29 3a 3d 33 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a ┆pil-2):=3; end; ┆
0x1fbc0…1fbe0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 ┆ begin ┆
0x1fbe0…1fc00 20 20 20 20 20 20 20 20 6d 6f 6e 3a 3d 62 69 6e 7b 72 3b 0a 20 20 20 20 00 00 00 00 00 00 00 00 ┆ mon:=binær; ┆
0x1fc00…1fc06 (254,) (0x194,0x3f9)
0x1fc06…1fc20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 74 74 31 28 73 74 61 6b 70 69 6c ┆ att1(stakpil┆
0x1fc20…1fc40 2d 30 29 3a 3d 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 ┆-0):=2; end; ┆
0x1fc40…1fc60 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b ┆ end; end;┆
0x1fc60…1fc7e 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 2d ┆ begin comment -┆
0x1fc7e…1fc84 (0x194,0x3fa)
0x1fc84…1fca0 2d 2d 2d 2d 20 63 6f 6d 70 6b 6f 6d 20 3a 3a 3d 20 63 6f 6d 70 6f 72 64 20 70 6b 6f ┆---- compkom ::= compord pko┆
0x1fca0…1fcc0 6e 73 74 20 2d 2d 2d 2d 2d 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 61 74 ┆nst -----; if at┆
0x1fcc0…1fce0 74 31 28 73 74 61 6b 70 69 6c 2d 31 29 20 65 78 74 72 61 63 74 20 36 3c 3e 20 31 20 74 68 65 6e ┆t1(stakpil-1) extract 6<> 1 then┆
0x1fce0…1fcfc 20 66 65 6a 6c 28 32 30 30 34 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 ┆ fejl(2004); c┆
0x1fcfc…1fd02 (0x194,0x3fb)
0x1fd02…1fd20 61 73 65 20 61 74 74 31 28 73 74 61 6b 70 69 6c 2d 31 29 20 73 68 69 66 74 20 28 2d 36 29 ┆ase att1(stakpil-1) shift (-6)┆
0x1fd20…1fd40 20 6f 66 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 ┆ of begin ┆
0x1fd40…1fd60 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ begin ┆
0x1fd60…1fd7a 69 66 20 61 74 74 33 28 73 74 61 6b 70 69 6c 29 3e 32 30 34 37 20 74 68 65 6e ┆if att3(stakpil)>2047 then┆
0x1fd7a…1fd80 (0x194,0x3fc)
0x1fd80…1fda0 20 66 65 6a 6c 28 32 30 33 30 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 ┆ fejl(2030); i┆
0x1fda0…1fdc0 66 20 61 74 74 33 28 73 74 61 6b 70 69 6c 29 20 3c 20 74 65 73 74 6c 69 6d 69 74 20 74 68 65 6e ┆f att3(stakpil) < testlimit then┆
0x1fdc0…1fde0 20 6f 28 35 31 2c 30 2c 30 2c 30 2c 30 2c 2d 61 74 74 33 28 73 74 61 6b 70 69 6c 29 29 3b 0a 20 ┆ o(51,0,0,0,0,-att3(stakpil)); ┆
0x1fde0…1fe00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 74 74 31 28 73 74 00 00 00 00 00 00 00 00 ┆ att1(st ┆
0x1fe00…1fe06 (255,) (0x194,0x3fd)
0x1fe06…1fe20 61 6b 70 69 6c 2d 31 29 3a 3d 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆akpil-1):=2; ┆
0x1fe20…1fe40 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 ┆ end; begin ┆
0x1fe40…1fe60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 61 74 74 33 28 73 74 61 6b 70 69 6c 29 ┆ if att3(stakpil)┆
0x1fe60…1fe7e 3e 67 72 65 6e 61 6e 74 61 6c 20 6f 72 20 61 74 74 33 28 73 74 61 6b 70 69 6c 29 3c 32 20 ┆>grenantal or att3(stakpil)<2 ┆
0x1fe7e…1fe84 (0x194,0x3fe)
0x1fe84…1fea0 74 68 65 6e 20 66 65 6a 6c 28 32 30 33 39 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆then fejl(2039); ┆
0x1fea0…1fec0 20 20 20 20 20 20 20 6f 28 31 31 2c 30 2c 30 2c 30 2c 30 2c 33 29 3b 0a 20 20 20 20 20 20 20 20 ┆ o(11,0,0,0,0,3); ┆
0x1fec0…1fee0 20 20 20 20 20 20 20 20 20 20 6f 28 31 31 2c 31 2c 30 2c 30 2c 30 2c 61 74 74 33 28 73 74 61 6b ┆ o(11,1,0,0,0,att3(stak┆
0x1fee0…1fefc 70 69 6c 29 2a 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f ┆pil)*2); o┆
0x1fefc…1ff02 (0x194,0x3ff)
0x1ff02…1ff20 28 39 2c 30 2c 31 2c 31 2c 30 2c 28 62 61 73 69 73 72 65 66 2d 7a 70 69 6c 2d 31 29 2a 32 ┆(9,0,1,1,0,(basisref-zpil-1)*2┆
0x1ff20…1ff40 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 28 31 33 2c 33 2c 31 2c 30 2c ┆); o(13,3,1,0,┆
0x1ff40…1ff60 30 2c 76 69 6e 64 68 6f 70 2b 28 62 61 73 69 73 72 65 66 2d 7a 70 69 6c 2d 31 29 2a 32 29 3b 0a ┆0,vindhop+(basisref-zpil-1)*2); ┆
0x1ff60…1ff7a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 74 74 31 28 73 74 61 ┆ att1(sta┆
0x1ff7a…1ff80 (0x194,0x400)
0x1ff80…1ffa0 6b 70 69 6c 2d 31 29 3a 3d 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b ┆kpil-1):=2; end;┆
0x1ffa0…1ffc0 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 ┆ begin ┆
0x1ffc0…1ffe0 20 20 20 20 20 20 20 20 20 69 66 20 70 72 6f 63 61 6e 74 61 6c 3e 31 20 74 68 65 6e 20 66 65 6a ┆ if procantal>1 then fej┆
0x1ffe0…20000 6c 28 32 30 33 34 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆l(2034); ┆
0x20000…20006 (256,) (0x194,0x401)
0x20006…20020 20 20 20 70 72 6f 63 61 6e 74 61 6c 3a 3d 61 74 74 33 28 73 74 61 6b 70 69 6c ┆ procantal:=att3(stakpil┆
0x20020…20040 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65 6c 61 64 72 28 32 29 3a 3d ┆); reladr(2):=┆
0x20040…20060 72 65 6c 61 64 72 28 32 29 2b 32 2a 70 72 6f 63 61 6e 74 61 6c 2d 32 3b 0a 20 20 20 20 20 20 20 ┆reladr(2)+2*procantal-2; ┆
0x20060…2007e 20 20 20 20 20 20 20 20 20 20 20 76 69 6e 64 68 6f 70 3a 3d 76 69 6e 64 68 6f 70 2b 32 2a ┆ vindhop:=vindhop+2*┆
0x2007e…20084 (0x194,0x402)
0x20084…200a0 70 72 6f 63 61 6e 74 61 6c 2d 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆procantal-2; ┆
0x200a0…200c0 20 20 20 61 74 74 31 28 73 74 61 6b 70 69 6c 2d 31 29 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 ┆ att1(stakpil-1):=0; ┆
0x200c0…200e0 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 ┆ end; begi┆
0x200e0…200fc 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 65 6a 6c 28 32 30 29 ┆n fejl(20)┆
0x200fc…20102 (0x194,0x403)
0x20102…20120 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 61 74 74 33 28 73 74 ┆; if att3(st┆
0x20120…20140 61 6b 70 69 6c 29 3e 67 72 65 6e 61 6e 74 61 6c 20 6f 72 20 61 74 74 33 28 73 74 61 6b 70 69 6c ┆akpil)>grenantal or att3(stakpil┆
0x20140…20160 29 3c 32 20 74 68 65 6e 20 66 65 6a 6c 28 32 30 33 39 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆)<2 then fejl(2039); ┆
0x20160…2017a 20 20 20 20 20 20 20 6f 28 31 31 2c 30 2c 30 2c 30 2c 30 2c 35 29 3b 0a 20 20 ┆ o(11,0,0,0,0,5); ┆
0x2017a…20180 (0x194,0x404)
0x20180…201a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 28 31 31 2c 31 2c 30 2c 30 2c 30 2c 61 74 74 ┆ o(11,1,0,0,0,att┆
0x201a0…201c0 33 28 73 74 61 6b 70 69 6c 29 2a 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆3(stakpil)*2); ┆
0x201c0…201e0 20 6f 28 39 2c 30 2c 31 2c 31 2c 30 2c 32 2a 28 62 61 73 69 73 72 65 66 2d 7a 70 69 6c 2d 31 29 ┆ o(9,0,1,1,0,2*(basisref-zpil-1)┆
0x201e0…20200 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 28 31 00 00 00 00 00 00 00 00 ┆); o(1 ┆
0x20200…20206 (257,) (0x194,0x405)
0x20206…20220 33 2c 33 2c 31 2c 30 2c 30 2c 76 69 6e 64 68 6f 70 2b 28 62 61 73 69 73 72 65 ┆3,3,1,0,0,vindhop+(basisre┆
0x20220…20240 66 2d 7a 70 69 6c 2d 31 29 2a 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆f-zpil-1)*2); ┆
0x20240…20260 61 74 74 31 28 73 74 61 6b 70 69 6c 2d 31 29 3a 3d 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆att1(stakpil-1):=2; ┆
0x20260…2027e 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 ┆ end; beg┆
0x2027e…20284 (0x194,0x406)
0x20284…202a0 69 6e 20 63 6f 6d 6d 65 6e 74 20 68 61 6c 74 20 70 6b 6f 6e 73 74 3b 0a 20 20 20 20 ┆in comment halt pkonst; ┆
0x202a0…202c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 61 74 74 33 28 73 74 61 6b 70 69 6c 29 ┆ if att3(stakpil)┆
0x202c0…202e0 20 3e 20 31 30 30 30 20 74 68 65 6e 20 66 65 6a 6c 28 32 30 33 30 29 3b 0a 20 20 20 20 20 20 20 ┆ > 1000 then fejl(2030); ┆
0x202e0…202fc 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 28 31 34 2c 30 2c 30 2c 30 2c 30 2c 2d 61 ┆ o(14,0,0,0,0,-a┆
0x202fc…20302 (0x194,0x407)
0x20302…20320 74 74 33 28 73 74 61 6b 70 69 6c 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆tt3(stakpil)); ┆
0x20320…20340 20 20 20 20 20 61 74 74 31 28 73 74 61 6b 70 69 6c 2d 31 29 3a 3d 32 3b 0a 20 20 20 20 20 20 20 ┆ att1(stakpil-1):=2; ┆
0x20340…20360 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e ┆ end; en┆
0x20360…2037a 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 0a 20 20 20 20 ┆d; end; ┆
0x2037a…20380 (0x194,0x408)
0x20380…203a0 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 2d 2d 2d 2d 2d 20 63 6f 6d 70 ┆ begin comment ----- comp┆
0x203a0…203c0 6b 6f 6d 20 3a 3a 3d 20 63 6f 6d 70 6f 72 64 20 70 6b 6f 6e 73 74 20 2c 20 70 6b 6f 6e 73 74 20 ┆kom ::= compord pkonst , pkonst ┆
0x203c0…203e0 2d 2d 2d 2d 2d 3b 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 61 74 74 31 28 73 ┆-----; if att1(s┆
0x203e0…20400 74 61 6b 70 69 6c 2d 33 29 20 65 78 74 72 61 63 74 20 36 3c 3e 32 20 74 00 00 00 00 00 00 00 00 ┆takpil-3) extract 6<>2 t ┆
0x20400…20406 (258,) (0x194,0x409)
0x20406…20420 68 65 6e 20 66 65 6a 6c 28 32 30 30 34 29 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆hen fejl(2004); ┆
0x20420…20440 20 20 20 20 69 66 20 67 72 65 6e 61 6e 74 61 6c 3d 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 ┆ if grenantal=0 then ┆
0x20440…20460 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 72 65 6e ┆ begin gren┆
0x20460…2047e 61 6e 74 61 6c 3a 3d 61 74 74 33 28 73 74 61 6b 70 69 6c 29 3b 0a 20 20 20 20 20 20 20 20 ┆antal:=att3(stakpil); ┆
0x2047e…20484 (0x194,0x40a)
0x20484…204a0 20 20 20 20 20 20 20 20 67 72 65 6e 70 69 6c 3a 3d 31 3b 0a 20 20 20 20 20 20 20 20 ┆ grenpil:=1; ┆
0x204a0…204c0 20 20 20 20 20 20 20 20 6b 6e 75 64 65 61 6e 74 61 6c 3a 3d 61 74 74 33 28 73 74 61 6b 70 69 6c ┆ knudeantal:=att3(stakpil┆
0x204c0…204e0 2d 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 3a 3d 67 72 65 6e 61 6e 74 61 ┆-2); i:=grenanta┆
0x204e0…204fc 6c 2b 6b 6e 75 64 65 61 6e 74 61 6c 2b 33 38 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆l+knudeantal+38; ┆
0x204fc…20502 (0x194,0x40b)
0x20502…20520 20 20 20 20 20 72 65 6c 61 64 72 28 32 29 3a 3d 72 65 6c 61 64 72 28 32 29 2b 32 2a 69 3b ┆ reladr(2):=reladr(2)+2*i;┆
0x20520…20540 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 76 69 6e 64 68 6f 70 3a 3d 72 65 6c 61 64 72 ┆ vindhop:=reladr┆
0x20540…20560 28 32 29 2d 34 33 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 74 74 31 28 73 74 61 ┆(2)-43; att1(sta┆
0x20560…2057a 6b 70 69 6c 2d 33 29 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆kpil-3):=0; ┆
0x2057a…20580 (0x194,0x40c)
0x20580…205a0 65 6e 64 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 ┆end else begin ┆
0x205a0…205c0 20 20 20 20 20 20 20 20 20 20 20 20 20 70 72 6f 63 75 64 28 74 72 75 65 29 3b 0a 20 20 20 20 20 ┆ procud(true); ┆
0x205c0…205e0 20 20 20 20 20 20 20 20 20 20 20 69 66 20 61 74 74 33 28 73 74 61 6b 70 69 6c 2d 32 29 3e 6b 6e ┆ if att3(stakpil-2)>kn┆
0x205e0…20600 75 64 65 61 6e 74 61 6c 20 6f 72 20 61 74 74 33 28 73 74 61 6b 70 69 6c 00 00 00 00 00 00 00 00 ┆udeantal or att3(stakpil ┆
0x20600…20606 (259,) (0x194,0x40d)
0x20606…20620 2d 32 29 3c 31 20 74 68 65 6e 20 66 65 6a 6c 28 32 30 33 36 29 3b 0a 20 20 20 ┆-2)<1 then fejl(2036); ┆
0x20620…20640 20 20 20 20 20 20 20 20 20 20 20 20 20 69 3a 3d 70 72 6f 63 61 6e 74 61 6c 2b 61 74 74 33 28 73 ┆ i:=procantal+att3(s┆
0x20640…20660 74 61 6b 70 69 6c 2d 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 70 72 ┆takpil-2); if pr┆
0x20660…2067e 6f 63 74 61 62 28 69 29 3e 30 20 74 68 65 6e 20 7a 70 69 6c 3a 3d 70 72 6f 63 74 61 62 28 ┆octab(i)>0 then zpil:=proctab(┆
0x2067e…20684 (0x194,0x40e)
0x20684…206a0 69 29 2f 2f 32 2d 31 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆i)//2-1 else ┆
0x206a0…206c0 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 61 74 74 33 ┆ begin if att3┆
0x206c0…206e0 28 73 74 61 6b 70 69 6c 2d 32 29 3e 6b 6e 75 64 65 70 69 6c 2b 31 20 74 68 65 6e 20 66 65 6a 6c ┆(stakpil-2)>knudepil+1 then fejl┆
0x206e0…206fc 28 32 30 34 32 29 20 65 6c 73 65 20 69 66 20 61 74 74 33 28 73 74 61 6b 70 69 6c 2d ┆(2042) else if att3(stakpil-┆
0x206fc…20702 (0x194,0x40f)
0x20702…20720 32 29 3d 6b 6e 75 64 65 70 69 6c 2b 31 20 74 68 65 6e 20 6b 6e 75 64 65 70 69 6c 3a 3d 20 ┆2)=knudepil+1 then knudepil:= ┆
0x20720…20740 6b 6e 75 64 65 70 69 6c 2b 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 72 ┆knudepil+1; pr┆
0x20740…20760 6f 63 74 61 62 28 69 29 3a 3d 32 2a 7a 70 69 6c 2b 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆octab(i):=2*zpil+2; ┆
0x20760…2077a 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7a ┆ end; z┆
0x2077a…20780 (0x194,0x410)
0x20780…207a0 62 61 73 65 3a 3d 2d 7a 70 69 6c 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 ┆base:=-zpil; if ┆
0x207a0…207c0 61 74 74 33 28 73 74 61 6b 70 69 6c 29 3c 3e 67 72 65 6e 70 69 6c 2b 31 20 74 68 65 6e 20 66 65 ┆att3(stakpil)<>grenpil+1 then fe┆
0x207c0…207e0 6a 6c 28 32 30 33 38 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 72 65 6e 70 69 ┆jl(2038); grenpi┆
0x207e0…20800 6c 3a 3d 67 72 65 6e 70 69 6c 2b 31 3b 0a 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆l:=grenpil+1; ┆
0x20800…20806 (260,) (0x194,0x411)
0x20806…20820 20 20 20 20 20 20 69 66 20 67 72 65 6e 70 69 6c 3e 67 72 65 6e 61 6e 74 61 6c ┆ if grenpil>grenantal┆
0x20820…20840 20 74 68 65 6e 20 66 65 6a 6c 28 32 30 33 39 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ then fejl(2039); ┆
0x20840…20860 20 20 69 3a 3d 70 72 6f 63 61 6e 74 61 6c 2b 6b 6e 75 64 65 61 6e 74 61 6c 2b 67 72 65 6e 70 69 ┆ i:=procantal+knudeantal+grenpi┆
0x20860…2087e 6c 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 72 6f 63 74 61 62 28 69 29 3a ┆l; proctab(i):┆
0x2087e…20884 (0x194,0x412)
0x20884…208a0 3d 61 74 74 33 28 73 74 61 6b 70 69 6c 2d 32 29 20 73 68 69 66 74 20 31 36 20 61 64 ┆=att3(stakpil-2) shift 16 ad┆
0x208a0…208c0 64 20 66 69 6c 6e 72 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 67 72 65 6e ┆d filnr; if gren┆
0x208c0…208e0 70 69 6c 3e 31 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 72 ┆pil>1 then pr┆
0x208e0…208fc 6f 63 74 61 62 28 69 2d 31 29 3a 3d 70 72 6f 63 74 61 62 28 69 2d 31 29 2b 28 66 69 ┆octab(i-1):=proctab(i-1)+(fi┆
0x208fc…20902 (0x194,0x413)
0x20902…20920 6c 6e 72 2d 70 72 6f 63 74 61 62 28 69 2d 31 29 20 65 78 74 72 61 63 74 0a 20 20 20 20 20 ┆lnr-proctab(i-1) extract ┆
0x20920…20940 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 38 29 20 73 ┆ 8) s┆
0x20940…20960 68 69 66 74 20 39 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 74 74 31 28 73 74 61 ┆hift 9; att1(sta┆
0x20960…2097a 6b 70 69 6c 2d 33 29 3a 3d 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆kpil-3):=1; ┆
0x2097a…20980 (0x194,0x414)
0x20980…209a0 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆end; end; ┆
0x209a0…209c0 20 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 2d 2d 2d ┆ begin comment ---┆
0x209c0…209e0 2d 2d 20 6b 72 6f 70 73 74 61 72 74 33 20 3a 3a 3d 20 6b 72 6f 70 73 74 61 72 74 31 20 62 65 67 ┆-- kropstart3 ::= kropstart1 beg┆
0x209e0…20a00 69 6e 20 2d 2d 2d 2d 2d 3b 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆in -----; ┆
0x20a00…20a06 (261,) (0x194,0x415)
0x20a06…20a20 20 20 20 7a 70 69 6c 3a 3d 7a 70 69 6c 2b 31 3b 0a 20 20 20 20 20 20 20 20 20 ┆ zpil:=zpil+1; ┆
0x20a20…20a40 20 20 20 20 20 20 20 64 79 6e 72 65 66 3a 3d 2d 35 30 30 30 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆ dynref:=-5000; ┆
0x20a40…20a60 20 20 20 20 20 20 62 61 73 69 73 72 65 66 3a 3d 7a 70 69 6c 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆ basisref:=zpil; ┆
0x20a60…20a7e 20 20 20 20 20 20 7a 28 7a 62 61 73 65 2b 7a 70 69 6c 29 3a 3d 2d 32 2a 7a 70 69 6c 3b 0a ┆ z(zbase+zpil):=-2*zpil; ┆
0x20a7e…20a84 (0x194,0x416)
0x20a84…20aa0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 6b 72 6f 70 6e 69 76 20 3d ┆ if kropniv =┆
0x20aa0…20ac0 20 31 20 74 68 65 6e 20 66 65 6a 6c 28 31 34 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 1 then fejl(14); ┆
0x20ac0…20ae0 20 20 70 72 6f 63 74 61 62 28 69 64 74 61 62 34 28 61 74 74 33 28 73 74 61 6b 70 69 6c 2d 31 29 ┆ proctab(idtab4(att3(stakpil-1)┆
0x20ae0…20afc 29 20 73 68 69 66 74 20 28 2d 31 36 29 29 3a 3d 32 2a 7a 70 69 6c 2b 32 3b 0a 20 20 ┆) shift (-16)):=2*zpil+2; ┆
0x20afc…20b02 (0x194,0x417)
0x20b02…20b20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 ┆ end; end┆
0x20b20…20b40 3b 0a 73 74 6f 70 73 65 6d 61 6e 74 69 6b 3a 20 65 6e 64 20 73 65 6d 61 6e 74 69 6b 3b 0a 20 0a ┆; stopsemantik: end semantik; ┆
0x20b40…20b60 20 0a 20 0a 20 20 20 20 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ comment **********┆
0x20b60…20b7a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆**************************┆
0x20b7a…20b80 (0x194,0x418)
0x20b80…20ba0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 20 20 20 20 20 20 20 20 20 20 20 ┆******************** ┆
0x20ba0…20bc0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 68 61 6e 64 6c 69 6e 67 20 61 66 20 73 79 ┆ behandling af sy┆
0x20bc0…20be0 6e 74 61 78 66 65 6a 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 2a 2a 2a ┆ntaxfejl *****┆
0x20be0…20c00 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 00 00 00 00 00 00 00 ┆************************ ┆
0x20c00…20c06 (262,) (0x194,0x419)
0x20c06…20c20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆**************************┆
0x20c20…20c40 2a 3b 0a 0a 20 20 20 20 20 20 20 20 70 72 6f 63 65 64 75 72 65 20 66 65 6a 6c 28 66 65 6a 6c 6e ┆*; procedure fejl(fejln┆
0x20c40…20c60 72 29 3b 0a 20 20 20 20 20 20 20 20 76 61 6c 75 65 20 66 65 6a 6c 6e 72 3b 0a 20 20 20 20 20 20 ┆r); value fejlnr; ┆
0x20c60…20c7e 20 20 69 6e 74 65 67 65 72 20 66 65 6a 6c 6e 72 3b 0a 20 20 20 20 20 20 20 20 62 65 67 69 ┆ integer fejlnr; begi┆
0x20c7e…20c84 (0x194,0x41a)
0x20c84…20ca0 6e 0a 20 20 20 20 20 20 20 20 20 20 6f 6b 6c 69 6e 69 65 3a 3d 66 61 6c 73 65 3b 0a ┆n oklinie:=false; ┆
0x20ca0…20cc0 20 20 20 20 20 20 20 20 20 20 66 65 6a 6c 70 69 6c 3a 3d 66 65 6a 6c 70 69 6c 2b 31 3b 0a 20 20 ┆ fejlpil:=fejlpil+1; ┆
0x20cc0…20ce0 20 20 20 20 20 20 20 20 66 65 6a 6c 73 74 61 6b 28 31 2c 66 65 6a 6c 70 69 6c 29 3a 3d 66 65 6a ┆ fejlstak(1,fejlpil):=fej┆
0x20ce0…20cfc 6c 6e 72 3b 0a 20 20 20 20 20 20 20 20 20 20 66 65 6a 6c 73 74 61 6b 28 32 2c 66 65 ┆lnr; fejlstak(2,fe┆
0x20cfc…20d02 (0x194,0x41b)
0x20d02…20d20 6a 6c 70 69 6c 29 3a 3d 6c 69 6e 69 65 6e 72 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 ┆jlpil):=linienr; if ┆
0x20d20…20d40 66 65 6a 6c 70 69 6c 3d 34 39 20 74 68 65 6e 20 66 65 6a 6c 28 32 30 34 30 29 3b 0a 20 20 20 20 ┆fejlpil=49 then fejl(2040); ┆
0x20d40…20d60 20 20 20 20 20 20 69 66 20 66 65 6a 6c 6e 72 3d 32 30 34 30 20 74 68 65 6e 20 67 6f 74 6f 20 70 ┆ if fejlnr=2040 then goto p┆
0x20d60…20d7a 61 73 73 73 74 6f 70 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 0a 20 0a ┆assstop; end; ┆
0x20d7a…20d80 (0x194,0x41c)
0x20d80…20da0 0a 20 20 20 20 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ comment *************┆
0x20da0…20dc0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x20dc0…20de0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆********** ┆
0x20de0…20e00 75 64 73 6b 72 69 76 6e 69 6e 67 20 61 66 20 67 65 6e 65 72 65 72 65 74 00 00 00 00 00 00 00 00 ┆udskrivning af genereret ┆
0x20e00…20e06 (263,) (0x194,0x41d)
0x20e06…20e20 20 6b 6f 64 65 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ kode. ┆
0x20e20…20e40 20 20 20 20 20 20 20 20 20 65 74 20 32 34 2d 62 69 74 73 20 6f 72 64 20 6f 70 66 61 74 74 65 73 ┆ et 24-bits ord opfattes┆
0x20e40…20e60 20 73 6f 6d 3a 0a 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 ┆ som: ┆
0x20e60…20e7e 20 20 20 20 20 20 20 20 20 20 20 20 31 29 20 65 74 20 68 65 6c 74 61 6c 0a 20 20 20 20 20 ┆ 1) et heltal ┆
0x20e7e…20e84 (0x194,0x41e)
0x20e84…20ea0 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 ┆ ┆
0x20ea0…20ec0 20 20 20 20 20 32 29 20 74 6f 20 62 79 74 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 2) to bytes ┆
0x20ec0…20ee0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 33 29 20 74 72 65 20 6b 61 ┆ 3) tre ka┆
0x20ee0…20efc 72 61 6b 74 65 72 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆rakterer ┆
0x20efc…20f02 (0x194,0x41f)
0x20f02…20f20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 34 29 20 65 6e 20 6d 61 73 6b 69 ┆ 4) en maski┆
0x20f20…20f40 6e 6f 72 64 72 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 2a 2a 2a 2a 2a ┆nordre *******┆
0x20f40…20f60 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x20f60…20f7a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 3b 0a 0a 20 20 20 20 20 20 20 ┆****************; ┆
0x20f7a…20f80 (0x194,0x420)
0x20f80…20fa0 20 70 72 6f 63 65 64 75 72 65 20 6d 6e 65 6d 6f 75 64 28 73 74 61 72 74 2c 73 6c 75 74 29 3b 0a ┆ procedure mnemoud(start,slut); ┆
0x20fa0…20fc0 20 20 20 20 20 20 20 20 76 61 6c 75 65 20 73 74 61 72 74 2c 73 6c 75 74 3b 0a 20 20 20 20 20 20 ┆ value start,slut; ┆
0x20fc0…20fe0 20 20 69 6e 74 65 67 65 72 20 73 74 61 72 74 2c 73 6c 75 74 3b 0a 20 20 20 20 20 20 20 20 62 65 ┆ integer start,slut; be┆
0x20fe0…21000 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 69 6e 74 65 67 65 72 20 69 6e 00 00 00 00 00 00 00 00 ┆gin integer in ┆
0x21000…21006 (264,) (0x194,0x421)
0x21006…21020 73 74 72 2c 72 65 67 2c 72 65 6c 2c 69 6e 64 69 72 2c 69 6e 64 65 78 2c 64 69 ┆str,reg,rel,indir,index,di┆
0x21020…21040 73 70 6c 61 79 2c 6f 72 64 72 65 3b 0a 20 20 20 20 20 20 20 20 20 20 69 6e 74 65 67 65 72 20 61 ┆splay,ordre; integer a┆
0x21040…21060 72 72 61 79 20 61 28 31 3a 33 29 3b 0a 20 20 20 20 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 ┆rray a(1:3); write(out┆
0x21060…2107e 2c 66 61 6c 73 65 20 61 64 64 20 31 30 2c 33 2c 0a 20 20 20 20 20 20 20 20 20 20 3c 3a 70 ┆,false add 10,3, <:p┆
0x2107e…21084 (0x194,0x422)
0x21084…210a0 72 6f 63 65 73 2d 20 20 20 68 65 6c 74 61 6c 73 2d 20 20 20 20 62 79 74 65 30 20 20 ┆roces- heltals- byte0 ┆
0x210a0…210c0 62 79 74 65 31 20 20 20 20 74 65 78 74 20 20 20 6f 62 6a 65 6b 74 2d 20 20 20 6d 61 73 6b 69 6e ┆byte1 text objekt- maskin┆
0x210c0…210e0 65 2d 6f 72 64 72 65 3a 3e 29 3b 0a 20 20 20 20 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c ┆e-ordre:>); write(out,┆
0x210e0…210fc 3c 3a 3c 31 30 3e 3a 3e 2c 0a 20 20 20 20 20 20 20 20 20 20 3c 3a 61 64 72 65 73 73 ┆<:<10>:>, <:adress┆
0x210fc…21102 (0x194,0x423)
0x21102…21120 65 20 20 20 6f 72 64 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆e ord ┆
0x21120…21140 20 20 20 20 20 20 20 20 20 61 64 72 65 73 73 65 3c 31 30 3e 3c 31 30 3e 3a 3e 29 3b 0a 20 20 20 ┆ adresse<10><10>:>); ┆
0x21140…21160 20 20 20 20 20 20 20 66 6f 72 20 69 3a 3d 73 74 61 72 74 20 73 74 65 70 20 31 20 75 6e 74 69 6c ┆ for i:=start step 1 until┆
0x21160…2117a 20 73 6c 75 74 20 64 6f 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 ┆ slut do begin ┆
0x2117a…21180 (0x194,0x424)
0x21180…211a0 20 20 20 20 20 20 20 20 20 20 20 6f 72 64 72 65 3a 3d 7a 28 69 29 3b 0a 20 20 20 20 20 20 20 20 ┆ ordre:=z(i); ┆
0x211a0…211c0 20 20 20 20 69 6e 73 74 72 3a 3d 6f 72 64 72 65 20 73 68 69 66 74 20 28 2d 31 38 29 3b 0a 20 20 ┆ instr:=ordre shift (-18); ┆
0x211c0…211e0 20 20 20 20 20 20 20 20 20 20 72 65 67 3a 3d 20 6f 72 64 72 65 20 73 68 69 66 74 20 28 2d 31 36 ┆ reg:= ordre shift (-16┆
0x211e0…21200 29 20 65 78 74 72 61 63 74 20 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆) extract 2; ┆
0x21200…21206 (265,) (0x194,0x425)
0x21206…21220 20 72 65 6c 3a 3d 6f 72 64 72 65 20 73 68 69 66 74 20 28 2d 31 35 29 20 65 78 ┆ rel:=ordre shift (-15) ex┆
0x21220…21240 74 72 61 63 74 20 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 6e 64 69 72 3a 3d 6f 72 64 72 ┆tract 1; indir:=ordr┆
0x21240…21260 65 20 73 68 69 66 74 20 28 2d 31 34 29 20 65 78 74 72 61 63 74 20 31 3b 0a 20 20 20 20 20 20 20 ┆e shift (-14) extract 1; ┆
0x21260…2127e 20 20 20 20 20 69 6e 64 65 78 3a 3d 6f 72 64 72 65 20 73 68 69 66 74 20 28 2d 31 32 29 20 ┆ index:=ordre shift (-12) ┆
0x2127e…21284 (0x194,0x426)
0x21284…212a0 65 78 74 72 61 63 74 20 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 64 69 73 70 6c ┆extract 2; displ┆
0x212a0…212c0 61 79 3a 3d 6f 72 64 72 65 20 65 78 74 72 61 63 74 20 31 31 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆ay:=ordre extract 11; ┆
0x212c0…212e0 20 20 69 66 20 28 6f 72 64 72 65 20 73 68 69 66 74 20 28 2d 31 31 29 20 65 78 74 72 61 63 74 20 ┆ if (ordre shift (-11) extract ┆
0x212e0…212fc 31 29 20 3d 20 31 20 74 68 65 6e 20 64 69 73 70 6c 61 79 3a 3d 64 69 73 70 6c 61 79 ┆1) = 1 then display:=display┆
0x212fc…21302 (0x194,0x427)
0x21302…21320 2d 32 30 34 38 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 3c ┆-2048; write(out,<┆
0x21320…21340 3a 3c 31 30 3e 3a 3e 2c 3c 3c 64 64 64 64 64 64 3e 2c 32 2a 28 69 2d 7a 62 61 73 65 29 2c 3c 3a ┆:<10>:>,<<dddddd>,2*(i-zbase),<:┆
0x21340…21360 20 20 20 20 3a 3e 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 3c ┆ :>); write(out,<┆
0x21360…2137a 3c 2d 64 64 64 64 64 64 64 3e 2c 6f 72 64 72 65 2c 3c 3a 20 20 3a 3e 29 3b 0a ┆<-ddddddd>,ordre,<: :>); ┆
0x2137a…21380 (0x194,0x428)
0x21380…213a0 20 20 20 20 20 20 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 3c 3c 20 20 2d 64 64 64 64 3e ┆ write(out,<< -dddd>┆
0x213a0…213c0 2c 65 78 74 65 6e 64 28 6f 72 64 72 65 20 73 68 69 66 74 20 28 2d 31 32 29 29 2c 0a 20 20 20 20 ┆,extend(ordre shift (-12)), ┆
0x213c0…213e0 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 20 65 ┆ e┆
0x213e0…21400 78 74 65 6e 64 28 6f 72 64 72 65 20 65 78 74 72 61 63 74 20 31 32 29 2c 00 00 00 00 00 00 00 00 ┆xtend(ordre extract 12), ┆
0x21400…21406 (266,) (0x194,0x429)
0x21406…21420 3c 3a 20 20 20 20 3a 3e 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 61 28 31 ┆<: :>); a(1┆
0x21420…21440 29 3a 3d 6f 72 64 72 65 20 65 78 74 72 61 63 74 20 38 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆):=ordre extract 8; ┆
0x21440…21460 61 28 32 29 3a 3d 6f 72 64 72 65 20 73 68 69 66 74 20 28 2d 38 29 20 65 78 74 72 61 63 74 20 38 ┆a(2):=ordre shift (-8) extract 8┆
0x21460…2147e 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 61 28 33 29 3a 3d 6f 72 64 72 65 20 73 68 69 66 ┆; a(3):=ordre shif┆
0x2147e…21484 (0x194,0x42a)
0x21484…214a0 74 20 28 2d 31 36 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 6e 3a 3d ┆t (-16); for n:=┆
0x214a0…214c0 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 33 20 64 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆1 step 1 until 3 do ┆
0x214c0…214e0 20 20 6f 75 74 63 68 61 72 28 6f 75 74 2c 69 66 20 28 61 28 34 2d 6e 29 3e 33 39 20 61 6e 64 20 ┆ outchar(out,if (a(4-n)>39 and ┆
0x214e0…214fc 61 28 34 2d 6e 29 3c 31 32 36 29 20 61 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆a(4-n)<126) and ┆
0x214fc…21502 (0x194,0x42b)
0x21502…21520 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 28 34 2d 6e 29 3c 3e 36 34 20 61 ┆ (a(4-n)<>64 a┆
0x21520…21540 6e 64 20 28 61 28 34 2d 6e 29 3c 3e 39 34 20 61 6e 64 20 61 28 34 2d 6e 29 3c 3e 39 36 29 29 20 ┆nd (a(4-n)<>94 and a(4-n)<>96)) ┆
0x21540…21560 0a 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 74 68 65 6e 20 ┆ then ┆
0x21560…2157a 61 28 34 2d 6e 29 20 65 6c 73 65 20 33 32 29 3b 0a 20 20 20 20 20 20 20 20 20 ┆a(4-n) else 32); ┆
0x2157a…21580 (0x194,0x42c)
0x21580…215a0 20 20 20 69 66 20 72 65 6c 3d 31 20 74 68 65 6e 20 77 72 69 74 65 28 6f 75 74 2c 3c 3a 20 20 20 ┆ if rel=1 then write(out,<: ┆
0x215a0…215c0 20 3a 3e 2c 3c 3c 2d 64 64 64 64 64 3e 2c 32 2a 28 69 2d 7a 62 61 73 65 29 2b 64 69 73 70 6c 61 ┆ :>,<<-ddddd>,2*(i-zbase)+displa┆
0x215c0…215e0 79 2c 3c 3a 20 20 20 20 3a 3e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆y,<: :>) ┆
0x215e0…21600 20 65 6c 73 65 20 77 72 69 74 65 28 6f 75 74 2c 3c 3a 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ else write(out,<: ┆
0x21600…21606 (267,) (0x194,0x42d)
0x21606…21620 20 20 20 20 20 20 20 20 3a 3e 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 ┆ :>); w┆
0x21620…21640 72 69 74 65 28 6f 75 74 2c 20 63 61 73 65 20 69 6e 73 74 72 2b 31 20 6f 66 20 28 0a 20 20 20 20 ┆rite(out, case instr+1 of ( ┆
0x21640…21660 20 20 20 20 20 20 20 20 20 20 3c 3a 61 77 3a 3e 2c 3c 3a 69 6f 3a 3e 2c 3c 3a 62 6c 3a 3e 2c 3c ┆ <:aw:>,<:io:>,<:bl:>,<┆
0x21660…2167e 3a 68 6c 3a 3e 2c 3c 3a 6c 61 3a 3e 2c 3c 3a 6c 6f 3a 3e 2c 3c 3a 6c 78 3a 3e 2c 3c 3a 77 ┆:hl:>,<:la:>,<:lo:>,<:lx:>,<:w┆
0x2167e…21684 (0x194,0x42e)
0x21684…216a0 61 3a 3e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 3a 77 73 3a 3e 2c 3c 3a ┆a:>, <:ws:>,<:┆
0x216a0…216c0 61 6d 3a 3e 2c 3c 3a 77 6d 3a 3e 2c 3c 3a 61 6c 3a 3e 2c 3c 3a 6d 6c 3a 3e 2c 3c 3a 6a 6c 3a 3e ┆am:>,<:wm:>,<:al:>,<:ml:>,<:jl:>┆
0x216c0…216e0 2c 3c 3a 6a 64 3a 3e 2c 3c 3a 6a 65 3a 3e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 3a ┆,<:jd:>,<:je:>, <:┆
0x216e0…216fc 78 6c 3a 3e 2c 3c 3a 62 73 3a 3e 2c 3c 3a 62 61 3a 3e 2c 3c 3a 62 7a 3a 3e 2c 3c 3a ┆xl:>,<:bs:>,<:ba:>,<:bz:>,<:┆
0x216fc…21702 (0x194,0x42f)
0x21702…21720 72 6c 3a 3e 2c 3c 3a 73 70 3a 3e 2c 3c 3a 6b 6c 3a 3e 2c 3c 3a 72 73 3a 3e 2c 0a 20 20 20 ┆rl:>,<:sp:>,<:kl:>,<:rs:>, ┆
0x21720…21740 20 20 20 20 20 20 20 20 20 20 20 3c 3a 77 64 3a 3e 2c 3c 3a 72 78 3a 3e 2c 3c 3a 68 73 3a 3e 2c ┆ <:wd:>,<:rx:>,<:hs:>,┆
0x21740…21760 3c 3a 78 73 3a 3e 2c 3c 3a 70 6c 3a 3e 2c 3c 3a 70 73 3a 3e 2c 3c 3a 6d 73 3a 3e 2c 3c 3a 69 73 ┆<:xs:>,<:pl:>,<:ps:>,<:ms:>,<:is┆
0x21760…2177a 3a 3e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 3a 63 69 3a 3e 2c 3c ┆:>, <:ci:>,<┆
0x2177a…21780 (0x194,0x430)
0x21780…217a0 3a 61 63 3a 3e 2c 3c 3a 6e 73 3a 3e 2c 3c 3a 6e 64 3a 3e 2c 3c 3a 61 73 3a 3e 2c 3c 3a 61 64 3a ┆:ac:>,<:ns:>,<:nd:>,<:as:>,<:ad:┆
0x217a0…217c0 3e 2c 3c 3a 6c 73 3a 3e 2c 3c 3a 6c 64 3a 3e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c ┆>,<:ls:>,<:ld:>, <┆
0x217c0…217e0 3a 73 68 3a 3e 2c 3c 3a 73 6c 3a 3e 2c 3c 3a 73 65 3a 3e 2c 3c 3a 73 6e 3a 3e 2c 3c 3a 73 6f 3a ┆:sh:>,<:sl:>,<:se:>,<:sn:>,<:so:┆
0x217e0…21800 3e 2c 3c 3a 73 7a 3a 3e 2c 3c 3a 73 78 3a 3e 2c 3c 3a 69 63 3a 3e 2c 0a 00 00 00 00 00 00 00 00 ┆>,<:sz:>,<:sx:>,<:ic:>, ┆
0x21800…21806 (268,) (0x194,0x431)
0x21806…21820 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 3a 66 61 3a 3e 2c 3c 3a 66 73 3a ┆ <:fa:>,<:fs:┆
0x21820…21840 3e 2c 3c 3a 66 6d 3a 3e 2c 3c 3a 6b 73 3a 3e 2c 3c 3a 66 64 3a 3e 2c 3c 3a 63 66 3a 3e 2c 3c 3a ┆>,<:fm:>,<:ks:>,<:fd:>,<:cf:>,<:┆
0x21840…21860 64 6c 3a 3e 2c 3c 3a 64 73 3a 3e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 3a 61 61 3a ┆dl:>,<:ds:>, <:aa:┆
0x21860…2187e 3e 2c 3c 3a 73 73 3a 3e 2c 3c 3a 2a 2a 3a 3e 2c 3c 3a 2a 2a 3a 3e 2c 3c 3a 2a 2a 3a 3e 2c ┆>,<:ss:>,<:**:>,<:**:>,<:**:>,┆
0x2187e…21884 (0x194,0x432)
0x21884…218a0 3c 3a 2a 2a 3a 3e 2c 3c 3a 2a 2a 3a 3e 2c 3c 3a 2a 2a 3a 3e 29 29 3b 0a 20 20 20 20 ┆<:**:>,<:**:>,<:**:>)); ┆
0x218a0…218c0 20 20 20 20 20 20 20 20 69 66 20 72 65 6c 3d 31 20 74 68 65 6e 20 77 72 69 74 65 28 6f 75 74 2c ┆ if rel=1 then write(out,┆
0x218c0…218e0 3c 3a 2e 20 3a 3e 29 20 65 6c 73 65 20 77 72 69 74 65 28 6f 75 74 2c 3c 3a 20 20 3a 3e 29 3b 0a ┆<:. :>) else write(out,<: :>); ┆
0x218e0…218fc 20 20 20 20 20 20 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 63 61 73 65 20 72 ┆ write(out,case r┆
0x218fc…21902 (0x194,0x433)
0x21902…21920 65 67 2b 31 20 6f 66 28 3c 3a 77 30 3a 3e 2c 3c 3a 77 31 3a 3e 2c 3c 3a 77 32 3a 3e 2c 3c ┆eg+1 of(<:w0:>,<:w1:>,<:w2:>,<┆
0x21920…21940 3a 77 33 3a 3e 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 69 6e 64 69 72 3d 31 20 ┆:w3:>)); if indir=1 ┆
0x21940…21960 74 68 65 6e 20 77 72 69 74 65 28 6f 75 74 2c 3c 3a 20 28 3a 3e 29 20 65 6c 73 65 20 77 72 69 74 ┆then write(out,<: (:>) else writ┆
0x21960…2197a 65 28 6f 75 74 2c 3c 3a 20 20 3a 3e 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆e(out,<: :>); ┆
0x2197a…21980 (0x194,0x434)
0x21980…219a0 20 69 66 20 69 6e 64 65 78 3e 30 20 74 68 65 6e 20 77 72 69 74 65 28 6f 75 74 2c 63 61 73 65 20 ┆ if index>0 then write(out,case ┆
0x219a0…219c0 69 6e 64 65 78 20 6f 66 28 3c 3a 78 31 3a 3e 2c 3c 3a 78 32 3a 3e 2c 3c 3a 78 33 3a 3e 29 29 3b ┆index of(<:x1:>,<:x2:>,<:x3:>));┆
0x219c0…219e0 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 69 6e 64 65 78 3e 30 20 74 68 65 6e 20 77 72 69 ┆ if index>0 then wri┆
0x219e0…21a00 74 65 28 6f 75 74 2c 3c 3c 2b 64 3e 2c 64 69 73 70 6c 61 79 29 0a 20 20 00 00 00 00 00 00 00 00 ┆te(out,<<+d>,display) ┆
0x21a00…21a06 (269,) (0x194,0x435)
0x21a06…21a20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 20 77 72 69 74 65 28 6f ┆ else write(o┆
0x21a20…21a40 75 74 2c 3c 3c 2d 64 3e 2c 64 69 73 70 6c 61 79 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 ┆ut,<<-d>,display); i┆
0x21a40…21a60 66 20 69 6e 64 69 72 3d 31 20 74 68 65 6e 20 77 72 69 74 65 28 6f 75 74 2c 3c 3a 29 3a 3e 29 3b ┆f indir=1 then write(out,<:):>);┆
0x21a60…21a7e 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 77 72 69 74 ┆ end; writ┆
0x21a7e…21a84 (0x194,0x436)
0x21a84…21aa0 65 28 6f 75 74 2c 66 61 6c 73 65 20 61 64 64 20 31 30 2c 33 29 3b 0a 20 20 20 20 20 ┆e(out,false add 10,3); ┆
0x21aa0…21ac0 20 20 20 65 6e 64 20 6d 6e 65 6d 6f 75 64 3b 0a 0a 0a 0a 20 20 20 20 20 20 20 20 20 20 63 6f 6d ┆ end mnemoud; com┆
0x21ac0…21ae0 6d 65 6e 74 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ment ***************************┆
0x21ae0…21afc 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆****************************┆
0x21afc…21b02 (0x194,0x437)
0x21b02…21b20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 75 64 73 6b 72 69 76 6e ┆ udskrivn┆
0x21b20…21b40 69 6e 67 20 61 66 20 66 65 6a 6c 20 64 65 74 65 6b 74 65 72 65 74 20 76 65 64 20 6f 76 65 72 73 ┆ing af fejl detekteret ved overs┆
0x21b40…21b60 7b 74 74 65 6c 73 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 2a 2a 2a ┆ættelsen *****┆
0x21b60…21b7a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆**************************┆
0x21b7a…21b80 (0x194,0x438)
0x21b80…21ba0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 3b 0a 0a 20 20 20 20 20 ┆************************; ┆
0x21ba0…21bc0 20 20 20 70 72 6f 63 65 64 75 72 65 20 66 65 6a 6c 75 64 3b 0a 20 20 20 20 20 20 20 20 62 65 67 ┆ procedure fejlud; beg┆
0x21bc0…21be0 69 6e 0a 20 20 20 20 20 20 20 20 20 20 6f 75 74 63 68 61 72 28 6f 75 74 2c 31 30 29 3b 20 20 6f ┆in outchar(out,10); o┆
0x21be0…21c00 75 74 63 68 61 72 28 6f 75 74 2c 31 30 29 3b 0a 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆utchar(out,10); ┆
0x21c00…21c06 (270,) (0x194,0x439)
0x21c06…21c20 20 20 66 6f 72 20 69 3a 3d 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 66 65 ┆ for i:=1 step 1 until fe┆
0x21c20…21c40 6a 6c 70 69 6c 20 64 6f 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 ┆jlpil do begin ┆
0x21c40…21c60 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 3c 3a 3c 31 30 3e 6c 69 6e 65 3a 3e 2c 3c 3c 64 64 ┆ write(out,<:<10>line:>,<<dd┆
0x21c60…21c7e 64 64 64 3e 2c 66 65 6a 6c 73 74 61 6b 28 32 2c 69 29 2c 3c 3a 20 20 2a 2a 2a 20 20 3a 3e ┆ddd>,fejlstak(2,i),<: *** :>┆
0x21c7e…21c84 (0x194,0x43a)
0x21c84…21ca0 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 66 65 6a 6c 73 74 61 6b 28 31 ┆); if fejlstak(1┆
0x21ca0…21cc0 2c 69 29 3e 32 30 30 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 72 69 74 65 28 ┆,i)>2000 then write(┆
0x21cc0…21ce0 6f 75 74 2c 63 61 73 65 20 66 65 6a 6c 73 74 61 6b 28 31 2c 69 29 2d 32 30 30 30 20 6f 66 20 28 ┆out,case fejlstak(1,i)-2000 of (┆
0x21ce0…21cfc 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 3a 6d 75 6c 74 69 70 6c 79 20 64 ┆ <:multiply d┆
0x21cfc…21d02 (0x194,0x43b)
0x21d02…21d20 65 63 6c 61 72 65 64 3a 3e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 3a 6f 70 ┆eclared:>, <:op┆
0x21d20…21d40 65 72 61 74 6f 72 20 69 6c 6c 65 67 61 6c 3a 3e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆erator illegal:>, ┆
0x21d40…21d60 20 3c 3a 74 79 70 65 20 69 6c 6c 65 67 61 6c 3a 3e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ <:type illegal:>, ┆
0x21d60…21d7a 20 20 3c 3a 73 79 6e 74 61 78 3a 3e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ <:syntax:>, ┆
0x21d7a…21d80 (0x194,0x43c)
0x21d80…21da0 20 20 20 3c 3a 6e 61 6d 65 20 75 6e 64 65 63 6c 61 72 65 64 3a 3e 2c 0a 20 20 20 20 20 20 20 20 ┆ <:name undeclared:>, ┆
0x21da0…21dc0 20 20 20 20 20 20 20 3c 3a 6d 6f 64 65 20 69 6c 6c 65 67 61 6c 3a 3e 2c 0a 20 20 20 20 20 20 20 ┆ <:mode illegal:>, ┆
0x21dc0…21de0 20 20 20 20 20 20 20 20 3c 3a 74 65 78 74 20 74 6f 6f 20 6c 6f 6e 67 3a 3e 2c 0a 20 20 20 20 20 ┆ <:text too long:>, ┆
0x21de0…21e00 20 20 20 20 20 20 20 20 20 20 3c 3a 61 72 72 61 79 20 6f 76 65 72 66 69 00 00 00 00 00 00 00 00 ┆ <:array overfi ┆
0x21e00…21e06 (271,) (0x194,0x43d)
0x21e06…21e20 6c 6c 69 6e 67 3a 3e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 3a ┆lling:>, <:┆
0x21e20…21e40 69 6e 64 65 78 2d 72 65 67 69 73 74 65 72 20 64 65 6d 61 6e 64 65 64 3a 3e 2c 0a 20 20 20 20 20 ┆index-register demanded:>, ┆
0x21e40…21e60 20 20 20 20 20 20 20 20 20 20 3c 3a 72 65 67 69 73 74 65 72 20 6f 63 63 75 70 69 65 64 3a 3e 2c ┆ <:register occupied:>,┆
0x21e60…21e7e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 3a 74 79 70 65 20 6f 66 20 66 70 6e 61 ┆ <:type of fpna┆
0x21e7e…21e84 (0x194,0x43e)
0x21e84…21ea0 6d 65 20 69 6c 6c 65 67 61 6c 3a 3e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆me illegal:>, ┆
0x21ea0…21ec0 20 3c 3a 6e 6f 20 61 63 63 65 73 73 20 74 6f 20 66 70 3a 3e 2c 0a 20 20 20 20 20 20 20 20 20 20 ┆ <:no access to fp:>, ┆
0x21ec0…21ee0 20 20 20 20 20 3c 3a 6e 6f 20 61 63 63 65 73 73 20 74 6f 20 6d 6f 6e 69 74 6f 72 3a 3e 2c 0a 20 ┆ <:no access to monitor:>, ┆
0x21ee0…21efc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 3a 6d 6f 6e 69 74 6f 72 2d 63 61 6c 6c ┆ <:monitor-call┆
0x21efc…21f02 (0x194,0x43f)
0x21f02…21f20 20 69 6c 6c 65 67 61 6c 3a 3e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 3a 72 ┆ illegal:>, <:r┆
0x21f20…21f40 65 67 69 73 74 65 72 2d 74 79 70 65 20 69 6c 6c 65 67 61 6c 3a 3e 2c 0a 20 20 20 20 20 20 20 20 ┆egister-type illegal:>, ┆
0x21f40…21f60 20 20 20 20 20 20 20 3c 3a 72 65 67 69 73 74 65 72 20 69 6c 6c 65 67 61 6c 3a 3e 2c 0a 20 20 20 ┆ <:register illegal:>, ┆
0x21f60…21f7a 20 20 20 20 20 20 20 20 20 20 20 20 3c 3a 64 65 6c 69 6d 69 74 65 72 20 69 6c ┆ <:delimiter il┆
0x21f7a…21f80 (0x194,0x440)
0x21f80…21fa0 6c 65 67 61 6c 3a 3e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 3a 63 6f 6e 73 74 61 ┆legal:>, <:consta┆
0x21fa0…21fc0 6e 74 20 6e 6f 74 20 61 6c 6c 6f 77 65 64 20 61 73 20 61 6e 20 6f 70 65 72 61 6e 64 3a 3e 2c 0a ┆nt not allowed as an operand:>, ┆
0x21fc0…21fe0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 3a 6f 70 65 72 61 6e 64 20 69 6c 6c 65 67 61 6c ┆ <:operand illegal┆
0x21fe0…22000 3a 3e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 3a 6e 75 6d 00 00 00 00 00 00 00 00 ┆:>, <:num ┆
0x22000…22006 (272,) (0x194,0x441)
0x22006…22020 62 65 72 20 6f 66 20 70 61 72 74 20 74 6f 6f 20 6c 61 72 67 65 3a 3e 2c 0a 20 ┆ber of part too large:>, ┆
0x22020…22040 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 3a 6b 69 6e 64 20 6f 66 20 6e 61 6d 65 20 69 6c 6c ┆ <:kind of name ill┆
0x22040…22060 65 67 61 6c 3a 3e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 3a 63 6f 6d 70 69 6c 65 ┆egal:>, <:compile┆
0x22060…2207e 72 2d 77 6f 72 64 20 69 6c 6c 65 67 61 6c 3a 3e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆r-word illegal:>, ┆
0x2207e…22084 (0x194,0x442)
0x22084…220a0 20 20 20 3c 3a 70 61 72 61 6d 65 74 65 72 2d 66 61 75 6c 74 3a 3e 2c 0a 20 20 20 20 ┆ <:parameter-fault:>, ┆
0x220a0…220c0 20 20 20 20 20 20 20 20 20 20 20 3c 3a 6c 69 6e 6b 2d 72 65 67 69 73 74 65 72 20 69 6c 6c 65 67 ┆ <:link-register illeg┆
0x220c0…220e0 61 6c 3a 3e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 3a 70 61 72 61 6d 65 74 65 72 ┆al:>, <:parameter┆
0x220e0…220fc 2d 74 79 70 65 73 20 64 6f 20 6e 6f 74 20 66 69 74 3a 3e 2c 0a 20 20 20 20 20 20 20 ┆-types do not fit:>, ┆
0x220fc…22102 (0x194,0x443)
0x22102…22120 20 20 20 20 20 20 20 20 3c 3a 72 65 6c 61 74 69 6f 6e 61 6c 20 6f 70 65 72 61 74 6f 72 20 ┆ <:relational operator ┆
0x22120…22140 69 6c 6c 65 67 61 6c 3a 3e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 3a 73 70 65 63 ┆illegal:>, <:spec┆
0x22140…22160 69 61 6c 2d 72 65 67 69 73 74 65 72 20 69 6c 6c 65 67 61 6c 3a 3e 2c 0a 20 20 20 20 20 20 20 20 ┆ial-register illegal:>, ┆
0x22160…2217a 20 20 20 20 20 20 20 3c 3a 66 70 2d 63 61 6c 6c 20 69 6c 6c 65 67 61 6c 3a 3e ┆ <:fp-call illegal:>┆
0x2217a…22180 (0x194,0x444)
0x22180…221a0 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 3a 74 6f 6f 20 6d 61 6e 79 20 65 6e 64 27 ┆, <:too many end'┆
0x221a0…221c0 73 3a 3e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 3a 63 6f 6e 73 74 61 6e 74 20 74 ┆s:>, <:constant t┆
0x221c0…221e0 6f 6f 20 6c 61 72 67 65 3a 3e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 3a 72 6f 75 ┆oo large:>, <:rou┆
0x221e0…22200 6e 64 69 6e 67 20 65 72 72 6f 72 20 61 74 20 66 72 61 63 74 69 6f 6e 3a 00 00 00 00 00 00 00 00 ┆nding error at fraction: ┆
0x22200…22206 (273,) (0x194,0x445)
0x22206…22220 3e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 3a 73 65 63 74 69 6f ┆>, <:sectio┆
0x22220…22240 6e 20 74 6f 6f 20 6c 6f 6e 67 3a 3e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 3a 61 ┆n too long:>, <:a┆
0x22240…22260 64 72 65 73 73 69 6e 67 20 6e 6f 74 20 70 6f 73 73 69 62 6c 65 3a 3e 2c 0a 20 20 20 20 20 20 20 ┆dressing not possible:>, ┆
0x22260…2227e 20 20 20 20 20 20 20 20 3c 3a 6d 75 6c 74 69 70 6c 65 20 73 74 61 74 65 6d 65 6e 74 3a 3e ┆ <:multiple statement:>┆
0x2227e…22284 (0x194,0x446)
0x22284…222a0 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 3a 74 6f 6f 20 6d 61 6e 79 20 ┆, <:too many ┆
0x222a0…222c0 70 72 6f 63 65 64 75 72 65 73 3a 3e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 3a 6e ┆procedures:>, <:n┆
0x222c0…222e0 6f 64 65 20 75 6e 64 65 66 69 6e 65 64 3a 3e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ode undefined:>, ┆
0x222e0…222fc 3c 3a 63 6f 6e 66 6c 69 63 74 20 2d 20 61 75 74 6f 74 61 70 65 3c 3e 62 72 61 6e 63 ┆<:conflict - autotape<>branc┆
0x222fc…22302 (0x194,0x447)
0x22302…22320 68 69 6e 67 3a 3e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 3a 63 6f 6e 74 69 ┆hing:>, <:conti┆
0x22320…22340 6e 75 75 73 20 62 72 61 6e 63 68 2d 6e 75 6d 62 65 72 69 6e 67 20 64 65 6d 61 6e 64 65 64 3a 3e ┆nuus branch-numbering demanded:>┆
0x22340…22360 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 3a 62 72 61 6e 63 68 20 75 6e 64 65 66 69 ┆, <:branch undefi┆
0x22360…2237a 6e 65 64 3a 3e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 3a 63 6f ┆ned:>, <:co┆
0x2237a…22380 (0x194,0x448)
0x22380…223a0 6d 70 69 6c 61 74 69 6f 6e 20 73 74 6f 70 70 65 64 3a 3e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 ┆mpilation stopped:>, ┆
0x223a0…223c0 20 20 20 20 3c 3a 61 72 72 61 79 2d 62 6f 75 6e 64 73 20 69 6c 6c 65 67 61 6c 3a 3e 2c 0a 20 20 ┆ <:array-bounds illegal:>, ┆
0x223c0…223e0 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 3a 63 6f 6e 74 69 6e 75 75 73 20 6e 6f 64 65 2d 6e 75 ┆ <:continuus node-nu┆
0x223e0…22400 6d 62 65 72 69 6e 67 20 64 65 6d 61 6e 64 65 64 3a 3e 29 29 20 65 6c 73 00 00 00 00 00 00 00 00 ┆mbering demanded:>)) els ┆
0x22400…22406 (274,) (0x194,0x449)
0x22406…22420 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 3c 3a ┆e write(out,<:┆
0x22420…22440 73 79 6e 74 61 78 20 20 2d 20 20 69 6c 6c 65 67 61 6c 20 73 79 6d 62 6f 6c 20 3a 3e 2c 0a 20 20 ┆syntax - illegal symbol :>, ┆
0x22440…22460 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 61 73 65 20 66 65 6a 6c 73 74 61 6b 28 31 2c ┆ case fejlstak(1,┆
0x22460…2247e 69 29 20 6f 66 20 28 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 3a 28 3a ┆i) of ( <:(:┆
0x2247e…22484 (0x194,0x44a)
0x22484…224a0 3e 2c 3c 3a 29 3a 3e 2c 3c 3a 2c 3a 3e 2c 3c 3a 2d 3a 3e 2c 3c 3a 2e 3a 3e 2c 3c 3a ┆>,<:):>,<:,:>,<:-:>,<:.:>,<:┆
0x224a0…224c0 3a 3a 3e 2c 3c 3a 3a 3d 3a 3e 2c 3c 3a 3b 3a 3e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆::>,<::=:>,<:;:>, ┆
0x224c0…224e0 20 20 20 20 3c 3a 64 69 73 2f 65 6e 61 62 6c 65 64 3a 3e 2c 3c 3a 69 6e 6f 75 74 3a 3e 2c 3c 3a ┆ <:dis/enabled:>,<:inout:>,<:┆
0x224e0…224fc 61 64 64 72 65 73 73 3a 3e 2c 3c 3a 61 72 72 61 79 3a 3e 2c 0a 20 20 20 20 20 20 20 ┆address:>,<:array:>, ┆
0x224fc…22502 (0x194,0x44b)
0x22502…22520 20 20 20 20 20 20 20 20 20 20 20 3c 3a 61 75 74 6f 6c 6f 61 64 3a 3e 2c 3c 3a 62 65 67 69 ┆ <:autoload:>,<:begi┆
0x22520…22540 6e 3a 3e 2c 3c 3a 79 65 73 2f 6e 6f 3a 3e 2c 3c 3a 62 6f 64 79 3a 3e 2c 3c 3a 63 61 6c 6c 3a 3e ┆n:>,<:yes/no:>,<:body:>,<:call:>┆
0x22540…22560 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 3a 63 61 73 65 3a 3e 2c 3c 3a 63 ┆, <:case:>,<:c┆
0x22560…2257a 6c 65 61 72 3a 3e 2c 3c 3a 27 63 6f 6d 70 69 6c 65 72 2d 77 6f 72 64 27 3a 3e ┆lear:>,<:'compiler-word':>┆
0x2257a…22580 (0x194,0x44c)
0x22580…225a0 2c 3c 3a 63 72 65 61 74 65 3a 3e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c ┆,<:create:>, <┆
0x225a0…225c0 3a 64 6f 3a 3e 2c 3c 3a 64 6f 77 6e 74 6f 3a 3e 2c 3c 3a 64 79 61 64 69 63 20 6f 70 65 72 2e 3a ┆:do:>,<:downto:>,<:dyadic oper.:┆
0x225c0…225e0 3e 2c 3c 3a 65 6c 73 65 3a 3e 2c 3c 3a 65 6e 64 3a 3e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆>,<:else:>,<:end:>, ┆
0x225e0…22600 20 20 20 20 20 20 3c 3a 66 6f 72 3a 3e 2c 3c 3a 66 70 3a 3e 2c 3c 3a 67 00 00 00 00 00 00 00 00 ┆ <:for:>,<:fp:>,<:g ┆
0x22600…22606 (275,) (0x194,0x44d)
0x22606…22620 65 74 63 68 61 72 3a 3e 2c 3c 3a 67 6f 74 6f 3a 3e 2c 3c 3a 69 66 3a 3e 2c 3c ┆etchar:>,<:goto:>,<:if:>,<┆
0x22620…22640 3a 6b 65 79 3a 3e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 3a 6c 61 62 65 ┆:key:>, <:labe┆
0x22640…22660 6c 3a 3e 2c 3c 3a 6c 61 79 6f 75 74 3a 3e 2c 3c 3a 64 79 6e 61 6d 69 63 2f 69 6e 63 6f 64 65 3a ┆l:>,<:layout:>,<:dynamic/incode:┆
0x22660…2267e 3e 2c 3c 3a 6d 6f 6e 69 74 6f 72 3a 3e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆>,<:monitor:>, ┆
0x2267e…22684 (0x194,0x44e)
0x22684…226a0 20 20 20 3c 3a 6d 6f 6e 61 64 69 63 20 6f 70 65 72 2e 3a 3e 2c 3c 3a 27 6e 61 6d 65 ┆ <:monadic oper.:>,<:'name┆
0x226a0…226c0 27 3a 3e 2c 3c 3a 6e 6f 72 6d 3a 3e 2c 3c 3a 6f 66 3a 3e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 ┆':>,<:norm:>,<:of:>, ┆
0x226c0…226e0 20 20 20 20 20 20 20 3c 3a 27 63 6f 6e 73 74 61 6e 74 27 3a 3e 2c 3c 3a 70 72 6f 63 65 64 75 72 ┆ <:'constant':>,<:procedur┆
0x226e0…226fc 65 3a 3e 2c 3c 3a 72 65 63 6f 72 64 3a 3e 2c 3c 3a 27 72 65 67 69 73 74 65 72 27 3a ┆e:>,<:record:>,<:'register':┆
0x226fc…22702 (0x194,0x44f)
0x22702…22720 3e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 3a 72 65 6c 61 74 69 6f ┆>, <:relatio┆
0x22720…22740 6e 61 6c 20 6f 70 65 72 2e 3a 3e 2c 3c 3a 73 70 65 63 2e 20 72 65 67 69 73 74 65 72 3a 3e 2c 3c ┆nal oper.:>,<:spec. register:>,<┆
0x22740…22760 3a 73 74 65 70 3a 3e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 3a 27 73 74 ┆:step:>, <:'st┆
0x22760…2277a 72 69 6e 67 27 3a 3e 2c 3c 3a 74 65 78 74 3a 3e 2c 3c 3a 74 68 65 6e 3a 3e 2c ┆ring':>,<:text:>,<:then:>,┆
0x2277a…22780 (0x194,0x450)
0x22780…227a0 3c 3a 27 74 79 70 65 27 3a 3e 2c 3c 3a 75 70 74 6f 3a 3e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 ┆<:'type':>,<:upto:>, ┆
0x227a0…227c0 20 20 20 20 20 20 20 3c 3a 77 68 69 6c 65 3a 3e 2c 3c 3a 77 69 74 68 3a 3e 2c 3c 3a 77 72 69 74 ┆ <:while:>,<:with:>,<:writ┆
0x227c0…227e0 65 3a 3e 2c 3c 3a 65 78 63 68 3a 3e 2c 3c 3a 27 63 6f 6e 73 74 61 6e 74 27 3a 3e 29 29 3b 0a 20 ┆e:>,<:exch:>,<:'constant':>)); ┆
0x227e0…22800 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 65 6e 00 00 00 00 00 00 00 00 ┆ end; en ┆
0x22800…22806 (276,) (0x194,0x451)
0x22806…22820 64 20 66 65 6a 6c 75 64 3b 0a 20 0a 20 0a 20 0a 20 20 20 20 20 20 20 20 20 20 ┆d fejlud; ┆
0x22820…22840 63 6f 6d 6d 65 6e 74 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆comment ************************┆
0x22840…22860 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a ┆******************************* ┆
0x22860…2287e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 75 64 73 6b 72 69 76 6e 69 6e ┆ udskrivnin┆
0x2287e…22884 (0x194,0x452)
0x22884…228a0 67 20 61 66 20 66 65 6a 6c 20 76 65 64 20 66 6f 72 62 69 6e 64 65 6c 73 65 20 61 66 ┆g af fejl ved forbindelse af┆
0x228a0…228c0 20 69 6e 64 2f 75 64 2d 66 69 6c 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ind/ud-filer ┆
0x228c0…228e0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x228e0…228fc 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 3b 0a 20 0a 20 ┆***********************; ┆
0x228fc…22902 (0x194,0x453)
0x22902…22920 20 20 20 20 20 20 20 70 72 6f 63 65 64 75 72 65 20 63 6f 6e 66 65 6a 6c 28 66 65 6a 6c 6e ┆ procedure confejl(fejln┆
0x22920…22940 72 29 3b 0a 20 20 20 20 20 20 20 20 76 61 6c 75 65 20 66 65 6a 6c 6e 72 3b 0a 20 20 20 20 20 20 ┆r); value fejlnr; ┆
0x22940…22960 20 20 69 6e 74 65 67 65 72 20 66 65 6a 6c 6e 72 3b 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a ┆ integer fejlnr; begin ┆
0x22960…2297a 20 20 20 20 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 3c 3a 3c 31 30 3e ┆ write(out,<:<10>┆
0x2297a…22980 (0x194,0x454)
0x22980…229a0 3c 31 30 3e 63 6f 6e 6e 65 63 74 66 65 6a 6c 20 20 20 2a 2a 2a 20 20 20 3a 3e 2c 0a 20 20 20 20 ┆<10>connectfejl *** :>, ┆
0x229a0…229c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 61 73 65 20 66 65 6a 6c 6e 72 20 6f 66 20 28 ┆ case fejlnr of (┆
0x229c0…229e0 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 3a 6f 62 6a 65 63 74 66 69 6c ┆ <:objectfil┆
0x229e0…22a00 65 20 6d 69 73 73 69 6e 67 3a 3e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆e missing:>, ┆
0x22a00…22a06 (277,) (0x194,0x455)
0x22a06…22a20 20 20 20 20 20 20 20 20 20 3c 3a 6f 62 6a 65 63 74 66 69 6c 65 20 6e 6f 74 20 ┆ <:objectfile not ┆
0x22a20…22a40 6f 6e 20 62 73 2e 3a 3e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 3a ┆on bs.:>, <:┆
0x22a40…22a60 63 6f 6e 6e 65 63 74 69 6f 6e 20 69 6d 70 6f 73 73 69 62 6c 65 3a 3e 2c 0a 20 20 20 20 20 20 20 ┆connection impossible:>, ┆
0x22a60…22a7e 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 3a 65 78 74 65 72 6e 61 6c 20 70 72 6f 63 65 73 ┆ <:external proces┆
0x22a7e…22a84 (0x194,0x456)
0x22a84…22aa0 73 20 6e 6f 74 20 62 73 2d 70 72 6f 63 65 73 73 3a 3e 2c 0a 20 20 20 20 20 20 20 20 ┆s not bs-process:>, ┆
0x22aa0…22ac0 20 20 20 20 20 20 20 20 20 20 20 20 3c 3a 63 72 65 61 74 69 6f 6e 20 69 6d 70 6f 73 73 69 62 62 ┆ <:creation impossibb┆
0x22ac0…22ae0 6c 65 3a 3e 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 73 74 6f 70 3b 0a 20 20 20 ┆le:>)); goto stop; ┆
0x22ae0…22afc 20 20 20 20 20 65 6e 64 20 63 6f 6e 66 65 6a 6c 3b 0a 20 0a 20 0a 20 20 20 20 20 20 ┆ end confejl; ┆
0x22afc…22b02 (0x194,0x457)
0x22b02…22b20 20 20 63 6f 6d 6d 65 6e 74 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ comment ********************┆
0x22b20…22b40 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x22b40…22b60 2a 2a 2a 2a 2a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 6e 70 75 74 2d 20 6f 67 ┆***** input- og┆
0x22b60…22b7a 20 6f 75 74 70 75 74 66 69 6c 20 66 6f 72 62 69 6e 64 65 73 20 6d 65 64 20 6f ┆ outputfil forbindes med o┆
0x22b7a…22b80 (0x194,0x458)
0x22b80…22ba0 76 65 72 73 7b 74 74 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 2a 2a 2a 2a ┆versætter ******┆
0x22ba0…22bc0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x22bc0…22be0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 3b 0a 20 0a 20 0a 20 20 20 20 20 20 20 ┆*******************; ┆
0x22be0…22c00 20 69 66 20 73 79 73 74 65 6d 28 34 2c 31 2c 61 72 72 29 3c 3e 36 20 73 00 00 00 00 00 00 00 00 ┆ if system(4,1,arr)<>6 s ┆
0x22c00…22c06 (278,) (0x194,0x459)
0x22c06…22c20 68 69 66 74 20 31 32 2b 31 30 20 74 68 65 6e 20 0a 20 20 20 20 20 20 20 20 62 ┆hift 12+10 then b┆
0x22c20…22c40 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 6f 62 6a 65 63 74 66 69 6c 65 3a 3d 66 61 6c 73 65 ┆egin objectfile:=false┆
0x22c40…22c60 3b 0a 20 20 20 20 20 20 20 20 20 20 6f 70 65 6e 28 73 61 76 65 2c 34 2c 3c 3a 3a 3e 2c 30 29 3b ┆; open(save,4,<::>,0);┆
0x22c60…22c7e 0a 20 20 20 20 20 20 20 20 65 6e 64 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 62 65 67 69 ┆ end else begi┆
0x22c7e…22c84 (0x194,0x45a)
0x22c84…22ca0 6e 0a 20 20 20 20 20 20 20 20 20 20 6f 62 6a 65 63 74 66 69 6c 65 3a 3d 74 72 75 65 ┆n objectfile:=true┆
0x22ca0…22cc0 3b 0a 20 20 20 20 20 20 20 20 20 20 73 79 73 74 65 6d 28 34 2c 30 2c 61 72 72 29 3b 0a 20 20 20 ┆; system(4,0,arr); ┆
0x22cc0…22ce0 20 20 20 20 20 20 20 69 3a 3d 31 3b 0a 20 20 20 20 20 20 20 20 20 20 6f 70 65 6e 28 73 61 76 65 ┆ i:=1; open(save┆
0x22ce0…22cfc 2c 34 2c 73 74 72 69 6e 67 20 61 72 72 28 69 6e 63 72 65 61 73 65 28 69 29 29 2c 30 ┆,4,string arr(increase(i)),0┆
0x22cfc…22d02 (0x194,0x45b)
0x22d02…22d20 29 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 6f 75 74 63 68 61 ┆); end; outcha┆
0x22d20…22d40 72 28 6f 75 74 2c 31 30 29 3b 0a 20 20 20 20 20 20 20 20 69 66 20 73 79 73 74 65 6d 28 34 2c 69 ┆r(out,10); if system(4,i┆
0x22d40…22d60 66 20 6f 62 6a 65 63 74 66 69 6c 65 20 74 68 65 6e 20 33 20 65 6c 73 65 20 32 2c 61 72 72 29 20 ┆f objectfile then 3 else 2,arr) ┆
0x22d60…22d7a 3c 3e 20 34 20 73 68 69 66 74 20 31 32 20 2b 20 31 30 0a 20 20 20 20 20 20 20 ┆<> 4 shift 12 + 10 ┆
0x22d7a…22d80 (0x194,0x45c)
0x22d80…22da0 20 20 20 61 6e 64 20 73 79 73 74 65 6d 28 34 2c 69 66 20 6f 62 6a 65 63 74 66 69 6c 65 20 74 68 ┆ and system(4,if objectfile th┆
0x22da0…22dc0 65 6e 20 32 20 65 6c 73 65 20 31 2c 61 72 72 29 20 3c 3e 20 34 20 73 68 69 66 74 20 31 32 20 2b ┆en 2 else 1,arr) <> 4 shift 12 +┆
0x22dc0…22de0 20 31 30 0a 20 20 20 20 20 20 20 20 20 20 74 68 65 6e 20 77 72 69 74 65 28 6f 75 74 2c 3c 3a 63 ┆ 10 then write(out,<:c┆
0x22de0…22e00 3a 3e 29 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 66 6f 72 20 69 3a 3d 00 00 00 00 00 00 00 00 ┆:>) else for i:= ┆
0x22e00…22e06 (279,) (0x194,0x45d)
0x22e06…22e20 30 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 31 30 20 64 6f 0a 20 20 20 20 20 ┆0 step 1 until 10 do ┆
0x22e20…22e40 20 20 20 20 20 6f 75 74 63 68 61 72 28 6f 75 74 2c 61 72 72 28 69 2f 2f 36 2b 31 29 20 73 68 69 ┆ outchar(out,arr(i//6+1) shi┆
0x22e40…22e60 66 74 20 28 2d 34 30 2b 28 69 20 6d 6f 64 20 36 29 2a 38 29 20 65 78 74 72 61 63 74 20 38 29 3b ┆ft (-40+(i mod 6)*8) extract 8);┆
0x22e60…22e7e 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 72 65 61 6c 20 ┆ begin real ┆
0x22e7e…22e84 (0x194,0x45e)
0x22e84…22ea0 63 6c 6f 63 6b 3b 0a 20 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 34 32 2c ┆clock; monitor(42,┆
0x22ea0…22ec0 69 6e 2c 30 2c 74 61 69 6c 29 3b 0a 20 20 20 20 20 20 20 20 20 20 63 6c 6f 63 6b 3a 3d 74 61 69 ┆in,0,tail); clock:=tai┆
0x22ec0…22ee0 6c 28 36 29 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 63 6c 6f 63 6b 20 3e 20 34 30 30 30 30 ┆l(6); if clock > 40000┆
0x22ee0…22efc 30 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 ┆00 then begin ┆
0x22efc…22f02 (0x194,0x45f)
0x22f02…22f20 20 20 20 20 20 20 20 20 63 6c 6f 63 6b 3a 3d 63 6c 6f 63 6b 2a 32 2a 2a 31 39 2f 31 30 30 ┆ clock:=clock*2**19/100┆
0x22f20…22f40 30 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 3c 3a 20 64 2e 3a ┆00; write(out,<: d.:┆
0x22f40…22f60 3e 2c 3c 3c 64 64 64 64 64 64 3e 2c 73 79 73 74 69 6d 65 28 34 2c 63 6c 6f 63 6b 2c 74 69 6d 65 ┆>,<<dddddd>,systime(4,clock,time┆
0x22f60…22f7a 29 2c 3c 3a 2e 3a 3e 2c 3c 3c 7a 64 64 64 3e 2c 74 69 6d 65 2f 31 30 30 29 3b ┆),<:.:>,<<zddd>,time/100);┆
0x22f7a…22f80 (0x194,0x460)
0x22f80…22fa0 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 6f 75 74 63 68 61 ┆ end; outcha┆
0x22fa0…22fc0 72 28 6f 75 74 2c 31 30 29 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 ┆r(out,10); end; ┆
0x22fc0…22fe0 69 66 20 6d 6f 6e 69 74 6f 72 28 34 32 2c 73 61 76 65 2c 30 2c 74 61 69 6c 29 3c 3e 30 20 74 68 ┆if monitor(42,save,0,tail)<>0 th┆
0x22fe0…23000 65 6e 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 63 72 65 61 74 65 3a 00 00 00 00 00 00 00 00 ┆en begin create: ┆
0x23000…23006 (280,) (0x194,0x461)
0x23006…23020 0a 20 20 20 20 20 20 20 20 20 20 74 61 69 6c 28 31 29 3a 3d 31 3b 0a 20 20 20 ┆ tail(1):=1; ┆
0x23020…23040 20 20 20 20 20 20 20 66 6f 72 20 69 3a 3d 32 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 31 30 20 ┆ for i:=2 step 1 until 10 ┆
0x23040…23060 64 6f 20 74 61 69 6c 28 69 29 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 6d 6f 6e 69 ┆do tail(i):=0; if moni┆
0x23060…2307e 74 6f 72 28 34 30 2c 73 61 76 65 2c 30 2c 74 61 69 6c 29 3c 3e 30 20 74 68 65 6e 20 63 6f ┆tor(40,save,0,tail)<>0 then co┆
0x2307e…23084 (0x194,0x462)
0x23084…230a0 6e 66 65 6a 6c 28 35 29 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 ┆nfejl(5); end; ┆
0x230a0…230c0 20 20 20 69 66 20 74 61 69 6c 28 31 29 3c 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 62 65 67 ┆ if tail(1)<0 then beg┆
0x230c0…230e0 69 6e 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 74 61 69 6c 28 31 29 3c 3e 31 20 73 68 69 66 74 ┆in if tail(1)<>1 shift┆
0x230e0…230fc 20 32 33 2b 34 20 74 68 65 6e 20 63 6f 6e 66 65 6a 6c 28 32 29 3b 0a 20 20 20 20 20 ┆ 23+4 then confejl(2); ┆
0x230fc…23102 (0x194,0x463)
0x23102…23120 20 20 20 20 20 63 6c 6f 73 65 28 73 61 76 65 2c 66 61 6c 73 65 29 3b 0a 20 20 20 20 20 20 ┆ close(save,false); ┆
0x23120…23140 20 20 20 20 69 3a 3d 31 3b 0a 20 20 20 20 20 20 20 20 20 20 6c 61 66 3a 3d 32 3b 0a 20 20 20 20 ┆ i:=1; laf:=2; ┆
0x23140…23160 20 20 20 20 20 20 6f 70 65 6e 28 73 61 76 65 2c 34 2c 73 74 72 69 6e 67 20 74 61 69 6c 2e 6c 61 ┆ open(save,4,string tail.la┆
0x23160…2317a 66 28 69 6e 63 72 65 61 73 65 28 69 29 29 2c 31 29 3b 0a 20 20 20 20 20 20 20 ┆f(increase(i)),1); ┆
0x2317a…23180 (0x194,0x464)
0x23180…231a0 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 69 66 20 6d 6f 6e 69 74 6f 72 28 35 32 2c 73 61 76 65 ┆ end; if monitor(52,save┆
0x231a0…231c0 2c 30 2c 74 61 69 6c 29 2b 6d 6f 6e 69 74 6f 72 28 38 2c 73 61 76 65 2c 30 2c 74 61 69 6c 29 3c ┆,0,tail)+monitor(8,save,0,tail)<┆
0x231c0…231e0 3e 30 20 74 68 65 6e 20 67 6f 74 6f 20 63 72 65 61 74 65 3b 0a 20 20 20 20 20 20 20 20 73 79 73 ┆>0 then goto create; sys┆
0x231e0…23200 74 65 6d 28 35 2c 6d 6f 6e 69 74 6f 72 28 34 2c 73 61 76 65 2c 30 2c 74 00 00 00 00 00 00 00 00 ┆tem(5,monitor(4,save,0,t ┆
0x23200…23206 (281,) (0x194,0x465)
0x23206…23220 61 69 6c 29 2c 74 61 69 6c 29 3b 0a 20 20 20 20 20 20 20 20 69 66 20 74 61 69 ┆ail),tail); if tai┆
0x23220…23240 6c 28 31 29 3c 3e 34 20 74 68 65 6e 20 63 6f 6e 66 65 6a 6c 28 34 29 3b 0a 20 0a 20 0a 20 20 20 ┆l(1)<>4 then confejl(4); ┆
0x23240…23260 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ comment *******************┆
0x23260…2327e 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆******************************┆
0x2327e…23284 (0x194,0x466)
0x23284…232a0 2a 2a 2a 2a 2a 2a 2a 2a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆******** ┆
0x232a0…232c0 20 20 20 20 20 20 20 20 20 69 6e 69 74 69 61 6c 69 73 65 72 69 6e 67 65 72 0a 20 20 20 20 20 20 ┆ initialiseringer ┆
0x232c0…232e0 20 20 20 20 20 20 20 20 20 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ **********************┆
0x232e0…232fc 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆****************************┆
0x232fc…23302 (0x194,0x467)
0x23302…23320 2a 2a 2a 2a 2a 2a 2a 3b 0a 20 0a 20 0a 20 20 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 2a ┆*******; comment *┆
0x23320…23340 2a 2a 20 20 20 74 69 6c 73 74 61 6e 64 73 2f 61 6b 74 69 6f 6e 73 74 61 62 65 6c 6c 65 72 20 20 ┆** tilstands/aktionstabeller ┆
0x23340…23360 20 2a 2a 2a 3b 0a 20 0a 20 20 20 20 20 20 20 20 66 6f 72 20 69 3a 3d 31 20 73 74 65 70 20 31 20 ┆ ***; for i:=1 step 1 ┆
0x23360…2337a 75 6e 74 69 6c 20 38 20 64 6f 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 ┆until 8 do begin ┆
0x2337a…23380 (0x194,0x468)
0x23380…233a0 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 6a 3a 3d 32 20 73 74 65 70 20 31 20 75 6e 74 69 6c ┆ for j:=2 step 1 until┆
0x233a0…233c0 20 38 20 64 6f 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 0a 20 20 20 20 20 20 20 20 20 ┆ 8 do begin ┆
0x233c0…233e0 20 20 20 20 20 61 6b 74 69 6f 6e 28 69 2c 6a 29 3a 3d 63 61 73 65 20 37 2a 28 69 2d 31 29 2b 6a ┆ aktion(i,j):=case 7*(i-1)+j┆
0x233e0…23400 2d 31 20 6f 66 0a 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 20 20 31 00 00 00 00 00 00 00 00 ┆-1 of ( 1 ┆
0x23400…23406 (282,) (0x194,0x469)
0x23406…23420 2c 20 20 38 2c 20 31 30 2c 20 31 30 2c 20 20 36 2c 20 20 38 2c 20 32 31 2c 0a ┆, 8, 10, 10, 6, 8, 21, ┆
0x23420…23440 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 2c 20 31 33 2c 20 20 33 2c 20 31 33 2c 20 31 33 ┆ 2, 13, 3, 13, 13┆
0x23440…23460 2c 20 31 33 2c 20 32 30 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 34 2c 20 31 34 2c 20 ┆, 13, 20, 4, 14, ┆
0x23460…2347e 31 34 2c 20 31 34 2c 20 31 34 2c 20 31 34 2c 20 31 34 2c 0a 20 20 20 20 20 20 20 20 20 20 ┆14, 14, 14, 14, 14, ┆
0x2347e…23484 (0x194,0x46a)
0x23484…234a0 20 20 20 20 20 35 2c 20 31 35 2c 20 31 35 2c 20 31 35 2c 20 31 35 2c 20 31 35 2c 20 ┆ 5, 15, 15, 15, 15, 15, ┆
0x234a0…234c0 31 35 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 36 2c 20 31 31 2c 20 31 36 2c 20 31 36 ┆15, 16, 11, 16, 16┆
0x234c0…234e0 2c 20 31 36 2c 20 31 36 2c 20 31 36 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 37 2c 20 ┆, 16, 16, 16, 7, ┆
0x234e0…234fc 31 37 2c 20 31 37 2c 20 31 37 2c 20 20 37 2c 20 31 37 2c 20 31 37 2c 0a 20 20 20 20 ┆17, 17, 17, 7, 17, 17, ┆
0x234fc…23502 (0x194,0x46b)
0x23502…23520 20 20 20 20 20 20 20 20 20 20 31 38 2c 20 31 38 2c 20 31 38 2c 20 31 38 2c 20 20 39 2c 20 ┆ 18, 18, 18, 18, 9, ┆
0x23520…23540 31 32 2c 20 31 38 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 39 2c 20 31 39 2c 20 31 39 ┆12, 18, 19, 19, 19┆
0x23540…23560 2c 20 31 39 2c 20 20 37 2c 20 31 39 2c 20 31 39 20 29 3b 0a 0a 0a 20 20 20 20 20 20 20 20 20 20 ┆, 19, 7, 19, 19 ); ┆
0x23560…2357a 20 20 20 20 74 69 6c 73 74 28 69 2c 6a 29 3a 3d 63 61 73 65 20 37 2a 28 69 2d ┆ tilst(i,j):=case 7*(i-┆
0x2357a…23580 (0x194,0x46c)
0x23580…235a0 31 29 2b 6a 2d 31 20 6f 66 0a 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 20 32 2c 20 20 35 ┆1)+j-1 of ( 2, 5┆
0x235a0…235c0 2c 20 20 34 2c 20 20 31 2c 20 20 36 2c 20 20 37 2c 20 20 31 2c 0a 20 20 20 20 20 20 20 20 20 20 ┆, 4, 1, 6, 7, 1, ┆
0x235c0…235e0 20 20 20 20 20 32 2c 20 20 31 2c 20 20 33 2c 20 20 31 2c 20 20 31 2c 20 20 31 2c 20 20 32 2c 0a ┆ 2, 1, 3, 1, 1, 1, 2, ┆
0x235e0…23600 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 33 2c 20 20 31 2c 20 20 31 00 00 00 00 00 00 00 00 ┆ 3, 1, 1 ┆
0x23600…23606 (283,) (0x194,0x46d)
0x23606…23620 2c 20 20 31 2c 20 20 31 2c 20 20 31 2c 20 20 31 2c 0a 20 20 20 20 20 20 20 20 ┆, 1, 1, 1, 1, ┆
0x23620…23640 20 20 20 20 20 20 20 33 2c 20 20 31 2c 20 20 31 2c 20 20 31 2c 20 20 31 2c 20 20 31 2c 20 20 31 ┆ 3, 1, 1, 1, 1, 1, 1┆
0x23640…23660 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 2c 20 20 31 2c 20 20 31 2c 20 20 31 2c 20 ┆, 1, 1, 1, 1, ┆
0x23660…2367e 20 31 2c 20 20 31 2c 20 20 31 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 36 2c 20 ┆ 1, 1, 1, 6, ┆
0x2367e…23684 (0x194,0x46e)
0x23684…236a0 20 31 2c 20 20 31 2c 20 20 31 2c 20 20 36 2c 20 20 31 2c 20 20 31 2c 0a 20 20 20 20 ┆ 1, 1, 1, 6, 1, 1, ┆
0x236a0…236c0 20 20 20 20 20 20 20 20 20 20 20 31 2c 20 20 31 2c 20 20 31 2c 20 20 31 2c 20 20 38 2c 20 20 31 ┆ 1, 1, 1, 1, 8, 1┆
0x236c0…236e0 2c 20 20 31 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 2c 20 20 31 2c 20 20 31 2c 20 ┆, 1, 1, 1, 1, ┆
0x236e0…236fc 20 31 2c 20 20 38 2c 20 20 31 2c 20 20 31 20 29 3b 0a 0a 0a 20 20 20 20 20 20 20 20 ┆ 1, 8, 1, 1 ); ┆
0x236fc…23702 (0x194,0x46f)
0x23702…23720 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 0a 20 0a 20 0a ┆ end; end; ┆
0x23720…23740 20 20 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 2a 2a 2a 20 20 20 74 61 62 65 6c 6c 65 72 20 6f ┆ comment *** tabeller o┆
0x23740…23760 76 65 72 20 64 6f 62 62 65 6c 74 73 6b 69 6c 6c 65 74 65 67 6e 20 20 20 2a 2a 2a 3b 0a 20 0a 20 ┆ver dobbeltskilletegn ***; ┆
0x23760…2377a 20 20 20 20 20 20 20 66 6f 72 20 69 3a 3d 31 20 73 74 65 70 20 31 20 75 6e 74 ┆ for i:=1 step 1 unt┆
0x2377a…23780 (0x194,0x470)
0x23780…237a0 69 6c 20 37 20 64 6f 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 0a 20 20 20 20 20 20 20 20 20 ┆il 7 do begin ┆
0x237a0…237c0 20 74 6f 73 6b 69 6c 31 28 69 29 3a 3d 63 61 73 65 20 69 20 6f 66 0a 0a 0a 20 20 20 20 20 20 20 ┆ toskil1(i):=case i of ┆
0x237c0…237e0 20 20 20 28 20 33 38 31 36 37 30 34 2c 20 33 30 39 32 32 32 34 2c 20 33 39 34 37 37 37 36 2c 20 ┆ ( 3816704, 3092224, 3947776, ┆
0x237e0…23800 34 30 37 38 38 34 38 2c 20 33 39 34 38 30 33 32 2c 20 33 30 39 35 38 30 00 00 00 00 00 00 00 00 ┆4078848, 3948032, 309580 ┆
0x23800…23806 (284,) (0x194,0x471)
0x23806…23820 38 2c 20 32 38 39 39 32 30 30 20 29 3b 0a 0a 0a 20 20 20 20 20 20 20 20 20 20 ┆8, 2899200 ); ┆
0x23820…23840 74 6f 73 6b 69 6c 32 28 69 29 3a 3d 63 61 73 65 20 69 20 6f 66 0a 0a 0a 20 20 20 20 20 20 20 20 ┆toskil2(i):=case i of ┆
0x23840…23860 20 20 28 20 20 20 37 2c 20 34 30 38 2c 20 34 39 33 2c 20 35 35 37 2c 20 33 30 31 2c 20 36 36 34 ┆ ( 7, 408, 493, 557, 301, 664┆
0x23860…2387e 2c 20 36 30 30 29 3b 0a 0a 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 0a 20 20 20 20 20 20 ┆, 600); end; ┆
0x2387e…23884 (0x194,0x472)
0x23884…238a0 20 20 63 6f 6d 6d 65 6e 74 20 2a 2a 2a 20 20 20 74 61 62 65 6c 6c 65 72 20 6f 76 65 ┆ comment *** tabeller ove┆
0x238a0…238c0 72 20 72 65 73 65 72 76 65 72 65 64 65 20 6e 61 76 6e 65 20 20 20 2a 2a 2a 3b 0a 20 0a 20 20 20 ┆r reserverede navne ***; ┆
0x238c0…238e0 20 20 20 20 20 20 20 20 20 66 6f 72 20 69 3a 3d 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 20 ┆ for i:=1 step 1 until ┆
0x238e0…238fc 38 32 20 64 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 0a 0a 20 20 ┆82 do begin ┆
0x238fc…23902 (0x194,0x473)
0x23902…23920 20 20 20 20 20 20 20 20 20 20 20 20 6e 61 76 6e 65 74 61 62 31 28 69 29 3a 3d 63 61 73 65 ┆ navnetab1(i):=case┆
0x23920…23940 20 69 20 6f 66 20 28 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 36 33 38 32 36 39 ┆ i of ( 638269┆
0x23940…23960 32 2c 20 36 33 38 35 32 35 32 2c 20 36 33 38 36 32 39 30 2c 20 36 33 38 36 35 33 36 2c 20 36 33 ┆2, 6385252, 6386290, 6386536, 63┆
0x23960…2397a 38 37 30 36 30 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 20 36 34 34 ┆87060 , 644┆
0x2397a…23980 (0x194,0x474)
0x23980…239a0 38 34 38 37 2c 20 36 34 35 31 30 34 34 2c 20 36 34 35 33 36 32 30 2c 20 36 35 31 33 30 30 34 2c ┆8487, 6451044, 6453620, 6513004,┆
0x239a0…239c0 20 36 35 31 33 30 31 31 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 20 36 35 31 35 38 31 ┆ 6513011 , 651581┆
0x239c0…239e0 33 2c 20 36 35 31 37 33 34 39 2c 20 36 35 38 30 35 39 35 2c 20 36 35 38 32 30 31 36 2c 20 36 35 ┆3, 6517349, 6580595, 6582016, 65┆
0x239e0…23a00 38 32 31 33 33 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 20 36 00 00 00 00 00 00 00 00 ┆82133 , 6 ┆
0x23a00…23a06 (285,) (0x194,0x475)
0x23a06…23a20 35 38 32 31 33 35 2c 20 36 35 38 34 36 38 36 2c 20 36 36 34 36 38 39 39 2c 20 ┆582135, 6584686, 6646899, ┆
0x23a20…23a40 36 36 34 37 33 39 33 2c 20 36 36 34 37 33 39 36 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆6647393, 6647396 ┆
0x23a40…23a60 2c 20 36 36 34 39 38 35 36 2c 20 36 36 34 39 39 35 35 2c 20 36 36 34 39 39 37 32 2c 20 36 36 39 ┆, 6649856, 6649955, 6649972, 669┆
0x23a60…23a7e 36 39 36 30 2c 20 36 36 39 37 32 31 36 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c ┆6960, 6697216 ,┆
0x23a7e…23a84 (0x194,0x476)
0x23a84…23aa0 20 36 36 39 37 34 37 32 2c 20 36 36 39 37 37 32 38 2c 20 36 37 31 32 34 33 31 2c 20 ┆ 6697472, 6697728, 6712431, ┆
0x23aa0…23ac0 36 37 31 33 32 30 32 2c 20 36 37 31 33 33 34 34 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆6713202, 6713344 ┆
0x23ac0…23ae0 2c 20 36 37 37 36 31 38 30 2c 20 36 37 37 38 37 34 30 2c 20 36 39 30 37 33 39 32 2c 20 36 39 30 ┆, 6776180, 6778740, 6907392, 690┆
0x23ae0…23afc 39 35 33 39 2c 20 36 39 30 39 35 35 31 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆9539, 6909551 ┆
0x23afc…23b02 (0x194,0x477)
0x23b02…23b20 20 2c 20 36 39 30 39 35 35 36 2c 20 37 30 33 38 33 32 39 2c 20 37 31 30 32 38 31 38 2c 20 ┆ , 6909556, 7038329, 7102818, ┆
0x23b20…23b40 37 31 30 32 38 34 31 2c 20 37 31 30 37 34 33 32 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆7102841, 7107432 ┆
0x23b40…23b60 2c 20 37 31 36 38 33 37 31 2c 20 37 31 37 31 39 34 30 2c 20 37 31 37 31 39 35 30 2c 20 37 32 33 ┆, 7168371, 7171940, 7171950, 723┆
0x23b60…23b7a 37 33 37 36 2c 20 37 32 33 37 34 39 30 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆7376, 7237490 ┆
0x23b7a…23b80 (0x194,0x478)
0x23b80…23ba0 20 20 20 2c 20 37 33 30 30 36 30 38 2c 20 37 33 30 32 37 35 37 2c 20 37 33 30 33 36 38 30 2c 20 ┆ , 7300608, 7302757, 7303680, ┆
0x23ba0…23bc0 37 33 36 39 33 32 37 2c 20 37 33 36 39 33 33 32 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆7369327, 7369332 ┆
0x23bc0…23be0 2c 20 37 34 39 37 30 35 37 2c 20 37 34 39 37 30 35 39 2c 20 37 34 39 37 30 36 32 2c 20 37 34 39 ┆, 7497057, 7497059, 7497062, 749┆
0x23be0…23c00 39 36 33 37 2c 20 37 35 36 36 34 33 37 0a 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆9637, 7566437 ┆
0x23c00…23c06 (286,) (0x194,0x479)
0x23c06…23c20 20 20 20 20 20 2c 20 37 36 32 38 31 35 32 2c 20 37 36 32 38 39 30 31 2c 20 37 ┆ , 7628152, 7628901, 7┆
0x23c20…23c40 36 39 36 35 30 30 2c 20 37 38 31 31 30 37 32 2c 20 37 38 31 31 33 32 38 0a 20 20 20 20 20 20 20 ┆696500, 7811072, 7811328 ┆
0x23c40…23c60 20 20 20 20 20 20 20 20 2c 20 37 38 31 31 35 38 34 2c 20 37 38 31 31 38 34 30 2c 20 37 38 32 35 ┆ , 7811584, 7811840, 7825┆
0x23c60…23c7e 35 31 33 2c 20 37 38 32 35 37 38 30 2c 20 37 38 32 37 33 31 34 0a 20 20 20 20 20 20 20 20 ┆513, 7825780, 7827314 ┆
0x23c7e…23c84 (0x194,0x47a)
0x23c84…23ca0 20 20 20 20 20 20 20 2c 20 37 38 32 38 30 37 33 2c 20 37 38 39 32 38 35 30 2c 20 37 ┆ , 7828073, 7892850, 7┆
0x23ca0…23cc0 39 35 35 38 32 37 2c 20 38 30 32 31 33 36 32 2c 20 36 33 38 37 30 36 30 0a 20 20 20 20 20 20 20 ┆955827, 8021362, 6387060 ┆
0x23cc0…23ce0 20 20 20 20 20 20 20 20 2c 20 36 34 35 31 38 30 39 2c 20 36 35 31 36 35 38 30 2c 20 36 37 31 33 ┆ , 6451809, 6516580, 6713┆
0x23ce0…23cfc 33 34 34 2c 20 36 37 37 36 31 38 30 2c 20 36 38 34 30 36 38 34 2c 20 37 31 30 33 38 ┆344, 6776180, 6840684, 71038┆
0x23cfc…23d02 (0x194,0x47b)
0x23d02…23d20 35 34 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 20 37 31 30 34 38 38 33 2c 20 37 ┆54 , 7104883, 7┆
0x23d20…23d40 31 37 31 39 35 30 2c 20 37 33 36 38 35 36 33 2c 20 37 35 36 31 35 39 30 2c 20 37 35 36 32 35 39 ┆171950, 7368563, 7561590, 756259┆
0x23d40…23d60 35 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 20 37 36 32 38 31 34 37 29 3b 0a 0a 20 20 ┆5 , 7628147); ┆
0x23d60…23d7a 20 20 20 20 20 20 20 20 20 20 20 20 6e 61 76 6e 65 74 61 62 32 28 69 29 3a 3d ┆ navnetab2(i):=┆
0x23d7a…23d80 (0x194,0x47c)
0x23d80…23da0 63 61 73 65 20 69 20 6f 66 20 28 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 37 34 ┆case i of ( 74┆
0x23da0…23dc0 39 37 30 37 35 2c 20 20 20 20 20 20 20 30 2c 20 36 33 38 37 39 36 38 2c 20 36 39 30 37 35 30 38 ┆97075, 0, 6387968, 6907508┆
0x23dc0…23de0 2c 20 37 33 30 32 32 35 35 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 20 36 39 30 39 34 ┆, 7302255 , 69094┆
0x23de0…23e00 34 30 2c 20 37 39 32 39 38 35 36 2c 20 36 36 31 39 31 33 36 2c 20 37 30 00 00 00 00 00 00 00 00 ┆40, 7929856, 6619136, 70 ┆
0x23e00…23e06 (287,) (0x194,0x47d)
0x23e06…23e20 37 37 38 38 38 2c 20 36 36 31 39 31 33 36 0a 20 20 20 20 20 20 20 20 20 20 20 ┆77888, 6619136 ┆
0x23e20…23e40 20 20 20 20 2c 20 36 33 38 36 31 37 36 2c 20 36 33 38 36 37 38 39 2c 20 36 33 38 32 31 38 38 2c ┆ , 6386176, 6386789, 6382188,┆
0x23e40…23e60 20 20 20 20 20 20 20 30 2c 20 36 34 35 30 32 37 37 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 0, 6450277 ┆
0x23e60…23e7e 20 2c 20 37 32 33 38 37 36 37 2c 20 36 33 38 35 30 30 31 2c 20 36 36 31 39 31 33 36 2c 20 ┆ , 7238767, 6385001, 6619136, ┆
0x23e7e…23e84 (0x194,0x47e)
0x23e84…23ea0 36 34 35 30 32 37 37 2c 20 20 20 20 20 20 20 30 0a 20 20 20 20 20 20 20 20 20 20 20 ┆6450277, 0 ┆
0x23ea0…23ec0 20 20 20 20 2c 20 20 20 20 20 20 20 30 2c 20 36 38 31 35 37 34 34 2c 20 37 34 39 36 30 33 35 2c ┆ , 0, 6815744, 7496035,┆
0x23ec0…23ee0 20 20 20 20 20 20 20 30 2c 20 20 20 20 20 20 20 30 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 0, 0 ┆
0x23ee0…23efc 20 2c 20 20 20 20 20 20 20 30 2c 20 20 20 20 20 20 20 30 2c 20 36 33 38 36 36 38 38 ┆ , 0, 0, 6386688┆
0x23efc…23f02 (0x194,0x47f)
0x23f02…23f20 2c 20 20 20 20 20 20 20 30 2c 20 20 20 20 20 20 20 30 0a 20 20 20 20 20 20 20 20 20 20 20 ┆, 0, 0 ┆
0x23f20…23f40 20 20 20 20 2c 20 36 35 31 34 37 38 35 2c 20 37 32 37 34 34 39 36 2c 20 20 20 20 20 20 20 30 2c ┆ , 6514785, 7274496, 0,┆
0x23f40…23f60 20 37 33 30 30 31 39 37 2c 20 37 36 39 37 34 30 38 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 7300197, 7697408 ┆
0x23f60…23f7a 20 2c 20 37 34 37 31 31 30 34 2c 20 20 20 20 20 20 20 30 2c 20 36 36 34 36 37 ┆ , 7471104, 0, 66467┆
0x23f7a…23f80 (0x194,0x480)
0x23f80…23fa0 38 34 2c 20 37 33 30 34 35 36 34 2c 20 36 39 30 37 35 30 38 0a 20 20 20 20 20 20 20 20 20 20 20 ┆84, 7304564, 6907508 ┆
0x23fa0…23fc0 20 20 20 20 2c 20 37 30 31 32 33 35 32 2c 20 20 20 20 20 20 20 30 2c 20 36 39 31 31 30 38 37 2c ┆ , 7012352, 0, 6911087,┆
0x23fc0…23fe0 20 20 20 20 20 20 20 30 2c 20 37 31 34 33 34 32 34 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 0, 7143424 ┆
0x23fe0…24000 20 2c 20 20 20 20 20 20 20 30 2c 20 37 31 36 38 33 37 31 2c 20 20 20 20 00 00 00 00 00 00 00 00 ┆ , 0, 7168371, ┆
0x24000…24006 (288,) (0x194,0x481)
0x24006…24020 20 20 20 30 2c 20 36 35 31 34 30 32 30 2c 20 20 20 20 20 20 20 30 0a 20 20 20 ┆ 0, 6514020, 0 ┆
0x24020…24040 20 20 20 20 20 20 20 20 20 20 20 20 2c 20 37 30 37 37 38 38 38 2c 20 37 33 30 33 37 38 30 2c 20 ┆ , 7077888, 7303780, ┆
0x24040…24060 20 20 20 20 20 20 30 2c 20 37 32 33 34 35 36 30 2c 20 37 33 34 30 30 33 32 0a 20 20 20 20 20 20 ┆ 0, 7234560, 7340032 ┆
0x24060…2407e 20 20 20 20 20 20 20 20 20 2c 20 37 36 30 32 31 37 36 2c 20 37 32 30 38 39 36 30 2c 20 37 ┆ , 7602176, 7208960, 7┆
0x2407e…24084 (0x194,0x482)
0x24084…240a0 32 37 34 34 39 36 2c 20 20 20 20 20 20 20 30 2c 20 20 20 20 20 20 20 30 0a 20 20 20 ┆274496, 0, 0 ┆
0x240a0…240c0 20 20 20 20 20 20 20 20 20 20 20 20 2c 20 20 20 20 20 20 20 30 2c 20 20 20 20 20 20 20 30 2c 20 ┆ , 0, 0, ┆
0x240c0…240e0 37 31 30 33 37 34 34 2c 20 36 38 31 35 37 34 34 2c 20 36 35 35 33 36 30 30 0a 20 20 20 20 20 20 ┆7103744, 6815744, 6553600 ┆
0x240e0…240fc 20 20 20 20 20 20 20 20 20 2c 20 37 36 32 38 30 33 32 2c 20 20 20 20 20 20 20 30 2c ┆ , 7628032, 0,┆
0x240fc…24102 (0x194,0x483)
0x24102…24120 20 20 20 20 20 20 20 30 2c 20 37 33 30 32 34 39 37 2c 20 37 33 30 34 32 38 39 0a 20 20 20 ┆ 0, 7302497, 7304289 ┆
0x24120…24140 20 20 20 20 20 20 20 20 20 20 20 20 2c 20 37 32 33 34 34 30 38 2c 20 36 36 31 39 31 33 36 2c 20 ┆ , 7234408, 6619136, ┆
0x24140…24160 20 20 20 20 20 20 30 2c 20 20 20 20 20 20 20 30 2c 20 37 36 30 32 31 37 36 2c 20 36 37 38 30 30 ┆ 0, 0, 7602176, 67800┆
0x24160…2417a 30 38 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 20 37 36 30 32 31 37 ┆08 , 760217┆
0x2417a…24180 (0x194,0x484)
0x24180…241a0 36 2c 20 36 39 31 31 30 38 37 2c 20 36 39 31 31 30 38 31 2c 20 36 36 31 39 31 33 36 2c 20 37 36 ┆6, 6911087, 6911081, 6619136, 76┆
0x241a0…241c0 32 39 31 36 37 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 20 37 36 30 32 31 37 36 29 3b ┆29167 , 7602176);┆
0x241c0…241e0 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 61 76 6e 65 74 61 62 33 28 69 29 3a 3d 63 61 ┆ navnetab3(i):=ca┆
0x241e0…24200 73 65 20 69 20 6f 66 20 28 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆se i of ( ┆
0x24200…24206 (289,) (0x194,0x485)
0x24206…24220 20 20 20 20 37 35 33 36 36 34 30 2c 20 20 20 20 20 20 20 30 2c 20 20 20 20 20 ┆ 7536640, 0, ┆
0x24220…24240 20 20 30 2c 20 20 20 20 20 20 20 30 2c 20 36 33 38 32 35 39 32 0a 20 20 20 20 20 20 20 20 20 20 ┆ 0, 0, 6382592 ┆
0x24240…24260 20 20 20 20 20 2c 20 20 20 20 20 20 20 30 2c 20 20 20 20 20 20 20 30 2c 20 20 20 20 20 20 20 30 ┆ , 0, 0, 0┆
0x24260…2427e 2c 20 20 20 20 20 20 20 30 2c 20 20 20 20 20 20 20 30 0a 20 20 20 20 20 20 20 20 20 20 20 ┆, 0, 0 ┆
0x2427e…24284 (0x194,0x486)
0x24284…242a0 20 20 20 20 2c 20 20 20 20 20 20 20 30 2c 20 20 20 20 20 20 20 30 2c 20 36 36 34 34 ┆ , 0, 0, 6644┆
0x242a0…242c0 37 33 36 2c 20 20 20 20 20 20 20 30 2c 20 20 20 20 20 20 20 30 0a 20 20 20 20 20 20 20 20 20 20 ┆736, 0, 0 ┆
0x242c0…242e0 20 20 20 20 20 2c 20 20 20 20 20 20 20 30 2c 20 36 34 38 38 30 36 34 2c 20 20 20 20 20 20 20 30 ┆ , 0, 6488064, 0┆
0x242e0…242fc 2c 20 36 35 35 33 36 30 30 2c 20 20 20 20 20 20 20 30 0a 20 20 20 20 20 20 20 20 20 ┆, 6553600, 0 ┆
0x242fc…24302 (0x194,0x487)
0x24302…24320 20 20 20 20 20 20 2c 20 20 20 20 20 20 20 30 2c 20 20 20 20 20 20 20 30 2c 20 37 36 30 32 ┆ , 0, 0, 7602┆
0x24320…24340 31 37 36 2c 20 20 20 20 20 20 20 30 2c 20 20 20 20 20 20 20 30 0a 20 20 20 20 20 20 20 20 20 20 ┆176, 0, 0 ┆
0x24340…24360 20 20 20 20 20 2c 20 20 20 20 20 20 20 30 2c 20 20 20 20 20 20 20 30 2c 20 20 20 20 20 20 20 30 ┆ , 0, 0, 0┆
0x24360…2437a 2c 20 20 20 20 20 20 20 30 2c 20 20 20 20 20 20 20 30 0a 20 20 20 20 20 20 20 ┆, 0, 0 ┆
0x2437a…24380 (0x194,0x488)
0x24380…243a0 20 20 20 20 20 20 20 20 2c 20 37 34 37 31 31 30 34 2c 20 20 20 20 20 20 20 30 2c 20 20 20 20 20 ┆ , 7471104, 0, ┆
0x243a0…243c0 20 20 30 2c 20 20 20 20 20 20 20 30 2c 20 20 20 20 20 20 20 30 0a 20 20 20 20 20 20 20 20 20 20 ┆ 0, 0, 0 ┆
0x243c0…243e0 20 20 20 20 20 2c 20 20 20 20 20 20 20 30 2c 20 20 20 20 20 20 20 30 2c 20 20 20 20 20 20 20 30 ┆ , 0, 0, 0┆
0x243e0…24400 2c 20 20 20 20 20 20 20 30 2c 20 20 20 20 20 20 20 30 0a 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆, 0, 0 ┆
0x24400…24406 (290,) (0x194,0x489)
0x24406…24420 20 20 20 20 20 20 20 20 20 20 2c 20 20 20 20 20 20 20 30 2c 20 20 20 20 20 20 ┆ , 0, ┆
0x24420…24440 20 30 2c 20 37 34 37 31 31 30 34 2c 20 20 20 20 20 20 20 30 2c 20 20 20 20 20 20 20 30 0a 20 20 ┆ 0, 7471104, 0, 0 ┆
0x24440…24460 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 20 20 20 20 20 20 20 30 2c 20 37 30 31 32 33 35 32 2c ┆ , 0, 7012352,┆
0x24460…2447e 20 20 20 20 20 20 20 30 2c 20 37 36 39 36 39 39 37 2c 20 20 20 20 20 20 20 30 0a 20 20 20 ┆ 0, 7696997, 0 ┆
0x2447e…24484 (0x194,0x48a)
0x24484…244a0 20 20 20 20 20 20 20 20 20 20 20 20 2c 20 20 20 20 20 20 20 30 2c 20 20 20 20 20 20 ┆ , 0, ┆
0x244a0…244c0 20 30 2c 20 20 20 20 20 20 20 30 2c 20 20 20 20 20 20 20 30 2c 20 20 20 20 20 20 20 30 0a 20 20 ┆ 0, 0, 0, 0 ┆
0x244c0…244e0 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 20 20 20 20 20 20 20 30 2c 20 20 20 20 20 20 20 30 2c ┆ , 0, 0,┆
0x244e0…244fc 20 20 20 20 20 20 20 30 2c 20 20 20 20 20 20 20 30 2c 20 20 20 20 20 20 20 30 0a 20 ┆ 0, 0, 0 ┆
0x244fc…24502 (0x194,0x48b)
0x24502…24520 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 20 20 20 20 20 20 20 30 2c 20 20 20 20 20 20 ┆ , 0, ┆
0x24520…24540 20 30 2c 20 20 20 20 20 20 20 30 2c 20 20 20 20 20 20 20 30 2c 20 20 20 20 20 20 20 30 0a 20 20 ┆ 0, 0, 0, 0 ┆
0x24540…24560 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 20 20 20 20 20 20 20 30 2c 20 20 20 20 20 20 20 30 2c ┆ , 0, 0,┆
0x24560…2457a 20 20 20 20 20 20 20 30 2c 20 37 35 36 34 30 33 32 2c 20 37 33 36 35 38 38 38 ┆ 0, 7564032, 7365888┆
0x2457a…24580 (0x194,0x48c)
0x24580…245a0 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 20 20 20 20 20 20 20 30 2c 20 20 20 20 20 20 ┆ , 0, ┆
0x245a0…245c0 20 30 2c 20 20 20 20 20 20 20 30 2c 20 20 20 20 20 20 20 30 2c 20 20 20 20 20 20 20 30 2c 20 20 ┆ 0, 0, 0, 0, ┆
0x245c0…245e0 20 20 20 20 20 30 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 20 20 20 20 20 20 20 30 2c ┆ 0 , 0,┆
0x245e0…24600 20 37 34 37 31 31 30 34 2c 20 37 33 30 32 36 35 36 2c 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ 7471104, 7302656, ┆
0x24600…24606 (291,) (0x194,0x48d)
0x24606…24620 20 30 2c 20 37 32 33 38 34 30 30 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 0, 7238400 ┆
0x24620…24640 20 2c 20 20 20 20 20 20 20 30 29 3b 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 61 76 6e ┆ , 0); navn┆
0x24640…24660 65 74 61 62 34 28 69 29 3a 3d 63 61 73 65 20 69 20 6f 66 20 28 0a 0a 20 20 20 20 20 20 20 20 20 ┆etab4(i):=case i of ( ┆
0x24660…2467e 20 20 20 20 20 20 20 20 20 20 20 20 20 31 31 2c 20 20 20 20 20 37 32 38 2c 20 20 20 20 20 ┆ 11, 728, ┆
0x2467e…24684 (0x194,0x48e)
0x24684…246a0 20 31 32 2c 20 20 20 20 20 37 39 32 2c 20 20 20 20 20 20 31 33 0a 20 20 20 20 20 20 ┆ 12, 792, 13 ┆
0x246a0…246c0 20 20 20 20 20 20 20 20 20 2c 20 20 20 20 20 20 31 34 2c 20 20 20 20 20 20 31 36 2c 20 20 20 20 ┆ , 14, 16, ┆
0x246c0…246e0 20 31 31 35 2c 20 20 20 20 20 20 31 37 2c 20 20 20 20 20 20 31 38 0a 20 20 20 20 20 20 20 20 20 ┆ 115, 17, 18 ┆
0x246e0…246fc 20 20 20 20 20 20 2c 20 20 20 20 20 20 31 39 2c 20 20 20 20 20 20 32 31 2c 20 20 20 ┆ , 19, 21, ┆
0x246fc…24702 (0x194,0x48f)
0x24702…24720 20 20 20 37 33 2c 20 20 20 20 20 20 32 32 2c 20 20 20 20 20 33 37 31 0a 20 20 20 20 20 20 ┆ 73, 22, 371 ┆
0x24720…24740 20 20 20 20 20 20 20 20 20 2c 20 20 20 20 20 20 32 33 2c 20 20 20 20 20 32 32 37 2c 20 20 20 20 ┆ , 23, 227, ┆
0x24740…24760 20 20 32 35 2c 20 20 20 20 20 31 33 37 2c 20 20 20 20 20 20 32 36 0a 20 20 20 20 20 20 20 20 20 ┆ 25, 137, 26 ┆
0x24760…2477a 20 20 20 20 20 20 2c 20 20 20 20 20 31 37 34 2c 20 20 20 20 20 20 35 36 2c 20 ┆ , 174, 56, ┆
0x2477a…24780 (0x194,0x490)
0x24780…247a0 20 20 20 20 38 35 36 2c 20 20 20 20 20 33 30 30 2c 20 20 20 20 20 33 36 34 0a 20 20 20 20 20 20 ┆ 856, 300, 364 ┆
0x247a0…247c0 20 20 20 20 20 20 20 20 20 2c 20 20 20 20 20 34 32 38 2c 20 20 20 20 20 34 39 32 2c 20 20 20 20 ┆ , 428, 492, ┆
0x247c0…247e0 20 31 36 35 2c 20 20 20 20 20 20 32 37 2c 20 20 20 20 20 20 32 38 0a 20 20 20 20 20 20 20 20 20 ┆ 165, 27, 28 ┆
0x247e0…24800 20 20 20 20 20 20 2c 20 20 20 20 20 20 32 39 2c 20 20 20 20 20 20 33 30 00 00 00 00 00 00 00 00 ┆ , 29, 30 ┆
0x24800…24806 (292,) (0x194,0x491)
0x24806…24820 2c 20 20 20 20 20 20 33 31 2c 20 20 20 20 20 31 36 33 2c 20 20 20 20 20 20 31 ┆, 31, 163, 1┆
0x24820…24840 30 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 20 20 20 20 20 32 33 38 2c 20 20 20 20 20 ┆0 , 238, ┆
0x24840…24860 20 33 32 2c 20 20 20 20 20 20 33 33 2c 20 20 20 20 20 20 33 34 2c 20 20 20 20 38 39 38 34 0a 20 ┆ 32, 33, 34, 8984 ┆
0x24860…2487e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 20 20 20 20 20 33 30 32 2c 20 20 20 20 20 34 ┆ , 302, 4┆
0x2487e…24884 (0x194,0x492)
0x24884…248a0 37 32 2c 20 20 20 20 20 20 33 36 2c 20 20 20 20 20 20 37 39 2c 20 20 20 20 20 20 33 ┆72, 36, 79, 3┆
0x248a0…248c0 39 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 20 20 20 20 20 20 34 30 2c 20 20 20 20 20 ┆9 , 40, ┆
0x248c0…248e0 33 36 35 2c 20 20 20 20 34 38 32 34 2c 20 20 20 20 20 20 34 32 2c 20 20 20 20 20 31 31 30 0a 20 ┆365, 4824, 42, 110 ┆
0x248e0…248fc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 20 20 20 20 20 33 30 37 2c 20 20 20 20 ┆ , 307, ┆
0x248fc…24902 (0x194,0x493)
0x24902…24920 20 20 34 33 2c 20 20 20 20 20 31 37 39 2c 20 20 20 20 20 31 30 31 2c 20 20 20 20 20 20 34 ┆ 43, 179, 101, 4┆
0x24920…24940 37 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 20 20 20 20 20 20 34 39 2c 20 20 20 20 20 ┆7 , 49, ┆
0x24940…24960 20 35 30 2c 20 20 20 20 20 20 35 32 2c 20 20 20 20 20 20 34 34 2c 20 20 20 20 20 31 30 38 0a 20 ┆ 50, 52, 44, 108 ┆
0x24960…2497a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 20 20 20 20 20 31 37 32 2c 20 20 ┆ , 172, ┆
0x2497a…24980 (0x194,0x494)
0x24980…249a0 20 20 20 32 33 36 2c 20 20 20 20 20 20 35 33 2c 20 20 20 20 20 20 35 34 2c 20 20 20 20 20 32 34 ┆ 236, 53, 54, 24┆
0x249a0…249c0 33 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 20 20 20 20 20 20 35 35 2c 20 20 20 20 38 ┆3 , 55, 8┆
0x249c0…249e0 39 32 30 2c 20 20 20 20 20 31 34 33 2c 20 20 20 20 20 34 32 39 2c 20 20 20 20 34 31 38 30 0a 20 ┆920, 143, 429, 4180 ┆
0x249e0…24a00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 20 20 20 20 34 32 34 34 2c 00 00 00 00 00 00 00 00 ┆ , 4244, ┆
0x24a00…24a06 (293,) (0x194,0x495)
0x24a06…24a20 20 20 20 20 34 33 30 38 2c 20 20 20 20 38 34 30 34 2c 20 20 20 20 38 32 37 36 ┆ 4308, 8404, 8276┆
0x24a20…24a40 2c 20 20 20 32 30 35 36 34 2c 20 20 20 20 34 33 37 32 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆, 20564, 4372 ┆
0x24a40…24a60 20 20 2c 20 20 20 31 32 35 30 30 2c 20 20 20 31 36 35 39 36 2c 20 20 20 20 38 34 36 38 2c 20 20 ┆ , 12500, 16596, 8468, ┆
0x24a60…24a7e 20 31 36 34 36 38 2c 20 20 20 31 32 33 37 32 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 16468, 12372 ┆
0x24a7e…24a84 (0x194,0x496)
0x24a84…24aa0 20 2c 20 20 20 20 34 31 38 30 29 3b 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e ┆ , 4180); en┆
0x24aa0…24ac0 64 3b 20 0a 20 0a 20 0a 20 20 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 2a 2a 2a 20 20 20 66 70 ┆d; comment *** fp┆
0x24ac0…24ae0 2d 76 7b 72 64 69 65 72 20 20 28 68 6e 61 76 6e 65 29 20 20 20 2a 2a 2a 3b 0a 20 0a 20 20 20 20 ┆-værdier (hnavne) ***; ┆
0x24ae0…24afc 20 20 20 20 20 20 20 66 6f 72 20 69 3a 3d 30 20 73 74 65 70 20 31 20 75 6e 74 69 6c ┆ for i:=0 step 1 until┆
0x24afc…24b02 (0x194,0x497)
0x24b02…24b20 20 39 39 20 64 6f 20 68 6e 61 76 6e 65 28 69 29 3a 3d 63 61 73 65 20 69 2b 31 20 6f 66 20 ┆ 99 do hnavne(i):=case i+1 of ┆
0x24b20…24b40 28 0a 0a 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 32 32 35 32 2c 20 20 20 31 32 32 ┆( 12252, 122┆
0x24b40…24b60 36 32 2c 20 20 20 31 32 32 38 30 2c 20 20 20 31 32 32 38 38 2c 20 20 20 31 32 32 39 36 0a 20 20 ┆62, 12280, 12288, 12296 ┆
0x24b60…24b7a 20 20 20 20 20 20 20 20 20 2c 20 20 20 31 32 33 33 38 2c 20 20 20 31 32 33 31 ┆ , 12338, 1231┆
0x24b7a…24b80 (0x194,0x498)
0x24b80…24ba0 32 2c 20 20 20 20 34 31 34 34 2c 20 20 20 20 38 32 38 34 2c 20 20 20 20 38 32 38 32 0a 20 20 20 ┆2, 4144, 8284, 8282 ┆
0x24ba0…24bc0 20 20 20 20 20 20 20 20 2c 20 20 20 20 38 31 39 34 2c 20 20 20 20 31 33 33 34 2c 20 20 20 20 20 ┆ , 8194, 1334, ┆
0x24bc0…24be0 20 20 30 2c 20 20 20 20 20 35 31 32 2c 20 20 20 20 35 34 32 34 0a 20 20 20 20 20 20 20 20 20 20 ┆ 0, 512, 5424 ┆
0x24be0…24c00 20 2c 20 20 20 20 38 33 30 30 2c 20 20 20 20 38 33 30 32 2c 20 20 20 32 00 00 00 00 00 00 00 00 ┆ , 8300, 8302, 2 ┆
0x24c00…24c06 (294,) (0x194,0x499)
0x24c06…24c20 34 36 39 30 2c 20 20 20 20 20 20 37 38 2c 20 20 20 20 38 34 37 38 0a 20 20 20 ┆4690, 78, 8478 ┆
0x24c20…24c40 20 20 20 20 20 20 20 20 2c 20 20 20 20 38 35 35 32 2c 20 20 20 20 38 36 30 32 2c 20 20 20 32 31 ┆ , 8552, 8602, 21┆
0x24c40…24c60 30 30 32 2c 20 20 20 20 34 36 33 34 2c 20 20 20 35 34 36 39 30 0a 20 20 20 20 20 20 20 20 20 20 ┆002, 4634, 54690 ┆
0x24c60…24c7e 20 2c 20 20 20 32 31 33 32 38 2c 20 20 20 32 31 33 37 32 2c 20 20 20 32 31 39 34 34 2c 20 ┆ , 21328, 21372, 21944, ┆
0x24c7e…24c84 (0x194,0x49a)
0x24c84…24ca0 20 20 20 35 35 36 36 2c 20 20 20 33 38 32 37 30 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ 5566, 38270 ┆
0x24ca0…24cc0 2c 20 20 20 33 38 32 39 30 2c 20 20 20 32 31 34 39 34 2c 20 20 20 32 31 35 32 38 2c 20 20 20 32 ┆, 38290, 21494, 21528, 2┆
0x24cc0…24ce0 31 34 31 38 2c 20 20 20 20 35 30 35 38 0a 20 20 20 20 20 20 20 20 20 20 20 2c 20 20 20 20 35 33 ┆1418, 5058 , 53┆
0x24ce0…24cfc 38 32 2c 20 20 20 20 34 37 35 32 2c 20 20 20 20 20 34 36 32 2c 20 20 20 20 31 33 35 ┆82, 4752, 462, 135┆
0x24cfc…24d02 (0x194,0x49b)
0x24d02…24d20 38 2c 20 20 20 20 20 39 33 34 0a 20 20 20 20 20 20 20 20 20 20 20 2c 20 20 20 20 39 33 32 ┆8, 934 , 932┆
0x24d20…24d40 30 2c 20 20 20 20 31 31 35 34 2c 20 20 20 20 31 31 34 38 2c 20 20 20 20 31 31 39 34 2c 20 20 20 ┆0, 1154, 1148, 1194, ┆
0x24d40…24d60 20 39 33 33 30 0a 20 20 20 20 20 20 20 20 20 20 20 2c 20 20 20 20 31 31 36 32 2c 20 20 20 20 31 ┆ 9330 , 1162, 1┆
0x24d60…24d7a 31 37 30 2c 20 20 20 20 31 31 35 30 2c 20 20 20 35 33 38 32 32 2c 20 20 20 20 ┆170, 1150, 53822, ┆
0x24d7a…24d80 (0x194,0x49c)
0x24d80…24da0 31 31 35 36 0a 20 20 20 20 20 20 20 20 20 20 20 2c 20 20 20 20 20 31 30 30 2c 20 20 20 31 32 33 ┆1156 , 100, 123┆
0x24da0…24dc0 38 36 2c 20 20 20 20 20 31 31 38 2c 20 20 20 20 20 32 35 30 2c 20 20 20 20 38 36 38 34 0a 20 20 ┆86, 118, 250, 8684 ┆
0x24dc0…24de0 20 20 20 20 20 20 20 20 20 2c 20 20 20 31 33 38 32 34 2c 20 20 20 20 31 30 32 34 2c 20 20 20 20 ┆ , 13824, 1024, ┆
0x24de0…24e00 20 20 20 30 2c 20 20 20 20 38 34 33 36 2c 20 20 20 20 20 39 33 32 0a 20 00 00 00 00 00 00 00 00 ┆ 0, 8436, 932 ┆
0x24e00…24e06 (295,) (0x194,0x49d)
0x24e06…24e20 20 20 20 20 20 20 20 20 20 20 2c 20 20 20 20 31 32 31 38 2c 20 20 20 20 31 32 ┆ , 1218, 12┆
0x24e20…24e40 31 36 2c 20 20 20 20 31 32 31 34 2c 20 20 20 20 31 32 31 32 2c 20 20 20 20 31 32 31 30 0a 20 20 ┆16, 1214, 1212, 1210 ┆
0x24e40…24e60 20 20 20 20 20 20 20 20 20 2c 20 20 20 20 20 20 33 32 2c 20 20 20 20 38 36 36 38 2c 20 20 20 20 ┆ , 32, 8668, ┆
0x24e60…24e7e 35 34 32 32 2c 20 20 20 20 34 31 34 30 2c 20 20 20 20 31 32 35 30 0a 20 20 20 20 20 20 20 ┆5422, 4140, 1250 ┆
0x24e7e…24e84 (0x194,0x49e)
0x24e84…24ea0 20 20 20 20 2c 20 20 20 20 31 32 33 34 2c 20 20 20 20 31 32 33 32 2c 20 20 20 20 31 ┆ , 1234, 1232, 1┆
0x24ea0…24ec0 32 33 30 2c 20 20 20 20 31 32 32 38 2c 20 20 20 20 31 32 32 36 0a 20 20 20 20 20 20 20 20 20 20 ┆230, 1228, 1226 ┆
0x24ec0…24ee0 20 2c 20 20 20 20 31 32 32 34 2c 20 20 20 20 20 20 20 30 2c 20 20 20 20 31 32 32 32 2c 20 20 20 ┆ , 1224, 0, 1222, ┆
0x24ee0…24efc 20 31 32 32 30 2c 20 20 20 35 34 37 32 36 0a 20 20 20 20 20 20 20 20 20 20 20 2c 20 ┆ 1220, 54726 , ┆
0x24efc…24f02 (0x194,0x49f)
0x24f02…24f20 20 20 20 38 34 39 32 2c 20 20 20 20 39 36 37 36 2c 20 20 20 20 39 37 30 30 2c 20 20 20 20 ┆ 8492, 9676, 9700, ┆
0x24f20…24f40 20 20 38 38 2c 20 20 20 20 20 34 33 30 0a 20 20 20 20 20 20 20 20 20 20 20 2c 20 20 20 20 31 31 ┆ 88, 430 , 11┆
0x24f40…24f60 38 36 2c 20 20 20 20 20 37 36 36 2c 20 20 20 20 20 36 33 38 2c 20 20 20 20 20 37 37 34 2c 20 20 ┆86, 766, 638, 774, ┆
0x24f60…24f7a 20 20 31 33 36 38 0a 20 20 20 20 20 20 20 20 20 20 20 2c 20 20 20 20 20 20 20 ┆ 1368 , ┆
0x24f7a…24f80 (0x194,0x4a0)
0x24f80…24fa0 31 2c 20 20 20 20 20 20 20 31 2c 20 20 20 20 20 32 38 30 2c 20 20 20 20 20 33 35 34 2c 20 20 20 ┆1, 1, 280, 354, ┆
0x24fa0…24fc0 20 20 34 30 34 0a 20 20 20 20 20 20 20 20 20 20 20 2c 20 20 20 20 34 32 32 30 2c 20 20 20 20 20 ┆ 404 , 4220, ┆
0x24fc0…24fe0 20 39 36 2c 20 20 20 20 20 20 39 37 2c 20 20 20 20 20 20 39 38 2c 20 20 20 20 20 20 31 31 29 3b ┆ 96, 97, 98, 11);┆
0x24fe0…25000 0a 20 0a 20 20 0a 20 0a 0a 20 20 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 00 00 00 00 00 00 00 00 ┆ comment ┆
0x25000…25006 (296,) (0x194,0x4a1)
0x25006…25020 20 2a 2a 2a 20 20 20 74 61 62 65 6c 20 6f 76 65 72 20 73 6b 69 6c 6c 65 74 65 ┆ *** tabel over skillete┆
0x25020…25040 67 6e 20 20 20 2a 2a 2a 3b 0a 20 0a 20 20 20 20 20 20 20 20 66 6f 72 20 69 3a 3d 34 30 20 73 74 ┆gn ***; for i:=40 st┆
0x25040…25060 65 70 20 31 20 75 6e 74 69 6c 20 36 32 20 64 6f 20 73 6b 69 6c 74 61 62 28 69 29 3a 3d 63 61 73 ┆ep 1 until 62 do skiltab(i):=cas┆
0x25060…2507e 65 20 69 2d 33 39 20 6f 66 0a 0a 0a 20 20 20 20 20 20 20 20 28 20 20 20 31 2c 20 20 20 32 ┆e i-39 of ( 1, 2┆
0x2507e…25084 (0x194,0x4a2)
0x25084…250a0 2c 20 32 38 30 2c 20 20 20 30 2c 20 20 20 33 2c 20 20 20 30 2c 20 20 20 30 2c 20 33 ┆, 280, 0, 3, 0, 0, 3┆
0x250a0…250c0 34 34 2c 20 20 20 30 2c 20 20 20 30 2c 20 20 20 30 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 30 ┆44, 0, 0, 0, 0┆
0x250c0…250e0 2c 20 20 20 30 2c 20 20 20 30 2c 20 20 20 30 2c 20 20 20 30 2c 20 20 20 30 2c 20 20 20 30 2c 20 ┆, 0, 0, 0, 0, 0, 0, ┆
0x250e0…250fc 20 20 36 2c 20 20 20 38 2c 20 31 37 33 2c 20 32 33 37 2c 20 31 30 39 29 3b 0a 0a 20 ┆ 6, 8, 173, 237, 109); ┆
0x250fc…25102 (0x194,0x4a3)
0x25102…25120 0a 20 20 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 2a 2a 2a 20 20 20 74 61 62 65 6c 20 6f ┆ comment *** tabel o┆
0x25120…25140 76 65 72 20 74 79 70 65 2d 6f 70 65 72 61 74 6f 72 2d 6b 6f 6d 62 69 6e 61 74 69 6f 6e 65 72 20 ┆ver type-operator-kombinationer ┆
0x25140…25160 6f 67 20 74 69 6c 2d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 68 7c ┆og til- hø┆
0x25160…2517a 72 65 6e 64 65 20 6d 61 73 6b 69 6e 6f 72 64 72 65 72 20 20 20 20 20 20 20 20 ┆rende maskinordrer ┆
0x2517a…25180 (0x194,0x4a4)
0x25180…251a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 2a 3b 0a 20 0a 20 20 20 20 20 20 ┆ ***; ┆
0x251a0…251c0 20 20 66 6f 72 20 69 3a 3d 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 31 34 36 20 64 6f 20 64 ┆ for i:=1 step 1 until 146 do d┆
0x251c0…251e0 79 6f 70 74 61 62 28 69 29 3a 3d 63 61 73 65 20 69 20 6f 66 20 28 0a 0a 20 20 20 20 20 20 20 20 ┆yoptab(i):=case i of ( ┆
0x251e0…25200 20 20 20 20 20 20 32 36 33 34 32 34 2c 20 20 32 36 36 33 39 32 2c 20 20 00 00 00 00 00 00 00 00 ┆ 263424, 266392, ┆
0x25200…25206 (297,) (0x194,0x4a5)
0x25206…25220 32 37 31 36 33 32 2c 20 20 32 37 35 37 33 36 2c 20 20 34 37 38 36 32 34 2c 0a ┆271632, 275736, 478624, ┆
0x25220…25240 20 20 20 20 20 20 20 20 20 20 20 20 20 20 34 38 32 37 32 38 2c 20 20 34 38 36 38 33 32 2c 20 20 ┆ 482728, 486832, ┆
0x25240…25260 35 32 34 37 36 30 2c 20 20 35 32 39 35 36 30 2c 20 20 35 33 32 39 34 34 2c 0a 20 20 20 20 20 20 ┆524760, 529560, 532944, ┆
0x25260…2527e 20 20 20 20 20 20 20 20 35 33 37 30 34 38 2c 20 20 35 39 35 30 38 38 2c 20 20 35 39 38 34 ┆ 537048, 595088, 5984┆
0x2527e…25284 (0x194,0x4a6)
0x25284…252a0 38 30 2c 20 20 36 30 32 35 37 36 2c 20 20 36 32 33 30 36 34 2c 0a 20 20 20 20 20 20 ┆80, 602576, 623064, ┆
0x252a0…252c0 20 20 20 20 20 20 20 20 36 32 37 38 36 34 2c 20 20 36 33 35 33 35 32 2c 20 20 36 37 34 38 34 38 ┆ 627864, 635352, 674848┆
0x252c0…252e0 2c 20 20 36 38 33 30 34 30 2c 20 20 37 31 32 32 33 32 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆, 683040, 712232, ┆
0x252e0…252fc 20 20 37 31 36 33 32 38 2c 20 20 37 34 30 33 38 34 2c 20 20 37 34 35 30 30 30 2c 20 ┆ 716328, 740384, 745000, ┆
0x252fc…25302 (0x194,0x4a7)
0x25302…25320 20 37 34 38 35 37 36 2c 20 20 37 38 36 39 36 38 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 748576, 786968, ┆
0x25320…25340 20 20 37 39 31 36 34 30 2c 20 20 37 39 35 31 35 32 2c 20 20 37 39 39 32 35 36 2c 20 20 38 35 37 ┆ 791640, 795152, 799256, 857┆
0x25340…25360 31 36 38 2c 20 20 38 36 30 36 38 38 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 38 36 34 37 ┆168, 860688, 8647┆
0x25360…2537a 38 34 2c 20 20 38 38 35 32 37 32 2c 20 20 38 38 39 39 34 34 2c 20 20 38 39 37 ┆84, 885272, 889944, 897┆
0x2537a…25380 (0x194,0x4a8)
0x25380…253a0 35 36 30 2c 20 20 39 33 37 30 35 36 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 39 34 35 32 ┆560, 937056, 9452┆
0x253a0…253c0 34 38 2c 20 20 39 37 34 34 34 30 2c 20 20 39 37 38 35 33 36 2c 20 31 30 30 32 35 39 32 2c 20 31 ┆48, 974440, 978536, 1002592, 1┆
0x253c0…253e0 30 30 37 32 30 38 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 31 30 31 30 37 38 34 2c 20 31 30 ┆007208, 1010784, 10┆
0x253e0…25400 34 39 32 35 36 2c 20 31 30 36 31 35 34 34 2c 20 31 31 34 37 35 36 30 2c 00 00 00 00 00 00 00 00 ┆49256, 1061544, 1147560, ┆
0x25400…25406 (298,) (0x194,0x4a9)
0x25406…25420 20 31 31 35 39 38 34 38 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 31 31 39 ┆ 1159848, 119┆
0x25420…25440 39 32 36 34 2c 20 31 32 30 37 34 35 36 2c 20 31 32 36 34 38 30 30 2c 20 31 32 37 32 39 39 32 2c ┆9264, 1207456, 1264800, 1272992,┆
0x25440…25460 20 31 34 36 31 35 33 36 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 31 34 36 39 37 32 38 2c 20 ┆ 1461536, 1469728, ┆
0x25460…2547e 31 35 32 37 30 37 32 2c 20 31 35 33 35 32 36 34 2c 20 31 37 33 38 32 36 34 2c 20 31 37 35 ┆1527072, 1535264, 1738264, 175┆
0x2547e…25484 (0x194,0x4aa)
0x25484…254a0 30 35 35 32 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 31 37 37 31 30 33 32 2c 20 ┆0552, 1771032, ┆
0x254a0…254c0 31 37 38 33 33 32 30 2c 20 32 32 38 35 30 39 36 2c 20 32 32 38 39 31 39 32 2c 20 32 33 31 37 38 ┆1783320, 2285096, 2289192, 23178┆
0x254c0…254e0 36 34 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 32 33 32 31 39 36 30 2c 20 32 33 36 34 36 33 ┆64, 2321960, 236463┆
0x254e0…254fc 32 2c 20 32 36 32 35 37 35 32 2c 20 32 38 38 33 38 36 34 2c 20 32 38 39 36 31 35 32 ┆2, 2625752, 2883864, 2896152┆
0x254fc…25502 (0x194,0x4ab)
0x25502…25520 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 32 39 38 32 31 36 38 2c 20 32 39 39 34 34 35 ┆, 2982168, 299445┆
0x25520…25540 36 2c 20 33 31 34 38 30 35 37 2c 20 33 31 35 32 31 35 33 2c 20 33 31 36 30 33 34 35 2c 0a 20 20 ┆6, 3148057, 3152153, 3160345, ┆
0x25540…25560 20 20 20 20 20 20 20 20 20 20 20 33 32 34 36 33 36 31 2c 20 33 32 35 30 34 35 37 2c 20 33 32 35 ┆ 3246361, 3250457, 325┆
0x25560…2557a 38 36 34 39 2c 20 33 33 31 31 39 37 37 2c 20 33 33 31 36 30 37 33 2c 0a 20 20 ┆8649, 3311977, 3316073, ┆
0x2557a…25580 (0x194,0x4ac)
0x25580…255a0 20 20 20 20 20 20 20 20 20 20 20 33 33 32 34 32 36 35 2c 20 33 33 34 34 37 34 35 2c 20 33 33 34 ┆ 3324265, 3344745, 334┆
0x255a0…255c0 38 38 34 31 2c 20 33 33 35 37 30 33 33 2c 20 33 34 30 39 34 37 32 2c 0a 20 20 20 20 20 20 20 20 ┆8841, 3357033, 3409472, ┆
0x255c0…255e0 20 20 20 20 20 33 34 31 37 36 38 30 2c 20 33 34 32 31 37 38 34 2c 20 33 34 37 35 30 30 38 2c 20 ┆ 3417680, 3421784, 3475008, ┆
0x255e0…25600 33 34 38 33 32 31 36 2c 20 33 35 30 37 37 37 36 2c 0a 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆3483216, 3507776, ┆
0x25600…25606 (299,) (0x194,0x4ad)
0x25606…25620 20 20 20 20 20 20 20 33 35 32 30 30 38 38 2c 20 33 36 37 34 38 33 32 2c 20 33 ┆ 3520088, 3674832, 3┆
0x25620…25640 36 37 38 39 32 38 2c 20 33 36 38 33 30 32 34 2c 20 33 36 38 37 31 32 30 2c 0a 20 20 20 20 20 20 ┆678928, 3683024, 3687120, ┆
0x25640…25660 20 20 20 20 20 20 20 33 36 39 31 32 31 36 2c 20 33 36 39 39 34 30 38 2c 20 33 39 33 37 39 32 30 ┆ 3691216, 3699408, 3937920┆
0x25660…2567e 2c 20 33 39 34 31 38 32 34 2c 20 33 39 34 35 39 32 30 2c 0a 20 20 20 20 20 20 20 20 20 20 ┆, 3941824, 3945920, ┆
0x2567e…25684 (0x194,0x4ae)
0x25684…256a0 20 20 20 34 30 30 37 33 37 36 2c 20 34 30 33 36 32 34 38 2c 20 34 30 34 34 32 34 38 ┆ 4007376, 4036248, 4044248┆
0x256a0…256c0 2c 20 34 30 38 33 31 36 38 2c 20 34 31 32 30 30 34 30 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆, 4083168, 4120040, ┆
0x256c0…256e0 20 34 31 34 38 37 32 30 2c 20 34 31 35 32 38 31 36 2c 20 34 31 39 36 38 36 35 2c 20 34 32 30 30 ┆ 4148720, 4152816, 4196865, 4200┆
0x256e0…256fc 39 36 31 2c 20 34 32 30 35 30 35 37 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 34 ┆961, 4205057, 4┆
0x256fc…25702 (0x194,0x4af)
0x25702…25720 32 30 39 31 35 33 2c 20 34 32 36 32 34 31 37 2c 20 34 32 36 36 35 31 33 2c 20 34 32 37 30 ┆209153, 4262417, 4266513, 4270┆
0x25720…25740 36 30 39 2c 20 34 32 37 34 37 30 35 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 34 32 39 35 31 ┆609, 4274705, 42951┆
0x25740…25760 39 33 2c 20 34 32 39 39 32 38 39 2c 20 34 33 30 33 33 38 35 2c 20 34 33 30 37 34 38 31 2c 20 34 ┆93, 4299289, 4303385, 4307481, 4┆
0x25760…2577a 34 35 37 38 38 30 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 34 37 32 31 38 ┆457880, 47218┆
0x2577a…25780 (0x194,0x4b0)
0x25780…257a0 35 36 2c 20 34 38 32 30 31 38 34 2c 20 34 39 38 36 36 32 34 2c 20 35 32 34 38 30 30 30 2c 20 35 ┆56, 4820184, 4986624, 5248000, 5┆
0x257a0…257c0 35 31 38 30 38 30 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 35 37 37 33 31 32 30 2c 20 36 30 ┆518080, 5773120, 60┆
0x257c0…257e0 33 35 31 33 36 2c 20 36 33 30 35 37 32 38 2c 20 36 35 36 37 38 30 38 2c 20 36 38 32 32 38 34 39 ┆35136, 6305728, 6567808, 6822849┆
0x257e0…25800 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 36 38 33 31 30 34 31 2c 20 00 00 00 00 00 00 00 00 ┆, 6831041, ┆
0x25800…25806 (300,) (0x194,0x4b1)
0x25806…25820 37 30 38 36 30 38 30 2c 20 37 30 39 30 31 37 36 2c 20 37 33 34 36 33 32 38 2c ┆7086080, 7090176, 7346328,┆
0x25820…25840 20 37 34 31 31 38 36 34 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 37 34 34 34 36 33 32 2c 20 ┆ 7411864, 7444632, ┆
0x25840…25860 37 34 37 37 34 38 30 2c 20 37 35 31 30 32 34 38 2c 20 37 35 34 33 30 31 36 2c 20 37 36 30 39 32 ┆7477480, 7510248, 7543016, 76092┆
0x25860…2587e 31 37 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 37 36 31 37 34 30 39 2c 20 37 38 36 39 ┆17, 7617409, 7869┆
0x2587e…25884 (0x194,0x4b2)
0x25884…258a0 37 36 30 2c 20 37 38 37 33 38 35 36 2c 20 37 38 37 37 39 35 32 2c 20 37 38 38 32 30 ┆760, 7873856, 7877952, 78820┆
0x258a0…258c0 34 38 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 37 38 38 36 31 34 34 2c 20 38 31 33 35 34 38 ┆48, 7886144, 813548┆
0x258c0…258e0 39 2c 20 2d 38 33 38 34 34 34 37 2c 20 2d 38 33 37 36 32 35 35 2c 20 2d 38 32 38 36 31 34 33 2c ┆9, -8384447, -8376255, -8286143,┆
0x258e0…258fc 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 2d 38 32 37 37 39 35 31 29 3b 0a 20 0a 20 ┆ -8277951); ┆
0x258fc…25902 (0x194,0x4b3)
0x25902…25920 0a 20 0a 20 20 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 2a 2a 2a 20 20 20 74 61 62 65 6c ┆ comment *** tabel┆
0x25920…25940 20 66 6f 72 20 6f 70 73 6c 61 67 20 69 20 74 79 70 65 2d 6f 70 65 72 61 74 6f 72 74 61 62 65 6c ┆ for opslag i type-operatortabel┆
0x25940…25960 20 20 20 2a 2a 2a 3b 0a 20 0a 20 20 20 20 20 20 20 20 66 6f 72 20 69 3a 3d 31 20 73 74 65 70 20 ┆ ***; for i:=1 step ┆
0x25960…2597a 31 20 75 6e 74 69 6c 20 33 32 20 64 6f 20 64 79 6f 70 73 6c 61 67 28 69 29 3a ┆1 until 32 do dyopslag(i):┆
0x2597a…25980 (0x194,0x4b4)
0x25980…259a0 3d 63 61 73 65 20 69 20 6f 66 0a 20 0a 20 20 20 20 20 20 20 20 28 34 2c 20 31 34 2c 20 32 37 2c ┆=case i of (4, 14, 27,┆
0x259a0…259c0 20 33 37 2c 20 34 33 2c 20 34 37 2c 20 34 37 2c 20 35 31 2c 20 35 34 2c 20 35 35 2c 20 35 37 2c ┆ 37, 43, 47, 47, 51, 54, 55, 57,┆
0x259c0…259e0 20 36 35 2c 20 37 35 2c 20 38 31 2c 20 38 39 2c 0a 20 20 20 20 20 20 20 20 39 39 2c 31 30 36 2c ┆ 65, 75, 81, 89, 99,106,┆
0x259e0…25a00 31 30 37 2c 31 30 39 2c 31 31 30 2c 31 31 31 2c 31 31 32 2c 31 31 33 2c 00 00 00 00 00 00 00 00 ┆107,109,110,111,112,113, ┆
0x25a00…25a06 (301,) (0x194,0x4b5)
0x25a06…25a20 31 31 34 2c 31 31 35 2c 31 31 36 2c 31 31 38 2c 31 32 32 2c 31 32 36 2c 31 33 ┆114,115,116,118,122,126,13┆
0x25a20…25a40 30 2c 0a 20 20 20 20 20 20 20 31 33 38 2c 31 34 30 29 3b 0a 20 0a 0a 20 20 20 20 20 20 20 20 63 ┆0, 138,140); c┆
0x25a40…25a60 6f 6d 6d 65 6e 74 20 2a 2a 2a 20 20 20 65 6e 6b 65 6c 74 2d 69 6e 69 74 69 61 6c 69 73 65 72 69 ┆omment *** enkelt-initialiseri┆
0x25a60…25a7e 6e 67 65 72 20 20 20 2a 2a 2a 3b 0a 20 0a 20 20 20 20 20 20 20 20 66 70 70 6c 61 64 73 3a ┆nger ***; fpplads:┆
0x25a7e…25a84 (0x194,0x4b6)
0x25a84…25aa0 3d 31 35 33 36 3b 0a 20 20 20 20 20 20 20 20 6f 6b 6c 69 6e 69 65 3a 3d 74 72 75 65 ┆=1536; oklinie:=true┆
0x25aa0…25ac0 3b 0a 20 20 20 20 20 20 20 20 74 65 73 74 6c 69 6d 69 74 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 ┆; testlimit:=0; ┆
0x25ac0…25ae0 6f 75 74 63 68 61 72 28 6f 75 74 2c 31 30 29 3b 0a 20 20 20 20 20 20 20 20 66 6f 72 20 69 3a 3d ┆outchar(out,10); for i:=┆
0x25ae0…25afc 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 31 33 30 30 20 64 6f 20 7a 28 69 29 3a ┆1 step 1 until 1300 do z(i):┆
0x25afc…25b02 (0x194,0x4b7)
0x25b02…25b20 3d 30 3b 0a 20 20 20 20 20 20 20 20 6d 61 78 61 64 72 65 73 73 65 3a 3d 30 3b 0a 20 20 20 ┆=0; maxadresse:=0; ┆
0x25b20…25b40 20 20 20 20 20 66 6f 72 75 64 73 79 6d 62 6f 6c 3a 3d 31 3b 0a 20 20 20 20 20 20 20 20 61 66 62 ┆ forudsymbol:=1; afb┆
0x25b40…25b60 72 79 64 31 3a 3d 61 66 62 72 79 64 32 3a 3d 61 66 62 72 79 64 33 3a 3d 61 66 62 72 79 64 34 3a ┆ryd1:=afbryd2:=afbryd3:=afbryd4:┆
0x25b60…25b7a 3d 61 66 62 72 79 64 35 3a 3d 66 61 6c 73 65 3b 0a 20 20 20 20 20 20 20 20 6b ┆=afbryd5:=false; k┆
0x25b7a…25b80 (0x194,0x4b8)
0x25b80…25ba0 6f 64 65 75 64 70 69 6c 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 6b 6f 6e 73 74 70 69 6c 31 3a 3d ┆odeudpil:=0; konstpil1:=┆
0x25ba0…25bc0 30 3b 0a 20 20 20 20 20 20 20 20 6b 6f 6e 73 74 70 69 6c 32 3a 3d 2d 31 3b 0a 20 20 20 20 20 20 ┆0; konstpil2:=-1; ┆
0x25bc0…25be0 20 20 76 69 6e 64 68 6f 70 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 72 65 63 6f 76 70 6f 69 6e 74 ┆ vindhop:=0; recovpoint┆
0x25be0…25c00 3a 3d 31 3b 0a 20 20 20 20 20 20 20 20 62 6c 6f 6b 64 79 62 64 65 3a 3d 00 00 00 00 00 00 00 00 ┆:=1; blokdybde:= ┆
0x25c00…25c06 (302,) (0x194,0x4b9)
0x25c06…25c20 30 3b 0a 20 20 20 20 20 20 20 20 6b 72 6f 70 6e 69 76 3a 3d 30 3b 0a 20 20 20 ┆0; kropniv:=0; ┆
0x25c20…25c40 20 20 20 20 20 66 65 6a 6c 70 69 6c 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 6d 6f 64 65 64 79 62 ┆ fejlpil:=0; modedyb┆
0x25c40…25c60 64 65 3a 3d 31 3b 0a 20 20 20 20 20 20 20 20 6c 69 6e 69 65 70 69 6c 3a 3d 30 3b 0a 20 20 20 20 ┆de:=1; liniepil:=0; ┆
0x25c60…25c7e 20 20 20 20 6b 6c 61 73 73 65 3a 3d 35 3b 0a 20 20 20 20 20 20 20 20 6c 69 6e 69 65 6e 72 ┆ klasse:=5; linienr┆
0x25c7e…25c84 (0x194,0x4ba)
0x25c84…25ca0 3a 3d 31 3b 0a 20 20 20 20 20 20 20 20 66 6f 72 20 69 3a 3d 31 20 73 74 65 70 20 31 ┆:=1; for i:=1 step 1┆
0x25ca0…25cc0 20 75 6e 74 69 6c 20 31 30 20 64 6f 20 74 61 69 6c 28 69 29 3a 3d 30 3b 0a 20 20 20 20 20 20 20 ┆ until 10 do tail(i):=0; ┆
0x25cc0…25ce0 20 62 65 67 69 6e 6e 69 76 3a 3d 65 6e 64 6e 69 76 3a 3d 34 35 3b 0a 20 20 20 20 20 20 20 20 61 ┆ beginniv:=endniv:=45; a┆
0x25ce0…25cfc 75 74 6f 74 61 70 65 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 67 72 65 6e 61 6e 74 61 ┆utotape:=0; grenanta┆
0x25cfc…25d02 (0x194,0x4bb)
0x25d02…25d20 6c 3a 3d 6b 6e 75 64 65 61 6e 74 61 6c 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 67 72 65 6e ┆l:=knudeantal:=0; gren┆
0x25d20…25d40 70 69 6c 3a 3d 6b 6e 75 64 65 70 69 6c 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 72 65 6c 61 64 72 ┆pil:=knudepil:=0; reladr┆
0x25d40…25d60 28 32 29 3a 3d 31 35 33 37 3b 0a 20 20 20 20 20 20 20 20 72 65 6c 61 64 72 28 33 29 3a 3d 2d 31 ┆(2):=1537; reladr(3):=-1┆
0x25d60…25d7a 3b 0a 20 20 20 20 20 20 20 20 68 6f 70 70 69 6c 3a 3d 30 3b 0a 20 20 20 20 20 ┆; hoppil:=0; ┆
0x25d7a…25d80 (0x194,0x4bc)
0x25d80…25da0 20 20 20 70 72 6f 63 61 6e 74 61 6c 3a 3d 31 3b 0a 20 20 20 20 20 20 20 20 62 6c 6f 6b 73 74 61 ┆ procantal:=1; bloksta┆
0x25da0…25dc0 72 74 3a 3d 37 36 38 3b 0a 20 20 20 20 20 20 20 20 70 72 6f 63 6e 72 3a 3d 31 3b 0a 20 20 20 20 ┆rt:=768; procnr:=1; ┆
0x25dc0…25de0 20 20 20 20 66 6f 72 20 69 3a 3d 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 38 30 20 64 6f 20 ┆ for i:=1 step 1 until 80 do ┆
0x25de0…25e00 6c 69 6e 69 65 28 69 29 3a 3d 33 32 3b 0a 20 20 20 20 20 20 20 20 66 6f 00 00 00 00 00 00 00 00 ┆linie(i):=32; fo ┆
0x25e00…25e06 (303,) (0x194,0x4bd)
0x25e06…25e20 72 20 69 3a 3d 32 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 35 36 20 64 6f ┆r i:=2 step 1 until 256 do┆
0x25e20…25e40 20 70 72 6f 63 74 61 62 28 69 29 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 6c 61 79 6f 75 74 6f 72 ┆ proctab(i):=0; layoutor┆
0x25e40…25e60 64 3a 3d 31 20 73 68 69 66 74 20 31 31 20 61 64 64 20 33 32 20 73 68 69 66 74 20 31 32 20 61 64 ┆d:=1 shift 11 add 32 shift 12 ad┆
0x25e60…25e7e 64 20 35 3b 0a 20 20 20 20 20 20 20 20 7a 70 69 6c 3a 3d 37 36 38 3b 0a 20 20 20 20 20 20 ┆d 5; zpil:=768; ┆
0x25e7e…25e84 (0x194,0x4be)
0x25e84…25ea0 20 20 7a 62 61 73 65 3a 3d 2d 37 36 37 3b 0a 20 20 20 20 20 20 20 20 6b 6f 64 65 61 ┆ zbase:=-767; kodea┆
0x25ea0…25ec0 64 64 72 3a 3d 32 2a 7a 70 69 6c 3b 0a 20 20 20 20 20 20 20 20 63 61 73 65 73 74 61 6b 70 69 6c ┆ddr:=2*zpil; casestakpil┆
0x25ec0…25ee0 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 66 69 6c 6e 72 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 69 ┆:=0; filnr:=0; i┆
0x25ee0…25efc 64 74 61 62 31 28 31 29 3a 3d 39 38 20 73 68 69 66 74 20 31 36 3b 0a 20 20 20 20 20 ┆dtab1(1):=98 shift 16; ┆
0x25efc…25f02 (0x194,0x4bf)
0x25f02…25f20 20 20 20 69 64 74 61 62 31 28 32 29 3a 3d 31 30 30 20 73 68 69 66 74 20 31 36 3b 0a 20 20 ┆ idtab1(2):=100 shift 16; ┆
0x25f20…25f40 20 20 20 20 20 20 69 64 74 61 62 32 28 31 29 3a 3d 69 64 74 61 62 33 28 31 29 3a 3d 69 64 74 61 ┆ idtab2(1):=idtab3(1):=idta┆
0x25f40…25f60 62 34 28 31 29 3a 3d 69 64 74 61 62 35 28 31 29 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 69 64 74 ┆b4(1):=idtab5(1):=0; idt┆
0x25f60…25f7a 61 62 32 28 32 29 3a 3d 69 64 74 61 62 33 28 32 29 3a 3d 69 64 74 61 62 34 28 ┆ab2(2):=idtab3(2):=idtab4(┆
0x25f7a…25f80 (0x194,0x4c0)
0x25f80…25fa0 32 29 3a 3d 69 64 74 61 62 35 28 32 29 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 69 64 74 61 62 70 ┆2):=idtab5(2):=0; idtabp┆
0x25fa0…25fc0 69 6c 3a 3d 63 75 72 72 69 64 6c 69 6d 69 74 3a 3d 32 3b 0a 20 20 20 20 20 20 20 20 68 70 74 6f ┆il:=curridlimit:=2; hpto┆
0x25fc0…25fe0 70 3a 3d 32 3b 0a 20 20 20 20 20 20 20 20 73 74 61 6b 70 69 6c 3a 3d 30 3b 0a 20 20 20 20 20 20 ┆p:=2; stakpil:=0; ┆
0x25fe0…26000 20 20 66 69 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 6c 69 73 74 3a 3d 65 00 00 00 00 00 00 00 00 ┆ fi:=0; list:=e ┆
0x26000…26006 (304,) (0x194,0x4c1)
0x26006…26020 72 72 6f 72 6c 69 73 74 3a 3d 63 6f 64 65 3a 3d 78 72 65 66 3a 3d 66 61 6c 73 ┆rrorlist:=code:=xref:=fals┆
0x26020…26040 65 3b 0a 20 20 20 20 20 20 20 20 69 74 65 6d 3a 3d 69 66 20 6f 62 6a 65 63 74 66 69 6c 65 20 74 ┆e; item:=if objectfile t┆
0x26040…26060 68 65 6e 20 32 20 65 6c 73 65 20 31 3b 0a 20 20 20 20 20 20 20 20 66 6f 72 20 69 74 65 6d 3a 3d ┆hen 2 else 1; for item:=┆
0x26060…2607e 69 74 65 6d 2b 31 20 77 68 69 6c 65 20 73 79 73 74 65 6d 28 34 2c 69 74 65 6d 2c 61 72 72 ┆item+1 while system(4,item,arr┆
0x2607e…26084 (0x194,0x4c2)
0x26084…260a0 29 3d 34 20 73 68 69 66 74 20 31 32 2b 31 30 20 64 6f 0a 20 20 20 20 20 20 20 20 62 ┆)=4 shift 12+10 do b┆
0x260a0…260c0 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 61 72 72 28 31 29 3d 72 65 61 6c 28 3c 3a ┆egin if arr(1)=real(<:┆
0x260c0…260e0 6c 69 73 74 3a 3e 29 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 ┆list:>) then begin ┆
0x260e0…260fc 20 20 20 20 20 20 20 20 20 69 74 65 6d 3a 3d 69 74 65 6d 2b 31 3b 0a 20 20 20 20 20 ┆ item:=item+1; ┆
0x260fc…26102 (0x194,0x4c3)
0x26102…26120 20 20 20 20 20 20 20 69 66 20 73 79 73 74 65 6d 28 34 2c 69 74 65 6d 2c 61 72 72 29 20 3d ┆ if system(4,item,arr) =┆
0x26120…26140 20 38 20 73 68 69 66 74 20 31 32 2b 31 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 8 shift 12+10 then ┆
0x26140…26160 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 61 72 72 28 31 29 20 3d 20 ┆begin if arr(1) = ┆
0x26160…2617a 72 65 61 6c 20 3c 3a 79 65 73 3a 3e 20 74 68 65 6e 20 6c 69 73 74 3a 3d 74 72 ┆real <:yes:> then list:=tr┆
0x2617a…26180 (0x194,0x4c4)
0x26180…261a0 75 65 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 61 72 72 28 31 29 20 ┆ue else if arr(1) ┆
0x261a0…261c0 3d 20 72 65 61 6c 20 3c 3a 65 72 72 6f 72 3a 3e 20 74 68 65 6e 20 65 72 72 6f 72 6c 69 73 74 3a ┆= real <:error:> then errorlist:┆
0x261c0…261e0 3d 74 72 75 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 ┆=true; end; ┆
0x261e0…26200 20 20 65 6e 64 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 00 00 00 00 00 00 00 00 ┆ end else if ┆
0x26200…26206 (305,) (0x194,0x4c5)
0x26206…26220 61 72 72 28 31 29 20 3d 20 72 65 61 6c 20 3c 3a 78 72 65 66 3a 3e 20 74 68 65 ┆arr(1) = real <:xref:> the┆
0x26220…26240 6e 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 74 ┆n begin it┆
0x26240…26260 65 6d 3a 3d 69 74 65 6d 2b 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 73 79 73 74 65 ┆em:=item+1; if syste┆
0x26260…2627e 6d 28 34 2c 69 74 65 6d 2c 61 72 72 29 20 3d 20 38 20 73 68 69 66 74 20 31 32 2b 31 30 20 ┆m(4,item,arr) = 8 shift 12+10 ┆
0x2627e…26284 (0x194,0x4c6)
0x26284…262a0 61 6e 64 20 61 72 72 28 31 29 20 3d 20 72 65 61 6c 20 3c 3a 79 65 73 3a 3e 20 74 68 ┆and arr(1) = real <:yes:> th┆
0x262a0…262c0 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 ┆en begin ┆
0x262c0…262e0 20 20 20 78 72 65 66 3a 3d 74 72 75 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 70 65 ┆ xref:=true; ope┆
0x262e0…262fc 6e 28 7a 78 72 65 66 2c 34 2c 3c 3a 3a 3e 2c 30 29 3b 0a 20 20 20 20 20 20 20 20 20 ┆n(zxref,4,<::>,0); ┆
0x262fc…26302 (0x194,0x4c7)
0x26302…26320 20 20 20 20 20 74 61 69 6c 28 31 29 3a 3d 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ tail(1):=1; ┆
0x26320…26340 20 66 6f 72 20 69 3a 3d 32 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 31 30 20 64 6f 20 74 61 69 ┆ for i:=2 step 1 until 10 do tai┆
0x26340…26360 6c 28 69 29 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 6d 6f 6e 69 74 6f ┆l(i):=0; if monito┆
0x26360…2637a 72 28 34 30 2c 7a 78 72 65 66 2c 30 2c 74 61 69 6c 29 20 3c 3e 20 30 20 74 68 ┆r(40,zxref,0,tail) <> 0 th┆
0x2637a…26380 (0x194,0x4c8)
0x26380…263a0 65 6e 20 63 6f 6e 66 65 6a 6c 28 35 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 ┆en confejl(5); if ┆
0x263a0…263c0 6d 6f 6e 69 74 6f 72 28 35 32 2c 7a 78 72 65 66 2c 30 2c 74 61 69 6c 29 2b 6d 6f 6e 69 74 6f 72 ┆monitor(52,zxref,0,tail)+monitor┆
0x263c0…263e0 28 38 2c 7a 78 72 65 66 2c 30 2c 74 61 69 6c 29 20 3c 3e 20 30 20 74 68 65 6e 0a 20 20 20 20 20 ┆(8,zxref,0,tail) <> 0 then ┆
0x263e0…26400 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6e 66 65 6a 6c 28 33 29 3b 0a 00 00 00 00 00 00 00 00 ┆ confejl(3); ┆
0x26400…26406 (306,) (0x194,0x4c9)
0x26406…26420 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 ┆ end; ┆
0x26420…26440 20 65 6e 64 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 61 72 72 28 31 29 20 3d 20 ┆ end else if arr(1) = ┆
0x26440…26460 72 65 61 6c 20 3c 3a 74 65 73 74 3a 3e 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 ┆real <:test:> then beg┆
0x26460…2647e 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 74 65 73 74 6c 69 6d 69 74 3a 3d 32 30 34 38 ┆in testlimit:=2048┆
0x2647e…26484 (0x194,0x4ca)
0x26484…264a0 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 74 65 6d 3a 3d 69 74 65 6d 2b 31 3b 0a ┆; item:=item+1; ┆
0x264a0…264c0 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 73 79 73 74 65 6d 28 34 2c 69 74 65 6d 2c 61 72 72 ┆ if system(4,item,arr┆
0x264c0…264e0 29 20 3d 20 38 20 73 68 69 66 74 20 31 32 20 2b 20 31 30 20 74 68 65 6e 20 74 65 73 74 6c 69 6d ┆) = 8 shift 12 + 10 then testlim┆
0x264e0…264fc 69 74 3a 3d 61 72 72 28 31 29 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 ┆it:=arr(1); end; ┆
0x264fc…26502 (0x194,0x4cb)
0x26502…26520 20 20 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 ┆ ; end; ┆
0x26520…26540 20 20 66 70 3a 3d 6d 6f 6e 3a 3d 74 72 75 65 3b 0a 20 20 20 20 20 20 20 20 63 70 75 3a 3d 73 79 ┆ fp:=mon:=true; cpu:=sy┆
0x26540…26560 73 74 69 6d 65 28 31 2c 30 2c 74 69 6d 65 29 3b 0a 20 20 20 20 20 20 20 20 0a 20 20 20 20 20 20 ┆stime(1,0,time); ┆
0x26560…2657a 20 20 63 6f 6d 6d 65 6e 74 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ comment ****************┆
0x2657a…26580 (0x194,0x4cc)
0x26580…265a0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x265a0…265c0 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆********* ┆
0x265c0…265e0 20 20 6b 61 6c 64 20 61 66 20 61 6e 61 6c 79 73 61 74 6f 72 20 28 73 74 61 72 74 20 61 66 20 6f ┆ kald af analysator (start af o┆
0x265e0…26600 76 65 72 73 7b 74 74 65 6c 73 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆versættelse) ┆
0x26600…26606 (307,) (0x194,0x4cd)
0x26606…26620 20 20 20 20 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ *********************┆
0x26620…26640 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x26640…26660 2a 2a 2a 2a 3b 0a 20 0a 20 20 20 20 20 20 20 20 70 61 72 73 65 72 28 73 65 6d 61 6e 74 69 6b 2c ┆****; parser(semantik,┆
0x26660…2667e 73 74 61 6b 73 65 6d 61 6e 74 69 6b 2c 66 65 6a 6c 2c 31 30 30 2c 6e 7b 73 74 65 73 79 6d ┆staksemantik,fejl,100,næstesym┆
0x2667e…26684 (0x194,0x4ce)
0x26684…266a0 62 6f 6c 29 3b 0a 70 61 73 73 73 74 6f 70 3a 0a 20 20 20 20 20 20 20 20 69 66 20 78 ┆bol); passstop: if x┆
0x266a0…266c0 72 65 66 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 ┆ref then begin ┆
0x266c0…266e0 20 6f 75 74 72 65 63 36 28 7a 78 72 65 66 2c 38 29 3b 0a 20 20 20 20 20 20 20 20 20 20 7a 78 72 ┆ outrec6(zxref,8); zxr┆
0x266e0…266fc 65 66 2e 69 66 32 3a 3d 31 32 37 20 73 68 69 66 74 20 31 36 3b 0a 20 20 20 20 20 20 ┆ef.if2:=127 shift 16; ┆
0x266fc…26702 (0x194,0x4cf)
0x26702…26720 20 20 20 20 63 6c 6f 73 65 28 7a 78 72 65 66 2c 66 61 6c 73 65 29 3b 0a 20 20 20 20 20 20 ┆ close(zxref,false); ┆
0x26720…26740 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 63 70 75 3a 3d 73 79 73 74 69 6d 65 28 31 2c 74 69 ┆ end; cpu:=systime(1,ti┆
0x26740…26760 6d 65 2c 74 69 6d 65 29 2d 63 70 75 3b 0a 20 0a 20 20 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 ┆me,time)-cpu; comment ┆
0x26760…2677a 2a 2a 2a 20 75 64 73 6b 72 69 76 6e 69 6e 67 20 61 66 20 63 6f 6d 70 69 6c 65 ┆*** udskrivning af compile┆
0x2677a…26780 (0x194,0x4d0)
0x26780…267a0 72 6d 65 64 64 65 6c 65 6c 73 65 72 20 2a 2a 2a 3b 0a 20 0a 20 20 20 20 20 20 20 20 73 79 73 74 ┆rmeddelelser ***; syst┆
0x267a0…267c0 69 6d 65 28 31 2c 30 2c 74 69 6d 65 29 3b 0a 20 20 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 ┆ime(1,0,time); write(out┆
0x267c0…267e0 2c 3c 3a 3c 31 30 3e 3c 31 30 3e 72 63 6d 6f 6c 2f 3a 3e 2c 3c 3c 7a 64 64 3e 2c 76 65 72 73 69 ┆,<:<10><10>rcmol/:>,<<zdd>,versi┆
0x267e0…26800 6f 6e 69 64 2c 3c 3a 20 20 20 20 64 2e 3a 3e 2c 3c 3c 64 64 64 64 64 64 00 00 00 00 00 00 00 00 ┆onid,<: d.:>,<<dddddd ┆
0x26800…26806 (308,) (0x194,0x4d1)
0x26806…26820 3e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 79 73 74 69 ┆>, systi┆
0x26820…26840 6d 65 28 34 2c 74 69 6d 65 2c 72 6b 6f 6e 73 74 29 2c 3c 3a 2e 3a 3e 2c 3c 3c 7a 64 64 64 3e 2c ┆me(4,time,rkonst),<:.:>,<<zddd>,┆
0x26840…26860 72 6b 6f 6e 73 74 2f 31 30 30 29 3b 0a 20 20 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 3c ┆rkonst/100); write(out,<┆
0x26860…2687e 3a 3c 31 30 3e 74 72 61 6e 73 6c 61 74 69 6f 6e 20 74 69 6d 65 20 20 3d 3a 3e 2c 3c 3c 64 ┆:<10>translation time =:>,<<d┆
0x2687e…26884 (0x194,0x4d2)
0x26884…268a0 64 64 64 2e 64 64 3e 2c 63 70 75 2c 3c 3a 20 20 20 73 65 63 3a 3e 29 3b 0a 20 20 20 ┆ddd.dd>,cpu,<: sec:>); ┆
0x268a0…268c0 20 20 20 20 20 69 66 20 66 65 6a 6c 70 69 6c 3e 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 62 ┆ if fejlpil>0 then b┆
0x268c0…268e0 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 2a 2a 2a 20 66 65 6a 6c 75 64 73 6b 72 69 76 6e 69 6e 67 ┆egin comment *** fejludskrivning┆
0x268e0…268fc 20 2a 2a 2a 3b 0a 20 20 20 20 20 20 20 20 20 20 66 65 6a 6c 75 64 3b 0a 20 20 20 20 ┆ ***; fejlud; ┆
0x268fc…26902 (0x194,0x4d3)
0x26902…26920 20 20 20 20 20 20 6f 75 74 63 68 61 72 28 6f 75 74 2c 31 30 29 3b 0a 20 20 20 20 20 20 20 ┆ outchar(out,10); ┆
0x26920…26940 20 65 6e 64 20 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 ┆ end else begin comment┆
0x26940…26960 20 2a 2a 2a 20 75 64 73 6b 72 69 76 6e 69 6e 67 20 61 66 20 70 72 6f 67 72 61 6d 6d 65 74 73 20 ┆ *** udskrivning af programmets ┆
0x26960…2697a 70 6c 61 64 73 6b 72 61 76 20 2a 2a 2a 3b 0a 20 20 20 20 20 20 20 20 20 20 77 ┆pladskrav ***; w┆
0x2697a…26980 (0x194,0x4d4)
0x26980…269a0 72 69 74 65 28 6f 75 74 2c 3c 3a 3c 31 30 3e 63 6f 72 65 20 61 72 65 61 20 20 63 6c 61 69 6d 20 ┆rite(out,<:<10>core area claim ┆
0x269a0…269c0 20 3d 20 3a 3e 2c 3c 3c 64 64 64 64 64 64 3e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ = :>,<<dddddd>, ┆
0x269c0…269e0 28 69 66 20 67 72 65 6e 61 6e 74 61 6c 3e 30 20 74 68 65 6e 20 6d 61 78 61 64 72 65 73 73 65 20 ┆(if grenantal>0 then maxadresse ┆
0x269e0…26a00 65 6c 73 65 20 32 2a 7a 70 69 6c 29 2d 66 70 70 6c 61 64 73 2c 0a 20 20 00 00 00 00 00 00 00 00 ┆else 2*zpil)-fpplads, ┆
0x26a00…26a06 (309,) (0x194,0x4d5)
0x26a06…26a20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 3a 20 20 20 62 79 74 65 73 3a 3e ┆ <: bytes:>┆
0x26a20…26a40 29 3b 0a 20 20 20 20 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 3c 3a 3c 31 30 3e 64 69 73 ┆); write(out,<:<10>dis┆
0x26a40…26a60 63 20 61 72 65 61 20 20 63 6c 61 69 6d 20 20 3d 20 3a 3e 2c 3c 3c 64 64 64 64 64 64 3e 2c 0a 20 ┆c area claim = :>,<<dddddd>, ┆
0x26a60…26a7e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 69 6c 6e 72 2c 3c 3a 20 20 20 73 65 67 6d ┆ filnr,<: segm┆
0x26a7e…26a84 (0x194,0x4d6)
0x26a84…26aa0 65 6e 74 73 3c 31 30 3e 3a 3e 29 3b 0a 20 20 20 20 20 20 20 20 20 20 63 6f 6d 6d 65 ┆ents<10>:>); comme┆
0x26aa0…26ac0 6e 74 20 2a 2a 2a 20 69 6e 64 73 7b 74 74 65 6c 73 65 20 61 66 20 61 64 6d 69 6e 69 73 74 72 61 ┆nt *** indsættelse af administra┆
0x26ac0…26ae0 74 69 6f 6e 65 6e 20 70 7d 20 31 2e 20 73 65 67 6d 65 6e 74 20 2a 2a 2a 3b 0a 20 20 20 20 20 20 ┆tionen på 1. segment ***; ┆
0x26ae0…26afc 20 20 20 20 73 65 74 70 6f 73 69 74 69 6f 6e 28 73 61 76 65 2c 30 2c 30 29 3b 0a 20 ┆ setposition(save,0,0); ┆
0x26afc…26b02 (0x194,0x4d7)
0x26b02…26b20 20 20 20 20 20 20 20 20 20 70 72 6f 63 74 61 62 28 31 29 3a 3d 6d 61 78 61 64 72 65 73 73 ┆ proctab(1):=maxadress┆
0x26b20…26b40 65 2a 32 3b 0a 20 20 20 20 20 20 20 20 20 20 73 77 6f 70 72 65 63 28 73 61 76 65 2c 31 32 38 29 ┆e*2; swoprec(save,128)┆
0x26b40…26b60 3b 0a 20 20 20 20 20 20 20 20 20 20 73 79 73 74 65 6d 28 34 2c 30 2c 61 72 72 29 3b 0a 20 20 20 ┆; system(4,0,arr); ┆
0x26b60…26b7a 20 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 2a 2a 2a 20 70 72 6f 63 65 64 75 ┆ comment *** procedu┆
0x26b7a…26b80 (0x194,0x4d8)
0x26b80…26ba0 72 65 69 6e 64 68 6f 70 73 61 64 72 65 73 73 65 72 20 6f 67 20 0a 20 20 20 20 20 20 20 20 20 20 ┆reindhopsadresser og ┆
0x26ba0…26bc0 20 20 20 20 20 20 20 20 20 20 20 20 6c 61 67 65 72 76 65 6b 73 6c 69 6e 67 73 6b 6e 75 64 65 72 ┆ lagervekslingsknuder┆
0x26bc0…26be0 6e 65 73 20 61 64 72 65 73 73 65 72 20 69 6e 64 73 7b 74 74 65 73 20 2a 2a 2a 3b 0a 20 20 20 20 ┆nes adresser indsættes ***; ┆
0x26be0…26c00 20 20 20 20 20 20 66 6f 72 20 69 3a 3d 31 20 73 74 65 70 20 31 20 75 6e 00 00 00 00 00 00 00 00 ┆ for i:=1 step 1 un ┆
0x26c00…26c06 (310,) (0x194,0x4d9)
0x26c06…26c20 74 69 6c 20 70 72 6f 63 61 6e 74 61 6c 2b 6b 6e 75 64 65 61 6e 74 61 6c 20 64 ┆til procantal+knudeantal d┆
0x26c20…26c40 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 61 76 65 2e 66 69 28 69 29 3a 3d 70 72 6f 63 ┆o save.fi(i):=proc┆
0x26c40…26c60 74 61 62 28 69 29 2d 6d 61 78 61 64 72 65 73 73 65 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 ┆tab(i)-maxadresse; if ┆
0x26c60…26c7e 67 72 65 6e 61 6e 74 61 6c 3e 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 ┆grenantal>0 then beg┆
0x26c7e…26c84 (0x194,0x4da)
0x26c84…26ca0 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 6e 3a 3d 70 72 6f 63 61 6e 74 61 6c 2b ┆in n:=procantal+┆
0x26ca0…26cc0 6b 6e 75 64 65 61 6e 74 61 6c 2b 67 72 65 6e 70 69 6c 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆knudeantal+grenpil; ┆
0x26cc0…26ce0 70 72 6f 63 74 61 62 28 6e 29 3a 3d 70 72 6f 63 74 61 62 28 6e 29 2b 28 66 69 6c 6e 72 2d 70 72 ┆proctab(n):=proctab(n)+(filnr-pr┆
0x26ce0…26cfc 6f 63 74 61 62 28 6e 29 20 65 78 74 72 61 63 74 20 38 29 20 73 68 69 66 74 20 39 3b ┆octab(n) extract 8) shift 9;┆
0x26cfc…26d02 (0x194,0x4db)
0x26d02…26d20 0a 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 2a 2a 2a 20 67 72 65 6e 74 ┆ comment *** grent┆
0x26d20…26d40 61 62 65 6c 6c 65 6e 20 69 6e 64 73 7b 74 74 65 73 20 2a 2a 2a 3b 0a 20 20 20 20 20 20 20 20 20 ┆abellen indsættes ***; ┆
0x26d40…26d60 20 20 20 66 6f 72 20 69 3a 3d 70 72 6f 63 61 6e 74 61 6c 2b 6b 6e 75 64 65 61 6e 74 61 6c 2b 31 ┆ for i:=procantal+knudeantal+1┆
0x26d60…26d7a 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 70 72 6f 63 61 6e 74 61 6c 2b 0a 20 ┆ step 1 until procantal+ ┆
0x26d7a…26d80 (0x194,0x4dc)
0x26d80…26da0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6b 6e 75 64 65 61 6e 74 61 6c 2b 67 72 65 ┆ knudeantal+gre┆
0x26da0…26dc0 6e 61 6e 74 61 6c 20 64 6f 20 73 61 76 65 2e 66 69 28 69 29 3a 3d 70 72 6f 63 74 61 62 28 69 29 ┆nantal do save.fi(i):=proctab(i)┆
0x26dc0…26de0 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 2a 2a 2a 20 6c 61 67 65 72 76 ┆; comment *** lagerv┆
0x26de0…26e00 65 6b 73 6c 69 6e 67 73 72 75 74 69 6e 65 20 69 6e 64 73 7b 74 74 65 73 00 00 00 00 00 00 00 00 ┆ekslingsrutine indsættes ┆
0x26e00…26e06 (311,) (0x194,0x4dd)
0x26e06…26e20 20 2a 2a 2a 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 6e 3a 3d 69 ┆ ***; for n:=i┆
0x26e20…26e40 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 69 2b 33 37 20 64 6f 20 73 61 76 65 2e 66 69 28 6e 29 ┆ step 1 until i+37 do save.fi(n)┆
0x26e40…26e60 3a 3d 63 61 73 65 20 6e 2d 69 2b 31 20 6f 66 28 0a 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 61 ┆:=case n-i+1 of( a┆
0x26e60…26e7e 72 72 2e 66 69 28 31 29 2c 20 61 72 72 2e 66 69 28 32 29 2c 20 61 72 72 2e 66 69 28 33 29 ┆rr.fi(1), arr.fi(2), arr.fi(3)┆
0x26e7e…26e84 (0x194,0x4de)
0x26e84…26ea0 2c 20 61 72 72 2e 66 69 28 34 29 2c 20 30 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆, arr.fi(4), 0, ┆
0x26ea0…26ec0 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 0a 20 20 20 20 20 20 20 20 ┆0, 0, 0, 0, 0, 0, 0, 0, ┆
0x26ec0…26ee0 20 20 20 20 31 32 37 2a 35 31 32 2c 20 32 35 35 2c 20 30 2c 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ 127*512, 255, 0, ┆
0x26ee0…26efc 20 36 32 36 32 37 38 32 2c 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 35 33 34 39 33 ┆ 6262782, 53493┆
0x26efc…26f02 (0x194,0x4df)
0x26f02…26f20 34 30 2d 32 2a 67 72 65 6e 61 6e 74 61 6c 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 35 33 ┆40-2*grenantal, 53┆
0x26f20…26f40 37 33 39 35 34 2c 2d 36 36 38 30 35 39 31 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 35 34 31 38 ┆73954,-6680591, 5418┆
0x26f40…26f60 39 36 36 2d 32 2a 28 67 72 65 6e 61 6e 74 61 6c 2b 6b 6e 75 64 65 61 6e 74 61 6c 29 2c 0a 20 20 ┆966-2*(grenantal+knudeantal), ┆
0x26f60…26f7a 20 20 20 20 20 20 20 20 20 20 36 31 39 37 32 31 38 2c 20 35 33 37 33 39 35 34 ┆ 6197218, 5373954┆
0x26f7a…26f80 (0x194,0x4e0)
0x26f80…26fa0 2c 20 31 32 31 36 34 39 32 2c 20 32 30 30 32 39 30 38 2c 20 36 31 39 37 32 31 32 2c 0a 20 20 20 ┆, 1216492, 2002908, 6197212, ┆
0x26fa0…26fc0 20 20 20 20 20 20 20 20 20 35 33 37 33 39 35 34 2c 20 31 32 31 36 34 38 36 2c 20 36 31 39 37 32 ┆ 5373954, 1216486, 61972┆
0x26fc0…26fe0 30 38 2c 2d 36 38 31 35 37 33 32 2c 20 36 30 36 36 31 32 36 2c 0a 20 20 20 20 20 20 20 20 20 20 ┆08,-6815732, 6066126, ┆
0x26fe0…27000 20 20 32 39 38 35 39 33 32 2c 20 33 31 31 36 39 39 32 2c 20 33 36 37 32 00 00 00 00 00 00 00 00 ┆ 2985932, 3116992, 3672 ┆
0x27000…27006 (312,) (0x194,0x4e1)
0x27006…27020 30 38 30 2c 20 32 39 38 35 39 32 36 2c 20 33 36 37 32 30 38 32 2c 0a 20 20 20 ┆080, 2985926, 3672082, ┆
0x27020…27040 20 20 20 20 20 20 20 20 20 31 33 31 34 38 31 36 2c 20 33 34 36 31 30 37 36 29 3b 0a 20 0a 20 20 ┆ 1314816, 3461076); ┆
0x27040…27060 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 2a ┆ end; comment *┆
0x27060…2707e 2a 2a 20 69 6e 64 73 7b 74 74 65 6c 73 65 20 61 66 20 66 69 6c 62 65 73 6b 72 69 76 65 6c ┆** indsættelse af filbeskrivel┆
0x2707e…27084 (0x194,0x4e2)
0x27084…270a0 73 65 20 28 65 6e 74 72 79 20 74 61 69 6c 29 20 2a 2a 2a 3b 0a 20 20 20 20 20 20 20 ┆se (entry tail) ***; ┆
0x270a0…270c0 20 20 20 74 61 69 6c 28 31 29 3a 3d 66 69 6c 6e 72 3b 0a 20 20 20 20 20 20 20 20 73 79 73 74 69 ┆ tail(1):=filnr; systi┆
0x270c0…270e0 6d 65 28 31 2c 30 2c 74 69 6d 65 29 3b 0a 20 20 20 20 20 20 20 20 68 6b 6f 6e 73 74 3a 3d 74 69 ┆me(1,0,time); hkonst:=ti┆
0x270e0…270fc 6d 65 2a 31 30 30 30 30 3b 0a 20 20 20 20 20 20 20 20 74 61 69 6c 28 36 29 3a 3d 68 ┆me*10000; tail(6):=h┆
0x270fc…27102 (0x194,0x4e3)
0x27102…27120 6b 6f 6e 73 74 20 73 68 69 66 74 20 28 2d 31 39 29 20 65 78 74 72 61 63 74 20 32 34 3b 0a ┆konst shift (-19) extract 24; ┆
0x27120…27140 20 20 20 20 20 20 20 20 20 20 74 61 69 6c 28 39 29 3a 3d 28 69 66 20 66 70 20 74 68 65 6e 20 32 ┆ tail(9):=(if fp then 2┆
0x27140…27160 20 65 6c 73 65 20 33 29 20 73 68 69 66 74 20 31 32 20 2b 20 69 6e 64 68 6f 70 3b 0a 20 20 20 20 ┆ else 3) shift 12 + indhop; ┆
0x27160…2717a 20 20 20 20 20 20 74 61 69 6c 28 31 30 29 3a 3d 69 66 20 67 72 65 6e 70 69 6c ┆ tail(10):=if grenpil┆
0x2717a…27180 (0x194,0x4e4)
0x27180…271a0 3e 30 20 74 68 65 6e 20 70 72 6f 63 74 61 62 28 70 72 6f 63 61 6e 74 61 6c 2b 6b 6e 75 64 65 61 ┆>0 then proctab(procantal+knudea┆
0x271a0…271c0 6e 74 61 6c 2b 31 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 68 69 66 ┆ntal+1) shif┆
0x271c0…271e0 74 20 38 20 73 68 69 66 74 20 28 2d 31 36 29 20 73 68 69 66 74 20 38 20 65 6c 73 65 20 66 69 6c ┆t 8 shift (-16) shift 8 else fil┆
0x271e0…27200 6e 72 20 73 68 69 66 74 20 39 3b 0a 20 20 20 20 20 20 20 20 20 20 6d 6f 00 00 00 00 00 00 00 00 ┆nr shift 9; mo ┆
0x27200…27206 (313,) (0x194,0x4e5)
0x27206…27220 6e 69 74 6f 72 28 34 34 2c 73 61 76 65 2c 30 2c 74 61 69 6c 29 3b 0a 20 20 20 ┆nitor(44,save,0,tail); ┆
0x27220…27240 20 20 20 20 20 20 20 63 6c 6f 73 65 28 73 61 76 65 2c 74 72 75 65 29 3b 0a 20 20 20 20 20 20 20 ┆ close(save,true); ┆
0x27240…27260 20 20 20 69 66 20 73 79 73 74 65 6d 28 34 2c 31 2c 61 72 72 29 3c 3e 36 20 73 68 69 66 74 20 31 ┆ if system(4,1,arr)<>6 shift 1┆
0x27260…2727e 32 20 2b 20 31 30 20 74 68 65 6e 20 6d 6f 6e 69 74 6f 72 28 34 38 2c 73 61 76 65 2c 30 2c ┆2 + 10 then monitor(48,save,0,┆
0x2727e…27284 (0x194,0x4e6)
0x27284…272a0 74 61 69 6c 29 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 65 6e 64 ┆tail); end; end┆
0x272a0…272c0 3b 0a 20 20 20 20 20 69 66 20 2d 2c 20 78 72 65 66 20 74 68 65 6e 20 67 6f 74 6f 20 73 74 6f 70 ┆; if -, xref then goto stop┆
0x272c0…272e0 3b 0a 0a 62 65 67 69 6e 0a 20 20 6c 6f 6e 67 20 66 69 65 6c 64 20 6d 73 70 3b 0a 20 20 69 6e 74 ┆; begin long field msp; int┆
0x272e0…272fc 65 67 65 72 20 63 75 72 72 6e 6f 2c 73 65 63 74 69 6f 6e 73 2c 73 65 63 74 69 6f 6e ┆eger currno,sections,section┆
0x272fc…27302 (0x194,0x4e7)
0x27302…27320 63 6f 75 6e 74 3b 0a 20 20 6c 6f 6e 67 20 6d 61 78 76 61 6c 75 65 2c 63 75 72 72 6d 73 70 ┆count; long maxvalue,currmsp┆
0x27320…27340 2c 63 75 72 72 6c 73 70 3b 0a 20 20 69 6e 74 65 67 65 72 20 61 72 72 61 79 20 7a 69 61 28 31 3a ┆,currlsp; integer array zia(1:┆
0x27340…27360 32 30 29 3b 0a 20 20 6c 6f 6e 67 20 61 72 72 61 79 20 77 6f 72 6b 6e 61 6d 65 28 31 3a 32 29 3b ┆20); long array workname(1:2);┆
0x27360…2737a 0a 0a 20 20 70 72 6f 63 65 64 75 72 65 20 65 6f 66 28 7a 2c 73 2c 62 29 3b 0a ┆ procedure eof(z,s,b); ┆
0x2737a…27380 (0x194,0x4e8)
0x27380…273a0 20 20 7a 6f 6e 65 20 7a 3b 0a 20 20 69 6e 74 65 67 65 72 20 73 2c 62 3b 0a 20 20 62 65 67 69 6e ┆ zone z; integer s,b; begin┆
0x273a0…273c0 0a 20 20 20 20 73 3a 3d 30 3b 0a 20 20 20 20 62 3a 3d 73 65 63 74 69 6f 6e 73 2a 35 31 32 3b 0a ┆ s:=0; b:=sections*512; ┆
0x273c0…273e0 20 20 65 6e 64 20 65 6f 66 3b 0a 0a 20 20 73 65 63 74 69 6f 6e 73 3a 3d 34 30 3b 0a 20 20 6d 73 ┆ end eof; sections:=40; ms┆
0x273e0…27400 70 3a 3d 34 3b 0a 20 20 6d 61 78 76 61 6c 75 65 3a 3d 31 32 37 3b 20 6d 00 00 00 00 00 00 00 00 ┆p:=4; maxvalue:=127; m ┆
0x27400…27406 (314,) (0x194,0x4e9)
0x27406…27420 61 78 76 61 6c 75 65 3a 3d 6d 61 78 76 61 6c 75 65 20 73 68 69 66 74 20 34 30 ┆axvalue:=maxvalue shift 40┆
0x27420…27440 3b 0a 20 20 63 75 72 72 6d 73 70 3a 3d 6d 61 78 76 61 6c 75 65 3b 0a 20 20 67 65 74 7a 6f 6e 65 ┆; currmsp:=maxvalue; getzone┆
0x27440…27460 36 28 7a 78 72 65 66 2c 7a 69 61 29 3b 0a 20 20 77 6f 72 6b 6e 61 6d 65 28 31 29 3a 3d 7a 69 61 ┆6(zxref,zia); workname(1):=zia┆
0x27460…2747e 28 32 29 3b 0a 20 20 77 6f 72 6b 6e 61 6d 65 28 31 29 3a 3d 77 6f 72 6b 6e 61 6d 65 28 31 ┆(2); workname(1):=workname(1┆
0x2747e…27484 (0x194,0x4ea)
0x27484…274a0 29 20 73 68 69 66 74 20 32 34 20 61 64 64 20 7a 69 61 28 33 29 3b 0a 20 20 77 6f 72 ┆) shift 24 add zia(3); wor┆
0x274a0…274c0 6b 6e 61 6d 65 28 32 29 3a 3d 7a 69 61 28 34 29 3b 0a 20 20 77 6f 72 6b 6e 61 6d 65 28 32 29 3a ┆kname(2):=zia(4); workname(2):┆
0x274c0…274e0 3d 77 6f 72 6b 6e 61 6d 65 28 32 29 20 73 68 69 66 74 20 32 34 20 61 64 64 20 7a 69 61 28 35 29 ┆=workname(2) shift 24 add zia(5)┆
0x274e0…274fc 3b 0a 20 20 77 72 69 74 65 28 6f 75 74 2c 3c 3a 3c 31 32 3e 3c 31 30 3e 72 63 6d 6f ┆; write(out,<:<12><10>rcmo┆
0x274fc…27502 (0x194,0x4eb)
0x27502…27520 6c 20 63 72 6f 73 73 20 72 65 66 65 72 65 6e 63 65 73 3a 3c 31 30 3e 3c 31 30 3e 3a 3e 29 ┆l cross references:<10><10>:>)┆
0x27520…27540 3b 0a 0a 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 7a 6f 6e 65 20 7a 28 73 65 63 74 69 6f 6e 73 2a ┆; begin zone z(sections*┆
0x27540…27560 31 32 38 2c 31 2c 65 6f 66 29 3b 0a 20 20 20 20 69 6e 74 65 67 65 72 20 69 2c 6d 61 78 2c 66 69 ┆128,1,eof); integer i,max,fi┆
0x27560…2757a 6c 65 2c 62 6c 6f 63 6b 3b 0a 0a 20 20 20 20 70 72 6f 63 65 64 75 72 65 20 73 ┆le,block; procedure s┆
0x2757a…27580 (0x194,0x4ec)
0x27580…275a0 6f 72 74 28 7a 2c 6d 61 78 29 3b 0a 20 20 20 20 7a 6f 6e 65 20 7a 3b 0a 20 20 20 20 69 6e 74 65 ┆ort(z,max); zone z; inte┆
0x275a0…275c0 67 65 72 20 6d 61 78 3b 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 69 6e 74 65 67 65 72 ┆ger max; begin integer┆
0x275c0…275e0 20 69 2c 6a 2c 6b 2c 6d 3b 0a 20 20 20 20 20 20 6c 6f 6e 67 20 6d 73 70 31 2c 6c 73 70 31 2c 6d ┆ i,j,k,m; long msp1,lsp1,m┆
0x275e0…27600 73 70 32 2c 6c 73 70 32 3b 0a 20 20 20 20 20 20 73 77 6f 70 72 65 63 28 00 00 00 00 00 00 00 00 ┆sp2,lsp2; swoprec( ┆
0x27600…27606 (315,) (0x194,0x4ed)
0x27606…27620 7a 2c 32 2a 6d 61 78 29 3b 0a 20 20 20 20 20 20 66 6f 72 20 69 3a 3d 31 20 73 ┆z,2*max); for i:=1 s┆
0x27620…27640 74 65 70 20 69 20 75 6e 74 69 6c 20 6d 61 78 20 64 6f 20 6d 3a 3d 32 2a 69 2d 31 3b 0a 20 20 20 ┆tep i until max do m:=2*i-1; ┆
0x27640…27660 20 20 20 66 6f 72 20 6d 3a 3d 6d 2f 2f 32 20 77 68 69 6c 65 20 6d 20 3e 20 30 20 64 6f 0a 20 20 ┆ for m:=m//2 while m > 0 do ┆
0x27660…2767e 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 6b 3a 3d 6d 61 78 2d 6d 3b 0a 20 20 ┆ begin k:=max-m; ┆
0x2767e…27684 (0x194,0x4ee)
0x27684…276a0 20 20 20 20 20 20 66 6f 72 20 6a 3a 3d 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 ┆ for j:=1 step 1 until ┆
0x276a0…276c0 6b 20 64 6f 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 66 6f 72 ┆k do begin for┆
0x276c0…276e0 20 69 3a 3d 6a 20 73 74 65 70 20 2d 6d 20 75 6e 74 69 6c 20 31 20 64 6f 0a 20 20 20 20 20 20 20 ┆ i:=j step -m until 1 do ┆
0x276e0…276fc 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 6d 73 70 31 3a 3d 6c ┆ begin msp1:=l┆
0x276fc…27702 (0x194,0x4ef)
0x27702…27720 6f 6e 67 20 7a 28 32 2a 69 2d 31 29 3b 20 20 20 20 20 6c 73 70 31 3a 3d 6c 6f 6e 67 20 7a ┆ong z(2*i-1); lsp1:=long z┆
0x27720…27740 28 32 2a 69 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 6d 73 70 32 3a 3d 6c 6f 6e 67 20 7a 28 ┆(2*i); msp2:=long z(┆
0x27740…27760 32 2a 28 69 2b 6d 29 2d 31 29 3b 20 6c 73 70 32 3a 3d 6c 6f 6e 67 20 7a 28 32 2a 28 69 2b 6d 29 ┆2*(i+m)-1); lsp2:=long z(2*(i+m)┆
0x27760…2777a 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 6d 73 70 32 20 3e 20 6d ┆); if msp2 > m┆
0x2777a…27780 (0x194,0x4f0)
0x27780…277a0 73 70 31 20 6f 72 20 28 6d 73 70 32 20 3d 20 6d 73 70 31 20 61 6e 64 20 6c 73 70 32 20 3e 20 6c ┆sp1 or (msp2 = msp1 and lsp2 > l┆
0x277a0…277c0 73 70 31 29 20 74 68 65 6e 20 67 6f 74 6f 20 6e 65 78 74 6a 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆sp1) then goto nextj; ┆
0x277c0…277e0 20 20 7a 28 32 2a 69 2d 31 29 3a 3d 72 65 61 6c 20 6d 73 70 32 3b 20 20 20 20 20 7a 28 32 2a 69 ┆ z(2*i-1):=real msp2; z(2*i┆
0x277e0…27800 29 3a 3d 72 65 61 6c 20 6c 73 70 32 3b 0a 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆):=real lsp2; ┆
0x27800…27806 (316,) (0x194,0x4f1)
0x27806…27820 20 20 7a 28 32 2a 28 69 2b 6d 29 2d 31 29 3a 3d 72 65 61 6c 20 6d 73 70 31 3b ┆ z(2*(i+m)-1):=real msp1;┆
0x27820…27840 20 7a 28 32 2a 28 69 2b 6d 29 29 3a 3d 72 65 61 6c 20 6c 73 70 31 3b 0a 20 20 20 20 20 20 20 20 ┆ z(2*(i+m)):=real lsp1; ┆
0x27840…27860 20 20 65 6e 64 20 69 3b 0a 6e 65 78 74 6a 3a 0a 20 20 20 20 20 20 20 20 65 6e 64 20 6a 3b 0a 20 ┆ end i; nextj: end j; ┆
0x27860…2787e 20 20 20 20 20 65 6e 64 20 6d 3b 0a 20 20 20 20 65 6e 64 20 73 6f 72 74 3b 0a 0a 20 20 20 ┆ end m; end sort; ┆
0x2787e…27884 (0x194,0x4f2)
0x27884…278a0 20 69 3a 3d 31 3b 0a 20 20 20 20 6f 70 65 6e 28 7a 2c 34 2c 73 74 72 69 6e 67 20 77 ┆ i:=1; open(z,4,string w┆
0x278a0…278c0 6f 72 6b 6e 61 6d 65 28 69 6e 63 72 65 61 73 65 28 69 29 29 2c 31 20 73 68 69 66 74 20 31 38 29 ┆orkname(increase(i)),1 shift 18)┆
0x278c0…278e0 3b 0a 20 20 20 20 62 6c 6f 63 6b 3a 3d 73 65 63 74 69 6f 6e 63 6f 75 6e 74 3a 3d 30 3b 0a 20 20 ┆; block:=sectioncount:=0; ┆
0x278e0…278fc 20 20 6d 61 78 3a 3d 73 65 63 74 69 6f 6e 73 2a 36 34 3b 0a 20 20 20 20 66 6f 72 20 ┆ max:=sections*64; for ┆
0x278fc…27902 (0x194,0x4f3)
0x27902…27920 69 3a 3d 69 20 77 68 69 6c 65 20 6d 61 78 20 3d 20 73 65 63 74 69 6f 6e 73 2a 36 34 20 64 ┆i:=i while max = sections*64 d┆
0x27920…27940 6f 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 73 65 74 70 6f 73 69 74 69 6f 6e 28 7a 2c ┆o begin setposition(z,┆
0x27940…27960 30 2c 62 6c 6f 63 6b 29 3b 0a 20 20 20 20 20 20 69 3a 3d 30 3b 0a 20 20 20 20 20 20 66 6f 72 20 ┆0,block); i:=0; for ┆
0x27960…2797a 69 3a 3d 69 2b 31 20 77 68 69 6c 65 20 69 20 3c 3d 20 6d 61 78 20 64 6f 0a 20 ┆i:=i+1 while i <= max do ┆
0x2797a…27980 (0x194,0x4f4)
0x27980…279a0 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 69 6e 72 65 63 36 28 7a 2c 38 29 3b 0a ┆ begin inrec6(z,8); ┆
0x279a0…279c0 20 20 20 20 20 20 20 20 69 66 20 7a 2e 6d 73 70 20 3e 3d 20 6d 61 78 76 61 6c 75 65 20 74 68 65 ┆ if z.msp >= maxvalue the┆
0x279c0…279e0 6e 20 6d 61 78 3a 3d 69 2d 31 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 73 65 74 ┆n max:=i-1; end; set┆
0x279e0…27a00 70 6f 73 69 74 69 6f 6e 28 7a 2c 30 2c 62 6c 6f 63 6b 29 3b 0a 20 20 20 00 00 00 00 00 00 00 00 ┆position(z,0,block); ┆
0x27a00…27a06 (317,) (0x194,0x4f5)
0x27a06…27a20 20 20 20 73 6f 72 74 28 7a 2c 6d 61 78 29 3b 0a 20 20 20 20 20 20 73 65 63 74 ┆ sort(z,max); sect┆
0x27a20…27a40 69 6f 6e 63 6f 75 6e 74 3a 3d 73 65 63 74 69 6f 6e 63 6f 75 6e 74 2b 31 3b 0a 20 20 20 20 20 20 ┆ioncount:=sectioncount+1; ┆
0x27a40…27a60 62 6c 6f 63 6b 3a 3d 62 6c 6f 63 6b 2b 73 65 63 74 69 6f 6e 73 3b 0a 20 20 20 20 65 6e 64 3b 0a ┆block:=block+sections; end; ┆
0x27a60…27a7e 20 20 20 20 63 6c 6f 73 65 28 7a 2c 66 61 6c 73 65 29 3b 0a 20 20 65 6e 64 3b 0a 0a 20 20 ┆ close(z,false); end; ┆
0x27a7e…27a84 (0x194,0x4f6)
0x27a84…27aa0 62 65 67 69 6e 0a 20 20 20 20 7a 6f 6e 65 20 61 72 72 61 79 20 7a 28 73 65 63 74 69 ┆begin zone array z(secti┆
0x27aa0…27ac0 6f 6e 73 2c 31 32 38 2c 31 2c 65 6f 66 29 3b 0a 20 20 20 20 69 6e 74 65 67 65 72 20 61 72 72 61 ┆ons,128,1,eof); integer arra┆
0x27ac0…27ae0 79 20 72 65 73 74 28 31 3a 73 65 63 74 69 6f 6e 73 29 3b 0a 20 20 20 20 6c 6f 6e 67 20 61 72 72 ┆y rest(1:sections); long arr┆
0x27ae0…27afc 61 79 20 61 72 72 28 31 3a 32 29 3b 0a 20 20 20 20 69 6e 74 65 67 65 72 20 69 2c 6a ┆ay arr(1:2); integer i,j┆
0x27afc…27b02 (0x194,0x4f7)
0x27b02…27b20 2c 62 65 73 74 7a 6f 6e 65 3b 0a 0a 20 20 20 20 62 6f 6f 6c 65 61 6e 20 70 72 6f 63 65 64 ┆,bestzone; boolean proced┆
0x27b20…27b40 75 72 65 20 6e 65 78 74 28 61 72 72 29 3b 0a 20 20 20 20 6c 6f 6e 67 20 61 72 72 61 79 20 61 72 ┆ure next(arr); long array ar┆
0x27b40…27b60 72 3b 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 69 6e 74 65 67 65 72 20 69 2c 62 65 73 ┆r; begin integer i,bes┆
0x27b60…27b7a 74 7a 6f 6e 65 3b 0a 20 20 20 20 20 20 6c 6f 6e 67 20 66 69 65 6c 64 20 6d 73 ┆tzone; long field ms┆
0x27b7a…27b80 (0x194,0x4f8)
0x27b80…27ba0 70 2c 6c 73 70 3b 0a 20 20 20 20 20 20 6d 73 70 3a 3d 34 3b 20 6c 73 70 3a 3d 38 3b 0a 20 20 20 ┆p,lsp; msp:=4; lsp:=8; ┆
0x27ba0…27bc0 20 20 20 62 65 73 74 7a 6f 6e 65 3a 3d 2d 31 3b 0a 20 20 20 20 20 20 61 72 72 28 31 29 3a 3d 6d ┆ bestzone:=-1; arr(1):=m┆
0x27bc0…27be0 61 78 76 61 6c 75 65 3b 0a 20 20 20 20 20 20 61 72 72 28 32 29 3a 3d 30 3b 0a 20 20 20 20 20 20 ┆axvalue; arr(2):=0; ┆
0x27be0…27c00 66 6f 72 20 69 3a 3d 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 73 65 00 00 00 00 00 00 00 00 ┆for i:=1 step 1 until se ┆
0x27c00…27c06 (318,) (0x194,0x4f9)
0x27c06…27c20 63 74 69 6f 6e 63 6f 75 6e 74 20 64 6f 0a 20 20 20 20 20 20 62 65 67 69 6e 0a ┆ctioncount do begin ┆
0x27c20…27c40 20 20 20 20 20 20 20 20 69 66 20 72 65 73 74 28 69 29 20 3e 20 30 20 74 68 65 6e 0a 20 20 20 20 ┆ if rest(i) > 0 then ┆
0x27c40…27c60 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 7a 28 69 29 2e 6d 73 70 20 ┆ begin if z(i).msp ┆
0x27c60…27c7e 3c 20 61 72 72 28 31 29 20 6f 72 20 28 7a 28 69 29 2e 6d 73 70 20 3d 20 61 72 72 28 31 29 ┆< arr(1) or (z(i).msp = arr(1)┆
0x27c7e…27c84 (0x194,0x4fa)
0x27c84…27ca0 20 61 6e 64 20 7a 28 69 29 2e 6c 73 70 20 3c 20 61 72 72 28 32 29 29 20 74 68 65 6e ┆ and z(i).lsp < arr(2)) then┆
0x27ca0…27cc0 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 61 72 72 ┆ begin arr┆
0x27cc0…27ce0 28 31 29 3a 3d 7a 28 69 29 2e 6d 73 70 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 61 72 72 28 32 ┆(1):=z(i).msp; arr(2┆
0x27ce0…27cfc 29 3a 3d 7a 28 69 29 2e 6c 73 70 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 73 ┆):=z(i).lsp; bes┆
0x27cfc…27d02 (0x194,0x4fb)
0x27d02…27d20 74 7a 6f 6e 65 3a 3d 69 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 ┆tzone:=i; end; ┆
0x27d20…27d40 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 65 6e 64 20 69 3b 0a 20 20 20 20 20 20 69 66 20 62 65 ┆ end; end i; if be┆
0x27d40…27d60 73 74 7a 6f 6e 65 20 3c 20 31 20 74 68 65 6e 20 6e 65 78 74 3a 3d 66 61 6c 73 65 20 65 6c 73 65 ┆stzone < 1 then next:=false else┆
0x27d60…27d7a 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 6e 65 78 74 3a ┆ begin next:┆
0x27d7a…27d80 (0x194,0x4fc)
0x27d80…27da0 3d 74 72 75 65 3b 0a 20 20 20 20 20 20 20 20 72 65 73 74 28 62 65 73 74 7a 6f 6e 65 29 3a 3d 72 ┆=true; rest(bestzone):=r┆
0x27da0…27dc0 65 73 74 28 62 65 73 74 7a 6f 6e 65 29 2d 31 3b 0a 20 20 20 20 20 20 20 20 69 6e 72 65 63 36 28 ┆est(bestzone)-1; inrec6(┆
0x27dc0…27de0 7a 28 62 65 73 74 7a 6f 6e 65 29 2c 38 29 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 65 ┆z(bestzone),8); end; e┆
0x27de0…27e00 6e 64 20 6e 65 78 74 3b 0a 0a 20 20 20 20 70 72 6f 63 65 64 75 72 65 20 00 00 00 00 00 00 00 00 ┆nd next; procedure ┆
0x27e00…27e06 (319,) (0x194,0x4fd)
0x27e06…27e20 64 69 73 70 6c 61 79 28 61 72 72 29 3b 0a 20 20 20 20 6c 6f 6e 67 20 61 72 72 ┆display(arr); long arr┆
0x27e20…27e40 61 79 20 61 72 72 3b 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 69 6e 74 65 67 65 72 20 ┆ay arr; begin integer ┆
0x27e40…27e60 69 2c 63 68 61 72 3b 0a 20 20 20 20 20 20 69 66 20 63 75 72 72 6d 73 70 20 3c 3e 20 61 72 72 28 ┆i,char; if currmsp <> arr(┆
0x27e60…27e7e 31 29 20 6f 72 20 63 75 72 72 6c 73 70 20 73 68 69 66 74 20 28 2d 32 34 29 20 3c 3e 20 61 ┆1) or currlsp shift (-24) <> a┆
0x27e7e…27e84 (0x194,0x4fe)
0x27e84…27ea0 72 72 28 32 29 20 73 68 69 66 74 20 28 2d 32 34 29 20 74 68 65 6e 0a 20 20 20 20 20 ┆rr(2) shift (-24) then ┆
0x27ea0…27ec0 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 6f 75 74 63 68 61 72 28 6f 75 74 2c 31 30 29 3b 0a ┆ begin outchar(out,10); ┆
0x27ec0…27ee0 20 20 20 20 20 20 20 20 66 6f 72 20 69 3a 3d 30 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 38 20 ┆ for i:=0 step 1 until 8 ┆
0x27ee0…27efc 64 6f 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 63 ┆do begin c┆
0x27efc…27f02 (0x194,0x4ff)
0x27f02…27f20 68 61 72 3a 3d 61 72 72 28 69 2f 2f 36 2b 31 29 20 73 68 69 66 74 20 28 2d 34 30 2b 28 69 ┆har:=arr(i//6+1) shift (-40+(i┆
0x27f20…27f40 20 6d 6f 64 20 36 29 2a 38 29 20 65 78 74 72 61 63 74 20 38 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆ mod 6)*8) extract 8; ┆
0x27f40…27f60 69 66 20 63 68 61 72 20 3d 20 30 20 74 68 65 6e 20 63 68 61 72 3a 3d 33 32 3b 0a 20 20 20 20 20 ┆if char = 0 then char:=32; ┆
0x27f60…27f7a 20 20 20 20 20 6f 75 74 63 68 61 72 28 6f 75 74 2c 63 68 61 72 29 3b 0a 20 20 ┆ outchar(out,char); ┆
0x27f7a…27f80 (0x194,0x500)
0x27f80…27fa0 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 63 75 72 72 6d 73 70 3a 3d 61 72 72 28 ┆ end; currmsp:=arr(┆
0x27fa0…27fc0 31 29 3b 0a 20 20 20 20 20 20 20 20 63 75 72 72 6c 73 70 3a 3d 61 72 72 28 32 29 3b 0a 20 20 20 ┆1); currlsp:=arr(2); ┆
0x27fc0…27fe0 20 20 20 20 20 63 75 72 72 6e 6f 3a 3d 31 3b 0a 20 20 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 ┆ currno:=1; write(ou┆
0x27fe0…28000 74 2c 3c 3c 64 64 64 64 64 64 3e 2c 63 75 72 72 6c 73 70 20 65 78 74 72 00 00 00 00 00 00 00 00 ┆t,<<dddddd>,currlsp extr ┆
0x28000…28006 (320,) (0x194,0x501)
0x28006…28020 61 63 74 20 32 30 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆act 20, ┆
0x28020…28040 66 61 6c 73 65 20 61 64 64 20 28 69 66 20 63 75 72 72 6c 73 70 20 73 68 69 66 74 20 28 2d 32 30 ┆false add (if currlsp shift (-20┆
0x28040…28060 29 20 65 78 74 72 61 63 74 20 31 20 3d 20 31 20 74 68 65 6e 20 0a 20 20 20 20 20 20 20 20 20 20 ┆) extract 1 = 1 then ┆
0x28060…2807e 20 20 20 20 20 20 20 20 33 32 20 65 6c 73 65 20 34 32 29 2c 31 29 3b 0a 20 20 20 20 20 20 ┆ 32 else 42),1); ┆
0x2807e…28084 (0x194,0x502)
0x28084…280a0 65 6e 64 20 65 6c 73 65 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 ┆end else begin ┆
0x280a0…280c0 20 69 66 20 63 75 72 72 6e 6f 20 6d 6f 64 20 31 30 20 3d 20 30 20 74 68 65 6e 20 77 72 69 74 65 ┆ if currno mod 10 = 0 then write┆
0x280c0…280e0 28 6f 75 74 2c 66 61 6c 73 65 20 61 64 64 20 31 30 2c 31 2c 66 61 6c 73 65 20 61 64 64 20 33 32 ┆(out,false add 10,1,false add 32┆
0x280e0…280fc 2c 39 29 3b 0a 20 20 20 20 20 20 20 20 63 75 72 72 6e 6f 3a 3d 63 75 72 72 6e 6f 2b ┆,9); currno:=currno+┆
0x280fc…28102 (0x194,0x503)
0x28102…28120 31 3b 0a 20 20 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 3c 3c 64 64 64 64 64 64 3e ┆1; write(out,<<dddddd>┆
0x28120…28140 2c 61 72 72 28 32 29 20 65 78 74 72 61 63 74 20 32 30 2c 66 61 6c 73 65 20 61 64 64 20 28 69 66 ┆,arr(2) extract 20,false add (if┆
0x28140…28160 20 61 72 72 28 32 29 20 73 68 69 66 74 20 28 2d 32 30 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ arr(2) shift (-20) ┆
0x28160…2817a 20 20 65 78 74 72 61 63 74 20 31 20 3d 20 31 20 74 68 65 6e 20 33 32 20 65 6c ┆ extract 1 = 1 then 32 el┆
0x2817a…28180 (0x194,0x504)
0x28180…281a0 73 65 20 34 32 29 2c 31 29 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 65 6e 64 20 64 69 ┆se 42),1); end; end di┆
0x281a0…281c0 73 70 6c 61 79 3b 0a 0a 20 20 20 20 66 6f 72 20 69 3a 3d 31 20 73 74 65 70 20 31 20 75 6e 74 69 ┆splay; for i:=1 step 1 unti┆
0x281c0…281e0 6c 20 73 65 63 74 69 6f 6e 63 6f 75 6e 74 20 64 6f 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 ┆l sectioncount do begin ┆
0x281e0…28200 20 20 6a 3a 3d 31 3b 0a 20 20 20 20 20 20 6f 70 65 6e 28 7a 28 69 29 2c 00 00 00 00 00 00 00 00 ┆ j:=1; open(z(i), ┆
0x28200…28206 (321,) (0x194,0x505)
0x28206…28220 34 2c 73 74 72 69 6e 67 20 77 6f 72 6b 6e 61 6d 65 28 69 6e 63 72 65 61 73 65 ┆4,string workname(increase┆
0x28220…28240 28 6a 29 29 2c 31 20 73 68 69 66 74 20 31 38 29 3b 0a 20 20 20 20 20 20 73 65 74 70 6f 73 69 74 ┆(j)),1 shift 18); setposit┆
0x28240…28260 69 6f 6e 28 7a 28 69 29 2c 30 2c 73 65 63 74 69 6f 6e 73 2a 28 69 2d 31 29 29 3b 0a 20 20 20 20 ┆ion(z(i),0,sections*(i-1)); ┆
0x28260…2827e 20 20 69 6e 72 65 63 36 28 7a 28 69 29 2c 38 29 3b 0a 20 20 20 20 20 20 72 65 73 74 28 69 ┆ inrec6(z(i),8); rest(i┆
0x2827e…28284 (0x194,0x506)
0x28284…282a0 29 3a 3d 73 65 63 74 69 6f 6e 73 2a 36 34 3b 0a 20 20 20 20 65 6e 64 3b 0a 20 20 20 ┆):=sections*64; end; ┆
0x282a0…282c0 20 66 6f 72 20 69 3a 3d 69 20 77 68 69 6c 65 20 6e 65 78 74 28 61 72 72 29 20 64 6f 20 64 69 73 ┆ for i:=i while next(arr) do dis┆
0x282c0…282e0 70 6c 61 79 28 61 72 72 29 3b 0a 20 20 20 20 66 6f 72 20 69 3a 3d 31 20 73 74 65 70 20 31 20 75 ┆play(arr); for i:=1 step 1 u┆
0x282e0…282fc 6e 74 69 6c 20 73 65 63 74 69 6f 6e 63 6f 75 6e 74 20 64 6f 20 63 6c 6f 73 65 28 7a ┆ntil sectioncount do close(z┆
0x282fc…28302 (0x194,0x507)
0x28302…28320 28 69 29 2c 74 72 75 65 29 3b 0a 20 20 20 20 6d 6f 6e 69 74 6f 72 28 34 38 2c 7a 78 72 65 ┆(i),true); monitor(48,zxre┆
0x28320…28340 66 2c 30 2c 7a 69 61 29 3b 0a 20 20 65 6e 64 3b 0a 65 6e 64 3b 0a 0a 73 74 6f 70 3a 0a 65 6e 64 ┆f,0,zia); end; end; stop: end┆
0x28340…28360 0a 0a 0a 0a 65 6e 64 0a 19 00 20 20 66 61 6c 73 65 20 61 64 64 20 28 69 66 20 63 75 72 72 6c 73 ┆ end false add (if currls┆
0x28360…2837a 70 20 73 68 69 66 74 20 28 2d 32 30 29 20 65 78 74 72 61 63 74 20 31 20 3d 20 ┆p shift (-20) extract 1 = ┆
0x2837a…28380 (0x194,0x508)
0x28380…283a0 31 20 74 68 65 6e 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 70 3a 3d 61 72 72 28 ┆1 then sp:=arr(┆
0x283a0…283c0 31 29 3b 0a 20 20 20 20 20 20 20 20 63 75 72 72 6c 73 70 3a 3d 61 72 72 28 32 29 3b 0a 20 20 20 ┆1); currlsp:=arr(2); ┆
0x283c0…283e0 20 20 20 20 20 63 75 72 72 6e 6f 3a 3d 31 3b 0a 20 20 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 ┆ currno:=1; write(ou┆
0x283e0…28400 74 2c 3c 3c 64 64 64 64 64 64 3e 2c 63 75 72 72 6c 73 70 20 65 78 74 72 00 00 00 00 00 00 00 00 ┆t,<<dddddd>,currlsp extr ┆
0x28400…28406 (322,) (0x1f8,0x509)
0x28406…28420 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 2a 20 20 74 74 72 61 63 65 20 ┆; *** ttrace ┆
0x28420…28440 20 2a 2a 2a 0a 3b 0a 3b 0a 3b 20 70 72 6f 67 72 61 6d 20 66 6f 72 20 61 6e 61 6c 79 7a 69 6e 67 ┆ *** ; ; ; program for analyzing┆
0x28440…28460 20 74 65 73 74 6f 75 74 70 75 74 0a 3b 0a 3b 20 72 65 6c 65 61 73 65 20 33 2e 30 20 6f 63 74 2e ┆ testoutput ; ; release 3.0 oct.┆
0x28460…2847e 20 31 39 38 31 20 20 65 64 69 74 68 20 72 6f 73 65 6e 62 65 72 67 0a 3b 0a 0a 0a 62 65 67 ┆ 1981 edith rosenberg ; beg┆
0x2847e…28484 (0x1f8,0x50a)
0x28484…284a0 69 6e 0a 20 20 7a 6f 6e 65 20 7a 28 31 32 38 2c 31 2c 65 6f 66 29 3b 0a 20 20 69 6e ┆in zone z(128,1,eof); in┆
0x284a0…284c0 74 65 67 65 72 20 69 2c 66 69 6c 65 2c 62 2c 77 61 6e 74 65 64 2c 66 69 6c 65 73 69 7a 65 2c 6f ┆teger i,file,b,wanted,filesize,o┆
0x284c0…284e0 6c 64 74 69 6d 65 2c 6f 6c 64 75 73 65 72 2c 72 65 73 74 2c 6b 69 6e 64 2c 73 69 7a 65 3b 0a 20 ┆ldtime,olduser,rest,kind,size; ┆
0x284e0…284fc 20 69 6e 74 65 67 65 72 20 66 69 65 6c 64 20 68 2c 75 2c 66 3b 0a 20 20 72 65 61 6c ┆ integer field h,u,f; real┆
0x284fc…28502 (0x1f8,0x50b)
0x28502…28520 20 61 72 72 61 79 20 61 72 72 28 31 3a 32 29 3b 0a 20 20 69 6e 74 65 67 65 72 20 61 72 72 ┆ array arr(1:2); integer arr┆
0x28520…28540 61 79 20 74 61 69 6c 28 31 3a 31 30 29 3b 0a 20 20 72 65 61 6c 20 74 69 6d 65 2c 72 3b 0a 20 20 ┆ay tail(1:10); real time,r; ┆
0x28540…28560 62 6f 6f 6c 65 61 6e 20 73 74 61 72 74 75 70 3b 0a 0a 20 20 70 72 6f 63 65 64 75 72 65 20 65 6f ┆boolean startup; procedure eo┆
0x28560…2857a 66 28 7a 2c 73 2c 62 29 3b 0a 20 20 7a 6f 6e 65 20 7a 3b 20 69 6e 74 65 67 65 ┆f(z,s,b); zone z; intege┆
0x2857a…28580 (0x1f8,0x50c)
0x28580…285a0 72 20 73 2c 62 3b 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 73 65 74 70 6f 73 69 74 69 6f 6e 28 7a ┆r s,b; begin setposition(z┆
0x285a0…285c0 2c 30 2c 31 29 3b 0a 20 20 20 20 73 3a 3d 30 3b 0a 20 20 20 20 62 3a 3d 30 3b 0a 20 20 20 20 73 ┆,0,1); s:=0; b:=0; s┆
0x285c0…285e0 74 61 72 74 75 70 3a 3d 66 61 6c 73 65 3b 0a 20 20 65 6e 64 20 65 6f 66 3b 0a 0a 20 20 70 72 6f ┆tartup:=false; end eof; pro┆
0x285e0…28600 63 65 64 75 72 65 20 63 61 6c 6c 65 72 72 6f 72 28 65 72 72 6f 72 6e 6f 00 00 00 00 00 00 00 00 ┆cedure callerror(errorno ┆
0x28600…28606 (323,) (0x1f8,0x50d)
0x28606…28620 29 3b 0a 20 20 69 6e 74 65 67 65 72 20 65 72 72 6f 72 6e 6f 3b 0a 20 20 62 65 ┆); integer errorno; be┆
0x28620…28640 67 69 6e 0a 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 3c 3a 3c 31 30 3e 2a 2a 2a 74 72 61 63 65 ┆gin write(out,<:<10>***trace┆
0x28640…28660 20 3a 3e 2c 20 63 61 73 65 20 65 72 72 6f 72 6e 6f 20 6f 66 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ :>, case errorno of ┆
0x28660…2867e 20 20 28 3c 3a 73 69 7a 65 70 61 72 61 6d 20 69 6c 6c 65 67 61 6c 3a 3e 2c 0a 20 20 20 20 ┆ (<:sizeparam illegal:>, ┆
0x2867e…28684 (0x1f8,0x50e)
0x28684…286a0 20 20 20 20 20 20 20 20 20 20 3c 3a 63 61 6c 6c 3a 3e 29 2c 3c 3a 3c 31 30 3e 3a 3e ┆ <:call:>),<:<10>:>┆
0x286a0…286c0 29 3b 0a 20 20 20 20 67 6f 74 6f 20 61 62 65 6e 64 3b 0a 20 20 65 6e 64 20 63 61 6c 6c 65 72 72 ┆); goto abend; end callerr┆
0x286c0…286e0 6f 72 3b 0a 0a 20 20 70 72 6f 63 65 64 75 72 65 20 77 72 69 74 65 63 68 61 72 28 63 68 61 72 29 ┆or; procedure writechar(char)┆
0x286e0…286fc 3b 0a 20 20 69 6e 74 65 67 65 72 20 63 68 61 72 3b 0a 20 20 62 65 67 69 6e 0a 20 20 ┆; integer char; begin ┆
0x286fc…28702 (0x1f8,0x50f)
0x28702…28720 20 20 6f 75 74 63 68 61 72 28 6f 75 74 2c 63 68 61 72 29 3b 0a 20 20 20 20 69 66 20 63 68 ┆ outchar(out,char); if ch┆
0x28720…28740 61 72 3d 31 30 20 74 68 65 6e 20 77 72 69 74 65 28 6f 75 74 2c 66 61 6c 73 65 20 61 64 64 20 33 ┆ar=10 then write(out,false add 3┆
0x28740…28760 32 2c 32 33 29 3b 0a 20 20 65 6e 64 20 77 72 69 74 65 63 68 61 72 3b 0a 0a 20 20 70 72 6f 63 65 ┆2,23); end writechar; proce┆
0x28760…2877a 64 75 72 65 20 70 72 69 6e 74 72 65 63 6f 72 64 3b 0a 20 20 62 65 67 69 6e 0a ┆dure printrecord; begin ┆
0x2877a…28780 (0x1f8,0x510)
0x28780…287a0 20 20 20 20 6f 75 74 63 68 61 72 28 6f 75 74 2c 69 66 20 72 65 73 74 3d 35 31 30 20 74 68 65 6e ┆ outchar(out,if rest=510 then┆
0x287a0…287c0 20 36 32 20 65 6c 73 65 20 33 32 29 3b 20 20 20 3c 2a 20 36 32 20 3d 20 27 3e 27 20 64 65 6e 6f ┆ 62 else 32); <* 62 = '>' deno┆
0x287c0…287e0 74 65 73 20 73 65 67 6d 65 6e 74 20 73 74 61 72 74 20 2a 3e 0a 20 20 20 20 69 66 20 6b 69 6e 64 ┆tes segment start *> if kind┆
0x287e0…28800 20 3c 20 37 30 20 74 68 65 6e 0a 20 20 20 20 77 72 69 74 65 28 6f 75 74 00 00 00 00 00 00 00 00 ┆ < 70 then write(out ┆
0x28800…28806 (324,) (0x1f8,0x511)
0x28806…28820 2c 63 61 73 65 20 6b 69 6e 64 2b 31 20 6f 66 20 28 0a 20 20 20 20 20 20 3c 3a ┆,case kind+1 of ( <:┆
0x28820…28840 74 65 78 74 3a 3e 2c 3c 3a 70 62 72 6b 3a 3e 2c 3c 3a 73 65 6e 64 3a 3e 2c 3c 3a 73 77 6f 70 3a ┆text:>,<:pbrk:>,<:send:>,<:swop:┆
0x28840…28860 3e 2c 3c 3a 73 74 6f 70 3a 3e 2c 0a 20 20 20 20 20 20 3c 3a 73 74 72 74 3a 3e 2c 3c 3a 65 76 6e ┆>,<:stop:>, <:strt:>,<:evn┆
0x28860…2887e 74 3a 3e 2c 3c 3a 2a 2a 2a 2a 3a 3e 2c 3c 3a 72 65 73 6f 3a 3e 2c 3c 3a 6c 69 6e 6b 3a 3e ┆t:>,<:****:>,<:reso:>,<:link:>┆
0x2887e…28884 (0x1f8,0x512)
0x28884…288a0 2c 0a 20 20 20 20 20 20 3c 3a 65 76 6e 74 3a 3e 2c 3c 3a 65 78 69 74 3a 3e 2c 3c 3a ┆, <:evnt:>,<:exit:>,<:┆
0x288a0…288c0 6c 6f 63 6b 3a 3e 2c 3c 3a 6f 70 65 6e 3a 3e 2c 3c 3a 73 65 6e 64 3a 3e 2c 0a 20 20 20 20 20 20 ┆lock:>,<:open:>,<:send:>, ┆
0x288c0…288e0 3c 3a 2a 2a 2a 2a 3a 3e 2c 3c 3a 30 30 31 36 3a 3e 2c 3c 3a 30 30 31 37 3a 3e 2c 3c 3a 30 30 31 ┆<:****:>,<:0016:>,<:0017:>,<:001┆
0x288e0…288fc 38 3a 3e 2c 3c 3a 30 30 31 39 3a 3e 2c 0a 20 20 20 20 20 20 3c 3a 67 65 74 76 3a 3e ┆8:>,<:0019:>, <:getv:>┆
0x288fc…28902 (0x1f8,0x513)
0x28902…28920 2c 3c 3a 72 74 6d 73 3a 3e 2c 3c 3a 30 30 32 32 3a 3e 2c 3c 3a 30 30 32 33 3a 3e 2c 3c 3a ┆,<:rtms:>,<:0022:>,<:0023:>,<:┆
0x28920…28940 30 30 32 34 3a 3e 2c 0a 20 20 20 20 20 20 3c 3a 30 30 32 35 3a 3e 2c 3c 3a 65 76 74 72 3a 3e 2c ┆0024:>, <:0025:>,<:evtr:>,┆
0x28940…28960 3c 3a 30 30 32 37 3a 3e 2c 3c 3a 30 30 32 38 3a 3e 2c 3c 3a 30 30 32 39 3a 3e 2c 0a 20 20 20 20 ┆<:0027:>,<:0028:>,<:0029:>, ┆
0x28960…2897a 20 20 3c 3a 73 74 72 74 3a 3e 2c 3c 3a 2d 62 72 2d 3a 3e 2c 3c 3a 2d 62 74 2d ┆ <:strt:>,<:-br-:>,<:-bt-┆
0x2897a…28980 (0x1f8,0x514)
0x28980…289a0 3a 3e 2c 3c 3a 2d 64 72 2d 3a 3e 2c 3c 3a 2d 64 74 2d 3a 3e 2c 0a 20 20 20 20 20 20 3c 3a 2d 70 ┆:>,<:-dr-:>,<:-dt-:>, <:-p┆
0x289a0…289c0 72 2d 3a 3e 2c 3c 3a 2d 70 74 2d 3a 3e 2c 3c 3a 2d 73 63 2d 3a 3e 2c 3c 3a 2d 6f 70 2d 3a 3e 2c ┆r-:>,<:-pt-:>,<:-sc-:>,<:-op-:>,┆
0x289c0…289e0 3c 3a 30 30 33 39 3a 3e 2c 0a 20 20 20 20 20 20 3c 3a 6f 70 62 72 3a 3e 2c 3c 3a 6f 70 62 74 3a ┆<:0039:>, <:opbr:>,<:opbt:┆
0x289e0…28a00 3e 2c 3c 3a 6f 70 64 72 3a 3e 2c 3c 3a 6f 70 64 74 3a 3e 2c 3c 3a 6f 70 00 00 00 00 00 00 00 00 ┆>,<:opdr:>,<:opdt:>,<:op ┆
0x28a00…28a06 (325,) (0x1f8,0x515)
0x28a06…28a20 70 72 3a 3e 2c 0a 20 20 20 20 20 20 3c 3a 6f 70 70 74 3a 3e 2c 3c 3a 30 30 34 ┆pr:>, <:oppt:>,<:004┆
0x28a20…28a40 36 3a 3e 2c 3c 3a 30 30 34 37 3a 3e 2c 3c 3a 30 30 34 38 3a 3e 2c 3c 3a 63 6c 6f 73 3a 3e 2c 0a ┆6:>,<:0047:>,<:0048:>,<:clos:>, ┆
0x28a40…28a60 20 20 20 20 20 20 3c 3a 67 65 74 72 3a 3e 2c 3c 3a 70 75 74 72 3a 3e 2c 3c 3a 74 72 6e 73 3a 3e ┆ <:getr:>,<:putr:>,<:trns:>┆
0x28a60…28a7e 2c 3c 3a 63 72 70 68 3a 3e 2c 3c 3a 72 65 70 68 3a 3e 2c 0a 20 20 20 20 20 20 3c 3a 63 72 ┆,<:crph:>,<:reph:>, <:cr┆
0x28a7e…28a84 (0x1f8,0x516)
0x28a84…28aa0 74 68 3a 3e 2c 3c 3a 72 65 74 68 3a 3e 2c 3c 3a 63 6e 63 74 3a 3e 2c 3c 3a 64 73 63 ┆th:>,<:reth:>,<:cnct:>,<:dsc┆
0x28aa0…28ac0 6e 3a 3e 2c 3c 3a 30 30 35 39 3a 3e 2c 0a 20 20 20 20 20 20 3c 3a 75 6e 69 6e 3a 3e 2c 3c 3a 61 ┆n:>,<:0059:>, <:unin:>,<:a┆
0x28ac0…28ae0 6e 73 77 3a 3e 2c 3c 3a 77 6d 65 73 3a 3e 2c 3c 3a 73 6e 64 77 3a 3e 2c 3c 3a 6f 70 6d 73 3a 3e ┆nsw:>,<:wmes:>,<:sndw:>,<:opms:>┆
0x28ae0…28afc 2c 0a 20 20 20 20 20 20 3c 3a 30 30 36 35 3a 3e 2c 3c 3a 64 61 74 61 3a 3e 2c 3c 3a ┆, <:0065:>,<:data:>,<:┆
0x28afc…28b02 (0x1f8,0x517)
0x28b02…28b20 77 61 6e 73 3a 3e 2c 3c 3a 64 73 63 72 3a 3e 2c 3c 3a 74 72 69 6d 3a 3e 29 2c 0a 20 20 20 ┆wans:>,<:dscr:>,<:trim:>), ┆
0x28b20…28b40 20 20 20 3c 3a 20 3a 3e 29 20 65 6c 73 65 20 77 72 69 74 65 28 6f 75 74 2c 3c 3c 7a 64 64 64 3e ┆ <: :>) else write(out,<<zddd>┆
0x28b40…28b60 2c 6b 69 6e 64 2c 3c 3a 20 3a 3e 29 3b 0a 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 3c 3c 64 64 ┆,kind,<: :>); write(out,<<dd┆
0x28b60…28b7a 64 64 64 64 64 3e 2c 7a 2e 68 2c 3c 3c 2d 64 64 64 64 64 64 3e 2c 7a 2e 75 29 ┆ddddd>,z.h,<<-dddddd>,z.u)┆
0x28b7a…28b80 (0x1f8,0x518)
0x28b80…28ba0 3b 0a 20 20 20 20 69 66 20 6b 69 6e 64 3d 30 20 74 68 65 6e 0a 20 20 20 20 62 65 67 69 6e 0a 20 ┆; if kind=0 then begin ┆
0x28ba0…28bc0 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 66 61 6c 73 65 20 61 64 64 20 33 32 2c 33 29 3b 0a ┆ write(out,false add 32,3); ┆
0x28bc0…28be0 20 20 20 20 20 20 66 6f 72 20 66 3a 3d 36 20 73 74 65 70 20 32 20 75 6e 74 69 6c 20 73 69 7a 65 ┆ for f:=6 step 2 until size┆
0x28be0…28c00 2d 32 20 64 6f 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆-2 do begin ┆
0x28c00…28c06 (326,) (0x1f8,0x519)
0x28c06…28c20 20 20 77 72 69 74 65 63 68 61 72 28 7a 2e 66 20 73 68 69 66 74 20 28 2d 31 36 ┆ writechar(z.f shift (-16┆
0x28c20…28c40 29 29 3b 0a 20 20 20 20 20 20 20 20 77 72 69 74 65 63 68 61 72 28 7a 2e 66 20 73 68 69 66 74 20 ┆)); writechar(z.f shift ┆
0x28c40…28c60 28 2d 38 29 20 65 78 74 72 61 63 74 20 38 29 3b 0a 20 20 20 20 20 20 20 20 77 72 69 74 65 63 68 ┆(-8) extract 8); writech┆
0x28c60…28c7e 61 72 28 7a 2e 66 20 65 78 74 72 61 63 74 20 38 29 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a ┆ar(z.f extract 8); end; ┆
0x28c7e…28c84 (0x1f8,0x51a)
0x28c84…28ca0 20 20 20 20 65 6e 64 20 65 6c 73 65 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 ┆ end else begin ┆
0x28ca0…28cc0 20 66 6f 72 20 66 3a 3d 36 20 73 74 65 70 20 32 20 75 6e 74 69 6c 20 73 69 7a 65 2d 32 20 64 6f ┆ for f:=6 step 2 until size-2 do┆
0x28cc0…28ce0 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 3c ┆ begin write(out,<┆
0x28ce0…28cfc 3c 2d 64 64 64 64 64 64 64 3e 2c 7a 2e 66 29 3b 0a 20 20 20 20 20 20 20 20 69 66 20 ┆<-ddddddd>,z.f); if ┆
0x28cfc…28d02 (0x1f8,0x51b)
0x28d02…28d20 28 66 2d 34 29 20 6d 6f 64 20 32 34 20 3d 20 30 20 74 68 65 6e 20 77 72 69 74 65 28 6f 75 ┆(f-4) mod 24 = 0 then write(ou┆
0x28d20…28d40 74 2c 66 61 6c 73 65 20 61 64 64 20 31 30 2c 31 2c 66 61 6c 73 65 20 61 64 64 20 33 32 2c 32 30 ┆t,false add 10,1,false add 32,20┆
0x28d40…28d60 29 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 6f 75 74 63 68 ┆); end; end; outch┆
0x28d60…28d7a 61 72 28 6f 75 74 2c 31 30 29 3b 0a 20 20 65 6e 64 20 70 72 69 6e 74 72 65 63 ┆ar(out,10); end printrec┆
0x28d7a…28d80 (0x1f8,0x51c)
0x28d80…28da0 6f 72 64 3b 0a 0a 20 20 69 66 20 73 79 73 74 65 6d 28 34 2c 32 2c 61 72 72 29 20 3c 3e 20 38 20 ┆ord; if system(4,2,arr) <> 8 ┆
0x28da0…28dc0 73 68 69 66 74 20 31 32 20 2b 20 34 20 74 68 65 6e 20 63 61 6c 6c 65 72 72 6f 72 28 31 29 3b 0a ┆shift 12 + 4 then callerror(1); ┆
0x28dc0…28de0 20 20 77 61 6e 74 65 64 3a 3d 61 72 72 28 31 29 3b 0a 20 20 69 66 20 73 79 73 74 65 6d 28 34 2c ┆ wanted:=arr(1); if system(4,┆
0x28de0…28e00 31 2c 61 72 72 29 20 3c 3e 20 34 20 73 68 69 66 74 20 31 32 20 2b 20 31 00 00 00 00 00 00 00 00 ┆1,arr) <> 4 shift 12 + 1 ┆
0x28e00…28e06 (327,) (0x1f8,0x51d)
0x28e06…28e20 30 20 74 68 65 6e 20 63 61 6c 6c 65 72 72 6f 72 28 32 29 3b 0a 20 20 69 3a 3d ┆0 then callerror(2); i:=┆
0x28e20…28e40 31 3b 0a 20 20 6f 70 65 6e 28 7a 2c 34 2c 73 74 72 69 6e 67 20 61 72 72 28 69 6e 63 72 65 61 73 ┆1; open(z,4,string arr(increas┆
0x28e40…28e60 65 28 69 29 29 2c 31 20 73 68 69 66 74 20 31 38 29 3b 0a 20 20 6d 6f 6e 69 74 6f 72 28 34 32 2c ┆e(i)),1 shift 18); monitor(42,┆
0x28e60…28e7e 7a 2c 30 2c 74 61 69 6c 29 3b 0a 20 20 66 69 6c 65 73 69 7a 65 3a 3d 74 61 69 6c 28 31 29 ┆z,0,tail); filesize:=tail(1)┆
0x28e7e…28e84 (0x1f8,0x51e)
0x28e84…28ea0 3b 0a 20 20 73 79 73 74 69 6d 65 28 31 2c 30 2c 74 69 6d 65 29 3b 0a 20 20 77 72 69 ┆; systime(1,0,time); wri┆
0x28ea0…28ec0 74 65 28 6f 75 74 2c 3c 3a 3c 31 30 3e 74 65 73 74 6f 75 74 70 75 74 20 66 72 6f 6d 20 3a 3e 29 ┆te(out,<:<10>testoutput from :>)┆
0x28ec0…28ee0 3b 0a 20 20 66 6f 72 20 69 3a 3d 30 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 31 30 20 64 6f 0a ┆; for i:=0 step 1 until 10 do ┆
0x28ee0…28efc 20 20 20 20 6f 75 74 63 68 61 72 28 6f 75 74 2c 61 72 72 28 69 2f 2f 36 2b 31 29 20 ┆ outchar(out,arr(i//6+1) ┆
0x28efc…28f02 (0x1f8,0x51f)
0x28f02…28f20 73 68 69 66 74 20 28 2d 34 30 2b 28 69 20 6d 6f 64 20 36 29 2a 38 29 20 65 78 74 72 61 63 ┆shift (-40+(i mod 6)*8) extrac┆
0x28f20…28f40 74 20 38 29 3b 0a 20 20 77 72 69 74 65 28 6f 75 74 2c 3c 3a 20 20 3a 3e 2c 3c 3c 20 20 64 64 20 ┆t 8); write(out,<: :>,<< dd ┆
0x28f40…28f60 64 64 20 64 64 3e 2c 73 79 73 74 69 6d 65 28 34 2c 74 69 6d 65 2c 72 29 2c 72 2c 3c 3a 3c 31 30 ┆dd dd>,systime(4,time,r),r,<:<10┆
0x28f60…28f7a 3e 3c 31 30 3e 3a 3e 29 3b 0a 0a 20 20 75 3a 3d 34 3b 20 68 3a 3d 32 3b 0a 20 ┆><10>:>); u:=4; h:=2; ┆
0x28f7a…28f80 (0x1f8,0x520)
0x28f80…28fa0 20 6f 6c 64 74 69 6d 65 3a 3d 30 3b 0a 20 20 6f 6c 64 75 73 65 72 3a 3d 2d 31 3b 0a 0a 20 20 66 ┆ oldtime:=0; olduser:=-1; f┆
0x28fa0…28fc0 6f 72 20 72 65 73 74 3a 3d 69 6e 72 65 63 36 28 7a 2c 32 29 20 77 68 69 6c 65 20 72 65 73 74 20 ┆or rest:=inrec6(z,2) while rest ┆
0x28fc0…28fe0 3e 20 30 20 61 6e 64 20 7a 2e 68 20 3e 20 30 20 64 6f 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 73 ┆> 0 and z.h > 0 do begin s┆
0x28fe0…29000 69 7a 65 3a 3d 7a 2e 68 20 73 68 69 66 74 20 28 2d 31 32 29 20 65 78 74 00 00 00 00 00 00 00 00 ┆ize:=z.h shift (-12) ext ┆
0x29000…29006 (328,) (0x1f8,0x521)
0x29006…29020 72 61 63 74 20 31 32 3b 0a 20 20 20 20 6b 69 6e 64 3a 3d 7a 2e 68 20 65 78 74 ┆ract 12; kind:=z.h ext┆
0x29020…29040 72 61 63 74 20 31 32 3b 0a 20 20 20 20 69 6e 72 65 63 36 28 7a 2c 73 69 7a 65 2d 32 29 3b 0a 20 ┆ract 12; inrec6(z,size-2); ┆
0x29040…29060 20 20 20 6f 6c 64 74 69 6d 65 3a 3d 7a 2e 68 3b 0a 20 20 20 20 70 72 69 6e 74 72 65 63 6f 72 64 ┆ oldtime:=z.h; printrecord┆
0x29060…2907e 3b 0a 20 20 65 6e 64 3b 0a 20 20 77 72 69 74 65 28 6f 75 74 2c 3c 3a 3c 31 30 3e 3c 31 30 ┆; end; write(out,<:<10><10┆
0x2907e…29084 (0x1f8,0x522)
0x29084…290a0 3e 65 6e 64 20 6f 66 20 66 69 78 65 64 20 70 61 72 74 3c 31 32 3e 3c 31 30 3e 3a 3e ┆>end of fixed part<12><10>:>┆
0x290a0…290c0 29 3b 0a 20 20 73 65 74 70 6f 73 69 74 69 6f 6e 28 7a 2c 30 2c 31 29 3b 0a 20 20 69 6e 72 65 63 ┆); setposition(z,0,1); inrec┆
0x290c0…290e0 36 28 7a 2c 34 29 3b 0a 20 20 69 66 20 7a 2e 75 2d 6f 6c 64 74 69 6d 65 20 3c 20 32 30 30 30 20 ┆6(z,4); if z.u-oldtime < 2000 ┆
0x290e0…290fc 74 68 65 6e 20 73 74 61 72 74 75 70 3a 3d 74 72 75 65 20 65 6c 73 65 20 73 74 61 72 ┆then startup:=true else star┆
0x290fc…29102 (0x1f8,0x523)
0x29102…29120 74 75 70 3a 3d 66 61 6c 73 65 3b 0a 20 20 73 65 74 70 6f 73 69 74 69 6f 6e 28 7a 2c 30 2c ┆tup:=false; setposition(z,0,┆
0x29120…29140 31 29 3b 0a 20 20 66 6f 72 20 69 3a 3d 30 20 77 68 69 6c 65 20 74 72 75 65 20 64 6f 0a 20 20 62 ┆1); for i:=0 while true do b┆
0x29140…29160 65 67 69 6e 0a 20 20 20 20 72 65 73 74 3a 3d 69 6e 72 65 63 36 28 7a 2c 32 29 3b 0a 20 20 20 20 ┆egin rest:=inrec6(z,2); ┆
0x29160…2917a 69 66 20 7a 2e 68 20 3d 20 2d 32 20 74 68 65 6e 0a 20 20 20 20 62 65 67 69 6e ┆if z.h = -2 then begin┆
0x2917a…29180 (0x1f8,0x524)
0x29180…291a0 0a 20 20 20 20 20 20 69 6e 72 65 63 36 28 7a 2c 72 65 73 74 29 3b 0a 20 20 20 20 20 20 69 6e 72 ┆ inrec6(z,rest); inr┆
0x291a0…291c0 65 63 36 28 7a 2c 32 29 3b 0a 20 20 20 20 20 20 67 6f 74 6f 20 73 74 61 72 74 66 6f 75 6e 64 3b ┆ec6(z,2); goto startfound;┆
0x291c0…291e0 0a 20 20 20 20 65 6e 64 20 65 6c 73 65 0a 20 20 20 20 69 66 20 7a 2e 68 20 3d 20 2d 31 20 74 68 ┆ end else if z.h = -1 th┆
0x291e0…29200 65 6e 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 69 6e 72 65 63 00 00 00 00 00 00 00 00 ┆en begin inrec ┆
0x29200…29206 (329,) (0x1f8,0x525)
0x29206…29220 36 28 7a 2c 72 65 73 74 29 3b 0a 20 20 20 20 65 6e 64 20 65 6c 73 65 0a 20 20 ┆6(z,rest); end else ┆
0x29220…29240 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 73 69 7a 65 3a 3d 7a 2e 68 20 73 68 69 66 74 20 28 2d ┆ begin size:=z.h shift (-┆
0x29240…29260 31 32 29 20 65 78 74 72 61 63 74 20 31 32 3b 0a 20 20 20 20 20 20 69 66 20 73 69 7a 65 2d 32 20 ┆12) extract 12; if size-2 ┆
0x29260…2927e 3e 20 72 65 73 74 20 6f 72 20 73 69 7a 65 2d 32 20 3c 20 34 20 74 68 65 6e 0a 20 20 20 20 ┆> rest or size-2 < 4 then ┆
0x2927e…29284 (0x1f8,0x526)
0x29284…292a0 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 69 6e 72 65 63 36 28 7a 2c 72 65 73 ┆ begin inrec6(z,res┆
0x292a0…292c0 74 29 3b 0a 20 20 20 20 20 20 20 20 67 6f 74 6f 20 6e 65 78 74 73 65 67 6d 3b 0a 20 20 20 20 20 ┆t); goto nextsegm; ┆
0x292c0…292e0 20 65 6e 64 3b 0a 20 20 20 20 20 20 69 6e 72 65 63 36 28 7a 2c 73 69 7a 65 2d 32 29 3b 0a 20 20 ┆ end; inrec6(z,size-2); ┆
0x292e0…292fc 20 20 20 20 69 66 20 7a 2e 68 20 3c 20 6f 6c 64 74 69 6d 65 20 74 68 65 6e 20 67 6f ┆ if z.h < oldtime then go┆
0x292fc…29302 (0x1f8,0x527)
0x29302…29320 74 6f 20 73 74 61 72 74 66 6f 75 6e 64 3b 0a 20 20 20 20 20 20 6f 6c 64 74 69 6d 65 3a 3d ┆to startfound; oldtime:=┆
0x29320…29340 7a 2e 68 3b 0a 20 20 20 20 65 6e 64 3b 0a 6e 65 78 74 73 65 67 6d 3a 0a 20 20 65 6e 64 3b 0a 0a ┆z.h; end; nextsegm: end; ┆
0x29340…29360 73 74 61 72 74 66 6f 75 6e 64 3a 0a 20 20 67 65 74 70 6f 73 69 74 69 6f 6e 28 7a 2c 66 69 6c 65 ┆startfound: getposition(z,file┆
0x29360…2937a 2c 62 29 3b 0a 20 20 69 66 20 77 61 6e 74 65 64 20 3e 3d 20 66 69 6c 65 73 69 ┆,b); if wanted >= filesi┆
0x2937a…29380 (0x1f8,0x528)
0x29380…293a0 7a 65 20 74 68 65 6e 20 77 61 6e 74 65 64 3a 3d 66 69 6c 65 73 69 7a 65 2d 31 3b 0a 20 20 62 3a ┆ze then wanted:=filesize-1; b:┆
0x293a0…293c0 3d 62 2d 77 61 6e 74 65 64 3b 0a 20 20 69 66 20 62 20 3c 20 31 20 74 68 65 6e 0a 20 20 62 65 67 ┆=b-wanted; if b < 1 then beg┆
0x293c0…293e0 69 6e 0a 20 20 20 20 69 66 20 73 74 61 72 74 75 70 20 74 68 65 6e 0a 20 20 20 20 62 65 67 69 6e ┆in if startup then begin┆
0x293e0…29400 0a 20 20 20 20 20 20 77 61 6e 74 65 64 3a 3d 77 61 6e 74 65 64 2b 62 2d 00 00 00 00 00 00 00 00 ┆ wanted:=wanted+b- ┆
0x29400…29406 (330,) (0x1f8,0x529)
0x29406…29420 31 3b 0a 20 20 20 20 20 20 62 3a 3d 31 3b 0a 20 20 20 20 65 6e 64 20 65 6c 73 ┆1; b:=1; end els┆
0x29420…29440 65 0a 20 20 20 20 62 3a 3d 62 2b 66 69 6c 65 73 69 7a 65 2d 31 3b 0a 20 20 65 6e 64 3b 0a 20 20 ┆e b:=b+filesize-1; end; ┆
0x29440…29460 73 65 74 70 6f 73 69 74 69 6f 6e 28 7a 2c 66 69 6c 65 2c 62 29 3b 0a 20 20 77 72 69 74 65 28 6f ┆setposition(z,file,b); write(o┆
0x29460…2947e 75 74 2c 3c 3a 73 74 61 72 74 73 65 67 6d 65 6e 74 3a 20 3a 3e 2c 3c 3c 64 64 64 3e 2c 62 ┆ut,<:startsegment: :>,<<ddd>,b┆
0x2947e…29484 (0x1f8,0x52a)
0x29484…294a0 2c 3c 3a 3c 31 30 3e 3c 31 30 3e 3a 3e 29 3b 3b 0a 0a 20 20 6f 6c 64 74 69 6d 65 3a ┆,<:<10><10>:>);; oldtime:┆
0x294a0…294c0 3d 30 3b 0a 20 20 69 3a 3d 30 3b 0a 20 20 66 6f 72 20 69 3a 3d 69 20 77 68 69 6c 65 20 69 20 3c ┆=0; i:=0; for i:=i while i <┆
0x294c0…294e0 20 77 61 6e 74 65 64 20 64 6f 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 72 65 73 74 3a 3d 69 6e 72 ┆ wanted do begin rest:=inr┆
0x294e0…294fc 65 63 36 28 7a 2c 32 29 3b 0a 20 20 20 20 69 66 20 7a 2e 68 20 3d 20 2d 32 20 74 68 ┆ec6(z,2); if z.h = -2 th┆
0x294fc…29502 (0x1f8,0x52b)
0x29502…29520 65 6e 20 67 6f 74 6f 20 73 74 6f 70 3b 0a 20 20 20 20 69 66 20 7a 2e 68 20 3d 20 2d 31 20 ┆en goto stop; if z.h = -1 ┆
0x29520…29540 74 68 65 6e 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 69 6e 72 65 63 36 28 7a 2c 72 65 ┆then begin inrec6(z,re┆
0x29540…29560 73 74 29 3b 0a 20 20 20 20 20 20 69 3a 3d 69 2b 31 3b 0a 20 20 20 20 20 20 67 6f 74 6f 20 6e 65 ┆st); i:=i+1; goto ne┆
0x29560…2957a 78 74 72 65 63 6f 72 64 3b 0a 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 73 69 7a ┆xtrecord; end; siz┆
0x2957a…29580 (0x1f8,0x52c)
0x29580…295a0 65 3a 3d 7a 2e 68 20 73 68 69 66 74 20 28 2d 31 32 29 20 65 78 74 72 61 63 74 20 31 32 3b 0a 20 ┆e:=z.h shift (-12) extract 12; ┆
0x295a0…295c0 20 20 20 6b 69 6e 64 3a 3d 7a 2e 68 20 65 78 74 72 61 63 74 20 31 32 3b 0a 20 20 20 20 69 66 20 ┆ kind:=z.h extract 12; if ┆
0x295c0…295e0 73 69 7a 65 2d 32 20 3e 20 72 65 73 74 20 6f 72 20 73 69 7a 65 2d 32 20 3c 20 34 20 74 68 65 6e ┆size-2 > rest or size-2 < 4 then┆
0x295e0…29600 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 67 65 74 70 6f 73 69 00 00 00 00 00 00 00 00 ┆ begin getposi ┆
0x29600…29606 (331,) (0x1f8,0x52d)
0x29606…29620 74 69 6f 6e 28 7a 2c 66 69 6c 65 2c 62 29 3b 0a 20 20 20 20 20 20 77 72 69 74 ┆tion(z,file,b); writ┆
0x29620…29640 65 28 6f 75 74 2c 3c 3a 2a 2a 2a 74 72 6f 75 62 6c 65 73 20 6f 6e 20 73 65 67 6d 65 6e 74 3a 20 ┆e(out,<:***troubles on segment: ┆
0x29640…29660 3a 3e 2c 62 2c 3c 3a 20 20 73 69 7a 65 3a 20 3a 3e 2c 73 69 7a 65 2c 3c 3a 3c 31 30 3e 3a 3e 29 ┆:>,b,<: size: :>,size,<:<10>:>)┆
0x29660…2967e 3b 0a 20 20 20 20 20 20 69 6e 72 65 63 36 28 7a 2c 72 65 73 74 29 3b 0a 20 20 20 20 20 20 ┆; inrec6(z,rest); ┆
0x2967e…29684 (0x1f8,0x52e)
0x29684…296a0 67 6f 74 6f 20 6e 65 78 74 72 65 63 6f 72 64 3b 0a 20 20 20 20 20 20 69 3a 3d 69 2b ┆goto nextrecord; i:=i+┆
0x296a0…296c0 31 3b 0a 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 69 6e 72 65 63 36 28 7a 2c 73 69 7a 65 2d 32 29 ┆1; end; inrec6(z,size-2)┆
0x296c0…296e0 3b 0a 20 20 20 20 69 66 20 7a 2e 68 20 3c 20 6f 6c 64 74 69 6d 65 20 74 68 65 6e 20 67 6f 74 6f ┆; if z.h < oldtime then goto┆
0x296e0…296fc 20 73 74 6f 70 20 65 6c 73 65 20 6f 6c 64 74 69 6d 65 3a 3d 7a 2e 68 3b 0a 20 20 20 ┆ stop else oldtime:=z.h; ┆
0x296fc…29702 (0x1f8,0x52f)
0x29702…29720 20 69 66 20 7a 2e 75 20 3c 3e 20 6f 6c 64 75 73 65 72 20 74 68 65 6e 20 6f 75 74 63 68 61 ┆ if z.u <> olduser then outcha┆
0x29720…29740 72 28 6f 75 74 2c 31 30 29 3b 0a 20 20 20 20 6f 6c 64 75 73 65 72 3a 3d 7a 2e 75 3b 0a 20 20 20 ┆r(out,10); olduser:=z.u; ┆
0x29740…29760 20 70 72 69 6e 74 72 65 63 6f 72 64 3b 0a 6e 65 78 74 72 65 63 6f 72 64 3a 0a 20 20 65 6e 64 3b ┆ printrecord; nextrecord: end;┆
0x29760…2977a 0a 73 74 6f 70 3a 0a 20 20 67 65 74 70 6f 73 69 74 69 6f 6e 28 7a 2c 66 69 6c ┆ stop: getposition(z,fil┆
0x2977a…29780 (0x1f8,0x530)
0x29780…297a0 65 2c 62 29 3b 0a 20 20 77 72 69 74 65 28 6f 75 74 2c 3c 3a 3c 31 30 3e 65 6e 64 73 65 67 6d 65 ┆e,b); write(out,<:<10>endsegme┆
0x297a0…297c0 6e 74 3a 20 20 20 3a 3e 2c 3c 3c 64 64 64 3e 2c 62 2c 3c 3a 3c 31 30 3e 3a 3e 29 3b 0a 20 20 63 ┆nt: :>,<<ddd>,b,<:<10>:>); c┆
0x297c0…297e0 6c 6f 73 65 28 7a 2c 74 72 75 65 29 3b 0a 61 62 65 6e 64 3a 0a 65 6e 64 0a 0a 19 00 00 20 69 3a ┆lose(z,true); abend: end i:┆
0x297e0…29800 3d 69 20 77 68 69 6c 65 20 69 20 3c 20 77 61 6e 74 65 64 20 64 6f 0a 20 00 00 00 00 00 00 00 00 ┆=i while i < wanted do ┆
0x29800…29806 (332,) (0x1f8,0x531)
0x29806…29820 20 62 65 67 69 6e 0a 20 20 20 20 72 65 73 74 3a 3d 69 6e 72 65 63 36 28 7a 2c ┆ begin rest:=inrec6(z,┆
0x29820…29840 32 29 3b 0a 20 20 20 20 69 66 20 7a 2e 68 20 3d 20 2d 32 20 74 68 65 6e 20 67 6f 74 6f 20 73 74 ┆2); if z.h = -2 then goto st┆
0x29840…29860 6f 70 3b 0a 20 20 20 20 69 66 20 7a 2e 68 20 3d 20 2d 31 20 74 68 65 6e 0a 20 20 20 20 62 65 67 ┆op; if z.h = -1 then beg┆
0x29860…2987e 69 6e 0a 20 20 20 20 20 20 69 6e 72 65 63 36 28 7a 2c 72 65 73 74 29 3b 0a 20 20 20 20 20 ┆in inrec6(z,rest); ┆
0x2987e…29884 (0x1f8,0x532)
0x29884…298a0 20 69 3a 3d 69 2b 31 3b 0a 20 20 20 20 20 20 67 6f 74 6f 20 6e 65 78 74 72 65 63 6f ┆ i:=i+1; goto nextreco┆
0x298a0…298c0 72 64 3b 0a 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 73 69 7a 65 3a 3d 7a 2e 68 20 73 68 69 66 74 ┆rd; end; size:=z.h shift┆
0x298c0…298e0 20 28 2d 31 32 29 20 65 78 74 72 61 63 74 20 31 32 3b 0a 20 20 20 20 6b 69 6e 64 3a 3d 7a 2e 68 ┆ (-12) extract 12; kind:=z.h┆
0x298e0…298fc 20 65 78 74 72 61 63 74 20 31 32 3b 0a 20 20 20 20 69 66 20 73 69 7a 65 2d 32 20 3e ┆ extract 12; if size-2 >┆
0x298fc…29902 (0x1f8,0x533)
0x29902…29920 20 72 65 73 74 20 6f 72 20 73 69 7a 65 2d 32 20 3c 20 34 20 74 68 65 6e 0a 20 20 20 20 62 ┆ rest or size-2 < 4 then b┆
0x29920…29940 65 67 69 6e 0a 20 20 20 20 20 20 67 65 74 70 6f 73 69 74 69 6f 6e 28 7a 2c 66 69 6c 65 2c 62 29 ┆egin getposition(z,file,b)┆
0x29940…29960 3b 0a 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 3c 3a 2a 2a 2a 74 72 6f 75 62 6c 65 73 20 ┆; write(out,<:***troubles ┆
0x29960…2997a 6f 6e 20 73 65 67 6d 65 6e 74 3a 20 3a 3e 2c 62 2c 3c 3a 20 20 73 69 7a 65 3a ┆on segment: :>,b,<: size:┆
0x2997a…29980 (0x1f8,0x534)
0x29980…299a0 20 3a 3e 2c 73 69 7a 65 2c 3c 3a 3c 31 30 3e 3a 3e 29 3b 0a 20 20 20 20 20 20 69 6e 72 65 63 36 ┆ :>,size,<:<10>:>); inrec6┆
0x299a0…299c0 28 7a 2c 72 65 73 74 29 3b 0a 20 20 20 20 20 20 67 6f 74 6f 20 6e 65 78 74 72 65 63 6f 72 64 3b ┆(z,rest); goto nextrecord;┆
0x299c0…299e0 0a 20 20 20 20 20 20 69 3a 3d 69 2b 31 3b 0a 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 69 6e 72 65 ┆ i:=i+1; end; inre┆
0x299e0…29a00 63 36 28 7a 2c 73 69 7a 65 2d 32 29 3b 0a 20 20 20 20 69 66 20 7a 2e 68 00 00 00 00 00 00 00 00 ┆c6(z,size-2); if z.h ┆
0x29a00…29a06 (333,) (0x1f8,0x535)
0x29a06…29a20 20 3c 20 6f 6c 64 74 69 6d 65 20 74 68 65 6e 20 67 6f 74 6f 20 73 74 6f 70 20 ┆ < oldtime then goto stop ┆
0x29a20…29a40 65 6c 73 65 20 6f 6c 64 74 69 6d 65 3a 3d 7a 2e 68 3b 0a 20 20 20 20 69 66 20 7a 2e 75 20 3c 3e ┆else oldtime:=z.h; if z.u <>┆
0x29a40…29a60 20 6f 6c 64 75 73 65 72 20 74 68 65 6e 20 6f 75 74 63 68 61 72 28 6f 75 74 2c 31 30 29 3b 0a 20 ┆ olduser then outchar(out,10); ┆
0x29a60…29a7e 20 20 20 6f 6c 64 20 20 69 6e 72 65 63 36 28 7a 2c 72 65 73 74 29 3b 0a 20 20 20 20 20 20 ┆ old inrec6(z,rest); ┆
0x29a7e…29a84 (0x25c,0x536)
0x29a84…29aa0 21 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 2a 20 20 74 74 65 6d 20 20 2a 2a 2a ┆! *** ttem ***┆
0x29aa0…29ac0 0a 3b 0a 3b 0a 3b 20 70 72 6f 67 72 61 6d 20 66 6f 72 20 74 65 72 6d 69 6e 61 6c 20 61 63 63 65 ┆ ; ; ; program for terminal acce┆
0x29ac0…29ae0 73 73 2c 20 74 65 72 6d 69 6e 61 6c 20 6d 75 6c 74 69 70 6c 65 78 69 6e 67 20 61 6e 64 20 74 65 ┆ss, terminal multiplexing and te┆
0x29ae0…29afc 72 6d 69 6e 61 6c 20 73 70 6f 6f 6c 69 6e 67 0a 3b 20 72 65 6c 65 61 73 65 20 32 2e ┆rminal spooling ; release 2.┆
0x29afc…29b02 (0x25c,0x537)
0x29b02…29b20 32 20 61 70 72 2e 20 31 39 38 30 20 6b 6e 75 64 20 63 68 72 69 73 74 65 6e 73 65 6e 0a 3b ┆2 apr. 1980 knud christensen ;┆
0x29b20…29b40 20 72 65 6c 65 61 73 65 20 32 2e 33 20 61 75 67 2e 20 31 39 38 32 20 66 6c 65 6d 6d 69 6e 67 20 ┆ release 2.3 aug. 1982 flemming ┆
0x29b40…29b60 62 69 67 67 61 73 0a 3b 20 72 65 6c 65 61 73 65 20 33 2e 30 20 61 70 72 2e 20 31 39 38 33 20 66 ┆biggas ; release 3.0 apr. 1983 f┆
0x29b60…29b7a 6c 65 6d 6d 69 6e 67 20 62 69 67 67 61 73 0a 3b 20 72 65 6c 65 61 73 65 20 33 ┆lemming biggas ; release 3┆
0x29b7a…29b80 (0x25c,0x538)
0x29b80…29ba0 2e 31 20 61 75 67 2e 20 31 39 38 34 20 66 6c 65 6d 6d 69 6e 67 20 62 69 67 67 61 73 0a 3b 20 72 ┆.1 aug. 1984 flemming biggas ; r┆
0x29ba0…29bc0 65 6c 65 61 73 65 20 34 2e 30 20 61 75 67 2e 20 31 39 38 35 20 66 6c 65 6d 6d 69 6e 67 20 62 69 ┆elease 4.0 aug. 1985 flemming bi┆
0x29bc0…29be0 67 67 61 73 20 2d 20 28 6d 70 20 2b 20 61 64 70 33 32 37 30 20 72 65 6c 65 61 73 65 29 2e 0a 21 ┆ggas - (mp + adp3270 release). !┆
0x29be0…29c00 0a 0a 74 65 72 6d 69 6e 61 6c 6d 6f 64 75 6c 65 0a 62 65 67 69 6e 0a 20 00 00 00 00 00 00 00 00 ┆ terminalmodule begin ┆
0x29c00…29c06 (334,) (0x25c,0x539)
0x29c06…29c20 20 21 66 70 2e 6e 6f 3b 0a 20 20 21 73 65 63 74 69 6f 6e 73 20 33 32 3b 0a 0a ┆ !fp.no; !sections 32; ┆
0x29c20…29c40 20 20 70 72 6f 63 65 64 75 72 65 20 77 61 69 74 6d 65 73 73 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ procedure waitmess ┆
0x29c40…29c60 20 20 20 28 2e 77 33 2e 3b 20 20 20 21 20 72 65 74 75 72 6e 20 20 20 20 20 20 20 20 20 20 20 20 ┆ (.w3.; ! return ┆
0x29c60…29c7e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 0a 20 20 20 20 20 20 20 ┆ ! ┆
0x29c7e…29c84 (0x25c,0x53a)
0x29c84…29ca0 20 20 20 20 20 20 20 20 20 77 32 29 3b 20 20 20 21 20 61 62 73 20 72 65 66 20 6d 65 ┆ w2); ! abs ref me┆
0x29ca0…29cc0 73 73 61 67 65 20 62 75 66 66 65 72 20 28 72 65 74 75 72 6e 29 20 20 20 20 20 20 20 20 21 0a 0a ┆ssage buffer (return) ! ┆
0x29cc0…29ce0 20 20 70 72 6f 63 65 64 75 72 65 20 73 65 6e 64 77 61 69 74 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ procedure sendwait ┆
0x29ce0…29cfc 20 20 20 28 2e 77 33 2e 3b 20 20 20 21 20 72 65 74 75 72 6e 20 20 20 20 20 20 20 20 ┆ (.w3.; ! return ┆
0x29cfc…29d02 (0x25c,0x53b)
0x29d02…29d20 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 21 0a 20 20 20 ┆ ! ┆
0x29d20…29d40 20 20 20 20 20 20 20 20 20 20 20 20 20 77 30 20 3b 20 20 20 21 20 72 65 73 75 6c 74 20 28 72 65 ┆ w0 ; ! result (re┆
0x29d40…29d60 74 75 72 6e 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 0a 20 ┆turn) ! ┆
0x29d60…29d7a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 20 3b 20 20 20 21 20 61 62 ┆ w1 ; ! ab┆
0x29d7a…29d80 (0x25c,0x53c)
0x29d80…29da0 73 20 72 65 66 20 6d 65 73 73 61 67 65 20 28 63 61 6c 6c 29 20 20 20 20 20 20 20 20 20 20 20 20 ┆s ref message (call) ┆
0x29da0…29dc0 20 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 32 29 3b 20 20 20 21 20 ┆ ! w2); ! ┆
0x29dc0…29de0 61 62 73 20 72 65 66 20 70 72 6f 63 65 73 73 20 6e 61 6d 65 20 28 63 61 6c 6c 29 20 20 20 20 20 ┆abs ref process name (call) ┆
0x29de0…29e00 20 20 20 20 20 20 20 21 0a 0a 20 20 70 72 6f 63 65 64 75 72 65 20 6f 70 00 00 00 00 00 00 00 00 ┆ ! procedure op ┆
0x29e00…29e06 (335,) (0x25c,0x53d)
0x29e06…29e20 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2e 77 33 2e 3b 20 20 20 ┆en (.w3.; ┆
0x29e20…29e40 21 20 72 65 74 75 72 6e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆! return ┆
0x29e40…29e60 20 20 20 20 20 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 30 20 3b 20 ┆ ! w0 ; ┆
0x29e60…29e7e 20 20 21 20 6e 75 6d 62 65 72 20 6f 66 20 65 6c 65 6d 65 6e 74 73 20 74 6f 20 6f 70 65 6e ┆ ! number of elements to open┆
0x29e7e…29e84 (0x25c,0x53e)
0x29e84…29ea0 20 28 63 61 6c 6c 29 20 20 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ (call) ! ┆
0x29ea0…29ec0 20 20 20 77 32 29 3b 20 20 20 21 20 61 62 73 20 72 65 66 20 73 65 6d 61 70 68 6f 72 65 20 28 63 ┆ w2); ! abs ref semaphore (c┆
0x29ec0…29ee0 61 6c 6c 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 0a 0a 20 20 70 72 6f 63 65 64 75 72 ┆all) ! procedur┆
0x29ee0…29efc 65 20 6c 6f 63 6b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2e 77 33 2e 3b 20 ┆e lock (.w3.; ┆
0x29efc…29f02 (0x25c,0x53f)
0x29f02…29f20 20 20 21 20 72 65 74 75 72 6e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ! return ┆
0x29f20…29f40 20 20 20 20 20 20 20 20 20 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 ┆ ! w┆
0x29f40…29f60 30 20 3b 20 20 20 21 20 6e 75 6d 62 65 72 20 6f 66 20 65 6c 65 6d 65 6e 74 73 20 74 6f 20 6c 6f ┆0 ; ! number of elements to lo┆
0x29f60…29f7a 63 6b 20 28 72 65 74 75 72 6e 29 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 ┆ck (return) ! ┆
0x29f7a…29f80 (0x25c,0x540)
0x29f80…29fa0 20 20 20 20 20 20 20 77 32 29 3b 20 20 20 21 20 61 62 73 20 72 65 66 20 73 65 6d 61 70 68 6f 72 ┆ w2); ! abs ref semaphor┆
0x29fa0…29fc0 65 20 28 63 61 6c 6c 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 0a 0a 20 20 70 72 6f 63 ┆e (call) ! proc┆
0x29fc0…29fe0 65 64 75 72 65 20 6c 69 6e 6b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2e 77 33 2e 3b 20 ┆edure link (.w3.; ┆
0x29fe0…2a000 20 20 21 20 72 65 74 75 72 6e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ ! return ┆
0x2a000…2a006 (336,) (0x25c,0x541)
0x2a006…2a020 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 0a 20 20 20 20 20 ┆ ! ┆
0x2a020…2a040 20 20 20 20 20 20 20 20 20 20 20 77 31 20 3b 20 20 20 21 20 61 62 73 20 72 65 66 20 71 75 65 75 ┆ w1 ; ! abs ref queu┆
0x2a040…2a060 65 20 65 6c 65 6d 65 6e 74 20 28 63 61 6c 6c 29 20 20 20 20 20 20 20 20 20 20 20 21 0a 20 20 20 ┆e element (call) ! ┆
0x2a060…2a07e 20 20 20 20 20 20 20 20 20 20 20 20 20 77 32 29 3b 20 20 20 21 20 61 62 73 20 72 65 66 20 ┆ w2); ! abs ref ┆
0x2a07e…2a084 (0x25c,0x542)
0x2a084…2a0a0 71 75 65 75 65 20 68 65 61 64 20 28 63 61 6c 6c 29 20 20 20 20 20 20 20 20 20 20 20 ┆queue head (call) ┆
0x2a0a0…2a0c0 20 20 20 21 0a 0a 20 20 70 72 6f 63 65 64 75 72 65 20 6d 6f 76 65 0a 20 20 20 20 20 20 20 20 20 ┆ ! procedure move ┆
0x2a0c0…2a0e0 20 20 20 20 20 28 2e 77 33 2e 3b 20 20 20 21 20 72 65 74 75 72 6e 20 20 20 20 20 20 20 20 20 20 ┆ (.w3.; ! return ┆
0x2a0e0…2a0fc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 0a 20 20 20 ┆ ! ┆
0x2a0fc…2a102 (0x25c,0x543)
0x2a102…2a120 20 20 20 20 20 20 20 20 20 20 20 20 20 77 30 20 3b 20 20 20 21 20 6e 75 6d 62 65 72 20 6f ┆ w0 ; ! number o┆
0x2a120…2a140 66 20 68 61 6c 66 77 6f 72 64 73 20 74 6f 20 6d 6f 76 65 20 28 63 61 6c 6c 29 20 20 20 20 20 21 ┆f halfwords to move (call) !┆
0x2a140…2a160 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 20 3b 20 20 20 21 20 61 62 73 20 72 65 ┆ w1 ; ! abs re┆
0x2a160…2a17a 66 20 66 69 72 73 74 20 68 61 6c 66 77 6f 72 64 20 74 6f 20 6d 6f 76 65 20 28 ┆f first halfword to move (┆
0x2a17a…2a180 (0x25c,0x544)
0x2a180…2a1a0 63 61 6c 6c 29 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 32 29 3b 20 20 20 ┆call) ! w2); ┆
0x2a1a0…2a1c0 21 20 61 62 73 20 72 65 66 20 64 65 73 74 69 6e 61 74 69 6f 6e 20 28 63 61 6c 6c 29 20 20 20 20 ┆! abs ref destination (call) ┆
0x2a1c0…2a1e0 20 20 20 20 20 20 20 20 20 21 0a 0a 20 20 70 72 6f 63 65 64 75 72 65 20 63 6f 70 79 0a 20 20 20 ┆ ! procedure copy ┆
0x2a1e0…2a200 20 20 20 20 20 20 20 20 20 20 20 28 2e 77 33 2e 3b 20 20 20 21 20 72 65 00 00 00 00 00 00 00 00 ┆ (.w3.; ! re ┆
0x2a200…2a206 (337,) (0x25c,0x545)
0x2a206…2a220 74 75 72 6e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆turn ┆
0x2a220…2a240 20 20 20 20 20 20 20 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 30 20 ┆ ! w0 ┆
0x2a240…2a260 3b 20 20 20 21 20 6e 75 6d 62 65 72 20 6f 66 20 68 61 6c 66 77 6f 72 64 73 20 28 63 61 6c 6c 2f ┆; ! number of halfwords (call/┆
0x2a260…2a27e 72 65 74 75 72 6e 29 20 20 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆return) ! ┆
0x2a27e…2a284 (0x25c,0x546)
0x2a284…2a2a0 20 20 20 20 20 20 20 20 21 20 6f 72 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ! or ┆
0x2a2a0…2a2c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 ┆ ! ┆
0x2a2c0…2a2e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 2d 32 20 73 74 6f 70 70 65 64 20 20 20 20 20 20 ┆ ! -2 stopped ┆
0x2a2e0…2a2fc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 0a 20 20 20 ┆ ! ┆
0x2a2fc…2a302 (0x25c,0x547)
0x2a302…2a320 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 2d 33 20 75 6e 69 6e 74 ┆ ! -3 unint┆
0x2a320…2a340 65 6c 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 21 ┆el !┆
0x2a340…2a360 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 32 29 3b 20 20 20 21 20 61 62 73 20 72 65 ┆ w2); ! abs re┆
0x2a360…2a37a 66 20 66 69 72 73 74 20 68 61 6c 66 77 6f 72 64 20 28 63 61 6c 6c 29 20 20 20 ┆f first halfword (call) ┆
0x2a37a…2a380 (0x25c,0x548)
0x2a380…2a3a0 20 20 20 20 20 20 20 21 0a 0a 20 20 70 72 6f 63 65 64 75 72 65 20 63 72 65 61 74 65 5f 70 68 0a ┆ ! procedure create_ph ┆
0x2a3a0…2a3c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2e 77 33 2e 3b 20 20 20 21 20 72 65 74 75 72 6e 20 ┆ (.w3.; ! return ┆
0x2a3c0…2a3e0 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 20 20 ┆ ┆
0x2a3e0…2a400 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65 66 20 20 20 00 00 00 00 00 00 00 00 ┆! ref ┆
0x2a400…2a406 (338,) (0x25c,0x549)
0x2a406…2a420 20 20 20 63 70 5f 70 68 68 65 61 64 2c 63 70 5f 70 73 6e 61 6d 65 2c 63 70 5f ┆ cp_phhead,cp_psname,cp_┆
0x2a420…2a440 73 65 6e 64 65 72 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 30 29 3b 20 20 20 21 ┆sender; w0); !┆
0x2a440…2a460 20 72 65 73 75 6c 74 20 28 72 65 74 75 72 6e 29 20 20 31 20 3d 20 6f 6b 20 20 2c 20 30 20 3d 20 ┆ result (return) 1 = ok , 0 = ┆
0x2a460…2a47e 6e 6f 74 20 6f 6b 20 20 21 0a 0a 20 20 70 72 6f 63 65 64 75 72 65 20 72 65 6d 6f 76 65 5f ┆not ok ! procedure remove_┆
0x2a47e…2a484 (0x25c,0x54a)
0x2a484…2a4a0 70 68 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2e 77 33 2e 3b 20 20 20 21 20 ┆ph (.w3.; ! ┆
0x2a4a0…2a4c0 72 65 74 75 72 6e 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 ┆return ┆
0x2a4c0…2a4e0 20 20 20 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65 66 20 20 20 20 ┆ ! ref ┆
0x2a4e0…2a4fc 20 20 72 70 5f 70 68 68 65 61 64 29 3b 0a 0a 20 20 70 72 6f 63 65 64 75 72 65 20 63 ┆ rp_phhead); procedure c┆
0x2a4fc…2a502 (0x25c,0x54b)
0x2a502…2a520 72 65 61 74 65 5f 74 68 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2e 77 33 2e 3b 20 ┆reate_th (.w3.; ┆
0x2a520…2a540 20 20 21 20 72 65 74 75 72 6e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ! return ┆
0x2a540…2a560 20 20 20 20 20 20 20 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65 66 ┆ ! ref┆
0x2a560…2a57a 20 20 20 20 20 20 63 74 5f 74 68 68 65 61 64 2c 63 74 5f 74 65 72 6d 70 72 6f ┆ ct_thhead,ct_termpro┆
0x2a57a…2a580 (0x25c,0x54c)
0x2a580…2a5a0 63 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 6f 72 64 20 20 20 20 20 63 74 5f 74 ┆c; word ct_t┆
0x2a5a0…2a5c0 79 70 65 2c 63 74 5f 6c 6f 63 61 6c 69 64 2c 63 74 5f 62 75 66 73 2c 63 74 5f 74 69 6d 65 72 73 ┆ype,ct_localid,ct_bufs,ct_timers┆
0x2a5c0…2a5e0 2c 0a 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 63 74 5f 6d 61 ┆, ct_ma┆
0x2a5e0…2a600 73 6b 2c 63 74 5f 73 75 62 73 74 29 3b 0a 0a 20 20 70 72 6f 63 65 64 75 00 00 00 00 00 00 00 00 ┆sk,ct_subst); procedu ┆
0x2a600…2a606 (339,) (0x25c,0x54d)
0x2a606…2a620 72 65 20 72 65 6d 6f 76 65 5f 74 68 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆re remove_th ┆
0x2a620…2a640 20 28 2e 77 33 2e 3b 20 20 20 21 20 72 65 74 75 72 6e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ (.w3.; ! return ┆
0x2a640…2a660 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ ! ┆
0x2a660…2a67e 20 20 20 20 20 72 65 66 20 20 20 20 20 20 72 74 5f 74 68 68 65 61 64 29 3b 0a 0a 20 20 70 ┆ ref rt_thhead); p┆
0x2a67e…2a684 (0x25c,0x54e)
0x2a684…2a6a0 72 6f 63 65 64 75 72 65 20 69 6e 69 74 5f 61 72 65 61 0a 20 20 20 20 20 20 20 20 20 ┆rocedure init_area ┆
0x2a6a0…2a6c0 20 20 20 20 20 28 2e 77 33 2e 3b 20 20 20 21 20 72 65 74 75 72 6e 20 20 20 20 20 20 20 20 20 20 ┆ (.w3.; ! return ┆
0x2a6c0…2a6e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 0a 20 20 20 20 20 20 20 ┆ ! ┆
0x2a6e0…2a6fc 20 20 20 20 20 20 20 20 20 77 31 29 3b 20 20 20 21 20 61 62 73 20 72 65 66 20 61 72 ┆ w1); ! abs ref ar┆
0x2a6fc…2a702 (0x25c,0x54f)
0x2a702…2a720 65 61 20 64 65 73 63 72 69 70 74 69 6f 6e 20 28 63 61 6c 6c 29 20 20 20 20 20 20 20 20 21 ┆ea description (call) !┆
0x2a720…2a740 0a 0a 20 20 70 72 6f 63 65 64 75 72 65 20 63 6f 6e 6e 65 63 74 0a 20 20 20 20 20 20 20 20 20 20 ┆ procedure connect ┆
0x2a740…2a760 20 20 20 20 28 2e 77 33 2e 3b 20 20 20 21 20 72 65 74 75 72 6e 20 20 20 20 20 20 20 20 20 20 20 ┆ (.w3.; ! return ┆
0x2a760…2a77a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 0a 20 20 ┆ ! ┆
0x2a77a…2a780 (0x25c,0x550)
0x2a780…2a7a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65 66 20 20 20 20 20 20 63 6f 6e 5f 74 68 68 65 61 ┆ ref con_thhea┆
0x2a7a0…2a7c0 64 2c 63 6f 6e 5f 70 68 68 65 61 64 29 3b 0a 0a 20 20 70 72 6f 63 65 64 75 72 65 20 64 69 73 63 ┆d,con_phhead); procedure disc┆
0x2a7c0…2a7e0 6f 6e 6e 65 63 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2e 77 33 2e 3b 20 20 20 21 20 ┆onnect (.w3.; ! ┆
0x2a7e0…2a800 72 65 74 75 72 6e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆return ┆
0x2a800…2a806 (340,) (0x25c,0x551)
0x2a806…2a820 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 ┆ ! ┆
0x2a820…2a840 20 20 20 20 20 20 20 72 65 66 20 20 20 20 20 20 64 69 73 5f 74 68 68 65 61 64 2c 64 69 73 5f 70 ┆ ref dis_thhead,dis_p┆
0x2a840…2a860 68 68 65 61 64 29 3b 0a 0a 20 20 70 72 6f 63 65 64 75 72 65 20 66 69 6e 64 5f 70 68 0a 20 20 20 ┆hhead); procedure find_ph ┆
0x2a860…2a87e 20 20 20 20 20 20 20 20 20 20 20 28 2e 77 33 2e 3b 20 20 20 21 20 72 65 74 75 72 6e 20 20 ┆ (.w3.; ! return ┆
0x2a87e…2a884 (0x25c,0x552)
0x2a884…2a8a0 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 ┆ ┆
0x2a8a0…2a8c0 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65 66 20 20 20 20 20 20 66 70 ┆ ! ref fp┆
0x2a8c0…2a8e0 5f 70 73 70 72 6f 63 2c 66 70 5f 73 65 6e 64 65 72 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆_psproc,fp_sender; ┆
0x2a8e0…2a8fc 20 20 20 77 31 29 3b 20 20 20 21 20 72 65 73 75 6c 74 20 28 72 65 74 75 72 6e 29 20 ┆ w1); ! result (return) ┆
0x2a8fc…2a902 (0x25c,0x553)
0x2a902…2a920 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 0a 20 20 20 20 20 ┆ ! ┆
0x2a920…2a940 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 3e 30 3a 20 61 62 73 20 72 65 66 20 ┆ ! >0: abs ref ┆
0x2a940…2a960 70 68 20 66 6f 75 6e 64 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 0a 20 20 20 ┆ph found ! ┆
0x2a960…2a97a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 3d 30 3a 20 ┆ ! =0: ┆
0x2a97a…2a980 (0x25c,0x554)
0x2a980…2a9a0 70 68 20 6e 6f 74 20 66 6f 75 6e 64 2c 20 6e 6f 20 66 72 65 65 20 70 68 20 20 20 20 20 20 20 20 ┆ph not found, no free ph ┆
0x2a9a0…2a9c0 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 3c 30 ┆ ! ! <0┆
0x2a9c0…2a9e0 3a 20 70 68 20 6e 6f 74 20 66 6f 75 6e 64 2c 20 2d 61 62 73 20 72 65 66 20 66 72 65 65 20 70 68 ┆: ph not found, -abs ref free ph┆
0x2a9e0…2aa00 20 20 20 20 20 21 0a 0a 20 20 70 72 6f 63 65 64 75 72 65 20 75 6e 69 6e 00 00 00 00 00 00 00 00 ┆ ! procedure unin ┆
0x2aa00…2aa06 (341,) (0x25c,0x555)
0x2aa06…2aa20 74 65 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2e 77 33 2e 3b 20 20 ┆tel (.w3.; ┆
0x2aa20…2aa40 20 21 20 72 65 74 75 72 6e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ! return ┆
0x2aa40…2aa60 20 20 20 20 20 20 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 30 29 3b ┆ ! w0);┆
0x2aa60…2aa7e 20 20 20 21 20 73 74 61 74 75 73 20 28 63 61 6c 6c 29 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ! status (call) ┆
0x2aa7e…2aa84 (0x25c,0x556)
0x2aa84…2aaa0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 0a 0a 20 20 70 72 6f 63 65 64 75 72 65 ┆ ! procedure┆
0x2aaa0…2aac0 20 77 61 69 74 5f 6f 70 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2e 77 33 2e 3b 20 20 20 ┆ wait_op (.w3.; ┆
0x2aac0…2aae0 21 20 72 65 74 75 72 6e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆! return ┆
0x2aae0…2aafc 20 20 20 20 20 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 ┆ ! w┆
0x2aafc…2ab02 (0x25c,0x557)
0x2ab02…2ab20 30 20 3b 20 20 20 21 20 6c 65 6e 67 74 68 20 6f 66 20 6f 70 65 72 61 74 69 6f 6e 20 67 6f ┆0 ; ! length of operation go┆
0x2ab20…2ab40 74 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆t ! ┆
0x2ab40…2ab60 20 20 20 77 31 20 3b 20 20 20 21 20 61 62 73 20 72 65 66 20 6f 70 65 72 61 74 69 6f 6e 20 67 6f ┆ w1 ; ! abs ref operation go┆
0x2ab60…2ab7a 74 20 28 72 65 74 75 72 6e 29 20 20 20 20 20 20 20 20 20 21 0a 20 20 20 20 20 ┆t (return) ! ┆
0x2ab7a…2ab80 (0x25c,0x558)
0x2ab80…2aba0 20 20 20 20 20 20 20 20 20 20 20 77 32 29 3b 20 20 20 21 20 61 62 73 20 72 65 66 20 61 72 65 61 ┆ w2); ! abs ref area┆
0x2aba0…2abc0 20 64 65 73 63 72 69 70 74 69 6f 6e 20 28 63 61 6c 6c 29 20 20 20 20 20 20 20 20 21 0a 0a 20 20 ┆ description (call) ! ┆
0x2abc0…2abe0 70 72 6f 63 65 64 75 72 65 20 67 65 74 5f 6f 70 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 ┆procedure get_op (┆
0x2abe0…2ac00 2e 77 33 2e 3b 20 20 20 21 20 72 65 74 75 72 6e 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆.w3.; ! return ┆
0x2ac00…2ac06 (342,) (0x25c,0x559)
0x2ac06…2ac20 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 21 ┆ !┆
0x2ac20…2ac40 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 30 20 3b 20 20 20 21 20 6c 65 6e 67 74 68 ┆ w0 ; ! length┆
0x2ac40…2ac60 20 6f 66 20 6f 70 65 72 61 74 69 6f 6e 20 67 6f 74 20 28 72 65 74 75 72 6e 29 20 20 20 20 20 20 ┆ of operation got (return) ┆
0x2ac60…2ac7e 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 20 3b 20 20 20 21 20 61 62 ┆ ! w1 ; ! ab┆
0x2ac7e…2ac84 (0x25c,0x55a)
0x2ac84…2aca0 73 20 72 65 66 20 6f 70 65 72 61 74 69 6f 6e 20 67 6f 74 20 28 72 65 74 75 72 6e 29 ┆s ref operation got (return)┆
0x2aca0…2acc0 20 20 20 20 20 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 32 29 3b 20 ┆ ! w2); ┆
0x2acc0…2ace0 20 20 21 20 61 62 73 20 72 65 66 20 61 72 65 61 20 64 65 73 63 72 69 70 74 69 6f 6e 20 28 63 61 ┆ ! abs ref area description (ca┆
0x2ace0…2acfc 6c 6c 29 20 20 20 20 20 20 20 20 21 0a 0a 20 20 70 72 6f 63 65 64 75 72 65 20 70 75 ┆ll) ! procedure pu┆
0x2acfc…2ad02 (0x25c,0x55b)
0x2ad02…2ad20 74 5f 6f 70 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2e 77 33 2e 3b 20 20 20 21 20 ┆t_op (.w3.; ! ┆
0x2ad20…2ad40 72 65 74 75 72 6e 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 ┆return ┆
0x2ad40…2ad60 20 20 20 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 30 20 3b 20 20 20 ┆ ! w0 ; ┆
0x2ad60…2ad7a 21 20 6c 65 6e 67 74 68 20 6f 66 20 6f 70 65 72 61 74 69 6f 6e 20 74 6f 20 70 ┆! length of operation to p┆
0x2ad7a…2ad80 (0x25c,0x55c)
0x2ad80…2ada0 75 74 20 28 63 61 6c 6c 29 20 20 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ut (call) ! ┆
0x2ada0…2adc0 20 77 31 20 3b 20 20 20 21 20 61 62 73 20 72 65 66 20 73 70 61 63 65 20 66 6f 72 20 6f 70 65 72 ┆ w1 ; ! abs ref space for oper┆
0x2adc0…2ade0 61 74 69 6f 6e 20 28 72 65 74 75 72 6e 29 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ation (return) ! ┆
0x2ade0…2ae00 20 20 20 77 32 29 3b 20 20 20 21 20 61 62 73 20 72 65 66 20 61 72 65 61 00 00 00 00 00 00 00 00 ┆ w2); ! abs ref area ┆
0x2ae00…2ae06 (343,) (0x25c,0x55d)
0x2ae06…2ae20 20 64 65 73 63 72 69 70 74 69 6f 6e 20 28 63 61 6c 6c 29 20 20 20 20 20 20 20 ┆ description (call) ┆
0x2ae20…2ae40 20 21 0a 0a 20 20 70 72 6f 63 65 64 75 72 65 20 73 77 6f 70 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ ! procedure swop ┆
0x2ae40…2ae60 20 20 20 28 2e 77 33 2e 3b 20 20 20 21 20 72 65 74 75 72 6e 20 20 20 20 20 20 20 20 20 20 20 20 ┆ (.w3.; ! return ┆
0x2ae60…2ae7e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 0a 20 20 20 20 20 20 20 ┆ ! ┆
0x2ae7e…2ae84 (0x25c,0x55e)
0x2ae84…2aea0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 61 20 73 65 67 6d 65 6e 74 20 ┆ ! a segment ┆
0x2aea0…2aec0 62 75 66 66 65 72 20 69 73 20 6d 61 64 65 20 61 76 61 69 6c 61 62 6c 65 2e 20 20 20 20 21 0a 20 ┆buffer is made available. ! ┆
0x2aec0…2aee0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 74 68 65 20 72 65 66 65 ┆ ! the refe┆
0x2aee0…2aefc 72 65 6e 63 65 64 20 73 65 67 6d 65 6e 74 20 69 73 20 63 6f 70 69 65 64 20 74 6f 20 ┆renced segment is copied to ┆
0x2aefc…2af02 (0x25c,0x55f)
0x2af02…2af20 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 ┆ ! ! ┆
0x2af20…2af40 61 6e 64 20 66 72 6f 6d 20 62 73 20 64 65 70 65 6e 64 69 6e 67 20 6f 6e 20 74 68 65 20 6d 6f 64 ┆and from bs depending on the mod┆
0x2af40…2af60 65 2d 62 69 74 73 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆e-bits ! ┆
0x2af60…2af7a 21 20 64 65 73 63 72 69 62 65 64 20 62 65 6c 6f 77 3a 20 20 20 20 20 20 20 20 ┆! described below: ┆
0x2af7a…2af80 (0x25c,0x560)
0x2af80…2afa0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ! ┆
0x2afa0…2afc0 20 77 32 20 3b 20 20 20 21 20 62 69 74 20 32 31 20 72 65 6c 65 61 73 65 64 20 61 66 74 65 72 20 ┆ w2 ; ! bit 21 released after ┆
0x2afc0…2afe0 75 73 65 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆use ! ┆
0x2afe0…2b000 20 20 20 20 20 20 20 20 20 20 21 20 20 20 20 20 20 20 20 28 69 2e 65 2e 00 00 00 00 00 00 00 00 ┆ ! (i.e. ┆
0x2b000…2b006 (344,) (0x25c,0x561)
0x2b006…2b020 20 6e 65 78 74 20 63 61 6c 6c 20 62 75 66 66 65 72 20 66 72 65 65 29 20 20 20 ┆ next call buffer free) ┆
0x2b020…2b040 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 62 69 74 20 ┆ ! ! bit ┆
0x2b040…2b060 32 32 20 74 68 65 20 73 65 67 6d 65 6e 74 20 69 73 20 75 70 64 61 74 65 64 20 20 20 20 20 20 20 ┆22 the segment is updated ┆
0x2b060…2b07e 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 ┆ ! ! ┆
0x2b07e…2b084 (0x25c,0x562)
0x2b084…2b0a0 20 20 20 20 20 20 20 28 69 2e 65 2e 20 62 75 66 66 65 72 20 77 69 6c 6c 20 62 65 20 ┆ (i.e. buffer will be ┆
0x2b0a0…2b0c0 63 6f 70 69 65 64 20 74 6f 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆copied to ! ┆
0x2b0c0…2b0e0 20 20 20 20 21 20 20 20 20 20 20 20 20 20 20 62 73 20 62 65 66 6f 72 65 20 72 65 6c 65 61 73 69 ┆ ! bs before releasi┆
0x2b0e0…2b0fc 6e 67 29 20 20 20 20 20 20 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ng) ! ┆
0x2b0fc…2b102 (0x25c,0x563)
0x2b102…2b120 20 20 20 20 20 20 20 20 20 20 21 20 62 69 74 20 32 33 20 72 65 61 64 20 66 72 6f 6d 20 62 ┆ ! bit 23 read from b┆
0x2b120…2b140 73 20 69 66 20 73 65 67 6d 65 6e 74 20 6e 6f 74 20 69 73 20 20 21 0a 20 20 20 20 20 20 20 20 20 ┆s if segment not is ! ┆
0x2b140…2b160 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 20 20 20 20 20 20 20 70 72 65 73 65 6e 74 20 20 ┆ ! present ┆
0x2b160…2b17a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 0a 20 ┆ ! ┆
0x2b17a…2b180 (0x25c,0x564)
0x2b180…2b1a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 28 63 61 6c 6c 20 70 61 ┆ ! (call pa┆
0x2b1a0…2b1c0 72 61 6d 65 74 65 72 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 ┆rameter) !┆
0x2b1c0…2b1e0 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 30 20 3b 20 20 20 21 20 73 65 67 6d 65 6e ┆ w0 ; ! segmen┆
0x2b1e0…2b200 74 20 6e 6f 20 74 6f 20 73 77 6f 70 20 69 6e 20 28 63 61 6c 6c 29 20 20 00 00 00 00 00 00 00 00 ┆t no to swop in (call) ┆
0x2b200…2b206 (345,) (0x25c,0x565)
0x2b206…2b220 20 20 20 20 20 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ! ┆
0x2b220…2b240 20 77 31 29 3b 20 20 20 21 20 61 62 73 20 72 65 66 20 73 65 67 6d 65 6e 74 20 69 6e 20 63 6f 72 ┆ w1); ! abs ref segment in cor┆
0x2b240…2b260 65 20 28 72 65 74 75 72 6e 29 20 20 20 20 20 20 20 21 0a 0a 20 20 70 72 6f 63 65 64 75 72 65 20 ┆e (return) ! procedure ┆
0x2b260…2b27e 70 68 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2e 77 33 2e 29 3b 20 20 21 20 72 65 ┆ph (.w3.); ! re┆
0x2b27e…2b284 (0x25c,0x566)
0x2b284…2b2a0 74 75 72 6e 20 20 28 70 73 65 75 64 6f 20 63 61 6c 6c 29 20 20 20 20 20 20 20 20 20 ┆turn (pseudo call) ┆
0x2b2a0…2b2c0 20 20 20 20 20 20 20 20 20 21 0a 0a 20 20 70 72 6f 63 65 64 75 72 65 20 74 68 0a 20 20 20 20 20 ┆ ! procedure th ┆
0x2b2c0…2b2e0 20 20 20 20 20 20 20 20 20 28 2e 77 33 2e 29 3b 20 20 21 20 72 65 74 75 72 6e 20 20 28 70 73 65 ┆ (.w3.); ! return (pse┆
0x2b2e0…2b2fc 75 64 6f 20 63 61 6c 6c 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 ┆udo call) !┆
0x2b2fc…2b302 (0x25c,0x567)
0x2b302…2b320 0a 0a 20 20 70 72 6f 63 65 64 75 72 65 20 6f 70 6d 65 73 73 0a 20 20 20 20 20 20 20 20 20 ┆ procedure opmess ┆
0x2b320…2b340 20 20 20 20 20 28 2e 77 33 2e 3b 20 20 20 21 20 72 65 74 75 72 6e 20 20 20 20 20 20 20 20 20 20 ┆ (.w3.; ! return ┆
0x2b340…2b360 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 0a 20 20 20 20 20 20 20 ┆ ! ┆
0x2b360…2b37a 20 20 20 20 20 20 20 20 20 77 31 29 3b 20 20 20 21 20 61 62 73 20 72 65 66 20 ┆ w1); ! abs ref ┆
0x2b37a…2b380 (0x25c,0x568)
0x2b380…2b3a0 6d 65 73 73 61 67 65 20 28 63 61 6c 6c 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 ┆message (call) !┆
0x2b3a0…2b3c0 0a 0a 0a 20 20 70 72 6f 63 65 64 75 72 65 20 69 6e 69 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ procedure init ┆
0x2b3c0…2b3e0 20 20 28 2e 77 33 2e 29 3b 20 20 21 20 72 65 74 75 72 6e 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ (.w3.); ! return ┆
0x2b3e0…2b400 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 0a 0a 20 00 00 00 00 00 00 00 00 ┆ ! ┆
0x2b400…2b406 (346,) (0x25c,0x569)
0x2b406…2b420 20 70 72 6f 63 65 64 75 72 65 20 74 65 73 74 6f 75 74 0a 20 20 20 20 20 20 20 ┆ procedure testout ┆
0x2b420…2b440 20 20 20 20 20 20 20 28 2e 77 33 2e 3b 20 20 20 21 20 72 65 74 75 72 6e 20 28 63 61 6c 6c 29 20 ┆ (.w3.; ! return (call) ┆
0x2b440…2b460 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 21 0a 20 20 20 20 20 ┆ ! ┆
0x2b460…2b47e 20 20 20 20 20 20 20 20 20 20 20 77 30 20 3b 20 20 20 21 20 72 65 63 6f 72 64 20 6c 65 6e ┆ w0 ; ! record len┆
0x2b47e…2b484 (0x25c,0x56a)
0x2b484…2b4a0 67 74 68 20 28 63 61 6c 6c 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆gth (call) ┆
0x2b4a0…2b4c0 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 20 3b 20 20 20 21 20 61 62 73 20 ┆ ! w1 ; ! abs ┆
0x2b4c0…2b4e0 72 65 66 20 73 74 61 72 74 20 6f 66 20 74 65 73 74 20 72 65 63 6f 72 64 20 28 63 61 6c 6c 29 20 ┆ref start of test record (call) ┆
0x2b4e0…2b4fc 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 32 29 3b 20 20 20 ┆ ! w2); ┆
0x2b4fc…2b502 (0x25c,0x56b)
0x2b502…2b520 21 20 72 65 63 6f 72 64 20 6b 69 6e 64 20 28 63 61 6c 6c 29 20 20 20 20 20 20 20 20 20 20 ┆! record kind (call) ┆
0x2b520…2b540 20 20 20 20 20 20 20 20 20 20 20 21 0a 0a 20 20 6c 61 62 65 6c 20 63 65 6e 74 72 61 6c 5f 77 61 ┆ ! label central_wa┆
0x2b540…2b560 69 74 2c 77 61 69 74 5f 6e 65 78 74 2c 63 6f 72 75 5f 66 6f 75 6e 64 2c 61 63 74 69 76 61 74 65 ┆it,wait_next,coru_found,activate┆
0x2b560…2b57a 2c 69 6e 69 74 69 61 6c 69 7a 65 2c 0a 20 20 20 20 20 20 20 20 69 6e 74 65 72 ┆,initialize, inter┆
0x2b57a…2b580 (0x25c,0x56c)
0x2b580…2b5a0 72 75 70 74 2c 69 6f 2c 67 65 6e 5f 61 6e 73 77 65 72 3b 0a 0a 20 20 72 65 63 6f 72 64 20 6d 65 ┆rupt,io,gen_answer; record me┆
0x2b5a0…2b5c0 73 73 61 67 65 0a 20 20 20 20 20 20 20 20 20 20 20 28 72 65 66 20 6d 65 73 73 5f 6e 65 78 74 2c ┆ssage (ref mess_next,┆
0x2b5c0…2b5e0 6d 65 73 73 5f 70 72 65 76 2c 6d 65 73 73 5f 72 65 63 65 69 76 65 72 2c 6d 65 73 73 5f 73 65 6e ┆mess_prev,mess_receiver,mess_sen┆
0x2b5e0…2b600 64 65 72 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 79 74 65 20 6d 65 00 00 00 00 00 00 00 00 ┆der; byte me ┆
0x2b600…2b606 (347,) (0x25c,0x56d)
0x2b606…2b620 73 73 5f 6f 70 2c 6d 65 73 73 5f 6d 6f 64 65 3b 0a 20 20 20 20 20 20 20 20 20 ┆ss_op,mess_mode; ┆
0x2b620…2b640 20 20 20 72 65 66 20 6d 65 73 73 5f 66 69 72 73 74 2c 6d 65 73 73 5f 6c 61 73 74 3b 0a 20 20 20 ┆ ref mess_first,mess_last; ┆
0x2b640…2b660 20 20 20 20 20 20 20 20 20 77 6f 72 64 20 6d 65 73 73 5f 73 65 67 6d 65 6e 74 2c 6d 65 73 73 5f ┆ word mess_segment,mess_┆
0x2b660…2b67e 38 2c 6d 65 73 73 5f 31 30 2c 6d 65 73 73 5f 31 32 2c 6d 65 73 73 5f 31 34 29 3b 0a 0a 20 ┆8,mess_10,mess_12,mess_14); ┆
0x2b67e…2b684 (0x25c,0x56e)
0x2b684…2b6a0 20 72 65 63 6f 72 64 20 63 6f 6e 74 72 6f 6c 6d 65 73 73 0a 20 20 20 20 20 20 20 20 ┆ record controlmess ┆
0x2b6a0…2b6c0 20 20 20 28 72 65 66 20 63 6d 5f 6e 65 78 74 2c 63 6d 5f 70 72 65 76 2c 63 6d 5f 72 65 63 65 69 ┆ (ref cm_next,cm_prev,cm_recei┆
0x2b6c0…2b6e0 76 65 72 2c 63 6d 5f 73 65 6e 64 65 72 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 79 74 65 20 ┆ver,cm_sender; byte ┆
0x2b6e0…2b6fc 63 6d 5f 6f 70 2c 63 6d 5f 6d 6f 64 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 ┆cm_op,cm_mode; w┆
0x2b6fc…2b702 (0x25c,0x56f)
0x2b702…2b720 6f 72 64 20 63 6d 5f 6c 6f 63 61 6c 69 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 72 65 ┆ord cm_localid; re┆
0x2b720…2b740 66 20 63 6d 5f 74 70 64 61 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 79 74 65 20 63 6d 5f 62 ┆f cm_tpda; byte cm_b┆
0x2b740…2b760 75 66 73 2c 63 6d 5f 74 69 6d 65 72 73 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 74 65 78 74 28 ┆ufs,cm_timers; text(┆
0x2b760…2b77a 31 31 29 20 63 6d 5f 6e 61 6d 65 29 3b 0a 0a 20 20 72 65 63 6f 72 64 20 63 6d ┆11) cm_name); record cm┆
0x2b77a…2b780 (0x25c,0x570)
0x2b780…2b7a0 32 0a 20 20 20 20 20 20 20 20 20 20 20 28 77 6f 72 64 20 63 6d 32 5f 31 2c 63 6d 32 5f 32 2c 63 ┆2 (word cm2_1,cm2_2,c┆
0x2b7a0…2b7c0 6d 32 5f 33 2c 63 6d 32 5f 34 2c 63 6d 32 5f 35 2c 63 6d 32 5f 36 2c 63 6d 32 5f 37 2c 63 6d 32 ┆m2_3,cm2_4,cm2_5,cm2_6,cm2_7,cm2┆
0x2b7c0…2b7e0 5f 38 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 79 74 65 20 63 6d 5f 6d 61 73 6b 2c 63 6d 5f ┆_8; byte cm_mask,cm_┆
0x2b7e0…2b800 73 75 62 73 74 29 3b 0a 0a 20 20 72 65 63 6f 72 64 20 63 6f 6e 74 72 6f 00 00 00 00 00 00 00 00 ┆subst); record contro ┆
0x2b800…2b806 (348,) (0x25c,0x571)
0x2b806…2b820 6c 61 6e 73 77 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 28 77 6f 72 64 20 63 ┆lanswer (word c┆
0x2b820…2b840 61 5f 73 74 61 74 75 73 2c 63 61 5f 6c 6f 63 61 6c 69 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆a_status,ca_localid; ┆
0x2b840…2b860 20 72 65 66 20 63 61 5f 74 70 64 61 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 79 74 65 20 63 ┆ ref ca_tpda; byte c┆
0x2b860…2b87e 61 5f 62 75 66 73 2c 63 61 5f 74 69 6d 65 72 73 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆a_bufs,ca_timers; ┆
0x2b87e…2b884 (0x25c,0x572)
0x2b884…2b8a0 72 65 66 20 63 61 5f 70 6f 6f 6c 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 6f 72 ┆ref ca_pool; wor┆
0x2b8a0…2b8c0 64 20 63 61 5f 72 65 63 66 75 6c 6c 2c 63 61 5f 62 79 74 65 73 66 72 65 65 2c 63 61 5f 64 75 6d ┆d ca_recfull,ca_bytesfree,ca_dum┆
0x2b8c0…2b8e0 6d 79 32 29 3b 0a 0a 20 20 72 65 63 6f 72 64 20 63 6f 72 6f 75 74 69 6e 65 0a 20 20 20 20 20 20 ┆my2); record coroutine ┆
0x2b8e0…2b8fc 20 20 20 20 20 28 72 65 66 20 63 5f 6e 65 78 74 2c 63 5f 70 72 65 76 2c 63 5f 6d 62 ┆ (ref c_next,c_prev,c_mb┆
0x2b8fc…2b902 (0x25c,0x573)
0x2b902…2b920 75 66 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 6f 72 64 20 63 5f 77 30 2c 63 5f 77 31 ┆uf; word c_w0,c_w1┆
0x2b920…2b940 2c 63 5f 77 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 72 65 66 20 20 63 5f 69 63 3b 0a 20 20 ┆,c_w2; ref c_ic; ┆
0x2b940…2b960 20 20 20 20 20 20 20 20 20 20 77 6f 72 64 20 63 5f 6e 72 2c 63 5f 77 77 30 2c 63 5f 77 77 32 2c ┆ word c_nr,c_ww0,c_ww2,┆
0x2b960…2b97a 63 5f 77 77 33 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 72 65 66 20 61 5f 72 ┆c_ww3; ref a_r┆
0x2b97a…2b980 (0x25c,0x574)
0x2b980…2b9a0 65 63 66 75 6c 6c 2c 20 61 5f 62 79 74 65 73 66 72 65 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ecfull, a_bytesfree; ┆
0x2b9a0…2b9c0 20 77 6f 72 64 20 61 5f 66 69 72 73 74 2c 20 61 5f 74 6f 70 2c 20 61 5f 66 69 72 73 74 66 75 6c ┆ word a_first, a_top, a_firstful┆
0x2b9c0…2b9e0 6c 2c 20 61 5f 66 69 72 73 74 66 72 65 65 29 3b 0a 0a 20 20 72 65 63 6f 72 64 20 70 72 6f 63 65 ┆l, a_firstfree); record proce┆
0x2b9e0…2ba00 73 73 68 61 6e 64 6c 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 28 61 72 00 00 00 00 00 00 00 00 ┆sshandler (ar ┆
0x2ba00…2ba06 (349,) (0x25c,0x575)
0x2ba06…2ba20 72 61 79 20 28 31 3a 21 6c 65 6e 67 74 68 28 63 6f 72 6f 75 74 69 6e 65 29 29 ┆ray (1:!length(coroutine))┆
0x2ba20…2ba40 20 70 68 5f 63 20 6f 66 20 62 79 74 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 72 65 66 20 70 ┆ ph_c of byte; ref p┆
0x2ba40…2ba60 68 5f 70 61 72 65 6e 74 2c 70 68 5f 63 68 69 6c 64 2c 70 68 5f 70 73 70 72 6f 63 2c 70 68 5f 64 ┆h_parent,ph_child,ph_psproc,ph_d┆
0x2ba60…2ba7e 75 6d 6d 79 6d 65 73 73 2c 70 68 5f 71 72 65 73 65 72 76 65 3b 0a 20 20 20 20 20 20 20 20 ┆ummymess,ph_qreserve; ┆
0x2ba7e…2ba84 (0x25c,0x576)
0x2ba84…2baa0 20 20 20 20 77 6f 72 64 20 70 68 5f 74 68 69 6e 63 61 72 3b 20 21 20 74 68 2e 69 6e ┆ word ph_thincar; ! th.in┆
0x2baa0…2bac0 63 61 72 2e 6e 6f 20 6f 66 20 63 75 72 72 65 6e 74 20 72 65 73 65 72 76 65 72 20 6f 66 20 73 70 ┆car.no of current reserver of sp┆
0x2bac0…2bae0 6f 6f 6c 71 75 65 75 65 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 6f 72 64 20 70 68 5f 6f ┆oolqueue ! word ph_o┆
0x2bae0…2bafc 75 74 63 61 72 3b 20 21 20 6f 6e 6c 79 20 75 73 65 64 20 69 6e 20 66 38 30 30 30 20 ┆utcar; ! only used in f8000 ┆
0x2bafc…2bb02 (0x25c,0x577)
0x2bb02…2bb20 6c 69 6e 6b 73 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 0a 20 ┆links ! ┆
0x2bb20…2bb40 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 21 20 69 6e ┆ ! in┆
0x2bb40…2bb60 63 61 72 6e 2e 6e 6f 20 6f 66 20 63 75 72 72 65 6e 74 20 6f 75 74 70 75 74 20 6c 69 6e 6b 20 20 ┆carn.no of current output link ┆
0x2bb60…2bb7a 20 20 20 20 20 20 20 20 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ! ┆
0x2bb7a…2bb80 (0x25c,0x578)
0x2bb80…2bba0 62 79 74 65 20 70 68 5f 73 65 6e 73 65 64 2c 70 68 5f 69 6e 70 6d 6f 64 65 3b 0a 20 20 20 20 20 ┆byte ph_sensed,ph_inpmode; ┆
0x2bba0…2bbc0 20 20 20 20 20 20 20 77 6f 72 64 20 70 68 5f 62 6c 6f 63 6b 75 73 65 64 2c 20 70 68 5f 73 61 76 ┆ word ph_blockused, ph_sav┆
0x2bbc0…2bbe0 65 77 30 2c 70 68 5f 73 61 76 65 77 31 29 3b 0a 0a 20 20 72 65 63 6f 72 64 20 74 65 72 6d 69 6e ┆ew0,ph_savew1); record termin┆
0x2bbe0…2bc00 61 6c 68 61 6e 64 6c 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 28 61 72 00 00 00 00 00 00 00 00 ┆alhandler (ar ┆
0x2bc00…2bc06 (350,) (0x25c,0x579)
0x2bc06…2bc20 72 61 79 20 28 31 3a 21 6c 65 6e 67 74 68 28 63 6f 72 6f 75 74 69 6e 65 29 29 ┆ray (1:!length(coroutine))┆
0x2bc20…2bc40 20 74 68 5f 63 20 6f 66 20 62 79 74 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 72 65 66 20 74 ┆ th_c of byte; ref t┆
0x2bc40…2bc60 68 5f 70 61 72 65 6e 74 2c 74 68 5f 6e 65 78 74 2c 74 68 5f 62 75 66 2c 20 74 68 5f 63 6f 6e 74 ┆h_parent,th_next,th_buf, th_cont┆
0x2bc60…2bc7e 72 6f 6c 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 6f 72 64 20 74 68 5f 74 79 70 65 2c ┆rol; word th_type,┆
0x2bc7e…2bc84 (0x25c,0x57a)
0x2bc84…2bca0 20 20 21 20 30 20 3d 20 74 74 79 20 6d 75 6c 74 69 6c 69 6e 65 20 20 20 20 32 20 3d ┆ ! 0 = tty multiline 2 =┆
0x2bca0…2bcc0 20 74 74 79 20 73 69 6e 67 6c 65 6c 69 6e 65 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ tty singleline ! ┆
0x2bcc0…2bce0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 34 20 74 65 72 6d 69 6e 2f 74 65 72 6d 6f 75 ┆ ! 4 termin/termou┆
0x2bce0…2bcfc 74 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 21 ┆t !┆
0x2bcfc…2bd02 (0x25c,0x57b)
0x2bd02…2bd20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 68 5f 6e 64 69 73 70 6c 61 79 3b ┆ th_ndisplay;┆
0x2bd20…2bd40 21 20 69 66 20 3c 3e 20 30 20 69 6e 70 75 74 20 69 6e 20 6d 6f 64 65 20 38 20 21 0a 20 20 20 20 ┆! if <> 0 input in mode 8 ! ┆
0x2bd40…2bd60 20 20 20 20 20 20 20 20 77 6f 72 64 20 74 68 5f 69 6e 63 61 72 2c 0a 20 20 20 20 20 20 20 20 20 ┆ word th_incar, ┆
0x2bd60…2bd7a 20 20 20 20 20 20 20 20 74 68 5f 6c 6f 63 61 6c 69 64 2c 74 68 5f 74 69 6d 65 ┆ th_localid,th_time┆
0x2bd7a…2bd80 (0x25c,0x57c)
0x2bd80…2bda0 72 63 6f 75 6e 74 2c 74 68 5f 74 69 6d 65 72 6d 61 78 2c 74 68 5f 6d 61 78 62 75 66 2c 74 68 5f ┆rcount,th_timermax,th_maxbuf,th_┆
0x2bda0…2bdc0 75 73 65 64 62 75 66 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 68 5f 6d 61 73 ┆usedbuf, th_mas┆
0x2bdc0…2bde0 6b 2c 74 68 5f 73 75 62 73 74 2c 74 68 5f 62 6c 6f 63 6b 75 73 65 64 3b 0a 20 20 20 20 20 20 20 ┆k,th_subst,th_blockused; ┆
0x2bde0…2be00 20 20 20 20 20 74 65 78 74 28 31 34 29 74 68 5f 6e 61 6d 65 3b 0a 20 20 00 00 00 00 00 00 00 00 ┆ text(14)th_name; ┆
0x2be00…2be06 (351,) (0x25c,0x57d)
0x2be06…2be20 20 20 20 20 20 20 20 20 20 20 72 65 66 20 74 68 5f 70 72 6f 63 64 65 73 63 29 ┆ ref th_procdesc)┆
0x2be20…2be40 3b 0a 0a 20 20 72 65 63 6f 72 64 20 74 65 72 6d 62 75 66 68 65 61 64 0a 20 20 20 20 20 20 20 20 ┆; record termbufhead ┆
0x2be40…2be60 20 20 20 28 62 79 74 65 20 62 75 66 6d 5f 6f 70 2c 62 75 66 6d 5f 6d 6f 64 65 3b 0a 20 20 20 20 ┆ (byte bufm_op,bufm_mode; ┆
0x2be60…2be7e 20 20 20 20 20 20 20 20 72 65 66 20 62 75 66 6d 5f 66 69 72 73 74 2c 62 75 66 6d 5f 6c 61 ┆ ref bufm_first,bufm_la┆
0x2be7e…2be84 (0x25c,0x57e)
0x2be84…2bea0 73 74 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 6f 72 64 20 62 75 66 5f 36 2c 62 ┆st; word buf_6,b┆
0x2bea0…2bec0 75 66 5f 38 2c 62 75 66 5f 31 30 2c 62 75 66 5f 31 32 2c 62 75 66 5f 31 34 2c 62 75 66 5f 73 74 ┆uf_8,buf_10,buf_12,buf_14,buf_st┆
0x2bec0…2bee0 61 74 75 73 2c 62 75 66 5f 62 79 74 65 73 2c 62 75 66 5f 63 68 61 72 73 2c 62 75 66 5f 72 65 73 ┆atus,buf_bytes,buf_chars,buf_res┆
0x2bee0…2befc 75 6c 74 2c 62 75 66 5f 69 6e 63 61 72 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ult,buf_incar, ┆
0x2befc…2bf02 (0x25c,0x57f)
0x2bf02…2bf20 20 20 20 20 62 75 66 5f 6c 6f 63 61 6c 69 64 2c 62 75 66 5f 64 61 74 61 31 29 3b 0a 0a 20 ┆ buf_localid,buf_data1); ┆
0x2bf20…2bf40 20 72 65 63 6f 72 64 20 73 65 6d 61 70 68 6f 72 65 0a 20 20 20 20 20 20 20 20 20 20 20 28 72 65 ┆ record semaphore (re┆
0x2bf40…2bf60 66 20 73 65 6d 5f 6e 65 78 74 2c 73 65 6d 5f 70 72 65 76 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆f sem_next,sem_prev; ┆
0x2bf60…2bf7a 20 77 6f 72 64 20 73 65 6d 5f 76 61 6c 75 65 29 3b 0a 0a 20 20 72 65 63 6f 72 ┆ word sem_value); recor┆
0x2bf7a…2bf80 (0x25c,0x580)
0x2bf80…2bfa0 64 20 6f 70 63 6f 6d 0a 20 20 20 20 20 20 20 20 20 20 20 28 62 79 74 65 20 6f 70 6f 70 2c 6f 70 ┆d opcom (byte opop,op┆
0x2bfa0…2bfc0 6d 6f 64 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 74 65 78 74 28 35 29 20 6f 70 74 65 78 74 ┆mode; text(5) optext┆
0x2bfc0…2bfe0 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 6f 72 64 20 6c 6f 67 73 74 61 74 75 73 3b 0a 20 ┆1; word logstatus; ┆
0x2bfe0…2c000 20 20 20 20 20 20 20 20 20 20 20 74 65 78 74 28 31 31 29 20 6f 70 74 65 00 00 00 00 00 00 00 00 ┆ text(11) opte ┆
0x2c000…2c006 (352,) (0x25c,0x581)
0x2c006…2c020 78 74 32 29 3b 0a 0a 20 20 72 65 63 6f 72 64 20 6e 61 6d 65 0a 20 20 20 20 20 ┆xt2); record name ┆
0x2c020…2c040 20 20 20 20 20 20 28 64 6f 75 62 6c 65 20 6e 61 6d 65 31 2c 6e 61 6d 65 32 29 3b 0a 0a 20 20 72 ┆ (double name1,name2); r┆
0x2c040…2c060 65 63 6f 72 64 20 73 70 6f 6f 6c 72 65 63 0a 20 20 20 20 20 20 20 20 20 20 20 28 77 6f 72 64 20 ┆ecord spoolrec (word ┆
0x2c060…2c07e 73 65 67 5f 6e 6f 2c 73 65 67 5f 70 72 69 6f 2c 73 65 67 5f 64 61 74 61 29 3b 0a 0a 0a 20 ┆seg_no,seg_prio,seg_data); ┆
0x2c07e…2c084 (0x25c,0x582)
0x2c084…2c0a0 20 69 6e 63 6f 64 65 0a 20 20 20 20 77 6f 72 64 20 74 65 6d 3b 20 21 20 70 72 6f 63 ┆ incode word tem; ! proc┆
0x2c0a0…2c0c0 65 73 73 20 64 65 73 63 72 69 70 74 69 6f 6e 20 61 64 64 72 65 73 73 20 6f 66 20 74 65 6d 20 21 ┆ess description address of tem !┆
0x2c0c0…2c0e0 0a 20 20 20 20 72 65 66 20 63 75 72 72 65 6e 74 3a 3d 30 2c 0a 20 20 20 20 20 20 20 20 65 76 65 ┆ ref current:=0, eve┆
0x2c0e0…2c0fc 6e 74 3a 3d 30 2c 0a 20 20 20 20 20 20 20 20 61 63 74 69 76 71 66 73 74 2c 61 63 74 ┆nt:=0, activqfst,act┆
0x2c0fc…2c102 (0x25c,0x583)
0x2c102…2c120 69 76 71 6c 61 73 74 2c 0a 20 20 20 20 20 20 20 20 61 6e 73 77 65 72 71 66 73 74 2c 61 6e ┆ivqlast, answerqfst,an┆
0x2c120…2c140 73 77 65 72 71 6c 61 73 74 2c 0a 20 20 20 20 20 20 20 20 77 61 69 74 71 66 73 74 2c 77 61 69 74 ┆swerqlast, waitqfst,wait┆
0x2c140…2c160 71 6c 61 73 74 3b 0a 0a 20 20 20 20 72 65 66 20 73 65 67 70 6f 6f 6c 5f 66 73 74 2c 20 20 73 65 ┆qlast; ref segpool_fst, se┆
0x2c160…2c17a 67 70 6f 6f 6c 5f 74 6f 70 3b 20 20 77 6f 72 64 20 73 65 67 5f 73 69 7a 65 3b ┆gpool_top; word seg_size;┆
0x2c17a…2c180 (0x25c,0x584)
0x2c180…2c1a0 0a 20 20 20 20 72 65 66 20 70 68 70 6f 6f 6c 5f 66 73 74 2c 20 20 20 70 68 70 6f 6f 6c 5f 74 6f ┆ ref phpool_fst, phpool_to┆
0x2c1a0…2c1c0 70 3b 20 20 20 77 6f 72 64 20 70 68 5f 73 69 7a 65 3b 0a 20 20 20 20 72 65 66 20 74 68 70 6f 6f ┆p; word ph_size; ref thpoo┆
0x2c1c0…2c1e0 6c 5f 66 73 74 2c 20 20 20 74 68 70 6f 6f 6c 5f 74 6f 70 3b 20 20 20 77 6f 72 64 20 74 68 5f 73 ┆l_fst, thpool_top; word th_s┆
0x2c1e0…2c200 69 7a 65 3b 0a 20 20 20 20 72 65 66 20 73 65 6d 70 6f 6f 6c 5f 66 73 74 00 00 00 00 00 00 00 00 ┆ize; ref sempool_fst ┆
0x2c200…2c206 (353,) (0x25c,0x585)
0x2c206…2c220 2c 20 20 73 65 6d 70 6f 6f 6c 5f 74 6f 70 3b 20 20 77 6f 72 64 20 73 65 6d 5f ┆, sempool_top; word sem_┆
0x2c220…2c240 73 69 7a 65 3b 0a 20 20 20 20 77 6f 72 64 20 74 65 73 74 6d 74 6f 70 2c 74 65 73 74 62 75 66 3a ┆size; word testmtop,testbuf:┆
0x2c240…2c260 3d 30 2c 62 61 73 65 5f 65 76 65 6e 74 3a 3d 30 3b 0a 0a 20 20 20 20 62 79 74 65 20 74 65 73 74 ┆=0,base_event:=0; byte test┆
0x2c260…2c27e 6d 6f 70 3a 3d 35 2c 74 65 73 74 6d 6f 64 65 3a 3d 30 3b 0a 20 20 20 20 72 65 66 20 74 65 ┆mop:=5,testmode:=0; ref te┆
0x2c27e…2c284 (0x25c,0x586)
0x2c284…2c2a0 73 74 6d 66 73 74 2c 74 65 73 74 6d 6c 61 73 74 3b 0a 20 20 20 20 77 6f 72 64 20 74 ┆stmfst,testmlast; word t┆
0x2c2a0…2c2c0 65 73 74 73 65 67 6d 3a 3d 30 2c 6d 61 78 74 65 73 74 73 65 67 6d 3b 0a 20 20 20 20 72 65 66 20 ┆estsegm:=0,maxtestsegm; ref ┆
0x2c2c0…2c2e0 63 6c 5f 64 65 73 63 72 69 70 74 6f 72 3b 0a 20 20 20 20 64 6f 75 62 6c 65 20 73 74 61 72 74 74 ┆cl_descriptor; double startt┆
0x2c2e0…2c2fc 69 6d 65 3b 0a 20 20 20 20 77 6f 72 64 20 67 63 5f 66 75 6e 63 20 3a 3d 20 34 3b 0a ┆ime; word gc_func := 4; ┆
0x2c2fc…2c302 (0x25c,0x587)
0x2c302…2c320 20 20 20 20 72 65 66 20 20 67 63 5f 66 69 72 73 74 2c 67 63 5f 6c 61 73 74 3b 0a 20 20 20 ┆ ref gc_first,gc_last; ┆
0x2c320…2c340 20 77 6f 72 64 20 67 63 5f 72 65 6c 20 20 3a 3d 20 30 3b 0a 20 20 20 20 77 6f 72 64 20 62 75 66 ┆ word gc_rel := 0; word buf┆
0x2c340…2c360 6c 3b 0a 20 20 20 20 77 6f 72 64 20 61 6e 73 5f 73 74 61 74 75 73 2c 61 6e 73 5f 62 79 74 65 73 ┆l; word ans_status,ans_bytes┆
0x2c360…2c37a 2c 61 6e 73 5f 63 68 61 72 73 2c 61 6e 73 34 2c 61 6e 73 35 2c 61 6e 73 36 2c ┆,ans_chars,ans4,ans5,ans6,┆
0x2c37a…2c380 (0x25c,0x588)
0x2c380…2c3a0 61 6e 73 37 2c 61 6e 73 38 3b 0a 20 20 20 20 77 6f 72 64 20 62 6c 2c 6c 6f 63 61 6c 69 64 3b 0a ┆ans7,ans8; word bl,localid; ┆
0x2c3a0…2c3c0 20 20 20 20 62 79 74 65 20 74 79 70 65 2c 20 62 75 66 73 2c 20 74 69 6d 65 72 73 3b 0a 20 20 20 ┆ byte type, bufs, timers; ┆
0x2c3c0…2c3e0 20 72 65 66 20 70 72 6f 63 64 65 73 63 72 3b 0a 20 20 20 20 72 65 66 20 70 68 5f 68 65 61 64 2c ┆ ref procdescr; ref ph_head,┆
0x2c3e0…2c400 20 74 68 5f 68 65 61 64 3b 0a 20 20 20 20 64 6f 75 62 6c 65 20 78 6e 61 00 00 00 00 00 00 00 00 ┆ th_head; double xna ┆
0x2c400…2c406 (354,) (0x25c,0x589)
0x2c406…2c420 6d 65 31 2c 20 78 6e 61 6d 65 32 3b 0a 20 20 20 20 62 79 74 65 20 66 61 75 6c ┆me1, xname2; byte faul┆
0x2c420…2c440 74 6f 70 3a 3d 32 2c 66 61 75 6c 74 6d 6f 64 65 3a 3d 31 3b 0a 20 20 20 20 74 65 78 74 28 32 30 ┆top:=2,faultmode:=1; text(20┆
0x2c440…2c460 29 20 66 61 75 6c 74 74 78 74 3a 3d 22 2a 2a 2a 66 61 75 6c 74 22 3b 0a 20 20 20 20 62 79 74 65 ┆) faulttxt:="***fault"; byte┆
0x2c460…2c47e 20 73 70 63 6f 6d 6f 70 3a 3d 32 2c 73 70 63 6f 6d 6d 6f 64 65 3a 3d 38 27 31 30 30 31 3b ┆ spcomop:=2,spcommode:=8'1001;┆
0x2c47e…2c484 (0x25c,0x58a)
0x2c484…2c4a0 0a 20 20 20 20 74 65 78 74 28 38 29 20 73 70 63 6f 6d 74 65 78 74 3a 3d 22 73 74 61 ┆ text(8) spcomtext:="sta┆
0x2c4a0…2c4c0 74 75 73 22 3b 0a 20 20 20 20 74 65 78 74 28 31 34 29 20 73 70 6f 6f 6c 6e 61 6d 65 3a 3d 22 74 ┆tus"; text(14) spoolname:="t┆
0x2c4c0…2c4e0 65 6d 73 70 6f 6f 6c 22 3b 0a 20 20 20 20 77 6f 72 64 20 65 74 78 3a 3d 20 33 3b 20 21 20 63 6f ┆emspool"; word etx:= 3; ! co┆
0x2c4e0…2c4fc 6e 73 74 61 6e 74 20 65 71 75 61 6c 20 74 6f 20 74 68 65 20 69 73 6f 20 76 61 6c 75 ┆nstant equal to the iso valu┆
0x2c4fc…2c502 (0x25c,0x58b)
0x2c502…2c520 65 20 6f 66 20 65 74 78 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆e of etx ! ┆
0x2c520…2c540 21 20 6d 61 79 20 62 65 20 63 68 61 6e 67 65 64 20 66 6f 72 20 74 65 73 74 20 70 75 72 70 6f 73 ┆! may be changed for test purpos┆
0x2c540…2c560 65 73 20 20 20 20 20 20 20 21 0a 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 74 65 6d 3a 3d 20 77 33 ┆es ! begin tem:= w3┆
0x2c560…2c57a 3b 20 21 20 73 61 76 65 20 70 72 6f 63 2e 20 64 65 73 63 72 2e 20 61 64 64 72 ┆; ! save proc. descr. addr┆
0x2c57a…2c580 (0x25c,0x58c)
0x2c580…2c5a0 65 73 73 20 21 0a 20 20 20 20 69 6e 74 65 72 72 75 70 74 3a 0a 20 20 20 20 77 33 3a 3d 61 64 64 ┆ess ! interrupt: w3:=add┆
0x2c5a0…2c5c0 72 65 73 73 28 69 6e 74 65 72 72 75 70 74 29 3b 0a 20 20 20 20 77 30 3a 3d 20 30 3b 0a 20 20 20 ┆ress(interrupt); w0:= 0; ┆
0x2c5c0…2c5e0 20 6d 6f 6e 69 74 6f 72 28 30 29 3b 20 20 20 21 20 73 65 74 20 69 6e 74 65 72 72 75 70 74 20 61 ┆ monitor(0); ! set interrupt a┆
0x2c5e0…2c600 64 64 72 65 73 73 20 21 0a 20 20 20 20 67 6f 74 6f 20 69 6e 69 74 69 61 00 00 00 00 00 00 00 00 ┆ddress ! goto initia ┆
0x2c600…2c606 (355,) (0x25c,0x58d)
0x2c606…2c620 6c 69 7a 65 3b 0a 20 20 20 20 77 31 2b 30 3b 20 77 31 2b 30 3b 20 77 31 2b 30 ┆lize; w1+0; w1+0; w1+0┆
0x2c620…2c640 3b 20 77 31 2b 30 3b 20 20 20 21 20 66 69 6c 6c 20 75 70 20 69 6e 74 65 72 72 75 70 74 20 61 72 ┆; w1+0; ! fill up interrupt ar┆
0x2c640…2c660 65 61 20 21 0a 20 20 20 20 74 65 73 74 6f 75 74 28 2e 77 33 2e 2c 77 30 3a 3d 31 36 2c 77 31 3a ┆ea ! testout(.w3.,w0:=16,w1:┆
0x2c660…2c67e 3d 61 64 64 72 65 73 73 28 69 6e 74 65 72 72 75 70 74 29 2c 77 32 3a 3d 31 35 29 3b 0a 20 ┆=address(interrupt),w2:=15); ┆
0x2c67e…2c684 (0x25c,0x58e)
0x2c684…2c6a0 20 20 20 6f 70 6d 65 73 73 28 2e 77 33 2e 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 66 ┆ opmess(.w3.,w1:=address(f┆
0x2c6a0…2c6c0 61 75 6c 74 6f 70 29 29 3b 0a 0a 69 6e 69 74 69 61 6c 69 7a 65 3a 0a 20 20 20 20 69 6e 69 74 28 ┆aultop)); initialize: init(┆
0x2c6c0…2c6e0 2e 77 33 2e 29 3b 20 20 21 20 63 61 6c 6c 20 69 6e 69 74 20 66 6f 72 20 61 6c 6c 6f 63 61 74 69 ┆.w3.); ! call init for allocati┆
0x2c6e0…2c6fc 6e 67 20 61 6e 64 20 69 6e 69 74 69 61 6c 69 7a 69 6e 67 20 62 75 66 66 65 72 73 2c ┆ng and initializing buffers,┆
0x2c6fc…2c702 (0x25c,0x58f)
0x2c702…2c720 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 64 65 73 63 72 69 70 ┆ ! ! descrip┆
0x2c720…2c740 74 6f 72 73 2c 20 73 65 6d 61 70 68 6f 72 65 73 20 65 74 63 2e 20 20 20 20 20 20 20 20 20 20 20 ┆tors, semaphores etc. ┆
0x2c740…2c760 20 20 20 20 20 20 20 20 20 20 20 20 20 21 0a 0a 63 65 6e 74 72 61 6c 5f 77 61 69 74 3a 0a 20 20 ┆ ! central_wait: ┆
0x2c760…2c77a 20 20 77 32 3a 3d 20 62 61 73 65 5f 65 76 65 6e 74 3b 20 20 20 20 20 20 20 21 ┆ w2:= base_event; !┆
0x2c77a…2c780 (0x25c,0x590)
0x2c780…2c7a0 20 62 61 73 65 20 6f 66 20 65 76 65 6e 74 20 71 75 65 75 65 20 21 0a 20 20 20 20 0a 77 61 69 74 ┆ base of event queue ! wait┆
0x2c7a0…2c7c0 5f 6e 65 78 74 3a 0a 20 20 20 20 63 75 72 72 65 6e 74 3a 3d 77 33 3a 3d 63 6c 5f 64 65 73 63 72 ┆_next: current:=w3:=cl_descr┆
0x2c7c0…2c7e0 69 70 74 6f 72 3b 0a 20 20 20 20 6d 6f 6e 69 74 6f 72 28 32 34 29 3b 20 21 20 77 61 69 74 20 6e ┆iptor; monitor(24); ! wait n┆
0x2c7e0…2c800 65 78 74 20 65 76 65 6e 74 20 21 0a 20 20 20 20 69 66 20 77 32 3d 74 65 00 00 00 00 00 00 00 00 ┆ext event ! if w2=te ┆
0x2c800…2c806 (356,) (0x25c,0x591)
0x2c806…2c820 73 74 62 75 66 20 74 68 65 6e 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 ┆stbuf then begin ┆
0x2c820…2c840 20 62 61 73 65 5f 65 76 65 6e 74 3a 3d 20 77 32 3b 0a 20 20 20 20 20 20 67 6f 74 6f 20 77 61 69 ┆ base_event:= w2; goto wai┆
0x2c840…2c860 74 5f 6e 65 78 74 3b 0a 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 65 76 65 6e 74 3a 3d 77 32 3b 0a ┆t_next; end; event:=w2; ┆
0x2c860…2c87e 20 20 20 20 28 77 33 29 2e 63 5f 77 30 3a 3d 77 30 3b 0a 20 20 20 20 74 65 73 74 6f 75 74 ┆ (w3).c_w0:=w0; testout┆
0x2c87e…2c884 (0x25c,0x592)
0x2c884…2c8a0 28 2e 77 33 2e 2c 77 30 3a 3d 32 36 2c 77 31 3a 3d 77 32 2d 32 2c 77 32 3a 3d 36 29 ┆(.w3.,w0:=26,w1:=w2-2,w2:=6)┆
0x2c8a0…2c8c0 3b 0a 20 20 20 20 77 32 3a 3d 65 76 65 6e 74 3b 0a 20 20 20 20 77 30 3a 3d 28 77 33 29 2e 63 5f ┆; w2:=event; w0:=(w3).c_┆
0x2c8c0…2c8e0 77 30 3b 0a 20 20 20 20 69 66 20 77 30 20 3d 20 31 20 74 68 65 6e 0a 20 20 20 20 62 65 67 69 6e ┆w0; if w0 = 1 then begin┆
0x2c8e0…2c8fc 20 20 21 20 61 6e 20 61 6e 73 77 65 72 20 68 61 73 20 61 72 72 69 76 65 64 20 69 6e ┆ ! an answer has arrived in┆
0x2c8fc…2c902 (0x25c,0x593)
0x2c902…2c920 20 65 76 65 6e 74 20 71 75 65 75 65 20 21 0a 20 20 20 20 20 20 77 31 3a 3d 61 64 64 72 65 ┆ event queue ! w1:=addre┆
0x2c920…2c940 73 73 28 61 6e 73 5f 73 74 61 74 75 73 29 3b 0a 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 31 38 ┆ss(ans_status); monitor(18┆
0x2c940…2c960 29 3b 20 20 21 20 77 61 69 74 20 61 6e 73 77 65 72 20 20 28 74 61 6b 65 20 74 68 65 20 61 6e 73 ┆); ! wait answer (take the ans┆
0x2c960…2c97a 77 65 72 20 68 6f 6d 65 29 20 21 0a 20 20 20 20 20 20 77 31 3a 3d 61 6e 73 77 ┆wer home) ! w1:=answ┆
0x2c97a…2c980 (0x25c,0x594)
0x2c980…2c9a0 65 72 71 66 73 74 3b 0a 20 20 20 20 20 20 77 68 69 6c 65 20 77 33 3a 3d 61 64 64 72 65 73 73 28 ┆erqfst; while w3:=address(┆
0x2c9a0…2c9c0 61 6e 73 77 65 72 71 66 73 74 29 20 3c 3e 20 77 31 20 64 6f 0a 20 20 20 20 20 20 62 65 67 69 6e ┆answerqfst) <> w1 do begin┆
0x2c9c0…2c9e0 20 20 21 20 73 63 61 6e 20 61 6e 73 77 65 72 20 71 75 65 75 65 20 74 6f 20 66 69 6e 64 20 63 6f ┆ ! scan answer queue to find co┆
0x2c9e0…2ca00 72 72 65 73 70 6f 6e 64 69 6e 67 20 73 65 6e 64 65 72 20 21 0a 20 20 20 00 00 00 00 00 00 00 00 ┆rresponding sender ! ┆
0x2ca00…2ca06 (357,) (0x25c,0x595)
0x2ca06…2ca20 20 20 20 20 20 69 66 20 77 32 20 3d 20 28 77 31 29 2e 63 5f 6d 62 75 66 20 74 ┆ if w2 = (w1).c_mbuf t┆
0x2ca20…2ca40 68 65 6e 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 20 21 20 61 63 74 69 76 61 74 65 20 77 61 ┆hen begin ! activate wa┆
0x2ca40…2ca60 69 74 69 6e 67 20 63 6f 72 6f 75 74 69 6e 65 20 21 0a 20 20 20 20 20 20 20 20 20 20 28 77 31 29 ┆iting coroutine ! (w1)┆
0x2ca60…2ca7e 2e 63 5f 77 30 3a 3d 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 63 6f 72 75 ┆.c_w0:=w0; goto coru┆
0x2ca7e…2ca84 (0x25c,0x596)
0x2ca84…2caa0 5f 66 6f 75 6e 64 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 ┆_found; end; ┆
0x2caa0…2cac0 20 77 31 3a 3d 28 77 31 29 2e 63 5f 6e 65 78 74 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 ┆ w1:=(w1).c_next; end; ┆
0x2cac0…2cae0 20 20 20 77 31 3a 3d 70 68 70 6f 6f 6c 5f 74 6f 70 3b 0a 20 20 20 20 20 20 77 68 69 6c 65 20 77 ┆ w1:=phpool_top; while w┆
0x2cae0…2cafc 31 2d 21 6c 65 6e 67 74 68 28 70 72 6f 63 65 73 73 68 61 6e 64 6c 65 72 29 20 3e 3d ┆1-!length(processhandler) >=┆
0x2cafc…2cb02 (0x25c,0x597)
0x2cb02…2cb20 20 70 68 70 6f 6f 6c 5f 66 73 74 20 64 6f 0a 20 20 20 20 20 20 62 65 67 69 6e 20 20 21 20 ┆ phpool_fst do begin ! ┆
0x2cb20…2cb40 73 63 61 6e 20 70 72 6f 63 65 73 73 20 68 61 6e 64 6c 65 72 73 20 69 6e 20 63 61 73 65 20 6f 66 ┆scan process handlers in case of┆
0x2cb40…2cb60 20 61 20 64 75 6d 6d 79 20 61 6e 73 77 65 72 20 21 0a 20 20 20 20 20 20 20 20 69 66 20 77 32 20 ┆ a dummy answer ! if w2 ┆
0x2cb60…2cb7a 3d 20 28 77 31 29 2e 70 68 5f 64 75 6d 6d 79 6d 65 73 73 20 74 68 65 6e 0a 20 ┆= (w1).ph_dummymess then ┆
0x2cb7a…2cb80 (0x25c,0x598)
0x2cb80…2cba0 20 20 20 20 20 20 20 62 65 67 69 6e 20 20 21 20 74 68 65 20 61 70 70 6c 69 63 61 74 69 6f 6e 20 ┆ begin ! the application ┆
0x2cba0…2cbc0 69 73 20 72 65 6d 6f 76 65 64 2c 20 73 6f 20 72 65 6d 6f 76 65 20 74 65 72 6d 69 6e 61 6c 20 67 ┆is removed, so remove terminal g┆
0x2cbc0…2cbe0 72 6f 75 70 20 21 0a 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 ┆roup ! w0:=0; ┆
0x2cbe0…2cc00 20 20 28 77 31 29 2e 70 68 5f 64 75 6d 6d 79 6d 65 73 73 3a 3d 77 30 3b 00 00 00 00 00 00 00 00 ┆ (w1).ph_dummymess:=w0; ┆
0x2cc00…2cc06 (358,) (0x25c,0x599)
0x2cc06…2cc20 0a 20 20 20 20 20 20 20 20 20 20 77 68 69 6c 65 20 77 32 3a 3d 28 77 31 29 2e ┆ while w2:=(w1).┆
0x2cc20…2cc40 70 68 5f 63 68 69 6c 64 20 3c 3e 20 30 20 64 6f 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e ┆ph_child <> 0 do begin┆
0x2cc40…2cc60 0a 20 20 20 20 20 20 20 20 20 20 20 20 64 69 73 63 6f 6e 6e 65 63 74 28 2e 77 33 2e 2c 77 32 2c ┆ disconnect(.w3.,w2,┆
0x2cc60…2cc7e 77 31 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 72 65 6d 6f 76 65 5f 74 68 28 2e 77 33 ┆w1); remove_th(.w3┆
0x2cc7e…2cc84 (0x25c,0x59a)
0x2cc84…2cca0 2e 2c 77 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 ┆.,w2); end; ┆
0x2cca0…2ccc0 20 20 20 20 72 65 6d 6f 76 65 5f 70 68 28 2e 77 33 2e 2c 77 31 29 3b 0a 20 20 20 20 20 20 20 20 ┆ remove_ph(.w3.,w1); ┆
0x2ccc0…2cce0 20 20 67 6f 74 6f 20 63 65 6e 74 72 61 6c 5f 77 61 69 74 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 ┆ goto central_wait; end┆
0x2cce0…2ccfc 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 67 6f 74 6f 20 63 65 6e 74 ┆; end; goto cent┆
0x2ccfc…2cd02 (0x25c,0x59b)
0x2cd02…2cd20 72 61 6c 5f 77 61 69 74 3b 0a 20 20 20 20 65 6e 64 20 21 20 61 6e 73 77 65 72 20 21 0a 20 ┆ral_wait; end ! answer ! ┆
0x2cd20…2cd40 20 20 20 65 6c 73 65 0a 20 20 20 20 62 65 67 69 6e 20 21 20 6d 65 73 73 61 67 65 20 68 61 73 20 ┆ else begin ! message has ┆
0x2cd40…2cd60 61 72 72 69 76 65 64 20 69 6e 20 65 76 65 6e 74 20 71 75 65 75 65 20 21 0a 20 20 20 20 20 20 69 ┆arrived in event queue ! i┆
0x2cd60…2cd7a 66 20 77 30 3a 3d 28 77 32 29 2e 6d 65 73 73 5f 6f 70 20 3d 20 33 20 74 68 65 ┆f w0:=(w2).mess_op = 3 the┆
0x2cd7a…2cd80 (0x25c,0x59c)
0x2cd80…2cda0 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 20 21 20 69 6e 70 75 74 20 6f 75 74 70 75 74 20 21 0a 20 ┆n begin ! input output ! ┆
0x2cda0…2cdc0 20 69 6f 3a 0a 20 20 20 20 20 20 20 20 66 69 6e 64 5f 70 68 28 2e 77 33 2e 2c 77 30 3a 3d 28 77 ┆ io: find_ph(.w3.,w0:=(w┆
0x2cdc0…2cde0 32 29 2e 6d 65 73 73 5f 72 65 63 65 69 76 65 72 2c 77 30 3a 3d 28 77 32 29 2e 6d 65 73 73 5f 73 ┆2).mess_receiver,w0:=(w2).mess_s┆
0x2cde0…2ce00 65 6e 64 65 72 2c 77 31 29 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 31 00 00 00 00 00 00 00 00 ┆ender,w1); if w1 ┆
0x2ce00…2ce06 (359,) (0x25c,0x59d)
0x2ce06…2ce20 3c 3d 30 20 74 68 65 6e 20 75 6e 69 6e 74 65 6c 28 2e 77 33 2e 2c 77 30 3a 3d ┆<=0 then unintel(.w3.,w0:=┆
0x2ce20…2ce40 2d 32 29 3b 0a 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 31 29 2e 63 5f 6d 62 75 66 ┆-2); if w0:=(w1).c_mbuf┆
0x2ce40…2ce60 3e 3d 30 20 74 68 65 6e 20 67 6f 74 6f 20 77 61 69 74 5f 6e 65 78 74 3b 0a 20 20 20 20 20 20 20 ┆>=0 then goto wait_next; ┆
0x2ce60…2ce7e 20 28 77 31 29 2e 63 5f 77 32 3a 3d 77 32 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 63 ┆ (w1).c_w2:=w2; (w1).c┆
0x2ce7e…2ce84 (0x25c,0x59e)
0x2ce84…2cea0 5f 6d 62 75 66 3a 3d 20 77 32 3b 0a 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 ┆_mbuf:= w2; monitor(┆
0x2cea0…2cec0 32 36 29 3b 20 21 20 67 65 74 20 65 76 65 6e 74 20 21 0a 0a 20 20 20 20 20 20 20 20 67 6f 74 6f ┆26); ! get event ! goto┆
0x2cec0…2cee0 20 63 6f 72 75 5f 66 6f 75 6e 64 3b 0a 20 20 20 20 20 20 65 6e 64 0a 20 20 20 20 20 20 65 6c 73 ┆ coru_found; end els┆
0x2cee0…2cefc 65 0a 20 20 20 20 20 20 69 66 20 77 30 3d 35 20 74 68 65 6e 20 67 6f 74 6f 20 69 6f ┆e if w0=5 then goto io┆
0x2cefc…2cf02 (0x25c,0x59f)
0x2cf02…2cf20 0a 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 69 66 20 77 30 3d 34 20 74 68 65 6e ┆ else if w0=4 then┆
0x2cf20…2cf40 20 67 6f 74 6f 20 69 6f 0a 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 69 66 20 77 30 3d ┆ goto io else if w0=┆
0x2cf40…2cf60 32 20 74 68 65 6e 20 67 6f 74 6f 20 69 6f 0a 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 ┆2 then goto io else ┆
0x2cf60…2cf7a 69 66 20 77 30 3d 30 20 74 68 65 6e 20 67 6f 74 6f 20 69 6f 0a 20 20 20 20 20 ┆if w0=0 then goto io ┆
0x2cf7a…2cf80 (0x25c,0x5a0)
0x2cf80…2cfa0 20 65 6c 73 65 0a 20 20 20 20 20 20 69 66 20 77 30 3d 31 31 30 20 74 68 65 6e 20 67 6f 74 6f 20 ┆ else if w0=110 then goto ┆
0x2cfa0…2cfc0 69 6f 0a 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 69 66 20 77 30 3d 39 20 74 68 65 6e ┆io else if w0=9 then┆
0x2cfc0…2cfe0 0a 20 20 20 20 20 20 62 65 67 69 6e 20 21 20 73 69 6d 75 6c 61 74 65 20 69 6e 70 75 74 20 21 0a ┆ begin ! simulate input ! ┆
0x2cfe0…2d000 20 20 20 20 20 20 20 20 21 20 63 6f 6d 70 75 74 65 20 62 75 66 20 6c 65 00 00 00 00 00 00 00 00 ┆ ! compute buf le ┆
0x2d000…2d006 (360,) (0x25c,0x5a1)
0x2d006…2d020 6e 67 74 68 2c 20 61 76 6f 69 64 20 74 72 75 6e 63 20 65 72 72 6f 72 73 20 21 ┆ngth, avoid trunc errors !┆
0x2d020…2d040 0a 20 20 20 20 20 20 20 20 77 30 3a 3d 28 77 32 29 2e 6d 65 73 73 5f 66 69 72 73 74 3b 0a 20 20 ┆ w0:=(w2).mess_first; ┆
0x2d040…2d060 20 20 20 20 20 20 2d 28 77 30 20 61 73 68 69 66 74 20 2d 31 20 61 73 68 69 66 74 20 31 29 3b 0a ┆ -(w0 ashift -1 ashift 1); ┆
0x2d060…2d07e 20 20 20 20 20 20 20 20 77 30 2b 28 77 32 29 2e 6d 65 73 73 5f 6c 61 73 74 3b 0a 20 20 20 ┆ w0+(w2).mess_last; ┆
0x2d07e…2d084 (0x25c,0x5a2)
0x2d084…2d0a0 20 20 20 20 20 69 66 20 77 30 3c 3d 30 20 74 68 65 6e 20 75 6e 69 6e 74 65 6c 28 2e ┆ if w0<=0 then unintel(.┆
0x2d0a0…2d0c0 77 33 2e 2c 77 30 3a 3d 2d 33 29 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3e 3d 62 75 66 6c ┆w3.,w0:=-3); if w0>=bufl┆
0x2d0c0…2d0e0 20 74 68 65 6e 20 75 6e 69 6e 74 65 6c 28 2e 77 33 2e 2c 77 30 3a 3d 2d 33 29 3b 0a 20 20 20 20 ┆ then unintel(.w3.,w0:=-3); ┆
0x2d0e0…2d0fc 20 20 20 20 62 6c 3a 3d 20 77 30 2b 32 3b 0a 0a 20 20 20 20 20 20 20 20 66 69 6e 64 ┆ bl:= w0+2; find┆
0x2d0fc…2d102 (0x25c,0x5a3)
0x2d102…2d120 5f 70 68 28 2e 77 33 2e 2c 77 30 3a 3d 28 77 32 29 2e 6d 65 73 73 5f 72 65 63 65 69 76 65 ┆_ph(.w3.,w0:=(w2).mess_receive┆
0x2d120…2d140 72 2c 77 30 3a 3d 28 77 32 29 2e 6d 65 73 73 5f 73 65 6e 64 65 72 2c 77 31 29 3b 0a 20 20 20 20 ┆r,w0:=(w2).mess_sender,w1); ┆
0x2d140…2d160 20 20 20 20 69 66 20 77 31 3c 3d 30 20 74 68 65 6e 20 75 6e 69 6e 74 65 6c 28 2e 77 33 2e 2c 77 ┆ if w1<=0 then unintel(.w3.,w┆
0x2d160…2d17a 30 3a 3d 2d 32 29 3b 20 21 20 70 68 20 75 6e 6b 6e 6f 77 6e 20 21 0a 20 20 20 ┆0:=-2); ! ph unknown ! ┆
0x2d17a…2d180 (0x25c,0x5a4)
0x2d180…2d1a0 20 20 20 20 20 70 68 5f 68 65 61 64 3a 3d 20 77 31 3b 0a 0a 20 20 20 20 20 20 20 20 69 66 20 77 ┆ ph_head:= w1; if w┆
0x2d1a0…2d1c0 31 3a 3d 28 77 32 29 2e 6d 65 73 73 5f 66 69 72 73 74 3c 3d 30 20 74 68 65 6e 20 75 6e 69 6e 74 ┆1:=(w2).mess_first<=0 then unint┆
0x2d1c0…2d1e0 65 6c 28 2e 77 33 2e 2c 77 30 3a 3d 2d 33 29 3b 0a 20 20 20 20 20 20 20 20 77 33 3a 3d 20 31 31 ┆el(.w3.,w0:=-3); w3:= 11┆
0x2d1e0…2d200 36 3b 20 77 33 3a 3d 28 77 33 29 2e 77 6f 72 64 3b 20 21 20 6e 6f 20 6f 00 00 00 00 00 00 00 00 ┆6; w3:=(w3).word; ! no o ┆
0x2d200…2d206 (361,) (0x25c,0x5a5)
0x2d206…2d220 66 20 73 74 6f 72 61 67 65 20 62 79 74 65 73 20 21 0a 20 20 20 20 20 20 20 20 ┆f storage bytes ! ┆
0x2d220…2d240 69 66 20 77 33 3c 3d 28 77 32 29 2e 6d 65 73 73 5f 6c 61 73 74 20 74 68 65 6e 20 75 6e 69 6e 74 ┆if w3<=(w2).mess_last then unint┆
0x2d240…2d260 65 6c 28 2e 77 33 2e 2c 77 30 3a 3d 2d 33 29 3b 20 21 20 62 75 66 20 6e 6f 74 20 69 6e 73 69 64 ┆el(.w3.,w0:=-3); ! buf not insid┆
0x2d260…2d27e 65 20 73 74 6f 72 65 20 21 0a 20 20 20 20 20 20 20 20 77 31 3a 3d 61 64 64 72 65 73 73 28 ┆e store ! w1:=address(┆
0x2d27e…2d284 (0x25c,0x5a6)
0x2d284…2d2a0 6c 6f 63 61 6c 69 64 29 3b 0a 20 20 20 20 20 20 20 20 67 63 5f 66 69 72 73 74 3a 3d ┆localid); gc_first:=┆
0x2d2a0…2d2c0 77 31 3b 67 63 5f 6c 61 73 74 3a 3d 77 31 3b 0a 20 20 20 20 20 20 20 20 6c 6f 63 61 6c 69 64 3a ┆w1;gc_last:=w1; localid:┆
0x2d2c0…2d2e0 3d 77 30 3a 3d 2d 31 3b 0a 20 20 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 77 32 3d 62 75 66 66 ┆=w0:=-1; comment w2=buff┆
0x2d2e0…2d2fc 65 72 20 61 64 64 72 65 73 73 3b 0a 20 20 20 20 20 20 20 20 77 31 3a 3d 61 64 64 72 ┆er address; w1:=addr┆
0x2d2fc…2d302 (0x25c,0x5a7)
0x2d302…2d320 65 73 73 28 67 63 5f 66 75 6e 63 29 3b 0a 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 ┆ess(gc_func); monitor(┆
0x2d320…2d340 38 34 29 3b 20 0a 20 20 20 20 20 20 20 20 77 31 3a 3d 70 68 5f 68 65 61 64 2e 70 68 5f 63 68 69 ┆84); w1:=ph_head.ph_chi┆
0x2d340…2d360 6c 64 3b 0a 20 20 20 20 20 20 20 20 77 33 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 77 68 69 6c ┆ld; w3:= 0; whil┆
0x2d360…2d37a 65 20 77 31 3e 77 33 20 64 6f 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 ┆e w1>w3 do begin ┆
0x2d37a…2d380 (0x25c,0x5a8)
0x2d380…2d3a0 20 20 20 20 20 20 20 20 20 77 30 3a 3d 20 6c 6f 63 61 6c 69 64 2d 28 77 31 29 2e 74 68 5f 6c 6f ┆ w0:= localid-(w1).th_lo┆
0x2d3a0…2d3c0 63 61 6c 69 64 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 20 6f 72 20 28 77 31 29 2e 74 ┆calid; if w0 or (w1).t┆
0x2d3c0…2d3e0 68 5f 74 79 70 65 3d 30 20 74 68 65 6e 20 21 20 74 79 70 65 3d 30 20 61 6e 64 20 6c 6f 63 61 6c ┆h_type=0 then ! type=0 and local┆
0x2d3e0…2d400 69 64 20 6f 6b 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 00 00 00 00 00 00 00 00 ┆id ok ! w3:= ┆
0x2d400…2d406 (362,) (0x25c,0x5a9)
0x2d406…2d420 20 77 31 0a 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 20 ┆ w1 else ┆
0x2d420…2d440 20 20 20 20 20 77 31 3a 3d 20 28 77 31 29 2e 74 68 5f 6e 65 78 74 3b 0a 20 20 20 20 20 20 20 20 ┆ w1:= (w1).th_next; ┆
0x2d440…2d460 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 31 3d 30 20 74 68 65 6e 20 75 6e 69 6e 74 65 ┆end; if w1=0 then uninte┆
0x2d460…2d47e 6c 28 2e 77 33 2e 2c 77 30 3a 3d 2d 34 29 3b 20 21 20 74 68 20 75 6e 6b 6e 6f 77 6e 20 21 ┆l(.w3.,w0:=-4); ! th unknown !┆
0x2d47e…2d484 (0x25c,0x5aa)
0x2d484…2d4a0 0a 0a 20 20 20 20 20 20 20 20 70 72 6f 63 64 65 73 63 72 3a 3d 20 77 30 3a 3d 20 28 ┆ procdescr:= w0:= (┆
0x2d4a0…2d4c0 77 31 29 2e 74 68 5f 70 72 6f 63 64 65 73 63 72 3b 0a 20 20 20 20 20 20 20 20 74 79 70 65 3a 3d ┆w1).th_procdescr; type:=┆
0x2d4c0…2d4e0 20 77 30 3a 3d 20 28 77 31 29 2e 74 68 5f 74 79 70 65 3b 0a 20 20 20 20 20 20 20 20 62 75 66 73 ┆ w0:= (w1).th_type; bufs┆
0x2d4e0…2d4fc 3a 3d 20 77 30 3a 3d 20 28 77 31 29 2e 74 68 5f 6d 61 78 62 75 66 3b 0a 20 20 20 20 ┆:= w0:= (w1).th_maxbuf; ┆
0x2d4fc…2d502 (0x25c,0x5ab)
0x2d502…2d520 20 20 20 20 74 69 6d 65 72 73 3a 3d 20 77 30 3a 3d 20 28 77 31 29 2e 74 68 5f 74 69 6d 65 ┆ timers:= w0:= (w1).th_time┆
0x2d520…2d540 72 6d 61 78 3b 0a 20 20 20 20 20 20 20 20 64 69 73 63 6f 6e 6e 65 63 74 28 2e 77 33 2e 2c 77 31 ┆rmax; disconnect(.w3.,w1┆
0x2d540…2d560 2c 77 30 3a 3d 70 68 5f 68 65 61 64 29 3b 0a 20 20 20 20 20 20 20 20 72 65 6d 6f 76 65 5f 74 68 ┆,w0:=ph_head); remove_th┆
0x2d560…2d57a 28 2e 77 33 2e 2c 77 31 29 3b 0a 20 20 20 20 20 20 20 20 63 72 65 61 74 65 5f ┆(.w3.,w1); create_┆
0x2d57a…2d580 (0x25c,0x5ac)
0x2d580…2d5a0 74 68 28 2e 77 33 2e 2c 77 31 2c 77 33 3a 3d 70 72 6f 63 64 65 73 63 72 2c 77 33 3a 3d 74 79 70 ┆th(.w3.,w1,w3:=procdescr,w3:=typ┆
0x2d5a0…2d5c0 65 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 6c ┆e, w3:=l┆
0x2d5c0…2d5e0 6f 63 61 6c 69 64 2c 77 33 2c 3d 62 75 66 73 2c 77 33 2c 3d 74 69 6d 65 72 73 2c 77 33 3a 3d 30 ┆ocalid,w3,=bufs,w3,=timers,w3:=0┆
0x2d5e0…2d600 2c 77 33 3a 3d 30 29 3b 0a 20 20 20 20 20 20 20 20 63 6f 6e 6e 65 63 74 00 00 00 00 00 00 00 00 ┆,w3:=0); connect ┆
0x2d600…2d606 (363,) (0x25c,0x5ad)
0x2d606…2d620 28 2e 77 33 2e 2c 77 31 2c 77 33 3a 3d 70 68 5f 68 65 61 64 29 3b 0a 20 20 20 ┆(.w3.,w1,w3:=ph_head); ┆
0x2d620…2d640 20 20 20 20 20 28 77 31 29 2e 74 68 5f 75 73 65 64 62 75 66 3a 3d 20 77 30 3a 3d 20 31 3b 0a 20 ┆ (w1).th_usedbuf:= w0:= 1; ┆
0x2d640…2d660 20 20 20 20 20 20 20 70 75 74 5f 6f 70 28 2e 77 33 2e 2c 77 30 3a 3d 62 6c 2b 21 70 6f 73 69 74 ┆ put_op(.w3.,w0:=bl+!posit┆
0x2d660…2d67e 69 6f 6e 28 62 75 66 5f 6c 6f 63 61 6c 69 64 29 2c 77 31 2c 77 32 3a 3d 77 31 29 3b 0a 20 ┆ion(buf_localid),w1,w2:=w1); ┆
0x2d67e…2d684 (0x25c,0x5ae)
0x2d684…2d6a0 20 20 20 20 20 20 20 28 77 31 29 2e 62 75 66 6d 5f 6f 70 3a 3d 20 77 30 3a 3d 20 39 ┆ (w1).bufm_op:= w0:= 9┆
0x2d6a0…2d6c0 3b 20 28 77 31 29 2e 62 75 66 6d 5f 6d 6f 64 65 3a 3d 20 77 30 3a 3d 20 30 3b 0a 20 20 20 20 20 ┆; (w1).bufm_mode:= w0:= 0; ┆
0x2d6c0…2d6e0 20 20 20 28 77 31 29 2e 62 75 66 5f 62 79 74 65 73 3a 3d 20 77 30 3a 3d 20 62 6c 3b 0a 20 20 20 ┆ (w1).buf_bytes:= w0:= bl; ┆
0x2d6e0…2d6fc 20 20 20 20 20 77 32 3a 3d 20 61 64 64 72 65 73 73 28 28 77 31 29 2e 62 75 66 5f 6c ┆ w2:= address((w1).buf_l┆
0x2d6fc…2d702 (0x25c,0x5af)
0x2d702…2d720 6f 63 61 6c 69 64 29 3b 0a 20 20 20 20 20 20 20 20 67 63 5f 66 69 72 73 74 3a 3d 77 32 3b ┆ocalid); gc_first:=w2;┆
0x2d720…2d740 0a 20 20 20 20 20 20 20 20 77 32 2b 77 30 2d 32 3b 0a 20 20 20 20 20 20 20 20 67 63 5f 6c 61 73 ┆ w2+w0-2; gc_las┆
0x2d740…2d760 74 3a 3d 77 32 3b 0a 20 20 20 20 20 20 20 20 77 31 3a 3d 61 64 64 72 65 73 73 28 67 63 5f 66 75 ┆t:=w2; w1:=address(gc_fu┆
0x2d760…2d77a 6e 63 29 3b 0a 20 20 20 20 20 20 20 20 77 32 3a 3d 65 76 65 6e 74 3b 0a 20 20 ┆nc); w2:=event; ┆
0x2d77a…2d780 (0x25c,0x5b0)
0x2d780…2d7a0 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 38 34 29 3b 20 21 20 67 65 6e 65 72 61 6c 20 63 6f 70 ┆ monitor(84); ! general cop┆
0x2d7a0…2d7c0 79 20 21 0a 20 20 20 20 20 20 20 20 61 6e 73 5f 62 79 74 65 73 3a 3d 20 77 31 3b 0a 20 20 20 20 ┆y ! ans_bytes:= w1; ┆
0x2d7c0…2d7e0 20 20 20 20 61 6e 73 5f 63 68 61 72 73 3a 3d 20 77 31 2b 28 77 32 3a 3d 77 31 20 61 73 68 69 66 ┆ ans_chars:= w1+(w2:=w1 ashif┆
0x2d7e0…2d800 74 20 2d 31 29 3b 0a 20 20 20 20 20 20 65 6e 64 20 21 20 73 69 6d 75 6c 00 00 00 00 00 00 00 00 ┆t -1); end ! simul ┆
0x2d800…2d806 (364,) (0x25c,0x5b1)
0x2d806…2d820 61 74 65 20 69 6e 70 75 74 20 21 0a 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 ┆ate input ! else ┆
0x2d820…2d840 20 20 20 69 66 20 77 30 3d 39 30 20 74 68 65 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 20 21 20 63 ┆ if w0=90 then begin ! c┆
0x2d840…2d860 72 65 61 74 65 20 70 6f 6f 6c 20 21 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 32 29 ┆reate pool ! if w0:=(w2)┆
0x2d860…2d87e 2e 63 6d 5f 6d 6f 64 65 3c 3e 30 20 74 68 65 6e 20 75 6e 69 6e 74 65 6c 28 2e 77 33 2e 2c ┆.cm_mode<>0 then unintel(.w3.,┆
0x2d87e…2d884 (0x25c,0x5b2)
0x2d884…2d8a0 77 30 3a 3d 2d 33 29 3b 0a 20 20 20 20 20 20 20 20 66 69 6e 64 5f 70 68 28 2e 77 33 ┆w0:=-3); find_ph(.w3┆
0x2d8a0…2d8c0 2e 2c 77 30 3a 3d 2d 31 2c 77 30 2c 77 31 29 3b 20 21 20 66 69 6e 64 20 66 72 65 65 20 70 68 20 ┆.,w0:=-1,w0,w1); ! find free ph ┆
0x2d8c0…2d8e0 21 0a 20 20 20 20 20 20 20 20 69 66 20 77 31 3d 30 20 74 68 65 6e 20 75 6e 69 6e 74 65 6c 28 2e ┆! if w1=0 then unintel(.┆
0x2d8e0…2d8fc 77 33 2e 2c 77 30 3a 3d 38 27 30 31 30 30 29 3b 0a 20 20 20 20 20 20 20 20 2d 28 77 ┆w3.,w0:=8'0100); -(w┆
0x2d8fc…2d902 (0x25c,0x5b3)
0x2d902…2d920 31 29 3b 0a 20 20 20 20 20 20 20 20 70 68 5f 68 65 61 64 3a 3d 20 77 31 3b 0a 20 20 20 20 ┆1); ph_head:= w1; ┆
0x2d920…2d940 20 20 20 20 77 31 3a 3d 20 61 64 64 72 65 73 73 28 28 77 32 29 2e 63 6d 5f 6e 61 6d 65 29 3b 0a ┆ w1:= address((w2).cm_name); ┆
0x2d940…2d960 20 20 20 20 20 20 20 20 6d 6f 76 65 28 2e 77 33 2e 2c 77 30 3a 3d 38 2c 77 31 2c 77 32 3a 3d 61 ┆ move(.w3.,w0:=8,w1,w2:=a┆
0x2d960…2d97a 64 64 72 65 73 73 28 78 6e 61 6d 65 31 29 29 3b 0a 20 20 20 20 20 20 20 20 63 ┆ddress(xname1)); c┆
0x2d97a…2d980 (0x25c,0x5b4)
0x2d980…2d9a0 72 65 61 74 65 5f 70 68 28 2e 77 33 2e 2c 77 30 3a 3d 70 68 5f 68 65 61 64 2c 77 32 2c 77 30 3a ┆reate_ph(.w3.,w0:=ph_head,w2,w0:┆
0x2d9a0…2d9c0 3d 28 77 32 3a 3d 65 76 65 6e 74 29 2e 63 6d 5f 73 65 6e 64 65 72 2c 77 30 29 3b 0a 20 20 20 20 ┆=(w2:=event).cm_sender,w0); ┆
0x2d9c0…2d9e0 20 20 20 20 69 66 20 77 30 3d 30 20 74 68 65 6e 20 75 6e 69 6e 74 65 6c 28 2e 77 33 2e 2c 77 30 ┆ if w0=0 then unintel(.w3.,w0┆
0x2d9e0…2da00 3a 3d 38 27 32 30 30 30 29 3b 0a 20 20 20 20 20 20 65 6e 64 20 21 20 63 00 00 00 00 00 00 00 00 ┆:=8'2000); end ! c ┆
0x2da00…2da06 (365,) (0x25c,0x5b5)
0x2da06…2da20 72 65 61 74 65 20 70 6f 6f 6c 20 21 0a 20 20 20 20 20 20 65 6c 73 65 0a 20 20 ┆reate pool ! else ┆
0x2da20…2da40 20 20 20 20 69 66 20 77 30 3d 39 32 20 74 68 65 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 20 21 20 ┆ if w0=92 then begin ! ┆
0x2da40…2da60 72 65 6d 6f 76 65 20 70 6f 6f 6c 20 21 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 32 ┆remove pool ! if w0:=(w2┆
0x2da60…2da7e 29 2e 63 6d 5f 6d 6f 64 65 3c 3e 30 20 74 68 65 6e 20 75 6e 69 6e 74 65 6c 28 2e 77 33 2e ┆).cm_mode<>0 then unintel(.w3.┆
0x2da7e…2da84 (0x25c,0x5b6)
0x2da84…2daa0 2c 77 30 3a 3d 2d 33 29 3b 0a 20 20 20 20 20 20 20 20 6d 6f 76 65 28 2e 77 33 2e 2c ┆,w0:=-3); move(.w3.,┆
0x2daa0…2dac0 77 30 3a 3d 38 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 28 77 32 29 2e 63 6d 5f 6e 61 6d 65 29 2c ┆w0:=8,w1:=address((w2).cm_name),┆
0x2dac0…2dae0 77 32 3a 3d 61 64 64 72 65 73 73 28 78 6e 61 6d 65 31 29 29 3b 0a 20 20 20 20 20 20 20 20 77 32 ┆w2:=address(xname1)); w2┆
0x2dae0…2dafc 3a 3d 20 65 76 65 6e 74 3b 0a 20 20 20 20 20 20 20 20 77 33 3a 3d 20 61 64 64 72 65 ┆:= event; w3:= addre┆
0x2dafc…2db02 (0x25c,0x5b7)
0x2db02…2db20 73 73 28 78 6e 61 6d 65 31 29 3b 0a 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 34 29 ┆ss(xname1); monitor(4)┆
0x2db20…2db40 3b 20 21 20 6c 6f 6f 6b 75 70 20 70 72 6f 63 65 73 73 20 21 0a 20 20 20 20 20 20 20 20 66 69 6e ┆; ! lookup process ! fin┆
0x2db40…2db60 64 5f 70 68 28 2e 77 33 2e 2c 77 30 2c 77 30 3a 3d 28 77 32 29 2e 63 6d 5f 73 65 6e 64 65 72 2c ┆d_ph(.w3.,w0,w0:=(w2).cm_sender,┆
0x2db60…2db7a 77 31 29 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 31 3c 3d 30 20 74 68 65 6e ┆w1); if w1<=0 then┆
0x2db7a…2db80 (0x25c,0x5b8)
0x2db80…2dba0 20 75 6e 69 6e 74 65 6c 28 2e 77 33 2e 2c 77 30 3a 3d 38 27 30 34 30 30 29 3b 0a 0a 20 20 20 20 ┆ unintel(.w3.,w0:=8'0400); ┆
0x2dba0…2dbc0 20 20 20 20 77 68 69 6c 65 20 77 32 3a 3d 28 77 31 29 2e 70 68 5f 63 68 69 6c 64 3c 3e 30 20 64 ┆ while w2:=(w1).ph_child<>0 d┆
0x2dbc0…2dbe0 6f 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 64 69 73 63 6f 6e ┆o begin discon┆
0x2dbe0…2dc00 6e 65 63 74 28 2e 77 33 2e 2c 77 32 2c 77 31 29 3b 0a 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆nect(.w3.,w2,w1); ┆
0x2dc00…2dc06 (366,) (0x25c,0x5b9)
0x2dc06…2dc20 20 20 20 20 72 65 6d 6f 76 65 5f 74 68 28 2e 77 33 2e 2c 77 32 29 3b 0a 20 20 ┆ remove_th(.w3.,w2); ┆
0x2dc20…2dc40 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 72 65 6d 6f 76 65 5f 70 68 28 2e 77 33 ┆ end; remove_ph(.w3┆
0x2dc40…2dc60 2e 2c 77 31 29 3b 0a 20 20 20 20 20 20 65 6e 64 20 21 20 72 65 6d 6f 76 65 20 70 6f 6f 6c 20 21 ┆.,w1); end ! remove pool !┆
0x2dc60…2dc7e 0a 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 69 66 20 77 30 3d 39 34 20 74 68 65 ┆ else if w0=94 the┆
0x2dc7e…2dc84 (0x25c,0x5ba)
0x2dc84…2dca0 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 20 21 20 6c 6f 6f 6b 75 70 20 70 6f 6f 6c 20 ┆n begin ! lookup pool ┆
0x2dca0…2dcc0 21 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 20 28 77 32 29 2e 63 6d 5f 6d 6f 64 65 3c 3e ┆! if w0:= (w2).cm_mode<>┆
0x2dcc0…2dce0 30 20 74 68 65 6e 20 75 6e 69 6e 74 65 6c 28 2e 77 33 2e 2c 77 30 3a 3d 2d 33 29 3b 0a 20 20 20 ┆0 then unintel(.w3.,w0:=-3); ┆
0x2dce0…2dcfc 20 20 20 20 20 6d 6f 76 65 28 2e 77 33 2e 2c 77 30 3a 3d 38 2c 77 31 3a 3d 61 64 64 ┆ move(.w3.,w0:=8,w1:=add┆
0x2dcfc…2dd02 (0x25c,0x5bb)
0x2dd02…2dd20 72 65 73 73 28 28 77 32 29 2e 63 6d 5f 6e 61 6d 65 29 2c 77 32 3a 3d 61 64 64 72 65 73 73 ┆ress((w2).cm_name),w2:=address┆
0x2dd20…2dd40 28 78 6e 61 6d 65 31 29 29 3b 0a 20 20 20 20 20 20 20 20 77 32 3a 3d 20 65 76 65 6e 74 3b 0a 20 ┆(xname1)); w2:= event; ┆
0x2dd40…2dd60 20 20 20 20 20 20 20 77 33 3a 3d 20 61 64 64 72 65 73 73 28 78 6e 61 6d 65 31 29 3b 0a 20 20 20 ┆ w3:= address(xname1); ┆
0x2dd60…2dd7a 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 34 29 3b 20 21 20 6c 6f 6f 6b 75 70 20 ┆ monitor(4); ! lookup ┆
0x2dd7a…2dd80 (0x25c,0x5bc)
0x2dd80…2dda0 70 72 6f 63 65 73 73 20 21 0a 20 20 20 20 20 20 20 20 66 69 6e 64 5f 70 68 28 2e 77 33 2e 2c 77 ┆process ! find_ph(.w3.,w┆
0x2dda0…2ddc0 30 2c 77 30 3a 3d 28 77 32 29 2e 63 6d 5f 73 65 6e 64 65 72 2c 77 31 29 3b 0a 20 20 20 20 20 20 ┆0,w0:=(w2).cm_sender,w1); ┆
0x2ddc0…2dde0 20 20 69 66 20 77 31 3c 3d 30 20 74 68 65 6e 20 75 6e 69 6e 74 65 6c 28 2e 77 33 2e 2c 77 30 3a ┆ if w1<=0 then unintel(.w3.,w0:┆
0x2dde0…2de00 3d 38 27 30 34 30 30 29 3b 0a 20 20 20 20 20 20 20 20 77 32 3a 3d 20 77 00 00 00 00 00 00 00 00 ┆=8'0400); w2:= w ┆
0x2de00…2de06 (367,) (0x25c,0x5bd)
0x2de06…2de20 31 3b 0a 20 20 20 20 20 20 20 20 77 31 3a 3d 20 61 64 64 72 65 73 73 28 61 6e ┆1; w1:= address(an┆
0x2de20…2de40 73 5f 73 74 61 74 75 73 29 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 63 61 5f 72 65 63 66 75 ┆s_status); (w1).ca_recfu┆
0x2de40…2de60 6c 6c 3a 3d 20 77 30 3a 3d 20 28 77 33 3a 3d 28 77 32 29 2e 61 5f 72 65 63 66 75 6c 6c 29 2e 73 ┆ll:= w0:= (w3:=(w2).a_recfull).s┆
0x2de60…2de7e 65 6d 5f 76 61 6c 75 65 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 63 61 5f 62 79 74 65 ┆em_value; (w1).ca_byte┆
0x2de7e…2de84 (0x25c,0x5be)
0x2de84…2dea0 73 66 72 65 65 3a 3d 20 77 30 3a 3d 20 28 77 33 3a 3d 28 77 32 29 2e 61 5f 62 79 74 ┆sfree:= w0:= (w3:=(w2).a_byt┆
0x2dea0…2dec0 65 73 66 72 65 65 29 2e 73 65 6d 5f 76 61 6c 75 65 3b 0a 20 20 20 20 20 20 65 6e 64 20 21 20 6c ┆esfree).sem_value; end ! l┆
0x2dec0…2dee0 6f 6f 6b 75 70 20 70 6f 6f 6c 20 21 0a 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 69 66 ┆ookup pool ! else if┆
0x2dee0…2defc 20 77 30 3d 31 30 30 20 74 68 65 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 20 21 20 63 ┆ w0=100 then begin ! c┆
0x2defc…2df02 (0x25c,0x5bf)
0x2df02…2df20 72 65 61 74 65 20 6c 69 6e 6b 20 21 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 ┆reate link ! if w0:=(w┆
0x2df20…2df40 32 29 2e 63 6d 5f 6d 6f 64 65 20 61 6e 64 20 38 27 37 37 37 31 3c 3e 30 20 74 68 65 6e 0a 20 20 ┆2).cm_mode and 8'7771<>0 then ┆
0x2df40…2df60 20 20 20 20 20 20 75 6e 69 6e 74 65 6c 28 2e 77 33 2e 2c 77 30 3a 3d 2d 33 29 3b 0a 20 20 20 20 ┆ unintel(.w3.,w0:=-3); ┆
0x2df60…2df7a 20 20 20 20 21 20 6c 6f 6f 6b 75 70 20 70 72 6f 63 65 73 73 20 64 65 73 63 72 ┆ ! lookup process descr┆
0x2df7a…2df80 (0x25c,0x5c0)
0x2df80…2dfa0 69 70 74 69 6f 6e 20 66 6f 72 20 64 65 76 69 63 65 20 21 0a 20 20 20 20 20 20 20 20 69 66 20 77 ┆iption for device ! if w┆
0x2dfa0…2dfc0 31 3a 3d 28 77 32 29 2e 63 6d 5f 74 70 64 61 3c 3d 30 20 74 68 65 6e 20 75 6e 69 6e 74 65 6c 28 ┆1:=(w2).cm_tpda<=0 then unintel(┆
0x2dfc0…2dfe0 2e 77 33 2e 2c 77 30 3a 3d 2d 33 29 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 31 3e 63 75 72 72 ┆.w3.,w0:=-3); if w1>curr┆
0x2dfe0…2e000 65 6e 74 20 74 68 65 6e 20 75 6e 69 6e 74 65 6c 28 2e 77 33 2e 2c 77 30 00 00 00 00 00 00 00 00 ┆ent then unintel(.w3.,w0 ┆
0x2e000…2e006 (368,) (0x25c,0x5c1)
0x2e006…2e020 3a 3d 2d 33 29 3b 20 21 20 61 64 64 72 65 73 73 20 6e 6f 74 20 69 6e 20 6d 6f ┆:=-3); ! address not in mo┆
0x2e020…2e040 6e 69 74 6f 72 20 21 0a 20 20 20 20 20 20 20 20 6d 6f 76 65 28 2e 77 33 2e 2c 77 30 3a 3d 38 2c ┆nitor ! move(.w3.,w0:=8,┆
0x2e040…2e060 77 31 2b 32 2c 77 32 3a 3d 20 61 64 64 72 65 73 73 28 78 6e 61 6d 65 31 29 29 3b 0a 20 20 20 20 ┆w1+2,w2:= address(xname1)); ┆
0x2e060…2e07e 20 20 20 20 77 32 3a 3d 20 65 76 65 6e 74 3b 0a 20 20 20 20 20 20 20 20 77 33 3a 3d 20 61 ┆ w2:= event; w3:= a┆
0x2e07e…2e084 (0x25c,0x5c2)
0x2e084…2e0a0 64 64 72 65 73 73 28 78 6e 61 6d 65 31 29 3b 0a 20 20 20 20 20 20 20 20 6d 6f 6e 69 ┆ddress(xname1); moni┆
0x2e0a0…2e0c0 74 6f 72 28 34 29 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3c 3e 28 77 32 29 2e 63 6d 5f 74 ┆tor(4); if w0<>(w2).cm_t┆
0x2e0c0…2e0e0 70 64 61 20 74 68 65 6e 20 75 6e 69 6e 74 65 6c 28 2e 77 33 2e 2c 77 30 3a 3d 38 27 30 30 30 34 ┆pda then unintel(.w3.,w0:=8'0004┆
0x2e0e0…2e0fc 29 3b 20 21 20 64 65 76 2e 20 75 6e 6b 6e 6f 77 6e 21 0a 20 20 20 20 20 20 20 20 66 ┆); ! dev. unknown! f┆
0x2e0fc…2e102 (0x25c,0x5c3)
0x2e102…2e120 69 6e 64 5f 70 68 28 2e 77 33 2e 2c 77 30 3a 3d 28 77 32 29 2e 63 6d 5f 72 65 63 65 69 76 ┆ind_ph(.w3.,w0:=(w2).cm_receiv┆
0x2e120…2e140 65 72 2c 77 30 3a 3d 28 77 32 29 2e 63 6d 5f 73 65 6e 64 65 72 2c 77 31 29 3b 0a 20 20 20 20 20 ┆er,w0:=(w2).cm_sender,w1); ┆
0x2e140…2e160 20 20 20 69 66 20 77 31 3c 3d 30 20 74 68 65 6e 20 75 6e 69 6e 74 65 6c 28 2e 77 33 2e 2c 77 30 ┆ if w1<=0 then unintel(.w3.,w0┆
0x2e160…2e17a 3a 3d 38 27 30 34 30 30 29 3b 20 21 20 70 68 20 64 6f 6e 74 20 65 78 69 73 74 ┆:=8'0400); ! ph dont exist┆
0x2e17a…2e180 (0x25c,0x5c4)
0x2e180…2e1a0 20 21 0a 20 20 20 20 20 20 20 20 70 68 5f 68 65 61 64 3a 3d 20 77 31 3b 0a 0a 20 20 20 20 20 20 ┆ ! ph_head:= w1; ┆
0x2e1a0…2e1c0 20 20 21 20 72 65 6a 65 63 74 20 69 66 20 6c 69 6e 6b 20 69 73 20 6b 6e 6f 77 6e 20 61 6c 6c 72 ┆ ! reject if link is known allr┆
0x2e1c0…2e1e0 65 61 64 79 20 6f 72 20 69 66 20 6e 6f 20 66 72 65 65 20 74 68 20 65 78 69 73 74 20 21 0a 20 20 ┆eady or if no free th exist ! ┆
0x2e1e0…2e200 20 20 20 20 20 20 77 33 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 77 31 00 00 00 00 00 00 00 00 ┆ w3:= 0; w1 ┆
0x2e200…2e206 (369,) (0x25c,0x5c5)
0x2e206…2e220 3a 3d 20 74 68 70 6f 6f 6c 5f 74 6f 70 3b 0a 20 20 20 20 20 20 20 20 77 68 69 ┆:= thpool_top; whi┆
0x2e220…2e240 6c 65 20 77 31 2d 21 6c 65 6e 67 74 68 28 74 65 72 6d 69 6e 61 6c 68 61 6e 64 6c 65 72 29 3e 3d ┆le w1-!length(terminalhandler)>=┆
0x2e240…2e260 74 68 70 6f 6f 6c 5f 66 73 74 20 64 6f 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 ┆thpool_fst do begin ┆
0x2e260…2e27e 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 31 29 2e 74 68 5f 70 72 6f 63 64 65 73 63 72 ┆ if w0:=(w1).th_procdescr┆
0x2e27e…2e284 (0x25c,0x5c6)
0x2e284…2e2a0 3d 28 77 32 29 2e 63 6d 5f 74 70 64 61 20 74 68 65 6e 20 75 6e 69 6e 74 65 6c 28 2e ┆=(w2).cm_tpda then unintel(.┆
0x2e2a0…2e2c0 77 33 2e 2c 77 30 3a 3d 38 27 30 30 32 30 29 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 ┆w3.,w0:=8'0020); if w0┆
0x2e2c0…2e2e0 3d 30 20 74 68 65 6e 20 77 33 3a 3d 20 77 31 20 21 20 66 72 65 65 20 74 68 20 21 0a 20 20 20 20 ┆=0 then w3:= w1 ! free th ! ┆
0x2e2e0…2e2fc 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 ┆ else begin ┆
0x2e2fc…2e302 (0x25c,0x5c7)
0x2e302…2e320 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 31 29 2e 74 68 5f 70 61 72 65 ┆ if w0:=(w1).th_pare┆
0x2e320…2e340 6e 74 3d 70 68 5f 68 65 61 64 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 ┆nt=ph_head then if w┆
0x2e340…2e360 30 3a 3d 28 77 31 29 2e 74 68 5f 6c 6f 63 61 6c 69 64 3d 28 77 32 29 2e 63 6d 5f 6c 6f 63 61 6c ┆0:=(w1).th_localid=(w2).cm_local┆
0x2e360…2e37a 69 64 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 75 6e 69 6e ┆id then unin┆
0x2e37a…2e380 (0x25c,0x5c8)
0x2e380…2e3a0 74 65 6c 28 2e 77 33 2e 2c 77 30 3a 3d 38 27 31 30 30 30 29 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆tel(.w3.,w0:=8'1000); ┆
0x2e3a0…2e3c0 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 33 3d ┆end; end; if w3=┆
0x2e3c0…2e3e0 30 20 74 68 65 6e 20 75 6e 69 6e 74 65 6c 28 2e 77 33 2e 2c 77 30 3a 3d 38 27 30 30 34 30 29 3b ┆0 then unintel(.w3.,w0:=8'0040);┆
0x2e3e0…2e400 0a 0a 20 20 20 20 20 20 20 20 21 20 63 72 65 61 74 69 6f 6e 20 69 73 20 00 00 00 00 00 00 00 00 ┆ ! creation is ┆
0x2e400…2e406 (370,) (0x25c,0x5c9)
0x2e406…2e420 70 6f 73 73 69 62 6c 65 20 21 0a 20 20 20 20 20 20 20 20 77 30 3a 3d 20 77 33 ┆possible ! w0:= w3┆
0x2e420…2e440 3b 0a 20 20 20 20 20 20 20 20 63 72 65 61 74 65 5f 74 68 28 2e 77 33 2e 2c 77 33 2c 77 33 3a 3d ┆; create_th(.w3.,w3,w3:=┆
0x2e440…2e460 28 77 32 29 2e 63 6d 5f 74 70 64 61 2c 77 33 3a 3d 28 77 32 29 2e 63 6d 5f 6d 6f 64 65 2c 0a 20 ┆(w2).cm_tpda,w3:=(w2).cm_mode, ┆
0x2e460…2e47e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 28 77 32 29 2e 63 6d 5f 6c ┆ w3:=(w2).cm_l┆
0x2e47e…2e484 (0x25c,0x5ca)
0x2e484…2e4a0 6f 63 61 6c 69 64 2c 77 33 2c 3d 28 77 32 29 2e 63 6d 5f 62 75 66 73 2c 77 33 2c 3d ┆ocalid,w3,=(w2).cm_bufs,w3,=┆
0x2e4a0…2e4c0 28 77 32 29 2e 63 6d 5f 74 69 6d 65 72 73 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆(w2).cm_timers, ┆
0x2e4c0…2e4e0 20 20 77 33 3a 3d 28 77 32 29 2e 63 6d 5f 6d 61 73 6b 2c 77 33 3a 3d 28 77 32 29 2e 63 6d 5f 73 ┆ w3:=(w2).cm_mask,w3:=(w2).cm_s┆
0x2e4e0…2e4fc 75 62 73 74 29 3b 0a 20 20 20 20 20 20 20 20 63 6f 6e 6e 65 63 74 28 2e 77 33 2e 2c ┆ubst); connect(.w3.,┆
0x2e4fc…2e502 (0x25c,0x5cb)
0x2e502…2e520 77 30 2c 77 31 3a 3d 70 68 5f 68 65 61 64 29 3b 0a 20 20 20 20 20 20 65 6e 64 20 21 20 63 ┆w0,w1:=ph_head); end ! c┆
0x2e520…2e540 72 65 61 74 65 20 6c 69 6e 6b 20 21 0a 0a 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 69 ┆reate link ! else i┆
0x2e540…2e560 66 20 77 30 3d 31 30 32 20 74 68 65 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 20 21 20 72 65 6d 6f ┆f w0=102 then begin ! remo┆
0x2e560…2e57a 76 65 20 6c 69 6e 6b 20 21 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 ┆ve link ! if w0:=(┆
0x2e57a…2e580 (0x25c,0x5cc)
0x2e580…2e5a0 77 32 29 2e 63 6d 5f 6d 6f 64 65 20 61 73 68 69 66 74 20 2d 31 3c 3e 30 20 74 68 65 6e 20 75 6e ┆w2).cm_mode ashift -1<>0 then un┆
0x2e5a0…2e5c0 69 6e 74 65 6c 28 2e 77 33 2e 2c 77 30 3a 3d 2d 33 29 3b 0a 20 20 20 20 20 20 20 20 66 69 6e 64 ┆intel(.w3.,w0:=-3); find┆
0x2e5c0…2e5e0 5f 70 68 28 2e 77 33 2e 2c 77 30 3a 3d 28 77 32 29 2e 63 6d 5f 72 65 63 65 69 76 65 72 2c 77 30 ┆_ph(.w3.,w0:=(w2).cm_receiver,w0┆
0x2e5e0…2e600 3a 3d 28 77 32 29 2e 63 6d 5f 73 65 6e 64 65 72 2c 77 31 29 3b 0a 20 20 00 00 00 00 00 00 00 00 ┆:=(w2).cm_sender,w1); ┆
0x2e600…2e606 (371,) (0x25c,0x5cd)
0x2e606…2e620 20 20 20 20 20 20 69 66 20 77 31 3c 3d 30 20 74 68 65 6e 20 75 6e 69 6e 74 65 ┆ if w1<=0 then uninte┆
0x2e620…2e640 6c 28 2e 77 33 2e 2c 77 30 3a 3d 38 27 30 34 30 30 29 3b 0a 20 20 20 20 20 20 20 20 70 68 5f 68 ┆l(.w3.,w0:=8'0400); ph_h┆
0x2e640…2e660 65 61 64 3a 3d 20 77 31 3b 0a 0a 20 20 20 20 20 20 20 20 77 31 3a 3d 20 28 77 31 29 2e 70 68 5f ┆ead:= w1; w1:= (w1).ph_┆
0x2e660…2e67e 63 68 69 6c 64 3b 0a 20 20 20 20 20 20 20 20 77 33 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 ┆child; w3:= 0; ┆
0x2e67e…2e684 (0x25c,0x5ce)
0x2e684…2e6a0 20 77 68 69 6c 65 20 77 31 3e 77 33 20 64 6f 0a 20 20 20 20 20 20 20 20 62 65 67 69 ┆ while w1>w3 do begi┆
0x2e6a0…2e6c0 6e 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 31 29 2e 74 68 5f 6c 6f 63 61 6c ┆n if w0:=(w1).th_local┆
0x2e6c0…2e6e0 69 64 3d 28 77 32 29 2e 63 6d 5f 6c 6f 63 61 6c 69 64 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 ┆id=(w2).cm_localid then ┆
0x2e6e0…2e6fc 20 20 20 20 77 33 3a 3d 20 77 31 0a 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 0a 20 ┆ w3:= w1 else ┆
0x2e6fc…2e702 (0x25c,0x5cf)
0x2e702…2e720 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 20 28 77 31 29 2e 74 68 5f 6e 65 78 74 3b 0a ┆ w1:= (w1).th_next; ┆
0x2e720…2e740 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 31 3d 30 20 74 68 65 ┆ end; if w1=0 the┆
0x2e740…2e760 6e 20 75 6e 69 6e 74 65 6c 28 2e 77 33 2e 2c 77 30 3a 3d 38 27 30 32 30 30 29 3b 20 21 20 74 68 ┆n unintel(.w3.,w0:=8'0200); ! th┆
0x2e760…2e77a 20 75 6e 6b 6e 6f 77 6e 20 21 0a 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3a ┆ unknown ! if w0:┆
0x2e77a…2e780 (0x25c,0x5d0)
0x2e780…2e7a0 3d 28 77 32 29 2e 63 6d 5f 6d 6f 64 65 3d 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 62 65 67 ┆=(w2).cm_mode=0 then beg┆
0x2e7a0…2e7c0 69 6e 20 21 20 73 6f 66 74 20 72 65 6d 6f 76 65 20 21 0a 20 20 20 20 20 20 20 20 20 20 64 69 73 ┆in ! soft remove ! dis┆
0x2e7c0…2e7e0 63 6f 6e 6e 65 63 74 28 2e 77 33 2e 2c 77 31 2c 77 30 3a 3d 70 68 5f 68 65 61 64 29 3b 0a 20 20 ┆connect(.w3.,w1,w0:=ph_head); ┆
0x2e7e0…2e800 20 20 20 20 20 20 20 20 70 75 74 5f 6f 70 28 2e 77 33 2e 2c 77 30 3a 3d 00 00 00 00 00 00 00 00 ┆ put_op(.w3.,w0:= ┆
0x2e800…2e806 (372,) (0x25c,0x5d1)
0x2e806…2e820 32 2c 77 31 2c 77 32 3a 3d 77 31 29 3b 0a 20 20 20 20 20 20 20 20 20 20 28 77 ┆2,w1,w2:=w1); (w┆
0x2e820…2e840 31 29 2e 62 75 66 6d 5f 6f 70 3a 3d 20 77 30 3a 3d 20 2d 31 3b 20 28 77 31 29 2e 62 75 66 6d 5f ┆1).bufm_op:= w0:= -1; (w1).bufm_┆
0x2e840…2e860 6d 6f 64 65 3a 3d 20 77 30 3a 3d 20 32 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 0a 20 20 20 20 20 ┆mode:= w0:= 2; end ┆
0x2e860…2e87e 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 21 20 68 61 72 64 20 72 ┆ else begin ! hard r┆
0x2e87e…2e884 (0x25c,0x5d2)
0x2e884…2e8a0 65 6d 6f 76 65 20 21 0a 20 20 20 20 20 20 20 20 20 20 64 69 73 63 6f 6e 6e 65 63 74 ┆emove ! disconnect┆
0x2e8a0…2e8c0 28 2e 77 33 2e 2c 77 31 2c 77 30 3a 3d 70 68 5f 68 65 61 64 29 3b 0a 20 20 20 20 20 20 20 20 20 ┆(.w3.,w1,w0:=ph_head); ┆
0x2e8c0…2e8e0 20 72 65 6d 6f 76 65 5f 74 68 28 2e 77 33 2e 2c 77 31 29 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 ┆ remove_th(.w3.,w1); end┆
0x2e8e0…2e8fc 3b 0a 20 20 20 20 20 20 65 6e 64 20 21 20 72 65 6d 6f 76 65 20 6c 69 6e 6b 20 21 0a ┆; end ! remove link ! ┆
0x2e8fc…2e902 (0x25c,0x5d3)
0x2e902…2e920 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 69 66 20 77 30 3d 31 30 34 20 74 68 65 ┆ else if w0=104 the┆
0x2e920…2e940 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 20 21 20 6c 6f 6f 6b 75 70 20 6c 69 6e 6b 20 21 0a 20 20 ┆n begin ! lookup link ! ┆
0x2e940…2e960 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 32 29 2e 63 6d 5f 6d 6f 64 65 3c 3e 30 20 74 68 65 ┆ if w0:=(w2).cm_mode<>0 the┆
0x2e960…2e97a 6e 20 75 6e 69 6e 74 65 6c 28 2e 77 33 2e 2c 77 30 3a 3d 2d 33 29 3b 0a 20 20 ┆n unintel(.w3.,w0:=-3); ┆
0x2e97a…2e980 (0x25c,0x5d4)
0x2e980…2e9a0 20 20 20 20 20 20 66 69 6e 64 5f 70 68 28 2e 77 33 2e 2c 77 30 3a 3d 28 77 32 29 2e 63 6d 5f 72 ┆ find_ph(.w3.,w0:=(w2).cm_r┆
0x2e9a0…2e9c0 65 63 65 69 76 65 72 2c 77 30 3a 3d 28 77 32 29 2e 63 6d 5f 73 65 6e 64 65 72 2c 77 31 29 3b 0a ┆eceiver,w0:=(w2).cm_sender,w1); ┆
0x2e9c0…2e9e0 20 20 20 20 20 20 20 20 69 66 20 77 31 3c 3d 30 20 74 68 65 6e 20 75 6e 69 6e 74 65 6c 28 2e 77 ┆ if w1<=0 then unintel(.w┆
0x2e9e0…2ea00 33 2e 2c 77 30 3a 3d 38 27 30 34 30 30 29 3b 0a 0a 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆3.,w0:=8'0400); ┆
0x2ea00…2ea06 (373,) (0x25c,0x5d5)
0x2ea06…2ea20 20 77 31 3a 3d 20 28 77 31 29 2e 70 68 5f 63 68 69 6c 64 3b 0a 20 20 20 20 20 ┆ w1:= (w1).ph_child; ┆
0x2ea20…2ea40 20 20 20 77 33 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 77 68 69 6c 65 20 77 31 3e 77 33 20 64 ┆ w3:= 0; while w1>w3 d┆
0x2ea40…2ea60 6f 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3a ┆o begin if w0:┆
0x2ea60…2ea7e 3d 28 77 31 29 2e 74 68 5f 6c 6f 63 61 6c 69 64 3d 28 77 32 29 2e 63 6d 5f 6c 6f 63 61 6c ┆=(w1).th_localid=(w2).cm_local┆
0x2ea7e…2ea84 (0x25c,0x5d6)
0x2ea84…2eaa0 69 64 20 74 68 65 6e 20 77 33 3a 3d 20 77 31 0a 20 20 20 20 20 20 20 20 20 20 65 6c ┆id then w3:= w1 el┆
0x2eaa0…2eac0 73 65 20 77 31 3a 3d 28 77 31 29 2e 74 68 5f 6e 65 78 74 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 ┆se w1:=(w1).th_next; end┆
0x2eac0…2eae0 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 31 3d 30 20 74 68 65 6e 20 75 6e 69 6e 74 65 6c 28 2e ┆; if w1=0 then unintel(.┆
0x2eae0…2eafc 77 33 2e 2c 77 30 3a 3d 38 27 30 32 30 30 29 3b 20 21 20 74 68 20 75 6e 6b 6e 6f 77 ┆w3.,w0:=8'0200); ! th unknow┆
0x2eafc…2eb02 (0x25c,0x5d7)
0x2eb02…2eb20 6e 20 21 0a 0a 20 20 67 65 6e 5f 61 6e 73 77 65 72 3a 0a 20 20 20 20 20 20 20 20 77 33 3a ┆n ! gen_answer: w3:┆
0x2eb20…2eb40 3d 20 77 31 3b 0a 20 20 20 20 20 20 20 20 77 31 3a 3d 20 61 64 64 72 65 73 73 28 61 6e 73 5f 73 ┆= w1; w1:= address(ans_s┆
0x2eb40…2eb60 74 61 74 75 73 29 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 63 61 5f 6c 6f 63 61 6c 69 64 3a ┆tatus); (w1).ca_localid:┆
0x2eb60…2eb7a 3d 20 77 30 3a 3d 20 28 77 33 29 2e 74 68 5f 6c 6f 63 61 6c 69 64 3b 0a 20 20 ┆= w0:= (w3).th_localid; ┆
0x2eb7a…2eb80 (0x25c,0x5d8)
0x2eb80…2eba0 20 20 20 20 20 20 28 77 31 29 2e 63 61 5f 74 70 64 61 3a 3d 20 77 30 3a 3d 20 28 77 33 29 2e 74 ┆ (w1).ca_tpda:= w0:= (w3).t┆
0x2eba0…2ebc0 68 5f 70 72 6f 63 64 65 73 63 72 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 63 61 5f 62 75 66 ┆h_procdescr; (w1).ca_buf┆
0x2ebc0…2ebe0 73 3a 3d 20 77 30 3a 3d 20 28 77 33 29 2e 74 68 5f 6d 61 78 62 75 66 73 3b 0a 20 20 20 20 20 20 ┆s:= w0:= (w3).th_maxbufs; ┆
0x2ebe0…2ec00 20 20 28 77 31 29 2e 63 61 5f 74 69 6d 65 72 73 3a 3d 20 77 30 3a 3d 20 00 00 00 00 00 00 00 00 ┆ (w1).ca_timers:= w0:= ┆
0x2ec00…2ec06 (374,) (0x25c,0x5d9)
0x2ec06…2ec20 28 77 33 29 2e 74 68 5f 74 69 6d 65 72 6d 61 78 3b 0a 20 20 20 20 20 20 20 20 ┆(w3).th_timermax; ┆
0x2ec20…2ec40 69 66 20 77 32 3a 3d 28 77 33 29 2e 74 68 5f 70 61 72 65 6e 74 3c 3e 30 20 74 68 65 6e 0a 20 20 ┆if w2:=(w3).th_parent<>0 then ┆
0x2ec40…2ec60 20 20 20 20 20 20 28 77 31 29 2e 63 61 5f 70 6f 6f 6c 3a 3d 20 77 30 3a 3d 20 28 77 32 29 2e 70 ┆ (w1).ca_pool:= w0:= (w2).p┆
0x2ec60…2ec7e 68 5f 70 73 70 72 6f 63 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 63 61 5f 72 65 63 66 ┆h_psproc; (w1).ca_recf┆
0x2ec7e…2ec84 (0x25c,0x5da)
0x2ec84…2eca0 75 6c 6c 3a 3d 20 77 30 3a 3d 20 28 77 32 3a 3d 28 77 33 29 2e 61 5f 72 65 63 66 75 ┆ull:= w0:= (w2:=(w3).a_recfu┆
0x2eca0…2ecc0 6c 6c 29 2e 73 65 6d 5f 76 61 6c 75 65 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 63 61 5f 62 ┆ll).sem_value; (w1).ca_b┆
0x2ecc0…2ece0 79 74 65 73 66 72 65 65 3a 3d 20 77 30 3a 3d 20 28 77 32 3a 3d 28 77 33 29 2e 61 5f 62 79 74 65 ┆ytesfree:= w0:= (w2:=(w3).a_byte┆
0x2ece0…2ecfc 73 66 72 65 65 29 2e 73 65 6d 5f 76 61 6c 75 65 3b 0a 20 20 20 20 20 20 65 6e 64 20 ┆sfree).sem_value; end ┆
0x2ecfc…2ed02 (0x25c,0x5db)
0x2ed02…2ed20 21 20 6c 6f 6f 6b 75 70 20 6c 69 6e 6b 20 21 0a 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 ┆! lookup link ! else ┆
0x2ed20…2ed40 20 20 20 69 66 20 77 30 3d 31 30 36 20 74 68 65 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 20 21 20 ┆ if w0=106 then begin ! ┆
0x2ed40…2ed60 6c 6f 6f 6b 75 70 20 74 65 72 6d 20 21 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 32 ┆lookup term ! if w0:=(w2┆
0x2ed60…2ed7a 29 2e 63 6d 5f 6d 6f 64 65 3c 3e 30 20 74 68 65 6e 20 75 6e 69 6e 74 65 6c 28 ┆).cm_mode<>0 then unintel(┆
0x2ed7a…2ed80 (0x25c,0x5dc)
0x2ed80…2eda0 2e 77 33 2e 2c 77 30 3a 3d 2d 33 29 3b 0a 20 20 20 20 20 20 20 20 21 20 6c 6f 6f 6b 75 70 20 70 ┆.w3.,w0:=-3); ! lookup p┆
0x2eda0…2edc0 72 6f 63 65 73 73 20 64 65 73 63 72 69 70 74 69 6f 6e 20 66 6f 72 20 64 65 76 69 63 65 20 21 0a ┆rocess description for device ! ┆
0x2edc0…2ede0 20 20 20 20 20 20 20 20 69 66 20 77 31 3a 3d 28 77 32 29 2e 63 6d 5f 74 70 64 61 3c 3d 30 20 74 ┆ if w1:=(w2).cm_tpda<=0 t┆
0x2ede0…2ee00 68 65 6e 20 75 6e 69 6e 74 65 6c 28 2e 77 33 2e 2c 77 30 3a 3d 2d 33 29 00 00 00 00 00 00 00 00 ┆hen unintel(.w3.,w0:=-3) ┆
0x2ee00…2ee06 (375,) (0x25c,0x5dd)
0x2ee06…2ee20 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 31 3e 63 75 72 72 65 6e 74 20 74 68 ┆; if w1>current th┆
0x2ee20…2ee40 65 6e 20 75 6e 69 6e 74 65 6c 28 2e 77 33 2e 2c 77 30 3a 3d 30 29 3b 0a 20 20 20 20 20 20 20 20 ┆en unintel(.w3.,w0:=0); ┆
0x2ee40…2ee60 6d 6f 76 65 28 2e 77 33 2e 2c 77 30 3a 3d 38 2c 77 31 2b 32 2c 77 32 3a 3d 61 64 64 72 65 73 73 ┆move(.w3.,w0:=8,w1+2,w2:=address┆
0x2ee60…2ee7e 28 78 6e 61 6d 65 31 29 29 3b 0a 20 20 20 20 20 20 20 20 77 33 3a 3d 61 64 64 72 65 73 73 ┆(xname1)); w3:=address┆
0x2ee7e…2ee84 (0x25c,0x5de)
0x2ee84…2eea0 28 78 6e 61 6d 65 31 29 3b 0a 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 34 29 ┆(xname1); monitor(4)┆
0x2eea0…2eec0 3b 0a 20 20 20 20 20 20 20 20 77 32 3a 3d 20 65 76 65 6e 74 3b 0a 20 20 20 20 20 20 20 20 69 66 ┆; w2:= event; if┆
0x2eec0…2eee0 20 77 30 3c 3e 28 77 32 29 2e 63 6d 5f 74 70 64 61 20 74 68 65 6e 20 75 6e 69 6e 74 65 6c 28 2e ┆ w0<>(w2).cm_tpda then unintel(.┆
0x2eee0…2eefc 77 33 2e 2c 77 30 3a 3d 38 27 30 30 30 34 29 3b 20 21 20 64 65 76 69 63 65 20 75 6e ┆w3.,w0:=8'0004); ! device un┆
0x2eefc…2ef02 (0x25c,0x5df)
0x2ef02…2ef20 6b 6e 6f 77 6e 20 21 0a 0a 20 20 20 20 20 20 20 20 77 30 3a 3d 20 28 77 32 29 2e 63 6d 5f ┆known ! w0:= (w2).cm_┆
0x2ef20…2ef40 74 70 64 61 3b 0a 20 20 20 20 20 20 20 20 77 31 3a 3d 20 74 68 70 6f 6f 6c 5f 66 73 74 3b 0a 20 ┆tpda; w1:= thpool_fst; ┆
0x2ef40…2ef60 20 20 20 20 20 20 20 77 33 3a 3d 20 74 68 70 6f 6f 6c 5f 74 6f 70 3b 0a 20 20 20 20 20 20 20 20 ┆ w3:= thpool_top; ┆
0x2ef60…2ef7a 77 68 69 6c 65 20 77 31 3c 77 33 20 64 6f 0a 20 20 20 20 20 20 20 20 62 65 67 ┆while w1<w3 do beg┆
0x2ef7a…2ef80 (0x25c,0x5e0)
0x2ef80…2efa0 69 6e 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3d 28 77 31 29 2e 74 68 5f 70 72 6f 63 64 ┆in if w0=(w1).th_procd┆
0x2efa0…2efc0 65 73 63 72 20 74 68 65 6e 20 77 33 3a 3d 20 77 31 0a 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 ┆escr then w3:= w1 else┆
0x2efc0…2efe0 20 77 31 2b 21 6c 65 6e 67 74 68 28 74 65 72 6d 69 6e 61 6c 68 61 6e 64 6c 65 72 29 3b 0a 20 20 ┆ w1+!length(terminalhandler); ┆
0x2efe0…2f000 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 31 00 00 00 00 00 00 00 00 ┆ end; if w1 ┆
0x2f000…2f006 (376,) (0x25c,0x5e1)
0x2f006…2f020 3d 74 68 70 6f 6f 6c 5f 74 6f 70 20 74 68 65 6e 20 75 6e 69 6e 74 65 6c 28 2e ┆=thpool_top then unintel(.┆
0x2f020…2f040 77 33 2e 2c 77 30 3a 3d 38 27 30 32 30 30 29 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d ┆w3.,w0:=8'0200); if w0:=┆
0x2f040…2f060 28 77 33 3a 3d 28 77 31 29 2e 74 68 5f 70 61 72 65 6e 74 29 2e 70 68 5f 70 61 72 65 6e 74 20 3c ┆(w3:=(w1).th_parent).ph_parent <┆
0x2f060…2f07e 3e 20 28 77 32 29 2e 63 6d 5f 73 65 6e 64 65 72 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 ┆> (w2).cm_sender then ┆
0x2f07e…2f084 (0x25c,0x5e2)
0x2f084…2f0a0 20 20 20 75 6e 69 6e 74 65 6c 28 2e 77 33 2e 2c 77 30 3a 3d 38 27 30 30 32 30 29 3b ┆ unintel(.w3.,w0:=8'0020);┆
0x2f0a0…2f0c0 0a 0a 20 20 20 20 20 20 20 20 67 6f 74 6f 20 67 65 6e 5f 61 6e 73 77 65 72 3b 0a 20 20 20 20 20 ┆ goto gen_answer; ┆
0x2f0c0…2f0e0 20 65 6e 64 20 21 20 6c 6f 6f 6b 75 70 20 74 65 72 6d 20 21 0a 20 20 20 20 20 20 65 6c 73 65 0a ┆ end ! lookup term ! else ┆
0x2f0e0…2f0fc 20 20 20 20 20 20 62 65 67 69 6e 20 21 20 6f 70 65 72 61 74 69 6f 6e 20 69 6c 6c 65 ┆ begin ! operation ille┆
0x2f0fc…2f102 (0x25c,0x5e3)
0x2f102…2f120 67 61 6c 20 21 0a 20 20 20 20 20 20 20 20 75 6e 69 6e 74 65 6c 28 2e 77 33 2e 2c 77 30 3a ┆gal ! unintel(.w3.,w0:┆
0x2f120…2f140 3d 30 29 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 0a 0a 20 20 20 20 20 20 21 20 6e 6f 72 6d 61 6c ┆=0); end; ! normal┆
0x2f140…2f160 20 61 6e 73 77 65 72 20 21 0a 20 20 20 20 20 20 77 32 3a 3d 20 65 76 65 6e 74 3b 0a 20 20 20 20 ┆ answer ! w2:= event; ┆
0x2f160…2f17a 20 20 6d 6f 6e 69 74 6f 72 28 32 36 29 3b 20 21 20 67 65 74 20 65 76 65 6e 74 ┆ monitor(26); ! get event┆
0x2f17a…2f180 (0x25c,0x5e4)
0x2f180…2f1a0 20 21 0a 20 20 20 20 20 20 61 6e 73 5f 73 74 61 74 75 73 3a 3d 20 77 30 3a 3d 20 30 3b 0a 20 20 ┆ ! ans_status:= w0:= 0; ┆
0x2f1a0…2f1c0 20 20 20 20 77 30 3a 3d 20 31 3b 0a 20 20 20 20 20 20 77 31 3a 3d 20 61 64 64 72 65 73 73 28 61 ┆ w0:= 1; w1:= address(a┆
0x2f1c0…2f1e0 6e 73 5f 73 74 61 74 75 73 29 3b 0a 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 32 32 29 3b 20 21 ┆ns_status); monitor(22); !┆
0x2f1e0…2f200 20 73 65 6e 64 20 61 6e 73 77 65 72 20 21 0a 20 20 20 20 20 20 74 65 73 00 00 00 00 00 00 00 00 ┆ send answer ! tes ┆
0x2f200…2f206 (377,) (0x25c,0x5e5)
0x2f206…2f220 74 6f 75 74 28 2e 77 33 2e 2c 77 30 3a 3d 36 2c 77 31 2c 77 32 3a 3d 36 31 29 ┆tout(.w3.,w0:=6,w1,w2:=61)┆
0x2f220…2f240 3b 0a 20 20 20 20 20 20 67 6f 74 6f 20 61 63 74 69 76 61 74 65 0a 0a 20 20 20 20 65 6e 64 3b 20 ┆; goto activate end; ┆
0x2f240…2f260 21 20 6d 65 73 73 61 67 65 20 21 0a 20 20 63 6f 72 75 5f 66 6f 75 6e 64 3a 0a 20 20 20 20 6c 69 ┆! message ! coru_found: li┆
0x2f260…2f27e 6e 6b 28 2e 77 33 2e 2c 77 31 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 61 63 74 69 76 71 66 ┆nk(.w3.,w1,w2:=address(activqf┆
0x2f27e…2f284 (0x25c,0x5e6)
0x2f284…2f2a0 73 74 29 29 3b 0a 20 20 61 63 74 69 76 61 74 65 3a 0a 20 20 20 20 77 31 3a 3d 61 64 ┆st)); activate: w1:=ad┆
0x2f2a0…2f2c0 64 72 65 73 73 28 61 63 74 69 76 71 66 73 74 29 3b 0a 20 20 20 20 69 66 20 77 33 3a 3d 28 77 31 ┆dress(activqfst); if w3:=(w1┆
0x2f2c0…2f2e0 29 2e 63 5f 6e 65 78 74 3d 77 31 20 74 68 65 6e 20 67 6f 74 6f 20 63 65 6e 74 72 61 6c 5f 77 61 ┆).c_next=w1 then goto central_wa┆
0x2f2e0…2f2fc 69 74 3b 0a 20 20 20 20 63 75 72 72 65 6e 74 3a 3d 20 77 33 3b 0a 20 20 20 20 74 65 ┆it; current:= w3; te┆
0x2f2fc…2f302 (0x25c,0x5e7)
0x2f302…2f320 73 74 6f 75 74 28 2e 77 33 2e 2c 77 30 3a 3d 21 6c 65 6e 67 74 68 28 74 65 72 6d 69 6e 61 ┆stout(.w3.,w0:=!length(termina┆
0x2f320…2f340 6c 68 61 6e 64 6c 65 72 29 2c 77 31 3a 3d 63 75 72 72 65 6e 74 2c 77 32 3a 3d 31 31 29 3b 0a 20 ┆lhandler),w1:=current,w2:=11); ┆
0x2f340…2f360 20 20 20 77 30 3a 3d 20 28 77 33 29 2e 63 5f 77 30 3b 0a 20 20 20 20 77 31 3a 3d 20 28 77 33 29 ┆ w0:= (w3).c_w0; w1:= (w3)┆
0x2f360…2f37a 2e 63 5f 77 31 3b 0a 20 20 20 20 77 32 3a 3d 20 28 77 33 29 2e 63 5f 77 32 3b ┆.c_w1; w2:= (w3).c_w2;┆
0x2f37a…2f380 (0x25c,0x5e8)
0x2f380…2f3a0 0a 20 20 20 20 63 61 6c 6c 20 77 30 20 63 75 72 72 65 6e 74 2e 63 5f 69 63 3b 0a 20 20 65 6e 64 ┆ call w0 current.c_ic; end┆
0x2f3a0…2f3c0 3b 20 21 20 6d 61 69 6e 20 70 72 6f 67 72 61 6d 20 21 0a 0a 0a 0a 0a 20 20 62 6f 64 79 20 6f 66 ┆; ! main program ! body of┆
0x2f3c0…2f3e0 20 77 61 69 74 6d 65 73 73 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 69 6e 63 6f 64 65 0a 20 20 20 ┆ waitmess begin incode ┆
0x2f3e0…2f400 20 20 20 72 65 66 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 62 65 67 69 6e 00 00 00 00 00 00 00 00 ┆ ref return; begin ┆
0x2f400…2f406 (378,) (0x25c,0x5e9)
0x2f406…2f420 0a 20 20 20 20 20 20 72 65 74 75 72 6e 3a 3d 77 33 3b 0a 20 20 20 20 20 20 77 ┆ return:=w3; w┆
0x2f420…2f440 33 3a 3d 62 2e 63 75 72 72 65 6e 74 3b 0a 20 20 20 20 20 20 28 77 33 29 2e 63 5f 77 30 3a 3d 77 ┆3:=b.current; (w3).c_w0:=w┆
0x2f440…2f460 30 3b 0a 20 20 20 20 20 20 28 77 33 29 2e 63 5f 77 31 3a 3d 77 31 3b 0a 20 20 20 20 20 20 28 77 ┆0; (w3).c_w1:=w1; (w┆
0x2f460…2f47e 33 29 2e 63 5f 69 63 3a 3d 77 30 3a 3d 72 65 74 75 72 6e 3b 0a 20 20 20 20 20 20 77 30 3a ┆3).c_ic:=w0:=return; w0:┆
0x2f47e…2f484 (0x25c,0x5ea)
0x2f484…2f4a0 3d 20 2d 31 3b 20 28 77 33 29 2e 63 5f 6d 62 75 66 3a 3d 20 77 30 3b 0a 20 20 20 20 ┆= -1; (w3).c_mbuf:= w0; ┆
0x2f4a0…2f4c0 20 20 6c 69 6e 6b 28 2e 77 33 2e 2c 77 31 3a 3d 77 33 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 62 ┆ link(.w3.,w1:=w3,w2:=address(b┆
0x2f4c0…2f4e0 2e 77 61 69 74 71 66 73 74 29 29 3b 0a 20 20 20 20 20 20 74 65 73 74 6f 75 74 28 2e 77 33 2e 2c ┆.waitqfst)); testout(.w3.,┆
0x2f4e0…2f4fc 77 30 3a 3d 21 6c 65 6e 67 74 68 28 63 6f 72 6f 75 74 69 6e 65 29 2c 77 31 2c 77 32 ┆w0:=!length(coroutine),w1,w2┆
0x2f4fc…2f502 (0x25c,0x5eb)
0x2f502…2f520 3a 3d 36 32 29 3b 0a 20 20 20 20 20 20 67 6f 74 6f 20 62 2e 61 63 74 69 76 61 74 65 3b 0a ┆:=62); goto b.activate; ┆
0x2f520…2f540 20 20 20 20 65 6e 64 3b 0a 20 20 65 6e 64 3b 20 20 21 20 77 61 69 74 6d 65 73 73 20 21 0a 0a 0a ┆ end; end; ! waitmess ! ┆
0x2f540…2f560 0a 20 20 62 6f 64 79 20 6f 66 20 73 65 6e 64 77 61 69 74 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 ┆ body of sendwait begin ┆
0x2f560…2f57a 69 6e 63 6f 64 65 0a 20 20 20 20 20 20 72 65 66 20 72 65 74 75 72 6e 3b 0a 20 ┆incode ref return; ┆
0x2f57a…2f580 (0x25c,0x5ec)
0x2f580…2f5a0 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 72 65 74 75 72 6e 3a 3d 77 33 3b 0a 20 20 20 20 20 ┆ begin return:=w3; ┆
0x2f5a0…2f5c0 20 77 33 3a 3d 62 2e 63 75 72 72 65 6e 74 3b 0a 20 20 20 20 20 20 28 77 33 29 2e 63 5f 77 31 3a ┆ w3:=b.current; (w3).c_w1:┆
0x2f5c0…2f5e0 3d 77 31 3b 0a 20 20 20 20 20 20 28 77 33 29 2e 63 5f 77 32 3a 3d 77 32 3b 0a 20 20 20 20 20 20 ┆=w1; (w3).c_w2:=w2; ┆
0x2f5e0…2f600 77 33 3a 3d 77 32 3b 0a 20 20 20 20 20 20 77 32 3a 3d 28 77 32 3a 3d 62 00 00 00 00 00 00 00 00 ┆w3:=w2; w2:=(w2:=b ┆
0x2f600…2f606 (379,) (0x25c,0x5ed)
0x2f606…2f620 2e 63 75 72 72 65 6e 74 29 2e 63 5f 6e 72 3b 0a 20 20 20 20 20 20 6d 6f 6e 69 ┆.current).c_nr; moni┆
0x2f620…2f640 74 6f 72 28 31 36 29 3b 20 20 21 20 73 65 6e 64 20 6d 65 73 73 61 67 65 20 21 0a 20 20 20 20 20 ┆tor(16); ! send message ! ┆
0x2f640…2f660 20 77 31 3a 3d 62 2e 63 75 72 72 65 6e 74 3b 0a 20 20 20 20 20 20 28 77 31 29 2e 63 5f 6d 62 75 ┆ w1:=b.current; (w1).c_mbu┆
0x2f660…2f67e 66 3a 3d 77 32 3b 0a 20 20 20 20 20 20 28 77 31 29 2e 63 5f 69 63 3a 3d 77 30 3a 3d 72 65 ┆f:=w2; (w1).c_ic:=w0:=re┆
0x2f67e…2f684 (0x25c,0x5ee)
0x2f684…2f6a0 74 75 72 6e 3b 0a 20 20 20 20 20 20 6c 69 6e 6b 28 2e 77 33 2e 2c 77 31 2c 77 32 3a ┆turn; link(.w3.,w1,w2:┆
0x2f6a0…2f6c0 3d 61 64 64 72 65 73 73 28 62 2e 61 6e 73 77 65 72 71 66 73 74 29 29 3b 0a 20 20 20 20 20 20 74 ┆=address(b.answerqfst)); t┆
0x2f6c0…2f6e0 65 73 74 6f 75 74 28 2e 77 33 2e 2c 77 30 3a 3d 38 2c 77 31 3a 3d 28 77 33 29 2e 63 5f 77 31 2c ┆estout(.w3.,w0:=8,w1:=(w3).c_w1,┆
0x2f6e0…2f6fc 77 32 3a 3d 36 33 29 3b 0a 20 20 20 20 20 20 67 6f 74 6f 20 62 2e 61 63 74 69 76 61 ┆w2:=63); goto b.activa┆
0x2f6fc…2f702 (0x25c,0x5ef)
0x2f702…2f720 74 65 3b 0a 20 20 20 20 65 6e 64 3b 0a 20 20 65 6e 64 3b 20 20 21 20 73 65 6e 64 77 61 69 ┆te; end; end; ! sendwai┆
0x2f720…2f740 74 20 21 0a 0a 0a 0a 20 20 62 6f 64 79 20 6f 66 20 6f 70 65 6e 0a 20 20 62 65 67 69 6e 0a 20 20 ┆t ! body of open begin ┆
0x2f740…2f760 20 20 6c 61 62 65 6c 20 65 78 69 74 3b 0a 20 20 20 20 69 6e 63 6f 64 65 0a 20 20 20 20 20 20 64 ┆ label exit; incode d┆
0x2f760…2f77a 6f 75 62 6c 65 20 73 61 76 65 66 31 3b 0a 20 20 20 20 20 20 77 6f 72 64 20 73 ┆ouble savef1; word s┆
0x2f77a…2f780 (0x25c,0x5f0)
0x2f780…2f7a0 61 76 65 77 32 3b 0a 20 20 20 20 20 20 72 65 66 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 62 65 67 ┆avew2; ref return; beg┆
0x2f7a0…2f7c0 69 6e 0a 20 20 20 20 20 20 73 61 76 65 66 31 3a 3d 66 31 3b 0a 20 20 20 20 20 20 73 61 76 65 77 ┆in savef1:=f1; savew┆
0x2f7c0…2f7e0 32 3a 3d 77 32 3b 0a 20 20 20 20 20 20 72 65 74 75 72 6e 3a 3d 77 33 3b 0a 20 20 20 20 20 20 28 ┆2:=w2; return:=w3; (┆
0x2f7e0…2f800 77 32 29 2e 73 65 6d 5f 76 61 6c 75 65 3a 3d 77 30 2b 28 77 32 29 2e 73 00 00 00 00 00 00 00 00 ┆w2).sem_value:=w0+(w2).s ┆
0x2f800…2f806 (380,) (0x25c,0x5f1)
0x2f806…2f820 65 6d 5f 76 61 6c 75 65 3b 0a 20 20 20 20 20 20 77 68 69 6c 65 20 77 31 3a 3d ┆em_value; while w1:=┆
0x2f820…2f840 28 77 32 29 2e 73 65 6d 5f 6e 65 78 74 20 3c 3e 20 77 32 20 64 6f 0a 20 20 20 20 20 20 62 65 67 ┆(w2).sem_next <> w2 do beg┆
0x2f840…2f860 69 6e 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 31 29 2e 63 5f 77 30 20 3e 20 28 77 ┆in if w0:=(w1).c_w0 > (w┆
0x2f860…2f87e 32 29 2e 73 65 6d 5f 76 61 6c 75 65 20 74 68 65 6e 20 67 6f 74 6f 20 65 78 69 74 3b 0a 20 ┆2).sem_value then goto exit; ┆
0x2f87e…2f884 (0x25c,0x5f2)
0x2f884…2f8a0 20 20 20 20 20 20 20 28 77 32 29 2e 73 65 6d 5f 76 61 6c 75 65 3a 3d 77 33 3a 3d 28 ┆ (w2).sem_value:=w3:=(┆
0x2f8a0…2f8c0 77 32 29 2e 73 65 6d 5f 76 61 6c 75 65 2d 77 30 3b 0a 20 20 20 20 20 20 20 20 6c 69 6e 6b 28 2e ┆w2).sem_value-w0; link(.┆
0x2f8c0…2f8e0 77 33 2e 2c 77 31 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 62 2e 61 63 74 69 76 71 66 73 74 29 29 ┆w3.,w1,w2:=address(b.activqfst))┆
0x2f8e0…2f8fc 3b 0a 20 20 20 20 20 20 20 20 77 32 3a 3d 73 61 76 65 77 32 3b 0a 20 20 20 20 20 20 ┆; w2:=savew2; ┆
0x2f8fc…2f902 (0x25c,0x5f3)
0x2f902…2f920 65 6e 64 3b 0a 65 78 69 74 3a 0a 20 20 20 20 20 20 66 31 3a 3d 73 61 76 65 66 31 3b 0a 20 ┆end; exit: f1:=savef1; ┆
0x2f920…2f940 20 20 20 20 20 69 66 20 77 30 20 3e 20 30 20 74 68 65 6e 20 74 65 73 74 6f 75 74 28 2e 77 33 2e ┆ if w0 > 0 then testout(.w3.┆
0x2f940…2f960 2c 77 30 3a 3d 36 2c 77 31 3a 3d 73 61 76 65 77 32 2c 77 32 3a 3d 31 33 29 3b 0a 20 20 20 20 20 ┆,w0:=6,w1:=savew2,w2:=13); ┆
0x2f960…2f97a 20 66 31 3a 3d 73 61 76 65 66 31 3b 0a 20 20 20 20 20 20 77 32 3a 3d 73 61 76 ┆ f1:=savef1; w2:=sav┆
0x2f97a…2f980 (0x25c,0x5f4)
0x2f980…2f9a0 65 77 32 3b 0a 20 20 20 20 20 20 77 33 3a 3d 62 2e 63 75 72 72 65 6e 74 3b 0a 20 20 20 20 20 20 ┆ew2; w3:=b.current; ┆
0x2f9a0…2f9c0 63 61 6c 6c 20 77 30 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 65 6e 64 3b 0a 20 20 65 6e 64 3b 20 ┆call w0 return; end; end; ┆
0x2f9c0…2f9e0 20 21 20 6f 70 65 6e 20 21 0a 0a 0a 0a 20 20 62 6f 64 79 20 6f 66 20 6c 6f 63 6b 0a 20 20 62 65 ┆ ! open ! body of lock be┆
0x2f9e0…2fa00 67 69 6e 0a 20 20 20 20 69 6e 63 6f 64 65 0a 20 20 20 20 20 20 72 65 66 00 00 00 00 00 00 00 00 ┆gin incode ref ┆
0x2fa00…2fa06 (381,) (0x25c,0x5f5)
0x2fa06…2fa20 20 73 61 76 65 77 33 3b 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 73 ┆ savew3; begin s┆
0x2fa20…2fa40 61 76 65 77 33 3a 3d 77 33 3b 0a 20 20 20 20 20 20 77 33 3a 3d 62 2e 63 75 72 72 65 6e 74 3b 0a ┆avew3:=w3; w3:=b.current; ┆
0x2fa40…2fa60 20 20 20 20 20 20 28 77 33 29 2e 63 5f 77 30 3a 3d 77 30 3b 0a 20 20 20 20 20 20 28 77 33 29 2e ┆ (w3).c_w0:=w0; (w3).┆
0x2fa60…2fa7e 63 5f 77 31 3a 3d 77 31 3b 0a 20 20 20 20 20 20 28 77 33 29 2e 63 5f 77 32 3a 3d 77 32 3b ┆c_w1:=w1; (w3).c_w2:=w2;┆
0x2fa7e…2fa84 (0x25c,0x5f6)
0x2fa84…2faa0 0a 20 20 20 20 20 20 28 77 33 29 2e 63 5f 69 63 3a 3d 77 30 3a 3d 73 61 76 65 77 33 ┆ (w3).c_ic:=w0:=savew3┆
0x2faa0…2fac0 3b 0a 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 33 29 2e 63 5f 6e 72 20 3c 20 30 20 74 68 65 ┆; if w0:=(w3).c_nr < 0 the┆
0x2fac0…2fae0 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 20 20 21 20 63 61 6c 6c 65 64 20 66 72 6f 6d 20 63 65 6e ┆n begin ! called from cen┆
0x2fae0…2fafc 74 72 61 6c 20 6c 6f 67 69 63 20 21 0a 20 20 20 20 20 20 20 20 28 77 32 29 2e 73 65 ┆tral logic ! (w2).se┆
0x2fafc…2fb02 (0x25c,0x5f7)
0x2fb02…2fb20 6d 5f 76 61 6c 75 65 3a 3d 77 31 3a 3d 28 77 32 29 2e 73 65 6d 5f 76 61 6c 75 65 2d 28 77 ┆m_value:=w1:=(w2).sem_value-(w┆
0x2fb20…2fb40 33 29 2e 63 5f 77 30 3b 0a 20 20 20 20 20 20 20 20 77 31 3a 3d 28 77 33 29 2e 63 5f 77 31 3b 0a ┆3).c_w0; w1:=(w3).c_w1; ┆
0x2fb40…2fb60 20 20 20 20 20 20 20 20 63 61 6c 6c 20 77 30 20 28 77 33 29 2e 63 5f 69 63 3b 0a 20 20 20 20 20 ┆ call w0 (w3).c_ic; ┆
0x2fb60…2fb7a 20 65 6e 64 20 65 6c 73 65 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 ┆ end else begin ┆
0x2fb7a…2fb80 (0x25c,0x5f8)
0x2fb80…2fba0 20 20 20 20 6c 69 6e 6b 28 2e 77 33 2e 2c 77 31 3a 3d 77 33 2c 77 32 29 3b 0a 20 20 20 20 20 20 ┆ link(.w3.,w1:=w3,w2); ┆
0x2fba0…2fbc0 20 20 74 65 73 74 6f 75 74 28 2e 77 33 2e 2c 77 30 3a 3d 36 2c 77 31 3a 3d 77 32 2c 77 32 3a 3d ┆ testout(.w3.,w0:=6,w1:=w2,w2:=┆
0x2fbc0…2fbe0 31 32 29 3b 0a 20 20 20 20 20 20 20 20 6f 70 65 6e 28 2e 77 33 2e 2c 77 30 3a 3d 30 2c 77 32 3a ┆12); open(.w3.,w0:=0,w2:┆
0x2fbe0…2fc00 3d 77 31 29 3b 0a 20 20 20 20 20 20 20 20 67 6f 74 6f 20 62 2e 61 63 74 00 00 00 00 00 00 00 00 ┆=w1); goto b.act ┆
0x2fc00…2fc06 (382,) (0x25c,0x5f9)
0x2fc06…2fc20 69 76 61 74 65 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 65 6e 64 3b ┆ivate; end; end;┆
0x2fc20…2fc40 0a 20 20 65 6e 64 3b 20 20 21 20 6c 6f 63 6b 20 21 0a 0a 0a 0a 20 20 62 6f 64 79 20 6f 66 20 6c ┆ end; ! lock ! body of l┆
0x2fc40…2fc60 69 6e 6b 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 69 6e 63 6f 64 65 0a 20 20 20 20 20 20 64 6f 75 ┆ink begin incode dou┆
0x2fc60…2fc7e 62 6c 65 20 73 61 76 65 66 31 3b 0a 20 20 20 20 20 20 77 6f 72 64 20 73 61 76 65 77 32 3b ┆ble savef1; word savew2;┆
0x2fc7e…2fc84 (0x25c,0x5fa)
0x2fc84…2fca0 0a 20 20 20 20 20 20 72 65 66 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 62 65 67 69 6e ┆ ref return; begin┆
0x2fca0…2fcc0 0a 20 20 20 20 20 20 73 61 76 65 66 31 3a 3d 66 31 3b 0a 20 20 20 20 20 20 73 61 76 65 77 32 3a ┆ savef1:=f1; savew2:┆
0x2fcc0…2fce0 3d 77 32 3b 0a 20 20 20 20 20 20 72 65 74 75 72 6e 3a 3d 77 33 3b 0a 20 20 20 20 20 20 21 20 72 ┆=w2; return:=w3; ! r┆
0x2fce0…2fcfc 65 6d 6f 76 65 20 71 75 65 75 65 20 65 6c 65 6d 65 6e 74 20 66 72 6f 6d 20 61 63 74 ┆emove queue element from act┆
0x2fcfc…2fd02 (0x25c,0x5fb)
0x2fd02…2fd20 75 61 6c 20 71 75 65 75 65 20 21 0a 20 20 20 20 20 20 77 33 3a 3d 28 77 31 29 2e 63 5f 70 ┆ual queue ! w3:=(w1).c_p┆
0x2fd20…2fd40 72 65 76 3b 0a 20 20 20 20 20 20 28 77 33 29 2e 63 5f 6e 65 78 74 3a 3d 77 30 3a 3d 28 77 31 29 ┆rev; (w3).c_next:=w0:=(w1)┆
0x2fd40…2fd60 2e 63 5f 6e 65 78 74 3b 0a 20 20 20 20 20 20 77 33 3a 3d 28 77 31 29 2e 63 5f 6e 65 78 74 3b 0a ┆.c_next; w3:=(w1).c_next; ┆
0x2fd60…2fd7a 20 20 20 20 20 20 28 77 33 29 2e 63 5f 70 72 65 76 3a 3d 77 30 3a 3d 28 77 31 ┆ (w3).c_prev:=w0:=(w1┆
0x2fd7a…2fd80 (0x25c,0x5fc)
0x2fd80…2fda0 29 2e 63 5f 70 72 65 76 3b 0a 20 20 20 20 20 20 21 20 6c 69 6e 6b 20 75 70 20 65 6c 65 6d 65 6e ┆).c_prev; ! link up elemen┆
0x2fda0…2fdc0 74 20 61 73 20 74 68 65 20 6c 61 73 74 20 65 6c 65 6d 65 6e 74 20 69 6e 20 74 68 65 20 71 75 65 ┆t as the last element in the que┆
0x2fdc0…2fde0 75 65 20 21 0a 20 20 20 20 20 20 28 77 31 29 2e 63 5f 70 72 65 76 3a 3d 77 33 3a 3d 28 77 32 29 ┆ue ! (w1).c_prev:=w3:=(w2)┆
0x2fde0…2fe00 2e 63 5f 70 72 65 76 3b 0a 20 20 20 20 20 20 28 77 31 29 2e 63 5f 6e 65 00 00 00 00 00 00 00 00 ┆.c_prev; (w1).c_ne ┆
0x2fe00…2fe06 (383,) (0x25c,0x5fd)
0x2fe06…2fe20 78 74 3a 3d 77 32 3b 0a 20 20 20 20 20 20 28 77 32 29 2e 63 5f 70 72 65 76 3a ┆xt:=w2; (w2).c_prev:┆
0x2fe20…2fe40 3d 77 31 3b 0a 20 20 20 20 20 20 28 77 33 29 2e 63 5f 6e 65 78 74 3a 3d 77 31 3b 0a 20 20 20 20 ┆=w1; (w3).c_next:=w1; ┆
0x2fe40…2fe60 20 20 66 31 3a 3d 73 61 76 65 66 31 3b 0a 20 20 20 20 20 20 77 32 3a 3d 73 61 76 65 77 32 3b 0a ┆ f1:=savef1; w2:=savew2; ┆
0x2fe60…2fe7e 20 20 20 20 20 20 77 33 3a 3d 62 2e 63 75 72 72 65 6e 74 3b 0a 20 20 20 20 20 20 63 61 6c ┆ w3:=b.current; cal┆
0x2fe7e…2fe84 (0x25c,0x5fe)
0x2fe84…2fea0 6c 20 77 30 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 65 6e 64 3b 0a 20 20 65 6e 64 3b ┆l w0 return; end; end;┆
0x2fea0…2fec0 20 20 21 20 6c 69 6e 6b 20 21 0a 0a 0a 0a 20 20 62 6f 64 79 20 6f 66 20 6d 6f 76 65 0a 20 20 62 ┆ ! link ! body of move b┆
0x2fec0…2fee0 65 67 69 6e 0a 20 20 20 20 69 6e 63 6f 64 65 0a 20 20 20 20 20 20 64 6f 75 62 6c 65 20 73 61 76 ┆egin incode double sav┆
0x2fee0…2fefc 65 66 31 3b 0a 20 20 20 20 20 20 77 6f 72 64 20 73 61 76 65 77 32 3b 0a 20 20 20 20 ┆ef1; word savew2; ┆
0x2fefc…2ff02 (0x25c,0x5ff)
0x2ff02…2ff20 20 20 72 65 66 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 ┆ ref return; begin ┆
0x2ff20…2ff40 73 61 76 65 66 31 3a 3d 66 31 3b 0a 20 20 20 20 20 20 73 61 76 65 77 32 3a 3d 77 32 3b 0a 20 20 ┆savef1:=f1; savew2:=w2; ┆
0x2ff40…2ff60 20 20 20 20 72 65 74 75 72 6e 3a 3d 77 33 3b 0a 20 20 20 20 20 20 77 33 3a 3d 77 31 2b 77 30 3b ┆ return:=w3; w3:=w1+w0;┆
0x2ff60…2ff7a 0a 20 20 20 20 20 20 77 68 69 6c 65 20 77 31 20 3c 20 77 33 20 64 6f 0a 20 20 ┆ while w1 < w3 do ┆
0x2ff7a…2ff80 (0x25c,0x600)
0x2ff80…2ffa0 20 20 20 20 62 65 67 69 6e 20 20 21 20 6d 6f 76 65 20 66 72 6f 6d 20 77 31 20 74 6f 20 77 32 2c ┆ begin ! move from w1 to w2,┆
0x2ffa0…2ffc0 20 6f 6e 65 20 77 6f 72 64 20 61 74 20 61 20 74 69 6d 65 20 21 0a 20 20 20 20 20 20 20 20 28 77 ┆ one word at a time ! (w┆
0x2ffc0…2ffe0 32 29 2e 77 6f 72 64 3a 3d 77 30 3a 3d 28 77 31 29 2e 77 6f 72 64 3b 0a 20 20 20 20 20 20 20 20 ┆2).word:=w0:=(w1).word; ┆
0x2ffe0…30000 77 31 2b 32 3b 0a 20 20 20 20 20 20 20 20 77 32 2b 32 3b 0a 20 20 20 20 00 00 00 00 00 00 00 00 ┆w1+2; w2+2; ┆
0x30000…30006 (384,) (0x25c,0x601)
0x30006…30020 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 66 31 3a 3d 73 61 76 65 66 31 3b 0a 20 ┆ end; f1:=savef1; ┆
0x30020…30040 20 20 20 20 20 77 32 3a 3d 73 61 76 65 77 32 3b 0a 20 20 20 20 20 20 77 33 3a 3d 62 2e 63 75 72 ┆ w2:=savew2; w3:=b.cur┆
0x30040…30060 72 65 6e 74 3b 0a 20 20 20 20 20 20 63 61 6c 6c 20 77 30 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 ┆rent; call w0 return; ┆
0x30060…3007e 65 6e 64 3b 0a 20 20 65 6e 64 3b 20 20 21 20 6d 6f 76 65 20 21 0a 0a 20 20 62 6f 64 79 20 ┆end; end; ! move ! body ┆
0x3007e…30084 (0x25c,0x602)
0x30084…300a0 6f 66 20 63 6f 70 79 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 6c 61 62 65 6c 20 65 78 ┆of copy begin label ex┆
0x300a0…300c0 69 74 3b 0a 20 20 20 20 69 6e 63 6f 64 65 0a 20 20 20 20 20 20 77 6f 72 64 20 73 61 76 65 77 31 ┆it; incode word savew1┆
0x300c0…300e0 2c 73 61 76 65 77 32 3b 0a 20 20 20 20 20 20 72 65 66 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 20 ┆,savew2; ref return; ┆
0x300e0…300fc 20 77 6f 72 64 20 63 6f 70 79 5f 66 75 6e 63 3b 0a 20 20 20 20 20 20 72 65 66 20 63 ┆ word copy_func; ref c┆
0x300fc…30102 (0x25c,0x603)
0x30102…30120 6f 70 79 5f 66 69 72 73 74 2c 63 6f 70 79 5f 6c 61 73 74 3b 0a 20 20 20 20 20 20 77 6f 72 ┆opy_first,copy_last; wor┆
0x30120…30140 64 20 63 6f 70 79 5f 72 65 6c 3b 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 72 65 74 75 ┆d copy_rel; begin retu┆
0x30140…30160 72 6e 3a 3d 77 33 3b 0a 20 20 20 20 20 20 73 61 76 65 77 31 3a 3d 77 31 3b 0a 20 20 20 20 20 20 ┆rn:=w3; savew1:=w1; ┆
0x30160…3017a 73 61 76 65 77 32 3a 3d 77 32 3b 0a 20 20 20 20 20 20 63 6f 70 79 5f 66 69 72 ┆savew2:=w2; copy_fir┆
0x3017a…30180 (0x25c,0x604)
0x30180…301a0 73 74 3a 3d 77 32 3b 0a 20 20 20 20 20 20 77 32 2b 77 30 2d 32 3b 63 6f 70 79 5f 6c 61 73 74 3a ┆st:=w2; w2+w0-2;copy_last:┆
0x301a0…301c0 3d 77 32 3b 0a 20 20 20 20 20 20 63 6f 70 79 5f 72 65 6c 3a 3d 77 30 3a 3d 30 3b 0a 20 20 20 20 ┆=w2; copy_rel:=w0:=0; ┆
0x301c0…301e0 20 20 77 33 3a 3d 62 2e 63 75 72 72 65 6e 74 3b 0a 20 20 20 20 20 20 77 32 3a 3d 28 77 33 29 2e ┆ w3:=b.current; w2:=(w3).┆
0x301e0…30200 63 5f 6d 62 75 66 3b 0a 20 20 20 20 20 20 77 30 3a 3d 28 77 32 29 2e 6d 00 00 00 00 00 00 00 00 ┆c_mbuf; w0:=(w2).m ┆
0x30200…30206 (385,) (0x25c,0x605)
0x30206…30220 65 73 73 5f 6f 70 3b 0a 20 20 20 20 20 20 69 66 20 77 30 3d 33 20 74 68 65 6e ┆ess_op; if w0=3 then┆
0x30220…30240 20 77 30 3a 3d 35 20 65 6c 73 65 0a 20 20 20 20 20 20 69 66 20 77 30 3d 35 20 74 68 65 6e 20 77 ┆ w0:=5 else if w0=5 then w┆
0x30240…30260 30 3a 3d 34 20 65 6c 73 65 0a 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 75 6e ┆0:=4 else begin comment un┆
0x30260…3027e 69 6e 74 65 6c 6c 69 67 69 62 6c 65 3b 0a 20 20 20 20 20 20 20 20 77 30 3a 3d 33 3b 0a 20 ┆intelligible; w0:=3; ┆
0x3027e…30284 (0x25c,0x606)
0x30284…302a0 20 20 20 20 20 20 20 67 6f 74 6f 20 65 78 69 74 3b 0a 20 20 20 20 20 20 65 6e 64 3b ┆ goto exit; end;┆
0x302a0…302c0 0a 20 20 20 20 20 20 63 6f 70 79 5f 66 75 6e 63 3a 3d 77 30 3b 0a 20 20 20 20 20 20 77 31 3a 3d ┆ copy_func:=w0; w1:=┆
0x302c0…302e0 61 64 64 72 65 73 73 28 63 6f 70 79 5f 66 75 6e 63 29 3b 0a 20 20 20 20 20 20 6d 6f 6e 69 74 6f ┆address(copy_func); monito┆
0x302e0…302fc 72 28 38 34 29 3b 20 21 20 67 65 6e 65 72 61 6c 20 63 6f 70 79 20 21 0a 65 78 69 74 ┆r(84); ! general copy ! exit┆
0x302fc…30302 (0x25c,0x607)
0x30302…30320 3a 0a 20 20 20 20 20 20 2d 28 77 30 29 3b 0a 20 20 20 20 20 20 69 66 20 77 30 3d 30 20 74 ┆: -(w0); if w0=0 t┆
0x30320…30340 68 65 6e 20 77 30 3a 3d 77 31 3b 20 21 20 6e 75 6d 62 65 72 20 6f 66 20 68 61 6c 66 77 6f 72 64 ┆hen w0:=w1; ! number of halfword┆
0x30340…30360 73 20 63 6f 70 69 65 64 20 21 0a 20 20 20 20 20 20 77 31 3a 3d 73 61 76 65 77 31 3b 0a 20 20 20 ┆s copied ! w1:=savew1; ┆
0x30360…3037a 20 20 20 77 32 3a 3d 73 61 76 65 77 32 3b 0a 20 20 20 20 20 20 77 33 3a 3d 62 ┆ w2:=savew2; w3:=b┆
0x3037a…30380 (0x25c,0x608)
0x30380…303a0 2e 63 75 72 72 65 6e 74 3b 0a 20 20 20 20 20 20 63 61 6c 6c 20 77 30 20 72 65 74 75 72 6e 3b 0a ┆.current; call w0 return; ┆
0x303a0…303c0 20 20 20 20 65 6e 64 3b 0a 20 20 65 6e 64 3b 20 21 20 65 6e 64 20 63 6f 70 79 20 21 0a 0a 0a 0a ┆ end; end; ! end copy ! ┆
0x303c0…303e0 0a 20 20 62 6f 64 79 20 6f 66 20 75 6e 69 6e 74 65 6c 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 6c ┆ body of unintel begin l┆
0x303e0…30400 61 62 65 6c 20 64 75 6d 64 75 6d 3b 0a 20 20 20 20 62 65 67 69 6e 0a 20 00 00 00 00 00 00 00 00 ┆abel dumdum; begin ┆
0x30400…30406 (386,) (0x25c,0x609)
0x30406…30420 20 20 20 20 20 77 32 3a 3d 20 62 2e 65 76 65 6e 74 3b 0a 20 20 20 20 20 20 6d ┆ w2:= b.event; m┆
0x30420…30440 6f 6e 69 74 6f 72 28 32 36 29 3b 20 21 20 67 65 74 20 65 76 65 6e 74 20 21 0a 20 20 20 20 20 20 ┆onitor(26); ! get event ! ┆
0x30440…30460 62 2e 61 6e 73 5f 73 74 61 74 75 73 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 69 66 20 77 30 3d 30 ┆b.ans_status:= w0; if w0=0┆
0x30460…3047e 20 74 68 65 6e 20 77 30 3a 3d 20 33 0a 20 20 20 20 20 20 65 6c 73 65 20 69 66 20 77 30 3c ┆ then w0:= 3 else if w0<┆
0x3047e…30484 (0x25c,0x60a)
0x30484…304a0 30 20 74 68 65 6e 20 2d 28 77 30 29 0a 20 20 20 20 20 20 65 6c 73 65 20 77 30 3a 3d ┆0 then -(w0) else w0:=┆
0x304a0…304c0 20 31 3b 0a 20 20 20 20 20 20 77 31 3a 3d 20 61 64 64 72 65 73 73 28 62 2e 61 6e 73 5f 73 74 61 ┆ 1; w1:= address(b.ans_sta┆
0x304c0…304e0 74 75 73 29 3b 0a 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 32 32 29 3b 20 21 20 73 65 6e 64 20 ┆tus); monitor(22); ! send ┆
0x304e0…304fc 61 6e 73 77 65 72 20 21 0a 20 20 20 20 20 20 74 65 73 74 6f 75 74 28 2e 77 33 2e 2c ┆answer ! testout(.w3.,┆
0x304fc…30502 (0x25c,0x60b)
0x30502…30520 77 30 3a 3d 32 2c 77 31 2c 77 32 3a 3d 36 30 29 3b 0a 20 20 20 20 20 20 67 6f 74 6f 20 62 ┆w0:=2,w1,w2:=60); goto b┆
0x30520…30540 2e 63 65 6e 74 72 61 6c 5f 77 61 69 74 3b 0a 20 20 20 20 65 6e 64 3b 0a 20 20 65 6e 64 3b 20 21 ┆.central_wait; end; end; !┆
0x30540…30560 20 75 6e 69 6e 74 65 6c 20 21 0a 0a 0a 20 20 62 6f 64 79 20 6f 66 20 74 65 73 74 6f 75 74 0a 20 ┆ unintel ! body of testout ┆
0x30560…3057a 20 62 65 67 69 6e 0a 20 20 20 20 6c 61 62 65 6c 20 63 6c 6f 73 65 3b 0a 20 20 ┆ begin label close; ┆
0x3057a…30580 (0x25c,0x60c)
0x30580…305a0 20 20 72 65 63 6f 72 64 20 64 75 6d 70 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 6f 72 64 ┆ record dump (word┆
0x305a0…305c0 20 72 65 67 30 2c 72 65 67 31 2c 72 65 67 32 2c 72 65 67 33 2c 65 78 72 65 67 2c 69 6e 73 74 72 ┆ reg0,reg1,reg2,reg3,exreg,instr┆
0x305c0…305e0 2c 63 61 75 73 65 2c 73 62 72 65 67 29 3b 0a 20 20 20 20 72 65 63 6f 72 64 20 74 65 73 74 68 65 ┆,cause,sbreg); record testhe┆
0x305e0…30600 61 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 62 79 74 65 20 72 65 00 00 00 00 00 00 00 00 ┆ad (byte re ┆
0x30600…30606 (387,) (0x25c,0x60d)
0x30606…30620 63 6c 65 6e 67 74 68 2c 72 65 63 6b 69 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 ┆clength,reckind; ┆
0x30620…30640 20 20 20 20 20 77 6f 72 64 20 74 69 6d 65 2c 74 65 73 74 72 65 66 29 3b 0a 20 20 20 20 69 6e 63 ┆ word time,testref); inc┆
0x30640…30660 6f 64 65 0a 20 20 20 20 20 20 77 6f 72 64 20 62 75 66 72 65 6c 3a 3d 30 3b 0a 20 20 20 20 20 20 ┆ode word bufrel:=0; ┆
0x30660…3067e 72 65 66 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 20 20 64 6f 75 62 6c 65 20 73 61 76 65 66 ┆ref return; double savef┆
0x3067e…30684 (0x25c,0x60e)
0x30684…306a0 31 3b 0a 20 20 20 20 20 20 61 72 72 61 79 20 28 31 3a 38 29 20 74 65 73 74 61 6e 73 ┆1; array (1:8) testans┆
0x306a0…306c0 77 20 6f 66 20 77 6f 72 64 3b 0a 20 20 20 20 20 20 77 6f 72 64 20 73 61 76 65 77 32 3b 0a 20 20 ┆w of word; word savew2; ┆
0x306c0…306e0 20 20 20 20 62 79 74 65 20 6f 70 63 6f 64 65 3a 3d 36 2c 6f 70 6d 3a 3d 38 27 31 30 30 30 3b 0a ┆ byte opcode:=6,opm:=8'1000; ┆
0x306e0…306fc 20 20 20 20 20 20 74 65 78 74 28 38 29 20 73 74 61 74 75 73 3a 3d 20 22 73 74 61 74 ┆ text(8) status:= "stat┆
0x306fc…30702 (0x25c,0x60f)
0x30702…30720 75 73 22 3b 0a 20 20 20 20 20 20 74 65 78 74 28 31 34 29 20 74 65 73 74 61 72 65 61 3a 3d ┆us"; text(14) testarea:=┆
0x30720…30740 20 22 74 65 6d 74 65 73 74 22 3b 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 73 61 76 65 ┆ "temtest"; begin save┆
0x30740…30760 66 31 3a 3d 66 31 3b 0a 20 20 20 20 20 20 73 61 76 65 77 32 3a 3d 77 32 3b 0a 20 20 20 20 20 20 ┆f1:=f1; savew2:=w2; ┆
0x30760…3077a 72 65 74 75 72 6e 3a 3d 77 33 3b 0a 20 20 20 20 20 20 69 66 20 77 33 3a 3d 62 ┆return:=w3; if w3:=b┆
0x3077a…30780 (0x25c,0x610)
0x30780…307a0 2e 74 65 73 74 6d 66 73 74 20 3c 20 62 2e 74 65 73 74 6d 6c 61 73 74 20 74 68 65 6e 0a 20 20 20 ┆.testmfst < b.testmlast then ┆
0x307a0…307c0 20 20 20 62 65 67 69 6e 20 20 21 20 69 66 20 74 65 73 74 62 75 66 66 65 72 20 65 78 69 73 74 73 ┆ begin ! if testbuffer exists┆
0x307c0…307e0 20 74 68 65 6e 20 67 65 6e 65 72 61 74 65 20 74 65 73 74 6f 75 74 70 75 74 20 21 0a 20 20 20 20 ┆ then generate testoutput ! ┆
0x307e0…30800 20 20 20 20 69 66 20 77 30 2b 62 75 66 72 65 6c 2b 28 21 6c 65 6e 67 74 00 00 00 00 00 00 00 00 ┆ if w0+bufrel+(!lengt ┆
0x30800…30806 (388,) (0x25c,0x611)
0x30806…30820 68 28 74 65 73 74 68 65 61 64 29 2b 32 29 20 3e 20 35 31 30 20 74 68 65 6e 0a ┆h(testhead)+2) > 510 then ┆
0x30820…30840 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 20 21 20 6e 6f 20 72 6f 6f 6d 20 66 6f 72 20 6e 65 78 ┆ begin ! no room for nex┆
0x30840…30860 74 20 72 65 63 6f 72 64 20 73 6f 20 63 68 61 6e 67 65 20 62 75 66 66 65 72 20 21 0a 20 20 20 20 ┆t record so change buffer ! ┆
0x30860…3087e 20 20 20 20 20 20 77 33 2b 62 75 66 72 65 6c 3b 0a 20 20 20 20 20 20 20 20 20 20 28 77 33 ┆ w3+bufrel; (w3┆
0x3087e…30884 (0x25c,0x612)
0x30884…308a0 29 2e 77 6f 72 64 3a 3d 77 30 3a 3d 2d 31 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 ┆).word:=w0:=-1; if┆
0x308a0…308c0 20 77 32 3a 3d 20 62 2e 74 65 73 74 62 75 66 3c 3e 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 ┆ w2:= b.testbuf<>0 then ┆
0x308c0…308e0 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 2e 74 65 73 74 62 75 66 3a 3d 20 ┆ begin b.testbuf:= ┆
0x308e0…308fc 77 31 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 2e 62 61 73 65 5f 65 ┆w1:= 0; b.base_e┆
0x308fc…30902 (0x25c,0x613)
0x30902…30920 76 65 6e 74 3a 3d 20 77 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 74 65 73 74 61 6e 73 ┆vent:= w1; testans┆
0x30920…30940 77 28 77 31 3a 3d 31 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 31 38 ┆w(w1:=1); monitor(18┆
0x30940…30960 29 3b 20 20 21 20 20 77 61 69 74 20 61 6e 73 77 65 72 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 ┆); ! wait answer ! ┆
0x30960…3097a 20 20 69 66 20 77 32 3a 3d 31 20 6c 73 68 69 66 74 20 77 30 20 6f 72 20 28 77 ┆ if w2:=1 lshift w0 or (w┆
0x3097a…30980 (0x25c,0x614)
0x30980…309a0 31 29 2e 77 6f 72 64 20 3c 3e 20 32 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 ┆1).word <> 2 then be┆
0x309a0…309c0 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 2e 74 65 73 74 6d 6c 61 73 74 3a 3d 77 ┆gin b.testmlast:=w┆
0x309c0…309e0 31 3a 3d 62 2e 74 65 73 74 6d 66 73 74 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a ┆1:=b.testmfst; w1:┆
0x309e0…30a00 3d 20 61 64 64 72 65 73 73 28 6f 70 63 6f 64 65 29 3b 0a 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆= address(opcode); ┆
0x30a00…30a06 (389,) (0x25c,0x615)
0x30a06…30a20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 6c 6f 67 73 74 61 74 75 73 3a 3d 77 ┆ (w1).logstatus:=w┆
0x30a20…30a40 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 70 6d 65 73 73 28 2e 77 33 2e 2c 77 31 29 ┆2; opmess(.w3.,w1)┆
0x30a40…30a60 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 ┆; end; end┆
0x30a60…30a7e 3b 0a 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 20 61 64 64 72 65 73 73 28 62 2e 74 65 73 ┆; w1:= address(b.tes┆
0x30a7e…30a84 (0x25c,0x616)
0x30a84…30aa0 74 6d 6f 70 29 3b 0a 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 20 61 64 64 72 65 73 ┆tmop); w3:= addres┆
0x30aa0…30ac0 73 28 74 65 73 74 61 72 65 61 29 3b 0a 20 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 31 ┆s(testarea); monitor(1┆
0x30ac0…30ae0 36 29 3b 20 21 20 73 65 6e 64 20 6d 65 73 73 61 67 65 20 21 0a 20 20 20 20 20 20 20 20 20 20 62 ┆6); ! send message ! b┆
0x30ae0…30afc 2e 74 65 73 74 62 75 66 3a 3d 20 77 32 3b 20 21 20 73 61 76 65 20 62 75 66 66 65 72 ┆.testbuf:= w2; ! save buffer┆
0x30afc…30b02 (0x25c,0x617)
0x30b02…30b20 20 61 64 64 72 65 73 73 20 21 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 31 3a 3d 62 2e ┆ address ! if w1:=b.┆
0x30b20…30b40 74 65 73 74 73 65 67 6d 2b 31 20 3d 20 62 2e 6d 61 78 74 65 73 74 73 65 67 6d 20 74 68 65 6e 20 ┆testsegm+1 = b.maxtestsegm then ┆
0x30b40…30b60 77 31 3a 3d 31 3b 0a 20 20 20 20 20 20 20 20 20 20 62 2e 74 65 73 74 73 65 67 6d 3a 3d 77 31 3b ┆w1:=1; b.testsegm:=w1;┆
0x30b60…30b7a 0a 20 20 20 20 20 20 20 20 20 20 62 75 66 72 65 6c 3a 3d 77 30 3a 3d 30 3b 0a ┆ bufrel:=w0:=0; ┆
0x30b7a…30b80 (0x25c,0x618)
0x30b80…30ba0 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 20 62 2e 74 65 73 74 6d 66 73 74 3b 77 31 2b 35 31 32 ┆ w1:= b.testmfst;w1+512┆
0x30ba0…30bc0 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 31 3e 3d 62 2e 74 65 73 74 6d 74 6f 70 20 74 68 ┆; if w1>=b.testmtop th┆
0x30bc0…30be0 65 6e 20 77 31 2d 31 30 32 34 3b 0a 20 20 20 20 20 20 20 20 20 20 62 2e 74 65 73 74 6d 66 73 74 ┆en w1-1024; b.testmfst┆
0x30be0…30c00 3a 3d 20 77 31 3b 0a 20 20 20 20 20 20 20 20 20 20 77 31 2b 35 31 30 3b 00 00 00 00 00 00 00 00 ┆:= w1; w1+510; ┆
0x30c00…30c06 (390,) (0x25c,0x619)
0x30c06…30c20 62 2e 74 65 73 74 6d 6c 61 73 74 3a 3d 20 77 31 3b 0a 20 20 20 20 20 20 20 20 ┆b.testmlast:= w1; ┆
0x30c20…30c40 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 66 31 3a 3d 73 61 76 65 66 31 3b 0a 20 20 20 20 20 20 20 ┆end; f1:=savef1; ┆
0x30c40…30c60 20 77 32 3a 3d 73 61 76 65 77 32 3b 0a 20 20 20 20 20 20 20 20 77 33 3a 3d 62 2e 74 65 73 74 6d ┆ w2:=savew2; w3:=b.testm┆
0x30c60…30c7e 66 73 74 2b 62 75 66 72 65 6c 3b 0a 20 20 20 20 20 20 20 20 28 77 33 29 2e 72 65 63 6c 65 ┆fst+bufrel; (w3).recle┆
0x30c7e…30c84 (0x25c,0x61a)
0x30c84…30ca0 6e 67 74 68 3a 3d 77 30 2b 21 6c 65 6e 67 74 68 28 74 65 73 74 68 65 61 64 29 3b 0a ┆ngth:=w0+!length(testhead); ┆
0x30ca0…30cc0 20 20 20 20 20 20 20 20 28 77 33 29 2e 72 65 63 6b 69 6e 64 3a 3d 77 32 3b 0a 20 20 20 20 20 20 ┆ (w3).reckind:=w2; ┆
0x30cc0…30ce0 20 20 62 75 66 72 65 6c 3a 3d 20 77 31 3a 3d 20 62 75 66 72 65 6c 2b 77 30 3b 0a 20 20 20 20 20 ┆ bufrel:= w1:= bufrel+w0; ┆
0x30ce0…30cfc 20 20 20 77 31 3a 3d 20 62 2e 63 75 72 72 65 6e 74 3b 0a 20 20 20 20 20 20 20 20 69 ┆ w1:= b.current; i┆
0x30cfc…30d02 (0x25c,0x61b)
0x30d02…30d20 66 20 77 31 3c 3e 30 20 74 68 65 6e 20 77 31 3a 3d 28 77 31 29 2e 63 5f 6e 72 3b 0a 20 20 ┆f w1<>0 then w1:=(w1).c_nr; ┆
0x30d20…30d40 20 20 20 20 20 20 28 77 33 29 2e 74 65 73 74 72 65 66 3a 3d 77 31 3b 0a 20 20 20 20 20 20 20 20 ┆ (w3).testref:=w1; ┆
0x30d40…30d60 77 31 3a 3d 31 30 38 3b 0a 20 20 20 20 20 20 20 20 66 31 3a 3d 28 77 31 29 2e 64 6f 75 62 6c 65 ┆w1:=108; f1:=(w1).double┆
0x30d60…30d7a 2d 62 2e 73 74 61 72 74 74 69 6d 65 20 6c 73 68 69 66 74 20 2d 37 3b 0a 20 20 ┆-b.starttime lshift -7; ┆
0x30d7a…30d80 (0x25c,0x61c)
0x30d80…30da0 20 20 20 20 20 20 28 77 33 29 2e 74 69 6d 65 3a 3d 77 31 3b 0a 20 20 20 20 20 20 20 20 66 31 3a ┆ (w3).time:=w1; f1:┆
0x30da0…30dc0 3d 73 61 76 65 66 31 3b 0a 20 20 20 20 20 20 20 20 6d 6f 76 65 28 2e 77 33 2e 2c 77 30 2c 77 31 ┆=savef1; move(.w3.,w0,w1┆
0x30dc0…30de0 2c 77 32 3a 3d 77 33 2b 21 6c 65 6e 67 74 68 28 74 65 73 74 68 65 61 64 29 29 3b 0a 20 20 20 20 ┆,w2:=w3+!length(testhead)); ┆
0x30de0…30e00 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 77 32 3a 3d 73 61 76 65 77 32 3b 00 00 00 00 00 00 00 00 ┆ end; w2:=savew2; ┆
0x30e00…30e06 (391,) (0x25c,0x61d)
0x30e06…30e20 0a 20 20 20 20 20 20 69 66 20 77 32 3d 31 35 20 74 68 65 6e 0a 20 20 20 20 20 ┆ if w2=15 then ┆
0x30e20…30e40 20 62 65 67 69 6e 20 20 21 20 20 69 6e 74 65 72 6e 61 6c 20 69 6e 74 65 72 72 75 70 74 20 20 21 ┆ begin ! internal interrupt !┆
0x30e40…30e60 0a 20 20 20 20 20 20 20 20 77 33 3a 3d 28 77 31 29 2e 69 6e 73 74 72 2d 32 3b 0a 20 20 20 20 20 ┆ w3:=(w1).instr-2; ┆
0x30e60…30e7e 20 20 20 69 66 20 77 30 3a 3d 28 77 33 29 2e 77 6f 72 64 20 6c 73 68 69 66 74 20 2d 31 38 ┆ if w0:=(w3).word lshift -18┆
0x30e7e…30e84 (0x25c,0x61e)
0x30e84…30ea0 20 3d 20 35 31 20 20 21 20 6b 65 79 20 73 74 6f 72 65 20 21 20 74 68 65 6e 0a 20 20 ┆ = 51 ! key store ! then ┆
0x30ea0…30ec0 20 20 20 20 20 20 62 65 67 69 6e 20 20 21 20 72 65 65 73 74 61 62 6c 69 73 68 20 72 65 67 69 73 ┆ begin ! reestablish regis┆
0x30ec0…30ee0 74 65 72 73 20 61 6e 64 20 63 6f 6e 74 69 6e 75 65 20 21 0a 20 20 20 20 20 20 20 20 20 20 77 30 ┆ters and continue ! w0┆
0x30ee0…30efc 3a 3d 28 77 31 29 2e 69 6e 73 74 72 3b 0a 20 20 20 20 20 20 20 20 20 20 72 65 74 75 ┆:=(w1).instr; retu┆
0x30efc…30f02 (0x25c,0x61f)
0x30f02…30f20 72 6e 3a 3d 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 28 77 31 29 2e 72 65 67 ┆rn:=w0; w0:=(w1).reg┆
0x30f20…30f40 30 3b 0a 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 28 77 31 29 2e 72 65 67 32 3b 0a 20 20 20 20 ┆0; w2:=(w1).reg2; ┆
0x30f40…30f60 20 20 20 20 20 20 77 33 3a 3d 28 77 31 29 2e 72 65 67 33 3b 0a 20 20 20 20 20 20 20 20 20 20 77 ┆ w3:=(w1).reg3; w┆
0x30f60…30f7a 31 3a 3d 28 77 31 29 2e 72 65 67 31 3b 0a 20 20 20 20 20 20 20 20 20 20 63 61 ┆1:=(w1).reg1; ca┆
0x30f7a…30f80 (0x25c,0x620)
0x30f80…30fa0 6c 6c 20 77 30 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 20 65 6c 73 65 0a 20 ┆ll w0 return; end else ┆
0x30fa0…30fc0 20 20 20 20 20 20 20 62 65 67 69 6e 20 20 21 20 6f 75 74 70 75 74 20 6c 61 73 74 20 73 65 67 6d ┆ begin ! output last segm┆
0x30fc0…30fe0 65 6e 74 20 61 6e 64 20 68 61 6c 74 20 21 0a 63 6c 6f 73 65 3a 0a 20 20 20 20 20 20 20 20 20 20 ┆ent and halt ! close: ┆
0x30fe0…31000 69 66 20 77 32 3a 3d 20 62 2e 74 65 73 74 62 75 66 3c 3e 30 20 74 68 65 00 00 00 00 00 00 00 00 ┆if w2:= b.testbuf<>0 the ┆
0x31000…31006 (392,) (0x25c,0x621)
0x31006…31020 6e 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 ┆n begin ┆
0x31020…31040 20 20 20 20 74 65 73 74 61 6e 73 77 28 77 31 3a 3d 31 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ testansw(w1:=1); ┆
0x31040…31060 20 6d 6f 6e 69 74 6f 72 28 31 38 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 2e 74 65 73 74 ┆ monitor(18); b.test┆
0x31060…3107e 62 75 66 3a 3d 20 77 32 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 ┆buf:= w2:= 0; end; ┆
0x3107e…31084 (0x25c,0x622)
0x31084…310a0 20 20 20 20 20 20 20 20 20 28 77 33 3a 3d 62 2e 74 65 73 74 6d 66 73 74 2b 62 75 66 ┆ (w3:=b.testmfst+buf┆
0x310a0…310c0 72 65 6c 29 2e 77 6f 72 64 3a 3d 77 30 3a 3d 2d 32 3b 0a 20 20 20 20 20 20 20 20 20 20 77 33 3a ┆rel).word:=w0:=-2; w3:┆
0x310c0…310e0 3d 61 64 64 72 65 73 73 28 74 65 73 74 61 72 65 61 29 3b 0a 20 20 20 20 20 20 20 20 20 20 77 31 ┆=address(testarea); w1┆
0x310e0…310fc 3a 3d 61 64 64 72 65 73 73 28 62 2e 74 65 73 74 6d 6f 70 29 3b 0a 20 20 20 20 20 20 ┆:=address(b.testmop); ┆
0x310fc…31102 (0x25c,0x623)
0x31102…31120 20 20 20 20 6d 6f 6e 69 74 6f 72 28 31 36 29 3b 20 20 21 20 73 65 6e 64 20 6d 65 73 73 61 ┆ monitor(16); ! send messa┆
0x31120…31140 67 65 20 21 0a 20 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 31 38 29 3b 20 20 21 20 77 ┆ge ! monitor(18); ! w┆
0x31140…31160 61 69 74 20 61 6e 73 77 65 72 20 21 0a 20 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 31 ┆ait answer ! monitor(1┆
0x31160…3117a 30 29 3b 20 20 21 20 72 65 6c 65 61 73 65 20 70 72 6f 63 65 73 73 20 21 0a 20 ┆0); ! release process ! ┆
0x3117a…31180 (0x25c,0x624)
0x31180…311a0 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 65 6e 64 20 65 6c 73 65 20 69 66 20 77 32 ┆ end; end else if w2┆
0x311a0…311c0 20 3d 20 36 34 20 74 68 65 6e 20 67 6f 74 6f 20 63 6c 6f 73 65 20 65 6c 73 65 3b 0a 20 20 20 20 ┆ = 64 then goto close else; ┆
0x311c0…311e0 20 20 66 31 3a 3d 73 61 76 65 66 31 3b 0a 20 20 20 20 20 20 77 32 3a 3d 73 61 76 65 77 32 3b 0a ┆ f1:=savef1; w2:=savew2; ┆
0x311e0…31200 20 20 20 20 20 20 77 33 3a 3d 62 2e 63 75 72 72 65 6e 74 3b 0a 20 20 20 00 00 00 00 00 00 00 00 ┆ w3:=b.current; ┆
0x31200…31206 (393,) (0x25c,0x625)
0x31206…31220 20 20 20 63 61 6c 6c 20 77 30 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 65 6e 64 ┆ call w0 return; end┆
0x31220…31240 3b 0a 20 20 65 6e 64 3b 20 20 21 20 74 65 73 74 6f 75 74 20 21 0a 0a 0a 0a 0a 20 20 62 6f 64 79 ┆; end; ! testout ! body┆
0x31240…31260 20 6f 66 20 63 72 65 61 74 65 5f 70 68 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 6c 61 62 65 6c 20 ┆ of create_ph begin label ┆
0x31260…3127e 6f 6b 2c 20 74 65 73 74 65 78 69 73 74 65 6e 63 65 3b 0a 20 20 20 20 69 6e 63 6f 64 65 0a ┆ok, testexistence; incode ┆
0x3127e…31284 (0x25c,0x626)
0x31284…312a0 20 20 20 20 20 20 74 65 78 74 28 31 34 29 20 73 65 6e 64 65 72 6e 61 6d 65 3b 0a 20 ┆ text(14) sendername; ┆
0x312a0…312c0 20 20 20 20 20 62 79 74 65 20 64 75 6d 6d 79 6f 70 3a 3d 2d 32 2c 64 75 6d 6d 79 6d 6f 64 65 3a ┆ byte dummyop:=-2,dummymode:┆
0x312c0…312e0 3d 30 3b 0a 20 20 20 20 20 20 64 6f 75 62 6c 65 20 73 61 76 65 66 32 3b 0a 20 20 20 20 20 20 72 ┆=0; double savef2; r┆
0x312e0…312fc 65 66 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 20 20 77 6f 72 64 20 73 61 76 65 77 30 ┆ef return; word savew0┆
0x312fc…31302 (0x25c,0x627)
0x31302…31320 3b 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 73 61 76 65 66 32 3a 3d 66 32 3b 0a ┆; begin savef2:=f2; ┆
0x31320…31340 20 20 20 20 20 20 72 65 74 75 72 6e 3a 3d 77 33 3b 0a 20 20 20 20 20 20 77 33 3a 3d 28 77 33 29 ┆ return:=w3; w3:=(w3)┆
0x31340…31360 2e 63 70 5f 70 73 6e 61 6d 65 3b 0a 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 38 30 29 3b 20 20 ┆.cp_psname; monitor(80); ┆
0x31360…3137a 21 20 63 72 65 61 74 65 20 70 73 65 75 64 6f 20 70 72 6f 63 65 73 73 20 21 0a ┆! create pseudo process ! ┆
0x3137a…31380 (0x25c,0x628)
0x31380…313a0 20 20 20 20 20 20 69 66 20 77 30 20 3d 20 30 20 74 68 65 6e 0a 20 20 20 20 20 20 62 65 67 69 6e ┆ if w0 = 0 then begin┆
0x313a0…313c0 0a 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 34 29 3b 20 20 21 20 67 65 74 20 70 72 6f 63 ┆ monitor(4); ! get proc┆
0x313c0…313e0 65 73 73 20 64 65 73 63 72 69 70 74 69 6f 6e 20 61 64 64 72 65 73 73 20 21 0a 6f 6b 3a 20 20 20 ┆ess description address ! ok: ┆
0x313e0…31400 20 20 0a 20 20 20 20 20 20 20 20 77 31 3a 3d 20 72 65 74 75 72 6e 2e 63 00 00 00 00 00 00 00 00 ┆ w1:= return.c ┆
0x31400…31406 (394,) (0x25c,0x629)
0x31406…31420 70 5f 70 68 68 65 61 64 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 70 68 5f ┆p_phhead; (w1).ph_┆
0x31420…31440 70 73 70 72 6f 63 3a 3d 77 30 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 70 68 5f 69 6e 70 6d ┆psproc:=w0; (w1).ph_inpm┆
0x31440…31460 6f 64 65 3a 3d 20 77 30 3a 3d 20 2d 31 3b 20 21 20 6e 6f 20 69 6e 70 75 74 20 72 65 63 65 69 76 ┆ode:= w0:= -1; ! no input receiv┆
0x31460…3147e 65 64 20 79 65 74 20 21 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 70 68 5f 70 61 72 65 6e ┆ed yet ! (w1).ph_paren┆
0x3147e…31484 (0x25c,0x62a)
0x31484…314a0 74 3a 3d 77 32 3a 3d 72 65 74 75 72 6e 2e 63 70 5f 73 65 6e 64 65 72 3b 0a 20 20 20 ┆t:=w2:=return.cp_sender; ┆
0x314a0…314c0 20 20 20 20 20 70 68 28 2e 77 33 2e 29 3b 20 20 21 20 66 6f 72 63 65 20 70 72 6f 63 65 73 73 20 ┆ ph(.w3.); ! force process ┆
0x314c0…314e0 68 61 6e 64 6c 65 72 20 69 6e 74 6f 20 73 74 61 72 74 20 70 6f 73 69 74 69 6f 6e 20 21 0a 20 20 ┆handler into start position ! ┆
0x314e0…314fc 20 20 20 20 20 20 28 77 31 29 2e 63 5f 69 63 3a 3d 77 33 3b 0a 20 20 20 20 20 20 20 ┆ (w1).c_ic:=w3; ┆
0x314fc…31502 (0x25c,0x62b)
0x31502…31520 20 6c 69 6e 6b 28 2e 77 33 2e 2c 77 31 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 62 2e 61 63 ┆ link(.w3.,w1,w2:=address(b.ac┆
0x31520…31540 74 69 76 71 66 73 74 29 29 3b 0a 20 20 20 20 20 20 20 20 69 6e 69 74 5f 61 72 65 61 28 2e 77 33 ┆tivqfst)); init_area(.w3┆
0x31540…31560 2e 2c 77 31 29 3b 0a 20 20 20 20 20 20 20 20 6d 6f 76 65 28 2e 77 33 2e 2c 77 30 3a 3d 38 2c 77 ┆.,w1); move(.w3.,w0:=8,w┆
0x31560…3157a 31 3a 3d 72 65 74 75 72 6e 2e 63 70 5f 73 65 6e 64 65 72 2b 32 2c 77 32 3a 3d ┆1:=return.cp_sender+2,w2:=┆
0x3157a…31580 (0x25c,0x62c)
0x31580…315a0 61 64 64 72 65 73 73 28 73 65 6e 64 65 72 6e 61 6d 65 29 29 3b 0a 20 20 20 20 20 20 20 20 77 33 ┆address(sendername)); w3┆
0x315a0…315c0 3a 3d 77 32 3b 0a 20 20 20 20 20 20 20 20 77 31 3a 3d 61 64 64 72 65 73 73 28 64 75 6d 6d 79 6f ┆:=w2; w1:=address(dummyo┆
0x315c0…315e0 70 29 3b 0a 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 31 36 29 3b 20 20 21 20 73 65 6e 64 ┆p); monitor(16); ! send┆
0x315e0…31600 20 64 75 6d 6d 79 20 6d 65 73 73 61 67 65 20 74 6f 20 74 72 61 70 20 72 00 00 00 00 00 00 00 00 ┆ dummy message to trap r ┆
0x31600…31606 (395,) (0x25c,0x62d)
0x31606…31620 65 6d 6f 76 61 6c 20 6f 66 20 70 72 6f 63 65 73 73 20 21 0a 20 20 20 20 20 20 ┆emoval of process ! ┆
0x31620…31640 20 20 77 31 3a 3d 72 65 74 75 72 6e 2e 63 70 5f 70 68 68 65 61 64 3b 0a 20 20 20 20 20 20 20 20 ┆ w1:=return.cp_phhead; ┆
0x31640…31660 28 77 31 29 2e 70 68 5f 64 75 6d 6d 79 6d 65 73 73 3a 3d 20 77 32 3b 0a 20 20 20 20 20 20 20 20 ┆(w1).ph_dummymess:= w2; ┆
0x31660…3167e 28 77 31 29 2e 70 68 5f 74 68 69 6e 63 61 72 3a 3d 20 77 30 3a 3d 20 30 3b 0a 20 20 20 20 ┆(w1).ph_thincar:= w0:= 0; ┆
0x3167e…31684 (0x25c,0x62e)
0x31684…316a0 20 20 20 20 73 61 76 65 77 30 3a 3d 77 30 3a 3d 31 3b 0a 20 20 20 20 20 20 20 20 28 ┆ savew0:=w0:=1; (┆
0x316a0…316c0 77 32 3a 3d 28 77 31 29 2e 70 68 5f 71 72 65 73 65 72 76 65 29 2e 73 65 6d 5f 76 61 6c 75 65 3a ┆w2:=(w1).ph_qreserve).sem_value:┆
0x316c0…316e0 3d 20 77 30 3b 0a 20 20 20 20 20 20 65 6e 64 20 65 6c 73 65 0a 20 20 20 20 20 20 62 65 67 69 6e ┆= w0; end else begin┆
0x316e0…316fc 20 20 21 20 74 65 73 74 20 77 68 79 20 70 73 65 75 64 6f 20 70 72 6f 63 65 73 73 20 ┆ ! test why pseudo process ┆
0x316fc…31702 (0x25c,0x62f)
0x31702…31720 77 61 73 20 6e 6f 74 20 63 72 65 61 74 65 64 20 21 0a 20 20 20 20 20 20 20 20 6d 6f 6e 69 ┆was not created ! moni┆
0x31720…31740 74 6f 72 28 34 29 3b 20 20 21 20 67 65 74 20 70 72 6f 63 65 73 73 20 64 65 73 63 72 69 70 74 69 ┆tor(4); ! get process descripti┆
0x31740…31760 6f 6e 20 21 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 20 3e 20 30 20 74 68 65 6e 0a 20 20 20 20 ┆on ! if w0 > 0 then ┆
0x31760…3177a 20 20 20 20 62 65 67 69 6e 20 20 21 20 74 68 65 20 6e 61 6d 65 20 61 6c 72 65 ┆ begin ! the name alre┆
0x3177a…31780 (0x25c,0x630)
0x31780…317a0 61 64 79 20 64 69 64 20 64 65 73 63 72 69 62 65 20 61 20 70 72 6f 63 65 73 73 20 21 0a 20 20 20 ┆ady did describe a process ! ┆
0x317a0…317c0 20 20 20 20 20 20 20 69 66 20 77 33 3a 3d 62 2e 74 65 6d 3d 77 30 20 74 68 65 6e 20 21 20 6d 79 ┆ if w3:=b.tem=w0 then ! my┆
0x317c0…317e0 73 65 6c 66 20 21 20 67 6f 74 6f 20 74 65 73 74 65 78 69 73 74 65 6e 63 65 3b 0a 20 20 20 20 20 ┆self ! goto testexistence; ┆
0x317e0…31800 20 20 20 20 20 21 20 74 65 73 74 20 77 68 65 74 68 65 72 20 69 74 20 69 00 00 00 00 00 00 00 00 ┆ ! test whether it i ┆
0x31800…31806 (396,) (0x25c,0x631)
0x31806…31820 73 20 61 20 70 73 65 75 64 6f 20 70 72 6f 63 65 73 73 20 62 65 6c 6f 6e 67 69 ┆s a pseudo process belongi┆
0x31820…31840 6e 67 20 74 6f 20 74 65 6d 20 21 0a 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 20 77 30 3b 0a 20 ┆ng to tem ! w1:= w0; ┆
0x31840…31860 20 20 20 20 20 20 20 20 20 69 66 20 77 32 3a 3d 28 77 31 29 2e 77 6f 72 64 3d 36 34 20 74 68 65 ┆ if w2:=(w1).word=64 the┆
0x31860…3187e 6e 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 21 20 69 74 20 69 73 20 61 20 70 73 ┆n begin ! it is a ps┆
0x3187e…31884 (0x25c,0x632)
0x31884…318a0 65 75 64 6f 20 70 72 6f 63 65 73 73 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 ┆eudo process ! w┆
0x318a0…318c0 31 2b 31 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 33 3d 28 77 31 29 2e 77 6f 72 ┆1+10; if w3=(w1).wor┆
0x318c0…318e0 64 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 21 20 69 74 20 62 65 ┆d then begin ! it be┆
0x318e0…318fc 6c 6f 6e 67 73 20 74 6f 20 74 65 6d 20 21 0a 20 20 74 65 73 74 65 78 69 73 74 65 6e ┆longs to tem ! testexisten┆
0x318fc…31902 (0x25c,0x633)
0x31902…31920 63 65 3a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 20 31 3b 0a 20 20 20 20 ┆ce: w1:= 1; ┆
0x31920…31940 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 20 62 2e 70 68 70 6f 6f 6c 5f 74 6f 70 3b 0a 20 20 20 ┆ w3:= b.phpool_top; ┆
0x31940…31960 20 20 20 20 20 20 20 20 20 20 20 77 68 69 6c 65 20 77 33 2d 21 6c 65 6e 67 74 68 28 70 72 6f 63 ┆ while w3-!length(proc┆
0x31960…3197a 65 73 73 68 61 6e 64 6c 65 72 29 3e 3d 62 2e 70 68 70 6f 6f 6c 5f 66 73 74 20 ┆esshandler)>=b.phpool_fst ┆
0x3197a…31980 (0x25c,0x634)
0x31980…319a0 64 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 ┆do begin ┆
0x319a0…319c0 20 20 20 20 20 20 20 69 66 20 77 30 3d 28 77 33 29 2e 70 68 5f 70 73 70 72 6f 63 20 74 68 65 6e ┆ if w0=(w3).ph_psproc then┆
0x319c0…319e0 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 32 3a 3d 28 77 33 29 2e 70 68 5f ┆ if w2:=(w3).ph_┆
0x319e0…31a00 70 61 72 65 6e 74 3d 72 65 74 75 72 6e 2e 63 70 5f 73 65 6e 64 65 72 20 00 00 00 00 00 00 00 00 ┆parent=return.cp_sender ┆
0x31a00…31a06 (397,) (0x25c,0x635)
0x31a06…31a20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 20 ┆then w1:= ┆
0x31a20…31a40 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆0; end; ┆
0x31a40…31a60 20 20 20 20 69 66 20 20 77 31 3e 30 20 74 68 65 6e 20 67 6f 74 6f 20 6f 6b 3b 0a 20 20 20 20 20 ┆ if w1>0 then goto ok; ┆
0x31a60…31a7e 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 ┆ end; end; ┆
0x31a7e…31a84 (0x25c,0x636)
0x31a84…31aa0 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 73 61 76 65 77 30 3a 3d 77 30 ┆ end; savew0:=w0┆
0x31aa0…31ac0 3a 3d 20 30 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 74 65 73 74 6f 75 74 28 2e ┆:= 0; end; testout(.┆
0x31ac0…31ae0 77 33 2e 2c 77 30 3a 3d 21 6c 65 6e 67 74 68 28 70 72 6f 63 65 73 73 68 61 6e 64 6c 65 72 29 2c ┆w3.,w0:=!length(processhandler),┆
0x31ae0…31afc 77 31 3a 3d 72 65 74 75 72 6e 2e 63 70 5f 70 68 68 65 61 64 2c 77 32 3a 3d 35 33 29 ┆w1:=return.cp_phhead,w2:=53)┆
0x31afc…31b02 (0x25c,0x637)
0x31b02…31b20 3b 0a 20 20 20 20 20 20 77 30 3a 3d 73 61 76 65 77 30 3b 0a 20 20 20 20 20 20 66 32 3a 3d ┆; w0:=savew0; f2:=┆
0x31b20…31b40 73 61 76 65 66 32 3b 0a 20 20 20 20 20 20 77 33 3a 3d 72 65 74 75 72 6e 3b 0a 20 20 20 20 65 6e ┆savef2; w3:=return; en┆
0x31b40…31b60 64 3b 0a 20 20 65 6e 64 3b 20 20 21 20 63 72 65 61 74 65 5f 70 68 20 21 0a 0a 0a 0a 20 20 62 6f ┆d; end; ! create_ph ! bo┆
0x31b60…31b7a 64 79 20 6f 66 20 72 65 6d 6f 76 65 5f 70 68 0a 20 20 62 65 67 69 6e 0a 20 20 ┆dy of remove_ph begin ┆
0x31b7a…31b80 (0x25c,0x638)
0x31b80…31ba0 20 20 69 6e 63 6f 64 65 0a 20 20 20 20 20 20 64 6f 75 62 6c 65 20 73 61 76 65 66 31 3b 0a 20 20 ┆ incode double savef1; ┆
0x31ba0…31bc0 20 20 20 20 77 6f 72 64 20 73 61 76 65 77 32 3b 0a 20 20 20 20 20 20 72 65 66 20 72 65 74 75 72 ┆ word savew2; ref retur┆
0x31bc0…31be0 6e 3b 0a 20 20 20 20 20 20 74 65 78 74 28 31 31 29 20 70 73 6e 61 6d 65 3b 0a 20 20 20 20 62 65 ┆n; text(11) psname; be┆
0x31be0…31c00 67 69 6e 0a 20 20 20 20 20 20 73 61 76 65 66 31 3a 3d 66 31 3b 0a 20 20 00 00 00 00 00 00 00 00 ┆gin savef1:=f1; ┆
0x31c00…31c06 (398,) (0x25c,0x639)
0x31c06…31c20 20 20 20 20 73 61 76 65 77 32 3a 3d 77 32 3b 0a 20 20 20 20 20 20 72 65 74 75 ┆ savew2:=w2; retu┆
0x31c20…31c40 72 6e 3a 3d 77 33 3b 0a 20 20 20 20 20 20 77 31 3a 3d 28 77 33 29 2e 72 70 5f 70 68 68 65 61 64 ┆rn:=w3; w1:=(w3).rp_phhead┆
0x31c40…31c60 3b 0a 20 20 20 20 20 20 69 66 20 77 32 3a 3d 28 77 31 29 2e 63 5f 6d 62 75 66 20 3e 20 30 20 74 ┆; if w2:=(w1).c_mbuf > 0 t┆
0x31c60…31c7e 68 65 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 20 20 21 20 61 6e 73 77 65 72 20 70 65 6e 64 ┆hen begin ! answer pend┆
0x31c7e…31c84 (0x25c,0x63a)
0x31c84…31ca0 69 6e 67 20 6d 65 73 73 61 67 65 20 77 69 74 68 20 72 65 73 75 6c 74 20 32 20 21 0a ┆ing message with result 2 ! ┆
0x31ca0…31cc0 20 20 20 20 20 20 20 20 77 30 3a 3d 32 3b 0a 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 32 ┆ w0:=2; monitor(2┆
0x31cc0…31ce0 32 29 3b 20 20 21 20 73 65 6e 64 20 61 6e 73 77 65 72 20 21 0a 20 20 20 20 20 20 65 6e 64 3b 0a ┆2); ! send answer ! end; ┆
0x31ce0…31cfc 20 20 20 20 20 20 6f 70 65 6e 28 2e 77 33 2e 2c 77 30 3a 3d 32 30 30 30 2c 77 32 3a ┆ open(.w3.,w0:=2000,w2:┆
0x31cfc…31d02 (0x25c,0x63b)
0x31d02…31d20 3d 28 77 31 29 2e 70 68 5f 71 72 65 73 65 72 76 65 29 3b 20 21 20 6f 70 65 6e 20 66 6f 72 ┆=(w1).ph_qreserve); ! open for┆
0x31d20…31d40 20 61 6c 6c 20 77 61 69 74 69 6e 67 20 74 68 27 73 20 21 0a 20 20 20 20 20 20 69 6e 69 74 5f 61 ┆ all waiting th's ! init_a┆
0x31d40…31d60 72 65 61 28 2e 77 33 2e 2c 77 31 29 3b 0a 20 20 20 20 20 20 77 30 3a 3d 30 3b 0a 20 20 20 20 20 ┆rea(.w3.,w1); w0:=0; ┆
0x31d60…31d7a 20 28 77 31 29 2e 63 5f 6d 62 75 66 3a 3d 77 30 3b 0a 20 20 20 20 20 20 28 77 ┆ (w1).c_mbuf:=w0; (w┆
0x31d7a…31d80 (0x25c,0x63c)
0x31d80…31da0 31 29 2e 70 68 5f 70 61 72 65 6e 74 3a 3d 77 30 3b 0a 20 20 20 20 20 20 28 77 31 29 2e 70 68 5f ┆1).ph_parent:=w0; (w1).ph_┆
0x31da0…31dc0 63 68 69 6c 64 3a 3d 77 30 3b 0a 20 20 20 20 20 20 77 32 3a 3d 28 77 31 29 2e 70 68 5f 70 73 70 ┆child:=w0; w2:=(w1).ph_psp┆
0x31dc0…31de0 72 6f 63 3b 0a 20 20 20 20 20 20 28 77 31 29 2e 70 68 5f 70 73 70 72 6f 63 3a 3d 77 30 3b 0a 20 ┆roc; (w1).ph_psproc:=w0; ┆
0x31de0…31e00 20 20 20 20 20 28 77 31 29 2e 70 68 5f 73 65 6e 73 65 64 3a 3d 20 77 30 00 00 00 00 00 00 00 00 ┆ (w1).ph_sensed:= w0 ┆
0x31e00…31e06 (399,) (0x25c,0x63d)
0x31e06…31e20 3b 0a 20 20 20 20 20 20 28 77 31 29 2e 70 68 5f 62 6c 6f 63 6b 75 73 65 64 3a ┆; (w1).ph_blockused:┆
0x31e20…31e40 3d 20 77 30 3b 0a 20 20 20 20 20 20 28 77 31 29 2e 70 68 5f 6f 75 74 63 61 72 3a 3d 20 77 30 3b ┆= w0; (w1).ph_outcar:= w0;┆
0x31e40…31e60 0a 20 20 20 20 20 20 69 66 20 77 32 20 3e 20 30 20 74 68 65 6e 0a 20 20 20 20 20 20 62 65 67 69 ┆ if w2 > 0 then begi┆
0x31e60…31e7e 6e 20 20 21 20 74 65 73 74 20 77 68 65 74 68 65 72 20 70 73 65 75 64 6f 20 70 72 6f 63 65 ┆n ! test whether pseudo proce┆
0x31e7e…31e84 (0x25c,0x63e)
0x31e84…31ea0 73 73 20 69 73 20 74 6f 20 62 65 20 72 65 6d 6f 76 65 64 20 21 0a 20 20 20 20 20 20 ┆ss is to be removed ! ┆
0x31ea0…31ec0 20 20 77 31 3a 3d 62 2e 70 68 70 6f 6f 6c 5f 74 6f 70 3b 0a 20 20 20 20 20 20 20 20 77 68 69 6c ┆ w1:=b.phpool_top; whil┆
0x31ec0…31ee0 65 20 77 31 2d 21 6c 65 6e 67 74 68 28 70 72 6f 63 65 73 73 68 61 6e 64 6c 65 72 29 20 3e 3d 20 ┆e w1-!length(processhandler) >= ┆
0x31ee0…31efc 62 2e 70 68 70 6f 6f 6c 5f 66 73 74 20 64 6f 0a 20 20 20 20 20 20 20 20 62 65 67 69 ┆b.phpool_fst do begi┆
0x31efc…31f02 (0x25c,0x63f)
0x31f02…31f20 6e 20 20 21 20 63 6f 75 6e 74 20 70 68 73 20 75 73 69 6e 67 20 74 68 65 20 73 61 6d 65 20 ┆n ! count phs using the same ┆
0x31f20…31f40 70 73 65 75 64 6f 20 70 72 6f 63 65 73 73 20 21 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 32 ┆pseudo process ! if w2┆
0x31f40…31f60 20 3d 20 28 77 31 29 2e 70 68 5f 70 73 70 72 6f 63 20 74 68 65 6e 20 77 30 2b 31 3b 0a 20 20 20 ┆ = (w1).ph_psproc then w0+1; ┆
0x31f60…31f7a 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 20 3d 20 ┆ end; if w0 = ┆
0x31f7a…31f80 (0x25c,0x640)
0x31f80…31fa0 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 20 21 20 72 65 6d 6f 76 65 20 70 ┆0 then begin ! remove p┆
0x31fa0…31fc0 73 65 75 64 6f 20 70 72 6f 63 65 73 73 20 21 0a 20 20 20 20 20 20 20 20 20 20 6d 6f 76 65 28 2e ┆seudo process ! move(.┆
0x31fc0…31fe0 77 33 2e 2c 77 30 3a 3d 38 2c 77 31 3a 3d 77 32 2b 32 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 70 ┆w3.,w0:=8,w1:=w2+2,w2:=address(p┆
0x31fe0…32000 73 6e 61 6d 65 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 77 00 00 00 00 00 00 00 00 ┆sname)); w3:=w ┆
0x32000…32006 (400,) (0x25c,0x641)
0x32006…32020 32 3b 0a 20 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 36 34 29 3b 20 ┆2; monitor(64); ┆
0x32020…32040 20 21 20 72 65 6d 6f 76 65 20 70 72 6f 63 65 73 73 20 21 0a 20 20 20 20 20 20 20 20 65 6e 64 3b ┆ ! remove process ! end;┆
0x32040…32060 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 6c 69 6e 6b 28 2e 77 33 2e 2c 77 31 3a 3d ┆ end; link(.w3.,w1:=┆
0x32060…3207e 72 65 74 75 72 6e 2e 72 70 5f 70 68 68 65 61 64 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 62 ┆return.rp_phhead,w2:=address(b┆
0x3207e…32084 (0x25c,0x642)
0x32084…320a0 2e 77 61 69 74 71 66 73 74 29 29 3b 0a 20 20 20 20 20 20 69 66 20 77 32 3a 3d 28 77 ┆.waitqfst)); if w2:=(w┆
0x320a0…320c0 31 29 2e 70 68 5f 64 75 6d 6d 79 6d 65 73 73 20 3e 20 30 20 74 68 65 6e 0a 20 20 20 20 20 20 62 ┆1).ph_dummymess > 0 then b┆
0x320c0…320e0 65 67 69 6e 20 20 21 20 72 65 67 72 65 74 20 64 75 6d 6d 79 20 6d 65 73 73 61 67 65 20 21 0a 20 ┆egin ! regret dummy message ! ┆
0x320e0…320fc 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 38 32 29 3b 20 20 21 20 72 65 67 72 65 ┆ monitor(82); ! regre┆
0x320fc…32102 (0x25c,0x643)
0x32102…32120 74 20 6d 65 73 73 61 67 65 20 21 0a 20 20 20 20 20 20 20 20 77 30 3a 3d 30 3b 0a 20 20 20 ┆t message ! w0:=0; ┆
0x32120…32140 20 20 20 20 20 28 77 31 29 2e 70 68 5f 64 75 6d 6d 79 6d 65 73 73 3a 3d 77 30 3b 0a 20 20 20 20 ┆ (w1).ph_dummymess:=w0; ┆
0x32140…32160 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 77 33 3a 3d 62 2e 74 68 70 6f 6f 6c 5f 74 6f 70 3b 0a 20 ┆ end; w3:=b.thpool_top; ┆
0x32160…3217a 20 20 20 20 20 77 68 69 6c 65 20 77 33 2d 21 6c 65 6e 67 74 68 28 74 65 72 6d ┆ while w3-!length(term┆
0x3217a…32180 (0x25c,0x644)
0x32180…321a0 69 6e 61 6c 68 61 6e 64 6c 65 72 29 20 3e 3d 20 62 2e 74 68 70 6f 6f 6c 5f 66 73 74 20 64 6f 0a ┆inalhandler) >= b.thpool_fst do ┆
0x321a0…321c0 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 69 66 20 77 31 20 3d 20 28 77 33 29 ┆ begin if w1 = (w3)┆
0x321c0…321e0 2e 74 68 5f 70 61 72 65 6e 74 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 ┆.th_parent then begin ┆
0x321e0…32200 20 20 20 20 20 20 20 20 77 30 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ w0:=0; ┆
0x32200…32206 (401,) (0x25c,0x645)
0x32206…32220 20 28 77 33 29 2e 74 68 5f 70 61 72 65 6e 74 3a 3d 77 30 3b 0a 20 20 20 20 20 ┆ (w3).th_parent:=w0; ┆
0x32220…32240 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 74 65 73 74 6f 75 74 ┆ end; end; testout┆
0x32240…32260 28 2e 77 33 2e 2c 77 30 3a 3d 21 6c 65 6e 67 74 68 28 70 72 6f 63 65 73 73 68 61 6e 64 6c 65 72 ┆(.w3.,w0:=!length(processhandler┆
0x32260…3227e 29 2c 77 31 2c 77 32 3a 3d 35 34 29 3b 0a 20 20 20 20 20 20 66 31 3a 3d 73 61 76 65 66 31 ┆),w1,w2:=54); f1:=savef1┆
0x3227e…32284 (0x25c,0x646)
0x32284…322a0 3b 0a 20 20 20 20 20 20 77 32 3a 3d 73 61 76 65 77 32 3b 0a 20 20 20 20 20 20 77 33 ┆; w2:=savew2; w3┆
0x322a0…322c0 3a 3d 72 65 74 75 72 6e 3b 0a 20 20 20 20 65 6e 64 3b 0a 20 20 65 6e 64 3b 20 20 21 20 72 65 6d ┆:=return; end; end; ! rem┆
0x322c0…322e0 6f 76 65 5f 70 68 20 21 0a 0a 0a 0a 20 20 62 6f 64 79 20 6f 66 20 63 72 65 61 74 65 5f 74 68 0a ┆ove_ph ! body of create_th ┆
0x322e0…322fc 20 20 62 65 67 69 6e 0a 20 20 20 20 69 6e 63 6f 64 65 0a 20 20 20 20 20 20 64 6f 75 ┆ begin incode dou┆
0x322fc…32302 (0x25c,0x647)
0x32302…32320 62 6c 65 20 73 61 76 65 66 31 3b 0a 20 20 20 20 20 20 77 6f 72 64 20 69 6e 63 61 72 3a 3d ┆ble savef1; word incar:=┆
0x32320…32340 20 30 2c 20 73 61 76 65 77 32 3b 0a 20 20 20 20 20 20 72 65 66 20 72 65 74 75 72 6e 3b 0a 20 20 ┆ 0, savew2; ref return; ┆
0x32340…32360 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 73 61 76 65 66 31 3a 3d 66 31 3b 0a 20 20 20 20 20 20 ┆ begin savef1:=f1; ┆
0x32360…3237a 73 61 76 65 77 32 3a 3d 77 32 3b 0a 20 20 20 20 20 20 72 65 74 75 72 6e 3a 3d ┆savew2:=w2; return:=┆
0x3237a…32380 (0x25c,0x648)
0x32380…323a0 77 33 3b 0a 20 20 20 20 20 20 77 31 3a 3d 28 77 33 29 2e 63 74 5f 74 68 68 65 61 64 3b 0a 20 20 ┆w3; w1:=(w3).ct_thhead; ┆
0x323a0…323c0 20 20 20 20 28 77 31 29 2e 74 68 5f 6e 64 69 73 70 6c 61 79 3a 3d 20 77 30 3a 3d 20 30 3b 0a 20 ┆ (w1).th_ndisplay:= w0:= 0; ┆
0x323c0…323e0 20 20 20 20 20 28 77 31 29 2e 74 68 5f 74 79 70 65 3a 3d 20 77 30 3a 3d 20 28 77 33 29 2e 63 74 ┆ (w1).th_type:= w0:= (w3).ct┆
0x323e0…32400 5f 74 79 70 65 3b 0a 20 20 20 20 20 20 21 20 66 6f 72 63 65 20 74 65 72 00 00 00 00 00 00 00 00 ┆_type; ! force ter ┆
0x32400…32406 (402,) (0x25c,0x649)
0x32406…32420 6d 69 6e 61 6c 20 68 61 6e 64 6c 65 72 20 69 6e 74 6f 20 73 74 61 72 74 20 70 ┆minal handler into start p┆
0x32420…32440 6f 73 69 74 69 6f 6e 20 21 0a 20 20 20 20 20 20 74 68 28 2e 77 33 2e 29 3b 0a 20 20 20 20 20 20 ┆osition ! th(.w3.); ┆
0x32440…32460 28 77 31 29 2e 63 5f 69 63 3a 3d 77 33 3b 0a 20 20 20 20 20 20 69 6e 63 61 72 3a 3d 20 77 30 3a ┆(w1).c_ic:=w3; incar:= w0:┆
0x32460…3247e 3d 20 69 6e 63 61 72 2b 31 3b 0a 20 20 20 20 20 20 28 77 31 29 2e 74 68 5f 69 6e 63 61 72 ┆= incar+1; (w1).th_incar┆
0x3247e…32484 (0x25c,0x64a)
0x32484…324a0 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 28 77 31 29 2e 74 68 5f 6c 6f 63 61 6c 69 64 ┆:= w0; (w1).th_localid┆
0x324a0…324c0 3a 3d 77 30 3a 3d 28 77 33 3a 3d 72 65 74 75 72 6e 29 2e 63 74 5f 6c 6f 63 61 6c 69 64 3b 0a 20 ┆:=w0:=(w3:=return).ct_localid; ┆
0x324c0…324e0 20 20 20 20 20 28 77 31 29 2e 74 68 5f 6d 61 78 62 75 66 3a 3d 77 30 3a 3d 28 77 33 29 2e 63 74 ┆ (w1).th_maxbuf:=w0:=(w3).ct┆
0x324e0…324fc 5f 62 75 66 73 3b 0a 20 20 20 20 20 20 28 77 31 29 2e 74 68 5f 74 69 6d 65 72 6d 61 ┆_bufs; (w1).th_timerma┆
0x324fc…32502 (0x25c,0x64b)
0x32502…32520 78 3a 3d 77 30 3a 3d 28 77 33 29 2e 63 74 5f 74 69 6d 65 72 73 3b 0a 20 20 20 20 20 20 28 ┆x:=w0:=(w3).ct_timers; (┆
0x32520…32540 77 31 29 2e 74 68 5f 6d 61 73 6b 3a 3d 20 77 30 3a 3d 20 28 77 33 29 2e 63 74 5f 6d 61 73 6b 3b ┆w1).th_mask:= w0:= (w3).ct_mask;┆
0x32540…32560 0a 20 20 20 20 20 20 28 77 31 29 2e 74 68 5f 73 75 62 73 74 3a 3d 20 77 30 3a 3d 20 28 77 33 29 ┆ (w1).th_subst:= w0:= (w3)┆
0x32560…3257a 2e 63 74 5f 73 75 62 73 74 3b 0a 20 20 20 20 20 20 28 77 31 29 2e 74 68 5f 70 ┆.ct_subst; (w1).th_p┆
0x3257a…32580 (0x25c,0x64c)
0x32580…325a0 72 6f 63 64 65 73 63 3a 3d 77 30 3a 3d 28 77 33 29 2e 63 74 5f 74 65 72 6d 70 72 6f 63 3b 0a 20 ┆rocdesc:=w0:=(w3).ct_termproc; ┆
0x325a0…325c0 20 20 20 20 20 77 32 3a 3d 61 64 64 72 65 73 73 28 28 77 31 29 2e 74 68 5f 6e 61 6d 65 29 3b 0a ┆ w2:=address((w1).th_name); ┆
0x325c0…325e0 20 20 20 20 20 20 77 31 3a 3d 77 30 2b 32 3b 0a 20 20 20 20 20 20 6d 6f 76 65 28 2e 77 33 2e 2c ┆ w1:=w0+2; move(.w3.,┆
0x325e0…32600 77 30 3a 3d 38 2c 77 31 2c 77 32 29 3b 0a 20 20 20 20 20 20 69 66 20 77 00 00 00 00 00 00 00 00 ┆w0:=8,w1,w2); if w ┆
0x32600…32606 (403,) (0x25c,0x64d)
0x32606…32620 30 3a 3d 72 65 74 75 72 6e 2e 63 74 5f 74 79 70 65 3e 3d 34 20 74 68 65 6e 0a ┆0:=return.ct_type>=4 then ┆
0x32620…32640 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 77 33 3a 3d 20 77 32 3b 0a 20 20 20 ┆ begin w3:= w2; ┆
0x32640…32660 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 38 29 3b 20 21 20 72 65 73 65 72 76 65 20 21 0a 21 74 65 ┆ monitor(8); ! reserve ! !te┆
0x32660…3267e 73 74 20 31 30 39 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 6c 69 6e 6b 28 ┆st 109; end; link(┆
0x3267e…32684 (0x25c,0x64e)
0x32684…326a0 2e 77 33 2e 2c 77 31 3a 3d 72 65 74 75 72 6e 2e 63 74 5f 74 68 68 65 61 64 2c 77 32 ┆.w3.,w1:=return.ct_thhead,w2┆
0x326a0…326c0 3a 3d 61 64 64 72 65 73 73 28 62 2e 61 63 74 69 76 71 66 73 74 29 29 3b 0a 20 20 20 20 20 20 69 ┆:=address(b.activqfst)); i┆
0x326c0…326e0 6e 69 74 5f 61 72 65 61 28 2e 77 33 2e 2c 77 31 29 3b 0a 20 20 20 20 20 20 74 65 73 74 6f 75 74 ┆nit_area(.w3.,w1); testout┆
0x326e0…326fc 28 2e 77 33 2e 2c 77 30 3a 3d 21 6c 65 6e 67 74 68 28 74 65 72 6d 69 6e 61 6c 68 61 ┆(.w3.,w0:=!length(terminalha┆
0x326fc…32702 (0x25c,0x64f)
0x32702…32720 6e 64 6c 65 72 29 2c 77 31 2c 77 32 3a 3d 35 35 29 3b 0a 20 20 20 20 20 20 66 31 3a 3d 73 ┆ndler),w1,w2:=55); f1:=s┆
0x32720…32740 61 76 65 66 31 3b 0a 20 20 20 20 20 20 77 32 3a 3d 73 61 76 65 77 32 3b 0a 20 20 20 20 20 20 77 ┆avef1; w2:=savew2; w┆
0x32740…32760 33 3a 3d 72 65 74 75 72 6e 3b 0a 20 20 20 20 65 6e 64 3b 0a 20 20 65 6e 64 3b 20 20 21 20 63 72 ┆3:=return; end; end; ! cr┆
0x32760…3277a 65 61 74 65 5f 74 68 20 21 0a 0a 0a 0a 20 20 62 6f 64 79 20 6f 66 20 72 65 6d ┆eate_th ! body of rem┆
0x3277a…32780 (0x25c,0x650)
0x32780…327a0 6f 76 65 5f 74 68 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 69 6e 63 6f 64 65 0a 20 20 20 20 20 20 ┆ove_th begin incode ┆
0x327a0…327c0 64 6f 75 62 6c 65 20 73 61 76 65 66 31 2c 73 61 76 65 66 33 3b 0a 20 20 20 20 62 65 67 69 6e 0a ┆double savef1,savef3; begin ┆
0x327c0…327e0 20 20 20 20 20 20 73 61 76 65 66 31 3a 3d 66 31 3b 0a 20 20 20 20 20 20 73 61 76 65 66 33 3a 3d ┆ savef1:=f1; savef3:=┆
0x327e0…32800 66 33 3b 0a 20 20 20 20 20 20 77 31 3a 3d 28 77 33 29 2e 72 74 5f 74 68 00 00 00 00 00 00 00 00 ┆f3; w1:=(w3).rt_th ┆
0x32800…32806 (404,) (0x25c,0x651)
0x32806…32820 68 65 61 64 3b 0a 20 20 20 20 20 20 69 66 20 77 30 3a 3d 20 28 77 32 3a 3d 28 ┆head; if w0:= (w2:=(┆
0x32820…32840 77 31 29 2e 74 68 5f 63 6f 6e 74 72 6f 6c 29 2e 73 65 6d 5f 76 61 6c 75 65 20 3c 20 30 20 74 68 ┆w1).th_control).sem_value < 0 th┆
0x32840…32860 65 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 70 6f 6f 6c 20 68 61 6e 64 ┆en begin comment pool hand┆
0x32860…3287e 6c 65 72 20 77 61 69 74 69 6e 67 20 6f 6e 20 63 6f 6e 74 72 6f 6c 20 6c 6f 63 6b 3b 0a 20 ┆ler waiting on control lock; ┆
0x3287e…32884 (0x25c,0x652)
0x32884…328a0 20 20 20 20 20 20 20 6f 70 65 6e 20 28 2e 77 33 2e 2c 77 30 3a 3d 31 2c 20 77 32 29 ┆ open (.w3.,w0:=1, w2)┆
0x328a0…328c0 3b 0a 20 20 20 20 20 20 20 20 77 32 3a 3d 20 28 77 32 3a 3d 28 77 31 29 2e 74 68 5f 70 61 72 65 ┆; w2:= (w2:=(w1).th_pare┆
0x328c0…328e0 6e 74 29 2e 63 5f 6d 62 75 66 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 32 3e 30 20 74 68 65 6e ┆nt).c_mbuf; if w2>0 then┆
0x328e0…328fc 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 73 65 6e 64 20 ┆ begin comment send ┆
0x328fc…32902 (0x25c,0x653)
0x32902…32920 61 6e 73 77 65 72 20 74 6f 20 63 6f 6e 74 72 6f 6c 20 6d 65 73 73 61 67 65 3b 0a 20 20 20 ┆answer to control message; ┆
0x32920…32940 20 20 20 20 20 20 20 77 30 3a 3d 20 34 3b 20 21 20 64 69 73 63 6f 6e 6e 65 63 74 65 64 20 21 0a ┆ w0:= 4; ! disconnected ! ┆
0x32940…32960 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 20 20 28 77 32 3a ┆ w0:= 0; (w2:┆
0x32960…3297a 3d 28 77 31 29 2e 74 68 5f 70 61 72 65 6e 74 29 2e 63 5f 6d 62 75 66 3a 3d 20 ┆=(w1).th_parent).c_mbuf:= ┆
0x3297a…32980 (0x25c,0x654)
0x32980…329a0 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 32 32 29 3b 20 21 20 73 65 6e ┆w0; monitor(22); ! sen┆
0x329a0…329c0 64 20 61 6e 73 77 65 72 20 21 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 65 6e ┆d answer ! end; en┆
0x329c0…329e0 64 3b 0a 20 20 20 20 20 20 66 31 3a 3d 20 73 61 76 65 66 31 3b 0a 20 20 20 20 20 20 66 33 3a 3d ┆d; f1:= savef1; f3:=┆
0x329e0…32a00 20 73 61 76 65 66 33 3b 0a 20 20 20 20 20 20 77 31 3a 3d 20 28 77 33 29 00 00 00 00 00 00 00 00 ┆ savef3; w1:= (w3) ┆
0x32a00…32a06 (405,) (0x25c,0x655)
0x32a06…32a20 2e 72 74 5f 74 68 68 65 61 64 3b 0a 20 20 20 20 20 20 77 32 3a 3d 20 28 77 31 ┆.rt_thhead; w2:= (w1┆
0x32a20…32a40 29 2e 74 68 5f 70 61 72 65 6e 74 3b 0a 20 20 20 20 20 20 69 66 20 77 32 3e 30 20 74 68 65 6e 0a ┆).th_parent; if w2>0 then ┆
0x32a40…32a60 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 31 29 2e 74 68 5f 69 6e 63 61 72 3d 28 77 32 29 2e ┆ if w0:=(w1).th_incar=(w2).┆
0x32a60…32a7e 70 68 5f 74 68 69 6e 63 61 72 20 74 68 65 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 20 21 20 ┆ph_thincar then begin ! ┆
0x32a7e…32a84 (0x25c,0x656)
0x32a84…32aa0 74 68 20 72 65 73 65 72 76 65 72 20 6f 66 20 70 68 27 73 20 73 70 6f 6f 6c 20 71 75 ┆th reserver of ph's spool qu┆
0x32aa0…32ac0 65 75 65 20 21 0a 20 20 20 20 20 20 20 20 70 75 74 5f 6f 70 28 2e 77 33 2e 2c 77 30 3a 3d 21 6c ┆eue ! put_op(.w3.,w0:=!l┆
0x32ac0…32ae0 65 6e 67 74 68 28 74 65 72 6d 62 75 66 68 65 61 64 29 2c 77 31 2c 77 32 29 3b 0a 20 20 20 20 20 ┆ength(termbufhead),w1,w2); ┆
0x32ae0…32afc 20 20 20 28 77 32 29 2e 70 68 5f 74 68 69 6e 63 61 72 3a 3d 20 77 30 3a 3d 20 30 3b ┆ (w2).ph_thincar:= w0:= 0;┆
0x32afc…32b02 (0x25c,0x657)
0x32b02…32b20 0a 20 20 20 20 20 20 20 20 6f 70 65 6e 28 2e 77 33 2e 2c 77 30 3a 3d 31 2c 77 32 3a 3d 28 ┆ open(.w3.,w0:=1,w2:=(┆
0x32b20…32b40 77 32 29 2e 70 68 5f 71 72 65 73 65 72 76 65 29 3b 0a 20 20 20 20 20 20 20 20 77 30 3a 3d 20 30 ┆w2).ph_qreserve); w0:= 0┆
0x32b40…32b60 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 62 75 66 5f 73 74 61 74 75 73 3a 3d 20 77 30 3b 0a ┆; (w1).buf_status:= w0; ┆
0x32b60…32b7a 20 20 20 20 20 20 20 20 28 77 31 29 2e 62 75 66 5f 62 79 74 65 73 3a 3d 20 77 ┆ (w1).buf_bytes:= w┆
0x32b7a…32b80 (0x25c,0x658)
0x32b80…32ba0 30 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 62 75 66 5f 63 68 61 72 73 3a 3d 20 77 30 3b 0a ┆0; (w1).buf_chars:= w0; ┆
0x32ba0…32bc0 20 20 20 20 20 20 20 20 28 77 31 29 2e 62 75 66 5f 72 65 73 75 6c 74 3a 3d 20 77 30 3a 3d 20 34 ┆ (w1).buf_result:= w0:= 4┆
0x32bc0…32be0 3b 20 21 20 64 69 73 63 6f 6e 6e 65 63 74 20 21 0a 20 20 20 20 20 20 20 20 66 33 3a 3d 20 73 61 ┆; ! disconnect ! f3:= sa┆
0x32be0…32c00 76 65 66 33 3b 0a 20 20 20 20 20 20 20 20 77 32 3a 3d 20 28 77 33 29 2e 00 00 00 00 00 00 00 00 ┆vef3; w2:= (w3). ┆
0x32c00…32c06 (406,) (0x25c,0x659)
0x32c06…32c20 72 74 5f 74 68 68 65 61 64 3b 0a 20 20 20 20 20 20 20 20 77 30 3a 3d 20 28 77 ┆rt_thhead; w0:= (w┆
0x32c20…32c40 32 29 2e 74 68 5f 69 6e 63 61 72 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 62 75 66 5f 69 6e ┆2).th_incar; (w1).buf_in┆
0x32c40…32c60 63 61 72 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 77 31 3a 3d 20 ┆car:= w0; end; w1:= ┆
0x32c60…32c7e 28 77 33 29 2e 72 74 5f 74 68 68 65 61 64 3b 0a 20 20 20 20 20 20 77 30 3a 3d 20 30 3b 0a ┆(w3).rt_thhead; w0:= 0; ┆
0x32c7e…32c84 (0x25c,0x65a)
0x32c84…32ca0 20 20 20 20 20 20 28 77 31 29 2e 63 5f 6d 62 75 66 3a 3d 77 30 3b 0a 20 20 20 20 20 ┆ (w1).c_mbuf:=w0; ┆
0x32ca0…32cc0 20 28 77 31 29 2e 74 68 5f 70 61 72 65 6e 74 3a 3d 77 30 3b 0a 20 20 20 20 20 20 28 77 31 29 2e ┆ (w1).th_parent:=w0; (w1).┆
0x32cc0…32ce0 74 68 5f 6e 65 78 74 3a 3d 77 30 3b 0a 20 20 20 20 20 20 28 77 31 29 2e 74 68 5f 69 6e 63 61 72 ┆th_next:=w0; (w1).th_incar┆
0x32ce0…32cfc 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 28 77 31 29 2e 74 68 5f 6c 6f 63 61 6c 69 64 ┆:= w0; (w1).th_localid┆
0x32cfc…32d02 (0x25c,0x65b)
0x32d02…32d20 3a 3d 77 30 3b 0a 20 20 20 20 20 20 28 77 31 29 2e 74 68 5f 74 69 6d 65 72 63 6f 75 6e 74 ┆:=w0; (w1).th_timercount┆
0x32d20…32d40 3a 3d 77 30 3b 0a 20 20 20 20 20 20 28 77 31 29 2e 74 68 5f 75 73 65 64 62 75 66 3a 3d 77 30 3b ┆:=w0; (w1).th_usedbuf:=w0;┆
0x32d40…32d60 0a 20 20 20 20 20 20 28 77 31 29 2e 74 68 5f 62 6c 6f 63 6b 75 73 65 64 3a 3d 20 77 30 3b 0a 20 ┆ (w1).th_blockused:= w0; ┆
0x32d60…32d7a 20 20 20 20 20 28 77 31 29 2e 74 68 5f 70 72 6f 63 64 65 73 63 3a 3d 77 30 3b ┆ (w1).th_procdesc:=w0;┆
0x32d7a…32d80 (0x25c,0x65c)
0x32d80…32da0 0a 20 20 20 20 20 20 77 33 3a 3d 61 64 64 72 65 73 73 28 28 77 31 29 2e 74 68 5f 6e 61 6d 65 29 ┆ w3:=address((w1).th_name)┆
0x32da0…32dc0 3b 0a 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 31 30 29 3b 20 20 21 20 72 65 6c 65 61 73 65 20 ┆; monitor(10); ! release ┆
0x32dc0…32de0 74 65 72 6d 69 6e 61 6c 20 21 0a 20 20 20 20 20 20 28 77 33 29 2e 77 6f 72 64 3a 3d 77 30 3b 0a ┆terminal ! (w3).word:=w0; ┆
0x32de0…32e00 20 20 20 20 20 20 6c 69 6e 6b 28 2e 77 33 2e 2c 77 31 2c 77 32 3a 3d 61 00 00 00 00 00 00 00 00 ┆ link(.w3.,w1,w2:=a ┆
0x32e00…32e06 (407,) (0x25c,0x65d)
0x32e06…32e20 64 64 72 65 73 73 28 62 2e 77 61 69 74 71 66 73 74 29 29 3b 0a 20 20 20 20 20 ┆ddress(b.waitqfst)); ┆
0x32e20…32e40 20 69 6e 69 74 5f 61 72 65 61 28 2e 77 33 2e 2c 77 31 29 3b 0a 20 20 20 20 20 20 74 65 73 74 6f ┆ init_area(.w3.,w1); testo┆
0x32e40…32e60 75 74 28 2e 77 33 2e 2c 77 30 3a 3d 21 6c 65 6e 67 74 68 28 74 65 72 6d 69 6e 61 6c 68 61 6e 64 ┆ut(.w3.,w0:=!length(terminalhand┆
0x32e60…32e7e 6c 65 72 29 2c 77 31 2c 77 32 3a 3d 35 36 29 3b 0a 20 20 20 20 20 20 66 31 3a 3d 73 61 76 ┆ler),w1,w2:=56); f1:=sav┆
0x32e7e…32e84 (0x25c,0x65e)
0x32e84…32ea0 65 66 31 3b 0a 20 20 20 20 20 20 66 33 3a 3d 73 61 76 65 66 33 3b 0a 20 20 20 20 65 ┆ef1; f3:=savef3; e┆
0x32ea0…32ec0 6e 64 3b 0a 20 20 65 6e 64 3b 20 20 21 20 72 65 6d 6f 76 65 5f 74 68 20 21 0a 0a 0a 0a 20 20 62 ┆nd; end; ! remove_th ! b┆
0x32ec0…32ee0 6f 64 79 20 6f 66 20 69 6e 69 74 5f 61 72 65 61 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 69 6e 63 ┆ody of init_area begin inc┆
0x32ee0…32efc 6f 64 65 0a 20 20 20 20 20 20 64 6f 75 62 6c 65 20 73 61 76 65 66 31 3b 0a 20 20 20 ┆ode double savef1; ┆
0x32efc…32f02 (0x25c,0x65f)
0x32f02…32f20 20 20 20 77 6f 72 64 20 73 61 76 65 77 32 3b 0a 20 20 20 20 20 20 72 65 66 20 72 65 74 75 ┆ word savew2; ref retu┆
0x32f20…32f40 72 6e 3b 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 73 61 76 65 66 31 3a 3d 66 31 3b 0a ┆rn; begin savef1:=f1; ┆
0x32f40…32f60 20 20 20 20 20 20 73 61 76 65 77 32 3a 3d 77 32 3b 0a 20 20 20 20 20 20 72 65 74 75 72 6e 3a 3d ┆ savew2:=w2; return:=┆
0x32f60…32f7a 77 33 3b 0a 20 20 20 20 20 20 28 77 31 29 2e 61 5f 66 69 72 73 74 66 75 6c 6c ┆w3; (w1).a_firstfull┆
0x32f7a…32f80 (0x25c,0x660)
0x32f80…32fa0 3a 3d 77 30 3a 3d 28 77 31 29 2e 61 5f 66 69 72 73 74 3b 0a 20 20 20 20 20 20 28 77 31 29 2e 61 ┆:=w0:=(w1).a_first; (w1).a┆
0x32fa0…32fc0 5f 66 69 72 73 74 66 72 65 65 3a 3d 77 30 3b 0a 20 20 20 20 20 20 77 32 3a 3d 28 77 31 29 2e 61 ┆_firstfree:=w0; w2:=(w1).a┆
0x32fc0…32fe0 5f 62 79 74 65 73 66 72 65 65 3b 0a 20 20 20 20 20 20 77 30 3a 3d 28 77 31 29 2e 61 5f 74 6f 70 ┆_bytesfree; w0:=(w1).a_top┆
0x32fe0…33000 2d 28 77 31 29 2e 61 5f 66 69 72 73 74 2d 28 77 32 29 2e 73 65 6d 5f 76 00 00 00 00 00 00 00 00 ┆-(w1).a_first-(w2).sem_v ┆
0x33000…33006 (408,) (0x25c,0x661)
0x33006…33020 61 6c 75 65 2d 35 31 32 3b 0a 20 20 20 20 20 20 6f 70 65 6e 28 2e 77 33 2e 2c ┆alue-512; open(.w3.,┆
0x33020…33040 77 30 2c 77 32 29 3b 20 20 20 21 20 72 65 6c 65 61 73 65 20 61 6c 6c 20 6f 63 63 75 70 69 65 64 ┆w0,w2); ! release all occupied┆
0x33040…33060 20 62 79 74 65 73 20 21 0a 20 20 20 20 20 20 28 77 32 3a 3d 28 77 31 29 2e 61 5f 72 65 63 66 75 ┆ bytes ! (w2:=(w1).a_recfu┆
0x33060…3307e 6c 6c 29 2e 73 65 6d 5f 76 61 6c 75 65 3a 3d 77 30 3a 3d 30 3b 0a 20 20 20 20 20 20 66 31 ┆ll).sem_value:=w0:=0; f1┆
0x3307e…33084 (0x25c,0x662)
0x33084…330a0 3a 3d 73 61 76 65 66 31 3b 0a 20 20 20 20 20 20 77 32 3a 3d 73 61 76 65 77 32 3b 0a ┆:=savef1; w2:=savew2; ┆
0x330a0…330c0 20 20 20 20 20 20 77 33 3a 3d 72 65 74 75 72 6e 3b 0a 20 20 20 20 65 6e 64 3b 0a 20 20 65 6e 64 ┆ w3:=return; end; end┆
0x330c0…330e0 3b 20 20 21 20 69 6e 69 74 5f 61 72 65 61 20 21 0a 0a 0a 0a 20 20 62 6f 64 79 20 6f 66 20 63 6f ┆; ! init_area ! body of co┆
0x330e0…330fc 6e 6e 65 63 74 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 69 6e 63 6f 64 65 0a 20 20 20 ┆nnect begin incode ┆
0x330fc…33102 (0x25c,0x663)
0x33102…33120 20 20 20 64 6f 75 62 6c 65 20 73 61 76 65 66 31 2c 73 61 76 65 66 33 3b 0a 20 20 20 20 62 ┆ double savef1,savef3; b┆
0x33120…33140 65 67 69 6e 0a 20 20 20 20 20 20 73 61 76 65 66 31 3a 3d 66 31 3b 0a 20 20 20 20 20 20 73 61 76 ┆egin savef1:=f1; sav┆
0x33140…33160 65 66 33 3a 3d 66 33 3b 0a 20 20 20 20 20 20 77 32 3a 3d 28 77 33 29 2e 63 6f 6e 5f 70 68 68 65 ┆ef3:=f3; w2:=(w3).con_phhe┆
0x33160…3317a 61 64 3b 0a 20 20 20 20 20 20 77 30 3a 3d 28 77 32 29 2e 70 68 5f 63 68 69 6c ┆ad; w0:=(w2).ph_chil┆
0x3317a…33180 (0x25c,0x664)
0x33180…331a0 64 3b 0a 20 20 20 20 20 20 28 77 32 29 2e 70 68 5f 63 68 69 6c 64 3a 3d 77 31 3a 3d 28 77 33 29 ┆d; (w2).ph_child:=w1:=(w3)┆
0x331a0…331c0 2e 63 6f 6e 5f 74 68 68 65 61 64 3b 0a 20 20 20 20 20 20 28 77 31 29 2e 74 68 5f 6e 65 78 74 3a ┆.con_thhead; (w1).th_next:┆
0x331c0…331e0 3d 77 30 3b 0a 20 20 20 20 20 20 28 77 31 29 2e 74 68 5f 70 61 72 65 6e 74 3a 3d 20 77 32 3b 0a ┆=w0; (w1).th_parent:= w2; ┆
0x331e0…33200 20 20 20 20 20 20 69 66 20 77 31 3a 3d 28 77 32 29 2e 63 5f 6d 62 75 66 00 00 00 00 00 00 00 00 ┆ if w1:=(w2).c_mbuf ┆
0x33200…33206 (409,) (0x25c,0x665)
0x33206…33220 3e 30 20 74 68 65 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 ┆>0 then begin ┆
0x33220…33240 20 20 21 20 61 6e 73 77 65 72 20 70 65 6e 64 69 6e 67 20 69 6e 70 75 74 20 6f 72 20 73 65 6e 73 ┆ ! answer pending input or sens┆
0x33240…33260 65 20 6f 70 65 72 61 74 69 6f 6e 20 21 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 31 ┆e operation ! if w0:=(w1┆
0x33260…3327e 29 2e 6d 65 73 73 5f 6f 70 3c 3d 33 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 62 65 67 69 ┆).mess_op<=3 then begi┆
0x3327e…33284 (0x25c,0x666)
0x33284…332a0 6e 0a 20 20 20 20 20 20 20 20 20 20 70 75 74 5f 6f 70 28 2e 77 33 2e 2c 77 30 3a 3d ┆n put_op(.w3.,w0:=┆
0x332a0…332c0 21 70 6f 73 69 74 69 6f 6e 28 62 75 66 5f 6c 6f 63 61 6c 69 64 29 2c 77 31 2c 77 32 29 3b 0a 20 ┆!position(buf_localid),w1,w2); ┆
0x332c0…332e0 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 62 75 66 5f 72 65 73 75 6c 74 3a 3d 20 77 30 3a 3d 20 ┆ (w1).buf_result:= w0:= ┆
0x332e0…332fc 31 3b 0a 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 62 75 66 5f 73 74 61 74 75 73 ┆1; (w1).buf_status┆
0x332fc…33302 (0x25c,0x667)
0x33302…33320 3a 3d 20 77 30 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 62 75 66 5f ┆:= w0:= 0; (w1).buf_┆
0x33320…33340 62 79 74 65 73 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 62 75 66 5f 63 ┆bytes:= w0; (w1).buf_c┆
0x33340…33360 68 61 72 73 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 62 75 66 5f 69 6e ┆hars:= w0; (w1).buf_in┆
0x33360…3337a 63 61 72 3a 3d 20 77 30 3a 3d 20 2d 31 3b 20 21 20 65 6e 64 20 72 65 63 6f 72 ┆car:= w0:= -1; ! end recor┆
0x3337a…33380 (0x25c,0x668)
0x33380…333a0 64 20 6e 6f 74 20 65 78 69 73 74 69 6e 67 20 74 68 20 21 0a 0a 20 20 20 20 20 20 20 20 65 6e 64 ┆d not existing th ! end┆
0x333a0…333c0 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 66 33 3a 3d 20 73 61 76 65 66 33 3b 0a ┆; end; f3:= savef3; ┆
0x333c0…333e0 20 20 20 20 20 20 74 65 73 74 6f 75 74 28 2e 77 33 2e 2c 77 30 3a 3d 34 2c 77 31 3a 3d 77 33 2c ┆ testout(.w3.,w0:=4,w1:=w3,┆
0x333e0…33400 77 32 3a 3d 35 37 29 3b 0a 20 20 20 20 20 20 66 31 3a 3d 73 61 76 65 66 00 00 00 00 00 00 00 00 ┆w2:=57); f1:=savef ┆
0x33400…33406 (410,) (0x25c,0x669)
0x33406…33420 31 3b 0a 20 20 20 20 20 20 66 33 3a 3d 73 61 76 65 66 33 3b 0a 20 20 20 20 65 ┆1; f3:=savef3; e┆
0x33420…33440 6e 64 3b 0a 20 20 65 6e 64 3b 20 20 21 20 63 6f 6e 6e 65 63 74 20 21 0a 0a 0a 0a 20 20 62 6f 64 ┆nd; end; ! connect ! bod┆
0x33440…33460 79 20 6f 66 20 64 69 73 63 6f 6e 6e 65 63 74 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 6c 61 62 65 ┆y of disconnect begin labe┆
0x33460…3347e 6c 20 65 78 69 74 3b 0a 20 20 20 20 69 6e 63 6f 64 65 0a 20 20 20 20 20 20 64 6f 75 62 6c ┆l exit; incode doubl┆
0x3347e…33484 (0x25c,0x66a)
0x33484…334a0 65 20 73 61 76 65 66 31 2c 73 61 76 65 66 33 3b 0a 20 20 20 20 62 65 67 69 6e 0a 20 ┆e savef1,savef3; begin ┆
0x334a0…334c0 20 20 20 20 20 73 61 76 65 66 31 3a 3d 66 31 3b 0a 20 20 20 20 20 20 73 61 76 65 66 33 3a 3d 66 ┆ savef1:=f1; savef3:=f┆
0x334c0…334e0 33 3b 0a 20 20 20 20 20 20 77 32 3a 3d 28 77 33 29 2e 64 69 73 5f 70 68 68 65 61 64 3b 0a 20 20 ┆3; w2:=(w3).dis_phhead; ┆
0x334e0…334fc 20 20 20 20 77 31 3a 3d 28 77 32 29 2e 70 68 5f 63 68 69 6c 64 3b 0a 20 20 20 20 20 ┆ w1:=(w2).ph_child; ┆
0x334fc…33502 (0x25c,0x66b)
0x33502…33520 20 69 66 20 77 31 20 3d 20 28 77 33 29 2e 64 69 73 5f 74 68 68 65 61 64 20 74 68 65 6e 0a ┆ if w1 = (w3).dis_thhead then ┆
0x33520…33540 20 20 20 20 20 20 62 65 67 69 6e 20 20 21 20 64 69 73 63 6f 6e 6e 65 63 74 20 66 69 72 73 74 20 ┆ begin ! disconnect first ┆
0x33540…33560 70 68 20 21 0a 20 20 20 20 20 20 20 20 28 77 32 29 2e 70 68 5f 63 68 69 6c 64 3a 3d 77 30 3a 3d ┆ph ! (w2).ph_child:=w0:=┆
0x33560…3357a 28 77 31 29 2e 74 68 5f 6e 65 78 74 3b 0a 20 20 20 20 20 20 20 20 77 30 3a 3d ┆(w1).th_next; w0:=┆
0x3357a…33580 (0x25c,0x66c)
0x33580…335a0 30 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 74 68 5f 6e 65 78 74 3a 3d 77 30 3b 0a 20 20 20 ┆0; (w1).th_next:=w0; ┆
0x335a0…335c0 20 20 20 20 20 67 6f 74 6f 20 65 78 69 74 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 ┆ goto exit; end; ┆
0x335c0…335e0 20 77 32 3a 3d 20 77 31 3b 0a 20 20 20 20 20 20 77 68 69 6c 65 20 77 31 3a 3d 28 77 31 29 2e 74 ┆ w2:= w1; while w1:=(w1).t┆
0x335e0…33600 68 5f 6e 65 78 74 3c 3e 30 20 64 6f 0a 20 20 20 20 20 20 62 65 67 69 6e 00 00 00 00 00 00 00 00 ┆h_next<>0 do begin ┆
0x33600…33606 (411,) (0x25c,0x66d)
0x33606…33620 20 20 21 20 73 63 61 6e 20 74 68 20 63 68 61 69 6e 20 74 6f 20 66 69 6e 64 20 ┆ ! scan th chain to find ┆
0x33620…33640 61 63 74 75 61 6c 20 6f 6e 65 20 21 0a 20 20 20 20 20 20 20 20 69 66 20 77 31 20 3d 20 28 77 33 ┆actual one ! if w1 = (w3┆
0x33640…33660 29 2e 64 69 73 5f 74 68 68 65 61 64 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 ┆).dis_thhead then begin ┆
0x33660…3367e 20 21 20 64 69 73 63 6f 6e 6e 65 63 74 20 74 68 20 21 0a 20 20 20 20 20 20 20 20 20 20 28 ┆ ! disconnect th ! (┆
0x3367e…33684 (0x25c,0x66e)
0x33684…336a0 77 32 29 2e 74 68 5f 6e 65 78 74 3a 3d 77 30 3a 3d 28 77 31 29 2e 74 68 5f 6e 65 78 ┆w2).th_next:=w0:=(w1).th_nex┆
0x336a0…336c0 74 3b 0a 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 20 28 77 ┆t; w0:=0; (w┆
0x336c0…336e0 31 29 2e 74 68 5f 6e 65 78 74 3a 3d 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 65 ┆1).th_next:=w0; goto e┆
0x336e0…336fc 78 69 74 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 77 32 ┆xit; end; w2┆
0x336fc…33702 (0x25c,0x66f)
0x33702…33720 3a 3d 20 77 31 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 65 78 69 74 3a 0a 20 20 20 20 20 20 ┆:= w1; end; exit: ┆
0x33720…33740 74 65 73 74 6f 75 74 28 2e 77 33 2e 2c 77 30 3a 3d 34 2c 77 31 3a 3d 77 33 2c 77 32 3a 3d 35 38 ┆testout(.w3.,w0:=4,w1:=w3,w2:=58┆
0x33740…33760 29 3b 0a 20 20 20 20 20 20 66 31 3a 3d 73 61 76 65 66 31 3b 0a 20 20 20 20 20 20 66 33 3a 3d 73 ┆); f1:=savef1; f3:=s┆
0x33760…3377a 61 76 65 66 33 3b 0a 20 20 20 20 65 6e 64 3b 0a 20 20 65 6e 64 3b 20 20 21 20 ┆avef3; end; end; ! ┆
0x3377a…33780 (0x25c,0x670)
0x33780…337a0 64 69 73 63 6f 6e 6e 65 63 74 20 21 0a 0a 0a 0a 20 20 62 6f 64 79 20 6f 66 20 66 69 6e 64 5f 70 ┆disconnect ! body of find_p┆
0x337a0…337c0 68 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 6c 61 62 65 6c 20 66 6f 75 6e 64 3b 0a 20 20 20 20 69 ┆h begin label found; i┆
0x337c0…337e0 6e 63 6f 64 65 0a 20 20 20 20 20 20 77 6f 72 64 20 73 61 76 65 77 30 2c 73 61 76 65 77 32 2c 66 ┆ncode word savew0,savew2,f┆
0x337e0…33800 72 65 65 70 68 3b 0a 20 20 20 20 20 20 72 65 66 20 72 65 74 75 72 6e 3b 00 00 00 00 00 00 00 00 ┆reeph; ref return; ┆
0x33800…33806 (412,) (0x25c,0x671)
0x33806…33820 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 73 61 76 65 77 30 3a 3d 77 ┆ begin savew0:=w┆
0x33820…33840 30 3b 0a 20 20 20 20 20 20 73 61 76 65 77 32 3a 3d 77 32 3b 0a 20 20 20 20 20 20 72 65 74 75 72 ┆0; savew2:=w2; retur┆
0x33840…33860 6e 3a 3d 77 33 3b 0a 20 20 20 20 20 20 69 66 20 77 32 3a 3d 28 77 33 29 2e 66 70 5f 70 73 70 72 ┆n:=w3; if w2:=(w3).fp_pspr┆
0x33860…3387e 6f 63 20 3c 20 30 20 74 68 65 6e 20 2d 28 77 32 29 3b 0a 20 20 20 20 20 20 66 72 65 65 70 ┆oc < 0 then -(w2); freep┆
0x3387e…33884 (0x25c,0x672)
0x33884…338a0 68 3a 3d 77 30 3a 3d 30 3b 0a 20 20 20 20 20 20 77 31 3a 3d 62 2e 70 68 70 6f 6f 6c ┆h:=w0:=0; w1:=b.phpool┆
0x338a0…338c0 5f 74 6f 70 3b 0a 20 20 20 20 20 20 77 68 69 6c 65 20 77 31 2d 21 6c 65 6e 67 74 68 28 70 72 6f ┆_top; while w1-!length(pro┆
0x338c0…338e0 63 65 73 73 68 61 6e 64 6c 65 72 29 20 3e 3d 20 62 2e 70 68 70 6f 6f 6c 5f 66 73 74 20 64 6f 0a ┆cesshandler) >= b.phpool_fst do ┆
0x338e0…338fc 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 ┆ begin if w0:=(┆
0x338fc…33902 (0x25c,0x673)
0x33902…33920 77 31 29 2e 70 68 5f 70 61 72 65 6e 74 20 3d 20 28 77 33 29 2e 66 70 5f 73 65 6e 64 65 72 ┆w1).ph_parent = (w3).fp_sender┆
0x33920…33940 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 69 66 ┆ then begin if┆
0x33940…33960 20 77 32 20 3d 20 28 77 31 29 2e 70 68 5f 70 73 70 72 6f 63 20 74 68 65 6e 20 67 6f 74 6f 20 66 ┆ w2 = (w1).ph_psproc then goto f┆
0x33960…3397a 6f 75 6e 64 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 0a 20 20 20 20 20 20 20 20 ┆ound; end ┆
0x3397a…33980 (0x25c,0x674)
0x33980…339a0 65 6c 73 65 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 ┆else begin if ┆
0x339a0…339c0 77 30 20 3d 20 30 20 74 68 65 6e 20 66 72 65 65 70 68 3a 3d 77 31 3b 0a 20 20 20 20 20 20 20 20 ┆w0 = 0 then freeph:=w1; ┆
0x339c0…339e0 65 6e 64 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 2d 28 77 31 3a 3d 66 72 65 65 ┆end; end; -(w1:=free┆
0x339e0…33a00 70 68 29 3b 0a 66 6f 75 6e 64 3a 0a 20 20 20 20 20 20 77 30 3a 3d 73 61 00 00 00 00 00 00 00 00 ┆ph); found: w0:=sa ┆
0x33a00…33a06 (413,) (0x25c,0x675)
0x33a06…33a20 76 65 77 30 3b 0a 20 20 20 20 20 20 77 32 3a 3d 73 61 76 65 77 32 3b 0a 20 20 ┆vew0; w2:=savew2; ┆
0x33a20…33a40 20 20 20 20 77 33 3a 3d 72 65 74 75 72 6e 3b 0a 20 20 20 20 65 6e 64 3b 0a 20 20 65 6e 64 3b 20 ┆ w3:=return; end; end; ┆
0x33a40…33a60 20 21 20 66 69 6e 64 5f 70 68 20 21 0a 0a 0a 0a 20 20 62 6f 64 79 20 6f 66 20 77 61 69 74 5f 6f ┆ ! find_ph ! body of wait_o┆
0x33a60…33a7e 70 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 69 6e 63 6f 64 65 0a 20 20 20 20 20 20 72 65 66 ┆p begin incode ref┆
0x33a7e…33a84 (0x25c,0x676)
0x33a84…33aa0 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 77 31 3a ┆ return; begin w1:┆
0x33aa0…33ac0 3d 20 62 2e 63 75 72 72 65 6e 74 3b 0a 20 20 20 20 20 20 28 77 31 29 2e 63 5f 77 77 32 3a 3d 20 ┆= b.current; (w1).c_ww2:= ┆
0x33ac0…33ae0 77 32 3b 0a 20 20 20 20 20 20 28 77 31 29 2e 63 5f 77 77 33 3a 3d 20 77 33 3b 0a 0a 20 20 20 20 ┆w2; (w1).c_ww3:= w3; ┆
0x33ae0…33afc 20 20 6c 6f 63 6b 28 2e 77 33 2e 2c 77 30 3a 3d 31 2c 77 32 3a 3d 28 77 32 29 2e 61 ┆ lock(.w3.,w0:=1,w2:=(w2).a┆
0x33afc…33b02 (0x25c,0x677)
0x33b02…33b20 5f 72 65 63 66 75 6c 6c 29 3b 0a 20 20 20 20 20 20 6f 70 65 6e 28 2e 77 33 2e 2c 77 30 2c ┆_recfull); open(.w3.,w0,┆
0x33b20…33b40 77 32 29 3b 0a 20 20 20 20 20 20 77 33 3a 3d 20 28 77 33 29 2e 63 5f 77 77 32 3b 0a 20 20 20 20 ┆w2); w3:= (w3).c_ww2; ┆
0x33b40…33b60 20 20 73 77 6f 70 28 2e 77 33 2e 2c 77 32 3a 3d 31 2c 77 30 3a 3d 28 77 33 29 2e 61 5f 66 69 72 ┆ swop(.w3.,w2:=1,w0:=(w3).a_fir┆
0x33b60…33b7a 73 74 66 75 6c 6c 20 61 73 68 69 66 74 20 2d 39 2c 77 31 29 3b 0a 20 20 20 20 ┆stfull ashift -9,w1); ┆
0x33b7a…33b80 (0x25c,0x678)
0x33b80…33ba0 20 20 77 32 3a 3d 20 28 77 33 29 2e 63 5f 77 77 32 3b 0a 20 20 20 20 20 20 77 30 3a 3d 20 28 77 ┆ w2:= (w3).c_ww2; w0:= (w┆
0x33ba0…33bc0 32 29 2e 61 5f 66 69 72 73 74 66 75 6c 6c 20 65 78 74 72 61 63 74 20 39 3b 0a 20 20 20 20 20 20 ┆2).a_firstfull extract 9; ┆
0x33bc0…33be0 77 31 2b 77 30 3b 0a 20 20 20 20 20 20 74 65 73 74 6f 75 74 28 2e 77 33 2e 2c 77 30 3a 3d 32 30 ┆w1+w0; testout(.w3.,w0:=20┆
0x33be0…33c00 2c 77 31 2c 77 32 3a 3d 36 36 29 3b 0a 20 20 20 20 20 20 77 30 3a 3d 20 00 00 00 00 00 00 00 00 ┆,w1,w2:=66); w0:= ┆
0x33c00…33c06 (414,) (0x25c,0x679)
0x33c06…33c20 28 77 31 29 2e 77 6f 72 64 2d 32 3b 0a 20 20 20 20 20 20 77 31 2b 32 3b 0a 20 ┆(w1).word-2; w1+2; ┆
0x33c20…33c40 20 20 20 20 20 77 32 3a 3d 20 28 77 33 29 2e 63 5f 77 77 33 3b 0a 20 20 20 20 20 20 72 65 74 75 ┆ w2:= (w3).c_ww3; retu┆
0x33c40…33c60 72 6e 3a 3d 20 77 32 3b 0a 20 20 20 20 20 20 77 32 3a 3d 20 28 77 33 29 2e 63 5f 77 77 32 3b 0a ┆rn:= w2; w2:= (w3).c_ww2; ┆
0x33c60…33c7e 20 20 20 20 20 20 63 61 6c 6c 20 77 30 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 65 6e 64 3b ┆ call w0 return; end;┆
0x33c7e…33c84 (0x25c,0x67a)
0x33c84…33ca0 0a 20 20 65 6e 64 3b 20 21 20 77 61 69 74 5f 6f 70 20 21 0a 0a 0a 20 20 62 6f 64 79 ┆ end; ! wait_op ! body┆
0x33ca0…33cc0 20 6f 66 20 67 65 74 5f 6f 70 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 69 6e 63 6f 64 65 0a 20 20 ┆ of get_op begin incode ┆
0x33cc0…33ce0 20 20 77 6f 72 64 20 73 65 67 6d 65 6e 74 3b 0a 20 20 20 20 72 65 66 20 72 65 63 5f 72 65 66 3b ┆ word segment; ref rec_ref;┆
0x33ce0…33cfc 0a 20 20 20 20 72 65 66 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 62 65 67 69 6e 0a 20 ┆ ref return; begin ┆
0x33cfc…33d02 (0x25c,0x67b)
0x33d02…33d20 20 20 20 20 20 77 31 3a 3d 20 62 2e 63 75 72 72 65 6e 74 3b 0a 20 20 20 20 20 20 28 77 31 ┆ w1:= b.current; (w1┆
0x33d20…33d40 29 2e 63 5f 77 77 32 3a 3d 20 77 32 3b 0a 20 20 20 20 20 20 28 77 31 29 2e 63 5f 77 77 33 3a 3d ┆).c_ww2:= w2; (w1).c_ww3:=┆
0x33d40…33d60 20 77 33 3b 0a 0a 20 20 20 20 20 20 6c 6f 63 6b 28 2e 77 33 2e 2c 77 30 3a 3d 31 2c 77 32 3a 3d ┆ w3; lock(.w3.,w0:=1,w2:=┆
0x33d60…33d7a 28 77 32 29 2e 61 5f 72 65 63 66 75 6c 6c 29 3b 0a 20 20 20 20 20 20 77 33 3a ┆(w2).a_recfull); w3:┆
0x33d7a…33d80 (0x25c,0x67c)
0x33d80…33da0 3d 20 28 77 33 29 2e 63 5f 77 77 32 3b 0a 20 20 20 20 20 20 73 65 67 6d 65 6e 74 3a 3d 20 77 30 ┆= (w3).c_ww2; segment:= w0┆
0x33da0…33dc0 3a 3d 20 28 77 33 29 2e 61 5f 66 69 72 73 74 66 75 6c 6c 20 61 73 68 69 66 74 20 2d 39 3b 0a 20 ┆:= (w3).a_firstfull ashift -9; ┆
0x33dc0…33de0 20 20 20 20 20 73 77 6f 70 28 2e 77 33 2e 2c 77 32 3a 3d 31 2c 77 30 2c 20 77 31 29 3b 0a 20 20 ┆ swop(.w3.,w2:=1,w0, w1); ┆
0x33de0…33e00 20 20 20 20 77 32 3a 3d 20 28 77 32 3a 3d 62 2e 63 75 72 72 65 6e 74 29 00 00 00 00 00 00 00 00 ┆ w2:= (w2:=b.current) ┆
0x33e00…33e06 (415,) (0x25c,0x67d)
0x33e06…33e20 2e 63 5f 77 77 32 3b 0a 0a 20 20 20 20 20 20 77 30 3a 3d 20 28 77 32 29 2e 61 ┆.c_ww2; w0:= (w2).a┆
0x33e20…33e40 5f 66 69 72 73 74 66 75 6c 6c 20 65 78 74 72 61 63 74 20 39 3b 0a 20 20 20 20 20 20 77 31 2b 77 ┆_firstfull extract 9; w1+w┆
0x33e40…33e60 30 3b 0a 20 20 20 20 20 20 72 65 63 5f 72 65 66 3a 3d 20 77 31 3b 20 21 20 73 61 76 65 20 72 65 ┆0; rec_ref:= w1; ! save re┆
0x33e60…33e7e 66 65 72 65 6e 63 65 20 74 6f 20 72 65 63 6f 72 64 20 21 0a 20 20 20 20 20 20 21 20 63 6f ┆ference to record ! ! co┆
0x33e7e…33e84 (0x25c,0x67e)
0x33e84…33ea0 6d 70 75 74 65 20 6e 65 77 20 66 69 72 73 74 66 75 6c 6c 2c 20 69 66 20 61 72 65 61 ┆mpute new firstfull, if area┆
0x33ea0…33ec0 20 69 73 20 65 6d 70 74 79 20 73 65 74 20 66 69 72 73 74 66 75 6c 6c 20 21 0a 20 20 20 20 20 20 ┆ is empty set firstfull ! ┆
0x33ec0…33ee0 21 20 61 6e 64 20 66 69 72 73 74 66 72 65 65 20 74 6f 20 73 74 61 72 74 20 6f 66 20 63 75 72 72 ┆! and firstfree to start of curr┆
0x33ee0…33efc 65 6e 74 20 73 65 67 6d 65 6e 74 20 20 20 20 20 20 20 20 20 20 20 20 20 21 0a 20 20 ┆ent segment ! ┆
0x33efc…33f02 (0x25c,0x67f)
0x33f02…33f20 20 20 20 20 77 30 3a 3d 20 28 77 32 29 2e 61 5f 66 69 72 73 74 66 75 6c 6c 20 2b 20 28 77 ┆ w0:= (w2).a_firstfull + (w┆
0x33f20…33f40 31 29 2e 77 6f 72 64 3b 0a 20 20 20 20 20 20 69 66 20 77 30 3c 3e 28 77 32 29 2e 61 5f 66 69 72 ┆1).word; if w0<>(w2).a_fir┆
0x33f40…33f60 73 74 66 72 65 65 20 74 68 65 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 ┆stfree then begin ┆
0x33f60…33f7a 77 33 3a 3d 20 77 31 2b 28 77 31 29 2e 77 6f 72 64 3b 0a 20 20 20 20 20 20 20 ┆w3:= w1+(w1).word; ┆
0x33f7a…33f80 (0x25c,0x680)
0x33f80…33fa0 20 69 66 20 77 33 3a 3d 20 28 77 33 29 2e 77 6f 72 64 20 3d 20 2d 31 20 74 68 65 6e 0a 20 20 20 ┆ if w3:= (w3).word = -1 then ┆
0x33fa0…33fc0 20 20 20 20 20 62 65 67 69 6e 20 21 20 6c 61 73 74 20 72 65 63 6f 72 64 20 6f 6e 20 73 65 67 6d ┆ begin ! last record on segm┆
0x33fc0…33fe0 65 6e 74 20 21 0a 20 20 20 20 20 20 20 20 20 20 77 30 2b 35 31 32 20 61 73 68 69 66 74 20 2d 39 ┆ent ! w0+512 ashift -9┆
0x33fe0…34000 20 61 73 68 69 66 74 20 39 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 00 00 00 00 00 00 00 00 ┆ ashift 9; if ┆
0x34000…34006 (416,) (0x25c,0x681)
0x34006…34020 77 30 3e 3d 28 77 32 29 2e 61 5f 74 6f 70 20 74 68 65 6e 20 77 30 3a 3d 20 28 ┆w0>=(w2).a_top then w0:= (┆
0x34020…34040 77 32 29 2e 61 5f 66 69 72 73 74 3b 0a 20 20 20 20 20 20 20 20 20 20 28 77 32 29 2e 61 5f 66 69 ┆w2).a_first; (w2).a_fi┆
0x34040…34060 72 73 74 66 75 6c 6c 3a 3d 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 6f 70 65 6e 28 2e 77 33 2e ┆rstfull:=w0; open(.w3.┆
0x34060…3407e 2c 77 30 3a 3d 35 31 32 2c 77 32 3a 3d 28 77 32 29 2e 61 5f 62 79 74 65 73 66 72 65 65 29 ┆,w0:=512,w2:=(w2).a_bytesfree)┆
0x3407e…34084 (0x25c,0x682)
0x34084…340a0 3b 0a 20 20 20 20 20 20 20 20 20 20 73 77 6f 70 28 2e 77 33 2e 2c 77 32 3a 3d 34 2c ┆; swop(.w3.,w2:=4,┆
0x340a0…340c0 77 30 3a 3d 73 65 67 6d 65 6e 74 2c 77 31 29 3b 20 21 20 72 65 6c 65 61 73 65 20 62 75 66 66 65 ┆w0:=segment,w1); ! release buffe┆
0x340c0…340e0 72 20 21 0a 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 20 28 77 33 29 2e 63 5f 77 77 32 3b 0a 20 ┆r ! w2:= (w3).c_ww2; ┆
0x340e0…340fc 20 20 20 20 20 20 20 65 6e 64 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 28 77 32 29 ┆ end else (w2)┆
0x340fc…34102 (0x25c,0x683)
0x34102…34120 2e 61 5f 66 69 72 73 74 66 75 6c 6c 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 65 6e 64 0a 20 ┆.a_firstfull:= w0; end ┆
0x34120…34140 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 28 77 ┆ else begin (w┆
0x34140…34160 32 29 2e 61 5f 66 69 72 73 74 66 75 6c 6c 3a 3d 20 77 30 20 61 73 68 69 66 74 20 2d 39 20 61 73 ┆2).a_firstfull:= w0 ashift -9 as┆
0x34160…3417a 68 69 66 74 20 39 3b 0a 20 20 20 20 20 20 20 20 28 77 32 29 2e 61 5f 66 69 72 ┆hift 9; (w2).a_fir┆
0x3417a…34180 (0x25c,0x684)
0x34180…341a0 73 74 66 72 65 65 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 20 73 77 6f 70 28 2e 77 33 2e 2c 77 ┆stfree:= w0; swop(.w3.,w┆
0x341a0…341c0 32 3a 3d 34 2c 77 30 3a 3d 73 65 67 6d 65 6e 74 2c 77 31 29 3b 20 21 20 72 65 6c 65 61 73 65 20 ┆2:=4,w0:=segment,w1); ! release ┆
0x341c0…341e0 62 75 66 66 65 72 20 21 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 74 65 73 74 6f 75 ┆buffer ! end; testou┆
0x341e0…34200 74 28 2e 77 33 2e 2c 77 30 3a 3d 32 2c 77 31 3a 3d 72 65 63 5f 72 65 66 00 00 00 00 00 00 00 00 ┆t(.w3.,w0:=2,w1:=rec_ref ┆
0x34200…34206 (417,) (0x25c,0x685)
0x34206…34220 2c 77 32 3a 3d 35 30 29 3b 0a 0a 20 20 20 20 20 20 77 30 3a 3d 20 28 77 31 29 ┆,w2:=50); w0:= (w1)┆
0x34220…34240 2e 77 6f 72 64 20 2d 20 32 3b 0a 20 20 20 20 20 20 77 31 2b 32 3b 0a 20 20 20 20 20 20 77 32 3a ┆.word - 2; w1+2; w2:┆
0x34240…34260 3d 20 28 77 33 29 2e 63 5f 77 77 33 3b 0a 20 20 20 20 20 20 72 65 74 75 72 6e 3a 3d 20 77 32 3b ┆= (w3).c_ww3; return:= w2;┆
0x34260…3427e 0a 20 20 20 20 20 20 77 32 3a 3d 20 28 77 33 29 2e 63 5f 77 77 32 3b 0a 20 20 20 20 20 20 ┆ w2:= (w3).c_ww2; ┆
0x3427e…34284 (0x25c,0x686)
0x34284…342a0 63 61 6c 6c 20 77 30 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 65 6e 64 3b 0a 20 20 65 ┆call w0 return; end; e┆
0x342a0…342c0 6e 64 3b 20 21 20 67 65 74 5f 6f 70 20 21 0a 0a 0a 0a 20 20 62 6f 64 79 20 6f 66 20 70 75 74 5f ┆nd; ! get_op ! body of put_┆
0x342c0…342e0 6f 70 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 69 6e 63 6f 64 65 0a 20 20 20 20 72 65 66 20 72 65 ┆op begin incode ref re┆
0x342e0…342fc 74 75 72 6e 3b 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 77 31 3a 3d 20 62 ┆turn; begin w1:= b┆
0x342fc…34302 (0x25c,0x687)
0x34302…34320 2e 63 75 72 72 65 6e 74 3b 0a 20 20 20 20 20 20 28 77 31 29 2e 63 5f 77 77 30 3a 3d 20 77 ┆.current; (w1).c_ww0:= w┆
0x34320…34340 30 3b 0a 20 20 20 20 20 20 28 77 31 29 2e 63 5f 77 77 32 3a 3d 20 77 32 3b 0a 20 20 20 20 20 20 ┆0; (w1).c_ww2:= w2; ┆
0x34340…34360 28 77 31 29 2e 63 5f 77 77 33 3a 3d 20 77 33 3b 0a 0a 20 20 20 20 20 20 6c 6f 63 6b 28 2e 77 33 ┆(w1).c_ww3:= w3; lock(.w3┆
0x34360…3437a 2e 2c 77 30 3a 3d 35 31 32 2c 77 32 3a 3d 28 77 32 29 2e 61 5f 62 79 74 65 73 ┆.,w0:=512,w2:=(w2).a_bytes┆
0x3437a…34380 (0x25c,0x688)
0x34380…343a0 66 72 65 65 29 3b 0a 20 20 20 20 20 20 77 30 3a 3d 28 77 31 29 2e 63 5f 77 77 30 3b 0a 20 20 20 ┆free); w0:=(w1).c_ww0; ┆
0x343a0…343c0 20 20 20 77 32 3a 3d 28 77 31 29 2e 63 5f 77 77 32 3b 0a 0a 20 20 20 20 20 20 62 65 67 69 6e 20 ┆ w2:=(w1).c_ww2; begin ┆
0x343c0…343e0 21 20 6f 70 65 72 61 74 69 6f 6e 20 62 75 66 66 65 72 20 72 65 61 64 79 20 21 0a 20 20 20 20 20 ┆! operation buffer ready ! ┆
0x343e0…34400 20 20 20 21 20 63 68 61 6e 67 65 20 73 65 67 6d 65 6e 74 20 69 66 20 63 00 00 00 00 00 00 00 00 ┆ ! change segment if c ┆
0x34400…34406 (418,) (0x25c,0x689)
0x34406…34420 6c 61 69 6d 20 3e 20 72 65 73 74 20 6f 6e 20 63 75 72 72 65 6e 74 20 73 65 67 ┆laim > rest on current seg┆
0x34420…34440 6d 65 6e 74 20 21 0a 20 20 20 20 20 20 20 20 21 20 65 6c 73 65 20 72 65 6c 65 61 73 65 20 73 65 ┆ment ! ! else release se┆
0x34440…34460 67 6d 65 6e 74 20 21 0a 20 20 20 20 20 20 20 20 77 30 2b 32 3b 0a 20 20 20 20 20 20 20 20 77 31 ┆gment ! w0+2; w1┆
0x34460…3447e 3a 3d 20 28 77 32 29 2e 61 5f 66 69 72 73 74 66 72 65 65 20 2b 20 77 30 20 61 73 68 69 66 ┆:= (w2).a_firstfree + w0 ashif┆
0x3447e…34484 (0x25c,0x68a)
0x34484…344a0 74 20 2d 39 20 61 73 68 69 66 74 20 39 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 31 ┆t -9 ashift 9; if w1┆
0x344a0…344c0 3e 28 77 32 29 2e 61 5f 66 69 72 73 74 66 72 65 65 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 62 ┆>(w2).a_firstfree then b┆
0x344c0…344e0 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 31 3e 3d 28 77 32 29 2e 61 5f 74 6f 70 ┆egin if w1>=(w2).a_top┆
0x344e0…344fc 20 74 68 65 6e 20 77 31 3a 3d 20 28 77 32 29 2e 61 5f 66 69 72 73 74 3b 0a 20 20 20 ┆ then w1:= (w2).a_first; ┆
0x344fc…34502 (0x25c,0x68b)
0x34502…34520 20 20 20 20 20 20 20 28 77 32 29 2e 61 5f 66 69 72 73 74 66 72 65 65 3a 3d 20 77 31 3b 0a ┆ (w2).a_firstfree:= w1; ┆
0x34520…34540 20 20 20 20 20 20 20 20 65 6e 64 0a 20 20 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 20 ┆ end else ┆
0x34540…34560 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 6f 70 65 6e 28 2e 77 33 2e 2c 77 30 3a 3d 35 ┆ begin open(.w3.,w0:=5┆
0x34560…3457a 31 32 2c 77 32 3a 3d 28 77 32 29 2e 61 5f 62 79 74 65 73 66 72 65 65 29 3b 0a ┆12,w2:=(w2).a_bytesfree); ┆
0x3457a…34580 (0x25c,0x68c)
0x34580…345a0 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 77 32 3a 3d 20 28 77 33 29 2e 63 ┆ end; w2:= (w3).c┆
0x345a0…345c0 5f 77 77 32 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 32 3a 3d 28 77 32 29 2e 61 5f 66 69 72 73 ┆_ww2; if w2:=(w2).a_firs┆
0x345c0…345e0 74 66 72 65 65 20 65 78 74 72 61 63 74 20 39 3d 30 20 74 68 65 6e 20 77 32 3a 3d 32 20 21 20 20 ┆tfree extract 9=0 then w2:=2 ! ┆
0x345e0…34600 64 6f 6e 74 20 73 77 6f 70 20 69 6e 20 21 0a 20 20 20 20 20 20 20 20 65 00 00 00 00 00 00 00 00 ┆dont swop in ! e ┆
0x34600…34606 (419,) (0x25c,0x68d)
0x34606…34620 6c 73 65 20 77 32 3a 3d 20 33 3b 0a 20 20 20 20 20 20 20 20 73 77 6f 70 28 2e ┆lse w2:= 3; swop(.┆
0x34620…34640 77 33 2e 2c 77 32 2c 77 30 3a 3d 77 31 20 61 73 68 69 66 74 20 2d 39 2c 77 31 29 3b 0a 20 20 20 ┆w3.,w2,w0:=w1 ashift -9,w1); ┆
0x34640…34660 20 20 20 20 20 77 32 3a 3d 20 28 77 33 29 2e 63 5f 77 77 32 3b 0a 20 20 20 20 20 20 20 20 77 30 ┆ w2:= (w3).c_ww2; w0┆
0x34660…3467e 3a 3d 20 28 77 32 29 2e 61 5f 66 69 72 73 74 66 72 65 65 20 65 78 74 72 61 63 74 20 39 3b ┆:= (w2).a_firstfree extract 9;┆
0x3467e…34684 (0x25c,0x68e)
0x34684…346a0 0a 20 20 20 20 20 20 20 20 77 31 2b 77 30 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 ┆ w1+w0; (w1)┆
0x346a0…346c0 2e 77 6f 72 64 3a 3d 20 77 30 3a 3d 20 28 77 33 29 2e 63 5f 77 77 30 20 2b 20 32 3b 0a 20 20 20 ┆.word:= w0:= (w3).c_ww0 + 2; ┆
0x346c0…346e0 20 20 20 20 20 77 33 3a 3d 77 31 2b 77 30 3b 0a 20 20 20 20 20 20 20 20 28 77 32 29 2e 61 5f 66 ┆ w3:=w1+w0; (w2).a_f┆
0x346e0…346fc 69 72 73 74 66 72 65 65 3a 3d 20 77 30 20 2b 20 28 77 32 29 2e 61 5f 66 69 72 73 74 ┆irstfree:= w0 + (w2).a_first┆
0x346fc…34702 (0x25c,0x68f)
0x34702…34720 66 72 65 65 3b 0a 20 20 20 20 20 20 20 20 28 77 33 29 2e 77 6f 72 64 3a 3d 77 30 3a 3d 2d ┆free; (w3).word:=w0:=-┆
0x34720…34740 31 3b 0a 0a 20 20 20 20 20 20 20 20 6f 70 65 6e 28 2e 77 33 2e 2c 77 30 3a 3d 31 2c 77 32 3a 3d ┆1; open(.w3.,w0:=1,w2:=┆
0x34740…34760 28 77 32 29 2e 61 5f 72 65 63 66 75 6c 6c 29 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 ┆(w2).a_recfull); end; ┆
0x34760…3477a 20 20 74 65 73 74 6f 75 74 28 2e 77 33 2e 2c 77 30 3a 3d 32 2c 77 31 2c 77 32 ┆ testout(.w3.,w0:=2,w1,w2┆
0x3477a…34780 (0x25c,0x690)
0x34780…347a0 3a 3d 35 31 29 3b 0a 0a 20 20 20 20 20 20 77 32 3a 3d 20 28 77 33 29 2e 63 5f 77 77 33 3b 0a 20 ┆:=51); w2:= (w3).c_ww3; ┆
0x347a0…347c0 20 20 20 20 20 72 65 74 75 72 6e 3a 3d 20 77 32 3b 0a 20 20 20 20 20 20 77 30 3a 3d 20 28 77 33 ┆ return:= w2; w0:= (w3┆
0x347c0…347e0 29 2e 63 5f 77 77 30 3b 0a 20 20 20 20 20 20 77 31 2b 32 3b 0a 20 20 20 20 20 20 77 32 3a 3d 20 ┆).c_ww0; w1+2; w2:= ┆
0x347e0…34800 28 77 33 29 2e 63 5f 77 77 32 3b 0a 20 20 20 20 20 20 63 61 6c 6c 20 77 00 00 00 00 00 00 00 00 ┆(w3).c_ww2; call w ┆
0x34800…34806 (420,) (0x25c,0x691)
0x34806…34820 30 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 65 6e 64 3b 0a 20 20 65 6e 64 3b 20 ┆0 return; end; end; ┆
0x34820…34840 21 20 70 75 74 5f 6f 70 20 21 0a 0a 0a 0a 20 20 62 6f 64 79 20 6f 66 20 73 77 6f 70 0a 20 20 62 ┆! put_op ! body of swop b┆
0x34840…34860 65 67 69 6e 0a 20 20 20 20 70 72 6f 63 65 64 75 72 65 20 74 72 61 6e 73 70 6f 72 74 28 2e 77 33 ┆egin procedure transport(.w3┆
0x34860…3487e 2e 3b 0a 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 77 31 ┆.; w1┆
0x3487e…34884 (0x25c,0x692)
0x34884…348a0 29 3b 20 21 20 6d 65 73 73 61 67 65 20 61 64 64 72 65 73 73 20 28 63 61 6c 6c 29 20 ┆); ! message address (call) ┆
0x348a0…348c0 21 0a 20 20 20 20 69 6e 63 6f 64 65 0a 20 20 20 20 77 6f 72 64 20 73 61 76 65 77 32 3b 0a 20 20 ┆! incode word savew2; ┆
0x348c0…348e0 20 20 77 6f 72 64 20 66 6f 75 6e 64 3b 0a 20 20 20 20 72 65 66 20 20 77 69 63 74 69 6d 2c 20 72 ┆ word found; ref wictim, r┆
0x348e0…348fc 65 74 75 72 6e 3b 0a 0a 20 20 20 20 62 79 74 65 20 6f 70 2c 20 6d 6f 64 65 3b 0a 20 ┆eturn; byte op, mode; ┆
0x348fc…34902 (0x25c,0x693)
0x34902…34920 20 20 20 72 65 66 20 66 69 72 73 74 2c 20 6c 61 73 74 3b 0a 20 20 20 20 77 6f 72 64 20 73 ┆ ref first, last; word s┆
0x34920…34940 5f 6e 6f 3b 0a 20 20 20 20 77 6f 72 64 20 62 69 74 6d 61 73 6b 3a 3d 20 38 27 32 30 30 30 30 30 ┆_no; word bitmask:= 8'200000┆
0x34940…34960 30 30 3b 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 73 61 76 65 77 32 3a 3d 20 77 32 3b ┆00; begin savew2:= w2;┆
0x34960…3497a 20 72 65 74 75 72 6e 3a 3d 20 77 33 3b 0a 20 20 20 20 20 20 66 6f 75 6e 64 3a ┆ return:= w3; found:┆
0x3497a…34980 (0x25c,0x694)
0x34980…349a0 3d 20 77 31 3a 3d 20 2d 31 3b 0a 20 20 20 20 20 20 77 69 63 74 69 6d 3a 3d 20 77 31 3a 3d 20 62 ┆= w1:= -1; wictim:= w1:= b┆
0x349a0…349c0 2e 73 65 67 70 6f 6f 6c 5f 66 73 74 3b 0a 0a 20 20 20 20 20 20 77 68 69 6c 65 20 77 31 3c 62 2e ┆.segpool_fst; while w1<b.┆
0x349c0…349e0 73 65 67 70 6f 6f 6c 5f 74 6f 70 20 64 6f 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 ┆segpool_top do begin ┆
0x349e0…34a00 20 20 20 77 33 3a 3d 20 28 77 31 29 2e 73 65 67 5f 6e 6f 20 65 78 74 72 00 00 00 00 00 00 00 00 ┆ w3:= (w1).seg_no extr ┆
0x34a00…34a06 (421,) (0x25c,0x695)
0x34a06…34a20 61 63 74 20 32 32 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3d 77 33 20 74 ┆act 22; if w0=w3 t┆
0x34a20…34a40 68 65 6e 20 66 6f 75 6e 64 3a 3d 20 77 31 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 33 3a 3d 28 ┆hen found:= w1; if w3:=(┆
0x34a40…34a60 77 31 29 2e 73 65 67 5f 70 72 69 6f 3c 77 69 63 74 69 6d 2e 73 65 67 5f 70 72 69 6f 20 74 68 65 ┆w1).seg_prio<wictim.seg_prio the┆
0x34a60…34a7e 6e 20 77 69 63 74 69 6d 3a 3d 20 77 31 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 73 65 ┆n wictim:= w1; (w1).se┆
0x34a7e…34a84 (0x25c,0x696)
0x34a84…34aa0 67 5f 70 72 69 6f 3a 3d 20 77 33 2d 31 3b 0a 20 20 20 20 20 20 20 20 77 31 2b 62 2e ┆g_prio:= w3-1; w1+b.┆
0x34aa0…34ac0 73 65 67 5f 73 69 7a 65 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 0a 20 20 20 20 20 20 69 66 20 77 ┆seg_size; end; if w┆
0x34ac0…34ae0 31 3a 3d 20 66 6f 75 6e 64 3d 2d 31 20 74 68 65 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 20 21 20 ┆1:= found=-1 then begin ! ┆
0x34ae0…34afc 73 65 67 6d 65 6e 74 20 6e 6f 74 20 70 72 65 73 65 6e 74 20 21 0a 20 20 20 20 20 20 ┆segment not present ! ┆
0x34afc…34b02 (0x25c,0x697)
0x34b02…34b20 20 20 77 31 3a 3d 20 61 64 64 72 65 73 73 20 28 6f 70 29 3b 0a 20 20 20 20 20 20 20 20 77 ┆ w1:= address (op); w┆
0x34b20…34b40 32 3a 3d 20 77 69 63 74 69 6d 3b 0a 20 20 20 20 20 20 20 20 66 69 72 73 74 3a 3d 20 77 33 3a 3d ┆2:= wictim; first:= w3:=┆
0x34b40…34b60 20 61 64 64 72 65 73 73 28 28 77 32 29 2e 73 65 67 5f 64 61 74 61 29 3b 0a 20 20 20 20 20 20 20 ┆ address((w2).seg_data); ┆
0x34b60…34b7a 20 77 33 2b 35 31 30 3b 0a 20 20 20 20 20 20 20 20 6c 61 73 74 3a 3d 20 77 33 ┆ w3+510; last:= w3┆
0x34b7a…34b80 (0x25c,0x698)
0x34b80…34ba0 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 33 3a 3d 20 28 77 32 29 2e 73 65 67 5f 6e 6f 20 6f 6e ┆; if w3:= (w2).seg_no on┆
0x34ba0…34bc0 65 6d 61 73 6b 20 62 69 74 6d 61 73 6b 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e ┆emask bitmask then begin┆
0x34bc0…34be0 20 21 20 73 65 67 6d 65 6e 74 20 75 70 64 61 74 65 64 2c 20 73 77 6f 70 20 6f 75 74 20 21 0a 20 ┆ ! segment updated, swop out ! ┆
0x34be0…34c00 20 20 20 20 20 20 20 20 20 6f 70 3a 3d 20 77 33 3a 3d 20 35 3b 0a 20 20 00 00 00 00 00 00 00 00 ┆ op:= w3:= 5; ┆
0x34c00…34c06 (422,) (0x25c,0x699)
0x34c06…34c20 20 20 20 20 20 20 20 20 73 5f 6e 6f 3a 3d 20 77 33 3a 3d 20 28 77 32 29 2e 73 ┆ s_no:= w3:= (w2).s┆
0x34c20…34c40 65 67 5f 6e 6f 20 65 78 74 72 61 63 74 20 32 32 3b 0a 20 20 20 20 20 20 20 20 20 20 74 72 61 6e ┆eg_no extract 22; tran┆
0x34c40…34c60 73 70 6f 72 74 28 2e 77 33 2e 2c 77 31 29 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 0a 20 20 ┆sport(.w3.,w1); end; ┆
0x34c60…34c7e 20 20 20 20 20 20 69 66 20 77 33 3a 3d 73 61 76 65 77 32 20 6f 6e 65 6d 61 73 6b 20 31 20 ┆ if w3:=savew2 onemask 1 ┆
0x34c7e…34c84 (0x25c,0x69a)
0x34c84…34ca0 74 68 65 6e 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 21 20 73 77 6f 70 20 69 6e ┆then begin ! swop in┆
0x34ca0…34cc0 20 21 0a 20 20 20 20 20 20 20 20 20 20 6f 70 3a 3d 20 77 33 3a 3d 20 33 3b 0a 20 20 20 20 20 20 ┆ ! op:= w3:= 3; ┆
0x34cc0…34ce0 20 20 20 20 73 5f 6e 6f 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 74 72 61 6e 73 70 6f ┆ s_no:= w0; transpo┆
0x34ce0…34cfc 72 74 28 2e 77 33 2e 2c 77 31 29 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 ┆rt(.w3.,w1); end; ┆
0x34cfc…34d02 (0x25c,0x69b)
0x34d02…34d20 20 20 20 20 20 20 77 31 3a 3d 20 77 69 63 74 69 6d 3b 0a 20 20 20 20 20 20 20 20 28 77 31 ┆ w1:= wictim; (w1┆
0x34d20…34d40 29 2e 73 65 67 5f 6e 6f 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 0a 20 20 20 20 20 ┆).seg_no:= w0; end; ┆
0x34d40…34d60 20 28 77 31 29 2e 73 65 67 5f 70 72 69 6f 3a 3d 20 77 33 3a 3d 20 30 3b 0a 20 20 20 20 20 20 69 ┆ (w1).seg_prio:= w3:= 0; i┆
0x34d60…34d7a 66 20 77 33 3a 3d 73 61 76 65 77 32 20 6f 6e 65 6d 61 73 6b 20 34 20 74 68 65 ┆f w3:=savew2 onemask 4 the┆
0x34d7a…34d80 (0x25c,0x69c)
0x34d80…34da0 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 20 21 20 72 65 6c 65 61 73 65 20 62 75 66 66 65 72 20 21 ┆n begin ! release buffer !┆
0x34da0…34dc0 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 73 65 67 5f 6e 6f 3a 3d 20 77 33 3a 3d 20 38 27 31 37 ┆ (w1).seg_no:= w3:= 8'17┆
0x34dc0…34de0 37 37 37 37 37 37 3b 20 21 20 2b 69 6e 66 69 6e 69 74 65 20 21 0a 20 20 20 20 20 20 20 20 28 77 ┆777777; ! +infinite ! (w┆
0x34de0…34e00 31 29 2e 73 65 67 5f 70 72 69 6f 3a 3d 20 2d 28 77 33 29 3b 20 21 20 2d 00 00 00 00 00 00 00 00 ┆1).seg_prio:= -(w3); ! - ┆
0x34e00…34e06 (423,) (0x25c,0x69d)
0x34e06…34e20 69 6e 66 69 6e 69 74 65 20 21 0a 20 20 20 20 20 20 65 6e 64 0a 20 20 20 20 20 ┆infinite ! end ┆
0x34e20…34e40 20 65 6c 73 65 0a 20 20 20 20 20 20 69 66 20 77 33 3a 3d 73 61 76 65 77 32 20 6f 6e 65 6d 61 73 ┆ else if w3:=savew2 onemas┆
0x34e40…34e60 6b 20 32 20 74 68 65 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 20 21 20 73 65 74 20 75 70 64 61 74 ┆k 2 then begin ! set updat┆
0x34e60…34e7e 65 2d 73 65 67 6d 65 6e 74 2d 6d 61 72 6b 20 21 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e ┆e-segment-mark ! (w1).┆
0x34e7e…34e84 (0x25c,0x69e)
0x34e84…34ea0 73 65 67 5f 6e 6f 3a 3d 20 77 33 3a 3d 20 62 69 74 6d 61 73 6b 20 6f 72 20 28 77 31 ┆seg_no:= w3:= bitmask or (w1┆
0x34ea0…34ec0 29 2e 73 65 67 5f 6e 6f 3b 0a 20 20 20 20 20 20 65 6e 64 20 65 6c 73 65 3b 0a 0a 20 20 20 20 20 ┆).seg_no; end else; ┆
0x34ec0…34ee0 20 77 31 2b 21 70 6f 73 69 74 69 6f 6e 28 73 65 67 5f 64 61 74 61 29 3b 0a 20 20 20 20 20 20 77 ┆ w1+!position(seg_data); w┆
0x34ee0…34efc 32 3a 3d 20 73 61 76 65 77 32 3b 0a 20 20 20 20 20 20 77 33 3a 3d 20 62 2e 63 75 72 ┆2:= savew2; w3:= b.cur┆
0x34efc…34f02 (0x25c,0x69f)
0x34f02…34f20 72 65 6e 74 3b 0a 20 20 20 20 20 20 63 61 6c 6c 20 77 30 20 72 65 74 75 72 6e 3b 0a 20 20 ┆rent; call w0 return; ┆
0x34f20…34f40 20 20 65 6e 64 3b 0a 0a 20 20 20 20 62 6f 64 79 20 6f 66 20 74 72 61 6e 73 70 6f 72 74 0a 20 20 ┆ end; body of transport ┆
0x34f40…34f60 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 69 6e 63 6f 64 65 0a 20 20 20 20 20 20 77 6f 72 64 20 ┆ begin incode word ┆
0x34f60…34f7a 73 74 61 74 75 73 2c 20 62 79 74 65 73 2c 20 63 68 61 72 73 2c 20 61 34 2c 20 ┆status, bytes, chars, a4, ┆
0x34f7a…34f80 (0x25c,0x6a0)
0x34f80…34fa0 61 35 2c 20 61 36 2c 20 61 37 2c 20 61 38 3b 0a 20 20 20 20 20 20 64 6f 75 62 6c 65 20 73 61 76 ┆a5, a6, a7, a8; double sav┆
0x34fa0…34fc0 65 66 31 2c 20 73 61 76 65 66 33 3b 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 ┆ef1, savef3; begin ┆
0x34fc0…34fe0 20 73 61 76 65 66 31 3a 3d 20 66 31 3b 0a 20 20 20 20 20 20 20 20 73 61 76 65 66 33 3a 3d 20 66 ┆ savef1:= f1; savef3:= f┆
0x34fe0…35000 33 3b 0a 20 20 20 20 20 20 20 20 74 65 73 74 6f 75 74 28 2e 77 33 2e 2c 00 00 00 00 00 00 00 00 ┆3; testout(.w3., ┆
0x35000…35006 (424,) (0x25c,0x6a1)
0x35006…35020 77 30 3a 3d 38 2c 77 31 2c 77 32 3a 3d 35 32 29 3b 0a 20 20 20 20 20 20 20 20 ┆w0:=8,w1,w2:=52); ┆
0x35020…35040 77 33 3a 3d 20 61 64 64 72 65 73 73 20 28 62 2e 73 70 6f 6f 6c 6e 61 6d 65 29 3b 0a 20 20 20 20 ┆w3:= address (b.spoolname); ┆
0x35040…35060 20 20 20 20 6d 6f 6e 69 74 6f 72 28 31 36 29 3b 0a 20 20 20 20 20 20 20 20 77 31 3a 3d 20 61 64 ┆ monitor(16); w1:= ad┆
0x35060…3507e 64 72 65 73 73 28 73 74 61 74 75 73 29 3b 0a 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 ┆dress(status); monitor┆
0x3507e…35084 (0x25c,0x6a2)
0x35084…350a0 28 31 38 29 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 32 3a 3d 31 20 6c 73 68 69 66 ┆(18); if w2:=1 lshif┆
0x350a0…350c0 74 20 77 30 20 6f 72 20 28 77 31 29 2e 77 6f 72 64 20 3c 3e 20 32 20 74 68 65 6e 0a 20 20 20 20 ┆t w0 or (w1).word <> 2 then ┆
0x350c0…350e0 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 61 64 64 72 65 73 73 28 ┆ begin w1:=address(┆
0x350e0…350fc 62 2e 73 70 63 6f 6d 6f 70 29 3b 0a 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 6c ┆b.spcomop); (w1).l┆
0x350fc…35102 (0x25c,0x6a3)
0x35102…35120 6f 67 73 74 61 74 75 73 3a 3d 77 32 3b 0a 20 20 20 20 20 20 20 20 20 20 74 65 73 74 6f 75 ┆ogstatus:=w2; testou┆
0x35120…35140 74 28 2e 77 33 2e 2c 77 30 3a 3d 31 36 2c 77 31 2c 77 32 3a 3d 36 34 29 3b 0a 20 20 20 20 20 20 ┆t(.w3.,w0:=16,w1,w2:=64); ┆
0x35140…35160 20 20 20 20 6f 70 6d 65 73 73 28 2e 77 33 2e 2c 77 31 29 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 ┆ opmess(.w3.,w1); end┆
0x35160…3517a 3b 0a 20 20 20 20 20 20 20 20 66 31 3a 3d 20 73 61 76 65 66 31 3b 20 66 33 3a ┆; f1:= savef1; f3:┆
0x3517a…35180 (0x25c,0x6a4)
0x35180…351a0 3d 20 73 61 76 65 66 33 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 65 6e 64 3b 20 21 20 ┆= savef3; end; end; ! ┆
0x351a0…351c0 74 72 61 6e 73 70 6f 72 74 20 21 0a 20 20 65 6e 64 3b 20 21 20 73 77 6f 70 20 21 0a 0a 0a 0a 20 ┆transport ! end; ! swop ! ┆
0x351c0…351e0 20 62 6f 64 79 20 6f 66 20 70 68 0a 20 20 62 65 67 69 6e 20 0a 20 20 20 20 6c 61 62 65 6c 20 75 ┆ body of ph begin label u┆
0x351e0…35200 6e 69 6e 74 2c 64 69 73 63 6f 6e 6e 65 63 74 2c 73 74 6f 70 70 65 64 2c 00 00 00 00 00 00 00 00 ┆nint,disconnect,stopped, ┆
0x35200…35206 (425,) (0x25c,0x6a5)
0x35206…35220 61 6e 73 5f 73 65 6e 73 65 2c 7a 65 72 6f 5f 61 6e 73 77 65 72 2c 6e 6f 5f 69 ┆ans_sense,zero_answer,no_i┆
0x35220…35240 6e 70 75 74 2c 0a 20 20 20 20 20 20 20 20 20 20 6c 6f 6f 70 2c 6c 6f 6f 70 5f 73 74 69 6e 2c 6e ┆nput, loop,loop_stin,n┆
0x35240…35260 65 78 74 74 68 2c 66 6f 75 6e 64 2c 20 61 64 70 5f 66 6f 75 6e 64 2c 20 6e 65 78 74 5f 6d 65 73 ┆extth,found, adp_found, next_mes┆
0x35260…3527e 73 61 67 65 3b 0a 20 20 20 20 69 6e 63 6f 64 65 0a 20 20 20 20 72 65 66 20 72 65 74 75 72 ┆sage; incode ref retur┆
0x3527e…35284 (0x25c,0x6a6)
0x35284…352a0 6e 3b 0a 20 20 20 20 77 6f 72 64 20 6d 72 65 73 75 6c 74 2c 20 73 74 61 74 75 73 2c ┆n; word mresult, status,┆
0x352a0…352c0 20 62 79 74 65 73 2c 20 63 68 61 72 73 2c 20 61 34 3a 3d 20 30 2c 20 61 35 3a 3d 20 30 2c 20 61 ┆ bytes, chars, a4:= 0, a5:= 0, a┆
0x352c0…352e0 36 3a 3d 20 30 2c 20 61 37 3a 3d 20 30 2c 20 61 38 3a 3d 20 30 3b 0a 20 20 20 20 77 6f 72 64 20 ┆6:= 0, a7:= 0, a8:= 0; word ┆
0x352e0…352fc 6c 6f 63 5f 69 64 2c 6f 75 74 63 61 72 2c 74 68 6d 61 73 6b 2c 68 65 6c 70 3b 0a 20 ┆loc_id,outcar,thmask,help; ┆
0x352fc…35302 (0x25c,0x6a7)
0x35302…35320 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 72 65 74 75 72 6e 3a 3d 20 77 33 3b 20 63 61 ┆ begin return:= w3; ca┆
0x35320…35340 6c 6c 20 77 33 20 72 65 74 75 72 6e 3b 20 21 20 69 6e 69 74 69 61 6c 20 6c 6f 63 6b 20 21 0a 0a ┆ll w3 return; ! initial lock ! ┆
0x35340…35360 20 20 20 20 20 20 77 68 69 6c 65 20 77 31 3d 77 31 20 64 6f 0a 20 20 20 20 20 20 62 65 67 69 6e ┆ while w1=w1 do begin┆
0x35360…3537a 0a 20 20 20 20 20 20 20 20 77 61 69 74 6d 65 73 73 28 2e 77 33 2e 2c 77 32 29 ┆ waitmess(.w3.,w2)┆
0x3537a…35380 (0x25c,0x6a8)
0x35380…353a0 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 32 29 2e 6d 65 73 73 5f 6f 70 3d 30 20 ┆; if w0:=(w2).mess_op=0 ┆
0x353a0…353c0 74 68 65 6e 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 ┆then begin if ┆
0x353c0…353e0 77 30 3a 3d 28 77 32 29 2e 6d 65 73 73 5f 6d 6f 64 65 3d 30 20 74 68 65 6e 0a 20 20 20 20 20 20 ┆w0:=(w2).mess_mode=0 then ┆
0x353e0…35400 20 20 20 20 62 65 67 69 6e 20 21 20 73 65 6e 73 65 20 21 0a 61 6e 73 5f 00 00 00 00 00 00 00 00 ┆ begin ! sense ! ans_ ┆
0x35400…35406 (426,) (0x25c,0x6a9)
0x35406…35420 73 65 6e 73 65 3a 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 20 31 3b ┆sense: w0:= 1;┆
0x35420…35440 0a 7a 65 72 6f 5f 61 6e 73 77 65 72 3a 0a 20 20 20 20 20 20 20 20 20 20 20 20 73 74 61 74 75 73 ┆ zero_answer: status┆
0x35440…35460 3a 3d 20 77 31 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 79 74 65 73 3a 3d 20 77 ┆:= w1:= 0; bytes:= w┆
0x35460…3547e 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 63 68 61 72 73 3a 3d 20 77 31 3b 0a 20 20 20 ┆1; chars:= w1; ┆
0x3547e…35484 (0x25c,0x6aa)
0x35484…354a0 20 20 20 20 20 20 20 20 20 77 31 3a 3d 20 61 64 64 72 65 73 73 28 73 74 61 74 75 73 ┆ w1:= address(status┆
0x354a0…354c0 29 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 0a 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 0a ┆); end else ┆
0x354c0…354e0 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3d 32 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 ┆ if w0=2 then ┆
0x354e0…354fc 20 62 65 67 69 6e 20 21 20 73 65 6e 73 65 20 72 65 61 64 79 20 21 0a 20 20 20 20 20 ┆ begin ! sense ready ! ┆
0x354fc…35502 (0x25c,0x6ab)
0x35502…35520 20 20 20 20 20 20 20 28 77 33 29 2e 70 68 5f 73 65 6e 73 65 64 3a 3d 20 77 30 3a 3d 20 31 ┆ (w3).ph_sensed:= w0:= 1┆
0x35520…35540 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 33 29 2e 70 68 5f 69 6e 70 ┆; if w0:=(w3).ph_inp┆
0x35540…35560 6d 6f 64 65 3d 2d 31 20 74 68 65 6e 20 28 77 33 29 2e 70 68 5f 69 6e 70 6d 6f 64 65 3a 3d 20 77 ┆mode=-1 then (w3).ph_inpmode:= w┆
0x35560…3557a 30 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 28 77 33 ┆0:= 0; w2:=(w3┆
0x3557a…35580 (0x25c,0x6ac)
0x35580…355a0 29 2e 70 68 5f 63 68 69 6c 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 68 69 6c 65 20 77 32 ┆).ph_child; while w2┆
0x355a0…355c0 3e 30 20 64 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 21 20 73 65 6e 64 20 69 ┆>0 do begin ! send i┆
0x355c0…355e0 6e 70 75 74 20 6f 70 65 72 61 74 69 6f 6e 73 20 74 6f 20 61 6c 6c 20 66 72 65 65 20 69 6e 70 75 ┆nput operations to all free inpu┆
0x355e0…35600 74 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 00 00 00 00 00 00 00 00 ┆t ! ! ┆
0x35600…35606 (427,) (0x25c,0x6ad)
0x35606…35620 62 75 66 66 65 72 73 20 6f 77 6e 65 64 20 62 79 20 70 68 27 73 20 63 68 69 6c ┆buffers owned by ph's chil┆
0x35620…35640 64 73 20 20 20 20 20 20 20 20 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 ┆ds ! if┆
0x35640…35660 20 77 30 3a 3d 28 77 32 29 2e 74 68 5f 75 73 65 64 62 75 66 3c 28 77 32 29 2e 74 68 5f 6d 61 78 ┆ w0:=(w2).th_usedbuf<(w2).th_max┆
0x35660…3567e 62 75 66 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 ┆buf then begin ┆
0x3567e…35684 (0x25c,0x6ae)
0x35684…356a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 75 74 5f 6f 70 28 2e 77 33 2e 2c 77 ┆ put_op(.w3.,w┆
0x356a0…356c0 30 3a 3d 21 70 6f 73 69 74 69 6f 6e 28 62 75 66 5f 63 68 61 72 73 29 2c 77 31 2c 77 32 29 3b 0a ┆0:=!position(buf_chars),w1,w2); ┆
0x356c0…356e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 62 75 66 6d 5f 6f 70 3a 3d 20 77 ┆ (w1).bufm_op:= w┆
0x356e0…356fc 30 3a 3d 20 33 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e ┆0:= 3; (w1).┆
0x356fc…35702 (0x25c,0x6af)
0x35702…35720 62 75 66 6d 5f 6d 6f 64 65 3a 3d 20 77 30 3a 3d 20 28 77 33 29 2e 70 68 5f 69 6e 70 6d 6f ┆bufm_mode:= w0:= (w3).ph_inpmo┆
0x35720…35740 64 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 62 75 66 5f 62 79 74 ┆de; (w1).buf_byt┆
0x35740…35760 65 73 3a 3d 20 77 30 3a 3d 20 62 2e 62 75 66 6c 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆es:= w0:= b.bufl; ┆
0x35760…3577a 20 20 28 77 32 29 2e 74 68 5f 75 73 65 64 62 75 66 3a 3d 20 77 30 3a 3d 20 28 ┆ (w2).th_usedbuf:= w0:= (┆
0x3577a…35780 (0x25c,0x6b0)
0x35780…357a0 77 32 29 2e 74 68 5f 75 73 65 64 62 75 66 2b 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆w2).th_usedbuf+1; ┆
0x357a0…357c0 65 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 ┆end else ┆
0x357c0…357e0 20 20 20 20 20 20 20 77 32 3a 3d 20 28 77 32 29 2e 74 68 5f 6e 65 78 74 3b 0a 20 20 20 20 20 20 ┆ w2:= (w2).th_next; ┆
0x357e0…35800 20 20 20 20 20 20 65 6e 64 3b 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ end; ┆
0x35800…35806 (428,) (0x25c,0x6b1)
0x35806…35820 28 77 33 29 2e 70 68 5f 73 65 6e 73 65 64 3a 3d 20 77 30 3a 3d 20 31 3b 0a 20 ┆(w3).ph_sensed:= w0:= 1; ┆
0x35820…35840 20 20 20 20 20 20 20 20 20 20 20 77 61 69 74 5f 6f 70 28 2e 77 33 2e 2c 77 30 2c 77 31 2c 77 32 ┆ wait_op(.w3.,w0,w1,w2┆
0x35840…35860 3a 3d 77 33 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 31 29 2e 62 ┆:=w3); if w0:=(w1).b┆
0x35860…3587e 75 66 5f 62 79 74 65 73 3d 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 ┆uf_bytes=0 then be┆
0x3587e…35884 (0x25c,0x6b2)
0x35884…358a0 67 69 6e 20 21 20 73 74 61 74 75 73 20 65 72 72 6f 72 20 6f 72 20 73 74 6f 70 70 65 ┆gin ! status error or stoppe┆
0x358a0…358c0 64 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 65 74 5f 6f 70 28 2e 77 33 2e 2c 77 30 ┆d ! get_op(.w3.,w0┆
0x358c0…358e0 2c 77 31 2c 77 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 20 28 77 33 29 ┆,w1,w2); w3:= (w3)┆
0x358e0…358fc 2e 70 68 5f 63 68 69 6c 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 68 69 ┆.ph_child; whi┆
0x358fc…35902 (0x25c,0x6b3)
0x35902…35920 6c 65 20 77 33 3e 30 20 64 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e ┆le w3>0 do begin┆
0x35920…35940 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 33 29 2e 74 68 5f ┆ if w0:=(w3).th_┆
0x35940…35960 69 6e 63 61 72 3d 28 77 31 29 2e 62 75 66 5f 69 6e 63 61 72 20 74 68 65 6e 0a 20 20 20 20 20 20 ┆incar=(w1).buf_incar then ┆
0x35960…3597a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 21 20 72 65 6c 65 61 73 65 20 ┆ begin ! release ┆
0x3597a…35980 (0x25c,0x6b4)
0x35980…359a0 62 75 66 66 65 72 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e ┆buffer ! (w3).┆
0x359a0…359c0 74 68 5f 75 73 65 64 62 75 66 3a 3d 20 77 30 3a 3d 20 28 77 33 29 2e 74 68 5f 75 73 65 64 62 75 ┆th_usedbuf:= w0:= (w3).th_usedbu┆
0x359c0…359e0 66 2d 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 20 30 3b 0a 20 ┆f-1; w3:= 0; ┆
0x359e0…35a00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 0a 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ end ┆
0x35a00…35a06 (429,) (0x25c,0x6b5)
0x35a06…35a20 20 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 ┆ else ┆
0x35a20…35a40 20 20 20 20 20 20 20 20 77 33 3a 3d 20 28 77 33 29 2e 74 68 5f 6e 65 78 74 3b 0a 20 20 20 20 20 ┆ w3:= (w3).th_next; ┆
0x35a40…35a60 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d ┆ end; w0:=┆
0x35a60…35a7e 20 28 77 31 29 2e 62 75 66 5f 72 65 73 75 6c 74 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ (w1).buf_result; ┆
0x35a7e…35a84 (0x25c,0x6b6)
0x35a84…35aa0 20 20 73 74 61 74 75 73 3a 3d 20 77 31 3a 3d 20 28 77 31 29 2e 62 75 66 5f 73 74 61 ┆ status:= w1:= (w1).buf_sta┆
0x35aa0…35ac0 74 75 73 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 20 61 64 64 72 65 73 73 28 ┆tus; w1:= address(┆
0x35ac0…35ae0 73 74 61 74 75 73 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 0a 20 20 20 20 20 20 20 ┆status); end ┆
0x35ae0…35afc 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 ┆ else begin ┆
0x35afc…35b02 (0x25c,0x6b7)
0x35b02…35b20 21 20 64 61 74 61 20 72 65 61 64 79 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 ┆! data ready ! g┆
0x35b20…35b40 6f 74 6f 20 61 6e 73 5f 73 65 6e 73 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a ┆oto ans_sense; end; ┆
0x35b40…35b60 20 20 20 20 20 20 20 20 20 20 65 6e 64 20 21 20 73 65 6e 73 65 20 72 65 61 64 79 20 21 0a 20 20 ┆ end ! sense ready ! ┆
0x35b60…35b7a 20 20 20 20 20 20 20 20 65 6c 73 65 20 67 6f 74 6f 20 75 6e 69 6e 74 3b 0a 20 ┆ else goto unint; ┆
0x35b7a…35b80 (0x25c,0x6b8)
0x35b80…35ba0 20 20 20 20 20 20 20 65 6e 64 20 21 20 6f 70 65 72 61 74 69 6f 6e 20 3d 20 30 20 21 0a 20 20 20 ┆ end ! operation = 0 ! ┆
0x35ba0…35bc0 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3d 33 20 74 68 65 6e 0a 20 ┆ else if w0=3 then ┆
0x35bc0…35be0 20 20 20 20 20 20 20 62 65 67 69 6e 20 21 20 69 6e 70 75 74 20 21 0a 20 20 20 20 20 20 20 20 20 ┆ begin ! input ! ┆
0x35be0…35c00 20 69 66 20 77 30 3a 3d 28 77 33 29 2e 70 68 5f 69 6e 70 6d 6f 64 65 3d 00 00 00 00 00 00 00 00 ┆ if w0:=(w3).ph_inpmode= ┆
0x35c00…35c06 (430,) (0x25c,0x6b9)
0x35c06…35c20 2d 31 20 74 68 65 6e 20 28 77 33 29 2e 70 68 5f 69 6e 70 6d 6f 64 65 3a 3d 20 ┆-1 then (w3).ph_inpmode:= ┆
0x35c20…35c40 77 30 3a 3d 20 28 77 32 29 2e 6d 65 73 73 5f 6d 6f 64 65 3b 0a 20 20 20 20 20 20 20 20 20 20 69 ┆w0:= (w2).mess_mode; i┆
0x35c40…35c60 66 20 77 30 3a 3d 28 77 31 3a 3d 28 77 33 29 2e 61 5f 72 65 63 66 75 6c 6c 29 2e 73 65 6d 5f 76 ┆f w0:=(w1:=(w3).a_recfull).sem_v┆
0x35c60…35c7e 61 6c 75 65 20 2d 28 77 33 29 2e 70 68 5f 73 65 6e 73 65 64 3d 2d 31 20 74 68 65 6e 0a 20 ┆alue -(w3).ph_sensed=-1 then ┆
0x35c7e…35c84 (0x25c,0x6ba)
0x35c84…35ca0 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 21 20 6e 6f 20 64 61 74 61 20 2c 73 65 ┆ begin ! no data ,se┆
0x35ca0…35cc0 6e 73 65 20 72 65 61 64 20 70 72 6f 74 6f 63 6f 6c 20 75 73 65 64 20 21 0a 6e 6f 5f 69 6e 70 75 ┆nse read protocol used ! no_inpu┆
0x35cc0…35ce0 74 3a 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 70 68 5f 73 65 6e 73 65 64 3a 3d 20 ┆t: (w3).ph_sensed:= ┆
0x35ce0…35cfc 77 30 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 61 6e 73 ┆w0:= 0; goto ans┆
0x35cfc…35d02 (0x25c,0x6bb)
0x35d02…35d20 5f 73 65 6e 73 65 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 0a 20 20 20 20 20 20 20 20 ┆_sense; end ┆
0x35d20…35d40 20 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 ┆ else begin ┆
0x35d40…35d60 20 20 20 77 32 3a 3d 20 28 77 33 29 2e 70 68 5f 63 68 69 6c 64 3b 0a 20 20 20 20 20 20 20 20 20 ┆ w2:= (w3).ph_child; ┆
0x35d60…35d7a 20 20 20 77 68 69 6c 65 20 77 32 3e 30 20 64 6f 0a 20 20 20 20 20 20 20 20 20 ┆ while w2>0 do ┆
0x35d7a…35d80 (0x25c,0x6bc)
0x35d80…35da0 20 20 20 62 65 67 69 6e 20 21 20 73 65 6e 64 20 69 6e 70 75 74 20 6f 70 65 72 61 74 69 6f 6e 73 ┆ begin ! send input operations┆
0x35da0…35dc0 20 74 6f 20 61 6c 6c 20 66 72 65 65 20 74 68 20 62 75 66 66 65 72 73 20 21 0a 20 20 20 20 20 20 ┆ to all free th buffers ! ┆
0x35dc0…35de0 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 32 29 2e 74 68 5f 75 73 65 64 62 75 66 3c 28 ┆ if w0:=(w2).th_usedbuf<(┆
0x35de0…35e00 77 32 29 2e 74 68 5f 6d 61 78 62 75 66 20 74 68 65 6e 0a 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆w2).th_maxbuf then ┆
0x35e00…35e06 (431,) (0x25c,0x6bd)
0x35e06…35e20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ begin ┆
0x35e20…35e40 20 20 20 20 20 70 75 74 5f 6f 70 28 2e 77 33 2e 2c 77 30 3a 3d 21 70 6f 73 69 74 69 6f 6e 28 62 ┆ put_op(.w3.,w0:=!position(b┆
0x35e40…35e60 75 66 5f 63 68 61 72 73 29 2c 77 31 2c 77 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆uf_chars),w1,w2); ┆
0x35e60…35e7e 20 20 28 77 31 29 2e 62 75 66 6d 5f 6f 70 3a 3d 20 77 30 3a 3d 20 33 3b 0a 20 20 20 20 20 ┆ (w1).bufm_op:= w0:= 3; ┆
0x35e7e…35e84 (0x25c,0x6be)
0x35e84…35ea0 20 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 62 75 66 6d 5f 6d 6f 64 65 3a 3d 20 ┆ (w1).bufm_mode:= ┆
0x35ea0…35ec0 77 30 3a 3d 20 28 77 33 29 2e 70 68 5f 69 6e 70 6d 6f 64 65 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆w0:= (w3).ph_inpmode; ┆
0x35ec0…35ee0 20 20 20 20 20 20 28 77 31 29 2e 62 75 66 5f 62 79 74 65 73 3a 3d 20 77 30 3a 3d 20 62 2e 62 75 ┆ (w1).buf_bytes:= w0:= b.bu┆
0x35ee0…35efc 66 6c 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 32 29 2e 74 68 5f ┆fl; (w2).th_┆
0x35efc…35f02 (0x25c,0x6bf)
0x35f02…35f20 75 73 65 64 62 75 66 3a 3d 20 77 30 3a 3d 20 28 77 32 29 2e 74 68 5f 75 73 65 64 62 75 66 ┆usedbuf:= w0:= (w2).th_usedbuf┆
0x35f20…35f40 2b 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 0a 20 20 20 20 20 20 20 20 20 20 ┆+1; end ┆
0x35f40…35f60 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 20 28 77 ┆ else w2:= (w┆
0x35f60…35f7a 32 29 2e 74 68 5f 6e 65 78 74 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e ┆2).th_next; en┆
0x35f7a…35f80 (0x25c,0x6c0)
0x35f80…35fa0 64 3b 0a 20 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 61 69 74 5f 6f 70 28 2e 77 33 2e 2c 77 ┆d; wait_op(.w3.,w┆
0x35fa0…35fc0 30 2c 77 31 2c 77 32 3a 3d 77 33 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 70 ┆0,w1,w2:=w3); (w3).p┆
0x35fc0…35fe0 68 5f 73 61 76 65 77 30 3a 3d 20 77 30 3a 3d 20 28 77 31 29 2e 62 75 66 5f 62 79 74 65 73 2d 28 ┆h_savew0:= w0:= (w1).buf_bytes-(┆
0x35fe0…36000 77 33 29 2e 70 68 5f 62 6c 6f 63 6b 75 73 65 64 3b 0a 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆w3).ph_blockused; ┆
0x36000…36006 (432,) (0x25c,0x6c1)
0x36006…36020 20 20 20 20 20 20 69 66 20 77 30 3d 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 ┆ if w0=0 then ┆
0x36020…36040 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 32 3a 3d ┆ begin if w2:=┆
0x36040…36060 28 77 33 29 2e 70 68 5f 73 65 6e 73 65 64 3d 31 20 74 68 65 6e 20 67 6f 74 6f 20 6e 6f 5f 69 6e ┆(w3).ph_sensed=1 then goto no_in┆
0x36060…3607e 70 75 74 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 0a 20 20 20 20 20 20 20 20 20 ┆put; end ┆
0x3607e…36084 (0x25c,0x6c2)
0x36084…360a0 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 70 79 28 2e 77 33 ┆ else copy(.w3┆
0x360a0…360c0 2e 2c 77 30 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 28 77 31 29 2e 62 75 66 5f 6c 6f 63 61 6c 69 ┆.,w0,w2:=address((w1).buf_locali┆
0x360c0…360e0 64 29 2b 28 77 33 29 2e 70 68 5f 62 6c 6f 63 6b 75 73 65 64 29 3b 0a 20 20 20 20 20 20 20 20 20 ┆d)+(w3).ph_blockused); ┆
0x360e0…360fc 20 20 20 69 66 20 77 30 3d 2d 32 20 74 68 65 6e 20 67 6f 74 6f 20 73 74 6f 70 70 65 ┆ if w0=-2 then goto stoppe┆
0x360fc…36102 (0x25c,0x6c3)
0x36102…36120 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3d 2d 33 20 74 68 65 6e 20 67 ┆d; if w0=-3 then g┆
0x36120…36140 6f 74 6f 20 75 6e 69 6e 74 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 6c 6f 63 5f 69 64 3a 3d 20 ┆oto unint; loc_id:= ┆
0x36140…36160 77 31 3b 20 21 20 73 61 76 65 20 74 65 6d 70 6f 72 61 72 79 20 21 0a 20 20 20 20 20 20 20 20 20 ┆w1; ! save temporary ! ┆
0x36160…3617a 20 20 20 74 65 73 74 6f 75 74 28 2e 77 33 2e 2c 77 30 2c 77 31 3a 3d 77 32 2c ┆ testout(.w3.,w0,w1:=w2,┆
0x3617a…36180 (0x25c,0x6c4)
0x36180…361a0 77 32 3a 3d 30 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 20 6c 6f 63 5f 69 64 3b ┆w2:=0); w1:= loc_id;┆
0x361a0…361c0 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3d 28 77 33 29 2e 70 68 5f 73 61 76 65 77 ┆ if w0=(w3).ph_savew┆
0x361c0…361e0 30 20 74 68 65 6e 20 21 20 6c 61 73 74 20 6f 66 20 62 6c 6f 63 6b 20 63 6f 70 69 65 64 20 69 6e ┆0 then ! last of block copied in┆
0x361e0…36200 74 6f 20 70 68 2d 6f 77 6e 65 72 20 21 0a 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆to ph-owner ! ┆
0x36200…36206 (433,) (0x25c,0x6c5)
0x36206…36220 20 20 62 65 67 69 6e 0a 21 74 65 73 74 20 35 30 38 3b 0a 20 20 20 20 20 20 20 ┆ begin !test 508; ┆
0x36220…36240 20 20 20 20 20 20 20 67 65 74 5f 6f 70 28 2e 77 33 2e 2c 77 30 2c 77 31 2c 77 32 3a 3d 77 33 29 ┆ get_op(.w3.,w0,w1,w2:=w3)┆
0x36240…36260 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 20 28 77 33 29 2e 70 68 5f 63 68 69 ┆; w3:= (w3).ph_chi┆
0x36260…3627e 6c 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 31 29 2e ┆ld; if w0:=(w1).┆
0x3627e…36284 (0x25c,0x6c6)
0x36284…362a0 62 75 66 5f 69 6e 63 61 72 20 3e 30 20 74 68 65 6e 20 21 20 6c 61 73 74 20 62 6c 6f ┆buf_incar >0 then ! last blo┆
0x362a0…362c0 63 6b 20 69 6e 20 72 65 63 6f 72 64 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 68 69 ┆ck in record ! whi┆
0x362c0…362e0 6c 65 20 77 33 3e 30 20 64 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 ┆le w3>0 do begin ┆
0x362e0…362fc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3d 28 77 33 29 2e 74 68 ┆ if w0=(w3).th┆
0x362fc…36302 (0x25c,0x6c7)
0x36302…36320 5f 69 6e 63 61 72 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 ┆_incar then be┆
0x36320…36340 67 69 6e 20 21 20 74 68 20 66 6f 75 6e 64 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆gin ! th found ! ┆
0x36340…36360 20 20 20 28 77 33 29 2e 74 68 5f 75 73 65 64 62 75 66 3a 3d 20 77 30 3a 3d 20 28 77 33 29 2e 74 ┆ (w3).th_usedbuf:= w0:= (w3).t┆
0x36360…3637a 68 5f 75 73 65 64 62 75 66 2d 31 3b 0a 21 74 65 73 74 20 35 31 30 3b 0a 20 20 ┆h_usedbuf-1; !test 510; ┆
0x3637a…36380 (0x25c,0x6c8)
0x36380…363a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 ┆ w3:= 0; ┆
0x363a0…363c0 20 20 20 20 20 20 20 20 65 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 ┆ end else┆
0x363c0…363e0 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 20 28 77 33 29 2e 74 68 5f ┆ w3:= (w3).th_┆
0x363e0…36400 6e 65 78 74 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 00 00 00 00 00 00 00 00 ┆next; end; ┆
0x36400…36406 (434,) (0x25c,0x6c9)
0x36406…36420 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 20 62 2e 63 75 72 72 ┆ w3:= b.curr┆
0x36420…36440 65 6e 74 3b 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 79 74 65 73 3a 3d 20 77 30 3a 3d ┆ent; bytes:= w0:=┆
0x36440…36460 20 28 77 33 29 2e 70 68 5f 73 61 76 65 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 ┆ (w3).ph_savew0; w┆
0x36460…3647e 32 3a 3d 20 28 77 33 29 2e 70 68 5f 62 6c 6f 63 6b 75 73 65 64 2b 28 77 30 3a 3d 77 32 20 ┆2:= (w3).ph_blockused+(w0:=w2 ┆
0x3647e…36484 (0x25c,0x6ca)
0x36484…364a0 61 73 68 69 66 74 20 2d 31 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 68 ┆ashift -1); ch┆
0x364a0…364c0 61 72 73 3a 3d 20 77 30 3a 3d 20 28 77 31 29 2e 62 75 66 5f 63 68 61 72 73 2d 77 32 3b 0a 20 20 ┆ars:= w0:= (w1).buf_chars-w2; ┆
0x364c0…364e0 20 20 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 70 68 5f 62 6c 6f 63 6b 75 73 65 64 3a 3d 20 ┆ (w3).ph_blockused:= ┆
0x364e0…364fc 77 30 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 0a 20 20 20 20 ┆w0:= 0; end ┆
0x364fc…36502 (0x25c,0x6cb)
0x36502…36520 20 20 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e ┆ else begin┆
0x36520…36540 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 79 74 65 73 3a 3d 20 77 30 3b 0a 20 20 20 20 20 ┆ bytes:= w0; ┆
0x36540…36560 20 20 20 20 20 20 20 20 20 63 68 61 72 73 3a 3d 20 77 30 2b 28 77 32 3a 3d 77 30 20 61 73 68 69 ┆ chars:= w0+(w2:=w0 ashi┆
0x36560…3657a 66 74 20 2d 31 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 33 29 ┆ft -1); (w3)┆
0x3657a…36580 (0x25c,0x6cc)
0x36580…365a0 2e 70 68 5f 62 6c 6f 63 6b 75 73 65 64 3a 3d 20 77 30 3a 3d 20 62 79 74 65 73 2b 28 77 33 29 2e ┆.ph_blockused:= w0:= bytes+(w3).┆
0x365a0…365c0 70 68 5f 62 6c 6f 63 6b 75 73 65 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 ┆ph_blockused; end; ┆
0x365c0…365e0 20 20 20 20 20 20 20 20 20 20 20 61 36 3a 3d 20 77 30 3a 3d 20 28 77 32 3a 3d 28 77 33 29 2e 61 ┆ a6:= w0:= (w2:=(w3).a┆
0x365e0…36600 5f 72 65 63 66 75 6c 6c 29 2e 73 65 6d 5f 76 61 6c 75 65 3b 0a 20 20 20 00 00 00 00 00 00 00 00 ┆_recfull).sem_value; ┆
0x36600…36606 (435,) (0x25c,0x6cd)
0x36606…36620 20 20 20 20 20 20 20 20 20 61 37 3a 3d 20 77 30 3a 3d 20 28 77 32 3a 3d 28 77 ┆ a7:= w0:= (w2:=(w┆
0x36620…36640 33 29 2e 61 5f 62 79 74 65 73 66 72 65 65 29 2e 73 65 6d 5f 76 61 6c 75 65 3b 0a 20 20 20 20 20 ┆3).a_bytesfree).sem_value; ┆
0x36640…36660 20 20 20 20 20 20 20 77 33 3a 3d 20 62 2e 63 75 72 72 65 6e 74 3b 0a 20 20 0a 20 20 20 20 20 20 ┆ w3:= b.current; ┆
0x36660…3667e 20 20 20 20 20 20 73 74 61 74 75 73 3a 3d 20 77 30 3a 3d 20 28 77 31 29 2e 62 75 66 5f 73 ┆ status:= w0:= (w1).buf_s┆
0x3667e…36684 (0x25c,0x6ce)
0x36684…366a0 74 61 74 75 73 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 20 28 77 31 29 ┆tatus; w0:= (w1)┆
0x366a0…366c0 2e 62 75 66 5f 72 65 73 75 6c 74 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 20 61 64 ┆.buf_result; w1:= ad┆
0x366c0…366e0 64 72 65 73 73 28 73 74 61 74 75 73 29 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 ┆dress(status); end; ┆
0x366e0…366fc 20 20 20 20 20 20 65 6e 64 20 21 20 69 6e 70 75 74 20 21 0a 20 20 20 20 20 20 20 20 ┆ end ! input ! ┆
0x366fc…36702 (0x25c,0x6cf)
0x36702…36720 65 6c 73 65 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3d 35 20 74 68 65 6e 0a 20 20 20 20 ┆else if w0=5 then ┆
0x36720…36740 20 20 20 20 62 65 67 69 6e 20 21 20 6f 75 74 70 75 74 20 21 0a 20 20 20 20 20 20 20 20 20 20 21 ┆ begin ! output ! !┆
0x36740…36760 20 63 6f 6d 70 75 74 65 20 62 6c 65 6e 67 74 68 20 61 76 6f 69 64 20 74 72 75 6e 63 20 65 72 72 ┆ compute blength avoid trunc err┆
0x36760…3677a 6f 72 73 20 21 0a 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 20 28 77 32 29 2e ┆ors ! w0:= (w2).┆
0x3677a…36780 (0x25c,0x6d0)
0x36780…367a0 6d 65 73 73 5f 66 69 72 73 74 3b 0a 20 20 20 20 20 20 20 20 20 20 2d 28 77 30 20 61 73 68 69 66 ┆mess_first; -(w0 ashif┆
0x367a0…367c0 74 20 2d 31 20 61 73 68 69 66 74 20 31 29 3b 0a 20 20 20 20 20 20 20 20 20 20 77 30 2b 28 77 32 ┆t -1 ashift 1); w0+(w2┆
0x367c0…367e0 29 2e 6d 65 73 73 5f 6c 61 73 74 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 20 3c 20 30 ┆).mess_last; if w0 < 0┆
0x367e0…36800 20 74 68 65 6e 20 67 6f 74 6f 20 75 6e 69 6e 74 3b 0a 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ then goto unint; ┆
0x36800…36806 (436,) (0x25c,0x6d1)
0x36806…36820 20 20 20 20 69 66 20 77 30 3e 3d 34 35 30 20 74 68 65 6e 20 77 30 3a 3d 20 34 ┆ if w0>=450 then w0:= 4┆
0x36820…36840 35 30 0a 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 20 77 30 2b 32 3b 0a 0a 20 20 20 20 20 20 20 ┆50 else w0+2; ┆
0x36840…36860 20 20 20 28 77 33 29 2e 70 68 5f 73 61 76 65 77 30 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 20 ┆ (w3).ph_savew0:= w0; ┆
0x36860…3687e 20 20 6f 75 74 63 61 72 3a 3d 20 77 30 3a 3d 20 28 77 33 29 2e 70 68 5f 6f 75 74 63 61 72 ┆ outcar:= w0:= (w3).ph_outcar┆
0x3687e…36884 (0x25c,0x6d2)
0x36884…368a0 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3d 30 20 74 68 65 6e 0a 20 20 20 ┆; if w0=0 then ┆
0x368a0…368c0 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 70 79 28 2e 77 ┆ begin copy(.w┆
0x368c0…368e0 33 2e 2c 77 30 3a 3d 32 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 6c 6f 63 5f 69 64 29 29 3b 0a 20 ┆3.,w0:=2,w2:=address(loc_id)); ┆
0x368e0…368fc 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3d 2d 32 20 74 68 65 6e 20 67 6f 74 ┆ if w0=-2 then got┆
0x368fc…36902 (0x25c,0x6d3)
0x36902…36920 6f 20 73 74 6f 70 70 65 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3d 2d ┆o stopped; if w0=-┆
0x36920…36940 33 20 74 68 65 6e 20 67 6f 74 6f 20 75 6e 69 6e 74 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 ┆3 then goto unint; end┆
0x36940…36960 3b 0a 0a 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 20 28 77 33 29 2e 70 68 5f 63 68 69 6c 64 3b ┆; w1:= (w3).ph_child;┆
0x36960…3697a 0a 20 20 20 20 20 20 20 20 6c 6f 6f 70 3a 0a 20 20 20 20 20 20 20 20 20 20 69 ┆ loop: i┆
0x3697a…36980 (0x25c,0x6d4)
0x36980…369a0 66 20 77 31 3c 3d 30 20 74 68 65 6e 20 67 6f 74 6f 20 64 69 73 63 6f 6e 6e 65 63 74 3b 20 21 20 ┆f w1<=0 then goto disconnect; ! ┆
0x369a0…369c0 72 65 63 65 69 76 65 72 20 75 6e 6b 6e 6f 77 6e 20 21 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 ┆receiver unknown ! if ┆
0x369c0…369e0 77 30 3a 3d 6f 75 74 63 61 72 3c 3e 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 ┆w0:=outcar<>0 then beg┆
0x369e0…36a00 69 6e 0a 21 74 65 73 74 20 33 30 35 3b 0a 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆in !test 305; ┆
0x36a00…36a06 (437,) (0x25c,0x6d5)
0x36a06…36a20 20 20 69 66 20 77 30 3c 3e 28 77 31 29 2e 74 68 5f 69 6e 63 61 72 20 74 68 65 ┆ if w0<>(w1).th_incar the┆
0x36a20…36a40 6e 20 67 6f 74 6f 20 6e 65 78 74 74 68 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 0a 20 20 20 ┆n goto nextth; end ┆
0x36a40…36a60 20 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 31 ┆ else if w0:=(w1┆
0x36a60…36a7e 29 2e 74 68 5f 74 79 70 65 3d 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 ┆).th_type=0 then beg┆
0x36a7e…36a84 (0x25c,0x6d6)
0x36a84…36aa0 69 6e 0a 21 74 65 73 74 20 33 30 36 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 ┆in !test 306; if┆
0x36aa0…36ac0 20 77 30 3a 3d 6c 6f 63 5f 69 64 3c 3e 28 77 31 29 2e 74 68 5f 6c 6f 63 61 6c 69 64 20 74 68 65 ┆ w0:=loc_id<>(w1).th_localid the┆
0x36ac0…36ae0 6e 20 67 6f 74 6f 20 6e 65 78 74 74 68 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 0a 20 20 20 ┆n goto nextth; end ┆
0x36ae0…36afc 20 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3e ┆ else if w0>┆
0x36afc…36b02 (0x25c,0x6d7)
0x36b02…36b20 3d 34 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 ┆=4 then begin ┆
0x36b20…36b40 20 20 20 20 20 20 69 66 20 77 30 3a 3d 20 6c 6f 63 5f 69 64 20 6c 73 68 69 66 74 20 2d 31 36 20 ┆ if w0:= loc_id lshift -16 ┆
0x36b40…36b60 61 6e 64 20 28 77 31 29 2e 74 68 5f 6d 61 73 6b 3c 3e 28 77 31 29 2e 74 68 5f 73 75 62 73 74 20 ┆and (w1).th_mask<>(w1).th_subst ┆
0x36b60…36b7a 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 6e 65 78 ┆then begin nex┆
0x36b7a…36b80 (0x25c,0x6d8)
0x36b80…36ba0 74 74 68 3a 0a 21 74 65 73 74 20 33 30 37 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 ┆tth: !test 307; w1┆
0x36ba0…36bc0 3a 3d 20 28 77 31 29 2e 74 68 5f 6e 65 78 74 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 ┆:= (w1).th_next; g┆
0x36bc0…36be0 6f 74 6f 20 6c 6f 6f 70 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 ┆oto loop; end; ┆
0x36be0…36c00 20 20 20 20 20 65 6e 64 20 65 6c 73 65 3b 0a 0a 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ end else; ┆
0x36c00…36c06 (438,) (0x25c,0x6d9)
0x36c06…36c20 20 20 70 75 74 5f 6f 70 28 2e 77 33 2e 2c 77 30 3a 3d 28 77 33 29 2e 70 68 5f ┆ put_op(.w3.,w0:=(w3).ph_┆
0x36c20…36c40 73 61 76 65 77 30 2b 21 70 6f 73 69 74 69 6f 6e 28 62 75 66 5f 6c 6f 63 61 6c 69 64 29 2c 77 31 ┆savew0+!position(buf_localid),w1┆
0x36c40…36c60 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 77 31 29 3b 0a 20 20 ┆, w2:=w1); ┆
0x36c60…36c7e 20 20 20 20 20 20 20 20 74 68 6d 61 73 6b 3a 3d 20 77 30 3a 3d 20 30 3b 0a 20 20 20 20 20 ┆ thmask:= w0:= 0; ┆
0x36c7e…36c84 (0x25c,0x6da)
0x36c84…36ca0 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 32 29 2e 74 68 5f 74 79 70 65 3d 34 20 74 ┆ if w0:=(w2).th_type=4 t┆
0x36ca0…36cc0 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆hen begin ┆
0x36cc0…36ce0 69 66 20 77 30 3a 3d 20 28 77 33 29 2e 70 68 5f 6f 75 74 63 61 72 3d 30 20 74 68 65 6e 0a 20 20 ┆if w0:= (w3).ph_outcar=0 then ┆
0x36ce0…36cfc 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ begin ┆
0x36cfc…36d02 (0x25c,0x6db)
0x36d02…36d20 20 20 74 68 6d 61 73 6b 3a 3d 20 77 30 3a 3d 20 28 77 32 29 2e 74 68 5f 6d 61 73 6b 20 6c ┆ thmask:= w0:= (w2).th_mask l┆
0x36d20…36d40 73 68 69 66 74 20 31 36 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 70 68 5f ┆shift 16; (w3).ph_┆
0x36d40…36d60 6f 75 74 63 61 72 3a 3d 20 77 30 3a 3d 20 28 77 32 29 2e 74 68 5f 69 6e 63 61 72 3b 0a 20 20 20 ┆outcar:= w0:= (w2).th_incar; ┆
0x36d60…36d7a 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e ┆ end; en┆
0x36d7a…36d80 (0x25c,0x6dc)
0x36d80…36da0 64 3b 0a 20 20 20 20 20 20 20 20 20 20 61 36 3a 3d 20 77 30 3a 3d 20 28 77 33 3a 3d 28 77 32 29 ┆d; a6:= w0:= (w3:=(w2)┆
0x36da0…36dc0 2e 61 5f 72 65 63 66 75 6c 6c 29 2e 73 65 6d 5f 76 61 6c 75 65 3b 0a 20 20 20 20 20 20 20 20 20 ┆.a_recfull).sem_value; ┆
0x36dc0…36de0 20 61 37 3a 3d 20 77 30 3a 3d 20 28 77 33 3a 3d 28 77 32 29 2e 61 5f 62 79 74 65 73 66 72 65 65 ┆ a7:= w0:= (w3:=(w2).a_bytesfree┆
0x36de0…36e00 29 2e 73 65 6d 5f 76 61 6c 75 65 3b 0a 20 20 20 20 20 20 20 20 20 20 77 00 00 00 00 00 00 00 00 ┆).sem_value; w ┆
0x36e00…36e06 (439,) (0x25c,0x6dd)
0x36e06…36e20 33 3a 3d 20 62 2e 63 75 72 72 65 6e 74 3b 0a 20 20 20 20 20 20 20 20 20 20 77 ┆3:= b.current; w┆
0x36e20…36e40 32 3a 3d 20 28 77 33 29 2e 63 5f 6d 62 75 66 3b 0a 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e ┆2:= (w3).c_mbuf; (w1).┆
0x36e40…36e60 62 75 66 6d 5f 6f 70 3a 3d 20 77 30 3a 3d 20 35 3b 20 28 77 31 29 2e 62 75 66 6d 5f 6d 6f 64 65 ┆bufm_op:= w0:= 5; (w1).bufm_mode┆
0x36e60…36e7e 3a 3d 20 77 30 3a 3d 20 28 77 32 29 2e 6d 65 73 73 5f 6d 6f 64 65 3b 0a 20 20 20 20 20 20 ┆:= w0:= (w2).mess_mode; ┆
0x36e7e…36e84 (0x25c,0x6de)
0x36e84…36ea0 20 20 20 20 77 30 3a 3d 20 28 77 33 29 2e 70 68 5f 73 61 76 65 77 30 3b 0a 20 20 20 ┆ w0:= (w3).ph_savew0; ┆
0x36ea0…36ec0 20 20 20 20 20 20 20 63 6f 70 79 28 2e 77 33 2e 2c 77 30 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 ┆ copy(.w3.,w0,w2:=address(┆
0x36ec0…36ee0 28 77 31 29 2e 62 75 66 5f 6c 6f 63 61 6c 69 64 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 28 77 ┆(w1).buf_localid)); (w┆
0x36ee0…36efc 31 29 2e 62 75 66 5f 62 79 74 65 73 3a 3d 20 77 30 3b 20 21 20 69 66 20 6e 6f 20 62 ┆1).buf_bytes:= w0; ! if no b┆
0x36efc…36f02 (0x25c,0x6df)
0x36f02…36f20 79 74 65 73 20 63 6f 70 69 65 64 20 74 68 65 20 27 70 75 74 74 65 64 27 20 6f 70 65 72 61 ┆ytes copied the 'putted' opera┆
0x36f20…36f40 74 69 6f 6e 20 69 73 20 63 68 61 6e 67 65 64 20 21 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 ┆tion is changed ! if w┆
0x36f40…36f60 30 3d 2d 32 20 74 68 65 6e 20 67 6f 74 6f 20 73 74 6f 70 70 65 64 3b 0a 20 20 20 20 20 20 20 20 ┆0=-2 then goto stopped; ┆
0x36f60…36f7a 20 20 69 66 20 77 30 3d 2d 33 20 74 68 65 6e 20 67 6f 74 6f 20 75 6e 69 6e 74 ┆ if w0=-3 then goto unint┆
0x36f7a…36f80 (0x25c,0x6e0)
0x36f80…36fa0 3b 0a 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 20 2d 31 3b 20 77 33 20 78 6f 72 20 74 68 6d 61 ┆; w3:= -1; w3 xor thma┆
0x36fa0…36fc0 73 6b 3b 0a 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 62 75 66 5f 6c 6f 63 61 6c 69 64 3a 3d ┆sk; (w1).buf_localid:=┆
0x36fc0…36fe0 20 77 33 20 61 6e 64 20 28 77 31 29 2e 62 75 66 5f 6c 6f 63 61 6c 69 64 3b 0a 20 20 20 20 20 20 ┆ w3 and (w1).buf_localid; ┆
0x36fe0…37000 20 20 20 20 74 65 73 74 6f 75 74 28 2e 77 33 2e 2c 77 30 2c 77 31 3a 3d 00 00 00 00 00 00 00 00 ┆ testout(.w3.,w0,w1:= ┆
0x37000…37006 (440,) (0x25c,0x6e1)
0x37006…37020 77 32 2c 77 32 3a 3d 30 29 3b 0a 20 20 20 20 20 20 20 20 20 20 73 74 61 74 75 ┆w2,w2:=0); statu┆
0x37020…37040 73 3a 3d 20 77 32 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 20 20 62 79 74 65 73 3a 3d 20 77 30 ┆s:= w2:= 0; bytes:= w0┆
0x37040…37060 3b 0a 20 20 20 20 20 20 20 20 20 20 63 68 61 72 73 3a 3d 20 77 30 2b 28 77 32 3a 3d 77 30 20 61 ┆; chars:= w0+(w2:=w0 a┆
0x37060…3707e 73 68 69 66 74 20 2d 31 29 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 ┆shift -1); if w0:=(w┆
0x3707e…37084 (0x25c,0x6e2)
0x37084…370a0 33 29 2e 70 68 5f 6f 75 74 63 61 72 3c 3e 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 ┆3).ph_outcar<>0 then ┆
0x370a0…370c0 20 20 20 62 65 67 69 6e 20 21 20 74 65 73 74 20 65 6e 64 20 6f 66 20 72 65 63 6f 72 64 20 21 0a ┆ begin ! test end of record ! ┆
0x370c0…370e0 20 20 20 20 20 20 20 20 20 20 20 20 77 31 2b 62 79 74 65 73 2d 32 3b 0a 20 20 20 20 20 20 20 20 ┆ w1+bytes-2; ┆
0x370e0…370fc 20 20 20 20 77 31 3a 3d 20 28 77 31 29 2e 77 6f 72 64 3b 0a 20 20 20 20 20 20 20 20 ┆ w1:= (w1).word; ┆
0x370fc…37102 (0x25c,0x6e3)
0x37102…37120 20 20 20 20 77 68 69 6c 65 20 77 31 3c 3e 30 20 64 6f 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ while w1<>0 do ┆
0x37120…37140 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 20 30 3b 0a 20 20 20 ┆ begin w0:= 0; ┆
0x37140…37160 20 20 20 20 20 20 20 20 20 20 20 66 31 20 6c 73 68 69 66 74 20 38 3b 0a 20 20 20 20 20 20 20 20 ┆ f1 lshift 8; ┆
0x37160…3717a 20 20 20 20 20 20 69 66 20 77 30 3d 62 2e 65 74 78 20 74 68 65 6e 20 77 31 3a ┆ if w0=b.etx then w1:┆
0x3717a…37180 (0x25c,0x6e4)
0x37180…371a0 3d 20 30 3b 0a 21 74 65 73 74 20 33 31 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b ┆= 0; !test 311; end;┆
0x371a0…371c0 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3d 62 2e 65 74 78 20 74 68 65 6e 20 28 77 ┆ if w0=b.etx then (w┆
0x371c0…371e0 33 29 2e 70 68 5f 6f 75 74 63 61 72 3a 3d 20 77 30 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 20 ┆3).ph_outcar:= w0:= 0; ┆
0x371e0…37200 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 20 31 3b 20 00 00 00 00 00 00 00 00 ┆ end; w0:= 1; ┆
0x37200…37206 (441,) (0x25c,0x6e5)
0x37206…37220 20 77 31 3a 3d 20 61 64 64 72 65 73 73 28 73 74 61 74 75 73 29 3b 0a 20 20 20 ┆ w1:= address(status); ┆
0x37220…37240 20 20 20 20 20 65 6e 64 20 21 20 6f 75 74 70 75 74 20 21 0a 20 20 20 20 20 20 20 20 65 6c 73 65 ┆ end ! output ! else┆
0x37240…37260 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3d 32 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 62 65 ┆ if w0=2 then be┆
0x37260…3727e 67 69 6e 20 21 20 66 38 30 30 30 20 63 6f 6e 74 72 6f 6c 20 6d 65 73 73 61 67 65 20 21 0a ┆gin ! f8000 control message ! ┆
0x3727e…37284 (0x25c,0x6e6)
0x37284…372a0 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 6d 65 73 73 61 67 65 20 72 65 63 ┆ ! message rec┆
0x372a0…372c0 65 69 76 65 64 20 66 72 6f 6d 20 61 70 70 6c 69 63 61 74 69 6f 6e 3a 20 20 20 21 0a 20 20 20 20 ┆eived from application: ! ┆
0x372c0…372e0 20 20 20 20 20 20 20 20 20 20 21 20 6d 65 73 73 20 2b 20 30 3a 20 20 20 32 20 73 68 69 66 74 20 ┆ ! mess + 0: 2 shift ┆
0x372e0…372fc 31 32 20 2b 20 6f 70 65 72 61 74 69 6f 6e 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 ┆12 + operation ! ┆
0x372fc…37302 (0x25c,0x6e7)
0x37302…37320 20 20 20 20 20 21 20 6d 65 73 73 20 2b 20 32 3a 20 20 20 69 66 20 62 69 74 20 32 33 20 74 ┆ ! mess + 2: if bit 23 t┆
0x37320…37340 68 65 6e 20 74 65 72 6d 69 6e 61 6c 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 ┆hen terminal ! ! ┆
0x37340…37360 6d 65 73 73 20 2b 20 34 3a 20 20 20 6c 69 6e 65 2c 63 75 2c 64 65 76 69 63 65 28 70 68 79 73 69 ┆mess + 4: line,cu,device(physi┆
0x37360…3737a 63 61 6c 29 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 6d 65 73 ┆cal) ! ! mes┆
0x3737a…37380 (0x25c,0x6e8)
0x37380…373a0 73 20 2b 20 36 3a 20 20 20 6c 69 6e 6b 2c 63 75 2c 64 65 76 69 63 65 28 6c 6f 67 69 63 61 6c 29 ┆s + 6: link,cu,device(logical)┆
0x373a0…373c0 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 6d 65 73 73 20 2b 20 38 3a 20 20 20 ┆ ! ! mess + 8: ┆
0x373c0…373e0 6c 6f 63 61 6c 5f 69 64 20 28 30 2c 63 75 2c 64 65 76 69 63 65 29 20 2a 20 21 0a 20 20 20 20 20 ┆local_id (0,cu,device) * ! ┆
0x373e0…37400 20 20 20 20 20 20 20 20 20 21 20 2a 20 28 75 73 65 64 20 62 79 20 74 65 00 00 00 00 00 00 00 00 ┆ ! * (used by te ┆
0x37400…37406 (442,) (0x25c,0x6e9)
0x37406…37420 6d 20 74 6f 20 69 64 65 6e 74 69 66 79 20 74 68 65 20 6c 69 6e 6b 29 20 21 0a ┆m to identify the link) ! ┆
0x37420…37440 0a 0a 20 20 20 20 20 20 20 20 20 20 6c 6f 63 5f 69 64 3a 3d 20 77 30 3a 3d 20 28 77 32 29 2e 6d ┆ loc_id:= w0:= (w2).m┆
0x37440…37460 65 73 73 5f 38 3b 0a 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 20 28 77 33 29 2e 70 68 5f 63 68 ┆ess_8; w1:= (w3).ph_ch┆
0x37460…3747e 69 6c 64 3b 0a 20 20 20 20 20 20 20 20 20 20 77 68 69 6c 65 20 77 31 3e 30 20 64 6f 0a 20 ┆ild; while w1>0 do ┆
0x3747e…37484 (0x25c,0x6ea)
0x37484…374a0 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 21 20 66 69 6e 64 20 74 65 72 6d 69 6e ┆ begin ! find termin┆
0x374a0…374c0 61 6c 20 68 61 6e 64 6c 65 72 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d ┆al handler ! if w0:=┆
0x374c0…374e0 6c 6f 63 5f 69 64 20 6c 73 68 69 66 74 20 2d 38 20 61 6e 64 20 28 77 31 29 2e 74 68 5f 6d 61 73 ┆loc_id lshift -8 and (w1).th_mas┆
0x374e0…374fc 6b 3d 28 77 31 29 2e 74 68 5f 73 75 62 73 74 20 74 68 65 6e 0a 20 20 20 20 20 20 20 ┆k=(w1).th_subst then ┆
0x374fc…37502 (0x25c,0x6eb)
0x37502…37520 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 ┆ begin if w0┆
0x37520…37540 3a 3d 20 28 77 31 29 2e 74 68 5f 74 79 70 65 3d 34 20 74 68 65 6e 20 67 6f 74 6f 20 66 6f 75 6e ┆:= (w1).th_type=4 then goto foun┆
0x37540…37560 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆d; end; ┆
0x37560…3757a 77 31 3a 3d 20 28 77 31 29 2e 74 68 5f 6e 65 78 74 3b 0a 20 20 20 20 20 20 20 ┆w1:= (w1).th_next; ┆
0x3757a…37580 (0x25c,0x6ec)
0x37580…375a0 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 64 69 73 63 6f 6e 6e 65 63 ┆ end; goto disconnec┆
0x375a0…375c0 74 3b 20 21 20 6e 6f 74 20 66 6f 75 6e 64 20 21 0a 66 6f 75 6e 64 3a 20 20 20 20 70 75 74 5f 6f ┆t; ! not found ! found: put_o┆
0x375c0…375e0 70 28 2e 77 33 2e 2c 77 30 3a 3d 38 2c 77 31 2c 77 32 3a 3d 77 31 29 3b 0a 20 20 20 20 20 20 20 ┆p(.w3.,w0:=8,w1,w2:=w1); ┆
0x375e0…37600 20 20 20 68 65 6c 70 3a 3d 20 77 32 3b 20 21 20 73 61 76 65 20 74 68 5f 00 00 00 00 00 00 00 00 ┆ help:= w2; ! save th_ ┆
0x37600…37606 (443,) (0x25c,0x6ed)
0x37606…37620 72 65 66 20 21 0a 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 77 31 3b 77 31 3a ┆ref ! w2:=w1;w1:┆
0x37620…37640 3d 61 64 64 72 65 73 73 28 28 77 31 3a 3d 28 77 33 29 2e 63 5f 6d 62 75 66 29 2e 63 6d 5f 6f 70 ┆=address((w1:=(w3).c_mbuf).cm_op┆
0x37640…37660 29 3b 0a 20 20 20 20 20 20 20 20 20 20 6d 6f 76 65 28 2e 77 33 2e 2c 77 30 2c 77 31 2c 77 32 29 ┆); move(.w3.,w0,w1,w2)┆
0x37660…3767e 3b 0a 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 20 68 65 6c 70 3b 20 21 20 75 6e 73 61 76 ┆; w1:= help; ! unsav┆
0x3767e…37684 (0x25c,0x6ee)
0x37684…376a0 65 20 74 68 5f 72 65 66 20 21 0a 20 20 20 20 20 20 20 20 20 20 6c 6f 63 6b 20 28 2e ┆e th_ref ! lock (.┆
0x376a0…376c0 77 33 2e 2c 77 30 3a 3d 31 2c 77 32 3a 3d 20 28 77 31 29 2e 74 68 5f 63 6f 6e 74 72 6f 6c 29 3b ┆w3.,w0:=1,w2:= (w1).th_control);┆
0x376c0…376e0 0a 20 20 20 20 20 20 20 20 20 20 21 20 77 61 69 74 20 66 6f 72 20 74 65 72 6d 69 6e 61 6c 20 68 ┆ ! wait for terminal h┆
0x376e0…376fc 61 6e 64 6c 65 72 20 74 6f 20 61 6e 73 77 65 72 20 63 6f 6e 74 72 6f 6c 20 6d 65 73 ┆andler to answer control mes┆
0x376fc…37702 (0x25c,0x6ef)
0x37702…37720 73 61 67 65 20 21 0a 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 6e 65 78 74 5f 6d 65 73 ┆sage ! goto next_mes┆
0x37720…37740 73 61 67 65 3b 0a 0a 20 20 20 20 20 20 20 20 65 6e 64 20 21 20 63 6f 6e 74 72 6f 6c 20 6d 65 73 ┆sage; end ! control mes┆
0x37740…37760 73 61 67 65 20 21 0a 20 20 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 69 66 20 77 ┆sage ! else if w┆
0x37760…3777a 30 3d 34 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 21 20 66 ┆0=4 then begin ! f┆
0x3777a…37780 (0x25c,0x6f0)
0x37780…377a0 38 30 30 30 20 63 6f 6e 74 72 6f 6c 20 6d 65 73 73 61 67 65 20 28 61 64 70 33 32 37 30 2c 20 73 ┆8000 control message (adp3270, s┆
0x377a0…377c0 65 65 3a 22 72 63 73 6c 2e 20 39 39 31 20 30 39 39 31 30 22 29 20 21 0a 0a 20 20 20 20 20 20 20 ┆ee:"rcsl. 991 09910") ! ┆
0x377c0…377e0 20 20 20 20 20 20 20 21 20 6d 65 73 73 61 67 65 20 72 65 63 65 69 76 65 64 20 66 72 6f 6d 20 61 ┆ ! message received from a┆
0x377e0…37800 70 70 6c 69 63 61 74 69 6f 6e 3a 20 20 20 21 0a 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆pplication: ! ┆
0x37800…37806 (444,) (0x25c,0x6f1)
0x37806…37820 20 20 20 20 20 20 21 20 6d 65 73 73 20 2b 20 30 3a 20 20 34 20 73 68 69 66 74 ┆ ! mess + 0: 4 shift┆
0x37820…37840 20 31 32 20 2b 20 6f 70 65 72 61 74 69 6f 6e 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ 12 + operation ! ┆
0x37840…37860 20 20 20 21 20 6d 65 73 73 20 2b 20 32 20 2e 2e 2e 20 6d 65 73 73 20 2b 20 31 30 20 6f 70 2e 20 ┆ ! mess + 2 ... mess + 10 op. ┆
0x37860…3787e 64 65 70 65 6e 64 61 6e 74 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 6d 65 ┆dependant ! ! me┆
0x3787e…37884 (0x25c,0x6f2)
0x37884…378a0 73 73 20 2b 31 32 3a 20 6c 6f 63 61 6c 20 69 64 20 28 30 2c 20 63 75 2c 20 64 65 76 ┆ss +12: local id (0, cu, dev┆
0x378a0…378c0 69 63 65 29 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 2a 75 73 65 64 20 62 ┆ice) ! ! *used b┆
0x378c0…378e0 79 20 74 65 6d 20 74 6f 20 69 64 65 6e 74 69 66 79 20 74 68 65 20 6c 69 6e 6b 20 20 20 20 21 0a ┆y tem to identify the link ! ┆
0x378e0…378fc 0a 20 20 20 20 20 20 20 20 20 20 6c 6f 63 5f 69 64 3a 3d 20 77 30 3a 3d 20 28 77 32 ┆ loc_id:= w0:= (w2┆
0x378fc…37902 (0x25c,0x6f3)
0x37902…37920 29 2e 6d 65 73 73 5f 31 34 3b 0a 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 20 28 77 33 29 ┆).mess_14; w1:= (w3)┆
0x37920…37940 2e 70 68 5f 63 68 69 6c 64 3b 0a 20 20 20 20 20 20 20 20 20 20 77 68 69 6c 65 20 77 31 3e 30 20 ┆.ph_child; while w1>0 ┆
0x37940…37960 64 6f 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 21 20 66 69 6e 64 20 74 65 72 6d 69 6e ┆do begin ! find termin┆
0x37960…3797a 61 6c 20 68 61 6e 64 6c 65 72 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 ┆al handler ! i┆
0x3797a…37980 (0x25c,0x6f4)
0x37980…379a0 66 20 77 30 3a 3d 20 6c 6f 63 5f 69 64 20 6c 73 68 69 66 74 20 2d 38 20 61 6e 64 20 20 28 77 31 ┆f w0:= loc_id lshift -8 and (w1┆
0x379a0…379c0 29 2e 74 68 5f 6d 61 73 6b 20 3d 20 28 77 31 29 2e 74 68 5f 73 75 62 73 74 20 74 68 65 6e 0a 20 ┆).th_mask = (w1).th_subst then ┆
0x379c0…379e0 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 ┆ begin i┆
0x379e0…37a00 66 20 77 30 3a 3d 28 77 31 29 2e 74 68 5f 74 79 70 65 20 3d 20 34 20 74 00 00 00 00 00 00 00 00 ┆f w0:=(w1).th_type = 4 t ┆
0x37a00…37a06 (445,) (0x25c,0x6f5)
0x37a06…37a20 68 65 6e 20 67 6f 74 6f 20 61 64 70 5f 66 6f 75 6e 64 3b 0a 20 20 20 20 20 20 ┆hen goto adp_found; ┆
0x37a20…37a40 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 20 28 77 31 29 ┆ end; w1:= (w1)┆
0x37a40…37a60 2e 74 68 5f 6e 65 78 74 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 ┆.th_next; end; ┆
0x37a60…37a7e 20 20 20 67 6f 74 6f 20 64 69 73 63 6f 6e 6e 65 63 74 3b 20 21 20 6e 6f 74 20 66 6f 75 6e ┆ goto disconnect; ! not foun┆
0x37a7e…37a84 (0x25c,0x6f6)
0x37a84…37aa0 64 20 21 0a 61 64 70 5f 66 6f 75 6e 64 3a 70 75 74 5f 6f 70 20 28 2e 77 33 2e 2c 77 ┆d ! adp_found:put_op (.w3.,w┆
0x37aa0…37ac0 30 3a 3d 31 36 2c 77 31 2c 77 32 3a 3d 77 31 29 3b 0a 20 20 20 20 20 20 20 20 20 20 68 65 6c 70 ┆0:=16,w1,w2:=w1); help┆
0x37ac0…37ae0 3a 3d 20 77 32 3b 20 21 20 73 61 76 65 20 74 68 5f 72 65 66 20 21 0a 20 20 20 20 20 20 20 20 20 ┆:= w2; ! save th_ref ! ┆
0x37ae0…37afc 20 77 32 3a 3d 20 77 31 3b 77 31 3a 3d 20 61 64 64 72 65 73 73 28 28 77 31 3a 3d 28 ┆ w2:= w1;w1:= address((w1:=(┆
0x37afc…37b02 (0x25c,0x6f7)
0x37b02…37b20 77 33 29 2e 63 5f 6d 62 75 66 29 2e 63 6d 5f 6f 70 29 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆w3).c_mbuf).cm_op); ┆
0x37b20…37b40 6d 6f 76 65 20 28 2e 77 33 2e 2c 77 30 2c 20 77 31 2c 20 77 32 29 3b 0a 20 20 20 20 20 20 20 20 ┆move (.w3.,w0, w1, w2); ┆
0x37b40…37b60 20 20 77 31 3a 3d 20 68 65 6c 70 3b 20 21 20 75 6e 73 61 76 65 20 74 68 5f 72 65 66 20 21 0a 20 ┆ w1:= help; ! unsave th_ref ! ┆
0x37b60…37b7a 20 20 20 20 20 20 20 20 20 6c 6f 63 6b 20 28 2e 77 33 2e 2c 77 30 3a 3d 31 2c ┆ lock (.w3.,w0:=1,┆
0x37b7a…37b80 (0x25c,0x6f8)
0x37b80…37ba0 77 32 3a 3d 20 28 77 31 29 2e 74 68 5f 63 6f 6e 74 72 6f 6c 29 3b 0a 20 20 20 20 20 20 20 20 20 ┆w2:= (w1).th_control); ┆
0x37ba0…37bc0 20 21 20 77 61 69 74 20 66 6f 72 20 74 65 72 6d 69 6e 61 6c 20 68 61 6e 64 6c 65 72 20 74 6f 20 ┆ ! wait for terminal handler to ┆
0x37bc0…37be0 61 6e 73 77 65 72 20 63 6f 6e 74 72 6f 6c 20 6d 65 73 73 61 67 65 20 21 0a 20 20 20 20 20 20 20 ┆answer control message ! ┆
0x37be0…37c00 20 20 20 67 6f 74 6f 20 6e 65 78 74 5f 6d 65 73 73 61 67 65 3b 0a 20 20 00 00 00 00 00 00 00 00 ┆ goto next_message; ┆
0x37c00…37c06 (446,) (0x25c,0x6f9)
0x37c06…37c20 20 20 20 20 20 20 65 6e 64 20 21 20 65 6e 64 20 63 6f 6e 74 72 6f 6c 20 6d 65 ┆ end ! end control me┆
0x37c20…37c40 73 73 61 67 65 20 28 61 64 70 29 20 21 0a 20 20 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 ┆ssage (adp) ! else ┆
0x37c40…37c60 20 20 20 69 66 20 77 30 3d 31 31 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 ┆ if w0=110 then begin ┆
0x37c60…37c7e 21 20 73 74 61 72 74 20 69 6e 70 75 74 20 21 0a 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d ┆! start input ! w1:=┆
0x37c7e…37c84 (0x25c,0x6fa)
0x37c84…37ca0 20 28 77 33 29 2e 70 68 5f 63 68 69 6c 64 3b 0a 6c 6f 6f 70 5f 73 74 69 6e 3a 0a 20 ┆ (w3).ph_child; loop_stin: ┆
0x37ca0…37cc0 20 20 20 20 20 20 20 20 20 69 66 20 77 31 3c 3d 30 20 74 68 65 6e 20 67 6f 74 6f 20 64 69 73 63 ┆ if w1<=0 then goto disc┆
0x37cc0…37ce0 6f 6e 6e 65 63 74 3b 20 21 20 72 65 63 65 69 76 65 72 20 75 6e 6b 6e 6f 77 6e 20 21 0a 20 20 20 ┆onnect; ! receiver unknown ! ┆
0x37ce0…37cfc 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 31 29 2e 74 68 5f 74 79 70 65 3d 30 ┆ if w0:=(w1).th_type=0┆
0x37cfc…37d02 (0x25c,0x6fb)
0x37d02…37d20 20 74 68 65 6e 20 77 30 3a 3d 20 28 77 32 29 2e 63 6d 5f 6c 6f 63 61 6c 69 64 0a 20 20 20 ┆ then w0:= (w2).cm_localid ┆
0x37d20…37d40 20 20 20 20 20 20 20 65 6c 73 65 20 69 66 20 77 30 3d 32 20 74 68 65 6e 20 77 30 3a 3d 20 30 0a ┆ else if w0=2 then w0:= 0 ┆
0x37d40…37d60 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 20 77 30 3a 3d 20 28 77 32 29 2e 63 6d 5f 6c 6f 63 61 ┆ else w0:= (w2).cm_loca┆
0x37d60…37d7a 6c 69 64 20 6c 73 68 69 66 74 20 2d 31 36 20 6c 73 68 69 66 74 20 31 36 3b 0a ┆lid lshift -16 lshift 16; ┆
0x37d7a…37d80 (0x25c,0x6fc)
0x37d80…37da0 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3c 3e 28 77 31 29 2e 74 68 5f 6c 6f 63 61 6c 69 ┆ if w0<>(w1).th_locali┆
0x37da0…37dc0 64 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 ┆d then begin ┆
0x37dc0…37de0 20 20 20 77 31 3a 3d 20 28 77 31 29 2e 74 68 5f 6e 65 78 74 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆ w1:= (w1).th_next; ┆
0x37de0…37e00 20 20 67 6f 74 6f 20 6c 6f 6f 70 5f 73 74 69 6e 3b 0a 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ goto loop_stin; ┆
0x37e00…37e06 (447,) (0x25c,0x6fd)
0x37e06…37e20 20 20 20 20 65 6e 64 3b 0a 0a 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 70 ┆ end; (w3).p┆
0x37e20…37e40 68 5f 73 61 76 65 77 31 3a 3d 77 30 3a 3d 28 77 32 29 2e 6d 65 73 73 5f 6d 6f 64 65 3b 0a 0a 20 ┆h_savew1:=w0:=(w2).mess_mode; ┆
0x37e40…37e60 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 70 68 5f 73 61 76 65 77 30 3a 3d 20 77 30 3a 3d 20 28 ┆ (w3).ph_savew0:= w0:= (┆
0x37e60…37e7e 77 32 29 2e 63 6d 5f 62 75 66 73 3b 0a 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 20 77 31 ┆w2).cm_bufs; w2:= w1┆
0x37e7e…37e84 (0x25c,0x6fe)
0x37e84…37ea0 3b 0a 20 20 20 20 20 20 20 20 20 20 77 68 69 6c 65 20 77 30 3a 3d 28 77 33 29 2e 70 ┆; while w0:=(w3).p┆
0x37ea0…37ec0 68 5f 73 61 76 65 77 30 3e 30 20 64 6f 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 ┆h_savew0>0 do begin ┆
0x37ec0…37ee0 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 70 68 5f 73 61 76 65 77 30 3a 3d 20 77 30 2d 31 3b ┆ (w3).ph_savew0:= w0-1;┆
0x37ee0…37efc 0a 20 20 20 20 20 20 20 20 20 20 20 20 70 75 74 5f 6f 70 28 2e 77 33 2e 2c 77 30 3a ┆ put_op(.w3.,w0:┆
0x37efc…37f02 (0x25c,0x6ff)
0x37f02…37f20 3d 21 70 6f 73 69 74 69 6f 6e 28 62 75 66 5f 63 68 61 72 73 29 2c 77 31 2c 77 32 29 3b 0a ┆=!position(buf_chars),w1,w2); ┆
0x37f20…37f40 20 20 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 62 75 66 6d 5f 6f 70 3a 3d 20 77 30 3a 3d 20 ┆ (w1).bufm_op:= w0:= ┆
0x37f40…37f60 33 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 62 75 66 6d 5f 6d 6f 64 65 3a 3d 20 ┆3; (w1).bufm_mode:= ┆
0x37f60…37f7a 77 30 3a 3d 20 28 77 33 29 2e 70 68 5f 73 61 76 65 77 31 3b 0a 20 20 20 20 20 ┆w0:= (w3).ph_savew1; ┆
0x37f7a…37f80 (0x25c,0x700)
0x37f80…37fa0 20 20 20 20 20 20 20 28 77 31 29 2e 62 75 66 5f 62 79 74 65 73 3a 3d 20 77 30 3a 3d 20 62 2e 62 ┆ (w1).buf_bytes:= w0:= b.b┆
0x37fa0…37fc0 75 66 6c 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 77 32 29 2e 74 68 5f 75 73 65 64 62 75 66 ┆ufl; (w2).th_usedbuf┆
0x37fc0…37fe0 3a 3d 20 77 30 3a 3d 20 28 77 32 29 2e 74 68 5f 75 73 65 64 62 75 66 2b 31 3b 0a 20 20 20 20 20 ┆:= w0:= (w2).th_usedbuf+1; ┆
0x37fe0…38000 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 00 00 00 00 00 00 00 00 ┆ end; goto ┆
0x38000…38006 (448,) (0x25c,0x701)
0x38006…38020 20 61 6e 73 5f 73 65 6e 73 65 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 0a 20 20 ┆ ans_sense; end ┆
0x38020…38040 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3d 77 30 20 74 68 65 6e ┆ else if w0=w0 then┆
0x38040…38060 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 75 6e 69 6e 74 3a 0a 20 20 20 20 20 20 20 20 20 20 ┆ begin unint: ┆
0x38060…3807e 77 30 3a 3d 20 33 3b 20 67 6f 74 6f 20 7a 65 72 6f 5f 61 6e 73 77 65 72 3b 0a 20 20 20 20 ┆w0:= 3; goto zero_answer; ┆
0x3807e…38084 (0x25c,0x702)
0x38084…380a0 20 20 20 20 65 6e 64 0a 20 20 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 20 ┆ end else ┆
0x380a0…380c0 20 69 66 20 77 30 3d 77 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 73 74 6f ┆ if w0=w0 then begin sto┆
0x380c0…380e0 70 70 65 64 3a 0a 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 20 31 3b 20 67 6f 74 6f 20 7a 65 72 ┆pped: w0:= 1; goto zer┆
0x380e0…380fc 6f 5f 61 6e 73 77 65 72 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 0a 20 20 20 20 20 20 ┆o_answer; end ┆
0x380fc…38102 (0x25c,0x703)
0x38102…38120 20 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 64 69 73 63 6f 6e 6e 65 63 ┆ else begin disconnec┆
0x38120…38140 74 3a 0a 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 20 34 3b 20 67 6f 74 6f 20 7a 65 72 6f 5f 61 ┆t: w0:= 4; goto zero_a┆
0x38140…38160 6e 73 77 65 72 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 6d 72 65 73 ┆nswer; end; mres┆
0x38160…3817a 75 6c 74 3a 3d 20 77 30 3b 20 21 20 73 61 76 65 20 72 65 73 75 6c 74 20 66 6f ┆ult:= w0; ! save result fo┆
0x3817a…38180 (0x25c,0x704)
0x38180…381a0 72 20 74 65 73 74 6f 75 74 70 75 74 20 21 0a 0a 20 20 20 20 20 20 20 20 21 20 73 65 6e 64 20 61 ┆r testoutput ! ! send a┆
0x381a0…381c0 6e 73 77 65 72 20 21 0a 20 20 20 20 20 20 20 20 77 32 3a 3d 20 28 77 33 3a 3d 62 2e 63 75 72 72 ┆nswer ! w2:= (w3:=b.curr┆
0x381c0…381e0 65 6e 74 29 2e 63 5f 6d 62 75 66 3b 0a 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 32 32 29 ┆ent).c_mbuf; monitor(22)┆
0x381e0…38200 3b 0a 20 20 20 20 20 20 20 20 77 30 3a 3d 20 30 3b 0a 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆; w0:= 0; ┆
0x38200…38206 (449,) (0x25c,0x705)
0x38206…38220 20 20 28 77 33 29 2e 63 5f 6d 62 75 66 3a 3d 20 77 30 3b 20 21 20 63 6c 65 61 ┆ (w3).c_mbuf:= w0; ! clea┆
0x38220…38240 72 20 6f 70 65 72 61 74 69 6f 6e 20 21 0a 20 20 20 20 20 20 20 20 74 65 73 74 6f 75 74 28 2e 77 ┆r operation ! testout(.w┆
0x38240…38260 33 2e 2c 77 30 3a 3d 31 38 2c 77 31 2d 32 2c 77 32 3a 3d 36 31 29 3b 0a 6e 65 78 74 5f 6d 65 73 ┆3.,w0:=18,w1-2,w2:=61); next_mes┆
0x38260…3827e 73 61 67 65 3a 0a 20 20 20 20 20 20 65 6e 64 3b 20 21 20 66 6f 72 20 65 76 65 72 20 21 0a ┆sage: end; ! for ever ! ┆
0x3827e…38284 (0x25c,0x706)
0x38284…382a0 20 20 20 20 65 6e 64 3b 0a 20 20 65 6e 64 3b 20 21 20 70 68 20 21 0a 0a 0a 0a 20 20 ┆ end; end; ! ph ! ┆
0x382a0…382c0 62 6f 64 79 20 6f 66 20 74 68 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 6c 61 62 65 6c 20 74 74 79 ┆body of th begin label tty┆
0x382c0…382e0 6c 6f 6f 70 2c 20 6e 65 78 74 2c 20 74 65 72 6d 69 6e 73 65 6e 73 65 2c 20 74 65 72 6d 69 6e 70 ┆loop, next, terminsense, terminp┆
0x382e0…382fc 75 74 2c 20 74 65 72 6d 69 6e 61 6e 73 77 65 72 3b 0a 20 20 20 20 69 6e 63 6f 64 65 ┆ut, terminanswer; incode┆
0x382fc…38302 (0x25c,0x707)
0x38302…38320 0a 20 20 20 20 72 65 66 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 77 6f 72 64 20 6e 6c 3a 3d ┆ ref return; word nl:=┆
0x38320…38340 20 34 27 30 30 32 32 30 30 30 30 30 30 30 30 2c 73 65 6e 73 65 3a 3d 30 2c 73 65 6e 73 65 72 65 ┆ 4'002200000000,sense:=0,sensere┆
0x38340…38360 61 64 79 3a 3d 32 2c 68 65 6c 70 3b 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 72 65 74 ┆ady:=2,help; begin ret┆
0x38360…3837a 75 72 6e 3a 3d 20 77 33 3b 20 63 61 6c 6c 20 77 33 20 72 65 74 75 72 6e 3b 0a ┆urn:= w3; call w3 return; ┆
0x3837a…38380 (0x25c,0x708)
0x38380…383a0 20 20 20 20 20 20 21 20 73 79 6e 63 68 72 6f 6e 69 7a 65 20 77 69 74 68 20 74 65 72 6d 69 6e 61 ┆ ! synchronize with termina┆
0x383a0…383c0 6c 20 28 77 61 69 74 20 75 6e 74 69 6c 6c 20 70 72 65 76 69 6f 75 73 20 69 6f 20 68 61 73 20 74 ┆l (wait untill previous io has t┆
0x383c0…383e0 65 72 6d 69 6e 61 74 65 64 29 20 21 0a 20 20 20 20 20 20 73 65 6e 64 77 61 69 74 28 2e 77 33 2e ┆erminated) ! sendwait(.w3.┆
0x383e0…38400 2c 77 30 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 73 65 6e 73 65 29 2c 77 00 00 00 00 00 00 00 00 ┆,w0,w1:=address(sense),w ┆
0x38400…38406 (450,) (0x25c,0x709)
0x38406…38420 32 3a 3d 61 64 64 72 65 73 73 28 28 77 33 29 2e 74 68 5f 6e 61 6d 65 29 29 3b ┆2:=address((w3).th_name));┆
0x38420…38440 0a 0a 20 20 20 20 20 20 77 68 69 6c 65 20 77 31 3d 77 31 20 64 6f 0a 20 20 20 20 20 20 62 65 67 ┆ while w1=w1 do beg┆
0x38440…38460 69 6e 0a 20 20 20 20 20 20 20 20 77 61 69 74 5f 6f 70 28 2e 77 33 2e 2c 77 30 2c 77 31 2c 77 32 ┆in wait_op(.w3.,w0,w1,w2┆
0x38460…3847e 3a 3d 77 33 29 3b 0a 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 31 29 2e 62 75 ┆:=w3); if w0:=(w1).bu┆
0x3847e…38484 (0x25c,0x70a)
0x38484…384a0 66 6d 5f 6f 70 20 3d 20 33 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e ┆fm_op = 3 then begin┆
0x384a0…384c0 20 21 20 69 6e 70 75 74 20 21 0a 20 20 20 20 20 20 20 20 20 20 67 65 74 5f 6f 70 28 2e 77 33 2e ┆ ! input ! get_op(.w3.┆
0x384c0…384e0 2c 77 30 2c 77 31 2c 77 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 6d 6f 76 65 28 2e 77 33 2e 2c ┆,w0,w1,w2); move(.w3.,┆
0x384e0…384fc 77 30 2c 77 31 2c 77 32 3a 3d 28 77 33 29 2e 74 68 5f 62 75 66 29 3b 0a 20 20 20 20 ┆w0,w1,w2:=(w3).th_buf); ┆
0x384fc…38502 (0x25c,0x70b)
0x38502…38520 20 20 20 20 20 20 77 31 3a 3d 20 77 32 3b 0a 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 20 ┆ w1:= w2; w0:= ┆
0x38520…38540 28 77 31 29 2e 62 75 66 5f 62 79 74 65 73 3b 0a 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 62 ┆(w1).buf_bytes; (w1).b┆
0x38540…38560 75 66 6d 5f 66 69 72 73 74 3a 3d 20 77 32 3a 3d 20 61 64 64 72 65 73 73 28 28 77 31 29 2e 62 75 ┆ufm_first:= w2:= address((w1).bu┆
0x38560…3857a 66 5f 6c 6f 63 61 6c 69 64 29 3b 0a 20 20 20 20 20 20 20 20 20 20 77 32 2b 77 ┆f_localid); w2+w┆
0x3857a…38580 (0x25c,0x70c)
0x38580…385a0 30 2d 32 3b 0a 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 62 75 66 6d 5f 6c 61 73 74 3a 3d 20 ┆0-2; (w1).bufm_last:= ┆
0x385a0…385c0 77 32 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 32 3a 3d 28 77 33 29 2e 74 68 5f 74 79 70 ┆w2; if w2:=(w3).th_typ┆
0x385c0…385e0 65 3c 3d 32 20 74 68 65 6e 20 21 20 74 74 79 20 21 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 ┆e<=2 then ! tty ! begi┆
0x385e0…38600 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 20 28 77 33 29 2e 00 00 00 00 00 00 00 00 ┆n w0:= (w3). ┆
0x38600…38606 (451,) (0x25c,0x70d)
0x38606…38620 74 68 5f 6e 64 69 73 70 6c 61 79 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 ┆th_ndisplay; i┆
0x38620…38640 66 20 77 30 3c 3e 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 ┆f w0<>0 then begin c┆
0x38640…38660 6f 6d 6d 65 6e 74 20 73 65 6e 64 20 69 6e 70 75 74 20 69 6e 20 6e 6f 6e 20 64 69 73 70 6c 61 79 ┆omment send input in non display┆
0x38660…3867e 20 6d 6f 64 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 62 75 66 6d ┆ mode; (w1).bufm┆
0x3867e…38684 (0x25c,0x70e)
0x38684…386a0 5f 6d 6f 64 65 3a 3d 20 77 30 3a 3d 20 38 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆_mode:= w0:= 8; ┆
0x386a0…386c0 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 20 28 77 31 29 2e 62 75 66 5f 62 ┆end; w0:= (w1).buf_b┆
0x386c0…386e0 79 74 65 73 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 32 3a 3d 28 77 33 29 2e 74 68 ┆ytes; if w2:=(w3).th┆
0x386e0…386fc 5f 74 79 70 65 3d 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 ┆_type=0 then beg┆
0x386fc…38702 (0x25c,0x70f)
0x38702…38720 69 6e 20 21 20 74 74 79 20 6d 75 6c 74 69 6c 69 6e 65 2c 20 6d 61 6b 65 20 72 6f 6f 6d 20 ┆in ! tty multiline, make room ┆
0x38720…38740 66 6f 72 20 6c 6f 63 61 6c 69 64 20 61 6e 64 20 6e 6c 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 ┆for localid and nl ! ┆
0x38740…38760 20 20 20 28 77 31 29 2e 62 75 66 6d 5f 66 69 72 73 74 3a 3d 20 77 32 3a 3d 20 61 64 64 72 65 73 ┆ (w1).bufm_first:= w2:= addres┆
0x38760…3877a 73 28 28 77 31 29 2e 62 75 66 5f 64 61 74 61 31 29 3b 0a 20 20 20 20 20 20 20 ┆s((w1).buf_data1); ┆
0x3877a…38780 (0x25c,0x710)
0x38780…387a0 20 20 20 20 20 20 20 77 32 3a 3d 20 28 77 31 29 2e 62 75 66 6d 5f 6c 61 73 74 3b 20 77 32 2d 32 ┆ w2:= (w1).bufm_last; w2-2┆
0x387a0…387c0 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 62 75 66 6d 5f 6c 61 73 74 3a 3d ┆; (w1).bufm_last:=┆
0x387c0…387e0 20 77 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 62 75 66 5f 6c 6f 63 61 ┆ w2; (w1).buf_loca┆
0x387e0…38800 6c 69 64 3a 3d 20 77 30 3a 3d 20 28 77 33 29 2e 74 68 5f 6c 6f 63 61 6c 00 00 00 00 00 00 00 00 ┆lid:= w0:= (w3).th_local ┆
0x38800…38806 (452,) (0x25c,0x711)
0x38806…38820 69 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 ┆id; end; ┆
0x38820…38840 20 20 20 20 20 20 28 77 33 29 2e 74 68 5f 74 69 6d 65 72 63 6f 75 6e 74 3a 3d 20 77 30 3a 3d 20 ┆ (w3).th_timercount:= w0:= ┆
0x38840…38860 30 3b 0a 0a 20 74 74 79 6c 6f 6f 70 3a 0a 20 20 20 20 20 20 20 20 20 20 20 20 21 20 73 65 6e 64 ┆0; ttyloop: ! send┆
0x38860…3887e 20 61 6e 64 20 77 61 69 74 2c 20 72 65 70 65 61 74 20 65 76 74 2e 20 6f 6e 20 74 69 6d 65 ┆ and wait, repeat evt. on time┆
0x3887e…38884 (0x25c,0x712)
0x38884…388a0 72 20 73 74 61 74 75 73 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 73 65 6e 64 77 ┆r status ! sendw┆
0x388a0…388c0 61 69 74 28 2e 77 33 2e 2c 77 30 2c 77 31 2c 77 32 3a 3d 20 61 64 64 72 65 73 73 28 28 77 33 29 ┆ait(.w3.,w0,w1,w2:= address((w3)┆
0x388c0…388e0 2e 74 68 5f 6e 61 6d 65 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 62 75 66 ┆.th_name)); (w1).buf┆
0x388e0…388fc 5f 72 65 73 75 6c 74 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 ┆_result:= w0; if┆
0x388fc…38902 (0x25c,0x713)
0x38902…38920 20 77 30 3c 3e 31 20 74 68 65 6e 20 62 2e 61 6e 73 5f 62 79 74 65 73 3a 3d 20 77 32 3a 3d ┆ w0<>1 then b.ans_bytes:= w2:=┆
0x38920…38940 20 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 62 75 66 6d 5f 66 69 72 73 74 3a ┆ 0; (w1).bufm_first:┆
0x38940…38960 3d 20 77 32 3a 3d 20 28 77 31 29 2e 62 75 66 6d 5f 66 69 72 73 74 20 2b 20 62 2e 61 6e 73 5f 62 ┆= w2:= (w1).bufm_first + b.ans_b┆
0x38960…3897a 79 74 65 73 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 20 6f 72 ┆ytes; if w0 or┆
0x3897a…38980 (0x25c,0x714)
0x38980…389a0 20 62 2e 61 6e 73 5f 73 74 61 74 75 73 20 3d 20 32 30 39 37 31 35 33 20 74 68 65 6e 0a 20 20 20 ┆ b.ans_status = 2097153 then ┆
0x389a0…389c0 20 20 20 20 20 20 20 20 20 69 66 20 77 32 3c 3d 28 77 31 29 2e 62 75 66 6d 5f 6c 61 73 74 20 74 ┆ if w2<=(w1).bufm_last t┆
0x389c0…389e0 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 33 29 2e 74 68 5f 70 ┆hen if w0:=(w3).th_p┆
0x389e0…38a00 61 72 65 6e 74 3e 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆arent>0 then ┆
0x38a00…38a06 (453,) (0x25c,0x715)
0x38a06…38a20 20 69 66 20 77 30 3a 3d 28 77 33 29 2e 74 68 5f 74 69 6d 65 72 63 6f 75 6e 74 ┆ if w0:=(w3).th_timercount┆
0x38a20…38a40 2b 31 20 3c 3d 20 28 77 33 29 2e 74 68 5f 74 69 6d 65 72 6d 61 78 20 74 68 65 6e 0a 20 20 20 20 ┆+1 <= (w3).th_timermax then ┆
0x38a40…38a60 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 33 29 ┆ begin (w3)┆
0x38a60…38a7e 2e 74 68 5f 74 69 6d 65 72 63 6f 75 6e 74 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 20 20 ┆.th_timercount:= w0; ┆
0x38a7e…38a84 (0x25c,0x716)
0x38a84…38aa0 20 20 20 20 20 67 6f 74 6f 20 74 74 79 6c 6f 6f 70 3b 0a 20 20 20 20 20 20 20 20 20 ┆ goto ttyloop; ┆
0x38aa0…38ac0 20 20 20 65 6e 64 3b 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 33 29 ┆ end; if w0:=(w3)┆
0x38ac0…38ae0 2e 74 68 5f 74 79 70 65 3d 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 ┆.th_type=0 then begi┆
0x38ae0…38afc 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 32 2d 32 3b 20 20 21 20 74 65 72 ┆n w2-2; ! ter┆
0x38afc…38b02 (0x25c,0x717)
0x38b02…38b20 6d 69 6e 61 74 65 20 64 61 74 61 62 6c 6f 63 6b 20 77 69 74 68 20 6e 6c 20 21 0a 20 20 20 ┆minate datablock with nl ! ┆
0x38b20…38b40 20 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 20 28 77 32 29 2e 77 6f 72 64 3b 0a 20 20 20 20 20 ┆ w0:= (w2).word; ┆
0x38b40…38b60 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3d 30 20 74 68 65 6e 20 77 30 3a 3d 20 31 3b 0a 20 20 ┆ if w0=0 then w0:= 1; ┆
0x38b60…38b7a 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 20 30 3b 0a 6e 65 78 74 3a 20 ┆ w1:= 0; next: ┆
0x38b7a…38b80 (0x25c,0x718)
0x38b80…38ba0 20 20 20 20 20 20 20 20 66 31 20 6c 73 68 69 66 74 20 2d 38 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆ f1 lshift -8; ┆
0x38ba0…38bc0 20 20 20 20 69 66 20 77 31 3d 30 20 74 68 65 6e 20 67 6f 74 6f 20 6e 65 78 74 3b 0a 20 20 20 20 ┆ if w1=0 then goto next; ┆
0x38bc0…38be0 20 20 20 20 20 20 20 20 20 20 69 66 20 77 31 3c 3e 6e 6c 20 74 68 65 6e 20 0a 20 20 20 20 20 20 ┆ if w1<>nl then ┆
0x38be0…38c00 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ begin ┆
0x38c00…38c06 (454,) (0x25c,0x719)
0x38c06…38c20 20 20 20 20 20 20 77 32 2b 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ w2+2; ┆
0x38c20…38c40 20 20 28 77 32 29 2e 77 6f 72 64 3a 3d 20 77 31 3a 3d 20 6e 6c 3b 0a 20 20 20 20 20 20 20 20 20 ┆ (w2).word:= w1:= nl; ┆
0x38c40…38c60 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 20 28 77 33 ┆ end; w1:= (w3┆
0x38c60…38c7e 29 2e 74 68 5f 62 75 66 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 32 2b 32 3b 0a ┆).th_buf; w2+2; ┆
0x38c7e…38c84 (0x25c,0x71a)
0x38c84…38ca0 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 0a 20 20 20 20 20 20 20 20 20 20 ┆ end; ┆
0x38ca0…38cc0 20 20 28 77 31 29 2e 62 75 66 5f 73 74 61 74 75 73 3a 3d 20 77 30 3a 3d 20 62 2e 61 6e 73 5f 73 ┆ (w1).buf_status:= w0:= b.ans_s┆
0x38cc0…38ce0 74 61 74 75 73 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 20 61 64 64 72 65 73 73 28 ┆tatus; w0:= address(┆
0x38ce0…38cfc 28 77 31 29 2e 62 75 66 5f 6c 6f 63 61 6c 69 64 29 20 2d 20 77 32 3b 3b 0a 20 20 20 ┆(w1).buf_localid) - w2;; ┆
0x38cfc…38d02 (0x25c,0x71b)
0x38d02…38d20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 62 75 66 5f 62 79 74 65 73 3a 3d 20 2d 28 77 30 ┆ (w1).buf_bytes:= -(w0┆
0x38d20…38d40 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 62 75 66 5f 63 68 61 72 73 3a 3d 20 ┆); (w1).buf_chars:= ┆
0x38d40…38d60 77 32 3a 3d 20 77 30 20 61 73 68 69 66 74 20 2d 31 20 2b 20 77 30 3b 0a 20 20 20 20 20 20 20 20 ┆w2:= w0 ashift -1 + w0; ┆
0x38d60…38d7a 20 20 20 20 28 77 31 29 2e 62 75 66 5f 69 6e 63 61 72 3a 3d 20 77 32 3a 3d 20 ┆ (w1).buf_incar:= w2:= ┆
0x38d7a…38d80 (0x25c,0x71c)
0x38d80…38da0 28 77 33 29 2e 74 68 5f 69 6e 63 61 72 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 0a 20 ┆(w3).th_incar; end ┆
0x38da0…38dc0 20 20 20 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 ┆ else begin ┆
0x38dc0…38de0 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 74 65 72 6d 69 6e 70 75 74 3b 0a 74 65 72 6d 69 6e ┆ goto terminput; termin┆
0x38de0…38e00 73 65 6e 73 65 3a 0a 20 20 20 20 20 20 20 20 20 20 20 20 73 65 6e 64 77 00 00 00 00 00 00 00 00 ┆sense: sendw ┆
0x38e00…38e06 (455,) (0x25c,0x71d)
0x38e06…38e20 61 69 74 28 2e 77 33 2e 2c 77 30 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 73 65 ┆ait(.w3.,w0,w1:=address(se┆
0x38e20…38e40 6e 73 65 72 65 61 64 79 29 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 28 77 33 29 2e 74 68 5f 6e 61 ┆nseready),w2:=address((w3).th_na┆
0x38e40…38e60 6d 65 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3c 3e 31 20 74 68 65 6e 20 ┆me)); if w0<>1 then ┆
0x38e60…38e7e 67 6f 74 6f 20 74 65 72 6d 69 6e 70 75 74 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 ┆goto terminput; if┆
0x38e7e…38e84 (0x25c,0x71e)
0x38e84…38ea0 20 77 32 3a 3d 62 2e 61 6e 73 5f 73 74 61 74 75 73 3d 38 27 31 30 30 30 30 30 30 30 ┆ w2:=b.ans_status=8'10000000┆
0x38ea0…38ec0 20 21 20 74 69 6d 65 72 20 21 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 ┆ ! timer ! then if w┆
0x38ec0…38ee0 32 3a 3d 28 77 33 29 2e 74 68 5f 70 61 72 65 6e 74 3e 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 ┆2:=(w3).th_parent>0 then ┆
0x38ee0…38efc 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 ┆ begin if ┆
0x38efc…38f02 (0x25c,0x71f)
0x38f02…38f20 77 32 3a 3d 28 77 33 29 2e 74 68 5f 74 69 6d 65 72 63 6f 75 6e 74 2b 31 3c 3d 28 77 33 29 ┆w2:=(w3).th_timercount+1<=(w3)┆
0x38f20…38f40 2e 74 68 5f 74 69 6d 65 72 6d 61 78 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆.th_timermax then ┆
0x38f40…38f60 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 68 5f 74 69 ┆begin (w3).th_ti┆
0x38f60…38f7a 6d 65 72 63 6f 75 6e 74 3a 3d 20 77 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆mercount:= w2; ┆
0x38f7a…38f80 (0x25c,0x720)
0x38f80…38fa0 20 20 20 20 20 67 6f 74 6f 20 74 65 72 6d 69 6e 73 65 6e 73 65 3b 0a 20 20 20 20 20 20 20 20 20 ┆ goto terminsense; ┆
0x38fa0…38fc0 20 20 20 20 20 65 6e 64 20 65 6c 73 65 20 67 6f 74 6f 20 74 65 72 6d 69 6e 61 6e 73 77 65 72 3b ┆ end else goto terminanswer;┆
0x38fc0…38fe0 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 0a 74 65 72 6d 69 6e 70 75 74 3a 0a 20 20 ┆ end; terminput: ┆
0x38fe0…39000 20 20 20 20 20 20 20 20 20 20 73 65 6e 64 77 61 69 74 28 2e 77 33 2e 2c 00 00 00 00 00 00 00 00 ┆ sendwait(.w3., ┆
0x39000…39006 (456,) (0x25c,0x721)
0x39006…39020 77 30 2c 77 31 3a 3d 28 77 33 29 2e 74 68 5f 62 75 66 2c 77 32 3a 3d 61 64 64 ┆w0,w1:=(w3).th_buf,w2:=add┆
0x39020…39040 72 65 73 73 28 28 77 33 29 2e 74 68 5f 6e 61 6d 65 29 29 3b 0a 74 65 72 6d 69 6e 61 6e 73 77 65 ┆ress((w3).th_name)); terminanswe┆
0x39040…39060 72 3a 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 20 28 77 33 29 2e 74 68 5f 62 75 66 3b ┆r: w1:= (w3).th_buf;┆
0x39060…3907e 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 62 75 66 5f 72 65 73 75 6c 74 3a 3d ┆ (w1).buf_result:=┆
0x3907e…39084 (0x25c,0x722)
0x39084…390a0 20 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3c 3e 31 20 74 68 ┆ w0; if w0<>1 th┆
0x390a0…390c0 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 ┆en begin ┆
0x390c0…390e0 20 20 20 62 2e 61 6e 73 5f 73 74 61 74 75 73 3a 3d 20 77 30 3a 3d 20 30 3b 0a 20 20 20 20 20 20 ┆ b.ans_status:= w0:= 0; ┆
0x390e0…390fc 20 20 20 20 20 20 20 20 62 2e 61 6e 73 5f 62 79 74 65 73 3a 3d 20 77 30 3b 0a 20 20 ┆ b.ans_bytes:= w0; ┆
0x390fc…39102 (0x25c,0x723)
0x39102…39120 20 20 20 20 20 20 20 20 20 20 20 20 62 2e 61 6e 73 5f 63 68 61 72 73 3a 3d 20 77 30 3b 0a ┆ b.ans_chars:= w0; ┆
0x39120…39140 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 ┆ end; if ┆
0x39140…39160 77 30 20 6f 72 20 62 2e 61 6e 73 5f 73 74 61 74 75 73 3c 3e 31 20 74 68 65 6e 0a 20 20 20 20 20 ┆w0 or b.ans_status<>1 then ┆
0x39160…3917a 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 62 75 66 5f 69 6e 63 61 72 3a 3d 20 ┆ (w1).buf_incar:= ┆
0x3917a…39180 (0x25c,0x724)
0x39180…391a0 77 30 3a 3d 20 28 77 33 29 2e 74 68 5f 69 6e 63 61 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 ┆w0:= (w3).th_incar e┆
0x391a0…391c0 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 ┆lse begin ┆
0x391c0…391e0 20 20 20 20 69 66 20 77 30 3a 3d 62 2e 61 6e 73 5f 62 79 74 65 73 3d 30 20 74 68 65 6e 20 67 6f ┆ if w0:=b.ans_bytes=0 then go┆
0x391e0…39200 74 6f 20 74 65 72 6d 69 6e 73 65 6e 73 65 3b 0a 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆to terminsense; ┆
0x39200…39206 (457,) (0x25c,0x725)
0x39206…39220 20 20 20 20 20 20 21 20 74 65 73 74 20 70 72 65 73 65 6e 73 65 20 6f 66 20 65 ┆ ! test presense of e┆
0x39220…39240 74 78 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 62 75 66 5f 69 6e 63 61 ┆tx ! (w1).buf_inca┆
0x39240…39260 72 3a 3d 20 77 30 3a 3d 20 28 77 33 29 2e 74 68 5f 69 6e 63 61 72 3b 0a 20 20 20 20 20 20 20 20 ┆r:= w0:= (w3).th_incar; ┆
0x39260…3927e 20 20 20 20 20 20 77 32 3a 3d 20 28 77 31 29 2e 62 75 66 6d 5f 66 69 72 73 74 3b 0a 20 20 ┆ w2:= (w1).bufm_first; ┆
0x3927e…39284 (0x25c,0x726)
0x39284…392a0 20 20 20 20 20 20 20 20 20 20 20 20 77 32 2b 62 2e 61 6e 73 5f 62 79 74 65 73 2d 32 ┆ w2+b.ans_bytes-2┆
0x392a0…392c0 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 20 28 77 32 29 2e 77 6f 72 64 3b 0a ┆; w0:= (w2).word; ┆
0x392c0…392e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 68 69 6c 65 20 77 30 3c 3e 30 20 64 6f 0a 20 20 20 ┆ while w0<>0 do ┆
0x392e0…392fc 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ begin ┆
0x392fc…39302 (0x25c,0x727)
0x39302…39320 20 20 20 20 20 77 33 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 ┆ w3:= 0; f┆
0x39320…39340 30 20 6c 73 68 69 66 74 20 38 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 ┆0 lshift 8; if w┆
0x39340…39360 33 3d 62 2e 65 74 78 20 74 68 65 6e 20 77 30 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆3=b.etx then w0:= 0; ┆
0x39360…3937a 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 ┆ end; if w┆
0x3937a…39380 (0x25c,0x728)
0x39380…393a0 33 3c 3e 62 2e 65 74 78 20 74 68 65 6e 20 28 77 31 29 2e 62 75 66 5f 69 6e 63 61 72 3a 3d 20 77 ┆3<>b.etx then (w1).buf_incar:= w┆
0x393a0…393c0 30 3b 20 21 20 62 6c 6f 63 6b 20 6e 6f 74 20 65 6e 64 20 72 65 63 6f 72 64 20 21 0a 20 20 20 20 ┆0; ! block not end record ! ┆
0x393c0…393e0 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 20 62 2e 63 75 72 72 65 6e 74 3b 0a 20 20 20 20 20 20 ┆ w3:= b.current; ┆
0x393e0…39400 20 20 20 20 20 20 65 6e 64 3b 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ end; ┆
0x39400…39406 (458,) (0x25c,0x729)
0x39406…39420 28 77 31 29 2e 62 75 66 5f 73 74 61 74 75 73 3a 3d 20 77 30 3a 3d 20 62 2e 61 ┆(w1).buf_status:= w0:= b.a┆
0x39420…39440 6e 73 5f 73 74 61 74 75 73 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 62 75 66 5f ┆ns_status; (w1).buf_┆
0x39440…39460 62 79 74 65 73 3a 3d 20 77 30 3a 3d 20 62 2e 61 6e 73 5f 62 79 74 65 73 3b 0a 20 20 20 20 20 20 ┆bytes:= w0:= b.ans_bytes; ┆
0x39460…3947e 20 20 20 20 20 20 28 77 31 29 2e 62 75 66 5f 63 68 61 72 73 3a 3d 20 77 32 3a 3d 20 62 2e ┆ (w1).buf_chars:= w2:= b.┆
0x3947e…39484 (0x25c,0x72a)
0x39484…394a0 61 6e 73 5f 63 68 61 72 73 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 ┆ans_chars; end; ┆
0x394a0…394c0 20 20 20 20 20 20 20 20 69 66 20 77 32 3a 3d 28 77 33 29 2e 74 68 5f 70 61 72 65 6e 74 3e 30 20 ┆ if w2:=(w3).th_parent>0 ┆
0x394c0…394e0 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 ┆then begin ┆
0x394e0…394fc 20 77 31 3a 3d 20 77 30 3b 20 21 20 73 61 76 65 20 74 65 6d 70 6f 72 61 72 79 20 21 ┆ w1:= w0; ! save temporary !┆
0x394fc…39502 (0x25c,0x72b)
0x39502…39520 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 20 28 77 32 29 2e 70 68 5f 74 ┆ if w0:= (w2).ph_t┆
0x39520…39540 68 69 6e 63 61 72 3c 3e 28 77 33 29 2e 74 68 5f 69 6e 63 61 72 20 74 68 65 6e 0a 20 20 20 20 20 ┆hincar<>(w3).th_incar then ┆
0x39540…39560 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 6f 63 6b 28 ┆ begin lock(┆
0x39560…3957a 2e 77 33 2e 2c 77 30 3a 3d 31 2c 77 32 3a 3d 28 77 32 29 2e 70 68 5f 71 72 65 ┆.w3.,w0:=1,w2:=(w2).ph_qre┆
0x3957a…39580 (0x25c,0x72c)
0x39580…395a0 73 65 72 76 65 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 33 ┆serve); if w0:=(w3┆
0x395a0…395c0 29 2e 74 68 5f 74 79 70 65 3d 34 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 ┆).th_type=4 then b┆
0x395c0…395e0 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 20 28 77 33 29 2e 74 ┆egin w2:= (w3).t┆
0x395e0…39600 68 5f 62 75 66 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 00 00 00 00 00 00 00 00 ┆h_buf; ( ┆
0x39600…39606 (459,) (0x25c,0x72d)
0x39606…39620 77 32 29 2e 62 75 66 5f 6c 6f 63 61 6c 69 64 3a 3d 20 77 30 3a 3d 20 28 77 33 ┆w2).buf_localid:= w0:= (w3┆
0x39620…39640 29 2e 74 68 5f 73 75 62 73 74 20 6c 73 68 69 66 74 20 31 36 20 6f 72 20 28 77 32 29 2e 62 75 66 ┆).th_subst lshift 16 or (w2).buf┆
0x39640…39660 5f 6c 6f 63 61 6c 69 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 ┆_localid; end; ┆
0x39660…3967e 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d ┆ end; w2:=┆
0x3967e…39684 (0x25c,0x72e)
0x39684…396a0 20 28 77 33 29 2e 74 68 5f 70 61 72 65 6e 74 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ (w3).th_parent; ┆
0x396a0…396c0 20 69 66 20 77 32 3e 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a ┆ if w2>0 then begin ┆
0x396c0…396e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 32 29 2e 70 68 5f 74 68 69 6e 63 61 72 3a 3d 20 ┆ (w2).ph_thincar:= ┆
0x396e0…396fc 77 30 3a 3d 20 28 77 33 29 2e 74 68 5f 69 6e 63 61 72 3b 0a 20 20 20 20 20 20 20 20 ┆w0:= (w3).th_incar; ┆
0x396fc…39702 (0x25c,0x72f)
0x39702…39720 20 20 20 20 20 20 70 75 74 5f 6f 70 28 2e 77 33 2e 2c 77 30 3a 3d 77 31 2b 21 70 6f 73 69 ┆ put_op(.w3.,w0:=w1+!posi┆
0x39720…39740 74 69 6f 6e 28 62 75 66 5f 6c 6f 63 61 6c 69 64 29 2c 77 31 2c 77 32 29 3b 0a 20 20 20 20 20 20 ┆tion(buf_localid),w1,w2); ┆
0x39740…39760 20 20 20 20 20 20 20 20 77 32 3a 3d 20 77 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d ┆ w2:= w1; m┆
0x39760…3977a 6f 76 65 28 2e 77 33 2e 2c 77 30 2c 77 31 3a 3d 28 77 33 29 2e 74 68 5f 62 75 ┆ove(.w3.,w0,w1:=(w3).th_bu┆
0x3977a…39780 (0x25c,0x730)
0x39780…397a0 66 2c 77 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 32 3a 3d 20 28 77 31 ┆f,w2); if w2:= (w1┆
0x397a0…397c0 29 2e 62 75 66 5f 69 6e 63 61 72 3d 30 20 74 68 65 6e 20 21 20 6e 6f 74 20 65 6e 64 20 72 65 63 ┆).buf_incar=0 then ! not end rec┆
0x397c0…397e0 6f 72 64 20 21 20 67 6f 74 6f 20 74 65 72 6d 69 6e 70 75 74 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ord ! goto terminput ┆
0x397e0…39800 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 00 00 00 00 00 00 00 00 ┆ else if ┆
0x39800…39806 (460,) (0x25c,0x731)
0x39806…39820 20 77 32 3a 3d 28 77 33 29 2e 74 68 5f 70 61 72 65 6e 74 3e 30 20 74 68 65 6e ┆ w2:=(w3).th_parent>0 then┆
0x39820…39840 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ begin ┆
0x39840…39860 20 20 20 20 20 28 77 32 29 2e 70 68 5f 74 68 69 6e 63 61 72 3a 3d 20 77 30 3a 3d 20 30 3b 0a 20 ┆ (w2).ph_thincar:= w0:= 0; ┆
0x39860…3987e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 70 65 6e 28 2e 77 33 2e 2c 77 30 3a 3d 31 ┆ open(.w3.,w0:=1┆
0x3987e…39884 (0x25c,0x732)
0x39884…398a0 2c 77 32 3a 3d 28 77 32 29 2e 70 68 5f 71 72 65 73 65 72 76 65 29 0a 20 20 20 20 20 ┆,w2:=(w2).ph_qreserve) ┆
0x398a0…398c0 20 20 20 20 20 20 20 20 20 65 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 3b ┆ end else;┆
0x398c0…398e0 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b ┆ end; end;┆
0x398e0…398fc 0a 20 20 20 20 20 20 20 20 65 6e 64 0a 20 20 20 20 20 20 20 20 65 6c 73 65 0a 20 20 ┆ end else ┆
0x398fc…39902 (0x25c,0x733)
0x39902…39920 20 20 20 20 20 20 69 66 20 77 30 3d 35 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 62 65 67 ┆ if w0=5 then beg┆
0x39920…39940 69 6e 20 21 20 6f 75 74 70 75 74 20 21 0a 20 20 20 20 20 20 20 20 20 20 6d 6f 76 65 28 2e 77 33 ┆in ! output ! move(.w3┆
0x39940…39960 2e 2c 77 30 3a 3d 21 70 6f 73 69 74 69 6f 6e 28 62 75 66 5f 63 68 61 72 73 29 2c 77 31 2c 77 32 ┆.,w0:=!position(buf_chars),w1,w2┆
0x39960…3997a 3a 3d 28 77 33 29 2e 74 68 5f 62 75 66 29 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆:=(w3).th_buf); ┆
0x3997a…39980 (0x25c,0x734)
0x39980…399a0 68 65 6c 70 3a 3d 20 77 30 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d ┆help:= w0:= 0; if w0:=┆
0x399a0…399c0 28 77 33 29 2e 74 68 5f 74 79 70 65 3d 30 20 74 68 65 6e 20 77 30 3a 3d 20 2d 32 0a 20 20 20 20 ┆(w3).th_type=0 then w0:= -2 ┆
0x399c0…399e0 20 20 20 20 20 20 65 6c 73 65 20 77 30 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 20 20 77 31 3a ┆ else w0:= 0; w1:┆
0x399e0…39a00 3d 20 61 64 64 72 65 73 73 28 28 77 31 29 2e 62 75 66 5f 6c 6f 63 61 6c 00 00 00 00 00 00 00 00 ┆= address((w1).buf_local ┆
0x39a00…39a06 (461,) (0x25c,0x735)
0x39a06…39a20 69 64 29 2d 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 77 30 2b 20 28 77 32 29 ┆id)-w0; w0+ (w2)┆
0x39a20…39a40 2e 62 75 66 5f 62 79 74 65 73 2d 28 77 33 29 2e 74 68 5f 62 6c 6f 63 6b 75 73 65 64 3b 0a 20 20 ┆.buf_bytes-(w3).th_blockused; ┆
0x39a40…39a60 20 20 20 20 20 20 20 20 69 66 20 77 30 3e 62 2e 62 75 66 6c 20 74 68 65 6e 20 21 20 6e 6f 74 20 ┆ if w0>b.bufl then ! not ┆
0x39a60…39a7e 6c 61 73 74 20 70 6f 72 74 69 6f 6e 20 6f 66 20 62 6c 6f 63 6b 20 21 0a 20 20 20 20 20 20 ┆last portion of block ! ┆
0x39a7e…39a84 (0x25c,0x736)
0x39a84…39aa0 20 20 20 20 68 65 6c 70 3a 3d 20 77 30 3a 3d 20 62 2e 62 75 66 6c 3b 0a 20 20 20 20 ┆ help:= w0:= b.bufl; ┆
0x39aa0…39ac0 20 20 20 20 20 20 6d 6f 76 65 28 2e 77 33 2e 2c 77 30 2c 77 31 2b 28 77 33 29 2e 74 68 5f 62 6c ┆ move(.w3.,w0,w1+(w3).th_bl┆
0x39ac0…39ae0 6f 63 6b 75 73 65 64 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 32 3a ┆ockused, w2:┆
0x39ae0…39afc 3d 61 64 64 72 65 73 73 28 28 77 32 29 2e 62 75 66 5f 6c 6f 63 61 6c 69 64 29 29 3b ┆=address((w2).buf_localid));┆
0x39afc…39b02 (0x25c,0x737)
0x39b02…39b20 0a 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 20 28 77 33 29 2e 74 68 5f 62 75 66 3b 0a 20 ┆ w1:= (w3).th_buf; ┆
0x39b20…39b40 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 62 75 66 6d 5f 66 69 72 73 74 3a 3d 20 77 32 3b 0a 20 ┆ (w1).bufm_first:= w2; ┆
0x39b40…39b60 20 20 20 20 20 20 20 20 20 77 32 2b 77 30 2d 32 3b 0a 20 20 20 20 20 20 20 20 20 20 28 77 31 29 ┆ w2+w0-2; (w1)┆
0x39b60…39b7a 2e 62 75 66 6d 5f 6c 61 73 74 3a 3d 20 77 32 3b 0a 20 20 20 20 20 20 20 20 20 ┆.bufm_last:= w2; ┆
0x39b7a…39b80 (0x25c,0x738)
0x39b80…39ba0 20 77 32 3a 3d 28 77 31 29 2e 62 75 66 6d 5f 6d 6f 64 65 3b 0a 20 20 20 20 20 20 20 20 20 20 69 ┆ w2:=(w1).bufm_mode; i┆
0x39ba0…39bc0 66 20 77 32 20 6f 6e 65 6d 61 73 6b 20 38 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 62 65 ┆f w2 onemask 8 then be┆
0x39bc0…39be0 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 6e 65 78 74 20 69 6e 70 75 74 20 69 6e 20 6e 6f 6e 20 64 69 ┆gin comment next input in non di┆
0x39be0…39c00 73 70 6c 61 79 20 6d 6f 64 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆splay mode; ┆
0x39c00…39c06 (462,) (0x25c,0x739)
0x39c06…39c20 28 77 33 29 2e 74 68 5f 6e 64 69 73 70 6c 61 79 3a 3d 20 77 32 3b 0a 20 20 20 ┆(w3).th_ndisplay:= w2; ┆
0x39c20…39c40 20 20 20 20 20 20 20 20 20 77 32 2d 38 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e ┆ w2-8; (w1).┆
0x39c40…39c60 62 75 66 6d 5f 6d 6f 64 65 3a 3d 20 77 32 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 20 65 6c ┆bufm_mode:= w2; end el┆
0x39c60…39c7e 73 65 20 28 77 33 29 2e 74 68 5f 6e 64 69 73 70 6c 61 79 3a 3d 20 77 32 3a 3d 20 30 3b 0a ┆se (w3).th_ndisplay:= w2:= 0; ┆
0x39c7e…39c84 (0x25c,0x73a)
0x39c84…39ca0 20 20 20 20 20 20 20 20 20 20 69 66 20 77 32 3a 3d 68 65 6c 70 3d 30 20 74 68 65 6e ┆ if w2:=help=0 then┆
0x39ca0…39cc0 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 21 20 6c 61 73 74 20 70 6f 72 74 69 6f 6e 20 ┆ begin ! last portion ┆
0x39cc0…39ce0 6f 66 20 62 6c 6f 63 6b 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 68 5f 62 ┆of block ! (w3).th_b┆
0x39ce0…39cfc 6c 6f 63 6b 75 73 65 64 3a 3d 20 77 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 67 ┆lockused:= w2; g┆
0x39cfc…39d02 (0x25c,0x73b)
0x39d02…39d20 65 74 5f 6f 70 28 2e 77 33 2e 2c 77 30 2c 77 31 2c 77 32 3a 3d 77 33 29 3b 0a 20 20 20 20 ┆et_op(.w3.,w0,w1,w2:=w3); ┆
0x39d20…39d40 20 20 20 20 20 20 65 6e 64 0a 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 20 ┆ end else ┆
0x39d40…39d60 20 20 20 20 20 28 77 33 29 2e 74 68 5f 62 6c 6f 63 6b 75 73 65 64 3a 3d 20 77 30 2b 28 77 33 29 ┆ (w3).th_blockused:= w0+(w3)┆
0x39d60…39d7a 2e 74 68 5f 62 6c 6f 63 6b 75 73 65 64 3b 0a 20 20 20 20 20 20 20 20 20 20 73 ┆.th_blockused; s┆
0x39d7a…39d80 (0x25c,0x73c)
0x39d80…39da0 65 6e 64 77 61 69 74 28 2e 77 33 2e 2c 77 30 2c 77 31 3a 3d 28 77 33 29 2e 74 68 5f 62 75 66 2c ┆endwait(.w3.,w0,w1:=(w3).th_buf,┆
0x39da0…39dc0 77 32 3a 3d 20 61 64 64 72 65 73 73 28 28 77 33 29 2e 74 68 5f 6e 61 6d 65 29 29 3b 0a 20 20 20 ┆w2:= address((w3).th_name)); ┆
0x39dc0…39de0 20 20 20 20 20 65 6e 64 0a 20 20 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 69 66 ┆ end else if┆
0x39de0…39e00 20 77 30 3d 32 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 00 00 00 00 00 00 00 00 ┆ w0=2 then begin ┆
0x39e00…39e06 (463,) (0x25c,0x73d)
0x39e06…39e20 20 21 20 66 38 30 30 30 20 63 6f 6e 74 72 6f 6c 20 6d 65 73 73 61 67 65 20 21 ┆ ! f8000 control message !┆
0x39e20…39e40 0a 20 20 20 20 20 20 20 20 0a 20 20 20 20 20 20 20 20 20 20 67 65 74 5f 6f 70 28 2e 77 33 2e 2c ┆ get_op(.w3.,┆
0x39e40…39e60 77 30 2c 77 31 2c 77 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 6d 6f 76 65 28 2e 77 33 2e 2c 77 ┆w0,w1,w2); move(.w3.,w┆
0x39e60…39e7e 30 2c 77 31 2c 77 32 3a 3d 28 77 33 29 2e 74 68 5f 62 75 66 29 3b 0a 20 20 20 20 20 20 20 ┆0,w1,w2:=(w3).th_buf); ┆
0x39e7e…39e84 (0x25c,0x73e)
0x39e84…39ea0 20 20 20 73 65 6e 64 77 61 69 74 20 28 2e 77 33 2e 2c 77 30 2c 77 31 3a 3d 28 77 33 ┆ sendwait (.w3.,w0,w1:=(w3┆
0x39ea0…39ec0 29 2e 74 68 5f 62 75 66 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 28 77 33 29 2e 74 68 5f 6e 61 6d ┆).th_buf,w2:=address((w3).th_nam┆
0x39ec0…39ee0 65 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 20 28 77 33 29 2e 74 68 5f 70 61 72 65 ┆e)); w1:= (w3).th_pare┆
0x39ee0…39efc 6e 74 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 31 3e 30 20 74 68 65 6e 0a 20 ┆nt; if w1>0 then ┆
0x39efc…39f02 (0x25c,0x73f)
0x39f02…39f20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 73 65 6e 64 20 61 6e ┆ begin comment send an┆
0x39f20…39f40 73 77 65 72 20 74 6f 20 63 6f 6e 74 72 6f 6c 20 6d 65 73 73 61 67 65 3b 0a 20 20 20 20 20 20 20 ┆swer to control message; ┆
0x39f40…39f60 20 20 20 20 20 77 32 3a 3d 20 28 77 31 29 2e 63 5f 6d 62 75 66 3b 0a 20 20 20 20 20 20 20 20 20 ┆ w2:= (w1).c_mbuf; ┆
0x39f60…39f7a 20 20 20 77 31 3a 3d 20 61 64 64 72 65 73 73 28 62 2e 61 6e 73 5f 73 74 61 74 ┆ w1:= address(b.ans_stat┆
0x39f7a…39f80 (0x25c,0x740)
0x39f80…39fa0 75 73 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 32 32 29 3b 20 21 20 ┆us); monitor(22); ! ┆
0x39fa0…39fc0 73 65 6e 64 20 61 6e 73 77 65 72 20 2c 20 72 65 73 75 6c 74 20 69 6e 20 77 30 20 21 0a 20 20 20 ┆send answer , result in w0 ! ┆
0x39fc0…39fe0 20 20 20 20 20 20 20 20 20 6f 70 65 6e 20 28 2e 77 33 2e 2c 20 77 30 3a 3d 31 2c 20 77 32 3a 3d ┆ open (.w3., w0:=1, w2:=┆
0x39fe0…3a000 28 77 33 29 2e 74 68 5f 63 6f 6e 74 72 6f 6c 29 3b 0a 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆(w3).th_control); ┆
0x3a000…3a006 (464,) (0x25c,0x741)
0x3a006…3a020 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 20 21 20 65 6e 64 ┆ end; end ! end┆
0x3a020…3a040 20 66 38 30 30 30 20 63 6f 6e 74 72 6f 6c 20 6d 65 73 73 61 67 65 20 21 0a 20 20 20 20 20 20 20 ┆ f8000 control message ! ┆
0x3a040…3a060 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3d 34 20 74 68 65 6e 0a 20 20 20 20 20 ┆ else if w0=4 then ┆
0x3a060…3a07e 20 20 20 62 65 67 69 6e 20 21 20 66 38 30 30 30 20 63 6f 6e 74 72 6f 6c 20 6d 65 73 73 61 ┆ begin ! f8000 control messa┆
0x3a07e…3a084 (0x25c,0x742)
0x3a084…3a0a0 67 65 20 28 61 64 70 33 32 37 30 29 20 21 0a 0a 20 20 20 20 20 20 20 20 20 20 67 65 ┆ge (adp3270) ! ge┆
0x3a0a0…3a0c0 74 5f 6f 70 20 28 2e 77 33 2e 2c 20 77 30 2c 20 77 31 2c 20 77 32 29 3b 0a 20 20 20 20 20 20 20 ┆t_op (.w3., w0, w1, w2); ┆
0x3a0c0…3a0e0 20 20 20 6d 6f 76 65 20 28 2e 77 33 2e 2c 20 77 30 2c 20 77 31 2c 20 77 32 3a 3d 20 28 77 33 29 ┆ move (.w3., w0, w1, w2:= (w3)┆
0x3a0e0…3a0fc 2e 74 68 5f 62 75 66 29 3b 0a 20 20 20 20 20 20 20 20 20 20 73 65 6e 64 77 61 69 74 ┆.th_buf); sendwait┆
0x3a0fc…3a102 (0x25c,0x743)
0x3a102…3a120 20 28 2e 77 33 2e 2c 77 30 2c 77 31 3a 3d 28 77 33 29 2e 74 68 5f 62 75 66 2c 77 32 3a 3d ┆ (.w3.,w0,w1:=(w3).th_buf,w2:=┆
0x3a120…3a140 61 64 64 72 65 73 73 28 28 77 33 29 2e 74 68 5f 6e 61 6d 65 29 29 3b 0a 20 20 20 20 20 20 20 20 ┆address((w3).th_name)); ┆
0x3a140…3a160 20 20 77 31 3a 3d 20 28 77 33 29 2e 74 68 5f 70 61 72 65 6e 74 3b 0a 20 20 20 20 20 20 20 20 20 ┆ w1:= (w3).th_parent; ┆
0x3a160…3a17a 20 69 66 20 77 31 3e 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 62 65 ┆ if w1>0 then be┆
0x3a17a…3a180 (0x25c,0x744)
0x3a180…3a1a0 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 73 65 6e 64 20 61 6e 73 77 65 72 20 74 6f 20 63 6f 6e 74 72 ┆gin comment send answer to contr┆
0x3a1a0…3a1c0 6f 6c 20 6d 65 73 73 61 67 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 20 28 77 31 ┆ol message; w2:= (w1┆
0x3a1c0…3a1e0 29 2e 63 5f 6d 62 75 66 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 20 61 64 64 72 65 ┆).c_mbuf; w1:= addre┆
0x3a1e0…3a200 73 73 28 62 2e 61 6e 73 5f 73 74 61 74 75 73 29 3b 0a 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ss(b.ans_status); ┆
0x3a200…3a206 (465,) (0x25c,0x745)
0x3a206…3a220 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 32 32 29 3b 20 21 20 73 65 6e 64 20 ┆ monitor(22); ! send ┆
0x3a220…3a240 61 6e 73 77 65 72 20 2c 20 72 65 73 75 6c 74 20 69 6e 20 77 30 20 21 0a 20 20 20 20 20 20 20 20 ┆answer , result in w0 ! ┆
0x3a240…3a260 20 20 20 20 6f 70 65 6e 20 28 2e 77 33 2e 2c 20 77 30 3a 3d 31 2c 20 77 32 3a 3d 28 77 33 29 2e ┆ open (.w3., w0:=1, w2:=(w3).┆
0x3a260…3a27e 74 68 5f 63 6f 6e 74 72 6f 6c 29 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 ┆th_control); end; ┆
0x3a27e…3a284 (0x25c,0x746)
0x3a284…3a2a0 20 20 20 20 20 20 65 6e 64 20 21 20 65 6e 64 20 66 38 30 30 30 20 63 6f 6e 74 72 6f ┆ end ! end f8000 contro┆
0x3a2a0…3a2c0 6c 20 6d 65 73 73 61 67 65 20 28 61 64 70 33 32 37 30 29 20 21 0a 20 20 20 20 20 20 20 20 65 6c ┆l message (adp3270) ! el┆
0x3a2c0…3a2e0 73 65 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3d 39 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 ┆se if w0=9 then ┆
0x3a2e0…3a2fc 62 65 67 69 6e 20 21 20 73 69 6d 75 6c 61 74 65 20 69 6e 70 75 74 20 21 0a 20 20 20 ┆begin ! simulate input ! ┆
0x3a2fc…3a302 (0x25c,0x747)
0x3a302…3a320 20 20 20 20 20 20 20 67 65 74 5f 6f 70 28 2e 77 33 2e 2c 77 30 2c 77 31 2c 77 32 29 3b 0a ┆ get_op(.w3.,w0,w1,w2); ┆
0x3a320…3a340 20 20 20 20 20 20 20 20 20 20 6d 6f 76 65 28 2e 77 33 2e 2c 77 30 2c 77 31 2c 77 32 3a 3d 28 77 ┆ move(.w3.,w0,w1,w2:=(w┆
0x3a340…3a360 33 29 2e 74 68 5f 62 75 66 29 3b 0a 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 20 28 77 33 29 2e ┆3).th_buf); w1:= (w3).┆
0x3a360…3a37a 74 68 5f 62 75 66 3b 0a 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 62 75 66 ┆th_buf; (w1).buf┆
0x3a37a…3a380 (0x25c,0x748)
0x3a380…3a3a0 5f 73 74 61 74 75 73 3a 3d 20 77 32 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d ┆_status:= w2:= 0; w2:=┆
0x3a3a0…3a3c0 20 28 77 31 29 2e 62 75 66 5f 62 79 74 65 73 3b 0a 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e ┆ (w1).buf_bytes; (w1).┆
0x3a3c0…3a3e0 62 75 66 5f 63 68 61 72 73 3a 3d 20 77 32 20 61 73 68 69 66 74 20 2d 31 20 2b 20 28 77 31 29 2e ┆buf_chars:= w2 ashift -1 + (w1).┆
0x3a3e0…3a400 62 75 66 5f 62 79 74 65 73 3b 0a 20 20 20 20 20 20 20 20 20 20 28 77 31 00 00 00 00 00 00 00 00 ┆buf_bytes; (w1 ┆
0x3a400…3a406 (466,) (0x25c,0x749)
0x3a406…3a420 29 2e 62 75 66 5f 69 6e 63 61 72 3a 3d 20 77 32 3a 3d 20 28 77 33 29 2e 74 68 ┆).buf_incar:= w2:= (w3).th┆
0x3a420…3a440 5f 69 6e 63 61 72 3b 0a 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 62 75 66 5f 72 65 73 75 6c ┆_incar; (w1).buf_resul┆
0x3a440…3a460 74 3a 3d 20 77 32 3a 3d 20 31 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 32 3a 3d 20 28 77 ┆t:= w2:= 1; if w2:= (w┆
0x3a460…3a47e 33 29 2e 74 68 5f 70 61 72 65 6e 74 20 3e 20 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 ┆3).th_parent > 0 then ┆
0x3a47e…3a484 (0x25c,0x74a)
0x3a484…3a4a0 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 20 77 30 3b ┆ begin w1:= w0;┆
0x3a4a0…3a4c0 0a 20 20 20 20 20 20 20 20 20 20 20 20 6c 6f 63 6b 28 2e 77 33 2e 2c 77 30 3a 3d 31 2c 77 32 3a ┆ lock(.w3.,w0:=1,w2:┆
0x3a4c0…3a4e0 3d 28 77 32 29 2e 70 68 5f 71 72 65 73 65 72 76 65 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆=(w2).ph_qreserve); ┆
0x3a4e0…3a4fc 77 32 3a 3d 20 28 77 33 29 2e 74 68 5f 70 61 72 65 6e 74 3b 0a 20 20 20 20 20 20 20 ┆w2:= (w3).th_parent; ┆
0x3a4fc…3a502 (0x25c,0x74b)
0x3a502…3a520 20 20 20 20 20 69 66 20 77 32 3e 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ if w2>0 then ┆
0x3a520…3a540 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 32 29 2e 70 68 5f 74 68 69 6e ┆begin (w2).ph_thin┆
0x3a540…3a560 63 61 72 3a 3d 20 77 30 3a 3d 20 28 77 33 29 2e 74 68 5f 69 6e 63 61 72 3b 0a 20 20 20 20 20 20 ┆car:= w0:= (w3).th_incar; ┆
0x3a560…3a57a 20 20 20 20 20 20 20 20 70 75 74 5f 6f 70 28 2e 77 33 2e 2c 77 30 3a 3d 77 31 ┆ put_op(.w3.,w0:=w1┆
0x3a57a…3a580 (0x25c,0x74c)
0x3a580…3a5a0 2c 77 31 2c 77 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 77 31 3b 0a 20 ┆,w1,w2); w2:=w1; ┆
0x3a5a0…3a5c0 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f 76 65 28 2e 77 33 2e 2c 77 30 2c 77 31 3a 3d 28 77 ┆ move(.w3.,w0,w1:=(w┆
0x3a5c0…3a5e0 33 29 2e 74 68 5f 62 75 66 2c 77 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 ┆3).th_buf,w2); if ┆
0x3a5e0…3a600 77 32 3a 3d 28 77 33 29 2e 74 68 5f 70 61 72 65 6e 74 3e 30 20 74 68 65 00 00 00 00 00 00 00 00 ┆w2:=(w3).th_parent>0 the ┆
0x3a600…3a606 (467,) (0x25c,0x74d)
0x3a606…3a620 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 ┆n begin ┆
0x3a620…3a640 20 20 20 20 20 20 20 20 20 20 20 20 28 77 32 29 2e 70 68 5f 74 68 69 6e 63 61 72 3a 3d 20 77 30 ┆ (w2).ph_thincar:= w0┆
0x3a640…3a660 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 ┆:= 0; end; ┆
0x3a660…3a67e 20 20 20 20 20 20 20 20 20 6f 70 65 6e 28 2e 77 33 2e 2c 77 30 3a 3d 31 2c 77 32 3a 3d 28 ┆ open(.w3.,w0:=1,w2:=(┆
0x3a67e…3a684 (0x25c,0x74e)
0x3a684…3a6a0 77 32 29 2e 70 68 5f 71 72 65 73 65 72 76 65 29 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆w2).ph_qreserve); ┆
0x3a6a0…3a6c0 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 65 6e ┆ end; end; en┆
0x3a6c0…3a6e0 64 0a 20 20 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 21 20 67 ┆d else begin ! g┆
0x3a6e0…3a6fc 69 76 65 20 75 70 20 21 0a 20 20 20 20 20 20 20 20 20 20 72 65 6d 6f 76 65 5f 74 68 ┆ive up ! remove_th┆
0x3a6fc…3a702 (0x25c,0x74f)
0x3a702…3a720 28 2e 77 33 2e 2c 77 33 29 3b 0a 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 62 2e 61 63 ┆(.w3.,w3); goto b.ac┆
0x3a720…3a740 74 69 76 61 74 65 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 0a 20 20 20 20 20 20 65 6e 64 20 21 20 ┆tivate; end end ! ┆
0x3a740…3a760 66 6f 72 20 65 76 65 72 20 21 0a 20 20 20 20 65 6e 64 0a 20 20 65 6e 64 3b 20 21 20 74 68 20 21 ┆for ever ! end end; ! th !┆
0x3a760…3a77a 0a 0a 0a 0a 20 20 62 6f 64 79 20 6f 66 20 6f 70 6d 65 73 73 0a 20 20 62 65 67 ┆ body of opmess beg┆
0x3a77a…3a780 (0x25c,0x750)
0x3a780…3a7a0 69 6e 0a 20 20 20 20 69 6e 63 6f 64 65 0a 20 20 20 20 20 20 64 6f 75 62 6c 65 20 73 61 76 65 66 ┆in incode double savef┆
0x3a7a0…3a7c0 31 2c 73 61 76 65 66 33 3b 0a 20 20 20 20 20 20 74 65 78 74 28 31 34 29 20 70 61 72 65 6e 74 3b ┆1,savef3; text(14) parent;┆
0x3a7c0…3a7e0 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 73 61 76 65 66 31 3a 3d 66 31 3b 0a 20 20 20 ┆ begin savef1:=f1; ┆
0x3a7e0…3a800 20 20 20 73 61 76 65 66 33 3a 3d 66 33 3b 0a 20 20 20 20 20 20 77 31 3a 00 00 00 00 00 00 00 00 ┆ savef3:=f3; w1: ┆
0x3a800…3a806 (468,) (0x25c,0x751)
0x3a806…3a820 3d 62 2e 74 65 6d 2b 35 30 3b 0a 20 20 20 20 20 20 6d 6f 76 65 28 2e 77 33 2e ┆=b.tem+50; move(.w3.┆
0x3a820…3a840 2c 77 30 3a 3d 38 2c 77 31 3a 3d 28 77 31 29 2e 77 6f 72 64 2b 32 2c 77 32 3a 3d 61 64 64 72 65 ┆,w0:=8,w1:=(w1).word+2,w2:=addre┆
0x3a840…3a860 73 73 28 70 61 72 65 6e 74 29 29 3b 0a 20 20 20 20 20 20 77 33 3a 3d 77 32 3b 0a 20 20 20 20 20 ┆ss(parent)); w3:=w2; ┆
0x3a860…3a87e 20 66 31 3a 3d 73 61 76 65 66 31 3b 0a 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 31 36 29 ┆ f1:=savef1; monitor(16)┆
0x3a87e…3a884 (0x25c,0x752)
0x3a884…3a8a0 3b 20 20 21 20 73 65 6e 64 20 6d 65 73 73 61 67 65 20 74 6f 20 70 61 72 65 6e 74 20 ┆; ! send message to parent ┆
0x3a8a0…3a8c0 21 0a 20 20 20 20 20 20 77 31 3a 3d 61 64 64 72 65 73 73 28 62 2e 61 6e 73 5f 73 74 61 74 75 73 ┆! w1:=address(b.ans_status┆
0x3a8c0…3a8e0 29 3b 0a 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 31 38 29 3b 20 20 21 20 77 61 69 74 20 61 6e ┆); monitor(18); ! wait an┆
0x3a8e0…3a8fc 73 77 65 72 20 21 0a 20 20 20 20 20 20 66 31 3a 3d 73 61 76 65 66 31 3b 0a 20 20 20 ┆swer ! f1:=savef1; ┆
0x3a8fc…3a902 (0x25c,0x753)
0x3a902…3a920 20 20 20 66 33 3a 3d 73 61 76 65 66 33 3b 0a 20 20 20 20 65 6e 64 3b 0a 20 20 65 6e 64 3b ┆ f3:=savef3; end; end;┆
0x3a920…3a940 20 20 21 20 6f 70 6d 65 73 73 20 21 0a 0a 0a 0a 20 20 62 6f 64 79 20 6f 66 20 69 6e 69 74 0a 20 ┆ ! opmess ! body of init ┆
0x3a940…3a960 20 62 65 67 69 6e 0a 20 20 20 20 6c 61 62 65 6c 20 61 6c 6c 6f 63 61 74 65 2c 69 6e 69 74 62 75 ┆ begin label allocate,initbu┆
0x3a960…3a97a 66 73 3b 0a 20 20 20 20 69 6e 63 6f 64 65 0a 20 20 20 20 20 20 74 65 78 74 28 ┆fs; incode text(┆
0x3a97a…3a980 (0x25c,0x754)
0x3a980…3a9a0 31 34 29 74 65 73 74 61 72 65 61 3a 3d 22 74 65 6d 74 65 73 74 22 2c 73 70 6f 6f 6c 61 72 65 61 ┆14)testarea:="temtest",spoolarea┆
0x3a9a0…3a9c0 3a 3d 22 74 65 6d 73 70 6f 6f 6c 22 3b 0a 20 20 20 20 20 20 62 79 74 65 20 6f 70 33 3a 3d 20 31 ┆:="temspool"; byte op3:= 1┆
0x3a9c0…3a9e0 36 2c 20 6d 6f 64 65 33 3a 3d 20 38 27 30 31 34 30 3b 0a 20 20 20 20 20 20 74 65 78 74 28 31 34 ┆6, mode3:= 8'0140; text(14┆
0x3a9e0…3aa00 29 20 76 65 72 73 74 65 78 74 3a 3d 0a 20 20 20 20 20 20 21 20 20 20 20 00 00 00 00 00 00 00 00 ┆) verstext:= ! ┆
0x3aa00…3aa06 (469,) (0x25c,0x755)
0x3aa06…3aa20 20 20 20 20 20 20 2a 2a 2a 20 74 65 6d 20 2a 2a 2a 20 20 20 20 20 20 20 20 20 ┆ *** tem *** ┆
0x3aa20…3aa40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 22 72 65 6c 65 61 73 65 3a 20 34 2e 30 22 3b ┆ ! "release: 4.0";┆
0x3aa40…3aa60 0a 20 20 20 20 20 20 77 6f 72 64 0a 0a 20 20 20 20 20 20 21 20 64 61 74 65 20 6f 66 20 76 65 72 ┆ word ! date of ver┆
0x3aa60…3aa7e 73 69 6f 6e 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 ┆sion ┆
0x3aa7e…3aa84 (0x25c,0x756)
0x3aa84…3aaa0 20 20 20 21 20 76 65 72 73 69 6f 6e 20 20 20 3a 3d 20 38 35 30 38 30 31 2c 0a 20 20 ┆ ! version := 850801, ┆
0x3aaa0…3aac0 20 20 20 20 63 6f 6d 6d 65 6e 74 20 3d 3d 3d 74 72 69 6d 73 74 61 72 74 3b 0a 20 20 20 20 20 20 ┆ comment ===trimstart; ┆
0x3aac0…3aae0 21 20 64 61 74 65 20 6f 66 20 6f 70 74 69 6f 6e 73 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆! date of options ┆
0x3aae0…3aafc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 6f 70 74 69 6f 6e 73 20 20 20 20 20 ┆ ! options ┆
0x3aafc…3ab02 (0x25c,0x757)
0x3ab02…3ab20 20 3a 3d 20 20 20 30 2c 0a 20 20 20 20 20 20 21 20 6e 75 6d 62 65 72 20 6f 66 20 61 63 74 ┆ := 0, ! number of act┆
0x3ab20…3ab40 69 76 65 20 74 65 72 6d 69 6e 61 6c 73 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 ┆ive terminals !┆
0x3ab40…3ab60 20 74 68 63 6f 75 6e 74 20 20 20 20 20 20 3a 3d 20 20 31 30 2c 0a 20 20 20 20 20 20 21 20 6e 75 ┆ thcount := 10, ! nu┆
0x3ab60…3ab7a 6d 62 65 72 20 6f 66 20 74 65 72 6d 69 6e 61 6c 20 67 72 6f 75 70 73 20 20 20 ┆mber of terminal groups ┆
0x3ab7a…3ab80 (0x25c,0x758)
0x3ab80…3aba0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 70 68 63 6f 75 6e 74 20 20 20 20 20 20 3a ┆ ! phcount :┆
0x3aba0…3abc0 3d 20 20 20 34 2c 0a 20 20 20 20 20 20 21 20 73 69 7a 65 20 6f 66 20 74 65 72 6d 69 6e 61 6c 20 ┆= 4, ! size of terminal ┆
0x3abc0…3abe0 62 75 66 66 65 72 20 28 68 61 6c 66 77 6f 72 64 73 29 20 20 20 20 20 20 20 20 20 21 20 74 65 72 ┆buffer (halfwords) ! ter┆
0x3abe0…3ac00 6d 62 75 66 73 69 7a 65 20 20 3a 3d 20 31 30 34 2c 0a 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆mbufsize := 104, ┆
0x3ac00…3ac06 (470,) (0x25c,0x759)
0x3ac06…3ac20 21 20 6e 75 6d 62 65 72 20 6f 66 20 73 65 67 6d 65 6e 74 73 20 69 6e 20 65 61 ┆! number of segments in ea┆
0x3ac20…3ac40 63 68 20 70 68 20 73 70 6f 6f 6c 20 61 72 65 61 20 20 20 20 21 20 70 68 73 70 6f 6f 6c 73 65 67 ┆ch ph spool area ! phspoolseg┆
0x3ac40…3ac60 6d 20 20 3a 3d 20 20 20 38 2c 0a 20 20 20 20 20 20 21 20 6e 75 6d 62 65 72 20 6f 66 20 73 65 67 ┆m := 8, ! number of seg┆
0x3ac60…3ac7e 6d 65 6e 74 73 20 69 6e 20 65 61 63 68 20 74 68 20 73 70 6f 6f 6c 20 61 72 65 61 20 20 20 ┆ments in each th spool area ┆
0x3ac7e…3ac84 (0x25c,0x75a)
0x3ac84…3aca0 20 21 20 74 68 73 70 6f 6f 6c 73 65 67 6d 20 20 3a 3d 20 20 20 38 2c 0a 20 20 20 20 ┆ ! thspoolsegm := 8, ┆
0x3aca0…3acc0 20 20 21 20 6e 75 6d 62 65 72 20 6f 66 20 73 70 6f 6f 6c 20 73 65 67 6d 65 6e 74 20 62 75 66 66 ┆ ! number of spool segment buff┆
0x3acc0…3ace0 65 72 73 20 69 6e 20 63 6f 72 65 20 20 20 20 20 21 20 73 70 6f 6f 6c 62 75 66 73 20 20 20 20 3a ┆ers in core ! spoolbufs :┆
0x3ace0…3acfc 3d 20 20 20 32 2c 0a 20 20 20 20 20 20 21 20 73 69 7a 65 20 6f 66 20 74 65 73 74 6f ┆= 2, ! size of testo┆
0x3acfc…3ad02 (0x25c,0x75b)
0x3ad02…3ad20 75 74 70 75 74 20 61 72 65 61 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆utput area ┆
0x3ad20…3ad40 20 21 20 74 65 73 74 73 65 67 6d 6e 74 73 20 20 3a 3d 20 31 36 38 2c 0a 20 20 20 20 20 20 63 6f ┆ ! testsegmnts := 168, co┆
0x3ad40…3ad60 6d 6d 65 6e 74 20 3d 3d 3d 74 72 69 6d 66 69 6e 69 73 3b 0a 0a 20 20 20 20 20 20 63 6f 72 75 63 ┆mment ===trimfinis; coruc┆
0x3ad60…3ad7a 6f 75 6e 74 2c 73 70 6f 6f 6c 70 6f 69 6e 74 65 72 3a 3d 30 3b 0a 20 20 20 20 ┆ount,spoolpointer:=0; ┆
0x3ad7a…3ad80 (0x25c,0x75c)
0x3ad80…3ada0 20 20 61 72 72 61 79 28 31 3a 31 30 29 20 74 61 69 6c 20 6f 66 20 77 6f 72 64 3b 0a 20 20 20 20 ┆ array(1:10) tail of word; ┆
0x3ada0…3adc0 20 20 72 65 66 20 72 65 74 75 72 6e 2c 20 74 65 72 6d 62 75 66 72 65 66 2c 20 73 65 6d 72 65 66 ┆ ref return, termbufref, semref┆
0x3adc0…3ade0 3b 0a 20 20 20 20 20 20 62 79 74 65 20 6f 70 31 3a 3d 31 36 2c 6d 6f 64 65 31 3a 3d 38 27 34 30 ┆; byte op1:=16,mode1:=8'40┆
0x3ade0…3ae00 3b 0a 20 20 20 20 20 20 77 6f 72 64 20 61 6c 61 72 6d 3b 0a 20 20 20 20 00 00 00 00 00 00 00 00 ┆; word alarm; ┆
0x3ae00…3ae06 (471,) (0x25c,0x75d)
0x3ae06…3ae20 20 20 74 65 78 74 28 31 34 29 20 72 65 73 6f 75 72 63 65 3b 0a 20 20 20 20 20 ┆ text(14) resource; ┆
0x3ae20…3ae40 20 77 6f 72 64 20 73 74 64 76 61 6c 75 65 2c 6d 61 72 67 69 6e 2c 62 75 66 63 6c 61 69 6d 2c 73 ┆ word stdvalue,margin,bufclaim,s┆
0x3ae40…3ae60 74 6f 70 3a 3d 30 3b 0a 20 20 20 20 20 20 74 65 78 74 28 31 34 29 73 69 7a 65 20 3a 3d 20 22 73 ┆top:=0; text(14)size := "s┆
0x3ae60…3ae7e 69 7a 65 22 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 72 65 61 20 3a 3d 20 22 61 ┆ize", area := "a┆
0x3ae7e…3ae84 (0x25c,0x75e)
0x3ae84…3aea0 72 65 61 22 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 75 66 20 20 3a 3d 20 ┆rea", buf := ┆
0x3aea0…3aec0 22 62 75 66 22 3b 0a 20 20 20 20 20 20 74 65 78 74 28 32 30 29 69 6e 69 74 74 72 3a 3d 22 20 20 ┆"buf"; text(20)inittr:=" ┆
0x3aec0…3aee0 2a 2a 2a 69 6e 69 74 20 74 72 6f 75 62 6c 65 73 22 3b 0a 20 20 20 20 20 20 62 79 74 65 20 6f 70 ┆***init troubles"; byte op┆
0x3aee0…3aefc 32 3a 3d 31 36 2c 6d 6f 64 65 32 3a 3d 30 3b 0a 20 20 20 20 20 20 74 65 78 74 28 32 ┆2:=16,mode2:=0; text(2┆
0x3aefc…3af02 (0x25c,0x75f)
0x3af02…3af20 30 29 20 73 74 61 72 74 65 64 3a 3d 22 73 74 61 72 74 65 64 22 3b 0a 20 20 20 20 62 65 67 ┆0) started:="started"; beg┆
0x3af20…3af40 69 6e 0a 20 20 20 20 20 20 72 65 74 75 72 6e 3a 3d 77 33 3b 0a 20 20 20 20 20 20 67 6f 74 6f 20 ┆in return:=w3; goto ┆
0x3af40…3af60 61 6c 6c 6f 63 61 74 65 3b 0a 0a 69 6e 69 74 62 75 66 73 3a 0a 20 20 20 20 20 20 66 31 20 6c 73 ┆allocate; initbufs: f1 ls┆
0x3af60…3af7a 68 69 66 74 20 2d 31 30 30 3b 0a 20 20 20 20 20 20 66 6f 72 20 77 32 3a 3d 62 ┆hift -100; for w2:=b┆
0x3af7a…3af80 (0x25c,0x760)
0x3af80…3afa0 2e 63 6c 5f 64 65 73 63 72 69 70 74 6f 72 20 73 74 65 70 20 34 20 75 70 74 6f 20 62 2e 73 65 6d ┆.cl_descriptor step 4 upto b.sem┆
0x3afa0…3afc0 70 6f 6f 6c 5f 74 6f 70 20 64 6f 20 28 77 32 29 2e 64 6f 75 62 6c 65 3a 3d 20 66 31 3b 0a 20 20 ┆pool_top do (w2).double:= f1; ┆
0x3afc0…3afe0 20 20 20 20 28 77 31 3a 3d 62 2e 63 6c 5f 64 65 73 63 72 69 70 74 6f 72 29 2e 63 5f 6e 72 3a 3d ┆ (w1:=b.cl_descriptor).c_nr:=┆
0x3afe0…3b000 77 30 3a 3d 2d 31 3b 0a 0a 20 20 20 20 20 20 77 31 3a 3d 20 62 2e 70 68 00 00 00 00 00 00 00 00 ┆w0:=-1; w1:= b.ph ┆
0x3b000…3b006 (472,) (0x25c,0x761)
0x3b006…3b020 70 6f 6f 6c 5f 66 73 74 3b 0a 20 20 20 20 20 20 66 6f 72 20 77 33 3a 3d 31 20 ┆pool_fst; for w3:=1 ┆
0x3b020…3b040 73 74 65 70 20 31 20 75 70 74 6f 20 70 68 63 6f 75 6e 74 20 64 6f 0a 20 20 20 20 20 20 62 65 67 ┆step 1 upto phcount do beg┆
0x3b040…3b060 69 6e 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 63 5f 6e 65 78 74 3a 3d 77 31 3b 0a 20 20 20 20 ┆in (w1).c_next:=w1; ┆
0x3b060…3b07e 20 20 20 20 28 77 31 29 2e 63 5f 70 72 65 76 3a 3d 77 31 3b 0a 20 20 20 20 20 20 20 20 28 ┆ (w1).c_prev:=w1; (┆
0x3b07e…3b084 (0x25c,0x762)
0x3b084…3b0a0 77 31 29 2e 63 5f 6e 72 3a 3d 77 32 3a 3d 77 33 2b 31 30 30 3b 0a 20 20 20 20 20 20 ┆w1).c_nr:=w2:=w3+100; ┆
0x3b0a0…3b0c0 20 20 28 77 31 29 2e 61 5f 72 65 63 66 75 6c 6c 3a 3d 77 32 3a 3d 73 65 6d 72 65 66 3b 0a 20 20 ┆ (w1).a_recfull:=w2:=semref; ┆
0x3b0c0…3b0e0 20 20 20 20 20 20 28 77 32 29 2e 73 65 6d 5f 6e 65 78 74 3a 3d 77 32 3b 0a 20 20 20 20 20 20 20 ┆ (w2).sem_next:=w2; ┆
0x3b0e0…3b0fc 20 28 77 32 29 2e 73 65 6d 5f 70 72 65 76 3a 3d 77 32 3b 0a 20 20 20 20 20 20 20 20 ┆ (w2).sem_prev:=w2; ┆
0x3b0fc…3b102 (0x25c,0x763)
0x3b102…3b120 77 32 2b 21 6c 65 6e 67 74 68 28 73 65 6d 61 70 68 6f 72 65 29 3b 0a 20 20 20 20 20 20 20 ┆w2+!length(semaphore); ┆
0x3b120…3b140 20 28 77 31 29 2e 61 5f 62 79 74 65 73 66 72 65 65 3a 3d 77 32 3b 0a 20 20 20 20 20 20 20 20 28 ┆ (w1).a_bytesfree:=w2; (┆
0x3b140…3b160 77 32 29 2e 73 65 6d 5f 6e 65 78 74 3a 3d 77 32 3b 0a 20 20 20 20 20 20 20 20 28 77 32 29 2e 73 ┆w2).sem_next:=w2; (w2).s┆
0x3b160…3b17a 65 6d 5f 70 72 65 76 3a 3d 77 32 3b 0a 20 20 20 20 20 20 20 20 28 77 32 29 2e ┆em_prev:=w2; (w2).┆
0x3b17a…3b180 (0x25c,0x764)
0x3b180…3b1a0 73 65 6d 5f 76 61 6c 75 65 3a 3d 77 30 3a 3d 70 68 73 70 6f 6f 6c 73 65 67 6d 20 6c 73 68 69 66 ┆sem_value:=w0:=phspoolsegm lshif┆
0x3b1a0…3b1c0 74 20 39 3b 0a 20 20 20 20 20 20 20 20 77 32 2b 21 6c 65 6e 67 74 68 28 73 65 6d 61 70 68 6f 72 ┆t 9; w2+!length(semaphor┆
0x3b1c0…3b1e0 65 29 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 70 68 5f 71 72 65 73 65 72 76 65 3a 3d 20 77 ┆e); (w1).ph_qreserve:= w┆
0x3b1e0…3b200 32 3b 0a 20 20 20 20 20 20 20 20 28 77 32 29 2e 73 65 6d 5f 6e 65 78 74 00 00 00 00 00 00 00 00 ┆2; (w2).sem_next ┆
0x3b200…3b206 (473,) (0x25c,0x765)
0x3b206…3b220 3a 3d 20 77 32 3b 0a 20 20 20 20 20 20 20 20 28 77 32 29 2e 73 65 6d 5f 70 72 ┆:= w2; (w2).sem_pr┆
0x3b220…3b240 65 76 3a 3d 20 77 32 3b 0a 20 20 20 20 20 20 20 20 28 77 32 29 2e 73 65 6d 5f 76 61 6c 75 65 3a ┆ev:= w2; (w2).sem_value:┆
0x3b240…3b260 3d 20 77 30 3a 3d 20 31 3b 0a 20 20 20 20 20 20 20 20 77 32 2b 21 6c 65 6e 67 74 68 28 73 65 6d ┆= w0:= 1; w2+!length(sem┆
0x3b260…3b27e 61 70 68 6f 72 65 29 3b 0a 20 20 20 20 20 20 20 20 73 65 6d 72 65 66 3a 3d 77 32 3b 0a 20 ┆aphore); semref:=w2; ┆
0x3b27e…3b284 (0x25c,0x766)
0x3b284…3b2a0 20 20 20 20 20 20 20 28 77 31 29 2e 61 5f 66 69 72 73 74 3a 3d 77 30 3a 3d 73 70 6f ┆ (w1).a_first:=w0:=spo┆
0x3b2a0…3b2c0 6f 6c 70 6f 69 6e 74 65 72 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 61 5f 66 69 72 73 74 66 ┆olpointer; (w1).a_firstf┆
0x3b2c0…3b2e0 75 6c 6c 3a 3d 77 30 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 61 5f 66 69 72 73 74 66 72 65 ┆ull:=w0; (w1).a_firstfre┆
0x3b2e0…3b2fc 65 3a 3d 77 30 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 61 5f 74 6f 70 3a 3d 77 ┆e:=w0; (w1).a_top:=w┆
0x3b2fc…3b302 (0x25c,0x767)
0x3b302…3b320 30 2b 28 77 32 3a 3d 70 68 73 70 6f 6f 6c 73 65 67 6d 2b 31 20 6c 73 68 69 66 74 20 39 29 ┆0+(w2:=phspoolsegm+1 lshift 9)┆
0x3b320…3b340 3b 0a 20 20 20 20 20 20 20 20 73 70 6f 6f 6c 70 6f 69 6e 74 65 72 3a 3d 77 30 3b 0a 20 20 20 20 ┆; spoolpointer:=w0; ┆
0x3b340…3b360 20 20 20 20 77 31 2b 21 6c 65 6e 67 74 68 28 70 72 6f 63 65 73 73 68 61 6e 64 6c 65 72 29 3b 0a ┆ w1+!length(processhandler); ┆
0x3b360…3b37a 20 20 20 20 20 20 65 6e 64 3b 0a 0a 20 20 20 20 20 20 77 31 3a 3d 20 62 2e 74 ┆ end; w1:= b.t┆
0x3b37a…3b380 (0x25c,0x768)
0x3b380…3b3a0 68 70 6f 6f 6c 5f 66 73 74 3b 0a 20 20 20 20 20 20 66 6f 72 20 77 33 3a 3d 31 20 73 74 65 70 20 ┆hpool_fst; for w3:=1 step ┆
0x3b3a0…3b3c0 31 20 75 70 74 6f 20 74 68 63 6f 75 6e 74 20 64 6f 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 ┆1 upto thcount do begin ┆
0x3b3c0…3b3e0 20 20 20 20 20 20 28 77 31 29 2e 63 5f 6e 65 78 74 3a 3d 77 31 3b 0a 20 20 20 20 20 20 20 20 28 ┆ (w1).c_next:=w1; (┆
0x3b3e0…3b400 77 31 29 2e 63 5f 70 72 65 76 3a 3d 77 31 3b 0a 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆w1).c_prev:=w1; ┆
0x3b400…3b406 (474,) (0x25c,0x769)
0x3b406…3b420 28 77 31 29 2e 63 5f 6e 72 3a 3d 77 32 3a 3d 77 33 2b 32 30 30 3b 0a 20 20 20 ┆(w1).c_nr:=w2:=w3+200; ┆
0x3b420…3b440 20 20 20 20 20 28 77 31 29 2e 74 68 5f 62 75 66 3a 3d 77 32 3a 3d 74 65 72 6d 62 75 66 72 65 66 ┆ (w1).th_buf:=w2:=termbufref┆
0x3b440…3b460 3b 0a 20 20 20 20 20 20 20 20 77 32 2b 74 65 72 6d 62 75 66 73 69 7a 65 2b 28 21 6c 65 6e 67 74 ┆; w2+termbufsize+(!lengt┆
0x3b460…3b47e 68 28 74 65 72 6d 62 75 66 68 65 61 64 29 2d 34 29 3b 0a 20 20 20 20 20 20 20 20 74 65 72 ┆h(termbufhead)-4); ter┆
0x3b47e…3b484 (0x25c,0x76a)
0x3b484…3b4a0 6d 62 75 66 72 65 66 3a 3d 77 32 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 61 5f ┆mbufref:=w2; (w1).a_┆
0x3b4a0…3b4c0 72 65 63 66 75 6c 6c 3a 3d 77 32 3a 3d 73 65 6d 72 65 66 3b 0a 20 20 20 20 20 20 20 20 28 77 32 ┆recfull:=w2:=semref; (w2┆
0x3b4c0…3b4e0 29 2e 73 65 6d 5f 6e 65 78 74 3a 3d 77 32 3b 0a 20 20 20 20 20 20 20 20 28 77 32 29 2e 73 65 6d ┆).sem_next:=w2; (w2).sem┆
0x3b4e0…3b4fc 5f 70 72 65 76 3a 3d 77 32 3b 0a 20 20 20 20 20 20 20 20 77 32 2b 21 6c 65 6e 67 74 ┆_prev:=w2; w2+!lengt┆
0x3b4fc…3b502 (0x25c,0x76b)
0x3b502…3b520 68 28 73 65 6d 61 70 68 6f 72 65 29 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 61 5f 62 ┆h(semaphore); (w1).a_b┆
0x3b520…3b540 79 74 65 73 66 72 65 65 3a 3d 77 32 3b 0a 20 20 20 20 20 20 20 20 28 77 32 29 2e 73 65 6d 5f 6e ┆ytesfree:=w2; (w2).sem_n┆
0x3b540…3b560 65 78 74 3a 3d 77 32 3b 0a 20 20 20 20 20 20 20 20 28 77 32 29 2e 73 65 6d 5f 70 72 65 76 3a 3d ┆ext:=w2; (w2).sem_prev:=┆
0x3b560…3b57a 77 32 3b 0a 20 20 20 20 20 20 20 20 28 77 32 29 2e 73 65 6d 5f 76 61 6c 75 65 ┆w2; (w2).sem_value┆
0x3b57a…3b580 (0x25c,0x76c)
0x3b580…3b5a0 3a 3d 77 30 3a 3d 74 68 73 70 6f 6f 6c 73 65 67 6d 20 6c 73 68 69 66 74 20 39 3b 0a 20 20 20 20 ┆:=w0:=thspoolsegm lshift 9; ┆
0x3b5a0…3b5c0 20 20 20 20 77 32 2b 21 6c 65 6e 67 74 68 28 73 65 6d 61 70 68 6f 72 65 29 3b 0a 20 20 20 20 20 ┆ w2+!length(semaphore); ┆
0x3b5c0…3b5e0 20 20 20 28 77 31 29 2e 74 68 5f 63 6f 6e 74 72 6f 6c 3a 3d 20 77 32 3b 0a 20 20 20 20 20 20 20 ┆ (w1).th_control:= w2; ┆
0x3b5e0…3b600 20 28 77 32 29 2e 73 65 6d 5f 6e 65 78 74 3a 3d 20 77 32 3b 0a 20 20 20 00 00 00 00 00 00 00 00 ┆ (w2).sem_next:= w2; ┆
0x3b600…3b606 (475,) (0x25c,0x76d)
0x3b606…3b620 20 20 20 20 20 28 77 32 29 2e 73 65 6d 5f 70 72 65 76 3a 3d 20 77 32 3b 0a 20 ┆ (w2).sem_prev:= w2; ┆
0x3b620…3b640 20 20 20 20 20 20 20 28 77 32 29 2e 73 65 6d 5f 76 61 6c 75 65 3a 3d 20 77 30 3a 3d 20 30 3b 0a ┆ (w2).sem_value:= w0:= 0; ┆
0x3b640…3b660 20 20 20 20 20 20 20 20 77 32 2b 21 6c 65 6e 67 74 68 28 73 65 6d 61 70 68 6f 72 65 29 3b 0a 20 ┆ w2+!length(semaphore); ┆
0x3b660…3b67e 20 20 20 20 20 20 20 73 65 6d 72 65 66 3a 3d 77 32 3b 0a 20 20 20 20 20 20 20 20 28 77 31 ┆ semref:=w2; (w1┆
0x3b67e…3b684 (0x25c,0x76e)
0x3b684…3b6a0 29 2e 61 5f 66 69 72 73 74 3a 3d 77 30 3a 3d 73 70 6f 6f 6c 70 6f 69 6e 74 65 72 3b ┆).a_first:=w0:=spoolpointer;┆
0x3b6a0…3b6c0 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 61 5f 66 69 72 73 74 66 72 65 65 3a 3d 77 30 3b 0a 20 ┆ (w1).a_firstfree:=w0; ┆
0x3b6c0…3b6e0 20 20 20 20 20 20 20 28 77 31 29 2e 61 5f 66 69 72 73 74 66 75 6c 6c 3a 3d 77 30 3b 0a 20 20 20 ┆ (w1).a_firstfull:=w0; ┆
0x3b6e0…3b6fc 20 20 20 20 20 28 77 31 29 2e 61 5f 74 6f 70 3a 3d 77 30 2b 28 77 32 3a 3d 74 68 73 ┆ (w1).a_top:=w0+(w2:=ths┆
0x3b6fc…3b702 (0x25c,0x76f)
0x3b702…3b720 70 6f 6f 6c 73 65 67 6d 2b 31 20 6c 73 68 69 66 74 20 39 29 3b 0a 20 20 20 20 20 20 20 20 ┆poolsegm+1 lshift 9); ┆
0x3b720…3b740 73 70 6f 6f 6c 70 6f 69 6e 74 65 72 3a 3d 77 30 3b 0a 20 20 20 20 20 20 20 20 77 31 2b 21 6c 65 ┆spoolpointer:=w0; w1+!le┆
0x3b740…3b760 6e 67 74 68 28 74 65 72 6d 69 6e 61 6c 68 61 6e 64 6c 65 72 29 3b 0a 20 20 20 20 20 20 65 6e 64 ┆ngth(terminalhandler); end┆
0x3b760…3b77a 3b 0a 0a 20 20 20 20 20 20 74 65 73 74 6f 75 74 28 2e 77 33 2e 2c 77 30 3a 3d ┆; testout(.w3.,w0:=┆
0x3b77a…3b780 (0x25c,0x770)
0x3b780…3b7a0 32 30 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 76 65 72 73 69 6f 6e 29 2c 77 32 3a 3d 36 39 29 3b ┆20,w1:=address(version),w2:=69);┆
0x3b7a0…3b7c0 0a 20 20 20 20 20 20 74 65 73 74 6f 75 74 28 2e 77 33 2e 2c 77 30 3a 3d 31 35 30 2c 77 31 3a 3d ┆ testout(.w3.,w0:=150,w1:=┆
0x3b7c0…3b7e0 62 2e 74 65 6d 2d 34 2c 77 32 3a 3d 38 29 3b 0a 20 20 20 20 20 20 77 30 3a 3d 20 38 27 31 37 37 ┆b.tem-4,w2:=8); w0:= 8'177┆
0x3b7e0…3b800 37 37 37 37 37 3b 20 21 20 73 65 67 6d 20 6e 6f 74 20 75 70 64 61 74 65 00 00 00 00 00 00 00 00 ┆77777; ! segm not update ┆
0x3b800…3b806 (476,) (0x25c,0x771)
0x3b806…3b820 64 20 2c 20 73 65 67 6d 2e 6e 6f 20 3d 20 2b 69 6e 66 69 6e 69 74 65 20 21 3b ┆d , segm.no = +infinite !;┆
0x3b820…3b840 0a 20 20 20 20 20 20 77 31 3a 3d 30 3b 0a 20 20 20 20 20 20 77 32 3a 3d 62 2e 73 65 67 70 6f 6f ┆ w1:=0; w2:=b.segpoo┆
0x3b840…3b860 6c 5f 74 6f 70 3b 0a 20 20 20 20 20 20 77 68 69 6c 65 20 77 32 2d 35 31 36 20 3e 3d 20 62 2e 73 ┆l_top; while w2-516 >= b.s┆
0x3b860…3b87e 65 67 70 6f 6f 6c 5f 66 73 74 20 64 6f 20 28 77 32 29 2e 64 6f 75 62 6c 65 3a 3d 66 31 3b ┆egpool_fst do (w2).double:=f1;┆
0x3b87e…3b884 (0x25c,0x772)
0x3b884…3b8a0 0a 20 20 20 20 20 20 63 61 6c 6c 20 77 30 20 72 65 74 75 72 6e 3b 0a 0a 61 6c 6c 6f ┆ call w0 return; allo┆
0x3b8a0…3b8c0 63 61 74 65 3a 0a 20 20 20 20 20 20 6f 70 6d 65 73 73 28 2e 77 33 2e 2c 77 31 3a 3d 61 64 64 72 ┆cate: opmess(.w3.,w1:=addr┆
0x3b8c0…3b8e0 65 73 73 28 6f 70 33 29 29 3b 0a 20 20 20 20 20 20 63 6f 72 75 63 6f 75 6e 74 3a 3d 77 30 3a 3d ┆ess(op3)); corucount:=w0:=┆
0x3b8e0…3b8fc 74 68 63 6f 75 6e 74 2b 70 68 63 6f 75 6e 74 3b 0a 20 20 20 20 20 20 62 2e 61 63 74 ┆thcount+phcount; b.act┆
0x3b8fc…3b902 (0x25c,0x773)
0x3b902…3b920 69 76 71 66 73 74 3a 3d 77 30 3a 3d 61 64 64 72 65 73 73 28 62 2e 61 63 74 69 76 71 66 73 ┆ivqfst:=w0:=address(b.activqfs┆
0x3b920…3b940 74 29 3b 0a 20 20 20 20 20 20 62 2e 61 63 74 69 76 71 6c 61 73 74 3a 3d 77 30 3b 0a 20 20 20 20 ┆t); b.activqlast:=w0; ┆
0x3b940…3b960 20 20 62 2e 61 6e 73 77 65 72 71 66 73 74 3a 3d 77 30 3a 3d 61 64 64 72 65 73 73 28 62 2e 61 6e ┆ b.answerqfst:=w0:=address(b.an┆
0x3b960…3b97a 73 77 65 72 71 66 73 74 29 3b 0a 20 20 20 20 20 20 62 2e 61 6e 73 77 65 72 71 ┆swerqfst); b.answerq┆
0x3b97a…3b980 (0x25c,0x774)
0x3b980…3b9a0 6c 61 73 74 3a 3d 77 30 3b 0a 20 20 20 20 20 20 62 2e 77 61 69 74 71 66 73 74 3a 3d 77 30 3a 3d ┆last:=w0; b.waitqfst:=w0:=┆
0x3b9a0…3b9c0 61 64 64 72 65 73 73 28 62 2e 77 61 69 74 71 66 73 74 29 3b 0a 20 20 20 20 20 20 62 2e 77 61 69 ┆address(b.waitqfst); b.wai┆
0x3b9c0…3b9e0 74 71 6c 61 73 74 3a 3d 77 30 3b 0a 20 20 20 20 20 20 62 2e 73 65 67 70 6f 6f 6c 5f 66 73 74 3a ┆tqlast:=w0; b.segpool_fst:┆
0x3b9e0…3ba00 3d 77 31 3a 3d 61 64 64 72 65 73 73 28 74 65 73 74 61 72 65 61 29 3b 0a 00 00 00 00 00 00 00 00 ┆=w1:=address(testarea); ┆
0x3ba00…3ba06 (477,) (0x25c,0x775)
0x3ba06…3ba20 20 20 20 20 20 20 62 2e 73 65 67 5f 73 69 7a 65 3a 3d 77 30 3a 3d 35 31 36 3b ┆ b.seg_size:=w0:=516;┆
0x3ba20…3ba40 0a 20 20 20 20 20 20 77 30 2a 73 70 6f 6f 6c 62 75 66 73 3b 0a 20 20 20 20 20 20 77 31 2b 77 30 ┆ w0*spoolbufs; w1+w0┆
0x3ba40…3ba60 3b 0a 20 20 20 20 20 20 62 2e 73 65 67 70 6f 6f 6c 5f 74 6f 70 3a 3d 77 31 3b 0a 20 20 20 20 20 ┆; b.segpool_top:=w1; ┆
0x3ba60…3ba7e 20 74 65 72 6d 62 75 66 72 65 66 3a 3d 77 31 3b 0a 20 20 20 20 20 20 77 30 3a 3d 20 74 65 ┆ termbufref:=w1; w0:= te┆
0x3ba7e…3ba84 (0x25c,0x776)
0x3ba84…3baa0 72 6d 62 75 66 73 69 7a 65 3b 0a 20 20 20 20 20 20 69 66 20 77 30 3e 34 38 30 20 74 ┆rmbufsize; if w0>480 t┆
0x3baa0…3bac0 68 65 6e 20 77 30 3a 3d 20 34 38 30 3b 0a 20 20 20 20 20 20 62 2e 62 75 66 6c 3a 3d 20 77 30 3b ┆hen w0:= 480; b.bufl:= w0;┆
0x3bac0…3bae0 74 65 72 6d 62 75 66 73 69 7a 65 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 77 30 3a 3d 28 21 6c 65 ┆termbufsize:= w0; w0:=(!le┆
0x3bae0…3bafc 6e 67 74 68 28 74 65 72 6d 62 75 66 68 65 61 64 29 2d 34 29 2b 74 65 72 6d 62 75 66 ┆ngth(termbufhead)-4)+termbuf┆
0x3bafc…3bb02 (0x25c,0x777)
0x3bb02…3bb20 73 69 7a 65 3b 0a 20 20 20 20 20 20 77 30 2a 74 68 63 6f 75 6e 74 3b 0a 20 20 20 20 20 20 ┆size; w0*thcount; ┆
0x3bb20…3bb40 77 31 2b 77 30 3b 0a 20 20 20 20 20 20 62 2e 63 6c 5f 64 65 73 63 72 69 70 74 6f 72 3a 3d 20 77 ┆w1+w0; b.cl_descriptor:= w┆
0x3bb40…3bb60 31 3b 0a 20 20 20 20 20 20 77 31 2b 21 6c 65 6e 67 74 68 28 63 6f 72 6f 75 74 69 6e 65 29 3b 0a ┆1; w1+!length(coroutine); ┆
0x3bb60…3bb7a 20 20 20 20 20 20 62 2e 70 68 70 6f 6f 6c 5f 66 73 74 3a 3d 20 77 31 3b 0a 20 ┆ b.phpool_fst:= w1; ┆
0x3bb7a…3bb80 (0x25c,0x778)
0x3bb80…3bba0 20 20 20 20 20 62 2e 70 68 5f 73 69 7a 65 3a 3d 77 30 3a 3d 21 6c 65 6e 67 74 68 28 70 72 6f 63 ┆ b.ph_size:=w0:=!length(proc┆
0x3bba0…3bbc0 65 73 73 68 61 6e 64 6c 65 72 29 3b 0a 20 20 20 20 20 20 77 30 2a 70 68 63 6f 75 6e 74 3b 0a 20 ┆esshandler); w0*phcount; ┆
0x3bbc0…3bbe0 20 20 20 20 20 77 31 2b 77 30 3b 0a 20 20 20 20 20 20 62 2e 70 68 70 6f 6f 6c 5f 74 6f 70 3a 3d ┆ w1+w0; b.phpool_top:=┆
0x3bbe0…3bc00 20 77 31 3b 0a 20 20 20 20 20 20 62 2e 74 68 70 6f 6f 6c 5f 66 73 74 3a 00 00 00 00 00 00 00 00 ┆ w1; b.thpool_fst: ┆
0x3bc00…3bc06 (478,) (0x25c,0x779)
0x3bc06…3bc20 3d 20 77 31 3b 0a 20 20 20 20 20 20 62 2e 74 68 5f 73 69 7a 65 3a 3d 77 30 3a ┆= w1; b.th_size:=w0:┆
0x3bc20…3bc40 3d 21 6c 65 6e 67 74 68 28 74 65 72 6d 69 6e 61 6c 68 61 6e 64 6c 65 72 29 3b 0a 20 20 20 20 20 ┆=!length(terminalhandler); ┆
0x3bc40…3bc60 20 77 30 2a 74 68 63 6f 75 6e 74 3b 0a 20 20 20 20 20 20 77 31 2b 77 30 3b 0a 20 20 20 20 20 20 ┆ w0*thcount; w1+w0; ┆
0x3bc60…3bc7e 62 2e 74 68 70 6f 6f 6c 5f 74 6f 70 3a 3d 20 77 31 3b 0a 20 20 20 20 20 20 62 2e 73 65 6d ┆b.thpool_top:= w1; b.sem┆
0x3bc7e…3bc84 (0x25c,0x77a)
0x3bc84…3bca0 70 6f 6f 6c 5f 66 73 74 3a 3d 77 31 3b 0a 20 20 20 20 20 20 73 65 6d 72 65 66 3a 3d ┆pool_fst:=w1; semref:=┆
0x3bca0…3bcc0 77 31 3b 0a 20 20 20 20 20 20 62 2e 73 65 6d 5f 73 69 7a 65 3a 3d 77 30 3a 3d 21 6c 65 6e 67 74 ┆w1; b.sem_size:=w0:=!lengt┆
0x3bcc0…3bce0 68 28 73 65 6d 61 70 68 6f 72 65 29 3b 0a 20 20 20 20 20 20 77 30 20 6c 73 68 69 66 74 20 31 20 ┆h(semaphore); w0 lshift 1 ┆
0x3bce0…3bcfc 2a 20 63 6f 72 75 63 6f 75 6e 74 3b 0a 20 20 20 20 20 20 77 31 2b 77 30 3b 0a 20 20 ┆* corucount; w1+w0; ┆
0x3bcfc…3bd02 (0x25c,0x77b)
0x3bd02…3bd20 20 20 20 20 77 30 3a 3d 20 21 6c 65 6e 67 74 68 28 73 65 6d 61 70 68 6f 72 65 29 3b 0a 20 ┆ w0:= !length(semaphore); ┆
0x3bd20…3bd40 20 20 20 20 20 77 30 2a 70 68 63 6f 75 6e 74 3b 0a 20 20 20 20 20 20 77 31 2b 77 30 3b 0a 20 20 ┆ w0*phcount; w1+w0; ┆
0x3bd40…3bd60 20 20 20 20 62 2e 73 65 6d 70 6f 6f 6c 5f 74 6f 70 3a 3d 77 31 3b 0a 20 20 20 20 20 20 77 33 3a ┆ b.sempool_top:=w1; w3:┆
0x3bd60…3bd7a 3d 62 2e 74 65 6d 2b 32 32 3b 0a 20 20 20 20 20 20 66 33 3a 3d 28 77 33 29 2e ┆=b.tem+22; f3:=(w3).┆
0x3bd7a…3bd80 (0x25c,0x77c)
0x3bd80…3bda0 64 6f 75 62 6c 65 3b 0a 20 20 20 20 20 20 77 33 2d 32 3b 0a 20 20 20 20 20 20 77 30 3a 3d 20 61 ┆double; w3-2; w0:= a┆
0x3bda0…3bdc0 64 64 72 65 73 73 28 62 2e 70 68 70 6f 6f 6c 5f 66 73 74 29 3b 0a 20 20 20 20 20 20 28 77 33 29 ┆ddress(b.phpool_fst); (w3)┆
0x3bdc0…3bde0 2e 77 6f 72 64 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 62 2e 74 65 73 74 6d 74 6f 70 3a 3d 77 33 ┆.word:= w0; b.testmtop:=w3┆
0x3bde0…3be00 3b 0a 20 20 20 20 20 20 69 66 20 77 30 3a 3d 20 74 65 73 74 73 65 67 6d 00 00 00 00 00 00 00 00 ┆; if w0:= testsegm ┆
0x3be00…3be06 (479,) (0x25c,0x77d)
0x3be06…3be20 6e 74 73 3e 30 20 74 68 65 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 ┆nts>0 then begin ┆
0x3be20…3be40 20 20 20 20 20 77 33 2d 35 31 32 3b 0a 20 20 20 20 20 20 20 20 62 2e 74 65 73 74 6d 6c 61 73 74 ┆ w3-512; b.testmlast┆
0x3be40…3be60 3a 3d 20 77 33 3b 0a 20 20 20 20 20 20 20 20 77 33 2d 35 31 30 3b 0a 20 20 20 20 20 20 20 20 62 ┆:= w3; w3-510; b┆
0x3be60…3be7e 2e 74 65 73 74 6d 66 73 74 3a 3d 20 77 33 3b 0a 20 20 20 20 20 20 65 6e 64 20 65 6c 73 65 ┆.testmfst:= w3; end else┆
0x3be7e…3be84 (0x25c,0x77e)
0x3be84…3bea0 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 62 2e 74 65 73 74 6d ┆ begin b.testm┆
0x3bea0…3bec0 6c 61 73 74 3a 3d 20 77 33 3b 0a 20 20 20 20 20 20 20 20 62 2e 74 65 73 74 6d 66 73 74 3a 3d 20 ┆last:= w3; b.testmfst:= ┆
0x3bec0…3bee0 77 33 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 6d 61 72 67 69 6e 3a 3d 77 33 2d ┆w3; end; margin:=w3-┆
0x3bee0…3befc 77 31 3b 0a 20 20 20 20 20 20 69 66 20 77 33 20 3c 3e 20 30 20 74 68 65 6e 0a 20 20 ┆w1; if w3 <> 0 then ┆
0x3befc…3bf02 (0x25c,0x77f)
0x3bf02…3bf20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 77 30 3a 3d 62 2e 74 65 73 74 6d 74 ┆ begin w0:=b.testmt┆
0x3bf20…3bf40 6f 70 2b 32 3b 0a 20 20 20 20 20 20 20 20 73 74 64 76 61 6c 75 65 3a 3d 77 30 2d 77 32 2d 6d 61 ┆op+2; stdvalue:=w0-w2-ma┆
0x3bf40…3bf60 72 67 69 6e 3b 0a 20 20 20 20 20 20 20 20 6d 6f 76 65 28 2e 77 33 2e 2c 77 30 3a 3d 38 2c 77 31 ┆rgin; move(.w3.,w0:=8,w1┆
0x3bf60…3bf7a 3a 3d 61 64 64 72 65 73 73 28 73 69 7a 65 29 2c 77 32 3a 3d 61 64 64 72 65 73 ┆:=address(size),w2:=addres┆
0x3bf7a…3bf80 (0x25c,0x780)
0x3bf80…3bfa0 73 28 72 65 73 6f 75 72 63 65 29 29 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 33 3a 3d 6d 61 72 ┆s(resource)); if w3:=mar┆
0x3bfa0…3bfc0 67 69 6e 20 3c 20 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 ┆gin < 0 then begin ┆
0x3bfc0…3bfe0 20 20 20 20 20 61 6c 61 72 6d 3a 3d 77 32 3a 3d 32 37 36 33 33 30 36 3b 20 20 21 20 22 2a 2a 2a ┆ alarm:=w2:=2763306; ! "***┆
0x3bfe0…3c000 22 20 21 0a 20 20 20 20 20 20 20 20 20 20 73 74 6f 70 3a 3d 77 32 3b 0a 00 00 00 00 00 00 00 00 ┆" ! stop:=w2; ┆
0x3c000…3c006 (480,) (0x25c,0x781)
0x3c006…3c020 20 20 20 20 20 20 20 20 65 6e 64 20 65 6c 73 65 20 61 6c 61 72 6d 3a 3d 77 32 ┆ end else alarm:=w2┆
0x3c020…3c040 3a 3d 32 31 30 35 33 37 36 3b 20 20 21 20 22 20 20 20 22 20 21 0a 20 20 20 20 20 20 20 20 6f 70 ┆:=2105376; ! " " ! op┆
0x3c040…3c060 6d 65 73 73 28 2e 77 33 2e 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 6f 70 31 29 29 3b 0a 20 20 20 ┆mess(.w3.,w1:=address(op1)); ┆
0x3c060…3c07e 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 77 33 3a 3d 62 2e 74 65 6d 2b 32 36 3b 0a 20 20 ┆ end; w3:=b.tem+26; ┆
0x3c07e…3c084 (0x25c,0x782)
0x3c084…3c0a0 20 20 20 20 62 75 66 63 6c 61 69 6d 3a 3d 77 31 3a 3d 28 77 33 29 2e 62 79 74 65 3b ┆ bufclaim:=w1:=(w3).byte;┆
0x3c0a0…3c0c0 0a 20 20 20 20 20 20 77 33 2b 31 3b 0a 20 20 20 20 20 20 77 31 3a 3d 28 77 33 29 2e 62 79 74 65 ┆ w3+1; w1:=(w3).byte┆
0x3c0c0…3c0e0 3b 0a 20 20 20 20 20 20 6d 61 72 67 69 6e 3a 3d 77 31 2d 70 68 63 6f 75 6e 74 2d 32 3b 0a 20 20 ┆; margin:=w1-phcount-2; ┆
0x3c0e0…3c0fc 20 20 20 20 69 66 20 77 31 20 3c 3e 20 30 20 74 68 65 6e 0a 20 20 20 20 20 20 62 65 ┆ if w1 <> 0 then be┆
0x3c0fc…3c102 (0x25c,0x783)
0x3c102…3c120 67 69 6e 0a 20 20 20 20 20 20 20 20 73 74 64 76 61 6c 75 65 3a 3d 77 31 3a 3d 70 68 63 6f ┆gin stdvalue:=w1:=phco┆
0x3c120…3c140 75 6e 74 2b 32 3b 0a 20 20 20 20 20 20 20 20 6d 6f 76 65 28 2e 77 33 2e 2c 77 30 3a 3d 38 2c 77 ┆unt+2; move(.w3.,w0:=8,w┆
0x3c140…3c160 31 3a 3d 61 64 64 72 65 73 73 28 61 72 65 61 29 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 72 65 73 ┆1:=address(area),w2:=address(res┆
0x3c160…3c17a 6f 75 72 63 65 29 29 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 33 3a 3d 6d 61 ┆ource)); if w3:=ma┆
0x3c17a…3c180 (0x25c,0x784)
0x3c180…3c1a0 72 67 69 6e 20 3c 20 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 ┆rgin < 0 then begin ┆
0x3c1a0…3c1c0 20 20 20 20 20 20 61 6c 61 72 6d 3a 3d 77 32 3a 3d 32 37 36 33 33 30 36 3b 20 20 21 20 22 2a 2a ┆ alarm:=w2:=2763306; ! "**┆
0x3c1c0…3c1e0 2a 22 20 21 0a 20 20 20 20 20 20 20 20 20 20 73 74 6f 70 3a 3d 77 32 3b 0a 20 20 20 20 20 20 20 ┆*" ! stop:=w2; ┆
0x3c1e0…3c200 20 65 6e 64 20 65 6c 73 65 20 61 6c 61 72 6d 3a 3d 77 32 3a 3d 32 31 30 00 00 00 00 00 00 00 00 ┆ end else alarm:=w2:=210 ┆
0x3c200…3c206 (481,) (0x25c,0x785)
0x3c206…3c220 35 33 37 36 3b 20 20 21 20 22 20 20 20 22 20 21 0a 20 20 20 20 20 20 20 20 6f ┆5376; ! " " ! o┆
0x3c220…3c240 70 6d 65 73 73 28 2e 77 33 2e 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 6f 70 31 29 29 3b 0a 20 20 ┆pmess(.w3.,w1:=address(op1)); ┆
0x3c240…3c260 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 6d 61 72 67 69 6e 3a 3d 77 31 3a 3d 62 75 66 63 6c ┆ end; margin:=w1:=bufcl┆
0x3c260…3c27e 61 69 6d 2d 28 77 32 3a 3d 70 68 63 6f 75 6e 74 20 6c 73 68 69 66 74 20 31 20 2b 20 74 68 ┆aim-(w2:=phcount lshift 1 + th┆
0x3c27e…3c284 (0x25c,0x786)
0x3c284…3c2a0 63 6f 75 6e 74 2b 32 29 3b 0a 20 20 20 20 20 20 69 66 20 77 31 20 3c 3e 20 30 20 74 ┆count+2); if w1 <> 0 t┆
0x3c2a0…3c2c0 68 65 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 73 74 64 76 61 6c 75 65 ┆hen begin stdvalue┆
0x3c2c0…3c2e0 3a 3d 77 32 3b 0a 20 20 20 20 20 20 20 20 6d 6f 76 65 28 2e 77 33 2e 2c 77 30 3a 3d 38 2c 77 31 ┆:=w2; move(.w3.,w0:=8,w1┆
0x3c2e0…3c2fc 3a 3d 61 64 64 72 65 73 73 28 62 75 66 29 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 72 ┆:=address(buf),w2:=address(r┆
0x3c2fc…3c302 (0x25c,0x787)
0x3c302…3c320 65 73 6f 75 72 63 65 29 29 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 33 3a 3d 6d 61 72 67 ┆esource)); if w3:=marg┆
0x3c320…3c340 69 6e 20 3c 20 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 ┆in < 0 then begin ┆
0x3c340…3c360 20 20 20 20 61 6c 61 72 6d 3a 3d 77 32 3a 3d 32 37 36 33 33 30 36 3b 20 20 21 20 22 2a 2a 2a 22 ┆ alarm:=w2:=2763306; ! "***"┆
0x3c360…3c37a 20 21 0a 20 20 20 20 20 20 20 20 20 20 73 74 6f 70 3a 3d 77 32 3b 0a 20 20 20 ┆ ! stop:=w2; ┆
0x3c37a…3c380 (0x25c,0x788)
0x3c380…3c3a0 20 20 20 20 20 65 6e 64 20 65 6c 73 65 20 61 6c 61 72 6d 3a 3d 77 32 3a 3d 32 31 30 35 33 37 36 ┆ end else alarm:=w2:=2105376┆
0x3c3a0…3c3c0 3b 20 20 21 20 22 20 20 20 22 20 21 0a 20 20 20 20 20 20 20 20 6f 70 6d 65 73 73 28 2e 77 33 2e ┆; ! " " ! opmess(.w3.┆
0x3c3c0…3c3e0 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 6f 70 31 29 29 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 ┆,w1:=address(op1)); end; ┆
0x3c3e0…3c400 20 20 20 20 20 77 33 3a 3d 61 64 64 72 65 73 73 28 73 70 6f 6f 6c 61 72 00 00 00 00 00 00 00 00 ┆ w3:=address(spoolar ┆
0x3c400…3c406 (482,) (0x25c,0x789)
0x3c406…3c420 65 61 29 3b 0a 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 34 38 29 3b 20 20 21 ┆ea); monitor(48); !┆
0x3c420…3c440 20 72 65 6d 6f 76 65 20 65 6e 74 72 79 20 21 0a 20 20 20 20 20 20 77 32 3a 3d 74 68 73 70 6f 6f ┆ remove entry ! w2:=thspoo┆
0x3c440…3c460 6c 73 65 67 6d 2b 31 2a 74 68 63 6f 75 6e 74 3b 0a 20 20 20 20 20 20 77 31 3a 3d 70 68 73 70 6f ┆lsegm+1*thcount; w1:=phspo┆
0x3c460…3c47e 6f 6c 73 65 67 6d 2b 31 2a 70 68 63 6f 75 6e 74 3b 0a 20 20 20 20 20 20 77 32 2b 77 31 3b ┆olsegm+1*phcount; w2+w1;┆
0x3c47e…3c484 (0x25c,0x78a)
0x3c484…3c4a0 0a 20 20 20 20 20 20 28 74 61 69 6c 28 77 31 3a 3d 31 29 29 2e 77 6f 72 64 3a 3d 77 ┆ (tail(w1:=1)).word:=w┆
0x3c4a0…3c4c0 32 3b 0a 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 34 30 29 3b 20 20 21 20 63 72 65 61 74 65 20 ┆2; monitor(40); ! create ┆
0x3c4c0…3c4e0 73 70 6f 6f 6c 20 61 72 65 61 20 21 0a 20 20 20 20 20 20 77 31 3a 3d 33 3b 0a 20 20 20 20 20 20 ┆spool area ! w1:=3; ┆
0x3c4e0…3c4fc 6d 6f 6e 69 74 6f 72 28 35 30 29 3b 20 20 21 20 70 65 72 6d 61 6e 65 6e 74 20 65 6e ┆monitor(50); ! permanent en┆
0x3c4fc…3c502 (0x25c,0x78b)
0x3c502…3c520 74 72 79 20 21 0a 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 35 32 29 3b 20 20 21 20 63 72 ┆try ! monitor(52); ! cr┆
0x3c520…3c540 65 61 74 65 20 61 72 65 61 20 70 72 6f 63 65 73 73 20 21 0a 20 20 20 20 20 20 6d 6f 6e 69 74 6f ┆eate area process ! monito┆
0x3c540…3c560 72 28 38 29 3b 20 20 20 21 20 72 65 73 65 72 76 65 20 61 72 65 61 20 70 72 6f 63 65 73 73 20 21 ┆r(8); ! reserve area process !┆
0x3c560…3c57a 0a 20 20 20 20 20 20 69 66 20 77 30 20 3c 3e 20 30 20 74 68 65 6e 0a 20 20 20 ┆ if w0 <> 0 then ┆
0x3c57a…3c580 (0x25c,0x78c)
0x3c580…3c5a0 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 73 74 64 76 61 6c 75 65 3a 3d 77 32 3b 0a 20 ┆ begin stdvalue:=w2; ┆
0x3c5a0…3c5c0 20 20 20 20 20 20 20 6d 6f 76 65 28 2e 77 33 2e 2c 77 30 3a 3d 38 2c 77 31 3a 3d 61 64 64 72 65 ┆ move(.w3.,w0:=8,w1:=addre┆
0x3c5c0…3c5e0 73 73 28 73 70 6f 6f 6c 61 72 65 61 29 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 72 65 73 6f 75 72 ┆ss(spoolarea),w2:=address(resour┆
0x3c5e0…3c600 63 65 29 29 3b 0a 20 20 20 20 20 20 20 20 61 6c 61 72 6d 3a 3d 77 32 3a 00 00 00 00 00 00 00 00 ┆ce)); alarm:=w2: ┆
0x3c600…3c606 (483,) (0x25c,0x78d)
0x3c606…3c620 3d 32 37 36 33 33 30 36 3b 0a 20 20 20 20 20 20 20 20 73 74 6f 70 3a 3d 77 32 ┆=2763306; stop:=w2┆
0x3c620…3c640 3b 0a 20 20 20 20 20 20 20 20 6f 70 6d 65 73 73 28 2e 77 33 2e 2c 77 31 3a 3d 61 64 64 72 65 73 ┆; opmess(.w3.,w1:=addres┆
0x3c640…3c660 73 28 6f 70 31 29 29 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 77 33 3a 3d 61 64 ┆s(op1)); end; w3:=ad┆
0x3c660…3c67e 64 72 65 73 73 28 74 65 73 74 61 72 65 61 29 3b 0a 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 ┆dress(testarea); monitor┆
0x3c67e…3c684 (0x25c,0x78e)
0x3c684…3c6a0 28 34 38 29 3b 20 20 21 20 72 65 6d 6f 76 65 20 65 6e 74 72 79 20 21 0a 20 20 20 20 ┆(48); ! remove entry ! ┆
0x3c6a0…3c6c0 20 20 28 74 61 69 6c 28 77 31 3a 3d 31 29 29 2e 77 6f 72 64 3a 3d 77 32 3a 3d 74 65 73 74 73 65 ┆ (tail(w1:=1)).word:=w2:=testse┆
0x3c6c0…3c6e0 67 6d 6e 74 73 3b 0a 20 20 20 20 20 20 62 2e 6d 61 78 74 65 73 74 73 65 67 6d 3a 3d 77 32 3b 0a ┆gmnts; b.maxtestsegm:=w2; ┆
0x3c6e0…3c6fc 20 20 20 20 20 20 69 66 20 77 32 20 3e 20 30 20 74 68 65 6e 0a 20 20 20 20 20 20 62 ┆ if w2 > 0 then b┆
0x3c6fc…3c702 (0x25c,0x78f)
0x3c702…3c720 65 67 69 6e 0a 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 34 30 29 3b 20 20 21 20 63 ┆egin monitor(40); ! c┆
0x3c720…3c740 72 65 61 74 65 20 74 65 73 74 6f 75 74 70 75 74 20 61 72 65 61 20 21 0a 20 20 20 20 20 20 20 20 ┆reate testoutput area ! ┆
0x3c740…3c760 77 31 3a 3d 33 3b 0a 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 35 30 29 3b 20 20 21 20 70 ┆w1:=3; monitor(50); ! p┆
0x3c760…3c77a 65 72 6d 61 6e 65 6e 74 20 65 6e 74 72 79 20 21 0a 20 20 20 20 20 20 20 20 6d ┆ermanent entry ! m┆
0x3c77a…3c780 (0x25c,0x790)
0x3c780…3c7a0 6f 6e 69 74 6f 72 28 35 32 29 3b 20 20 21 20 63 72 65 61 74 65 20 61 72 65 61 20 70 72 6f 63 65 ┆onitor(52); ! create area proce┆
0x3c7a0…3c7c0 73 73 20 21 0a 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 38 29 3b 20 20 20 21 20 72 65 73 ┆ss ! monitor(8); ! res┆
0x3c7c0…3c7e0 65 72 76 65 20 61 72 65 61 20 70 72 6f 63 65 73 73 20 21 0a 20 20 20 20 20 20 20 20 69 66 20 77 ┆erve area process ! if w┆
0x3c7e0…3c800 30 20 3c 3e 20 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 62 65 67 69 00 00 00 00 00 00 00 00 ┆0 <> 0 then begi ┆
0x3c800…3c806 (484,) (0x25c,0x791)
0x3c806…3c820 6e 0a 20 20 20 20 20 20 20 20 20 20 73 74 64 76 61 6c 75 65 3a 3d 77 32 3b 0a ┆n stdvalue:=w2; ┆
0x3c820…3c840 20 20 20 20 20 20 20 20 20 20 6d 6f 76 65 28 2e 77 33 2e 2c 77 30 3a 3d 38 2c 77 31 3a 3d 61 64 ┆ move(.w3.,w0:=8,w1:=ad┆
0x3c840…3c860 64 72 65 73 73 28 74 65 73 74 61 72 65 61 29 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 72 65 73 6f ┆dress(testarea),w2:=address(reso┆
0x3c860…3c87e 75 72 63 65 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 61 6c 61 72 6d 3a 3d 77 32 3a 3d 32 ┆urce)); alarm:=w2:=2┆
0x3c87e…3c884 (0x25c,0x792)
0x3c884…3c8a0 37 36 33 33 30 36 3b 0a 20 20 20 20 20 20 20 20 20 20 73 74 6f 70 3a 3d 77 32 3b 0a ┆763306; stop:=w2; ┆
0x3c8a0…3c8c0 20 20 20 20 20 20 20 20 20 20 6f 70 6d 65 73 73 28 2e 77 33 2e 2c 77 31 3a 3d 61 64 64 72 65 73 ┆ opmess(.w3.,w1:=addres┆
0x3c8c0…3c8e0 73 28 6f 70 31 29 29 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 65 6e 64 3b ┆s(op1)); end; end;┆
0x3c8e0…3c8fc 0a 20 20 20 20 20 20 69 66 20 77 30 3a 3d 73 74 6f 70 20 3c 3e 20 30 20 74 68 65 6e ┆ if w0:=stop <> 0 then┆
0x3c8fc…3c902 (0x25c,0x793)
0x3c902…3c920 0a 20 20 20 20 20 20 62 65 67 69 6e 20 21 20 74 68 65 20 72 65 73 6f 75 72 63 65 73 20 61 ┆ begin ! the resources a┆
0x3c920…3c940 72 65 20 6e 6f 74 20 61 76 61 69 6c 61 62 6c 65 20 66 6f 72 20 73 74 61 72 74 20 75 70 20 21 0a ┆re not available for start up ! ┆
0x3c940…3c960 20 20 20 20 20 20 20 20 6d 6f 64 65 31 3a 3d 77 30 3a 3d 31 3b 0a 20 20 20 20 20 20 20 20 6f 70 ┆ mode1:=w0:=1; op┆
0x3c960…3c97a 31 3a 3d 77 30 3a 3d 32 3b 0a 20 20 20 20 20 20 20 20 6d 6f 76 65 28 2e 77 33 ┆1:=w0:=2; move(.w3┆
0x3c97a…3c980 (0x25c,0x794)
0x3c980…3c9a0 2e 2c 77 30 3a 3d 31 34 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 69 6e 69 74 74 72 29 2c 77 32 3a ┆.,w0:=14,w1:=address(inittr),w2:┆
0x3c9a0…3c9c0 3d 61 64 64 72 65 73 73 28 61 6c 61 72 6d 29 29 3b 0a 20 20 20 20 20 20 20 20 6f 70 6d 65 73 73 ┆=address(alarm)); opmess┆
0x3c9c0…3c9e0 28 2e 77 33 2e 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 6f 70 31 29 29 3b 0a 20 20 20 20 20 20 65 ┆(.w3.,w1:=address(op1)); e┆
0x3c9e0…3ca00 6e 64 3b 0a 20 20 20 20 20 20 6f 70 6d 65 73 73 28 2e 77 33 2e 2c 77 31 00 00 00 00 00 00 00 00 ┆nd; opmess(.w3.,w1 ┆
0x3ca00…3ca06 (485,) (0x25c,0x795)
0x3ca06…3ca20 3a 3d 61 64 64 72 65 73 73 28 6f 70 32 29 29 3b 0a 20 20 20 20 20 20 77 31 3a ┆:=address(op2)); w1:┆
0x3ca20…3ca40 3d 31 30 38 3b 0a 20 20 20 20 20 20 62 2e 73 74 61 72 74 74 69 6d 65 3a 3d 66 31 3a 3d 28 77 31 ┆=108; b.starttime:=f1:=(w1┆
0x3ca40…3ca60 29 2e 64 6f 75 62 6c 65 3b 0a 0a 20 20 20 20 20 20 67 6f 74 6f 20 69 6e 69 74 62 75 66 73 3b 0a ┆).double; goto initbufs; ┆
0x3ca60…3ca7e 0a 20 20 20 20 65 6e 64 3b 0a 20 20 65 6e 64 3b 20 20 21 20 69 6e 69 74 20 21 0a 0a 65 6e ┆ end; end; ! init ! en┆
0x3ca7e…3ca84 (0x25c,0x796)
0x3ca84…3caa0 64 2e 0a 19 00 00 6f 6e 69 74 6f 72 28 35 30 29 3b 20 20 21 20 70 65 72 6d 61 6e 65 ┆d. onitor(50); ! permane┆
0x3caa0…3cac0 6e 74 20 65 6e 74 72 79 20 21 0a 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 35 32 29 3b 20 ┆nt entry ! monitor(52); ┆
0x3cac0…3cae0 20 21 20 63 72 65 61 74 65 20 61 72 65 61 20 70 72 6f 63 65 73 73 20 21 0a 20 20 20 20 20 20 20 ┆ ! create area process ! ┆
0x3cae0…3cafc 20 6d 6f 6e 69 74 6f 72 28 38 29 3b 20 20 20 21 20 72 65 73 65 72 76 65 20 61 72 65 ┆ monitor(8); ! reserve are┆
0x3cafc…3cb02 (0x25c,0x797)
0x3cb02…3cb20 61 20 70 72 6f 63 65 73 73 20 21 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 20 3c 3e 20 30 ┆a process ! if w0 <> 0┆
0x3cb20…3cb40 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 73 74 ┆ then begin st┆
0x3cb40…3cb60 64 76 61 6c 75 65 3a 3d 77 32 3b 0a 20 20 20 20 20 20 20 20 20 20 6d 6f 76 65 28 2e 77 33 2e 2c ┆dvalue:=w2; move(.w3.,┆
0x3cb60…3cb7a 77 30 3a 3d 38 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 74 65 73 74 61 72 65 61 ┆w0:=8,w1:=address(testarea┆
0x3cb7a…3cb80 (0x25c,0x798)
0x3cb80…3cba0 29 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 72 65 73 6f 75 72 63 65 29 29 3b 0a 20 20 20 20 20 20 ┆),w2:=address(resource)); ┆
0x3cba0…3cbc0 20 20 20 20 61 6c 61 72 6d 3a 3d 77 32 3a 3d 32 37 36 33 33 30 36 3b 0a 20 20 20 20 20 20 20 20 ┆ alarm:=w2:=2763306; ┆
0x3cbc0…3cbe0 20 20 73 74 6f 70 3a 3d 77 32 3b 0a 20 20 20 20 20 20 20 20 20 20 6f 70 6d 65 73 73 28 2e 77 33 ┆ stop:=w2; opmess(.w3┆
0x3cbe0…3cc00 2e 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 6f 70 31 29 29 3b 0a 20 20 20 00 00 00 00 00 00 00 00 ┆.,w1:=address(op1)); ┆
0x3cc00…3cc06 (486,) (0x25c,0x799)
0x3cc06…3cc20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 ┆ end; end; ┆
0x3cc20…3cc40 20 69 66 20 77 30 3a 3d 73 74 6f 70 20 3c 3e 20 30 20 74 68 65 6e 0a 20 20 20 20 20 20 62 65 67 ┆ if w0:=stop <> 0 then beg┆
0x3cc40…3cc60 69 6e 20 21 20 74 68 65 20 72 65 73 6f 75 72 63 65 73 20 61 72 65 20 6e 6f 74 20 61 76 61 69 6c ┆in ! the resources are not avail┆
0x3cc60…3cc7e 61 62 6c 65 20 66 6f 72 20 73 74 61 72 74 20 75 70 20 21 0a 20 20 20 20 20 20 20 20 6d 6f ┆able for start up ! mo┆
0x3cc7e…3cc84 (0x25c,0x79a)
0x3cc84…3cca0 64 65 31 3a 3d 77 30 3a 3d 31 3b 0a 20 20 20 20 20 20 20 20 6f 70 31 3a 3d 77 30 3a ┆de1:=w0:=1; op1:=w0:┆
0x3cca0…3ccc0 3d 32 3b 0a 20 20 20 20 20 20 20 20 6d 6f 76 65 28 2e 77 33 2e 2c 77 30 3a 3d 31 34 2c 77 31 3a ┆=2; move(.w3.,w0:=14,w1:┆
0x3ccc0…3cce0 3d 61 64 64 72 65 73 73 28 69 6e 69 74 74 72 29 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 61 6c 61 ┆=address(inittr),w2:=address(ala┆
0x3cce0…3ccfc 72 6d 29 29 3b 0a 20 20 20 20 20 20 20 20 6f 70 6d 65 73 73 28 2e 77 33 2e 2c 77 31 ┆rm)); opmess(.w3.,w1┆
0x3ccfc…3cd02 (0x25c,0x79b)
0x3cd02…3cd20 3a 3d 61 64 64 72 65 73 73 28 6f 70 31 29 29 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 ┆:=address(op1)); end; ┆
0x3cd20…3cd40 20 20 20 20 6f 70 6d 65 73 73 28 2e 77 33 2e 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 6f 70 32 29 ┆ opmess(.w3.,w1:=address(op2)┆
0x3cd40…3cd60 29 3b 0a 20 20 20 20 20 20 77 31 3a 3d 31 30 38 3b 0a 20 20 20 20 20 20 62 2e 73 74 61 72 74 74 ┆); w1:=108; b.startt┆
0x3cd60…3cd7a 69 6d 65 3a 3d 66 31 3a 3d 28 77 31 29 2e 64 6f 75 62 6c 65 3b 0a 0a 20 20 20 ┆ime:=f1:=(w1).double; ┆
0x3cd7a…3cd80 (0x25c,0x79c)
0x3cd80…3cda0 20 20 20 67 6f 74 6f 20 69 6e 69 74 62 75 66 73 3b 0a 0a 20 20 20 20 65 6e 64 3b 0a 20 20 65 6e ┆ goto initbufs; end; en┆
0x3cda0…3cdc0 64 3b 20 20 21 20 69 6e 69 74 20 21 0a 0a 65 6e 3b 0a 20 20 20 20 20 20 20 20 6f 70 6d 65 73 73 ┆d; ! init ! en; opmess┆
0x3cdc0…3cde0 28 2e 77 33 2e 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 6f 70 31 29 29 3b 0a 20 20 20 20 20 20 65 ┆(.w3.,w1:=address(op1)); e┆
0x3cde0…3ce00 6e 64 3b 0a 20 20 20 20 20 20 6f 70 6d 65 73 73 28 2e 77 33 2e 2c 77 31 00 00 00 00 00 00 00 00 ┆nd; opmess(.w3.,w1 ┆
0x3ce00…3ce06 (487,) (0x2c0,0x79d)
0x3ce06…3ce20 0a 3b 20 20 74 65 6d 20 74 65 73 74 20 61 6e 64 20 64 65 6d 6f 20 70 72 6f 67 ┆ ; tem test and demo prog┆
0x3ce20…3ce40 72 61 6d 6d 65 73 0a 0a 28 20 74 65 6d 70 72 6f 63 3d 65 64 69 74 0a 20 20 61 64 70 70 72 6f 63 ┆rammes ( temproc=edit adpproc┆
0x3ce40…3ce60 3d 65 64 69 74 0a 20 20 74 74 65 6d 74 65 73 74 31 3d 65 64 69 74 0a 20 20 74 74 65 6d 74 65 73 ┆=edit ttemtest1=edit ttemtes┆
0x3ce60…3ce7e 74 32 3d 65 64 69 74 0a 20 20 74 74 65 6d 74 65 73 74 33 3d 65 64 69 74 0a 20 20 65 6e 64 ┆t2=edit ttemtest3=edit end┆
0x3ce7e…3ce84 (0x2c0,0x79e)
0x3ce84…3cea0 29 0a 0a 69 27 0a 0c 0a 0a 0a 0a 0a 20 20 69 6e 74 65 67 65 72 20 70 72 6f 63 65 64 ┆) i' integer proced┆
0x3cea0…3cec0 75 72 65 20 63 72 65 61 74 65 70 6f 6f 6c 28 7a 29 3b 0a 20 20 7a 6f 6e 65 20 7a 3b 0a 20 20 62 ┆ure createpool(z); zone z; b┆
0x3cec0…3cee0 65 67 69 6e 0a 20 20 20 20 69 6e 74 65 67 65 72 20 69 3b 0a 20 20 20 20 69 6e 74 65 67 65 72 20 ┆egin integer i; integer ┆
0x3cee0…3cefc 61 72 72 61 79 20 7a 69 61 28 31 3a 32 30 29 2c 73 69 61 28 31 3a 31 32 29 3b 0a 20 ┆array zia(1:20),sia(1:12); ┆
0x3cefc…3cf02 (0x2c0,0x79f)
0x3cf02…3cf20 20 20 20 7a 6f 6e 65 20 7a 74 65 6d 28 31 2c 31 2c 73 74 64 65 72 72 6f 72 29 3b 0a 20 20 ┆ zone ztem(1,1,stderror); ┆
0x3cf20…3cf40 20 20 6f 70 65 6e 28 7a 74 65 6d 2c 30 2c 3c 3a 74 65 6d 3a 3e 2c 30 29 3b 0a 20 20 20 20 67 65 ┆ open(ztem,0,<:tem:>,0); ge┆
0x3cf40…3cf60 74 7a 6f 6e 65 36 28 7a 2c 7a 69 61 29 3b 0a 20 20 20 20 67 65 74 73 68 61 72 65 36 28 7a 74 65 ┆tzone6(z,zia); getshare6(zte┆
0x3cf60…3cf7a 6d 2c 73 69 61 2c 31 29 3b 0a 20 20 20 20 73 69 61 28 34 29 3a 3d 39 30 20 73 ┆m,sia,1); sia(4):=90 s┆
0x3cf7a…3cf80 (0x2c0,0x7a0)
0x3cf80…3cfa0 68 69 66 74 20 31 32 3b 0a 20 20 20 20 66 6f 72 20 69 3a 3d 30 20 73 74 65 70 20 31 20 75 6e 74 ┆hift 12; for i:=0 step 1 unt┆
0x3cfa0…3cfc0 69 6c 20 33 20 64 6f 20 73 69 61 28 38 2b 69 29 3a 3d 7a 69 61 28 32 2b 69 29 3b 0a 20 20 20 20 ┆il 3 do sia(8+i):=zia(2+i); ┆
0x3cfc0…3cfe0 73 65 74 73 68 61 72 65 36 28 7a 74 65 6d 2c 73 69 61 2c 31 29 3b 0a 20 20 20 20 6d 6f 6e 69 74 ┆setshare6(ztem,sia,1); monit┆
0x3cfe0…3d000 6f 72 28 31 36 2c 7a 74 65 6d 2c 31 2c 73 69 61 29 3b 0a 20 20 20 20 63 00 00 00 00 00 00 00 00 ┆or(16,ztem,1,sia); c ┆
0x3d000…3d006 (488,) (0x2c0,0x7a1)
0x3d006…3d020 72 65 61 74 65 70 6f 6f 6c 3a 3d 69 66 20 6d 6f 6e 69 74 6f 72 28 31 38 2c 7a ┆reatepool:=if monitor(18,z┆
0x3d020…3d040 74 65 6d 2c 31 2c 73 69 61 29 20 3c 3e 20 31 20 74 68 65 6e 20 2d 31 20 65 6c 73 65 20 73 69 61 ┆tem,1,sia) <> 1 then -1 else sia┆
0x3d040…3d060 28 31 29 3b 0a 20 20 20 20 63 6c 6f 73 65 28 7a 74 65 6d 2c 74 72 75 65 29 3b 0a 20 20 65 6e 64 ┆(1); close(ztem,true); end┆
0x3d060…3d07e 20 63 72 65 61 74 65 70 6f 6f 6c 3b 0a 0a 0a 0a 20 20 69 6e 74 65 67 65 72 20 70 72 6f 63 ┆ createpool; integer proc┆
0x3d07e…3d084 (0x2c0,0x7a2)
0x3d084…3d0a0 65 64 75 72 65 20 72 65 6d 6f 76 65 70 6f 6f 6c 28 7a 29 3b 0a 20 20 7a 6f 6e 65 20 ┆edure removepool(z); zone ┆
0x3d0a0…3d0c0 7a 3b 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 69 6e 74 65 67 65 72 20 69 3b 0a 20 20 20 20 69 6e ┆z; begin integer i; in┆
0x3d0c0…3d0e0 74 65 67 65 72 20 61 72 72 61 79 20 7a 69 61 28 31 3a 32 30 29 2c 73 69 61 28 31 3a 31 32 29 3b ┆teger array zia(1:20),sia(1:12);┆
0x3d0e0…3d0fc 0a 20 20 20 20 7a 6f 6e 65 20 7a 74 65 6d 28 31 2c 31 2c 73 74 64 65 72 72 6f 72 29 ┆ zone ztem(1,1,stderror)┆
0x3d0fc…3d102 (0x2c0,0x7a3)
0x3d102…3d120 3b 0a 20 20 20 20 6f 70 65 6e 28 7a 74 65 6d 2c 30 2c 3c 3a 74 65 6d 3a 3e 2c 30 29 3b 0a ┆; open(ztem,0,<:tem:>,0); ┆
0x3d120…3d140 20 20 20 20 67 65 74 7a 6f 6e 65 36 28 7a 2c 7a 69 61 29 3b 0a 20 20 20 20 67 65 74 73 68 61 72 ┆ getzone6(z,zia); getshar┆
0x3d140…3d160 65 36 28 7a 74 65 6d 2c 73 69 61 2c 31 29 3b 0a 20 20 20 20 73 69 61 28 34 29 3a 3d 39 32 20 73 ┆e6(ztem,sia,1); sia(4):=92 s┆
0x3d160…3d17a 68 69 66 74 20 31 32 3b 0a 20 20 20 20 66 6f 72 20 69 3a 3d 30 20 73 74 65 70 ┆hift 12; for i:=0 step┆
0x3d17a…3d180 (0x2c0,0x7a4)
0x3d180…3d1a0 20 31 20 75 6e 74 69 6c 20 33 20 64 6f 20 73 69 61 28 38 2b 69 29 3a 3d 7a 69 61 28 32 2b 69 29 ┆ 1 until 3 do sia(8+i):=zia(2+i)┆
0x3d1a0…3d1c0 3b 0a 20 20 20 20 73 65 74 73 68 61 72 65 36 28 7a 74 65 6d 2c 73 69 61 2c 31 29 3b 0a 20 20 20 ┆; setshare6(ztem,sia,1); ┆
0x3d1c0…3d1e0 20 6d 6f 6e 69 74 6f 72 28 31 36 2c 7a 74 65 6d 2c 31 2c 73 69 61 29 3b 0a 20 20 20 20 72 65 6d ┆ monitor(16,ztem,1,sia); rem┆
0x3d1e0…3d200 6f 76 65 70 6f 6f 6c 3a 3d 69 66 20 6d 6f 6e 69 74 6f 72 28 31 38 2c 7a 00 00 00 00 00 00 00 00 ┆ovepool:=if monitor(18,z ┆
0x3d200…3d206 (489,) (0x2c0,0x7a5)
0x3d206…3d220 74 65 6d 2c 31 2c 73 69 61 29 20 3c 3e 20 31 20 74 68 65 6e 20 2d 31 20 65 6c ┆tem,1,sia) <> 1 then -1 el┆
0x3d220…3d240 73 65 20 73 69 61 28 31 29 3b 0a 20 20 20 20 63 6c 6f 73 65 28 7a 74 65 6d 2c 74 72 75 65 29 3b ┆se sia(1); close(ztem,true);┆
0x3d240…3d260 0a 20 20 65 6e 64 20 72 65 6d 6f 76 65 70 6f 6f 6c 3b 0a 0a 0a 0a 20 20 69 6e 74 65 67 65 72 20 ┆ end removepool; integer ┆
0x3d260…3d27e 70 72 6f 63 65 64 75 72 65 20 63 72 65 61 74 65 6c 69 6e 6b 28 7a 2c 74 79 70 65 2c 69 64 ┆procedure createlink(z,type,id┆
0x3d27e…3d284 (0x2c0,0x7a6)
0x3d284…3d2a0 2c 70 72 6f 63 72 65 66 2c 62 75 66 73 2c 74 69 6d 65 72 73 2c 0a 20 20 20 20 20 20 ┆,procref,bufs,timers, ┆
0x3d2a0…3d2c0 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 6d 61 73 6b 2c 73 75 ┆ mask,su┆
0x3d2c0…3d2e0 62 73 74 29 3b 0a 20 20 7a 6f 6e 65 20 7a 3b 0a 20 20 69 6e 74 65 67 65 72 20 74 79 70 65 2c 69 ┆bst); zone z; integer type,i┆
0x3d2e0…3d2fc 64 2c 70 72 6f 63 72 65 66 2c 62 75 66 73 2c 74 69 6d 65 72 73 2c 6d 61 73 6b 2c 73 ┆d,procref,bufs,timers,mask,s┆
0x3d2fc…3d302 (0x2c0,0x7a7)
0x3d302…3d320 75 62 73 74 3b 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 69 6e 74 65 67 65 72 20 69 3b 0a 20 ┆ubst; begin integer i; ┆
0x3d320…3d340 20 20 20 69 6e 74 65 67 65 72 20 61 72 72 61 79 20 7a 69 61 28 31 3a 32 30 29 2c 73 69 61 28 31 ┆ integer array zia(1:20),sia(1┆
0x3d340…3d360 3a 31 32 29 3b 0a 20 20 20 20 6c 6f 6e 67 20 61 72 72 61 79 20 61 72 72 28 31 3a 32 29 3b 0a 20 ┆:12); long array arr(1:2); ┆
0x3d360…3d37a 20 20 20 7a 6f 6e 65 20 7a 74 65 6d 28 31 2c 31 2c 73 74 64 65 72 72 6f 72 29 ┆ zone ztem(1,1,stderror)┆
0x3d37a…3d380 (0x2c0,0x7a8)
0x3d380…3d3a0 3b 0a 20 20 20 20 67 65 74 7a 6f 6e 65 28 7a 2c 7a 69 61 29 3b 0a 20 20 20 20 61 72 72 28 31 29 ┆; getzone(z,zia); arr(1)┆
0x3d3a0…3d3c0 3a 3d 7a 69 61 28 32 29 3b 20 61 72 72 28 31 29 3a 3d 61 72 72 28 31 29 20 73 68 69 66 74 20 32 ┆:=zia(2); arr(1):=arr(1) shift 2┆
0x3d3c0…3d3e0 34 20 61 64 64 20 7a 69 61 28 33 29 3b 0a 20 20 20 20 61 72 72 28 32 29 3a 3d 7a 69 61 28 34 29 ┆4 add zia(3); arr(2):=zia(4)┆
0x3d3e0…3d400 3b 20 61 72 72 28 32 29 3a 3d 61 72 72 28 32 29 20 73 68 69 66 74 20 32 00 00 00 00 00 00 00 00 ┆; arr(2):=arr(2) shift 2 ┆
0x3d400…3d406 (490,) (0x2c0,0x7a9)
0x3d406…3d420 34 20 61 64 64 20 7a 69 61 28 35 29 3b 0a 20 20 20 20 69 3a 3d 31 3b 0a 20 20 ┆4 add zia(5); i:=1; ┆
0x3d420…3d440 20 20 6f 70 65 6e 28 7a 74 65 6d 2c 30 2c 73 74 72 69 6e 67 20 61 72 72 28 69 6e 63 72 65 61 73 ┆ open(ztem,0,string arr(increas┆
0x3d440…3d460 65 28 69 29 29 2c 30 29 3b 0a 20 20 20 20 67 65 74 73 68 61 72 65 36 28 7a 74 65 6d 2c 73 69 61 ┆e(i)),0); getshare6(ztem,sia┆
0x3d460…3d47e 2c 31 29 3b 0a 20 20 20 20 73 69 61 28 34 29 3a 3d 31 30 30 20 73 68 69 66 74 20 31 32 20 ┆,1); sia(4):=100 shift 12 ┆
0x3d47e…3d484 (0x2c0,0x7aa)
0x3d484…3d4a0 61 64 64 20 74 79 70 65 3b 0a 20 20 20 20 73 69 61 28 35 29 3a 3d 69 64 3b 0a 20 20 ┆add type; sia(5):=id; ┆
0x3d4a0…3d4c0 20 20 73 69 61 28 36 29 3a 3d 70 72 6f 63 72 65 66 3b 0a 20 20 20 20 73 69 61 28 37 29 3a 3d 62 ┆ sia(6):=procref; sia(7):=b┆
0x3d4c0…3d4e0 75 66 73 20 73 68 69 66 74 20 31 32 20 61 64 64 20 74 69 6d 65 72 73 3b 0a 20 20 20 20 73 69 61 ┆ufs shift 12 add timers; sia┆
0x3d4e0…3d4fc 28 38 29 3a 3d 20 6d 61 73 6b 20 73 68 69 66 74 20 31 32 20 61 64 64 20 73 75 62 73 ┆(8):= mask shift 12 add subs┆
0x3d4fc…3d502 (0x2c0,0x7ab)
0x3d502…3d520 74 3b 0a 20 20 20 20 73 65 74 73 68 61 72 65 36 28 7a 74 65 6d 2c 73 69 61 2c 31 29 3b 0a ┆t; setshare6(ztem,sia,1); ┆
0x3d520…3d540 20 20 20 20 6d 6f 6e 69 74 6f 72 28 31 36 2c 7a 74 65 6d 2c 31 2c 73 69 61 29 3b 0a 20 20 20 20 ┆ monitor(16,ztem,1,sia); ┆
0x3d540…3d560 63 72 65 61 74 65 6c 69 6e 6b 3a 3d 69 66 20 6d 6f 6e 69 74 6f 72 28 31 38 2c 7a 74 65 6d 2c 31 ┆createlink:=if monitor(18,ztem,1┆
0x3d560…3d57a 2c 73 69 61 29 20 3c 3e 20 31 20 74 68 65 6e 20 2d 31 20 65 6c 73 65 20 73 69 ┆,sia) <> 1 then -1 else si┆
0x3d57a…3d580 (0x2c0,0x7ac)
0x3d580…3d5a0 61 28 31 29 3b 0a 20 20 20 20 63 6c 6f 73 65 28 7a 74 65 6d 2c 74 72 75 65 29 3b 0a 20 20 65 6e ┆a(1); close(ztem,true); en┆
0x3d5a0…3d5c0 64 20 63 72 65 61 74 65 6c 69 6e 6b 3b 0a 0a 0a 0a 20 20 69 6e 74 65 67 65 72 20 70 72 6f 63 65 ┆d createlink; integer proce┆
0x3d5c0…3d5e0 64 75 72 65 20 72 65 6d 6f 76 65 6c 69 6e 6b 28 7a 2c 69 64 2c 69 6d 6d 65 64 69 61 74 65 29 3b ┆dure removelink(z,id,immediate);┆
0x3d5e0…3d600 0a 20 20 7a 6f 6e 65 20 7a 3b 0a 20 20 69 6e 74 65 67 65 72 20 69 64 3b 00 00 00 00 00 00 00 00 ┆ zone z; integer id; ┆
0x3d600…3d606 (491,) (0x2c0,0x7ad)
0x3d606…3d620 0a 20 20 62 6f 6f 6c 65 61 6e 20 69 6d 6d 65 64 69 61 74 65 3b 0a 20 20 62 65 ┆ boolean immediate; be┆
0x3d620…3d640 67 69 6e 0a 20 20 20 20 69 6e 74 65 67 65 72 20 69 3b 0a 20 20 20 20 69 6e 74 65 67 65 72 20 61 ┆gin integer i; integer a┆
0x3d640…3d660 72 72 61 79 20 7a 69 61 28 31 3a 32 30 29 2c 73 69 61 28 31 3a 31 32 29 3b 0a 20 20 20 20 6c 6f ┆rray zia(1:20),sia(1:12); lo┆
0x3d660…3d67e 6e 67 20 61 72 72 61 79 20 61 72 72 28 31 3a 32 29 3b 0a 20 20 20 20 7a 6f 6e 65 20 7a 74 ┆ng array arr(1:2); zone zt┆
0x3d67e…3d684 (0x2c0,0x7ae)
0x3d684…3d6a0 65 6d 28 31 2c 31 2c 73 74 64 65 72 72 6f 72 29 3b 0a 20 20 20 20 67 65 74 7a 6f 6e ┆em(1,1,stderror); getzon┆
0x3d6a0…3d6c0 65 36 28 7a 2c 7a 69 61 29 3b 0a 20 20 20 20 61 72 72 28 31 29 3a 3d 7a 69 61 28 32 29 3b 20 61 ┆e6(z,zia); arr(1):=zia(2); a┆
0x3d6c0…3d6e0 72 72 28 31 29 3a 3d 61 72 72 28 31 29 20 73 68 69 66 74 20 32 34 20 61 64 64 20 7a 69 61 28 33 ┆rr(1):=arr(1) shift 24 add zia(3┆
0x3d6e0…3d6fc 29 3b 0a 20 20 20 20 61 72 72 28 32 29 3a 3d 7a 69 61 28 34 29 3b 20 61 72 72 28 32 ┆); arr(2):=zia(4); arr(2┆
0x3d6fc…3d702 (0x2c0,0x7af)
0x3d702…3d720 29 3a 3d 61 72 72 28 32 29 20 73 68 69 66 74 20 32 34 20 61 64 64 20 7a 69 61 28 35 29 3b ┆):=arr(2) shift 24 add zia(5);┆
0x3d720…3d740 0a 20 20 20 20 69 3a 3d 31 3b 0a 20 20 20 20 6f 70 65 6e 28 7a 74 65 6d 2c 30 2c 73 74 72 69 6e ┆ i:=1; open(ztem,0,strin┆
0x3d740…3d760 67 20 61 72 72 28 69 6e 63 72 65 61 73 65 28 69 29 29 2c 30 29 3b 0a 20 20 20 20 67 65 74 73 68 ┆g arr(increase(i)),0); getsh┆
0x3d760…3d77a 61 72 65 36 28 7a 74 65 6d 2c 73 69 61 2c 31 29 3b 0a 20 20 20 20 73 69 61 28 ┆are6(ztem,sia,1); sia(┆
0x3d77a…3d780 (0x2c0,0x7b0)
0x3d780…3d7a0 34 29 3a 3d 31 30 32 20 73 68 69 66 74 20 31 32 20 2b 28 69 66 20 69 6d 6d 65 64 69 61 74 65 20 ┆4):=102 shift 12 +(if immediate ┆
0x3d7a0…3d7c0 74 68 65 6e 20 31 20 65 6c 73 65 20 30 29 3b 0a 20 20 20 20 73 69 61 28 35 29 3a 3d 69 64 3b 0a ┆then 1 else 0); sia(5):=id; ┆
0x3d7c0…3d7e0 20 20 20 20 73 65 74 73 68 61 72 65 36 28 7a 74 65 6d 2c 73 69 61 2c 31 29 3b 0a 20 20 20 20 6d ┆ setshare6(ztem,sia,1); m┆
0x3d7e0…3d800 6f 6e 69 74 6f 72 28 31 36 2c 7a 74 65 6d 2c 31 2c 73 69 61 29 3b 0a 20 00 00 00 00 00 00 00 00 ┆onitor(16,ztem,1,sia); ┆
0x3d800…3d806 (492,) (0x2c0,0x7b1)
0x3d806…3d820 20 20 20 72 65 6d 6f 76 65 6c 69 6e 6b 3a 3d 69 66 20 6d 6f 6e 69 74 6f 72 28 ┆ removelink:=if monitor(┆
0x3d820…3d840 31 38 2c 7a 74 65 6d 2c 31 2c 73 69 61 29 20 3c 3e 20 31 20 74 68 65 6e 20 2d 31 20 65 6c 73 65 ┆18,ztem,1,sia) <> 1 then -1 else┆
0x3d840…3d860 20 73 69 61 28 31 29 3b 0a 20 20 65 6e 64 20 72 65 6d 6f 76 65 6c 69 6e 6b 3b 0a 0a 0a 0a 20 20 ┆ sia(1); end removelink; ┆
0x3d860…3d87e 69 6e 74 65 67 65 72 20 70 72 6f 63 65 64 75 72 65 20 74 65 72 6d 69 6e 61 6c 69 64 28 74 ┆integer procedure terminalid(t┆
0x3d87e…3d884 (0x2c0,0x7b2)
0x3d884…3d8a0 65 72 6d 69 6e 61 6c 6e 75 6d 62 65 72 29 3b 0a 20 20 69 6e 74 65 67 65 72 20 74 65 ┆erminalnumber); integer te┆
0x3d8a0…3d8c0 72 6d 69 6e 61 6c 6e 75 6d 62 65 72 3b 0a 20 20 74 65 72 6d 69 6e 61 6c 69 64 3a 3d 28 28 74 65 ┆rminalnumber; terminalid:=((te┆
0x3d8c0…3d8e0 72 6d 69 6e 61 6c 6e 75 6d 62 65 72 2f 2f 31 30 20 2b 20 34 38 29 20 73 68 69 66 74 20 38 20 61 ┆rminalnumber//10 + 48) shift 8 a┆
0x3d8e0…3d8fc 64 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 65 72 6d 69 6e 61 6c 6e 75 ┆dd (terminalnu┆
0x3d8fc…3d902 (0x2c0,0x7b3)
0x3d902…3d920 6d 62 65 72 20 6d 6f 64 20 31 30 29 20 2b 20 34 38 29 20 73 68 69 66 74 20 38 20 61 64 64 ┆mber mod 10) + 48) shift 8 add┆
0x3d920…3d940 20 33 32 3b 0a 27 2c 66 0a 69 27 0a 0a 0a 0a 20 20 69 6e 74 65 67 65 72 20 70 72 6f 63 65 64 75 ┆ 32; ',f i' integer procedu┆
0x3d940…3d960 72 65 20 63 6f 6e 6e 65 63 74 20 28 7a 2c 20 61 5f 69 64 2c 20 6d 61 73 6b 2c 20 73 75 62 73 74 ┆re connect (z, a_id, mask, subst┆
0x3d960…3d97a 29 3b 0a 20 20 76 61 6c 75 65 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆); value ┆
0x3d97a…3d980 (0x2c0,0x7b4)
0x3d980…3d9a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 61 73 6b 2c 20 73 75 62 73 74 20 3b 0a 20 20 7a ┆ mask, subst ; z┆
0x3d9a0…3d9c0 6f 6e 65 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7a 20 20 20 20 20 ┆one z ┆
0x3d9c0…3d9e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 0a 20 20 73 74 72 69 6e 67 20 20 20 20 20 20 20 ┆ ; string ┆
0x3d9e0…3da00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 5f 69 64 20 20 20 00 00 00 00 00 00 00 00 ┆ a_id ┆
0x3da00…3da06 (493,) (0x2c0,0x7b5)
0x3da06…3da20 20 20 20 20 20 20 20 20 20 20 20 3b 0a 20 20 69 6e 74 65 67 65 72 20 20 20 20 ┆ ; integer ┆
0x3da20…3da40 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 6d 61 73 6b 2c 20 73 ┆ mask, s┆
0x3da40…3da60 75 62 73 74 20 3b 0a 0a 20 20 20 20 3c 2a 20 72 65 74 75 72 6e 20 76 61 6c 75 65 3a 20 69 66 20 ┆ubst ; <* return value: if ┆
0x3da60…3da7e 22 6e 6f 72 6d 61 6c 20 61 6e 73 77 65 72 22 20 61 6e 64 20 22 73 74 61 74 75 73 3d 30 22 ┆"normal answer" and "status=0"┆
0x3da7e…3da84 (0x2c0,0x7b6)
0x3da84…3daa0 20 74 68 65 6e 20 72 65 73 75 6c 74 20 69 73 20 73 65 74 20 74 6f 20 22 30 22 20 65 ┆ then result is set to "0" e┆
0x3daa0…3dac0 6c 73 65 20 74 6f 20 22 2d 31 22 2e 0a 20 20 20 20 20 20 20 7a 3a 20 20 20 20 20 20 20 20 20 20 ┆lse to "-1". z: ┆
0x3dac0…3dae0 20 20 6d 75 73 74 20 62 65 20 6f 70 65 6e 65 64 20 74 6f 20 74 68 65 20 70 72 6f 63 65 73 73 20 ┆ must be opened to the process ┆
0x3dae0…3dafc 28 22 74 65 6d 2d 70 6f 6f 6c 22 20 6f 72 20 65 78 74 65 72 6e 61 6c 20 70 72 6f 63 ┆("tem-pool" or external proc┆
0x3dafc…3db02 (0x2c0,0x7b7)
0x3db02…3db20 65 73 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 68 72 6f ┆ess) thro┆
0x3db20…3db40 75 67 68 20 77 68 69 63 68 20 74 68 65 20 61 64 70 20 28 6f 75 74 70 75 74 29 20 70 72 6f 63 65 ┆ugh which the adp (output) proce┆
0x3db40…3db60 73 73 20 69 73 20 61 63 63 65 73 73 65 64 2e 0a 20 20 20 20 20 20 20 61 5f 69 64 3a 20 20 20 20 ┆ss is accessed. a_id: ┆
0x3db60…3db7a 20 20 20 20 20 61 70 70 6c 69 63 61 74 69 6f 6e 20 69 64 65 6e 74 69 66 69 65 ┆ application identifie┆
0x3db7a…3db80 (0x2c0,0x7b8)
0x3db80…3dba0 72 2c 20 69 73 20 74 68 65 20 74 65 78 74 20 73 74 72 69 6e 67 20 74 68 61 74 20 69 64 65 6e 74 ┆r, is the text string that ident┆
0x3dba0…3dbc0 69 66 69 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 68 65 20 61 ┆ifies the a┆
0x3dbc0…3dbe0 70 70 6c 69 63 61 74 69 6f 6e 20 69 6e 20 74 68 65 20 22 61 70 70 6c 69 63 61 74 69 6f 6e 20 73 ┆pplication in the "application s┆
0x3dbe0…3dc00 65 6c 65 63 74 20 6d 65 6e 75 22 20 70 72 65 73 65 6e 74 65 64 0a 20 20 00 00 00 00 00 00 00 00 ┆elect menu" presented ┆
0x3dc00…3dc06 (494,) (0x2c0,0x7b9)
0x3dc06…3dc20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 6f 20 74 68 65 20 ┆ to the ┆
0x3dc20…3dc40 74 65 72 6d 69 6e 61 6c 20 6f 70 65 72 61 74 6f 72 2e 0a 20 20 20 20 20 20 20 6d 61 73 6b 2c 20 ┆terminal operator. mask, ┆
0x3dc40…3dc60 73 75 62 73 74 3a 20 20 6d 75 73 74 20 62 65 20 69 64 65 6e 74 69 63 61 6c 20 74 6f 20 74 68 65 ┆subst: must be identical to the┆
0x3dc60…3dc7e 20 22 6d 61 73 6b 22 20 61 6e 64 20 22 73 75 62 73 74 22 20 70 61 72 61 6d 65 74 65 72 73 ┆ "mask" and "subst" parameters┆
0x3dc7e…3dc84 (0x2c0,0x7ba)
0x3dc84…3dca0 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 66 20 74 68 65 ┆ of the┆
0x3dca0…3dcc0 20 22 63 72 65 61 74 65 6c 69 6e 6b 22 20 63 61 6c 6c 20 74 6f 20 74 68 65 20 61 64 70 20 28 6f ┆ "createlink" call to the adp (o┆
0x3dcc0…3dce0 75 74 70 75 74 29 20 64 65 76 69 63 65 2e 0a 20 20 20 20 20 20 20 6e 6f 74 65 3a 20 20 20 20 20 ┆utput) device. note: ┆
0x3dce0…3dcfc 20 20 20 20 69 66 20 74 65 6d 20 69 73 20 6e 6f 74 20 65 6d 70 6c 6f 79 65 64 20 74 ┆ if tem is not employed t┆
0x3dcfc…3dd02 (0x2c0,0x7bb)
0x3dd02…3dd20 68 65 20 22 6d 61 73 6b 22 20 61 6e 64 20 22 73 75 62 73 74 22 20 70 61 72 61 6d 65 74 65 ┆he "mask" and "subst" paramete┆
0x3dd20…3dd40 72 73 20 68 61 76 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 6f 20 ┆rs have no ┆
0x3dd40…3dd60 73 69 67 6e 69 66 69 63 61 6e 63 65 2e 0a 20 20 20 20 20 2a 3e 0a 0a 20 20 62 65 67 69 6e 0a 20 ┆significance. *> begin ┆
0x3dd60…3dd7a 20 20 20 69 6e 74 65 67 65 72 20 69 2c 20 73 74 61 74 75 73 3b 0a 20 20 20 20 ┆ integer i, status; ┆
0x3dd7a…3dd80 (0x2c0,0x7bc)
0x3dd80…3dda0 69 6e 74 65 67 65 72 20 61 72 72 61 79 20 7a 69 61 20 28 31 3a 32 30 29 2c 20 73 69 61 20 28 31 ┆integer array zia (1:20), sia (1┆
0x3dda0…3ddc0 3a 31 32 29 3b 0a 20 20 20 20 6c 6f 6e 67 20 61 72 72 61 79 20 61 72 72 20 28 31 3a 32 29 3b 0a ┆:12); long array arr (1:2); ┆
0x3ddc0…3dde0 20 20 20 20 72 65 61 6c 20 61 72 72 61 79 20 66 69 65 6c 64 20 72 61 66 3b 0a 20 20 20 20 7a 6f ┆ real array field raf; zo┆
0x3dde0…3de00 6e 65 20 7a 5f 61 64 70 20 28 31 2c 20 31 2c 20 73 74 64 65 72 72 6f 72 00 00 00 00 00 00 00 00 ┆ne z_adp (1, 1, stderror ┆
0x3de00…3de06 (495,) (0x2c0,0x7bd)
0x3de06…3de20 29 3b 0a 20 20 20 20 67 65 74 7a 6f 6e 65 20 28 7a 2c 20 7a 69 61 29 3b 0a 20 ┆); getzone (z, zia); ┆
0x3de20…3de40 20 20 20 61 72 72 28 31 29 3a 3d 20 7a 69 61 28 32 29 3b 20 61 72 72 28 31 29 3a 3d 20 61 72 72 ┆ arr(1):= zia(2); arr(1):= arr┆
0x3de40…3de60 28 31 29 20 73 68 69 66 74 20 32 34 20 61 64 64 20 7a 69 61 28 33 29 3b 0a 20 20 20 20 61 72 72 ┆(1) shift 24 add zia(3); arr┆
0x3de60…3de7e 28 32 29 3a 3d 20 7a 69 61 28 34 29 3b 20 61 72 72 28 32 29 3a 3d 20 61 72 72 28 32 29 20 ┆(2):= zia(4); arr(2):= arr(2) ┆
0x3de7e…3de84 (0x2c0,0x7be)
0x3de84…3dea0 73 68 69 66 74 20 32 34 20 61 64 64 20 7a 69 61 28 35 29 3b 0a 20 20 20 20 69 3a 3d ┆shift 24 add zia(5); i:=┆
0x3dea0…3dec0 20 31 3b 0a 20 20 20 20 6f 70 65 6e 20 28 7a 5f 61 64 70 2c 20 30 2c 20 73 74 72 69 6e 67 20 61 ┆ 1; open (z_adp, 0, string a┆
0x3dec0…3dee0 72 72 20 28 69 6e 63 72 65 61 73 65 28 69 29 29 2c 30 29 3b 0a 20 20 20 20 67 65 74 73 68 61 72 ┆rr (increase(i)),0); getshar┆
0x3dee0…3defc 65 20 28 7a 5f 61 64 70 2c 20 73 69 61 2c 20 31 29 3b 0a 20 20 20 20 73 69 61 28 34 ┆e (z_adp, sia, 1); sia(4┆
0x3defc…3df02 (0x2c0,0x7bf)
0x3df02…3df20 29 3a 3d 20 34 20 73 68 69 66 74 20 31 32 20 2b 20 34 3b 20 3c 2a 20 6f 70 65 72 61 74 69 ┆):= 4 shift 12 + 4; <* operati┆
0x3df20…3df40 6f 6e 3a 3d 20 63 6f 6e 6e 65 63 74 20 2a 3e 0a 20 20 20 20 72 61 66 3a 3d 20 31 30 3b 0a 20 20 ┆on:= connect *> raf:= 10; ┆
0x3df40…3df60 20 20 6d 6f 76 65 73 74 72 69 6e 67 20 28 73 69 61 2e 72 61 66 2c 20 31 2c 20 61 5f 69 64 29 3b ┆ movestring (sia.raf, 1, a_id);┆
0x3df60…3df7a 0a 20 20 20 20 73 69 61 28 31 31 29 3a 3d 20 28 6c 6f 67 61 6e 64 20 28 6d 61 ┆ sia(11):= (logand (ma┆
0x3df7a…3df80 (0x2c0,0x7c0)
0x3df80…3dfa0 73 6b 2c 20 73 75 62 73 74 29 29 73 68 69 66 74 20 38 3b 20 3c 2a 20 74 65 6d 20 61 64 64 72 65 ┆sk, subst))shift 8; <* tem addre┆
0x3dfa0…3dfc0 73 73 69 6e 67 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 2a 3e 0a 20 20 20 20 73 65 74 73 68 61 72 ┆ssing information *> setshar┆
0x3dfc0…3dfe0 65 20 28 7a 5f 61 64 70 2c 20 73 69 61 2c 20 31 29 3b 0a 20 20 20 20 6d 6f 6e 69 74 6f 72 20 28 ┆e (z_adp, sia, 1); monitor (┆
0x3dfe0…3e000 31 36 29 73 65 6e 64 5f 6d 65 73 73 61 67 65 3a 28 7a 5f 61 64 70 2c 20 00 00 00 00 00 00 00 00 ┆16)send_message:(z_adp, ┆
0x3e000…3e006 (496,) (0x2c0,0x7c1)
0x3e006…3e020 31 2c 20 73 69 61 29 3b 0a 20 20 20 20 73 74 61 74 75 73 3a 3d 20 31 20 73 68 ┆1, sia); status:= 1 sh┆
0x3e020…3e040 69 66 74 20 28 6d 6f 6e 69 74 6f 72 28 31 38 29 77 61 69 74 5f 61 6e 73 77 65 72 3a 28 7a 5f 61 ┆ift (monitor(18)wait_answer:(z_a┆
0x3e040…3e060 64 70 2c 31 2c 73 69 61 29 29 3b 0a 20 20 20 20 69 66 20 73 74 61 74 75 73 20 3d 20 32 20 74 68 ┆dp,1,sia)); if status = 2 th┆
0x3e060…3e07e 65 6e 20 73 74 61 74 75 73 3a 3d 20 73 74 61 74 75 73 2b 73 69 61 28 31 29 3b 0a 20 20 20 ┆en status:= status+sia(1); ┆
0x3e07e…3e084 (0x2c0,0x7c2)
0x3e084…3e0a0 20 63 6f 6e 6e 65 63 74 3a 3d 20 69 66 20 73 74 61 74 75 73 20 3d 20 32 20 74 68 65 ┆ connect:= if status = 2 the┆
0x3e0a0…3e0c0 6e 20 30 20 65 6c 73 65 20 2d 31 3b 0a 20 20 20 20 63 6c 6f 73 65 20 28 7a 5f 61 64 70 2c 20 66 ┆n 0 else -1; close (z_adp, f┆
0x3e0c0…3e0e0 61 6c 73 65 29 3b 0a 20 20 65 6e 64 20 63 6f 6e 6e 65 63 74 3b 0a 0a 0a 20 20 69 6e 74 65 67 65 ┆alse); end connect; intege┆
0x3e0e0…3e0fc 72 20 70 72 6f 63 65 64 75 72 65 20 64 69 73 63 6f 6e 6e 65 63 74 20 28 7a 2c 20 6d ┆r procedure disconnect (z, m┆
0x3e0fc…3e102 (0x2c0,0x7c3)
0x3e102…3e120 61 73 6b 2c 20 73 75 62 73 74 29 3b 0a 20 20 76 61 6c 75 65 20 20 20 20 20 20 20 20 20 20 ┆ask, subst); value ┆
0x3e120…3e140 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 61 73 6b 2c 20 73 75 62 73 74 20 3b 0a ┆ mask, subst ; ┆
0x3e140…3e160 20 20 7a 6f 6e 65 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 ┆ zone ┆
0x3e160…3e17a 7a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 0a 20 20 69 6e 74 65 67 65 72 ┆z ; integer┆
0x3e17a…3e180 (0x2c0,0x7c4)
0x3e180…3e1a0 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 6d 61 73 6b 2c 20 ┆ mask, ┆
0x3e1a0…3e1c0 73 75 62 73 74 20 3b 0a 0a 20 20 20 20 3c 2a 20 72 65 74 75 72 6e 20 76 61 6c 75 65 3a 20 69 66 ┆subst ; <* return value: if┆
0x3e1c0…3e1e0 20 22 6e 6f 72 6d 61 6c 20 61 6e 73 77 65 72 22 20 61 6e 64 20 22 73 74 61 74 75 73 3d 30 22 20 ┆ "normal answer" and "status=0" ┆
0x3e1e0…3e200 74 68 65 6e 20 72 65 73 75 6c 74 20 69 73 20 73 65 74 20 74 6f 20 22 30 00 00 00 00 00 00 00 00 ┆then result is set to "0 ┆
0x3e200…3e206 (497,) (0x2c0,0x7c5)
0x3e206…3e220 22 20 65 6c 73 65 20 74 6f 20 22 2d 31 22 2e 0a 20 20 20 20 20 20 20 7a 3a 20 ┆" else to "-1". z: ┆
0x3e220…3e240 20 20 20 20 20 20 20 20 20 20 20 6d 75 73 74 20 62 65 20 6f 70 65 6e 65 64 20 74 6f 20 74 68 65 ┆ must be opened to the┆
0x3e240…3e260 20 70 72 6f 63 65 73 73 20 28 22 74 65 6d 2d 70 6f 6f 6c 22 20 6f 72 20 65 78 74 65 72 6e 61 6c ┆ process ("tem-pool" or external┆
0x3e260…3e27e 20 70 72 6f 63 65 73 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ process) ┆
0x3e27e…3e284 (0x2c0,0x7c6)
0x3e284…3e2a0 20 74 68 72 6f 75 67 68 20 77 68 69 63 68 20 74 68 65 20 61 64 70 20 28 6f 75 74 70 ┆ through which the adp (outp┆
0x3e2a0…3e2c0 75 74 29 20 70 72 6f 63 65 73 73 20 69 73 20 61 63 63 65 73 73 65 64 2e 0a 20 20 20 20 20 20 20 ┆ut) process is accessed. ┆
0x3e2c0…3e2e0 6d 61 73 6b 2c 20 73 75 62 73 74 3a 20 20 6d 75 73 74 20 62 65 20 69 64 65 6e 74 69 63 61 6c 20 ┆mask, subst: must be identical ┆
0x3e2e0…3e2fc 74 6f 20 74 68 65 20 22 6d 61 73 6b 22 20 61 6e 64 20 22 73 75 62 73 74 22 20 70 61 ┆to the "mask" and "subst" pa┆
0x3e2fc…3e302 (0x2c0,0x7c7)
0x3e302…3e320 72 61 6d 65 74 65 72 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆rameters ┆
0x3e320…3e340 6f 66 20 74 68 65 20 22 63 72 65 61 74 65 6c 69 6e 6b 22 20 63 61 6c 6c 20 74 6f 20 74 68 65 20 ┆of the "createlink" call to the ┆
0x3e340…3e360 61 64 70 20 28 6f 75 74 70 75 74 29 20 64 65 76 69 63 65 2e 0a 20 20 20 20 20 20 20 6e 6f 74 65 ┆adp (output) device. note┆
0x3e360…3e37a 3a 20 20 20 20 20 20 20 20 20 69 66 20 74 65 6d 20 69 73 20 6e 6f 74 20 65 6d ┆: if tem is not em┆
0x3e37a…3e380 (0x2c0,0x7c8)
0x3e380…3e3a0 70 6c 6f 79 65 64 20 74 68 65 20 22 6d 61 73 6b 22 20 61 6e 64 20 22 73 75 62 73 74 22 20 70 61 ┆ployed the "mask" and "subst" pa┆
0x3e3a0…3e3c0 72 61 6d 65 74 65 72 73 20 68 61 76 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆rameters have ┆
0x3e3c0…3e3e0 20 20 20 6e 6f 20 73 69 67 6e 69 66 69 63 61 6e 63 65 2e 0a 20 20 20 20 20 2a 3e 0a 0a 20 20 62 ┆ no significance. *> b┆
0x3e3e0…3e400 65 67 69 6e 0a 20 20 20 20 69 6e 74 65 67 65 72 20 69 2c 20 73 74 61 74 00 00 00 00 00 00 00 00 ┆egin integer i, stat ┆
0x3e400…3e406 (498,) (0x2c0,0x7c9)
0x3e406…3e420 75 73 3b 0a 20 20 20 20 69 6e 74 65 67 65 72 20 61 72 72 61 79 20 7a 69 61 20 ┆us; integer array zia ┆
0x3e420…3e440 28 31 3a 32 30 29 2c 20 73 69 61 20 28 31 3a 31 32 29 3b 0a 20 20 20 20 6c 6f 6e 67 20 61 72 72 ┆(1:20), sia (1:12); long arr┆
0x3e440…3e460 61 79 20 61 72 72 20 28 31 3a 32 29 3b 0a 20 20 20 20 7a 6f 6e 65 20 7a 5f 61 64 70 20 28 31 2c ┆ay arr (1:2); zone z_adp (1,┆
0x3e460…3e47e 20 31 2c 20 73 74 64 65 72 72 6f 72 29 3b 0a 20 20 20 20 67 65 74 7a 6f 6e 65 20 28 7a 2c ┆ 1, stderror); getzone (z,┆
0x3e47e…3e484 (0x2c0,0x7ca)
0x3e484…3e4a0 20 7a 69 61 29 3b 0a 20 20 20 20 61 72 72 28 31 29 3a 3d 20 7a 69 61 28 32 29 3b 20 ┆ zia); arr(1):= zia(2); ┆
0x3e4a0…3e4c0 61 72 72 28 31 29 3a 3d 20 61 72 72 28 31 29 20 73 68 69 66 74 20 32 34 20 61 64 64 20 7a 69 61 ┆arr(1):= arr(1) shift 24 add zia┆
0x3e4c0…3e4e0 28 33 29 3b 0a 20 20 20 20 61 72 72 28 32 29 3a 3d 20 7a 69 61 28 34 29 3b 20 61 72 72 28 32 29 ┆(3); arr(2):= zia(4); arr(2)┆
0x3e4e0…3e4fc 3a 3d 20 61 72 72 28 32 29 20 73 68 69 66 74 20 32 34 20 61 64 64 20 7a 69 61 28 35 ┆:= arr(2) shift 24 add zia(5┆
0x3e4fc…3e502 (0x2c0,0x7cb)
0x3e502…3e520 29 3b 0a 20 20 20 20 69 3a 3d 20 31 3b 0a 20 20 20 20 6f 70 65 6e 20 28 7a 5f 61 64 70 2c ┆); i:= 1; open (z_adp,┆
0x3e520…3e540 20 30 2c 20 73 74 72 69 6e 67 20 61 72 72 20 28 69 6e 63 72 65 61 73 65 28 69 29 29 2c 30 29 3b ┆ 0, string arr (increase(i)),0);┆
0x3e540…3e560 0a 20 20 20 20 67 65 74 73 68 61 72 65 20 28 7a 5f 61 64 70 2c 20 73 69 61 2c 20 31 29 3b 0a 20 ┆ getshare (z_adp, sia, 1); ┆
0x3e560…3e57a 20 20 20 73 69 61 28 34 29 3a 3d 20 34 20 73 68 69 66 74 20 31 32 20 2b 20 38 ┆ sia(4):= 4 shift 12 + 8┆
0x3e57a…3e580 (0x2c0,0x7cc)
0x3e580…3e5a0 3b 20 3c 2a 20 6f 70 65 72 61 74 69 6f 6e 3a 3d 20 64 69 73 63 6f 6e 6e 65 63 74 20 2a 3e 0a 20 ┆; <* operation:= disconnect *> ┆
0x3e5a0…3e5c0 20 20 20 73 69 61 28 31 31 29 3a 3d 20 28 6c 6f 67 61 6e 64 20 28 6d 61 73 6b 2c 20 73 75 62 73 ┆ sia(11):= (logand (mask, subs┆
0x3e5c0…3e5e0 74 29 29 73 68 69 66 74 20 38 3b 20 3c 2a 20 74 65 6d 20 61 64 64 72 65 73 73 69 6e 67 20 69 6e ┆t))shift 8; <* tem addressing in┆
0x3e5e0…3e600 66 6f 72 6d 61 74 69 6f 6e 20 2a 3e 0a 20 20 20 20 73 65 74 73 68 61 72 00 00 00 00 00 00 00 00 ┆formation *> setshar ┆
0x3e600…3e606 (499,) (0x2c0,0x7cd)
0x3e606…3e620 65 20 28 7a 5f 61 64 70 2c 20 73 69 61 2c 20 31 29 3b 0a 20 20 20 20 6d 6f 6e ┆e (z_adp, sia, 1); mon┆
0x3e620…3e640 69 74 6f 72 20 28 31 36 29 73 65 6e 64 5f 6d 65 73 73 61 67 65 3a 28 7a 5f 61 64 70 2c 20 31 2c ┆itor (16)send_message:(z_adp, 1,┆
0x3e640…3e660 20 73 69 61 29 3b 0a 20 20 20 20 73 74 61 74 75 73 3a 3d 20 31 20 73 68 69 66 74 20 28 6d 6f 6e ┆ sia); status:= 1 shift (mon┆
0x3e660…3e67e 69 74 6f 72 28 31 38 29 77 61 69 74 5f 61 6e 73 77 65 72 3a 28 7a 5f 61 64 70 2c 31 2c 73 ┆itor(18)wait_answer:(z_adp,1,s┆
0x3e67e…3e684 (0x2c0,0x7ce)
0x3e684…3e6a0 69 61 29 29 3b 0a 20 20 20 20 69 66 20 73 74 61 74 75 73 20 3d 20 32 20 74 68 65 6e ┆ia)); if status = 2 then┆
0x3e6a0…3e6c0 20 73 74 61 74 75 73 3a 3d 20 73 74 61 74 75 73 2b 73 69 61 28 31 29 3b 0a 20 20 20 20 64 69 73 ┆ status:= status+sia(1); dis┆
0x3e6c0…3e6e0 63 6f 6e 6e 65 63 74 3a 3d 20 69 66 20 73 74 61 74 75 73 20 3d 20 32 20 74 68 65 6e 20 30 20 65 ┆connect:= if status = 2 then 0 e┆
0x3e6e0…3e6fc 6c 73 65 20 2d 31 3b 0a 20 20 20 20 63 6c 6f 73 65 20 28 7a 5f 61 64 70 2c 20 66 61 ┆lse -1; close (z_adp, fa┆
0x3e6fc…3e702 (0x2c0,0x7cf)
0x3e702…3e720 6c 73 65 29 3b 0a 20 20 65 6e 64 20 64 69 73 63 6f 6e 6e 65 63 74 3b 0a 0a 0a 0a 0a 20 20 ┆lse); end disconnect; ┆
0x3e720…3e740 69 6e 74 65 67 65 72 20 70 72 6f 63 65 64 75 72 65 20 6c 6f 6f 6b 75 70 5f 64 65 76 69 63 65 20 ┆integer procedure lookup_device ┆
0x3e740…3e760 28 7a 2c 20 61 69 64 2c 20 73 62 2c 20 63 75 2c 20 64 65 76 69 63 65 2c 20 6d 61 73 6b 2c 20 73 ┆(z, aid, sb, cu, device, mask, s┆
0x3e760…3e77a 75 62 73 74 29 3b 0a 20 20 76 61 6c 75 65 20 20 20 20 20 20 20 20 20 20 20 20 ┆ubst); value ┆
0x3e77a…3e780 (0x2c0,0x7d0)
0x3e780…3e7a0 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 63 75 2c 20 ┆ cu, ┆
0x3e7a0…3e7c0 64 65 76 69 63 65 2c 20 6d 61 73 6b 2c 20 73 75 62 73 74 20 3b 0a 20 20 7a 6f 6e 65 20 20 20 20 ┆device, mask, subst ; zone ┆
0x3e7c0…3e7e0 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 7a 20 20 20 20 20 20 ┆ z ┆
0x3e7e0…3e800 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ ┆
0x3e800…3e806 (500,) (0x2c0,0x7d1)
0x3e806…3e820 20 20 20 20 20 3b 0a 20 20 69 6e 74 65 67 65 72 20 20 20 20 20 20 20 20 20 20 ┆ ; integer ┆
0x3e820…3e840 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 69 64 2c 20 73 62 2c 20 63 75 2c 20 ┆ aid, sb, cu, ┆
0x3e840…3e860 64 65 76 69 63 65 2c 20 6d 61 73 6b 2c 20 73 75 62 73 74 20 3b 0a 20 20 20 3c 2a 20 72 65 74 75 ┆device, mask, subst ; <* retu┆
0x3e860…3e87e 72 6e 20 76 61 6c 75 65 3a 20 20 69 73 20 74 61 6b 65 6e 20 66 72 6f 6d 20 74 68 65 20 72 ┆rn value: is taken from the r┆
0x3e87e…3e884 (0x2c0,0x7d2)
0x3e884…3e8a0 65 73 75 6c 74 20 66 69 65 6c 64 20 6f 66 20 74 68 65 20 61 64 70 20 61 6e 73 77 65 ┆esult field of the adp answe┆
0x3e8a0…3e8c0 72 20 28 22 61 6e 73 77 65 72 28 32 29 22 29 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆r ("answer(2)"), ┆
0x3e8c0…3e8e0 20 20 20 20 20 20 69 66 20 22 6e 6f 72 6d 61 6c 20 61 6e 73 77 65 72 22 20 61 6e 64 20 22 73 74 ┆ if "normal answer" and "st┆
0x3e8e0…3e8fc 61 74 75 73 3d 30 22 2c 20 65 6c 73 65 20 72 65 73 75 6c 74 20 69 73 20 73 65 74 20 ┆atus=0", else result is set ┆
0x3e8fc…3e902 (0x2c0,0x7d3)
0x3e902…3e920 74 6f 20 22 2d 31 22 2e 0a 20 20 20 20 20 20 7a 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆to "-1". z: ┆
0x3e920…3e940 6d 75 73 74 20 62 65 20 6f 70 65 6e 65 64 20 74 6f 20 74 68 65 20 70 72 6f 63 65 73 73 20 28 22 ┆must be opened to the process ("┆
0x3e940…3e960 74 65 6d 2d 70 6f 6f 6c 22 20 6f 72 20 65 78 74 65 72 6e 61 6c 20 70 72 6f 63 65 73 73 29 0a 20 ┆tem-pool" or external process) ┆
0x3e960…3e97a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 68 72 6f 75 67 ┆ throug┆
0x3e97a…3e980 (0x2c0,0x7d4)
0x3e980…3e9a0 68 20 77 68 69 63 68 20 74 68 65 20 61 64 70 20 28 6f 75 74 70 75 74 29 20 70 72 6f 63 65 73 73 ┆h which the adp (output) process┆
0x3e9a0…3e9c0 20 69 73 20 61 63 63 65 73 73 65 64 2e 0a 20 20 20 20 20 20 63 75 2c 20 64 65 76 69 63 65 3a 20 ┆ is accessed. cu, device: ┆
0x3e9c0…3e9e0 20 20 20 64 65 76 69 63 65 20 61 64 64 72 65 73 73 69 6e 67 20 69 6e 66 6f 72 6d 61 74 69 6f 6e ┆ device addressing information┆
0x3e9e0…3ea00 2c 20 70 6c 65 61 73 65 20 6e 6f 74 69 63 65 20 74 68 61 74 20 22 63 75 00 00 00 00 00 00 00 00 ┆, please notice that "cu ┆
0x3ea00…3ea06 (501,) (0x2c0,0x7d5)
0x3ea06…3ea20 22 20 61 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆" and ┆
0x3ea20…3ea40 20 74 68 65 20 76 61 6c 75 65 20 6f 66 20 74 68 65 20 22 63 75 2d 62 79 74 65 22 20 62 79 74 65 ┆ the value of the "cu-byte" byte┆
0x3ea40…3ea60 20 6f 66 20 74 68 65 20 74 72 61 6e 73 61 6b 74 69 6f 6e 20 68 65 61 64 65 72 0a 20 20 20 20 20 ┆ of the transaktion header ┆
0x3ea60…3ea7e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 65 6c 69 76 65 72 65 64 20 62 79 20 ┆ (delivered by ┆
0x3ea7e…3ea84 (0x2c0,0x7d6)
0x3ea84…3eaa0 77 61 69 74 74 72 61 6e 73 20 69 6e 3a 20 22 64 65 73 74 69 6e 61 74 69 6f 6e 20 73 ┆waittrans in: "destination s┆
0x3eaa0…3eac0 68 69 66 74 28 2d 31 32 29 65 78 74 72 61 63 74 20 31 32 22 29 0a 20 20 20 20 20 20 20 20 20 20 ┆hift(-12)extract 12") ┆
0x3eac0…3eae0 20 20 20 20 20 20 20 20 20 20 20 6e 6f 74 20 6e 65 63 65 73 73 61 72 69 6c 79 20 61 72 65 20 69 ┆ not necessarily are i┆
0x3eae0…3eafc 64 65 6e 74 69 63 61 6c 20 69 66 20 54 45 4d 20 69 73 20 65 6d 70 6c 6f 79 65 64 2e ┆dentical if TEM is employed.┆
0x3eafc…3eb02 (0x2c0,0x7d7)
0x3eb02…3eb20 20 54 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ The following ┆
0x3eb20…3eb40 20 20 20 20 20 20 61 6c 67 6f 72 69 74 68 6d 20 73 6f 6c 76 65 73 20 74 68 65 20 70 72 6f 62 6c ┆ algorithm solves the probl┆
0x3eb40…3eb60 65 6d 3a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 63 75 20 3a 3d 20 ┆em: "cu := ┆
0x3eb60…3eb7a 6c 6f 67 61 6e 64 20 28 63 75 2d 62 79 74 65 2c 20 65 78 6f 72 20 28 4d 41 53 ┆logand (cu-byte, exor (MAS┆
0x3eb7a…3eb80 (0x2c0,0x7d8)
0x3eb80…3eba0 4b 2c 20 2d 31 29 29 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 72 ┆K, -1))" or┆
0x3eba0…3ebc0 3a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 63 75 20 3a 3d 20 6c 6f ┆: "cu := lo┆
0x3ebc0…3ebe0 67 61 6e 64 20 28 64 65 73 74 69 6e 61 74 69 6f 6e 20 73 68 69 66 74 28 2d 31 32 29 65 78 74 72 ┆gand (destination shift(-12)extr┆
0x3ebe0…3ec00 61 63 74 20 31 32 2c 20 65 78 6f 72 20 28 4d 41 53 4b 2c 20 2d 31 29 29 00 00 00 00 00 00 00 00 ┆act 12, exor (MASK, -1)) ┆
0x3ec00…3ec06 (502,) (0x2c0,0x7d9)
0x3ec06…3ec20 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 68 65 ┆" whe┆
0x3ec20…3ec40 72 65 20 22 4d 41 53 4b 22 20 6d 75 73 74 20 62 65 20 69 64 65 6e 74 69 63 61 6c 20 74 6f 20 4d ┆re "MASK" must be identical to M┆
0x3ec40…3ec60 41 53 4b 20 70 61 72 61 6d 65 74 65 72 20 6f 66 20 74 68 65 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ASK parameter of the ┆
0x3ec60…3ec7e 20 20 20 20 20 20 20 20 20 20 22 63 72 65 61 74 65 6c 69 6e 6b 22 20 63 61 6c 6c 20 74 6f ┆ "createlink" call to┆
0x3ec7e…3ec84 (0x2c0,0x7da)
0x3ec84…3eca0 20 74 68 65 20 61 64 70 20 28 6f 75 74 70 75 74 29 20 64 65 76 69 63 65 2e 0a 20 20 ┆ the adp (output) device. ┆
0x3eca0…3ecc0 20 20 20 20 61 69 64 3a 20 20 20 20 20 20 20 20 20 20 20 61 74 74 65 6e 74 69 6f 6e 20 69 64 65 ┆ aid: attention ide┆
0x3ecc0…3ece0 6e 74 69 66 69 65 72 2c 20 69 73 20 74 68 65 20 76 61 6c 75 65 20 6f 66 20 74 68 65 20 6c 61 73 ┆ntifier, is the value of the las┆
0x3ece0…3ecfc 74 20 72 65 63 65 69 76 65 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆t received ┆
0x3ecfc…3ed02 (0x2c0,0x7db)
0x3ed02…3ed20 20 20 20 20 61 69 64 2d 63 6f 64 65 20 66 72 6f 6d 20 74 68 65 20 61 64 64 72 65 73 73 65 ┆ aid-code from the addresse┆
0x3ed20…3ed40 64 20 64 65 76 69 63 65 2e 0a 20 20 20 20 20 20 73 62 3a 20 20 20 20 20 20 20 20 20 20 20 20 53 ┆d device. sb: S┆
0x3ed40…3ed60 74 61 74 75 73 20 42 79 74 65 2c 20 69 73 20 74 68 65 20 76 61 6c 75 65 20 6f 66 20 74 68 65 20 ┆tatus Byte, is the value of the ┆
0x3ed60…3ed7a 6c 61 73 74 20 72 65 63 65 69 76 65 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆last received ┆
0x3ed7a…3ed80 (0x2c0,0x7dc)
0x3ed80…3eda0 20 20 20 20 20 20 20 20 20 73 74 61 74 75 73 20 62 79 74 65 20 66 72 6f 6d 20 74 68 65 20 61 64 ┆ status byte from the ad┆
0x3eda0…3edc0 64 72 65 73 73 65 64 20 64 65 76 69 63 65 2e 0a 20 20 20 20 20 20 6d 61 73 6b 2c 20 73 75 62 73 ┆dressed device. mask, subs┆
0x3edc0…3ede0 74 3a 20 20 20 6d 75 73 74 20 62 65 20 69 64 65 6e 74 69 63 61 6c 20 74 6f 20 74 68 65 20 22 6d ┆t: must be identical to the "m┆
0x3ede0…3ee00 61 73 6b 22 20 61 6e 64 20 22 73 75 62 73 74 22 20 70 61 72 61 6d 65 74 00 00 00 00 00 00 00 00 ┆ask" and "subst" paramet ┆
0x3ee00…3ee06 (503,) (0x2c0,0x7dd)
0x3ee06…3ee20 65 72 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f ┆ers o┆
0x3ee20…3ee40 66 20 74 68 65 20 22 63 72 65 61 74 65 6c 69 6e 6b 22 20 63 61 6c 6c 20 74 6f 20 74 68 65 20 61 ┆f the "createlink" call to the a┆
0x3ee40…3ee60 64 70 20 28 6f 75 74 70 75 74 29 20 64 65 76 69 63 65 2e 0a 20 20 20 20 20 20 6e 6f 74 65 3a 20 ┆dp (output) device. note: ┆
0x3ee60…3ee7e 20 20 20 20 20 20 20 20 20 69 66 20 74 65 6d 20 69 73 20 6e 6f 74 20 65 6d 70 6c 6f 79 65 ┆ if tem is not employe┆
0x3ee7e…3ee84 (0x2c0,0x7de)
0x3ee84…3eea0 64 20 74 68 65 20 22 6d 61 73 6b 22 20 61 6e 64 20 22 73 75 62 73 74 22 20 70 61 72 ┆d the "mask" and "subst" par┆
0x3eea0…3eec0 61 6d 65 74 65 72 73 20 68 61 76 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ameters have ┆
0x3eec0…3eee0 20 20 6e 6f 20 73 69 67 6e 69 66 69 63 61 6e 63 65 2e 0a 20 20 20 20 20 2a 3e 0a 0a 20 20 62 65 ┆ no significance. *> be┆
0x3eee0…3eefc 67 69 6e 0a 20 20 20 20 69 6e 74 65 67 65 72 20 69 2c 20 73 74 61 74 75 73 3b 0a 20 ┆gin integer i, status; ┆
0x3eefc…3ef02 (0x2c0,0x7df)
0x3ef02…3ef20 20 20 20 69 6e 74 65 67 65 72 20 61 72 72 61 79 20 7a 69 61 20 28 31 3a 32 30 29 2c 20 73 ┆ integer array zia (1:20), s┆
0x3ef20…3ef40 69 61 20 28 31 3a 31 32 29 3b 0a 20 20 20 20 6c 6f 6e 67 20 61 72 72 61 79 20 61 72 72 20 28 31 ┆ia (1:12); long array arr (1┆
0x3ef40…3ef60 3a 32 29 3b 0a 20 20 20 20 7a 6f 6e 65 20 7a 5f 61 64 70 20 28 31 2c 20 31 2c 20 73 74 64 65 72 ┆:2); zone z_adp (1, 1, stder┆
0x3ef60…3ef7a 72 6f 72 29 3b 0a 20 20 20 20 67 65 74 7a 6f 6e 65 20 28 7a 2c 20 7a 69 61 29 ┆ror); getzone (z, zia)┆
0x3ef7a…3ef80 (0x2c0,0x7e0)
0x3ef80…3efa0 3b 0a 20 20 20 20 61 72 72 28 31 29 3a 3d 20 7a 69 61 28 32 29 3b 20 61 72 72 28 31 29 3a 3d 20 ┆; arr(1):= zia(2); arr(1):= ┆
0x3efa0…3efc0 61 72 72 28 31 29 20 73 68 69 66 74 20 32 34 20 61 64 64 20 7a 69 61 28 33 29 3b 0a 20 20 20 20 ┆arr(1) shift 24 add zia(3); ┆
0x3efc0…3efe0 61 72 72 28 32 29 3a 3d 20 7a 69 61 28 34 29 3b 20 61 72 72 28 32 29 3a 3d 20 61 72 72 28 32 29 ┆arr(2):= zia(4); arr(2):= arr(2)┆
0x3efe0…3f000 20 73 68 69 66 74 20 32 34 20 61 64 64 20 7a 69 61 28 35 29 3b 0a 20 20 00 00 00 00 00 00 00 00 ┆ shift 24 add zia(5); ┆
0x3f000…3f006 (504,) (0x2c0,0x7e1)
0x3f006…3f020 20 20 69 3a 3d 20 31 3b 0a 20 20 20 20 6f 70 65 6e 20 28 7a 5f 61 64 70 2c 20 ┆ i:= 1; open (z_adp, ┆
0x3f020…3f040 30 2c 20 73 74 72 69 6e 67 20 61 72 72 20 28 69 6e 63 72 65 61 73 65 28 69 29 29 2c 30 29 3b 0a ┆0, string arr (increase(i)),0); ┆
0x3f040…3f060 20 20 20 20 67 65 74 73 68 61 72 65 20 28 7a 5f 61 64 70 2c 20 73 69 61 2c 20 31 29 3b 0a 20 20 ┆ getshare (z_adp, sia, 1); ┆
0x3f060…3f07e 20 20 73 69 61 28 34 29 3a 3d 20 34 20 73 68 69 66 74 20 31 32 20 2b 20 31 32 3b 20 3c 2a ┆ sia(4):= 4 shift 12 + 12; <*┆
0x3f07e…3f084 (0x2c0,0x7e2)
0x3f084…3f0a0 20 6f 70 65 72 61 74 69 6f 6e 3a 3d 20 6c 6f 6f 6b 75 70 20 64 65 76 69 63 65 20 2a ┆ operation:= lookup device *┆
0x3f0a0…3f0c0 3e 0a 20 20 20 20 73 69 61 28 36 29 3a 3d 20 63 75 20 73 68 69 66 74 20 38 20 2b 20 64 65 76 69 ┆> sia(6):= cu shift 8 + devi┆
0x3f0c0…3f0e0 63 65 3b 0a 20 20 20 20 73 69 61 28 31 31 29 3a 3d 20 28 6c 6f 67 61 6e 64 20 28 6d 61 73 6b 2c ┆ce; sia(11):= (logand (mask,┆
0x3f0e0…3f0fc 20 73 75 62 73 74 29 29 73 68 69 66 74 20 38 3b 20 3c 2a 20 74 65 6d 20 61 64 64 72 ┆ subst))shift 8; <* tem addr┆
0x3f0fc…3f102 (0x2c0,0x7e3)
0x3f102…3f120 65 73 73 69 6e 67 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 2a 3e 0a 20 20 20 20 73 65 74 73 ┆essing information *> sets┆
0x3f120…3f140 68 61 72 65 20 28 7a 5f 61 64 70 2c 20 73 69 61 2c 20 31 29 3b 0a 20 20 20 20 6d 6f 6e 69 74 6f ┆hare (z_adp, sia, 1); monito┆
0x3f140…3f160 72 20 28 31 36 29 73 65 6e 64 5f 6d 65 73 73 61 67 65 3a 28 7a 5f 61 64 70 2c 20 31 2c 20 73 69 ┆r (16)send_message:(z_adp, 1, si┆
0x3f160…3f17a 61 29 3b 0a 20 20 20 20 73 74 61 74 75 73 3a 3d 20 31 20 73 68 69 66 74 20 28 ┆a); status:= 1 shift (┆
0x3f17a…3f180 (0x2c0,0x7e4)
0x3f180…3f1a0 6d 6f 6e 69 74 6f 72 28 31 38 29 77 61 69 74 5f 61 6e 73 77 65 72 3a 28 7a 5f 61 64 70 2c 31 2c ┆monitor(18)wait_answer:(z_adp,1,┆
0x3f1a0…3f1c0 73 69 61 29 29 3b 0a 20 20 20 20 69 66 20 73 74 61 74 75 73 20 3d 20 32 20 74 68 65 6e 20 73 74 ┆sia)); if status = 2 then st┆
0x3f1c0…3f1e0 61 74 75 73 3a 3d 20 73 74 61 74 75 73 2b 73 69 61 28 31 29 3b 0a 20 20 20 20 69 66 20 73 74 61 ┆atus:= status+sia(1); if sta┆
0x3f1e0…3f200 74 75 73 20 3d 20 32 20 74 68 65 6e 0a 20 20 20 20 62 65 67 69 6e 0a 20 00 00 00 00 00 00 00 00 ┆tus = 2 then begin ┆
0x3f200…3f206 (505,) (0x2c0,0x7e5)
0x3f206…3f220 20 20 20 20 20 61 69 64 3a 3d 20 73 69 61 28 34 29 3b 0a 20 20 20 20 20 20 73 ┆ aid:= sia(4); s┆
0x3f220…3f240 62 3a 3d 20 73 69 61 28 35 29 3b 0a 20 20 20 20 20 20 6c 6f 6f 6b 75 70 5f 64 65 76 69 63 65 3a ┆b:= sia(5); lookup_device:┆
0x3f240…3f260 3d 20 73 69 61 28 32 29 3b 0a 20 20 20 20 65 6e 64 0a 20 20 20 20 20 20 65 6c 73 65 20 6c 6f 6f ┆= sia(2); end else loo┆
0x3f260…3f27e 6b 75 70 5f 64 65 76 69 63 65 3a 3d 20 2d 31 3b 0a 20 20 20 20 63 6c 6f 73 65 20 28 7a 5f ┆kup_device:= -1; close (z_┆
0x3f27e…3f284 (0x2c0,0x7e6)
0x3f284…3f2a0 61 64 70 2c 20 66 61 6c 73 65 29 3b 0a 20 20 65 6e 64 20 6c 6f 6f 6b 75 70 20 64 65 ┆adp, false); end lookup de┆
0x3f2a0…3f2c0 76 69 63 65 3b 0a 0a 0a 20 20 69 6e 74 65 67 65 72 20 70 72 6f 63 65 64 75 72 65 20 72 65 73 65 ┆vice; integer procedure rese┆
0x3f2c0…3f2e0 72 76 65 5f 64 65 76 69 63 65 20 28 7a 2c 20 63 75 2c 20 64 65 76 69 63 65 2c 20 6d 61 73 6b 2c ┆rve_device (z, cu, device, mask,┆
0x3f2e0…3f2fc 20 73 75 62 73 74 29 3b 0a 20 20 76 61 6c 75 65 20 20 20 20 20 20 20 20 20 20 20 20 ┆ subst); value ┆
0x3f2fc…3f302 (0x2c0,0x7e7)
0x3f302…3f320 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 75 2c 20 64 65 76 69 63 65 ┆ cu, device┆
0x3f320…3f340 2c 20 6d 61 73 6b 2c 20 73 75 62 73 74 20 3b 0a 20 20 7a 6f 6e 65 20 20 20 20 20 20 20 20 20 20 ┆, mask, subst ; zone ┆
0x3f340…3f360 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7a 20 20 20 20 20 20 20 20 20 20 20 ┆ z ┆
0x3f360…3f37a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 0a 20 20 69 6e 74 65 67 65 72 ┆ ; integer┆
0x3f37a…3f380 (0x2c0,0x7e8)
0x3f380…3f3a0 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 63 75 ┆ cu┆
0x3f3a0…3f3c0 2c 20 64 65 76 69 63 65 2c 20 6d 61 73 6b 2c 20 73 75 62 73 74 20 3b 0a 20 20 20 3c 2a 20 72 65 ┆, device, mask, subst ; <* re┆
0x3f3c0…3f3e0 74 75 72 6e 20 76 61 6c 75 65 3a 20 20 69 73 20 74 61 6b 65 6e 20 66 72 6f 6d 20 74 68 65 20 72 ┆turn value: is taken from the r┆
0x3f3e0…3f400 65 73 75 6c 74 20 66 69 65 6c 64 20 6f 66 20 74 68 65 20 61 64 70 20 61 00 00 00 00 00 00 00 00 ┆esult field of the adp a ┆
0x3f400…3f406 (506,) (0x2c0,0x7e9)
0x3f406…3f420 6e 73 77 65 72 20 28 22 61 6e 73 77 65 72 28 32 29 22 29 2c 0a 20 20 20 20 20 ┆nswer ("answer(2)"), ┆
0x3f420…3f440 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 22 6e 6f 72 6d 61 6c 20 61 6e 73 77 65 ┆ if "normal answe┆
0x3f440…3f460 72 22 20 61 6e 64 20 22 73 74 61 74 75 73 3d 30 22 2c 20 65 6c 73 65 20 72 65 73 75 6c 74 20 69 ┆r" and "status=0", else result i┆
0x3f460…3f47e 73 20 73 65 74 20 74 6f 20 22 2d 31 22 2e 0a 20 20 20 20 20 20 7a 3a 20 20 20 20 20 20 20 ┆s set to "-1". z: ┆
0x3f47e…3f484 (0x2c0,0x7ea)
0x3f484…3f4a0 20 20 20 20 20 20 6d 75 73 74 20 62 65 20 6f 70 65 6e 65 64 20 74 6f 20 74 68 65 20 ┆ must be opened to the ┆
0x3f4a0…3f4c0 70 72 6f 63 65 73 73 20 28 22 74 65 6d 2d 70 6f 6f 6c 22 20 6f 72 20 65 78 74 65 72 6e 61 6c 20 ┆process ("tem-pool" or external ┆
0x3f4c0…3f4e0 70 72 6f 63 65 73 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 68 ┆process) th┆
0x3f4e0…3f4fc 72 6f 75 67 68 20 77 68 69 63 68 20 74 68 65 20 61 64 70 20 28 6f 75 74 70 75 74 29 ┆rough which the adp (output)┆
0x3f4fc…3f502 (0x2c0,0x7eb)
0x3f502…3f520 20 70 72 6f 63 65 73 73 20 69 73 20 61 63 63 65 73 73 65 64 2e 0a 20 20 20 20 20 20 63 75 ┆ process is accessed. cu┆
0x3f520…3f540 2c 20 64 65 76 69 63 65 3a 20 20 20 20 64 65 76 69 63 65 20 61 64 64 72 65 73 73 69 6e 67 20 69 ┆, device: device addressing i┆
0x3f540…3f560 6e 66 6f 72 6d 61 74 69 6f 6e 2c 20 70 6c 65 61 73 65 20 6e 6f 74 69 63 65 20 74 68 61 74 20 22 ┆nformation, please notice that "┆
0x3f560…3f57a 63 75 22 20 61 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆cu" and ┆
0x3f57a…3f580 (0x2c0,0x7ec)
0x3f580…3f5a0 20 20 20 74 68 65 20 76 61 6c 75 65 20 6f 66 20 74 68 65 20 22 63 75 2d 62 79 74 65 22 20 62 79 ┆ the value of the "cu-byte" by┆
0x3f5a0…3f5c0 74 65 20 6f 66 20 74 68 65 20 74 72 61 6e 73 61 6b 74 69 6f 6e 20 68 65 61 64 65 72 0a 20 20 20 ┆te of the transaktion header ┆
0x3f5c0…3f5e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 65 6c 69 76 65 72 65 64 20 62 79 20 ┆ (delivered by ┆
0x3f5e0…3f600 77 61 69 74 74 72 61 6e 73 20 69 6e 3a 20 22 64 65 73 74 69 6e 61 74 69 00 00 00 00 00 00 00 00 ┆waittrans in: "destinati ┆
0x3f600…3f606 (507,) (0x2c0,0x7ed)
0x3f606…3f620 6f 6e 20 73 68 69 66 74 28 2d 31 32 29 65 78 74 72 61 63 74 20 31 32 22 29 0a ┆on shift(-12)extract 12") ┆
0x3f620…3f640 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 6f 74 20 6e 65 63 65 73 73 61 ┆ not necessa┆
0x3f640…3f660 72 69 6c 79 20 61 72 65 20 69 64 65 6e 74 69 63 61 6c 20 69 66 20 54 45 4d 20 69 73 20 65 6d 70 ┆rily are identical if TEM is emp┆
0x3f660…3f67e 6c 6f 79 65 64 2e 20 54 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 0a 20 20 20 20 20 20 20 20 20 ┆loyed. The following ┆
0x3f67e…3f684 (0x2c0,0x7ee)
0x3f684…3f6a0 20 20 20 20 20 20 20 20 20 20 20 20 61 6c 67 6f 72 69 74 68 6d 20 73 6f 6c 76 65 73 ┆ algorithm solves┆
0x3f6a0…3f6c0 20 74 68 65 20 70 72 6f 62 6c 65 6d 3a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ the problem: ┆
0x3f6c0…3f6e0 20 20 20 22 63 75 20 3a 3d 20 6c 6f 67 61 6e 64 20 28 63 75 2d 62 79 74 65 2c 20 65 78 6f 72 20 ┆ "cu := logand (cu-byte, exor ┆
0x3f6e0…3f6fc 28 4d 41 53 4b 2c 20 2d 31 29 29 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆(MASK, -1))" ┆
0x3f6fc…3f702 (0x2c0,0x7ef)
0x3f702…3f720 20 20 20 20 20 20 6f 72 3a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ or: ┆
0x3f720…3f740 20 22 63 75 20 3a 3d 20 6c 6f 67 61 6e 64 20 28 64 65 73 74 69 6e 61 74 69 6f 6e 20 73 68 69 66 ┆ "cu := logand (destination shif┆
0x3f740…3f760 74 28 2d 31 32 29 65 78 74 72 61 63 74 20 31 32 2c 20 65 78 6f 72 20 28 4d 41 53 4b 2c 20 2d 31 ┆t(-12)extract 12, exor (MASK, -1┆
0x3f760…3f77a 29 29 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 ┆))" w┆
0x3f77a…3f780 (0x2c0,0x7f0)
0x3f780…3f7a0 68 65 72 65 20 22 4d 41 53 4b 22 20 6d 75 73 74 20 62 65 20 69 64 65 6e 74 69 63 61 6c 20 74 6f ┆here "MASK" must be identical to┆
0x3f7a0…3f7c0 20 4d 41 53 4b 20 70 61 72 61 6d 65 74 65 72 20 6f 66 20 74 68 65 0a 20 20 20 20 20 20 20 20 20 ┆ MASK parameter of the ┆
0x3f7c0…3f7e0 20 20 20 20 20 20 20 20 20 20 20 20 22 63 72 65 61 74 65 6c 69 6e 6b 22 20 63 61 6c 6c 20 74 6f ┆ "createlink" call to┆
0x3f7e0…3f800 20 74 68 65 20 61 64 70 20 28 6f 75 74 70 75 74 29 20 64 65 76 69 63 65 00 00 00 00 00 00 00 00 ┆ the adp (output) device ┆
0x3f800…3f806 (508,) (0x2c0,0x7f1)
0x3f806…3f820 2e 0a 20 20 20 20 20 20 6d 61 73 6b 2c 20 73 75 62 73 74 3a 20 20 20 6d 75 73 ┆. mask, subst: mus┆
0x3f820…3f840 74 20 62 65 20 69 64 65 6e 74 69 63 61 6c 20 74 6f 20 74 68 65 20 22 6d 61 73 6b 22 20 61 6e 64 ┆t be identical to the "mask" and┆
0x3f840…3f860 20 22 73 75 62 73 74 22 20 70 61 72 61 6d 65 74 65 72 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ "subst" parameters ┆
0x3f860…3f87e 20 20 20 20 20 20 20 20 20 6f 66 20 74 68 65 20 22 63 72 65 61 74 65 6c 69 6e 6b 22 20 63 ┆ of the "createlink" c┆
0x3f87e…3f884 (0x2c0,0x7f2)
0x3f884…3f8a0 61 6c 6c 20 74 6f 20 74 68 65 20 61 64 70 20 28 6f 75 74 70 75 74 29 20 64 65 76 69 ┆all to the adp (output) devi┆
0x3f8a0…3f8c0 63 65 2e 0a 20 20 20 20 20 20 6e 6f 74 65 3a 20 20 20 20 20 20 20 20 20 20 69 66 20 74 65 6d 20 ┆ce. note: if tem ┆
0x3f8c0…3f8e0 69 73 20 6e 6f 74 20 65 6d 70 6c 6f 79 65 64 20 74 68 65 20 22 6d 61 73 6b 22 20 61 6e 64 20 22 ┆is not employed the "mask" and "┆
0x3f8e0…3f8fc 73 75 62 73 74 22 20 70 61 72 61 6d 65 74 65 72 73 20 68 61 76 65 0a 20 20 20 20 20 ┆subst" parameters have ┆
0x3f8fc…3f902 (0x2c0,0x7f3)
0x3f902…3f920 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 6f 20 73 69 67 6e 69 66 69 63 61 6e 63 ┆ no significanc┆
0x3f920…3f940 65 2e 0a 20 20 20 20 20 2a 3e 0a 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 69 6e 74 65 67 65 72 20 ┆e. *> begin integer ┆
0x3f940…3f960 69 2c 20 73 74 61 74 75 73 3b 0a 20 20 20 20 69 6e 74 65 67 65 72 20 61 72 72 61 79 20 7a 69 61 ┆i, status; integer array zia┆
0x3f960…3f97a 20 28 31 3a 32 30 29 2c 20 73 69 61 20 28 31 3a 31 32 29 3b 0a 20 20 20 20 6c ┆ (1:20), sia (1:12); l┆
0x3f97a…3f980 (0x2c0,0x7f4)
0x3f980…3f9a0 6f 6e 67 20 61 72 72 61 79 20 61 72 72 20 28 31 3a 32 29 3b 0a 20 20 20 20 7a 6f 6e 65 20 7a 5f ┆ong array arr (1:2); zone z_┆
0x3f9a0…3f9c0 61 64 70 20 28 31 2c 20 31 2c 20 73 74 64 65 72 72 6f 72 29 3b 0a 20 20 20 20 67 65 74 7a 6f 6e ┆adp (1, 1, stderror); getzon┆
0x3f9c0…3f9e0 65 20 28 7a 2c 20 7a 69 61 29 3b 0a 20 20 20 20 61 72 72 28 31 29 3a 3d 20 7a 69 61 28 32 29 3b ┆e (z, zia); arr(1):= zia(2);┆
0x3f9e0…3fa00 20 61 72 72 28 31 29 3a 3d 20 61 72 72 28 31 29 20 73 68 69 66 74 20 32 00 00 00 00 00 00 00 00 ┆ arr(1):= arr(1) shift 2 ┆
0x3fa00…3fa06 (509,) (0x2c0,0x7f5)
0x3fa06…3fa20 34 20 61 64 64 20 7a 69 61 28 33 29 3b 0a 20 20 20 20 61 72 72 28 32 29 3a 3d ┆4 add zia(3); arr(2):=┆
0x3fa20…3fa40 20 7a 69 61 28 34 29 3b 20 61 72 72 28 32 29 3a 3d 20 61 72 72 28 32 29 20 73 68 69 66 74 20 32 ┆ zia(4); arr(2):= arr(2) shift 2┆
0x3fa40…3fa60 34 20 61 64 64 20 7a 69 61 28 35 29 3b 0a 20 20 20 20 69 3a 3d 20 31 3b 0a 20 20 20 20 6f 70 65 ┆4 add zia(5); i:= 1; ope┆
0x3fa60…3fa7e 6e 20 28 7a 5f 61 64 70 2c 20 30 2c 20 73 74 72 69 6e 67 20 61 72 72 20 28 69 6e 63 72 65 ┆n (z_adp, 0, string arr (incre┆
0x3fa7e…3fa84 (0x2c0,0x7f6)
0x3fa84…3faa0 61 73 65 28 69 29 29 2c 30 29 3b 0a 20 20 20 20 67 65 74 73 68 61 72 65 20 28 7a 5f ┆ase(i)),0); getshare (z_┆
0x3faa0…3fac0 61 64 70 2c 20 73 69 61 2c 20 31 29 3b 0a 20 20 20 20 73 69 61 28 34 29 3a 3d 20 34 20 73 68 69 ┆adp, sia, 1); sia(4):= 4 shi┆
0x3fac0…3fae0 66 74 20 31 32 20 2b 20 31 36 3b 20 3c 2a 20 6f 70 65 72 61 74 69 6f 6e 3a 3d 20 72 65 73 65 72 ┆ft 12 + 16; <* operation:= reser┆
0x3fae0…3fafc 76 65 20 64 65 76 69 63 65 20 2a 3e 0a 20 20 20 20 73 69 61 28 36 29 3a 3d 20 63 75 ┆ve device *> sia(6):= cu┆
0x3fafc…3fb02 (0x2c0,0x7f7)
0x3fb02…3fb20 20 73 68 69 66 74 20 38 20 2b 20 64 65 76 69 63 65 3b 0a 20 20 20 20 73 69 61 28 31 31 29 ┆ shift 8 + device; sia(11)┆
0x3fb20…3fb40 3a 3d 20 28 6c 6f 67 61 6e 64 20 28 6d 61 73 6b 2c 20 73 75 62 73 74 29 29 73 68 69 66 74 20 38 ┆:= (logand (mask, subst))shift 8┆
0x3fb40…3fb60 3b 20 3c 2a 20 74 65 6d 20 61 64 64 72 65 73 73 69 6e 67 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 ┆; <* tem addressing information ┆
0x3fb60…3fb7a 2a 3e 0a 20 20 20 20 73 65 74 73 68 61 72 65 20 28 7a 5f 61 64 70 2c 20 73 69 ┆*> setshare (z_adp, si┆
0x3fb7a…3fb80 (0x2c0,0x7f8)
0x3fb80…3fba0 61 2c 20 31 29 3b 0a 20 20 20 20 6d 6f 6e 69 74 6f 72 20 28 31 36 29 73 65 6e 64 5f 6d 65 73 73 ┆a, 1); monitor (16)send_mess┆
0x3fba0…3fbc0 61 67 65 3a 28 7a 5f 61 64 70 2c 20 31 2c 20 73 69 61 29 3b 0a 20 20 20 20 73 74 61 74 75 73 3a ┆age:(z_adp, 1, sia); status:┆
0x3fbc0…3fbe0 3d 20 31 20 73 68 69 66 74 20 28 6d 6f 6e 69 74 6f 72 28 31 38 29 77 61 69 74 5f 61 6e 73 77 65 ┆= 1 shift (monitor(18)wait_answe┆
0x3fbe0…3fc00 72 3a 28 7a 5f 61 64 70 2c 31 2c 73 69 61 29 29 3b 0a 20 20 20 20 69 66 00 00 00 00 00 00 00 00 ┆r:(z_adp,1,sia)); if ┆
0x3fc00…3fc06 (510,) (0x2c0,0x7f9)
0x3fc06…3fc20 20 73 74 61 74 75 73 20 3d 20 32 20 74 68 65 6e 20 73 74 61 74 75 73 3a 3d 20 ┆ status = 2 then status:= ┆
0x3fc20…3fc40 73 74 61 74 75 73 2b 73 69 61 28 31 29 3b 0a 20 20 20 20 72 65 73 65 72 76 65 5f 64 65 76 69 63 ┆status+sia(1); reserve_devic┆
0x3fc40…3fc60 65 3a 3d 20 69 66 20 73 74 61 74 75 73 20 3d 20 32 20 74 68 65 6e 20 73 69 61 28 32 29 20 65 6c ┆e:= if status = 2 then sia(2) el┆
0x3fc60…3fc7e 73 65 20 2d 31 3b 0a 20 20 20 20 63 6c 6f 73 65 20 28 7a 5f 61 64 70 2c 20 66 61 6c 73 65 ┆se -1; close (z_adp, false┆
0x3fc7e…3fc84 (0x2c0,0x7fa)
0x3fc84…3fca0 29 3b 0a 20 20 65 6e 64 20 72 65 73 65 72 76 65 20 64 65 76 69 63 65 3b 0a 0a 0a 0a ┆); end reserve device; ┆
0x3fca0…3fcc0 20 20 69 6e 74 65 67 65 72 20 70 72 6f 63 65 64 75 72 65 20 72 65 6c 65 61 73 65 5f 64 65 76 69 ┆ integer procedure release_devi┆
0x3fcc0…3fce0 63 65 20 28 7a 2c 20 63 75 2c 20 64 65 76 69 63 65 2c 20 6d 61 73 6b 2c 20 73 75 62 73 74 29 3b ┆ce (z, cu, device, mask, subst);┆
0x3fce0…3fcfc 0a 20 20 76 61 6c 75 65 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ value ┆
0x3fcfc…3fd02 (0x2c0,0x7fb)
0x3fd02…3fd20 20 20 20 20 20 20 20 20 20 20 20 20 63 75 2c 20 64 65 76 69 63 65 2c 20 6d 61 73 6b 2c 20 ┆ cu, device, mask, ┆
0x3fd20…3fd40 73 75 62 73 74 20 3b 0a 20 20 7a 6f 6e 65 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆subst ; zone ┆
0x3fd40…3fd60 20 20 20 20 20 20 20 20 20 20 20 20 7a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ z ┆
0x3fd60…3fd7a 20 20 20 20 20 20 20 3b 0a 20 20 69 6e 74 65 67 65 72 20 20 20 20 20 20 20 20 ┆ ; integer ┆
0x3fd7a…3fd80 (0x2c0,0x7fc)
0x3fd80…3fda0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 75 2c 20 64 65 76 69 63 65 ┆ cu, device┆
0x3fda0…3fdc0 2c 20 6d 61 73 6b 2c 20 73 75 62 73 74 20 3b 0a 20 20 20 3c 2a 20 72 65 74 75 72 6e 20 76 61 6c ┆, mask, subst ; <* return val┆
0x3fdc0…3fde0 75 65 3a 20 20 69 73 20 74 61 6b 65 6e 20 66 72 6f 6d 20 74 68 65 20 72 65 73 75 6c 74 20 66 69 ┆ue: is taken from the result fi┆
0x3fde0…3fe00 65 6c 64 20 6f 66 20 74 68 65 20 61 64 70 20 61 6e 73 77 65 72 20 28 22 00 00 00 00 00 00 00 00 ┆eld of the adp answer (" ┆
0x3fe00…3fe06 (511,) (0x2c0,0x7fd)
0x3fe06…3fe20 61 6e 73 77 65 72 28 32 29 22 29 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆answer(2)"), ┆
0x3fe20…3fe40 20 20 20 20 20 20 20 20 69 66 20 22 6e 6f 72 6d 61 6c 20 61 6e 73 77 65 72 22 20 61 6e 64 20 22 ┆ if "normal answer" and "┆
0x3fe40…3fe60 73 74 61 74 75 73 3d 30 22 2c 20 65 6c 73 65 20 72 65 73 75 6c 74 20 69 73 20 73 65 74 20 74 6f ┆status=0", else result is set to┆
0x3fe60…3fe7e 20 22 2d 31 22 2e 0a 20 20 20 20 20 20 7a 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 75 ┆ "-1". z: mu┆
0x3fe7e…3fe84 (0x2c0,0x7fe)
0x3fe84…3fea0 73 74 20 62 65 20 6f 70 65 6e 65 64 20 74 6f 20 74 68 65 20 70 72 6f 63 65 73 73 20 ┆st be opened to the process ┆
0x3fea0…3fec0 28 22 74 65 6d 2d 70 6f 6f 6c 22 20 6f 72 20 65 78 74 65 72 6e 61 6c 20 70 72 6f 63 65 73 73 29 ┆("tem-pool" or external process)┆
0x3fec0…3fee0 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 68 72 6f 75 67 68 20 77 68 ┆ through wh┆
0x3fee0…3fefc 69 63 68 20 74 68 65 20 61 64 70 20 28 6f 75 74 70 75 74 29 20 70 72 6f 63 65 73 73 ┆ich the adp (output) process┆
0x3fefc…3ff02 (0x2c0,0x7ff)
0x3ff02…3ff20 20 69 73 20 61 63 63 65 73 73 65 64 2e 0a 20 20 20 20 20 20 63 75 2c 20 64 65 76 69 63 65 ┆ is accessed. cu, device┆
0x3ff20…3ff40 3a 20 20 20 20 64 65 76 69 63 65 20 61 64 64 72 65 73 73 69 6e 67 20 69 6e 66 6f 72 6d 61 74 69 ┆: device addressing informati┆
0x3ff40…3ff60 6f 6e 2c 20 70 6c 65 61 73 65 20 6e 6f 74 69 63 65 20 74 68 61 74 20 22 63 75 22 20 61 6e 64 0a ┆on, please notice that "cu" and ┆
0x3ff60…3ff7a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 68 65 20 76 ┆ the v┆
0x3ff7a…3ff80 (0x2c0,0x800)
0x3ff80…3ffa0 61 6c 75 65 20 6f 66 20 74 68 65 20 22 63 75 2d 62 79 74 65 22 20 62 79 74 65 20 6f 66 20 74 68 ┆alue of the "cu-byte" byte of th┆
0x3ffa0…3ffc0 65 20 74 72 61 6e 73 61 6b 74 69 6f 6e 20 68 65 61 64 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 ┆e transaktion header ┆
0x3ffc0…3ffe0 20 20 20 20 20 20 20 20 20 20 28 64 65 6c 69 76 65 72 65 64 20 62 79 20 77 61 69 74 74 72 61 6e ┆ (delivered by waittran┆
0x3ffe0…40000 73 20 69 6e 3a 20 22 64 65 73 74 69 6e 61 74 69 6f 6e 20 73 68 69 66 74 00 00 00 00 00 00 00 00 ┆s in: "destination shift ┆
0x40000…40006 (512,) (0x2c0,0x801)
0x40006…40020 28 2d 31 32 29 65 78 74 72 61 63 74 20 31 32 22 29 0a 20 20 20 20 20 20 20 20 ┆(-12)extract 12") ┆
0x40020…40040 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 6f 74 20 6e 65 63 65 73 73 61 72 69 6c 79 20 61 72 65 ┆ not necessarily are┆
0x40040…40060 20 69 64 65 6e 74 69 63 61 6c 20 69 66 20 54 45 4d 20 69 73 20 65 6d 70 6c 6f 79 65 64 2e 20 54 ┆ identical if TEM is employed. T┆
0x40060…4007e 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆he following ┆
0x4007e…40084 (0x2c0,0x802)
0x40084…400a0 20 20 20 20 61 6c 67 6f 72 69 74 68 6d 20 73 6f 6c 76 65 73 20 74 68 65 20 70 72 6f ┆ algorithm solves the pro┆
0x400a0…400c0 62 6c 65 6d 3a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 63 75 20 3a ┆blem: "cu :┆
0x400c0…400e0 3d 20 6c 6f 67 61 6e 64 20 28 63 75 2d 62 79 74 65 2c 20 65 78 6f 72 20 28 4d 41 53 4b 2c 20 2d ┆= logand (cu-byte, exor (MASK, -┆
0x400e0…400fc 31 29 29 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 72 ┆1))" or┆
0x400fc…40102 (0x2c0,0x803)
0x40102…40120 3a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 63 75 20 3a 3d 20 ┆: "cu := ┆
0x40120…40140 6c 6f 67 61 6e 64 20 28 64 65 73 74 69 6e 61 74 69 6f 6e 20 73 68 69 66 74 28 2d 31 32 29 65 78 ┆logand (destination shift(-12)ex┆
0x40140…40160 74 72 61 63 74 20 31 32 2c 20 65 78 6f 72 20 28 4d 41 53 4b 2c 20 2d 31 29 29 22 0a 20 20 20 20 ┆tract 12, exor (MASK, -1))" ┆
0x40160…4017a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 68 65 72 65 20 22 4d 41 ┆ where "MA┆
0x4017a…40180 (0x2c0,0x804)
0x40180…401a0 53 4b 22 20 6d 75 73 74 20 62 65 20 69 64 65 6e 74 69 63 61 6c 20 74 6f 20 4d 41 53 4b 20 70 61 ┆SK" must be identical to MASK pa┆
0x401a0…401c0 72 61 6d 65 74 65 72 20 6f 66 20 74 68 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆rameter of the ┆
0x401c0…401e0 20 20 20 20 22 63 72 65 61 74 65 6c 69 6e 6b 22 20 63 61 6c 6c 20 74 6f 20 74 68 65 20 61 64 70 ┆ "createlink" call to the adp┆
0x401e0…40200 20 28 6f 75 74 70 75 74 29 20 64 65 76 69 63 65 2e 0a 20 20 20 20 20 6d 00 00 00 00 00 00 00 00 ┆ (output) device. m ┆
0x40200…40206 (513,) (0x2c0,0x805)
0x40206…40220 61 73 6b 2c 20 73 75 62 73 74 3a 20 20 20 20 6d 75 73 74 20 62 65 20 69 64 65 ┆ask, subst: must be ide┆
0x40220…40240 6e 74 69 63 61 6c 20 74 6f 20 74 68 65 20 22 6d 61 73 6b 22 20 61 6e 64 20 22 73 75 62 73 74 22 ┆ntical to the "mask" and "subst"┆
0x40240…40260 20 70 61 72 61 6d 65 74 65 72 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ parameters ┆
0x40260…4027e 20 6f 66 20 74 68 65 20 22 63 72 65 61 74 65 6c 69 6e 6b 22 20 63 61 6c 6c 20 74 6f 20 74 ┆ of the "createlink" call to t┆
0x4027e…40284 (0x2c0,0x806)
0x40284…402a0 68 65 20 61 64 70 20 28 6f 75 74 70 75 74 29 20 64 65 76 69 63 65 2e 0a 20 20 20 20 ┆he adp (output) device. ┆
0x402a0…402c0 20 6e 6f 74 65 3a 20 20 20 20 20 20 20 20 20 20 20 69 66 20 74 65 6d 20 69 73 20 6e 6f 74 20 65 ┆ note: if tem is not e┆
0x402c0…402e0 6d 70 6c 6f 79 65 64 20 74 68 65 20 22 6d 61 73 6b 22 20 61 6e 64 20 22 73 75 62 73 74 22 20 70 ┆mployed the "mask" and "subst" p┆
0x402e0…402fc 61 72 61 6d 65 74 65 72 73 20 68 61 76 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆arameters have ┆
0x402fc…40302 (0x2c0,0x807)
0x40302…40320 20 20 20 20 20 20 20 20 6e 6f 20 73 69 67 6e 69 66 69 63 61 6e 63 65 2e 0a 20 20 20 20 20 ┆ no significance. ┆
0x40320…40340 2a 3e 0a 0a 20 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 69 6e 74 65 67 65 72 20 69 2c 20 73 74 61 ┆*> begin integer i, sta┆
0x40340…40360 74 75 73 3b 0a 20 20 20 20 69 6e 74 65 67 65 72 20 61 72 72 61 79 20 7a 69 61 20 28 31 3a 32 30 ┆tus; integer array zia (1:20┆
0x40360…4037a 29 2c 20 73 69 61 20 28 31 3a 31 32 29 3b 0a 20 20 20 20 6c 6f 6e 67 20 61 72 ┆), sia (1:12); long ar┆
0x4037a…40380 (0x2c0,0x808)
0x40380…403a0 72 61 79 20 61 72 72 20 28 31 3a 32 29 3b 0a 20 20 20 20 7a 6f 6e 65 20 7a 5f 61 64 70 20 28 31 ┆ray arr (1:2); zone z_adp (1┆
0x403a0…403c0 2c 20 31 2c 20 73 74 64 65 72 72 6f 72 29 3b 0a 20 20 20 20 67 65 74 7a 6f 6e 65 20 28 7a 2c 20 ┆, 1, stderror); getzone (z, ┆
0x403c0…403e0 7a 69 61 29 3b 0a 20 20 20 20 61 72 72 28 31 29 3a 3d 20 7a 69 61 28 32 29 3b 20 61 72 72 28 31 ┆zia); arr(1):= zia(2); arr(1┆
0x403e0…40400 29 3a 3d 20 61 72 72 28 31 29 20 73 68 69 66 74 20 32 34 20 61 64 64 20 00 00 00 00 00 00 00 00 ┆):= arr(1) shift 24 add ┆
0x40400…40406 (514,) (0x2c0,0x809)
0x40406…40420 7a 69 61 28 33 29 3b 0a 20 20 20 20 61 72 72 28 32 29 3a 3d 20 7a 69 61 28 34 ┆zia(3); arr(2):= zia(4┆
0x40420…40440 29 3b 20 61 72 72 28 32 29 3a 3d 20 61 72 72 28 32 29 20 73 68 69 66 74 20 32 34 20 61 64 64 20 ┆); arr(2):= arr(2) shift 24 add ┆
0x40440…40460 7a 69 61 28 35 29 3b 0a 20 20 20 20 69 3a 3d 20 31 3b 0a 20 20 20 20 6f 70 65 6e 20 28 7a 5f 61 ┆zia(5); i:= 1; open (z_a┆
0x40460…4047e 64 70 2c 20 30 2c 20 73 74 72 69 6e 67 20 61 72 72 20 28 69 6e 63 72 65 61 73 65 28 69 29 ┆dp, 0, string arr (increase(i)┆
0x4047e…40484 (0x2c0,0x80a)
0x40484…404a0 29 2c 30 29 3b 0a 20 20 20 20 67 65 74 73 68 61 72 65 20 28 7a 5f 61 64 70 2c 20 73 ┆),0); getshare (z_adp, s┆
0x404a0…404c0 69 61 2c 20 31 29 3b 0a 20 20 20 20 73 69 61 28 34 29 3a 3d 20 34 20 73 68 69 66 74 20 31 32 20 ┆ia, 1); sia(4):= 4 shift 12 ┆
0x404c0…404e0 2b 20 32 30 3b 20 3c 2a 20 6f 70 65 72 61 74 69 6f 6e 3a 3d 20 72 65 6c 65 61 73 65 20 64 65 76 ┆+ 20; <* operation:= release dev┆
0x404e0…404fc 69 63 65 20 2a 3e 0a 20 20 20 20 73 69 61 28 36 29 3a 3d 20 63 75 20 73 68 69 66 74 ┆ice *> sia(6):= cu shift┆
0x404fc…40502 (0x2c0,0x80b)
0x40502…40520 20 38 20 2b 20 64 65 76 69 63 65 3b 0a 20 20 20 20 73 69 61 28 31 31 29 3a 3d 20 28 6c 6f ┆ 8 + device; sia(11):= (lo┆
0x40520…40540 67 61 6e 64 20 28 6d 61 73 6b 2c 20 73 75 62 73 74 29 29 73 68 69 66 74 20 38 3b 20 3c 2a 20 74 ┆gand (mask, subst))shift 8; <* t┆
0x40540…40560 65 6d 20 61 64 64 72 65 73 73 69 6e 67 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 2a 3e 0a 20 20 20 ┆em addressing information *> ┆
0x40560…4057a 20 73 65 74 73 68 61 72 65 20 28 7a 5f 61 64 70 2c 20 73 69 61 2c 20 31 29 3b ┆ setshare (z_adp, sia, 1);┆
0x4057a…40580 (0x2c0,0x80c)
0x40580…405a0 0a 20 20 20 20 6d 6f 6e 69 74 6f 72 20 28 31 36 29 73 65 6e 64 5f 6d 65 73 73 61 67 65 3a 28 7a ┆ monitor (16)send_message:(z┆
0x405a0…405c0 5f 61 64 70 2c 20 31 2c 20 73 69 61 29 3b 0a 20 20 20 20 73 74 61 74 75 73 3a 3d 20 31 20 73 68 ┆_adp, 1, sia); status:= 1 sh┆
0x405c0…405e0 69 66 74 20 28 6d 6f 6e 69 74 6f 72 28 31 38 29 77 61 69 74 5f 61 6e 73 77 65 72 3a 28 7a 5f 61 ┆ift (monitor(18)wait_answer:(z_a┆
0x405e0…40600 64 70 2c 31 2c 73 69 61 29 29 3b 0a 20 20 20 20 69 66 20 73 74 61 74 75 00 00 00 00 00 00 00 00 ┆dp,1,sia)); if statu ┆
0x40600…40606 (515,) (0x2c0,0x80d)
0x40606…40620 73 20 3d 20 32 20 74 68 65 6e 20 73 74 61 74 75 73 3a 3d 20 73 74 61 74 75 73 ┆s = 2 then status:= status┆
0x40620…40640 2b 73 69 61 28 31 29 3b 0a 20 20 20 20 72 65 6c 65 61 73 65 5f 64 65 76 69 63 65 3a 3d 20 69 66 ┆+sia(1); release_device:= if┆
0x40640…40660 20 73 74 61 74 75 73 20 3d 20 32 20 74 68 65 6e 20 73 69 61 28 32 29 20 65 6c 73 65 20 2d 31 3b ┆ status = 2 then sia(2) else -1;┆
0x40660…4067e 0a 20 20 20 20 63 6c 6f 73 65 20 28 7a 5f 61 64 70 2c 20 66 61 6c 73 65 29 3b 0a 20 20 65 ┆ close (z_adp, false); e┆
0x4067e…40684 (0x2c0,0x80e)
0x40684…406a0 6e 64 20 72 65 6c 65 61 73 65 20 64 65 76 69 63 65 3b 0a 0a 0a 0a 0a 20 20 69 6e 74 ┆nd release device; int┆
0x406a0…406c0 65 67 65 72 20 70 72 6f 63 65 64 75 72 65 20 77 61 69 74 5f 72 65 61 64 79 20 28 7a 2c 20 63 75 ┆eger procedure wait_ready (z, cu┆
0x406c0…406e0 2c 20 64 65 76 69 63 65 2c 20 6d 61 73 6b 2c 20 73 75 62 73 74 29 3b 0a 20 20 76 61 6c 75 65 20 ┆, device, mask, subst); value ┆
0x406e0…406fc 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 63 ┆ c┆
0x406fc…40702 (0x2c0,0x80f)
0x40702…40720 75 2c 20 64 65 76 69 63 65 2c 20 6d 61 73 6b 2c 20 73 75 62 73 74 20 3b 0a 20 20 7a 6f 6e ┆u, device, mask, subst ; zon┆
0x40720…40740 65 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 7a 20 20 20 20 ┆e z ┆
0x40740…40760 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 0a 20 20 69 6e 74 65 67 65 ┆ ; intege┆
0x40760…4077a 72 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 ┆r ┆
0x4077a…40780 (0x2c0,0x810)
0x40780…407a0 20 63 75 2c 20 64 65 76 69 63 65 2c 20 6d 61 73 6b 2c 20 73 75 62 73 74 20 3b 0a 20 20 20 3c 2a ┆ cu, device, mask, subst ; <*┆
0x407a0…407c0 20 72 65 74 75 72 6e 20 76 61 6c 75 65 3a 20 20 69 73 20 74 61 6b 65 6e 20 66 72 6f 6d 20 74 68 ┆ return value: is taken from th┆
0x407c0…407e0 65 20 72 65 73 75 6c 74 20 66 69 65 6c 64 20 6f 66 20 74 68 65 20 61 64 70 20 61 6e 73 77 65 72 ┆e result field of the adp answer┆
0x407e0…40800 20 28 22 61 6e 73 77 65 72 28 32 29 22 29 2c 0a 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ ("answer(2)"), ┆
0x40800…40806 (516,) (0x2c0,0x811)
0x40806…40820 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 22 6e 6f 72 6d 61 6c 20 61 6e ┆ if "normal an┆
0x40820…40840 73 77 65 72 22 20 61 6e 64 20 22 73 74 61 74 75 73 3d 30 22 2c 20 65 6c 73 65 20 72 65 73 75 6c ┆swer" and "status=0", else resul┆
0x40840…40860 74 20 69 73 20 73 65 74 20 74 6f 20 22 2d 31 22 2e 0a 20 20 20 20 20 20 7a 3a 20 20 20 20 20 20 ┆t is set to "-1". z: ┆
0x40860…4087e 20 20 20 20 20 20 20 6d 75 73 74 20 62 65 20 6f 70 65 6e 65 64 20 74 6f 20 74 68 65 20 70 ┆ must be opened to the p┆
0x4087e…40884 (0x2c0,0x812)
0x40884…408a0 72 6f 63 65 73 73 20 28 22 74 65 6d 2d 70 6f 6f 6c 22 20 6f 72 20 65 78 74 65 72 6e ┆rocess ("tem-pool" or extern┆
0x408a0…408c0 61 6c 20 70 72 6f 63 65 73 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆al process) ┆
0x408c0…408e0 20 74 68 72 6f 75 67 68 20 77 68 69 63 68 20 74 68 65 20 61 64 70 20 28 6f 75 74 70 75 74 29 20 ┆ through which the adp (output) ┆
0x408e0…408fc 70 72 6f 63 65 73 73 20 69 73 20 61 63 63 65 73 73 65 64 2e 0a 20 20 20 20 20 20 63 ┆process is accessed. c┆
0x408fc…40902 (0x2c0,0x813)
0x40902…40920 75 2c 20 64 65 76 69 63 65 3a 20 20 20 20 64 65 76 69 63 65 20 61 64 64 72 65 73 73 69 6e ┆u, device: device addressin┆
0x40920…40940 67 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 2c 20 70 6c 65 61 73 65 20 6e 6f 74 69 63 65 20 74 68 61 ┆g information, please notice tha┆
0x40940…40960 74 20 22 63 75 22 20 61 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆t "cu" and ┆
0x40960…4097a 74 68 65 20 76 61 6c 75 65 20 6f 66 20 74 68 65 20 22 63 75 2d 62 79 74 65 22 ┆the value of the "cu-byte"┆
0x4097a…40980 (0x2c0,0x814)
0x40980…409a0 20 62 79 74 65 20 6f 66 20 74 68 65 20 74 72 61 6e 73 61 6b 74 69 6f 6e 20 68 65 61 64 65 72 0a ┆ byte of the transaktion header ┆
0x409a0…409c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 65 6c 69 76 65 72 65 64 20 ┆ (delivered ┆
0x409c0…409e0 62 79 20 77 61 69 74 74 72 61 6e 73 20 69 6e 3a 20 22 64 65 73 74 69 6e 61 74 69 6f 6e 20 73 68 ┆by waittrans in: "destination sh┆
0x409e0…40a00 69 66 74 28 2d 31 32 29 65 78 74 72 61 63 74 20 31 32 22 29 0a 20 20 20 00 00 00 00 00 00 00 00 ┆ift(-12)extract 12") ┆
0x40a00…40a06 (517,) (0x2c0,0x815)
0x40a06…40a20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 6f 74 20 6e 65 63 65 ┆ not nece┆
0x40a20…40a40 73 73 61 72 69 6c 79 20 61 72 65 20 69 64 65 6e 74 69 63 61 6c 20 69 66 20 54 45 4d 20 69 73 20 ┆ssarily are identical if TEM is ┆
0x40a40…40a60 65 6d 70 6c 6f 79 65 64 2e 20 54 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 0a 20 20 20 20 20 20 20 20 ┆employed. The following ┆
0x40a60…40a7e 20 20 20 20 20 20 20 20 20 20 20 20 20 61 6c 67 6f 72 69 74 68 6d 20 73 6f 6c 76 65 73 20 ┆ algorithm solves ┆
0x40a7e…40a84 (0x2c0,0x816)
0x40a84…40aa0 74 68 65 20 70 72 6f 62 6c 65 6d 3a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆the problem: ┆
0x40aa0…40ac0 20 20 20 20 20 20 22 63 75 20 3a 3d 20 6c 6f 67 61 6e 64 20 28 63 75 2d 62 79 74 65 2c 20 65 78 ┆ "cu := logand (cu-byte, ex┆
0x40ac0…40ae0 6f 72 20 28 4d 41 53 4b 2c 20 2d 31 29 29 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆or (MASK, -1))" ┆
0x40ae0…40afc 20 20 20 20 20 6f 72 3a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ or: ┆
0x40afc…40b02 (0x2c0,0x817)
0x40b02…40b20 20 20 22 63 75 20 3a 3d 20 6c 6f 67 61 6e 64 20 28 64 65 73 74 69 6e 61 74 69 6f 6e 20 73 ┆ "cu := logand (destination s┆
0x40b20…40b40 68 69 66 74 28 2d 31 32 29 65 78 74 72 61 63 74 20 31 32 2c 20 65 78 6f 72 20 28 4d 41 53 4b 2c ┆hift(-12)extract 12, exor (MASK,┆
0x40b40…40b60 20 2d 31 29 29 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 68 65 72 ┆ -1))" wher┆
0x40b60…40b7a 65 20 22 4d 41 53 4b 22 20 6d 75 73 74 20 62 65 20 69 64 65 6e 74 69 63 61 6c ┆e "MASK" must be identical┆
0x40b7a…40b80 (0x2c0,0x818)
0x40b80…40ba0 20 74 6f 20 4d 41 53 4b 20 70 61 72 61 6d 65 74 65 72 20 6f 66 20 74 68 65 0a 20 20 20 20 20 20 ┆ to MASK parameter of the ┆
0x40ba0…40bc0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 63 72 65 61 74 65 6c 69 6e 6b 22 20 63 61 6c 6c ┆ "createlink" call┆
0x40bc0…40be0 20 74 6f 20 74 68 65 20 61 64 70 20 28 6f 75 74 70 75 74 29 20 64 65 76 69 63 65 2e 0a 20 20 20 ┆ to the adp (output) device. ┆
0x40be0…40c00 20 20 6d 61 73 6b 2c 20 73 75 62 73 74 3a 20 20 20 20 6d 75 73 74 20 62 00 00 00 00 00 00 00 00 ┆ mask, subst: must b ┆
0x40c00…40c06 (518,) (0x2c0,0x819)
0x40c06…40c20 65 20 69 64 65 6e 74 69 63 61 6c 20 74 6f 20 74 68 65 20 22 6d 61 73 6b 22 20 ┆e identical to the "mask" ┆
0x40c20…40c40 61 6e 64 20 22 73 75 62 73 74 22 20 70 61 72 61 6d 65 74 65 72 73 0a 20 20 20 20 20 20 20 20 20 ┆and "subst" parameters ┆
0x40c40…40c60 20 20 20 20 20 20 20 20 20 20 20 20 6f 66 20 74 68 65 20 22 63 72 65 61 74 65 6c 69 6e 6b 22 20 ┆ of the "createlink" ┆
0x40c60…40c7e 63 61 6c 6c 20 74 6f 20 74 68 65 20 61 64 70 20 28 6f 75 74 70 75 74 29 20 64 65 76 69 63 ┆call to the adp (output) devic┆
0x40c7e…40c84 (0x2c0,0x81a)
0x40c84…40ca0 65 2e 0a 20 20 20 20 20 6e 6f 74 65 3a 20 20 20 20 20 20 20 20 20 20 20 69 66 20 74 ┆e. note: if t┆
0x40ca0…40cc0 65 6d 20 69 73 20 6e 6f 74 20 65 6d 70 6c 6f 79 65 64 20 74 68 65 20 22 6d 61 73 6b 22 20 61 6e ┆em is not employed the "mask" an┆
0x40cc0…40ce0 64 20 22 73 75 62 73 74 22 20 70 61 72 61 6d 65 74 65 72 73 20 68 61 76 65 0a 20 20 20 20 20 20 ┆d "subst" parameters have ┆
0x40ce0…40cfc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 6f 20 73 69 67 6e 69 66 69 63 61 6e ┆ no significan┆
0x40cfc…40d02 (0x2c0,0x81b)
0x40d02…40d20 63 65 2e 0a 20 20 20 20 20 2a 3e 0a 0a 20 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 69 6e 74 ┆ce. *> begin int┆
0x40d20…40d40 65 67 65 72 20 69 2c 20 73 74 61 74 75 73 3b 0a 20 20 20 20 69 6e 74 65 67 65 72 20 61 72 72 61 ┆eger i, status; integer arra┆
0x40d40…40d60 79 20 7a 69 61 20 28 31 3a 32 30 29 2c 20 73 69 61 20 28 31 3a 31 32 29 3b 0a 20 20 20 20 6c 6f ┆y zia (1:20), sia (1:12); lo┆
0x40d60…40d7a 6e 67 20 61 72 72 61 79 20 61 72 72 20 28 31 3a 32 29 3b 0a 20 20 20 20 7a 6f ┆ng array arr (1:2); zo┆
0x40d7a…40d80 (0x2c0,0x81c)
0x40d80…40da0 6e 65 20 7a 5f 61 64 70 20 28 31 2c 20 31 2c 20 73 74 64 65 72 72 6f 72 29 3b 0a 20 20 20 20 67 ┆ne z_adp (1, 1, stderror); g┆
0x40da0…40dc0 65 74 7a 6f 6e 65 20 28 7a 2c 20 7a 69 61 29 3b 0a 20 20 20 20 61 72 72 28 31 29 3a 3d 20 7a 69 ┆etzone (z, zia); arr(1):= zi┆
0x40dc0…40de0 61 28 32 29 3b 20 61 72 72 28 31 29 3a 3d 20 61 72 72 28 31 29 20 73 68 69 66 74 20 32 34 20 61 ┆a(2); arr(1):= arr(1) shift 24 a┆
0x40de0…40e00 64 64 20 7a 69 61 28 33 29 3b 0a 20 20 20 20 61 72 72 28 32 29 3a 3d 20 00 00 00 00 00 00 00 00 ┆dd zia(3); arr(2):= ┆
0x40e00…40e06 (519,) (0x2c0,0x81d)
0x40e06…40e20 7a 69 61 28 34 29 3b 20 61 72 72 28 32 29 3a 3d 20 61 72 72 28 32 29 20 73 68 ┆zia(4); arr(2):= arr(2) sh┆
0x40e20…40e40 69 66 74 20 32 34 20 61 64 64 20 7a 69 61 28 35 29 3b 0a 20 20 20 20 69 3a 3d 20 31 3b 0a 20 20 ┆ift 24 add zia(5); i:= 1; ┆
0x40e40…40e60 20 20 6f 70 65 6e 20 28 7a 5f 61 64 70 2c 20 30 2c 20 73 74 72 69 6e 67 20 61 72 72 20 28 69 6e ┆ open (z_adp, 0, string arr (in┆
0x40e60…40e7e 63 72 65 61 73 65 28 69 29 29 2c 30 29 3b 0a 20 20 20 20 67 65 74 73 68 61 72 65 20 28 7a ┆crease(i)),0); getshare (z┆
0x40e7e…40e84 (0x2c0,0x81e)
0x40e84…40ea0 5f 61 64 70 2c 20 73 69 61 2c 20 31 29 3b 0a 20 20 20 20 73 69 61 28 34 29 3a 3d 20 ┆_adp, sia, 1); sia(4):= ┆
0x40ea0…40ec0 34 20 73 68 69 66 74 20 31 32 20 2b 20 32 30 3b 20 3c 2a 20 6f 70 65 72 61 74 69 6f 6e 3a 3d 20 ┆4 shift 12 + 20; <* operation:= ┆
0x40ec0…40ee0 77 61 69 74 5f 72 65 61 64 79 20 2a 3e 0a 20 20 20 20 73 69 61 28 36 29 3a 3d 20 63 75 20 73 68 ┆wait_ready *> sia(6):= cu sh┆
0x40ee0…40efc 69 66 74 20 38 20 2b 20 64 65 76 69 63 65 3b 0a 20 20 20 20 73 69 61 28 31 31 29 3a ┆ift 8 + device; sia(11):┆
0x40efc…40f02 (0x2c0,0x81f)
0x40f02…40f20 3d 20 28 6c 6f 67 61 6e 64 20 28 6d 61 73 6b 2c 20 73 75 62 73 74 29 29 73 68 69 66 74 20 ┆= (logand (mask, subst))shift ┆
0x40f20…40f40 38 3b 20 3c 2a 20 74 65 6d 20 61 64 64 72 65 73 73 69 6e 67 20 69 6e 66 6f 72 6d 61 74 69 6f 6e ┆8; <* tem addressing information┆
0x40f40…40f60 20 2a 3e 0a 20 20 20 20 73 65 74 73 68 61 72 65 20 28 7a 5f 61 64 70 2c 20 73 69 61 2c 20 31 29 ┆ *> setshare (z_adp, sia, 1)┆
0x40f60…40f7a 3b 0a 20 20 20 20 6d 6f 6e 69 74 6f 72 20 28 31 36 29 73 65 6e 64 5f 6d 65 73 ┆; monitor (16)send_mes┆
0x40f7a…40f80 (0x2c0,0x820)
0x40f80…40fa0 73 61 67 65 3a 28 7a 5f 61 64 70 2c 20 31 2c 20 73 69 61 29 3b 0a 20 20 20 20 73 74 61 74 75 73 ┆sage:(z_adp, 1, sia); status┆
0x40fa0…40fc0 3a 3d 20 31 20 73 68 69 66 74 20 28 6d 6f 6e 69 74 6f 72 28 31 38 29 77 61 69 74 5f 61 6e 73 77 ┆:= 1 shift (monitor(18)wait_answ┆
0x40fc0…40fe0 65 72 3a 28 7a 5f 61 64 70 2c 31 2c 73 69 61 29 29 3b 0a 20 20 20 20 69 66 20 73 74 61 74 75 73 ┆er:(z_adp,1,sia)); if status┆
0x40fe0…41000 20 3d 20 32 20 74 68 65 6e 20 73 74 61 74 75 73 3a 3d 20 73 74 61 74 75 00 00 00 00 00 00 00 00 ┆ = 2 then status:= statu ┆
0x41000…41006 (520,) (0x2c0,0x821)
0x41006…41020 73 2b 73 69 61 28 31 29 3b 0a 20 20 20 20 77 61 69 74 5f 72 65 61 64 79 3a 3d ┆s+sia(1); wait_ready:=┆
0x41020…41040 20 69 66 20 73 74 61 74 75 73 20 3d 20 32 20 74 68 65 6e 20 73 69 61 28 32 29 20 65 6c 73 65 20 ┆ if status = 2 then sia(2) else ┆
0x41040…41060 2d 31 3b 0a 20 20 20 20 63 6c 6f 73 65 20 28 7a 5f 61 64 70 2c 20 66 61 6c 73 65 29 3b 0a 20 20 ┆-1; close (z_adp, false); ┆
0x41060…4107e 65 6e 64 20 77 61 69 74 5f 72 65 61 64 79 3b 0a 0a 27 2c 66 0a 0a 69 27 0a 0c 0a 3b 20 20 ┆end wait_ready; ',f i' ; ┆
0x4107e…41084 (0x2c0,0x822)
0x41084…410a0 20 20 20 20 20 20 20 20 20 20 20 2a 2a 2a 20 20 74 74 65 6d 74 65 73 74 20 20 2a 2a ┆ *** ttemtest **┆
0x410a0…410c0 2a 0a 3b 0a 3b 0a 3b 20 61 20 74 65 73 74 70 72 6f 67 72 61 6d 20 66 6f 72 20 73 69 6d 70 65 6c ┆* ; ; ; a testprogram for simpel┆
0x410c0…410e0 20 74 65 73 74 69 6e 67 20 6f 66 20 74 68 65 20 74 65 6d 20 73 79 73 74 65 6d 0a 3b 0a 3b 20 70 ┆ testing of the tem system ; ; p┆
0x410e0…410fc 72 6f 67 72 61 6d 20 63 61 6c 6c 3a 0a 3b 20 20 20 20 20 74 65 6d 74 65 73 74 20 74 ┆rogram call: ; temtest t┆
0x410fc…41102 (0x2c0,0x823)
0x41102…41120 65 72 6d 2e 3c 74 65 72 6d 69 6e 61 6c 6e 61 6d 65 2d 31 3e 2e 3c 74 65 72 6d 69 6e 61 6c ┆erm.<terminalname-1>.<terminal┆
0x41120…41140 6e 61 6d 65 2d 32 3e 2e 20 2e 2e 2e 20 20 3c 74 65 72 6d 69 6e 61 6c 6e 61 6d 65 2d 6e 3e 0a 3b ┆name-2>. ... <terminalname-n> ;┆
0x41140…41160 0a 3b 20 74 68 65 20 70 72 6f 67 72 61 6d 20 61 63 74 73 20 6c 69 6b 65 20 74 68 69 73 3a 0a 3b ┆ ; the program acts like this: ;┆
0x41160…4117a 0a 3b 20 20 20 20 20 63 72 65 61 74 65 20 74 65 72 6d 69 6e 61 6c 20 70 6f 6f ┆ ; create terminal poo┆
0x4117a…41180 (0x2c0,0x824)
0x41180…411a0 6c 0a 3b 20 20 20 20 20 63 72 65 61 74 65 20 6c 69 6e 6b 73 20 74 6f 20 61 6c 6c 20 74 65 72 6d ┆l ; create links to all term┆
0x411a0…411c0 69 6e 61 6c 73 20 73 70 65 63 69 66 69 65 64 20 69 6e 20 70 72 6f 67 72 61 6d 20 63 61 6c 6c 0a ┆inals specified in program call ┆
0x411c0…411e0 3b 20 6c 6f 6f 70 0a 3b 20 20 20 20 20 72 65 61 64 20 61 6e 20 69 6e 70 75 74 20 6c 69 6e 65 20 ┆; loop ; read an input line ┆
0x411e0…41200 66 72 6f 6d 20 61 20 63 6f 6e 6e 65 63 74 65 64 20 74 65 72 6d 69 6e 61 00 00 00 00 00 00 00 00 ┆from a connected termina ┆
0x41200…41206 (521,) (0x2c0,0x825)
0x41206…41220 6c 0a 3b 20 20 20 20 20 20 20 20 28 74 68 69 73 20 69 6e 70 75 74 20 6c 69 6e ┆l ; (this input lin┆
0x41220…41240 65 20 73 74 61 72 74 73 20 77 69 74 68 20 61 20 74 65 72 6d 69 6e 61 6c 20 6e 75 6d 62 65 72 29 ┆e starts with a terminal number)┆
0x41240…41260 0a 3b 20 20 20 20 20 69 6e 63 72 65 61 73 65 20 6c 69 6e 65 63 6f 75 6e 74 28 74 65 72 6d 69 6e ┆ ; increase linecount(termin┆
0x41260…4127e 61 6c 20 6e 75 6d 62 65 72 29 0a 3b 20 20 20 20 20 77 72 69 74 65 20 74 65 72 6d 69 6e 61 ┆al number) ; write termina┆
0x4127e…41284 (0x2c0,0x826)
0x41284…412a0 6c 20 69 64 65 6e 74 69 66 69 63 61 74 69 6f 6e 0a 3b 20 20 20 20 20 77 72 69 74 65 ┆l identification ; write┆
0x412a0…412c0 20 74 65 72 6d 69 6e 61 6c 20 6e 75 6d 62 65 72 0a 3b 20 20 20 20 20 77 72 69 74 65 20 6c 69 6e ┆ terminal number ; write lin┆
0x412c0…412e0 65 20 63 6f 75 6e 74 0a 3b 20 20 20 20 20 77 72 69 74 65 20 63 6f 6e 74 65 6e 74 20 6f 66 20 69 ┆e count ; write content of i┆
0x412e0…412fc 6e 70 75 74 20 6c 69 6e 65 0a 3b 20 20 20 20 20 67 6f 74 6f 20 6c 6f 6f 70 0a 0a 0a ┆nput line ; goto loop ┆
0x412fc…41302 (0x2c0,0x827)
0x41302…41320 62 65 67 69 6e 0a 20 20 7a 6f 6e 65 20 7a 28 32 36 2c 31 2c 73 74 64 65 72 72 6f 72 29 3b ┆begin zone z(26,1,stderror);┆
0x41320…41340 0a 20 20 69 6e 74 65 67 65 72 20 69 2c 61 63 74 69 76 65 74 65 72 6d 69 6e 61 6c 73 2c 6d 61 78 ┆ integer i,activeterminals,max┆
0x41340…41360 74 65 72 6d 69 6e 61 6c 73 2c 63 75 72 72 74 65 72 6d 69 6e 61 6c 2c 72 65 73 75 6c 74 2c 74 65 ┆terminals,currterminal,result,te┆
0x41360…4137a 72 6d 69 6e 61 6c 72 65 66 3b 0a 20 20 72 65 61 6c 20 61 72 72 61 79 20 61 72 ┆rminalref; real array ar┆
0x4137a…41380 (0x2c0,0x828)
0x41380…413a0 72 28 31 3a 32 29 3b 0a 0a 20 20 61 6c 67 6f 6c 20 63 6f 70 79 2e 31 3b 20 3c 2a 20 63 6f 70 79 ┆r(1:2); algol copy.1; <* copy┆
0x413a0…413c0 20 74 65 6d 20 70 72 6f 63 65 64 75 72 65 73 20 2a 3e 0a 0a 0a 20 20 3c 2a 20 20 20 63 72 65 61 ┆ tem procedures *> <* crea┆
0x413c0…413e0 74 65 20 74 65 72 6d 69 6e 61 6c 20 70 6f 6f 6c 20 20 20 2a 3e 0a 0a 20 20 6f 70 65 6e 28 7a 2c ┆te terminal pool *> open(z,┆
0x413e0…41400 38 2c 3c 3a 74 65 6d 3a 3e 2c 30 29 3b 0a 20 20 63 72 65 61 74 65 70 6f 00 00 00 00 00 00 00 00 ┆8,<:tem:>,0); createpo ┆
0x41400…41406 (522,) (0x2c0,0x829)
0x41406…41420 6f 6c 28 7a 29 3b 0a 20 20 6d 61 78 74 65 72 6d 69 6e 61 6c 73 3a 3d 61 63 74 ┆ol(z); maxterminals:=act┆
0x41420…41440 69 76 65 74 65 72 6d 69 6e 61 6c 73 3a 3d 30 3b 0a 0a 0a 20 20 3c 2a 20 20 20 63 6f 6e 6e 65 63 ┆iveterminals:=0; <* connec┆
0x41440…41460 74 20 61 6c 6c 20 74 65 72 6d 69 6e 61 6c 73 20 73 70 65 63 69 66 69 65 64 20 69 6e 20 70 72 6f ┆t all terminals specified in pro┆
0x41460…4147e 67 72 61 6d 20 63 61 6c 6c 20 20 20 2a 3e 0a 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 69 6e ┆gram call *> begin in┆
0x4147e…41484 (0x2c0,0x82a)
0x41484…414a0 74 65 67 65 72 20 6a 3b 0a 20 20 20 20 69 6e 74 65 67 65 72 20 61 72 72 61 79 20 69 ┆teger j; integer array i┆
0x414a0…414c0 61 28 31 3a 31 30 29 3b 0a 20 20 20 20 7a 6f 6e 65 20 64 75 6d 6d 79 28 31 2c 31 2c 73 74 64 65 ┆a(1:10); zone dummy(1,1,stde┆
0x414c0…414e0 72 72 6f 72 29 3b 0a 20 20 20 20 69 3a 3d 32 3b 0a 20 20 20 20 66 6f 72 20 69 3a 3d 69 20 77 68 ┆rror); i:=2; for i:=i wh┆
0x414e0…414fc 69 6c 65 20 73 79 73 74 65 6d 28 34 2c 69 2c 61 72 72 29 20 3d 20 38 20 73 68 69 66 ┆ile system(4,i,arr) = 8 shif┆
0x414fc…41502 (0x2c0,0x82b)
0x41502…41520 74 20 31 32 20 2b 20 31 30 20 64 6f 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 6d ┆t 12 + 10 do begin m┆
0x41520…41540 61 78 74 65 72 6d 69 6e 61 6c 73 3a 3d 6d 61 78 74 65 72 6d 69 6e 61 6c 73 2b 31 3b 0a 20 20 20 ┆axterminals:=maxterminals+1; ┆
0x41540…41560 20 20 20 6a 3a 3d 31 3b 0a 20 20 20 20 20 20 6f 70 65 6e 28 64 75 6d 6d 79 2c 30 2c 73 74 72 69 ┆ j:=1; open(dummy,0,stri┆
0x41560…4157a 6e 67 20 61 72 72 28 69 6e 63 72 65 61 73 65 28 6a 29 29 2c 30 29 3b 0a 20 20 ┆ng arr(increase(j)),0); ┆
0x4157a…41580 (0x2c0,0x82c)
0x41580…415a0 20 20 20 20 74 65 72 6d 69 6e 61 6c 72 65 66 3a 3d 6d 6f 6e 69 74 6f 72 28 34 2c 64 75 6d 6d 79 ┆ terminalref:=monitor(4,dummy┆
0x415a0…415c0 2c 30 2c 69 61 29 3b 0a 20 20 20 20 20 20 72 65 73 75 6c 74 3a 3d 63 72 65 61 74 65 6c 69 6e 6b ┆,0,ia); result:=createlink┆
0x415c0…415e0 28 7a 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 30 2c 74 65 72 6d 69 6e 61 6c 69 64 ┆(z, 0,terminalid┆
0x415e0…41600 28 6d 61 78 74 65 72 6d 69 6e 61 6c 73 29 2c 74 65 72 6d 69 6e 61 6c 72 00 00 00 00 00 00 00 00 ┆(maxterminals),terminalr ┆
0x41600…41606 (523,) (0x2c0,0x82d)
0x41606…41620 65 66 2c 31 2c 30 2c 30 2c 30 29 3b 0a 20 20 20 20 20 20 69 66 20 72 65 73 75 ┆ef,1,0,0,0); if resu┆
0x41620…41640 6c 74 20 3c 3e 20 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 3c ┆lt <> 0 then write(out,<┆
0x41640…41660 3a 3c 31 30 3e 63 72 65 61 74 65 6c 69 6e 6b 28 3a 3e 2c 3c 3c 64 3e 2c 74 65 72 6d 69 6e 61 6c ┆:<10>createlink(:>,<<d>,terminal┆
0x41660…4167e 72 65 66 2c 3c 3a 29 20 3d 20 3a 3e 2c 72 65 73 75 6c 74 29 20 65 6c 73 65 0a 20 20 20 20 ┆ref,<:) = :>,result) else ┆
0x4167e…41684 (0x2c0,0x82e)
0x41684…416a0 20 20 20 20 61 63 74 69 76 65 74 65 72 6d 69 6e 61 6c 73 3a 3d 61 63 74 69 76 65 74 ┆ activeterminals:=activet┆
0x416a0…416c0 65 72 6d 69 6e 61 6c 73 2b 31 3b 0a 20 20 20 20 20 20 69 3a 3d 69 2b 31 3b 0a 20 20 20 20 20 20 ┆erminals+1; i:=i+1; ┆
0x416c0…416e0 63 6c 6f 73 65 28 64 75 6d 6d 79 2c 74 72 75 65 29 3b 0a 20 20 20 20 65 6e 64 3b 0a 20 20 65 6e ┆close(dummy,true); end; en┆
0x416e0…416fc 64 3b 0a 20 20 69 66 20 61 63 74 69 76 65 74 65 72 6d 69 6e 61 6c 73 20 3c 20 31 20 ┆d; if activeterminals < 1 ┆
0x416fc…41702 (0x2c0,0x82f)
0x41702…41720 74 68 65 6e 20 67 6f 74 6f 20 73 74 6f 70 3b 0a 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 69 ┆then goto stop; begin i┆
0x41720…41740 6e 74 65 67 65 72 20 69 2c 6a 3b 0a 20 20 20 20 69 6e 74 65 67 65 72 20 61 72 72 61 79 20 6c 69 ┆nteger i,j; integer array li┆
0x41740…41760 6e 65 62 75 66 28 31 3a 31 30 30 29 2c 6c 69 6e 65 63 6f 75 6e 74 28 31 3a 6d 61 78 74 65 72 6d ┆nebuf(1:100),linecount(1:maxterm┆
0x41760…4177a 69 6e 61 6c 73 29 3b 0a 20 20 20 20 66 6f 72 20 69 3a 3d 31 20 73 74 65 70 20 ┆inals); for i:=1 step ┆
0x4177a…41780 (0x2c0,0x830)
0x41780…417a0 31 20 75 6e 74 69 6c 20 6d 61 78 74 65 72 6d 69 6e 61 6c 73 20 64 6f 20 6c 69 6e 65 63 6f 75 6e ┆1 until maxterminals do linecoun┆
0x417a0…417c0 74 28 69 29 3a 3d 30 3b 0a 0a 20 20 3c 2a 20 20 20 72 65 61 64 20 61 20 6c 69 6e 65 20 61 6e 64 ┆t(i):=0; <* read a line and┆
0x417c0…417e0 20 64 69 73 70 6c 61 79 20 69 74 20 6f 6e 20 63 6f 72 72 65 73 70 6f 6e 64 69 6e 67 20 74 65 72 ┆ display it on corresponding ter┆
0x417e0…41800 6d 69 6e 61 6c 20 20 20 2a 3e 0a 0a 6c 6f 6f 70 3a 0a 20 20 20 20 72 65 00 00 00 00 00 00 00 00 ┆minal *> loop: re ┆
0x41800…41806 (524,) (0x2c0,0x831)
0x41806…41820 61 64 28 7a 2c 63 75 72 72 74 65 72 6d 69 6e 61 6c 29 3b 0a 20 20 20 20 69 3a ┆ad(z,currterminal); i:┆
0x41820…41840 3d 31 3b 0a 20 20 20 20 66 6f 72 20 69 3a 3d 69 20 77 68 69 6c 65 20 72 65 61 64 63 68 61 72 28 ┆=1; for i:=i while readchar(┆
0x41840…41860 7a 2c 6c 69 6e 65 62 75 66 28 69 29 29 20 3c 3e 20 38 20 64 6f 20 69 3a 3d 69 2b 31 3b 0a 20 20 ┆z,linebuf(i)) <> 8 do i:=i+1; ┆
0x41860…4187e 20 20 73 65 74 70 6f 73 69 74 69 6f 6e 28 7a 2c 30 2c 30 29 3b 0a 20 20 20 20 6c 69 6e 65 ┆ setposition(z,0,0); line┆
0x4187e…41884 (0x2c0,0x832)
0x41884…418a0 63 6f 75 6e 74 28 63 75 72 72 74 65 72 6d 69 6e 61 6c 29 3a 3d 6c 69 6e 65 63 6f 75 ┆count(currterminal):=linecou┆
0x418a0…418c0 6e 74 28 63 75 72 72 74 65 72 6d 69 6e 61 6c 29 2b 31 3b 0a 20 20 20 20 77 72 69 74 65 28 7a 2c ┆nt(currterminal)+1; write(z,┆
0x418c0…418e0 3c 3c 7a 64 3e 2c 63 75 72 72 74 65 72 6d 69 6e 61 6c 2c 3c 3a 20 74 65 72 6d 20 3d 20 3a 3e 2c ┆<<zd>,currterminal,<: term = :>,┆
0x418e0…418fc 3c 3c 7a 64 3e 2c 63 75 72 72 74 65 72 6d 69 6e 61 6c 2c 0a 20 20 20 20 20 20 20 20 ┆<<zd>,currterminal, ┆
0x418fc…41902 (0x2c0,0x833)
0x41902…41920 20 20 20 20 20 20 20 20 20 20 20 20 3c 3a 20 6c 69 6e 65 20 3d 20 3a 3e 2c 3c 3c 64 64 64 ┆ <: line = :>,<<ddd┆
0x41920…41940 3e 2c 6c 69 6e 65 63 6f 75 6e 74 28 63 75 72 72 74 65 72 6d 69 6e 61 6c 29 2c 3c 3a 3a 20 3a 3e ┆>,linecount(currterminal),<:: :>┆
0x41940…41960 29 3b 0a 20 20 20 20 66 6f 72 20 6a 3a 3d 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 69 20 64 ┆); for j:=1 step 1 until i d┆
0x41960…4197a 6f 20 6f 75 74 63 68 61 72 28 7a 2c 6c 69 6e 65 62 75 66 28 6a 29 29 3b 0a 20 ┆o outchar(z,linebuf(j)); ┆
0x4197a…41980 (0x2c0,0x834)
0x41980…419a0 20 20 20 69 66 20 6c 69 6e 65 62 75 66 28 31 29 20 3d 20 34 32 20 74 68 65 6e 0a 20 20 20 20 62 ┆ if linebuf(1) = 42 then b┆
0x419a0…419c0 65 67 69 6e 20 20 20 3c 2a 20 20 20 61 20 20 73 74 61 72 20 20 69 6e 20 66 69 72 73 74 20 70 6f ┆egin <* a star in first po┆
0x419c0…419e0 73 69 74 69 6f 6e 20 6d 65 61 6e 73 20 6c 6f 67 6f 75 74 20 20 20 2a 3e 0a 20 20 20 20 20 20 77 ┆sition means logout *> w┆
0x419e0…41a00 72 69 74 65 28 7a 2c 3c 3a 74 65 72 6d 69 6e 61 6c 20 6c 6f 67 67 65 64 00 00 00 00 00 00 00 00 ┆rite(z,<:terminal logged ┆
0x41a00…41a06 (525,) (0x2c0,0x835)
0x41a06…41a20 20 6f 75 74 3c 31 30 3e 3a 3e 29 3b 0a 20 20 20 20 20 20 73 65 74 70 6f 73 69 ┆ out<10>:>); setposi┆
0x41a20…41a40 74 69 6f 6e 28 7a 2c 30 2c 30 29 3b 0a 20 20 20 20 20 20 72 65 6d 6f 76 65 6c 69 6e 6b 28 7a 2c ┆tion(z,0,0); removelink(z,┆
0x41a40…41a60 74 65 72 6d 69 6e 61 6c 69 64 28 63 75 72 72 74 65 72 6d 69 6e 61 6c 29 2c 66 61 6c 73 65 29 3b ┆terminalid(currterminal),false);┆
0x41a60…41a7e 0a 20 20 20 20 20 20 61 63 74 69 76 65 74 65 72 6d 69 6e 61 6c 73 3a 3d 61 63 74 69 76 65 ┆ activeterminals:=active┆
0x41a7e…41a84 (0x2c0,0x836)
0x41a84…41aa0 74 65 72 6d 69 6e 61 6c 73 2d 31 3b 0a 20 20 20 20 65 6e 64 3b 0a 0a 20 20 20 20 73 ┆terminals-1; end; s┆
0x41aa0…41ac0 65 74 70 6f 73 69 74 69 6f 6e 28 7a 2c 30 2c 30 29 3b 0a 20 20 20 20 69 66 20 61 63 74 69 76 65 ┆etposition(z,0,0); if active┆
0x41ac0…41ae0 74 65 72 6d 69 6e 61 6c 73 20 3e 20 30 20 74 68 65 6e 20 67 6f 74 6f 20 6c 6f 6f 70 3b 0a 20 20 ┆terminals > 0 then goto loop; ┆
0x41ae0…41afc 65 6e 64 3b 0a 0a 73 74 6f 70 3a 0a 20 20 72 65 6d 6f 76 65 70 6f 6f 6c 28 7a 29 3b ┆end; stop: removepool(z);┆
0x41afc…41b02 (0x2c0,0x837)
0x41b02…41b20 0a 0a 65 6e 64 0a 27 2c 66 0a 0a 69 27 0a 0a 0a 0c 0a 3b 20 20 20 20 20 20 20 20 20 20 20 ┆ end ',f i' ; ┆
0x41b20…41b40 20 20 2a 2a 2a 20 20 74 65 6d 20 73 65 6e 73 65 20 72 65 61 64 79 20 74 65 73 74 20 20 2a 2a 2a ┆ *** tem sense ready test ***┆
0x41b40…41b60 0a 3b 0a 3b 0a 3b 20 61 20 74 65 73 74 70 72 6f 67 72 61 6d 20 66 6f 72 20 73 69 6d 70 65 6c 20 ┆ ; ; ; a testprogram for simpel ┆
0x41b60…41b7a 74 65 73 74 69 6e 67 20 6f 66 20 74 68 65 20 74 65 6d 20 73 79 73 74 65 6d 0a ┆testing of the tem system ┆
0x41b7a…41b80 (0x2c0,0x838)
0x41b80…41ba0 3b 0a 3b 20 70 72 6f 67 72 61 6d 20 63 61 6c 6c 3a 0a 3b 20 20 20 20 20 3c 70 72 6f 67 72 61 6d ┆; ; program call: ; <program┆
0x41ba0…41bc0 6e 61 6d 65 3e 0a 3b 0a 3b 20 74 68 65 20 70 72 6f 67 72 61 6d 20 61 63 74 73 20 6c 69 6b 65 20 ┆name> ; ; the program acts like ┆
0x41bc0…41be0 74 68 69 73 3a 0a 3b 0a 3b 20 20 20 20 20 63 72 65 61 74 65 20 74 65 72 6d 69 6e 61 6c 20 70 6f ┆this: ; ; create terminal po┆
0x41be0…41c00 6f 6c 0a 3b 20 6c 6f 6f 70 0a 20 20 20 20 20 20 77 61 69 74 20 61 74 74 00 00 00 00 00 00 00 00 ┆ol ; loop wait att ┆
0x41c00…41c06 (526,) (0x2c0,0x839)
0x41c06…41c20 65 6e 74 69 6f 6e 20 6f 72 20 69 6e 70 75 74 20 72 65 61 64 79 0a 20 20 20 20 ┆ention or input ready ┆
0x41c20…41c40 20 20 69 66 20 61 74 74 20 74 68 65 6e 20 6c 6f 67 69 6e 20 67 6f 74 6f 20 6c 6f 6f 70 0a 20 20 ┆ if att then login goto loop ┆
0x41c40…41c60 20 20 20 20 72 65 61 64 20 6c 69 6e 65 20 66 72 6f 6d 20 74 65 72 6d 69 6e 61 6c 0a 20 20 20 20 ┆ read line from terminal ┆
0x41c60…41c7e 20 20 77 72 69 74 65 20 74 65 72 6d 69 6e 61 6c 20 6e 75 6d 62 65 72 20 61 6e 64 20 6c 69 ┆ write terminal number and li┆
0x41c7e…41c84 (0x2c0,0x83a)
0x41c84…41ca0 6e 65 20 6e 75 6d 62 65 72 0a 20 20 20 20 20 20 65 63 68 6f 20 69 6e 64 61 74 61 0a ┆ne number echo indata ┆
0x41ca0…41cc0 20 20 20 20 20 20 69 66 20 66 69 72 73 74 20 63 68 61 72 20 3d 20 2a 20 74 68 65 6e 20 6c 6f 67 ┆ if first char = * then log┆
0x41cc0…41ce0 6f 75 74 0a 20 20 20 20 20 20 67 6f 74 6f 20 6c 6f 6f 70 0a 0a 0a 62 65 67 69 6e 0a 20 20 69 6e ┆out goto loop begin in┆
0x41ce0…41cfc 74 65 67 65 72 20 6d 61 78 74 65 72 6d 69 6e 61 6c 73 3b 0a 0a 20 20 61 6c 67 6f 6c ┆teger maxterminals; algol┆
0x41cfc…41d02 (0x2c0,0x83b)
0x41d02…41d20 20 63 6f 70 79 2e 31 3b 20 3c 2a 20 63 6f 70 79 20 74 65 6d 20 70 72 6f 63 65 64 75 72 65 ┆ copy.1; <* copy tem procedure┆
0x41d20…41d40 73 20 2a 3e 0a 0a 0a 0a 20 20 6d 61 78 74 65 72 6d 69 6e 61 6c 73 3a 3d 20 31 30 3b 0a 0a 20 20 ┆s *> maxterminals:= 10; ┆
0x41d40…41d60 62 65 67 69 6e 0a 20 20 20 20 62 6f 6f 6c 65 61 6e 20 61 72 72 61 79 20 70 61 73 73 69 76 65 74 ┆begin boolean array passivet┆
0x41d60…41d7a 65 72 6d 28 31 3a 6d 61 78 74 65 72 6d 69 6e 61 6c 73 29 3b 0a 20 20 20 20 69 ┆erm(1:maxterminals); i┆
0x41d7a…41d80 (0x2c0,0x83c)
0x41d80…41da0 6e 74 65 67 65 72 20 61 72 72 61 79 20 6c 69 6e 65 62 75 66 28 31 3a 31 30 30 29 2c 6c 69 6e 65 ┆nteger array linebuf(1:100),line┆
0x41da0…41dc0 63 6f 75 6e 74 28 31 3a 6d 61 78 74 65 72 6d 69 6e 61 6c 73 29 3b 0a 20 20 20 20 7a 6f 6e 65 20 ┆count(1:maxterminals); zone ┆
0x41dc0…41de0 7a 69 6e 28 32 36 2c 31 2c 65 6e 64 6f 66 64 61 74 61 29 2c 7a 6f 75 74 28 32 36 2c 31 2c 73 74 ┆zin(26,1,endofdata),zout(26,1,st┆
0x41de0…41e00 64 65 72 72 6f 72 29 2c 0a 20 20 20 20 20 20 20 20 20 73 65 6e 73 65 72 00 00 00 00 00 00 00 00 ┆derror), senser ┆
0x41e00…41e06 (527,) (0x2c0,0x83d)
0x41e06…41e20 65 61 64 79 2c 20 7a 68 65 6c 70 28 31 2c 31 2c 73 74 64 65 72 72 6f 72 29 3b ┆eady, zhelp(1,1,stderror);┆
0x41e20…41e40 0a 20 20 20 20 69 6e 74 65 67 65 72 20 69 2c 6a 2c 61 63 74 69 76 65 74 65 72 6d 69 6e 61 6c 73 ┆ integer i,j,activeterminals┆
0x41e40…41e60 2c 63 75 72 72 74 65 72 6d 69 6e 61 6c 2c 72 65 73 75 6c 74 2c 0a 20 20 20 20 20 20 20 20 20 20 ┆,currterminal,result, ┆
0x41e60…41e7e 20 20 74 65 72 6d 69 6e 61 6c 72 65 66 2c 62 75 66 66 65 72 62 61 73 65 3b 0a 20 20 20 20 ┆ terminalref,bufferbase; ┆
0x41e7e…41e84 (0x2c0,0x83e)
0x41e84…41ea0 62 6f 6f 6c 65 61 6e 20 70 6f 6f 6c 73 65 6e 73 65 64 3b 0a 20 20 20 20 69 6e 74 65 ┆boolean poolsensed; inte┆
0x41ea0…41ec0 67 65 72 20 61 72 72 61 79 20 69 61 28 31 3a 32 30 29 3b 0a 0a 0a 0a 20 20 20 20 70 72 6f 63 65 ┆ger array ia(1:20); proce┆
0x41ec0…41ee0 64 75 72 65 20 65 6e 64 6f 66 64 61 74 61 28 7a 2c 73 2c 62 29 3b 0a 20 20 20 20 7a 6f 6e 65 20 ┆dure endofdata(z,s,b); zone ┆
0x41ee0…41efc 7a 3b 0a 20 20 20 20 69 6e 74 65 67 65 72 20 73 2c 20 62 3b 0a 20 20 20 20 62 65 67 ┆z; integer s, b; beg┆
0x41efc…41f02 (0x2c0,0x83f)
0x41f02…41f20 69 6e 0a 20 20 20 20 20 20 69 66 20 62 3d 30 20 61 6e 64 20 73 3d 32 20 74 68 65 6e 0a 20 ┆in if b=0 and s=2 then ┆
0x41f20…41f40 20 20 20 20 20 67 6f 74 6f 20 63 65 6e 74 72 61 6c 77 61 69 74 3b 0a 20 20 20 20 65 6e 64 3b 0a ┆ goto centralwait; end; ┆
0x41f40…41f60 20 20 0a 20 20 3c 2a 20 63 72 65 61 74 65 20 74 65 72 6d 69 6e 61 6c 20 70 6f 6f 6c 20 2a 3e 0a ┆ <* create terminal pool *> ┆
0x41f60…41f7a 0a 0a 20 20 20 20 6f 70 65 6e 28 7a 69 6e 2c 38 2c 3c 3a 74 65 6d 3a 3e 2c 32 ┆ open(zin,8,<:tem:>,2┆
0x41f7a…41f80 (0x2c0,0x840)
0x41f80…41fa0 29 3b 0a 20 20 20 20 6f 70 65 6e 28 7a 6f 75 74 2c 38 2c 3c 3a 74 65 6d 3a 3e 2c 30 29 3b 0a 20 ┆); open(zout,8,<:tem:>,0); ┆
0x41fa0…41fc0 20 20 20 63 72 65 61 74 65 70 6f 6f 6c 28 7a 6f 75 74 29 3b 0a 20 20 20 20 6f 70 65 6e 28 7a 68 ┆ createpool(zout); open(zh┆
0x41fc0…41fe0 65 6c 70 2c 30 2c 3c 3a 3a 3e 2c 30 29 3b 0a 20 20 20 20 6f 70 65 6e 28 73 65 6e 73 65 72 65 61 ┆elp,0,<::>,0); open(senserea┆
0x41fe0…42000 64 79 2c 30 2c 3c 3a 74 65 6d 3a 3e 2c 30 29 3b 0a 20 20 20 20 67 65 74 00 00 00 00 00 00 00 00 ┆dy,0,<:tem:>,0); get ┆
0x42000…42006 (528,) (0x2c0,0x841)
0x42006…42020 73 68 61 72 65 36 28 73 65 6e 73 65 72 65 61 64 79 2c 69 61 2c 31 29 3b 0a 20 ┆share6(senseready,ia,1); ┆
0x42020…42040 20 20 20 69 61 28 34 29 3a 3d 20 30 20 73 68 69 66 74 20 31 32 20 2b 20 32 3b 20 3c 2a 20 70 72 ┆ ia(4):= 0 shift 12 + 2; <* pr┆
0x42040…42060 65 70 61 72 65 20 73 65 6e 73 65 20 72 65 61 64 79 20 6f 70 65 72 61 74 69 6f 6e 20 2a 3e 0a 20 ┆epare sense ready operation *> ┆
0x42060…4207e 20 20 20 73 65 74 73 68 61 72 65 36 28 73 65 6e 73 65 72 65 61 64 79 2c 69 61 2c 31 29 3b ┆ setshare6(senseready,ia,1);┆
0x4207e…42084 (0x2c0,0x842)
0x42084…420a0 0a 20 20 20 20 61 63 74 69 76 65 74 65 72 6d 69 6e 61 6c 73 3a 3d 20 30 3b 0a 20 20 ┆ activeterminals:= 0; ┆
0x420a0…420c0 20 20 62 75 66 66 65 72 62 61 73 65 3a 3d 20 30 3b 0a 20 20 20 20 70 6f 6f 6c 73 65 6e 73 65 64 ┆ bufferbase:= 0; poolsensed┆
0x420c0…420e0 3a 3d 20 66 61 6c 73 65 3b 0a 20 20 20 20 66 6f 72 20 69 3a 3d 20 31 20 73 74 65 70 20 31 20 75 ┆:= false; for i:= 1 step 1 u┆
0x420e0…420fc 6e 74 69 6c 20 6d 61 78 74 65 72 6d 69 6e 61 6c 73 20 64 6f 20 70 61 73 73 69 76 65 ┆ntil maxterminals do passive┆
0x420fc…42102 (0x2c0,0x843)
0x42102…42120 74 65 72 6d 28 69 29 3a 3d 20 74 72 75 65 3b 0a 0a 63 65 6e 74 72 61 6c 77 61 69 74 3a 0a ┆term(i):= true; centralwait: ┆
0x42120…42140 20 20 20 20 69 66 20 61 63 74 69 76 65 74 65 72 6d 69 6e 61 6c 73 3e 30 20 61 6e 64 20 2d 2c 70 ┆ if activeterminals>0 and -,p┆
0x42140…42160 6f 6f 6c 73 65 6e 73 65 64 20 74 68 65 6e 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 6d ┆oolsensed then begin m┆
0x42160…4217a 6f 6e 69 74 6f 72 28 31 36 29 20 73 65 6e 64 6d 65 73 73 61 67 65 3a 28 73 65 ┆onitor(16) sendmessage:(se┆
0x4217a…42180 (0x2c0,0x844)
0x42180…421a0 6e 73 65 72 65 61 64 79 2c 31 2c 69 61 29 3b 0a 20 20 20 20 20 20 70 6f 6f 6c 73 65 6e 73 65 64 ┆nseready,1,ia); poolsensed┆
0x421a0…421c0 3a 3d 20 74 72 75 65 3b 0a 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 69 3a 3d 20 62 75 66 66 65 72 ┆:= true; end; i:= buffer┆
0x421c0…421e0 62 61 73 65 3b 0a 0a 20 20 20 20 72 65 73 75 6c 74 3a 3d 20 6d 6f 6e 69 74 6f 72 28 32 34 29 77 ┆base; result:= monitor(24)w┆
0x421e0…42200 61 69 74 65 76 65 6e 74 3a 28 7a 68 65 6c 70 2c 69 2c 69 61 29 3b 0a 0a 00 00 00 00 00 00 00 00 ┆aitevent:(zhelp,i,ia); ┆
0x42200…42206 (529,) (0x2c0,0x845)
0x42206…42220 20 20 20 20 69 66 20 72 65 73 75 6c 74 3d 30 20 74 68 65 6e 0a 20 20 20 20 62 ┆ if result=0 then b┆
0x42220…42240 65 67 69 6e 20 3c 2a 20 28 61 74 74 65 6e 74 69 6f 6e 29 20 6d 65 73 73 61 67 65 20 61 72 72 69 ┆egin <* (attention) message arri┆
0x42240…42260 76 65 64 20 2a 3e 0a 20 20 20 20 20 20 69 66 20 69 61 28 31 29 3c 3e 30 20 74 68 65 6e 0a 20 20 ┆ved *> if ia(1)<>0 then ┆
0x42260…4227e 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 62 75 66 66 65 72 62 61 73 65 3a 3d ┆ begin bufferbase:=┆
0x4227e…42284 (0x2c0,0x846)
0x42284…422a0 20 69 3b 0a 20 20 20 20 20 20 20 20 67 6f 74 6f 20 63 65 6e 74 72 61 6c 77 61 69 74 ┆ i; goto centralwait┆
0x422a0…422c0 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 32 36 29 67 65 ┆; end; monitor(26)ge┆
0x422c0…422e0 74 20 65 76 65 6e 74 3a 28 7a 68 65 6c 70 2c 69 2c 69 61 29 3b 0a 20 20 20 20 20 20 69 61 28 39 ┆t event:(zhelp,i,ia); ia(9┆
0x422e0…422fc 29 3a 3d 20 31 3b 0a 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 32 32 29 20 73 65 6e ┆):= 1; monitor(22) sen┆
0x422fc…42302 (0x2c0,0x847)
0x42302…42320 64 20 61 6e 73 77 65 72 3a 28 7a 68 65 6c 70 2c 69 2c 69 61 29 3b 0a 20 20 20 20 20 20 74 ┆d answer:(zhelp,i,ia); t┆
0x42320…42340 65 72 6d 69 6e 61 6c 72 65 66 3a 3d 20 6d 6f 6e 69 74 6f 72 28 34 29 20 67 65 74 20 64 65 73 63 ┆erminalref:= monitor(4) get desc┆
0x42340…42360 72 69 70 74 69 6f 6e 3a 28 7a 68 65 6c 70 2c 30 2c 69 61 29 3b 0a 20 20 20 20 20 20 66 6f 72 20 ┆ription:(zhelp,0,ia); for ┆
0x42360…4237a 69 3a 3d 20 6d 61 78 74 65 72 6d 69 6e 61 6c 73 20 73 74 65 70 20 2d 31 20 75 ┆i:= maxterminals step -1 u┆
0x4237a…42380 (0x2c0,0x848)
0x42380…423a0 6e 74 69 6c 20 31 20 64 6f 0a 20 20 20 20 20 20 69 66 20 70 61 73 73 69 76 65 74 65 72 6d 28 69 ┆ntil 1 do if passiveterm(i┆
0x423a0…423c0 29 20 74 68 65 6e 20 63 75 72 72 74 65 72 6d 69 6e 61 6c 3a 3d 20 69 3b 20 3c 2a 20 66 69 6e 64 ┆) then currterminal:= i; <* find┆
0x423c0…423e0 20 66 72 65 65 20 74 65 72 6d 69 6e 61 6c 20 6e 6f 20 2a 3e 0a 20 20 20 20 20 20 72 65 73 75 6c ┆ free terminal no *> resul┆
0x423e0…42400 74 3a 3d 63 72 65 61 74 65 6c 69 6e 6b 28 7a 6f 75 74 2c 30 2c 74 65 72 00 00 00 00 00 00 00 00 ┆t:=createlink(zout,0,ter ┆
0x42400…42406 (530,) (0x2c0,0x849)
0x42406…42420 6d 69 6e 61 6c 69 64 28 63 75 72 72 74 65 72 6d 69 6e 61 6c 29 2c 74 65 72 6d ┆minalid(currterminal),term┆
0x42420…42440 69 6e 61 6c 72 65 66 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆inalref, ┆
0x42440…42460 20 20 31 2c 32 30 34 37 2c 30 2c 30 29 3b 0a 20 20 20 20 20 20 69 66 20 72 65 73 75 6c 74 3c 3e ┆ 1,2047,0,0); if result<>┆
0x42460…4247e 30 20 74 68 65 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 77 72 69 ┆0 then begin wri┆
0x4247e…42484 (0x2c0,0x84a)
0x42484…424a0 74 65 28 6f 75 74 2c 3c 3a 3c 31 30 3e 63 72 65 61 74 65 6c 69 6e 6b 28 3a 3e 2c 3c ┆te(out,<:<10>createlink(:>,<┆
0x424a0…424c0 3c 64 64 3e 2c 74 65 72 6d 69 6e 61 6c 72 65 66 2c 3c 3a 29 20 3d 20 3a 3e 2c 0a 20 20 20 20 20 ┆<dd>,terminalref,<:) = :>, ┆
0x424c0…424e0 20 20 20 20 20 20 20 20 20 72 65 73 75 6c 74 2c 3c 3a 3c 31 30 3e 3a 3e 29 3b 0a 20 20 20 20 20 ┆ result,<:<10>:>); ┆
0x424e0…424fc 20 20 20 73 65 74 70 6f 73 69 74 69 6f 6e 28 6f 75 74 2c 30 2c 30 29 3b 0a 20 20 20 ┆ setposition(out,0,0); ┆
0x424fc…42502 (0x2c0,0x84b)
0x42502…42520 20 20 20 65 6e 64 0a 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 62 65 67 69 6e 0a ┆ end else begin ┆
0x42520…42540 20 20 20 20 20 20 20 20 77 72 69 74 65 28 7a 6f 75 74 2c 3c 3c 7a 64 3e 2c 63 75 72 72 74 65 72 ┆ write(zout,<<zd>,currter┆
0x42540…42560 6d 69 6e 61 6c 2c 66 61 6c 73 65 20 61 64 64 20 33 32 2c 31 2c 0a 20 20 20 20 20 20 20 20 20 20 ┆minal,false add 32,1, ┆
0x42560…4257a 20 20 20 20 20 20 3c 3a 74 65 72 6d 69 6e 61 6c 20 6c 6f 67 67 65 64 20 69 6e ┆ <:terminal logged in┆
0x4257a…42580 (0x2c0,0x84c)
0x42580…425a0 3c 31 30 3e 3a 3e 29 3b 0a 20 20 20 20 20 20 20 20 73 65 74 70 6f 73 69 74 69 6f 6e 28 7a 6f 75 ┆<10>:>); setposition(zou┆
0x425a0…425c0 74 2c 30 2c 30 29 3b 0a 20 20 20 20 20 20 20 20 61 63 74 69 76 65 74 65 72 6d 69 6e 61 6c 73 3a ┆t,0,0); activeterminals:┆
0x425c0…425e0 3d 20 61 63 74 69 76 65 74 65 72 6d 69 6e 61 6c 73 2b 31 3b 0a 20 20 20 20 20 20 20 20 70 61 73 ┆= activeterminals+1; pas┆
0x425e0…42600 73 69 76 65 74 65 72 6d 28 63 75 72 72 74 65 72 6d 69 6e 61 6c 29 3a 3d 00 00 00 00 00 00 00 00 ┆siveterm(currterminal):= ┆
0x42600…42606 (531,) (0x2c0,0x84d)
0x42606…42620 20 66 61 6c 73 65 3b 0a 20 20 20 20 20 20 20 20 6c 69 6e 65 63 6f 75 6e 74 28 ┆ false; linecount(┆
0x42620…42640 63 75 72 72 74 65 72 6d 69 6e 61 6c 29 3a 3d 20 30 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 ┆currterminal):= 0; end; ┆
0x42640…42660 20 20 20 20 67 6f 74 6f 20 63 65 6e 74 72 61 6c 77 61 69 74 3b 0a 20 20 20 20 65 6e 64 0a 20 20 ┆ goto centralwait; end ┆
0x42660…4267e 20 20 65 6c 73 65 0a 20 20 20 20 62 65 67 69 6e 20 3c 2a 20 61 6e 73 77 65 72 20 28 20 73 ┆ else begin <* answer ( s┆
0x4267e…42684 (0x2c0,0x84e)
0x42684…426a0 65 6e 73 65 20 72 65 61 64 79 20 29 20 2a 3e 0a 20 20 20 20 20 20 6d 6f 6e 69 74 6f ┆ense ready ) *> monito┆
0x426a0…426c0 72 28 31 38 29 77 61 69 74 20 61 6e 73 77 65 72 3a 28 73 65 6e 73 65 72 65 61 64 79 2c 31 2c 69 ┆r(18)wait answer:(senseready,1,i┆
0x426c0…426e0 61 29 3b 0a 20 20 20 20 20 20 70 6f 6f 6c 73 65 6e 73 65 64 3a 3d 20 66 61 6c 73 65 3b 0a 0a 20 ┆a); poolsensed:= false; ┆
0x426e0…426fc 20 20 20 20 20 72 65 70 65 61 74 0a 20 20 20 20 20 20 20 20 72 65 61 64 28 7a 69 6e ┆ repeat read(zin┆
0x426fc…42702 (0x2c0,0x84f)
0x42702…42720 2c 63 75 72 72 74 65 72 6d 69 6e 61 6c 29 3b 20 3c 2a 20 65 6e 64 20 6f 66 20 64 61 74 61 ┆,currterminal); <* end of data┆
0x42720…42740 20 68 61 6e 64 6c 65 64 20 62 79 20 62 6c 6f 63 6b 70 72 6f 63 65 64 75 72 65 20 2a 3e 0a 20 20 ┆ handled by blockprocedure *> ┆
0x42740…42760 20 20 20 20 20 20 69 3a 3d 20 31 3b 0a 20 20 20 20 20 20 20 20 66 6f 72 20 69 3a 3d 20 69 20 77 ┆ i:= 1; for i:= i w┆
0x42760…4277a 68 69 6c 65 20 72 65 61 64 63 68 61 72 28 7a 69 6e 2c 6c 69 6e 65 62 75 66 28 ┆hile readchar(zin,linebuf(┆
0x4277a…42780 (0x2c0,0x850)
0x42780…427a0 69 29 29 20 3c 3e 38 20 64 6f 20 69 3a 3d 20 69 2b 31 3b 0a 20 20 20 20 20 20 20 20 73 65 74 70 ┆i)) <>8 do i:= i+1; setp┆
0x427a0…427c0 6f 73 69 74 69 6f 6e 28 7a 69 6e 2c 30 2c 30 29 3b 0a 20 20 20 20 20 20 20 20 6c 69 6e 65 63 6f ┆osition(zin,0,0); lineco┆
0x427c0…427e0 75 6e 74 28 63 75 72 72 74 65 72 6d 69 6e 61 6c 29 3a 3d 20 6c 69 6e 65 63 6f 75 6e 74 28 63 75 ┆unt(currterminal):= linecount(cu┆
0x427e0…42800 72 72 74 65 72 6d 69 6e 61 6c 29 2b 31 3b 0a 20 20 20 20 20 20 20 20 77 00 00 00 00 00 00 00 00 ┆rrterminal)+1; w ┆
0x42800…42806 (532,) (0x2c0,0x851)
0x42806…42820 72 69 74 65 28 7a 6f 75 74 2c 3c 3c 7a 64 3e 2c 63 75 72 72 74 65 72 6d 69 6e ┆rite(zout,<<zd>,currtermin┆
0x42820…42840 61 6c 2c 66 61 6c 73 65 20 61 64 64 20 33 32 2c 31 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆al,false add 32,1, ┆
0x42840…42860 20 20 20 3c 3a 20 74 65 72 6d 20 3d 20 3a 3e 2c 63 75 72 72 74 65 72 6d 69 6e 61 6c 2c 0a 20 20 ┆ <: term = :>,currterminal, ┆
0x42860…4287e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 3a 20 6c 69 6e 65 20 3d 20 3a 3e 2c 3c 3c 64 ┆ <: line = :>,<<d┆
0x4287e…42884 (0x2c0,0x852)
0x42884…428a0 64 64 3e 2c 6c 69 6e 65 63 6f 75 6e 74 28 63 75 72 72 74 65 72 6d 69 6e 61 6c 29 2c ┆dd>,linecount(currterminal),┆
0x428a0…428c0 3c 3a 3a 20 3a 3e 29 3b 0a 20 20 20 20 20 20 20 20 66 6f 72 20 6a 3a 3d 20 31 20 73 74 65 70 20 ┆<:: :>); for j:= 1 step ┆
0x428c0…428e0 31 20 75 6e 74 69 6c 20 69 20 64 6f 20 6f 75 74 63 68 61 72 28 7a 6f 75 74 2c 6c 69 6e 65 62 75 ┆1 until i do outchar(zout,linebu┆
0x428e0…428fc 66 28 6a 29 29 3b 0a 20 20 20 20 20 20 20 20 69 66 20 6c 69 6e 65 62 75 66 28 31 29 ┆f(j)); if linebuf(1)┆
0x428fc…42902 (0x2c0,0x853)
0x42902…42920 20 3d 20 34 32 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 3c 2a 20 61 20 ┆ = 42 then begin <* a ┆
0x42920…42940 73 74 61 72 20 69 6e 20 66 69 72 73 74 20 70 6f 73 69 74 69 6f 6e 20 6d 65 61 6e 73 20 6c 6f 67 ┆star in first position means log┆
0x42940…42960 6f 75 74 20 2a 3e 0a 20 20 20 20 20 20 20 20 20 20 77 72 69 74 65 28 7a 6f 75 74 2c 3c 3a 74 65 ┆out *> write(zout,<:te┆
0x42960…4297a 72 6d 69 6e 61 6c 20 6c 6f 67 67 65 64 20 6f 75 74 3c 31 30 3e 3a 3e 29 3b 0a ┆rminal logged out<10>:>); ┆
0x4297a…42980 (0x2c0,0x854)
0x42980…429a0 20 20 20 20 20 20 20 20 20 20 73 65 74 70 6f 73 69 74 69 6f 6e 28 7a 6f 75 74 2c 30 2c 30 29 3b ┆ setposition(zout,0,0);┆
0x429a0…429c0 0a 20 20 20 20 20 20 20 20 20 20 72 65 6d 6f 76 65 6c 69 6e 6b 28 7a 6f 75 74 2c 74 65 72 6d 69 ┆ removelink(zout,termi┆
0x429c0…429e0 6e 61 6c 69 64 28 63 75 72 72 74 65 72 6d 69 6e 61 6c 29 2c 66 61 6c 73 65 29 3b 0a 20 20 20 20 ┆nalid(currterminal),false); ┆
0x429e0…42a00 20 20 20 20 20 20 61 63 74 69 76 65 74 65 72 6d 69 6e 61 6c 73 3a 3d 20 00 00 00 00 00 00 00 00 ┆ activeterminals:= ┆
0x42a00…42a06 (533,) (0x2c0,0x855)
0x42a06…42a20 61 63 74 69 76 65 74 65 72 6d 69 6e 61 6c 73 2d 31 3b 0a 20 20 20 20 20 20 20 ┆activeterminals-1; ┆
0x42a20…42a40 20 20 20 70 61 73 73 69 76 65 74 65 72 6d 28 63 75 72 72 74 65 72 6d 69 6e 61 6c 29 3a 3d 20 74 ┆ passiveterm(currterminal):= t┆
0x42a40…42a60 72 75 65 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 0a 20 20 20 20 20 20 20 20 65 6c 73 65 20 73 65 ┆rue; end else se┆
0x42a60…42a7e 74 70 6f 73 69 74 69 6f 6e 28 7a 6f 75 74 2c 30 2c 30 29 3b 0a 20 20 20 20 20 20 75 6e 74 ┆tposition(zout,0,0); unt┆
0x42a7e…42a84 (0x2c0,0x856)
0x42a84…42aa0 69 6c 20 61 63 74 69 76 65 74 65 72 6d 69 6e 61 6c 73 3d 30 3b 0a 20 20 20 20 65 6e ┆il activeterminals=0; en┆
0x42aa0…42ac0 64 0a 20 20 20 20 72 65 6d 6f 76 65 70 6f 6f 6c 28 7a 6f 75 74 29 3b 0a 20 20 20 20 63 6c 6f 73 ┆d removepool(zout); clos┆
0x42ac0…42ae0 65 28 7a 69 6e 2c 74 72 75 65 29 3b 20 63 6c 6f 73 65 28 7a 6f 75 74 2c 74 72 75 65 29 3b 0a 20 ┆e(zin,true); close(zout,true); ┆
0x42ae0…42afc 20 65 6e 64 3b 0a 65 6e 64 0a 0a 27 2c 66 0a 0a 0a 0a 0a 69 27 0a 0a 0c 0a 0a 0c 0a ┆ end; end ',f i' ┆
0x42afc…42b02 (0x2c0,0x857)
0x42b02…42b20 0a 0a 0a 20 20 20 20 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 74 65 6d 20 74 65 73 74 20 63 ┆ *********** tem test c┆
0x42b20…42b40 72 65 61 74 65 20 70 6f 6f 6c 20 61 6e 64 20 63 72 65 61 74 65 20 6c 69 6e 6b 20 2a 2a 2a 2a 2a ┆reate pool and create link *****┆
0x42b40…42b60 2a 2a 2a 2a 2a 2a 2a 2a 0a 0a 0a 20 20 20 20 20 70 72 6f 67 72 61 6d 20 63 61 6c 6c 3a 0a 20 20 ┆******** program call: ┆
0x42b60…42b7a 20 20 20 20 20 3c 70 72 6f 67 72 61 6d 6e 61 6d 65 3e 20 3c 70 6f 6f 6c 6e 61 ┆ <programname> <poolna┆
0x42b7a…42b80 (0x2c0,0x858)
0x42b80…42ba0 6d 65 3e 28 2e 3c 74 79 70 65 3e 2e 3c 6c 6f 63 69 64 3e 2e 3c 70 72 6f 63 65 73 73 20 6e 61 6d ┆me>(.<type>.<locid>.<process nam┆
0x42ba0…42bc0 65 3e 2e 3c 62 75 66 73 3e 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆e>.<bufs>. ┆
0x42bc0…42be0 20 20 20 20 20 20 20 20 20 20 20 20 3c 74 69 6d 65 72 73 3e 2e 3c 6d 61 73 6b 3e 2c 3c 73 75 62 ┆ <timers>.<mask>,<sub┆
0x42be0…42c00 73 74 3e 29 20 30 2d 3e 6e 0a 0a 0a 20 20 20 20 20 20 20 3c 70 6f 6f 6c 00 00 00 00 00 00 00 00 ┆st>) 0->n <pool ┆
0x42c00…42c06 (534,) (0x2c0,0x859)
0x42c06…42c20 6e 61 6d 65 3e 2c 3c 6c 6f 63 69 64 3e 2c 3c 70 72 6f 63 65 73 73 20 6e 61 6d ┆name>,<locid>,<process nam┆
0x42c20…42c40 65 3e 3a 3a 3d 20 3c 74 65 78 74 3e 0a 20 20 20 20 20 20 20 3c 74 79 70 65 3e 2c 3c 62 75 66 73 ┆e>::= <text> <type>,<bufs┆
0x42c40…42c60 3e 2c 3c 74 69 6d 65 72 73 3e 2c 3c 6d 61 73 6b 3e 2c 3c 73 75 62 73 74 3e 3a 3a 3d 20 3c 69 6e ┆>,<timers>,<mask>,<subst>::= <in┆
0x42c60…42c7e 74 65 67 65 72 3e 0a 0a 0a 20 20 20 20 20 74 68 65 20 70 72 6f 67 72 61 6d 20 63 72 65 61 ┆teger> the program crea┆
0x42c7e…42c84 (0x2c0,0x85a)
0x42c84…42ca0 74 65 73 20 61 20 74 65 72 6d 69 6e 61 6c 20 77 69 74 68 20 74 68 65 20 6e 61 6d 65 ┆tes a terminal with the name┆
0x42ca0…42cc0 20 3c 70 6f 6f 6c 6e 61 6d 65 3e 2e 20 66 6f 72 20 65 76 65 72 79 0a 20 20 20 20 20 73 65 74 20 ┆ <poolname>. for every set ┆
0x42cc0…42ce0 6f 66 20 6c 69 6e 6b 20 70 61 72 61 6d 65 74 65 72 73 20 61 20 74 65 72 6d 69 6e 61 6c 20 6c 69 ┆of link parameters a terminal li┆
0x42ce0…42cfc 6e 6b 20 69 73 20 63 72 65 61 74 65 64 0a 0a 62 65 67 69 6e 0a 20 20 61 6c 67 6f 6c ┆nk is created begin algol┆
0x42cfc…42d02 (0x2c0,0x85b)
0x42d02…42d20 20 63 6f 70 79 2e 31 3b 20 3c 2a 20 63 6f 70 79 20 74 65 6d 20 63 6f 6e 74 72 6f 6c 20 70 ┆ copy.1; <* copy tem control p┆
0x42d20…42d40 72 6f 63 65 64 75 72 65 73 20 2a 3e 0a 20 20 20 20 0a 20 20 69 6e 74 65 67 65 72 20 69 2c 20 6a ┆rocedures *> integer i, j┆
0x42d40…42d60 2c 20 72 65 73 75 6c 74 2c 0a 20 20 20 20 20 20 20 20 20 20 74 79 70 65 2c 20 6c 6f 63 69 64 2c ┆, result, type, locid,┆
0x42d60…42d7a 20 74 65 72 6d 69 6e 61 6c 72 65 66 2c 20 62 75 66 73 2c 74 69 6d 65 72 73 2c ┆ terminalref, bufs,timers,┆
0x42d7a…42d80 (0x2c0,0x85c)
0x42d80…42da0 20 6d 61 73 6b 2c 20 73 75 62 73 74 3b 0a 20 20 69 6e 74 65 67 65 72 20 61 72 72 61 79 20 69 61 ┆ mask, subst; integer array ia┆
0x42da0…42dc0 28 31 3a 32 30 29 3b 0a 20 20 72 65 61 6c 20 20 20 20 61 72 72 61 79 20 61 72 72 28 31 3a 32 29 ┆(1:20); real array arr(1:2)┆
0x42dc0…42de0 3b 0a 20 20 7a 6f 6e 65 20 7a 2c 20 64 75 6d 6d 79 28 31 2c 31 2c 73 74 64 65 72 72 6f 72 29 3b ┆; zone z, dummy(1,1,stderror);┆
0x42de0…42e00 0a 0a 20 20 69 66 20 73 79 73 74 65 6d 28 34 2c 31 2c 61 72 72 29 3c 3e 00 00 00 00 00 00 00 00 ┆ if system(4,1,arr)<> ┆
0x42e00…42e06 (535,) (0x2c0,0x85d)
0x42e06…42e20 34 20 73 68 69 66 74 20 31 32 2b 31 30 20 74 68 65 6e 20 73 79 73 74 65 6d 28 ┆4 shift 12+10 then system(┆
0x42e20…42e40 39 2c 31 2c 3c 3a 70 61 72 61 6d 3a 3e 29 3b 0a 20 20 69 3a 3d 20 31 3b 0a 20 20 6f 70 65 6e 28 ┆9,1,<:param:>); i:= 1; open(┆
0x42e40…42e60 7a 2c 38 2c 73 74 72 69 6e 67 28 61 72 72 28 69 6e 63 72 65 61 73 65 28 69 29 29 29 2c 30 29 3b ┆z,8,string(arr(increase(i))),0);┆
0x42e60…42e7e 0a 20 20 72 65 73 75 6c 74 3a 3d 20 63 72 65 61 74 65 70 6f 6f 6c 28 7a 29 3b 0a 20 20 69 ┆ result:= createpool(z); i┆
0x42e7e…42e84 (0x2c0,0x85e)
0x42e84…42ea0 66 20 72 65 73 75 6c 74 3c 3e 30 20 74 68 65 6e 20 73 79 73 74 65 6d 28 39 2c 72 65 ┆f result<>0 then system(9,re┆
0x42ea0…42ec0 73 75 6c 74 2c 3c 3a 63 72 70 6f 6f 6c 3a 3e 29 3b 0a 0a 20 20 6f 70 65 6e 28 64 75 6d 6d 79 2c ┆sult,<:crpool:>); open(dummy,┆
0x42ec0…42ee0 30 2c 3c 3a 3a 3e 2c 30 29 3b 0a 20 20 69 3a 3d 20 30 3b 0a 20 20 72 65 70 65 61 74 20 3c 2a 20 ┆0,<::>,0); i:= 0; repeat <* ┆
0x42ee0…42efc 67 65 74 20 64 75 6d 6d 79 20 6d 65 73 73 61 67 65 20 66 72 6f 6d 20 74 65 6d 20 2a ┆get dummy message from tem *┆
0x42efc…42f02 (0x2c0,0x85f)
0x42f02…42f20 3e 0a 20 20 20 20 72 65 73 75 6c 74 3a 3d 20 6d 6f 6e 69 74 6f 72 28 32 34 29 20 77 61 69 ┆> result:= monitor(24) wai┆
0x42f20…42f40 74 20 65 76 65 6e 74 3a 28 64 75 6d 6d 79 2c 69 2c 69 61 29 3b 0a 20 20 20 20 69 66 20 72 65 73 ┆t event:(dummy,i,ia); if res┆
0x42f40…42f60 75 6c 74 3d 30 20 74 68 65 6e 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 69 66 20 69 61 ┆ult=0 then begin if ia┆
0x42f60…42f7a 28 31 29 20 3d 20 2d 32 20 73 68 69 66 74 20 31 32 20 74 68 65 6e 0a 20 20 20 ┆(1) = -2 shift 12 then ┆
0x42f7a…42f80 (0x2c0,0x860)
0x42f80…42fa0 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 32 36 29 20 67 65 74 ┆ begin monitor(26) get┆
0x42fa0…42fc0 20 65 76 65 6e 74 3a 28 64 75 6d 6d 79 2c 69 2c 69 61 29 3b 0a 20 20 20 20 20 20 20 20 69 3a 3d ┆ event:(dummy,i,ia); i:=┆
0x42fc0…42fe0 20 30 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 65 6e 64 3b 0a 20 20 75 6e 74 69 6c 20 ┆ 0; end; end; until ┆
0x42fe0…43000 69 3d 30 3b 0a 20 20 63 6c 6f 73 65 28 64 75 6d 6d 79 2c 74 72 75 65 29 00 00 00 00 00 00 00 00 ┆i=0; close(dummy,true) ┆
0x43000…43006 (536,) (0x2c0,0x861)
0x43006…43020 3b 0a 0a 20 20 69 3a 3d 20 31 3b 0a 20 20 66 6f 72 20 69 3a 3d 20 69 2b 31 20 ┆; i:= 1; for i:= i+1 ┆
0x43020…43040 77 68 69 6c 65 20 73 79 73 74 65 6d 28 34 2c 69 2c 61 72 72 29 3d 38 20 73 68 69 66 74 20 31 32 ┆while system(4,i,arr)=8 shift 12┆
0x43040…43060 2b 34 20 64 6f 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 74 79 70 65 3a 3d 20 61 72 72 28 31 29 3b ┆+4 do begin type:= arr(1);┆
0x43060…4307e 0a 20 20 20 20 69 3a 3d 20 69 2b 31 3b 0a 20 20 20 20 69 66 20 73 79 73 74 65 6d 28 34 2c ┆ i:= i+1; if system(4,┆
0x4307e…43084 (0x2c0,0x862)
0x43084…430a0 69 2c 61 72 72 29 3c 3e 38 20 73 68 69 66 74 20 31 32 2b 31 30 20 74 68 65 6e 20 73 ┆i,arr)<>8 shift 12+10 then s┆
0x430a0…430c0 79 73 74 65 6d 28 39 2c 69 2c 3c 3a 70 61 72 61 6d 3a 3e 29 3b 0a 20 20 20 20 6c 6f 63 69 64 3a ┆ystem(9,i,<:param:>); locid:┆
0x430c0…430e0 3d 20 61 72 72 28 31 29 20 73 68 69 66 74 20 28 2d 32 34 29 20 65 78 74 72 61 63 74 20 32 34 3b ┆= arr(1) shift (-24) extract 24;┆
0x430e0…430fc 0a 20 20 20 20 69 3a 3d 20 69 2b 31 3b 0a 20 20 20 20 69 66 20 73 79 73 74 65 6d 28 ┆ i:= i+1; if system(┆
0x430fc…43102 (0x2c0,0x863)
0x43102…43120 34 2c 69 2c 61 72 72 29 3c 3e 38 20 73 68 69 66 74 20 31 32 20 2b 31 30 20 74 68 65 6e 20 ┆4,i,arr)<>8 shift 12 +10 then ┆
0x43120…43140 73 79 73 74 65 6d 28 39 2c 69 2c 3c 3a 70 61 72 61 6d 3a 3e 29 3b 0a 20 20 20 20 6a 3a 3d 20 31 ┆system(9,i,<:param:>); j:= 1┆
0x43140…43160 3b 0a 20 20 20 20 6f 70 65 6e 28 64 75 6d 6d 79 2c 30 2c 73 74 72 69 6e 67 28 61 72 72 28 69 6e ┆; open(dummy,0,string(arr(in┆
0x43160…4317a 63 72 65 61 73 65 28 6a 29 29 29 2c 30 29 3b 0a 20 20 20 20 74 65 72 6d 69 6e ┆crease(j))),0); termin┆
0x4317a…43180 (0x2c0,0x864)
0x43180…431a0 61 6c 72 65 66 3a 3d 20 6d 6f 6e 69 74 6f 72 28 34 2c 64 75 6d 6d 79 2c 30 2c 69 61 29 3b 0a 20 ┆alref:= monitor(4,dummy,0,ia); ┆
0x431a0…431c0 20 20 20 63 6c 6f 73 65 28 64 75 6d 6d 79 2c 74 72 75 65 29 3b 0a 20 20 20 20 69 3a 3d 20 69 2b ┆ close(dummy,true); i:= i+┆
0x431c0…431e0 31 3b 0a 20 20 20 20 69 66 20 73 79 73 74 65 6d 28 34 2c 69 2c 61 72 72 29 3c 3e 38 20 73 68 69 ┆1; if system(4,i,arr)<>8 shi┆
0x431e0…43200 66 74 20 31 32 2b 34 20 74 68 65 6e 20 73 79 73 74 65 6d 28 39 2c 69 2c 00 00 00 00 00 00 00 00 ┆ft 12+4 then system(9,i, ┆
0x43200…43206 (537,) (0x2c0,0x865)
0x43206…43220 3c 3a 70 61 72 61 6d 3a 3e 29 3b 0a 20 20 20 20 62 75 66 73 3a 3d 20 61 72 72 ┆<:param:>); bufs:= arr┆
0x43220…43240 28 31 29 3b 0a 20 20 20 20 69 3a 3d 20 69 2b 31 3b 0a 20 20 20 20 69 66 20 73 79 73 74 65 6d 28 ┆(1); i:= i+1; if system(┆
0x43240…43260 34 2c 69 2c 61 72 72 29 3c 3e 20 38 20 73 68 69 66 74 20 31 32 2b 34 20 74 68 65 6e 20 73 79 73 ┆4,i,arr)<> 8 shift 12+4 then sys┆
0x43260…4327e 74 65 6d 28 39 2c 69 2c 3c 3a 70 61 72 61 6d 3a 3e 29 3b 0a 20 20 20 20 74 69 6d 65 72 73 ┆tem(9,i,<:param:>); timers┆
0x4327e…43284 (0x2c0,0x866)
0x43284…432a0 3a 3d 20 61 72 72 28 31 29 3b 0a 20 20 20 20 69 3a 3d 20 69 2b 31 3b 0a 20 20 20 20 ┆:= arr(1); i:= i+1; ┆
0x432a0…432c0 69 66 20 73 79 73 74 65 6d 28 34 2c 69 2c 61 72 72 29 3c 3e 20 38 20 73 68 69 66 74 20 31 32 2b ┆if system(4,i,arr)<> 8 shift 12+┆
0x432c0…432e0 34 20 74 68 65 6e 20 73 79 73 74 65 6d 28 39 2c 69 2c 3c 3a 70 61 72 61 6d 3a 3e 29 3b 0a 20 20 ┆4 then system(9,i,<:param:>); ┆
0x432e0…432fc 20 20 6d 61 73 6b 3a 3d 20 61 72 72 28 31 29 3b 0a 20 20 20 20 69 3a 3d 20 69 2b 31 ┆ mask:= arr(1); i:= i+1┆
0x432fc…43302 (0x2c0,0x867)
0x43302…43320 3b 0a 20 20 20 20 69 66 20 73 79 73 74 65 6d 28 34 2c 69 2c 61 72 72 29 3c 3e 38 20 73 68 ┆; if system(4,i,arr)<>8 sh┆
0x43320…43340 69 66 74 20 31 32 2b 34 20 74 68 65 6e 20 73 79 73 74 65 6d 28 39 2c 69 2c 3c 3a 70 61 72 61 6d ┆ift 12+4 then system(9,i,<:param┆
0x43340…43360 3a 3e 29 3b 0a 20 20 20 20 73 75 62 73 74 3a 3d 20 61 72 72 28 31 29 3b 0a 0a 20 20 20 20 72 65 ┆:>); subst:= arr(1); re┆
0x43360…4337a 73 75 6c 74 3a 3d 20 63 72 65 61 74 65 6c 69 6e 6b 28 7a 2c 74 79 70 65 2c 6c ┆sult:= createlink(z,type,l┆
0x4337a…43380 (0x2c0,0x868)
0x43380…433a0 6f 63 69 64 2c 74 65 72 6d 69 6e 61 6c 72 65 66 2c 62 75 66 73 2c 74 69 6d 65 72 73 2c 6d 61 73 ┆ocid,terminalref,bufs,timers,mas┆
0x433a0…433c0 6b 2c 73 75 62 73 74 29 3b 0a 20 20 20 20 69 66 20 72 65 73 75 6c 74 3c 3e 30 20 74 68 65 6e 20 ┆k,subst); if result<>0 then ┆
0x433c0…433e0 73 79 73 74 65 6d 28 39 2c 72 65 73 75 6c 74 2c 3c 3a 63 72 6c 69 6e 6b 3a 3e 29 3b 0a 20 20 65 ┆system(9,result,<:crlink:>); e┆
0x433e0…43400 6e 64 3b 0a 0a 20 20 69 66 20 73 79 73 74 65 6d 28 34 2c 69 2c 61 72 72 00 00 00 00 00 00 00 00 ┆nd; if system(4,i,arr ┆
0x43400…43406 (538,) (0x2c0,0x869)
0x43406…43420 29 3c 3e 30 20 74 68 65 6e 20 73 79 73 74 65 6d 28 34 2c 69 2c 3c 3a 70 61 72 ┆)<>0 then system(4,i,<:par┆
0x43420…43440 61 6d 3a 3e 29 3b 0a 20 20 63 6c 6f 73 65 28 7a 2c 74 72 75 65 29 3b 0a 65 6e 64 0a 0a 27 2c 66 ┆am:>); close(z,true); end ',f┆
0x43440…43460 0a 0a 0a 0a 19 66 74 20 31 32 20 2b 31 30 20 74 68 65 6e 20 73 79 73 74 65 6d 28 39 2c 69 2c 3c ┆ ft 12 +10 then system(9,i,<┆
0x43460…4347e 3a 70 61 72 61 6d 3a 3d 20 69 2b 31 3b 0a 20 20 20 20 69 66 20 73 79 73 74 65 6d 28 34 2c ┆:param:= i+1; if system(4,┆
0x4347e…43484 (0x324,0x86a)
0x43484…434a0 21 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 2a 20 20 74 70 72 69 6d 6f 20 20 2a ┆! *** tprimo *┆
0x434a0…434c0 2a 2a 0a 3b 0a 3b 0a 3b 20 6e 69 65 6c 73 20 6d 7c 6c 6c 65 72 20 6a 7c 72 67 65 6e 73 65 6e 2c ┆** ; ; ; niels møller jørgensen,┆
0x434c0…434e0 20 6a 75 6e 65 20 31 39 37 38 2e 0a 3b 20 72 65 76 69 73 69 6f 6e 20 32 2c 20 66 65 62 2e 20 31 ┆ june 1978. ; revision 2, feb. 1┆
0x434e0…434fc 39 37 39 2e 0a 3b 20 72 65 76 69 73 69 6f 6e 20 32 2e 31 2c 20 6e 6f 76 2e 20 31 39 ┆979. ; revision 2.1, nov. 19┆
0x434fc…43502 (0x324,0x86b)
0x43502…43520 37 39 2e 20 6b 6e 75 64 20 63 68 72 69 73 74 65 6e 73 65 6e 0a 3b 20 72 65 76 69 73 69 6f ┆79. knud christensen ; revisio┆
0x43520…43540 6e 20 32 2e 32 2c 20 73 65 70 2e 20 31 39 38 31 2e 20 6b 6e 75 64 20 63 68 72 69 73 74 65 6e 73 ┆n 2.2, sep. 1981. knud christens┆
0x43540…43560 65 6e 2c 20 65 64 69 74 68 20 72 6f 73 65 6e 62 65 72 67 0a 3b 20 72 65 76 69 73 69 6f 6e 20 32 ┆en, edith rosenberg ; revision 2┆
0x43560…4357a 2e 33 2c 20 6d 61 72 2e 20 31 39 38 32 2e 20 66 6c 65 6d 6d 69 6e 67 20 62 69 ┆.3, mar. 1982. flemming bi┆
0x4357a…43580 (0x324,0x86c)
0x43580…435a0 67 67 61 73 0a 3b 20 72 65 76 69 73 69 6f 6e 20 33 2e 30 2c 20 73 65 70 2e 20 31 39 38 32 2e 20 ┆ggas ; revision 3.0, sep. 1982. ┆
0x435a0…435c0 66 6c 65 6d 6d 69 6e 67 20 62 69 67 67 61 73 0a 3b 20 72 65 76 69 73 69 6f 6e 20 34 2e 30 2c 20 ┆flemming biggas ; revision 4.0, ┆
0x435c0…435e0 61 70 72 2e 20 31 39 38 33 2e 20 66 6c 65 6d 6d 69 6e 67 20 62 69 67 67 61 73 0a 3b 20 72 65 76 ┆apr. 1983. flemming biggas ; rev┆
0x435e0…43600 69 73 69 6f 6e 20 34 2e 31 2c 20 61 75 67 2e 20 31 39 38 34 2e 20 66 6c 00 00 00 00 00 00 00 00 ┆ision 4.1, aug. 1984. fl ┆
0x43600…43606 (539,) (0x324,0x86d)
0x43606…43620 65 6d 6d 69 6e 67 20 62 69 67 67 61 73 0a 3b 20 72 65 76 69 73 69 6f 6e 20 35 ┆emming biggas ; revision 5┆
0x43620…43640 2e 30 2c 20 61 75 67 2e 20 31 39 38 35 2e 20 66 6c 65 6d 6d 69 6e 67 20 62 69 67 67 61 73 20 28 ┆.0, aug. 1985. flemming biggas (┆
0x43640…43660 6d 70 20 2b 20 61 64 70 33 32 37 30 20 72 65 6c 65 61 73 65 29 2e 0a 21 0a 0a 70 72 69 6e 74 65 ┆mp + adp3270 release). ! printe┆
0x43660…4367e 72 6d 6f 64 75 6c 65 0a 62 65 67 69 6e 0a 20 20 21 66 70 2e 6e 6f 3b 0a 20 20 21 62 72 61 ┆rmodule begin !fp.no; !bra┆
0x4367e…43684 (0x324,0x86e)
0x43684…436a0 6e 63 68 20 32 2c 31 31 3b 0a 20 20 21 73 65 63 74 69 6f 6e 73 20 36 35 3b 0a 0a 20 ┆nch 2,11; !sections 65; ┆
0x436a0…436c0 20 70 72 6f 63 65 64 75 72 65 20 77 61 69 74 6d 65 73 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ procedure waitmess ┆
0x436c0…436e0 20 20 28 2e 77 33 2e 3b 20 20 20 21 20 61 62 73 20 72 65 66 20 63 75 72 72 20 63 6f 72 6f 75 74 ┆ (.w3.; ! abs ref curr corout┆
0x436e0…436fc 20 28 72 65 74 75 72 6e 29 20 20 20 20 20 20 20 20 20 20 20 21 0a 20 20 20 20 20 20 ┆ (return) ! ┆
0x436fc…43702 (0x324,0x86f)
0x43702…43720 20 20 20 20 20 20 20 20 20 20 77 32 29 3b 20 20 20 21 20 61 62 73 20 72 65 66 20 6d 65 73 ┆ w2); ! abs ref mes┆
0x43720…43740 73 61 67 65 20 62 75 66 66 65 72 20 28 72 65 74 75 72 6e 29 20 20 20 20 20 20 20 20 21 0a 0a 20 ┆sage buffer (return) ! ┆
0x43740…43760 20 70 72 6f 63 65 64 75 72 65 20 77 61 69 74 5f 73 74 61 74 75 73 0a 20 20 20 20 20 20 20 20 20 ┆ procedure wait_status ┆
0x43760…4377a 20 20 20 20 20 28 2e 77 33 2e 3b 20 20 20 20 21 20 77 61 69 74 20 66 6f 72 20 ┆ (.w3.; ! wait for ┆
0x4377a…43780 (0x324,0x870)
0x43780…437a0 73 74 61 74 75 73 20 28 69 6e 70 75 74 20 6f 70 65 72 61 74 69 6f 6e 29 20 66 38 30 30 30 20 21 ┆status (input operation) f8000 !┆
0x437a0…437c0 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 30 29 3b 20 20 20 20 21 20 6d 61 78 20 6e ┆ w0); ! max n┆
0x437c0…437e0 6f 20 6f 66 20 6d 69 6e 75 74 65 73 20 74 6f 20 77 61 69 74 20 20 20 20 20 20 20 20 20 20 20 20 ┆o of minutes to wait ┆
0x437e0…43800 20 20 20 21 0a 0a 0a 20 20 70 72 6f 63 65 64 75 72 65 20 73 65 6e 64 77 00 00 00 00 00 00 00 00 ┆ ! procedure sendw ┆
0x43800…43806 (540,) (0x324,0x871)
0x43806…43820 61 69 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2e 77 33 2e 3b 20 20 ┆ait (.w3.; ┆
0x43820…43840 20 21 20 61 62 73 20 72 65 66 20 63 75 72 72 20 63 6f 72 6f 75 74 20 28 72 65 74 75 72 6e 29 20 ┆ ! abs ref curr corout (return) ┆
0x43840…43860 20 20 20 20 20 20 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 30 20 3b ┆ ! w0 ;┆
0x43860…4387e 20 20 20 21 20 72 65 73 75 6c 74 20 28 72 65 74 75 72 6e 29 20 20 20 20 20 20 20 20 20 20 ┆ ! result (return) ┆
0x4387e…43884 (0x324,0x872)
0x43884…438a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ! ┆
0x438a0…438c0 20 20 20 20 77 31 20 3b 20 20 20 21 20 61 62 73 20 72 65 66 20 6d 65 73 73 61 67 65 20 28 63 61 ┆ w1 ; ! abs ref message (ca┆
0x438c0…438e0 6c 6c 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 ┆ll) ! ┆
0x438e0…438fc 20 20 20 20 20 20 77 32 29 3b 20 20 20 21 20 61 62 73 20 72 65 66 20 70 72 6f 63 65 ┆ w2); ! abs ref proce┆
0x438fc…43902 (0x324,0x873)
0x43902…43920 73 73 20 6e 61 6d 65 20 28 63 61 6c 6c 29 20 20 20 20 20 20 20 20 20 20 20 20 21 0a 0a 20 ┆ss name (call) ! ┆
0x43920…43940 20 70 72 6f 63 65 64 75 72 65 20 6c 69 6e 6b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2e ┆ procedure link (.┆
0x43940…43960 77 33 2e 3b 20 20 20 21 20 61 62 73 20 72 65 66 20 63 75 72 72 20 63 6f 72 6f 75 74 20 28 72 65 ┆w3.; ! abs ref curr corout (re┆
0x43960…4397a 74 75 72 6e 29 20 20 20 20 20 20 20 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 ┆turn) ! ┆
0x4397a…43980 (0x324,0x874)
0x43980…439a0 20 20 20 20 20 20 20 20 77 31 20 3b 20 20 20 21 20 61 62 73 20 72 65 66 20 71 75 65 75 65 20 65 ┆ w1 ; ! abs ref queue e┆
0x439a0…439c0 6c 65 6d 65 6e 74 20 28 63 61 6c 6c 29 20 20 20 20 20 20 20 20 20 20 20 21 0a 20 20 20 20 20 20 ┆lement (call) ! ┆
0x439c0…439e0 20 20 20 20 20 20 20 20 20 20 77 32 29 3b 20 20 20 21 20 61 62 73 20 72 65 66 20 71 75 65 75 65 ┆ w2); ! abs ref queue┆
0x439e0…43a00 20 68 65 61 64 20 28 63 61 6c 6c 29 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ head (call) ┆
0x43a00…43a06 (541,) (0x324,0x875)
0x43a06…43a20 20 20 21 0a 0a 20 20 70 72 6f 63 65 64 75 72 65 20 6d 6f 76 65 0a 20 20 20 20 ┆ ! procedure move ┆
0x43a20…43a40 20 20 20 20 20 20 20 20 20 20 28 2e 77 33 2e 3b 20 20 20 21 20 61 62 73 20 72 65 66 20 63 75 72 ┆ (.w3.; ! abs ref cur┆
0x43a40…43a60 72 20 63 6f 72 6f 75 74 20 28 72 65 74 75 72 6e 29 20 20 20 20 20 20 20 20 20 20 20 21 0a 20 20 ┆r corout (return) ! ┆
0x43a60…43a7e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 30 20 3b 20 20 20 21 20 6e 75 6d 62 65 72 20 ┆ w0 ; ! number ┆
0x43a7e…43a84 (0x324,0x876)
0x43a84…43aa0 6f 66 20 68 61 6c 66 77 6f 72 64 73 20 74 6f 20 6d 6f 76 65 20 28 63 61 6c 6c 29 20 ┆of halfwords to move (call) ┆
0x43aa0…43ac0 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 20 3b 20 20 20 21 20 61 ┆ ! w1 ; ! a┆
0x43ac0…43ae0 62 73 20 72 65 66 20 66 69 72 73 74 20 68 61 6c 66 77 6f 72 64 20 74 6f 20 6d 6f 76 65 20 28 63 ┆bs ref first halfword to move (c┆
0x43ae0…43afc 61 6c 6c 29 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 32 29 3b ┆all) ! w2);┆
0x43afc…43b02 (0x324,0x877)
0x43b02…43b20 20 20 20 21 20 61 62 73 20 72 65 66 20 64 65 73 74 69 6e 61 74 69 6f 6e 20 28 63 61 6c 6c ┆ ! abs ref destination (call┆
0x43b20…43b40 29 20 20 20 20 20 20 20 20 20 20 20 20 20 21 0a 0a 20 20 70 72 6f 63 65 64 75 72 65 20 6f 70 6d ┆) ! procedure opm┆
0x43b40…43b60 65 73 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2e 77 33 2e 3b 0a 20 20 20 20 20 20 20 ┆ess (.w3.; ┆
0x43b60…43b7a 20 20 20 20 20 20 20 20 20 77 31 29 3b 20 20 20 21 20 61 62 73 20 72 65 66 20 ┆ w1); ! abs ref ┆
0x43b7a…43b80 (0x324,0x878)
0x43b80…43ba0 6d 65 73 73 61 67 65 20 28 63 61 6c 6c 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 ┆message (call) !┆
0x43ba0…43bc0 0a 0a 20 20 70 72 6f 63 65 64 75 72 65 20 67 65 74 5f 62 72 61 6e 63 68 65 73 0a 20 20 20 20 20 ┆ procedure get_branches ┆
0x43bc0…43be0 20 20 20 20 20 20 20 20 20 28 2e 77 33 2e 3b 20 20 20 21 20 61 62 73 20 72 65 66 20 63 75 72 72 ┆ (.w3.; ! abs ref curr┆
0x43be0…43c00 20 63 6f 72 6f 75 74 20 28 72 65 74 75 72 6e 29 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ corout (return) ┆
0x43c00…43c06 (542,) (0x324,0x879)
0x43c06…43c20 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 30 29 3b 20 ┆ ! w0); ┆
0x43c20…43c40 20 20 21 20 63 6f 72 6f 75 74 69 6e 65 20 6e 75 6d 62 65 72 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ! coroutine number ┆
0x43c40…43c60 20 20 20 20 20 20 20 20 20 20 20 21 0a 0a 20 20 70 72 6f 63 65 64 75 72 65 20 63 6f 70 79 61 6e ┆ ! procedure copyan┆
0x43c60…43c7e 73 77 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2e 77 33 2e 3b 0a 20 20 20 20 ┆swer (.w3.; ┆
0x43c7e…43c84 (0x324,0x87a)
0x43c84…43ca0 20 20 20 20 20 20 20 20 20 20 20 20 77 30 3b 20 20 20 20 21 20 66 69 72 73 74 20 6f ┆ w0; ! first o┆
0x43ca0…43cc0 66 20 64 61 74 61 20 61 72 65 61 20 28 63 61 6c 6c 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆f data area (call) ┆
0x43cc0…43ce0 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 72 65 73 75 6c ┆! ! resul┆
0x43ce0…43cfc 74 20 66 72 6f 6d 20 63 6f 70 79 20 63 6f 72 65 20 28 72 65 74 75 72 6e 29 20 20 20 ┆t from copy core (return) ┆
0x43cfc…43d02 (0x324,0x87b)
0x43d02…43d20 20 20 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3b 20 20 20 ┆ ! w1; ┆
0x43d20…43d40 20 21 20 6c 61 73 74 20 6f 66 20 64 61 74 61 20 61 72 65 61 20 28 63 61 6c 6c 29 20 20 20 20 20 ┆ ! last of data area (call) ┆
0x43d40…43d60 20 20 20 20 20 20 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ! ┆
0x43d60…43d7a 20 20 20 21 20 6e 6f 20 6f 66 20 62 79 74 65 73 20 63 6f 70 69 65 64 20 28 72 ┆ ! no of bytes copied (r┆
0x43d7a…43d80 (0x324,0x87c)
0x43d80…43da0 65 74 75 72 6e 29 20 20 20 20 20 20 20 20 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆eturn) ! ┆
0x43da0…43dc0 20 20 20 20 77 32 29 3b 20 20 20 21 20 6d 65 73 73 61 67 65 20 62 75 66 66 65 72 20 28 63 61 6c ┆ w2); ! message buffer (cal┆
0x43dc0…43de0 6c 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 0a 0a 20 20 70 72 6f 63 65 64 75 ┆l) ! procedu┆
0x43de0…43e00 72 65 20 70 75 73 68 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2e 00 00 00 00 00 00 00 00 ┆re push (. ┆
0x43e00…43e06 (543,) (0x324,0x87d)
0x43e06…43e20 77 33 2e 3b 20 20 20 20 21 20 72 65 74 75 72 6e 3a 63 75 72 72 65 6e 74 20 20 ┆w3.; ! return:current ┆
0x43e20…43e40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 ┆ ! ┆
0x43e40…43e60 20 20 20 20 20 20 77 30 29 3b 20 20 20 20 21 20 63 61 6c 6c 3a 70 75 73 68 20 65 6c 65 6d 65 6e ┆ w0); ! call:push elemen┆
0x43e60…43e7e 74 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 0a 0a 20 20 70 72 6f 63 65 ┆t ! proce┆
0x43e7e…43e84 (0x324,0x87e)
0x43e84…43ea0 64 75 72 65 20 70 6f 70 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2e 77 33 2e ┆dure pop (.w3.┆
0x43ea0…43ec0 3b 20 20 20 20 21 20 72 65 74 75 72 6e 3a 63 75 72 72 65 6e 74 20 20 20 20 20 20 20 20 20 20 20 ┆; ! return:current ┆
0x43ec0…43ee0 20 20 20 20 20 20 20 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 30 29 ┆ ! w0)┆
0x43ee0…43efc 3b 20 20 20 20 21 20 72 65 74 75 72 6e 3a 70 6f 70 20 65 6c 65 6d 65 6e 74 20 20 20 ┆; ! return:pop element ┆
0x43efc…43f02 (0x324,0x87f)
0x43f02…43f20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 0a 0a 0a 20 20 70 72 6f 63 65 64 75 72 65 ┆ ! procedure┆
0x43f20…43f40 20 63 6f 6d 70 61 72 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2e 77 33 2e 3b 20 20 20 20 ┆ compare (.w3.; ┆
0x43f40…43f60 21 20 61 62 73 20 72 65 66 20 63 75 72 72 20 63 6f 72 6f 75 74 20 28 72 65 74 75 72 6e 29 20 20 ┆! abs ref curr corout (return) ┆
0x43f60…43f7a 20 20 20 20 20 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ! ┆
0x43f7a…43f80 (0x324,0x880)
0x43f80…43fa0 77 30 20 3b 20 20 20 20 21 20 6e 6f 20 6f 66 20 62 79 74 65 73 20 74 6f 20 63 6f 6d 70 61 72 65 ┆w0 ; ! no of bytes to compare┆
0x43fa0…43fc0 20 28 63 61 6c 6c 29 20 20 20 20 20 20 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ (call) ! ┆
0x43fc0…43fe0 20 20 20 20 20 20 20 20 20 20 21 20 3d 30 20 74 68 65 20 62 79 74 65 73 20 61 72 65 20 65 71 75 ┆ ! =0 the bytes are equ┆
0x43fe0…44000 61 6c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 0a 20 20 20 00 00 00 00 00 00 00 00 ┆al ! ┆
0x44000…44006 (544,) (0x324,0x881)
0x44006…44020 20 20 20 20 20 20 20 20 20 20 20 20 77 31 20 3b 20 20 20 20 21 20 61 62 73 20 ┆ w1 ; ! abs ┆
0x44020…44040 72 65 66 20 31 2e 20 73 74 72 69 6e 67 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ref 1. string ┆
0x44040…44060 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 32 29 3b 20 20 20 20 21 20 61 62 ┆ ! w2); ! ab┆
0x44060…4407e 73 20 72 65 66 20 32 2e 20 73 74 72 69 6e 67 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆s ref 2. string ┆
0x4407e…44084 (0x324,0x882)
0x44084…440a0 20 20 20 20 20 20 20 21 0a 0a 20 20 70 72 6f 63 65 64 75 72 65 20 6f 75 74 74 69 6d ┆ ! procedure outtim┆
0x440a0…440c0 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2e 77 33 2e 3b 20 20 20 21 20 72 65 74 75 72 ┆e (.w3.; ! retur┆
0x440c0…440e0 6e 20 28 63 61 6c 6c 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆n (call) ┆
0x440e0…440fc 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 32 29 3b 20 20 20 21 ┆ ! w2); !┆
0x440fc…44102 (0x324,0x883)
0x44102…44120 20 61 62 73 20 72 65 66 20 73 74 72 69 6e 67 20 28 63 61 6c 6c 29 20 20 20 20 20 20 20 20 ┆ abs ref string (call) ┆
0x44120…44140 20 20 20 20 20 20 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ! ┆
0x44140…44160 20 20 20 21 20 61 6c 6c 20 72 65 67 69 73 74 65 72 73 20 75 6e 63 68 61 6e 67 65 64 20 20 20 20 ┆ ! all registers unchanged ┆
0x44160…4417a 20 20 20 20 20 20 20 20 20 20 20 20 21 0a 0a 20 20 70 72 6f 63 65 64 75 72 65 ┆ ! procedure┆
0x4417a…44180 (0x324,0x884)
0x44180…441a0 20 74 65 73 74 6f 75 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2e 77 33 2e 3b 20 20 20 ┆ testout (.w3.; ┆
0x441a0…441c0 21 20 72 65 74 75 72 6e 20 28 63 61 6c 6c 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆! return (call) ┆
0x441c0…441e0 20 20 20 20 20 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 30 20 3b 20 ┆ ! w0 ; ┆
0x441e0…44200 20 20 21 20 72 65 63 6f 72 64 20 6c 65 6e 67 74 68 20 28 63 61 6c 6c 29 00 00 00 00 00 00 00 00 ┆ ! record length (call) ┆
0x44200…44206 (545,) (0x324,0x885)
0x44206…44220 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 0a 20 20 20 20 20 ┆ ! ┆
0x44220…44240 20 20 20 20 20 20 20 20 20 20 20 77 31 20 3b 20 20 20 21 20 61 62 73 20 72 65 66 20 73 74 61 72 ┆ w1 ; ! abs ref star┆
0x44240…44260 74 20 6f 66 20 74 65 73 74 20 72 65 63 6f 72 64 20 28 63 61 6c 6c 29 20 20 20 20 21 0a 20 20 20 ┆t of test record (call) ! ┆
0x44260…4427e 20 20 20 20 20 20 20 20 20 20 20 20 20 77 32 29 3b 20 20 20 21 20 72 65 63 6f 72 64 20 6b ┆ w2); ! record k┆
0x4427e…44284 (0x324,0x886)
0x44284…442a0 69 6e 64 20 28 63 61 6c 6c 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ind (call) ┆
0x442a0…442c0 20 20 20 21 0a 0a 20 20 70 72 6f 63 65 64 75 72 65 20 63 72 65 61 74 65 5f 74 63 0a 20 20 20 20 ┆ ! procedure create_tc ┆
0x442c0…442e0 20 20 20 20 20 20 20 20 20 20 28 2e 77 33 2e 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ (.w3.; ┆
0x442e0…442fc 20 72 65 66 20 20 20 20 20 20 63 74 5f 74 63 2c 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ ref ct_tc, ┆
0x442fc…44302 (0x324,0x887)
0x44302…44320 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 74 5f 64 65 76 6e 61 6d 65 3b 20 21 20 64 65 ┆ ct_devname; ! de┆
0x44320…44340 76 69 63 65 20 6e 61 6d 65 20 20 66 72 6f 6d 20 65 6e 74 72 79 20 20 21 0a 20 20 20 20 20 20 20 ┆vice name from entry ! ┆
0x44340…44360 20 20 20 20 20 20 20 20 20 77 6f 72 64 20 20 20 20 20 63 74 5f 68 6f 73 74 6e 6f 2c 63 74 5f 68 ┆ word ct_hostno,ct_h┆
0x44360…4437a 6f 73 74 69 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65 66 ┆ostid; ref┆
0x4437a…44380 (0x324,0x888)
0x44380…443a0 20 63 74 5f 70 72 6f 63 72 65 66 29 3b 20 21 20 61 62 73 20 72 65 66 20 65 78 74 2e 20 70 72 6f ┆ ct_procref); ! abs ref ext. pro┆
0x443a0…443c0 63 65 73 73 20 64 65 73 63 72 2e 20 20 21 0a 0a 20 20 70 72 6f 63 65 64 75 72 65 20 72 65 6d 6f ┆cess descr. ! procedure remo┆
0x443c0…443e0 76 65 5f 74 63 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2e 77 33 2e 3b 0a 20 20 20 20 20 ┆ve_tc (.w3.; ┆
0x443e0…44400 20 20 20 20 20 20 20 20 20 20 20 72 65 66 20 20 20 20 20 20 72 74 5f 74 00 00 00 00 00 00 00 00 ┆ ref rt_t ┆
0x44400…44406 (546,) (0x324,0x889)
0x44406…44420 63 29 3b 0a 0a 0a 20 20 70 72 6f 63 65 64 75 72 65 20 66 69 6e 64 5f 74 63 0a ┆c); procedure find_tc ┆
0x44420…44440 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2e 77 33 2e 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ (.w3.; ┆
0x44440…44460 20 20 20 20 20 72 65 66 20 20 20 20 20 20 66 74 5f 64 65 76 6e 61 6d 65 3b 0a 20 20 20 20 20 20 ┆ ref ft_devname; ┆
0x44460…4447e 20 20 20 20 20 20 20 20 20 20 77 6f 72 64 20 20 20 20 20 66 74 5f 68 6f 73 74 6e 6f 2c 66 ┆ word ft_hostno,f┆
0x4447e…44484 (0x324,0x88a)
0x44484…444a0 74 5f 68 6f 73 74 69 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 6f ┆t_hostid; wo┆
0x444a0…444c0 72 64 20 66 74 5f 6b 69 6e 64 3b 20 21 20 6b 69 6e 64 20 6f 66 20 64 65 76 69 63 65 20 20 20 20 ┆rd ft_kind; ! kind of device ┆
0x444c0…444e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ! ┆
0x444e0…444fc 77 31 29 3b 20 20 20 21 20 72 65 73 75 6c 74 20 28 72 65 74 75 72 6e 29 20 20 20 20 ┆w1); ! result (return) ┆
0x444fc…44502 (0x324,0x88b)
0x44502…44520 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 ┆ ! ┆
0x44520…44540 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 3e 30 3a 20 61 62 73 20 72 65 66 20 74 63 20 ┆ ! >0: abs ref tc ┆
0x44540…44560 66 6f 75 6e 64 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 0a 20 20 20 20 20 20 ┆found ! ┆
0x44560…4457a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 3d 30 3a 20 74 63 20 ┆ ! =0: tc ┆
0x4457a…44580 (0x324,0x88c)
0x44580…445a0 6e 6f 74 20 66 6f 75 6e 64 2c 20 6e 6f 20 66 72 65 65 20 74 63 20 20 20 20 20 20 20 20 20 20 20 ┆not found, no free tc ┆
0x445a0…445c0 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 3c 30 3a 20 74 ┆! ! <0: t┆
0x445c0…445e0 63 20 6e 6f 74 20 66 6f 75 6e 64 2c 20 2d 61 62 73 20 72 65 66 20 66 72 65 65 20 74 63 20 20 20 ┆c not found, -abs ref free tc ┆
0x445e0…44600 20 20 21 0a 0a 20 20 70 72 6f 63 65 64 75 72 65 20 6c 6f 6f 6b 74 72 61 00 00 00 00 00 00 00 00 ┆ ! procedure looktra ┆
0x44600…44606 (547,) (0x324,0x88d)
0x44606…44620 6e 73 70 6f 72 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2e 77 33 2e 3b ┆nsport (.w3.;┆
0x44620…44640 20 20 20 20 21 20 61 62 73 20 72 65 66 20 63 75 72 72 20 63 6f 72 6f 75 74 20 28 72 65 74 75 72 ┆ ! abs ref curr corout (retur┆
0x44640…44660 6e 29 20 20 20 20 20 20 20 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 ┆n) ! w1┆
0x44660…4467e 20 3b 20 20 20 20 21 20 6e 61 6d 65 20 6f 66 20 74 72 61 6e 73 70 6f 72 74 20 28 63 61 6c ┆ ; ! name of transport (cal┆
0x4467e…44684 (0x324,0x88e)
0x44684…446a0 6c 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 ┆l) ! ┆
0x446a0…446c0 20 20 20 20 20 20 77 32 29 3b 20 20 20 20 21 20 61 62 73 20 72 65 66 20 63 6f 72 65 20 61 64 64 ┆ w2); ! abs ref core add┆
0x446c0…446e0 72 65 73 73 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 0a 20 20 20 20 20 20 20 ┆ress ! ┆
0x446e0…446fc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 2d 31 20 69 66 20 6e 61 6d 65 ┆ ! -1 if name┆
0x446fc…44702 (0x324,0x88f)
0x44702…44720 20 69 6c 6c 65 67 61 6c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 ┆ illegal !┆
0x44720…44740 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 30 20 69 66 20 75 ┆ ! 0 if u┆
0x44740…44760 6e 6b 6e 6f 77 6e 20 28 72 65 74 75 72 6e 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆nknown (return) ┆
0x44760…4477a 20 21 0a 0a 20 20 70 72 6f 63 65 64 75 72 65 20 70 75 74 74 72 61 6e 73 70 6f ┆ ! procedure puttranspo┆
0x4477a…44780 (0x324,0x890)
0x44780…447a0 72 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2e 77 33 2e 3b 0a 20 20 20 20 20 20 20 20 20 ┆rt (.w3.; ┆
0x447a0…447c0 20 20 20 20 20 20 77 31 29 3b 20 20 20 20 21 20 6e 61 6d 65 20 6f 66 20 74 72 61 6e 73 70 6f 72 ┆ w1); ! name of transpor┆
0x447c0…447e0 74 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 0a 0a 20 20 70 72 6f 63 ┆t ! proc┆
0x447e0…44800 65 64 75 72 65 20 69 6f 77 6f 72 6b 61 72 65 61 0a 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆edure ioworkarea ┆
0x44800…44806 (548,) (0x324,0x891)
0x44806…44820 20 20 20 20 20 20 20 28 2e 77 33 2e 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ (.w3.; ┆
0x44820…44840 20 20 20 20 77 31 29 3b 20 20 20 21 20 6d 65 73 73 61 67 65 20 61 64 64 72 65 73 73 20 28 63 61 ┆ w1); ! message address (ca┆
0x44840…44860 6c 6c 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 0a 0a 20 20 70 72 6f 63 65 64 75 ┆ll) ! procedu┆
0x44860…4487e 72 65 20 6c 69 6e 6b 75 70 72 65 6d 6f 74 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 ┆re linkupremote (┆
0x4487e…44884 (0x324,0x892)
0x44884…448a0 2e 77 33 2e 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 6f 72 64 20 6c 75 ┆.w3.; word lu┆
0x448a0…448c0 72 5f 6b 69 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 6f 72 64 20 6c 75 72 5f ┆r_kind; word lur_┆
0x448c0…448e0 68 6f 73 74 6e 6f 2c 20 6c 75 72 5f 68 6f 73 74 69 64 3b 20 72 65 66 20 6c 75 72 5f 64 65 76 69 ┆hostno, lur_hostid; ref lur_devi┆
0x448e0…448fc 6e 61 6d 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 30 20 3b 20 20 20 ┆name; w0 ; ┆
0x448fc…44902 (0x324,0x893)
0x44902…44920 20 21 20 72 65 74 75 72 6e 20 76 61 6c 75 65 20 66 72 6f 6d 20 68 6f 73 74 20 70 72 6f 63 ┆ ! return value from host proc┆
0x44920…44940 20 28 72 65 74 75 72 6e 29 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 32 29 ┆ (return) ! w2)┆
0x44940…44960 3b 20 20 20 20 21 20 72 65 66 20 70 72 6f 63 20 64 65 73 63 72 20 61 64 72 20 28 72 65 74 75 72 ┆; ! ref proc descr adr (retur┆
0x44960…4497a 6e 29 20 20 20 20 20 20 20 20 20 20 20 20 21 0a 0a 20 20 70 72 6f 63 65 64 75 ┆n) ! procedu┆
0x4497a…44980 (0x324,0x894)
0x44980…449a0 72 65 20 77 72 69 74 65 69 6e 74 65 67 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2e ┆re writeinteger (.┆
0x449a0…449c0 77 33 2e 3b 20 20 20 20 20 21 20 63 75 72 72 65 6e 74 20 28 72 65 74 75 72 6e 29 20 20 20 20 20 ┆w3.; ! current (return) ┆
0x449c0…449e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ ! ┆
0x449e0…44a00 20 20 20 20 20 77 30 20 3b 20 20 20 20 20 21 20 76 61 6c 75 65 20 28 63 00 00 00 00 00 00 00 00 ┆ w0 ; ! value (c ┆
0x44a00…44a06 (549,) (0x324,0x895)
0x44a06…44a20 61 6c 6c 2f 72 65 74 75 72 6e 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆all/return) ┆
0x44a20…44a40 20 20 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 20 3b 20 20 20 20 ┆ ! w1 ; ┆
0x44a40…44a60 20 21 20 73 74 72 69 6e 67 20 72 65 66 65 72 65 6e 63 65 20 28 63 61 6c 6c 2f 72 65 74 75 72 6e ┆ ! string reference (call/return┆
0x44a60…44a7e 29 20 20 20 20 20 20 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 ┆) ! w┆
0x44a7e…44a84 (0x324,0x896)
0x44a84…44aa0 32 29 3b 20 20 20 20 20 21 20 72 61 64 69 78 20 73 68 69 66 74 20 31 36 20 2b 20 70 ┆2); ! radix shift 16 + p┆
0x44aa0…44ac0 6f 73 69 74 69 6f 6e 73 20 73 68 69 66 74 20 38 20 2b 20 66 69 6c 6c 20 21 0a 0a 0a 20 20 70 72 ┆ositions shift 8 + fill ! pr┆
0x44ac0…44ae0 6f 63 65 64 75 72 65 20 61 64 64 74 78 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2e 77 ┆ocedure addtxt (.w┆
0x44ae0…44afc 33 2e 3b 20 20 20 20 20 21 20 63 75 72 72 65 6e 74 20 28 72 65 74 75 72 6e 29 20 20 ┆3.; ! current (return) ┆
0x44afc…44b02 (0x324,0x897)
0x44b02…44b20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 0a 20 20 20 20 20 20 20 ┆ ! ┆
0x44b20…44b40 20 20 20 20 20 20 20 20 20 77 30 20 3b 20 20 20 20 20 21 20 6e 6f 20 6f 66 20 68 61 6c 66 77 6f ┆ w0 ; ! no of halfwo┆
0x44b40…44b60 72 64 73 20 74 6f 20 6d 65 72 67 65 28 63 61 6c 6c 2f 72 65 74 75 72 6e 29 20 20 21 0a 20 20 20 ┆rds to merge(call/return) ! ┆
0x44b60…44b7a 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 20 3b 20 20 20 20 20 21 20 72 65 ┆ w1 ; ! re┆
0x44b7a…44b80 (0x324,0x898)
0x44b80…44ba0 66 20 73 6f 75 72 63 65 20 28 63 61 6c 6c 2f 72 65 74 75 72 6e 29 20 20 20 20 20 20 20 20 20 20 ┆f source (call/return) ┆
0x44ba0…44bc0 20 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 32 29 3b 20 20 20 20 20 ┆ ! w2); ┆
0x44bc0…44be0 21 20 72 65 66 20 6f 62 6a 65 63 74 20 28 63 61 6c 6c 2f 72 65 74 75 72 6e 29 20 20 20 20 20 20 ┆! ref object (call/return) ┆
0x44be0…44c00 20 20 20 20 20 20 20 20 20 21 0a 0a 0a 20 20 70 72 6f 63 65 64 75 72 65 00 00 00 00 00 00 00 00 ┆ ! procedure ┆
0x44c00…44c06 (550,) (0x324,0x899)
0x44c06…44c20 20 6f 75 74 6d 61 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2e 77 ┆ outmain (.w┆
0x44c20…44c40 33 2e 3b 20 20 20 20 20 21 20 63 75 72 72 65 6e 74 20 28 72 65 74 75 72 6e 29 20 20 20 20 20 20 ┆3.; ! current (return) ┆
0x44c40…44c60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ! ┆
0x44c60…44c7e 20 20 20 77 31 20 3b 20 20 20 20 20 21 20 6d 65 73 73 61 67 65 20 62 75 66 66 65 72 20 28 ┆ w1 ; ! message buffer (┆
0x44c7e…44c84 (0x324,0x89a)
0x44c84…44ca0 63 61 6c 6c 2f 72 65 74 75 72 6e 29 20 20 20 20 20 20 20 20 20 20 20 21 0a 20 20 20 ┆call/return) ! ┆
0x44ca0…44cc0 20 20 20 20 20 20 20 20 20 20 20 20 20 77 32 29 3b 20 20 20 20 20 21 20 73 74 61 74 75 73 20 28 ┆ w2); ! status (┆
0x44cc0…44ce0 72 65 74 75 72 6e 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 ┆return) !┆
0x44ce0…44cfc 0a 0a 0a 20 20 70 72 6f 63 65 64 75 72 65 20 64 69 73 70 6c 61 79 20 20 0a 20 20 20 ┆ procedure display ┆
0x44cfc…44d02 (0x324,0x89b)
0x44d02…44d20 20 20 20 20 20 20 20 20 20 20 20 28 2e 77 33 2e 3b 20 20 20 20 20 21 20 63 75 72 72 65 6e ┆ (.w3.; ! curren┆
0x44d20…44d40 74 20 28 72 65 74 75 72 6e 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆t (return) ┆
0x44d40…44d60 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 30 20 3b 20 20 20 20 20 21 20 66 75 ┆ ! w0 ; ! fu┆
0x44d60…44d7a 6e 63 74 69 6f 6e 20 28 63 61 6c 6c 29 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆nction (call) ┆
0x44d7a…44d80 (0x324,0x89c)
0x44d80…44da0 20 20 20 20 20 20 20 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 29 ┆ ! w1)┆
0x44da0…44dc0 3b 20 20 20 20 20 21 20 64 65 76 69 63 65 20 28 63 61 6c 6c 29 20 20 20 20 20 20 20 20 20 20 20 ┆; ! device (call) ┆
0x44dc0…44de0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 0a 0a 0a 0a 20 20 70 72 6f 63 65 64 75 72 65 20 ┆ ! procedure ┆
0x44de0…44e00 69 6e 69 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2e 77 33 2e 29 00 00 00 00 00 00 00 00 ┆init (.w3.) ┆
0x44e00…44e06 (551,) (0x324,0x89d)
0x44e06…44e20 3b 20 20 20 21 20 61 62 73 20 72 65 66 20 63 75 72 72 20 63 6f 72 6f 75 74 20 ┆; ! abs ref curr corout ┆
0x44e20…44e40 28 72 65 74 75 72 6e 29 20 20 20 20 20 20 20 20 20 20 20 21 0a 0a 20 20 70 72 6f 63 65 64 75 72 ┆(return) ! procedur┆
0x44e40…44e60 65 20 66 72 65 65 74 72 61 6e 73 70 6f 72 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2e 77 ┆e freetransport (.w┆
0x44e60…44e7e 33 2e 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3b 20 20 20 20 20 21 20 6e ┆3.; w1; ! n┆
0x44e7e…44e84 (0x324,0x89e)
0x44e84…44ea0 61 6d 65 20 6f 66 20 74 72 61 6e 73 70 6f 72 74 20 28 72 65 74 75 72 6e 29 20 20 20 ┆ame of transport (return) ┆
0x44ea0…44ec0 20 20 20 20 20 20 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 32 29 3b 20 ┆ ! w2); ┆
0x44ec0…44ee0 20 20 20 21 20 61 62 73 20 72 65 66 20 63 6f 72 65 20 61 64 64 72 65 73 73 20 20 20 20 20 20 20 ┆ ! abs ref core address ┆
0x44ee0…44efc 20 20 20 20 20 20 20 20 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ! ┆
0x44efc…44f02 (0x324,0x89f)
0x44f02…44f20 20 20 20 20 20 20 20 20 20 21 20 30 20 69 66 20 6e 6f 20 66 72 65 65 20 74 72 61 6e 73 70 ┆ ! 0 if no free transp┆
0x44f20…44f40 6f 72 74 20 28 72 65 74 75 72 6e 29 20 20 20 20 20 20 20 20 21 0a 0a 20 20 70 72 6f 63 65 64 75 ┆ort (return) ! procedu┆
0x44f40…44f60 72 65 20 64 65 66 74 72 5f 73 65 6d 61 6e 74 69 63 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆re deftr_semantic ┆
0x44f60…44f7a 28 2e 77 33 2e 3b 20 20 20 21 20 61 62 73 20 72 65 66 20 63 75 72 72 20 63 6f ┆(.w3.; ! abs ref curr co┆
0x44f7a…44f80 (0x324,0x8a0)
0x44f80…44fa0 72 6f 75 74 20 28 72 65 74 75 72 6e 29 20 20 20 20 20 20 20 20 20 20 20 21 0a 20 20 20 20 20 20 ┆rout (return) ! ┆
0x44fa0…44fc0 20 20 20 20 20 20 20 20 20 20 77 30 20 3b 20 20 20 21 20 72 65 73 75 6c 74 20 2c 20 69 6e 74 65 ┆ w0 ; ! result , inte┆
0x44fc0…44fe0 72 6e 61 6c 20 76 61 6c 75 65 20 28 72 65 74 75 72 6e 29 20 20 20 20 20 20 20 21 0a 20 20 20 20 ┆rnal value (return) ! ┆
0x44fe0…45000 20 20 20 20 20 20 20 20 20 20 20 20 77 31 20 3b 20 20 20 21 20 61 62 73 00 00 00 00 00 00 00 00 ┆ w1 ; ! abs ┆
0x45000…45006 (552,) (0x324,0x8a1)
0x45006…45020 20 72 65 66 20 74 72 61 6e 73 70 6f 72 74 20 63 6f 72 6f 75 74 69 6e 65 20 28 ┆ ref transport coroutine (┆
0x45020…45040 72 65 74 75 72 6e 29 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 32 29 3b ┆return) ! w2);┆
0x45040…45060 20 20 20 21 20 61 62 73 20 72 65 66 20 74 72 61 6e 73 70 6f 72 74 20 64 65 73 63 2e 20 69 6e 20 ┆ ! abs ref transport desc. in ┆
0x45060…4507e 63 6f 72 65 20 28 63 61 6c 6c 29 20 21 0a 0a 20 20 70 72 6f 63 65 64 75 72 65 20 61 70 70 ┆core (call) ! procedure app┆
0x4507e…45084 (0x324,0x8a2)
0x45084…450a0 6c 5f 69 6e 74 65 72 66 61 63 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2e ┆l_interface (.┆
0x450a0…450c0 77 33 2e 29 3b 0a 0a 20 20 70 72 6f 63 65 64 75 72 65 20 65 64 69 74 6f 75 74 0a 20 20 20 20 20 ┆w3.); procedure editout ┆
0x450c0…450e0 20 20 20 20 20 20 20 20 20 28 2e 77 33 2e 20 3b 20 20 21 20 72 65 74 75 72 6e 3a 20 63 75 72 72 ┆ (.w3. ; ! return: curr┆
0x450e0…450fc 65 6e 74 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 0a 20 ┆ent ! ┆
0x450fc…45102 (0x324,0x8a3)
0x45102…45120 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 30 20 20 3b 20 20 21 20 63 61 6c 6c 3a 72 ┆ w0 ; ! call:r┆
0x45120…45140 65 70 6c 61 63 65 20 63 68 61 72 73 2c 72 65 74 75 72 6e 3a 20 72 65 73 75 6c 74 28 30 3d 6f 6b ┆eplace chars,return: result(0=ok┆
0x45140…45160 29 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 20 20 3b 20 20 21 20 63 61 6c 6c ┆)! w1 ; ! call┆
0x45160…4517a 3a 20 72 65 66 20 6f 75 74 2d 6e 61 6d 65 20 20 72 65 74 3a 20 75 6e 63 68 64 ┆: ref out-name ret: unchd┆
0x4517a…45180 (0x324,0x8a4)
0x45180…451a0 20 20 20 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 32 29 20 3b 20 20 ┆ ! w2) ; ┆
0x451a0…451c0 21 20 63 61 6c 6c 3a 20 72 65 66 20 72 65 73 2d 6e 61 6d 65 20 20 72 65 74 3a 20 75 6e 63 68 64 ┆! call: ref res-name ret: unchd┆
0x451c0…451e0 20 20 20 20 20 20 20 21 0a 0a 0a 20 20 70 72 6f 63 65 64 75 72 65 20 63 72 65 61 74 65 5f 66 70 ┆ ! procedure create_fp┆
0x451e0…45200 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2e 77 33 2e 20 3b 20 00 00 00 00 00 00 00 00 ┆r (.w3. ; ┆
0x45200…45206 (553,) (0x324,0x8a5)
0x45206…45220 20 21 20 72 65 74 75 72 6e 3a 20 2a 6f 62 73 20 6f 62 73 20 4e 4f 54 20 63 75 ┆ ! return: *obs obs NOT cu┆
0x45220…45240 72 72 65 6e 74 20 20 20 20 20 20 20 20 20 21 0a 20 20 20 72 65 66 20 63 66 70 72 5f 6f 75 74 64 ┆rrent ! ref cfpr_outd┆
0x45240…45260 65 76 69 63 65 2c 20 21 20 6e 61 6d 65 20 6f 66 20 67 61 63 28 6f 75 74 29 2d 64 65 76 69 63 65 ┆evice, ! name of gac(out)-device┆
0x45260…4527e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 63 66 70 72 5f 69 ┆ ! cfpr_i┆
0x4527e…45284 (0x324,0x8a6)
0x45284…452a0 6e 64 65 76 69 63 65 3b 20 21 20 6e 61 6d 65 20 6f 66 20 67 61 63 28 69 6e 29 2d 64 ┆ndevice; ! name of gac(in)-d┆
0x452a0…452c0 65 76 69 63 65 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 77 6f ┆evice ! wo┆
0x452c0…452e0 72 64 20 63 66 70 72 5f 68 6e 6f 2c 20 21 20 68 6f 73 74 6e 6f 20 6f 66 20 67 61 63 20 68 6f 73 ┆rd cfpr_hno, ! hostno of gac hos┆
0x452e0…452fc 74 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 0a 20 20 20 20 20 20 ┆t ! ┆
0x452fc…45302 (0x324,0x8a7)
0x45302…45320 20 20 20 20 20 20 20 63 66 70 72 5f 68 69 64 3b 20 21 20 68 6f 73 74 69 64 65 6e 74 20 6f ┆ cfpr_hid; ! hostident o┆
0x45320…45340 66 20 67 61 63 20 68 6f 73 74 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 0a 20 20 20 20 ┆f gac host ! ┆
0x45340…45360 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 30 20 3b 20 21 20 72 65 74 75 72 6e 3a 20 72 65 73 ┆ w0 ; ! return: res┆
0x45360…4537a 75 6c 74 20 28 6f 6b 3d 30 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ult (ok=0) ┆
0x4537a…45380 (0x324,0x8a8)
0x45380…453a0 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 29 3b 20 21 20 63 61 6c 6c 3a ┆! w1); ! call:┆
0x453a0…453c0 72 65 74 75 72 6e 3a 20 72 65 66 28 66 72 65 65 20 63 6f 72 6f 75 74 69 6e 65 20 64 65 73 63 72 ┆return: ref(free coroutine descr┆
0x453c0…453e0 21 0a 0a 20 20 70 72 6f 63 65 64 75 72 65 20 72 65 6d 6f 76 65 5f 66 70 72 0a 20 20 20 20 20 20 ┆! procedure remove_fpr ┆
0x453e0…45400 20 20 20 20 20 20 20 20 20 20 28 2e 77 33 2e 3b 20 21 20 72 65 74 75 72 00 00 00 00 00 00 00 00 ┆ (.w3.; ! retur ┆
0x45400…45406 (554,) (0x324,0x8a9)
0x45406…45420 6e 3a 20 63 75 72 72 65 6e 74 20 63 6f 72 6f 75 74 69 6e 65 20 20 20 20 20 20 ┆n: current coroutine ┆
0x45420…45440 20 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 29 3b 20 21 20 ┆ ! w1); ! ┆
0x45440…45460 63 61 6c 6c 3a 72 65 74 75 72 6e 3a 20 72 65 66 20 28 66 70 72 2d 63 6f 72 6f 75 74 69 6e 65 29 ┆call:return: ref (fpr-coroutine)┆
0x45460…4547e 20 20 20 20 21 0a 0a 0a 0a 0a 0a 20 20 70 72 6f 63 65 64 75 72 65 20 6e 65 78 74 63 68 61 ┆ ! procedure nextcha┆
0x4547e…45484 (0x324,0x8aa)
0x45484…454a0 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2e 77 33 2e 3b 0a 20 20 20 20 20 ┆r (.w3.; ┆
0x454a0…454c0 20 20 20 20 20 20 20 20 20 20 20 77 6f 72 64 20 73 74 70 3b 20 21 20 61 62 73 20 72 65 66 20 77 ┆ word stp; ! abs ref w┆
0x454c0…454e0 6f 72 64 20 6e 65 78 74 20 74 6f 20 6c 61 73 74 20 69 6e 70 75 74 20 77 6f 72 64 20 21 0a 20 20 ┆ord next to last input word ! ┆
0x454e0…454fc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 30 20 3b 20 20 20 21 20 6e 65 78 74 20 ┆ w0 ; ! next ┆
0x454fc…45502 (0x324,0x8ab)
0x45502…45520 63 68 61 72 20 28 72 65 74 75 72 6e 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆char (return) ┆
0x45520…45540 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 20 3b 20 20 20 21 20 70 ┆ ! w1 ; ! p┆
0x45540…45560 61 72 74 69 61 6c 20 77 6f 72 64 20 28 63 61 6c 6c 2c 72 65 74 75 72 6e 29 20 20 20 20 20 20 20 ┆artial word (call,return) ┆
0x45560…4557a 20 20 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 32 ┆ ! w2┆
0x4557a…45580 (0x324,0x8ac)
0x45580…455a0 29 3b 20 20 20 21 20 61 62 73 20 72 65 66 20 6e 65 78 74 20 69 6e 70 75 74 20 77 6f 72 64 20 28 ┆); ! abs ref next input word (┆
0x455a0…455c0 63 61 6c 6c 2c 72 65 74 75 72 6e 29 20 20 21 0a 0a 0a 0a 20 20 70 72 6f 63 65 64 75 72 65 20 67 ┆call,return) ! procedure g┆
0x455c0…455e0 65 74 70 61 72 61 6d 73 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆etparams ┆
0x455e0…45600 20 28 2e 77 33 2e 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 72 65 66 20 00 00 00 00 00 00 00 00 ┆ (.w3.; ref ┆
0x45600…45606 (555,) (0x324,0x8ad)
0x45606…45620 20 20 70 61 72 61 6d 74 79 70 65 2c 70 61 72 61 6d 61 72 65 61 3b 20 21 20 63 ┆ paramtype,paramarea; ! c┆
0x45620…45640 61 6c 6c 20 20 72 65 66 2e 20 64 65 73 63 72 20 70 61 72 61 6d 20 61 72 65 61 20 21 0a 20 20 20 ┆all ref. descr param area ! ┆
0x45640…45660 20 20 20 20 20 20 20 20 20 77 6f 72 64 20 20 62 75 66 70 6e 74 72 2c 73 74 6f 70 70 6e 74 72 3b ┆ word bufpntr,stoppntr;┆
0x45660…4567e 20 20 20 20 21 20 63 61 6c 6c 20 20 72 65 66 2e 20 62 75 66 66 65 72 20 73 74 61 72 74 20 ┆ ! call ref. buffer start ┆
0x4567e…45684 (0x324,0x8ae)
0x45684…456a0 65 6e 64 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆end ! ┆
0x456a0…456c0 20 20 20 77 30 29 3b 20 20 20 20 20 20 20 20 20 20 21 20 72 65 74 75 72 6e 20 63 6f 6d 6e 6f 20 ┆ w0); ! return comno ┆
0x456c0…456e0 3c 20 31 32 20 2b 20 70 61 72 61 6d 73 20 21 0a 0a 0a 0a 20 20 70 72 6f 63 65 64 75 72 65 20 6c ┆< 12 + params ! procedure l┆
0x456e0…456fc 6f 6f 6b 75 70 72 65 6d 6f 74 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2e ┆ookupremote (.┆
0x456fc…45702 (0x324,0x8af)
0x45702…45720 77 33 2e 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65 66 20 6c 75 72 5f 66 ┆w3.; ref lur_f┆
0x45720…45740 75 6e 63 74 69 6f 6e 2c 20 21 20 32 3d 6c 6f 6f 6b 75 70 20 70 72 6f 63 65 73 73 2c 20 33 3d 20 ┆unction, ! 2=lookup process, 3= ┆
0x45740…45760 6c 6f 6f 6b 75 70 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 75 72 ┆lookup ! lur┆
0x45760…4577a 5f 70 72 6f 63 6e 61 6d 65 72 65 66 2c 20 6c 75 72 5f 64 65 76 6e 61 6d 65 3b ┆_procnameref, lur_devname;┆
0x4577a…45780 (0x324,0x8b0)
0x45780…457a0 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 30 3b 20 20 20 20 21 20 72 65 74 75 72 6e ┆ w0; ! return┆
0x457a0…457c0 20 76 61 6c 75 65 20 66 72 6f 6d 20 68 6f 73 74 20 70 72 6f 63 20 28 72 65 74 75 72 6e 29 20 20 ┆ value from host proc (return) ┆
0x457c0…457e0 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3b 20 20 20 20 21 20 6b 69 6e 64 ┆ ! w1; ! kind┆
0x457e0…45800 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ ┆
0x45800…45806 (556,) (0x324,0x8b1)
0x45806…45820 20 20 20 20 20 20 20 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ! ┆
0x45820…45840 20 20 20 77 32 29 3b 20 20 20 21 20 61 62 73 20 72 65 66 20 61 72 65 61 20 74 6f 20 70 75 74 20 ┆ w2); ! abs ref area to put ┆
0x45840…45860 68 6f 73 74 20 61 64 64 72 65 73 73 3a 20 20 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 ┆host address: ! ┆
0x45860…4587e 20 20 20 20 20 20 20 20 20 20 20 20 21 20 64 68 6c 69 6e 6b 6e 6f 3c 31 32 2b 68 6f 73 74 ┆ ! dhlinkno<12+host┆
0x4587e…45884 (0x324,0x8b2)
0x45884…458a0 6e 6f 2c 20 68 6f 73 74 69 64 20 20 20 20 20 20 20 20 20 20 20 20 20 21 0a 20 20 70 ┆no, hostid ! p┆
0x458a0…458c0 72 6f 63 65 64 75 72 65 20 74 65 72 6d 69 6e 61 6c 69 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆rocedure terminalid ┆
0x458c0…458e0 20 20 28 2e 77 33 2e 3b 20 20 20 21 20 61 62 73 20 72 65 66 20 63 75 72 72 20 63 6f 72 6f 75 74 ┆ (.w3.; ! abs ref curr corout┆
0x458e0…458fc 20 28 72 65 74 75 72 6e 29 20 20 20 20 20 20 20 20 20 20 20 21 0a 20 20 20 20 20 20 ┆ (return) ! ┆
0x458fc…45902 (0x324,0x8b3)
0x45902…45920 20 20 20 20 20 20 20 20 20 20 77 30 3b 20 20 20 20 21 20 64 65 76 69 63 65 20 68 6f 73 74 ┆ w0; ! device host┆
0x45920…45940 20 6c 69 6e 6b 20 6e 6f 20 28 63 61 6c 6c 29 20 20 20 20 20 20 20 20 20 20 20 20 20 21 0a 20 20 ┆ link no (call) ! ┆
0x45940…45960 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 32 29 3b 20 20 20 21 20 61 62 73 20 72 65 66 20 61 ┆ w2); ! abs ref a┆
0x45960…4597a 72 65 61 20 74 6f 20 70 75 74 20 64 65 76 69 63 65 20 6e 61 6d 65 20 28 63 61 ┆rea to put device name (ca┆
0x4597a…45980 (0x324,0x8b4)
0x45980…459a0 6c 6c 29 20 20 20 21 0a 0a 20 20 70 72 6f 63 65 64 75 72 65 20 66 69 6e 64 5f 63 6f 6e 73 6f 6c ┆ll) ! procedure find_consol┆
0x459a0…459c0 64 65 76 69 63 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2e 77 33 2e 3b 20 20 20 21 20 ┆device (.w3.; ! ┆
0x459c0…459e0 61 62 73 20 72 65 66 20 63 75 72 72 20 63 6f 72 6f 75 74 20 28 72 65 74 75 72 6e 29 20 20 20 20 ┆abs ref curr corout (return) ┆
0x459e0…45a00 20 20 20 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ ! ┆
0x45a00…45a06 (557,) (0x324,0x8b5)
0x45a06…45a20 20 77 30 3b 20 20 20 20 21 20 31 3d 20 6c 6f 63 61 6c 20 32 3d 20 72 65 6d 6f ┆ w0; ! 1= local 2= remo┆
0x45a20…45a40 74 65 20 28 63 61 6c 6c 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 0a 20 20 20 20 20 20 20 ┆te (call) ! ┆
0x45a40…45a60 20 20 20 20 20 20 20 20 20 77 31 3b 20 20 20 20 21 20 61 62 73 20 72 65 66 20 63 6f 6e 73 6f 6c ┆ w1; ! abs ref consol┆
0x45a60…45a7e 65 20 6e 61 6d 65 20 28 63 61 6c 6c 29 20 20 20 20 20 20 20 20 20 20 20 20 21 0a 20 20 20 ┆e name (call) ! ┆
0x45a7e…45a84 (0x324,0x8b6)
0x45a84…45aa0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 72 65 74 75 72 6e ┆ ! return┆
0x45aa0…45ac0 3a 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 20 ┆: ┆
0x45ac0…45ae0 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 3e 30 20 61 ┆ ! ! >0 a┆
0x45ae0…45afc 62 73 20 72 65 66 20 74 72 61 6e 73 70 2e 20 63 6f 72 6f 75 74 20 20 20 20 20 20 20 ┆bs ref transp. corout ┆
0x45afc…45b02 (0x324,0x8b7)
0x45b02…45b20 20 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ! ┆
0x45b20…45b40 21 20 3d 30 20 6e 6f 74 20 66 6f 75 6e 64 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆! =0 not found ┆
0x45b40…45b60 20 20 20 20 20 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ! ┆
0x45b60…45b7a 20 20 21 20 3c 30 20 72 65 6d 6f 76 65 64 20 62 75 74 20 73 69 67 6e 65 64 20 ┆ ! <0 removed but signed ┆
0x45b7a…45b80 (0x324,0x8b8)
0x45b80…45ba0 75 70 20 62 79 20 6f 70 65 72 61 74 6f 72 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆up by operator ! ┆
0x45ba0…45bc0 20 20 20 77 32 29 3b 20 20 20 21 20 61 62 73 20 72 65 66 20 64 65 76 69 63 65 20 6e 61 6d 65 20 ┆ w2); ! abs ref device name ┆
0x45bc0…45be0 28 63 61 6c 6c 29 20 20 20 20 20 20 20 20 20 20 20 20 20 21 0a 0a 20 20 70 72 6f 63 65 64 75 72 ┆(call) ! procedur┆
0x45be0…45c00 65 20 6f 70 65 72 61 74 6f 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆e operator ┆
0x45c00…45c06 (558,) (0x324,0x8b9)
0x45c06…45c20 20 28 2e 77 33 2e 29 3b 20 20 21 20 72 65 74 75 72 6e 20 28 70 73 65 75 64 6f ┆ (.w3.); ! return (pseudo┆
0x45c20…45c40 20 63 61 6c 6c 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 0a 0a 20 20 70 72 ┆ call) ! pr┆
0x45c40…45c60 6f 63 65 64 75 72 65 20 67 65 74 5f 62 6c 6f 63 6b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ocedure get_block ┆
0x45c60…45c7e 28 2e 77 33 2e 3b 20 20 20 21 20 61 62 73 20 72 65 66 20 63 75 72 72 20 63 6f 72 6f 75 74 ┆(.w3.; ! abs ref curr corout┆
0x45c7e…45c84 (0x324,0x8ba)
0x45c84…45ca0 20 28 72 65 74 75 72 6e 29 20 20 20 20 20 20 20 20 20 20 20 21 0a 20 20 20 20 20 20 ┆ (return) ! ┆
0x45ca0…45cc0 20 20 20 20 20 20 20 20 20 20 77 30 3b 20 20 20 20 21 20 6d 61 78 20 6e 6f 20 6f 66 20 68 77 6f ┆ w0; ! max no of hwo┆
0x45cc0…45ce0 72 64 73 20 69 6e 20 62 6c 6f 63 6b 20 28 63 61 6c 6c 29 20 20 20 20 20 20 20 21 0a 20 20 20 20 ┆rds in block (call) ! ┆
0x45ce0…45cfc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 6e 6f 20 6f 66 20 68 ┆ ! no of h┆
0x45cfc…45d02 (0x324,0x8bb)
0x45d02…45d20 77 6f 72 64 20 69 6e 20 62 6c 6f 63 6b 20 28 72 65 74 75 72 6e 29 20 20 20 20 20 20 20 20 ┆word in block (return) ┆
0x45d20…45d40 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3b 20 20 20 20 21 20 61 62 73 ┆ ! w1; ! abs┆
0x45d40…45d60 20 72 65 66 20 62 75 66 66 65 72 20 66 69 72 73 74 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ref buffer first ┆
0x45d60…45d7a 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 32 29 3b ┆ ! w2);┆
0x45d7a…45d80 (0x324,0x8bc)
0x45d80…45da0 20 20 20 21 20 73 74 61 74 75 73 20 28 72 65 74 75 72 6e 29 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ! status (return) ┆
0x45da0…45dc0 20 20 20 20 20 20 20 20 20 20 20 20 21 0a 20 20 70 72 6f 63 65 64 75 72 65 20 70 75 74 5f 62 6c ┆ ! procedure put_bl┆
0x45dc0…45de0 6f 63 6b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2e 77 33 2e 3b 20 20 20 21 20 61 62 73 ┆ock (.w3.; ! abs┆
0x45de0…45e00 20 72 65 66 20 63 75 72 72 20 63 6f 72 6f 75 74 20 28 72 65 74 75 72 6e 00 00 00 00 00 00 00 00 ┆ ref curr corout (return ┆
0x45e00…45e06 (559,) (0x324,0x8bd)
0x45e06…45e20 20 29 20 20 20 20 20 20 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ) ! ┆
0x45e20…45e40 20 20 20 20 77 30 3b 20 20 20 20 21 20 6e 6f 20 6f 66 20 68 77 6f 72 64 73 20 69 6e 20 62 6c 6f ┆ w0; ! no of hwords in blo┆
0x45e40…45e60 63 6b 20 28 63 61 6c 6c 29 20 20 20 20 20 20 20 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 ┆ck (call) ! ┆
0x45e60…45e7e 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 6e 6f 20 6f 66 20 68 77 6f 72 64 73 20 61 63 ┆ ! no of hwords ac┆
0x45e7e…45e84 (0x324,0x8be)
0x45e84…45ea0 74 75 61 6c 6c 79 20 70 75 74 20 28 72 65 74 75 72 6e 29 20 20 20 20 20 21 0a 20 20 ┆tually put (return) ! ┆
0x45ea0…45ec0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3b 20 20 20 20 21 20 61 62 73 20 72 65 66 20 62 ┆ w1; ! abs ref b┆
0x45ec0…45ee0 75 66 66 65 72 20 28 63 61 6c 6c 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 0a ┆uffer (call) ! ┆
0x45ee0…45efc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 32 29 3b 20 20 20 21 20 73 74 61 ┆ w2); ! sta┆
0x45efc…45f02 (0x324,0x8bf)
0x45f02…45f20 74 75 73 20 28 72 65 74 75 72 6e 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆tus (return) ┆
0x45f20…45f40 20 20 20 20 20 20 21 0a 0a 20 20 70 72 6f 63 65 64 75 72 65 20 63 6c 6f 73 65 62 73 0a 20 20 20 ┆ ! procedure closebs ┆
0x45f40…45f60 20 20 20 20 20 20 20 20 20 20 20 28 2e 77 33 2e 29 3b 20 20 21 20 61 62 73 20 72 65 66 20 63 75 ┆ (.w3.); ! abs ref cu┆
0x45f60…45f7a 72 72 20 63 6f 72 6f 75 74 20 28 72 65 74 75 72 6e 29 20 20 20 20 20 20 20 20 ┆rr corout (return) ┆
0x45f7a…45f80 (0x324,0x8c0)
0x45f80…45fa0 20 20 20 21 0a 0a 20 20 70 72 6f 63 65 64 75 72 65 20 6f 70 65 6e 62 73 0a 20 20 20 20 20 20 20 ┆ ! procedure openbs ┆
0x45fa0…45fc0 20 20 20 20 20 20 20 28 2e 77 33 2e 29 3b 20 20 21 20 61 62 73 20 72 65 66 20 63 75 72 72 20 63 ┆ (.w3.); ! abs ref curr c┆
0x45fc0…45fe0 6f 72 6f 75 74 20 28 72 65 74 75 72 6e 29 20 20 20 20 20 20 20 20 20 20 20 21 0a 0a 20 20 70 72 ┆orout (return) ! pr┆
0x45fe0…46000 6f 63 65 64 75 72 65 20 68 6f 6c 64 0a 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ocedure hold ┆
0x46000…46006 (560,) (0x324,0x8c1)
0x46006…46020 20 20 20 28 2e 77 33 2e 20 3b 20 20 21 20 61 62 73 20 72 65 66 20 63 75 72 72 ┆ (.w3. ; ! abs ref curr┆
0x46020…46040 20 63 6f 72 6f 75 74 20 28 72 65 74 75 72 6e 29 20 20 20 20 20 20 20 20 20 20 20 21 0a 20 20 20 ┆ corout (return) ! ┆
0x46040…46060 20 20 20 20 20 20 20 20 20 20 20 20 20 77 30 29 3b 20 20 20 21 20 69 66 3c 3e 30 20 74 68 65 6e ┆ w0); ! if<>0 then┆
0x46060…4607e 20 61 6c 74 65 72 6e 61 74 65 20 72 65 74 75 72 6e 20 75 73 65 64 20 69 66 20 74 63 68 6f ┆ alternate return used if tcho┆
0x4607e…46084 (0x324,0x8c2)
0x46084…460a0 6c 64 20 3d 20 30 20 21 0a 0a 20 20 70 72 6f 63 65 64 75 72 65 20 6f 70 72 6f 75 74 ┆ld = 0 ! procedure oprout┆
0x460a0…460c0 70 75 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2e 77 33 2e 3b 20 20 20 21 20 61 62 73 ┆put (.w3.; ! abs┆
0x460c0…460e0 20 72 65 66 20 63 75 72 72 20 63 6f 72 6f 75 74 20 28 72 65 74 75 72 6e 29 20 20 20 20 20 20 20 ┆ ref curr corout (return) ┆
0x460e0…460fc 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 30 20 3b 20 20 ┆ ! w0 ; ┆
0x460fc…46102 (0x324,0x8c3)
0x46102…46120 20 21 20 63 61 6c 6c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ! call ┆
0x46120…46140 20 20 20 20 20 20 20 20 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ! ┆
0x46140…46160 20 20 20 20 20 21 20 3d 20 31 20 70 65 6e 64 69 6e 67 20 6f 75 74 70 75 74 20 20 20 20 20 20 20 ┆ ! = 1 pending output ┆
0x46160…4617a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 ┆ ! ┆
0x4617a…46180 (0x324,0x8c4)
0x46180…461a0 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 3d 20 32 20 65 72 72 6f 72 20 6f 75 74 70 75 74 20 ┆ ! = 2 error output ┆
0x461a0…461c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 ┆ ! ┆
0x461c0…461e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 72 65 74 75 72 6e 3a 20 75 6e 64 65 66 69 6e ┆ ! return: undefin┆
0x461e0…46200 65 64 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ed ┆
0x46200…46206 (561,) (0x324,0x8c5)
0x46206…46220 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 20 3b 20 20 20 21 ┆! w1 ; !┆
0x46220…46240 20 63 61 6c 6c 3a 20 74 65 78 74 20 63 6f 64 65 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ call: text code ┆
0x46240…46260 20 20 20 20 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ! ┆
0x46260…4627e 20 21 20 72 65 74 75 72 6e 3a 20 75 6e 64 65 66 69 6e 65 64 20 20 20 20 20 20 20 20 20 20 ┆ ! return: undefined ┆
0x4627e…46284 (0x324,0x8c6)
0x46284…462a0 20 20 20 20 20 20 20 20 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ! ┆
0x462a0…462c0 20 20 77 32 29 3b 20 20 20 21 20 63 61 6c 6c 3a 20 73 74 61 74 75 73 20 20 20 20 20 20 20 20 20 ┆ w2); ! call: status ┆
0x462c0…462e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ! ┆
0x462e0…462fc 20 20 20 20 20 20 20 20 20 20 20 21 20 72 65 74 75 72 6e 3a 20 63 6f 6e 73 6f 6c 65 ┆ ! return: console┆
0x462fc…46302 (0x324,0x8c7)
0x46302…46320 20 73 74 61 74 75 73 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 0a 0a 20 20 70 ┆ status ! p┆
0x46320…46340 72 6f 63 65 64 75 72 65 20 75 70 64 61 74 65 74 72 61 6e 73 70 6f 72 74 0a 20 20 20 20 20 20 20 ┆rocedure updatetransport ┆
0x46340…46360 20 20 20 20 20 20 20 28 2e 77 33 2e 29 3b 20 20 21 20 61 62 73 20 72 65 66 20 63 75 72 72 20 63 ┆ (.w3.); ! abs ref curr c┆
0x46360…4637a 6f 72 6f 75 74 20 28 72 65 74 75 72 6e 29 20 20 20 20 20 20 20 20 20 20 20 21 ┆orout (return) !┆
0x4637a…46380 (0x324,0x8c8)
0x46380…463a0 0a 0a 20 20 70 72 6f 63 65 64 75 72 65 20 63 68 65 63 6b 5f 64 65 76 69 63 65 73 74 61 74 75 73 ┆ procedure check_devicestatus┆
0x463a0…463c0 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2e 77 33 2e 3b 20 20 20 21 20 61 62 73 20 72 65 ┆ (.w3.; ! abs re┆
0x463c0…463e0 66 20 63 75 72 72 20 63 6f 72 6f 75 74 20 28 72 65 74 75 72 6e 29 20 20 20 20 20 20 20 20 20 20 ┆f curr corout (return) ┆
0x463e0…46400 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 30 3b 20 20 00 00 00 00 00 00 00 00 ┆ ! w0; ┆
0x46400…46406 (562,) (0x324,0x8c9)
0x46406…46420 20 20 21 20 61 6e 73 77 65 72 20 72 65 73 75 6c 74 20 66 72 6f 6d 20 6d 6f 6e ┆ ! answer result from mon┆
0x46420…46440 69 74 6f 72 20 28 63 61 6c 6c 29 20 20 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆itor (call) ! ┆
0x46440…46460 20 20 20 77 31 3b 20 20 20 20 21 20 61 62 73 20 72 65 66 20 61 6e 73 77 65 72 20 28 63 61 6c 6c ┆ w1; ! abs ref answer (call┆
0x46460…4647e 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 ┆) ! ┆
0x4647e…46484 (0x324,0x8ca)
0x46484…464a0 20 20 20 20 20 20 20 77 32 29 3b 20 20 20 21 20 6d 6f 64 69 66 69 65 64 20 73 74 61 ┆ w2); ! modified sta┆
0x464a0…464c0 74 75 73 20 28 61 6c 67 6f 6c 20 6d 61 6e 6e 65 72 29 20 28 72 65 74 75 72 6e 29 20 21 0a 0a 20 ┆tus (algol manner) (return) ! ┆
0x464c0…464e0 20 70 72 6f 63 65 64 75 72 65 20 70 72 63 61 75 73 65 20 28 2e 77 33 2e 3b 77 30 29 3b 0a 0a 20 ┆ procedure prcause (.w3.;w0); ┆
0x464e0…464fc 20 70 72 6f 63 65 64 75 72 65 20 70 72 6c 69 73 74 69 64 0a 20 20 20 20 20 20 20 20 ┆ procedure prlistid ┆
0x464fc…46502 (0x324,0x8cb)
0x46502…46520 20 20 20 20 20 20 28 2e 77 33 2e 3b 20 20 20 21 20 61 62 73 20 72 65 66 20 63 75 72 72 20 ┆ (.w3.; ! abs ref curr ┆
0x46520…46540 63 6f 72 6f 75 74 20 28 72 65 74 75 72 6e 29 20 20 20 20 20 20 20 20 20 20 20 21 0a 20 20 20 20 ┆corout (return) ! ┆
0x46540…46560 20 20 20 20 20 20 20 20 20 20 20 20 77 30 29 3b 20 20 20 21 20 6e 6f 20 6f 66 20 68 61 6c 66 77 ┆ w0); ! no of halfw┆
0x46560…4657a 6f 72 64 73 20 69 6e 20 62 6c 6f 63 6b 20 28 72 65 74 75 72 6e 29 20 20 20 20 ┆ords in block (return) ┆
0x4657a…46580 (0x324,0x8cc)
0x46580…465a0 20 20 21 0a 0a 20 20 70 72 6f 63 65 64 75 72 65 20 70 72 6c 69 73 74 64 61 74 65 0a 20 20 20 20 ┆ ! procedure prlistdate ┆
0x465a0…465c0 20 20 20 20 20 20 20 20 20 20 20 20 28 2e 77 33 2e 3b 20 21 20 61 62 73 20 72 65 66 20 63 75 72 ┆ (.w3.; ! abs ref cur┆
0x465c0…465e0 72 20 63 6f 72 6f 75 74 28 72 65 74 75 72 6e 29 20 20 20 20 20 20 20 20 20 20 20 20 21 0a 20 20 ┆r corout(return) ! ┆
0x465e0…46600 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 30 29 3b 20 21 20 6e 00 00 00 00 00 00 00 00 ┆ w0); ! n ┆
0x46600…46606 (563,) (0x324,0x8cd)
0x46606…46620 6f 20 6f 66 20 68 61 6c 66 77 6f 72 64 73 20 69 6e 20 62 6c 6f 63 6b 20 28 72 ┆o of halfwords in block (r┆
0x46620…46640 65 74 75 72 6e 29 20 20 20 20 20 20 21 0a 0a 20 20 70 72 6f 63 65 64 75 72 65 20 70 72 0a 20 20 ┆eturn) ! procedure pr ┆
0x46640…46660 20 20 20 20 20 20 20 20 20 20 20 20 28 2e 77 33 2e 29 3b 20 20 21 20 72 65 74 75 72 6e 20 20 28 ┆ (.w3.); ! return (┆
0x46660…4667e 70 73 65 75 64 6f 20 63 61 6c 6c 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆pseudo call) ┆
0x4667e…46684 (0x324,0x8ce)
0x46684…466a0 21 0a 0a 20 20 70 72 6f 63 65 64 75 72 65 20 70 63 0a 20 20 20 20 20 20 20 20 20 20 ┆! procedure pc ┆
0x466a0…466c0 20 20 20 20 28 2e 77 33 2e 29 3b 20 20 21 20 70 73 65 75 64 6f 20 63 61 6c 6c 20 20 20 20 20 20 ┆ (.w3.); ! pseudo call ┆
0x466c0…466e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 0a 20 20 70 72 6f 63 65 64 ┆ ! proced┆
0x466e0…466fc 75 72 65 20 72 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2e 77 33 2e 29 3b ┆ure rd (.w3.);┆
0x466fc…46702 (0x324,0x8cf)
0x46702…46720 20 20 21 20 70 73 65 75 64 6f 20 63 61 6c 6c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ! pseudo call ┆
0x46720…46740 20 20 20 20 20 20 20 20 20 20 20 20 20 21 0a 0a 20 20 70 72 6f 63 65 64 75 72 65 20 74 77 0a 20 ┆ ! procedure tw ┆
0x46740…46760 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2e 77 33 2e 29 3b 20 20 21 20 70 73 65 75 64 6f 20 63 ┆ (.w3.); ! pseudo c┆
0x46760…4677a 61 6c 6c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆all ┆
0x4677a…46780 (0x324,0x8d0)
0x46780…467a0 20 20 20 20 20 21 0a 0a 20 20 70 72 6f 63 65 64 75 72 65 20 67 65 74 6c 69 6e 65 73 0a 20 20 20 ┆ ! procedure getlines ┆
0x467a0…467c0 20 20 20 20 20 20 20 20 20 20 20 28 2e 77 33 2e 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ (.w3.; ┆
0x467c0…467e0 20 20 77 30 20 3b 20 21 20 72 65 74 75 72 6e 3a 20 73 69 7a 65 20 6f 66 20 6f 75 74 70 75 74 20 ┆ w0 ; ! return: size of output ┆
0x467e0…46800 62 75 66 66 65 72 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆buffer ! ┆
0x46800…46806 (564,) (0x324,0x8d1)
0x46806…46820 20 77 32 29 3b 20 21 20 72 65 74 75 72 6e 3a 20 73 74 61 74 75 73 20 20 20 20 ┆ w2); ! return: status ┆
0x46820…46840 20 20 20 20 20 20 20 20 20 20 20 20 21 0a 0a 20 20 70 72 6f 63 65 64 75 72 65 20 63 6f 6e 6e 65 ┆ ! procedure conne┆
0x46840…46860 63 74 5f 33 32 37 30 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2e 77 33 2e 29 3b 20 20 21 ┆ct_3270 (.w3.); !┆
0x46860…4687e 20 63 6f 6e 6e 65 63 74 27 73 20 61 6e 64 20 72 65 73 65 72 76 65 73 20 70 72 69 6e 74 65 ┆ connect's and reserves printe┆
0x4687e…46884 (0x324,0x8d2)
0x46884…468a0 72 20 21 0a 0a 0a 20 20 70 72 6f 63 65 64 75 72 65 20 64 69 73 63 5f 33 32 37 30 0a ┆r ! procedure disc_3270 ┆
0x468a0…468c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2e 77 33 2e 29 3b 20 20 21 20 64 69 73 63 6f 6e 6e ┆ (.w3.); ! disconn┆
0x468c0…468e0 65 63 74 27 73 20 61 6e 64 20 72 65 6c 65 61 73 65 73 20 70 72 69 6e 74 65 72 20 21 0a 0a 0a 0a ┆ect's and releases printer ! ┆
0x468e0…468fc 20 20 0a 0a 20 20 70 72 6f 63 65 64 75 72 65 20 66 70 72 0a 20 20 20 20 20 20 20 20 ┆ procedure fpr ┆
0x468fc…46902 (0x324,0x8d3)
0x46902…46920 20 20 20 20 20 20 28 2e 77 33 2e 29 3b 20 20 21 20 70 73 65 75 64 6f 20 63 61 6c 6c 20 20 ┆ (.w3.); ! pseudo call ┆
0x46920…46940 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 21 0a 0a 20 20 70 ┆ ! p┆
0x46940…46960 72 6f 63 65 64 75 72 65 20 66 70 72 5f 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2e ┆rocedure fpr_in (.┆
0x46960…4697a 77 33 2e 29 3b 20 20 21 20 70 73 65 75 64 6f 20 63 61 6c 6c 20 20 20 20 20 20 ┆w3.); ! pseudo call ┆
0x4697a…46980 (0x324,0x8d4)
0x46980…469a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 0a 0a 0a 0a 0a 20 20 6c 61 ┆ ! la┆
0x469a0…469c0 62 65 6c 20 63 65 6e 74 72 61 6c 5f 77 61 69 74 2c 77 61 69 74 5f 6e 65 78 74 2c 63 6f 72 75 5f ┆bel central_wait,wait_next,coru_┆
0x469c0…469e0 66 6f 75 6e 64 2c 61 63 74 69 76 61 74 65 2c 69 6e 69 74 69 61 6c 69 7a 65 2c 0a 20 20 20 20 20 ┆found,activate,initialize, ┆
0x469e0…46a00 20 20 20 69 6e 74 65 72 72 75 70 74 2c 75 6e 69 6e 3b 0a 0a 20 20 72 65 00 00 00 00 00 00 00 00 ┆ interrupt,unin; re ┆
0x46a00…46a06 (565,) (0x324,0x8d5)
0x46a06…46a20 63 6f 72 64 20 63 6f 6e 74 72 6f 6c 6d 65 73 73 0a 20 20 20 20 20 20 20 20 20 ┆cord controlmess ┆
0x46a20…46a40 20 20 28 72 65 66 20 63 6d 5f 6e 65 78 74 2c 63 6d 5f 70 72 65 76 2c 63 6d 5f 72 65 63 65 69 76 ┆ (ref cm_next,cm_prev,cm_receiv┆
0x46a40…46a60 65 72 2c 63 6d 5f 73 65 6e 64 65 72 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 79 74 65 20 63 ┆er,cm_sender; byte c┆
0x46a60…46a7e 6d 5f 6f 70 2c 63 6d 5f 6d 6f 64 65 29 3b 0a 0a 20 20 72 65 63 6f 72 64 20 63 6f 72 6f 75 ┆m_op,cm_mode); record corou┆
0x46a7e…46a84 (0x324,0x8d6)
0x46a84…46aa0 74 69 6e 65 0a 20 20 20 20 20 20 20 20 20 20 20 28 72 65 66 20 63 5f 6e 65 78 74 2c ┆tine (ref c_next,┆
0x46aa0…46ac0 63 5f 70 72 65 76 2c 63 5f 6d 62 75 66 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 6f 72 64 20 ┆c_prev,c_mbuf; word ┆
0x46ac0…46ae0 63 5f 77 30 2c 63 5f 77 31 2c 63 5f 77 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 72 65 66 20 ┆c_w0,c_w1,c_w2; ref ┆
0x46ae0…46afc 20 63 5f 69 63 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 6f 72 64 20 63 5f 6e 72 ┆ c_ic; word c_nr┆
0x46afc…46b02 (0x324,0x8d7)
0x46b02…46b20 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 72 65 66 20 63 5f 73 74 61 63 6b 3b 0a 20 20 20 ┆; ref c_stack; ┆
0x46b20…46b40 20 20 20 20 20 20 20 20 20 61 72 72 61 79 20 28 31 3a 31 30 29 20 63 5f 73 74 61 63 6b 66 69 6c ┆ array (1:10) c_stackfil┆
0x46b40…46b60 6c 20 6f 66 20 77 6f 72 64 29 3b 0a 0a 20 20 72 65 63 6f 72 64 20 74 72 61 6e 73 70 63 6f 72 6f ┆l of word); record transpcoro┆
0x46b60…46b7a 75 74 0a 20 20 20 20 20 20 20 20 20 20 20 28 61 72 72 61 79 28 31 3a 21 6c 65 ┆ut (array(1:!le┆
0x46b7a…46b80 (0x324,0x8d8)
0x46b80…46ba0 6e 67 74 68 28 63 6f 72 6f 75 74 69 6e 65 29 29 20 74 63 5f 66 69 6c 6c 20 6f 66 20 62 79 74 65 ┆ngth(coroutine)) tc_fill of byte┆
0x46ba0…46bc0 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 72 65 66 20 74 63 5f 6e 65 78 74 74 63 3b 20 21 20 73 ┆; ref tc_nexttc; ! s┆
0x46bc0…46be0 74 61 74 69 63 20 6c 69 6e 6b 20 74 6f 20 6e 65 78 74 20 74 72 61 6e 73 70 6f 72 74 20 63 6f 72 ┆tatic link to next transport cor┆
0x46be0…46c00 6f 75 74 69 6e 65 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 79 74 00 00 00 00 00 00 00 00 ┆outine ! byt ┆
0x46c00…46c06 (566,) (0x324,0x8d9)
0x46c06…46c20 65 20 74 63 5f 63 72 65 61 74 65 64 2c 20 21 20 3d 20 30 20 69 66 20 74 68 65 ┆e tc_created, ! = 0 if the┆
0x46c20…46c40 20 63 6f 72 6f 75 74 69 6e 65 20 69 73 20 69 64 6c 65 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ coroutine is idle ! ┆
0x46c40…46c60 20 20 20 20 20 20 74 63 5f 6b 69 6e 64 3b 20 21 20 6b 69 6e 64 20 6f 66 20 73 6c 6f 77 20 64 65 ┆ tc_kind; ! kind of slow de┆
0x46c60…46c7e 76 69 63 65 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 6f 72 64 20 74 63 5f 68 6f 6c ┆vice ! word tc_hol┆
0x46c7e…46c84 (0x324,0x8da)
0x46c84…46ca0 64 2c 74 63 5f 68 65 6c 64 3b 20 21 20 3c 3e 30 20 69 66 20 63 6f 72 6f 75 74 69 6e ┆d,tc_held; ! <>0 if coroutin┆
0x46ca0…46cc0 65 20 69 73 20 77 61 69 74 69 6e 67 20 66 6f 72 20 6f 70 65 72 61 74 6f 72 20 63 6d 64 2e 20 21 ┆e is waiting for operator cmd. !┆
0x46cc0…46ce0 0a 20 20 20 20 20 20 20 20 20 20 20 20 72 65 66 20 74 63 5f 6e 65 78 74 74 72 2c 74 63 5f 70 72 ┆ ref tc_nexttr,tc_pr┆
0x46ce0…46cfc 65 76 74 72 3b 20 20 21 20 71 75 65 75 65 20 68 65 61 64 20 6f 66 20 74 72 61 6e 73 ┆evtr; ! queue head of trans┆
0x46cfc…46d02 (0x324,0x8db)
0x46d02…46d20 70 6f 72 74 20 71 75 65 75 65 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 72 65 66 20 74 ┆port queue ! ref t┆
0x46d20…46d40 63 5f 62 75 66 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 6f 72 64 20 74 63 5f 62 75 66 73 69 ┆c_buf; word tc_bufsi┆
0x46d40…46d60 7a 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 6f 72 64 20 74 63 5f 68 6f 73 74 6e 6f 2c 74 ┆ze; word tc_hostno,t┆
0x46d60…46d7a 63 5f 68 6f 73 74 69 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 74 65 78 74 ┆c_hostid; text┆
0x46d7a…46d80 (0x324,0x8dc)
0x46d80…46da0 28 31 31 29 20 74 63 5f 64 65 76 6e 61 6d 65 3b 20 21 20 64 65 76 69 63 65 20 6e 61 6d 65 20 28 ┆(11) tc_devname; ! device name (┆
0x46da0…46dc0 20 64 65 66 69 6e 65 64 20 69 6e 20 65 6e 74 72 79 20 29 20 21 0a 20 20 20 20 20 20 20 20 20 20 ┆ defined in entry ) ! ┆
0x46dc0…46de0 20 20 74 65 78 74 28 31 34 29 20 74 63 5f 6e 61 6d 65 3b 20 20 20 20 20 21 20 6e 61 6d 65 20 6f ┆ text(14) tc_name; ! name o┆
0x46de0…46e00 66 20 65 78 74 65 72 6e 61 6c 20 70 72 6f 63 65 73 73 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆f external process ┆
0x46e00…46e06 (567,) (0x324,0x8dd)
0x46e06…46e20 20 20 20 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 74 65 78 74 28 ┆ ! text(┆
0x46e20…46e40 31 34 29 20 74 63 5f 63 6f 6e 73 6f 6c 65 3b 20 21 20 70 72 6f 63 65 73 73 20 6e 61 6d 65 20 6f ┆14) tc_console; ! process name o┆
0x46e40…46e60 66 20 6f 70 72 2e 20 63 6f 6e 73 6f 6c 65 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 6f 72 ┆f opr. console ! wor┆
0x46e60…46e7e 64 20 74 63 5f 6f 68 6e 6f 2c 20 21 20 6f 70 65 72 61 74 6f 72 20 68 6f 73 74 20 6e 6f 20 ┆d tc_ohno, ! operator host no ┆
0x46e7e…46e84 (0x324,0x8de)
0x46e84…46ea0 73 70 65 63 2e 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 63 5f ┆spec. ! tc_┆
0x46ea0…46ec0 6f 68 69 64 3b 20 21 20 6f 70 65 72 61 74 6f 72 20 68 6f 73 74 20 69 64 20 73 70 65 63 2e 20 21 ┆ohid; ! operator host id spec. !┆
0x46ec0…46ee0 0a 20 20 20 20 20 20 20 20 20 20 20 20 74 65 78 74 28 31 31 29 20 74 63 5f 64 65 76 63 6f 6e 73 ┆ text(11) tc_devcons┆
0x46ee0…46efc 3b 20 21 20 64 65 76 69 63 65 20 6e 61 6d 65 20 6f 66 20 6f 70 65 72 61 74 6f 72 20 ┆; ! device name of operator ┆
0x46efc…46f02 (0x324,0x8df)
0x46f02…46f20 69 66 20 72 65 6d 6f 74 65 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 6f 72 64 20 74 ┆if remote ! word t┆
0x46f20…46f40 63 5f 6f 69 6e 74 65 72 76 65 6e 74 3b 20 21 20 3d 20 30 20 6e 6f 20 69 6e 74 65 72 76 65 6e 74 ┆c_ointervent; ! = 0 no intervent┆
0x46f40…46f60 69 6f 6e 20 66 72 6f 6d 20 6f 70 65 72 61 74 6f 72 20 6f 72 20 61 70 70 6c 2e 20 21 0a 20 20 20 ┆ion from operator or appl. ! ┆
0x46f60…46f7a 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 ┆ ┆
0x46f7a…46f80 (0x324,0x8e0)
0x46f80…46fa0 20 20 21 20 3c 3e 30 20 3c 66 72 65 65 20 70 61 72 61 6d 3e 20 73 68 69 66 74 20 20 2b 3c 63 6f ┆ ! <>0 <free param> shift +<co┆
0x46fa0…46fc0 6d 6d 61 6e 64 3e 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 6f 72 64 20 74 63 5f 61 69 6e ┆mmand> ! word tc_ain┆
0x46fc0…46fe0 74 65 72 76 65 6e 74 3b 20 21 20 3d 20 30 20 6e 6f 20 69 6e 74 65 72 76 65 6e 74 69 6f 6e 20 66 ┆tervent; ! = 0 no intervention f┆
0x46fe0…47000 72 6f 6d 20 61 70 70 6c 2e 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆rom appl. ! ┆
0x47000…47006 (568,) (0x324,0x8e1)
0x47006…47020 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 3c 3e 20 30 ┆ ! <> 0┆
0x47020…47040 20 69 6e 74 65 72 76 65 6e 74 69 6f 6e 20 66 72 6f 6d 20 61 70 70 6c 2e 20 21 0a 20 20 20 20 20 ┆ intervention from appl. ! ┆
0x47040…47060 20 20 20 20 20 20 20 62 79 74 65 20 74 63 5f 73 74 61 74 65 2c 74 63 5f 63 61 75 73 65 3b 0a 20 ┆ byte tc_state,tc_cause; ┆
0x47060…4707e 20 20 20 20 20 20 20 20 20 20 20 77 6f 72 64 20 74 63 5f 73 74 61 74 75 73 3b 0a 20 20 20 ┆ word tc_status; ┆
0x4707e…47084 (0x324,0x8e2)
0x47084…470a0 20 20 20 20 20 20 20 77 6f 72 64 20 74 63 5f 72 65 74 72 79 3b 0a 20 20 20 20 20 20 ┆ word tc_retry; ┆
0x470a0…470c0 20 20 20 20 20 20 62 79 74 65 20 74 63 5f 6d 6f 64 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ byte tc_mode; ┆
0x470c0…470e0 77 6f 72 64 20 74 63 5f 63 73 65 67 6e 6f 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 72 65 66 20 ┆word tc_csegno; ref ┆
0x470e0…470fc 74 63 5f 62 73 62 75 66 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 6f 72 64 20 74 ┆tc_bsbuf; word t┆
0x470fc…47102 (0x324,0x8e3)
0x47102…47120 63 5f 62 73 6c 2c 74 63 5f 62 73 75 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 74 65 78 74 ┆c_bsl,tc_bsu; text┆
0x47120…47140 28 31 34 29 20 74 63 5f 62 73 6e 61 6d 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 77 6f 72 64 20 ┆(14) tc_bsname; word ┆
0x47140…47160 74 63 5f 61 72 65 61 70 72 6f 63 3b 20 21 20 61 72 65 61 20 70 72 6f 63 65 73 73 20 64 65 73 63 ┆tc_areaproc; ! area process desc┆
0x47160…4717a 72 69 70 74 69 6f 6e 20 61 64 64 72 65 73 73 20 21 0a 20 20 20 20 20 20 20 20 ┆ription address ! ┆
0x4717a…47180 (0x324,0x8e4)
0x47180…471a0 20 20 20 20 74 65 78 74 28 31 31 29 20 74 63 5f 71 67 72 6f 75 70 2c 74 63 5f 71 6e 61 6d 65 3b ┆ text(11) tc_qgroup,tc_qname;┆
0x471a0…471c0 0a 20 20 20 20 20 20 20 20 20 20 20 77 6f 72 64 20 74 63 5f 74 72 61 6e 73 6e 6f 3b 0a 20 20 20 ┆ word tc_transno; ┆
0x471c0…471e0 20 20 20 20 20 20 20 77 6f 72 64 20 74 63 5f 77 6f 72 6b 66 66 73 2c 20 74 63 5f 77 6f 72 6b 6e ┆ word tc_workffs, tc_workn┆
0x471e0…47200 6c 73 3b 0a 20 20 20 20 20 20 20 20 20 20 20 64 6f 75 62 6c 65 20 74 63 00 00 00 00 00 00 00 00 ┆ls; double tc ┆
0x47200…47206 (569,) (0x324,0x8e5)
0x47206…47220 5f 62 73 70 74 72 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 72 65 66 20 74 63 ┆_bsptr; ref tc┆
0x47220…47240 5f 73 61 76 65 69 63 29 3b 0a 0a 20 72 65 63 6f 72 64 20 70 72 63 6f 72 6f 75 74 0a 20 20 20 20 ┆_saveic); record prcorout ┆
0x47240…47260 20 20 20 20 20 20 20 28 61 72 72 61 79 20 28 31 3a 21 6c 65 6e 67 74 68 28 74 72 61 6e 73 70 63 ┆ (array (1:!length(transpc┆
0x47260…4727e 6f 72 6f 75 74 29 29 20 70 72 5f 66 69 6c 6c 20 6f 66 20 62 79 74 65 3b 0a 20 20 20 20 20 ┆orout)) pr_fill of byte; ┆
0x4727e…47284 (0x324,0x8e6)
0x47284…472a0 20 20 20 20 20 20 20 77 6f 72 64 20 70 72 5f 69 6e 70 73 74 61 74 65 3b 0a 20 20 20 ┆ word pr_inpstate; ┆
0x472a0…472c0 20 20 20 20 20 20 20 20 20 72 65 66 20 70 72 5f 71 75 65 72 65 66 3b 0a 20 20 20 20 20 20 20 20 ┆ ref pr_queref; ┆
0x472c0…472e0 20 20 20 20 77 6f 72 64 20 70 72 5f 68 65 61 64 74 72 61 69 6c 2c 70 72 5f 64 72 61 69 6e 2c 70 ┆ word pr_headtrail,pr_drain,p┆
0x472e0…472fc 72 5f 73 65 6c 65 63 74 3b 0a 20 20 20 20 20 20 20 20 20 20 20 77 6f 72 64 20 70 72 ┆r_select; word pr┆
0x472fc…47302 (0x324,0x8e7)
0x47302…47320 5f 70 61 72 74 69 61 6c 3b 0a 20 20 20 20 20 20 20 20 20 20 20 64 6f 75 62 6c 65 20 70 72 ┆_partial; double pr┆
0x47320…47340 5f 77 6f 72 6b 70 74 72 2c 70 72 5f 77 6f 72 6b 73 74 61 72 74 70 74 72 29 3b 0a 0a 20 20 72 65 ┆_workptr,pr_workstartptr); re┆
0x47340…47360 63 6f 72 64 20 70 63 63 6f 72 6f 75 74 0a 20 20 20 20 20 20 20 20 20 20 20 28 61 72 72 61 79 28 ┆cord pccorout (array(┆
0x47360…4737a 31 3a 21 6c 65 6e 67 74 68 28 74 72 61 6e 73 70 63 6f 72 6f 75 74 29 29 20 70 ┆1:!length(transpcorout)) p┆
0x4737a…47380 (0x324,0x8e8)
0x47380…473a0 63 5f 66 69 6c 6c 20 6f 66 20 62 79 74 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 6f 72 64 ┆c_fill of byte; word┆
0x473a0…473c0 20 70 63 5f 69 6e 70 73 74 61 74 65 29 3b 0a 0a 20 20 72 65 63 6f 72 64 20 72 64 63 6f 72 6f 75 ┆ pc_inpstate); record rdcorou┆
0x473c0…473e0 74 0a 20 20 20 20 20 20 20 20 20 20 20 28 61 72 72 61 79 28 31 3a 21 6c 65 6e 67 74 68 28 74 72 ┆t (array(1:!length(tr┆
0x473e0…47400 61 6e 73 70 63 6f 72 6f 75 74 29 29 20 72 64 5f 66 69 6c 6c 20 6f 66 20 00 00 00 00 00 00 00 00 ┆anspcorout)) rd_fill of ┆
0x47400…47406 (570,) (0x324,0x8e9)
0x47406…47420 62 79 74 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 6f 72 64 20 72 64 5f ┆byte; word rd_┆
0x47420…47440 69 6e 70 73 74 61 74 65 29 3b 0a 0a 20 20 72 65 63 6f 72 64 20 74 77 63 6f 72 6f 75 74 0a 20 20 ┆inpstate); record twcorout ┆
0x47440…47460 20 20 20 20 20 20 20 20 20 28 61 72 72 61 79 28 31 3a 21 6c 65 6e 67 74 68 28 74 72 61 6e 73 70 ┆ (array(1:!length(transp┆
0x47460…4747e 63 6f 72 6f 75 74 29 29 20 74 77 5f 66 69 6c 6c 20 6f 66 20 62 79 74 65 3b 0a 20 20 20 20 ┆corout)) tw_fill of byte; ┆
0x4747e…47484 (0x324,0x8ea)
0x47484…474a0 20 20 20 20 20 20 20 20 77 6f 72 64 20 74 77 5f 69 6e 70 73 74 61 74 65 29 3b 0a 0a ┆ word tw_inpstate); ┆
0x474a0…474c0 0a 20 20 72 65 63 6f 72 64 20 66 70 72 69 6e 63 6f 72 6f 75 74 20 20 20 20 20 20 20 20 20 20 20 ┆ record fprincorout ┆
0x474c0…474e0 20 20 20 20 20 20 20 21 20 63 6f 72 6f 75 74 69 6e 20 64 65 73 63 72 69 62 69 6e 67 20 67 61 63 ┆ ! coroutin describing gac┆
0x474e0…474fc 2d 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆- ! ┆
0x474fc…47502 (0x324,0x8eb)
0x47502…47520 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 70 72 6f 63 65 73 73 65 73 20 61 ┆ ! processes a┆
0x47520…47540 6e 64 20 6c 69 6e 6b 73 20 20 61 6e 64 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆nd links and ! ┆
0x47540…47560 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 21 20 68 61 6e 64 6c ┆ ! handl┆
0x47560…4757a 69 6e 67 20 73 74 61 74 75 73 20 28 69 6e 70 75 74 20 6f 70 27 73 20 21 0a 20 ┆ing status (input op's ! ┆
0x4757a…47580 (0x324,0x8ec)
0x47580…475a0 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 20 20 ┆ ┆
0x475a0…475c0 20 20 20 20 20 21 20 66 6f 72 20 74 68 65 20 6f 75 74 70 75 74 20 28 66 70 72 29 20 63 6f 72 6f ┆ ! for the output (fpr) coro┆
0x475c0…475e0 75 74 73 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 72 72 61 79 20 28 31 3a 21 6c 65 ┆uts! (array (1:!le┆
0x475e0…47600 6e 67 74 68 28 63 6f 72 6f 75 74 69 6e 65 29 29 20 66 70 72 69 6e 66 69 00 00 00 00 00 00 00 00 ┆ngth(coroutine)) fprinfi ┆
0x47600…47606 (571,) (0x324,0x8ed)
0x47606…47620 6c 6c 20 6f 66 20 62 79 74 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ll of byte; ┆
0x47620…47640 72 65 66 20 20 20 20 20 20 20 66 70 72 5f 6e 65 78 74 2c 20 20 20 20 20 21 20 77 68 65 6e 20 77 ┆ref fpr_next, ! when w┆
0x47640…47660 61 69 74 69 6e 67 20 66 6f 72 20 73 74 61 74 75 73 20 74 68 65 20 21 0a 20 20 20 20 20 20 20 20 ┆aiting for status the ! ┆
0x47660…4767e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 70 72 5f 70 72 65 76 69 6f 75 73 3b 20 ┆ fpr_previous; ┆
0x4767e…47684 (0x324,0x8ee)
0x47684…476a0 21 20 66 70 72 20 69 73 20 6c 69 6e 6b 65 64 20 75 70 20 74 6f 20 66 70 72 69 6e 20 ┆! fpr is linked up to fprin ┆
0x476a0…476c0 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 65 78 74 20 28 31 31 29 20 66 70 72 5f ┆ ! text (11) fpr_┆
0x476c0…476e0 67 61 63 6f 75 74 2c 20 20 20 21 20 6e 61 6d 65 20 6f 66 20 67 61 63 28 6f 75 74 29 2d 64 65 76 ┆gacout, ! name of gac(out)-dev┆
0x476e0…476fc 69 63 65 20 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ice ! ┆
0x476fc…47702 (0x324,0x8ef)
0x47702…47720 20 20 20 20 20 20 66 70 72 5f 67 61 63 69 6e 3b 20 20 20 20 21 20 6e 61 6d 65 20 6f 66 20 ┆ fpr_gacin; ! name of ┆
0x47720…47740 67 61 63 28 69 6e 29 2d 64 65 76 69 63 65 20 20 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 ┆gac(in)-device ! ┆
0x47740…47760 20 20 20 20 74 65 78 74 20 28 31 34 29 20 66 70 72 5f 70 72 6f 63 6f 75 74 2c 20 20 21 20 6e 61 ┆ text (14) fpr_procout, ! na┆
0x47760…4777a 6d 65 20 6f 66 20 6c 69 6e 6b 28 6f 75 74 29 2d 70 72 6f 63 65 73 73 20 20 20 ┆me of link(out)-process ┆
0x4777a…47780 (0x324,0x8f0)
0x47780…477a0 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 70 72 5f 70 72 ┆! fpr_pr┆
0x477a0…477c0 6f 63 69 6e 3b 20 20 20 21 20 6e 61 6d 65 20 6f 66 20 6c 69 6e 6b 28 69 6e 29 2d 70 72 6f 63 65 ┆ocin; ! name of link(in)-proce┆
0x477c0…477e0 73 73 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 6f 72 64 20 20 20 20 20 20 ┆ss ! word ┆
0x477e0…47800 66 70 72 5f 68 6f 73 74 69 64 2c 20 20 20 21 20 68 6f 73 74 69 64 20 66 00 00 00 00 00 00 00 00 ┆fpr_hostid, ! hostid f ┆
0x47800…47806 (572,) (0x324,0x8f1)
0x47806…47820 6f 72 20 67 61 63 20 70 72 6f 63 65 73 73 20 20 20 20 20 20 21 0a 20 20 20 20 ┆or gac process ! ┆
0x47820…47840 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 70 72 5f 77 61 69 74 2c 20 20 20 ┆ fpr_wait, ┆
0x47840…47860 20 20 21 20 6e 6f 20 6f 66 20 63 6f 72 6f 75 74 69 6e 65 73 20 77 61 69 74 69 6e 67 20 20 20 20 ┆ ! no of coroutines waiting ┆
0x47860…4787e 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 70 72 5f ┆! fpr_┆
0x4787e…47884 (0x324,0x8f2)
0x47884…478a0 63 6f 75 6e 74 3b 20 20 20 20 21 20 6e 6f 20 6f 66 20 63 6f 72 6f 75 74 69 6e 65 73 ┆count; ! no of coroutines┆
0x478a0…478c0 20 68 61 6e 64 6c 69 6e 67 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ handling ! ┆
0x478c0…478e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 70 72 69 6e 74 65 72 73 20 76 ┆ ! printers v┆
0x478e0…478fc 69 61 20 74 68 69 73 20 67 61 63 28 70 61 69 72 29 20 21 0a 20 20 20 20 20 20 20 20 ┆ia this gac(pair) ! ┆
0x478fc…47902 (0x324,0x8f3)
0x47902…47920 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 ┆ ┆
0x47920…47940 21 20 77 68 65 6e 20 7a 65 72 6f 20 74 68 65 20 70 72 6f 63 65 73 73 20 6d 61 79 20 20 20 21 0a ┆! when zero the process may ! ┆
0x47940…47960 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 20 20 ┆ ┆
0x47960…4797a 20 20 20 20 20 20 21 20 62 65 20 72 65 6c 65 61 73 65 64 2f 70 6f 73 73 69 62 ┆ ! be released/possib┆
0x4797a…47980 (0x324,0x8f4)
0x47980…479a0 6c 79 20 72 65 6d 6f 76 65 64 21 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 6f 72 64 20 ┆ly removed! word ┆
0x479a0…479c0 20 20 20 20 20 66 70 72 5f 69 6e 64 61 74 61 2c 20 20 20 21 20 73 74 61 74 75 73 20 69 6e 70 75 ┆ fpr_indata, ! status inpu┆
0x479c0…479e0 74 20 62 75 66 66 65 72 20 20 20 20 20 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆t buffer ! ┆
0x479e0…47a00 20 20 20 20 20 20 20 20 20 20 20 66 70 72 5f 64 61 74 31 29 3b 20 20 20 00 00 00 00 00 00 00 00 ┆ fpr_dat1); ┆
0x47a00…47a06 (573,) (0x324,0x8f5)
0x47a06…47a20 20 21 20 20 20 22 20 20 20 20 20 2d 2d 20 20 20 20 20 22 20 20 20 20 20 20 20 ┆ ! " -- " ┆
0x47a20…47a40 20 20 20 20 20 21 0a 0a 0a 20 20 72 65 63 6f 72 64 20 66 70 72 63 6f 72 6f 75 74 0a 20 20 20 20 ┆ ! record fprcorout ┆
0x47a40…47a60 20 20 20 20 20 20 20 20 20 28 61 72 72 61 79 20 28 31 3a 21 6c 65 6e 67 74 68 28 74 72 61 6e 73 ┆ (array (1:!length(trans┆
0x47a60…47a7e 70 63 6f 72 6f 75 74 29 29 20 66 70 72 5f 66 69 6c 6c 20 6f 66 20 62 79 74 65 3b 0a 20 20 ┆pcorout)) fpr_fill of byte; ┆
0x47a7e…47a84 (0x324,0x8f6)
0x47a84…47aa0 20 20 20 20 20 20 20 20 20 20 20 20 77 6f 72 64 20 66 70 72 5f 69 6e 70 73 74 61 74 ┆ word fpr_inpstat┆
0x47aa0…47ac0 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 6f 72 64 20 66 70 72 5f 74 69 6d 65 72 3b ┆e; word fpr_timer;┆
0x47ac0…47ae0 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 6f 72 64 20 66 70 72 5f 75 73 65 64 62 6c 6f 63 ┆ word fpr_usedbloc┆
0x47ae0…47afc 6b 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 6f 72 64 20 66 70 72 5f 70 61 ┆k; word fpr_pa┆
0x47afc…47b02 (0x324,0x8f7)
0x47b02…47b20 72 74 69 61 6c 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 6f 72 64 20 66 70 72 5f ┆rtial; word fpr_┆
0x47b20…47b40 73 70 61 72 74 69 61 6c 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65 66 20 66 70 72 5f ┆spartial; ref fpr_┆
0x47b40…47b60 63 6f 6e 76 65 72 74 3b 20 21 20 63 6f 6e 76 65 72 73 69 6f 6e 20 74 61 62 6c 65 20 73 74 61 72 ┆convert; ! conversion table star┆
0x47b60…47b7a 74 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 6f 72 64 20 20 20 66 ┆t ! word f┆
0x47b7a…47b80 (0x324,0x8f8)
0x47b80…47ba0 70 72 5f 73 74 61 72 74 73 65 67 6d 65 6e 74 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 ┆pr_startsegment; d┆
0x47ba0…47bc0 6f 75 62 6c 65 20 66 70 72 5f 73 62 73 70 74 72 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ouble fpr_sbsptr; ┆
0x47bc0…47be0 77 6f 72 64 20 66 70 72 5f 6c 6c 63 75 64 65 76 3b 20 20 20 20 20 20 21 20 6c 6f 67 69 63 61 6c ┆word fpr_llcudev; ! logical┆
0x47be0…47c00 20 22 6c 69 6e 65 2c 63 75 2c 64 65 76 69 63 65 22 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ "line,cu,device" ┆
0x47c00…47c06 (574,) (0x324,0x8f9)
0x47c06…47c20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 6f 72 64 20 66 70 72 5f 70 ┆! word fpr_p┆
0x47c20…47c40 6c 63 75 64 65 76 3b 20 20 20 20 20 20 21 20 70 68 79 73 69 63 61 6c 20 22 6c 69 6e 65 2c 63 75 ┆lcudev; ! physical "line,cu┆
0x47c40…47c60 2c 64 65 76 69 63 65 22 20 20 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 6f ┆,device" ! wo┆
0x47c60…47c7e 72 64 20 66 70 72 5f 74 72 61 6e 73 69 64 3b 20 20 20 20 20 20 21 20 70 72 69 6e 74 20 68 ┆rd fpr_transid; ! print h┆
0x47c7e…47c84 (0x324,0x8fa)
0x47c84…47ca0 65 61 64 3a 20 22 63 75 2c 64 65 76 2c 65 73 63 22 20 20 20 20 20 20 20 21 0a 20 20 ┆ead: "cu,dev,esc" ! ┆
0x47ca0…47cc0 20 20 20 20 20 20 20 20 20 20 20 20 72 65 66 20 20 66 70 72 5f 73 74 63 6f 72 6f 75 74 3b 20 20 ┆ ref fpr_stcorout; ┆
0x47cc0…47ce0 20 20 20 21 20 72 65 66 20 74 6f 20 73 74 61 74 75 73 20 68 61 6e 64 6c 69 6e 67 20 63 6f 72 6f ┆ ! ref to status handling coro┆
0x47ce0…47cfc 75 74 69 6e 65 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 6f 72 64 20 66 ┆utine ! word f┆
0x47cfc…47d02 (0x324,0x8fb)
0x47d02…47d20 70 72 5f 73 74 61 74 75 73 3b 20 20 20 20 20 20 20 21 20 73 74 61 74 75 73 20 77 6f 72 64 ┆pr_status; ! status word┆
0x47d20…47d40 20 66 72 6f 6d 20 69 6e 70 75 74 20 6f 72 20 73 65 6e 73 65 20 72 65 61 64 79 20 21 0a 20 20 20 ┆ from input or sense ready ! ┆
0x47d40…47d60 20 20 20 20 20 20 20 20 20 20 20 77 6f 72 64 20 66 70 72 5f 64 65 76 73 74 61 74 75 73 29 3b 20 ┆ word fpr_devstatus); ┆
0x47d60…47d7a 20 20 21 20 73 74 61 74 75 73 20 62 79 74 65 73 20 73 31 2c 73 32 20 66 72 6f ┆ ! status bytes s1,s2 fro┆
0x47d7a…47d80 (0x324,0x8fc)
0x47d80…47da0 6d 20 70 72 69 6e 74 20 6f 70 65 72 61 74 69 6f 6e 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆m print operation ! ┆
0x47da0…47dc0 20 20 21 20 70 6c 65 61 73 65 20 6e 6f 74 69 63 65 20 74 68 61 74 20 22 74 63 5f 64 65 76 6e 61 ┆ ! please notice that "tc_devna┆
0x47dc0…47de0 6d 65 22 20 61 6e 64 20 22 74 63 5f 6e 61 6d 65 22 20 69 6e 20 74 68 69 73 20 21 0a 20 20 20 20 ┆me" and "tc_name" in this ! ┆
0x47de0…47e00 20 20 20 20 20 20 20 20 20 20 21 20 63 6f 72 6f 75 74 69 6e 65 20 6f 6e 00 00 00 00 00 00 00 00 ┆ ! coroutine on ┆
0x47e00…47e06 (575,) (0x324,0x8fd)
0x47e06…47e20 6c 79 20 61 72 65 20 20 75 73 65 64 20 66 6f 72 20 69 64 65 6e 74 69 66 69 63 ┆ly are used for identific┆
0x47e20…47e40 61 74 69 6f 6e 20 70 75 72 70 6f 73 65 73 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ation purposes ! ┆
0x47e40…47e60 21 20 61 73 20 74 68 65 79 20 6d 61 79 20 72 65 66 65 72 20 74 6f 20 61 20 6e 75 6d 62 65 72 20 ┆! as they may refer to a number ┆
0x47e60…47e7e 6f 66 20 64 65 76 69 63 65 73 20 66 75 72 74 68 65 72 20 69 64 65 6e 74 21 0a 20 20 20 20 ┆of devices further ident! ┆
0x47e7e…47e84 (0x324,0x8fe)
0x47e84…47ea0 20 20 20 20 20 20 20 20 20 20 21 20 2d 66 69 65 64 20 62 79 20 22 63 75 22 28 63 6f ┆ ! -fied by "cu"(co┆
0x47ea0…47ec0 6e 74 72 6f 6c 20 75 6e 69 74 29 20 61 6e 64 20 22 64 65 76 22 28 64 65 76 69 63 65 20 6e 75 6d ┆ntrol unit) and "dev"(device num┆
0x47ec0…47ee0 62 65 72 29 2e 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 41 73 20 61 20 63 6f 6e ┆ber). ! ! As a con┆
0x47ee0…47efc 73 65 71 75 65 6e 63 65 20 22 74 63 5f 64 65 76 6e 61 6d 65 22 20 61 6e 64 20 22 74 ┆sequence "tc_devname" and "t┆
0x47efc…47f02 (0x324,0x8ff)
0x47f02…47f20 63 5f 6e 61 6d 65 22 20 61 72 65 20 67 65 6e 65 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 ┆c_name" are gene ! ┆
0x47f20…47f40 20 20 20 20 21 20 2d 72 61 74 65 64 20 6f 6e 20 74 68 65 20 62 61 73 69 73 20 6f 66 20 64 6f 63 ┆ ! -rated on the basis of doc┆
0x47f40…47f60 6e 61 6d 65 28 66 72 6f 6d 20 65 6e 74 72 79 29 20 77 68 65 72 65 20 74 68 65 20 20 21 0a 20 20 ┆name(from entry) where the ! ┆
0x47f60…47f7a 20 20 20 20 20 20 20 20 20 20 20 20 21 20 74 68 65 20 73 75 62 73 74 72 69 6e ┆ ! the substrin┆
0x47f7a…47f80 (0x324,0x900)
0x47f80…47fa0 67 20 22 6f 75 74 22 20 69 73 20 72 65 70 6c 61 63 65 64 20 62 79 20 61 20 73 75 62 73 74 72 69 ┆g "out" is replaced by a substri┆
0x47fa0…47fc0 6e 67 20 28 33 63 68 73 2e 29 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 63 6f 6d 70 ┆ng (3chs.)! ! comp┆
0x47fc0…47fe0 6f 73 65 64 20 62 79 3a 20 63 68 31 3d 28 63 75 2b 34 38 29 2c 63 68 32 3d 28 64 65 76 2f 2f 31 ┆osed by: ch1=(cu+48),ch2=(dev//1┆
0x47fe0…48000 30 2b 34 38 29 2c 63 68 33 3d 28 64 65 76 20 6d 6f 64 20 31 30 2b 34 38 00 00 00 00 00 00 00 00 ┆0+48),ch3=(dev mod 10+48 ┆
0x48000…48006 (576,) (0x324,0x901)
0x48006…48020 29 21 0a 0a 0a 0a 0a 20 20 72 65 63 6f 72 64 20 6f 70 72 63 6f 72 6f 75 74 0a ┆)! record oprcorout ┆
0x48020…48040 20 20 20 20 20 20 20 20 20 20 20 28 61 72 72 61 79 28 31 3a 21 6c 65 6e 67 74 68 28 63 6f 72 6f ┆ (array(1:!length(coro┆
0x48040…48060 75 74 69 6e 65 29 29 20 6f 70 72 5f 66 69 6c 6c 20 6f 66 20 62 79 74 65 3b 0a 20 20 20 20 20 20 ┆utine)) opr_fill of byte; ┆
0x48060…4807e 20 20 20 20 20 20 72 65 66 20 6f 70 72 5f 62 75 66 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ ref opr_buf; ┆
0x4807e…48084 (0x324,0x902)
0x48084…480a0 20 62 79 74 65 20 6f 70 72 5f 64 68 6c 69 6e 6b 6e 6f 2c 6f 70 72 5f 68 6f 73 74 6e ┆ byte opr_dhlinkno,opr_hostn┆
0x480a0…480c0 6f 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 6f 72 64 20 6f 70 72 5f 68 6f 73 74 69 64 3b 0a ┆o; word opr_hostid; ┆
0x480c0…480e0 20 20 20 20 20 20 20 20 20 20 20 20 77 6f 72 64 20 6f 70 72 5f 73 61 76 65 77 31 3b 0a 20 20 20 ┆ word opr_savew1; ┆
0x480e0…480fc 20 20 20 20 20 20 20 20 20 74 65 78 74 28 31 31 29 20 6f 70 72 5f 64 65 76 63 6f 6e ┆ text(11) opr_devcon┆
0x480fc…48102 (0x324,0x903)
0x48102…48120 73 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 74 65 78 74 28 31 34 29 20 6f 70 72 5f 63 6f ┆s; text(14) opr_co┆
0x48120…48140 6e 73 6f 6c 65 29 3b 0a 0a 20 20 72 65 63 6f 72 64 20 74 72 5f 64 65 73 63 72 0a 20 20 20 20 20 ┆nsole); record tr_descr ┆
0x48140…48160 20 20 20 20 20 20 28 74 65 78 74 28 31 31 29 20 74 72 5f 6e 61 6d 65 2c 74 72 5f 75 73 65 72 2c ┆ (text(11) tr_name,tr_user,┆
0x48160…4817a 74 72 5f 73 6e 61 6d 65 2c 74 72 5f 72 6e 61 6d 65 2c 74 72 5f 62 73 61 72 65 ┆tr_sname,tr_rname,tr_bsare┆
0x4817a…48180 (0x324,0x904)
0x48180…481a0 61 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 79 74 65 20 74 72 5f 6d 6f 64 65 2c 20 74 72 5f ┆a; byte tr_mode, tr_┆
0x481a0…481c0 6b 69 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 6f 72 64 20 74 72 5f 62 61 73 65 6c 2c ┆kind; word tr_basel,┆
0x481c0…481e0 74 72 5f 62 61 73 65 75 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 64 6f 75 62 6c 65 20 74 72 5f ┆tr_baseu; double tr_┆
0x481e0…48200 62 73 73 74 61 72 74 70 74 72 3b 20 20 20 21 20 73 74 61 72 74 20 70 6f 00 00 00 00 00 00 00 00 ┆bsstartptr; ! start po ┆
0x48200…48206 (577,) (0x324,0x905)
0x48206…48220 73 69 74 69 6f 6e 20 69 6e 20 62 73 20 61 72 65 61 20 21 0a 20 20 20 20 20 20 ┆sition in bs area ! ┆
0x48220…48240 20 20 20 20 20 20 74 65 78 74 28 31 31 29 20 74 72 5f 71 67 72 6f 75 70 2c 20 74 72 5f 71 6e 61 ┆ text(11) tr_qgroup, tr_qna┆
0x48240…48260 6d 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 72 65 66 20 74 72 5f 63 6f 72 6f 75 3b 20 20 21 ┆me; ref tr_corou; !┆
0x48260…4827e 20 61 62 73 20 72 65 66 20 63 6f 72 65 20 61 64 72 20 6f 66 20 74 72 61 6e 73 70 6f 72 74 ┆ abs ref core adr of transport┆
0x4827e…48284 (0x324,0x906)
0x48284…482a0 20 63 6f 72 6f 75 74 69 6e 65 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 77 6f 72 64 ┆ coroutine ! word┆
0x482a0…482c0 20 74 72 5f 73 74 61 74 65 2c 74 72 5f 63 61 75 73 65 2c 74 72 5f 73 74 61 74 75 73 3b 0a 20 20 ┆ tr_state,tr_cause,tr_status; ┆
0x482c0…482e0 20 20 20 20 20 20 20 20 20 64 6f 75 62 6c 65 20 74 72 5f 63 68 61 72 70 6f 73 69 74 69 6f 6e 3b ┆ double tr_charposition;┆
0x482e0…482fc 0a 20 20 20 20 20 20 20 20 20 20 20 20 72 65 66 20 74 72 5f 77 61 69 74 6d 65 73 73 ┆ ref tr_waitmess┆
0x482fc…48302 (0x324,0x907)
0x48302…48320 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 6f 72 64 20 74 72 5f 72 65 6d 6f 76 65 74 69 ┆; word tr_removeti┆
0x48320…48340 6d 65 29 3b 20 21 20 38 33 38 38 36 30 37 20 74 72 61 6e 73 70 6f 72 74 20 6e 6f 74 20 74 65 72 ┆me); ! 8388607 transport not ter┆
0x48340…48360 6d 69 6e 61 74 65 64 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 ┆minated ! ┆
0x48360…4837a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 ┆ ! ┆
0x4837a…48380 (0x324,0x908)
0x48380…483a0 38 33 38 38 36 30 36 20 74 72 61 6e 73 70 2e 20 6e 6f 74 20 74 65 72 6d 69 6e 61 74 65 64 2c 20 ┆8388606 transp. not terminated, ┆
0x483a0…483c0 72 65 6c 65 61 73 65 20 64 65 73 63 72 2e 20 77 68 65 6e 20 66 69 6e 69 73 68 65 64 20 21 0a 20 ┆release descr. when finished ! ┆
0x483c0…483e0 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 20 20 ┆ ┆
0x483e0…48400 21 20 3c 38 33 38 38 36 30 36 20 74 72 61 6e 73 70 6f 72 74 20 74 65 72 00 00 00 00 00 00 00 00 ┆! <8388606 transport ter ┆
0x48400…48406 (578,) (0x324,0x909)
0x48406…48420 6d 69 6e 61 74 65 64 2c 20 74 68 65 20 76 61 6c 75 65 20 69 6e 64 69 2d 20 21 ┆minated, the value indi- !┆
0x48420…48440 0a 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 20 ┆ ┆
0x48440…48460 20 21 20 63 61 74 65 73 20 77 68 65 6e 20 74 68 65 20 64 65 73 63 72 20 69 73 20 66 72 65 65 20 ┆ ! cates when the descr is free ┆
0x48460…4847e 61 67 61 69 6e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 ┆again ! ┆
0x4847e…48484 (0x324,0x90a)
0x48484…484a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 75 6e ┆ ! un┆
0x484a0…484c0 69 74 3d 63 6c 6f 63 6b 20 73 68 69 66 74 20 2d 32 30 20 3d 20 73 68 6f 72 74 63 6c 6f 63 6b 20 ┆it=clock shift -20 = shortclock ┆
0x484c0…484e0 73 68 69 66 74 20 2d 31 20 20 20 20 20 21 0a 0a 20 20 72 65 63 6f 72 64 20 62 75 66 68 65 61 64 ┆shift -1 ! record bufhead┆
0x484e0…484fc 0a 20 20 20 20 20 20 20 20 20 20 20 28 62 79 74 65 20 62 75 66 5f 6f 70 2c 62 75 66 ┆ (byte buf_op,buf┆
0x484fc…48502 (0x324,0x90b)
0x48502…48520 5f 6d 6f 64 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 72 65 66 20 62 75 66 5f 66 69 72 ┆_mode; ref buf_fir┆
0x48520…48540 73 74 2c 62 75 66 5f 6c 61 73 74 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 6f 72 64 20 62 75 ┆st,buf_last; word bu┆
0x48540…48560 66 5f 64 61 74 61 31 29 3b 0a 0a 20 20 72 65 63 6f 72 64 20 71 75 65 75 65 72 65 63 20 20 20 20 ┆f_data1); record queuerec ┆
0x48560…4857a 20 20 20 21 20 73 74 72 75 63 74 75 72 65 20 6f 66 20 65 6c 65 6d 65 6e 74 20 ┆ ! structure of element ┆
0x4857a…48580 (0x324,0x90c)
0x48580…485a0 69 6e 20 74 72 61 6e 73 70 6f 72 74 20 63 6f 72 6f 75 74 69 6e 65 20 71 75 65 75 65 20 21 0a 20 ┆in transport coroutine queue ! ┆
0x485a0…485c0 20 20 20 20 20 20 20 20 20 28 72 65 66 20 74 71 5f 6e 65 78 74 2c 74 71 5f 70 72 65 76 3b 0a 20 ┆ (ref tq_next,tq_prev; ┆
0x485c0…485e0 20 20 20 20 20 20 20 20 20 20 20 64 6f 75 62 6c 65 20 74 71 5f 73 75 73 70 65 6e 64 3b 0a 20 20 ┆ double tq_suspend; ┆
0x485e0…48600 20 20 20 20 20 20 20 20 20 77 6f 72 64 20 74 71 5f 74 72 61 6e 73 6e 6f 00 00 00 00 00 00 00 00 ┆ word tq_transno ┆
0x48600…48606 (579,) (0x324,0x90d)
0x48606…48620 29 3b 0a 0a 20 20 72 65 63 6f 72 64 20 6f 70 63 6f 6d 0a 20 20 20 20 20 20 20 ┆); record opcom ┆
0x48620…48640 20 20 20 20 28 62 79 74 65 20 6f 70 6f 70 2c 6f 70 6d 6f 64 65 3b 0a 20 20 20 20 20 20 20 20 20 ┆ (byte opop,opmode; ┆
0x48640…48660 20 20 20 74 65 78 74 28 35 29 20 6f 70 74 65 78 74 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ text(5) optext1; ┆
0x48660…4867e 77 6f 72 64 20 6c 6f 67 73 74 61 74 75 73 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 74 65 ┆word logstatus; te┆
0x4867e…48684 (0x324,0x90e)
0x48684…486a0 78 74 28 31 31 29 20 6f 70 74 65 78 74 32 29 3b 0a 0a 20 20 69 6e 63 6f 64 65 0a 20 ┆xt(11) optext2); incode ┆
0x486a0…486c0 20 20 20 77 6f 72 64 20 70 72 69 6d 6f 3b 20 21 20 70 72 6f 63 65 73 73 20 64 65 73 63 72 69 70 ┆ word primo; ! process descrip┆
0x486c0…486e0 74 69 6f 6e 20 61 64 64 72 65 73 73 20 6f 66 20 70 72 69 6d 6f 20 21 0a 20 20 20 20 77 6f 72 64 ┆tion address of primo ! word┆
0x486e0…486fc 20 65 76 65 6e 74 5f 72 65 73 3b 0a 20 20 20 20 72 65 66 20 63 75 72 72 65 6e 74 3a ┆ event_res; ref current:┆
0x486fc…48702 (0x324,0x90f)
0x48702…48720 3d 30 2c 0a 20 20 20 20 20 20 20 20 65 76 65 6e 74 3a 3d 30 2c 0a 20 20 20 20 20 20 20 20 ┆=0, event:=0, ┆
0x48720…48740 61 63 74 69 76 71 66 73 74 2c 61 63 74 69 76 71 6c 61 73 74 2c 0a 20 20 20 20 20 20 20 20 61 6e ┆activqfst,activqlast, an┆
0x48740…48760 73 77 65 72 71 66 73 74 2c 61 6e 73 77 65 72 71 6c 61 73 74 2c 0a 20 20 20 20 20 20 20 20 77 61 ┆swerqfst,answerqlast, wa┆
0x48760…4877a 69 74 71 66 73 74 2c 77 61 69 74 71 6c 61 73 74 2c 0a 20 20 20 20 20 20 20 20 ┆itqfst,waitqlast, ┆
0x4877a…48780 (0x324,0x910)
0x48780…487a0 68 6f 6c 64 71 66 73 74 2c 68 6f 6c 64 71 6c 61 73 74 2c 0a 20 20 20 20 20 20 20 20 74 71 66 72 ┆holdqfst,holdqlast, tqfr┆
0x487a0…487c0 65 65 66 73 74 2c 74 71 66 72 65 65 6c 61 73 74 3b 20 21 20 68 65 61 64 20 6f 66 20 69 64 6c 65 ┆eefst,tqfreelast; ! head of idle┆
0x487c0…487e0 20 74 72 61 6e 73 70 6f 72 74 20 71 75 65 75 65 20 65 6c 65 6d 65 6e 74 73 20 21 0a 0a 20 20 20 ┆ transport queue elements ! ┆
0x487e0…48800 20 72 65 66 20 61 70 6c 5f 66 73 74 3b 0a 20 20 20 20 72 65 66 20 6f 70 00 00 00 00 00 00 00 00 ┆ ref apl_fst; ref op ┆
0x48800…48806 (580,) (0x324,0x911)
0x48806…48820 72 5f 66 73 74 2c 20 6f 70 72 5f 74 6f 70 3b 0a 20 20 20 20 72 65 66 20 74 63 ┆r_fst, opr_top; ref tc┆
0x48820…48840 70 6f 6f 6c 5f 66 73 74 2c 20 20 20 74 63 70 6f 6f 6c 5f 74 6f 70 3b 0a 20 20 20 20 77 6f 72 64 ┆pool_fst, tcpool_top; word┆
0x48840…48860 20 74 72 61 6e 73 5f 66 69 72 73 74 2c 74 72 61 6e 73 5f 74 6f 70 3b 20 21 20 70 6f 73 69 74 69 ┆ trans_first,trans_top; ! positi┆
0x48860…4887e 6f 6e 20 6f 66 20 74 72 61 6e 73 70 6f 72 74 20 64 65 73 63 72 69 70 74 69 6f 6e 73 20 6f ┆on of transport descriptions o┆
0x4887e…48884 (0x324,0x912)
0x48884…488a0 6e 20 62 73 20 21 0a 20 20 20 20 77 6f 72 64 20 74 72 61 6e 73 5f 6f 6c 64 3a 3d 20 ┆n bs ! word trans_old:= ┆
0x488a0…488c0 2d 31 3b 20 21 20 70 6f 73 69 74 69 6f 6e 20 6f 6e 20 64 65 73 63 72 69 70 74 69 6f 6e 20 61 72 ┆-1; ! position on description ar┆
0x488c0…488e0 65 61 20 6f 66 20 6c 61 73 74 20 6c 61 73 74 20 66 72 65 65 20 74 72 61 6e 73 70 2e 20 21 0a 20 ┆ea of last last free transp. ! ┆
0x488e0…488fc 20 20 20 77 6f 72 64 20 74 65 73 74 6d 74 6f 70 2c 74 65 73 74 62 75 66 3a 3d 30 2c ┆ word testmtop,testbuf:=0,┆
0x488fc…48902 (0x324,0x913)
0x48902…48920 62 61 73 65 5f 65 76 65 6e 74 3a 3d 30 3b 0a 0a 20 20 20 20 62 79 74 65 20 74 65 73 74 6d ┆base_event:=0; byte testm┆
0x48920…48940 6f 70 3a 3d 35 2c 74 65 73 74 6d 6f 64 65 3a 3d 30 3b 0a 20 20 20 20 72 65 66 20 74 65 73 74 6d ┆op:=5,testmode:=0; ref testm┆
0x48940…48960 66 73 74 3a 3d 30 2c 74 65 73 74 6d 6c 61 73 74 3a 3d 30 3b 0a 20 20 20 20 77 6f 72 64 20 74 65 ┆fst:=0,testmlast:=0; word te┆
0x48960…4897a 73 74 73 65 67 6d 3a 3d 30 2c 6d 61 78 74 65 73 74 73 65 67 6d 3b 0a 20 20 20 ┆stsegm:=0,maxtestsegm; ┆
0x4897a…48980 (0x324,0x914)
0x48980…489a0 20 64 6f 75 62 6c 65 20 73 74 61 72 74 74 69 6d 65 3b 0a 20 20 20 20 74 65 78 74 28 31 34 29 20 ┆ double starttime; text(14) ┆
0x489a0…489c0 73 70 6f 6f 6c 6e 61 6d 65 3b 0a 20 20 20 20 62 79 74 65 20 62 73 5f 6f 70 2c 62 73 5f 6d 6f 64 ┆spoolname; byte bs_op,bs_mod┆
0x489c0…489e0 65 3b 0a 20 20 20 20 72 65 66 20 62 73 5f 66 69 72 73 74 2c 62 73 5f 6c 61 73 74 3b 0a 20 20 20 ┆e; ref bs_first,bs_last; ┆
0x489e0…48a00 20 77 6f 72 64 20 62 73 5f 73 65 67 6e 6f 3b 0a 0a 20 20 20 20 77 6f 72 00 00 00 00 00 00 00 00 ┆ word bs_segno; wor ┆
0x48a00…48a06 (581,) (0x324,0x915)
0x48a06…48a20 64 20 77 61 69 74 62 75 66 73 3b 0a 20 20 20 20 64 6f 75 62 6c 65 20 74 72 73 ┆d waitbufs; double trs┆
0x48a20…48a40 61 76 65 70 65 72 69 6f 64 3b 20 20 21 20 70 65 72 69 6f 64 20 74 6f 20 73 61 76 65 20 74 72 61 ┆aveperiod; ! period to save tra┆
0x48a40…48a60 6e 73 70 2e 64 65 73 63 72 20 61 66 74 65 72 20 74 65 72 6d 69 6e 61 74 69 6f 6e 20 6f 66 20 21 ┆nsp.descr after termination of !┆
0x48a60…48a7e 0a 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 21 20 74 ┆ ! t┆
0x48a7e…48a84 (0x324,0x916)
0x48a84…48aa0 72 61 6e 73 70 6f 72 74 20 6f 70 65 72 61 74 69 6f 6e 20 20 20 20 20 20 20 20 20 20 ┆ransport operation ┆
0x48aa0…48ac0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 0a 20 20 20 20 62 79 74 65 20 70 ┆ ! byte p┆
0x48ac0…48ae0 72 68 65 61 64 74 72 61 69 6c 2c 20 21 20 3d 20 30 20 6e 6f 20 68 65 61 64 65 72 20 61 6e 64 20 ┆rheadtrail, ! = 0 no header and ┆
0x48ae0…48afc 74 72 61 69 6c 65 72 20 70 61 67 65 20 6f 6e 20 70 72 69 6e 74 65 72 20 6c 69 73 74 ┆trailer page on printer list┆
0x48afc…48b02 (0x324,0x917)
0x48b02…48b20 73 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 3c 3e ┆s ! ! <>┆
0x48b20…48b40 30 20 68 65 61 64 65 72 20 61 6e 64 20 74 72 61 69 6c 65 72 20 70 61 67 65 20 6f 6e 20 70 72 69 ┆0 header and trailer page on pri┆
0x48b40…48b60 6e 74 65 72 20 6c 69 73 74 73 20 21 0a 20 20 20 20 20 20 20 20 20 6f 70 72 74 64 65 74 61 69 6c ┆nter lists ! oprtdetail┆
0x48b60…48b7a 73 3b 20 21 20 3c 3e 30 20 6f 75 74 70 75 74 20 64 65 74 61 69 6c 73 20 74 6f ┆s; ! <>0 output details to┆
0x48b7a…48b80 (0x324,0x918)
0x48b80…48ba0 20 6f 70 65 72 61 74 6f 72 20 21 0a 20 20 20 20 77 6f 72 64 20 70 72 6c 70 61 67 65 3b 20 21 20 ┆ operator ! word prlpage; ! ┆
0x48ba0…48bc0 6d 61 78 20 6e 75 6d 62 65 72 20 6f 66 20 6c 69 6e 65 73 20 70 72 20 70 72 69 6e 74 65 72 20 70 ┆max number of lines pr printer p┆
0x48bc0…48be0 61 67 65 20 21 0a 20 20 20 20 77 6f 72 64 20 61 6e 73 5f 73 74 61 74 75 73 2c 61 6e 73 5f 62 79 ┆age ! word ans_status,ans_by┆
0x48be0…48c00 74 65 73 2c 61 6e 73 5f 63 68 61 72 73 2c 61 6e 73 34 2c 61 6e 73 35 2c 00 00 00 00 00 00 00 00 ┆tes,ans_chars,ans4,ans5, ┆
0x48c00…48c06 (582,) (0x324,0x919)
0x48c06…48c20 61 6e 73 36 2c 61 6e 73 37 2c 61 6e 73 38 3b 0a 20 20 20 20 62 79 74 65 20 66 ┆ans6,ans7,ans8; byte f┆
0x48c20…48c40 61 75 6c 74 6f 70 3a 3d 34 2c 66 61 75 6c 74 6d 6f 64 65 3a 3d 31 3b 0a 20 20 20 20 74 65 78 74 ┆aultop:=4,faultmode:=1; text┆
0x48c40…48c60 28 32 30 29 20 66 61 75 6c 74 74 78 74 3a 3d 22 2a 2a 2a 66 61 75 6c 74 22 3b 0a 20 20 20 20 62 ┆(20) faulttxt:="***fault"; b┆
0x48c60…48c7e 79 74 65 20 73 70 63 6f 6d 6f 70 3a 3d 32 2c 73 70 63 6f 6d 6d 6f 64 65 3a 3d 38 27 31 30 ┆yte spcomop:=2,spcommode:=8'10┆
0x48c7e…48c84 (0x324,0x91a)
0x48c84…48ca0 30 31 3b 0a 20 20 20 20 74 65 78 74 28 38 29 20 73 70 63 6f 6d 74 65 78 74 3a 3d 22 ┆01; text(8) spcomtext:="┆
0x48ca0…48cc0 73 74 61 74 75 73 22 3b 0a 0a 20 20 20 20 62 79 74 65 20 74 73 74 63 6f 6d 6f 70 3a 3d 20 32 2c ┆status"; byte tstcomop:= 2,┆
0x48cc0…48ce0 20 74 73 74 63 6f 6d 6d 6f 64 65 3a 3d 20 38 27 31 30 30 30 3b 0a 20 20 20 20 74 65 78 74 28 38 ┆ tstcommode:= 8'1000; text(8┆
0x48ce0…48cfc 29 20 74 73 74 63 6f 6d 74 65 78 74 3a 3d 22 73 74 61 74 75 73 22 3b 0a 20 20 20 20 ┆) tstcomtext:="status"; ┆
0x48cfc…48d02 (0x324,0x91b)
0x48d02…48d20 74 65 78 74 28 31 34 29 20 74 65 73 74 6e 61 6d 65 3b 0a 20 20 20 20 62 79 74 65 20 70 72 ┆text(14) testname; byte pr┆
0x48d20…48d40 6f 63 5f 64 68 6c 69 6e 6b 6e 6f 2c 20 70 72 6f 63 5f 68 6e 6f 3b 0a 20 20 20 20 77 6f 72 64 20 ┆oc_dhlinkno, proc_hno; word ┆
0x48d40…48d60 70 72 6f 63 5f 68 69 64 3b 0a 20 20 20 20 74 65 78 74 20 28 31 31 29 20 70 72 6f 63 5f 64 65 76 ┆proc_hid; text (11) proc_dev┆
0x48d60…48d7a 6e 61 6d 65 3b 0a 20 20 20 20 74 65 78 74 20 28 31 31 29 20 70 72 69 6d 6f 5f ┆name; text (11) primo_┆
0x48d7a…48d80 (0x324,0x91c)
0x48d80…48da0 69 64 3a 3d 20 22 70 72 69 6d 6f 27 30 27 22 3b 0a 20 20 20 20 74 65 78 74 20 28 31 34 29 20 6d ┆id:= "primo'0'"; text (14) m┆
0x48da0…48dc0 61 69 6e 5f 6f 70 65 72 61 74 6f 72 3b 0a 20 20 20 20 74 65 78 74 20 28 31 37 29 20 6e 6f 5f 6c ┆ain_operator; text (17) no_l┆
0x48dc0…48de0 69 6e 6b 3a 3d 20 22 20 20 20 6e 6f 20 6c 69 6e 6b 20 20 20 20 20 20 22 3b 0a 20 20 20 20 77 6f ┆ink:= " no link "; wo┆
0x48de0…48e00 72 64 20 61 63 63 65 70 74 3b 20 21 20 77 68 65 6e 20 3c 3e 20 30 20 61 00 00 00 00 00 00 00 00 ┆rd accept; ! when <> 0 a ┆
0x48e00…48e06 (583,) (0x324,0x91d)
0x48e06…48e20 63 63 65 70 74 20 74 72 61 6e 73 70 6f 72 74 73 20 74 6f 20 6e 6f 6e 65 78 69 ┆ccept transports to nonexi┆
0x48e20…48e40 73 74 69 6e 67 20 64 65 76 69 63 65 20 68 6f 73 74 73 20 21 0a 0a 20 20 20 20 72 65 66 20 66 69 ┆sting device hosts ! ref fi┆
0x48e40…48e60 72 73 74 66 72 65 65 2c 70 72 6f 63 63 6f 6e 73 6f 6c 65 2c 67 61 63 5f 74 61 62 6c 65 2c 67 61 ┆rstfree,procconsole,gac_table,ga┆
0x48e60…48e7e 63 5f 74 6f 70 3b 0a 20 20 20 20 77 6f 72 64 20 6f 70 72 74 5f 62 75 66 6c 3a 3d 20 31 30 ┆c_top; word oprt_bufl:= 10┆
0x48e7e…48e84 (0x324,0x91e)
0x48e84…48ea0 34 3b 0a 0a 20 20 20 20 72 65 66 20 63 75 72 72 6f 70 72 2c 20 66 72 65 65 6f 70 72 ┆4; ref curropr, freeopr┆
0x48ea0…48ec0 3b 20 21 20 77 6f 72 6b 20 76 61 72 69 61 62 6c 65 73 20 75 73 65 64 20 62 79 20 63 65 6e 74 72 ┆; ! work variables used by centr┆
0x48ec0…48ee0 61 6c 20 6c 6f 67 69 63 20 21 0a 20 20 20 20 62 79 74 65 20 73 74 72 74 74 61 62 6c 65 3a 3d 20 ┆al logic ! byte strttable:= ┆
0x48ee0…48efc 20 30 2c 20 73 74 72 74 73 69 7a 65 3a 3d 20 30 3b 20 21 20 63 6f 6e 76 65 72 73 69 ┆ 0, strtsize:= 0; ! conversi┆
0x48efc…48f02 (0x324,0x91f)
0x48f02…48f20 6f 6e 20 65 6e 74 72 79 20 69 6e 70 3a 20 20 30 2c 20 73 69 7a 65 3a 20 30 20 21 0a 20 20 ┆on entry inp: 0, size: 0 ! ┆
0x48f20…48f40 20 20 77 6f 72 64 20 65 6e 64 74 61 62 6c 65 3a 3d 20 30 2c 64 65 6e 64 74 3a 3d 30 3b 20 21 20 ┆ word endtable:= 0,dendt:=0; ! ┆
0x48f40…48f60 65 6e 64 20 6f 66 20 63 6f 6e 76 65 72 73 69 6f 6e 20 74 61 62 6c 65 20 21 0a 0a 20 20 62 65 67 ┆end of conversion table ! beg┆
0x48f60…48f7a 69 6e 0a 20 20 20 20 70 72 69 6d 6f 3a 3d 20 77 33 3b 20 21 20 73 61 76 65 20 ┆in primo:= w3; ! save ┆
0x48f7a…48f80 (0x324,0x920)
0x48f80…48fa0 70 72 69 6d 6f 20 70 72 6f 63 65 73 73 20 64 65 73 63 72 69 70 74 69 6f 6e 20 61 64 64 72 65 73 ┆primo process description addres┆
0x48fa0…48fc0 73 20 21 0a 20 20 20 20 70 72 6f 63 63 6f 6e 73 6f 6c 65 3a 3d 20 77 32 3b 0a 20 20 20 20 66 69 ┆s ! procconsole:= w2; fi┆
0x48fc0…48fe0 72 73 74 66 72 65 65 3a 3d 20 77 31 3b 0a 20 20 20 20 6d 6f 76 65 28 2e 77 33 2e 2c 77 30 3a 3d ┆rstfree:= w1; move(.w3.,w0:=┆
0x48fe0…49000 38 2c 77 31 3a 3d 77 32 2b 32 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 6d 00 00 00 00 00 00 00 00 ┆8,w1:=w2+2,w2:=address(m ┆
0x49000…49006 (584,) (0x324,0x921)
0x49006…49020 61 69 6e 5f 6f 70 65 72 61 74 6f 72 29 29 3b 0a 20 20 20 20 6c 6f 6f 6b 75 70 ┆ain_operator)); lookup┆
0x49020…49040 72 65 6d 6f 74 65 28 2e 77 33 2e 2c 77 33 3a 3d 32 2c 77 33 3a 3d 61 64 64 72 65 73 73 28 6d 61 ┆remote(.w3.,w3:=2,w3:=address(ma┆
0x49040…49060 69 6e 5f 6f 70 65 72 61 74 6f 72 29 2c 77 33 3a 3d 61 64 64 72 65 73 73 28 6d 61 69 6e 5f 6f 70 ┆in_operator),w3:=address(main_op┆
0x49060…4907e 65 72 61 74 6f 72 29 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆erator), ┆
0x4907e…49084 (0x324,0x922)
0x49084…490a0 20 77 30 2c 77 31 3a 3d 38 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 70 72 6f 63 5f 64 ┆ w0,w1:=8,w2:=address(proc_d┆
0x490a0…490c0 68 6c 69 6e 6b 6e 6f 29 29 3b 0a 20 20 20 20 74 65 72 6d 69 6e 61 6c 69 64 28 2e 77 33 2e 2c 77 ┆hlinkno)); terminalid(.w3.,w┆
0x490c0…490e0 30 3a 3d 70 72 6f 63 5f 64 68 6c 69 6e 6b 6e 6f 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 70 72 6f ┆0:=proc_dhlinkno,w2:=address(pro┆
0x490e0…490fc 63 5f 64 65 76 6e 61 6d 65 29 29 3b 0a 20 20 20 20 69 6e 74 65 72 72 75 70 74 3a 0a ┆c_devname)); interrupt: ┆
0x490fc…49102 (0x324,0x923)
0x49102…49120 20 20 20 20 77 33 3a 3d 61 64 64 72 65 73 73 28 69 6e 74 65 72 72 75 70 74 29 3b 0a 20 20 ┆ w3:=address(interrupt); ┆
0x49120…49140 20 20 77 30 3a 3d 20 30 3b 0a 20 20 20 20 6d 6f 6e 69 74 6f 72 28 30 29 3b 20 20 20 21 20 73 65 ┆ w0:= 0; monitor(0); ! se┆
0x49140…49160 74 20 69 6e 74 65 72 72 75 70 74 20 61 64 64 72 65 73 73 20 21 0a 20 20 20 20 67 6f 74 6f 20 69 ┆t interrupt address ! goto i┆
0x49160…4917a 6e 69 74 69 61 6c 69 7a 65 3b 0a 20 20 20 20 77 31 2b 30 3b 20 77 31 2b 30 3b ┆nitialize; w1+0; w1+0;┆
0x4917a…49180 (0x324,0x924)
0x49180…491a0 20 77 31 2b 30 3b 20 77 31 2b 30 3b 20 20 20 21 20 66 69 6c 6c 20 75 70 20 69 6e 74 65 72 72 75 ┆ w1+0; w1+0; ! fill up interru┆
0x491a0…491c0 70 74 20 61 72 65 61 20 21 0a 20 20 20 20 63 6f 6d 6d 65 6e 74 20 74 65 72 6d 69 6e 61 74 65 20 ┆pt area ! comment terminate ┆
0x491c0…491e0 6c 61 73 74 20 6f 70 65 72 61 74 69 6f 6e 20 74 6f 20 73 70 6f 6f 6c 20 61 72 65 61 3b 0a 20 20 ┆last operation to spool area; ┆
0x491e0…49200 20 20 77 31 3a 3d 20 61 64 64 72 65 73 73 28 62 73 5f 6f 70 29 3b 0a 20 00 00 00 00 00 00 00 00 ┆ w1:= address(bs_op); ┆
0x49200…49206 (585,) (0x324,0x925)
0x49206…49220 20 20 20 77 33 3a 3d 20 61 64 64 72 65 73 73 28 73 70 6f 6f 6c 6e 61 6d 65 29 ┆ w3:= address(spoolname)┆
0x49220…49240 3b 0a 20 20 20 20 6d 6f 6e 69 74 6f 72 28 31 36 29 3b 20 21 20 73 65 6e 64 20 6d 65 73 73 61 67 ┆; monitor(16); ! send messag┆
0x49240…49260 65 20 21 0a 20 20 20 20 77 31 3a 3d 20 61 64 64 72 65 73 73 28 61 6e 73 5f 73 74 61 74 75 73 29 ┆e ! w1:= address(ans_status)┆
0x49260…4927e 3b 0a 20 20 20 20 6d 6f 6e 69 74 6f 72 28 31 38 29 3b 20 21 20 77 61 69 74 20 61 6e 73 77 ┆; monitor(18); ! wait answ┆
0x4927e…49284 (0x324,0x926)
0x49284…492a0 65 72 20 20 21 0a 20 20 20 20 74 65 73 74 6f 75 74 28 2e 77 33 2e 2c 77 30 3a 3d 31 ┆er ! testout(.w3.,w0:=1┆
0x492a0…492c0 36 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 69 6e 74 65 72 72 75 70 74 29 2c 77 32 3a 3d 31 35 29 ┆6,w1:=address(interrupt),w2:=15)┆
0x492c0…492e0 3b 0a 20 20 20 20 6f 70 6d 65 73 73 28 2e 77 33 2e 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 66 61 ┆; opmess(.w3.,w1:=address(fa┆
0x492e0…492fc 75 6c 74 6f 70 29 29 3b 0a 0a 69 6e 69 74 69 61 6c 69 7a 65 3a 0a 20 20 20 20 21 67 ┆ultop)); initialize: !g┆
0x492fc…49302 (0x324,0x927)
0x49302…49320 65 74 20 32 3b 0a 20 20 20 20 69 6e 69 74 28 2e 77 33 2e 29 3b 20 21 20 63 61 6c 6c 20 69 ┆et 2; init(.w3.); ! call i┆
0x49320…49340 6e 69 74 20 66 6f 72 20 61 6c 6c 6f 63 61 74 69 6e 67 20 61 6e 64 20 69 6e 69 74 69 61 6c 69 7a ┆nit for allocating and initializ┆
0x49340…49360 69 6e 67 20 62 75 66 66 65 72 73 2c 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ing buffers, ! ┆
0x49360…4937a 20 20 20 21 20 64 65 73 63 72 69 70 74 6f 72 73 2c 20 73 65 6d 61 70 68 6f 72 ┆ ! descriptors, semaphor┆
0x4937a…49380 (0x324,0x928)
0x49380…493a0 65 73 20 65 74 63 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 ┆es etc. !┆
0x493a0…493c0 0a 20 20 20 20 67 6f 74 6f 20 61 63 74 69 76 61 74 65 3b 0a 0a 63 65 6e 74 72 61 6c 5f 77 61 69 ┆ goto activate; central_wai┆
0x493c0…493e0 74 3a 0a 20 20 20 20 77 32 3a 3d 20 62 61 73 65 5f 65 76 65 6e 74 3b 20 20 20 20 20 20 20 21 20 ┆t: w2:= base_event; ! ┆
0x493e0…49400 62 61 73 65 20 6f 66 20 65 76 65 6e 74 20 71 75 65 75 65 20 21 0a 20 20 00 00 00 00 00 00 00 00 ┆base of event queue ! ┆
0x49400…49406 (586,) (0x324,0x929)
0x49406…49420 20 20 0a 77 61 69 74 5f 6e 65 78 74 3a 0a 20 20 20 20 77 33 3a 3d 20 30 3b 0a ┆ wait_next: w3:= 0; ┆
0x49420…49440 20 20 20 20 63 75 72 72 65 6e 74 3a 3d 20 77 33 3b 0a 20 20 20 20 6d 6f 6e 69 74 6f 72 28 32 34 ┆ current:= w3; monitor(24┆
0x49440…49460 29 3b 20 21 20 77 61 69 74 20 6e 65 78 74 20 65 76 65 6e 74 20 21 0a 20 20 20 20 69 66 20 77 32 ┆); ! wait next event ! if w2┆
0x49460…4947e 3d 74 65 73 74 62 75 66 20 74 68 65 6e 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 ┆=testbuf then begin ┆
0x4947e…49484 (0x324,0x92a)
0x49484…494a0 62 61 73 65 5f 65 76 65 6e 74 3a 3d 20 77 32 3b 0a 20 20 20 20 20 20 67 6f 74 6f 20 ┆base_event:= w2; goto ┆
0x494a0…494c0 77 61 69 74 5f 6e 65 78 74 3b 0a 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 65 76 65 6e 74 3a 3d 77 ┆wait_next; end; event:=w┆
0x494c0…494e0 32 3b 0a 20 20 20 20 65 76 65 6e 74 5f 72 65 73 3a 3d 20 77 30 3b 0a 20 20 20 20 74 65 73 74 6f ┆2; event_res:= w0; testo┆
0x494e0…494fc 75 74 28 2e 77 33 2e 2c 77 30 3a 3d 32 36 2c 77 31 3a 3d 77 32 2d 32 2c 77 32 3a 3d ┆ut(.w3.,w0:=26,w1:=w2-2,w2:=┆
0x494fc…49502 (0x324,0x92b)
0x49502…49520 36 29 3b 0a 20 20 20 20 77 32 3a 3d 65 76 65 6e 74 3b 0a 20 20 20 20 69 66 20 77 30 20 3a ┆6); w2:=event; if w0 :┆
0x49520…49540 3d 20 65 76 65 6e 74 5f 72 65 73 20 3d 20 31 20 74 68 65 6e 0a 20 20 20 20 62 65 67 69 6e 20 20 ┆= event_res = 1 then begin ┆
0x49540…49560 21 20 61 6e 20 61 6e 73 77 65 72 20 68 61 73 20 61 72 72 69 76 65 64 20 69 6e 20 65 76 65 6e 74 ┆! an answer has arrived in event┆
0x49560…4957a 20 71 75 65 75 65 20 21 0a 20 20 20 20 20 20 77 31 3a 3d 61 64 64 72 65 73 73 ┆ queue ! w1:=address┆
0x4957a…49580 (0x324,0x92c)
0x49580…495a0 28 61 6e 73 5f 73 74 61 74 75 73 29 3b 0a 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 31 38 29 3b ┆(ans_status); monitor(18);┆
0x495a0…495c0 20 20 21 20 77 61 69 74 20 61 6e 73 77 65 72 20 20 28 74 61 6b 65 20 74 68 65 20 61 6e 73 77 65 ┆ ! wait answer (take the answe┆
0x495c0…495e0 72 20 68 6f 6d 65 29 20 21 0a 20 20 20 20 20 20 77 31 3a 3d 61 6e 73 77 65 72 71 66 73 74 3b 0a ┆r home) ! w1:=answerqfst; ┆
0x495e0…49600 20 20 20 20 20 20 77 68 69 6c 65 20 77 33 3a 3d 61 64 64 72 65 73 73 28 00 00 00 00 00 00 00 00 ┆ while w3:=address( ┆
0x49600…49606 (587,) (0x324,0x92d)
0x49606…49620 61 6e 73 77 65 72 71 66 73 74 29 20 3c 3e 20 77 31 20 64 6f 0a 20 20 20 20 20 ┆answerqfst) <> w1 do ┆
0x49620…49640 20 62 65 67 69 6e 20 20 21 20 73 63 61 6e 20 61 6e 73 77 65 72 20 71 75 65 75 65 20 74 6f 20 66 ┆ begin ! scan answer queue to f┆
0x49640…49660 69 6e 64 20 63 6f 72 72 65 73 70 6f 6e 64 69 6e 67 20 73 65 6e 64 65 72 20 21 0a 20 20 20 20 20 ┆ind corresponding sender ! ┆
0x49660…4967e 20 20 20 69 66 20 77 32 20 3d 20 28 77 31 29 2e 63 5f 6d 62 75 66 20 74 68 65 6e 0a 20 20 ┆ if w2 = (w1).c_mbuf then ┆
0x4967e…49684 (0x324,0x92e)
0x49684…496a0 20 20 20 20 20 20 62 65 67 69 6e 20 20 21 20 61 63 74 69 76 61 74 65 20 77 61 69 74 ┆ begin ! activate wait┆
0x496a0…496c0 69 6e 67 20 63 6f 72 6f 75 74 69 6e 65 20 21 0a 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 63 ┆ing coroutine ! (w1).c┆
0x496c0…496e0 5f 77 30 3a 3d 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 63 6f 72 75 5f 66 6f 75 ┆_w0:=w0; goto coru_fou┆
0x496e0…496fc 6e 64 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 77 31 3a ┆nd; end; w1:┆
0x496fc…49702 (0x324,0x92f)
0x49702…49720 3d 28 77 31 29 2e 63 5f 6e 65 78 74 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 ┆=(w1).c_next; end; ┆
0x49720…49740 20 67 6f 74 6f 20 63 65 6e 74 72 61 6c 5f 77 61 69 74 3b 0a 20 20 20 20 65 6e 64 20 21 20 61 6e ┆ goto central_wait; end ! an┆
0x49740…49760 73 77 65 72 20 21 0a 20 20 20 20 65 6c 73 65 0a 20 20 20 20 62 65 67 69 6e 20 21 20 6d 65 73 73 ┆swer ! else begin ! mess┆
0x49760…4977a 61 67 65 20 68 61 73 20 61 72 72 69 76 65 64 20 69 6e 20 65 76 65 6e 74 20 71 ┆age has arrived in event q┆
0x4977a…49780 (0x324,0x930)
0x49780…497a0 75 65 75 65 20 21 0a 20 20 20 20 20 20 69 66 20 77 30 3a 3d 20 28 77 32 29 2e 63 6d 5f 6f 70 20 ┆ueue ! if w0:= (w2).cm_op ┆
0x497a0…497c0 3d 20 37 20 74 68 65 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 20 21 20 63 6f 6e 74 72 6f 6c 20 6d ┆= 7 then begin ! control m┆
0x497c0…497e0 65 73 73 61 67 65 20 21 0a 20 20 20 20 20 20 20 20 77 31 3a 3d 20 61 70 6c 5f 66 73 74 3b 0a 20 ┆essage ! w1:= apl_fst; ┆
0x497e0…49800 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 31 29 2e 63 5f 6d 62 75 00 00 00 00 00 00 00 00 ┆ if w0:=(w1).c_mbu ┆
0x49800…49806 (588,) (0x324,0x931)
0x49806…49820 66 3e 3d 30 20 74 68 65 6e 20 67 6f 74 6f 20 77 61 69 74 5f 6e 65 78 74 3b 0a ┆f>=0 then goto wait_next; ┆
0x49820…49840 20 20 20 20 20 20 20 20 28 77 31 29 2e 63 5f 77 32 3a 3d 20 77 32 3b 0a 20 20 20 20 20 20 20 20 ┆ (w1).c_w2:= w2; ┆
0x49840…49860 28 77 31 29 2e 63 5f 6d 62 75 66 3a 3d 20 77 32 3b 0a 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f ┆(w1).c_mbuf:= w2; monito┆
0x49860…4987e 72 28 32 36 29 3b 20 21 20 67 65 74 20 65 76 65 6e 74 20 21 0a 20 20 20 20 20 20 20 20 67 ┆r(26); ! get event ! g┆
0x4987e…49884 (0x324,0x932)
0x49884…498a0 6f 74 6f 20 63 6f 72 75 5f 66 6f 75 6e 64 3b 0a 20 20 20 20 20 20 65 6e 64 0a 20 20 ┆oto coru_found; end ┆
0x498a0…498c0 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 69 66 20 77 30 3d 30 20 74 68 65 6e 0a 20 20 20 20 ┆ else if w0=0 then ┆
0x498c0…498e0 20 20 62 65 67 69 6e 20 21 20 61 74 74 20 6d 65 73 73 61 67 65 20 21 0a 20 20 20 20 20 20 20 20 ┆ begin ! att message ! ┆
0x498e0…498fc 77 30 3a 3d 20 30 3b 20 66 72 65 65 6f 70 72 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 ┆w0:= 0; freeopr:= w0; ┆
0x498fc…49902 (0x324,0x933)
0x49902…49920 20 20 69 66 20 77 32 3a 3d 28 77 32 29 2e 63 6d 5f 73 65 6e 64 65 72 3c 3d 30 20 74 68 65 ┆ if w2:=(w2).cm_sender<=0 the┆
0x49920…49940 6e 20 67 6f 74 6f 20 75 6e 69 6e 3b 0a 20 20 20 20 20 20 20 20 77 32 2b 32 3b 0a 20 20 20 20 20 ┆n goto unin; w2+2; ┆
0x49940…49960 20 20 20 77 31 3a 3d 20 6f 70 72 5f 74 6f 70 3b 0a 20 20 20 20 20 20 20 20 77 68 69 6c 65 20 77 ┆ w1:= opr_top; while w┆
0x49960…4997a 31 2d 21 6c 65 6e 67 74 68 28 6f 70 72 63 6f 72 6f 75 74 29 3e 3d 6f 70 72 5f ┆1-!length(oprcorout)>=opr_┆
0x4997a…49980 (0x324,0x934)
0x49980…499a0 66 73 74 20 64 6f 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 63 ┆fst do begin c┆
0x499a0…499c0 75 72 72 6f 70 72 3a 3d 20 77 31 3b 0a 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 ┆urropr:= w1; if w0:=(┆
0x499c0…499e0 77 31 29 2e 63 5f 6d 62 75 66 3c 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 66 72 65 65 ┆w1).c_mbuf<0 then free┆
0x499e0…49a00 6f 70 72 3a 3d 20 77 31 0a 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 0a 00 00 00 00 00 00 00 00 ┆opr:= w1 else ┆
0x49a00…49a06 (589,) (0x324,0x935)
0x49a06…49a20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 21 20 72 65 6a 65 63 74 20 69 ┆ begin ! reject i┆
0x49a20…49a40 66 20 61 20 73 65 73 73 69 6f 6e 20 69 73 20 61 6c 6c 72 65 61 64 79 20 67 6f 69 6e 67 20 6f 6e ┆f a session is allready going on┆
0x49a40…49a60 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6d 70 61 72 65 28 2e 77 33 2e 2c 77 30 3a 3d ┆ ! compare(.w3.,w0:=┆
0x49a60…49a7e 38 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 28 77 31 29 2e 6f 70 72 5f 63 6f 6e 73 6f 6c 65 ┆8,w1:=address((w1).opr_console┆
0x49a7e…49a84 (0x324,0x936)
0x49a84…49aa0 29 2c 77 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3d 30 20 21 ┆),w2); if w0=0 !┆
0x49aa0…49ac0 20 6d 61 74 63 68 20 21 20 74 68 65 6e 20 67 6f 74 6f 20 75 6e 69 6e 3b 0a 20 20 20 20 20 20 20 ┆ match ! then goto unin; ┆
0x49ac0…49ae0 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 20 63 75 72 72 6f 70 72 3b 0a ┆ end; w1:= curropr; ┆
0x49ae0…49afc 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 33 3a 3d ┆ end; if w3:=┆
0x49afc…49b02 (0x324,0x937)
0x49b02…49b20 66 72 65 65 6f 70 72 3d 30 20 74 68 65 6e 20 67 6f 74 6f 20 75 6e 69 6e 3b 0a 20 20 20 20 ┆freeopr=0 then goto unin; ┆
0x49b20…49b40 20 20 20 20 6d 6f 76 65 28 2e 77 33 2e 2c 77 30 3a 3d 38 2c 77 31 3a 3d 77 32 2c 77 32 3a 3d 61 ┆ move(.w3.,w0:=8,w1:=w2,w2:=a┆
0x49b40…49b60 64 64 72 65 73 73 28 28 77 33 29 2e 6f 70 72 5f 63 6f 6e 73 6f 6c 65 29 29 3b 0a 20 20 20 20 20 ┆ddress((w3).opr_console)); ┆
0x49b60…49b7a 20 20 20 77 31 3a 3d 20 66 72 65 65 6f 70 72 3b 0a 20 20 20 20 20 20 20 20 77 ┆ w1:= freeopr; w┆
0x49b7a…49b80 (0x324,0x938)
0x49b80…49ba0 32 3a 3d 20 65 76 65 6e 74 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 63 5f 77 32 3a 3d 20 77 ┆2:= event; (w1).c_w2:= w┆
0x49ba0…49bc0 32 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 63 5f 6d 62 75 66 3a 3d 20 77 32 3b 0a 20 20 20 ┆2; (w1).c_mbuf:= w2; ┆
0x49bc0…49be0 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 32 36 29 3b 20 20 21 20 67 65 74 20 65 76 65 6e 74 20 21 ┆ monitor(26); ! get event !┆
0x49be0…49c00 0a 20 20 20 20 20 20 20 20 67 6f 74 6f 20 63 6f 72 75 5f 66 6f 75 6e 64 00 00 00 00 00 00 00 00 ┆ goto coru_found ┆
0x49c00…49c06 (590,) (0x324,0x939)
0x49c06…49c20 3b 0a 20 20 20 20 20 20 65 6e 64 0a 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 ┆; end else ┆
0x49c20…49c40 20 20 20 62 65 67 69 6e 20 21 20 6f 70 65 72 61 74 69 6f 6e 20 69 6c 6c 65 67 61 6c 20 21 0a 75 ┆ begin ! operation illegal ! u┆
0x49c40…49c60 6e 69 6e 3a 0a 20 20 20 20 20 20 20 20 61 6e 73 5f 73 74 61 74 75 73 3a 3d 20 77 30 3a 3d 20 30 ┆nin: ans_status:= w0:= 0┆
0x49c60…49c7e 3b 0a 20 20 20 20 20 20 20 20 61 6e 73 5f 62 79 74 65 73 3a 3d 20 77 30 3b 0a 20 20 20 20 ┆; ans_bytes:= w0; ┆
0x49c7e…49c84 (0x324,0x93a)
0x49c84…49ca0 20 20 20 20 61 6e 73 5f 63 68 61 72 73 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 20 ┆ ans_chars:= w0; ┆
0x49ca0…49cc0 77 30 3a 3d 20 33 3b 0a 20 20 20 20 20 20 20 20 77 31 3a 3d 20 61 64 64 72 65 73 73 28 61 6e 73 ┆w0:= 3; w1:= address(ans┆
0x49cc0…49ce0 5f 73 74 61 74 75 73 29 3b 0a 20 20 20 20 20 20 20 20 77 32 3a 3d 65 76 65 6e 74 3b 0a 20 20 20 ┆_status); w2:=event; ┆
0x49ce0…49cfc 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 32 32 29 3b 20 21 20 73 65 6e 64 20 61 6e 73 ┆ monitor(22); ! send ans┆
0x49cfc…49d02 (0x324,0x93b)
0x49d02…49d20 77 65 72 20 21 0a 20 20 20 20 20 20 20 20 74 65 73 74 6f 75 74 28 2e 77 33 2e 2c 77 30 3a ┆wer ! testout(.w3.,w0:┆
0x49d20…49d40 3d 32 2c 77 31 2c 77 32 3a 3d 36 30 29 3b 0a 20 20 20 20 20 20 20 20 67 6f 74 6f 20 63 65 6e 74 ┆=2,w1,w2:=60); goto cent┆
0x49d40…49d60 72 61 6c 5f 77 61 69 74 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 0a 0a 20 20 20 20 65 6e 64 3b 20 ┆ral_wait; end; end; ┆
0x49d60…49d7a 21 20 6d 65 73 73 61 67 65 20 21 0a 20 20 63 6f 72 75 5f 66 6f 75 6e 64 3a 0a ┆! message ! coru_found: ┆
0x49d7a…49d80 (0x324,0x93c)
0x49d80…49da0 20 20 20 20 6c 69 6e 6b 28 2e 77 33 2e 2c 77 31 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 61 63 74 ┆ link(.w3.,w1,w2:=address(act┆
0x49da0…49dc0 69 76 71 66 73 74 29 29 3b 0a 20 20 61 63 74 69 76 61 74 65 3a 0a 20 20 20 20 77 31 3a 3d 61 64 ┆ivqfst)); activate: w1:=ad┆
0x49dc0…49de0 64 72 65 73 73 28 61 63 74 69 76 71 66 73 74 29 3b 0a 20 20 20 20 69 66 20 77 33 3a 3d 28 77 31 ┆dress(activqfst); if w3:=(w1┆
0x49de0…49e00 29 2e 63 5f 6e 65 78 74 3d 77 31 20 74 68 65 6e 20 67 6f 74 6f 20 63 65 00 00 00 00 00 00 00 00 ┆).c_next=w1 then goto ce ┆
0x49e00…49e06 (591,) (0x324,0x93d)
0x49e06…49e20 6e 74 72 61 6c 5f 77 61 69 74 3b 0a 20 20 20 20 63 75 72 72 65 6e 74 3a 3d 20 ┆ntral_wait; current:= ┆
0x49e20…49e40 77 33 3b 0a 20 20 20 20 67 65 74 5f 62 72 61 6e 63 68 65 73 28 2e 77 33 2e 2c 77 30 3a 3d 28 77 ┆w3; get_branches(.w3.,w0:=(w┆
0x49e40…49e60 33 29 2e 63 5f 6e 72 29 3b 0a 20 20 20 20 74 65 73 74 6f 75 74 28 2e 77 33 2e 2c 77 30 3a 3d 21 ┆3).c_nr); testout(.w3.,w0:=!┆
0x49e60…49e7e 6c 65 6e 67 74 68 28 70 72 63 6f 72 6f 75 74 29 2c 77 31 3a 3d 63 75 72 72 65 6e 74 2c 77 ┆length(prcorout),w1:=current,w┆
0x49e7e…49e84 (0x324,0x93e)
0x49e84…49ea0 32 3a 3d 31 31 29 3b 0a 20 20 20 20 77 30 3a 3d 20 28 77 33 29 2e 63 5f 77 30 3b 0a ┆2:=11); w0:= (w3).c_w0; ┆
0x49ea0…49ec0 20 20 20 20 77 31 3a 3d 20 28 77 33 29 2e 63 5f 77 31 3b 0a 20 20 20 20 77 32 3a 3d 20 28 77 33 ┆ w1:= (w3).c_w1; w2:= (w3┆
0x49ec0…49ee0 29 2e 63 5f 77 32 3b 0a 20 20 20 20 63 61 6c 6c 20 77 30 20 63 75 72 72 65 6e 74 2e 63 5f 69 63 ┆).c_w2; call w0 current.c_ic┆
0x49ee0…49efc 3b 0a 20 20 65 6e 64 3b 20 21 20 6d 61 69 6e 20 70 72 6f 67 72 61 6d 20 21 0a 0a 0a ┆; end; ! main program ! ┆
0x49efc…49f02 (0x324,0x93f)
0x49f02…49f20 0a 20 20 62 6f 64 79 20 6f 66 20 77 61 69 74 6d 65 73 73 0a 20 20 62 65 67 69 6e 0a 20 20 ┆ body of waitmess begin ┆
0x49f20…49f40 20 20 69 6e 63 6f 64 65 0a 20 20 20 20 20 20 72 65 66 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 62 ┆ incode ref return; b┆
0x49f40…49f60 65 67 69 6e 0a 20 20 20 20 20 20 72 65 74 75 72 6e 3a 3d 77 33 3b 0a 20 20 20 20 20 20 77 33 3a ┆egin return:=w3; w3:┆
0x49f60…49f7a 3d 62 2e 63 75 72 72 65 6e 74 3b 0a 20 20 20 20 20 20 28 77 33 29 2e 63 5f 77 ┆=b.current; (w3).c_w┆
0x49f7a…49f80 (0x324,0x940)
0x49f80…49fa0 30 3a 3d 77 30 3b 0a 20 20 20 20 20 20 28 77 33 29 2e 63 5f 77 31 3a 3d 77 31 3b 0a 20 20 20 20 ┆0:=w0; (w3).c_w1:=w1; ┆
0x49fa0…49fc0 20 20 28 77 33 29 2e 63 5f 69 63 3a 3d 77 30 3a 3d 72 65 74 75 72 6e 3b 0a 20 20 20 20 20 20 77 ┆ (w3).c_ic:=w0:=return; w┆
0x49fc0…49fe0 30 3a 3d 2d 31 3b 20 28 77 33 29 2e 63 5f 6d 62 75 66 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 6c ┆0:=-1; (w3).c_mbuf:= w0; l┆
0x49fe0…4a000 69 6e 6b 28 2e 77 33 2e 2c 77 31 3a 3d 77 33 2c 77 32 3a 3d 61 64 64 72 00 00 00 00 00 00 00 00 ┆ink(.w3.,w1:=w3,w2:=addr ┆
0x4a000…4a006 (592,) (0x324,0x941)
0x4a006…4a020 65 73 73 28 62 2e 77 61 69 74 71 66 73 74 29 29 3b 0a 20 20 20 20 20 20 74 65 ┆ess(b.waitqfst)); te┆
0x4a020…4a040 73 74 6f 75 74 28 2e 77 33 2e 2c 77 30 3a 3d 21 6c 65 6e 67 74 68 28 63 6f 72 6f 75 74 69 6e 65 ┆stout(.w3.,w0:=!length(coroutine┆
0x4a040…4a060 29 2c 77 31 2c 77 32 3a 3d 36 32 29 3b 0a 20 20 20 20 20 20 67 6f 74 6f 20 62 2e 61 63 74 69 76 ┆),w1,w2:=62); goto b.activ┆
0x4a060…4a07e 61 74 65 3b 0a 20 20 20 20 65 6e 64 3b 0a 20 20 65 6e 64 3b 20 21 20 77 61 69 74 6d 65 73 ┆ate; end; end; ! waitmes┆
0x4a07e…4a084 (0x324,0x942)
0x4a084…4a0a0 73 20 21 0a 0a 0a 0a 20 20 62 6f 64 79 20 6f 66 20 73 65 6e 64 77 61 69 74 0a 20 20 ┆s ! body of sendwait ┆
0x4a0a0…4a0c0 62 65 67 69 6e 0a 20 20 20 20 69 6e 63 6f 64 65 0a 20 20 20 20 20 20 72 65 66 20 72 65 74 75 72 ┆begin incode ref retur┆
0x4a0c0…4a0e0 6e 3b 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 72 65 74 75 72 6e 3a 3d 77 33 3b 0a 20 ┆n; begin return:=w3; ┆
0x4a0e0…4a0fc 20 20 20 20 20 77 33 3a 3d 62 2e 63 75 72 72 65 6e 74 3b 0a 20 20 20 20 20 20 28 77 ┆ w3:=b.current; (w┆
0x4a0fc…4a102 (0x324,0x943)
0x4a102…4a120 33 29 2e 63 5f 77 31 3a 3d 77 31 3b 0a 20 20 20 20 20 20 28 77 33 29 2e 63 5f 77 32 3a 3d ┆3).c_w1:=w1; (w3).c_w2:=┆
0x4a120…4a140 77 32 3b 0a 20 20 20 20 20 20 77 33 3a 3d 77 32 3b 0a 20 20 20 20 20 20 77 32 3a 3d 28 77 32 3a ┆w2; w3:=w2; w2:=(w2:┆
0x4a140…4a160 3d 62 2e 63 75 72 72 65 6e 74 29 2e 63 5f 6e 72 3b 20 20 21 20 6d 65 73 73 61 67 65 20 66 6c 61 ┆=b.current).c_nr; ! message fla┆
0x4a160…4a17a 67 20 3d 20 63 5f 6e 72 20 21 0a 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 31 ┆g = c_nr ! monitor(1┆
0x4a17a…4a180 (0x324,0x944)
0x4a180…4a1a0 36 29 3b 20 20 21 20 73 65 6e 64 20 6d 65 73 73 61 67 65 20 21 0a 20 20 20 20 20 20 77 31 3a 3d ┆6); ! send message ! w1:=┆
0x4a1a0…4a1c0 62 2e 63 75 72 72 65 6e 74 3b 0a 20 20 20 20 20 20 28 77 31 29 2e 63 5f 6d 62 75 66 3a 3d 77 32 ┆b.current; (w1).c_mbuf:=w2┆
0x4a1c0…4a1e0 3b 0a 20 20 20 20 20 20 28 77 31 29 2e 63 5f 69 63 3a 3d 77 30 3a 3d 72 65 74 75 72 6e 3b 0a 20 ┆; (w1).c_ic:=w0:=return; ┆
0x4a1e0…4a200 20 20 20 20 20 6c 69 6e 6b 28 2e 77 33 2e 2c 77 31 2c 77 32 3a 3d 61 64 00 00 00 00 00 00 00 00 ┆ link(.w3.,w1,w2:=ad ┆
0x4a200…4a206 (593,) (0x324,0x945)
0x4a206…4a220 64 72 65 73 73 28 62 2e 61 6e 73 77 65 72 71 66 73 74 29 29 3b 0a 20 20 20 20 ┆dress(b.answerqfst)); ┆
0x4a220…4a240 20 20 74 65 73 74 6f 75 74 28 2e 77 33 2e 2c 77 30 3a 3d 38 2c 77 31 3a 3d 28 77 33 29 2e 63 5f ┆ testout(.w3.,w0:=8,w1:=(w3).c_┆
0x4a240…4a260 77 31 2c 77 32 3a 3d 36 33 29 3b 0a 20 20 20 20 20 20 67 6f 74 6f 20 62 2e 61 63 74 69 76 61 74 ┆w1,w2:=63); goto b.activat┆
0x4a260…4a27e 65 3b 0a 20 20 20 20 65 6e 64 3b 0a 20 20 65 6e 64 3b 20 20 21 20 73 65 6e 64 77 61 69 74 ┆e; end; end; ! sendwait┆
0x4a27e…4a284 (0x324,0x946)
0x4a284…4a2a0 20 21 0a 0a 0a 0a 20 20 62 6f 64 79 20 6f 66 20 77 61 69 74 5f 73 74 61 74 75 73 0a ┆ ! body of wait_status ┆
0x4a2a0…4a2c0 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 6c 69 6e 6b 20 63 61 6c 6c 69 6e 67 20 28 66 70 ┆ begin comment link calling (fp┆
0x4a2c0…4a2e0 72 29 20 63 6f 72 6f 75 74 69 6e 65 20 74 6f 20 69 74 27 73 20 73 74 61 74 75 73 0a 20 20 20 20 ┆r) coroutine to it's status ┆
0x4a2e0…4a2fc 20 20 20 20 73 65 72 76 65 72 20 3b 0a 20 20 20 20 69 6e 63 6f 64 65 0a 20 20 20 20 ┆ server ; incode ┆
0x4a2fc…4a302 (0x324,0x947)
0x4a302…4a320 20 20 64 6f 75 62 6c 65 20 74 69 6d 65 3a 3d 20 38 27 30 30 30 30 30 30 30 30 30 31 37 37 ┆ double time:= 8'000000000177┆
0x4a320…4a340 37 37 37 37 3b 0a 20 20 20 20 20 20 77 6f 72 64 20 77 61 69 74 3b 0a 20 20 20 20 72 65 66 20 72 ┆7777; word wait; ref r┆
0x4a340…4a360 65 74 75 72 6e 3b 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 72 65 74 75 72 6e 3a 3d 20 ┆eturn; begin return:= ┆
0x4a360…4a37a 77 33 3b 0a 20 20 20 20 20 20 77 61 69 74 3a 3d 20 77 30 3b 0a 20 20 20 20 20 ┆w3; wait:= w0; ┆
0x4a37a…4a380 (0x324,0x948)
0x4a380…4a3a0 20 28 77 31 3a 3d 62 2e 63 75 72 72 65 6e 74 29 2e 63 5f 69 63 3a 3d 20 77 30 3a 3d 20 72 65 74 ┆ (w1:=b.current).c_ic:= w0:= ret┆
0x4a3a0…4a3c0 75 72 6e 3b 0a 20 20 20 20 20 20 6c 69 6e 6b 28 2e 77 33 2e 2c 77 31 2c 77 32 3a 3d 61 64 64 72 ┆urn; link(.w3.,w1,w2:=addr┆
0x4a3c0…4a3e0 65 73 73 28 28 77 32 3a 3d 28 77 31 29 2e 66 70 72 5f 73 74 63 6f 72 6f 75 74 29 2e 66 70 72 5f ┆ess((w2:=(w1).fpr_stcorout).fpr_┆
0x4a3e0…4a400 6e 65 78 74 29 29 3b 0a 20 20 20 20 20 20 77 31 3a 3d 20 28 77 33 29 2e 00 00 00 00 00 00 00 00 ┆next)); w1:= (w3). ┆
0x4a400…4a406 (594,) (0x324,0x949)
0x4a406…4a420 66 70 72 5f 73 74 63 6f 72 6f 75 74 3b 0a 20 20 20 20 20 20 28 77 31 29 2e 66 ┆fpr_stcorout; (w1).f┆
0x4a420…4a440 70 72 5f 77 61 69 74 3a 3d 20 77 30 3a 3d 20 28 77 31 29 2e 66 70 72 5f 77 61 69 74 2b 31 3b 0a ┆pr_wait:= w0:= (w1).fpr_wait+1; ┆
0x4a440…4a460 20 20 20 20 20 20 66 31 3a 3d 20 28 77 31 3a 3d 31 30 38 29 2e 64 6f 75 62 6c 65 3b 0a 20 20 20 ┆ f1:= (w1:=108).double; ┆
0x4a460…4a47e 20 20 20 66 31 2b 74 69 6d 65 3b 0a 20 20 20 20 20 20 66 31 20 6c 73 68 69 66 74 20 2d 31 ┆ f1+time; f1 lshift -1┆
0x4a47e…4a484 (0x324,0x94a)
0x4a484…4a4a0 39 3b 0a 20 20 20 20 20 20 77 31 2b 77 61 69 74 3b 0a 20 20 20 20 20 20 28 77 33 29 ┆9; w1+wait; (w3)┆
0x4a4a0…4a4c0 2e 66 70 72 5f 74 69 6d 65 72 3a 3d 20 77 31 3b 0a 20 20 20 20 20 20 67 6f 74 6f 20 62 2e 61 63 ┆.fpr_timer:= w1; goto b.ac┆
0x4a4c0…4a4e0 74 69 76 61 74 65 3b 0a 20 20 20 20 65 6e 64 3b 0a 20 20 65 6e 64 3b 20 21 20 65 6e 64 20 77 61 ┆tivate; end; end; ! end wa┆
0x4a4e0…4a4fc 69 74 5f 73 74 61 74 75 73 20 21 0a 0a 0a 0a 0a 20 20 62 6f 64 79 20 6f 66 20 6c 69 ┆it_status ! body of li┆
0x4a4fc…4a502 (0x324,0x94b)
0x4a502…4a520 6e 6b 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 69 6e 63 6f 64 65 0a 20 20 20 20 20 20 64 6f ┆nk begin incode do┆
0x4a520…4a540 75 62 6c 65 20 73 61 76 65 66 31 3b 0a 20 20 20 20 20 20 77 6f 72 64 20 73 61 76 65 77 32 3b 0a ┆uble savef1; word savew2; ┆
0x4a540…4a560 20 20 20 20 20 20 72 65 66 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 ┆ ref return; begin ┆
0x4a560…4a57a 20 20 73 61 76 65 66 31 3a 3d 66 31 3b 0a 20 20 20 20 20 20 73 61 76 65 77 32 ┆ savef1:=f1; savew2┆
0x4a57a…4a580 (0x324,0x94c)
0x4a580…4a5a0 3a 3d 77 32 3b 0a 20 20 20 20 20 20 72 65 74 75 72 6e 3a 3d 77 33 3b 0a 20 20 20 20 20 20 21 20 ┆:=w2; return:=w3; ! ┆
0x4a5a0…4a5c0 72 65 6d 6f 76 65 20 71 75 65 75 65 20 65 6c 65 6d 65 6e 74 20 66 72 6f 6d 20 61 63 74 75 61 6c ┆remove queue element from actual┆
0x4a5c0…4a5e0 20 71 75 65 75 65 20 21 0a 20 20 20 20 20 20 77 33 3a 3d 28 77 31 29 2e 63 5f 70 72 65 76 3b 0a ┆ queue ! w3:=(w1).c_prev; ┆
0x4a5e0…4a600 20 20 20 20 20 20 28 77 33 29 2e 63 5f 6e 65 78 74 3a 3d 77 30 3a 3d 28 00 00 00 00 00 00 00 00 ┆ (w3).c_next:=w0:=( ┆
0x4a600…4a606 (595,) (0x324,0x94d)
0x4a606…4a620 77 31 29 2e 63 5f 6e 65 78 74 3b 0a 20 20 20 20 20 20 77 33 3a 3d 28 77 31 29 ┆w1).c_next; w3:=(w1)┆
0x4a620…4a640 2e 63 5f 6e 65 78 74 3b 0a 20 20 20 20 20 20 28 77 33 29 2e 63 5f 70 72 65 76 3a 3d 77 30 3a 3d ┆.c_next; (w3).c_prev:=w0:=┆
0x4a640…4a660 28 77 31 29 2e 63 5f 70 72 65 76 3b 0a 20 20 20 20 20 20 21 20 6c 69 6e 6b 20 75 70 20 65 6c 65 ┆(w1).c_prev; ! link up ele┆
0x4a660…4a67e 6d 65 6e 74 20 61 73 20 74 68 65 20 6c 61 73 74 20 65 6c 65 6d 65 6e 74 20 69 6e 20 74 68 ┆ment as the last element in th┆
0x4a67e…4a684 (0x324,0x94e)
0x4a684…4a6a0 65 20 71 75 65 75 65 20 21 0a 20 20 20 20 20 20 28 77 31 29 2e 63 5f 70 72 65 76 3a ┆e queue ! (w1).c_prev:┆
0x4a6a0…4a6c0 3d 77 33 3a 3d 28 77 32 29 2e 63 5f 70 72 65 76 3b 0a 20 20 20 20 20 20 28 77 31 29 2e 63 5f 6e ┆=w3:=(w2).c_prev; (w1).c_n┆
0x4a6c0…4a6e0 65 78 74 3a 3d 77 32 3b 0a 20 20 20 20 20 20 28 77 32 29 2e 63 5f 70 72 65 76 3a 3d 77 31 3b 0a ┆ext:=w2; (w2).c_prev:=w1; ┆
0x4a6e0…4a6fc 20 20 20 20 20 20 28 77 33 29 2e 63 5f 6e 65 78 74 3a 3d 77 31 3b 0a 20 20 20 20 20 ┆ (w3).c_next:=w1; ┆
0x4a6fc…4a702 (0x324,0x94f)
0x4a702…4a720 20 66 31 3a 3d 73 61 76 65 66 31 3b 0a 20 20 20 20 20 20 77 32 3a 3d 73 61 76 65 77 32 3b ┆ f1:=savef1; w2:=savew2;┆
0x4a720…4a740 0a 20 20 20 20 20 20 77 33 3a 3d 62 2e 63 75 72 72 65 6e 74 3b 0a 20 20 20 20 20 20 63 61 6c 6c ┆ w3:=b.current; call┆
0x4a740…4a760 20 77 30 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 65 6e 64 3b 0a 20 20 65 6e 64 3b 20 20 21 20 6c ┆ w0 return; end; end; ! l┆
0x4a760…4a77a 69 6e 6b 20 21 0a 0a 0a 0a 20 20 62 6f 64 79 20 6f 66 20 6d 6f 76 65 0a 20 20 ┆ink ! body of move ┆
0x4a77a…4a780 (0x324,0x950)
0x4a780…4a7a0 62 65 67 69 6e 0a 20 20 20 20 69 6e 63 6f 64 65 0a 20 20 20 20 20 20 64 6f 75 62 6c 65 20 73 61 ┆begin incode double sa┆
0x4a7a0…4a7c0 76 65 66 31 3b 0a 20 20 20 20 20 20 77 6f 72 64 20 73 61 76 65 77 32 3b 0a 20 20 20 20 20 20 72 ┆vef1; word savew2; r┆
0x4a7c0…4a7e0 65 66 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 73 61 76 65 66 ┆ef return; begin savef┆
0x4a7e0…4a800 31 3a 3d 66 31 3b 0a 20 20 20 20 20 20 73 61 76 65 77 32 3a 3d 77 32 3b 00 00 00 00 00 00 00 00 ┆1:=f1; savew2:=w2; ┆
0x4a800…4a806 (596,) (0x324,0x951)
0x4a806…4a820 0a 20 20 20 20 20 20 72 65 74 75 72 6e 3a 3d 77 33 3b 0a 20 20 20 20 20 20 77 ┆ return:=w3; w┆
0x4a820…4a840 33 3a 3d 77 31 2b 77 30 3b 0a 20 20 20 20 20 20 77 68 69 6c 65 20 77 31 20 3c 20 77 33 20 64 6f ┆3:=w1+w0; while w1 < w3 do┆
0x4a840…4a860 0a 20 20 20 20 20 20 62 65 67 69 6e 20 20 21 20 6d 6f 76 65 20 66 72 6f 6d 20 77 31 20 74 6f 20 ┆ begin ! move from w1 to ┆
0x4a860…4a87e 77 32 2c 20 6f 6e 65 20 77 6f 72 64 20 61 74 20 61 20 74 69 6d 65 20 21 0a 20 20 20 20 20 ┆w2, one word at a time ! ┆
0x4a87e…4a884 (0x324,0x952)
0x4a884…4a8a0 20 20 20 28 77 32 29 2e 77 6f 72 64 3a 3d 77 30 3a 3d 28 77 31 29 2e 77 6f 72 64 3b ┆ (w2).word:=w0:=(w1).word;┆
0x4a8a0…4a8c0 0a 20 20 20 20 20 20 20 20 77 31 2b 32 3b 0a 20 20 20 20 20 20 20 20 77 32 2b 32 3b 0a 20 20 20 ┆ w1+2; w2+2; ┆
0x4a8c0…4a8e0 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 66 31 3a 3d 73 61 76 65 66 31 3b 0a 20 20 20 20 20 20 ┆ end; f1:=savef1; ┆
0x4a8e0…4a8fc 77 32 3a 3d 73 61 76 65 77 32 3b 0a 20 20 20 20 20 20 77 33 3a 3d 62 2e 63 75 72 72 ┆w2:=savew2; w3:=b.curr┆
0x4a8fc…4a902 (0x324,0x953)
0x4a902…4a920 65 6e 74 3b 0a 20 20 20 20 20 20 63 61 6c 6c 20 77 30 20 72 65 74 75 72 6e 3b 0a 20 20 20 ┆ent; call w0 return; ┆
0x4a920…4a940 20 65 6e 64 3b 0a 20 20 65 6e 64 3b 20 20 21 20 6d 6f 76 65 20 21 0a 0a 0a 0a 20 20 62 6f 64 79 ┆ end; end; ! move ! body┆
0x4a940…4a960 20 6f 66 20 6f 70 6d 65 73 73 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 69 6e 63 6f 64 65 0a 20 20 ┆ of opmess begin incode ┆
0x4a960…4a97a 20 20 20 20 64 6f 75 62 6c 65 20 73 61 76 65 66 31 2c 73 61 76 65 66 33 3b 0a ┆ double savef1,savef3; ┆
0x4a97a…4a980 (0x324,0x954)
0x4a980…4a9a0 20 20 20 20 20 20 74 65 78 74 28 31 34 29 20 70 61 72 65 6e 74 3b 0a 20 20 20 20 62 65 67 69 6e ┆ text(14) parent; begin┆
0x4a9a0…4a9c0 0a 20 20 20 20 20 20 73 61 76 65 66 31 3a 3d 66 31 3b 0a 20 20 20 20 20 20 73 61 76 65 66 33 3a ┆ savef1:=f1; savef3:┆
0x4a9c0…4a9e0 3d 66 33 3b 0a 20 20 20 20 20 20 77 31 3a 3d 62 2e 70 72 69 6d 6f 2b 35 30 3b 0a 20 20 20 20 20 ┆=f3; w1:=b.primo+50; ┆
0x4a9e0…4aa00 20 6d 6f 76 65 28 2e 77 33 2e 2c 77 30 3a 3d 38 2c 77 31 3a 3d 28 77 31 00 00 00 00 00 00 00 00 ┆ move(.w3.,w0:=8,w1:=(w1 ┆
0x4aa00…4aa06 (597,) (0x324,0x955)
0x4aa06…4aa20 29 2e 77 6f 72 64 2b 32 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 70 61 72 65 6e ┆).word+2,w2:=address(paren┆
0x4aa20…4aa40 74 29 29 3b 0a 20 20 20 20 20 20 77 33 3a 3d 77 32 3b 0a 20 20 20 20 20 20 66 31 3a 3d 73 61 76 ┆t)); w3:=w2; f1:=sav┆
0x4aa40…4aa60 65 66 31 3b 0a 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 31 36 29 3b 20 20 21 20 73 65 6e 64 20 ┆ef1; monitor(16); ! send ┆
0x4aa60…4aa7e 6d 65 73 73 61 67 65 20 74 6f 20 70 61 72 65 6e 74 20 21 0a 20 20 20 20 20 20 77 31 3a 3d ┆message to parent ! w1:=┆
0x4aa7e…4aa84 (0x324,0x956)
0x4aa84…4aaa0 61 64 64 72 65 73 73 28 62 2e 61 6e 73 5f 73 74 61 74 75 73 29 3b 0a 20 20 20 20 20 ┆address(b.ans_status); ┆
0x4aaa0…4aac0 20 6d 6f 6e 69 74 6f 72 28 31 38 29 3b 20 20 21 20 77 61 69 74 20 61 6e 73 77 65 72 20 21 0a 20 ┆ monitor(18); ! wait answer ! ┆
0x4aac0…4aae0 20 20 20 20 20 66 31 3a 3d 73 61 76 65 66 31 3b 0a 20 20 20 20 20 20 66 33 3a 3d 73 61 76 65 66 ┆ f1:=savef1; f3:=savef┆
0x4aae0…4aafc 33 3b 0a 20 20 20 20 65 6e 64 3b 0a 20 20 65 6e 64 3b 20 20 21 20 6f 70 6d 65 73 73 ┆3; end; end; ! opmess┆
0x4aafc…4ab02 (0x324,0x957)
0x4ab02…4ab20 20 21 0a 0a 0a 0a 20 20 62 6f 64 79 20 6f 66 20 67 65 74 5f 62 72 61 6e 63 68 65 73 0a 20 ┆ ! body of get_branches ┆
0x4ab20…4ab40 20 63 6f 6d 6d 65 6e 74 20 67 65 74 20 6f 76 65 72 6c 61 79 20 63 6f 64 65 20 6e 65 63 65 73 73 ┆ comment get overlay code necess┆
0x4ab40…4ab60 61 72 79 20 74 6f 20 65 78 65 63 75 74 65 20 63 6f 72 6f 75 74 69 6e 65 3b 0a 20 20 62 65 67 69 ┆ary to execute coroutine; begi┆
0x4ab60…4ab7a 6e 0a 20 20 20 20 6c 61 62 65 6c 20 64 69 73 63 65 72 72 6f 72 3b 0a 20 20 20 ┆n label discerror; ┆
0x4ab7a…4ab80 (0x324,0x958)
0x4ab80…4aba0 20 69 6e 63 6f 64 65 0a 20 20 20 20 20 20 64 6f 75 62 6c 65 20 73 61 76 65 66 31 3b 0a 20 20 20 ┆ incode double savef1; ┆
0x4aba0…4abc0 20 20 20 77 6f 72 64 20 73 61 76 65 77 32 3b 20 72 65 66 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 ┆ word savew2; ref return; ┆
0x4abc0…4abe0 20 20 77 6f 72 64 20 6c 61 73 74 63 6f 72 75 74 79 70 65 3a 3d 20 2d 31 2c 20 63 75 72 72 63 6f ┆ word lastcorutype:= -1, currco┆
0x4abe0…4ac00 72 75 74 79 70 65 3b 0a 20 20 20 20 20 20 62 79 74 65 20 6f 70 3a 3d 20 00 00 00 00 00 00 00 00 ┆rutype; byte op:= ┆
0x4ac00…4ac06 (598,) (0x324,0x959)
0x4ac06…4ac20 32 2c 20 6d 6f 64 65 3a 3d 20 38 27 31 30 30 31 3b 0a 20 20 20 20 20 20 74 65 ┆2, mode:= 8'1001; te┆
0x4ac20…4ac40 78 74 28 36 29 20 74 5f 73 74 61 74 75 73 3a 3d 20 22 73 74 61 74 75 73 22 3b 0a 20 20 20 20 20 ┆xt(6) t_status:= "status"; ┆
0x4ac40…4ac60 20 77 6f 72 64 20 73 74 61 74 75 73 3b 0a 20 20 20 20 20 20 74 65 78 74 28 31 31 29 20 74 5f 70 ┆ word status; text(11) t_p┆
0x4ac60…4ac7e 72 6f 67 6e 61 6d 65 3b 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 73 61 76 65 66 ┆rogname; begin savef┆
0x4ac7e…4ac84 (0x324,0x95a)
0x4ac84…4aca0 31 3a 3d 20 66 31 3b 20 73 61 76 65 77 32 3a 3d 20 77 32 3b 20 72 65 74 75 72 6e 3a ┆1:= f1; savew2:= w2; return:┆
0x4aca0…4acc0 3d 20 77 33 3b 0a 0a 20 20 20 20 20 20 77 33 3a 3d 20 30 3b 20 66 30 2f 2f 31 30 30 3b 0a 20 20 ┆= w3; w3:= 0; f0//100; ┆
0x4acc0…4ace0 20 20 20 20 63 75 72 72 63 6f 72 75 74 79 70 65 3a 3d 20 77 30 3b 0a 0a 20 20 20 20 20 20 69 66 ┆ currcorutype:= w0; if┆
0x4ace0…4acfc 20 77 30 3c 3e 6c 61 73 74 63 6f 72 75 74 79 70 65 20 74 68 65 6e 0a 20 20 20 20 20 ┆ w0<>lastcorutype then ┆
0x4acfc…4ad02 (0x324,0x95b)
0x4ad02…4ad20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3e 3d 32 20 74 68 65 6e 20 21 ┆ begin if w0>=2 then !┆
0x4ad20…4ad40 20 64 65 76 20 63 6f 72 6f 75 74 20 21 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 6c 61 73 ┆ dev corout ! if w0:=las┆
0x4ad40…4ad60 74 63 6f 72 75 74 79 70 65 3c 32 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 21 ┆tcorutype<2 then begin !┆
0x4ad60…4ad7a 20 74 72 61 6e 73 70 6f 72 74 20 63 6f 72 6f 75 74 69 6e 65 20 70 72 6f 63 65 ┆ transport coroutine proce┆
0x4ad7a…4ad80 (0x324,0x95c)
0x4ad80…4ada0 64 75 72 65 73 20 21 0a 20 20 20 20 20 20 20 20 20 20 21 67 65 74 20 35 3b 0a 20 20 20 20 20 20 ┆dures ! !get 5; ┆
0x4ada0…4adc0 20 20 20 20 69 66 20 77 30 3c 3e 31 20 74 68 65 6e 20 67 6f 74 6f 20 64 69 73 63 65 72 72 6f 72 ┆ if w0<>1 then goto discerror┆
0x4adc0…4ade0 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 63 61 73 65 20 77 31 3a 3d ┆; end; case w1:=┆
0x4ade0…4ae00 20 63 75 72 72 63 6f 72 75 74 79 70 65 2b 31 20 6f 66 0a 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ currcorutype+1 of ┆
0x4ae00…4ae06 (599,) (0x324,0x95d)
0x4ae06…4ae20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 21 67 65 74 20 33 3b ┆ begin !get 3;┆
0x4ae20…4ae40 20 21 20 61 70 6c 20 69 6e 74 65 72 66 61 63 65 20 21 0a 20 20 20 20 20 20 20 20 20 20 21 67 65 ┆ ! apl interface ! !ge┆
0x4ae40…4ae60 74 20 34 3b 20 21 20 6f 70 72 20 69 6e 74 65 72 66 61 63 65 20 21 0a 20 20 20 20 20 20 20 20 20 ┆t 4; ! opr interface ! ┆
0x4ae60…4ae7e 20 21 67 65 74 20 36 3b 20 21 20 70 72 69 6e 74 65 72 20 21 0a 20 20 20 20 20 20 20 20 20 ┆ !get 6; ! printer ! ┆
0x4ae7e…4ae84 (0x324,0x95e)
0x4ae84…4aea0 20 21 67 65 74 20 37 3b 20 21 20 70 75 6e 63 68 20 21 0a 20 20 20 20 20 20 20 20 20 ┆ !get 7; ! punch ! ┆
0x4aea0…4aec0 20 21 67 65 74 20 38 3b 20 21 20 72 65 61 64 65 72 20 21 0a 20 20 20 20 20 20 20 20 20 20 21 67 ┆ !get 8; ! reader ! !g┆
0x4aec0…4aee0 65 74 20 38 3b 20 21 20 63 61 72 64 72 2e 20 2c 20 75 73 65 73 20 72 65 61 64 65 72 20 63 6f 72 ┆et 8; ! cardr. , uses reader cor┆
0x4aee0…4aefc 6f 75 74 20 21 0a 20 20 20 20 20 20 20 20 20 20 21 67 65 74 20 39 3b 20 21 20 74 74 ┆out ! !get 9; ! tt┆
0x4aefc…4af02 (0x324,0x95f)
0x4af02…4af20 79 20 21 0a 20 20 20 20 20 20 20 20 20 20 21 67 65 74 20 31 30 3b 20 21 20 66 6f 72 6d 61 ┆y ! !get 10; ! forma┆
0x4af20…4af40 74 20 70 72 69 6e 74 65 72 20 21 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 21 74 65 73 74 20 31 ┆t printer ! end; !test 1┆
0x4af40…4af60 31 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3c 3e 31 20 74 68 65 6e 20 67 6f 74 6f 20 64 69 ┆1; if w0<>1 then goto di┆
0x4af60…4af7a 73 63 65 72 72 6f 72 3b 0a 20 20 20 20 20 20 20 20 6c 61 73 74 63 6f 72 75 74 ┆scerror; lastcorut┆
0x4af7a…4af80 (0x324,0x960)
0x4af80…4afa0 79 70 65 3a 3d 20 77 30 3a 3d 20 63 75 72 72 63 6f 72 75 74 79 70 65 3b 0a 20 20 20 20 20 20 65 ┆ype:= w0:= currcorutype; e┆
0x4afa0…4afc0 6e 64 3b 0a 0a 20 20 20 20 20 20 69 66 20 77 32 3a 3d 62 2e 63 75 72 72 65 6e 74 3e 30 20 74 68 ┆nd; if w2:=b.current>0 th┆
0x4afc0…4afe0 65 6e 0a 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 32 29 2e 63 5f 69 63 3d 30 20 74 68 65 6e ┆en if w0:=(w2).c_ic=0 then┆
0x4afe0…4b000 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 63 61 73 00 00 00 00 00 00 00 00 ┆ begin cas ┆
0x4b000…4b006 (600,) (0x324,0x961)
0x4b006…4b020 65 20 77 31 3a 3d 20 63 75 72 72 63 6f 72 75 74 79 70 65 2b 31 20 6f 66 0a 20 ┆e w1:= currcorutype+1 of ┆
0x4b020…4b040 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 61 70 70 6c 5f 69 6e 74 65 ┆ begin appl_inte┆
0x4b040…4b060 72 66 61 63 65 28 2e 77 33 2e 29 3b 0a 20 20 20 20 20 20 20 20 20 20 6f 70 65 72 61 74 6f 72 28 ┆rface(.w3.); operator(┆
0x4b060…4b07e 2e 77 33 2e 29 3b 0a 20 20 20 20 20 20 20 20 20 20 70 72 28 2e 77 33 2e 29 3b 0a 20 20 20 ┆.w3.); pr(.w3.); ┆
0x4b07e…4b084 (0x324,0x962)
0x4b084…4b0a0 20 20 20 20 20 20 20 70 63 28 2e 77 33 2e 29 3b 0a 20 20 20 20 20 20 20 20 20 20 72 ┆ pc(.w3.); r┆
0x4b0a0…4b0c0 64 28 2e 77 33 2e 29 3b 0a 20 20 20 20 20 20 20 20 20 20 72 64 28 2e 77 33 2e 29 3b 0a 20 20 20 ┆d(.w3.); rd(.w3.); ┆
0x4b0c0…4b0e0 20 20 20 20 20 20 20 74 77 28 2e 77 33 2e 29 3b 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e ┆ tw(.w3.); begin┆
0x4b0e0…4b0fc 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 32 29 2e 63 5f 6e ┆ if w0:=(w2).c_n┆
0x4b0fc…4b102 (0x324,0x963)
0x4b102…4b120 72 3c 37 35 31 20 74 68 65 6e 20 66 70 72 28 2e 77 33 2e 29 20 65 6c 73 65 0a 20 20 20 20 ┆r<751 then fpr(.w3.) else ┆
0x4b120…4b140 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 20 20 ┆ ┆
0x4b140…4b160 20 20 66 70 72 5f 69 6e 28 2e 77 33 2e 29 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 ┆ fpr_in(.w3.); end; ┆
0x4b160…4b17a 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 28 77 32 29 2e 63 ┆ end; (w2).c┆
0x4b17a…4b180 (0x324,0x964)
0x4b180…4b1a0 5f 69 63 3a 3d 20 77 33 3b 0a 21 74 65 73 74 20 31 32 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 0a ┆_ic:= w3; !test 12; end; ┆
0x4b1a0…4b1c0 0a 20 20 20 20 20 20 66 31 3a 3d 20 73 61 76 65 66 31 3b 0a 20 20 20 20 20 20 77 32 3a 3d 20 73 ┆ f1:= savef1; w2:= s┆
0x4b1c0…4b1e0 61 76 65 77 32 3b 0a 20 20 20 20 20 20 77 33 3a 3d 20 62 2e 63 75 72 72 65 6e 74 3b 0a 20 20 20 ┆avew2; w3:= b.current; ┆
0x4b1e0…4b200 20 20 20 63 61 6c 6c 20 77 30 20 72 65 74 75 72 6e 3b 0a 0a 0a 64 69 73 00 00 00 00 00 00 00 00 ┆ call w0 return; dis ┆
0x4b200…4b206 (601,) (0x324,0x965)
0x4b206…4b220 63 65 72 72 6f 72 3a 0a 20 20 20 20 20 20 73 74 61 74 75 73 3a 3d 20 77 30 3b ┆cerror: status:= w0;┆
0x4b220…4b240 0a 20 20 20 20 20 20 6d 6f 76 65 28 2e 77 33 2e 2c 77 30 3a 3d 38 2c 77 31 3a 3d 77 33 2c 77 32 ┆ move(.w3.,w0:=8,w1:=w3,w2┆
0x4b240…4b260 3a 3d 61 64 64 72 65 73 73 28 74 5f 70 72 6f 67 6e 61 6d 65 29 29 3b 0a 20 20 20 20 20 20 77 31 ┆:=address(t_progname)); w1┆
0x4b260…4b27e 3a 3d 20 61 64 64 72 65 73 73 28 6f 70 29 3b 0a 20 20 20 20 20 20 6f 70 6d 65 73 73 28 2e ┆:= address(op); opmess(.┆
0x4b27e…4b284 (0x324,0x966)
0x4b284…4b2a0 77 33 2e 2c 77 31 29 3b 0a 20 20 20 20 65 6e 64 3b 0a 20 20 65 6e 64 3b 20 21 20 67 ┆w3.,w1); end; end; ! g┆
0x4b2a0…4b2c0 65 74 20 62 72 61 6e 63 68 65 73 20 21 0a 0a 0a 0a 20 20 62 6f 64 79 20 6f 66 20 63 6f 70 79 61 ┆et branches ! body of copya┆
0x4b2c0…4b2e0 6e 73 77 65 72 0a 20 20 63 6f 6d 6d 65 6e 74 20 61 6e 73 77 65 72 20 6f 70 65 72 61 74 69 6f 6e ┆nswer comment answer operation┆
0x4b2e0…4b2fc 3a 0a 20 20 20 20 20 20 20 20 20 20 63 6f 70 79 20 64 61 74 61 20 61 72 65 61 20 69 ┆: copy data area i┆
0x4b2fc…4b302 (0x324,0x967)
0x4b302…4b320 6e 74 6f 20 73 65 6e 64 65 72 0a 20 20 20 20 20 20 20 20 20 20 73 65 6e 64 20 61 6e 73 77 ┆nto sender send answ┆
0x4b320…4b340 65 72 20 3b 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 69 6e 63 6f 64 65 0a 20 20 20 20 20 20 77 6f ┆er ; begin incode wo┆
0x4b340…4b360 72 64 20 72 65 73 77 30 2c 20 73 61 76 65 77 30 2c 73 61 76 65 77 32 3b 0a 20 20 20 20 20 20 72 ┆rd resw0, savew0,savew2; r┆
0x4b360…4b37a 65 66 20 72 65 74 75 72 6e 3b 0a 0a 20 20 20 20 20 20 21 20 67 65 6e 65 72 61 ┆ef return; ! genera┆
0x4b37a…4b380 (0x324,0x968)
0x4b380…4b3a0 6c 20 63 6f 70 79 20 70 61 72 61 6d 73 20 21 0a 20 20 20 20 20 20 77 6f 72 64 20 67 63 5f 66 75 ┆l copy params ! word gc_fu┆
0x4b3a0…4b3c0 6e 63 3a 3d 20 31 33 3b 20 21 20 66 72 6f 6d 20 6d 65 20 74 6f 20 73 65 6e 64 65 72 20 21 0a 20 ┆nc:= 13; ! from me to sender ! ┆
0x4b3c0…4b3e0 20 20 20 20 20 72 65 66 20 67 63 5f 66 69 72 73 74 2c 20 67 63 5f 6c 61 73 74 3b 0a 20 20 20 20 ┆ ref gc_first, gc_last; ┆
0x4b3e0…4b400 20 20 77 6f 72 64 20 67 63 5f 72 65 6c 3a 3d 20 30 3b 0a 20 20 20 20 62 00 00 00 00 00 00 00 00 ┆ word gc_rel:= 0; b ┆
0x4b400…4b406 (602,) (0x324,0x969)
0x4b406…4b420 65 67 69 6e 0a 20 20 20 20 20 20 73 61 76 65 77 30 3a 3d 20 77 30 3b 20 73 61 ┆egin savew0:= w0; sa┆
0x4b420…4b440 76 65 77 32 3a 3d 20 77 32 3b 20 72 65 74 75 72 6e 3a 3d 20 77 33 3b 0a 0a 20 20 20 20 20 20 67 ┆vew2:= w2; return:= w3; g┆
0x4b440…4b460 63 5f 66 69 72 73 74 3a 3d 20 77 30 3b 20 67 63 5f 6c 61 73 74 3a 3d 20 77 31 3b 0a 20 20 20 20 ┆c_first:= w0; gc_last:= w1; ┆
0x4b460…4b47e 20 20 77 31 3a 3d 20 61 64 64 72 65 73 73 28 67 63 5f 66 75 6e 63 29 3b 0a 20 20 20 20 20 ┆ w1:= address(gc_func); ┆
0x4b47e…4b484 (0x324,0x96a)
0x4b484…4b4a0 20 6d 6f 6e 69 74 6f 72 28 38 34 29 3b 20 21 20 67 65 6e 65 72 61 6c 20 63 6f 70 79 ┆ monitor(84); ! general copy┆
0x4b4a0…4b4c0 20 21 0a 20 20 20 20 20 20 72 65 73 77 30 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 69 66 20 77 30 ┆ ! resw0:= w0; if w0┆
0x4b4c0…4b4e0 3d 32 20 74 68 65 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 20 21 20 73 74 6f 70 70 65 64 20 21 0a ┆=2 then begin ! stopped ! ┆
0x4b4e0…4b4fc 20 20 20 20 20 20 20 20 62 2e 61 6e 73 5f 73 74 61 74 75 73 3a 3d 20 77 30 3a 3d 20 ┆ b.ans_status:= w0:= ┆
0x4b4fc…4b502 (0x324,0x96b)
0x4b502…4b520 38 27 30 30 30 30 30 34 30 30 3b 0a 20 20 20 20 20 20 20 20 77 30 3a 3d 20 31 3b 0a 20 20 ┆8'00000400; w0:= 1; ┆
0x4b520…4b540 20 20 20 20 65 6e 64 0a 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 69 66 20 77 30 3d 33 ┆ end else if w0=3┆
0x4b540…4b560 20 74 68 65 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 20 21 20 75 6e 69 6e 74 65 6c 2c 20 70 61 72 ┆ then begin ! unintel, par┆
0x4b560…4b57a 61 6d 20 65 72 72 6f 72 20 21 0a 20 20 20 20 20 20 65 6e 64 0a 20 20 20 20 20 ┆am error ! end ┆
0x4b57a…4b580 (0x324,0x96c)
0x4b580…4b5a0 20 65 6c 73 65 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 62 2e 61 6e 73 5f ┆ else begin b.ans_┆
0x4b5a0…4b5c0 73 74 61 74 75 73 3a 3d 20 77 30 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 62 2e 61 6e 73 5f 62 ┆status:= w0:= 0; b.ans_b┆
0x4b5c0…4b5e0 79 74 65 73 3a 3d 20 77 31 3b 0a 20 20 20 20 20 20 20 20 77 30 3a 3d 20 77 31 3b 0a 20 20 20 20 ┆ytes:= w1; w0:= w1; ┆
0x4b5e0…4b600 20 20 20 20 62 2e 61 6e 73 5f 63 68 61 72 73 3a 3d 20 77 31 20 61 73 68 00 00 00 00 00 00 00 00 ┆ b.ans_chars:= w1 ash ┆
0x4b600…4b606 (603,) (0x324,0x96d)
0x4b606…4b620 69 66 74 20 2d 31 20 2b 20 77 30 3b 0a 20 20 20 20 20 20 20 20 74 65 73 74 6f ┆ift -1 + w0; testo┆
0x4b620…4b640 75 74 28 2e 77 33 2e 2c 77 30 2c 77 31 3a 3d 73 61 76 65 77 30 2c 77 32 3a 3d 36 36 29 3b 0a 20 ┆ut(.w3.,w0,w1:=savew0,w2:=66); ┆
0x4b640…4b660 20 20 20 20 20 20 20 77 30 3a 3d 20 31 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 ┆ w0:= 1; end; ┆
0x4b660…4b67e 77 31 3a 3d 20 61 64 64 72 65 73 73 28 62 2e 61 6e 73 5f 73 74 61 74 75 73 29 3b 0a 20 20 ┆w1:= address(b.ans_status); ┆
0x4b67e…4b684 (0x324,0x96e)
0x4b684…4b6a0 20 20 20 20 77 32 3a 3d 20 73 61 76 65 77 32 3b 0a 20 20 20 20 20 20 6d 6f 6e 69 74 ┆ w2:= savew2; monit┆
0x4b6a0…4b6c0 6f 72 28 32 32 29 3b 20 21 20 73 65 6e 64 20 61 6e 73 77 65 72 20 21 0a 20 20 20 20 20 20 74 65 ┆or(22); ! send answer ! te┆
0x4b6c0…4b6e0 73 74 6f 75 74 28 2e 77 33 2e 2c 77 30 3a 3d 36 2c 77 31 2c 77 32 3a 3d 36 31 29 3b 0a 20 20 20 ┆stout(.w3.,w0:=6,w1,w2:=61); ┆
0x4b6e0…4b6fc 20 20 20 77 30 3a 3d 20 72 65 73 77 30 3b 20 77 31 3a 3d 20 62 2e 61 6e 73 5f 62 79 ┆ w0:= resw0; w1:= b.ans_by┆
0x4b6fc…4b702 (0x324,0x96f)
0x4b702…4b720 74 65 73 3b 0a 20 20 20 20 20 20 77 32 3a 3d 20 73 61 76 65 77 32 3b 20 77 33 3a 3d 20 62 ┆tes; w2:= savew2; w3:= b┆
0x4b720…4b740 2e 63 75 72 72 65 6e 74 3b 0a 20 20 20 20 20 20 63 61 6c 6c 20 77 30 20 72 65 74 75 72 6e 3b 0a ┆.current; call w0 return; ┆
0x4b740…4b760 20 20 20 20 65 6e 64 3b 0a 20 20 65 6e 64 3b 20 21 20 63 6f 70 79 20 61 6e 73 77 65 72 20 21 0a ┆ end; end; ! copy answer ! ┆
0x4b760…4b77a 0a 0a 0a 20 20 62 6f 64 79 20 6f 66 20 6f 75 74 74 69 6d 65 0a 20 20 62 65 67 ┆ body of outtime beg┆
0x4b77a…4b780 (0x324,0x970)
0x4b780…4b7a0 69 6e 0a 20 20 20 20 72 65 63 6f 72 64 20 74 69 6d 65 74 65 78 74 28 77 6f 72 64 20 68 6f 75 72 ┆in record timetext(word hour┆
0x4b7a0…4b7c0 74 78 74 2c 6d 69 6e 75 74 65 74 78 74 29 3b 0a 20 20 20 20 69 6e 63 6f 64 65 0a 20 20 20 20 20 ┆txt,minutetxt); incode ┆
0x4b7c0…4b7e0 20 77 6f 72 64 20 64 61 79 73 69 7a 65 3a 3d 31 36 38 37 35 30 30 2c 68 6f 75 72 73 69 7a 65 3a ┆ word daysize:=1687500,hoursize:┆
0x4b7e0…4b800 3d 37 30 33 31 33 2c 6d 69 6e 75 74 65 73 69 7a 65 3a 3d 31 31 37 32 3b 00 00 00 00 00 00 00 00 ┆=70313,minutesize:=1172; ┆
0x4b800…4b806 (604,) (0x324,0x971)
0x4b806…4b820 0a 20 20 20 20 20 20 72 65 66 20 72 65 74 75 72 6e 2c 62 75 66 72 65 66 3b 0a ┆ ref return,bufref; ┆
0x4b820…4b840 20 20 20 20 20 20 64 6f 75 62 6c 65 20 73 61 76 65 66 31 3b 0a 20 20 20 20 62 65 67 69 6e 0a 20 ┆ double savef1; begin ┆
0x4b840…4b860 20 20 20 20 20 73 61 76 65 66 31 3a 3d 66 31 3b 0a 20 20 20 20 20 20 62 75 66 72 65 66 3a 3d 77 ┆ savef1:=f1; bufref:=w┆
0x4b860…4b87e 32 3b 0a 20 20 20 20 20 20 72 65 74 75 72 6e 3a 3d 77 33 3b 0a 20 20 20 20 20 20 66 33 3a ┆2; return:=w3; f3:┆
0x4b87e…4b884 (0x324,0x972)
0x4b884…4b8a0 3d 28 77 33 3a 3d 31 30 38 29 2e 64 6f 75 62 6c 65 20 6c 73 68 69 66 74 20 2d 39 20 ┆=(w3:=108).double lshift -9 ┆
0x4b8a0…4b8c0 2f 2f 20 64 61 79 73 69 7a 65 3b 20 21 20 77 33 3a 3d 64 61 79 6e 6f 20 21 0a 20 20 20 20 20 20 ┆// daysize; ! w3:=dayno ! ┆
0x4b8c0…4b8e0 66 31 20 6c 73 68 69 66 74 20 2d 31 30 30 3b 20 21 20 30 20 21 0a 20 20 20 20 20 20 66 32 20 2f ┆f1 lshift -100; ! 0 ! f2 /┆
0x4b8e0…4b8fc 2f 20 68 6f 75 72 73 69 7a 65 3b 20 21 20 77 32 3a 3d 68 6f 75 72 20 21 0a 20 20 20 ┆/ hoursize; ! w2:=hour ! ┆
0x4b8fc…4b902 (0x324,0x973)
0x4b902…4b920 20 20 20 66 31 20 2f 2f 20 6d 69 6e 75 74 65 73 69 7a 65 3b 20 21 20 77 31 3a 3d 6d 69 6e ┆ f1 // minutesize; ! w1:=min┆
0x4b920…4b940 75 74 65 20 21 0a 20 20 20 20 20 20 77 30 3a 3d 30 3b 0a 20 20 20 20 20 20 66 31 20 2f 2f 20 31 ┆ute ! w0:=0; f1 // 1┆
0x4b940…4b960 30 3b 0a 20 20 20 20 20 20 62 75 66 72 65 66 2e 6d 69 6e 75 74 65 74 78 74 3a 3d 77 31 20 2b 20 ┆0; bufref.minutetxt:=w1 + ┆
0x4b960…4b97a 34 38 20 6c 73 68 69 66 74 20 38 20 2b 20 77 30 20 2b 20 34 38 20 6c 73 68 69 ┆48 lshift 8 + w0 + 48 lshi┆
0x4b97a…4b980 (0x324,0x974)
0x4b980…4b9a0 66 74 20 38 20 2b 20 33 32 3b 0a 20 20 20 20 20 20 77 31 3a 3d 30 3b 0a 20 20 20 20 20 20 66 32 ┆ft 8 + 32; w1:=0; f2┆
0x4b9a0…4b9c0 20 2f 2f 20 31 30 3b 0a 20 20 20 20 20 20 62 75 66 72 65 66 2e 68 6f 75 72 74 78 74 3a 3d 77 32 ┆ // 10; bufref.hourtxt:=w2┆
0x4b9c0…4b9e0 20 2b 20 34 38 20 6c 73 68 69 66 74 20 38 20 2b 20 77 31 20 2b 20 34 38 20 6c 73 68 69 66 74 20 ┆ + 48 lshift 8 + w1 + 48 lshift ┆
0x4b9e0…4ba00 38 20 2b 20 34 36 3b 0a 20 20 20 20 20 20 66 31 3a 3d 73 61 76 65 66 31 00 00 00 00 00 00 00 00 ┆8 + 46; f1:=savef1 ┆
0x4ba00…4ba06 (605,) (0x324,0x975)
0x4ba06…4ba20 3b 0a 20 20 20 20 20 20 77 32 3a 3d 62 75 66 72 65 66 3b 0a 20 20 20 20 20 20 ┆; w2:=bufref; ┆
0x4ba20…4ba40 77 33 3a 3d 72 65 74 75 72 6e 3b 0a 20 20 20 20 65 6e 64 3b 0a 20 20 65 6e 64 3b 0a 0a 0a 20 20 ┆w3:=return; end; end; ┆
0x4ba40…4ba60 62 6f 64 79 20 6f 66 20 74 65 73 74 6f 75 74 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 6c 61 62 65 ┆body of testout begin labe┆
0x4ba60…4ba7e 6c 20 63 6c 6f 73 65 3b 0a 20 20 20 20 72 65 63 6f 72 64 20 64 75 6d 70 0a 20 20 20 20 20 ┆l close; record dump ┆
0x4ba7e…4ba84 (0x324,0x976)
0x4ba84…4baa0 20 20 20 20 20 20 20 20 28 77 6f 72 64 20 72 65 67 30 2c 72 65 67 31 2c 72 65 67 32 ┆ (word reg0,reg1,reg2┆
0x4baa0…4bac0 2c 72 65 67 33 2c 65 78 72 65 67 2c 69 6e 73 74 72 2c 63 61 75 73 65 2c 73 62 72 65 67 29 3b 0a ┆,reg3,exreg,instr,cause,sbreg); ┆
0x4bac0…4bae0 20 20 20 20 72 65 63 6f 72 64 20 74 65 73 74 68 65 61 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ record testhead ┆
0x4bae0…4bafc 20 28 62 79 74 65 20 72 65 63 6c 65 6e 67 74 68 2c 72 65 63 6b 69 6e 64 3b 0a 20 20 ┆ (byte reclength,reckind; ┆
0x4bafc…4bb02 (0x324,0x977)
0x4bb02…4bb20 20 20 20 20 20 20 20 20 20 20 20 20 77 6f 72 64 20 74 69 6d 65 2c 74 65 73 74 72 65 66 29 ┆ word time,testref)┆
0x4bb20…4bb40 3b 0a 20 20 20 20 69 6e 63 6f 64 65 0a 20 20 20 20 20 20 77 6f 72 64 20 62 75 66 72 65 6c 3a 3d ┆; incode word bufrel:=┆
0x4bb40…4bb60 30 3b 0a 20 20 20 20 20 20 72 65 66 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 20 20 64 6f 75 62 6c ┆0; ref return; doubl┆
0x4bb60…4bb7a 65 20 73 61 76 65 66 31 3b 0a 20 20 20 20 20 20 61 72 72 61 79 20 28 31 3a 38 ┆e savef1; array (1:8┆
0x4bb7a…4bb80 (0x324,0x978)
0x4bb80…4bba0 29 20 74 65 73 74 61 6e 73 77 20 6f 66 20 77 6f 72 64 3b 0a 20 20 20 20 20 20 77 6f 72 64 20 73 ┆) testansw of word; word s┆
0x4bba0…4bbc0 61 76 65 77 32 3b 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 73 61 76 65 66 31 3a 3d 66 ┆avew2; begin savef1:=f┆
0x4bbc0…4bbe0 31 3b 0a 20 20 20 20 20 20 69 66 20 77 30 3e 35 30 30 20 74 68 65 6e 20 77 30 3a 3d 20 35 30 30 ┆1; if w0>500 then w0:= 500┆
0x4bbe0…4bc00 3b 0a 20 20 20 20 20 20 73 61 76 65 77 32 3a 3d 77 32 3b 0a 20 20 20 20 00 00 00 00 00 00 00 00 ┆; savew2:=w2; ┆
0x4bc00…4bc06 (606,) (0x324,0x979)
0x4bc06…4bc20 20 20 72 65 74 75 72 6e 3a 3d 77 33 3b 0a 20 20 20 20 20 20 69 66 20 77 33 3a ┆ return:=w3; if w3:┆
0x4bc20…4bc40 3d 62 2e 74 65 73 74 6d 66 73 74 20 3c 20 62 2e 74 65 73 74 6d 6c 61 73 74 20 74 68 65 6e 0a 20 ┆=b.testmfst < b.testmlast then ┆
0x4bc40…4bc60 20 20 20 20 20 62 65 67 69 6e 20 20 21 20 69 66 20 74 65 73 74 62 75 66 66 65 72 20 65 78 69 73 ┆ begin ! if testbuffer exis┆
0x4bc60…4bc7e 74 73 20 74 68 65 6e 20 67 65 6e 65 72 61 74 65 20 74 65 73 74 6f 75 74 70 75 74 20 21 0a ┆ts then generate testoutput ! ┆
0x4bc7e…4bc84 (0x324,0x97a)
0x4bc84…4bca0 20 20 20 20 20 20 20 20 69 66 20 77 30 2b 62 75 66 72 65 6c 2b 28 21 6c 65 6e 67 74 ┆ if w0+bufrel+(!lengt┆
0x4bca0…4bcc0 68 28 74 65 73 74 68 65 61 64 29 2b 32 29 20 3e 20 35 31 30 20 74 68 65 6e 0a 20 20 20 20 20 20 ┆h(testhead)+2) > 510 then ┆
0x4bcc0…4bce0 20 20 62 65 67 69 6e 20 20 21 20 6e 6f 20 72 6f 6f 6d 20 66 6f 72 20 6e 65 78 74 20 72 65 63 6f ┆ begin ! no room for next reco┆
0x4bce0…4bcfc 72 64 20 73 6f 20 63 68 61 6e 67 65 20 62 75 66 66 65 72 20 21 0a 20 20 20 20 20 20 ┆rd so change buffer ! ┆
0x4bcfc…4bd02 (0x324,0x97b)
0x4bd02…4bd20 20 20 20 20 77 33 2b 62 75 66 72 65 6c 3b 0a 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e ┆ w3+bufrel; (w3).┆
0x4bd20…4bd40 77 6f 72 64 3a 3d 77 30 3a 3d 2d 31 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 32 3a 3d 20 ┆word:=w0:=-1; if w2:= ┆
0x4bd40…4bd60 62 2e 74 65 73 74 62 75 66 3c 3e 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 ┆b.testbuf<>0 then begi┆
0x4bd60…4bd7a 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 2e 74 65 73 74 62 75 66 3a 3d 20 ┆n b.testbuf:= ┆
0x4bd7a…4bd80 (0x324,0x97c)
0x4bd80…4bda0 77 31 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 2e 62 61 73 65 5f 65 76 65 6e 74 ┆w1:= 0; b.base_event┆
0x4bda0…4bdc0 3a 3d 20 77 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 74 65 73 74 61 6e 73 77 28 77 31 3a 3d ┆:= w1; testansw(w1:=┆
0x4bdc0…4bde0 31 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 31 38 29 3b 20 20 21 20 ┆1); monitor(18); ! ┆
0x4bde0…4be00 20 77 61 69 74 20 61 6e 73 77 65 72 20 20 21 0a 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ wait answer ! ┆
0x4be00…4be06 (607,) (0x324,0x97d)
0x4be06…4be20 20 20 20 20 69 66 20 77 32 3a 3d 31 20 6c 73 68 69 66 74 20 77 30 20 6f 72 20 ┆ if w2:=1 lshift w0 or ┆
0x4be20…4be40 28 77 31 29 2e 77 6f 72 64 20 3c 3e 20 32 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆(w1).word <> 2 then ┆
0x4be40…4be60 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 2e 74 65 73 74 6d 6c 61 73 74 3a ┆begin b.testmlast:┆
0x4be60…4be7e 3d 77 31 3a 3d 62 2e 74 65 73 74 6d 66 73 74 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆=w1:=b.testmfst; ┆
0x4be7e…4be84 (0x324,0x97e)
0x4be84…4bea0 20 77 31 3a 3d 20 61 64 64 72 65 73 73 28 62 2e 74 73 74 63 6f 6d 6f 70 29 3b 0a 20 ┆ w1:= address(b.tstcomop); ┆
0x4bea0…4bec0 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 6c 6f 67 73 74 61 74 75 73 3a 3d 77 32 3b ┆ (w1).logstatus:=w2;┆
0x4bec0…4bee0 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 70 6d 65 73 73 28 2e 77 33 2e 2c 77 31 29 3b 0a ┆ opmess(.w3.,w1); ┆
0x4bee0…4befc 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 65 ┆ end; e┆
0x4befc…4bf02 (0x324,0x97f)
0x4bf02…4bf20 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 20 61 64 64 72 65 73 73 28 62 2e 74 ┆nd; w1:= address(b.t┆
0x4bf20…4bf40 65 73 74 6d 6f 70 29 3b 0a 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 20 61 64 64 72 65 73 73 28 ┆estmop); w3:= address(┆
0x4bf40…4bf60 62 2e 74 65 73 74 6e 61 6d 65 29 3b 0a 20 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 31 ┆b.testname); monitor(1┆
0x4bf60…4bf7a 36 29 3b 20 21 20 73 65 6e 64 20 6d 65 73 73 61 67 65 20 21 0a 20 20 20 20 20 ┆6); ! send message ! ┆
0x4bf7a…4bf80 (0x324,0x980)
0x4bf80…4bfa0 20 20 20 20 20 62 2e 74 65 73 74 62 75 66 3a 3d 20 77 32 3b 20 21 20 73 61 76 65 20 62 75 66 66 ┆ b.testbuf:= w2; ! save buff┆
0x4bfa0…4bfc0 65 72 20 61 64 64 72 65 73 73 20 21 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 31 3a 3d 62 2e ┆er address ! if w1:=b.┆
0x4bfc0…4bfe0 74 65 73 74 73 65 67 6d 2b 31 20 3d 20 62 2e 6d 61 78 74 65 73 74 73 65 67 6d 20 74 68 65 6e 20 ┆testsegm+1 = b.maxtestsegm then ┆
0x4bfe0…4c000 77 31 3a 3d 31 3b 0a 20 20 20 20 20 20 20 20 20 20 62 2e 74 65 73 74 73 00 00 00 00 00 00 00 00 ┆w1:=1; b.tests ┆
0x4c000…4c006 (608,) (0x324,0x981)
0x4c006…4c020 65 67 6d 3a 3d 77 31 3b 0a 20 20 20 20 20 20 20 20 20 20 62 75 66 72 65 6c 3a ┆egm:=w1; bufrel:┆
0x4c020…4c040 3d 77 30 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 20 62 2e 74 65 73 74 6d 66 73 ┆=w0:=0; w1:= b.testmfs┆
0x4c040…4c060 74 3b 77 31 2b 35 31 32 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 31 3e 3d 62 2e 74 65 73 ┆t;w1+512; if w1>=b.tes┆
0x4c060…4c07e 74 6d 74 6f 70 20 74 68 65 6e 20 77 31 2d 31 30 32 34 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆tmtop then w1-1024; ┆
0x4c07e…4c084 (0x324,0x982)
0x4c084…4c0a0 62 2e 74 65 73 74 6d 66 73 74 3a 3d 20 77 31 3b 0a 20 20 20 20 20 20 20 20 20 20 77 ┆b.testmfst:= w1; w┆
0x4c0a0…4c0c0 31 2b 35 31 30 3b 62 2e 74 65 73 74 6d 6c 61 73 74 3a 3d 20 77 31 3b 0a 20 20 20 20 20 20 20 20 ┆1+510;b.testmlast:= w1; ┆
0x4c0c0…4c0e0 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 66 31 3a 3d 73 61 76 65 66 31 3b 0a 20 20 20 20 20 20 20 ┆end; f1:=savef1; ┆
0x4c0e0…4c0fc 20 69 66 20 77 30 3e 35 30 30 20 74 68 65 6e 20 77 30 3a 3d 20 35 30 30 3b 0a 20 20 ┆ if w0>500 then w0:= 500; ┆
0x4c0fc…4c102 (0x324,0x983)
0x4c102…4c120 20 20 20 20 20 20 77 32 3a 3d 73 61 76 65 77 32 3b 0a 20 20 20 20 20 20 20 20 77 33 3a 3d ┆ w2:=savew2; w3:=┆
0x4c120…4c140 62 2e 74 65 73 74 6d 66 73 74 2b 62 75 66 72 65 6c 3b 0a 20 20 20 20 20 20 20 20 28 77 33 29 2e ┆b.testmfst+bufrel; (w3).┆
0x4c140…4c160 72 65 63 6c 65 6e 67 74 68 3a 3d 77 30 2b 21 6c 65 6e 67 74 68 28 74 65 73 74 68 65 61 64 29 3b ┆reclength:=w0+!length(testhead);┆
0x4c160…4c17a 0a 20 20 20 20 20 20 20 20 28 77 33 29 2e 72 65 63 6b 69 6e 64 3a 3d 77 32 3b ┆ (w3).reckind:=w2;┆
0x4c17a…4c180 (0x324,0x984)
0x4c180…4c1a0 0a 20 20 20 20 20 20 20 20 62 75 66 72 65 6c 3a 3d 20 77 31 3a 3d 20 62 75 66 72 65 6c 2b 77 30 ┆ bufrel:= w1:= bufrel+w0┆
0x4c1a0…4c1c0 3b 0a 20 20 20 20 20 20 20 20 77 31 3a 3d 20 62 2e 63 75 72 72 65 6e 74 3b 0a 20 20 20 20 20 20 ┆; w1:= b.current; ┆
0x4c1c0…4c1e0 20 20 69 66 20 77 31 3c 3e 30 20 74 68 65 6e 20 77 31 3a 3d 28 77 31 29 2e 63 5f 6e 72 3b 0a 20 ┆ if w1<>0 then w1:=(w1).c_nr; ┆
0x4c1e0…4c200 20 20 20 20 20 20 20 28 77 33 29 2e 74 65 73 74 72 65 66 3a 3d 77 31 3b 00 00 00 00 00 00 00 00 ┆ (w3).testref:=w1; ┆
0x4c200…4c206 (609,) (0x324,0x985)
0x4c206…4c220 0a 20 20 20 20 20 20 20 20 77 31 3a 3d 31 30 38 3b 0a 20 20 20 20 20 20 20 20 ┆ w1:=108; ┆
0x4c220…4c240 66 31 3a 3d 28 77 31 29 2e 64 6f 75 62 6c 65 2d 62 2e 73 74 61 72 74 74 69 6d 65 20 6c 73 68 69 ┆f1:=(w1).double-b.starttime lshi┆
0x4c240…4c260 66 74 20 2d 37 3b 0a 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 69 6d 65 3a 3d 77 31 3b 0a 20 20 ┆ft -7; (w3).time:=w1; ┆
0x4c260…4c27e 20 20 20 20 20 20 66 31 3a 3d 73 61 76 65 66 31 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 ┆ f1:=savef1; if w┆
0x4c27e…4c284 (0x324,0x986)
0x4c284…4c2a0 30 3e 35 30 30 20 74 68 65 6e 20 77 30 3a 3d 20 35 30 30 3b 0a 20 20 20 20 20 20 20 ┆0>500 then w0:= 500; ┆
0x4c2a0…4c2c0 20 6d 6f 76 65 28 2e 77 33 2e 2c 77 30 2c 77 31 2c 77 32 3a 3d 77 33 2b 21 6c 65 6e 67 74 68 28 ┆ move(.w3.,w0,w1,w2:=w3+!length(┆
0x4c2c0…4c2e0 74 65 73 74 68 65 61 64 29 29 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 77 32 3a ┆testhead)); end; w2:┆
0x4c2e0…4c2fc 3d 73 61 76 65 77 32 3b 0a 20 20 20 20 20 20 69 66 20 77 32 3d 31 35 20 74 68 65 6e ┆=savew2; if w2=15 then┆
0x4c2fc…4c302 (0x324,0x987)
0x4c302…4c320 0a 20 20 20 20 20 20 62 65 67 69 6e 20 20 21 20 20 69 6e 74 65 72 6e 61 6c 20 69 6e 74 65 ┆ begin ! internal inte┆
0x4c320…4c340 72 72 75 70 74 20 20 21 0a 20 20 20 20 20 20 20 20 77 33 3a 3d 28 77 31 29 2e 69 6e 73 74 72 2d ┆rrupt ! w3:=(w1).instr-┆
0x4c340…4c360 32 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 33 29 2e 77 6f 72 64 20 6c 73 68 69 ┆2; if w0:=(w3).word lshi┆
0x4c360…4c37a 66 74 20 2d 31 38 20 3d 20 35 31 20 20 21 20 6b 65 79 20 73 74 6f 72 65 20 21 ┆ft -18 = 51 ! key store !┆
0x4c37a…4c380 (0x324,0x988)
0x4c380…4c3a0 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 20 21 20 72 65 65 73 74 61 62 6c 69 ┆ then begin ! reestabli┆
0x4c3a0…4c3c0 73 68 20 72 65 67 69 73 74 65 72 73 20 61 6e 64 20 63 6f 6e 74 69 6e 75 65 20 21 0a 20 20 20 20 ┆sh registers and continue ! ┆
0x4c3c0…4c3e0 20 20 20 20 20 20 77 30 3a 3d 28 77 31 29 2e 69 6e 73 74 72 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆ w0:=(w1).instr; ┆
0x4c3e0…4c400 72 65 74 75 72 6e 3a 3d 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 77 30 00 00 00 00 00 00 00 00 ┆return:=w0; w0 ┆
0x4c400…4c406 (610,) (0x324,0x989)
0x4c406…4c420 3a 3d 28 77 31 29 2e 72 65 67 30 3b 0a 20 20 20 20 20 20 20 20 20 20 77 32 3a ┆:=(w1).reg0; w2:┆
0x4c420…4c440 3d 28 77 31 29 2e 72 65 67 32 3b 0a 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 28 77 31 29 2e 72 ┆=(w1).reg2; w3:=(w1).r┆
0x4c440…4c460 65 67 33 3b 0a 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 28 77 31 29 2e 72 65 67 31 3b 0a 20 20 ┆eg3; w1:=(w1).reg1; ┆
0x4c460…4c47e 20 20 20 20 20 20 20 20 63 61 6c 6c 20 77 30 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 20 20 ┆ call w0 return; ┆
0x4c47e…4c484 (0x324,0x98a)
0x4c484…4c4a0 20 20 65 6e 64 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 20 21 20 ┆ end else begin ! ┆
0x4c4a0…4c4c0 6f 75 74 70 75 74 20 6c 61 73 74 20 73 65 67 6d 65 6e 74 20 61 6e 64 20 68 61 6c 74 20 21 0a 63 ┆output last segment and halt ! c┆
0x4c4c0…4c4e0 6c 6f 73 65 3a 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 32 3a 3d 20 62 2e 74 65 73 74 62 75 ┆lose: if w2:= b.testbu┆
0x4c4e0…4c4fc 66 3c 3e 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 ┆f<>0 then begin ┆
0x4c4fc…4c502 (0x324,0x98b)
0x4c502…4c520 20 20 20 20 20 20 20 20 20 20 74 65 73 74 61 6e 73 77 28 77 31 3a 3d 31 29 3b 0a 20 20 20 ┆ testansw(w1:=1); ┆
0x4c520…4c540 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 31 38 29 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆ monitor(18); ┆
0x4c540…4c560 20 20 62 2e 74 65 73 74 62 75 66 3a 3d 20 77 32 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆ b.testbuf:= w2:= 0; ┆
0x4c560…4c57a 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 28 77 33 3a 3d 62 2e 74 65 73 74 ┆end; (w3:=b.test┆
0x4c57a…4c580 (0x324,0x98c)
0x4c580…4c5a0 6d 66 73 74 2b 62 75 66 72 65 6c 29 2e 77 6f 72 64 3a 3d 77 30 3a 3d 2d 32 3b 0a 20 20 20 20 20 ┆mfst+bufrel).word:=w0:=-2; ┆
0x4c5a0…4c5c0 20 20 20 20 20 77 33 3a 3d 61 64 64 72 65 73 73 28 62 2e 74 65 73 74 6e 61 6d 65 29 3b 0a 20 20 ┆ w3:=address(b.testname); ┆
0x4c5c0…4c5e0 20 20 20 20 20 20 20 20 77 31 3a 3d 61 64 64 72 65 73 73 28 62 2e 74 65 73 74 6d 6f 70 29 3b 0a ┆ w1:=address(b.testmop); ┆
0x4c5e0…4c600 20 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 31 36 29 3b 20 20 00 00 00 00 00 00 00 00 ┆ monitor(16); ┆
0x4c600…4c606 (611,) (0x324,0x98d)
0x4c606…4c620 21 20 73 65 6e 64 20 6d 65 73 73 61 67 65 20 21 0a 20 20 20 20 20 20 20 20 20 ┆! send message ! ┆
0x4c620…4c640 20 6d 6f 6e 69 74 6f 72 28 31 38 29 3b 20 20 21 20 77 61 69 74 20 61 6e 73 77 65 72 20 21 0a 20 ┆ monitor(18); ! wait answer ! ┆
0x4c640…4c660 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 31 30 29 3b 20 20 21 20 72 65 6c 65 61 73 65 ┆ monitor(10); ! release┆
0x4c660…4c67e 20 70 72 6f 63 65 73 73 20 21 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 ┆ process ! end; ┆
0x4c67e…4c684 (0x324,0x98e)
0x4c684…4c6a0 65 6e 64 20 65 6c 73 65 20 69 66 20 77 32 20 3d 20 36 34 20 74 68 65 6e 20 67 6f 74 ┆end else if w2 = 64 then got┆
0x4c6a0…4c6c0 6f 20 63 6c 6f 73 65 20 65 6c 73 65 3b 0a 20 20 20 20 20 20 66 31 3a 3d 73 61 76 65 66 31 3b 0a ┆o close else; f1:=savef1; ┆
0x4c6c0…4c6e0 20 20 20 20 20 20 77 32 3a 3d 73 61 76 65 77 32 3b 0a 20 20 20 20 20 20 77 33 3a 3d 62 2e 63 75 ┆ w2:=savew2; w3:=b.cu┆
0x4c6e0…4c6fc 72 72 65 6e 74 3b 0a 20 20 20 20 20 20 63 61 6c 6c 20 77 30 20 72 65 74 75 72 6e 3b ┆rrent; call w0 return;┆
0x4c6fc…4c702 (0x324,0x98f)
0x4c702…4c720 0a 20 20 20 20 65 6e 64 3b 0a 20 20 65 6e 64 3b 20 20 21 20 74 65 73 74 6f 75 74 20 21 0a ┆ end; end; ! testout ! ┆
0x4c720…4c740 0a 0a 0a 20 20 62 6f 64 79 20 6f 66 20 70 75 73 68 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 69 6e ┆ body of push begin in┆
0x4c740…4c760 63 6f 64 65 0a 20 20 20 20 20 20 72 65 66 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 20 20 64 6f 75 ┆code ref return; dou┆
0x4c760…4c77a 62 6c 65 20 73 61 76 65 66 32 3b 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 ┆ble savef2; begin ┆
0x4c77a…4c780 (0x324,0x990)
0x4c780…4c7a0 20 20 72 65 74 75 72 6e 3a 3d 20 77 33 3b 0a 20 20 20 20 20 20 73 61 76 65 66 32 3a 3d 20 66 32 ┆ return:= w3; savef2:= f2┆
0x4c7a0…4c7c0 3b 0a 0a 20 20 20 20 20 20 77 33 3a 3d 62 2e 63 75 72 72 65 6e 74 3b 0a 20 20 20 20 20 20 77 31 ┆; w3:=b.current; w1┆
0x4c7c0…4c7e0 3a 3d 61 64 64 72 65 73 73 28 28 77 33 29 2e 63 5f 73 74 61 63 6b 29 3b 0a 20 20 20 20 20 20 77 ┆:=address((w3).c_stack); w┆
0x4c7e0…4c800 32 3a 3d 28 77 31 29 2e 77 6f 72 64 2b 32 3b 0a 20 20 20 20 20 20 28 77 00 00 00 00 00 00 00 00 ┆2:=(w1).word+2; (w ┆
0x4c800…4c806 (612,) (0x324,0x991)
0x4c806…4c820 32 29 2e 77 6f 72 64 3a 3d 77 30 3b 0a 20 20 20 20 20 20 28 77 31 29 2e 77 6f ┆2).word:=w0; (w1).wo┆
0x4c820…4c840 72 64 3a 3d 77 32 3b 0a 20 20 20 20 20 20 66 32 3a 3d 73 61 76 65 66 32 3b 0a 20 20 20 20 20 20 ┆rd:=w2; f2:=savef2; ┆
0x4c840…4c860 63 61 6c 6c 20 77 30 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 65 6e 64 3b 0a 20 20 65 6e 64 3b 20 ┆call w0 return; end; end; ┆
0x4c860…4c87e 21 20 65 6e 64 20 70 75 73 68 20 21 0a 0a 20 20 62 6f 64 79 20 6f 66 20 70 6f 70 0a 20 20 ┆! end push ! body of pop ┆
0x4c87e…4c884 (0x324,0x992)
0x4c884…4c8a0 62 65 67 69 6e 0a 20 20 20 20 69 6e 63 6f 64 65 0a 20 20 20 20 20 20 72 65 66 20 72 ┆begin incode ref r┆
0x4c8a0…4c8c0 65 74 75 72 6e 3b 0a 20 20 20 20 20 20 64 6f 75 62 6c 65 20 73 61 76 65 66 32 3b 0a 20 20 20 20 ┆eturn; double savef2; ┆
0x4c8c0…4c8e0 62 65 67 69 6e 0a 20 20 20 20 20 20 72 65 74 75 72 6e 3a 3d 77 33 3b 0a 20 20 20 20 20 20 73 61 ┆begin return:=w3; sa┆
0x4c8e0…4c8fc 76 65 66 32 3a 3d 66 32 3b 0a 20 20 20 20 20 20 0a 20 20 20 20 20 20 77 33 3a 3d 62 ┆vef2:=f2; w3:=b┆
0x4c8fc…4c902 (0x324,0x993)
0x4c902…4c920 2e 63 75 72 72 65 6e 74 3b 0a 20 20 20 20 20 20 77 31 3a 3d 61 64 64 72 65 73 73 28 28 77 ┆.current; w1:=address((w┆
0x4c920…4c940 33 29 2e 63 5f 73 74 61 63 6b 29 3b 0a 20 20 20 20 20 20 77 32 3a 3d 28 77 31 29 2e 77 6f 72 64 ┆3).c_stack); w2:=(w1).word┆
0x4c940…4c960 3b 0a 20 20 20 20 20 20 77 30 3a 3d 28 77 32 29 2e 77 6f 72 64 3b 0a 20 20 20 20 20 20 28 77 31 ┆; w0:=(w2).word; (w1┆
0x4c960…4c97a 29 2e 77 6f 72 64 3a 3d 77 32 2d 32 3b 0a 20 20 20 20 20 20 66 32 3a 3d 73 61 ┆).word:=w2-2; f2:=sa┆
0x4c97a…4c980 (0x324,0x994)
0x4c980…4c9a0 76 65 66 32 3b 0a 20 20 20 20 20 20 63 61 6c 6c 20 77 30 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 ┆vef2; call w0 return; ┆
0x4c9a0…4c9c0 65 6e 64 3b 0a 20 20 65 6e 64 3b 20 21 20 65 6e 64 20 70 6f 70 20 21 0a 0a 0a 0a 0a 20 20 62 6f ┆end; end; ! end pop ! bo┆
0x4c9c0…4c9e0 64 79 20 6f 66 20 63 6f 6d 70 61 72 65 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 69 6e 63 6f 64 65 ┆dy of compare begin incode┆
0x4c9e0…4ca00 0a 20 20 20 20 20 20 77 6f 72 64 20 73 61 76 65 77 31 2c 20 73 61 76 65 00 00 00 00 00 00 00 00 ┆ word savew1, save ┆
0x4ca00…4ca06 (613,) (0x324,0x995)
0x4ca06…4ca20 77 32 3b 0a 20 20 20 20 20 20 72 65 66 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 ┆w2; ref return; ┆
0x4ca20…4ca40 62 65 67 69 6e 0a 20 20 20 20 20 20 73 61 76 65 77 31 3a 3d 20 77 31 3b 20 73 61 76 65 77 32 3a ┆begin savew1:= w1; savew2:┆
0x4ca40…4ca60 3d 20 77 32 3b 20 72 65 74 75 72 6e 3a 3d 20 77 33 3b 0a 20 20 20 20 20 20 77 33 3a 3d 20 77 31 ┆= w2; return:= w3; w3:= w1┆
0x4ca60…4ca7e 2b 77 30 3b 0a 20 20 20 20 20 20 77 30 3a 3d 20 30 3b 0a 20 20 20 20 20 20 77 68 69 6c 65 ┆+w0; w0:= 0; while┆
0x4ca7e…4ca84 (0x324,0x996)
0x4ca84…4caa0 20 77 31 3c 77 33 20 64 6f 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 ┆ w1<w3 do begin ┆
0x4caa0…4cac0 20 20 77 30 3a 3d 20 28 77 31 29 2e 77 6f 72 64 3b 0a 20 20 20 20 20 20 20 20 77 30 2d 28 77 32 ┆ w0:= (w1).word; w0-(w2┆
0x4cac0…4cae0 29 2e 77 6f 72 64 3b 0a 20 20 20 20 20 20 20 20 77 31 2b 32 3b 0a 20 20 20 20 20 20 20 20 77 32 ┆).word; w1+2; w2┆
0x4cae0…4cafc 2b 32 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3c 3e 30 20 74 68 65 6e 20 77 31 ┆+2; if w0<>0 then w1┆
0x4cafc…4cb02 (0x324,0x997)
0x4cb02…4cb20 3a 3d 20 77 33 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 77 31 3a 3d 20 73 ┆:= w3; end; w1:= s┆
0x4cb20…4cb40 61 76 65 77 31 3b 0a 20 20 20 20 20 20 77 32 3a 3d 20 73 61 76 65 77 32 3b 0a 20 20 20 20 20 20 ┆avew1; w2:= savew2; ┆
0x4cb40…4cb60 77 33 3a 3d 20 62 2e 63 75 72 72 65 6e 74 3b 0a 20 20 20 20 20 20 63 61 6c 6c 20 77 30 20 72 65 ┆w3:= b.current; call w0 re┆
0x4cb60…4cb7a 74 75 72 6e 3b 0a 20 20 20 20 65 6e 64 3b 0a 20 20 65 6e 64 3b 20 21 20 63 6f ┆turn; end; end; ! co┆
0x4cb7a…4cb80 (0x324,0x998)
0x4cb80…4cba0 6d 70 61 72 65 20 21 0a 0a 0a 0a 20 20 62 6f 64 79 20 6f 66 20 63 72 65 61 74 65 5f 74 63 0a 20 ┆mpare ! body of create_tc ┆
0x4cba0…4cbc0 20 62 65 67 69 6e 0a 20 20 20 20 69 6e 63 6f 64 65 0a 20 20 20 20 20 20 64 6f 75 62 6c 65 20 73 ┆ begin incode double s┆
0x4cbc0…4cbe0 61 76 65 66 31 3b 0a 20 20 20 20 20 20 77 6f 72 64 20 73 61 76 65 77 32 3b 0a 20 20 20 20 20 20 ┆avef1; word savew2; ┆
0x4cbe0…4cc00 72 65 66 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 00 00 00 00 00 00 00 00 ┆ref return; begin ┆
0x4cc00…4cc06 (614,) (0x324,0x999)
0x4cc06…4cc20 20 20 20 20 73 61 76 65 66 31 3a 3d 20 66 31 3b 0a 20 20 20 20 20 20 73 61 76 ┆ savef1:= f1; sav┆
0x4cc20…4cc40 65 77 32 3a 3d 20 77 32 3b 0a 20 20 20 20 20 20 72 65 74 75 72 6e 3a 3d 20 77 33 3b 0a 0a 20 20 ┆ew2:= w2; return:= w3; ┆
0x4cc40…4cc60 20 20 20 20 77 31 3a 3d 20 28 77 33 29 2e 63 74 5f 74 63 3b 0a 20 20 20 20 20 20 77 30 3a 3d 20 ┆ w1:= (w3).ct_tc; w0:= ┆
0x4cc60…4cc7e 30 3b 0a 20 20 20 20 20 20 28 77 31 29 2e 63 5f 69 63 3a 3d 20 77 30 3b 0a 0a 20 20 20 20 ┆0; (w1).c_ic:= w0; ┆
0x4cc7e…4cc84 (0x324,0x99a)
0x4cc84…4cca0 20 20 28 77 31 29 2e 74 63 5f 63 72 65 61 74 65 64 3a 3d 20 77 30 3a 3d 20 31 3b 0a ┆ (w1).tc_created:= w0:= 1; ┆
0x4cca0…4ccc0 20 20 20 20 20 20 28 77 31 29 2e 74 63 5f 68 6f 73 74 6e 6f 3a 3d 20 77 30 3a 3d 20 28 77 33 29 ┆ (w1).tc_hostno:= w0:= (w3)┆
0x4ccc0…4cce0 2e 63 74 5f 68 6f 73 74 6e 6f 3b 0a 20 20 20 20 20 20 28 77 31 29 2e 74 63 5f 68 6f 73 74 69 64 ┆.ct_hostno; (w1).tc_hostid┆
0x4cce0…4ccfc 3a 3d 20 77 30 3a 3d 20 28 77 33 29 2e 63 74 5f 68 6f 73 74 69 64 3b 0a 20 20 20 20 ┆:= w0:= (w3).ct_hostid; ┆
0x4ccfc…4cd02 (0x324,0x99b)
0x4cd02…4cd20 20 20 77 32 3a 3d 20 61 64 64 72 65 73 73 28 28 77 31 29 2e 74 63 5f 64 65 76 6e 61 6d 65 ┆ w2:= address((w1).tc_devname┆
0x4cd20…4cd40 29 3b 0a 20 20 20 20 20 20 6d 6f 76 65 28 2e 77 33 2e 2c 77 30 3a 3d 38 2c 77 31 3a 3d 72 65 74 ┆); move(.w3.,w0:=8,w1:=ret┆
0x4cd40…4cd60 75 72 6e 2e 63 74 5f 64 65 76 6e 61 6d 65 2c 77 32 29 3b 0a 20 20 20 20 20 20 77 31 3a 3d 20 72 ┆urn.ct_devname,w2); w1:= r┆
0x4cd60…4cd7a 65 74 75 72 6e 2e 63 74 5f 74 63 3b 20 77 32 3a 3d 20 61 64 64 72 65 73 73 28 ┆eturn.ct_tc; w2:= address(┆
0x4cd7a…4cd80 (0x324,0x99c)
0x4cd80…4cda0 28 77 31 29 2e 74 63 5f 6e 61 6d 65 29 3b 0a 20 20 20 20 20 20 77 31 3a 3d 20 72 65 74 75 72 6e ┆(w1).tc_name); w1:= return┆
0x4cda0…4cdc0 2e 63 74 5f 70 72 6f 63 72 65 66 3b 20 77 31 2b 32 3b 0a 20 20 20 20 20 20 6d 6f 76 65 28 2e 77 ┆.ct_procref; w1+2; move(.w┆
0x4cdc0…4cde0 33 2e 2c 77 30 2c 77 31 2c 77 32 29 3b 0a 20 20 20 20 20 20 77 31 3a 3d 20 72 65 74 75 72 6e 2e ┆3.,w0,w1,w2); w1:= return.┆
0x4cde0…4ce00 63 74 5f 74 63 3b 0a 20 20 20 20 20 20 77 32 3a 3d 20 61 64 64 72 65 73 00 00 00 00 00 00 00 00 ┆ct_tc; w2:= addres ┆
0x4ce00…4ce06 (615,) (0x324,0x99d)
0x4ce06…4ce20 73 28 28 77 31 29 2e 74 63 5f 63 6f 6e 73 6f 6c 65 29 3b 0a 20 20 20 20 20 20 ┆s((w1).tc_console); ┆
0x4ce20…4ce40 69 66 20 77 30 3a 3d 28 77 32 29 2e 77 6f 72 64 3d 30 20 74 68 65 6e 20 21 20 6e 6f 20 6f 70 65 ┆if w0:=(w2).word=0 then ! no ope┆
0x4ce40…4ce60 72 61 74 6f 72 20 21 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 77 33 3a 3d ┆rator ! begin w3:=┆
0x4ce60…4ce7e 20 61 64 64 72 65 73 73 28 28 77 31 29 2e 74 63 5f 71 67 72 6f 75 70 29 3b 0a 20 20 20 20 ┆ address((w1).tc_qgroup); ┆
0x4ce7e…4ce84 (0x324,0x99e)
0x4ce84…4cea0 20 20 20 20 28 77 33 29 2e 77 6f 72 64 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 20 ┆ (w3).word:= w0; ┆
0x4cea0…4cec0 69 66 20 77 30 3a 3d 28 77 31 29 2e 74 63 5f 6b 69 6e 64 3d 38 20 21 20 74 74 79 20 21 20 74 68 ┆if w0:=(w1).tc_kind=8 ! tty ! th┆
0x4cec0…4cee0 65 6e 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 6d 6f 76 65 28 ┆en begin move(┆
0x4cee0…4cefc 2e 77 33 2e 2c 77 30 3a 3d 38 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 28 77 31 29 2e ┆.w3.,w0:=8,w1:=address((w1).┆
0x4cefc…4cf02 (0x324,0x99f)
0x4cf02…4cf20 74 63 5f 6e 61 6d 65 29 2c 77 32 29 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 ┆tc_name),w2); end; ┆
0x4cf20…4cf40 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 6c 69 6e 6b 28 2e 77 33 2e 2c 77 31 3a 3d 72 65 74 75 ┆ end; link(.w3.,w1:=retu┆
0x4cf40…4cf60 72 6e 2e 63 74 5f 74 63 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 62 2e 61 63 74 69 76 71 66 73 74 ┆rn.ct_tc,w2:=address(b.activqfst┆
0x4cf60…4cf7a 29 29 3b 0a 0a 20 20 20 20 20 20 74 65 73 74 6f 75 74 28 2e 77 33 2e 2c 77 30 ┆)); testout(.w3.,w0┆
0x4cf7a…4cf80 (0x324,0x9a0)
0x4cf80…4cfa0 3a 3d 21 6c 65 6e 67 74 68 28 74 72 61 6e 73 70 63 6f 72 6f 75 74 29 2c 77 31 2c 77 32 3a 3d 35 ┆:=!length(transpcorout),w1,w2:=5┆
0x4cfa0…4cfc0 33 29 3b 0a 20 20 20 20 20 20 66 31 3a 3d 20 73 61 76 65 66 31 3b 0a 20 20 20 20 20 20 77 32 3a ┆3); f1:= savef1; w2:┆
0x4cfc0…4cfe0 3d 20 73 61 76 65 77 32 3b 0a 20 20 20 20 20 20 77 33 3a 3d 20 72 65 74 75 72 6e 3b 0a 20 20 20 ┆= savew2; w3:= return; ┆
0x4cfe0…4d000 20 65 6e 64 3b 0a 20 20 65 6e 64 3b 20 21 20 63 72 65 61 74 65 5f 63 74 00 00 00 00 00 00 00 00 ┆ end; end; ! create_ct ┆
0x4d000…4d006 (616,) (0x324,0x9a1)
0x4d006…4d020 20 21 0a 0a 0a 0a 20 20 62 6f 64 79 20 6f 66 20 72 65 6d 6f 76 65 5f 74 63 0a ┆ ! body of remove_tc ┆
0x4d020…4d040 20 20 62 65 67 69 6e 0a 20 20 20 20 69 6e 63 6f 64 65 0a 20 20 20 20 20 20 64 6f 75 62 6c 65 20 ┆ begin incode double ┆
0x4d040…4d060 73 61 76 65 66 31 3b 0a 20 20 20 20 20 20 74 65 78 74 20 28 31 31 29 20 7a 65 72 6f 20 3a 3d 20 ┆savef1; text (11) zero := ┆
0x4d060…4d07e 22 27 30 27 27 30 27 27 30 27 22 3b 0a 20 20 20 20 20 20 77 6f 72 64 20 73 61 76 65 77 32 ┆"'0''0''0'"; word savew2┆
0x4d07e…4d084 (0x324,0x9a2)
0x4d084…4d0a0 3b 0a 20 20 20 20 20 20 72 65 66 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 62 65 67 69 ┆; ref return; begi┆
0x4d0a0…4d0c0 6e 0a 20 20 20 20 20 20 73 61 76 65 66 31 3a 3d 20 66 31 3b 0a 20 20 20 20 20 20 73 61 76 65 77 ┆n savef1:= f1; savew┆
0x4d0c0…4d0e0 32 3a 3d 20 77 32 3b 0a 20 20 20 20 20 20 72 65 74 75 72 6e 3a 3d 20 77 33 3b 0a 20 20 20 20 20 ┆2:= w2; return:= w3; ┆
0x4d0e0…4d0fc 20 77 30 3a 3d 2d 38 33 38 38 36 30 37 3b 77 31 3a 3d 38 33 38 38 36 30 35 3b 0a 20 ┆ w0:=-8388607;w1:=8388605; ┆
0x4d0fc…4d102 (0x324,0x9a3)
0x4d102…4d120 20 20 20 20 20 77 33 3a 3d 20 61 64 64 72 65 73 73 28 7a 65 72 6f 29 3b 0a 20 20 20 20 20 ┆ w3:= address(zero); ┆
0x4d120…4d140 20 6d 6f 6e 69 74 6f 72 28 37 32 29 3b 20 21 20 73 65 74 20 63 61 74 61 6c 6f 67 20 62 61 73 65 ┆ monitor(72); ! set catalog base┆
0x4d140…4d160 20 21 0a 20 20 20 20 20 20 77 33 3a 3d 20 72 65 74 75 72 6e 3b 0a 0a 20 20 20 20 20 20 77 31 3a ┆ ! w3:= return; w1:┆
0x4d160…4d17a 3d 20 28 77 33 29 2e 72 74 5f 74 63 3b 0a 20 20 20 20 20 20 77 30 3a 3d 20 30 ┆= (w3).rt_tc; w0:= 0┆
0x4d17a…4d180 (0x324,0x9a4)
0x4d180…4d1a0 3b 0a 20 20 20 20 20 20 28 77 31 29 2e 63 5f 6d 62 75 66 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 ┆; (w1).c_mbuf:= w0; ┆
0x4d1a0…4d1c0 28 77 31 29 2e 74 63 5f 63 72 65 61 74 65 64 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 77 33 3a 3d ┆(w1).tc_created:= w0; w3:=┆
0x4d1c0…4d1e0 20 61 64 64 72 65 73 73 28 28 77 31 29 2e 74 63 5f 6e 61 6d 65 29 3b 0a 20 20 20 20 20 20 69 66 ┆ address((w1).tc_name); if┆
0x4d1e0…4d200 20 77 30 3a 3d 28 77 31 29 2e 74 63 5f 6b 69 6e 64 3c 3e 31 35 20 74 68 00 00 00 00 00 00 00 00 ┆ w0:=(w1).tc_kind<>15 th ┆
0x4d200…4d206 (617,) (0x324,0x9a5)
0x4d206…4d220 65 6e 20 6d 6f 6e 69 74 6f 72 28 31 30 29 3b 20 21 20 72 65 6c 65 61 73 65 20 ┆en monitor(10); ! release ┆
0x4d220…4d240 21 0a 20 20 20 20 20 20 69 66 20 77 32 3a 3d 20 28 77 31 29 2e 74 63 5f 68 6f 73 74 6e 6f 3c 3e ┆! if w2:= (w1).tc_hostno<>┆
0x4d240…4d260 30 20 74 68 65 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 20 21 20 72 65 6d 6f 74 65 20 21 0a 20 20 ┆0 then begin ! remote ! ┆
0x4d260…4d27e 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 36 34 29 3b 20 21 20 72 65 6d 6f 76 65 20 70 72 ┆ monitor(64); ! remove pr┆
0x4d27e…4d284 (0x324,0x9a6)
0x4d284…4d2a0 6f 63 65 73 73 20 21 0a 21 74 65 73 74 20 33 30 3b 0a 20 20 20 20 20 20 65 6e 64 3b ┆ocess ! !test 30; end;┆
0x4d2a0…4d2c0 0a 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 31 29 2e 74 63 5f 6b 69 6e 64 3d 38 20 21 20 74 ┆ if w0:=(w1).tc_kind=8 ! t┆
0x4d2c0…4d2e0 74 79 20 21 20 74 68 65 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 20 21 20 72 65 6d 6f 76 65 20 6f ┆ty ! then begin ! remove o┆
0x4d2e0…4d2fc 70 65 72 61 74 6f 72 20 21 0a 20 20 20 20 20 20 20 20 77 32 3a 3d 20 61 64 64 72 65 ┆perator ! w2:= addre┆
0x4d2fc…4d302 (0x324,0x9a7)
0x4d302…4d320 73 73 28 28 77 31 29 2e 74 63 5f 63 6f 6e 73 6f 6c 65 29 3b 0a 20 20 20 20 20 20 20 20 28 ┆ss((w1).tc_console); (┆
0x4d320…4d340 77 32 29 2e 77 6f 72 64 3a 3d 20 77 30 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 77 32 3a 3d 20 ┆w2).word:= w0:= 0; w2:= ┆
0x4d340…4d360 61 64 64 72 65 73 73 28 28 77 31 29 2e 74 63 5f 64 65 76 63 6f 6e 73 29 3b 0a 20 20 20 20 20 20 ┆address((w1).tc_devcons); ┆
0x4d360…4d37a 20 20 28 77 32 29 2e 77 6f 72 64 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 65 6e ┆ (w2).word:= w0; en┆
0x4d37a…4d380 (0x324,0x9a8)
0x4d380…4d3a0 64 3b 0a 20 20 20 20 20 20 6c 69 6e 6b 28 2e 77 33 2e 2c 77 31 2c 77 32 3a 3d 61 64 64 72 65 73 ┆d; link(.w3.,w1,w2:=addres┆
0x4d3a0…4d3c0 73 28 62 2e 77 61 69 74 71 66 73 74 29 29 3b 0a 20 20 20 20 20 20 74 65 73 74 6f 75 74 28 2e 77 ┆s(b.waitqfst)); testout(.w┆
0x4d3c0…4d3e0 33 2e 2c 77 30 3a 3d 21 6c 65 6e 67 74 68 28 70 72 63 6f 72 6f 75 74 29 2c 77 31 2c 77 32 3a 3d ┆3.,w0:=!length(prcorout),w1,w2:=┆
0x4d3e0…4d400 35 34 29 3b 0a 20 20 20 20 20 20 66 31 3a 3d 73 61 76 65 66 31 3b 0a 20 00 00 00 00 00 00 00 00 ┆54); f1:=savef1; ┆
0x4d400…4d406 (618,) (0x324,0x9a9)
0x4d406…4d420 20 20 20 20 20 77 32 3a 3d 20 73 61 76 65 77 32 3b 0a 20 20 20 20 20 20 77 33 ┆ w2:= savew2; w3┆
0x4d420…4d440 3a 3d 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 65 6e 64 3b 0a 20 20 65 6e 64 3b 20 21 20 72 65 6d ┆:= return; end; end; ! rem┆
0x4d440…4d460 6f 76 65 5f 74 63 20 21 0a 0a 0a 20 20 62 6f 64 79 20 6f 66 20 72 65 6d 6f 76 65 5f 66 70 72 0a ┆ove_tc ! body of remove_fpr ┆
0x4d460…4d47e 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 74 68 69 73 20 70 72 6f 63 65 64 75 72 65 ┆ begin comment this procedure┆
0x4d47e…4d484 (0x324,0x9aa)
0x4d484…4d4a0 20 64 65 63 72 65 61 73 65 73 20 74 68 65 20 61 63 63 65 73 20 63 6f 75 6e 74 0a 20 ┆ decreases the acces count ┆
0x4d4a0…4d4c0 20 20 20 20 20 20 20 6f 66 20 74 68 65 20 61 73 73 6f 63 69 61 74 65 64 20 67 61 63 5f 61 63 63 ┆ of the associated gac_acc┆
0x4d4c0…4d4e0 65 73 73 5f 65 6e 74 72 79 2e 20 2d 20 69 66 20 74 68 65 0a 20 20 20 20 20 20 20 20 63 6f 75 6e ┆ess_entry. - if the coun┆
0x4d4e0…4d4fc 74 20 62 65 63 6f 6d 65 73 20 7a 65 72 6f 20 74 68 65 20 66 6f 72 6d 61 74 20 70 72 ┆t becomes zero the format pr┆
0x4d4fc…4d502 (0x324,0x9ab)
0x4d502…4d520 69 6e 74 65 72 20 70 72 6f 63 65 73 73 65 73 0a 20 20 20 20 20 20 20 20 28 67 61 63 27 73 ┆inter processes (gac's┆
0x4d520…4d540 29 20 61 72 65 20 72 65 6c 65 61 73 65 64 2f 70 6f 73 73 69 62 6c 79 20 72 65 6d 6f 76 65 64 20 ┆) are released/possibly removed ┆
0x4d540…4d560 61 6e 64 20 74 68 65 0a 20 20 20 20 20 20 20 20 73 74 61 74 75 73 20 68 61 6e 64 6c 69 6e 67 20 ┆and the status handling ┆
0x4d560…4d57a 63 6f 72 6f 75 74 69 6e 65 20 69 73 20 6d 61 64 65 20 66 72 65 65 3b 0a 20 20 ┆coroutine is made free; ┆
0x4d57a…4d580 (0x324,0x9ac)
0x4d580…4d5a0 20 20 69 6e 63 6f 64 65 0a 20 20 20 20 20 20 72 65 66 20 20 72 65 74 75 72 6e 2c 66 70 72 5f 72 ┆ incode ref return,fpr_r┆
0x4d5a0…4d5c0 65 66 3b 0a 20 20 20 20 20 20 77 6f 72 64 20 73 61 76 65 77 30 2c 73 61 76 65 77 32 3b 0a 0a 20 ┆ef; word savew0,savew2; ┆
0x4d5c0…4d5e0 20 20 20 62 65 67 69 6e 0a 0a 20 20 20 20 20 20 72 65 74 75 72 6e 20 3a 3d 20 77 33 3b 0a 20 20 ┆ begin return := w3; ┆
0x4d5e0…4d600 20 20 20 20 66 70 72 5f 72 65 66 3a 3d 20 77 31 3b 0a 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ fpr_ref:= w1; ┆
0x4d600…4d606 (619,) (0x324,0x9ad)
0x4d606…4d620 73 61 76 65 77 30 20 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 73 61 76 65 77 32 ┆savew0 := w0; savew2┆
0x4d620…4d640 20 3a 3d 20 77 32 3b 0a 0a 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 64 65 63 72 65 61 73 65 20 ┆ := w2; comment decrease ┆
0x4d640…4d660 63 6f 75 6e 74 3b 0a 20 20 20 20 20 20 77 32 20 3a 3d 20 28 77 31 29 2e 66 70 72 5f 73 74 63 6f ┆count; w2 := (w1).fpr_stco┆
0x4d660…4d67e 72 6f 75 74 3b 0a 20 20 20 20 20 20 28 77 32 29 2e 66 70 72 5f 63 6f 75 6e 74 20 3a 3d 20 ┆rout; (w2).fpr_count := ┆
0x4d67e…4d684 (0x324,0x9ae)
0x4d684…4d6a0 77 30 20 3a 3d 20 28 77 32 29 2e 66 70 72 5f 63 6f 75 6e 74 20 2d 31 3b 0a 20 20 20 ┆w0 := (w2).fpr_count -1; ┆
0x4d6a0…4d6c0 20 20 20 69 66 20 77 30 20 3c 20 31 20 74 68 65 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f ┆ if w0 < 1 then begin co┆
0x4d6c0…4d6e0 6d 6d 65 6e 74 20 72 65 6c 65 61 73 65 2f 72 65 6d 6f 76 65 20 65 6e 74 72 69 65 73 20 61 6e 64 ┆mment release/remove entries and┆
0x4d6e0…4d6fc 20 66 72 65 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 73 74 61 74 75 73 20 68 61 6e ┆ free status han┆
0x4d6fc…4d702 (0x324,0x9af)
0x4d702…4d720 64 6c 69 6e 67 20 63 6f 72 6f 75 74 69 6e 65 3b 0a 20 20 20 20 20 20 20 20 6c 69 6e 6b 28 ┆dling coroutine; link(┆
0x4d720…4d740 2e 77 33 2e 2c 77 31 3a 3d 77 32 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 62 2e 77 61 69 74 71 66 ┆.w3.,w1:=w2,w2:=address(b.waitqf┆
0x4d740…4d760 73 74 29 29 3b 0a 20 20 20 20 20 20 20 20 77 32 3a 3d 77 31 3b 77 31 3a 3d 66 70 72 5f 72 65 66 ┆st)); w2:=w1;w1:=fpr_ref┆
0x4d760…4d77a 3b 0a 20 20 20 20 20 20 20 20 77 30 20 3a 3d 20 28 77 31 29 2e 74 63 5f 68 6f ┆; w0 := (w1).tc_ho┆
0x4d77a…4d780 (0x324,0x9b0)
0x4d780…4d7a0 73 74 69 64 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3d 30 20 74 68 65 6e 0a 20 20 20 20 20 ┆stid; if w0=0 then ┆
0x4d7a0…4d7c0 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 6c 6f 63 61 6c 20 64 65 76 69 63 65 20 2d 20 ┆ begin comment local device - ┆
0x4d7c0…4d7e0 72 65 6c 65 61 73 65 20 70 72 6f 63 65 73 73 65 73 3b 0a 20 20 20 20 20 20 20 20 20 20 77 33 3a ┆release processes; w3:┆
0x4d7e0…4d800 3d 61 64 64 72 65 73 73 28 28 77 32 29 2e 66 70 72 5f 70 72 6f 63 69 6e 00 00 00 00 00 00 00 00 ┆=address((w2).fpr_procin ┆
0x4d800…4d806 (620,) (0x324,0x9b1)
0x4d806…4d820 29 3b 0a 20 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 31 30 29 3b 0a ┆); monitor(10); ┆
0x4d820…4d840 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 61 64 64 72 65 73 73 28 28 77 32 29 2e 66 70 72 5f 70 ┆ w3:=address((w2).fpr_p┆
0x4d840…4d860 72 6f 63 6f 75 74 29 3b 0a 20 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 31 30 29 3b 0a ┆rocout); monitor(10); ┆
0x4d860…4d87e 20 20 20 20 20 20 20 20 65 6e 64 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e ┆ end else begin┆
0x4d87e…4d884 (0x324,0x9b2)
0x4d884…4d8a0 20 63 6f 6d 6d 65 6e 74 20 72 65 6d 6f 74 65 20 64 65 76 69 63 65 20 2d 20 72 65 6d ┆ comment remote device - rem┆
0x4d8a0…4d8c0 6f 76 65 20 70 72 6f 63 65 73 73 65 73 3b 0a 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 61 64 64 ┆ove processes; w3:=add┆
0x4d8c0…4d8e0 72 65 73 73 28 28 77 32 29 2e 66 70 72 5f 70 72 6f 63 69 6e 29 3b 0a 20 20 20 20 20 20 20 20 20 ┆ress((w2).fpr_procin); ┆
0x4d8e0…4d8fc 20 6d 6f 6e 69 74 6f 72 28 36 34 29 3b 0a 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d ┆ monitor(64); w3:=┆
0x4d8fc…4d902 (0x324,0x9b3)
0x4d902…4d920 61 64 64 72 65 73 73 28 28 77 32 29 2e 66 70 72 5f 70 72 6f 63 6f 75 74 29 3b 0a 20 20 20 ┆address((w2).fpr_procout); ┆
0x4d920…4d940 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 36 34 29 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b ┆ monitor(64); end;┆
0x4d940…4d960 0a 20 20 20 20 20 20 20 20 77 33 3a 3d 20 61 64 64 72 65 73 73 28 28 77 32 29 2e 66 70 72 5f 67 ┆ w3:= address((w2).fpr_g┆
0x4d960…4d97a 61 63 6f 75 74 29 3b 0a 20 20 20 20 20 20 20 20 28 77 33 29 2e 77 6f 72 64 3a ┆acout); (w3).word:┆
0x4d97a…4d980 (0x324,0x9b4)
0x4d980…4d9a0 3d 20 77 30 3a 3d 20 30 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 0a 20 20 20 20 20 20 74 65 73 74 ┆= w0:= 0; end; test┆
0x4d9a0…4d9c0 6f 75 74 28 2e 77 33 2e 2c 77 30 3a 3d 21 6c 65 6e 67 74 68 28 66 70 72 69 6e 63 6f 72 6f 75 74 ┆out(.w3.,w0:=!length(fprincorout┆
0x4d9c0…4d9e0 29 2c 77 31 3a 3d 77 32 2c 77 32 3a 3d 35 34 29 3b 0a 0a 20 20 20 20 20 20 77 30 3a 3d 20 73 61 ┆),w1:=w2,w2:=54); w0:= sa┆
0x4d9e0…4da00 76 65 77 30 3b 0a 20 20 20 20 20 20 77 32 3a 3d 20 73 61 76 65 77 32 3b 00 00 00 00 00 00 00 00 ┆vew0; w2:= savew2; ┆
0x4da00…4da06 (621,) (0x324,0x9b5)
0x4da06…4da20 0a 20 20 20 20 20 20 77 31 3a 3d 20 66 70 72 5f 72 65 66 3b 0a 20 20 20 20 20 ┆ w1:= fpr_ref; ┆
0x4da20…4da40 20 77 33 3a 3d 20 62 2e 63 75 72 72 65 6e 74 3b 0a 20 20 20 20 20 20 63 61 6c 6c 20 77 30 20 72 ┆ w3:= b.current; call w0 r┆
0x4da40…4da60 65 74 75 72 6e 3b 0a 20 20 20 20 65 6e 64 3b 0a 20 20 65 6e 64 3b 20 20 21 20 65 6e 64 20 72 65 ┆eturn; end; end; ! end re┆
0x4da60…4da7e 6d 6f 76 65 5f 66 70 72 20 21 0a 0a 0a 0a 0a 20 20 62 6f 64 79 20 6f 66 20 66 69 6e 64 5f ┆move_fpr ! body of find_┆
0x4da7e…4da84 (0x324,0x9b6)
0x4da84…4daa0 74 63 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 6c 61 62 65 6c 20 66 6f 75 6e 64 3b 0a ┆tc begin label found; ┆
0x4daa0…4dac0 20 20 20 20 69 6e 63 6f 64 65 0a 20 20 20 20 20 20 77 6f 72 64 20 73 61 76 65 77 30 2c 20 73 61 ┆ incode word savew0, sa┆
0x4dac0…4dae0 76 65 77 32 2c 20 66 72 65 65 74 63 3b 0a 20 20 20 20 20 20 72 65 66 20 72 65 74 75 72 6e 3b 0a ┆vew2, freetc; ref return; ┆
0x4dae0…4dafc 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 73 61 76 65 77 30 3a 3d 20 77 30 3b ┆ begin savew0:= w0;┆
0x4dafc…4db02 (0x324,0x9b7)
0x4db02…4db20 0a 20 20 20 20 20 20 73 61 76 65 77 32 3a 3d 20 77 32 3b 0a 20 20 20 20 20 20 72 65 74 75 ┆ savew2:= w2; retu┆
0x4db20…4db40 72 6e 3a 3d 20 77 33 3b 0a 0a 20 20 20 20 20 20 66 72 65 65 74 63 3a 3d 20 77 30 3a 3d 20 30 3b ┆rn:= w3; freetc:= w0:= 0;┆
0x4db40…4db60 0a 20 20 20 20 20 20 77 31 3a 3d 20 62 2e 74 63 70 6f 6f 6c 5f 66 73 74 3b 0a 20 20 20 20 20 20 ┆ w1:= b.tcpool_fst; ┆
0x4db60…4db7a 77 68 69 6c 65 20 77 31 3c 62 2e 74 63 70 6f 6f 6c 5f 74 6f 70 20 64 6f 0a 20 ┆while w1<b.tcpool_top do ┆
0x4db7a…4db80 (0x324,0x9b8)
0x4db80…4dba0 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 31 29 2e 74 ┆ begin if w0:=(w1).t┆
0x4dba0…4dbc0 63 5f 6b 69 6e 64 3d 72 65 74 75 72 6e 2e 66 74 5f 6b 69 6e 64 20 74 68 65 6e 0a 20 20 20 20 20 ┆c_kind=return.ft_kind then ┆
0x4dbc0…4dbe0 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 31 29 2e 74 ┆ begin if w0:=(w1).t┆
0x4dbe0…4dc00 63 5f 68 6f 73 74 69 64 3d 72 65 74 75 72 6e 2e 66 74 5f 68 6f 73 74 69 00 00 00 00 00 00 00 00 ┆c_hostid=return.ft_hosti ┆
0x4dc00…4dc06 (622,) (0x324,0x9b9)
0x4dc06…4dc20 64 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 ┆d then begin ┆
0x4dc20…4dc40 20 20 20 20 20 20 20 20 20 63 6f 6d 70 61 72 65 28 2e 77 33 2e 2c 77 30 3a 3d 38 2c 77 31 2b 21 ┆ compare(.w3.,w0:=8,w1+!┆
0x4dc40…4dc60 70 6f 73 69 74 69 6f 6e 28 74 63 5f 64 65 76 6e 61 6d 65 29 2c 77 32 3a 3d 72 65 74 75 72 6e 2e ┆position(tc_devname),w2:=return.┆
0x4dc60…4dc7e 66 74 5f 64 65 76 6e 61 6d 65 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 31 2d 21 70 ┆ft_devname); w1-!p┆
0x4dc7e…4dc84 (0x324,0x9ba)
0x4dc84…4dca0 6f 73 69 74 69 6f 6e 28 74 63 5f 64 65 76 6e 61 6d 65 29 3b 0a 20 20 20 20 20 20 20 ┆osition(tc_devname); ┆
0x4dca0…4dcc0 20 20 20 20 20 69 66 20 77 30 3d 30 20 74 68 65 6e 20 67 6f 74 6f 20 66 6f 75 6e 64 3b 0a 20 20 ┆ if w0=0 then goto found; ┆
0x4dcc0…4dce0 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 66 72 ┆ end; if w0:=fr┆
0x4dce0…4dcfc 65 65 74 63 3d 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3a ┆eetc=0 then if w0:┆
0x4dcfc…4dd02 (0x324,0x9bb)
0x4dd02…4dd20 3d 28 77 31 29 2e 74 63 5f 63 72 65 61 74 65 64 3d 30 20 21 20 6e 6f 74 20 63 72 65 61 74 ┆=(w1).tc_created=0 ! not creat┆
0x4dd20…4dd40 65 64 20 21 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 ┆ed ! then begin ┆
0x4dd40…4dd60 20 20 20 20 20 20 77 32 3a 3d 20 61 64 64 72 65 73 73 28 28 77 31 29 2e 74 63 5f 63 6f 6e 73 6f ┆ w2:= address((w1).tc_conso┆
0x4dd60…4dd7a 6c 65 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 ┆le); if w0:=(w┆
0x4dd7a…4dd80 (0x324,0x9bc)
0x4dd80…4dda0 32 29 2e 77 6f 72 64 3d 30 20 74 68 65 6e 20 66 72 65 65 74 63 3a 3d 20 77 31 3b 20 21 20 6e 6f ┆2).word=0 then freetc:= w1; ! no┆
0x4dda0…4ddc0 20 6f 70 65 72 61 74 6f 72 20 6c 6f 67 67 65 64 20 69 6e 20 21 0a 20 20 20 20 20 20 20 20 20 20 ┆ operator logged in ! ┆
0x4ddc0…4dde0 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 77 31 3a 3d 20 28 ┆end; end; w1:= (┆
0x4dde0…4de00 77 31 29 2e 74 63 5f 6e 65 78 74 74 63 3b 0a 20 20 20 20 20 20 65 6e 64 00 00 00 00 00 00 00 00 ┆w1).tc_nexttc; end ┆
0x4de00…4de06 (623,) (0x324,0x9bd)
0x4de06…4de20 3b 0a 20 20 20 20 20 20 77 31 3a 3d 20 66 72 65 65 74 63 3b 0a 0a 66 6f 75 6e ┆; w1:= freetc; foun┆
0x4de20…4de40 64 3a 0a 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 31 29 2e 74 63 5f 63 72 65 61 74 65 64 3d ┆d: if w0:=(w1).tc_created=┆
0x4de40…4de60 30 20 74 68 65 6e 20 2d 28 77 31 29 3b 0a 20 20 20 20 20 20 77 30 3a 3d 20 73 61 76 65 77 30 3b ┆0 then -(w1); w0:= savew0;┆
0x4de60…4de7e 0a 20 20 20 20 20 20 77 32 3a 3d 20 73 61 76 65 77 32 3b 0a 20 20 20 20 20 20 77 33 3a 3d ┆ w2:= savew2; w3:=┆
0x4de7e…4de84 (0x324,0x9be)
0x4de84…4dea0 20 72 65 74 75 72 6e 3b 20 20 21 20 77 33 20 6e 6f 74 20 65 71 75 61 6c 20 74 6f 20 ┆ return; ! w3 not equal to ┆
0x4dea0…4dec0 63 75 72 72 65 6e 74 20 63 6f 72 6f 75 74 2b 2b 2b 2b 2b 2b 20 21 0a 21 74 65 73 74 20 37 30 3b ┆current corout++++++ ! !test 70;┆
0x4dec0…4dee0 0a 20 20 20 20 65 6e 64 3b 0a 20 20 65 6e 64 3b 20 21 20 66 69 6e 64 5f 74 63 20 21 0a 0a 0a 0a ┆ end; end; ! find_tc ! ┆
0x4dee0…4defc 20 20 62 6f 64 79 20 6f 66 20 6c 6f 6f 6b 74 72 61 6e 73 70 6f 72 74 0a 20 20 62 65 ┆ body of looktransport be┆
0x4defc…4df02 (0x324,0x9bf)
0x4df02…4df20 67 69 6e 0a 20 20 20 20 69 6e 63 6f 64 65 0a 20 20 20 20 20 20 77 6f 72 64 20 73 61 76 65 ┆gin incode word save┆
0x4df20…4df40 77 30 2c 20 73 61 76 65 77 31 3b 0a 20 20 20 20 20 20 72 65 66 20 72 65 74 75 72 6e 3b 0a 20 20 ┆w0, savew1; ref return; ┆
0x4df40…4df60 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 73 61 76 65 77 30 3a 3d 20 77 30 3b 20 73 61 76 65 77 ┆ begin savew0:= w0; savew┆
0x4df60…4df7a 31 3a 3d 20 77 31 3b 20 72 65 74 75 72 6e 3a 3d 20 77 33 3b 0a 0a 20 20 20 20 ┆1:= w1; return:= w3; ┆
0x4df7a…4df80 (0x324,0x9c0)
0x4df80…4dfa0 20 20 21 20 63 68 65 63 6b 20 6c 65 67 61 6c 69 74 79 20 6f 66 20 74 72 61 6e 73 70 6f 72 74 20 ┆ ! check legality of transport ┆
0x4dfa0…4dfc0 6e 61 6d 65 20 21 0a 20 20 20 20 20 20 77 32 3a 3d 20 31 3b 0a 20 20 20 20 20 20 69 66 20 77 31 ┆name ! w2:= 1; if w1┆
0x4dfc0…4dfe0 3c 62 2e 74 72 61 6e 73 5f 66 69 72 73 74 20 74 68 65 6e 20 77 32 3a 3d 20 2d 31 3b 0a 20 20 20 ┆<b.trans_first then w2:= -1; ┆
0x4dfe0…4e000 20 20 20 69 66 20 77 31 3e 3d 62 2e 74 72 61 6e 73 5f 74 6f 70 20 74 68 00 00 00 00 00 00 00 00 ┆ if w1>=b.trans_top th ┆
0x4e000…4e006 (624,) (0x324,0x9c1)
0x4e006…4e020 65 6e 20 77 32 3a 3d 20 2d 31 3b 0a 20 20 20 20 20 20 77 31 20 65 78 74 72 61 ┆en w2:= -1; w1 extra┆
0x4e020…4e040 63 74 20 39 3b 0a 20 20 20 20 20 20 77 68 69 6c 65 20 77 31 3e 30 20 64 6f 20 77 31 2d 21 6c 65 ┆ct 9; while w1>0 do w1-!le┆
0x4e040…4e060 6e 67 74 68 28 74 72 5f 64 65 73 63 72 29 3b 0a 20 20 20 20 20 20 69 66 20 77 31 3c 3e 30 20 74 ┆ngth(tr_descr); if w1<>0 t┆
0x4e060…4e07e 68 65 6e 20 77 32 3a 3d 20 2d 31 3b 0a 20 20 20 20 20 20 69 66 20 77 32 3e 30 20 74 68 65 ┆hen w2:= -1; if w2>0 the┆
0x4e07e…4e084 (0x324,0x9c2)
0x4e084…4e0a0 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 77 31 3a 3d 73 61 ┆n begin w1:=sa┆
0x4e0a0…4e0c0 76 65 77 31 20 61 73 68 69 66 74 20 2d 39 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 31 3c 3e 62 ┆vew1 ashift -9; if w1<>b┆
0x4e0c0…4e0e0 2e 62 73 5f 73 65 67 6e 6f 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 ┆.bs_segno then begin ┆
0x4e0e0…4e0fc 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 62 2e 62 73 5f 6f 70 3d 35 20 74 68 65 6e ┆ if w0:=b.bs_op=5 then┆
0x4e0fc…4e102 (0x324,0x9c3)
0x4e102…4e120 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 6f 75 74 70 75 ┆ begin comment outpu┆
0x4e120…4e140 74 20 73 65 67 6d 65 6e 74 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 6f 77 6f 72 6b 61 72 65 ┆t segment; ioworkare┆
0x4e140…4e160 61 28 2e 77 33 2e 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 62 2e 62 73 5f 6f 70 29 29 3b 0a 20 20 ┆a(.w3.,w1:=address(b.bs_op)); ┆
0x4e160…4e17a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 63 6f 6d ┆ end; com┆
0x4e17a…4e180 (0x324,0x9c4)
0x4e180…4e1a0 6d 65 6e 74 20 6e 6f 77 20 69 6e 70 75 74 20 77 61 6e 74 65 64 20 73 65 67 6d 65 6e 74 3b 0a 20 ┆ment now input wanted segment; ┆
0x4e1a0…4e1c0 20 20 20 20 20 20 20 20 20 62 2e 62 73 5f 6f 70 3a 3d 77 30 3a 3d 33 3b 0a 20 20 20 20 20 20 20 ┆ b.bs_op:=w0:=3; ┆
0x4e1c0…4e1e0 20 20 20 62 2e 62 73 5f 73 65 67 6e 6f 3a 3d 77 31 3a 3d 20 73 61 76 65 77 31 20 61 73 68 69 66 ┆ b.bs_segno:=w1:= savew1 ashif┆
0x4e1e0…4e200 74 20 2d 39 3b 0a 20 20 20 20 20 20 20 20 20 20 69 6f 77 6f 72 6b 61 72 00 00 00 00 00 00 00 00 ┆t -9; ioworkar ┆
0x4e200…4e206 (625,) (0x324,0x9c5)
0x4e206…4e220 65 61 28 2e 77 33 2e 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 62 2e 62 73 5f 6f ┆ea(.w3.,w1:=address(b.bs_o┆
0x4e220…4e240 70 29 29 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 77 32 3a 3d 73 61 ┆p)); end; w2:=sa┆
0x4e240…4e260 76 65 77 31 20 65 78 74 72 61 63 74 20 39 3b 77 32 2b 62 2e 62 73 5f 66 69 72 73 74 3b 0a 20 20 ┆vew1 extract 9;w2+b.bs_first; ┆
0x4e260…4e27e 20 20 20 20 20 20 77 31 3a 3d 31 30 38 3b 0a 20 20 20 20 20 20 20 20 66 31 3a 3d 28 77 31 ┆ w1:=108; f1:=(w1┆
0x4e27e…4e284 (0x324,0x9c6)
0x4e284…4e2a0 29 2e 64 6f 75 62 6c 65 20 6c 73 68 69 66 74 20 2d 32 30 3b 0a 20 20 20 20 20 20 20 ┆).double lshift -20; ┆
0x4e2a0…4e2c0 20 69 66 20 77 30 3a 3d 28 77 32 29 2e 74 72 5f 77 61 69 74 6d 65 73 73 3d 30 20 74 68 65 6e 0a ┆ if w0:=(w2).tr_waitmess=0 then ┆
0x4e2c0…4e2e0 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 32 29 2e 74 72 5f 72 65 6d 6f 76 65 74 69 6d ┆ if w0:=(w2).tr_removetim┆
0x4e2e0…4e2fc 65 3c 77 31 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 77 32 3a 3d 30 3b 20 21 20 65 ┆e<w1 then w2:=0; ! e┆
0x4e2fc…4e302 (0x324,0x9c7)
0x4e302…4e320 6e 74 72 79 20 66 72 65 65 20 21 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 77 ┆ntry free ! end; w┆
0x4e320…4e340 30 3a 3d 73 61 76 65 77 30 3b 0a 20 20 20 20 20 20 77 31 3a 3d 73 61 76 65 77 31 3b 0a 20 20 20 ┆0:=savew0; w1:=savew1; ┆
0x4e340…4e360 20 20 20 77 33 3a 3d 62 2e 63 75 72 72 65 6e 74 3b 0a 21 74 65 73 74 20 33 30 35 3b 0a 20 20 20 ┆ w3:=b.current; !test 305; ┆
0x4e360…4e37a 20 20 20 63 61 6c 6c 20 77 30 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 65 6e 64 ┆ call w0 return; end┆
0x4e37a…4e380 (0x324,0x9c8)
0x4e380…4e3a0 3b 0a 20 20 65 6e 64 3b 20 21 20 65 6e 64 20 6c 6f 6f 6b 74 72 61 6e 73 70 6f 72 74 20 21 0a 0a ┆; end; ! end looktransport ! ┆
0x4e3a0…4e3c0 0a 0a 0a 20 20 62 6f 64 79 20 6f 66 20 70 75 74 74 72 61 6e 73 70 6f 72 74 0a 20 20 62 65 67 69 ┆ body of puttransport begi┆
0x4e3c0…4e3e0 6e 0a 20 20 20 20 69 6e 63 6f 64 65 0a 20 20 20 20 20 20 72 65 66 20 72 65 74 75 72 6e 3b 0a 20 ┆n incode ref return; ┆
0x4e3e0…4e400 20 20 20 20 20 77 6f 72 64 20 73 61 76 65 77 30 2c 20 73 61 76 65 77 31 00 00 00 00 00 00 00 00 ┆ word savew0, savew1 ┆
0x4e400…4e406 (626,) (0x324,0x9c9)
0x4e406…4e420 2c 20 73 61 76 65 77 32 3b 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 ┆, savew2; begin ┆
0x4e420…4e440 73 61 76 65 77 30 3a 3d 20 77 30 3b 20 73 61 76 65 77 31 3a 3d 20 77 31 3b 20 73 61 76 65 77 32 ┆savew0:= w0; savew1:= w1; savew2┆
0x4e440…4e460 3a 3d 20 77 32 3b 20 72 65 74 75 72 6e 3a 3d 20 77 33 3b 0a 20 20 20 20 20 20 62 2e 62 73 5f 6f ┆:= w2; return:= w3; b.bs_o┆
0x4e460…4e47e 70 3a 3d 20 77 30 3a 3d 20 35 3b 0a 20 20 20 20 20 20 77 31 3a 3d 20 73 61 76 65 77 31 20 ┆p:= w0:= 5; w1:= savew1 ┆
0x4e47e…4e484 (0x324,0x9ca)
0x4e484…4e4a0 65 78 74 72 61 63 74 20 39 3b 20 77 31 2b 62 2e 62 73 5f 66 69 72 73 74 3b 0a 20 20 ┆extract 9; w1+b.bs_first; ┆
0x4e4a0…4e4c0 20 20 20 20 74 65 73 74 6f 75 74 28 2e 77 33 2e 2c 77 30 3a 3d 21 6c 65 6e 67 74 68 28 74 72 5f ┆ testout(.w3.,w0:=!length(tr_┆
0x4e4c0…4e4e0 64 65 73 63 72 29 2c 77 31 2c 77 32 3a 3d 36 38 29 3b 0a 20 20 20 20 20 20 77 30 3a 3d 20 73 61 ┆descr),w1,w2:=68); w0:= sa┆
0x4e4e0…4e4fc 76 65 77 30 3b 0a 20 20 20 20 20 20 77 31 3a 3d 20 73 61 76 65 77 31 3b 0a 20 20 20 ┆vew0; w1:= savew1; ┆
0x4e4fc…4e502 (0x324,0x9cb)
0x4e502…4e520 20 20 20 77 32 3a 3d 20 73 61 76 65 77 32 3b 0a 20 20 20 20 20 20 77 33 3a 3d 20 62 2e 63 ┆ w2:= savew2; w3:= b.c┆
0x4e520…4e540 75 72 72 65 6e 74 3b 0a 20 20 20 20 20 20 63 61 6c 6c 20 77 30 20 72 65 74 75 72 6e 3b 0a 20 20 ┆urrent; call w0 return; ┆
0x4e540…4e560 20 20 65 6e 64 3b 0a 20 20 65 6e 64 3b 20 21 20 70 75 74 74 72 61 6e 73 70 6f 72 74 20 21 0a 0a ┆ end; end; ! puttransport ! ┆
0x4e560…4e57a 0a 0a 20 20 62 6f 64 79 20 6f 66 20 69 6f 77 6f 72 6b 61 72 65 61 0a 20 20 63 ┆ body of ioworkarea c┆
0x4e57a…4e580 (0x324,0x9cc)
0x4e580…4e5a0 6f 6d 6d 65 6e 74 0a 20 20 20 20 74 72 61 6e 73 70 6f 72 74 20 61 20 73 65 67 6d 65 6e 74 20 74 ┆omment transport a segment t┆
0x4e5a0…4e5c0 6f 20 6f 72 20 66 72 6f 6d 20 74 68 65 20 73 70 6f 6f 6c 20 61 72 65 61 0a 20 20 3b 0a 20 20 62 ┆o or from the spool area ; b┆
0x4e5c0…4e5e0 65 67 69 6e 0a 20 20 20 20 69 6e 63 6f 64 65 0a 20 20 20 20 20 20 77 6f 72 64 20 73 74 61 74 75 ┆egin incode word statu┆
0x4e5e0…4e600 73 2c 20 62 79 74 65 73 2c 20 63 68 61 72 73 2c 20 61 34 2c 20 61 35 2c 00 00 00 00 00 00 00 00 ┆s, bytes, chars, a4, a5, ┆
0x4e600…4e606 (627,) (0x324,0x9cd)
0x4e606…4e620 20 61 36 2c 20 61 37 2c 20 61 38 3b 0a 20 20 20 20 20 20 64 6f 75 62 6c 65 20 ┆ a6, a7, a8; double ┆
0x4e620…4e640 73 61 76 65 66 31 3b 0a 20 20 20 20 20 20 72 65 66 20 73 61 76 65 77 32 2c 20 72 65 74 75 72 6e ┆savef1; ref savew2, return┆
0x4e640…4e660 3b 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 73 61 76 65 66 31 3a 3d 20 66 31 3b 0a 20 ┆; begin savef1:= f1; ┆
0x4e660…4e67e 20 20 20 20 20 73 61 76 65 77 32 3a 3d 20 77 32 3b 0a 20 20 20 20 20 20 72 65 74 75 72 6e ┆ savew2:= w2; return┆
0x4e67e…4e684 (0x324,0x9ce)
0x4e684…4e6a0 3a 3d 20 77 33 3b 0a 20 20 20 20 20 20 74 65 73 74 6f 75 74 28 2e 77 33 2e 2c 77 30 ┆:= w3; testout(.w3.,w0┆
0x4e6a0…4e6c0 3a 3d 38 2c 77 31 2c 77 32 3a 3d 35 32 29 3b 0a 20 20 20 20 20 20 77 33 3a 3d 20 61 64 64 72 65 ┆:=8,w1,w2:=52); w3:= addre┆
0x4e6c0…4e6e0 73 73 20 28 62 2e 73 70 6f 6f 6c 6e 61 6d 65 29 3b 0a 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 ┆ss (b.spoolname); monitor(┆
0x4e6e0…4e6fc 31 36 29 3b 0a 20 20 20 20 20 20 77 31 3a 3d 20 61 64 64 72 65 73 73 28 73 74 61 74 ┆16); w1:= address(stat┆
0x4e6fc…4e702 (0x324,0x9cf)
0x4e702…4e720 75 73 29 3b 0a 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 31 38 29 3b 0a 20 20 20 20 20 20 ┆us); monitor(18); ┆
0x4e720…4e740 69 66 20 77 32 3a 3d 31 20 6c 73 68 69 66 74 20 77 30 20 6f 72 20 28 77 31 29 2e 77 6f 72 64 20 ┆if w2:=1 lshift w0 or (w1).word ┆
0x4e740…4e760 3c 3e 20 32 20 74 68 65 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 77 31 ┆<> 2 then begin w1┆
0x4e760…4e77a 3a 3d 61 64 64 72 65 73 73 28 62 2e 73 70 63 6f 6d 6f 70 29 3b 0a 20 20 20 20 ┆:=address(b.spcomop); ┆
0x4e77a…4e780 (0x324,0x9d0)
0x4e780…4e7a0 20 20 20 20 28 77 31 29 2e 6c 6f 67 73 74 61 74 75 73 3a 3d 77 32 3b 0a 20 20 20 20 20 20 20 20 ┆ (w1).logstatus:=w2; ┆
0x4e7a0…4e7c0 74 65 73 74 6f 75 74 28 2e 77 33 2e 2c 77 30 3a 3d 31 36 2c 77 31 2c 77 32 3a 3d 36 34 29 3b 0a ┆testout(.w3.,w0:=16,w1,w2:=64); ┆
0x4e7c0…4e7e0 20 20 20 20 20 20 20 20 6f 70 6d 65 73 73 28 2e 77 33 2e 2c 77 31 29 3b 0a 20 20 20 20 20 20 65 ┆ opmess(.w3.,w1); e┆
0x4e7e0…4e800 6e 64 3b 0a 20 20 20 20 20 20 66 31 3a 3d 20 73 61 76 65 66 31 3b 20 77 00 00 00 00 00 00 00 00 ┆nd; f1:= savef1; w ┆
0x4e800…4e806 (628,) (0x324,0x9d1)
0x4e806…4e820 32 3a 3d 20 73 61 76 65 77 32 3b 0a 20 20 20 20 20 20 77 33 3a 3d 20 62 2e 63 ┆2:= savew2; w3:= b.c┆
0x4e820…4e840 75 72 72 65 6e 74 3b 0a 20 20 20 20 20 20 63 61 6c 6c 20 77 30 20 72 65 74 75 72 6e 3b 0a 20 20 ┆urrent; call w0 return; ┆
0x4e840…4e860 20 20 65 6e 64 3b 0a 20 20 65 6e 64 3b 20 21 20 69 6f 77 6f 72 6b 61 72 65 61 20 21 0a 0a 0a 0a ┆ end; end; ! ioworkarea ! ┆
0x4e860…4e87e 20 20 62 6f 64 79 20 6f 66 20 6c 69 6e 6b 75 70 72 65 6d 6f 74 65 0a 20 20 62 65 67 69 6e ┆ body of linkupremote begin┆
0x4e87e…4e884 (0x324,0x9d2)
0x4e884…4e8a0 0a 20 20 20 20 69 6e 63 6f 64 65 0a 20 20 20 20 20 20 77 6f 72 64 20 73 61 76 65 77 ┆ incode word savew┆
0x4e8a0…4e8c0 31 2c 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 20 20 74 65 78 74 28 31 34 29 20 68 6f 73 74 3a 3d ┆1, return; text(14) host:=┆
0x4e8c0…4e8e0 20 22 68 6f 73 74 22 3b 0a 0a 20 20 20 20 20 20 21 20 6f 70 65 72 61 74 69 6f 6e 20 6d 65 73 73 ┆ "host"; ! operation mess┆
0x4e8e0…4e8fc 61 67 65 20 21 0a 20 20 20 20 20 20 77 6f 72 64 20 6f 6d 5f 6f 70 3a 3d 20 32 27 30 ┆age ! word om_op:= 2'0┆
0x4e8fc…4e902 (0x324,0x9d3)
0x4e902…4e920 30 30 30 30 30 30 30 30 30 30 31 30 30 30 30 30 30 30 30 31 31 30 30 3b 0a 20 20 20 20 20 ┆00000000001000000001100; ┆
0x4e920…4e940 20 72 65 66 20 6f 6d 5f 66 69 72 73 74 2c 20 6f 6d 5f 6c 61 73 74 3b 0a 20 20 20 20 20 20 62 79 ┆ ref om_first, om_last; by┆
0x4e940…4e960 74 65 20 6f 6d 5f 75 6e 75 31 2c 20 6f 6d 5f 68 6f 73 74 6e 6f 3b 0a 20 20 20 20 20 20 77 6f 72 ┆te om_unu1, om_hostno; wor┆
0x4e960…4e97a 64 20 6f 6d 5f 68 6f 73 74 69 64 3b 0a 20 20 20 20 20 20 62 79 74 65 20 6f 6d ┆d om_hostid; byte om┆
0x4e97a…4e980 (0x324,0x9d4)
0x4e980…4e9a0 5f 68 6f 6d 65 72 65 67 3a 3d 20 30 2c 20 6f 6d 5f 6e 65 74 69 64 3a 3d 20 30 3b 0a 0a 20 20 20 ┆_homereg:= 0, om_netid:= 0; ┆
0x4e9a0…4e9c0 20 20 20 21 20 6f 70 65 72 61 74 69 6f 6e 20 6f 75 74 70 75 74 20 21 0a 20 20 20 20 20 20 77 6f ┆ ! operation output ! wo┆
0x4e9c0…4e9e0 72 64 20 6f 6f 5f 6d 6f 64 65 6b 69 6e 64 2c 0a 20 20 20 20 20 20 20 20 20 20 20 6f 6f 5f 74 69 ┆rd oo_modekind, oo_ti┆
0x4e9e0…4ea00 6d 65 6f 75 74 73 62 75 66 66 65 72 73 3a 3d 20 30 2c 0a 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆meoutsbuffers:= 0, ┆
0x4ea00…4ea06 (629,) (0x324,0x9d5)
0x4ea06…4ea20 20 20 20 20 20 20 6f 6f 5f 62 75 66 73 69 7a 65 3a 3d 20 30 3b 0a 20 20 20 20 ┆ oo_bufsize:= 0; ┆
0x4ea20…4ea40 20 20 74 65 78 74 28 31 31 29 20 6f 6f 5f 64 65 76 69 6e 61 6d 65 3b 0a 20 20 20 20 20 20 77 6f ┆ text(11) oo_deviname; wo┆
0x4ea40…4ea60 72 64 20 6f 6f 5f 75 6e 75 31 3b 0a 20 20 20 20 20 20 77 6f 72 64 20 6f 6f 5f 6e 65 74 31 3a 3d ┆rd oo_unu1; word oo_net1:=┆
0x4ea60…4ea7e 20 30 2c 20 6f 6f 5f 6e 65 74 32 3a 3d 20 30 2c 20 6f 6f 5f 75 6e 75 32 3b 0a 0a 20 20 20 ┆ 0, oo_net2:= 0, oo_unu2; ┆
0x4ea7e…4ea84 (0x324,0x9d6)
0x4ea84…4eaa0 20 20 20 21 20 6f 70 65 72 61 74 69 6f 6e 20 61 6e 73 77 65 72 20 21 0a 20 20 20 20 ┆ ! operation answer ! ┆
0x4eaa0…4eac0 20 20 77 6f 72 64 20 6f 61 5f 72 65 74 75 72 6e 2c 6f 61 5f 62 79 74 65 73 2c 6f 61 5f 63 68 61 ┆ word oa_return,oa_bytes,oa_cha┆
0x4eac0…4eae0 72 73 2c 6f 61 5f 6e 65 74 31 2c 6f 61 5f 6e 65 74 32 2c 6f 61 5f 6e 65 74 33 2c 6f 61 5f 64 31 ┆rs,oa_net1,oa_net2,oa_net3,oa_d1┆
0x4eae0…4eafc 2c 6f 61 5f 64 32 3b 0a 0a 20 20 20 20 20 20 21 20 6f 70 65 72 61 74 69 6f 6e 20 69 ┆,oa_d2; ! operation i┆
0x4eafc…4eb02 (0x324,0x9d7)
0x4eb02…4eb20 6e 70 75 74 20 21 0a 20 20 20 20 20 20 77 6f 72 64 20 6f 69 5f 6b 69 6e 64 2c 6f 69 5f 62 ┆nput ! word oi_kind,oi_b┆
0x4eb20…4eb40 75 66 73 2c 6f 69 5f 62 75 66 73 69 7a 65 3b 0a 20 20 20 20 20 20 74 65 78 74 28 31 31 29 20 6f ┆ufs,oi_bufsize; text(11) o┆
0x4eb40…4eb60 69 5f 64 65 76 69 6e 61 6d 65 3b 0a 20 20 20 20 20 20 77 6f 72 64 20 6f 69 5f 6e 65 74 31 2c 6f ┆i_deviname; word oi_net1,o┆
0x4eb60…4eb7a 69 5f 6e 65 74 32 2c 6f 69 5f 6e 65 74 33 3b 0a 20 20 20 20 20 20 72 65 66 20 ┆i_net2,oi_net3; ref ┆
0x4eb7a…4eb80 (0x324,0x9d8)
0x4eb80…4eba0 6f 69 5f 70 72 6f 63 64 65 73 63 72 3b 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 73 61 ┆oi_procdescr; begin sa┆
0x4eba0…4ebc0 76 65 77 31 3a 3d 20 77 31 3b 20 72 65 74 75 72 6e 3a 3d 20 77 33 3b 0a 20 20 20 20 20 20 6f 6d ┆vew1:= w1; return:= w3; om┆
0x4ebc0…4ebe0 5f 68 6f 73 74 6e 6f 3a 3d 20 77 30 3a 3d 20 28 77 33 29 2e 6c 75 72 5f 68 6f 73 74 6e 6f 3b 0a ┆_hostno:= w0:= (w3).lur_hostno; ┆
0x4ebe0…4ec00 20 20 20 20 20 20 6f 6d 5f 68 6f 73 74 69 64 3a 3d 20 77 30 3a 3d 20 28 00 00 00 00 00 00 00 00 ┆ om_hostid:= w0:= ( ┆
0x4ec00…4ec06 (630,) (0x324,0x9d9)
0x4ec06…4ec20 77 33 29 2e 6c 75 72 5f 68 6f 73 74 69 64 3b 0a 0a 20 20 20 20 20 20 6f 6f 5f ┆w3).lur_hostid; oo_┆
0x4ec20…4ec40 6d 6f 64 65 6b 69 6e 64 3a 3d 20 77 30 3a 3d 20 28 77 33 29 2e 6c 75 72 5f 6b 69 6e 64 3b 0a 20 ┆modekind:= w0:= (w3).lur_kind; ┆
0x4ec40…4ec60 20 20 20 20 20 6d 6f 76 65 28 2e 77 33 2e 2c 77 30 3a 3d 38 2c 77 31 3a 3d 28 77 33 29 2e 6c 75 ┆ move(.w3.,w0:=8,w1:=(w3).lu┆
0x4ec60…4ec7e 72 5f 64 65 76 69 6e 61 6d 65 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 6f 6f 5f 64 65 76 69 ┆r_deviname,w2:=address(oo_devi┆
0x4ec7e…4ec84 (0x324,0x9da)
0x4ec84…4eca0 6e 61 6d 65 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 21 20 6d 6f 76 65 20 6f ┆name)); ! move o┆
0x4eca0…4ecc0 75 74 70 75 74 20 74 6f 20 69 6e 70 75 74 20 61 72 65 61 20 21 0a 20 20 20 20 20 20 6d 6f 76 65 ┆utput to input area ! move┆
0x4ecc0…4ece0 28 2e 77 33 2e 2c 77 30 3a 3d 32 32 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 6f 6f 5f 6d 6f 64 65 ┆(.w3.,w0:=22,w1:=address(oo_mode┆
0x4ece0…4ecfc 6b 69 6e 64 29 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 6f 69 5f 6b 69 6e 64 29 29 3b ┆kind),w2:=address(oi_kind));┆
0x4ecfc…4ed02 (0x324,0x9db)
0x4ed02…4ed20 0a 20 20 20 20 20 20 6f 6d 5f 66 69 72 73 74 3a 3d 20 77 32 3b 0a 20 20 20 20 20 20 77 32 ┆ om_first:= w2; w2┆
0x4ed20…4ed40 2b 32 30 3b 0a 20 20 20 20 20 20 6f 6d 5f 6c 61 73 74 3a 3d 20 77 32 3b 0a 20 20 20 20 20 20 74 ┆+20; om_last:= w2; t┆
0x4ed40…4ed60 65 73 74 6f 75 74 28 2e 77 33 2e 2c 77 30 3a 3d 32 32 2c 77 31 2c 77 32 3a 3d 36 36 29 3b 0a 20 ┆estout(.w3.,w0:=22,w1,w2:=66); ┆
0x4ed60…4ed7a 20 20 20 20 20 77 31 3a 3d 20 61 64 64 72 65 73 73 28 6f 6d 5f 6f 70 29 3b 0a ┆ w1:= address(om_op); ┆
0x4ed7a…4ed80 (0x324,0x9dc)
0x4ed80…4eda0 20 20 20 20 20 20 74 65 73 74 6f 75 74 28 2e 77 33 2e 2c 77 30 3a 3d 31 32 2c 77 31 2c 77 32 3a ┆ testout(.w3.,w0:=12,w1,w2:┆
0x4eda0…4edc0 3d 32 29 3b 0a 20 20 20 20 20 20 77 33 3a 3d 20 61 64 64 72 65 73 73 28 68 6f 73 74 29 3b 0a 20 ┆=2); w3:= address(host); ┆
0x4edc0…4ede0 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 31 36 29 3b 20 21 20 73 65 6e 64 20 6d 65 73 73 61 67 65 ┆ monitor(16); ! send message┆
0x4ede0…4ee00 20 21 0a 20 20 20 20 20 20 77 31 3a 3d 20 61 64 64 72 65 73 73 28 6f 61 00 00 00 00 00 00 00 00 ┆ ! w1:= address(oa ┆
0x4ee00…4ee06 (631,) (0x324,0x9dd)
0x4ee06…4ee20 5f 72 65 74 75 72 6e 29 3b 0a 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 31 38 ┆_return); monitor(18┆
0x4ee20…4ee40 29 3b 20 21 20 77 61 69 74 20 61 6e 73 77 65 72 20 21 0a 20 20 20 20 20 20 69 66 20 77 30 3c 3e ┆); ! wait answer ! if w0<>┆
0x4ee40…4ee60 31 20 74 68 65 6e 20 6f 61 5f 72 65 74 75 72 6e 3a 3d 20 77 30 3a 3d 20 31 3b 20 21 20 61 20 6c ┆1 then oa_return:= w0:= 1; ! a l┆
0x4ee60…4ee7e 69 74 74 6c 65 20 62 69 74 20 64 69 72 74 79 20 21 0a 20 20 20 20 20 20 74 65 73 74 6f 75 ┆ittle bit dirty ! testou┆
0x4ee7e…4ee84 (0x324,0x9de)
0x4ee84…4eea0 74 28 2e 77 33 2e 2c 77 30 3a 3d 31 32 2c 77 31 2c 77 32 3a 3d 36 37 29 3b 0a 20 20 ┆t(.w3.,w0:=12,w1,w2:=67); ┆
0x4eea0…4eec0 20 20 20 20 74 65 73 74 6f 75 74 28 2e 77 33 2e 2c 77 30 3a 3d 32 32 2c 77 31 3a 3d 61 64 64 72 ┆ testout(.w3.,w0:=22,w1:=addr┆
0x4eec0…4eee0 65 73 73 28 6f 69 5f 6b 69 6e 64 29 2c 77 32 3a 3d 36 36 29 3b 0a 0a 20 20 20 20 20 20 77 30 3a ┆ess(oi_kind),w2:=66); w0:┆
0x4eee0…4eefc 3d 20 6f 61 5f 72 65 74 75 72 6e 3b 0a 20 20 20 20 20 20 77 32 3a 3d 20 6f 69 5f 70 ┆= oa_return; w2:= oi_p┆
0x4eefc…4ef02 (0x324,0x9df)
0x4ef02…4ef20 72 6f 63 64 65 73 63 72 3b 0a 20 20 20 20 20 20 77 31 3a 3d 20 73 61 76 65 77 31 3b 0a 20 ┆rocdescr; w1:= savew1; ┆
0x4ef20…4ef40 20 20 20 20 20 77 33 3a 3d 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 65 6e 64 3b 0a 20 20 65 6e 64 ┆ w3:= return; end; end┆
0x4ef40…4ef60 3b 20 21 20 6c 69 6e 6b 20 75 70 20 72 65 6d 6f 74 65 20 21 0a 0a 20 20 62 6f 64 79 20 6f 66 20 ┆; ! link up remote ! body of ┆
0x4ef60…4ef7a 61 64 64 74 78 74 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 69 6e 63 6f 64 65 0a ┆addtxt begin incode ┆
0x4ef7a…4ef80 (0x324,0x9e0)
0x4ef80…4efa0 20 20 20 20 64 6f 75 62 6c 65 20 20 73 61 76 65 66 31 3b 0a 20 20 20 20 77 6f 72 64 20 20 20 20 ┆ double savef1; word ┆
0x4efa0…4efc0 73 61 76 65 77 32 3b 0a 20 20 20 20 72 65 66 20 20 20 20 20 72 65 74 75 72 6e 3b 0a 0a 20 20 20 ┆savew2; ref return; ┆
0x4efc0…4efe0 20 62 65 67 69 6e 0a 20 20 20 20 20 20 73 61 76 65 66 31 3a 3d 20 66 31 3b 0a 20 20 20 20 20 20 ┆ begin savef1:= f1; ┆
0x4efe0…4f000 73 61 76 65 77 32 3a 3d 20 77 32 3b 0a 20 20 20 20 20 20 72 65 74 75 72 00 00 00 00 00 00 00 00 ┆savew2:= w2; retur ┆
0x4f000…4f006 (632,) (0x324,0x9e1)
0x4f006…4f020 6e 3a 3d 20 77 33 3b 0a 0a 20 20 20 20 20 20 77 33 3a 3d 20 77 31 2b 77 30 3b ┆n:= w3; w3:= w1+w0;┆
0x4f020…4f040 0a 20 20 20 20 20 20 77 68 69 6c 65 20 77 31 3c 77 33 20 64 6f 0a 20 20 20 20 20 20 62 65 67 69 ┆ while w1<w3 do begi┆
0x4f040…4f060 6e 0a 20 20 20 20 20 20 20 20 77 30 3a 3d 20 28 77 31 29 2e 77 6f 72 64 3b 0a 20 20 20 20 20 20 ┆n w0:= (w1).word; ┆
0x4f060…4f07e 20 20 28 77 32 29 2e 77 6f 72 64 3a 3d 20 77 30 20 6f 72 20 28 77 32 29 2e 77 6f 72 64 3b ┆ (w2).word:= w0 or (w2).word;┆
0x4f07e…4f084 (0x324,0x9e2)
0x4f084…4f0a0 0a 20 20 20 20 20 20 20 20 77 31 2b 32 3b 77 32 2b 32 3b 0a 20 20 20 20 20 20 65 6e ┆ w1+2;w2+2; en┆
0x4f0a0…4f0c0 64 3b 0a 20 20 20 20 20 20 66 31 3a 3d 20 73 61 76 65 66 31 3b 0a 20 20 20 20 20 20 77 32 3a 3d ┆d; f1:= savef1; w2:=┆
0x4f0c0…4f0e0 20 73 61 76 65 77 32 3b 0a 20 20 20 20 20 20 77 33 3a 3d 20 62 2e 63 75 72 72 65 6e 74 3b 0a 20 ┆ savew2; w3:= b.current; ┆
0x4f0e0…4f0fc 20 20 20 20 20 63 61 6c 6c 20 77 30 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 65 6e 64 ┆ call w0 return; end┆
0x4f0fc…4f102 (0x324,0x9e3)
0x4f102…4f120 3b 0a 20 65 6e 64 3b 20 21 20 65 6e 64 20 61 64 64 74 78 74 20 21 0a 0a 0a 20 20 62 6f 64 ┆; end; ! end addtxt ! bod┆
0x4f120…4f140 79 20 6f 66 20 6c 6f 6f 6b 75 70 72 65 6d 6f 74 65 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 69 6e ┆y of lookupremote begin in┆
0x4f140…4f160 63 6f 64 65 0a 20 20 20 20 20 20 77 6f 72 64 20 73 61 76 65 77 31 2c 20 73 61 76 65 77 32 3b 0a ┆code word savew1, savew2; ┆
0x4f160…4f17a 20 20 20 20 20 20 72 65 66 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 20 20 74 65 ┆ ref return; te┆
0x4f17a…4f180 (0x324,0x9e4)
0x4f180…4f1a0 78 74 28 31 34 29 20 68 6f 73 74 3a 3d 20 22 68 6f 73 74 22 3b 0a 0a 20 20 20 20 20 20 21 20 6f ┆xt(14) host:= "host"; ! o┆
0x4f1a0…4f1c0 70 65 72 61 74 69 6f 6e 20 6d 65 73 73 61 67 65 20 21 0a 20 20 20 20 20 20 77 6f 72 64 20 6f 6d ┆peration message ! word om┆
0x4f1c0…4f1e0 5f 6f 70 3b 0a 20 20 20 20 20 20 72 65 66 20 6f 6d 5f 66 69 72 73 74 2c 20 6f 6d 5f 6c 61 73 74 ┆_op; ref om_first, om_last┆
0x4f1e0…4f200 3b 0a 20 20 20 20 20 20 72 65 66 20 6f 6d 5f 70 72 6f 63 72 65 66 3b 0a 00 00 00 00 00 00 00 00 ┆; ref om_procref; ┆
0x4f200…4f206 (633,) (0x324,0x9e5)
0x4f206…4f220 20 20 20 20 20 20 77 6f 72 64 20 6f 6d 5f 68 6f 73 74 69 64 2c 0a 20 20 20 20 ┆ word om_hostid, ┆
0x4f220…4f240 20 20 20 20 20 20 20 6f 6d 5f 6e 65 74 69 64 3b 0a 0a 0a 20 20 20 20 20 20 21 20 6f 70 65 72 61 ┆ om_netid; ! opera┆
0x4f240…4f260 74 69 6f 6e 20 6f 75 74 70 75 74 20 21 0a 20 20 20 20 20 20 77 6f 72 64 20 6f 6f 5f 6d 6f 64 65 ┆tion output ! word oo_mode┆
0x4f260…4f27e 6b 69 6e 64 3a 3d 31 34 2c 0a 20 20 20 20 20 20 20 20 20 20 20 6f 6f 5f 74 69 6d 65 6f 75 ┆kind:=14, oo_timeou┆
0x4f27e…4f284 (0x324,0x9e6)
0x4f284…4f2a0 74 73 62 75 66 66 65 72 73 3a 3d 20 30 2c 0a 20 20 20 20 20 20 20 20 20 20 20 6f 6f ┆tsbuffers:= 0, oo┆
0x4f2a0…4f2c0 5f 62 75 66 73 69 7a 65 3a 3d 20 30 3b 0a 20 20 20 20 20 20 74 65 78 74 28 31 31 29 20 6f 6f 5f ┆_bufsize:= 0; text(11) oo_┆
0x4f2c0…4f2e0 64 65 76 69 6e 61 6d 65 3b 0a 20 20 20 20 20 20 77 6f 72 64 20 6f 6f 5f 75 6e 75 31 3b 0a 20 20 ┆deviname; word oo_unu1; ┆
0x4f2e0…4f2fc 20 20 20 20 77 6f 72 64 20 6f 6f 5f 6e 65 74 31 3a 3d 20 30 2c 20 6f 6f 5f 6e 65 74 ┆ word oo_net1:= 0, oo_net┆
0x4f2fc…4f302 (0x324,0x9e7)
0x4f302…4f320 32 3a 3d 20 30 2c 20 6f 6f 5f 75 6e 75 32 3b 0a 0a 20 20 20 20 20 20 21 20 6f 70 65 72 61 ┆2:= 0, oo_unu2; ! opera┆
0x4f320…4f340 74 69 6f 6e 20 61 6e 73 77 65 72 20 21 0a 20 20 20 20 20 20 77 6f 72 64 20 6f 61 5f 72 65 74 75 ┆tion answer ! word oa_retu┆
0x4f340…4f360 72 6e 2c 6f 61 5f 62 79 74 65 73 2c 6f 61 5f 63 68 61 72 73 2c 6f 61 5f 6e 65 74 31 2c 6f 61 5f ┆rn,oa_bytes,oa_chars,oa_net1,oa_┆
0x4f360…4f37a 6e 65 74 32 2c 6f 61 5f 6e 65 74 33 2c 6f 61 5f 64 31 2c 6f 61 5f 64 32 3b 0a ┆net2,oa_net3,oa_d1,oa_d2; ┆
0x4f37a…4f380 (0x324,0x9e8)
0x4f380…4f3a0 0a 20 20 20 20 20 20 21 20 6f 70 65 72 61 74 69 6f 6e 20 69 6e 70 75 74 20 21 0a 20 20 20 20 20 ┆ ! operation input ! ┆
0x4f3a0…4f3c0 20 77 6f 72 64 20 6f 69 5f 6b 69 6e 64 2c 6f 69 5f 62 75 66 73 2c 6f 69 5f 62 75 66 73 69 7a 65 ┆ word oi_kind,oi_bufs,oi_bufsize┆
0x4f3c0…4f3e0 3b 0a 20 20 20 20 20 20 74 65 78 74 28 31 31 29 20 6f 69 5f 64 65 76 69 6e 61 6d 65 3b 0a 20 20 ┆; text(11) oi_deviname; ┆
0x4f3e0…4f400 20 20 20 20 77 6f 72 64 20 6f 69 5f 6e 65 74 31 2c 6f 69 5f 6e 65 74 32 00 00 00 00 00 00 00 00 ┆ word oi_net1,oi_net2 ┆
0x4f400…4f406 (634,) (0x324,0x9e9)
0x4f406…4f420 2c 6f 69 5f 6e 65 74 33 3b 0a 20 20 20 20 20 20 72 65 66 20 6f 69 5f 70 72 6f ┆,oi_net3; ref oi_pro┆
0x4f420…4f440 63 64 65 73 63 72 3b 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 73 61 76 65 77 31 3a 3d ┆cdescr; begin savew1:=┆
0x4f440…4f460 20 77 31 3b 20 73 61 76 65 77 32 3a 3d 20 77 32 3b 20 72 65 74 75 72 6e 3a 3d 20 77 33 3b 0a 20 ┆ w1; savew2:= w2; return:= w3; ┆
0x4f460…4f47e 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 33 29 2e 6c 75 72 5f 66 75 6e 63 74 69 6f 6e 3d ┆ if w0:=(w3).lur_function=┆
0x4f47e…4f484 (0x324,0x9ea)
0x4f484…4f4a0 34 20 74 68 65 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 77 ┆4 then begin w┆
0x4f4a0…4f4c0 33 3a 3d 28 77 33 29 2e 6c 75 72 5f 70 72 6f 63 6e 61 6d 65 72 65 66 3b 0a 20 20 20 20 20 20 20 ┆3:=(w3).lur_procnameref; ┆
0x4f4c0…4f4e0 20 77 30 3a 3d 20 28 77 33 29 2e 77 6f 72 64 3b 0a 20 20 20 20 20 20 20 20 6f 6d 5f 70 72 6f 63 ┆ w0:= (w3).word; om_proc┆
0x4f4e0…4f4fc 72 65 66 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 20 6f 6d 5f 68 6f 73 74 69 64 3a ┆ref:= w0; om_hostid:┆
0x4f4fc…4f502 (0x324,0x9eb)
0x4f502…4f520 3d 77 30 3a 3d 20 28 77 33 2b 32 29 2e 77 6f 72 64 3b 0a 20 20 20 20 20 20 20 20 6f 6d 5f ┆=w0:= (w3+2).word; om_┆
0x4f520…4f540 6e 65 74 69 64 3a 3d 20 77 30 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 77 30 3a 3d 20 32 27 30 ┆netid:= w0:= 0; w0:= 2'0┆
0x4f540…4f560 30 30 30 30 30 30 30 30 30 30 31 30 30 30 30 30 30 30 30 30 31 31 30 3b 0a 20 20 20 20 20 20 20 ┆00000000001000000000110; ┆
0x4f560…4f57a 20 77 33 3a 3d 72 65 74 75 72 6e 3b 0a 20 20 20 20 20 20 65 6e 64 20 65 6c 73 ┆ w3:=return; end els┆
0x4f57a…4f580 (0x324,0x9ec)
0x4f580…4f5a0 65 0a 20 20 20 20 20 20 69 66 20 77 30 3d 32 20 74 68 65 6e 20 77 30 3a 3d 20 32 27 30 30 30 30 ┆e if w0=2 then w0:= 2'0000┆
0x4f5a0…4f5c0 30 30 30 30 30 30 30 31 30 30 30 30 30 30 30 30 30 31 30 31 20 65 6c 73 65 0a 20 20 20 20 20 20 ┆00000001000000000101 else ┆
0x4f5c0…4f5e0 77 30 3a 3d 20 32 27 30 30 30 30 30 30 30 30 30 30 30 31 30 30 30 30 30 30 30 30 30 31 31 31 3b ┆w0:= 2'000000000001000000000111;┆
0x4f5e0…4f600 0a 20 20 20 20 20 20 6f 6d 5f 6f 70 3a 3d 20 77 30 3b 0a 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ om_op:= w0; ┆
0x4f600…4f606 (635,) (0x324,0x9ed)
0x4f606…4f620 20 77 33 3a 3d 20 28 77 33 29 2e 6c 75 72 5f 70 72 6f 63 6e 61 6d 65 72 65 66 ┆ w3:= (w3).lur_procnameref┆
0x4f620…4f640 3b 0a 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 34 29 3b 20 21 20 67 65 74 20 70 72 6f 63 65 73 ┆; monitor(4); ! get proces┆
0x4f640…4f660 73 20 64 65 73 63 72 69 70 74 69 6f 6e 20 21 0a 20 20 20 20 20 20 69 66 20 77 30 3c 3e 30 20 74 ┆s description ! if w0<>0 t┆
0x4f660…4f67e 68 65 6e 20 6f 6d 5f 70 72 6f 63 72 65 66 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 6d 6f 76 ┆hen om_procref:= w0; mov┆
0x4f67e…4f684 (0x324,0x9ee)
0x4f684…4f6a0 65 28 2e 77 33 2e 2c 77 30 3a 3d 38 2c 77 31 3a 3d 72 65 74 75 72 6e 2e 6c 75 72 5f ┆e(.w3.,w0:=8,w1:=return.lur_┆
0x4f6a0…4f6c0 64 65 76 6e 61 6d 65 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 6f 6f 5f 64 65 76 69 6e 61 6d 65 29 ┆devname,w2:=address(oo_deviname)┆
0x4f6c0…4f6e0 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 21 20 6d 6f 76 65 20 6f 75 74 70 75 74 20 74 6f 20 ┆); ! move output to ┆
0x4f6e0…4f6fc 69 6e 70 75 74 20 61 72 65 61 20 21 0a 20 20 20 20 20 20 6d 6f 76 65 28 2e 77 33 2e ┆input area ! move(.w3.┆
0x4f6fc…4f702 (0x324,0x9ef)
0x4f702…4f720 2c 77 30 3a 3d 32 32 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 6f 6f 5f 6d 6f 64 65 6b 69 6e ┆,w0:=22,w1:=address(oo_modekin┆
0x4f720…4f740 64 29 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 6f 69 5f 6b 69 6e 64 29 29 3b 0a 20 20 20 20 20 20 ┆d),w2:=address(oi_kind)); ┆
0x4f740…4f760 6f 6d 5f 66 69 72 73 74 3a 3d 20 77 32 3b 0a 20 20 20 20 20 20 77 32 2b 32 30 3b 0a 20 20 20 20 ┆om_first:= w2; w2+20; ┆
0x4f760…4f77a 20 20 6f 6d 5f 6c 61 73 74 3a 3d 20 77 32 3b 0a 20 20 20 20 20 20 74 65 73 74 ┆ om_last:= w2; test┆
0x4f77a…4f780 (0x324,0x9f0)
0x4f780…4f7a0 6f 75 74 28 2e 77 33 2e 2c 77 30 3a 3d 32 32 2c 77 31 2c 77 32 3a 3d 36 36 29 3b 0a 20 20 20 20 ┆out(.w3.,w0:=22,w1,w2:=66); ┆
0x4f7a0…4f7c0 20 20 77 31 3a 3d 20 61 64 64 72 65 73 73 28 6f 6d 5f 6f 70 29 3b 0a 20 20 20 20 20 20 74 65 73 ┆ w1:= address(om_op); tes┆
0x4f7c0…4f7e0 74 6f 75 74 28 2e 77 33 2e 2c 77 30 3a 3d 31 32 2c 77 31 2c 77 32 3a 3d 32 29 3b 0a 20 20 20 20 ┆tout(.w3.,w0:=12,w1,w2:=2); ┆
0x4f7e0…4f800 20 20 77 33 3a 3d 20 61 64 64 72 65 73 73 28 68 6f 73 74 29 3b 0a 20 20 00 00 00 00 00 00 00 00 ┆ w3:= address(host); ┆
0x4f800…4f806 (636,) (0x324,0x9f1)
0x4f806…4f820 20 20 20 20 6d 6f 6e 69 74 6f 72 28 31 36 29 3b 20 21 20 73 65 6e 64 20 6d 65 ┆ monitor(16); ! send me┆
0x4f820…4f840 73 73 61 67 65 20 21 0a 20 20 20 20 20 20 77 31 3a 3d 20 61 64 64 72 65 73 73 28 6f 61 5f 72 65 ┆ssage ! w1:= address(oa_re┆
0x4f840…4f860 74 75 72 6e 29 3b 0a 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 31 38 29 3b 20 21 20 77 61 69 74 ┆turn); monitor(18); ! wait┆
0x4f860…4f87e 20 61 6e 73 77 65 72 20 21 0a 20 20 20 20 20 20 69 66 20 77 30 3c 3e 31 20 74 68 65 6e 20 ┆ answer ! if w0<>1 then ┆
0x4f87e…4f884 (0x324,0x9f2)
0x4f884…4f8a0 6f 61 5f 72 65 74 75 72 6e 3a 3d 20 77 30 3a 3d 20 31 3b 20 21 20 61 20 6c 69 74 74 ┆oa_return:= w0:= 1; ! a litt┆
0x4f8a0…4f8c0 6c 65 20 62 69 74 20 64 69 72 74 79 20 21 0a 20 20 20 20 20 20 74 65 73 74 6f 75 74 28 2e 77 33 ┆le bit dirty ! testout(.w3┆
0x4f8c0…4f8e0 2e 2c 77 30 3a 3d 31 32 2c 77 31 2c 77 32 3a 3d 36 37 29 3b 0a 20 20 20 20 20 20 74 65 73 74 6f ┆.,w0:=12,w1,w2:=67); testo┆
0x4f8e0…4f8fc 75 74 28 2e 77 33 2e 2c 77 30 3a 3d 32 32 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 6f ┆ut(.w3.,w0:=22,w1:=address(o┆
0x4f8fc…4f902 (0x324,0x9f3)
0x4f902…4f920 69 5f 6b 69 6e 64 29 2c 77 32 3a 3d 36 36 29 3b 0a 0a 20 20 20 20 20 20 77 30 3a 3d 20 6f ┆i_kind),w2:=66); w0:= o┆
0x4f920…4f940 61 5f 72 65 74 75 72 6e 3b 0a 20 20 20 20 20 20 77 31 3a 3d 20 6f 69 5f 6b 69 6e 64 3b 0a 20 20 ┆a_return; w1:= oi_kind; ┆
0x4f940…4f960 20 20 20 20 77 32 3a 3d 20 73 61 76 65 77 32 3b 0a 20 20 20 20 20 20 28 77 32 29 2e 77 6f 72 64 ┆ w2:= savew2; (w2).word┆
0x4f960…4f97a 3a 3d 20 77 33 3a 3d 20 6f 61 5f 6e 65 74 31 3b 0a 20 20 20 20 20 20 77 32 2b ┆:= w3:= oa_net1; w2+┆
0x4f97a…4f980 (0x324,0x9f4)
0x4f980…4f9a0 32 3b 0a 20 20 20 20 20 20 28 77 32 29 2e 77 6f 72 64 3a 3d 20 77 33 3a 3d 20 6f 61 5f 6e 65 74 ┆2; (w2).word:= w3:= oa_net┆
0x4f9a0…4f9c0 32 3b 0a 20 20 20 20 20 20 77 32 3a 3d 20 73 61 76 65 77 32 3b 0a 20 20 20 20 20 20 77 33 3a 3d ┆2; w2:= savew2; w3:=┆
0x4f9c0…4f9e0 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 65 6e 64 3b 0a 20 20 65 6e 64 3b 20 21 20 6c 6f 6f 6b 20 ┆ return; end; end; ! look ┆
0x4f9e0…4fa00 75 70 20 72 65 6d 6f 74 65 20 21 0a 0a 0a 0a 20 20 62 6f 64 79 20 6f 66 00 00 00 00 00 00 00 00 ┆up remote ! body of ┆
0x4fa00…4fa06 (637,) (0x324,0x9f5)
0x4fa06…4fa20 20 74 65 72 6d 69 6e 61 6c 69 64 0a 20 20 63 6f 6d 6d 65 6e 74 20 63 6f 6e 76 ┆ terminalid comment conv┆
0x4fa20…4fa40 65 72 74 20 64 65 76 69 63 65 68 6f 73 74 20 6c 69 6e 6b 6e 6f 20 74 6f 20 74 68 65 20 63 6f 72 ┆ert devicehost linkno to the cor┆
0x4fa40…4fa60 72 65 73 70 6f 6e 64 69 6e 67 20 64 65 76 69 63 65 6e 61 6d 65 2e 0a 20 20 2b 2b 2b 2b 2b 2b 2b ┆responding devicename. +++++++┆
0x4fa60…4fa7e 20 54 68 69 73 20 70 72 6f 63 65 64 75 72 65 20 65 78 69 73 74 73 20 6f 6e 6c 79 20 62 65 ┆ This procedure exists only be┆
0x4fa7e…4fa84 (0x324,0x9f6)
0x4fa84…4faa0 63 61 75 73 65 20 74 68 65 20 68 6f 73 74 20 70 72 6f 63 65 64 75 72 65 0a 20 20 2b ┆cause the host procedure +┆
0x4faa0…4fac0 2b 2b 2b 2b 2b 2b 20 6c 6f 6f 6b 75 70 20 6c 69 6e 6b 20 69 73 20 6e 6f 74 20 69 6d 70 6c 65 6d ┆++++++ lookup link is not implem┆
0x4fac0…4fae0 65 6e 74 65 64 20 79 65 74 2e 20 74 68 65 20 70 72 6f 63 65 64 75 72 65 20 69 73 20 76 65 72 79 ┆ented yet. the procedure is very┆
0x4fae0…4fafc 20 64 69 72 74 79 0a 20 20 2b 2b 2b 2b 2b 2b 2b 20 62 65 63 61 75 73 65 20 69 74 20 ┆ dirty +++++++ because it ┆
0x4fafc…4fb02 (0x324,0x9f7)
0x4fb02…4fb20 75 73 65 73 20 61 6e 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 61 6c 20 64 65 74 61 69 ┆uses an implementational detai┆
0x4fb20…4fb40 6c 20 69 6e 20 74 68 65 20 64 65 76 69 63 65 0a 20 20 2b 2b 2b 2b 2b 2b 2b 20 68 6f 73 74 20 3b ┆l in the device +++++++ host ;┆
0x4fb40…4fb60 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 69 6e 63 6f 64 65 0a 20 20 20 20 20 20 64 6f 75 62 6c 65 ┆ begin incode double┆
0x4fb60…4fb7a 20 73 61 76 65 66 31 3b 0a 20 20 20 20 20 20 77 6f 72 64 20 73 61 76 65 77 32 ┆ savef1; word savew2┆
0x4fb7a…4fb80 (0x324,0x9f8)
0x4fb80…4fba0 3b 0a 20 20 20 20 20 20 72 65 66 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 20 20 74 65 78 74 28 31 ┆; ref return; text(1┆
0x4fba0…4fbc0 31 29 20 74 65 72 6d 69 6e 61 6c 3a 3d 20 22 74 65 72 6d 69 6e 61 6c 22 3b 0a 20 20 20 20 62 65 ┆1) terminal:= "terminal"; be┆
0x4fbc0…4fbe0 67 69 6e 0a 20 20 20 20 20 20 73 61 76 65 66 31 3a 3d 20 66 31 3b 20 73 61 76 65 77 32 3a 3d 20 ┆gin savef1:= f1; savew2:= ┆
0x4fbe0…4fc00 77 32 3b 20 72 65 74 75 72 6e 3a 3d 20 77 33 3b 0a 0a 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆w2; return:= w3; ┆
0x4fc00…4fc06 (638,) (0x324,0x9f9)
0x4fc06…4fc20 77 30 2b 31 3b 20 21 20 64 65 76 69 63 65 6e 61 6d 65 20 3d 20 22 74 65 72 6d ┆w0+1; ! devicename = "term┆
0x4fc20…4fc40 69 6e 61 6c 22 20 63 6f 6e 63 61 74 20 74 65 78 74 28 64 65 76 69 63 65 68 6f 73 74 20 6c 69 6e ┆inal" concat text(devicehost lin┆
0x4fc40…4fc60 6b 6e 6f 20 2b 20 31 29 20 21 0a 20 20 20 20 20 20 77 33 3a 3d 20 30 3b 0a 20 20 20 20 20 20 66 ┆kno + 1) ! w3:= 0; f┆
0x4fc60…4fc7e 30 2f 2f 31 30 3b 0a 20 20 20 20 20 20 77 32 3a 3d 20 61 64 64 72 65 73 73 28 74 65 72 6d ┆0//10; w2:= address(term┆
0x4fc7e…4fc84 (0x324,0x9fa)
0x4fc84…4fca0 69 6e 61 6c 29 3b 0a 20 20 20 20 20 20 77 32 2b 34 3b 0a 20 20 20 20 20 20 69 66 20 ┆inal); w2+4; if ┆
0x4fca0…4fcc0 77 30 3d 30 20 74 68 65 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 28 77 ┆w0=0 then begin (w┆
0x4fcc0…4fce0 32 29 2e 77 6f 72 64 3a 3d 20 77 31 3a 3d 20 28 77 32 29 2e 77 6f 72 64 20 6c 73 68 69 66 74 20 ┆2).word:= w1:= (w2).word lshift ┆
0x4fce0…4fcfc 2d 38 20 6c 73 68 69 66 74 20 38 20 2b 20 34 38 20 2b 20 77 33 3b 0a 20 20 20 20 20 ┆-8 lshift 8 + 48 + w3; ┆
0x4fcfc…4fd02 (0x324,0x9fb)
0x4fd02…4fd20 20 20 20 77 32 2b 32 3b 0a 20 20 20 20 20 20 20 20 28 77 32 29 2e 77 6f 72 64 3a 3d 20 77 ┆ w2+2; (w2).word:= w┆
0x4fd20…4fd40 31 3a 3d 20 30 3b 0a 20 20 20 20 20 20 65 6e 64 0a 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 ┆1:= 0; end else ┆
0x4fd40…4fd60 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 28 77 32 29 2e 77 6f 72 64 3a 3d 20 77 31 3a 3d ┆ begin (w2).word:= w1:=┆
0x4fd60…4fd7a 20 28 77 32 29 2e 77 6f 72 64 20 6c 73 68 69 66 74 20 2d 38 20 6c 73 68 69 66 ┆ (w2).word lshift -8 lshif┆
0x4fd7a…4fd80 (0x324,0x9fc)
0x4fd80…4fda0 74 20 38 20 2b 20 34 38 20 2b 20 77 30 3b 0a 20 20 20 20 20 20 20 20 77 32 2b 32 3b 0a 20 20 20 ┆t 8 + 48 + w0; w2+2; ┆
0x4fda0…4fdc0 20 20 20 20 20 28 77 32 29 2e 77 6f 72 64 3a 3d 20 77 31 3a 3d 20 77 33 2b 34 38 20 6c 73 68 69 ┆ (w2).word:= w1:= w3+48 lshi┆
0x4fdc0…4fde0 66 74 20 31 36 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 6d 6f 76 65 28 2e 77 33 ┆ft 16; end; move(.w3┆
0x4fde0…4fe00 2e 2c 77 30 3a 3d 38 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 74 65 72 6d 00 00 00 00 00 00 00 00 ┆.,w0:=8,w1:=address(term ┆
0x4fe00…4fe06 (639,) (0x324,0x9fd)
0x4fe06…4fe20 69 6e 61 6c 29 2c 77 32 3a 3d 73 61 76 65 77 32 29 3b 0a 0a 20 20 20 20 20 20 ┆inal),w2:=savew2); ┆
0x4fe20…4fe40 66 31 3a 3d 20 73 61 76 65 66 31 3b 20 77 33 3a 3d 20 62 2e 63 75 72 72 65 6e 74 3b 0a 20 20 20 ┆f1:= savef1; w3:= b.current; ┆
0x4fe40…4fe60 20 20 20 63 61 6c 6c 20 77 30 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 65 6e 64 3b 0a 20 20 65 6e ┆ call w0 return; end; en┆
0x4fe60…4fe7e 64 3b 0a 0a 0a 20 20 62 6f 64 79 20 6f 66 20 77 72 69 74 65 69 6e 74 65 67 65 72 0a 20 20 ┆d; body of writeinteger ┆
0x4fe7e…4fe84 (0x324,0x9fe)
0x4fe84…4fea0 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 0a 20 20 20 20 20 20 20 20 77 33 3a 20 63 75 ┆begin comment w3: cu┆
0x4fea0…4fec0 72 72 65 6e 74 20 28 72 65 74 75 72 6e 29 0a 20 20 20 20 20 20 20 20 77 30 3a 20 76 61 6c 75 65 ┆rrent (return) w0: value┆
0x4fec0…4fee0 20 28 63 61 6c 6c 2f 72 65 74 75 72 6e 29 0a 20 20 20 20 20 20 20 20 77 31 3a 20 72 65 66 2e 20 ┆ (call/return) w1: ref. ┆
0x4fee0…4fefc 73 74 72 69 6e 67 20 28 63 61 6c 6c 2f 72 65 74 75 72 6e 29 0a 20 20 20 20 20 20 20 ┆string (call/return) ┆
0x4fefc…4ff02 (0x324,0x9ff)
0x4ff02…4ff20 20 77 32 3a 20 72 61 64 69 78 20 73 68 69 66 74 20 31 36 20 2b 20 70 6f 73 69 74 69 6f 6e ┆ w2: radix shift 16 + position┆
0x4ff20…4ff40 73 20 73 68 69 66 74 20 38 20 2b 20 66 69 6c 6c 20 63 68 61 72 20 28 63 61 6c 6c 2f 72 65 74 75 ┆s shift 8 + fill char (call/retu┆
0x4ff40…4ff60 72 6e 29 3b 0a 0a 20 20 20 20 69 6e 63 6f 64 65 0a 20 20 20 20 72 65 66 20 72 65 74 75 72 6e 2c ┆rn); incode ref return,┆
0x4ff60…4ff7a 0a 20 20 20 20 20 20 20 20 74 78 74 72 65 66 3b 0a 20 20 20 20 20 20 20 20 77 ┆ txtref; w┆
0x4ff7a…4ff80 (0x324,0xa00)
0x4ff80…4ffa0 6f 72 64 20 73 61 76 65 77 32 3b 0a 20 20 20 20 20 20 20 20 77 6f 72 64 20 73 61 76 65 77 30 3b ┆ord savew2; word savew0;┆
0x4ffa0…4ffc0 0a 20 20 20 20 20 20 20 20 77 6f 72 64 20 66 69 6c 6c 3b 0a 20 20 20 20 20 20 20 20 77 6f 72 64 ┆ word fill; word┆
0x4ffc0…4ffe0 20 72 61 64 69 78 3b 0a 20 20 20 20 20 20 20 20 77 6f 72 64 20 70 6f 73 69 74 3b 0a 20 20 20 20 ┆ radix; word posit; ┆
0x4ffe0…50000 20 20 20 20 77 6f 72 64 20 69 6e 64 65 78 3b 0a 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ word index; ┆
0x50000…50006 (640,) (0x324,0xa01)
0x50006…50020 77 6f 72 64 20 73 69 67 6e 3b 0a 20 20 20 20 20 20 20 20 61 72 72 61 79 20 28 ┆word sign; array (┆
0x50020…50040 31 3a 32 34 29 20 64 69 67 69 74 20 6f 66 20 62 79 74 65 3b 0a 20 20 20 20 62 65 67 69 6e 0a 0a ┆1:24) digit of byte; begin ┆
0x50040…50060 20 20 20 20 20 20 72 65 74 75 72 6e 3a 3d 20 77 33 3b 0a 20 20 20 20 20 20 73 61 76 65 77 32 3a ┆ return:= w3; savew2:┆
0x50060…5007e 3d 20 77 32 3b 0a 20 20 20 20 20 20 74 78 74 72 65 66 3a 3d 20 77 31 3b 0a 20 20 20 20 20 ┆= w2; txtref:= w1; ┆
0x5007e…50084 (0x324,0xa02)
0x50084…500a0 20 73 61 76 65 77 30 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 66 69 6c 6c 3a 3d 20 77 ┆ savew0:= w0; fill:= w┆
0x500a0…500c0 32 20 65 78 74 72 61 63 74 20 38 3b 0a 20 20 20 20 20 20 70 6f 73 69 74 3a 3d 20 77 32 3a 3d 73 ┆2 extract 8; posit:= w2:=s┆
0x500c0…500e0 61 76 65 77 32 20 6c 73 68 69 66 74 20 2d 38 20 65 78 74 72 61 63 74 20 38 3b 0a 20 20 20 20 20 ┆avew2 lshift -8 extract 8; ┆
0x500e0…500fc 20 72 61 64 69 78 3a 3d 20 77 32 3a 3d 73 61 76 65 77 32 20 6c 73 68 69 66 74 20 2d ┆ radix:= w2:=savew2 lshift -┆
0x500fc…50102 (0x324,0xa03)
0x50102…50120 31 36 20 65 78 74 72 61 63 74 20 38 3b 0a 0a 20 20 20 20 20 20 69 66 20 77 32 3a 3d 72 61 ┆16 extract 8; if w2:=ra┆
0x50120…50140 64 69 78 3d 31 30 20 74 68 65 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 ┆dix=10 then begin ┆
0x50140…50160 69 66 20 77 30 3c 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 ┆if w0<0 then begin ┆
0x50160…5017a 20 20 20 20 20 77 31 3a 3d 20 34 35 3b 0a 20 20 20 20 20 20 20 20 20 20 2d 28 ┆ w1:= 45; -(┆
0x5017a…50180 (0x324,0xa04)
0x50180…501a0 77 30 29 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 20 65 6c 73 65 20 77 31 3a 3d 20 66 69 6c 6c 3b ┆w0); end else w1:= fill;┆
0x501a0…501c0 0a 20 20 20 20 20 20 65 6e 64 20 65 6c 73 65 20 77 31 3a 3d 20 66 69 6c 6c 3b 0a 0a 20 20 20 20 ┆ end else w1:= fill; ┆
0x501c0…501e0 20 20 73 69 67 6e 3a 3d 20 77 31 3b 0a 0a 20 20 20 20 20 20 66 6f 72 20 77 32 3a 3d 20 70 6f 73 ┆ sign:= w1; for w2:= pos┆
0x501e0…50200 69 74 20 73 74 65 70 20 31 20 64 6f 77 6e 74 6f 20 31 20 64 6f 0a 20 20 00 00 00 00 00 00 00 00 ┆it step 1 downto 1 do ┆
0x50200…50206 (641,) (0x324,0xa05)
0x50206…50220 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 69 6e 64 65 78 3a 3d 20 ┆ begin index:= ┆
0x50220…50240 77 32 3b 0a 20 20 20 20 20 20 20 20 77 33 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 66 30 2f 2f ┆w2; w3:= 0; f0//┆
0x50240…50260 72 61 64 69 78 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 33 3d 30 20 74 68 65 6e 0a 20 20 20 20 ┆radix; if w3=0 then ┆
0x50260…5027e 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3d 30 20 74 68 ┆ begin if w0=0 th┆
0x5027e…50284 (0x324,0xa06)
0x50284…502a0 65 6e 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 ┆en begin ┆
0x502a0…502c0 20 20 20 69 66 20 77 32 3d 70 6f 73 69 74 20 74 68 65 6e 20 77 33 3a 3d 34 38 20 65 6c 73 65 0a ┆ if w2=posit then w3:=48 else ┆
0x502c0…502e0 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ begin ┆
0x502e0…502fc 77 33 3a 3d 73 69 67 6e 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 69 67 6e ┆w3:=sign; sign┆
0x502fc…50302 (0x324,0xa07)
0x50302…50320 3a 3d 20 77 31 3a 3d 20 66 69 6c 6c 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b ┆:= w1:= fill; end;┆
0x50320…50340 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 20 65 6c 73 65 20 77 33 3a 3d 20 34 38 3b 0a 20 20 20 ┆ end else w3:= 48; ┆
0x50340…50360 20 20 20 20 20 65 6e 64 20 65 6c 73 65 20 69 66 20 77 33 3e 39 20 74 68 65 6e 20 77 33 2b 35 35 ┆ end else if w3>9 then w3+55┆
0x50360…5037a 20 65 6c 73 65 20 77 33 2b 34 38 3b 0a 20 20 20 20 20 20 20 20 28 64 69 67 69 ┆ else w3+48; (digi┆
0x5037a…50380 (0x324,0xa08)
0x50380…503a0 74 28 77 32 29 29 2e 62 79 74 65 3a 3d 20 77 33 3b 0a 20 20 20 20 20 20 20 20 0a 20 20 20 20 20 ┆t(w2)).byte:= w3; ┆
0x503a0…503c0 20 20 20 77 32 3a 3d 20 69 6e 64 65 78 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 ┆ w2:= index; end; ┆
0x503c0…503e0 69 66 20 77 30 3c 3e 30 20 74 68 65 6e 20 28 64 69 67 69 74 28 77 32 3a 3d 31 29 29 2e 62 79 74 ┆if w0<>0 then (digit(w2:=1)).byt┆
0x503e0…50400 65 3a 3d 20 77 30 3a 3d 34 32 3b 0a 0a 20 20 20 20 20 20 77 31 3a 3d 20 00 00 00 00 00 00 00 00 ┆e:= w0:=42; w1:= ┆
0x50400…50406 (642,) (0x324,0xa09)
0x50406…50420 74 78 74 72 65 66 2d 32 3b 0a 20 20 20 20 20 20 66 6f 72 20 77 33 3a 3d 20 31 ┆txtref-2; for w3:= 1┆
0x50420…50440 20 73 74 65 70 20 31 20 75 70 74 6f 20 70 6f 73 69 74 20 64 6f 0a 20 20 20 20 20 20 62 65 67 69 ┆ step 1 upto posit do begi┆
0x50440…50460 6e 0a 20 20 20 20 20 20 20 20 69 6e 64 65 78 3a 3d 20 77 33 3b 0a 20 20 20 20 20 20 20 20 77 30 ┆n index:= w3; w0┆
0x50460…5047e 3a 3d 20 28 64 69 67 69 74 28 77 33 29 29 2e 62 79 74 65 3b 0a 20 20 20 20 20 20 20 20 77 ┆:= (digit(w3)).byte; w┆
0x5047e…50484 (0x324,0xa0a)
0x50484…504a0 33 3a 3d 20 69 6e 64 65 78 3b 0a 20 20 20 20 20 20 20 20 77 32 3a 3d 30 3b 0a 20 20 ┆3:= index; w2:=0; ┆
0x504a0…504c0 20 20 20 20 20 20 66 33 2f 2f 33 3b 0a 20 20 20 20 20 20 20 20 63 61 73 65 20 77 32 2b 31 20 6f ┆ f3//3; case w2+1 o┆
0x504c0…504e0 66 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 77 ┆f begin (w1).w┆
0x504e0…504fc 6f 72 64 3a 3d 20 77 30 2b 28 77 31 29 2e 77 6f 72 64 3b 0a 20 20 20 20 20 20 20 20 ┆ord:= w0+(w1).word; ┆
0x504fc…50502 (0x324,0xa0b)
0x50502…50520 20 20 28 77 31 2b 32 29 2e 77 6f 72 64 3a 3d 20 77 30 20 6c 73 68 69 66 74 20 31 36 3b 0a ┆ (w1+2).word:= w0 lshift 16; ┆
0x50520…50540 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 77 6f 72 64 3a 3d 20 77 30 20 6c 73 68 69 66 74 20 ┆ (w1).word:= w0 lshift ┆
0x50540…50560 38 2b 28 77 31 29 2e 77 6f 72 64 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 ┆8+(w1).word; end; ┆
0x50560…5057a 20 20 77 33 3a 3d 20 69 6e 64 65 78 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 ┆ w3:= index; end; ┆
0x5057a…50580 (0x324,0xa0c)
0x50580…505a0 20 20 20 20 20 77 33 3a 3d 30 3b 77 30 3a 3d 70 6f 73 69 74 3b 0a 20 20 20 20 20 20 66 30 2f 2f ┆ w3:=0;w0:=posit; f0//┆
0x505a0…505c0 33 3b 0a 20 20 20 20 20 20 69 66 20 77 33 3d 30 20 74 68 65 6e 20 28 77 31 2b 32 29 2e 77 6f 72 ┆3; if w3=0 then (w1+2).wor┆
0x505c0…505e0 64 3a 3d 20 77 33 3b 0a 20 20 20 20 20 20 77 30 3a 3d 73 61 76 65 77 30 3b 0a 20 20 20 20 20 20 ┆d:= w3; w0:=savew0; ┆
0x505e0…50600 77 32 3a 3d 73 61 76 65 77 32 3b 0a 20 20 20 20 20 20 77 31 3a 3d 20 74 00 00 00 00 00 00 00 00 ┆w2:=savew2; w1:= t ┆
0x50600…50606 (643,) (0x324,0xa0d)
0x50606…50620 78 74 72 65 66 3b 0a 20 20 20 20 20 20 77 33 3a 3d 20 62 2e 63 75 72 72 65 6e ┆xtref; w3:= b.curren┆
0x50620…50640 74 3b 0a 20 20 20 20 20 20 63 61 6c 6c 20 77 30 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 65 6e 64 ┆t; call w0 return; end┆
0x50640…50660 3b 0a 20 20 65 6e 64 3b 20 21 20 77 72 69 74 65 69 6e 74 65 67 65 72 20 21 0a 0a 20 20 62 6f 64 ┆; end; ! writeinteger ! bod┆
0x50660…5067e 79 20 6f 66 20 6f 75 74 6d 61 69 6e 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 6c 61 62 65 6c ┆y of outmain begin label┆
0x5067e…50684 (0x324,0xa0e)
0x50684…506a0 20 72 65 70 5f 6d 61 69 6e 3b 0a 20 20 20 20 69 6e 63 6f 64 65 0a 20 20 20 20 20 20 ┆ rep_main; incode ┆
0x506a0…506c0 72 65 66 20 20 72 65 74 75 72 6e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 62 75 66 72 65 66 3b 0a ┆ref return, bufref; ┆
0x506c0…506e0 20 20 20 20 20 20 77 6f 72 64 20 73 69 7a 65 2c 20 73 74 61 74 75 73 3b 0a 20 20 20 20 20 20 62 ┆ word size, status; b┆
0x506e0…506fc 79 74 65 20 6d 61 69 6e 5f 6f 70 3a 3d 20 35 2c 20 6d 61 69 6e 5f 6d 64 3a 3d 20 30 ┆yte main_op:= 5, main_md:= 0┆
0x506fc…50702 (0x324,0xa0f)
0x50702…50720 3b 20 21 20 6f 75 74 70 75 74 20 6f 70 65 72 61 74 69 6f 6e 20 21 0a 20 20 20 20 20 20 77 ┆; ! output operation ! w┆
0x50720…50740 6f 72 64 20 6d 61 69 6e 5f 66 73 2c 20 20 20 20 20 20 20 20 20 20 21 20 66 69 72 73 74 20 61 64 ┆ord main_fs, ! first ad┆
0x50740…50760 64 72 65 73 73 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 6d 61 69 6e 5f 6c 73 3b 20 20 ┆dress ! main_ls; ┆
0x50760…5077a 20 20 20 20 20 20 20 20 21 20 6c 61 73 74 20 20 61 64 64 72 65 73 73 20 20 20 ┆ ! last address ┆
0x5077a…50780 (0x324,0xa10)
0x50780…507a0 20 21 0a 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 69 66 20 77 30 3a 3d 20 62 2e 6f 70 ┆ ! begin if w0:= b.op┆
0x507a0…507c0 72 74 64 65 74 61 69 6c 73 20 7a 65 72 6f 6d 61 73 6b 20 32 27 30 31 30 20 74 68 65 6e 0a 20 20 ┆rtdetails zeromask 2'010 then ┆
0x507c0…507e0 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 6e 6f 20 6f 75 74 70 75 74 20 74 6f 20 6d ┆ begin comment no output to m┆
0x507e0…50800 61 69 6e 20 6f 70 65 72 61 74 6f 72 3b 0a 20 20 20 20 20 20 20 20 72 65 00 00 00 00 00 00 00 00 ┆ain operator; re ┆
0x50800…50806 (644,) (0x324,0xa11)
0x50806…50820 74 75 72 6e 3a 3d 20 77 33 3b 0a 20 20 20 20 20 20 20 20 77 33 3a 3d 20 62 2e ┆turn:= w3; w3:= b.┆
0x50820…50840 63 75 72 72 65 6e 74 3b 0a 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 68 6f 6c 64 3a 3d 20 ┆current; (w3).tc_hold:= ┆
0x50840…50860 77 30 3a 3d 20 30 3b 20 21 20 64 6f 6e 74 20 68 6f 6c 64 20 21 0a 20 20 20 20 20 20 20 20 77 32 ┆w0:= 0; ! dont hold ! w2┆
0x50860…5087e 3a 3d 20 32 3b 20 21 20 6e 6f 72 6d 61 6c 20 61 6e 73 77 65 72 20 21 0a 20 20 20 20 20 20 ┆:= 2; ! normal answer ! ┆
0x5087e…50884 (0x324,0xa12)
0x50884…508a0 20 20 63 61 6c 6c 20 77 30 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 20 20 65 6e 64 3b ┆ call w0 return; end;┆
0x508a0…508c0 0a 20 20 20 20 20 20 72 65 74 75 72 6e 3a 3d 20 77 33 3b 0a 20 20 20 20 20 20 62 75 66 72 65 66 ┆ return:= w3; bufref┆
0x508c0…508e0 3a 3d 20 77 31 3b 0a 72 65 70 5f 6d 61 69 6e 3a 0a 20 20 20 20 20 20 70 75 73 68 28 2e 77 33 2e ┆:= w1; rep_main: push(.w3.┆
0x508e0…508fc 2c 77 30 3a 3d 72 65 74 75 72 6e 29 3b 20 21 20 73 61 76 65 20 72 65 74 75 72 6e 20 ┆,w0:=return); ! save return ┆
0x508fc…50902 (0x324,0xa13)
0x50902…50920 21 0a 20 20 20 20 20 20 70 75 73 68 28 2e 77 33 2e 2c 77 30 3a 3d 62 75 66 72 65 66 29 3b ┆! push(.w3.,w0:=bufref);┆
0x50920…50940 20 21 20 73 61 76 65 20 62 75 66 72 65 66 20 21 0a 0a 20 20 20 20 20 20 6d 6f 76 65 28 2e 77 33 ┆ ! save bufref ! move(.w3┆
0x50940…50960 2e 2c 77 30 3a 3d 36 2c 77 31 3a 3d 62 75 66 72 65 66 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 6d ┆.,w0:=6,w1:=bufref,w2:=address(m┆
0x50960…5097a 61 69 6e 5f 6f 70 29 29 3b 0a 20 20 20 20 20 20 73 69 7a 65 3a 3d 20 77 30 3a ┆ain_op)); size:= w0:┆
0x5097a…50980 (0x324,0xa14)
0x50980…509a0 3d 20 6d 61 69 6e 5f 6c 73 2d 6d 61 69 6e 5f 66 73 2b 32 3b 0a 20 20 20 20 20 20 70 75 73 68 28 ┆= main_ls-main_fs+2; push(┆
0x509a0…509c0 2e 77 33 2e 2c 77 30 3a 3d 73 69 7a 65 29 3b 0a 20 20 20 20 20 20 77 32 3a 3d 61 64 64 72 65 73 ┆.w3.,w0:=size); w2:=addres┆
0x509c0…509e0 73 28 62 2e 6d 61 69 6e 5f 6f 70 65 72 61 74 6f 72 29 3b 0a 20 20 20 20 20 20 73 65 6e 64 77 61 ┆s(b.main_operator); sendwa┆
0x509e0…50a00 69 74 28 2e 77 33 2e 2c 77 30 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 6d 00 00 00 00 00 00 00 00 ┆it(.w3.,w0,w1:=address(m ┆
0x50a00…50a06 (645,) (0x324,0xa15)
0x50a06…50a20 61 69 6e 5f 6f 70 29 2c 77 32 29 3b 0a 20 20 20 20 20 20 77 31 3a 3d 20 31 20 ┆ain_op),w2); w1:= 1 ┆
0x50a20…50a40 6c 73 68 69 66 74 20 77 30 3b 0a 20 20 20 20 20 20 69 66 20 77 31 3d 32 20 74 68 65 6e 20 77 31 ┆lshift w0; if w1=2 then w1┆
0x50a40…50a60 20 6f 72 20 62 2e 61 6e 73 5f 73 74 61 74 75 73 3b 0a 20 20 20 20 20 20 73 74 61 74 75 73 3a 3d ┆ or b.ans_status; status:=┆
0x50a60…50a7e 20 77 31 3b 0a 20 20 20 20 20 20 70 6f 70 28 2e 77 33 2e 2c 77 30 29 3b 73 69 7a 65 3a 3d ┆ w1; pop(.w3.,w0);size:=┆
0x50a7e…50a84 (0x324,0xa16)
0x50a84…50aa0 20 77 30 3b 0a 20 20 20 20 20 20 70 6f 70 28 2e 77 33 2e 2c 77 30 29 3b 62 75 66 72 ┆ w0; pop(.w3.,w0);bufr┆
0x50aa0…50ac0 65 66 3a 3d 77 30 3b 0a 20 20 20 20 20 20 70 6f 70 28 2e 77 33 2e 2c 77 30 29 3b 72 65 74 75 72 ┆ef:=w0; pop(.w3.,w0);retur┆
0x50ac0…50ae0 6e 3a 3d 77 30 3b 0a 20 20 20 20 20 20 69 66 20 77 31 20 61 6e 64 20 32 3c 3e 30 20 21 20 6e 6f ┆n:=w0; if w1 and 2<>0 ! no┆
0x50ae0…50afc 72 6d 61 6c 20 61 6e 73 77 65 72 20 21 20 74 68 65 6e 20 77 30 3a 3d 20 62 2e 61 6e ┆rmal answer ! then w0:= b.an┆
0x50afc…50b02 (0x324,0xa17)
0x50b02…50b20 73 5f 62 79 74 65 73 20 65 6c 73 65 20 77 30 3a 3d 2d 31 3b 0a 20 20 20 20 20 20 69 66 20 ┆s_bytes else w0:=-1; if ┆
0x50b20…50b40 77 30 3c 73 69 7a 65 20 74 68 65 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 ┆w0<size then begin ┆
0x50b40…50b60 20 69 66 20 77 31 3a 3d 20 73 74 61 74 75 73 20 61 6e 64 20 32 27 31 31 30 30 30 30 3c 3e 30 20 ┆ if w1:= status and 2'110000<>0 ┆
0x50b60…50b7a 21 20 64 6f 65 73 20 6e 6f 74 20 65 78 69 73 74 2c 20 64 69 63 63 6f 6e 6e 65 ┆! does not exist, dicconne┆
0x50b7a…50b80 (0x324,0xa18)
0x50b80…50ba0 63 74 65 64 20 21 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 ┆cted ! then begin ┆
0x50ba0…50bc0 20 20 20 20 6c 69 6e 6b 75 70 72 65 6d 6f 74 65 28 2e 77 33 2e 2c 77 30 3a 3d 38 2c 77 30 3a 3d ┆ linkupremote(.w3.,w0:=8,w0:=┆
0x50bc0…50be0 62 2e 70 72 6f 63 5f 68 6e 6f 2c 77 30 3a 3d 62 2e 70 72 6f 63 5f 68 69 64 2c 0a 20 20 20 20 20 ┆b.proc_hno,w0:=b.proc_hid, ┆
0x50be0…50c00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 00 00 00 00 00 00 00 00 ┆ w ┆
0x50c00…50c06 (646,) (0x324,0xa19)
0x50c06…50c20 30 3a 3d 61 64 64 72 65 73 73 28 62 2e 70 72 6f 63 5f 64 65 76 6e 61 6d 65 29 ┆0:=address(b.proc_devname)┆
0x50c20…50c40 2c 77 30 2c 77 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3d 34 30 39 36 20 21 20 ┆,w0,w2); if w0=4096 ! ┆
0x50c40…50c60 63 72 65 61 74 65 64 20 21 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 ┆created ! then begin ┆
0x50c60…50c7e 20 20 20 20 20 20 20 20 20 20 20 6d 6f 76 65 28 2e 77 33 2e 2c 77 30 3a 3d 38 2c 77 31 3a ┆ move(.w3.,w0:=8,w1:┆
0x50c7e…50c84 (0x324,0xa1a)
0x50c84…50ca0 3d 77 32 2b 32 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 62 2e 6d 61 69 6e 5f 6f 70 65 ┆=w2+2,w2:=address(b.main_ope┆
0x50ca0…50cc0 72 61 74 6f 72 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 72 65 70 5f 6d 61 ┆rator)); goto rep_ma┆
0x50cc0…50ce0 69 6e 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 20 65 ┆in; end; end e┆
0x50ce0…50cfc 6c 73 65 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 ┆lse begin ┆
0x50cfc…50d02 (0x324,0xa1b)
0x50d02…50d20 69 66 20 77 30 3e 3d 30 20 74 68 65 6e 20 67 6f 74 6f 20 72 65 70 5f 6d 61 69 6e 3b 0a 20 ┆if w0>=0 then goto rep_main; ┆
0x50d20…50d40 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 77 30 3a ┆ end; end; w0:┆
0x50d40…50d60 3d 73 69 7a 65 3b 0a 20 20 20 20 20 20 77 32 3a 3d 73 74 61 74 75 73 3b 0a 20 20 20 20 20 20 77 ┆=size; w2:=status; w┆
0x50d60…50d7a 31 3a 3d 62 75 66 72 65 66 3b 0a 20 20 20 20 20 20 77 33 3a 3d 62 2e 63 75 72 ┆1:=bufref; w3:=b.cur┆
0x50d7a…50d80 (0x324,0xa1c)
0x50d80…50da0 72 65 6e 74 3b 0a 20 20 20 20 20 20 63 61 6c 6c 20 77 30 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 ┆rent; call w0 return; ┆
0x50da0…50dc0 65 6e 64 3b 0a 20 20 65 6e 64 3b 20 21 20 65 6e 64 20 6f 75 74 6d 61 69 6e 20 21 0a 0a 0a 0a 21 ┆end; end; ! end outmain ! !┆
0x50dc0…50de0 62 72 61 6e 63 68 20 31 2c 32 3b 0a 0a 20 20 62 6f 64 79 20 6f 66 20 69 6e 69 74 0a 20 20 62 65 ┆branch 1,2; body of init be┆
0x50de0…50e00 67 69 6e 0a 20 20 20 20 6c 61 62 65 6c 20 61 6c 6c 6f 63 61 74 65 2c 69 00 00 00 00 00 00 00 00 ┆gin label allocate,i ┆
0x50e00…50e06 (647,) (0x324,0xa1d)
0x50e06…50e20 6e 69 74 62 75 66 73 3b 0a 20 20 20 20 69 6e 63 6f 64 65 0a 20 20 20 20 20 20 ┆nitbufs; incode ┆
0x50e20…50e40 72 65 66 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 20 20 62 79 74 65 20 6f 70 76 65 72 73 69 6f 6e ┆ref return; byte opversion┆
0x50e40…50e60 3a 3d 31 36 2c 6d 6f 64 65 76 65 72 73 69 6f 6e 3a 3d 20 38 27 30 31 34 30 3b 0a 20 20 20 20 20 ┆:=16,modeversion:= 8'0140; ┆
0x50e60…50e7e 20 74 65 78 74 28 31 34 29 20 74 65 78 74 76 65 72 73 69 6f 6e 3a 3d 0a 20 20 20 20 20 20 ┆ text(14) textversion:= ┆
0x50e7e…50e84 (0x324,0xa1e)
0x50e84…50ea0 21 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 2a 20 70 72 69 6d 6f 20 2a 2a 2a ┆! *** primo ***┆
0x50ea0…50ec0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 22 72 65 6c 65 61 73 65 3a 20 35 2e 30 ┆ ! "release: 5.0┆
0x50ec0…50ee0 22 0a 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 77 6f 72 64 0a 20 20 20 20 20 20 21 20 64 61 74 ┆" ; word ! dat┆
0x50ee0…50efc 65 20 6f 66 20 76 65 72 73 69 6f 6e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆e of version ┆
0x50efc…50f02 (0x324,0xa1f)
0x50f02…50f20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 76 65 72 64 61 74 65 3a 3d 20 20 20 20 38 35 ┆ ! verdate:= 85┆
0x50f20…50f40 30 38 30 31 2c 0a 0a 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 3d 3d 3d 74 72 69 6d 73 74 61 72 ┆0801, comment ===trimstar┆
0x50f40…50f60 74 3b 0a 20 20 20 20 20 20 21 20 64 61 74 65 20 6f 66 20 6f 70 74 69 6f 6e 73 20 20 20 20 20 20 ┆t; ! date of options ┆
0x50f60…50f7a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 6f ┆ ! o┆
0x50f7a…50f80 (0x324,0xa20)
0x50f80…50fa0 70 74 69 6f 6e 73 20 20 20 20 20 20 3a 3d 20 20 20 30 2c 0a 20 20 20 20 20 20 21 20 6e 75 6d 62 ┆ptions := 0, ! numb┆
0x50fa0…50fc0 65 72 20 6f 66 20 70 72 69 6e 74 65 72 20 63 6f 72 6f 75 74 69 6e 65 73 20 20 20 20 20 20 20 20 ┆er of printer coroutines ┆
0x50fc0…50fe0 20 20 20 20 20 20 20 20 21 20 70 72 63 6f 75 6e 74 20 20 20 20 20 20 3a 3d 20 20 20 33 2c 0a 20 ┆ ! prcount := 3, ┆
0x50fe0…51000 20 20 20 20 20 21 20 73 69 7a 65 20 6f 66 20 70 72 69 6e 74 65 72 20 62 00 00 00 00 00 00 00 00 ┆ ! size of printer b ┆
0x51000…51006 (648,) (0x324,0xa21)
0x51006…51020 75 66 66 65 72 20 28 68 61 6c 66 77 6f 72 64 73 29 20 20 20 20 20 20 20 20 20 ┆uffer (halfwords) ┆
0x51020…51040 20 21 20 70 72 62 75 66 73 69 7a 65 20 20 20 20 3a 3d 20 31 32 38 2c 0a 20 20 20 20 20 20 21 20 ┆ ! prbufsize := 128, ! ┆
0x51040…51060 6c 65 61 64 69 6e 67 20 61 6e 64 20 74 72 61 69 6c 69 6e 67 20 70 61 67 65 20 6f 6e 20 70 72 69 ┆leading and trailing page on pri┆
0x51060…5107e 6e 74 65 72 20 6c 69 73 74 73 20 20 21 20 70 72 6c 74 70 61 67 65 20 20 20 20 20 3a 3d 20 ┆nter lists ! prltpage := ┆
0x5107e…51084 (0x324,0xa22)
0x51084…510a0 20 20 31 2c 0a 20 20 20 20 20 20 21 20 6d 61 78 20 6c 69 6e 65 73 20 70 72 20 70 72 ┆ 1, ! max lines pr pr┆
0x510a0…510c0 69 6e 74 65 72 20 70 61 67 65 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 70 ┆inter page ! p┆
0x510c0…510e0 72 6c 69 6e 65 70 61 67 65 20 20 20 3a 3d 20 31 30 30 2c 0a 20 20 20 20 20 20 21 20 6e 75 6d 62 ┆rlinepage := 100, ! numb┆
0x510e0…510fc 65 72 20 6f 66 20 70 75 6e 63 68 20 63 6f 72 6f 75 74 69 6e 65 73 20 20 20 20 20 20 ┆er of punch coroutines ┆
0x510fc…51102 (0x324,0xa23)
0x51102…51120 20 20 20 20 20 20 20 20 20 20 20 20 21 20 70 63 63 6f 75 6e 74 20 20 20 20 20 20 3a 3d 20 ┆ ! pccount := ┆
0x51120…51140 20 20 31 2c 0a 20 20 20 20 20 20 21 20 73 69 7a 65 20 6f 66 20 70 75 6e 63 68 20 62 75 66 66 65 ┆ 1, ! size of punch buffe┆
0x51140…51160 72 20 28 68 61 6c 66 77 6f 72 64 73 29 20 20 20 20 20 20 20 20 20 20 20 20 21 20 70 63 62 75 66 ┆r (halfwords) ! pcbuf┆
0x51160…5117a 73 69 7a 65 20 20 20 20 3a 3d 20 31 32 38 2c 0a 20 20 20 20 20 20 21 20 6e 75 ┆size := 128, ! nu┆
0x5117a…51180 (0x324,0xa24)
0x51180…511a0 6d 62 65 72 20 6f 66 20 72 65 61 64 65 72 20 63 6f 72 6f 75 74 69 6e 65 73 20 20 20 20 20 20 20 ┆mber of reader coroutines ┆
0x511a0…511c0 20 20 20 20 20 20 20 20 20 20 21 20 72 64 63 6f 75 6e 74 20 20 20 20 20 20 3a 3d 20 20 20 31 2c ┆ ! rdcount := 1,┆
0x511c0…511e0 0a 20 20 20 20 20 20 21 20 73 69 7a 65 20 6f 66 20 72 65 61 64 65 72 20 62 75 66 66 65 72 20 28 ┆ ! size of reader buffer (┆
0x511e0…51200 68 61 6c 66 77 6f 72 64 73 29 20 20 20 20 20 20 20 20 20 20 20 21 20 72 00 00 00 00 00 00 00 00 ┆halfwords) ! r ┆
0x51200…51206 (649,) (0x324,0xa25)
0x51206…51220 64 62 75 66 73 69 7a 65 20 20 20 20 3a 3d 20 31 32 38 2c 0a 20 20 20 20 20 20 ┆dbufsize := 128, ┆
0x51220…51240 21 20 6e 75 6d 62 65 72 20 6f 66 20 63 61 72 64 72 65 61 64 65 72 20 63 6f 72 6f 75 74 69 6e 65 ┆! number of cardreader coroutine┆
0x51240…51260 73 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 63 64 63 6f 75 6e 74 20 20 20 20 20 20 3a 3d 20 ┆s ! cdcount := ┆
0x51260…5127e 20 20 31 2c 0a 20 20 20 20 20 20 21 20 73 69 7a 65 20 6f 66 20 63 61 72 64 72 65 61 64 65 ┆ 1, ! size of cardreade┆
0x5127e…51284 (0x324,0xa26)
0x51284…512a0 72 20 62 75 66 66 65 72 20 28 68 61 6c 66 77 6f 72 64 73 29 20 20 20 20 20 20 20 21 ┆r buffer (halfwords) !┆
0x512a0…512c0 20 63 64 62 75 66 73 69 7a 65 20 20 20 20 3a 3d 20 31 30 38 2c 0a 20 20 20 20 20 20 21 20 6e 75 ┆ cdbufsize := 108, ! nu┆
0x512c0…512e0 6d 62 65 72 20 6f 66 20 74 74 79 20 63 6f 72 6f 75 74 69 6e 65 73 20 28 68 61 6c 66 77 6f 72 64 ┆mber of tty coroutines (halfword┆
0x512e0…512fc 73 29 20 20 20 20 20 20 20 20 21 20 74 77 63 6f 75 6e 74 20 20 20 20 20 20 3a 3d 20 ┆s) ! twcount := ┆
0x512fc…51302 (0x324,0xa27)
0x51302…51320 20 20 31 2c 0a 20 20 20 20 20 20 21 20 73 69 7a 65 20 6f 66 20 74 74 79 20 62 75 66 66 65 ┆ 1, ! size of tty buffe┆
0x51320…51340 72 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 21 20 74 77 62 ┆r ! twb┆
0x51340…51360 75 66 73 69 7a 65 20 20 20 20 3a 3d 20 20 31 30 34 2c 0a 20 20 20 20 20 20 21 20 6e 6f 20 6f 66 ┆ufsize := 104, ! no of┆
0x51360…5137a 20 66 6f 72 6d 61 74 20 70 72 69 6e 74 65 72 20 63 6f 72 6f 75 74 69 6e 65 73 ┆ format printer coroutines┆
0x5137a…51380 (0x324,0xa28)
0x51380…513a0 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 66 70 72 63 6f 75 6e 74 20 20 20 20 20 3a 3d 20 20 ┆ ! fprcount := ┆
0x513a0…513c0 20 31 2c 0a 20 20 20 20 20 20 21 20 73 69 7a 65 20 6f 66 20 66 70 72 20 62 75 66 20 69 6e 63 6c ┆ 1, ! size of fpr buf incl┆
0x513c0…513e0 2e 20 31 30 20 68 6c 77 2e 20 68 64 2f 74 72 20 20 20 20 20 20 20 20 20 21 20 66 70 72 62 75 66 ┆. 10 hlw. hd/tr ! fprbuf┆
0x513e0…51400 73 69 7a 65 20 20 20 3a 3d 20 31 37 32 2c 0a 20 20 20 20 20 20 21 20 6e 00 00 00 00 00 00 00 00 ┆size := 172, ! n ┆
0x51400…51406 (650,) (0x324,0xa29)
0x51406…51420 6f 20 6f 66 20 6f 70 65 72 61 74 6f 72 20 63 6f 72 6f 75 74 69 6e 65 73 20 20 ┆o of operator coroutines ┆
0x51420…51440 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 6f 70 72 63 6f 75 6e 74 20 20 20 20 20 ┆ ! oprcount ┆
0x51440…51460 3a 3d 20 20 20 32 2c 0a 20 20 20 20 20 20 21 20 6e 6f 20 6f 66 20 74 72 61 6e 73 70 6f 72 74 20 ┆:= 2, ! no of transport ┆
0x51460…5147e 64 65 73 63 72 69 70 74 69 6f 6e 20 73 65 67 6d 6e 74 73 20 20 20 20 20 20 20 20 20 21 20 ┆description segmnts ! ┆
0x5147e…51484 (0x324,0xa2a)
0x51484…514a0 74 72 73 65 67 6d 20 20 20 20 20 20 20 3a 3d 20 31 30 30 2c 0a 20 20 20 20 20 20 21 ┆trsegm := 100, !┆
0x514a0…514c0 20 73 69 7a 65 20 6f 66 20 74 65 73 74 6f 75 74 70 75 74 20 61 72 65 61 20 20 20 20 20 20 20 20 ┆ size of testoutput area ┆
0x514c0…514e0 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 74 65 73 74 73 65 67 6d 6e 74 73 20 20 3a 3d 20 20 ┆ ! testsegmnts := ┆
0x514e0…514fc 34 32 2c 0a 20 20 20 20 20 20 21 20 74 72 61 6e 73 70 6f 72 74 20 64 65 73 63 72 69 ┆42, ! transport descri┆
0x514fc…51502 (0x324,0xa2b)
0x51502…51520 70 74 69 6f 6e 20 73 61 76 65 20 70 65 72 69 6f 64 20 20 20 20 20 20 20 20 20 20 20 21 20 ┆ption save period ! ┆
0x51520…51540 74 72 73 61 76 65 6d 69 6e 75 74 20 20 3a 3d 20 20 36 30 2c 0a 20 20 20 20 20 20 21 20 6e 6f 20 ┆trsaveminut := 60, ! no ┆
0x51540…51560 6f 66 20 77 61 69 74 69 6e 67 20 74 72 61 6e 73 70 6f 72 74 73 20 20 28 20 74 6f 74 61 6c 20 29 ┆of waiting transports ( total )┆
0x51560…5157a 20 20 20 20 20 20 20 20 20 21 20 77 61 69 74 74 72 61 6e 73 20 20 20 20 3a 3d ┆ ! waittrans :=┆
0x5157a…51580 (0x324,0xa2c)
0x51580…515a0 20 20 35 30 2c 0a 20 20 20 20 20 20 21 20 6e 6f 20 6f 66 20 70 65 6e 64 69 6e 67 20 77 61 69 74 ┆ 50, ! no of pending wait┆
0x515a0…515c0 20 6f 70 65 72 61 74 69 6f 6e 73 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 77 61 69 74 ┆ operations ! wait┆
0x515c0…515e0 6f 70 73 20 20 20 20 20 20 3a 3d 20 20 20 35 2c 0a 20 20 20 20 20 20 21 20 6f 70 65 72 61 74 6f ┆ops := 5, ! operato┆
0x515e0…51600 72 20 6f 75 74 70 75 74 20 73 70 65 63 69 66 69 63 61 74 69 6f 6e 3a 20 00 00 00 00 00 00 00 00 ┆r output specification: ┆
0x51600…51606 (651,) (0x324,0xa2d)
0x51606…51620 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 6f 70 72 64 65 74 61 69 6c 73 20 ┆ ! oprdetails ┆
0x51620…51640 20 20 3a 3d 20 20 20 32 2c 0a 20 20 20 20 20 20 21 20 62 69 74 20 32 33 3a 20 6f 75 74 70 75 74 ┆ := 2, ! bit 23: output┆
0x51640…51660 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 63 6f 6e 63 65 72 6e 69 6e 67 20 74 72 61 6e 73 70 6f 72 ┆ information concerning transpor┆
0x51660…5167e 74 20 74 65 72 6d 69 6e 61 74 69 6f 6e 2e 20 20 20 20 20 21 0a 20 20 20 20 20 20 21 20 62 ┆t termination. ! ! b┆
0x5167e…51684 (0x324,0xa2e)
0x51684…516a0 69 74 20 32 32 3a 20 72 6f 75 74 65 20 6f 75 74 70 75 74 20 74 6f 20 6d 61 69 6e 20 ┆it 22: route output to main ┆
0x516a0…516c0 6f 70 65 72 61 74 6f 72 20 69 66 20 6e 6f 74 20 73 69 67 6e 65 64 20 75 70 20 6f 72 20 74 72 6f ┆operator if not signed up or tro┆
0x516c0…516e0 75 62 6c 65 21 0a 20 20 20 20 20 20 21 20 61 63 63 65 70 74 20 74 72 61 6e 73 70 6f 72 74 73 20 ┆uble! ! accept transports ┆
0x516e0…516fc 74 6f 20 6e 6f 6e 65 78 69 73 74 69 6e 67 20 64 65 76 2e 20 68 6f 73 74 20 20 21 20 ┆to nonexisting dev. host ! ┆
0x516fc…51702 (0x324,0xa2f)
0x51702…51720 74 61 63 63 65 70 74 20 20 20 20 20 20 3a 3d 20 20 20 30 2c 0a 20 20 20 20 20 20 63 6f 6d ┆taccept := 0, com┆
0x51720…51740 6d 65 6e 74 20 3d 3d 3d 74 72 69 6d 66 69 6e 69 73 3b 0a 0a 20 20 20 20 20 20 73 70 6f 6f 6c 70 ┆ment ===trimfinis; spoolp┆
0x51740…51760 6f 69 6e 74 65 72 3a 3d 30 3b 0a 20 20 20 20 20 20 74 65 78 74 28 31 31 29 20 74 65 73 74 61 72 ┆ointer:=0; text(11) testar┆
0x51760…5177a 65 61 3a 3d 20 22 70 72 69 6d 6f 74 65 73 74 22 2c 20 73 70 6f 6f 6c 61 72 65 ┆ea:= "primotest", spoolare┆
0x5177a…51780 (0x324,0xa30)
0x51780…517a0 61 3a 3d 20 22 70 72 69 6d 6f 73 70 6f 6f 6c 22 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆a:= "primospool", ┆
0x517a0…517c0 20 70 73 65 75 64 6f 6e 61 6d 65 3a 3d 20 22 70 72 69 6d 6f 73 79 73 22 3b 0a 20 20 20 20 20 20 ┆ pseudoname:= "primosys"; ┆
0x517c0…517e0 61 72 72 61 79 28 31 3a 31 30 29 20 74 61 69 6c 20 6f 66 20 77 6f 72 64 20 3a 3d 20 30 20 30 20 ┆array(1:10) tail of word := 0 0 ┆
0x517e0…51800 30 20 30 20 30 20 30 20 30 20 30 20 30 20 30 3b 0a 20 20 20 20 20 20 72 00 00 00 00 00 00 00 00 ┆0 0 0 0 0 0 0 0; r ┆
0x51800…51806 (652,) (0x324,0xa31)
0x51806…51820 65 66 20 71 75 65 75 65 66 73 74 2c 71 75 65 75 65 74 6f 70 3b 0a 20 20 20 20 ┆ef queuefst,queuetop; ┆
0x51820…51840 20 20 72 65 66 20 74 63 62 75 66 72 65 66 2c 20 6f 70 72 62 75 66 72 65 66 3b 0a 20 20 20 20 20 ┆ ref tcbufref, oprbufref; ┆
0x51840…51860 20 62 79 74 65 20 6f 70 31 3a 3d 31 36 2c 6d 6f 64 65 31 3a 3d 38 27 34 30 3b 0a 20 20 20 20 20 ┆ byte op1:=16,mode1:=8'40; ┆
0x51860…5187e 20 77 6f 72 64 20 61 6c 61 72 6d 3b 0a 20 20 20 20 20 20 74 65 78 74 28 31 34 29 20 72 65 ┆ word alarm; text(14) re┆
0x5187e…51884 (0x324,0xa32)
0x51884…518a0 73 6f 75 72 63 65 3a 3d 20 22 22 3b 0a 20 20 20 20 20 20 77 6f 72 64 20 73 74 64 76 ┆source:= ""; word stdv┆
0x518a0…518c0 61 6c 75 65 2c 6d 61 72 67 69 6e 2c 62 75 66 63 6c 61 69 6d 2c 73 74 6f 70 3a 3d 30 3b 0a 20 20 ┆alue,margin,bufclaim,stop:=0; ┆
0x518c0…518e0 20 20 20 20 74 65 78 74 28 31 34 29 73 69 7a 65 20 3a 3d 20 22 73 69 7a 65 22 2c 0a 20 20 20 20 ┆ text(14)size := "size", ┆
0x518e0…518fc 20 20 20 20 20 20 20 20 20 20 61 72 65 61 20 3a 3d 20 22 61 72 65 61 22 2c 0a 20 20 ┆ area := "area", ┆
0x518fc…51902 (0x324,0xa33)
0x51902…51920 20 20 20 20 20 20 20 20 20 20 20 20 62 75 66 20 20 3a 3d 20 22 62 75 66 22 3b 0a 20 20 20 ┆ buf := "buf"; ┆
0x51920…51940 20 20 20 62 79 74 65 20 66 75 6e 63 6f 70 3a 3d 20 31 36 2c 20 66 75 6e 63 6d 6f 64 65 3a 3d 20 ┆ byte funcop:= 16, funcmode:= ┆
0x51940…51960 30 3b 0a 20 20 20 20 20 20 74 65 78 74 28 32 31 29 20 66 75 6e 63 74 65 78 74 3a 3d 22 2a 2a 2a ┆0; text(21) functext:="***┆
0x51960…5197a 66 75 6e 63 74 69 6f 6e 20 31 2c 32 2c 33 2c 34 2c 35 22 3b 0a 20 20 20 20 20 ┆function 1,2,3,4,5"; ┆
0x5197a…51980 (0x324,0xa34)
0x51980…519a0 20 62 79 74 65 20 69 6e 69 74 74 72 6f 70 3a 3d 20 32 2c 20 69 6e 69 74 74 72 6d 6f 64 65 3a 3d ┆ byte inittrop:= 2, inittrmode:=┆
0x519a0…519c0 20 31 3b 0a 20 20 20 20 20 20 74 65 78 74 28 32 30 29 69 6e 69 74 74 72 3a 3d 22 20 20 2a 2a 2a ┆ 1; text(20)inittr:=" ***┆
0x519c0…519e0 69 6e 69 74 20 74 72 6f 75 62 6c 65 73 22 3b 0a 20 20 20 20 20 20 62 79 74 65 20 6f 70 32 3a 3d ┆init troubles"; byte op2:=┆
0x519e0…51a00 31 36 2c 6d 6f 64 65 32 3a 3d 30 3b 0a 20 20 20 20 20 20 74 65 78 74 28 00 00 00 00 00 00 00 00 ┆16,mode2:=0; text( ┆
0x51a00…51a06 (653,) (0x324,0xa35)
0x51a06…51a20 32 30 29 20 73 74 61 72 74 65 64 3a 3d 22 73 74 61 72 74 65 64 22 3b 0a 20 20 ┆20) started:="started"; ┆
0x51a20…51a40 20 20 20 20 77 6f 72 64 20 70 6f 73 5f 6e 69 6e 65 3a 3d 20 39 2c 20 6e 65 67 5f 6e 69 6e 65 3a ┆ word pos_nine:= 9, neg_nine:┆
0x51a40…51a60 3d 20 2d 39 3b 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 72 65 74 75 72 6e 3a 3d 77 33 ┆= -9; begin return:=w3┆
0x51a60…51a7e 3b 0a 20 20 20 20 20 20 67 6f 74 6f 20 61 6c 6c 6f 63 61 74 65 3b 0a 0a 69 6e 69 74 62 75 ┆; goto allocate; initbu┆
0x51a7e…51a84 (0x324,0xa36)
0x51a84…51aa0 66 73 3a 0a 0a 0a 20 20 20 20 20 20 77 30 3a 3d 20 30 3b 0a 20 20 20 20 20 20 77 32 ┆fs: w0:= 0; w2┆
0x51aa0…51ac0 3a 3d 20 62 2e 67 61 63 5f 74 6f 70 3b 0a 20 20 20 20 20 20 66 6f 72 20 77 32 2d 32 20 73 74 65 ┆:= b.gac_top; for w2-2 ste┆
0x51ac0…51ae0 70 20 32 20 64 6f 77 6e 74 6f 20 62 2e 62 73 5f 66 69 72 73 74 20 64 6f 20 28 77 32 29 2e 77 6f ┆p 2 downto b.bs_first do (w2).wo┆
0x51ae0…51afc 72 64 3a 3d 20 77 30 3b 0a 0a 20 20 20 20 20 20 77 31 3a 3d 20 71 75 65 75 65 66 73 ┆rd:= w0; w1:= queuefs┆
0x51afc…51b02 (0x324,0xa37)
0x51b02…51b20 74 3b 0a 20 20 20 20 20 20 77 32 3a 3d 20 61 64 64 72 65 73 73 28 62 2e 74 71 66 72 65 65 ┆t; w2:= address(b.tqfree┆
0x51b20…51b40 66 73 74 29 3b 0a 20 20 20 20 20 20 77 68 69 6c 65 20 77 31 3c 71 75 65 75 65 74 6f 70 20 64 6f ┆fst); while w1<queuetop do┆
0x51b40…51b60 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 74 71 5f 6e 65 78 ┆ begin (w1).tq_nex┆
0x51b60…51b7a 74 3a 3d 20 77 31 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 74 71 5f 70 72 ┆t:= w1; (w1).tq_pr┆
0x51b7a…51b80 (0x324,0xa38)
0x51b80…51ba0 65 76 3a 3d 20 77 31 3b 0a 20 20 20 20 20 20 20 20 6c 69 6e 6b 28 2e 77 33 2e 2c 77 31 2c 77 32 ┆ev:= w1; link(.w3.,w1,w2┆
0x51ba0…51bc0 29 3b 0a 20 20 20 20 20 20 20 20 77 31 2b 21 6c 65 6e 67 74 68 28 71 75 65 75 65 72 65 63 29 3b ┆); w1+!length(queuerec);┆
0x51bc0…51be0 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 21 20 69 6e 69 74 20 61 70 70 6c 2e 20 69 ┆ end; ! init appl. i┆
0x51be0…51c00 6e 74 65 72 66 61 63 65 20 20 63 6f 72 6f 75 74 20 21 0a 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆nterface corout ! ┆
0x51c00…51c06 (654,) (0x324,0xa39)
0x51c06…51c20 20 77 31 3a 3d 20 62 2e 61 70 6c 5f 66 73 74 3b 0a 20 20 20 20 20 20 28 77 31 ┆ w1:= b.apl_fst; (w1┆
0x51c20…51c40 29 2e 63 5f 6e 65 78 74 3a 3d 20 77 31 3b 0a 20 20 20 20 20 20 28 77 31 29 2e 63 5f 70 72 65 76 ┆).c_next:= w1; (w1).c_prev┆
0x51c40…51c60 3a 3d 20 77 31 3b 0a 20 20 20 20 20 20 28 77 31 29 2e 63 5f 6e 72 3a 3d 20 77 30 3a 3d 20 31 3b ┆:= w1; (w1).c_nr:= w0:= 1;┆
0x51c60…51c7e 0a 20 20 20 20 20 20 6c 69 6e 6b 28 2e 77 33 2e 2c 77 31 2c 77 32 3a 3d 61 64 64 72 65 73 ┆ link(.w3.,w1,w2:=addres┆
0x51c7e…51c84 (0x324,0xa3a)
0x51c84…51ca0 73 28 62 2e 61 63 74 69 76 71 66 73 74 29 29 3b 0a 0a 20 20 20 20 20 20 21 20 69 6e ┆s(b.activqfst)); ! in┆
0x51ca0…51cc0 69 74 20 6f 70 72 2e 20 69 6e 74 65 72 66 61 63 65 20 21 0a 20 20 20 20 20 20 77 31 3a 3d 20 62 ┆it opr. interface ! w1:= b┆
0x51cc0…51ce0 2e 6f 70 72 5f 66 73 74 3b 0a 20 20 20 20 20 20 69 66 20 77 30 3a 3d 6f 70 72 63 6f 75 6e 74 3e ┆.opr_fst; if w0:=oprcount>┆
0x51ce0…51cfc 30 20 74 68 65 6e 0a 20 20 20 20 20 20 66 6f 72 20 77 30 3a 3d 31 20 73 74 65 70 20 ┆0 then for w0:=1 step ┆
0x51cfc…51d02 (0x324,0xa3b)
0x51d02…51d20 31 20 75 70 74 6f 20 6f 70 72 63 6f 75 6e 74 20 64 6f 0a 20 20 20 20 20 20 62 65 67 69 6e ┆1 upto oprcount do begin┆
0x51d20…51d40 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 63 5f 6e 65 78 74 3a 3d 20 77 31 3b 0a 20 20 20 20 20 ┆ (w1).c_next:= w1; ┆
0x51d40…51d60 20 20 20 28 77 31 29 2e 63 5f 70 72 65 76 3a 3d 20 77 31 3b 0a 20 20 20 20 20 20 20 20 28 77 31 ┆ (w1).c_prev:= w1; (w1┆
0x51d60…51d7a 29 2e 63 5f 6e 72 3a 3d 20 77 33 3a 3d 20 20 77 30 2b 31 30 30 3b 0a 20 20 20 ┆).c_nr:= w3:= w0+100; ┆
0x51d7a…51d80 (0x324,0xa3c)
0x51d80…51da0 20 20 20 20 20 28 77 31 29 2e 63 5f 73 74 61 63 6b 3a 3d 20 77 33 3a 3d 20 61 64 64 72 65 73 73 ┆ (w1).c_stack:= w3:= address┆
0x51da0…51dc0 28 28 77 31 29 2e 63 5f 73 74 61 63 6b 29 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 6f 70 72 ┆((w1).c_stack); (w1).opr┆
0x51dc0…51de0 5f 62 75 66 3a 3d 20 77 32 3a 3d 20 6f 70 72 62 75 66 72 65 66 3b 0a 20 20 20 20 20 20 20 20 77 ┆_buf:= w2:= oprbufref; w┆
0x51de0…51e00 32 2b 62 2e 6f 70 72 74 5f 62 75 66 6c 2b 28 21 6c 65 6e 67 74 68 28 62 00 00 00 00 00 00 00 00 ┆2+b.oprt_bufl+(!length(b ┆
0x51e00…51e06 (655,) (0x324,0xa3d)
0x51e06…51e20 75 66 68 65 61 64 29 2d 32 29 3b 0a 20 20 20 20 20 20 20 20 6f 70 72 62 75 66 ┆ufhead)-2); oprbuf┆
0x51e20…51e40 72 65 66 3a 3d 20 77 32 3b 0a 20 20 20 20 20 20 20 20 6c 69 6e 6b 28 2e 77 33 2e 2c 77 31 2c 77 ┆ref:= w2; link(.w3.,w1,w┆
0x51e40…51e60 32 3a 3d 61 64 64 72 65 73 73 28 62 2e 61 63 74 69 76 71 66 73 74 29 29 3b 0a 20 20 20 20 20 20 ┆2:=address(b.activqfst)); ┆
0x51e60…51e7e 20 20 77 31 2b 21 6c 65 6e 67 74 68 28 6f 70 72 63 6f 72 6f 75 74 29 3b 0a 20 20 20 20 20 ┆ w1+!length(oprcorout); ┆
0x51e7e…51e84 (0x324,0xa3e)
0x51e84…51ea0 20 65 6e 64 3b 0a 0a 20 20 20 20 20 20 77 31 3a 3d 20 62 2e 74 63 70 6f 6f 6c 5f 66 ┆ end; w1:= b.tcpool_f┆
0x51ea0…51ec0 73 74 3b 0a 20 20 20 20 20 20 69 66 20 77 33 3a 3d 70 72 63 6f 75 6e 74 3e 30 20 74 68 65 6e 0a ┆st; if w3:=prcount>0 then ┆
0x51ec0…51ee0 20 20 20 20 20 20 66 6f 72 20 77 33 3a 3d 31 20 73 74 65 70 20 31 20 75 70 74 6f 20 70 72 63 6f ┆ for w3:=1 step 1 upto prco┆
0x51ee0…51efc 75 6e 74 20 64 6f 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 28 ┆unt do begin (┆
0x51efc…51f02 (0x324,0xa3f)
0x51f02…51f20 77 31 29 2e 63 5f 6e 65 78 74 3a 3d 77 31 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 63 ┆w1).c_next:=w1; (w1).c┆
0x51f20…51f40 5f 70 72 65 76 3a 3d 77 31 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 63 5f 6e 72 3a 3d 77 32 ┆_prev:=w1; (w1).c_nr:=w2┆
0x51f40…51f60 3a 3d 77 33 2b 32 30 30 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 70 72 5f 68 65 61 64 74 72 ┆:=w3+200; (w1).pr_headtr┆
0x51f60…51f7a 61 69 6c 3a 3d 20 77 30 3a 3d 20 70 72 6c 74 70 61 67 65 3b 0a 20 20 20 20 20 ┆ail:= w0:= prltpage; ┆
0x51f7a…51f80 (0x324,0xa40)
0x51f80…51fa0 20 20 20 28 77 31 29 2e 74 63 5f 6b 69 6e 64 3a 3d 20 77 30 3a 3d 20 31 34 3b 0a 20 20 20 20 20 ┆ (w1).tc_kind:= w0:= 14; ┆
0x51fa0…51fc0 20 20 20 28 77 31 29 2e 74 63 5f 6e 65 78 74 74 72 3a 3d 20 77 30 3a 3d 20 61 64 64 72 65 73 73 ┆ (w1).tc_nexttr:= w0:= address┆
0x51fc0…51fe0 28 28 77 31 29 2e 74 63 5f 6e 65 78 74 74 72 29 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 74 ┆((w1).tc_nexttr); (w1).t┆
0x51fe0…52000 63 5f 70 72 65 76 74 72 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 20 28 00 00 00 00 00 00 00 00 ┆c_prevtr:= w0; ( ┆
0x52000…52006 (656,) (0x324,0xa41)
0x52006…52020 77 31 29 2e 74 63 5f 62 75 66 3a 3d 77 32 3a 3d 74 63 62 75 66 72 65 66 3b 0a ┆w1).tc_buf:=w2:=tcbufref; ┆
0x52020…52040 20 20 20 20 20 20 20 20 28 77 31 29 2e 63 5f 73 74 61 63 6b 3a 3d 77 30 3a 3d 61 64 64 72 65 73 ┆ (w1).c_stack:=w0:=addres┆
0x52040…52060 73 28 28 77 31 29 2e 63 5f 73 74 61 63 6b 29 3b 0a 20 20 20 20 20 20 20 20 77 32 2b 70 72 62 75 ┆s((w1).c_stack); w2+prbu┆
0x52060…5207e 66 73 69 7a 65 2b 28 21 6c 65 6e 67 74 68 28 62 75 66 68 65 61 64 29 2d 32 29 3b 0a 20 20 ┆fsize+(!length(bufhead)-2); ┆
0x5207e…52084 (0x324,0xa42)
0x52084…520a0 20 20 20 20 20 20 28 77 31 29 2e 74 63 5f 62 73 62 75 66 3a 3d 77 32 3b 0a 20 20 20 ┆ (w1).tc_bsbuf:=w2; ┆
0x520a0…520c0 20 20 20 20 20 77 32 2b 35 31 32 3b 0a 20 20 20 20 20 20 20 20 74 63 62 75 66 72 65 66 3a 3d 20 ┆ w2+512; tcbufref:= ┆
0x520c0…520e0 77 32 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 74 63 5f 62 75 66 73 69 7a 65 3a 3d 20 77 30 ┆w2; (w1).tc_bufsize:= w0┆
0x520e0…520fc 3a 3d 20 70 72 62 75 66 73 69 7a 65 3b 0a 20 20 20 20 20 20 20 20 77 30 3a 3d 20 77 ┆:= prbufsize; w0:= w┆
0x520fc…52102 (0x324,0xa43)
0x52102…52120 31 2b 21 6c 65 6e 67 74 68 28 70 72 63 6f 72 6f 75 74 29 3b 0a 20 20 20 20 20 20 20 20 28 ┆1+!length(prcorout); (┆
0x52120…52140 77 31 29 2e 74 63 5f 6e 65 78 74 74 63 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 20 77 31 3a 3d ┆w1).tc_nexttc:= w0; w1:=┆
0x52140…52160 20 77 30 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 0a 20 20 20 20 20 20 69 66 20 77 33 3a 3d 70 63 ┆ w0; end; if w3:=pc┆
0x52160…5217a 63 6f 75 6e 74 3e 30 20 74 68 65 6e 0a 20 20 20 20 20 20 66 6f 72 20 77 33 3a ┆count>0 then for w3:┆
0x5217a…52180 (0x324,0xa44)
0x52180…521a0 3d 20 31 20 73 74 65 70 20 31 20 75 70 74 6f 20 70 63 63 6f 75 6e 74 20 64 6f 0a 20 20 20 20 20 ┆= 1 step 1 upto pccount do ┆
0x521a0…521c0 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 63 5f 6e 65 78 74 3a 3d 77 31 3b 0a ┆ begin (w1).c_next:=w1; ┆
0x521c0…521e0 20 20 20 20 20 20 20 20 28 77 31 29 2e 63 5f 70 72 65 76 3a 3d 77 31 3b 0a 20 20 20 20 20 20 20 ┆ (w1).c_prev:=w1; ┆
0x521e0…52200 20 28 77 31 29 2e 63 5f 6e 72 3a 3d 77 32 3a 3d 77 33 2b 33 30 30 3b 0a 00 00 00 00 00 00 00 00 ┆ (w1).c_nr:=w2:=w3+300; ┆
0x52200…52206 (657,) (0x324,0xa45)
0x52206…52220 20 20 20 20 20 20 20 20 28 77 31 29 2e 74 63 5f 6b 69 6e 64 3a 3d 20 77 30 3a ┆ (w1).tc_kind:= w0:┆
0x52220…52240 3d 20 31 32 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 74 63 5f 6e 65 78 74 74 72 3a 3d 20 77 ┆= 12; (w1).tc_nexttr:= w┆
0x52240…52260 30 3a 3d 20 61 64 64 72 65 73 73 28 28 77 31 29 2e 74 63 5f 6e 65 78 74 74 72 29 3b 0a 20 20 20 ┆0:= address((w1).tc_nexttr); ┆
0x52260…5227e 20 20 20 20 20 28 77 31 29 2e 74 63 5f 70 72 65 76 74 72 3a 3d 20 77 30 3b 0a 20 20 20 20 ┆ (w1).tc_prevtr:= w0; ┆
0x5227e…52284 (0x324,0xa46)
0x52284…522a0 20 20 20 20 28 77 31 29 2e 74 63 5f 62 75 66 3a 3d 77 32 3a 3d 74 63 62 75 66 72 65 ┆ (w1).tc_buf:=w2:=tcbufre┆
0x522a0…522c0 66 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 63 5f 73 74 61 63 6b 3a 3d 77 30 3a 3d 61 64 64 ┆f; (w1).c_stack:=w0:=add┆
0x522c0…522e0 72 65 73 73 28 28 77 31 29 2e 63 5f 73 74 61 63 6b 29 3b 0a 20 20 20 20 20 20 20 20 77 32 2b 70 ┆ress((w1).c_stack); w2+p┆
0x522e0…522fc 63 62 75 66 73 69 7a 65 2b 28 21 6c 65 6e 67 74 68 28 62 75 66 68 65 61 64 29 2d 32 ┆cbufsize+(!length(bufhead)-2┆
0x522fc…52302 (0x324,0xa47)
0x52302…52320 29 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 74 63 5f 62 73 62 75 66 3a 3d 77 32 3b 0a ┆); (w1).tc_bsbuf:=w2; ┆
0x52320…52340 20 20 20 20 20 20 20 20 77 32 2b 35 31 32 3b 0a 20 20 20 20 20 20 20 20 74 63 62 75 66 72 65 66 ┆ w2+512; tcbufref┆
0x52340…52360 3a 3d 20 77 32 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 74 63 5f 62 75 66 73 69 7a 65 3a 3d ┆:= w2; (w1).tc_bufsize:=┆
0x52360…5237a 20 77 30 3a 3d 20 70 63 62 75 66 73 69 7a 65 3b 0a 20 20 20 20 20 20 20 20 77 ┆ w0:= pcbufsize; w┆
0x5237a…52380 (0x324,0xa48)
0x52380…523a0 30 3a 3d 20 77 31 2b 21 6c 65 6e 67 74 68 28 70 63 63 6f 72 6f 75 74 29 3b 0a 20 20 20 20 20 20 ┆0:= w1+!length(pccorout); ┆
0x523a0…523c0 20 20 28 77 31 29 2e 74 63 5f 6e 65 78 74 74 63 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 20 77 ┆ (w1).tc_nexttc:= w0; w┆
0x523c0…523e0 31 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 0a 20 20 20 20 20 20 69 66 20 77 33 3a ┆1:= w0; end; if w3:┆
0x523e0…52400 3d 72 64 63 6f 75 6e 74 3e 30 20 74 68 65 6e 0a 20 20 20 20 20 20 66 6f 00 00 00 00 00 00 00 00 ┆=rdcount>0 then fo ┆
0x52400…52406 (658,) (0x324,0xa49)
0x52406…52420 72 20 77 33 3a 3d 31 20 73 74 65 70 20 31 20 75 70 74 6f 20 72 64 63 6f 75 6e ┆r w3:=1 step 1 upto rdcoun┆
0x52420…52440 74 20 64 6f 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 63 5f ┆t do begin (w1).c_┆
0x52440…52460 6e 65 78 74 3a 3d 77 31 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 63 5f 70 72 65 76 3a 3d 77 ┆next:=w1; (w1).c_prev:=w┆
0x52460…5247e 31 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 63 5f 6e 72 3a 3d 77 32 3a 3d 77 33 2b 34 ┆1; (w1).c_nr:=w2:=w3+4┆
0x5247e…52484 (0x324,0xa4a)
0x52484…524a0 30 30 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 74 63 5f 6b 69 6e 64 3a 3d 20 77 ┆00; (w1).tc_kind:= w┆
0x524a0…524c0 30 3a 3d 20 31 30 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 74 63 5f 6e 65 78 74 74 72 3a 3d ┆0:= 10; (w1).tc_nexttr:=┆
0x524c0…524e0 20 77 30 3a 3d 20 61 64 64 72 65 73 73 28 28 77 31 29 2e 74 63 5f 6e 65 78 74 74 72 29 3b 0a 20 ┆ w0:= address((w1).tc_nexttr); ┆
0x524e0…524fc 20 20 20 20 20 20 20 28 77 31 29 2e 74 63 5f 70 72 65 76 74 72 3a 3d 20 77 30 3b 0a ┆ (w1).tc_prevtr:= w0; ┆
0x524fc…52502 (0x324,0xa4b)
0x52502…52520 20 20 20 20 20 20 20 20 28 77 31 29 2e 74 63 5f 62 75 66 3a 3d 77 32 3a 3d 74 63 62 75 66 ┆ (w1).tc_buf:=w2:=tcbuf┆
0x52520…52540 72 65 66 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 63 5f 73 74 61 63 6b 3a 3d 77 30 3a 3d 61 ┆ref; (w1).c_stack:=w0:=a┆
0x52540…52560 64 64 72 65 73 73 28 28 77 31 29 2e 63 5f 73 74 61 63 6b 29 3b 0a 20 20 20 20 20 20 20 20 77 32 ┆ddress((w1).c_stack); w2┆
0x52560…5257a 2b 72 64 62 75 66 73 69 7a 65 2b 28 21 6c 65 6e 67 74 68 28 62 75 66 68 65 61 ┆+rdbufsize+(!length(bufhea┆
0x5257a…52580 (0x324,0xa4c)
0x52580…525a0 64 29 2d 32 29 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 74 63 5f 62 73 62 75 66 3a 3d 77 32 ┆d)-2); (w1).tc_bsbuf:=w2┆
0x525a0…525c0 3b 0a 20 20 20 20 20 20 20 20 77 32 2b 35 31 32 3b 0a 20 20 20 20 20 20 20 20 74 63 62 75 66 72 ┆; w2+512; tcbufr┆
0x525c0…525e0 65 66 3a 3d 20 77 32 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 74 63 5f 62 75 66 73 69 7a 65 ┆ef:= w2; (w1).tc_bufsize┆
0x525e0…52600 3a 3d 20 77 30 3a 3d 20 72 64 62 75 66 73 69 7a 65 3b 0a 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆:= w0:= rdbufsize; ┆
0x52600…52606 (659,) (0x324,0xa4d)
0x52606…52620 20 20 20 77 30 3a 3d 20 77 31 2b 21 6c 65 6e 67 74 68 28 72 64 63 6f 72 6f 75 ┆ w0:= w1+!length(rdcorou┆
0x52620…52640 74 29 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 74 63 5f 6e 65 78 74 74 63 3a 3d 20 77 30 3b ┆t); (w1).tc_nexttc:= w0;┆
0x52640…52660 0a 20 20 20 20 20 20 20 20 77 31 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 0a 20 20 ┆ w1:= w0; end; ┆
0x52660…5267e 20 20 20 20 69 66 20 77 33 3a 3d 63 64 63 6f 75 6e 74 3e 30 20 74 68 65 6e 0a 20 20 20 20 ┆ if w3:=cdcount>0 then ┆
0x5267e…52684 (0x324,0xa4e)
0x52684…526a0 20 20 66 6f 72 20 77 33 3a 3d 20 31 20 73 74 65 70 20 31 20 75 70 74 6f 20 63 64 63 ┆ for w3:= 1 step 1 upto cdc┆
0x526a0…526c0 6f 75 6e 74 20 64 6f 0a 20 20 20 20 20 20 62 65 67 69 6e 20 21 20 75 73 65 20 72 65 61 64 65 72 ┆ount do begin ! use reader┆
0x526c0…526e0 20 63 6f 72 6f 75 74 20 21 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 63 5f 6e 65 78 74 3a 3d 20 ┆ corout ! (w1).c_next:= ┆
0x526e0…526fc 77 31 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 63 5f 70 72 65 76 3a 3d 20 77 31 ┆w1; (w1).c_prev:= w1┆
0x526fc…52702 (0x324,0xa4f)
0x52702…52720 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 63 5f 6e 72 3a 3d 20 77 32 3a 3d 20 77 33 2b ┆; (w1).c_nr:= w2:= w3+┆
0x52720…52740 35 30 30 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 74 63 5f 6b 69 6e 64 3a 3d 20 77 30 3a 3d ┆500; (w1).tc_kind:= w0:=┆
0x52740…52760 20 31 36 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 74 63 5f 6e 65 78 74 74 72 3a 3d 20 77 30 ┆ 16; (w1).tc_nexttr:= w0┆
0x52760…5277a 3a 3d 20 61 64 64 72 65 73 73 28 28 77 31 29 2e 74 63 5f 6e 65 78 74 74 72 29 ┆:= address((w1).tc_nexttr)┆
0x5277a…52780 (0x324,0xa50)
0x52780…527a0 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 74 63 5f 70 72 65 76 74 72 3a 3d 20 77 30 3b 0a 20 ┆; (w1).tc_prevtr:= w0; ┆
0x527a0…527c0 20 20 20 20 20 20 20 28 77 31 29 2e 74 63 5f 62 75 66 3a 3d 20 77 32 3a 3d 20 74 63 62 75 66 72 ┆ (w1).tc_buf:= w2:= tcbufr┆
0x527c0…527e0 65 66 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 63 5f 73 74 61 63 6b 3a 3d 77 30 3a 3d 61 64 ┆ef; (w1).c_stack:=w0:=ad┆
0x527e0…52800 64 72 65 73 73 28 28 77 31 29 2e 63 5f 73 74 61 63 6b 29 3b 0a 20 20 20 00 00 00 00 00 00 00 00 ┆dress((w1).c_stack); ┆
0x52800…52806 (660,) (0x324,0xa51)
0x52806…52820 20 20 20 20 20 77 32 2b 63 64 62 75 66 73 69 7a 65 2b 28 21 6c 65 6e 67 74 68 ┆ w2+cdbufsize+(!length┆
0x52820…52840 28 62 75 66 68 65 61 64 29 2d 32 29 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 74 63 5f 62 73 ┆(bufhead)-2); (w1).tc_bs┆
0x52840…52860 62 75 66 3a 3d 77 32 3b 0a 20 20 20 20 20 20 20 20 77 32 2b 35 31 32 3b 0a 20 20 20 20 20 20 20 ┆buf:=w2; w2+512; ┆
0x52860…5287e 20 74 63 62 75 66 72 65 66 3a 3d 20 77 32 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 74 ┆ tcbufref:= w2; (w1).t┆
0x5287e…52884 (0x324,0xa52)
0x52884…528a0 63 5f 62 75 66 73 69 7a 65 3a 3d 20 77 30 3a 3d 20 63 64 62 75 66 73 69 7a 65 3b 0a ┆c_bufsize:= w0:= cdbufsize; ┆
0x528a0…528c0 20 20 20 20 20 20 20 20 77 30 3a 3d 20 77 31 2b 21 6c 65 6e 67 74 68 28 72 64 63 6f 72 6f 75 74 ┆ w0:= w1+!length(rdcorout┆
0x528c0…528e0 29 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 74 63 5f 6e 65 78 74 74 63 3a 3d 20 77 30 3b 0a ┆); (w1).tc_nexttc:= w0; ┆
0x528e0…528fc 20 20 20 20 20 20 20 20 77 31 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a ┆ w1:= w0; end; ┆
0x528fc…52902 (0x324,0xa53)
0x52902…52920 0a 20 20 20 20 20 20 69 66 20 77 33 3a 3d 74 77 63 6f 75 6e 74 3e 30 20 74 68 65 6e 0a 20 ┆ if w3:=twcount>0 then ┆
0x52920…52940 20 20 20 20 20 66 6f 72 20 77 33 3a 3d 20 31 20 73 74 65 70 20 31 20 75 70 74 6f 20 74 77 63 6f ┆ for w3:= 1 step 1 upto twco┆
0x52940…52960 75 6e 74 20 64 6f 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e ┆unt do begin (w1).┆
0x52960…5297a 63 5f 6e 65 78 74 3a 3d 20 77 31 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e ┆c_next:= w1; (w1).┆
0x5297a…52980 (0x324,0xa54)
0x52980…529a0 63 5f 70 72 65 76 3a 3d 20 77 31 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 63 5f 6e 72 3a 3d ┆c_prev:= w1; (w1).c_nr:=┆
0x529a0…529c0 20 77 32 3a 3d 20 77 33 2b 36 30 30 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 74 63 5f 6b 69 ┆ w2:= w3+600; (w1).tc_ki┆
0x529c0…529e0 6e 64 3a 3d 20 77 30 3a 3d 20 38 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 74 63 5f 6e 65 78 ┆nd:= w0:= 8; (w1).tc_nex┆
0x529e0…52a00 74 74 72 3a 3d 20 77 30 3a 3d 20 61 64 64 72 65 73 73 28 28 77 31 29 2e 00 00 00 00 00 00 00 00 ┆ttr:= w0:= address((w1). ┆
0x52a00…52a06 (661,) (0x324,0xa55)
0x52a06…52a20 74 63 5f 6e 65 78 74 74 72 29 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 74 ┆tc_nexttr); (w1).t┆
0x52a20…52a40 63 5f 70 72 65 76 74 72 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 74 63 5f 62 ┆c_prevtr:= w0; (w1).tc_b┆
0x52a40…52a60 75 66 3a 3d 20 77 32 3a 3d 20 74 63 62 75 66 72 65 66 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 ┆uf:= w2:= tcbufref; (w1)┆
0x52a60…52a7e 2e 63 5f 73 74 61 63 6b 3a 3d 77 30 3a 3d 61 64 64 72 65 73 73 28 28 77 31 29 2e 63 5f 73 ┆.c_stack:=w0:=address((w1).c_s┆
0x52a7e…52a84 (0x324,0xa56)
0x52a84…52aa0 74 61 63 6b 29 3b 0a 20 20 20 20 20 20 20 20 77 32 2b 74 77 62 75 66 73 69 7a 65 2b ┆tack); w2+twbufsize+┆
0x52aa0…52ac0 28 21 6c 65 6e 67 74 68 28 62 75 66 68 65 61 64 29 2d 32 29 3b 0a 20 20 20 20 20 20 20 20 28 77 ┆(!length(bufhead)-2); (w┆
0x52ac0…52ae0 31 29 2e 74 63 5f 62 73 62 75 66 3a 3d 77 32 3b 0a 20 20 20 20 20 20 20 20 77 32 2b 35 31 32 3b ┆1).tc_bsbuf:=w2; w2+512;┆
0x52ae0…52afc 0a 20 20 20 20 20 20 20 20 74 63 62 75 66 72 65 66 3a 3d 20 77 32 3b 0a 20 20 20 20 ┆ tcbufref:= w2; ┆
0x52afc…52b02 (0x324,0xa57)
0x52b02…52b20 20 20 20 20 28 77 31 29 2e 74 63 5f 62 75 66 73 69 7a 65 3a 3d 20 77 30 3a 3d 20 74 77 62 ┆ (w1).tc_bufsize:= w0:= twb┆
0x52b20…52b40 75 66 73 69 7a 65 3b 0a 20 20 20 20 20 20 20 20 77 30 3a 3d 20 77 31 2b 21 6c 65 6e 67 74 68 28 ┆ufsize; w0:= w1+!length(┆
0x52b40…52b60 74 77 63 6f 72 6f 75 74 29 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 74 63 5f 6e 65 78 74 74 ┆twcorout); (w1).tc_nextt┆
0x52b60…52b7a 63 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 20 77 31 3a 3d 20 77 30 3b 0a 20 ┆c:= w0; w1:= w0; ┆
0x52b7a…52b80 (0x324,0xa58)
0x52b80…52ba0 20 20 20 20 20 20 65 6e 64 3b 0a 0a 0a 20 20 20 20 20 20 69 66 20 77 33 3a 3d 66 70 72 63 6f 75 ┆ end; if w3:=fprcou┆
0x52ba0…52bc0 6e 74 3e 30 20 74 68 65 6e 0a 20 20 20 20 20 20 66 6f 72 20 77 33 3a 3d 31 20 73 74 65 70 20 31 ┆nt>0 then for w3:=1 step 1┆
0x52bc0…52be0 20 75 70 74 6f 20 66 70 72 63 6f 75 6e 74 20 64 6f 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 ┆ upto fprcount do begin ┆
0x52be0…52c00 20 20 20 20 20 20 28 77 31 29 2e 63 5f 6e 65 78 74 3a 3d 77 31 3b 0a 20 00 00 00 00 00 00 00 00 ┆ (w1).c_next:=w1; ┆
0x52c00…52c06 (662,) (0x324,0xa59)
0x52c06…52c20 20 20 20 20 20 20 20 28 77 31 29 2e 63 5f 70 72 65 76 3a 3d 77 31 3b 0a 20 20 ┆ (w1).c_prev:=w1; ┆
0x52c20…52c40 20 20 20 20 20 20 28 77 31 29 2e 63 5f 6e 72 3a 3d 77 32 3a 3d 77 33 2b 37 30 30 3b 0a 20 20 20 ┆ (w1).c_nr:=w2:=w3+700; ┆
0x52c40…52c60 20 20 20 20 20 28 77 31 29 2e 74 63 5f 6b 69 6e 64 3a 3d 77 30 3a 3d 31 35 3b 20 21 20 74 6f 20 ┆ (w1).tc_kind:=w0:=15; ! to ┆
0x52c60…52c7e 61 76 6f 69 64 20 63 6f 6e 66 75 73 69 6f 6e 20 77 69 74 68 20 70 72 69 6e 74 65 72 20 70 ┆avoid confusion with printer p┆
0x52c7e…52c84 (0x324,0xa5a)
0x52c84…52ca0 72 6f 63 65 73 73 65 73 21 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 74 63 5f 6e 65 ┆rocesses! (w1).tc_ne┆
0x52ca0…52cc0 78 74 74 72 3a 3d 20 77 30 3a 3d 20 61 64 64 72 65 73 73 28 28 77 31 29 2e 74 63 5f 6e 65 78 74 ┆xttr:= w0:= address((w1).tc_next┆
0x52cc0…52ce0 74 72 29 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 74 63 5f 70 72 65 76 74 72 3a 3d 20 77 30 ┆tr); (w1).tc_prevtr:= w0┆
0x52ce0…52cfc 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 63 5f 73 74 61 63 6b 3a 3d 20 77 30 3a ┆; (w1).c_stack:= w0:┆
0x52cfc…52d02 (0x324,0xa5b)
0x52d02…52d20 3d 20 61 64 64 72 65 73 73 28 28 77 31 29 2e 63 5f 73 74 61 63 6b 29 3b 0a 20 20 20 20 20 ┆= address((w1).c_stack); ┆
0x52d20…52d40 20 20 20 28 77 31 29 2e 74 63 5f 62 75 66 3a 3d 77 32 3a 3d 74 63 62 75 66 72 65 66 3b 0a 20 20 ┆ (w1).tc_buf:=w2:=tcbufref; ┆
0x52d40…52d60 20 20 20 20 20 20 77 32 2b 66 70 72 62 75 66 73 69 7a 65 2b 28 21 6c 65 6e 67 74 68 28 62 75 66 ┆ w2+fprbufsize+(!length(buf┆
0x52d60…52d7a 68 65 61 64 29 2d 32 29 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 74 63 5f ┆head)-2); (w1).tc_┆
0x52d7a…52d80 (0x324,0xa5c)
0x52d80…52da0 62 73 62 75 66 3a 3d 20 77 32 3b 0a 20 20 20 20 20 20 20 20 77 32 2b 35 31 32 3b 0a 20 20 20 20 ┆bsbuf:= w2; w2+512; ┆
0x52da0…52dc0 20 20 20 20 74 63 62 75 66 72 65 66 3a 3d 20 77 32 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e ┆ tcbufref:= w2; (w1).┆
0x52dc0…52de0 74 63 5f 62 75 66 73 69 7a 65 20 3a 3d 20 77 30 20 3a 3d 20 66 70 72 62 75 66 73 69 7a 65 2d 38 ┆tc_bufsize := w0 := fprbufsize-8┆
0x52de0…52e00 3b 20 21 20 2d 20 28 20 73 69 7a 65 20 6f 66 20 68 65 61 64 65 72 20 61 00 00 00 00 00 00 00 00 ┆; ! - ( size of header a ┆
0x52e00…52e06 (663,) (0x324,0xa5d)
0x52e06…52e20 6e 64 20 65 76 6e 74 2e 20 74 72 61 69 6c 20 29 21 0a 20 20 20 20 20 20 20 20 ┆nd evnt. trail )! ┆
0x52e20…52e40 77 30 3a 3d 77 31 2b 21 6c 65 6e 67 74 68 28 66 70 72 63 6f 72 6f 75 74 29 3b 0a 20 20 20 20 20 ┆w0:=w1+!length(fprcorout); ┆
0x52e40…52e60 20 20 20 28 77 31 29 2e 74 63 5f 6e 65 78 74 74 63 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 20 ┆ (w1).tc_nexttc:= w0; ┆
0x52e60…52e7e 77 31 3a 3d 77 30 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 0a 0a 20 20 20 20 20 20 69 66 20 ┆w1:=w0; end; if ┆
0x52e7e…52e84 (0x324,0xa5e)
0x52e84…52ea0 77 33 3a 3d 66 70 72 63 6f 75 6e 74 3e 30 20 74 68 65 6e 0a 20 20 20 20 20 20 66 6f ┆w3:=fprcount>0 then fo┆
0x52ea0…52ec0 72 20 77 33 3a 3d 31 20 73 74 65 70 20 31 20 75 70 74 6f 20 66 70 72 63 6f 75 6e 74 20 64 6f 0a ┆r w3:=1 step 1 upto fprcount do ┆
0x52ec0…52ee0 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 63 5f 6e 65 78 74 3a ┆ begin (w1).c_next:┆
0x52ee0…52efc 3d 77 31 3b 0a 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 63 5f 70 72 65 76 3a 3d 77 ┆=w1; (w1).c_prev:=w┆
0x52efc…52f02 (0x324,0xa5f)
0x52f02…52f20 31 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 63 5f 6e 72 3a 3d 77 32 3a 3d 77 33 2b 37 ┆1; (w1).c_nr:=w2:=w3+7┆
0x52f20…52f40 35 30 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 66 70 72 5f 6e 65 78 74 3a 3d 20 77 30 3a 3d ┆50; (w1).fpr_next:= w0:=┆
0x52f40…52f60 20 61 64 64 72 65 73 73 28 28 77 31 29 2e 66 70 72 5f 6e 65 78 74 29 3b 20 21 20 71 75 65 75 65 ┆ address((w1).fpr_next); ! queue┆
0x52f60…52f7a 68 65 64 20 66 6f 72 20 77 61 69 74 69 6e 67 20 66 70 72 20 63 6f 72 6f 75 74 ┆hed for waiting fpr corout┆
0x52f7a…52f80 (0x324,0xa60)
0x52f80…52fa0 69 6e 65 73 20 21 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 66 70 72 5f 70 72 65 76 69 6f 75 73 ┆ines ! (w1).fpr_previous┆
0x52fa0…52fc0 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 20 77 30 3a 3d 20 21 6c 65 6e 67 74 68 28 66 70 72 69 ┆:= w0; w0:= !length(fpri┆
0x52fc0…52fe0 6e 63 6f 72 6f 75 74 69 6e 65 29 3b 0a 0a 20 20 20 20 20 20 20 20 77 31 2b 77 30 3b 0a 20 20 20 ┆ncoroutine); w1+w0; ┆
0x52fe0…53000 20 20 20 65 6e 64 3b 0a 0a 0a 0a 0a 20 20 20 20 20 20 74 65 73 74 6f 75 00 00 00 00 00 00 00 00 ┆ end; testou ┆
0x53000…53006 (664,) (0x324,0xa61)
0x53006…53020 74 28 2e 77 33 2e 2c 77 30 3a 3d 35 30 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 ┆t(.w3.,w0:=50,w1:=address(┆
0x53020…53040 76 65 72 64 61 74 65 29 2c 77 32 3a 3d 36 39 29 3b 0a 20 20 20 20 20 20 74 65 73 74 6f 75 74 28 ┆verdate),w2:=69); testout(┆
0x53040…53060 2e 77 33 2e 2c 77 30 3a 3d 20 31 35 30 2c 77 31 3a 3d 62 2e 70 72 69 6d 6f 2d 34 2c 77 32 3a 3d ┆.w3.,w0:= 150,w1:=b.primo-4,w2:=┆
0x53060…5307e 38 29 3b 0a 0a 20 20 20 20 20 20 62 2e 62 73 5f 6f 70 3a 3d 20 77 30 3a 3d 20 35 3b 20 20 ┆8); b.bs_op:= w0:= 5; ┆
0x5307e…53084 (0x324,0xa62)
0x53084…530a0 21 20 63 6c 65 61 72 20 77 6f 72 6b 20 61 72 65 61 20 21 0a 20 20 20 20 20 20 77 31 ┆! clear work area ! w1┆
0x530a0…530c0 3a 3d 20 61 64 64 72 65 73 73 28 62 2e 62 73 5f 6f 70 29 3b 0a 20 20 20 20 20 20 77 32 3a 3d 20 ┆:= address(b.bs_op); w2:= ┆
0x530c0…530e0 62 2e 74 72 61 6e 73 5f 74 6f 70 20 61 73 68 69 66 74 20 6e 65 67 5f 6e 69 6e 65 3b 0a 20 20 20 ┆b.trans_top ashift neg_nine; ┆
0x530e0…530fc 20 20 20 66 6f 72 20 77 32 2d 31 20 73 74 65 70 20 31 20 64 6f 77 6e 74 6f 20 30 20 ┆ for w2-1 step 1 downto 0 ┆
0x530fc…53102 (0x324,0xa63)
0x53102…53120 64 6f 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 62 2e 62 73 5f 73 65 ┆do begin b.bs_se┆
0x53120…53140 67 6e 6f 3a 3d 20 77 32 3b 0a 20 20 20 20 20 20 20 20 69 6f 77 6f 72 6b 61 72 65 61 28 2e 77 33 ┆gno:= w2; ioworkarea(.w3┆
0x53140…53160 2e 2c 77 31 29 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 62 2e 62 73 5f 73 65 67 ┆.,w1); end; b.bs_seg┆
0x53160…5317a 6e 6f 3a 3d 20 77 30 3a 3d 20 2d 31 3b 0a 20 20 20 20 20 20 62 2e 62 73 5f 6f ┆no:= w0:= -1; b.bs_o┆
0x5317a…53180 (0x324,0xa64)
0x53180…531a0 70 3a 3d 20 77 30 3a 3d 20 33 3b 0a 20 20 20 20 20 20 63 61 6c 6c 20 77 30 20 72 65 74 75 72 6e ┆p:= w0:= 3; call w0 return┆
0x531a0…531c0 3b 0a 0a 61 6c 6c 6f 63 61 74 65 3a 0a 20 20 20 20 20 20 6f 70 6d 65 73 73 28 2e 77 33 2e 2c 77 ┆; allocate: opmess(.w3.,w┆
0x531c0…531e0 31 3a 3d 61 64 64 72 65 73 73 28 6f 70 76 65 72 73 69 6f 6e 29 29 3b 0a 20 20 20 20 20 20 77 33 ┆1:=address(opversion)); w3┆
0x531e0…53200 3a 3d 20 62 2e 70 72 69 6d 6f 2b 32 39 3b 20 21 20 74 65 73 74 20 66 75 00 00 00 00 00 00 00 00 ┆:= b.primo+29; ! test fu ┆
0x53200…53206 (665,) (0x324,0xa65)
0x53206…53220 6e 63 74 69 6f 6e 20 6d 61 73 6b 20 21 0a 20 20 20 20 20 20 69 66 20 77 30 3a ┆nction mask ! if w0:┆
0x53220…53240 3d 28 77 33 29 2e 62 79 74 65 20 6f 6e 65 6d 61 73 6b 20 38 27 33 37 30 30 20 74 68 65 6e 0a 20 ┆=(w3).byte onemask 8'3700 then ┆
0x53240…53260 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 73 74 ┆ else begin st┆
0x53260…5327e 6f 70 3a 3d 20 77 30 3a 3d 20 31 3b 0a 20 20 20 20 20 20 20 20 6f 70 6d 65 73 73 28 2e 77 ┆op:= w0:= 1; opmess(.w┆
0x5327e…53284 (0x324,0xa66)
0x53284…532a0 33 2e 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 66 75 6e 63 6f 70 29 29 3b 0a 20 20 20 ┆3.,w1:=address(funcop)); ┆
0x532a0…532c0 20 20 20 65 6e 64 3b 0a 0a 0a 20 20 20 20 20 20 77 31 3a 3d 20 31 30 38 3b 0a 20 20 20 20 20 20 ┆ end; w1:= 108; ┆
0x532c0…532e0 62 2e 73 74 61 72 74 74 69 6d 65 3a 3d 20 66 31 3a 3d 20 28 77 31 29 2e 64 6f 75 62 6c 65 3b 0a ┆b.starttime:= f1:= (w1).double; ┆
0x532e0…532fc 20 20 20 20 20 20 62 2e 61 63 74 69 76 71 66 73 74 3a 3d 77 30 3a 3d 61 64 64 72 65 ┆ b.activqfst:=w0:=addre┆
0x532fc…53302 (0x324,0xa67)
0x53302…53320 73 73 28 62 2e 61 63 74 69 76 71 66 73 74 29 3b 0a 20 20 20 20 20 20 62 2e 61 63 74 69 76 ┆ss(b.activqfst); b.activ┆
0x53320…53340 71 6c 61 73 74 3a 3d 77 30 3b 0a 20 20 20 20 20 20 62 2e 61 6e 73 77 65 72 71 66 73 74 3a 3d 77 ┆qlast:=w0; b.answerqfst:=w┆
0x53340…53360 30 3a 3d 61 64 64 72 65 73 73 28 62 2e 61 6e 73 77 65 72 71 66 73 74 29 3b 0a 20 20 20 20 20 20 ┆0:=address(b.answerqfst); ┆
0x53360…5337a 62 2e 61 6e 73 77 65 72 71 6c 61 73 74 3a 3d 77 30 3b 0a 20 20 20 20 20 20 62 ┆b.answerqlast:=w0; b┆
0x5337a…53380 (0x324,0xa68)
0x53380…533a0 2e 77 61 69 74 71 66 73 74 3a 3d 77 30 3a 3d 61 64 64 72 65 73 73 28 62 2e 77 61 69 74 71 66 73 ┆.waitqfst:=w0:=address(b.waitqfs┆
0x533a0…533c0 74 29 3b 0a 20 20 20 20 20 20 62 2e 77 61 69 74 71 6c 61 73 74 3a 3d 77 30 3b 0a 20 20 20 20 20 ┆t); b.waitqlast:=w0; ┆
0x533c0…533e0 20 62 2e 68 6f 6c 64 71 66 73 74 3a 3d 20 77 30 3a 3d 20 61 64 64 72 65 73 73 28 62 2e 68 6f 6c ┆ b.holdqfst:= w0:= address(b.hol┆
0x533e0…53400 64 71 66 73 74 29 3b 0a 20 20 20 20 20 20 62 2e 68 6f 6c 64 71 6c 61 73 00 00 00 00 00 00 00 00 ┆dqfst); b.holdqlas ┆
0x53400…53406 (666,) (0x324,0xa69)
0x53406…53420 74 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 62 2e 74 71 66 72 65 65 66 73 74 3a ┆t:= w0; b.tqfreefst:┆
0x53420…53440 3d 20 77 30 3a 3d 20 61 64 64 72 65 73 73 28 62 2e 74 71 66 72 65 65 66 73 74 29 3b 0a 20 20 20 ┆= w0:= address(b.tqfreefst); ┆
0x53440…53460 20 20 20 62 2e 74 71 66 72 65 65 6c 61 73 74 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 62 2e 62 73 ┆ b.tqfreelast:= w0; b.bs┆
0x53460…5347e 5f 66 69 72 73 74 3a 3d 20 77 31 3a 3d 20 62 2e 66 69 72 73 74 66 72 65 65 3b 0a 20 20 20 ┆_first:= w1:= b.firstfree; ┆
0x5347e…53484 (0x324,0xa6a)
0x53484…534a0 20 20 20 77 31 2b 35 31 30 3b 0a 20 20 20 20 20 20 62 2e 62 73 5f 6c 61 73 74 20 3a ┆ w1+510; b.bs_last :┆
0x534a0…534c0 3d 20 77 31 3b 0a 20 20 20 20 20 20 77 31 2b 32 3b 0a 20 20 20 20 20 20 6f 70 72 62 75 66 72 65 ┆= w1; w1+2; oprbufre┆
0x534c0…534e0 66 3a 3d 20 77 31 3b 20 21 20 62 75 66 66 65 72 20 66 6f 72 20 6f 70 65 72 61 74 6f 72 20 21 0a ┆f:= w1; ! buffer for operator ! ┆
0x534e0…534fc 20 20 20 20 20 20 77 30 3a 3d 28 21 6c 65 6e 67 74 68 28 62 75 66 68 65 61 64 29 2d ┆ w0:=(!length(bufhead)-┆
0x534fc…53502 (0x324,0xa6b)
0x53502…53520 32 29 2b 62 2e 6f 70 72 74 5f 62 75 66 6c 3b 0a 20 20 20 20 20 20 77 30 2a 6f 70 72 63 6f ┆2)+b.oprt_bufl; w0*oprco┆
0x53520…53540 75 6e 74 3b 0a 20 20 20 20 20 20 77 31 2b 77 30 3b 0a 20 20 20 20 20 20 74 63 62 75 66 72 65 66 ┆unt; w1+w0; tcbufref┆
0x53540…53560 3a 3d 77 31 3b 0a 20 20 20 20 20 20 77 30 3a 3d 28 21 6c 65 6e 67 74 68 28 62 75 66 68 65 61 64 ┆:=w1; w0:=(!length(bufhead┆
0x53560…5357a 29 2d 32 29 2b 70 72 62 75 66 73 69 7a 65 2b 35 31 32 3b 0a 20 20 20 20 20 20 ┆)-2)+prbufsize+512; ┆
0x5357a…53580 (0x324,0xa6c)
0x53580…535a0 77 30 2a 70 72 63 6f 75 6e 74 3b 0a 20 20 20 20 20 20 77 31 2b 77 30 3b 0a 20 20 20 20 20 20 77 ┆w0*prcount; w1+w0; w┆
0x535a0…535c0 30 3a 3d 28 21 6c 65 6e 67 74 68 28 62 75 66 68 65 61 64 29 2d 32 29 2b 70 63 62 75 66 73 69 7a ┆0:=(!length(bufhead)-2)+pcbufsiz┆
0x535c0…535e0 65 2b 35 31 32 3b 0a 20 20 20 20 20 20 77 30 2a 70 63 63 6f 75 6e 74 3b 0a 20 20 20 20 20 20 77 ┆e+512; w0*pccount; w┆
0x535e0…53600 31 2b 77 30 3b 0a 20 20 20 20 20 20 77 30 3a 3d 28 21 6c 65 6e 67 74 68 00 00 00 00 00 00 00 00 ┆1+w0; w0:=(!length ┆
0x53600…53606 (667,) (0x324,0xa6d)
0x53606…53620 28 62 75 66 68 65 61 64 29 2d 32 29 2b 72 64 62 75 66 73 69 7a 65 2b 35 31 32 ┆(bufhead)-2)+rdbufsize+512┆
0x53620…53640 3b 0a 20 20 20 20 20 20 77 30 2a 72 64 63 6f 75 6e 74 3b 0a 20 20 20 20 20 20 77 31 2b 77 30 3b ┆; w0*rdcount; w1+w0;┆
0x53640…53660 0a 20 20 20 20 20 20 77 30 3a 3d 28 21 6c 65 6e 67 74 68 28 62 75 66 68 65 61 64 29 2d 32 29 2b ┆ w0:=(!length(bufhead)-2)+┆
0x53660…5367e 63 64 62 75 66 73 69 7a 65 2b 35 31 32 3b 0a 20 20 20 20 20 20 77 30 2a 63 64 63 6f 75 6e ┆cdbufsize+512; w0*cdcoun┆
0x5367e…53684 (0x324,0xa6e)
0x53684…536a0 74 3b 0a 20 20 20 20 20 20 77 31 2b 77 30 3b 0a 20 20 20 20 20 20 77 30 3a 3d 28 21 ┆t; w1+w0; w0:=(!┆
0x536a0…536c0 6c 65 6e 67 74 68 28 62 75 66 68 65 61 64 29 2d 32 29 2b 74 77 62 75 66 73 69 7a 65 2b 35 31 32 ┆length(bufhead)-2)+twbufsize+512┆
0x536c0…536e0 3b 0a 20 20 20 20 20 20 77 30 2a 74 77 63 6f 75 6e 74 3b 0a 20 20 20 20 20 20 77 31 2b 77 30 3b ┆; w0*twcount; w1+w0;┆
0x536e0…536fc 0a 20 20 20 20 20 20 77 30 3a 3d 20 28 21 6c 65 6e 67 74 68 28 62 75 66 68 65 61 64 ┆ w0:= (!length(bufhead┆
0x536fc…53702 (0x324,0xa6f)
0x53702…53720 29 2d 32 29 2b 66 70 72 62 75 66 73 69 7a 65 2b 35 31 32 3b 0a 20 20 20 20 20 20 77 30 2a ┆)-2)+fprbufsize+512; w0*┆
0x53720…53740 66 70 72 63 6f 75 6e 74 3b 0a 20 20 20 20 20 20 77 31 2b 77 30 3b 0a 20 20 20 20 20 20 71 75 65 ┆fprcount; w1+w0; que┆
0x53740…53760 75 65 66 73 74 3a 3d 20 77 31 3b 0a 20 20 20 20 20 20 77 30 3a 3d 20 21 6c 65 6e 67 74 68 28 71 ┆uefst:= w1; w0:= !length(q┆
0x53760…5377a 75 65 75 65 72 65 63 29 3b 0a 20 20 20 20 20 20 77 30 2a 77 61 69 74 74 72 61 ┆ueuerec); w0*waittra┆
0x5377a…53780 (0x324,0xa70)
0x53780…537a0 6e 73 3b 0a 20 20 20 20 20 20 77 31 2b 77 30 3b 0a 20 20 20 20 20 20 71 75 65 75 65 74 6f 70 3a ┆ns; w1+w0; queuetop:┆
0x537a0…537c0 3d 20 77 31 3b 0a 20 20 20 20 20 20 62 2e 61 70 6c 5f 66 73 74 3a 3d 20 77 31 3b 0a 20 20 20 20 ┆= w1; b.apl_fst:= w1; ┆
0x537c0…537e0 20 20 77 31 2b 21 6c 65 6e 67 74 68 28 63 6f 72 6f 75 74 69 6e 65 29 3b 0a 20 20 20 20 20 20 62 ┆ w1+!length(coroutine); b┆
0x537e0…53800 2e 6f 70 72 5f 66 73 74 3a 3d 20 77 31 3b 0a 20 20 20 20 20 20 77 30 3a 00 00 00 00 00 00 00 00 ┆.opr_fst:= w1; w0: ┆
0x53800…53806 (668,) (0x324,0xa71)
0x53806…53820 3d 20 21 6c 65 6e 67 74 68 28 6f 70 72 63 6f 72 6f 75 74 29 2a 6f 70 72 63 6f ┆= !length(oprcorout)*oprco┆
0x53820…53840 75 6e 74 3b 0a 20 20 20 20 20 20 77 31 2b 77 30 3b 0a 20 20 20 20 20 20 62 2e 6f 70 72 5f 74 6f ┆unt; w1+w0; b.opr_to┆
0x53840…53860 70 3a 3d 20 77 31 3b 0a 20 20 20 20 20 20 62 2e 74 63 70 6f 6f 6c 5f 66 73 74 3a 3d 20 77 31 3b ┆p:= w1; b.tcpool_fst:= w1;┆
0x53860…5387e 0a 20 20 20 20 20 20 77 30 3a 3d 20 21 6c 65 6e 67 74 68 28 70 72 63 6f 72 6f 75 74 29 2a ┆ w0:= !length(prcorout)*┆
0x5387e…53884 (0x324,0xa72)
0x53884…538a0 70 72 63 6f 75 6e 74 3b 0a 20 20 20 20 20 20 77 31 2b 77 30 3b 0a 20 20 20 20 20 20 ┆prcount; w1+w0; ┆
0x538a0…538c0 77 30 3a 3d 21 6c 65 6e 67 74 68 28 70 63 63 6f 72 6f 75 74 29 2a 70 63 63 6f 75 6e 74 3b 0a 20 ┆w0:=!length(pccorout)*pccount; ┆
0x538c0…538e0 20 20 20 20 20 77 31 2b 77 30 3b 0a 20 20 20 20 20 20 77 30 3a 3d 21 6c 65 6e 67 74 68 28 72 64 ┆ w1+w0; w0:=!length(rd┆
0x538e0…538fc 63 6f 72 6f 75 74 29 2a 72 64 63 6f 75 6e 74 3b 0a 20 20 20 20 20 20 77 31 2b 77 30 ┆corout)*rdcount; w1+w0┆
0x538fc…53902 (0x324,0xa73)
0x53902…53920 3b 0a 20 20 20 20 20 20 77 30 3a 3d 21 6c 65 6e 67 74 68 28 72 64 63 6f 72 6f 75 74 29 2a ┆; w0:=!length(rdcorout)*┆
0x53920…53940 63 64 63 6f 75 6e 74 3b 0a 20 20 20 20 20 20 77 31 2b 77 30 3b 0a 20 20 20 20 20 20 77 30 3a 3d ┆cdcount; w1+w0; w0:=┆
0x53940…53960 21 6c 65 6e 67 74 68 28 74 77 63 6f 72 6f 75 74 29 2a 74 77 63 6f 75 6e 74 3b 0a 20 20 20 20 20 ┆!length(twcorout)*twcount; ┆
0x53960…5397a 20 77 31 2b 77 30 3b 0a 20 20 20 20 20 20 77 30 3a 3d 20 21 6c 65 6e 67 74 68 ┆ w1+w0; w0:= !length┆
0x5397a…53980 (0x324,0xa74)
0x53980…539a0 28 66 70 72 63 6f 72 6f 75 74 29 2a 66 70 72 63 6f 75 6e 74 3b 0a 20 20 20 20 20 20 77 31 2b 77 ┆(fprcorout)*fprcount; w1+w┆
0x539a0…539c0 30 3b 0a 20 20 20 20 20 20 62 2e 74 63 70 6f 6f 6c 5f 74 6f 70 3a 3d 20 77 31 3b 0a 20 20 20 20 ┆0; b.tcpool_top:= w1; ┆
0x539c0…539e0 20 20 62 2e 67 61 63 5f 74 61 62 6c 65 20 3a 3d 20 77 31 3b 0a 20 20 20 20 20 20 77 30 20 3a 3d ┆ b.gac_table := w1; w0 :=┆
0x539e0…53a00 20 21 6c 65 6e 67 74 68 28 66 70 72 69 6e 63 6f 72 6f 75 74 29 2a 66 70 00 00 00 00 00 00 00 00 ┆ !length(fprincorout)*fp ┆
0x53a00…53a06 (669,) (0x324,0xa75)
0x53a06…53a20 72 63 6f 75 6e 74 3b 0a 20 20 20 20 20 20 77 31 2b 77 30 3b 0a 20 20 20 20 20 ┆rcount; w1+w0; ┆
0x53a20…53a40 20 62 2e 67 61 63 5f 74 6f 70 20 3a 3d 20 77 31 3b 0a 20 20 20 20 20 20 77 33 3a 3d 62 2e 70 72 ┆ b.gac_top := w1; w3:=b.pr┆
0x53a40…53a60 69 6d 6f 2b 32 32 3b 0a 20 20 20 20 20 20 66 33 3a 3d 28 77 33 29 2e 64 6f 75 62 6c 65 3b 0a 20 ┆imo+22; f3:=(w3).double; ┆
0x53a60…53a7e 20 20 20 20 20 77 33 2d 32 3b 0a 20 20 20 20 20 20 62 2e 74 65 73 74 6d 74 6f 70 3a 3d 77 ┆ w3-2; b.testmtop:=w┆
0x53a7e…53a84 (0x324,0xa76)
0x53a84…53aa0 33 3b 0a 20 20 20 20 20 20 69 66 20 77 30 3a 3d 20 74 65 73 74 73 65 67 6d 6e 74 73 ┆3; if w0:= testsegmnts┆
0x53aa0…53ac0 3e 30 20 74 68 65 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 77 33 2d 35 ┆>0 then begin w3-5┆
0x53ac0…53ae0 31 32 3b 0a 20 20 20 20 20 20 20 20 62 2e 74 65 73 74 6d 6c 61 73 74 3a 3d 20 77 33 3b 0a 20 20 ┆12; b.testmlast:= w3; ┆
0x53ae0…53afc 20 20 20 20 20 20 77 33 2d 35 31 30 3b 0a 20 20 20 20 20 20 20 20 62 2e 74 65 73 74 ┆ w3-510; b.test┆
0x53afc…53b02 (0x324,0xa77)
0x53b02…53b20 6d 66 73 74 3a 3d 20 77 33 3b 0a 20 20 20 20 20 20 65 6e 64 20 65 6c 73 65 0a 20 20 20 20 ┆mfst:= w3; end else ┆
0x53b20…53b40 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 62 2e 74 65 73 74 6d 6c 61 73 74 3a 3d 20 77 33 ┆ begin b.testmlast:= w3┆
0x53b40…53b60 3b 0a 20 20 20 20 20 20 20 20 62 2e 74 65 73 74 6d 66 73 74 3a 3d 20 77 33 3b 0a 20 20 20 20 20 ┆; b.testmfst:= w3; ┆
0x53b60…53b7a 20 65 6e 64 3b 0a 20 20 20 20 20 20 6d 61 72 67 69 6e 3a 3d 77 33 2d 77 31 3b ┆ end; margin:=w3-w1;┆
0x53b7a…53b80 (0x324,0xa78)
0x53b80…53ba0 0a 20 20 20 20 20 20 69 66 20 77 33 20 3c 3e 20 30 20 74 68 65 6e 0a 20 20 20 20 20 20 62 65 67 ┆ if w3 <> 0 then beg┆
0x53ba0…53bc0 69 6e 0a 20 20 20 20 20 20 20 20 77 30 3a 3d 62 2e 74 65 73 74 6d 74 6f 70 2b 32 3b 0a 20 20 20 ┆in w0:=b.testmtop+2; ┆
0x53bc0…53be0 20 20 20 20 20 73 74 64 76 61 6c 75 65 3a 3d 77 30 2d 77 32 2d 6d 61 72 67 69 6e 3b 0a 20 20 20 ┆ stdvalue:=w0-w2-margin; ┆
0x53be0…53c00 20 20 20 20 20 6d 6f 76 65 28 2e 77 33 2e 2c 77 30 3a 3d 38 2c 77 31 3a 00 00 00 00 00 00 00 00 ┆ move(.w3.,w0:=8,w1: ┆
0x53c00…53c06 (670,) (0x324,0xa79)
0x53c06…53c20 3d 61 64 64 72 65 73 73 28 73 69 7a 65 29 2c 77 32 3a 3d 61 64 64 72 65 73 73 ┆=address(size),w2:=address┆
0x53c20…53c40 28 72 65 73 6f 75 72 63 65 29 29 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 33 3a 3d 6d 61 72 67 ┆(resource)); if w3:=marg┆
0x53c40…53c60 69 6e 20 3c 20 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 ┆in < 0 then begin ┆
0x53c60…53c7e 20 20 20 20 61 6c 61 72 6d 3a 3d 77 32 3a 3d 32 37 36 33 33 30 36 3b 20 20 21 20 22 2a 2a ┆ alarm:=w2:=2763306; ! "**┆
0x53c7e…53c84 (0x324,0xa7a)
0x53c84…53ca0 2a 22 20 21 0a 20 20 20 20 20 20 20 20 20 20 73 74 6f 70 3a 3d 77 32 3b 0a 20 20 20 ┆*" ! stop:=w2; ┆
0x53ca0…53cc0 20 20 20 20 20 65 6e 64 20 65 6c 73 65 20 61 6c 61 72 6d 3a 3d 77 32 3a 3d 32 31 30 35 33 37 36 ┆ end else alarm:=w2:=2105376┆
0x53cc0…53ce0 3b 20 20 21 20 22 20 20 20 22 20 21 0a 20 20 20 20 20 20 20 20 6f 70 6d 65 73 73 28 2e 77 33 2e ┆; ! " " ! opmess(.w3.┆
0x53ce0…53cfc 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 6f 70 31 29 29 3b 0a 20 20 20 20 20 20 65 6e ┆,w1:=address(op1)); en┆
0x53cfc…53d02 (0x324,0xa7b)
0x53d02…53d20 64 3b 0a 20 20 20 20 20 20 77 33 3a 3d 62 2e 70 72 69 6d 6f 2b 32 36 3b 0a 20 20 20 20 20 ┆d; w3:=b.primo+26; ┆
0x53d20…53d40 20 62 75 66 63 6c 61 69 6d 3a 3d 77 31 3a 3d 28 77 33 29 2e 62 79 74 65 3b 0a 20 20 20 20 20 20 ┆ bufclaim:=w1:=(w3).byte; ┆
0x53d40…53d60 77 33 2b 31 3b 0a 20 20 20 20 20 20 77 31 3a 3d 28 77 33 29 2e 62 79 74 65 3b 0a 20 20 20 20 20 ┆w3+1; w1:=(w3).byte; ┆
0x53d60…53d7a 20 21 20 61 72 65 61 20 70 72 6f 63 65 73 73 20 63 6c 61 69 6d 20 2b 33 20 70 ┆ ! area process claim +3 p┆
0x53d7a…53d80 (0x324,0xa7c)
0x53d80…53da0 72 69 6d 6f 73 70 6f 6f 6c 20 70 72 69 6d 6f 74 65 73 74 20 70 72 69 6d 6f 73 79 73 20 28 70 73 ┆rimospool primotest primosys (ps┆
0x53da0…53dc0 65 75 64 6f 29 20 21 0a 20 20 20 20 20 20 6d 61 72 67 69 6e 3a 3d 20 77 31 2d 28 77 32 3a 3d 20 ┆eudo) ! margin:= w1-(w2:= ┆
0x53dc0…53de0 70 72 63 6f 75 6e 74 2b 70 63 63 6f 75 6e 74 2b 72 64 63 6f 75 6e 74 2b 63 64 63 6f 75 6e 74 2b ┆prcount+pccount+rdcount+cdcount+┆
0x53de0…53e00 74 77 63 6f 75 6e 74 2b 66 70 72 63 6f 75 6e 74 2b 33 29 3b 0a 20 20 20 00 00 00 00 00 00 00 00 ┆twcount+fprcount+3); ┆
0x53e00…53e06 (671,) (0x324,0xa7d)
0x53e06…53e20 20 20 20 69 66 20 77 31 20 3c 3e 20 30 20 74 68 65 6e 0a 20 20 20 20 20 20 62 ┆ if w1 <> 0 then b┆
0x53e20…53e40 65 67 69 6e 0a 20 20 20 20 20 20 20 20 73 74 64 76 61 6c 75 65 3a 3d 77 32 20 2b 20 31 20 21 20 ┆egin stdvalue:=w2 + 1 ! ┆
0x53e40…53e60 6f 6e 65 20 66 6f 72 20 70 72 6f 67 72 61 6d 20 61 72 65 61 20 70 72 6f 63 65 73 73 20 21 20 3b ┆one for program area process ! ;┆
0x53e60…53e7e 0a 20 20 20 20 20 20 20 20 6d 6f 76 65 28 2e 77 33 2e 2c 77 30 3a 3d 38 2c 77 31 3a 3d 61 ┆ move(.w3.,w0:=8,w1:=a┆
0x53e7e…53e84 (0x324,0xa7e)
0x53e84…53ea0 64 64 72 65 73 73 28 61 72 65 61 29 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 72 65 73 ┆ddress(area),w2:=address(res┆
0x53ea0…53ec0 6f 75 72 63 65 29 29 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 33 3a 3d 6d 61 72 67 69 6e 20 3c ┆ource)); if w3:=margin <┆
0x53ec0…53ee0 20 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 ┆ 0 then begin ┆
0x53ee0…53efc 61 6c 61 72 6d 3a 3d 77 32 3a 3d 32 37 36 33 33 30 36 3b 20 20 21 20 22 2a 2a 2a 22 ┆alarm:=w2:=2763306; ! "***"┆
0x53efc…53f02 (0x324,0xa7f)
0x53f02…53f20 20 21 0a 20 20 20 20 20 20 20 20 20 20 73 74 6f 70 3a 3d 77 32 3b 0a 20 20 20 20 20 20 20 ┆ ! stop:=w2; ┆
0x53f20…53f40 20 65 6e 64 20 65 6c 73 65 20 61 6c 61 72 6d 3a 3d 77 32 3a 3d 32 31 30 35 33 37 36 3b 20 20 21 ┆ end else alarm:=w2:=2105376; !┆
0x53f40…53f60 20 22 20 20 20 22 20 21 0a 20 20 20 20 20 20 20 20 6f 70 6d 65 73 73 28 2e 77 33 2e 2c 77 31 3a ┆ " " ! opmess(.w3.,w1:┆
0x53f60…53f7a 3d 61 64 64 72 65 73 73 28 6f 70 31 29 29 3b 0a 20 20 20 20 20 20 65 6e 64 3b ┆=address(op1)); end;┆
0x53f7a…53f80 (0x324,0xa80)
0x53f80…53fa0 0a 20 20 20 20 20 20 6d 61 72 67 69 6e 3a 3d 0a 20 20 20 20 20 20 77 31 3a 3d 20 62 75 66 63 6c ┆ margin:= w1:= bufcl┆
0x53fa0…53fc0 61 69 6d 2d 28 77 32 3a 3d 20 31 2b 70 72 63 6f 75 6e 74 2b 70 63 63 6f 75 6e 74 2b 72 64 63 6f ┆aim-(w2:= 1+prcount+pccount+rdco┆
0x53fc0…53fe0 75 6e 74 2b 63 64 63 6f 75 6e 74 2b 74 77 63 6f 75 6e 74 2b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆unt+cdcount+twcount+ ┆
0x53fe0…54000 66 70 72 63 6f 75 6e 74 2b 66 70 72 63 6f 75 6e 74 2b 6f 70 72 63 6f 75 00 00 00 00 00 00 00 00 ┆fprcount+fprcount+oprcou ┆
0x54000…54006 (672,) (0x324,0xa81)
0x54006…54020 6e 74 20 2b 20 31 20 21 20 74 65 73 74 6f 75 74 70 75 74 20 21 20 2b 77 61 69 ┆nt + 1 ! testoutput ! +wai┆
0x54020…54040 74 6f 70 73 29 3b 0a 20 20 20 20 20 20 69 66 20 77 31 20 3c 3e 20 30 20 74 68 65 6e 0a 20 20 20 ┆tops); if w1 <> 0 then ┆
0x54040…54060 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 73 74 64 76 61 6c 75 65 3a 3d 77 32 3b 0a 20 ┆ begin stdvalue:=w2; ┆
0x54060…5407e 20 20 20 20 20 20 20 6d 6f 76 65 28 2e 77 33 2e 2c 77 30 3a 3d 38 2c 77 31 3a 3d 61 64 64 ┆ move(.w3.,w0:=8,w1:=add┆
0x5407e…54084 (0x324,0xa82)
0x54084…540a0 72 65 73 73 28 62 75 66 29 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 72 65 73 6f 75 72 ┆ress(buf),w2:=address(resour┆
0x540a0…540c0 63 65 29 29 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 33 3a 3d 6d 61 72 67 69 6e 20 3c 20 30 20 ┆ce)); if w3:=margin < 0 ┆
0x540c0…540e0 74 68 65 6e 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 61 6c 61 ┆then begin ala┆
0x540e0…540fc 72 6d 3a 3d 77 32 3a 3d 32 37 36 33 33 30 36 3b 20 20 21 20 22 2a 2a 2a 22 20 21 0a ┆rm:=w2:=2763306; ! "***" ! ┆
0x540fc…54102 (0x324,0xa83)
0x54102…54120 20 20 20 20 20 20 20 20 20 20 73 74 6f 70 3a 3d 77 32 3b 0a 20 20 20 20 20 20 20 20 65 6e ┆ stop:=w2; en┆
0x54120…54140 64 20 65 6c 73 65 20 61 6c 61 72 6d 3a 3d 77 32 3a 3d 32 31 30 35 33 37 36 3b 20 20 21 20 22 20 ┆d else alarm:=w2:=2105376; ! " ┆
0x54140…54160 20 20 22 20 21 0a 20 20 20 20 20 20 20 20 6f 70 6d 65 73 73 28 2e 77 33 2e 2c 77 31 3a 3d 61 64 ┆ " ! opmess(.w3.,w1:=ad┆
0x54160…5417a 64 72 65 73 73 28 6f 70 31 29 29 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 ┆dress(op1)); end; ┆
0x5417a…54180 (0x324,0xa84)
0x54180…541a0 20 20 20 20 77 33 3a 3d 61 64 64 72 65 73 73 28 73 70 6f 6f 6c 61 72 65 61 29 3b 0a 20 20 20 20 ┆ w3:=address(spoolarea); ┆
0x541a0…541c0 20 20 6d 6f 6e 69 74 6f 72 28 34 38 29 3b 20 20 21 20 72 65 6d 6f 76 65 20 65 6e 74 72 79 20 21 ┆ monitor(48); ! remove entry !┆
0x541c0…541e0 0a 20 20 20 20 20 20 66 32 3a 3d 20 62 2e 73 74 61 72 74 74 69 6d 65 3b 20 66 32 20 6c 73 68 69 ┆ f2:= b.starttime; f2 lshi┆
0x541e0…54200 66 74 20 2d 31 39 3b 0a 20 20 20 20 20 20 28 74 61 69 6c 28 77 31 3a 3d 00 00 00 00 00 00 00 00 ┆ft -19; (tail(w1:= ┆
0x54200…54206 (673,) (0x324,0xa85)
0x54206…54220 36 29 29 2e 77 6f 72 64 3a 3d 20 77 32 3b 0a 20 20 20 20 20 20 62 2e 74 72 61 ┆6)).word:= w2; b.tra┆
0x54220…54240 6e 73 5f 66 69 72 73 74 3a 3d 20 77 32 3a 3d 20 30 3b 0a 20 20 20 20 20 20 77 32 3a 3d 20 74 72 ┆ns_first:= w2:= 0; w2:= tr┆
0x54240…54260 73 65 67 6d 3b 0a 20 20 20 20 20 20 62 2e 74 72 61 6e 73 5f 74 6f 70 3a 3d 20 77 32 20 61 73 68 ┆segm; b.trans_top:= w2 ash┆
0x54260…5427e 69 66 74 20 39 3b 0a 20 20 20 20 20 20 77 32 20 61 73 68 69 66 74 20 2d 39 3b 0a 20 20 20 ┆ift 9; w2 ashift -9; ┆
0x5427e…54284 (0x324,0xa86)
0x54284…542a0 20 20 20 28 74 61 69 6c 28 77 31 3a 3d 31 29 29 2e 77 6f 72 64 3a 3d 77 32 3b 0a 20 ┆ (tail(w1:=1)).word:=w2; ┆
0x542a0…542c0 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 34 30 29 3b 20 20 21 20 63 72 65 61 74 65 20 73 70 6f 6f ┆ monitor(40); ! create spoo┆
0x542c0…542e0 6c 20 61 72 65 61 20 21 0a 20 20 20 20 20 20 77 31 3a 3d 33 3b 0a 20 20 20 20 20 20 6d 6f 6e 69 ┆l area ! w1:=3; moni┆
0x542e0…542fc 74 6f 72 28 35 30 29 3b 20 20 21 20 70 65 72 6d 61 6e 65 6e 74 20 65 6e 74 72 79 20 ┆tor(50); ! permanent entry ┆
0x542fc…54302 (0x324,0xa87)
0x54302…54320 21 0a 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 35 32 29 3b 20 20 21 20 63 72 65 61 74 65 ┆! monitor(52); ! create┆
0x54320…54340 20 61 72 65 61 20 70 72 6f 63 65 73 73 20 21 0a 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 38 29 ┆ area process ! monitor(8)┆
0x54340…54360 3b 20 20 20 21 20 72 65 73 65 72 76 65 20 61 72 65 61 20 70 72 6f 63 65 73 73 20 21 0a 20 20 20 ┆; ! reserve area process ! ┆
0x54360…5437a 20 20 20 69 66 20 77 30 20 3c 3e 20 30 20 74 68 65 6e 0a 20 20 20 20 20 20 62 ┆ if w0 <> 0 then b┆
0x5437a…54380 (0x324,0xa88)
0x54380…543a0 65 67 69 6e 0a 20 20 20 20 20 20 20 20 73 74 64 76 61 6c 75 65 3a 3d 77 32 3b 0a 20 20 20 20 20 ┆egin stdvalue:=w2; ┆
0x543a0…543c0 20 20 20 6d 6f 76 65 28 2e 77 33 2e 2c 77 30 3a 3d 38 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 73 ┆ move(.w3.,w0:=8,w1:=address(s┆
0x543c0…543e0 70 6f 6f 6c 61 72 65 61 29 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 72 65 73 6f 75 72 63 65 29 29 ┆poolarea),w2:=address(resource))┆
0x543e0…54400 3b 0a 20 20 20 20 20 20 20 20 61 6c 61 72 6d 3a 3d 77 32 3a 3d 32 37 36 00 00 00 00 00 00 00 00 ┆; alarm:=w2:=276 ┆
0x54400…54406 (674,) (0x324,0xa89)
0x54406…54420 33 33 30 36 3b 0a 20 20 20 20 20 20 20 20 73 74 6f 70 3a 3d 77 32 3b 0a 20 20 ┆3306; stop:=w2; ┆
0x54420…54440 20 20 20 20 20 20 6f 70 6d 65 73 73 28 2e 77 33 2e 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 6f 70 ┆ opmess(.w3.,w1:=address(op┆
0x54440…54460 31 29 29 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 6d 6f 76 65 28 2e 77 33 2e 2c ┆1)); end; move(.w3.,┆
0x54460…5447e 77 30 3a 3d 38 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 73 70 6f 6f 6c 61 72 65 61 29 2c 77 ┆w0:=8,w1:=address(spoolarea),w┆
0x5447e…54484 (0x324,0xa8a)
0x54484…544a0 32 3a 3d 61 64 64 72 65 73 73 28 62 2e 73 70 6f 6f 6c 6e 61 6d 65 29 29 3b 0a 20 20 ┆2:=address(b.spoolname)); ┆
0x544a0…544c0 20 20 20 20 77 33 3a 3d 61 64 64 72 65 73 73 28 74 65 73 74 61 72 65 61 29 3b 0a 20 20 20 20 20 ┆ w3:=address(testarea); ┆
0x544c0…544e0 20 6d 6f 6e 69 74 6f 72 28 34 38 29 3b 20 20 21 20 72 65 6d 6f 76 65 20 65 6e 74 72 79 20 21 0a ┆ monitor(48); ! remove entry ! ┆
0x544e0…544fc 20 20 20 20 20 20 28 74 61 69 6c 28 77 31 3a 3d 31 29 29 2e 77 6f 72 64 3a 3d 77 32 ┆ (tail(w1:=1)).word:=w2┆
0x544fc…54502 (0x324,0xa8b)
0x54502…54520 3a 3d 74 65 73 74 73 65 67 6d 6e 74 73 3b 0a 20 20 20 20 20 20 62 2e 6d 61 78 74 65 73 74 ┆:=testsegmnts; b.maxtest┆
0x54520…54540 73 65 67 6d 3a 3d 77 32 3b 0a 20 20 20 20 20 20 69 66 20 77 32 20 3e 20 30 20 74 68 65 6e 0a 20 ┆segm:=w2; if w2 > 0 then ┆
0x54540…54560 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 34 30 29 3b 20 ┆ begin monitor(40); ┆
0x54560…5457a 20 21 20 63 72 65 61 74 65 20 74 65 73 74 6f 75 74 70 75 74 20 61 72 65 61 20 ┆ ! create testoutput area ┆
0x5457a…54580 (0x324,0xa8c)
0x54580…545a0 21 0a 20 20 20 20 20 20 20 20 77 31 3a 3d 33 3b 0a 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 ┆! w1:=3; monitor┆
0x545a0…545c0 28 35 30 29 3b 20 20 21 20 70 65 72 6d 61 6e 65 6e 74 20 65 6e 74 72 79 20 21 0a 20 20 20 20 20 ┆(50); ! permanent entry ! ┆
0x545c0…545e0 20 20 20 6d 6f 6e 69 74 6f 72 28 35 32 29 3b 20 20 21 20 63 72 65 61 74 65 20 61 72 65 61 20 70 ┆ monitor(52); ! create area p┆
0x545e0…54600 72 6f 63 65 73 73 20 21 0a 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 00 00 00 00 00 00 00 00 ┆rocess ! monitor ┆
0x54600…54606 (675,) (0x324,0xa8d)
0x54606…54620 28 38 29 3b 20 20 20 21 20 72 65 73 65 72 76 65 20 61 72 65 61 20 70 72 6f 63 ┆(8); ! reserve area proc┆
0x54620…54640 65 73 73 20 21 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 20 3c 3e 20 30 20 74 68 65 6e 0a 20 20 ┆ess ! if w0 <> 0 then ┆
0x54640…54660 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 73 74 64 76 61 6c 75 65 3a 3d ┆ begin stdvalue:=┆
0x54660…5467e 77 32 3b 0a 20 20 20 20 20 20 20 20 20 20 6d 6f 76 65 28 2e 77 33 2e 2c 77 30 3a 3d 38 2c ┆w2; move(.w3.,w0:=8,┆
0x5467e…54684 (0x324,0xa8e)
0x54684…546a0 77 31 3a 3d 61 64 64 72 65 73 73 28 74 65 73 74 61 72 65 61 29 2c 77 32 3a 3d 61 64 ┆w1:=address(testarea),w2:=ad┆
0x546a0…546c0 64 72 65 73 73 28 72 65 73 6f 75 72 63 65 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 61 6c 61 72 ┆dress(resource)); alar┆
0x546c0…546e0 6d 3a 3d 77 32 3a 3d 32 37 36 33 33 30 36 3b 0a 20 20 20 20 20 20 20 20 20 20 73 74 6f 70 3a 3d ┆m:=w2:=2763306; stop:=┆
0x546e0…546fc 77 32 3b 0a 20 20 20 20 20 20 20 20 20 20 6f 70 6d 65 73 73 28 2e 77 33 2e 2c 77 31 ┆w2; opmess(.w3.,w1┆
0x546fc…54702 (0x324,0xa8f)
0x54702…54720 3a 3d 61 64 64 72 65 73 73 28 6f 70 31 29 29 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a ┆:=address(op1)); end; ┆
0x54720…54740 20 20 20 20 20 20 20 20 6d 6f 76 65 28 2e 77 33 2e 2c 77 30 3a 3d 38 2c 77 31 3a 3d 61 64 64 72 ┆ move(.w3.,w0:=8,w1:=addr┆
0x54740…54760 65 73 73 28 74 65 73 74 61 72 65 61 29 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 62 2e 74 65 73 74 ┆ess(testarea),w2:=address(b.test┆
0x54760…5477a 6e 61 6d 65 29 29 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 69 ┆name)); end; i┆
0x5477a…54780 (0x324,0xa90)
0x54780…547a0 66 20 77 30 3a 3d 73 74 6f 70 20 3c 3e 20 30 20 74 68 65 6e 0a 20 20 20 20 20 20 62 65 67 69 6e ┆f w0:=stop <> 0 then begin┆
0x547a0…547c0 20 21 20 74 68 65 20 72 65 73 6f 75 72 63 65 73 20 61 72 65 20 6e 6f 74 20 61 76 61 69 6c 61 62 ┆ ! the resources are not availab┆
0x547c0…547e0 6c 65 20 66 6f 72 20 73 74 61 72 74 20 75 70 20 21 0a 20 20 20 20 20 20 20 20 6f 70 6d 65 73 73 ┆le for start up ! opmess┆
0x547e0…54800 28 2e 77 33 2e 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 69 6e 69 74 74 72 00 00 00 00 00 00 00 00 ┆(.w3.,w1:=address(inittr ┆
0x54800…54806 (676,) (0x324,0xa91)
0x54806…54820 6f 70 29 29 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 6f 70 6d ┆op)); end; opm┆
0x54820…54840 65 73 73 28 2e 77 33 2e 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 6f 70 32 29 29 3b 0a 20 20 20 20 ┆ess(.w3.,w1:=address(op2)); ┆
0x54840…54860 20 20 62 2e 70 72 68 65 61 64 74 72 61 69 6c 3a 3d 20 77 30 3a 3d 20 70 72 6c 74 70 61 67 65 3b ┆ b.prheadtrail:= w0:= prltpage;┆
0x54860…5487e 0a 20 20 20 20 20 20 62 2e 6f 70 72 74 64 65 74 61 69 6c 73 3a 3d 20 77 30 3a 3d 20 6f 70 ┆ b.oprtdetails:= w0:= op┆
0x5487e…54884 (0x324,0xa92)
0x54884…548a0 72 64 65 74 61 69 6c 73 3b 0a 20 20 20 20 20 20 62 2e 61 63 63 65 70 74 3a 3d 20 77 ┆rdetails; b.accept:= w┆
0x548a0…548c0 30 3a 3d 20 74 61 63 63 65 70 74 3b 0a 20 20 20 20 20 20 62 2e 70 72 6c 70 61 67 65 3a 3d 20 77 ┆0:= taccept; b.prlpage:= w┆
0x548c0…548e0 30 3a 3d 20 70 72 6c 69 6e 65 70 61 67 65 3b 0a 20 20 20 20 20 20 77 30 3a 3d 20 30 3b 0a 20 20 ┆0:= prlinepage; w0:= 0; ┆
0x548e0…548fc 20 20 20 20 77 31 3a 3d 20 74 72 73 61 76 65 6d 69 6e 75 74 2a 28 36 30 2a 31 30 30 ┆ w1:= trsaveminut*(60*100┆
0x548fc…54902 (0x324,0xa93)
0x54902…54920 30 2a 31 30 29 3b 0a 20 20 20 20 20 20 62 2e 74 72 73 61 76 65 70 65 72 69 6f 64 3a 3d 20 ┆0*10); b.trsaveperiod:= ┆
0x54920…54940 66 31 3b 0a 20 20 20 20 20 20 62 2e 77 61 69 74 62 75 66 73 3a 3d 20 77 30 3a 3d 20 77 61 69 74 ┆f1; b.waitbufs:= w0:= wait┆
0x54940…54960 6f 70 73 3b 0a 20 20 20 20 20 20 77 33 3a 3d 61 64 64 72 65 73 73 28 70 73 65 75 64 6f 6e 61 6d ┆ops; w3:=address(pseudonam┆
0x54960…5497a 65 29 3b 0a 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 38 30 29 3b 0a 20 20 20 ┆e); monitor(80); ┆
0x5497a…54980 (0x324,0xa94)
0x54980…549a0 20 20 20 63 6f 6d 6d 65 6e 74 20 63 6f 6d 70 75 74 65 20 70 72 69 6d 6f 20 69 64 65 6e 74 69 66 ┆ comment compute primo identif┆
0x549a0…549c0 69 63 61 74 69 6f 6e 2c 20 75 73 65 64 20 69 6e 20 63 6f 6d 6d 75 6e 69 63 61 74 69 6f 6e 0a 20 ┆ication, used in communication ┆
0x549c0…549e0 20 20 20 20 20 20 20 20 20 20 20 20 20 77 69 74 68 20 61 64 70 33 32 37 30 20 2d 20 70 72 69 6d ┆ with adp3270 - prim┆
0x549e0…54a00 6f 5f 69 64 20 3a 3a 3d 20 27 70 72 69 6d 6f 78 78 78 78 27 2c 20 77 68 00 00 00 00 00 00 00 00 ┆o_id ::= 'primoxxxx', wh ┆
0x54a00…54a06 (677,) (0x324,0xa95)
0x54a06…54a20 65 72 65 20 22 78 78 78 78 22 20 69 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ere "xxxx" is ┆
0x54a20…54a40 20 20 74 68 65 20 68 6f 73 74 20 6e 75 6d 62 65 72 20 6f 66 20 72 63 38 30 30 30 2e 3b 0a 20 20 ┆ the host number of rc8000.; ┆
0x54a40…54a60 20 20 20 20 77 30 3a 3d 20 30 3b 77 31 3a 3d 20 28 77 31 3a 3d 31 31 38 36 29 2e 77 6f 72 64 3b ┆ w0:= 0;w1:= (w1:=1186).word;┆
0x54a60…54a7e 20 21 20 77 31 20 3d 20 68 6f 73 74 20 69 64 20 21 0a 20 20 20 20 20 20 66 31 2f 2f 31 30 ┆ ! w1 = host id ! f1//10┆
0x54a7e…54a84 (0x324,0xa96)
0x54a84…54aa0 30 30 3b 0a 20 20 20 20 20 20 77 33 3a 3d 20 61 64 64 72 65 73 73 20 28 62 2e 70 72 ┆00; w3:= address (b.pr┆
0x54aa0…54ac0 69 6d 6f 5f 69 64 29 2b 32 3b 0a 20 20 20 20 20 20 28 77 33 29 2e 77 6f 72 64 3a 3d 20 77 31 2b ┆imo_id)+2; (w3).word:= w1+┆
0x54ac0…54ae0 34 38 2b 28 77 33 29 2e 77 6f 72 64 3b 0a 20 20 20 20 20 20 77 31 3a 3d 20 77 30 3b 77 30 3a 3d ┆48+(w3).word; w1:= w0;w0:=┆
0x54ae0…54afc 20 30 3b 0a 20 20 20 20 20 20 66 31 2f 2f 31 30 30 3b 0a 20 20 20 20 20 20 77 32 3a ┆ 0; f1//100; w2:┆
0x54afc…54b02 (0x324,0xa97)
0x54b02…54b20 3d 20 77 31 2b 34 38 3b 20 77 32 20 6c 73 68 69 66 74 20 38 3b 0a 20 20 20 20 20 20 77 31 ┆= w1+48; w2 lshift 8; w1┆
0x54b20…54b40 3a 3d 20 77 30 3b 77 30 3a 3d 20 30 3b 0a 20 20 20 20 20 20 66 31 2f 2f 31 30 3b 0a 20 20 20 20 ┆:= w0;w0:= 0; f1//10; ┆
0x54b40…54b60 20 20 77 32 3a 3d 20 77 32 2b 77 31 2b 34 38 3b 77 32 20 6c 73 68 69 66 74 20 38 3b 0a 20 20 20 ┆ w2:= w2+w1+48;w2 lshift 8; ┆
0x54b60…54b7a 20 20 20 77 32 3a 3d 20 77 32 2b 77 30 2b 34 38 3b 0a 20 20 20 20 20 20 28 77 ┆ w2:= w2+w0+48; (w┆
0x54b7a…54b80 (0x324,0xa98)
0x54b80…54ba0 33 2b 32 29 2e 77 6f 72 64 3a 3d 20 77 32 3b 0a 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 65 6e ┆3+2).word:= w2; comment en┆
0x54ba0…54bc0 64 20 70 72 69 6d 6f 5f 69 64 3b 0a 0a 20 20 20 20 20 20 67 6f 74 6f 20 69 6e 69 74 62 75 66 73 ┆d primo_id; goto initbufs┆
0x54bc0…54be0 3b 0a 0a 20 20 20 20 65 6e 64 3b 0a 20 20 65 6e 64 3b 20 20 21 20 69 6e 69 74 20 21 0a 0a 0a 0a ┆; end; end; ! init ! ┆
0x54be0…54c00 21 62 72 61 6e 63 68 20 31 2c 33 3b 0a 0a 0a 0a 20 20 62 6f 64 79 20 6f 00 00 00 00 00 00 00 00 ┆!branch 1,3; body o ┆
0x54c00…54c06 (678,) (0x324,0xa99)
0x54c06…54c20 66 20 66 72 65 65 74 72 61 6e 73 70 6f 72 74 0a 20 20 63 6f 6d 6d 65 6e 74 20 ┆f freetransport comment ┆
0x54c20…54c40 66 69 6e 64 20 61 20 66 72 65 65 20 74 72 61 6e 73 70 6f 72 74 20 64 65 73 63 72 69 70 74 69 6f ┆find a free transport descriptio┆
0x54c40…54c60 6e 20 69 66 20 70 6f 73 73 69 62 6c 65 2c 20 61 6e 64 0a 20 20 20 20 20 20 20 20 20 20 6d 61 6b ┆n if possible, and mak┆
0x54c60…54c7e 65 20 74 68 65 20 64 65 73 63 72 69 70 74 69 6f 6e 20 61 76 61 69 6c 61 62 6c 65 20 69 6e ┆e the description available in┆
0x54c7e…54c84 (0x324,0xa9a)
0x54c84…54ca0 20 63 6f 72 65 3b 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 6c 61 62 65 6c 20 65 78 69 ┆ core; begin label exi┆
0x54ca0…54cc0 74 3b 0a 20 20 20 20 69 6e 63 6f 64 65 0a 20 20 20 20 20 20 72 65 66 20 72 65 74 75 72 6e 3b 0a ┆t; incode ref return; ┆
0x54cc0…54ce0 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 72 65 74 75 72 6e 3a 3d 20 77 33 3b 0a 20 20 20 ┆ begin return:= w3; ┆
0x54ce0…54cfc 20 20 20 69 66 20 77 31 3a 3d 20 62 2e 74 72 61 6e 73 5f 6f 6c 64 3c 30 20 74 68 65 ┆ if w1:= b.trans_old<0 the┆
0x54cfc…54d02 (0x324,0xa9b)
0x54d02…54d20 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 62 2e 74 72 61 6e 73 5f ┆n begin b.trans_┆
0x54d20…54d40 6f 6c 64 3a 3d 20 77 31 3a 3d 20 62 2e 74 72 61 6e 73 5f 66 69 72 73 74 3b 0a 20 20 20 20 20 20 ┆old:= w1:= b.trans_first; ┆
0x54d40…54d60 65 6e 64 3b 0a 20 20 20 20 20 20 77 32 3a 3d 20 30 3b 0a 20 20 20 20 20 20 77 68 69 6c 65 20 77 ┆end; w2:= 0; while w┆
0x54d60…54d7a 32 3d 30 20 64 6f 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 ┆2=0 do begin ┆
0x54d7a…54d80 (0x324,0xa9c)
0x54d80…54da0 20 77 33 3a 3d 20 77 31 2b 28 21 6c 65 6e 67 74 68 28 74 72 5f 64 65 73 63 72 29 2b 21 6c 65 6e ┆ w3:= w1+(!length(tr_descr)+!len┆
0x54da0…54dc0 67 74 68 28 74 72 5f 64 65 73 63 72 29 2d 32 29 20 61 73 68 69 66 74 20 2d 39 20 61 73 68 69 66 ┆gth(tr_descr)-2) ashift -9 ashif┆
0x54dc0…54de0 74 20 39 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 33 3e 77 31 20 74 68 65 6e 20 0a 20 20 20 20 ┆t 9; if w3>w1 then ┆
0x54de0…54e00 20 20 20 20 62 65 67 69 6e 20 21 20 63 68 61 6e 67 65 20 73 65 67 6d 65 00 00 00 00 00 00 00 00 ┆ begin ! change segme ┆
0x54e00…54e06 (679,) (0x324,0xa9d)
0x54e06…54e20 6e 74 20 21 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 33 3d 62 2e 74 72 61 ┆nt ! if w3=b.tra┆
0x54e20…54e40 6e 73 5f 74 6f 70 20 74 68 65 6e 20 77 31 3a 3d 62 2e 74 72 61 6e 73 5f 66 69 72 73 74 20 65 6c ┆ns_top then w1:=b.trans_first el┆
0x54e40…54e60 73 65 20 77 31 3a 3d 20 77 33 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 0a 20 20 20 20 20 20 20 20 ┆se w1:= w3; end ┆
0x54e60…54e7e 65 6c 73 65 20 77 31 2b 21 6c 65 6e 67 74 68 28 74 72 5f 64 65 73 63 72 29 3b 0a 20 20 20 ┆else w1+!length(tr_descr); ┆
0x54e7e…54e84 (0x324,0xa9e)
0x54e84…54ea0 20 20 20 20 20 6c 6f 6f 6b 74 72 61 6e 73 70 6f 72 74 28 2e 77 33 2e 2c 77 31 2c 77 ┆ looktransport(.w3.,w1,w┆
0x54ea0…54ec0 32 29 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 32 3e 30 20 74 68 65 6e 20 77 32 3a 3d 20 30 0a ┆2); if w2>0 then w2:= 0 ┆
0x54ec0…54ee0 20 20 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 ┆ else begin ┆
0x54ee0…54efc 20 20 20 20 20 77 32 3a 3d 20 77 31 20 65 78 74 72 61 63 74 20 39 3b 20 77 32 2b 62 ┆ w2:= w1 extract 9; w2+b┆
0x54efc…54f02 (0x324,0xa9f)
0x54f02…54f20 2e 62 73 5f 66 69 72 73 74 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 ┆.bs_first; end; ┆
0x54f20…54f40 20 20 69 66 20 77 31 3d 62 2e 74 72 61 6e 73 5f 6f 6c 64 20 74 68 65 6e 20 67 6f 74 6f 20 65 78 ┆ if w1=b.trans_old then goto ex┆
0x54f40…54f60 69 74 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 0a 65 78 69 74 3a 0a 20 20 20 20 20 20 62 2e 74 72 ┆it; end; exit: b.tr┆
0x54f60…54f7a 61 6e 73 5f 6f 6c 64 3a 3d 20 77 31 3b 0a 20 20 20 20 20 20 77 33 3a 3d 20 62 ┆ans_old:= w1; w3:= b┆
0x54f7a…54f80 (0x324,0xaa0)
0x54f80…54fa0 2e 63 75 72 72 65 6e 74 3b 0a 21 74 65 73 74 20 33 31 31 3b 0a 20 20 20 20 20 20 63 61 6c 6c 20 ┆.current; !test 311; call ┆
0x54fa0…54fc0 77 30 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 65 6e 64 3b 0a 20 20 65 6e 64 3b 20 21 20 66 72 65 ┆w0 return; end; end; ! fre┆
0x54fc0…54fe0 65 74 72 61 6e 73 70 6f 72 74 20 21 0a 0a 0a 0a 20 20 62 6f 64 79 20 6f 66 20 64 65 66 74 72 5f ┆etransport ! body of deftr_┆
0x54fe0…55000 73 65 6d 61 6e 74 69 63 0a 20 20 63 6f 6d 6d 65 6e 74 20 65 78 65 63 75 00 00 00 00 00 00 00 00 ┆semantic comment execu ┆
0x55000…55006 (680,) (0x324,0xaa1)
0x55006…55020 74 65 20 64 65 66 69 6e 65 20 74 72 61 6e 73 70 6f 72 74 20 6f 70 65 72 61 74 ┆te define transport operat┆
0x55020…55040 69 6f 6e 2e 0a 20 20 20 20 20 20 20 20 20 20 63 61 6c 6c 65 64 20 66 72 6f 6d 20 61 70 70 6c 69 ┆ion. called from appli┆
0x55040…55060 63 61 74 69 6f 6e 20 69 6e 74 65 72 66 61 63 65 20 63 6f 72 6f 75 74 69 6e 65 20 74 6f 20 61 76 ┆cation interface coroutine to av┆
0x55060…5507e 6f 69 64 20 62 72 65 61 6b 69 6e 67 0a 20 20 20 20 20 20 20 20 20 20 61 64 64 72 65 73 73 ┆oid breaking address┆
0x5507e…55084 (0x324,0xaa2)
0x55084…550a0 20 6c 69 6d 69 74 20 3b 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 6c 61 62 65 6c 20 6c ┆ limit ; begin label l┆
0x550a0…550c0 5f 72 65 73 6f 75 72 63 65 73 2c 20 6c 5f 65 6e 74 2c 20 6c 5f 64 65 76 2c 20 6c 5f 64 65 76 73 ┆_resources, l_ent, l_dev, l_devs┆
0x550c0…550e0 6c 6f 77 2c 20 65 78 69 74 3b 0a 20 20 20 20 69 6e 63 6f 64 65 0a 20 20 20 20 20 20 77 6f 72 64 ┆low, exit; incode word┆
0x550e0…550fc 20 73 61 76 65 77 32 3b 0a 20 20 20 20 20 20 72 65 66 20 72 65 74 75 72 6e 3b 0a 0a ┆ savew2; ref return; ┆
0x550fc…55102 (0x324,0xaa3)
0x55102…55120 20 20 20 20 20 20 72 65 66 20 74 72 61 6e 73 72 65 66 2c 20 70 72 6f 63 72 65 66 2c 20 74 ┆ ref transref, procref, t┆
0x55120…55140 63 5f 72 65 66 3b 0a 20 20 20 20 20 20 77 6f 72 64 20 68 6f 73 74 6e 6f 2c 20 68 6f 73 74 69 64 ┆c_ref; word hostno, hostid┆
0x55140…55160 3b 0a 20 20 20 20 20 20 62 79 74 65 20 6c 69 6e 65 2c 63 75 2c 64 65 76 3b 0a 20 20 20 20 20 20 ┆; byte line,cu,dev; ┆
0x55160…5517a 77 6f 72 64 20 63 75 5f 64 65 76 3b 0a 20 20 20 20 20 20 72 65 66 20 20 6f 75 ┆word cu_dev; ref ou┆
0x5517a…55180 (0x324,0xaa4)
0x55180…551a0 74 5f 70 72 6f 63 65 73 73 2c 69 6e 5f 70 72 6f 63 65 73 73 3b 0a 20 20 20 20 20 20 74 65 78 74 ┆t_process,in_process; text┆
0x551a0…551c0 20 28 31 31 29 20 69 6e 64 65 76 69 63 65 3b 0a 20 20 20 20 20 20 74 65 78 74 20 28 31 31 29 20 ┆ (11) indevice; text (11) ┆
0x551c0…551e0 66 6f 72 6d 61 74 70 72 69 6e 74 65 72 3b 0a 20 20 20 20 20 20 74 65 78 74 28 31 31 29 20 64 6f ┆formatprinter; text(11) do┆
0x551e0…55200 63 6e 61 6d 65 3b 0a 20 20 20 20 20 20 21 20 66 69 6c 65 20 64 65 73 63 00 00 00 00 00 00 00 00 ┆cname; ! file desc ┆
0x55200…55206 (681,) (0x324,0xaa5)
0x55206…55220 72 69 70 74 6f 72 20 21 0a 20 20 20 20 20 20 77 6f 72 64 20 65 6e 74 5f 6d 6b ┆riptor ! word ent_mk┆
0x55220…55240 3b 0a 20 20 20 20 20 20 74 65 78 74 28 31 31 29 20 65 6e 74 5f 64 6f 63 6e 61 6d 65 3b 0a 20 20 ┆; text(11) ent_docname; ┆
0x55240…55260 20 20 20 20 77 6f 72 64 20 65 6e 74 5f 36 2c 65 6e 74 5f 37 2c 65 6e 74 5f 38 2c 65 6e 74 5f 39 ┆ word ent_6,ent_7,ent_8,ent_9┆
0x55260…5527e 2c 65 6e 74 5f 31 30 3b 0a 0a 20 20 20 20 20 20 77 6f 72 64 20 73 65 6e 64 65 72 5f 72 65 ┆,ent_10; word sender_re┆
0x5527e…55284 (0x324,0xaa6)
0x55284…552a0 63 65 69 76 65 72 2c 62 73 5f 64 65 76 3b 20 21 20 68 65 6c 70 20 76 61 72 73 20 75 ┆ceiver,bs_dev; ! help vars u┆
0x552a0…552c0 73 65 64 20 74 6f 20 6c 6f 6f 6b 20 75 70 20 73 65 6e 64 65 72 2f 72 65 63 65 69 76 65 72 20 65 ┆sed to look up sender/receiver e┆
0x552c0…552e0 6e 74 72 69 65 73 20 21 0a 20 20 20 20 20 20 77 6f 72 64 20 7a 65 72 6f 3a 3d 20 30 3b 0a 20 20 ┆ntries ! word zero:= 0; ┆
0x552e0…552fc 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 72 65 74 75 72 6e 3a 3d 20 77 33 3b 0a 20 ┆ begin return:= w3; ┆
0x552fc…55302 (0x324,0xaa7)
0x55302…55320 20 20 20 20 20 74 72 61 6e 73 72 65 66 3a 3d 20 77 32 3b 0a 20 20 20 20 20 20 63 75 5f 64 ┆ transref:= w2; cu_d┆
0x55320…55340 65 76 3a 3d 20 77 30 3a 3d 30 3b 0a 20 20 20 20 20 20 77 32 3a 3d 20 62 2e 65 76 65 6e 74 3b 0a ┆ev:= w0:=0; w2:= b.event; ┆
0x55340…55360 20 20 20 20 20 20 77 33 3a 3d 20 28 77 32 29 2e 63 6d 5f 73 65 6e 64 65 72 3b 0a 20 20 20 20 20 ┆ w3:= (w2).cm_sender; ┆
0x55360…5537a 20 69 66 20 77 33 3c 3d 30 20 74 68 65 6e 20 2d 28 77 33 29 3b 0a 0a 20 20 20 ┆ if w3<=0 then -(w3); ┆
0x5537a…55380 (0x324,0xaa8)
0x55380…553a0 20 20 20 21 20 67 65 74 20 73 65 6e 64 65 72 20 63 61 74 20 62 61 73 65 20 61 6e 64 20 63 68 65 ┆ ! get sender cat base and che┆
0x553a0…553c0 63 6b 20 74 68 61 74 20 69 74 20 69 73 20 63 6f 6e 74 61 69 6e 65 64 20 69 6e 20 6d 79 20 73 74 ┆ck that it is contained in my st┆
0x553c0…553e0 64 20 62 61 73 65 20 21 0a 20 20 20 20 20 20 77 33 2b 36 38 3b 0a 20 20 20 20 20 20 77 32 3a 3d ┆d base ! w3+68; w2:=┆
0x553e0…55400 20 62 2e 70 72 69 6d 6f 2b 37 36 3b 0a 20 20 20 20 20 20 74 72 61 6e 73 00 00 00 00 00 00 00 00 ┆ b.primo+76; trans ┆
0x55400…55406 (682,) (0x324,0xaa9)
0x55406…55420 72 65 66 2e 74 72 5f 62 61 73 65 6c 3a 3d 20 77 30 3a 3d 20 28 77 33 29 2e 77 ┆ref.tr_basel:= w0:= (w3).w┆
0x55420…55440 6f 72 64 3b 0a 20 20 20 20 20 20 69 66 20 77 30 3c 28 77 32 29 2e 77 6f 72 64 20 74 68 65 6e 20 ┆ord; if w0<(w2).word then ┆
0x55440…55460 67 6f 74 6f 20 6c 5f 72 65 73 6f 75 72 63 65 73 3b 0a 20 20 20 20 20 20 77 33 2b 32 3b 20 77 32 ┆goto l_resources; w3+2; w2┆
0x55460…5547e 2b 32 3b 0a 20 20 20 20 20 20 74 72 61 6e 73 72 65 66 2e 74 72 5f 62 61 73 65 75 3a 3d 20 ┆+2; transref.tr_baseu:= ┆
0x5547e…55484 (0x324,0xaaa)
0x55484…554a0 77 31 3a 3d 20 28 77 33 29 2e 77 6f 72 64 3b 0a 20 20 20 20 20 20 69 66 20 77 31 3e ┆w1:= (w3).word; if w1>┆
0x554a0…554c0 28 77 32 29 2e 77 6f 72 64 20 74 68 65 6e 20 67 6f 74 6f 20 6c 5f 72 65 73 6f 75 72 63 65 73 3b ┆(w2).word then goto l_resources;┆
0x554c0…554e0 0a 20 20 20 20 20 20 77 33 3a 3d 20 61 64 64 72 65 73 73 28 7a 65 72 6f 29 3b 0a 20 20 20 20 20 ┆ w3:= address(zero); ┆
0x554e0…554fc 20 6d 6f 6e 69 74 6f 72 28 37 32 29 3b 20 21 20 73 65 74 20 63 61 74 20 62 61 73 65 ┆ monitor(72); ! set cat base┆
0x554fc…55502 (0x324,0xaab)
0x55502…55520 20 21 0a 21 74 65 73 74 20 39 31 3b 0a 0a 20 20 20 20 20 20 21 20 74 65 73 74 20 73 65 6e ┆ ! !test 91; ! test sen┆
0x55520…55540 64 65 72 20 61 6e 64 20 72 65 63 65 69 76 65 72 20 65 6e 74 72 79 20 21 0a 20 20 20 20 20 20 73 ┆der and receiver entry ! s┆
0x55540…55560 65 6e 64 65 72 5f 72 65 63 65 69 76 65 72 3a 3d 20 77 30 3a 3d 20 30 3b 0a 20 20 20 20 20 20 62 ┆ender_receiver:= w0:= 0; b┆
0x55560…5557a 73 5f 64 65 76 3a 3d 20 77 30 3b 20 21 20 62 73 20 61 72 65 61 20 6e 6f 74 20 ┆s_dev:= w0; ! bs area not ┆
0x5557a…55580 (0x324,0xaac)
0x55580…555a0 66 6f 75 6e 64 20 79 65 74 20 21 0a 20 20 20 20 20 20 77 68 69 6c 65 20 77 30 3a 3d 73 65 6e 64 ┆found yet ! while w0:=send┆
0x555a0…555c0 65 72 5f 72 65 63 65 69 76 65 72 2b 31 3c 3d 32 20 64 6f 0a 20 20 20 20 20 20 62 65 67 69 6e 0a ┆er_receiver+1<=2 do begin ┆
0x555c0…555e0 20 20 20 20 20 20 20 20 73 65 6e 64 65 72 5f 72 65 63 65 69 76 65 72 3a 3d 20 77 30 3b 0a 20 20 ┆ sender_receiver:= w0; ┆
0x555e0…55600 20 20 20 20 20 20 77 31 3a 3d 20 61 64 64 72 65 73 73 28 65 6e 74 5f 6d 00 00 00 00 00 00 00 00 ┆ w1:= address(ent_m ┆
0x55600…55606 (683,) (0x324,0xaad)
0x55606…55620 6b 29 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3d 31 20 74 68 65 6e 20 77 ┆k); if w0=1 then w┆
0x55620…55640 33 3a 3d 20 61 64 64 72 65 73 73 28 28 77 33 3a 3d 74 72 61 6e 73 72 65 66 29 2e 74 72 5f 73 6e ┆3:= address((w3:=transref).tr_sn┆
0x55640…55660 61 6d 65 29 0a 20 20 20 20 20 20 20 20 65 6c 73 65 20 77 33 3a 3d 20 61 64 64 72 65 73 73 28 28 ┆ame) else w3:= address((┆
0x55660…5567e 77 33 3a 3d 74 72 61 6e 73 72 65 66 29 2e 74 72 5f 72 6e 61 6d 65 29 3b 0a 20 20 20 20 20 ┆w3:=transref).tr_rname); ┆
0x5567e…55684 (0x324,0xaae)
0x55684…556a0 20 20 20 6d 6f 6e 69 74 6f 72 28 34 32 29 3b 20 21 20 6c 6f 6f 6b 20 75 70 20 65 6e ┆ monitor(42); ! look up en┆
0x556a0…556c0 74 72 79 20 21 0a 21 74 65 73 74 20 39 32 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3c 3e 30 ┆try ! !test 92; if w0<>0┆
0x556c0…556e0 20 74 68 65 6e 20 67 6f 74 6f 20 6c 5f 65 6e 74 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3a ┆ then goto l_ent; if w0:┆
0x556e0…556fc 3d 20 65 6e 74 5f 6d 6b 3c 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 62 65 67 69 ┆= ent_mk<0 then begi┆
0x556fc…55702 (0x324,0xaaf)
0x55702…55720 6e 20 21 20 66 69 6c 65 20 64 65 73 63 72 69 70 74 6f 72 20 21 0a 20 20 20 20 20 20 20 20 ┆n ! file descriptor ! ┆
0x55720…55740 20 20 69 66 20 20 77 30 20 65 78 74 72 61 63 74 20 31 32 3d 34 20 74 68 65 6e 0a 20 20 20 20 20 ┆ if w0 extract 12=4 then ┆
0x55740…55760 20 20 20 20 20 62 65 67 69 6e 20 21 20 62 73 20 64 65 73 63 72 69 70 74 6f 72 20 21 0a 20 20 20 ┆ begin ! bs descriptor ! ┆
0x55760…5577a 20 20 20 20 20 20 20 20 20 77 33 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆ w3:=0; ┆
0x5577a…55780 (0x324,0xab0)
0x55780…557a0 20 20 77 30 3a 3d 65 6e 74 5f 38 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 74 72 61 6e 73 72 65 ┆ w0:=ent_8; transre┆
0x557a0…557c0 66 2e 74 72 5f 62 73 73 74 61 72 74 70 74 72 3a 3d 66 30 20 61 73 68 69 66 74 20 39 3b 0a 20 20 ┆f.tr_bsstartptr:=f0 ashift 9; ┆
0x557c0…557e0 20 20 20 20 20 20 20 20 20 20 6d 6f 76 65 28 2e 77 33 2e 2c 77 30 3a 3d 38 2c 77 31 3a 3d 61 64 ┆ move(.w3.,w0:=8,w1:=ad┆
0x557e0…55800 64 72 65 73 73 28 65 6e 74 5f 64 6f 63 6e 61 6d 65 29 2c 0a 20 20 20 20 00 00 00 00 00 00 00 00 ┆dress(ent_docname), ┆
0x55800…55806 (684,) (0x324,0xab1)
0x55806…55820 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 61 64 64 72 ┆ w2:=addr┆
0x55820…55840 65 73 73 28 28 77 32 3a 3d 74 72 61 6e 73 72 65 66 29 2e 74 72 5f 62 73 61 72 65 61 29 29 3b 0a ┆ess((w2:=transref).tr_bsarea)); ┆
0x55840…55860 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 20 61 64 64 72 65 73 73 28 65 6e 74 5f 6d 6b 29 ┆ w1:= address(ent_mk)┆
0x55860…5587e 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 20 61 64 64 72 65 73 73 28 65 6e 74 ┆; w3:= address(ent┆
0x5587e…55884 (0x324,0xab2)
0x55884…558a0 5f 64 6f 63 6e 61 6d 65 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 ┆_docname); monit┆
0x558a0…558c0 6f 72 28 34 32 29 3b 20 21 20 6c 6f 6f 6b 20 75 70 20 65 6e 74 72 79 20 21 0a 21 74 65 73 74 20 ┆or(42); ! look up entry ! !test ┆
0x558c0…558e0 39 34 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3c 3e 30 20 74 68 65 6e 20 67 6f ┆94; if w0<>0 then go┆
0x558e0…558fc 74 6f 20 6c 5f 64 65 76 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3a ┆to l_dev; if w0:┆
0x558fc…55902 (0x324,0xab3)
0x55902…55920 3d 20 65 6e 74 5f 6d 6b 3c 30 20 74 68 65 6e 20 67 6f 74 6f 20 6c 5f 64 65 76 3b 0a 20 20 ┆= ent_mk<0 then goto l_dev; ┆
0x55920…55940 20 20 20 20 20 20 20 20 20 20 62 73 5f 64 65 76 3a 3d 20 77 30 3a 3d 20 73 65 6e 64 65 72 5f 72 ┆ bs_dev:= w0:= sender_r┆
0x55940…55960 65 63 65 69 76 65 72 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 0a 20 20 20 20 20 20 20 20 20 ┆eceiver; end ┆
0x55960…5597a 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 ┆ else begin ┆
0x5597a…55980 (0x324,0xab4)
0x55980…559a0 20 20 20 20 20 20 20 20 69 66 20 77 32 3a 3d 73 65 6e 64 65 72 5f 72 65 63 65 69 76 65 72 3d 31 ┆ if w2:=sender_receiver=1┆
0x559a0…559c0 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 21 74 65 73 74 20 39 35 ┆ then begin !test 95┆
0x559c0…559e0 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3d 38 20 74 68 65 6e 20 21 20 74 ┆; if w0=8 then ! t┆
0x559e0…55a00 79 70 65 77 72 69 74 65 72 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ypewriter ! ┆
0x55a00…55a06 (685,) (0x324,0xab5)
0x55a06…55a20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 ┆ else if w0┆
0x55a20…55a40 3d 31 30 20 74 68 65 6e 20 21 20 72 65 61 64 65 72 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆=10 then ! reader ! ┆
0x55a40…55a60 20 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3d 31 36 20 74 68 ┆ else if w0=16 th┆
0x55a60…55a7e 65 6e 20 21 20 63 61 72 64 72 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6c 73 ┆en ! cardr ! els┆
0x55a7e…55a84 (0x324,0xab6)
0x55a84…55aa0 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 6c 5f 65 6e 74 3b 0a ┆e goto l_ent; ┆
0x55aa0…55ac0 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 ┆ end else┆
0x55ac0…55ae0 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 21 74 65 73 74 20 39 36 3b 0a 20 20 20 ┆ begin !test 96; ┆
0x55ae0…55afc 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3d 31 32 20 74 68 65 6e 20 21 20 70 ┆ if w0=12 then ! p┆
0x55afc…55b02 (0x324,0xab7)
0x55b02…55b20 75 6e 63 68 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 ┆unch ! else ┆
0x55b20…55b40 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3d 31 34 20 74 68 65 6e 20 63 75 5f 64 65 76 20 3a ┆ if w0=14 then cu_dev :┆
0x55b40…55b60 3d 20 77 30 20 3a 3d 20 65 6e 74 5f 31 30 20 21 20 70 72 69 6e 74 65 72 20 21 0a 20 20 20 20 20 ┆= w0 := ent_10 ! printer ! ┆
0x55b60…55b7a 20 20 20 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ else ┆
0x55b7a…55b80 (0x324,0xab8)
0x55b80…55ba0 20 20 67 6f 74 6f 20 6c 5f 65 6e 74 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 0a ┆ goto l_ent; end; ┆
0x55ba0…55bc0 20 20 20 20 20 20 20 20 20 20 20 20 74 72 61 6e 73 72 65 66 2e 74 72 5f 6b 69 6e 64 3a 3d 20 77 ┆ transref.tr_kind:= w┆
0x55bc0…55be0 30 3a 3d 20 65 6e 74 5f 6d 6b 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 74 72 61 6e 73 72 65 66 ┆0:= ent_mk; transref┆
0x55be0…55c00 2e 74 72 5f 6d 6f 64 65 3a 3d 20 77 30 20 6c 73 68 69 66 74 20 31 20 6c 00 00 00 00 00 00 00 00 ┆.tr_mode:= w0 lshift 1 l ┆
0x55c00…55c06 (686,) (0x324,0xab9)
0x55c06…55c20 73 68 69 66 74 20 2d 31 33 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 68 6f 73 ┆shift -13; hos┆
0x55c20…55c40 74 6e 6f 3a 3d 20 77 30 3a 3d 20 65 6e 74 5f 37 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 68 6f ┆tno:= w0:= ent_7; ho┆
0x55c40…55c60 73 74 69 64 3a 3d 20 77 30 3a 3d 20 65 6e 74 5f 38 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 ┆stid:= w0:= ent_8; i┆
0x55c60…55c7e 66 20 77 30 3a 3d 20 63 75 5f 64 65 76 20 3c 3e 20 30 20 74 68 65 6e 0a 20 20 20 20 20 20 ┆f w0:= cu_dev <> 0 then ┆
0x55c7e…55c84 (0x324,0xaba)
0x55c84…55ca0 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 ┆ begin ! ┆
0x55ca0…55cc0 63 6f 6d 70 75 74 65 20 66 6f 72 6d 61 74 20 70 72 69 6e 74 65 72 20 6e 61 6d 65 73 20 62 61 73 ┆compute format printer names bas┆
0x55cc0…55ce0 65 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 6e 20 65 6e 74 5f 64 6f 63 6e 61 6d ┆ed on ent_docnam┆
0x55ce0…55cfc 65 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 0a 20 20 20 20 20 20 20 20 20 ┆e ! ┆
0x55cfc…55d02 (0x324,0xabb)
0x55d02…55d20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 73 65 74 20 6b 69 6e 64 20 74 6f 20 31 35 3b 0a 20 ┆ comment set kind to 15; ┆
0x55d20…55d40 20 20 20 20 20 20 20 20 20 20 20 20 20 74 72 61 6e 73 72 65 66 2e 74 72 5f 6b 69 6e 64 20 3a 3d ┆ transref.tr_kind :=┆
0x55d40…55d60 20 77 33 20 3a 3d 20 74 72 61 6e 73 72 65 66 2e 74 72 5f 6b 69 6e 64 20 2b 20 31 3b 0a 20 20 20 ┆ w3 := transref.tr_kind + 1; ┆
0x55d60…55d7a 20 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 20 63 75 5f 64 65 76 20 6c 73 68 ┆ w0:= cu_dev lsh┆
0x55d7a…55d80 (0x324,0xabc)
0x55d80…55da0 69 66 74 20 2d 31 36 20 65 78 74 72 61 63 74 20 35 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ift -16 extract 5; ┆
0x55da0…55dc0 20 69 66 20 77 30 3e 39 20 74 68 65 6e 20 77 30 2b 38 37 20 65 6c 73 65 20 77 30 2b 34 38 3b 0a ┆ if w0>9 then w0+87 else w0+48; ┆
0x55dc0…55de0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 69 6e 65 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 ┆ line:= w0; ┆
0x55de0…55e00 20 20 20 20 20 20 20 77 30 3a 3d 20 63 75 5f 64 65 76 20 6c 73 68 69 66 00 00 00 00 00 00 00 00 ┆ w0:= cu_dev lshif ┆
0x55e00…55e06 (687,) (0x324,0xabd)
0x55e06…55e20 74 20 2d 38 20 65 78 74 72 61 63 74 20 35 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆t -8 extract 5; ┆
0x55e20…55e40 20 20 20 20 69 66 20 77 30 3e 39 20 74 68 65 6e 20 77 30 2b 38 37 20 65 6c 73 65 20 77 30 2b 34 ┆ if w0>9 then w0+87 else w0+4┆
0x55e40…55e60 38 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 75 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 ┆8; cu:= w0; ┆
0x55e60…55e7e 20 20 20 20 20 20 20 20 77 30 3a 3d 20 63 75 5f 64 65 76 20 65 78 74 72 61 63 74 20 35 3b ┆ w0:= cu_dev extract 5;┆
0x55e7e…55e84 (0x324,0xabe)
0x55e84…55ea0 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3e 39 20 74 68 65 6e 20 ┆ if w0>9 then ┆
0x55ea0…55ec0 77 30 2b 38 37 20 65 6c 73 65 20 77 30 2b 34 38 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆w0+87 else w0+48; ┆
0x55ec0…55ee0 64 65 76 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 20 6c 69 6e ┆dev:= w0; w0:= lin┆
0x55ee0…55efc 65 20 6c 73 68 69 66 74 20 38 20 2b 20 63 75 20 6c 73 68 69 66 74 20 38 20 2b 20 64 ┆e lshift 8 + cu lshift 8 + d┆
0x55efc…55f02 (0x324,0xabf)
0x55f02…55f20 65 76 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 67 6f 75 74 33 20 3d 3e 20 67 ┆ev; ! gout3 => g┆
0x55f20…55f40 78 79 7a 33 20 3a 20 28 78 3d 6c 69 6e 65 2c 79 3d 63 75 2c 7a 3d 64 65 76 29 0a 20 20 20 20 20 ┆xyz3 : (x=line,y=cu,z=dev) ┆
0x55f40…55f60 20 20 20 20 20 20 20 20 20 20 20 78 2c 79 2c 7a 20 3a 3a 3d 20 28 30 2e 2e 39 61 2e 2e 75 29 20 ┆ x,y,z ::= (0..9a..u) ┆
0x55f60…55f7a 69 2e 65 2e 20 28 30 2e 2e 33 31 29 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 ┆i.e. (0..31) ! ┆
0x55f7a…55f80 (0x324,0xac0)
0x55f80…55fa0 20 20 20 20 20 20 65 64 69 74 6f 75 74 20 28 2e 77 33 2e 2c 77 30 2c 77 31 3a 3d 61 64 64 72 65 ┆ editout (.w3.,w0,w1:=addre┆
0x55fa0…55fc0 73 73 28 65 6e 74 5f 64 6f 63 6e 61 6d 65 29 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 64 6f 63 6e ┆ss(ent_docname),w2:=address(docn┆
0x55fc0…55fe0 61 6d 65 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 20 3d 20 30 20 74 ┆ame)); if w0 = 0 t┆
0x55fe0…56000 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 64 69 74 6f 75 00 00 00 00 00 00 00 00 ┆hen editou ┆
0x56000…56006 (688,) (0x324,0xac1)
0x56006…56020 74 20 28 2e 77 33 2e 2c 77 30 3a 3d 36 39 30 39 34 34 30 21 20 22 69 6e 22 21 ┆t (.w3.,w0:=6909440! "in"!┆
0x56020…56040 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 65 6e 74 5f 64 6f 63 6e 61 6d 65 29 2c 0a 20 20 20 20 20 ┆,w1:=address(ent_docname), ┆
0x56040…56060 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 20 20 ┆ ┆
0x56060…5607e 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 61 64 64 72 65 73 73 28 69 6e 64 65 76 69 63 65 ┆ w2:=address(indevice┆
0x5607e…56084 (0x324,0xac2)
0x56084…560a0 29 29 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 6c ┆)) else goto l┆
0x560a0…560c0 5f 65 6e 74 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f 76 65 20 28 2e 77 33 2e 2c 77 ┆_ent; move (.w3.,w┆
0x560c0…560e0 30 3a 3d 38 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 65 6e 74 5f 64 6f 63 6e 61 6d 65 29 2c 77 32 ┆0:=8,w1:=address(ent_docname),w2┆
0x560e0…560fc 3a 3d 61 64 64 72 65 73 73 28 66 6f 72 6d 61 74 70 72 69 6e 74 65 72 29 29 3b 0a 20 ┆:=address(formatprinter)); ┆
0x560fc…56102 (0x324,0xac3)
0x56102…56120 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 ┆ end else ┆
0x56120…56140 20 20 6d 6f 76 65 28 2e 77 33 2e 2c 77 30 3a 3d 38 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 65 6e ┆ move(.w3.,w0:=8,w1:=address(en┆
0x56140…56160 74 5f 64 6f 63 6e 61 6d 65 29 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 64 6f 63 6e 61 6d 65 29 29 ┆t_docname),w2:=address(docname))┆
0x56160…5617a 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 65 ┆; end; e┆
0x5617a…56180 (0x324,0xac4)
0x56180…561a0 6e 64 20 21 20 66 69 6c 65 20 64 65 73 63 72 69 70 74 6f 72 20 21 0a 20 20 20 20 20 20 20 20 65 ┆nd ! file descriptor ! e┆
0x561a0…561c0 6c 73 65 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 21 74 65 73 74 20 39 37 3b 0a 20 20 20 20 ┆lse begin !test 97; ┆
0x561c0…561e0 20 20 20 20 20 20 62 73 5f 64 65 76 3a 3d 20 77 30 3a 3d 20 73 65 6e 64 65 72 5f 72 65 63 65 69 ┆ bs_dev:= w0:= sender_recei┆
0x561e0…56200 76 65 72 3b 0a 20 20 20 20 20 20 20 20 20 20 6d 6f 76 65 28 2e 77 33 2e 00 00 00 00 00 00 00 00 ┆ver; move(.w3. ┆
0x56200…56206 (689,) (0x324,0xac5)
0x56206…56220 2c 77 30 3a 3d 38 2c 77 31 3a 3d 77 33 2c 0a 20 20 20 20 20 20 20 20 20 20 20 ┆,w0:=8,w1:=w3, ┆
0x56220…56240 20 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 61 64 64 72 65 73 73 28 28 77 32 3a 3d 74 72 61 6e ┆ w2:=address((w2:=tran┆
0x56240…56260 73 72 65 66 29 2e 74 72 5f 62 73 61 72 65 61 29 29 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a ┆sref).tr_bsarea)); end; ┆
0x56260…5627e 20 20 20 20 20 20 65 6e 64 3b 0a 0a 20 20 20 20 20 20 69 66 20 77 30 3a 3d 20 62 73 5f 64 ┆ end; if w0:= bs_d┆
0x5627e…56284 (0x324,0xac6)
0x56284…562a0 65 76 3d 30 20 74 68 65 6e 20 67 6f 74 6f 20 6c 5f 65 6e 74 3b 20 21 20 62 73 5f 61 ┆ev=0 then goto l_ent; ! bs_a┆
0x562a0…562c0 72 65 61 20 6e 6f 74 20 66 6f 75 6e 64 20 21 0a 0a 20 20 20 20 20 20 77 31 3a 3d 20 61 64 64 72 ┆rea not found ! w1:= addr┆
0x562c0…562e0 65 73 73 28 62 2e 74 71 66 72 65 65 66 73 74 29 3b 0a 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 ┆ess(b.tqfreefst); if w0:=(┆
0x562e0…562fc 77 31 29 2e 74 71 5f 6e 65 78 74 3d 77 31 20 74 68 65 6e 20 67 6f 74 6f 20 6c 5f 72 ┆w1).tq_next=w1 then goto l_r┆
0x562fc…56302 (0x324,0xac7)
0x56302…56320 65 73 6f 75 72 63 65 73 3b 20 21 20 6e 6f 20 66 72 65 65 20 71 75 65 75 65 20 65 6c 65 6d ┆esources; ! no free queue elem┆
0x56320…56340 65 6e 74 20 21 0a 20 20 20 20 20 20 66 69 6e 64 5f 74 63 28 2e 77 33 2e 2c 77 30 3a 3d 61 64 64 ┆ent ! find_tc(.w3.,w0:=add┆
0x56340…56360 72 65 73 73 28 64 6f 63 6e 61 6d 65 29 2c 77 30 3a 3d 68 6f 73 74 6e 6f 2c 77 30 3a 3d 68 6f 73 ┆ress(docname),w0:=hostno,w0:=hos┆
0x56360…5637a 74 69 64 2c 77 30 3a 3d 74 72 61 6e 73 72 65 66 2e 74 72 5f 6b 69 6e 64 2c 0a ┆tid,w0:=transref.tr_kind, ┆
0x5637a…56380 (0x324,0xac8)
0x56380…563a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 29 3b 0a 21 74 65 73 74 20 39 38 ┆ w1); !test 98┆
0x563a0…563c0 3b 0a 20 20 20 20 20 20 74 63 5f 72 65 66 3a 3d 20 77 31 3b 0a 20 20 20 20 20 20 69 66 20 77 31 ┆; tc_ref:= w1; if w1┆
0x563c0…563e0 3d 30 20 74 68 65 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 20 21 20 6e 6f 20 66 72 65 65 20 63 6f ┆=0 then begin ! no free co┆
0x563e0…56400 72 6f 75 74 69 6e 65 20 21 0a 20 20 20 20 20 20 20 20 67 6f 74 6f 20 6c 00 00 00 00 00 00 00 00 ┆routine ! goto l ┆
0x56400…56406 (690,) (0x324,0xac9)
0x56406…56420 5f 72 65 73 6f 75 72 63 65 73 3b 0a 20 20 20 20 20 20 65 6e 64 0a 20 20 20 20 ┆_resources; end ┆
0x56420…56440 20 20 65 6c 73 65 0a 20 20 20 20 20 20 69 66 20 77 31 3e 30 20 74 68 65 6e 0a 20 20 20 20 20 20 ┆ else if w1>0 then ┆
0x56440…56460 62 65 67 69 6e 20 21 20 65 78 69 73 74 20 61 6c 6c 72 65 61 64 79 20 21 0a 20 20 20 20 20 20 65 ┆begin ! exist allready ! e┆
0x56460…5647e 6e 64 0a 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 62 65 67 69 6e 20 21 20 64 6f ┆nd else begin ! do┆
0x5647e…56484 (0x324,0xaca)
0x56484…564a0 6e 74 20 65 78 69 73 74 20 21 0a 20 20 20 20 20 20 20 20 2d 28 77 31 29 3b 74 63 5f ┆nt exist ! -(w1);tc_┆
0x564a0…564c0 72 65 66 20 3a 3d 20 77 31 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 20 63 75 5f 64 65 ┆ref := w1; if w0:= cu_de┆
0x564c0…564e0 76 3c 3e 30 20 74 68 65 6e 20 28 77 31 29 2e 66 70 72 5f 70 6c 63 75 64 65 76 3a 3d 20 77 30 3b ┆v<>0 then (w1).fpr_plcudev:= w0;┆
0x564e0…564fc 0a 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 68 6f 73 74 6e 6f 3d 30 20 74 68 ┆ if w0:=hostno=0 th┆
0x564fc…56502 (0x324,0xacb)
0x56502…56520 65 6e 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 6c 6f 63 61 6c ┆en begin comment local┆
0x56520…56540 20 64 65 76 69 63 65 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 63 75 5f 64 65 76 ┆ device; if w0:=cu_dev┆
0x56540…56560 20 3c 3e 20 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 ┆ <> 0 then begin comme┆
0x56560…5657a 6e 74 20 66 6f 72 6d 61 74 20 70 72 69 6e 74 65 72 3b 0a 20 20 20 20 20 20 20 ┆nt format printer; ┆
0x5657a…56580 (0x324,0xacc)
0x56580…565a0 20 20 20 20 20 63 72 65 61 74 65 5f 66 70 72 20 28 2e 77 33 2e 2c 77 30 3a 3d 61 64 64 72 65 73 ┆ create_fpr (.w3.,w0:=addres┆
0x565a0…565c0 73 28 66 6f 72 6d 61 74 70 72 69 6e 74 65 72 29 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆s(formatprinter), ┆
0x565c0…565e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 61 64 64 72 65 73 73 28 69 6e 64 ┆ w0:=address(ind┆
0x565e0…56600 65 76 69 63 65 29 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆evice), ┆
0x56600…56606 (691,) (0x324,0xacd)
0x56606…56620 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 68 6f 73 74 6e ┆ w0:=hostn┆
0x56620…56640 6f 2c 77 30 3a 3d 68 6f 73 74 69 64 2c 77 30 2c 77 31 3a 3d 74 63 5f 72 65 66 29 3b 0a 20 20 20 ┆o,w0:=hostid,w0,w1:=tc_ref); ┆
0x56640…56660 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3c 3e 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 ┆ if w0<>0 then ┆
0x56660…5667e 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65 6d 6f 76 65 5f ┆ begin remove_┆
0x5667e…56684 (0x324,0xace)
0x56684…566a0 66 70 72 28 2e 77 33 2e 2c 77 31 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆fpr(.w3.,w1); ┆
0x566a0…566c0 67 6f 74 6f 20 6c 5f 64 65 76 73 6c 6f 77 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b ┆goto l_devslow; end;┆
0x566c0…566e0 0a 20 20 20 20 20 20 20 20 20 20 20 20 70 72 6f 63 72 65 66 3a 3d 20 77 30 3a 3d 20 61 64 64 72 ┆ procref:= w0:= addr┆
0x566e0…566fc 65 73 73 28 28 77 31 3a 3d 28 77 31 3a 3d 74 63 5f 72 65 66 29 2e 66 70 72 5f 73 74 ┆ess((w1:=(w1:=tc_ref).fpr_st┆
0x566fc…56702 (0x324,0xacf)
0x56702…56720 63 6f 72 6f 75 74 29 2e 66 70 72 5f 70 72 6f 63 6f 75 74 29 2d 32 3b 0a 20 20 20 20 20 20 ┆corout).fpr_procout)-2; ┆
0x56720…56740 20 20 20 20 65 6e 64 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 ┆ end else begin ┆
0x56740…56760 20 20 20 20 20 20 20 20 20 77 33 20 3a 3d 20 61 64 64 72 65 73 73 28 64 6f 63 6e 61 6d 65 29 3b ┆ w3 := address(docname);┆
0x56760…5677a 0a 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 34 29 3b 0a 20 ┆ monitor(4); ┆
0x5677a…56780 (0x324,0xad0)
0x56780…567a0 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3d 30 20 74 68 65 6e 20 67 6f 74 6f 20 6c 5f 64 ┆ if w0=0 then goto l_d┆
0x567a0…567c0 65 76 73 6c 6f 77 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 70 72 6f 63 72 65 66 20 3a 3d 20 77 ┆evslow; procref := w┆
0x567c0…567e0 30 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 20 65 6c ┆0; end; end el┆
0x567e0…56800 73 65 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 00 00 00 00 00 00 00 00 ┆se begin comment ┆
0x56800…56806 (692,) (0x324,0xad1)
0x56806…56820 20 72 65 6d 6f 74 65 20 64 65 76 69 63 65 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆ remote device; ┆
0x56820…56840 77 31 3a 3d 20 28 77 32 3a 3d 37 34 29 2e 77 6f 72 64 3b 20 20 20 21 20 66 69 72 73 74 20 64 65 ┆w1:= (w2:=74).word; ! first de┆
0x56840…56860 76 69 63 65 20 21 0a 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 20 28 77 32 3a 3d 37 36 29 2e 77 ┆vice ! w2:= (w2:=76).w┆
0x56860…5687e 6f 72 64 3b 20 20 20 21 20 6c 61 73 74 20 64 65 76 69 63 65 20 20 21 0a 20 20 20 20 20 20 ┆ord; ! last device ! ┆
0x5687e…56884 (0x324,0xad2)
0x56884…568a0 20 20 20 20 77 33 3a 3d 77 31 2b 68 6f 73 74 6e 6f 2b 68 6f 73 74 6e 6f 3b 20 21 20 ┆ w3:=w1+hostno+hostno; ! ┆
0x568a0…568c0 77 33 3d 6e 61 6d 65 20 74 61 62 6c 65 20 61 64 64 72 65 73 73 20 6f 66 20 68 6f 73 74 6e 6f 20 ┆w3=name table address of hostno ┆
0x568c0…568e0 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 33 3e 3d 77 32 20 74 68 65 6e 20 67 6f ┆ ! if w3>=w2 then go┆
0x568e0…568fc 74 6f 20 6c 5f 65 6e 74 3b 20 21 20 69 66 20 6f 75 74 73 69 64 65 20 64 65 76 69 63 ┆to l_ent; ! if outside devic┆
0x568fc…56902 (0x324,0xad3)
0x56902…56920 65 20 70 61 72 74 20 6f 66 20 6e 61 6d 65 20 74 61 62 6c 65 20 74 68 65 6e 20 65 72 72 6f ┆e part of name table then erro┆
0x56920…56940 72 20 21 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 20 28 77 33 3a 3d 28 77 33 29 2e ┆r ! if w0:= (w3:=(w3).┆
0x56940…56960 77 6f 72 64 29 2e 77 6f 72 64 20 3c 3e 20 38 32 20 74 68 65 6e 20 67 6f 74 6f 20 6c 5f 65 6e 74 ┆word).word <> 82 then goto l_ent┆
0x56960…5697a 3b 20 21 20 69 66 20 6b 69 6e 64 28 64 65 76 69 63 65 29 3c 3e 38 32 20 2c 20 ┆; ! if kind(device)<>82 , ┆
0x5697a…56980 (0x324,0xad4)
0x56980…569a0 73 75 62 20 68 6f 73 74 20 2c 20 74 68 65 6e 20 65 72 72 6f 72 20 21 0a 20 20 20 20 20 20 20 20 ┆sub host , then error ! ┆
0x569a0…569c0 20 20 69 66 20 77 30 3a 3d 63 75 5f 64 65 76 20 3c 3e 20 30 20 74 68 65 6e 0a 20 20 20 20 20 20 ┆ if w0:=cu_dev <> 0 then ┆
0x569c0…569e0 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 66 6f 72 6d 61 74 20 70 72 69 6e 74 65 72 ┆ begin comment format printer┆
0x569e0…56a00 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 63 72 65 61 74 65 5f 66 70 72 00 00 00 00 00 00 00 00 ┆; create_fpr ┆
0x56a00…56a06 (693,) (0x324,0xad5)
0x56a06…56a20 20 28 2e 77 33 2e 2c 77 30 3a 3d 61 64 64 72 65 73 73 28 66 6f 72 6d 61 74 70 ┆ (.w3.,w0:=address(formatp┆
0x56a20…56a40 72 69 6e 74 65 72 29 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆rinter), ┆
0x56a40…56a60 20 20 20 20 20 20 20 20 77 30 3a 3d 61 64 64 72 65 73 73 28 69 6e 64 65 76 69 63 65 29 2c 0a 20 ┆ w0:=address(indevice), ┆
0x56a60…56a7e 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 ┆ ┆
0x56a7e…56a84 (0x324,0xad6)
0x56a84…56aa0 20 20 77 30 3a 3d 68 6f 73 74 6e 6f 2c 77 30 3a 3d 68 6f 73 74 69 64 2c 77 30 2c 77 ┆ w0:=hostno,w0:=hostid,w0,w┆
0x56aa0…56ac0 31 3a 3d 74 63 5f 72 65 66 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3c 3e 30 ┆1:=tc_ref); if w0<>0┆
0x56ac0…56ae0 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 ┆ then begin ┆
0x56ae0…56afc 20 20 20 20 20 20 72 65 6d 6f 76 65 5f 66 70 72 20 28 2e 77 33 2e 2c 77 31 29 3b 0a ┆ remove_fpr (.w3.,w1); ┆
0x56afc…56b02 (0x324,0xad7)
0x56b02…56b20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 6c 5f 64 65 76 73 6c 6f 77 3b 0a ┆ goto l_devslow; ┆
0x56b20…56b40 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 70 72 6f ┆ end; pro┆
0x56b40…56b60 63 72 65 66 3a 3d 20 77 30 3a 3d 20 61 64 64 72 65 73 73 28 28 77 31 3a 3d 28 77 31 3a 3d 74 63 ┆cref:= w0:= address((w1:=(w1:=tc┆
0x56b60…56b7a 5f 72 65 66 29 2e 66 70 72 5f 73 74 63 6f 72 6f 75 74 29 2e 66 70 72 5f 70 72 ┆_ref).fpr_stcorout).fpr_pr┆
0x56b7a…56b80 (0x324,0xad8)
0x56b80…56ba0 6f 63 6f 75 74 29 2d 32 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 20 65 6c 73 65 0a 20 20 20 ┆ocout)-2; end else ┆
0x56ba0…56bc0 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 6c 69 6e 6b 75 70 72 ┆ begin linkupr┆
0x56bc0…56be0 65 6d 6f 74 65 28 2e 77 33 2e 2c 77 30 3a 3d 74 72 61 6e 73 72 65 66 2e 74 72 5f 6b 69 6e 64 2c ┆emote(.w3.,w0:=transref.tr_kind,┆
0x56be0…56c00 77 30 3a 3d 68 6f 73 74 6e 6f 2c 77 30 3a 3d 68 6f 73 74 69 64 2c 0a 20 00 00 00 00 00 00 00 00 ┆w0:=hostno,w0:=hostid, ┆
0x56c00…56c06 (694,) (0x324,0xad9)
0x56c06…56c20 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 ┆ ┆
0x56c20…56c40 20 20 20 77 30 3a 3d 61 64 64 72 65 73 73 28 64 6f 63 6e 61 6d 65 29 2c 77 30 2c 77 32 29 3b 0a ┆ w0:=address(docname),w0,w2); ┆
0x56c40…56c60 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3c 3e 34 30 39 36 20 74 68 65 6e 0a 20 20 20 ┆ if w0<>4096 then ┆
0x56c60…56c7e 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3c 3e 34 31 30 33 20 74 68 65 6e 0a 20 20 20 20 ┆ if w0<>4103 then ┆
0x56c7e…56c84 (0x324,0xada)
0x56c84…56ca0 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 62 2e 61 63 63 65 70 74 3c 3e 30 20 74 ┆ if w0:=b.accept<>0 t┆
0x56ca0…56cc0 68 65 6e 20 77 32 3a 3d 61 64 64 72 65 73 73 28 62 2e 6e 6f 5f 6c 69 6e 6b 29 20 65 6c 73 65 20 ┆hen w2:=address(b.no_link) else ┆
0x56cc0…56ce0 67 6f 74 6f 20 6c 5f 64 65 76 73 6c 6f 77 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 70 72 6f 63 ┆goto l_devslow; proc┆
0x56ce0…56cfc 72 65 66 3a 3d 77 32 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 ┆ref:=w2; end; ┆
0x56cfc…56d02 (0x324,0xadb)
0x56d02…56d20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 77 31 3a 3d 74 63 5f 72 65 66 3b 0a 20 ┆ end; w1:=tc_ref; ┆
0x56d20…56d40 20 20 20 20 20 20 20 63 72 65 61 74 65 5f 74 63 28 2e 77 33 2e 2c 77 31 2c 77 30 3a 3d 61 64 64 ┆ create_tc(.w3.,w1,w0:=add┆
0x56d40…56d60 72 65 73 73 28 64 6f 63 6e 61 6d 65 29 2c 77 30 3a 3d 68 6f 73 74 6e 6f 2c 77 30 3a 3d 68 6f 73 ┆ress(docname),w0:=hostno,w0:=hos┆
0x56d60…56d7a 74 69 64 2c 77 30 3a 3d 70 72 6f 63 72 65 66 29 3b 0a 20 20 20 20 20 20 20 20 ┆tid,w0:=procref); ┆
0x56d7a…56d80 (0x324,0xadc)
0x56d80…56da0 69 66 20 77 30 20 3a 3d 20 63 75 5f 64 65 76 20 3c 3e 20 30 20 74 68 65 6e 0a 20 20 20 20 20 20 ┆if w0 := cu_dev <> 0 then ┆
0x56da0…56dc0 20 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 77 ┆ else begin w┆
0x56dc0…56de0 33 3a 3d 61 64 64 72 65 73 73 28 28 77 31 3a 3d 74 63 5f 72 65 66 29 2e 74 63 5f 6e 61 6d 65 29 ┆3:=address((w1:=tc_ref).tc_name)┆
0x56de0…56e00 3b 0a 20 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 38 29 3b 0a 00 00 00 00 00 00 00 00 ┆; monitor(8); ┆
0x56e00…56e06 (695,) (0x324,0xadd)
0x56e06…56e20 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 70 72 6f 63 72 65 66 3b 0a 20 20 20 ┆ w2:=procref; ┆
0x56e20…56e40 20 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 69 66 20 77 30 3a 3d 28 77 32 2b 33 36 29 2e 62 79 ┆ comment if w0:=(w2+36).by┆
0x56e40…56e60 74 65 20 3c 3e 20 74 72 61 6e 73 72 65 66 2e 74 72 6b 69 6e 64 20 74 68 65 6e 20 67 6f 74 6f 20 ┆te <> transref.trkind then goto ┆
0x56e60…56e7e 6c 5f 64 65 76 73 6c 6f 77 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 ┆l_devslow; end; ┆
0x56e7e…56e84 (0x324,0xade)
0x56e84…56ea0 65 6e 64 3b 0a 0a 20 20 20 20 20 20 77 30 3a 3d 20 30 3b 0a 0a 0a 65 78 69 74 3a 0a ┆end; w0:= 0; exit: ┆
0x56ea0…56ec0 20 20 20 20 20 20 77 31 3a 3d 20 74 63 5f 72 65 66 3b 0a 20 20 20 20 20 20 77 32 3a 3d 20 74 72 ┆ w1:= tc_ref; w2:= tr┆
0x56ec0…56ee0 61 6e 73 72 65 66 3b 0a 20 20 20 20 20 20 77 33 3a 3d 20 62 2e 63 75 72 72 65 6e 74 3b 0a 20 20 ┆ansref; w3:= b.current; ┆
0x56ee0…56efc 20 20 20 20 63 61 6c 6c 20 77 30 20 72 65 74 75 72 6e 3b 0a 0a 6c 5f 72 65 73 6f 75 ┆ call w0 return; l_resou┆
0x56efc…56f02 (0x324,0xadf)
0x56f02…56f20 72 63 65 73 20 20 3a 20 77 30 3a 3d 20 32 3b 20 67 6f 74 6f 20 65 78 69 74 3b 0a 6c 5f 65 ┆rces : w0:= 2; goto exit; l_e┆
0x56f20…56f40 6e 74 20 20 20 20 20 20 20 20 3a 20 69 66 20 77 30 3a 3d 73 65 6e 64 65 72 5f 72 65 63 65 69 76 ┆nt : if w0:=sender_receiv┆
0x56f40…56f60 65 72 3d 31 20 74 68 65 6e 20 77 30 3a 3d 20 33 20 65 6c 73 65 20 77 30 3a 3d 20 35 3b 20 67 6f ┆er=1 then w0:= 3 else w0:= 5; go┆
0x56f60…56f7a 74 6f 20 65 78 69 74 3b 0a 6c 5f 64 65 76 20 20 20 20 20 20 20 20 3a 20 69 66 ┆to exit; l_dev : if┆
0x56f7a…56f80 (0x324,0xae0)
0x56f80…56fa0 20 77 30 3a 3d 20 73 65 6e 64 65 72 5f 72 65 63 65 69 76 65 72 3d 31 20 74 68 65 6e 20 77 30 3a ┆ w0:= sender_receiver=1 then w0:┆
0x56fa0…56fc0 3d 20 34 20 65 6c 73 65 20 77 30 3a 3d 20 36 3b 20 67 6f 74 6f 20 65 78 69 74 3b 0a 6c 5f 64 65 ┆= 4 else w0:= 6; goto exit; l_de┆
0x56fc0…56fe0 76 73 6c 6f 77 20 20 20 20 3a 20 69 66 20 77 30 3a 3d 62 73 5f 64 65 76 3d 31 20 74 68 65 6e 20 ┆vslow : if w0:=bs_dev=1 then ┆
0x56fe0…57000 77 30 3a 3d 20 36 20 65 6c 73 65 20 77 30 3a 3d 20 34 3b 20 67 6f 74 6f 00 00 00 00 00 00 00 00 ┆w0:= 6 else w0:= 4; goto ┆
0x57000…57006 (696,) (0x324,0xae1)
0x57006…57020 20 65 78 69 74 3b 0a 0a 20 20 20 20 65 6e 64 3b 0a 20 20 65 6e 64 3b 20 21 20 ┆ exit; end; end; ! ┆
0x57020…57040 64 65 66 74 72 5f 73 65 6d 61 6e 74 69 63 20 21 0a 0a 0a 0a 20 20 62 6f 64 79 20 6f 66 20 61 70 ┆deftr_semantic ! body of ap┆
0x57040…57060 70 6c 5f 69 6e 74 65 72 66 61 63 65 0a 20 20 63 6f 6d 6d 65 6e 74 20 61 70 70 6c 69 63 61 74 69 ┆pl_interface comment applicati┆
0x57060…5707e 6f 6e 20 69 6e 74 65 72 66 61 63 65 20 63 6f 72 6f 75 74 69 6e 65 3b 0a 20 20 62 65 67 69 ┆on interface coroutine; begi┆
0x5707e…57084 (0x324,0xae2)
0x57084…570a0 6e 0a 20 20 20 20 6c 61 62 65 6c 20 77 61 69 74 5f 6d 2c 0a 20 20 20 20 20 20 20 20 ┆n label wait_m, ┆
0x570a0…570c0 20 20 72 64 74 5f 72 65 73 6f 75 72 63 65 73 2c 72 64 74 5f 73 79 6e 74 61 78 2c 72 64 74 5f 73 ┆ rdt_resources,rdt_syntax,rdt_s┆
0x570c0…570e0 65 6e 74 2c 72 64 74 5f 73 64 65 76 2c 72 64 74 5f 72 65 6e 74 2c 72 64 74 5f 72 64 65 76 2c 0a ┆ent,rdt_sdev,rdt_rent,rdt_rdev, ┆
0x570e0…570fc 20 20 20 20 20 20 20 20 20 20 72 67 74 2c 20 72 67 74 5f 73 79 6e 74 61 78 2c 20 72 ┆ rgt, rgt_syntax, r┆
0x570fc…57102 (0x324,0xae3)
0x57102…57120 67 74 5f 75 6e 6b 6e 6f 77 6e 2c 20 72 67 74 5f 72 65 73 6f 75 72 63 65 73 2c 20 74 72 5f ┆gt_unknown, rgt_resources, tr_┆
0x57120…57140 66 69 6e 69 73 68 65 64 2c 0a 20 20 20 20 20 20 20 20 20 20 72 72 74 2c 20 72 72 74 5f 73 79 6e ┆finished, rrt, rrt_syn┆
0x57140…57160 74 61 78 2c 20 72 72 74 5f 75 6e 6b 6e 6f 77 6e 2c 0a 20 20 20 20 20 20 20 20 20 20 72 6b 74 2c ┆tax, rrt_unknown, rkt,┆
0x57160…5717a 20 72 6b 74 5f 73 79 6e 74 61 78 2c 20 72 6b 74 5f 75 6e 6b 6e 6f 77 6e 2c 72 ┆ rkt_syntax, rkt_unknown,r┆
0x5717a…57180 (0x324,0xae4)
0x57180…571a0 65 70 6b 69 6c 6c 2c 0a 20 20 20 20 20 20 20 20 20 20 73 74 6f 70 70 65 64 2c 75 6e 69 6e 74 2c ┆epkill, stopped,unint,┆
0x571a0…571c0 72 65 6a 65 63 74 3b 0a 20 20 20 20 72 65 63 6f 72 64 20 64 65 66 5f 74 72 61 6e 73 70 6f 72 74 ┆reject; record def_transport┆
0x571c0…571e0 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 6f 72 64 20 64 74 68 5f 6f 70 2c 64 74 68 5f 74 ┆ (word dth_op,dth_t┆
0x571e0…57200 72 6e 61 6d 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 65 78 00 00 00 00 00 00 00 00 ┆rname; tex ┆
0x57200…57206 (697,) (0x324,0xae5)
0x57206…57220 74 28 31 31 29 20 64 74 5f 74 72 6e 61 6d 65 3b 0a 20 20 20 20 20 20 20 20 20 ┆t(11) dt_trname; ┆
0x57220…57240 20 20 20 20 20 77 6f 72 64 20 64 74 68 5f 75 73 65 72 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ word dth_user; ┆
0x57240…57260 20 20 74 65 78 74 28 31 31 29 20 64 74 5f 75 73 65 72 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ text(11) dt_user; ┆
0x57260…5727e 20 20 77 6f 72 64 20 64 74 68 5f 73 75 62 2c 64 74 68 5f 73 65 6e 64 65 72 2c 64 74 68 5f ┆ word dth_sub,dth_sender,dth_┆
0x5727e…57284 (0x324,0xae6)
0x57284…572a0 73 6e 61 6d 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 65 78 74 28 31 31 ┆sname; text(11┆
0x572a0…572c0 29 20 64 74 5f 73 6e 61 6d 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 6f 72 64 20 64 ┆) dt_sname; word d┆
0x572c0…572e0 74 68 5f 72 65 63 65 69 76 65 72 2c 64 74 68 5f 72 6e 61 6d 65 3b 0a 20 20 20 20 20 20 20 20 20 ┆th_receiver,dth_rname; ┆
0x572e0…572fc 20 20 20 20 20 74 65 78 74 28 31 31 29 20 64 74 5f 72 6e 61 6d 65 3b 0a 20 20 20 20 ┆ text(11) dt_rname; ┆
0x572fc…57302 (0x324,0xae7)
0x57302…57320 20 20 20 20 20 20 20 20 20 20 77 6f 72 64 20 64 74 68 5f 71 75 65 75 65 73 2c 64 74 68 5f ┆ word dth_queues,dth_┆
0x57320…57340 71 67 72 6f 75 70 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 65 78 74 28 31 31 29 20 64 ┆qgroup; text(11) d┆
0x57340…57360 74 5f 71 67 72 6f 75 70 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 6f 72 64 20 64 74 68 ┆t_qgroup; word dth┆
0x57360…5737a 5f 71 6e 61 6d 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 65 78 74 ┆_qname; text┆
0x5737a…57380 (0x324,0xae8)
0x57380…573a0 28 31 31 29 20 64 74 5f 71 6e 61 6d 65 29 3b 0a 20 20 20 20 72 65 63 6f 72 64 20 67 65 74 73 74 ┆(11) dt_qname); record getst┆
0x573a0…573c0 5f 74 72 61 6e 73 70 6f 72 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 6f 72 64 20 67 74 ┆_transport (word gt┆
0x573c0…573e0 68 5f 6f 70 2c 67 74 68 5f 6e 6f 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 6f 72 64 20 ┆h_op,gth_no; word ┆
0x573e0…57400 67 74 5f 6e 6f 29 3b 0a 0a 20 20 20 20 72 65 63 6f 72 64 20 72 65 6c 65 00 00 00 00 00 00 00 00 ┆gt_no); record rele ┆
0x57400…57406 (698,) (0x324,0xae9)
0x57406…57420 61 5f 74 72 61 6e 73 70 6f 72 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 ┆a_transport (┆
0x57420…57440 77 6f 72 64 20 72 74 68 5f 6f 70 2c 72 74 68 5f 6e 6f 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆word rth_op,rth_no; ┆
0x57440…57460 20 20 77 6f 72 64 20 72 74 5f 6e 6f 29 3b 0a 0a 20 20 20 20 72 65 63 6f 72 64 20 6b 69 6c 6c 5f ┆ word rt_no); record kill_┆
0x57460…5747e 74 72 61 6e 73 70 6f 72 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 6f 72 64 20 6b ┆transport (word k┆
0x5747e…57484 (0x324,0xaea)
0x57484…574a0 74 68 5f 6f 70 2c 6b 74 68 5f 6e 6f 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆th_op,kth_no; ┆
0x574a0…574c0 77 6f 72 64 20 6b 74 5f 6e 6f 29 3b 0a 20 20 20 20 69 6e 63 6f 64 65 0a 20 20 20 20 20 20 21 20 ┆word kt_no); incode ! ┆
0x574c0…574e0 61 6e 73 77 65 72 20 64 65 66 69 6e 65 20 74 72 61 6e 73 70 6f 72 74 20 21 0a 20 20 20 20 20 20 ┆answer define transport ! ┆
0x574e0…574fc 62 79 74 65 20 61 64 74 5f 31 3a 3d 20 33 2c 20 61 64 74 5f 32 3a 3d 20 30 2c 0a 20 ┆byte adt_1:= 3, adt_2:= 0, ┆
0x574fc…57502 (0x324,0xaeb)
0x57502…57520 20 20 20 20 20 20 20 20 20 20 61 64 74 5f 33 3a 3d 20 31 2c 20 61 64 74 5f 34 3a 3d 20 34 ┆ adt_3:= 1, adt_4:= 4┆
0x57520…57540 27 30 31 30 30 31 30 3b 0a 20 20 20 20 20 20 74 65 78 74 28 31 31 29 20 61 64 74 5f 74 72 6e 61 ┆'010010; text(11) adt_trna┆
0x57540…57560 6d 65 3b 0a 20 20 20 20 20 20 62 79 74 65 20 61 64 74 5f 35 3a 3d 20 32 2c 20 61 64 74 5f 36 3a ┆me; byte adt_5:= 2, adt_6:┆
0x57560…5757a 3d 20 34 27 30 31 30 30 31 30 3b 0a 20 20 20 20 20 20 74 65 78 74 28 31 31 29 ┆= 4'010010; text(11)┆
0x5757a…57580 (0x324,0xaec)
0x57580…575a0 20 61 64 74 5f 75 73 65 72 3b 0a 20 20 20 20 20 20 62 79 74 65 20 61 64 74 5f 37 3a 3d 20 33 2c ┆ adt_user; byte adt_7:= 3,┆
0x575a0…575c0 20 61 64 74 5f 38 3a 3d 20 34 27 30 31 30 30 30 31 3b 0a 20 20 20 20 20 20 77 6f 72 64 20 61 64 ┆ adt_8:= 4'010001; word ad┆
0x575c0…575e0 74 5f 6e 6f 3b 0a 20 20 20 20 20 20 62 79 74 65 20 61 64 74 5f 39 3a 3d 20 34 2c 20 61 64 74 5f ┆t_no; byte adt_9:= 4, adt_┆
0x575e0…57600 31 30 3a 3d 20 34 27 30 31 30 30 30 30 2c 0a 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆10:= 4'010000, ┆
0x57600…57606 (699,) (0x324,0xaed)
0x57606…57620 20 20 61 64 74 5f 31 31 3a 3d 31 2c 20 61 64 74 5f 31 32 3a 3d 20 34 27 30 32 ┆ adt_11:=1, adt_12:= 4'02┆
0x57620…57640 30 30 30 31 3b 0a 20 20 20 20 20 20 77 6f 72 64 20 61 64 74 5f 72 63 6f 64 65 3b 0a 20 20 20 20 ┆0001; word adt_rcode; ┆
0x57640…57660 20 20 62 79 74 65 20 61 64 74 5f 31 33 2c 20 61 64 74 5f 31 34 3a 3d 20 34 27 30 32 30 30 30 32 ┆ byte adt_13, adt_14:= 4'020002┆
0x57660…5767e 3b 20 21 20 64 65 76 69 63 65 20 74 72 6f 75 62 6c 65 73 20 70 61 72 61 6d 73 20 21 0a 20 ┆; ! device troubles params ! ┆
0x5767e…57684 (0x324,0xaee)
0x57684…576a0 20 20 20 20 20 77 6f 72 64 20 61 64 74 5f 63 61 75 73 65 2c 20 61 64 74 5f 73 74 61 ┆ word adt_cause, adt_sta┆
0x576a0…576c0 74 75 73 3a 3d 20 30 3b 0a 0a 20 20 20 20 20 20 21 20 61 6e 73 77 65 72 20 67 65 74 20 73 74 61 ┆tus:= 0; ! answer get sta┆
0x576c0…576e0 74 65 20 21 0a 20 20 20 20 20 20 62 79 74 65 20 61 67 74 5f 31 2c 20 61 67 74 5f 32 3a 3d 20 30 ┆te ! byte agt_1, agt_2:= 0┆
0x576e0…576fc 2c 0a 20 20 20 20 20 20 20 20 20 20 20 61 67 74 5f 33 3a 3d 20 34 2c 20 61 67 74 5f ┆, agt_3:= 4, agt_┆
0x576fc…57702 (0x324,0xaef)
0x57702…57720 34 3a 3d 20 34 27 30 31 30 30 30 30 2c 0a 20 20 20 20 20 20 20 20 20 20 20 61 67 74 5f 35 ┆4:= 4'010000, agt_5┆
0x57720…57740 3a 3d 20 31 2c 20 61 67 74 5f 36 3a 3d 20 34 27 30 32 30 30 30 31 3b 0a 20 20 20 20 20 20 77 6f ┆:= 1, agt_6:= 4'020001; wo┆
0x57740…57760 72 64 20 61 67 74 5f 72 63 6f 64 65 3b 0a 20 20 20 20 20 20 62 79 74 65 20 61 67 74 5f 37 3a 3d ┆rd agt_rcode; byte agt_7:=┆
0x57760…5777a 20 31 2c 20 61 67 74 5f 38 3a 3d 20 34 27 30 31 30 30 31 30 3b 0a 20 20 20 20 ┆ 1, agt_8:= 4'010010; ┆
0x5777a…57780 (0x324,0xaf0)
0x57780…577a0 20 20 74 65 78 74 28 31 31 29 20 61 67 74 5f 74 72 6e 61 6d 65 3b 0a 20 20 20 20 20 20 62 79 74 ┆ text(11) agt_trname; byt┆
0x577a0…577c0 65 20 61 67 74 5f 39 3a 3d 20 33 2c 20 61 67 74 5f 31 30 3a 3d 20 34 27 30 31 30 30 30 31 3b 0a ┆e agt_9:= 3, agt_10:= 4'010001; ┆
0x577c0…577e0 20 20 20 20 20 20 77 6f 72 64 20 61 67 74 5f 6e 6f 3b 0a 20 20 20 20 20 20 62 79 74 65 20 61 67 ┆ word agt_no; byte ag┆
0x577e0…57800 74 5f 31 31 3a 3d 20 31 30 30 30 2c 20 61 67 74 5f 31 32 3a 3d 20 34 27 00 00 00 00 00 00 00 00 ┆t_11:= 1000, agt_12:= 4' ┆
0x57800…57806 (700,) (0x324,0xaf1)
0x57806…57820 30 31 30 30 30 30 2c 0a 20 20 20 20 20 20 20 20 20 20 20 61 67 74 5f 31 33 3a ┆010000, agt_13:┆
0x57820…57840 3d 20 33 2c 20 61 67 74 5f 31 34 3a 3d 20 34 27 30 32 30 30 30 30 2c 0a 20 20 20 20 20 20 20 20 ┆= 3, agt_14:= 4'020000, ┆
0x57840…57860 20 20 20 61 67 74 5f 31 35 3a 3d 20 34 2c 20 61 67 74 5f 31 36 3a 3d 20 34 27 30 33 30 30 30 31 ┆ agt_15:= 4, agt_16:= 4'030001┆
0x57860…5787e 3b 0a 20 20 20 20 20 20 77 6f 72 64 20 61 67 74 5f 73 74 61 74 65 3b 0a 20 20 20 20 20 20 ┆; word agt_state; ┆
0x5787e…57884 (0x324,0xaf2)
0x57884…578a0 62 79 74 65 20 61 67 74 5f 31 39 3a 3d 20 37 2c 20 61 67 74 5f 32 30 3a 3d 20 34 27 ┆byte agt_19:= 7, agt_20:= 4'┆
0x578a0…578c0 30 33 30 30 30 32 3b 0a 20 20 20 20 20 20 77 6f 72 64 20 61 67 74 5f 70 74 72 31 2c 20 61 67 74 ┆030002; word agt_ptr1, agt┆
0x578c0…578e0 5f 70 74 72 32 3b 0a 20 20 20 20 20 20 62 79 74 65 20 61 67 74 5f 31 37 3a 3d 20 36 2c 20 61 67 ┆_ptr2; byte agt_17:= 6, ag┆
0x578e0…578fc 74 5f 31 38 3a 3d 20 34 27 30 33 30 30 30 32 3b 0a 20 20 20 20 20 20 77 6f 72 64 20 ┆t_18:= 4'030002; word ┆
0x578fc…57902 (0x324,0xaf3)
0x57902…57920 61 67 74 5f 63 61 75 73 65 2c 20 61 67 74 5f 73 74 61 74 75 73 3b 0a 0a 20 20 20 20 20 20 ┆agt_cause, agt_status; ┆
0x57920…57940 21 20 61 6e 73 77 65 72 20 72 65 6c 65 61 73 65 20 64 65 73 63 72 20 21 0a 20 20 20 20 20 20 62 ┆! answer release descr ! b┆
0x57940…57960 79 74 65 20 61 72 74 5f 31 3a 3d 20 39 2c 20 61 72 74 5f 32 3a 3d 20 30 2c 0a 20 20 20 20 20 20 ┆yte art_1:= 9, art_2:= 0, ┆
0x57960…5797a 20 20 20 20 20 61 72 74 5f 33 3a 3d 20 34 2c 20 61 72 74 5f 34 3a 3d 20 34 27 ┆ art_3:= 4, art_4:= 4'┆
0x5797a…57980 (0x324,0xaf4)
0x57980…579a0 30 31 30 30 30 30 2c 0a 20 20 20 20 20 20 20 20 20 20 20 61 72 74 5f 35 3a 3d 20 31 2c 20 61 72 ┆010000, art_5:= 1, ar┆
0x579a0…579c0 74 5f 36 3a 3d 20 34 27 30 32 30 30 30 31 3b 0a 20 20 20 20 20 20 77 6f 72 64 20 61 72 74 5f 72 ┆t_6:= 4'020001; word art_r┆
0x579c0…579e0 63 6f 64 65 3b 0a 0a 20 20 20 20 20 20 21 20 61 6e 73 77 65 72 20 6b 69 6c 6c 20 74 72 61 6e 73 ┆code; ! answer kill trans┆
0x579e0…57a00 70 6f 72 74 20 21 0a 20 20 20 20 20 20 62 79 74 65 20 61 6b 74 5f 31 3a 00 00 00 00 00 00 00 00 ┆port ! byte akt_1: ┆
0x57a00…57a06 (701,) (0x324,0xaf5)
0x57a06…57a20 3d 20 31 31 2c 20 61 6b 74 5f 32 3a 3d 20 30 2c 0a 20 20 20 20 20 20 20 20 20 ┆= 11, akt_2:= 0, ┆
0x57a20…57a40 20 20 61 6b 74 5f 33 3a 3d 20 20 34 2c 20 61 6b 74 5f 34 3a 3d 20 34 27 30 31 30 30 30 30 2c 0a ┆ akt_3:= 4, akt_4:= 4'010000, ┆
0x57a40…57a60 20 20 20 20 20 20 20 20 20 20 20 61 6b 74 5f 35 3a 3d 20 20 31 2c 20 61 6b 74 5f 36 3a 3d 20 34 ┆ akt_5:= 1, akt_6:= 4┆
0x57a60…57a7e 27 30 32 30 30 30 31 3b 0a 20 20 20 20 20 20 77 6f 72 64 20 61 6b 74 5f 72 63 6f 64 65 3b ┆'020001; word akt_rcode;┆
0x57a7e…57a84 (0x324,0xaf6)
0x57a84…57aa0 0a 0a 20 20 20 20 20 20 21 20 77 6f 72 6b 20 61 72 65 61 20 66 6f 72 20 63 6f 6e 74 ┆ ! work area for cont┆
0x57aa0…57ac0 72 6f 6c 20 6f 70 65 72 61 74 69 6f 6e 20 64 61 74 61 20 21 0a 20 20 20 20 20 20 61 72 72 61 79 ┆rol operation data ! array┆
0x57ac0…57ae0 28 31 3a 28 21 6c 65 6e 67 74 68 28 64 65 66 5f 74 72 61 6e 73 70 6f 72 74 29 2b 32 29 29 20 63 ┆(1:(!length(def_transport)+2)) c┆
0x57ae0…57afc 6f 6e 74 5f 64 61 74 61 20 6f 66 20 62 79 74 65 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆ont_data of byte; ┆
0x57afc…57b02 (0x324,0xaf7)
0x57b02…57b20 21 20 64 61 74 61 20 61 72 65 61 20 66 6f 72 20 63 6f 6e 74 72 6f 6c 20 6f 70 65 72 61 74 ┆! data area for control operat┆
0x57b20…57b40 69 6f 6e 20 64 61 74 61 2c 20 6c 6f 6e 67 65 72 20 74 68 61 6e 20 6c 6f 6e 67 65 73 74 20 64 61 ┆ion data, longer than longest da┆
0x57b40…57b60 74 61 20 61 72 65 61 20 21 0a 0a 20 20 20 20 20 20 21 20 67 65 6e 65 72 61 6c 20 63 6f 70 79 20 ┆ta area ! ! general copy ┆
0x57b60…57b7a 70 61 72 61 6d 73 20 21 0a 20 20 20 20 20 20 77 6f 72 64 20 67 63 5f 66 75 6e ┆params ! word gc_fun┆
0x57b7a…57b80 (0x324,0xaf8)
0x57b80…57ba0 63 3a 3d 20 34 3b 20 21 20 63 6f 70 79 20 66 72 6f 6d 20 73 65 6e 64 65 72 20 74 6f 20 6d 65 20 ┆c:= 4; ! copy from sender to me ┆
0x57ba0…57bc0 21 0a 20 20 20 20 20 20 72 65 66 20 20 67 63 5f 66 69 72 73 74 2c 20 67 63 5f 6c 61 73 74 3b 0a ┆! ref gc_first, gc_last; ┆
0x57bc0…57be0 20 20 20 20 20 20 77 6f 72 64 20 67 63 5f 72 65 6c 3a 3d 20 30 3b 0a 0a 20 20 20 20 20 20 77 6f ┆ word gc_rel:= 0; wo┆
0x57be0…57c00 72 64 20 62 79 74 65 73 6d 6f 76 65 64 3b 0a 20 20 20 20 20 20 72 65 66 00 00 00 00 00 00 00 00 ┆rd bytesmoved; ref ┆
0x57c00…57c06 (702,) (0x324,0xaf9)
0x57c06…57c20 20 74 72 61 6e 73 72 65 66 2c 20 74 63 5f 72 65 66 3b 0a 20 20 20 20 20 20 77 ┆ transref, tc_ref; w┆
0x57c20…57c40 6f 72 64 20 74 72 61 6e 73 6e 6f 3b 20 21 20 75 73 65 64 20 62 79 20 6b 69 6c 6c 20 21 0a 20 20 ┆ord transno; ! used by kill ! ┆
0x57c40…57c60 20 20 20 20 72 65 66 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 ┆ ref return; begin ┆
0x57c60…57c7e 72 65 74 75 72 6e 3a 3d 20 77 33 3b 20 63 61 6c 6c 20 77 33 20 72 65 74 75 72 6e 3b 20 21 ┆return:= w3; call w3 return; !┆
0x57c7e…57c84 (0x324,0xafa)
0x57c84…57ca0 20 70 73 65 75 64 6f 20 63 61 6c 6c 20 21 0a 0a 77 61 69 74 5f 6d 3a 0a 20 20 20 20 ┆ pseudo call ! wait_m: ┆
0x57ca0…57cc0 20 20 77 61 69 74 6d 65 73 73 28 2e 77 33 2e 2c 77 32 29 3b 0a 20 20 20 20 20 20 63 6f 6e 74 5f ┆ waitmess(.w3.,w2); cont_┆
0x57cc0…57ce0 64 61 74 61 28 77 31 3a 3d 31 29 3b 0a 20 20 20 20 20 20 77 33 3a 3d 20 77 31 2b 21 6c 65 6e 67 ┆data(w1:=1); w3:= w1+!leng┆
0x57ce0…57cfc 74 68 28 64 65 66 5f 74 72 61 6e 73 70 6f 72 74 29 3b 0a 20 20 20 20 20 20 67 63 5f ┆th(def_transport); gc_┆
0x57cfc…57d02 (0x324,0xafb)
0x57d02…57d20 66 69 72 73 74 3a 3d 20 77 31 3b 0a 20 20 20 20 20 20 67 63 5f 6c 61 73 74 3a 3d 20 77 33 ┆first:= w1; gc_last:= w3┆
0x57d20…57d40 3b 0a 20 20 20 20 20 20 77 31 3a 3d 20 61 64 64 72 65 73 73 28 67 63 5f 66 75 6e 63 29 3b 0a 20 ┆; w1:= address(gc_func); ┆
0x57d40…57d60 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 38 34 29 3b 20 21 20 67 65 6e 65 72 61 6c 20 63 6f 70 79 ┆ monitor(84); ! general copy┆
0x57d60…57d7a 20 63 6f 72 65 20 21 0a 20 20 20 20 20 20 69 66 20 77 30 3d 32 20 74 68 65 6e ┆ core ! if w0=2 then┆
0x57d7a…57d80 (0x324,0xafc)
0x57d80…57da0 20 67 6f 74 6f 20 73 74 6f 70 70 65 64 3b 0a 20 20 20 20 20 20 69 66 20 77 30 3d 33 20 74 68 65 ┆ goto stopped; if w0=3 the┆
0x57da0…57dc0 6e 20 67 6f 74 6f 20 75 6e 69 6e 74 3b 0a 20 20 20 20 20 20 69 66 20 77 31 3c 3d 30 20 74 68 65 ┆n goto unint; if w1<=0 the┆
0x57dc0…57de0 6e 20 67 6f 74 6f 20 75 6e 69 6e 74 3b 20 21 20 6e 6f 20 64 61 74 61 20 21 0a 20 20 20 20 20 20 ┆n goto unint; ! no data ! ┆
0x57de0…57e00 62 79 74 65 73 6d 6f 76 65 64 3a 3d 20 77 31 3b 0a 20 20 20 20 20 20 63 00 00 00 00 00 00 00 00 ┆bytesmoved:= w1; c ┆
0x57e00…57e06 (703,) (0x324,0xafd)
0x57e06…57e20 6f 6e 74 5f 64 61 74 61 28 77 31 3a 3d 31 29 3b 0a 20 20 20 20 20 20 74 65 73 ┆ont_data(w1:=1); tes┆
0x57e20…57e40 74 6f 75 74 28 2e 77 33 2e 2c 77 30 3a 3d 62 79 74 65 73 6d 6f 76 65 64 2c 77 31 2c 77 32 3a 3d ┆tout(.w3.,w0:=bytesmoved,w1,w2:=┆
0x57e40…57e60 36 36 29 3b 0a 0a 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 31 29 2e 77 6f 72 64 3d 34 27 32 ┆66); if w0:=(w1).word=4'2┆
0x57e60…57e7e 30 30 30 30 30 30 20 74 68 65 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 20 21 20 64 65 66 69 ┆000000 then begin ! defi┆
0x57e7e…57e84 (0x324,0xafe)
0x57e84…57ea0 6e 65 20 74 72 61 6e 73 70 6f 72 74 20 21 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 ┆ne transport ! if w0┆
0x57ea0…57ec0 3a 3d 62 79 74 65 73 6d 6f 76 65 64 3c 3e 21 70 6f 73 69 74 69 6f 6e 28 64 74 68 5f 71 75 65 75 ┆:=bytesmoved<>!position(dth_queu┆
0x57ec0…57ee0 65 73 29 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3c 3e 21 6c 65 6e 67 74 68 28 ┆es) then if w0<>!length(┆
0x57ee0…57efc 64 65 66 5f 74 72 61 6e 73 70 6f 72 74 29 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 ┆def_transport) then ┆
0x57efc…57f02 (0x324,0xaff)
0x57f02…57f20 67 6f 74 6f 20 75 6e 69 6e 74 3b 20 21 20 6c 65 6e 67 74 68 20 6f 66 20 64 61 74 61 20 69 ┆goto unint; ! length of data i┆
0x57f20…57f40 6c 6c 65 67 61 6c 20 21 0a 20 20 20 20 20 20 20 20 66 72 65 65 74 72 61 6e 73 70 6f 72 74 28 2e ┆llegal ! freetransport(.┆
0x57f40…57f60 77 33 2e 2c 77 31 2c 77 32 29 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 32 3d 30 20 74 68 65 6e ┆w3.,w1,w2); if w2=0 then┆
0x57f60…57f7a 20 67 6f 74 6f 20 72 64 74 5f 72 65 73 6f 75 72 63 65 73 3b 0a 20 20 20 20 20 ┆ goto rdt_resources; ┆
0x57f7a…57f80 (0x324,0xb00)
0x57f80…57fa0 20 20 20 61 64 74 5f 6e 6f 3a 3d 20 77 31 3b 0a 20 20 20 20 20 20 20 20 74 72 61 6e 73 72 65 66 ┆ adt_no:= w1; transref┆
0x57fa0…57fc0 3a 3d 20 77 32 3b 0a 20 20 20 20 20 20 20 20 77 31 3a 3d 20 77 32 2b 21 6c 65 6e 67 74 68 28 74 ┆:= w2; w1:= w2+!length(t┆
0x57fc0…57fe0 72 5f 64 65 73 63 72 29 2d 32 3b 0a 20 20 20 20 20 20 20 20 77 30 3a 3d 20 30 3b 0a 20 20 20 20 ┆r_descr)-2; w0:= 0; ┆
0x57fe0…58000 20 20 20 20 66 6f 72 20 77 31 20 73 74 65 70 20 32 20 64 6f 77 6e 74 6f 00 00 00 00 00 00 00 00 ┆ for w1 step 2 downto ┆
0x58000…58006 (704,) (0x324,0xb01)
0x58006…58020 20 74 72 61 6e 73 72 65 66 20 64 6f 20 28 77 31 29 2e 77 6f 72 64 3a 3d 20 77 ┆ transref do (w1).word:= w┆
0x58020…58040 30 3b 0a 20 20 20 20 20 20 20 20 63 6f 6e 74 5f 64 61 74 61 28 77 31 3a 3d 31 29 3b 0a 20 20 20 ┆0; cont_data(w1:=1); ┆
0x58040…58060 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 31 29 2e 64 74 68 5f 74 72 6e 61 6d 65 3c 3e 34 27 31 ┆ if w0:=(w1).dth_trname<>4'1┆
0x58060…5807e 30 31 30 30 31 30 20 74 68 65 6e 20 67 6f 74 6f 20 72 64 74 5f 73 79 6e 74 61 78 3b 0a 21 ┆010010 then goto rdt_syntax; !┆
0x5807e…58084 (0x324,0xb02)
0x58084…580a0 74 65 73 74 20 35 32 3b 0a 20 20 20 20 20 20 20 20 6d 6f 76 65 28 2e 77 33 2e 2c 77 ┆test 52; move(.w3.,w┆
0x580a0…580c0 30 3a 3d 38 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 28 77 31 29 2e 64 74 5f 74 72 6e 61 6d 65 29 ┆0:=8,w1:=address((w1).dt_trname)┆
0x580c0…580e0 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 61 64 74 5f 74 72 6e 61 6d 65 29 29 3b 0a 20 20 20 20 20 ┆,w2:=address(adt_trname)); ┆
0x580e0…580fc 20 20 20 6d 6f 76 65 28 2e 77 33 2e 2c 77 30 2c 77 31 2c 77 32 3a 3d 61 64 64 72 65 ┆ move(.w3.,w0,w1,w2:=addre┆
0x580fc…58102 (0x324,0xb03)
0x58102…58120 73 73 28 28 77 32 3a 3d 74 72 61 6e 73 72 65 66 29 2e 74 72 5f 6e 61 6d 65 29 29 3b 0a 20 ┆ss((w2:=transref).tr_name)); ┆
0x58120…58140 20 20 20 20 20 20 20 63 6f 6e 74 5f 64 61 74 61 28 77 31 3a 3d 31 29 3b 0a 20 20 20 20 20 20 20 ┆ cont_data(w1:=1); ┆
0x58140…58160 20 69 66 20 77 30 3a 3d 28 77 31 29 2e 64 74 68 5f 75 73 65 72 3c 3e 34 27 32 30 31 30 30 31 30 ┆ if w0:=(w1).dth_user<>4'2010010┆
0x58160…5817a 20 74 68 65 6e 20 67 6f 74 6f 20 72 64 74 5f 73 79 6e 74 61 78 3b 0a 20 20 20 ┆ then goto rdt_syntax; ┆
0x5817a…58180 (0x324,0xb04)
0x58180…581a0 20 20 20 20 20 6d 6f 76 65 28 2e 77 33 2e 2c 77 30 3a 3d 38 2c 77 31 3a 3d 61 64 64 72 65 73 73 ┆ move(.w3.,w0:=8,w1:=address┆
0x581a0…581c0 28 28 77 31 29 2e 64 74 5f 75 73 65 72 29 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 61 64 74 5f 75 ┆((w1).dt_user),w2:=address(adt_u┆
0x581c0…581e0 73 65 72 29 29 3b 0a 20 20 20 20 20 20 20 20 6d 6f 76 65 28 2e 77 33 2e 2c 77 30 2c 77 31 2c 77 ┆ser)); move(.w3.,w0,w1,w┆
0x581e0…58200 32 3a 3d 61 64 64 72 65 73 73 28 28 77 32 3a 3d 74 72 61 6e 73 72 65 66 00 00 00 00 00 00 00 00 ┆2:=address((w2:=transref ┆
0x58200…58206 (705,) (0x324,0xb05)
0x58206…58220 29 2e 74 72 5f 75 73 65 72 29 29 3b 0a 20 20 20 20 20 20 20 20 63 6f 6e 74 5f ┆).tr_user)); cont_┆
0x58220…58240 64 61 74 61 28 77 31 3a 3d 31 29 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 31 29 ┆data(w1:=1); if w0:=(w1)┆
0x58240…58260 2e 64 74 68 5f 73 75 62 3c 3e 28 31 30 30 30 2a 34 30 39 36 2b 34 27 30 31 30 30 30 30 29 20 74 ┆.dth_sub<>(1000*4096+4'010000) t┆
0x58260…5827e 68 65 6e 20 67 6f 74 6f 20 72 64 74 5f 73 79 6e 74 61 78 3b 0a 20 20 20 20 20 20 20 20 69 ┆hen goto rdt_syntax; i┆
0x5827e…58284 (0x324,0xb06)
0x58284…582a0 66 20 77 30 3a 3d 28 77 31 29 2e 64 74 68 5f 73 65 6e 64 65 72 3c 3e 34 27 31 30 32 ┆f w0:=(w1).dth_sender<>4'102┆
0x582a0…582c0 30 30 30 30 20 74 68 65 6e 20 67 6f 74 6f 20 72 64 74 5f 73 79 6e 74 61 78 3b 0a 20 20 20 20 20 ┆0000 then goto rdt_syntax; ┆
0x582c0…582e0 20 20 20 69 66 20 77 30 3a 3d 28 77 31 29 2e 64 74 68 5f 73 6e 61 6d 65 3c 3e 34 27 32 30 33 30 ┆ if w0:=(w1).dth_sname<>4'2030┆
0x582e0…582fc 30 31 30 20 74 68 65 6e 20 67 6f 74 6f 20 72 64 74 5f 73 79 6e 74 61 78 3b 0a 20 20 ┆010 then goto rdt_syntax; ┆
0x582fc…58302 (0x324,0xb07)
0x58302…58320 20 20 20 20 20 20 6d 6f 76 65 28 2e 77 33 2e 2c 77 30 3a 3d 38 2c 77 31 3a 3d 61 64 64 72 ┆ move(.w3.,w0:=8,w1:=addr┆
0x58320…58340 65 73 73 28 28 77 31 29 2e 64 74 5f 73 6e 61 6d 65 29 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 28 ┆ess((w1).dt_sname),w2:=address((┆
0x58340…58360 77 32 3a 3d 74 72 61 6e 73 72 65 66 29 2e 74 72 5f 73 6e 61 6d 65 29 29 3b 0a 20 20 20 20 20 20 ┆w2:=transref).tr_sname)); ┆
0x58360…5837a 20 20 63 6f 6e 74 5f 64 61 74 61 28 77 31 3a 3d 31 29 3b 0a 20 20 20 20 20 20 ┆ cont_data(w1:=1); ┆
0x5837a…58380 (0x324,0xb08)
0x58380…583a0 20 20 69 66 20 77 30 3a 3d 28 77 31 29 2e 64 74 68 5f 72 65 63 65 69 76 65 72 3c 3e 34 27 32 30 ┆ if w0:=(w1).dth_receiver<>4'20┆
0x583a0…583c0 32 30 30 30 30 20 74 68 65 6e 20 67 6f 74 6f 20 72 64 74 5f 73 79 6e 74 61 78 3b 0a 20 20 20 20 ┆20000 then goto rdt_syntax; ┆
0x583c0…583e0 20 20 20 20 69 66 20 77 30 3a 3d 28 77 31 29 2e 64 74 68 5f 72 6e 61 6d 65 3c 3e 34 27 32 30 33 ┆ if w0:=(w1).dth_rname<>4'203┆
0x583e0…58400 30 30 31 30 20 74 68 65 6e 20 67 6f 74 6f 20 72 64 74 5f 73 79 6e 74 61 00 00 00 00 00 00 00 00 ┆0010 then goto rdt_synta ┆
0x58400…58406 (706,) (0x324,0xb09)
0x58406…58420 78 3b 0a 21 74 65 73 74 20 35 38 3b 0a 20 20 20 20 20 20 20 20 6d 6f 76 65 28 ┆x; !test 58; move(┆
0x58420…58440 2e 77 33 2e 2c 77 30 3a 3d 38 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 28 77 31 29 2e 64 74 5f 72 ┆.w3.,w0:=8,w1:=address((w1).dt_r┆
0x58440…58460 6e 61 6d 65 29 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 28 77 32 3a 3d 74 72 61 6e 73 72 65 66 29 ┆name),w2:=address((w2:=transref)┆
0x58460…5847e 2e 74 72 5f 72 6e 61 6d 65 29 29 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 31 3a 3d 62 79 ┆.tr_rname)); if w1:=by┆
0x5847e…58484 (0x324,0xb0a)
0x58484…584a0 74 65 73 6d 6f 76 65 64 3d 21 6c 65 6e 67 74 68 28 64 65 66 5f 74 72 61 6e 73 70 6f ┆tesmoved=!length(def_transpo┆
0x584a0…584c0 72 74 29 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 21 20 71 75 65 75 65 20 66 ┆rt) then begin ! queue f┆
0x584c0…584e0 69 65 6c 64 73 20 70 72 65 73 65 6e 74 20 21 0a 20 20 20 20 20 20 20 20 20 20 63 6f 6e 74 5f 64 ┆ields present ! cont_d┆
0x584e0…584fc 61 74 61 28 77 31 3a 3d 31 29 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3a ┆ata(w1:=1); if w0:┆
0x584fc…58502 (0x324,0xb0b)
0x58502…58520 3d 28 77 31 29 2e 64 74 68 5f 71 75 65 75 65 73 3c 3e 34 27 33 30 33 30 30 30 30 20 74 68 ┆=(w1).dth_queues<>4'3030000 th┆
0x58520…58540 65 6e 20 67 6f 74 6f 20 72 64 74 5f 73 79 6e 74 61 78 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 ┆en goto rdt_syntax; if┆
0x58540…58560 20 77 30 3a 3d 28 77 31 29 2e 64 74 68 5f 71 67 72 6f 75 70 3c 3e 34 27 31 31 30 30 30 31 30 20 ┆ w0:=(w1).dth_qgroup<>4'1100010 ┆
0x58560…5857a 74 68 65 6e 20 67 6f 74 6f 20 72 64 74 5f 73 79 6e 74 61 78 3b 0a 20 20 20 20 ┆then goto rdt_syntax; ┆
0x5857a…58580 (0x324,0xb0c)
0x58580…585a0 20 20 20 20 20 20 6d 6f 76 65 28 2e 77 33 2e 2c 77 30 3a 3d 38 2c 77 31 3a 3d 61 64 64 72 65 73 ┆ move(.w3.,w0:=8,w1:=addres┆
0x585a0…585c0 73 28 28 77 31 29 2e 64 74 5f 71 67 72 6f 75 70 29 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 28 77 ┆s((w1).dt_qgroup),w2:=address((w┆
0x585c0…585e0 32 3a 3d 74 72 61 6e 73 72 65 66 29 2e 74 72 5f 71 67 72 6f 75 70 29 29 3b 0a 20 20 20 20 20 20 ┆2:=transref).tr_qgroup)); ┆
0x585e0…58600 20 20 20 20 63 6f 6e 74 5f 64 61 74 61 28 77 31 3a 3d 31 29 3b 0a 20 20 00 00 00 00 00 00 00 00 ┆ cont_data(w1:=1); ┆
0x58600…58606 (707,) (0x324,0xb0d)
0x58606…58620 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 31 29 2e 64 74 68 5f 71 6e ┆ if w0:=(w1).dth_qn┆
0x58620…58640 61 6d 65 3c 3e 34 27 33 31 30 30 30 31 30 20 74 68 65 6e 20 67 6f 74 6f 20 72 64 74 5f 73 79 6e ┆ame<>4'3100010 then goto rdt_syn┆
0x58640…58660 74 61 78 3b 0a 21 74 65 73 74 20 36 30 3b 0a 20 20 20 20 20 20 20 20 20 20 6d 6f 76 65 28 2e 77 ┆tax; !test 60; move(.w┆
0x58660…5867e 33 2e 2c 77 30 3a 3d 38 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 28 77 31 29 2e 64 74 5f 71 ┆3.,w0:=8,w1:=address((w1).dt_q┆
0x5867e…58684 (0x324,0xb0e)
0x58684…586a0 6e 61 6d 65 29 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 28 77 32 3a 3d 74 72 61 6e 73 ┆name),w2:=address((w2:=trans┆
0x586a0…586c0 72 65 66 29 2e 74 72 5f 71 6e 61 6d 65 29 29 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 0a 20 ┆ref).tr_qname)); end; ┆
0x586c0…586e0 20 20 20 20 20 20 20 64 65 66 74 72 5f 73 65 6d 61 6e 74 69 63 28 2e 77 33 2e 2c 77 30 2c 77 31 ┆ deftr_semantic(.w3.,w0,w1┆
0x586e0…586fc 2c 77 32 3a 3d 74 72 61 6e 73 72 65 66 29 3b 0a 21 74 65 73 74 20 36 31 3b 0a 20 20 ┆,w2:=transref); !test 61; ┆
0x586fc…58702 (0x324,0xb0f)
0x58702…58720 20 20 20 20 20 20 74 63 5f 72 65 66 3a 3d 20 77 31 3b 0a 20 20 20 20 20 20 20 20 63 61 73 ┆ tc_ref:= w1; cas┆
0x58720…58740 65 20 77 31 3a 3d 20 77 30 20 6f 66 20 20 20 20 20 21 20 77 31 3d 30 20 74 72 61 6e 73 70 6f 72 ┆e w1:= w0 of ! w1=0 transpor┆
0x58740…58760 74 20 64 65 66 69 6e 65 64 2c 20 6e 6f 20 61 63 74 69 6f 6e 20 21 0a 20 20 20 20 20 20 20 20 62 ┆t defined, no action ! b┆
0x58760…5877a 65 67 69 6e 0a 72 64 74 5f 73 79 6e 74 61 78 20 20 20 20 20 20 20 20 3a 20 77 ┆egin rdt_syntax : w┆
0x5877a…58780 (0x324,0xb10)
0x58780…587a0 31 3a 3d 20 31 3b 0a 72 64 74 5f 72 65 73 6f 75 72 63 65 73 20 20 20 20 20 3a 20 77 31 3a 3d 20 ┆1:= 1; rdt_resources : w1:= ┆
0x587a0…587c0 33 3b 0a 72 64 74 5f 73 65 6e 74 20 20 20 20 20 20 20 20 20 20 3a 20 62 65 67 69 6e 0a 20 20 20 ┆3; rdt_sent : begin ┆
0x587c0…587e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 64 74 5f 31 33 3a 3d 20 77 31 3a 3d ┆ adt_13:= w1:=┆
0x587e0…58800 20 33 3b 20 61 64 74 5f 63 61 75 73 65 3a 3d 20 77 31 3a 3d 20 31 3b 20 00 00 00 00 00 00 00 00 ┆ 3; adt_cause:= w1:= 1; ┆
0x58800…58806 (708,) (0x324,0xb11)
0x58806…58820 77 31 3a 3d 20 35 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆w1:= 5; ┆
0x58820…58840 20 20 65 6e 64 3b 0a 72 64 74 5f 73 64 65 76 20 20 20 20 20 20 20 20 20 20 3a 20 62 65 67 69 6e ┆ end; rdt_sdev : begin┆
0x58840…58860 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 64 74 5f 31 33 3a 3d 20 ┆ adt_13:= ┆
0x58860…5887e 77 31 3a 3d 20 33 3b 20 61 64 74 5f 63 61 75 73 65 3a 3d 20 77 31 3a 3d 20 32 3b 20 77 31 ┆w1:= 3; adt_cause:= w1:= 2; w1┆
0x5887e…58884 (0x324,0xb12)
0x58884…588a0 3a 3d 20 35 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e ┆:= 5; en┆
0x588a0…588c0 64 3b 0a 72 64 74 5f 72 65 6e 74 20 20 20 20 20 20 20 20 20 20 3a 20 62 65 67 69 6e 0a 20 20 20 ┆d; rdt_rent : begin ┆
0x588c0…588e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 64 74 5f 31 33 3a 3d 20 77 31 3a 3d ┆ adt_13:= w1:=┆
0x588e0…588fc 20 34 3b 20 61 64 74 5f 63 61 75 73 65 3a 3d 20 77 31 3a 3d 20 31 3b 20 77 31 3a 3d ┆ 4; adt_cause:= w1:= 1; w1:=┆
0x588fc…58902 (0x324,0xb13)
0x58902…58920 20 36 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 72 ┆ 6; end; r┆
0x58920…58940 64 74 5f 72 64 65 76 20 20 20 20 20 20 20 20 20 20 3a 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 ┆dt_rdev : begin ┆
0x58940…58960 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 64 74 5f 31 33 3a 3d 20 77 31 3a 3d 20 34 3b 20 ┆ adt_13:= w1:= 4; ┆
0x58960…5897a 61 64 74 5f 63 61 75 73 65 3a 3d 20 77 31 3a 3d 20 32 3b 20 77 31 3a 3d 20 36 ┆adt_cause:= w1:= 2; w1:= 6┆
0x5897a…58980 (0x324,0xb14)
0x58980…589a0 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 ┆; end; ┆
0x589a0…589c0 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 61 64 74 5f 72 63 6f 64 65 3a 3d 20 77 31 3b 0a ┆ end; adt_rcode:= w1; ┆
0x589c0…589e0 20 20 20 20 20 20 20 20 69 66 20 77 31 3e 3d 35 20 21 20 64 65 76 69 63 65 20 74 72 6f 75 62 6c ┆ if w1>=5 ! device troubl┆
0x589e0…58a00 65 73 20 21 20 74 68 65 6e 20 77 31 3a 3d 20 61 64 64 72 65 73 73 28 61 00 00 00 00 00 00 00 00 ┆es ! then w1:= address(a ┆
0x58a00…58a06 (709,) (0x324,0xb15)
0x58a06…58a20 64 74 5f 73 74 61 74 75 73 29 0a 20 20 20 20 20 20 20 20 65 6c 73 65 20 77 31 ┆dt_status) else w1┆
0x58a20…58a40 3a 3d 20 61 64 64 72 65 73 73 28 61 64 74 5f 72 63 6f 64 65 29 3b 0a 20 20 20 20 20 20 20 20 63 ┆:= address(adt_rcode); c┆
0x58a40…58a60 6f 70 79 61 6e 73 77 65 72 28 2e 77 33 2e 2c 77 30 3a 3d 61 64 64 72 65 73 73 28 61 64 74 5f 31 ┆opyanswer(.w3.,w0:=address(adt_1┆
0x58a60…58a7e 29 2c 77 31 2c 77 32 3a 3d 62 2e 65 76 65 6e 74 29 3b 0a 20 20 20 20 20 20 20 20 69 66 20 ┆),w1,w2:=b.event); if ┆
0x58a7e…58a84 (0x324,0xb16)
0x58a84…58aa0 77 30 3d 30 20 74 68 65 6e 20 21 20 64 61 74 61 20 63 6f 70 69 65 64 20 74 6f 20 73 ┆w0=0 then ! data copied to s┆
0x58aa0…58ac0 65 6e 64 65 72 20 21 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 61 64 74 5f 72 63 6f 64 65 ┆ender ! if w0:=adt_rcode┆
0x58ac0…58ae0 3d 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 21 20 6f 70 65 72 61 74 69 6f ┆=0 then begin ! operatio┆
0x58ae0…58afc 6e 20 61 63 63 65 70 74 65 64 2c 20 69 6e 69 74 69 61 6c 69 7a 65 20 74 72 61 6e 73 ┆n accepted, initialize trans┆
0x58afc…58b02 (0x324,0xb17)
0x58b02…58b20 70 6f 72 74 20 21 0a 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 20 74 72 61 6e 73 72 65 66 ┆port ! w2:= transref┆
0x58b20…58b40 3b 0a 20 20 20 20 20 20 20 20 20 20 28 77 32 29 2e 74 72 5f 63 6f 72 6f 75 3a 3d 20 77 30 3a 3d ┆; (w2).tr_corou:= w0:=┆
0x58b40…58b60 20 74 63 5f 72 65 66 3b 0a 20 20 20 20 20 20 20 20 20 20 28 77 32 29 2e 74 72 5f 73 74 61 74 65 ┆ tc_ref; (w2).tr_state┆
0x58b60…58b7a 3a 3d 20 77 30 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 20 20 28 77 32 29 2e ┆:= w0:= 0; (w2).┆
0x58b7a…58b80 (0x324,0xb18)
0x58b80…58ba0 74 72 5f 72 65 6d 6f 76 65 74 69 6d 65 3a 3d 20 77 30 3a 3d 20 38 27 33 37 37 37 37 37 37 37 3b ┆tr_removetime:= w0:= 8'37777777;┆
0x58ba0…58bc0 0a 20 20 20 20 20 20 20 20 20 20 70 75 74 74 72 61 6e 73 70 6f 72 74 28 2e 77 33 2e 2c 77 31 3a ┆ puttransport(.w3.,w1:┆
0x58bc0…58be0 3d 61 64 74 5f 6e 6f 29 3b 0a 20 20 20 20 20 20 20 20 20 20 6c 69 6e 6b 28 2e 77 33 2e 2c 77 31 ┆=adt_no); link(.w3.,w1┆
0x58be0…58c00 3a 3d 62 2e 74 71 66 72 65 65 66 73 74 2c 77 32 3a 3d 61 64 64 72 65 73 00 00 00 00 00 00 00 00 ┆:=b.tqfreefst,w2:=addres ┆
0x58c00…58c06 (710,) (0x324,0xb19)
0x58c06…58c20 73 28 74 63 5f 72 65 66 2e 74 63 5f 6e 65 78 74 74 72 29 29 3b 0a 20 20 20 20 ┆s(tc_ref.tc_nexttr)); ┆
0x58c20…58c40 20 20 20 20 20 20 28 77 31 29 2e 74 71 5f 74 72 61 6e 73 6e 6f 3a 3d 20 77 30 3a 3d 20 61 64 74 ┆ (w1).tq_transno:= w0:= adt┆
0x58c40…58c60 5f 6e 6f 3b 0a 20 20 20 20 20 20 20 20 20 20 66 30 20 6c 73 68 69 66 74 20 31 30 30 3b 0a 20 20 ┆_no; f0 lshift 100; ┆
0x58c60…58c7e 20 20 20 20 20 20 20 20 28 77 31 29 2e 74 71 5f 73 75 73 70 65 6e 64 3a 3d 20 66 30 3b 0a ┆ (w1).tq_suspend:= f0; ┆
0x58c7e…58c84 (0x324,0xb1a)
0x58c84…58ca0 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 62 2e 63 75 72 72 65 6e 74 3b 0a 20 20 20 ┆ w3:=b.current; ┆
0x58ca0…58cc0 20 20 20 20 20 65 6e 64 3b 0a 0a 20 20 20 20 20 20 65 6e 64 20 21 20 64 65 66 69 6e 65 20 74 72 ┆ end; end ! define tr┆
0x58cc0…58ce0 61 6e 73 70 6f 72 74 20 21 0a 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 69 66 20 77 30 ┆ansport ! else if w0┆
0x58ce0…58cfc 3d 34 27 31 30 30 30 30 30 30 30 20 74 68 65 6e 0a 20 20 20 20 20 20 62 65 67 69 6e ┆=4'10000000 then begin┆
0x58cfc…58d02 (0x324,0xb1b)
0x58d02…58d20 20 21 20 67 65 74 20 73 74 61 74 65 20 6f 66 20 73 75 62 74 72 61 6e 73 70 6f 72 74 20 21 ┆ ! get state of subtransport !┆
0x58d20…58d40 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 62 79 74 65 73 6d 6f 76 65 64 3c 3e 21 6c 65 6e ┆ if w0:=bytesmoved<>!len┆
0x58d40…58d60 67 74 68 28 67 65 74 73 74 5f 74 72 61 6e 73 70 6f 72 74 29 20 74 68 65 6e 0a 20 20 20 20 20 20 ┆gth(getst_transport) then ┆
0x58d60…58d7a 20 20 67 6f 74 6f 20 75 6e 69 6e 74 3b 20 21 20 6c 65 6e 67 74 68 20 6f 66 20 ┆ goto unint; ! length of ┆
0x58d7a…58d80 (0x324,0xb1c)
0x58d80…58da0 64 61 74 61 20 69 6c 6c 65 67 61 6c 20 21 0a 20 20 20 20 20 20 20 20 61 67 74 5f 31 3a 3d 20 77 ┆data illegal ! agt_1:= w┆
0x58da0…58dc0 30 3a 3d 20 35 3b 20 21 20 61 6e 73 20 67 65 74 20 73 74 61 74 65 20 21 0a 20 20 20 20 20 20 20 ┆0:= 5; ! ans get state ! ┆
0x58dc0…58de0 20 63 6f 6e 74 5f 64 61 74 61 28 77 31 3a 3d 31 29 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 ┆ cont_data(w1:=1); if w0┆
0x58de0…58e00 3a 3d 28 77 31 29 2e 67 74 68 5f 6e 6f 3c 3e 34 27 33 30 31 30 30 30 31 00 00 00 00 00 00 00 00 ┆:=(w1).gth_no<>4'3010001 ┆
0x58e00…58e06 (711,) (0x324,0xb1d)
0x58e06…58e20 20 74 68 65 6e 20 67 6f 74 6f 20 72 67 74 5f 73 79 6e 74 61 78 3b 0a 20 20 20 ┆ then goto rgt_syntax; ┆
0x58e20…58e40 20 20 20 20 20 6c 6f 6f 6b 74 72 61 6e 73 70 6f 72 74 28 2e 77 33 2e 2c 77 31 3a 3d 28 77 31 29 ┆ looktransport(.w3.,w1:=(w1)┆
0x58e40…58e60 2e 67 74 5f 6e 6f 2c 77 32 29 3b 0a 20 20 20 20 20 20 20 20 61 67 74 5f 6e 6f 3a 3d 20 77 31 3b ┆.gt_no,w2); agt_no:= w1;┆
0x58e60…58e7e 0a 20 20 20 20 20 20 20 20 69 66 20 77 32 3c 3d 30 20 74 68 65 6e 20 67 6f 74 6f 20 72 67 ┆ if w2<=0 then goto rg┆
0x58e7e…58e84 (0x324,0xb1e)
0x58e84…58ea0 74 5f 75 6e 6b 6e 6f 77 6e 3b 0a 20 20 20 20 20 20 20 20 74 72 61 6e 73 72 65 66 3a ┆t_unknown; transref:┆
0x58ea0…58ec0 3d 20 77 32 3b 0a 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 32 29 2e 74 72 5f 73 74 ┆= w2; if w0:=(w2).tr_st┆
0x58ec0…58ee0 61 74 65 3d 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 21 20 6e 6f 74 20 66 ┆ate=0 then begin ! not f┆
0x58ee0…58efc 69 6e 69 73 68 65 64 20 21 0a 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 20 28 77 32 ┆inished ! w1:= (w2┆
0x58efc…58f02 (0x324,0xb1f)
0x58f02…58f20 29 2e 74 72 5f 63 6f 72 6f 75 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 ┆).tr_corou; if w0:=(┆
0x58f20…58f40 77 31 29 2e 74 63 5f 74 72 61 6e 73 6e 6f 3c 3e 61 67 74 5f 6e 6f 20 74 68 65 6e 20 61 67 74 5f ┆w1).tc_transno<>agt_no then agt_┆
0x58f40…58f60 73 74 61 74 65 3a 3d 20 77 30 3a 3d 20 32 20 21 20 77 61 69 74 69 6e 67 20 21 0a 20 20 20 20 20 ┆state:= w0:= 2 ! waiting ! ┆
0x58f60…58f7a 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 ┆ else begin ┆
0x58f7a…58f80 (0x324,0xb20)
0x58f80…58fa0 21 20 65 78 65 63 75 74 69 6e 67 20 6f 72 20 68 6f 6c 64 20 73 74 61 74 65 20 21 0a 20 20 20 20 ┆! executing or hold state ! ┆
0x58fa0…58fc0 20 20 20 20 20 20 20 20 61 67 74 5f 73 74 61 74 65 3a 3d 20 77 30 3a 3d 20 33 3b 20 21 20 65 78 ┆ agt_state:= w0:= 3; ! ex┆
0x58fc0…58fe0 65 63 75 74 69 6e 67 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 20 62 2e 68 6f 6c ┆ecuting ! w2:= b.hol┆
0x58fe0…59000 64 71 66 73 74 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 68 69 6c 65 00 00 00 00 00 00 00 00 ┆dqfst; while ┆
0x59000…59006 (712,) (0x324,0xb21)
0x59006…59020 20 77 33 3a 3d 61 64 64 72 65 73 73 28 62 2e 68 6f 6c 64 71 66 73 74 29 3c 3e ┆ w3:=address(b.holdqfst)<>┆
0x59020…59040 77 32 20 64 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 ┆w2 do begin ┆
0x59040…59060 20 20 20 20 20 20 69 66 20 77 31 3d 77 32 20 74 68 65 6e 20 61 67 74 5f 73 74 61 74 65 3a 3d 20 ┆ if w1=w2 then agt_state:= ┆
0x59060…5907e 77 30 3a 3d 20 34 3b 20 21 20 68 6f 6c 64 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆w0:= 4; ! hold ! ┆
0x5907e…59084 (0x324,0xb22)
0x59084…590a0 20 77 32 3a 3d 20 28 77 32 29 2e 63 5f 6e 65 78 74 3b 0a 20 20 20 20 20 20 20 20 20 ┆ w2:= (w2).c_next; ┆
0x590a0…590c0 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 65 ┆ end; end; e┆
0x590c0…590e0 6e 64 0a 20 20 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 21 20 ┆nd else begin ! ┆
0x590e0…590fc 66 69 6e 69 73 68 65 64 20 21 0a 74 72 5f 66 69 6e 69 73 68 65 64 3a 0a 20 20 20 20 ┆finished ! tr_finished: ┆
0x590fc…59102 (0x324,0xb23)
0x59102…59120 20 20 20 20 20 20 61 67 74 5f 73 74 61 74 65 3a 3d 20 77 30 3a 3d 20 28 77 32 29 2e 74 72 ┆ agt_state:= w0:= (w2).tr┆
0x59120…59140 5f 73 74 61 74 65 3b 0a 20 20 20 20 20 20 20 20 20 20 61 67 74 5f 63 61 75 73 65 3a 3d 20 77 30 ┆_state; agt_cause:= w0┆
0x59140…59160 3a 3d 20 28 77 32 29 2e 74 72 5f 63 61 75 73 65 3b 0a 20 20 20 20 20 20 20 20 20 20 61 67 74 5f ┆:= (w2).tr_cause; agt_┆
0x59160…5917a 73 74 61 74 75 73 3a 3d 20 77 30 3a 3d 20 28 77 32 29 2e 74 72 5f 73 74 61 74 ┆status:= w0:= (w2).tr_stat┆
0x5917a…59180 (0x324,0xb24)
0x59180…591a0 75 73 3b 0a 20 20 20 20 20 20 20 20 20 20 66 31 3a 3d 28 77 32 29 2e 74 72 5f 63 68 61 72 70 6f ┆us; f1:=(w2).tr_charpo┆
0x591a0…591c0 73 69 74 69 6f 6e 3b 0a 20 20 20 20 20 20 20 20 20 20 61 67 74 5f 70 74 72 31 3a 3d 77 30 3b 0a ┆sition; agt_ptr1:=w0; ┆
0x591c0…591e0 20 20 20 20 20 20 20 20 20 20 61 67 74 5f 70 74 72 32 3a 3d 77 31 3b 0a 20 20 20 20 20 20 20 20 ┆ agt_ptr2:=w1; ┆
0x591e0…59200 65 6e 64 3b 0a 0a 20 20 20 20 20 20 20 20 77 30 3a 3d 20 30 3b 0a 72 67 00 00 00 00 00 00 00 00 ┆end; w0:= 0; rg ┆
0x59200…59206 (713,) (0x324,0xb25)
0x59206…59220 74 3a 0a 20 20 20 20 20 20 20 20 21 20 72 65 70 6c 79 20 67 65 74 20 74 72 61 ┆t: ! reply get tra┆
0x59220…59240 6e 73 70 6f 72 74 20 21 0a 20 20 20 20 20 20 20 20 61 67 74 5f 72 63 6f 64 65 3a 3d 20 77 30 3b ┆nsport ! agt_rcode:= w0;┆
0x59240…59260 0a 20 20 20 20 20 20 20 20 6d 6f 76 65 28 2e 77 33 2e 2c 77 30 3a 3d 38 2c 77 31 3a 3d 61 64 64 ┆ move(.w3.,w0:=8,w1:=add┆
0x59260…5927e 72 65 73 73 28 28 77 31 3a 3d 74 72 61 6e 73 72 65 66 29 2e 74 72 5f 6e 61 6d 65 29 2c 0a ┆ress((w1:=transref).tr_name), ┆
0x5927e…59284 (0x324,0xb26)
0x59284…592a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 61 64 64 72 65 73 ┆ w2:=addres┆
0x592a0…592c0 73 28 61 67 74 5f 74 72 6e 61 6d 65 29 29 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 31 3a 3d 61 ┆s(agt_trname)); if w1:=a┆
0x592c0…592e0 67 74 5f 73 74 61 74 65 3d 35 20 74 68 65 6e 20 77 31 3a 3d 20 61 64 64 72 65 73 73 28 61 67 74 ┆gt_state=5 then w1:= address(agt┆
0x592e0…592fc 5f 70 74 72 32 29 0a 20 20 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 ┆_ptr2) else ┆
0x592fc…59302 (0x324,0xb27)
0x59302…59320 69 66 20 77 31 3d 36 20 74 68 65 6e 20 77 31 3a 3d 20 61 64 64 72 65 73 73 28 61 67 74 5f ┆if w1=6 then w1:= address(agt_┆
0x59320…59340 73 74 61 74 75 73 29 0a 20 20 20 20 20 20 20 20 65 6c 73 65 20 77 31 3a 3d 20 61 64 64 72 65 73 ┆status) else w1:= addres┆
0x59340…59360 73 28 61 67 74 5f 73 74 61 74 65 29 3b 0a 20 20 20 20 20 20 20 20 63 6f 70 79 61 6e 73 77 65 72 ┆s(agt_state); copyanswer┆
0x59360…5937a 28 2e 77 33 2e 2c 77 30 3a 3d 61 64 64 72 65 73 73 28 61 67 74 5f 31 29 2c 77 ┆(.w3.,w0:=address(agt_1),w┆
0x5937a…59380 (0x324,0xb28)
0x59380…593a0 31 2c 77 32 3a 3d 62 2e 65 76 65 6e 74 29 3b 0a 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3c 3e ┆1,w2:=b.event); if w0<>┆
0x593a0…593c0 77 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 21 20 6f 70 65 72 61 74 69 6f ┆w0 then begin ! operatio┆
0x593c0…593e0 6e 20 6e 6f 74 20 61 63 63 65 70 74 65 64 20 21 0a 72 67 74 5f 73 79 6e 74 61 78 20 20 20 3a 20 ┆n not accepted ! rgt_syntax : ┆
0x593e0…59400 77 30 3a 3d 20 31 3b 20 67 6f 74 6f 20 72 67 74 3b 0a 72 67 74 5f 75 6e 00 00 00 00 00 00 00 00 ┆w0:= 1; goto rgt; rgt_un ┆
0x59400…59406 (714,) (0x324,0xb29)
0x59406…59420 6b 6e 6f 77 6e 20 20 3a 20 77 30 3a 3d 20 32 3b 20 67 6f 74 6f 20 72 67 74 3b ┆known : w0:= 2; goto rgt;┆
0x59420…59440 0a 72 67 74 5f 72 65 73 6f 75 72 63 65 73 3a 20 77 30 3a 3d 20 33 3b 20 67 6f 74 6f 20 72 67 74 ┆ rgt_resources: w0:= 3; goto rgt┆
0x59440…59460 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 65 6e 64 20 21 20 67 65 74 20 73 ┆; end; end ! get s┆
0x59460…5947e 74 61 74 65 20 6f 66 20 74 72 61 6e 73 70 6f 72 74 20 21 0a 20 20 20 20 20 20 65 6c 73 65 ┆tate of transport ! else┆
0x5947e…59484 (0x324,0xb2a)
0x59484…594a0 0a 20 20 20 20 20 20 69 66 20 77 30 3d 34 27 31 32 30 30 30 30 30 30 20 74 68 65 6e ┆ if w0=4'12000000 then┆
0x594a0…594c0 0a 20 20 20 20 20 20 62 65 67 69 6e 20 21 20 77 61 69 74 20 61 6e 64 20 67 65 74 20 73 74 61 74 ┆ begin ! wait and get stat┆
0x594c0…594e0 65 20 6f 66 20 73 75 62 74 72 61 6e 73 70 6f 72 74 20 21 0a 20 20 20 20 20 20 20 20 69 66 20 77 ┆e of subtransport ! if w┆
0x594e0…594fc 30 3a 3d 62 79 74 65 73 6d 6f 76 65 64 3c 3e 21 6c 65 6e 67 74 68 28 67 65 74 73 74 ┆0:=bytesmoved<>!length(getst┆
0x594fc…59502 (0x324,0xb2b)
0x59502…59520 5f 74 72 61 6e 73 70 6f 72 74 29 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 67 6f 74 6f 20 ┆_transport) then goto ┆
0x59520…59540 75 6e 69 6e 74 3b 20 21 20 6c 65 6e 67 74 68 20 6f 66 20 64 61 74 61 20 69 6c 6c 65 67 61 6c 20 ┆unint; ! length of data illegal ┆
0x59540…59560 21 0a 20 20 20 20 20 20 20 20 61 67 74 5f 31 3a 3d 20 77 30 3a 3d 20 37 3b 20 21 20 61 6e 73 77 ┆! agt_1:= w0:= 7; ! answ┆
0x59560…5957a 65 72 20 77 61 69 74 67 65 74 20 74 72 61 6e 73 70 6f 72 74 20 21 0a 20 20 20 ┆er waitget transport ! ┆
0x5957a…59580 (0x324,0xb2c)
0x59580…595a0 20 20 20 20 20 63 6f 6e 74 5f 64 61 74 61 28 77 31 3a 3d 31 29 3b 0a 20 20 20 20 20 20 20 20 69 ┆ cont_data(w1:=1); i┆
0x595a0…595c0 66 20 77 30 3a 3d 28 77 31 29 2e 67 74 68 5f 6e 6f 3c 3e 34 27 33 30 31 30 30 30 31 20 74 68 65 ┆f w0:=(w1).gth_no<>4'3010001 the┆
0x595c0…595e0 6e 20 67 6f 74 6f 20 72 67 74 5f 73 79 6e 74 61 78 3b 0a 20 20 20 20 20 20 20 20 6c 6f 6f 6b 74 ┆n goto rgt_syntax; lookt┆
0x595e0…59600 72 61 6e 73 70 6f 72 74 28 2e 77 33 2e 2c 77 31 3a 3d 28 77 31 29 2e 67 00 00 00 00 00 00 00 00 ┆ransport(.w3.,w1:=(w1).g ┆
0x59600…59606 (715,) (0x324,0xb2d)
0x59606…59620 74 5f 6e 6f 2c 77 32 29 3b 0a 20 20 20 20 20 20 20 20 61 67 74 5f 6e 6f 3a 3d ┆t_no,w2); agt_no:=┆
0x59620…59640 20 77 31 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 32 3c 3d 30 20 74 68 65 6e 20 67 6f 74 6f 20 ┆ w1; if w2<=0 then goto ┆
0x59640…59660 72 67 74 5f 75 6e 6b 6e 6f 77 6e 3b 0a 20 20 20 20 20 20 20 20 74 72 61 6e 73 72 65 66 3a 3d 20 ┆rgt_unknown; transref:= ┆
0x59660…5967e 77 32 3b 0a 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 32 29 2e 74 72 5f 73 74 ┆w2; if w0:=(w2).tr_st┆
0x5967e…59684 (0x324,0xb2e)
0x59684…596a0 61 74 65 3d 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 21 20 6e ┆ate=0 then begin ! n┆
0x596a0…596c0 6f 74 20 66 69 6e 69 73 68 65 64 20 21 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 ┆ot finished ! if w0:=(┆
0x596c0…596e0 77 32 29 2e 74 72 5f 77 61 69 74 6d 65 73 73 3e 30 20 74 68 65 6e 20 67 6f 74 6f 20 72 65 6a 65 ┆w2).tr_waitmess>0 then goto reje┆
0x596e0…596fc 63 74 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 62 2e 77 61 69 74 62 ┆ct; if w0:=b.waitb┆
0x596fc…59702 (0x324,0xb2f)
0x59702…59720 75 66 73 3c 3d 30 20 74 68 65 6e 20 67 6f 74 6f 20 72 67 74 5f 72 65 73 6f 75 72 63 65 73 ┆ufs<=0 then goto rgt_resources┆
0x59720…59740 3b 0a 20 20 20 20 20 20 20 20 20 20 62 2e 77 61 69 74 62 75 66 73 3a 3d 20 77 30 2d 31 3b 0a 20 ┆; b.waitbufs:= w0-1; ┆
0x59740…59760 20 20 20 20 20 20 20 20 20 74 72 61 6e 73 72 65 66 2e 74 72 5f 77 61 69 74 6d 65 73 73 3a 3d 20 ┆ transref.tr_waitmess:= ┆
0x59760…5977a 77 32 3a 3d 20 62 2e 65 76 65 6e 74 3b 0a 20 20 20 20 20 20 20 20 20 20 70 75 ┆w2:= b.event; pu┆
0x5977a…59780 (0x324,0xb30)
0x59780…597a0 74 74 72 61 6e 73 70 6f 72 74 28 2e 77 33 2e 2c 77 31 3a 3d 61 67 74 5f 6e 6f 29 3b 0a 20 20 20 ┆ttransport(.w3.,w1:=agt_no); ┆
0x597a0…597c0 20 20 20 20 20 65 6e 64 0a 20 20 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 62 65 ┆ end else be┆
0x597c0…597e0 67 69 6e 20 21 20 66 69 6e 69 73 68 65 64 20 21 0a 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 ┆gin ! finished ! goto ┆
0x597e0…59800 74 72 5f 66 69 6e 69 73 68 65 64 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 00 00 00 00 00 00 00 00 ┆tr_finished; end ┆
0x59800…59806 (716,) (0x324,0xb31)
0x59806…59820 3b 0a 20 20 20 20 20 20 65 6e 64 20 21 20 77 61 69 74 20 61 6e 64 20 67 65 74 ┆; end ! wait and get┆
0x59820…59840 20 73 74 61 74 65 20 6f 66 20 74 72 61 6e 73 70 6f 72 74 20 21 0a 20 20 20 20 20 20 65 6c 73 65 ┆ state of transport ! else┆
0x59840…59860 0a 20 20 20 20 20 20 69 66 20 77 30 3d 34 27 32 30 30 30 30 30 30 30 20 74 68 65 6e 0a 20 20 20 ┆ if w0=4'20000000 then ┆
0x59860…5987e 20 20 20 62 65 67 69 6e 20 21 20 72 65 6c 65 61 73 65 20 64 65 73 63 72 69 70 74 69 6f 6e ┆ begin ! release description┆
0x5987e…59884 (0x324,0xb32)
0x59884…598a0 20 21 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 62 79 74 65 73 6d 6f 76 65 64 ┆ ! if w0:=bytesmoved┆
0x598a0…598c0 3c 3e 21 6c 65 6e 67 74 68 28 72 65 6c 65 61 5f 74 72 61 6e 73 70 6f 72 74 29 20 74 68 65 6e 0a ┆<>!length(relea_transport) then ┆
0x598c0…598e0 20 20 20 20 20 20 20 20 67 6f 74 6f 20 75 6e 69 6e 74 3b 20 21 20 6c 65 6e 67 74 68 20 6f 66 20 ┆ goto unint; ! length of ┆
0x598e0…598fc 64 61 74 61 20 69 6c 6c 65 67 61 6c 20 21 0a 20 20 20 20 20 20 20 20 63 6f 6e 74 5f ┆data illegal ! cont_┆
0x598fc…59902 (0x324,0xb33)
0x59902…59920 64 61 74 61 28 77 31 3a 3d 31 29 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 ┆data(w1:=1); if w0:=(w┆
0x59920…59940 31 29 2e 72 74 68 5f 6e 6f 3c 3e 34 27 33 30 31 30 30 30 31 20 74 68 65 6e 20 67 6f 74 6f 20 72 ┆1).rth_no<>4'3010001 then goto r┆
0x59940…59960 72 74 5f 73 79 6e 74 61 78 3b 0a 20 20 20 20 20 20 20 20 6c 6f 6f 6b 74 72 61 6e 73 70 6f 72 74 ┆rt_syntax; looktransport┆
0x59960…5997a 28 2e 77 33 2e 2c 77 31 3a 3d 28 77 31 29 2e 72 74 5f 6e 6f 2c 77 32 29 3b 0a ┆(.w3.,w1:=(w1).rt_no,w2); ┆
0x5997a…59980 (0x324,0xb34)
0x59980…599a0 20 20 20 20 20 20 20 20 69 66 20 77 32 3c 3d 30 20 74 68 65 6e 20 67 6f 74 6f 20 72 72 74 5f 75 ┆ if w2<=0 then goto rrt_u┆
0x599a0…599c0 6e 6b 6e 6f 77 6e 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 32 29 2e 74 72 5f 72 ┆nknown; if w0:=(w2).tr_r┆
0x599c0…599e0 65 6d 6f 76 65 74 69 6d 65 3e 3d 38 27 33 37 37 37 37 37 37 36 20 74 68 65 6e 20 77 30 3a 3d 20 ┆emovetime>=8'37777776 then w0:= ┆
0x599e0…59a00 38 27 33 37 37 37 37 37 37 36 0a 20 20 20 20 20 20 20 20 65 6c 73 65 20 00 00 00 00 00 00 00 00 ┆8'37777776 else ┆
0x59a00…59a06 (717,) (0x324,0xb35)
0x59a06…59a20 77 30 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 28 77 32 29 2e 74 72 5f 72 65 ┆w0:= 0; (w2).tr_re┆
0x59a20…59a40 6d 6f 76 65 74 69 6d 65 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 20 77 30 3a 3d 20 30 3b 0a 0a ┆movetime:= w0; w0:= 0; ┆
0x59a40…59a60 72 72 74 3a 20 20 20 20 21 20 72 65 70 6c 79 20 72 65 6c 65 61 73 65 20 74 72 61 6e 73 70 6f 72 ┆rrt: ! reply release transpor┆
0x59a60…59a7e 74 20 21 0a 20 20 20 20 20 20 20 20 61 72 74 5f 72 63 6f 64 65 3a 3d 20 77 30 3b 0a 20 20 ┆t ! art_rcode:= w0; ┆
0x59a7e…59a84 (0x324,0xb36)
0x59a84…59aa0 20 20 20 20 20 20 63 6f 70 79 61 6e 73 77 65 72 28 2e 77 33 2e 2c 77 30 3a 3d 61 64 ┆ copyanswer(.w3.,w0:=ad┆
0x59aa0…59ac0 64 72 65 73 73 28 61 72 74 5f 31 29 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 61 72 74 5f 72 63 6f ┆dress(art_1),w1:=address(art_rco┆
0x59ac0…59ae0 64 65 29 2c 77 32 3a 3d 62 2e 65 76 65 6e 74 29 3b 0a 20 20 20 20 20 20 20 20 63 6f 6e 74 5f 64 ┆de),w2:=b.event); cont_d┆
0x59ae0…59afc 61 74 61 28 77 31 3a 3d 31 29 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3d 30 20 ┆ata(w1:=1); if w0=0 ┆
0x59afc…59b02 (0x324,0xb37)
0x59b02…59b20 74 68 65 6e 20 21 20 64 61 74 61 20 63 6f 70 69 65 64 20 74 6f 20 73 65 6e 64 65 72 20 21 ┆then ! data copied to sender !┆
0x59b20…59b40 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 61 72 74 5f 72 63 6f 64 65 3d 30 20 74 68 65 6e ┆ if w0:=art_rcode=0 then┆
0x59b40…59b60 20 21 20 6f 70 65 72 61 74 69 6f 6e 20 61 63 63 65 70 74 65 64 20 21 0a 20 20 20 20 20 20 20 20 ┆ ! operation accepted ! ┆
0x59b60…59b7a 70 75 74 74 72 61 6e 73 70 6f 72 74 28 2e 77 33 2e 2c 77 31 3a 3d 28 77 31 29 ┆puttransport(.w3.,w1:=(w1)┆
0x59b7a…59b80 (0x324,0xb38)
0x59b80…59ba0 2e 72 74 5f 6e 6f 29 3b 0a 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3c 3e 77 30 20 74 68 65 6e ┆.rt_no); if w0<>w0 then┆
0x59ba0…59bc0 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 21 20 6f 70 65 72 61 74 69 6f 6e 20 6e 6f 74 20 61 ┆ begin ! operation not a┆
0x59bc0…59be0 63 63 65 70 74 65 64 20 21 0a 72 72 74 5f 73 79 6e 74 61 78 20 20 20 3a 20 77 30 3a 3d 20 31 3b ┆ccepted ! rrt_syntax : w0:= 1;┆
0x59be0…59c00 20 67 6f 74 6f 20 72 72 74 3b 0a 72 72 74 5f 75 6e 6b 6e 6f 77 6e 20 20 00 00 00 00 00 00 00 00 ┆ goto rrt; rrt_unknown ┆
0x59c00…59c06 (718,) (0x324,0xb39)
0x59c06…59c20 3a 20 77 30 3a 3d 20 32 3b 20 67 6f 74 6f 20 72 72 74 3b 0a 20 20 20 20 20 20 ┆: w0:= 2; goto rrt; ┆
0x59c20…59c40 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 65 6e 64 20 21 20 72 65 6c 65 61 73 65 20 64 65 73 63 72 ┆ end; end ! release descr┆
0x59c40…59c60 69 70 74 69 6f 6e 20 21 0a 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 69 66 20 77 30 3d ┆iption ! else if w0=┆
0x59c60…59c7e 34 27 32 32 30 30 30 30 30 30 20 74 68 65 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 20 21 20 ┆4'22000000 then begin ! ┆
0x59c7e…59c84 (0x324,0xb3a)
0x59c84…59ca0 6b 69 6c 6c 20 21 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 62 79 74 65 73 6d ┆kill ! if w0:=bytesm┆
0x59ca0…59cc0 6f 76 65 64 3c 3e 21 6c 65 6e 67 74 68 28 6b 69 6c 6c 5f 74 72 61 6e 73 70 6f 72 74 29 20 74 68 ┆oved<>!length(kill_transport) th┆
0x59cc0…59ce0 65 6e 0a 20 20 20 20 20 20 20 20 67 6f 74 6f 20 75 6e 69 6e 74 3b 20 21 20 6c 65 6e 67 74 68 20 ┆en goto unint; ! length ┆
0x59ce0…59cfc 6f 66 20 64 61 74 61 20 69 6c 6c 65 67 61 6c 20 21 0a 20 20 20 20 20 20 20 20 63 6f ┆of data illegal ! co┆
0x59cfc…59d02 (0x324,0xb3b)
0x59d02…59d20 6e 74 5f 64 61 74 61 28 77 31 3a 3d 31 29 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3a ┆nt_data(w1:=1); if w0:┆
0x59d20…59d40 3d 28 77 31 29 2e 6b 74 68 5f 6e 6f 3c 3e 34 27 33 30 31 30 30 30 31 20 74 68 65 6e 20 67 6f 74 ┆=(w1).kth_no<>4'3010001 then got┆
0x59d40…59d60 6f 20 72 6b 74 5f 73 79 6e 74 61 78 3b 0a 20 20 20 20 20 20 20 20 6c 6f 6f 6b 74 72 61 6e 73 70 ┆o rkt_syntax; looktransp┆
0x59d60…59d7a 6f 72 74 28 2e 77 33 2e 2c 77 31 3a 3d 28 77 31 29 2e 6b 74 5f 6e 6f 2c 77 32 ┆ort(.w3.,w1:=(w1).kt_no,w2┆
0x59d7a…59d80 (0x324,0xb3c)
0x59d80…59da0 29 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 32 3c 3d 30 20 74 68 65 6e 20 67 6f 74 6f 20 72 6b ┆); if w2<=0 then goto rk┆
0x59da0…59dc0 74 5f 75 6e 6b 6e 6f 77 6e 3b 0a 20 20 20 20 20 20 20 20 74 72 61 6e 73 72 65 66 3a 3d 20 77 32 ┆t_unknown; transref:= w2┆
0x59dc0…59de0 3b 0a 20 20 20 20 20 20 20 20 74 72 61 6e 73 6e 6f 3a 3d 20 77 31 3b 0a 0a 0a 20 20 20 20 20 20 ┆; transno:= w1; ┆
0x59de0…59e00 20 20 77 30 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3c 00 00 00 00 00 00 00 00 ┆ w0:= 0; if w0< ┆
0x59e00…59e06 (719,) (0x324,0xb3d)
0x59e06…59e20 3e 77 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 21 20 6f ┆>w0 then begin ! o┆
0x59e20…59e40 70 65 72 61 74 69 6f 6e 20 6e 6f 74 20 61 63 63 65 70 74 65 64 20 21 0a 72 6b 74 5f 73 79 6e 74 ┆peration not accepted ! rkt_synt┆
0x59e40…59e60 61 78 20 20 20 3a 20 77 30 3a 3d 20 31 3b 20 67 6f 74 6f 20 72 6b 74 3b 0a 72 6b 74 5f 75 6e 6b ┆ax : w0:= 1; goto rkt; rkt_unk┆
0x59e60…59e7e 6e 6f 77 6e 20 20 3a 20 77 30 3a 3d 20 32 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 0a ┆nown : w0:= 2; end; ┆
0x59e7e…59e84 (0x324,0xb3e)
0x59e84…59ea0 72 6b 74 3a 20 20 20 20 21 20 72 65 70 6c 79 20 6b 69 6c 6c 20 74 72 61 6e 73 70 6f ┆rkt: ! reply kill transpo┆
0x59ea0…59ec0 72 74 20 21 0a 20 20 20 20 20 20 20 20 61 6b 74 5f 72 63 6f 64 65 3a 3d 20 77 30 3b 0a 20 20 20 ┆rt ! akt_rcode:= w0; ┆
0x59ec0…59ee0 20 20 20 20 20 63 6f 70 79 61 6e 73 77 65 72 28 2e 77 33 2e 2c 77 30 3a 3d 61 64 64 72 65 73 73 ┆ copyanswer(.w3.,w0:=address┆
0x59ee0…59efc 28 61 6b 74 5f 31 29 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 61 6b 74 5f 72 63 6f 64 ┆(akt_1),w1:=address(akt_rcod┆
0x59efc…59f02 (0x324,0xb3f)
0x59f02…59f20 65 29 2c 77 32 3a 3d 62 2e 65 76 65 6e 74 29 3b 0a 0a 20 20 20 20 20 20 20 20 69 66 20 77 ┆e),w2:=b.event); if w┆
0x59f20…59f40 30 20 6f 72 20 61 6b 74 5f 72 63 6f 64 65 3d 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 62 65 ┆0 or akt_rcode=0 then be┆
0x59f40…59f60 67 69 6e 20 21 20 64 61 74 61 20 63 6f 70 69 65 64 20 74 6f 20 73 65 6e 64 65 72 20 61 6e 64 20 ┆gin ! data copied to sender and ┆
0x59f60…59f7a 6f 70 65 72 61 74 69 6f 6e 20 61 63 63 65 70 74 65 64 20 21 0a 20 20 20 20 20 ┆operation accepted ! ┆
0x59f7a…59f80 (0x324,0xb40)
0x59f80…59fa0 20 20 20 20 20 77 32 3a 3d 20 74 72 61 6e 73 72 65 66 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 ┆ w2:= transref; if┆
0x59fa0…59fc0 20 77 30 3a 3d 28 77 32 29 2e 74 72 5f 73 74 61 74 65 3d 30 20 74 68 65 6e 0a 20 20 20 20 20 20 ┆ w0:=(w2).tr_state=0 then ┆
0x59fc0…59fe0 20 20 20 20 62 65 67 69 6e 20 21 20 6e 6f 74 20 66 69 6e 69 73 68 65 64 20 21 0a 20 20 20 20 20 ┆ begin ! not finished ! ┆
0x59fe0…5a000 20 20 20 20 20 20 20 77 31 3a 3d 20 28 77 32 29 2e 74 72 5f 63 6f 72 6f 00 00 00 00 00 00 00 00 ┆ w1:= (w2).tr_coro ┆
0x5a000…5a006 (720,) (0x324,0xb41)
0x5a006…5a020 75 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 31 29 ┆u; if w0:=(w1)┆
0x5a020…5a040 2e 74 63 5f 74 72 61 6e 73 6e 6f 3c 3e 74 72 61 6e 73 6e 6f 20 74 68 65 6e 0a 20 20 20 20 20 20 ┆.tc_transno<>transno then ┆
0x5a040…5a060 20 20 20 20 20 20 62 65 67 69 6e 20 21 20 77 61 69 74 69 6e 67 20 21 0a 20 20 20 20 20 20 20 20 ┆ begin ! waiting ! ┆
0x5a060…5a07e 20 20 20 20 20 20 77 31 3a 3d 20 61 64 64 72 65 73 73 28 28 77 31 29 2e 74 63 5f 6e 65 78 ┆ w1:= address((w1).tc_nex┆
0x5a07e…5a084 (0x324,0xb42)
0x5a084…5a0a0 74 74 72 29 3b 0a 72 65 70 6b 69 6c 6c 3a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ttr); repkill: ┆
0x5a0a0…5a0c0 20 77 31 3a 3d 20 28 77 31 29 2e 74 71 5f 6e 65 78 74 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ w1:= (w1).tq_next; ┆
0x5a0c0…5a0e0 20 20 69 66 20 77 30 3a 3d 28 77 31 29 2e 74 71 5f 74 72 61 6e 73 6e 6f 3c 3e 74 72 61 6e 73 6e ┆ if w0:=(w1).tq_transno<>transn┆
0x5a0e0…5a0fc 6f 20 74 68 65 6e 20 67 6f 74 6f 20 72 65 70 6b 69 6c 6c 3b 0a 20 20 20 20 20 20 20 ┆o then goto repkill; ┆
0x5a0fc…5a102 (0x324,0xb43)
0x5a102…5a120 20 20 20 20 20 20 20 6c 69 6e 6b 28 2e 77 33 2e 2c 77 31 2c 77 32 3a 3d 61 64 64 72 65 73 ┆ link(.w3.,w1,w2:=addres┆
0x5a120…5a140 73 28 62 2e 74 71 66 72 65 65 66 73 74 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 ┆s(b.tqfreefst)); w┆
0x5a140…5a160 32 3a 3d 20 74 72 61 6e 73 72 65 66 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 ┆2:= transref; if w┆
0x5a160…5a17a 30 3a 3d 28 77 32 29 2e 74 72 5f 72 65 6d 6f 76 65 74 69 6d 65 3d 38 27 33 37 ┆0:=(w2).tr_removetime=8'37┆
0x5a17a…5a180 (0x324,0xb44)
0x5a180…5a1a0 37 37 37 37 37 36 20 21 20 72 65 6c 65 61 73 65 64 20 21 20 74 68 65 6e 20 77 30 3a 3d 20 30 0a ┆777776 ! released ! then w0:= 0 ┆
0x5a1a0…5a1c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ else ┆
0x5a1c0…5a1e0 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 20 31 30 38 3b ┆ begin w1:= 108;┆
0x5a1e0…5a200 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 31 3a 3d 20 28 77 00 00 00 00 00 00 00 00 ┆ f1:= (w ┆
0x5a200…5a206 (721,) (0x324,0xb45)
0x5a206…5a220 31 29 2e 64 6f 75 62 6c 65 2b 62 2e 74 72 73 61 76 65 70 65 72 69 6f 64 20 6c ┆1).double+b.trsaveperiod l┆
0x5a220…5a240 73 68 69 66 74 20 2d 32 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 ┆shift -20; end; ┆
0x5a240…5a260 20 20 20 20 20 20 20 20 20 20 20 20 28 77 32 29 2e 74 72 5f 72 65 6d 6f 76 65 74 69 6d 65 3a 3d ┆ (w2).tr_removetime:=┆
0x5a260…5a27e 20 77 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 32 29 2e 74 72 5f 73 74 61 ┆ w1; (w2).tr_sta┆
0x5a27e…5a284 (0x324,0xb46)
0x5a284…5a2a0 74 65 3a 3d 20 77 30 3a 3d 20 38 3b 20 21 20 6b 69 6c 6c 65 64 20 62 79 20 61 70 70 ┆te:= w0:= 8; ! killed by app┆
0x5a2a0…5a2c0 6c 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 20 28 77 32 29 2e 74 72 5f 77 ┆l ! w0:= (w2).tr_w┆
0x5a2c0…5a2e0 61 69 74 6d 65 73 73 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 20 30 3b 20 28 ┆aitmess; w1:= 0; (┆
0x5a2e0…5a2fc 77 32 29 2e 74 72 5f 77 61 69 74 6d 65 73 73 3a 3d 20 77 31 3b 0a 20 20 20 20 20 20 ┆w2).tr_waitmess:= w1; ┆
0x5a2fc…5a302 (0x324,0xb47)
0x5a302…5a320 20 20 20 20 20 20 20 20 70 75 74 74 72 61 6e 73 70 6f 72 74 28 2e 77 33 2e 2c 77 31 3a 3d ┆ puttransport(.w3.,w1:=┆
0x5a320…5a340 74 72 61 6e 73 6e 6f 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3e 30 20 ┆transno); if w0>0 ┆
0x5a340…5a360 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 ┆then begin ┆
0x5a360…5a37a 20 20 20 20 20 20 20 20 20 62 2e 65 76 65 6e 74 3a 3d 20 77 30 3b 20 21 20 76 ┆ b.event:= w0; ! v┆
0x5a37a…5a380 (0x324,0xb48)
0x5a380…5a3a0 65 72 79 20 64 69 72 74 79 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 67 74 5f ┆ery dirty ! agt_┆
0x5a3a0…5a3c0 31 3a 3d 20 77 30 3a 3d 20 37 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f ┆1:= w0:= 7; goto┆
0x5a3c0…5a3e0 20 74 72 5f 66 69 6e 69 73 68 65 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b ┆ tr_finished; end;┆
0x5a3e0…5a400 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 0a 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ end ┆
0x5a400…5a406 (722,) (0x324,0xb49)
0x5a406…5a420 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 ┆ else begi┆
0x5a420…5a440 6e 20 21 20 73 65 74 20 63 6f 72 6f 75 74 69 6e 65 20 66 6c 61 67 20 21 0a 20 20 20 20 20 20 20 ┆n ! set coroutine flag ! ┆
0x5a440…5a460 20 20 20 20 20 20 20 28 77 31 29 2e 74 63 5f 61 69 6e 74 65 72 76 65 6e 74 3a 3d 20 77 30 3a 3d ┆ (w1).tc_aintervent:= w0:=┆
0x5a460…5a47e 20 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 ┆ 1; end; ┆
0x5a47e…5a484 (0x324,0xb4a)
0x5a484…5a4a0 20 65 6e 64 3b 20 21 20 6e 6f 74 20 66 69 6e 69 73 68 65 64 20 21 0a 20 20 20 20 20 ┆ end; ! not finished ! ┆
0x5a4a0…5a4c0 20 20 20 65 6e 64 3b 20 21 20 64 61 74 61 20 63 6f 70 69 65 64 20 74 6f 20 73 65 6e 64 65 72 20 ┆ end; ! data copied to sender ┆
0x5a4c0…5a4e0 21 0a 20 20 20 20 20 20 65 6e 64 20 21 20 6b 69 6c 6c 20 21 0a 20 20 20 20 20 20 65 6c 73 65 0a ┆! end ! kill ! else ┆
0x5a4e0…5a4fc 0a 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 72 65 6a 65 63 74 3a 0a 20 20 20 20 20 20 ┆ begin reject: ┆
0x5a4fc…5a502 (0x324,0xb4b)
0x5a502…5a520 20 20 77 30 3a 3d 20 32 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3c 3e 77 30 20 74 68 ┆ w0:= 2; if w0<>w0 th┆
0x5a520…5a540 65 6e 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 75 6e 69 6e 74 3a 0a 20 20 20 20 20 20 20 20 ┆en begin unint: ┆
0x5a540…5a560 20 20 77 30 3a 3d 20 33 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 62 ┆ w0:= 3; end; b┆
0x5a560…5a57a 2e 61 6e 73 5f 73 74 61 74 75 73 3a 3d 20 77 31 3a 3d 20 30 3b 0a 20 20 20 20 ┆.ans_status:= w1:= 0; ┆
0x5a57a…5a580 (0x324,0xb4c)
0x5a580…5a5a0 20 20 20 20 69 66 20 77 31 3c 3e 77 31 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e ┆ if w1<>w1 then begin┆
0x5a5a0…5a5c0 0a 73 74 6f 70 70 65 64 3a 0a 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 20 31 3b 0a 20 20 20 20 ┆ stopped: w0:= 1; ┆
0x5a5c0…5a5e0 20 20 20 20 20 20 62 2e 61 6e 73 5f 73 74 61 74 75 73 3a 3d 20 77 31 3a 3d 20 38 27 34 30 30 3b ┆ b.ans_status:= w1:= 8'400;┆
0x5a5e0…5a600 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 0a 20 20 20 20 20 20 20 20 62 00 00 00 00 00 00 00 00 ┆ end; b ┆
0x5a600…5a606 (723,) (0x324,0xb4d)
0x5a606…5a620 2e 61 6e 73 5f 62 79 74 65 73 3a 3d 20 77 31 3a 3d 20 30 3b 0a 20 20 20 20 20 ┆.ans_bytes:= w1:= 0; ┆
0x5a620…5a640 20 20 20 62 2e 61 6e 73 5f 63 68 61 72 73 3a 3d 20 77 31 3b 0a 20 20 20 20 20 20 20 20 77 31 3a ┆ b.ans_chars:= w1; w1:┆
0x5a640…5a660 3d 20 61 64 64 72 65 73 73 28 62 2e 61 6e 73 5f 73 74 61 74 75 73 29 3b 0a 20 20 20 20 20 20 20 ┆= address(b.ans_status); ┆
0x5a660…5a67e 20 77 32 3a 3d 62 2e 65 76 65 6e 74 3b 0a 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 ┆ w2:=b.event; monitor(┆
0x5a67e…5a684 (0x324,0xb4e)
0x5a684…5a6a0 32 32 29 3b 20 21 20 73 65 6e 64 20 61 6e 73 77 65 72 20 21 0a 20 20 20 20 20 20 20 ┆22); ! send answer ! ┆
0x5a6a0…5a6c0 20 74 65 73 74 6f 75 74 28 2e 77 33 2e 2c 77 30 3a 3d 32 2c 77 31 2c 77 32 3a 3d 36 31 29 3b 0a ┆ testout(.w3.,w0:=2,w1,w2:=61); ┆
0x5a6c0…5a6e0 20 20 20 20 20 20 65 6e 64 3b 0a 0a 20 20 20 20 20 20 77 30 3a 3d 20 30 3b 0a 20 20 20 20 20 20 ┆ end; w0:= 0; ┆
0x5a6e0…5a6fc 28 77 33 29 2e 63 5f 6d 62 75 66 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 67 6f 74 6f ┆(w3).c_mbuf:= w0; goto┆
0x5a6fc…5a702 (0x324,0xb4f)
0x5a702…5a720 20 77 61 69 74 5f 6d 3b 0a 20 20 20 20 65 6e 64 3b 0a 20 20 65 6e 64 3b 20 21 20 61 70 70 ┆ wait_m; end; end; ! app┆
0x5a720…5a740 6c 5f 69 6e 74 65 72 66 61 63 65 20 21 0a 0a 20 20 62 6f 64 79 20 6f 66 20 63 72 65 61 74 65 5f ┆l_interface ! body of create_┆
0x5a740…5a760 66 70 72 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 69 6e 63 6f 64 65 0a 20 20 20 20 20 20 72 65 66 ┆fpr begin incode ref┆
0x5a760…5a77a 20 20 72 65 74 75 72 6e 2c 66 70 72 5f 72 65 66 2c 74 61 62 6c 65 5f 72 65 66 ┆ return,fpr_ref,table_ref┆
0x5a77a…5a780 (0x324,0xb50)
0x5a780…5a7a0 2c 68 65 6c 70 3b 0a 20 20 20 20 20 20 77 6f 72 64 20 6c 63 75 64 65 76 2c 20 72 65 73 75 6c 74 ┆,help; word lcudev, result┆
0x5a7a0…5a7c0 2c 73 61 76 65 77 32 3b 0a 20 20 20 20 62 65 67 69 6e 0a 0a 20 20 20 20 20 20 72 65 74 75 72 6e ┆,savew2; begin return┆
0x5a7c0…5a7e0 20 3a 3d 20 77 33 3b 0a 20 20 20 20 20 20 66 70 72 5f 72 65 66 3a 3d 20 77 31 3b 0a 20 20 20 20 ┆ := w3; fpr_ref:= w1; ┆
0x5a7e0…5a800 20 20 73 61 76 65 77 32 20 3a 3d 20 77 32 3b 0a 20 20 20 20 20 20 77 30 00 00 00 00 00 00 00 00 ┆ savew2 := w2; w0 ┆
0x5a800…5a806 (724,) (0x324,0xb51)
0x5a806…5a820 3a 3d 20 2d 20 31 3b 74 61 62 6c 65 5f 72 65 66 20 3a 3d 20 77 30 3b 0a 0a 20 ┆:= - 1;table_ref := w0; ┆
0x5a820…5a840 20 20 20 20 20 77 31 20 3a 3d 20 72 65 74 75 72 6e 2e 63 66 70 72 5f 6f 75 74 64 65 76 69 63 65 ┆ w1 := return.cfpr_outdevice┆
0x5a840…5a860 3b 0a 20 20 20 20 20 20 77 32 3a 3d 20 62 2e 67 61 63 5f 74 61 62 6c 65 3b 0a 20 20 20 20 20 20 ┆; w2:= b.gac_table; ┆
0x5a860…5a87e 77 68 69 6c 65 20 77 30 3a 3d 74 61 62 6c 65 5f 72 65 66 3c 30 20 64 6f 0a 20 20 20 20 20 ┆while w0:=table_ref<0 do ┆
0x5a87e…5a884 (0x324,0xb52)
0x5a884…5a8a0 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 66 69 6e 64 20 73 74 61 74 75 73 20 63 ┆ begin comment find status c┆
0x5a8a0…5a8c0 6f 72 6f 75 74 69 6e 65 20 63 6f 72 65 73 70 6f 6e 64 69 6e 67 0a 20 20 20 20 20 20 20 20 20 20 ┆oroutine coresponding ┆
0x5a8c0…5a8e0 20 20 74 6f 20 61 63 74 75 61 6c 20 74 72 61 6e 73 70 6f 72 74 20 61 6e 64 20 69 6e 63 72 65 61 ┆ to actual transport and increa┆
0x5a8e0…5a8fc 73 65 20 63 6f 75 6e 74 20 62 79 20 6f 6e 65 2c 0a 20 20 20 20 20 20 20 20 20 20 20 ┆se count by one, ┆
0x5a8fc…5a902 (0x324,0xb53)
0x5a902…5a920 20 6f 72 20 63 72 65 61 74 65 20 61 20 6e 65 77 20 73 74 61 74 75 73 20 68 61 6e 64 6c 69 ┆ or create a new status handli┆
0x5a920…5a940 6e 67 20 63 6f 72 6f 75 74 69 6e 65 3b 0a 20 20 20 20 20 20 20 20 68 65 6c 70 3a 3d 20 77 32 3b ┆ng coroutine; help:= w2;┆
0x5a940…5a960 0a 20 20 20 20 20 20 20 20 63 6f 6d 70 61 72 65 20 28 2e 77 33 2e 2c 77 30 3a 3d 38 2c 77 31 2c ┆ compare (.w3.,w0:=8,w1,┆
0x5a960…5a97a 77 32 3a 3d 61 64 64 72 65 73 73 28 28 77 32 29 2e 66 70 72 5f 67 61 63 6f 75 ┆w2:=address((w2).fpr_gacou┆
0x5a97a…5a980 (0x324,0xb54)
0x5a980…5a9a0 74 29 29 3b 0a 20 20 20 20 20 20 20 20 77 32 3a 3d 20 68 65 6c 70 3b 0a 20 20 20 20 20 20 20 20 ┆t)); w2:= help; ┆
0x5a9a0…5a9c0 69 66 20 77 30 3d 30 20 74 68 65 6e 20 77 30 3a 3d 20 28 77 32 29 2e 66 70 72 5f 68 6f 73 74 69 ┆if w0=0 then w0:= (w2).fpr_hosti┆
0x5a9c0…5a9e0 64 2d 72 65 74 75 72 6e 2e 63 66 70 72 5f 68 69 64 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 ┆d-return.cfpr_hid; if w0┆
0x5a9e0…5aa00 3c 3e 30 20 74 68 65 6e 20 77 32 2b 21 6c 65 6e 67 74 68 28 66 70 72 69 00 00 00 00 00 00 00 00 ┆<>0 then w2+!length(fpri ┆
0x5aa00…5aa06 (725,) (0x324,0xb55)
0x5aa06…5aa20 6e 63 6f 72 6f 75 74 69 6e 65 29 20 65 6c 73 65 20 74 61 62 6c 65 5f 72 65 66 ┆ncoroutine) else table_ref┆
0x5aa20…5aa40 3a 3d 77 32 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 32 3e 3d 62 2e 67 61 63 5f 74 6f 70 20 74 ┆:=w2; if w2>=b.gac_top t┆
0x5aa40…5aa60 68 65 6e 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 6e 6f 20 73 74 61 ┆hen begin comment no sta┆
0x5aa60…5aa7e 74 75 73 20 63 6f 72 6f 75 74 69 6e 65 20 6d 61 74 63 68 65 73 20 63 75 72 72 65 6e 74 20 ┆tus coroutine matches current ┆
0x5aa7e…5aa84 (0x324,0xb56)
0x5aa84…5aaa0 74 72 61 6e 73 70 6f 72 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 72 65 61 ┆transport crea┆
0x5aaa0…5aac0 74 65 20 73 74 61 74 75 73 2d 20 63 6f 72 6f 75 74 69 6e 65 20 61 6e 64 20 70 6f 73 73 69 62 6c ┆te status- coroutine and possibl┆
0x5aac0…5aae0 79 20 6c 69 6e 6b 3b 0a 20 20 20 20 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 66 69 6e 64 20 66 ┆y link; comment find f┆
0x5aae0…5aafc 72 65 65 20 65 6e 74 72 79 3b 0a 20 20 20 20 20 20 20 20 20 20 72 65 73 75 6c 74 3a ┆ree entry; result:┆
0x5aafc…5ab02 (0x324,0xb57)
0x5ab02…5ab20 3d 20 77 30 3a 3d 20 2d 20 31 3b 0a 20 20 20 20 20 20 20 20 20 20 77 32 20 3a 3d 20 62 2e ┆= w0:= - 1; w2 := b.┆
0x5ab20…5ab40 67 61 63 5f 74 61 62 6c 65 3b 0a 20 20 20 20 20 20 20 20 20 20 77 30 20 3a 3d 20 28 77 32 29 2e ┆gac_table; w0 := (w2).┆
0x5ab40…5ab60 66 70 72 5f 63 6f 75 6e 74 3b 0a 20 20 20 20 20 20 20 20 20 20 77 68 69 6c 65 20 77 30 3e 30 20 ┆fpr_count; while w0>0 ┆
0x5ab60…5ab7a 64 6f 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 ┆do begin comment┆
0x5ab7a…5ab80 (0x324,0xb58)
0x5ab80…5aba0 20 66 69 6e 64 20 66 72 65 65 20 65 6e 74 72 79 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 32 ┆ find free entry; w2┆
0x5aba0…5abc0 2b 21 6c 65 6e 67 74 68 28 66 70 72 69 6e 63 6f 72 6f 75 74 69 6e 65 29 3b 0a 20 20 20 20 20 20 ┆+!length(fprincoroutine); ┆
0x5abc0…5abe0 20 20 20 20 20 20 77 30 3a 3d 28 77 32 29 2e 66 70 72 5f 63 6f 75 6e 74 3b 0a 20 20 20 20 20 20 ┆ w0:=(w2).fpr_count; ┆
0x5abe0…5ac00 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 74 61 62 6c 65 00 00 00 00 00 00 00 00 ┆ end; table ┆
0x5ac00…5ac06 (726,) (0x324,0xb59)
0x5ac06…5ac20 5f 72 65 66 3a 3d 77 32 3b 0a 20 20 20 20 20 20 20 20 20 20 6d 6f 76 65 28 2e ┆_ref:=w2; move(.┆
0x5ac20…5ac40 77 33 2e 2c 77 30 3a 3d 38 2c 77 31 3a 3d 72 65 74 75 72 6e 2e 63 66 70 72 5f 6f 75 74 64 65 76 ┆w3.,w0:=8,w1:=return.cfpr_outdev┆
0x5ac40…5ac60 69 63 65 2c 0a 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 77 ┆ice, w┆
0x5ac60…5ac7e 32 3a 3d 61 64 64 72 65 73 73 28 28 77 33 3a 3d 74 61 62 6c 65 5f 72 65 66 29 2e 66 70 72 ┆2:=address((w3:=table_ref).fpr┆
0x5ac7e…5ac84 (0x324,0xb5a)
0x5ac84…5aca0 5f 67 61 63 6f 75 74 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 6d 6f 76 65 28 2e 77 ┆_gacout)); move(.w┆
0x5aca0…5acc0 33 2e 2c 77 30 3a 3d 38 2c 77 31 3a 3d 72 65 74 75 72 6e 2e 63 66 70 72 5f 69 6e 64 65 76 69 63 ┆3.,w0:=8,w1:=return.cfpr_indevic┆
0x5acc0…5ace0 65 2c 0a 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 77 32 3a ┆e, w2:┆
0x5ace0…5acfc 3d 61 64 64 72 65 73 73 28 28 77 33 3a 3d 74 61 62 6c 65 5f 72 65 66 29 2e 66 70 72 ┆=address((w3:=table_ref).fpr┆
0x5acfc…5ad02 (0x324,0xb5b)
0x5ad02…5ad20 5f 67 61 63 69 6e 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 28 77 32 3a 3d 74 61 62 6c 65 ┆_gacin)); (w2:=table┆
0x5ad20…5ad40 5f 72 65 66 29 2e 66 70 72 5f 68 6f 73 74 69 64 20 3a 3d 20 77 30 20 3a 3d 20 72 65 74 75 72 6e ┆_ref).fpr_hostid := w0 := return┆
0x5ad40…5ad60 2e 63 66 70 72 5f 68 69 64 3b 0a 20 20 20 20 20 20 20 20 20 20 28 77 32 29 2e 66 70 72 5f 63 6f ┆.cfpr_hid; (w2).fpr_co┆
0x5ad60…5ad7a 75 6e 74 20 3a 3d 20 77 30 20 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆unt := w0 := 0; ┆
0x5ad7a…5ad80 (0x324,0xb5c)
0x5ad80…5ada0 69 66 20 77 30 3a 3d 72 65 74 75 72 6e 2e 63 66 70 72 5f 68 69 64 3d 30 20 74 68 65 6e 0a 20 20 ┆if w0:=return.cfpr_hid=0 then ┆
0x5ada0…5adc0 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 6c 6f 63 61 6c 20 64 65 76 69 ┆ begin comment local devi┆
0x5adc0…5ade0 63 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 72 65 74 75 72 6e 2e 63 66 70 72 5f ┆ce; w3:=return.cfpr_┆
0x5ade0…5ae00 6f 75 74 64 65 76 69 63 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 63 00 00 00 00 00 00 00 00 ┆outdevice; c ┆
0x5ae00…5ae06 (727,) (0x324,0xb5d)
0x5ae06…5ae20 6f 6d 6d 65 6e 74 20 6c 6f 6f 6b 75 70 20 70 72 6f 63 65 73 73 3b 0a 20 20 20 ┆omment lookup process; ┆
0x5ae20…5ae40 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 34 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ monitor(4); ┆
0x5ae40…5ae60 20 69 66 20 77 30 3c 3e 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e ┆ if w0<>0 then begin┆
0x5ae60…5ae7e 20 63 6f 6d 6d 65 6e 74 20 70 72 6f 63 65 73 73 20 66 6f 75 6e 64 3b 0a 20 20 20 20 20 20 ┆ comment process found; ┆
0x5ae7e…5ae84 (0x324,0xb5e)
0x5ae84…5aea0 20 20 20 20 20 20 20 20 77 31 3a 3d 77 30 2b 32 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆ w1:=w0+2; ┆
0x5aea0…5aec0 20 20 20 20 6d 6f 76 65 28 2e 77 33 2e 2c 77 30 3a 3d 38 2c 77 31 2c 77 32 3a 3d 61 64 64 72 65 ┆ move(.w3.,w0:=8,w1,w2:=addre┆
0x5aec0…5aee0 73 73 28 28 77 33 3a 3d 74 61 62 6c 65 5f 72 65 66 29 2e 66 70 72 5f 70 72 6f 63 6f 75 74 29 29 ┆ss((w3:=table_ref).fpr_procout))┆
0x5aee0…5aefc 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 33 20 3a 3d 20 61 64 64 72 65 73 ┆; w3 := addres┆
0x5aefc…5af02 (0x324,0xb5f)
0x5af02…5af20 73 28 28 77 32 3a 3d 74 61 62 6c 65 5f 72 65 66 29 2e 66 70 72 5f 70 72 6f 63 6f 75 74 29 ┆s((w2:=table_ref).fpr_procout)┆
0x5af20…5af40 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 72 65 73 65 72 76 65 20 ┆; comment reserve ┆
0x5af40…5af60 64 65 76 69 63 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 38 29 ┆device; monitor(8)┆
0x5af60…5af7a 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3d 30 20 74 68 ┆; if w0=0 th┆
0x5af7a…5af80 (0x324,0xb60)
0x5af80…5afa0 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 ┆en begin ┆
0x5afa0…5afc0 20 20 20 20 20 20 20 77 33 3a 3d 72 65 74 75 72 6e 2e 63 66 70 72 5f 69 6e 64 65 76 69 63 65 3b ┆ w3:=return.cfpr_indevice;┆
0x5afc0…5afe0 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 6c 6f 6f 6b 75 70 20 ┆ comment lookup ┆
0x5afe0…5b000 70 72 6f 63 65 73 73 20 28 67 61 63 69 6e 29 3b 0a 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆process (gacin); ┆
0x5b000…5b006 (728,) (0x324,0xb61)
0x5b006…5b020 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 34 29 3b 0a 20 20 20 20 20 ┆ monitor(4); ┆
0x5b020…5b040 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 20 3c 3e 20 30 20 74 68 65 6e 0a 20 20 20 20 20 ┆ if w0 <> 0 then ┆
0x5b040…5b060 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ begin ┆
0x5b060…5b07e 20 20 20 77 31 3a 3d 77 30 2b 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ w1:=w0+2; ┆
0x5b07e…5b084 (0x324,0xb62)
0x5b084…5b0a0 20 6d 6f 76 65 28 2e 77 33 2e 2c 77 30 3a 3d 38 2c 77 31 2c 77 32 3a 3d 61 64 64 72 ┆ move(.w3.,w0:=8,w1,w2:=addr┆
0x5b0a0…5b0c0 65 73 73 28 28 77 33 3a 3d 74 61 62 6c 65 5f 72 65 66 29 2e 66 70 72 5f 70 72 6f 63 69 6e 29 29 ┆ess((w3:=table_ref).fpr_procin))┆
0x5b0c0…5b0e0 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 33 20 3a 3d 20 61 64 64 72 65 73 ┆; w3 := addres┆
0x5b0e0…5b0fc 73 28 28 77 32 3a 3d 74 61 62 6c 65 5f 72 65 66 29 2e 66 70 72 5f 70 72 6f 63 69 6e ┆s((w2:=table_ref).fpr_procin┆
0x5b0fc…5b102 (0x324,0xb63)
0x5b102…5b120 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 72 ┆); comment r┆
0x5b120…5b140 65 73 65 72 76 65 20 70 72 6f 63 65 73 73 28 67 61 63 69 6e 29 3b 0a 20 20 20 20 20 20 20 20 20 ┆eserve process(gacin); ┆
0x5b140…5b160 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 38 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ monitor(8); ┆
0x5b160…5b17a 20 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 73 65 74 20 72 65 73 75 6c 74 3b ┆ comment set result;┆
0x5b17a…5b180 (0x324,0xb64)
0x5b180…5b1a0 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65 73 75 6c 74 3a 3d 77 30 3b 0a 20 ┆ result:=w0; ┆
0x5b1a0…5b1c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ end; ┆
0x5b1c0…5b1e0 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 ┆ end; end; ┆
0x5b1e0…5b200 20 20 65 6e 64 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 00 00 00 00 00 00 00 00 ┆ end else beg ┆
0x5b200…5b206 (729,) (0x324,0xb65)
0x5b206…5b220 69 6e 20 63 6f 6d 6d 65 6e 74 20 72 65 6d 6f 74 65 20 64 65 76 69 63 65 3b 0a ┆in comment remote device; ┆
0x5b220…5b240 20 20 20 20 20 20 20 20 20 20 20 20 6c 69 6e 6b 75 70 72 65 6d 6f 74 65 28 2e 77 33 2e 2c 77 30 ┆ linkupremote(.w3.,w0┆
0x5b240…5b260 3a 3d 31 34 2c 77 30 3a 3d 72 65 74 75 72 6e 2e 63 66 70 72 5f 68 6e 6f 2c 77 30 3a 3d 72 65 74 ┆:=14,w0:=return.cfpr_hno,w0:=ret┆
0x5b260…5b27e 75 72 6e 2e 63 66 70 72 5f 68 69 64 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆urn.cfpr_hid, ┆
0x5b27e…5b284 (0x324,0xb66)
0x5b284…5b2a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 72 65 74 75 72 6e 2e 63 66 70 ┆ w0:=return.cfp┆
0x5b2a0…5b2c0 72 5f 6f 75 74 64 65 76 69 63 65 2c 77 30 2c 77 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆r_outdevice,w0,w2); ┆
0x5b2c0…5b2e0 69 66 20 77 30 3d 34 30 39 36 20 74 68 65 6e 20 77 30 3a 3d 34 31 30 33 3b 0a 20 20 20 20 20 20 ┆if w0=4096 then w0:=4103; ┆
0x5b2e0…5b2fc 20 20 20 20 20 20 69 66 20 77 30 3d 34 31 30 33 20 74 68 65 6e 0a 20 20 20 20 20 20 ┆ if w0=4103 then ┆
0x5b2fc…5b302 (0x324,0xb67)
0x5b302…5b320 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 6c 69 6e 6b 20 63 72 65 61 74 ┆ begin comment link creat┆
0x5b320…5b340 65 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f 76 65 28 2e 77 33 2e 2c 77 30 3a 3d ┆ed; move(.w3.,w0:=┆
0x5b340…5b360 38 2c 77 31 3a 3d 77 32 2b 32 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 28 77 33 3a 3d 74 61 62 6c ┆8,w1:=w2+2,w2:=address((w3:=tabl┆
0x5b360…5b37a 65 5f 72 65 66 29 2e 66 70 72 5f 70 72 6f 63 6f 75 74 29 29 3b 0a 20 20 20 20 ┆e_ref).fpr_procout)); ┆
0x5b37a…5b380 (0x324,0xb68)
0x5b380…5b3a0 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 61 64 64 72 65 73 73 28 28 77 32 3a 3d 74 61 62 6c 65 ┆ w3:=address((w2:=table┆
0x5b3a0…5b3c0 5f 72 65 66 29 2e 66 70 72 5f 70 72 6f 63 6f 75 74 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆_ref).fpr_procout); ┆
0x5b3c0…5b3e0 20 20 6d 6f 6e 69 74 6f 72 28 38 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 ┆ monitor(8); if w┆
0x5b3e0…5b400 30 3d 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 00 00 00 00 00 00 00 00 ┆0=0 then b ┆
0x5b400…5b406 (730,) (0x324,0xb69)
0x5b406…5b420 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 74 68 65 6e 20 69 6e 20 64 65 76 69 63 ┆egin comment then in devic┆
0x5b420…5b440 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 69 6e 6b 75 70 72 65 6d 6f 74 65 28 ┆e; linkupremote(┆
0x5b440…5b460 2e 77 33 2e 2c 77 30 3a 3d 31 30 2c 77 30 3a 3d 72 65 74 75 72 6e 2e 63 66 70 72 5f 68 6e 6f 2c ┆.w3.,w0:=10,w0:=return.cfpr_hno,┆
0x5b460…5b47e 77 30 3a 3d 72 65 74 75 72 6e 2e 63 66 70 72 5f 68 69 64 2c 0a 20 20 20 20 20 20 20 20 20 ┆w0:=return.cfpr_hid, ┆
0x5b47e…5b484 (0x324,0xb6a)
0x5b484…5b4a0 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 77 30 3a ┆ w0:┆
0x5b4a0…5b4c0 3d 72 65 74 75 72 6e 2e 63 66 70 72 5f 69 6e 64 65 76 69 63 65 2c 77 30 2c 77 32 29 3b 0a 20 20 ┆=return.cfpr_indevice,w0,w2); ┆
0x5b4c0…5b4e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3d 34 30 39 36 20 74 68 65 6e 20 77 30 ┆ if w0=4096 then w0┆
0x5b4e0…5b4fc 3a 3d 34 31 30 33 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 ┆:=4103; if w┆
0x5b4fc…5b502 (0x324,0xb6b)
0x5b502…5b520 30 3d 34 31 30 33 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 ┆0=4103 then be┆
0x5b520…5b540 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 72 65 73 65 72 76 65 20 69 6e 64 65 76 69 63 65 3b 0a 20 20 ┆gin comment reserve indevice; ┆
0x5b540…5b560 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f 76 65 28 2e 77 33 2e 2c 77 30 3a 3d 38 2c ┆ move(.w3.,w0:=8,┆
0x5b560…5b57a 77 31 3a 3d 77 32 2b 32 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 28 77 33 3a 3d ┆w1:=w2+2,w2:=address((w3:=┆
0x5b57a…5b580 (0x324,0xb6c)
0x5b580…5b5a0 74 61 62 6c 65 5f 72 65 66 29 2e 66 70 72 5f 70 72 6f 63 69 6e 29 29 3b 0a 20 20 20 20 20 20 20 ┆table_ref).fpr_procin)); ┆
0x5b5a0…5b5c0 20 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 61 64 64 72 65 73 73 28 28 77 32 3a 3d 74 61 62 6c ┆ w3:=address((w2:=tabl┆
0x5b5c0…5b5e0 65 5f 72 65 66 29 2e 66 70 72 5f 70 72 6f 63 69 6e 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆e_ref).fpr_procin); ┆
0x5b5e0…5b600 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 38 29 3b 0a 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ monitor(8); ┆
0x5b600…5b606 (731,) (0x324,0xb6d)
0x5b606…5b620 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 73 65 74 20 72 65 ┆ comment set re┆
0x5b620…5b640 73 75 6c 74 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65 73 75 6c 74 3a 3d ┆sult; result:=┆
0x5b640…5b660 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 ┆w0; end; ┆
0x5b660…5b67e 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 ┆ end; end; ┆
0x5b67e…5b684 (0x324,0xb6e)
0x5b684…5b6a0 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 ┆ end; if w┆
0x5b6a0…5b6c0 30 3a 3d 72 65 73 75 6c 74 3d 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e ┆0:=result=0 then begin┆
0x5b6c0…5b6e0 20 63 6f 6d 6d 65 6e 74 20 70 72 65 70 61 72 65 20 73 74 61 74 75 73 20 73 65 72 76 65 72 3b 0a ┆ comment prepare status server; ┆
0x5b6e0…5b6fc 20 20 20 20 20 20 20 20 20 20 20 20 6c 69 6e 6b 28 2e 77 33 2e 2c 77 31 3a 3d 74 61 ┆ link(.w3.,w1:=ta┆
0x5b6fc…5b702 (0x324,0xb6f)
0x5b702…5b720 62 6c 65 5f 72 65 66 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 62 2e 61 63 74 69 76 71 66 73 ┆ble_ref,w2:=address(b.activqfs┆
0x5b720…5b740 74 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 ┆t)); w0:=0; ┆
0x5b740…5b760 20 20 20 20 74 61 62 6c 65 5f 72 65 66 2e 63 5f 69 63 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 ┆ table_ref.c_ic:= w0; ┆
0x5b760…5b77a 20 20 20 20 20 74 61 62 6c 65 5f 72 65 66 2e 66 70 72 5f 77 61 69 74 3a 3d 20 ┆ table_ref.fpr_wait:= ┆
0x5b77a…5b780 (0x324,0xb70)
0x5b780…5b7a0 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 0a 20 20 20 20 20 20 20 20 65 6e 64 20 ┆w0; end; end ┆
0x5b7a0…5b7c0 65 6c 73 65 20 72 65 73 75 6c 74 3a 3d 20 77 30 3a 3d 20 30 3b 20 21 20 65 6e 64 20 63 72 65 61 ┆else result:= w0:= 0; ! end crea┆
0x5b7c0…5b7e0 74 65 20 73 74 61 74 75 73 20 63 6f 72 6f 75 74 69 6e 65 20 21 0a 20 20 20 20 20 20 65 6e 64 3b ┆te status coroutine ! end;┆
0x5b7e0…5b800 20 20 21 20 65 6e 64 20 73 74 61 74 75 73 20 63 6f 72 6f 75 74 69 6e 65 00 00 00 00 00 00 00 00 ┆ ! end status coroutine ┆
0x5b800…5b806 (732,) (0x324,0xb71)
0x5b806…5b820 20 73 65 61 72 63 68 20 21 0a 0a 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 69 ┆ search ! comment i┆
0x5b820…5b840 6e 63 72 65 61 73 65 20 67 61 63 2d 61 63 63 65 73 73 20 63 6f 75 6e 74 3b 0a 0a 20 20 20 20 20 ┆ncrease gac-access count; ┆
0x5b840…5b860 20 66 70 72 5f 72 65 66 2e 66 70 72 5f 73 74 63 6f 72 6f 75 74 3a 3d 77 30 3a 3d 74 61 62 6c 65 ┆ fpr_ref.fpr_stcorout:=w0:=table┆
0x5b860…5b87e 5f 72 65 66 3b 0a 20 20 20 20 20 20 74 61 62 6c 65 5f 72 65 66 2e 66 70 72 5f 63 6f 75 6e ┆_ref; table_ref.fpr_coun┆
0x5b87e…5b884 (0x324,0xb72)
0x5b884…5b8a0 74 20 3a 3d 20 77 30 20 3a 3d 20 74 61 62 6c 65 5f 72 65 66 2e 66 70 72 5f 63 6f 75 ┆t := w0 := table_ref.fpr_cou┆
0x5b8a0…5b8c0 6e 74 20 2b 20 31 3b 0a 0a 20 20 20 20 20 20 74 65 73 74 6f 75 74 28 2e 77 33 2e 2c 77 30 3a 3d ┆nt + 1; testout(.w3.,w0:=┆
0x5b8c0…5b8e0 21 6c 65 6e 67 74 68 28 66 70 72 69 6e 63 6f 72 6f 75 74 29 2c 77 31 3a 3d 74 61 62 6c 65 5f 72 ┆!length(fprincorout),w1:=table_r┆
0x5b8e0…5b8fc 65 66 2c 77 32 3a 3d 35 33 29 3b 0a 0a 20 20 20 20 20 20 20 0a 20 20 20 20 20 20 63 ┆ef,w2:=53); c┆
0x5b8fc…5b902 (0x324,0xb73)
0x5b902…5b920 6f 6d 6d 65 6e 74 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 20 20 77 32 3a 3d 73 61 76 65 77 ┆omment return; w2:=savew┆
0x5b920…5b940 32 3b 0a 20 20 20 20 20 20 77 31 3a 3d 66 70 72 5f 72 65 66 3b 0a 20 20 20 20 20 20 77 30 20 3a ┆2; w1:=fpr_ref; w0 :┆
0x5b940…5b960 3d 20 72 65 73 75 6c 74 3b 0a 20 20 20 20 20 20 77 33 20 3a 3d 20 72 65 74 75 72 6e 3b 0a 20 20 ┆= result; w3 := return; ┆
0x5b960…5b97a 20 20 65 6e 64 3b 0a 20 20 65 6e 64 3b 20 20 21 20 65 6e 64 20 63 72 65 61 74 ┆ end; end; ! end creat┆
0x5b97a…5b980 (0x324,0xb74)
0x5b980…5b9a0 65 5f 66 70 72 20 20 21 0a 0a 0a 0a 20 20 62 6f 64 79 20 6f 66 20 65 64 69 74 6f 75 74 0a 20 20 ┆e_fpr ! body of editout ┆
0x5b9a0…5b9c0 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 74 68 69 73 20 70 72 6f 63 65 64 75 72 65 20 67 65 6e ┆begin comment this procedure gen┆
0x5b9c0…5b9e0 65 72 61 74 65 73 20 61 20 6e 61 6d 65 20 6f 6e 20 74 68 65 20 62 61 73 69 73 20 6f 66 0a 20 20 ┆erates a name on the basis of ┆
0x5b9e0…5ba00 20 20 20 20 20 20 61 20 6e 61 6d 65 20 63 6f 6e 74 61 69 6e 69 6e 67 20 00 00 00 00 00 00 00 00 ┆ a name containing ┆
0x5ba00…5ba06 (733,) (0x324,0xb75)
0x5ba06…5ba20 74 68 65 20 73 75 62 73 74 72 69 6e 67 20 22 6f 75 74 22 2e 20 69 6e 20 74 68 ┆the substring "out". in th┆
0x5ba20…5ba40 65 20 73 70 65 63 69 66 69 65 64 0a 20 20 20 20 20 20 20 20 6e 61 6d 65 20 74 68 65 20 73 75 62 ┆e specified name the sub┆
0x5ba40…5ba60 73 74 72 69 6e 67 20 22 6f 75 74 22 20 69 73 20 72 65 70 6c 61 63 65 64 20 62 79 20 74 68 65 20 ┆string "out" is replaced by the ┆
0x5ba60…5ba7e 73 75 62 73 74 72 69 6e 67 0a 20 20 20 20 20 20 20 20 28 6d 61 78 20 33 20 63 68 61 72 73 ┆substring (max 3 chars┆
0x5ba7e…5ba84 (0x324,0xb76)
0x5ba84…5baa0 29 20 63 6f 6e 74 61 69 6e 65 64 20 69 6e 20 77 30 2e 20 74 68 65 20 63 61 6c 6c 20 ┆) contained in w0. the call ┆
0x5baa0…5bac0 69 73 20 66 6f 6c 6c 6f 77 73 3a 0a 20 20 20 20 20 20 20 20 77 30 3a 63 61 6c 6c 3a 20 28 6d 61 ┆is follows: w0:call: (ma┆
0x5bac0…5bae0 78 20 33 29 20 72 65 70 6c 61 63 65 6d 65 6e 74 20 63 68 61 72 73 20 2d 20 72 65 74 75 72 6e 3a ┆x 3) replacement chars - return:┆
0x5bae0…5bafc 20 72 65 73 75 6c 74 28 30 3d 6f 6b 29 0a 20 20 20 20 20 20 20 20 77 31 3a 63 61 6c ┆ result(0=ok) w1:cal┆
0x5bafc…5bb02 (0x324,0xb77)
0x5bb02…5bb20 6c 3a 20 61 64 64 72 65 73 73 20 28 22 6f 75 74 22 2d 6e 61 6d 65 29 20 20 20 20 20 20 2d ┆l: address ("out"-name) -┆
0x5bb20…5bb40 20 72 65 74 75 72 6e 3a 20 75 6e 63 68 6e 67 64 0a 20 20 20 20 20 20 20 20 77 32 3a 63 61 6c 6c ┆ return: unchngd w2:call┆
0x5bb40…5bb60 3a 20 61 64 64 72 65 73 73 20 28 22 72 65 73 75 6c 74 22 2d 6e 61 6d 65 29 20 20 20 2d 20 72 65 ┆: address ("result"-name) - re┆
0x5bb60…5bb7a 74 75 72 6e 3a 20 75 6e 63 68 6e 67 64 0a 20 20 20 20 20 20 20 20 77 33 3a 63 ┆turn: unchngd w3:c┆
0x5bb7a…5bb80 (0x324,0xb78)
0x5bb80…5bba0 61 6c 6c 3a 20 72 65 74 75 72 6e 20 61 64 64 72 65 73 73 20 20 20 20 20 20 20 20 20 20 20 20 2d ┆all: return address -┆
0x5bba0…5bbc0 20 72 65 74 75 72 6e 3a 20 62 2e 63 75 72 72 65 6e 74 20 3b 0a 0a 20 20 20 20 69 6e 63 6f 64 65 ┆ return: b.current ; incode┆
0x5bbc0…5bbe0 0a 20 20 20 20 20 20 72 65 66 20 20 72 65 74 75 72 6e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 6f ┆ ref return, o┆
0x5bbe0…5bc00 75 74 64 65 76 2c 0a 20 20 20 20 20 20 20 20 20 20 20 72 65 73 64 65 76 00 00 00 00 00 00 00 00 ┆utdev, resdev ┆
0x5bc00…5bc06 (734,) (0x324,0xb79)
0x5bc06…5bc20 3b 0a 20 20 20 20 20 20 77 6f 72 64 20 73 74 61 74 65 3b 0a 20 20 20 20 20 20 ┆; word state; ┆
0x5bc20…5bc40 77 6f 72 64 20 63 70 74 72 3b 0a 20 20 20 20 20 20 61 72 72 61 79 20 28 31 3a 31 34 29 20 63 68 ┆word cptr; array (1:14) ch┆
0x5bc40…5bc60 61 72 20 6f 66 20 62 79 74 65 3b 0a 20 20 20 20 20 20 74 65 78 74 20 28 31 35 29 20 73 6f 75 72 ┆ar of byte; text (15) sour┆
0x5bc60…5bc7e 63 65 20 3a 3d 20 22 22 3b 0a 20 20 20 20 20 20 62 79 74 65 20 20 72 63 61 72 31 2c 72 63 ┆ce := ""; byte rcar1,rc┆
0x5bc7e…5bc84 (0x324,0xb7a)
0x5bc84…5bca0 61 72 32 2c 72 63 61 72 33 3b 0a 0a 20 20 20 20 62 65 67 69 6e 0a 0a 20 20 20 20 20 ┆ar2,rcar3; begin ┆
0x5bca0…5bcc0 20 72 65 74 75 72 6e 20 3a 3d 20 77 33 3b 0a 20 20 20 20 20 20 6f 75 74 64 65 76 20 3a 3d 20 77 ┆ return := w3; outdev := w┆
0x5bcc0…5bce0 31 3b 0a 20 20 20 20 20 20 72 65 73 64 65 76 20 3a 3d 20 77 32 3b 0a 0a 20 20 20 20 20 20 77 33 ┆1; resdev := w2; w3┆
0x5bce0…5bcfc 3a 3d 20 30 3b 20 66 30 20 6c 73 68 69 66 74 20 38 3b 20 72 63 61 72 31 3a 3d 20 77 ┆:= 0; f0 lshift 8; rcar1:= w┆
0x5bcfc…5bd02 (0x324,0xb7b)
0x5bd02…5bd20 33 3b 0a 20 20 20 20 20 20 77 33 3a 3d 20 30 3b 20 66 30 20 6c 73 68 69 66 74 20 38 3b 20 ┆3; w3:= 0; f0 lshift 8; ┆
0x5bd20…5bd40 72 63 61 72 32 3a 3d 20 77 33 3b 0a 20 20 20 20 20 20 77 33 3a 3d 20 30 3b 20 66 30 20 6c 73 68 ┆rcar2:= w3; w3:= 0; f0 lsh┆
0x5bd40…5bd60 69 66 74 20 38 3b 20 72 63 61 72 33 3a 3d 20 77 33 3b 0a 0a 20 20 20 20 20 20 77 31 3a 3d 61 64 ┆ift 8; rcar3:= w3; w1:=ad┆
0x5bd60…5bd7a 64 72 65 73 73 28 73 6f 75 72 63 65 29 3b 0a 20 20 20 20 20 20 28 77 31 29 2e ┆dress(source); (w1).┆
0x5bd7a…5bd80 (0x324,0xb7c)
0x5bd80…5bda0 77 6f 72 64 20 3a 3d 20 77 30 20 3a 3d 20 30 3b 0a 20 20 20 20 20 20 6d 6f 76 65 28 2e 77 33 2e ┆word := w0 := 0; move(.w3.┆
0x5bda0…5bdc0 2c 77 30 3a 3d 38 2c 77 31 2c 77 32 3a 3d 77 31 2b 32 29 3b 0a 20 20 20 20 20 20 6d 6f 76 65 28 ┆,w0:=8,w1,w2:=w1+2); move(┆
0x5bdc0…5bde0 2e 77 33 2e 2c 77 30 3a 3d 38 2c 77 31 2c 77 32 3a 3d 72 65 73 64 65 76 29 3b 0a 20 20 20 20 20 ┆.w3.,w0:=8,w1,w2:=resdev); ┆
0x5bde0…5be00 20 6d 6f 76 65 28 2e 77 33 2e 2c 77 30 3a 3d 38 2c 77 31 3a 3d 6f 75 74 00 00 00 00 00 00 00 00 ┆ move(.w3.,w0:=8,w1:=out ┆
0x5be00…5be06 (735,) (0x324,0xb7d)
0x5be06…5be20 64 65 76 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 73 6f 75 72 63 65 29 29 3b 0a ┆dev,w2:=address(source)); ┆
0x5be20…5be40 0a 20 20 20 20 20 20 77 30 3a 3d 20 30 3b 0a 20 20 20 20 20 20 66 6f 72 20 77 33 20 3a 3d 20 31 ┆ w0:= 0; for w3 := 1┆
0x5be40…5be60 20 73 74 65 70 20 31 20 75 70 74 6f 20 31 32 20 64 6f 0a 20 20 20 20 20 20 28 63 68 61 72 28 77 ┆ step 1 upto 12 do (char(w┆
0x5be60…5be7e 32 3a 3d 77 33 29 29 2e 62 79 74 65 3a 3d 77 30 3b 0a 0a 20 20 20 20 20 20 21 20 77 31 20 ┆2:=w3)).byte:=w0; ! w1 ┆
0x5be7e…5be84 (0x324,0xb7e)
0x5be84…5bea0 3d 20 61 64 64 72 65 73 73 28 6f 75 74 64 65 76 69 63 65 29 20 21 0a 0a 20 20 20 20 ┆= address(outdevice) ! ┆
0x5bea0…5bec0 20 20 63 70 74 72 20 3a 3d 20 77 30 3a 3d 20 31 3b 0a 20 20 20 20 20 20 73 74 61 74 65 3a 3d 20 ┆ cptr := w0:= 1; state:= ┆
0x5bec0…5bee0 77 30 3b 0a 20 20 20 20 20 20 77 68 69 6c 65 20 77 32 3a 3d 63 70 74 72 20 3c 20 31 32 20 64 6f ┆w0; while w2:=cptr < 12 do┆
0x5bee0…5befc 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 77 30 3a 3d 28 77 31 ┆ begin w0:=(w1┆
0x5befc…5bf02 (0x324,0xb7f)
0x5bf02…5bf20 29 2e 77 6f 72 64 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 20 3d 20 30 20 74 68 65 6e ┆).word; if w0 = 0 then┆
0x5bf20…5bf40 20 63 70 74 72 20 3a 3d 20 77 32 20 3a 3d 20 31 32 3b 0a 20 20 20 20 20 20 20 20 77 68 69 6c 65 ┆ cptr := w2 := 12; while┆
0x5bf40…5bf60 20 77 30 20 3c 3e 20 30 20 64 6f 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 ┆ w0 <> 0 do begin ┆
0x5bf60…5bf7a 20 20 20 20 77 33 20 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 20 20 66 30 20 ┆ w3 := 0; f0 ┆
0x5bf7a…5bf80 (0x324,0xb80)
0x5bf80…5bfa0 6c 73 68 69 66 74 20 38 3b 0a 20 20 20 20 20 20 20 20 20 20 63 61 73 65 20 77 32 3a 3d 73 74 61 ┆lshift 8; case w2:=sta┆
0x5bfa0…5bfc0 74 65 20 6f 66 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 0a 20 20 20 20 20 20 20 20 20 ┆te of begin ┆
0x5bfc0…5bfe0 20 20 20 69 66 20 77 33 3d 31 31 31 20 21 20 27 30 27 20 21 20 74 68 65 6e 20 73 74 61 74 65 3a ┆ if w3=111 ! '0' ! then state:┆
0x5bfe0…5c000 3d 77 32 3a 3d 32 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆=w2:=2 else ┆
0x5c000…5c006 (736,) (0x324,0xb81)
0x5c006…5c020 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 68 61 72 28 ┆begin (char(┆
0x5c020…5c040 77 32 3a 3d 63 70 74 72 29 29 2e 62 79 74 65 20 3a 3d 20 77 33 3b 0a 20 20 20 20 20 20 20 20 20 ┆w2:=cptr)).byte := w3; ┆
0x5c040…5c060 20 20 20 20 20 63 70 74 72 3a 3d 20 77 32 3a 3d 20 63 70 74 72 2b 31 3b 0a 20 20 20 20 20 20 20 ┆ cptr:= w2:= cptr+1; ┆
0x5c060…5c07e 20 20 20 20 20 65 6e 64 3b 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 33 3d 31 ┆ end; if w3=1┆
0x5c07e…5c084 (0x324,0xb82)
0x5c084…5c0a0 31 37 20 21 20 27 75 27 20 21 20 74 68 65 6e 20 73 74 61 74 65 3a 3d 20 77 32 3a 3d ┆17 ! 'u' ! then state:= w2:=┆
0x5c0a0…5c0c0 20 33 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 ┆ 3 else begin ┆
0x5c0c0…5c0e0 20 20 20 20 20 20 20 20 28 63 68 61 72 28 77 32 3a 3d 63 70 74 72 2b 31 29 29 2e 62 79 74 65 20 ┆ (char(w2:=cptr+1)).byte ┆
0x5c0e0…5c0fc 3a 3d 20 77 33 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 68 61 72 28 77 ┆:= w3; (char(w┆
0x5c0fc…5c102 (0x324,0xb83)
0x5c102…5c120 32 3a 3d 63 70 74 72 29 29 2e 62 79 74 65 20 3a 3d 20 77 33 20 3a 3d 20 31 31 31 3b 0a 20 ┆2:=cptr)).byte := w3 := 111; ┆
0x5c120…5c140 20 20 20 20 20 20 20 20 20 20 20 20 20 63 70 74 72 20 3a 3d 20 77 32 20 3a 3d 20 63 70 74 72 2b ┆ cptr := w2 := cptr+┆
0x5c140…5c160 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 74 61 74 65 20 3a 3d 20 77 33 20 3a 3d 20 ┆2; state := w3 := ┆
0x5c160…5c17a 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 0a 20 20 20 20 20 ┆1; end; ┆
0x5c17a…5c180 (0x324,0xb84)
0x5c180…5c1a0 20 20 20 20 20 20 20 69 66 20 77 33 3d 31 31 36 20 21 20 27 74 27 20 21 20 74 68 65 6e 0a 20 20 ┆ if w3=116 ! 't' ! then ┆
0x5c1a0…5c1c0 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 32 ┆ begin w2┆
0x5c1c0…5c1e0 20 3a 3d 20 63 70 74 72 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 33 20 3a 3d 20 72 63 ┆ := cptr; w3 := rc┆
0x5c1e0…5c200 61 72 31 3b 20 69 66 20 77 33 20 3c 3e 20 30 20 74 68 65 6e 0a 20 20 20 00 00 00 00 00 00 00 00 ┆ar1; if w3 <> 0 then ┆
0x5c200…5c206 (737,) (0x324,0xb85)
0x5c206…5c220 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 ┆ begin ┆
0x5c220…5c240 20 20 20 20 20 20 20 28 63 68 61 72 28 77 32 29 29 2e 62 79 74 65 20 3a 3d 20 77 33 3b 0a 20 20 ┆ (char(w2)).byte := w3; ┆
0x5c240…5c260 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 70 74 72 20 3a 3d 20 77 32 20 3a 3d 20 63 70 74 72 ┆ cptr := w2 := cptr┆
0x5c260…5c27e 20 2b 20 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 ┆ + 1; end; ┆
0x5c27e…5c284 (0x324,0xb86)
0x5c284…5c2a0 20 20 20 20 20 20 20 20 20 77 33 20 3a 3d 20 72 63 61 72 32 3b 20 69 66 20 77 33 20 ┆ w3 := rcar2; if w3 ┆
0x5c2a0…5c2c0 3c 3e 20 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 ┆<> 0 then begin ┆
0x5c2c0…5c2e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 68 61 72 28 77 32 29 29 2e 62 79 74 65 20 3a 3d ┆ (char(w2)).byte :=┆
0x5c2e0…5c2fc 20 77 33 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 70 74 72 20 3a 3d ┆ w3; cptr :=┆
0x5c2fc…5c302 (0x324,0xb87)
0x5c302…5c320 20 77 32 20 3a 3d 20 63 70 74 72 20 2b 20 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ w2 := cptr + 1; ┆
0x5c320…5c340 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 33 20 3a 3d 20 72 63 61 72 33 3b ┆ end; w3 := rcar3;┆
0x5c340…5c360 20 69 66 20 77 33 20 3c 3e 20 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 ┆ if w3 <> 0 then b┆
0x5c360…5c37a 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 68 61 72 ┆egin (char┆
0x5c37a…5c380 (0x324,0xb88)
0x5c380…5c3a0 28 77 32 29 29 2e 62 79 74 65 20 3a 3d 20 77 33 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆(w2)).byte := w3; ┆
0x5c3a0…5c3c0 20 20 63 70 74 72 20 3a 3d 20 77 32 20 3a 3d 20 63 70 74 72 20 2b 20 31 3b 0a 20 20 20 20 20 20 ┆ cptr := w2 := cptr + 1; ┆
0x5c3c0…5c3e0 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 74 61 74 65 ┆ end; state┆
0x5c3e0…5c400 20 3a 3d 20 77 33 20 3a 3d 20 34 3b 0a 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ := w3 := 4; ┆
0x5c400…5c406 (738,) (0x324,0xb89)
0x5c406…5c420 20 65 6e 64 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 ┆ end else begi┆
0x5c420…5c440 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 68 61 72 28 77 32 3a 3d 63 70 74 72 2b 32 ┆n (char(w2:=cptr+2┆
0x5c440…5c460 29 29 2e 62 79 74 65 20 3a 3d 20 77 33 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 68 ┆)).byte := w3; (ch┆
0x5c460…5c47e 61 72 28 77 32 3a 3d 63 70 74 72 2b 31 29 29 2e 62 79 74 65 20 3a 3d 20 77 33 20 3a 3d 20 ┆ar(w2:=cptr+1)).byte := w3 := ┆
0x5c47e…5c484 (0x324,0xb8a)
0x5c484…5c4a0 31 31 37 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 68 61 72 28 77 32 3a ┆117; (char(w2:┆
0x5c4a0…5c4c0 3d 63 70 74 72 29 29 2e 62 79 74 65 3a 3d 20 77 33 20 3a 3d 20 31 31 31 3b 0a 20 20 20 20 20 20 ┆=cptr)).byte:= w3 := 111; ┆
0x5c4c0…5c4e0 20 20 20 20 20 20 20 20 63 70 74 72 20 3a 3d 20 77 32 20 3a 3d 20 63 70 74 72 20 2b 33 3b 0a 20 ┆ cptr := w2 := cptr +3; ┆
0x5c4e0…5c4fc 20 20 20 20 20 20 20 20 20 20 20 20 20 73 74 61 74 65 20 3a 3d 20 77 33 20 3a 3d 20 ┆ state := w3 := ┆
0x5c4fc…5c502 (0x324,0xb8b)
0x5c502…5c520 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆1; end; ┆
0x5c520…5c540 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 68 61 72 28 77 32 3a 3d ┆ begin (char(w2:=┆
0x5c540…5c560 63 70 74 72 29 29 2e 62 79 74 65 20 3a 3d 20 77 33 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆cptr)).byte := w3; ┆
0x5c560…5c57a 20 63 70 74 72 3a 3d 20 77 32 3a 3d 20 63 70 74 72 2b 31 3b 0a 20 20 20 20 20 ┆ cptr:= w2:= cptr+1; ┆
0x5c57a…5c580 (0x324,0xb8c)
0x5c580…5c5a0 20 20 20 20 20 20 20 65 6e 64 3b 0a 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 20 21 20 65 6e ┆ end; end; ! en┆
0x5c5a0…5c5c0 64 20 63 61 73 65 20 21 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 77 31 ┆d case ! end; w1┆
0x5c5c0…5c5e0 2b 32 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 77 33 20 3a 3d 20 31 36 3b 0a 20 ┆+2; end; w3 := 16; ┆
0x5c5e0…5c600 20 20 20 20 20 77 31 20 3a 3d 20 72 65 73 64 65 76 20 3b 20 21 20 77 31 00 00 00 00 00 00 00 00 ┆ w1 := resdev ; ! w1 ┆
0x5c600…5c606 (739,) (0x324,0xb8d)
0x5c606…5c620 20 3d 20 61 64 64 72 65 73 73 20 28 72 65 73 75 6c 74 20 6e 61 6d 65 29 20 21 ┆ = address (result name) !┆
0x5c620…5c640 0a 20 20 20 20 20 20 63 70 74 72 20 3a 3d 20 77 32 20 3a 3d 20 31 3b 0a 20 20 20 20 20 20 69 66 ┆ cptr := w2 := 1; if┆
0x5c640…5c660 20 77 30 20 3a 3d 20 73 74 61 74 65 3d 34 20 74 68 65 6e 0a 20 20 20 20 20 20 77 68 69 6c 65 20 ┆ w0 := state=4 then while ┆
0x5c660…5c67e 77 32 20 3c 20 31 33 20 64 6f 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 ┆w2 < 13 do begin ┆
0x5c67e…5c684 (0x324,0xb8e)
0x5c684…5c6a0 20 77 30 3a 3d 28 63 68 61 72 28 77 32 29 29 2e 62 79 74 65 3b 0a 20 20 20 20 20 20 ┆ w0:=(char(w2)).byte; ┆
0x5c6a0…5c6c0 20 20 77 30 20 6c 73 68 69 66 74 20 77 33 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 77 6f 72 ┆ w0 lshift w3; (w1).wor┆
0x5c6c0…5c6e0 64 20 3a 3d 20 77 30 2b 28 77 31 29 2e 77 6f 72 64 3b 0a 20 20 20 20 20 20 20 20 77 33 2d 38 3b ┆d := w0+(w1).word; w3-8;┆
0x5c6e0…5c6fc 0a 20 20 20 20 20 20 20 20 69 66 20 77 33 3c 30 20 74 68 65 6e 0a 20 20 20 20 20 20 ┆ if w3<0 then ┆
0x5c6fc…5c702 (0x324,0xb8f)
0x5c702…5c720 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 31 36 3b 0a 20 20 20 20 ┆ begin w3:=16; ┆
0x5c720…5c740 20 20 20 20 20 20 77 31 2b 32 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 ┆ w1+2; end; ┆
0x5c740…5c760 20 63 70 74 72 3a 3d 77 32 3a 3d 63 70 74 72 2b 31 3b 0a 20 20 20 20 20 20 20 20 77 30 20 65 78 ┆ cptr:=w2:=cptr+1; w0 ex┆
0x5c760…5c77a 74 72 61 63 74 20 38 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 ┆tract 8; end; ┆
0x5c77a…5c780 (0x324,0xb90)
0x5c780…5c7a0 77 31 20 3a 3d 20 6f 75 74 64 65 76 3b 0a 20 20 20 20 20 20 77 32 20 3a 3d 20 72 65 73 64 65 76 ┆w1 := outdev; w2 := resdev┆
0x5c7a0…5c7c0 3b 0a 20 20 20 20 20 20 77 33 20 3a 3d 20 62 2e 63 75 72 72 65 6e 74 3b 0a 20 20 20 20 20 20 77 ┆; w3 := b.current; w┆
0x5c7c0…5c7e0 30 20 3a 3d 20 73 74 61 74 65 3b 0a 20 20 20 20 20 20 77 30 2d 34 3b 0a 20 20 20 20 20 20 63 61 ┆0 := state; w0-4; ca┆
0x5c7e0…5c800 6c 6c 20 77 30 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 65 6e 64 3b 0a 20 00 00 00 00 00 00 00 00 ┆ll w0 return; end; ┆
0x5c800…5c806 (740,) (0x324,0xb91)
0x5c806…5c820 20 65 6e 64 3b 0a 0a 0a 0a 21 62 72 61 6e 63 68 20 31 2c 34 3b 0a 0a 20 20 62 ┆ end; !branch 1,4; b┆
0x5c820…5c840 6f 64 79 20 6f 66 20 6e 65 78 74 63 68 61 72 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 69 6e 63 6f ┆ody of nextchar begin inco┆
0x5c840…5c860 64 65 0a 20 20 20 20 20 20 72 65 66 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 62 65 67 69 6e 0a 20 ┆de ref return; begin ┆
0x5c860…5c87e 20 20 20 20 20 72 65 74 75 72 6e 3a 3d 20 77 33 3b 0a 20 20 20 20 20 20 69 66 20 77 31 3d ┆ return:= w3; if w1=┆
0x5c87e…5c884 (0x324,0xb92)
0x5c884…5c8a0 30 20 74 68 65 6e 0a 20 20 20 20 20 20 69 66 20 77 32 3d 28 77 33 29 2e 73 74 70 20 ┆0 then if w2=(w3).stp ┆
0x5c8a0…5c8c0 74 68 65 6e 20 77 31 3a 3d 20 31 30 20 61 73 68 69 66 74 20 31 36 0a 20 20 20 20 20 20 65 6c 73 ┆then w1:= 10 ashift 16 els┆
0x5c8c0…5c8e0 65 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 77 31 3a 3d 20 28 77 32 29 2e ┆e begin w1:= (w2).┆
0x5c8e0…5c8fc 77 6f 72 64 3b 0a 20 20 20 20 20 20 20 20 77 32 2b 32 3b 0a 20 20 20 20 20 20 65 6e ┆word; w2+2; en┆
0x5c8fc…5c902 (0x324,0xb93)
0x5c902…5c920 64 3b 0a 20 20 20 20 20 20 77 30 3a 3d 20 30 3b 0a 20 20 20 20 20 20 66 31 20 6c 73 68 69 ┆d; w0:= 0; f1 lshi┆
0x5c920…5c940 66 74 20 38 3b 0a 20 20 20 20 20 20 77 33 3a 3d 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 65 6e 64 ┆ft 8; w3:= return; end┆
0x5c940…5c960 3b 0a 20 20 65 6e 64 3b 20 21 20 6e 65 78 74 63 68 61 72 20 21 0a 0a 0a 0a 20 20 62 6f 64 79 20 ┆; end; ! nextchar ! body ┆
0x5c960…5c97a 6f 66 20 66 69 6e 64 5f 63 6f 6e 73 6f 6c 64 65 76 69 63 65 0a 20 20 63 6f 6d ┆of find_consoldevice com┆
0x5c97a…5c980 (0x324,0xb94)
0x5c980…5c9a0 6d 65 6e 74 20 66 69 6e 64 20 61 20 74 72 61 6e 73 70 6f 72 74 20 63 6f 72 6f 75 74 69 6e 65 20 ┆ment find a transport coroutine ┆
0x5c9a0…5c9c0 77 69 74 68 20 74 68 65 20 63 6f 6e 73 6f 6c 65 20 6e 61 6d 65 20 61 6e 64 20 64 65 76 69 63 65 ┆with the console name and device┆
0x5c9c0…5c9e0 20 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 67 69 76 65 6e 20 61 73 20 70 61 72 61 6d 65 74 ┆ name given as paramet┆
0x5c9e0…5ca00 65 72 73 3b 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 6c 61 62 65 6c 20 66 00 00 00 00 00 00 00 00 ┆ers; begin label f ┆
0x5ca00…5ca06 (741,) (0x324,0xb95)
0x5ca06…5ca20 6f 75 6e 64 3b 0a 20 20 20 20 69 6e 63 6f 64 65 0a 20 20 20 20 20 20 77 6f 72 ┆ound; incode wor┆
0x5ca20…5ca40 64 20 73 61 76 65 77 30 2c 20 73 61 76 65 77 31 2c 20 73 61 76 65 77 32 2c 20 72 65 73 75 6c 74 ┆d savew0, savew1, savew2, result┆
0x5ca40…5ca60 3b 0a 20 20 20 20 20 20 72 65 66 20 72 65 74 75 72 6e 3b 0a 0a 20 20 20 20 20 20 62 79 74 65 20 ┆; ref return; byte ┆
0x5ca60…5ca7e 64 68 6c 69 6e 6b 6e 6f 2c 20 68 6f 73 74 6e 6f 3b 0a 20 20 20 20 20 20 77 6f 72 64 20 68 ┆dhlinkno, hostno; word h┆
0x5ca7e…5ca84 (0x324,0xb96)
0x5ca84…5caa0 6f 73 74 69 64 3b 0a 20 20 20 20 20 20 74 65 78 74 28 31 31 29 20 77 6f 72 6b 6e 61 ┆ostid; text(11) workna┆
0x5caa0…5cac0 6d 65 3b 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 73 61 76 65 77 30 3a 3d 20 77 30 3b ┆me; begin savew0:= w0;┆
0x5cac0…5cae0 20 73 61 76 65 77 31 3a 3d 20 77 31 3b 20 73 61 76 65 77 32 3a 3d 20 77 32 3b 0a 20 20 20 20 20 ┆ savew1:= w1; savew2:= w2; ┆
0x5cae0…5cafc 20 72 65 74 75 72 6e 3a 3d 20 77 33 3b 0a 20 20 20 20 20 20 6c 6f 6f 6b 75 70 72 65 ┆ return:= w3; lookupre┆
0x5cafc…5cb02 (0x324,0xb97)
0x5cb02…5cb20 6d 6f 74 65 28 2e 77 33 2e 2c 77 33 3a 3d 32 2c 77 31 2c 77 32 2c 77 30 2c 77 31 2c 77 32 ┆mote(.w3.,w3:=2,w1,w2,w0,w1,w2┆
0x5cb20…5cb40 3a 3d 61 64 64 72 65 73 73 28 64 68 6c 69 6e 6b 6e 6f 29 29 3b 0a 20 20 20 20 20 20 77 32 3a 3d ┆:=address(dhlinkno)); w2:=┆
0x5cb40…5cb60 61 64 64 72 65 73 73 28 28 77 32 3a 3d 62 2e 63 75 72 72 65 6e 74 29 2e 6f 70 72 5f 64 65 76 63 ┆address((w2:=b.current).opr_devc┆
0x5cb60…5cb7a 6f 6e 73 29 3b 0a 20 20 20 20 20 20 69 66 20 77 30 20 65 78 74 72 61 63 74 20 ┆ons); if w0 extract ┆
0x5cb7a…5cb80 (0x324,0xb98)
0x5cb80…5cba0 31 32 3d 30 20 74 68 65 6e 20 74 65 72 6d 69 6e 61 6c 69 64 28 2e 77 33 2e 2c 77 30 3a 3d 64 68 ┆12=0 then terminalid(.w3.,w0:=dh┆
0x5cba0…5cbc0 6c 69 6e 6b 6e 6f 2c 77 32 29 20 65 6c 73 65 0a 20 20 20 20 20 20 28 77 32 29 2e 77 6f 72 64 3a ┆linkno,w2) else (w2).word:┆
0x5cbc0…5cbe0 3d 20 77 30 3a 3d 20 2d 31 3b 0a 0a 20 20 20 20 20 20 69 66 20 77 30 3a 3d 73 61 76 65 77 30 3e ┆= w0:= -1; if w0:=savew0>┆
0x5cbe0…5cc00 32 20 21 20 6d 75 73 74 20 62 65 20 73 74 61 72 74 75 70 20 74 65 72 6d 00 00 00 00 00 00 00 00 ┆2 ! must be startup term ┆
0x5cc00…5cc06 (742,) (0x324,0xb99)
0x5cc06…5cc20 69 6e 61 6c 20 21 20 74 68 65 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 ┆inal ! then begin ┆
0x5cc20…5cc40 20 20 20 20 20 20 63 6f 6d 70 61 72 65 28 2e 77 33 2e 2c 77 30 3a 3d 34 2c 77 31 3a 3d 61 64 64 ┆ compare(.w3.,w0:=4,w1:=add┆
0x5cc40…5cc60 72 65 73 73 28 64 68 6c 69 6e 6b 6e 6f 29 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 62 2e 70 72 6f ┆ress(dhlinkno),w2:=address(b.pro┆
0x5cc60…5cc7e 63 5f 64 68 6c 69 6e 6b 6e 6f 29 29 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3c 3e 30 ┆c_dhlinkno)); if w0<>0┆
0x5cc7e…5cc84 (0x324,0xb9a)
0x5cc84…5cca0 20 74 68 65 6e 20 77 30 3a 3d 20 2d 31 3b 0a 20 20 20 20 20 20 65 6e 64 20 65 6c 73 ┆ then w0:= -1; end els┆
0x5cca0…5ccc0 65 20 77 30 3a 3d 20 30 3b 0a 20 20 20 20 20 20 72 65 73 75 6c 74 3a 3d 20 77 30 3b 0a 0a 20 20 ┆e w0:= 0; result:= w0; ┆
0x5ccc0…5cce0 20 20 20 20 77 31 3a 3d 20 62 2e 74 63 70 6f 6f 6c 5f 66 73 74 3b 0a 20 20 20 20 20 20 77 68 69 ┆ w1:= b.tcpool_fst; whi┆
0x5cce0…5ccfc 6c 65 20 77 31 3c 62 2e 74 63 70 6f 6f 6c 5f 74 6f 70 20 64 6f 0a 20 20 20 20 20 20 ┆le w1<b.tcpool_top do ┆
0x5ccfc…5cd02 (0x324,0xb9b)
0x5cd02…5cd20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 63 6f 6d 70 61 72 65 28 2e 77 33 2e 2c 77 30 3a ┆begin compare(.w3.,w0:┆
0x5cd20…5cd40 3d 38 2c 77 31 2b 21 70 6f 73 69 74 69 6f 6e 28 74 63 5f 64 65 76 6e 61 6d 65 29 2c 77 32 3a 3d ┆=8,w1+!position(tc_devname),w2:=┆
0x5cd40…5cd60 73 61 76 65 77 32 29 3b 0a 20 20 20 20 20 20 20 20 77 31 2d 21 70 6f 73 69 74 69 6f 6e 28 74 63 ┆savew2); w1-!position(tc┆
0x5cd60…5cd7a 5f 64 65 76 6e 61 6d 65 29 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3d 30 ┆_devname); if w0=0┆
0x5cd7a…5cd80 (0x324,0xb9c)
0x5cd80…5cda0 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 69 66 ┆ then begin if┆
0x5cda0…5cdc0 20 77 30 3a 3d 73 61 76 65 77 30 3e 34 39 39 39 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 ┆ w0:=savew0>4999 then ┆
0x5cdc0…5cde0 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 77 30 3d 68 6f 73 74 69 64 65 6e 74 20 2c 20 69 67 6e ┆begin comment w0=hostident , ign┆
0x5cde0…5ce00 6f 72 65 20 74 63 5f 64 65 76 63 6f 6e 73 3b 0a 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ore tc_devcons; ┆
0x5ce00…5ce06 (743,) (0x324,0xb9d)
0x5ce06…5ce20 20 20 20 20 69 66 20 77 30 3d 28 77 31 29 2e 74 63 5f 68 6f 73 74 69 64 20 74 ┆ if w0=(w1).tc_hostid t┆
0x5ce20…5ce40 68 65 6e 20 67 6f 74 6f 20 66 6f 75 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 20 0a 20 ┆hen goto found; end ┆
0x5ce40…5ce60 20 20 20 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 73 ┆ else if w0:=s┆
0x5ce60…5ce7e 61 76 65 77 30 3d 31 20 21 20 6c 6f 63 61 6c 20 64 65 76 69 63 65 20 21 20 74 68 65 6e 0a ┆avew0=1 ! local device ! then ┆
0x5ce7e…5ce84 (0x324,0xb9e)
0x5ce84…5cea0 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ begin ┆
0x5cea0…5cec0 69 66 20 77 30 3a 3d 28 77 31 29 2e 74 63 5f 68 6f 73 74 6e 6f 3d 30 20 74 68 65 6e 20 67 6f 74 ┆if w0:=(w1).tc_hostno=0 then got┆
0x5cec0…5cee0 6f 20 66 6f 75 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 0a 20 20 20 20 20 20 20 20 20 ┆o found; end ┆
0x5cee0…5cefc 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 ┆ else begin ┆
0x5cefc…5cf02 (0x324,0xb9f)
0x5cf02…5cf20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 31 29 2e 74 63 5f 68 6f 73 74 69 64 3c 3e 30 ┆ if w0:=(w1).tc_hostid<>0┆
0x5cf20…5cf40 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 31 29 2e 74 63 ┆ then if w0:=(w1).tc┆
0x5cf40…5cf60 5f 6f 68 69 64 3d 68 6f 73 74 69 64 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 ┆_ohid=hostid then be┆
0x5cf60…5cf7a 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6d 70 61 72 65 28 ┆gin compare(┆
0x5cf7a…5cf80 (0x324,0xba0)
0x5cf80…5cfa0 2e 77 33 2e 2c 77 30 3a 3d 38 2c 77 31 2b 21 70 6f 73 69 74 69 6f 6e 28 74 63 5f 64 65 76 63 6f ┆.w3.,w0:=8,w1+!position(tc_devco┆
0x5cfa0…5cfc0 6e 73 29 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 28 77 32 3a 3d 62 2e 63 75 72 72 65 6e 74 29 2e ┆ns),w2:=address((w2:=b.current).┆
0x5cfc0…5cfe0 6f 70 72 5f 64 65 76 63 6f 6e 73 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 2d ┆opr_devcons)); w1-┆
0x5cfe0…5d000 21 70 6f 73 69 74 69 6f 6e 28 74 63 5f 64 65 76 63 6f 6e 73 29 3b 0a 20 00 00 00 00 00 00 00 00 ┆!position(tc_devcons); ┆
0x5d000…5d006 (744,) (0x324,0xba1)
0x5d006…5d020 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3d 30 20 74 68 65 6e 20 ┆ if w0=0 then ┆
0x5d020…5d040 67 6f 74 6f 20 66 6f 75 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 ┆goto found; end; ┆
0x5d040…5d060 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 31 29 2e 74 63 5f 6f 68 69 64 3d 30 20 74 ┆ if w0:=(w1).tc_ohid=0 t┆
0x5d060…5d07e 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 ┆hen begin ┆
0x5d07e…5d084 (0x324,0xba2)
0x5d084…5d0a0 20 20 20 20 20 20 77 30 3a 3d 20 28 77 33 29 2e 6f 70 72 5f 68 6f 73 74 69 64 2d 28 ┆ w0:= (w3).opr_hostid-(┆
0x5d0a0…5d0c0 77 31 29 2e 74 63 5f 68 6f 73 74 69 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 ┆w1).tc_hostid; if ┆
0x5d0c0…5d0e0 77 30 3d 30 20 74 68 65 6e 20 77 30 3a 3d 28 77 33 29 2e 6f 70 72 5f 64 68 6c 69 6e 6b 6e 6f 2d ┆w0=0 then w0:=(w3).opr_dhlinkno-┆
0x5d0e0…5d0fc 62 2e 70 72 6f 63 5f 64 68 6c 69 6e 6b 6e 6f 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆b.proc_dhlinkno; ┆
0x5d0fc…5d102 (0x324,0xba3)
0x5d102…5d120 20 20 20 69 66 20 77 30 3d 30 20 74 68 65 6e 20 77 30 3a 3d 20 28 77 33 29 2e 6f 70 72 5f ┆ if w0=0 then w0:= (w3).opr_┆
0x5d120…5d140 68 6f 73 74 69 64 2d 62 2e 70 72 6f 63 5f 68 69 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆hostid-b.proc_hid; ┆
0x5d140…5d160 20 69 66 20 77 30 3d 30 20 74 68 65 6e 20 67 6f 74 6f 20 66 6f 75 6e 64 3b 0a 20 20 20 20 20 20 ┆ if w0=0 then goto found; ┆
0x5d160…5d17a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a ┆ end; end; ┆
0x5d17a…5d180 (0x324,0xba4)
0x5d180…5d1a0 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 0a 20 20 20 20 20 20 20 20 77 31 3a 3d 20 28 77 31 29 2e ┆ end; w1:= (w1).┆
0x5d1a0…5d1c0 74 63 5f 6e 65 78 74 74 63 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 0a 20 20 20 20 20 20 77 31 3a ┆tc_nexttc; end; w1:┆
0x5d1c0…5d1e0 3d 20 30 3b 0a 66 6f 75 6e 64 3a 0a 0a 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 31 29 2e 74 ┆= 0; found: if w0:=(w1).t┆
0x5d1e0…5d200 63 5f 63 72 65 61 74 65 64 3d 30 20 74 68 65 6e 20 2d 28 77 31 29 3b 0a 00 00 00 00 00 00 00 00 ┆c_created=0 then -(w1); ┆
0x5d200…5d206 (745,) (0x324,0xba5)
0x5d206…5d220 20 20 20 20 20 20 77 30 3a 3d 20 72 65 73 75 6c 74 3b 20 77 32 3a 3d 20 73 61 ┆ w0:= result; w2:= sa┆
0x5d220…5d240 76 65 77 32 3b 0a 20 20 20 20 20 20 77 33 3a 3d 20 62 2e 63 75 72 72 65 6e 74 3b 0a 20 20 20 20 ┆vew2; w3:= b.current; ┆
0x5d240…5d260 20 20 63 61 6c 6c 20 77 30 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 65 6e 64 3b 0a 20 20 65 6e 64 ┆ call w0 return; end; end┆
0x5d260…5d27e 3b 0a 0a 0a 20 20 62 6f 64 79 20 6f 66 20 67 65 74 70 61 72 61 6d 73 0a 20 20 62 65 67 69 ┆; body of getparams begi┆
0x5d27e…5d284 (0x324,0xba6)
0x5d284…5d2a0 6e 0a 0a 0a 20 20 20 20 70 72 6f 63 65 64 75 72 65 20 69 64 63 6f 6d 6d 61 6e 64 20 ┆n procedure idcommand ┆
0x5d2a0…5d2c0 28 2e 77 33 2e 3b 0a 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 ┆(.w3.; ┆
0x5d2c0…5d2e0 20 77 30 20 3b 20 20 21 20 72 65 74 75 72 6e 3a 20 63 6f 6d 6d 61 6e 64 20 6e 6f 20 21 0a 20 20 ┆ w0 ; ! return: command no ! ┆
0x5d2e0…5d2fc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 20 3b ┆ w1 ;┆
0x5d2fc…5d302 (0x324,0xba7)
0x5d302…5d320 20 20 21 20 63 61 6c 6c 3a 20 72 65 66 2e 20 63 6f 6d 6d 61 6e 64 20 21 0a 20 20 20 20 20 ┆ ! call: ref. command ! ┆
0x5d320…5d340 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 32 29 3b 20 20 21 20 63 61 6c ┆ w2); ! cal┆
0x5d340…5d360 6c 3a 20 72 65 66 2e 20 63 6d 64 74 61 62 6c 65 21 0a 0a 0a 20 20 20 20 70 72 6f 63 65 64 75 72 ┆l: ref. cmdtable! procedur┆
0x5d360…5d37a 65 20 64 65 6c 69 76 65 72 63 6d 64 20 28 2e 77 33 2e 3b 0a 20 20 20 20 20 20 ┆e delivercmd (.w3.; ┆
0x5d37a…5d380 (0x324,0xba8)
0x5d380…5d3a0 20 20 20 20 20 20 20 20 72 65 66 20 20 20 20 20 20 20 20 20 20 70 61 72 61 6d 2c 0a 20 20 20 20 ┆ ref param, ┆
0x5d3a0…5d3c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 61 72 61 6d 64 65 73 63 ┆ paramdesc┆
0x5d3c0…5d3e0 2c 0a 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 73 74 61 ┆, sta┆
0x5d3e0…5d400 63 6b 70 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ckp, ┆
0x5d400…5d406 (746,) (0x324,0xba9)
0x5d406…5d420 20 20 20 20 20 20 20 20 73 74 64 65 73 63 29 3b 0a 0a 20 20 20 20 69 6e 63 6f ┆ stdesc); inco┆
0x5d420…5d440 64 65 20 0a 0a 20 20 20 20 64 6f 75 62 6c 65 20 20 20 20 20 20 20 73 61 76 65 66 32 3b 0a 20 20 ┆de double savef2; ┆
0x5d440…5d460 20 20 72 65 66 20 20 20 20 20 20 20 20 20 20 63 6d 64 72 65 66 3b 0a 0a 20 20 20 20 77 6f 72 64 ┆ ref cmdref; word┆
0x5d460…5d47e 20 20 20 20 20 20 20 20 20 73 65 70 2c 20 74 79 70 65 3b 0a 20 20 20 20 77 6f 72 64 20 20 ┆ sep, type; word ┆
0x5d47e…5d484 (0x324,0xbaa)
0x5d484…5d4a0 20 20 20 20 20 20 20 74 78 74 31 2c 74 78 74 32 2c 74 78 74 33 2c 74 78 74 34 3b 0a ┆ txt1,txt2,txt3,txt4; ┆
0x5d4a0…5d4c0 20 20 20 20 64 6f 75 62 6c 65 20 20 20 20 20 20 20 76 61 6c 75 65 3b 0a 20 20 20 20 62 79 74 65 ┆ double value; byte┆
0x5d4c0…5d4e0 20 20 20 20 20 20 20 20 20 63 6f 6d 6d 61 6e 64 2c 20 20 70 61 72 61 6d 73 3b 0a 20 20 20 20 77 ┆ command, params; w┆
0x5d4e0…5d4fc 6f 72 64 20 20 20 20 20 20 20 20 20 73 69 67 6e 2c 20 20 20 20 20 72 65 6d 6f 74 65 ┆ord sign, remote┆
0x5d4fc…5d502 (0x324,0xbab)
0x5d502…5d520 3b 0a 0a 20 20 20 20 62 79 74 65 20 20 73 74 61 74 65 2c 20 61 63 74 69 6f 6e 3b 0a 20 20 ┆; byte state, action; ┆
0x5d520…5d540 20 20 77 6f 72 64 20 20 20 20 20 20 20 20 20 20 20 63 68 61 72 2c 0a 20 20 20 20 20 20 20 20 20 ┆ word char, ┆
0x5d540…5d560 20 20 20 20 20 20 20 20 20 20 73 74 6f 70 5f 61 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ stop_a, ┆
0x5d560…5d57a 20 20 20 20 20 70 61 72 74 69 61 6c 3b 0a 20 20 20 20 72 65 66 20 20 20 20 20 ┆ partial; ref ┆
0x5d57a…5d580 (0x324,0xbac)
0x5d580…5d5a0 20 20 20 20 20 62 75 66 5f 61 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 74 61 ┆ buf_a, sta┆
0x5d5a0…5d5c0 63 6b 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 61 72 6d 73 74 61 63 6b 3b 0a ┆ck, parmstack; ┆
0x5d5c0…5d5e0 20 20 20 20 74 65 78 74 20 28 36 29 0a 20 20 20 20 73 74 61 72 74 20 3a 3d 20 20 20 22 73 74 61 ┆ text (6) start := "sta┆
0x5d5e0…5d600 72 74 22 2c 0a 20 20 20 20 73 6b 69 70 20 20 3a 3d 20 20 20 22 73 6b 69 00 00 00 00 00 00 00 00 ┆rt", skip := "ski ┆
0x5d600…5d606 (747,) (0x324,0xbad)
0x5d606…5d620 70 22 2c 0a 20 20 20 20 72 65 70 65 61 74 3a 3d 20 20 20 22 72 65 70 65 61 22 ┆p", repeat:= "repea"┆
0x5d620…5d640 2c 0a 20 20 20 20 72 65 73 74 61 72 3a 3d 20 20 20 22 72 65 73 74 61 22 2c 0a 20 20 20 20 73 74 ┆, restar:= "resta", st┆
0x5d640…5d660 6f 70 20 20 3a 3d 20 20 20 22 73 74 6f 70 22 2c 0a 20 20 20 20 6b 69 6c 6c 20 20 3a 3d 20 20 20 ┆op := "stop", kill := ┆
0x5d660…5d67e 22 6b 69 6c 6c 22 2c 0a 20 20 20 20 73 75 73 70 65 6e 3a 3d 20 20 20 22 73 75 73 70 65 22 ┆"kill", suspen:= "suspe"┆
0x5d67e…5d684 (0x324,0xbae)
0x5d684…5d6a0 2c 0a 20 20 20 20 64 72 61 69 6e 20 3a 3d 20 20 20 22 64 72 61 69 6e 22 2c 0a 20 20 ┆, drain := "drain", ┆
0x5d6a0…5d6c0 20 20 72 65 71 75 65 73 3a 3d 20 20 20 22 72 65 71 75 65 22 2c 0a 20 20 20 20 73 69 67 6e 75 70 ┆ reques:= "reque", signup┆
0x5d6c0…5d6e0 3a 3d 20 20 20 22 73 69 67 6e 75 22 2c 0a 20 20 20 20 73 69 67 6e 6f 66 3a 3d 20 20 20 22 73 69 ┆:= "signu", signof:= "si┆
0x5d6e0…5d6fc 67 6e 6f 22 2c 0a 20 20 20 20 73 65 6c 65 63 74 3a 3d 20 20 20 22 73 65 6c 65 63 22 ┆gno", select:= "selec"┆
0x5d6fc…5d702 (0x324,0xbaf)
0x5d702…5d720 2c 0a 20 20 20 20 72 6f 75 74 65 20 3a 3d 20 20 20 22 72 6f 75 74 65 22 2c 0a 20 20 20 20 ┆, route := "route", ┆
0x5d720…5d740 74 72 69 61 6e 67 3a 3d 20 20 20 22 74 72 69 61 6e 22 2c 0a 20 20 20 20 64 69 73 70 6c 61 3a 3d ┆triang:= "trian", displa:=┆
0x5d740…5d760 20 20 20 22 64 69 73 70 6c 22 2c 0a 20 20 20 20 65 6d 70 74 79 63 3a 3d 20 20 20 22 22 3b 0a 20 ┆ "displ", emptyc:= ""; ┆
0x5d760…5d77a 20 20 20 61 72 72 61 79 20 28 31 3a 32 35 30 29 20 63 6d 64 74 61 62 6c 65 20 ┆ array (1:250) cmdtable ┆
0x5d77a…5d780 (0x324,0xbb0)
0x5d780…5d7a0 6f 66 20 62 79 74 65 20 3a 3d 0a 20 20 20 21 20 64 65 6c 69 6d 65 74 65 72 3a 20 30 3d 6e 6f 74 ┆of byte := ! delimeter: 0=not┆
0x5d7a0…5d7c0 68 69 6e 67 20 66 6f 6c 6c 6f 77 73 3b 20 34 3d 73 70 61 63 65 3b 20 38 3d 70 75 6e 74 75 61 74 ┆hing follows; 4=space; 8=puntuat┆
0x5d7c0…5d7e0 69 6f 6e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 0a 20 20 20 21 20 70 61 72 61 6d 65 ┆ion ! ! parame┆
0x5d7e0…5d800 74 65 72 3a 20 32 3d 75 6e 73 2e 69 6e 74 3b 33 3d 6e 65 67 2e 69 6e 74 00 00 00 00 00 00 00 00 ┆ter: 2=uns.int;3=neg.int ┆
0x5d800…5d806 (748,) (0x324,0xbb1)
0x5d806…5d820 2e 3b 34 3d 6e 61 6d 65 3b 35 3d 27 36 34 27 6e 61 6d 65 20 20 20 20 20 20 20 ┆.;4=name;5='64'name ┆
0x5d820…5d840 20 20 20 20 20 20 20 20 20 20 20 21 0a 20 20 20 21 20 66 69 72 73 74 20 64 65 6c 69 6d 65 74 65 ┆ ! ! first delimete┆
0x5d840…5d860 72 20 69 73 20 61 6c 6c 77 61 79 73 20 61 20 73 70 61 63 65 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e ┆r is allways a space............┆
0x5d860…5d87e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 20 21 0a 20 20 20 21 20 3a 3c ┆.................... ! ! :<┆
0x5d87e…5d884 (0x324,0xbb2)
0x5d884…5d8a0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆----------------------------┆
0x5d8a0…5d8c0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 20 63 6f 6d 6d 61 6e 64 20 6e 75 6d 62 65 72 2e 2e 2e 2e 2e 2e ┆---------- command number......┆
0x5d8c0…5d8e0 2e 2e 2e 2e 20 21 0a 20 20 20 21 20 20 20 20 3a 3c 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆.... ! ! :<---------------┆
0x5d8e0…5d8fc 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 20 6e 75 6d 62 65 72 ┆-------------------- number┆
0x5d8fc…5d902 (0x324,0xbb3)
0x5d902…5d920 20 6f 66 20 70 61 72 61 6d 73 2e 2e 2e 2e 2e 2e 2e 2e 20 21 0a 20 20 20 21 20 20 20 20 20 ┆ of params........ ! ! ┆
0x5d920…5d940 20 20 20 3a 3c 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ :<---------------------------┆
0x5d940…5d960 2d 2d 2d 2d 20 20 61 6c 74 20 73 70 65 63 2e 20 65 78 69 73 74 20 3f 2e 2e 2e 2e 2e 2e 2e 20 21 ┆---- alt spec. exist ?....... !┆
0x5d960…5d97a 0a 20 20 20 21 20 20 20 20 20 20 20 20 20 20 20 3a 3c 2d 2d 2d 2d 2d 2d 2d 2d ┆ ! :<--------┆
0x5d97a…5d980 (0x324,0xbb4)
0x5d980…5d9a0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 20 31 73 74 20 70 61 72 61 6d 65 ┆-------------------- 1st parame┆
0x5d9a0…5d9c0 74 65 72 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 20 21 0a 20 20 20 21 20 20 20 20 20 20 20 20 20 20 20 ┆ter........... ! ! ┆
0x5d9c0…5d9e0 20 20 20 20 3a 3c 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 20 ┆ :<------------------------ ┆
0x5d9e0…5da00 32 6e 64 20 64 65 6c 69 6d 65 74 65 72 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 00 00 00 00 00 00 00 00 ┆2nd delimeter........... ┆
0x5da00…5da06 (749,) (0x324,0xbb5)
0x5da06…5da20 20 21 0a 20 20 20 21 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a ┆ ! ! :┆
0x5da20…5da40 3c 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 20 32 6e 64 20 70 61 72 61 ┆<--------------------- 2nd para┆
0x5da40…5da60 6d 65 74 65 72 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 20 21 0a 20 20 20 21 20 20 20 20 20 20 20 20 20 ┆meter........... ! ! ┆
0x5da60…5da7e 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 3c 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ :<---------------┆
0x5da7e…5da84 (0x324,0xbb6)
0x5da84…5daa0 2d 2d 20 20 33 72 64 20 64 65 6c 69 6d 65 74 65 72 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e ┆-- 3rd delimeter...........┆
0x5daa0…5dac0 20 21 0a 20 20 20 21 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 ┆ ! ! ┆
0x5dac0…5dae0 3a 3c 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 20 33 72 64 20 70 61 72 61 6d 65 74 65 72 2e ┆:<-------------- 3rd parameter.┆
0x5dae0…5dafc 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 20 21 0a 20 20 20 21 20 20 20 20 20 20 20 20 20 20 20 ┆.......... ! ! ┆
0x5dafc…5db02 (0x324,0xbb7)
0x5db02…5db20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 3c 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ :<----------┆
0x5db20…5db40 20 20 34 74 68 20 64 65 6c 69 6d 65 74 65 72 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 20 21 0a 20 20 20 ┆ 4th delimeter........... ! ┆
0x5db40…5db60 21 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 20 ┆! ┆
0x5db60…5db7a 20 3a 3c 2d 2d 2d 2d 2d 2d 2d 20 20 34 74 68 20 70 61 72 61 6d 65 74 65 72 2e ┆ :<------- 4th parameter.┆
0x5db7a…5db80 (0x324,0xbb8)
0x5db80…5dba0 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 20 21 0a 20 20 20 21 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆.......... ! ! ┆
0x5dba0…5dbc0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 3c 2d 2d 2d 20 20 35 74 68 20 ┆ :<--- 5th ┆
0x5dbc0…5dbe0 64 65 6c 69 6d 65 74 65 72 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 20 21 0a 20 20 20 21 20 20 20 20 20 ┆delimeter........... ! ! ┆
0x5dbe0…5dc00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ ┆
0x5dc00…5dc06 (750,) (0x324,0xbb9)
0x5dc06…5dc20 20 20 20 20 20 20 20 20 20 20 3a 3c 20 20 35 74 68 20 70 61 72 61 6d 65 74 65 ┆ :< 5th paramete┆
0x5dc20…5dc40 72 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 20 21 0a 20 20 20 20 20 31 20 20 33 20 20 20 31 20 20 35 20 ┆r........... ! 1 3 1 5 ┆
0x5dc40…5dc60 20 20 38 20 20 32 20 20 20 38 20 20 32 20 20 20 30 20 20 30 20 20 20 30 20 20 30 20 21 20 53 54 ┆ 8 2 8 2 0 0 0 0 ! ST┆
0x5dc60…5dc7e 41 52 54 20 3c 64 65 76 3e 2e 68 6e 6f 2e 68 69 64 20 20 20 20 20 20 21 0a 20 20 20 20 20 ┆ART <dev>.hno.hid ! ┆
0x5dc7e…5dc84 (0x324,0xbba)
0x5dc84…5dca0 31 20 20 34 20 20 20 30 20 20 35 20 20 20 38 20 20 32 20 20 20 38 20 20 32 20 20 20 ┆1 4 0 5 8 2 8 2 ┆
0x5dca0…5dcc0 34 20 20 32 20 20 20 30 20 20 30 20 21 20 53 54 41 52 54 20 3c 64 65 76 3e 2e 68 6e 6f 2e 68 69 ┆4 2 0 0 ! START <dev>.hno.hi┆
0x5dcc0…5dce0 64 20 6e 20 20 20 20 21 0a 20 20 20 20 20 32 20 20 34 20 20 20 30 20 20 35 20 20 20 38 20 20 32 ┆d n ! 2 4 0 5 8 2┆
0x5dce0…5dcfc 20 20 20 38 20 20 32 20 20 20 34 20 20 32 20 20 20 30 20 20 30 20 21 20 53 4b 49 50 ┆ 8 2 4 2 0 0 ! SKIP┆
0x5dcfc…5dd02 (0x324,0xbbb)
0x5dd02…5dd20 20 3c 64 65 76 3e 2e 68 6e 6f 2e 68 69 64 20 6e 20 20 20 20 20 21 0a 20 20 20 20 20 33 20 ┆ <dev>.hno.hid n ! 3 ┆
0x5dd20…5dd40 20 34 20 20 20 30 20 20 35 20 20 20 38 20 20 32 20 20 20 38 20 20 32 20 20 20 34 20 20 32 20 20 ┆ 4 0 5 8 2 8 2 4 2 ┆
0x5dd40…5dd60 20 30 20 20 30 20 21 20 52 45 41 50 45 41 54 20 3c 64 65 76 3e 2e 68 6e 6f 2e 68 69 64 20 6e 20 ┆ 0 0 ! REAPEAT <dev>.hno.hid n ┆
0x5dd60…5dd7a 20 21 0a 20 20 20 20 20 34 20 20 33 20 20 20 30 20 20 35 20 20 20 38 20 20 32 ┆ ! 4 3 0 5 8 2┆
0x5dd7a…5dd80 (0x324,0xbbc)
0x5dd80…5dda0 20 20 20 38 20 20 32 20 20 20 30 20 20 30 20 20 20 30 20 20 30 20 21 20 52 45 53 54 41 52 54 20 ┆ 8 2 0 0 0 0 ! RESTART ┆
0x5dda0…5ddc0 3c 64 65 76 3e 2e 68 6e 6f 2e 68 69 64 20 20 20 20 21 0a 20 20 20 20 20 35 20 20 33 20 20 20 30 ┆<dev>.hno.hid ! 5 3 0┆
0x5ddc0…5dde0 20 20 35 20 20 20 38 20 20 32 20 20 20 38 20 20 32 20 20 20 30 20 20 30 20 20 20 30 20 20 30 20 ┆ 5 8 2 8 2 0 0 0 0 ┆
0x5dde0…5de00 21 20 53 54 4f 50 20 3c 64 65 76 3e 2e 68 6e 6f 2e 68 69 64 20 20 20 20 00 00 00 00 00 00 00 00 ┆! STOP <dev>.hno.hid ┆
0x5de00…5de06 (751,) (0x324,0xbbd)
0x5de06…5de20 20 20 20 21 0a 20 20 20 20 20 36 20 20 33 20 20 20 30 20 20 35 20 20 20 38 20 ┆ ! 6 3 0 5 8 ┆
0x5de20…5de40 20 32 20 20 20 38 20 20 32 20 20 20 30 20 20 30 20 20 20 30 20 20 30 20 21 20 4b 49 4c 4c 20 3c ┆ 2 8 2 0 0 0 0 ! KILL <┆
0x5de40…5de60 64 65 76 3e 2e 68 6e 6f 2e 68 69 64 20 20 20 20 20 20 20 21 0a 20 20 20 20 20 37 20 20 33 20 20 ┆dev>.hno.hid ! 7 3 ┆
0x5de60…5de7e 20 30 20 20 35 20 20 20 38 20 20 32 20 20 20 38 20 20 32 20 20 20 30 20 20 30 20 20 20 30 ┆ 0 5 8 2 8 2 0 0 0┆
0x5de7e…5de84 (0x324,0xbbe)
0x5de84…5dea0 20 20 30 20 21 20 53 55 53 50 45 4e 44 20 3c 64 65 76 3e 2e 68 6e 6f 2e 68 69 64 20 ┆ 0 ! SUSPEND <dev>.hno.hid ┆
0x5dea0…5dec0 20 20 20 21 0a 20 20 20 20 20 38 20 20 33 20 20 20 30 20 20 35 20 20 20 38 20 20 32 20 20 20 38 ┆ ! 8 3 0 5 8 2 8┆
0x5dec0…5dee0 20 20 32 20 20 20 30 20 20 30 20 20 20 30 20 20 30 20 21 20 44 52 41 49 4e 20 3c 64 65 76 3e 2e ┆ 2 0 0 0 0 ! DRAIN <dev>.┆
0x5dee0…5defc 68 6e 6f 2e 68 69 64 20 20 20 20 20 20 21 0a 20 20 20 20 20 39 20 20 30 20 20 20 31 ┆hno.hid ! 9 0 1┆
0x5defc…5df02 (0x324,0xbbf)
0x5df02…5df20 20 20 30 20 20 20 30 20 20 30 20 20 20 30 20 20 30 20 20 20 30 20 20 30 20 20 20 30 20 20 ┆ 0 0 0 0 0 0 0 0 ┆
0x5df20…5df40 30 20 21 20 52 45 51 55 45 53 54 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 0a 20 ┆0 ! REQUEST ! ┆
0x5df40…5df60 20 20 20 20 39 20 20 33 20 20 20 30 20 20 35 20 20 20 38 20 20 32 20 20 20 38 20 20 32 20 20 20 ┆ 9 3 0 5 8 2 8 2 ┆
0x5df60…5df7a 30 20 20 30 20 20 20 30 20 20 30 20 21 20 52 45 51 55 45 53 54 28 64 65 76 2e ┆0 0 0 0 ! REQUEST(dev.┆
0x5df7a…5df80 (0x324,0xbc0)
0x5df80…5dfa0 68 6e 6f 2e 68 69 64 2f 61 6c 6c 20 20 21 0a 20 20 20 20 31 30 20 20 34 20 20 20 30 20 20 35 20 ┆hno.hid/all ! 10 4 0 5 ┆
0x5dfa0…5dfc0 20 20 38 20 20 32 20 20 20 38 20 20 32 20 20 20 34 20 20 32 20 20 20 30 20 20 30 20 21 20 53 49 ┆ 8 2 8 2 4 2 0 0 ! SI┆
0x5dfc0…5dfe0 47 4e 55 50 20 3c 64 65 76 3e 2e 68 6e 6f 2e 68 69 64 20 6e 20 20 20 21 0a 20 20 20 20 31 31 20 ┆GNUP <dev>.hno.hid n ! 11 ┆
0x5dfe0…5e000 20 33 20 20 20 30 20 20 35 20 20 20 38 20 20 32 20 20 20 38 20 20 32 20 00 00 00 00 00 00 00 00 ┆ 3 0 5 8 2 8 2 ┆
0x5e000…5e006 (752,) (0x324,0xbc1)
0x5e006…5e020 20 20 30 20 20 30 20 20 20 30 20 20 30 20 21 20 53 49 47 4e 4f 46 46 20 3c 64 ┆ 0 0 0 0 ! SIGNOFF <d┆
0x5e020…5e040 65 76 3e 2e 68 6e 6f 2e 68 69 64 20 20 20 20 21 0a 20 20 20 20 31 32 20 20 33 20 20 20 31 20 20 ┆ev>.hno.hid ! 12 3 1 ┆
0x5e040…5e060 35 20 20 20 38 20 20 32 20 20 20 38 20 20 32 20 20 20 30 20 20 30 20 20 20 30 20 20 30 20 21 20 ┆5 8 2 8 2 0 0 0 0 ! ┆
0x5e060…5e07e 53 45 4c 45 43 54 20 3c 64 65 76 3e 2e 68 6e 6f 2e 68 69 64 20 20 20 20 20 21 0a 20 20 20 ┆SELECT <dev>.hno.hid ! ┆
0x5e07e…5e084 (0x324,0xbc2)
0x5e084…5e0a0 20 31 32 20 20 34 20 20 20 31 20 20 35 20 20 20 38 20 20 32 20 20 20 38 20 20 32 20 ┆ 12 4 1 5 8 2 8 2 ┆
0x5e0a0…5e0c0 20 20 34 20 20 34 20 20 20 30 20 20 30 20 21 20 53 45 4c 45 43 54 20 3c 64 65 76 3e 2e 68 6e 6f ┆ 4 4 0 0 ! SELECT <dev>.hno┆
0x5e0c0…5e0e0 2e 68 69 64 20 3c 70 73 3e 21 0a 20 20 20 20 31 32 20 20 35 20 20 20 30 20 20 35 20 20 20 38 20 ┆.hid <ps>! 12 5 0 5 8 ┆
0x5e0e0…5e0fc 20 32 20 20 20 38 20 20 32 20 20 20 34 20 20 34 20 20 20 38 20 20 34 20 21 20 53 45 ┆ 2 8 2 4 4 8 4 ! SE┆
0x5e0fc…5e102 (0x324,0xbc3)
0x5e102…5e120 4c 20 3c 64 65 76 3e 2e 68 6e 2e 68 69 64 20 3c 67 72 3e 2e 3c 71 3e 21 0a 20 20 20 20 31 ┆L <dev>.hn.hid <gr>.<q>! 1┆
0x5e120…5e140 33 20 20 34 20 20 20 30 20 20 35 20 20 20 38 20 20 32 20 20 20 38 20 20 32 20 20 20 34 20 20 34 ┆3 4 0 5 8 2 8 2 4 4┆
0x5e140…5e160 20 20 20 30 20 20 30 20 21 20 52 4f 55 54 45 20 3c 64 65 76 3e 2e 68 6e 6f 2e 68 69 64 20 3c 65 ┆ 0 0 ! ROUTE <dev>.hno.hid <e┆
0x5e160…5e17a 6e 74 3e 21 0a 20 20 20 20 31 34 20 20 34 20 20 20 30 20 20 35 20 20 20 38 20 ┆nt>! 14 4 0 5 8 ┆
0x5e17a…5e180 (0x324,0xbc4)
0x5e180…5e1a0 20 32 20 20 20 38 20 20 32 20 20 20 34 20 20 34 20 20 20 30 20 20 30 20 21 20 54 52 49 41 4e 47 ┆ 2 8 2 4 4 0 0 ! TRIANG┆
0x5e1a0…5e1c0 20 3c 64 65 76 3e 2e 68 6e 6f 2e 68 69 64 20 3c 62 3e 20 21 0a 20 20 20 20 31 35 20 20 30 20 20 ┆ <dev>.hno.hid <b> ! 15 0 ┆
0x5e1c0…5e1e0 20 30 20 20 30 20 20 20 30 20 20 30 20 20 20 30 20 20 30 20 20 20 30 20 20 30 20 20 20 30 20 20 ┆ 0 0 0 0 0 0 0 0 0 ┆
0x5e1e0…5e200 30 20 21 20 44 49 53 50 4c 41 59 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆0 ! DISPLAY ┆
0x5e200…5e206 (753,) (0x324,0xbc5)
0x5e206…5e220 20 20 20 20 20 21 0a 20 20 20 20 2d 31 20 2d 31 20 20 2d 31 20 2d 31 20 20 2d ┆ ! -1 -1 -1 -1 -┆
0x5e220…5e240 31 20 2d 31 20 20 2d 31 20 2d 31 20 20 2d 31 20 2d 31 20 20 2d 31 20 2d 31 3b 21 20 65 6e 64 20 ┆1 -1 -1 -1 -1 -1 -1 -1;! end ┆
0x5e240…5e260 73 79 6e 74 61 78 20 74 61 62 6c 65 2e 20 20 20 20 20 20 20 20 21 0a 0a 20 20 20 20 61 72 72 61 ┆syntax table. ! arra┆
0x5e260…5e27e 79 20 20 28 31 3a 31 32 38 29 20 20 20 20 73 74 61 74 65 5f 61 63 74 69 6f 6e 20 6f 66 20 ┆y (1:128) state_action of ┆
0x5e27e…5e284 (0x324,0xbc6)
0x5e284…5e2a0 62 79 74 65 20 3a 3d 20 0a 21 20 73 74 2f 63 6c 61 73 73 20 20 20 6e 73 20 61 63 74 ┆byte := ! st/class ns act┆
0x5e2a0…5e2c0 20 20 6e 73 20 61 63 74 20 20 6e 73 20 61 63 74 20 20 6e 73 20 61 63 74 20 20 6e 73 20 61 63 74 ┆ ns act ns act ns act ns act┆
0x5e2c0…5e2e0 20 20 6e 73 20 61 63 74 20 20 6e 73 20 61 63 74 20 20 6e 73 20 61 63 74 0a 20 20 20 20 20 20 20 ┆ ns act ns act ns act ┆
0x5e2e0…5e2fc 20 20 20 20 20 20 73 70 61 63 65 20 20 20 73 69 67 6e 20 20 20 20 22 2e 22 20 20 20 ┆ space sign "." ┆
0x5e2fc…5e302 (0x324,0xbc7)
0x5e302…5e320 20 20 22 40 22 20 20 20 20 20 64 69 67 69 74 20 20 20 61 6c 66 61 20 20 20 20 6e 65 77 6c ┆ "@" digit alfa newl┆
0x5e320…5e340 69 6e 65 20 69 6c 6c 65 67 61 6c 20 21 0a 21 20 31 2e 62 65 67 69 6e 20 20 21 20 31 20 20 31 20 ┆ine illegal ! ! 1.begin ! 1 1 ┆
0x5e340…5e360 20 20 20 32 20 31 31 20 20 20 20 33 20 31 31 20 20 20 20 34 20 31 31 20 20 20 20 35 20 31 31 20 ┆ 2 11 3 11 4 11 5 11 ┆
0x5e360…5e37a 20 20 20 32 20 20 32 20 20 20 20 30 20 20 36 20 20 20 20 38 20 31 31 20 20 0a ┆ 2 2 0 6 8 11 ┆
0x5e37a…5e380 (0x324,0xbc8)
0x5e380…5e3a0 21 20 32 2e 69 6e 20 6e 61 6d 65 21 20 34 20 20 33 20 20 20 20 32 20 31 31 20 20 20 20 35 20 20 ┆! 2.in name! 4 3 2 11 5 ┆
0x5e3a0…5e3c0 34 20 20 20 20 34 20 31 31 20 20 20 20 32 20 20 35 20 20 20 20 32 20 20 35 20 20 20 20 30 20 20 ┆4 4 11 2 5 2 5 0 ┆
0x5e3c0…5e3e0 36 20 20 20 20 38 20 31 31 20 20 0a 21 20 33 2e 69 6e 20 6e 75 6d 62 21 20 34 20 20 33 20 20 20 ┆6 8 11 ! 3.in numb! 4 3 ┆
0x5e3e0…5e400 20 32 20 31 31 20 20 20 20 35 20 20 34 20 20 20 20 34 20 31 31 20 20 20 00 00 00 00 00 00 00 00 ┆ 2 11 5 4 4 11 ┆
0x5e400…5e406 (754,) (0x324,0xbc9)
0x5e406…5e420 20 33 20 20 39 20 20 20 20 36 20 31 31 20 20 20 20 30 20 20 36 20 20 20 20 38 ┆ 3 9 6 11 0 6 8┆
0x5e420…5e440 20 31 31 20 20 0a 21 20 34 2e 61 66 74 20 73 70 63 21 20 34 20 20 31 20 20 20 20 36 20 31 30 20 ┆ 11 ! 4.aft spc! 4 1 6 10 ┆
0x5e440…5e460 20 20 20 35 20 20 34 20 20 20 20 37 20 20 38 20 20 20 20 33 20 20 37 20 20 20 20 32 20 20 32 20 ┆ 5 4 7 8 3 7 2 2 ┆
0x5e460…5e47e 20 20 20 30 20 20 36 20 20 20 20 38 20 31 31 20 20 0a 21 20 35 2e 61 66 74 20 22 2e 22 21 ┆ 0 6 8 11 ! 5.aft "."!┆
0x5e47e…5e484 (0x324,0xbca)
0x5e484…5e4a0 20 35 20 31 31 20 20 20 20 36 20 31 30 20 20 20 20 33 20 31 31 20 20 20 20 37 20 20 ┆ 5 11 6 10 3 11 7 ┆
0x5e4a0…5e4c0 38 20 20 20 20 33 20 20 37 20 20 20 20 32 20 20 32 20 20 20 20 37 20 31 31 20 20 20 20 38 20 31 ┆8 3 7 2 2 7 11 8 1┆
0x5e4c0…5e4e0 31 20 20 0a 21 20 36 2e 61 66 74 20 73 67 6e 21 20 36 20 31 31 20 20 20 20 32 20 31 31 20 20 20 ┆1 ! 6.aft sgn! 6 11 2 11 ┆
0x5e4e0…5e4fc 20 33 20 31 31 20 20 20 20 34 20 31 31 20 20 20 20 33 20 20 37 20 20 20 20 36 20 31 ┆ 3 11 4 11 3 7 6 1┆
0x5e4fc…5e502 (0x324,0xbcb)
0x5e502…5e520 31 20 20 20 20 37 20 31 31 20 20 20 20 38 20 31 31 20 20 0a 21 20 37 2e 61 66 74 20 22 40 ┆1 7 11 8 11 ! 7.aft "@┆
0x5e520…5e540 22 21 20 31 20 31 31 20 20 20 20 32 20 31 31 20 20 20 20 33 20 31 31 20 20 20 20 34 20 31 31 20 ┆"! 1 11 2 11 3 11 4 11 ┆
0x5e540…5e560 20 20 20 35 20 31 31 20 20 20 20 32 20 20 32 20 20 20 20 37 20 31 31 20 20 20 20 38 20 31 31 20 ┆ 5 11 2 2 7 11 8 11 ┆
0x5e560…5e57a 20 3b 0a 0a 0a 20 20 20 20 62 65 67 69 6e 0a 0a 20 20 20 20 20 20 63 6d 64 72 ┆ ; begin cmdr┆
0x5e57a…5e580 (0x324,0xbcc)
0x5e580…5e5a0 65 66 20 3a 3d 20 77 33 3b 0a 20 20 20 20 20 20 73 61 76 65 66 32 20 3a 3d 20 66 32 3b 0a 20 20 ┆ef := w3; savef2 := f2; ┆
0x5e5a0…5e5c0 20 20 20 20 77 30 20 3a 3d 20 63 6d 64 72 65 66 2e 73 74 6f 70 70 6e 74 72 3b 0a 20 20 20 20 20 ┆ w0 := cmdref.stoppntr; ┆
0x5e5c0…5e5e0 20 73 74 6f 70 5f 61 20 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 77 30 20 3a 3d 20 63 6d 64 72 65 ┆ stop_a := w0; w0 := cmdre┆
0x5e5e0…5e600 66 2e 62 75 66 70 6e 74 72 3b 0a 20 20 20 20 20 20 62 75 66 5f 61 20 3a 00 00 00 00 00 00 00 00 ┆f.bufpntr; buf_a : ┆
0x5e600…5e606 (755,) (0x324,0xbcd)
0x5e606…5e620 3d 20 77 30 3b 0a 20 20 20 20 20 20 73 74 61 63 6b 20 20 3a 3d 20 77 30 20 3a ┆= w0; stack := w0 :┆
0x5e620…5e640 3d 20 63 6d 64 72 65 66 2e 70 61 72 61 6d 61 72 65 61 3b 0a 20 20 20 20 20 20 70 61 72 6d 73 74 ┆= cmdref.paramarea; parmst┆
0x5e640…5e660 61 63 6b 20 3a 3d 20 77 30 20 3a 3d 20 63 6d 64 72 65 66 2e 70 61 72 61 6d 74 79 70 65 3b 0a 0a ┆ack := w0 := cmdref.paramtype; ┆
0x5e660…5e67e 0a 0a 20 20 20 20 77 30 20 3a 3d 20 30 3b 0a 20 20 20 20 74 79 70 65 20 3a 3d 20 77 30 3b ┆ w0 := 0; type := w0;┆
0x5e67e…5e684 (0x324,0xbce)
0x5e684…5e6a0 0a 20 20 20 20 73 65 70 20 3a 3d 20 77 30 3b 0a 20 20 20 20 72 65 6d 6f 74 65 20 3a ┆ sep := w0; remote :┆
0x5e6a0…5e6c0 3d 20 77 30 3b 0a 20 20 20 20 73 69 67 6e 20 20 20 3a 3d 20 77 30 3b 0a 20 20 20 20 70 61 72 74 ┆= w0; sign := w0; part┆
0x5e6c0…5e6e0 69 61 6c 20 3a 3d 20 77 30 3b 0a 20 20 20 20 63 6f 6d 6d 61 6e 64 3a 3d 20 77 30 20 3a 3d 20 2d ┆ial := w0; command:= w0 := -┆
0x5e6e0…5e6fc 20 31 3b 0a 20 20 20 20 70 61 72 61 6d 73 20 3a 3d 20 77 30 20 3a 3d 20 2d 20 31 3b ┆ 1; params := w0 := - 1;┆
0x5e6fc…5e702 (0x324,0xbcf)
0x5e702…5e720 0a 20 20 20 20 73 74 61 74 65 20 3a 3d 20 77 31 20 3a 3d 20 31 3b 0a 20 20 20 20 77 68 69 ┆ state := w1 := 1; whi┆
0x5e720…5e740 6c 65 20 77 31 20 3e 20 30 20 64 6f 20 0a 20 20 20 20 62 65 67 69 6e 0a 0a 20 20 20 20 20 20 77 ┆le w1 > 0 do begin w┆
0x5e740…5e760 30 20 3a 3d 20 30 3b 0a 20 20 20 20 20 20 77 68 69 6c 65 20 77 30 20 3d 20 30 20 64 6f 0a 20 20 ┆0 := 0; while w0 = 0 do ┆
0x5e760…5e77a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 6e 65 78 74 63 68 61 72 ┆ begin nextchar┆
0x5e77a…5e780 (0x324,0xbd0)
0x5e780…5e7a0 20 28 2e 77 33 2e 2c 77 33 3a 3d 73 74 6f 70 5f 61 2c 77 30 2c 77 31 3a 3d 70 61 72 74 69 61 6c ┆ (.w3.,w3:=stop_a,w0,w1:=partial┆
0x5e7a0…5e7c0 2c 77 32 3a 3d 62 75 66 5f 61 29 3b 0a 20 20 20 20 20 20 20 20 70 61 72 74 69 61 6c 20 3a 3d 20 ┆,w2:=buf_a); partial := ┆
0x5e7c0…5e7e0 77 31 3b 0a 20 20 20 20 20 20 20 20 62 75 66 5f 61 20 20 20 3a 3d 20 77 32 3b 0a 20 20 20 20 20 ┆w1; buf_a := w2; ┆
0x5e7e0…5e800 20 20 20 63 68 61 72 20 20 20 20 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ char := w0; ┆
0x5e800…5e806 (756,) (0x324,0xbd1)
0x5e806…5e820 65 6e 64 3b 0a 20 20 20 20 20 20 77 32 20 3a 3d 20 63 68 61 72 3b 0a 20 20 20 ┆end; w2 := char; ┆
0x5e820…5e840 20 20 20 69 66 20 77 32 20 3e 20 39 36 20 74 68 65 6e 20 69 66 20 77 32 20 3c 20 31 32 36 20 74 ┆ if w2 > 96 then if w2 < 126 t┆
0x5e840…5e860 68 65 6e 20 20 77 31 20 3a 3d 20 36 20 21 20 20 61 6c 66 61 20 20 21 0a 20 20 20 20 20 20 65 6c ┆hen w1 := 6 ! alfa ! el┆
0x5e860…5e87e 73 65 20 77 31 20 3a 3d 20 38 20 65 6c 73 65 0a 20 20 20 20 20 20 69 66 20 77 32 20 3d 20 ┆se w1 := 8 else if w2 = ┆
0x5e87e…5e884 (0x324,0xbd2)
0x5e884…5e8a0 36 34 20 74 68 65 6e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 ┆64 then w1┆
0x5e8a0…5e8c0 20 3a 3d 20 34 20 21 20 20 22 40 22 20 20 20 21 0a 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 ┆ := 4 ! "@" ! else ┆
0x5e8c0…5e8e0 20 20 69 66 20 77 32 20 3e 20 34 37 20 74 68 65 6e 20 69 66 20 77 32 20 3c 20 20 35 38 20 74 68 ┆ if w2 > 47 then if w2 < 58 th┆
0x5e8e0…5e8fc 65 6e 20 20 77 31 20 3a 3d 20 35 20 21 20 20 64 69 67 69 74 20 21 0a 20 20 20 20 20 ┆en w1 := 5 ! digit ! ┆
0x5e8fc…5e902 (0x324,0xbd3)
0x5e902…5e920 20 65 6c 73 65 20 77 31 20 3a 3d 20 38 20 65 6c 73 65 0a 20 20 20 20 20 20 69 66 20 77 32 ┆ else w1 := 8 else if w2┆
0x5e920…5e940 20 3d 20 33 32 20 74 68 65 6e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 20 ┆ = 32 then w1 ┆
0x5e940…5e960 3a 3d 20 31 20 21 20 20 73 70 61 63 65 20 21 0a 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 ┆:= 1 ! space ! else ┆
0x5e960…5e97a 20 69 66 20 77 32 20 3d 20 34 35 20 74 68 65 6e 20 20 20 20 20 20 20 20 20 20 ┆ if w2 = 45 then ┆
0x5e97a…5e980 (0x324,0xbd4)
0x5e980…5e9a0 20 20 20 20 20 20 20 20 20 77 31 20 3a 3d 20 32 20 21 20 20 73 69 67 6e 20 20 21 0a 20 20 20 20 ┆ w1 := 2 ! sign ! ┆
0x5e9a0…5e9c0 20 20 65 6c 73 65 0a 20 20 20 20 20 20 69 66 20 77 32 20 3d 20 34 33 20 74 68 65 6e 20 20 20 20 ┆ else if w2 = 43 then ┆
0x5e9c0…5e9e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 20 3a 3d 20 32 20 21 20 20 73 69 67 6e 20 20 ┆ w1 := 2 ! sign ┆
0x5e9e0…5ea00 21 0a 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 69 66 20 77 32 00 00 00 00 00 00 00 00 ┆! else if w2 ┆
0x5ea00…5ea06 (757,) (0x324,0xbd5)
0x5ea06…5ea20 20 3d 20 34 36 20 74 68 65 6e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ = 46 then ┆
0x5ea20…5ea40 20 20 20 77 31 20 3a 3d 20 33 20 21 20 20 70 6b 74 2e 20 20 21 0a 20 20 20 20 20 20 65 6c 73 65 ┆ w1 := 3 ! pkt. ! else┆
0x5ea40…5ea60 0a 20 20 20 20 20 20 69 66 20 77 32 20 3d 20 31 30 20 74 68 65 6e 20 20 20 20 20 20 20 20 20 20 ┆ if w2 = 10 then ┆
0x5ea60…5ea7e 20 20 20 20 20 20 20 20 20 77 31 20 3a 3d 20 37 20 21 20 20 6e 6c 69 6e 65 20 21 0a 20 20 ┆ w1 := 7 ! nline ! ┆
0x5ea7e…5ea84 (0x324,0xbd6)
0x5ea84…5eaa0 20 20 20 20 65 6c 73 65 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ else ┆
0x5eaa0…5eac0 20 20 20 20 20 20 20 20 20 20 77 31 20 3a 3d 20 38 3b 21 20 20 65 72 72 6f 72 20 21 0a 0a 20 20 ┆ w1 := 8;! error ! ┆
0x5eac0…5eae0 20 20 20 20 21 20 77 32 20 20 3d 20 20 63 68 61 72 20 20 76 61 6c 75 65 20 21 0a 20 20 20 20 20 ┆ ! w2 = char value ! ┆
0x5eae0…5eafc 20 21 20 77 31 20 20 3d 20 20 63 68 61 72 20 20 63 6c 61 73 73 20 21 0a 0a 20 20 20 ┆ ! w1 = char class ! ┆
0x5eafc…5eb02 (0x324,0xbd7)
0x5eb02…5eb20 20 20 20 20 63 68 61 72 20 3a 3d 20 77 32 3b 0a 0a 20 20 20 20 20 20 77 31 2d 31 3b 77 31 ┆ char := w2; w1-1;w1┆
0x5eb20…5eb40 20 6c 73 68 69 66 74 20 31 3b 77 31 20 2b 20 31 3b 0a 20 20 20 20 20 20 77 33 20 3a 3d 20 73 74 ┆ lshift 1;w1 + 1; w3 := st┆
0x5eb40…5eb60 61 74 65 20 3b 0a 20 20 20 20 20 20 77 33 2d 31 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ate ; w3-1; ┆
0x5eb60…5eb7a 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 20 73 74 61 74 65 5f 61 63 74 69 ┆ ! state_acti┆
0x5eb7a…5eb80 (0x324,0xbd8)
0x5eb80…5eba0 6f 6e 20 3a 3d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 0a 20 20 20 20 20 20 77 33 ┆on := ! w3┆
0x5eba0…5ebc0 20 6c 73 68 69 66 74 20 34 20 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 ┆ lshift 4 ; !┆
0x5ebc0…5ebe0 20 20 73 74 61 74 65 5f 61 63 74 69 6f 6e 20 28 20 73 74 61 74 65 2c 63 6c 61 73 73 29 3b 20 21 ┆ state_action ( state,class); !┆
0x5ebe0…5ec00 0a 20 20 20 20 20 20 77 31 20 2b 20 77 33 20 3b 0a 20 20 20 20 20 20 73 00 00 00 00 00 00 00 00 ┆ w1 + w3 ; s ┆
0x5ec00…5ec06 (758,) (0x324,0xbd9)
0x5ec06…5ec20 74 61 74 65 20 3a 3d 20 77 30 20 3a 3d 20 28 73 74 61 74 65 5f 61 63 74 69 6f ┆tate := w0 := (state_actio┆
0x5ec20…5ec40 6e 28 77 33 3a 3d 77 31 29 29 2e 62 79 74 65 3b 0a 20 20 20 20 20 20 61 63 74 69 6f 6e 3a 3d 20 ┆n(w3:=w1)).byte; action:= ┆
0x5ec40…5ec60 77 30 20 3a 3d 20 28 73 74 61 74 65 5f 61 63 74 69 6f 6e 28 77 33 3a 3d 77 31 2b 31 29 29 2e 62 ┆w0 := (state_action(w3:=w1+1)).b┆
0x5ec60…5ec7e 79 74 65 3b 0a 0a 20 20 20 20 20 20 63 61 73 65 20 77 31 20 3a 3d 20 61 63 74 69 6f 6e 20 ┆yte; case w1 := action ┆
0x5ec7e…5ec84 (0x324,0xbda)
0x5ec84…5eca0 6f 66 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e ┆of begin begin┆
0x5eca0…5ecc0 20 65 6e 64 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 20 65 6d 70 ┆ end; ! emp┆
0x5ecc0…5ece0 74 79 20 61 63 74 69 6f 6e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 0a 20 20 ┆ty action ! ┆
0x5ece0…5ecfc 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 73 74 61 72 74 20 6e 61 ┆ begin comment start na┆
0x5ecfc…5ed02 (0x324,0xbdb)
0x5ed02…5ed20 6d 65 20 2d 20 20 61 63 74 69 6f 6e 20 3d 20 32 3b 0a 0a 20 20 20 20 20 20 20 20 20 20 74 ┆me - action = 2; t┆
0x5ed20…5ed40 79 70 65 20 3a 3d 20 77 30 20 3a 3d 20 34 3b 0a 20 20 20 20 20 20 20 20 20 20 77 32 20 6c 73 68 ┆ype := w0 := 4; w2 lsh┆
0x5ed40…5ed60 69 66 74 20 31 36 3b 0a 20 20 20 20 20 20 20 20 20 20 74 78 74 31 20 3a 3d 20 77 32 3b 0a 20 20 ┆ift 16; txt1 := w2; ┆
0x5ed60…5ed7a 20 20 20 20 20 20 20 20 77 30 20 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 20 ┆ w0 := 0; ┆
0x5ed7a…5ed80 (0x324,0xbdc)
0x5ed80…5eda0 20 74 78 74 32 20 3a 3d 20 77 30 3b 20 74 78 74 33 20 3a 3d 20 77 30 3b 20 74 78 74 34 20 3a 3d ┆ txt2 := w0; txt3 := w0; txt4 :=┆
0x5eda0…5edc0 20 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 70 61 72 61 6d 73 20 3a 3d 20 77 30 20 3a 3d 20 70 ┆ w0; params := w0 := p┆
0x5edc0…5ede0 61 72 61 6d 73 20 2b 20 31 3b 0a 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 20 20 21 20 65 6e 64 20 ┆arams + 1; end; ! end ┆
0x5ede0…5ee00 73 74 61 72 74 20 6e 61 6d 65 20 20 20 2d 20 20 61 63 74 69 6f 6e 20 3d 00 00 00 00 00 00 00 00 ┆start name - action = ┆
0x5ee00…5ee06 (759,) (0x324,0xbdd)
0x5ee06…5ee20 20 32 21 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 ┆ 2! begin comment ┆
0x5ee20…5ee40 65 6e 64 20 77 69 74 68 20 73 70 61 63 65 20 2d 20 20 61 63 74 69 6f 6e 20 3d 20 33 3b 0a 0a 20 ┆end with space - action = 3; ┆
0x5ee40…5ee60 20 20 20 20 20 20 20 20 20 69 66 20 77 30 20 3a 3d 20 70 61 72 61 6d 73 20 3d 20 30 20 74 68 65 ┆ if w0 := params = 0 the┆
0x5ee60…5ee7e 6e 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆n begin ┆
0x5ee7e…5ee84 (0x324,0xbde)
0x5ee84…5eea0 69 64 63 6f 6d 6d 61 6e 64 28 2e 77 33 2e 2c 77 30 2c 77 31 3a 3d 61 64 64 72 65 73 ┆idcommand(.w3.,w0,w1:=addres┆
0x5eea0…5eec0 73 28 74 78 74 31 29 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 73 74 61 72 74 29 29 3b 0a 20 20 20 ┆s(txt1),w2:=address(start)); ┆
0x5eec0…5eee0 20 20 20 20 20 20 20 20 20 63 6f 6d 6d 61 6e 64 20 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 20 ┆ command := w0; ┆
0x5eee0…5eefc 20 20 20 20 69 66 20 77 30 20 3d 20 30 20 74 68 65 6e 20 73 74 61 74 65 20 3a 3d 20 ┆ if w0 = 0 then state := ┆
0x5eefc…5ef02 (0x324,0xbdf)
0x5ef02…5ef20 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 20 65 6c 73 65 0a 20 20 20 20 20 20 20 ┆w0; end else ┆
0x5ef20…5ef40 20 20 20 69 66 20 77 30 20 3a 3d 20 70 61 72 61 6d 73 20 3c 20 36 20 74 68 65 6e 0a 20 20 20 20 ┆ if w0 := params < 6 then ┆
0x5ef40…5ef60 20 20 20 20 20 20 62 65 67 69 6e 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 33 20 3a 3d 20 73 ┆ begin w3 := s┆
0x5ef60…5ef7a 65 70 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 33 20 6c 73 68 69 66 74 20 ┆ep; w3 lshift ┆
0x5ef7a…5ef80 (0x324,0xbe0)
0x5ef80…5efa0 31 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 30 20 3a 3d 20 74 79 70 65 20 3b 0a 20 20 20 ┆12; w0 := type ; ┆
0x5efa0…5efc0 20 20 20 20 20 20 20 20 20 77 30 20 6f 72 20 72 65 6d 6f 74 65 3b 20 77 30 20 6f 72 20 73 69 67 ┆ w0 or remote; w0 or sig┆
0x5efc0…5efe0 6e 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 20 3e 3d 20 34 20 74 68 65 6e 20 77 ┆n; if w0 >= 4 then w┆
0x5efe0…5f000 31 20 3a 3d 20 61 64 64 72 65 73 73 20 28 74 78 74 31 29 20 65 6c 73 65 00 00 00 00 00 00 00 00 ┆1 := address (txt1) else ┆
0x5f000…5f006 (760,) (0x324,0xbe1)
0x5f006…5f020 0a 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 ┆ ┆
0x5f020…5f040 20 20 20 77 31 20 3a 3d 20 61 64 64 72 65 73 73 20 28 76 61 6c 75 65 29 20 2b 20 32 3b 0a 20 20 ┆ w1 := address (value) + 2; ┆
0x5f040…5f060 20 20 20 20 20 20 20 20 20 20 77 30 2b 77 33 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 64 65 6c ┆ w0+w3; del┆
0x5f060…5f07e 69 76 65 72 63 6d 64 20 28 2e 77 33 2e 2c 77 33 3a 3d 77 31 2c 77 33 3a 3d 77 30 2c 77 33 ┆ivercmd (.w3.,w3:=w1,w3:=w0,w3┆
0x5f07e…5f084 (0x324,0xbe2)
0x5f084…5f0a0 3a 3d 61 64 64 72 65 73 73 28 73 74 61 63 6b 29 2c 77 33 3a 3d 61 64 64 72 65 73 73 ┆:=address(stack),w3:=address┆
0x5f0a0…5f0c0 28 70 61 72 6d 73 74 61 63 6b 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3a ┆(parmstack)); if w0:┆
0x5f0c0…5f0e0 3d 20 70 61 72 61 6d 73 3d 31 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 ┆= params=1 then begi┆
0x5f0e0…5f0fc 6e 20 63 6f 6d 6d 65 6e 74 20 61 64 64 20 68 6f 73 74 6e 6f 2c 20 68 6f 73 74 69 64 ┆n comment add hostno, hostid┆
0x5f0fc…5f102 (0x324,0xbe3)
0x5f102…5f120 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 20 28 77 33 3a 3d 62 2e 63 75 ┆; w1:= (w3:=b.cu┆
0x5f120…5f140 72 72 65 6e 74 29 2e 6f 70 72 5f 68 6f 73 74 6e 6f 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆rrent).opr_hostno; ┆
0x5f140…5f160 20 77 30 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 76 61 6c 75 65 3a 3d 20 66 31 ┆ w0:=0; value:= f1┆
0x5f160…5f17a 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 65 6c 69 76 65 72 63 6d 64 ┆; delivercmd┆
0x5f17a…5f180 (0x324,0xbe4)
0x5f180…5f1a0 28 2e 77 33 2e 2c 77 33 3a 3d 61 64 64 72 65 73 73 28 76 61 6c 75 65 29 2b 32 2c 77 33 3a 3d 38 ┆(.w3.,w3:=address(value)+2,w3:=8┆
0x5f1a0…5f1c0 20 6c 73 68 69 66 74 20 31 32 20 2b 20 32 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ lshift 12 + 2, ┆
0x5f1c0…5f1e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 20 61 64 64 72 65 73 73 28 73 74 61 63 6b ┆ w3:= address(stack┆
0x5f1e0…5f200 29 2c 77 33 3a 3d 20 61 64 64 72 65 73 73 28 70 61 72 6d 73 74 61 63 6b 00 00 00 00 00 00 00 00 ┆),w3:= address(parmstack ┆
0x5f200…5f206 (761,) (0x324,0xbe5)
0x5f206…5f220 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 20 28 77 33 ┆)); w1:= (w3┆
0x5f220…5f240 3a 3d 62 2e 63 75 72 72 65 6e 74 29 2e 6f 70 72 5f 68 6f 73 74 69 64 3b 0a 20 20 20 20 20 20 20 ┆:=b.current).opr_hostid; ┆
0x5f240…5f260 20 20 20 20 20 20 20 77 30 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 76 61 6c 75 ┆ w0:=0; valu┆
0x5f260…5f27e 65 3a 3d 20 66 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 65 6c 69 76 65 72 63 ┆e:= f1; deliverc┆
0x5f27e…5f284 (0x324,0xbe6)
0x5f284…5f2a0 6d 64 28 2e 77 33 2e 2c 77 33 3a 3d 20 61 64 64 72 65 73 73 28 76 61 6c 75 65 29 2b ┆md(.w3.,w3:= address(value)+┆
0x5f2a0…5f2c0 32 2c 77 33 3a 3d 38 20 6c 73 68 69 66 74 20 31 32 2b 32 2c 0a 20 20 20 20 20 20 20 20 20 20 20 ┆2,w3:=8 lshift 12+2, ┆
0x5f2c0…5f2e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 20 61 64 64 72 65 73 73 28 ┆ w3:= address(┆
0x5f2e0…5f2fc 73 74 61 63 6b 29 2c 77 33 3a 3d 20 61 64 64 72 65 73 73 28 70 61 72 6d 73 74 61 63 ┆stack),w3:= address(parmstac┆
0x5f2fc…5f302 (0x324,0xbe7)
0x5f302…5f320 6b 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 61 72 61 6d 73 3a 3d 20 77 30 ┆k)); params:= w0┆
0x5f320…5f340 3a 3d 20 33 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 20 21 20 65 6e 64 20 61 64 64 ┆:= 3; end; ! end add┆
0x5f340…5f360 20 68 6f 73 74 73 70 65 63 20 74 6f 20 63 6f 6d 6d 61 6e 64 20 21 0a 20 20 20 20 20 20 20 20 20 ┆ hostspec to command ! ┆
0x5f360…5f37a 20 20 20 73 65 70 20 3a 3d 20 77 30 20 3a 3d 20 34 3b 0a 20 20 20 20 20 20 20 ┆ sep := w0 := 4; ┆
0x5f37a…5f380 (0x324,0xbe8)
0x5f380…5f3a0 20 20 20 65 6e 64 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 ┆ end else begin ┆
0x5f3a0…5f3c0 20 20 20 20 20 20 20 20 63 6f 6d 6d 61 6e 64 20 3a 3d 20 77 30 20 3a 3d 20 2d 20 32 3b 0a 20 20 ┆ command := w0 := - 2; ┆
0x5f3c0…5f3e0 20 20 20 20 20 20 20 20 20 20 73 74 61 74 65 20 20 20 3a 3d 20 77 30 20 3a 3d 20 20 20 30 3b 0a ┆ state := w0 := 0; ┆
0x5f3e0…5f400 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ end; ┆
0x5f400…5f406 (762,) (0x324,0xbe9)
0x5f406…5f420 20 74 79 70 65 20 3a 3d 20 77 30 20 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 ┆ type := w0 := 0; ┆
0x5f420…5f440 20 20 72 65 6d 6f 74 65 20 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 73 69 67 6e 20 3a ┆ remote := w0; sign :┆
0x5f440…5f460 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 20 20 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 20 20 21 20 ┆= w0; end; ! ┆
0x5f460…5f47e 20 65 6e 64 20 65 6e 64 20 77 69 74 68 20 73 70 61 63 65 20 2d 20 20 61 63 74 69 6f 6e 20 ┆ end end with space - action ┆
0x5f47e…5f484 (0x324,0xbea)
0x5f484…5f4a0 3d 20 33 21 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 65 ┆= 3! begin comment e┆
0x5f4a0…5f4c0 6e 64 20 77 69 74 68 20 70 75 6e 63 74 75 61 74 69 6f 6e 20 2d 20 20 61 63 74 69 6f 6e 20 3d 20 ┆nd with punctuation - action = ┆
0x5f4c0…5f4e0 34 3b 0a 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 20 3a 3d 20 70 61 72 61 6d 73 20 3e 20 ┆4; if w0 := params > ┆
0x5f4e0…5f4fc 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 ┆0 then begin ┆
0x5f4fc…5f502 (0x324,0xbeb)
0x5f502…5f520 20 20 20 20 20 20 20 69 66 20 77 30 20 3c 20 35 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 ┆ if w0 < 5 then ┆
0x5f520…5f540 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 33 20 3a 3d 20 73 65 ┆ begin w3 := se┆
0x5f540…5f560 70 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 33 20 6c 73 68 69 66 74 20 31 32 3b 0a 20 ┆p; w3 lshift 12; ┆
0x5f560…5f57a 20 20 20 20 20 20 20 20 20 20 20 20 20 77 30 20 3a 3d 20 74 79 70 65 3b 0a 20 ┆ w0 := type; ┆
0x5f57a…5f580 (0x324,0xbec)
0x5f580…5f5a0 20 20 20 20 20 20 20 20 20 20 20 20 20 77 30 20 6f 72 20 72 65 6d 6f 74 65 3b 0a 20 20 20 20 20 ┆ w0 or remote; ┆
0x5f5a0…5f5c0 20 20 20 20 20 20 20 20 20 77 30 20 6f 72 20 73 69 67 6e 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ w0 or sign; ┆
0x5f5c0…5f5e0 20 20 20 69 66 20 77 30 20 3e 3d 20 34 20 74 68 65 6e 20 77 31 20 3a 3d 20 61 64 64 72 65 73 73 ┆ if w0 >= 4 then w1 := address┆
0x5f5e0…5f600 28 74 78 74 31 29 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆(txt1) else ┆
0x5f600…5f606 (763,) (0x324,0xbed)
0x5f606…5f620 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 20 3a 3d 20 61 64 ┆ w1 := ad┆
0x5f620…5f640 64 72 65 73 73 28 76 61 6c 75 65 29 20 2b 20 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆dress(value) + 2; ┆
0x5f640…5f660 77 30 2b 77 33 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 65 6c 69 76 65 72 63 6d 64 28 ┆w0+w3; delivercmd(┆
0x5f660…5f67e 2e 77 33 2e 2c 77 33 3a 3d 77 31 2c 77 33 3a 3d 77 30 2c 77 33 3a 3d 61 64 64 72 65 73 73 ┆.w3.,w3:=w1,w3:=w0,w3:=address┆
0x5f67e…5f684 (0x324,0xbee)
0x5f684…5f6a0 28 73 74 61 63 6b 29 2c 77 33 3a 3d 61 64 64 72 65 73 73 28 70 61 72 6d 73 74 61 63 ┆(stack),w3:=address(parmstac┆
0x5f6a0…5f6c0 6b 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 20 70 61 72 61 6d ┆k)); if w0:= param┆
0x5f6c0…5f6e0 73 3d 31 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 ┆s=1 then begin ┆
0x5f6e0…5f6fc 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3c 3e 72 65 6d 6f 74 65 20 74 ┆ if w0<>remote t┆
0x5f6fc…5f702 (0x324,0xbef)
0x5f702…5f720 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 ┆hen begin ┆
0x5f720…5f740 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6d 6d 61 6e 64 3a 3d 20 77 30 3a 3d 20 2d 31 3b ┆ command:= w0:= -1;┆
0x5f740…5f760 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 74 61 74 65 3a 3d 20 77 30 3a 3d 20 ┆ state:= w0:= ┆
0x5f760…5f77a 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 ┆0; end; ┆
0x5f77a…5f780 (0x324,0xbf0)
0x5f780…5f7a0 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 ┆ end; end┆
0x5f7a0…5f7c0 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 ┆ else begin ┆
0x5f7c0…5f7e0 20 20 20 20 20 20 63 6f 6d 6d 61 6e 64 20 3a 3d 20 77 30 20 3a 3d 20 2d 20 32 3b 0a 20 20 20 20 ┆ command := w0 := - 2; ┆
0x5f7e0…5f800 20 20 20 20 20 20 20 20 20 20 73 74 61 74 65 20 20 20 3a 3d 20 77 30 20 00 00 00 00 00 00 00 00 ┆ state := w0 ┆
0x5f800…5f806 (764,) (0x324,0xbf1)
0x5f806…5f820 3a 3d 20 20 20 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 ┆:= 0; end; ┆
0x5f820…5f840 20 20 20 20 20 20 20 20 20 65 6e 64 20 65 6c 73 65 20 73 74 61 74 65 20 3a 3d 20 77 30 20 3a 3d ┆ end else state := w0 :=┆
0x5f840…5f860 20 38 3b 0a 20 20 20 20 20 20 20 20 20 20 73 65 70 20 3a 3d 20 77 30 20 3a 3d 20 38 3b 0a 20 20 ┆ 8; sep := w0 := 8; ┆
0x5f860…5f87e 20 20 20 20 20 20 20 20 77 30 20 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 20 20 74 79 70 ┆ w0 := 0; typ┆
0x5f87e…5f884 (0x324,0xbf2)
0x5f884…5f8a0 65 20 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 72 65 6d 6f 74 65 20 3a 3d ┆e := w0; remote :=┆
0x5f8a0…5f8c0 20 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 73 69 67 6e 20 3a 3d 20 77 30 3b 0a 20 20 20 20 20 ┆ w0; sign := w0; ┆
0x5f8c0…5f8e0 20 20 20 65 6e 64 3b 20 20 21 20 20 65 6e 64 20 65 6e 64 20 77 69 74 68 20 70 75 6e 63 74 75 61 ┆ end; ! end end with punctua┆
0x5f8e0…5f8fc 74 69 6f 6e 20 2d 20 20 61 63 74 69 6f 6e 20 3d 20 34 20 21 0a 20 20 20 20 20 20 20 ┆tion - action = 4 ! ┆
0x5f8fc…5f902 (0x324,0xbf3)
0x5f902…5f920 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 62 75 69 6c 64 20 6e 61 6d 65 20 2d 20 20 61 ┆ begin comment build name - a┆
0x5f920…5f940 63 74 69 6f 6e 20 3d 20 35 3b 0a 0a 20 20 20 20 20 20 20 20 20 20 77 31 20 3a 3d 20 31 3b 0a 20 ┆ction = 5; w1 := 1; ┆
0x5f940…5f960 20 20 20 20 20 20 20 20 20 77 68 69 6c 65 20 77 31 20 3e 20 30 20 64 6f 0a 20 20 20 20 20 20 20 ┆ while w1 > 0 do ┆
0x5f960…5f97a 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 63 61 73 65 20 ┆ begin case ┆
0x5f97a…5f980 (0x324,0xbf4)
0x5f980…5f9a0 77 31 20 6f 66 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 ┆w1 of begin ┆
0x5f9a0…5f9c0 20 20 20 20 20 20 77 30 3a 3d 74 78 74 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 30 ┆ w0:=txt1; w0┆
0x5f9c0…5f9e0 3a 3d 74 78 74 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 74 78 74 33 3b 0a ┆:=txt2; w0:=txt3; ┆
0x5f9e0…5fa00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 74 78 74 34 3b 0a 00 00 00 00 00 00 00 00 ┆ w0:=txt4; ┆
0x5fa00…5fa06 (765,) (0x324,0xbf5)
0x5fa06…5fa20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 0a 20 20 20 20 20 20 20 20 ┆ end; ┆
0x5fa20…5fa40 20 20 20 20 69 66 20 77 30 20 3d 20 20 20 20 20 20 20 20 20 20 20 20 30 20 74 68 65 6e 20 77 33 ┆ if w0 = 0 then w3┆
0x5fa40…5fa60 20 3a 3d 20 31 36 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 20 20 7a ┆ := 16 else if w0 z┆
0x5fa60…5fa7e 65 72 6f 6d 61 73 6b 20 38 31 39 32 20 74 68 65 6e 20 77 33 20 3a 3d 20 20 38 20 65 6c 73 ┆eromask 8192 then w3 := 8 els┆
0x5fa7e…5fa84 (0x324,0xbf6)
0x5fa84…5faa0 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 20 20 7a 65 72 6f 6d 61 73 ┆e if w0 zeromas┆
0x5faa0…5fac0 6b 20 20 20 33 32 20 74 68 65 6e 20 77 33 20 3a 3d 20 20 30 20 65 6c 73 65 0a 20 20 20 20 20 20 ┆k 32 then w3 := 0 else ┆
0x5fac0…5fae0 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 20 20 ┆ ┆
0x5fae0…5fafc 77 33 20 3a 3d 20 2d 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 33 20 ┆w3 := -1; if w3 ┆
0x5fafc…5fb02 (0x324,0xbf7)
0x5fb02…5fb20 3e 20 2d 31 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 ┆> -1 then begin ┆
0x5fb20…5fb40 20 20 20 20 20 20 20 20 20 20 20 20 77 32 20 6c 73 68 69 66 74 20 77 33 3b 0a 20 20 20 20 20 20 ┆ w2 lshift w3; ┆
0x5fb40…5fb60 20 20 20 20 20 20 20 20 77 30 20 6f 72 20 77 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ w0 or w2; ┆
0x5fb60…5fb7a 63 61 73 65 20 77 31 20 6f 66 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 ┆case w1 of b┆
0x5fb7a…5fb80 (0x324,0xbf8)
0x5fb80…5fba0 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 78 74 31 20 3a 3d 20 77 30 3b ┆egin txt1 := w0;┆
0x5fba0…5fbc0 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 78 74 32 20 3a 3d 20 77 30 3b 0a 20 20 20 ┆ txt2 := w0; ┆
0x5fbc0…5fbe0 20 20 20 20 20 20 20 20 20 20 20 20 20 74 78 74 33 20 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 ┆ txt3 := w0; ┆
0x5fbe0…5fc00 20 20 20 20 20 20 20 20 20 69 66 20 77 33 20 3d 20 30 20 74 68 65 6e 20 00 00 00 00 00 00 00 00 ┆ if w3 = 0 then ┆
0x5fc00…5fc06 (766,) (0x324,0xbf9)
0x5fc06…5fc20 73 74 61 74 65 20 3a 3d 20 77 30 20 3a 3d 20 38 20 65 6c 73 65 20 74 78 74 34 ┆state := w0 := 8 else txt4┆
0x5fc20…5fc40 20 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 ┆ := w0; end; ┆
0x5fc40…5fc60 20 20 20 20 20 20 20 20 20 77 31 20 3a 3d 20 2d 20 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ w1 := - 1; ┆
0x5fc60…5fc7e 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 31 2b 31 3b 0a 20 20 20 20 20 20 20 ┆end; w1+1; ┆
0x5fc7e…5fc84 (0x324,0xbfa)
0x5fc84…5fca0 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 20 20 21 20 20 65 6e 64 ┆ end; end; ! end┆
0x5fca0…5fcc0 20 62 75 69 6c 64 20 6e 61 6d 65 20 20 2d 20 20 61 63 74 69 6f 6e 20 3d 20 35 20 21 0a 20 20 20 ┆ build name - action = 5 ! ┆
0x5fcc0…5fce0 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 65 6e 64 20 77 69 74 68 20 6e 65 77 6c ┆ begin comment end with newl┆
0x5fce0…5fcfc 69 6e 65 20 2d 20 20 61 63 74 69 6f 6e 20 3d 20 36 3b 0a 0a 20 20 20 20 20 20 20 20 ┆ine - action = 6; ┆
0x5fcfc…5fd02 (0x324,0xbfb)
0x5fd02…5fd20 20 20 69 66 20 77 30 20 3a 3d 20 70 61 72 61 6d 73 20 20 3c 20 30 20 74 68 65 6e 20 63 6f ┆ if w0 := params < 0 then co┆
0x5fd20…5fd40 6d 6d 61 6e 64 20 3a 3d 20 77 30 20 3a 3d 20 2d 34 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 ┆mmand := w0 := -4 else ┆
0x5fd40…5fd60 20 69 66 20 77 30 20 3a 3d 20 70 61 72 61 6d 73 20 3d 20 30 20 74 68 65 6e 0a 20 20 20 20 20 20 ┆ if w0 := params = 0 then ┆
0x5fd60…5fd7a 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 69 64 65 6e 74 69 66 79 ┆ begin comment identify┆
0x5fd7a…5fd80 (0x324,0xbfc)
0x5fd80…5fda0 20 63 6f 6d 6d 61 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 64 63 6f 6d 6d 61 6e 64 28 ┆ command; idcommand(┆
0x5fda0…5fdc0 2e 77 33 2e 2c 77 30 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 74 78 74 31 29 2c 77 32 3a 3d 61 64 ┆.w3.,w0,w1:=address(txt1),w2:=ad┆
0x5fdc0…5fde0 64 72 65 73 73 28 73 74 61 72 74 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6d 6d 61 ┆dress(start)); comma┆
0x5fde0…5fe00 6e 64 20 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 00 00 00 00 00 00 00 00 ┆nd := w0; if ┆
0x5fe00…5fe06 (767,) (0x324,0xbfd)
0x5fe06…5fe20 20 77 30 20 3e 20 30 20 74 68 65 6e 20 70 61 72 61 6d 73 20 3a 3d 20 77 30 20 ┆ w0 > 0 then params := w0 ┆
0x5fe20…5fe40 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 20 65 6c 73 65 0a 20 20 20 20 20 20 20 ┆:= 0; end else ┆
0x5fe40…5fe60 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 20 3a 3d 20 74 79 70 65 ┆ begin if w0 := type┆
0x5fe60…5fe7e 20 3e 20 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 ┆ > 0 then begin ┆
0x5fe7e…5fe84 (0x324,0xbfe)
0x5fe84…5fea0 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 20 3a 3d 20 70 61 72 61 6d 73 20 ┆ if w0 := params ┆
0x5fea0…5fec0 3c 20 36 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 ┆< 6 then begin ┆
0x5fec0…5fee0 20 20 20 20 20 20 20 20 20 20 20 20 20 77 33 20 3a 3d 20 73 65 70 3b 0a 20 20 20 20 20 20 20 20 ┆ w3 := sep; ┆
0x5fee0…5fefc 20 20 20 20 20 20 20 20 77 33 20 6c 73 68 69 66 74 20 31 32 3b 0a 20 20 20 20 20 20 ┆ w3 lshift 12; ┆
0x5fefc…5ff02 (0x324,0xbff)
0x5ff02…5ff20 20 20 20 20 20 20 20 20 20 20 77 30 20 3a 3d 20 74 79 70 65 3b 20 77 30 20 6f 72 20 72 65 ┆ w0 := type; w0 or re┆
0x5ff20…5ff40 6d 6f 74 65 3b 20 77 30 20 6f 72 20 73 69 67 6e 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆mote; w0 or sign; ┆
0x5ff40…5ff60 20 20 69 66 20 77 30 20 3e 3d 20 34 20 74 68 65 6e 20 77 31 20 3a 3d 20 61 64 64 72 65 73 73 28 ┆ if w0 >= 4 then w1 := address(┆
0x5ff60…5ff7a 74 78 74 31 29 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆txt1) else ┆
0x5ff7a…5ff80 (0x324,0xc00)
0x5ff80…5ffa0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 20 3a 3d 20 61 64 64 72 65 73 73 28 76 ┆ w1 := address(v┆
0x5ffa0…5ffc0 61 6c 75 65 29 20 2b 20 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 30 20 2b 20 ┆alue) + 2; w0 + ┆
0x5ffc0…5ffe0 77 33 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 65 6c 69 76 65 72 63 6d 64 20 28 ┆w3; delivercmd (┆
0x5ffe0…60000 2e 77 33 2e 2c 77 33 3a 3d 77 31 2c 77 33 3a 3d 77 30 2c 77 33 3a 3d 61 00 00 00 00 00 00 00 00 ┆.w3.,w3:=w1,w3:=w0,w3:=a ┆
0x60000…60006 (768,) (0x324,0xc01)
0x60006…60020 64 64 72 65 73 73 28 73 74 61 63 6b 29 2c 77 33 3a 3d 61 64 64 72 65 73 73 28 ┆ddress(stack),w3:=address(┆
0x60020…60040 70 61 72 6d 73 74 61 63 6b 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 ┆parmstack)); if ┆
0x60040…60060 77 30 3a 3d 20 70 61 72 61 6d 73 3d 31 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆w0:= params=1 then ┆
0x60060…6007e 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 61 64 64 20 68 6f 73 74 6e 6f 20 61 6e ┆ begin comment add hostno an┆
0x6007e…60084 (0x324,0xc02)
0x60084…600a0 64 20 68 6f 73 74 69 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆d hostid; ┆
0x600a0…600c0 77 31 3a 3d 28 77 33 3a 3d 62 2e 63 75 72 72 65 6e 74 29 2e 6f 70 72 5f 68 6f 73 74 6e 6f 3b 0a ┆w1:=(w3:=b.current).opr_hostno; ┆
0x600c0…600e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 30 3b 76 61 6c 75 65 3a 3d 20 ┆ w0:=0;value:= ┆
0x600e0…600fc 66 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 65 6c 69 76 65 ┆f1; delive┆
0x600fc…60102 (0x324,0xc03)
0x60102…60120 72 63 6d 64 28 2e 77 33 2e 2c 77 33 3a 3d 61 64 64 72 65 73 73 28 76 61 6c 75 65 29 2b 32 ┆rcmd(.w3.,w3:=address(value)+2┆
0x60120…60140 2c 77 33 3a 3d 38 20 6c 73 68 69 66 74 20 31 32 2b 32 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆,w3:=8 lshift 12+2, ┆
0x60140…60160 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 61 64 64 72 65 73 ┆ w3:=addres┆
0x60160…6017a 73 28 73 74 61 63 6b 29 2c 77 33 3a 3d 61 64 64 72 65 73 73 28 70 61 72 6d 73 ┆s(stack),w3:=address(parms┆
0x6017a…60180 (0x324,0xc04)
0x60180…601a0 74 61 63 6b 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 28 77 ┆tack)); w1:=(w┆
0x601a0…601c0 33 3a 3d 62 2e 63 75 72 72 65 6e 74 29 2e 6f 70 72 5f 68 6f 73 74 69 64 3b 0a 20 20 20 20 20 20 ┆3:=b.current).opr_hostid; ┆
0x601c0…601e0 20 20 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 30 3b 76 61 6c 75 65 3a 3d 20 66 31 3b 0a 20 20 ┆ w0:=0;value:= f1; ┆
0x601e0…60200 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 65 6c 69 76 65 72 63 00 00 00 00 00 00 00 00 ┆ deliverc ┆
0x60200…60206 (769,) (0x324,0xc05)
0x60206…60220 6d 64 28 2e 77 33 2e 2c 77 33 3a 3d 61 64 64 72 65 73 73 28 76 61 6c 75 65 29 ┆md(.w3.,w3:=address(value)┆
0x60220…60240 2b 32 2c 77 33 3a 3d 38 20 6c 73 68 69 66 74 20 31 32 2b 32 2c 0a 20 20 20 20 20 20 20 20 20 20 ┆+2,w3:=8 lshift 12+2, ┆
0x60240…60260 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 61 64 64 72 ┆ w3:=addr┆
0x60260…6027e 65 73 73 28 73 74 61 63 6b 29 2c 77 33 3a 3d 61 64 64 72 65 73 73 28 70 61 72 6d 73 74 61 ┆ess(stack),w3:=address(parmsta┆
0x6027e…60284 (0x324,0xc06)
0x60284…602a0 63 6b 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 61 72 61 ┆ck)); para┆
0x602a0…602c0 6d 73 3a 3d 20 77 30 3a 3d 20 33 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 ┆ms:= w0:= 3; end┆
0x602c0…602e0 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 20 65 6c 73 65 20 73 74 61 74 65 20 3a ┆; end else state :┆
0x602e0…602fc 3d 20 77 30 20 3a 3d 20 38 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a ┆= w0 := 8; end; ┆
0x602fc…60302 (0x324,0xc07)
0x60302…60320 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 63 6d 64 74 61 ┆ end; cmdta┆
0x60320…60340 62 6c 65 20 28 77 32 3a 3d 31 29 3b 0a 20 20 20 20 20 20 20 20 20 20 77 30 20 3a 3d 20 30 3b 0a ┆ble (w2:=1); w0 := 0; ┆
0x60340…60360 20 20 20 20 20 20 20 20 20 20 69 66 20 77 31 20 3a 3d 20 63 6f 6d 6d 61 6e 64 20 3e 20 30 20 74 ┆ if w1 := command > 0 t┆
0x60360…6037a 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 77 68 69 6c 65 20 77 30 20 3d 20 30 ┆hen while w0 = 0┆
0x6037a…60380 (0x324,0xc08)
0x60380…603a0 20 64 6f 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ do begin ┆
0x603a0…603c0 77 31 20 3a 3d 20 61 64 64 72 65 73 73 28 63 6f 6d 6d 61 6e 64 29 3b 0a 20 20 20 20 20 20 20 20 ┆w1 := address(command); ┆
0x603c0…603e0 20 20 20 20 77 30 20 3a 3d 20 28 77 32 29 2e 77 6f 72 64 20 2d 28 77 31 29 2e 77 6f 72 64 3b 0a ┆ w0 := (w2).word -(w1).word; ┆
0x603e0…60400 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 20 3c 20 30 20 74 68 00 00 00 00 00 00 00 00 ┆ if w0 < 0 th ┆
0x60400…60406 (770,) (0x324,0xc09)
0x60406…60420 65 6e 20 2d 28 77 30 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 ┆en -(w0); if w┆
0x60420…60440 30 20 3c 20 34 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d ┆0 < 4 then begin com┆
0x60440…60460 6d 65 6e 74 20 6d 61 79 62 65 20 66 6f 75 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ment maybe found; ┆
0x60460…6047e 69 66 20 77 30 20 3d 20 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 ┆if w0 = 0 then b┆
0x6047e…60484 (0x324,0xc0a)
0x60484…604a0 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 66 6f 75 6e 64 3b 0a 20 20 20 20 20 20 20 20 ┆egin comment found; ┆
0x604a0…604c0 20 20 20 20 20 20 20 20 77 33 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 ┆ w3:=0; w┆
0x604c0…604e0 32 2b 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 20 3a 3d 20 63 6d 64 72 65 ┆2+2; w1 := cmdre┆
0x604e0…604fc 66 2e 70 61 72 61 6d 74 79 70 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆f.paramtype; ┆
0x604fc…60502 (0x324,0xc0b)
0x60502…60520 20 77 68 69 6c 65 20 77 30 20 3d 20 30 20 64 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ while w0 = 0 do ┆
0x60520…60540 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 63 68 65 63 6b 20 70 61 72 61 6d 73 3b 0a 20 ┆ begin comment check params; ┆
0x60540…60560 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 30 20 3a 3d 20 28 77 32 29 2e 77 6f 72 64 ┆ w0 := (w2).word┆
0x60560…6057a 20 2d 20 28 77 31 29 2e 77 6f 72 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ - (w1).word; ┆
0x6057a…60580 (0x324,0xc0c)
0x60580…605a0 20 20 20 20 20 20 69 66 20 77 30 20 3d 20 34 30 39 36 20 74 68 65 6e 20 77 30 20 3a 3d 20 30 20 ┆ if w0 = 4096 then w0 := 0 ┆
0x605a0…605c0 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 20 3d 20 34 ┆else if w0 = 4┆
0x605c0…605e0 30 39 37 20 74 68 65 6e 20 77 30 20 3a 3d 20 30 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 ┆097 then w0 := 0 else ┆
0x605e0…60600 20 20 20 20 20 20 20 20 69 66 20 77 30 20 3d 20 20 20 20 31 20 74 68 65 00 00 00 00 00 00 00 00 ┆ if w0 = 1 the ┆
0x60600…60606 (771,) (0x324,0xc0d)
0x60606…60620 6e 20 77 30 20 3a 3d 20 30 20 65 6c 73 65 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆n w0 := 0 else; ┆
0x60620…60640 20 20 20 20 20 20 20 20 77 30 3a 3d 77 30 3b 77 31 2b 32 3b 77 32 2b 32 3b 0a 20 20 20 20 20 20 ┆ w0:=w0;w1+2;w2+2; ┆
0x60640…60660 20 20 20 20 20 20 20 20 20 20 20 20 77 33 2b 31 3b 20 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ w3+1; ┆
0x60660…6067e 20 20 20 20 65 6e 64 3b 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 ┆ end; if w┆
0x6067e…60684 (0x324,0xc0e)
0x60684…606a0 33 20 3e 20 35 20 74 68 65 6e 20 77 30 20 3a 3d 20 31 20 65 6c 73 65 0a 20 20 20 20 ┆3 > 5 then w0 := 1 else ┆
0x606a0…606c0 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 73 74 61 74 65 ┆ state┆
0x606c0…606e0 20 3a 3d 20 77 30 20 3a 3d 20 38 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 20 65 ┆ := w0 := 8; end e┆
0x606e0…606fc 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d ┆lse begin comm┆
0x606fc…60702 (0x324,0xc0f)
0x60702…60720 65 6e 74 20 74 72 79 20 69 66 20 61 6c 74 65 72 6e 61 74 65 20 64 65 73 63 72 69 70 74 6f ┆ent try if alternate descripto┆
0x60720…60740 72 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 33 20 3a 3d 20 77 32 3b 0a 20 20 20 ┆r; w3 := w2; ┆
0x60740…60760 20 20 20 20 20 20 20 20 20 20 20 20 20 77 30 20 3a 3d 20 28 77 33 2b 32 29 2e 77 6f 72 64 3b 0a ┆ w0 := (w3+2).word; ┆
0x60760…6077a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 30 20 6c 73 68 69 66 74 20 ┆ w0 lshift ┆
0x6077a…60780 (0x324,0xc10)
0x60780…607a0 2d 31 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 20 3c 3e 20 30 20 ┆-12; if w0 <> 0 ┆
0x607a0…607c0 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 ┆then begin comme┆
0x607c0…607e0 6e 74 20 61 6c 74 65 72 6e 61 74 69 76 65 20 65 78 69 73 74 73 3b 0a 20 20 20 20 20 20 20 20 20 ┆nt alternative exists; ┆
0x607e0…60800 20 20 20 20 20 20 20 20 20 77 30 20 3a 3d 20 30 3b 0a 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ w0 := 0; ┆
0x60800…60806 (772,) (0x324,0xc11)
0x60806…60820 20 20 20 20 20 20 20 20 20 20 20 20 77 32 2b 31 32 3b 0a 20 20 20 20 20 20 20 ┆ w2+12; ┆
0x60820…60840 20 20 20 20 20 20 20 20 20 65 6e 64 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ end else ┆
0x60840…60860 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 30 20 3a 3d 20 ┆ begin w0 := ┆
0x60860…6087e 28 77 32 29 2e 77 6f 72 64 20 2d 28 77 31 29 2e 77 6f 72 64 3b 0a 20 20 20 20 20 20 20 20 ┆(w2).word -(w1).word; ┆
0x6087e…60884 (0x324,0xc12)
0x60884…608a0 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 20 3c 20 30 20 74 68 65 6e 20 77 30 20 ┆ if w0 < 0 then w0 ┆
0x608a0…608c0 3a 3d 20 2d 20 32 20 20 21 20 70 6c 75 73 20 70 61 72 61 6d 20 21 0a 20 20 20 20 20 20 20 20 20 ┆:= - 2 ! plus param ! ┆
0x608c0…608e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 20 77 30 20 3a 3d 20 2d 20 ┆ else w0 := - ┆
0x608e0…608fc 33 3b 20 21 20 6d 69 6e 75 73 20 70 61 72 61 6d 21 0a 20 20 20 20 20 20 20 20 20 20 ┆3; ! minus param! ┆
0x608fc…60902 (0x324,0xc13)
0x60902…60920 20 20 20 20 20 20 20 20 63 6f 6d 6d 61 6e 64 20 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 ┆ command := w0; ┆
0x60920…60940 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b ┆ end; end;┆
0x60940…60960 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 ┆ end else ┆
0x60960…6097a 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 6e 65 78 74 20 70 61 72 61 6d ┆ begin comment next param┆
0x6097a…60980 (0x324,0xc14)
0x60980…609a0 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 32 2b 31 32 3b 0a 20 20 20 20 20 20 20 20 20 ┆; w2+12; ┆
0x609a0…609c0 20 20 20 20 20 77 30 20 3a 3d 20 28 77 32 29 2e 77 6f 72 64 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆ w0 := (w2).word; ┆
0x609c0…609e0 20 20 20 20 69 66 20 77 30 20 3e 20 30 20 74 68 65 6e 20 77 30 20 3a 3d 20 30 3b 0a 20 20 20 20 ┆ if w0 > 0 then w0 := 0; ┆
0x609e0…60a00 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 65 00 00 00 00 00 00 00 00 ┆ end; e ┆
0x60a00…60a06 (773,) (0x324,0xc15)
0x60a06…60a20 6e 64 20 65 6c 73 65 3b 20 20 21 20 20 65 6e 64 20 77 68 69 6c 65 20 21 0a 20 ┆nd else; ! end while ! ┆
0x60a20…60a40 20 20 20 20 20 20 20 65 6e 64 3b 20 20 21 20 20 65 6e 64 20 65 6e 64 20 77 69 74 68 20 6e 65 77 ┆ end; ! end end with new┆
0x60a40…60a60 6c 69 6e 65 20 2d 20 20 61 63 74 69 6f 6e 20 3d 20 36 20 21 0a 20 20 20 20 20 20 20 20 62 65 67 ┆line - action = 6 ! beg┆
0x60a60…60a7e 69 6e 20 63 6f 6d 6d 65 6e 74 20 73 74 61 72 74 20 69 6e 74 65 67 65 72 20 2d 20 20 61 63 ┆in comment start integer - ac┆
0x60a7e…60a84 (0x324,0xc16)
0x60a84…60aa0 74 69 6f 6e 20 3d 20 37 3b 0a 0a 20 20 20 20 20 20 20 20 20 20 74 79 70 65 20 3a 3d ┆tion = 7; type :=┆
0x60aa0…60ac0 20 77 30 20 3a 3d 20 32 3b 0a 20 20 20 20 20 20 20 20 20 20 77 32 20 2d 20 34 38 3b 0a 20 20 20 ┆ w0 := 2; w2 - 48; ┆
0x60ac0…60ae0 20 20 20 20 20 20 20 77 31 20 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 20 20 76 61 6c 75 65 20 ┆ w1 := 0; value ┆
0x60ae0…60afc 3a 3d 20 66 32 3b 0a 20 20 20 20 20 20 20 20 20 20 70 61 72 61 6d 73 20 3a 3d 20 77 ┆:= f2; params := w┆
0x60afc…60b02 (0x324,0xc17)
0x60b02…60b20 30 20 3a 3d 20 70 61 72 61 6d 73 20 2b 20 31 3b 0a 0a 20 20 20 20 20 20 20 20 65 6e 64 3b ┆0 := params + 1; end;┆
0x60b20…60b40 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 72 65 6d 6f 74 65 20 3a 3d ┆ begin comment remote :=┆
0x60b40…60b60 20 74 72 75 65 3b 0a 20 20 20 20 20 20 20 20 20 20 72 65 6d 6f 74 65 20 3a 3d 20 77 30 20 3a 3d ┆ true; remote := w0 :=┆
0x60b60…60b7a 20 31 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 62 ┆ 1; end; b┆
0x60b7a…60b80 (0x324,0xc18)
0x60b80…60ba0 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 62 75 69 6c 64 20 69 6e 74 65 67 65 72 20 2d 20 20 61 63 ┆egin comment build integer - ac┆
0x60ba0…60bc0 74 69 6f 6e 20 3d 20 39 3b 0a 0a 20 20 20 20 20 20 20 20 20 20 77 32 20 2d 20 34 38 3b 0a 20 20 ┆tion = 9; w2 - 48; ┆
0x60bc0…60be0 20 20 20 20 20 20 20 20 66 31 20 3a 3d 20 76 61 6c 75 65 3b 0a 20 20 20 20 20 20 20 20 20 20 77 ┆ f1 := value; w┆
0x60be0…60c00 31 20 2a 20 31 30 3b 0a 20 20 20 20 20 20 20 20 20 20 77 33 20 3a 3d 20 00 00 00 00 00 00 00 00 ┆1 * 10; w3 := ┆
0x60c00…60c06 (774,) (0x324,0xc19)
0x60c06…60c20 77 32 20 3b 20 77 32 20 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 20 20 66 31 ┆w2 ; w2 := 0; f1┆
0x60c20…60c40 20 2b 2b 20 66 33 3b 0a 20 20 20 20 20 20 20 20 20 20 77 33 20 3a 3d 20 73 69 67 6e 3b 20 2d 28 ┆ ++ f3; w3 := sign; -(┆
0x60c40…60c60 77 33 29 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 33 20 3c 3e 20 30 20 74 68 65 6e 20 77 ┆w3); if w3 <> 0 then w┆
0x60c60…60c7e 32 20 3a 3d 20 2d 20 31 20 65 6c 73 65 20 77 32 20 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 ┆2 := - 1 else w2 := 0; ┆
0x60c7e…60c84 (0x324,0xc1a)
0x60c84…60ca0 20 20 20 66 33 20 2b 2b 20 66 31 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 33 ┆ f3 ++ f1; if w3┆
0x60ca0…60cc0 20 3c 20 30 20 74 68 65 6e 20 73 74 61 74 65 20 3a 3d 20 77 33 20 3a 3d 20 38 20 65 6c 73 65 3b ┆ < 0 then state := w3 := 8 else;┆
0x60cc0…60ce0 0a 20 20 20 20 20 20 20 20 20 20 76 61 6c 75 65 20 3a 3d 20 66 31 3b 0a 20 20 20 20 20 20 20 20 ┆ value := f1; ┆
0x60ce0…60cfc 65 6e 64 3b 20 20 21 20 20 65 6e 64 20 62 75 69 6c 64 20 69 6e 74 65 67 65 72 20 2d ┆end; ! end build integer -┆
0x60cfc…60d02 (0x324,0xc1b)
0x60d02…60d20 20 20 61 63 74 69 6f 6e 20 3d 20 39 21 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f ┆ action = 9! begin co┆
0x60d20…60d40 6d 6d 65 6e 74 20 73 65 74 20 73 69 67 6e 20 2d 20 20 61 63 74 69 6f 6e 20 3d 20 31 30 3b 0a 0a ┆mment set sign - action = 10; ┆
0x60d40…60d60 20 20 20 20 20 20 20 20 20 20 69 66 20 77 32 20 3d 20 34 35 20 74 68 65 6e 20 77 30 20 3a 3d 20 ┆ if w2 = 45 then w0 := ┆
0x60d60…60d7a 31 20 65 6c 73 65 20 77 30 20 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆1 else w0 := 0; ┆
0x60d7a…60d80 (0x324,0xc1c)
0x60d80…60da0 73 69 67 6e 20 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 20 20 21 20 65 6e 64 20 ┆sign := w0; end; ! end ┆
0x60da0…60dc0 73 65 74 20 73 69 67 6e 20 2d 20 20 61 63 74 69 6f 6e 20 3d 20 31 30 20 21 0a 20 20 20 20 20 20 ┆set sign - action = 10 ! ┆
0x60dc0…60de0 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 73 79 6e 74 61 78 20 65 72 72 6f 72 20 2d 20 20 ┆ begin comment syntax error - ┆
0x60de0…60e00 61 63 74 69 6f 6e 20 3d 20 31 31 3b 0a 0a 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆action = 11; ┆
0x60e00…60e06 (775,) (0x324,0xc1d)
0x60e06…60e20 20 73 74 61 74 65 20 3a 3d 20 77 30 20 3a 3d 20 38 3b 0a 0a 20 20 20 20 20 20 ┆ state := w0 := 8; ┆
0x60e20…60e40 20 20 20 65 6e 64 3b 20 20 21 20 65 6e 64 20 73 79 6e 74 61 78 20 65 72 72 6f 72 20 2d 20 20 61 ┆ end; ! end syntax error - a┆
0x60e40…60e60 63 74 69 6f 6e 20 3d 20 31 31 21 0a 20 20 20 20 20 20 20 65 6e 64 3b 20 20 21 20 65 6e 64 20 20 ┆ction = 11! end; ! end ┆
0x60e60…60e7e 20 73 74 61 74 65 20 63 61 73 65 20 21 0a 20 20 20 20 20 20 20 77 31 20 3a 3d 20 73 74 61 ┆ state case ! w1 := sta┆
0x60e7e…60e84 (0x324,0xc1e)
0x60e84…60ea0 74 65 3b 0a 20 20 20 20 20 20 20 77 31 20 65 78 74 72 61 63 74 20 33 3b 0a 20 20 20 ┆te; w1 extract 3; ┆
0x60ea0…60ec0 20 65 6e 64 3b 0a 20 20 20 20 69 66 20 77 30 20 3a 3d 20 73 74 61 74 65 20 3e 20 30 20 74 68 65 ┆ end; if w0 := state > 0 the┆
0x60ec0…60ee0 6e 0a 20 20 20 20 63 6f 6d 6d 61 6e 64 20 3a 3d 20 77 30 20 3a 3d 20 2d 20 31 3b 0a 0a 20 20 20 ┆n command := w0 := - 1; ┆
0x60ee0…60efc 20 77 31 20 3a 3d 20 61 64 64 72 65 73 73 20 28 63 6f 6d 6d 61 6e 64 29 3b 0a 20 20 ┆ w1 := address (command); ┆
0x60efc…60f02 (0x324,0xc1f)
0x60f02…60f20 20 20 77 30 20 3a 3d 20 28 77 31 29 2e 77 6f 72 64 3b 0a 20 20 20 20 66 32 20 3a 3d 20 20 ┆ w0 := (w1).word; f2 := ┆
0x60f20…60f40 73 61 76 65 66 32 3b 0a 20 20 20 20 77 33 20 3a 3d 20 20 63 6d 64 72 65 66 3b 0a 0a 20 20 65 6e ┆savef2; w3 := cmdref; en┆
0x60f40…60f60 64 3b 0a 20 20 62 6f 64 79 20 6f 66 20 64 65 6c 69 76 65 72 63 6d 64 0a 20 20 62 65 67 69 6e 0a ┆d; body of delivercmd begin ┆
0x60f60…60f7a 20 20 20 20 69 6e 63 6f 64 65 0a 20 20 20 20 64 6f 75 62 6c 65 20 20 20 73 61 ┆ incode double sa┆
0x60f7a…60f80 (0x324,0xc20)
0x60f80…60fa0 76 65 66 31 3b 0a 20 20 20 20 77 6f 72 64 20 20 20 20 20 73 61 76 65 77 32 3b 0a 20 20 20 20 72 ┆vef1; word savew2; r┆
0x60fa0…60fc0 65 66 20 20 20 20 20 20 72 65 74 75 72 6e 3b 0a 0a 20 20 20 20 62 65 67 69 6e 0a 0a 20 20 20 20 ┆ef return; begin ┆
0x60fc0…60fe0 20 20 73 61 76 65 66 31 20 3a 3d 20 66 31 3b 0a 20 20 20 20 20 20 73 61 76 65 77 32 20 3a 3d 20 ┆ savef1 := f1; savew2 := ┆
0x60fe0…61000 77 32 3b 0a 20 20 20 20 20 20 72 65 74 75 72 6e 20 3a 3d 20 77 33 3b 0a 00 00 00 00 00 00 00 00 ┆w2; return := w3; ┆
0x61000…61006 (776,) (0x324,0xc21)
0x61006…61020 0a 20 20 20 20 20 20 77 31 20 3a 3d 20 72 65 74 75 72 6e 2e 70 61 72 61 6d 3b ┆ w1 := return.param;┆
0x61020…61040 0a 20 20 20 20 20 20 77 32 20 3a 3d 20 72 65 74 75 72 6e 2e 73 74 61 63 6b 70 3b 0a 20 20 20 20 ┆ w2 := return.stackp; ┆
0x61040…61060 20 20 77 32 20 3a 3d 20 28 77 32 29 2e 77 6f 72 64 3b 0a 20 20 20 20 20 20 77 33 20 3a 3d 20 72 ┆ w2 := (w2).word; w3 := r┆
0x61060…6107e 65 74 75 72 6e 2e 73 74 64 65 73 63 3b 0a 20 20 20 20 20 20 77 33 20 3a 3d 20 28 77 33 29 ┆eturn.stdesc; w3 := (w3)┆
0x6107e…61084 (0x324,0xc22)
0x61084…610a0 2e 77 6f 72 64 3b 0a 20 20 20 20 20 20 77 30 20 3a 3d 20 72 65 74 75 72 6e 2e 70 61 ┆.word; w0 := return.pa┆
0x610a0…610c0 72 61 6d 64 65 73 63 3b 0a 20 20 20 20 20 20 28 77 33 29 2e 77 6f 72 64 20 3a 3d 20 77 30 3b 0a ┆ramdesc; (w3).word := w0; ┆
0x610c0…610e0 20 20 20 20 20 20 77 30 20 65 78 74 72 61 63 74 20 31 32 3b 0a 20 20 20 20 20 20 69 66 20 77 30 ┆ w0 extract 12; if w0┆
0x610e0…610fc 20 3e 3d 20 34 20 74 68 65 6e 20 6d 6f 76 65 20 28 2e 77 33 2e 2c 77 30 3a 3d 38 2c ┆ >= 4 then move (.w3.,w0:=8,┆
0x610fc…61102 (0x324,0xc23)
0x61102…61120 77 31 2c 77 32 29 20 0a 20 20 20 20 20 20 65 6c 73 65 20 20 20 20 20 20 20 20 20 20 20 20 ┆w1,w2) else ┆
0x61120…61140 6d 6f 76 65 20 28 2e 77 33 2e 2c 77 30 3a 3d 32 2c 77 31 2c 77 32 29 3b 0a 20 20 20 20 20 20 77 ┆move (.w3.,w0:=2,w1,w2); w┆
0x61140…61160 33 20 3a 3d 20 72 65 74 75 72 6e 2e 73 74 61 63 6b 70 3b 0a 20 20 20 20 20 20 28 77 33 29 2e 77 ┆3 := return.stackp; (w3).w┆
0x61160…6117a 6f 72 64 20 3a 3d 20 77 30 20 2b 20 28 77 33 29 2e 77 6f 72 64 3b 0a 20 20 20 ┆ord := w0 + (w3).word; ┆
0x6117a…61180 (0x324,0xc24)
0x61180…611a0 20 20 20 77 33 20 3a 3d 20 72 65 74 75 72 6e 2e 73 74 64 65 73 63 3b 0a 20 20 20 20 20 20 28 77 ┆ w3 := return.stdesc; (w┆
0x611a0…611c0 33 29 2e 77 6f 72 64 20 3a 3d 20 77 30 20 3a 3d 20 28 77 33 29 2e 77 6f 72 64 20 2b 20 32 3b 0a ┆3).word := w0 := (w3).word + 2; ┆
0x611c0…611e0 20 20 20 20 20 20 0a 20 20 20 20 20 20 66 31 20 3a 3d 20 73 61 76 65 66 31 3b 0a 20 20 20 20 20 ┆ f1 := savef1; ┆
0x611e0…61200 20 77 32 20 3a 3d 20 73 61 76 65 77 32 3b 0a 20 20 20 20 20 20 77 33 20 00 00 00 00 00 00 00 00 ┆ w2 := savew2; w3 ┆
0x61200…61206 (777,) (0x324,0xc25)
0x61206…61220 3a 3d 20 72 65 74 75 72 6e 3b 0a 0a 20 20 20 20 65 6e 64 3b 0a 20 20 65 6e 64 ┆:= return; end; end┆
0x61220…61240 3b 0a 0a 20 20 62 6f 64 79 20 6f 66 20 69 64 63 6f 6d 6d 61 6e 64 0a 20 20 62 65 67 69 6e 0a 20 ┆; body of idcommand begin ┆
0x61240…61260 20 20 20 72 65 63 6f 72 64 20 72 63 6d 64 20 28 20 64 6f 75 62 6c 65 20 63 6d 64 20 29 3b 0a 20 ┆ record rcmd ( double cmd ); ┆
0x61260…6127e 20 20 20 69 6e 63 6f 64 65 0a 0a 20 20 20 20 20 20 77 6f 72 64 20 20 72 65 73 75 6c 74 2c ┆ incode word result,┆
0x6127e…61284 (0x324,0xc26)
0x61284…612a0 20 73 74 61 72 74 3b 0a 20 20 20 20 20 20 72 65 66 20 20 20 72 65 74 75 72 6e 3b 0a ┆ start; ref return; ┆
0x612a0…612c0 20 20 20 20 62 65 67 69 6e 0a 0a 20 20 20 20 20 20 72 65 74 75 72 6e 20 3a 3d 20 77 33 3b 0a 20 ┆ begin return := w3; ┆
0x612c0…612e0 20 20 20 20 20 73 74 61 72 74 20 20 3a 3d 20 77 32 3b 0a 20 20 20 20 20 20 72 65 73 75 6c 74 20 ┆ start := w2; result ┆
0x612e0…612fc 3a 3d 20 77 30 20 3a 3d 20 2d 20 31 3b 0a 0a 20 20 20 20 20 20 77 68 69 6c 65 20 77 ┆:= w0 := - 1; while w┆
0x612fc…61302 (0x324,0xc27)
0x61302…61320 30 20 3a 3d 20 72 65 73 75 6c 74 20 3c 20 30 20 64 6f 0a 20 20 20 20 20 20 62 65 67 69 6e ┆0 := result < 0 do begin┆
0x61320…61340 0a 20 20 20 20 20 20 20 20 77 30 20 3a 3d 20 28 77 32 29 2e 77 6f 72 64 3b 0a 20 20 20 20 20 20 ┆ w0 := (w2).word; ┆
0x61340…61360 20 20 69 66 20 77 30 20 3c 3e 20 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 ┆ if w0 <> 0 then begin ┆
0x61360…6137a 63 6f 6d 6d 65 6e 74 20 6e 6f 74 20 65 6e 64 20 6f 66 20 74 61 62 6c 65 20 79 ┆comment not end of table y┆
0x6137a…61380 (0x324,0xc28)
0x61380…613a0 65 74 3b 0a 20 20 20 20 20 20 20 20 20 20 66 30 20 3a 3d 20 28 77 31 29 2e 63 6d 64 20 2d 20 28 ┆et; f0 := (w1).cmd - (┆
0x613a0…613c0 77 32 29 2e 63 6d 64 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 33 20 3d 20 30 20 74 68 65 ┆w2).cmd; if w3 = 0 the┆
0x613c0…613e0 6e 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 ┆n begin if┆
0x613e0…61400 20 77 30 20 7a 65 72 6f 6d 61 73 6b 20 2d 32 35 36 20 74 68 65 6e 20 0a 00 00 00 00 00 00 00 00 ┆ w0 zeromask -256 then ┆
0x61400…61406 (778,) (0x324,0xc29)
0x61406…61420 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 ┆ begin ┆
0x61420…61440 20 20 20 20 20 20 77 32 2b 34 2d 73 74 61 72 74 3b 77 32 20 6c 73 68 69 66 74 20 2d 32 3b 0a 20 ┆ w2+4-start;w2 lshift -2; ┆
0x61440…61460 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65 73 75 6c 74 20 3a 3d 20 77 32 3b 0a 20 20 20 20 20 ┆ result := w2; ┆
0x61460…6147e 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 ┆ end; end; ┆
0x6147e…61484 (0x324,0xc2a)
0x61484…614a0 20 20 20 20 20 65 6e 64 20 65 6c 73 65 20 72 65 73 75 6c 74 20 3a 3d 20 77 30 3b 0a ┆ end else result := w0; ┆
0x614a0…614c0 20 20 20 20 20 20 20 20 77 32 2b 34 3b 0a 20 20 20 20 20 20 65 6e 64 3b 20 21 20 65 6e 64 20 77 ┆ w2+4; end; ! end w┆
0x614c0…614e0 68 69 6c 65 20 21 0a 20 20 20 20 20 20 77 30 20 3a 3d 20 72 65 73 75 6c 74 3b 0a 20 20 20 20 20 ┆hile ! w0 := result; ┆
0x614e0…614fc 20 77 33 20 3a 3d 20 72 65 74 75 72 6e 3b 0a 0a 20 20 20 20 65 6e 64 3b 0a 20 20 65 ┆ w3 := return; end; e┆
0x614fc…61502 (0x324,0xc2b)
0x61502…61520 6e 64 3b 20 20 21 20 20 69 64 63 6f 6d 6d 61 6e 64 20 20 21 0a 0a 20 20 65 6e 64 3b 0a 0a ┆nd; ! idcommand ! end; ┆
0x61520…61540 0a 20 20 62 6f 64 79 20 6f 66 20 6f 70 65 72 61 74 6f 72 0a 20 20 63 6f 6d 6d 65 6e 74 20 6f 70 ┆ body of operator comment op┆
0x61540…61560 65 72 61 74 6f 72 20 63 6f 72 6f 75 74 69 6e 65 3b 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 6c 61 ┆erator coroutine; begin la┆
0x61560…6157a 62 65 6c 20 6f 75 74 6c 6f 6f 70 31 2c 6f 75 74 6c 6f 6f 70 32 2c 6f 75 74 74 ┆bel outloop1,outloop2,outt┆
0x6157a…61580 (0x324,0xc2c)
0x61580…615a0 65 78 74 2c 0a 20 20 20 20 20 20 20 20 20 20 77 5f 73 79 6e 74 61 78 2c 77 5f 63 6f 6d 6d 2c 77 ┆ext, w_syntax,w_comm,w┆
0x615a0…615c0 5f 70 6c 75 73 70 61 72 61 6d 2c 77 5f 6d 69 6e 75 73 70 61 72 61 6d 2c 77 5f 75 6e 6b 6e 6f 77 ┆_plusparam,w_minusparam,w_unknow┆
0x615c0…615e0 6e 2c 0a 20 20 20 20 20 20 20 20 20 20 77 5f 73 74 61 74 65 69 6c 6c 2c 77 5f 6e 6f 74 61 6c 6c ┆n, w_stateill,w_notall┆
0x615e0…61600 6f 77 2c 77 5f 6e 6f 72 65 73 2c 77 5f 72 65 63 65 6e 74 72 79 2c 77 5f 00 00 00 00 00 00 00 00 ┆ow,w_nores,w_recentry,w_ ┆
0x61600…61606 (779,) (0x324,0xc2d)
0x61606…61620 72 65 63 64 65 76 69 63 65 2c 77 5f 61 70 70 6c 6b 69 6c 6c 3b 0a 20 20 20 20 ┆recdevice,w_applkill; ┆
0x61620…61640 69 6e 63 6f 64 65 0a 20 20 20 20 20 20 74 65 78 74 28 32 29 20 6f 70 72 6f 75 74 70 75 74 3a 3d ┆incode text(2) oproutput:=┆
0x61640…61660 20 22 3d 22 3b 0a 20 20 20 20 20 20 77 6f 72 64 20 63 68 61 72 2c 20 70 61 72 74 69 61 6c 3b 0a ┆ "="; word char, partial; ┆
0x61660…6167e 20 20 20 20 20 20 72 65 66 20 62 75 66 70 6f 69 6e 74 65 72 2c 20 73 74 6f 70 62 75 66 3b ┆ ref bufpointer, stopbuf;┆
0x6167e…61684 (0x324,0xc2e)
0x61684…616a0 0a 20 20 20 20 20 20 72 65 66 20 64 65 76 63 6f 72 6f 75 74 2c 74 72 61 6e 73 72 65 ┆ ref devcorout,transre┆
0x616a0…616c0 66 3b 0a 20 20 20 20 20 20 62 79 74 65 20 6b 69 6e 64 2c 20 64 75 6d 6d 79 3b 0a 20 20 20 20 20 ┆f; byte kind, dummy; ┆
0x616c0…616e0 20 61 72 72 61 79 20 28 31 3a 31 30 29 20 74 61 69 6c 20 6f 66 20 77 6f 72 64 3b 0a 20 20 20 20 ┆ array (1:10) tail of word; ┆
0x616e0…616fc 20 20 74 65 78 74 28 31 31 29 20 64 65 73 74 6e 61 6d 65 3b 0a 20 20 20 20 20 20 72 ┆ text(11) destname; r┆
0x616fc…61702 (0x324,0xc2f)
0x61702…61720 65 66 20 64 65 73 74 72 65 66 2c 70 72 6f 63 72 65 66 3b 0a 0a 20 20 20 20 20 20 61 72 72 ┆ef destref,procref; arr┆
0x61720…61740 61 79 20 28 2d 34 3a 31 36 29 20 63 6f 6d 6d 5f 74 61 62 6c 65 20 6f 66 20 77 6f 72 64 20 3a 3d ┆ay (-4:16) comm_table of word :=┆
0x61740…61760 0a 0a 20 20 20 20 20 20 20 2d 34 20 20 21 20 20 65 6d 70 74 79 20 6c 69 6e 65 20 20 21 0a 20 20 ┆ -4 ! empty line ! ┆
0x61760…6177a 20 20 20 20 20 2d 33 20 20 21 20 20 20 2d 20 70 61 72 61 6d 20 20 20 20 21 0a ┆ -3 ! - param ! ┆
0x6177a…61780 (0x324,0xc30)
0x61780…617a0 20 20 20 20 20 20 20 2d 32 20 20 21 20 20 20 2b 20 70 61 72 61 6d 20 20 20 20 21 0a 20 20 20 20 ┆ -2 ! + param ! ┆
0x617a0…617c0 20 20 20 2d 31 20 20 21 20 20 20 20 20 73 79 6e 74 61 78 20 20 20 21 0a 20 20 20 20 20 20 20 20 ┆ -1 ! syntax ! ┆
0x617c0…617e0 30 20 20 21 20 20 20 20 20 75 6e 6b 6e 6f 77 6e 20 20 21 0a 20 20 20 20 20 20 20 20 31 20 20 21 ┆0 ! unknown ! 1 !┆
0x617e0…61800 20 20 73 74 61 72 74 20 20 20 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ start ! ┆
0x61800…61806 (780,) (0x324,0xc31)
0x61806…61820 31 20 20 21 20 20 73 6b 69 70 20 20 20 20 20 20 20 20 21 0a 20 20 20 20 20 20 ┆1 ! skip ! ┆
0x61820…61840 20 20 31 20 20 21 20 20 72 65 70 65 61 74 20 20 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 31 20 ┆ 1 ! repeat ! 1 ┆
0x61840…61860 20 21 20 20 72 65 73 74 61 72 74 20 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 31 20 20 21 20 20 ┆ ! restart ! 1 ! ┆
0x61860…6187e 73 74 6f 70 20 20 20 20 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 31 20 20 21 20 20 6b 69 ┆stop ! 1 ! ki┆
0x6187e…61884 (0x324,0xc32)
0x61884…618a0 6c 6c 20 20 20 20 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 31 20 20 21 20 20 73 75 ┆ll ! 1 ! su┆
0x618a0…618c0 73 70 65 6e 64 20 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 32 20 20 21 20 20 64 72 61 69 6e 20 ┆spend ! 2 ! drain ┆
0x618c0…618e0 20 20 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 33 20 20 21 20 20 72 65 71 75 65 73 74 20 20 20 ┆ ! 3 ! request ┆
0x618e0…618fc 20 20 21 0a 20 20 20 20 20 20 20 20 34 20 20 21 20 20 73 69 67 6e 75 70 20 20 20 20 ┆ ! 4 ! signup ┆
0x618fc…61902 (0x324,0xc33)
0x61902…61920 20 20 21 0a 20 20 20 20 20 20 20 20 35 20 20 21 20 20 73 69 67 6e 6f 66 66 20 20 20 20 20 ┆ ! 5 ! signoff ┆
0x61920…61940 21 0a 20 20 20 20 20 20 20 20 36 20 20 21 20 20 73 65 6c 65 63 74 20 20 20 20 20 20 21 0a 20 20 ┆! 6 ! select ! ┆
0x61940…61960 20 20 20 20 20 20 37 20 20 21 20 20 72 6f 75 74 65 20 20 20 20 20 20 20 21 0a 20 20 20 20 20 20 ┆ 7 ! route ! ┆
0x61960…6197a 20 20 38 20 20 21 20 20 74 72 69 61 6e 67 20 20 20 20 20 20 21 0a 20 20 20 20 ┆ 8 ! triang ! ┆
0x6197a…61980 (0x324,0xc34)
0x61980…619a0 20 20 20 20 39 20 20 21 20 20 64 69 73 70 6c 61 79 20 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 ┆ 9 ! display ! ┆
0x619a0…619c0 30 20 20 21 20 20 65 6e 64 20 63 6f 6d 6d 61 6e 64 73 21 3b 0a 0a 20 20 20 20 20 20 21 20 72 65 ┆0 ! end commands!; ! re┆
0x619c0…619e0 70 6c 79 20 74 65 78 74 73 20 21 0a 20 20 20 20 20 20 74 65 78 74 28 32 37 29 20 74 5f 72 65 61 ┆ply texts ! text(27) t_rea┆
0x619e0…61a00 64 79 20 20 20 20 20 3a 3d 20 22 72 65 61 64 79 22 2c 0a 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆dy := "ready", ┆
0x61a00…61a06 (781,) (0x324,0xc35)
0x61a06…61a20 20 20 20 20 20 20 20 20 20 20 74 5f 73 79 6e 74 61 78 20 20 20 20 3a 3d 20 22 ┆ t_syntax := "┆
0x61a20…61a40 2a 2a 2a 73 79 6e 74 61 78 22 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 5f 63 6f 6d ┆***syntax", t_com┆
0x61a40…61a60 6d 20 20 20 20 20 20 3a 3d 20 22 2a 2a 2a 63 6f 6d 6d 61 6e 64 20 75 6e 6b 6e 6f 77 6e 22 2c 0a ┆m := "***command unknown", ┆
0x61a60…61a7e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 5f 70 6c 75 73 70 61 72 61 6d 20 3a 3d 20 ┆ t_plusparam := ┆
0x61a7e…61a84 (0x324,0xc36)
0x61a84…61aa0 22 2a 2a 2a 63 6f 6d 6d 61 6e 64 20 2b 70 61 72 61 6d 22 2c 0a 20 20 20 20 20 20 20 ┆"***command +param", ┆
0x61aa0…61ac0 20 20 20 20 20 20 20 20 74 5f 6d 69 6e 75 73 70 61 72 61 6d 3a 3d 20 22 2a 2a 2a 63 6f 6d 6d 61 ┆ t_minusparam:= "***comma┆
0x61ac0…61ae0 6e 64 20 2d 70 61 72 61 6d 22 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 5f 75 6e 6b ┆nd -param", t_unk┆
0x61ae0…61afc 6e 6f 77 6e 20 20 20 3a 3d 20 22 2a 2a 2a 64 65 76 69 63 65 20 75 6e 6b 6e 6f 77 6e ┆nown := "***device unknown┆
0x61afc…61b02 (0x324,0xc37)
0x61b02…61b20 22 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 5f 73 74 61 74 65 69 6c 6c 20 20 ┆", t_stateill ┆
0x61b20…61b40 3a 3d 20 22 2a 2a 2a 73 74 61 74 65 20 69 6c 6c 65 67 61 6c 22 2c 0a 20 20 20 20 20 20 20 20 20 ┆:= "***state illegal", ┆
0x61b40…61b60 20 20 20 20 20 20 74 5f 6e 6f 74 61 6c 6c 6f 77 20 20 3a 3d 20 22 2a 2a 2a 6e 6f 74 20 61 6c 6c ┆ t_notallow := "***not all┆
0x61b60…61b7a 6f 77 65 64 22 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 5f 6e 6f ┆owed", t_no┆
0x61b7a…61b80 (0x324,0xc38)
0x61b80…61ba0 72 65 73 20 20 20 20 20 3a 3d 20 22 2a 2a 2a 6e 6f 20 72 65 73 6f 75 72 63 65 73 22 2c 0a 20 20 ┆res := "***no resources", ┆
0x61ba0…61bc0 20 20 20 20 20 20 20 20 20 20 20 20 20 74 5f 72 65 63 65 6e 74 72 79 20 20 3a 3d 20 22 2a 2a 2a ┆ t_recentry := "***┆
0x61bc0…61be0 72 65 63 65 69 76 65 72 20 65 6e 74 72 79 20 74 72 6f 75 62 6c 65 73 22 2c 0a 20 20 20 20 20 20 ┆receiver entry troubles", ┆
0x61be0…61c00 20 20 20 20 20 20 20 20 20 74 5f 72 65 63 64 65 76 69 63 65 20 3a 3d 20 00 00 00 00 00 00 00 00 ┆ t_recdevice := ┆
0x61c00…61c06 (782,) (0x324,0xc39)
0x61c06…61c20 22 2a 2a 2a 72 65 63 65 69 76 65 72 20 64 65 76 69 63 65 20 74 72 6f 75 62 6c ┆"***receiver device troubl┆
0x61c20…61c40 65 22 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 5f 61 70 70 6c 6b 69 6c 6c 20 20 3a ┆e", t_applkill :┆
0x61c40…61c60 3d 20 22 2a 2a 2a 6b 69 6c 6c 65 64 20 62 79 20 61 70 70 6c 69 63 61 74 69 6f 6e 22 3b 0a 0a 20 ┆= "***killed by application"; ┆
0x61c60…61c7e 20 20 20 20 20 21 20 72 65 70 6c 79 20 6f 75 74 70 75 74 20 66 6f 72 6d 61 74 20 21 0a 20 ┆ ! reply output format ! ┆
0x61c7e…61c84 (0x324,0xc3a)
0x61c84…61ca0 20 20 20 20 20 74 65 78 74 28 20 36 29 20 74 69 6d 65 3b 0a 20 20 20 20 20 20 74 65 ┆ text( 6) time; te┆
0x61ca0…61cc0 78 74 28 31 31 29 20 6f 77 6e 6e 61 6d 65 3b 0a 20 20 20 20 20 20 74 65 78 74 28 20 32 29 20 63 ┆xt(11) ownname; text( 2) c┆
0x61cc0…61ce0 6f 6c 6f 6e 3a 3d 20 22 3a 22 3b 0a 20 20 20 20 20 20 74 65 78 74 28 32 39 29 20 76 61 72 74 65 ┆olon:= ":"; text(29) varte┆
0x61ce0…61cfc 78 74 3b 0a 20 20 20 20 20 20 74 65 78 74 28 20 31 29 20 6c 61 73 74 74 65 78 74 3a ┆xt; text( 1) lasttext:┆
0x61cfc…61d02 (0x324,0xc3b)
0x61d02…61d20 3d 20 22 27 31 30 27 22 3b 0a 20 20 20 20 20 20 74 65 78 74 28 33 29 20 7a 65 72 6f 3a 3d ┆= "'10'"; text(3) zero:=┆
0x61d20…61d40 20 22 27 30 27 27 30 27 27 30 27 22 3b 0a 0a 20 20 20 20 20 20 72 65 66 20 72 65 74 75 72 6e 3b ┆ "'0''0''0'"; ref return;┆
0x61d40…61d60 0a 20 20 20 20 20 20 77 6f 72 64 0a 20 20 20 20 20 20 20 20 20 20 63 6f 6d 6e 6f 2c 70 61 72 61 ┆ word comno,para┆
0x61d60…61d7a 6d 6e 6f 2c 70 61 72 61 6d 31 74 79 70 65 2c 66 72 65 65 70 61 72 61 6d 3b 0a ┆mno,param1type,freeparam; ┆
0x61d7a…61d80 (0x324,0xc3c)
0x61d80…61da0 20 20 20 20 20 20 62 79 74 65 0a 20 20 20 20 20 20 20 20 20 20 70 61 72 61 6d 73 31 2c 70 61 72 ┆ byte params1,par┆
0x61da0…61dc0 61 6d 74 31 2c 0a 20 20 20 20 20 20 20 20 20 20 73 68 6e 6f 20 20 20 2c 74 68 6e 6f 2c 0a 20 20 ┆amt1, shno ,thno, ┆
0x61dc0…61de0 20 20 20 20 20 20 20 20 73 68 69 64 20 20 20 2c 74 68 69 64 2c 0a 20 20 20 20 20 20 20 20 20 20 ┆ shid ,thid, ┆
0x61de0…61e00 70 61 72 61 6d 73 32 2c 70 61 72 61 6d 74 32 2c 0a 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆params2,paramt2, ┆
0x61e00…61e06 (783,) (0x324,0xc3d)
0x61e06…61e20 20 20 20 70 61 72 61 6d 73 33 2c 70 61 72 61 6d 74 33 3b 0a 0a 20 20 20 20 20 ┆ params3,paramt3; ┆
0x61e20…61e40 20 74 65 78 74 20 28 31 31 29 0a 20 20 20 20 20 20 20 20 20 20 64 65 76 6e 61 6d 65 3b 0a 20 20 ┆ text (11) devname; ┆
0x61e40…61e60 20 20 20 20 62 79 74 65 20 0a 20 20 20 20 20 20 20 20 20 20 64 68 6c 69 6e 6b 6e 6f 2c 20 68 6f ┆ byte dhlinkno, ho┆
0x61e60…61e7e 73 74 6e 6f 3b 0a 20 20 20 20 20 20 77 6f 72 64 0a 20 20 20 20 20 20 20 20 20 20 68 6f 73 ┆stno; word hos┆
0x61e7e…61e84 (0x324,0xc3e)
0x61e84…61ea0 74 69 64 3b 0a 20 0a 20 20 20 20 20 20 74 65 78 74 20 28 32 37 29 0a 20 20 20 20 20 ┆tid; text (27) ┆
0x61ea0…61ec0 20 20 20 20 20 70 61 72 61 6d 65 74 65 72 73 3b 0a 0a 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 ┆ parameters; begin ┆
0x61ec0…61ee0 20 20 20 72 65 74 75 72 6e 3a 3d 20 77 33 3b 20 63 61 6c 6c 20 77 33 20 72 65 74 75 72 6e 3b 20 ┆ return:= w3; call w3 return; ┆
0x61ee0…61efc 21 20 70 73 65 75 64 6f 20 63 61 6c 6c 20 21 0a 0a 20 20 20 20 20 20 77 68 69 6c 65 ┆! pseudo call ! while┆
0x61efc…61f02 (0x324,0xc3f)
0x61f02…61f20 20 77 31 3d 77 31 20 64 6f 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 ┆ w1=w1 do begin ┆
0x61f20…61f40 77 61 69 74 6d 65 73 73 28 2e 77 33 2e 2c 77 32 29 3b 0a 20 20 20 20 20 20 20 20 77 30 3a 3d 20 ┆waitmess(.w3.,w2); w0:= ┆
0x61f40…61f60 31 3b 0a 20 20 20 20 20 20 20 20 77 31 3a 3d 20 61 64 64 72 65 73 73 28 62 2e 61 6e 73 5f 73 74 ┆1; w1:= address(b.ans_st┆
0x61f60…61f7a 61 74 75 73 29 3b 0a 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 32 32 29 ┆atus); monitor(22)┆
0x61f7a…61f80 (0x324,0xc40)
0x61f80…61fa0 3b 20 21 20 73 65 6e 64 20 61 6e 73 77 65 72 20 21 0a 0a 20 20 20 20 20 20 20 20 77 32 3a 3d 61 ┆; ! send answer ! w2:=a┆
0x61fa0…61fc0 64 64 72 65 73 73 28 28 77 33 29 2e 6f 70 72 5f 63 6f 6e 73 6f 6c 65 29 3b 0a 20 20 20 20 20 20 ┆ddress((w3).opr_console); ┆
0x61fc0…61fe0 20 20 6c 6f 6f 6b 75 70 72 65 6d 6f 74 65 28 2e 77 33 2e 2c 77 30 3a 3d 32 2c 77 32 2c 77 30 2c ┆ lookupremote(.w3.,w0:=2,w2,w0,┆
0x61fe0…62000 77 30 2c 77 31 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 28 77 33 29 2e 6f 00 00 00 00 00 00 00 00 ┆w0,w1,w2:=address((w3).o ┆
0x62000…62006 (784,) (0x324,0xc41)
0x62006…62020 70 72 5f 64 68 6c 69 6e 6b 6e 6f 29 29 3b 0a 20 20 20 20 20 20 20 20 6d 6f 76 ┆pr_dhlinkno)); mov┆
0x62020…62040 65 28 2e 77 33 2e 2c 77 30 3a 3d 34 38 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 7a 65 72 6f 29 2c ┆e(.w3.,w0:=48,w1:=address(zero),┆
0x62040…62060 77 32 3a 3d 61 64 64 72 65 73 73 28 7a 65 72 6f 29 2b 32 29 3b 0a 0a 20 20 20 20 20 20 20 20 77 ┆w2:=address(zero)+2); w┆
0x62060…6207e 31 3a 3d 20 28 77 33 29 2e 6f 70 72 5f 62 75 66 3b 20 77 32 3a 3d 20 61 64 64 72 65 73 73 ┆1:= (w3).opr_buf; w2:= address┆
0x6207e…62084 (0x324,0xc42)
0x62084…620a0 28 28 77 31 29 2e 62 75 66 5f 64 61 74 61 31 29 3b 0a 20 20 20 20 20 20 20 20 6d 6f ┆((w1).buf_data1); mo┆
0x620a0…620c0 76 65 28 2e 77 33 2e 2c 77 30 3a 3d 32 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 6f 70 72 6f 75 74 ┆ve(.w3.,w0:=2,w1:=address(oprout┆
0x620c0…620e0 70 75 74 29 2c 77 32 29 3b 0a 20 20 20 20 20 20 20 20 77 31 3a 3d 20 28 77 33 29 2e 6f 70 72 5f ┆put),w2); w1:= (w3).opr_┆
0x620e0…620fc 62 75 66 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 62 75 66 5f 6f 70 3a 3d 20 77 ┆buf; (w1).buf_op:= w┆
0x620fc…62102 (0x324,0xc43)
0x62102…62120 30 3a 3d 20 35 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 62 75 66 5f 66 69 72 73 74 3a ┆0:= 5; (w1).buf_first:┆
0x62120…62140 3d 20 77 30 3a 3d 20 61 64 64 72 65 73 73 28 28 77 31 29 2e 62 75 66 5f 64 61 74 61 31 29 3b 0a ┆= w0:= address((w1).buf_data1); ┆
0x62140…62160 20 20 20 20 20 20 20 20 28 77 31 29 2e 62 75 66 5f 6c 61 73 74 3a 3d 20 20 77 30 3a 3d 20 77 30 ┆ (w1).buf_last:= w0:= w0┆
0x62160…6217a 3b 0a 20 20 20 20 20 20 20 20 77 31 3a 3d 20 28 77 33 29 2e 6f 70 72 5f 62 75 ┆; w1:= (w3).opr_bu┆
0x6217a…62180 (0x324,0xc44)
0x62180…621a0 66 3b 0a 20 20 20 20 20 20 20 20 73 65 6e 64 77 61 69 74 28 2e 77 33 2e 2c 77 30 2c 77 31 2c 77 ┆f; sendwait(.w3.,w0,w1,w┆
0x621a0…621c0 32 3a 3d 61 64 64 72 65 73 73 28 28 77 33 29 2e 6f 70 72 5f 63 6f 6e 73 6f 6c 65 29 29 3b 0a 0a ┆2:=address((w3).opr_console)); ┆
0x621c0…621e0 20 20 20 20 20 20 20 20 28 77 31 29 2e 62 75 66 5f 6f 70 3a 3d 20 77 30 3a 3d 20 33 3b 0a 20 20 ┆ (w1).buf_op:= w0:= 3; ┆
0x621e0…62200 20 20 20 20 20 20 77 30 3a 3d 20 28 77 31 29 2e 62 75 66 5f 66 69 72 73 00 00 00 00 00 00 00 00 ┆ w0:= (w1).buf_firs ┆
0x62200…62206 (785,) (0x324,0xc45)
0x62206…62220 74 3b 0a 20 20 20 20 20 20 20 20 77 30 2b 62 2e 6f 70 72 74 5f 62 75 66 6c 2d ┆t; w0+b.oprt_bufl-┆
0x62220…62240 32 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 62 75 66 5f 6c 61 73 74 3a 3d 20 77 30 3b 0a 20 ┆2; (w1).buf_last:= w0; ┆
0x62240…62260 20 20 20 20 20 20 20 73 65 6e 64 77 61 69 74 28 2e 77 33 2e 2c 77 30 2c 77 31 2c 77 32 29 3b 0a ┆ sendwait(.w3.,w0,w1,w2); ┆
0x62260…6227e 20 20 20 20 20 20 20 20 21 20 69 6e 70 75 74 20 72 65 63 65 69 76 65 64 20 69 6e 74 65 72 ┆ ! input received inter┆
0x6227e…62284 (0x324,0xc46)
0x62284…622a0 70 72 65 74 20 63 6f 6d 6d 61 6e 64 20 21 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 ┆pret command ! if w0┆
0x622a0…622c0 3c 3e 31 20 74 68 65 6e 20 77 30 3a 3d 20 30 20 65 6c 73 65 20 77 30 3a 3d 20 62 2e 61 6e 73 5f ┆<>1 then w0:= 0 else w0:= b.ans_┆
0x622c0…622e0 62 79 74 65 73 3b 0a 20 20 20 20 20 20 20 20 77 31 3a 3d 20 28 77 31 29 2e 62 75 66 5f 66 69 72 ┆bytes; w1:= (w1).buf_fir┆
0x622e0…622fc 73 74 3b 0a 20 20 20 20 20 20 20 20 74 65 73 74 6f 75 74 28 2e 77 33 2e 2c 77 30 2c ┆st; testout(.w3.,w0,┆
0x622fc…62302 (0x324,0xc47)
0x62302…62320 77 31 2c 77 32 3a 3d 30 29 3b 0a 20 20 20 20 20 20 20 20 62 75 66 70 6f 69 6e 74 65 72 3a ┆w1,w2:=0); bufpointer:┆
0x62320…62340 3d 20 77 31 3b 0a 20 20 20 20 20 20 20 20 77 31 2b 77 30 3b 20 73 74 6f 70 62 75 66 3a 3d 20 77 ┆= w1; w1+w0; stopbuf:= w┆
0x62340…62360 31 3b 0a 20 20 20 20 20 20 20 20 67 65 74 70 61 72 61 6d 73 20 28 2e 77 33 2e 2c 77 33 3a 3d 61 ┆1; getparams (.w3.,w3:=a┆
0x62360…6237a 64 64 72 65 73 73 28 70 61 72 61 6d 73 31 29 2c 77 33 3a 3d 61 64 64 72 65 73 ┆ddress(params1),w3:=addres┆
0x6237a…62380 (0x324,0xc48)
0x62380…623a0 73 28 64 65 76 6e 61 6d 65 29 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆s(devname), ┆
0x623a0…623c0 20 20 20 20 20 20 20 77 33 3a 3d 62 75 66 70 6f 69 6e 74 65 72 2c 77 33 3a 3d 73 74 6f 70 62 75 ┆ w3:=bufpointer,w3:=stopbu┆
0x623c0…623e0 66 2c 77 30 29 3b 0a 20 20 20 20 20 20 20 20 77 32 20 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 ┆f,w0); w2 := w0; ┆
0x623e0…62400 20 77 32 20 61 73 68 69 66 74 20 2d 31 32 3b 0a 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ w2 ashift -12; ┆
0x62400…62406 (786,) (0x324,0xc49)
0x62406…62420 63 6f 6d 6e 6f 20 3a 3d 20 77 32 3b 0a 20 20 20 20 20 20 20 20 77 30 20 65 78 ┆comno := w2; w0 ex┆
0x62420…62440 74 72 61 63 74 20 31 32 3b 0a 20 20 20 20 20 20 20 20 70 61 72 61 6d 6e 6f 20 3a 3d 20 77 30 3b ┆tract 12; paramno := w0;┆
0x62440…62460 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 20 68 6f 73 74 69 64 3d 28 77 33 3a 3d 62 2e 63 ┆ if w0:= hostid=(w3:=b.c┆
0x62460…6247e 75 72 72 65 6e 74 29 2e 6f 70 72 5f 68 6f 73 74 69 64 20 74 68 65 6e 0a 20 20 20 20 20 20 ┆urrent).opr_hostid then ┆
0x6247e…62484 (0x324,0xc4a)
0x62484…624a0 20 20 77 30 20 3a 3d 20 70 61 72 61 6d 74 31 3b 0a 20 20 20 20 20 20 20 20 69 66 20 ┆ w0 := paramt1; if ┆
0x624a0…624c0 77 30 20 3d 20 35 20 74 68 65 6e 20 77 30 20 3a 3d 20 32 20 65 6c 73 65 20 69 66 20 77 30 20 3d ┆w0 = 5 then w0 := 2 else if w0 =┆
0x624c0…624e0 20 34 20 74 68 65 6e 20 77 30 20 3a 3d 20 31 20 65 6c 73 65 20 77 30 3a 3d 77 30 3b 0a 20 20 20 ┆ 4 then w0 := 1 else w0:=w0; ┆
0x624e0…624fc 20 20 20 20 20 70 61 72 61 6d 31 74 79 70 65 20 3a 3d 20 77 30 3b 0a 20 20 20 20 20 ┆ param1type := w0; ┆
0x624fc…62502 (0x324,0xc4b)
0x62502…62520 20 20 20 77 30 20 3a 3d 20 28 77 31 3a 3d 61 64 64 72 65 73 73 28 70 61 72 61 6d 65 74 65 ┆ w0 := (w1:=address(paramete┆
0x62520…62540 72 73 29 29 2e 77 6f 72 64 3b 0a 20 20 20 20 20 20 20 20 77 31 20 3a 3d 20 70 61 72 61 6d 74 32 ┆rs)).word; w1 := paramt2┆
0x62540…62560 20 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 31 20 3d 20 33 20 74 68 65 6e 20 2d 28 77 30 29 3b ┆ ; if w1 = 3 then -(w0);┆
0x62560…6257a 0a 20 20 20 20 20 20 20 20 66 72 65 65 70 61 72 61 6d 20 3a 3d 20 77 30 3b 0a ┆ freeparam := w0; ┆
0x6257a…62580 (0x324,0xc4c)
0x62580…625a0 20 20 20 20 20 20 20 20 74 65 73 74 6f 75 74 28 2e 77 33 2e 2c 77 30 3a 3d 34 38 2c 77 31 3a 3d ┆ testout(.w3.,w0:=48,w1:=┆
0x625a0…625c0 61 64 64 72 65 73 73 28 63 6f 6d 6e 6f 29 2c 77 32 3a 3d 36 35 29 3b 0a 20 20 20 20 20 20 20 20 ┆address(comno),w2:=65); ┆
0x625c0…625e0 69 66 20 77 30 3a 3d 63 6f 6d 6e 6f 3e 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 62 65 67 69 ┆if w0:=comno>0 then begi┆
0x625e0…62600 6e 0a 20 20 20 20 20 20 20 20 20 20 66 69 6e 64 5f 63 6f 6e 73 6f 6c 65 00 00 00 00 00 00 00 00 ┆n find_console ┆
0x62600…62606 (787,) (0x324,0xc4d)
0x62606…62620 64 65 76 69 63 65 28 2e 77 33 2e 2c 77 30 3a 3d 70 61 72 61 6d 31 74 79 70 65 ┆device(.w3.,w0:=param1type┆
0x62620…62640 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 28 77 33 29 2e 6f 70 72 5f 63 6f 6e 73 6f 6c 65 29 2c 0a ┆,w1:=address((w3).opr_console), ┆
0x62640…62660 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 20 77 ┆ w┆
0x62660…6267e 32 3a 3d 61 64 64 72 65 73 73 28 64 65 76 6e 61 6d 65 29 29 3b 0a 20 20 20 20 20 20 20 20 ┆2:=address(devname)); ┆
0x6267e…62684 (0x324,0xc4e)
0x62684…626a0 20 20 69 66 20 77 30 3c 30 20 74 68 65 6e 20 67 6f 74 6f 20 77 5f 6e 6f 74 61 6c 6c ┆ if w0<0 then goto w_notall┆
0x626a0…626c0 6f 77 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 64 65 76 63 6f 72 6f ┆ow; end; devcoro┆
0x626c0…626e0 75 74 3a 3d 77 31 3b 0a 0a 20 20 20 20 20 20 20 20 63 61 73 65 20 77 31 3a 3d 28 63 6f 6d 6d 5f ┆ut:=w1; case w1:=(comm_┆
0x626e0…626fc 74 61 62 6c 65 28 77 32 3a 3d 63 6f 6d 6e 6f 29 29 2e 77 6f 72 64 20 2b 20 35 20 6f ┆table(w2:=comno)).word + 5 o┆
0x626fc…62702 (0x324,0xc4f)
0x62702…62720 66 0a 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 ┆f begin beg┆
0x62720…62740 69 6e 20 63 6f 6d 6d 65 6e 74 20 65 6d 70 74 79 20 6c 69 6e 65 3b 0a 20 20 20 20 20 20 20 20 20 ┆in comment empty line; ┆
0x62740…62760 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 77 5f 6d 69 6e 75 73 70 61 72 61 ┆ end; goto w_minuspara┆
0x62760…6277a 6d 3b 0a 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 77 5f 70 6c 75 73 70 61 ┆m; goto w_pluspa┆
0x6277a…62780 (0x324,0xc50)
0x62780…627a0 72 61 6d 3b 0a 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 77 5f 73 79 6e 74 61 78 3b 0a 20 20 ┆ram; goto w_syntax; ┆
0x627a0…627c0 20 20 20 20 20 20 20 20 67 6f 74 6f 20 77 5f 63 6f 6d 6d 3b 0a 20 20 20 20 20 20 20 20 20 20 62 ┆ goto w_comm; b┆
0x627c0…627e0 65 67 69 6e 20 21 20 70 75 74 20 63 6f 6d 6d 61 6e 64 20 69 6e 74 6f 20 63 6f 72 6f 75 2e 20 64 ┆egin ! put command into corou. d┆
0x627e0…62800 65 73 63 72 2e 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 00 00 00 00 00 00 00 00 ┆escr. ! w1:= ┆
0x62800…62806 (788,) (0x324,0xc51)
0x62806…62820 64 65 76 63 6f 72 6f 75 74 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 ┆devcorout; if ┆
0x62820…62840 77 31 3d 30 20 74 68 65 6e 20 67 6f 74 6f 20 77 5f 75 6e 6b 6e 6f 77 6e 20 65 6c 73 65 20 0a 20 ┆w1=0 then goto w_unknown else ┆
0x62840…62860 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 31 3c 30 20 74 68 65 6e 20 67 6f 74 6f 20 77 5f 73 ┆ if w1<0 then goto w_s┆
0x62860…6287e 74 61 74 65 69 6c 6c 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 62 ┆tateill else w1:=b┆
0x6287e…62884 (0x324,0xc52)
0x62884…628a0 2e 68 6f 6c 64 71 66 73 74 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 61 ┆.holdqfst; w2:=a┆
0x628a0…628c0 64 64 72 65 73 73 28 62 2e 68 6f 6c 64 71 66 73 74 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ddress(b.holdqfst); ┆
0x628c0…628e0 77 30 3a 3d 30 3b 20 21 20 66 6c 61 67 20 66 6f 72 20 66 6f 75 6e 64 20 21 0a 20 20 20 20 20 20 ┆w0:=0; ! flag for found ! ┆
0x628e0…628fc 20 20 20 20 20 20 77 68 69 6c 65 20 77 31 3c 3e 77 32 20 64 6f 0a 20 20 20 20 20 20 ┆ while w1<>w2 do ┆
0x628fc…62902 (0x324,0xc53)
0x62902…62920 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 ┆ begin if w┆
0x62920…62940 31 3d 64 65 76 63 6f 72 6f 75 74 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 ┆1=devcorout then b┆
0x62940…62960 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 31 3b 0a 20 20 20 20 ┆egin w0:=1; ┆
0x62960…6297a 20 20 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 77 31 3b 0a 20 20 20 20 20 20 ┆ w2:=w1; ┆
0x6297a…62980 (0x324,0xc54)
0x62980…629a0 20 20 20 20 20 20 20 20 65 6e 64 20 65 6c 73 65 20 77 31 3a 3d 28 77 31 29 2e 63 5f 6e 65 78 74 ┆ end else w1:=(w1).c_next┆
0x629a0…629c0 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 ┆; end; w┆
0x629c0…629e0 31 3a 3d 64 65 76 63 6f 72 6f 75 74 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 63 61 73 65 20 77 ┆1:=devcorout; case w┆
0x629e0…62a00 32 3a 3d 63 6f 6d 6e 6f 20 6f 66 0a 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆2:=comno of ┆
0x62a00…62a06 (789,) (0x324,0xc55)
0x62a06…62a20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 ┆begin begin ┆
0x62a20…62a40 63 6f 6d 6d 65 6e 74 20 73 74 61 72 74 20 61 63 74 69 6f 6e 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆comment start action; ┆
0x62a40…62a60 20 20 20 20 20 20 69 66 20 77 30 3d 30 20 74 68 65 6e 20 67 6f 74 6f 20 77 5f 73 74 61 74 65 69 ┆ if w0=0 then goto w_statei┆
0x62a60…62a7e 6c 6c 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 70 61 72 ┆ll; if w0:=par┆
0x62a7e…62a84 (0x324,0xc56)
0x62a84…62aa0 61 6d 6e 6f 3d 34 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆amno=4 then ┆
0x62aa0…62ac0 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 28 77 31 29 ┆begin w0:=(w1)┆
0x62ac0…62ae0 2e 74 63 5f 6b 69 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 ┆.tc_kind; if w┆
0x62ae0…62afc 30 3d 31 36 20 74 68 65 6e 20 77 30 3a 3d 31 30 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆0=16 then w0:=10; ┆
0x62afc…62b02 (0x324,0xc57)
0x62b02…62b20 20 20 20 20 20 20 20 20 69 66 20 77 30 3c 3e 31 30 20 74 68 65 6e 20 67 6f 74 6f 20 77 5f ┆ if w0<>10 then goto w_┆
0x62b20…62b40 6e 6f 74 61 6c 6c 6f 77 3b 20 21 20 6f 6e 6c 79 20 66 6f 72 20 28 63 61 72 64 29 72 65 61 64 65 ┆notallow; ! only for (card)reade┆
0x62b40…62b60 72 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 66 72 65 65 70 61 ┆r ! w0:=freepa┆
0x62b60…62b7a 72 61 6d 3b 77 30 20 6c 73 68 69 66 74 20 31 32 3b 0a 20 20 20 20 20 20 20 20 ┆ram;w0 lshift 12; ┆
0x62b7a…62b80 (0x324,0xc58)
0x62b80…62ba0 20 20 20 20 20 20 20 20 20 20 63 6f 6d 6e 6f 3a 3d 77 30 2b 63 6f 6d 6e 6f 3b 0a 20 20 20 20 20 ┆ comno:=w0+comno; ┆
0x62ba0…62bc0 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e ┆ end; en┆
0x62bc0…62be0 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 73 ┆d; begin comment s┆
0x62be0…62c00 6b 69 70 20 61 63 74 69 6f 6e 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆kip action; ┆
0x62c00…62c06 (790,) (0x324,0xc59)
0x62c06…62c20 20 20 20 20 69 66 20 77 32 3a 3d 28 77 31 29 2e 74 63 5f 6b 69 6e 64 3c 3e 31 ┆ if w2:=(w1).tc_kind<>1┆
0x62c20…62c40 34 20 74 68 65 6e 20 67 6f 74 6f 20 77 5f 6e 6f 74 61 6c 6c 6f 77 3b 0a 20 20 20 20 20 20 20 20 ┆4 then goto w_notallow; ┆
0x62c40…62c60 20 20 20 20 20 20 20 20 69 66 20 77 30 3d 30 20 74 68 65 6e 20 67 6f 74 6f 20 77 5f 73 74 61 74 ┆ if w0=0 then goto w_stat┆
0x62c60…62c7e 65 69 6c 6c 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 74 63 5f ┆eill; (w1).tc_┆
0x62c7e…62c84 (0x324,0xc5a)
0x62c84…62ca0 77 6f 72 6b 66 66 73 20 3a 3d 20 77 30 20 3a 3d 20 66 72 65 65 70 61 72 61 6d 3b 0a ┆workffs := w0 := freeparam; ┆
0x62ca0…62cc0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ end; ┆
0x62cc0…62ce0 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 72 65 70 65 61 74 20 61 63 74 69 6f 6e 3b 0a 20 20 ┆ begin comment repeat action; ┆
0x62ce0…62cfc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 32 3a 3d 28 77 31 29 2e 74 63 ┆ if w2:=(w1).tc┆
0x62cfc…62d02 (0x324,0xc5b)
0x62d02…62d20 5f 6b 69 6e 64 20 61 6e 64 20 34 30 39 34 3c 3e 31 34 20 74 68 65 6e 20 67 6f 74 6f 20 77 ┆_kind and 4094<>14 then goto w┆
0x62d20…62d40 5f 6e 6f 74 61 6c 6c 6f 77 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 ┆_notallow; if w0┆
0x62d40…62d60 3d 30 20 74 68 65 6e 20 67 6f 74 6f 20 77 5f 73 74 61 74 65 69 6c 6c 3b 0a 20 20 20 20 20 20 20 ┆=0 then goto w_stateill; ┆
0x62d60…62d7a 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 74 63 5f 77 6f 72 6b 66 66 73 20 3a ┆ (w1).tc_workffs :┆
0x62d7a…62d80 (0x324,0xc5c)
0x62d80…62da0 3d 20 77 30 20 3a 3d 20 66 72 65 65 70 61 72 61 6d 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆= w0 := freeparam; ┆
0x62da0…62dc0 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e ┆ end; begin commen┆
0x62dc0…62de0 74 20 72 65 73 74 61 72 74 20 61 63 74 69 6f 6e 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆t restart action; ┆
0x62de0…62e00 20 20 77 32 3a 3d 28 77 31 29 2e 74 63 5f 6b 69 6e 64 3b 0a 20 20 20 20 00 00 00 00 00 00 00 00 ┆ w2:=(w1).tc_kind; ┆
0x62e00…62e06 (791,) (0x324,0xc5d)
0x62e06…62e20 20 20 20 20 20 20 20 20 20 20 20 20 77 32 20 61 6e 64 20 34 30 39 34 3b 0a 20 ┆ w2 and 4094; ┆
0x62e20…62e40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 32 3d 31 32 20 74 68 65 6e 20 77 32 3a ┆ if w2=12 then w2:┆
0x62e40…62e60 3d 31 34 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 32 3c 3e 31 34 20 74 ┆=14; if w2<>14 t┆
0x62e60…62e7e 68 65 6e 20 67 6f 74 6f 20 77 5f 6e 6f 74 61 6c 6c 6f 77 3b 0a 20 20 20 20 20 20 20 20 20 ┆hen goto w_notallow; ┆
0x62e7e…62e84 (0x324,0xc5e)
0x62e84…62ea0 20 20 20 20 20 20 20 69 66 20 77 30 3d 30 20 74 68 65 6e 20 67 6f 74 6f 20 77 5f 75 ┆ if w0=0 then goto w_u┆
0x62ea0…62ec0 6e 6b 6e 6f 77 6e 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 ┆nknown; end; ┆
0x62ec0…62ee0 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 73 74 6f 70 20 61 63 74 69 ┆ begin comment stop acti┆
0x62ee0…62efc 6f 6e 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3c 3e 30 ┆on; if w0<>0┆
0x62efc…62f02 (0x324,0xc5f)
0x62f02…62f20 20 74 68 65 6e 20 67 6f 74 6f 20 77 5f 73 74 61 74 65 69 6c 6c 3b 0a 20 20 20 20 20 20 20 ┆ then goto w_stateill; ┆
0x62f20…62f40 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 ┆ end; begin ┆
0x62f40…62f60 63 6f 6d 6d 65 6e 74 20 6b 69 6c 6c 20 61 63 74 69 6f 6e 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆comment kill action; ┆
0x62f60…62f7a 20 20 20 20 20 69 66 20 77 30 3d 30 20 74 68 65 6e 20 67 6f 74 6f 20 77 5f 73 ┆ if w0=0 then goto w_s┆
0x62f7a…62f80 (0x324,0xc60)
0x62f80…62fa0 74 61 74 65 69 6c 6c 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 ┆tateill; end; ┆
0x62fa0…62fc0 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 73 75 73 70 65 6e 64 20 ┆ begin comment suspend ┆
0x62fc0…62fe0 61 63 74 69 6f 6e 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 32 3a 3d 28 ┆action; if w2:=(┆
0x62fe0…63000 77 31 29 2e 74 63 5f 6b 69 6e 64 3c 3e 31 34 20 74 68 65 6e 20 67 6f 74 00 00 00 00 00 00 00 00 ┆w1).tc_kind<>14 then got ┆
0x63000…63006 (792,) (0x324,0xc61)
0x63006…63020 6f 20 77 5f 6e 6f 74 61 6c 6c 6f 77 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆o w_notallow; ┆
0x63020…63040 20 20 20 20 69 66 20 77 30 3d 30 20 74 68 65 6e 20 67 6f 74 6f 20 77 5f 73 74 61 74 65 69 6c 6c ┆ if w0=0 then goto w_stateill┆
0x63040…63060 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆; end; ┆
0x63060…6307e 20 65 6e 64 3b 20 21 20 65 6e 64 20 63 61 73 65 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ end; ! end case ! ┆
0x6307e…63084 (0x324,0xc62)
0x63084…630a0 20 28 77 31 29 2e 74 63 5f 6f 69 6e 74 65 72 76 65 6e 74 20 3a 3d 20 77 30 20 3a 3d ┆ (w1).tc_ointervent := w0 :=┆
0x630a0…630c0 20 63 6f 6d 6e 6f 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3c 3e 35 20 74 68 65 ┆ comno; if w0<>5 the┆
0x630c0…630e0 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 6c 69 6e 6b ┆n begin comment link┆
0x630e0…630fc 20 74 6f 20 61 63 74 69 76 65 20 71 75 65 75 65 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆ to active queue; ┆
0x630fc…63102 (0x324,0xc63)
0x63102…63120 20 20 20 20 6c 69 6e 6b 28 2e 77 33 2e 2c 77 31 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 62 ┆ link(.w3.,w1,w2:=address(b┆
0x63120…63140 2e 61 63 74 69 76 71 66 73 74 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 ┆.activqfst)); end; ┆
0x63140…63160 20 20 20 20 20 20 20 20 20 65 6e 64 3b 20 21 20 65 6e 64 20 73 74 61 72 74 20 73 6b 69 70 20 72 ┆ end; ! end start skip r┆
0x63160…6317a 65 70 65 61 74 20 72 65 73 74 61 72 74 20 73 74 6f 70 20 6b 69 6c 6c 20 73 75 ┆epeat restart stop kill su┆
0x6317a…63180 (0x324,0xc64)
0x63180…631a0 73 70 65 6e 64 20 21 0a 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 ┆spend ! begin comment┆
0x631a0…631c0 20 64 72 61 69 6e 20 61 63 74 69 6f 6e 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 64 ┆ drain action; w1:=d┆
0x631c0…631e0 65 76 63 6f 72 6f 75 74 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 31 3d 30 20 74 68 ┆evcorout; if w1=0 th┆
0x631e0…63200 65 6e 20 67 6f 74 6f 20 77 5f 75 6e 6b 6e 6f 77 6e 3b 0a 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆en goto w_unknown; ┆
0x63200…63206 (793,) (0x324,0xc65)
0x63206…63220 20 20 20 20 20 20 20 69 66 20 77 31 3c 30 20 74 68 65 6e 20 2d 28 77 31 29 3b ┆ if w1<0 then -(w1);┆
0x63220…63240 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 31 29 2e 74 63 5f 6b 69 6e 64 ┆ if w0:=(w1).tc_kind┆
0x63240…63260 3c 3e 31 34 20 74 68 65 6e 20 67 6f 74 6f 20 77 5f 6e 6f 74 61 6c 6c 6f 77 3b 0a 20 20 20 20 20 ┆<>14 then goto w_notallow; ┆
0x63260…6327e 20 20 20 20 20 20 20 28 77 31 29 2e 70 72 5f 64 72 61 69 6e 20 3a 3d 20 77 30 20 3a 3d 20 ┆ (w1).pr_drain := w0 := ┆
0x6327e…63284 (0x324,0xc66)
0x63284…632a0 2d 31 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 ┆-1; end; ┆
0x632a0…632c0 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 72 65 71 75 65 73 74 3b 0a 20 20 20 20 20 20 20 20 ┆ begin comment request; ┆
0x632c0…632e0 20 20 20 20 69 66 20 77 30 3a 3d 20 70 61 72 61 6d 6e 6f 3d 30 20 74 68 65 6e 20 64 69 73 70 6c ┆ if w0:= paramno=0 then displ┆
0x632e0…632fc 61 79 28 2e 77 33 2e 2c 77 30 3a 3d 31 2c 77 31 29 20 21 20 52 45 51 55 45 53 54 20 ┆ay(.w3.,w0:=1,w1) ! REQUEST ┆
0x632fc…63302 (0x324,0xc67)
0x63302…63320 21 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 31 3a 3d 20 64 65 76 ┆! else if w1:= dev┆
0x63320…63340 63 6f 72 6f 75 74 20 3e 20 30 20 74 68 65 6e 20 64 69 73 70 6c 61 79 28 2e 77 33 2e 2c 77 30 3a ┆corout > 0 then display(.w3.,w0:┆
0x63340…63360 3d 32 2c 77 31 29 20 21 20 52 45 51 55 45 53 54 20 3c 64 65 76 69 63 65 3e 20 21 20 65 6c 73 65 ┆=2,w1) ! REQUEST <device> ! else┆
0x63360…6337a 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 20 28 77 31 3a 3d ┆ if w0:= (w1:=┆
0x6337a…63380 (0x324,0xc68)
0x63380…633a0 61 64 64 72 65 73 73 28 64 65 76 6e 61 6d 65 29 29 2e 77 6f 72 64 3d 36 33 38 34 37 34 38 20 74 ┆address(devname)).word=6384748 t┆
0x633a0…633c0 68 65 6e 20 64 69 73 70 6c 61 79 28 2e 77 33 2e 2c 77 30 3a 3d 33 2c 77 31 29 20 21 20 52 45 51 ┆hen display(.w3.,w0:=3,w1) ! REQ┆
0x633c0…633e0 55 45 53 54 20 61 6c 6c 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 20 67 6f 74 6f ┆UEST all ! else goto┆
0x633e0…63400 20 77 5f 75 6e 6b 6e 6f 77 6e 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 00 00 00 00 00 00 00 00 ┆ w_unknown; en ┆
0x63400…63406 (794,) (0x324,0xc69)
0x63406…63420 64 3b 20 21 20 65 6e 64 20 64 69 73 70 6c 61 79 20 21 0a 20 20 20 20 20 20 20 ┆d; ! end display ! ┆
0x63420…63440 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 73 69 67 6e 75 70 20 61 63 74 69 6f 6e 3b 0a ┆ begin comment signup action; ┆
0x63440…63460 20 20 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 2d 38 33 38 38 36 30 37 3b 77 31 3a 3d 38 33 38 ┆ w0:=-8388607;w1:=838┆
0x63460…6347e 38 36 30 35 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 61 64 64 72 65 73 73 28 ┆8605; w3:=address(┆
0x6347e…63484 (0x324,0xc6a)
0x63484…634a0 7a 65 72 6f 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 37 ┆zero); monitor(7┆
0x634a0…634c0 32 29 3b 20 21 20 73 65 74 20 63 61 74 61 6c 6f 67 20 62 61 73 65 20 21 0a 20 20 20 20 20 20 20 ┆2); ! set catalog base ! ┆
0x634c0…634e0 20 20 20 20 20 77 31 3a 3d 20 66 72 65 65 70 61 72 61 6d 3b 6b 69 6e 64 3a 3d 20 77 31 3b 0a 20 ┆ w1:= freeparam;kind:= w1; ┆
0x634e0…634fc 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 70 61 72 61 6d 31 74 79 70 65 ┆ if w0:=param1type┆
0x634fc…63502 (0x324,0xc6b)
0x63502…63520 3d 31 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d ┆=1 then begin comm┆
0x63520…63540 65 6e 74 20 73 69 67 6e 75 70 20 74 6f 20 6c 6f 63 61 6c 20 64 65 76 69 63 65 3b 0a 20 20 20 20 ┆ent signup to local device; ┆
0x63540…63560 20 20 20 20 20 20 20 20 20 20 69 66 20 77 31 3c 3e 31 35 20 21 20 69 62 6d 20 33 32 37 30 20 70 ┆ if w1<>15 ! ibm 3270 p┆
0x63560…6357a 72 69 6e 74 65 72 20 21 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆rinter ! then ┆
0x6357a…63580 (0x324,0xc6c)
0x63580…635a0 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 61 64 64 72 ┆ begin w3:=addr┆
0x635a0…635c0 65 73 73 28 64 65 76 6e 61 6d 65 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f ┆ess(devname); mo┆
0x635c0…635e0 6e 69 74 6f 72 28 34 29 3b 20 21 20 6c 6f 6f 6b 75 70 20 70 72 6f 63 65 73 73 20 21 0a 20 20 20 ┆nitor(4); ! lookup process ! ┆
0x635e0…63600 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 31 3a 3d 77 30 3d 30 00 00 00 00 00 00 00 00 ┆ if w1:=w0=0 ┆
0x63600…63606 (795,) (0x324,0xc6d)
0x63606…63620 20 74 68 65 6e 20 67 6f 74 6f 20 77 5f 75 6e 6b 6e 6f 77 6e 3b 0a 20 20 20 20 ┆ then goto w_unknown; ┆
0x63620…63640 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 31 29 2e 77 6f 72 64 3c 3e 38 34 ┆ if w0:=(w1).word<>84┆
0x63640…63660 20 21 20 6c 6f 63 61 6c 20 6c 69 6e 6b 20 21 20 74 68 65 6e 20 67 6f 74 6f 20 77 5f 75 6e 6b 6e ┆ ! local link ! then goto w_unkn┆
0x63660…6367e 6f 77 6e 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 20 21 20 65 6e 64 20 ┆own; end; ! end ┆
0x6367e…63684 (0x324,0xc6e)
0x63684…636a0 6e 6f 74 20 69 62 6d 20 70 72 69 6e 74 65 72 20 21 0a 20 20 20 20 20 20 20 20 20 20 ┆not ibm printer ! ┆
0x636a0…636c0 20 20 20 20 77 30 3a 3d 30 3b 68 6f 73 74 6e 6f 3a 3d 77 30 3b 68 6f 73 74 69 64 3a 3d 77 30 3b ┆ w0:=0;hostno:=w0;hostid:=w0;┆
0x636c0…636e0 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 ┆ end else ┆
0x636e0…636fc 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 73 69 67 6e 75 70 20 74 6f 20 72 65 ┆ begin comment signup to re┆
0x636fc…63702 (0x324,0xc6f)
0x63702…63720 6d 6f 74 65 20 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 31 3c 3e 31 35 ┆mote ; if w1<>15┆
0x63720…63740 20 21 20 69 62 6d 20 33 32 37 30 20 70 72 69 6e 74 65 72 20 21 20 74 68 65 6e 0a 20 20 20 20 20 ┆ ! ibm 3270 printer ! then ┆
0x63740…63760 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 ┆ begin w┆
0x63760…6377a 33 3a 3d 61 64 64 72 65 73 73 28 64 68 6c 69 6e 6b 6e 6f 29 3b 0a 20 20 20 20 ┆3:=address(dhlinkno); ┆
0x6377a…63780 (0x324,0xc70)
0x63780…637a0 20 20 20 20 20 20 20 20 20 20 20 20 6c 6f 6f 6b 75 70 72 65 6d 6f 74 65 28 2e 77 33 2e 2c 77 30 ┆ lookupremote(.w3.,w0┆
0x637a0…637c0 3a 3d 34 2c 77 33 2c 77 33 3a 3d 61 64 64 72 65 73 73 28 64 65 76 6e 61 6d 65 29 2c 0a 20 20 20 ┆:=4,w3,w3:=address(devname), ┆
0x637c0…637e0 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 20 77 ┆ w┆
0x637e0…63800 30 2c 77 31 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 64 68 6c 69 6e 6b 6e 00 00 00 00 00 00 00 00 ┆0,w1,w2:=address(dhlinkn ┆
0x63800…63806 (796,) (0x324,0xc71)
0x63806…63820 6f 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 ┆o)); if w0┆
0x63820…63840 3d 34 30 39 36 20 74 68 65 6e 20 77 30 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆=4096 then w0:=0; ┆
0x63840…63860 20 20 69 66 20 77 30 3c 3e 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ if w0<>0 then ┆
0x63860…6387e 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 6c 6f 63 61 6c 20 6c 69 6e 6b 20 6f 72 20 64 65 ┆begin comment local link or de┆
0x6387e…63884 (0x324,0xc72)
0x63884…638a0 76 69 63 65 20 74 72 6f 75 62 6c 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆vice trouble; ┆
0x638a0…638c0 20 20 20 20 69 66 20 77 30 20 65 78 74 72 61 63 74 20 31 32 3c 3e 30 20 74 68 65 6e 20 67 6f 74 ┆ if w0 extract 12<>0 then got┆
0x638c0…638e0 6f 20 77 5f 75 6e 6b 6e 6f 77 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆o w_unknown ┆
0x638e0…638fc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 20 67 6f 74 6f 20 ┆ else goto ┆
0x638fc…63902 (0x324,0xc73)
0x63902…63920 77 5f 73 74 61 74 65 69 6c 6c 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e ┆w_stateill; en┆
0x63920…63940 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆d; end; ┆
0x63940…63960 20 20 65 6e 64 3b 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 66 69 6e 64 5f 74 63 28 2e 77 33 2e ┆ end; find_tc(.w3.┆
0x63960…6397a 2c 77 33 3a 3d 61 64 64 72 65 73 73 28 64 65 76 6e 61 6d 65 29 2c 77 33 3a 3d ┆,w3:=address(devname),w3:=┆
0x6397a…63980 (0x324,0xc74)
0x63980…639a0 68 6f 73 74 6e 6f 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆hostno, ┆
0x639a0…639c0 20 77 33 3a 3d 68 6f 73 74 69 64 2c 77 33 3a 3d 6b 69 6e 64 2c 77 31 29 3b 0a 20 20 20 20 20 20 ┆ w3:=hostid,w3:=kind,w1); ┆
0x639c0…639e0 20 20 20 20 20 20 69 66 20 77 31 3d 30 20 74 68 65 6e 20 67 6f 74 6f 20 77 5f 6e 6f 72 65 73 20 ┆ if w1=0 then goto w_nores ┆
0x639e0…63a00 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 31 3c 30 00 00 00 00 00 00 00 00 ┆else if w1<0 ┆
0x63a00…63a06 (797,) (0x324,0xc75)
0x63a06…63a20 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 ┆ then begin ┆
0x63a20…63a40 20 20 20 20 20 20 20 20 20 20 20 20 2d 28 77 31 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ -(w1); ┆
0x63a40…63a60 20 64 65 76 63 6f 72 6f 75 74 3a 3d 20 77 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d ┆ devcorout:= w1; m┆
0x63a60…63a7e 6f 76 65 28 2e 77 33 2e 2c 77 30 3a 3d 38 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 64 65 76 ┆ove(.w3.,w0:=8,w1:=address(dev┆
0x63a7e…63a84 (0x324,0xc76)
0x63a84…63aa0 6e 61 6d 65 29 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆name), ┆
0x63aa0…63ac0 20 20 20 77 32 3a 3d 61 64 64 72 65 73 73 28 28 77 32 3a 3d 64 65 76 63 6f 72 6f 75 74 29 2e 74 ┆ w2:=address((w2:=devcorout).t┆
0x63ac0…63ae0 63 5f 64 65 76 6e 61 6d 65 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 ┆c_devname)); if w0┆
0x63ae0…63afc 3a 3d 68 6f 73 74 69 64 3d 30 20 21 20 6c 6f 63 61 6c 20 64 65 76 69 63 65 20 21 20 ┆:=hostid=0 ! local device ! ┆
0x63afc…63b02 (0x324,0xc77)
0x63b02…63b20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f 76 65 28 2e 77 33 2e 2c 77 ┆then move(.w3.,w┆
0x63b20…63b40 30 3a 3d 38 2c 77 31 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 28 77 32 3a 3d 64 65 76 63 6f 72 6f ┆0:=8,w1,w2:=address((w2:=devcoro┆
0x63b40…63b60 75 74 29 2e 74 63 5f 6e 61 6d 65 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a ┆ut).tc_name)); w1:┆
0x63b60…63b7a 3d 64 65 76 63 6f 72 6f 75 74 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆=devcorout; ┆
0x63b7a…63b80 (0x324,0xc78)
0x63b80…63ba0 28 77 31 29 2e 74 63 5f 68 6f 73 74 6e 6f 3a 3d 20 77 30 3a 3d 20 68 6f 73 74 6e 6f 3b 0a 20 20 ┆(w1).tc_hostno:= w0:= hostno; ┆
0x63ba0…63bc0 20 20 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 74 63 5f 68 6f 73 74 69 64 3a 3d 20 77 30 3a ┆ (w1).tc_hostid:= w0:┆
0x63bc0…63be0 3d 20 68 6f 73 74 69 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 20 65 6c 73 65 20 64 ┆= hostid; end else d┆
0x63be0…63c00 65 76 63 6f 72 6f 75 74 3a 3d 20 77 31 3b 0a 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆evcorout:= w1; ┆
0x63c00…63c06 (798,) (0x324,0xc79)
0x63c06…63c20 20 20 20 69 66 20 77 30 3a 3d 20 28 77 31 29 2e 74 63 5f 68 65 6c 64 3c 3e 30 ┆ if w0:= (w1).tc_held<>0┆
0x63c20…63c40 20 74 68 65 6e 20 28 77 31 29 2e 74 63 5f 68 65 6c 64 3a 3d 20 77 30 3a 3d 20 31 3b 0a 20 20 20 ┆ then (w1).tc_held:= w0:= 1; ┆
0x63c40…63c60 20 20 20 20 20 20 20 20 20 77 33 3a 3d 62 2e 63 75 72 72 65 6e 74 3b 0a 20 20 20 20 20 20 20 20 ┆ w3:=b.current; ┆
0x63c60…63c7e 20 20 20 20 28 77 31 29 2e 74 63 5f 6f 68 6e 6f 3a 3d 20 77 30 3a 3d 20 28 77 33 29 2e 6f ┆ (w1).tc_ohno:= w0:= (w3).o┆
0x63c7e…63c84 (0x324,0xc7a)
0x63c84…63ca0 70 72 5f 68 6f 73 74 6e 6f 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e ┆pr_hostno; (w1).┆
0x63ca0…63cc0 74 63 5f 6f 68 69 64 3a 3d 20 77 30 3a 3d 20 28 77 33 29 2e 6f 70 72 5f 68 6f 73 74 69 64 3b 0a ┆tc_ohid:= w0:= (w3).opr_hostid; ┆
0x63cc0…63ce0 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f 76 65 28 2e 77 33 2e 2c 77 30 3a 3d 38 2c 77 31 3a 3d ┆ move(.w3.,w0:=8,w1:=┆
0x63ce0…63cfc 61 64 64 72 65 73 73 28 28 77 33 29 2e 6f 70 72 5f 63 6f 6e 73 6f 6c 65 29 2c 0a 20 ┆address((w3).opr_console), ┆
0x63cfc…63d02 (0x324,0xc7b)
0x63d02…63d20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 61 64 64 72 65 ┆ w2:=addre┆
0x63d20…63d40 73 73 28 28 77 32 3a 3d 64 65 76 63 6f 72 6f 75 74 29 2e 74 63 5f 63 6f 6e 73 6f 6c 65 29 29 3b ┆ss((w2:=devcorout).tc_console));┆
0x63d40…63d60 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 28 77 33 29 2e 6f 70 72 5f 64 68 6c 69 6e 6b ┆ w0:=(w3).opr_dhlink┆
0x63d60…63d7a 6e 6f 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 74 65 72 6d 69 6e 61 6c 69 64 ┆no; terminalid┆
0x63d7a…63d80 (0x324,0xc7c)
0x63d80…63da0 28 2e 77 33 2e 2c 77 30 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 28 77 32 3a 3d 64 65 76 63 6f 72 ┆(.w3.,w0,w2:=address((w2:=devcor┆
0x63da0…63dc0 6f 75 74 29 2e 74 63 5f 64 65 76 63 6f 6e 73 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 74 ┆out).tc_devcons)); t┆
0x63dc0…63de0 65 73 74 6f 75 74 28 2e 77 33 2e 2c 77 30 3a 3d 21 6c 65 6e 67 74 68 28 74 72 61 6e 73 70 63 6f ┆estout(.w3.,w0:=!length(transpco┆
0x63de0…63e00 72 6f 75 74 29 2c 77 31 3a 3d 64 65 76 63 6f 72 6f 75 74 2c 77 32 3a 3d 00 00 00 00 00 00 00 00 ┆rout),w1:=devcorout,w2:= ┆
0x63e00…63e06 (799,) (0x324,0xc7d)
0x63e06…63e20 36 38 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 64 69 73 70 6c 61 79 28 2e ┆68); display(.┆
0x63e20…63e40 77 33 2e 2c 77 30 3a 3d 32 2c 77 31 3a 3d 64 65 76 63 6f 72 6f 75 74 29 3b 20 21 20 67 65 74 20 ┆w3.,w0:=2,w1:=devcorout); ! get ┆
0x63e40…63e60 72 65 71 75 65 73 74 20 69 66 20 61 6e 79 20 21 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 20 ┆request if any ! end; ┆
0x63e60…63e7e 21 20 65 6e 64 20 73 69 67 6e 75 70 20 21 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e ┆! end signup ! begin┆
0x63e7e…63e84 (0x324,0xc7e)
0x63e84…63ea0 20 20 21 20 73 69 67 6e 6f 66 66 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 31 ┆ ! signoff ! w1┆
0x63ea0…63ec0 3a 3d 64 65 76 63 6f 72 6f 75 74 3b 0a 21 74 65 73 74 20 32 35 30 3b 0a 20 20 20 20 20 20 20 20 ┆:=devcorout; !test 250; ┆
0x63ec0…63ee0 20 20 20 20 69 66 20 77 31 3d 30 20 74 68 65 6e 20 67 6f 74 6f 20 77 5f 75 6e 6b 6e 6f 77 6e 3b ┆ if w1=0 then goto w_unknown;┆
0x63ee0…63efc 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 31 3c 30 20 74 68 65 6e 20 2d 28 ┆ if w1<0 then -(┆
0x63efc…63f02 (0x324,0xc7f)
0x63f02…63f20 77 31 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 31 29 2e 74 ┆w1); if w0:=(w1).t┆
0x63f20…63f40 63 5f 6b 69 6e 64 3d 31 34 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e ┆c_kind=14 then (w1).┆
0x63f40…63f60 70 72 5f 68 65 61 64 74 72 61 69 6c 3a 3d 77 30 3a 3d 62 2e 70 72 68 65 61 64 74 72 61 69 6c 3b ┆pr_headtrail:=w0:=b.prheadtrail;┆
0x63f60…63f7a 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 20 61 64 64 72 65 73 73 28 ┆ w2:= address(┆
0x63f7a…63f80 (0x324,0xc80)
0x63f80…63fa0 28 77 31 29 2e 74 63 5f 63 6f 6e 73 6f 6c 65 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 77 ┆(w1).tc_console); (w┆
0x63fa0…63fc0 32 29 2e 77 6f 72 64 3a 3d 20 77 30 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 32 ┆2).word:= w0:= 0; w2┆
0x63fc0…63fe0 3a 3d 20 61 64 64 72 65 73 73 28 28 77 31 29 2e 74 63 5f 64 65 76 63 6f 6e 73 29 3b 0a 20 20 20 ┆:= address((w1).tc_devcons); ┆
0x63fe0…64000 20 20 20 20 20 20 20 20 20 28 77 32 29 2e 77 6f 72 64 3a 3d 20 77 30 3b 00 00 00 00 00 00 00 00 ┆ (w2).word:= w0; ┆
0x64000…64006 (800,) (0x324,0xc81)
0x64006…64020 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 74 63 5f 6f 68 6e 6f 3a ┆ (w1).tc_ohno:┆
0x64020…64040 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 74 63 5f 6f 68 69 64 3a 3d ┆= w0; (w1).tc_ohid:=┆
0x64040…64060 20 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3c 3e 28 77 31 29 2e 74 63 5f ┆ w0; if w0<>(w1).tc_┆
0x64060…6407e 68 65 6c 64 20 74 68 65 6e 20 28 77 31 29 2e 74 63 5f 68 65 6c 64 3a 3d 20 77 30 3a 3d 20 ┆held then (w1).tc_held:= w0:= ┆
0x6407e…64084 (0x324,0xc82)
0x64084…640a0 32 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆2; end; ┆
0x640a0…640c0 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 73 65 6c 65 63 74 20 3c 70 72 69 6e 74 65 72 3e 20 28 ┆begin comment select <printer> (┆
0x640c0…640e0 3c 71 67 72 6f 75 70 3e 2e 3c 71 6e 61 6d 65 3e 29 30 2f 31 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆<qgroup>.<qname>)0/1; ┆
0x640e0…640fc 20 20 77 31 3a 3d 64 65 76 63 6f 72 6f 75 74 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ w1:=devcorout; ┆
0x640fc…64102 (0x324,0xc83)
0x64102…64120 20 69 66 20 77 31 3c 30 20 74 68 65 6e 20 67 6f 74 6f 20 77 5f 73 74 61 74 65 69 6c 6c 20 ┆ if w1<0 then goto w_stateill ┆
0x64120…64140 65 6c 73 65 20 69 66 20 77 31 3d 30 20 74 68 65 6e 20 67 6f 74 6f 20 77 5f 75 6e 6b 6e 6f 77 6e ┆else if w1=0 then goto w_unknown┆
0x64140…64160 20 65 6c 73 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 31 29 2e 74 ┆ else; if w0:=(w1).t┆
0x64160…6417a 63 5f 6b 69 6e 64 3c 3e 31 34 20 74 68 65 6e 20 67 6f 74 6f 20 77 5f 6e 6f 74 ┆c_kind<>14 then goto w_not┆
0x6417a…64180 (0x324,0xc84)
0x64180…641a0 61 6c 6c 6f 77 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 70 61 72 61 6d 6e ┆allow; if w0:=paramn┆
0x641a0…641c0 6f 3d 34 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 ┆o=4 then begin comme┆
0x641c0…641e0 6e 74 20 73 65 6c 65 63 74 20 3c 70 72 69 6e 74 65 72 3e 20 28 66 69 72 73 74 2f 6c 61 73 74 2f ┆nt select <printer> (first/last/┆
0x641e0…64200 6e 65 78 74 2f 70 72 65 76 69 6f 75 73 2f 73 75 73 70 65 6e 64 29 3b 0a 00 00 00 00 00 00 00 00 ┆next/previous/suspend); ┆
0x64200…64206 (801,) (0x324,0xc85)
0x64206…64220 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 30 20 3a 3d 20 66 72 65 65 70 61 ┆ w0 := freepa┆
0x64220…64240 72 61 6d 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3d 36 37 31 31 36 36 36 ┆ram; if w0=6711666┆
0x64240…64260 20 21 20 66 69 72 73 74 20 20 21 20 74 68 65 6e 20 77 30 3a 3d 31 20 65 6c 73 65 0a 20 20 20 20 ┆ ! first ! then w0:=1 else ┆
0x64260…6427e 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3d 37 31 30 32 38 33 35 20 21 20 6c 61 73 74 ┆ if w0=7102835 ! last┆
0x6427e…64284 (0x324,0xc86)
0x64284…642a0 20 20 20 21 20 74 68 65 6e 20 77 30 3a 3d 32 20 65 6c 73 65 0a 20 20 20 20 20 20 20 ┆ ! then w0:=2 else ┆
0x642a0…642c0 20 20 20 20 20 20 20 69 66 20 77 30 3d 37 32 33 34 39 33 36 20 21 20 6e 65 78 74 20 20 20 21 20 ┆ if w0=7234936 ! next ! ┆
0x642c0…642e0 74 68 65 6e 20 77 30 3a 3d 33 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 ┆then w0:=3 else if┆
0x642e0…642fc 20 77 30 3d 37 33 36 39 33 31 37 20 21 20 70 72 65 76 2e 20 20 21 20 74 68 65 6e 20 ┆ w0=7369317 ! prev. ! then ┆
0x642fc…64302 (0x324,0xc87)
0x64302…64320 77 30 3a 3d 34 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 ┆w0:=4 else if w0┆
0x64320…64340 3d 37 35 36 36 37 30 37 20 21 20 73 75 73 70 6e 64 20 21 20 74 68 65 6e 20 77 30 3a 3d 35 20 65 ┆=7566707 ! suspnd ! then w0:=5 e┆
0x64340…64360 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 77 5f 73 79 6e 74 61 78 3b ┆lse goto w_syntax;┆
0x64360…6437a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 70 72 5f 73 65 6c ┆ (w1).pr_sel┆
0x6437a…64380 (0x324,0xc88)
0x64380…643a0 65 63 74 20 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 20 65 6c 73 65 0a ┆ect := w0; end else ┆
0x643a0…643c0 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ begin ┆
0x643c0…643e0 6d 6f 76 65 28 2e 77 33 2e 2c 77 30 3a 3d 38 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 70 61 72 61 ┆move(.w3.,w0:=8,w1:=address(para┆
0x643e0…64400 6d 65 74 65 72 73 29 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆meters), ┆
0x64400…64406 (802,) (0x324,0xc89)
0x64406…64420 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 61 64 64 72 65 73 73 ┆ w2:=address┆
0x64420…64440 28 28 77 33 3a 3d 64 65 76 63 6f 72 6f 75 74 29 2e 74 63 5f 71 67 72 6f 75 70 29 29 3b 0a 20 20 ┆((w3:=devcorout).tc_qgroup)); ┆
0x64440…64460 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f 76 65 28 2e 77 33 2e 2c 77 30 3a 3d 38 2c 77 31 3a 3d ┆ move(.w3.,w0:=8,w1:=┆
0x64460…6447e 61 64 64 72 65 73 73 28 70 61 72 61 6d 65 74 65 72 73 29 2b 38 2c 0a 20 20 20 20 20 20 20 ┆address(parameters)+8, ┆
0x6447e…64484 (0x324,0xc8a)
0x64484…644a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 61 ┆ w2:=a┆
0x644a0…644c0 64 64 72 65 73 73 28 28 77 33 3a 3d 64 65 76 63 6f 72 6f 75 74 29 2e 74 63 5f 71 6e 61 6d 65 29 ┆ddress((w3:=devcorout).tc_qname)┆
0x644c0…644e0 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆); end; ┆
0x644e0…644fc 69 66 20 77 30 3a 3d 28 77 31 3a 3d 64 65 76 63 6f 72 6f 75 74 29 2e 70 72 5f 64 72 ┆if w0:=(w1:=devcorout).pr_dr┆
0x644fc…64502 (0x324,0xc8b)
0x64502…64520 61 69 6e 3d 31 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 ┆ain=1 then begin ┆
0x64520…64540 20 20 20 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ w0:=0; ┆
0x64540…64560 20 20 28 77 31 29 2e 74 63 5f 68 65 6c 64 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ (w1).tc_held:= w0; ┆
0x64560…6457a 20 20 20 28 77 31 29 2e 63 5f 69 63 20 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 ┆ (w1).c_ic := w0; ┆
0x6457a…64580 (0x324,0xc8c)
0x64580…645a0 20 20 20 20 20 20 20 20 6c 69 6e 6b 28 2e 77 33 2e 2c 77 31 2c 77 32 3a 3d 61 64 64 72 65 73 73 ┆ link(.w3.,w1,w2:=address┆
0x645a0…645c0 28 62 2e 61 63 74 69 76 71 66 73 74 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 20 ┆(b.activqfst)); end ┆
0x645c0…645e0 65 6c 73 65 20 28 77 31 29 2e 70 72 5f 64 72 61 69 6e 3a 3d 20 77 30 3a 3d 20 2d 31 3b 0a 20 20 ┆else (w1).pr_drain:= w0:= -1; ┆
0x645e0…64600 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 62 00 00 00 00 00 00 00 00 ┆ end; b ┆
0x64600…64606 (803,) (0x324,0xc8d)
0x64606…64620 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 72 6f 75 74 65 20 3c 70 72 69 6e 74 65 ┆egin comment route <printe┆
0x64620…64640 72 3e 20 3c 64 65 76 69 63 65 3e 0a 20 20 20 20 20 20 20 20 20 20 20 20 3c 64 65 76 69 63 65 3e ┆r> <device> <device>┆
0x64640…64660 3a 3a 3d 20 63 61 74 61 6c 6f 67 20 65 6e 74 72 79 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 ┆::= catalog entry; w┆
0x64660…6467e 31 3a 3d 64 65 76 63 6f 72 6f 75 74 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 ┆1:=devcorout; if w┆
0x6467e…64684 (0x324,0xc8e)
0x64684…646a0 31 3c 30 20 74 68 65 6e 20 67 6f 74 6f 20 77 5f 73 74 61 74 65 69 6c 6c 20 65 6c 73 ┆1<0 then goto w_stateill els┆
0x646a0…646c0 65 20 69 66 20 77 31 3d 30 20 74 68 65 6e 20 67 6f 74 6f 20 77 5f 75 6e 6b 6e 6f 77 6e 20 65 6c ┆e if w1=0 then goto w_unknown el┆
0x646c0…646e0 73 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 31 29 2e 74 63 5f 6b ┆se; if w0:=(w1).tc_k┆
0x646e0…646fc 69 6e 64 3c 3e 31 34 20 74 68 65 6e 20 67 6f 74 6f 20 77 5f 6e 6f 74 61 6c 6c 6f 77 ┆ind<>14 then goto w_notallow┆
0x646fc…64702 (0x324,0xc8f)
0x64702…64720 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 31 29 2e 70 72 5f 64 ┆; if w0:=(w1).pr_d┆
0x64720…64740 72 61 69 6e 3c 3e 31 20 74 68 65 6e 20 67 6f 74 6f 20 77 5f 73 74 61 74 65 69 6c 6c 3b 0a 20 20 ┆rain<>1 then goto w_stateill; ┆
0x64740…64760 20 20 20 20 20 20 20 20 20 20 6c 6f 6f 6b 74 72 61 6e 73 70 6f 72 74 28 2e 77 33 2e 2c 77 31 3a ┆ looktransport(.w3.,w1:┆
0x64760…6477a 3d 28 77 31 3a 3d 64 65 76 63 6f 72 6f 75 74 2e 70 72 5f 71 75 65 72 65 66 29 ┆=(w1:=devcorout.pr_queref)┆
0x6477a…64780 (0x324,0xc90)
0x64780…647a0 2e 74 71 5f 74 72 61 6e 73 6e 6f 2c 77 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 ┆.tq_transno,w2); if ┆
0x647a0…647c0 77 32 3c 3d 30 20 74 68 65 6e 20 67 6f 74 6f 20 77 5f 61 70 70 6c 6b 69 6c 6c 3b 0a 20 20 20 20 ┆w2<=0 then goto w_applkill; ┆
0x647c0…647e0 20 20 20 20 20 20 20 20 74 72 61 6e 73 72 65 66 3a 3d 20 77 32 3b 0a 20 20 20 20 20 20 20 20 20 ┆ transref:= w2; ┆
0x647e0…64800 20 20 20 77 30 3a 3d 28 77 32 29 2e 74 72 5f 62 61 73 65 6c 3b 77 31 3a 00 00 00 00 00 00 00 00 ┆ w0:=(w2).tr_basel;w1: ┆
0x64800…64806 (804,) (0x324,0xc91)
0x64806…64820 3d 28 77 32 29 2e 74 72 5f 62 61 73 65 75 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆=(w2).tr_baseu; ┆
0x64820…64840 20 20 77 33 3a 3d 61 64 64 72 65 73 73 28 7a 65 72 6f 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ w3:=address(zero); ┆
0x64840…64860 20 6d 6f 6e 69 74 6f 72 28 37 32 29 3b 20 21 20 73 65 74 20 63 61 74 61 6c 6f 67 20 62 61 73 65 ┆ monitor(72); ! set catalog base┆
0x64860…6487e 20 74 6f 20 74 68 61 74 20 6f 66 20 73 65 6e 64 65 72 20 21 0a 20 20 20 20 20 20 20 20 20 ┆ to that of sender ! ┆
0x6487e…64884 (0x324,0xc92)
0x64884…648a0 20 20 20 74 61 69 6c 28 77 31 3a 3d 31 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ tail(w1:=1); ┆
0x648a0…648c0 77 33 3a 3d 61 64 64 72 65 73 73 28 70 61 72 61 6d 65 74 65 72 73 29 3b 0a 20 20 20 20 20 20 20 ┆w3:=address(parameters); ┆
0x648c0…648e0 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 34 32 29 3b 20 21 20 6c 6f 6f 6b 75 70 20 65 6e 74 72 79 ┆ monitor(42); ! lookup entry┆
0x648e0…648fc 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3c 3e 30 20 74 68 65 6e ┆ ! if w0<>0 then┆
0x648fc…64902 (0x324,0xc93)
0x64902…64920 20 67 6f 74 6f 20 77 5f 72 65 63 65 6e 74 72 79 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ goto w_recentry; ┆
0x64920…64940 77 30 3a 3d 28 74 61 69 6c 28 77 31 3a 3d 31 29 29 2e 77 6f 72 64 3b 0a 20 20 20 20 20 20 20 20 ┆w0:=(tail(w1:=1)).word; ┆
0x64940…64960 20 20 20 20 69 66 20 77 30 3d 2d 38 33 38 30 34 30 32 20 74 68 65 6e 20 77 30 3a 3d 2d 38 33 38 ┆ if w0=-8380402 then w0:=-838┆
0x64960…6497a 38 35 39 34 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3c 3e 2d ┆8594; if w0<>-┆
0x6497a…64980 (0x324,0xc94)
0x64980…649a0 38 33 38 38 35 39 34 20 74 68 65 6e 20 67 6f 74 6f 20 77 5f 72 65 63 65 6e 74 72 79 3b 0a 20 20 ┆8388594 then goto w_recentry; ┆
0x649a0…649c0 20 20 20 20 20 20 20 20 20 20 6d 6f 76 65 28 2e 77 33 2e 2c 77 30 3a 3d 38 2c 74 61 69 6c 28 77 ┆ move(.w3.,w0:=8,tail(w┆
0x649c0…649e0 31 3a 3d 32 29 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 64 65 73 74 6e 61 6d 65 29 29 3b 0a 20 20 ┆1:=2),w2:=address(destname)); ┆
0x649e0…64a00 20 20 20 20 20 20 20 20 20 20 66 69 6e 64 5f 74 63 28 2e 77 33 2e 2c 77 00 00 00 00 00 00 00 00 ┆ find_tc(.w3.,w ┆
0x64a00…64a06 (805,) (0x324,0xc95)
0x64a06…64a20 30 3a 3d 61 64 64 72 65 73 73 28 64 65 73 74 6e 61 6d 65 29 2c 77 30 3a 3d 28 ┆0:=address(destname),w0:=(┆
0x64a20…64a40 74 61 69 6c 28 77 31 3a 3d 37 29 29 2e 77 6f 72 64 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆tail(w1:=7)).word, ┆
0x64a40…64a60 20 20 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 28 74 61 69 6c 28 77 31 3a 3d 38 29 29 2e 77 6f ┆ w0:=(tail(w1:=8)).wo┆
0x64a60…64a7e 72 64 2c 77 30 3a 3d 31 34 2c 77 31 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 ┆rd,w0:=14,w1); if ┆
0x64a7e…64a84 (0x324,0xc96)
0x64a84…64aa0 77 31 3d 30 20 74 68 65 6e 20 67 6f 74 6f 20 77 5f 6e 6f 72 65 73 3b 0a 20 20 20 20 ┆w1=0 then goto w_nores; ┆
0x64aa0…64ac0 20 20 20 20 20 20 20 20 64 65 73 74 72 65 66 20 3a 3d 20 77 31 3b 0a 20 20 20 20 20 20 20 20 20 ┆ destref := w1; ┆
0x64ac0…64ae0 20 20 20 69 66 20 77 31 3c 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 ┆ if w1<0 then begi┆
0x64ae0…64afc 6e 20 63 6f 6d 6d 65 6e 74 20 63 72 65 61 74 65 20 63 6f 72 6f 75 74 69 6e 65 3b 0a ┆n comment create coroutine; ┆
0x64afc…64b02 (0x324,0xc97)
0x64b02…64b20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2d 28 77 31 29 3b 64 65 73 74 72 65 66 3a 3d 77 ┆ -(w1);destref:=w┆
0x64b20…64b40 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 74 61 69 6c 28 77 31 ┆1; if w0:=(tail(w1┆
0x64b40…64b60 3a 3d 38 29 29 2e 77 6f 72 64 3d 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆:=8)).word=0 then ┆
0x64b60…64b7a 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 6c 6f 63 61 6c 20 64 65 76 69 63 65 ┆begin comment local device┆
0x64b7a…64b80 (0x324,0xc98)
0x64b80…64ba0 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 61 64 64 72 65 73 73 28 64 65 ┆; w3:=address(de┆
0x64ba0…64bc0 73 74 6e 61 6d 65 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 ┆stname); monitor┆
0x64bc0…64be0 28 34 29 3b 20 21 20 6c 6f 6f 6b 75 70 20 70 72 6f 63 65 73 73 20 21 0a 20 20 20 20 20 20 20 20 ┆(4); ! lookup process ! ┆
0x64be0…64c00 20 20 20 20 20 20 20 20 69 66 20 77 30 3d 30 20 74 68 65 6e 20 67 6f 74 00 00 00 00 00 00 00 00 ┆ if w0=0 then got ┆
0x64c00…64c06 (806,) (0x324,0xc99)
0x64c06…64c20 6f 20 77 5f 72 65 63 64 65 76 69 63 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆o w_recdevice; ┆
0x64c20…64c40 20 20 20 20 20 70 72 6f 63 72 65 66 3a 3d 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ procref:=w0; ┆
0x64c40…64c60 65 6e 64 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d ┆end else begin com┆
0x64c60…64c7e 6d 65 6e 74 20 72 65 6d 6f 74 65 20 64 65 76 69 63 65 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆ment remote device; ┆
0x64c7e…64c84 (0x324,0xc9a)
0x64c84…64ca0 20 20 20 20 20 20 6c 69 6e 6b 75 70 72 65 6d 6f 74 65 28 2e 77 33 2e 2c 77 30 3a 3d ┆ linkupremote(.w3.,w0:=┆
0x64ca0…64cc0 31 34 2c 77 30 3a 3d 28 74 61 69 6c 28 77 31 3a 3d 37 29 29 2e 77 6f 72 64 2c 0a 20 20 20 20 20 ┆14,w0:=(tail(w1:=7)).word, ┆
0x64cc0…64ce0 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 77 30 3a ┆ w0:┆
0x64ce0…64cfc 3d 28 74 61 69 6c 28 77 31 3a 3d 38 29 29 2e 77 6f 72 64 2c 77 30 3a 3d 61 64 64 72 ┆=(tail(w1:=8)).word,w0:=addr┆
0x64cfc…64d02 (0x324,0xc9b)
0x64d02…64d20 65 73 73 28 64 65 73 74 6e 61 6d 65 29 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ess(destname), ┆
0x64d20…64d40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 30 2c 77 32 29 3b 0a 20 20 20 20 20 ┆ w0,w2); ┆
0x64d40…64d60 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3c 3e 34 30 39 36 20 74 68 65 6e 20 67 6f 74 6f ┆ if w0<>4096 then goto┆
0x64d60…64d7a 20 77 5f 72 65 63 64 65 76 69 63 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ w_recdevice; ┆
0x64d7a…64d80 (0x324,0xc9c)
0x64d80…64da0 20 20 20 20 70 72 6f 63 72 65 66 3a 3d 77 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 ┆ procref:=w2; e┆
0x64da0…64dc0 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 64 65 73 74 72 65 66 3b 0a 20 ┆nd; w1:=destref; ┆
0x64dc0…64de0 20 20 20 20 20 20 20 20 20 20 20 20 20 63 72 65 61 74 65 5f 74 63 28 2e 77 33 2e 2c 77 31 2c 77 ┆ create_tc(.w3.,w1,w┆
0x64de0…64e00 30 3a 3d 61 64 64 72 65 73 73 28 64 65 73 74 6e 61 6d 65 29 2c 77 30 3a 00 00 00 00 00 00 00 00 ┆0:=address(destname),w0: ┆
0x64e00…64e06 (807,) (0x324,0xc9d)
0x64e06…64e20 3d 28 74 61 69 6c 28 77 32 3a 3d 37 29 29 2e 77 6f 72 64 2c 0a 20 20 20 20 20 ┆=(tail(w2:=7)).word, ┆
0x64e20…64e40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 28 74 61 69 ┆ w0:=(tai┆
0x64e40…64e60 6c 28 77 32 3a 3d 38 29 29 2e 77 6f 72 64 2c 77 30 3a 3d 70 72 6f 63 72 65 66 29 3b 0a 20 20 20 ┆l(w2:=8)).word,w0:=procref); ┆
0x64e60…64e7e 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 30 20 3a ┆ end; w0 :┆
0x64e7e…64e84 (0x324,0xc9e)
0x64e84…64ea0 3d 20 61 64 64 72 65 73 73 28 28 77 31 3a 3d 64 65 73 74 72 65 66 29 2e 74 63 5f 6e ┆= address((w1:=destref).tc_n┆
0x64ea0…64ec0 65 78 74 74 72 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 33 20 3a 3d 20 28 77 31 3a 3d 64 ┆exttr); w3 := (w1:=d┆
0x64ec0…64ee0 65 76 63 6f 72 6f 75 74 29 2e 70 72 5f 71 75 65 72 65 66 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆evcorout).pr_queref; ┆
0x64ee0…64efc 20 6c 69 6e 6b 28 2e 77 33 2e 2c 77 31 3a 3d 77 33 2c 77 32 3a 3d 77 30 29 3b 0a 20 ┆ link(.w3.,w1:=w3,w2:=w0); ┆
0x64efc…64f02 (0x324,0xc9f)
0x64f02…64f20 20 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 74 72 61 6e 73 72 65 66 3b 0a 20 20 20 20 20 ┆ w2:=transref; ┆
0x64f20…64f40 20 20 20 20 20 20 20 28 77 32 29 2e 74 72 5f 63 6f 72 6f 75 20 3a 3d 20 77 30 20 3a 3d 20 64 65 ┆ (w2).tr_corou := w0 := de┆
0x64f40…64f60 73 74 72 65 66 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f 76 65 28 2e 77 33 2e 2c 77 30 3a ┆stref; move(.w3.,w0:┆
0x64f60…64f7a 3d 38 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 64 65 73 74 6e 61 6d 65 29 2c 77 ┆=8,w1:=address(destname),w┆
0x64f7a…64f80 (0x324,0xca0)
0x64f80…64fa0 32 3a 3d 61 64 64 72 65 73 73 28 28 77 32 29 2e 74 72 5f 72 6e 61 6d 65 29 29 3b 0a 20 20 20 20 ┆2:=address((w2).tr_rname)); ┆
0x64fa0…64fc0 20 20 20 20 20 20 20 20 70 75 74 74 72 61 6e 73 70 6f 72 74 28 2e 77 33 2e 2c 77 31 3a 3d 64 65 ┆ puttransport(.w3.,w1:=de┆
0x64fc0…64fe0 76 63 6f 72 6f 75 74 2e 74 63 5f 74 72 61 6e 73 6e 6f 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆vcorout.tc_transno); ┆
0x64fe0…65000 20 77 31 3a 3d 64 65 76 63 6f 72 6f 75 74 3b 0a 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ w1:=devcorout; ┆
0x65000…65006 (808,) (0x324,0xca1)
0x65006…65020 20 20 20 20 77 30 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 77 31 ┆ w0:=0; (w1┆
0x65020…65040 29 2e 74 63 5f 68 65 6c 64 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 77 31 29 ┆).tc_held:= w0; (w1)┆
0x65040…65060 2e 63 5f 69 63 20 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 6c 69 6e 6b 28 2e 77 ┆.c_ic := w0; link(.w┆
0x65060…6507e 33 2e 2c 77 31 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 62 2e 61 63 74 69 76 71 66 73 74 29 ┆3.,w1,w2:=address(b.activqfst)┆
0x6507e…65084 (0x324,0xca2)
0x65084…650a0 29 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 20 21 20 65 6e 64 20 72 6f 75 74 ┆); end; ! end rout┆
0x650a0…650c0 65 20 3c 70 72 69 6e 74 65 72 3e 20 3c 64 65 73 74 70 72 69 6e 74 65 72 3e 20 21 0a 20 20 20 20 ┆e <printer> <destprinter> ! ┆
0x650c0…650e0 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 74 72 69 61 6e 67 20 3c 70 72 69 6e ┆ begin comment triang <prin┆
0x650e0…650fc 74 65 72 3e 20 28 6f 6e 2f 6f 66 66 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 ┆ter> (on/off); w┆
0x650fc…65102 (0x324,0xca3)
0x65102…65120 31 3a 3d 64 65 76 63 6f 72 6f 75 74 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 ┆1:=devcorout; if w┆
0x65120…65140 31 3d 30 20 74 68 65 6e 20 67 6f 74 6f 20 77 5f 75 6e 6b 6e 6f 77 6e 3b 0a 20 20 20 20 20 20 20 ┆1=0 then goto w_unknown; ┆
0x65140…65160 20 20 20 20 20 69 66 20 77 31 3c 30 20 74 68 65 6e 20 2d 28 77 31 29 3b 0a 20 20 20 20 20 20 20 ┆ if w1<0 then -(w1); ┆
0x65160…6517a 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 31 29 2e 74 63 5f 6b 69 6e 64 3c 3e ┆ if w0:=(w1).tc_kind<>┆
0x6517a…65180 (0x324,0xca4)
0x65180…651a0 31 34 20 74 68 65 6e 20 67 6f 74 6f 20 77 5f 6e 6f 74 61 6c 6c 6f 77 3b 0a 20 20 20 20 20 20 20 ┆14 then goto w_notallow; ┆
0x651a0…651c0 20 20 20 20 20 77 30 3a 3d 66 72 65 65 70 61 72 61 6d 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ w0:=freeparam; ┆
0x651c0…651e0 69 66 20 77 30 3d 37 33 30 32 36 35 36 20 21 20 6f 6e 20 20 21 20 74 68 65 6e 20 28 77 31 29 2e ┆if w0=7302656 ! on ! then (w1).┆
0x651e0…65200 70 72 5f 68 65 61 64 74 72 61 69 6c 20 3a 3d 20 77 30 20 3a 3d 20 31 20 00 00 00 00 00 00 00 00 ┆pr_headtrail := w0 := 1 ┆
0x65200…65206 (809,) (0x324,0xca5)
0x65206…65220 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3d 37 33 30 ┆else if w0=730┆
0x65220…65240 30 37 31 30 20 21 20 6f 66 66 20 21 20 74 68 65 6e 20 28 77 31 29 2e 70 72 5f 68 65 61 64 74 72 ┆0710 ! off ! then (w1).pr_headtr┆
0x65240…65260 61 69 6c 20 3a 3d 20 77 30 20 3a 3d 20 30 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ail := w0 := 0 else ┆
0x65260…6527e 67 6f 74 6f 20 77 5f 73 79 6e 74 61 78 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a ┆goto w_syntax; end; ┆
0x6527e…65284 (0x324,0xca6)
0x65284…652a0 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 64 69 73 70 ┆ begin comment disp┆
0x652a0…652c0 6c 61 79 20 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 64 69 73 70 6c 61 79 28 2e 77 33 2e 2c 77 ┆lay ; display(.w3.,w┆
0x652c0…652e0 30 3a 3d 34 2c 77 31 29 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 20 21 20 65 6e 64 20 64 ┆0:=4,w1); end; ! end d┆
0x652e0…652fc 69 73 70 6c 61 79 20 21 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 20 21 20 63 61 73 65 ┆isplay ! end; ! case┆
0x652fc…65302 (0x324,0xca7)
0x65302…65320 20 21 0a 0a 20 20 20 20 20 20 20 20 69 66 20 77 31 3c 3e 77 31 20 74 68 65 6e 0a 20 20 20 ┆ ! if w1<>w1 then ┆
0x65320…65340 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 65 72 72 6f 72 74 65 78 74 73 3b 0a 77 ┆ begin comment errortexts; w┆
0x65340…65360 5f 73 79 6e 74 61 78 3a 20 20 20 20 20 77 31 3a 3d 61 64 64 72 65 73 73 28 74 5f 73 79 6e 74 61 ┆_syntax: w1:=address(t_synta┆
0x65360…6537a 78 29 3b 20 20 20 20 20 67 6f 74 6f 20 6f 75 74 74 65 78 74 3b 0a 77 5f 63 6f ┆x); goto outtext; w_co┆
0x6537a…65380 (0x324,0xca8)
0x65380…653a0 6d 6d 3a 20 20 20 20 20 20 20 77 31 3a 3d 61 64 64 72 65 73 73 28 74 5f 63 6f 6d 6d 29 3b 20 20 ┆mm: w1:=address(t_comm); ┆
0x653a0…653c0 20 20 20 20 20 67 6f 74 6f 20 6f 75 74 74 65 78 74 3b 0a 77 5f 70 6c 75 73 70 61 72 61 6d 3a 20 ┆ goto outtext; w_plusparam: ┆
0x653c0…653e0 20 77 31 3a 3d 61 64 64 72 65 73 73 28 74 5f 70 6c 75 73 70 61 72 61 6d 29 3b 20 20 67 6f 74 6f ┆ w1:=address(t_plusparam); goto┆
0x653e0…65400 20 6f 75 74 74 65 78 74 3b 0a 77 5f 6d 69 6e 75 73 70 61 72 61 6d 3a 20 00 00 00 00 00 00 00 00 ┆ outtext; w_minusparam: ┆
0x65400…65406 (810,) (0x324,0xca9)
0x65406…65420 77 31 3a 3d 61 64 64 72 65 73 73 28 74 5f 6d 69 6e 75 73 70 61 72 61 6d 29 3b ┆w1:=address(t_minusparam);┆
0x65420…65440 20 67 6f 74 6f 20 6f 75 74 74 65 78 74 3b 0a 77 5f 75 6e 6b 6e 6f 77 6e 3a 20 20 20 20 77 31 3a ┆ goto outtext; w_unknown: w1:┆
0x65440…65460 3d 61 64 64 72 65 73 73 28 74 5f 75 6e 6b 6e 6f 77 6e 29 3b 20 20 20 20 67 6f 74 6f 20 6f 75 74 ┆=address(t_unknown); goto out┆
0x65460…6547e 74 65 78 74 3b 0a 77 5f 73 74 61 74 65 69 6c 6c 3a 20 20 20 77 31 3a 3d 61 64 64 72 65 73 ┆text; w_stateill: w1:=addres┆
0x6547e…65484 (0x324,0xcaa)
0x65484…654a0 73 28 74 5f 73 74 61 74 65 69 6c 6c 29 3b 20 20 20 67 6f 74 6f 20 6f 75 74 74 65 78 ┆s(t_stateill); goto outtex┆
0x654a0…654c0 74 3b 0a 77 5f 6e 6f 74 61 6c 6c 6f 77 3a 20 20 20 77 31 3a 3d 61 64 64 72 65 73 73 28 74 5f 6e ┆t; w_notallow: w1:=address(t_n┆
0x654c0…654e0 6f 74 61 6c 6c 6f 77 29 3b 20 20 20 67 6f 74 6f 20 6f 75 74 74 65 78 74 3b 0a 77 5f 6e 6f 72 65 ┆otallow); goto outtext; w_nore┆
0x654e0…654fc 73 3a 20 20 20 20 20 20 77 31 3a 3d 61 64 64 72 65 73 73 28 74 5f 6e 6f 72 65 73 29 ┆s: w1:=address(t_nores)┆
0x654fc…65502 (0x324,0xcab)
0x65502…65520 3b 20 20 20 20 20 20 67 6f 74 6f 20 6f 75 74 74 65 78 74 3b 0a 77 5f 72 65 63 65 6e 74 72 ┆; goto outtext; w_recentr┆
0x65520…65540 79 3a 20 20 20 77 31 3a 3d 61 64 64 72 65 73 73 28 74 5f 72 65 63 65 6e 74 72 79 29 3b 20 20 20 ┆y: w1:=address(t_recentry); ┆
0x65540…65560 67 6f 74 6f 20 6f 75 74 74 65 78 74 3b 0a 77 5f 72 65 63 64 65 76 69 63 65 3a 20 20 77 31 3a 3d ┆goto outtext; w_recdevice: w1:=┆
0x65560…6557a 61 64 64 72 65 73 73 28 74 5f 72 65 63 64 65 76 69 63 65 29 3b 20 20 67 6f 74 ┆address(t_recdevice); got┆
0x6557a…65580 (0x324,0xcac)
0x65580…655a0 6f 20 6f 75 74 74 65 78 74 3b 0a 77 5f 61 70 70 6c 6b 69 6c 6c 3a 20 20 20 77 31 3a 3d 61 64 64 ┆o outtext; w_applkill: w1:=add┆
0x655a0…655c0 72 65 73 73 28 74 5f 61 70 70 6c 6b 69 6c 6c 29 3b 20 20 20 67 6f 74 6f 20 6f 75 74 74 65 78 74 ┆ress(t_applkill); goto outtext┆
0x655c0…655e0 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 0a 20 20 20 20 20 20 20 20 77 31 3a 3d 20 61 64 64 ┆; end; w1:= add┆
0x655e0…65600 72 65 73 73 28 74 5f 72 65 61 64 79 29 3b 0a 6f 75 74 74 65 78 74 3a 0a 00 00 00 00 00 00 00 00 ┆ress(t_ready); outtext: ┆
0x65600…65606 (811,) (0x324,0xcad)
0x65606…65620 20 20 20 20 20 20 20 20 21 20 77 31 20 61 62 73 20 72 65 66 20 72 65 70 6c 79 ┆ ! w1 abs ref reply┆
0x65620…65640 20 74 65 78 74 20 21 0a 20 20 20 20 20 20 20 20 6d 6f 76 65 28 2e 77 33 2e 2c 77 30 3a 3d 31 38 ┆ text ! move(.w3.,w0:=18┆
0x65640…65660 2c 77 31 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 76 61 72 74 65 78 74 29 29 3b 0a 20 20 20 20 20 ┆,w1,w2:=address(vartext)); ┆
0x65660…6567e 20 20 20 6f 75 74 74 69 6d 65 28 2e 77 33 2e 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 74 69 ┆ outtime(.w3.,w2:=address(ti┆
0x6567e…65684 (0x324,0xcae)
0x65684…656a0 6d 65 29 29 3b 0a 20 20 20 20 20 20 20 20 77 31 3a 3d 62 2e 70 72 69 6d 6f 2b 32 3b ┆me)); w1:=b.primo+2;┆
0x656a0…656c0 0a 20 20 20 20 20 20 20 20 6d 6f 76 65 28 2e 77 33 2e 2c 77 30 3a 3d 38 2c 77 31 2c 77 32 3a 3d ┆ move(.w3.,w0:=8,w1,w2:=┆
0x656c0…656e0 61 64 64 72 65 73 73 28 6f 77 6e 6e 61 6d 65 29 29 3b 0a 20 20 20 20 20 20 20 20 77 30 3a 3d 20 ┆address(ownname)); w0:= ┆
0x656e0…656fc 61 64 64 72 65 73 73 28 6c 61 73 74 74 65 78 74 29 3b 0a 20 20 20 20 20 20 20 20 77 ┆address(lasttext); w┆
0x656fc…65702 (0x324,0xcaf)
0x65702…65720 32 3a 3d 61 64 64 72 65 73 73 28 74 69 6d 65 29 3b 0a 20 20 20 20 20 20 20 20 77 30 2d 77 ┆2:=address(time); w0-w┆
0x65720…65740 32 3b 0a 20 20 20 20 20 20 20 20 77 31 3a 3d 28 77 33 29 2e 6f 70 72 5f 62 75 66 3b 0a 20 20 20 ┆2; w1:=(w3).opr_buf; ┆
0x65740…65760 20 20 20 20 20 28 77 31 29 2e 62 75 66 5f 6f 70 3a 3d 20 77 32 3a 3d 20 35 3b 0a 20 20 20 20 20 ┆ (w1).buf_op:= w2:= 5; ┆
0x65760…6577a 20 20 20 28 77 31 29 2e 62 75 66 5f 6c 61 73 74 3a 3d 20 77 32 3a 3d 20 28 77 ┆ (w1).buf_last:= w2:= (w┆
0x6577a…65780 (0x324,0xcb0)
0x65780…657a0 31 29 2e 62 75 66 5f 66 69 72 73 74 2b 77 30 3b 0a 20 20 20 20 20 20 20 20 77 30 2b 32 3b 0a 20 ┆1).buf_first+w0; w0+2; ┆
0x657a0…657c0 20 20 20 20 20 20 20 77 32 3a 3d 20 28 77 31 29 2e 62 75 66 5f 66 69 72 73 74 3b 0a 20 20 20 20 ┆ w2:= (w1).buf_first; ┆
0x657c0…657e0 20 20 20 20 6d 6f 76 65 28 2e 77 33 2e 2c 77 30 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 74 69 6d ┆ move(.w3.,w0,w1:=address(tim┆
0x657e0…65800 65 29 2c 77 32 29 3b 0a 20 20 20 20 20 20 20 20 74 65 73 74 6f 75 74 28 00 00 00 00 00 00 00 00 ┆e),w2); testout( ┆
0x65800…65806 (812,) (0x324,0xcb1)
0x65806…65820 2e 77 33 2e 2c 77 30 2c 77 31 2c 77 32 3a 3d 30 29 3b 0a 20 20 20 20 20 20 20 ┆.w3.,w0,w1,w2:=0); ┆
0x65820…65840 20 73 65 6e 64 77 61 69 74 28 2e 77 33 2e 2c 77 30 2c 77 31 3a 3d 28 77 33 29 2e 6f 70 72 5f 62 ┆ sendwait(.w3.,w0,w1:=(w3).opr_b┆
0x65840…65860 75 66 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 28 77 33 29 2e 6f 70 72 5f 63 6f 6e 73 6f 6c 65 31 ┆uf,w2:=address((w3).opr_console1┆
0x65860…6587e 29 29 3b 0a 20 20 20 20 20 20 20 20 77 30 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 28 77 ┆)); w0:= 0; (w┆
0x6587e…65884 (0x324,0xcb2)
0x65884…658a0 33 29 2e 63 5f 6d 62 75 66 3a 3d 20 77 30 20 21 20 63 6c 65 61 72 20 6f 70 65 72 61 ┆3).c_mbuf:= w0 ! clear opera┆
0x658a0…658c0 74 69 6f 6e 20 21 0a 20 20 20 20 20 20 65 6e 64 3b 20 21 20 6c 6f 6f 70 20 21 0a 20 20 20 20 65 ┆tion ! end; ! loop ! e┆
0x658c0…658e0 6e 64 3b 0a 20 20 65 6e 64 3b 20 21 20 6f 70 65 72 61 74 6f 72 20 21 0a 0a 20 20 62 6f 64 79 20 ┆nd; end; ! operator ! body ┆
0x658e0…658fc 6f 66 20 64 69 73 70 6c 61 79 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 70 72 6f 63 65 ┆of display begin proce┆
0x658fc…65902 (0x324,0xcb3)
0x65902…65920 64 75 72 65 20 64 5f 72 65 71 75 65 73 74 28 2e 77 33 2e 3b 77 31 29 3b 20 21 20 77 31 3d ┆dure d_request(.w3.;w1); ! w1=┆
0x65920…65940 64 65 76 69 63 65 20 21 0a 0a 20 20 20 20 70 72 6f 63 65 64 75 72 65 20 64 5f 64 69 73 70 6c 61 ┆device ! procedure d_displa┆
0x65940…65960 79 28 2e 77 33 2e 3b 77 31 29 3b 20 21 20 77 31 3d 64 65 76 69 63 65 20 21 0a 0a 20 20 20 20 69 ┆y(.w3.;w1); ! w1=device ! i┆
0x65960…6597a 6e 63 6f 64 65 0a 20 20 20 20 72 65 66 20 20 20 20 72 65 74 75 72 6e 2c 0a 20 ┆ncode ref return, ┆
0x6597a…65980 (0x324,0xcb4)
0x65980…659a0 20 20 20 20 20 20 20 20 20 20 64 65 76 69 63 65 3b 0a 20 20 20 20 77 6f 72 64 20 20 20 66 75 6e ┆ device; word fun┆
0x659a0…659c0 63 74 69 6f 6e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 6d 61 69 6e 3b 0a 0a 0a 20 20 20 20 62 65 ┆ction, main; be┆
0x659c0…659e0 67 69 6e 0a 0a 20 20 20 20 20 20 72 65 74 75 72 6e 3a 3d 20 77 33 3b 0a 20 20 20 20 20 20 64 65 ┆gin return:= w3; de┆
0x659e0…65a00 76 69 63 65 3a 3d 20 77 31 3b 0a 20 20 20 20 20 20 66 75 6e 63 74 69 6f 00 00 00 00 00 00 00 00 ┆vice:= w1; functio ┆
0x65a00…65a06 (813,) (0x324,0xcb5)
0x65a06…65a20 6e 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 70 75 73 68 28 2e 77 33 2e 2c 77 30 ┆n:= w0; push(.w3.,w0┆
0x65a20…65a40 3a 3d 20 72 65 74 75 72 6e 29 3b 0a 0a 20 20 20 20 20 20 63 61 73 65 20 77 31 3a 3d 20 66 75 6e ┆:= return); case w1:= fun┆
0x65a40…65a60 63 74 69 6f 6e 20 6f 66 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 62 65 67 ┆ction of begin beg┆
0x65a60…65a7e 69 6e 20 63 6f 6d 6d 65 6e 74 20 72 65 71 75 65 73 74 20 3b 0a 0a 20 20 20 20 20 20 20 20 ┆in comment request ; ┆
0x65a7e…65a84 (0x324,0xcb6)
0x65a84…65aa0 20 20 77 31 3a 3d 20 61 64 64 72 65 73 73 28 62 2e 70 72 6f 63 5f 64 68 6c 69 6e 6b ┆ w1:= address(b.proc_dhlink┆
0x65aa0…65ac0 6e 6f 29 3b 0a 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 20 61 64 64 72 65 73 73 28 28 77 33 29 ┆no); w2:= address((w3)┆
0x65ac0…65ae0 2e 6f 70 72 5f 64 68 6c 69 6e 6b 6e 6f 29 3b 0a 20 20 20 20 20 20 20 20 20 20 63 6f 6d 70 61 72 ┆.opr_dhlinkno); compar┆
0x65ae0…65afc 65 28 2e 77 33 2e 2c 77 30 3a 3d 34 2c 77 31 2c 77 32 29 3b 0a 20 20 20 20 20 20 20 ┆e(.w3.,w0:=4,w1,w2); ┆
0x65afc…65b02 (0x324,0xcb7)
0x65b02…65b20 20 20 20 69 66 20 77 30 3d 30 20 74 68 65 6e 20 77 30 3a 3d 31 20 65 6c 73 65 20 77 30 3a ┆ if w0=0 then w0:=1 else w0:┆
0x65b20…65b40 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 20 6d 61 69 6e 3a 3d 20 77 30 3b 0a 0a 20 20 20 20 20 20 ┆=0; main:= w0; ┆
0x65b40…65b60 20 20 20 20 77 31 3a 3d 20 62 2e 74 63 70 6f 6f 6c 5f 66 73 74 3b 0a 20 20 20 20 20 20 20 20 20 ┆ w1:= b.tcpool_fst; ┆
0x65b60…65b7a 20 64 65 76 69 63 65 3a 3d 20 77 31 3b 0a 20 20 20 20 20 20 20 20 20 20 77 68 ┆ device:= w1; wh┆
0x65b7a…65b80 (0x324,0xcb8)
0x65b80…65ba0 69 6c 65 20 77 31 3c 62 2e 74 63 70 6f 6f 6c 5f 74 6f 70 20 64 6f 0a 20 20 20 20 20 20 20 20 20 ┆ile w1<b.tcpool_top do ┆
0x65ba0…65bc0 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 73 65 61 72 63 68 20 61 6c 6c 20 63 6f 72 6f 75 74 ┆ begin comment search all corout┆
0x65bc0…65be0 69 6e 65 73 3b 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 20 64 65 76 69 63 ┆ines; if w0:= devic┆
0x65be0…65c00 65 2e 74 63 5f 68 65 6c 64 3c 3e 30 20 74 68 65 6e 0a 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆e.tc_held<>0 then ┆
0x65c00…65c06 (814,) (0x324,0xcb9)
0x65c06…65c20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 64 65 76 69 63 65 ┆ begin comment device┆
0x65c20…65c40 20 69 6e 20 68 6f 6c 64 20 73 74 61 74 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 75 ┆ in hold state; pu┆
0x65c40…65c60 73 68 28 2e 77 33 2e 2c 77 30 3a 3d 6d 61 69 6e 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆sh(.w3.,w0:=main); ┆
0x65c60…65c7e 20 69 66 20 77 30 3c 3e 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 ┆ if w0<>0 then b┆
0x65c7e…65c84 (0x324,0xcba)
0x65c84…65ca0 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 6d 61 69 6e 20 6f 70 65 72 61 74 6f 72 3b 0a ┆egin comment main operator; ┆
0x65ca0…65cc0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 20 64 65 76 69 63 65 3b 0a 20 20 20 ┆ w1:= device; ┆
0x65cc0…65ce0 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 31 29 2e 74 63 5f 68 65 6c 64 ┆ if w0:=(w1).tc_held┆
0x65ce0…65cfc 3d 32 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 ┆=2 then begi┆
0x65cfc…65d02 (0x324,0xcbb)
0x65d02…65d20 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 5f 72 65 71 75 65 73 74 28 ┆n d_request(┆
0x65d20…65d40 2e 77 33 2e 2c 77 31 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 20 65 6c ┆.w3.,w1); end el┆
0x65d40…65d60 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 ┆se begin ┆
0x65d60…65d7a 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 20 61 64 64 72 65 73 73 28 62 2e ┆ w1:= address(b.┆
0x65d7a…65d80 (0x324,0xcbc)
0x65d80…65da0 70 72 6f 63 5f 64 65 76 6e 61 6d 65 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆proc_devname); ┆
0x65da0…65dc0 20 77 32 3a 3d 20 61 64 64 72 65 73 73 28 28 77 32 3a 3d 64 65 76 69 63 65 29 2e 74 63 5f 64 65 ┆ w2:= address((w2:=device).tc_de┆
0x65dc0…65de0 76 63 6f 6e 73 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6d 70 61 72 ┆vcons); compar┆
0x65de0…65e00 65 28 2e 77 33 2e 2c 77 30 3a 3d 38 2c 77 31 2c 77 32 29 3b 0a 20 20 20 00 00 00 00 00 00 00 00 ┆e(.w3.,w0:=8,w1,w2); ┆
0x65e00…65e06 (815,) (0x324,0xcbd)
0x65e06…65e20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 20 64 65 76 69 63 65 ┆ w1:= device┆
0x65e20…65e40 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3d 30 20 74 68 65 6e ┆; if w0=0 then┆
0x65e40…65e60 20 77 30 3a 3d 20 62 2e 70 72 6f 63 5f 68 69 64 2d 28 77 31 29 2e 74 63 5f 6f 68 69 64 3b 0a 20 ┆ w0:= b.proc_hid-(w1).tc_ohid; ┆
0x65e60…65e7e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3d 30 20 74 68 65 6e 20 ┆ if w0=0 then ┆
0x65e7e…65e84 (0x324,0xcbe)
0x65e84…65ea0 64 5f 72 65 71 75 65 73 74 28 2e 77 33 2e 2c 77 31 29 3b 0a 20 20 20 20 20 20 20 20 ┆d_request(.w3.,w1); ┆
0x65ea0…65ec0 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 65 76 ┆ end; dev┆
0x65ec0…65ee0 69 63 65 3a 3d 20 77 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 20 21 20 65 6e ┆ice:= w1; end ! en┆
0x65ee0…65efc 64 20 6d 61 69 6e 20 6f 70 65 72 61 74 6f 72 20 21 20 65 6c 73 65 0a 20 20 20 20 20 ┆d main operator ! else ┆
0x65efc…65f02 (0x324,0xcbf)
0x65f02…65f20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 72 65 6d 6f 74 65 20 ┆ begin comment remote ┆
0x65f20…65f40 6f 70 72 61 74 6f 72 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 20 61 64 ┆oprator; w1:= ad┆
0x65f40…65f60 64 72 65 73 73 28 28 77 31 3a 3d 64 65 76 69 63 65 29 2e 74 63 5f 64 65 76 63 6f 6e 73 29 3b 0a ┆dress((w1:=device).tc_devcons); ┆
0x65f60…65f7a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 20 61 64 64 72 65 ┆ w2:= addre┆
0x65f7a…65f80 (0x324,0xcc0)
0x65f80…65fa0 73 73 28 28 77 33 29 2e 6f 70 72 5f 64 65 76 63 6f 6e 73 29 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆ss((w3).opr_devcons); ┆
0x65fa0…65fc0 20 20 20 20 20 20 63 6f 6d 70 61 72 65 28 2e 77 33 2e 2c 77 30 3a 3d 38 2c 77 31 2c 77 32 29 3b ┆ compare(.w3.,w0:=8,w1,w2);┆
0x65fc0…65fe0 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 20 64 65 76 69 63 65 3b 0a 20 20 ┆ w1:= device; ┆
0x65fe0…66000 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3d 30 20 74 68 00 00 00 00 00 00 00 00 ┆ if w0=0 th ┆
0x66000…66006 (816,) (0x324,0xcc1)
0x66006…66020 65 6e 20 77 30 3a 3d 20 28 77 31 29 2e 74 63 5f 6f 68 69 64 2d 28 77 33 29 2e ┆en w0:= (w1).tc_ohid-(w3).┆
0x66020…66040 6f 70 72 5f 68 6f 73 74 69 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 ┆opr_hostid; if w┆
0x66040…66060 30 3d 30 20 74 68 65 6e 20 64 5f 72 65 71 75 65 73 74 28 2e 77 33 2e 2c 77 31 29 3b 0a 20 20 20 ┆0=0 then d_request(.w3.,w1); ┆
0x66060…6607e 20 20 20 20 20 20 20 20 20 20 20 20 20 64 65 76 69 63 65 3a 3d 20 77 31 3b 0a 20 20 20 20 ┆ device:= w1; ┆
0x6607e…66084 (0x324,0xcc2)
0x66084…660a0 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ end; ┆
0x660a0…660c0 20 70 6f 70 28 2e 77 33 2e 2c 77 30 29 3b 6d 61 69 6e 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 ┆ pop(.w3.,w0);main:= w0; ┆
0x660c0…660e0 20 20 20 20 20 65 6e 64 3b 20 21 20 65 6e 64 20 68 6f 6c 64 20 21 0a 20 20 20 20 20 20 20 20 20 ┆ end; ! end hold ! ┆
0x660e0…660fc 20 20 20 77 31 3a 3d 64 65 76 69 63 65 3b 20 64 65 76 69 63 65 3a 3d 20 77 31 3a 3d ┆ w1:=device; device:= w1:=┆
0x660fc…66102 (0x324,0xcc3)
0x66102…66120 20 28 77 31 29 2e 74 63 5f 6e 65 78 74 74 63 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 ┆ (w1).tc_nexttc; end┆
0x66120…66140 3b 20 21 20 65 6e 64 20 77 68 69 6c 65 20 21 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 20 21 20 65 ┆; ! end while ! end; ! e┆
0x66140…66160 6e 64 20 72 65 71 75 65 73 74 20 21 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 ┆nd request ! begin comme┆
0x66160…6617a 6e 74 20 72 65 71 75 65 73 74 20 64 65 76 69 63 65 28 77 31 29 3b 0a 20 20 20 ┆nt request device(w1); ┆
0x6617a…66180 (0x324,0xcc4)
0x66180…661a0 20 20 20 20 20 20 20 64 5f 72 65 71 75 65 73 74 28 2e 77 33 2e 2c 77 31 3a 3d 64 65 76 69 63 65 ┆ d_request(.w3.,w1:=device┆
0x661a0…661c0 29 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 20 21 20 65 6e 64 20 72 65 71 75 65 73 74 20 64 65 ┆); end; ! end request de┆
0x661c0…661e0 76 69 63 65 20 21 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 72 65 71 ┆vice ! begin comment req┆
0x661e0…66200 75 65 73 74 20 61 6c 6c 3b 0a 0a 20 20 20 20 20 20 20 20 20 20 77 31 3a 00 00 00 00 00 00 00 00 ┆uest all; w1: ┆
0x66200…66206 (817,) (0x324,0xcc5)
0x66206…66220 3d 20 62 2e 74 63 70 6f 6f 6c 5f 66 73 74 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆= b.tcpool_fst; ┆
0x66220…66240 77 68 69 6c 65 20 77 31 3c 62 2e 74 63 70 6f 6f 6c 5f 74 6f 70 20 64 6f 0a 20 20 20 20 20 20 20 ┆while w1<b.tcpool_top do ┆
0x66240…66260 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 31 29 ┆ begin if w0:=(w1)┆
0x66260…6627e 2e 74 63 5f 68 65 6c 64 3c 3e 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 64 ┆.tc_held<>0 then d┆
0x6627e…66284 (0x324,0xcc6)
0x66284…662a0 5f 72 65 71 75 65 73 74 28 2e 77 33 2e 2c 77 31 29 3b 0a 20 20 20 20 20 20 20 20 20 ┆_request(.w3.,w1); ┆
0x662a0…662c0 20 20 20 77 31 3a 3d 20 28 77 31 29 2e 74 63 5f 6e 65 78 74 74 63 3b 0a 20 20 20 20 20 20 20 20 ┆ w1:= (w1).tc_nexttc; ┆
0x662c0…662e0 20 20 65 6e 64 3b 20 21 20 65 6e 64 20 77 68 69 6c 65 20 21 0a 20 20 20 20 20 20 20 20 65 6e 64 ┆ end; ! end while ! end┆
0x662e0…662fc 3b 20 21 20 65 6e 64 20 72 65 71 75 65 73 74 20 61 6c 6c 20 21 0a 20 20 20 20 20 20 ┆; ! end request all ! ┆
0x662fc…66302 (0x324,0xcc7)
0x66302…66320 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 64 69 73 70 6c 61 79 3b 0a 20 20 20 20 20 ┆ begin comment display; ┆
0x66320…66340 20 20 20 20 20 0a 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 62 2e 74 63 70 6f 6f 6c 5f 66 73 74 ┆ w1:=b.tcpool_fst┆
0x66340…66360 3b 0a 20 20 20 20 20 20 20 20 20 20 77 68 69 6c 65 20 77 31 3c 62 2e 74 63 70 6f 6f 6c 5f 74 6f ┆; while w1<b.tcpool_to┆
0x66360…6637a 70 20 64 6f 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 ┆p do begin ┆
0x6637a…66380 (0x324,0xcc8)
0x66380…663a0 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 31 29 2e 74 63 5f 63 72 65 61 74 65 64 3c 3e 30 ┆ if w0:=(w1).tc_created<>0┆
0x663a0…663c0 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 ┆ then begin ┆
0x663c0…663e0 20 20 20 20 20 20 64 5f 64 69 73 70 6c 61 79 28 2e 77 33 2e 2c 77 31 29 3b 0a 20 20 20 20 20 20 ┆ d_display(.w3.,w1); ┆
0x663e0…66400 20 20 20 20 20 20 65 6e 64 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ end else ┆
0x66400…66406 (818,) (0x324,0xcc9)
0x66406…66420 20 20 20 69 66 20 77 30 3a 3d 20 28 77 32 3a 3d 61 64 64 72 65 73 73 28 28 77 ┆ if w0:= (w2:=address((w┆
0x66420…66440 31 29 2e 74 63 5f 63 6f 6e 73 6f 6c 65 29 29 2e 77 6f 72 64 3c 3e 30 20 74 68 65 6e 0a 20 20 20 ┆1).tc_console)).word<>0 then ┆
0x66440…66460 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 5f 64 ┆ begin d_d┆
0x66460…6647e 69 73 70 6c 61 79 28 2e 77 33 2e 2c 77 31 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 ┆isplay(.w3.,w1); e┆
0x6647e…66484 (0x324,0xcca)
0x66484…664a0 6e 64 20 65 6c 73 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 20 28 77 ┆nd else; w1:= (w┆
0x664a0…664c0 31 29 2e 74 63 5f 6e 65 78 74 74 63 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 20 21 20 65 ┆1).tc_nexttc; end; ! e┆
0x664c0…664e0 6e 64 20 77 68 69 6c 65 20 21 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 20 21 20 65 6e 64 20 64 69 ┆nd while ! end; ! end di┆
0x664e0…664fc 73 70 6c 61 79 20 21 0a 20 20 20 20 20 20 65 6e 64 3b 20 21 20 65 6e 64 20 63 61 73 ┆splay ! end; ! end cas┆
0x664fc…66502 (0x324,0xccb)
0x66502…66520 65 20 21 0a 20 20 20 20 20 20 70 6f 70 28 2e 77 33 2e 2c 77 30 29 3b 72 65 74 75 72 6e 3a ┆e ! pop(.w3.,w0);return:┆
0x66520…66540 3d 77 30 3b 0a 20 20 20 20 20 20 77 31 3a 3d 20 64 65 76 69 63 65 3b 0a 20 20 20 20 20 20 63 61 ┆=w0; w1:= device; ca┆
0x66540…66560 6c 6c 20 77 30 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 65 6e 64 3b 20 21 20 65 6e 64 20 64 69 73 ┆ll w0 return; end; ! end dis┆
0x66560…6657a 70 6c 61 79 20 63 6f 64 65 20 0c 21 0a 0a 0a 20 20 20 20 62 6f 64 79 20 6f 66 ┆play code ! body of┆
0x6657a…66580 (0x324,0xccc)
0x66580…665a0 20 64 5f 72 65 71 75 65 73 74 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 69 6e 63 6f 64 ┆ d_request begin incod┆
0x665a0…665c0 65 0a 20 20 20 20 20 20 72 65 66 20 20 20 20 72 65 74 75 72 6e 2c 0a 20 20 20 20 20 20 20 20 20 ┆e ref return, ┆
0x665c0…665e0 20 20 20 20 64 65 76 69 63 65 3b 0a 20 20 20 20 20 20 74 65 78 74 28 20 35 29 20 74 5f 68 6f 73 ┆ device; text( 5) t_hos┆
0x665e0…66600 74 3a 3d 20 22 2c 68 6f 73 74 22 3b 0a 20 20 20 20 20 20 77 6f 72 64 20 00 00 00 00 00 00 00 00 ┆t:= ",host"; word ┆
0x66600…66606 (819,) (0x324,0xccd)
0x66606…66620 20 20 20 20 6c 5f 68 6e 6f 3a 3d 20 36 35 36 31 37 34 2c 20 20 20 20 21 20 72 ┆ l_hno:= 656174, ! r┆
0x66620…66640 61 64 69 78 3d 31 30 2c 20 70 6f 73 69 74 69 6f 6e 73 3d 33 2c 20 66 69 6c 6c 3d 22 2e 22 28 34 ┆adix=10, positions=3, fill="."(4┆
0x66640…66660 36 29 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 5f 68 69 64 3a 3d 20 36 35 36 36 ┆6) ! l_hid:= 6566┆
0x66660…6667e 38 36 3b 20 20 20 20 21 20 72 61 64 69 78 3d 31 30 2c 20 70 6f 73 69 74 69 6f 6e 73 3d 35 ┆86; ! radix=10, positions=5┆
0x6667e…66684 (0x324,0xcce)
0x66684…666a0 2c 20 66 69 6c 6c 3d 22 2e 22 28 34 36 29 20 21 0a 0a 20 20 20 20 20 20 62 65 67 69 ┆, fill="."(46) ! begi┆
0x666a0…666c0 6e 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 3a 3d 20 77 33 3b 0a 20 20 20 20 20 20 20 20 64 ┆n return:= w3; d┆
0x666c0…666e0 65 76 69 63 65 3a 3d 20 77 31 3b 0a 20 20 20 20 20 20 20 20 70 75 73 68 28 2e 77 33 2e 2c 77 30 ┆evice:= w1; push(.w3.,w0┆
0x666e0…666fc 3a 3d 72 65 74 75 72 6e 29 3b 0a 20 20 20 20 20 20 20 20 70 75 73 68 28 2e 77 33 2e ┆:=return); push(.w3.┆
0x666fc…66702 (0x324,0xccf)
0x66702…66720 2c 77 30 3a 3d 64 65 76 69 63 65 29 3b 0a 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d ┆,w0:=device); if w0:=┆
0x66720…66740 20 64 65 76 69 63 65 2e 74 63 5f 68 65 6c 64 3c 3e 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 ┆ device.tc_held<>0 then ┆
0x66740…66760 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 64 65 76 69 63 65 2e 74 63 5f 62 75 ┆begin w1:=device.tc_bu┆
0x66760…6677a 66 3b 0a 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 20 28 77 33 29 2e 6f 70 72 ┆f; w2:= (w3).opr┆
0x6677a…66780 (0x324,0xcd0)
0x66780…667a0 5f 62 75 66 3b 0a 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 20 28 77 31 29 2e 62 75 66 5f 6c 61 ┆_buf; w0:= (w1).buf_la┆
0x667a0…667c0 73 74 2d 28 77 31 29 2e 62 75 66 5f 66 69 72 73 74 2b 32 3b 0a 20 20 20 20 20 20 20 20 20 20 77 ┆st-(w1).buf_first+2; w┆
0x667c0…667e0 31 3a 3d 20 61 64 64 72 65 73 73 28 28 77 31 29 2e 62 75 66 5f 64 61 74 61 31 29 3b 0a 20 20 20 ┆1:= address((w1).buf_data1); ┆
0x667e0…66800 20 20 20 20 20 20 20 69 66 20 77 30 3e 62 2e 6f 70 72 74 5f 62 75 66 6c 00 00 00 00 00 00 00 00 ┆ if w0>b.oprt_bufl ┆
0x66800…66806 (820,) (0x324,0xcd1)
0x66806…66820 20 74 68 65 6e 20 6b 65 79 28 6c 5f 68 6e 6f 29 3a 3d 20 77 31 3b 0a 20 20 20 ┆ then key(l_hno):= w1; ┆
0x66820…66840 20 20 20 20 20 20 20 77 32 3a 3d 20 61 64 64 72 65 73 73 28 28 77 32 29 2e 62 75 66 5f 64 61 74 ┆ w2:= address((w2).buf_dat┆
0x66840…66860 61 31 29 3b 0a 20 20 20 20 20 20 20 20 20 20 6d 6f 76 65 28 2e 77 33 2e 2c 77 30 2c 77 31 2c 77 ┆a1); move(.w3.,w0,w1,w┆
0x66860…6687e 32 29 3b 20 21 20 6d 6f 76 65 20 66 72 6f 6d 20 64 65 76 69 63 65 2d 20 74 6f 20 6f 70 65 ┆2); ! move from device- to ope┆
0x6687e…66884 (0x324,0xcd2)
0x66884…668a0 72 61 74 6f 72 20 62 75 66 66 65 72 20 21 0a 20 20 20 20 20 20 20 20 20 20 77 32 3a ┆rator buffer ! w2:┆
0x668a0…668c0 3d 20 28 77 33 29 2e 6f 70 72 5f 62 75 66 3b 0a 20 20 20 20 20 20 20 20 20 20 28 77 32 29 2e 62 ┆= (w3).opr_buf; (w2).b┆
0x668c0…668e0 75 66 5f 6f 70 3a 3d 20 77 31 3a 3d 20 35 3b 0a 20 20 20 20 20 20 20 20 20 20 28 77 32 29 2e 62 ┆uf_op:= w1:= 5; (w2).b┆
0x668e0…668fc 75 66 5f 6d 6f 64 65 3a 3d 20 77 31 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆uf_mode:= w1:= 0; ┆
0x668fc…66902 (0x324,0xcd3)
0x66902…66920 28 77 32 29 2e 62 75 66 5f 66 69 72 73 74 3a 3d 20 77 31 3a 3d 20 61 64 64 72 65 73 73 28 ┆(w2).buf_first:= w1:= address(┆
0x66920…66940 28 77 32 29 2e 62 75 66 5f 64 61 74 61 31 29 3b 0a 20 20 20 20 20 20 20 20 20 20 77 31 2b 77 30 ┆(w2).buf_data1); w1+w0┆
0x66940…66960 2d 32 3b 0a 20 20 20 20 20 20 20 20 20 20 28 77 32 29 2e 62 75 66 5f 6c 61 73 74 3a 3d 20 77 31 ┆-2; (w2).buf_last:= w1┆
0x66960…6697a 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 20 64 65 76 69 63 65 ┆; if w0:= device┆
0x6697a…66980 (0x324,0xcd4)
0x66980…669a0 2e 74 63 5f 68 6f 6c 64 3d 31 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 ┆.tc_hold=1 then begin ┆
0x669a0…669c0 63 6f 6d 6d 65 6e 74 20 6d 61 79 62 65 20 61 64 64 20 68 6f 73 74 20 69 6e 66 6f 72 6d 61 74 69 ┆comment maybe add host informati┆
0x669c0…669e0 6f 6e 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 20 64 65 76 69 63 65 2e 74 ┆on; if w0:= device.t┆
0x669e0…66a00 63 5f 68 6f 73 74 69 64 3d 64 65 76 69 63 65 2e 74 63 5f 6f 68 69 64 20 00 00 00 00 00 00 00 00 ┆c_hostid=device.tc_ohid ┆
0x66a00…66a06 (821,) (0x324,0xcd5)
0x66a06…66a20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3c 3e 28 77 ┆then if w0<>(w┆
0x66a20…66a40 33 29 2e 6f 70 72 5f 68 6f 73 74 69 64 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 ┆3).opr_hostid then b┆
0x66a40…66a60 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 61 64 64 20 68 6f 73 74 20 69 64 65 6e 74 20 69 6e 66 6f ┆egin comment add host ident info┆
0x66a60…66a7e 72 6d 61 74 69 6f 6e 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 20 77 31 ┆rmation; w2:= w1┆
0x66a7e…66a84 (0x324,0xcd6)
0x66a84…66aa0 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 20 61 64 64 72 65 73 73 ┆; w1:= address┆
0x66aa0…66ac0 28 74 5f 68 6f 73 74 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f 76 65 28 2e 77 33 ┆(t_host); move(.w3┆
0x66ac0…66ae0 2e 2c 77 30 3a 3d 34 2c 77 31 2c 77 32 29 3b 20 21 20 3c 68 6f 73 74 3e 20 21 0a 20 20 20 20 20 ┆.,w0:=4,w1,w2); ! <host> ! ┆
0x66ae0…66afc 20 20 20 20 20 20 20 20 20 77 72 69 74 65 69 6e 74 65 67 65 72 28 2e 77 33 2e 2c 77 ┆ writeinteger(.w3.,w┆
0x66afc…66b02 (0x324,0xcd7)
0x66b02…66b20 30 3a 3d 20 64 65 76 69 63 65 2e 74 63 5f 68 6f 73 74 6e 6f 2c 77 31 3a 3d 20 77 32 2b 34 ┆0:= device.tc_hostno,w1:= w2+4┆
0x66b20…66b40 2c 20 77 32 3a 3d 20 6c 5f 68 6e 6f 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 72 69 ┆, w2:= l_hno); wri┆
0x66b40…66b60 74 65 69 6e 74 65 67 65 72 28 2e 77 33 2e 2c 77 30 3a 3d 20 64 65 76 69 63 65 2e 74 63 5f 68 6f ┆teinteger(.w3.,w0:= device.tc_ho┆
0x66b60…66b7a 73 74 69 64 2c 77 31 3a 3d 20 77 31 2b 32 2c 20 77 32 3a 3d 20 6c 5f 68 69 64 ┆stid,w1:= w1+2, w2:= l_hid┆
0x66b7a…66b80 (0x324,0xcd8)
0x66b80…66ba0 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 20 77 31 2b 34 3b 0a 20 20 20 20 ┆); w2:= w1+4; ┆
0x66ba0…66bc0 20 20 20 20 20 20 20 20 20 20 28 77 32 29 2e 77 6f 72 64 3a 3d 20 77 30 3a 3d 20 31 30 3b 20 21 ┆ (w2).word:= w0:= 10; !┆
0x66bc0…66be0 20 61 64 64 20 6e 65 77 6c 69 6e 65 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a ┆ add newline ! w1:┆
0x66be0…66c00 3d 20 28 77 33 29 2e 6f 70 72 5f 62 75 66 3b 0a 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆= (w3).opr_buf; ┆
0x66c00…66c06 (822,) (0x324,0xcd9)
0x66c06…66c20 20 20 20 20 20 20 28 77 31 29 2e 62 75 66 5f 6c 61 73 74 3a 3d 20 77 32 3b 0a ┆ (w1).buf_last:= w2; ┆
0x66c20…66c40 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a ┆ end; end; ┆
0x66c40…66c60 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 20 28 77 33 29 2e 6f 70 72 5f 62 75 66 3b 0a 20 20 20 ┆ w1:= (w3).opr_buf; ┆
0x66c60…66c7e 20 20 20 20 20 20 20 77 32 3a 3d 20 61 64 64 72 65 73 73 28 28 77 33 29 2e 6f 70 72 5f 63 ┆ w2:= address((w3).opr_c┆
0x66c7e…66c84 (0x324,0xcda)
0x66c84…66ca0 6f 6e 73 6f 6c 65 29 3b 0a 20 20 20 20 20 20 20 20 20 20 73 65 6e 64 77 61 69 74 28 ┆onsole); sendwait(┆
0x66ca0…66cc0 2e 77 33 2e 2c 77 30 2c 77 31 2c 77 32 29 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 ┆.w3.,w0,w1,w2); end; ┆
0x66cc0…66ce0 20 20 20 20 20 70 6f 70 28 2e 77 33 2e 2c 77 30 29 3b 64 65 76 69 63 65 3a 3d 20 77 30 3b 0a 20 ┆ pop(.w3.,w0);device:= w0; ┆
0x66ce0…66cfc 20 20 20 20 20 20 20 70 6f 70 28 2e 77 33 2e 2c 77 30 29 3b 72 65 74 75 72 6e 3a 3d ┆ pop(.w3.,w0);return:=┆
0x66cfc…66d02 (0x324,0xcdb)
0x66d02…66d20 20 77 30 3b 0a 20 20 20 20 20 20 20 20 77 31 3a 3d 20 64 65 76 69 63 65 3b 0a 20 20 20 20 ┆ w0; w1:= device; ┆
0x66d20…66d40 20 20 20 20 63 61 6c 6c 20 77 30 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 ┆ call w0 return; end; ┆
0x66d40…66d60 20 20 20 65 6e 64 3b 20 21 20 65 6e 64 20 64 5f 72 65 71 75 65 73 74 20 21 0a 0a 20 20 20 20 62 ┆ end; ! end d_request ! b┆
0x66d60…66d7a 6f 64 79 20 6f 66 20 64 5f 64 69 73 70 6c 61 79 0a 20 20 20 20 62 65 67 69 6e ┆ody of d_display begin┆
0x66d7a…66d80 (0x324,0xcdc)
0x66d80…66da0 0a 20 20 20 20 20 20 72 65 63 6f 72 64 20 64 5f 72 65 63 20 28 0a 20 20 20 20 20 20 20 20 20 20 ┆ record d_rec ( ┆
0x66da0…66dc0 20 20 20 20 20 20 20 20 20 20 20 74 65 78 74 28 31 32 29 20 64 65 76 2c 0a 20 20 20 20 20 20 20 ┆ text(12) dev, ┆
0x66dc0…66de0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 68 6f 73 74 2c 0a 20 20 20 ┆ host, ┆
0x66de0…66e00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ ┆
0x66e00…66e06 (823,) (0x324,0xcdd)
0x66e06…66e20 20 20 20 70 72 6f 63 2c 20 62 73 2c 20 6f 70 65 72 2c 20 73 74 61 74 65 29 3b ┆ proc, bs, oper, state);┆
0x66e20…66e40 0a 20 20 20 20 20 20 69 6e 63 6f 64 65 0a 20 20 20 20 20 20 20 20 72 65 66 20 72 65 74 75 72 6e ┆ incode ref return┆
0x66e40…66e60 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 64 65 76 69 63 65 2c 0a 20 20 20 20 20 20 20 20 20 20 ┆, device, ┆
0x66e60…66e7e 20 20 74 78 74 72 65 66 3b 0a 20 20 20 20 20 20 20 20 77 6f 72 64 20 6d 61 69 6e 3b 0a 20 ┆ txtref; word main; ┆
0x66e7e…66e84 (0x324,0xcde)
0x66e84…66ea0 20 20 20 20 20 20 20 77 6f 72 64 20 6c 5f 68 6e 6f 3a 3d 20 36 35 36 31 37 34 2c 20 ┆ word l_hno:= 656174, ┆
0x66ea0…66ec0 21 20 72 61 64 69 78 3d 31 30 2c 70 6f 73 3d 33 2c 66 69 6c 6c 3d 34 36 20 21 0a 20 20 20 20 20 ┆! radix=10,pos=3,fill=46 ! ┆
0x66ec0…66ee0 20 20 20 20 20 20 20 20 6c 5f 68 69 64 3a 3d 20 36 35 36 36 38 36 3b 20 21 20 72 61 64 69 78 3d ┆ l_hid:= 656686; ! radix=┆
0x66ee0…66efc 31 30 2c 70 6f 73 3d 35 2c 66 69 6c 6c 3d 34 36 20 21 0a 20 20 20 20 20 20 20 20 74 ┆10,pos=5,fill=46 ! t┆
0x66efc…66f02 (0x324,0xcdf)
0x66f02…66f20 65 78 74 20 28 31 32 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 74 5f 61 63 74 69 76 65 ┆ext (12) t_active┆
0x66f20…66f40 20 3a 3d 20 22 2c 61 63 74 69 76 65 22 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 74 5f 77 61 ┆ := ",active", t_wa┆
0x66f40…66f60 69 74 69 6e 67 3a 3d 20 22 2c 77 61 69 74 69 6e 67 22 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆iting:= ",waiting", ┆
0x66f60…66f7a 20 74 5f 69 64 6c 65 3a 3d 20 20 20 20 22 2c 69 64 6c 65 22 2c 0a 20 20 20 20 ┆ t_idle:= ",idle", ┆
0x66f7a…66f80 (0x324,0xce0)
0x66f80…66fa0 20 20 20 20 20 20 20 20 20 74 5f 6d 61 69 6e 3a 3d 20 20 20 20 22 6d 61 69 6e 20 20 22 2c 0a 20 ┆ t_main:= "main ", ┆
0x66fa0…66fc0 20 20 20 20 20 20 20 20 20 20 20 20 74 5f 68 6f 73 74 3b 0a 20 20 20 20 20 20 20 20 74 65 78 74 ┆ t_host; text┆
0x66fc0…66fe0 28 34 29 20 73 70 61 63 65 20 3a 3d 20 22 20 20 20 22 3b 0a 0a 20 20 20 20 20 20 62 65 67 69 6e ┆(4) space := " "; begin┆
0x66fe0…67000 0a 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 3a 3d 20 77 33 3b 0a 20 00 00 00 00 00 00 00 00 ┆ return:= w3; ┆
0x67000…67006 (824,) (0x324,0xce1)
0x67006…67020 20 20 20 20 20 20 20 64 65 76 69 63 65 3a 3d 20 77 31 3b 0a 20 20 20 20 20 20 ┆ device:= w1; ┆
0x67020…67040 20 20 70 75 73 68 28 2e 77 33 2e 2c 77 30 3a 3d 72 65 74 75 72 6e 29 3b 0a 20 20 20 20 20 20 20 ┆ push(.w3.,w0:=return); ┆
0x67040…67060 20 70 75 73 68 28 2e 77 33 2e 2c 77 30 3a 3d 64 65 76 69 63 65 29 3b 0a 0a 20 20 20 20 20 20 20 ┆ push(.w3.,w0:=device); ┆
0x67060…6707e 20 77 31 3a 3d 20 28 77 33 29 2e 6f 70 72 5f 62 75 66 3b 0a 20 20 20 20 20 20 20 20 77 32 ┆ w1:= (w3).opr_buf; w2┆
0x6707e…67084 (0x324,0xce2)
0x67084…670a0 3a 3d 20 61 64 64 72 65 73 73 28 28 77 31 29 2e 62 75 66 5f 64 61 74 61 31 29 3b 0a ┆:= address((w1).buf_data1); ┆
0x670a0…670c0 20 20 20 20 20 20 20 20 74 78 74 72 65 66 3a 3d 20 77 32 3b 0a 20 20 20 20 20 20 20 20 6d 6f 76 ┆ txtref:= w2; mov┆
0x670c0…670e0 65 28 2e 77 33 2e 2c 77 30 3a 3d 32 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 73 70 61 63 65 29 2c ┆e(.w3.,w0:=2,w1:=address(space),┆
0x670e0…670fc 77 32 29 3b 0a 20 20 20 20 20 20 20 20 6d 6f 76 65 28 2e 77 33 2e 2c 77 30 3a 3d 21 ┆w2); move(.w3.,w0:=!┆
0x670fc…67102 (0x324,0xce3)
0x67102…67120 6c 65 6e 67 74 68 28 64 5f 72 65 63 29 2d 32 2c 77 31 3a 3d 77 32 2c 77 32 2b 32 29 3b 0a ┆length(d_rec)-2,w1:=w2,w2+2); ┆
0x67120…67140 20 20 20 20 20 20 20 20 77 31 3a 3d 20 61 64 64 72 65 73 73 28 28 77 31 3a 3d 64 65 76 69 63 65 ┆ w1:= address((w1:=device┆
0x67140…67160 29 2e 74 63 5f 64 65 76 6e 61 6d 65 29 3b 0a 20 20 20 20 20 20 20 20 61 64 64 74 78 74 28 2e 77 ┆).tc_devname); addtxt(.w┆
0x67160…6717a 33 2e 2c 77 30 3a 3d 38 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 28 77 31 3a 3d ┆3.,w0:=8,w1:=address((w1:=┆
0x6717a…67180 (0x324,0xce4)
0x67180…671a0 64 65 76 69 63 65 29 2e 74 63 5f 64 65 76 6e 61 6d 65 29 2c 0a 20 20 20 20 20 20 20 20 20 20 20 ┆device).tc_devname), ┆
0x671a0…671c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 61 64 64 72 65 73 73 28 28 77 32 3a 3d ┆ w2:=address((w2:=┆
0x671c0…671e0 74 78 74 72 65 66 29 2e 64 65 76 29 29 3b 0a 20 20 20 20 20 20 20 20 77 72 69 74 65 69 6e 74 65 ┆txtref).dev)); writeinte┆
0x671e0…67200 67 65 72 28 2e 77 33 2e 2c 77 30 3a 3d 28 77 31 3a 3d 64 65 76 69 63 65 00 00 00 00 00 00 00 00 ┆ger(.w3.,w0:=(w1:=device ┆
0x67200…67206 (825,) (0x324,0xce5)
0x67206…67220 29 2e 74 63 5f 68 6f 73 74 6e 6f 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆).tc_hostno, ┆
0x67220…67240 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 61 64 64 72 65 73 73 28 28 77 31 3a 3d 74 78 ┆ w1:=address((w1:=tx┆
0x67240…67260 74 72 65 66 29 2e 68 6f 73 74 29 2c 77 32 3a 3d 6c 5f 68 6e 6f 29 3b 0a 20 20 20 20 20 20 20 20 ┆tref).host),w2:=l_hno); ┆
0x67260…6727e 77 72 69 74 65 69 6e 74 65 67 65 72 28 2e 77 33 2e 2c 77 30 3a 3d 28 77 32 3a 3d 64 65 76 ┆writeinteger(.w3.,w0:=(w2:=dev┆
0x6727e…67284 (0x324,0xce6)
0x67284…672a0 69 63 65 29 2e 74 63 5f 68 6f 73 74 69 64 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ice).tc_hostid, ┆
0x672a0…672c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 2b 32 2c 77 32 3a 3d 6c 5f 68 69 64 29 3b 0a 20 ┆ w1+2,w2:=l_hid); ┆
0x672c0…672e0 20 20 20 20 20 20 20 61 64 64 74 78 74 28 2e 77 33 2e 2c 77 30 3a 3d 36 2c 77 31 3a 3d 20 61 64 ┆ addtxt(.w3.,w0:=6,w1:= ad┆
0x672e0…672fc 64 72 65 73 73 28 74 5f 68 6f 73 74 29 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆dress(t_host), ┆
0x672fc…67302 (0x324,0xce7)
0x67302…67320 20 20 20 20 20 20 20 77 32 3a 3d 20 61 64 64 72 65 73 73 28 28 77 32 3a 3d 74 78 74 72 65 ┆ w2:= address((w2:=txtre┆
0x67320…67340 66 29 2e 68 6f 73 74 29 29 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 31 3a 3d 64 ┆f).host)); if w0:=(w1:=d┆
0x67340…67360 65 76 69 63 65 29 2e 74 63 5f 63 72 65 61 74 65 64 3c 3e 30 20 74 68 65 6e 0a 20 20 20 20 20 20 ┆evice).tc_created<>0 then ┆
0x67360…6737a 20 20 61 64 64 74 78 74 28 2e 77 33 2e 2c 77 30 3a 3d 38 2c 77 31 3a 3d 20 61 ┆ addtxt(.w3.,w0:=8,w1:= a┆
0x6737a…67380 (0x324,0xce8)
0x67380…673a0 64 64 72 65 73 73 28 28 77 31 3a 3d 64 65 76 69 63 65 29 2e 74 63 5f 6e 61 6d 65 29 2c 0a 20 20 ┆ddress((w1:=device).tc_name), ┆
0x673a0…673c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 20 61 64 64 72 65 73 73 28 28 ┆ w2:= address((┆
0x673c0…673e0 77 32 3a 3d 74 78 74 72 65 66 29 2e 70 72 6f 63 29 29 3b 0a 20 20 20 20 20 20 20 20 77 31 3a 3d ┆w2:=txtref).proc)); w1:=┆
0x673e0…67400 20 61 64 64 72 65 73 73 28 28 77 31 3a 3d 64 65 76 69 63 65 29 2e 74 63 00 00 00 00 00 00 00 00 ┆ address((w1:=device).tc ┆
0x67400…67406 (826,) (0x324,0xce9)
0x67406…67420 5f 63 6f 6e 73 6f 6c 65 29 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d ┆_console); if w0:=┆
0x67420…67440 28 77 31 29 2e 77 6f 72 64 3c 3e 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 61 64 64 74 78 74 ┆(w1).word<>0 then addtxt┆
0x67440…67460 28 2e 77 33 2e 2c 77 30 3a 3d 38 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 28 77 31 3a 3d 64 65 76 ┆(.w3.,w0:=8,w1:=address((w1:=dev┆
0x67460…6747e 69 63 65 29 2e 74 63 5f 64 65 76 63 6f 6e 73 29 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ice).tc_devcons), ┆
0x6747e…67484 (0x324,0xcea)
0x67484…674a0 20 20 20 20 20 20 20 20 77 32 3a 3d 20 61 64 64 72 65 73 73 28 28 77 32 3a 3d 74 78 ┆ w2:= address((w2:=tx┆
0x674a0…674c0 74 72 65 66 29 2e 6f 70 65 72 29 29 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 31 ┆tref).oper)); if w0:=(w1┆
0x674c0…674e0 3a 3d 64 65 76 69 63 65 29 2e 74 63 5f 63 72 65 61 74 65 64 3c 3e 30 20 74 68 65 6e 0a 20 20 20 ┆:=device).tc_created<>0 then ┆
0x674e0…674fc 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 61 64 64 74 78 74 28 ┆ begin addtxt(┆
0x674fc…67502 (0x324,0xceb)
0x67502…67520 2e 77 33 2e 2c 77 30 3a 3d 38 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 28 77 31 3a 3d 64 65 ┆.w3.,w0:=8,w1:=address((w1:=de┆
0x67520…67540 76 69 63 65 29 2e 74 63 5f 62 73 6e 61 6d 65 29 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆vice).tc_bsname), ┆
0x67540…67560 20 20 20 20 20 20 20 20 77 32 3a 3d 61 64 64 72 65 73 73 28 28 77 32 3a 3d 74 78 74 72 65 66 29 ┆ w2:=address((w2:=txtref)┆
0x67560…6757a 2e 62 73 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 ┆.bs)); if w0:=(w┆
0x6757a…67580 (0x324,0xcec)
0x67580…675a0 31 3a 3d 64 65 76 69 63 65 29 2e 74 63 5f 68 65 6c 64 3c 3e 30 20 74 68 65 6e 20 77 31 3a 3d 20 ┆1:=device).tc_held<>0 then w1:= ┆
0x675a0…675c0 61 64 64 72 65 73 73 28 74 5f 77 61 69 74 69 6e 67 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆address(t_waiting) ┆
0x675c0…675e0 65 6c 73 65 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 ┆else ┆
0x675e0…67600 20 77 31 3a 3d 20 61 64 64 72 65 73 73 28 74 5f 61 63 74 69 76 65 29 3b 00 00 00 00 00 00 00 00 ┆ w1:= address(t_active); ┆
0x67600…67606 (827,) (0x324,0xced)
0x67606…67620 0a 20 20 20 20 20 20 20 20 20 20 61 64 64 74 78 74 28 2e 77 33 2e 2c 77 30 3a ┆ addtxt(.w3.,w0:┆
0x67620…67640 3d 36 2c 77 31 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 28 77 32 3a 3d 74 78 74 72 65 66 29 2e 73 ┆=6,w1,w2:=address((w2:=txtref).s┆
0x67640…67660 74 61 74 65 29 29 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 20 65 6c 73 65 0a 20 20 20 20 20 20 20 ┆tate)); end else ┆
0x67660…6767e 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 61 64 64 74 78 74 28 2e 77 33 2e 2c 77 ┆ begin addtxt(.w3.,w┆
0x6767e…67684 (0x324,0xcee)
0x67684…676a0 30 3a 3d 36 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 74 5f 69 64 6c 65 29 2c 77 32 3a ┆0:=6,w1:=address(t_idle),w2:┆
0x676a0…676c0 3d 61 64 64 72 65 73 73 28 28 77 32 3a 3d 74 78 74 72 65 66 29 2e 73 74 61 74 65 29 29 3b 0a 20 ┆=address((w2:=txtref).state)); ┆
0x676c0…676e0 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 77 32 2b 77 30 3b 0a 20 20 20 20 20 ┆ end; w2+w0; ┆
0x676e0…676fc 20 20 20 28 77 32 29 2e 77 6f 72 64 3a 3d 20 77 30 3a 3d 20 31 30 20 6c 73 68 69 66 ┆ (w2).word:= w0:= 10 lshif┆
0x676fc…67702 (0x324,0xcef)
0x67702…67720 74 20 31 36 3b 20 21 20 61 64 64 20 6e 65 77 6c 69 6e 65 20 21 0a 20 20 20 20 20 20 20 20 ┆t 16; ! add newline ! ┆
0x67720…67740 77 31 3a 3d 20 28 77 33 29 2e 6f 70 72 5f 62 75 66 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e ┆w1:= (w3).opr_buf; (w1).┆
0x67740…67760 62 75 66 5f 6c 61 73 74 3a 3d 20 77 32 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 62 75 66 5f ┆buf_last:= w2; (w1).buf_┆
0x67760…6777a 66 69 72 73 74 3a 3d 20 77 30 3a 3d 20 74 78 74 72 65 66 3b 0a 20 20 20 20 20 ┆first:= w0:= txtref; ┆
0x6777a…67780 (0x324,0xcf0)
0x67780…677a0 20 20 20 28 77 31 29 2e 62 75 66 5f 6f 70 3a 3d 20 77 30 3a 3d 20 35 3b 0a 20 20 20 20 20 20 20 ┆ (w1).buf_op:= w0:= 5; ┆
0x677a0…677c0 20 28 77 31 29 2e 62 75 66 5f 6d 6f 64 65 3a 3d 20 77 30 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 ┆ (w1).buf_mode:= w0:= 0; ┆
0x677c0…677e0 20 73 65 6e 64 77 61 69 74 28 2e 77 33 2e 2c 77 30 2c 77 31 2c 77 32 3a 3d 61 64 64 72 65 73 73 ┆ sendwait(.w3.,w0,w1,w2:=address┆
0x677e0…67800 28 28 77 33 29 2e 6f 70 72 5f 63 6f 6e 73 6f 6c 65 29 29 3b 0a 20 20 20 00 00 00 00 00 00 00 00 ┆((w3).opr_console)); ┆
0x67800…67806 (828,) (0x324,0xcf1)
0x67806…67820 20 20 20 20 20 70 6f 70 28 2e 77 33 2e 2c 77 30 29 3b 20 64 65 76 69 63 65 3a ┆ pop(.w3.,w0); device:┆
0x67820…67840 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 20 70 6f 70 28 2e 77 33 2e 2c 77 30 29 3b 20 72 65 74 75 ┆= w0; pop(.w3.,w0); retu┆
0x67840…67860 72 6e 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 20 77 31 3a 3d 20 64 65 76 69 63 65 3b 0a 20 20 ┆rn:= w0; w1:= device; ┆
0x67860…6787e 20 20 20 20 20 20 63 61 6c 6c 20 77 30 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 20 20 65 6e ┆ call w0 return; en┆
0x6787e…67884 (0x324,0xcf2)
0x67884…678a0 64 3b 0a 20 20 20 20 65 6e 64 3b 20 21 20 65 6e 64 20 64 5f 64 69 73 70 6c 61 79 20 ┆d; end; ! end d_display ┆
0x678a0…678c0 21 0a 20 20 65 6e 64 3b 20 21 20 65 6e 64 20 64 69 73 70 6c 61 79 20 21 0a 0a 0a 0a 0a 0a 0a 21 ┆! end; ! end display ! !┆
0x678c0…678e0 62 72 61 6e 63 68 20 31 2c 35 3b 0a 0a 20 20 62 6f 64 79 20 6f 66 20 67 65 74 5f 62 6c 6f 63 6b ┆branch 1,5; body of get_block┆
0x678e0…678fc 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 6c 61 62 65 6c 20 69 6e 5f 62 73 2c 72 65 70 ┆ begin label in_bs,rep┆
0x678fc…67902 (0x324,0xcf3)
0x67902…67920 2c 65 78 69 74 3b 0a 20 20 20 20 69 6e 63 6f 64 65 0a 20 20 20 20 20 20 77 6f 72 64 20 7a ┆,exit; incode word z┆
0x67920…67940 65 72 6f 3a 3d 30 3b 0a 20 20 20 20 20 20 77 6f 72 64 20 62 75 66 5f 6f 70 3b 0a 20 20 20 20 20 ┆ero:=0; word buf_op; ┆
0x67940…67960 20 72 65 66 20 62 75 66 5f 66 61 2c 62 75 66 5f 6c 61 3b 0a 20 20 20 20 20 20 77 6f 72 64 20 62 ┆ ref buf_fa,buf_la; word b┆
0x67960…6797a 75 66 5f 73 65 67 6e 6f 3b 0a 20 20 20 20 20 20 77 6f 72 64 20 72 65 6d 5f 62 ┆uf_segno; word rem_b┆
0x6797a…67980 (0x324,0xcf4)
0x67980…679a0 79 74 65 73 2c 62 75 66 5f 72 65 6c 2c 72 65 6c 61 74 69 76 65 2c 73 74 61 74 75 73 3b 0a 20 20 ┆ytes,buf_rel,relative,status; ┆
0x679a0…679c0 20 20 20 20 72 65 66 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 20 20 77 6f 72 64 20 73 61 76 65 77 ┆ ref return; word savew┆
0x679c0…679e0 30 2c 73 61 76 65 77 31 3b 0a 20 20 20 20 62 65 67 69 6e 0a 0a 20 20 20 20 20 20 72 65 74 75 72 ┆0,savew1; begin retur┆
0x679e0…67a00 6e 3a 3d 77 33 3b 0a 20 20 20 20 20 20 73 61 76 65 77 30 3a 3d 77 30 3b 00 00 00 00 00 00 00 00 ┆n:=w3; savew0:=w0; ┆
0x67a00…67a06 (829,) (0x324,0xcf5)
0x67a06…67a20 0a 20 20 20 20 20 20 73 61 76 65 77 31 3a 3d 77 31 3b 0a 0a 20 20 20 20 20 20 ┆ savew1:=w1; ┆
0x67a20…67a40 72 65 6d 5f 62 79 74 65 73 3a 3d 77 30 3b 0a 20 20 20 20 20 20 73 74 61 74 75 73 3a 3d 77 32 3a ┆rem_bytes:=w0; status:=w2:┆
0x67a40…67a60 3d 32 3b 0a 20 20 20 20 20 20 62 75 66 5f 72 65 6c 3a 3d 77 30 3a 3d 30 3b 0a 20 20 20 20 20 20 ┆=2; buf_rel:=w0:=0; ┆
0x67a60…67a7e 77 33 3a 3d 62 2e 63 75 72 72 65 6e 74 3b 0a 20 20 20 20 20 20 66 31 20 3a 3d 20 28 77 33 ┆w3:=b.current; f1 := (w3┆
0x67a7e…67a84 (0x324,0xcf6)
0x67a84…67aa0 29 2e 74 63 5f 62 73 70 74 72 3b 0a 20 20 20 20 20 20 77 31 20 65 78 74 72 61 63 74 ┆).tc_bsptr; w1 extract┆
0x67aa0…67ac0 20 39 3b 72 65 6c 61 74 69 76 65 20 3a 3d 20 77 31 3b 0a 20 20 20 20 20 20 66 31 20 3a 3d 20 28 ┆ 9;relative := w1; f1 := (┆
0x67ac0…67ae0 77 33 29 2e 74 63 5f 62 73 70 74 72 3b 0a 20 20 20 20 20 20 66 31 20 61 73 68 69 66 74 20 2d 39 ┆w3).tc_bsptr; f1 ashift -9┆
0x67ae0…67afc 3b 0a 69 6e 5f 62 73 3a 0a 20 20 20 20 20 20 77 33 3a 3d 62 2e 63 75 72 72 65 6e 74 ┆; in_bs: w3:=b.current┆
0x67afc…67b02 (0x324,0xcf7)
0x67b02…67b20 3b 0a 20 20 20 20 20 20 69 66 20 77 31 3c 3e 28 77 33 29 2e 74 63 5f 63 73 65 67 6e 6f 20 ┆; if w1<>(w3).tc_csegno ┆
0x67b20…67b40 74 68 65 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 63 ┆then begin (w3).tc┆
0x67b40…67b60 5f 63 73 65 67 6e 6f 3a 3d 77 31 3b 0a 72 65 70 3a 0a 20 20 20 20 20 20 20 20 70 75 73 68 28 2e ┆_csegno:=w1; rep: push(.┆
0x67b60…67b7a 77 33 2e 2c 77 30 3a 3d 72 65 74 75 72 6e 29 3b 0a 20 20 20 20 20 20 20 20 70 ┆w3.,w0:=return); p┆
0x67b7a…67b80 (0x324,0xcf8)
0x67b80…67ba0 75 73 68 28 2e 77 33 2e 2c 77 30 3a 3d 73 61 76 65 77 30 29 3b 0a 20 20 20 20 20 20 20 20 70 75 ┆ush(.w3.,w0:=savew0); pu┆
0x67ba0…67bc0 73 68 28 2e 77 33 2e 2c 77 30 3a 3d 72 65 6d 5f 62 79 74 65 73 29 3b 0a 20 20 20 20 20 20 20 20 ┆sh(.w3.,w0:=rem_bytes); ┆
0x67bc0…67be0 70 75 73 68 28 2e 77 33 2e 2c 77 30 3a 3d 62 75 66 5f 72 65 6c 29 3b 0a 20 20 20 20 20 20 20 20 ┆push(.w3.,w0:=buf_rel); ┆
0x67be0…67c00 70 75 73 68 28 2e 77 33 2e 2c 77 30 3a 3d 73 61 76 65 77 31 29 3b 0a 20 00 00 00 00 00 00 00 00 ┆push(.w3.,w0:=savew1); ┆
0x67c00…67c06 (830,) (0x324,0xcf9)
0x67c06…67c20 20 20 20 20 20 20 20 70 75 73 68 28 2e 77 33 2e 2c 77 30 3a 3d 72 65 6c 61 74 ┆ push(.w3.,w0:=relat┆
0x67c20…67c40 69 76 65 29 3b 0a 20 20 20 20 20 20 20 20 77 30 3a 3d 28 77 33 29 2e 74 63 5f 62 73 6c 3b 0a 20 ┆ive); w0:=(w3).tc_bsl; ┆
0x67c40…67c60 20 20 20 20 20 20 20 77 31 3a 3d 28 77 33 29 2e 74 63 5f 62 73 75 3b 0a 20 20 20 20 20 20 20 20 ┆ w1:=(w3).tc_bsu; ┆
0x67c60…67c7e 77 33 3a 3d 61 64 64 72 65 73 73 28 7a 65 72 6f 29 3b 0a 20 20 20 20 20 20 20 20 6d 6f 6e ┆w3:=address(zero); mon┆
0x67c7e…67c84 (0x324,0xcfa)
0x67c84…67ca0 69 74 6f 72 28 37 32 29 3b 0a 20 20 20 20 20 20 20 20 77 33 3a 3d 62 2e 63 75 72 72 ┆itor(72); w3:=b.curr┆
0x67ca0…67cc0 65 6e 74 3b 0a 20 20 20 20 20 20 20 20 62 75 66 5f 6f 70 3a 3d 77 30 3a 3d 33 20 6c 73 68 69 66 ┆ent; buf_op:=w0:=3 lshif┆
0x67cc0…67ce0 74 20 31 32 3b 0a 0a 20 20 20 20 20 20 20 20 62 75 66 5f 66 61 3a 3d 77 30 3a 3d 28 77 33 29 2e ┆t 12; buf_fa:=w0:=(w3).┆
0x67ce0…67cfc 74 63 5f 62 73 62 75 66 3b 0a 20 20 20 20 20 20 20 20 77 30 2b 35 31 30 3b 0a 20 20 ┆tc_bsbuf; w0+510; ┆
0x67cfc…67d02 (0x324,0xcfb)
0x67d02…67d20 20 20 20 20 20 20 62 75 66 5f 6c 61 3a 3d 77 30 3b 0a 20 20 20 20 20 20 20 20 62 75 66 5f ┆ buf_la:=w0; buf_┆
0x67d20…67d40 73 65 67 6e 6f 3a 3d 77 30 3a 3d 28 77 33 29 2e 74 63 5f 63 73 65 67 6e 6f 3b 0a 20 20 20 20 20 ┆segno:=w0:=(w3).tc_csegno; ┆
0x67d40…67d60 20 20 20 77 31 3a 3d 61 64 64 72 65 73 73 28 62 75 66 5f 6f 70 29 3b 0a 20 20 20 20 20 20 20 20 ┆ w1:=address(buf_op); ┆
0x67d60…67d7a 77 32 3a 3d 61 64 64 72 65 73 73 28 28 77 33 29 2e 74 63 5f 62 73 6e 61 6d 65 ┆w2:=address((w3).tc_bsname┆
0x67d7a…67d80 (0x324,0xcfc)
0x67d80…67da0 29 3b 0a 20 20 20 20 20 20 20 20 73 65 6e 64 77 61 69 74 28 2e 77 33 2e 2c 77 30 2c 77 31 2c 77 ┆); sendwait(.w3.,w0,w1,w┆
0x67da0…67dc0 32 29 3b 0a 20 20 20 20 20 20 20 20 77 32 3a 3d 31 20 6c 73 68 69 66 74 20 77 30 3b 0a 20 20 20 ┆2); w2:=1 lshift w0; ┆
0x67dc0…67de0 20 20 20 20 20 69 66 20 77 32 3d 32 20 74 68 65 6e 20 77 32 20 6f 72 20 62 2e 61 6e 73 5f 73 74 ┆ if w2=2 then w2 or b.ans_st┆
0x67de0…67e00 61 74 75 73 3b 0a 20 20 20 20 20 20 20 20 73 74 61 74 75 73 3a 3d 77 32 00 00 00 00 00 00 00 00 ┆atus; status:=w2 ┆
0x67e00…67e06 (831,) (0x324,0xcfd)
0x67e06…67e20 3b 0a 20 20 20 20 20 20 20 20 70 6f 70 28 2e 77 33 2e 2c 77 30 29 3b 72 65 6c ┆; pop(.w3.,w0);rel┆
0x67e20…67e40 61 74 69 76 65 3a 3d 77 30 3b 0a 20 20 20 20 20 20 20 20 70 6f 70 28 2e 77 33 2e 2c 77 30 29 3b ┆ative:=w0; pop(.w3.,w0);┆
0x67e40…67e60 73 61 76 65 77 31 3a 3d 77 30 3b 0a 20 20 20 20 20 20 20 20 70 6f 70 28 2e 77 33 2e 2c 77 30 29 ┆savew1:=w0; pop(.w3.,w0)┆
0x67e60…67e7e 3b 62 75 66 5f 72 65 6c 3a 3d 77 30 3b 0a 20 20 20 20 20 20 20 20 70 6f 70 28 2e 77 33 2e ┆;buf_rel:=w0; pop(.w3.┆
0x67e7e…67e84 (0x324,0xcfe)
0x67e84…67ea0 2c 77 30 29 3b 72 65 6d 5f 62 79 74 65 73 3a 3d 77 30 3b 0a 20 20 20 20 20 20 20 20 ┆,w0);rem_bytes:=w0; ┆
0x67ea0…67ec0 70 6f 70 28 2e 77 33 2e 2c 77 30 29 3b 73 61 76 65 77 30 3a 3d 77 30 3b 0a 20 20 20 20 20 20 20 ┆pop(.w3.,w0);savew0:=w0; ┆
0x67ec0…67ee0 20 70 6f 70 28 2e 77 33 2e 2c 77 30 29 3b 72 65 74 75 72 6e 3a 3d 77 30 3b 0a 20 20 20 20 20 20 ┆ pop(.w3.,w0);return:=w0; ┆
0x67ee0…67efc 20 20 69 66 20 77 32 3a 3d 73 74 61 74 75 73 20 61 6e 64 20 32 27 31 30 30 31 30 30 ┆ if w2:=status and 2'100100┆
0x67efc…67f02 (0x324,0xcff)
0x67f02…67f20 3c 3e 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 ┆<>0 then begin comment┆
0x67f20…67f40 20 72 65 6a 65 63 74 65 64 2f 64 6f 65 73 20 6e 6f 74 20 65 78 69 73 74 3b 0a 20 20 20 20 20 20 ┆ rejected/does not exist; ┆
0x67f40…67f60 20 20 20 20 77 30 3a 3d 28 77 33 29 2e 74 63 5f 62 73 6c 3b 0a 20 20 20 20 20 20 20 20 20 20 77 ┆ w0:=(w3).tc_bsl; w┆
0x67f60…67f7a 31 3a 3d 28 77 33 29 2e 74 63 5f 62 73 75 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆1:=(w3).tc_bsu; ┆
0x67f7a…67f80 (0x324,0xd00)
0x67f80…67fa0 77 33 3a 3d 61 64 64 72 65 73 73 28 7a 65 72 6f 29 3b 0a 20 20 20 20 20 20 20 20 20 20 6d 6f 6e ┆w3:=address(zero); mon┆
0x67fa0…67fc0 69 74 6f 72 28 37 32 29 3b 20 21 20 73 65 74 20 63 61 74 61 6c 6f 67 20 62 61 73 65 20 21 0a 20 ┆itor(72); ! set catalog base ! ┆
0x67fc0…67fe0 20 20 20 20 20 20 20 20 20 77 33 3a 3d 62 2e 63 75 72 72 65 6e 74 3b 0a 20 20 20 20 20 20 20 20 ┆ w3:=b.current; ┆
0x67fe0…68000 20 20 77 33 3a 3d 61 64 64 72 65 73 73 28 28 77 33 29 2e 74 63 5f 62 73 00 00 00 00 00 00 00 00 ┆ w3:=address((w3).tc_bs ┆
0x68000…68006 (832,) (0x324,0xd01)
0x68006…68020 6e 61 6d 65 29 3b 0a 20 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 35 ┆name); monitor(5┆
0x68020…68040 32 29 3b 20 21 20 63 72 65 61 74 65 20 61 72 65 61 20 70 72 6f 63 65 73 73 20 21 0a 20 20 20 20 ┆2); ! create area process ! ┆
0x68040…68060 20 20 20 20 20 20 69 66 20 77 30 3d 30 20 74 68 65 6e 20 6d 6f 6e 69 74 6f 72 28 38 29 3b 20 21 ┆ if w0=0 then monitor(8); !┆
0x68060…6807e 20 72 65 73 65 72 76 65 20 70 72 6f 63 65 73 73 20 21 0a 20 20 20 20 20 20 20 20 20 20 77 ┆ reserve process ! w┆
0x6807e…68084 (0x324,0xd02)
0x68084…680a0 33 3a 3d 62 2e 63 75 72 72 65 6e 74 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 ┆3:=b.current; if w┆
0x680a0…680c0 30 3c 3e 30 20 74 68 65 6e 20 67 6f 74 6f 20 65 78 69 74 3b 0a 20 20 20 20 20 20 20 20 20 20 67 ┆0<>0 then goto exit; g┆
0x680c0…680e0 6f 74 6f 20 72 65 70 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 65 6e 64 3b ┆oto rep; end; end;┆
0x680e0…680fc 0a 20 20 20 20 20 20 69 66 20 77 32 3a 3d 73 74 61 74 75 73 3d 32 20 74 68 65 6e 0a ┆ if w2:=status=2 then ┆
0x680fc…68102 (0x324,0xd03)
0x68102…68120 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 77 30 3a 3d 35 31 32 2d 72 65 ┆ begin w0:=512-re┆
0x68120…68140 6c 61 74 69 76 65 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3e 72 65 6d 5f 62 79 74 65 73 20 ┆lative; if w0>rem_bytes ┆
0x68140…68160 74 68 65 6e 20 77 30 3a 3d 72 65 6d 5f 62 79 74 65 73 3b 0a 20 20 20 20 20 20 20 20 77 31 3a 3d ┆then w0:=rem_bytes; w1:=┆
0x68160…6817a 28 77 33 29 2e 74 63 5f 62 73 62 75 66 2b 72 65 6c 61 74 69 76 65 3b 0a 20 20 ┆(w3).tc_bsbuf+relative; ┆
0x6817a…68180 (0x324,0xd04)
0x68180…681a0 20 20 20 20 20 20 77 32 3a 3d 73 61 76 65 77 31 2b 62 75 66 5f 72 65 6c 3b 0a 20 20 20 20 20 20 ┆ w2:=savew1+buf_rel; ┆
0x681a0…681c0 20 20 6d 6f 76 65 28 2e 77 33 2e 2c 77 30 2c 77 31 2c 77 32 29 3b 0a 20 20 20 20 20 20 20 20 62 ┆ move(.w3.,w0,w1,w2); b┆
0x681c0…681e0 75 66 5f 72 65 6c 3a 3d 77 32 3a 3d 77 30 2b 62 75 66 5f 72 65 6c 3b 0a 20 20 20 20 20 20 20 20 ┆uf_rel:=w2:=w0+buf_rel; ┆
0x681e0…68200 72 65 6d 5f 62 79 74 65 73 3a 3d 77 32 3a 3d 72 65 6d 5f 62 79 74 65 73 00 00 00 00 00 00 00 00 ┆rem_bytes:=w2:=rem_bytes ┆
0x68200…68206 (833,) (0x324,0xd05)
0x68206…68220 2d 77 30 3b 0a 20 20 20 20 20 20 20 20 72 65 6c 61 74 69 76 65 3a 3d 77 30 3a ┆-w0; relative:=w0:┆
0x68220…68240 3d 30 3b 0a 20 20 20 20 20 20 20 20 77 31 3a 3d 28 77 33 29 2e 74 63 5f 63 73 65 67 6e 6f 2b 31 ┆=0; w1:=(w3).tc_csegno+1┆
0x68240…68260 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 32 3e 30 20 74 68 65 6e 20 67 6f 74 6f 20 69 6e 5f 62 ┆; if w2>0 then goto in_b┆
0x68260…6827e 73 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 65 78 69 74 3a 0a 20 20 20 20 20 20 77 32 3a 3d ┆s; end; exit: w2:=┆
0x6827e…68284 (0x324,0xd06)
0x68284…682a0 73 74 61 74 75 73 3b 0a 20 20 20 20 20 20 77 31 3a 3d 73 61 76 65 77 31 3b 0a 20 20 ┆status; w1:=savew1; ┆
0x682a0…682c0 20 20 20 20 77 30 3a 3d 73 61 76 65 77 30 2d 72 65 6d 5f 62 79 74 65 73 3b 0a 20 20 20 20 20 20 ┆ w0:=savew0-rem_bytes; ┆
0x682c0…682e0 63 61 6c 6c 20 77 30 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 65 6e 64 3b 0a 20 20 65 6e 64 3b 20 ┆call w0 return; end; end; ┆
0x682e0…682fc 21 20 65 6e 64 20 67 65 74 5f 62 6c 6f 63 6b 20 21 0a 0a 0a 0a 20 20 62 6f 64 79 20 ┆! end get_block ! body ┆
0x682fc…68302 (0x324,0xd07)
0x68302…68320 6f 66 20 70 75 74 5f 62 6c 6f 63 6b 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 6c 61 62 65 6c ┆of put_block begin label┆
0x68320…68340 20 6f 75 74 5f 62 73 2c 72 65 70 2c 65 78 69 74 3b 0a 20 20 20 20 69 6e 63 6f 64 65 0a 20 20 20 ┆ out_bs,rep,exit; incode ┆
0x68340…68360 20 20 20 77 6f 72 64 20 7a 65 72 6f 3a 3d 30 3b 0a 20 20 20 20 20 20 77 6f 72 64 20 70 75 74 5f ┆ word zero:=0; word put_┆
0x68360…6837a 73 65 67 6d 3b 0a 20 20 20 20 20 20 77 6f 72 64 20 62 75 66 5f 6f 70 3a 3d 32 ┆segm; word buf_op:=2┆
0x6837a…68380 (0x324,0xd08)
0x68380…683a0 30 34 38 30 3b 0a 20 20 20 20 20 20 72 65 66 20 62 75 66 5f 66 61 2c 62 75 66 5f 6c 61 3b 0a 20 ┆0480; ref buf_fa,buf_la; ┆
0x683a0…683c0 20 20 20 20 20 77 6f 72 64 20 62 75 66 5f 73 65 67 6e 6f 3b 0a 20 20 20 20 20 20 77 6f 72 64 20 ┆ word buf_segno; word ┆
0x683c0…683e0 72 65 6d 5f 62 79 74 65 73 2c 62 75 66 5f 72 65 6c 2c 72 65 6c 61 74 69 76 65 2c 73 74 61 74 75 ┆rem_bytes,buf_rel,relative,statu┆
0x683e0…68400 73 3b 0a 20 20 20 20 20 20 72 65 66 20 72 65 74 75 72 6e 3b 0a 20 20 20 00 00 00 00 00 00 00 00 ┆s; ref return; ┆
0x68400…68406 (834,) (0x324,0xd09)
0x68406…68420 20 20 20 77 6f 72 64 20 73 61 76 65 77 30 2c 73 61 76 65 77 31 3b 0a 20 20 20 ┆ word savew0,savew1; ┆
0x68420…68440 20 62 65 67 69 6e 0a 0a 20 20 20 20 20 20 72 65 74 75 72 6e 3a 3d 77 33 3b 0a 20 20 20 20 20 20 ┆ begin return:=w3; ┆
0x68440…68460 73 61 76 65 77 30 3a 3d 77 30 3b 0a 20 20 20 20 20 20 73 61 76 65 77 31 3a 3d 77 31 3b 0a 0a 20 ┆savew0:=w0; savew1:=w1; ┆
0x68460…6847e 20 20 20 20 20 72 65 6d 5f 62 79 74 65 73 3a 3d 77 30 3b 0a 20 20 20 20 20 20 73 74 61 74 ┆ rem_bytes:=w0; stat┆
0x6847e…68484 (0x324,0xd0a)
0x68484…684a0 75 73 3a 3d 77 32 3a 3d 32 3b 0a 20 20 20 20 20 20 62 75 66 5f 72 65 6c 3a 3d 77 30 ┆us:=w2:=2; buf_rel:=w0┆
0x684a0…684c0 3a 3d 30 3b 0a 20 20 20 20 20 20 77 33 3a 3d 62 2e 63 75 72 72 65 6e 74 3b 0a 20 20 20 20 20 20 ┆:=0; w3:=b.current; ┆
0x684c0…684e0 66 31 20 3a 3d 20 28 77 33 29 2e 74 63 5f 62 73 70 74 72 3b 0a 20 20 20 20 20 20 77 31 20 65 78 ┆f1 := (w3).tc_bsptr; w1 ex┆
0x684e0…684fc 74 72 61 63 74 20 39 3b 72 65 6c 61 74 69 76 65 20 3a 3d 20 77 31 3b 0a 20 20 20 20 ┆tract 9;relative := w1; ┆
0x684fc…68502 (0x324,0xd0b)
0x68502…68520 20 20 66 31 20 3a 3d 20 28 77 33 29 2e 74 63 5f 62 73 70 74 72 3b 0a 20 20 20 20 20 20 66 ┆ f1 := (w3).tc_bsptr; f┆
0x68520…68540 31 20 61 73 68 69 66 74 20 2d 39 3b 0a 20 20 20 20 20 20 70 75 74 5f 73 65 67 6d 3a 3d 77 31 3b ┆1 ashift -9; put_segm:=w1;┆
0x68540…68560 0a 6f 75 74 5f 62 73 3a 0a 20 20 20 20 20 20 77 33 3a 3d 62 2e 63 75 72 72 65 6e 74 3b 0a 20 20 ┆ out_bs: w3:=b.current; ┆
0x68560…6857a 20 20 20 20 69 66 20 77 31 3a 3d 70 75 74 5f 73 65 67 6d 3c 3e 28 77 33 29 2e ┆ if w1:=put_segm<>(w3).┆
0x6857a…68580 (0x324,0xd0c)
0x68580…685a0 74 63 5f 63 73 65 67 6e 6f 20 74 68 65 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 72 65 70 3a 0a ┆tc_csegno then begin rep: ┆
0x685a0…685c0 20 20 20 20 20 20 20 20 70 75 73 68 28 2e 77 33 2e 2c 77 30 3a 3d 72 65 74 75 72 6e 29 3b 0a 20 ┆ push(.w3.,w0:=return); ┆
0x685c0…685e0 20 20 20 20 20 20 20 70 75 73 68 28 2e 77 33 2e 2c 77 30 3a 3d 73 61 76 65 77 30 29 3b 0a 20 20 ┆ push(.w3.,w0:=savew0); ┆
0x685e0…68600 20 20 20 20 20 20 70 75 73 68 28 2e 77 33 2e 2c 77 30 3a 3d 72 65 6d 5f 00 00 00 00 00 00 00 00 ┆ push(.w3.,w0:=rem_ ┆
0x68600…68606 (835,) (0x324,0xd0d)
0x68606…68620 62 79 74 65 73 29 3b 0a 20 20 20 20 20 20 20 20 70 75 73 68 28 2e 77 33 2e 2c ┆bytes); push(.w3.,┆
0x68620…68640 77 30 3a 3d 62 75 66 5f 72 65 6c 29 3b 0a 20 20 20 20 20 20 20 20 70 75 73 68 28 2e 77 33 2e 2c ┆w0:=buf_rel); push(.w3.,┆
0x68640…68660 77 30 3a 3d 73 61 76 65 77 31 29 3b 0a 20 20 20 20 20 20 20 20 70 75 73 68 28 2e 77 33 2e 2c 77 ┆w0:=savew1); push(.w3.,w┆
0x68660…6867e 30 3a 3d 70 75 74 5f 73 65 67 6d 29 3b 0a 20 20 20 20 20 20 20 20 77 30 3a 3d 28 77 33 29 ┆0:=put_segm); w0:=(w3)┆
0x6867e…68684 (0x324,0xd0e)
0x68684…686a0 2e 74 63 5f 62 73 6c 3b 0a 20 20 20 20 20 20 20 20 77 31 3a 3d 28 77 33 29 2e 74 63 ┆.tc_bsl; w1:=(w3).tc┆
0x686a0…686c0 5f 62 73 75 3b 0a 20 20 20 20 20 20 20 20 77 33 3a 3d 61 64 64 72 65 73 73 28 7a 65 72 6f 29 3b ┆_bsu; w3:=address(zero);┆
0x686c0…686e0 0a 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 37 32 29 3b 0a 20 20 20 20 20 20 20 20 77 33 ┆ monitor(72); w3┆
0x686e0…686fc 3a 3d 62 2e 63 75 72 72 65 6e 74 3b 0a 20 20 20 20 20 20 20 20 62 75 66 5f 66 61 3a ┆:=b.current; buf_fa:┆
0x686fc…68702 (0x324,0xd0f)
0x68702…68720 3d 77 30 3a 3d 28 77 33 29 2e 74 63 5f 62 73 62 75 66 3b 0a 20 20 20 20 20 20 20 20 77 30 ┆=w0:=(w3).tc_bsbuf; w0┆
0x68720…68740 2b 35 31 30 3b 0a 20 20 20 20 20 20 20 20 62 75 66 5f 6c 61 3a 3d 77 30 3b 0a 20 20 20 20 20 20 ┆+510; buf_la:=w0; ┆
0x68740…68760 20 20 62 75 66 5f 73 65 67 6e 6f 3a 3d 77 30 3a 3d 28 77 33 29 2e 74 63 5f 63 73 65 67 6e 6f 3b ┆ buf_segno:=w0:=(w3).tc_csegno;┆
0x68760…6877a 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3e 2d 31 20 74 68 65 6e 0a 20 20 20 ┆ if w0>-1 then ┆
0x6877a…68780 (0x324,0xd10)
0x68780…687a0 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 6f 75 74 70 75 74 20 73 65 67 6d 65 6e ┆ begin comment output segmen┆
0x687a0…687c0 74 3b 0a 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 61 64 64 72 65 73 73 28 62 75 66 5f 6f 70 29 ┆t; w1:=address(buf_op)┆
0x687c0…687e0 3b 0a 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 61 64 64 72 65 73 73 28 28 77 33 29 2e 74 63 5f ┆; w2:=address((w3).tc_┆
0x687e0…68800 62 73 6e 61 6d 65 29 3b 0a 20 20 20 20 20 20 20 20 20 20 73 65 6e 64 77 00 00 00 00 00 00 00 00 ┆bsname); sendw ┆
0x68800…68806 (836,) (0x324,0xd11)
0x68806…68820 61 69 74 28 2e 77 33 2e 2c 77 30 2c 77 31 2c 77 32 29 3b 0a 20 20 20 20 20 20 ┆ait(.w3.,w0,w1,w2); ┆
0x68820…68840 20 20 20 20 77 32 3a 3d 31 20 6c 73 68 69 66 74 20 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 69 ┆ w2:=1 lshift w0; i┆
0x68840…68860 66 20 77 32 3d 32 20 74 68 65 6e 20 77 32 20 6f 72 20 62 2e 61 6e 73 5f 73 74 61 74 75 73 3b 0a ┆f w2=2 then w2 or b.ans_status; ┆
0x68860…6887e 20 20 20 20 20 20 20 20 65 6e 64 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e ┆ end else begin┆
0x6887e…68884 (0x324,0xd12)
0x68884…688a0 20 63 6f 6d 6d 65 6e 74 20 66 69 72 73 74 20 63 61 6c 6c 20 64 6f 6e 27 6e 74 20 6f ┆ comment first call don'nt o┆
0x688a0…688c0 75 74 70 75 74 20 73 65 67 6d 65 6e 74 3b 0a 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 32 3b 20 ┆utput segment; w2:=2; ┆
0x688c0…688e0 21 20 73 69 6d 75 6c 61 74 65 20 6e 6f 72 6d 61 6c 20 72 65 73 75 6c 74 2f 73 74 61 74 75 73 3d ┆! simulate normal result/status=┆
0x688e0…688fc 30 20 21 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 73 74 61 ┆0 ! end; sta┆
0x688fc…68902 (0x324,0xd13)
0x68902…68920 74 75 73 3a 3d 77 32 3b 0a 20 20 20 20 20 20 20 20 70 6f 70 28 2e 77 33 2e 2c 77 30 29 3b ┆tus:=w2; pop(.w3.,w0);┆
0x68920…68940 70 75 74 5f 73 65 67 6d 3a 3d 77 30 3b 0a 20 20 20 20 20 20 20 20 70 6f 70 28 2e 77 33 2e 2c 77 ┆put_segm:=w0; pop(.w3.,w┆
0x68940…68960 30 29 3b 73 61 76 65 77 31 3a 3d 77 30 3b 0a 20 20 20 20 20 20 20 20 70 6f 70 28 2e 77 33 2e 2c ┆0);savew1:=w0; pop(.w3.,┆
0x68960…6897a 77 30 29 3b 62 75 66 5f 72 65 6c 3a 3d 77 30 3b 0a 20 20 20 20 20 20 20 20 70 ┆w0);buf_rel:=w0; p┆
0x6897a…68980 (0x324,0xd14)
0x68980…689a0 6f 70 28 2e 77 33 2e 2c 77 30 29 3b 72 65 6d 5f 62 79 74 65 73 3a 3d 77 30 3b 0a 20 20 20 20 20 ┆op(.w3.,w0);rem_bytes:=w0; ┆
0x689a0…689c0 20 20 20 70 6f 70 28 2e 77 33 2e 2c 77 30 29 3b 73 61 76 65 77 30 3a 3d 77 30 3b 0a 20 20 20 20 ┆ pop(.w3.,w0);savew0:=w0; ┆
0x689c0…689e0 20 20 20 20 70 6f 70 28 2e 77 33 2e 2c 77 30 29 3b 72 65 74 75 72 6e 3a 3d 77 30 3b 0a 20 20 20 ┆ pop(.w3.,w0);return:=w0; ┆
0x689e0…68a00 20 20 20 20 20 69 66 20 77 32 3a 3d 73 74 61 74 75 73 20 61 6e 64 20 32 00 00 00 00 00 00 00 00 ┆ if w2:=status and 2 ┆
0x68a00…68a06 (837,) (0x324,0xd15)
0x68a06…68a20 27 31 30 30 31 30 30 3c 3e 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 62 65 ┆'100100<>0 then be┆
0x68a20…68a40 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 72 65 6a 65 63 74 65 64 2f 64 6f 65 73 20 6e 6f 74 20 65 78 ┆gin comment rejected/does not ex┆
0x68a40…68a60 69 73 74 3b 0a 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 28 77 33 29 2e 74 63 5f 62 73 6c 3b 0a ┆ist; w0:=(w3).tc_bsl; ┆
0x68a60…68a7e 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 28 77 33 29 2e 74 63 5f 62 73 75 3b 0a 20 20 20 ┆ w1:=(w3).tc_bsu; ┆
0x68a7e…68a84 (0x324,0xd16)
0x68a84…68aa0 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 37 32 29 3b 20 21 20 73 65 74 20 63 61 ┆ monitor(72); ! set ca┆
0x68aa0…68ac0 74 61 6c 6f 67 20 62 61 73 65 20 21 0a 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 62 2e 63 75 72 ┆talog base ! w3:=b.cur┆
0x68ac0…68ae0 72 65 6e 74 3b 0a 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 61 64 64 72 65 73 73 28 28 77 33 29 ┆rent; w3:=address((w3)┆
0x68ae0…68afc 2e 74 63 5f 62 73 6e 61 6d 65 29 3b 0a 20 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 ┆.tc_bsname); monit┆
0x68afc…68b02 (0x324,0xd17)
0x68b02…68b20 6f 72 28 35 32 29 3b 20 21 20 63 72 65 61 74 65 20 61 72 65 61 20 70 72 6f 63 65 73 73 20 ┆or(52); ! create area process ┆
0x68b20…68b40 21 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3d 30 20 74 68 65 6e 20 6d 6f 6e 69 74 6f 72 ┆! if w0=0 then monitor┆
0x68b40…68b60 28 38 29 3b 20 21 20 72 65 73 65 72 76 65 20 70 72 6f 63 65 73 73 20 21 0a 20 20 20 20 20 20 20 ┆(8); ! reserve process ! ┆
0x68b60…68b7a 20 20 20 77 33 3a 3d 62 2e 63 75 72 72 65 6e 74 3b 0a 20 20 20 20 20 20 20 20 ┆ w3:=b.current; ┆
0x68b7a…68b80 (0x324,0xd18)
0x68b80…68ba0 20 20 69 66 20 77 30 3c 3e 30 20 74 68 65 6e 20 67 6f 74 6f 20 65 78 69 74 3b 0a 20 20 20 20 20 ┆ if w0<>0 then goto exit; ┆
0x68ba0…68bc0 20 20 20 20 20 67 6f 74 6f 20 72 65 70 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 ┆ goto rep; end; ┆
0x68bc0…68be0 20 20 20 20 28 77 33 29 2e 74 63 5f 63 73 65 67 6e 6f 3a 3d 77 31 3a 3d 70 75 74 5f 73 65 67 6d ┆ (w3).tc_csegno:=w1:=put_segm┆
0x68be0…68c00 3b 0a 20 20 20 20 20 20 20 20 77 31 3a 3d 28 77 33 29 2e 74 63 5f 62 73 00 00 00 00 00 00 00 00 ┆; w1:=(w3).tc_bs ┆
0x68c00…68c06 (838,) (0x324,0xd19)
0x68c06…68c20 62 75 66 3b 0a 20 20 20 20 20 20 20 20 77 32 3a 3d 77 31 2b 32 3b 28 77 31 29 ┆buf; w2:=w1+2;(w1)┆
0x68c20…68c40 2e 77 6f 72 64 3a 3d 77 30 3a 3d 30 3b 20 21 20 66 69 6c 6c 20 62 75 66 66 65 72 20 77 69 74 68 ┆.word:=w0:=0; ! fill buffer with┆
0x68c40…68c60 20 7a 65 72 6f 65 73 20 21 0a 20 20 20 20 20 20 20 20 6d 6f 76 65 28 2e 77 33 2e 2c 77 30 3a 3d ┆ zeroes ! move(.w3.,w0:=┆
0x68c60…68c7e 35 31 30 2c 77 31 2c 77 32 29 3b 0a 20 20 20 20 20 20 20 20 72 65 6c 61 74 69 76 65 3a 3d ┆510,w1,w2); relative:=┆
0x68c7e…68c84 (0x324,0xd1a)
0x68c84…68ca0 77 30 3a 3d 30 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 69 66 20 77 ┆w0:=0; end; if w┆
0x68ca0…68cc0 32 3a 3d 73 74 61 74 75 73 3d 32 20 74 68 65 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 ┆2:=status=2 then begin ┆
0x68cc0…68ce0 20 20 20 20 20 77 30 3a 3d 35 31 32 2d 72 65 6c 61 74 69 76 65 3b 0a 20 20 20 20 20 20 20 20 69 ┆ w0:=512-relative; i┆
0x68ce0…68cfc 66 20 77 30 3e 3d 72 65 6d 5f 62 79 74 65 73 20 74 68 65 6e 20 77 30 3a 3d 72 65 6d ┆f w0>=rem_bytes then w0:=rem┆
0x68cfc…68d02 (0x324,0xd1b)
0x68d02…68d20 5f 62 79 74 65 73 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d ┆_bytes else begin comm┆
0x68d20…68d40 65 6e 74 20 6e 6f 20 72 6f 6f 6d 20 6f 6e 20 74 68 69 73 20 73 65 67 6d 65 6e 74 3b 0a 20 20 20 ┆ent no room on this segment; ┆
0x68d40…68d60 20 20 20 20 20 20 20 77 31 3a 3d 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 20 30 3b ┆ w1:=w0; w0:= 0;┆
0x68d60…68d7a 0a 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 62 73 70 74 72 3a 3d ┆ (w3).tc_bsptr:=┆
0x68d7a…68d80 (0x324,0xd1c)
0x68d80…68da0 66 31 2b 28 77 33 29 2e 74 63 5f 62 73 70 74 72 3b 0a 20 20 20 20 20 20 20 20 20 20 70 75 74 5f ┆f1+(w3).tc_bsptr; put_┆
0x68da0…68dc0 73 65 67 6d 3a 3d 77 31 3a 3d 70 75 74 5f 73 65 67 6d 2b 31 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆segm:=w1:=put_segm+1; ┆
0x68dc0…68de0 67 6f 74 6f 20 6f 75 74 5f 62 73 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 ┆goto out_bs; end; ┆
0x68de0…68e00 20 20 69 66 20 77 30 3c 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 62 00 00 00 00 00 00 00 00 ┆ if w0<0 then b ┆
0x68e00…68e06 (839,) (0x324,0xd1d)
0x68e06…68e20 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 63 6c 6f 73 65 20 66 69 6c 65 3b 0a 20 ┆egin comment close file; ┆
0x68e20…68e40 20 20 20 20 20 20 20 20 20 77 30 3a 3d 35 31 32 2d 72 65 6c 61 74 69 76 65 3b 0a 20 20 20 20 20 ┆ w0:=512-relative; ┆
0x68e40…68e60 20 20 20 20 20 77 32 3a 3d 28 77 33 29 2e 74 63 5f 62 73 62 75 66 2b 72 65 6c 61 74 69 76 65 3b ┆ w2:=(w3).tc_bsbuf+relative;┆
0x68e60…68e7e 0a 20 20 20 20 20 20 20 20 20 20 6d 6f 76 65 28 2e 77 33 2e 2c 77 30 20 65 78 74 72 61 63 ┆ move(.w3.,w0 extrac┆
0x68e7e…68e84 (0x324,0xd1e)
0x68e84…68ea0 74 20 39 2c 77 31 3a 3d 77 32 2d 32 2c 77 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆t 9,w1:=w2-2,w2); ┆
0x68ea0…68ec0 72 65 6d 5f 62 79 74 65 73 3a 3d 77 30 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 20 70 75 74 5f ┆rem_bytes:=w0:=0; put_┆
0x68ec0…68ee0 73 65 67 6d 3a 3d 77 31 3a 3d 70 75 74 5f 73 65 67 6d 2b 31 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆segm:=w1:=put_segm+1; ┆
0x68ee0…68efc 67 6f 74 6f 20 6f 75 74 5f 62 73 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 ┆goto out_bs; end; ┆
0x68efc…68f02 (0x324,0xd1f)
0x68f02…68f20 20 20 20 20 20 20 77 32 3a 3d 28 77 33 29 2e 74 63 5f 62 73 62 75 66 2b 72 65 6c 61 74 69 ┆ w2:=(w3).tc_bsbuf+relati┆
0x68f20…68f40 76 65 3b 0a 20 20 20 20 20 20 20 20 77 31 3a 3d 73 61 76 65 77 31 2b 62 75 66 5f 72 65 6c 3b 0a ┆ve; w1:=savew1+buf_rel; ┆
0x68f40…68f60 20 20 20 20 20 20 20 20 6d 6f 76 65 28 2e 77 33 2e 2c 77 30 2c 77 31 2c 77 32 29 3b 0a 20 20 20 ┆ move(.w3.,w0,w1,w2); ┆
0x68f60…68f7a 20 20 20 20 20 72 65 6d 5f 62 79 74 65 73 3a 3d 77 32 3a 3d 72 65 6d 5f 62 79 ┆ rem_bytes:=w2:=rem_by┆
0x68f7a…68f80 (0x324,0xd20)
0x68f80…68fa0 74 65 73 2d 77 30 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 32 3e 30 20 74 68 65 6e 0a 20 20 20 ┆tes-w0; if w2>0 then ┆
0x68fa0…68fc0 20 20 20 65 6e 64 3b 0a 65 78 69 74 3a 0a 20 20 20 20 20 20 77 32 3a 3d 73 74 61 74 75 73 3b 0a ┆ end; exit: w2:=status; ┆
0x68fc0…68fe0 20 20 20 20 20 20 77 31 3a 3d 73 61 76 65 77 31 3b 0a 20 20 20 20 20 20 77 30 3a 3d 73 61 76 65 ┆ w1:=savew1; w0:=save┆
0x68fe0…69000 77 30 2d 72 65 6d 5f 62 79 74 65 73 3b 0a 20 20 20 20 20 20 63 61 6c 6c 00 00 00 00 00 00 00 00 ┆w0-rem_bytes; call ┆
0x69000…69006 (840,) (0x324,0xd21)
0x69006…69020 20 77 30 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 65 6e 64 3b 0a 20 20 65 6e 64 ┆ w0 return; end; end┆
0x69020…69040 3b 20 21 20 65 6e 64 20 70 75 74 5f 62 6c 6f 63 6b 20 21 0a 0a 0a 0a 20 20 62 6f 64 79 20 6f 66 ┆; ! end put_block ! body of┆
0x69040…69060 20 63 6c 6f 73 65 62 73 0a 20 20 63 6f 6d 6d 65 6e 74 0a 20 20 20 20 74 65 72 6d 69 6e 61 74 65 ┆ closebs comment terminate┆
0x69060…6907e 20 74 68 65 20 75 73 65 20 6f 66 20 74 68 65 20 61 72 65 61 20 63 6f 6e 6e 65 63 74 65 64 ┆ the use of the area connected┆
0x6907e…69084 (0x324,0xd22)
0x69084…690a0 20 74 6f 20 63 75 72 72 65 6e 74 20 70 72 69 6e 74 65 72 20 63 6f 72 6f 75 74 69 6e ┆ to current printer coroutin┆
0x690a0…690c0 65 0a 20 20 3b 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 6c 61 62 65 6c 20 69 6e 75 73 65 3b 0a 20 ┆e ; begin label inuse; ┆
0x690c0…690e0 20 20 20 69 6e 63 6f 64 65 0a 20 20 20 20 20 20 72 65 66 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 ┆ incode ref return; ┆
0x690e0…690fc 20 20 77 6f 72 64 20 7a 65 72 6f 3a 3d 20 30 3b 0a 20 20 20 20 20 20 64 6f 75 62 6c ┆ word zero:= 0; doubl┆
0x690fc…69102 (0x324,0xd23)
0x69102…69120 65 20 73 61 76 65 66 31 3b 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 73 61 76 65 ┆e savef1; begin save┆
0x69120…69140 66 31 3a 3d 20 66 31 3b 0a 20 20 20 20 20 20 72 65 74 75 72 6e 3a 3d 20 77 33 3b 0a 0a 20 20 20 ┆f1:= f1; return:= w3; ┆
0x69140…69160 20 20 20 77 33 3a 3d 20 62 2e 63 75 72 72 65 6e 74 3b 0a 20 20 20 20 20 20 77 30 3a 3d 20 28 77 ┆ w3:= b.current; w0:= (w┆
0x69160…6917a 33 29 2e 74 63 5f 62 73 6c 3b 0a 20 20 20 20 20 20 77 31 3a 3d 20 28 77 33 29 ┆3).tc_bsl; w1:= (w3)┆
0x6917a…69180 (0x324,0xd24)
0x69180…691a0 2e 74 63 5f 62 73 75 3b 0a 20 20 20 20 20 20 77 33 3a 3d 20 61 64 64 72 65 73 73 28 7a 65 72 6f ┆.tc_bsu; w3:= address(zero┆
0x691a0…691c0 29 3b 0a 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 37 32 29 3b 20 21 20 73 65 74 20 63 61 74 2e ┆); monitor(72); ! set cat.┆
0x691c0…691e0 62 61 73 65 20 21 0a 20 20 20 20 20 20 77 33 3a 3d 62 2e 63 75 72 72 65 6e 74 3b 0a 20 20 20 20 ┆base ! w3:=b.current; ┆
0x691e0…69200 20 20 77 30 3a 3d 28 77 33 29 2e 74 63 5f 61 72 65 61 70 72 6f 63 3b 0a 00 00 00 00 00 00 00 00 ┆ w0:=(w3).tc_areaproc; ┆
0x69200…69206 (841,) (0x324,0xd25)
0x69206…69220 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 61 72 65 61 70 72 6f 63 3a 3d 77 31 ┆ (w3).tc_areaproc:=w1┆
0x69220…69240 3a 3d 30 3b 20 21 20 63 6c 65 61 72 20 61 72 65 61 20 69 6e 20 75 73 65 20 21 0a 20 20 20 20 20 ┆:=0; ! clear area in use ! ┆
0x69240…69260 20 77 31 3a 3d 62 2e 74 63 70 6f 6f 6c 5f 66 73 74 3b 0a 20 20 20 20 20 20 77 68 69 6c 65 20 77 ┆ w1:=b.tcpool_fst; while w┆
0x69260…6927e 31 3c 62 2e 74 63 70 6f 6f 6c 5f 74 6f 70 20 64 6f 0a 20 20 20 20 20 20 62 65 67 69 6e 0a ┆1<b.tcpool_top do begin ┆
0x6927e…69284 (0x324,0xd26)
0x69284…692a0 20 20 20 20 20 20 20 20 69 66 20 77 30 3d 28 77 31 29 2e 74 63 5f 61 72 65 61 70 72 ┆ if w0=(w1).tc_areapr┆
0x692a0…692c0 6f 63 20 74 68 65 6e 20 67 6f 74 6f 20 69 6e 75 73 65 3b 0a 20 20 20 20 20 20 20 20 77 31 3a 3d ┆oc then goto inuse; w1:=┆
0x692c0…692e0 28 77 31 29 2e 74 63 5f 6e 65 78 74 74 63 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 0a 20 20 20 20 ┆(w1).tc_nexttc; end; ┆
0x692e0…692fc 20 20 77 33 3a 3d 61 64 64 72 65 73 73 28 28 77 33 29 2e 74 63 5f 62 73 6e 61 6d 65 ┆ w3:=address((w3).tc_bsname┆
0x692fc…69302 (0x324,0xd27)
0x69302…69320 29 3b 0a 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 36 34 29 3b 20 21 20 72 65 6d 6f 76 65 ┆); monitor(64); ! remove┆
0x69320…69340 20 61 72 65 61 20 70 72 6f 63 65 73 73 20 21 0a 0a 69 6e 75 73 65 3a 20 21 20 64 6f 6e 27 74 20 ┆ area process ! inuse: ! don't ┆
0x69340…69360 72 65 6d 6f 76 65 20 61 72 65 61 20 70 72 6f 63 65 73 73 2c 20 69 74 20 69 73 20 69 6e 20 75 73 ┆remove area process, it is in us┆
0x69360…6937a 65 20 21 0a 0a 0a 20 20 20 20 20 20 66 31 3a 3d 20 73 61 76 65 66 31 3b 0a 20 ┆e ! f1:= savef1; ┆
0x6937a…69380 (0x324,0xd28)
0x69380…693a0 20 20 20 20 20 77 33 3a 3d 20 62 2e 63 75 72 72 65 6e 74 3b 0a 20 20 20 20 20 20 63 61 6c 6c 20 ┆ w3:= b.current; call ┆
0x693a0…693c0 77 30 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 65 6e 64 3b 0a 20 20 65 6e 64 3b 20 21 20 63 6c 6f ┆w0 return; end; end; ! clo┆
0x693c0…693e0 73 65 62 73 20 21 0a 0a 0a 0a 20 20 62 6f 64 79 20 6f 66 20 6f 70 65 6e 62 73 0a 20 20 62 65 67 ┆sebs ! body of openbs beg┆
0x693e0…69400 69 6e 0a 20 20 20 20 69 6e 63 6f 64 65 0a 20 20 20 20 20 20 72 65 66 20 00 00 00 00 00 00 00 00 ┆in incode ref ┆
0x69400…69406 (842,) (0x324,0xd29)
0x69406…69420 72 65 74 75 72 6e 3b 0a 20 20 20 20 20 20 64 6f 75 62 6c 65 20 73 61 76 65 66 ┆return; double savef┆
0x69420…69440 31 3b 0a 20 20 20 20 20 20 77 6f 72 64 20 73 61 76 65 77 32 3b 0a 20 20 20 20 20 20 77 6f 72 64 ┆1; word savew2; word┆
0x69440…69460 20 7a 65 72 6f 3a 3d 30 3b 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 72 65 74 75 72 6e ┆ zero:=0; begin return┆
0x69460…6947e 3a 3d 77 33 3b 0a 20 20 20 20 20 20 73 61 76 65 66 31 3a 3d 66 31 3b 0a 20 20 20 20 20 20 ┆:=w3; savef1:=f1; ┆
0x6947e…69484 (0x324,0xd2a)
0x69484…694a0 73 61 76 65 77 32 3a 3d 77 32 3b 0a 0a 20 20 20 20 20 20 77 33 3a 3d 62 2e 63 75 72 ┆savew2:=w2; w3:=b.cur┆
0x694a0…694c0 72 65 6e 74 3b 0a 20 20 20 20 20 20 77 30 3a 3d 28 77 33 29 2e 74 63 5f 62 73 6c 3b 0a 20 20 20 ┆rent; w0:=(w3).tc_bsl; ┆
0x694c0…694e0 20 20 20 77 31 3a 3d 28 77 33 29 2e 74 63 5f 62 73 75 3b 0a 20 20 20 20 20 20 77 33 3a 3d 61 64 ┆ w1:=(w3).tc_bsu; w3:=ad┆
0x694e0…694fc 64 72 65 73 73 28 7a 65 72 6f 29 3b 0a 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 37 ┆dress(zero); monitor(7┆
0x694fc…69502 (0x324,0xd2b)
0x69502…69520 32 29 3b 20 21 20 73 65 74 20 63 61 74 61 6c 6f 67 20 62 61 73 65 20 21 0a 20 20 20 20 20 ┆2); ! set catalog base ! ┆
0x69520…69540 20 77 33 3a 3d 61 64 64 72 65 73 73 28 28 77 33 3a 3d 62 2e 63 75 72 72 65 6e 74 29 2e 74 63 5f ┆ w3:=address((w3:=b.current).tc_┆
0x69540…69560 62 73 6e 61 6d 65 29 3b 0a 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 35 32 29 3b 20 21 20 63 72 ┆bsname); monitor(52); ! cr┆
0x69560…6957a 65 61 74 65 20 61 72 65 61 20 70 72 6f 63 65 73 73 20 21 0a 20 20 20 20 20 20 ┆eate area process ! ┆
0x6957a…69580 (0x324,0xd2c)
0x69580…695a0 69 66 20 77 30 3d 30 20 74 68 65 6e 20 6d 6f 6e 69 74 6f 72 28 38 29 3b 20 21 20 72 65 73 65 72 ┆if w0=0 then monitor(8); ! reser┆
0x695a0…695c0 76 65 20 70 72 6f 63 65 73 73 20 21 0a 20 20 20 20 20 20 77 33 2b 38 3b 20 21 20 73 6b 69 70 20 ┆ve process ! w3+8; ! skip ┆
0x695c0…695e0 6e 61 6d 65 20 21 0a 20 20 20 20 20 20 28 77 33 29 2e 77 6f 72 64 3a 3d 77 31 3a 3d 30 3b 20 21 ┆name ! (w3).word:=w1:=0; !┆
0x695e0…69600 20 73 65 74 20 6e 61 6d 65 20 74 61 62 6c 65 20 61 64 64 72 65 73 73 20 00 00 00 00 00 00 00 00 ┆ set name table address ┆
0x69600…69606 (843,) (0x324,0xd2d)
0x69606…69620 74 6f 20 30 20 21 0a 20 20 20 20 20 20 77 33 2d 38 3b 0a 20 20 20 20 20 20 69 ┆to 0 ! w3-8; i┆
0x69620…69640 66 20 77 30 3d 30 20 74 68 65 6e 20 6d 6f 6e 69 74 6f 72 28 34 29 3b 20 21 20 70 72 6f 63 65 73 ┆f w0=0 then monitor(4); ! proces┆
0x69640…69660 73 20 64 65 73 63 72 69 70 74 69 6f 6e 20 21 0a 20 20 20 20 20 20 28 77 33 3a 3d 62 2e 63 75 72 ┆s description ! (w3:=b.cur┆
0x69660…6967e 72 65 6e 74 29 2e 74 63 5f 61 72 65 61 70 72 6f 63 3a 3d 77 30 3b 0a 20 20 20 20 20 20 28 ┆rent).tc_areaproc:=w0; (┆
0x6967e…69684 (0x324,0xd2e)
0x69684…696a0 77 33 29 2e 74 63 5f 63 73 65 67 6e 6f 3a 3d 77 30 3a 3d 20 2d 31 3b 0a 0a 20 20 20 ┆w3).tc_csegno:=w0:= -1; ┆
0x696a0…696c0 20 20 20 66 31 3a 3d 73 61 76 65 66 31 3b 0a 20 20 20 20 20 20 77 32 3a 3d 73 61 76 65 77 32 3b ┆ f1:=savef1; w2:=savew2;┆
0x696c0…696e0 0a 20 20 20 20 20 20 63 61 6c 6c 20 77 30 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 65 6e 64 0a 20 ┆ call w0 return; end ┆
0x696e0…696fc 20 65 6e 64 3b 20 21 20 6f 70 65 6e 62 73 20 21 0a 0a 0a 0a 20 20 62 6f 64 79 20 6f ┆ end; ! openbs ! body o┆
0x696fc…69702 (0x324,0xd2f)
0x69702…69720 66 20 68 6f 6c 64 0a 20 20 63 6f 6d 6d 65 6e 74 20 6c 69 6e 6b 20 63 75 72 72 65 6e 74 20 ┆f hold comment link current ┆
0x69720…69740 63 6f 72 6f 75 74 69 6e 65 20 69 6e 74 6f 20 74 68 65 20 68 6f 6c 64 2d 71 75 65 75 65 3b 0a 20 ┆coroutine into the hold-queue; ┆
0x69740…69760 20 62 65 67 69 6e 0a 20 20 20 20 69 6e 63 6f 64 65 0a 20 20 20 20 20 20 72 65 66 20 72 65 74 75 ┆ begin incode ref retu┆
0x69760…6977a 72 6e 2c 20 61 5f 72 65 74 75 72 6e 3b 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 ┆rn, a_return; begin ┆
0x6977a…69780 (0x324,0xd30)
0x69780…697a0 20 20 20 20 72 65 74 75 72 6e 3a 3d 20 77 33 3b 0a 20 20 20 20 20 20 61 5f 72 65 74 75 72 6e 3a ┆ return:= w3; a_return:┆
0x697a0…697c0 3d 20 77 30 3b 20 21 20 73 61 76 65 20 61 6c 74 65 72 6e 61 74 65 20 72 65 74 75 72 6e 20 21 0a ┆= w0; ! save alternate return ! ┆
0x697c0…697e0 20 20 20 20 20 20 77 33 3a 3d 20 62 2e 63 75 72 72 65 6e 74 3b 0a 20 20 20 20 20 20 28 77 33 29 ┆ w3:= b.current; (w3)┆
0x697e0…69800 2e 63 5f 77 30 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 28 77 33 29 2e 63 00 00 00 00 00 00 00 00 ┆.c_w0:= w0; (w3).c ┆
0x69800…69806 (844,) (0x324,0xd31)
0x69806…69820 5f 77 31 3a 3d 20 77 31 3b 0a 20 20 20 20 20 20 28 77 33 29 2e 63 5f 77 32 3a ┆_w1:= w1; (w3).c_w2:┆
0x69820…69840 3d 20 77 32 3b 0a 20 20 20 20 20 20 28 77 33 29 2e 63 5f 69 63 3a 3d 20 77 30 3a 3d 20 72 65 74 ┆= w2; (w3).c_ic:= w0:= ret┆
0x69840…69860 75 72 6e 3b 0a 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 68 65 6c 64 3a 3d 20 77 30 3a 3d 20 28 ┆urn; (w3).tc_held:= w0:= (┆
0x69860…6987e 77 33 29 2e 74 63 5f 68 6f 6c 64 3b 0a 20 20 20 20 20 20 69 66 20 77 30 3d 30 20 74 68 65 ┆w3).tc_hold; if w0=0 the┆
0x6987e…69884 (0x324,0xd32)
0x69884…698a0 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 64 6f 6e 74 20 68 ┆n begin comment dont h┆
0x698a0…698c0 6f 6c 64 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 20 61 5f 72 65 74 75 72 6e 20 3c 3e ┆old; if w0:= a_return <>┆
0x698c0…698e0 20 30 20 74 68 65 6e 20 28 77 33 29 2e 63 5f 69 63 3a 3d 20 77 30 3b 20 21 20 61 6c 74 65 72 6e ┆ 0 then (w3).c_ic:= w0; ! altern┆
0x698e0…698fc 61 74 65 20 72 65 74 75 72 6e 20 75 73 65 64 20 21 0a 20 20 20 20 20 20 20 20 77 31 ┆ate return used ! w1┆
0x698fc…69902 (0x324,0xd33)
0x69902…69920 3a 3d 20 28 77 33 29 2e 63 5f 77 31 3b 0a 20 20 20 20 20 20 20 20 77 32 3a 3d 20 28 77 33 ┆:= (w3).c_w1; w2:= (w3┆
0x69920…69940 29 2e 63 5f 77 32 3b 0a 20 20 20 20 20 20 20 20 63 61 6c 6c 20 77 30 20 28 77 33 29 2e 63 5f 69 ┆).c_w2; call w0 (w3).c_i┆
0x69940…69960 63 3b 20 21 20 63 6f 6e 74 69 6e 75 65 20 21 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 ┆c; ! continue ! end; ┆
0x69960…6997a 20 6c 69 6e 6b 28 2e 77 33 2e 2c 77 31 3a 3d 77 33 2c 77 32 3a 3d 61 64 64 72 ┆ link(.w3.,w1:=w3,w2:=addr┆
0x6997a…69980 (0x324,0xd34)
0x69980…699a0 65 73 73 28 62 2e 68 6f 6c 64 71 66 73 74 29 29 3b 0a 20 20 20 20 20 20 74 65 73 74 6f 75 74 28 ┆ess(b.holdqfst)); testout(┆
0x699a0…699c0 2e 77 33 2e 2c 77 30 3a 3d 21 6c 65 6e 67 74 68 28 63 6f 72 6f 75 74 69 6e 65 29 2c 77 31 2c 77 ┆.w3.,w0:=!length(coroutine),w1,w┆
0x699c0…699e0 32 3a 3d 34 29 3b 0a 20 20 20 20 20 20 67 6f 74 6f 20 62 2e 61 63 74 69 76 61 74 65 3b 0a 20 20 ┆2:=4); goto b.activate; ┆
0x699e0…69a00 20 20 65 6e 64 3b 0a 20 20 65 6e 64 3b 20 21 20 68 6f 6c 64 20 21 0a 0a 00 00 00 00 00 00 00 00 ┆ end; end; ! hold ! ┆
0x69a00…69a06 (845,) (0x324,0xd35)
0x69a06…69a20 0a 0a 20 20 62 6f 64 79 20 6f 66 20 6f 70 72 6f 75 74 70 75 74 0a 20 20 62 65 ┆ body of oproutput be┆
0x69a20…69a40 67 69 6e 0a 20 20 20 20 6c 61 62 65 6c 20 72 65 70 5f 73 77 2c 20 65 78 69 74 3b 0a 20 20 20 20 ┆gin label rep_sw, exit; ┆
0x69a40…69a60 72 65 63 6f 72 64 20 6f 75 74 66 6f 72 6d 61 74 20 20 20 20 20 21 20 6f 75 74 70 75 74 20 66 6f ┆record outformat ! output fo┆
0x69a60…69a7e 72 6d 61 74 20 21 0a 20 20 20 20 20 20 28 74 65 78 74 28 20 36 29 20 74 69 6d 65 3b 0a 20 ┆rmat ! (text( 6) time; ┆
0x69a7e…69a84 (0x324,0xd36)
0x69a84…69aa0 20 20 20 20 20 20 74 65 78 74 28 31 31 29 20 6f 77 6e 6e 61 6d 65 3b 0a 20 20 20 20 ┆ text(11) ownname; ┆
0x69aa0…69ac0 20 20 20 77 6f 72 64 20 63 6f 6c 6f 6e 3b 0a 20 20 20 20 20 20 20 77 6f 72 64 20 6f 75 74 74 79 ┆ word colon; word outty┆
0x69ac0…69ae0 70 65 3b 0a 20 20 20 20 20 20 20 77 6f 72 64 20 61 73 74 65 72 69 78 3b 0a 20 20 20 20 20 20 20 ┆pe; word asterix; ┆
0x69ae0…69afc 74 65 78 74 28 31 31 29 20 70 72 6f 63 65 73 73 6e 61 6d 65 3b 0a 20 20 20 20 20 20 ┆text(11) processname; ┆
0x69afc…69b02 (0x324,0xd37)
0x69b02…69b20 20 74 65 78 74 28 31 29 20 76 61 72 74 65 78 74 29 3b 20 21 20 73 74 61 72 74 20 6f 66 20 ┆ text(1) vartext); ! start of ┆
0x69b20…69b40 76 61 72 69 61 62 6c 65 20 6d 65 73 73 61 67 65 20 21 0a 20 20 20 20 69 6e 63 6f 64 65 0a 20 20 ┆variable message ! incode ┆
0x69b40…69b60 20 20 20 20 74 65 78 74 28 20 35 29 20 74 5f 68 6f 73 74 20 20 20 3a 3d 20 22 2c 68 6f 73 74 22 ┆ text( 5) t_host := ",host"┆
0x69b60…69b7a 3b 0a 20 20 20 20 20 20 74 65 78 74 28 20 39 29 20 74 5f 72 65 73 75 6d 65 20 ┆; text( 9) t_resume ┆
0x69b7a…69b80 (0x324,0xd38)
0x69b80…69ba0 3a 3d 20 22 20 72 65 73 75 6d 65 20 22 3b 0a 20 20 20 20 20 20 74 65 78 74 28 20 39 29 20 74 5f ┆:= " resume "; text( 9) t_┆
0x69ba0…69bc0 70 72 65 70 61 72 65 3a 3d 20 22 20 70 72 65 70 61 72 65 20 22 3b 0a 20 20 20 20 20 20 74 65 78 ┆prepare:= " prepare "; tex┆
0x69bc0…69be0 74 28 20 39 29 20 74 31 3b 0a 20 20 20 20 20 20 74 65 78 74 28 31 31 29 20 74 31 74 72 6e 61 6d ┆t( 9) t1; text(11) t1trnam┆
0x69be0…69c00 65 3b 0a 20 20 20 20 20 20 74 65 78 74 28 20 31 29 20 74 31 31 3a 3d 20 00 00 00 00 00 00 00 00 ┆e; text( 1) t11:= ┆
0x69c00…69c06 (846,) (0x324,0xd39)
0x69c06…69c20 22 20 22 3b 0a 20 20 20 20 20 20 74 65 78 74 28 31 31 29 20 74 31 74 72 75 73 ┆" "; text(11) t1trus┆
0x69c20…69c40 65 72 3b 0a 20 20 20 20 20 20 74 65 78 74 28 20 31 29 20 74 31 32 3a 3d 20 22 20 22 3b 0a 20 20 ┆er; text( 1) t12:= " "; ┆
0x69c40…69c60 20 20 20 20 74 65 78 74 28 31 31 29 20 74 31 74 72 71 67 72 6f 75 70 3b 0a 20 20 20 20 20 20 74 ┆ text(11) t1trqgroup; t┆
0x69c60…69c7e 65 78 74 28 20 31 29 20 74 31 33 3a 3d 20 22 2e 22 3b 0a 20 20 20 20 20 20 74 65 78 74 28 ┆ext( 1) t13:= "."; text(┆
0x69c7e…69c84 (0x324,0xd3a)
0x69c84…69ca0 31 31 29 20 74 31 74 72 71 6e 61 6d 65 3b 0a 0a 20 20 20 20 20 20 74 65 78 74 28 31 ┆11) t1trqname; text(1┆
0x69ca0…69cc0 35 29 20 74 32 20 20 3a 3d 20 22 20 69 6e 74 65 72 76 65 6e 74 69 6f 6e 22 2c 0a 20 20 20 20 20 ┆5) t2 := " intervention", ┆
0x69cc0…69ce0 20 20 20 20 20 20 20 20 20 20 74 32 31 20 3a 3d 20 22 20 70 61 72 69 74 79 20 65 72 72 6f 72 22 ┆ t21 := " parity error"┆
0x69ce0…69cfc 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 32 32 20 3a 3d 20 22 20 74 69 ┆, t22 := " ti┆
0x69cfc…69d02 (0x324,0xd3b)
0x69d02…69d20 6d 65 72 22 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 32 33 20 3a 3d 20 22 20 ┆mer", t23 := " ┆
0x69d20…69d40 64 61 74 61 20 6f 76 65 72 72 75 6e 22 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 32 ┆data overrun", t2┆
0x69d40…69d60 34 20 3a 3d 20 22 20 62 6c 6f 63 6b 20 6c 65 6e 67 74 68 22 2c 0a 20 20 20 20 20 20 20 20 20 20 ┆4 := " block length", ┆
0x69d60…69d7a 20 20 20 20 20 74 32 35 20 3a 3d 20 22 20 65 6e 64 20 64 6f 63 75 6d 65 6e 74 ┆ t25 := " end document┆
0x69d7a…69d80 (0x324,0xd3c)
0x69d80…69da0 22 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 32 36 20 3a 3d 20 22 20 6c 6f 61 64 20 ┆", t26 := " load ┆
0x69da0…69dc0 70 6f 69 6e 74 22 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 32 37 20 3a 3d 20 22 20 ┆point", t27 := " ┆
0x69dc0…69de0 74 61 70 65 6d 61 72 6b 2c 20 61 74 74 22 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 ┆tapemark, att", t┆
0x69de0…69e00 32 38 20 3a 3d 20 22 20 77 72 69 74 65 20 65 6e 61 62 6c 65 22 2c 0a 20 00 00 00 00 00 00 00 00 ┆28 := " write enable", ┆
0x69e00…69e06 (847,) (0x324,0xd3d)
0x69e06…69e20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 32 39 20 3a 3d 20 22 20 6d 6f 64 ┆ t29 := " mod┆
0x69e20…69e40 65 20 65 72 72 6f 72 22 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 32 31 30 3a 3d 20 ┆e error", t210:= ┆
0x69e40…69e60 22 20 72 65 61 64 20 65 72 72 6f 72 22 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 32 ┆" read error", t2┆
0x69e60…69e7e 31 31 3a 3d 20 22 20 63 61 72 64 20 72 65 6a 65 63 74 22 2c 0a 20 20 20 20 20 20 20 20 20 ┆11:= " card reject", ┆
0x69e7e…69e84 (0x324,0xd3e)
0x69e84…69ea0 20 20 20 20 20 20 74 32 31 32 3a 3d 20 22 20 62 69 74 20 31 32 22 2c 0a 20 20 20 20 ┆ t212:= " bit 12", ┆
0x69ea0…69ec0 20 20 20 20 20 20 20 20 20 20 20 74 32 31 33 3a 3d 20 22 20 62 69 74 20 31 33 22 2c 0a 20 20 20 ┆ t213:= " bit 13", ┆
0x69ec0…69ee0 20 20 20 20 20 20 20 20 20 20 20 20 74 32 31 34 3a 3d 20 22 20 62 69 74 20 31 34 22 2c 0a 20 20 ┆ t214:= " bit 14", ┆
0x69ee0…69efc 20 20 20 20 20 20 20 20 20 20 20 20 20 74 32 31 35 3a 3d 20 22 20 73 74 6f 70 70 65 ┆ t215:= " stoppe┆
0x69efc…69f02 (0x324,0xd3f)
0x69f02…69f20 64 22 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 32 31 36 3a 3d 20 22 20 77 6f ┆d", t216:= " wo┆
0x69f20…69f40 72 64 20 64 65 66 65 63 74 22 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 32 31 37 3a ┆rd defect", t217:┆
0x69f40…69f60 3d 20 22 20 70 6f 73 69 74 69 6f 6e 20 65 72 72 2e 22 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆= " position err.", ┆
0x69f60…69f7a 20 20 20 74 32 31 38 3a 3d 20 22 20 64 6f 27 33 39 27 6e 74 20 65 78 69 73 74 ┆ t218:= " do'39'nt exist┆
0x69f7a…69f80 (0x324,0xd40)
0x69f80…69fa0 22 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 32 31 39 3a 3d 20 22 20 64 69 73 63 6f ┆", t219:= " disco┆
0x69fa0…69fc0 6e 6e 65 63 74 65 64 22 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 32 32 30 3a 3d 20 ┆nnected", t220:= ┆
0x69fc0…69fe0 22 20 75 6e 69 6e 74 65 6c 6c 69 67 65 6e 74 22 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆" unintelligent", ┆
0x69fe0…6a000 20 74 32 32 31 3a 3d 20 22 20 72 65 6a 65 63 74 65 64 22 2c 0a 20 20 20 00 00 00 00 00 00 00 00 ┆ t221:= " rejected", ┆
0x6a000…6a006 (848,) (0x324,0xd41)
0x6a006…6a020 20 20 20 20 20 20 20 20 20 20 20 20 74 32 32 32 3a 3d 20 22 20 6e 6f 72 6d 61 ┆ t222:= " norma┆
0x6a020…6a040 6c 22 3b 0a 0a 20 20 20 20 20 20 74 65 78 74 28 32 31 29 20 74 33 3a 3d 20 22 20 73 74 6f 70 70 ┆l"; text(21) t3:= " stopp┆
0x6a040…6a060 65 64 20 62 79 20 6f 70 65 72 61 74 6f 72 22 3b 0a 20 20 20 20 20 20 74 65 78 74 28 31 34 29 20 ┆ed by operator"; text(14) ┆
0x6a060…6a07e 74 34 3a 3d 20 22 20 65 6e 64 20 74 72 61 6e 73 70 6f 72 74 22 3b 20 77 6f 72 64 20 74 34 ┆t4:= " end transport"; word t4┆
0x6a07e…6a084 (0x324,0xd42)
0x6a084…6a0a0 73 74 61 74 65 3b 0a 20 20 20 20 20 20 74 65 78 74 28 31 30 29 20 74 35 3a 3d 20 22 ┆state; text(10) t5:= "┆
0x6a0a0…6a0c0 20 74 72 61 6e 73 6d 69 74 22 3b 0a 20 20 20 20 20 20 74 65 78 74 28 31 34 29 20 74 36 3a 3d 20 ┆ transmit"; text(14) t6:= ┆
0x6a0c0…6a0e0 22 20 65 6e 64 20 6f 66 20 61 72 65 61 22 3b 0a 20 20 20 20 20 20 74 65 78 74 28 32 31 29 20 74 ┆" end of area"; text(21) t┆
0x6a0e0…6a0fc 37 3a 3d 20 22 20 63 75 2c 64 65 76 69 63 65 20 65 78 65 65 64 65 64 22 3b 0a 20 20 ┆7:= " cu,device exeeded"; ┆
0x6a0fc…6a102 (0x324,0xd43)
0x6a102…6a120 20 20 20 20 74 65 78 74 28 31 38 29 20 74 38 3a 3d 20 22 20 70 72 69 6e 74 65 72 20 75 6e ┆ text(18) t8:= " printer un┆
0x6a120…6a140 6b 6e 6f 77 6e 22 3b 0a 20 20 20 20 20 20 74 65 78 74 28 31 38 29 20 74 39 3a 3d 20 22 20 70 72 ┆known"; text(18) t9:= " pr┆
0x6a140…6a160 69 6e 74 65 72 20 72 65 73 65 72 76 65 64 22 3b 0a 20 20 20 20 20 20 74 65 78 74 28 32 39 29 74 ┆inter reserved"; text(29)t┆
0x6a160…6a17a 31 30 3a 3d 20 22 20 6e 6f 20 72 65 73 6f 75 72 63 65 73 20 61 74 20 64 65 76 ┆10:= " no resources at dev┆
0x6a17a…6a180 (0x324,0xd44)
0x6a180…6a1a0 69 63 65 20 68 6f 73 74 22 3b 0a 20 20 20 20 20 20 74 65 78 74 28 32 31 29 74 74 31 3a 3d 20 22 ┆ice host"; text(21)tt1:= "┆
0x6a1a0…6a1c0 20 70 72 69 6e 74 65 72 20 75 6e 61 76 61 69 6c 61 62 6c 65 22 3b 0a 20 20 20 20 20 20 74 65 78 ┆ printer unavailable"; tex┆
0x6a1c0…6a1e0 74 28 31 33 29 74 74 32 3a 3d 20 22 20 70 72 69 6e 74 65 72 20 62 75 73 79 22 3b 0a 20 20 20 20 ┆t(13)tt2:= " printer busy"; ┆
0x6a1e0…6a200 20 20 74 65 78 74 28 31 36 29 74 74 33 3a 3d 20 22 20 70 72 69 6e 74 65 00 00 00 00 00 00 00 00 ┆ text(16)tt3:= " printe ┆
0x6a200…6a206 (849,) (0x324,0xd45)
0x6a206…6a220 72 20 6f 66 66 6c 69 6e 65 22 3b 0a 20 20 20 20 20 20 74 65 78 74 28 31 38 29 ┆r offline"; text(18)┆
0x6a220…6a240 74 74 34 3a 3d 20 22 20 70 72 69 6e 74 65 72 20 63 6f 6d 6d 61 6e 64 22 3b 0a 20 20 20 20 20 20 ┆tt4:= " printer command"; ┆
0x6a240…6a260 74 65 78 74 28 32 39 29 74 74 35 3a 3d 20 22 20 70 72 69 6e 74 65 72 20 73 74 61 74 75 73 28 73 ┆text(29)tt5:= " printer status(s┆
0x6a260…6a27e 30 2f 73 31 29 20 3d 20 68 65 78 2e 22 3b 64 6f 75 62 6c 65 20 73 30 73 31 3b 0a 20 20 20 ┆0/s1) = hex.";double s0s1; ┆
0x6a27e…6a284 (0x324,0xd46)
0x6a284…6a2a0 20 20 20 74 65 78 74 28 32 31 29 74 74 36 3a 3d 20 22 20 70 72 69 6e 74 65 72 20 64 ┆ text(21)tt6:= " printer d┆
0x6a2a0…6a2c0 69 73 63 6f 6e 6e 65 63 74 65 64 22 3b 0a 0a 20 20 20 20 20 20 77 6f 72 64 20 74 65 78 74 73 69 ┆isconnected"; word textsi┆
0x6a2c0…6a2e0 7a 65 3b 0a 20 20 20 20 20 20 72 65 66 20 74 72 61 6e 73 72 65 66 3b 20 21 20 61 62 73 20 72 65 ┆ze; ref transref; ! abs re┆
0x6a2e0…6a2fc 66 20 64 65 73 63 72 20 6f 66 20 74 72 61 6e 73 70 6f 72 74 20 21 0a 20 20 20 20 20 ┆f descr of transport ! ┆
0x6a2fc…6a302 (0x324,0xd47)
0x6a302…6a320 20 72 65 66 20 62 75 66 72 65 66 3b 20 21 20 61 62 73 20 72 65 66 20 66 69 72 73 74 20 6f ┆ ref bufref; ! abs ref first o┆
0x6a320…6a340 66 20 64 61 74 61 20 69 6e 20 62 75 66 66 65 72 20 21 0a 20 20 20 20 20 20 74 65 78 74 28 31 34 ┆f data in buffer ! text(14┆
0x6a340…6a360 29 20 63 6c 6f 63 6b 3a 3d 22 63 6c 6f 63 6b 22 3b 0a 20 20 20 20 20 20 77 6f 72 64 20 74 69 6d ┆) clock:="clock"; word tim┆
0x6a360…6a37a 65 75 6e 69 74 3a 3d 20 30 2c 20 74 69 6d 65 76 61 6c 75 65 3a 3d 20 32 30 3b ┆eunit:= 0, timevalue:= 20;┆
0x6a37a…6a380 (0x324,0xd48)
0x6a380…6a3a0 0a 20 20 20 20 20 20 77 6f 72 64 20 73 61 76 65 77 32 3b 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 ┆ word savew2; begin ┆
0x6a3a0…6a3c0 20 20 20 20 73 61 76 65 77 32 3a 3d 20 77 32 3b 0a 20 20 20 20 20 20 77 32 3a 3d 20 62 2e 63 75 ┆ savew2:= w2; w2:= b.cu┆
0x6a3c0…6a3e0 72 72 65 6e 74 3b 0a 20 20 20 20 20 20 28 77 32 29 2e 74 63 5f 73 61 76 65 69 63 3a 3d 20 77 33 ┆rrent; (w2).tc_saveic:= w3┆
0x6a3e0…6a400 3b 0a 20 20 20 20 20 20 77 33 3a 3d 20 62 2e 63 75 72 72 65 6e 74 3b 0a 00 00 00 00 00 00 00 00 ┆; w3:= b.current; ┆
0x6a400…6a406 (850,) (0x324,0xd49)
0x6a406…6a420 20 20 20 20 20 20 77 32 3a 3d 20 28 77 33 29 2e 74 63 5f 62 75 66 3b 0a 20 20 ┆ w2:= (w3).tc_buf; ┆
0x6a420…6a440 20 20 20 20 77 32 3a 3d 20 61 64 64 72 65 73 73 28 28 77 32 29 2e 62 75 66 5f 64 61 74 61 31 29 ┆ w2:= address((w2).buf_data1)┆
0x6a440…6a460 3b 0a 20 20 20 20 20 20 62 75 66 72 65 66 3a 3d 20 77 32 3b 0a 0a 20 20 20 20 20 20 69 66 20 77 ┆; bufref:= w2; if w┆
0x6a460…6a47e 30 3d 31 20 74 68 65 6e 20 77 30 3a 3d 20 30 0a 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 ┆0=1 then w0:= 0 else ┆
0x6a47e…6a484 (0x324,0xd4a)
0x6a484…6a4a0 20 20 20 69 66 20 77 30 3d 32 20 74 68 65 6e 20 77 30 3a 3d 20 32 37 36 33 33 30 36 ┆ if w0=2 then w0:= 2763306┆
0x6a4a0…6a4c0 20 21 20 2a 2a 2a 20 21 0a 20 20 20 20 20 20 65 6c 73 65 3b 0a 20 20 20 20 20 20 28 77 32 29 2e ┆ ! *** ! else; (w2).┆
0x6a4c0…6a4e0 6f 75 74 74 79 70 65 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 68 6f 6c 64 ┆outtype:= w0; (w3).tc_hold┆
0x6a4e0…6a4fc 3a 3d 20 77 30 3a 3d 20 31 3b 0a 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 33 29 ┆:= w0:= 1; if w0:=(w3)┆
0x6a4fc…6a502 (0x324,0xd4b)
0x6a502…6a520 2e 74 63 5f 68 6f 73 74 6e 6f 3c 3e 30 20 21 20 72 65 6d 6f 74 65 20 21 20 74 68 65 6e 20 ┆.tc_hostno<>0 ! remote ! then ┆
0x6a520…6a540 77 30 3a 3d 20 36 34 3b 20 21 20 61 73 74 65 72 69 78 20 21 0a 20 20 20 20 20 20 28 77 32 29 2e ┆w0:= 64; ! asterix ! (w2).┆
0x6a540…6a560 61 73 74 65 72 69 78 3a 3d 20 77 30 3b 0a 0a 20 20 20 20 20 20 63 61 73 65 20 77 31 20 6f 66 20 ┆asterix:= w0; case w1 of ┆
0x6a560…6a57a 20 20 20 21 20 73 65 6c 65 63 74 20 76 61 72 69 61 62 6c 65 20 74 65 78 74 20 ┆ ! select variable text ┆
0x6a57a…6a580 (0x324,0xd4c)
0x6a580…6a5a0 21 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 ┆! begin begin ┆
0x6a5a0…6a5c0 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 33 29 2e 74 63 5f 6b 69 6e 64 3d 31 34 20 74 68 65 ┆ if w0:=(w3).tc_kind=14 the┆
0x6a5c0…6a5e0 6e 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 66 31 ┆n begin f1┆
0x6a5e0…6a600 3a 3d 28 77 32 3a 3d 28 77 33 29 2e 70 72 5f 71 75 65 72 65 66 29 2e 74 00 00 00 00 00 00 00 00 ┆:=(w2:=(w3).pr_queref).t ┆
0x6a600…6a606 (851,) (0x324,0xd4d)
0x6a606…6a620 71 5f 73 75 73 70 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 30 20 ┆q_suspend; w0 ┆
0x6a620…6a640 6f 72 20 77 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3c 3e 30 20 74 68 65 6e ┆or w1; if w0<>0 then┆
0x6a640…6a660 20 77 31 3a 3d 61 64 64 72 65 73 73 28 74 5f 72 65 73 75 6d 65 29 20 65 6c 73 65 20 77 31 3a 3d ┆ w1:=address(t_resume) else w1:=┆
0x6a660…6a67e 61 64 64 72 65 73 73 28 74 5f 70 72 65 70 61 72 65 29 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆address(t_prepare); ┆
0x6a67e…6a684 (0x324,0xd4e)
0x6a684…6a6a0 20 20 6d 6f 76 65 28 2e 77 33 2e 2c 77 30 3a 3d 36 2c 77 31 2c 77 32 3a 3d 61 64 64 ┆ move(.w3.,w0:=6,w1,w2:=add┆
0x6a6a0…6a6c0 72 65 73 73 28 74 31 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 6c 6f 6f 6b 74 72 61 6e 73 ┆ress(t1)); looktrans┆
0x6a6c0…6a6e0 70 6f 72 74 28 2e 77 33 2e 2c 77 31 3a 3d 28 77 32 3a 3d 28 77 33 29 2e 70 72 5f 71 75 65 72 65 ┆port(.w3.,w1:=(w2:=(w3).pr_quere┆
0x6a6e0…6a6fc 66 29 2e 74 71 5f 74 72 61 6e 73 6e 6f 2c 77 32 29 3b 0a 20 20 20 20 20 20 20 20 20 ┆f).tq_transno,w2); ┆
0x6a6fc…6a702 (0x324,0xd4f)
0x6a702…6a720 20 65 6e 64 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 ┆ end else begin ┆
0x6a720…6a740 20 20 20 20 20 20 20 20 6d 6f 76 65 28 2e 77 33 2e 2c 77 30 3a 3d 36 2c 77 31 3a 3d 61 64 64 72 ┆ move(.w3.,w0:=6,w1:=addr┆
0x6a740…6a760 65 73 73 28 74 5f 70 72 65 70 61 72 65 29 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 74 31 29 29 3b ┆ess(t_prepare),w2:=address(t1));┆
0x6a760…6a77a 0a 20 20 20 20 20 20 20 20 20 20 20 20 6c 6f 6f 6b 74 72 61 6e 73 70 6f 72 74 ┆ looktransport┆
0x6a77a…6a780 (0x324,0xd50)
0x6a780…6a7a0 28 2e 77 33 2e 2c 77 31 3a 3d 28 77 33 29 2e 74 63 5f 74 72 61 6e 73 6e 6f 2c 77 32 29 3b 0a 20 ┆(.w3.,w1:=(w3).tc_transno,w2); ┆
0x6a7a0…6a7c0 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 74 72 61 6e 73 72 65 66 ┆ end; transref┆
0x6a7c0…6a7e0 3a 3d 20 77 32 3b 0a 20 20 20 20 20 20 20 20 20 20 6d 6f 76 65 28 2e 77 33 2e 2c 77 30 3a 3d 38 ┆:= w2; move(.w3.,w0:=8┆
0x6a7e0…6a800 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 28 77 32 29 2e 74 72 5f 6e 61 6d 00 00 00 00 00 00 00 00 ┆,w1:=address((w2).tr_nam ┆
0x6a800…6a806 (852,) (0x324,0xd51)
0x6a806…6a820 65 29 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 74 31 74 72 6e 61 6d 65 29 29 3b ┆e),w2:=address(t1trname));┆
0x6a820…6a840 0a 20 20 20 20 20 20 20 20 20 20 6d 6f 76 65 28 2e 77 33 2e 2c 77 30 2c 77 31 3a 3d 61 64 64 72 ┆ move(.w3.,w0,w1:=addr┆
0x6a840…6a860 65 73 73 28 28 77 31 3a 3d 74 72 61 6e 73 72 65 66 29 2e 74 72 5f 75 73 65 72 29 2c 77 32 3a 3d ┆ess((w1:=transref).tr_user),w2:=┆
0x6a860…6a87e 61 64 64 72 65 73 73 28 74 31 74 72 75 73 65 72 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆address(t1truser)); ┆
0x6a87e…6a884 (0x324,0xd52)
0x6a884…6a8a0 6d 6f 76 65 28 2e 77 33 2e 2c 77 30 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 28 77 31 ┆move(.w3.,w0,w1:=address((w1┆
0x6a8a0…6a8c0 3a 3d 74 72 61 6e 73 72 65 66 29 2e 74 72 5f 71 67 72 6f 75 70 29 2c 77 32 3a 3d 61 64 64 72 65 ┆:=transref).tr_qgroup),w2:=addre┆
0x6a8c0…6a8e0 73 73 28 74 31 74 72 71 67 72 6f 75 70 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 6d 6f 76 65 28 ┆ss(t1trqgroup)); move(┆
0x6a8e0…6a8fc 2e 77 33 2e 2c 77 30 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 28 77 31 3a 3d 74 72 61 ┆.w3.,w0,w1:=address((w1:=tra┆
0x6a8fc…6a902 (0x324,0xd53)
0x6a902…6a920 6e 73 72 65 66 29 2e 74 72 5f 71 6e 61 6d 65 29 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 74 ┆nsref).tr_qname),w2:=address(t┆
0x6a920…6a940 31 74 72 71 6e 61 6d 65 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 20 61 64 64 72 65 ┆1trqname)); w1:= addre┆
0x6a940…6a960 73 73 28 74 31 29 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 32 29 2e 77 6f ┆ss(t1); if w0:=(w2).wo┆
0x6a960…6a97a 72 64 3d 30 20 74 68 65 6e 20 77 30 3a 3d 20 32 34 20 65 6c 73 65 20 77 30 3a ┆rd=0 then w0:= 24 else w0:┆
0x6a97a…6a980 (0x324,0xd54)
0x6a980…6a9a0 3d 20 34 34 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e ┆= 44; end; begin┆
0x6a9a0…6a9c0 20 21 20 73 74 61 74 75 73 20 65 72 72 6f 72 20 21 0a 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d ┆ ! status error ! w0:=┆
0x6a9c0…6a9e0 20 2d 31 30 3b 20 77 31 3a 3d 20 30 3b 20 77 32 3a 3d 20 73 61 76 65 77 32 3b 0a 20 20 20 20 20 ┆ -10; w1:= 0; w2:= savew2; ┆
0x6a9e0…6aa00 20 20 20 20 20 77 68 69 6c 65 20 77 31 3d 30 20 64 6f 0a 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ while w1=0 do ┆
0x6aa00…6aa06 (853,) (0x324,0xd55)
0x6aa06…6aa20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 66 32 20 ┆ begin f2 ┆
0x6aa20…6aa40 6c 73 68 69 66 74 20 31 3b 20 77 30 2b 31 30 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a ┆lshift 1; w0+10; end; ┆
0x6aa40…6aa60 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 20 61 64 64 72 65 73 73 28 74 32 29 3b 0a 20 20 20 20 ┆ w1:= address(t2); ┆
0x6aa60…6aa7e 20 20 20 20 20 20 77 31 2b 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 20 31 30 ┆ w1+w0; w0:= 10┆
0x6aa7e…6aa84 (0x324,0xd56)
0x6aa84…6aaa0 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 20 21 20 73 74 61 74 75 73 20 65 72 72 6f ┆; end; ! status erro┆
0x6aaa0…6aac0 72 20 21 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 21 20 6f 70 65 72 61 74 6f 72 20 73 74 6f ┆r ! begin ! operator sto┆
0x6aac0…6aae0 70 20 21 0a 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 20 61 64 64 72 65 73 73 28 74 33 29 3b 0a ┆p ! w1:= address(t3); ┆
0x6aae0…6aafc 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 20 31 34 3b 0a 20 20 20 20 20 20 20 20 65 ┆ w0:= 14; e┆
0x6aafc…6ab02 (0x324,0xd57)
0x6ab02…6ab20 6e 64 3b 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 21 20 65 6e 64 20 74 72 61 6e 73 70 ┆nd; begin ! end transp┆
0x6ab20…6ab40 6f 72 74 20 21 0a 20 20 20 20 20 20 20 20 20 20 74 34 73 74 61 74 65 3a 3d 20 77 30 3a 3d 20 73 ┆ort ! t4state:= w0:= s┆
0x6ab40…6ab60 61 76 65 77 32 2b 20 34 27 30 32 30 30 30 33 30 30 3b 20 21 20 73 74 61 74 65 20 2b 20 22 20 30 ┆avew2+ 4'02000300; ! state + " 0┆
0x6ab60…6ab7a 22 20 21 0a 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 20 61 64 64 72 65 73 73 ┆" ! w1:= address┆
0x6ab7a…6ab80 (0x324,0xd58)
0x6ab80…6aba0 28 74 34 29 3b 0a 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 20 31 32 3b 0a 20 20 20 20 20 20 20 ┆(t4); w0:= 12; ┆
0x6aba0…6abc0 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 21 20 74 72 61 6e 73 6d 69 74 20 21 ┆ end; begin ! transmit !┆
0x6abc0…6abe0 0a 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 20 61 64 64 72 65 73 73 28 74 35 29 3b 20 77 30 3a ┆ w1:= address(t5); w0:┆
0x6abe0…6ac00 3d 20 38 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆= 8; end; ┆
0x6ac00…6ac06 (854,) (0x324,0xd59)
0x6ac06…6ac20 20 20 62 65 67 69 6e 20 21 20 65 6e 64 20 6f 66 20 62 73 2d 61 72 65 61 20 64 ┆ begin ! end of bs-area d┆
0x6ac20…6ac40 75 72 69 6e 67 20 73 6b 69 70 20 21 0a 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 61 64 64 72 65 ┆uring skip ! w1:=addre┆
0x6ac40…6ac60 73 73 28 74 36 29 3b 77 30 3a 3d 31 30 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 ┆ss(t6);w0:=10; end; ┆
0x6ac60…6ac7e 20 20 20 20 62 65 67 69 6e 20 21 20 63 75 2c 64 65 76 69 63 65 20 65 78 65 65 64 65 64 20 ┆ begin ! cu,device exeeded ┆
0x6ac7e…6ac84 (0x324,0xd5a)
0x6ac84…6aca0 21 0a 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 20 61 64 64 72 65 73 73 28 74 37 29 ┆! w1:= address(t7)┆
0x6aca0…6acc0 3b 77 30 3a 3d 20 31 34 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 62 ┆;w0:= 14; end; b┆
0x6acc0…6ace0 65 67 69 6e 20 21 20 6e 6f 74 20 63 6f 6e 6e 65 63 74 65 64 20 21 0a 20 20 20 20 20 20 20 20 20 ┆egin ! not connected ! ┆
0x6ace0…6acfc 20 77 31 3a 3d 20 61 64 64 72 65 73 73 28 74 38 29 3b 77 30 3a 3d 20 31 32 3b 0a 20 ┆ w1:= address(t8);w0:= 12; ┆
0x6acfc…6ad02 (0x324,0xd5b)
0x6ad02…6ad20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 21 20 70 72 ┆ end; begin ! pr┆
0x6ad20…6ad40 69 6e 74 65 72 20 72 65 73 65 72 76 65 64 20 21 0a 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 20 ┆inter reserved ! w1:= ┆
0x6ad40…6ad60 61 64 64 72 65 73 73 28 74 39 29 3b 77 30 3a 3d 20 31 32 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 ┆address(t9);w0:= 12; end┆
0x6ad60…6ad7a 3b 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 21 20 6e 6f 20 72 65 73 6f 75 ┆; begin ! no resou┆
0x6ad7a…6ad80 (0x324,0xd5c)
0x6ad80…6ada0 72 63 65 73 20 61 74 20 64 65 76 69 63 65 20 68 6f 73 74 20 21 0a 20 20 20 20 20 20 20 20 20 20 ┆rces at device host ! ┆
0x6ada0…6adc0 77 31 3a 3d 20 61 64 64 72 65 73 73 28 74 31 30 29 3b 77 30 3a 3d 20 32 30 3b 0a 20 20 20 20 20 ┆w1:= address(t10);w0:= 20; ┆
0x6adc0…6ade0 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 21 20 70 72 69 6e 74 65 72 20 ┆ end; begin ! printer ┆
0x6ade0…6ae00 75 6e 61 76 61 69 6c 61 62 6c 65 20 21 0a 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆unavailable ! ┆
0x6ae00…6ae06 (855,) (0x324,0xd5d)
0x6ae06…6ae20 77 31 3a 3d 20 61 64 64 72 65 73 73 28 74 74 31 29 3b 77 30 3a 3d 20 31 34 3b ┆w1:= address(tt1);w0:= 14;┆
0x6ae20…6ae40 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 21 20 70 72 ┆ end; begin ! pr┆
0x6ae40…6ae60 69 6e 74 65 72 20 62 75 73 79 20 21 0a 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 20 61 64 64 72 ┆inter busy ! w1:= addr┆
0x6ae60…6ae7e 65 73 73 28 74 74 32 29 3b 77 30 3a 3d 20 31 30 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b ┆ess(tt2);w0:= 10; end;┆
0x6ae7e…6ae84 (0x324,0xd5e)
0x6ae84…6aea0 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 21 20 70 72 69 6e 74 65 72 20 6f 66 66 ┆ begin ! printer off┆
0x6aea0…6aec0 6c 69 6e 65 20 21 0a 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 20 61 64 64 72 65 73 73 28 74 74 ┆line ! w1:= address(tt┆
0x6aec0…6aee0 33 29 3b 77 30 3a 3d 20 31 32 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 ┆3);w0:= 12; end; ┆
0x6aee0…6aefc 20 62 65 67 69 6e 20 21 20 70 72 69 6e 74 65 72 20 63 6f 6d 61 6e 64 20 65 72 72 6f ┆ begin ! printer comand erro┆
0x6aefc…6af02 (0x324,0xd5f)
0x6af02…6af20 72 20 21 0a 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 20 61 64 64 72 65 73 73 28 74 74 34 ┆r ! w1:= address(tt4┆
0x6af20…6af40 29 3b 77 30 3a 3d 31 32 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 62 ┆);w0:=12; end; b┆
0x6af40…6af60 65 67 69 6e 20 21 20 75 6e 65 78 70 65 63 74 65 64 20 72 65 73 75 6c 74 20 21 0a 20 20 20 20 20 ┆egin ! unexpected result ! ┆
0x6af60…6af7a 20 20 20 20 20 77 33 3a 3d 20 73 61 76 65 77 32 3b 20 21 20 77 33 20 3d 20 73 ┆ w3:= savew2; ! w3 = s┆
0x6af7a…6af80 (0x324,0xd60)
0x6af80…6afa0 74 61 74 75 73 20 62 79 74 65 73 20 73 30 2f 73 31 20 28 20 66 6f 72 6d 61 74 20 70 72 69 6e 74 ┆tatus bytes s0/s1 ( format print┆
0x6afa0…6afc0 65 72 20 73 74 61 74 75 73 20 29 21 0a 20 20 20 20 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 63 ┆er status )! comment c┆
0x6afc0…6afe0 6f 6e 76 65 72 74 20 74 6f 20 74 65 78 74 2c 20 68 65 78 61 64 65 63 69 6d 61 6c 20 64 69 67 69 ┆onvert to text, hexadecimal digi┆
0x6afe0…6b000 74 73 2c 20 69 6e 20 70 72 69 6e 74 20 6c 69 6e 65 3b 0a 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ts, in print line; ┆
0x6b000…6b006 (856,) (0x324,0xd61)
0x6b006…6b020 20 20 20 20 20 77 32 3a 3d 20 30 3b 66 33 20 6c 73 68 69 66 74 20 31 32 3b 0a ┆ w2:= 0;f3 lshift 12; ┆
0x6b020…6b040 20 20 20 20 20 20 20 20 20 20 69 66 20 77 32 3e 39 20 74 68 65 6e 20 77 32 2b 38 37 20 65 6c 73 ┆ if w2>9 then w2+87 els┆
0x6b040…6b060 65 20 77 32 2b 34 38 3b 77 30 3a 3d 20 77 32 3b 0a 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 20 ┆e w2+48;w0:= w2; w2:= ┆
0x6b060…6b07e 30 3b 66 33 20 6c 73 68 69 66 74 20 34 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 32 ┆0;f3 lshift 4; if w2┆
0x6b07e…6b084 (0x324,0xd62)
0x6b084…6b0a0 3e 39 20 74 68 65 6e 20 77 32 2b 38 37 20 65 6c 73 65 20 77 32 2b 34 38 3b 77 30 20 ┆>9 then w2+87 else w2+48;w0 ┆
0x6b0a0…6b0c0 6c 73 68 69 66 74 20 38 3b 77 30 2b 77 32 3b 0a 20 20 20 20 20 20 20 20 20 20 77 30 20 6c 73 68 ┆lshift 8;w0+w2; w0 lsh┆
0x6b0c0…6b0e0 69 66 74 20 38 3b 77 30 2b 33 32 3b 0a 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 20 30 3b 66 33 ┆ift 8;w0+32; w2:= 0;f3┆
0x6b0e0…6b0fc 20 6c 73 68 69 66 74 20 34 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 32 3e 39 ┆ lshift 4; if w2>9┆
0x6b0fc…6b102 (0x324,0xd63)
0x6b102…6b120 20 74 68 65 6e 20 77 32 2b 38 37 20 65 6c 73 65 20 77 32 2b 34 38 3b 20 77 31 3a 3d 20 77 ┆ then w2+87 else w2+48; w1:= w┆
0x6b120…6b140 32 3b 0a 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 20 30 3b 66 33 20 6c 73 68 69 66 74 20 34 3b ┆2; w2:= 0;f3 lshift 4;┆
0x6b140…6b160 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 32 3e 39 20 74 68 65 6e 20 77 32 2b 38 37 20 65 6c ┆ if w2>9 then w2+87 el┆
0x6b160…6b17a 73 65 20 77 32 2b 34 38 3b 77 31 20 6c 73 68 69 66 74 20 38 3b 77 31 2b 77 32 ┆se w2+48;w1 lshift 8;w1+w2┆
0x6b17a…6b180 (0x324,0xd64)
0x6b180…6b1a0 3b 0a 20 20 20 20 20 20 20 20 20 20 77 31 20 6c 73 68 69 66 74 20 38 3b 0a 20 20 20 20 20 20 20 ┆; w1 lshift 8; ┆
0x6b1a0…6b1c0 20 20 20 73 30 73 31 3a 3d 20 66 31 3b 0a 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 20 61 64 64 ┆ s0s1:= f1; w1:= add┆
0x6b1c0…6b1e0 72 65 73 73 28 74 74 35 29 3b 77 30 3a 3d 20 32 34 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a ┆ress(tt5);w0:= 24; end; ┆
0x6b1e0…6b200 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 21 20 66 38 30 30 30 20 70 72 00 00 00 00 00 00 00 00 ┆ begin ! f8000 pr ┆
0x6b200…6b206 (857,) (0x324,0xd65)
0x6b206…6b220 69 6e 74 65 72 20 64 69 73 63 6e 74 2e 20 62 79 20 64 69 73 63 6e 74 2e 20 63 ┆inter discnt. by discnt. c┆
0x6b220…6b240 6f 6d 6d 61 6e 64 20 21 0a 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 20 61 64 64 72 65 73 73 28 ┆ommand ! w1:= address(┆
0x6b240…6b260 74 74 36 29 3b 0a 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 20 31 34 3b 0a 20 20 20 20 20 20 20 ┆tt6); w0:= 14; ┆
0x6b260…6b27e 20 65 6e 64 3b 0a 20 20 20 20 20 20 65 6e 64 3b 20 21 20 63 61 73 65 20 21 0a 20 20 20 20 ┆ end; end; ! case ! ┆
0x6b27e…6b284 (0x324,0xd66)
0x6b284…6b2a0 20 20 21 20 77 31 20 61 62 73 20 72 65 66 20 73 74 61 72 74 20 6f 66 20 76 61 72 69 ┆ ! w1 abs ref start of vari┆
0x6b2a0…6b2c0 61 62 6c 65 20 74 65 78 74 2c 20 77 30 20 6c 65 6e 67 74 68 20 6f 66 20 76 61 72 69 61 62 6c 65 ┆able text, w0 length of variable┆
0x6b2c0…6b2e0 20 74 65 78 74 20 21 0a 20 20 20 20 20 20 74 65 78 74 73 69 7a 65 3a 3d 20 77 30 3b 0a 0a 20 20 ┆ text ! textsize:= w0; ┆
0x6b2e0…6b2fc 20 20 20 20 6d 6f 76 65 28 2e 77 33 2e 2c 77 30 2c 77 31 2c 77 32 3a 3d 61 64 64 72 ┆ move(.w3.,w0,w1,w2:=addr┆
0x6b2fc…6b302 (0x324,0xd67)
0x6b302…6b320 65 73 73 28 28 77 32 3a 3d 62 75 66 72 65 66 29 2e 76 61 72 74 65 78 74 29 29 3b 0a 20 20 ┆ess((w2:=bufref).vartext)); ┆
0x6b320…6b340 20 20 20 20 28 77 32 2b 77 30 29 2e 77 6f 72 64 3a 3d 20 77 31 3a 3d 20 31 30 3b 20 20 21 20 74 ┆ (w2+w0).word:= w1:= 10; ! t┆
0x6b340…6b360 65 72 6d 69 6e 61 74 65 20 74 65 78 74 20 77 69 74 68 20 6e 6c 20 21 0a 0a 20 20 20 20 20 20 6f ┆erminate text with nl ! o┆
0x6b360…6b37a 75 74 74 69 6d 65 28 2e 77 33 2e 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 28 77 ┆uttime(.w3.,w2:=address((w┆
0x6b37a…6b380 (0x324,0xd68)
0x6b380…6b3a0 32 3a 3d 62 75 66 72 65 66 29 2e 74 69 6d 65 29 29 3b 0a 20 20 20 20 20 20 77 31 3a 3d 62 2e 70 ┆2:=bufref).time)); w1:=b.p┆
0x6b3a0…6b3c0 72 69 6d 6f 2b 32 3b 0a 20 20 20 20 20 20 6d 6f 76 65 28 2e 77 33 2e 2c 77 30 3a 3d 38 2c 77 31 ┆rimo+2; move(.w3.,w0:=8,w1┆
0x6b3c0…6b3e0 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 28 77 32 3a 3d 62 75 66 72 65 66 29 2e 6f 77 6e 6e 61 6d ┆,w2:=address((w2:=bufref).ownnam┆
0x6b3e0…6b400 65 29 29 3b 0a 20 20 20 20 20 20 62 75 66 72 65 66 2e 63 6f 6c 6f 6e 3a 00 00 00 00 00 00 00 00 ┆e)); bufref.colon: ┆
0x6b400…6b406 (858,) (0x324,0xd69)
0x6b406…6b420 3d 20 77 31 3a 3d 20 35 38 3b 20 21 20 22 3a 22 20 21 0a 20 20 20 20 20 20 6d ┆= w1:= 58; ! ":" ! m┆
0x6b420…6b440 6f 76 65 28 2e 77 33 2e 2c 77 30 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 28 77 33 29 2e 74 63 5f ┆ove(.w3.,w0,w1:=address((w3).tc_┆
0x6b440…6b460 64 65 76 6e 61 6d 65 29 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 28 77 32 3a 3d 62 75 66 72 65 66 ┆devname),w2:=address((w2:=bufref┆
0x6b460…6b47e 29 2e 70 72 6f 63 65 73 73 6e 61 6d 65 29 29 3b 0a 20 20 20 20 20 20 77 31 3a 3d 20 28 77 ┆).processname)); w1:= (w┆
0x6b47e…6b484 (0x324,0xd6a)
0x6b484…6b4a0 33 29 2e 74 63 5f 62 75 66 3b 0a 20 20 20 20 20 20 28 77 31 29 2e 62 75 66 5f 6f 70 ┆3).tc_buf; (w1).buf_op┆
0x6b4a0…6b4c0 3a 3d 20 77 32 3a 3d 20 35 3b 0a 20 20 20 20 20 20 28 77 31 29 2e 62 75 66 5f 6d 6f 64 65 3a 3d ┆:= w2:= 5; (w1).buf_mode:=┆
0x6b4c0…6b4e0 20 77 32 3a 3d 20 30 3b 0a 20 20 20 20 20 20 28 77 31 29 2e 62 75 66 5f 66 69 72 73 74 3a 3d 20 ┆ w2:= 0; (w1).buf_first:= ┆
0x6b4e0…6b4fc 77 32 3a 3d 20 62 75 66 72 65 66 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d ┆w2:= bufref; if w0:=┆
0x6b4fc…6b502 (0x324,0xd6b)
0x6b502…6b520 28 77 33 29 2e 74 63 5f 68 6f 73 74 69 64 3c 3e 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 ┆(w3).tc_hostid<>0 then ┆
0x6b520…6b540 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3d 62 2e 70 72 6f 63 5f 68 69 ┆ begin if w0=b.proc_hi┆
0x6b540…6b560 64 20 74 68 65 6e 20 77 30 3a 3d 20 28 77 33 29 2e 74 63 5f 6f 68 69 64 3b 0a 20 20 20 20 20 20 ┆d then w0:= (w3).tc_ohid; ┆
0x6b560…6b57a 20 20 20 20 69 66 20 77 30 3c 3e 28 77 33 29 2e 74 63 5f 6f 68 69 64 20 74 68 ┆ if w0<>(w3).tc_ohid th┆
0x6b57a…6b580 (0x324,0xd6c)
0x6b580…6b5a0 65 6e 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 61 64 64 20 68 ┆en begin comment add h┆
0x6b5a0…6b5c0 6f 73 74 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f 76 ┆ost information; mov┆
0x6b5c0…6b5e0 65 28 2e 77 33 2e 2c 77 30 3a 3d 34 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 74 5f 68 6f 73 74 29 ┆e(.w3.,w0:=4,w1:=address(t_host)┆
0x6b5e0…6b600 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆, ┆
0x6b600…6b606 (859,) (0x324,0xd6d)
0x6b606…6b620 77 32 3a 3d 61 64 64 72 65 73 73 28 28 77 32 3a 3d 62 75 66 72 65 66 29 2e 76 ┆w2:=address((w2:=bufref).v┆
0x6b620…6b640 61 72 74 65 78 74 29 2b 74 65 78 74 73 69 7a 65 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 ┆artext)+textsize); w┆
0x6b640…6b660 31 3a 3d 77 32 2b 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 72 69 74 65 69 6e 74 65 67 ┆1:=w2+w0; writeinteg┆
0x6b660…6b67e 65 72 28 2e 77 33 2e 2c 77 30 3a 3d 28 77 33 29 2e 74 63 5f 68 6f 73 74 6e 6f 2c 77 31 2c ┆er(.w3.,w0:=(w3).tc_hostno,w1,┆
0x6b67e…6b684 (0x324,0xd6e)
0x6b684…6b6a0 0a 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 ┆ ┆
0x6b6a0…6b6c0 20 20 20 77 32 3a 3d 20 31 30 20 6c 73 68 69 66 74 20 38 20 2b 20 33 20 6c 73 68 69 66 74 20 38 ┆ w2:= 10 lshift 8 + 3 lshift 8┆
0x6b6c0…6b6e0 20 2b 20 34 36 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 72 69 74 65 69 6e 74 65 67 65 72 ┆ + 46); writeinteger┆
0x6b6e0…6b6fc 28 2e 77 33 2e 2c 77 30 3a 3d 28 77 33 29 2e 74 63 5f 68 6f 73 74 69 64 2c 77 31 2b ┆(.w3.,w0:=(w3).tc_hostid,w1+┆
0x6b6fc…6b702 (0x324,0xd6f)
0x6b702…6b720 32 2c 0a 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 ┆2, ┆
0x6b720…6b740 20 20 20 77 32 3a 3d 20 31 30 20 6c 73 68 69 66 74 20 38 20 2b 20 35 20 6c 73 68 69 66 74 20 38 ┆ w2:= 10 lshift 8 + 5 lshift 8┆
0x6b740…6b760 20 2b 20 34 36 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 31 2b 34 3b 28 77 31 29 2e 77 6f ┆ + 46); w1+4;(w1).wo┆
0x6b760…6b77a 72 64 3a 3d 20 77 30 3a 3d 20 31 30 3b 20 21 20 61 64 64 20 6e 65 77 6c 69 6e ┆rd:= w0:= 10; ! add newlin┆
0x6b77a…6b780 (0x324,0xd70)
0x6b780…6b7a0 65 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 68 6f 6c 64 3a 3d 20 77 ┆e ! (w3).tc_hold:= w┆
0x6b7a0…6b7c0 30 3a 3d 20 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 31 30 3b 20 21 20 65 78 74 ┆0:= 2; w0:=10; ! ext┆
0x6b7c0…6b7e0 65 6e 73 69 6f 6e 20 74 6f 20 74 65 78 74 73 69 7a 65 20 21 0a 20 20 20 20 20 20 20 20 20 20 65 ┆ension to textsize ! e┆
0x6b7e0…6b800 6e 64 0a 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 20 77 30 3a 3d 30 3b 00 00 00 00 00 00 00 00 ┆nd else w0:=0; ┆
0x6b800…6b806 (860,) (0x324,0xd71)
0x6b806…6b820 0a 20 20 20 20 20 20 20 20 65 6e 64 0a 20 20 20 20 20 20 20 20 65 6c 73 65 20 ┆ end else ┆
0x6b820…6b840 77 30 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 77 30 2b 21 6c 65 6e 67 74 68 28 6f 75 74 66 6f 72 ┆w0:=0; w0+!length(outfor┆
0x6b840…6b860 6d 61 74 29 2b 74 65 78 74 73 69 7a 65 3b 0a 20 20 20 20 20 20 20 20 77 32 3a 3d 62 75 66 72 65 ┆mat)+textsize; w2:=bufre┆
0x6b860…6b87e 66 2b 77 30 2d 32 3b 0a 20 20 20 20 20 20 20 20 77 31 3a 3d 28 77 33 29 2e 74 63 5f 62 75 ┆f+w0-2; w1:=(w3).tc_bu┆
0x6b87e…6b884 (0x324,0xd72)
0x6b884…6b8a0 66 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 62 75 66 5f 6c 61 73 74 3a 3d 77 32 ┆f; (w1).buf_last:=w2┆
0x6b8a0…6b8c0 3b 0a 20 20 20 20 20 20 74 65 73 74 6f 75 74 28 2e 77 33 2e 2c 77 30 2c 77 31 3a 3d 28 77 31 29 ┆; testout(.w3.,w0,w1:=(w1)┆
0x6b8c0…6b8e0 2e 62 75 66 5f 66 69 72 73 74 2c 77 32 3a 3d 30 29 3b 0a 72 65 70 5f 73 77 3a 0a 20 20 20 20 20 ┆.buf_first,w2:=0); rep_sw: ┆
0x6b8e0…6b8fc 20 73 65 6e 64 77 61 69 74 28 2e 77 33 2e 2c 77 30 2c 77 31 3a 3d 28 77 33 29 2e 74 ┆ sendwait(.w3.,w0,w1:=(w3).t┆
0x6b8fc…6b902 (0x324,0xd73)
0x6b902…6b920 63 5f 62 75 66 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 28 77 33 29 2e 74 63 5f 63 6f 6e 73 ┆c_buf,w2:=address((w3).tc_cons┆
0x6b920…6b940 6f 6c 65 29 29 3b 0a 20 20 20 20 20 20 77 32 3a 3d 20 31 20 61 73 68 69 66 74 20 77 30 3b 0a 20 ┆ole)); w2:= 1 ashift w0; ┆
0x6b940…6b960 20 20 20 20 20 69 66 20 77 32 3d 32 20 74 68 65 6e 20 77 32 2b 62 2e 61 6e 73 5f 73 74 61 74 75 ┆ if w2=2 then w2+b.ans_statu┆
0x6b960…6b97a 73 0a 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 ┆s else begin ┆
0x6b97a…6b980 (0x324,0xd74)
0x6b980…6b9a0 20 20 20 20 20 20 20 62 2e 61 6e 73 5f 62 79 74 65 73 3a 3d 20 77 30 3a 3d 20 30 3b 0a 0a 20 20 ┆ b.ans_bytes:= w0:= 0; ┆
0x6b9a0…6b9c0 20 20 20 20 20 20 69 66 20 77 30 3a 3d 20 77 32 20 61 6e 64 20 32 27 31 31 30 30 30 30 20 3c 3e ┆ if w0:= w2 and 2'110000 <>┆
0x6b9c0…6b9e0 20 30 20 74 68 65 6e 20 21 20 64 6f 65 73 20 6e 6f 74 20 65 78 69 73 74 2c 20 64 69 73 63 6f 6e ┆ 0 then ! does not exist, discon┆
0x6b9e0…6ba00 6e 65 63 74 65 64 20 21 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 00 00 00 00 00 00 00 00 ┆nected ! begin ┆
0x6ba00…6ba06 (861,) (0x324,0xd75)
0x6ba06…6ba20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 31 3a 3d 61 64 64 72 65 ┆ if w0:=(w1:=addre┆
0x6ba20…6ba40 73 73 28 28 77 33 29 2e 74 63 5f 64 65 76 63 6f 6e 73 29 29 2e 77 6f 72 64 3c 3e 30 20 74 68 65 ┆ss((w3).tc_devcons)).word<>0 the┆
0x6ba40…6ba60 6e 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 73 65 ┆n begin se┆
0x6ba60…6ba7e 6e 64 77 61 69 74 28 2e 77 33 2e 2c 77 30 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 74 69 6d ┆ndwait(.w3.,w0,w1:=address(tim┆
0x6ba7e…6ba84 (0x324,0xd76)
0x6ba84…6baa0 65 75 6e 69 74 29 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 63 6c 6f 63 6b 29 29 3b 20 ┆eunit),w2:=address(clock)); ┆
0x6baa0…6bac0 21 20 64 65 6c 61 79 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 6c 69 6e 6b 75 70 72 65 6d 6f ┆! delay ! linkupremo┆
0x6bac0…6bae0 74 65 28 2e 77 33 2e 2c 77 30 3a 3d 38 2c 77 30 3a 3d 28 77 33 29 2e 74 63 5f 6f 68 6e 6f 2c 77 ┆te(.w3.,w0:=8,w0:=(w3).tc_ohno,w┆
0x6bae0…6bafc 30 3a 3d 28 77 33 29 2e 74 63 5f 6f 68 69 64 2c 0a 20 20 20 20 20 20 20 20 20 20 20 ┆0:=(w3).tc_ohid, ┆
0x6bafc…6bb02 (0x324,0xd77)
0x6bb02…6bb20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 61 64 64 72 65 73 73 ┆ w0:=address┆
0x6bb20…6bb40 28 28 77 33 29 2e 74 63 5f 64 65 76 63 6f 6e 73 29 2c 77 30 2c 77 32 29 3b 0a 20 20 20 20 20 20 ┆((w3).tc_devcons),w0,w2); ┆
0x6bb40…6bb60 20 20 20 20 20 20 77 33 3a 3d 20 62 2e 63 75 72 72 65 6e 74 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆ w3:= b.current; ┆
0x6bb60…6bb7a 20 20 69 66 20 77 30 3d 34 30 39 36 20 21 20 63 72 65 61 74 65 64 20 21 20 74 ┆ if w0=4096 ! created ! t┆
0x6bb7a…6bb80 (0x324,0xd78)
0x6bb80…6bba0 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 ┆hen begin ┆
0x6bba0…6bbc0 20 20 20 20 77 31 3a 3d 20 77 32 3b 20 77 31 2b 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ w1:= w2; w1+2; ┆
0x6bbc0…6bbe0 20 6d 6f 76 65 28 2e 77 33 2e 2c 77 30 3a 3d 38 2c 77 31 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 ┆ move(.w3.,w0:=8,w1,w2:=address(┆
0x6bbe0…6bc00 28 77 33 29 2e 74 63 5f 63 6f 6e 73 6f 6c 65 29 29 3b 0a 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆(w3).tc_console)); ┆
0x6bc00…6bc06 (862,) (0x324,0xd79)
0x6bc06…6bc20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 72 65 70 5f 73 77 3b 0a 20 20 20 20 ┆ goto rep_sw; ┆
0x6bc20…6bc40 20 20 20 20 20 20 20 20 65 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 20 77 32 3a ┆ end else w2:┆
0x6bc40…6bc60 3d 20 33 32 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 ┆= 32; end; end┆
0x6bc60…6bc7e 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 77 31 3a 3d 20 28 77 33 29 2e 74 ┆; end; w1:= (w3).t┆
0x6bc7e…6bc84 (0x324,0xd7a)
0x6bc84…6bca0 63 5f 62 75 66 3b 0a 20 20 20 20 20 20 69 66 20 77 30 3a 3d 38 27 30 30 32 30 30 30 ┆c_buf; if w0:=8'002000┆
0x6bca0…6bcc0 30 32 20 6f 6e 65 6d 61 73 6b 20 77 32 20 74 68 65 6e 20 21 20 6e 6f 20 73 74 61 74 75 73 20 62 ┆02 onemask w2 then ! no status b┆
0x6bcc0…6bce0 69 74 73 20 65 78 63 65 70 74 20 61 74 74 20 61 6e 64 20 6e 6f 72 6d 61 6c 20 21 0a 20 20 20 20 ┆its except att and normal ! ┆
0x6bce0…6bcfc 20 20 69 66 20 77 30 3a 3d 28 77 31 29 2e 62 75 66 5f 66 69 72 73 74 2b 62 2e 61 6e ┆ if w0:=(w1).buf_first+b.an┆
0x6bcfc…6bd02 (0x324,0xd7b)
0x6bd02…6bd20 73 5f 62 79 74 65 73 3c 3d 28 77 31 29 2e 62 75 66 5f 6c 61 73 74 20 74 68 65 6e 20 67 6f ┆s_bytes<=(w1).buf_last then go┆
0x6bd20…6bd40 74 6f 20 72 65 70 5f 73 77 3b 0a 20 20 20 20 20 20 69 66 20 77 32 3c 3e 32 20 74 68 65 6e 0a 20 ┆to rep_sw; if w2<>2 then ┆
0x6bd40…6bd60 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 ┆ begin begin comment┆
0x6bd60…6bd7a 20 72 6f 75 74 65 20 74 6f 20 6d 61 69 6e 6f 70 65 72 61 74 6f 72 3b 0a 20 20 ┆ route to mainoperator; ┆
0x6bd7a…6bd80 (0x324,0xd7c)
0x6bd80…6bda0 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 33 29 2e 74 63 5f 68 6f 73 74 69 64 3c 3e 30 ┆ if w0:=(w3).tc_hostid<>0┆
0x6bda0…6bdc0 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 72 65 ┆ then begin comment re┆
0x6bdc0…6bde0 6d 6f 74 65 20 64 65 76 69 63 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3d 28 ┆mote device; if w0=(┆
0x6bde0…6be00 77 33 29 2e 74 63 5f 6f 68 69 64 20 74 68 65 6e 0a 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆w3).tc_ohid then ┆
0x6be00…6be06 (863,) (0x324,0xd7d)
0x6be06…6be20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 6f 70 65 72 61 74 6f ┆ begin comment operato┆
0x6be20…6be40 72 20 77 61 73 20 72 65 6d 6f 74 65 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆r was remote, ┆
0x6be40…6be60 61 64 64 20 68 6f 73 74 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆add host information; ┆
0x6be60…6be7e 20 20 20 20 77 31 3a 3d 28 77 33 29 2e 74 63 5f 62 75 66 3b 77 32 3a 3d 20 28 77 31 29 2e ┆ w1:=(w3).tc_buf;w2:= (w1).┆
0x6be7e…6be84 (0x324,0xd7e)
0x6be84…6bea0 62 75 66 5f 6c 61 73 74 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f 76 65 ┆buf_last; move┆
0x6bea0…6bec0 28 2e 77 33 2e 2c 77 30 3a 3d 34 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 74 5f 68 6f 73 74 29 2c ┆(.w3.,w0:=4,w1:=address(t_host),┆
0x6bec0…6bee0 77 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 72 69 74 65 69 6e 74 65 67 65 72 28 ┆w2); writeinteger(┆
0x6bee0…6befc 2e 77 33 2e 2c 77 30 3a 3d 28 77 33 29 2e 74 63 5f 68 6f 73 74 6e 6f 2c 77 31 3a 3d ┆.w3.,w0:=(w3).tc_hostno,w1:=┆
0x6befc…6bf02 (0x324,0xd7f)
0x6bf02…6bf20 77 32 2b 34 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆w2+4, ┆
0x6bf20…6bf40 20 20 20 20 20 20 20 20 77 32 3a 3d 20 31 30 20 6c 73 68 69 66 74 20 38 20 2b 20 33 20 6c 73 68 ┆ w2:= 10 lshift 8 + 3 lsh┆
0x6bf40…6bf60 69 66 74 20 38 20 2b 20 34 36 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 72 69 74 65 ┆ift 8 + 46); write┆
0x6bf60…6bf7a 69 6e 74 65 67 65 72 28 2e 77 33 2e 2c 77 30 3a 3d 28 77 33 29 2e 74 63 5f 68 ┆integer(.w3.,w0:=(w3).tc_h┆
0x6bf7a…6bf80 (0x324,0xd80)
0x6bf80…6bfa0 6f 73 74 69 64 2c 77 31 2b 32 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ostid,w1+2, ┆
0x6bfa0…6bfc0 20 20 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 20 31 30 20 6c 73 68 69 66 74 20 38 20 2b 20 35 ┆ w2:= 10 lshift 8 + 5┆
0x6bfc0…6bfe0 20 6c 73 68 69 66 74 20 38 20 2b 20 34 36 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 ┆ lshift 8 + 46); w┆
0x6bfe0…6c000 32 3a 3d 77 31 2b 34 3b 28 77 32 29 2e 77 6f 72 64 3a 3d 20 77 30 3a 3d 00 00 00 00 00 00 00 00 ┆2:=w1+4;(w2).word:= w0:= ┆
0x6c000…6c006 (864,) (0x324,0xd81)
0x6c006…6c020 20 31 30 3b 20 21 20 61 64 64 20 6e 65 77 6c 69 6e 65 20 21 0a 20 20 20 20 20 ┆ 10; ! add newline ! ┆
0x6c020…6c040 20 20 20 20 20 20 20 20 20 77 31 3a 3d 28 77 33 29 2e 74 63 5f 62 75 66 3b 0a 20 20 20 20 20 20 ┆ w1:=(w3).tc_buf; ┆
0x6c040…6c060 20 20 20 20 20 20 20 20 28 77 31 29 2e 62 75 66 5f 6c 61 73 74 3a 3d 20 77 32 3b 0a 20 20 20 20 ┆ (w1).buf_last:= w2; ┆
0x6c060…6c07e 20 20 20 20 20 20 20 20 65 6e 64 3b 20 21 20 65 6e 64 20 61 64 64 20 68 6f 73 74 20 69 6e ┆ end; ! end add host in┆
0x6c07e…6c084 (0x324,0xd82)
0x6c084…6c0a0 66 6f 72 6d 61 74 69 6f 6e 20 21 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 ┆formation ! end; ┆
0x6c0a0…6c0c0 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 68 6f 6c 64 3a 3d 20 77 30 3a 3d 20 32 3b 0a ┆ (w3).tc_hold:= w0:= 2; ┆
0x6c0c0…6c0e0 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 20 28 77 33 29 2e 74 63 5f 62 75 66 3b 0a 20 20 20 20 ┆ w1:= (w3).tc_buf; ┆
0x6c0e0…6c0fc 20 20 20 20 20 20 6f 75 74 6d 61 69 6e 28 2e 77 33 2e 2c 77 31 2c 77 32 29 3b 0a 20 ┆ outmain(.w3.,w1,w2); ┆
0x6c0fc…6c102 (0x324,0xd83)
0x6c102…6c120 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 65 78 69 74 3a 0a 0a ┆ end; end; exit: ┆
0x6c120…6c140 21 74 65 73 74 20 31 30 31 30 3b 0a 20 20 20 20 20 20 63 61 6c 6c 20 77 30 20 28 77 33 29 2e 74 ┆!test 1010; call w0 (w3).t┆
0x6c140…6c160 63 5f 73 61 76 65 69 63 3b 0a 20 20 20 20 65 6e 64 3b 0a 20 20 65 6e 64 3b 20 21 20 6f 70 72 6f ┆c_saveic; end; end; ! opro┆
0x6c160…6c17a 75 74 70 75 74 20 21 0a 0a 0a 0a 20 20 62 6f 64 79 20 6f 66 20 75 70 64 61 74 ┆utput ! body of updat┆
0x6c17a…6c180 (0x324,0xd84)
0x6c180…6c1a0 65 74 72 61 6e 73 70 6f 72 74 0a 20 20 63 6f 6d 6d 65 6e 74 20 75 70 64 61 74 65 20 64 65 73 63 ┆etransport comment update desc┆
0x6c1a0…6c1c0 72 69 70 74 69 6f 6e 20 6f 66 20 74 72 61 6e 73 70 6f 72 74 3b 0a 20 20 62 65 67 69 6e 0a 20 20 ┆ription of transport; begin ┆
0x6c1c0…6c1e0 20 20 6c 61 62 65 6c 20 65 78 69 74 3b 0a 20 20 20 20 69 6e 63 6f 64 65 0a 20 20 20 20 20 20 72 ┆ label exit; incode r┆
0x6c1e0…6c200 65 66 20 74 72 61 6e 73 72 65 66 3b 0a 0a 20 20 20 20 20 20 21 20 61 6e 00 00 00 00 00 00 00 00 ┆ef transref; ! an ┆
0x6c200…6c206 (865,) (0x324,0xd85)
0x6c206…6c220 73 77 65 72 20 77 61 69 74 20 61 6e 64 20 67 65 74 20 73 74 61 74 65 20 6f 66 ┆swer wait and get state of┆
0x6c220…6c240 20 74 72 61 6e 73 70 6f 72 74 20 21 0a 20 20 20 20 20 20 62 79 74 65 20 61 77 74 5f 31 3a 3d 20 ┆ transport ! byte awt_1:= ┆
0x6c240…6c260 37 2c 20 61 77 74 5f 32 3a 3d 20 30 2c 0a 20 20 20 20 20 20 20 20 20 20 20 61 77 74 5f 33 3a 3d ┆7, awt_2:= 0, awt_3:=┆
0x6c260…6c27e 20 34 2c 20 61 77 74 5f 34 3a 3d 20 34 27 30 31 30 30 30 30 2c 0a 20 20 20 20 20 20 20 20 ┆ 4, awt_4:= 4'010000, ┆
0x6c27e…6c284 (0x324,0xd86)
0x6c284…6c2a0 20 20 20 61 77 74 5f 35 3a 3d 20 31 2c 20 61 77 74 5f 36 3a 3d 20 34 27 30 32 30 30 ┆ awt_5:= 1, awt_6:= 4'0200┆
0x6c2a0…6c2c0 30 31 3b 0a 20 20 20 20 20 20 77 6f 72 64 20 61 77 74 5f 72 63 6f 64 65 3a 3d 20 30 3b 0a 20 20 ┆01; word awt_rcode:= 0; ┆
0x6c2c0…6c2e0 20 20 20 20 62 79 74 65 20 61 77 74 5f 37 3a 3d 20 31 2c 20 61 77 74 5f 38 3a 3d 20 34 27 30 31 ┆ byte awt_7:= 1, awt_8:= 4'01┆
0x6c2e0…6c2fc 30 30 31 30 3b 0a 20 20 20 20 20 20 74 65 78 74 28 31 31 29 20 61 77 74 5f 74 72 6e ┆0010; text(11) awt_trn┆
0x6c2fc…6c302 (0x324,0xd87)
0x6c302…6c320 61 6d 65 3b 0a 20 20 20 20 20 20 62 79 74 65 20 61 77 74 5f 39 3a 3d 20 31 2c 20 61 77 74 ┆ame; byte awt_9:= 1, awt┆
0x6c320…6c340 5f 31 30 3a 3d 20 34 27 30 31 30 30 30 31 3b 0a 20 20 20 20 20 20 77 6f 72 64 20 61 77 74 5f 6e ┆_10:= 4'010001; word awt_n┆
0x6c340…6c360 6f 3b 0a 20 20 20 20 20 20 62 79 74 65 20 61 77 74 5f 31 31 3a 3d 20 31 30 30 30 2c 20 61 77 74 ┆o; byte awt_11:= 1000, awt┆
0x6c360…6c37a 5f 31 32 3a 3d 20 34 27 30 31 30 30 30 30 2c 0a 20 20 20 20 20 20 20 20 20 20 ┆_12:= 4'010000, ┆
0x6c37a…6c380 (0x324,0xd88)
0x6c380…6c3a0 20 61 77 74 5f 31 33 3a 3d 20 33 2c 20 61 77 74 5f 31 34 3a 3d 20 34 27 30 32 30 30 30 30 2c 0a ┆ awt_13:= 3, awt_14:= 4'020000, ┆
0x6c3a0…6c3c0 20 20 20 20 20 20 20 20 20 20 20 61 77 74 5f 31 35 3a 3d 20 34 2c 20 61 77 74 5f 31 36 3a 3d 20 ┆ awt_15:= 4, awt_16:= ┆
0x6c3c0…6c3e0 34 27 30 33 30 30 30 31 3b 0a 20 20 20 20 20 20 77 6f 72 64 20 61 77 74 5f 73 74 61 74 65 3b 0a ┆4'030001; word awt_state; ┆
0x6c3e0…6c400 20 20 20 20 20 20 62 79 74 65 20 61 77 74 5f 31 39 3a 3d 20 37 2c 20 61 00 00 00 00 00 00 00 00 ┆ byte awt_19:= 7, a ┆
0x6c400…6c406 (866,) (0x324,0xd89)
0x6c406…6c420 77 74 5f 32 30 3a 3d 20 34 27 30 33 30 30 30 32 3b 0a 20 20 20 20 20 20 77 6f ┆wt_20:= 4'030002; wo┆
0x6c420…6c440 72 64 20 61 77 74 5f 70 74 72 31 2c 20 61 77 74 5f 70 74 72 32 3b 0a 20 20 20 20 20 20 62 79 74 ┆rd awt_ptr1, awt_ptr2; byt┆
0x6c440…6c460 65 20 61 77 74 5f 31 37 3a 3d 36 2c 20 61 77 74 5f 31 38 3a 3d 20 34 27 30 33 30 30 30 32 3b 0a ┆e awt_17:=6, awt_18:= 4'030002; ┆
0x6c460…6c47e 20 20 20 20 20 20 77 6f 72 64 20 61 77 74 5f 63 61 75 73 65 2c 20 61 77 74 5f 73 74 61 74 ┆ word awt_cause, awt_stat┆
0x6c47e…6c484 (0x324,0xd8a)
0x6c484…6c4a0 75 73 3b 0a 20 20 20 20 20 20 64 6f 75 62 6c 65 20 73 61 76 65 66 31 3b 0a 20 20 20 ┆us; double savef1; ┆
0x6c4a0…6c4c0 20 20 20 77 6f 72 64 20 73 61 76 65 77 32 3b 0a 20 20 20 20 20 20 72 65 66 20 72 65 74 75 72 6e ┆ word savew2; ref return┆
0x6c4c0…6c4e0 3b 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 73 61 76 65 66 31 3a 3d 20 66 31 3b 0a 20 ┆; begin savef1:= f1; ┆
0x6c4e0…6c4fc 20 20 20 20 20 73 61 76 65 77 32 3a 3d 20 77 32 3b 0a 20 20 20 20 20 20 72 65 74 75 ┆ savew2:= w2; retu┆
0x6c4fc…6c502 (0x324,0xd8b)
0x6c502…6c520 72 6e 3a 3d 20 77 33 3b 0a 0a 20 20 20 20 20 20 77 33 3a 3d 20 62 2e 63 75 72 72 65 6e 74 ┆rn:= w3; w3:= b.current┆
0x6c520…6c540 3b 0a 20 20 20 20 20 20 61 77 74 5f 6e 6f 3a 3d 20 77 31 3a 3d 20 28 77 33 29 2e 74 63 5f 74 72 ┆; awt_no:= w1:= (w3).tc_tr┆
0x6c540…6c560 61 6e 73 6e 6f 3b 0a 20 20 20 20 20 20 6c 6f 6f 6b 74 72 61 6e 73 70 6f 72 74 28 2e 77 33 2e 2c ┆ansno; looktransport(.w3.,┆
0x6c560…6c57a 77 31 2c 77 32 29 3b 0a 20 20 20 20 20 20 69 66 20 77 32 3c 3d 30 20 74 68 65 ┆w1,w2); if w2<=0 the┆
0x6c57a…6c580 (0x324,0xd8c)
0x6c580…6c5a0 6e 20 67 6f 74 6f 20 65 78 69 74 3b 20 21 20 74 72 61 6e 73 70 6f 72 74 20 61 6c 72 65 61 64 79 ┆n goto exit; ! transport already┆
0x6c5a0…6c5c0 20 75 70 64 61 74 65 64 20 21 0a 20 20 20 20 20 20 74 72 61 6e 73 72 65 66 3a 3d 20 77 32 3b 0a ┆ updated ! transref:= w2; ┆
0x6c5c0…6c5e0 20 20 20 20 20 20 61 77 74 5f 73 74 61 74 65 3a 3d 20 77 30 3a 3d 20 28 77 33 29 2e 74 63 5f 73 ┆ awt_state:= w0:= (w3).tc_s┆
0x6c5e0…6c600 74 61 74 65 3b 0a 20 20 20 20 20 20 28 77 32 29 2e 74 72 5f 73 74 61 74 00 00 00 00 00 00 00 00 ┆tate; (w2).tr_stat ┆
0x6c600…6c606 (867,) (0x324,0xd8d)
0x6c606…6c620 65 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 61 77 74 5f 63 61 75 73 65 3a 3d 20 ┆e:= w0; awt_cause:= ┆
0x6c620…6c640 77 30 3a 3d 20 28 77 33 29 2e 74 63 5f 63 61 75 73 65 3b 0a 20 20 20 20 20 20 28 77 32 29 2e 74 ┆w0:= (w3).tc_cause; (w2).t┆
0x6c640…6c660 72 5f 63 61 75 73 65 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 61 77 74 5f 73 74 61 74 75 73 3a 3d ┆r_cause:= w0; awt_status:=┆
0x6c660…6c67e 20 77 30 3a 3d 20 28 77 33 29 2e 74 63 5f 73 74 61 74 75 73 3b 0a 20 20 20 20 20 20 28 77 ┆ w0:= (w3).tc_status; (w┆
0x6c67e…6c684 (0x324,0xd8e)
0x6c684…6c6a0 32 29 2e 74 72 5f 73 74 61 74 75 73 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 66 31 3a ┆2).tr_status:= w0; f1:┆
0x6c6a0…6c6c0 3d 28 77 33 29 2e 74 63 5f 62 73 70 74 72 3b 0a 20 20 20 20 20 20 66 33 3a 3d 66 31 20 61 73 68 ┆=(w3).tc_bsptr; f3:=f1 ash┆
0x6c6c0…6c6e0 69 66 74 20 2d 31 3b 0a 20 20 20 20 20 20 66 31 2b 2b 66 33 3b 20 21 20 63 6f 6e 76 65 72 74 20 ┆ift -1; f1++f3; ! convert ┆
0x6c6e0…6c6fc 68 61 6c 66 77 6f 72 64 73 20 74 6f 20 63 68 61 72 61 63 74 65 72 73 20 21 0a 20 20 ┆halfwords to characters ! ┆
0x6c6fc…6c702 (0x324,0xd8f)
0x6c702…6c720 20 20 20 20 77 32 3a 3d 74 72 61 6e 73 72 65 66 3b 20 77 33 3a 3d 62 2e 63 75 72 72 65 6e ┆ w2:=transref; w3:=b.curren┆
0x6c720…6c740 74 3b 0a 20 20 20 20 20 20 61 77 74 5f 70 74 72 31 3a 3d 77 30 3b 0a 20 20 20 20 20 20 61 77 74 ┆t; awt_ptr1:=w0; awt┆
0x6c740…6c760 5f 70 74 72 32 3a 3d 77 31 3b 0a 20 20 20 20 20 20 28 77 32 29 2e 74 72 5f 63 68 61 72 70 6f 73 ┆_ptr2:=w1; (w2).tr_charpos┆
0x6c760…6c77a 69 74 69 6f 6e 3a 3d 66 31 3b 0a 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 ┆ition:=f1; if w0:=(w┆
0x6c77a…6c780 (0x324,0xd90)
0x6c780…6c7a0 32 29 2e 74 72 5f 77 61 69 74 6d 65 73 73 3e 30 20 74 68 65 6e 0a 20 20 20 20 20 20 62 65 67 69 ┆2).tr_waitmess>0 then begi┆
0x6c7a0…6c7c0 6e 20 21 20 70 65 6e 64 69 6e 67 20 77 61 69 74 20 6f 70 65 72 61 74 69 6f 6e 20 21 0a 20 20 20 ┆n ! pending wait operation ! ┆
0x6c7c0…6c7e0 20 20 20 20 20 6d 6f 76 65 28 2e 77 33 2e 2c 77 30 3a 3d 38 2c 77 31 3a 3d 61 64 64 72 65 73 73 ┆ move(.w3.,w0:=8,w1:=address┆
0x6c7e0…6c800 28 28 77 32 29 2e 74 72 5f 6e 61 6d 65 29 2c 77 32 3a 3d 61 64 64 72 65 00 00 00 00 00 00 00 00 ┆((w2).tr_name),w2:=addre ┆
0x6c800…6c806 (868,) (0x324,0xd91)
0x6c806…6c820 73 73 28 61 77 74 5f 74 72 6e 61 6d 65 29 29 3b 0a 20 20 20 20 20 20 20 20 69 ┆ss(awt_trname)); i┆
0x6c820…6c840 66 20 77 31 3a 3d 61 77 74 5f 73 74 61 74 65 3d 35 20 21 20 63 6f 6d 70 6c 65 74 65 64 20 21 20 ┆f w1:=awt_state=5 ! completed ! ┆
0x6c840…6c860 74 68 65 6e 20 77 31 3a 3d 20 61 64 64 72 65 73 73 28 61 77 74 5f 70 74 72 32 29 0a 20 20 20 20 ┆then w1:= address(awt_ptr2) ┆
0x6c860…6c87e 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 69 66 20 77 31 3d 36 20 21 20 61 62 6f ┆ else if w1=6 ! abo┆
0x6c87e…6c884 (0x324,0xd92)
0x6c884…6c8a0 72 74 65 64 20 21 20 74 68 65 6e 20 77 31 3a 3d 20 61 64 64 72 65 73 73 28 61 77 74 ┆rted ! then w1:= address(awt┆
0x6c8a0…6c8c0 5f 73 74 61 74 75 73 29 0a 20 20 20 20 20 20 20 20 65 6c 73 65 20 77 31 3a 3d 20 61 64 64 72 65 ┆_status) else w1:= addre┆
0x6c8c0…6c8e0 73 73 28 61 77 74 5f 73 74 61 74 65 29 3b 0a 20 20 20 20 20 20 20 20 63 6f 70 79 61 6e 73 77 65 ┆ss(awt_state); copyanswe┆
0x6c8e0…6c8fc 72 28 2e 77 33 2e 2c 77 30 3a 3d 61 64 64 72 65 73 73 28 61 77 74 5f 31 29 2c 77 31 ┆r(.w3.,w0:=address(awt_1),w1┆
0x6c8fc…6c902 (0x324,0xd93)
0x6c902…6c920 2c 77 32 3a 3d 74 72 61 6e 73 72 65 66 2e 74 72 5f 77 61 69 74 6d 65 73 73 29 3b 0a 20 20 ┆,w2:=transref.tr_waitmess); ┆
0x6c920…6c940 20 20 20 20 20 20 62 2e 77 61 69 74 62 75 66 73 3a 3d 20 77 30 3a 3d 20 62 2e 77 61 69 74 62 75 ┆ b.waitbufs:= w0:= b.waitbu┆
0x6c940…6c960 66 73 2b 31 3b 0a 20 20 20 20 20 20 20 20 77 32 3a 3d 20 74 72 61 6e 73 72 65 66 3b 0a 20 20 20 ┆fs+1; w2:= transref; ┆
0x6c960…6c97a 20 20 20 20 20 77 30 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 28 77 32 29 2e ┆ w0:= 0; (w2).┆
0x6c97a…6c980 (0x324,0xd94)
0x6c980…6c9a0 74 72 5f 77 61 69 74 6d 65 73 73 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 0a 20 20 ┆tr_waitmess:= w0; end; ┆
0x6c9a0…6c9c0 20 20 20 20 69 66 20 77 31 3a 3d 28 77 32 29 2e 74 72 5f 72 65 6d 6f 76 65 74 69 6d 65 3d 38 27 ┆ if w1:=(w2).tr_removetime=8'┆
0x6c9c0…6c9e0 33 37 37 37 37 37 37 36 20 74 68 65 6e 20 77 31 3a 3d 20 30 0a 20 20 20 20 20 20 65 6c 73 65 0a ┆37777776 then w1:= 0 else ┆
0x6c9e0…6ca00 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 77 31 3a 3d 00 00 00 00 00 00 00 00 ┆ begin w1:= ┆
0x6ca00…6ca06 (869,) (0x324,0xd95)
0x6ca06…6ca20 20 31 30 38 3b 0a 20 20 20 20 20 20 20 20 66 31 3a 3d 20 28 77 31 29 2e 64 6f ┆ 108; f1:= (w1).do┆
0x6ca20…6ca40 75 62 6c 65 2b 62 2e 74 72 73 61 76 65 70 65 72 69 6f 64 20 6c 73 68 69 66 74 20 2d 32 30 3b 0a ┆uble+b.trsaveperiod lshift -20; ┆
0x6ca40…6ca60 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 28 77 32 29 2e 74 72 5f 72 65 6d 6f 76 65 74 ┆ end; (w2).tr_removet┆
0x6ca60…6ca7e 69 6d 65 3a 3d 20 77 31 3b 0a 20 20 20 20 20 20 70 75 74 74 72 61 6e 73 70 6f 72 74 28 2e ┆ime:= w1; puttransport(.┆
0x6ca7e…6ca84 (0x324,0xd96)
0x6ca84…6caa0 77 33 2e 2c 77 31 3a 3d 61 77 74 5f 6e 6f 29 3b 0a 65 78 69 74 3a 0a 0a 20 20 20 20 ┆w3.,w1:=awt_no); exit: ┆
0x6caa0…6cac0 20 20 66 31 3a 3d 20 73 61 76 65 66 31 3b 0a 20 20 20 20 20 20 77 32 3a 3d 20 73 61 76 65 77 32 ┆ f1:= savef1; w2:= savew2┆
0x6cac0…6cae0 3b 0a 20 20 20 20 20 20 77 33 3a 3d 20 62 2e 63 75 72 72 65 6e 74 3b 0a 20 20 20 20 20 20 63 61 ┆; w3:= b.current; ca┆
0x6cae0…6cafc 6c 6c 20 77 30 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 65 6e 64 3b 0a 20 20 65 6e 64 ┆ll w0 return; end; end┆
0x6cafc…6cb02 (0x324,0xd97)
0x6cb02…6cb20 3b 20 21 20 75 70 64 61 74 65 74 72 61 6e 73 70 6f 72 74 20 21 0a 0a 0a 0a 20 20 62 6f 64 ┆; ! updatetransport ! bod┆
0x6cb20…6cb40 79 20 6f 66 20 63 68 65 63 6b 5f 64 65 76 69 63 65 73 74 61 74 75 73 0a 20 20 63 6f 6d 6d 65 6e ┆y of check_devicestatus commen┆
0x6cb40…6cb60 74 20 63 68 65 63 6b 20 64 65 76 69 63 65 20 73 74 61 74 75 73 20 66 6f 72 20 63 75 72 72 65 6e ┆t check device status for curren┆
0x6cb60…6cb7a 74 20 63 6f 72 6f 75 74 69 6e 65 2c 20 61 6e 64 20 63 6c 65 61 72 20 6e 6f 69 ┆t coroutine, and clear noi┆
0x6cb7a…6cb80 (0x324,0xd98)
0x6cb80…6cba0 73 65 0a 20 20 20 20 20 20 20 20 20 20 69 6e 20 68 77 6f 72 64 73 20 74 72 61 6e 73 66 65 72 72 ┆se in hwords transferr┆
0x6cba0…6cbc0 65 64 2e 0a 20 20 20 20 20 20 20 20 20 20 74 72 79 20 74 6f 20 72 65 70 61 69 72 20 72 65 6a 65 ┆ed. try to repair reje┆
0x6cbc0…6cbe0 63 74 65 64 20 61 6e 64 20 64 6f 65 73 20 6e 6f 74 20 65 78 69 73 74 3b 0a 20 20 62 65 67 69 6e ┆cted and does not exist; begin┆
0x6cbe0…6cc00 0a 20 20 20 20 69 6e 63 6f 64 65 0a 20 20 20 20 20 20 64 6f 75 62 6c 65 00 00 00 00 00 00 00 00 ┆ incode double ┆
0x6cc00…6cc06 (870,) (0x324,0xd99)
0x6cc06…6cc20 20 73 61 76 65 66 31 3b 0a 20 20 20 20 20 20 74 65 78 74 28 31 31 29 20 7a 65 ┆ savef1; text(11) ze┆
0x6cc20…6cc40 72 6f 20 3a 3d 20 22 27 30 27 27 30 27 27 30 27 22 3b 0a 20 20 20 20 20 20 77 6f 72 64 20 68 65 ┆ro := "'0''0''0'"; word he┆
0x6cc40…6cc60 6c 70 77 32 3b 0a 20 20 20 20 20 20 72 65 66 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 62 65 67 69 ┆lpw2; ref return; begi┆
0x6cc60…6cc7e 6e 0a 20 20 20 20 20 20 73 61 76 65 66 31 3a 3d 20 66 31 3b 0a 20 20 20 20 20 20 72 65 74 ┆n savef1:= f1; ret┆
0x6cc7e…6cc84 (0x324,0xd9a)
0x6cc84…6cca0 75 72 6e 3a 3d 20 77 33 3b 0a 20 20 20 20 20 20 77 33 3a 3d 20 62 2e 63 75 72 72 65 ┆urn:= w3; w3:= b.curre┆
0x6cca0…6ccc0 6e 74 3b 0a 0a 20 20 20 20 20 20 77 32 3a 3d 20 31 20 61 73 68 69 66 74 20 77 30 3b 0a 20 20 20 ┆nt; w2:= 1 ashift w0; ┆
0x6ccc0…6cce0 20 20 20 69 66 20 77 32 3d 32 20 74 68 65 6e 20 77 32 2b 28 77 31 29 2e 77 6f 72 64 0a 20 20 20 ┆ if w2=2 then w2+(w1).word ┆
0x6cce0…6ccfc 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 ┆ else begin ┆
0x6ccfc…6cd02 (0x324,0xd9b)
0x6cd02…6cd20 77 31 2b 32 3b 20 28 77 31 29 2e 77 6f 72 64 3a 3d 20 77 30 3a 3d 20 30 3b 20 21 20 68 77 ┆w1+2; (w1).word:= w0:= 0; ! hw┆
0x6cd20…6cd40 6f 72 64 73 3a 3d 20 30 20 21 0a 20 20 20 20 20 20 20 20 69 66 20 77 32 3d 34 20 74 68 65 6e 0a ┆ords:= 0 ! if w2=4 then ┆
0x6cd40…6cd60 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 21 20 72 65 6a 65 63 74 65 64 20 21 0a 20 20 20 20 20 ┆ begin ! rejected ! ┆
0x6cd60…6cd7a 20 20 20 20 20 77 31 3a 3d 20 61 64 64 72 65 73 73 28 28 77 33 29 2e 74 63 5f ┆ w1:= address((w3).tc_┆
0x6cd7a…6cd80 (0x324,0xd9c)
0x6cd80…6cda0 6e 61 6d 65 29 2b 38 3b 0a 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 77 6f 72 64 3a 3d 20 77 ┆name)+8; (w1).word:= w┆
0x6cda0…6cdc0 30 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 2d 38 33 38 38 36 30 37 3b 77 31 ┆0:= 0; w0:=-8388607;w1┆
0x6cdc0…6cde0 3a 3d 38 33 38 38 36 30 35 3b 0a 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 61 64 64 72 65 73 73 ┆:=8388605; w3:=address┆
0x6cde0…6ce00 28 7a 65 72 6f 29 3b 0a 20 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 00 00 00 00 00 00 00 00 ┆(zero); monito ┆
0x6ce00…6ce06 (871,) (0x324,0xd9d)
0x6ce06…6ce20 72 28 37 32 29 3b 20 21 20 73 65 74 20 63 61 74 61 6c 6f 67 20 62 61 73 65 20 ┆r(72); ! set catalog base ┆
0x6ce20…6ce40 21 0a 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 62 2e 63 75 72 72 65 6e 74 3b 0a 20 20 20 20 20 ┆! w3:=b.current; ┆
0x6ce40…6ce60 20 20 20 20 20 77 33 3a 3d 20 61 64 64 72 65 73 73 28 28 77 33 29 2e 74 63 5f 6e 61 6d 65 29 3b ┆ w3:= address((w3).tc_name);┆
0x6ce60…6ce7e 0a 20 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 38 29 3b 20 21 20 72 65 73 65 72 ┆ monitor(8); ! reser┆
0x6ce7e…6ce84 (0x324,0xd9e)
0x6ce84…6cea0 76 65 20 21 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3d 30 20 74 68 65 6e 20 ┆ve ! if w0=0 then ┆
0x6cea0…6cec0 77 32 3a 3d 20 30 3b 20 20 21 20 20 73 74 61 74 75 73 20 3d 20 30 20 6d 65 61 6e 73 20 72 65 70 ┆w2:= 0; ! status = 0 means rep┆
0x6cec0…6cee0 65 61 74 20 6f 70 65 72 61 74 69 6f 6e 20 21 0a 20 20 20 20 20 20 20 20 65 6e 64 0a 20 20 20 20 ┆eat operation ! end ┆
0x6cee0…6cefc 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 20 77 32 20 ┆ else if w0:= w2 ┆
0x6cefc…6cf02 (0x324,0xd9f)
0x6cf02…6cf20 61 6e 64 20 32 27 31 31 30 30 30 30 20 3c 3e 20 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 ┆and 2'110000 <> 0 then ┆
0x6cf20…6cf40 20 62 65 67 69 6e 20 21 20 64 6f 65 73 20 6e 6f 74 20 65 78 69 73 74 20 21 0a 20 20 20 20 20 20 ┆ begin ! does not exist ! ┆
0x6cf40…6cf60 20 20 20 20 69 66 20 77 30 3a 3d 20 28 77 33 29 2e 74 63 5f 68 6f 73 74 6e 6f 3c 3e 30 20 21 20 ┆ if w0:= (w3).tc_hostno<>0 ! ┆
0x6cf60…6cf7a 72 65 6d 6f 74 65 20 21 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 62 65 ┆remote ! then be┆
0x6cf7a…6cf80 (0x324,0xda0)
0x6cf80…6cfa0 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 68 65 6c 70 77 32 3a 3d 20 77 32 3b 0a 20 20 20 ┆gin helpw2:= w2; ┆
0x6cfa0…6cfc0 20 20 20 20 20 20 20 20 20 6c 69 6e 6b 75 70 72 65 6d 6f 74 65 28 2e 77 33 2e 2c 77 30 3a 3d 28 ┆ linkupremote(.w3.,w0:=(┆
0x6cfc0…6cfe0 77 33 29 2e 74 63 5f 6b 69 6e 64 2c 77 30 3a 3d 28 77 33 29 2e 74 63 5f 68 6f 73 74 6e 6f 2c 0a ┆w3).tc_kind,w0:=(w3).tc_hostno, ┆
0x6cfe0…6d000 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 28 00 00 00 00 00 00 00 00 ┆ w0:=( ┆
0x6d000…6d006 (872,) (0x324,0xda1)
0x6d006…6d020 77 33 29 2e 74 63 5f 68 6f 73 74 69 64 2c 77 30 3a 3d 61 64 64 72 65 73 73 28 ┆w3).tc_hostid,w0:=address(┆
0x6d020…6d040 28 77 33 29 2e 74 63 5f 64 65 76 6e 61 6d 65 29 2c 77 30 2c 77 32 29 3b 0a 20 20 20 20 20 20 20 ┆(w3).tc_devname),w0,w2); ┆
0x6d040…6d060 20 20 20 20 20 77 33 3a 3d 20 62 2e 63 75 72 72 65 6e 74 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ w3:= b.current; ┆
0x6d060…6d07e 20 69 66 20 77 30 3d 34 30 39 36 20 21 20 63 72 65 61 74 65 64 20 21 20 74 68 65 6e 0a 20 ┆ if w0=4096 ! created ! then ┆
0x6d07e…6d084 (0x324,0xda2)
0x6d084…6d0a0 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ begin ┆
0x6d0a0…6d0c0 20 20 20 77 31 3a 3d 20 77 32 3b 20 77 31 2b 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ w1:= w2; w1+2; ┆
0x6d0c0…6d0e0 6d 6f 76 65 28 2e 77 33 2e 2c 77 30 3a 3d 38 2c 77 31 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 28 ┆move(.w3.,w0:=8,w1,w2:=address((┆
0x6d0e0…6d0fc 77 33 29 2e 74 63 5f 6e 61 6d 65 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆w3).tc_name)); ┆
0x6d0fc…6d102 (0x324,0xda3)
0x6d102…6d120 20 77 32 3a 3d 20 30 3b 20 21 20 73 74 61 74 75 73 3d 30 20 6d 65 61 6e 73 20 72 65 70 65 ┆ w2:= 0; ! status=0 means repe┆
0x6d120…6d140 61 74 20 6f 70 65 72 61 74 69 6f 6e 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 0a 20 ┆at operation ! end ┆
0x6d140…6d160 20 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 ┆ else begi┆
0x6d160…6d17a 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f 76 65 28 2e 77 33 2e 2c ┆n move(.w3.,┆
0x6d17a…6d180 (0x324,0xda4)
0x6d180…6d1a0 77 30 3a 3d 38 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 62 2e 6e 6f 5f 6c 69 6e 6b 29 2b 32 2c 77 ┆w0:=8,w1:=address(b.no_link)+2,w┆
0x6d1a0…6d1c0 32 3a 3d 61 64 64 72 65 73 73 28 28 77 33 29 2e 74 63 5f 6e 61 6d 65 29 29 3b 0a 20 20 20 20 20 ┆2:=address((w3).tc_name)); ┆
0x6d1c0…6d1e0 20 20 20 20 20 20 20 20 20 77 32 3a 3d 20 68 65 6c 70 77 32 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆ w2:= helpw2; ┆
0x6d1e0…6d200 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 00 00 00 00 00 00 00 00 ┆ end; end; ┆
0x6d200…6d206 (873,) (0x324,0xda5)
0x6d206…6d220 20 20 20 20 20 20 65 6e 64 20 65 6c 73 65 3b 0a 0a 20 20 20 20 20 20 65 6e 64 ┆ end else; end┆
0x6d220…6d240 3b 0a 0a 20 20 20 20 20 20 66 31 3a 3d 20 73 61 76 65 66 31 3b 0a 20 20 20 20 20 20 77 33 3a 3d ┆; f1:= savef1; w3:=┆
0x6d240…6d260 20 62 2e 63 75 72 72 65 6e 74 3b 0a 20 20 20 20 20 20 63 61 6c 6c 20 77 30 20 72 65 74 75 72 6e ┆ b.current; call w0 return┆
0x6d260…6d27e 3b 0a 20 20 20 20 65 6e 64 3b 0a 20 20 65 6e 64 3b 0a 0a 0a 0a 0a 0a 21 62 72 61 6e 63 68 ┆; end; end; !branch┆
0x6d27e…6d284 (0x324,0xda6)
0x6d284…6d2a0 20 32 2c 36 3b 0a 0a 0a 20 20 62 6f 64 79 20 6f 66 20 70 72 63 61 75 73 65 0a 20 20 ┆ 2,6; body of prcause ┆
0x6d2a0…6d2c0 62 65 67 69 6e 0a 20 20 20 20 69 6e 63 6f 64 65 0a 20 20 20 20 64 6f 75 62 6c 65 20 73 61 76 65 ┆begin incode double save┆
0x6d2c0…6d2e0 66 32 3b 0a 20 20 20 20 72 65 66 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 62 79 74 65 20 64 31 2c ┆f2; ref return; byte d1,┆
0x6d2e0…6d2fc 64 32 2c 64 33 2c 64 34 2c 64 35 2c 64 36 2c 64 37 2c 64 38 3b 0a 20 20 20 20 0a 20 ┆d2,d3,d4,d5,d6,d7,d8; ┆
0x6d2fc…6d302 (0x324,0xda7)
0x6d302…6d320 20 20 20 74 65 78 74 28 32 29 20 20 20 20 74 6e 6f 72 6d 20 3a 3d 20 22 27 31 32 27 22 3b ┆ text(2) tnorm := "'12'";┆
0x6d320…6d340 0a 20 20 20 20 74 65 78 74 28 32 29 20 20 20 20 74 6e 69 6c 6c 20 3a 3d 20 22 22 3b 0a 20 20 20 ┆ text(2) tnill := ""; ┆
0x6d340…6d360 20 74 65 78 74 28 32 37 29 20 20 20 74 6f 6b 69 6c 6c 3a 3d 20 22 27 31 32 27 2a 2a 2a 6b 69 6c ┆ text(27) tokill:= "'12'***kil┆
0x6d360…6d37a 6c 65 64 20 62 79 20 6f 70 65 72 61 74 6f 72 27 31 30 27 22 3b 0a 20 20 20 20 ┆led by operator'10'"; ┆
0x6d37a…6d380 (0x324,0xda8)
0x6d380…6d3a0 74 65 78 74 28 32 38 29 20 20 20 74 61 6b 69 6c 6c 3a 3d 20 22 27 31 32 27 2a 2a 2a 6b 69 6c 6c ┆text(28) takill:= "'12'***kill┆
0x6d3a0…6d3c0 65 64 20 62 79 20 61 70 70 6c 69 63 61 74 69 6f 6e 27 31 30 27 22 3b 0a 20 20 20 20 74 65 78 74 ┆ed by application'10'"; text┆
0x6d3c0…6d3e0 28 34 32 29 20 20 20 74 73 64 65 76 20 3a 3d 20 22 27 31 32 27 2a 2a 2a 73 65 6e 64 65 72 20 20 ┆(42) tsdev := "'12'***sender ┆
0x6d3e0…6d400 20 64 65 76 69 63 65 20 73 74 61 74 75 73 3a 20 38 2e 22 2c 0a 20 20 20 00 00 00 00 00 00 00 00 ┆ device status: 8.", ┆
0x6d400…6d406 (874,) (0x324,0xda9)
0x6d406…6d420 20 20 20 20 20 20 20 20 20 20 20 20 74 72 64 65 76 20 3a 3d 20 22 27 31 32 27 ┆ trdev := "'12'┆
0x6d420…6d440 2a 2a 2a 72 65 63 65 69 76 65 72 20 64 65 76 69 63 65 20 73 74 61 74 75 73 3a 20 38 2e 22 2c 0a ┆***receiver device status: 8.", ┆
0x6d440…6d460 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 6f 64 65 76 20 3a 3d 20 22 27 31 32 27 2a 2a 2a ┆ todev := "'12'***┆
0x6d460…6d47e 6f 70 65 72 61 74 6f 72 20 64 65 76 69 63 65 20 73 74 61 74 75 73 3a 20 38 2e 22 3b 0a 20 ┆operator device status: 8."; ┆
0x6d47e…6d484 (0x324,0xdaa)
0x6d484…6d4a0 20 20 20 72 65 66 20 62 74 65 78 74 2c 65 74 65 78 74 3b 0a 0a 20 20 20 20 62 65 67 ┆ ref btext,etext; beg┆
0x6d4a0…6d4c0 69 6e 0a 20 20 20 20 20 20 73 61 76 65 66 32 3a 3d 66 32 3b 0a 20 20 20 20 20 20 72 65 74 75 72 ┆in savef2:=f2; retur┆
0x6d4c0…6d4e0 6e 3a 3d 77 33 3b 0a 20 20 20 20 20 20 77 31 3a 3d 28 77 33 3a 3d 62 2e 63 75 72 72 65 6e 74 29 ┆n:=w3; w1:=(w3:=b.current)┆
0x6d4e0…6d4fc 2e 74 63 5f 73 74 61 74 65 2d 34 3b 0a 20 20 20 20 20 20 69 66 20 77 31 3c 31 20 74 ┆.tc_state-4; if w1<1 t┆
0x6d4fc…6d502 (0x324,0xdab)
0x6d502…6d520 68 65 6e 20 77 31 3a 3d 31 3b 69 66 20 77 31 3e 34 20 74 68 65 6e 20 77 31 3a 3d 31 3b 0a ┆hen w1:=1;if w1>4 then w1:=1; ┆
0x6d520…6d540 20 20 20 20 20 20 63 61 73 65 20 77 31 20 6f 66 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 ┆ case w1 of begin ┆
0x6d540…6d560 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 6e 6f 72 6d 61 6c 20 74 65 72 6d 69 6e ┆ begin comment normal termin┆
0x6d560…6d57a 61 74 69 6f 6e 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 ┆ation; if w0:=(w┆
0x6d57a…6d580 (0x324,0xdac)
0x6d580…6d5a0 33 29 2e 70 72 5f 68 65 61 64 74 72 61 69 6c 3c 3e 30 20 74 68 65 6e 20 77 31 3a 3d 61 64 64 72 ┆3).pr_headtrail<>0 then w1:=addr┆
0x6d5a0…6d5c0 65 73 73 28 74 6e 6f 72 6d 29 20 65 6c 73 65 20 77 31 3a 3d 61 64 64 72 65 73 73 28 74 6e 69 6c ┆ess(tnorm) else w1:=address(tnil┆
0x6d5c0…6d5e0 6c 29 3b 0a 20 20 20 20 20 20 20 20 20 20 62 74 65 78 74 3a 3d 77 31 3b 65 74 65 78 74 3a 3d 77 ┆l); btext:=w1;etext:=w┆
0x6d5e0…6d600 31 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆1; end; ┆
0x6d600…6d606 (875,) (0x324,0xdad)
0x6d606…6d620 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 61 62 6f 72 74 65 64 20 74 72 61 6e ┆begin comment aborted tran┆
0x6d620…6d640 73 70 6f 72 74 3b 0a 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 28 77 33 29 2e 74 63 5f 73 74 61 ┆sport; w1:=(w3).tc_sta┆
0x6d640…6d660 74 75 73 3b 0a 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 77 32 3a 3d 31 20 73 74 65 70 20 31 20 ┆tus; for w2:=1 step 1 ┆
0x6d660…6d67e 75 70 74 6f 20 38 20 64 6f 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 ┆upto 8 do begin ┆
0x6d67e…6d684 (0x324,0xdae)
0x6d684…6d6a0 20 20 20 20 20 20 20 20 77 30 3a 3d 30 3b 66 31 20 6c 73 68 69 66 74 20 33 3b 77 30 ┆ w0:=0;f1 lshift 3;w0┆
0x6d6a0…6d6c0 2b 34 38 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 63 61 73 65 20 77 32 20 6f 66 0a 20 20 20 20 ┆+48; case w2 of ┆
0x6d6c0…6d6e0 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 31 3a ┆ begin d1:┆
0x6d6e0…6d6fc 3d 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 32 3a 3d 77 30 3b 0a 20 ┆=w0; d2:=w0; ┆
0x6d6fc…6d702 (0x324,0xdaf)
0x6d702…6d720 20 20 20 20 20 20 20 20 20 20 20 20 20 64 33 3a 3d 77 30 3b 0a 20 20 20 20 20 20 20 20 20 ┆ d3:=w0; ┆
0x6d720…6d740 20 20 20 20 20 64 34 3a 3d 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 35 3a 3d 77 ┆ d4:=w0; d5:=w┆
0x6d740…6d760 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 36 3a 3d 77 30 3b 0a 20 20 20 20 20 20 20 ┆0; d6:=w0; ┆
0x6d760…6d77a 20 20 20 20 20 20 20 64 37 3a 3d 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ d7:=w0; ┆
0x6d77a…6d780 (0x324,0xdb0)
0x6d780…6d7a0 20 20 20 64 38 3a 3d 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 ┆ d8:=w0; end; ┆
0x6d7a0…6d7c0 20 20 20 20 20 20 65 6e 64 3b 0a 0a 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 28 77 33 29 2e 74 ┆ end; w1:=(w3).t┆
0x6d7c0…6d7e0 63 5f 63 61 75 73 65 3b 0a 20 20 20 20 20 20 20 20 20 20 63 61 73 65 20 77 31 20 6f 66 0a 20 20 ┆c_cause; case w1 of ┆
0x6d7e0…6d800 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ begin ┆
0x6d800…6d806 (876,) (0x324,0xdb1)
0x6d806…6d820 20 20 77 32 3a 3d 61 64 64 72 65 73 73 28 74 73 64 65 76 29 3b 0a 20 20 20 20 ┆ w2:=address(tsdev); ┆
0x6d820…6d840 20 20 20 20 20 20 20 20 77 32 3a 3d 61 64 64 72 65 73 73 28 74 72 64 65 76 29 3b 0a 20 20 20 20 ┆ w2:=address(trdev); ┆
0x6d840…6d860 20 20 20 20 20 20 20 20 77 32 3a 3d 61 64 64 72 65 73 73 28 74 6f 64 65 76 29 3b 0a 20 20 20 20 ┆ w2:=address(todev); ┆
0x6d860…6d87e 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 77 32 3b 77 32 ┆ end; w1:=w2;w2┆
0x6d87e…6d884 (0x324,0xdb2)
0x6d884…6d8a0 2b 32 30 3b 0a 20 20 20 20 20 20 20 20 20 20 62 74 65 78 74 3a 3d 77 31 3b 0a 20 20 ┆+20; btext:=w1; ┆
0x6d8a0…6d8c0 20 20 20 20 20 20 20 20 77 31 2b 32 36 3b 65 74 65 78 74 3a 3d 77 31 3b 0a 0a 20 20 20 20 20 20 ┆ w1+26;etext:=w1; ┆
0x6d8c0…6d8e0 20 20 20 20 28 77 32 29 2e 77 6f 72 64 3a 3d 77 30 3a 3d 64 31 20 6c 73 68 69 66 74 20 38 2b 64 ┆ (w2).word:=w0:=d1 lshift 8+d┆
0x6d8e0…6d8fc 32 20 6c 73 68 69 66 74 20 38 2b 64 33 3b 0a 20 20 20 20 20 20 20 20 20 20 77 32 2b ┆2 lshift 8+d3; w2+┆
0x6d8fc…6d902 (0x324,0xdb3)
0x6d902…6d920 32 3b 28 77 32 29 2e 77 6f 72 64 3a 3d 77 30 3a 3d 64 34 20 6c 73 68 69 66 74 20 38 2b 64 ┆2;(w2).word:=w0:=d4 lshift 8+d┆
0x6d920…6d940 35 20 6c 73 68 69 66 74 20 38 2b 64 36 3b 0a 20 20 20 20 20 20 20 20 20 20 77 32 2b 32 3b 28 77 ┆5 lshift 8+d6; w2+2;(w┆
0x6d940…6d960 32 29 2e 77 6f 72 64 3a 3d 77 30 3a 3d 64 37 20 6c 73 68 69 66 74 20 38 2b 64 38 20 6c 73 68 69 ┆2).word:=w0:=d7 lshift 8+d8 lshi┆
0x6d960…6d97a 66 74 20 38 2b 31 30 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 20 21 20 65 6e ┆ft 8+10; end; ! en┆
0x6d97a…6d980 (0x324,0xdb4)
0x6d980…6d9a0 64 20 61 62 6f 72 74 65 64 20 74 72 61 6e 73 70 6f 72 74 20 21 0a 20 20 20 20 20 20 20 20 62 65 ┆d aborted transport ! be┆
0x6d9a0…6d9c0 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 6b 69 6c 6c 65 64 20 62 79 20 6f 70 65 72 61 74 6f 72 3b 0a ┆gin comment killed by operator; ┆
0x6d9c0…6d9e0 20 20 20 20 20 20 20 20 20 20 62 74 65 78 74 3a 3d 77 31 3a 3d 61 64 64 72 65 73 73 28 74 6f 6b ┆ btext:=w1:=address(tok┆
0x6d9e0…6da00 69 6c 6c 29 3b 0a 20 20 20 20 20 20 20 20 20 20 77 31 2b 31 36 3b 65 74 00 00 00 00 00 00 00 00 ┆ill); w1+16;et ┆
0x6da00…6da06 (877,) (0x324,0xdb5)
0x6da06…6da20 65 78 74 3a 3d 77 31 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 ┆ext:=w1; end; ┆
0x6da20…6da40 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 6b 69 6c 6c 65 64 20 62 79 20 61 70 70 6c ┆ begin comment killed by appl┆
0x6da40…6da60 69 63 61 74 69 6f 6e 3b 0a 20 20 20 20 20 20 20 20 20 20 62 74 65 78 74 3a 3d 77 31 3a 3d 61 64 ┆ication; btext:=w1:=ad┆
0x6da60…6da7e 64 72 65 73 73 28 74 61 6b 69 6c 6c 29 3b 0a 20 20 20 20 20 20 20 20 20 20 77 31 2b 31 36 ┆dress(takill); w1+16┆
0x6da7e…6da84 (0x324,0xdb6)
0x6da84…6daa0 3b 65 74 65 78 74 3a 3d 77 31 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 ┆;etext:=w1; end; ┆
0x6daa0…6dac0 20 20 20 65 6e 64 3b 20 21 20 65 6e 64 20 63 61 73 65 20 21 0a 0a 20 20 20 20 20 20 77 30 3a 3d ┆ end; ! end case ! w0:=┆
0x6dac0…6dae0 20 65 74 65 78 74 2d 62 74 65 78 74 2b 32 3b 0a 20 20 20 20 20 20 77 32 3a 3d 61 64 64 72 65 73 ┆ etext-btext+2; w2:=addres┆
0x6dae0…6dafc 73 28 28 77 32 3a 3d 28 77 33 29 2e 74 63 5f 62 75 66 29 2e 62 75 66 5f 64 61 74 61 ┆s((w2:=(w3).tc_buf).buf_data┆
0x6dafc…6db02 (0x324,0xdb7)
0x6db02…6db20 31 29 3b 0a 20 20 20 20 20 20 6d 6f 76 65 20 28 2e 77 33 2e 2c 77 30 2c 77 31 3a 3d 62 74 ┆1); move (.w3.,w0,w1:=bt┆
0x6db20…6db40 65 78 74 2c 77 32 29 3b 0a 20 20 20 20 20 20 0a 20 20 20 20 20 20 66 32 3a 3d 73 61 76 65 66 32 ┆ext,w2); f2:=savef2┆
0x6db40…6db60 3b 0a 20 20 20 20 20 20 63 61 6c 6c 20 77 30 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 65 6e 64 3b ┆; call w0 return; end;┆
0x6db60…6db7a 0a 20 20 65 6e 64 3b 20 21 20 65 6e 64 20 70 72 63 61 75 73 65 20 21 0a 0a 0a ┆ end; ! end prcause ! ┆
0x6db7a…6db80 (0x324,0xdb8)
0x6db80…6dba0 0a 20 20 62 6f 64 79 20 6f 66 20 70 72 6c 69 73 74 69 64 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 ┆ body of prlistid begin ┆
0x6dba0…6dbc0 69 6e 63 6f 64 65 0a 20 20 20 20 20 20 72 65 66 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 20 20 64 ┆incode ref return; d┆
0x6dbc0…6dbe0 6f 75 62 6c 65 20 73 61 76 65 66 32 3b 0a 20 20 20 20 20 20 72 65 66 20 74 72 61 6e 73 72 65 66 ┆ouble savef2; ref transref┆
0x6dbe0…6dc00 3b 0a 20 20 20 20 20 20 74 65 78 74 28 31 32 29 20 74 5f 63 6f 6e 74 3a 00 00 00 00 00 00 00 00 ┆; text(12) t_cont: ┆
0x6dc00…6dc06 (878,) (0x324,0xdb9)
0x6dc06…6dc20 3d 20 22 63 6f 6e 74 65 6e 74 73 20 6f 66 3a 22 3b 0a 20 20 20 20 20 20 74 65 ┆= "contents of:"; te┆
0x6dc20…6dc40 78 74 28 31 33 29 20 74 5f 74 72 61 6e 73 3a 3d 20 22 27 31 30 27 74 72 61 6e 73 70 6f 72 74 20 ┆xt(13) t_trans:= "'10'transport ┆
0x6dc40…6dc60 20 3a 22 3b 0a 20 20 20 20 20 20 74 65 78 74 28 31 33 29 20 74 5f 75 73 65 72 20 3a 3d 20 22 27 ┆ :"; text(13) t_user := "'┆
0x6dc60…6dc7e 31 30 27 75 73 65 72 20 20 20 20 20 20 20 3a 22 3b 0a 20 20 20 20 20 20 74 65 78 74 28 32 ┆10'user :"; text(2┆
0x6dc7e…6dc84 (0x324,0xdba)
0x6dc84…6dca0 29 20 6e 6c 66 66 3a 3d 20 22 27 31 30 27 27 31 32 27 22 3b 0a 20 20 20 20 62 65 67 ┆) nlff:= "'10''12'"; beg┆
0x6dca0…6dcc0 69 6e 0a 20 20 20 20 20 20 73 61 76 65 66 32 3a 3d 20 66 32 3b 20 72 65 74 75 72 6e 3a 3d 20 77 ┆in savef2:= f2; return:= w┆
0x6dcc0…6dce0 33 3b 0a 20 20 20 20 20 20 77 33 3a 3d 20 62 2e 63 75 72 72 65 6e 74 3b 0a 0a 20 20 20 20 20 20 ┆3; w3:= b.current; ┆
0x6dce0…6dcfc 6c 6f 6f 6b 74 72 61 6e 73 70 6f 72 74 28 2e 77 33 2e 2c 77 31 3a 3d 28 77 33 29 2e ┆looktransport(.w3.,w1:=(w3).┆
0x6dcfc…6dd02 (0x324,0xdbb)
0x6dd02…6dd20 74 63 5f 74 72 61 6e 73 6e 6f 2c 77 32 29 3b 0a 20 20 20 20 20 20 74 72 61 6e 73 72 65 66 ┆tc_transno,w2); transref┆
0x6dd20…6dd40 3a 3d 20 77 32 3b 0a 20 20 20 20 20 20 77 32 3a 3d 20 28 77 33 29 2e 74 63 5f 62 75 66 3b 20 77 ┆:= w2; w2:= (w3).tc_buf; w┆
0x6dd40…6dd60 32 3a 3d 20 61 64 64 72 65 73 73 28 28 77 32 29 2e 62 75 66 5f 64 61 74 61 31 29 3b 0a 20 20 20 ┆2:= address((w2).buf_data1); ┆
0x6dd60…6dd7a 20 20 20 6d 6f 76 65 28 2e 77 33 2e 2c 77 30 3a 3d 38 2c 77 31 3a 3d 61 64 64 ┆ move(.w3.,w0:=8,w1:=add┆
0x6dd7a…6dd80 (0x324,0xdbc)
0x6dd80…6dda0 72 65 73 73 28 74 5f 63 6f 6e 74 29 2c 77 32 29 3b 0a 20 20 20 20 20 20 77 32 2b 77 30 3b 0a 20 ┆ress(t_cont),w2); w2+w0; ┆
0x6dda0…6ddc0 20 20 20 20 20 6d 6f 76 65 28 2e 77 33 2e 2c 77 30 3a 3d 38 2c 77 31 3a 3d 61 64 64 72 65 73 73 ┆ move(.w3.,w0:=8,w1:=address┆
0x6ddc0…6dde0 28 28 77 31 3a 3d 74 72 61 6e 73 72 65 66 29 2e 74 72 5f 73 6e 61 6d 65 29 2c 77 32 29 3b 0a 20 ┆((w1:=transref).tr_sname),w2); ┆
0x6dde0…6de00 20 20 20 20 20 77 32 2b 77 30 3b 0a 20 20 20 20 20 20 6d 6f 76 65 28 2e 00 00 00 00 00 00 00 00 ┆ w2+w0; move(. ┆
0x6de00…6de06 (879,) (0x324,0xdbd)
0x6de06…6de20 77 33 2e 2c 77 30 3a 3d 31 30 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 74 5f 74 ┆w3.,w0:=10,w1:=address(t_t┆
0x6de20…6de40 72 61 6e 73 29 2c 77 32 29 3b 0a 20 20 20 20 20 20 77 32 2b 77 30 3b 0a 20 20 20 20 20 20 6d 6f ┆rans),w2); w2+w0; mo┆
0x6de40…6de60 76 65 28 2e 77 33 2e 2c 77 30 3a 3d 38 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 28 77 31 3a 3d 74 ┆ve(.w3.,w0:=8,w1:=address((w1:=t┆
0x6de60…6de7e 72 61 6e 73 72 65 66 29 2e 74 72 5f 6e 61 6d 65 29 2c 77 32 29 3b 0a 20 20 20 20 20 20 77 ┆ransref).tr_name),w2); w┆
0x6de7e…6de84 (0x324,0xdbe)
0x6de84…6dea0 32 2b 77 30 3b 0a 20 20 20 20 20 20 6d 6f 76 65 28 2e 77 33 2e 2c 77 30 3a 3d 31 30 ┆2+w0; move(.w3.,w0:=10┆
0x6dea0…6dec0 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 74 5f 75 73 65 72 29 2c 77 32 29 3b 0a 20 20 20 20 20 20 ┆,w1:=address(t_user),w2); ┆
0x6dec0…6dee0 77 32 2b 77 30 3b 0a 20 20 20 20 20 20 6d 6f 76 65 28 2e 77 33 2e 2c 77 30 3a 3d 38 2c 77 31 3a ┆w2+w0; move(.w3.,w0:=8,w1:┆
0x6dee0…6defc 3d 61 64 64 72 65 73 73 28 28 77 31 3a 3d 74 72 61 6e 73 72 65 66 29 2e 74 72 5f 75 ┆=address((w1:=transref).tr_u┆
0x6defc…6df02 (0x324,0xdbf)
0x6df02…6df20 73 65 72 29 2c 77 32 29 3b 0a 20 20 20 20 20 20 77 32 2b 77 30 3b 0a 20 20 20 20 20 20 6d ┆ser),w2); w2+w0; m┆
0x6df20…6df40 6f 76 65 28 2e 77 33 2e 2c 77 30 3a 3d 32 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 6e 6c 66 66 29 ┆ove(.w3.,w0:=2,w1:=address(nlff)┆
0x6df40…6df60 2c 77 32 29 3b 0a 20 20 20 20 20 20 77 32 2b 77 30 3b 0a 20 20 20 20 20 20 77 31 3a 3d 20 28 77 ┆,w2); w2+w0; w1:= (w┆
0x6df60…6df7a 33 29 2e 74 63 5f 62 75 66 3b 20 77 31 3a 3d 20 61 64 64 72 65 73 73 28 28 77 ┆3).tc_buf; w1:= address((w┆
0x6df7a…6df80 (0x324,0xdc0)
0x6df80…6dfa0 31 29 2e 62 75 66 5f 64 61 74 61 31 29 3b 0a 20 20 20 20 20 20 77 30 3a 3d 20 77 32 2d 77 31 3b ┆1).buf_data1); w0:= w2-w1;┆
0x6dfa0…6dfc0 0a 20 20 20 20 20 20 66 32 3a 3d 20 73 61 76 65 66 32 3b 0a 20 20 20 20 20 20 77 33 3a 3d 20 62 ┆ f2:= savef2; w3:= b┆
0x6dfc0…6dfe0 2e 63 75 72 72 65 6e 74 3b 0a 20 20 20 20 20 20 63 61 6c 6c 20 77 30 20 72 65 74 75 72 6e 3b 0a ┆.current; call w0 return; ┆
0x6dfe0…6e000 20 20 20 20 65 6e 64 3b 0a 20 20 65 6e 64 3b 0a 0a 0a 20 20 62 6f 64 79 00 00 00 00 00 00 00 00 ┆ end; end; body ┆
0x6e000…6e006 (880,) (0x324,0xdc1)
0x6e006…6e020 20 6f 66 20 70 72 6c 69 73 74 64 61 74 65 0a 20 20 63 6f 6d 6d 65 6e 74 20 67 ┆ of prlistdate comment g┆
0x6e020…6e040 65 6e 65 72 61 74 65 20 61 20 74 65 78 74 20 63 6f 6e 74 61 69 6e 69 6e 67 20 74 68 65 20 63 75 ┆enerate a text containing the cu┆
0x6e040…6e060 72 72 65 6e 74 20 64 61 74 65 20 61 6e 64 20 74 69 6d 65 2e 0a 20 20 20 20 20 20 20 20 20 20 70 ┆rrent date and time. p┆
0x6e060…6e07e 75 74 20 74 68 65 20 74 65 78 74 20 69 6e 74 6f 20 74 68 65 20 62 75 66 66 65 72 20 6f 66 ┆ut the text into the buffer of┆
0x6e07e…6e084 (0x324,0xdc2)
0x6e084…6e0a0 20 63 75 72 72 65 6e 74 20 63 6f 72 6f 75 74 69 6e 65 3b 0a 20 20 62 65 67 69 6e 0a ┆ current coroutine; begin ┆
0x6e0a0…6e0c0 20 20 20 20 70 72 6f 63 65 64 75 72 65 20 63 6f 6e 76 65 72 74 64 65 63 69 6d 61 6c 28 2e 77 33 ┆ procedure convertdecimal(.w3┆
0x6e0c0…6e0e0 2e 3b 77 30 29 3b 0a 20 20 20 20 69 6e 63 6f 64 65 0a 20 20 20 20 20 20 74 65 78 74 28 31 31 29 ┆.;w0); incode text(11)┆
0x6e0e0…6e0fc 20 6f 77 6e 6e 61 6d 65 3b 0a 20 20 20 20 20 20 74 65 78 74 28 37 29 20 66 69 6c 6c ┆ ownname; text(7) fill┆
0x6e0fc…6e102 (0x324,0xdc3)
0x6e102…6e120 73 70 61 63 65 73 3a 3d 20 22 20 20 20 20 20 20 3a 22 3b 0a 20 20 20 20 20 20 77 6f 72 64 ┆spaces:= " :"; word┆
0x6e120…6e140 20 79 65 61 72 2c 70 6f 69 6e 74 31 3a 3d 34 36 2c 6d 6f 6e 74 68 2c 70 6f 69 6e 74 32 3a 3d 34 ┆ year,point1:=46,month,point2:=4┆
0x6e140…6e160 36 2c 64 61 79 2c 73 70 32 3a 3d 33 32 2c 0a 20 20 20 20 20 20 20 20 20 20 20 68 6f 75 72 2c 70 ┆6,day,sp2:=32, hour,p┆
0x6e160…6e17a 6f 69 6e 74 33 3a 3d 34 36 2c 6d 69 6e 2c 6e 6c 3a 3d 31 30 3b 0a 20 20 20 20 ┆oint3:=46,min,nl:=10; ┆
0x6e17a…6e180 (0x324,0xdc4)
0x6e180…6e1a0 20 20 64 6f 75 62 6c 65 20 73 61 76 65 66 32 3b 0a 20 20 20 20 20 20 72 65 66 20 72 65 74 75 72 ┆ double savef2; ref retur┆
0x6e1a0…6e1c0 6e 3b 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 73 61 76 65 66 32 3a 3d 20 66 32 3b 20 ┆n; begin savef2:= f2; ┆
0x6e1c0…6e1e0 72 65 74 75 72 6e 3a 3d 20 77 33 3b 0a 20 20 20 20 20 20 77 31 3a 3d 20 62 2e 70 72 69 6d 6f 2b ┆return:= w3; w1:= b.primo+┆
0x6e1e0…6e200 32 3b 0a 20 20 20 20 20 20 6d 6f 76 65 28 2e 77 33 2e 2c 77 30 3a 3d 38 00 00 00 00 00 00 00 00 ┆2; move(.w3.,w0:=8 ┆
0x6e200…6e206 (881,) (0x324,0xdc5)
0x6e206…6e220 2c 77 31 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 6f 77 6e 6e 61 6d 65 29 29 3b ┆,w1,w2:=address(ownname));┆
0x6e220…6e240 0a 0a 20 20 20 20 20 20 77 31 3a 3d 20 31 30 38 3b 20 21 20 67 65 74 20 63 6c 6f 63 6b 20 21 0a ┆ w1:= 108; ! get clock ! ┆
0x6e240…6e260 20 20 20 20 20 20 66 31 3a 3d 20 28 77 31 29 2e 64 6f 75 62 6c 65 3b 0a 20 20 20 20 20 20 66 31 ┆ f1:= (w1).double; f1┆
0x6e260…6e27e 20 61 73 68 69 66 74 20 2d 34 3b 20 66 31 2f 2f 28 36 30 2a 36 30 2a 36 32 35 29 3b 0a 20 ┆ ashift -4; f1//(60*60*625); ┆
0x6e27e…6e284 (0x324,0xdc6)
0x6e284…6e2a0 20 20 20 20 20 77 33 3a 3d 20 30 3b 20 66 30 2f 2f 28 36 30 2a 36 32 35 29 3b 0a 20 ┆ w3:= 0; f0//(60*625); ┆
0x6e2a0…6e2c0 20 20 20 20 20 63 6f 6e 76 65 72 74 64 65 63 69 6d 61 6c 28 2e 77 33 2e 2c 77 30 29 3b 0a 20 20 ┆ convertdecimal(.w3.,w0); ┆
0x6e2c0…6e2e0 20 20 20 20 6d 69 6e 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 77 30 3a 3d 20 30 3b 20 66 31 2f 2f ┆ min:= w0; w0:= 0; f1//┆
0x6e2e0…6e2fc 32 34 3b 0a 20 20 20 20 20 20 63 6f 6e 76 65 72 74 64 65 63 69 6d 61 6c 28 2e 77 33 ┆24; convertdecimal(.w3┆
0x6e2fc…6e302 (0x324,0xdc7)
0x6e302…6e320 2e 2c 77 30 29 3b 0a 20 20 20 20 20 20 68 6f 75 72 3a 3d 20 77 30 3b 0a 0a 20 20 20 20 20 ┆.,w0); hour:= w0; ┆
0x6e320…6e340 20 66 31 20 6c 73 68 69 66 74 20 32 36 3b 0a 20 20 20 20 20 20 77 30 2b 39 39 31 31 31 3b 0a 20 ┆ f1 lshift 26; w0+99111; ┆
0x6e340…6e360 20 20 20 20 20 77 33 3a 3d 20 30 3b 0a 20 20 20 20 20 20 66 30 2f 2f 31 34 36 31 3b 20 21 20 79 ┆ w3:= 0; f0//1461; ! y┆
0x6e360…6e37a 65 61 72 20 21 0a 20 20 20 20 20 20 77 33 20 61 73 68 69 66 74 20 2d 32 3b 0a ┆ear ! w3 ashift -2; ┆
0x6e37a…6e380 (0x324,0xdc8)
0x6e380…6e3a0 20 20 20 20 20 20 77 33 2a 35 3b 20 77 33 2b 34 36 31 3b 20 66 33 2f 2f 31 35 33 3b 0a 20 20 20 ┆ w3*5; w3+461; f3//153; ┆
0x6e3a0…6e3c0 20 20 20 69 66 20 77 33 20 21 20 6d 6f 6e 74 68 20 21 20 3e 3d 31 33 20 74 68 65 6e 0a 20 20 20 ┆ if w3 ! month ! >=13 then ┆
0x6e3c0…6e3e0 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 77 33 2d 31 32 3b 20 77 30 2b 31 3b 0a 20 20 ┆ begin w3-12; w0+1; ┆
0x6e3e0…6e400 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 6d 6f 6e 74 68 3a 3d 20 77 00 00 00 00 00 00 00 00 ┆ end; month:= w ┆
0x6e400…6e406 (882,) (0x324,0xdc9)
0x6e406…6e420 33 3b 0a 20 20 20 20 20 20 63 6f 6e 76 65 72 74 64 65 63 69 6d 61 6c 28 2e 77 ┆3; convertdecimal(.w┆
0x6e420…6e440 33 2e 2c 77 30 29 3b 0a 20 20 20 20 20 20 79 65 61 72 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 63 ┆3.,w0); year:= w0; c┆
0x6e440…6e460 6f 6e 76 65 72 74 64 65 63 69 6d 61 6c 28 2e 77 33 2e 2c 77 30 3a 3d 6d 6f 6e 74 68 29 3b 0a 20 ┆onvertdecimal(.w3.,w0:=month); ┆
0x6e460…6e47e 20 20 20 20 20 6d 6f 6e 74 68 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 77 32 2b 35 3b 20 66 ┆ month:= w0; w2+5; f┆
0x6e47e…6e484 (0x324,0xdca)
0x6e484…6e4a0 32 2f 2f 35 3b 0a 20 20 20 20 20 20 63 6f 6e 76 65 72 74 64 65 63 69 6d 61 6c 28 2e ┆2//5; convertdecimal(.┆
0x6e4a0…6e4c0 77 33 2e 2c 77 30 3a 3d 77 32 29 3b 0a 20 20 20 20 20 20 64 61 79 3a 3d 20 77 30 3b 0a 0a 20 20 ┆w3.,w0:=w2); day:= w0; ┆
0x6e4c0…6e4e0 20 20 20 20 77 30 3a 3d 20 61 64 64 72 65 73 73 28 6e 6c 29 3b 20 77 31 3a 3d 20 61 64 64 72 65 ┆ w0:= address(nl); w1:= addre┆
0x6e4e0…6e4fc 73 73 28 6f 77 6e 6e 61 6d 65 29 3b 0a 20 20 20 20 20 20 77 30 2d 77 31 2b 32 3b 0a ┆ss(ownname); w0-w1+2; ┆
0x6e4fc…6e502 (0x324,0xdcb)
0x6e502…6e520 20 20 20 20 20 20 6d 6f 76 65 28 2e 77 33 2e 2c 77 30 2c 77 31 2c 77 32 3a 3d 61 64 64 72 ┆ move(.w3.,w0,w1,w2:=addr┆
0x6e520…6e540 65 73 73 28 28 77 32 3a 3d 28 77 33 29 2e 74 63 5f 62 75 66 29 2e 62 75 66 5f 64 61 74 61 31 29 ┆ess((w2:=(w3).tc_buf).buf_data1)┆
0x6e540…6e560 29 3b 0a 20 20 20 20 20 20 66 32 3a 3d 20 73 61 76 65 66 32 3b 0a 20 20 20 20 20 20 77 33 3a 3d ┆); f2:= savef2; w3:=┆
0x6e560…6e57a 20 62 2e 63 75 72 72 65 6e 74 3b 0a 20 20 20 20 20 20 63 61 6c 6c 20 77 30 20 ┆ b.current; call w0 ┆
0x6e57a…6e580 (0x324,0xdcc)
0x6e580…6e5a0 72 65 74 75 72 6e 3b 0a 20 20 20 20 65 6e 64 3b 0a 0a 20 20 20 20 62 6f 64 79 20 6f 66 20 63 6f ┆return; end; body of co┆
0x6e5a0…6e5c0 6e 76 65 72 74 64 65 63 69 6d 61 6c 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 69 6e 63 ┆nvertdecimal begin inc┆
0x6e5c0…6e5e0 6f 64 65 20 72 65 66 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 ┆ode ref return; begin ┆
0x6e5e0…6e600 20 20 20 20 72 65 74 75 72 6e 3a 3d 20 77 33 3b 0a 0a 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ return:= w3; ┆
0x6e600…6e606 (883,) (0x324,0xdcd)
0x6e606…6e620 20 20 77 33 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 66 30 2f 2f 31 30 3b 0a ┆ w3:= 0; f0//10; ┆
0x6e620…6e640 20 20 20 20 20 20 20 20 77 30 2b 34 38 20 6c 73 68 69 66 74 20 38 2b 77 33 2b 34 38 3b 0a 20 20 ┆ w0+48 lshift 8+w3+48; ┆
0x6e640…6e660 20 20 20 20 20 20 77 33 3a 3d 20 62 2e 63 75 72 72 65 6e 74 3b 0a 20 20 20 20 20 20 20 20 63 61 ┆ w3:= b.current; ca┆
0x6e660…6e67e 6c 6c 20 77 30 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 65 ┆ll w0 return; end; e┆
0x6e67e…6e684 (0x324,0xdce)
0x6e684…6e6a0 6e 64 3b 0a 20 20 65 6e 64 3b 20 21 20 70 72 6c 69 73 74 64 61 74 65 20 21 0a 0a 0a ┆nd; end; ! prlistdate ! ┆
0x6e6a0…6e6c0 20 20 62 6f 64 79 20 6f 66 20 70 72 0a 20 20 63 6f 6d 6d 65 6e 74 20 70 72 69 6e 74 65 72 20 63 ┆ body of pr comment printer c┆
0x6e6c0…6e6e0 6f 72 6f 75 74 69 6e 65 3b 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 6c 61 62 65 6c 20 6c 6f 6f 70 ┆oroutine; begin label loop┆
0x6e6e0…6e6fc 2c 20 63 6c 6f 73 65 75 70 2c 20 73 75 69 63 69 64 65 2c 20 6e 6f 5f 6f 70 2c 20 70 ┆, closeup, suicide, no_op, p┆
0x6e6fc…6e702 (0x324,0xdcf)
0x6e702…6e720 72 5f 61 63 74 69 6f 6e 2c 20 72 65 70 5f 70 72 69 6e 74 2c 20 65 6e 64 6c 6f 6f 70 3b 0a ┆r_action, rep_print, endloop; ┆
0x6e720…6e740 20 20 20 20 69 6e 63 6f 64 65 0a 20 20 20 20 20 20 74 65 78 74 28 32 31 29 20 74 5f 73 74 61 72 ┆ incode text(21) t_star┆
0x6e740…6e760 74 20 20 3a 3d 20 22 27 31 32 27 6f 70 65 72 61 74 6f 72 20 73 74 61 72 74 27 31 30 27 27 31 30 ┆t := "'12'operator start'10''10┆
0x6e760…6e77a 27 22 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 5f 73 6b 69 70 20 ┆'", t_skip ┆
0x6e77a…6e780 (0x324,0xdd0)
0x6e780…6e7a0 20 20 3a 3d 20 22 27 31 32 27 6f 70 65 72 61 74 6f 72 20 73 6b 69 70 27 31 30 27 27 31 30 27 22 ┆ := "'12'operator skip'10''10'"┆
0x6e7a0…6e7c0 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 5f 72 65 70 65 61 74 20 3a 3d 20 22 27 31 ┆, t_repeat := "'1┆
0x6e7c0…6e7e0 32 27 6f 70 65 72 61 74 6f 72 20 72 65 70 65 61 74 27 31 30 27 27 31 30 27 22 2c 0a 20 20 20 20 ┆2'operator repeat'10''10'", ┆
0x6e7e0…6e800 20 20 20 20 20 20 20 20 20 20 20 74 5f 72 65 73 74 61 72 74 3a 3d 20 22 00 00 00 00 00 00 00 00 ┆ t_restart:= " ┆
0x6e800…6e806 (884,) (0x324,0xdd1)
0x6e806…6e820 27 31 32 27 6f 70 65 72 61 74 6f 72 20 72 65 73 74 61 72 74 27 31 30 27 27 31 ┆'12'operator restart'10''1┆
0x6e820…6e840 30 27 22 3b 0a 20 20 20 20 20 20 74 65 78 74 28 31 30 32 29 20 74 72 69 61 6e 67 31 3a 3d 20 22 ┆0'"; text(102) triang1:= "┆
0x6e840…6e860 0a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a ┆ *************** ************* ┆
0x6e860…6e87e 20 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 20 20 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 20 20 20 ┆ *********** ********* ┆
0x6e87e…6e884 (0x324,0xdd2)
0x6e884…6e8a0 20 2a 2a 2a 2a 2a 2a 2a 0a 20 20 20 20 20 2a 2a 2a 2a 2a 0a 20 20 20 20 20 20 2a 2a ┆ ******* ***** **┆
0x6e8a0…6e8c0 2a 0a 20 20 20 20 20 20 20 2a 0a 27 31 30 27 22 3b 0a 20 20 20 20 20 20 74 65 78 74 28 31 30 33 ┆* * '10'"; text(103┆
0x6e8c0…6e8e0 29 20 74 72 69 61 6e 67 32 3a 3d 20 22 27 31 30 27 0a 20 20 20 20 20 20 20 2a 0a 20 20 20 20 20 ┆) triang2:= "'10' * ┆
0x6e8e0…6e8fc 20 2a 2a 2a 0a 20 20 20 20 20 2a 2a 2a 2a 2a 0a 20 20 20 20 2a 2a 2a 2a 2a 2a 2a 0a ┆ *** ***** ******* ┆
0x6e8fc…6e902 (0x324,0xdd3)
0x6e902…6e920 20 20 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 20 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 20 2a 2a ┆ ********* *********** **┆
0x6e920…6e940 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 27 31 30 27 27 ┆*********** ***************'10''┆
0x6e940…6e960 31 30 27 22 3b 0a 20 20 20 20 20 20 77 6f 72 64 20 70 61 72 74 69 61 6c 3b 0a 20 20 20 20 20 20 ┆10'"; word partial; ┆
0x6e960…6e97a 72 65 66 20 66 69 72 73 74 2c 20 6c 61 73 74 3b 0a 20 20 20 20 20 20 72 65 66 ┆ref first, last; ref┆
0x6e97a…6e980 (0x324,0xdd4)
0x6e980…6e9a0 20 74 72 61 6e 73 72 65 66 2c 20 71 75 65 75 65 72 65 66 3b 0a 20 20 20 20 20 20 64 6f 75 62 6c ┆ transref, queueref; doubl┆
0x6e9a0…6e9c0 65 20 73 61 76 65 66 31 2c 6d 69 6e 75 73 5f 32 3a 3d 2d 32 3b 0a 20 20 20 20 20 20 77 6f 72 64 ┆e savef1,minus_2:=-2; word┆
0x6e9c0…6e9e0 20 68 61 6c 74 3b 0a 20 20 20 20 20 20 72 65 66 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 62 65 67 ┆ halt; ref return; beg┆
0x6e9e0…6ea00 69 6e 0a 20 20 20 20 20 20 72 65 74 75 72 6e 3a 3d 20 77 33 3b 20 63 61 00 00 00 00 00 00 00 00 ┆in return:= w3; ca ┆
0x6ea00…6ea06 (885,) (0x324,0xdd5)
0x6ea06…6ea20 6c 6c 20 77 33 20 72 65 74 75 72 6e 3b 20 21 20 70 73 65 75 64 6f 20 63 61 6c ┆ll w3 return; ! pseudo cal┆
0x6ea20…6ea40 6c 20 21 0a 0a 20 20 20 20 20 20 77 68 69 6c 65 20 77 31 3d 77 31 20 64 6f 0a 20 20 20 20 20 20 ┆l ! while w1=w1 do ┆
0x6ea40…6ea60 62 65 67 69 6e 20 21 20 67 65 74 20 6e 65 78 74 20 74 72 61 6e 73 70 6f 72 74 20 21 0a 20 20 20 ┆begin ! get next transport ! ┆
0x6ea60…6ea7e 20 20 20 20 20 77 31 3a 3d 20 61 64 64 72 65 73 73 28 28 77 33 29 2e 74 63 5f 6e 65 78 74 ┆ w1:= address((w3).tc_next┆
0x6ea7e…6ea84 (0x324,0xdd6)
0x6ea84…6eaa0 74 72 29 3b 0a 20 20 20 20 20 20 20 20 77 31 3a 3d 20 28 77 31 29 2e 74 71 5f 6e 65 ┆tr); w1:= (w1).tq_ne┆
0x6eaa0…6eac0 78 74 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 32 3a 3d 61 64 64 72 65 73 73 28 28 77 33 29 2e ┆xt; if w2:=address((w3).┆
0x6eac0…6eae0 74 63 5f 6e 65 78 74 74 72 29 3d 77 31 20 74 68 65 6e 20 67 6f 74 6f 20 73 75 69 63 69 64 65 3b ┆tc_nexttr)=w1 then goto suicide;┆
0x6eae0…6eafc 20 21 20 65 6e 64 20 74 72 61 6e 73 70 2e 20 71 75 65 75 65 20 21 0a 20 20 20 20 20 ┆ ! end transp. queue ! ┆
0x6eafc…6eb02 (0x324,0xdd7)
0x6eb02…6eb20 20 20 20 21 20 68 6f 6c 64 20 74 72 61 6e 70 6f 72 74 20 69 66 20 6e 6f 20 63 6f 72 6f 75 ┆ ! hold tranport if no corou┆
0x6eb20…6eb40 74 20 69 6e 20 71 75 65 75 65 20 6d 61 74 63 68 65 73 20 63 75 72 72 65 6e 74 20 21 0a 20 20 20 ┆t in queue matches current ! ┆
0x6eb40…6eb60 20 20 20 20 20 77 31 3a 3d 61 64 64 72 65 73 73 28 28 77 33 29 2e 74 63 5f 6e 65 78 74 74 72 29 ┆ w1:=address((w3).tc_nexttr)┆
0x6eb60…6eb7a 3b 0a 20 20 20 20 20 20 20 20 63 61 73 65 20 77 32 3a 3d 28 77 33 29 2e 70 72 ┆; case w2:=(w3).pr┆
0x6eb7a…6eb80 (0x324,0xdd8)
0x6eb80…6eba0 5f 73 65 6c 65 63 74 2b 31 20 6f 66 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 ┆_select+1 of begin comme┆
0x6eba0…6ebc0 6e 74 20 73 65 6c 65 63 74 20 6e 65 78 74 20 74 72 61 6e 73 70 6f 72 74 3b 0a 20 20 20 20 20 20 ┆nt select next transport; ┆
0x6ebc0…6ebe0 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 73 65 6c 65 63 74 20 70 61 70 65 72 74 79 ┆ begin comment select paperty┆
0x6ebe0…6ec00 70 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 32 3d 77 31 00 00 00 00 00 00 00 00 ┆pe; if w2=w1 ┆
0x6ec00…6ec06 (886,) (0x324,0xdd9)
0x6ec06…6ec20 20 74 68 65 6e 20 71 75 65 75 65 72 65 66 3a 3d 20 77 32 3a 3d 20 28 77 31 29 ┆ then queueref:= w2:= (w1)┆
0x6ec20…6ec40 2e 74 71 5f 6e 65 78 74 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 71 75 65 75 65 72 65 66 3a 3d ┆.tq_next; queueref:=┆
0x6ec40…6ec60 77 31 3a 3d 28 77 31 29 2e 74 71 5f 6e 65 78 74 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 68 ┆w1:=(w1).tq_next; wh┆
0x6ec60…6ec7e 69 6c 65 20 77 32 3a 3d 61 64 64 72 65 73 73 28 28 77 33 29 2e 74 63 5f 6e 65 78 74 74 72 ┆ile w2:=address((w3).tc_nexttr┆
0x6ec7e…6ec84 (0x324,0xdda)
0x6ec84…6eca0 29 3c 3e 77 31 20 64 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 ┆)<>w1 do begin ┆
0x6eca0…6ecc0 20 20 20 20 20 20 20 20 20 20 20 20 20 71 75 65 75 65 72 65 66 3a 3d 77 31 3b 0a 20 20 20 20 20 ┆ queueref:=w1; ┆
0x6ecc0…6ece0 20 20 20 20 20 20 20 20 20 6c 6f 6f 6b 74 72 61 6e 73 70 6f 72 74 28 2e 77 33 2e 2c 77 31 3a 3d ┆ looktransport(.w3.,w1:=┆
0x6ece0…6ecfc 28 77 31 29 2e 74 71 5f 74 72 61 6e 73 6e 6f 2c 77 32 29 3b 0a 20 20 20 20 20 20 20 ┆(w1).tq_transno,w2); ┆
0x6ecfc…6ed02 (0x324,0xddb)
0x6ed02…6ed20 20 20 20 20 20 20 20 74 72 61 6e 73 72 65 66 3a 3d 77 32 3b 0a 20 20 20 20 20 20 20 20 20 ┆ transref:=w2; ┆
0x6ed20…6ed40 20 20 20 20 20 63 6f 6d 70 61 72 65 28 2e 77 33 2e 2c 77 30 3a 3d 38 2c 77 31 3a 3d 61 64 64 72 ┆ compare(.w3.,w0:=8,w1:=addr┆
0x6ed40…6ed60 65 73 73 28 28 77 32 29 2e 74 72 5f 71 67 72 6f 75 70 29 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 ┆ess((w2).tr_qgroup),w2:=address(┆
0x6ed60…6ed7a 28 77 33 29 2e 74 63 5f 71 67 72 6f 75 70 29 29 3b 0a 20 20 20 20 20 20 20 20 ┆(w3).tc_qgroup)); ┆
0x6ed7a…6ed80 (0x324,0xddc)
0x6ed80…6eda0 20 20 20 20 20 20 69 66 20 77 30 3d 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ if w0=0 then ┆
0x6eda0…6edc0 20 63 6f 6d 70 61 72 65 28 2e 77 33 2e 2c 77 30 3a 3d 38 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 ┆ compare(.w3.,w0:=8,w1:=address(┆
0x6edc0…6ede0 28 77 31 3a 3d 74 72 61 6e 73 72 65 66 29 2e 74 72 5f 71 6e 61 6d 65 29 2c 0a 20 20 20 20 20 20 ┆(w1:=transref).tr_qname), ┆
0x6ede0…6ee00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ ┆
0x6ee00…6ee06 (887,) (0x324,0xddd)
0x6ee06…6ee20 20 20 20 77 32 3a 3d 61 64 64 72 65 73 73 28 28 77 33 29 2e 74 63 5f 71 6e 61 ┆ w2:=address((w3).tc_qna┆
0x6ee20…6ee40 6d 65 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 68 61 6c 74 3a 3d 77 30 3b 0a 20 20 ┆me)); halt:=w0; ┆
0x6ee40…6ee60 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3d 30 20 74 68 65 6e 20 77 31 3a 3d 61 64 64 ┆ if w0=0 then w1:=add┆
0x6ee60…6ee7e 72 65 73 73 28 28 77 33 29 2e 74 63 5f 6e 65 78 74 74 72 29 20 65 6c 73 65 0a 20 20 20 20 ┆ress((w3).tc_nexttr) else ┆
0x6ee7e…6ee84 (0x324,0xdde)
0x6ee84…6eea0 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ begin ┆
0x6eea0…6eec0 20 20 20 20 77 31 3a 3d 71 75 65 75 65 72 65 66 2e 74 71 5f 6e 65 78 74 3b 0a 20 20 20 20 20 20 ┆ w1:=queueref.tq_next; ┆
0x6eec0…6eee0 20 20 20 20 20 20 20 20 20 20 71 75 65 75 65 72 65 66 3a 3d 77 31 3b 0a 20 20 20 20 20 20 20 20 ┆ queueref:=w1; ┆
0x6eee0…6eefc 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a ┆ end; end; ┆
0x6eefc…6ef02 (0x324,0xddf)
0x6ef02…6ef20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e ┆ end; begin┆
0x6ef20…6ef40 20 63 6f 6d 6d 65 6e 74 20 73 65 6c 65 63 74 20 66 69 72 73 74 20 74 72 61 6e 73 70 6f 72 74 3b ┆ comment select first transport;┆
0x6ef40…6ef60 0a 20 20 20 20 20 20 20 20 20 20 20 20 71 75 65 75 65 72 65 66 3a 3d 77 31 3a 3d 28 77 31 29 2e ┆ queueref:=w1:=(w1).┆
0x6ef60…6ef7a 74 71 5f 6e 65 78 74 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 ┆tq_next; end; ┆
0x6ef7a…6ef80 (0x324,0xde0)
0x6ef80…6efa0 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 73 65 6c 65 63 74 20 6c 61 73 ┆ begin comment select las┆
0x6efa0…6efc0 74 20 74 72 61 6e 73 70 6f 72 74 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 71 75 65 75 65 72 65 ┆t transport; queuere┆
0x6efc0…6efe0 66 3a 3d 77 31 3a 3d 28 77 31 29 2e 74 71 5f 70 72 65 76 3b 0a 20 20 20 20 20 20 20 20 20 20 65 ┆f:=w1:=(w1).tq_prev; e┆
0x6efe0…6f000 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 00 00 00 00 00 00 00 00 ┆nd; begin comm ┆
0x6f000…6f006 (888,) (0x324,0xde1)
0x6f006…6f020 65 6e 74 20 73 65 6c 65 63 74 20 6e 65 78 74 20 74 72 61 6e 73 70 6f 72 74 3b ┆ent select next transport;┆
0x6f020…6f040 0a 20 20 20 20 20 20 20 20 20 20 20 20 71 75 65 75 65 72 65 66 3a 3d 77 31 3a 3d 28 77 31 3a 3d ┆ queueref:=w1:=(w1:=┆
0x6f040…6f060 28 77 33 29 2e 70 72 5f 71 75 65 72 65 66 29 2e 74 71 5f 6e 65 78 74 3b 0a 20 20 20 20 20 20 20 ┆(w3).pr_queref).tq_next; ┆
0x6f060…6f07e 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e ┆ end; begin commen┆
0x6f07e…6f084 (0x324,0xde2)
0x6f084…6f0a0 74 20 73 65 6c 65 63 74 20 70 72 65 76 69 6f 75 73 20 74 72 61 6e 73 70 6f 72 74 3b ┆t select previous transport;┆
0x6f0a0…6f0c0 0a 20 20 20 20 20 20 20 20 20 20 20 20 71 75 65 75 65 72 65 66 3a 3d 77 32 3a 3d 28 77 32 3a 3d ┆ queueref:=w2:=(w2:=┆
0x6f0c0…6f0e0 28 77 33 29 2e 70 72 5f 71 75 65 72 65 66 29 2e 74 71 5f 70 72 65 76 3b 0a 20 20 20 20 20 20 20 ┆(w3).pr_queref).tq_prev; ┆
0x6f0e0…6f0fc 20 20 20 20 20 69 66 20 77 32 3d 77 31 20 74 68 65 6e 20 71 75 65 75 65 72 65 66 3a ┆ if w2=w1 then queueref:┆
0x6f0fc…6f102 (0x324,0xde3)
0x6f102…6f120 3d 20 77 32 3a 3d 20 28 77 31 29 2e 74 71 5f 70 72 65 76 3b 0a 20 20 20 20 20 20 20 20 20 ┆= w2:= (w1).tq_prev; ┆
0x6f120…6f140 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 73 65 ┆ end; begin comment se┆
0x6f140…6f160 6c 65 63 74 20 73 75 73 70 65 6e 64 65 64 20 74 72 61 6e 73 70 6f 72 74 3b 0a 20 20 20 20 20 20 ┆lect suspended transport; ┆
0x6f160…6f17a 20 20 20 20 20 20 77 32 3a 3d 77 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ w2:=w1; ┆
0x6f17a…6f180 (0x324,0xde4)
0x6f180…6f1a0 77 31 3a 3d 28 77 31 29 2e 74 71 5f 6e 65 78 74 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 68 ┆w1:=(w1).tq_next; wh┆
0x6f1a0…6f1c0 69 6c 65 20 77 32 3c 3e 77 31 20 64 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a ┆ile w2<>w1 do begin ┆
0x6f1c0…6f1e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 30 3a 3d 28 77 31 29 2e 74 71 5f 73 75 73 70 65 6e ┆ f0:=(w1).tq_suspen┆
0x6f1e0…6f200 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 30 20 6f 72 20 77 00 00 00 00 00 00 00 00 ┆d; w0 or w ┆
0x6f200…6f206 (889,) (0x324,0xde5)
0x6f206…6f220 33 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 30 20 6f 72 20 77 33 3b ┆3; w0 or w3;┆
0x6f220…6f240 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3c 3e 30 20 74 68 65 6e 0a 20 20 20 ┆ if w0<>0 then ┆
0x6f240…6f260 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 66 6f 75 6e 64 3b 0a ┆ begin comment found; ┆
0x6f260…6f27e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 77 31 3b 0a 20 20 20 20 20 20 ┆ w2:=w1; ┆
0x6f27e…6f284 (0x324,0xde6)
0x6f284…6f2a0 20 20 20 20 20 20 20 20 65 6e 64 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ end else ┆
0x6f2a0…6f2c0 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 6e 6f 74 20 66 6f 75 6e 64 3b 0a 20 20 20 20 ┆ begin comment not found; ┆
0x6f2c0…6f2e0 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 20 28 77 31 29 2e 74 71 5f 6e 65 78 74 3b 0a 20 ┆ w1:= (w1).tq_next; ┆
0x6f2e0…6f2fc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 63 68 65 63 6b ┆ comment check┆
0x6f2fc…6f302 (0x324,0xde7)
0x6f302…6f320 20 65 6e 64 20 6f 66 20 63 68 61 69 6e 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ end of chain; ┆
0x6f320…6f340 20 69 66 20 77 31 3d 77 32 20 74 68 65 6e 20 77 32 3a 3d 20 77 31 3a 3d 20 28 77 31 29 2e 74 71 ┆ if w1=w2 then w2:= w1:= (w1).tq┆
0x6f340…6f360 5f 6e 65 78 74 3b 20 21 20 73 6b 69 70 20 68 65 61 64 65 72 20 73 65 6c 65 63 74 20 66 69 72 73 ┆_next; ! skip header select firs┆
0x6f360…6f37a 74 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 ┆t ! end; ┆
0x6f37a…6f380 (0x324,0xde8)
0x6f380…6f3a0 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 71 75 65 75 65 72 ┆ end; queuer┆
0x6f3a0…6f3c0 65 66 3a 3d 77 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 62 2e 63 75 72 72 65 6e ┆ef:=w1; w3:=b.curren┆
0x6f3c0…6f3e0 74 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 20 21 ┆t; end; end; !┆
0x6f3e0…6f400 20 65 6e 64 20 63 61 73 65 20 21 0a 0a 20 20 20 20 20 20 20 20 28 77 33 00 00 00 00 00 00 00 00 ┆ end case ! (w3 ┆
0x6f400…6f406 (890,) (0x324,0xde9)
0x6f406…6f420 29 2e 70 72 5f 73 65 6c 65 63 74 20 3a 3d 20 77 30 20 3a 3d 20 30 3b 0a 20 20 ┆).pr_select := w0 := 0; ┆
0x6f420…6f440 20 20 20 20 20 20 69 66 20 77 32 3a 3d 61 64 64 72 65 73 73 28 28 77 33 29 2e 74 63 5f 6e 65 78 ┆ if w2:=address((w3).tc_nex┆
0x6f440…6f460 74 74 72 29 3d 77 31 3a 3d 71 75 65 75 65 72 65 66 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 62 ┆ttr)=w1:=queueref then b┆
0x6f460…6f47e 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 68 61 6c 74 3a 3d 20 77 30 3a 3d 20 31 3b 0a ┆egin halt:= w0:= 1; ┆
0x6f47e…6f484 (0x324,0xdea)
0x6f484…6f4a0 20 20 20 20 20 20 20 20 20 20 71 75 65 75 65 72 65 66 3a 3d 77 31 3a 3d 28 77 31 29 ┆ queueref:=w1:=(w1)┆
0x6f4a0…6f4c0 2e 74 71 5f 6e 65 78 74 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 28 ┆.tq_next; end; (┆
0x6f4c0…6f4e0 77 33 29 2e 70 72 5f 71 75 65 72 65 66 3a 3d 77 31 3b 0a 20 20 20 20 20 20 20 20 6c 6f 6f 6b 74 ┆w3).pr_queref:=w1; lookt┆
0x6f4e0…6f4fc 72 61 6e 73 70 6f 72 74 28 2e 77 33 2e 2c 77 31 3a 3d 28 77 31 29 2e 74 71 5f 74 72 ┆ransport(.w3.,w1:=(w1).tq_tr┆
0x6f4fc…6f502 (0x324,0xdeb)
0x6f502…6f520 61 6e 73 6e 6f 2c 77 32 29 3b 0a 20 20 20 20 20 20 20 20 74 72 61 6e 73 72 65 66 3a 3d 77 ┆ansno,w2); transref:=w┆
0x6f520…6f540 32 3b 0a 20 20 20 20 20 20 20 20 77 31 3a 3d 20 71 75 65 75 65 72 65 66 3b 0a 20 20 20 20 20 20 ┆2; w1:= queueref; ┆
0x6f540…6f560 20 20 77 32 3a 3d 20 74 72 61 6e 73 72 65 66 3b 0a 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 63 ┆ w2:= transref; (w3).tc┆
0x6f560…6f57a 5f 6f 69 6e 74 65 72 76 65 6e 74 3a 3d 20 77 30 3a 3d 20 30 3b 0a 20 20 20 20 ┆_ointervent:= w0:= 0; ┆
0x6f57a…6f580 (0x324,0xdec)
0x6f580…6f5a0 20 20 20 20 28 77 33 29 2e 74 63 5f 61 69 6e 74 65 72 76 65 6e 74 3a 3d 20 77 30 3b 0a 20 20 20 ┆ (w3).tc_aintervent:= w0; ┆
0x6f5a0…6f5c0 20 20 20 20 20 28 77 33 29 2e 74 63 5f 6d 6f 64 65 3a 3d 20 77 30 3a 3d 20 28 77 32 29 2e 74 72 ┆ (w3).tc_mode:= w0:= (w2).tr┆
0x6f5c0…6f5e0 5f 6d 6f 64 65 3b 0a 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 62 73 6c 3a 3d 20 77 30 3a ┆_mode; (w3).tc_bsl:= w0:┆
0x6f5e0…6f600 3d 20 28 77 32 29 2e 74 72 5f 62 61 73 65 6c 3b 0a 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆= (w2).tr_basel; ┆
0x6f600…6f606 (891,) (0x324,0xded)
0x6f606…6f620 20 28 77 33 29 2e 74 63 5f 62 73 75 3a 3d 20 77 30 3a 3d 20 28 77 32 29 2e 74 ┆ (w3).tc_bsu:= w0:= (w2).t┆
0x6f620…6f640 72 5f 62 61 73 65 75 3b 0a 20 20 20 20 20 20 20 20 66 31 3a 3d 28 77 31 29 2e 74 71 5f 73 75 73 ┆r_baseu; f1:=(w1).tq_sus┆
0x6f640…6f660 70 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 77 30 20 6f 72 20 77 31 3b 0a 20 20 20 20 20 20 20 20 ┆pend; w0 or w1; ┆
0x6f660…6f67e 69 66 20 77 30 3c 3e 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f ┆if w0<>0 then begin co┆
0x6f67e…6f684 (0x324,0xdee)
0x6f684…6f6a0 6d 6d 65 6e 74 20 73 75 73 70 65 6e 64 65 64 20 74 72 61 6e 73 70 6f 72 74 3b 0a 20 ┆mment suspended transport; ┆
0x6f6a0…6f6c0 20 20 20 20 20 20 20 20 20 77 32 3a 3d 28 77 33 29 2e 70 72 5f 71 75 65 72 65 66 3b 0a 20 20 20 ┆ w2:=(w3).pr_queref; ┆
0x6f6c0…6f6e0 20 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 62 73 70 74 72 3a 3d 20 66 31 3a 3d 20 28 77 32 29 ┆ (w3).tc_bsptr:= f1:= (w2)┆
0x6f6e0…6f6fc 2e 74 71 5f 73 75 73 70 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 28 ┆.tq_suspend; w1:=(┆
0x6f6fc…6f702 (0x324,0xdef)
0x6f702…6f720 77 33 29 2e 70 72 5f 71 75 65 72 65 66 3b 0a 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 74 ┆w3).pr_queref; w2:=t┆
0x6f720…6f740 72 61 6e 73 72 65 66 3b 0a 20 20 20 20 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 69 66 20 6e 6f ┆ransref; comment if no┆
0x6f740…6f760 74 68 69 6e 67 20 65 6c 73 65 20 74 68 65 6e 20 72 65 70 65 61 74 20 32 20 70 61 67 65 73 3b 0a ┆thing else then repeat 2 pages; ┆
0x6f760…6f77a 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 6f 69 6e 74 65 72 76 65 ┆ (w3).tc_ointerve┆
0x6f77a…6f780 (0x324,0xdf0)
0x6f780…6f7a0 6e 74 20 3a 3d 20 77 30 20 3a 3d 20 33 3b 20 21 20 72 65 70 65 61 74 20 20 20 20 21 0a 20 20 20 ┆nt := w0 := 3; ! repeat ! ┆
0x6f7a0…6f7c0 20 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 77 6f 72 6b 66 66 73 20 3a 3d 20 77 30 20 3a 3d 20 ┆ (w3).tc_workffs := w0 := ┆
0x6f7c0…6f7e0 32 3b 20 20 20 20 21 20 32 20 70 61 67 65 73 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 68 61 ┆2; ! 2 pages ! ha┆
0x6f7e0…6f800 6c 74 3a 3d 77 30 3a 3d 31 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 20 65 00 00 00 00 00 00 00 00 ┆lt:=w0:=1; end e ┆
0x6f800…6f806 (892,) (0x324,0xdf1)
0x6f806…6f820 6c 73 65 0a 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 62 73 70 74 72 3a ┆lse (w3).tc_bsptr:┆
0x6f820…6f840 3d 20 66 31 3a 3d 20 28 77 32 29 2e 74 72 5f 62 73 73 74 61 72 74 70 74 72 3b 0a 20 20 20 20 20 ┆= f1:= (w2).tr_bsstartptr; ┆
0x6f840…6f860 20 20 20 28 77 33 29 2e 74 63 5f 73 74 61 74 65 3a 3d 20 77 30 3a 3d 20 30 3b 0a 20 20 20 20 20 ┆ (w3).tc_state:= w0:= 0; ┆
0x6f860…6f87e 20 20 20 6d 6f 76 65 28 2e 77 33 2e 2c 77 30 3a 3d 38 2c 77 31 3a 3d 61 64 64 72 65 73 73 ┆ move(.w3.,w0:=8,w1:=address┆
0x6f87e…6f884 (0x324,0xdf2)
0x6f884…6f8a0 28 28 77 32 29 2e 74 72 5f 62 73 61 72 65 61 29 2c 77 32 3a 3d 61 64 64 72 65 73 73 ┆((w2).tr_bsarea),w2:=address┆
0x6f8a0…6f8c0 28 28 77 33 29 2e 74 63 5f 62 73 6e 61 6d 65 29 29 3b 0a 20 20 20 20 20 20 20 20 6d 6f 76 65 28 ┆((w3).tc_bsname)); move(┆
0x6f8c0…6f8e0 2e 77 33 2e 2c 77 30 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 28 77 31 3a 3d 74 72 61 6e 73 72 65 ┆.w3.,w0,w1:=address((w1:=transre┆
0x6f8e0…6f8fc 66 29 2e 74 72 5f 71 67 72 6f 75 70 29 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆f).tr_qgroup), ┆
0x6f8fc…6f902 (0x324,0xdf3)
0x6f902…6f920 20 20 20 20 20 77 32 3a 3d 61 64 64 72 65 73 73 28 28 77 33 29 2e 74 63 5f 71 67 72 6f 75 ┆ w2:=address((w3).tc_qgrou┆
0x6f920…6f940 70 29 29 3b 0a 20 20 20 20 20 20 20 20 6d 6f 76 65 28 2e 77 33 2e 2c 77 30 2c 77 31 3a 3d 61 64 ┆p)); move(.w3.,w0,w1:=ad┆
0x6f940…6f960 64 72 65 73 73 28 28 77 31 3a 3d 74 72 61 6e 73 72 65 66 29 2e 74 72 5f 71 6e 61 6d 65 29 2c 0a ┆dress((w1:=transref).tr_qname), ┆
0x6f960…6f97a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 61 64 64 72 ┆ w2:=addr┆
0x6f97a…6f980 (0x324,0xdf4)
0x6f980…6f9a0 65 73 73 28 28 77 33 29 2e 74 63 5f 71 6e 61 6d 65 29 29 3b 0a 20 20 20 20 20 20 20 20 69 66 20 ┆ess((w3).tc_qname)); if ┆
0x6f9a0…6f9c0 77 30 3a 3d 28 77 33 29 2e 70 72 5f 68 65 61 64 74 72 61 69 6c 3c 3e 30 20 74 68 65 6e 20 28 77 ┆w0:=(w3).pr_headtrail<>0 then (w┆
0x6f9c0…6f9e0 33 29 2e 70 72 5f 69 6e 70 73 74 61 74 65 3a 3d 20 77 30 3a 3d 20 2d 33 0a 20 20 20 20 20 20 20 ┆3).pr_inpstate:= w0:= -3 ┆
0x6f9e0…6fa00 20 65 6c 73 65 20 28 77 33 29 2e 70 72 5f 69 6e 70 73 74 61 74 65 3a 3d 00 00 00 00 00 00 00 00 ┆ else (w3).pr_inpstate:= ┆
0x6fa00…6fa06 (893,) (0x324,0xdf5)
0x6fa06…6fa20 20 77 30 3b 0a 20 20 20 20 20 20 20 20 77 30 3a 3d 28 77 33 29 2e 70 72 5f 64 ┆ w0; w0:=(w3).pr_d┆
0x6fa20…6fa40 72 61 69 6e 3b 0a 20 20 20 20 20 20 20 20 77 30 20 6f 72 20 68 61 6c 74 3b 0a 20 20 20 20 20 20 ┆rain; w0 or halt; ┆
0x6fa40…6fa60 20 20 69 66 20 77 30 3c 3e 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 21 20 ┆ if w0<>0 then begin ! ┆
0x6fa60…6fa7e 68 6f 6c 64 20 64 65 76 69 63 65 20 21 0a 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 70 ┆hold device ! (w3).p┆
0x6fa7e…6fa84 (0x324,0xdf6)
0x6fa84…6faa0 72 5f 64 72 61 69 6e 3a 3d 20 77 30 3a 3d 20 31 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆r_drain:= w0:= 1; ┆
0x6faa0…6fac0 6f 70 72 6f 75 74 70 75 74 28 2e 77 33 2e 2c 77 30 3a 3d 31 2c 77 31 3a 3d 31 2c 77 32 29 3b 0a ┆oproutput(.w3.,w0:=1,w1:=1,w2); ┆
0x6fac0…6fae0 20 20 20 20 20 20 20 20 20 20 69 66 20 77 32 3c 3e 32 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 ┆ if w2<>2 then ┆
0x6fae0…6fafc 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f ┆ begin (w3).tc_┆
0x6fafc…6fb02 (0x324,0xdf7)
0x6fb02…6fb20 73 74 61 74 65 3a 3d 20 77 30 3a 3d 20 36 3b 20 21 20 61 62 6f 72 74 65 64 20 21 0a 20 20 ┆state:= w0:= 6; ! aborted ! ┆
0x6fb20…6fb40 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 63 61 75 73 65 3a 3d 20 77 30 3a 3d 20 33 ┆ (w3).tc_cause:= w0:= 3┆
0x6fb40…6fb60 3b 20 21 20 6f 70 65 72 61 74 6f 72 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e ┆; ! operator ! (w3).┆
0x6fb60…6fb7a 74 63 5f 73 74 61 74 75 73 3a 3d 20 77 32 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆tc_status:= w2; ┆
0x6fb7a…6fb80 (0x324,0xdf8)
0x6fb80…6fba0 20 20 28 77 33 29 2e 74 63 5f 6f 69 6e 74 65 72 76 65 6e 74 20 3a 3d 20 77 30 20 3a 3d 20 30 3b ┆ (w3).tc_ointervent := w0 := 0;┆
0x6fba0…6fbc0 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 70 72 5f 69 6e 70 73 74 61 74 65 20 3a 3d ┆ (w3).pr_inpstate :=┆
0x6fbc0…6fbe0 20 77 30 20 3a 3d 20 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 70 72 5f 61 63 ┆ w0 := 1; goto pr_ac┆
0x6fbe0…6fc00 74 69 6f 6e 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 00 00 00 00 00 00 00 00 ┆tion; end; ┆
0x6fc00…6fc06 (894,) (0x324,0xdf9)
0x6fc06…6fc20 20 20 20 20 20 20 20 68 6f 6c 64 28 2e 77 33 2e 2c 77 30 3a 3d 30 29 3b 28 77 ┆ hold(.w3.,w0:=0);(w┆
0x6fc20…6fc40 33 29 2e 74 63 5f 68 65 6c 64 3a 3d 77 30 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 20 28 77 33 ┆3).tc_held:=w0:=0; (w3┆
0x6fc40…6fc60 29 2e 70 72 5f 64 72 61 69 6e 3a 3d 20 77 30 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 ┆).pr_drain:= w0:= 0; end┆
0x6fc60…6fc7e 3b 0a 0a 0a 20 20 20 20 20 20 20 20 6f 70 65 6e 62 73 28 2e 77 33 2e 29 3b 20 21 20 70 72 ┆; openbs(.w3.); ! pr┆
0x6fc7e…6fc84 (0x324,0xdfa)
0x6fc84…6fca0 65 70 61 72 65 20 61 72 65 61 20 21 0a 20 20 20 20 20 20 20 20 66 31 20 6c 73 68 69 ┆epare area ! f1 lshi┆
0x6fca0…6fcc0 66 74 20 31 30 30 3b 0a 20 20 20 20 20 20 20 20 77 32 3a 3d 28 77 33 29 2e 70 72 5f 71 75 65 72 ┆ft 100; w2:=(w3).pr_quer┆
0x6fcc0…6fce0 65 66 3b 0a 20 20 20 20 20 20 20 20 28 77 32 29 2e 74 71 5f 73 75 73 70 65 6e 64 3a 3d 20 66 31 ┆ef; (w2).tq_suspend:= f1┆
0x6fce0…6fcfc 3b 0a 20 20 20 20 20 20 20 20 6c 6f 6f 6b 74 72 61 6e 73 70 6f 72 74 28 2e 77 33 2e ┆; looktransport(.w3.┆
0x6fcfc…6fd02 (0x324,0xdfb)
0x6fd02…6fd20 2c 77 31 3a 3d 28 77 32 29 2e 74 71 5f 74 72 61 6e 73 6e 6f 2c 77 32 29 3b 0a 20 20 20 20 ┆,w1:=(w2).tq_transno,w2); ┆
0x6fd20…6fd40 20 20 20 20 69 66 20 77 32 3c 3d 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 ┆ if w2<=0 then begin ┆
0x6fd40…6fd60 63 6f 6d 6d 65 6e 74 20 6b 69 6c 6c 65 64 20 62 79 20 61 70 70 6c 69 63 61 74 69 6f 6e 20 77 68 ┆comment killed by application wh┆
0x6fd60…6fd7a 69 6c 65 20 77 61 69 74 69 6e 67 20 66 6f 72 20 61 63 74 69 76 61 74 69 6f 6e ┆ile waiting for activation┆
0x6fd7a…6fd80 (0x324,0xdfc)
0x6fd80…6fda0 3b 0a 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 6f 69 6e 74 65 72 76 65 6e 74 20 3a ┆; (w3).tc_ointervent :┆
0x6fda0…6fdc0 3d 20 77 30 20 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 61 69 6e ┆= w0 := 0; (w3).tc_ain┆
0x6fdc0…6fde0 74 65 72 76 65 6e 74 20 3a 3d 20 77 30 20 3a 3d 20 31 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b ┆tervent := w0 := 1; end;┆
0x6fde0…6fe00 0a 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 74 72 61 6e 73 6e 6f 00 00 00 00 00 00 00 00 ┆ (w3).tc_transno ┆
0x6fe00…6fe06 (895,) (0x324,0xdfd)
0x6fe06…6fe20 20 3a 3d 20 77 31 3b 0a 0a 0a 6c 6f 6f 70 3a 0a 20 20 20 20 20 20 20 20 69 66 ┆ := w1; loop: if┆
0x6fe20…6fe40 20 77 32 3a 3d 28 77 33 29 2e 74 63 5f 6f 69 6e 74 65 72 76 65 6e 74 3c 3e 30 20 74 68 65 6e 0a ┆ w2:=(w3).tc_ointervent<>0 then ┆
0x6fe40…6fe60 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 6f 70 65 72 61 74 6f 72 20 69 ┆ begin comment operator i┆
0x6fe60…6fe7e 6e 74 65 72 76 65 6e 74 69 6f 6e 3b 0a 20 20 20 20 20 20 20 20 20 20 63 61 73 65 20 77 32 ┆ntervention; case w2┆
0x6fe7e…6fe84 (0x324,0xdfe)
0x6fe84…6fea0 20 6f 66 20 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 ┆ of begin ┆
0x6fea0…6fec0 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 73 74 61 72 74 20 63 6f 6d 6d 61 6e 64 ┆ begin comment start command┆
0x6fec0…6fee0 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 61 64 64 72 65 73 73 28 74 5f 73 74 ┆; w1:=address(t_st┆
0x6fee0…6fefc 61 72 74 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 ┆art); end; ┆
0x6fefc…6ff02 (0x324,0xdff)
0x6ff02…6ff20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 73 6b 69 70 20 61 63 74 69 ┆ begin comment skip acti┆
0x6ff20…6ff40 6f 6e 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 6f 6f 6b 74 72 61 6e 73 70 6f 72 74 28 ┆on; looktransport(┆
0x6ff40…6ff60 2e 77 33 2e 2c 77 31 3a 3d 28 77 33 29 2e 74 63 5f 74 72 61 6e 73 6e 6f 2c 77 32 29 3b 0a 20 20 ┆.w3.,w1:=(w3).tc_transno,w2); ┆
0x6ff60…6ff7a 20 20 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 77 6f 72 6b 6e 6c ┆ (w3).tc_worknl┆
0x6ff7a…6ff80 (0x324,0xe00)
0x6ff80…6ffa0 73 20 3a 3d 20 77 30 20 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 33 29 ┆s := w0 := 0; (w3)┆
0x6ffa0…6ffc0 2e 70 72 5f 70 61 72 74 69 61 6c 20 3a 3d 20 77 30 20 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆.pr_partial := w0 ; ┆
0x6ffc0…6ffe0 20 20 28 77 33 29 2e 70 72 5f 77 6f 72 6b 70 74 72 20 3a 3d 20 66 31 20 3a 3d 20 28 77 33 29 2e ┆ (w3).pr_workptr := f1 := (w3).┆
0x6ffe0…70000 74 63 5f 62 73 70 74 72 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆tc_bsptr; ┆
0x70000…70006 (896,) (0x324,0xe01)
0x70006…70020 28 77 33 29 2e 70 72 5f 77 6f 72 6b 73 74 61 72 74 70 74 72 20 3a 3d 20 66 31 ┆(w3).pr_workstartptr := f1┆
0x70020…70040 20 3a 3d 20 28 77 32 29 2e 74 72 5f 62 73 73 74 61 72 74 70 74 72 3b 0a 20 20 20 20 20 20 20 20 ┆ := (w2).tr_bsstartptr; ┆
0x70040…70060 20 20 20 20 20 20 77 68 69 6c 65 20 77 30 3a 3d 28 77 33 29 2e 74 63 5f 77 6f 72 6b 66 66 73 3e ┆ while w0:=(w3).tc_workffs>┆
0x70060…7007e 30 20 64 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 ┆0 do begin comme┆
0x7007e…70084 (0x324,0xe02)
0x70084…700a0 6e 74 20 73 6b 69 70 20 75 6e 74 69 6c 20 61 6e 20 61 70 70 72 6f 70 69 61 74 65 20 ┆nt skip until an appropiate ┆
0x700a0…700c0 6e 75 6d 62 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 66 20 66 66 ┆number of ff┆
0x700c0…700e0 27 73 2c 20 6e 6c 27 73 20 6f 72 20 65 6e 64 20 6d 65 64 69 75 6d 20 69 73 20 6d 65 74 3b 0a 20 ┆'s, nl's or end medium is met; ┆
0x700e0…700fc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 28 77 33 29 2e 74 63 5f 62 ┆ w1:=(w3).tc_b┆
0x700fc…70102 (0x324,0xe03)
0x70102…70120 75 66 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 65 74 5f 62 6c 6f 63 6b 28 ┆uf; get_block(┆
0x70120…70140 2e 77 33 2e 2c 77 30 3a 3d 28 77 33 29 2e 74 63 5f 62 75 66 73 69 7a 65 2c 0a 20 20 20 20 20 20 ┆.w3.,w0:=(w3).tc_bufsize, ┆
0x70140…70160 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 61 64 64 72 ┆ w1:=addr┆
0x70160…7017a 65 73 73 28 28 77 31 29 2e 62 75 66 5f 64 61 74 61 31 29 2c 77 32 29 3b 0a 20 ┆ess((w1).buf_data1),w2); ┆
0x7017a…70180 (0x324,0xe04)
0x70180…701a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3c 3d 30 20 74 68 65 6e 20 28 77 33 ┆ if w0<=0 then (w3┆
0x701a0…701c0 29 2e 74 63 5f 77 6f 72 6b 66 66 73 20 3a 3d 20 77 30 20 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 ┆).tc_workffs := w0 := 0; ┆
0x701c0…701e0 20 20 20 20 20 20 20 20 20 77 31 3a 3d 28 77 33 29 2e 74 63 5f 62 75 66 3b 66 69 72 73 74 3a 3d ┆ w1:=(w3).tc_buf;first:=┆
0x701e0…70200 77 32 3a 3d 61 64 64 72 65 73 73 28 28 77 31 29 2e 62 75 66 5f 64 61 74 00 00 00 00 00 00 00 00 ┆w2:=address((w1).buf_dat ┆
0x70200…70206 (897,) (0x324,0xe05)
0x70206…70220 61 31 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 32 2d 32 3b ┆a1); w2-2;┆
0x70220…70240 77 30 2b 77 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 61 73 74 3a 3d 77 30 3b ┆w0+w2; last:=w0;┆
0x70240…70260 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 68 69 6c 65 20 77 32 2b 32 3c 3d 6c 61 73 ┆ while w2+2<=las┆
0x70260…7027e 74 20 64 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d ┆t do begin com┆
0x7027e…70284 (0x324,0xe06)
0x70284…702a0 6d 65 6e 74 20 63 68 65 63 6b 20 62 75 66 66 65 72 3b 0a 20 20 20 20 20 20 20 20 20 ┆ment check buffer; ┆
0x702a0…702c0 20 20 20 20 20 20 20 20 20 77 31 3a 3d 28 77 32 29 2e 77 6f 72 64 3b 0a 20 20 20 20 20 20 20 20 ┆ w1:=(w2).word; ┆
0x702c0…702e0 20 20 20 20 20 20 20 20 20 20 69 66 20 77 31 20 6f 6e 65 6d 61 73 6b 20 20 20 32 31 30 35 33 37 ┆ if w1 onemask 210537┆
0x702e0…702fc 36 20 74 68 65 6e 20 77 31 3a 3d 30 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 ┆6 then w1:=0 else ┆
0x702fc…70302 (0x324,0xe07)
0x70302…70320 20 20 20 20 20 20 20 20 69 66 20 77 31 20 7a 65 72 6f 6d 61 73 6b 20 2d 32 30 39 37 31 35 ┆ if w1 zeromask -209715┆
0x70320…70340 32 20 74 68 65 6e 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 ┆2 then else if┆
0x70340…70360 20 77 31 20 7a 65 72 6f 6d 61 73 6b 20 20 20 20 35 37 33 34 34 20 74 68 65 6e 20 65 6c 73 65 0a ┆ w1 zeromask 57344 then else ┆
0x70360…7037a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 31 20 7a 65 ┆ if w1 ze┆
0x7037a…70380 (0x324,0xe08)
0x70380…703a0 72 6f 6d 61 73 6b 20 20 20 20 20 20 32 32 34 20 74 68 65 6e 20 65 6c 73 65 20 77 31 3a 3d 30 3b ┆romask 224 then else w1:=0;┆
0x703a0…703c0 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 68 69 6c 65 20 77 31 3c 3e 30 20 64 ┆ while w1<>0 d┆
0x703c0…703e0 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e ┆o begin commen┆
0x703e0…70400 74 20 64 6f 20 69 74 20 74 68 65 20 73 6c 6f 77 20 77 61 79 3b 0a 20 20 00 00 00 00 00 00 00 00 ┆t do it the slow way; ┆
0x70400…70406 (898,) (0x324,0xe09)
0x70406…70420 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 30 3b 0a 20 ┆ w0:=0; ┆
0x70420…70440 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 31 20 6c 73 68 69 66 74 20 38 3b 0a ┆ f1 lshift 8; ┆
0x70440…70460 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3d 31 30 20 74 68 65 ┆ if w0=10 the┆
0x70460…7047e 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f ┆n begin co┆
0x7047e…70484 (0x324,0xe0a)
0x70484…704a0 6d 6d 65 6e 74 20 6e 65 77 6c 69 6e 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆mment newline; ┆
0x704a0…704c0 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 77 6f 72 6b 6e 6c 73 20 3a 3d 20 77 30 20 3a ┆ (w3).tc_worknls := w0 :┆
0x704c0…704e0 3d 20 28 77 33 29 2e 74 63 5f 77 6f 72 6b 6e 6c 73 20 2b 20 31 3b 0a 20 20 20 20 20 20 20 20 20 ┆= (w3).tc_worknls + 1; ┆
0x704e0…704fc 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 20 3d 20 62 2e 70 72 6c 70 61 ┆ if w0 = b.prlpa┆
0x704fc…70502 (0x324,0xe0b)
0x70502…70520 67 65 20 74 68 65 6e 20 77 30 3a 3d 31 32 20 65 6c 73 65 20 77 30 3a 3d 30 3b 0a 20 20 20 ┆ge then w0:=12 else w0:=0; ┆
0x70520…70540 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆ end; ┆
0x70540…70560 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3d 31 32 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 ┆ if w0=12 then ┆
0x70560…7057a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 ┆ begin comment ┆
0x7057a…70580 (0x324,0xe0c)
0x70580…705a0 66 6f 72 6d 66 65 65 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆formfeed; ┆
0x705a0…705c0 28 77 33 29 2e 74 63 5f 77 6f 72 6b 6e 6c 73 20 3a 3d 20 77 30 20 3a 3d 20 30 3b 0a 20 20 20 20 ┆(w3).tc_worknls := w0 := 0; ┆
0x705c0…705e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 77 6f 72 6b 66 66 ┆ (w3).tc_workff┆
0x705e0…70600 73 73 20 3a 3d 20 77 30 20 3a 3d 20 28 77 33 29 2e 74 63 5f 77 6f 72 6b 00 00 00 00 00 00 00 00 ┆ss := w0 := (w3).tc_work ┆
0x70600…70606 (899,) (0x324,0xe0d)
0x70606…70620 66 66 73 20 2d 20 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ffs - 1; ┆
0x70620…70640 20 20 20 20 20 69 66 20 77 30 3c 31 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ if w0<1 then ┆
0x70640…70660 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 73 74 6f 70 20 73 65 61 72 63 ┆ begin comment stop searc┆
0x70660…7067e 68 69 6e 67 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆hing; ┆
0x7067e…70684 (0x324,0xe0e)
0x70684…706a0 77 30 3a 3d 31 32 3b 66 31 20 6c 73 68 69 66 74 20 2d 38 3b 0a 20 20 20 20 20 20 20 ┆w0:=12;f1 lshift -8; ┆
0x706a0…706c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 70 72 5f 70 61 72 74 69 61 6c ┆ (w3).pr_partial┆
0x706c0…706e0 20 3a 3d 20 77 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ := w1; ┆
0x706e0…706fc 77 32 2d 32 3b 6c 61 73 74 3a 3d 77 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆w2-2;last:=w2; ┆
0x706fc…70702 (0x324,0xe0f)
0x70702…70720 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ w1:=0; ┆
0x70720…70740 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ end; ┆
0x70740…70760 20 20 20 65 6e 64 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ end else ┆
0x70760…7077a 69 66 20 77 30 3d 32 35 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆if w0=25 then ┆
0x7077a…70780 (0x324,0xe10)
0x70780…707a0 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 65 6e 64 20 6f 66 20 6d 65 64 ┆ begin comment end of med┆
0x707a0…707c0 69 75 6d 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e ┆ium; (w3).┆
0x707c0…707e0 74 63 5f 77 6f 72 6b 66 66 73 20 3a 3d 20 77 30 20 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 20 ┆tc_workffs := w0 := 0; ┆
0x707e0…70800 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 77 32 2d 66 69 72 73 00 00 00 00 00 00 00 00 ┆ w1:=w2-firs ┆
0x70800…70806 (900,) (0x324,0xe11)
0x70806…70820 74 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 ┆t; (┆
0x70820…70840 77 33 29 2e 74 63 5f 62 73 70 74 72 20 3a 3d 20 66 31 2b 28 77 33 29 2e 74 63 5f 62 73 70 74 72 ┆w3).tc_bsptr := f1+(w3).tc_bsptr┆
0x70840…70860 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 70 72 6f 75 74 70 75 ┆; oproutpu┆
0x70860…7087e 74 28 2e 77 33 2e 2c 77 30 3a 3d 31 2c 77 31 3a 3d 36 2c 77 32 29 3b 0a 20 20 20 20 20 20 ┆t(.w3.,w0:=1,w1:=6,w2); ┆
0x7087e…70884 (0x324,0xe12)
0x70884…708a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 32 3c 3e 32 20 74 68 65 ┆ if w2<>2 the┆
0x708a0…708c0 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 0a 20 ┆n begin ┆
0x708c0…708e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 73 ┆ (w3).tc_s┆
0x708e0…708fc 74 61 74 65 20 3a 3d 20 77 30 20 3a 3d 20 36 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆tate := w0 := 6; ┆
0x708fc…70902 (0x324,0xe13)
0x70902…70920 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 63 61 75 73 65 20 3a 3d 20 ┆ (w3).tc_cause := ┆
0x70920…70940 77 30 20 3a 3d 20 33 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆w0 := 3; ┆
0x70940…70960 20 28 77 33 29 2e 74 63 5f 73 74 61 74 75 73 3a 3d 20 77 32 20 3b 0a 20 20 20 20 20 20 20 20 20 ┆ (w3).tc_status:= w2 ; ┆
0x70960…7097a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 70 72 5f 69 6e 70 ┆ (w3).pr_inp┆
0x7097a…70980 (0x324,0xe14)
0x70980…709a0 73 74 61 74 65 20 3a 3d 20 77 30 20 3a 3d 20 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆state := w0 := 1; ┆
0x709a0…709c0 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 6f 69 6e 74 65 72 76 65 6e 74 20 3a 3d 20 ┆ (w3).tc_ointervent := ┆
0x709c0…709e0 77 30 20 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆w0 := 0; ┆
0x709e0…70a00 20 67 6f 74 6f 20 70 72 5f 61 63 74 69 6f 6e 3b 0a 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ goto pr_action; ┆
0x70a00…70a06 (901,) (0x324,0xe15)
0x70a06…70a20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 ┆ end; ┆
0x70a20…70a40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 68 6f 6c 64 28 2e 77 33 2e 2c 77 30 3a 3d 30 29 ┆ hold(.w3.,w0:=0)┆
0x70a40…70a60 3b 28 77 33 29 2e 74 63 5f 68 65 6c 64 3a 3d 77 30 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆;(w3).tc_held:=w0:=0; ┆
0x70a60…70a7e 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 33 29 2e 70 72 5f 68 65 61 ┆ if w0:=(w3).pr_hea┆
0x70a7e…70a84 (0x324,0xe16)
0x70a84…70aa0 64 74 72 61 69 6c 3d 30 20 74 68 65 6e 20 28 77 33 29 2e 70 72 5f 69 6e 70 73 74 61 ┆dtrail=0 then (w3).pr_inpsta┆
0x70aa0…70ac0 74 65 20 3a 3d 20 77 30 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆te := w0 else ┆
0x70ac0…70ae0 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 20 20 ┆ ┆
0x70ae0…70afc 20 20 20 20 20 28 77 33 29 2e 70 72 5f 69 6e 70 73 74 61 74 65 20 3a 3d 20 77 30 20 ┆ (w3).pr_inpstate := w0 ┆
0x70afc…70b02 (0x324,0xe17)
0x70b02…70b20 2d 20 34 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 ┆- 4; got┆
0x70b20…70b40 6f 20 6c 6f 6f 70 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e ┆o loop; en┆
0x70b40…70b60 64 20 65 6c 73 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 ┆d else; end; ┆
0x70b60…70b7a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 ┆ end; ┆
0x70b7a…70b80 (0x324,0xe18)
0x70b80…70ba0 20 20 20 20 20 20 20 20 20 20 77 31 20 3a 3d 20 6c 61 73 74 2d 66 69 72 73 74 2b 32 3b 0a 20 20 ┆ w1 := last-first+2; ┆
0x70ba0…70bc0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 30 20 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 20 ┆ w0 := 0; ┆
0x70bc0…70be0 20 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 62 73 70 74 72 20 3a 3d 20 66 31 20 2b 20 28 77 33 ┆ (w3).tc_bsptr := f1 + (w3┆
0x70be0…70c00 29 2e 74 63 5f 62 73 70 74 72 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆).tc_bsptr; ┆
0x70c00…70c06 (902,) (0x324,0xe19)
0x70c06…70c20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 61 ┆ end; w1:=a┆
0x70c20…70c40 64 64 72 65 73 73 28 74 5f 73 6b 69 70 29 3b 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 ┆ddress(t_skip); end┆
0x70c40…70c60 3b 20 21 20 65 6e 64 20 73 6b 69 70 20 61 63 74 69 6f 6e 20 21 0a 20 20 20 20 20 20 20 20 20 20 ┆; ! end skip action ! ┆
0x70c60…70c7e 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 72 65 70 65 61 74 20 61 63 74 69 6f 6e 3b ┆ begin comment repeat action;┆
0x70c7e…70c84 (0x324,0xe1a)
0x70c84…70ca0 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 6f 6f 6b 74 72 61 6e 73 70 6f 72 74 ┆ looktransport┆
0x70ca0…70cc0 28 2e 77 33 2e 2c 77 31 3a 3d 28 77 33 29 2e 74 63 5f 74 72 61 6e 73 6e 6f 2c 77 32 29 3b 0a 20 ┆(.w3.,w1:=(w3).tc_transno,w2); ┆
0x70cc0…70ce0 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 70 72 5f 70 61 72 74 69 61 6c 20 3a 3d 20 ┆ (w3).pr_partial := ┆
0x70ce0…70cfc 77 30 20 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e ┆w0 := 0; (w3).┆
0x70cfc…70d02 (0x324,0xe1b)
0x70d02…70d20 74 63 5f 77 6f 72 6b 6e 6c 73 20 3a 3d 20 77 30 20 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 ┆tc_worknls := w0 := 0; ┆
0x70d20…70d40 20 20 20 20 20 20 20 28 77 33 29 2e 70 72 5f 77 6f 72 6b 70 74 72 20 3a 3d 20 66 31 20 3a 3d 20 ┆ (w3).pr_workptr := f1 := ┆
0x70d40…70d60 28 77 33 29 2e 74 63 5f 62 73 70 74 72 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 33 ┆(w3).tc_bsptr; (w3┆
0x70d60…70d7a 29 2e 70 72 5f 77 6f 72 6b 73 74 61 72 74 70 74 72 20 3a 3d 20 66 31 20 3a 3d ┆).pr_workstartptr := f1 :=┆
0x70d7a…70d80 (0x324,0xe1c)
0x70d80…70da0 20 28 77 32 29 2e 74 72 5f 62 73 73 74 61 72 74 70 74 72 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ (w2).tr_bsstartptr; ┆
0x70da0…70dc0 20 20 20 63 6f 6d 6d 65 6e 74 20 62 61 63 6b 73 70 61 63 65 20 75 6e 74 69 6c 20 61 6e 20 61 70 ┆ comment backspace until an ap┆
0x70dc0…70de0 70 72 6f 70 69 61 74 65 20 6e 75 6d 62 65 72 20 6f 66 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆propiate number of ┆
0x70de0…70e00 20 66 6f 72 6d 66 65 65 64 73 2c 20 6e 65 77 6c 69 6e 65 73 20 6f 72 20 00 00 00 00 00 00 00 00 ┆ formfeeds, newlines or ┆
0x70e00…70e06 (903,) (0x324,0xe1d)
0x70e06…70e20 73 74 61 72 74 20 66 69 6c 65 20 69 73 20 6d 65 74 2e 3b 0a 20 20 20 20 20 20 ┆start file is met.; ┆
0x70e20…70e40 20 20 20 20 20 20 20 20 77 68 69 6c 65 20 77 30 3a 3d 28 77 33 29 2e 74 63 5f 77 6f 72 6b 66 66 ┆ while w0:=(w3).tc_workff┆
0x70e40…70e60 73 3e 30 20 64 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 ┆s>0 do begin ┆
0x70e60…70e7e 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 28 77 33 29 2e 74 63 5f 62 75 66 73 69 7a 65 ┆ w1:=(w3).tc_bufsize┆
0x70e7e…70e84 (0x324,0xe1e)
0x70e84…70ea0 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 2d 31 3b 2d 28 77 ┆; w0:=-1;-(w┆
0x70ea0…70ec0 31 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 62 73 70 74 ┆1); (w3).tc_bspt┆
0x70ec0…70ee0 72 3a 3d 20 66 31 2b 28 77 33 29 2e 74 63 5f 62 73 70 74 72 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆r:= f1+(w3).tc_bsptr; ┆
0x70ee0…70efc 20 20 20 20 20 20 66 31 2d 28 77 33 29 2e 70 72 5f 77 6f 72 6b 73 74 61 72 74 70 74 ┆ f1-(w3).pr_workstartpt┆
0x70efc…70f02 (0x324,0xe1f)
0x70f02…70f20 72 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3c 30 20 74 68 65 ┆r; if w0<0 the┆
0x70f20…70f40 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 ┆n begin comment ┆
0x70f40…70f60 63 75 74 20 62 6c 6f 63 6b 73 69 7a 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆cut blocksize; ┆
0x70f60…70f7a 20 77 30 3a 3d 77 31 2b 28 77 33 29 2e 74 63 5f 62 75 66 73 69 7a 65 3b 0a 20 ┆ w0:=w1+(w3).tc_bufsize; ┆
0x70f7a…70f80 (0x324,0xe20)
0x70f80…70fa0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 62 73 70 74 72 3a 3d ┆ (w3).tc_bsptr:=┆
0x70fa0…70fc0 20 66 32 3a 3d 20 28 77 33 29 2e 70 72 5f 77 6f 72 6b 73 74 61 72 74 70 74 72 3b 0a 20 20 20 20 ┆ f2:= (w3).pr_workstartptr; ┆
0x70fc0…70fe0 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 20 65 6c 73 65 20 77 30 3a 3d 28 77 33 29 2e 74 63 ┆ end else w0:=(w3).tc┆
0x70fe0…71000 5f 62 75 66 73 69 7a 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆_bufsize; ┆
0x71000…71006 (904,) (0x324,0xe21)
0x71006…71020 20 20 69 66 20 77 30 3e 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ if w0>0 then ┆
0x71020…71040 20 20 20 20 20 67 65 74 5f 62 6c 6f 63 6b 28 2e 77 33 2e 2c 77 30 2c 0a 20 20 20 20 20 20 20 20 ┆ get_block(.w3.,w0, ┆
0x71040…71060 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 61 64 64 72 65 73 ┆ w1:=addres┆
0x71060…7107e 73 28 28 77 31 3a 3d 28 77 33 29 2e 74 63 5f 62 75 66 29 2e 62 75 66 5f 64 61 74 61 31 29 ┆s((w1:=(w3).tc_buf).buf_data1)┆
0x7107e…71084 (0x324,0xe22)
0x71084…710a0 2c 77 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3c ┆,w2); if w0<┆
0x710a0…710c0 3d 30 20 74 68 65 6e 20 28 77 33 29 2e 74 63 5f 77 6f 72 6b 66 66 73 3a 3d 77 30 3a 3d 30 3b 0a ┆=0 then (w3).tc_workffs:=w0:=0; ┆
0x710c0…710e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 28 77 33 29 2e 74 63 5f 62 75 66 3b ┆ w1:=(w3).tc_buf;┆
0x710e0…710fc 66 69 72 73 74 3a 3d 77 32 3a 3d 61 64 64 72 65 73 73 28 28 77 31 29 2e 62 75 66 5f ┆first:=w2:=address((w1).buf_┆
0x710fc…71102 (0x324,0xe23)
0x71102…71120 64 61 74 61 31 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 32 2d 32 3b 77 ┆data1); w2-2;w┆
0x71120…71140 32 2b 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 61 73 74 3a 3d 77 32 3b 0a ┆2+w0; last:=w2; ┆
0x71140…71160 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 32 2b 32 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆ w2+2; ┆
0x71160…7117a 20 20 20 20 20 20 77 68 69 6c 65 20 77 32 2d 32 3e 3d 66 69 72 73 74 20 64 6f ┆ while w2-2>=first do┆
0x7117a…71180 (0x324,0xe24)
0x71180…711a0 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 63 ┆ begin comment c┆
0x711a0…711c0 68 65 63 6b 20 62 75 66 66 65 72 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 ┆heck buffer; w┆
0x711c0…711e0 30 3a 3d 28 77 32 29 2e 77 6f 72 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆0:=(w2).word; ┆
0x711e0…71200 69 66 20 77 30 20 6f 6e 65 6d 61 73 6b 20 20 20 32 31 30 35 33 37 36 20 00 00 00 00 00 00 00 00 ┆if w0 onemask 2105376 ┆
0x71200…71206 (905,) (0x324,0xe25)
0x71206…71220 74 68 65 6e 20 77 30 3a 3d 30 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 ┆then w0:=0 else ┆
0x71220…71240 20 20 20 20 20 20 20 20 69 66 20 77 30 20 7a 65 72 6f 6d 61 73 6b 20 2d 32 30 39 37 31 35 32 20 ┆ if w0 zeromask -2097152 ┆
0x71240…71260 74 68 65 6e 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 ┆then else if w┆
0x71260…7127e 30 20 7a 65 72 6f 6d 61 73 6b 20 20 20 20 35 37 33 34 34 20 74 68 65 6e 20 65 6c 73 65 0a ┆0 zeromask 57344 then else ┆
0x7127e…71284 (0x324,0xe26)
0x71284…712a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 20 7a 65 72 6f ┆ if w0 zero┆
0x712a0…712c0 6d 61 73 6b 20 20 20 20 20 20 32 32 34 20 74 68 65 6e 20 65 6c 73 65 20 77 30 3a 3d 30 3b 0a 20 ┆mask 224 then else w0:=0; ┆
0x712c0…712e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3c 3e 30 20 74 68 65 6e 20 70 ┆ if w0<>0 then p┆
0x712e0…712fc 61 72 74 69 61 6c 3a 3d 77 31 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆artial:=w1:=0; ┆
0x712fc…71302 (0x324,0xe27)
0x71302…71320 20 20 20 20 20 77 68 69 6c 65 20 77 30 3c 3e 30 20 64 6f 0a 20 20 20 20 20 20 20 20 20 20 ┆ while w0<>0 do ┆
0x71320…71340 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 63 68 61 72 20 76 61 6c 75 65 ┆ begin comment char value┆
0x71340…71360 20 6c 65 73 73 20 74 68 61 6e 20 33 32 20 64 65 74 65 63 74 65 64 3b 0a 20 20 20 20 20 20 20 20 ┆ less than 32 detected; ┆
0x71360…7137a 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 70 61 72 74 69 61 6c 3b 66 31 ┆ w1:=partial;f1┆
0x7137a…71380 (0x324,0xe28)
0x71380…713a0 20 6c 73 68 69 66 74 20 2d 38 3b 70 61 72 74 69 61 6c 3a 3d 77 31 3b 77 31 20 6c 73 68 69 66 74 ┆ lshift -8;partial:=w1;w1 lshift┆
0x713a0…713c0 20 2d 31 36 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 31 3d ┆ -16; if w1=┆
0x713c0…713e0 31 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 ┆10 then begi┆
0x713e0…71400 6e 20 63 6f 6d 6d 65 6e 74 20 6e 65 77 6c 69 6e 65 3b 0a 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆n comment newline; ┆
0x71400…71406 (906,) (0x324,0xe29)
0x71406…71420 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 77 ┆ (w3).tc_w┆
0x71420…71440 6f 72 6b 6e 6c 73 20 3a 3d 20 77 31 20 3a 3d 20 28 77 33 29 2e 74 63 5f 77 6f 72 6b 6e 6c 73 20 ┆orknls := w1 := (w3).tc_worknls ┆
0x71440…71460 2b 20 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 31 ┆+ 1; if w1┆
0x71460…7147e 3d 62 2e 70 72 6c 70 61 67 65 20 74 68 65 6e 20 77 31 3a 3d 31 32 20 65 6c 73 65 20 77 31 ┆=b.prlpage then w1:=12 else w1┆
0x7147e…71484 (0x324,0xe2a)
0x71484…714a0 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 ┆:=0; end┆
0x714a0…714c0 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 31 3d 31 32 20 74 ┆; if w1=12 t┆
0x714c0…714e0 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f ┆hen begin co┆
0x714e0…714fc 6d 6d 65 6e 74 20 66 6f 72 6d 66 65 65 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆mment formfeed; ┆
0x714fc…71502 (0x324,0xe2b)
0x71502…71520 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 77 6f 72 6b 6e 6c 73 20 3a 3d 20 77 ┆ (w3).tc_worknls := w┆
0x71520…71540 31 20 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 ┆1 := 0; (w┆
0x71540…71560 33 29 2e 74 63 5f 77 6f 72 6b 66 66 73 20 3a 3d 20 77 31 20 3a 3d 20 28 77 33 29 2e 74 63 5f 77 ┆3).tc_workffs := w1 := (w3).tc_w┆
0x71560…7157a 6f 72 6b 66 66 73 20 2d 20 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆orkffs - 1; ┆
0x7157a…71580 (0x324,0xe2c)
0x71580…715a0 20 20 20 20 20 20 20 20 69 66 20 77 31 3c 31 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ if w1<1 then ┆
0x715a0…715c0 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 73 74 6f 70 20 73 65 ┆ begin comment stop se┆
0x715c0…715e0 61 72 63 68 69 6e 67 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆arching; ┆
0x715e0…71600 20 77 30 3a 3d 31 32 3b 77 31 3a 3d 70 61 72 74 69 61 6c 3b 77 31 20 6c 00 00 00 00 00 00 00 00 ┆ w0:=12;w1:=partial;w1 l ┆
0x71600…71606 (907,) (0x324,0xe2d)
0x71606…71620 73 68 69 66 74 20 38 3b 66 31 20 6c 73 68 69 66 74 20 2d 38 3b 0a 20 20 20 20 ┆shift 8;f1 lshift -8; ┆
0x71620…71640 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 70 72 5f 70 61 72 74 ┆ (w3).pr_part┆
0x71640…71660 69 61 6c 20 3a 3d 20 77 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ial := w1; ┆
0x71660…7167e 20 20 20 77 31 3a 3d 20 77 32 2d 66 69 72 73 74 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ w1:= w2-first; ┆
0x7167e…71684 (0x324,0xe2e)
0x71684…716a0 20 20 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 ┆ w0:=0; ┆
0x716a0…716c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 62 73 70 74 72 3a 3d 20 66 ┆ (w3).tc_bsptr:= f┆
0x716c0…716e0 31 2b 28 77 33 29 2e 74 63 5f 62 73 70 74 72 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆1+(w3).tc_bsptr; ┆
0x716e0…716fc 20 20 20 20 20 20 20 20 20 77 30 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ w0:=0; ┆
0x716fc…71702 (0x324,0xe2f)
0x71702…71720 20 20 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 66 69 72 73 74 3b 0a 20 20 20 20 20 20 20 ┆ w2:=first; ┆
0x71720…71740 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ end; ┆
0x71740…71760 20 20 20 20 20 20 20 20 65 6e 64 20 65 6c 73 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ end else; ┆
0x71760…7177a 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 ┆ end; e┆
0x7177a…71780 (0x324,0xe30)
0x71780…717a0 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 ┆nd; end; ┆
0x717a0…717c0 20 20 20 20 20 77 31 3a 3d 61 64 64 72 65 73 73 28 74 5f 72 65 70 65 61 74 29 3b 0a 20 20 20 20 ┆ w1:=address(t_repeat); ┆
0x717c0…717e0 20 20 20 20 20 20 20 20 65 6e 64 3b 20 21 20 65 6e 64 20 72 65 70 65 61 74 20 61 63 74 69 6f 6e ┆ end; ! end repeat action┆
0x717e0…71800 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 00 00 00 00 00 00 00 00 ┆ ! begin com ┆
0x71800…71806 (908,) (0x324,0xe31)
0x71806…71820 6d 65 6e 74 20 72 65 73 74 61 72 74 20 61 63 74 69 6f 6e 3b 0a 20 20 20 20 20 ┆ment restart action; ┆
0x71820…71840 20 20 20 20 20 20 20 20 20 6c 6f 6f 6b 74 72 61 6e 73 70 6f 72 74 28 2e 77 33 2e 2c 77 31 3a 3d ┆ looktransport(.w3.,w1:=┆
0x71840…71860 28 77 33 29 2e 74 63 5f 74 72 61 6e 73 6e 6f 2c 77 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆(w3).tc_transno,w2); ┆
0x71860…7187e 20 20 20 28 77 33 29 2e 74 63 5f 62 73 70 74 72 20 3a 3d 20 66 31 20 3a 3d 20 28 77 32 29 ┆ (w3).tc_bsptr := f1 := (w2)┆
0x7187e…71884 (0x324,0xe32)
0x71884…718a0 2e 74 72 5f 62 73 73 74 61 72 74 70 74 72 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆.tr_bsstartptr; ┆
0x718a0…718c0 20 20 77 31 3a 3d 61 64 64 72 65 73 73 28 74 5f 72 65 73 74 61 72 74 29 3b 0a 20 20 20 20 20 20 ┆ w1:=address(t_restart); ┆
0x718c0…718e0 20 20 20 20 20 20 65 6e 64 3b 20 21 20 65 6e 64 20 72 65 73 74 61 72 74 20 61 63 74 69 6f 6e 20 ┆ end; ! end restart action ┆
0x718e0…718fc 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 ┆! begin comment ┆
0x718fc…71902 (0x324,0xe33)
0x71902…71920 73 74 6f 70 20 61 63 74 69 6f 6e 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 70 72 ┆stop action; opr┆
0x71920…71940 6f 75 74 70 75 74 28 2e 77 33 2e 2c 77 30 3a 3d 31 2c 77 31 3a 3d 33 2c 77 32 29 3b 0a 20 20 20 ┆output(.w3.,w0:=1,w1:=3,w2); ┆
0x71940…71960 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 32 3c 3e 32 20 74 68 65 6e 0a 20 20 20 20 20 20 20 ┆ if w2<>2 then ┆
0x71960…7197a 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ begin ┆
0x7197a…71980 (0x324,0xe34)
0x71980…719a0 20 20 20 28 77 33 29 2e 74 63 5f 73 74 61 74 65 20 3a 3d 20 77 30 20 3a 3d 20 36 3b 20 21 20 61 ┆ (w3).tc_state := w0 := 6; ! a┆
0x719a0…719c0 62 6f 72 74 65 64 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 63 ┆borted ! (w3).tc┆
0x719c0…719e0 5f 63 61 75 73 65 20 3a 3d 20 77 30 20 3a 3d 20 33 3b 20 21 20 6f 70 65 72 61 74 6f 72 21 0a 20 ┆_cause := w0 := 3; ! operator! ┆
0x719e0…71a00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 73 00 00 00 00 00 00 00 00 ┆ (w3).tc_s ┆
0x71a00…71a06 (909,) (0x324,0xe35)
0x71a06…71a20 74 61 74 75 73 3a 3d 20 77 32 20 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆tatus:= w2 ; ┆
0x71a20…71a40 20 20 20 28 77 33 29 2e 74 63 5f 6f 69 6e 74 65 72 76 65 6e 74 20 3a 3d 20 77 30 20 3a 3d 20 30 ┆ (w3).tc_ointervent := w0 := 0┆
0x71a40…71a60 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 70 72 5f 69 6e 70 73 74 61 ┆; (w3).pr_inpsta┆
0x71a60…71a7e 74 65 20 3a 3d 20 77 30 20 3a 3d 20 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆te := w0 := 1; ┆
0x71a7e…71a84 (0x324,0xe36)
0x71a84…71aa0 20 67 6f 74 6f 20 70 72 5f 61 63 74 69 6f 6e 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ goto pr_action; ┆
0x71aa0…71ac0 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 6f 69 ┆ end; (w3).tc_oi┆
0x71ac0…71ae0 6e 74 65 72 76 65 6e 74 20 3a 3d 20 77 30 20 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ntervent := w0 := 0; ┆
0x71ae0…71afc 20 20 20 68 6f 6c 64 28 2e 77 33 2e 2c 77 30 3a 3d 30 29 3b 28 77 33 29 2e 74 63 5f ┆ hold(.w3.,w0:=0);(w3).tc_┆
0x71afc…71b02 (0x324,0xe37)
0x71b02…71b20 68 65 6c 64 3a 3d 77 30 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 ┆held:=w0:=0; got┆
0x71b20…71b40 6f 20 6c 6f 6f 70 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 20 21 20 65 6e 64 20 73 ┆o loop; end; ! end s┆
0x71b40…71b60 74 6f 70 20 61 63 74 69 6f 6e 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 ┆top action ! begin c┆
0x71b60…71b7a 6f 6d 6d 65 6e 74 20 6b 69 6c 6c 20 61 63 74 69 6f 6e 3b 0a 20 20 20 20 20 20 ┆omment kill action; ┆
0x71b7a…71b80 (0x324,0xe38)
0x71b80…71ba0 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 73 74 61 74 65 20 3a 3d 20 77 30 20 3a 3d 20 37 ┆ (w3).tc_state := w0 := 7┆
0x71ba0…71bc0 3b 20 21 20 6b 69 6c 6c 65 64 20 62 79 20 6f 70 65 72 61 74 6f 72 20 21 0a 20 20 20 20 20 20 20 ┆; ! killed by operator ! ┆
0x71bc0…71be0 20 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 6f 69 6e 74 65 72 76 65 6e 74 20 3a 3d 20 77 30 20 ┆ (w3).tc_ointervent := w0 ┆
0x71be0…71c00 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 33 29 00 00 00 00 00 00 00 00 ┆:= 0; (w3) ┆
0x71c00…71c06 (910,) (0x324,0xe39)
0x71c06…71c20 2e 70 72 5f 69 6e 70 73 74 61 74 65 20 3a 3d 20 77 30 20 3a 3d 20 31 3b 0a 20 ┆.pr_inpstate := w0 := 1; ┆
0x71c20…71c40 20 20 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 70 72 5f 61 63 74 69 6f 6e 3b 0a 20 20 20 ┆ goto pr_action; ┆
0x71c40…71c60 20 20 20 20 20 20 20 20 20 65 6e 64 3b 20 21 20 65 6e 64 20 6b 69 6c 6c 20 61 63 74 69 6f 6e 20 ┆ end; ! end kill action ┆
0x71c60…71c7e 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 73 75 ┆! begin comment su┆
0x71c7e…71c84 (0x324,0xe3a)
0x71c84…71ca0 73 70 65 6e 64 20 61 63 74 69 6f 6e 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆spend action; ┆
0x71ca0…71cc0 63 6c 6f 73 65 62 73 28 2e 77 33 2e 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 32 ┆closebs(.w3.); (w2┆
0x71cc0…71ce0 3a 3d 28 77 33 29 2e 70 72 5f 71 75 65 72 65 66 29 2e 74 71 5f 73 75 73 70 65 6e 64 3a 3d 66 31 ┆:=(w3).pr_queref).tq_suspend:=f1┆
0x71ce0…71cfc 3a 3d 28 77 33 29 2e 74 63 5f 62 73 70 74 72 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆:=(w3).tc_bsptr; ┆
0x71cfc…71d02 (0x324,0xe3b)
0x71d02…71d20 20 20 20 28 77 33 29 2e 70 72 5f 64 72 61 69 6e 3a 3d 20 77 30 20 3a 3d 20 20 31 3b 0a 20 ┆ (w3).pr_drain:= w0 := 1; ┆
0x71d20…71d40 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 70 72 5f 73 65 6c 65 63 74 3a 3d 77 30 3a ┆ (w3).pr_select:=w0:┆
0x71d40…71d60 3d 20 33 3b 20 21 20 73 65 6c 65 63 74 20 6e 65 78 74 20 74 72 61 6e 73 70 6f 72 74 20 21 0a 20 ┆= 3; ! select next transport ! ┆
0x71d60…71d7a 20 20 20 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 30 3b 0a 20 20 20 20 20 20 ┆ w0:=0; ┆
0x71d7a…71d80 (0x324,0xe3c)
0x71d80…71da0 20 20 20 20 20 20 20 20 28 77 33 29 2e 63 5f 69 63 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 20 ┆ (w3).c_ic:= w0; ┆
0x71da0…71dc0 20 20 20 20 20 20 67 6f 74 6f 20 62 2e 61 63 74 69 76 61 74 65 3b 0a 20 20 20 20 20 20 20 20 20 ┆ goto b.activate; ┆
0x71dc0…71de0 20 20 20 65 6e 64 3b 0a 0a 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 20 21 20 65 6e 64 20 63 ┆ end; end; ! end c┆
0x71de0…71e00 61 73 65 20 21 0a 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 00 00 00 00 00 00 00 00 ┆ase ! if w0:= ┆
0x71e00…71e06 (911,) (0x324,0xe3d)
0x71e06…71e20 28 77 33 29 2e 70 72 5f 68 65 61 64 74 72 61 69 6c 3c 3e 30 20 74 68 65 6e 20 ┆(w3).pr_headtrail<>0 then ┆
0x71e20…71e40 28 77 33 29 2e 70 72 5f 69 6e 70 73 74 61 74 65 3a 3d 77 30 3a 3d 2d 34 20 65 6c 73 65 0a 20 20 ┆(w3).pr_inpstate:=w0:=-4 else ┆
0x71e40…71e60 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 20 20 ┆ ┆
0x71e60…71e7e 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 70 72 5f 69 6e 70 73 74 61 74 65 3a 3d 77 30 3a ┆ (w3).pr_inpstate:=w0:┆
0x71e7e…71e84 (0x324,0xe3e)
0x71e84…71ea0 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 6f 69 6e 74 65 72 ┆=0; (w3).tc_ointer┆
0x71ea0…71ec0 76 65 6e 74 20 3a 3d 20 77 30 20 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 20 21 20 ┆vent := w0 := 0; end; ! ┆
0x71ec0…71ee0 65 6e 64 20 6f 70 65 72 61 74 6f 72 20 69 6e 74 65 72 76 65 6e 74 69 6f 6e 20 21 0a 0a 0a 20 20 ┆end operator intervention ! ┆
0x71ee0…71efc 20 20 20 20 20 20 69 66 20 77 32 3a 3d 28 77 33 29 2e 74 63 5f 61 69 6e 74 65 72 76 ┆ if w2:=(w3).tc_ainterv┆
0x71efc…71f02 (0x324,0xe3f)
0x71f02…71f20 65 6e 74 3c 3e 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 ┆ent<>0 then begin ┆
0x71f20…71f40 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 73 74 61 74 65 3a 3d 20 77 30 3a 3d 20 38 3b 20 21 20 ┆ (w3).tc_state:= w0:= 8; ! ┆
0x71f40…71f60 6b 69 6c 6c 65 64 20 62 79 20 61 70 70 6c 20 21 0a 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e ┆killed by appl ! (w3).┆
0x71f60…71f7a 74 63 5f 61 69 6e 74 65 72 76 65 6e 74 20 3a 3d 20 77 30 20 3a 3d 20 30 3b 0a ┆tc_aintervent := w0 := 0; ┆
0x71f7a…71f80 (0x324,0xe40)
0x71f80…71fa0 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 70 72 5f 69 6e 70 73 74 61 74 65 20 3a 3d 20 77 30 ┆ (w3).pr_inpstate := w0┆
0x71fa0…71fc0 20 3a 3d 20 31 3b 0a 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 70 72 5f 61 63 74 69 6f 6e 3b ┆ := 1; goto pr_action;┆
0x71fc0…71fe0 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 70 72 5f 61 63 74 69 6f 6e 3a 0a 0a 0a 20 20 20 20 20 ┆ end; pr_action: ┆
0x71fe0…72000 20 20 20 63 61 73 65 20 77 32 3a 3d 28 77 33 29 2e 70 72 5f 69 6e 70 73 00 00 00 00 00 00 00 00 ┆ case w2:=(w3).pr_inps ┆
0x72000…72006 (912,) (0x324,0xe41)
0x72006…72020 74 61 74 65 20 2b 20 35 20 6f 66 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 ┆tate + 5 of begin ┆
0x72020…72040 21 20 67 65 74 20 6e 65 78 74 20 69 6e 70 75 74 20 62 6c 6f 63 6b 20 21 0a 20 20 20 20 20 20 20 ┆! get next input block ! ┆
0x72040…72060 20 20 20 6d 6f 76 65 28 2e 77 33 2e 2c 77 30 3a 3d 31 34 2c 77 31 2c 0a 20 20 20 20 20 20 20 20 ┆ move(.w3.,w0:=14,w1, ┆
0x72060…7207e 20 20 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 61 64 64 72 65 73 73 28 28 77 32 3a 3d 28 ┆ w2:=address((w2:=(┆
0x7207e…72084 (0x324,0xe42)
0x72084…720a0 77 33 29 2e 74 63 5f 62 75 66 29 2e 62 75 66 5f 64 61 74 61 31 29 29 3b 0a 20 20 20 ┆w3).tc_buf).buf_data1)); ┆
0x720a0…720c0 20 20 20 20 20 20 20 6d 6f 76 65 28 2e 77 33 2e 2c 77 30 3a 3d 36 38 2c 77 31 3a 3d 61 64 64 72 ┆ move(.w3.,w0:=68,w1:=addr┆
0x720c0…720e0 65 73 73 28 74 72 69 61 6e 67 31 29 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ess(triang1), ┆
0x720e0…720fc 20 20 77 32 3a 3d 61 64 64 72 65 73 73 28 28 77 32 3a 3d 28 77 33 29 2e 74 63 5f 62 ┆ w2:=address((w2:=(w3).tc_b┆
0x720fc…72102 (0x324,0xe43)
0x72102…72120 75 66 29 2e 62 75 66 5f 64 61 74 61 31 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 70 72 6c ┆uf).buf_data1)); prl┆
0x72120…72140 69 73 74 64 61 74 65 28 2e 77 33 2e 2c 77 30 29 3b 0a 20 20 20 20 20 20 20 20 20 20 70 72 6c 69 ┆istdate(.w3.,w0); prli┆
0x72140…72160 73 74 69 64 28 2e 77 33 2e 2c 77 30 29 3b 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 21 ┆stid(.w3.,w0); begin !┆
0x72160…7217a 20 6e 6f 72 6d 61 6c 20 69 6e 70 75 74 20 6d 6f 64 65 20 21 0a 20 20 20 20 20 ┆ normal input mode ! ┆
0x7217a…72180 (0x324,0xe44)
0x72180…721a0 20 20 20 20 20 20 20 67 65 74 5f 62 6c 6f 63 6b 28 2e 77 33 2e 2c 77 30 3a 3d 28 77 33 29 2e 74 ┆ get_block(.w3.,w0:=(w3).t┆
0x721a0…721c0 63 5f 62 75 66 73 69 7a 65 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 28 77 31 3a 3d 28 77 33 29 2e ┆c_bufsize,w1:=address((w1:=(w3).┆
0x721c0…721e0 74 63 5f 62 75 66 29 2e 62 75 66 5f 64 61 74 61 31 29 2c 77 32 29 3b 0a 20 20 20 20 20 20 20 20 ┆tc_buf).buf_data1),w2); ┆
0x721e0…72200 20 20 20 20 69 66 20 77 30 3c 3d 30 20 74 68 65 6e 0a 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ if w0<=0 then ┆
0x72200…72206 (913,) (0x324,0xe45)
0x72206…72220 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ begin ┆
0x72220…72240 28 77 33 29 2e 74 63 5f 73 74 61 74 65 3a 3d 20 77 31 3a 3d 20 36 3b 20 21 20 61 62 6f 72 74 65 ┆(w3).tc_state:= w1:= 6; ! aborte┆
0x72240…72260 64 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 63 61 75 73 65 3a ┆d ! (w3).tc_cause:┆
0x72260…7227e 3d 20 77 31 3a 3d 20 31 3b 20 21 20 73 65 6e 64 65 72 20 21 0a 20 20 20 20 20 20 20 20 20 ┆= w1:= 1; ! sender ! ┆
0x7227e…72284 (0x324,0xe46)
0x72284…722a0 20 20 20 20 20 28 77 33 29 2e 74 63 5f 73 74 61 74 75 73 3a 3d 20 77 32 3b 0a 20 20 ┆ (w3).tc_status:= w2; ┆
0x722a0…722c0 20 20 20 20 20 20 20 20 20 20 65 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 0a 20 ┆ end else ┆
0x722c0…722e0 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 ┆ begin !┆
0x722e0…722fc 20 63 75 74 20 62 6c 6f 63 6b 20 73 69 7a 65 20 64 6f 77 6e 20 69 66 20 61 6e 20 65 ┆ cut block size down if an e┆
0x722fc…72302 (0x324,0xe47)
0x72302…72320 6d 2d 63 68 61 72 20 69 73 20 66 6f 75 6e 64 20 69 6e 20 74 68 65 20 62 6c 6f 63 6b 20 21 ┆m-char is found in the block !┆
0x72320…72340 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 20 28 77 33 29 2e 74 63 5f 62 75 66 3b ┆ w1:= (w3).tc_buf;┆
0x72340…72360 20 66 69 72 73 74 3a 3d 20 77 32 3a 3d 20 61 64 64 72 65 73 73 28 28 77 31 29 2e 62 75 66 5f 64 ┆ first:= w2:= address((w1).buf_d┆
0x72360…7237a 61 74 61 31 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 32 2d 32 3b ┆ata1); w2-2;┆
0x7237a…72380 (0x324,0xe48)
0x72380…723a0 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 30 2b 77 32 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆ w0+w2; ┆
0x723a0…723c0 20 20 20 20 6c 61 73 74 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 ┆ last:= w0; i┆
0x723c0…723e0 66 20 77 30 3a 3d 28 77 33 29 2e 70 72 5f 70 61 72 74 69 61 6c 3c 3e 30 20 74 68 65 6e 20 0a 20 ┆f w0:=(w3).pr_partial<>0 then ┆
0x723e0…72400 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 00 00 00 00 00 00 00 00 ┆ begin ┆
0x72400…72406 (914,) (0x324,0xe49)
0x72406…72420 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 32 2b 32 29 2e 77 6f 72 64 ┆ (w2+2).word┆
0x72420…72440 20 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 70 ┆ := w0; (w3).p┆
0x72440…72460 72 5f 70 61 72 74 69 61 6c 20 3a 3d 20 77 30 20 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆r_partial := w0 := 0; ┆
0x72460…7247e 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 68 69 6c 65 ┆ end; while┆
0x7247e…72484 (0x324,0xe4a)
0x72484…724a0 20 77 32 2b 32 3c 3d 6c 61 73 74 20 64 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ w2+2<=last do ┆
0x724a0…724c0 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 28 77 32 29 2e ┆ begin w0:=(w2).┆
0x724c0…724e0 77 6f 72 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 20 6f 6e 65 6d ┆word; if w0 onem┆
0x724e0…724fc 61 73 6b 20 20 20 20 32 31 30 35 33 37 36 20 74 68 65 6e 20 77 30 3a 3d 30 20 65 6c ┆ask 2105376 then w0:=0 el┆
0x724fc…72502 (0x324,0xe4b)
0x72502…72520 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 20 7a 65 72 6f 6d ┆se if w0 zerom┆
0x72520…72540 61 73 6b 20 20 2d 31 37 30 33 39 33 36 20 74 68 65 6e 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 ┆ask -1703936 then else ┆
0x72540…72560 20 20 20 20 20 20 20 20 69 66 20 77 30 20 7a 65 72 6f 6d 61 73 6b 20 20 20 20 20 35 38 38 38 30 ┆ if w0 zeromask 58880┆
0x72560…7257a 20 74 68 65 6e 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ then else ┆
0x7257a…72580 (0x324,0xe4c)
0x72580…725a0 20 69 66 20 77 30 20 7a 65 72 6f 6d 61 73 6b 20 20 20 20 20 20 20 32 33 30 20 74 68 65 6e 20 65 ┆ if w0 zeromask 230 then e┆
0x725a0…725c0 6c 73 65 20 77 30 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 30 ┆lse w0:=0; w3:=0┆
0x725c0…725e0 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 68 69 6c 65 20 77 30 3c 3e 30 20 64 6f ┆; while w0<>0 do┆
0x725e0…72600 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 00 00 00 00 00 00 00 00 ┆ begin ┆
0x72600…72606 (915,) (0x324,0xe4d)
0x72606…72620 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 30 20 6c 73 68 69 66 74 ┆ f0 lshift┆
0x72620…72640 20 38 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 31 3a 3d 20 77 33 ┆ 8; if w1:= w3┆
0x72640…72660 20 65 78 74 72 61 63 74 20 38 3d 32 35 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ extract 8=25 then ┆
0x72660…7267e 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ begin ┆
0x7267e…72684 (0x324,0xe4e)
0x72684…726a0 20 77 33 20 6c 73 68 69 66 74 20 2d 38 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ w3 lshift -8; ┆
0x726a0…726c0 20 20 20 20 20 20 20 28 77 32 29 2e 77 6f 72 64 3a 3d 20 77 33 3b 0a 20 20 20 20 20 20 20 20 20 ┆ (w2).word:= w3; ┆
0x726c0…726e0 20 20 20 20 20 20 20 20 20 20 20 6c 61 73 74 3a 3d 20 77 32 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆ last:= w2; ┆
0x726e0…726fc 20 20 20 20 20 20 20 20 20 20 28 77 33 3a 3d 62 2e 63 75 72 72 65 6e 74 29 2e 74 63 ┆ (w3:=b.current).tc┆
0x726fc…72702 (0x324,0xe4f)
0x72702…72720 5f 73 74 61 74 65 3a 3d 20 77 31 3a 3d 20 35 3b 20 21 20 63 6f 6d 70 6c 65 74 65 64 20 21 ┆_state:= w1:= 5; ! completed !┆
0x72720…72740 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 20 30 3b 0a 20 20 20 ┆ w0:= 0; ┆
0x72740…72760 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ end; ┆
0x72760…7277a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ end; ┆
0x7277a…72780 (0x324,0xe50)
0x72780…727a0 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 20 6c 61 73 74 2d 66 69 ┆end; w0:= last-fi┆
0x727a0…727c0 72 73 74 2b 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 20 62 2e 63 75 72 ┆rst+2; w3:= b.cur┆
0x727c0…727e0 72 65 6e 74 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 ┆rent; end; ┆
0x727e0…72800 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 70 72 63 61 75 73 65 00 00 00 00 00 00 00 00 ┆ end; prcause ┆
0x72800…72806 (916,) (0x324,0xe51)
0x72806…72820 28 2e 77 33 2e 2c 77 30 29 3b 0a 20 20 20 20 20 20 20 20 20 20 6d 6f 76 65 28 ┆(.w3.,w0); move(┆
0x72820…72840 2e 77 33 2e 2c 77 30 3a 3d 37 30 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 74 72 69 61 6e 67 32 29 ┆.w3.,w0:=70,w1:=address(triang2)┆
0x72840…72860 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 61 64 64 72 65 73 ┆, w2:=addres┆
0x72860…7287e 73 28 28 77 32 3a 3d 28 77 33 29 2e 74 63 5f 62 75 66 29 2e 62 75 66 5f 64 61 74 61 31 29 ┆s((w2:=(w3).tc_buf).buf_data1)┆
0x7287e…72884 (0x324,0xe52)
0x72884…728a0 29 3b 0a 20 20 20 20 20 20 20 20 20 20 70 72 6c 69 73 74 64 61 74 65 28 2e 77 33 2e ┆); prlistdate(.w3.┆
0x728a0…728c0 2c 77 30 29 3b 0a 20 20 20 20 20 20 20 20 20 20 70 72 6c 69 73 74 69 64 28 2e 77 33 2e 2c 77 30 ┆,w0); prlistid(.w3.,w0┆
0x728c0…728e0 29 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 20 21 20 63 61 73 65 20 21 0a 0a 20 20 20 20 20 20 ┆); end; ! case ! ┆
0x728e0…728fc 20 20 69 66 20 77 30 3e 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e ┆ if w0>0 then begin┆
0x728fc…72902 (0x324,0xe53)
0x72902…72920 20 21 20 77 72 69 74 65 20 6e 65 78 74 20 6f 75 74 70 75 74 20 62 6c 6f 63 6b 20 21 0a 72 ┆ ! write next output block ! r┆
0x72920…72940 65 70 5f 70 72 69 6e 74 3a 0a 20 20 20 20 20 20 20 20 20 20 70 75 73 68 28 2e 77 33 2e 2c 77 30 ┆ep_print: push(.w3.,w0┆
0x72940…72960 29 3b 20 21 20 73 61 76 65 20 6e 6f 20 6f 66 20 68 61 6c 66 77 6f 72 64 73 20 21 0a 0a 20 20 20 ┆); ! save no of halfwords ! ┆
0x72960…7297a 20 20 20 20 20 20 20 77 31 3a 3d 20 28 77 33 29 2e 74 63 5f 62 75 66 3b 0a 20 ┆ w1:= (w3).tc_buf; ┆
0x7297a…72980 (0x324,0xe54)
0x72980…729a0 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 62 75 66 5f 6f 70 3a 3d 20 77 32 3a 3d 20 35 3b 20 28 ┆ (w1).buf_op:= w2:= 5; (┆
0x729a0…729c0 77 31 29 2e 62 75 66 5f 6d 6f 64 65 3a 3d 20 77 32 3a 3d 20 28 77 33 29 2e 74 63 5f 6d 6f 64 65 ┆w1).buf_mode:= w2:= (w3).tc_mode┆
0x729c0…729e0 3b 0a 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 62 75 66 5f 66 69 72 73 74 3a 3d 20 77 32 3a ┆; (w1).buf_first:= w2:┆
0x729e0…72a00 3d 20 61 64 64 72 65 73 73 28 28 77 31 29 2e 62 75 66 5f 64 61 74 61 31 00 00 00 00 00 00 00 00 ┆= address((w1).buf_data1 ┆
0x72a00…72a06 (917,) (0x324,0xe55)
0x72a06…72a20 29 3b 0a 20 20 20 20 20 20 20 20 20 20 77 32 2b 77 30 2d 32 3b 20 28 77 31 29 ┆); w2+w0-2; (w1)┆
0x72a20…72a40 2e 62 75 66 5f 6c 61 73 74 3a 3d 20 77 32 3b 0a 20 20 20 20 20 20 20 20 20 20 74 65 73 74 6f 75 ┆.buf_last:= w2; testou┆
0x72a40…72a60 74 28 2e 77 33 2e 2c 77 30 2c 77 31 3a 3d 28 77 31 29 2e 62 75 66 5f 66 69 72 73 74 2c 77 32 3a ┆t(.w3.,w0,w1:=(w1).buf_first,w2:┆
0x72a60…72a7e 3d 30 29 3b 0a 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 20 28 77 33 29 2e 74 63 5f 62 75 ┆=0); w1:= (w3).tc_bu┆
0x72a7e…72a84 (0x324,0xe56)
0x72a84…72aa0 66 3b 0a 0a 0a 20 20 20 20 20 20 20 20 20 20 73 65 6e 64 77 61 69 74 28 2e 77 33 2e ┆f; sendwait(.w3.┆
0x72aa0…72ac0 2c 77 30 2c 77 31 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 28 77 33 29 2e 74 63 5f 6e 61 6d 65 29 ┆,w0,w1,w2:=address((w3).tc_name)┆
0x72ac0…72ae0 29 3b 0a 20 20 20 20 20 20 20 20 20 20 63 68 65 63 6b 5f 64 65 76 69 63 65 73 74 61 74 75 73 28 ┆); check_devicestatus(┆
0x72ae0…72afc 2e 77 33 2e 2c 77 30 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 62 2e 61 6e 73 5f 73 74 ┆.w3.,w0,w1:=address(b.ans_st┆
0x72afc…72b02 (0x324,0xe57)
0x72b02…72b20 61 74 75 73 29 2c 77 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 70 6f 70 28 2e 77 33 2e 2c ┆atus),w2); pop(.w3.,┆
0x72b20…72b40 77 30 29 3b 20 21 20 72 65 73 74 6f 72 65 20 6e 75 6d 62 65 72 20 6f 66 20 68 61 6c 66 77 6f 72 ┆w0); ! restore number of halfwor┆
0x72b40…72b60 64 73 20 21 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 32 3d 30 20 74 68 65 6e 20 67 6f 74 6f ┆ds ! if w2=0 then goto┆
0x72b60…72b7a 20 72 65 70 5f 70 72 69 6e 74 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 ┆ rep_print; if w┆
0x72b7a…72b80 (0x324,0xe58)
0x72b80…72ba0 31 3a 3d 28 77 33 29 2e 70 72 5f 69 6e 70 73 74 61 74 65 3d 30 20 74 68 65 6e 20 21 20 6e 6f 72 ┆1:=(w3).pr_inpstate=0 then ! nor┆
0x72ba0…72bc0 6d 61 6c 20 69 6e 70 75 74 20 6d 6f 64 65 20 21 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e ┆mal input mode ! begin┆
0x72bc0…72be0 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 62 2e 61 6e 73 5f 62 79 74 65 73 3b 0a 20 20 ┆ w1:=b.ans_bytes; ┆
0x72be0…72c00 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 30 3b 0a 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ w0:=0; ┆
0x72c00…72c06 (918,) (0x324,0xe59)
0x72c06…72c20 20 20 20 20 20 66 31 2b 2b 28 77 33 29 2e 74 63 5f 62 73 70 74 72 3b 0a 20 20 ┆ f1++(w3).tc_bsptr; ┆
0x72c20…72c40 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 62 73 70 74 72 3a 3d 66 31 3b 0a 20 20 20 ┆ (w3).tc_bsptr:=f1; ┆
0x72c40…72c60 20 20 20 20 20 20 20 65 6e 64 3b 0a 0a 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 28 77 33 29 2e ┆ end; w1:=(w3).┆
0x72c60…72c7e 70 72 5f 69 6e 70 73 74 61 74 65 3b 0a 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 31 3c ┆pr_inpstate; if w1<┆
0x72c7e…72c84 (0x324,0xe5a)
0x72c84…72ca0 3d 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 32 3c 3e 32 20 74 ┆=0 then if w2<>2 t┆
0x72ca0…72cc0 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆hen begin ┆
0x72cc0…72ce0 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 70 72 6f 75 74 70 75 74 28 2e 77 ┆begin oproutput(.w┆
0x72ce0…72cfc 33 2e 2c 77 30 3a 3d 32 2c 77 31 3a 3d 32 2c 77 32 29 3b 0a 20 20 20 20 20 20 20 20 ┆3.,w0:=2,w1:=2,w2); ┆
0x72cfc…72d02 (0x324,0xe5b)
0x72d02…72d20 20 20 20 20 20 20 69 66 20 77 32 3c 3e 32 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 ┆ if w2<>2 then ┆
0x72d20…72d40 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3c ┆ begin if w0<┆
0x72d40…72d60 3e 77 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 6e ┆>w0 then begin n┆
0x72d60…72d7a 6f 5f 6f 70 3a 20 20 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 20 32 27 31 30 ┆o_op: w2:= 2'10┆
0x72d7a…72d80 (0x324,0xe5c)
0x72d80…72da0 30 30 30 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 ┆0000; end; ┆
0x72da0…72dc0 20 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 73 74 61 74 65 3a 3d 20 77 30 3a 3d 20 ┆ (w3).tc_state:= w0:= ┆
0x72dc0…72de0 36 3b 20 21 20 61 62 6f 72 74 65 64 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 ┆6; ! aborted ! (┆
0x72de0…72e00 77 33 29 2e 74 63 5f 63 61 75 73 65 3a 3d 20 77 30 3a 3d 20 33 3b 20 21 00 00 00 00 00 00 00 00 ┆w3).tc_cause:= w0:= 3; ! ┆
0x72e00…72e06 (919,) (0x324,0xe5d)
0x72e06…72e20 20 6f 70 65 72 61 74 6f 72 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ operator ! ┆
0x72e20…72e40 20 20 28 77 33 29 2e 74 63 5f 73 74 61 74 75 73 3a 3d 20 77 32 3b 0a 20 20 20 20 20 20 20 20 20 ┆ (w3).tc_status:= w2; ┆
0x72e40…72e60 20 20 20 20 20 20 20 67 6f 74 6f 20 63 6c 6f 73 65 75 70 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ goto closeup; ┆
0x72e60…72e7e 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 68 6f 6c 64 28 2e 77 33 ┆ end; hold(.w3┆
0x72e7e…72e84 (0x324,0xe5e)
0x72e84…72ea0 2e 2c 77 30 3a 3d 61 64 64 72 65 73 73 28 6e 6f 5f 6f 70 29 29 3b 28 77 33 29 2e 74 ┆.,w0:=address(no_op));(w3).t┆
0x72ea0…72ec0 63 5f 68 65 6c 64 3a 3d 77 30 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 ┆c_held:=w0:=0; if ┆
0x72ec0…72ee0 77 30 3a 3d 28 77 33 29 2e 70 72 5f 68 65 61 64 74 72 61 69 6c 3c 3e 30 20 74 68 65 6e 20 28 77 ┆w0:=(w3).pr_headtrail<>0 then (w┆
0x72ee0…72efc 33 29 2e 70 72 5f 69 6e 70 73 74 61 74 65 3a 3d 20 77 30 3a 3d 20 2d 34 3b 0a 20 20 ┆3).pr_inpstate:= w0:= -4; ┆
0x72efc…72f02 (0x324,0xe5f)
0x72f02…72f20 20 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 6c 6f 6f 70 3b 0a 20 20 20 20 20 20 20 ┆ goto loop; ┆
0x72f20…72f40 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 ┆ end; end; ┆
0x72f40…72f60 20 65 6e 64 3b 0a 0a 20 20 20 20 20 20 20 20 63 61 73 65 20 77 32 3a 3d 28 77 30 3a 3d 28 77 33 ┆ end; case w2:=(w0:=(w3┆
0x72f60…72f7a 29 2e 70 72 5f 69 6e 70 73 74 61 74 65 2b 31 29 2b 34 20 6f 66 0a 20 20 20 20 ┆).pr_inpstate+1)+4 of ┆
0x72f7a…72f80 (0x324,0xe60)
0x72f80…72fa0 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 70 72 5f 69 6e 70 73 ┆ begin (w3).pr_inps┆
0x72fa0…72fc0 74 61 74 65 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 70 72 5f 69 6e 70 ┆tate:= w0; (w3).pr_inp┆
0x72fc0…72fe0 73 74 61 74 65 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 70 72 5f 69 6e ┆state:= w0; (w3).pr_in┆
0x72fe0…73000 70 73 74 61 74 65 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 28 00 00 00 00 00 00 00 00 ┆pstate:= w0; ( ┆
0x73000…73006 (920,) (0x324,0xe61)
0x73006…73020 77 33 29 2e 70 72 5f 69 6e 70 73 74 61 74 65 3a 3d 20 77 30 3b 0a 20 20 20 20 ┆w3).pr_inpstate:= w0; ┆
0x73020…73040 20 20 20 20 20 20 62 65 67 69 6e 20 21 20 6e 6f 72 6d 61 6c 20 69 6e 70 75 74 20 6d 6f 64 65 20 ┆ begin ! normal input mode ┆
0x73040…73060 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 32 3a 3d 28 77 33 29 2e 74 63 5f 73 74 61 ┆! if w2:=(w3).tc_sta┆
0x73060…7307e 74 65 3e 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 ┆te>0 then begin ┆
0x7307e…73084 (0x324,0xe62)
0x73084…730a0 20 20 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 70 72 5f 69 6e 70 73 74 61 74 65 ┆ (w3).pr_inpstate┆
0x730a0…730c0 3a 3d 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 ┆:=w0; end; ┆
0x730c0…730e0 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 32 3a 3d 28 77 33 29 2e 70 72 5f 68 ┆ end; if w2:=(w3).pr_h┆
0x730e0…730fc 65 61 64 74 72 61 69 6c 3c 3e 30 20 74 68 65 6e 20 28 77 33 29 2e 70 72 5f 69 6e 70 ┆eadtrail<>0 then (w3).pr_inp┆
0x730fc…73102 (0x324,0xe63)
0x73102…73120 73 74 61 74 65 3a 3d 77 30 20 65 6c 73 65 20 67 6f 74 6f 20 63 6c 6f 73 65 75 70 3b 0a 20 ┆state:=w0 else goto closeup; ┆
0x73120…73140 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 70 72 5f 69 6e 70 73 74 61 74 65 3a 3d 20 77 30 3b 0a ┆ (w3).pr_inpstate:= w0; ┆
0x73140…73160 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 70 72 5f 69 6e 70 73 74 61 74 65 3a 3d 20 77 30 3b ┆ (w3).pr_inpstate:= w0;┆
0x73160…7317a 0a 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 63 6c 6f 73 65 75 70 3b 0a 20 ┆ goto closeup; ┆
0x7317a…73180 (0x324,0xe64)
0x73180…731a0 20 20 20 20 20 20 20 65 6e 64 3b 0a 21 74 65 73 74 20 32 39 35 3b 0a 0a 20 20 20 20 20 20 20 20 ┆ end; !test 295; ┆
0x731a0…731c0 67 6f 74 6f 20 6c 6f 6f 70 3b 0a 0a 0a 0a 63 6c 6f 73 65 75 70 3a 0a 20 20 20 20 20 20 20 20 6c ┆goto loop; closeup: l┆
0x731c0…731e0 69 6e 6b 28 2e 77 33 2e 2c 77 31 3a 3d 28 77 33 3a 3d 62 2e 63 75 72 72 65 6e 74 29 2e 70 72 5f ┆ink(.w3.,w1:=(w3:=b.current).pr_┆
0x731e0…73200 71 75 65 72 65 66 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 62 2e 74 71 66 00 00 00 00 00 00 00 00 ┆queref,w2:=address(b.tqf ┆
0x73200…73206 (921,) (0x324,0xe65)
0x73206…73220 72 65 65 66 73 74 29 29 3b 0a 20 20 20 20 20 20 20 20 77 30 3a 3d 30 3b 28 77 ┆reefst)); w0:=0;(w┆
0x73220…73240 33 29 2e 70 72 5f 71 75 65 72 65 66 3a 3d 77 30 3b 0a 20 20 20 20 20 20 20 20 63 6c 6f 73 65 62 ┆3).pr_queref:=w0; closeb┆
0x73240…73260 73 28 2e 77 33 2e 29 3b 0a 20 20 20 20 20 20 20 20 75 70 64 61 74 65 74 72 61 6e 73 70 6f 72 74 ┆s(.w3.); updatetransport┆
0x73260…7327e 28 2e 77 33 2e 29 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 62 2e 6f 70 72 74 64 ┆(.w3.); if w0:=b.oprtd┆
0x7327e…73284 (0x324,0xe66)
0x73284…732a0 65 74 61 69 6c 73 20 6f 6e 65 6d 61 73 6b 20 31 20 74 68 65 6e 20 6f 70 72 6f 75 74 ┆etails onemask 1 then oprout┆
0x732a0…732c0 70 75 74 28 2e 77 33 2e 2c 77 30 3a 3d 31 2c 77 31 3a 3d 34 2c 77 32 3a 3d 28 77 33 29 2e 74 63 ┆put(.w3.,w0:=1,w1:=4,w2:=(w3).tc┆
0x732c0…732e0 5f 73 74 61 74 65 29 3b 0a 20 20 20 20 20 20 65 6e 64 3b 20 21 20 6f 70 65 72 61 74 69 6f 6e 20 ┆_state); end; ! operation ┆
0x732e0…732fc 21 0a 0a 73 75 69 63 69 64 65 3a 0a 20 20 20 20 20 20 72 65 6d 6f 76 65 5f 74 63 28 ┆! suicide: remove_tc(┆
0x732fc…73302 (0x324,0xe67)
0x73302…73320 2e 77 33 2e 2c 77 31 3a 3d 62 2e 63 75 72 72 65 6e 74 29 3b 0a 20 20 20 20 20 20 67 6f 74 ┆.w3.,w1:=b.current); got┆
0x73320…73340 6f 20 62 2e 61 63 74 69 76 61 74 65 3b 0a 20 20 20 20 65 6e 64 3b 0a 20 20 65 6e 64 3b 20 21 20 ┆o b.activate; end; end; ! ┆
0x73340…73360 70 72 20 21 0a 0a 0a 0a 21 62 72 61 6e 63 68 20 32 2c 37 3b 0a 0a 0a 20 20 62 6f 64 79 20 6f 66 ┆pr ! !branch 2,7; body of┆
0x73360…7337a 20 70 63 0a 20 20 63 6f 6d 6d 65 6e 74 20 70 75 6e 63 68 20 63 6f 72 6f 75 74 ┆ pc comment punch corout┆
0x7337a…73380 (0x324,0xe68)
0x73380…733a0 69 6e 65 3b 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 6c 61 62 65 6c 20 6c 6f 6f 70 2c 20 6e 6f 5f ┆ine; begin label loop, no_┆
0x733a0…733c0 6f 70 2c 20 72 65 70 2c 20 63 6c 6f 73 65 75 70 2c 20 73 75 69 63 69 64 65 3b 0a 20 20 20 20 69 ┆op, rep, closeup, suicide; i┆
0x733c0…733e0 6e 63 6f 64 65 0a 20 20 20 20 20 20 72 65 66 20 66 69 72 73 74 2c 20 6c 61 73 74 3b 0a 20 20 20 ┆ncode ref first, last; ┆
0x733e0…73400 20 20 20 72 65 66 20 74 72 61 6e 73 72 65 66 2c 20 71 75 65 75 65 72 65 00 00 00 00 00 00 00 00 ┆ ref transref, queuere ┆
0x73400…73406 (922,) (0x324,0xe69)
0x73406…73420 66 3b 0a 20 20 20 20 20 20 72 65 66 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 62 ┆f; ref return; b┆
0x73420…73440 65 67 69 6e 0a 20 20 20 20 20 20 72 65 74 75 72 6e 3a 3d 20 77 33 3b 20 63 61 6c 6c 20 77 33 20 ┆egin return:= w3; call w3 ┆
0x73440…73460 72 65 74 75 72 6e 3b 20 21 20 70 73 65 75 64 6f 20 63 61 6c 6c 20 21 0a 0a 20 20 20 20 20 20 77 ┆return; ! pseudo call ! w┆
0x73460…7347e 68 69 6c 65 20 77 31 3d 77 31 20 64 6f 0a 20 20 20 20 20 20 62 65 67 69 6e 20 21 20 67 65 ┆hile w1=w1 do begin ! ge┆
0x7347e…73484 (0x324,0xe6a)
0x73484…734a0 74 20 6e 65 78 74 20 74 72 61 6e 73 70 6f 72 74 20 21 0a 20 20 20 20 20 20 20 20 77 ┆t next transport ! w┆
0x734a0…734c0 31 3a 3d 20 61 64 64 72 65 73 73 28 28 77 33 29 2e 74 63 5f 6e 65 78 74 74 72 29 3b 0a 20 20 20 ┆1:= address((w3).tc_nexttr); ┆
0x734c0…734e0 20 20 20 20 20 77 31 3a 3d 20 28 77 31 29 2e 74 71 5f 6e 65 78 74 3b 0a 20 20 20 20 20 20 20 20 ┆ w1:= (w1).tq_next; ┆
0x734e0…734fc 69 66 20 77 32 3a 3d 61 64 64 72 65 73 73 28 28 77 33 29 2e 74 63 5f 6e 65 78 74 74 ┆if w2:=address((w3).tc_nextt┆
0x734fc…73502 (0x324,0xe6b)
0x73502…73520 72 29 3d 77 31 20 74 68 65 6e 20 67 6f 74 6f 20 73 75 69 63 69 64 65 3b 20 21 20 65 6e 64 ┆r)=w1 then goto suicide; ! end┆
0x73520…73540 20 74 72 61 6e 73 70 2e 20 71 75 65 75 65 20 21 0a 0a 0a 20 20 20 20 20 20 20 20 77 31 3a 3d 20 ┆ transp. queue ! w1:= ┆
0x73540…73560 28 77 33 29 2e 74 63 5f 6e 65 78 74 74 72 3b 0a 20 20 20 20 20 20 20 20 71 75 65 75 65 72 65 66 ┆(w3).tc_nexttr; queueref┆
0x73560…7357a 3a 3d 20 77 31 3b 0a 20 20 20 20 20 20 20 20 6c 6f 6f 6b 74 72 61 6e 73 70 6f ┆:= w1; looktranspo┆
0x7357a…73580 (0x324,0xe6c)
0x73580…735a0 72 74 28 2e 77 33 2e 2c 77 31 3a 3d 28 77 31 29 2e 74 71 5f 74 72 61 6e 73 6e 6f 2c 77 32 29 3b ┆rt(.w3.,w1:=(w1).tq_transno,w2);┆
0x735a0…735c0 0a 20 20 20 20 20 20 20 20 74 72 61 6e 73 72 65 66 3a 3d 20 77 32 3b 0a 20 20 20 20 20 20 20 20 ┆ transref:= w2; ┆
0x735c0…735e0 77 31 3a 3d 20 71 75 65 75 65 72 65 66 3b 0a 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 74 ┆w1:= queueref; (w3).tc_t┆
0x735e0…73600 72 61 6e 73 6e 6f 3a 3d 20 77 30 3a 3d 20 28 77 31 29 2e 74 71 5f 74 72 00 00 00 00 00 00 00 00 ┆ransno:= w0:= (w1).tq_tr ┆
0x73600…73606 (923,) (0x324,0xe6d)
0x73606…73620 61 6e 73 6e 6f 3b 0a 0a 20 20 20 20 20 20 20 20 6c 69 6e 6b 28 2e 77 33 2e 2c ┆ansno; link(.w3.,┆
0x73620…73640 77 31 3a 3d 71 75 65 75 65 72 65 66 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 62 2e 74 71 66 72 65 ┆w1:=queueref,w2:=address(b.tqfre┆
0x73640…73660 65 66 73 74 29 29 3b 0a 20 20 20 20 20 20 20 20 77 32 3a 3d 20 74 72 61 6e 73 72 65 66 3b 0a 20 ┆efst)); w2:= transref; ┆
0x73660…7367e 20 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 6f 69 6e 74 65 72 76 65 6e 74 3a 3d 20 77 30 ┆ (w3).tc_ointervent:= w0┆
0x7367e…73684 (0x324,0xe6e)
0x73684…736a0 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 61 69 6e 74 65 72 ┆:= 0; (w3).tc_ainter┆
0x736a0…736c0 76 65 6e 74 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 6d 6f 64 65 3a ┆vent:= w0; (w3).tc_mode:┆
0x736c0…736e0 3d 20 77 30 3a 3d 20 28 77 32 29 2e 74 72 5f 6d 6f 64 65 3b 0a 20 20 20 20 20 20 20 20 28 77 33 ┆= w0:= (w2).tr_mode; (w3┆
0x736e0…736fc 29 2e 74 63 5f 62 73 6c 3a 3d 20 77 30 3a 3d 20 28 77 32 29 2e 74 72 5f 62 61 73 65 ┆).tc_bsl:= w0:= (w2).tr_base┆
0x736fc…73702 (0x324,0xe6f)
0x73702…73720 6c 3b 0a 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 62 73 75 3a 3d 20 77 30 3a 3d 20 ┆l; (w3).tc_bsu:= w0:= ┆
0x73720…73740 28 77 32 29 2e 74 72 5f 62 61 73 65 75 3b 0a 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 62 ┆(w2).tr_baseu; (w3).tc_b┆
0x73740…73760 73 70 74 72 3a 3d 20 66 31 3a 3d 20 28 77 32 29 2e 74 72 5f 62 73 73 74 61 72 74 70 74 72 3b 0a ┆sptr:= f1:= (w2).tr_bsstartptr; ┆
0x73760…7377a 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 73 74 61 74 65 3a 3d 20 77 30 ┆ (w3).tc_state:= w0┆
0x7377a…73780 (0x324,0xe70)
0x73780…737a0 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 6d 6f 76 65 28 2e 77 33 2e 2c 77 30 3a 3d 38 2c 77 31 ┆:= 0; move(.w3.,w0:=8,w1┆
0x737a0…737c0 3a 3d 61 64 64 72 65 73 73 28 28 77 32 29 2e 74 72 5f 62 73 61 72 65 61 29 2c 77 32 3a 3d 61 64 ┆:=address((w2).tr_bsarea),w2:=ad┆
0x737c0…737e0 64 72 65 73 73 28 28 77 33 29 2e 74 63 5f 62 73 6e 61 6d 65 29 29 3b 0a 20 20 20 20 20 20 20 20 ┆dress((w3).tc_bsname)); ┆
0x737e0…73800 6d 6f 76 65 28 2e 77 33 2e 2c 77 30 2c 77 31 3a 3d 61 64 64 72 65 73 73 00 00 00 00 00 00 00 00 ┆move(.w3.,w0,w1:=address ┆
0x73800…73806 (924,) (0x324,0xe71)
0x73806…73820 28 28 77 31 3a 3d 74 72 61 6e 73 72 65 66 29 2e 74 72 5f 71 67 72 6f 75 70 29 ┆((w1:=transref).tr_qgroup)┆
0x73820…73840 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 61 64 64 72 65 73 73 28 ┆, w2:=address(┆
0x73840…73860 28 77 33 29 2e 74 63 5f 71 67 72 6f 75 70 29 29 3b 0a 20 20 20 20 20 20 20 20 6d 6f 76 65 28 2e ┆(w3).tc_qgroup)); move(.┆
0x73860…7387e 77 33 2e 2c 77 30 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 28 77 31 3a 3d 74 72 61 6e 73 72 ┆w3.,w0,w1:=address((w1:=transr┆
0x7387e…73884 (0x324,0xe72)
0x73884…738a0 65 66 29 2e 74 72 5f 71 6e 61 6d 65 29 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ef).tr_qname), ┆
0x738a0…738c0 20 20 20 20 20 77 32 3a 3d 61 64 64 72 65 73 73 28 28 77 33 29 2e 74 63 5f 71 6e 61 6d 65 29 29 ┆ w2:=address((w3).tc_qname))┆
0x738c0…738e0 3b 0a 20 20 20 20 20 20 20 20 28 77 33 29 2e 70 63 5f 69 6e 70 73 74 61 74 65 3a 3d 20 77 30 3a ┆; (w3).pc_inpstate:= w0:┆
0x738e0…738fc 3d 20 2d 31 3b 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 21 20 68 6f 6c 64 20 64 ┆= -1; begin ! hold d┆
0x738fc…73902 (0x324,0xe73)
0x73902…73920 65 76 69 63 65 20 21 0a 20 20 20 20 20 20 20 20 20 20 6f 70 72 6f 75 74 70 75 74 28 2e 77 ┆evice ! oproutput(.w┆
0x73920…73940 33 2e 2c 77 30 3a 3d 31 2c 77 31 3a 3d 31 2c 77 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 ┆3.,w0:=1,w1:=1,w2); if┆
0x73940…73960 20 77 32 3c 3e 32 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 ┆ w2<>2 then begin ┆
0x73960…7397a 20 20 20 20 20 20 20 20 69 66 20 77 30 3c 3e 77 30 20 74 68 65 6e 0a 20 20 20 ┆ if w0<>w0 then ┆
0x7397a…73980 (0x324,0xe74)
0x73980…739a0 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 6e 6f 5f 6f 70 3a 20 20 20 20 20 20 20 20 77 32 3a ┆ begin no_op: w2:┆
0x739a0…739c0 3d 20 32 27 31 30 30 30 30 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 ┆= 2'100000; end; ┆
0x739c0…739e0 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 73 74 61 74 65 3a 3d 20 77 30 3a 3d 20 36 3b ┆ (w3).tc_state:= w0:= 6;┆
0x739e0…73a00 20 21 20 61 62 6f 72 74 65 64 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ ! aborted ! ┆
0x73a00…73a06 (925,) (0x324,0xe75)
0x73a06…73a20 20 28 77 33 29 2e 74 63 5f 63 61 75 73 65 3a 3d 20 77 30 3a 3d 20 33 3b 20 21 ┆ (w3).tc_cause:= w0:= 3; !┆
0x73a20…73a40 20 6f 70 65 72 61 74 6f 72 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f ┆ operator ! (w3).tc_┆
0x73a40…73a60 73 74 61 74 75 73 3a 3d 20 77 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 63 6c ┆status:= w2; goto cl┆
0x73a60…73a7e 6f 73 65 75 70 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 ┆oseup; end; ┆
0x73a7e…73a84 (0x324,0xe76)
0x73a84…73aa0 20 20 68 6f 6c 64 28 2e 77 33 2e 2c 77 30 3a 3d 61 64 64 72 65 73 73 28 6e 6f 5f 6f ┆ hold(.w3.,w0:=address(no_o┆
0x73aa0…73ac0 70 29 29 3b 28 77 33 29 2e 74 63 5f 68 65 6c 64 3a 3d 77 30 3a 3d 30 3b 0a 20 20 20 20 20 20 20 ┆p));(w3).tc_held:=w0:=0; ┆
0x73ac0…73ae0 20 65 6e 64 3b 0a 0a 0a 20 20 20 20 20 20 20 20 6f 70 65 6e 62 73 28 2e 77 33 2e 29 3b 20 21 20 ┆ end; openbs(.w3.); ! ┆
0x73ae0…73afc 70 72 65 70 61 72 65 20 61 72 65 61 20 21 0a 0a 0a 6c 6f 6f 70 3a 0a 20 20 20 20 20 ┆prepare area ! loop: ┆
0x73afc…73b02 (0x324,0xe77)
0x73b02…73b20 20 20 20 69 66 20 77 32 3a 3d 28 77 33 29 2e 74 63 5f 6f 69 6e 74 65 72 76 65 6e 74 3c 3e ┆ if w2:=(w3).tc_ointervent<>┆
0x73b20…73b40 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 21 20 6f 70 65 72 61 74 6f 72 20 ┆0 then begin ! operator ┆
0x73b40…73b60 69 6e 74 65 72 76 65 6e 74 69 6f 6e 20 21 0a 21 74 65 73 74 20 32 30 36 3b 0a 20 20 20 20 20 20 ┆intervention ! !test 206; ┆
0x73b60…73b7a 20 20 20 20 63 61 73 65 20 77 32 20 65 78 74 72 61 63 74 20 31 32 20 6f 66 0a ┆ case w2 extract 12 of ┆
0x73b7a…73b80 (0x324,0xe78)
0x73b80…73ba0 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 ┆ begin begi┆
0x73ba0…73bc0 6e 20 21 20 73 74 61 72 74 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 20 21 20 73 ┆n ! start ! end; ! s┆
0x73bc0…73be0 74 61 72 74 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 ┆tart ! begin comment┆
0x73be0…73c00 20 73 6b 69 70 3b 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 00 00 00 00 00 00 00 00 ┆ skip;end; b ┆
0x73c00…73c06 (926,) (0x324,0xe79)
0x73c06…73c20 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 72 65 70 65 61 74 3b 65 6e 64 3b 0a 20 ┆egin comment repeat;end; ┆
0x73c20…73c40 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 21 20 72 65 73 74 61 72 74 20 21 0a 20 20 20 ┆ begin ! restart ! ┆
0x73c40…73c60 20 20 20 20 20 20 20 20 20 20 20 6c 6f 6f 6b 74 72 61 6e 73 70 6f 72 74 28 2e 77 33 2e 2c 77 31 ┆ looktransport(.w3.,w1┆
0x73c60…73c7e 3a 3d 28 77 33 29 2e 74 63 5f 74 72 61 6e 73 6e 6f 2c 77 32 29 3b 0a 20 20 20 20 20 20 20 ┆:=(w3).tc_transno,w2); ┆
0x73c7e…73c84 (0x324,0xe7a)
0x73c84…73ca0 20 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 62 73 70 74 72 3a 3d 20 66 31 3a 3d 20 ┆ (w3).tc_bsptr:= f1:= ┆
0x73ca0…73cc0 28 77 32 29 2e 74 72 5f 62 73 73 74 61 72 74 70 74 72 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆(w2).tr_bsstartptr; ┆
0x73cc0…73ce0 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 33 29 2e 70 63 5f ┆end; if w0:=(w3).pc_┆
0x73ce0…73cfc 69 6e 70 73 74 61 74 65 3c 3d 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 ┆inpstate<=0 then ┆
0x73cfc…73d02 (0x324,0xe7b)
0x73d02…73d20 20 62 65 67 69 6e 20 21 20 73 74 6f 70 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ begin ! stop ! ┆
0x73d20…73d40 20 6f 70 72 6f 75 74 70 75 74 28 2e 77 33 2e 2c 77 30 3a 3d 31 2c 77 31 3a 3d 33 2c 77 32 29 3b ┆ oproutput(.w3.,w0:=1,w1:=3,w2);┆
0x73d40…73d60 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 32 3c 3e 32 20 74 68 65 6e 0a 20 20 20 ┆ if w2<>2 then ┆
0x73d60…73d7a 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 ┆ begin ┆
0x73d7a…73d80 (0x324,0xe7c)
0x73d80…73da0 20 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 73 74 61 74 65 3a 3d 20 77 30 3a 3d 20 36 3b 20 21 ┆ (w3).tc_state:= w0:= 6; !┆
0x73da0…73dc0 20 61 62 6f 72 74 65 64 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e ┆ aborted ! (w3).┆
0x73dc0…73de0 74 63 5f 63 61 75 73 65 3a 3d 20 77 30 3a 3d 20 33 3b 20 21 20 6f 70 65 72 61 74 6f 72 20 21 0a ┆tc_cause:= w0:= 3; ! operator ! ┆
0x73de0…73e00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 00 00 00 00 00 00 00 00 ┆ (w3).tc_ ┆
0x73e00…73e06 (927,) (0x324,0xe7d)
0x73e06…73e20 73 74 61 74 75 73 3a 3d 20 77 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆status:= w2; ┆
0x73e20…73e40 20 20 20 67 6f 74 6f 20 63 6c 6f 73 65 75 70 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 ┆ goto closeup; e┆
0x73e40…73e60 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 6f 69 6e 74 65 72 ┆nd; (w3).tc_ointer┆
0x73e60…73e7e 76 65 6e 74 3a 3d 20 77 30 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 68 ┆vent:= w0:= 0; h┆
0x73e7e…73e84 (0x324,0xe7e)
0x73e84…73ea0 6f 6c 64 28 2e 77 33 2e 2c 77 30 3a 3d 61 64 64 72 65 73 73 28 6e 6f 5f 6f 70 29 29 ┆old(.w3.,w0:=address(no_op))┆
0x73ea0…73ec0 3b 28 77 33 29 2e 74 63 5f 68 65 6c 64 3a 3d 77 30 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆;(w3).tc_held:=w0:=0; ┆
0x73ec0…73ee0 20 20 20 20 28 77 33 29 2e 70 63 5f 69 6e 70 73 74 61 74 65 3a 3d 20 77 30 3a 3d 20 2d 31 3b 0a ┆ (w3).pc_inpstate:= w0:= -1; ┆
0x73ee0…73efc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 6c 6f 6f 70 3b 0a 20 20 20 ┆ goto loop; ┆
0x73efc…73f02 (0x324,0xe7f)
0x73f02…73f20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 ┆ end; begi┆
0x73f20…73f40 6e 20 21 20 6b 69 6c 6c 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 63 ┆n ! kill ! (w3).tc┆
0x73f40…73f60 5f 73 74 61 74 65 3a 3d 20 77 30 3a 3d 20 37 3b 20 21 20 6b 69 6c 6c 65 64 20 62 79 20 6f 70 65 ┆_state:= w0:= 7; ! killed by ope┆
0x73f60…73f7a 72 61 74 6f 72 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f ┆rator ! goto┆
0x73f7a…73f80 (0x324,0xe80)
0x73f80…73fa0 20 63 6c 6f 73 65 75 70 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 0a 20 20 20 20 20 20 ┆ closeup; end ┆
0x73fa0…73fc0 20 20 20 20 65 6e 64 3b 20 21 20 63 61 73 65 20 21 0a 20 20 20 20 20 20 20 20 20 20 28 77 33 29 ┆ end; ! case ! (w3)┆
0x73fc0…73fe0 2e 74 63 5f 6f 69 6e 74 65 72 76 65 6e 74 3a 3d 20 77 32 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 ┆.tc_ointervent:= w2:= 0; ┆
0x73fe0…74000 20 65 6e 64 3b 0a 0a 20 20 20 20 20 20 20 20 69 66 20 77 32 3a 3d 28 77 00 00 00 00 00 00 00 00 ┆ end; if w2:=(w ┆
0x74000…74006 (928,) (0x324,0xe81)
0x74006…74020 33 29 2e 74 63 5f 61 69 6e 74 65 72 76 65 6e 74 3c 3e 30 20 74 68 65 6e 0a 20 ┆3).tc_aintervent<>0 then ┆
0x74020…74040 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 73 ┆ begin (w3).tc_s┆
0x74040…74060 74 61 74 65 3a 3d 20 77 30 3a 3d 20 38 3b 20 21 20 6b 69 6c 6c 65 64 20 62 79 20 61 70 70 6c 20 ┆tate:= w0:= 8; ! killed by appl ┆
0x74060…7407e 21 0a 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 63 6c 6f 73 65 75 70 3b 0a 20 20 20 20 ┆! goto closeup; ┆
0x7407e…74084 (0x324,0xe82)
0x74084…740a0 20 20 20 20 65 6e 64 3b 0a 0a 0a 20 20 20 20 20 20 20 20 63 61 73 65 20 77 32 3a 3d ┆ end; case w2:=┆
0x740a0…740c0 28 77 33 29 2e 70 63 5f 69 6e 70 73 74 61 74 65 20 2b 20 32 20 6f 66 0a 20 20 20 20 20 20 20 20 ┆(w3).pc_inpstate + 2 of ┆
0x740c0…740e0 62 65 67 69 6e 20 21 20 67 65 74 20 6e 65 78 74 20 69 6e 70 75 74 20 62 6c 6f 63 6b 20 21 0a 20 ┆begin ! get next input block ! ┆
0x740e0…740fc 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 21 20 70 75 74 20 39 30 20 6e 75 6c 6c ┆ begin ! put 90 null┆
0x740fc…74102 (0x324,0xe83)
0x74102…74120 20 63 68 61 72 73 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 20 61 64 64 72 ┆ chars ! w1:= addr┆
0x74120…74140 65 73 73 28 28 77 32 3a 3d 28 77 33 29 2e 74 63 5f 62 75 66 29 2e 62 75 66 5f 64 61 74 61 31 29 ┆ess((w2:=(w3).tc_buf).buf_data1)┆
0x74140…74160 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 77 6f 72 64 3a 3d 20 77 30 3a 3d 20 30 ┆; (w1).word:= w0:= 0┆
0x74160…7417a 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f 76 65 28 2e 77 33 2e 2c 77 30 ┆; move(.w3.,w0┆
0x7417a…74180 (0x324,0xe84)
0x74180…741a0 3a 3d 36 30 2c 77 31 2c 77 32 3a 3d 77 31 2b 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 ┆:=60,w1,w2:=w1+2); end┆
0x741a0…741c0 3b 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 21 20 6e 6f 72 6d 61 6c 20 69 6e 70 75 74 ┆; begin ! normal input┆
0x741c0…741e0 20 6d 6f 64 65 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 67 65 74 5f 62 6c 6f 63 6b 28 2e 77 ┆ mode ! get_block(.w┆
0x741e0…74200 33 2e 2c 77 30 3a 3d 28 77 33 29 2e 74 63 5f 62 75 66 73 69 7a 65 2c 77 00 00 00 00 00 00 00 00 ┆3.,w0:=(w3).tc_bufsize,w ┆
0x74200…74206 (929,) (0x324,0xe85)
0x74206…74220 31 3a 3d 61 64 64 72 65 73 73 28 28 77 31 3a 3d 28 77 33 29 2e 74 63 5f 62 75 ┆1:=address((w1:=(w3).tc_bu┆
0x74220…74240 66 29 2e 62 75 66 5f 64 61 74 61 31 29 2c 77 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 ┆f).buf_data1),w2); i┆
0x74240…74260 66 20 77 30 3c 3d 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 ┆f w0<=0 then begin ┆
0x74260…7427e 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 73 74 61 74 65 3a 3d 20 77 ┆ (w3).tc_state:= w┆
0x7427e…74284 (0x324,0xe86)
0x74284…742a0 31 3a 3d 20 36 3b 20 21 20 61 62 6f 72 74 65 64 20 21 0a 20 20 20 20 20 20 20 20 20 ┆1:= 6; ! aborted ! ┆
0x742a0…742c0 20 20 20 20 20 28 77 33 29 2e 74 63 5f 63 61 75 73 65 3a 3d 20 77 31 3a 3d 20 31 3b 20 21 20 73 ┆ (w3).tc_cause:= w1:= 1; ! s┆
0x742c0…742e0 65 6e 64 65 72 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 73 74 ┆ender ! (w3).tc_st┆
0x742e0…742fc 61 74 75 73 3a 3d 20 77 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 0a 20 ┆atus:= w2; end ┆
0x742fc…74302 (0x324,0xe87)
0x74302…74320 20 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 ┆ else be┆
0x74320…74340 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 63 75 74 20 62 6c 6f 63 6b 20 73 69 ┆gin ! cut block si┆
0x74340…74360 7a 65 20 64 6f 77 6e 20 69 66 20 61 6e 20 65 6d 2d 63 68 61 72 20 69 73 20 66 6f 75 6e 64 20 69 ┆ze down if an em-char is found i┆
0x74360…7437a 6e 20 74 68 65 20 62 6c 6f 63 6b 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆n the block ! ┆
0x7437a…74380 (0x324,0xe88)
0x74380…743a0 20 20 77 31 3a 3d 20 28 77 33 29 2e 74 63 5f 62 75 66 3b 20 66 69 72 73 74 3a 3d 20 77 32 3a 3d ┆ w1:= (w3).tc_buf; first:= w2:=┆
0x743a0…743c0 20 61 64 64 72 65 73 73 28 28 77 31 29 2e 62 75 66 5f 64 61 74 61 31 29 3b 0a 20 20 20 20 20 20 ┆ address((w1).buf_data1); ┆
0x743c0…743e0 20 20 20 20 20 20 20 20 77 32 2d 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 30 2b 77 ┆ w2-2; w0+w┆
0x743e0…74400 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 61 73 74 3a 3d 20 00 00 00 00 00 00 00 00 ┆2; last:= ┆
0x74400…74406 (930,) (0x324,0xe89)
0x74406…74420 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 68 69 6c 65 20 77 32 ┆w0; while w2┆
0x74420…74440 2b 32 3c 3d 6c 61 73 74 20 64 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a ┆+2<=last do begin ┆
0x74440…74460 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 ┆ w3:= 0; ┆
0x74460…7447e 20 20 20 20 20 20 20 20 77 30 3a 3d 20 28 77 32 29 2e 77 6f 72 64 3b 0a 20 20 20 20 20 20 ┆ w0:= (w2).word; ┆
0x7447e…74484 (0x324,0xe8a)
0x74484…744a0 20 20 20 20 20 20 20 20 20 20 77 68 69 6c 65 20 77 30 3c 3e 30 20 64 6f 0a 20 20 20 ┆ while w0<>0 do ┆
0x744a0…744c0 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ begin ┆
0x744c0…744e0 20 20 20 20 20 66 30 20 6c 73 68 69 66 74 20 38 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ f0 lshift 8; ┆
0x744e0…744fc 20 20 20 20 69 66 20 77 31 3a 3d 20 77 33 20 65 78 74 72 61 63 74 20 38 3d 32 35 20 ┆ if w1:= w3 extract 8=25 ┆
0x744fc…74502 (0x324,0xe8b)
0x74502…74520 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 ┆then begin ┆
0x74520…74540 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 33 20 6c 73 68 69 66 74 20 2d 38 3b ┆ w3 lshift -8;┆
0x74540…74560 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 32 29 2e 77 6f 72 64 3a 3d ┆ (w2).word:=┆
0x74560…7457a 20 77 33 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6c ┆ w3; l┆
0x7457a…74580 (0x324,0xe8c)
0x74580…745a0 61 73 74 3a 3d 20 77 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 ┆ast:= w2; (w┆
0x745a0…745c0 33 3a 3d 62 2e 63 75 72 72 65 6e 74 29 2e 74 63 5f 73 74 61 74 65 3a 3d 20 77 31 3a 3d 20 35 3b ┆3:=b.current).tc_state:= w1:= 5;┆
0x745c0…745e0 20 21 20 63 6f 6d 70 6c 65 74 65 64 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ! completed ! ┆
0x745e0…74600 20 20 20 77 30 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ w0:= 0; ┆
0x74600…74606 (931,) (0x324,0xe8d)
0x74606…74620 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ end; ┆
0x74620…74640 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 ┆ end; end; ┆
0x74640…74660 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 20 6c 61 73 74 2d 66 69 72 73 74 2b 32 3b 0a 20 20 20 ┆ w0:= last-first+2; ┆
0x74660…7467e 20 20 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 20 62 2e 63 75 72 72 65 6e 74 3b 0a 20 20 ┆ w3:= b.current; ┆
0x7467e…74684 (0x324,0xe8e)
0x74684…746a0 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e ┆ end; en┆
0x746a0…746c0 64 3b 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 21 20 70 75 74 20 39 30 20 6e 75 6c 6c ┆d; begin ! put 90 null┆
0x746c0…746e0 20 63 68 61 72 73 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 20 61 64 64 72 65 73 ┆ chars ! w1:= addres┆
0x746e0…746fc 73 28 28 77 32 3a 3d 28 77 33 29 2e 74 63 5f 62 75 66 29 2e 62 75 66 5f 64 61 74 61 ┆s((w2:=(w3).tc_buf).buf_data┆
0x746fc…74702 (0x324,0xe8f)
0x74702…74720 31 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 77 6f 72 64 3a 3d 20 77 30 ┆1); (w1).word:= w0┆
0x74720…74740 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f 76 65 28 2e 77 33 2e 2c 77 30 3a 3d ┆:= 0; move(.w3.,w0:=┆
0x74740…74760 36 30 2c 77 31 2c 77 32 3a 3d 77 31 2b 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a ┆60,w1,w2:=w1+2); end; ┆
0x74760…7477a 20 20 20 20 20 20 20 20 65 6e 64 3b 20 21 20 63 61 73 65 20 21 0a 0a 20 20 20 ┆ end; ! case ! ┆
0x7477a…74780 (0x324,0xe90)
0x74780…747a0 20 20 20 20 20 69 66 20 77 30 3e 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 ┆ if w0>0 then begin ┆
0x747a0…747c0 21 20 77 72 69 74 65 20 6e 65 78 74 20 6f 75 74 70 75 74 20 62 6c 6f 63 6b 20 21 0a 72 65 70 3a ┆! write next output block ! rep:┆
0x747c0…747e0 0a 20 20 20 20 20 20 20 20 20 20 70 75 73 68 28 2e 77 33 2e 2c 77 30 29 3b 20 21 20 73 61 76 65 ┆ push(.w3.,w0); ! save┆
0x747e0…74800 20 6e 6f 20 6f 66 20 68 61 6c 66 77 6f 72 64 73 20 21 0a 0a 20 20 20 20 00 00 00 00 00 00 00 00 ┆ no of halfwords ! ┆
0x74800…74806 (932,) (0x324,0xe91)
0x74806…74820 20 20 20 20 20 20 77 31 3a 3d 20 28 77 33 29 2e 74 63 5f 62 75 66 3b 0a 20 20 ┆ w1:= (w3).tc_buf; ┆
0x74820…74840 20 20 20 20 20 20 20 20 28 77 31 29 2e 62 75 66 5f 6f 70 3a 3d 20 77 32 3a 3d 20 35 3b 20 28 77 ┆ (w1).buf_op:= w2:= 5; (w┆
0x74840…74860 31 29 2e 62 75 66 5f 6d 6f 64 65 3a 3d 20 77 32 3a 3d 20 28 77 33 29 2e 74 63 5f 6d 6f 64 65 3b ┆1).buf_mode:= w2:= (w3).tc_mode;┆
0x74860…7487e 0a 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 62 75 66 5f 66 69 72 73 74 3a 3d 20 77 32 ┆ (w1).buf_first:= w2┆
0x7487e…74884 (0x324,0xe92)
0x74884…748a0 3a 3d 20 61 64 64 72 65 73 73 28 28 77 31 29 2e 62 75 66 5f 64 61 74 61 31 29 3b 0a ┆:= address((w1).buf_data1); ┆
0x748a0…748c0 20 20 20 20 20 20 20 20 20 20 77 32 2b 77 30 2d 32 3b 20 28 77 31 29 2e 62 75 66 5f 6c 61 73 74 ┆ w2+w0-2; (w1).buf_last┆
0x748c0…748e0 3a 3d 20 77 32 3b 0a 20 20 20 20 20 20 20 20 20 20 74 65 73 74 6f 75 74 28 2e 77 33 2e 2c 77 30 ┆:= w2; testout(.w3.,w0┆
0x748e0…748fc 2c 77 31 3a 3d 28 77 31 29 2e 62 75 66 5f 66 69 72 73 74 2c 77 32 3a 3d 30 29 3b 0a ┆,w1:=(w1).buf_first,w2:=0); ┆
0x748fc…74902 (0x324,0xe93)
0x74902…74920 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 20 28 77 33 29 2e 74 63 5f 62 75 66 3b 0a 0a 0a ┆ w1:= (w3).tc_buf; ┆
0x74920…74940 20 20 20 20 20 20 20 20 20 20 73 65 6e 64 77 61 69 74 28 2e 77 33 2e 2c 77 30 2c 77 31 2c 77 32 ┆ sendwait(.w3.,w0,w1,w2┆
0x74940…74960 3a 3d 61 64 64 72 65 73 73 28 28 77 33 29 2e 74 63 5f 6e 61 6d 65 29 29 3b 0a 20 20 20 20 20 20 ┆:=address((w3).tc_name)); ┆
0x74960…7497a 20 20 20 20 63 68 65 63 6b 5f 64 65 76 69 63 65 73 74 61 74 75 73 28 2e 77 33 ┆ check_devicestatus(.w3┆
0x7497a…74980 (0x324,0xe94)
0x74980…749a0 2e 2c 77 30 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 62 2e 61 6e 73 5f 73 74 61 74 75 73 29 2c 77 ┆.,w0,w1:=address(b.ans_status),w┆
0x749a0…749c0 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 70 6f 70 28 2e 77 33 2e 2c 77 30 29 3b 20 21 20 72 65 ┆2); pop(.w3.,w0); ! re┆
0x749c0…749e0 73 74 6f 72 65 20 6e 75 6d 62 65 72 20 6f 66 20 68 61 6c 66 77 6f 72 64 73 20 21 0a 20 20 20 20 ┆store number of halfwords ! ┆
0x749e0…74a00 20 20 20 20 20 20 20 20 69 66 20 77 32 3d 30 20 74 68 65 6e 20 67 6f 74 00 00 00 00 00 00 00 00 ┆ if w2=0 then got ┆
0x74a00…74a06 (933,) (0x324,0xe95)
0x74a06…74a20 6f 20 72 65 70 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 31 3a 3d 28 77 ┆o rep; if w1:=(w┆
0x74a20…74a40 33 29 2e 70 63 5f 69 6e 70 73 74 61 74 65 3d 30 20 74 68 65 6e 20 21 20 6e 6f 72 6d 61 6c 20 69 ┆3).pc_inpstate=0 then ! normal i┆
0x74a40…74a60 6e 70 75 74 20 6d 6f 64 65 20 21 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 ┆nput mode ! begin ┆
0x74a60…74a7e 20 20 20 20 20 20 20 20 77 31 3a 3d 62 2e 61 6e 73 5f 62 79 74 65 73 3b 0a 20 20 20 20 20 ┆ w1:=b.ans_bytes; ┆
0x74a7e…74a84 (0x324,0xe96)
0x74a84…74aa0 20 20 20 20 20 20 20 77 30 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 66 31 ┆ w0:=0; f1┆
0x74aa0…74ac0 2b 2b 28 77 33 29 2e 74 63 5f 62 73 70 74 72 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 77 33 ┆++(w3).tc_bsptr; (w3┆
0x74ac0…74ae0 29 2e 74 63 5f 62 73 70 74 72 3a 3d 66 31 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 0a ┆).tc_bsptr:=f1; end; ┆
0x74ae0…74afc 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 28 77 33 29 2e 70 63 5f 69 6e 70 73 74 61 ┆ w1:=(w3).pc_inpsta┆
0x74afc…74b02 (0x324,0xe97)
0x74b02…74b20 74 65 3b 0a 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 31 3c 3d 30 20 74 68 65 6e 0a 20 ┆te; if w1<=0 then ┆
0x74b20…74b40 20 20 20 20 20 20 20 20 20 69 66 20 77 32 3c 3e 32 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 ┆ if w2<>2 then ┆
0x74b40…74b60 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 ┆ begin begin ┆
0x74b60…74b7a 20 20 20 20 20 20 20 6f 70 72 6f 75 74 70 75 74 28 2e 77 33 2e 2c 77 30 3a 3d ┆ oproutput(.w3.,w0:=┆
0x74b7a…74b80 (0x324,0xe98)
0x74b80…74ba0 32 2c 77 31 3a 3d 32 2c 77 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 32 ┆2,w1:=2,w2); if w2┆
0x74ba0…74bc0 3c 3e 32 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 ┆<>2 then begin ┆
0x74bc0…74be0 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 73 74 61 74 65 3a 3d 20 77 30 3a ┆ (w3).tc_state:= w0:┆
0x74be0…74c00 3d 20 36 3b 20 21 20 61 62 6f 72 74 65 64 20 21 0a 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆= 6; ! aborted ! ┆
0x74c00…74c06 (934,) (0x324,0xe99)
0x74c06…74c20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 63 61 75 73 65 3a 3d 20 77 ┆ (w3).tc_cause:= w┆
0x74c20…74c40 30 3a 3d 20 33 3b 20 21 20 6f 70 65 72 61 74 6f 72 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆0:= 3; ! operator ! ┆
0x74c40…74c60 20 20 20 20 28 77 33 29 2e 74 63 5f 73 74 61 74 75 73 3a 3d 20 77 32 3b 0a 20 20 20 20 20 20 20 ┆ (w3).tc_status:= w2; ┆
0x74c60…74c7e 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 63 6c 6f 73 65 75 70 3b 0a 20 20 20 20 20 20 20 ┆ goto closeup; ┆
0x74c7e…74c84 (0x324,0xe9a)
0x74c84…74ca0 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 68 6f ┆ end; ho┆
0x74ca0…74cc0 6c 64 28 2e 77 33 2e 2c 77 30 3a 3d 61 64 64 72 65 73 73 28 6e 6f 5f 6f 70 29 29 3b 28 77 33 29 ┆ld(.w3.,w0:=address(no_op));(w3)┆
0x74cc0…74ce0 2e 74 63 5f 68 65 6c 64 3a 3d 77 30 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 ┆.tc_held:=w0:=0; (┆
0x74ce0…74cfc 77 33 29 2e 70 63 5f 69 6e 70 73 74 61 74 65 3a 3d 20 77 30 3a 3d 20 2d 31 3b 0a 20 ┆w3).pc_inpstate:= w0:= -1; ┆
0x74cfc…74d02 (0x324,0xe9b)
0x74d02…74d20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 6c 6f 6f 70 3b 0a 20 20 20 20 20 20 ┆ goto loop; ┆
0x74d20…74d40 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 ┆ end; end; ┆
0x74d40…74d60 20 20 65 6e 64 3b 0a 0a 20 20 20 20 20 20 20 20 63 61 73 65 20 77 32 3a 3d 28 77 30 3a 3d 28 77 ┆ end; case w2:=(w0:=(w┆
0x74d60…74d7a 33 29 2e 70 63 5f 69 6e 70 73 74 61 74 65 2b 31 29 2b 31 20 6f 66 0a 20 20 20 ┆3).pc_inpstate+1)+1 of ┆
0x74d7a…74d80 (0x324,0xe9c)
0x74d80…74da0 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 70 63 5f 69 6e 70 ┆ begin (w3).pc_inp┆
0x74da0…74dc0 73 74 61 74 65 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 21 20 6e 6f ┆state:= w0; begin ! no┆
0x74dc0…74de0 72 6d 61 6c 20 69 6e 70 75 74 20 6d 6f 64 65 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 ┆rmal input mode ! if┆
0x74de0…74e00 20 77 32 3a 3d 28 77 33 29 2e 74 63 5f 73 74 61 74 65 3e 30 20 74 68 65 00 00 00 00 00 00 00 00 ┆ w2:=(w3).tc_state>0 the ┆
0x74e00…74e06 (935,) (0x324,0xe9d)
0x74e06…74e20 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 ┆n begin ┆
0x74e20…74e40 20 20 20 20 20 20 20 20 28 77 33 29 2e 70 63 5f 69 6e 70 73 74 61 74 65 3a 3d 20 77 30 3b 0a 20 ┆ (w3).pc_inpstate:= w0; ┆
0x74e40…74e60 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 ┆ end; end; ┆
0x74e60…74e7e 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 63 6c 6f 73 65 75 70 3b 0a 20 20 20 20 20 20 20 ┆ goto closeup; ┆
0x74e7e…74e84 (0x324,0xe9e)
0x74e84…74ea0 20 65 6e 64 3b 0a 21 74 65 73 74 20 32 39 35 3b 0a 0a 20 20 20 20 20 20 20 20 67 6f ┆ end; !test 295; go┆
0x74ea0…74ec0 74 6f 20 6c 6f 6f 70 3b 0a 0a 0a 0a 63 6c 6f 73 65 75 70 3a 0a 20 20 20 20 20 20 20 20 63 6c 6f ┆to loop; closeup: clo┆
0x74ec0…74ee0 73 65 62 73 28 2e 77 33 2e 29 3b 0a 20 20 20 20 20 20 20 20 75 70 64 61 74 65 74 72 61 6e 73 70 ┆sebs(.w3.); updatetransp┆
0x74ee0…74efc 6f 72 74 28 2e 77 33 2e 29 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 62 2e ┆ort(.w3.); if w0:=b.┆
0x74efc…74f02 (0x324,0xe9f)
0x74f02…74f20 6f 70 72 74 64 65 74 61 69 6c 73 20 6f 6e 65 6d 61 73 6b 20 31 20 74 68 65 6e 20 6f 70 72 ┆oprtdetails onemask 1 then opr┆
0x74f20…74f40 6f 75 74 70 75 74 28 2e 77 33 2e 2c 77 30 3a 3d 31 2c 77 31 3a 3d 34 2c 77 32 3a 3d 28 77 33 29 ┆output(.w3.,w0:=1,w1:=4,w2:=(w3)┆
0x74f40…74f60 2e 74 63 5f 73 74 61 74 65 29 3b 0a 20 20 20 20 20 20 65 6e 64 3b 20 21 20 67 65 74 20 6e 65 78 ┆.tc_state); end; ! get nex┆
0x74f60…74f7a 74 20 74 72 61 6e 73 70 6f 72 74 20 21 0a 0a 73 75 69 63 69 64 65 3a 0a 20 20 ┆t transport ! suicide: ┆
0x74f7a…74f80 (0x324,0xea0)
0x74f80…74fa0 20 20 20 20 72 65 6d 6f 76 65 5f 74 63 28 2e 77 33 2e 2c 77 31 3a 3d 62 2e 63 75 72 72 65 6e 74 ┆ remove_tc(.w3.,w1:=b.current┆
0x74fa0…74fc0 29 3b 0a 20 20 20 20 20 20 67 6f 74 6f 20 62 2e 61 63 74 69 76 61 74 65 3b 0a 20 20 20 20 65 6e ┆); goto b.activate; en┆
0x74fc0…74fe0 64 3b 0a 20 20 65 6e 64 3b 20 21 20 70 63 20 21 0a 0a 0a 21 62 72 61 6e 63 68 20 32 2c 38 3b 0a ┆d; end; ! pc ! !branch 2,8; ┆
0x74fe0…75000 0a 20 20 62 6f 64 79 20 6f 66 20 72 64 0a 20 20 63 6f 6d 6d 65 6e 74 20 00 00 00 00 00 00 00 00 ┆ body of rd comment ┆
0x75000…75006 (936,) (0x324,0xea1)
0x75006…75020 72 65 61 64 65 72 20 63 6f 72 6f 75 74 69 6e 65 3b 0a 20 20 62 65 67 69 6e 0a ┆reader coroutine; begin ┆
0x75020…75040 20 20 20 20 6c 61 62 65 6c 20 6c 6f 6f 70 2c 20 6e 6f 5f 6f 70 2c 20 63 6c 6f 73 65 75 70 2c 20 ┆ label loop, no_op, closeup, ┆
0x75040…75060 73 75 69 63 69 64 65 3b 0a 20 20 20 20 69 6e 63 6f 64 65 0a 20 20 20 20 20 20 72 65 66 20 66 69 ┆suicide; incode ref fi┆
0x75060…7507e 72 73 74 2c 20 6c 61 73 74 3b 0a 20 20 20 20 20 20 72 65 66 20 74 72 61 6e 73 72 65 66 2c ┆rst, last; ref transref,┆
0x7507e…75084 (0x324,0xea2)
0x75084…750a0 20 71 75 65 75 65 72 65 66 3b 0a 20 20 20 20 20 20 72 65 66 20 72 65 74 75 72 6e 3b ┆ queueref; ref return;┆
0x750a0…750c0 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 72 65 74 75 72 6e 3a 3d 20 77 33 3b 20 63 61 ┆ begin return:= w3; ca┆
0x750c0…750e0 6c 6c 20 77 33 20 72 65 74 75 72 6e 3b 20 21 20 70 73 65 75 64 6f 20 63 61 6c 6c 20 21 0a 0a 20 ┆ll w3 return; ! pseudo call ! ┆
0x750e0…750fc 20 20 20 20 20 77 68 69 6c 65 20 77 31 3d 77 31 20 64 6f 0a 20 20 20 20 20 20 62 65 ┆ while w1=w1 do be┆
0x750fc…75102 (0x324,0xea3)
0x75102…75120 67 69 6e 20 21 20 67 65 74 20 6e 65 78 74 20 74 72 61 6e 73 70 6f 72 74 20 21 0a 20 20 20 ┆gin ! get next transport ! ┆
0x75120…75140 20 20 20 20 20 77 31 3a 3d 20 61 64 64 72 65 73 73 28 28 77 33 29 2e 74 63 5f 6e 65 78 74 74 72 ┆ w1:= address((w3).tc_nexttr┆
0x75140…75160 29 3b 0a 20 20 20 20 20 20 20 20 77 31 3a 3d 20 28 77 31 29 2e 74 71 5f 6e 65 78 74 3b 0a 20 20 ┆); w1:= (w1).tq_next; ┆
0x75160…7517a 20 20 20 20 20 20 69 66 20 77 32 3a 3d 61 64 64 72 65 73 73 28 28 77 33 29 2e ┆ if w2:=address((w3).┆
0x7517a…75180 (0x324,0xea4)
0x75180…751a0 74 63 5f 6e 65 78 74 74 72 29 3d 77 31 20 74 68 65 6e 20 67 6f 74 6f 20 73 75 69 63 69 64 65 3b ┆tc_nexttr)=w1 then goto suicide;┆
0x751a0…751c0 20 21 20 65 6e 64 20 74 72 61 6e 73 70 2e 20 71 75 65 75 65 20 21 0a 0a 0a 20 20 20 20 20 20 20 ┆ ! end transp. queue ! ┆
0x751c0…751e0 20 77 31 3a 3d 20 28 77 33 29 2e 74 63 5f 6e 65 78 74 74 72 3b 0a 20 20 20 20 20 20 20 20 71 75 ┆ w1:= (w3).tc_nexttr; qu┆
0x751e0…75200 65 75 65 72 65 66 3a 3d 20 77 31 3b 0a 20 20 20 20 20 20 20 20 6c 6f 6f 00 00 00 00 00 00 00 00 ┆eueref:= w1; loo ┆
0x75200…75206 (937,) (0x324,0xea5)
0x75206…75220 6b 74 72 61 6e 73 70 6f 72 74 28 2e 77 33 2e 2c 77 31 3a 3d 28 77 31 29 2e 74 ┆ktransport(.w3.,w1:=(w1).t┆
0x75220…75240 71 5f 74 72 61 6e 73 6e 6f 2c 77 32 29 3b 0a 20 20 20 20 20 20 20 20 74 72 61 6e 73 72 65 66 3a ┆q_transno,w2); transref:┆
0x75240…75260 3d 20 77 32 3b 0a 20 20 20 20 20 20 20 20 77 31 3a 3d 20 71 75 65 75 65 72 65 66 3b 0a 20 20 20 ┆= w2; w1:= queueref; ┆
0x75260…7527e 20 20 20 20 20 28 77 33 29 2e 74 63 5f 74 72 61 6e 73 6e 6f 3a 3d 20 77 30 3a 3d 20 28 77 ┆ (w3).tc_transno:= w0:= (w┆
0x7527e…75284 (0x324,0xea6)
0x75284…752a0 31 29 2e 74 71 5f 74 72 61 6e 73 6e 6f 3b 0a 0a 20 20 20 20 20 20 20 20 6c 69 6e 6b ┆1).tq_transno; link┆
0x752a0…752c0 28 2e 77 33 2e 2c 77 31 3a 3d 71 75 65 75 65 72 65 66 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 62 ┆(.w3.,w1:=queueref,w2:=address(b┆
0x752c0…752e0 2e 74 71 66 72 65 65 66 73 74 29 29 3b 0a 20 20 20 20 20 20 20 20 77 32 3a 3d 20 74 72 61 6e 73 ┆.tqfreefst)); w2:= trans┆
0x752e0…752fc 72 65 66 3b 0a 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 6f 69 6e 74 65 72 76 ┆ref; (w3).tc_ointerv┆
0x752fc…75302 (0x324,0xea7)
0x75302…75320 65 6e 74 3a 3d 20 77 30 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f ┆ent:= w0:= 0; (w3).tc_┆
0x75320…75340 61 69 6e 74 65 72 76 65 6e 74 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 63 ┆aintervent:= w0; (w3).tc┆
0x75340…75360 5f 6d 6f 64 65 3a 3d 20 77 30 3a 3d 20 28 77 32 29 2e 74 72 5f 6d 6f 64 65 3b 0a 20 20 20 20 20 ┆_mode:= w0:= (w2).tr_mode; ┆
0x75360…7537a 20 20 20 28 77 33 29 2e 74 63 5f 62 73 6c 3a 3d 20 77 30 3a 3d 20 28 77 32 29 ┆ (w3).tc_bsl:= w0:= (w2)┆
0x7537a…75380 (0x324,0xea8)
0x75380…753a0 2e 74 72 5f 62 61 73 65 6c 3b 0a 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 62 73 75 3a 3d ┆.tr_basel; (w3).tc_bsu:=┆
0x753a0…753c0 20 77 30 3a 3d 20 28 77 32 29 2e 74 72 5f 62 61 73 65 75 3b 0a 20 20 20 20 20 20 20 20 28 77 33 ┆ w0:= (w2).tr_baseu; (w3┆
0x753c0…753e0 29 2e 74 63 5f 62 73 70 74 72 3a 3d 20 66 31 3a 3d 20 28 77 32 29 2e 74 72 5f 62 73 73 74 61 72 ┆).tc_bsptr:= f1:= (w2).tr_bsstar┆
0x753e0…75400 74 70 74 72 3b 0a 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 73 74 00 00 00 00 00 00 00 00 ┆tptr; (w3).tc_st ┆
0x75400…75406 (938,) (0x324,0xea9)
0x75406…75420 61 74 65 3a 3d 20 77 30 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 6d 6f 76 65 ┆ate:= w0:= 0; move┆
0x75420…75440 28 2e 77 33 2e 2c 77 30 3a 3d 38 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 28 77 32 29 2e 74 72 5f ┆(.w3.,w0:=8,w1:=address((w2).tr_┆
0x75440…75460 62 73 61 72 65 61 29 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 28 77 33 29 2e 74 63 5f 62 73 6e 61 ┆bsarea),w2:=address((w3).tc_bsna┆
0x75460…7547e 6d 65 29 29 3b 0a 20 20 20 20 20 20 20 20 6d 6f 76 65 28 2e 77 33 2e 2c 77 30 2c 77 31 3a ┆me)); move(.w3.,w0,w1:┆
0x7547e…75484 (0x324,0xeaa)
0x75484…754a0 3d 61 64 64 72 65 73 73 28 28 77 31 3a 3d 74 72 61 6e 73 72 65 66 29 2e 74 72 5f 71 ┆=address((w1:=transref).tr_q┆
0x754a0…754c0 67 72 6f 75 70 29 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 61 64 ┆group), w2:=ad┆
0x754c0…754e0 64 72 65 73 73 28 28 77 33 29 2e 74 63 5f 71 67 72 6f 75 70 29 29 3b 0a 20 20 20 20 20 20 20 20 ┆dress((w3).tc_qgroup)); ┆
0x754e0…754fc 6d 6f 76 65 28 2e 77 33 2e 2c 77 30 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 28 77 31 ┆move(.w3.,w0,w1:=address((w1┆
0x754fc…75502 (0x324,0xeab)
0x75502…75520 3a 3d 74 72 61 6e 73 72 65 66 29 2e 74 72 5f 71 6e 61 6d 65 29 2c 0a 20 20 20 20 20 20 20 ┆:=transref).tr_qname), ┆
0x75520…75540 20 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 61 64 64 72 65 73 73 28 28 77 33 29 2e 74 63 5f 71 ┆ w2:=address((w3).tc_q┆
0x75540…75560 6e 61 6d 65 29 29 3b 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 21 20 68 6f 6c 64 20 64 65 76 ┆name)); begin ! hold dev┆
0x75560…7557a 69 63 65 20 21 0a 20 20 20 20 20 20 20 20 20 20 6f 70 72 6f 75 74 70 75 74 28 ┆ice ! oproutput(┆
0x7557a…75580 (0x324,0xeac)
0x75580…755a0 2e 77 33 2e 2c 77 30 3a 3d 31 2c 77 31 3a 3d 31 2c 77 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆.w3.,w0:=1,w1:=1,w2); ┆
0x755a0…755c0 69 66 20 77 32 3c 3e 32 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 ┆if w2<>2 then begin ┆
0x755c0…755e0 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3c 3e 77 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 ┆ if w0<>w0 then ┆
0x755e0…75600 20 20 20 20 20 62 65 67 69 6e 0a 6e 6f 5f 6f 70 3a 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ begin no_op: ┆
0x75600…75606 (939,) (0x324,0xead)
0x75606…75620 20 77 32 3a 3d 20 32 27 31 30 30 30 30 30 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆ w2:= 2'100000; ┆
0x75620…75640 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 73 74 61 74 65 ┆ end; (w3).tc_state┆
0x75640…75660 3a 3d 20 77 30 3a 3d 20 36 3b 20 21 20 61 62 6f 72 74 65 64 20 21 0a 20 20 20 20 20 20 20 20 20 ┆:= w0:= 6; ! aborted ! ┆
0x75660…7567e 20 20 20 28 77 33 29 2e 74 63 5f 63 61 75 73 65 3a 3d 20 77 30 3a 3d 20 33 3b 20 21 20 6f ┆ (w3).tc_cause:= w0:= 3; ! o┆
0x7567e…75684 (0x324,0xeae)
0x75684…756a0 70 65 72 61 74 6f 72 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 ┆perator ! (w3).t┆
0x756a0…756c0 63 5f 73 74 61 74 75 73 3a 3d 20 77 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 ┆c_status:= w2; goto ┆
0x756c0…756e0 63 6c 6f 73 65 75 70 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 ┆closeup; end; ┆
0x756e0…756fc 20 20 68 6f 6c 64 28 2e 77 33 2e 2c 77 30 3a 3d 61 64 64 72 65 73 73 28 6e 6f 5f 6f ┆ hold(.w3.,w0:=address(no_o┆
0x756fc…75702 (0x324,0xeaf)
0x75702…75720 70 29 29 3b 28 77 33 29 2e 74 63 5f 68 65 6c 64 3a 3d 77 30 3a 3d 30 3b 0a 20 20 20 20 20 ┆p));(w3).tc_held:=w0:=0; ┆
0x75720…75740 20 20 20 65 6e 64 3b 0a 0a 0a 20 20 20 20 20 20 20 20 6f 70 65 6e 62 73 28 2e 77 33 2e 29 3b 20 ┆ end; openbs(.w3.); ┆
0x75740…75760 21 20 70 72 65 70 61 72 65 20 61 72 65 61 20 21 0a 0a 0a 6c 6f 6f 70 3a 0a 20 20 20 20 20 20 20 ┆! prepare area ! loop: ┆
0x75760…7577a 20 69 66 20 77 32 3a 3d 28 77 33 29 2e 74 63 5f 6f 69 6e 74 65 72 76 65 6e 74 ┆ if w2:=(w3).tc_ointervent┆
0x7577a…75780 (0x324,0xeb0)
0x75780…757a0 3c 3e 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 21 20 6f 70 65 72 61 74 6f ┆<>0 then begin ! operato┆
0x757a0…757c0 72 20 69 6e 74 65 72 76 65 6e 74 69 6f 6e 20 21 0a 21 74 65 73 74 20 32 30 36 3b 0a 20 20 20 20 ┆r intervention ! !test 206; ┆
0x757c0…757e0 20 20 20 20 20 20 63 61 73 65 20 77 32 20 65 78 74 72 61 63 74 20 31 32 20 6f 66 0a 20 20 20 20 ┆ case w2 extract 12 of ┆
0x757e0…75800 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ begin ┆
0x75800…75806 (940,) (0x324,0xeb1)
0x75806…75820 62 65 67 69 6e 20 21 20 73 74 61 72 74 20 21 0a 20 20 20 20 20 20 20 20 20 20 ┆begin ! start ! ┆
0x75820…75840 20 20 20 20 28 77 33 29 2e 72 64 5f 69 6e 70 73 74 61 74 65 3a 3d 20 77 30 3a 3d 20 28 77 33 29 ┆ (w3).rd_inpstate:= w0:= (w3)┆
0x75840…75860 2e 74 63 5f 6f 69 6e 74 65 72 76 65 6e 74 20 6c 73 68 69 66 74 20 2d 31 32 3b 0a 20 20 20 20 20 ┆.tc_ointervent lshift -12; ┆
0x75860…7587e 20 20 20 20 20 20 20 65 6e 64 3b 20 21 20 73 74 61 72 74 20 21 0a 20 20 20 20 20 20 20 20 ┆ end; ! start ! ┆
0x7587e…75884 (0x324,0xeb2)
0x75884…758a0 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 73 6b 69 70 3b 65 6e 64 3b 0a ┆ begin comment skip;end; ┆
0x758a0…758c0 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 72 65 70 65 61 74 ┆ begin comment repeat┆
0x758c0…758e0 3b 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 21 20 72 65 73 74 61 72 ┆;end; begin ! restar┆
0x758e0…758fc 74 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 63 6f 6d 6d 61 6e 64 20 ┆t ! ! command ┆
0x758fc…75902 (0x324,0xeb3)
0x75902…75920 6e 6f 74 20 61 6c 6c 6f 77 65 64 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b ┆not allowed ! end;┆
0x75920…75940 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 21 20 73 74 6f 70 20 21 0a 20 20 20 20 ┆ begin ! stop ! ┆
0x75940…75960 20 20 20 20 20 20 20 20 20 20 20 6f 70 72 6f 75 74 70 75 74 28 2e 77 33 2e 2c 77 30 3a 3d 31 2c ┆ oproutput(.w3.,w0:=1,┆
0x75960…7597a 77 31 3a 3d 33 2c 77 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 ┆w1:=3,w2); i┆
0x7597a…75980 (0x324,0xeb4)
0x75980…759a0 66 20 77 32 3c 3e 32 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e ┆f w2<>2 then begin┆
0x759a0…759c0 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 73 74 61 74 65 3a 3d ┆ (w3).tc_state:=┆
0x759c0…759e0 20 77 30 3a 3d 20 36 3b 20 21 20 61 62 6f 72 74 65 64 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ w0:= 6; ! aborted ! ┆
0x759e0…75a00 20 20 20 20 20 28 77 33 29 2e 74 63 5f 63 61 75 73 65 3a 3d 20 77 30 3a 00 00 00 00 00 00 00 00 ┆ (w3).tc_cause:= w0: ┆
0x75a00…75a06 (941,) (0x324,0xeb5)
0x75a06…75a20 3d 20 33 3b 20 21 20 6f 70 65 72 61 74 6f 72 20 21 0a 20 20 20 20 20 20 20 20 ┆= 3; ! operator ! ┆
0x75a20…75a40 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 73 74 61 74 75 73 3a 3d 20 77 32 3b 0a 20 20 20 ┆ (w3).tc_status:= w2; ┆
0x75a40…75a60 20 20 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 63 6c 6f 73 65 75 70 3b 0a 20 20 20 20 20 ┆ goto closeup; ┆
0x75a60…75a7e 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 ┆ end; (w┆
0x75a7e…75a84 (0x324,0xeb6)
0x75a84…75aa0 33 29 2e 74 63 5f 6f 69 6e 74 65 72 76 65 6e 74 3a 3d 20 77 30 3a 3d 20 30 3b 0a 20 ┆3).tc_ointervent:= w0:= 0; ┆
0x75aa0…75ac0 20 20 20 20 20 20 20 20 20 20 20 20 20 68 6f 6c 64 28 2e 77 33 2e 2c 77 30 3a 3d 61 64 64 72 65 ┆ hold(.w3.,w0:=addre┆
0x75ac0…75ae0 73 73 28 6e 6f 5f 6f 70 29 29 3b 28 77 33 29 2e 74 63 5f 68 65 6c 64 3a 3d 77 30 3a 3d 30 3b 0a ┆ss(no_op));(w3).tc_held:=w0:=0; ┆
0x75ae0…75afc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 6c 6f 6f 70 3b 0a 20 20 20 ┆ goto loop; ┆
0x75afc…75b02 (0x324,0xeb7)
0x75b02…75b20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 ┆ end; begi┆
0x75b20…75b40 6e 20 21 20 6b 69 6c 6c 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 63 ┆n ! kill ! (w3).tc┆
0x75b40…75b60 5f 73 74 61 74 65 3a 3d 20 77 30 3a 3d 20 37 3b 20 21 20 6b 69 6c 6c 65 64 20 62 79 20 6f 70 65 ┆_state:= w0:= 7; ! killed by ope┆
0x75b60…75b7a 72 61 74 6f 72 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f ┆rator ! goto┆
0x75b7a…75b80 (0x324,0xeb8)
0x75b80…75ba0 20 63 6c 6f 73 65 75 70 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 0a 20 20 20 20 20 20 ┆ closeup; end ┆
0x75ba0…75bc0 20 20 20 20 65 6e 64 3b 20 21 20 63 61 73 65 20 21 0a 20 20 20 20 20 20 20 20 20 20 28 77 33 29 ┆ end; ! case ! (w3)┆
0x75bc0…75be0 2e 74 63 5f 6f 69 6e 74 65 72 76 65 6e 74 3a 3d 20 77 32 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 ┆.tc_ointervent:= w2:= 0; ┆
0x75be0…75c00 20 65 6e 64 3b 0a 0a 20 20 20 20 20 20 20 20 69 66 20 77 32 3a 3d 28 77 00 00 00 00 00 00 00 00 ┆ end; if w2:=(w ┆
0x75c00…75c06 (942,) (0x324,0xeb9)
0x75c06…75c20 33 29 2e 74 63 5f 61 69 6e 74 65 72 76 65 6e 74 3c 3e 30 20 74 68 65 6e 0a 20 ┆3).tc_aintervent<>0 then ┆
0x75c20…75c40 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 73 ┆ begin (w3).tc_s┆
0x75c40…75c60 74 61 74 65 3a 3d 20 77 30 3a 3d 20 38 3b 20 21 20 6b 69 6c 6c 65 64 20 62 79 20 61 70 70 6c 20 ┆tate:= w0:= 8; ! killed by appl ┆
0x75c60…75c7e 21 0a 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 63 6c 6f 73 65 75 70 3b 0a 20 20 20 20 ┆! goto closeup; ┆
0x75c7e…75c84 (0x324,0xeba)
0x75c84…75ca0 20 20 20 20 65 6e 64 3b 0a 0a 20 20 20 20 20 20 20 20 21 20 67 65 74 20 6e 65 78 74 ┆ end; ! get next┆
0x75ca0…75cc0 20 69 6e 70 75 74 20 62 6c 6f 63 6b 20 21 0a 20 20 20 20 20 20 20 20 77 31 3a 3d 20 28 77 33 29 ┆ input block ! w1:= (w3)┆
0x75cc0…75ce0 2e 74 63 5f 62 75 66 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 62 75 66 5f 6f 70 3a 3d 20 77 ┆.tc_buf; (w1).buf_op:= w┆
0x75ce0…75cfc 32 3a 3d 20 33 3b 20 28 77 31 29 2e 62 75 66 5f 6d 6f 64 65 3a 3d 20 77 32 3a 3d 20 ┆2:= 3; (w1).buf_mode:= w2:= ┆
0x75cfc…75d02 (0x324,0xebb)
0x75d02…75d20 28 77 33 29 2e 74 63 5f 6d 6f 64 65 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 62 75 66 ┆(w3).tc_mode; (w1).buf┆
0x75d20…75d40 5f 66 69 72 73 74 3a 3d 20 77 32 3a 3d 20 61 64 64 72 65 73 73 28 28 77 31 29 2e 62 75 66 5f 64 ┆_first:= w2:= address((w1).buf_d┆
0x75d40…75d60 61 74 61 31 29 3b 0a 20 20 20 20 20 20 20 20 77 32 2b 28 77 33 29 2e 74 63 5f 62 75 66 73 69 7a ┆ata1); w2+(w3).tc_bufsiz┆
0x75d60…75d7a 65 2d 32 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 62 75 66 5f 6c 61 73 74 ┆e-2; (w1).buf_last┆
0x75d7a…75d80 (0x324,0xebc)
0x75d80…75da0 3a 3d 20 77 32 3b 0a 20 20 20 20 20 20 20 20 73 65 6e 64 77 61 69 74 28 2e 77 33 2e 2c 77 30 2c ┆:= w2; sendwait(.w3.,w0,┆
0x75da0…75dc0 77 31 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 28 77 33 29 2e 74 63 5f 6e 61 6d 65 29 29 3b 0a 20 ┆w1,w2:=address((w3).tc_name)); ┆
0x75dc0…75de0 20 20 20 20 20 20 20 63 68 65 63 6b 5f 64 65 76 69 63 65 73 74 61 74 75 73 28 2e 77 33 2e 2c 77 ┆ check_devicestatus(.w3.,w┆
0x75de0…75e00 30 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 62 2e 61 6e 73 5f 73 74 61 74 00 00 00 00 00 00 00 00 ┆0,w1:=address(b.ans_stat ┆
0x75e00…75e06 (943,) (0x324,0xebd)
0x75e06…75e20 75 73 29 2c 77 32 29 3b 0a 20 20 20 20 20 20 20 20 77 31 3a 3d 20 28 77 33 29 ┆us),w2); w1:= (w3)┆
0x75e20…75e40 2e 74 63 5f 62 75 66 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 62 2e 61 6e 73 5f 62 79 ┆.tc_buf; if w0:=b.ans_by┆
0x75e40…75e60 74 65 73 3d 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 ┆tes=0 then begin ┆
0x75e60…75e7e 20 20 20 69 66 20 77 32 3d 32 20 74 68 65 6e 20 67 6f 74 6f 20 6c 6f 6f 70 3b 0a 0a 20 20 ┆ if w2=2 then goto loop; ┆
0x75e7e…75e84 (0x324,0xebe)
0x75e84…75ea0 20 20 20 20 20 20 20 20 28 77 31 29 2e 62 75 66 5f 64 61 74 61 31 3a 3d 20 77 30 3a ┆ (w1).buf_data1:= w0:┆
0x75ea0…75ec0 3d 20 34 27 30 31 32 31 30 31 32 31 30 31 32 31 3b 20 21 20 22 3c 32 35 3e 3c 32 35 3e 3c 32 35 ┆= 4'012101210121; ! "<25><25><25┆
0x75ec0…75ee0 3e 22 20 21 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 20 38 27 30 31 30 30 30 30 30 ┆>" ! if w0:= 8'0100000┆
0x75ee0…75efc 32 20 21 20 65 6e 64 20 64 6f 63 2c 20 6e 6f 72 6d 61 6c 20 21 20 6f 6e 65 6d 61 73 ┆2 ! end doc, normal ! onemas┆
0x75efc…75f02 (0x324,0xebf)
0x75f02…75f20 6b 20 77 32 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 ┆k w2 then begin ┆
0x75f20…75f40 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 33 29 2e 72 64 5f 69 6e 70 73 74 61 74 65 3e ┆ if w0:=(w3).rd_inpstate>┆
0x75f40…75f60 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 21 20 66 69 6c 65 20 ┆0 then begin ! file ┆
0x75f60…75f7a 63 6f 6e 74 69 6e 75 65 73 20 6f 6e 20 61 6e 6f 74 68 65 72 20 74 61 70 65 20 ┆continues on another tape ┆
0x75f7a…75f80 (0x324,0xec0)
0x75f80…75fa0 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 70 72 6f 75 74 70 75 74 28 2e 77 33 2e 2c 77 ┆! oproutput(.w3.,w┆
0x75fa0…75fc0 30 3a 3d 31 2c 77 31 3a 3d 32 2c 77 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 ┆0:=1,w1:=2,w2); if┆
0x75fc0…75fe0 20 77 32 3c 3e 32 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a ┆ w2<>2 then begin ┆
0x75fe0…76000 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 00 00 00 00 00 00 00 00 ┆ (w3).tc_ ┆
0x76000…76006 (944,) (0x324,0xec1)
0x76006…76020 73 74 61 74 65 3a 3d 20 77 30 3a 3d 20 36 3b 20 21 20 61 62 6f 72 74 65 64 20 ┆state:= w0:= 6; ! aborted ┆
0x76020…76040 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 63 61 75 73 65 3a ┆! (w3).tc_cause:┆
0x76040…76060 3d 20 77 30 3a 3d 20 33 3b 20 21 20 6f 70 65 72 61 74 6f 72 20 21 0a 20 20 20 20 20 20 20 20 20 ┆= w0:= 3; ! operator ! ┆
0x76060…7607e 20 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 73 74 61 74 75 73 3a 3d 20 77 32 3b 0a 20 20 ┆ (w3).tc_status:= w2; ┆
0x7607e…76084 (0x324,0xec2)
0x76084…760a0 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ end ┆
0x760a0…760c0 20 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 ┆ else begin ┆
0x760c0…760e0 20 20 20 20 20 20 20 20 20 20 20 68 6f 6c 64 28 2e 77 33 2e 2c 77 30 3a 3d 61 64 64 72 65 73 73 ┆ hold(.w3.,w0:=address┆
0x760e0…760fc 28 6e 6f 5f 6f 70 29 29 3b 28 77 33 29 2e 74 63 5f 68 65 6c 64 3a 3d 77 30 3a 3d 30 ┆(no_op));(w3).tc_held:=w0:=0┆
0x760fc…76102 (0x324,0xec3)
0x76102…76120 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 6c 6f 6f 70 3b 0a 20 ┆; goto loop; ┆
0x76120…76140 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e ┆ end; en┆
0x76140…76160 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 ┆d else b┆
0x76160…7617a 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 63 ┆egin (w3).tc┆
0x7617a…76180 (0x324,0xec4)
0x76180…761a0 5f 73 74 61 74 65 3a 3d 20 77 30 3a 3d 20 35 3b 20 21 20 63 6f 6d 70 6c 65 74 65 64 20 21 0a 20 ┆_state:= w0:= 5; ! completed ! ┆
0x761a0…761c0 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 0a 20 20 ┆ end; end ┆
0x761c0…761e0 20 20 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 ┆ else begin ┆
0x761e0…76200 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 73 74 61 74 65 3a 3d 00 00 00 00 00 00 00 00 ┆ (w3).tc_state:= ┆
0x76200…76206 (945,) (0x324,0xec5)
0x76206…76220 20 77 30 3a 3d 20 36 3b 20 21 20 61 62 6f 72 74 65 64 20 21 0a 20 20 20 20 20 ┆ w0:= 6; ! aborted ! ┆
0x76220…76240 20 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 63 61 75 73 65 3a 3d 20 77 30 3a 3d 20 31 3b 20 21 ┆ (w3).tc_cause:= w0:= 1; !┆
0x76240…76260 20 73 65 6e 64 65 72 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 73 74 ┆ sender ! (w3).tc_st┆
0x76260…7627e 61 74 75 73 3a 3d 20 77 32 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 ┆atus:= w2; end; ┆
0x7627e…76284 (0x324,0xec6)
0x76284…762a0 20 20 20 20 20 20 77 30 3a 3d 20 32 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 ┆ w0:= 2; end; ┆
0x762a0…762c0 20 20 20 20 20 20 20 77 31 3a 3d 20 28 77 31 29 2e 62 75 66 5f 66 69 72 73 74 3b 0a 20 20 20 20 ┆ w1:= (w1).buf_first; ┆
0x762c0…762e0 20 20 20 20 69 66 20 77 32 3a 3d 28 77 31 29 2e 77 6f 72 64 3c 3e 34 27 30 31 32 31 30 31 32 31 ┆ if w2:=(w1).word<>4'01210121┆
0x762e0…762fc 30 31 32 31 20 74 68 65 6e 20 74 65 73 74 6f 75 74 28 2e 77 33 2e 2c 77 30 2c 77 31 ┆0121 then testout(.w3.,w0,w1┆
0x762fc…76302 (0x324,0xec7)
0x76302…76320 2c 77 32 3a 3d 30 29 3b 0a 0a 0a 20 20 20 20 20 20 20 20 70 75 74 5f 62 6c 6f 63 6b 28 2e ┆,w2:=0); put_block(.┆
0x76320…76340 77 33 2e 2c 77 30 2c 77 31 2c 77 32 29 3b 0a 20 20 20 20 20 20 20 20 77 31 3a 3d 77 30 3b 20 77 ┆w3.,w0,w1,w2); w1:=w0; w┆
0x76340…76360 30 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 32 3d 32 20 74 68 65 6e 20 28 77 33 29 2e ┆0:=0; if w2=2 then (w3).┆
0x76360…7637a 74 63 5f 62 73 70 74 72 3a 3d 20 66 31 2b 28 77 33 29 2e 74 63 5f 62 73 70 74 ┆tc_bsptr:= f1+(w3).tc_bspt┆
0x7637a…76380 (0x324,0xec8)
0x76380…763a0 72 0a 20 20 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 ┆r else begin ┆
0x763a0…763c0 20 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 73 74 61 74 65 3a 3d 20 77 30 3a 3d 20 36 3b 20 21 ┆ (w3).tc_state:= w0:= 6; !┆
0x763c0…763e0 20 61 62 6f 72 74 65 64 20 21 0a 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 63 61 75 ┆ aborted ! (w3).tc_cau┆
0x763e0…76400 73 65 3a 3d 20 77 30 3a 3d 20 32 3b 20 21 20 72 65 63 65 69 76 65 72 20 00 00 00 00 00 00 00 00 ┆se:= w0:= 2; ! receiver ┆
0x76400…76406 (946,) (0x324,0xec9)
0x76406…76420 21 0a 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 73 74 61 74 75 73 ┆! (w3).tc_status┆
0x76420…76440 3a 3d 20 77 32 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 0a 0a 20 20 20 20 20 20 20 20 69 66 ┆:= w2; end; if┆
0x76440…76460 20 77 30 3a 3d 28 77 33 29 2e 74 63 5f 73 74 61 74 65 3d 30 20 74 68 65 6e 20 67 6f 74 6f 20 6c ┆ w0:=(w3).tc_state=0 then goto l┆
0x76460…7647e 6f 6f 70 3b 0a 20 20 20 20 20 20 20 20 70 75 74 5f 62 6c 6f 63 6b 28 2e 77 33 2e 2c 77 30 ┆oop; put_block(.w3.,w0┆
0x7647e…76484 (0x324,0xeca)
0x76484…764a0 3a 3d 2d 31 2c 77 31 2c 77 32 29 3b 20 21 20 63 6c 6f 73 65 20 66 69 6c 65 20 21 0a ┆:=-1,w1,w2); ! close file ! ┆
0x764a0…764c0 0a 0a 0a 63 6c 6f 73 65 75 70 3a 0a 20 20 20 20 20 20 20 20 63 6c 6f 73 65 62 73 28 2e 77 33 2e ┆ closeup: closebs(.w3.┆
0x764c0…764e0 29 3b 0a 20 20 20 20 20 20 20 20 75 70 64 61 74 65 74 72 61 6e 73 70 6f 72 74 28 2e 77 33 2e 29 ┆); updatetransport(.w3.)┆
0x764e0…764fc 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 62 2e 6f 70 72 74 64 65 74 61 69 ┆; if w0:=b.oprtdetai┆
0x764fc…76502 (0x324,0xecb)
0x76502…76520 6c 73 20 6f 6e 65 6d 61 73 6b 20 31 20 74 68 65 6e 20 6f 70 72 6f 75 74 70 75 74 28 2e 77 ┆ls onemask 1 then oproutput(.w┆
0x76520…76540 33 2e 2c 77 30 3a 3d 31 2c 77 31 3a 3d 34 2c 77 32 3a 3d 28 77 33 29 2e 74 63 5f 73 74 61 74 65 ┆3.,w0:=1,w1:=4,w2:=(w3).tc_state┆
0x76540…76560 29 3b 0a 20 20 20 20 20 20 65 6e 64 3b 20 21 20 67 65 74 20 6e 65 78 74 20 74 72 61 6e 73 70 6f ┆); end; ! get next transpo┆
0x76560…7657a 72 74 20 21 0a 0a 73 75 69 63 69 64 65 3a 0a 20 20 20 20 20 20 72 65 6d 6f 76 ┆rt ! suicide: remov┆
0x7657a…76580 (0x324,0xecc)
0x76580…765a0 65 5f 74 63 28 2e 77 33 2e 2c 77 31 3a 3d 62 2e 63 75 72 72 65 6e 74 29 3b 0a 20 20 20 20 20 20 ┆e_tc(.w3.,w1:=b.current); ┆
0x765a0…765c0 67 6f 74 6f 20 62 2e 61 63 74 69 76 61 74 65 3b 0a 20 20 20 20 65 6e 64 3b 0a 20 20 65 6e 64 3b ┆goto b.activate; end; end;┆
0x765c0…765e0 20 21 20 72 64 20 21 0a 0a 0a 21 62 72 61 6e 63 68 20 32 2c 39 3b 0a 0a 20 20 62 6f 64 79 20 6f ┆ ! rd ! !branch 2,9; body o┆
0x765e0…76600 66 20 74 77 0a 20 20 63 6f 6d 6d 65 6e 74 20 74 74 79 20 63 6f 72 6f 75 00 00 00 00 00 00 00 00 ┆f tw comment tty corou ┆
0x76600…76606 (947,) (0x324,0xecd)
0x76606…76620 74 69 6e 65 3b 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 6c 61 62 65 6c 20 6c 6f ┆tine; begin label lo┆
0x76620…76640 6f 70 2c 20 63 6c 6f 73 65 75 70 2c 20 73 75 69 63 69 64 65 3b 0a 20 20 20 20 69 6e 63 6f 64 65 ┆op, closeup, suicide; incode┆
0x76640…76660 0a 20 20 20 20 20 20 72 65 66 20 66 69 72 73 74 2c 20 6c 61 73 74 3b 0a 20 20 20 20 20 20 72 65 ┆ ref first, last; re┆
0x76660…7667e 66 20 74 72 61 6e 73 72 65 66 2c 20 71 75 65 75 65 72 65 66 3b 0a 20 20 20 20 20 20 72 65 ┆f transref, queueref; re┆
0x7667e…76684 (0x324,0xece)
0x76684…766a0 66 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 72 65 ┆f return; begin re┆
0x766a0…766c0 74 75 72 6e 3a 3d 20 77 33 3b 20 63 61 6c 6c 20 77 33 20 72 65 74 75 72 6e 3b 20 21 20 70 73 65 ┆turn:= w3; call w3 return; ! pse┆
0x766c0…766e0 75 64 6f 20 63 61 6c 6c 20 21 0a 0a 20 20 20 20 20 20 77 68 69 6c 65 20 77 31 3d 77 31 20 64 6f ┆udo call ! while w1=w1 do┆
0x766e0…766fc 0a 20 20 20 20 20 20 62 65 67 69 6e 20 21 20 67 65 74 20 6e 65 78 74 20 74 72 61 6e ┆ begin ! get next tran┆
0x766fc…76702 (0x324,0xecf)
0x76702…76720 73 70 6f 72 74 20 21 0a 20 20 20 20 20 20 20 20 77 31 3a 3d 20 61 64 64 72 65 73 73 28 28 ┆sport ! w1:= address((┆
0x76720…76740 77 33 29 2e 74 63 5f 6e 65 78 74 74 72 29 3b 0a 20 20 20 20 20 20 20 20 77 31 3a 3d 20 28 77 31 ┆w3).tc_nexttr); w1:= (w1┆
0x76740…76760 29 2e 74 71 5f 6e 65 78 74 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 32 3a 3d 61 64 64 72 65 73 ┆).tq_next; if w2:=addres┆
0x76760…7677a 73 28 28 77 33 29 2e 74 63 5f 6e 65 78 74 74 72 29 3d 77 31 20 74 68 65 6e 20 ┆s((w3).tc_nexttr)=w1 then ┆
0x7677a…76780 (0x324,0xed0)
0x76780…767a0 67 6f 74 6f 20 73 75 69 63 69 64 65 3b 20 21 20 65 6e 64 20 74 72 61 6e 73 70 2e 20 71 75 65 75 ┆goto suicide; ! end transp. queu┆
0x767a0…767c0 65 20 21 0a 0a 0a 20 20 20 20 20 20 20 20 77 31 3a 3d 20 28 77 33 29 2e 74 63 5f 6e 65 78 74 74 ┆e ! w1:= (w3).tc_nextt┆
0x767c0…767e0 72 3b 0a 20 20 20 20 20 20 20 20 71 75 65 75 65 72 65 66 3a 3d 20 77 31 3b 0a 20 20 20 20 20 20 ┆r; queueref:= w1; ┆
0x767e0…76800 20 20 6c 6f 6f 6b 74 72 61 6e 73 70 6f 72 74 28 2e 77 33 2e 2c 77 31 3a 00 00 00 00 00 00 00 00 ┆ looktransport(.w3.,w1: ┆
0x76800…76806 (948,) (0x324,0xed1)
0x76806…76820 3d 28 77 31 29 2e 74 71 5f 74 72 61 6e 73 6e 6f 2c 77 32 29 3b 0a 20 20 20 20 ┆=(w1).tq_transno,w2); ┆
0x76820…76840 20 20 20 20 74 72 61 6e 73 72 65 66 3a 3d 20 77 32 3b 0a 20 20 20 20 20 20 20 20 77 31 3a 3d 20 ┆ transref:= w2; w1:= ┆
0x76840…76860 71 75 65 75 65 72 65 66 3b 0a 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 74 72 61 6e 73 6e ┆queueref; (w3).tc_transn┆
0x76860…7687e 6f 3a 3d 20 77 30 3a 3d 20 28 77 31 29 2e 74 71 5f 74 72 61 6e 73 6e 6f 3b 0a 0a 20 20 20 ┆o:= w0:= (w1).tq_transno; ┆
0x7687e…76884 (0x324,0xed2)
0x76884…768a0 20 20 20 20 20 6c 69 6e 6b 28 2e 77 33 2e 2c 77 31 3a 3d 71 75 65 75 65 72 65 66 2c ┆ link(.w3.,w1:=queueref,┆
0x768a0…768c0 77 32 3a 3d 61 64 64 72 65 73 73 28 62 2e 74 71 66 72 65 65 66 73 74 29 29 3b 0a 20 20 20 20 20 ┆w2:=address(b.tqfreefst)); ┆
0x768c0…768e0 20 20 20 77 32 3a 3d 20 74 72 61 6e 73 72 65 66 3b 0a 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 ┆ w2:= transref; (w3).t┆
0x768e0…768fc 63 5f 6f 69 6e 74 65 72 76 65 6e 74 3a 3d 20 77 30 3a 3d 20 30 3b 0a 20 20 20 20 20 ┆c_ointervent:= w0:= 0; ┆
0x768fc…76902 (0x324,0xed3)
0x76902…76920 20 20 20 28 77 33 29 2e 74 63 5f 61 69 6e 74 65 72 76 65 6e 74 3a 3d 20 77 30 3b 0a 20 20 ┆ (w3).tc_aintervent:= w0; ┆
0x76920…76940 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 6d 6f 64 65 3a 3d 20 77 30 3a 3d 20 28 77 32 29 2e 74 ┆ (w3).tc_mode:= w0:= (w2).t┆
0x76940…76960 72 5f 6d 6f 64 65 3b 0a 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 62 73 6c 3a 3d 20 77 30 ┆r_mode; (w3).tc_bsl:= w0┆
0x76960…7697a 3a 3d 20 28 77 32 29 2e 74 72 5f 62 61 73 65 6c 3b 0a 20 20 20 20 20 20 20 20 ┆:= (w2).tr_basel; ┆
0x7697a…76980 (0x324,0xed4)
0x76980…769a0 28 77 33 29 2e 74 63 5f 62 73 75 3a 3d 20 77 30 3a 3d 20 28 77 32 29 2e 74 72 5f 62 61 73 65 75 ┆(w3).tc_bsu:= w0:= (w2).tr_baseu┆
0x769a0…769c0 3b 0a 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 62 73 70 74 72 3a 3d 20 66 31 3a 3d 20 28 ┆; (w3).tc_bsptr:= f1:= (┆
0x769c0…769e0 77 32 29 2e 74 72 5f 62 73 73 74 61 72 74 70 74 72 3b 0a 20 20 20 20 20 20 20 20 28 77 33 29 2e ┆w2).tr_bsstartptr; (w3).┆
0x769e0…76a00 74 63 5f 73 74 61 74 65 3a 3d 20 77 30 3a 3d 20 30 3b 0a 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆tc_state:= w0:= 0; ┆
0x76a00…76a06 (949,) (0x324,0xed5)
0x76a06…76a20 20 20 20 6d 6f 76 65 28 2e 77 33 2e 2c 77 30 3a 3d 38 2c 77 31 3a 3d 61 64 64 ┆ move(.w3.,w0:=8,w1:=add┆
0x76a20…76a40 72 65 73 73 28 28 77 32 29 2e 74 72 5f 62 73 61 72 65 61 29 2c 77 32 3a 3d 61 64 64 72 65 73 73 ┆ress((w2).tr_bsarea),w2:=address┆
0x76a40…76a60 28 28 77 33 29 2e 74 63 5f 62 73 6e 61 6d 65 29 29 3b 0a 20 20 20 20 20 20 20 20 28 77 33 29 2e ┆((w3).tc_bsname)); (w3).┆
0x76a60…76a7e 74 77 5f 69 6e 70 73 74 61 74 65 3a 3d 20 77 30 3a 3d 20 35 3b 0a 20 20 20 20 20 20 20 20 ┆tw_inpstate:= w0:= 5; ┆
0x76a7e…76a84 (0x324,0xed6)
0x76a84…76aa0 6f 70 72 6f 75 74 70 75 74 28 2e 77 33 2e 2c 77 30 3a 3d 31 2c 77 31 3a 3d 35 2c 77 ┆oproutput(.w3.,w0:=1,w1:=5,w┆
0x76aa0…76ac0 32 29 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 32 3c 3e 32 20 74 68 65 6e 0a 20 20 20 20 20 20 ┆2); if w2<>2 then ┆
0x76ac0…76ae0 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 73 74 61 74 65 3a ┆ begin (w3).tc_state:┆
0x76ae0…76afc 3d 20 77 30 3a 3d 20 36 3b 20 21 20 61 62 6f 72 74 65 64 20 21 0a 20 20 20 20 20 20 ┆= w0:= 6; ! aborted ! ┆
0x76afc…76b02 (0x324,0xed7)
0x76b02…76b20 20 20 20 20 28 77 33 29 2e 74 63 5f 63 61 75 73 65 3a 3d 20 77 30 3a 3d 20 33 3b 20 21 20 ┆ (w3).tc_cause:= w0:= 3; ! ┆
0x76b20…76b40 6f 70 65 72 61 74 6f 72 20 21 0a 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 73 74 61 ┆operator ! (w3).tc_sta┆
0x76b40…76b60 74 75 73 3a 3d 20 77 32 3b 0a 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 63 6c 6f 73 65 75 70 ┆tus:= w2; goto closeup┆
0x76b60…76b7a 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 0a 0a 20 20 20 20 20 20 20 20 6f ┆; end; o┆
0x76b7a…76b80 (0x324,0xed8)
0x76b80…76ba0 70 65 6e 62 73 28 2e 77 33 2e 29 3b 20 21 20 70 72 65 70 61 72 65 20 61 72 65 61 20 21 0a 0a 0a ┆penbs(.w3.); ! prepare area ! ┆
0x76ba0…76bc0 6c 6f 6f 70 3a 0a 0a 20 20 20 20 20 20 20 20 69 66 20 77 32 3a 3d 28 77 33 29 2e 74 63 5f 61 69 ┆loop: if w2:=(w3).tc_ai┆
0x76bc0…76be0 6e 74 65 72 76 65 6e 74 3c 3e 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 ┆ntervent<>0 then begin ┆
0x76be0…76c00 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 73 74 61 74 65 3a 3d 00 00 00 00 00 00 00 00 ┆ (w3).tc_state:= ┆
0x76c00…76c06 (950,) (0x324,0xed9)
0x76c06…76c20 20 77 30 3a 3d 20 38 3b 20 21 20 6b 69 6c 6c 65 64 20 62 79 20 61 70 70 6c 20 ┆ w0:= 8; ! killed by appl ┆
0x76c20…76c40 21 0a 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 63 6c 6f 73 65 75 70 3b 0a 20 20 20 20 20 20 ┆! goto closeup; ┆
0x76c40…76c60 20 20 65 6e 64 3b 0a 0a 20 20 20 20 20 20 20 20 21 20 67 65 74 20 6e 65 78 74 20 69 6e 70 75 74 ┆ end; ! get next input┆
0x76c60…76c7e 20 62 6c 6f 63 6b 20 21 0a 20 20 20 20 20 20 20 20 77 31 3a 3d 20 28 77 33 29 2e 74 63 5f ┆ block ! w1:= (w3).tc_┆
0x76c7e…76c84 (0x324,0xeda)
0x76c84…76ca0 62 75 66 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 62 75 66 5f 6f 70 3a 3d 20 77 ┆buf; (w1).buf_op:= w┆
0x76ca0…76cc0 32 3a 3d 20 33 3b 20 28 77 31 29 2e 62 75 66 5f 6d 6f 64 65 3a 3d 20 77 32 3a 3d 20 28 77 33 29 ┆2:= 3; (w1).buf_mode:= w2:= (w3)┆
0x76cc0…76ce0 2e 74 63 5f 6d 6f 64 65 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 62 75 66 5f 66 69 72 73 74 ┆.tc_mode; (w1).buf_first┆
0x76ce0…76cfc 3a 3d 20 77 32 3a 3d 20 61 64 64 72 65 73 73 28 28 77 31 29 2e 62 75 66 5f 64 61 74 ┆:= w2:= address((w1).buf_dat┆
0x76cfc…76d02 (0x324,0xedb)
0x76d02…76d20 61 31 29 3b 0a 20 20 20 20 20 20 20 20 77 32 2b 28 77 33 29 2e 74 63 5f 62 75 66 73 69 7a ┆a1); w2+(w3).tc_bufsiz┆
0x76d20…76d40 65 2d 32 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 62 75 66 5f 6c 61 73 74 3a 3d 20 77 32 3b ┆e-2; (w1).buf_last:= w2;┆
0x76d40…76d60 0a 20 20 20 20 20 20 20 20 73 65 6e 64 77 61 69 74 28 2e 77 33 2e 2c 77 30 2c 77 31 2c 77 32 3a ┆ sendwait(.w3.,w0,w1,w2:┆
0x76d60…76d7a 3d 61 64 64 72 65 73 73 28 28 77 33 29 2e 74 63 5f 6e 61 6d 65 29 29 3b 0a 20 ┆=address((w3).tc_name)); ┆
0x76d7a…76d80 (0x324,0xedc)
0x76d80…76da0 20 20 20 20 20 20 20 63 68 65 63 6b 5f 64 65 76 69 63 65 73 74 61 74 75 73 28 2e 77 33 2e 2c 77 ┆ check_devicestatus(.w3.,w┆
0x76da0…76dc0 30 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 62 2e 61 6e 73 5f 73 74 61 74 75 73 29 2c 77 32 29 3b ┆0,w1:=address(b.ans_status),w2);┆
0x76dc0…76de0 0a 20 20 20 20 20 20 20 20 77 31 3a 3d 20 28 77 33 29 2e 74 63 5f 62 75 66 3b 0a 20 20 20 20 20 ┆ w1:= (w3).tc_buf; ┆
0x76de0…76e00 20 20 20 69 66 20 77 30 3a 3d 62 2e 61 6e 73 5f 62 79 74 65 73 3d 30 20 00 00 00 00 00 00 00 00 ┆ if w0:=b.ans_bytes=0 ┆
0x76e00…76e06 (951,) (0x324,0xedd)
0x76e06…76e20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 ┆then begin ┆
0x76e20…76e40 20 20 20 69 66 20 77 32 3d 32 20 74 68 65 6e 20 67 6f 74 6f 20 6c 6f 6f 70 3b 0a 0a 20 20 20 20 ┆ if w2=2 then goto loop; ┆
0x76e40…76e60 20 20 20 20 20 20 28 77 31 29 2e 62 75 66 5f 64 61 74 61 31 3a 3d 20 77 30 3a 3d 20 34 27 30 31 ┆ (w1).buf_data1:= w0:= 4'01┆
0x76e60…76e7e 32 31 30 31 32 31 30 31 32 31 3b 20 21 20 22 3c 32 35 3e 3c 32 35 3e 3c 32 35 3e 22 20 21 ┆2101210121; ! "<25><25><25>" !┆
0x76e7e…76e84 (0x324,0xede)
0x76e84…76ea0 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 20 38 27 31 30 30 30 30 30 30 ┆ if w0:= 8'1000000┆
0x76ea0…76ec0 32 20 21 20 74 69 6d 65 72 20 2c 20 6e 6f 72 6d 61 6c 20 21 20 6f 6e 65 6d 61 73 6b 20 77 32 20 ┆2 ! timer , normal ! onemask w2 ┆
0x76ec0…76ee0 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 ┆then begin ┆
0x76ee0…76efc 20 69 66 20 77 30 3a 3d 28 77 33 29 2e 74 77 5f 69 6e 70 73 74 61 74 65 3e 30 20 74 ┆ if w0:=(w3).tw_inpstate>0 t┆
0x76efc…76f02 (0x324,0xedf)
0x76f02…76f20 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 ┆hen begin ┆
0x76f20…76f40 20 20 20 20 20 20 28 77 33 29 2e 74 77 5f 69 6e 70 73 74 61 74 65 3a 3d 20 77 30 2d 31 3b 0a 20 ┆ (w3).tw_inpstate:= w0-1; ┆
0x76f40…76f60 20 20 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 6c 6f 6f 70 3b 0a 20 20 20 20 20 20 20 20 ┆ goto loop; ┆
0x76f60…76f7a 20 20 20 20 65 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 0a 20 ┆ end else ┆
0x76f7a…76f80 (0x324,0xee0)
0x76f80…76fa0 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 ┆ begin (┆
0x76fa0…76fc0 77 33 29 2e 74 63 5f 73 74 61 74 65 3a 3d 20 77 30 3a 3d 20 35 3b 20 21 20 63 6f 6d 70 6c 65 74 ┆w3).tc_state:= w0:= 5; ! complet┆
0x76fc0…76fe0 65 64 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆ed ! end; ┆
0x76fe0…77000 65 6e 64 0a 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆end else ┆
0x77000…77006 (952,) (0x324,0xee1)
0x77006…77020 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 77 33 ┆ begin (w3┆
0x77020…77040 29 2e 74 63 5f 73 74 61 74 65 3a 3d 20 77 30 3a 3d 20 36 3b 20 21 20 61 62 6f 72 74 65 64 20 21 ┆).tc_state:= w0:= 6; ! aborted !┆
0x77040…77060 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 63 61 75 73 65 3a 3d 20 77 30 3a ┆ (w3).tc_cause:= w0:┆
0x77060…7707e 3d 20 31 3b 20 21 20 73 65 6e 64 65 72 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 77 ┆= 1; ! sender ! (w┆
0x7707e…77084 (0x324,0xee2)
0x77084…770a0 33 29 2e 74 63 5f 73 74 61 74 75 73 3a 3d 20 77 32 3b 0a 20 20 20 20 20 20 20 20 20 ┆3).tc_status:= w2; ┆
0x770a0…770c0 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 20 32 3b 0a 20 20 20 20 20 20 20 20 ┆ end; w0:= 2; ┆
0x770c0…770e0 65 6e 64 0a 20 20 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e ┆end else (w3).┆
0x770e0…770fc 74 77 5f 69 6e 70 73 74 61 74 65 3a 3d 20 77 32 3a 3d 20 30 3b 0a 20 20 20 20 20 20 ┆tw_inpstate:= w2:= 0; ┆
0x770fc…77102 (0x324,0xee3)
0x77102…77120 20 20 77 31 3a 3d 20 28 77 31 29 2e 62 75 66 5f 66 69 72 73 74 3b 0a 20 20 20 20 20 20 20 ┆ w1:= (w1).buf_first; ┆
0x77120…77140 20 69 66 20 77 32 3a 3d 28 77 31 29 2e 77 6f 72 64 3c 3e 34 27 30 31 32 31 30 31 32 31 30 31 32 ┆ if w2:=(w1).word<>4'01210121012┆
0x77140…77160 31 20 74 68 65 6e 20 74 65 73 74 6f 75 74 28 2e 77 33 2e 2c 77 30 2c 77 31 2c 77 32 3a 3d 30 29 ┆1 then testout(.w3.,w0,w1,w2:=0)┆
0x77160…7717a 3b 0a 0a 0a 20 20 20 20 20 20 20 20 70 75 74 5f 62 6c 6f 63 6b 28 2e 77 33 2e ┆; put_block(.w3.┆
0x7717a…77180 (0x324,0xee4)
0x77180…771a0 2c 77 30 2c 77 31 2c 77 32 29 3b 0a 20 20 20 20 20 20 20 20 77 31 3a 3d 77 30 3b 20 77 30 3a 3d ┆,w0,w1,w2); w1:=w0; w0:=┆
0x771a0…771c0 30 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 32 3d 32 20 74 68 65 6e 20 28 77 33 29 2e 74 63 5f ┆0; if w2=2 then (w3).tc_┆
0x771c0…771e0 62 73 70 74 72 3a 3d 20 66 31 2b 28 77 33 29 2e 74 63 5f 62 73 70 74 72 0a 20 20 20 20 20 20 20 ┆bsptr:= f1+(w3).tc_bsptr ┆
0x771e0…77200 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 00 00 00 00 00 00 00 00 ┆ else begin ┆
0x77200…77206 (953,) (0x324,0xee5)
0x77206…77220 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 73 74 61 74 65 3a 3d 20 77 30 3a 3d ┆ (w3).tc_state:= w0:=┆
0x77220…77240 20 36 3b 20 21 20 61 62 6f 72 74 65 64 20 21 0a 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 ┆ 6; ! aborted ! (w3).t┆
0x77240…77260 63 5f 63 61 75 73 65 3a 3d 20 77 30 3a 3d 20 32 3b 20 21 20 72 65 63 65 69 76 65 72 20 21 0a 20 ┆c_cause:= w0:= 2; ! receiver ! ┆
0x77260…7727e 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 73 74 61 74 75 73 3a 3d 20 77 32 3b 0a ┆ (w3).tc_status:= w2; ┆
0x7727e…77284 (0x324,0xee6)
0x77284…772a0 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 0a 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 ┆ end; if w0┆
0x772a0…772c0 3a 3d 28 77 33 29 2e 74 63 5f 73 74 61 74 65 3d 30 20 74 68 65 6e 20 67 6f 74 6f 20 6c 6f 6f 70 ┆:=(w3).tc_state=0 then goto loop┆
0x772c0…772e0 3b 0a 20 20 20 20 20 20 20 20 70 75 74 5f 62 6c 6f 63 6b 28 2e 77 33 2e 2c 77 30 3a 3d 2d 31 2c ┆; put_block(.w3.,w0:=-1,┆
0x772e0…772fc 77 31 2c 77 32 29 3b 20 21 20 63 6c 6f 73 65 20 66 69 6c 65 20 21 0a 0a 0a 0a 63 6c ┆w1,w2); ! close file ! cl┆
0x772fc…77302 (0x324,0xee7)
0x77302…77320 6f 73 65 75 70 3a 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 62 2e 6f 70 72 74 64 65 ┆oseup: if w0:=b.oprtde┆
0x77320…77340 74 61 69 6c 73 20 6f 6e 65 6d 61 73 6b 20 31 20 74 68 65 6e 20 6f 70 72 6f 75 74 70 75 74 28 2e ┆tails onemask 1 then oproutput(.┆
0x77340…77360 77 33 2e 2c 77 30 3a 3d 31 2c 77 31 3a 3d 34 2c 77 32 3a 3d 28 77 33 29 2e 74 63 5f 73 74 61 74 ┆w3.,w0:=1,w1:=4,w2:=(w3).tc_stat┆
0x77360…7737a 65 29 3b 0a 20 20 20 20 20 20 20 20 63 6c 6f 73 65 62 73 28 2e 77 33 2e 29 3b ┆e); closebs(.w3.);┆
0x7737a…77380 (0x324,0xee8)
0x77380…773a0 0a 20 20 20 20 20 20 20 20 75 70 64 61 74 65 74 72 61 6e 73 70 6f 72 74 28 2e 77 33 2e 29 3b 0a ┆ updatetransport(.w3.); ┆
0x773a0…773c0 20 20 20 20 20 20 65 6e 64 3b 20 21 20 67 65 74 20 6e 65 78 74 20 74 72 61 6e 73 70 6f 72 74 20 ┆ end; ! get next transport ┆
0x773c0…773e0 21 0a 0a 73 75 69 63 69 64 65 3a 0a 20 20 20 20 20 20 72 65 6d 6f 76 65 5f 74 63 28 2e 77 33 2e ┆! suicide: remove_tc(.w3.┆
0x773e0…77400 2c 77 31 3a 3d 62 2e 63 75 72 72 65 6e 74 29 3b 0a 20 20 20 20 20 20 67 00 00 00 00 00 00 00 00 ┆,w1:=b.current); g ┆
0x77400…77406 (954,) (0x324,0xee9)
0x77406…77420 6f 74 6f 20 62 2e 61 63 74 69 76 61 74 65 3b 0a 20 20 20 20 65 6e 64 3b 0a 20 ┆oto b.activate; end; ┆
0x77420…77440 20 65 6e 64 3b 20 21 20 74 77 20 21 0a 0a 0a 21 62 72 61 6e 63 68 20 32 2c 31 30 3b 0a 0a 0a 20 ┆ end; ! tw ! !branch 2,10; ┆
0x77440…77460 20 62 6f 64 79 20 6f 66 20 67 65 74 6c 69 6e 65 73 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 6c 61 ┆ body of getlines begin la┆
0x77460…7747e 62 65 6c 20 72 65 70 2c 20 65 78 69 74 3b 0a 0a 20 20 20 20 72 65 63 6f 72 64 20 63 6f 6e ┆bel rep, exit; record con┆
0x7747e…77484 (0x324,0xeea)
0x77484…774a0 76 5f 68 65 61 64 65 72 28 62 79 74 65 20 73 72 63 63 61 72 2c 20 73 72 63 73 69 7a ┆v_header(byte srccar, srcsiz┆
0x774a0…774c0 65 29 3b 20 21 20 73 72 63 73 69 7a 65 3d 73 69 7a 65 20 6f 66 20 65 6e 74 72 79 20 21 0a 0a 20 ┆e); ! srcsize=size of entry ! ┆
0x774c0…774e0 20 20 20 69 6e 63 6f 64 65 20 0a 20 20 20 20 77 6f 72 64 20 20 7a 65 72 6f 3a 3d 20 30 2c 20 73 ┆ incode word zero:= 0, s┆
0x774e0…774fc 74 61 74 75 73 3b 0a 20 20 20 20 77 6f 72 64 20 20 62 75 66 5f 6f 70 3b 0a 20 20 20 ┆tatus; word buf_op; ┆
0x774fc…77502 (0x324,0xeeb)
0x77502…77520 20 72 65 66 20 20 20 62 75 66 5f 66 61 2c 20 62 75 66 5f 6c 61 3b 0a 20 20 20 20 77 6f 72 ┆ ref buf_fa, buf_la; wor┆
0x77520…77540 64 20 20 62 75 66 5f 73 65 67 6e 6f 3b 0a 20 20 20 20 72 65 66 20 20 20 64 65 73 74 5f 65 6e 64 ┆d buf_segno; ref dest_end┆
0x77540…77560 2c 20 73 6f 75 72 63 65 5f 65 6e 64 3b 0a 20 20 20 20 72 65 66 20 20 20 73 74 61 72 74 5f 73 65 ┆, source_end; ref start_se┆
0x77560…7757a 71 75 65 6e 63 65 2c 20 65 6e 64 5f 73 65 71 75 65 6e 63 65 3b 0a 20 20 20 20 ┆quence, end_sequence; ┆
0x7757a…77580 (0x324,0xeec)
0x77580…775a0 77 6f 72 64 20 20 63 6f 6e 76 2c 63 68 61 72 3b 0a 20 20 20 20 72 65 66 20 20 20 73 78 2c 20 64 ┆word conv,char; ref sx, d┆
0x775a0…775c0 78 3b 0a 20 20 20 20 72 65 66 20 20 20 72 65 6c 61 74 69 76 65 2c 20 73 61 76 65 77 32 2c 20 72 ┆x; ref relative, savew2, r┆
0x775c0…775e0 65 74 75 72 6e 3b 0a 20 20 20 20 77 6f 72 64 20 20 73 5f 70 61 72 74 69 61 6c 2c 20 64 5f 70 61 ┆eturn; word s_partial, d_pa┆
0x775e0…77600 72 74 69 61 6c 2c 20 70 61 72 74 69 61 6c 3b 20 21 20 73 6f 75 72 63 65 00 00 00 00 00 00 00 00 ┆rtial, partial; ! source ┆
0x77600…77606 (955,) (0x324,0xeed)
0x77606…77620 2f 64 65 73 74 69 6e 61 74 69 6f 6e 2d 70 61 72 74 69 61 6c 20 77 6f 72 64 20 ┆/destination-partial word ┆
0x77620…77640 21 0a 20 20 20 20 77 6f 72 64 20 20 74 72 61 69 6c 30 2c 20 73 65 67 6d 65 6e 74 3b 0a 0a 20 20 ┆! word trail0, segment; ┆
0x77640…77660 20 20 62 65 67 69 6e 0a 0a 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 69 6e 69 74 69 61 6c 69 7a ┆ begin comment initializ┆
0x77660…7767e 65 20 6c 6f 63 61 6c 20 70 6f 69 6e 74 65 72 73 3b 0a 20 20 20 20 20 20 72 65 74 75 72 6e ┆e local pointers; return┆
0x7767e…77684 (0x324,0xeee)
0x77684…776a0 3a 3d 20 77 33 3b 0a 0a 20 20 20 20 20 20 77 33 3a 3d 20 62 2e 63 75 72 72 65 6e 74 ┆:= w3; w3:= b.current┆
0x776a0…776c0 3b 0a 20 20 20 20 20 20 73 5f 70 61 72 74 69 61 6c 3a 3d 20 77 30 3a 3d 20 28 77 33 29 2e 66 70 ┆; s_partial:= w0:= (w3).fp┆
0x776c0…776e0 72 5f 70 61 72 74 69 61 6c 3b 0a 20 20 20 20 20 20 28 77 33 29 2e 66 70 72 5f 73 70 61 72 74 69 ┆r_partial; (w3).fpr_sparti┆
0x776e0…776fc 61 6c 3a 3d 20 77 30 3b 20 21 20 73 61 76 65 20 70 61 74 69 61 6c 20 3a 3d 20 70 61 ┆al:= w0; ! save patial := pa┆
0x776fc…77702 (0x324,0xeef)
0x77702…77720 72 74 69 6c 61 20 21 0a 20 20 20 20 20 20 64 5f 70 61 72 74 69 61 6c 3a 3d 20 77 30 3a 3d ┆rtila ! d_partial:= w0:=┆
0x77720…77740 20 30 3b 0a 20 20 20 20 20 20 73 78 3a 3d 20 77 30 3b 64 78 3a 3d 20 77 30 3b 0a 20 20 20 20 20 ┆ 0; sx:= w0;dx:= w0; ┆
0x77740…77760 20 73 74 61 74 75 73 3a 3d 20 77 30 3a 3d 20 32 3b 0a 0a 20 20 20 20 20 20 77 32 3a 3d 20 61 64 ┆ status:= w0:= 2; w2:= ad┆
0x77760…7777a 64 72 65 73 73 28 28 77 31 3a 3d 28 77 33 29 2e 74 63 5f 62 75 66 29 2e 62 75 ┆dress((w1:=(w3).tc_buf).bu┆
0x7777a…77780 (0x324,0xef0)
0x77780…777a0 66 5f 64 61 74 61 31 29 2b 34 3b 0a 20 20 20 20 20 20 73 61 76 65 77 32 3a 3d 20 77 32 3b 0a 20 ┆f_data1)+4; savew2:= w2; ┆
0x777a0…777c0 20 20 20 20 20 77 32 2b 28 77 33 29 2e 74 63 5f 62 75 66 73 69 7a 65 3b 0a 20 20 20 20 20 20 64 ┆ w2+(w3).tc_bufsize; d┆
0x777c0…777e0 65 73 74 5f 65 6e 64 3a 3d 20 77 32 3b 0a 20 20 20 20 20 20 66 31 3a 3d 20 28 77 33 29 2e 74 63 ┆est_end:= w2; f1:= (w3).tc┆
0x777e0…77800 5f 62 73 70 74 72 3b 0a 20 20 20 20 20 20 28 77 33 29 2e 66 70 72 5f 73 00 00 00 00 00 00 00 00 ┆_bsptr; (w3).fpr_s ┆
0x77800…77806 (956,) (0x324,0xef1)
0x77806…77820 62 73 70 74 72 3a 3d 20 66 31 3b 20 21 20 73 61 76 65 20 62 73 20 70 6f 69 6e ┆bsptr:= f1; ! save bs poin┆
0x77820…77840 74 65 72 3a 3d 20 62 73 20 70 6f 69 6e 74 65 72 20 21 0a 20 20 20 20 20 20 77 31 20 65 78 74 72 ┆ter:= bs pointer ! w1 extr┆
0x77840…77860 61 63 74 20 39 3b 20 72 65 6c 61 74 69 76 65 20 3a 3d 20 77 31 3b 0a 20 20 20 20 20 20 66 31 3a ┆act 9; relative := w1; f1:┆
0x77860…7787e 3d 20 28 77 33 29 2e 74 63 5f 62 73 70 74 72 3b 0a 20 20 20 20 20 20 77 31 20 61 73 68 69 ┆= (w3).tc_bsptr; w1 ashi┆
0x7787e…77884 (0x324,0xef2)
0x77884…778a0 66 74 20 2d 20 39 3b 0a 20 20 20 20 20 20 69 66 20 77 31 3c 3e 28 77 33 29 2e 74 63 ┆ft - 9; if w1<>(w3).tc┆
0x778a0…778c0 5f 63 73 65 67 6e 6f 20 74 68 65 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 ┆_csegno then begin comment┆
0x778c0…778e0 20 61 63 74 75 61 6c 20 73 65 67 6d 65 6e 74 20 6e 6f 74 20 69 6e 20 63 6f 72 65 3b 0a 20 20 20 ┆ actual segment not in core; ┆
0x778e0…778fc 20 20 20 20 20 77 30 3a 3d 20 31 20 6c 73 68 69 66 74 20 32 33 3b 0a 20 20 20 20 20 ┆ w0:= 1 lshift 23; ┆
0x778fc…77902 (0x324,0xef3)
0x77902…77920 20 20 20 77 31 20 6f 72 20 77 30 3b 28 77 33 29 2e 74 63 5f 63 73 65 67 6e 6f 3a 3d 77 31 ┆ w1 or w0;(w3).tc_csegno:=w1┆
0x77920…77940 3b 0a 20 20 20 20 20 20 20 20 77 31 3a 3d 20 28 77 33 29 2e 74 63 5f 62 73 62 75 66 3b 0a 20 20 ┆; w1:= (w3).tc_bsbuf; ┆
0x77940…77960 20 20 20 20 20 20 73 6f 75 72 63 65 5f 65 6e 64 3a 3d 20 77 31 3b 0a 20 20 20 20 20 20 65 6e 64 ┆ source_end:= w1; end┆
0x77960…7797a 20 65 6c 73 65 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 ┆ else begin ┆
0x7797a…77980 (0x324,0xef4)
0x77980…779a0 77 31 3a 3d 20 28 77 33 29 2e 74 63 5f 62 73 62 75 66 3b 0a 20 20 20 20 20 20 20 20 77 30 3a 3d ┆w1:= (w3).tc_bsbuf; w0:=┆
0x779a0…779c0 20 77 31 2b 35 31 30 3b 0a 20 20 20 20 20 20 20 20 73 6f 75 72 63 65 5f 65 6e 64 3a 3d 20 77 30 ┆ w1+510; source_end:= w0┆
0x779c0…779e0 3b 0a 20 20 20 20 20 20 20 20 77 31 2b 72 65 6c 61 74 69 76 65 3b 0a 20 20 20 20 20 20 20 20 77 ┆; w1+relative; w┆
0x779e0…77a00 30 3a 3d 20 30 3b 72 65 6c 61 74 69 76 65 20 3a 3d 20 77 30 3b 0a 20 20 00 00 00 00 00 00 00 00 ┆0:= 0;relative := w0; ┆
0x77a00…77a06 (957,) (0x324,0xef5)
0x77a06…77a20 20 20 20 20 65 6e 64 3b 0a 0a 20 20 20 20 20 20 77 32 3a 3d 20 73 61 76 65 77 ┆ end; w2:= savew┆
0x77a20…77a40 32 3b 0a 20 20 20 20 20 20 63 6f 6e 76 3a 3d 20 77 30 3a 3d 20 30 3b 0a 20 20 20 20 20 20 77 30 ┆2; conv:= w0:= 0; w0┆
0x77a40…77a60 3a 3d 20 28 77 33 29 2e 66 70 72 5f 70 61 72 74 69 61 6c 3b 0a 0a 0a 20 20 20 20 20 20 77 68 69 ┆:= (w3).fpr_partial; whi┆
0x77a60…77a7e 6c 65 20 77 32 3c 64 65 73 74 5f 65 6e 64 20 64 6f 0a 20 20 20 20 20 20 62 65 67 69 6e 20 ┆le w2<dest_end do begin ┆
0x77a7e…77a84 (0x324,0xef6)
0x77a84…77aa0 63 6f 6d 6d 65 6e 74 20 77 68 69 6c 65 20 2d 2c 20 65 6e 64 20 6d 65 64 69 75 6d 20 ┆comment while -, end medium ┆
0x77aa0…77ac0 61 6e 64 0a 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 2d 2c ┆and -,┆
0x77ac0…77ae0 20 65 6e 64 20 6f 75 74 70 75 74 20 62 75 66 66 65 72 20 64 6f 3b 0a 0a 20 20 20 20 20 20 20 20 ┆ end output buffer do; ┆
0x77ae0…77afc 77 30 3a 3d 20 73 5f 70 61 72 74 69 61 6c 3b 20 20 20 20 21 20 77 30 3d 70 61 72 74 ┆w0:= s_partial; ! w0=part┆
0x77afc…77b02 (0x324,0xef7)
0x77b02…77b20 69 61 6c 20 77 6f 72 64 20 21 0a 20 20 20 20 20 20 20 20 77 68 69 6c 65 20 77 30 3d 30 20 ┆ial word ! while w0=0 ┆
0x77b20…77b40 64 6f 20 20 20 20 20 20 21 20 69 66 20 77 6f 72 64 20 65 78 68 61 75 73 74 65 64 20 74 68 65 6e ┆do ! if word exhausted then┆
0x77b40…77b60 20 21 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 69 6e 63 72 65 61 73 ┆ ! begin comment increas┆
0x77b60…77b7a 65 20 73 6f 75 72 63 65 20 69 6e 64 65 78 3b 0a 0a 20 20 20 20 20 20 20 20 20 ┆e source index; ┆
0x77b7a…77b80 (0x324,0xef8)
0x77b80…77ba0 20 69 66 20 77 30 3a 3d 63 6f 6e 76 3e 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 62 65 ┆ if w0:=conv>0 then be┆
0x77ba0…77bc0 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 74 61 6b 65 20 69 6e 70 75 74 20 66 72 6f 6d 20 63 6f 6e 76 ┆gin comment take input from conv┆
0x77bc0…77be0 65 72 74 20 73 65 71 75 65 6e 63 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6e 76 3a 3d ┆ert sequence; conv:=┆
0x77be0…77c00 20 77 30 2d 32 3b 20 21 20 64 65 63 72 65 61 73 65 20 63 6f 6e 76 65 72 00 00 00 00 00 00 00 00 ┆ w0-2; ! decrease conver ┆
0x77c00…77c06 (958,) (0x324,0xef9)
0x77c06…77c20 74 20 63 6f 75 6e 74 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 70 6f 70 28 ┆t count ! pop(┆
0x77c20…77c40 2e 77 33 2e 2c 77 30 29 3b 20 21 20 77 30 3d 63 6f 6e 76 65 72 74 20 63 68 61 72 73 20 21 0a 20 ┆.w3.,w0); ! w0=convert chars ! ┆
0x77c40…77c60 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3d 30 20 74 68 65 6e 20 77 31 2b 32 3b 0a 20 20 ┆ if w0=0 then w1+2; ┆
0x77c60…77c7e 20 20 20 20 20 20 20 20 65 6e 64 20 65 6c 73 65 20 77 31 2b 32 3b 0a 20 20 20 20 20 20 20 ┆ end else w1+2; ┆
0x77c7e…77c84 (0x324,0xefa)
0x77c84…77ca0 20 20 20 69 66 20 77 31 3e 73 6f 75 72 63 65 5f 65 6e 64 20 74 68 65 6e 20 21 20 69 ┆ if w1>source_end then ! i┆
0x77ca0…77cc0 66 20 65 6e 64 20 69 6e 70 75 74 20 62 6c 6f 63 6b 20 74 68 65 6e 20 21 0a 20 20 20 20 20 20 20 ┆f end input block then ! ┆
0x77cc0…77ce0 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 69 6e 62 6c 6f 63 6b 20 28 73 6f 75 72 63 65 ┆ begin comment inblock (source┆
0x77ce0…77cfc 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 20 62 2e 63 75 72 72 65 6e ┆); w3:= b.curren┆
0x77cfc…77d02 (0x324,0xefb)
0x77d02…77d20 74 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 20 28 77 33 29 2e 74 63 5f 63 73 ┆t; w1:= (w3).tc_cs┆
0x77d20…77d40 65 67 6e 6f 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 31 3c 30 20 74 68 65 6e 0a 20 ┆egno; if w1<0 then ┆
0x77d40…77d60 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 ┆ begin f┆
0x77d60…77d7a 31 3a 3d 20 28 77 33 29 2e 74 63 5f 62 73 70 74 72 3b 0a 20 20 20 20 20 20 20 ┆1:= (w3).tc_bsptr; ┆
0x77d7a…77d80 (0x324,0xefc)
0x77d80…77da0 20 20 20 20 20 20 20 69 66 20 77 31 20 7a 65 72 6f 6d 61 73 6b 20 35 31 31 20 74 68 65 6e 0a 20 ┆ if w1 zeromask 511 then ┆
0x77da0…77dc0 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 66 69 72 73 74 ┆ begin comment first┆
0x77dc0…77de0 20 62 6c 6f 63 6b 20 6f 66 20 74 72 61 6e 73 70 6f 72 74 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ block of transport; ┆
0x77de0…77e00 20 20 20 20 20 66 31 20 6c 73 68 69 66 74 20 2d 20 39 3b 0a 20 20 20 20 00 00 00 00 00 00 00 00 ┆ f1 lshift - 9; ┆
0x77e00…77e06 (959,) (0x324,0xefd)
0x77e06…77e20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 20 2d 20 28 77 33 29 2e 66 70 72 5f ┆ w1 - (w3).fpr_┆
0x77e20…77e40 73 74 61 72 74 73 65 67 6d 65 6e 74 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b ┆startsegment; end;┆
0x77e40…77e60 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 31 3c 3e 30 20 74 68 65 6e 0a 20 20 20 ┆ if w1<>0 then ┆
0x77e60…77e7e 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ begin ┆
0x77e7e…77e84 (0x324,0xefe)
0x77e84…77ea0 20 20 20 77 31 3a 3d 20 72 65 6c 61 74 69 76 65 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆ w1:= relative; ┆
0x77ea0…77ec0 20 20 20 20 20 20 77 31 2b 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 ┆ w1+2; if w┆
0x77ec0…77ee0 31 3e 35 31 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e ┆1>510 then begin┆
0x77ee0…77efc 20 63 6f 6d 6d 65 6e 74 20 6e 65 78 74 20 73 65 67 6d 65 6e 74 3b 0a 20 20 20 20 20 ┆ comment next segment; ┆
0x77efc…77f02 (0x324,0xeff)
0x77f02…77f20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 20 30 3b 72 65 6c 61 74 69 76 65 3a 3d ┆ w1:= 0;relative:=┆
0x77f20…77f40 20 77 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 20 35 31 32 3b ┆ w1; w1:= 512;┆
0x77f40…77f60 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 20 65 6c 73 65 20 72 65 6c 61 74 69 ┆ end else relati┆
0x77f60…77f7a 76 65 20 3a 3d 20 77 31 3b 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ve := w1;; ┆
0x77f7a…77f80 (0x324,0xf00)
0x77f80…77fa0 20 77 31 20 6c 73 68 69 66 74 20 2d 20 39 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e ┆ w1 lshift - 9; en┆
0x77fa0…77fc0 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 2b 28 77 33 29 2e 74 63 5f 63 73 65 67 ┆d; w1+(w3).tc_cseg┆
0x77fc0…77fe0 6e 6f 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 20 61 6e 64 20 38 33 38 38 36 30 37 ┆no; w1 and 8388607┆
0x77fe0…78000 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 20 65 6c 73 65 20 77 00 00 00 00 00 00 00 00 ┆; end else w ┆
0x78000…78006 (960,) (0x324,0xf01)
0x78006…78020 31 2b 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 63 ┆1+1; (w3).tc_c┆
0x78020…78040 73 65 67 6e 6f 3a 3d 20 77 31 3b 0a 72 65 70 3a 0a 20 20 20 20 20 20 20 20 20 20 20 20 70 75 73 ┆segno:= w1; rep: pus┆
0x78040…78060 68 28 2e 77 33 2e 2c 77 30 3a 3d 72 65 74 75 72 6e 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆h(.w3.,w0:=return); ┆
0x78060…7807e 70 75 73 68 28 2e 77 33 2e 2c 77 30 3a 3d 77 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆push(.w3.,w0:=w2); ┆
0x7807e…78084 (0x324,0xf02)
0x78084…780a0 20 70 75 73 68 28 2e 77 33 2e 2c 77 30 3a 3d 64 65 73 74 5f 65 6e 64 29 3b 0a 20 20 ┆ push(.w3.,w0:=dest_end); ┆
0x780a0…780c0 20 20 20 20 20 20 20 20 20 20 70 75 73 68 28 2e 77 33 2e 2c 77 30 3a 3d 64 5f 70 61 72 74 69 61 ┆ push(.w3.,w0:=d_partia┆
0x780c0…780e0 6c 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 70 75 73 68 28 2e 77 33 2e 2c 77 30 3a 3d 72 65 ┆l); push(.w3.,w0:=re┆
0x780e0…780fc 6c 61 74 69 76 65 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 70 75 73 68 28 2e 77 ┆lative); push(.w┆
0x780fc…78102 (0x324,0xf03)
0x78102…78120 33 2e 2c 77 30 3a 3d 74 72 61 69 6c 30 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 70 75 ┆3.,w0:=trail0); pu┆
0x78120…78140 73 68 28 2e 77 33 2e 2c 77 30 3a 3d 73 78 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 70 75 73 ┆sh(.w3.,w0:=sx); pus┆
0x78140…78160 68 28 2e 77 33 2e 2c 77 30 3a 3d 64 78 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 70 75 73 68 ┆h(.w3.,w0:=dx); push┆
0x78160…7817a 28 2e 77 33 2e 2c 77 30 3a 3d 70 61 72 74 69 61 6c 29 3b 0a 20 20 20 20 20 20 ┆(.w3.,w0:=partial); ┆
0x7817a…78180 (0x324,0xf04)
0x78180…781a0 20 20 20 20 20 20 70 75 73 68 28 2e 77 33 2e 2c 77 30 3a 3d 73 65 67 6d 65 6e 74 29 3b 0a 20 20 ┆ push(.w3.,w0:=segment); ┆
0x781a0…781c0 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 20 28 77 33 29 2e 74 63 5f 62 73 6c 3b 0a 20 20 20 20 ┆ w0:= (w3).tc_bsl; ┆
0x781c0…781e0 20 20 20 20 20 20 20 20 77 31 3a 3d 20 28 77 33 29 2e 74 63 5f 62 73 75 3b 0a 20 20 20 20 20 20 ┆ w1:= (w3).tc_bsu; ┆
0x781e0…78200 20 20 20 20 20 20 77 33 3a 3d 20 61 64 64 72 65 73 73 28 7a 65 72 6f 29 00 00 00 00 00 00 00 00 ┆ w3:= address(zero) ┆
0x78200…78206 (961,) (0x324,0xf05)
0x78206…78220 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 37 32 29 3b ┆; monitor(72);┆
0x78220…78240 20 21 20 73 65 74 20 63 61 74 61 6c 6f 67 20 62 61 73 65 20 21 0a 20 20 20 20 20 20 20 20 20 20 ┆ ! set catalog base ! ┆
0x78240…78260 20 20 77 33 3a 3d 20 62 2e 63 75 72 72 65 6e 74 3b 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 ┆ w3:= b.current; b┆
0x78260…7827e 75 66 5f 6f 70 3a 3d 20 77 30 3a 3d 20 33 20 6c 73 68 69 66 74 20 31 32 3b 0a 20 20 20 20 ┆uf_op:= w0:= 3 lshift 12; ┆
0x7827e…78284 (0x324,0xf06)
0x78284…782a0 20 20 20 20 20 20 20 20 62 75 66 5f 66 61 3a 3d 20 77 30 3a 3d 20 28 77 33 29 2e 74 ┆ buf_fa:= w0:= (w3).t┆
0x782a0…782c0 63 5f 62 73 62 75 66 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 30 2b 35 31 30 3b 0a 20 20 20 ┆c_bsbuf; w0+510; ┆
0x782c0…782e0 20 20 20 20 20 20 20 20 20 62 75 66 5f 6c 61 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆ buf_la:= w0; ┆
0x782e0…782fc 20 20 62 75 66 5f 73 65 67 6e 6f 3a 3d 20 77 30 3a 3d 20 28 77 33 29 2e 74 63 5f 63 ┆ buf_segno:= w0:= (w3).tc_c┆
0x782fc…78302 (0x324,0xf07)
0x78302…78320 73 65 67 6e 6f 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 20 61 64 64 72 65 73 ┆segno; w1:= addres┆
0x78320…78340 73 28 62 75 66 5f 6f 70 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 20 61 64 64 72 ┆s(buf_op); w2:= addr┆
0x78340…78360 65 73 73 28 28 77 33 29 2e 74 63 5f 62 73 6e 61 6d 65 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ess((w3).tc_bsname); ┆
0x78360…7837a 20 73 65 6e 64 77 61 69 74 28 2e 77 33 2e 2c 77 30 2c 77 31 2c 77 32 29 3b 0a ┆ sendwait(.w3.,w0,w1,w2); ┆
0x7837a…78380 (0x324,0xf08)
0x78380…783a0 20 20 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 20 31 20 6c 73 68 69 66 74 20 77 30 3b 0a 20 20 ┆ w2:= 1 lshift w0; ┆
0x783a0…783c0 20 20 20 20 20 20 20 20 20 20 69 66 20 77 32 3d 32 20 74 68 65 6e 20 77 32 20 6f 72 20 62 2e 61 ┆ if w2=2 then w2 or b.a┆
0x783c0…783e0 6e 73 5f 73 74 61 74 75 73 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 73 74 61 74 75 73 3a 3d 20 ┆ns_status; status:= ┆
0x783e0…78400 77 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 70 6f 70 28 2e 77 33 2e 00 00 00 00 00 00 00 00 ┆w2; pop(.w3. ┆
0x78400…78406 (962,) (0x324,0xf09)
0x78406…78420 2c 77 30 29 3b 73 65 67 6d 65 6e 74 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 ┆,w0);segment:= w0; ┆
0x78420…78440 20 20 20 20 20 70 6f 70 28 2e 77 33 2e 2c 77 30 29 3b 70 61 72 74 69 61 6c 3a 3d 20 77 30 3b 0a ┆ pop(.w3.,w0);partial:= w0; ┆
0x78440…78460 20 20 20 20 20 20 20 20 20 20 20 20 70 6f 70 28 2e 77 33 2e 2c 77 30 29 3b 64 78 3a 3d 20 77 30 ┆ pop(.w3.,w0);dx:= w0┆
0x78460…7847e 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 70 6f 70 28 2e 77 33 2e 2c 77 30 29 3b 73 78 3a ┆; pop(.w3.,w0);sx:┆
0x7847e…78484 (0x324,0xf0a)
0x78484…784a0 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 70 6f 70 28 2e 77 33 2e 2c 77 ┆= w0; pop(.w3.,w┆
0x784a0…784c0 30 29 3b 74 72 61 69 6c 30 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 70 6f 70 28 ┆0);trail0:= w0; pop(┆
0x784c0…784e0 2e 77 33 2e 2c 77 30 29 3b 72 65 6c 61 74 69 76 65 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 20 ┆.w3.,w0);relative:= w0; ┆
0x784e0…784fc 20 20 20 20 70 6f 70 28 2e 77 33 2e 2c 77 30 29 3b 64 5f 70 61 72 74 69 61 6c 3a 3d ┆ pop(.w3.,w0);d_partial:=┆
0x784fc…78502 (0x324,0xf0b)
0x78502…78520 20 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 70 6f 70 28 2e 77 33 2e 2c 77 30 29 3b ┆ w0; pop(.w3.,w0);┆
0x78520…78540 64 65 73 74 5f 65 6e 64 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 70 6f 70 28 2e ┆dest_end:= w0; pop(.┆
0x78540…78560 77 33 2e 2c 77 30 29 3b 77 32 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 70 6f 70 ┆w3.,w0);w2:= w0; pop┆
0x78560…7857a 28 2e 77 33 2e 2c 77 30 29 3b 72 65 74 75 72 6e 3a 3d 20 77 30 3b 0a 20 20 20 ┆(.w3.,w0);return:= w0; ┆
0x7857a…78580 (0x324,0xf0c)
0x78580…785a0 20 20 20 20 20 20 20 20 20 77 30 3a 3d 20 28 77 33 29 2e 74 63 5f 62 73 62 75 66 3b 0a 20 20 20 ┆ w0:= (w3).tc_bsbuf; ┆
0x785a0…785c0 20 20 20 20 20 20 20 20 20 77 30 2b 35 31 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 73 6f 75 ┆ w0+510; sou┆
0x785c0…785e0 72 63 65 5f 65 6e 64 3a 3d 20 77 30 3b 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 ┆rce_end:= w0; if w0┆
0x785e0…78600 3a 3d 20 73 74 61 74 75 73 20 61 6e 64 20 32 27 31 30 30 31 30 30 3c 3e 00 00 00 00 00 00 00 00 ┆:= status and 2'100100<> ┆
0x78600…78606 (963,) (0x324,0xf0d)
0x78606…78620 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 ┆0 then begin c┆
0x78620…78640 6f 6d 6d 65 6e 74 20 72 65 6a 65 63 74 65 64 2f 64 6f 65 73 20 6e 6f 74 20 65 78 69 73 74 3b 0a ┆omment rejected/does not exist; ┆
0x78640…78660 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 61 76 65 77 32 3a 3d 20 77 32 3b 0a 20 20 20 20 20 ┆ savew2:= w2; ┆
0x78660…7867e 20 20 20 20 20 20 20 20 20 77 30 3a 3d 20 28 77 33 29 2e 74 63 5f 62 73 6c 3b 0a 20 20 20 ┆ w0:= (w3).tc_bsl; ┆
0x7867e…78684 (0x324,0xf0e)
0x78684…786a0 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 20 28 77 33 29 2e 74 63 5f 62 73 75 3b ┆ w1:= (w3).tc_bsu;┆
0x786a0…786c0 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 20 61 64 64 72 65 73 73 28 7a 65 72 6f ┆ w3:= address(zero┆
0x786c0…786e0 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 37 32 29 3b 20 21 20 ┆); monitor(72); ! ┆
0x786e0…786fc 73 65 74 20 63 61 74 61 6c 6f 67 20 62 61 73 65 20 21 0a 20 20 20 20 20 20 20 20 20 ┆set catalog base ! ┆
0x786fc…78702 (0x324,0xf0f)
0x78702…78720 20 20 20 20 20 77 33 3a 3d 20 62 2e 63 75 72 72 65 6e 74 3b 0a 20 20 20 20 20 20 20 20 20 ┆ w3:= b.current; ┆
0x78720…78740 20 20 20 20 20 77 33 3a 3d 20 61 64 64 72 65 73 73 28 28 77 33 29 2e 74 63 5f 62 73 6e 61 6d 65 ┆ w3:= address((w3).tc_bsname┆
0x78740…78760 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 35 32 29 3b 20 21 20 ┆); monitor(52); ! ┆
0x78760…7877a 63 72 65 61 74 65 20 61 72 65 61 20 70 72 6f 63 65 73 73 20 21 0a 20 20 20 20 ┆create area process ! ┆
0x7877a…78780 (0x324,0xf10)
0x78780…787a0 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3d 30 20 74 68 65 6e 20 6d 6f 6e 69 74 6f 72 28 38 ┆ if w0=0 then monitor(8┆
0x787a0…787c0 29 3b 20 21 20 72 65 73 65 72 76 65 20 70 72 6f 63 65 73 73 20 21 0a 20 20 20 20 20 20 20 20 20 ┆); ! reserve process ! ┆
0x787c0…787e0 20 20 20 20 20 77 33 3a 3d 20 62 2e 63 75 72 72 65 6e 74 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ w3:= b.current; ┆
0x787e0…78800 20 20 20 2d 28 77 30 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ -(w0); ┆
0x78800…78806 (964,) (0x324,0xf11)
0x78806…78820 69 66 20 77 30 3c 3e 30 20 74 68 65 6e 20 21 20 6e 6f 74 20 66 69 72 73 74 20 ┆if w0<>0 then ! not first ┆
0x78820…78840 62 6c 6f 63 6b 20 21 20 67 6f 74 6f 20 65 78 69 74 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆block ! goto exit; ┆
0x78840…78860 20 77 32 3a 3d 20 73 61 76 65 77 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f ┆ w2:= savew2; goto┆
0x78860…7887e 20 72 65 70 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 ┆ rep; end; ┆
0x7887e…78884 (0x324,0xf12)
0x78884…788a0 20 20 20 20 20 69 66 20 77 30 3a 3d 73 74 61 74 75 73 3c 3e 32 20 74 68 65 6e 20 0a ┆ if w0:=status<>2 then ┆
0x788a0…788c0 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ begin ┆
0x788c0…788e0 77 30 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 65 78 69 74 3b 0a ┆w0:=0; goto exit; ┆
0x788e0…788fc 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ end; ┆
0x788fc…78902 (0x324,0xf13)
0x78902…78920 20 77 31 3a 3d 28 77 33 29 2e 74 63 5f 62 73 62 75 66 2b 72 65 6c 61 74 69 76 65 3b 0a 20 ┆ w1:=(w3).tc_bsbuf+relative; ┆
0x78920…78940 20 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 20 30 3b 63 6f 6e 76 3a 3d 20 77 30 3b 72 65 6c 61 ┆ w0:= 0;conv:= w0;rela┆
0x78940…78960 74 69 76 65 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 ┆tive:= w0; end; ┆
0x78960…7897a 20 20 20 20 69 66 20 77 30 3d 30 20 74 68 65 6e 20 77 30 3a 3d 20 28 77 31 29 ┆ if w0=0 then w0:= (w1)┆
0x7897a…78980 (0x324,0xf14)
0x78980…789a0 2e 77 6f 72 64 3b 20 21 20 74 61 6b 65 20 70 61 72 74 69 61 6c 20 77 6f 72 64 20 66 72 6f 6d 20 ┆.word; ! take partial word from ┆
0x789a0…789c0 73 6f 75 72 63 65 20 6f 72 20 63 6f 6e 76 65 72 74 20 73 65 71 75 65 6e 63 65 20 21 0a 20 20 20 ┆source or convert sequence ! ┆
0x789c0…789e0 20 20 20 20 20 65 6e 64 3b 0a 0a 20 20 20 20 20 20 20 20 77 33 3a 3d 20 30 3b 20 20 20 20 20 20 ┆ end; w3:= 0; ┆
0x789e0…78a00 20 20 20 20 20 20 21 20 77 33 3a 3d 20 20 63 68 61 72 28 70 61 72 74 69 00 00 00 00 00 00 00 00 ┆ ! w3:= char(parti ┆
0x78a00…78a06 (965,) (0x324,0xf15)
0x78a06…78a20 61 6c 20 77 6f 72 64 29 20 21 0a 20 20 20 20 20 20 20 20 66 30 20 6c 73 68 69 ┆al word) ! f0 lshi┆
0x78a20…78a40 66 74 20 38 3b 20 20 20 20 20 20 20 0a 20 20 20 20 20 20 20 20 73 5f 70 61 72 74 69 61 6c 3a 3d ┆ft 8; s_partial:=┆
0x78a40…78a60 20 77 30 3b 0a 20 20 20 20 20 20 20 20 63 68 61 72 3a 3d 20 77 33 3b 20 21 20 73 61 76 65 20 63 ┆ w0; char:= w3; ! save c┆
0x78a60…78a7e 68 61 72 20 76 61 6c 75 65 20 21 0a 20 20 20 20 20 20 20 20 69 66 20 77 33 20 61 6e 64 20 ┆har value ! if w3 and ┆
0x78a7e…78a84 (0x324,0xf16)
0x78a84…78aa0 31 32 37 3e 30 20 74 68 65 6e 20 21 20 69 67 6e 6f 72 65 20 69 66 20 63 68 61 72 20 ┆127>0 then ! ignore if char ┆
0x78aa0…78ac0 65 78 63 6c 2e 20 68 69 67 68 20 62 69 74 20 3d 20 7a 65 72 6f 20 21 0a 20 20 20 20 20 20 20 20 ┆excl. high bit = zero ! ┆
0x78ac0…78ae0 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 6f 75 74 63 68 61 72 20 28 20 64 65 73 74 69 6e 61 74 ┆begin comment outchar ( destinat┆
0x78ae0…78afc 69 6f 6e 2c 20 77 33 29 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 64 ┆ion, w3); if w0:=d┆
0x78afc…78b02 (0x324,0xf17)
0x78b02…78b20 5f 70 61 72 74 69 61 6c 3e 36 35 35 33 35 20 74 68 65 6e 20 21 20 69 66 20 70 61 72 74 69 ┆_partial>65535 then ! if parti┆
0x78b20…78b40 61 6c 20 77 6f 72 64 20 66 69 6c 6c 65 64 20 74 68 65 6e 20 21 0a 20 20 20 20 20 20 20 20 20 20 ┆al word filled then ! ┆
0x78b40…78b60 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 69 6e 63 72 65 61 73 65 20 64 65 73 74 69 6e 61 74 69 ┆begin comment increase destinati┆
0x78b60…78b7a 6f 6e 20 69 6e 64 65 78 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 77 32 29 ┆on index; (w2)┆
0x78b7a…78b80 (0x324,0xf18)
0x78b80…78ba0 2e 77 6f 72 64 3a 3d 20 77 30 3b 20 21 20 64 65 73 74 69 6e 61 74 69 6f 6e 28 78 32 29 3a 3d 20 ┆.word:= w0; ! destination(x2):= ┆
0x78ba0…78bc0 70 61 72 74 69 61 6c 5f 77 6f 72 64 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 32 2b 32 3b ┆partial_word ! w2+2;┆
0x78bc0…78be0 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 20 30 3b 20 20 21 20 70 61 72 74 69 61 6c 20 ┆ w0:= 0; ! partial ┆
0x78be0…78c00 77 6f 72 64 20 3a 3d 20 30 20 21 0a 20 20 20 20 20 20 20 20 20 20 65 6e 00 00 00 00 00 00 00 00 ┆word := 0 ! en ┆
0x78c00…78c06 (966,) (0x324,0xf19)
0x78c06…78c20 64 3b 0a 20 20 20 20 20 20 20 20 20 20 77 30 20 6c 73 68 69 66 74 20 38 3b 20 ┆d; w0 lshift 8; ┆
0x78c20…78c40 20 21 20 70 61 72 74 69 61 6c 20 77 6f 72 64 20 3a 3d 20 70 61 72 74 69 61 6c 20 77 6f 72 64 20 ┆ ! partial word := partial word ┆
0x78c40…78c60 73 68 69 66 74 20 38 20 2b 20 63 68 61 72 20 21 0a 20 20 20 20 20 20 20 20 20 20 77 30 2b 77 33 ┆shift 8 + char ! w0+w3┆
0x78c60…78c7e 3b 0a 20 20 20 20 20 20 20 20 20 20 64 5f 70 61 72 74 69 61 6c 3a 3d 20 77 30 3b 0a 20 20 ┆; d_partial:= w0; ┆
0x78c7e…78c84 (0x324,0xf1a)
0x78c84…78ca0 20 20 20 20 20 20 20 20 77 33 3a 3d 20 63 68 61 72 3b 20 21 20 72 65 73 74 6f 72 65 ┆ w3:= char; ! restore┆
0x78ca0…78cc0 20 65 76 65 6e 74 75 61 6c 20 68 69 67 68 20 62 69 74 20 74 6f 20 61 76 6f 69 64 2c 0a 20 20 20 ┆ eventual high bit to avoid, ┆
0x78cc0…78ce0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65 63 75 72 73 69 76 65 20 63 61 ┆ recursive ca┆
0x78ce0…78cfc 6c 6c 20 6f 66 20 63 6f 6e 76 65 72 74 20 73 65 71 75 65 6e 63 65 20 21 0a 0a 20 20 ┆ll of convert sequence ! ┆
0x78cfc…78d02 (0x324,0xf1b)
0x78d02…78d20 20 20 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 63 68 65 63 6b 20 63 68 61 72 61 63 74 65 ┆ comment check characte┆
0x78d20…78d40 72 3b 0a 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 33 3c 33 32 20 74 68 65 6e 0a 20 20 20 20 ┆r; if w3<32 then ┆
0x78d40…78d60 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 33 3d 31 30 ┆ begin if w3=10┆
0x78d60…78d7a 20 74 68 65 6e 20 20 21 20 69 66 20 63 68 61 72 3d 31 30 20 74 68 65 6e 20 21 ┆ then ! if char=10 then !┆
0x78d7a…78d80 (0x324,0xf1c)
0x78d80…78da0 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 6e 65 77 6c 69 ┆ begin comment newli┆
0x78da0…78dc0 6e 65 3b 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 20 62 2e 63 75 72 72 65 6e ┆ne; w3:= b.curren┆
0x78dc0…78de0 74 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 68 69 6c 65 20 77 30 3c 36 35 35 33 36 20 ┆t; while w0<65536 ┆
0x78de0…78e00 64 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 00 00 00 00 00 00 00 00 ┆do begin c ┆
0x78e00…78e06 (967,) (0x324,0xf1d)
0x78e06…78e20 6f 6d 6d 65 6e 74 20 6c 65 66 74 20 6a 75 73 74 69 66 79 20 63 68 61 72 73 3b ┆omment left justify chars;┆
0x78e20…78e40 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 30 20 6c 73 68 69 66 74 20 38 3b 0a 20 20 ┆ w0 lshift 8; ┆
0x78e40…78e60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 30 2b 32 35 3b 20 21 20 61 6e 64 20 66 69 6c 6c 20 ┆ w0+25; ! and fill ┆
0x78e60…78e7e 77 69 74 68 20 45 54 58 27 73 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 ┆with ETX's ! end┆
0x78e7e…78e84 (0x324,0xf1e)
0x78e84…78ea0 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 73 61 76 65 ┆; comment save┆
0x78ea0…78ec0 20 6e 65 77 6c 69 6e 65 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 3a 20 20 3b 0a 0a 20 20 20 20 20 20 ┆ newline information: ; ┆
0x78ec0…78ee0 20 20 20 20 20 20 20 20 74 72 61 69 6c 30 3a 3d 20 20 20 20 20 20 20 20 20 20 20 20 20 77 30 3b ┆ trail0:= w0;┆
0x78ee0…78efc 20 21 20 74 72 61 69 6c 65 72 5f 30 20 20 20 20 20 20 20 20 20 20 20 21 0a 20 20 20 ┆ ! trailer_0 ! ┆
0x78efc…78f02 (0x324,0xf1f)
0x78f02…78f20 20 20 20 20 20 20 20 20 20 20 20 73 78 3a 3d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ sx:= ┆
0x78f20…78f40 20 20 77 31 3b 20 21 20 73 6f 75 72 63 65 20 69 6e 64 65 78 20 20 20 20 20 20 20 20 21 0a 20 20 ┆ w1; ! source index ! ┆
0x78f40…78f60 20 20 20 20 20 20 20 20 20 20 20 20 64 78 3a 3d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ dx:= ┆
0x78f60…78f7a 20 77 32 3b 20 21 20 64 65 73 74 69 6e 61 74 69 6f 6e 20 69 6e 64 65 78 20 20 ┆ w2; ! destination index ┆
0x78f7a…78f80 (0x324,0xf20)
0x78f80…78fa0 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 61 72 74 69 61 6c 3a 3d 77 30 3a 3d 20 73 ┆ ! partial:=w0:= s┆
0x78fa0…78fc0 5f 70 61 72 74 69 61 6c 3b 20 21 20 70 61 72 74 69 61 6c 20 77 6f 72 64 20 20 20 20 20 20 20 20 ┆_partial; ! partial word ┆
0x78fc0…78fe0 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 65 67 6d 65 6e 74 3a 3d 77 30 3a 3d 28 77 33 ┆! segment:=w0:=(w3┆
0x78fe0…79000 29 2e 74 63 5f 63 73 65 67 6e 6f 3b 20 21 20 73 65 67 6d 65 6e 74 20 6e 00 00 00 00 00 00 00 00 ┆).tc_csegno; ! segment n ┆
0x79000…79006 (968,) (0x324,0xf21)
0x79006…79020 75 6d 62 65 72 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 0a 20 20 20 20 20 ┆umber ! ┆
0x79020…79040 20 20 20 20 20 20 20 20 20 77 33 3a 3d 20 31 30 3b 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 ┆ w3:= 10; e┆
0x79040…79060 6e 64 20 21 20 65 6e 64 20 6e 65 77 6c 69 6e 65 20 21 20 65 6c 73 65 0a 20 20 20 20 0a 20 20 20 ┆nd ! end newline ! else ┆
0x79060…7907e 20 20 20 20 20 20 20 20 20 69 66 20 77 33 3d 32 35 20 74 68 65 6e 0a 20 20 20 20 20 20 20 ┆ if w3=25 then ┆
0x7907e…79084 (0x324,0xf22)
0x79084…790a0 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 65 6e 64 20 6d 65 64 69 75 ┆ begin comment end mediu┆
0x790a0…790c0 6d 3b 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 68 69 6c 65 20 77 30 3c 36 35 35 33 36 ┆m; while w0<65536┆
0x790c0…790e0 20 64 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 ┆ do begin comment ┆
0x790e0…790fc 6c 65 66 74 20 6a 75 73 74 69 66 79 20 63 68 61 72 73 3b 0a 20 20 20 20 20 20 20 20 ┆left justify chars; ┆
0x790fc…79102 (0x324,0xf23)
0x79102…79120 20 20 20 20 20 20 20 20 77 30 20 6c 73 68 69 66 74 20 38 3b 0a 20 20 20 20 20 20 20 20 20 ┆ w0 lshift 8; ┆
0x79120…79140 20 20 20 20 20 20 20 77 30 2b 33 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a ┆ w0+3; end; ┆
0x79140…79160 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 72 61 69 6c 30 3a 3d 20 20 20 20 20 20 20 20 20 20 ┆ trail0:= ┆
0x79160…7917a 77 30 3b 20 21 20 74 72 61 69 6c 65 72 30 20 20 20 20 21 0a 20 20 20 20 20 20 ┆w0; ! trailer0 ! ┆
0x7917a…79180 (0x324,0xf24)
0x79180…791a0 20 20 20 20 20 20 20 20 73 78 3a 3d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3b 20 21 20 ┆ sx:= w1; ! ┆
0x791a0…791c0 73 6f 75 72 63 65 20 69 6e 64 65 78 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 78 3a ┆source index ! dx:┆
0x791c0…791e0 3d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 32 3b 20 21 20 64 65 73 74 69 6e 61 74 69 6f 6e ┆= w2; ! destination┆
0x791e0…79200 20 69 6e 64 65 78 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 00 00 00 00 00 00 00 00 ┆ index ! s ┆
0x79200…79206 (969,) (0x324,0xf25)
0x79206…79220 65 67 6d 65 6e 74 3a 3d 77 30 3a 3d 20 28 77 33 3a 3d 62 2e 63 75 72 72 65 6e ┆egment:=w0:= (w3:=b.curren┆
0x79220…79240 74 29 2e 74 63 5f 63 73 65 67 6e 6f 3b 20 21 20 73 65 67 6d 65 6e 74 20 6e 75 6d 62 65 72 20 21 ┆t).tc_csegno; ! segment number !┆
0x79240…79260 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 73 74 61 74 65 3a 3d 20 77 ┆ (w3).tc_state:= w┆
0x79260…7927e 30 3a 3d 20 35 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 66 70 72 5f ┆0:= 5; (w3).fpr_┆
0x7927e…79284 (0x324,0xf26)
0x79284…792a0 69 6e 70 73 74 61 74 65 3a 3d 20 77 30 3a 3d 20 34 3b 20 21 20 63 6f 6d 70 6c 65 74 ┆inpstate:= w0:= 4; ! complet┆
0x792a0…792c0 65 64 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 65 73 74 5f 65 6e 64 3a 3d 20 77 ┆ed ! dest_end:= w┆
0x792c0…792e0 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 20 32 35 3b 0a 20 20 20 20 20 20 ┆2; w3:= 25; ┆
0x792e0…792fc 20 20 20 20 20 20 65 6e 64 20 21 20 65 6e 64 20 65 6e 64 20 6d 65 64 69 75 6d 20 21 ┆ end ! end end medium !┆
0x792fc…79302 (0x324,0xf27)
0x79302…79320 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 33 3d 31 32 20 74 68 65 ┆ else if w3=12 the┆
0x79320…79340 6e 20 21 20 66 6f 72 6d 66 65 65 64 20 21 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆n ! formfeed ! else ┆
0x79340…79360 69 66 20 77 33 3d 31 33 20 74 68 65 6e 20 21 20 63 61 72 72 69 61 67 65 20 72 65 74 75 72 6e 20 ┆if w3=13 then ! carriage return ┆
0x79360…7937a 21 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 ┆! else begin c┆
0x7937a…79380 (0x324,0xf28)
0x79380…793a0 6f 6d 6d 65 6e 74 20 63 68 65 63 6b 20 66 6f 72 20 63 6f 6e 76 65 72 74 20 73 65 71 75 65 6e 63 ┆omment check for convert sequenc┆
0x793a0…793c0 65 73 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 5f 70 61 72 74 69 61 6c 3a 3d 20 77 30 ┆es; d_partial:= w0┆
0x793c0…793e0 3a 3d 20 64 5f 70 61 72 74 69 61 6c 20 6c 73 68 69 66 74 20 2d 38 3b 20 21 20 72 65 67 72 65 74 ┆:= d_partial lshift -8; ! regret┆
0x793e0…79400 20 63 68 61 72 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 68 00 00 00 00 00 00 00 00 ┆ char ! ch ┆
0x79400…79406 (970,) (0x324,0xf29)
0x79406…79420 61 72 3a 3d 20 77 33 3b 20 21 20 73 61 76 65 20 63 68 61 72 61 63 74 65 72 20 ┆ar:= w3; ! save character ┆
0x79420…79440 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 20 28 77 33 3a 3d 62 2e 63 75 72 72 ┆! w3:= (w3:=b.curr┆
0x79440…79460 65 6e 74 29 2e 66 70 72 5f 63 6f 6e 76 65 72 74 3b 20 21 20 73 65 61 72 63 68 20 63 68 61 72 20 ┆ent).fpr_convert; ! search char ┆
0x79460…7947e 63 6f 6e 76 65 72 73 69 6f 6e 20 74 61 62 6c 65 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 ┆conversion table ! ┆
0x7947e…79484 (0x324,0xf2a)
0x79484…794a0 20 20 20 77 30 3a 3d 20 2d 20 31 20 6c 73 68 69 66 74 20 2d 20 31 3b 0a 20 20 20 20 ┆ w0:= - 1 lshift - 1; ┆
0x794a0…794c0 20 20 20 20 20 20 20 20 20 20 77 68 69 6c 65 20 77 30 3e 30 20 64 6f 0a 20 20 20 20 20 20 20 20 ┆ while w0>0 do ┆
0x794c0…794e0 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 65 6e 64 20 6f 66 20 74 61 62 6c 65 ┆ begin comment end of table┆
0x794e0…794fc 20 77 69 6c 6c 20 79 65 69 6c 64 20 77 30 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆ will yeild w0=0; ┆
0x794fc…79502 (0x324,0xf2b)
0x79502…79520 20 20 20 20 20 20 77 30 3a 3d 20 28 77 33 29 2e 73 72 63 63 61 72 3b 20 21 20 77 30 3a 3d ┆ w0:= (w3).srccar; ! w0:=┆
0x79520…79540 20 74 61 62 6c 65 5f 69 6e 70 75 74 5f 63 68 61 72 28 6e 29 20 21 0a 20 20 20 20 20 20 20 20 20 ┆ table_input_char(n) ! ┆
0x79540…79560 20 20 20 20 20 20 20 69 66 20 77 30 3d 63 68 61 72 20 74 68 65 6e 20 2d 28 77 30 29 20 21 20 69 ┆ if w0=char then -(w0) ! i┆
0x79560…7957a 66 20 66 6f 75 6e 64 20 74 68 65 6e 20 77 30 3d 6e 65 67 61 74 69 76 65 20 21 ┆f found then w0=negative !┆
0x7957a…79580 (0x324,0xf2c)
0x79580…795a0 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 33 2b 28 77 33 29 2e 73 72 ┆ else w3+(w3).sr┆
0x795a0…795c0 63 73 69 7a 65 3b 20 21 20 77 33 3a 3d 20 6e 65 78 74 5f 65 6e 74 72 79 20 21 0a 20 20 20 20 20 ┆csize; ! w3:= next_entry ! ┆
0x795c0…795e0 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2d 28 77 30 ┆ end; -(w0┆
0x795e0…79600 29 3b 20 21 20 69 66 20 6d 61 74 63 68 69 6e 67 20 65 6e 74 72 79 20 74 00 00 00 00 00 00 00 00 ┆); ! if matching entry t ┆
0x79600…79606 (971,) (0x324,0xf2d)
0x79606…79620 68 65 6e 20 77 30 3e 30 20 65 6c 73 65 20 77 30 3d 30 20 21 0a 20 20 20 20 20 ┆hen w0>0 else w0=0 ! ┆
0x79620…79640 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3e 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 ┆ if w0>0 then ┆
0x79640…79660 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 70 75 73 68 20 63 6f 6e 76 65 72 74 20 73 ┆ begin comment push convert s┆
0x79660…7967e 65 71 75 65 6e 63 65 20 69 6e 63 6c 2e 20 73 5f 70 61 74 69 61 6c 0a 20 20 20 20 20 20 20 ┆equence incl. s_patial ┆
0x7967e…79684 (0x324,0xf2e)
0x79684…796a0 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 6e 20 74 68 65 20 73 74 61 63 6b 3b 0a 20 ┆ on the stack; ┆
0x796a0…796c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6e 76 3a 3d 20 77 30 3a 3d 20 28 77 33 29 2e ┆ conv:= w0:= (w3).┆
0x796c0…796e0 73 72 63 73 69 7a 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 5f 73 65 71 ┆srcsize; end_seq┆
0x796e0…796fc 75 65 6e 63 65 3a 3d 20 77 33 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆uence:= w3; ┆
0x796fc…79702 (0x324,0xf2f)
0x79702…79720 77 33 2b 77 30 2d 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 74 61 72 74 ┆w3+w0-2; start┆
0x79720…79740 5f 73 65 71 75 65 6e 63 65 3a 3d 20 77 33 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆_sequence:= w3; ┆
0x79740…79760 70 75 73 68 28 2e 77 33 2e 2c 77 30 3a 3d 73 5f 70 61 72 74 69 61 6c 29 3b 20 21 20 6f 72 69 67 ┆push(.w3.,w0:=s_partial); ! orig┆
0x79760…7977a 2e 20 70 61 72 74 69 61 6c 20 77 6f 72 64 20 6c 61 73 74 20 69 6e 20 73 65 71 ┆. partial word last in seq┆
0x7977a…79780 (0x324,0xf30)
0x79780…797a0 75 65 6e 63 65 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 5f 70 61 72 74 69 61 ┆uence ! s_partia┆
0x797a0…797c0 6c 3a 3d 20 77 30 3a 3d 20 30 3b 20 21 20 66 6f 72 63 65 20 69 6e 70 75 74 20 63 68 65 63 6b 20 ┆l:= w0:= 0; ! force input check ┆
0x797c0…797e0 74 6f 20 72 65 61 64 20 63 6f 6e 76 65 72 74 20 73 65 71 75 65 6e 63 65 20 21 0a 20 20 20 20 20 ┆to read convert sequence ! ┆
0x797e0…79800 20 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 20 73 74 61 72 74 5f 73 65 00 00 00 00 00 00 00 00 ┆ w3:= start_se ┆
0x79800…79806 (972,) (0x324,0xf31)
0x79806…79820 71 75 65 6e 63 65 3b 20 21 20 74 61 6b 65 20 63 6f 6e 76 65 72 74 20 73 65 71 ┆quence; ! take convert seq┆
0x79820…79840 75 65 6e 63 65 20 62 6f 74 74 6f 6d 20 75 70 70 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆uence bottom upp ! ┆
0x79840…79860 20 20 20 77 68 69 6c 65 20 77 33 3e 65 6e 64 5f 73 65 71 75 65 6e 63 65 20 64 6f 0a 20 20 20 20 ┆ while w3>end_sequence do ┆
0x79860…7987e 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 70 75 73 68 ┆ begin comment push┆
0x7987e…79884 (0x324,0xf32)
0x79884…798a0 20 6f 6e 20 73 74 61 63 6b 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ on stack; ┆
0x798a0…798c0 20 77 30 3a 3d 20 28 77 33 29 2e 77 6f 72 64 3b 20 21 20 77 30 20 63 6f 6e 76 65 72 74 20 63 68 ┆ w0:= (w3).word; ! w0 convert ch┆
0x798c0…798e0 61 72 73 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 30 20 6f 72 20 2d 38 ┆ars ! w0 or -8┆
0x798e0…798fc 33 35 35 37 31 32 3b 20 21 20 61 64 64 20 68 69 67 68 20 62 69 74 73 20 74 6f 20 61 ┆355712; ! add high bits to a┆
0x798fc…79902 (0x324,0xf33)
0x79902…79920 76 6f 69 64 20 72 65 63 75 72 73 69 76 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆void recursive ┆
0x79920…79940 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 61 6c 6c 20 6f 66 20 63 6f 6e ┆ call of con┆
0x79940…79960 76 65 72 74 20 73 65 71 75 65 6e 63 65 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆vert sequence ! ┆
0x79960…7997a 20 20 70 75 73 68 28 2e 77 33 2e 2c 77 30 29 3b 20 20 21 20 70 75 73 68 20 63 ┆ push(.w3.,w0); ! push c┆
0x7997a…79980 (0x324,0xf34)
0x79980…799a0 6f 6e 76 65 72 74 20 63 68 61 72 73 20 6f 6e 20 73 74 61 63 6b 20 21 0a 20 20 20 20 20 20 20 20 ┆onvert chars on stack ! ┆
0x799a0…799c0 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 20 73 74 61 72 74 5f 73 65 71 75 65 6e 63 65 2d 32 3b ┆ w3:= start_sequence-2;┆
0x799c0…799e0 20 21 20 6e 3d 6e 2d 31 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 74 61 ┆ ! n=n-1 ! sta┆
0x799e0…79a00 72 74 5f 73 65 71 75 65 6e 63 65 3a 3d 20 77 33 3b 0a 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆rt_sequence:= w3; ┆
0x79a00…79a06 (973,) (0x324,0xf35)
0x79a06…79a20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ end; ┆
0x79a20…79a40 20 20 20 65 6e 64 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 ┆ end else begin ┆
0x79a40…79a60 63 6f 6d 6d 65 6e 74 20 6e 6f 20 63 6f 6e 76 65 72 74 20 73 65 71 75 65 6e 63 65 20 64 65 66 69 ┆comment no convert sequence defi┆
0x79a60…79a7e 6e 65 64 20 2d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 72 61 70 ┆ned - wrap┆
0x79a7e…79a84 (0x324,0xf36)
0x79a84…79aa0 20 63 68 61 72 61 63 74 65 72 20 69 6e 20 61 6e 20 65 73 63 61 70 65 20 73 65 67 75 ┆ character in an escape segu┆
0x79aa0…79ac0 65 6e 63 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 75 73 68 28 2e 77 33 2e 2c ┆ence; push(.w3.,┆
0x79ac0…79ae0 77 30 3a 3d 20 73 5f 70 61 72 74 69 61 6c 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆w0:= s_partial); ┆
0x79ae0…79afc 20 63 6f 6d 6d 65 6e 74 20 61 64 64 20 68 69 67 68 62 69 74 20 74 6f 20 61 76 6f 69 ┆ comment add highbit to avoi┆
0x79afc…79b02 (0x324,0xf37)
0x79b02…79b20 64 20 65 73 63 61 70 65 20 74 72 61 70 20 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆d escape trap ; ┆
0x79b20…79b40 20 20 77 33 3a 3d 20 31 35 35 3b 20 21 20 65 73 63 61 70 65 20 73 65 71 75 65 6e 63 65 3a 20 20 ┆ w3:= 155; ! escape sequence: ┆
0x79b40…79b60 20 20 20 20 20 20 20 20 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 30 ┆ ! w0┆
0x79b60…79b7a 3a 3d 20 63 68 61 72 20 6c 73 68 69 66 74 20 2d 20 34 3b 20 21 20 63 68 61 72 ┆:= char lshift - 4; ! char┆
0x79b7a…79b80 (0x324,0xf38)
0x79b80…79ba0 31 3a 3d 20 63 68 61 72 28 30 2e 2e 33 29 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆1:= char(0..3) ! ┆
0x79ba0…79bc0 20 69 66 20 77 30 3c 31 30 20 74 68 65 6e 20 77 30 2b 34 38 20 65 6c 73 65 20 77 30 2b 38 37 3b ┆ if w0<10 then w0+48 else w0+87;┆
0x79bc0…79be0 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 30 20 6c 73 68 69 66 74 20 31 36 3b 66 ┆ w0 lshift 16;f┆
0x79be0…79c00 30 20 6c 73 68 69 66 74 20 38 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆0 lshift 8; ┆
0x79c00…79c06 (974,) (0x324,0xf39)
0x79c06…79c20 20 20 20 20 77 30 3a 3d 20 63 68 61 72 20 65 78 74 72 61 63 74 20 34 3b 20 21 ┆ w0:= char extract 4; !┆
0x79c20…79c40 20 63 68 61 72 33 3a 3d 20 68 65 78 28 63 68 61 72 28 34 2e 2e 37 29 29 20 21 0a 20 20 20 20 20 ┆ char3:= hex(char(4..7)) ! ┆
0x79c40…79c60 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3c 31 30 20 74 68 65 6e 20 77 30 2b 34 38 20 65 ┆ if w0<10 then w0+48 e┆
0x79c60…79c7e 6c 73 65 20 77 30 2b 38 37 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 30 20 ┆lse w0+87; w0 ┆
0x79c7e…79c84 (0x324,0xf3a)
0x79c84…79ca0 6c 73 68 69 66 74 20 31 36 3b 66 30 20 6c 73 68 69 66 74 20 38 3b 0a 20 20 20 20 20 ┆lshift 16;f0 lshift 8; ┆
0x79ca0…79cc0 20 20 20 20 20 20 20 20 20 20 20 70 75 73 68 28 2e 77 33 2e 2c 77 30 3a 3d 77 33 29 3b 0a 20 20 ┆ push(.w3.,w0:=w3); ┆
0x79cc0…79ce0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 5f 70 61 72 74 69 61 6c 3a 3d 20 77 30 3a 3d 20 30 ┆ s_partial:= w0:= 0┆
0x79ce0…79cfc 3b 20 21 20 66 6f 72 63 65 20 69 6e 70 75 74 20 63 68 61 65 63 6b 20 74 6f 20 74 61 ┆; ! force input chaeck to ta┆
0x79cfc…79d02 (0x324,0xf3b)
0x79d02…79d20 6b 65 20 69 6e 70 75 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ke input ┆
0x79d20…79d40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 72 6f 6d 20 63 6f 6e 76 65 72 74 20 73 65 ┆ from convert se┆
0x79d40…79d60 71 75 65 6e 63 65 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6e 76 3a 3d 20 ┆quence ! conv:= ┆
0x79d60…79d7a 77 30 3a 3d 20 34 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b ┆w0:= 4; end;┆
0x79d7a…79d80 (0x324,0xf3c)
0x79d80…79da0 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 20 21 20 65 6e 64 20 63 6f 6e 76 65 72 74 ┆ end; ! end convert┆
0x79da0…79dc0 20 21 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 20 ┆ ! end; end; ┆
0x79dc0…79de0 21 20 65 6e 64 20 63 68 61 72 20 2d 2c 20 7a 65 72 6f 63 68 61 72 20 21 0a 0a 20 20 20 20 20 20 ┆! end char -, zerochar ! ┆
0x79de0…79e00 65 6e 64 3b 20 21 20 65 6e 64 20 77 68 69 6c 65 20 77 32 3c 64 65 73 74 00 00 00 00 00 00 00 00 ┆end; ! end while w2<dest ┆
0x79e00…79e06 (975,) (0x324,0xf3d)
0x79e06…79e20 5f 65 6e 64 20 21 0a 20 20 20 20 20 20 77 68 69 6c 65 20 77 30 3a 3d 63 6f 6e ┆_end ! while w0:=con┆
0x79e20…79e40 76 3e 30 20 64 6f 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 63 6f 6e 76 3a ┆v>0 do begin conv:┆
0x79e40…79e60 3d 20 77 30 2d 32 3b 0a 20 20 20 20 20 20 20 20 70 6f 70 28 2e 77 33 2e 2c 77 30 29 3b 0a 20 20 ┆= w0-2; pop(.w3.,w0); ┆
0x79e60…79e7e 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 69 66 20 77 30 3a 3d 73 78 3d 30 20 74 68 65 6e ┆ end; if w0:=sx=0 then┆
0x79e7e…79e84 (0x324,0xf3e)
0x79e84…79ea0 0a 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 74 68 65 20 62 6c 6f ┆ begin comment the blo┆
0x79ea0…79ec0 63 6b 20 64 69 64 20 6e 6f 74 20 63 6f 6e 74 61 69 6e 20 61 6e 79 20 6e 65 77 6c 69 6e 65 73 3b ┆ck did not contain any newlines;┆
0x79ec0…79ee0 0a 20 20 20 20 20 20 20 20 77 30 20 6c 73 68 69 66 74 20 38 3b 77 30 2b 32 35 3b 0a 20 20 20 20 ┆ w0 lshift 8;w0+25; ┆
0x79ee0…79efc 20 20 20 20 77 30 20 6c 73 68 69 66 74 20 38 3b 77 30 2b 33 3b 0a 20 20 20 20 20 20 ┆ w0 lshift 8;w0+3; ┆
0x79efc…79f02 (0x324,0xf3f)
0x79f02…79f20 20 20 74 72 61 69 6c 30 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 20 73 78 3a 3d 20 77 31 ┆ trail0:= w0; sx:= w1┆
0x79f20…79f40 3b 0a 20 20 20 20 20 20 20 20 64 78 3a 3d 20 77 32 3b 0a 20 20 20 20 20 20 20 20 70 61 72 74 69 ┆; dx:= w2; parti┆
0x79f40…79f60 61 6c 3a 3d 20 77 30 3a 3d 20 73 5f 70 61 72 74 69 61 6c 3b 0a 20 20 20 20 20 20 20 20 73 65 67 ┆al:= w0:= s_partial; seg┆
0x79f60…79f7a 6d 65 6e 74 3a 3d 20 77 30 3a 3d 28 77 33 3a 3d 62 2e 63 75 72 72 65 6e 74 29 ┆ment:= w0:=(w3:=b.current)┆
0x79f7a…79f80 (0x324,0xf40)
0x79f80…79fa0 2e 74 63 5f 63 73 65 67 6e 6f 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 0a 20 20 20 20 20 20 77 33 ┆.tc_csegno; end; w3┆
0x79fa0…79fc0 3a 3d 20 62 2e 63 75 72 72 65 6e 74 3b 0a 20 20 20 20 20 20 28 77 33 29 2e 66 70 72 5f 70 61 72 ┆:= b.current; (w3).fpr_par┆
0x79fc0…79fe0 74 69 61 6c 3a 3d 20 77 30 3a 3d 20 70 61 72 74 69 61 6c 3b 0a 20 20 20 20 20 20 77 30 3a 3d 20 ┆tial:= w0:= partial; w0:= ┆
0x79fe0…7a000 30 3b 0a 20 20 20 20 20 20 77 31 3a 3d 20 73 65 67 6d 65 6e 74 3b 0a 20 00 00 00 00 00 00 00 00 ┆0; w1:= segment; ┆
0x7a000…7a006 (976,) (0x324,0xf41)
0x7a006…7a020 20 20 20 20 20 66 31 20 6c 73 68 69 66 74 20 39 3b 0a 20 20 20 20 20 20 77 31 ┆ f1 lshift 9; w1┆
0x7a020…7a040 2b 73 78 2d 28 77 33 29 2e 74 63 5f 62 73 62 75 66 3b 0a 20 20 20 20 20 20 28 77 33 29 2e 74 63 ┆+sx-(w3).tc_bsbuf; (w3).tc┆
0x7a040…7a060 5f 62 73 70 74 72 3a 3d 20 66 31 3b 0a 20 20 20 20 20 20 77 32 3a 3d 20 64 78 3b 0a 20 20 20 20 ┆_bsptr:= f1; w2:= dx; ┆
0x7a060…7a07e 20 20 28 77 32 29 2e 77 6f 72 64 3a 3d 20 77 30 3a 3d 20 74 72 61 69 6c 30 3b 0a 20 20 20 ┆ (w2).word:= w0:= trail0; ┆
0x7a07e…7a084 (0x324,0xf42)
0x7a084…7a0a0 20 20 20 28 77 32 2b 32 29 2e 77 6f 72 64 3a 3d 20 77 30 3a 3d 20 31 36 33 39 31 37 ┆ (w2+2).word:= w0:= 163917┆
0x7a0a0…7a0c0 31 3b 20 21 20 45 4d 2c 20 45 54 58 2c 20 45 54 58 20 21 0a 20 20 20 20 20 20 77 31 3a 3d 61 64 ┆1; ! EM, ETX, ETX ! w1:=ad┆
0x7a0c0…7a0e0 64 72 65 73 73 28 28 77 31 3a 3d 28 77 33 29 2e 74 63 5f 62 75 66 29 2e 62 75 66 5f 64 61 74 61 ┆dress((w1:=(w3).tc_buf).buf_data┆
0x7a0e0…7a0fc 31 29 3b 0a 20 20 20 20 20 20 77 30 3a 3d 20 77 32 2d 77 31 2b 32 3b 20 21 20 6e 6f ┆1); w0:= w2-w1+2; ! no┆
0x7a0fc…7a102 (0x324,0xf43)
0x7a102…7a120 20 6f 66 20 68 61 6c 66 77 6f 72 64 73 20 6f 75 74 70 75 74 20 21 0a 65 78 69 74 3a 0a 20 ┆ of halfwords output ! exit: ┆
0x7a120…7a140 20 20 20 20 20 77 32 3a 3d 20 73 74 61 74 75 73 3b 0a 20 20 20 20 20 20 63 61 6c 6c 20 77 30 20 ┆ w2:= status; call w0 ┆
0x7a140…7a160 72 65 74 75 72 6e 3b 0a 20 20 20 20 65 6e 64 3b 0a 20 20 65 6e 64 3b 20 21 20 65 6e 64 20 67 65 ┆return; end; end; ! end ge┆
0x7a160…7a17a 74 6c 69 6e 65 73 20 21 0a 0a 20 20 62 6f 64 79 20 6f 66 20 63 6f 6e 6e 65 63 ┆tlines ! body of connec┆
0x7a17a…7a180 (0x324,0xf44)
0x7a180…7a1a0 74 5f 33 32 37 30 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 6c 61 62 65 6c 20 72 65 73 65 72 76 65 ┆t_3270 begin label reserve┆
0x7a1a0…7a1c0 5f 70 72 69 6e 74 65 72 2c 20 65 78 69 74 3b 0a 20 20 20 20 69 6e 63 6f 64 65 0a 20 20 20 20 74 ┆_printer, exit; incode t┆
0x7a1c0…7a1e0 65 78 74 20 28 31 34 29 20 63 6c 6f 63 6b 3a 3d 20 22 63 6c 6f 63 6b 22 3b 0a 20 20 20 20 77 6f ┆ext (14) clock:= "clock"; wo┆
0x7a1e0…7a200 72 64 20 7a 65 72 6f 3a 3d 20 30 3b 0a 20 20 20 20 77 6f 72 64 20 6c 62 00 00 00 00 00 00 00 00 ┆rd zero:= 0; word lb ┆
0x7a200…7a206 (977,) (0x324,0xf45)
0x7a206…7a220 3a 3d 20 2d 38 33 38 38 36 30 37 2c 20 75 62 3a 3d 20 2d 38 33 38 38 36 30 35 ┆:= -8388607, ub:= -8388605┆
0x7a220…7a240 3b 0a 20 20 20 20 72 65 66 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 ┆; ref return; begin ┆
0x7a240…7a260 20 20 70 75 73 68 20 28 2e 77 33 2e 2c 77 30 3a 3d 20 77 33 29 3b 20 21 20 73 61 76 65 20 72 65 ┆ push (.w3.,w0:= w3); ! save re┆
0x7a260…7a27e 74 75 72 6e 20 61 64 64 72 65 73 73 20 21 0a 20 20 20 20 20 20 77 30 3a 3d 20 6c 62 3b 77 ┆turn address ! w0:= lb;w┆
0x7a27e…7a284 (0x324,0xf46)
0x7a284…7a2a0 31 3a 3d 20 75 62 3b 77 33 3a 3d 20 61 64 64 72 65 73 73 28 7a 65 72 6f 29 3b 20 6d ┆1:= ub;w3:= address(zero); m┆
0x7a2a0…7a2c0 6f 6e 69 74 6f 72 28 37 32 29 3b 20 21 20 73 65 74 20 63 61 74 61 6c 6f 67 20 62 61 73 65 20 21 ┆onitor(72); ! set catalog base !┆
0x7a2c0…7a2e0 0a 20 20 20 20 20 20 77 31 3a 3d 20 28 77 33 3a 3d 62 2e 63 75 72 72 65 6e 74 29 2e 66 70 72 5f ┆ w1:= (w3:=b.current).fpr_┆
0x7a2e0…7a2fc 73 74 63 6f 72 6f 75 74 3b 0a 20 20 20 20 20 20 77 33 3a 3d 20 61 64 64 72 65 73 73 ┆stcorout; w3:= address┆
0x7a2fc…7a302 (0x324,0xf47)
0x7a302…7a320 28 28 77 31 29 2e 66 70 72 5f 70 72 6f 63 6f 75 74 29 3b 0a 20 20 20 20 20 20 6d 6f 6e 69 ┆((w1).fpr_procout); moni┆
0x7a320…7a340 74 6f 72 20 28 34 29 3b 20 21 20 70 72 6f 63 65 73 73 20 64 65 73 63 72 69 70 74 69 6f 6e 20 21 ┆tor (4); ! process description !┆
0x7a340…7a360 0a 20 20 20 20 20 20 77 33 3a 3d 20 62 2e 63 75 72 72 65 6e 74 3b 0a 20 20 20 20 20 20 77 30 3a ┆ w3:= b.current; w0:┆
0x7a360…7a37a 3d 20 28 77 31 3a 3d 77 30 29 2e 77 6f 72 64 3b 20 21 20 77 30 20 3d 20 6b 69 ┆= (w1:=w0).word; ! w0 = ki┆
0x7a37a…7a380 (0x324,0xf48)
0x7a380…7a3a0 6e 64 20 28 70 72 6f 63 65 73 73 29 20 21 0a 20 20 20 20 20 20 69 66 20 77 30 3d 32 38 20 74 68 ┆nd (process) ! if w0=28 th┆
0x7a3a0…7a3c0 65 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 63 6f 6e 6e 65 63 74 65 64 ┆en begin comment connected┆
0x7a3c0…7a3e0 20 74 68 72 6f 75 67 68 20 61 64 70 33 32 37 30 3b 0a 20 20 20 20 20 20 20 20 77 31 3a 3d 20 28 ┆ through adp3270; w1:= (┆
0x7a3e0…7a400 77 33 29 2e 66 70 72 5f 73 74 63 6f 72 6f 75 74 3b 0a 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆w3).fpr_stcorout; ┆
0x7a400…7a406 (978,) (0x324,0xf49)
0x7a406…7a420 20 20 69 66 20 77 30 3a 3d 20 28 77 31 29 2e 66 70 72 5f 63 6f 75 6e 74 3d 31 ┆ if w0:= (w1).fpr_count=1┆
0x7a420…7a440 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 73 65 6e 64 ┆ then begin comment send┆
0x7a440…7a460 20 61 70 70 6c 69 63 61 74 69 6f 6e 20 63 6f 6e 6e 65 63 74 20 6d 65 73 73 61 67 65 3b 0a 20 20 ┆ application connect message; ┆
0x7a460…7a47e 20 20 20 20 20 20 20 20 77 31 3a 3d 20 28 77 33 29 2e 74 63 5f 62 75 66 3b 0a 20 20 20 20 ┆ w1:= (w3).tc_buf; ┆
0x7a47e…7a484 (0x324,0xf4a)
0x7a484…7a4a0 20 20 20 20 20 20 28 77 31 29 2e 62 75 66 5f 6f 70 3a 3d 20 77 30 3a 3d 20 34 3b 0a ┆ (w1).buf_op:= w0:= 4; ┆
0x7a4a0…7a4c0 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 62 75 66 5f 6d 6f 64 65 3a 3d 20 77 30 3a 3d 20 34 ┆ (w1).buf_mode:= w0:= 4┆
0x7a4c0…7a4e0 3b 0a 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 20 61 64 64 72 65 73 73 28 28 77 31 29 2e 62 75 ┆; w2:= address((w1).bu┆
0x7a4e0…7a4fc 66 5f 6c 61 73 74 29 3b 0a 20 20 20 20 20 20 20 20 20 20 6d 6f 76 65 20 28 2e 77 33 ┆f_last); move (.w3┆
0x7a4fc…7a502 (0x324,0xf4b)
0x7a502…7a520 2e 2c 77 30 3a 3d 38 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 62 2e 70 72 69 6d 6f 5f 69 64 ┆.,w0:=8,w1:=address(b.primo_id┆
0x7a520…7a540 29 2c 77 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 20 28 77 33 29 2e 74 63 5f 62 75 ┆),w2); w1:= (w3).tc_bu┆
0x7a540…7a560 66 3b 0a 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 20 61 64 64 72 65 73 73 28 28 77 32 3a 3d 28 ┆f; w2:= address((w2:=(┆
0x7a560…7a57a 77 33 29 2e 66 70 72 5f 73 74 63 6f 72 6f 75 74 29 2e 66 70 72 5f 70 72 6f 63 ┆w3).fpr_stcorout).fpr_proc┆
0x7a57a…7a580 (0x324,0xf4c)
0x7a580…7a5a0 6f 75 74 29 3b 0a 20 20 20 20 20 20 20 20 20 20 73 65 6e 64 77 61 69 74 20 28 2e 77 33 2e 2c 77 ┆out); sendwait (.w3.,w┆
0x7a5a0…7a5c0 30 2c 77 31 2c 77 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 20 61 64 64 72 65 73 73 ┆0,w1,w2); w1:= address┆
0x7a5c0…7a5e0 28 62 2e 61 6e 73 5f 73 74 61 74 75 73 29 3b 0a 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 20 31 ┆(b.ans_status); w2:= 1┆
0x7a5e0…7a600 20 6c 73 68 69 66 74 20 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 00 00 00 00 00 00 00 00 ┆ lshift w0; if ┆
0x7a600…7a606 (979,) (0x324,0xf4d)
0x7a606…7a620 20 77 32 3d 32 20 74 68 65 6e 20 28 77 31 29 2e 77 6f 72 64 3a 3d 20 77 32 20 ┆ w2=2 then (w1).word:= w2 ┆
0x7a620…7a640 6f 72 20 28 77 31 29 2e 77 6f 72 64 20 65 6c 73 65 20 28 77 31 29 2e 77 6f 72 64 3a 3d 20 77 32 ┆or (w1).word else (w1).word:= w2┆
0x7a640…7a660 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 32 3a 3d 62 2e 61 6e 73 5f 73 74 61 74 75 73 3c ┆; if w2:=b.ans_status<┆
0x7a660…7a67e 3e 32 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 ┆>2 then begin ┆
0x7a67e…7a684 (0x324,0xf4e)
0x7a684…7a6a0 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 73 74 61 74 75 73 3a 3d 20 77 32 3b 0a 20 ┆ (w3).tc_status:= w2; ┆
0x7a6a0…7a6c0 20 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 73 74 61 74 65 3a 3d 20 77 30 3a 3d 20 ┆ (w3).tc_state:= w0:= ┆
0x7a6c0…7a6e0 36 3b 20 21 20 61 62 6f 72 74 65 64 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e ┆6; ! aborted ! (w3).┆
0x7a6e0…7a6fc 74 63 5f 63 61 75 73 65 3a 3d 20 77 30 3a 3d 20 32 3b 20 21 20 72 65 63 65 69 76 65 ┆tc_cause:= w0:= 2; ! receive┆
0x7a6fc…7a702 (0x324,0xf4f)
0x7a702…7a720 72 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 6f 70 72 6f 75 74 70 75 74 28 2e 77 33 2e 2c ┆r! oproutput(.w3.,┆
0x7a720…7a740 77 30 3a 3d 20 32 2c 77 31 3a 3d 20 32 2c 20 77 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆w0:= 2,w1:= 2, w2); ┆
0x7a740…7a760 28 77 33 29 2e 66 70 72 5f 6c 6c 63 75 64 65 76 3a 3d 20 77 30 3a 3d 20 2d 20 31 3b 0a 20 20 20 ┆(w3).fpr_llcudev:= w0:= - 1; ┆
0x7a760…7a77a 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 65 78 69 74 3b 0a 20 20 20 20 20 20 ┆ goto exit; ┆
0x7a77a…7a780 (0x324,0xf50)
0x7a780…7a7a0 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 63 6f ┆ end; end; co┆
0x7a7a0…7a7c0 6d 6d 65 6e 74 20 73 65 6e 64 20 72 65 73 65 72 76 65 20 70 72 69 6e 74 65 72 20 6d 65 73 73 61 ┆mment send reserve printer messa┆
0x7a7c0…7a7e0 67 65 3b 0a 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 72 65 74 72 79 3a 3d 20 77 30 3a 3d ┆ge; (w3).tc_retry:= w0:=┆
0x7a7e0…7a800 20 30 3b 0a 72 65 73 65 72 76 65 5f 70 72 69 6e 74 65 72 3a 0a 20 20 20 00 00 00 00 00 00 00 00 ┆ 0; reserve_printer: ┆
0x7a800…7a806 (980,) (0x324,0xf51)
0x7a806…7a820 20 20 20 20 20 77 31 3a 3d 20 28 77 33 29 2e 74 63 5f 62 75 66 3b 0a 20 20 20 ┆ w1:= (w3).tc_buf; ┆
0x7a820…7a840 20 20 20 20 20 28 77 31 29 2e 62 75 66 5f 6f 70 3a 3d 20 77 30 3a 3d 20 30 3b 0a 20 20 20 20 20 ┆ (w1).buf_op:= w0:= 0; ┆
0x7a840…7a860 20 20 20 28 77 31 29 2e 62 75 66 5f 6d 6f 64 65 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 20 77 ┆ (w1).buf_mode:= w0; w┆
0x7a860…7a87e 30 3a 3d 20 28 77 33 29 2e 74 63 5f 72 65 74 72 79 3b 0a 20 20 20 20 20 20 20 20 77 32 20 ┆0:= (w3).tc_retry; w2 ┆
0x7a87e…7a884 (0x324,0xf52)
0x7a884…7a8a0 3a 3d 20 31 20 6c 73 68 69 66 74 20 77 30 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 ┆:= 1 lshift w0; (w1)┆
0x7a8a0…7a8c0 2e 62 75 66 5f 66 69 72 73 74 3a 3d 20 77 32 3b 0a 20 20 20 20 20 20 20 20 77 32 3a 3d 20 61 64 ┆.buf_first:= w2; w2:= ad┆
0x7a8c0…7a8e0 64 72 65 73 73 28 63 6c 6f 63 6b 29 3b 0a 20 20 20 20 20 20 20 20 73 65 6e 64 77 61 69 74 20 28 ┆dress(clock); sendwait (┆
0x7a8e0…7a8fc 2e 77 33 2e 2c 77 30 2c 77 31 2c 77 32 29 3b 0a 20 20 20 20 20 20 20 20 77 31 3a 3d ┆.w3.,w0,w1,w2); w1:=┆
0x7a8fc…7a902 (0x324,0xf53)
0x7a902…7a920 20 28 77 33 29 2e 74 63 5f 62 75 66 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 62 75 66 ┆ (w3).tc_buf; (w1).buf┆
0x7a920…7a940 5f 6f 70 3a 3d 20 77 30 3a 3d 20 34 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 62 75 66 5f 6d ┆_op:= w0:= 4; (w1).buf_m┆
0x7a940…7a960 6f 64 65 3a 3d 20 77 30 3a 3d 20 31 36 3b 0a 20 20 20 20 20 20 20 20 77 30 3a 3d 20 28 77 33 29 ┆ode:= w0:= 16; w0:= (w3)┆
0x7a960…7a97a 2e 66 70 72 5f 70 6c 63 75 64 65 76 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 ┆.fpr_plcudev; (w1)┆
0x7a97a…7a980 (0x324,0xf54)
0x7a980…7a9a0 2e 62 75 66 5f 6c 61 73 74 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 20 77 32 3a 3d 20 61 64 64 ┆.buf_last:= w0; w2:= add┆
0x7a9a0…7a9c0 72 65 73 73 28 28 77 32 3a 3d 28 77 33 29 2e 66 70 72 5f 73 74 63 6f 72 6f 75 74 29 2e 66 70 72 ┆ress((w2:=(w3).fpr_stcorout).fpr┆
0x7a9c0…7a9e0 5f 70 72 6f 63 6f 75 74 29 3b 0a 20 20 20 20 20 20 20 20 73 65 6e 64 77 61 69 74 20 28 2e 77 33 ┆_procout); sendwait (.w3┆
0x7a9e0…7aa00 2e 2c 77 30 2c 77 31 2c 77 32 29 3b 0a 20 20 20 20 20 20 20 20 69 66 20 00 00 00 00 00 00 00 00 ┆.,w0,w1,w2); if ┆
0x7aa00…7aa06 (981,) (0x324,0xf55)
0x7aa06…7aa20 77 30 3d 34 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f ┆w0=4 then begin co┆
0x7aa20…7aa40 6d 6d 65 6e 74 20 63 75 20 6e 6f 74 20 28 79 65 74 3f 29 20 63 6f 6e 6e 65 63 74 65 64 3b 0a 20 ┆mment cu not (yet?) connected; ┆
0x7aa40…7aa60 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 20 28 77 33 29 2e 74 63 5f 72 65 74 72 79 20 3c ┆ if w0:= (w3).tc_retry <┆
0x7aa60…7aa7e 20 37 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 ┆ 7 then begin ┆
0x7aa7e…7aa84 (0x324,0xf56)
0x7aa84…7aaa0 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 72 65 74 72 79 3a 3d 20 77 30 3a 3d 20 28 ┆ (w3).tc_retry:= w0:= (┆
0x7aaa0…7aac0 77 33 29 2e 74 63 5f 72 65 74 72 79 2b 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f ┆w3).tc_retry+1; goto┆
0x7aac0…7aae0 20 72 65 73 65 72 76 65 5f 70 72 69 6e 74 65 72 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b ┆ reserve_printer; end;┆
0x7aae0…7aafc 0a 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 20 34 3b 20 21 20 64 69 73 63 6f 6e 6e ┆ w0:= 4; ! disconn┆
0x7aafc…7ab02 (0x324,0xf57)
0x7ab02…7ab20 65 63 74 65 64 20 21 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 77 ┆ected ! end; w┆
0x7ab20…7ab40 31 3a 3d 20 61 64 64 72 65 73 73 28 62 2e 61 6e 73 5f 73 74 61 74 75 73 29 3b 0a 20 20 20 20 20 ┆1:= address(b.ans_status); ┆
0x7ab40…7ab60 20 20 20 77 32 3a 3d 20 31 20 6c 73 68 69 66 74 20 77 30 3b 0a 20 20 20 20 20 20 20 20 69 66 20 ┆ w2:= 1 lshift w0; if ┆
0x7ab60…7ab7a 77 32 3d 32 20 74 68 65 6e 20 28 77 31 29 2e 77 6f 72 64 3a 3d 20 77 32 20 6f ┆w2=2 then (w1).word:= w2 o┆
0x7ab7a…7ab80 (0x324,0xf58)
0x7ab80…7aba0 72 20 28 77 31 29 2e 77 6f 72 64 20 65 6c 73 65 20 28 77 31 29 2e 77 6f 72 64 3a 3d 20 77 32 3b ┆r (w1).word else (w1).word:= w2;┆
0x7aba0…7abc0 0a 20 20 20 20 20 20 20 20 69 66 20 77 32 3a 3d 62 2e 61 6e 73 5f 73 74 61 74 75 73 3c 3e 32 20 ┆ if w2:=b.ans_status<>2 ┆
0x7abc0…7abe0 74 68 65 6e 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 28 77 33 ┆then begin (w3┆
0x7abe0…7ac00 29 2e 74 63 5f 73 74 61 74 75 73 3a 3d 20 77 32 3b 0a 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆).tc_status:= w2; ┆
0x7ac00…7ac06 (982,) (0x324,0xf59)
0x7ac06…7ac20 20 20 20 20 28 77 33 29 2e 74 63 5f 73 74 61 74 65 3a 3d 20 77 30 3a 3d 20 36 ┆ (w3).tc_state:= w0:= 6┆
0x7ac20…7ac40 3b 20 21 20 61 62 6f 72 74 65 64 20 21 0a 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f ┆; ! aborted ! (w3).tc_┆
0x7ac40…7ac60 63 61 75 73 65 3a 3d 20 77 30 3a 3d 20 32 3b 20 21 20 72 65 63 65 69 76 65 72 21 0a 20 20 20 20 ┆cause:= w0:= 2; ! receiver! ┆
0x7ac60…7ac7e 20 20 20 20 20 20 6f 70 72 6f 75 74 70 75 74 28 2e 77 33 2e 2c 77 30 3a 3d 20 32 2c 77 31 ┆ oproutput(.w3.,w0:= 2,w1┆
0x7ac7e…7ac84 (0x324,0xf5a)
0x7ac84…7aca0 3a 3d 20 32 2c 20 77 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 66 70 ┆:= 2, w2); (w3).fp┆
0x7aca0…7acc0 72 5f 6c 6c 63 75 64 65 76 3a 3d 20 77 30 3a 3d 20 2d 20 31 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆r_llcudev:= w0:= - 1; ┆
0x7acc0…7ace0 67 6f 74 6f 20 65 78 69 74 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 20 65 6c 73 65 0a 20 20 20 20 ┆goto exit; end else ┆
0x7ace0…7acfc 20 20 20 20 69 66 20 77 31 3a 3d 62 2e 61 6e 73 5f 62 79 74 65 73 3c 3e 30 20 74 68 ┆ if w1:=b.ans_bytes<>0 th┆
0x7acfc…7ad02 (0x324,0xf5b)
0x7ad02…7ad20 65 6e 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 6e 6f 20 63 6f ┆en begin comment no co┆
0x7ad20…7ad40 6e 6e 65 63 74 3b 0a 20 20 20 20 20 20 20 20 20 20 63 61 73 65 20 77 31 20 6f 66 0a 20 20 20 20 ┆nnect; case w1 of ┆
0x7ad40…7ad60 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 21 20 20 31 2c 20 6e 6f ┆ begin ! 1, no┆
0x7ad60…7ad7a 74 20 70 72 6f 63 65 73 73 65 64 20 2d 20 69 6d 70 6f 73 73 69 62 6c 65 20 21 ┆t processed - impossible !┆
0x7ad7a…7ad80 (0x324,0xf5c)
0x7ad80…7ada0 20 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 21 20 20 32 2c 20 20 20 20 20 20 20 20 6e 6f 74 20 ┆ ; ! 2, not ┆
0x7ada0…7adc0 75 73 65 64 20 20 20 20 20 20 20 20 20 20 20 20 21 20 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆used ! ; ┆
0x7adc0…7ade0 21 20 20 33 2c 20 6e 6f 20 72 65 73 6f 75 72 63 65 73 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆! 3, no resources ┆
0x7ade0…7ae00 20 21 20 77 31 3a 3d 20 31 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ ! w1:= 10; ┆
0x7ae00…7ae06 (983,) (0x324,0xf5d)
0x7ae06…7ae20 21 20 20 34 2c 20 20 20 20 20 20 20 20 6e 6f 74 20 75 73 65 64 20 20 20 20 20 ┆! 4, not used ┆
0x7ae20…7ae40 20 20 20 20 20 20 20 21 20 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 21 20 20 35 2c 20 20 20 20 ┆ ! ; ! 5, ┆
0x7ae40…7ae60 20 20 20 20 6e 6f 74 20 75 73 65 64 20 20 20 20 20 20 20 20 20 20 20 20 21 20 3b 0a 20 20 20 20 ┆ not used ! ; ┆
0x7ae60…7ae7e 20 20 20 20 20 20 20 20 21 20 20 36 2c 20 75 6e 61 76 61 69 6c 65 61 62 6c 65 20 20 20 20 ┆ ! 6, unavaileable ┆
0x7ae7e…7ae84 (0x324,0xf5e)
0x7ae84…7aea0 20 20 20 20 20 20 20 20 20 20 20 21 20 77 31 3a 3d 20 31 31 3b 0a 20 20 20 20 20 20 ┆ ! w1:= 11; ┆
0x7aea0…7aec0 20 20 20 20 20 20 21 20 20 37 2c 20 64 65 76 69 63 65 20 6e 6f 2e 20 6f 75 74 20 6f 66 20 72 61 ┆ ! 7, device no. out of ra┆
0x7aec0…7aee0 6e 67 65 20 20 20 20 21 20 77 31 3a 3d 20 20 37 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 21 20 ┆nge ! w1:= 7; ! ┆
0x7aee0…7aefc 20 38 2c 20 64 65 76 69 63 65 20 6e 6f 74 20 70 72 69 6e 74 65 72 20 20 20 20 20 20 ┆ 8, device not printer ┆
0x7aefc…7af02 (0x324,0xf5f)
0x7af02…7af20 20 20 20 21 20 77 31 3a 3d 20 20 38 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 21 20 20 39 ┆ ! w1:= 8; ! 9┆
0x7af20…7af40 2c 20 20 20 20 20 20 20 20 6e 6f 74 20 75 73 65 64 20 20 20 20 20 20 20 20 20 20 20 20 21 20 3b ┆, not used ! ;┆
0x7af40…7af60 0a 20 20 20 20 20 20 20 20 20 20 20 20 21 20 31 30 2c 20 70 72 69 6e 74 65 72 20 72 65 73 65 72 ┆ ! 10, printer reser┆
0x7af60…7af7a 76 65 64 20 20 20 20 20 20 20 20 20 20 20 21 20 77 31 3a 3d 20 20 39 3b 0a 20 ┆ved ! w1:= 9; ┆
0x7af7a…7af80 (0x324,0xf60)
0x7af80…7afa0 20 20 20 20 20 20 20 20 20 20 20 21 20 31 31 2c 20 20 20 20 20 20 20 20 6e 6f 74 20 75 73 65 64 ┆ ! 11, not used┆
0x7afa0…7afc0 20 20 20 20 20 20 20 20 20 20 20 20 21 20 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 21 20 31 32 ┆ ! ; ! 12┆
0x7afc0…7afe0 2c 20 70 72 69 6e 74 65 72 20 62 75 73 79 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 77 ┆, printer busy ! w┆
0x7afe0…7b000 31 3a 3d 20 31 32 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 20 21 00 00 00 00 00 00 00 00 ┆1:= 12; end; ! ┆
0x7b000…7b006 (984,) (0x324,0xf61)
0x7b006…7b020 20 65 6e 64 20 63 61 73 65 20 21 0a 20 20 20 20 20 20 20 20 20 20 6f 70 72 6f ┆ end case ! opro┆
0x7b020…7b040 75 74 70 75 74 28 2e 77 33 2e 2c 77 30 3a 3d 31 2c 77 31 2c 77 32 29 3b 0a 20 20 20 20 20 20 20 ┆utput(.w3.,w0:=1,w1,w2); ┆
0x7b040…7b060 20 20 20 28 77 33 29 2e 74 63 5f 73 74 61 74 75 73 3a 3d 20 77 30 3a 3d 20 32 3b 0a 20 20 20 20 ┆ (w3).tc_status:= w0:= 2; ┆
0x7b060…7b07e 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 73 74 61 74 65 3a 3d 20 77 30 3a 3d 20 36 3b 20 ┆ (w3).tc_state:= w0:= 6; ┆
0x7b07e…7b084 (0x324,0xf62)
0x7b084…7b0a0 21 20 61 62 6f 72 74 65 64 20 21 0a 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 ┆! aborted ! (w3).t┆
0x7b0a0…7b0c0 63 5f 63 61 75 73 65 3a 3d 20 77 30 3a 3d 20 32 3b 20 21 20 72 65 63 65 69 76 65 72 21 0a 20 20 ┆c_cause:= w0:= 2; ! receiver! ┆
0x7b0c0…7b0e0 20 20 20 20 20 20 20 20 28 77 33 29 2e 66 70 72 5f 6c 6c 63 75 64 65 76 3a 3d 20 77 30 3a 3d 20 ┆ (w3).fpr_llcudev:= w0:= ┆
0x7b0e0…7b0fc 2d 31 3b 0a 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 65 78 69 74 3b 0a 20 20 20 ┆-1; goto exit; ┆
0x7b0fc…7b102 (0x324,0xf63)
0x7b102…7b120 20 20 20 20 20 65 6e 64 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 28 77 33 29 2e 66 70 72 ┆ end else (w3).fpr┆
0x7b120…7b140 5f 6c 6c 63 75 64 65 76 3a 3d 20 77 30 3a 3d 20 28 77 33 29 2e 66 70 72 5f 70 6c 63 75 64 65 76 ┆_llcudev:= w0:= (w3).fpr_plcudev┆
0x7b140…7b160 3b 0a 20 20 20 20 20 20 65 6e 64 20 21 20 65 6e 64 20 61 64 70 33 32 37 30 20 63 6f 6e 6e 65 63 ┆; end ! end adp3270 connec┆
0x7b160…7b17a 74 65 64 20 70 72 69 6e 74 65 72 20 21 0a 20 20 20 20 20 20 65 6c 73 65 0a 20 ┆ted printer ! else ┆
0x7b17a…7b180 (0x324,0xf64)
0x7b180…7b1a0 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 63 6f 6e 6e 65 63 74 65 64 20 74 68 72 ┆ begin comment connected thr┆
0x7b1a0…7b1c0 6f 75 67 68 20 6d 2e 72 6f 63 73 2c 20 4e 43 50 3b 0a 20 20 20 20 20 20 20 20 77 31 3a 3d 20 28 ┆ough m.rocs, NCP; w1:= (┆
0x7b1c0…7b1e0 77 33 29 2e 74 63 5f 62 75 66 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 62 75 66 5f 6f 70 3a ┆w3).tc_buf; (w1).buf_op:┆
0x7b1e0…7b200 3d 20 77 30 3a 3d 20 32 20 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 00 00 00 00 00 00 00 00 ┆= w0:= 2 ; (w1). ┆
0x7b200…7b206 (985,) (0x324,0xf65)
0x7b206…7b220 62 75 66 5f 6d 6f 64 65 3a 3d 20 77 30 3a 3d 20 36 3b 20 21 20 63 6f 6e 6e 65 ┆buf_mode:= w0:= 6; ! conne┆
0x7b220…7b240 63 74 20 6d 65 73 73 20 21 0a 20 20 20 20 20 20 20 20 77 30 3a 3d 20 28 77 33 29 2e 66 70 72 5f ┆ct mess ! w0:= (w3).fpr_┆
0x7b240…7b260 70 6c 63 75 64 65 76 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 62 75 66 5f 6c 61 73 74 3a 3d ┆plcudev; (w1).buf_last:=┆
0x7b260…7b27e 20 77 30 3b 0a 20 20 20 20 20 20 20 20 77 32 3a 3d 20 61 64 64 72 65 73 73 28 28 77 32 3a ┆ w0; w2:= address((w2:┆
0x7b27e…7b284 (0x324,0xf66)
0x7b284…7b2a0 3d 28 77 33 29 2e 66 70 72 5f 73 74 63 6f 72 6f 75 74 29 2e 66 70 72 5f 70 72 6f 63 ┆=(w3).fpr_stcorout).fpr_proc┆
0x7b2a0…7b2c0 6f 75 74 29 3b 0a 20 20 20 20 20 20 20 20 73 65 6e 64 77 61 69 74 20 28 2e 77 33 2e 2c 77 30 2c ┆out); sendwait (.w3.,w0,┆
0x7b2c0…7b2e0 77 31 2c 77 32 29 3b 0a 20 20 20 20 20 20 20 20 77 31 3a 3d 20 61 64 64 72 65 73 73 28 62 2e 61 ┆w1,w2); w1:= address(b.a┆
0x7b2e0…7b2fc 6e 73 5f 73 74 61 74 75 73 29 3b 0a 20 20 20 20 20 20 20 20 77 32 3a 3d 20 31 20 6c ┆ns_status); w2:= 1 l┆
0x7b2fc…7b302 (0x324,0xf67)
0x7b302…7b320 73 68 69 66 74 20 77 30 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 32 3d 32 20 74 68 65 6e ┆shift w0; if w2=2 then┆
0x7b320…7b340 20 28 77 31 29 2e 77 6f 72 64 3a 3d 20 77 32 20 6f 72 20 28 77 31 29 2e 77 6f 72 64 20 65 6c 73 ┆ (w1).word:= w2 or (w1).word els┆
0x7b340…7b360 65 20 28 77 31 29 2e 77 6f 72 64 3a 3d 20 77 32 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 32 3a ┆e (w1).word:= w2; if w2:┆
0x7b360…7b37a 3d 62 2e 61 6e 73 5f 73 74 61 74 75 73 3c 3e 32 20 74 68 65 6e 0a 20 20 20 20 ┆=b.ans_status<>2 then ┆
0x7b37a…7b380 (0x324,0xf68)
0x7b380…7b3a0 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 73 74 61 74 ┆ begin (w3).tc_stat┆
0x7b3a0…7b3c0 75 73 3a 3d 20 77 32 3b 0a 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 73 74 61 74 65 ┆us:= w2; (w3).tc_state┆
0x7b3c0…7b3e0 3a 3d 20 77 30 3a 3d 20 36 3b 20 21 20 61 62 6f 72 74 65 64 20 21 0a 20 20 20 20 20 20 20 20 20 ┆:= w0:= 6; ! aborted ! ┆
0x7b3e0…7b400 20 28 77 33 29 2e 74 63 5f 63 61 75 73 65 3a 3d 20 77 30 3a 3d 20 32 3b 00 00 00 00 00 00 00 00 ┆ (w3).tc_cause:= w0:= 2; ┆
0x7b400…7b406 (986,) (0x324,0xf69)
0x7b406…7b420 20 21 20 72 65 63 65 69 76 65 72 21 0a 20 20 20 20 20 20 20 20 20 20 6f 70 72 ┆ ! receiver! opr┆
0x7b420…7b440 6f 75 74 70 75 74 28 2e 77 33 2e 2c 77 30 3a 3d 20 32 2c 77 31 3a 3d 20 32 2c 20 77 32 29 3b 0a ┆output(.w3.,w0:= 2,w1:= 2, w2); ┆
0x7b440…7b460 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 66 70 72 5f 6c 6c 63 75 64 65 76 3a 3d 20 77 30 3a ┆ (w3).fpr_llcudev:= w0:┆
0x7b460…7b47e 3d 20 2d 20 31 3b 0a 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 65 78 69 74 3b 0a 20 20 ┆= - 1; goto exit; ┆
0x7b47e…7b484 (0x324,0xf6a)
0x7b484…7b4a0 20 20 20 20 20 20 65 6e 64 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 69 66 20 77 31 ┆ end else if w1┆
0x7b4a0…7b4c0 3a 3d 62 2e 61 6e 73 5f 62 79 74 65 73 3c 3e 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 62 65 ┆:=b.ans_bytes<>0 then be┆
0x7b4c0…7b4e0 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 6e 6f 20 63 6f 6e 6e 65 63 74 3b 0a 20 20 20 20 20 20 20 20 ┆gin comment no connect; ┆
0x7b4e0…7b4fc 20 20 77 31 20 65 78 74 72 61 63 74 20 38 3b 0a 20 20 20 20 20 20 20 20 20 20 6f 70 ┆ w1 extract 8; op┆
0x7b4fc…7b502 (0x324,0xf6b)
0x7b502…7b520 72 6f 75 74 70 75 74 28 2e 77 33 2e 2c 77 30 3a 3d 31 2c 77 31 2b 36 2c 77 32 29 3b 0a 20 ┆routput(.w3.,w0:=1,w1+6,w2); ┆
0x7b520…7b540 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 73 74 61 74 75 73 3a 3d 20 77 30 3a 3d 20 32 ┆ (w3).tc_status:= w0:= 2┆
0x7b540…7b560 3b 0a 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 73 74 61 74 65 3a 3d 20 77 30 3a 3d ┆; (w3).tc_state:= w0:=┆
0x7b560…7b57a 20 36 3b 20 21 20 61 62 6f 72 74 65 64 20 21 0a 20 20 20 20 20 20 20 20 20 20 ┆ 6; ! aborted ! ┆
0x7b57a…7b580 (0x324,0xf6c)
0x7b580…7b5a0 28 77 33 29 2e 74 63 5f 63 61 75 73 65 3a 3d 20 77 30 3a 3d 20 32 3b 20 21 20 72 65 63 65 69 76 ┆(w3).tc_cause:= w0:= 2; ! receiv┆
0x7b5a0…7b5c0 65 72 21 0a 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 66 70 72 5f 6c 6c 63 75 64 65 76 3a 3d ┆er! (w3).fpr_llcudev:=┆
0x7b5c0…7b5e0 20 77 30 3a 3d 20 2d 31 3b 0a 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 65 78 69 74 3b 0a 20 ┆ w0:= -1; goto exit; ┆
0x7b5e0…7b600 20 20 20 20 20 20 20 65 6e 64 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ end else ┆
0x7b600…7b606 (987,) (0x324,0xf6d)
0x7b606…7b620 28 77 33 29 2e 66 70 72 5f 6c 6c 63 75 64 65 76 3a 3d 20 77 30 3a 3d 20 62 2e ┆(w3).fpr_llcudev:= w0:= b.┆
0x7b620…7b640 61 6e 73 34 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 65 78 69 74 3a 0a 20 20 20 20 20 20 70 6f 70 ┆ans4; end; exit: pop┆
0x7b640…7b660 20 28 2e 77 33 2e 2c 77 30 29 3b 0a 20 20 20 20 20 20 72 65 74 75 72 6e 3a 3d 20 77 30 3b 0a 20 ┆ (.w3.,w0); return:= w0; ┆
0x7b660…7b67e 20 20 20 20 20 63 61 6c 6c 20 77 30 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 65 6e 64 3b 0a ┆ call w0 return; end; ┆
0x7b67e…7b684 (0x324,0xf6e)
0x7b684…7b6a0 20 20 65 6e 64 3b 20 21 20 65 6e 64 20 63 6f 6e 6e 65 63 74 5f 33 32 37 30 20 21 0a ┆ end; ! end connect_3270 ! ┆
0x7b6a0…7b6c0 0a 0a 20 20 62 6f 64 79 20 6f 66 20 64 69 73 63 5f 33 32 37 30 0a 20 20 62 65 67 69 6e 0a 20 20 ┆ body of disc_3270 begin ┆
0x7b6c0…7b6e0 20 20 69 6e 63 6f 64 65 0a 20 20 20 20 77 6f 72 64 20 7a 65 72 6f 3a 3d 20 30 3b 0a 20 20 20 20 ┆ incode word zero:= 0; ┆
0x7b6e0…7b6fc 77 6f 72 64 20 6c 62 3a 3d 20 2d 38 33 38 38 36 30 37 2c 20 75 62 3a 3d 20 2d 38 33 ┆word lb:= -8388607, ub:= -83┆
0x7b6fc…7b702 (0x324,0xf6f)
0x7b702…7b720 38 38 36 30 35 3b 0a 20 20 20 20 72 65 66 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 62 65 67 ┆88605; ref return; beg┆
0x7b720…7b740 69 6e 0a 20 20 20 20 20 20 70 75 73 68 20 28 2e 77 33 2e 2c 77 30 3a 3d 20 77 33 29 3b 20 21 20 ┆in push (.w3.,w0:= w3); ! ┆
0x7b740…7b760 73 61 76 65 20 72 65 74 75 72 6e 20 61 64 64 72 65 73 73 20 21 0a 20 20 20 20 20 20 77 30 3a 3d ┆save return address ! w0:=┆
0x7b760…7b77a 20 6c 62 3b 77 31 3a 3d 20 75 62 3b 77 33 3a 3d 20 61 64 64 72 65 73 73 28 7a ┆ lb;w1:= ub;w3:= address(z┆
0x7b77a…7b780 (0x324,0xf70)
0x7b780…7b7a0 65 72 6f 29 3b 20 6d 6f 6e 69 74 6f 72 28 37 32 29 3b 20 21 20 73 65 74 20 63 61 74 61 6c 6f 67 ┆ero); monitor(72); ! set catalog┆
0x7b7a0…7b7c0 20 62 61 73 65 20 21 0a 20 20 20 20 20 20 77 31 3a 3d 20 28 77 33 3a 3d 62 2e 63 75 72 72 65 6e ┆ base ! w1:= (w3:=b.curren┆
0x7b7c0…7b7e0 74 29 2e 66 70 72 5f 73 74 63 6f 72 6f 75 74 3b 0a 20 20 20 20 20 20 77 33 3a 3d 20 61 64 64 72 ┆t).fpr_stcorout; w3:= addr┆
0x7b7e0…7b800 65 73 73 28 28 77 31 29 2e 66 70 72 5f 70 72 6f 63 6f 75 74 29 3b 0a 20 00 00 00 00 00 00 00 00 ┆ess((w1).fpr_procout); ┆
0x7b800…7b806 (988,) (0x324,0xf71)
0x7b806…7b820 20 20 20 20 20 6d 6f 6e 69 74 6f 72 20 28 34 29 3b 20 21 20 70 72 6f 63 65 73 ┆ monitor (4); ! proces┆
0x7b820…7b840 73 20 64 65 73 63 72 69 70 74 69 6f 6e 20 21 0a 20 20 20 20 20 20 77 33 3a 3d 20 62 2e 63 75 72 ┆s description ! w3:= b.cur┆
0x7b840…7b860 72 65 6e 74 3b 0a 20 20 20 20 20 20 77 30 3a 3d 20 28 77 31 3a 3d 77 30 29 2e 77 6f 72 64 3b 20 ┆rent; w0:= (w1:=w0).word; ┆
0x7b860…7b87e 21 20 77 30 20 3d 20 6b 69 6e 64 20 28 70 72 6f 63 65 73 73 29 20 21 0a 20 20 20 20 20 20 ┆! w0 = kind (process) ! ┆
0x7b87e…7b884 (0x324,0xf72)
0x7b884…7b8a0 69 66 20 77 30 3d 32 38 20 74 68 65 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f ┆if w0=28 then begin co┆
0x7b8a0…7b8c0 6d 6d 65 6e 74 20 63 6f 6e 6e 65 63 74 65 64 20 74 68 72 6f 75 67 68 20 61 64 70 33 32 37 30 3b ┆mment connected through adp3270;┆
0x7b8c0…7b8e0 0a 20 20 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 73 65 6e 64 20 72 65 6c 65 61 73 65 20 70 72 ┆ comment send release pr┆
0x7b8e0…7b8fc 69 6e 74 65 72 20 6d 65 73 73 61 67 65 3b 0a 20 20 20 20 20 20 20 20 77 31 3a 3d 20 ┆inter message; w1:= ┆
0x7b8fc…7b902 (0x324,0xf73)
0x7b902…7b920 28 77 33 29 2e 74 63 5f 62 75 66 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 62 75 66 5f ┆(w3).tc_buf; (w1).buf_┆
0x7b920…7b940 6f 70 3a 3d 20 77 30 3a 3d 20 34 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 62 75 66 5f 6d 6f ┆op:= w0:= 4; (w1).buf_mo┆
0x7b940…7b960 64 65 3a 3d 20 77 30 3a 3d 20 32 30 3b 0a 20 20 20 20 20 20 20 20 77 30 3a 3d 20 28 77 33 29 2e ┆de:= w0:= 20; w0:= (w3).┆
0x7b960…7b97a 66 70 72 5f 70 6c 63 75 64 65 76 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e ┆fpr_plcudev; (w1).┆
0x7b97a…7b980 (0x324,0xf74)
0x7b980…7b9a0 62 75 66 5f 6c 61 73 74 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 20 77 32 3a 3d 20 61 64 64 72 ┆buf_last:= w0; w2:= addr┆
0x7b9a0…7b9c0 65 73 73 28 28 77 32 3a 3d 28 77 33 29 2e 66 70 72 5f 73 74 63 6f 72 6f 75 74 29 2e 66 70 72 5f ┆ess((w2:=(w3).fpr_stcorout).fpr_┆
0x7b9c0…7b9e0 70 72 6f 63 6f 75 74 29 3b 0a 20 20 20 20 20 20 20 20 73 65 6e 64 77 61 69 74 20 28 2e 77 33 2e ┆procout); sendwait (.w3.┆
0x7b9e0…7ba00 2c 77 30 2c 77 31 2c 77 32 29 3b 0a 20 20 20 20 20 20 20 20 77 31 3a 3d 00 00 00 00 00 00 00 00 ┆,w0,w1,w2); w1:= ┆
0x7ba00…7ba06 (989,) (0x324,0xf75)
0x7ba06…7ba20 20 28 77 33 29 2e 66 70 72 5f 73 74 63 6f 72 6f 75 74 3b 0a 20 20 20 20 20 20 ┆ (w3).fpr_stcorout; ┆
0x7ba20…7ba40 20 20 69 66 20 77 30 3a 3d 20 28 77 31 29 2e 66 70 72 5f 63 6f 75 6e 74 3d 31 20 74 68 65 6e 0a ┆ if w0:= (w1).fpr_count=1 then ┆
0x7ba40…7ba60 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 73 65 6e 64 20 61 70 70 6c 69 ┆ begin comment send appli┆
0x7ba60…7ba7e 63 61 74 69 6f 6e 20 64 69 73 63 6f 6e 6e 65 63 74 20 6d 65 73 73 61 67 65 3b 0a 20 20 20 ┆cation disconnect message; ┆
0x7ba7e…7ba84 (0x324,0xf76)
0x7ba84…7baa0 20 20 20 20 20 20 20 77 31 3a 3d 20 28 77 33 29 2e 74 63 5f 62 75 66 3b 0a 20 20 20 ┆ w1:= (w3).tc_buf; ┆
0x7baa0…7bac0 20 20 20 20 20 20 20 28 77 31 29 2e 62 75 66 5f 6f 70 3a 3d 20 77 30 3a 3d 20 34 3b 0a 20 20 20 ┆ (w1).buf_op:= w0:= 4; ┆
0x7bac0…7bae0 20 20 20 20 20 20 20 28 77 31 29 2e 62 75 66 5f 6d 6f 64 65 3a 3d 20 77 30 3a 3d 20 38 3b 0a 20 ┆ (w1).buf_mode:= w0:= 8; ┆
0x7bae0…7bafc 20 20 20 20 20 20 20 20 20 77 31 3a 3d 20 28 77 33 29 2e 74 63 5f 62 75 66 3b 0a 20 ┆ w1:= (w3).tc_buf; ┆
0x7bafc…7bb02 (0x324,0xf77)
0x7bb02…7bb20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 20 61 64 64 72 65 73 73 28 28 77 32 3a 3d 28 77 33 ┆ w2:= address((w2:=(w3┆
0x7bb20…7bb40 29 2e 66 70 72 5f 73 74 63 6f 72 6f 75 74 29 2e 66 70 72 5f 70 72 6f 63 6f 75 74 29 3b 0a 20 20 ┆).fpr_stcorout).fpr_procout); ┆
0x7bb40…7bb60 20 20 20 20 20 20 20 20 73 65 6e 64 77 61 69 74 20 28 2e 77 33 2e 2c 77 30 2c 77 31 2c 77 32 29 ┆ sendwait (.w3.,w0,w1,w2)┆
0x7bb60…7bb7a 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 65 6e 64 20 21 ┆; end; end !┆
0x7bb7a…7bb80 (0x324,0xf78)
0x7bb80…7bba0 20 65 6e 64 20 61 64 70 33 32 37 30 20 63 6f 6e 6e 65 63 74 65 64 20 70 72 69 6e 74 65 72 20 21 ┆ end adp3270 connected printer !┆
0x7bba0…7bbc0 0a 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 ┆ else begin comment ┆
0x7bbc0…7bbe0 63 6f 6e 6e 65 63 74 65 64 20 74 68 72 6f 75 67 68 20 6d 2e 72 6f 63 73 2c 20 4e 43 50 3b 0a 20 ┆connected through m.rocs, NCP; ┆
0x7bbe0…7bc00 20 20 20 20 20 20 20 77 31 3a 3d 20 28 77 33 29 2e 74 63 5f 62 75 66 3b 00 00 00 00 00 00 00 00 ┆ w1:= (w3).tc_buf; ┆
0x7bc00…7bc06 (990,) (0x324,0xf79)
0x7bc06…7bc20 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 62 75 66 5f 6f 70 3a 3d 20 77 30 3a ┆ (w1).buf_op:= w0:┆
0x7bc20…7bc40 3d 20 32 20 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 62 75 66 5f 6d 6f 64 65 3a 3d 20 77 30 ┆= 2 ; (w1).buf_mode:= w0┆
0x7bc40…7bc60 3a 3d 20 38 3b 20 21 20 64 69 73 63 6f 6e 6e 65 63 74 20 6d 65 73 73 20 21 0a 20 20 20 20 20 20 ┆:= 8; ! disconnect mess ! ┆
0x7bc60…7bc7e 20 20 77 30 3a 3d 20 28 77 33 29 2e 66 70 72 5f 70 6c 63 75 64 65 76 3b 0a 20 20 20 20 20 ┆ w0:= (w3).fpr_plcudev; ┆
0x7bc7e…7bc84 (0x324,0xf7a)
0x7bc84…7bca0 20 20 20 28 77 31 29 2e 62 75 66 5f 64 61 74 61 31 3a 3d 20 77 30 3b 0a 20 20 20 20 ┆ (w1).buf_data1:= w0; ┆
0x7bca0…7bcc0 20 20 20 20 77 32 3a 3d 20 61 64 64 72 65 73 73 28 28 77 32 3a 3d 28 77 33 29 2e 66 70 72 5f 73 ┆ w2:= address((w2:=(w3).fpr_s┆
0x7bcc0…7bce0 74 63 6f 72 6f 75 74 29 2e 66 70 72 5f 70 72 6f 63 6f 75 74 29 3b 0a 20 20 20 20 20 20 20 20 73 ┆tcorout).fpr_procout); s┆
0x7bce0…7bcfc 65 6e 64 77 61 69 74 20 28 2e 77 33 2e 2c 77 30 2c 77 31 2c 77 32 29 3b 0a 20 20 20 ┆endwait (.w3.,w0,w1,w2); ┆
0x7bcfc…7bd02 (0x324,0xf7b)
0x7bd02…7bd20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 70 6f 70 20 28 2e 77 33 2e 2c 77 30 29 3b 0a 20 ┆ end; pop (.w3.,w0); ┆
0x7bd20…7bd40 20 20 20 20 20 72 65 74 75 72 6e 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 63 61 6c 6c 20 77 30 20 ┆ return:= w0; call w0 ┆
0x7bd40…7bd60 72 65 74 75 72 6e 3b 0a 20 20 20 20 65 6e 64 3b 0a 20 20 65 6e 64 3b 20 21 20 65 6e 64 20 64 69 ┆return; end; end; ! end di┆
0x7bd60…7bd7a 73 63 5f 33 32 37 30 20 21 0a 0a 0a 0a 20 20 62 6f 64 79 20 6f 66 20 66 70 72 ┆sc_3270 ! body of fpr┆
0x7bd7a…7bd80 (0x324,0xf7c)
0x7bd80…7bda0 0a 20 20 63 6f 6d 6d 65 6e 74 20 66 6f 72 6d 61 74 20 70 72 69 6e 74 65 72 20 63 6f 72 6f 75 74 ┆ comment format printer corout┆
0x7bda0…7bdc0 69 6e 65 3b 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 6c 61 62 65 6c 20 20 6c 6f 6f 70 2c 20 6e 6f ┆ine; begin label loop, no┆
0x7bdc0…7bde0 5f 6f 70 2c 20 72 65 70 2c 20 63 6c 6f 73 65 75 70 2c 20 73 75 69 63 69 64 65 3b 0a 0a 20 20 20 ┆_op, rep, closeup, suicide; ┆
0x7bde0…7be00 20 69 6e 63 6f 64 65 0a 20 20 20 20 20 20 77 6f 72 64 20 21 20 61 64 70 00 00 00 00 00 00 00 00 ┆ incode word ! adp ┆
0x7be00…7be06 (991,) (0x324,0xf7d)
0x7be06…7be20 33 32 37 30 20 73 74 61 74 75 73 20 63 6f 64 65 73 3a 20 28 73 65 65 20 61 64 ┆3270 status codes: (see ad┆
0x7be20…7be40 70 33 32 37 30 20 72 65 66 66 2e 20 72 63 73 6c 2e 39 39 31 20 2d 20 30 39 39 31 30 29 20 0a 20 ┆p3270 reff. rcsl.991 - 09910) ┆
0x7be40…7be60 20 20 20 20 20 20 20 66 69 72 73 74 20 62 79 74 65 3a 20 41 49 44 28 3d 31 35 36 29 20 73 65 63 ┆ first byte: AID(=156) sec┆
0x7be60…7be7e 2e 20 62 79 74 65 3a 20 53 42 20 21 0a 20 20 20 20 20 20 20 20 21 20 20 41 49 44 28 3d 31 ┆. byte: SB ! ! AID(=1┆
0x7be7e…7be84 (0x324,0xf7e)
0x7be84…7bea0 35 36 29 2f 53 42 3a 20 20 20 20 20 37 36 35 34 33 32 31 30 37 36 35 34 33 32 31 30 ┆56)/SB: 7654321076543210┆
0x7bea0…7bec0 20 21 0a 20 20 20 20 20 20 20 20 61 64 70 5f 65 6e 64 3a 3d 20 20 20 20 20 20 20 20 20 20 32 27 ┆ ! adp_end:= 2'┆
0x7bec0…7bee0 31 30 30 31 31 31 30 30 31 30 30 30 30 30 30 30 2c 0a 20 20 20 20 20 20 20 20 61 64 70 5f 6e 72 ┆1001110010000000, adp_nr┆
0x7bee0…7befc 65 61 64 79 3a 3d 20 20 20 20 20 20 20 32 27 31 30 30 31 31 31 30 30 31 30 30 30 30 ┆eady:= 2'1001110010000┆
0x7befc…7bf02 (0x324,0xf7f)
0x7bf02…7bf20 30 30 31 2c 0a 20 20 20 20 20 20 20 20 61 64 70 5f 74 6f 75 74 3a 3d 20 20 20 20 20 20 20 ┆001, adp_tout:= ┆
0x7bf20…7bf40 20 20 32 27 31 30 30 31 31 31 30 30 31 30 30 30 30 30 31 30 2c 0a 20 20 20 20 20 20 20 20 61 64 ┆ 2'1001110010000010, ad┆
0x7bf40…7bf60 70 5f 6f 66 66 6c 69 6e 65 3a 3d 20 20 20 20 20 20 32 27 31 30 30 31 31 31 30 30 31 30 30 30 30 ┆p_offline:= 2'1001110010000┆
0x7bf60…7bf7a 30 31 31 2c 0a 20 20 20 20 20 20 20 20 61 64 70 5f 75 6e 61 76 3a 3d 20 20 20 ┆011, adp_unav:= ┆
0x7bf7a…7bf80 (0x324,0xf80)
0x7bf80…7bfa0 20 20 20 20 20 20 32 27 31 30 30 31 31 31 30 30 31 30 30 30 30 31 30 30 2c 0a 20 20 20 20 20 20 ┆ 2'1001110010000100, ┆
0x7bfa0…7bfc0 20 20 21 20 73 74 61 74 75 73 20 62 79 74 65 73 20 73 30 2f 73 31 20 28 73 65 65 2e 20 72 63 38 ┆ ! status bytes s0/s1 (see. rc8┆
0x7bfc0…7bfe0 35 35 20 69 62 6d 20 33 32 37 30 20 62 73 63 20 65 6d 75 6c 61 74 6f 72 0a 20 20 20 20 20 20 20 ┆55 ibm 3270 bsc emulator ┆
0x7bfe0…7c000 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ ┆
0x7c000…7c006 (992,) (0x324,0xf81)
0x7c006…7c020 20 2d 20 20 72 63 73 6c 2e 20 34 32 2d 69 31 36 39 32 29 20 20 20 20 20 20 20 ┆ - rcsl. 42-i1692) ┆
0x7c020…7c040 20 20 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 21 20 20 20 73 30 2f 73 31 3a 20 20 20 20 20 20 ┆ ! ! s0/s1: ┆
0x7c040…7c060 20 20 20 20 20 37 36 35 34 33 32 31 30 37 36 35 34 33 32 31 30 20 21 0a 20 20 20 20 20 20 20 20 ┆ 7654321076543210 ! ┆
0x7c060…7c07e 64 65 76 5f 65 6e 64 3a 3d 20 20 20 20 20 20 20 20 20 20 32 27 31 31 30 30 30 30 31 30 30 ┆dev_end:= 2'110000100┆
0x7c07e…7c084 (0x324,0xf82)
0x7c084…7c0a0 31 30 30 30 30 30 30 2c 20 21 20 68 65 78 3a 20 63 32 2c 34 30 20 21 0a 20 20 20 20 ┆1000000, ! hex: c2,40 ! ┆
0x7c0a0…7c0c0 20 20 20 20 64 65 76 5f 75 6e 61 76 61 69 6c 65 61 62 6c 65 3a 3d 20 32 27 30 31 30 30 30 30 30 ┆ dev_unavaileable:= 2'0100000┆
0x7c0c0…7c0e0 30 30 31 30 31 30 30 30 30 2c 20 21 20 68 65 78 3a 20 34 30 2c 35 30 20 21 0a 20 20 20 20 20 20 ┆001010000, ! hex: 40,50 ! ┆
0x7c0e0…7c0fc 20 20 64 65 76 5f 62 75 73 79 3a 3d 20 20 20 20 20 20 20 20 20 32 27 31 31 30 30 31 ┆ dev_busy:= 2'11001┆
0x7c0fc…7c102 (0x324,0xf83)
0x7c102…7c120 30 30 30 30 31 30 30 30 30 30 30 2c 20 21 20 68 65 78 3a 20 63 38 2c 34 30 20 21 0a 20 20 ┆00001000000, ! hex: c8,40 ! ┆
0x7c120…7c140 20 20 20 20 20 20 64 65 76 5f 6f 66 66 6c 69 6e 65 3a 3d 20 20 20 20 20 20 32 27 31 31 30 30 30 ┆ dev_offline:= 2'11000┆
0x7c140…7c160 30 31 30 30 31 30 31 30 30 30 30 2c 20 21 20 68 65 78 3a 20 63 32 2c 35 30 20 21 0a 20 20 20 20 ┆01001010000, ! hex: c2,50 ! ┆
0x7c160…7c17a 20 20 20 20 64 65 76 5f 63 6d 64 65 72 72 6f 72 3a 3d 20 20 20 20 20 32 27 30 ┆ dev_cmderror:= 2'0┆
0x7c17a…7c180 (0x324,0xf84)
0x7c180…7c1a0 31 30 30 30 30 30 30 30 31 31 30 30 30 30 30 3b 20 21 20 68 65 78 3a 20 34 30 2c 36 30 20 21 0a ┆100000001100000; ! hex: 40,60 ! ┆
0x7c1a0…7c1c0 0a 20 20 20 20 20 20 77 6f 72 64 20 6f 70 72 68 65 61 64 30 20 20 3a 3d 20 33 34 37 35 34 38 37 ┆ word oprhead0 := 3475487┆
0x7c1c0…7c1e0 20 3b 20 21 20 77 72 69 74 65 20 63 6f 64 65 20 20 20 20 6c 73 68 69 66 74 20 31 36 20 28 35 33 ┆ ; ! write code lshift 16 (53┆
0x7c1e0…7c200 29 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆) ! ┆
0x7c200…7c206 (993,) (0x324,0xf85)
0x7c206…7c220 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 2b 20 77 63 63 20 20 20 20 20 ┆ ! + wcc ┆
0x7c220…7c240 20 20 20 20 6c 73 68 69 66 74 20 20 38 20 28 20 38 29 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ lshift 8 ( 8) ! ┆
0x7c240…7c260 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 2b 20 75 73 6d 20 20 ┆ ! + usm ┆
0x7c260…7c27e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 33 31 29 20 21 0a 0a 0a 0a 20 20 20 ┆ (31) ! ┆
0x7c27e…7c284 (0x324,0xf86)
0x7c284…7c2a0 20 20 20 77 6f 72 64 20 20 6f 70 72 68 65 61 64 31 20 3a 3d 20 33 34 37 35 34 36 39 ┆ word oprhead1 := 3475469┆
0x7c2a0…7c2c0 20 3b 20 21 20 77 72 69 74 65 20 63 6f 64 65 20 20 20 20 6c 73 68 69 66 74 20 31 36 20 28 35 33 ┆ ; ! write code lshift 16 (53┆
0x7c2c0…7c2e0 29 20 21 0a 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 ┆) ! ┆
0x7c2e0…7c2fc 20 20 20 20 20 20 21 20 2b 20 77 63 63 20 20 20 20 20 20 20 20 20 6c 73 68 69 66 74 ┆ ! + wcc lshift┆
0x7c2fc…7c302 (0x324,0xf87)
0x7c302…7c320 20 20 38 20 28 20 38 29 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 8 ( 8) ! ┆
0x7c320…7c340 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 2b 20 63 72 20 20 20 20 20 20 20 20 20 20 20 ┆ ! + cr ┆
0x7c340…7c360 20 20 20 20 20 20 20 20 20 28 31 33 29 3b 21 0a 20 20 20 20 20 20 77 6f 72 64 20 20 6f 70 72 68 ┆ (13);! word oprh┆
0x7c360…7c37a 65 61 64 32 20 3b 20 20 20 20 20 20 20 20 20 20 20 20 21 20 63 68 61 72 61 63 ┆ead2 ; ! charac┆
0x7c37a…7c380 (0x324,0xf88)
0x7c380…7c3a0 74 65 72 73 20 6f 72 20 22 63 72 22 73 20 70 61 72 74 2e 77 6f 72 64 21 0a 0a 20 20 20 20 20 20 ┆ters or "cr"s part.word! ┆
0x7c3a0…7c3c0 74 65 78 74 20 28 32 37 29 20 74 5f 6f 70 72 6b 69 6c 6c 20 3a 3d 20 22 27 31 30 27 2a 2a 2a 6b ┆text (27) t_oprkill := "'10'***k┆
0x7c3c0…7c3e0 69 6c 6c 65 64 20 62 79 20 6f 70 65 72 61 74 6f 72 27 32 35 27 27 33 27 27 30 27 27 30 27 22 3b ┆illed by operator'25''3''0''0'";┆
0x7c3e0…7c400 0a 20 20 20 20 20 20 74 65 78 74 20 28 33 30 29 20 74 5f 61 70 6c 6b 69 00 00 00 00 00 00 00 00 ┆ text (30) t_aplki ┆
0x7c400…7c406 (994,) (0x324,0xf89)
0x7c406…7c420 6c 6c 20 3a 3d 20 22 27 31 30 27 2a 2a 2a 6b 69 6c 6c 65 64 20 62 79 20 61 70 ┆ll := "'10'***killed by ap┆
0x7c420…7c440 70 6c 69 63 61 74 69 6f 6e 27 32 35 27 27 33 27 27 30 27 27 30 27 22 3b 0a 20 20 20 20 20 20 74 ┆plication'25''3''0''0'"; t┆
0x7c440…7c460 65 78 74 20 28 33 30 29 20 74 5f 6f 70 72 66 61 75 6c 74 3a 3d 20 22 27 31 30 27 2a 2a 2a 6f 70 ┆ext (30) t_oprfault:= "'10'***op┆
0x7c460…7c47e 65 72 61 74 6f 72 20 64 65 76 69 63 65 20 74 72 6f 75 62 6c 65 27 32 35 27 27 33 27 22 3b ┆erator device trouble'25''3'";┆
0x7c47e…7c484 (0x324,0xf8a)
0x7c484…7c4a0 0a 0a 0a 0a 20 20 20 20 20 20 72 65 66 20 74 72 61 6e 73 72 65 66 2c 20 20 71 75 65 ┆ ref transref, que┆
0x7c4a0…7c4c0 75 65 72 65 66 3b 0a 20 20 20 20 20 20 72 65 66 20 72 65 6c 61 74 69 76 65 3b 0a 20 20 20 20 20 ┆ueref; ref relative; ┆
0x7c4c0…7c4e0 20 77 6f 72 64 20 73 65 67 6d 65 6e 74 3b 0a 20 20 20 20 20 20 72 65 66 20 72 65 74 75 72 6e 3b ┆ word segment; ref return;┆
0x7c4e0…7c4fc 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 72 65 74 75 72 6e 20 3a 3d 20 77 ┆ begin return := w┆
0x7c4fc…7c502 (0x324,0xf8b)
0x7c502…7c520 33 3b 20 63 61 6c 6c 20 77 33 20 72 65 74 75 72 6e 3b 20 20 21 20 70 73 65 75 64 6f 20 63 ┆3; call w3 return; ! pseudo c┆
0x7c520…7c540 61 6c 6c 20 21 0a 20 20 20 20 20 20 63 6f 6e 6e 65 63 74 5f 33 32 37 30 20 28 2e 77 33 2e 29 3b ┆all ! connect_3270 (.w3.);┆
0x7c540…7c560 0a 20 20 20 20 20 20 77 68 69 6c 65 20 20 77 31 3d 77 31 20 20 64 6f 0a 20 20 20 20 20 20 62 65 ┆ while w1=w1 do be┆
0x7c560…7c57a 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 67 65 74 20 6e 65 78 74 20 74 72 61 6e 73 ┆gin comment get next trans┆
0x7c57a…7c580 (0x324,0xf8c)
0x7c580…7c5a0 70 6f 72 74 3b 0a 0a 20 20 20 20 20 20 20 20 77 31 20 3a 3d 20 61 64 64 72 65 73 73 28 28 77 33 ┆port; w1 := address((w3┆
0x7c5a0…7c5c0 29 2e 74 63 5f 6e 65 78 74 74 72 29 3b 0a 20 20 20 20 20 20 20 20 77 31 20 3a 3d 20 28 77 31 29 ┆).tc_nexttr); w1 := (w1)┆
0x7c5c0…7c5e0 2e 74 71 5f 6e 65 78 74 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 32 3a 3d 61 64 64 72 65 73 73 ┆.tq_next; if w2:=address┆
0x7c5e0…7c600 28 28 77 33 29 2e 74 63 5f 6e 65 78 74 74 72 29 3d 77 31 20 20 74 68 65 00 00 00 00 00 00 00 00 ┆((w3).tc_nexttr)=w1 the ┆
0x7c600…7c606 (995,) (0x324,0xf8d)
0x7c606…7c620 6e 20 67 6f 74 6f 20 73 75 69 63 69 64 65 3b 0a 0a 20 20 20 20 20 20 20 20 77 ┆n goto suicide; w┆
0x7c620…7c640 31 20 3a 3d 20 28 77 33 29 2e 74 63 5f 6e 65 78 74 74 72 3b 0a 20 20 20 20 20 20 20 20 71 75 65 ┆1 := (w3).tc_nexttr; que┆
0x7c640…7c660 75 65 72 65 66 20 3a 3d 20 77 31 3b 0a 20 20 20 20 20 20 20 20 6c 6f 6f 6b 74 72 61 6e 73 70 6f ┆ueref := w1; looktranspo┆
0x7c660…7c67e 72 74 28 2e 77 33 2e 2c 77 31 3a 3d 28 77 31 29 2e 74 71 5f 74 72 61 6e 73 6e 6f 2c 77 32 ┆rt(.w3.,w1:=(w1).tq_transno,w2┆
0x7c67e…7c684 (0x324,0xf8e)
0x7c684…7c6a0 29 3b 0a 20 20 20 20 20 20 20 20 74 72 61 6e 73 72 65 66 20 3a 3d 20 77 32 3b 0a 20 ┆); transref := w2; ┆
0x7c6a0…7c6c0 20 20 20 20 20 20 20 77 31 20 3a 3d 20 71 75 65 75 65 72 65 66 3b 0a 20 20 20 20 20 20 20 20 28 ┆ w1 := queueref; (┆
0x7c6c0…7c6e0 77 33 29 2e 74 63 5f 74 72 61 6e 73 6e 6f 20 3a 3d 20 77 30 20 3a 3d 20 28 77 31 29 2e 74 71 5f ┆w3).tc_transno := w0 := (w1).tq_┆
0x7c6e0…7c6fc 74 72 61 6e 73 6e 6f 3b 0a 0a 20 20 20 20 20 20 20 20 6c 69 6e 6b 28 2e 77 33 2e 2c ┆transno; link(.w3.,┆
0x7c6fc…7c702 (0x324,0xf8f)
0x7c702…7c720 77 31 3a 3d 71 75 65 75 65 72 65 66 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 62 2e 74 71 66 ┆w1:=queueref,w2:=address(b.tqf┆
0x7c720…7c740 72 65 65 66 73 74 29 29 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 20 28 77 33 29 2e 66 ┆reefst)); if w0:= (w3).f┆
0x7c740…7c760 70 72 5f 6c 6c 63 75 64 65 76 20 3c 20 30 20 74 68 65 6e 20 67 6f 74 6f 20 63 6c 6f 73 65 75 70 ┆pr_llcudev < 0 then goto closeup┆
0x7c760…7c77a 3b 0a 20 20 20 20 20 20 20 20 28 77 33 29 2e 66 70 72 5f 63 6f 6e 76 65 72 74 ┆; (w3).fpr_convert┆
0x7c77a…7c780 (0x324,0xf90)
0x7c780…7c7a0 3a 3d 20 77 30 3a 3d 20 61 64 64 72 65 73 73 28 62 2e 73 74 72 74 74 61 62 6c 65 29 3b 0a 20 20 ┆:= w0:= address(b.strttable); ┆
0x7c7a0…7c7c0 20 20 20 20 20 20 77 32 20 3a 3d 20 74 72 61 6e 73 72 65 66 3b 0a 20 20 20 20 20 20 20 20 28 77 ┆ w2 := transref; (w┆
0x7c7c0…7c7e0 33 29 2e 74 63 5f 6f 69 6e 74 65 72 76 65 6e 74 20 3a 3d 20 77 30 20 3a 3d 20 30 3b 0a 20 20 20 ┆3).tc_ointervent := w0 := 0; ┆
0x7c7e0…7c800 20 20 20 20 20 28 77 33 29 2e 74 63 5f 61 69 6e 74 65 72 76 65 6e 74 20 00 00 00 00 00 00 00 00 ┆ (w3).tc_aintervent ┆
0x7c800…7c806 (996,) (0x324,0xf91)
0x7c806…7c820 3a 3d 20 77 30 20 3b 0a 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 6d 6f ┆:= w0 ; (w3).tc_mo┆
0x7c820…7c840 64 65 20 3a 3d 20 77 31 20 3a 3d 20 28 77 32 29 2e 74 72 5f 6d 6f 64 65 3b 0a 20 20 20 20 20 20 ┆de := w1 := (w2).tr_mode; ┆
0x7c840…7c860 20 20 77 30 3a 3d 20 28 77 33 29 2e 66 70 72 5f 6c 6c 63 75 64 65 76 3b 77 30 20 61 6e 64 20 33 ┆ w0:= (w3).fpr_llcudev;w0 and 3┆
0x7c860…7c87e 32 36 33 39 3b 20 77 30 20 6c 73 68 69 66 74 20 38 3b 20 77 30 2b 32 37 3b 0a 20 20 20 20 ┆2639; w0 lshift 8; w0+27; ┆
0x7c87e…7c884 (0x324,0xf92)
0x7c884…7c8a0 20 20 20 20 28 77 33 29 2e 66 70 72 5f 74 72 61 6e 73 69 64 20 3a 3d 20 77 30 3b 20 ┆ (w3).fpr_transid := w0; ┆
0x7c8a0…7c8c0 21 20 63 75 20 6c 73 68 69 66 74 20 31 36 20 2b 20 64 65 76 20 6c 73 68 69 66 74 20 38 20 2b 20 ┆! cu lshift 16 + dev lshift 8 + ┆
0x7c8c0…7c8e0 65 73 63 20 21 0a 20 20 20 20 20 20 20 20 28 77 33 29 2e 66 70 72 5f 70 61 72 74 69 61 6c 20 3a ┆esc ! (w3).fpr_partial :┆
0x7c8e0…7c8fc 3d 20 77 30 20 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 62 ┆= w0 := 0; (w3).tc_b┆
0x7c8fc…7c902 (0x324,0xf93)
0x7c902…7c920 73 6c 20 20 3a 3d 20 77 30 20 3a 3d 20 28 77 32 29 2e 74 72 5f 62 61 73 65 6c 3b 0a 20 20 ┆sl := w0 := (w2).tr_basel; ┆
0x7c920…7c940 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 62 73 75 20 20 3a 3d 20 77 30 20 3a 3d 20 28 77 32 29 ┆ (w3).tc_bsu := w0 := (w2)┆
0x7c940…7c960 2e 74 72 5f 62 61 73 65 75 3b 0a 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 62 73 70 74 72 ┆.tr_baseu; (w3).tc_bsptr┆
0x7c960…7c97a 3a 3d 20 66 31 20 3a 3d 20 28 77 32 29 2e 74 72 5f 62 73 73 74 61 72 74 70 74 ┆:= f1 := (w2).tr_bsstartpt┆
0x7c97a…7c980 (0x324,0xf94)
0x7c980…7c9a0 72 3b 0a 20 20 20 20 20 20 20 20 20 66 31 20 61 73 68 69 66 74 20 2d 20 39 3b 0a 20 20 20 20 20 ┆r; f1 ashift - 9; ┆
0x7c9a0…7c9c0 20 20 20 20 28 77 33 29 2e 66 70 72 5f 73 74 61 72 74 73 65 67 6d 65 6e 74 3a 3d 20 77 31 3b 0a ┆ (w3).fpr_startsegment:= w1; ┆
0x7c9c0…7c9e0 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 73 74 61 74 65 3a 3d 20 77 30 20 3a 3d 20 20 30 ┆ (w3).tc_state:= w0 := 0┆
0x7c9e0…7ca00 3b 0a 20 20 20 20 20 20 20 20 6d 6f 76 65 28 2e 77 33 2e 2c 77 30 3a 3d 00 00 00 00 00 00 00 00 ┆; move(.w3.,w0:= ┆
0x7ca00…7ca06 (997,) (0x324,0xf95)
0x7ca06…7ca20 38 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 28 77 32 29 2e 74 72 5f 62 73 61 72 ┆8,w1:=address((w2).tr_bsar┆
0x7ca20…7ca40 65 61 29 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 28 77 33 29 2e 74 63 5f 62 73 6e 61 6d 65 29 29 ┆ea),w2:=address((w3).tc_bsname))┆
0x7ca40…7ca60 3b 0a 20 20 20 20 20 20 20 20 6d 6f 76 65 28 2e 77 33 2e 2c 77 30 2c 77 31 3a 3d 61 64 64 72 65 ┆; move(.w3.,w0,w1:=addre┆
0x7ca60…7ca7e 73 73 28 28 77 31 3a 3d 74 72 61 6e 73 72 65 66 29 2e 74 72 5f 71 67 72 6f 75 70 29 2c 0a ┆ss((w1:=transref).tr_qgroup), ┆
0x7ca7e…7ca84 (0x324,0xf96)
0x7ca84…7caa0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 61 64 64 ┆ w2:=add┆
0x7caa0…7cac0 72 65 73 73 28 28 77 33 29 2e 74 63 5f 71 67 72 6f 75 70 29 29 3b 0a 20 20 20 20 20 20 20 20 6d ┆ress((w3).tc_qgroup)); m┆
0x7cac0…7cae0 6f 76 65 28 2e 77 33 2e 2c 77 30 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 28 77 31 3a 3d 74 72 61 ┆ove(.w3.,w0,w1:=address((w1:=tra┆
0x7cae0…7cafc 6e 73 72 65 66 29 2e 74 72 5f 71 6e 61 6d 65 29 2c 0a 20 20 20 20 20 20 20 20 20 20 ┆nsref).tr_qname), ┆
0x7cafc…7cb02 (0x324,0xf97)
0x7cb02…7cb20 20 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 61 64 64 72 65 73 73 28 28 77 33 29 2e 74 63 ┆ w2:=address((w3).tc┆
0x7cb20…7cb40 5f 71 6e 61 6d 65 29 29 3b 0a 20 20 20 20 20 20 20 20 28 77 33 29 2e 66 70 72 5f 69 6e 70 73 74 ┆_qname)); (w3).fpr_inpst┆
0x7cb40…7cb60 61 74 65 20 3a 3d 20 77 30 20 3a 3d 20 30 3b 0a 0a 20 20 20 20 20 20 20 20 6f 70 65 6e 62 73 28 ┆ate := w0 := 0; openbs(┆
0x7cb60…7cb7a 2e 77 33 2e 29 3b 20 20 21 20 20 70 72 65 70 61 72 65 20 61 72 65 61 20 20 21 ┆.w3.); ! prepare area !┆
0x7cb7a…7cb80 (0x324,0xf98)
0x7cb80…7cba0 0a 6c 6f 6f 70 3a 0a 20 20 20 20 20 20 20 20 63 61 73 65 20 77 32 3a 3d 28 77 33 29 2e 74 63 5f ┆ loop: case w2:=(w3).tc_┆
0x7cba0…7cbc0 6f 69 6e 74 65 72 76 65 6e 74 20 6f 66 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 ┆ointervent of begin ┆
0x7cbc0…7cbe0 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 73 74 61 72 74 3b 0a 20 20 20 20 20 ┆ begin comment start; ┆
0x7cbe0…7cc00 20 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 6f 69 6e 74 65 72 76 65 6e 00 00 00 00 00 00 00 00 ┆ (w3).tc_ointerven ┆
0x7cc00…7cc06 (998,) (0x324,0xf99)
0x7cc06…7cc20 74 3a 3d 20 77 30 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b ┆t:= w0:= 0; end;┆
0x7cc20…7cc40 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 21 20 73 6b 69 70 20 21 20 65 6e 64 3b 0a 20 ┆ begin ! skip ! end; ┆
0x7cc40…7cc60 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 72 65 70 65 61 74 3b 0a 20 ┆ begin comment repeat; ┆
0x7cc60…7cc7e 20 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 6f 69 6e 74 65 72 76 65 6e 74 3a ┆ (w3).tc_ointervent:┆
0x7cc7e…7cc84 (0x324,0xf9a)
0x7cc84…7cca0 3d 20 77 30 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 67 65 74 5f 62 6c ┆= w0:= 0; get_bl┆
0x7cca0…7ccc0 6f 63 6b 28 2e 77 33 2e 2c 77 30 3a 3d 30 2c 77 31 2c 77 32 29 3b 0a 20 20 20 20 20 20 20 20 20 ┆ock(.w3.,w0:=0,w1,w2); ┆
0x7ccc0…7cce0 20 20 20 66 31 3a 3d 20 28 77 33 29 2e 74 63 5f 62 73 70 74 72 3b 0a 20 20 20 20 20 20 20 20 20 ┆ f1:= (w3).tc_bsptr; ┆
0x7cce0…7ccfc 20 20 20 77 31 20 65 78 74 72 61 63 74 20 39 3b 72 65 6c 61 74 69 76 65 3a 3d 20 77 ┆ w1 extract 9;relative:= w┆
0x7ccfc…7cd02 (0x324,0xf9b)
0x7cd02…7cd20 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 66 31 3a 3d 20 28 77 33 29 2e 74 63 5f 62 73 ┆1; f1:= (w3).tc_bs┆
0x7cd20…7cd40 70 74 72 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 66 31 20 61 73 68 69 66 74 20 2d 20 39 3b 0a ┆ptr; f1 ashift - 9; ┆
0x7cd40…7cd60 20 20 20 20 20 20 20 20 20 20 20 20 73 65 67 6d 65 6e 74 3a 3d 20 77 31 3b 0a 20 20 20 20 20 20 ┆ segment:= w1; ┆
0x7cd60…7cd7a 20 20 20 20 20 20 77 31 3a 3d 20 28 77 33 29 2e 74 63 5f 62 73 62 75 66 2b 72 ┆ w1:= (w3).tc_bsbuf+r┆
0x7cd7a…7cd80 (0x324,0xf9c)
0x7cd80…7cda0 65 6c 61 74 69 76 65 2d 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 68 69 6c 65 20 77 30 3a ┆elative-2; while w0:┆
0x7cda0…7cdc0 3d 20 28 77 33 29 2e 74 63 5f 77 6f 72 6b 66 66 73 20 3e 20 30 20 64 6f 0a 20 20 20 20 20 20 20 ┆= (w3).tc_workffs > 0 do ┆
0x7cdc0…7cde0 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 6d 6f 76 65 20 62 61 63 6b 20 6f 6e 65 ┆ begin comment move back one┆
0x7cde0…7ce00 20 70 61 67 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 00 00 00 00 00 00 00 00 ┆ page; if ┆
0x7ce00…7ce06 (999,) (0x324,0xf9d)
0x7ce06…7ce20 77 31 3c 28 77 33 29 2e 74 63 5f 62 73 62 75 66 20 74 68 65 6e 20 0a 20 20 20 ┆w1<(w3).tc_bsbuf then ┆
0x7ce20…7ce40 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 62 61 63 6b 73 70 61 ┆ begin comment backspa┆
0x7ce40…7ce60 63 65 20 6f 6e 65 20 73 65 67 6d 65 6e 74 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ce one segment; ┆
0x7ce60…7ce7e 77 30 3a 3d 30 3b 77 31 3a 3d 20 73 65 67 6d 65 6e 74 2d 31 3b 0a 20 20 20 20 20 20 20 20 ┆w0:=0;w1:= segment-1; ┆
0x7ce7e…7ce84 (0x324,0xf9e)
0x7ce84…7cea0 20 20 20 20 20 20 20 20 69 66 20 77 31 3e 3d 28 77 33 29 2e 66 70 72 5f 73 74 61 72 ┆ if w1>=(w3).fpr_star┆
0x7cea0…7cec0 74 73 65 67 6d 65 6e 74 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 ┆tsegment then be┆
0x7cec0…7cee0 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 65 67 6d 65 6e 74 3a 3d 20 ┆gin segment:= ┆
0x7cee0…7cefc 77 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 31 20 6c 73 68 ┆w1; f1 lsh┆
0x7cefc…7cf02 (0x324,0xf9f)
0x7cf02…7cf20 69 66 74 20 39 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e ┆ift 9; (w3).┆
0x7cf20…7cf40 74 63 5f 62 73 70 74 72 3a 3d 20 66 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆tc_bsptr:= f1; ┆
0x7cf40…7cf60 20 67 65 74 5f 62 6c 6f 63 6b 28 2e 77 33 2e 2c 77 30 3a 3d 30 2c 77 31 2c 77 32 29 3b 0a 20 20 ┆ get_block(.w3.,w0:=0,w1,w2); ┆
0x7cf60…7cf7a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 32 3c 3e 32 20 74 ┆ if w2<>2 t┆
0x7cf7a…7cf80 (0x324,0xfa0)
0x7cf80…7cfa0 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 ┆hen begin ┆
0x7cfa0…7cfc0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 73 74 61 74 65 3a 3d 20 ┆ (w3).tc_state:= ┆
0x7cfc0…7cfe0 77 31 3a 3d 20 36 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 33 29 ┆w1:= 6; (w3)┆
0x7cfe0…7d000 2e 74 63 5f 63 61 75 73 65 3a 3d 20 77 31 3a 3d 20 31 3b 20 21 20 73 65 00 00 00 00 00 00 00 00 ┆.tc_cause:= w1:= 1; ! se ┆
0x7d000…7d006 (1000,) (0x324,0xfa1)
0x7d006…7d020 6e 64 65 72 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆nder ! ┆
0x7d020…7d040 20 20 28 77 33 29 2e 74 63 5f 73 74 61 74 75 73 3a 3d 20 77 32 3b 0a 20 20 20 20 20 20 20 20 20 ┆ (w3).tc_status:= w2; ┆
0x7d040…7d060 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 63 6c 6f 73 65 75 70 3b 0a 20 20 20 20 20 20 20 ┆ goto closeup; ┆
0x7d060…7d07e 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ end; ┆
0x7d07e…7d084 (0x324,0xfa2)
0x7d084…7d0a0 20 20 20 20 66 31 3a 3d 20 28 77 33 29 2e 74 63 5f 62 73 70 74 72 3b 0a 20 20 20 20 ┆ f1:= (w3).tc_bsptr; ┆
0x7d0a0…7d0c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 31 20 61 73 68 69 66 74 20 2d 20 39 3b 0a 20 20 20 ┆ f1 ashift - 9; ┆
0x7d0c0…7d0e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 65 67 6d 65 6e 74 3a 3d 20 77 31 3b 0a 20 20 20 ┆ segment:= w1; ┆
0x7d0e0…7d0fc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 20 28 77 33 29 2e 74 63 5f ┆ w1:= (w3).tc_┆
0x7d0fc…7d102 (0x324,0xfa3)
0x7d102…7d120 62 73 62 75 66 2b 35 31 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 ┆bsbuf+510; end┆
0x7d120…7d140 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 ┆ else ┆
0x7d140…7d160 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 73 74 61 72 74 20 6f 66 20 66 69 6c ┆ begin comment start of fil┆
0x7d160…7d17a 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e ┆e; (w3).┆
0x7d17a…7d180 (0x324,0xfa4)
0x7d180…7d1a0 74 63 5f 77 6f 72 6b 66 66 73 3a 3d 20 77 30 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆tc_workffs:= w0:= 0; ┆
0x7d1a0…7d1c0 20 20 20 20 20 20 20 67 6f 74 6f 20 6c 6f 6f 70 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ goto loop; ┆
0x7d1c0…7d1e0 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 20 21 20 65 6e 64 20 ┆ end; end; ! end ┆
0x7d1e0…7d200 67 65 74 20 73 65 67 6d 65 6e 74 20 21 0a 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆get segment ! ┆
0x7d200…7d206 (1001,) (0x324,0xfa5)
0x7d206…7d220 20 20 20 20 63 6f 6d 6d 65 6e 74 20 63 68 65 63 6b 20 6c 6f 6f 70 3b 0a 20 20 ┆ comment check loop; ┆
0x7d220…7d240 20 20 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 28 77 31 29 2e 77 6f 72 64 3b 0a 20 20 20 20 20 ┆ w0:=(w1).word; ┆
0x7d240…7d260 20 20 20 20 20 20 20 20 20 69 66 20 77 30 20 6f 6e 65 6d 61 73 6b 20 32 31 30 35 33 37 36 20 74 ┆ if w0 onemask 2105376 t┆
0x7d260…7d27e 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 20 ┆hen else ┆
0x7d27e…7d284 (0x324,0xfa6)
0x7d284…7d2a0 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 63 68 65 63 6b 20 63 ┆ begin comment check c┆
0x7d2a0…7d2c0 68 61 72 73 20 66 6f 72 20 6e 65 77 6c 69 6e 65 73 20 61 6e 64 20 66 66 27 73 3b 0a 20 20 20 20 ┆hars for newlines and ff's; ┆
0x7d2c0…7d2e0 20 20 20 20 20 20 20 20 20 20 20 20 72 65 6c 61 74 69 76 65 3a 3d 20 77 31 3b 0a 20 20 20 20 20 ┆ relative:= w1; ┆
0x7d2e0…7d2fc 20 20 20 20 20 20 20 20 20 20 20 77 68 69 6c 65 20 77 30 3c 3e 30 20 64 6f 0a 20 20 ┆ while w0<>0 do ┆
0x7d2fc…7d302 (0x324,0xfa7)
0x7d302…7d320 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 ┆ begin ┆
0x7d320…7d340 20 20 20 20 20 20 20 20 66 31 20 6c 73 68 69 66 74 20 2d 38 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆ f1 lshift -8; ┆
0x7d340…7d360 20 20 20 20 20 20 20 20 77 31 20 6c 73 68 69 66 74 2d 31 36 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆ w1 lshift-16; ┆
0x7d360…7d37a 20 20 20 20 20 20 20 20 69 66 20 77 31 3d 31 30 20 74 68 65 6e 0a 20 20 20 20 ┆ if w1=10 then ┆
0x7d37a…7d380 (0x324,0xfa8)
0x7d380…7d3a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ begin ┆
0x7d3a0…7d3c0 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 77 6f 72 6b 6e 6c 73 3a 3d 20 77 31 3a 3d 20 28 ┆ (w3).tc_worknls:= w1:= (┆
0x7d3c0…7d3e0 77 33 29 2e 74 63 5f 77 6f 72 6b 6e 6c 73 2b 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆w3).tc_worknls+1; ┆
0x7d3e0…7d400 20 20 20 20 20 20 69 66 20 77 31 3d 62 2e 70 72 6c 70 61 67 65 20 74 68 00 00 00 00 00 00 00 00 ┆ if w1=b.prlpage th ┆
0x7d400…7d406 (1002,) (0x324,0xfa9)
0x7d406…7d420 65 6e 20 77 31 3a 3d 20 31 32 20 65 6c 73 65 20 77 31 3a 3d 30 3b 0a 20 20 20 ┆en w1:= 12 else w1:=0; ┆
0x7d420…7d440 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ end; ┆
0x7d440…7d460 20 20 20 20 20 20 69 66 20 77 31 3d 31 32 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ if w1=12 then ┆
0x7d460…7d47e 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ begin ┆
0x7d47e…7d484 (0x324,0xfaa)
0x7d484…7d4a0 20 20 28 77 33 29 2e 74 63 5f 77 6f 72 6b 66 66 73 3a 3d 20 77 31 3a 3d 20 28 77 33 ┆ (w3).tc_workffs:= w1:= (w3┆
0x7d4a0…7d4c0 29 2e 74 63 5f 77 6f 72 6b 66 66 73 2d 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆).tc_workffs-1; ┆
0x7d4c0…7d4e0 20 20 20 20 28 77 33 29 2e 74 63 5f 77 6f 72 6b 6e 6c 73 3a 3d 20 77 31 3a 3d 20 30 3b 0a 20 20 ┆ (w3).tc_worknls:= w1:= 0; ┆
0x7d4e0…7d4fc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 ┆ end; ┆
0x7d4fc…7d502 (0x324,0xfab)
0x7d502…7d520 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ end; ┆
0x7d520…7d540 77 31 3a 3d 20 72 65 6c 61 74 69 76 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 ┆w1:= relative; end┆
0x7d540…7d560 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 2d 32 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆; w1-2; ┆
0x7d560…7d57a 20 20 20 20 65 6e 64 3b 20 21 20 65 6e 64 20 62 61 63 6b 73 70 61 63 65 20 21 ┆ end; ! end backspace !┆
0x7d57a…7d580 (0x324,0xfac)
0x7d580…7d5a0 0a 20 20 0a 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 20 28 77 31 2b 32 29 2e 77 6f 72 64 3b 0a ┆ w0:= (w1+2).word; ┆
0x7d5a0…7d5c0 20 20 20 20 20 20 20 20 20 20 20 20 72 65 6c 61 74 69 76 65 3a 3d 20 77 31 2d 28 77 33 29 2e 74 ┆ relative:= w1-(w3).t┆
0x7d5c0…7d5e0 63 5f 62 73 62 75 66 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 20 73 65 67 6d 65 6e ┆c_bsbuf; w2:= segmen┆
0x7d5e0…7d600 74 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 32 20 6c 73 68 69 66 74 00 00 00 00 00 00 00 00 ┆t; w2 lshift ┆
0x7d600…7d606 (1003,) (0x324,0xfad)
0x7d606…7d620 20 39 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 32 2b 72 65 6c 61 74 69 76 ┆ 9; w2+relativ┆
0x7d620…7d640 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 62 73 70 74 72 3a 3d 20 66 ┆e; (w3).tc_bsptr:= f┆
0x7d640…7d660 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 66 70 72 5f 73 62 73 70 74 72 3a 3d ┆2; (w3).fpr_sbsptr:=┆
0x7d660…7d67e 20 66 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 20 77 30 3b 20 21 20 77 30 ┆ f2; w2:= w0; ! w0┆
0x7d67e…7d684 (0x324,0xfae)
0x7d684…7d6a0 3d 77 32 3d 3d 77 6f 72 64 20 63 6f 6e 74 61 69 6e 69 6e 67 20 66 66 20 6f 72 20 6e ┆=w2==word containing ff or n┆
0x7d6a0…7d6c0 6c 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 ┆l ! w1:= 0; ┆
0x7d6c0…7d6e0 20 20 20 20 77 68 69 6c 65 20 77 30 3c 3e 30 20 64 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 ┆ while w0<>0 do b┆
0x7d6e0…7d6fc 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 20 6f 6e 65 ┆egin if w0 one┆
0x7d6fc…7d702 (0x324,0xfaf)
0x7d702…7d720 6d 61 73 6b 20 31 32 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 ┆mask 12 then if ┆
0x7d720…7d740 77 30 20 7a 65 72 6f 6d 61 73 6b 20 32 34 33 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 ┆w0 zeromask 243 then ┆
0x7d740…7d760 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 66 66 20 66 6f 75 6e 64 3b 0a 20 20 20 20 20 ┆ begin comment ff found; ┆
0x7d760…7d77a 20 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 20 31 32 3b 0a 20 20 20 20 20 20 ┆ w0:= 12; ┆
0x7d77a…7d780 (0x324,0xfb0)
0x7d780…7d7a0 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ w2:= 0; ┆
0x7d7a0…7d7c0 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 31 20 6c 73 68 69 66 74 20 2d 38 3b ┆end; f1 lshift -8;┆
0x7d7c0…7d7e0 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 ┆ end; if┆
0x7d7e0…7d800 20 77 30 3a 3d 77 32 3c 3e 30 20 74 68 65 6e 20 77 31 3a 3d 20 30 3b 0a 00 00 00 00 00 00 00 00 ┆ w0:=w2<>0 then w1:= 0; ┆
0x7d800…7d806 (1004,) (0x324,0xfb1)
0x7d806…7d820 20 20 20 20 20 20 20 20 20 20 20 20 77 68 69 6c 65 20 77 30 3c 3e 30 20 64 6f ┆ while w0<>0 do┆
0x7d820…7d840 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 6e 6f 20 66 66 ┆ begin comment no ff┆
0x7d840…7d860 20 66 6f 75 6e 64 20 66 69 6e 64 20 6e 65 77 6c 69 6e 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ found find newline; ┆
0x7d860…7d87e 20 20 20 69 66 20 77 30 20 6f 6e 65 6d 61 73 6b 20 31 30 20 74 68 65 6e 0a 20 20 20 20 20 ┆ if w0 onemask 10 then ┆
0x7d87e…7d884 (0x324,0xfb2)
0x7d884…7d8a0 20 20 20 20 20 20 20 20 20 69 66 20 77 30 20 7a 65 72 6f 6d 61 73 6b 20 32 34 35 20 ┆ if w0 zeromask 245 ┆
0x7d8a0…7d8c0 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 ┆then begin ┆
0x7d8c0…7d8e0 20 20 20 20 20 20 20 20 20 77 30 3a 3d 31 32 3b 20 21 20 72 65 70 6c 61 63 65 20 6e 65 77 6c 69 ┆ w0:=12; ! replace newli┆
0x7d8e0…7d8fc 6e 65 20 77 69 74 68 20 66 6f 72 6d 66 65 65 64 20 21 0a 20 20 20 20 20 20 20 20 20 ┆ne with formfeed ! ┆
0x7d8fc…7d902 (0x324,0xfb3)
0x7d902…7d920 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 31 20 6c 73 68 ┆ end; f1 lsh┆
0x7d920…7d940 69 66 74 20 2d 38 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 ┆ift -8; end; ┆
0x7d940…7d960 20 20 20 20 20 28 77 33 29 2e 66 70 72 5f 70 61 72 74 69 61 6c 3a 3d 20 77 31 3b 0a 20 20 20 20 ┆ (w3).fpr_partial:= w1; ┆
0x7d960…7d97a 20 20 20 20 20 20 65 6e 64 3b 20 21 20 65 6e 64 20 72 65 70 65 61 74 20 21 0a ┆ end; ! end repeat ! ┆
0x7d97a…7d980 (0x324,0xfb4)
0x7d980…7d9a0 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 72 65 73 74 61 72 74 3b ┆ begin comment restart;┆
0x7d9a0…7d9c0 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 30 3b 77 31 3a 3d 28 77 33 29 2e 66 70 72 5f ┆ w0:=0;w1:=(w3).fpr_┆
0x7d9c0…7d9e0 73 74 61 72 74 73 65 67 6d 65 6e 74 3b 66 31 20 6c 73 68 69 66 74 20 39 3b 0a 20 20 20 20 20 20 ┆startsegment;f1 lshift 9; ┆
0x7d9e0…7da00 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 62 73 70 74 72 3a 3d 20 66 31 00 00 00 00 00 00 00 00 ┆ (w3).tc_bsptr:= f1 ┆
0x7da00…7da06 (1005,) (0x324,0xfb5)
0x7da06…7da20 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 66 70 72 5f 70 61 72 ┆; (w3).fpr_par┆
0x7da20…7da40 74 69 61 6c 3a 3d 20 77 30 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e ┆tial:= w0:= 0; (w3).┆
0x7da40…7da60 74 63 5f 6f 69 6e 74 65 72 76 65 6e 74 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e ┆tc_ointervent:= w0; en┆
0x7da60…7da7e 64 3b 20 21 20 65 6e 64 20 72 65 73 74 61 72 74 20 21 0a 20 20 20 20 20 20 20 20 20 20 62 ┆d; ! end restart ! b┆
0x7da7e…7da84 (0x324,0xfb6)
0x7da84…7daa0 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 73 74 6f 70 20 63 6f 6d 6d 61 6e 64 3b 0a 20 ┆egin comment stop command; ┆
0x7daa0…7dac0 20 20 20 20 20 20 20 20 20 20 20 6f 70 72 6f 75 74 70 75 74 28 2e 77 33 2e 2c 77 30 3a 3d 31 2c ┆ oproutput(.w3.,w0:=1,┆
0x7dac0…7dae0 77 31 3a 3d 33 2c 77 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 32 3c 3e 32 20 ┆w1:=3,w2); if w2<>2 ┆
0x7dae0…7dafc 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 ┆then begin ┆
0x7dafc…7db02 (0x324,0xfb7)
0x7db02…7db20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3c 3e 77 30 20 74 68 65 6e 0a 20 20 20 20 20 20 ┆ if w0<>w0 then ┆
0x7db20…7db40 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 6e 6f 5f 6f 70 3a 20 20 20 20 20 20 20 20 20 20 77 32 ┆ begin no_op: w2┆
0x7db40…7db60 3a 3d 20 32 27 31 30 30 30 30 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a ┆:= 2'100000; end; ┆
0x7db60…7db7a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 73 74 61 74 ┆ (w3).tc_stat┆
0x7db7a…7db80 (0x324,0xfb8)
0x7db80…7dba0 65 3a 3d 20 77 30 3a 3d 20 36 3b 20 21 20 61 62 6f 72 74 65 64 20 21 0a 20 20 20 20 20 20 20 20 ┆e:= w0:= 6; ! aborted ! ┆
0x7dba0…7dbc0 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 63 61 75 73 65 3a 3d 20 77 30 3a 3d 20 33 3b 20 21 20 ┆ (w3).tc_cause:= w0:= 3; ! ┆
0x7dbc0…7dbe0 6f 70 65 72 61 74 6f 72 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f ┆operator! (w3).tc_┆
0x7dbe0…7dc00 73 74 61 74 75 73 3a 3d 20 77 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆status:= w2; ┆
0x7dc00…7dc06 (1006,) (0x324,0xfb9)
0x7dc06…7dc20 20 20 20 28 77 33 29 2e 74 63 5f 6f 69 6e 74 65 72 76 65 6e 74 3a 3d 20 77 30 ┆ (w3).tc_ointervent:= w0┆
0x7dc20…7dc40 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 66 70 72 5f 69 6e 70 ┆:= 0; (w3).fpr_inp┆
0x7dc40…7dc60 73 74 61 74 65 3a 3d 20 77 30 3a 3d 33 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 20 65 ┆state:= w0:=3; end e┆
0x7dc60…7dc7e 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 ┆lse begin ┆
0x7dc7e…7dc84 (0x324,0xfba)
0x7dc84…7dca0 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 6f 69 6e 74 65 72 76 65 6e 74 3a 3d 20 77 ┆ (w3).tc_ointervent:= w┆
0x7dca0…7dcc0 30 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 68 6f 6c 64 28 2e 77 33 2e 2c 77 30 ┆0:=0; hold(.w3.,w0┆
0x7dcc0…7dce0 3a 3d 61 64 64 72 65 73 73 28 6e 6f 5f 6f 70 29 29 3b 28 77 33 29 2e 74 63 5f 68 65 6c 64 3a 3d ┆:=address(no_op));(w3).tc_held:=┆
0x7dce0…7dcfc 77 30 3a 3d 30 3b 28 77 33 29 2e 74 63 5f 68 65 6c 64 3a 3d 20 77 30 3a 3d 20 30 3b ┆w0:=0;(w3).tc_held:= w0:= 0;┆
0x7dcfc…7dd02 (0x324,0xfbb)
0x7dd02…7dd20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 6c 6f 6f 70 3b 0a 20 20 20 20 ┆ goto loop; ┆
0x7dd20…7dd40 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 20 21 20 65 6e ┆ end; end; ! en┆
0x7dd40…7dd60 64 20 73 74 6f 70 20 61 63 74 69 6f 6e 20 21 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 ┆d stop action ! begin ┆
0x7dd60…7dd7a 63 6f 6d 6d 65 6e 74 20 6b 69 6c 6c 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆comment kill; ┆
0x7dd7a…7dd80 (0x324,0xfbc)
0x7dd80…7dda0 28 77 33 29 2e 74 63 5f 73 74 61 74 65 3a 3d 20 77 30 3a 3d 20 37 3b 20 21 20 6b 69 6c 6c 65 64 ┆(w3).tc_state:= w0:= 7; ! killed┆
0x7dda0…7ddc0 20 62 79 20 6f 70 65 72 61 74 6f 72 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e ┆ by operator ! (w3).┆
0x7ddc0…7dde0 74 63 5f 6f 69 6e 74 65 72 76 65 6e 74 3a 3d 20 77 30 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 ┆tc_ointervent:= w0:= 0; ┆
0x7dde0…7de00 20 20 20 20 28 77 33 29 2e 66 70 72 5f 69 6e 70 73 74 61 74 65 3a 3d 20 00 00 00 00 00 00 00 00 ┆ (w3).fpr_inpstate:= ┆
0x7de00…7de06 (1007,) (0x324,0xfbd)
0x7de06…7de20 77 30 3a 3d 20 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3a ┆w0:= 1; if w0:┆
0x7de20…7de40 3d 20 28 77 33 29 2e 74 63 5f 63 61 75 73 65 3d 32 20 74 68 65 6e 20 67 6f 74 6f 20 63 6c 6f 73 ┆= (w3).tc_cause=2 then goto clos┆
0x7de40…7de60 65 75 70 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b ┆eup; end; end;┆
0x7de60…7de7e 20 21 20 65 6e 64 20 63 61 73 65 20 21 0a 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d ┆ ! end case ! if w0:=┆
0x7de7e…7de84 (0x324,0xfbe)
0x7de84…7dea0 20 28 77 33 29 2e 74 63 5f 61 69 6e 74 65 72 76 65 6e 74 3c 3e 30 20 74 68 65 6e 0a ┆ (w3).tc_aintervent<>0 then ┆
0x7dea0…7dec0 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f ┆ begin (w3).tc_┆
0x7dec0…7dee0 73 74 61 74 65 3a 3d 20 77 30 3a 3d 20 38 3b 0a 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 ┆state:= w0:= 8; (w3).t┆
0x7dee0…7defc 63 5f 61 69 6e 74 65 72 76 65 6e 74 3a 3d 20 77 30 3a 3d 20 30 3b 0a 20 20 20 20 20 ┆c_aintervent:= w0:= 0; ┆
0x7defc…7df02 (0x324,0xfbf)
0x7df02…7df20 20 20 20 20 20 28 77 33 29 2e 66 70 72 5f 69 6e 70 73 74 61 74 65 3a 3d 20 77 30 3a 3d 20 ┆ (w3).fpr_inpstate:= w0:= ┆
0x7df20…7df40 32 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 0a 20 20 20 20 20 20 20 20 63 61 73 65 20 77 32 ┆2; end; case w2┆
0x7df40…7df60 20 3a 3d 20 28 77 33 29 2e 66 70 72 5f 69 6e 70 73 74 61 74 65 2b 31 20 6f 66 0a 0a 20 20 20 20 ┆ := (w3).fpr_inpstate+1 of ┆
0x7df60…7df7a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 ┆ begin begin ┆
0x7df7a…7df80 (0x324,0xfc0)
0x7df80…7dfa0 63 6f 6d 6d 65 6e 74 20 6e 6f 72 6d 61 6c 20 69 6e 70 75 74 20 6d 6f 64 65 3b 0a 20 20 20 20 20 ┆comment normal input mode; ┆
0x7dfa0…7dfc0 20 20 20 20 20 20 20 67 65 74 6c 69 6e 65 73 28 2e 77 33 2e 2c 77 30 2c 77 32 29 3b 0a 20 20 20 ┆ getlines(.w3.,w0,w2); ┆
0x7dfc0…7dfe0 20 20 20 20 20 20 20 20 20 69 66 20 77 30 20 3c 3d 20 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 ┆ if w0 <= 0 then ┆
0x7dfe0…7e000 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ begin ┆
0x7e000…7e006 (1008,) (0x324,0xfc1)
0x7e006…7e020 20 28 77 33 29 2e 66 70 72 5f 75 73 65 64 62 6c 6f 63 6b 3a 3d 20 77 30 3a 3d ┆ (w3).fpr_usedblock:= w0:=┆
0x7e020…7e040 20 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 73 74 61 74 65 20 ┆ 0; (w3).tc_state ┆
0x7e040…7e060 3a 3d 20 77 31 20 3a 3d 20 36 3b 20 21 20 61 62 6f 72 74 65 64 20 21 0a 20 20 20 20 20 20 20 20 ┆:= w1 := 6; ! aborted ! ┆
0x7e060…7e07e 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 63 61 75 73 65 20 3a 3d 20 77 31 20 3a 3d 20 31 ┆ (w3).tc_cause := w1 := 1┆
0x7e07e…7e084 (0x324,0xfc2)
0x7e084…7e0a0 3b 20 21 20 73 65 6e 64 65 72 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆; ! sender ! ┆
0x7e0a0…7e0c0 28 77 33 29 2e 74 63 5f 73 74 61 74 75 73 3a 3d 20 77 32 20 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆(w3).tc_status:= w2 ; ┆
0x7e0c0…7e0e0 20 20 20 20 67 6f 74 6f 20 63 6c 6f 73 65 75 70 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e ┆ goto closeup; en┆
0x7e0e0…7e0fc 64 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 20 21 20 65 6e 64 20 6e 6f 72 6d ┆d; end; ! end norm┆
0x7e0fc…7e102 (0x324,0xfc3)
0x7e102…7e120 61 6c 20 69 6e 70 75 74 20 6d 6f 64 65 20 21 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 ┆al input mode ! begi┆
0x7e120…7e140 6e 20 63 6f 6d 6d 65 6e 74 20 6b 69 6c 6c 65 64 20 62 79 20 6f 70 65 72 61 74 6f 72 3b 0a 0a 20 ┆n comment killed by operator; ┆
0x7e140…7e160 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 28 77 33 29 2e 74 63 5f 62 75 66 3b 0a 20 20 20 20 ┆ w1:=(w3).tc_buf; ┆
0x7e160…7e17a 20 20 20 20 20 20 20 20 77 32 3a 3d 20 61 64 64 72 65 73 73 28 28 77 31 29 2e ┆ w2:= address((w1).┆
0x7e17a…7e180 (0x324,0xfc4)
0x7e180…7e1a0 62 75 66 5f 64 61 74 61 31 29 2b 34 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f 76 65 28 2e ┆buf_data1)+4; move(.┆
0x7e1a0…7e1c0 77 33 2e 2c 77 30 3a 3d 31 38 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 74 5f 6f 70 72 6b 69 6c 6c ┆w3.,w0:=18,w1:=address(t_oprkill┆
0x7e1c0…7e1e0 29 2c 77 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 30 2b 34 3b 0a 20 20 20 20 20 20 20 ┆),w2); w0+4; ┆
0x7e1e0…7e200 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 00 00 00 00 00 00 00 00 ┆ end; begin ┆
0x7e200…7e206 (1009,) (0x324,0xfc5)
0x7e206…7e220 63 6f 6d 6d 65 6e 74 20 6b 69 6c 6c 65 64 20 62 79 20 61 70 70 6c 69 63 61 74 ┆comment killed by applicat┆
0x7e220…7e240 69 6f 6e 3b 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 28 77 33 29 2e 74 63 5f 62 75 ┆ion; w1:=(w3).tc_bu┆
0x7e240…7e260 66 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 20 61 64 64 72 65 73 73 28 28 77 31 29 ┆f; w2:= address((w1)┆
0x7e260…7e27e 2e 62 75 66 5f 64 61 74 61 31 29 2b 34 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f 76 ┆.buf_data1)+4; mov┆
0x7e27e…7e284 (0x324,0xfc6)
0x7e284…7e2a0 65 28 2e 77 33 2e 2c 77 30 3a 3d 32 30 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 74 5f ┆e(.w3.,w0:=20,w1:=address(t_┆
0x7e2a0…7e2c0 61 70 6c 6b 69 6c 6c 29 2c 77 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 30 2b 34 3b 0a ┆aplkill),w2); w0+4; ┆
0x7e2c0…7e2e0 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 ┆ end; begin c┆
0x7e2e0…7e2fc 6f 6d 6d 65 6e 74 20 6f 70 65 72 61 74 6f 72 20 64 65 76 69 63 65 20 66 61 75 6c 74 ┆omment operator device fault┆
0x7e2fc…7e302 (0x324,0xfc7)
0x7e302…7e320 3b 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 28 77 33 29 2e 74 63 5f 62 75 66 ┆; w1:=(w3).tc_buf┆
0x7e320…7e340 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 20 61 64 64 72 65 73 73 28 28 77 31 29 2e ┆; w2:= address((w1).┆
0x7e340…7e360 62 75 66 5f 64 61 74 61 31 29 2b 34 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f 76 65 28 2e ┆buf_data1)+4; move(.┆
0x7e360…7e37a 77 33 2e 2c 77 30 3a 3d 32 30 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 74 5f 6f ┆w3.,w0:=20,w1:=address(t_o┆
0x7e37a…7e380 (0x324,0xfc8)
0x7e380…7e3a0 70 72 66 61 75 6c 74 29 2c 77 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 30 2b 34 3b 0a ┆prfault),w2); w0+4; ┆
0x7e3a0…7e3c0 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 21 ┆ end; begin !┆
0x7e3c0…7e3e0 20 65 6e 64 20 6f 66 20 69 6e 70 75 74 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d ┆ end of input ! w0:=┆
0x7e3e0…7e400 20 30 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ 0; end; ┆
0x7e400…7e406 (1010,) (0x324,0xfc9)
0x7e406…7e420 20 20 20 20 20 62 65 67 69 6e 20 21 20 63 6f 6d 70 6c 65 74 65 64 20 21 0a 20 ┆ begin ! completed ! ┆
0x7e420…7e440 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 63 6c 6f 73 65 75 70 3b 0a 20 20 20 20 20 20 20 ┆ goto closeup; ┆
0x7e440…7e460 20 20 20 65 6e 64 3b 0a 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 20 20 21 20 65 6e 64 20 63 61 73 ┆ end; end; ! end cas┆
0x7e460…7e47e 65 20 21 0a 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 20 3e 20 30 20 74 68 65 6e 20 0a 20 ┆e ! if w0 > 0 then ┆
0x7e47e…7e484 (0x324,0xfca)
0x7e484…7e4a0 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 77 72 69 74 65 20 6e ┆ begin comment write n┆
0x7e4a0…7e4c0 65 78 74 20 6f 75 74 70 75 74 20 62 6c 6f 63 6b 3b 0a 20 20 20 0a 20 20 20 20 20 20 20 20 20 20 ┆ext output block; ┆
0x7e4c0…7e4e0 77 31 20 3a 3d 20 28 77 33 29 2e 74 63 5f 62 75 66 3b 0a 20 20 20 20 20 20 20 20 20 20 28 77 31 ┆w1 := (w3).tc_buf; (w1┆
0x7e4e0…7e4fc 29 2e 62 75 66 5f 66 69 72 73 74 3a 3d 20 77 32 3a 3d 20 61 64 64 72 65 73 73 28 28 ┆).buf_first:= w2:= address((┆
0x7e4fc…7e502 (0x324,0xfcb)
0x7e502…7e520 77 31 29 2e 62 75 66 5f 64 61 74 61 31 29 3b 0a 20 20 20 20 20 20 20 20 20 20 77 32 2b 77 ┆w1).buf_data1); w2+w┆
0x7e520…7e540 30 2d 32 3b 28 77 31 29 2e 62 75 66 5f 6c 61 73 74 3a 3d 20 77 32 3b 0a 20 20 20 20 20 20 20 20 ┆0-2;(w1).buf_last:= w2; ┆
0x7e540…7e560 20 20 28 77 31 29 2e 62 75 66 5f 6f 70 3a 3d 20 77 30 3a 3d 20 35 3b 0a 20 20 20 20 20 20 20 20 ┆ (w1).buf_op:= w0:= 5; ┆
0x7e560…7e57a 20 20 28 77 31 29 2e 62 75 66 5f 6d 6f 64 65 20 3a 3d 20 77 30 20 3a 3d 20 30 ┆ (w1).buf_mode := w0 := 0┆
0x7e57a…7e580 (0x324,0xfcc)
0x7e580…7e5a0 3b 0a 20 20 20 20 20 20 20 20 20 20 28 77 31 3a 3d 28 77 31 29 2e 62 75 66 5f 66 69 72 73 74 29 ┆; (w1:=(w1).buf_first)┆
0x7e5a0…7e5c0 2e 77 6f 72 64 20 3a 3d 20 77 32 3a 3d 20 28 77 33 29 2e 66 70 72 5f 74 72 61 6e 73 69 64 3b 20 ┆.word := w2:= (w3).fpr_transid; ┆
0x7e5c0…7e5e0 21 20 63 75 2c 64 65 76 2c 65 73 63 21 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 ┆! cu,dev,esc! if w0:=(┆
0x7e5e0…7e600 77 33 29 2e 66 70 72 5f 69 6e 70 73 74 61 74 65 3d 30 20 74 68 65 6e 0a 00 00 00 00 00 00 00 00 ┆w3).fpr_inpstate=0 then ┆
0x7e600…7e606 (1011,) (0x324,0xfcd)
0x7e606…7e620 20 20 20 20 20 20 20 20 20 20 28 77 31 2b 32 29 2e 77 6f 72 64 20 3a 3d 20 77 ┆ (w1+2).word := w┆
0x7e620…7e640 30 20 3a 3d 20 6f 70 72 68 65 61 64 30 20 20 20 20 20 21 20 74 72 61 6e 73 68 65 61 64 31 20 3a ┆0 := oprhead0 ! transhead1 :┆
0x7e640…7e660 3d 20 77 63 6f 64 65 2c 77 63 63 2c 75 73 6d 20 21 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 ┆= wcode,wcc,usm ! else ┆
0x7e660…7e67e 20 28 77 31 2b 32 29 2e 77 6f 72 64 20 3a 3d 20 77 30 20 3a 3d 20 6f 70 72 68 65 61 64 31 ┆ (w1+2).word := w0 := oprhead1┆
0x7e67e…7e684 (0x324,0xfce)
0x7e684…7e6a0 3b 20 20 20 20 21 20 74 72 61 6e 73 68 65 61 64 31 20 3a 3d 20 77 63 6f 64 65 2c 77 ┆; ! transhead1 := wcode,w┆
0x7e6a0…7e6c0 63 63 2c 63 72 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 20 28 77 33 29 2e 74 63 5f ┆cc,cr ! w1:= (w3).tc_┆
0x7e6c0…7e6e0 62 75 66 3b 0a 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 20 28 77 31 29 2e 62 75 66 5f 6c 61 73 ┆buf; w0:= (w1).buf_las┆
0x7e6e0…7e6fc 74 2d 28 77 31 29 2e 62 75 66 5f 66 69 72 73 74 2b 32 3b 0a 20 20 20 20 20 20 20 20 ┆t-(w1).buf_first+2; ┆
0x7e6fc…7e702 (0x324,0xfcf)
0x7e702…7e720 20 20 74 65 73 74 6f 75 74 28 2e 77 33 2e 2c 77 30 2c 77 31 3a 3d 20 61 64 64 72 65 73 73 ┆ testout(.w3.,w0,w1:= address┆
0x7e720…7e740 28 28 77 31 29 2e 62 75 66 5f 64 61 74 61 31 29 2c 77 32 3a 3d 30 29 3b 0a 72 65 70 3a 0a 0a 20 ┆((w1).buf_data1),w2:=0); rep: ┆
0x7e740…7e760 20 20 20 20 20 20 20 20 20 77 31 20 3a 3d 20 28 77 33 29 2e 74 63 5f 62 75 66 3b 0a 20 20 20 20 ┆ w1 := (w3).tc_buf; ┆
0x7e760…7e77a 20 20 20 20 20 20 73 65 6e 64 77 61 69 74 28 2e 77 33 2e 2c 77 30 2c 77 31 2c ┆ sendwait(.w3.,w0,w1,┆
0x7e77a…7e780 (0x324,0xfd0)
0x7e780…7e7a0 77 32 3a 3d 61 64 64 72 65 73 73 28 28 77 33 3a 3d 28 77 33 29 2e 66 70 72 5f 73 74 63 6f 72 6f ┆w2:=address((w3:=(w3).fpr_stcoro┆
0x7e7a0…7e7c0 75 74 29 2e 66 70 72 5f 70 72 6f 63 6f 75 74 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 77 32 3a ┆ut).fpr_procout)); w2:┆
0x7e7c0…7e7e0 3d 20 31 20 6c 73 68 69 66 74 20 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 32 3d 32 ┆= 1 lshift w0; if w2=2┆
0x7e7e0…7e800 20 74 68 65 6e 20 77 32 20 6f 72 20 62 2e 61 6e 73 5f 73 74 61 74 75 73 00 00 00 00 00 00 00 00 ┆ then w2 or b.ans_status ┆
0x7e800…7e806 (1012,) (0x324,0xfd1)
0x7e806…7e820 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 32 3d 32 30 39 37 31 35 34 20 ┆; if w2=2097154 ┆
0x7e820…7e840 21 20 74 69 6d 65 72 20 73 74 61 74 75 73 20 6f 6e 20 6f 75 74 70 75 74 20 6c 69 6e 6b 20 21 20 ┆! timer status on output link ! ┆
0x7e840…7e860 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 ┆then begin ┆
0x7e860…7e87e 20 28 77 33 29 2e 74 63 5f 73 74 61 74 75 73 3a 3d 20 77 32 3b 0a 20 20 20 20 20 20 20 20 ┆ (w3).tc_status:= w2; ┆
0x7e87e…7e884 (0x324,0xfd2)
0x7e884…7e8a0 20 20 20 20 6f 70 72 6f 75 74 70 75 74 28 2e 77 33 2e 2c 77 30 3a 3d 31 2c 77 31 3a ┆ oproutput(.w3.,w0:=1,w1:┆
0x7e8a0…7e8c0 3d 31 36 2c 77 32 29 3b 20 21 20 64 69 73 63 6f 6e 6e 65 63 74 65 64 20 21 0a 20 20 20 20 20 20 ┆=16,w2); ! disconnected ! ┆
0x7e8c0…7e8e0 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 73 74 61 74 65 3a 3d 20 77 30 3a 3d 20 36 3b 0a 20 20 ┆ (w3).tc_state:= w0:= 6; ┆
0x7e8e0…7e8fc 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 63 61 75 73 65 3a 3d 20 77 30 ┆ (w3).tc_cause:= w0┆
0x7e8fc…7e902 (0x324,0xfd3)
0x7e902…7e920 3a 3d 20 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 63 6c 6f 73 65 75 70 ┆:= 2; goto closeup┆
0x7e920…7e940 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 32 ┆; end; if w2┆
0x7e940…7e960 3d 32 20 74 68 65 6e 20 77 61 69 74 5f 73 74 61 74 75 73 28 2e 77 33 2e 2c 77 30 3a 3d 32 29 20 ┆=2 then wait_status(.w3.,w0:=2) ┆
0x7e960…7e97a 65 6c 73 65 20 28 77 33 29 2e 66 70 72 5f 73 74 61 74 75 73 3a 3d 20 77 32 3b ┆else (w3).fpr_status:= w2;┆
0x7e97a…7e980 (0x324,0xfd4)
0x7e980…7e9a0 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 32 3a 3d 28 77 33 29 2e 66 70 72 5f 73 74 61 74 75 ┆ if w2:=(w3).fpr_statu┆
0x7e9a0…7e9c0 73 3c 3e 32 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 ┆s<>2 then begin ┆
0x7e9c0…7e9e0 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 73 74 61 74 75 73 3a 3d 20 77 32 3b 0a 20 20 20 20 20 ┆ (w3).tc_status:= w2; ┆
0x7e9e0…7ea00 20 20 20 20 20 20 20 69 66 20 77 32 3d 34 20 21 20 72 65 6a 65 63 74 65 00 00 00 00 00 00 00 00 ┆ if w2=4 ! rejecte ┆
0x7ea00…7ea06 (1013,) (0x324,0xfd5)
0x7ea06…7ea20 64 20 21 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e ┆d ! then begin┆
0x7ea20…7ea40 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 20 61 64 64 72 65 73 73 28 28 77 33 3a ┆ w3:= address((w3:┆
0x7ea40…7ea60 3d 28 77 33 29 2e 66 70 72 5f 73 74 63 6f 72 6f 75 74 29 2e 66 70 72 5f 70 72 6f 63 6f 75 74 29 ┆=(w3).fpr_stcorout).fpr_procout)┆
0x7ea60…7ea7e 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 38 29 3b 0a 20 20 ┆; monitor(8); ┆
0x7ea7e…7ea84 (0x324,0xfd6)
0x7ea84…7eaa0 20 20 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 20 62 2e 63 75 72 72 65 6e 74 3b 0a ┆ w3:= b.current; ┆
0x7eaa0…7eac0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3d 30 20 74 68 65 6e 20 67 6f 74 6f 20 ┆ if w0=0 then goto ┆
0x7eac0…7eae0 72 65 70 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆rep; end; ┆
0x7eae0…7eafc 20 20 28 77 33 29 2e 74 63 5f 73 74 61 74 65 3a 3d 20 77 30 3a 3d 20 36 3b 20 21 20 ┆ (w3).tc_state:= w0:= 6; ! ┆
0x7eafc…7eb02 (0x324,0xfd7)
0x7eb02…7eb20 61 62 6f 72 74 65 64 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f ┆aborted ! (w3).tc_┆
0x7eb20…7eb40 63 61 75 73 65 3a 3d 20 77 30 3a 3d 20 32 3b 20 21 20 72 65 63 65 69 76 65 72 21 0a 20 20 20 20 ┆cause:= w0:= 2; ! receiver! ┆
0x7eb40…7eb60 20 20 20 20 20 20 20 20 6f 70 72 6f 75 74 70 75 74 28 2e 77 33 2e 2c 77 30 3a 3d 32 2c 77 31 3a ┆ oproutput(.w3.,w0:=2,w1:┆
0x7eb60…7eb7a 3d 32 2c 77 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 63 ┆=2,w2); goto c┆
0x7eb7a…7eb80 (0x324,0xfd8)
0x7eb80…7eba0 6c 6f 73 65 75 70 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 ┆loseup; end; ┆
0x7eba0…7ebc0 20 69 66 20 77 30 3a 3d 28 77 33 29 2e 66 70 72 5f 64 65 76 73 74 61 74 75 73 3c 3e 20 64 65 76 ┆ if w0:=(w3).fpr_devstatus<> dev┆
0x7ebc0…7ebe0 5f 65 6e 64 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3c 3e 20 61 64 70 5f ┆_end then if w0<> adp_┆
0x7ebe0…7ec00 65 6e 64 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 00 00 00 00 00 00 00 00 ┆end then begin ┆
0x7ec00…7ec06 (1014,) (0x324,0xfd9)
0x7ec06…7ec20 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3d 64 65 76 5f 6f 66 66 ┆ if w0=dev_off┆
0x7ec20…7ec40 6c 69 6e 65 20 74 68 65 6e 20 77 31 3a 3d 31 33 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 ┆line then w1:=13 else ┆
0x7ec40…7ec60 20 20 69 66 20 77 30 3d 64 65 76 5f 75 6e 61 76 61 69 6c 65 61 62 6c 65 20 74 68 65 6e 20 77 31 ┆ if w0=dev_unavaileable then w1┆
0x7ec60…7ec7e 3a 3d 20 31 31 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3d 64 ┆:= 11 else if w0=d┆
0x7ec7e…7ec84 (0x324,0xfda)
0x7ec84…7eca0 65 76 5f 62 75 73 79 20 74 68 65 6e 20 77 31 3a 3d 20 31 32 20 65 6c 73 65 0a 20 20 ┆ev_busy then w1:= 12 else ┆
0x7eca0…7ecc0 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3d 64 65 76 5f 63 6d 64 65 72 72 6f 72 20 74 68 65 ┆ if w0=dev_cmderror the┆
0x7ecc0…7ece0 6e 20 77 31 3a 3d 20 31 34 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 ┆n w1:= 14 else if w0┆
0x7ece0…7ecfc 3d 61 64 70 5f 6e 72 65 61 64 79 20 74 68 65 6e 20 77 31 3a 3d 20 31 33 20 65 6c 73 ┆=adp_nready then w1:= 13 els┆
0x7ecfc…7ed02 (0x324,0xfdb)
0x7ed02…7ed20 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3d 61 64 70 5f 74 6f 75 74 20 74 ┆e if w0=adp_tout t┆
0x7ed20…7ed40 68 65 6e 20 77 31 3a 3d 20 31 33 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 ┆hen w1:= 13 else if ┆
0x7ed40…7ed60 77 30 3d 61 64 70 5f 6f 66 66 6c 69 6e 65 20 74 68 65 6e 20 77 31 3a 3d 20 31 33 20 65 6c 73 65 ┆w0=adp_offline then w1:= 13 else┆
0x7ed60…7ed7a 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3d 61 64 70 5f 75 6e 61 ┆ if w0=adp_una┆
0x7ed7a…7ed80 (0x324,0xfdc)
0x7ed80…7eda0 76 20 74 68 65 6e 20 77 31 3a 3d 20 31 31 20 65 6c 73 65 20 77 31 3a 3d 20 31 35 3b 20 21 20 75 ┆v then w1:= 11 else w1:= 15; ! u┆
0x7eda0…7edc0 6e 65 78 70 65 63 74 65 64 20 72 65 73 75 6c 74 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 6f ┆nexpected result ! o┆
0x7edc0…7ede0 70 72 6f 75 74 70 75 74 28 2e 77 33 2e 2c 77 30 3a 3d 31 2c 77 31 2c 77 32 3a 3d 28 77 33 29 2e ┆proutput(.w3.,w0:=1,w1,w2:=(w3).┆
0x7ede0…7ee00 66 70 72 5f 64 65 76 73 74 61 74 75 73 29 3b 0a 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆fpr_devstatus); ┆
0x7ee00…7ee06 (1015,) (0x324,0xfdd)
0x7ee06…7ee20 20 20 20 20 28 77 33 29 2e 74 63 5f 73 74 61 74 75 73 3a 3d 20 77 30 3a 3d 20 ┆ (w3).tc_status:= w0:= ┆
0x7ee20…7ee40 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 73 74 61 74 65 3a 3d 20 77 ┆2; (w3).tc_state:= w┆
0x7ee40…7ee60 30 3a 3d 20 36 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 63 61 75 73 65 ┆0:= 6; (w3).tc_cause┆
0x7ee60…7ee7e 3a 3d 20 77 30 3a 3d 20 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 68 6f 6c 64 28 2e 77 ┆:= w0:= 2; hold(.w┆
0x7ee7e…7ee84 (0x324,0xfde)
0x7ee84…7eea0 33 2e 2c 77 30 3a 3d 61 64 64 72 65 73 73 28 6e 6f 5f 6f 70 29 29 3b 28 77 33 29 2e ┆3.,w0:=address(no_op));(w3).┆
0x7eea0…7eec0 74 63 5f 68 65 6c 64 3a 3d 20 77 30 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 77 ┆tc_held:= w0:= 0; (w┆
0x7eec0…7eee0 33 29 2e 66 70 72 5f 70 61 72 74 69 61 6c 3a 3d 20 77 30 3a 3d 20 28 77 33 29 2e 66 70 72 5f 73 ┆3).fpr_partial:= w0:= (w3).fpr_s┆
0x7eee0…7eefc 70 61 72 74 69 61 6c 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 63 ┆partial; (w3).tc┆
0x7eefc…7ef02 (0x324,0xfdf)
0x7ef02…7ef20 5f 62 73 70 74 72 3a 3d 20 66 31 3a 3d 20 28 77 33 29 2e 66 70 72 5f 73 62 73 70 74 72 3b ┆_bsptr:= f1:= (w3).fpr_sbsptr;┆
0x7ef20…7ef40 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 20 28 77 33 29 2e 66 70 72 5f 69 6e ┆ if w0:= (w3).fpr_in┆
0x7ef40…7ef60 70 73 74 61 74 65 3d 34 20 74 68 65 6e 20 28 77 33 29 2e 66 70 72 5f 69 6e 70 73 74 61 74 65 3a ┆pstate=4 then (w3).fpr_inpstate:┆
0x7ef60…7ef7a 3d 20 77 30 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 77 33 29 ┆= w0:= 0; (w3)┆
0x7ef7a…7ef80 (0x324,0xfe0)
0x7ef80…7efa0 2e 74 63 5f 63 73 65 67 6e 6f 3a 3d 20 77 30 3a 3d 20 2d 31 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆.tc_csegno:= w0:= -1; ┆
0x7efa0…7efc0 20 20 69 66 20 77 30 3a 3d 20 28 77 33 29 2e 66 70 72 5f 64 65 76 73 74 61 74 75 73 3d 61 64 70 ┆ if w0:= (w3).fpr_devstatus=adp┆
0x7efc0…7efe0 5f 75 6e 61 76 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 ┆_unav then begin ┆
0x7efe0…7f000 20 20 20 20 20 20 20 20 20 20 20 21 20 73 65 6e 64 20 72 65 73 65 72 76 00 00 00 00 00 00 00 00 ┆ ! send reserv ┆
0x7f000…7f006 (1016,) (0x324,0xfe1)
0x7f006…7f020 65 20 70 72 69 6e 74 65 72 20 6d 65 73 73 61 67 65 20 21 0a 20 20 20 20 20 20 ┆e printer message ! ┆
0x7f020…7f040 20 20 20 20 20 20 20 20 77 31 3a 3d 20 28 77 33 29 2e 74 63 5f 62 75 66 3b 0a 20 20 20 20 20 20 ┆ w1:= (w3).tc_buf; ┆
0x7f040…7f060 20 20 20 20 20 20 20 20 28 77 31 29 2e 62 75 66 5f 6f 70 3a 3d 20 77 30 3a 3d 20 34 3b 0a 20 20 ┆ (w1).buf_op:= w0:= 4; ┆
0x7f060…7f07e 20 20 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 62 75 66 5f 6d 6f 64 65 3a 3d 20 77 30 ┆ (w1).buf_mode:= w0┆
0x7f07e…7f084 (0x324,0xfe2)
0x7f084…7f0a0 3a 3d 20 31 36 3b 20 21 20 72 65 73 65 72 76 65 20 70 72 69 6e 74 65 72 20 21 0a 20 ┆:= 16; ! reserve printer ! ┆
0x7f0a0…7f0c0 20 20 20 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 20 28 77 33 29 2e 66 70 72 5f 70 6c 63 75 64 ┆ w0:= (w3).fpr_plcud┆
0x7f0c0…7f0e0 65 76 3b 20 21 20 63 75 20 64 65 76 69 63 65 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ev; ! cu device ! ┆
0x7f0e0…7f0fc 28 77 31 29 2e 62 75 66 5f 6c 61 73 74 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 20 ┆(w1).buf_last:= w0; ┆
0x7f0fc…7f102 (0x324,0xfe3)
0x7f102…7f120 20 20 20 20 20 20 77 32 3a 3d 20 61 64 64 72 65 73 73 28 28 77 32 3a 3d 28 77 33 29 2e 66 ┆ w2:= address((w2:=(w3).f┆
0x7f120…7f140 70 72 5f 73 74 63 6f 72 6f 75 74 29 2e 66 70 72 5f 70 72 6f 63 6f 75 74 29 3b 0a 20 20 20 20 20 ┆pr_stcorout).fpr_procout); ┆
0x7f140…7f160 20 20 20 20 20 20 20 20 20 73 65 6e 64 77 61 69 74 20 28 2e 77 33 2e 2c 20 77 30 2c 20 77 31 2c ┆ sendwait (.w3., w0, w1,┆
0x7f160…7f17a 20 77 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 ┆ w2); end; ┆
0x7f17a…7f180 (0x324,0xfe4)
0x7f180…7f1a0 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 6c 6f 6f 70 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e ┆ goto loop; en┆
0x7f1a0…7f1c0 64 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 20 28 77 33 29 2e 66 70 72 5f 69 6e ┆d; if w0:= (w3).fpr_in┆
0x7f1c0…7f1e0 70 73 74 61 74 65 3c 3e 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 66 70 ┆pstate<>0 then (w3).fp┆
0x7f1e0…7f200 72 5f 69 6e 70 73 74 61 74 65 3a 3d 20 77 30 3a 3d 20 35 3b 0a 0a 20 20 00 00 00 00 00 00 00 00 ┆r_inpstate:= w0:= 5; ┆
0x7f200…7f206 (1017,) (0x324,0xfe5)
0x7f206…7f220 20 20 20 20 20 20 65 6e 64 3b 20 20 21 20 65 6e 64 20 77 72 69 74 65 20 6e 65 ┆ end; ! end write ne┆
0x7f220…7f240 78 74 20 6f 75 74 70 75 74 20 62 6c 6f 63 6b 20 21 0a 20 20 20 20 20 20 20 20 67 6f 74 6f 20 6c ┆xt output block ! goto l┆
0x7f240…7f260 6f 6f 70 3b 0a 63 6c 6f 73 65 75 70 3a 0a 20 20 20 20 20 20 20 20 63 6c 6f 73 65 62 73 28 2e 77 ┆oop; closeup: closebs(.w┆
0x7f260…7f27e 33 2e 29 3b 0a 20 20 20 20 20 20 20 20 75 70 64 61 74 65 74 72 61 6e 73 70 6f 72 74 28 2e ┆3.); updatetransport(.┆
0x7f27e…7f284 (0x324,0xfe6)
0x7f284…7f2a0 77 33 2e 29 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 20 62 2e 6f 70 72 74 ┆w3.); if w0:= b.oprt┆
0x7f2a0…7f2c0 64 65 74 61 69 6c 73 20 6f 6e 65 6d 61 73 6b 20 31 20 74 68 65 6e 20 6f 70 72 6f 75 74 70 75 74 ┆details onemask 1 then oproutput┆
0x7f2c0…7f2e0 28 2e 77 33 2e 2c 77 30 3a 3d 31 2c 77 31 3a 3d 34 2c 77 32 3a 3d 28 77 33 29 2e 74 63 5f 73 74 ┆(.w3.,w0:=1,w1:=4,w2:=(w3).tc_st┆
0x7f2e0…7f2fc 61 74 65 29 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 73 75 69 63 69 64 65 3a 0a 20 20 ┆ate); end; suicide: ┆
0x7f2fc…7f302 (0x324,0xfe7)
0x7f302…7f320 20 20 20 20 64 69 73 63 5f 33 32 37 30 20 28 2e 77 33 2e 29 3b 0a 20 20 20 20 20 20 72 65 ┆ disc_3270 (.w3.); re┆
0x7f320…7f340 6d 6f 76 65 5f 66 70 72 28 2e 77 33 2e 2c 77 31 3a 3d 62 2e 63 75 72 72 65 6e 74 29 3b 0a 20 20 ┆move_fpr(.w3.,w1:=b.current); ┆
0x7f340…7f360 20 20 20 20 72 65 6d 6f 76 65 5f 74 63 28 2e 77 33 2e 2c 77 31 3a 3d 62 2e 63 75 72 72 65 6e 74 ┆ remove_tc(.w3.,w1:=b.current┆
0x7f360…7f37a 29 3b 0a 20 20 20 20 20 20 67 6f 74 6f 20 62 2e 61 63 74 69 76 61 74 65 3b 0a ┆); goto b.activate; ┆
0x7f37a…7f380 (0x324,0xfe8)
0x7f380…7f3a0 20 20 20 20 65 6e 64 3b 0a 20 20 65 6e 64 3b 20 20 21 20 20 65 6e 64 20 66 70 72 20 20 21 0a 0a ┆ end; end; ! end fpr ! ┆
0x7f3a0…7f3c0 20 20 0a 0a 20 20 62 6f 64 79 20 6f 66 20 66 70 72 5f 69 6e 0a 20 20 63 6f 6d 6d 65 6e 74 20 66 ┆ body of fpr_in comment f┆
0x7f3c0…7f3e0 6f 72 6d 61 74 20 70 72 69 6e 74 65 72 20 63 6f 72 6f 75 74 69 6e 65 20 66 6f 72 0a 20 20 20 20 ┆ormat printer coroutine for ┆
0x7f3e0…7f400 69 6e 70 75 74 20 28 73 74 61 74 75 73 29 20 68 61 6e 64 6c 69 6e 67 3b 00 00 00 00 00 00 00 00 ┆input (status) handling; ┆
0x7f400…7f406 (1018,) (0x324,0xfe9)
0x7f406…7f420 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 6c 61 62 65 6c 20 73 65 6e 73 65 5f 72 ┆ begin label sense_r┆
0x7f420…7f440 65 61 64 79 2c 20 69 6e 70 75 74 2c 20 6c 6f 6f 70 3b 0a 0a 20 20 69 6e 63 6f 64 65 0a 20 20 20 ┆eady, input, loop; incode ┆
0x7f440…7f460 20 72 65 66 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 77 6f 72 64 20 73 61 76 65 77 30 3b 0a 20 20 ┆ ref return; word savew0; ┆
0x7f460…7f47e 20 20 77 6f 72 64 20 73 61 76 65 77 32 3b 0a 20 20 20 20 77 6f 72 64 20 66 69 5f 6f 70 3b ┆ word savew2; word fi_op;┆
0x7f47e…7f484 (0x324,0xfea)
0x7f484…7f4a0 0a 20 20 20 20 72 65 66 20 20 66 69 5f 66 69 72 73 74 2c 66 69 5f 6c 61 73 74 3b 0a ┆ ref fi_first,fi_last; ┆
0x7f4a0…7f4c0 20 20 20 20 77 6f 72 64 20 73 30 73 31 3b 0a 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 ┆ word s0s1; begin ┆
0x7f4c0…7f4e0 72 65 74 75 72 6e 3a 3d 20 77 33 3b 20 63 61 6c 6c 20 77 33 20 72 65 74 75 72 6e 3b 20 21 20 70 ┆return:= w3; call w3 return; ! p┆
0x7f4e0…7f4fc 73 65 75 64 6f 20 63 61 6c 6c 20 21 0a 0a 20 20 20 20 20 20 77 68 69 6c 65 20 77 31 ┆seudo call ! while w1┆
0x7f4fc…7f502 (0x324,0xfeb)
0x7f502…7f520 3d 77 31 20 64 6f 0a 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 66 6f 72 ┆=w1 do begin comment for┆
0x7f520…7f540 65 76 65 72 20 64 6f 3b 0a 0a 73 65 6e 73 65 5f 72 65 61 64 79 3a 0a 20 20 20 20 20 20 20 20 77 ┆ever do; sense_ready: w┆
0x7f540…7f560 33 3a 3d 20 62 2e 63 75 72 72 65 6e 74 3b 0a 20 20 20 20 20 20 20 20 66 69 5f 6f 70 3a 3d 20 77 ┆3:= b.current; fi_op:= w┆
0x7f560…7f57a 30 3a 3d 20 32 3b 20 21 20 73 65 6e 73 65 20 72 65 61 64 79 20 6f 70 65 72 61 ┆0:= 2; ! sense ready opera┆
0x7f57a…7f580 (0x324,0xfec)
0x7f580…7f5a0 74 69 6f 6e 20 21 0a 20 20 20 20 20 20 20 20 77 31 3a 3d 20 61 64 64 72 65 73 73 28 66 69 5f 6f ┆tion ! w1:= address(fi_o┆
0x7f5a0…7f5c0 70 29 3b 0a 20 20 20 20 20 20 20 20 73 65 6e 64 77 61 69 74 28 2e 77 33 2e 2c 77 30 2c 77 31 2c ┆p); sendwait(.w3.,w0,w1,┆
0x7f5c0…7f5e0 77 32 3a 3d 61 64 64 72 65 73 73 28 28 77 33 29 2e 66 70 72 5f 70 72 6f 63 69 6e 29 29 3b 0a 20 ┆w2:=address((w3).fpr_procin)); ┆
0x7f5e0…7f600 20 20 20 20 20 20 20 77 32 3a 3d 20 31 20 6c 73 68 69 66 74 20 77 30 3b 00 00 00 00 00 00 00 00 ┆ w2:= 1 lshift w0; ┆
0x7f600…7f606 (1019,) (0x324,0xfed)
0x7f606…7f620 0a 20 20 20 20 20 20 20 20 69 66 20 77 32 3d 32 20 74 68 65 6e 20 77 32 20 6f ┆ if w2=2 then w2 o┆
0x7f620…7f640 72 20 62 2e 61 6e 73 5f 73 74 61 74 75 73 3b 0a 20 20 20 20 20 20 20 20 77 33 3a 3d 20 62 2e 63 ┆r b.ans_status; w3:= b.c┆
0x7f640…7f660 75 72 72 65 6e 74 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 32 3d 32 20 74 68 65 6e 0a 20 20 20 ┆urrent; if w2=2 then ┆
0x7f660…7f67e 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 69 6e 70 75 74 20 28 73 74 61 74 ┆ begin comment input (stat┆
0x7f67e…7f684 (0x324,0xfee)
0x7f684…7f6a0 75 73 29 20 72 65 61 64 79 3b 0a 20 0a 69 6e 70 75 74 3a 0a 20 20 20 20 20 20 20 20 ┆us) ready; input: ┆
0x7f6a0…7f6c0 20 20 77 33 3a 3d 20 62 2e 63 75 72 72 65 6e 74 3b 0a 20 20 20 20 20 20 20 20 20 20 66 69 5f 6f ┆ w3:= b.current; fi_o┆
0x7f6c0…7f6e0 70 3a 3d 20 77 30 3a 3d 20 33 20 6c 73 68 69 66 74 20 31 32 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆p:= w0:= 3 lshift 12; ┆
0x7f6e0…7f6fc 66 69 5f 66 69 72 73 74 3a 3d 20 77 30 3a 3d 20 61 64 64 72 65 73 73 28 28 77 33 29 ┆fi_first:= w0:= address((w3)┆
0x7f6fc…7f702 (0x324,0xfef)
0x7f702…7f720 2e 66 70 72 5f 69 6e 64 61 74 61 29 3b 77 30 2b 32 3b 0a 20 20 20 20 20 20 20 20 20 20 66 ┆.fpr_indata);w0+2; f┆
0x7f720…7f740 69 5f 6c 61 73 74 3a 3d 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 20 61 64 64 72 65 ┆i_last:=w0; w1:= addre┆
0x7f740…7f760 73 73 28 66 69 5f 6f 70 29 3b 0a 20 20 20 20 20 20 20 20 20 20 73 65 6e 64 77 61 69 74 28 2e 77 ┆ss(fi_op); sendwait(.w┆
0x7f760…7f77a 33 2e 2c 77 30 2c 77 31 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 28 77 33 29 2e ┆3.,w0,w1,w2:=address((w3).┆
0x7f77a…7f780 (0x324,0xff0)
0x7f780…7f7a0 66 70 72 5f 70 72 6f 63 69 6e 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 20 31 20 6c ┆fpr_procin)); w2:= 1 l┆
0x7f7a0…7f7c0 73 68 69 66 74 20 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 32 3d 32 20 74 68 65 6e ┆shift w0; if w2=2 then┆
0x7f7c0…7f7e0 20 77 32 20 6f 72 20 62 2e 61 6e 73 5f 73 74 61 74 75 73 3b 0a 20 20 20 20 20 20 20 20 20 20 77 ┆ w2 or b.ans_status; w┆
0x7f7e0…7f800 33 3a 3d 20 62 2e 63 75 72 72 65 6e 74 3b 0a 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆3:= b.current; ┆
0x7f800…7f806 (1020,) (0x324,0xff1)
0x7f806…7f820 20 69 66 20 77 32 3d 32 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 62 65 ┆ if w2=2 then be┆
0x7f820…7f840 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 69 6e 70 75 74 20 61 72 72 69 76 65 64 3b 0a 20 20 20 20 20 ┆gin comment input arrived; ┆
0x7f840…7f860 20 20 20 20 20 20 20 77 30 3a 3d 20 62 2e 61 6e 73 5f 63 68 61 72 73 3b 0a 20 20 20 20 20 20 20 ┆ w0:= b.ans_chars; ┆
0x7f860…7f87e 20 20 20 20 20 69 66 20 77 30 3d 30 20 74 68 65 6e 20 67 6f 74 6f 20 73 65 6e 73 65 5f 72 ┆ if w0=0 then goto sense_r┆
0x7f87e…7f884 (0x324,0xff2)
0x7f884…7f8a0 65 61 64 79 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3c ┆eady else if w0<┆
0x7f8a0…7f8c0 3e 35 20 21 20 73 74 61 74 75 73 3a 20 22 63 75 2c 64 65 76 2c 73 30 2c 73 31 2c 65 74 78 22 20 ┆>5 ! status: "cu,dev,s0,s1,etx" ┆
0x7f8c0…7f8e0 21 20 74 68 65 6e 20 67 6f 74 6f 20 69 6e 70 75 74 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 ┆! then goto input else ┆
0x7f8e0…7f8fc 20 20 20 74 65 73 74 6f 75 74 28 2e 77 33 2e 2c 77 30 3a 3d 38 2c 77 31 3a 3d 61 64 ┆ testout(.w3.,w0:=8,w1:=ad┆
0x7f8fc…7f902 (0x324,0xff3)
0x7f902…7f920 64 72 65 73 73 28 28 77 33 29 2e 66 70 72 5f 69 6e 64 61 74 61 29 2c 77 32 3a 3d 34 38 29 ┆dress((w3).fpr_indata),w2:=48)┆
0x7f920…7f940 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 28 77 33 29 2e 66 70 72 5f 69 6e 64 61 74 ┆; w0:=(w3).fpr_indat┆
0x7f940…7f960 61 3b 20 21 20 77 30 3d 20 22 63 75 2c 64 65 76 2c 73 30 22 20 2c 20 77 31 3d 20 22 73 31 2c 65 ┆a; ! w0= "cu,dev,s0" , w1= "s1,e┆
0x7f960…7f97a 74 78 2c 78 78 22 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 28 77 ┆tx,xx"! w1:=(w┆
0x7f97a…7f980 (0x324,0xff4)
0x7f980…7f9a0 33 29 2e 66 70 72 5f 64 61 74 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 66 31 20 6c 73 68 69 ┆3).fpr_dat1; f1 lshi┆
0x7f9a0…7f9c0 66 74 20 2d 38 3b 20 20 20 20 20 20 20 20 21 20 77 30 3d 20 22 30 2c 63 75 2c 64 65 76 22 20 2c ┆ft -8; ! w0= "0,cu,dev" ,┆
0x7f9c0…7f9e0 20 77 31 3d 20 22 73 30 2c 73 31 2c 78 78 22 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 31 20 ┆ w1= "s0,s1,xx"! w1 ┆
0x7f9e0…7fa00 6c 73 68 69 66 74 20 2d 38 3b 20 21 20 77 31 3d 20 22 30 2c 73 30 2c 73 00 00 00 00 00 00 00 00 ┆lshift -8; ! w1= "0,s0,s ┆
0x7fa00…7fa06 (1021,) (0x324,0xff5)
0x7fa06…7fa20 31 22 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 30 20 61 6e 64 20 ┆1" ! w0 and ┆
0x7fa20…7fa40 34 27 30 33 33 33 30 33 33 33 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 73 30 73 31 3a 3d 20 77 ┆4'03330333; s0s1:= w┆
0x7fa40…7fa60 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 30 20 6c 73 68 69 66 74 20 38 3b 0a 20 20 20 20 ┆1; w0 lshift 8; ┆
0x7fa60…7fa7e 20 20 20 20 20 20 20 20 77 30 2b 32 37 3b 20 20 20 21 20 77 30 3d 20 63 75 2c 64 65 76 2c ┆ w0+27; ! w0= cu,dev,┆
0x7fa7e…7fa84 (0x324,0xff6)
0x7fa84…7faa0 65 73 63 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 66 69 ┆esc ! comment fi┆
0x7faa0…7fac0 6e 64 20 6c 69 6e 6b 65 64 20 66 70 72 20 77 69 74 68 20 63 6f 72 72 65 73 70 6f 6e 64 69 6e 67 ┆nd linked fpr with corresponding┆
0x7fac0…7fae0 20 63 75 2c 64 65 76 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 20 61 64 64 72 65 73 ┆ cu,dev; w2:= addres┆
0x7fae0…7fafc 73 28 28 77 33 29 2e 66 70 72 5f 6e 65 78 74 29 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆s((w3).fpr_next); ┆
0x7fafc…7fb02 (0x324,0xff7)
0x7fb02…7fb20 20 20 77 31 3a 3d 20 28 77 32 29 2e 63 5f 6e 65 78 74 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆ w1:= (w2).c_next; ┆
0x7fb20…7fb40 20 20 77 68 69 6c 65 20 77 32 3c 3e 77 31 20 64 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 ┆ while w2<>w1 do be┆
0x7fb40…7fb60 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 61 76 65 77 30 3a 3d 20 77 30 3b 0a 20 ┆gin savew0:= w0; ┆
0x7fb60…7fb7a 20 20 20 20 20 20 20 20 20 20 20 20 20 73 61 76 65 77 32 3a 3d 20 77 32 3b 0a ┆ savew2:= w2; ┆
0x7fb7a…7fb80 (0x324,0xff8)
0x7fb80…7fba0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3d 28 77 31 29 2e 66 70 72 5f 74 72 61 ┆ if w0=(w1).fpr_tra┆
0x7fba0…7fbc0 6e 73 69 64 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 ┆nsid then begin ┆
0x7fbc0…7fbe0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 66 70 72 5f 64 65 76 73 74 61 74 75 73 ┆ (w1).fpr_devstatus┆
0x7fbe0…7fc00 3a 3d 20 77 30 3a 3d 20 73 30 73 31 3b 0a 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆:= w0:= s0s1; ┆
0x7fc00…7fc06 (1022,) (0x324,0xff9)
0x7fc06…7fc20 20 20 20 20 20 20 28 77 31 29 2e 66 70 72 5f 73 74 61 74 75 73 3a 3d 20 77 30 ┆ (w1).fpr_status:= w0┆
0x7fc20…7fc40 3a 3d 20 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 69 6e 6b 28 2e 77 33 2e 2c ┆:= 2; link(.w3.,┆
0x7fc40…7fc60 77 31 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 62 2e 61 63 74 69 76 71 66 73 74 29 29 3b 0a 20 20 ┆w1,w2:=address(b.activqfst)); ┆
0x7fc60…7fc7e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 66 70 72 5f 77 61 69 74 3a 3d 20 ┆ (w3).fpr_wait:= ┆
0x7fc7e…7fc84 (0x324,0xffa)
0x7fc84…7fca0 77 30 3a 3d 20 28 77 33 29 2e 66 70 72 5f 77 61 69 74 20 2d 20 31 3b 0a 20 20 20 20 ┆w0:= (w3).fpr_wait - 1; ┆
0x7fca0…7fcc0 20 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 6c 6f 6f 70 3b 0a 20 20 20 20 20 20 20 20 20 ┆ goto loop; ┆
0x7fcc0…7fce0 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 33 3a 3d 20 28 77 33 ┆ end; f3:= (w3┆
0x7fce0…7fcfc 3a 3d 31 30 38 29 2e 64 6f 75 62 6c 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆:=108).double; ┆
0x7fcfc…7fd02 (0x324,0xffb)
0x7fd02…7fd20 20 66 33 20 6c 73 68 69 66 74 20 2d 20 31 39 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ f3 lshift - 19; ┆
0x7fd20…7fd40 20 69 66 20 77 33 3e 3d 20 28 77 31 29 2e 66 70 72 5f 74 69 6d 65 72 20 74 68 65 6e 0a 20 20 20 ┆ if w3>= (w1).fpr_timer then ┆
0x7fd40…7fd60 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ begin ┆
0x7fd60…7fd7a 20 28 77 31 29 2e 66 70 72 5f 73 74 61 74 75 73 3a 3d 20 77 33 3a 3d 20 32 30 ┆ (w1).fpr_status:= w3:= 20┆
0x7fd7a…7fd80 (0x324,0xffc)
0x7fd80…7fda0 39 37 31 35 34 3b 20 21 20 74 69 6d 65 72 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆97154; ! timer ! ┆
0x7fda0…7fdc0 20 77 30 3a 3d 20 28 77 31 29 2e 63 5f 6e 65 78 74 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ w0:= (w1).c_next; ┆
0x7fdc0…7fde0 20 20 20 6c 69 6e 6b 28 2e 77 33 2e 2c 77 31 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 62 2e 61 63 ┆ link(.w3.,w1,w2:=address(b.ac┆
0x7fde0…7fe00 74 69 76 71 66 73 74 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆tivqfst)); ┆
0x7fe00…7fe06 (1023,) (0x324,0xffd)
0x7fe06…7fe20 20 20 20 28 77 33 29 2e 66 70 72 5f 77 61 69 74 3a 3d 20 77 32 3a 3d 20 28 77 ┆ (w3).fpr_wait:= w2:= (w┆
0x7fe20…7fe40 33 29 2e 66 70 72 5f 77 61 69 74 2d 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 ┆3).fpr_wait-1; w┆
0x7fe40…7fe60 31 3a 3d 77 30 3b 20 21 20 6e 65 78 74 20 69 6e 20 71 75 65 75 65 20 21 0a 20 20 20 20 20 20 20 ┆1:=w0; ! next in queue ! ┆
0x7fe60…7fe7e 20 20 20 20 20 20 20 65 6e 64 20 65 6c 73 65 20 77 31 3a 3d 20 28 77 31 29 2e 63 5f 6e 65 ┆ end else w1:= (w1).c_ne┆
0x7fe7e…7fe84 (0x324,0xffe)
0x7fe84…7fea0 78 74 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 20 73 61 76 65 77 ┆xt; w0:= savew┆
0x7fea0…7fec0 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 20 73 61 76 65 77 32 3b 0a 20 20 ┆0; w2:= savew2; ┆
0x7fec0…7fee0 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 20 ┆ end; w3:= ┆
0x7fee0…7fefc 62 2e 63 75 72 72 65 6e 74 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 ┆b.current; goto ┆
0x7fefc…7ff02 (0x324,0xfff)
0x7ff02…7ff20 6c 6f 6f 70 3b 20 20 21 20 75 6e 6b 6e 6f 77 6e 20 64 65 76 69 63 65 20 21 0a 20 20 20 20 ┆loop; ! unknown device ! ┆
0x7ff20…7ff40 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 ┆ end; end; ┆
0x7ff40…7ff60 69 66 20 77 32 3d 34 20 21 20 72 65 6a 65 63 74 65 64 20 21 20 74 68 65 6e 0a 20 20 20 20 20 20 ┆if w2=4 ! rejected ! then ┆
0x7ff60…7ff7a 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 20 61 64 64 ┆ begin w3:= add┆
0x7ff7a…7ff80 (0x324,0x1000)
0x7ff80…7ffa0 72 65 73 73 28 28 77 33 29 2e 66 70 72 5f 70 72 6f 63 69 6e 29 3b 0a 20 20 20 20 20 20 20 20 20 ┆ress((w3).fpr_procin); ┆
0x7ffa0…7ffc0 20 6d 6f 6e 69 74 6f 72 28 38 29 3b 0a 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 62 2e 63 75 72 ┆ monitor(8); w3:=b.cur┆
0x7ffc0…7ffe0 72 65 6e 74 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3d 30 20 74 68 65 6e 20 67 6f 74 ┆rent; if w0=0 then got┆
0x7ffe0…80000 6f 20 6c 6f 6f 70 3b 0a 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 34 3b 00 00 00 00 00 00 00 00 ┆o loop; w2:=4; ┆
0x80000…80006 (1024,) (0x324,0x1001)
0x80006…80020 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 ┆ end; if w┆
0x80020…80040 32 3d 32 30 39 37 31 35 34 20 21 20 74 69 6d 65 72 20 21 20 74 68 65 6e 0a 20 20 20 20 20 20 20 ┆2=2097154 ! timer ! then ┆
0x80040…80060 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 20 61 64 64 72 65 73 73 28 28 77 ┆ begin w0:= address((w┆
0x80060…8007e 33 29 2e 66 70 72 5f 6e 65 78 74 29 3b 0a 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 20 28 ┆3).fpr_next); w1:= (┆
0x8007e…80084 (0x324,0x1002)
0x80084…800a0 77 33 29 2e 66 70 72 5f 6e 65 78 74 3b 0a 20 20 20 20 20 20 20 20 20 20 66 33 3a 3d ┆w3).fpr_next; f3:=┆
0x800a0…800c0 20 28 77 33 3a 3d 31 30 38 29 2e 64 6f 75 62 6c 65 3b 0a 20 20 20 20 20 20 20 20 20 20 66 33 20 ┆ (w3:=108).double; f3 ┆
0x800c0…800e0 6c 73 68 69 66 74 20 2d 20 31 39 3b 0a 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 20 77 33 3b 0a ┆lshift - 19; w2:= w3; ┆
0x800e0…800fc 20 20 20 20 20 20 20 20 20 20 77 68 69 6c 65 20 77 30 3c 3e 77 31 20 64 6f 0a 20 20 ┆ while w0<>w1 do ┆
0x800fc…80102 (0x324,0x1003)
0x80102…80120 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 ┆ begin if w┆
0x80120…80140 32 20 3e 3d 20 28 77 31 29 2e 66 70 72 5f 74 69 6d 65 72 20 74 68 65 6e 0a 20 20 20 20 20 20 20 ┆2 >= (w1).fpr_timer then ┆
0x80140…80160 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 66 70 ┆ begin (w1).fp┆
0x80160…8017a 72 5f 73 74 61 74 75 73 3a 3d 20 77 33 3a 3d 20 32 30 39 37 31 35 34 3b 0a 20 ┆r_status:= w3:= 2097154; ┆
0x8017a…80180 (0x324,0x1004)
0x80180…801a0 20 20 20 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 20 28 77 31 29 2e 63 5f 6e 65 78 74 3b 0a 20 ┆ w0:= (w1).c_next; ┆
0x801a0…801c0 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 69 6e 6b 28 2e 77 33 2e 2c 77 31 2c 77 32 3a 3d 61 64 ┆ link(.w3.,w1,w2:=ad┆
0x801c0…801e0 64 72 65 73 73 28 62 2e 61 63 74 69 76 71 66 73 74 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆dress(b.activqfst)); ┆
0x801e0…80200 20 20 20 28 77 33 29 2e 66 70 72 5f 77 61 69 74 3a 3d 20 77 32 3a 3d 20 00 00 00 00 00 00 00 00 ┆ (w3).fpr_wait:= w2:= ┆
0x80200…80206 (1025,) (0x324,0x1005)
0x80206…80220 28 77 33 29 2e 66 70 72 5f 77 61 69 74 2d 31 3b 0a 20 20 20 20 20 20 20 20 20 ┆(w3).fpr_wait-1; ┆
0x80220…80240 20 20 20 20 20 66 33 3a 3d 20 28 77 33 3a 3d 31 30 38 29 2e 64 6f 75 62 6c 65 3b 0a 20 20 20 20 ┆ f3:= (w3:=108).double; ┆
0x80240…80260 20 20 20 20 20 20 20 20 20 20 66 33 20 6c 73 68 69 66 74 20 2d 20 31 39 3b 0a 20 20 20 20 20 20 ┆ f3 lshift - 19; ┆
0x80260…8027e 20 20 20 20 20 20 20 20 77 32 3a 3d 20 77 33 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ w2:= w3; ┆
0x8027e…80284 (0x324,0x1006)
0x80284…802a0 20 77 31 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 20 65 6c ┆ w1:= w0; end el┆
0x802a0…802c0 73 65 20 77 31 3a 3d 20 28 77 31 29 2e 63 5f 6e 65 78 74 3b 0a 20 20 20 20 20 20 20 20 20 20 65 ┆se w1:= (w1).c_next; e┆
0x802c0…802e0 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 20 62 2e 63 75 72 72 65 6e 74 3b 0a 20 20 ┆nd; w3:= b.current; ┆
0x802e0…802fc 20 20 20 20 20 20 20 20 67 6f 74 6f 20 73 65 6e 73 65 5f 72 65 61 64 79 3b 0a 20 20 ┆ goto sense_ready; ┆
0x802fc…80302 (0x324,0x1007)
0x80302…80320 20 20 20 20 20 20 65 6e 64 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 ┆ end else begin ┆
0x80320…80340 20 20 20 20 20 20 20 20 20 77 31 3a 3d 20 28 77 33 29 2e 66 70 72 5f 6e 65 78 74 3b 0a 20 20 20 ┆ w1:= (w3).fpr_next; ┆
0x80340…80360 20 20 20 20 20 20 20 69 66 20 77 31 3c 3e 77 30 3a 3d 20 61 64 64 72 65 73 73 28 28 77 33 29 2e ┆ if w1<>w0:= address((w3).┆
0x80360…8037a 66 70 72 5f 6e 65 78 74 29 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 62 ┆fpr_next) then b┆
0x8037a…80380 (0x324,0x1008)
0x80380…803a0 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 66 70 72 5f 73 74 61 74 75 73 ┆egin (w1).fpr_status┆
0x803a0…803c0 3a 3d 20 77 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 6c 69 6e 6b 28 2e 77 33 2e 2c 77 31 2c ┆:= w2; link(.w3.,w1,┆
0x803c0…803e0 77 32 3a 3d 61 64 64 72 65 73 73 28 62 2e 61 63 74 69 76 71 66 73 74 29 29 3b 0a 20 20 20 20 20 ┆w2:=address(b.activqfst)); ┆
0x803e0…80400 20 20 20 20 20 20 20 28 77 33 29 2e 66 70 72 5f 77 61 69 74 3a 3d 20 77 00 00 00 00 00 00 00 00 ┆ (w3).fpr_wait:= w ┆
0x80400…80406 (1026,) (0x324,0x1009)
0x80406…80420 30 3a 3d 20 28 77 33 29 2e 66 70 72 5f 77 61 69 74 20 2d 20 31 3b 0a 20 20 20 ┆0:= (w3).fpr_wait - 1; ┆
0x80420…80440 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 6c 6f 6f 70 3a 0a 20 ┆ end; end; loop: ┆
0x80440…80460 20 20 20 20 20 20 20 67 6f 74 6f 20 69 6e 70 75 74 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 ┆ goto input; end; ┆
0x80460…8047e 20 20 65 6e 64 3b 0a 20 20 65 6e 64 3b 0a 0a 0a 65 6e 64 2e 0a 0a 19 00 20 62 65 67 69 6e ┆ end; end; end. begin┆
0x8047e…80484 (0x388,0x100a)
0x80484…804a0 65 78 74 65 72 6e 61 6c 20 69 6e 74 65 67 65 72 20 70 72 6f 63 65 64 75 72 65 20 74 ┆external integer procedure t┆
0x804a0…804c0 72 61 6e 73 66 65 72 28 61 63 74 69 6f 6e 2c 20 69 70 61 72 2c 20 69 6c 65 6e 67 2c 20 6f 70 61 ┆ransfer(action, ipar, ileng, opa┆
0x804c0…804e0 72 2c 20 6f 6c 65 6e 67 29 3b 0a 69 6e 74 65 67 65 72 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆r, oleng); integer ┆
0x804e0…804fc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 63 74 69 6f 6e 2c 20 20 20 20 20 20 ┆ action, ┆
0x804fc…80502 (0x388,0x100b)
0x80502…80520 20 69 6c 65 6e 67 2c 20 20 20 20 20 20 20 6f 6c 65 6e 67 3b 0a 69 6e 74 65 67 65 72 20 61 ┆ ileng, oleng; integer a┆
0x80520…80540 72 72 61 79 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 ┆rray ┆
0x80540…80560 20 20 20 69 70 61 72 2c 20 20 20 20 20 20 20 20 6f 70 61 72 3b 0a 0a 62 65 67 69 6e 0a 69 6e 74 ┆ ipar, opar; begin int┆
0x80560…8057a 65 67 65 72 20 74 72 65 70 6c 79 2c 20 74 6e 6f 2c 20 74 6e 61 6d 65 2c 20 74 ┆eger treply, tno, tname, t┆
0x8057a…80580 (0x388,0x100c)
0x80580…805a0 75 73 65 72 2c 20 74 73 65 6e 64 2c 20 74 72 65 63 65 69 76 2c 20 74 6b 74 79 70 65 2c 20 74 6b ┆user, tsend, treceiv, tktype, tk┆
0x805a0…805c0 67 72 6f 75 70 2c 0a 20 20 20 20 20 20 20 20 74 6b 6e 61 6d 65 2c 20 74 72 65 73 65 72 2c 20 74 ┆group, tkname, treser, t┆
0x805c0…805e0 73 65 72 72 2c 20 74 72 65 72 72 2c 0a 20 20 20 20 20 20 20 20 74 73 75 62 6e 6f 2c 20 74 73 75 ┆serr, trerr, tsubno, tsu┆
0x805e0…80600 62 73 74 2c 20 74 73 75 62 70 6f 73 2c 20 74 73 75 62 74 69 6d 65 2c 20 00 00 00 00 00 00 00 00 ┆bst, tsubpos, tsubtime, ┆
0x80600…80606 (1027,) (0x388,0x100d)
0x80606…80620 74 63 61 75 73 65 2c 20 74 65 72 72 73 74 2c 0a 20 20 20 20 20 20 20 20 74 6c ┆tcause, terrst, tl┆
0x80620…80640 65 6e 67 2c 20 6c 65 76 65 6c 2c 20 6e 6c 65 76 65 6c 2c 20 72 65 63 74 79 70 65 2c 20 66 6f 72 ┆eng, level, nlevel, rectype, for┆
0x80640…80660 6d 2c 20 73 69 7a 65 2c 20 73 74 61 63 6b 69 78 2c 0a 20 20 20 20 20 20 20 62 79 74 65 73 2c 73 ┆m, size, stackix, bytes,s┆
0x80660…8067e 74 61 72 74 2c 20 65 63 6f 64 65 2c 20 69 3b 0a 69 6e 74 65 67 65 72 20 66 69 65 6c 64 20 ┆tart, ecode, i; integer field ┆
0x8067e…80684 (0x388,0x100e)
0x80684…806a0 7a 69 78 3b 0a 69 6e 74 65 67 65 72 20 61 72 72 61 79 20 64 65 73 63 72 28 31 3a 34 ┆zix; integer array descr(1:4┆
0x806a0…806c0 32 29 2c 20 73 74 61 63 6b 28 31 3a 31 30 29 2c 20 69 61 28 31 3a 32 30 29 3b 0a 7a 6f 6e 65 20 ┆2), stack(1:10), ia(1:20); zone ┆
0x806c0…806e0 7a 28 35 30 2c 31 2c 73 74 64 65 72 72 6f 72 29 3b 0a 0a 62 6f 6f 6c 65 61 6e 20 74 65 73 74 3b ┆z(50,1,stderror); boolean test;┆
0x806e0…806fc 0a 0a 0a 70 72 6f 63 65 64 75 72 65 20 70 75 74 68 65 61 64 65 72 28 74 79 70 65 2c ┆ procedure putheader(type,┆
0x806fc…80702 (0x388,0x100f)
0x80702…80720 20 6c 65 76 65 6c 2c 20 66 6f 72 6d 2c 20 73 69 7a 65 29 3b 0a 69 6e 74 65 67 65 72 20 20 ┆ level, form, size); integer ┆
0x80720…80740 20 20 20 20 20 20 20 20 20 20 20 74 79 70 65 2c 20 6c 65 76 65 6c 2c 20 66 6f 72 6d 2c 20 73 69 ┆ type, level, form, si┆
0x80740…80760 7a 65 3b 0a 0a 3c 2a 20 74 68 65 20 66 6f 75 72 20 70 61 72 61 6d 65 74 65 72 73 20 69 73 20 70 ┆ze; <* the four parameters is p┆
0x80760…8077a 61 63 6b 65 64 20 69 6e 74 6f 20 6f 6e 65 20 69 6e 74 65 67 65 72 20 74 6f 20 ┆acked into one integer to ┆
0x8077a…80780 (0x388,0x1010)
0x80780…807a0 67 69 76 65 0a 20 2a 20 61 20 68 65 61 64 65 72 2e 20 74 68 69 73 20 69 73 20 70 6c 61 63 65 64 ┆give * a header. this is placed┆
0x807a0…807c0 20 69 6e 20 70 72 69 6d 6f 20 70 61 72 61 6d 65 74 65 72 20 72 65 63 6f 72 64 20 70 6f 69 6e 74 ┆ in primo parameter record point┆
0x807c0…807e0 65 64 0a 20 2a 20 6f 75 74 20 62 79 20 7a 69 78 2e 20 2a 3e 0a 0a 62 65 67 69 6e 20 7a 69 78 20 ┆ed * out by zix. *> begin zix ┆
0x807e0…80800 3a 3d 20 7a 69 78 20 2b 20 32 3b 0a 20 20 20 20 20 20 7a 2e 7a 69 78 20 00 00 00 00 00 00 00 00 ┆:= zix + 2; z.zix ┆
0x80800…80806 (1028,) (0x388,0x1011)
0x80806…80820 3a 3d 20 74 79 70 65 20 73 68 69 66 74 20 31 32 20 2b 6c 65 76 65 6c 20 73 68 ┆:= type shift 12 +level sh┆
0x80820…80840 69 66 74 20 38 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 2b 20 66 6f 72 6d 20 73 68 69 66 74 20 ┆ift 8 + form shift ┆
0x80840…80860 34 20 2b 20 73 69 7a 65 3b 0a 65 6e 64 3b 0a 0a 0a 70 72 6f 63 65 64 75 72 65 20 70 75 74 66 69 ┆4 + size; end; procedure putfi┆
0x80860…8087e 65 6c 64 28 69 78 2c 20 73 69 7a 65 29 3b 0a 69 6e 74 65 67 65 72 20 20 20 20 20 20 20 20 ┆eld(ix, size); integer ┆
0x8087e…80884 (0x388,0x1012)
0x80884…808a0 20 20 20 20 69 78 2c 20 73 69 7a 65 3b 0a 0a 3c 2a 20 6d 6f 76 65 73 20 74 68 65 20 ┆ ix, size; <* moves the ┆
0x808a0…808c0 66 69 65 6c 64 20 70 6f 69 6e 74 65 64 20 61 74 20 62 79 20 69 78 2c 73 69 7a 65 20 74 6f 20 70 ┆field pointed at by ix,size to p┆
0x808c0…808e0 72 69 6d 6f 20 70 61 72 61 6d 65 74 65 72 0a 20 2a 20 72 65 63 6f 72 64 20 70 6f 69 6e 74 65 64 ┆rimo parameter * record pointed┆
0x808e0…808fc 20 6f 75 74 20 62 79 20 7a 69 78 2e 20 2a 3e 0a 0a 62 65 67 69 6e 20 69 6e 74 65 67 ┆ out by zix. *> begin integ┆
0x808fc…80902 (0x388,0x1013)
0x80902…80920 65 72 20 69 3b 0a 20 20 20 20 20 20 0a 20 20 20 20 20 20 66 6f 72 20 69 3a 3d 30 20 73 74 ┆er i; for i:=0 st┆
0x80920…80940 65 70 20 31 20 75 6e 74 69 6c 20 73 69 7a 65 2d 31 20 64 6f 0a 20 20 20 20 20 20 62 65 67 69 6e ┆ep 1 until size-1 do begin┆
0x80940…80960 20 7a 69 78 20 3a 3d 20 7a 69 78 20 2b 20 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 7a 2e 7a ┆ zix := zix + 2; z.z┆
0x80960…8097a 69 78 20 3a 3d 20 69 70 61 72 28 69 78 2b 69 29 3b 0a 20 20 20 20 20 65 6e 64 ┆ix := ipar(ix+i); end┆
0x8097a…80980 (0x388,0x1014)
0x80980…809a0 3b 0a 65 6e 64 3b 0a 0a 0a 69 6e 74 65 67 65 72 20 70 72 6f 63 65 64 75 72 65 20 67 65 74 68 64 ┆; end; integer procedure gethd┆
0x809a0…809c0 72 28 72 65 63 74 79 70 65 2c 20 6c 65 76 65 6c 2c 20 66 6f 72 6d 2c 20 73 69 7a 65 29 3b 0a 69 ┆r(rectype, level, form, size); i┆
0x809c0…809e0 6e 74 65 67 65 72 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65 63 74 79 70 65 2c ┆nteger rectype,┆
0x809e0…80a00 20 6c 65 76 65 6c 2c 20 66 6f 72 6d 2c 20 73 69 7a 65 3b 0a 0a 3c 2a 20 00 00 00 00 00 00 00 00 ┆ level, form, size; <* ┆
0x80a00…80a06 (1029,) (0x388,0x1015)
0x80a06…80a20 75 6e 70 61 63 6b 20 61 20 68 65 61 64 65 72 20 70 6f 69 6e 74 65 64 20 6f 75 ┆unpack a header pointed ou┆
0x80a20…80a40 74 20 69 6e 20 70 72 69 6d 6f 20 61 6e 73 77 65 72 20 72 65 63 6f 72 64 20 61 6e 64 0a 20 2a 20 ┆t in primo answer record and * ┆
0x80a40…80a60 64 65 6c 69 76 65 72 73 20 74 68 65 20 63 6f 6d 70 6f 6e 65 6e 74 73 20 69 6e 20 74 68 65 20 70 ┆delivers the components in the p┆
0x80a60…80a7e 72 6f 63 65 64 75 72 65 20 70 61 72 61 6d 65 74 65 72 73 2e 0a 20 2a 20 61 74 20 65 6e 74 ┆rocedure parameters. * at ent┆
0x80a7e…80a84 (0x388,0x1016)
0x80a84…80aa0 72 79 20 7a 69 78 20 70 6f 69 6e 74 73 20 74 6f 20 74 68 65 20 6c 61 73 74 20 64 65 ┆ry zix points to the last de┆
0x80aa0…80ac0 6c 69 76 65 72 65 64 20 68 65 61 64 65 72 20 69 6e 0a 20 2a 20 70 72 69 6d 6f 20 72 65 63 6f 72 ┆livered header in * primo recor┆
0x80ac0…80ae0 64 2e 20 2a 3e 0a 0a 62 65 67 69 6e 20 6f 77 6e 20 69 6e 74 65 67 65 72 20 6f 66 6f 72 6d 2c 6f ┆d. *> begin own integer oform,o┆
0x80ae0…80afc 73 69 7a 65 3b 0a 20 20 20 20 20 20 69 6e 74 65 67 65 72 20 66 69 65 6c 64 20 69 3b ┆size; integer field i;┆
0x80afc…80b02 (0x388,0x1017)
0x80b02…80b20 0a 20 20 20 20 0a 20 20 20 20 20 20 69 20 3a 3d 20 7a 69 78 20 2b 20 32 3b 0a 20 20 20 20 ┆ i := zix + 2; ┆
0x80b20…80b40 20 20 7a 69 78 20 3a 3d 20 69 66 20 7a 69 78 20 3d 20 30 20 74 68 65 6e 20 32 20 65 6c 73 65 20 ┆ zix := if zix = 0 then 2 else ┆
0x80b40…80b60 7a 69 78 20 2b 20 32 20 2b 20 28 63 61 73 65 20 6f 66 6f 72 6d 2b 31 20 6f 66 0a 20 20 20 20 20 ┆zix + 2 + (case oform+1 of ┆
0x80b60…80b7a 20 20 20 20 20 20 20 20 28 6f 73 69 7a 65 2c 20 6f 73 69 7a 65 2c 20 30 2c 20 ┆ (osize, osize, 0, ┆
0x80b7a…80b80 (0x388,0x1018)
0x80b80…80ba0 30 2c 20 7a 2e 69 2b 31 2c 20 7a 2e 69 2b 31 2c 20 31 2c 20 30 29 29 20 2a 20 32 3b 0a 20 20 20 ┆0, z.i+1, z.i+1, 1, 0)) * 2; ┆
0x80ba0…80bc0 20 20 20 69 66 20 7a 69 78 20 3e 20 62 79 74 65 73 20 74 68 65 6e 20 67 65 74 68 64 72 20 3a 3d ┆ if zix > bytes then gethdr :=┆
0x80bc0…80be0 20 30 20 65 6c 73 65 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 67 65 74 ┆ 0 else begin get┆
0x80be0…80c00 68 64 72 20 3a 3d 20 31 3b 0a 20 20 20 20 20 20 20 20 20 72 65 63 74 79 00 00 00 00 00 00 00 00 ┆hdr := 1; recty ┆
0x80c00…80c06 (1030,) (0x388,0x1019)
0x80c06…80c20 70 65 20 3a 3d 20 7a 2e 7a 69 78 20 73 68 69 66 74 20 28 2d 31 32 29 3b 0a 20 ┆pe := z.zix shift (-12); ┆
0x80c20…80c40 20 20 20 20 20 20 20 20 6c 65 76 65 6c 20 3a 3d 20 7a 2e 7a 69 78 20 73 68 69 66 74 20 28 2d 38 ┆ level := z.zix shift (-8┆
0x80c40…80c60 29 20 65 78 74 72 61 63 74 20 34 3b 0a 20 20 20 20 20 20 20 20 20 66 6f 72 6d 20 20 3a 3d 20 6f ┆) extract 4; form := o┆
0x80c60…80c7e 66 6f 72 6d 20 3a 3d 20 7a 2e 7a 69 78 20 73 68 69 66 74 20 28 2d 34 29 20 65 78 74 72 61 ┆form := z.zix shift (-4) extra┆
0x80c7e…80c84 (0x388,0x101a)
0x80c84…80ca0 63 74 20 34 3b 0a 20 20 20 20 20 20 20 20 20 73 69 7a 65 20 20 3a 3d 20 6f 73 69 7a ┆ct 4; size := osiz┆
0x80ca0…80cc0 65 20 3a 3d 20 7a 2e 7a 69 78 20 65 78 74 72 61 63 74 20 34 3b 0a 20 20 20 20 20 20 65 6e 64 3b ┆e := z.zix extract 4; end;┆
0x80cc0…80ce0 0a 65 6e 64 3b 0a 0a 0a 70 72 6f 63 65 64 75 72 65 20 67 65 74 66 69 65 6c 64 20 28 69 78 2c 20 ┆ end; procedure getfield (ix, ┆
0x80ce0…80cfc 6f 73 69 7a 65 29 3b 0a 69 6e 74 65 67 65 72 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆osize); integer ┆
0x80cfc…80d02 (0x388,0x101b)
0x80d02…80d20 69 78 2c 20 6f 73 69 7a 65 3b 0a 0a 3c 2a 20 6d 6f 76 65 73 20 74 68 65 20 66 69 65 6c 64 ┆ix, osize; <* moves the field┆
0x80d20…80d40 20 64 65 73 63 72 69 62 65 64 20 69 6e 20 70 72 69 6d 6f 20 68 65 61 64 65 72 20 70 6f 69 6e 74 ┆ described in primo header point┆
0x80d40…80d60 65 64 20 6f 75 74 20 62 79 0a 20 2a 20 7a 69 78 2c 66 6f 72 6d 2c 73 69 7a 65 20 74 6f 20 74 68 ┆ed out by * zix,form,size to th┆
0x80d60…80d7a 65 20 75 73 65 72 20 70 61 72 61 6d 65 74 65 72 20 61 72 65 61 20 70 6f 69 6e ┆e user parameter area poin┆
0x80d7a…80d80 (0x388,0x101c)
0x80d80…80da0 74 65 64 20 6f 75 74 20 62 79 0a 20 2a 20 69 78 2c 6f 73 69 7a 65 2e 20 2a 3e 0a 0a 62 65 67 69 ┆ted out by * ix,osize. *> begi┆
0x80da0…80dc0 6e 20 69 6e 74 65 67 65 72 20 66 69 65 6c 64 20 6a 66 3b 0a 20 20 20 20 20 20 69 6e 74 65 67 65 ┆n integer field jf; intege┆
0x80dc0…80de0 72 20 69 2c 6e 3b 0a 0a 20 20 20 20 20 20 69 66 20 66 6f 72 6d 20 3d 20 32 20 74 68 65 6e 20 6f ┆r i,n; if form = 2 then o┆
0x80de0…80e00 70 61 72 28 69 78 29 20 3a 3d 20 73 69 7a 65 20 65 6c 73 65 0a 20 20 20 00 00 00 00 00 00 00 00 ┆par(ix) := size else ┆
0x80e00…80e06 (1031,) (0x388,0x101d)
0x80e06…80e20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 6a 66 20 3a 3d 20 7a 69 ┆ begin jf := zi┆
0x80e20…80e40 78 20 2b 20 32 3b 0a 20 20 20 20 20 20 20 20 20 69 66 20 66 6f 72 6d 20 3d 20 30 20 6f 72 20 66 ┆x + 2; if form = 0 or f┆
0x80e40…80e60 6f 72 6d 20 3d 20 31 20 74 68 65 6e 20 6e 20 3a 3d 20 6d 61 78 28 73 69 7a 65 2c 6f 73 69 7a 65 ┆orm = 1 then n := max(size,osize┆
0x80e60…80e7e 29 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 69 66 20 66 6f 72 6d 20 3d 20 34 20 6f 72 ┆) else if form = 4 or┆
0x80e7e…80e84 (0x388,0x101e)
0x80e84…80ea0 20 66 6f 72 6d 20 3d 20 35 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 62 65 67 69 ┆ form = 5 then begi┆
0x80ea0…80ec0 6e 20 6e 20 3a 3d 20 6d 61 78 28 7a 2e 6a 66 2c 6f 73 69 7a 65 29 3b 0a 20 20 20 20 20 20 20 20 ┆n n := max(z.jf,osize); ┆
0x80ec0…80ee0 20 20 20 20 20 20 20 6a 66 20 3a 3d 20 7a 69 78 20 2b 20 32 3b 0a 20 20 20 20 20 20 20 20 20 65 ┆ jf := zix + 2; e┆
0x80ee0…80efc 6e 64 20 65 6c 73 65 20 20 6e 20 3a 3d 20 31 3b 0a 20 20 20 20 20 20 20 20 20 66 6f ┆nd else n := 1; fo┆
0x80efc…80f02 (0x388,0x101f)
0x80f02…80f20 72 20 69 20 3a 3d 20 30 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 6e 2d 31 20 64 6f 0a 20 ┆r i := 0 step 1 until n-1 do ┆
0x80f20…80f40 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 20 6f 70 61 72 28 69 78 20 2b 20 69 29 20 3a 3d 20 7a ┆ begin opar(ix + i) := z┆
0x80f40…80f60 2e 6a 66 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6a 66 20 3a 3d 20 6a 66 20 2b 20 32 ┆.jf; jf := jf + 2┆
0x80f60…80f7a 3b 0a 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 65 6e 64 3b ┆; end; end;┆
0x80f7a…80f80 (0x388,0x1020)
0x80f80…80fa0 0a 65 6e 64 3b 0a 0a 0a 69 6e 74 65 67 65 72 20 70 72 6f 63 65 64 75 72 65 20 6d 61 78 28 61 2c ┆ end; integer procedure max(a,┆
0x80fa0…80fc0 20 62 29 3b 0a 69 6e 74 65 67 65 72 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 2c 20 62 3b ┆ b); integer a, b;┆
0x80fc0…80fe0 0a 62 65 67 69 6e 0a 20 20 20 20 20 20 6d 61 78 20 3a 3d 20 69 66 20 61 20 3e 20 62 20 74 68 65 ┆ begin max := if a > b the┆
0x80fe0…81000 6e 20 61 20 65 6c 73 65 20 62 3b 0a 65 6e 64 3b 0a 0a 0a 70 72 6f 63 65 00 00 00 00 00 00 00 00 ┆n a else b; end; proce ┆
0x81000…81006 (1032,) (0x388,0x1021)
0x81006…81020 64 75 72 65 20 74 65 73 74 6f 75 74 28 73 74 61 72 74 2c 20 6c 65 6e 67 74 68 ┆dure testout(start, length┆
0x81020…81040 29 3b 0a 69 6e 74 65 67 65 72 20 20 20 20 20 20 20 20 20 20 20 73 74 61 72 74 2c 20 6c 65 6e 67 ┆); integer start, leng┆
0x81040…81060 74 68 3b 0a 62 65 67 69 6e 20 69 6e 74 65 67 65 72 20 61 72 72 61 79 20 6d 6f 76 28 31 3a 6c 65 ┆th; begin integer array mov(1:le┆
0x81060…8107e 6e 67 74 68 29 3b 0a 20 20 20 20 20 20 69 6e 74 65 67 65 72 20 69 2c 20 6a 3b 0a 0a 20 20 ┆ngth); integer i, j; ┆
0x8107e…81084 (0x388,0x1022)
0x81084…810a0 20 20 20 20 73 79 73 74 65 6d 28 35 2c 73 74 61 72 74 2c 6d 6f 76 29 3b 0a 20 20 20 ┆ system(5,start,mov); ┆
0x810a0…810c0 20 20 20 66 6f 72 20 69 20 3a 3d 20 30 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 34 20 64 6f 0a ┆ for i := 0 step 1 until 4 do ┆
0x810c0…810e0 20 20 20 20 20 20 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 3c 3a 3c 31 30 3e 6d 65 73 73 ┆ write(out,<:<10>mess┆
0x810e0…810fc 3a 3e 2c 3c 3c 64 3e 2c 69 2c 3c 3c 64 64 64 64 64 64 64 64 3e 2c 69 61 28 69 2b 34 ┆:>,<<d>,i,<<dddddddd>,ia(i+4┆
0x810fc…81102 (0x388,0x1023)
0x81102…81120 29 29 3b 0a 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 3c 3a 3c 31 30 3e 3c 31 30 3e ┆)); write(out,<:<10><10>┆
0x81120…81140 72 65 63 6f 72 64 3a 3c 31 30 3e 64 65 63 69 6d 61 6c 20 20 20 20 20 67 72 6f 75 70 65 64 3a 3e ┆record:<10>decimal grouped:>┆
0x81140…81160 29 3b 0a 20 20 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c ┆); for i := 1 step 1 until┆
0x81160…8117a 20 6c 65 6e 67 74 68 20 64 6f 0a 20 20 20 20 20 20 62 65 67 69 6e 20 77 72 69 ┆ length do begin wri┆
0x8117a…81180 (0x388,0x1024)
0x81180…811a0 74 65 28 6f 75 74 2c 3c 3a 3c 31 30 3e 3a 3e 2c 3c 3c 64 64 64 64 64 64 64 64 3e 2c 6d 6f 76 28 ┆te(out,<:<10>:>,<<dddddddd>,mov(┆
0x811a0…811c0 69 29 2c 3c 3a 20 20 20 3a 3e 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 6a 20 3a ┆i),<: :>); for j :┆
0x811c0…811e0 3d 20 2d 32 30 20 73 74 65 70 20 34 20 75 6e 74 69 6c 20 30 20 64 6f 0a 20 20 20 20 20 20 20 20 ┆= -20 step 4 until 0 do ┆
0x811e0…81200 20 20 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 3c 3c 64 64 64 64 00 00 00 00 00 00 00 00 ┆ write(out,<<dddd ┆
0x81200…81206 (1033,) (0x388,0x1025)
0x81206…81220 3e 2c 6d 6f 76 28 69 29 20 73 68 69 66 74 20 6a 20 65 78 74 72 61 63 74 20 34 ┆>,mov(i) shift j extract 4┆
0x81220…81240 29 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 65 6e 64 3b 0a 0a 0a 0a 3c 2a 20 62 75 69 6c 64 20 72 ┆); end; end; <* build r┆
0x81240…81260 65 63 6f 72 64 20 66 6f 72 6d 61 74 20 66 6f 72 20 74 68 65 20 75 73 65 72 20 64 65 6c 69 76 65 ┆ecord format for the user delive┆
0x81260…8127e 72 65 64 20 70 61 72 61 6d 65 74 65 72 0a 20 2a 20 61 72 65 61 20 69 70 61 72 20 61 6e 64 ┆red parameter * area ipar and┆
0x8127e…81284 (0x388,0x1026)
0x81284…812a0 20 6f 70 61 72 2e 20 2a 3e 0a 0a 3c 2a 20 67 65 6e 65 72 65 6c 20 68 65 61 64 65 72 ┆ opar. *> <* generel header┆
0x812a0…812c0 2c 20 63 6f 6d 6d 6f 6e 20 74 6f 20 61 6c 6c 20 72 65 63 6f 72 64 73 2e 20 2a 3e 0a 0a 20 20 20 ┆, common to all records. *> ┆
0x812c0…812e0 74 72 65 70 6c 79 20 3a 3d 20 31 3b 20 74 6e 6f 20 3a 3d 20 32 3b 20 74 6e 61 6d 65 20 3a 3d 20 ┆treply := 1; tno := 2; tname := ┆
0x812e0…812fc 33 3b 20 74 75 73 65 72 3a 3d 20 39 3b 0a 0a 3c 2a 20 64 65 66 69 6e 65 20 74 72 61 ┆3; tuser:= 9; <* define tra┆
0x812fc…81302 (0x388,0x1027)
0x81302…81320 6e 73 70 6f 72 74 2e 2a 3e 0a 0a 20 20 20 74 73 65 6e 64 20 3a 3d 20 32 31 3b 20 74 72 65 ┆nsport.*> tsend := 21; tre┆
0x81320…81340 63 65 69 76 20 3a 3d 20 32 36 3b 0a 20 20 20 74 6b 74 79 70 65 20 3a 3d 20 33 30 3b 20 74 6b 67 ┆ceiv := 26; tktype := 30; tkg┆
0x81340…81360 72 6f 75 70 20 3a 3d 20 33 31 3b 20 74 6b 6e 61 6d 65 20 3a 3d 20 33 35 3b 0a 0a 3c 2a 20 61 6e ┆roup := 31; tkname := 35; <* an┆
0x81360…8137a 73 77 65 72 20 64 65 66 69 6e 65 20 74 72 61 6e 73 70 6f 72 74 2e 20 2a 3e 0a ┆swer define transport. *> ┆
0x8137a…81380 (0x388,0x1028)
0x81380…813a0 0a 20 20 20 74 72 65 73 65 72 20 3a 3d 20 37 3b 20 74 73 65 72 72 20 3a 3d 20 38 3b 20 74 72 65 ┆ treser := 7; tserr := 8; tre┆
0x813a0…813c0 72 72 20 3a 3d 20 31 30 3b 0a 0a 3c 2a 20 61 6e 73 77 65 72 20 67 65 74 20 74 72 61 6e 73 70 6f ┆rr := 10; <* answer get transpo┆
0x813c0…813e0 72 74 20 73 74 61 74 65 2e 20 2a 3e 0a 0a 20 20 20 74 73 75 62 6e 6f 20 3a 3d 20 32 30 3b 20 74 ┆rt state. *> tsubno := 20; t┆
0x813e0…81400 73 75 62 73 74 20 3a 3d 20 32 31 3b 20 74 73 75 62 70 6f 73 20 3a 3d 20 00 00 00 00 00 00 00 00 ┆subst := 21; tsubpos := ┆
0x81400…81406 (1034,) (0x388,0x1029)
0x81406…81420 32 32 3b 0a 20 20 20 74 73 75 62 74 69 6d 65 20 3a 3d 20 32 34 3b 20 74 63 61 ┆22; tsubtime := 24; tca┆
0x81420…81440 75 73 65 20 3a 3d 20 32 35 3b 20 74 65 72 72 73 74 20 3a 3d 20 32 36 3b 0a 0a 3c 2a 20 74 68 65 ┆use := 25; terrst := 26; <* the┆
0x81440…81460 20 64 61 74 61 20 68 61 6e 64 6c 65 64 20 74 6f 20 70 72 69 6d 6f 20 69 73 20 62 75 69 6c 64 20 ┆ data handled to primo is build ┆
0x81460…8147e 69 6e 20 74 68 65 0a 20 2a 20 7a 6f 6e 65 20 7a 2e 20 74 68 65 20 66 69 65 6c 64 73 20 61 ┆in the * zone z. the fields a┆
0x8147e…81484 (0x388,0x102a)
0x81484…814a0 72 65 20 6d 6f 76 65 64 20 6f 6e 65 20 62 79 20 6f 6e 65 2c 20 61 6e 64 0a 20 2a 20 ┆re moved one by one, and * ┆
0x814a0…814c0 74 68 65 20 66 69 65 6c 64 20 76 61 72 69 61 62 6c 65 20 7a 69 78 20 70 6f 69 6e 74 73 20 74 6f ┆the field variable zix points to┆
0x814c0…814e0 20 74 68 65 20 6c 61 73 74 20 75 73 65 64 0a 20 2a 20 69 6e 74 65 67 65 72 20 69 6e 20 74 68 65 ┆ the last used * integer in the┆
0x814e0…814fc 20 7a 6f 6e 65 20 72 65 63 6f 72 64 2e 20 2a 3e 0a 0a 20 20 20 7a 69 78 20 3a 3d 20 ┆ zone record. *> zix := ┆
0x814fc…81502 (0x388,0x102b)
0x81502…81520 30 3b 0a 0a 0a 3c 2a 20 74 68 65 20 61 72 72 61 79 20 64 65 73 63 72 20 67 69 76 65 73 20 ┆0; <* the array descr gives ┆
0x81520…81540 74 68 65 20 64 65 66 69 6e 69 74 69 6f 6e 20 6f 66 20 77 68 69 63 68 20 6f 66 20 0a 20 2a 20 74 ┆the definition of which of * t┆
0x81540…81560 68 65 20 72 65 63 6f 72 64 73 20 69 6e 20 74 68 65 20 70 72 69 6d 6f 20 6f 75 74 70 75 74 20 64 ┆he records in the primo output d┆
0x81560…8157a 61 74 61 20 69 73 20 6f 66 20 69 6e 74 65 72 65 73 74 2e 0a 20 2a 20 69 74 20 ┆ata is of interest. * it ┆
0x8157a…81580 (0x388,0x102c)
0x81580…815a0 69 73 20 72 65 70 72 65 73 65 6e 74 65 64 20 61 73 20 61 20 74 72 65 65 20 73 74 72 75 63 74 75 ┆is represented as a tree structu┆
0x815a0…815c0 72 65 2c 20 65 61 63 68 20 6e 6f 64 65 0a 20 2a 20 6f 63 63 75 70 69 65 73 20 32 20 77 6f 72 64 ┆re, each node * occupies 2 word┆
0x815c0…815e0 73 20 67 69 76 69 6e 67 20 74 68 65 20 76 61 6c 75 65 20 6f 66 20 61 6e 20 61 63 63 65 70 74 65 ┆s giving the value of an accepte┆
0x815e0…81600 64 0a 20 2a 20 72 65 63 6f 72 64 20 74 79 70 65 20 69 6e 20 74 68 65 20 00 00 00 00 00 00 00 00 ┆d * record type in the ┆
0x81600…81606 (1035,) (0x388,0x102d)
0x81606…81620 66 69 72 73 74 20 77 6f 72 64 20 2e 20 69 6e 20 74 68 65 20 73 65 63 6f 6e 64 ┆first word . in the second┆
0x81620…81640 20 77 6f 72 64 0a 20 2a 20 69 73 20 65 69 74 68 65 72 20 61 6e 20 61 63 74 69 6f 6e 20 6e 75 6d ┆ word * is either an action num┆
0x81640…81660 62 65 72 20 6f 72 20 61 20 70 6f 69 6e 74 65 72 20 6f 66 20 74 68 65 0a 20 2a 20 64 65 73 63 72 ┆ber or a pointer of the * descr┆
0x81660…8167e 69 70 74 69 6f 6e 20 6f 66 20 74 68 65 20 6e 6f 64 65 73 20 6f 6e 20 74 68 65 20 6e 65 78 ┆iption of the nodes on the nex┆
0x8167e…81684 (0x388,0x102e)
0x81684…816a0 74 20 6c 65 76 65 6c 2e 20 2a 3e 0a 0a 20 20 20 66 6f 72 20 69 3a 3d 20 31 20 73 74 ┆t level. *> for i:= 1 st┆
0x816a0…816c0 65 70 20 31 20 75 6e 74 69 6c 20 34 32 20 64 6f 20 64 65 73 63 72 28 69 29 20 3a 3d 20 63 61 73 ┆ep 1 until 42 do descr(i) := cas┆
0x816c0…816e0 65 20 69 20 6f 66 0a 20 20 20 20 20 20 28 33 2c 20 31 31 2c 20 35 2c 20 32 33 2c 20 37 2c 20 32 ┆e i of (3, 11, 5, 23, 7, 2┆
0x816e0…816fc 33 2c 20 39 2c 20 34 31 2c 20 2d 31 31 2c 20 34 31 2c 0a 20 20 20 20 20 20 20 31 2c ┆3, 9, 41, -11, 41, 1,┆
0x816fc…81702 (0x388,0x102f)
0x81702…81720 20 2d 31 2c 20 33 2c 20 2d 32 2c 20 2d 34 2c 20 31 37 2c 0a 20 20 20 20 20 20 20 31 2c 20 ┆ -1, 3, -2, -4, 17, 1, ┆
0x81720…81740 2d 33 2c 20 33 2c 20 2d 34 2c 20 2d 34 2c 20 2d 35 2c 0a 20 20 20 20 20 20 34 2c 20 31 37 2c 20 ┆-3, 3, -4, -4, -5, 4, 17, ┆
0x81740…81760 31 2c 20 2d 31 2c 20 33 2c 20 2d 32 2c 20 2d 31 30 30 30 2c 20 33 31 2c 0a 20 20 20 20 20 20 20 ┆1, -1, 3, -2, -1000, 31, ┆
0x81760…8177a 2d 33 2c 20 33 33 2c 0a 20 20 20 20 20 20 20 34 2c 20 2d 36 2c 20 35 2c 20 2d ┆-3, 33, 4, -6, 5, -┆
0x8177a…81780 (0x388,0x1030)
0x81780…817a0 37 2c 20 36 2c 20 2d 37 2c 20 2d 37 2c 20 2d 38 2c 0a 20 20 20 20 20 20 20 2d 34 2c 20 31 37 29 ┆7, 6, -7, -7, -8, -4, 17)┆
0x817a0…817c0 3b 0a 0a 0a 3c 2a 20 6d 61 6b 65 20 74 68 65 20 7a 6f 6e 65 20 72 65 61 64 79 20 66 6f 72 20 63 ┆; <* make the zone ready for c┆
0x817c0…817e0 6f 6d 6d 75 6e 69 63 61 74 69 6f 6e 20 77 69 74 68 20 70 72 69 6d 6f 2e 20 2a 3e 0a 0a 20 20 74 ┆ommunication with primo. *> t┆
0x817e0…81800 65 73 74 20 3a 3d 20 66 61 6c 73 65 3b 0a 20 0a 20 20 20 6f 70 65 6e 28 00 00 00 00 00 00 00 00 ┆est := false; open( ┆
0x81800…81806 (1036,) (0x388,0x1031)
0x81806…81820 7a 2c 20 30 2c 20 3c 3a 70 72 69 6d 6f 3a 3e 2c 20 30 29 3b 0a 20 20 20 6f 75 ┆z, 0, <:primo:>, 0); ou┆
0x81820…81840 74 72 65 63 28 7a 2c 35 30 29 3b 0a 0a 20 20 20 69 66 20 61 63 74 69 6f 6e 20 3d 20 32 20 74 68 ┆trec(z,50); if action = 2 th┆
0x81840…81860 65 6e 0a 0a 3c 2a 20 64 65 66 69 6e 65 20 74 72 61 6e 73 70 6f 72 74 20 2a 3e 0a 20 20 20 62 65 ┆en <* define transport *> be┆
0x81860…8187e 67 69 6e 20 20 65 63 6f 64 65 20 3a 3d 20 38 3b 0a 20 20 20 20 20 20 69 66 20 69 6c 65 6e ┆gin ecode := 8; if ilen┆
0x8187e…81884 (0x388,0x1032)
0x81884…818a0 67 20 3c 33 30 20 6f 72 20 6f 6c 65 6e 67 20 3c 20 31 31 20 74 68 65 6e 20 67 6f 74 ┆g <30 or oleng < 11 then got┆
0x818a0…818c0 6f 20 65 72 65 74 75 72 6e 3b 0a 20 20 20 20 20 20 70 75 74 68 65 61 64 65 72 28 32 2c 30 2c 30 ┆o ereturn; putheader(2,0,0┆
0x818c0…818e0 2c 30 29 3b 20 20 20 20 20 20 3c 2a 64 65 66 69 6e 65 20 74 72 61 6e 73 70 6f 72 74 2a 3e 0a 20 ┆,0); <*define transport*> ┆
0x818e0…818fc 20 20 20 20 20 70 75 74 68 65 61 64 65 72 28 31 2c 31 2c 30 2c 34 29 3b 20 20 20 20 ┆ putheader(1,1,0,4); ┆
0x818fc…81902 (0x388,0x1033)
0x81902…81920 20 20 20 20 20 3c 2a 74 72 61 6e 73 70 6f 72 74 20 6e 61 6d 65 2a 3e 0a 20 20 20 20 20 20 ┆ <*transport name*> ┆
0x81920…81940 70 75 74 66 69 65 6c 64 28 74 6e 61 6d 65 2c 34 29 3b 0a 20 20 20 20 20 20 70 75 74 68 65 61 64 ┆putfield(tname,4); puthead┆
0x81940…81960 65 72 28 32 2c 31 2c 30 2c 34 29 3b 20 20 20 20 20 20 20 20 20 3c 2a 75 73 65 72 20 69 64 65 6e ┆er(2,1,0,4); <*user iden┆
0x81960…8197a 74 2a 3e 0a 20 20 20 20 20 20 70 75 74 66 69 65 6c 64 28 74 75 73 65 72 2c 34 ┆t*> putfield(tuser,4┆
0x8197a…81980 (0x388,0x1034)
0x81980…819a0 29 3b 0a 20 20 20 20 20 20 70 75 74 68 65 61 64 65 72 28 31 30 30 30 2c 31 2c 30 2c 30 29 3b 20 ┆); putheader(1000,1,0,0); ┆
0x819a0…819c0 20 20 20 20 20 3c 2a 72 65 63 6f 72 64 20 73 75 62 74 72 61 6e 73 70 6f 72 74 2a 3e 0a 20 20 20 ┆ <*record subtransport*> ┆
0x819c0…819e0 20 20 20 70 75 74 68 65 61 64 65 72 28 31 2c 32 2c 30 2c 30 29 3b 20 20 20 20 20 20 20 20 20 20 ┆ putheader(1,2,0,0); ┆
0x819e0…81a00 20 20 3c 2a 73 65 6e 64 65 72 20 64 65 76 69 63 65 2a 3e 0a 20 20 20 20 00 00 00 00 00 00 00 00 ┆ <*sender device*> ┆
0x81a00…81a06 (1037,) (0x388,0x1035)
0x81a06…81a20 20 20 70 75 74 68 65 61 64 65 72 28 32 2c 33 2c 30 2c 34 29 3b 20 20 20 20 20 ┆ putheader(2,3,0,4); ┆
0x81a20…81a40 20 20 20 20 20 20 20 20 20 3c 2a 6e 61 6d 65 2a 3e 0a 20 20 20 20 20 20 70 75 74 66 69 65 6c 64 ┆ <*name*> putfield┆
0x81a40…81a60 28 74 73 65 6e 64 2c 34 29 3b 0a 20 20 20 20 20 20 70 75 74 68 65 61 64 65 72 28 32 2c 32 2c 30 ┆(tsend,4); putheader(2,2,0┆
0x81a60…81a7e 2c 30 29 3b 20 20 20 20 20 20 20 20 20 20 20 3c 2a 72 65 63 65 69 76 65 72 20 64 65 76 69 ┆,0); <*receiver devi┆
0x81a7e…81a84 (0x388,0x1036)
0x81a84…81aa0 63 65 2a 3e 0a 20 20 20 20 20 20 70 75 74 68 65 61 64 65 72 28 32 2c 33 2c 30 2c 34 ┆ce*> putheader(2,3,0,4┆
0x81aa0…81ac0 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 2a 6e 61 6d 65 2a 3e 0a 20 20 20 20 20 20 70 ┆); <*name*> p┆
0x81ac0…81ae0 75 74 66 69 65 6c 64 28 74 72 65 63 65 69 76 2c 34 29 3b 0a 0a 20 20 20 20 20 20 74 6c 65 6e 67 ┆utfield(treceiv,4); tleng┆
0x81ae0…81afc 20 3a 3d 20 69 6c 65 6e 67 20 2d 20 32 30 3b 0a 20 20 20 20 20 20 77 68 69 6c 65 20 ┆ := ileng - 20; while ┆
0x81afc…81b02 (0x388,0x1037)
0x81b02…81b20 69 70 61 72 28 74 6b 74 79 70 65 29 20 3c 3e 20 2d 31 20 64 6f 0a 20 20 20 20 20 20 62 65 ┆ipar(tktype) <> -1 do be┆
0x81b20…81b40 67 69 6e 20 65 63 6f 64 65 20 3a 3d 20 38 3b 0a 20 20 20 20 20 20 20 20 20 69 66 20 74 6c 65 6e ┆gin ecode := 8; if tlen┆
0x81b40…81b60 67 20 3c 20 39 20 6f 72 20 7a 69 78 20 3e 20 32 30 30 2d 32 36 20 74 68 65 6e 20 67 6f 74 6f 20 ┆g < 9 or zix > 200-26 then goto ┆
0x81b60…81b7a 65 72 65 74 75 72 6e 3b 0a 20 20 20 20 20 20 20 20 20 65 63 6f 64 65 20 3a 3d ┆ereturn; ecode :=┆
0x81b7a…81b80 (0x388,0x1038)
0x81b80…81ba0 20 39 3b 0a 20 20 20 20 20 20 20 20 20 69 66 20 69 70 61 72 28 74 6b 74 79 70 65 29 20 3c 3e 20 ┆ 9; if ipar(tktype) <> ┆
0x81ba0…81bc0 30 20 74 68 65 6e 20 67 6f 74 6f 20 65 72 65 74 75 72 6e 3b 0a 20 20 20 20 20 20 20 20 20 70 75 ┆0 then goto ereturn; pu┆
0x81bc0…81be0 74 68 65 61 64 65 72 28 33 2c 33 2c 30 2c 30 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 3c 2a 71 ┆theader(3,3,0,0); <*q┆
0x81be0…81c00 75 65 75 65 73 2a 3e 0a 20 20 20 20 20 20 20 20 20 70 75 74 68 65 61 64 00 00 00 00 00 00 00 00 ┆ueues*> puthead ┆
0x81c00…81c06 (1038,) (0x388,0x1039)
0x81c06…81c20 65 72 28 31 2c 34 2c 30 2c 34 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆er(1,4,0,4); ┆
0x81c20…81c40 20 3c 2a 67 72 6f 75 70 20 69 64 2a 3e 0a 20 20 20 20 20 20 20 20 20 70 75 74 66 69 65 6c 64 28 ┆ <*group id*> putfield(┆
0x81c40…81c60 74 6b 67 72 6f 75 70 2c 34 29 3b 0a 20 20 20 20 20 20 20 20 20 70 75 74 68 65 61 64 65 72 28 33 ┆tkgroup,4); putheader(3┆
0x81c60…81c7e 2c 34 2c 30 2c 34 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 2a 6e 61 6d 65 2a ┆,4,0,4); <*name*┆
0x81c7e…81c84 (0x388,0x103a)
0x81c84…81ca0 3e 0a 20 20 20 20 20 20 20 20 20 70 75 74 66 69 65 6c 64 28 74 6b 6e 61 6d 65 2c 34 ┆> putfield(tkname,4┆
0x81ca0…81cc0 29 3b 0a 20 20 20 20 20 20 20 20 20 74 6b 74 79 70 65 20 3a 3d 20 74 6b 74 79 70 65 20 2b 20 39 ┆); tktype := tktype + 9┆
0x81cc0…81ce0 3b 0a 20 20 20 20 20 20 20 20 20 74 6b 67 72 6f 75 70 20 3a 3d 20 74 6b 67 72 6f 75 70 20 2b 20 ┆; tkgroup := tkgroup + ┆
0x81ce0…81cfc 39 3b 0a 20 20 20 20 20 20 20 20 20 74 6b 6e 61 6d 65 20 3a 3d 20 74 6b 6e 61 6d 65 ┆9; tkname := tkname┆
0x81cfc…81d02 (0x388,0x103b)
0x81d02…81d20 20 2b 20 39 3b 0a 20 20 20 20 20 20 20 20 20 74 6c 65 6e 67 20 3a 3d 20 74 6c 65 6e 67 20 ┆ + 9; tleng := tleng ┆
0x81d20…81d40 2d 20 39 3b 0a 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 65 6e 64 20 65 6c 73 65 0a 0a 20 20 20 69 ┆- 9; end; end else i┆
0x81d40…81d60 66 20 61 63 74 69 6f 6e 20 3d 20 34 20 6f 72 20 61 63 74 69 6f 6e 20 3d 20 36 20 6f 72 20 61 63 ┆f action = 4 or action = 6 or ac┆
0x81d60…81d7a 74 69 6f 6e 20 3d 20 38 20 6f 72 20 61 63 74 69 6f 6e 3d 31 30 20 74 68 65 6e ┆tion = 8 or action=10 then┆
0x81d7a…81d80 (0x388,0x103c)
0x81d80…81da0 0a 0a 3c 2a 20 67 65 74 20 73 74 61 74 65 20 6f 66 20 74 72 61 6e 73 70 6f 72 74 2c 20 77 61 69 ┆ <* get state of transport, wai┆
0x81da0…81dc0 74 20 61 6e 64 20 67 65 74 20 73 74 61 74 65 20 6f 66 20 74 72 61 6e 73 70 6f 72 74 2c 0a 20 2a ┆t and get state of transport, *┆
0x81dc0…81de0 20 20 72 65 6c 65 61 73 65 20 74 72 61 6e 73 70 6f 72 74 20 61 6e 64 20 6b 69 6c 6c 20 74 72 61 ┆ release transport and kill tra┆
0x81de0…81e00 6e 73 70 6f 72 74 2e 20 2a 3e 0a 0a 20 20 20 62 65 67 69 6e 0a 20 20 20 00 00 00 00 00 00 00 00 ┆nsport. *> begin ┆
0x81e00…81e06 (1039,) (0x388,0x103d)
0x81e06…81e20 20 20 20 74 6c 65 6e 67 20 3a 3d 20 69 66 20 61 63 74 69 6f 6e 20 3d 20 38 20 ┆ tleng := if action = 8 ┆
0x81e20…81e40 6f 72 20 61 63 74 69 6f 6e 20 3d 20 31 30 20 74 68 65 6e 20 37 20 65 6c 73 65 20 39 3b 0a 20 20 ┆or action = 10 then 7 else 9; ┆
0x81e40…81e60 20 20 20 20 65 63 6f 64 65 20 3a 3d 20 38 3b 20 69 66 20 69 6c 65 6e 67 20 3c 20 74 6c 65 6e 67 ┆ ecode := 8; if ileng < tleng┆
0x81e60…81e7e 20 74 68 65 6e 20 67 6f 74 6f 20 65 72 65 74 75 72 6e 3b 0a 20 20 20 20 20 20 74 6c 65 6e ┆ then goto ereturn; tlen┆
0x81e7e…81e84 (0x388,0x103e)
0x81e84…81ea0 67 20 3a 3d 20 69 66 20 61 63 74 69 6f 6e 20 3d 20 38 20 6f 72 20 61 63 74 69 6f 6e ┆g := if action = 8 or action┆
0x81ea0…81ec0 20 3d 20 31 30 20 20 74 68 65 6e 20 36 20 65 6c 73 65 20 32 36 3b 0a 20 20 20 20 20 20 69 66 20 ┆ = 10 then 6 else 26; if ┆
0x81ec0…81ee0 6f 6c 65 6e 67 20 3c 20 74 6c 65 6e 67 20 74 68 65 6e 20 67 6f 74 6f 20 65 72 65 74 75 72 6e 3b ┆oleng < tleng then goto ereturn;┆
0x81ee0…81efc 0a 20 20 20 20 20 20 70 75 74 68 65 61 64 65 72 28 61 63 74 69 6f 6e 2c 30 2c 30 2c ┆ putheader(action,0,0,┆
0x81efc…81f02 (0x388,0x103f)
0x81f02…81f20 30 29 3b 20 20 20 20 20 20 20 20 20 3c 2a 72 65 63 6f 72 64 20 74 79 70 65 2a 3e 0a 20 20 ┆0); <*record type*> ┆
0x81f20…81f40 20 20 20 70 75 74 68 65 61 64 65 72 28 33 2c 31 2c 30 2c 31 29 3b 20 20 20 20 20 20 20 20 20 20 ┆ putheader(3,1,0,1); ┆
0x81f40…81f60 20 20 20 20 20 20 20 3c 2a 74 72 61 6e 73 70 6f 72 74 20 6e 6f 2a 3e 0a 20 20 20 20 20 20 70 75 ┆ <*transport no*> pu┆
0x81f60…81f7a 74 66 69 65 6c 64 28 74 6e 6f 2c 31 29 3b 0a 20 20 20 65 6e 64 20 65 6c 73 65 ┆tfield(tno,1); end else┆
0x81f7a…81f80 (0x388,0x1040)
0x81f80…81fa0 0a 0a 3c 2a 20 75 6e 6b 6e 6f 77 6e 20 61 63 74 69 6f 6e 2e 20 2a 3e 0a 0a 20 20 20 62 65 67 69 ┆ <* unknown action. *> begi┆
0x81fa0…81fc0 6e 20 65 63 6f 64 65 20 3a 3d 20 37 3b 20 67 6f 74 6f 20 65 72 65 74 75 72 6e 3b 20 65 6e 64 3b ┆n ecode := 7; goto ereturn; end;┆
0x81fc0…81fe0 0a 0a 3c 2a 20 62 75 69 6c 64 20 70 72 69 6d 6f 20 6d 65 73 73 61 67 65 20 69 6e 20 73 68 61 72 ┆ <* build primo message in shar┆
0x81fe0…82000 65 2e 20 2a 3e 0a 0a 20 20 20 72 65 70 65 61 74 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆e. *> repeat ┆
0x82000…82006 (1040,) (0x388,0x1041)
0x82006…82020 20 20 20 20 20 20 20 20 20 20 3c 2a 20 75 6e 74 69 6c 20 73 74 61 74 75 73 20 ┆ <* until status ┆
0x82020…82040 3c 3e 20 73 74 6f 70 70 65 64 20 2a 3e 0a 20 20 20 20 20 20 67 65 74 7a 6f 6e 65 28 7a 2c 69 61 ┆<> stopped *> getzone(z,ia┆
0x82040…82060 29 3b 20 69 3a 3d 69 61 28 31 39 29 3b 0a 20 20 20 20 20 20 67 65 74 73 68 61 72 65 28 7a 2c 20 ┆); i:=ia(19); getshare(z, ┆
0x82060…8207e 69 61 2c 20 31 29 3b 0a 20 20 20 20 20 20 69 20 3a 3d 20 69 20 2b 20 69 61 28 32 29 3b 0a ┆ia, 1); i := i + ia(2); ┆
0x8207e…82084 (0x388,0x1042)
0x82084…820a0 20 20 20 20 20 20 69 61 28 34 29 3a 3d 20 37 20 73 68 69 66 74 20 31 32 3b 20 20 20 ┆ ia(4):= 7 shift 12; ┆
0x820a0…820c0 20 20 20 20 20 20 3c 2a 6f 70 65 72 61 74 69 6f 6e 3a 3d 6f 75 74 70 75 74 2d 69 6e 70 75 74 2a ┆ <*operation:=output-input*┆
0x820c0…820e0 3e 0a 20 20 20 20 20 20 69 61 28 35 29 20 3a 3d 20 69 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆> ia(5) := i; ┆
0x820e0…820fc 3c 2a 66 69 72 73 74 20 6f 75 74 70 75 74 2a 3e 0a 20 20 20 20 20 20 69 61 28 36 29 ┆<*first output*> ia(6)┆
0x820fc…82102 (0x388,0x1043)
0x82102…82120 20 3a 3d 20 69 20 2b 20 7a 69 78 20 2d 20 32 3b 20 20 20 20 3c 2a 6c 61 73 74 20 6f 75 74 ┆ := i + zix - 2; <*last out┆
0x82120…82140 70 75 74 20 2a 3e 0a 20 20 20 20 20 20 69 61 28 37 29 20 3a 3d 20 69 3b 20 20 20 20 20 20 20 20 ┆put *> ia(7) := i; ┆
0x82140…82160 20 20 20 20 20 3c 2a 66 69 72 73 74 20 69 6e 70 75 74 20 3d 20 66 69 72 73 74 20 6f 75 74 70 75 ┆ <*first input = first outpu┆
0x82160…8217a 74 2a 3e 0a 20 20 20 20 20 20 69 61 28 38 29 20 3a 3d 20 69 20 2b 20 32 30 30 ┆t*> ia(8) := i + 200┆
0x8217a…82180 (0x388,0x1044)
0x82180…821a0 2d 32 3b 20 20 20 3c 2a 6c 61 73 74 20 69 6e 70 75 74 20 3d 20 6d 61 78 2a 3e 0a 20 20 20 20 20 ┆-2; <*last input = max*> ┆
0x821a0…821c0 20 73 65 74 73 68 61 72 65 28 7a 2c 69 61 2c 31 29 3b 0a 20 20 20 20 20 20 69 66 20 74 65 73 74 ┆ setshare(z,ia,1); if test┆
0x821c0…821e0 20 74 68 65 6e 20 74 65 73 74 6f 75 74 28 69 2c 20 7a 69 78 2f 2f 32 29 3b 0a 20 20 20 20 20 20 ┆ then testout(i, zix//2); ┆
0x821e0…82200 65 63 6f 64 65 20 3a 3d 20 36 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ecode := 6; ┆
0x82200…82206 (1041,) (0x388,0x1045)
0x82206…82220 20 3c 2a 73 65 6e 64 20 6d 65 73 73 61 67 65 2a 3e 0a 20 20 20 20 20 20 69 66 ┆ <*send message*> if┆
0x82220…82240 20 6d 6f 6e 69 74 6f 72 28 31 36 2c 20 7a 2c 20 31 2c 20 69 61 29 20 3d 20 30 20 74 68 65 6e 20 ┆ monitor(16, z, 1, ia) = 0 then ┆
0x82240…82260 67 6f 74 6f 20 65 72 65 74 75 72 6e 3b 0a 20 20 20 20 20 20 65 63 6f 64 65 20 3a 3d 20 6d 6f 6e ┆goto ereturn; ecode := mon┆
0x82260…8227e 69 74 6f 72 28 31 38 2c 20 7a 2c 20 31 2c 20 69 61 29 3b 0a 20 20 20 20 20 20 69 66 20 65 ┆itor(18, z, 1, ia); if e┆
0x8227e…82284 (0x388,0x1046)
0x82284…822a0 63 6f 64 65 20 3c 3e 20 31 20 74 68 65 6e 20 67 6f 74 6f 20 65 72 65 74 75 72 6e 3b ┆code <> 1 then goto ereturn;┆
0x822a0…822c0 0a 20 20 20 75 6e 74 69 6c 20 69 61 28 31 29 20 3d 20 30 3b 0a 20 20 20 62 79 74 65 73 20 3a 3d ┆ until ia(1) = 0; bytes :=┆
0x822c0…822e0 20 69 61 28 32 29 3b 0a 20 20 20 69 66 20 74 65 73 74 20 74 68 65 6e 20 74 65 73 74 6f 75 74 28 ┆ ia(2); if test then testout(┆
0x822e0…822fc 69 2c 62 79 74 65 73 2f 2f 32 29 3b 0a 0a 3c 2a 20 63 6c 65 61 72 20 75 73 65 72 20 ┆i,bytes//2); <* clear user ┆
0x822fc…82302 (0x388,0x1047)
0x82302…82320 62 75 66 66 65 72 2a 3e 0a 0a 20 20 20 66 6f 72 20 69 3a 3d 20 31 20 73 74 65 70 20 31 20 ┆buffer*> for i:= 1 step 1 ┆
0x82320…82340 75 6e 74 69 6c 20 6f 6c 65 6e 67 20 64 6f 20 6f 70 61 72 28 69 29 20 3a 3d 20 2d 31 3b 0a 0a 0a ┆until oleng do opar(i) := -1; ┆
0x82340…82360 3c 2a 20 74 72 61 6e 73 6c 61 74 65 20 70 72 69 6d 6f 20 64 61 74 61 66 6f 72 6d 61 74 20 74 6f ┆<* translate primo dataformat to┆
0x82360…8237a 20 75 73 65 72 20 6f 75 74 70 75 74 20 66 6f 72 6d 61 74 2e 0a 20 2a 20 61 72 ┆ user output format. * ar┆
0x8237a…82380 (0x388,0x1048)
0x82380…823a0 72 61 79 20 64 65 73 63 72 20 67 69 76 65 73 20 74 68 65 20 73 74 72 75 63 74 75 72 65 20 66 6f ┆ray descr gives the structure fo┆
0x823a0…823c0 72 20 74 68 65 20 66 69 65 6c 64 73 0a 20 2a 20 77 68 69 63 68 20 68 61 73 20 74 6f 20 62 65 20 ┆r the fields * which has to be ┆
0x823c0…823e0 63 6f 70 69 65 64 20 74 6f 20 74 68 65 20 75 73 65 72 20 61 72 65 61 20 2e 2a 3e 0a 0a 20 20 20 ┆copied to the user area .*> ┆
0x823e0…82400 65 63 6f 64 65 20 3a 3d 20 6c 65 76 65 6c 20 3a 3d 20 7a 69 78 20 3a 3d 00 00 00 00 00 00 00 00 ┆ecode := level := zix := ┆
0x82400…82406 (1042,) (0x388,0x1049)
0x82406…82420 20 30 3b 0a 20 20 20 73 74 61 63 6b 69 78 20 3a 3d 20 31 3b 0a 20 20 20 73 74 ┆ 0; stackix := 1; st┆
0x82420…82440 61 63 6b 28 73 74 61 63 6b 69 78 29 20 3a 3d 20 31 3b 0a 0a 72 65 70 31 3a 0a 3c 2a 20 6c 6f 6f ┆ack(stackix) := 1; rep1: <* loo┆
0x82440…82460 6b 20 69 6e 20 70 72 69 6d 6f 20 64 61 74 61 20 66 6f 72 20 61 20 68 65 61 64 65 72 20 77 69 74 ┆k in primo data for a header wit┆
0x82460…8247e 68 20 6c 65 76 65 6c 20 3c 3d 0a 20 2a 20 63 75 72 72 65 6e 74 20 6c 65 76 65 6c 20 28 6e ┆h level <= * current level (n┆
0x8247e…82484 (0x388,0x104a)
0x82484…824a0 6c 65 76 65 6c 29 2e 2a 3e 0a 0a 20 20 20 72 65 70 65 61 74 0a 20 20 20 20 20 20 69 ┆level).*> repeat i┆
0x824a0…824c0 66 20 67 65 74 68 64 72 28 72 65 63 74 79 70 65 2c 20 6e 6c 65 76 65 6c 2c 20 66 6f 72 6d 2c 20 ┆f gethdr(rectype, nlevel, form, ┆
0x824c0…824e0 73 69 7a 65 29 20 3d 20 30 20 74 68 65 6e 20 67 6f 74 6f 20 65 72 65 74 75 72 6e 3b 0a 20 20 20 ┆size) = 0 then goto ereturn; ┆
0x824e0…824fc 75 6e 74 69 6c 20 6e 6c 65 76 65 6c 20 3c 3d 20 6c 65 76 65 6c 3b 0a 0a 3c 2a 20 75 ┆until nlevel <= level; <* u┆
0x824fc…82502 (0x388,0x104b)
0x82502…82520 6e 73 74 61 63 6b 20 64 65 73 63 72 69 70 74 69 6f 6e 20 75 6e 74 69 6c 20 6c 65 76 65 6c ┆nstack description until level┆
0x82520…82540 20 62 65 63 6f 6d 65 73 20 6e 6c 65 76 65 6c 20 69 6e 20 63 75 72 72 65 6e 74 0a 20 2a 20 70 72 ┆ becomes nlevel in current * pr┆
0x82540…82560 69 6d 6f 20 68 65 61 64 65 72 2e 20 2a 3e 0a 20 20 20 73 74 61 63 6b 69 78 20 3a 3d 20 73 74 61 ┆imo header. *> stackix := sta┆
0x82560…8257a 63 6b 69 78 20 2d 20 28 6c 65 76 65 6c 20 2d 20 6e 6c 65 76 65 6c 29 3b 0a 20 ┆ckix - (level - nlevel); ┆
0x8257a…82580 (0x388,0x104c)
0x82580…825a0 20 20 6c 65 76 65 6c 20 3a 3d 20 6e 6c 65 76 65 6c 3b 0a 20 20 20 73 74 61 72 74 20 3a 3d 20 73 ┆ level := nlevel; start := s┆
0x825a0…825c0 74 61 63 6b 28 73 74 61 63 6b 69 78 29 3b 0a 0a 3c 2a 20 73 65 61 72 63 68 20 69 6e 20 64 65 73 ┆tack(stackix); <* search in des┆
0x825c0…825e0 63 72 69 70 74 69 6f 6e 28 6c 65 76 65 6c 29 20 66 6f 72 20 72 65 63 6f 72 64 20 74 79 70 72 2e ┆cription(level) for record typr.┆
0x825e0…82600 2a 3e 0a 0a 20 20 20 66 6f 72 20 69 20 3a 3d 20 73 74 61 72 74 2c 20 69 00 00 00 00 00 00 00 00 ┆*> for i := start, i ┆
0x82600…82606 (1043,) (0x388,0x104d)
0x82606…82620 2b 32 20 77 68 69 6c 65 20 64 65 73 63 72 28 69 2d 32 29 20 3e 20 30 20 64 6f ┆+2 while descr(i-2) > 0 do┆
0x82620…82640 0a 20 20 20 69 66 20 72 65 63 74 79 70 65 20 3d 20 61 62 73 28 64 65 73 63 72 28 69 29 29 20 74 ┆ if rectype = abs(descr(i)) t┆
0x82640…82660 68 65 6e 20 67 6f 74 6f 20 66 6f 75 6e 64 3b 0a 20 20 20 67 6f 74 6f 20 72 65 70 31 3b 0a 0a 66 ┆hen goto found; goto rep1; f┆
0x82660…8267e 6f 75 6e 64 3a 0a 0a 3c 2a 20 63 68 65 63 6b 20 69 66 20 74 68 65 20 64 65 73 63 72 69 70 ┆ound: <* check if the descrip┆
0x8267e…82684 (0x388,0x104e)
0x82684…826a0 74 69 6f 6e 20 74 72 65 65 20 69 73 20 64 65 65 70 65 72 2c 20 69 2e 65 2e 0a 20 2a ┆tion tree is deeper, i.e. *┆
0x826a0…826c0 20 74 68 65 72 65 20 69 73 20 6f 6e 65 20 6d 6f 72 65 20 6c 65 76 65 6c 20 6e 65 65 64 65 64 2e ┆ there is one more level needed.┆
0x826c0…826e0 20 2a 3e 3b 0a 0a 20 20 20 69 66 20 64 65 73 63 72 28 69 2b 31 29 20 3e 20 30 20 74 68 65 6e 0a ┆ *>; if descr(i+1) > 0 then ┆
0x826e0…826fc 20 20 20 62 65 67 69 6e 20 73 74 61 63 6b 69 78 20 3a 3d 20 73 74 61 63 6b 69 78 20 ┆ begin stackix := stackix ┆
0x826fc…82702 (0x388,0x104f)
0x82702…82720 2b 20 31 3b 0a 20 20 20 20 20 20 6c 65 76 65 6c 20 3a 3d 20 6c 65 76 65 6c 20 2b 20 31 3b ┆+ 1; level := level + 1;┆
0x82720…82740 0a 20 20 20 20 20 20 73 74 61 63 6b 28 73 74 61 63 6b 69 78 29 3a 3d 20 64 65 73 63 72 28 69 2b ┆ stack(stackix):= descr(i+┆
0x82740…82760 31 29 3b 0a 20 20 20 20 20 20 67 6f 74 6f 20 72 65 70 31 3b 0a 20 20 20 65 6e 64 20 65 6c 73 65 ┆1); goto rep1; end else┆
0x82760…8277a 0a 20 20 62 65 67 69 6e 0a 0a 0a 3c 2a 20 61 20 70 61 72 61 6d 65 74 65 72 20 ┆ begin <* a parameter ┆
0x8277a…82780 (0x388,0x1050)
0x82780…827a0 66 69 65 6c 64 20 68 61 73 20 74 6f 20 62 65 20 6d 6f 76 65 64 20 61 63 6f 72 64 69 6e 67 20 74 ┆field has to be moved acording t┆
0x827a0…827c0 6f 0a 20 2a 20 61 63 74 69 6f 6e 20 6e 75 6d 62 65 72 2e 20 2a 3e 0a 0a 20 20 20 20 20 20 63 61 ┆o * action number. *> ca┆
0x827c0…827e0 73 65 20 2d 64 65 73 63 72 28 69 2b 31 29 20 6f 66 0a 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 ┆se -descr(i+1) of begin ┆
0x827e0…82800 20 20 20 67 65 74 66 69 65 6c 64 28 74 6e 61 6d 65 2c 34 29 3b 0a 20 20 00 00 00 00 00 00 00 00 ┆ getfield(tname,4); ┆
0x82800…82806 (1044,) (0x388,0x1051)
0x82806…82820 20 20 20 20 67 65 74 66 69 65 6c 64 28 74 6e 6f 2c 31 29 3b 0a 20 20 20 20 20 ┆ getfield(tno,1); ┆
0x82820…82840 20 67 65 74 66 69 65 6c 64 28 74 72 65 70 6c 79 2c 31 29 3b 0a 20 20 20 20 20 20 67 65 74 66 69 ┆ getfield(treply,1); getfi┆
0x82840…82860 65 6c 64 28 74 73 65 72 72 2c 32 29 3b 0a 20 20 20 20 20 20 67 65 74 66 69 65 6c 64 28 74 72 65 ┆eld(tserr,2); getfield(tre┆
0x82860…8287e 72 72 2c 32 29 3b 0a 20 20 20 20 20 20 62 65 67 69 6e 20 6f 70 61 72 28 74 73 75 62 6e 6f ┆rr,2); begin opar(tsubno┆
0x8287e…82884 (0x388,0x1052)
0x82884…828a0 29 20 3a 3d 20 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 67 65 74 66 69 65 6c 64 ┆) := 1; getfield┆
0x828a0…828c0 28 74 73 75 62 73 74 2c 31 29 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 67 65 74 ┆(tsubst,1); end; get┆
0x828c0…828e0 66 69 65 6c 64 28 74 63 61 75 73 65 2c 31 29 3b 0a 20 20 20 20 20 20 67 65 74 66 69 65 6c 64 28 ┆field(tcause,1); getfield(┆
0x828e0…828fc 74 73 75 62 70 6f 73 2c 32 29 3b 0a 20 20 20 20 20 65 6e 64 3b 0a 20 20 65 6e 64 3b ┆tsubpos,2); end; end;┆
0x828fc…82902 (0x388,0x1053)
0x82902…82920 0a 20 20 20 67 6f 74 6f 20 72 65 70 31 3b 0a 0a 65 72 65 74 75 72 6e 3a 0a 20 20 20 67 65 ┆ goto rep1; ereturn: ge┆
0x82920…82940 74 7a 6f 6e 65 28 7a 2c 20 69 61 29 3b 0a 20 20 20 69 61 28 31 33 29 3a 3d 20 30 3b 20 20 20 20 ┆tzone(z, ia); ia(13):= 0; ┆
0x82940…82960 20 20 20 20 20 3c 2a 7a 6f 6e 65 20 73 74 61 74 65 2a 3e 0a 20 20 20 73 65 74 7a 6f 6e 65 28 7a ┆ <*zone state*> setzone(z┆
0x82960…8297a 2c 20 69 61 29 3b 0a 20 20 20 63 6c 6f 73 65 28 7a 2c 74 72 75 65 29 3b 0a 20 ┆, ia); close(z,true); ┆
0x8297a…82980 (0x388,0x1054)
0x82980…829a0 20 20 74 72 61 6e 73 66 65 72 20 3a 3d 20 65 63 6f 64 65 3b 0a 69 66 20 74 65 73 74 20 74 68 65 ┆ transfer := ecode; if test the┆
0x829a0…829c0 6e 0a 62 65 67 69 6e 20 77 72 69 74 65 28 6f 75 74 2c 3c 3a 3c 31 30 3e 74 72 61 6e 73 66 65 72 ┆n begin write(out,<:<10>transfer┆
0x829c0…829e0 20 3d 20 3a 3e 2c 20 3c 3c 64 64 64 3e 2c 65 63 6f 64 65 29 3b 0a 20 20 20 20 20 20 66 6f 72 20 ┆ = :>, <<ddd>,ecode); for ┆
0x829e0…82a00 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 6f 6c 65 6e 00 00 00 00 00 00 00 00 ┆i := 1 step 1 until olen ┆
0x82a00…82a06 (1045,) (0x388,0x1055)
0x82a06…82a20 67 20 64 6f 0a 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 3c 3a 3c 31 30 ┆g do write(out,<:<10┆
0x82a20…82a40 3e 3a 3e 2c 20 3c 3c 64 64 64 64 64 64 64 64 64 3e 2c 20 6f 70 61 72 28 69 29 29 3b 0a 65 6e 64 ┆>:>, <<ddddddddd>, opar(i)); end┆
0x82a40…82a60 3b 0a 65 6e 64 3b 20 65 6e 64 3b 0a 19 00 6c 20 2b 20 31 3b 0a 20 20 20 20 20 20 73 74 61 63 6b ┆; end; end; l + 1; stack┆
0x82a60…82a7e 28 73 74 61 63 6b 69 78 29 3a 3d 20 64 65 73 63 72 28 69 2b 31 29 3b 0a 20 20 20 20 20 20 ┆(stackix):= descr(i+1); ┆
0x82a7e…82a84 (0x388,0x1056)
0x82a84…82aa0 67 6f 74 6f 20 72 65 70 31 3b 0a 20 20 20 65 6e 64 20 65 6c 73 65 0a 20 20 62 65 67 ┆goto rep1; end else beg┆
0x82aa0…82ac0 69 6e 0a 0a 0a 3c 2a 20 61 20 70 61 72 61 6d 65 74 65 72 20 66 69 65 6c 64 20 68 61 73 20 74 6f ┆in <* a parameter field has to┆
0x82ac0…82ae0 20 62 65 20 6d 6f 76 65 64 20 61 63 6f 72 64 69 6e 67 20 74 6f 0a 20 2a 20 61 63 74 69 6f 6e 20 ┆ be moved acording to * action ┆
0x82ae0…82afc 6e 75 6d 62 65 67 69 6e 20 73 74 61 63 6b 69 78 20 3a 3d 20 73 74 61 63 6b 69 78 20 ┆numbegin stackix := stackix ┆
0x82afc…82b02 (0x3ec,0x1057)
0x82b02…82b20 28 68 65 61 64 20 31 0a 20 62 63 68 65 63 6b 70 61 72 61 6d 3d 61 6c 67 6f 6c 20 6d 65 73 ┆(head 1 bcheckparam=algol mes┆
0x82b20…82b40 73 61 67 65 2e 6e 6f 0a 20 69 66 20 6f 6b 2e 79 65 73 0a 20 28 63 3d 6d 65 73 73 61 67 65 20 63 ┆sage.no if ok.yes (c=message c┆
0x82b40…82b60 68 65 63 6b 70 61 72 61 6d 20 63 6f 6d 70 69 6c 65 64 20 6f 6b 0a 20 20 63 68 65 63 6b 70 61 72 ┆heckparam compiled ok checkpar┆
0x82b60…82b7a 61 6d 3d 6d 6f 76 65 20 62 63 68 65 63 6b 70 61 72 61 6d 0a 20 20 63 3d 6c 6f ┆am=move bcheckparam c=lo┆
0x82b7a…82b80 (0x3ec,0x1058)
0x82b80…82ba0 6f 6b 75 70 20 63 68 65 63 6b 70 61 72 61 6d 0a 20 29 0a 20 69 66 20 6f 6b 2e 6e 6f 0a 20 20 63 ┆okup checkparam ) if ok.no c┆
0x82ba0…82bc0 3d 6d 65 73 73 61 67 65 20 63 68 65 63 6b 70 61 72 61 6d 20 65 72 72 6f 72 20 69 6e 20 63 6f 6d ┆=message checkparam error in com┆
0x82bc0…82be0 70 69 6c 61 74 69 6f 6e 0a 29 0a 0a 65 78 74 65 72 6e 61 6c 20 69 6e 74 65 67 65 72 20 70 72 6f ┆pilation ) external integer pro┆
0x82be0…82c00 63 65 64 75 72 65 20 63 68 65 63 6b 70 61 72 61 6d 0a 20 20 28 70 61 72 00 00 00 00 00 00 00 00 ┆cedure checkparam (par ┆
0x82c00…82c06 (1046,) (0x3ec,0x1059)
0x82c06…82c20 61 6d 6e 6f 2c 20 6b 65 79 77 6f 72 64 6e 6f 2c 20 6b 65 79 77 6f 72 64 6c 69 ┆amno, keywordno, keywordli┆
0x82c20…82c40 73 74 2c 20 65 6c 65 6d 65 6e 74 73 2c 20 65 6c 65 6d 65 6e 74 74 79 70 65 2c 20 70 72 69 6e 74 ┆st, elements, elementtype, print┆
0x82c40…82c60 29 3b 0a 76 61 6c 75 65 0a 20 20 20 70 61 72 61 6d 6e 6f 2c 20 20 20 20 20 20 20 20 20 20 20 20 ┆); value paramno, ┆
0x82c60…82c7e 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 ┆ ┆
0x82c7e…82c84 (0x3ec,0x105a)
0x82c84…82ca0 20 20 20 20 20 20 70 72 69 6e 74 20 3b 0a 72 65 61 6c 20 61 72 72 61 79 0a 20 20 20 ┆ print ; real array ┆
0x82ca0…82cc0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6b 65 79 77 6f 72 64 6c 69 73 74 2c ┆ keywordlist,┆
0x82cc0…82ce0 20 65 6c 65 6d 65 6e 74 73 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 0a ┆ elements ; ┆
0x82ce0…82cfc 69 6e 74 65 67 65 72 20 61 72 72 61 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆integer array ┆
0x82cfc…82d02 (0x3ec,0x105b)
0x82d02…82d20 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 ┆ ┆
0x82d20…82d40 20 20 65 6c 65 6d 65 6e 74 74 79 70 65 20 20 20 20 20 20 20 20 3b 0a 69 6e 74 65 67 65 72 0a 20 ┆ elementtype ; integer ┆
0x82d40…82d60 20 20 70 61 72 61 6d 6e 6f 2c 20 6b 65 79 77 6f 72 64 6e 6f 20 20 20 20 20 20 20 20 20 20 20 20 ┆ paramno, keywordno ┆
0x82d60…82d7a 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 ┆ ┆
0x82d7a…82d80 (0x3ec,0x105c)
0x82d80…82da0 20 20 20 20 20 20 3b 0a 62 6f 6f 6c 65 61 6e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ; boolean ┆
0x82da0…82dc0 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 20 20 ┆ ┆
0x82dc0…82de0 20 20 20 70 72 69 6e 74 20 3b 0a 0a 6d 65 73 73 61 67 65 3a 20 2a 2a 2a 20 63 68 65 63 6b 70 61 ┆ print ; message: *** checkpa┆
0x82de0…82e00 72 61 6d 20 76 65 72 73 69 6f 6e 20 20 31 2e 30 30 20 2a 2a 2a 3b 0a 63 00 00 00 00 00 00 00 00 ┆ram version 1.00 ***; c ┆
0x82e00…82e06 (1047,) (0x3ec,0x105d)
0x82e06…82e20 6f 6d 6d 65 6e 74 3a 20 2a 2a 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆omment: *** ┆
0x82e20…82e40 20 20 20 20 20 20 20 20 20 20 20 2a 2a 2a 3b 0a 6d 65 73 73 61 67 65 3a 20 2a 2a 2a 20 65 6c 69 ┆ ***; message: *** eli┆
0x82e40…82e60 2c 20 37 38 2e 30 37 2e 31 33 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 2a 3b 0a 0a 63 6f 6d 6d ┆, 78.07.13 ***; comm┆
0x82e60…82e7e 65 6e 74 3a 0a 20 20 74 68 69 73 20 70 72 6f 63 65 64 75 72 65 20 6d 61 79 20 62 65 20 75 ┆ent: this procedure may be u┆
0x82e7e…82e84 (0x3ec,0x105e)
0x82e84…82ea0 73 65 64 20 74 6f 20 63 68 65 63 6b 20 74 68 65 20 72 69 67 68 74 20 68 61 6e 64 20 ┆sed to check the right hand ┆
0x82ea0…82ec0 73 69 64 65 20 70 61 72 61 6d 65 74 65 72 6c 69 73 74 0a 20 20 6f 66 20 61 20 70 72 6f 67 72 61 ┆side parameterlist of a progra┆
0x82ec0…82ee0 6d 63 61 6c 6c 2e 0a 0a 20 20 74 68 65 20 70 72 6f 63 65 64 75 72 65 20 61 73 73 75 6d 65 73 2c ┆mcall. the procedure assumes,┆
0x82ee0…82efc 20 74 68 61 74 20 74 68 65 20 70 61 72 61 6d 65 74 65 72 6c 69 73 74 20 63 6f 6e 73 ┆ that the parameterlist cons┆
0x82efc…82f02 (0x3ec,0x105f)
0x82f02…82f20 69 73 74 73 20 6f 66 20 61 20 6e 75 6d 62 65 72 0a 20 20 6f 66 20 70 61 72 61 6d 65 74 65 ┆ists of a number of paramete┆
0x82f20…82f40 72 28 67 72 6f 75 70 73 29 20 73 65 70 61 72 61 74 65 64 20 62 79 20 73 70 61 63 65 73 20 28 3c ┆r(groups) separated by spaces (<┆
0x82f40…82f60 73 70 3e 20 69 6e 20 66 70 2d 6e 6f 74 61 74 69 6f 6e 29 2e 0a 0a 20 20 65 61 63 68 20 70 61 72 ┆sp> in fp-notation). each par┆
0x82f60…82f7a 61 6d 65 74 65 72 20 63 6f 6e 73 69 73 74 73 20 6f 66 20 6f 6e 65 20 6f 72 20 ┆ameter consists of one or ┆
0x82f7a…82f80 (0x3ec,0x1060)
0x82f80…82fa0 6d 6f 72 65 20 65 6c 65 6d 65 6e 74 73 2c 20 73 65 70 61 72 61 74 65 64 20 0a 20 20 28 69 66 20 ┆more elements, separated (if ┆
0x82fa0…82fc0 6d 6f 72 65 20 74 68 61 6e 20 6f 6e 65 29 20 62 79 20 70 65 72 69 6f 64 73 2e 0a 0a 20 20 74 68 ┆more than one) by periods. th┆
0x82fc0…82fe0 65 20 66 69 72 73 74 20 28 61 6e 64 20 6d 61 79 62 65 20 6f 6e 6c 79 29 20 65 6c 65 6d 65 6e 74 ┆e first (and maybe only) element┆
0x82fe0…83000 20 61 6e 64 20 69 73 20 61 73 73 75 6d 65 64 0a 20 20 74 6f 20 62 65 20 00 00 00 00 00 00 00 00 ┆ and is assumed to be ┆
0x83000…83006 (1048,) (0x3ec,0x1061)
0x83006…83020 61 20 6b 65 79 77 6f 72 64 2e 20 74 68 65 20 61 72 72 61 79 20 3c 6b 65 79 77 ┆a keyword. the array <keyw┆
0x83020…83040 6f 72 64 6c 69 73 74 3e 20 69 73 20 61 73 73 75 6d 65 64 0a 20 20 74 6f 20 62 65 20 64 65 63 6c ┆ordlist> is assumed to be decl┆
0x83040…83060 61 72 65 64 20 61 73 0a 0a 20 20 20 20 72 65 61 6c 20 61 72 72 61 79 20 6b 65 79 77 6f 72 64 6c ┆ared as real array keywordl┆
0x83060…8307e 69 73 74 28 31 3a 6e 6f 5f 6f 66 5f 6b 65 79 77 6f 72 64 73 2c 20 31 3a 33 29 0a 0a 20 20 ┆ist(1:no_of_keywords, 1:3) ┆
0x8307e…83084 (0x3ec,0x1062)
0x83084…830a0 74 68 65 20 6b 65 79 77 6f 72 64 73 20 61 6c 6c 6f 77 65 64 20 6d 75 73 74 20 62 65 ┆the keywords allowed must be┆
0x830a0…830c0 20 64 65 73 63 72 69 62 65 64 20 69 6e 20 6b 65 79 77 6f 72 64 6c 69 73 74 28 69 2c 20 31 29 20 ┆ described in keywordlist(i, 1) ┆
0x830c0…830e0 61 6e 64 0a 20 20 6b 65 79 77 6f 72 64 6c 69 73 74 28 69 2c 32 29 2e 20 69 66 20 6b 65 79 77 6f ┆and keywordlist(i,2). if keywo┆
0x830e0…830fc 72 64 6c 69 73 74 28 69 2c 31 29 3d 20 6e 75 6c 6c 20 74 68 65 79 20 77 69 6c 6c 20 ┆rdlist(i,1)= null they will ┆
0x830fc…83102 (0x3ec,0x1063)
0x83102…83120 62 65 20 61 73 73 75 6d 65 64 0a 20 20 74 6f 20 6d 61 74 63 68 20 61 6e 79 20 6b 65 79 77 ┆be assumed to match any keyw┆
0x83120…83140 6f 72 64 20 69 6e 20 74 68 65 20 70 61 72 61 6d 65 74 65 72 2e 20 75 6e 75 73 65 64 20 65 6e 74 ┆ord in the parameter. unused ent┆
0x83140…83160 72 69 65 73 20 69 6e 0a 20 20 6b 65 79 77 6f 72 64 6c 69 73 74 20 73 68 6f 75 6c 64 20 68 61 76 ┆ries in keywordlist should hav┆
0x83160…8317a 65 20 6b 65 79 77 6f 72 64 6c 69 73 74 28 69 2c 31 29 20 73 65 74 20 74 6f 20 ┆e keywordlist(i,1) set to ┆
0x8317a…83180 (0x3ec,0x1064)
0x83180…831a0 61 0a 20 20 76 61 6c 75 65 20 77 68 69 63 68 20 63 61 6e 20 6e 6f 74 20 70 6f 73 73 69 62 6c 65 ┆a value which can not possible┆
0x831a0…831c0 20 6f 63 63 75 72 20 28 30 2e 30 20 73 68 69 66 74 20 34 38 20 61 64 64 20 2d 31 20 73 68 69 66 ┆ occur (0.0 shift 48 add -1 shif┆
0x831c0…831e0 74 20 32 34 0a 20 20 61 64 64 20 2d 31 29 2e 0a 0a 20 20 6b 65 79 77 6f 72 64 6c 69 73 74 28 69 ┆t 24 add -1). keywordlist(i┆
0x831e0…83200 2c 33 29 20 6d 75 73 74 20 63 6f 6e 74 61 69 6e 20 61 20 73 70 65 63 69 00 00 00 00 00 00 00 00 ┆,3) must contain a speci ┆
0x83200…83206 (1049,) (0x3ec,0x1065)
0x83206…83220 66 69 63 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 74 79 70 65 73 0a 20 20 28 74 ┆fication of the types (t┆
0x83220…83240 65 78 74 20 6f 72 20 69 6e 74 65 67 65 72 29 20 61 6c 6c 6f 77 65 64 20 66 6f 72 20 74 68 65 20 ┆ext or integer) allowed for the ┆
0x83240…83260 65 6c 65 6d 65 6e 74 73 20 69 6e 20 74 68 65 20 70 61 72 61 6d 65 74 65 72 2e 20 65 61 63 68 0a ┆elements in the parameter. each ┆
0x83260…8327e 20 20 73 70 65 63 69 66 69 63 61 74 69 6f 6e 20 63 6f 6e 74 61 69 6e 73 20 33 20 62 69 74 ┆ specification contains 3 bit┆
0x8327e…83284 (0x3ec,0x1066)
0x83284…832a0 73 20 61 73 20 66 6f 6c 6c 6f 77 73 3a 0a 0a 20 20 20 20 30 30 30 20 20 6e 6f 20 65 ┆s as follows: 000 no e┆
0x832a0…832c0 6c 65 6d 65 6e 74 20 61 6c 6c 6f 77 65 64 0a 20 20 20 20 30 30 31 20 20 74 65 78 74 20 65 6c 65 ┆lement allowed 001 text ele┆
0x832c0…832e0 6d 65 6e 74 20 6d 75 73 74 20 62 65 20 70 72 65 73 65 6e 74 0a 20 20 20 20 30 31 30 20 20 69 6e ┆ment must be present 010 in┆
0x832e0…832fc 74 65 67 65 72 20 65 6c 65 6d 65 6e 74 20 6d 75 73 74 20 62 65 20 70 72 65 73 65 6e ┆teger element must be presen┆
0x832fc…83302 (0x3ec,0x1067)
0x83302…83320 74 0a 20 20 20 20 30 31 31 20 20 74 65 78 74 20 6f 72 20 69 6e 74 65 67 65 72 20 65 6c 65 ┆t 011 text or integer ele┆
0x83320…83340 6d 65 6e 74 20 6d 61 79 20 62 65 20 70 72 65 73 65 6e 74 0a 20 20 20 20 31 30 30 20 20 6e 6f 74 ┆ment may be present 100 not┆
0x83340…83360 20 75 73 65 64 20 62 69 74 70 61 74 74 65 72 6e 0a 20 20 20 20 31 30 31 20 20 74 65 78 74 20 65 ┆ used bitpattern 101 text e┆
0x83360…8337a 6c 65 6d 65 6e 74 20 6d 61 79 20 62 65 20 70 72 65 73 65 6e 74 0a 20 20 20 20 ┆lement may be present ┆
0x8337a…83380 (0x3ec,0x1068)
0x83380…833a0 31 31 30 20 20 69 6e 74 65 67 65 72 20 65 6c 65 6d 65 6e 74 20 6d 61 79 20 62 65 20 70 72 65 73 ┆110 integer element may be pres┆
0x833a0…833c0 65 6e 74 0a 20 20 20 20 31 31 31 20 20 74 65 78 74 20 6f 72 20 69 6e 74 65 67 65 72 20 65 6c 65 ┆ent 111 text or integer ele┆
0x833c0…833e0 6d 65 6e 74 20 6d 61 79 20 62 65 20 70 72 65 73 65 6e 74 0a 0a 20 20 6e 6f 74 65 2c 20 74 68 61 ┆ment may be present note, tha┆
0x833e0…83400 74 20 74 68 65 20 6f 70 74 69 6f 6e 61 6c 20 65 6c 65 6d 65 6e 74 73 20 00 00 00 00 00 00 00 00 ┆t the optional elements ┆
0x83400…83406 (1050,) (0x3ec,0x1069)
0x83406…83420 73 68 6f 75 6c 64 2c 20 74 6f 20 6d 61 6b 65 20 73 65 6e 73 65 2c 0a 20 20 61 ┆should, to make sense, a┆
0x83420…83440 70 70 65 61 72 20 61 73 20 74 68 65 20 6c 61 73 74 20 65 6c 65 6d 65 6e 74 73 20 69 6e 20 74 68 ┆ppear as the last elements in th┆
0x83440…83460 65 20 70 61 72 61 6d 65 74 65 72 2e 0a 0a 20 20 74 68 65 20 73 70 65 63 69 66 69 63 61 74 69 6f ┆e parameter. the specificatio┆
0x83460…8347e 6e 73 20 6d 75 73 74 20 62 65 20 70 61 63 6b 65 64 20 69 6e 20 6b 65 79 77 6f 72 64 6c 69 ┆ns must be packed in keywordli┆
0x8347e…83484 (0x3ec,0x106a)
0x83484…834a0 73 74 28 69 2c 33 29 20 69 6e 20 74 68 65 0a 20 20 66 6f 6c 6c 6f 77 69 6e 67 20 77 ┆st(i,3) in the following w┆
0x834a0…834c0 61 79 3a 0a 0a 20 20 20 20 6b 65 79 77 6f 72 64 6c 69 73 74 28 69 2c 33 29 3a 3d 20 30 2e 30 20 ┆ay: keywordlist(i,3):= 0.0 ┆
0x834c0…834e0 73 68 69 66 74 20 34 38 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆shift 48 ┆
0x834e0…834fc 61 64 64 20 3c 73 70 65 63 73 30 3e 20 73 68 69 66 74 20 33 0a 20 20 20 20 20 20 20 ┆add <specs0> shift 3 ┆
0x834fc…83502 (0x3ec,0x106b)
0x83502…83520 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 64 64 20 3c 73 70 65 63 73 31 3e 20 73 ┆ add <specs1> s┆
0x83520…83540 68 69 66 74 20 33 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 64 ┆hift 3 ad┆
0x83540…83560 64 20 3c 73 70 65 63 73 32 3e 20 73 68 69 66 74 20 33 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆d <specs2> shift 3 ┆
0x83560…8357a 20 20 20 20 20 20 20 20 20 20 2e 2e 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ... ┆
0x8357a…83580 (0x3ec,0x106c)
0x83580…835a0 20 20 20 20 20 20 20 20 20 20 20 61 64 64 20 3c 73 70 65 63 73 6e 3e 0a 0a 20 20 3c 73 70 65 63 ┆ add <specsn> <spec┆
0x835a0…835c0 73 30 3e 20 69 73 20 74 68 65 20 73 70 65 63 69 66 69 63 61 74 69 6f 6e 20 66 6f 72 20 74 68 65 ┆s0> is the specification for the┆
0x835c0…835e0 20 6b 65 79 77 6f 72 64 2e 0a 20 20 3c 73 70 65 63 73 31 3e 20 69 73 20 74 68 65 20 73 70 65 63 ┆ keyword. <specs1> is the spec┆
0x835e0…83600 69 66 69 63 61 74 69 6f 6e 20 66 6f 72 20 74 68 65 20 66 69 72 73 74 20 00 00 00 00 00 00 00 00 ┆ification for the first ┆
0x83600…83606 (1051,) (0x3ec,0x106d)
0x83606…83620 65 6c 65 6d 65 6e 74 0a 20 20 66 6f 6c 6c 6f 77 69 6e 67 20 74 68 65 20 6b 65 ┆element following the ke┆
0x83620…83640 79 77 6f 72 64 2c 20 3c 73 70 65 63 73 32 3e 20 74 68 65 20 73 70 65 63 69 66 69 63 61 74 69 6f ┆yword, <specs2> the specificatio┆
0x83640…83660 6e 73 20 6f 66 20 74 68 65 0a 20 20 6e 65 78 74 20 65 6c 65 6d 65 6e 74 20 65 74 63 2e 0a 0a 20 ┆ns of the next element etc. ┆
0x83660…8367e 20 74 68 65 20 61 72 72 61 79 73 20 65 6c 65 6d 65 6e 74 73 20 61 6e 64 20 65 6c 65 6d 65 ┆ the arrays elements and eleme┆
0x8367e…83684 (0x3ec,0x106e)
0x83684…836a0 6e 74 74 79 70 65 20 6d 75 73 74 20 62 65 20 64 65 63 6c 61 72 65 64 20 61 73 0a 0a ┆nttype must be declared as ┆
0x836a0…836c0 20 20 20 20 72 65 61 6c 20 61 72 72 61 79 20 65 6c 65 6d 65 6e 74 73 28 30 3a 6d 61 78 5f 65 6c ┆ real array elements(0:max_el┆
0x836c0…836e0 65 6d 65 6e 74 73 2c 20 31 3a 32 29 0a 20 20 20 20 69 6e 74 65 67 65 72 20 61 72 72 61 79 20 65 ┆ements, 1:2) integer array e┆
0x836e0…836fc 6c 65 6d 65 6e 74 74 79 70 65 28 30 3a 6d 61 78 5f 65 6c 65 6d 65 6e 74 73 29 0a 0a ┆lementtype(0:max_elements) ┆
0x836fc…83702 (0x3ec,0x106f)
0x83702…83720 20 20 77 68 65 72 65 20 3c 6d 61 78 5f 65 6c 65 6d 65 6e 74 73 3e 20 69 73 20 74 68 65 20 ┆ where <max_elements> is the ┆
0x83720…83740 6d 61 78 69 6d 75 6d 20 6e 75 6d 62 65 72 20 28 69 6e 20 65 78 63 65 73 73 20 74 6f 20 74 68 65 ┆maximum number (in excess to the┆
0x83740…83760 0a 20 20 6b 65 79 77 6f 72 64 29 20 6f 66 20 65 6c 65 6d 65 6e 74 73 20 74 68 61 74 20 69 73 20 ┆ keyword) of elements that is ┆
0x83760…8377a 61 6c 6c 6f 77 65 64 20 62 79 20 74 68 65 20 73 70 65 63 69 66 69 63 61 74 69 ┆allowed by the specificati┆
0x8377a…83780 (0x3ec,0x1070)
0x83780…837a0 6f 6e 73 20 69 6e 0a 20 20 61 72 72 61 79 20 6b 65 79 77 6f 72 64 6c 69 73 74 2e 20 6e 6f 74 65 ┆ons in array keywordlist. note┆
0x837a0…837c0 2c 20 74 68 61 74 20 74 68 65 20 70 61 63 6b 69 6e 67 20 6f 66 20 74 68 65 20 73 70 65 63 69 66 ┆, that the packing of the specif┆
0x837c0…837e0 69 63 61 74 69 6f 6e 73 0a 20 20 6c 69 6d 69 74 73 20 74 68 69 73 20 6e 75 6d 62 65 72 20 74 6f ┆ications limits this number to┆
0x837e0…83800 20 61 74 20 6d 6f 73 74 20 31 35 2e 0a 0a 20 20 74 68 65 20 6b 65 79 77 00 00 00 00 00 00 00 00 ┆ at most 15. the keyw ┆
0x83800…83806 (1052,) (0x3ec,0x1071)
0x83806…83820 6f 72 64 20 69 73 20 73 74 6f 72 65 64 20 69 6e 20 65 6c 65 6d 65 6e 74 73 28 ┆ord is stored in elements(┆
0x83820…83840 30 2c 31 29 20 61 6e 64 20 65 6c 65 6d 65 6e 74 73 28 30 2c 32 29 2e 20 74 68 65 20 65 6c 65 6d ┆0,1) and elements(0,2). the elem┆
0x83840…83860 65 6e 74 73 0a 20 20 66 6f 6c 6c 6f 77 69 6e 67 20 61 72 65 20 73 74 6f 72 65 64 20 69 6e 20 65 ┆ents following are stored in e┆
0x83860…8387e 6c 65 6d 65 6e 74 73 28 69 2c 31 29 20 61 6e 64 20 65 6c 65 6d 65 6e 74 73 28 69 2c 32 29 ┆lements(i,1) and elements(i,2)┆
0x8387e…83884 (0x3ec,0x1072)
0x83884…838a0 2c 20 69 3d 31 2c 20 32 2c 20 2e 2e 2e 0a 20 20 74 68 65 20 74 79 70 65 20 6f 66 20 ┆, i=1, 2, ... the type of ┆
0x838a0…838c0 74 68 65 20 6b 65 79 77 6f 72 64 20 61 6e 64 20 74 68 65 20 65 6c 65 6d 65 6e 74 73 20 69 73 20 ┆the keyword and the elements is ┆
0x838c0…838e0 73 69 67 6e 61 6c 6c 65 64 20 69 6e 20 65 6c 65 6d 65 6e 74 74 79 70 65 0a 20 20 69 6e 20 74 68 ┆signalled in elementtype in th┆
0x838e0…838fc 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 77 61 79 3a 0a 0a 20 20 20 20 65 6c 65 6d 65 6e ┆e following way: elemen┆
0x838fc…83902 (0x3ec,0x1073)
0x83902…83920 74 74 79 70 65 28 69 29 3d 20 30 20 20 20 6e 6f 20 65 6c 65 6d 65 6e 74 20 70 72 65 73 65 ┆ttype(i)= 0 no element prese┆
0x83920…83940 6e 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3d 20 31 20 20 20 74 65 78 74 20 ┆nt = 1 text ┆
0x83940…83960 74 79 70 65 20 65 6c 65 6d 65 6e 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3d ┆type element =┆
0x83960…8397a 20 32 20 20 20 69 6e 74 65 67 65 72 20 74 79 70 65 20 65 6c 65 6d 65 6e 74 0a ┆ 2 integer type element ┆
0x8397a…83980 (0x3ec,0x1074)
0x83980…839a0 0a 20 20 69 66 20 63 68 65 63 6b 70 61 72 61 6d 20 72 65 74 75 72 6e 73 20 77 69 74 68 20 6f 6b ┆ if checkparam returns with ok┆
0x839a0…839c0 2d 69 6e 64 69 63 61 74 69 6f 6e 2c 20 65 61 63 68 20 65 6c 65 6d 65 6e 74 20 69 73 20 6f 66 20 ┆-indication, each element is of ┆
0x839c0…839e0 61 0a 20 20 74 79 70 65 20 61 6c 6c 6f 77 65 64 20 69 6e 20 74 68 65 20 73 70 65 63 69 66 69 63 ┆a type allowed in the specific┆
0x839e0…83a00 61 74 69 6f 6e 73 20 69 6e 20 6b 65 79 77 6f 72 64 6c 69 73 74 28 69 2c 00 00 00 00 00 00 00 00 ┆ations in keywordlist(i, ┆
0x83a00…83a06 (1053,) (0x3ec,0x1075)
0x83a06…83a20 20 33 29 2e 0a 0a 20 20 77 68 65 6e 20 63 61 6c 6c 65 64 2c 20 63 68 65 63 6b ┆ 3). when called, check┆
0x83a20…83a40 70 61 72 61 6d 20 77 69 6c 6c 20 63 68 65 63 6b 20 74 68 65 20 70 61 72 61 6d 65 74 65 72 20 73 ┆param will check the parameter s┆
0x83a40…83a60 70 65 63 69 66 69 65 64 0a 20 20 62 79 20 3c 70 61 72 61 6d 6e 6f 3e 2e 20 3c 70 61 72 61 6d 6e ┆pecified by <paramno>. <paramn┆
0x83a60…83a7e 6f 3e 20 6d 75 73 74 20 63 6f 6e 74 61 69 6e 20 74 68 65 20 6e 75 6d 62 65 72 20 28 61 73 ┆o> must contain the number (as┆
0x83a7e…83a84 (0x3ec,0x1076)
0x83a84…83aa0 20 64 65 66 69 6e 65 64 0a 20 20 66 6f 72 20 74 68 65 20 70 72 6f 63 65 64 75 72 65 ┆ defined for the procedure┆
0x83aa0…83ac0 20 73 79 73 74 65 6d 28 34 2c 20 2e 2e 2e 29 20 69 6e 20 74 68 65 20 61 6c 67 6f 6c 2d 6d 61 6e ┆ system(4, ...) in the algol-man┆
0x83ac0…83ae0 75 61 6c 29 0a 20 20 6f 66 20 74 68 65 20 6b 65 79 77 6f 72 64 20 69 6e 20 74 68 65 20 70 61 72 ┆ual) of the keyword in the par┆
0x83ae0…83afc 61 6d 65 74 65 72 2e 20 74 68 65 20 73 65 70 61 72 61 74 6f 72 0a 20 20 70 72 65 63 ┆ameter. the separator prec┆
0x83afc…83b02 (0x3ec,0x1077)
0x83b02…83b20 65 65 64 69 6e 67 20 74 68 69 73 20 65 6c 65 6d 65 6e 74 20 73 68 6f 75 6c 64 20 62 65 20 ┆eeding this element should be ┆
0x83b20…83b40 61 20 73 70 61 63 65 2e 20 69 66 20 63 68 65 63 6b 70 61 72 61 6d 20 69 73 0a 20 20 75 73 65 64 ┆a space. if checkparam is used┆
0x83b40…83b60 20 74 6f 20 63 68 65 63 6b 20 61 6c 6c 20 74 68 65 20 70 61 72 61 6d 65 74 65 72 73 20 74 68 65 ┆ to check all the parameters the┆
0x83b60…83b7a 20 66 69 72 73 74 20 63 61 6c 6c 20 6f 66 20 63 68 65 63 6b 70 61 72 61 6d 0a ┆ first call of checkparam ┆
0x83b7a…83b80 (0x3ec,0x1078)
0x83b80…83ba0 20 20 77 69 6c 6c 20 68 61 76 65 20 3c 70 61 72 61 6d 6e 6f 3e 3d 20 31 20 28 6e 6f 20 6c 65 66 ┆ will have <paramno>= 1 (no lef┆
0x83ba0…83bc0 74 20 73 69 64 65 20 70 61 72 61 6d 65 74 65 72 29 20 6f 72 20 3c 70 61 72 61 6d 6e 6f 3e 3d 20 ┆t side parameter) or <paramno>= ┆
0x83bc0…83be0 32 0a 20 20 28 6c 65 66 74 20 73 69 64 65 20 70 72 65 73 65 6e 74 29 2e 0a 0a 20 20 75 70 6f 6e ┆2 (left side present). upon┆
0x83be0…83c00 20 72 65 74 75 72 6e 2c 20 74 68 65 20 73 75 63 63 65 73 73 20 6f 66 20 00 00 00 00 00 00 00 00 ┆ return, the success of ┆
0x83c00…83c06 (1054,) (0x3ec,0x1079)
0x83c06…83c20 74 68 65 20 70 61 72 61 6d 65 74 65 72 63 68 65 63 6b 20 69 73 20 69 6e 64 69 ┆the parametercheck is indi┆
0x83c20…83c40 63 61 74 65 64 20 74 68 72 6f 75 67 68 0a 20 20 74 68 65 20 76 61 6c 75 65 20 6f 66 20 63 68 65 ┆cated through the value of che┆
0x83c40…83c60 63 6b 70 61 72 61 6d 3a 0a 0a 20 20 20 20 63 68 65 63 6b 70 61 72 61 6d 3d 20 30 20 20 20 6e 6f ┆ckparam: checkparam= 0 no┆
0x83c60…83c7e 20 6d 6f 72 65 20 70 61 72 61 6d 65 74 65 72 73 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ more parameters ┆
0x83c7e…83c84 (0x3ec,0x107a)
0x83c84…83ca0 20 20 3e 20 30 20 20 20 70 61 72 61 6d 65 74 65 72 20 6f 6b 2e 20 6b 65 79 77 6f 72 ┆ > 0 parameter ok. keywor┆
0x83ca0…83cc0 64 20 61 6e 64 20 65 6c 65 6d 65 6e 74 73 20 61 72 65 20 73 74 6f 72 65 64 20 61 73 0a 20 20 20 ┆d and elements are stored as ┆
0x83cc0…83ce0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 65 73 63 72 69 62 65 64 20 61 62 6f 76 65 ┆ described above┆
0x83ce0…83cfc 2e 20 3c 6b 65 79 77 6f 72 64 5f 6e 6f 3e 20 63 6f 6e 74 61 69 6e 73 20 74 68 65 20 ┆. <keyword_no> contains the ┆
0x83cfc…83d02 (0x3ec,0x107b)
0x83d02…83d20 76 61 6c 75 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 66 20 74 ┆value of t┆
0x83d20…83d40 68 65 20 66 69 72 73 74 20 69 6e 64 65 78 20 69 6e 20 6b 65 79 77 6f 72 64 6c 69 73 74 20 77 68 ┆he first index in keywordlist wh┆
0x83d40…83d60 65 72 65 20 74 68 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6b 65 79 77 ┆ere the keyw┆
0x83d60…83d7a 6f 72 64 20 77 61 73 20 66 6f 75 6e 64 2e 20 0a 20 20 20 20 20 20 20 20 20 20 ┆ord was found. ┆
0x83d7a…83d80 (0x3ec,0x107c)
0x83d80…83da0 20 20 20 20 20 20 20 20 20 20 74 68 65 20 76 61 6c 75 65 20 6f 66 20 63 68 65 63 6b 70 61 72 61 ┆ the value of checkpara┆
0x83da0…83dc0 6d 20 69 6e 64 69 63 61 74 65 73 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 0a 20 20 20 20 20 20 ┆m indicates the number of ┆
0x83dc0…83de0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6c 65 6d 65 6e 74 73 20 28 69 6e 63 6c 75 64 69 6e ┆ elements (includin┆
0x83de0…83e00 67 20 74 68 65 20 6b 65 79 77 6f 72 64 29 2e 0a 0a 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆g the keyword). ┆
0x83e00…83e06 (1055,) (0x3ec,0x107d)
0x83e06…83e20 20 20 20 20 20 20 20 20 3c 20 30 20 20 65 72 72 6f 72 20 69 6e 20 70 61 72 61 ┆ < 0 error in para┆
0x83e20…83e40 6d 65 74 65 72 2e 20 74 68 65 20 63 6f 6e 74 65 6e 74 73 20 6f 66 20 3c 6b 65 79 77 6f 72 64 5f ┆meter. the contents of <keyword_┆
0x83e40…83e60 6e 6f 3e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6c 65 6d 65 6e 74 73 ┆no> elements┆
0x83e60…83e7e 20 61 6e 64 20 65 6c 65 6d 65 6e 74 74 79 70 65 20 61 72 65 20 75 6e 64 65 66 69 6e 65 64 ┆ and elementtype are undefined┆
0x83e7e…83e84 (0x3ec,0x107e)
0x83e84…83ea0 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 68 65 20 61 62 ┆. the ab┆
0x83ea0…83ec0 73 6f 6c 75 74 65 20 76 61 6c 75 65 20 6f 66 20 63 68 65 63 6b 70 61 72 61 6d 20 69 6e 64 69 63 ┆solute value of checkparam indic┆
0x83ec0…83ee0 61 74 65 73 20 74 68 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 75 6d ┆ates the num┆
0x83ee0…83efc 62 65 72 20 6f 66 20 65 6c 65 6d 65 6e 74 73 2e 0a 0a 20 20 6e 6f 74 65 2c 20 74 68 ┆ber of elements. note, th┆
0x83efc…83f02 (0x3ec,0x107f)
0x83f02…83f20 61 74 20 77 68 65 6e 20 63 68 65 63 6b 70 61 72 61 6d 3c 3e 30 2c 20 3c 70 61 72 61 6d 6e ┆at when checkparam<>0, <paramn┆
0x83f20…83f40 6f 3e 20 6d 61 79 20 62 65 20 61 64 6a 75 73 74 65 64 20 74 6f 20 70 6f 69 6e 74 0a 20 20 74 6f ┆o> may be adjusted to point to┆
0x83f40…83f60 20 74 68 65 20 6e 65 78 74 20 70 61 72 61 6d 65 74 65 72 20 62 79 20 74 68 65 20 73 74 61 74 65 ┆ the next parameter by the state┆
0x83f60…83f7a 6d 65 6e 74 3a 0a 0a 20 20 20 20 6a 3a 3d 20 63 68 65 63 6b 70 61 72 61 6d 28 ┆ment: j:= checkparam(┆
0x83f7a…83f80 (0x3ec,0x1080)
0x83f80…83fa0 70 61 72 61 6d 6e 6f 2c 20 2e 2e 2e 29 0a 20 20 20 20 70 61 72 61 6d 6e 6f 3a 3d 20 70 61 72 61 ┆paramno, ...) paramno:= para┆
0x83fa0…83fc0 6d 6e 6f 2b 20 61 62 73 20 6a 0a 20 20 20 20 69 66 20 6a 3c 30 20 74 68 65 6e 20 2e 2e 2e 0a 0a ┆mno+ abs j if j<0 then ... ┆
0x83fc0…83fe0 20 20 77 68 65 6e 20 61 6e 20 65 72 72 6f 72 20 69 73 20 64 65 74 65 63 74 65 64 2c 20 63 68 65 ┆ when an error is detected, che┆
0x83fe0…84000 63 6b 70 61 72 61 6d 20 6d 61 79 20 70 72 69 6e 74 20 61 6e 20 65 72 72 00 00 00 00 00 00 00 00 ┆ckparam may print an err ┆
0x84000…84006 (1056,) (0x3ec,0x1081)
0x84006…84020 6f 72 6d 65 73 73 61 67 65 0a 20 20 6f 6e 20 63 75 72 72 65 6e 74 20 6f 75 74 ┆ormessage on current out┆
0x84020…84040 70 75 74 2e 20 74 68 65 20 65 72 72 6f 72 6d 65 73 73 61 67 65 20 68 61 73 20 74 68 65 20 66 6f ┆put. the errormessage has the fo┆
0x84040…84060 6c 6c 6f 77 69 6e 67 20 66 6f 72 6d 61 74 3a 0a 0a 20 20 20 20 2a 2a 2a 3c 70 72 6f 67 6e 61 6d ┆llowing format: ***<prognam┆
0x84060…8407e 65 3e 20 70 61 72 61 6d 3a 20 3c 70 61 72 61 6d 65 74 65 72 3e 0a 0a 20 20 77 68 65 72 65 ┆e> param: <parameter> where┆
0x8407e…84084 (0x3ec,0x1082)
0x84084…840a0 20 3c 70 72 6f 67 6e 61 6d 65 3e 20 69 66 20 74 68 65 20 70 72 6f 67 72 61 6d 6e 61 ┆ <progname> if the programna┆
0x840a0…840c0 6d 65 20 66 6f 75 6e 64 20 69 6e 20 74 68 65 20 66 70 2d 70 61 72 61 6d 65 74 65 72 73 20 61 6e ┆me found in the fp-parameters an┆
0x840c0…840e0 64 0a 20 20 3c 70 61 72 61 6d 65 74 65 72 3e 20 69 73 20 74 68 65 20 69 6c 6c 65 67 61 6c 20 70 ┆d <parameter> is the illegal p┆
0x840e0…840fc 61 72 61 6d 65 74 65 72 2e 0a 20 20 74 68 65 20 65 72 72 6f 72 6d 65 73 73 61 67 65 ┆arameter. the errormessage┆
0x840fc…84102 (0x3ec,0x1083)
0x84102…84120 20 77 69 6c 6c 20 6f 6e 6c 79 20 62 65 20 70 72 69 6e 74 65 64 20 69 66 20 3c 65 72 72 6f ┆ will only be printed if <erro┆
0x84120…84140 72 70 72 69 6e 74 3e 20 69 73 20 74 72 75 65 2e 0a 0a 3b 0a 0c 0a 62 65 67 69 6e 0a 20 20 69 6e ┆rprint> is true. ; begin in┆
0x84140…84160 74 65 67 65 72 20 20 20 20 69 2c 20 6a 2c 20 70 2c 20 6d 61 78 65 6c 65 6d 73 2c 20 6d 61 78 6b ┆teger i, j, p, maxelems, maxk┆
0x84160…8417a 65 79 77 6f 72 64 73 3b 0a 20 20 72 65 61 6c 20 61 72 72 61 79 20 61 72 72 28 ┆eywords; real array arr(┆
0x8417a…84180 (0x3ec,0x1084)
0x84180…841a0 31 3a 32 29 3b 0a 20 20 72 65 61 6c 20 20 20 20 20 20 20 72 2c 20 6e 75 6c 6c 3b 0a 0a 20 20 6e ┆1:2); real r, null; n┆
0x841a0…841c0 75 6c 6c 3a 3d 20 30 2e 30 20 73 68 69 66 74 20 34 38 3b 0a 0a 20 20 69 3a 3d 20 73 79 73 74 65 ┆ull:= 0.0 shift 48; i:= syste┆
0x841c0…841e0 6d 28 33 2c 20 6d 61 78 5f 6b 65 79 77 6f 72 64 73 2c 20 6b 65 79 77 6f 72 64 6c 69 73 74 29 3b ┆m(3, max_keywords, keywordlist);┆
0x841e0…84200 0a 20 20 6d 61 78 6b 65 79 77 6f 72 64 73 3a 3d 20 28 6d 61 78 6b 65 79 00 00 00 00 00 00 00 00 ┆ maxkeywords:= (maxkey ┆
0x84200…84206 (1057,) (0x3ec,0x1085)
0x84206…84220 77 6f 72 64 73 2d 69 2b 31 29 2f 2f 33 3b 0a 0a 0a 20 20 73 79 73 74 65 6d 28 ┆words-i+1)//3; system(┆
0x84220…84240 33 2c 20 69 2c 20 65 6c 65 6d 65 6e 74 74 79 70 65 29 3b 0a 20 20 66 6f 72 20 69 3a 3d 20 69 20 ┆3, i, elementtype); for i:= i ┆
0x84240…84260 73 74 65 70 20 28 2d 31 29 20 75 6e 74 69 6c 20 31 20 64 6f 20 65 6c 65 6d 65 6e 74 74 79 70 65 ┆step (-1) until 1 do elementtype┆
0x84260…8427e 28 69 29 3a 3d 20 30 3b 0a 0a 20 20 63 6f 6d 6d 65 6e 74 3a 20 73 74 61 72 74 20 73 63 61 ┆(i):= 0; comment: start sca┆
0x8427e…84284 (0x3ec,0x1086)
0x84284…842a0 6e 20 6f 66 20 70 61 72 61 6d 65 74 65 72 3b 0a 20 20 6a 3a 3d 20 73 79 73 74 65 6d ┆n of parameter; j:= system┆
0x842a0…842c0 28 34 2c 20 70 61 72 61 6d 6e 6f 2c 20 61 72 72 29 3b 0a 20 20 69 66 20 6a 3d 30 20 74 68 65 6e ┆(4, paramno, arr); if j=0 then┆
0x842c0…842e0 0a 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 3a 20 70 61 72 61 6d 65 74 65 72 6c 69 73 74 20 ┆ begin comment: parameterlist ┆
0x842e0…842fc 65 6d 70 74 79 29 3b 0a 20 20 20 20 63 68 65 63 6b 70 61 72 61 6d 3a 3d 20 30 3b 0a ┆empty); checkparam:= 0; ┆
0x842fc…84302 (0x3ec,0x1087)
0x84302…84320 20 20 20 20 67 6f 74 6f 20 72 65 74 75 72 6e 3b 0a 20 20 65 6e 64 3b 0a 0a 20 20 63 6f 6d ┆ goto return; end; com┆
0x84320…84340 6d 65 6e 74 3a 20 73 65 61 72 63 68 20 66 6f 72 20 6b 65 79 77 6f 72 64 3b 0a 20 20 69 3a 3d 20 ┆ment: search for keyword; i:= ┆
0x84340…84360 31 3b 0a 20 20 77 68 69 6c 65 20 6b 65 79 77 6f 72 64 6c 69 73 74 28 69 2c 31 29 3c 3e 6e 75 6c ┆1; while keywordlist(i,1)<>nul┆
0x84360…8437a 6c 20 61 6e 64 0a 20 20 20 20 20 20 20 20 28 6b 65 79 77 6f 72 64 6c 69 73 74 ┆l and (keywordlist┆
0x8437a…84380 (0x3ec,0x1088)
0x84380…843a0 28 69 2c 31 29 3c 3e 61 72 72 28 31 29 20 6f 72 0a 20 20 20 20 20 20 20 20 20 6b 65 79 77 6f 72 ┆(i,1)<>arr(1) or keywor┆
0x843a0…843c0 64 6c 69 73 74 28 69 2c 32 29 3c 3e 61 72 72 28 32 29 29 20 64 6f 0a 20 20 62 65 67 69 6e 0a 20 ┆dlist(i,2)<>arr(2)) do begin ┆
0x843c0…843e0 20 20 20 69 3a 3d 20 69 2b 31 3b 0a 20 20 20 20 69 66 20 69 3e 6d 61 78 6b 65 79 77 6f 72 64 73 ┆ i:= i+1; if i>maxkeywords┆
0x843e0…84400 20 74 68 65 6e 20 67 6f 74 6f 20 70 61 72 61 6d 65 72 72 6f 72 3b 0a 20 00 00 00 00 00 00 00 00 ┆ then goto paramerror; ┆
0x84400…84406 (1058,) (0x3ec,0x1089)
0x84406…84420 20 65 6e 64 3b 0a 0a 20 20 63 6f 6d 6d 65 6e 74 3a 20 69 20 68 6f 6c 64 73 20 ┆ end; comment: i holds ┆
0x84420…84440 74 68 65 20 6b 65 79 77 6f 72 64 6e 75 6d 62 65 72 3b 0a 20 20 6b 65 79 77 6f 72 64 6e 6f 3a 3d ┆the keywordnumber; keywordno:=┆
0x84440…84460 20 69 3b 0a 20 20 72 3a 3d 20 6b 65 79 77 6f 72 64 6c 69 73 74 28 6b 65 79 77 6f 72 64 6e 6f 2c ┆ i; r:= keywordlist(keywordno,┆
0x84460…8447e 20 33 29 3b 0a 0a 20 20 63 6f 6d 6d 65 6e 74 3a 20 66 69 6e 64 20 6d 61 78 69 6d 75 6d 20 ┆ 3); comment: find maximum ┆
0x8447e…84484 (0x3ec,0x108a)
0x84484…844a0 6e 75 6d 62 65 72 20 6f 66 20 65 6c 65 6d 65 6e 74 73 20 61 6c 6c 6f 77 65 64 3b 0a ┆number of elements allowed; ┆
0x844a0…844c0 20 20 6d 61 78 65 6c 65 6d 73 3a 3d 20 2d 31 3b 0a 20 20 77 68 69 6c 65 20 72 3c 3e 6e 75 6c 6c ┆ maxelems:= -1; while r<>null┆
0x844c0…844e0 20 64 6f 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 6d 61 78 65 6c 65 6d 73 3a 3d 20 6d 61 78 65 6c ┆ do begin maxelems:= maxel┆
0x844e0…844fc 65 6d 73 2b 31 3b 0a 20 20 20 20 72 3a 3d 20 72 20 73 68 69 66 74 20 28 2d 33 29 3b ┆ems+1; r:= r shift (-3);┆
0x844fc…84502 (0x3ec,0x108b)
0x84502…84520 0a 20 20 65 6e 64 3b 0a 0a 20 20 63 6f 6d 6d 65 6e 74 3a 20 63 6f 70 79 20 65 6c 65 6d 65 ┆ end; comment: copy eleme┆
0x84520…84540 6e 74 73 20 64 65 73 63 72 69 70 74 69 6f 6e 20 69 6e 74 6f 20 61 72 72 61 79 20 65 6c 65 6d 65 ┆nts description into array eleme┆
0x84540…84560 6e 74 74 79 70 65 3b 0a 20 20 72 3a 3d 20 6b 65 79 77 6f 72 64 6c 69 73 74 28 6b 65 79 77 6f 72 ┆nttype; r:= keywordlist(keywor┆
0x84560…8457a 64 6e 6f 2c 20 33 29 3b 0a 20 20 66 6f 72 20 69 3a 3d 20 6d 61 78 65 6c 65 6d ┆dno, 3); for i:= maxelem┆
0x8457a…84580 (0x3ec,0x108c)
0x84580…845a0 73 20 73 74 65 70 20 28 2d 31 29 20 75 6e 74 69 6c 20 30 20 64 6f 0a 20 20 62 65 67 69 6e 0a 20 ┆s step (-1) until 0 do begin ┆
0x845a0…845c0 20 20 20 65 6c 65 6d 65 6e 74 74 79 70 65 28 69 29 3a 3d 20 72 20 65 78 74 72 61 63 74 20 33 3b ┆ elementtype(i):= r extract 3;┆
0x845c0…845e0 0a 20 20 20 20 72 3a 3d 20 72 20 73 68 69 66 74 20 28 2d 33 29 3b 0a 20 20 65 6e 64 3b 0a 0a 20 ┆ r:= r shift (-3); end; ┆
0x845e0…84600 20 63 6f 6d 6d 65 6e 74 3a 20 6e 6f 77 20 73 63 61 6e 20 74 68 65 20 65 00 00 00 00 00 00 00 00 ┆ comment: now scan the e ┆
0x84600…84606 (1059,) (0x3ec,0x108d)
0x84606…84620 6c 65 6d 65 6e 74 73 20 69 6e 20 74 68 65 20 70 61 72 61 6d 65 74 65 72 2e 20 ┆lements in the parameter. ┆
0x84620…84640 63 68 65 63 6b 20 74 68 65 20 74 79 70 65 0a 20 20 20 20 20 20 20 20 20 20 20 61 6e 64 20 73 74 ┆check the type and st┆
0x84640…84660 6f 72 65 20 74 68 65 20 65 6c 65 6d 65 6e 74 20 61 6e 64 20 74 68 65 20 65 6c 65 6d 65 6e 74 74 ┆ore the element and the elementt┆
0x84660…8467e 79 70 65 3b 0a 20 20 69 3a 3d 20 30 3b 0a 20 20 66 6f 72 20 6a 3a 3d 20 73 79 73 74 65 6d ┆ype; i:= 0; for j:= system┆
0x8467e…84684 (0x3ec,0x108e)
0x84684…846a0 28 34 2c 70 61 72 61 6d 6e 6f 2b 69 2c 61 72 72 29 20 77 68 69 6c 65 20 28 69 3d 30 ┆(4,paramno+i,arr) while (i=0┆
0x846a0…846c0 29 20 6f 72 20 28 6a 20 73 68 69 66 74 20 28 2d 31 32 29 3d 38 29 20 64 6f 0a 20 20 62 65 67 69 ┆) or (j shift (-12)=8) do begi┆
0x846c0…846e0 6e 0a 20 20 20 20 69 66 20 6a 20 65 78 74 72 61 63 74 20 31 32 3d 31 30 20 74 68 65 6e 0a 20 20 ┆n if j extract 12=10 then ┆
0x846e0…846fc 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 3a 20 74 65 78 74 74 79 70 65 20 65 6c ┆ begin comment: texttype el┆
0x846fc…84702 (0x3ec,0x108f)
0x84702…84720 65 6d 65 6e 74 3b 0a 20 20 20 20 20 20 69 66 20 65 6c 65 6d 65 6e 74 74 79 70 65 28 69 29 ┆ement; if elementtype(i)┆
0x84720…84740 20 65 78 74 72 61 63 74 20 31 3d 30 20 74 68 65 6e 20 67 6f 74 6f 20 70 61 72 61 6d 65 72 72 6f ┆ extract 1=0 then goto paramerro┆
0x84740…84760 72 3b 0a 20 20 20 20 20 20 65 6c 65 6d 65 6e 74 74 79 70 65 28 69 29 3a 3d 20 31 3b 0a 20 20 20 ┆r; elementtype(i):= 1; ┆
0x84760…8477a 20 65 6e 64 20 65 6c 73 65 0a 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e ┆ end else begin commen┆
0x8477a…84780 (0x3ec,0x1090)
0x84780…847a0 74 3a 20 69 6e 74 65 67 65 72 74 79 70 65 20 65 6c 65 6d 65 6e 74 3b 0a 20 20 20 20 20 20 69 66 ┆t: integertype element; if┆
0x847a0…847c0 20 65 6c 65 6d 65 6e 74 74 79 70 65 28 69 29 20 73 68 69 66 74 20 28 2d 31 29 20 65 78 74 72 61 ┆ elementtype(i) shift (-1) extra┆
0x847c0…847e0 63 74 20 31 3d 30 20 74 68 65 6e 20 67 6f 74 6f 20 70 61 72 61 6d 65 72 72 6f 72 3b 0a 20 20 20 ┆ct 1=0 then goto paramerror; ┆
0x847e0…84800 20 20 20 65 6c 65 6d 65 6e 74 74 79 70 65 28 69 29 3a 3d 20 32 3b 0a 20 00 00 00 00 00 00 00 00 ┆ elementtype(i):= 2; ┆
0x84800…84806 (1060,) (0x3ec,0x1091)
0x84806…84820 20 20 20 65 6e 64 3b 0a 20 20 20 20 65 6c 65 6d 65 6e 74 73 28 69 2c 31 29 3a ┆ end; elements(i,1):┆
0x84820…84840 3d 20 61 72 72 28 31 29 3b 0a 20 20 20 20 65 6c 65 6d 65 6e 74 73 28 69 2c 32 29 3a 3d 20 61 72 ┆= arr(1); elements(i,2):= ar┆
0x84840…84860 72 28 32 29 3b 0a 20 20 20 20 69 3a 3d 20 69 2b 31 3b 0a 20 20 65 6e 64 3b 0a 0a 20 20 63 6f 6d ┆r(2); i:= i+1; end; com┆
0x84860…8487e 6d 65 6e 74 3a 20 69 66 20 61 6e 79 20 65 6c 65 6d 65 6e 74 2d 73 70 65 63 69 66 69 63 61 ┆ment: if any element-specifica┆
0x8487e…84884 (0x3ec,0x1092)
0x84884…848a0 74 69 6f 6e 73 20 61 72 65 20 6c 65 66 74 20 75 6e 75 73 65 64 2c 20 74 68 65 79 0a ┆tions are left unused, they ┆
0x848a0…848c0 20 20 20 20 20 20 20 20 20 20 20 73 68 6f 75 6c 64 20 63 6f 6e 74 61 69 6e 20 74 68 65 20 6f 70 ┆ should contain the op┆
0x848c0…848e0 74 69 6f 6e 61 6c 2d 62 69 74 3b 0a 20 20 63 68 65 63 6b 70 61 72 61 6d 3a 3d 20 69 3b 0a 20 20 ┆tional-bit; checkparam:= i; ┆
0x848e0…848fc 66 6f 72 20 69 3a 3d 20 69 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 6d 61 78 65 6c ┆for i:= i step 1 until maxel┆
0x848fc…84902 (0x3ec,0x1093)
0x84902…84920 65 6d 73 20 64 6f 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 69 66 20 65 6c 65 6d 65 6e 74 74 ┆ems do begin if elementt┆
0x84920…84940 79 70 65 28 69 29 20 73 68 69 66 74 20 28 2d 32 29 20 65 78 74 72 61 63 74 20 31 3d 30 20 74 68 ┆ype(i) shift (-2) extract 1=0 th┆
0x84940…84960 65 6e 20 67 6f 74 6f 20 70 61 72 61 6d 65 72 72 6f 72 3b 0a 20 20 20 20 65 6c 65 6d 65 6e 74 74 ┆en goto paramerror; elementt┆
0x84960…8497a 79 70 65 28 69 29 3a 3d 20 30 3b 0a 20 20 65 6e 64 3b 0a 0a 20 20 63 6f 6d 6d ┆ype(i):= 0; end; comm┆
0x8497a…84980 (0x3ec,0x1094)
0x84980…849a0 65 6e 74 3a 20 70 61 72 61 6d 65 74 65 72 20 6f 6b 3b 0a 20 20 67 6f 74 6f 20 72 65 74 75 72 6e ┆ent: parameter ok; goto return┆
0x849a0…849c0 3b 0a 0a 70 61 72 61 6d 65 72 72 6f 72 3a 0a 20 20 69 66 20 70 72 69 6e 74 20 74 68 65 6e 0a 20 ┆; paramerror: if print then ┆
0x849c0…849e0 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 3a 20 66 69 6e 64 20 70 72 6f 67 72 61 6d 6e 61 6d 65 ┆ begin comment: find programname┆
0x849e0…84a00 20 69 6e 20 70 61 72 61 6d 65 74 65 72 6c 69 73 74 3b 0a 20 20 20 20 69 00 00 00 00 00 00 00 00 ┆ in parameterlist; i ┆
0x84a00…84a06 (1061,) (0x3ec,0x1095)
0x84a06…84a20 66 20 73 79 73 74 65 6d 28 34 2c 20 31 2c 20 61 72 72 29 20 73 68 69 66 74 20 ┆f system(4, 1, arr) shift ┆
0x84a20…84a40 28 2d 31 32 29 3c 3e 36 20 74 68 65 6e 0a 20 20 20 20 20 20 20 73 79 73 74 65 6d 28 34 2c 20 30 ┆(-12)<>6 then system(4, 0┆
0x84a40…84a60 2c 20 61 72 72 29 3b 0a 20 20 20 20 69 3a 3d 20 31 3b 0a 20 20 20 20 77 72 69 74 65 28 6f 75 74 ┆, arr); i:= 1; write(out┆
0x84a60…84a7e 2c 20 3c 3a 2a 2a 2a 3a 3e 2c 20 73 74 72 69 6e 67 20 61 72 72 28 69 6e 63 72 65 61 73 65 ┆, <:***:>, string arr(increase┆
0x84a7e…84a84 (0x3ec,0x1096)
0x84a84…84aa0 28 69 29 29 2c 20 3c 3a 20 70 61 72 61 6d 3a 20 3a 3e 29 3b 0a 20 20 65 6e 64 3b 0a ┆(i)), <: param: :>); end; ┆
0x84aa0…84ac0 0a 20 20 63 6f 6d 6d 65 6e 74 3a 20 66 69 6e 64 20 61 63 74 75 61 6c 20 6e 75 6d 62 65 72 20 6f ┆ comment: find actual number o┆
0x84ac0…84ae0 66 20 65 6c 65 6d 65 6e 74 73 20 69 6e 20 65 72 72 6f 6e 65 6f 75 73 20 70 61 72 61 6d 65 74 65 ┆f elements in erroneous paramete┆
0x84ae0…84afc 72 0a 20 20 20 20 20 20 20 20 20 20 20 61 6e 64 20 70 72 69 6e 74 20 65 6c 65 6d 65 ┆r and print eleme┆
0x84afc…84b02 (0x3ec,0x1097)
0x84b02…84b20 6e 74 73 20 69 66 20 73 70 65 63 69 66 69 65 64 3b 0a 20 20 70 3a 3d 20 30 3b 0a 20 20 66 ┆nts if specified; p:= 0; f┆
0x84b20…84b40 6f 72 20 6a 3a 3d 20 73 79 73 74 65 6d 28 34 2c 20 70 61 72 61 6d 6e 6f 2b 70 2c 20 61 72 72 29 ┆or j:= system(4, paramno+p, arr)┆
0x84b40…84b60 20 77 68 69 6c 65 20 28 70 3d 30 29 20 6f 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ while (p=0) or ┆
0x84b60…84b7a 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 ┆ ┆
0x84b7a…84b80 (0x3ec,0x1098)
0x84b80…84ba0 28 6a 20 73 68 69 66 74 20 28 2d 31 32 29 3d 38 29 20 64 6f 0a 20 20 62 65 67 69 6e 0a 20 20 20 ┆(j shift (-12)=8) do begin ┆
0x84ba0…84bc0 20 69 66 20 70 72 69 6e 74 20 74 68 65 6e 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 69 ┆ if print then begin i┆
0x84bc0…84be0 66 20 70 3c 3e 30 20 74 68 65 6e 20 77 72 69 74 65 28 6f 75 74 2c 20 3c 3a 2e 3a 3e 29 3b 0a 20 ┆f p<>0 then write(out, <:.:>); ┆
0x84be0…84c00 20 20 20 20 20 69 66 20 6a 20 65 78 74 72 61 63 74 20 31 32 3d 31 30 20 00 00 00 00 00 00 00 00 ┆ if j extract 12=10 ┆
0x84c00…84c06 (1062,) (0x3ec,0x1099)
0x84c06…84c20 74 68 65 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 69 ┆then begin i┆
0x84c20…84c40 3a 3d 20 31 3b 0a 20 20 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 20 73 74 72 69 6e 67 20 ┆:= 1; write(out, string ┆
0x84c40…84c60 61 72 72 28 69 6e 63 72 65 61 73 65 28 69 29 29 29 3b 0a 20 20 20 20 20 20 65 6e 64 20 65 6c 73 ┆arr(increase(i))); end els┆
0x84c60…84c7e 65 0a 20 20 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 20 3c 3c 64 3e 2c 20 61 72 72 ┆e write(out, <<d>, arr┆
0x84c7e…84c84 (0x3ec,0x109a)
0x84c84…84ca0 28 31 29 29 3b 0a 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 70 3a 3d 20 70 2b 31 3b 0a ┆(1)); end; p:= p+1; ┆
0x84ca0…84cc0 20 20 65 6e 64 3b 0a 20 20 69 66 20 70 72 69 6e 74 20 74 68 65 6e 20 77 72 69 74 65 28 6f 75 74 ┆ end; if print then write(out┆
0x84cc0…84ce0 2c 20 3c 3a 3c 31 30 3e 3a 3e 29 3b 0a 0a 20 20 63 6f 6d 6d 65 6e 74 3a 20 70 20 63 6f 6e 74 61 ┆, <:<10>:>); comment: p conta┆
0x84ce0…84cfc 69 6e 73 20 6e 75 6d 62 65 72 20 6f 66 20 65 6c 65 6d 65 6e 74 73 3b 0a 20 20 63 68 ┆ins number of elements; ch┆
0x84cfc…84d02 (0x3ec,0x109b)
0x84d02…84d20 65 63 6b 70 61 72 61 6d 3a 3d 20 2d 70 3b 0a 0a 72 65 74 75 72 6e 3a 0a 65 6e 64 3b 0a 65 ┆eckparam:= -p; return: end; e┆
0x84d20…84d40 6e 64 0a 0c 0a 28 68 65 61 64 20 31 0a 20 62 66 69 6c 65 78 66 65 72 3d 61 6c 67 6f 6c 20 63 6f ┆nd (head 1 bfilexfer=algol co┆
0x84d40…84d60 6e 6e 65 63 74 2e 6e 6f 20 6d 65 73 73 61 67 65 2e 6e 6f 0a 20 69 66 20 6f 6b 2e 79 65 73 0a 20 ┆nnect.no message.no if ok.yes ┆
0x84d60…84d7a 28 63 3d 6d 65 73 73 61 67 65 20 66 69 6c 65 78 66 65 72 20 63 6f 6d 70 69 6c ┆(c=message filexfer compil┆
0x84d7a…84d80 (0x3ec,0x109c)
0x84d80…84da0 65 64 20 6f 6b 0a 20 20 66 69 6c 65 78 66 65 72 3d 6d 6f 76 65 20 62 66 69 6c 65 78 66 65 72 0a ┆ed ok filexfer=move bfilexfer ┆
0x84da0…84dc0 20 20 63 3d 6c 6f 6f 6b 75 70 20 66 69 6c 65 78 66 65 72 0a 20 29 0a 20 69 66 20 6f 6b 2e 6e 6f ┆ c=lookup filexfer ) if ok.no┆
0x84dc0…84de0 0a 20 20 63 3d 6d 65 73 73 61 67 65 20 66 69 6c 65 78 66 65 72 20 65 72 72 6f 72 20 69 6e 20 63 ┆ c=message filexfer error in c┆
0x84de0…84e00 6f 6d 70 69 6c 61 74 69 6f 6e 0a 29 0a 0a 62 65 67 69 6e 20 6d 65 73 73 00 00 00 00 00 00 00 00 ┆ompilation ) begin mess ┆
0x84e00…84e06 (1063,) (0x3ec,0x109d)
0x84e06…84e20 61 67 65 3a 20 2a 2a 2a 20 66 69 6c 65 78 66 65 72 20 76 65 72 73 69 6f 6e 3a ┆age: *** filexfer version:┆
0x84e20…84e40 20 31 2e 30 31 20 2a 2a 2a 3b 0a 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 3a 20 2a 2a 2a 20 20 20 ┆ 1.01 ***; comment: *** ┆
0x84e40…84e60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 2a 3b 0a 20 20 20 20 20 20 ┆ ***; ┆
0x84e60…84e7e 6d 65 73 73 61 67 65 3a 20 2a 2a 2a 20 65 6c 69 2c 20 37 39 2e 30 34 2e 30 31 20 20 20 20 ┆message: *** eli, 79.04.01 ┆
0x84e7e…84e84 (0x3ec,0x109e)
0x84e84…84ea0 20 20 20 20 20 20 2a 2a 2a 3b 0a 0a 63 6f 6d 6d 65 6e 74 3a 20 70 72 6f 67 72 61 6d ┆ ***; comment: program┆
0x84ea0…84ec0 20 63 6f 6e 73 74 61 6e 74 73 20 61 6e 64 20 67 65 6e 65 72 61 74 69 6f 6e 20 70 61 72 61 6d 65 ┆ constants and generation parame┆
0x84ec0…84ee0 74 65 72 73 3b 0a 0a 0a 69 6e 74 65 67 65 72 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 61 78 5f ┆ters; integer max_┆
0x84ee0…84efc 71 75 65 75 65 5f 73 70 65 63 73 2c 20 6e 6f 5f 6f 66 5f 71 75 65 75 65 5f 73 70 65 ┆queue_specs, no_of_queue_spe┆
0x84efc…84f02 (0x3ec,0x109f)
0x84f02…84f20 63 73 2c 20 66 69 72 73 74 5f 74 6b 72 69 74 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆cs, first_tkrit, ┆
0x84f20…84f40 20 20 20 20 20 20 20 6d 65 73 5f 6c 67 74 2c 20 61 6e 73 5f 6c 67 74 2c 20 64 65 66 5f 74 72 61 ┆ mes_lgt, ans_lgt, def_tra┆
0x84f40…84f60 6e 73 70 6f 72 74 5f 63 6f 64 65 2c 20 77 61 69 74 5f 63 6f 64 65 2c 0a 20 20 20 20 20 20 20 20 ┆nsport_code, wait_code, ┆
0x84f60…84f7a 20 20 20 20 20 20 20 20 20 20 20 20 72 65 6c 65 61 73 65 5f 63 6f 64 65 3b 0a ┆ release_code; ┆
0x84f7a…84f80 (0x3ec,0x10a0)
0x84f80…84fa0 69 6e 74 65 67 65 72 20 66 69 65 6c 64 20 20 20 20 20 20 20 74 72 65 70 6c 79 2c 20 74 6e 6f 2c ┆integer field treply, tno,┆
0x84fa0…84fc0 20 69 6e 74 66 69 2c 20 74 73 65 6e 64 65 72 72 6f 72 2c 20 74 72 65 63 65 69 76 65 65 72 72 6f ┆ intfi, tsenderror, treceiveerro┆
0x84fc0…84fe0 72 3b 0a 69 6e 74 65 67 65 72 20 61 72 72 61 79 20 66 69 65 6c 64 20 74 6b 72 69 74 3b 0a 72 65 ┆r; integer array field tkrit; re┆
0x84fe0…85000 61 6c 20 61 72 72 61 79 20 66 69 65 6c 64 20 20 20 20 74 73 65 6e 64 2c 00 00 00 00 00 00 00 00 ┆al array field tsend, ┆
0x85000…85006 (1064,) (0x3ec,0x10a1)
0x85006…85020 20 74 72 65 63 65 69 76 2c 20 74 6e 61 6d 65 2c 20 74 75 73 65 72 2c 20 71 75 ┆ treceiv, tname, tuser, qu┆
0x85020…85040 65 75 65 2c 20 67 72 6f 75 70 3b 0a 62 6f 6f 6c 65 61 6e 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆eue, group; boolean ┆
0x85040…85060 61 6e 79 5f 65 72 72 6f 72 73 2c 20 76 65 72 69 66 79 2c 20 77 61 69 74 2c 20 72 65 6c 65 61 73 ┆any_errors, verify, wait, releas┆
0x85060…8507e 65 3b 0a 72 65 61 6c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 72 6f 67 6e 61 6d ┆e; real prognam┆
0x8507e…85084 (0x3ec,0x10a2)
0x85084…850a0 65 2c 20 6e 75 6c 6c 3b 0a 0a 63 6f 6d 6d 65 6e 74 3a 20 70 72 6f 67 72 61 6d 20 67 ┆e, null; comment: program g┆
0x850a0…850c0 65 6e 65 72 61 74 69 6f 6e 20 70 61 72 61 6d 65 74 65 72 73 3b 0a 0a 6d 61 78 5f 71 75 65 75 65 ┆eneration parameters; max_queue┆
0x850c0…850e0 5f 73 70 65 63 73 3a 3d 20 31 3b 0a 0a 63 6f 6d 6d 65 6e 74 3a 20 70 72 6f 67 72 61 6d 20 63 6f ┆_specs:= 1; comment: program co┆
0x850e0…850fc 6e 73 74 61 6e 74 73 3b 0a 0a 66 69 72 73 74 5f 74 6b 72 69 74 3a 3d 20 35 38 3b 0a ┆nstants; first_tkrit:= 58; ┆
0x850fc…85102 (0x3ec,0x10a3)
0x85102…85120 74 72 65 70 6c 79 3a 3d 20 69 6e 74 66 69 3a 3d 20 32 3b 0a 74 6e 6f 3a 3d 20 34 3b 0a 74 ┆treply:= intfi:= 2; tno:= 4; t┆
0x85120…85140 6e 61 6d 65 3a 3d 20 34 3b 0a 74 75 73 65 72 3a 3d 20 31 36 3b 0a 74 73 65 6e 64 3a 3d 20 34 30 ┆name:= 4; tuser:= 16; tsend:= 40┆
0x85140…85160 3b 0a 74 72 65 63 65 69 76 3a 3d 20 35 30 3b 0a 67 72 6f 75 70 3a 3d 20 32 3b 0a 71 75 65 75 65 ┆; treceiv:= 50; group:= 2; queue┆
0x85160…8517a 3a 3d 20 31 30 3b 0a 74 6b 72 69 74 3a 3d 20 66 69 72 73 74 5f 74 6b 72 69 74 ┆:= 10; tkrit:= first_tkrit┆
0x8517a…85180 (0x3ec,0x10a4)
0x85180…851a0 3b 0a 74 73 65 6e 64 65 72 72 6f 72 3a 3d 20 31 36 3b 0a 74 72 65 63 65 69 76 65 65 72 72 6f 72 ┆; tsenderror:= 16; treceiveerror┆
0x851a0…851c0 3a 3d 20 32 30 3b 0a 0a 70 72 6f 67 6e 61 6d 65 3a 3d 20 72 65 61 6c 20 3c 3a 2a 2a 2a 66 69 6c ┆:= 20; progname:= real <:***fil┆
0x851c0…851e0 65 78 66 65 72 20 3a 3e 3b 0a 61 6e 79 5f 65 72 72 6f 72 73 3a 3d 20 66 61 6c 73 65 3b 0a 64 65 ┆exfer :>; any_errors:= false; de┆
0x851e0…85200 66 5f 74 72 61 6e 73 70 6f 72 74 5f 63 6f 64 65 3a 3d 20 32 3b 0a 77 61 00 00 00 00 00 00 00 00 ┆f_transport_code:= 2; wa ┆
0x85200…85206 (1065,) (0x3ec,0x10a5)
0x85206…85220 69 74 5f 63 6f 64 65 3a 3d 20 36 3b 0a 72 65 6c 65 61 73 65 5f 63 6f 64 65 3a ┆it_code:= 6; release_code:┆
0x85220…85240 3d 20 38 3b 0a 0a 6d 65 73 5f 6c 67 74 3a 3d 20 33 30 2b 39 2a 6d 61 78 5f 71 75 65 75 65 5f 73 ┆= 8; mes_lgt:= 30+9*max_queue_s┆
0x85240…85260 70 65 63 73 3b 0a 61 6e 73 5f 6c 67 74 3a 3d 20 32 36 3b 0a 6e 75 6c 6c 3a 3d 20 30 2e 30 20 73 ┆pecs; ans_lgt:= 26; null:= 0.0 s┆
0x85260…8527e 68 69 66 74 20 34 38 3b 0a 76 65 72 69 66 79 3a 3d 20 66 61 6c 73 65 3b 0a 77 61 69 74 3a ┆hift 48; verify:= false; wait:┆
0x8527e…85284 (0x3ec,0x10a6)
0x85284…852a0 3d 20 66 61 6c 73 65 3b 0a 72 65 6c 65 61 73 65 3a 3d 20 74 72 75 65 3b 0a 0a 62 65 ┆= false; release:= true; be┆
0x852a0…852c0 67 69 6e 20 63 6f 6d 6d 65 6e 74 3a 20 64 65 63 6c 61 72 61 74 69 6f 6e 20 6f 66 20 77 6f 72 6b ┆gin comment: declaration of work┆
0x852c0…852e0 73 70 61 63 65 3b 0a 20 20 69 6e 74 65 67 65 72 20 61 72 72 61 79 20 6d 65 73 73 28 31 3a 6d 65 ┆space; integer array mess(1:me┆
0x852e0…852fc 73 5f 6c 67 74 29 2c 20 61 6e 73 77 65 72 28 31 3a 61 6e 73 5f 6c 67 74 29 3b 0a 20 ┆s_lgt), answer(1:ans_lgt); ┆
0x852fc…85302 (0x3ec,0x10a7)
0x85302…85320 20 69 6e 74 65 67 65 72 20 20 20 20 20 20 20 69 2c 20 6a 3b 0a 20 20 72 65 61 6c 20 61 72 ┆ integer i, j; real ar┆
0x85320…85340 72 61 79 20 20 20 20 72 65 73 75 6c 74 65 6e 74 72 79 28 31 3a 32 29 3b 0a 0a 20 20 70 72 6f 63 ┆ray resultentry(1:2); proc┆
0x85340…85360 65 64 75 72 65 20 65 6e 74 72 79 28 69 64 29 3b 0a 20 20 76 61 6c 75 65 20 20 20 20 20 20 20 20 ┆edure entry(id); value ┆
0x85360…8537a 20 20 20 69 64 20 3b 0a 20 20 69 6e 74 65 67 65 72 20 20 20 20 20 20 20 20 20 ┆ id ; integer ┆
0x8537a…85380 (0x3ec,0x10a8)
0x85380…853a0 69 64 20 3b 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 7a 6f 6e 65 20 7a 28 31 2c 31 2c 73 74 64 65 ┆id ; begin zone z(1,1,stde┆
0x853a0…853c0 72 72 6f 72 29 3b 0a 20 20 20 20 69 6e 74 65 67 65 72 20 61 72 72 61 79 20 74 61 69 6c 28 31 3a ┆rror); integer array tail(1:┆
0x853c0…853e0 31 30 29 3b 0a 0a 20 20 20 20 69 3a 3d 20 31 3b 0a 20 20 20 20 6f 70 65 6e 28 7a 2c 20 30 2c 20 ┆10); i:= 1; open(z, 0, ┆
0x853e0…85400 73 74 72 69 6e 67 20 72 65 73 75 6c 74 65 6e 74 72 79 28 69 6e 63 72 65 00 00 00 00 00 00 00 00 ┆string resultentry(incre ┆
0x85400…85406 (1066,) (0x3ec,0x10a9)
0x85406…85420 61 73 65 28 69 29 29 2c 20 30 29 3b 0a 20 20 20 20 66 6f 72 20 69 3a 3d 20 32 ┆ase(i)), 0); for i:= 2┆
0x85420…85440 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 31 30 20 64 6f 20 74 61 69 6c 28 69 29 3a 3d 20 30 3b ┆ step 1 until 10 do tail(i):= 0;┆
0x85440…85460 0a 20 20 20 20 74 61 69 6c 28 31 29 3a 3d 20 31 20 73 68 69 66 74 20 32 33 3b 0a 20 20 20 20 74 ┆ tail(1):= 1 shift 23; t┆
0x85460…8547e 61 69 6c 28 37 29 3a 3d 20 69 64 3b 0a 0a 20 20 20 20 6a 3a 3d 20 6d 6f 6e 69 74 6f 72 28 ┆ail(7):= id; j:= monitor(┆
0x8547e…85484 (0x3ec,0x10aa)
0x85484…854a0 34 30 2c 20 7a 2c 20 69 2c 20 74 61 69 6c 29 3b 0a 20 20 20 20 69 66 20 6a 3c 3e 30 ┆40, z, i, tail); if j<>0┆
0x854a0…854c0 20 74 68 65 6e 0a 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 3a 20 65 6e 74 72 79 20 61 ┆ then begin comment: entry a┆
0x854c0…854e0 6c 72 65 61 64 79 20 65 78 69 73 74 73 20 6f 72 20 6f 74 68 65 72 20 63 72 65 61 74 69 6f 6e 20 ┆lready exists or other creation ┆
0x854e0…854fc 65 72 72 6f 72 3b 0a 20 20 20 20 20 20 69 3a 3d 20 31 3b 0a 20 20 20 20 20 20 77 72 ┆error; i:= 1; wr┆
0x854fc…85502 (0x3ec,0x10ab)
0x85502…85520 69 74 65 28 6f 75 74 2c 20 73 74 72 69 6e 67 20 70 72 6f 67 6e 61 6d 65 2c 20 3c 3a 63 72 ┆ite(out, string progname, <:cr┆
0x85520…85540 65 61 74 65 20 3a 3e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 74 72 69 6e 67 ┆eate :>, string┆
0x85540…85560 20 72 65 73 75 6c 74 65 6e 74 72 79 28 69 6e 63 72 65 61 73 65 28 69 29 29 29 3b 0a 20 20 20 20 ┆ resultentry(increase(i))); ┆
0x85560…8557a 20 20 69 66 20 6a 3d 33 20 74 68 65 6e 20 0a 20 20 20 20 20 20 20 20 77 72 69 ┆ if j=3 then wri┆
0x8557a…85580 (0x3ec,0x10ac)
0x85580…855a0 74 65 28 6f 75 74 2c 20 3c 3a 20 65 6e 74 72 79 20 61 6c 72 65 61 64 79 20 65 78 69 73 74 73 3a ┆te(out, <: entry already exists:┆
0x855a0…855c0 3e 29 20 65 6c 73 65 0a 20 20 20 20 20 20 69 66 20 6a 3d 34 20 74 68 65 6e 0a 20 20 20 20 20 20 ┆>) else if j=4 then ┆
0x855c0…855e0 20 20 77 72 69 74 65 28 6f 75 74 2c 20 3c 3a 20 63 6c 61 69 6d 73 20 65 78 63 65 65 64 65 64 3a ┆ write(out, <: claims exceeded:┆
0x855e0…85600 3e 29 20 65 6c 73 65 0a 20 20 20 20 20 20 69 66 20 6a 3d 35 20 74 68 65 00 00 00 00 00 00 00 00 ┆>) else if j=5 the ┆
0x85600…85606 (1067,) (0x3ec,0x10ad)
0x85606…85620 6e 0a 20 20 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 20 3c 3a 20 63 61 ┆n write(out, <: ca┆
0x85620…85640 74 61 6c 6f 67 20 62 61 73 65 20 69 6c 6c 65 67 61 6c 3a 3e 29 20 65 6c 73 65 0a 20 20 20 20 20 ┆talog base illegal:>) else ┆
0x85640…85660 20 77 72 69 74 65 28 6f 75 74 2c 20 3c 3a 20 72 65 73 75 6c 74 3a 20 3a 3e 2c 20 6a 29 3b 0a 20 ┆ write(out, <: result: :>, j); ┆
0x85660…8567e 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 20 3c 3a 3c 31 30 3e 3a 3e 29 3b 0a 20 20 20 ┆ write(out, <:<10>:>); ┆
0x8567e…85684 (0x3ec,0x10ae)
0x85684…856a0 20 20 20 61 6e 79 5f 65 72 72 6f 72 73 3a 3d 20 74 72 75 65 3b 0a 20 20 20 20 20 20 ┆ any_errors:= true; ┆
0x856a0…856c0 67 6f 74 6f 20 65 6e 64 5f 70 72 6f 67 72 61 6d 3b 0a 20 20 20 20 65 6e 64 3b 0a 0a 20 20 20 20 ┆goto end_program; end; ┆
0x856c0…856e0 69 66 20 69 64 3d 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 34 38 2c 20 ┆if id=0 then monitor(48, ┆
0x856e0…856fc 7a 2c 20 69 2c 20 74 61 69 6c 29 3b 0a 20 20 65 6e 64 20 70 72 6f 63 65 64 75 72 65 ┆z, i, tail); end procedure┆
0x856fc…85702 (0x3ec,0x10af)
0x85702…85720 20 65 6e 74 72 79 3b 0a 0a 20 20 63 6f 6d 6d 65 6e 74 3a 20 69 6e 69 74 69 61 6c 69 7a 61 ┆ entry; comment: initializa┆
0x85720…85740 74 69 6f 6e 3b 0a 0a 20 20 6e 6f 5f 6f 66 5f 71 75 65 75 65 5f 73 70 65 63 73 3a 3d 20 30 3b 0a ┆tion; no_of_queue_specs:= 0; ┆
0x85740…85760 20 20 66 6f 72 20 69 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 6d 65 73 5f 6c 67 74 ┆ for i:= 1 step 1 until mes_lgt┆
0x85760…8577a 20 64 6f 20 6d 65 73 73 28 69 29 3a 3d 20 2d 31 3b 0a 20 20 66 6f 72 20 69 3a ┆ do mess(i):= -1; for i:┆
0x8577a…85780 (0x3ec,0x10b0)
0x85780…857a0 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 61 6e 73 5f 6c 67 74 20 64 6f 20 61 6e 73 77 ┆= 1 step 1 until ans_lgt do answ┆
0x857a0…857c0 65 72 28 69 29 3a 3d 20 2d 31 3b 0a 0a 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 3a 20 73 63 ┆er(i):= -1; begin comment: sc┆
0x857c0…857e0 61 6e 20 61 6e 64 20 63 68 65 63 6b 20 6f 66 20 70 61 72 61 6d 65 74 65 72 6c 69 73 74 3b 0a 20 ┆an and check of parameterlist; ┆
0x857e0…85800 20 20 20 72 65 61 6c 20 61 72 72 61 79 20 20 20 20 6b 65 79 77 6f 72 64 00 00 00 00 00 00 00 00 ┆ real array keyword ┆
0x85800…85806 (1068,) (0x3ec,0x10b1)
0x85806…85820 6c 69 73 74 28 31 3a 37 2c 20 31 3a 33 29 2c 20 65 6c 65 6d 65 6e 74 73 28 30 ┆list(1:7, 1:3), elements(0┆
0x85820…85840 3a 32 2c 20 31 3a 32 29 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 72 72 28 ┆:2, 1:2), arr(┆
0x85840…85860 31 3a 32 29 3b 0a 20 20 20 20 69 6e 74 65 67 65 72 20 61 72 72 61 79 20 65 6c 65 6d 65 6e 74 74 ┆1:2); integer array elementt┆
0x85860…8587e 79 70 65 28 30 3a 32 29 3b 0a 20 20 20 20 69 6e 74 65 67 65 72 20 20 20 20 20 20 20 74 65 ┆ype(0:2); integer te┆
0x8587e…85884 (0x3ec,0x10b2)
0x85884…858a0 78 74 2c 20 69 6e 74 2c 20 6b 65 79 77 6f 72 64 6e 6f 2c 20 70 61 72 61 6d 2c 20 69 ┆xt, int, keywordno, param, i┆
0x858a0…858c0 2c 20 6a 2c 20 70 2c 20 69 70 61 72 61 6d 2c 20 6f 70 61 72 61 6d 3b 0a 0a 20 20 20 20 70 72 6f ┆, j, p, iparam, oparam; pro┆
0x858c0…858e0 63 65 64 75 72 65 20 65 72 72 6f 72 28 70 61 72 61 6d 6e 6f 2c 20 74 65 78 74 29 3b 0a 20 20 20 ┆cedure error(paramno, text); ┆
0x858e0…858fc 20 69 6e 74 65 67 65 72 20 20 20 20 20 20 20 20 20 70 61 72 61 6d 6e 6f 3b 0a 20 20 ┆ integer paramno; ┆
0x858fc…85902 (0x3ec,0x10b3)
0x85902…85920 20 20 73 74 72 69 6e 67 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 65 78 ┆ string tex┆
0x85920…85940 74 3b 0a 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 3a 20 70 72 69 6e 74 73 20 61 6e 20 ┆t; begin comment: prints an ┆
0x85940…85960 65 72 72 6f 72 20 6d 65 73 73 20 6f 6e 20 63 75 72 72 65 6e 74 20 6f 75 74 70 75 74 2e 0a 20 20 ┆error mess on current output. ┆
0x85960…8597a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 70 61 72 61 6d 6e ┆ if paramn┆
0x8597a…85980 (0x3ec,0x10b4)
0x85980…859a0 6f 3d 30 20 6f 6e 6c 79 20 74 68 65 20 74 65 78 74 20 69 73 20 70 72 69 6e 74 65 64 2e 0a 20 20 ┆o=0 only the text is printed. ┆
0x859a0…859c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 74 68 65 72 77 69 73 65 20 74 68 65 20 74 ┆ otherwise the t┆
0x859c0…859e0 65 78 74 20 66 6f 6c 6c 6f 77 65 64 20 62 79 20 3c 3a 70 61 72 61 6d 3a 3e 20 69 73 0a 20 20 20 ┆ext followed by <:param:> is ┆
0x859e0…85a00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 72 69 6e 74 65 64 20 00 00 00 00 00 00 00 00 ┆ printed ┆
0x85a00…85a06 (1069,) (0x3ec,0x10b5)
0x85a06…85a20 61 6e 64 20 74 68 65 20 70 61 72 61 6d 65 74 65 72 20 73 70 65 63 69 66 69 65 ┆and the parameter specifie┆
0x85a20…85a40 64 20 62 79 20 70 61 72 61 6d 6e 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆d by paramno ┆
0x85a40…85a60 69 73 20 70 72 69 6e 74 65 64 20 75 6e 74 69 6c 20 61 20 70 61 72 61 6d 65 74 65 72 20 70 72 65 ┆is printed until a parameter pre┆
0x85a60…85a7e 63 65 65 64 65 64 20 62 79 20 3c 73 70 3e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ceeded by <sp> ┆
0x85a7e…85a84 (0x3ec,0x10b6)
0x85a84…85aa0 20 20 20 20 69 73 20 6d 65 74 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ is met. ┆
0x85aa0…85ac0 20 20 20 69 66 20 70 61 72 61 6d 6e 6f 3d 30 20 74 68 65 20 70 72 6f 67 72 61 6d 20 74 65 72 6d ┆ if paramno=0 the program term┆
0x85ac0…85ae0 69 6e 61 74 65 73 3b 0a 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 20 73 74 72 69 6e 67 20 ┆inates; write(out, string ┆
0x85ae0…85afc 70 72 6f 67 6e 61 6d 65 2c 20 74 65 78 74 29 3b 0a 20 20 20 20 20 20 69 66 20 70 61 ┆progname, text); if pa┆
0x85afc…85b02 (0x3ec,0x10b7)
0x85b02…85b20 72 61 6d 6e 6f 3d 30 20 74 68 65 6e 20 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 ┆ramno=0 then begin ┆
0x85b20…85b40 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 20 3c 3a 3c 31 30 3e 3a 3e 29 3b 0a 20 20 20 20 20 20 ┆ write(out, <:<10>:>); ┆
0x85b40…85b60 20 20 67 6f 74 6f 20 65 6e 64 5f 70 72 6f 67 72 61 6d 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 ┆ goto end_program; end; ┆
0x85b60…85b7a 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 20 69 66 20 72 65 61 6c 20 74 65 ┆ write(out, if real te┆
0x85b7a…85b80 (0x3ec,0x10b8)
0x85b80…85ba0 78 74 3d 72 65 61 6c 20 3c 3a 3a 3e 20 74 68 65 6e 20 3c 3a 70 61 72 61 6d 3a 20 3a 3e 0a 20 20 ┆xt=real <::> then <:param: :> ┆
0x85ba0…85bc0 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 20 20 ┆ ┆
0x85bc0…85be0 20 20 20 20 20 20 65 6c 73 65 20 3c 3a 3a 20 3a 3e 29 3b 0a 20 20 20 20 20 20 70 3a 3d 20 70 61 ┆ else <:: :>); p:= pa┆
0x85be0…85c00 72 61 6d 6e 6f 3b 0a 20 20 20 20 20 20 66 6f 72 20 6a 3a 3d 20 73 79 73 00 00 00 00 00 00 00 00 ┆ramno; for j:= sys ┆
0x85c00…85c06 (1070,) (0x3ec,0x10b9)
0x85c06…85c20 74 65 6d 28 34 2c 70 61 72 61 6d 6e 6f 2c 61 72 72 29 20 77 68 69 6c 65 20 6a ┆tem(4,paramno,arr) while j┆
0x85c20…85c40 20 73 68 69 66 74 28 2d 31 32 29 3d 38 20 6f 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ shift(-12)=8 or ┆
0x85c40…85c60 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 70 3d 70 ┆ p=p┆
0x85c60…85c7e 61 72 61 6d 6e 6f 20 64 6f 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 ┆aramno do begin ┆
0x85c7e…85c84 (0x3ec,0x10ba)
0x85c84…85ca0 69 3a 3d 20 31 3b 0a 20 20 20 20 20 20 20 20 69 66 20 6a 20 73 68 69 66 74 20 28 2d ┆i:= 1; if j shift (-┆
0x85ca0…85cc0 31 32 29 3d 38 20 74 68 65 6e 20 77 72 69 74 65 28 6f 75 74 2c 20 3c 3a 2e 3a 3e 29 3b 0a 20 20 ┆12)=8 then write(out, <:.:>); ┆
0x85cc0…85ce0 20 20 20 20 20 20 69 66 20 6a 20 65 78 74 72 61 63 74 20 31 32 3d 34 20 74 68 65 6e 20 77 72 69 ┆ if j extract 12=4 then wri┆
0x85ce0…85cfc 74 65 28 6f 75 74 2c 20 3c 3c 64 3e 2c 20 61 72 72 28 31 29 29 0a 20 20 20 20 20 20 ┆te(out, <<d>, arr(1)) ┆
0x85cfc…85d02 (0x3ec,0x10bb)
0x85d02…85d20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 20 77 72 69 74 65 ┆ else write┆
0x85d20…85d40 28 6f 75 74 2c 20 73 74 72 69 6e 67 20 61 72 72 28 69 6e 63 72 65 61 73 65 28 69 29 29 29 3b 0a ┆(out, string arr(increase(i))); ┆
0x85d40…85d60 20 20 20 20 20 20 20 20 70 61 72 61 6d 6e 6f 3a 3d 20 70 61 72 61 6d 6e 6f 2b 31 3b 0a 20 20 20 ┆ paramno:= paramno+1; ┆
0x85d60…85d7a 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 20 3c ┆ end; write(out, <┆
0x85d7a…85d80 (0x3ec,0x10bc)
0x85d80…85da0 3a 3c 31 30 3e 3a 3e 29 3b 0a 20 20 20 20 20 20 61 6e 79 5f 65 72 72 6f 72 73 3a 3d 20 74 72 75 ┆:<10>:>); any_errors:= tru┆
0x85da0…85dc0 65 3b 0a 0a 20 20 20 20 20 20 67 6f 74 6f 20 73 63 61 6e 5f 70 61 72 61 6d 73 3b 0a 20 20 20 20 ┆e; goto scan_params; ┆
0x85dc0…85de0 65 6e 64 3b 0a 0a 0a 20 20 20 20 74 65 78 74 3a 3d 20 31 3b 0a 20 20 20 20 69 6e 74 3a 3d 20 32 ┆end; text:= 1; int:= 2┆
0x85de0…85e00 3b 0a 0a 20 20 20 20 6b 65 79 77 6f 72 64 6c 69 73 74 28 31 2c 31 29 3a 00 00 00 00 00 00 00 00 ┆; keywordlist(1,1): ┆
0x85e00…85e06 (1071,) (0x3ec,0x10bd)
0x85e06…85e20 3d 20 72 65 61 6c 20 3c 3a 76 65 72 69 66 3a 3e 20 61 64 64 20 31 32 31 3b 0a ┆= real <:verif:> add 121; ┆
0x85e20…85e40 20 20 20 20 6b 65 79 77 6f 72 64 6c 69 73 74 28 31 2c 32 29 3a 3d 20 6e 75 6c 6c 3b 0a 20 20 20 ┆ keywordlist(1,2):= null; ┆
0x85e40…85e60 20 6b 65 79 77 6f 72 64 6c 69 73 74 28 31 2c 33 29 3a 3d 20 6e 75 6c 6c 20 61 64 64 20 74 65 78 ┆ keywordlist(1,3):= null add tex┆
0x85e60…85e7e 74 20 73 68 69 66 74 20 33 20 61 64 64 20 74 65 78 74 3b 0a 0a 20 20 20 20 6b 65 79 77 6f ┆t shift 3 add text; keywo┆
0x85e7e…85e84 (0x3ec,0x10be)
0x85e84…85ea0 72 64 6c 69 73 74 28 32 2c 31 29 3a 3d 20 72 65 61 6c 20 3c 3a 6e 61 6d 65 3a 3e 3b ┆rdlist(2,1):= real <:name:>;┆
0x85ea0…85ec0 0a 20 20 20 20 6b 65 79 77 6f 72 64 6c 69 73 74 28 32 2c 32 29 3a 3d 20 6e 75 6c 6c 3b 0a 20 20 ┆ keywordlist(2,2):= null; ┆
0x85ec0…85ee0 20 20 6b 65 79 77 6f 72 64 6c 69 73 74 28 32 2c 33 29 3a 3d 20 6e 75 6c 6c 20 61 64 64 20 74 65 ┆ keywordlist(2,3):= null add te┆
0x85ee0…85efc 78 74 20 73 68 69 66 74 20 33 20 61 64 64 20 74 65 78 74 3b 0a 0a 20 20 20 20 6b 65 ┆xt shift 3 add text; ke┆
0x85efc…85f02 (0x3ec,0x10bf)
0x85f02…85f20 79 77 6f 72 64 6c 69 73 74 28 33 2c 31 29 3a 3d 20 72 65 61 6c 20 3c 3a 71 75 65 75 65 3a ┆ywordlist(3,1):= real <:queue:┆
0x85f20…85f40 3e 3b 0a 20 20 20 20 6b 65 79 77 6f 72 64 6c 69 73 74 28 33 2c 32 29 3a 3d 20 6e 75 6c 6c 3b 0a ┆>; keywordlist(3,2):= null; ┆
0x85f40…85f60 20 20 20 20 6b 65 79 77 6f 72 64 6c 69 73 74 28 33 2c 33 29 3a 3d 20 6e 75 6c 6c 20 61 64 64 20 ┆ keywordlist(3,3):= null add ┆
0x85f60…85f7a 74 65 78 74 20 73 68 69 66 74 20 33 20 61 64 64 20 74 65 78 74 20 73 68 69 66 ┆text shift 3 add text shif┆
0x85f7a…85f80 (0x3ec,0x10c0)
0x85f80…85fa0 74 20 33 20 61 64 64 20 74 65 78 74 3b 0a 0a 20 20 20 20 6b 65 79 77 6f 72 64 6c 69 73 74 28 34 ┆t 3 add text; keywordlist(4┆
0x85fa0…85fc0 2c 31 29 3a 3d 20 72 65 61 6c 20 3c 3a 72 65 6c 65 61 3a 3e 20 61 64 64 20 31 31 35 3b 0a 20 20 ┆,1):= real <:relea:> add 115; ┆
0x85fc0…85fe0 20 20 6b 65 79 77 6f 72 64 6c 69 73 74 28 34 2c 32 29 3a 3d 20 72 65 61 6c 20 3c 3a 65 3a 3e 3b ┆ keywordlist(4,2):= real <:e:>;┆
0x85fe0…86000 0a 20 20 20 20 6b 65 79 77 6f 72 64 6c 69 73 74 28 34 2c 33 29 3a 3d 20 00 00 00 00 00 00 00 00 ┆ keywordlist(4,3):= ┆
0x86000…86006 (1072,) (0x3ec,0x10c1)
0x86006…86020 6e 75 6c 6c 20 61 64 64 20 74 65 78 74 20 73 68 69 66 74 20 33 20 61 64 64 20 ┆null add text shift 3 add ┆
0x86020…86040 74 65 78 74 3b 0a 0a 20 20 20 20 6b 65 79 77 6f 72 64 6c 69 73 74 28 35 2c 31 29 3a 3d 20 72 65 ┆text; keywordlist(5,1):= re┆
0x86040…86060 61 6c 20 3c 3a 75 73 65 72 3a 3e 3b 0a 20 20 20 20 6b 65 79 77 6f 72 64 6c 69 73 74 28 35 2c 32 ┆al <:user:>; keywordlist(5,2┆
0x86060…8607e 29 3a 3d 20 6e 75 6c 6c 3b 0a 20 20 20 20 6b 65 79 77 6f 72 64 6c 69 73 74 28 35 2c 33 29 ┆):= null; keywordlist(5,3)┆
0x8607e…86084 (0x3ec,0x10c2)
0x86084…860a0 3a 3d 20 6e 75 6c 6c 20 61 64 64 20 74 65 78 74 20 73 68 69 66 74 20 33 20 61 64 64 ┆:= null add text shift 3 add┆
0x860a0…860c0 20 74 65 78 74 3b 0a 0a 20 20 20 20 6b 65 79 77 6f 72 64 6c 69 73 74 28 36 2c 31 29 3a 3d 20 72 ┆ text; keywordlist(6,1):= r┆
0x860c0…860e0 65 61 6c 20 3c 3a 77 61 69 74 3a 3e 3b 0a 20 20 20 20 6b 65 79 77 6f 72 64 6c 69 73 74 28 36 2c ┆eal <:wait:>; keywordlist(6,┆
0x860e0…860fc 32 29 3a 3d 20 6e 75 6c 6c 3b 0a 20 20 20 20 6b 65 79 77 6f 72 64 6c 69 73 74 28 36 ┆2):= null; keywordlist(6┆
0x860fc…86102 (0x3ec,0x10c3)
0x86102…86120 2c 33 29 3a 3d 20 6e 75 6c 6c 20 61 64 64 20 74 65 78 74 20 73 68 69 66 74 20 33 20 61 64 ┆,3):= null add text shift 3 ad┆
0x86120…86140 64 20 74 65 78 74 3b 0a 0a 20 20 20 20 6b 65 79 77 6f 72 64 6c 69 73 74 28 37 2c 31 29 3a 3d 20 ┆d text; keywordlist(7,1):= ┆
0x86140…86160 6b 65 79 77 6f 72 64 6c 69 73 74 28 37 2c 32 29 3a 3d 20 6e 75 6c 6c 3b 0a 20 20 20 20 6b 65 79 ┆keywordlist(7,2):= null; key┆
0x86160…8617a 77 6f 72 64 6c 69 73 74 28 37 2c 33 29 3a 3d 20 6e 75 6c 6c 20 61 64 64 20 74 ┆wordlist(7,3):= null add t┆
0x8617a…86180 (0x3ec,0x10c4)
0x86180…861a0 65 78 74 3b 0a 0a 20 20 20 20 63 6f 6d 6d 65 6e 74 3a 20 63 68 65 63 6b 20 6c 65 66 74 20 73 69 ┆ext; comment: check left si┆
0x861a0…861c0 64 65 3b 0a 20 20 20 20 72 65 73 75 6c 74 65 6e 74 72 79 28 31 29 3a 3d 20 6e 75 6c 6c 3b 0a 20 ┆de; resultentry(1):= null; ┆
0x861c0…861e0 20 20 20 70 61 72 61 6d 3a 3d 20 69 70 61 72 61 6d 3a 3d 20 31 3b 0a 20 20 20 20 6f 70 61 72 61 ┆ param:= iparam:= 1; opara┆
0x861e0…86200 6d 3a 3d 20 32 3b 0a 20 20 20 20 69 66 20 73 79 73 74 65 6d 28 34 2c 31 00 00 00 00 00 00 00 00 ┆m:= 2; if system(4,1 ┆
0x86200…86206 (1073,) (0x3ec,0x10c5)
0x86206…86220 2c 61 72 72 29 20 73 68 69 66 74 20 28 2d 31 32 29 3d 36 20 74 68 65 6e 0a 20 ┆,arr) shift (-12)=6 then ┆
0x86220…86240 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 3a 20 6c 65 66 74 20 73 69 64 65 20 70 72 65 73 ┆ begin comment: left side pres┆
0x86240…86260 65 6e 74 3b 0a 20 20 20 20 20 20 70 61 72 61 6d 3a 3d 20 69 70 61 72 61 6d 3a 3d 20 32 3b 0a 20 ┆ent; param:= iparam:= 2; ┆
0x86260…8627e 20 20 20 20 20 6f 70 61 72 61 6d 3a 3d 20 33 3b 0a 20 20 20 20 20 20 73 79 73 74 65 6d 28 ┆ oparam:= 3; system(┆
0x8627e…86284 (0x3ec,0x10c6)
0x86284…862a0 34 2c 30 2c 72 65 73 75 6c 74 65 6e 74 72 79 29 3b 0a 20 20 20 20 65 6e 64 3b 0a 0a ┆4,0,resultentry); end; ┆
0x862a0…862c0 0a 73 63 61 6e 5f 70 61 72 61 6d 73 3a 0a 20 20 20 20 66 6f 72 20 6a 3a 3d 20 63 68 65 63 6b 70 ┆ scan_params: for j:= checkp┆
0x862c0…862e0 61 72 61 6d 28 70 61 72 61 6d 2c 20 6b 65 79 77 6f 72 64 6e 6f 2c 20 6b 65 79 77 6f 72 64 6c 69 ┆aram(param, keywordno, keywordli┆
0x862e0…862fc 73 74 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 ┆st, e┆
0x862fc…86302 (0x3ec,0x10c7)
0x86302…86320 6c 65 6d 65 6e 74 73 2c 20 65 6c 65 6d 65 6e 74 74 79 70 65 2c 20 66 61 6c 73 65 29 20 77 ┆lements, elementtype, false) w┆
0x86320…86340 68 69 6c 65 20 6a 3c 3e 30 20 64 6f 0a 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 3a 20 ┆hile j<>0 do begin comment: ┆
0x86340…86360 6b 65 79 77 6f 72 64 6e 6f 20 68 6f 6c 64 73 20 74 68 65 20 6b 65 79 77 6f 72 64 6e 75 6d 62 65 ┆keywordno holds the keywordnumbe┆
0x86360…8637a 72 3b 0a 20 20 20 20 20 20 69 66 20 6a 3c 30 20 74 68 65 6e 20 65 72 72 6f 72 ┆r; if j<0 then error┆
0x8637a…86380 (0x3ec,0x10c8)
0x86380…863a0 28 70 61 72 61 6d 2c 20 3c 3a 3a 3e 29 3b 0a 0a 20 20 20 20 20 20 63 61 73 65 20 6b 65 79 77 6f ┆(param, <::>); case keywo┆
0x863a0…863c0 72 64 6e 6f 20 6f 66 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 62 65 67 69 ┆rdno of begin begi┆
0x863c0…863e0 6e 20 3c 2a 20 31 3a 20 76 65 72 69 66 79 2a 3e 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 65 6c ┆n <* 1: verify*> if el┆
0x863e0…86400 65 6d 65 6e 74 73 28 31 2c 31 29 3d 72 65 61 6c 20 3c 3a 79 65 73 3a 3e 00 00 00 00 00 00 00 00 ┆ements(1,1)=real <:yes:> ┆
0x86400…86406 (1074,) (0x3ec,0x10c9)
0x86406…86420 20 74 68 65 6e 20 76 65 72 69 66 79 3a 3d 20 74 72 75 65 20 65 6c 73 65 0a 20 ┆ then verify:= true else ┆
0x86420…86440 20 20 20 20 20 20 20 20 20 69 66 20 65 6c 65 6d 65 6e 74 73 28 31 2c 31 29 3d 72 65 61 6c 20 3c ┆ if elements(1,1)=real <┆
0x86440…86460 3a 6e 6f 3a 3e 20 20 74 68 65 6e 20 76 65 72 69 66 79 3a 3d 20 66 61 6c 73 65 20 65 6c 73 65 0a ┆:no:> then verify:= false else ┆
0x86460…8647e 20 20 20 20 20 20 20 20 20 20 65 72 72 6f 72 28 70 61 72 61 6d 2c 20 3c 3a 3a 3e 29 3b 0a ┆ error(param, <::>); ┆
0x8647e…86484 (0x3ec,0x10ca)
0x86484…864a0 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 ┆ end; begin ┆
0x864a0…864c0 3c 2a 20 32 3a 20 6e 61 6d 65 2a 3e 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 6d 65 73 73 2e 74 ┆<* 2: name*> if mess.t┆
0x864c0…864e0 6e 61 6d 65 2e 69 6e 74 66 69 3c 3e 2d 31 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆name.intfi<>-1 then ┆
0x864e0…864fc 20 65 72 72 6f 72 28 70 61 72 61 6d 2c 20 3c 3a 74 72 61 6e 73 70 6f 72 74 20 6e 61 ┆ error(param, <:transport na┆
0x864fc…86502 (0x3ec,0x10cb)
0x86502…86520 6d 65 20 64 6f 75 62 6c 65 20 64 65 66 69 6e 65 64 3a 3e 29 3b 0a 20 20 20 20 20 20 20 20 ┆me double defined:>); ┆
0x86520…86540 20 20 6d 65 73 73 2e 74 6e 61 6d 65 28 31 29 3a 3d 20 65 6c 65 6d 65 6e 74 73 28 31 2c 31 29 3b ┆ mess.tname(1):= elements(1,1);┆
0x86540…86560 0a 20 20 20 20 20 20 20 20 20 20 6d 65 73 73 2e 74 6e 61 6d 65 28 32 29 3a 3d 20 65 6c 65 6d 65 ┆ mess.tname(2):= eleme┆
0x86560…8657a 6e 74 73 28 31 2c 32 29 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 0a 20 20 ┆nts(1,2); end; ┆
0x8657a…86580 (0x3ec,0x10cc)
0x86580…865a0 20 20 20 20 20 20 62 65 67 69 6e 20 3c 2a 20 33 3a 20 71 75 65 75 65 2a 3e 0a 20 20 20 20 20 20 ┆ begin <* 3: queue*> ┆
0x865a0…865c0 20 20 20 20 69 66 20 6e 6f 5f 6f 66 5f 71 75 65 75 65 5f 73 70 65 63 73 3d 6d 61 78 5f 71 75 65 ┆ if no_of_queue_specs=max_que┆
0x865c0…865e0 75 65 5f 73 70 65 63 73 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 65 72 72 6f 72 ┆ue_specs then error┆
0x865e0…86600 28 70 61 72 61 6d 2c 20 3c 3a 6e 6f 20 72 6f 6f 6d 20 66 6f 72 20 71 75 00 00 00 00 00 00 00 00 ┆(param, <:no room for qu ┆
0x86600…86606 (1075,) (0x3ec,0x10cd)
0x86606…86620 65 75 65 20 73 70 65 63 69 66 69 63 61 74 69 6f 6e 3a 3e 29 3b 0a 20 20 20 20 ┆eue specification:>); ┆
0x86620…86640 20 20 20 20 20 20 6e 6f 5f 6f 66 5f 71 75 65 75 65 5f 73 70 65 63 73 3a 3d 20 6e 6f 5f 6f 66 5f ┆ no_of_queue_specs:= no_of_┆
0x86640…86660 71 75 65 75 65 5f 73 70 65 63 73 2b 31 3b 0a 20 20 20 20 20 20 20 20 20 20 6d 65 73 73 2e 74 6b ┆queue_specs+1; mess.tk┆
0x86660…8667e 72 69 74 28 31 29 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 20 20 6d 65 73 73 2e 74 6b 72 ┆rit(1):= 0; mess.tkr┆
0x8667e…86684 (0x3ec,0x10ce)
0x86684…866a0 69 74 2e 67 72 6f 75 70 28 31 29 3a 3d 20 65 6c 65 6d 65 6e 74 73 28 31 2c 31 29 3b ┆it.group(1):= elements(1,1);┆
0x866a0…866c0 0a 20 20 20 20 20 20 20 20 20 20 6d 65 73 73 2e 74 6b 72 69 74 2e 67 72 6f 75 70 28 32 29 3a 3d ┆ mess.tkrit.group(2):=┆
0x866c0…866e0 20 65 6c 65 6d 65 6e 74 73 28 31 2c 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 6d 65 73 73 2e 74 ┆ elements(1,2); mess.t┆
0x866e0…866fc 6b 72 69 74 2e 71 75 65 75 65 28 31 29 3a 3d 20 65 6c 65 6d 65 6e 74 73 28 32 2c 31 ┆krit.queue(1):= elements(2,1┆
0x866fc…86702 (0x3ec,0x10cf)
0x86702…86720 29 3b 0a 20 20 20 20 20 20 20 20 20 20 6d 65 73 73 2e 74 6b 72 69 74 2e 71 75 65 75 65 28 ┆); mess.tkrit.queue(┆
0x86720…86740 32 29 3a 3d 20 65 6c 65 6d 65 6e 74 73 28 32 2c 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 74 6b ┆2):= elements(2,2); tk┆
0x86740…86760 72 69 74 3a 3d 20 74 6b 72 69 74 2b 31 38 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 0a 20 20 ┆rit:= tkrit+18; end; ┆
0x86760…8677a 20 20 20 20 20 20 62 65 67 69 6e 20 3c 2a 20 34 3a 20 72 65 6c 65 61 73 65 2a ┆ begin <* 4: release*┆
0x8677a…86780 (0x3ec,0x10d0)
0x86780…867a0 3e 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 65 6c 65 6d 65 6e 74 73 28 31 2c 31 29 3d 20 72 65 ┆> if elements(1,1)= re┆
0x867a0…867c0 61 6c 20 3c 3a 79 65 73 3a 3e 20 74 68 65 6e 20 72 65 6c 65 61 73 65 3a 3d 20 74 72 75 65 20 65 ┆al <:yes:> then release:= true e┆
0x867c0…867e0 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 65 6c 65 6d 65 6e 74 73 28 31 2c 31 29 3d 20 ┆lse if elements(1,1)= ┆
0x867e0…86800 72 65 61 6c 20 3c 3a 6e 6f 3a 3e 20 20 74 68 65 6e 20 72 65 6c 65 61 73 00 00 00 00 00 00 00 00 ┆real <:no:> then releas ┆
0x86800…86806 (1076,) (0x3ec,0x10d1)
0x86806…86820 65 3a 3d 20 66 61 6c 73 65 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 65 ┆e:= false else e┆
0x86820…86840 72 72 6f 72 28 70 61 72 61 6d 2c 20 3c 3a 3a 3e 29 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a ┆rror(param, <::>); end; ┆
0x86840…86860 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 3c 2a 20 35 3a 20 75 73 65 72 2a 3e 0a 20 20 20 20 20 ┆ begin <* 5: user*> ┆
0x86860…8687e 20 20 20 20 20 69 66 20 6d 65 73 73 2e 74 75 73 65 72 2e 69 6e 74 66 69 3c 3e 2d 31 20 74 ┆ if mess.tuser.intfi<>-1 t┆
0x8687e…86884 (0x3ec,0x10d2)
0x86884…868a0 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 65 72 72 6f 72 28 70 61 72 61 6d ┆hen error(param┆
0x868a0…868c0 2c 3c 3a 75 73 65 72 20 6e 61 6d 65 20 64 6f 75 62 6c 65 20 64 65 66 69 6e 65 64 3a 3e 29 3b 0a ┆,<:user name double defined:>); ┆
0x868c0…868e0 20 20 20 20 20 20 20 20 20 20 6d 65 73 73 2e 74 75 73 65 72 28 31 29 3a 3d 20 65 6c 65 6d 65 6e ┆ mess.tuser(1):= elemen┆
0x868e0…868fc 74 73 28 31 2c 31 29 3b 0a 20 20 20 20 20 20 20 20 20 20 6d 65 73 73 2e 74 75 73 65 ┆ts(1,1); mess.tuse┆
0x868fc…86902 (0x3ec,0x10d3)
0x86902…86920 72 28 32 29 3a 3d 20 65 6c 65 6d 65 6e 74 73 28 31 2c 32 29 3b 0a 20 20 20 20 20 20 20 20 ┆r(2):= elements(1,2); ┆
0x86920…86940 65 6e 64 3b 0a 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 3c 2a 20 36 3a 20 77 61 69 74 2a 3e ┆end; begin <* 6: wait*>┆
0x86940…86960 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 65 6c 65 6d 65 6e 74 73 28 31 2c 31 29 3d 20 72 65 61 ┆ if elements(1,1)= rea┆
0x86960…8697a 6c 20 3c 3a 79 65 73 3a 3e 20 74 68 65 6e 20 77 61 69 74 3a 3d 20 74 72 75 65 ┆l <:yes:> then wait:= true┆
0x8697a…86980 (0x3ec,0x10d4)
0x86980…869a0 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 65 6c 65 6d 65 6e 74 73 28 31 2c 31 29 ┆ else if elements(1,1)┆
0x869a0…869c0 3d 20 72 65 61 6c 20 3c 3a 6e 6f 3a 3e 20 74 68 65 6e 20 77 61 69 74 3a 3d 20 66 61 6c 73 65 20 ┆= real <:no:> then wait:= false ┆
0x869c0…869e0 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 65 72 72 6f 72 28 70 61 72 61 6d 2c 20 3c 3a 3a 3e ┆else error(param, <::>┆
0x869e0…86a00 29 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 0a 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆); end; ┆
0x86a00…86a06 (1077,) (0x3ec,0x10d5)
0x86a06…86a20 20 62 65 67 69 6e 20 3c 2a 20 37 3a 20 61 72 65 61 2d 20 6f 72 20 64 65 76 69 ┆ begin <* 7: area- or devi┆
0x86a20…86a40 63 65 6e 61 6d 65 2a 3e 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 70 61 72 61 6d 3d 69 70 61 72 ┆cename*> if param=ipar┆
0x86a40…86a60 61 6d 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 3a ┆am then begin comment:┆
0x86a60…86a7e 20 73 65 6e 64 65 72 6e 61 6d 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 6d 65 73 73 2e ┆ sendername; mess.┆
0x86a7e…86a84 (0x3ec,0x10d6)
0x86a84…86aa0 74 73 65 6e 64 28 31 29 3a 3d 20 65 6c 65 6d 65 6e 74 73 28 30 2c 31 29 3b 0a 20 20 ┆tsend(1):= elements(0,1); ┆
0x86aa0…86ac0 20 20 20 20 20 20 20 20 20 20 6d 65 73 73 2e 74 73 65 6e 64 28 32 29 3a 3d 20 65 6c 65 6d 65 6e ┆ mess.tsend(2):= elemen┆
0x86ac0…86ae0 74 73 28 30 2c 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 20 65 6c 73 65 0a 20 20 20 20 ┆ts(0,2); end else ┆
0x86ae0…86afc 20 20 20 20 20 20 69 66 20 70 61 72 61 6d 3d 6f 70 61 72 61 6d 20 74 68 65 6e 0a 20 ┆ if param=oparam then ┆
0x86afc…86b02 (0x3ec,0x10d7)
0x86b02…86b20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 3a 20 72 65 63 65 69 76 ┆ begin comment: receiv┆
0x86b20…86b40 65 72 6e 61 6d 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 6d 65 73 73 2e 74 72 65 63 65 69 76 ┆ername; mess.treceiv┆
0x86b40…86b60 28 31 29 3a 3d 20 65 6c 65 6d 65 6e 74 73 28 30 2c 31 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆(1):= elements(0,1); ┆
0x86b60…86b7a 20 6d 65 73 73 2e 74 72 65 63 65 69 76 28 32 29 3a 3d 20 65 6c 65 6d 65 6e 74 ┆ mess.treceiv(2):= element┆
0x86b7a…86b80 (0x3ec,0x10d8)
0x86b80…86ba0 73 28 30 2c 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 20 65 6c 73 65 0a 20 20 20 20 20 ┆s(0,2); end else ┆
0x86ba0…86bc0 20 20 20 20 20 65 72 72 6f 72 28 70 61 72 61 6d 2c 20 3c 3a 3a 3e 29 3b 0a 20 20 20 20 20 20 20 ┆ error(param, <::>); ┆
0x86bc0…86be0 20 65 6e 64 3b 0a 20 20 20 20 20 20 65 6e 64 20 63 61 73 65 3b 0a 0a 20 20 20 20 20 20 70 61 72 ┆ end; end case; par┆
0x86be0…86c00 61 6d 3a 3d 20 70 61 72 61 6d 2b 6a 3b 0a 20 20 20 20 65 6e 64 20 66 6f 00 00 00 00 00 00 00 00 ┆am:= param+j; end fo ┆
0x86c00…86c06 (1078,) (0x3ec,0x10d9)
0x86c06…86c20 72 20 77 68 69 6c 65 3b 0a 0a 20 20 20 20 69 66 20 61 6e 79 5f 65 72 72 6f 72 ┆r while; if any_error┆
0x86c20…86c40 73 20 74 68 65 6e 20 67 6f 74 6f 20 65 6e 64 5f 70 72 6f 67 72 61 6d 3b 0a 0a 20 20 20 20 63 6f ┆s then goto end_program; co┆
0x86c40…86c60 6d 6d 65 6e 74 3a 20 65 6e 64 20 6f 66 20 70 61 72 61 6d 65 74 65 72 73 63 61 6e 2e 0a 20 20 20 ┆mment: end of parameterscan. ┆
0x86c60…86c7e 20 20 20 20 20 20 20 20 20 20 63 68 65 63 6b 20 74 68 61 74 20 61 74 20 6c 65 61 73 74 20 ┆ check that at least ┆
0x86c7e…86c84 (0x3ec,0x10da)
0x86c84…86ca0 73 65 6e 64 65 72 2d 20 61 6e 64 20 72 65 63 65 69 76 65 72 20 6e 61 6d 65 20 68 61 ┆sender- and receiver name ha┆
0x86ca0…86cc0 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 65 6e 20 73 70 65 63 69 66 69 65 64 3b 0a 20 ┆s been specified; ┆
0x86cc0…86ce0 20 20 20 69 66 20 6d 65 73 73 2e 74 73 65 6e 64 2e 69 6e 74 66 69 3d 2d 31 20 74 68 65 6e 20 65 ┆ if mess.tsend.intfi=-1 then e┆
0x86ce0…86cfc 72 72 6f 72 28 30 2c 20 3c 3a 73 65 6e 64 65 72 20 6e 61 6d 65 20 6d 69 73 73 69 6e ┆rror(0, <:sender name missin┆
0x86cfc…86d02 (0x3ec,0x10db)
0x86d02…86d20 67 3a 3e 29 3b 0a 20 20 20 20 69 66 20 6d 65 73 73 2e 74 72 65 63 65 69 76 2e 69 6e 74 66 ┆g:>); if mess.treceiv.intf┆
0x86d20…86d40 69 3d 2d 31 20 74 68 65 6e 20 65 72 72 6f 72 28 30 2c 20 3c 3a 72 65 63 65 69 76 65 72 20 6e 61 ┆i=-1 then error(0, <:receiver na┆
0x86d40…86d60 6d 65 20 6d 69 73 73 69 6e 67 3a 3e 29 3b 0a 20 20 20 20 69 66 20 6d 65 73 73 2e 74 6e 61 6d 65 ┆me missing:>); if mess.tname┆
0x86d60…86d7a 2e 69 6e 74 66 69 3d 2d 31 20 74 68 65 6e 0a 20 20 20 20 62 65 67 69 6e 20 63 ┆.intfi=-1 then begin c┆
0x86d7a…86d80 (0x3ec,0x10dc)
0x86d80…86da0 6f 6d 6d 65 6e 74 20 75 73 65 20 6e 75 6c 6c 2d 6e 61 6d 65 3b 0a 20 20 20 20 20 20 6d 65 73 73 ┆omment use null-name; mess┆
0x86da0…86dc0 2e 74 6e 61 6d 65 28 31 29 3a 3d 20 6d 65 73 73 2e 74 6e 61 6d 65 28 32 29 3a 3d 20 6e 75 6c 6c ┆.tname(1):= mess.tname(2):= null┆
0x86dc0…86de0 3b 0a 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 69 66 20 6d 65 73 73 2e 74 75 73 65 72 2e 69 6e 74 ┆; end; if mess.tuser.int┆
0x86de0…86e00 66 69 3d 2d 31 20 74 68 65 6e 0a 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 00 00 00 00 00 00 00 00 ┆fi=-1 then begin com ┆
0x86e00…86e06 (1079,) (0x3ec,0x10dd)
0x86e06…86e20 6d 65 6e 74 20 67 65 74 20 70 72 6f 63 65 73 73 20 6e 61 6d 65 3b 0a 20 20 20 ┆ment get process name; ┆
0x86e20…86e40 20 20 20 6c 6f 6e 67 20 61 72 72 61 79 20 61 72 72 28 31 3a 32 29 3b 0a 20 20 20 20 20 20 73 79 ┆ long array arr(1:2); sy┆
0x86e40…86e60 73 74 65 6d 28 36 2c 69 2c 61 72 72 29 3b 0a 20 20 20 20 20 20 74 6f 66 72 6f 6d 28 6d 65 73 73 ┆stem(6,i,arr); tofrom(mess┆
0x86e60…86e7e 2e 74 75 73 65 72 2c 61 72 72 2c 38 29 3b 0a 20 20 20 20 65 6e 64 3b 0a 0a 20 20 20 20 69 ┆.tuser,arr,8); end; i┆
0x86e7e…86e84 (0x3ec,0x10de)
0x86e84…86ea0 66 20 72 65 73 75 6c 74 65 6e 74 72 79 28 31 29 3c 3e 6e 75 6c 6c 20 74 68 65 6e 20 ┆f resultentry(1)<>null then ┆
0x86ea0…86ec0 65 6e 74 72 79 28 30 29 3b 0a 0a 20 20 65 6e 64 20 70 61 72 61 6d 65 74 65 72 20 62 6c 6f 63 6b ┆entry(0); end parameter block┆
0x86ec0…86ee0 3b 0a 0a 20 20 63 6f 6d 6d 65 6e 74 3a 20 73 65 6e 64 20 74 72 61 6e 73 70 6f 72 74 20 64 65 66 ┆; comment: send transport def┆
0x86ee0…86efc 69 6e 69 74 69 6f 6e 20 6d 65 73 73 20 74 6f 20 70 72 69 6d 6f 3b 0a 0a 20 20 69 3a ┆inition mess to primo; i:┆
0x86efc…86f02 (0x3ec,0x10df)
0x86f02…86f20 3d 20 74 72 61 6e 73 66 65 72 28 64 65 66 5f 74 72 61 6e 73 70 6f 72 74 5f 63 6f 64 65 2c ┆= transfer(def_transport_code,┆
0x86f20…86f40 20 6d 65 73 73 2c 20 6d 65 73 5f 6c 67 74 2c 20 61 6e 73 77 65 72 2c 20 61 6e 73 5f 6c 67 74 29 ┆ mess, mes_lgt, answer, ans_lgt)┆
0x86f40…86f60 3b 0a 0a 20 20 63 6f 6d 6d 65 6e 74 3a 20 63 68 65 63 6b 20 72 65 73 75 6c 74 3b 0a 0a 20 20 69 ┆; comment: check result; i┆
0x86f60…86f7a 66 20 69 3c 3e 30 20 74 68 65 6e 0a 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e ┆f i<>0 then begin commen┆
0x86f7a…86f80 (0x3ec,0x10e0)
0x86f80…86fa0 74 3a 20 65 72 72 6f 72 20 69 6e 20 63 6f 6d 6d 75 6e 69 63 61 74 69 6f 6e 20 77 69 74 68 20 70 ┆t: error in communication with p┆
0x86fa0…86fc0 72 69 6d 6f 20 6f 72 20 69 6e 20 70 61 72 61 6d 65 74 65 72 73 0a 20 20 20 20 20 20 20 20 20 20 ┆rimo or in parameters ┆
0x86fc0…86fe0 20 20 20 20 20 20 20 74 6f 20 3c 74 72 61 6e 73 66 65 72 3e 2e 20 74 68 65 20 6c 61 74 74 65 72 ┆ to <transfer>. the latter┆
0x86fe0…87000 20 73 68 6f 75 6c 64 20 6e 6f 74 20 70 6f 73 73 69 62 6c 65 0a 20 20 20 00 00 00 00 00 00 00 00 ┆ should not possible ┆
0x87000…87006 (1080,) (0x3ec,0x10e1)
0x87006…87020 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 75 6c 64 20 6f 63 63 75 72 3b ┆ could occur;┆
0x87020…87040 0a 20 20 20 20 61 6e 79 5f 65 72 72 6f 72 73 3a 3d 20 74 72 75 65 3b 0a 20 20 20 20 77 72 69 74 ┆ any_errors:= true; writ┆
0x87040…87060 65 28 6f 75 74 2c 20 73 74 72 69 6e 67 20 70 72 6f 67 6e 61 6d 65 2c 20 3c 3a 70 72 69 6d 6f 20 ┆e(out, string progname, <:primo ┆
0x87060…8707e 63 6f 6d 6d 75 6e 69 63 61 74 69 6f 6e 20 65 72 72 6f 72 3a 20 3a 3e 29 3b 0a 20 20 20 20 ┆communication error: :>); ┆
0x8707e…87084 (0x3ec,0x10e2)
0x87084…870a0 69 66 20 69 3e 31 20 61 6e 64 20 69 3c 37 20 74 68 65 6e 0a 20 20 20 20 77 72 69 74 ┆if i>1 and i<7 then writ┆
0x870a0…870c0 65 28 6f 75 74 2c 20 63 61 73 65 20 69 2d 31 20 6f 66 20 28 3c 3a 72 65 6a 65 63 74 65 64 3a 3e ┆e(out, case i-1 of (<:rejected:>┆
0x870c0…870e0 2c 0a 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 3c 3a ┆, <:┆
0x870e0…870fc 75 6e 69 6e 74 65 6c 6c 69 67 69 62 6c 65 3a 3e 2c 0a 20 20 20 20 20 20 20 20 20 20 ┆unintelligible:>, ┆
0x870fc…87102 (0x3ec,0x10e3)
0x87102…87120 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 3a 6d 61 6c 66 75 6e 63 74 69 6f ┆ <:malfunctio┆
0x87120…87140 6e 3a 3e 2c 0a 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 ┆n:>, ┆
0x87140…87160 20 3c 3a 70 72 69 6d 6f 20 64 6f 65 73 20 6e 6f 74 20 65 78 69 73 74 3a 3e 2c 0a 20 20 20 20 20 ┆ <:primo does not exist:>, ┆
0x87160…8717a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 3a 6d ┆ <:m┆
0x8717a…87180 (0x3ec,0x10e4)
0x87180…871a0 65 73 73 20 62 75 66 66 65 72 20 63 6c 61 69 6d 20 65 78 63 65 65 64 65 64 3a 3e 29 2c 0a 20 20 ┆ess buffer claim exceeded:>), ┆
0x871a0…871c0 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 3a 3c 31 30 3e 3a 3e 29 0a 20 20 20 20 65 6c 73 65 0a ┆ <:<10>:>) else ┆
0x871c0…871e0 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 20 3c 3a 75 6e 65 78 70 65 63 74 65 64 20 72 65 73 75 ┆ write(out, <:unexpected resu┆
0x871e0…87200 6c 74 3a 20 3a 3e 2c 20 69 2c 20 3c 3a 3c 31 30 3e 3a 3e 29 3b 0a 20 20 00 00 00 00 00 00 00 00 ┆lt: :>, i, <:<10>:>); ┆
0x87200…87206 (1081,) (0x3ec,0x10e5)
0x87206…87220 65 6e 64 20 65 6c 73 65 0a 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 3a 20 ┆end else begin comment: ┆
0x87220…87240 65 72 72 6f 72 20 72 65 74 75 72 6e 65 64 20 69 6e 20 61 6e 73 77 65 72 20 66 72 6f 6d 20 70 72 ┆error returned in answer from pr┆
0x87240…87260 69 6d 6f 20 69 74 73 65 6c 66 3b 0a 20 20 20 20 61 6e 79 5f 65 72 72 6f 72 73 3a 3d 20 74 72 75 ┆imo itself; any_errors:= tru┆
0x87260…8727e 65 3b 0a 20 20 20 20 69 3a 3d 20 61 6e 73 77 65 72 2e 74 72 65 70 6c 79 3b 0a 20 20 20 20 ┆e; i:= answer.treply; ┆
0x8727e…87284 (0x3ec,0x10e6)
0x87284…872a0 69 66 20 69 3c 3e 30 20 74 68 65 6e 20 0a 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d ┆if i<>0 then begin comm┆
0x872a0…872c0 65 6e 74 3a 20 74 72 61 6e 73 70 6f 72 74 20 64 65 66 69 6e 69 74 69 6f 6e 20 65 72 72 6f 72 3b ┆ent: transport definition error;┆
0x872c0…872e0 0a 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 20 73 74 72 69 6e 67 20 70 72 6f 67 6e 61 6d ┆ write(out, string prognam┆
0x872e0…872fc 65 2c 20 3c 3a 70 72 69 6d 6f 20 72 65 70 6c 79 20 65 72 72 6f 72 3a 20 3a 3e 29 3b ┆e, <:primo reply error: :>);┆
0x872fc…87302 (0x3ec,0x10e7)
0x87302…87320 0a 20 20 20 20 20 20 69 66 20 69 3d 33 20 74 68 65 6e 0a 20 20 20 20 20 20 77 72 69 74 65 ┆ if i=3 then write┆
0x87320…87340 28 6f 75 74 2c 20 3c 3a 6d 69 73 73 69 6e 67 20 72 65 73 6f 75 72 63 65 73 3a 3e 29 0a 0a 20 20 ┆(out, <:missing resources:>) ┆
0x87340…87360 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 69 66 20 69 3d 35 20 6f 72 20 69 3d 36 20 74 68 65 ┆ else if i=5 or i=6 the┆
0x87360…8737a 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 3a 20 65 72 72 ┆n begin comment: err┆
0x8737a…87380 (0x3ec,0x10e8)
0x87380…873a0 6f 72 20 69 6e 20 73 65 6e 64 65 72 2f 72 65 63 65 69 76 65 72 20 64 65 76 69 63 65 20 73 70 65 ┆or in sender/receiver device spe┆
0x873a0…873c0 63 69 66 69 63 61 74 69 6f 6e 3b 0a 20 20 20 20 20 20 20 20 69 66 20 69 3d 35 20 74 68 65 6e 0a ┆cification; if i=5 then ┆
0x873c0…873e0 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 ┆ begin write(ou┆
0x873e0…87400 74 2c 20 3c 3a 73 65 6e 64 65 72 20 3a 3e 29 3b 0a 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆t, <:sender :>); ┆
0x87400…87406 (1082,) (0x3ec,0x10e9)
0x87406…87420 20 20 20 6a 3a 3d 20 61 6e 73 77 65 72 2e 74 73 65 6e 64 65 72 72 6f 72 3b 0a ┆ j:= answer.tsenderror; ┆
0x87420…87440 20 20 20 20 20 20 20 20 65 6e 64 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 ┆ end else begin ┆
0x87440…87460 20 20 20 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 20 3c 3a 72 65 63 65 69 76 65 72 20 3a ┆ write(out, <:receiver :┆
0x87460…8747e 3e 29 3b 0a 20 20 20 20 20 20 20 20 20 20 6a 3a 3d 20 61 6e 73 77 65 72 2e 74 72 65 63 65 ┆>); j:= answer.trece┆
0x8747e…87484 (0x3ec,0x10ea)
0x87484…874a0 69 76 65 65 72 72 6f 72 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 ┆iveerror; end; ┆
0x874a0…874c0 20 20 20 69 66 20 6a 3d 31 20 74 68 65 6e 20 77 72 69 74 65 28 6f 75 74 2c 20 3c 3a 65 6e 74 72 ┆ if j=1 then write(out, <:entr┆
0x874c0…874e0 79 20 74 72 6f 75 62 6c 65 73 3a 3e 29 0a 20 20 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 ┆y troubles:>) else ┆
0x874e0…874fc 20 20 20 69 66 20 6a 3d 32 20 74 68 65 6e 20 77 72 69 74 65 28 6f 75 74 2c 20 3c 3a ┆ if j=2 then write(out, <:┆
0x874fc…87502 (0x3ec,0x10eb)
0x87502…87520 64 65 76 69 63 65 20 74 72 6f 75 62 6c 65 73 3a 3e 29 0a 20 20 20 20 20 20 20 20 65 6c 73 ┆device troubles:>) els┆
0x87520…87540 65 0a 20 20 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 20 3c 3a 65 72 72 6f 72 63 6f 64 65 ┆e write(out, <:errorcode┆
0x87540…87560 20 3a 3e 2c 20 6a 29 3b 0a 20 20 20 20 20 20 65 6e 64 20 65 6c 73 65 0a 20 20 20 20 20 20 77 72 ┆ :>, j); end else wr┆
0x87560…8757a 69 74 65 28 6f 75 74 2c 20 3c 3a 75 6e 65 78 70 65 63 74 65 64 20 72 65 70 6c ┆ite(out, <:unexpected repl┆
0x8757a…87580 (0x3ec,0x10ec)
0x87580…875a0 79 20 63 6f 64 65 3a 20 3a 3e 2c 20 69 29 3b 0a 0a 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 ┆y code: :>, i); write(out┆
0x875a0…875c0 2c 20 3c 3a 3c 31 30 3e 3a 3e 29 3b 0a 20 20 20 20 65 6e 64 20 65 6c 73 65 0a 20 20 20 20 62 65 ┆, <:<10>:>); end else be┆
0x875c0…875e0 67 69 6e 20 63 6f 6d 6d 65 6e 74 3a 20 74 72 61 6e 73 70 6f 72 74 20 64 65 66 69 6e 65 64 2e 20 ┆gin comment: transport defined. ┆
0x875e0…87600 69 66 20 74 68 65 20 76 65 72 69 66 79 2e 79 65 73 0a 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆if the verify.yes ┆
0x87600…87606 (1083,) (0x3ec,0x10ed)
0x87606…87620 20 20 20 20 20 20 20 20 20 20 20 20 20 70 61 72 61 6d 65 74 65 72 20 68 61 73 ┆ parameter has┆
0x87620…87640 20 62 65 65 6e 20 73 70 65 63 69 66 69 65 64 2c 20 74 68 65 20 69 64 65 6e 74 69 2d 0a 20 20 20 ┆ been specified, the identi- ┆
0x87640…87660 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 69 63 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 ┆ fication of the ┆
0x87660…8767e 74 72 61 6e 73 70 6f 72 74 20 73 68 61 6c 6c 20 62 65 20 6f 75 74 70 75 74 3b 0a 20 20 20 ┆transport shall be output; ┆
0x8767e…87684 (0x3ec,0x10ee)
0x87684…876a0 20 20 20 69 66 20 76 65 72 69 66 79 20 74 68 65 6e 0a 20 20 20 20 20 20 77 72 69 74 ┆ if verify then writ┆
0x876a0…876c0 65 28 6f 75 74 2c 20 3c 3a 74 72 61 6e 73 70 6f 72 74 20 69 64 65 6e 74 69 66 69 63 61 74 69 6f ┆e(out, <:transport identificatio┆
0x876c0…876e0 6e 3a 20 3a 3e 2c 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 6e 73 77 65 72 2e ┆n: :>, answer.┆
0x876e0…876fc 74 6e 6f 2c 20 3c 3a 3c 31 30 3e 3a 3e 29 3b 0a 0a 20 20 20 20 20 20 69 66 20 72 65 ┆tno, <:<10>:>); if re┆
0x876fc…87702 (0x3ec,0x10ef)
0x87702…87720 73 75 6c 74 65 6e 74 72 79 28 31 29 3c 3e 6e 75 6c 6c 20 74 68 65 6e 20 65 6e 74 72 79 28 ┆sultentry(1)<>null then entry(┆
0x87720…87740 61 6e 73 77 65 72 2e 74 6e 6f 29 3b 0a 0a 20 20 20 20 20 20 69 66 20 77 61 69 74 20 74 68 65 6e ┆answer.tno); if wait then┆
0x87740…87760 0a 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 3a 20 73 65 6e 64 20 77 61 69 74 20 ┆ begin comment: send wait ┆
0x87760…8777a 6f 70 65 72 61 74 69 6f 6e 3b 0a 20 20 20 20 20 20 20 20 6d 65 73 73 2e 74 6e ┆operation; mess.tn┆
0x8777a…87780 (0x3ec,0x10f0)
0x87780…877a0 6f 3a 3d 20 61 6e 73 77 65 72 2e 74 6e 6f 3b 0a 20 20 20 20 20 20 20 20 74 72 61 6e 73 66 65 72 ┆o:= answer.tno; transfer┆
0x877a0…877c0 28 77 61 69 74 5f 63 6f 64 65 2c 6d 65 73 73 2c 39 2c 61 6e 73 77 65 72 2c 61 6e 73 5f 6c 67 74 ┆(wait_code,mess,9,answer,ans_lgt┆
0x877c0…877e0 29 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 0a 20 20 20 20 20 20 69 66 20 72 65 6c 65 61 73 65 20 ┆); end; if release ┆
0x877e0…87800 74 68 65 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 00 00 00 00 00 00 00 00 ┆then begin comment ┆
0x87800…87806 (1084,) (0x3ec,0x10f1)
0x87806…87820 3a 20 73 65 6e 64 20 72 65 6c 65 61 73 65 20 6f 70 65 72 61 74 69 6f 6e 3b 0a ┆: send release operation; ┆
0x87820…87840 20 20 20 20 20 20 20 20 6d 65 73 73 2e 74 6e 6f 3a 3d 20 61 6e 73 77 65 72 2e 74 6e 6f 3b 0a 20 ┆ mess.tno:= answer.tno; ┆
0x87840…87860 20 20 20 20 20 20 20 74 72 61 6e 73 66 65 72 28 72 65 6c 65 61 73 65 5f 63 6f 64 65 2c 6d 65 73 ┆ transfer(release_code,mes┆
0x87860…8787e 73 2c 37 2c 61 6e 73 77 65 72 2c 37 29 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 ┆s,7,answer,7); end; ┆
0x8787e…87884 (0x3ec,0x10f2)
0x87884…878a0 65 6e 64 3b 0a 0a 65 6e 64 5f 70 72 6f 67 72 61 6d 3a 0a 20 20 20 20 69 66 20 61 6e ┆end; end_program: if an┆
0x878a0…878c0 79 5f 65 72 72 6f 72 73 20 74 68 65 6e 20 65 72 72 6f 72 62 69 74 73 3a 3d 20 31 20 73 68 69 66 ┆y_errors then errorbits:= 1 shif┆
0x878c0…878e0 74 20 30 3b 0a 20 20 20 20 74 72 61 70 6d 6f 64 65 3a 3d 20 31 20 73 68 69 66 74 20 31 30 3b 0a ┆t 0; trapmode:= 1 shift 10; ┆
0x878e0…878fc 20 20 65 6e 64 3b 0a 65 6e 64 0a 65 6e 64 0a 0c 0a 28 68 65 61 64 20 31 0a 20 62 66 ┆ end; end end (head 1 bf┆
0x878fc…87902 (0x3ec,0x10f3)
0x87902…87920 69 6c 65 65 6e 71 3d 61 6c 67 6f 6c 20 63 6f 6e 6e 65 63 74 2e 6e 6f 20 66 70 2e 79 65 73 ┆ileenq=algol connect.no fp.yes┆
0x87920…87940 20 6d 65 73 73 61 67 65 2e 6e 6f 0a 20 69 66 20 6f 6b 2e 79 65 73 20 77 61 72 6e 69 6e 67 2e 6e ┆ message.no if ok.yes warning.n┆
0x87940…87960 6f 0a 20 28 63 3d 6d 65 73 73 61 67 65 20 66 69 6c 65 65 6e 71 20 63 6f 6d 70 69 6c 65 64 20 6f ┆o (c=message fileenq compiled o┆
0x87960…8797a 6b 0a 20 20 66 69 6c 65 65 6e 71 3d 6d 6f 76 65 20 62 66 69 6c 65 65 6e 71 0a ┆k fileenq=move bfileenq ┆
0x8797a…87980 (0x3ec,0x10f4)
0x87980…879a0 20 20 63 3d 6c 6f 6f 6b 75 70 20 66 69 6c 65 65 6e 71 0a 20 29 0a 20 69 66 20 6f 6b 2e 6e 6f 0a ┆ c=lookup fileenq ) if ok.no ┆
0x879a0…879c0 20 20 63 3d 6d 65 73 73 61 67 65 20 66 69 6c 65 65 6e 71 20 65 72 72 6f 72 20 69 6e 20 63 6f 6d ┆ c=message fileenq error in com┆
0x879c0…879e0 70 69 6c 61 74 69 6f 6e 0a 29 0a 0a 62 65 67 69 6e 20 6d 65 73 73 61 67 65 3a 20 2a 2a 2a 20 66 ┆pilation ) begin message: *** f┆
0x879e0…87a00 69 6c 65 65 6e 71 20 20 76 65 72 73 69 6f 6e 3a 20 31 2e 30 31 20 2a 2a 00 00 00 00 00 00 00 00 ┆ileenq version: 1.01 ** ┆
0x87a00…87a06 (1085,) (0x3ec,0x10f5)
0x87a06…87a20 2a 3b 0a 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 3a 20 2a 2a 2a 20 20 20 20 20 ┆*; comment: *** ┆
0x87a20…87a40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 2a 3b 0a 20 20 20 20 20 20 6d 65 ┆ ***; me┆
0x87a40…87a60 73 73 61 67 65 3a 20 2a 2a 2a 20 65 6c 69 2c 20 37 39 2e 30 34 2e 30 31 20 20 20 20 20 20 20 20 ┆ssage: *** eli, 79.04.01 ┆
0x87a60…87a7e 20 20 2a 2a 2a 3b 0a 0a 63 6f 6d 6d 65 6e 74 3a 20 70 72 6f 67 72 61 6d 20 63 6f 6e 73 74 ┆ ***; comment: program const┆
0x87a7e…87a84 (0x3ec,0x10f6)
0x87a84…87aa0 61 6e 74 73 3b 0a 0a 69 6e 74 65 67 65 72 20 66 69 65 6c 64 20 20 20 20 20 20 20 74 ┆ants; integer field t┆
0x87aa0…87ac0 72 65 70 6c 79 2c 20 74 6e 6f 2c 20 74 73 75 62 6e 6f 2c 20 74 73 75 62 73 74 61 74 65 2c 20 74 ┆reply, tno, tsubno, tsubstate, t┆
0x87ac0…87ae0 73 75 62 63 61 75 73 65 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 73 ┆subcause, ts┆
0x87ae0…87afc 75 62 73 74 61 74 75 73 2c 20 74 73 65 6e 64 65 72 72 6f 72 2c 20 74 72 65 63 65 69 ┆ubstatus, tsenderror, trecei┆
0x87afc…87b02 (0x3ec,0x10f7)
0x87b02…87b20 76 65 65 72 72 6f 72 3b 0a 72 65 61 6c 20 61 72 72 61 79 20 66 69 65 6c 64 20 20 20 20 74 ┆veerror; real array field t┆
0x87b20…87b40 6e 61 6d 65 2c 20 74 69 64 65 6e 74 3b 0a 6c 6f 6e 67 20 66 69 65 6c 64 20 20 20 20 20 20 20 20 ┆name, tident; long field ┆
0x87b40…87b60 20 20 74 73 75 62 70 6f 73 3b 0a 72 65 61 6c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 ┆ tsubpos; real p┆
0x87b60…87b7a 72 6f 67 6e 61 6d 65 3b 0a 69 6e 74 65 67 65 72 20 20 20 20 20 20 20 20 20 20 ┆rogname; integer ┆
0x87b7a…87b80 (0x3ec,0x10f8)
0x87b80…87ba0 20 20 20 6d 65 73 5f 6c 67 74 2c 20 61 6e 73 5f 6c 67 74 2c 20 77 61 69 74 5f 61 6e 64 5f 67 65 ┆ mes_lgt, ans_lgt, wait_and_ge┆
0x87ba0…87bc0 74 5f 73 74 61 74 65 5f 63 6f 64 65 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆t_state_code, ┆
0x87bc0…87be0 20 20 67 65 74 5f 73 74 61 74 65 5f 63 6f 64 65 2c 20 72 65 6c 65 61 73 65 5f 63 6f 64 65 2c 20 ┆ get_state_code, release_code, ┆
0x87be0…87c00 6b 69 6c 6c 5f 63 6f 64 65 3b 0a 0a 74 72 65 70 6c 79 3a 3d 20 32 3b 0a 00 00 00 00 00 00 00 00 ┆kill_code; treply:= 2; ┆
0x87c00…87c06 (1086,) (0x3ec,0x10f9)
0x87c06…87c20 74 6e 6f 3a 3d 20 34 3b 0a 74 6e 61 6d 65 3a 3d 20 34 3b 0a 74 69 64 65 6e 74 ┆tno:= 4; tname:= 4; tident┆
0x87c20…87c40 3a 3d 20 31 36 3b 0a 74 73 75 62 6e 6f 3a 3d 20 34 30 3b 0a 74 73 75 62 73 74 61 74 65 3a 3d 20 ┆:= 16; tsubno:= 40; tsubstate:= ┆
0x87c40…87c60 34 32 3b 0a 74 73 75 62 70 6f 73 3a 3d 20 34 36 3b 0a 74 73 75 62 63 61 75 73 65 3a 3d 20 35 30 ┆42; tsubpos:= 46; tsubcause:= 50┆
0x87c60…87c7e 3b 0a 74 73 75 62 73 74 61 74 75 73 3a 3d 20 35 32 3b 0a 0a 70 72 6f 67 6e 61 6d 65 3a 3d ┆; tsubstatus:= 52; progname:=┆
0x87c7e…87c84 (0x3ec,0x10fa)
0x87c84…87ca0 20 72 65 61 6c 20 3c 3a 2a 2a 2a 66 69 6c 65 65 6e 71 20 3a 3e 3b 0a 0a 72 65 6c 65 ┆ real <:***fileenq :>; rele┆
0x87ca0…87cc0 61 73 65 5f 63 6f 64 65 3a 3d 20 38 3b 0a 6b 69 6c 6c 5f 63 6f 64 65 3a 3d 20 31 30 3b 0a 77 61 ┆ase_code:= 8; kill_code:= 10; wa┆
0x87cc0…87ce0 69 74 5f 61 6e 64 5f 67 65 74 5f 73 74 61 74 65 5f 63 6f 64 65 3a 3d 20 36 3b 0a 67 65 74 5f 73 ┆it_and_get_state_code:= 6; get_s┆
0x87ce0…87cfc 74 61 74 65 5f 63 6f 64 65 3a 3d 20 34 3b 0a 0a 6d 65 73 5f 6c 67 74 3a 3d 20 39 3b ┆tate_code:= 4; mes_lgt:= 9;┆
0x87cfc…87d02 (0x3ec,0x10fb)
0x87d02…87d20 0a 61 6e 73 5f 6c 67 74 3a 3d 20 32 36 3b 0a 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 3a 20 ┆ ans_lgt:= 26; begin comment: ┆
0x87d20…87d40 64 65 63 6c 61 72 61 74 69 6f 6e 20 6f 66 20 77 6f 72 6b 73 70 61 63 65 3b 0a 20 20 69 6e 74 65 ┆declaration of workspace; inte┆
0x87d40…87d60 67 65 72 20 61 72 72 61 79 20 20 20 20 20 20 20 6d 65 73 73 28 31 3a 6d 65 73 5f 6c 67 74 29 2c ┆ger array mess(1:mes_lgt),┆
0x87d60…87d7a 20 61 6e 73 77 65 72 28 31 3a 61 6e 73 5f 6c 67 74 29 3b 0a 20 20 72 65 61 6c ┆ answer(1:ans_lgt); real┆
0x87d7a…87d80 (0x3ec,0x10fc)
0x87d80…87da0 20 61 72 72 61 79 20 20 20 20 20 20 20 20 20 20 65 6e 74 72 79 5f 6e 61 6d 65 28 31 3a 32 29 3b ┆ array entry_name(1:2);┆
0x87da0…87dc0 0a 20 20 69 6e 74 65 67 65 72 20 20 20 20 20 20 20 20 20 20 20 20 20 69 2c 20 6a 2c 20 73 74 61 ┆ integer i, j, sta┆
0x87dc0…87de0 74 65 2c 20 63 6f 64 65 2c 20 72 65 6c 65 61 73 65 2c 20 6b 69 6c 6c 3b 0a 20 20 62 6f 6f 6c 65 ┆te, code, release, kill; boole┆
0x87de0…87e00 61 6e 20 20 20 20 20 20 20 20 20 20 20 20 20 77 61 69 74 2c 20 64 65 74 00 00 00 00 00 00 00 00 ┆an wait, det ┆
0x87e00…87e06 (1087,) (0x3ec,0x10fd)
0x87e06…87e20 61 69 6c 73 2c 20 61 6e 79 5f 65 72 72 6f 72 73 3b 0a 20 20 72 65 61 6c 20 20 ┆ails, any_errors; real ┆
0x87e20…87e40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 75 6c 6c 3b 0a 0a 20 20 63 6f 6d 6d 65 6e 74 3a 20 ┆ null; comment: ┆
0x87e40…87e60 69 6e 69 74 69 61 6c 69 7a 61 74 69 6f 6e 3b 0a 0a 20 20 72 65 6c 65 61 73 65 3a 3d 20 6b 69 6c ┆initialization; release:= kil┆
0x87e60…87e7e 6c 3a 3d 20 30 3b 0a 20 20 61 6e 79 5f 65 72 72 6f 72 73 3a 3d 20 77 61 69 74 3a 3d 20 64 ┆l:= 0; any_errors:= wait:= d┆
0x87e7e…87e84 (0x3ec,0x10fe)
0x87e84…87ea0 65 74 61 69 6c 73 3a 3d 20 66 61 6c 73 65 3b 0a 20 20 66 6f 72 20 69 3a 3d 20 31 20 ┆etails:= false; for i:= 1 ┆
0x87ea0…87ec0 73 74 65 70 20 31 20 75 6e 74 69 6c 20 6d 65 73 5f 6c 67 74 20 64 6f 20 6d 65 73 73 28 69 29 3a ┆step 1 until mes_lgt do mess(i):┆
0x87ec0…87ee0 3d 20 2d 31 3b 0a 20 20 66 6f 72 20 69 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 61 ┆= -1; for i:= 1 step 1 until a┆
0x87ee0…87efc 6e 73 5f 6c 67 74 20 64 6f 20 61 6e 73 77 65 72 28 69 29 3a 3d 20 2d 31 3b 0a 20 20 ┆ns_lgt do answer(i):= -1; ┆
0x87efc…87f02 (0x3ec,0x10ff)
0x87f02…87f20 65 6e 74 72 79 5f 6e 61 6d 65 28 31 29 3a 3d 20 6e 75 6c 6c 3a 3d 20 30 2e 30 20 73 68 69 ┆entry_name(1):= null:= 0.0 shi┆
0x87f20…87f40 66 74 20 34 38 3b 0a 0a 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 3a 20 73 63 61 6e 20 61 6e ┆ft 48; begin comment: scan an┆
0x87f40…87f60 64 20 63 68 65 63 6b 20 6f 66 20 70 61 72 61 6d 65 74 65 72 6c 69 73 74 3b 0a 20 20 20 20 72 65 ┆d check of parameterlist; re┆
0x87f60…87f7a 61 6c 20 61 72 72 61 79 20 20 20 20 6b 65 79 77 6f 72 64 6c 69 73 74 28 31 3a ┆al array keywordlist(1:┆
0x87f7a…87f80 (0x3ec,0x1100)
0x87f80…87fa0 35 2c 20 31 3a 33 29 2c 20 65 6c 65 6d 65 6e 74 73 28 30 3a 31 2c 20 31 3a 32 29 2c 0a 20 20 20 ┆5, 1:3), elements(0:1, 1:2), ┆
0x87fa0…87fc0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 72 72 28 31 3a 32 29 3b 0a 20 20 20 20 69 6e 74 ┆ arr(1:2); int┆
0x87fc0…87fe0 65 67 65 72 20 61 72 72 61 79 20 65 6c 65 6d 65 6e 74 74 79 70 65 28 30 3a 31 29 3b 0a 20 20 20 ┆eger array elementtype(0:1); ┆
0x87fe0…88000 20 69 6e 74 65 67 65 72 20 20 20 20 20 20 20 74 65 78 74 2c 20 69 6e 74 00 00 00 00 00 00 00 00 ┆ integer text, int ┆
0x88000…88006 (1088,) (0x3ec,0x1101)
0x88006…88020 2c 20 6b 65 79 77 6f 72 64 6e 6f 2c 20 70 61 72 61 6d 2c 20 69 2c 20 6a 2c 20 ┆, keywordno, param, i, j, ┆
0x88020…88040 70 2c 20 69 70 61 72 61 6d 2c 20 6f 70 61 72 61 6d 3b 0a 0a 20 20 20 20 70 72 6f 63 65 64 75 72 ┆p, iparam, oparam; procedur┆
0x88040…88060 65 20 65 72 72 6f 72 28 70 61 72 61 6d 6e 6f 2c 20 74 65 78 74 29 3b 0a 20 20 20 20 69 6e 74 65 ┆e error(paramno, text); inte┆
0x88060…8807e 67 65 72 20 20 20 20 20 20 20 20 20 70 61 72 61 6d 6e 6f 3b 0a 20 20 20 20 73 74 72 69 6e ┆ger paramno; strin┆
0x8807e…88084 (0x3ec,0x1102)
0x88084…880a0 67 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 65 78 74 3b 0a 20 20 ┆g text; ┆
0x880a0…880c0 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 3a 20 70 72 69 6e 74 73 20 61 6e 20 65 72 72 6f 72 ┆ begin comment: prints an error┆
0x880c0…880e0 20 6d 65 73 73 20 6f 6e 20 63 75 72 72 65 6e 74 20 6f 75 74 70 75 74 2e 0a 20 20 20 20 20 20 20 ┆ mess on current output. ┆
0x880e0…880fc 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 70 61 72 61 6d 6e 6f 3d 30 20 6f 6e 6c ┆ if paramno=0 onl┆
0x880fc…88102 (0x3ec,0x1103)
0x88102…88120 79 20 74 68 65 20 74 65 78 74 20 69 73 20 70 72 69 6e 74 65 64 2e 0a 20 20 20 20 20 20 20 ┆y the text is printed. ┆
0x88120…88140 20 20 20 20 20 20 20 20 20 20 20 20 6f 74 68 65 72 77 69 73 65 20 74 68 65 20 74 65 78 74 20 66 ┆ otherwise the text f┆
0x88140…88160 6f 6c 6c 6f 77 65 64 20 62 79 20 3c 3a 70 61 72 61 6d 3a 3e 20 69 73 0a 20 20 20 20 20 20 20 20 ┆ollowed by <:param:> is ┆
0x88160…8817a 20 20 20 20 20 20 20 20 20 20 20 70 72 69 6e 74 65 64 20 61 6e 64 20 74 68 65 ┆ printed and the┆
0x8817a…88180 (0x3ec,0x1104)
0x88180…881a0 20 70 61 72 61 6d 65 74 65 72 20 73 70 65 63 69 66 69 65 64 20 62 79 20 70 61 72 61 6d 6e 6f 0a ┆ parameter specified by paramno ┆
0x881a0…881c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 73 20 70 72 69 6e 74 65 64 20 75 6e ┆ is printed un┆
0x881c0…881e0 74 69 6c 20 61 20 70 61 72 61 6d 65 74 65 72 20 70 72 65 63 65 65 64 65 64 20 62 79 20 3c 73 70 ┆til a parameter preceeded by <sp┆
0x881e0…88200 3e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 73 20 00 00 00 00 00 00 00 00 ┆> is ┆
0x88200…88206 (1089,) (0x3ec,0x1105)
0x88206…88220 6d 65 74 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 ┆met. if┆
0x88220…88240 20 70 61 72 61 6d 6e 6f 3d 30 20 74 68 65 20 70 72 6f 67 72 61 6d 20 74 65 72 6d 69 6e 61 74 65 ┆ paramno=0 the program terminate┆
0x88240…88260 73 3b 0a 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 20 73 74 72 69 6e 67 20 70 72 6f 67 6e ┆s; write(out, string progn┆
0x88260…8827e 61 6d 65 2c 20 74 65 78 74 29 3b 0a 20 20 20 20 20 20 69 66 20 70 61 72 61 6d 6e 6f 3d 30 ┆ame, text); if paramno=0┆
0x8827e…88284 (0x3ec,0x1106)
0x88284…882a0 20 74 68 65 6e 20 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 77 ┆ then begin w┆
0x882a0…882c0 72 69 74 65 28 6f 75 74 2c 20 3c 3a 3c 31 30 3e 3a 3e 29 3b 0a 20 20 20 20 20 20 20 20 67 6f 74 ┆rite(out, <:<10>:>); got┆
0x882c0…882e0 6f 20 65 6e 64 5f 70 72 6f 67 72 61 6d 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 ┆o end_program; end; ┆
0x882e0…882fc 77 72 69 74 65 28 6f 75 74 2c 20 69 66 20 72 65 61 6c 20 74 65 78 74 3d 72 65 61 6c ┆write(out, if real text=real┆
0x882fc…88302 (0x3ec,0x1107)
0x88302…88320 20 3c 3a 3a 3e 20 74 68 65 6e 20 3c 3a 70 61 72 61 6d 3a 20 3a 3e 0a 20 20 20 20 20 20 20 ┆ <::> then <:param: :> ┆
0x88320…88340 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 20 20 ┆ ┆
0x88340…88360 20 65 6c 73 65 20 3c 3a 3a 20 3a 3e 29 3b 0a 20 20 20 20 20 20 70 3a 3d 20 70 61 72 61 6d 6e 6f ┆ else <:: :>); p:= paramno┆
0x88360…8837a 3b 0a 20 20 20 20 20 20 66 6f 72 20 6a 3a 3d 20 73 79 73 74 65 6d 28 34 2c 70 ┆; for j:= system(4,p┆
0x8837a…88380 (0x3ec,0x1108)
0x88380…883a0 61 72 61 6d 6e 6f 2c 61 72 72 29 20 77 68 69 6c 65 20 6a 20 73 68 69 66 74 28 2d 31 32 29 3d 38 ┆aramno,arr) while j shift(-12)=8┆
0x883a0…883c0 20 6f 72 0a 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 ┆ or ┆
0x883c0…883e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 3d 70 61 72 61 6d 6e 6f 20 64 6f 0a 20 20 20 ┆ p=paramno do ┆
0x883e0…88400 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 69 3a 3d 20 31 3b 0a 00 00 00 00 00 00 00 00 ┆ begin i:= 1; ┆
0x88400…88406 (1090,) (0x3ec,0x1109)
0x88406…88420 20 20 20 20 20 20 20 20 69 66 20 6a 20 73 68 69 66 74 20 28 2d 31 32 29 3d 38 ┆ if j shift (-12)=8┆
0x88420…88440 20 74 68 65 6e 20 77 72 69 74 65 28 6f 75 74 2c 20 3c 3a 2e 3a 3e 29 3b 0a 20 20 20 20 20 20 20 ┆ then write(out, <:.:>); ┆
0x88440…88460 20 69 66 20 6a 20 65 78 74 72 61 63 74 20 31 32 3d 34 20 74 68 65 6e 20 77 72 69 74 65 28 6f 75 ┆ if j extract 12=4 then write(ou┆
0x88460…8847e 74 2c 20 3c 3c 64 3e 2c 20 61 72 72 28 31 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆t, <<d>, arr(1)) ┆
0x8847e…88484 (0x3ec,0x110a)
0x88484…884a0 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 20 77 72 69 74 65 28 6f 75 74 2c ┆ else write(out,┆
0x884a0…884c0 20 73 74 72 69 6e 67 20 61 72 72 28 69 6e 63 72 65 61 73 65 28 69 29 29 29 3b 0a 20 20 20 20 20 ┆ string arr(increase(i))); ┆
0x884c0…884e0 20 20 20 70 61 72 61 6d 6e 6f 3a 3d 20 70 61 72 61 6d 6e 6f 2b 31 3b 0a 20 20 20 20 20 20 65 6e ┆ paramno:= paramno+1; en┆
0x884e0…884fc 64 3b 0a 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 20 3c 3a 3c 31 30 3e 3a 3e ┆d; write(out, <:<10>:>┆
0x884fc…88502 (0x3ec,0x110b)
0x88502…88520 29 3b 0a 20 20 20 20 20 20 61 6e 79 5f 65 72 72 6f 72 73 3a 3d 20 74 72 75 65 3b 0a 0a 20 ┆); any_errors:= true; ┆
0x88520…88540 20 20 20 20 20 67 6f 74 6f 20 73 63 61 6e 5f 70 61 72 61 6d 73 3b 0a 20 20 20 20 65 6e 64 3b 0a ┆ goto scan_params; end; ┆
0x88540…88560 0a 0a 20 20 20 20 74 65 78 74 3a 3d 20 31 3b 0a 20 20 20 20 69 6e 74 3a 3d 20 32 3b 0a 0a 20 20 ┆ text:= 1; int:= 2; ┆
0x88560…8857a 20 20 6b 65 79 77 6f 72 64 6c 69 73 74 28 31 2c 31 29 3a 3d 20 72 65 61 6c 20 ┆ keywordlist(1,1):= real ┆
0x8857a…88580 (0x3ec,0x110c)
0x88580…885a0 3c 3a 77 61 69 74 3a 3e 3b 0a 20 20 20 20 6b 65 79 77 6f 72 64 6c 69 73 74 28 31 2c 32 29 3a 3d ┆<:wait:>; keywordlist(1,2):=┆
0x885a0…885c0 20 6e 75 6c 6c 3b 0a 20 20 20 20 6b 65 79 77 6f 72 64 6c 69 73 74 28 31 2c 33 29 3a 3d 20 6e 75 ┆ null; keywordlist(1,3):= nu┆
0x885c0…885e0 6c 6c 20 61 64 64 20 74 65 78 74 20 73 68 69 66 74 20 33 20 61 64 64 20 74 65 78 74 3b 0a 0a 20 ┆ll add text shift 3 add text; ┆
0x885e0…88600 20 20 20 6b 65 79 77 6f 72 64 6c 69 73 74 28 32 2c 31 29 3a 3d 20 72 65 00 00 00 00 00 00 00 00 ┆ keywordlist(2,1):= re ┆
0x88600…88606 (1091,) (0x3ec,0x110d)
0x88606…88620 61 6c 20 3c 3a 72 65 6c 65 61 3a 3e 20 61 64 64 20 31 31 35 3b 0a 20 20 20 20 ┆al <:relea:> add 115; ┆
0x88620…88640 6b 65 79 77 6f 72 64 6c 69 73 74 28 32 2c 32 29 3a 3d 20 72 65 61 6c 20 3c 3a 65 3a 3e 3b 0a 20 ┆keywordlist(2,2):= real <:e:>; ┆
0x88640…88660 20 20 20 6b 65 79 77 6f 72 64 6c 69 73 74 28 32 2c 33 29 3a 3d 20 6e 75 6c 6c 20 61 64 64 20 74 ┆ keywordlist(2,3):= null add t┆
0x88660…8867e 65 78 74 20 73 68 69 66 74 20 33 20 61 64 64 20 74 65 78 74 3b 0a 0a 20 20 20 20 6b 65 79 ┆ext shift 3 add text; key┆
0x8867e…88684 (0x3ec,0x110e)
0x88684…886a0 77 6f 72 64 6c 69 73 74 28 33 2c 31 29 3a 3d 20 72 65 61 6c 20 3c 3a 64 65 74 61 69 ┆wordlist(3,1):= real <:detai┆
0x886a0…886c0 3a 3e 20 61 64 64 20 31 30 38 3b 0a 20 20 20 20 6b 65 79 77 6f 72 64 6c 69 73 74 28 33 2c 32 29 ┆:> add 108; keywordlist(3,2)┆
0x886c0…886e0 3a 3d 20 72 65 61 6c 20 3c 3a 73 3a 3e 3b 0a 20 20 20 20 6b 65 79 77 6f 72 64 6c 69 73 74 28 33 ┆:= real <:s:>; keywordlist(3┆
0x886e0…886fc 2c 33 29 3a 3d 20 6e 75 6c 6c 20 61 64 64 20 74 65 78 74 20 73 68 69 66 74 20 33 20 ┆,3):= null add text shift 3 ┆
0x886fc…88702 (0x3ec,0x110f)
0x88702…88720 61 64 64 20 74 65 78 74 3b 0a 0a 20 20 20 20 6b 65 79 77 6f 72 64 6c 69 73 74 28 34 2c 31 ┆add text; keywordlist(4,1┆
0x88720…88740 29 3a 3d 20 72 65 61 6c 20 3c 3a 6b 69 6c 6c 3a 3e 3b 0a 20 20 20 20 6b 65 79 77 6f 72 64 6c 69 ┆):= real <:kill:>; keywordli┆
0x88740…88760 73 74 28 34 2c 32 29 3a 3d 20 6e 75 6c 6c 3b 0a 20 20 20 20 6b 65 79 77 6f 72 64 6c 69 73 74 28 ┆st(4,2):= null; keywordlist(┆
0x88760…8877a 34 2c 33 29 3a 3d 20 6e 75 6c 6c 20 61 64 64 20 74 65 78 74 20 73 68 69 66 74 ┆4,3):= null add text shift┆
0x8877a…88780 (0x3ec,0x1110)
0x88780…887a0 20 33 20 61 64 64 20 74 65 78 74 3b 0a 0a 20 20 20 20 6b 65 79 77 6f 72 64 6c 69 73 74 28 35 2c ┆ 3 add text; keywordlist(5,┆
0x887a0…887c0 31 29 3a 3d 20 6b 65 79 77 6f 72 64 6c 69 73 74 28 35 2c 32 29 3a 3d 20 6e 75 6c 6c 3b 0a 20 20 ┆1):= keywordlist(5,2):= null; ┆
0x887c0…887e0 20 20 6b 65 79 77 6f 72 64 6c 69 73 74 28 35 2c 33 29 3a 3d 20 6e 75 6c 6c 20 61 64 64 20 28 74 ┆ keywordlist(5,3):= null add (t┆
0x887e0…88800 65 78 74 20 61 64 64 20 69 6e 74 29 3b 0a 0a 20 20 20 20 63 6f 6d 6d 65 00 00 00 00 00 00 00 00 ┆ext add int); comme ┆
0x88800…88806 (1092,) (0x3ec,0x1111)
0x88806…88820 6e 74 3a 20 63 68 65 63 6b 20 6c 65 66 74 20 73 69 64 65 3b 0a 20 20 20 20 69 ┆nt: check left side; i┆
0x88820…88840 66 20 73 79 73 74 65 6d 28 34 2c 31 2c 61 72 72 29 20 73 68 69 66 74 20 28 2d 31 32 29 3d 36 20 ┆f system(4,1,arr) shift (-12)=6 ┆
0x88840…88860 74 68 65 6e 0a 20 20 20 20 20 20 65 72 72 6f 72 28 30 2c 20 3c 3a 63 61 6c 6c 3a 3e 29 3b 0a 0a ┆then error(0, <:call:>); ┆
0x88860…8887e 20 20 20 20 70 61 72 61 6d 3a 3d 20 31 3b 0a 73 63 61 6e 5f 70 61 72 61 6d 73 3a 0a 20 20 ┆ param:= 1; scan_params: ┆
0x8887e…88884 (0x3ec,0x1112)
0x88884…888a0 20 20 66 6f 72 20 6a 3a 3d 20 63 68 65 63 6b 70 61 72 61 6d 28 70 61 72 61 6d 2c 20 ┆ for j:= checkparam(param, ┆
0x888a0…888c0 6b 65 79 77 6f 72 64 6e 6f 2c 20 6b 65 79 77 6f 72 64 6c 69 73 74 2c 0a 20 20 20 20 20 20 20 20 ┆keywordno, keywordlist, ┆
0x888c0…888e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6c 65 6d 65 6e 74 73 2c 20 65 6c 65 6d 65 6e 74 ┆ elements, element┆
0x888e0…888fc 74 79 70 65 2c 20 66 61 6c 73 65 29 20 77 68 69 6c 65 20 6a 3c 3e 30 20 64 6f 0a 20 ┆type, false) while j<>0 do ┆
0x888fc…88902 (0x3ec,0x1113)
0x88902…88920 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 3a 20 6b 65 79 77 6f 72 64 6e 6f 20 68 6f ┆ begin comment: keywordno ho┆
0x88920…88940 6c 64 73 20 74 68 65 20 6b 65 79 77 6f 72 64 6e 75 6d 62 65 72 3b 0a 20 20 20 20 20 20 69 66 20 ┆lds the keywordnumber; if ┆
0x88940…88960 6a 3c 30 20 74 68 65 6e 20 65 72 72 6f 72 28 70 61 72 61 6d 2c 20 3c 3a 3a 3e 29 3b 0a 0a 20 20 ┆j<0 then error(param, <::>); ┆
0x88960…8897a 20 20 20 20 63 61 73 65 20 6b 65 79 77 6f 72 64 6e 6f 20 6f 66 0a 20 20 20 20 ┆ case keywordno of ┆
0x8897a…88980 (0x3ec,0x1114)
0x88980…889a0 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 3c 2a 20 31 3a 20 77 61 69 ┆ begin begin <* 1: wai┆
0x889a0…889c0 74 2a 3e 0a 20 20 20 20 20 20 20 20 20 20 20 69 66 20 65 6c 65 6d 65 6e 74 73 28 31 2c 31 29 3d ┆t*> if elements(1,1)=┆
0x889c0…889e0 20 72 65 61 6c 20 3c 3a 79 65 73 3a 3e 20 74 68 65 6e 20 77 61 69 74 3a 3d 20 74 72 75 65 20 65 ┆ real <:yes:> then wait:= true e┆
0x889e0…88a00 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 69 66 20 65 6c 65 6d 65 6e 00 00 00 00 00 00 00 00 ┆lse if elemen ┆
0x88a00…88a06 (1093,) (0x3ec,0x1115)
0x88a06…88a20 74 73 28 31 2c 31 29 3d 20 72 65 61 6c 20 3c 3a 6e 6f 3a 3e 20 20 74 68 65 6e ┆ts(1,1)= real <:no:> then┆
0x88a20…88a40 20 77 61 69 74 3a 3d 20 66 61 6c 73 65 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 65 72 ┆ wait:= false else er┆
0x88a40…88a60 72 6f 72 28 70 61 72 61 6d 2c 20 3c 3a 3a 3e 29 3b 0a 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a ┆ror(param, <::>); end; ┆
0x88a60…88a7e 0a 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 3c 2a 20 32 3a 20 72 65 6c 65 61 73 65 2a ┆ begin <* 2: release*┆
0x88a7e…88a84 (0x3ec,0x1116)
0x88a84…88aa0 3e 0a 20 20 20 20 20 20 20 20 20 20 20 69 66 20 65 6c 65 6d 65 6e 74 73 28 31 2c 31 ┆> if elements(1,1┆
0x88aa0…88ac0 29 3d 20 72 65 61 6c 20 3c 3a 79 65 73 3a 3e 20 74 68 65 6e 20 72 65 6c 65 61 73 65 3a 3d 20 2b ┆)= real <:yes:> then release:= +┆
0x88ac0…88ae0 31 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 69 66 20 65 6c 65 6d 65 6e 74 73 28 31 2c ┆1 else if elements(1,┆
0x88ae0…88afc 31 29 3d 20 72 65 61 6c 20 3c 3a 6e 6f 3a 3e 20 20 74 68 65 6e 20 72 65 6c 65 61 73 ┆1)= real <:no:> then releas┆
0x88afc…88b02 (0x3ec,0x1117)
0x88b02…88b20 65 3a 3d 20 2d 31 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 65 72 72 6f 72 28 70 ┆e:= -1 else error(p┆
0x88b20…88b40 61 72 61 6d 2c 20 3c 3a 3a 3e 29 3b 0a 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 0a 20 20 20 20 ┆aram, <::>); end; ┆
0x88b40…88b60 20 20 20 20 20 62 65 67 69 6e 20 3c 2a 20 33 3a 20 64 65 74 61 69 6c 73 2a 3e 0a 20 20 20 20 20 ┆ begin <* 3: details*> ┆
0x88b60…88b7a 20 20 20 20 20 20 69 66 20 65 6c 65 6d 65 6e 74 73 28 31 2c 31 29 3d 20 72 65 ┆ if elements(1,1)= re┆
0x88b7a…88b80 (0x3ec,0x1118)
0x88b80…88ba0 61 6c 20 3c 3a 79 65 73 3a 3e 20 74 68 65 6e 20 64 65 74 61 69 6c 73 3a 3d 20 74 72 75 65 20 65 ┆al <:yes:> then details:= true e┆
0x88ba0…88bc0 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 69 66 20 65 6c 65 6d 65 6e 74 73 28 31 2c 31 29 3d ┆lse if elements(1,1)=┆
0x88bc0…88be0 20 72 65 61 6c 20 3c 3a 6e 6f 3a 3e 20 20 74 68 65 6e 20 64 65 74 61 69 6c 73 3a 3d 20 66 61 6c ┆ real <:no:> then details:= fal┆
0x88be0…88c00 73 65 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 65 72 72 6f 72 00 00 00 00 00 00 00 00 ┆se else error ┆
0x88c00…88c06 (1094,) (0x3ec,0x1119)
0x88c06…88c20 28 70 61 72 61 6d 2c 20 3c 3a 3a 3e 29 3b 0a 20 20 20 20 20 20 20 20 20 65 6e ┆(param, <::>); en┆
0x88c20…88c40 64 3b 0a 0a 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 3c 2a 20 34 3a 20 6b 69 6c 6c 2a 3e 0a ┆d; begin <* 4: kill*> ┆
0x88c40…88c60 20 20 20 20 20 20 20 20 20 20 20 69 66 20 65 6c 65 6d 65 6e 74 73 28 31 2c 31 29 3d 72 65 61 6c ┆ if elements(1,1)=real┆
0x88c60…88c7e 20 3c 3a 79 65 73 3a 3e 20 74 68 65 6e 20 6b 69 6c 6c 3a 3d 20 2b 31 20 65 6c 73 65 0a 20 ┆ <:yes:> then kill:= +1 else ┆
0x88c7e…88c84 (0x3ec,0x111a)
0x88c84…88ca0 20 20 20 20 20 20 20 20 20 20 69 66 20 65 6c 65 6d 65 6e 74 73 28 31 2c 31 29 3d 72 ┆ if elements(1,1)=r┆
0x88ca0…88cc0 65 61 6c 20 3c 3a 6e 6f 3a 3e 20 20 74 68 65 6e 20 6b 69 6c 6c 3a 3d 20 2d 31 20 65 6c 73 65 0a ┆eal <:no:> then kill:= -1 else ┆
0x88cc0…88ce0 20 20 20 20 20 20 20 20 20 20 20 65 72 72 6f 72 28 70 61 72 61 6d 2c 3c 3a 3a 3e 29 3b 0a 20 20 ┆ error(param,<::>); ┆
0x88ce0…88cfc 20 20 20 20 20 20 20 65 6e 64 3b 0a 0a 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 ┆ end; begin ┆
0x88cfc…88d02 (0x3ec,0x111b)
0x88d02…88d20 3c 2a 20 35 3a 20 69 64 65 6e 74 69 66 69 63 61 74 69 6f 6e 2a 3e 0a 20 20 20 20 20 20 20 ┆<* 5: identification*> ┆
0x88d20…88d40 20 20 20 20 69 66 20 65 6c 65 6d 65 6e 74 74 79 70 65 28 30 29 3d 69 6e 74 20 74 68 65 6e 0a 20 ┆ if elementtype(0)=int then ┆
0x88d40…88d60 20 20 20 20 20 20 20 20 20 20 20 20 6d 65 73 73 2e 74 6e 6f 3a 3d 20 65 6c 65 6d 65 6e 74 73 28 ┆ mess.tno:= elements(┆
0x88d60…88d7a 30 2c 31 29 0a 20 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 ┆0,1) else ┆
0x88d7a…88d80 (0x3ec,0x111c)
0x88d80…88da0 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 3a 20 6c 6f 6f 6b 75 70 20 65 6e 74 72 ┆ begin comment: lookup entr┆
0x88da0…88dc0 79 20 6e 61 6d 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 7a 6f 6e 65 20 7a 28 31 2c 31 2c ┆y name; zone z(1,1,┆
0x88dc0…88de0 73 74 64 65 72 72 6f 72 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 69 6e 74 65 67 65 72 20 ┆stderror); integer ┆
0x88de0…88e00 61 72 72 61 79 20 74 61 69 6c 28 31 3a 31 30 29 3b 0a 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆array tail(1:10); ┆
0x88e00…88e06 (1095,) (0x3ec,0x111d)
0x88e06…88e20 20 20 20 20 20 20 20 69 6e 74 65 67 65 72 20 69 2c 6a 3b 0a 0a 20 20 20 20 20 ┆ integer i,j; ┆
0x88e20…88e40 20 20 20 20 20 20 20 20 65 6e 74 72 79 5f 6e 61 6d 65 28 31 29 3a 3d 20 65 6c 65 6d 65 6e 74 73 ┆ entry_name(1):= elements┆
0x88e40…88e60 28 30 2c 31 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 74 72 79 5f 6e 61 6d 65 28 32 ┆(0,1); entry_name(2┆
0x88e60…88e7e 29 3a 3d 20 65 6c 65 6d 65 6e 74 73 28 30 2c 32 29 3b 0a 0a 20 20 20 20 20 20 20 20 20 20 ┆):= elements(0,2); ┆
0x88e7e…88e84 (0x3ec,0x111e)
0x88e84…88ea0 20 20 20 69 3a 3d 20 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 70 65 6e 28 ┆ i:= 1; open(┆
0x88ea0…88ec0 7a 2c 30 2c 73 74 72 69 6e 67 20 65 6e 74 72 79 5f 6e 61 6d 65 28 69 6e 63 72 65 61 73 65 28 69 ┆z,0,string entry_name(increase(i┆
0x88ec0…88ee0 29 29 2c 30 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 6a 3a 3d 20 6d 6f 6e 69 74 6f 72 28 ┆)),0); j:= monitor(┆
0x88ee0…88efc 34 32 2c 7a 2c 69 2c 74 61 69 6c 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 69 ┆42,z,i,tail); i┆
0x88efc…88f02 (0x3ec,0x111f)
0x88f02…88f20 66 20 6a 3c 3e 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e ┆f j<>0 then begin┆
0x88f20…88f40 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 3a 3d 20 31 3b 0a 20 20 20 20 20 20 20 20 20 ┆ i:= 1; ┆
0x88f40…88f60 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 20 73 74 72 69 6e 67 20 70 72 6f 67 6e 61 6d 65 ┆ write(out, string progname┆
0x88f60…88f7a 2c 20 3c 3a 6c 6f 6f 6b 75 70 20 3a 3e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 ┆, <:lookup :>, ┆
0x88f7a…88f80 (0x3ec,0x1120)
0x88f80…88fa0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 74 72 69 6e 67 20 65 6e 74 72 79 5f 6e 61 6d 65 ┆ string entry_name┆
0x88fa0…88fc0 28 69 6e 63 72 65 61 73 65 28 69 29 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 ┆(increase(i))); i┆
0x88fc0…88fe0 66 20 6a 3d 33 20 74 68 65 6e 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 72 69 ┆f j=3 then wri┆
0x88fe0…89000 74 65 28 6f 75 74 2c 20 3c 3a 20 65 6e 74 72 79 20 64 6f 65 73 20 6e 6f 00 00 00 00 00 00 00 00 ┆te(out, <: entry does no ┆
0x89000…89006 (1096,) (0x3ec,0x1121)
0x89006…89020 74 20 65 78 69 73 74 3c 31 30 3e 3a 3e 29 20 65 6c 73 65 0a 20 20 20 20 20 20 ┆t exist<10>:>) else ┆
0x89020…89040 20 20 20 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 20 3c 3a 72 65 73 75 6c 74 3a 20 3a 3e ┆ write(out, <:result: :>┆
0x89040…89060 2c 20 6a 2c 20 3c 3a 3c 31 30 3e 3a 3e 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 ┆, j, <:<10>:>); a┆
0x89060…8907e 6e 79 5f 65 72 72 6f 72 73 3a 3d 20 74 72 75 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ny_errors:= true; ┆
0x8907e…89084 (0x3ec,0x1122)
0x89084…890a0 20 20 20 67 6f 74 6f 20 65 6e 64 5f 70 72 6f 67 72 61 6d 3b 0a 20 20 20 20 20 20 20 ┆ goto end_program; ┆
0x890a0…890c0 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 65 73 73 2e 74 6e 6f ┆ end; mess.tno┆
0x890c0…890e0 3a 3d 20 74 61 69 6c 28 37 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 ┆:= tail(7); end; ┆
0x890e0…890fc 20 20 20 20 20 65 6e 64 3b 0a 0a 20 20 20 20 20 20 20 65 6e 64 20 63 61 73 65 3b 0a ┆ end; end case; ┆
0x890fc…89102 (0x3ec,0x1123)
0x89102…89120 0a 0a 20 20 20 20 20 20 70 61 72 61 6d 3a 3d 20 70 61 72 61 6d 2b 6a 3b 0a 20 20 20 20 65 ┆ param:= param+j; e┆
0x89120…89140 6e 64 20 66 6f 72 20 77 68 69 6c 65 3b 0a 0a 0a 0a 20 20 20 20 69 66 20 61 6e 79 5f 65 72 72 6f ┆nd for while; if any_erro┆
0x89140…89160 72 73 20 74 68 65 6e 20 67 6f 74 6f 20 65 6e 64 5f 70 72 6f 67 72 61 6d 3b 0a 0a 20 20 20 20 63 ┆rs then goto end_program; c┆
0x89160…8917a 6f 6d 6d 65 6e 74 3a 20 65 6e 64 20 6f 66 20 70 61 72 61 6d 65 74 65 72 73 63 ┆omment: end of parametersc┆
0x8917a…89180 (0x3ec,0x1124)
0x89180…891a0 61 6e 3b 0a 0a 20 20 65 6e 64 20 70 61 72 61 6d 65 74 65 72 20 62 6c 6f 63 6b 3b 0a 0a 20 20 63 ┆an; end parameter block; c┆
0x891a0…891c0 6f 6d 6d 65 6e 74 3a 20 73 65 6e 64 20 6d 65 73 73 20 74 6f 20 70 72 69 6d 6f 3b 0a 0a 20 20 63 ┆omment: send mess to primo; c┆
0x891c0…891e0 6f 64 65 3a 3d 20 69 66 20 77 61 69 74 20 74 68 65 6e 20 77 61 69 74 5f 61 6e 64 5f 67 65 74 5f ┆ode:= if wait then wait_and_get_┆
0x891e0…89200 73 74 61 74 65 5f 63 6f 64 65 20 65 6c 73 65 20 67 65 74 5f 73 74 61 74 00 00 00 00 00 00 00 00 ┆state_code else get_stat ┆
0x89200…89206 (1097,) (0x3ec,0x1125)
0x89206…89220 65 5f 63 6f 64 65 3b 0a 20 20 69 3a 3d 20 74 72 61 6e 73 66 65 72 28 63 6f 64 ┆e_code; i:= transfer(cod┆
0x89220…89240 65 2c 20 6d 65 73 73 2c 20 6d 65 73 5f 6c 67 74 2c 20 61 6e 73 77 65 72 2c 20 61 6e 73 5f 6c 67 ┆e, mess, mes_lgt, answer, ans_lg┆
0x89240…89260 74 29 3b 0a 0a 20 20 63 6f 6d 6d 65 6e 74 3a 20 63 68 65 63 6b 20 72 65 73 75 6c 74 3b 0a 0a 20 ┆t); comment: check result; ┆
0x89260…8927e 20 69 66 20 69 3c 3e 30 20 74 68 65 6e 0a 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 3a ┆ if i<>0 then begin comment:┆
0x8927e…89284 (0x3ec,0x1126)
0x89284…892a0 20 65 72 72 6f 72 20 69 6e 20 63 6f 6d 6d 75 6e 69 63 61 74 69 6f 6e 20 77 69 74 68 ┆ error in communication with┆
0x892a0…892c0 20 70 72 69 6d 6f 20 6f 72 20 69 6e 20 70 61 72 61 6d 65 74 65 72 73 0a 20 20 20 20 20 20 20 20 ┆ primo or in parameters ┆
0x892c0…892e0 20 20 20 20 20 20 20 20 20 74 6f 20 3c 74 72 61 6e 73 66 65 72 3e 2e 20 74 68 65 20 6c 61 74 74 ┆ to <transfer>. the latt┆
0x892e0…892fc 65 72 20 73 68 6f 75 6c 64 20 6e 6f 74 20 70 6f 73 73 69 62 6c 65 0a 20 20 20 20 20 ┆er should not possible ┆
0x892fc…89302 (0x3ec,0x1127)
0x89302…89320 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 75 6c 64 20 6f 63 63 75 72 3b 0a 20 20 20 20 61 ┆ could occur; a┆
0x89320…89340 6e 79 5f 65 72 72 6f 72 73 3a 3d 20 74 72 75 65 3b 0a 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c ┆ny_errors:= true; write(out,┆
0x89340…89360 20 73 74 72 69 6e 67 20 70 72 6f 67 6e 61 6d 65 2c 20 3c 3a 70 72 69 6d 6f 20 63 6f 6d 6d 75 6e ┆ string progname, <:primo commun┆
0x89360…8937a 69 63 61 74 69 6f 6e 20 65 72 72 6f 72 3a 20 3a 3e 29 3b 0a 20 20 20 20 69 66 ┆ication error: :>); if┆
0x8937a…89380 (0x3ec,0x1128)
0x89380…893a0 20 69 3e 31 20 61 6e 64 20 69 3c 37 20 74 68 65 6e 0a 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c ┆ i>1 and i<7 then write(out,┆
0x893a0…893c0 20 63 61 73 65 20 69 2d 31 20 6f 66 20 28 3c 3a 72 65 6a 65 63 74 65 64 3a 3e 2c 0a 20 20 20 20 ┆ case i-1 of (<:rejected:>, ┆
0x893c0…893e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 3a 75 6e 69 6e 74 65 ┆ <:uninte┆
0x893e0…89400 6c 6c 69 67 69 62 6c 65 3a 3e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆lligible:>, ┆
0x89400…89406 (1098,) (0x3ec,0x1129)
0x89406…89420 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 3a 6d 61 6c 66 75 6e 63 74 ┆ <:malfunct┆
0x89420…89440 69 6f 6e 3a 3e 2c 0a 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 ┆ion:>, ┆
0x89440…89460 20 20 20 3c 3a 70 72 69 6d 6f 20 64 6f 65 73 20 6e 6f 74 20 65 78 69 73 74 3a 3e 2c 0a 20 20 20 ┆ <:primo does not exist:>, ┆
0x89460…8947e 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 3c 3a 6d 65 73 ┆ <:mes┆
0x8947e…89484 (0x3ec,0x112a)
0x89484…894a0 73 20 62 75 66 66 65 72 20 63 6c 61 69 6d 20 65 78 63 65 65 64 65 64 3a 3e 29 2c 0a ┆s buffer claim exceeded:>), ┆
0x894a0…894c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 3a 3c 31 30 3e 3a 3e 29 0a 20 20 20 20 65 6c 73 ┆ <:<10>:>) els┆
0x894c0…894e0 65 0a 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 20 3c 3a 75 6e 65 78 70 65 63 74 65 64 20 72 65 ┆e write(out, <:unexpected re┆
0x894e0…894fc 73 75 6c 74 3a 20 3a 3e 2c 20 69 2c 20 3c 3a 3c 31 30 3e 3a 3e 29 3b 0a 20 20 65 6e ┆sult: :>, i, <:<10>:>); en┆
0x894fc…89502 (0x3ec,0x112b)
0x89502…89520 64 20 65 6c 73 65 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 69 3a 3d 20 61 6e 73 77 65 72 2e ┆d else begin i:= answer.┆
0x89520…89540 74 72 65 70 6c 79 3b 0a 20 20 20 20 69 66 20 69 3c 3e 30 20 74 68 65 6e 20 0a 20 20 20 20 62 65 ┆treply; if i<>0 then be┆
0x89540…89560 67 69 6e 20 63 6f 6d 6d 65 6e 74 3a 20 72 65 70 6c 79 20 65 72 72 6f 72 3b 0a 20 20 20 20 20 20 ┆gin comment: reply error; ┆
0x89560…8957a 61 6e 79 5f 65 72 72 6f 72 73 3a 3d 20 74 72 75 65 3b 0a 20 20 20 20 20 20 77 ┆any_errors:= true; w┆
0x8957a…89580 (0x3ec,0x112c)
0x89580…895a0 72 69 74 65 28 6f 75 74 2c 20 73 74 72 69 6e 67 20 70 72 6f 67 6e 61 6d 65 2c 20 3c 3a 70 72 69 ┆rite(out, string progname, <:pri┆
0x895a0…895c0 6d 6f 20 72 65 70 6c 79 20 65 72 72 6f 72 3a 20 3a 3e 29 3b 0a 20 20 20 20 20 20 69 66 20 69 3d ┆mo reply error: :>); if i=┆
0x895c0…895e0 32 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 20 3c 3a 74 72 61 6e ┆2 then write(out, <:tran┆
0x895e0…89600 73 70 6f 72 74 20 75 6e 6b 6e 6f 77 6e 3a 3e 29 0a 20 20 20 20 20 20 65 00 00 00 00 00 00 00 00 ┆sport unknown:>) e ┆
0x89600…89606 (1099,) (0x3ec,0x112d)
0x89606…89620 6c 73 65 0a 20 20 20 20 20 20 69 66 20 69 3d 33 20 74 68 65 6e 0a 20 20 20 20 ┆lse if i=3 then ┆
0x89620…89640 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 20 3c 3a 6d 69 73 73 69 6e 67 20 72 65 73 6f 75 72 63 ┆ write(out, <:missing resourc┆
0x89640…89660 65 73 3a 3e 29 0a 0a 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 69 66 20 69 3d 35 20 6f ┆es:>) else if i=5 o┆
0x89660…8967e 72 20 69 3d 36 20 74 68 65 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 ┆r i=6 then begin comment┆
0x8967e…89684 (0x3ec,0x112e)
0x89684…896a0 3a 20 65 72 72 6f 72 20 69 6e 20 73 65 6e 64 65 72 2f 72 65 63 65 69 76 65 72 20 64 ┆: error in sender/receiver d┆
0x896a0…896c0 65 76 69 63 65 20 73 70 65 63 69 66 69 63 61 74 69 6f 6e 3b 0a 20 20 20 20 20 20 20 20 69 66 20 ┆evice specification; if ┆
0x896c0…896e0 69 3d 35 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 ┆i=5 then begin ┆
0x896e0…896fc 20 77 72 69 74 65 28 6f 75 74 2c 20 3c 3a 73 65 6e 64 65 72 20 3a 3e 29 3b 0a 20 20 ┆ write(out, <:sender :>); ┆
0x896fc…89702 (0x3ec,0x112f)
0x89702…89720 20 20 20 20 20 20 20 20 6a 3a 3d 20 61 6e 73 77 65 72 2e 74 73 65 6e 64 65 72 72 6f 72 3b ┆ j:= answer.tsenderror;┆
0x89720…89740 0a 20 20 20 20 20 20 20 20 65 6e 64 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a ┆ end else begin ┆
0x89740…89760 20 20 20 20 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 20 3c 3a 72 65 63 65 69 76 65 72 20 ┆ write(out, <:receiver ┆
0x89760…8977a 3a 3e 29 3b 0a 20 20 20 20 20 20 20 20 20 20 6a 3a 3d 20 61 6e 73 77 65 72 2e ┆:>); j:= answer.┆
0x8977a…89780 (0x3ec,0x1130)
0x89780…897a0 74 72 65 63 65 69 76 65 65 72 72 6f 72 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 ┆treceiveerror; end; ┆
0x897a0…897c0 20 20 20 20 69 66 20 6a 3d 31 20 74 68 65 6e 20 77 72 69 74 65 28 6f 75 74 2c 20 3c 3a 65 6e 74 ┆ if j=1 then write(out, <:ent┆
0x897c0…897e0 72 79 20 74 72 6f 75 62 6c 65 73 3a 3e 29 0a 20 20 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 ┆ry troubles:>) else ┆
0x897e0…89800 20 20 20 20 69 66 20 6a 3d 32 20 74 68 65 6e 20 77 72 69 74 65 28 6f 75 00 00 00 00 00 00 00 00 ┆ if j=2 then write(ou ┆
0x89800…89806 (1100,) (0x3ec,0x1131)
0x89806…89820 74 2c 20 3c 3a 64 65 76 69 63 65 20 74 72 6f 75 62 6c 65 73 3a 3e 29 0a 20 20 ┆t, <:device troubles:>) ┆
0x89820…89840 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 20 3c 3a ┆ else write(out, <:┆
0x89840…89860 65 72 72 6f 72 63 6f 64 65 20 3a 3e 2c 20 6a 29 3b 0a 20 20 20 20 20 20 65 6e 64 20 65 6c 73 65 ┆errorcode :>, j); end else┆
0x89860…8987e 0a 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 20 3c 3a 75 6e 65 78 70 65 63 74 65 64 ┆ write(out, <:unexpected┆
0x8987e…89884 (0x3ec,0x1132)
0x89884…898a0 20 72 65 70 6c 79 20 63 6f 64 65 3a 20 3a 3e 2c 20 69 29 3b 0a 0a 20 20 20 20 20 20 ┆ reply code: :>, i); ┆
0x898a0…898c0 77 72 69 74 65 28 6f 75 74 2c 20 3c 3a 3c 31 30 3e 3a 3e 29 3b 0a 20 20 20 20 65 6e 64 20 65 6c ┆write(out, <:<10>:>); end el┆
0x898c0…898e0 73 65 0a 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 3a 20 73 74 61 74 65 20 72 65 63 65 ┆se begin comment: state rece┆
0x898e0…898fc 69 76 65 64 3b 0a 20 20 20 20 20 20 69 66 20 64 65 74 61 69 6c 73 20 74 68 65 6e 0a ┆ived; if details then ┆
0x898fc…89902 (0x3ec,0x1133)
0x89902…89920 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 3a 20 70 72 69 6e 74 20 74 72 61 ┆ begin comment: print tra┆
0x89920…89940 6e 73 70 6f 72 74 20 6e 61 6d 65 3b 0a 20 20 20 20 20 20 20 20 69 3a 3d 20 31 3b 0a 20 20 20 20 ┆nsport name; i:= 1; ┆
0x89940…89960 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 20 3c 3a 74 72 61 6e 73 70 6f 72 74 20 6e 61 6d 65 3a ┆ write(out, <:transport name:┆
0x89960…8997a 20 3a 3e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 74 ┆ :>, st┆
0x8997a…89980 (0x3ec,0x1134)
0x89980…899a0 72 69 6e 67 20 61 6e 73 77 65 72 2e 74 6e 61 6d 65 28 69 6e 63 72 65 61 73 65 28 69 29 29 2c 20 ┆ring answer.tname(increase(i)), ┆
0x899a0…899c0 3c 3a 3c 31 30 3e 3a 3e 29 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 0a 20 20 20 20 20 20 77 72 69 ┆<:<10>:>); end; wri┆
0x899c0…899e0 74 65 28 6f 75 74 2c 20 3c 3a 20 20 20 20 20 20 20 20 20 73 74 61 74 65 3a 20 3a 3e 29 3b 0a 20 ┆te(out, <: state: :>); ┆
0x899e0…89a00 20 20 20 20 20 73 74 61 74 65 3a 3d 20 61 6e 73 77 65 72 2e 74 73 75 62 00 00 00 00 00 00 00 00 ┆ state:= answer.tsub ┆
0x89a00…89a06 (1101,) (0x3ec,0x1135)
0x89a06…89a20 73 74 61 74 65 3b 0a 20 20 20 20 20 20 69 66 20 73 74 61 74 65 3e 31 20 61 6e ┆state; if state>1 an┆
0x89a20…89a40 64 20 73 74 61 74 65 3c 39 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 ┆d state<9 then write(out┆
0x89a40…89a60 2c 20 63 61 73 65 20 73 74 61 74 65 2d 31 20 6f 66 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆, case state-1 of ┆
0x89a60…89a7e 20 20 20 20 20 28 3c 3a 77 61 69 74 69 6e 67 3a 3e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ (<:waiting:>, ┆
0x89a7e…89a84 (0x3ec,0x1136)
0x89a84…89aa0 20 20 20 20 20 20 20 20 20 3c 3a 65 78 65 63 75 74 69 6e 67 3a 3e 2c 0a 20 20 20 20 ┆ <:executing:>, ┆
0x89aa0…89ac0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 3a 68 65 6c 64 3a 3e 2c 0a 20 20 20 20 20 20 ┆ <:held:>, ┆
0x89ac0…89ae0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 3a 63 6f 6d 70 6c 65 74 65 64 3a 3e 2c 0a 20 20 20 ┆ <:completed:>, ┆
0x89ae0…89afc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 3a 61 62 6f 72 74 65 64 20 3a ┆ <:aborted :┆
0x89afc…89b02 (0x3ec,0x1137)
0x89b02…89b20 3e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 3a 6b 69 6c 6c 65 ┆>, <:kille┆
0x89b20…89b40 64 20 62 79 20 6f 70 65 72 61 74 6f 72 3a 3e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆d by operator:>, ┆
0x89b40…89b60 20 20 20 20 20 3c 3a 6b 69 6c 6c 65 64 20 62 79 20 61 70 70 6c 69 63 61 74 69 6f 6e 3a 3e 29 29 ┆ <:killed by application:>))┆
0x89b60…89b7a 0a 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 77 72 69 74 65 28 ┆ else write(┆
0x89b7a…89b80 (0x3ec,0x1138)
0x89b80…89ba0 6f 75 74 2c 20 73 74 61 74 65 29 3b 0a 0a 20 20 20 20 20 20 69 66 20 73 74 61 74 65 3d 36 20 74 ┆out, state); if state=6 t┆
0x89ba0…89bc0 68 65 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 3a 20 6f 75 74 70 75 74 20 ┆hen begin comment: output ┆
0x89bc0…89be0 61 62 6f 72 74 2d 63 61 75 73 65 3b 0a 20 20 20 20 20 20 20 20 69 3a 3d 20 61 6e 73 77 65 72 2e ┆abort-cause; i:= answer.┆
0x89be0…89c00 74 73 75 62 63 61 75 73 65 3b 0a 20 20 20 20 20 20 20 20 69 66 20 69 3d 00 00 00 00 00 00 00 00 ┆tsubcause; if i= ┆
0x89c00…89c06 (1102,) (0x3ec,0x1139)
0x89c06…89c20 31 20 6f 72 20 69 3d 32 20 6f 72 20 69 3d 33 20 74 68 65 6e 0a 20 20 20 20 20 ┆1 or i=2 or i=3 then ┆
0x89c20…89c40 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 20 3c 3a 63 61 75 73 65 64 20 62 79 20 3a 3e 2c 20 ┆ write(out, <:caused by :>, ┆
0x89c40…89c60 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 69 3d 31 20 74 68 65 ┆ if i=1 the┆
0x89c60…89c7e 6e 20 3c 3a 73 65 6e 64 65 72 3a 3e 20 65 6c 73 65 20 0a 20 20 20 20 20 20 20 20 20 20 20 ┆n <:sender:> else ┆
0x89c7e…89c84 (0x3ec,0x113a)
0x89c84…89ca0 20 20 20 20 20 20 20 20 20 20 69 66 20 69 3d 32 20 74 68 65 6e 20 3c 3a 72 65 63 65 ┆ if i=2 then <:rece┆
0x89ca0…89cc0 69 76 65 72 3a 3e 20 65 6c 73 65 20 3c 3a 6f 70 65 61 72 61 74 6f 72 3a 3e 2c 0a 20 20 20 20 20 ┆iver:> else <:opearator:>, ┆
0x89cc0…89ce0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 3a 20 64 65 76 69 63 65 3a 3e 29 0a 20 20 20 ┆ <: device:>) ┆
0x89ce0…89cfc 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 ┆ else write(ou┆
0x89cfc…89d02 (0x3ec,0x113b)
0x89d02…89d20 74 2c 20 3c 3a 63 61 75 73 65 3d 3a 3e 2c 20 69 29 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a ┆t, <:cause=:>, i); end; ┆
0x89d20…89d40 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 20 3c 3a 3c 31 30 3e 3a 3e 29 3b 0a 20 20 20 20 ┆ write(out, <:<10>:>); ┆
0x89d40…89d60 20 20 69 66 20 64 65 74 61 69 6c 73 20 61 6e 64 20 28 73 74 61 74 65 3d 36 29 20 74 68 65 6e 0a ┆ if details and (state=6) then ┆
0x89d60…89d7a 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 3a 20 6f 75 74 70 75 ┆ begin comment: outpu┆
0x89d7a…89d80 (0x3ec,0x113c)
0x89d80…89da0 74 20 64 65 76 69 63 65 20 73 74 61 74 75 73 3b 0a 20 20 20 20 20 20 20 20 62 6f 6f 6c 65 61 6e ┆t device status; boolean┆
0x89da0…89dc0 20 66 69 72 73 74 3b 0a 0a 20 20 20 20 20 20 20 20 66 69 72 73 74 3a 3d 20 74 72 75 65 3b 0a 20 ┆ first; first:= true; ┆
0x89dc0…89de0 20 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 20 3c 3a 20 20 20 20 20 20 20 20 73 74 61 74 ┆ write(out, <: stat┆
0x89de0…89e00 75 73 3a 20 3a 3e 29 3b 0a 20 20 20 20 20 20 20 20 69 3a 3d 20 61 6e 73 00 00 00 00 00 00 00 00 ┆us: :>); i:= ans ┆
0x89e00…89e06 (1103,) (0x3ec,0x113d)
0x89e06…89e20 77 65 72 2e 74 73 75 62 73 74 61 74 75 73 3b 0a 20 20 20 20 20 20 20 20 6a 3a ┆wer.tsubstatus; j:┆
0x89e20…89e40 3d 20 32 33 3b 0a 20 20 20 20 20 20 20 20 77 68 69 6c 65 20 69 3c 3e 30 20 64 6f 0a 20 20 20 20 ┆= 23; while i<>0 do ┆
0x89e40…89e60 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 69 3c 30 20 74 68 65 6e 0a ┆ begin if i<0 then ┆
0x89e60…89e7e 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 72 ┆ begin wr┆
0x89e7e…89e84 (0x3ec,0x113e)
0x89e84…89ea0 69 74 65 28 6f 75 74 2c 20 66 61 6c 73 65 20 61 64 64 20 33 32 2c 20 69 66 20 66 69 ┆ite(out, false add 32, if fi┆
0x89ea0…89ec0 72 73 74 20 74 68 65 6e 20 30 20 65 6c 73 65 20 31 36 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆rst then 0 else 16, ┆
0x89ec0…89ee0 20 20 20 20 20 20 20 20 20 20 20 63 61 73 65 20 6a 2b 31 20 6f 66 0a 20 20 20 20 20 20 20 20 20 ┆ case j+1 of ┆
0x89ee0…89efc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3c 3a 68 61 72 64 20 65 72 72 6f 72 3a ┆ (<:hard error:┆
0x89efc…89f02 (0x3ec,0x113f)
0x89f02…89f20 3e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 3a 6e ┆>, <:n┆
0x89f20…89f40 6f 72 6d 61 6c 20 61 6e 73 77 65 72 3a 3e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ormal answer:>, ┆
0x89f40…89f60 20 20 20 20 20 20 20 20 3c 3a 72 65 6a 65 63 74 65 64 3a 3e 2c 0a 20 20 20 20 20 20 20 20 20 20 ┆ <:rejected:>, ┆
0x89f60…89f7a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 3a 75 6e 69 6e 74 65 6c 6c 69 67 ┆ <:unintellig┆
0x89f7a…89f80 (0x3ec,0x1140)
0x89f80…89fa0 69 62 6c 65 3a 3e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ible:>, ┆
0x89fa0…89fc0 3c 3a 64 69 73 63 6f 6e 6e 65 63 74 65 64 3a 3e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆<:disconnected:>, ┆
0x89fc0…89fe0 20 20 20 20 20 20 20 20 20 20 3c 3a 70 72 6f 63 65 73 73 20 64 6f 65 73 20 6e 6f 74 20 65 78 69 ┆ <:process does not exi┆
0x89fe0…8a000 73 74 3a 3e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆st:>, ┆
0x8a000…8a006 (1104,) (0x3ec,0x1141)
0x8a006…8a020 20 20 20 20 20 20 3c 3a 70 6f 73 69 74 69 6f 6e 20 65 72 72 6f 72 3a 3e 2c 0a ┆ <:position error:>, ┆
0x8a020…8a040 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 3a 77 6f 72 64 20 64 ┆ <:word d┆
0x8a040…8a060 65 66 65 63 74 3a 3e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆efect:>, ┆
0x8a060…8a07e 20 3c 3a 73 74 6f 70 70 65 64 3a 3e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ <:stopped:>, ┆
0x8a07e…8a084 (0x3ec,0x1142)
0x8a084…8a0a0 20 20 20 20 20 20 20 20 3c 3a 62 69 74 20 31 34 3a 3e 2c 0a 20 20 20 20 20 20 20 20 ┆ <:bit 14:>, ┆
0x8a0a0…8a0c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 3a 62 69 74 20 31 33 3a 3e 2c 0a 20 20 20 20 ┆ <:bit 13:>, ┆
0x8a0c0…8a0e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 3a 63 68 65 63 6b 73 75 6d 20 65 ┆ <:checksum e┆
0x8a0e0…8a0fc 72 72 6f 72 3a 3e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆rror:>, ┆
0x8a0fc…8a102 (0x3ec,0x1143)
0x8a102…8a120 20 20 20 20 3c 3a 63 61 72 64 20 72 65 6a 65 63 74 3a 3e 2c 0a 20 20 20 20 20 20 20 20 20 ┆ <:card reject:>, ┆
0x8a120…8a140 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 3a 72 65 61 64 20 65 72 72 6f 72 3a 3e 2c 0a 20 ┆ <:read error:>, ┆
0x8a140…8a160 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 3a 6d 6f 64 65 20 65 72 ┆ <:mode er┆
0x8a160…8a17a 72 6f 72 3a 3e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ror:>, ┆
0x8a17a…8a180 (0x3ec,0x1144)
0x8a180…8a1a0 20 20 20 20 20 3c 3a 77 72 69 74 69 6e 67 20 65 6e 61 62 6c 65 64 3a 3e 2c 0a 20 20 20 20 20 20 ┆ <:writing enabled:>, ┆
0x8a1a0…8a1c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 3a 74 61 70 65 6d 61 72 6b 20 6f 72 20 ┆ <:tapemark or ┆
0x8a1c0…8a1e0 61 74 74 65 6e 74 69 6f 6e 3a 3e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆attention:>, ┆
0x8a1e0…8a200 20 20 20 20 20 3c 3a 6c 6f 61 64 20 70 6f 69 6e 74 3a 3e 2c 0a 20 20 20 00 00 00 00 00 00 00 00 ┆ <:load point:>, ┆
0x8a200…8a206 (1105,) (0x3ec,0x1145)
0x8a206…8a220 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 3a 65 6e 64 ┆ <:end┆
0x8a220…8a240 20 64 6f 63 75 6d 65 6e 74 3a 3e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ document:>, ┆
0x8a240…8a260 20 20 20 20 20 3c 3a 62 6c 6f 63 6b 20 6c 65 6e 67 74 68 20 65 72 72 6f 72 3a 3e 2c 0a 20 20 20 ┆ <:block length error:>, ┆
0x8a260…8a27e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 3a 64 61 74 61 20 6f 76 ┆ <:data ov┆
0x8a27e…8a284 (0x3ec,0x1146)
0x8a284…8a2a0 65 72 72 75 6e 3a 3e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆errun:>, ┆
0x8a2a0…8a2c0 20 20 20 20 20 3c 3a 74 69 6d 65 72 3a 3e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ <:timer:>, ┆
0x8a2c0…8a2e0 20 20 20 20 20 20 20 20 3c 3a 70 61 72 69 74 79 20 65 72 72 6f 72 3a 3e 2c 0a 20 20 20 20 20 20 ┆ <:parity error:>, ┆
0x8a2e0…8a2fc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 3a 69 6e 74 65 72 76 65 6e ┆ <:interven┆
0x8a2fc…8a302 (0x3ec,0x1147)
0x8a302…8a320 74 69 6f 6e 3a 3e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆tion:> ┆
0x8a320…8a340 29 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 3a 3c 31 30 3e ┆), <:<10>┆
0x8a340…8a360 3a 3e 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 66 69 72 73 74 3a 3d 20 66 61 6c 73 65 3b 0a ┆:>); first:= false; ┆
0x8a360…8a37a 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 0a 20 20 20 20 20 20 20 20 20 20 ┆ end; ┆
0x8a37a…8a380 (0x3ec,0x1148)
0x8a380…8a3a0 69 3a 3d 20 69 20 73 68 69 66 74 20 31 3b 0a 20 20 20 20 20 20 20 20 20 20 6a 3a 3d 20 6a 2d 31 ┆i:= i shift 1; j:= j-1┆
0x8a3a0…8a3c0 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 20 77 68 69 6c 65 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a ┆; end while; end; ┆
0x8a3c0…8a3e0 0a 20 20 20 20 20 20 69 66 20 64 65 74 61 69 6c 73 20 61 6e 64 20 61 6e 73 77 65 72 2e 74 73 75 ┆ if details and answer.tsu┆
0x8a3e0…8a400 62 70 6f 73 3e 3d 30 20 74 68 65 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 00 00 00 00 00 00 00 00 ┆bpos>=0 then begin ┆
0x8a400…8a406 (1106,) (0x3ec,0x1149)
0x8a406…8a420 0a 20 20 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 3c 3a 20 63 68 61 72 ┆ write(out,<: char┆
0x8a420…8a440 20 70 6f 73 69 74 69 6f 6e 3a 3a 3e 2c 61 6e 73 77 65 72 2e 74 73 75 62 70 6f 73 2c 3c 3a 3c 31 ┆ position::>,answer.tsubpos,<:<1┆
0x8a440…8a460 30 3e 3a 3e 29 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 0a 20 20 20 20 20 20 69 66 20 72 65 6c 65 ┆0>:>); end; if rele┆
0x8a460…8a47e 61 73 65 3e 30 20 6f 72 20 28 72 65 6c 65 61 73 65 3d 30 20 61 6e 64 20 73 74 61 74 65 3d ┆ase>0 or (release=0 and state=┆
0x8a47e…8a484 (0x3ec,0x114a)
0x8a484…8a4a0 35 29 20 74 68 65 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 3a ┆5) then begin comment:┆
0x8a4a0…8a4c0 20 72 65 6c 65 61 73 65 20 74 72 61 6e 73 70 6f 72 74 20 61 6e 64 20 72 65 6d 6f 76 65 20 65 6e ┆ release transport and remove en┆
0x8a4c0…8a4e0 74 72 79 3b 0a 20 20 20 20 20 20 20 20 69 66 20 65 6e 74 72 79 5f 6e 61 6d 65 28 31 29 3c 3e 6e ┆try; if entry_name(1)<>n┆
0x8a4e0…8a4fc 75 6c 6c 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 ┆ull then begin ┆
0x8a4fc…8a502 (0x3ec,0x114b)
0x8a502…8a520 20 20 20 20 20 7a 6f 6e 65 20 7a 28 31 2c 31 2c 73 74 64 65 72 72 6f 72 29 3b 0a 20 20 20 ┆ zone z(1,1,stderror); ┆
0x8a520…8a540 20 20 20 20 20 20 20 69 6e 74 65 67 65 72 20 61 72 72 61 79 20 74 61 69 6c 28 31 3a 31 30 29 3b ┆ integer array tail(1:10);┆
0x8a540…8a560 0a 20 20 20 20 20 20 20 20 20 20 69 6e 74 65 67 65 72 20 69 3b 0a 0a 20 20 20 20 20 20 20 20 20 ┆ integer i; ┆
0x8a560…8a57a 20 69 3a 3d 20 31 3b 0a 20 20 20 20 20 20 20 20 20 20 6f 70 65 6e 28 7a 2c 30 ┆ i:= 1; open(z,0┆
0x8a57a…8a580 (0x3ec,0x114c)
0x8a580…8a5a0 2c 73 74 72 69 6e 67 20 65 6e 74 72 79 5f 6e 61 6d 65 28 69 6e 63 72 65 61 73 65 28 69 29 29 2c ┆,string entry_name(increase(i)),┆
0x8a5a0…8a5c0 30 29 3b 0a 20 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 34 38 2c 7a 2c 69 2c 74 61 69 ┆0); monitor(48,z,i,tai┆
0x8a5c0…8a5e0 6c 29 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 0a 20 20 20 20 20 20 20 20 74 72 61 6e 73 66 ┆l); end; transf┆
0x8a5e0…8a600 65 72 28 72 65 6c 65 61 73 65 5f 63 6f 64 65 2c 6d 65 73 73 2c 37 2c 61 00 00 00 00 00 00 00 00 ┆er(release_code,mess,7,a ┆
0x8a600…8a606 (1107,) (0x3ec,0x114d)
0x8a606…8a620 6e 73 77 65 72 2c 37 29 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 ┆nswer,7); end; ┆
0x8a620…8a640 20 69 66 20 6b 69 6c 6c 3e 30 20 74 68 65 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 ┆ if kill>0 then begin ┆
0x8a640…8a660 20 20 20 20 74 72 61 6e 73 66 65 72 28 6b 69 6c 6c 5f 63 6f 64 65 2c 6d 65 73 73 2c 37 2c 61 6e ┆ transfer(kill_code,mess,7,an┆
0x8a660…8a67e 73 77 65 72 2c 37 29 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 65 6e 64 20 73 74 ┆swer,7); end; end st┆
0x8a67e…8a684 (0x3ec,0x114e)
0x8a684…8a6a0 61 74 65 3b 0a 0a 0a 20 20 65 6e 64 3b 0a 0a 65 6e 64 5f 70 72 6f 67 72 61 6d 3a 0a ┆ate; end; end_program: ┆
0x8a6a0…8a6c0 20 20 20 20 69 66 20 61 6e 79 5f 65 72 72 6f 72 73 20 74 68 65 6e 20 65 72 72 6f 72 62 69 74 73 ┆ if any_errors then errorbits┆
0x8a6c0…8a6e0 3a 3d 20 31 20 73 68 69 66 74 20 30 3b 0a 20 20 20 20 74 72 61 70 6d 6f 64 65 3a 3d 20 31 20 73 ┆:= 1 shift 0; trapmode:= 1 s┆
0x8a6e0…8a6fc 68 69 66 74 20 31 30 3b 0a 20 20 65 6e 64 3b 0a 65 6e 64 0a 0c 0a 28 73 61 76 65 74 ┆hift 10; end; end (savet┆
0x8a6fc…8a702 (0x3ec,0x114f)
0x8a702…8a720 72 61 6e 73 3d 61 6c 67 6f 6c 20 6d 65 73 73 61 67 65 2e 6e 6f 20 63 6f 6e 6e 65 63 74 2e ┆rans=algol message.no connect.┆
0x8a720…8a740 6e 6f 0a 20 20 69 66 20 6f 6b 2e 79 65 73 0a 20 20 28 63 3d 6d 65 73 73 61 67 65 20 73 61 76 65 ┆no if ok.yes (c=message save┆
0x8a740…8a760 74 72 61 6e 73 20 74 72 61 6e 73 6c 61 74 65 64 20 6f 6b 0a 20 20 29 0a 20 20 69 66 20 6f 6b 2e ┆trans translated ok ) if ok.┆
0x8a760…8a77a 6e 6f 0a 20 20 28 63 3d 6d 65 73 73 61 67 65 20 73 61 76 65 74 72 61 6e 73 20 ┆no (c=message savetrans ┆
0x8a77a…8a780 (0x3ec,0x1150)
0x8a780…8a7a0 6e 6f 74 20 6f 6b 0a 20 20 29 0a 29 0a 62 65 67 69 6e 0a 0a 20 20 20 3c 2a 2a 2a 2a 2a 2a 2a 2a ┆not ok ) ) begin <********┆
0x8a7a0…8a7c0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x8a7c0…8a7e0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 20 20 ┆***************************** ┆
0x8a7e0…8a800 20 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ * ┆
0x8a800…8a806 (1108,) (0x3ec,0x1151)
0x8a806…8a820 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 ┆ ┆
0x8a820…8a840 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 0a 20 20 20 2a 20 20 20 20 20 20 ┆ * * ┆
0x8a840…8a860 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 20 20 ┆ ┆
0x8a860…8a87e 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 ┆ ┆
0x8a87e…8a884 (0x3ec,0x1152)
0x8a884…8a8a0 2a 0a 20 20 20 2a 20 53 61 76 65 74 72 61 6e 73 3a 20 20 20 20 20 20 20 20 20 20 20 ┆* * Savetrans: ┆
0x8a8a0…8a8c0 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 20 20 ┆ ┆
0x8a8c0…8a8e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 0a 20 20 20 2a 20 20 20 20 20 41 20 75 74 69 6c 69 ┆ * * A utili┆
0x8a8e0…8a8fc 74 79 20 70 72 6f 67 72 61 6d 20 77 68 69 63 68 20 72 65 73 74 61 72 74 73 20 61 6c ┆ty program which restarts al┆
0x8a8fc…8a902 (0x3ec,0x1153)
0x8a902…8a920 6c 20 75 6e 66 69 6e 69 73 68 65 64 20 74 72 61 6e 73 70 6f 72 74 73 20 20 20 20 20 2a 0a ┆l unfinished transports * ┆
0x8a920…8a940 20 20 20 2a 20 20 20 20 20 73 65 6e 74 20 74 6f 20 70 72 69 6d 6f 20 69 6e 20 63 61 73 65 20 6f ┆ * sent to primo in case o┆
0x8a940…8a960 66 20 61 20 73 79 73 74 65 6d 20 62 72 65 61 6b 20 64 6f 77 6e 2e 20 20 20 20 20 20 20 20 20 20 ┆f a system break down. ┆
0x8a960…8a97a 20 20 20 20 20 20 20 20 2a 0a 20 20 20 2a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ * * ┆
0x8a97a…8a980 (0x3ec,0x1154)
0x8a980…8a9a0 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 20 20 ┆ ┆
0x8a9a0…8a9c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 0a 20 20 20 2a 20 20 ┆ * * ┆
0x8a9c0…8a9e0 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 20 20 ┆ ┆
0x8a9e0…8aa00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ ┆
0x8aa00…8aa06 (1109,) (0x3ec,0x1155)
0x8aa06…8aa20 20 20 20 20 20 20 20 20 20 20 2a 0a 20 20 20 2a 20 4f 70 65 72 61 74 69 6e 67 ┆ * * Operating┆
0x8aa20…8aa40 20 70 72 6f 63 65 64 75 72 65 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ procedure: ┆
0x8aa40…8aa60 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 2a 0a 20 20 20 2a ┆ * *┆
0x8aa60…8aa7e 20 20 20 20 20 73 61 76 65 73 70 6f 6f 6c 3d 6d 6f 76 65 20 70 72 69 6d 6f 73 70 6f 6f 6c ┆ savespool=move primospool┆
0x8aa7e…8aa84 (0x3ec,0x1156)
0x8aa84…8aaa0 20 3b 20 64 6f 20 74 68 69 73 20 62 65 66 6f 72 65 20 70 72 69 6d 6f 20 69 73 20 73 ┆ ; do this before primo is s┆
0x8aaa0…8aac0 74 61 72 74 65 64 20 20 20 20 2a 0a 20 20 20 2a 20 20 20 20 20 3b 20 6e 6f 77 20 73 74 61 72 74 ┆tarted * * ; now start┆
0x8aac0…8aae0 20 70 72 69 6d 6f 20 75 73 69 6e 67 20 61 6e 20 73 20 63 6f 6d 6d 61 6e 64 20 20 20 20 20 20 20 ┆ primo using an s command ┆
0x8aae0…8aafc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 0a 20 20 20 2a 20 20 ┆ * * ┆
0x8aafc…8ab02 (0x3ec,0x1157)
0x8ab02…8ab20 20 20 20 73 61 76 65 74 72 61 6e 73 20 73 61 76 65 73 70 6f 6f 6c 20 3b 20 72 65 73 74 61 ┆ savetrans savespool ; resta┆
0x8ab20…8ab40 72 74 20 74 68 65 20 74 72 61 6e 73 70 6f 72 74 73 20 66 72 6f 6d 20 74 68 65 20 6f 6c 64 20 20 ┆rt the transports from the old ┆
0x8ab40…8ab60 20 20 20 20 2a 0a 20 20 20 2a 20 20 20 20 20 3b 20 70 72 69 6d 6f 73 70 6f 6f 6c 20 61 72 65 61 ┆ * * ; primospool area┆
0x8ab60…8ab7a 2c 20 70 6f 73 73 69 62 6c 65 20 65 72 72 6f 72 73 20 77 69 6c 6c 20 62 65 20 ┆, possible errors will be ┆
0x8ab7a…8ab80 (0x3ec,0x1158)
0x8ab80…8aba0 70 72 69 6e 74 65 64 20 6f 6e 20 63 75 72 72 65 6e 74 20 20 2a 0a 20 20 20 2a 20 20 20 20 20 3b ┆printed on current * * ;┆
0x8aba0…8abc0 20 6f 75 74 70 75 74 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 ┆ output ┆
0x8abc0…8abe0 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 2a 0a ┆ * ┆
0x8abe0…8ac00 20 20 20 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ * ┆
0x8ac00…8ac06 (1110,) (0x3ec,0x1159)
0x8ac06…8ac20 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 ┆ ┆
0x8ac20…8ac40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 0a 20 20 20 2a 20 20 20 20 ┆ * * ┆
0x8ac40…8ac60 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 20 20 ┆ ┆
0x8ac60…8ac7e 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 ┆ ┆
0x8ac7e…8ac84 (0x3ec,0x115a)
0x8ac84…8aca0 20 20 2a 0a 20 20 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ * *********************┆
0x8aca0…8acc0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x8acc0…8ace0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 3e 0a 0a 20 20 20 6d 65 73 73 61 67 65 20 0a 20 ┆****************> message ┆
0x8ace0…8acfc 20 20 20 20 20 20 20 20 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ *******************┆
0x8acfc…8ad02 (0x3ec,0x115b)
0x8ad02…8ad20 2a 2a 2a 2a 2a 2a 2a 2a 0a 20 20 20 20 20 20 20 20 20 20 2a 2a 2a 2a 20 20 20 20 20 20 20 ┆******** **** ┆
0x8ad20…8ad40 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 2a 2a 0a 20 20 20 20 20 20 20 20 20 20 2a 2a 2a 2a 20 ┆ **** **** ┆
0x8ad40…8ad60 6b 63 20 20 6e 6f 76 2e 20 31 33 2e 20 31 39 38 30 20 2a 2a 2a 2a 0a 20 20 20 20 20 20 20 20 20 ┆kc nov. 13. 1980 **** ┆
0x8ad60…8ad7a 20 2a 2a 2a 2a 20 20 20 20 20 73 61 76 65 74 72 61 6e 73 20 20 20 20 20 2a 2a ┆ **** savetrans **┆
0x8ad7a…8ad80 (0x3ec,0x115c)
0x8ad80…8ada0 2a 2a 0a 20 20 20 20 20 20 20 20 20 20 2a 2a 2a 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆** **** ┆
0x8ada0…8adc0 20 20 20 20 2a 2a 2a 2a 0a 20 20 20 20 20 20 20 20 20 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ **** *************┆
0x8adc0…8ade0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 3b 0a 0c 0a 20 20 20 3c 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆**************; <**********┆
0x8ade0…8ae00 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 00 00 00 00 00 00 00 ┆************************ ┆
0x8ae00…8ae06 (1111,) (0x3ec,0x115d)
0x8ae06…8ae20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆**************************┆
0x8ae20…8ae40 2a 2a 2a 0a 20 20 20 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆*** * ┆
0x8ae40…8ae60 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 20 20 ┆ ┆
0x8ae60…8ae7e 20 20 20 20 20 20 2a 0a 20 20 20 2a 20 66 6f 72 6d 61 74 20 6f 66 20 61 20 74 72 61 6e 73 ┆ * * format of a trans┆
0x8ae7e…8ae84 (0x3ec,0x115e)
0x8ae84…8aea0 70 6f 72 74 20 64 65 73 63 72 69 70 74 69 6f 6e 20 69 6e 20 74 68 65 20 73 70 6f 6f ┆port description in the spoo┆
0x8aea0…8aec0 6c 61 72 65 61 20 6f 66 20 70 72 69 6d 6f 3a 20 2a 0a 20 20 20 2a 20 20 20 20 20 20 20 20 20 20 ┆larea of primo: * * ┆
0x8aec0…8aee0 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 20 20 ┆ ┆
0x8aee0…8aefc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 0a 20 20 20 2a 20 20 ┆ * * ┆
0x8aefc…8af02 (0x3ec,0x115f)
0x8af02…8af20 20 20 20 20 20 2b 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2b 20 20 20 20 20 20 20 20 20 20 20 20 ┆ +-----------+ ┆
0x8af20…8af40 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 2a 0a ┆ * ┆
0x8af40…8af60 20 20 20 2a 20 20 20 2b 20 30 20 21 20 20 20 20 20 20 20 20 20 20 20 21 20 74 72 61 6e 73 70 6f ┆ * + 0 ! ! transpo┆
0x8af60…8af7a 72 74 20 6e 61 6d 65 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆rt name ┆
0x8af7a…8af80 (0x3ec,0x1160)
0x8af80…8afa0 20 20 20 20 20 20 20 20 2a 0a 20 20 20 2a 20 20 20 2b 20 32 20 21 20 20 20 20 20 20 20 20 20 20 ┆ * * + 2 ! ┆
0x8afa0…8afc0 20 21 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 ┆ ! ┆
0x8afc0…8afe0 20 20 20 20 20 20 20 20 20 20 20 20 2a 0a 20 20 20 2a 20 20 20 2b 20 34 20 21 20 20 20 20 20 20 ┆ * * + 4 ! ┆
0x8afe0…8b000 20 20 20 20 20 21 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ ! ┆
0x8b000…8b006 (1112,) (0x3ec,0x1161)
0x8b006…8b020 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 0a ┆ * ┆
0x8b020…8b040 20 20 20 2a 20 20 20 2b 20 36 20 21 20 20 20 20 20 20 20 20 20 20 20 21 20 20 20 20 20 20 20 20 ┆ * + 6 ! ! ┆
0x8b040…8b060 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 20 20 ┆ ┆
0x8b060…8b07e 20 20 2a 0a 20 20 20 2a 20 20 20 2b 20 38 20 21 20 20 20 20 20 20 20 20 20 20 20 21 20 75 ┆ * * + 8 ! ! u┆
0x8b07e…8b084 (0x3ec,0x1162)
0x8b084…8b0a0 73 65 72 20 6e 61 6d 65 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ser name ┆
0x8b0a0…8b0c0 20 20 20 20 20 20 20 20 20 20 20 20 2a 0a 20 20 20 2a 20 20 20 2b 31 30 20 21 20 20 20 20 20 20 ┆ * * +10 ! ┆
0x8b0c0…8b0e0 20 20 20 20 20 21 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 ┆ ! ┆
0x8b0e0…8b0fc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 0a 20 20 20 2a 20 20 20 2b 31 32 ┆ * * +12┆
0x8b0fc…8b102 (0x3ec,0x1163)
0x8b102…8b120 20 21 20 20 20 20 20 20 20 20 20 20 20 21 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ! ! ┆
0x8b120…8b140 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 2a 0a 20 20 20 2a ┆ * *┆
0x8b140…8b160 20 20 20 2b 31 34 20 21 20 20 20 20 20 20 20 20 20 20 20 21 20 20 20 20 20 20 20 20 20 20 20 20 ┆ +14 ! ! ┆
0x8b160…8b17a 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 ┆ ┆
0x8b17a…8b180 (0x3ec,0x1164)
0x8b180…8b1a0 20 20 20 20 2a 0a 20 20 20 2a 20 20 20 2b 31 36 20 21 20 20 20 20 20 20 20 20 20 20 20 21 20 73 ┆ * * +16 ! ! s┆
0x8b1a0…8b1c0 65 6e 64 65 72 20 6e 61 6d 65 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ender name ┆
0x8b1c0…8b1e0 20 20 20 20 20 20 20 20 2a 0a 20 20 20 2a 20 20 20 2b 31 38 20 21 20 20 20 20 20 20 20 20 20 20 ┆ * * +18 ! ┆
0x8b1e0…8b200 20 21 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ ! ┆
0x8b200…8b206 (1113,) (0x3ec,0x1165)
0x8b206…8b220 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 0a 20 20 20 2a ┆ * *┆
0x8b220…8b240 20 20 20 2b 32 30 20 21 20 20 20 20 20 20 20 20 20 20 20 21 20 20 20 20 20 20 20 20 20 20 20 20 ┆ +20 ! ! ┆
0x8b240…8b260 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 2a 0a ┆ * ┆
0x8b260…8b27e 20 20 20 2a 20 20 20 2b 32 32 20 21 20 20 20 20 20 20 20 20 20 20 20 21 20 20 20 20 20 20 ┆ * +22 ! ! ┆
0x8b27e…8b284 (0x3ec,0x1166)
0x8b284…8b2a0 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 ┆ ┆
0x8b2a0…8b2c0 20 20 20 20 20 20 20 20 2a 0a 20 20 20 2a 20 20 20 2b 32 34 20 21 20 20 20 20 20 20 20 20 20 20 ┆ * * +24 ! ┆
0x8b2c0…8b2e0 20 21 20 72 65 63 65 69 76 65 72 20 6e 61 6d 65 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ! receiver name ┆
0x8b2e0…8b2fc 20 20 20 20 20 20 20 20 20 20 20 20 2a 0a 20 20 20 2a 20 20 20 2b 32 36 20 21 20 20 ┆ * * +26 ! ┆
0x8b2fc…8b302 (0x3ec,0x1167)
0x8b302…8b320 20 20 20 20 20 20 20 20 20 21 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ! ┆
0x8b320…8b340 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 0a 20 20 20 2a 20 20 20 2b ┆ * * +┆
0x8b340…8b360 32 38 20 21 20 20 20 20 20 20 20 20 20 20 20 21 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆28 ! ! ┆
0x8b360…8b37a 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 ┆ ┆
0x8b37a…8b380 (0x3ec,0x1168)
0x8b380…8b3a0 2a 0a 20 20 20 2a 20 20 20 2b 33 30 20 21 20 20 20 20 20 20 20 20 20 20 20 21 20 20 20 20 20 20 ┆* * +30 ! ! ┆
0x8b3a0…8b3c0 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 20 20 ┆ ┆
0x8b3c0…8b3e0 20 20 20 20 2a 0a 20 20 20 2a 20 20 20 2b 33 32 20 21 20 20 20 20 20 20 20 20 20 20 20 21 20 62 ┆ * * +32 ! ! b┆
0x8b3e0…8b400 73 20 61 72 65 61 20 6e 61 6d 65 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆s area name ┆
0x8b400…8b406 (1114,) (0x3ec,0x1169)
0x8b406…8b420 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 0a 20 20 20 2a 20 20 20 2b ┆ * * +┆
0x8b420…8b440 33 34 20 21 20 20 20 20 20 20 20 20 20 20 20 21 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆34 ! ! ┆
0x8b440…8b460 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 2a 0a 20 20 20 2a ┆ * *┆
0x8b460…8b47e 20 20 20 2b 33 36 20 21 20 20 20 20 20 20 20 20 20 20 20 21 20 20 20 20 20 20 20 20 20 20 ┆ +36 ! ! ┆
0x8b47e…8b484 (0x3ec,0x116a)
0x8b484…8b4a0 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 ┆ ┆
0x8b4a0…8b4c0 20 20 20 20 2a 0a 20 20 20 2a 20 20 20 2b 33 38 20 21 20 20 20 20 20 20 20 20 20 20 20 21 20 20 ┆ * * +38 ! ! ┆
0x8b4c0…8b4e0 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 20 20 ┆ ┆
0x8b4e0…8b4fc 20 20 20 20 20 20 20 20 2a 0a 20 20 20 2a 20 20 20 2b 34 30 20 21 20 20 20 20 20 20 ┆ * * +40 ! ┆
0x8b4fc…8b502 (0x3ec,0x116b)
0x8b502…8b520 20 20 20 20 20 21 20 6d 6f 64 65 20 73 68 69 66 74 20 31 32 2b 6b 69 6e 64 20 6f 66 20 64 ┆ ! mode shift 12+kind of d┆
0x8b520…8b540 65 76 69 63 65 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 0a 20 20 20 2a 20 20 20 2b 34 32 20 21 ┆evice * * +42 !┆
0x8b540…8b560 20 20 20 20 20 20 20 20 20 20 20 21 20 6c 6f 77 65 72 20 63 61 74 20 62 61 73 65 20 6f 66 20 73 ┆ ! lower cat base of s┆
0x8b560…8b57a 65 6e 64 69 6e 67 20 70 72 6f 63 65 73 73 20 20 20 20 20 20 20 20 2a 0a 20 20 ┆ending process * ┆
0x8b57a…8b580 (0x3ec,0x116c)
0x8b580…8b5a0 20 2a 20 20 20 2b 34 34 20 21 20 20 20 20 20 20 20 20 20 20 20 21 20 75 70 70 65 72 20 63 61 74 ┆ * +44 ! ! upper cat┆
0x8b5a0…8b5c0 20 62 61 73 65 20 6f 66 20 73 65 6e 64 69 6e 67 20 70 72 6f 63 65 73 73 20 20 20 20 20 20 20 20 ┆ base of sending process ┆
0x8b5c0…8b5e0 2a 0a 20 20 20 2a 20 20 20 2b 34 36 20 21 20 20 20 20 20 20 20 20 20 20 20 21 20 62 73 20 73 74 ┆* * +46 ! ! bs st┆
0x8b5e0…8b600 61 72 74 20 70 6f 73 69 74 69 6f 6e 20 68 61 6c 66 77 6f 72 64 20 28 6c 00 00 00 00 00 00 00 00 ┆art position halfword (l ┆
0x8b600…8b606 (1115,) (0x3ec,0x116d)
0x8b606…8b620 6f 6e 67 29 20 20 20 20 20 20 20 20 2a 0a 20 20 20 2a 20 20 20 2b 34 38 20 21 ┆ong) * * +48 !┆
0x8b620…8b640 20 20 20 20 20 20 20 20 20 20 20 21 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ! ┆
0x8b640…8b660 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 0a 20 20 20 2a 20 20 20 2b ┆ * * +┆
0x8b660…8b67e 35 30 20 21 20 20 20 20 20 20 20 20 20 20 20 21 20 71 75 65 75 65 20 67 72 6f 75 70 20 6e ┆50 ! ! queue group n┆
0x8b67e…8b684 (0x3ec,0x116e)
0x8b684…8b6a0 61 6d 65 20 28 65 2e 67 2e 20 70 61 70 65 72 29 20 20 20 20 20 20 20 20 20 20 20 20 ┆ame (e.g. paper) ┆
0x8b6a0…8b6c0 2a 0a 20 20 20 2a 20 20 20 2b 35 32 20 21 20 20 20 20 20 20 20 20 20 20 20 21 20 20 20 20 20 20 ┆* * +52 ! ! ┆
0x8b6c0…8b6e0 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 20 20 ┆ ┆
0x8b6e0…8b6fc 20 20 20 20 2a 0a 20 20 20 2a 20 20 20 2b 35 34 20 21 20 20 20 20 20 20 20 20 20 20 ┆ * * +54 ! ┆
0x8b6fc…8b702 (0x3ec,0x116f)
0x8b702…8b720 20 21 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 ┆ ! ┆
0x8b720…8b740 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 0a 20 20 20 2a 20 20 20 2b 35 36 20 21 20 20 20 20 ┆ * * +56 ! ┆
0x8b740…8b760 20 20 20 20 20 20 20 21 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ! ┆
0x8b760…8b77a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 0a 20 20 20 2a 20 20 ┆ * * ┆
0x8b77a…8b780 (0x3ec,0x1170)
0x8b780…8b7a0 20 2b 35 38 20 21 20 20 20 20 20 20 20 20 20 20 20 21 20 71 75 65 75 65 20 6e 61 6d 65 20 28 65 ┆ +58 ! ! queue name (e┆
0x8b7a0…8b7c0 2e 67 2e 20 61 34 75 70 72 69 67 68 74 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 0a 20 20 ┆.g. a4upright) * ┆
0x8b7c0…8b7e0 20 2a 20 20 20 2b 36 30 20 21 20 20 20 20 20 20 20 20 20 20 20 21 20 20 20 20 20 20 20 20 20 20 ┆ * +60 ! ! ┆
0x8b7e0…8b800 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ ┆
0x8b800…8b806 (1116,) (0x3ec,0x1171)
0x8b806…8b820 20 20 20 20 20 20 20 20 2a 0a 20 20 20 2a 20 20 20 2b 36 32 20 21 20 20 20 20 ┆ * * +62 ! ┆
0x8b820…8b840 20 20 20 20 20 20 20 21 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ! ┆
0x8b840…8b860 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 0a 20 20 20 2a 20 20 20 2b 36 34 20 21 ┆ * * +64 !┆
0x8b860…8b87e 20 20 20 20 20 20 20 20 20 20 20 21 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ! ┆
0x8b87e…8b884 (0x3ec,0x1172)
0x8b884…8b8a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 0a 20 20 ┆ * ┆
0x8b8a0…8b8c0 20 2a 20 20 20 2b 36 36 20 21 20 20 20 20 20 20 20 20 20 20 20 21 20 63 6f 72 6f 75 74 69 6e 65 ┆ * +66 ! ! coroutine┆
0x8b8c0…8b8e0 20 64 65 73 63 72 69 70 74 69 6f 6e 20 61 64 64 72 65 73 73 20 20 20 20 20 20 20 20 20 20 20 20 ┆ description address ┆
0x8b8e0…8b8fc 2a 0a 20 20 20 2a 20 20 20 2b 36 38 20 21 20 20 20 20 20 20 20 20 20 20 20 21 20 74 ┆* * +68 ! ! t┆
0x8b8fc…8b902 (0x3ec,0x1173)
0x8b902…8b920 72 61 6e 73 70 6f 72 74 20 73 74 61 74 65 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ransport state ┆
0x8b920…8b940 20 20 20 20 20 20 20 20 20 20 2a 0a 20 20 20 2a 20 20 20 2b 37 30 20 21 20 20 20 20 20 20 20 20 ┆ * * +70 ! ┆
0x8b940…8b960 20 20 20 21 20 63 61 75 73 65 20 28 69 66 20 73 74 61 74 65 20 69 73 20 61 62 6f 72 74 65 64 20 ┆ ! cause (if state is aborted ┆
0x8b960…8b97a 6f 72 20 68 65 6c 64 29 20 20 20 20 20 20 2a 0a 20 20 20 2a 20 20 20 2b 37 32 ┆or held) * * +72┆
0x8b97a…8b980 (0x3ec,0x1174)
0x8b980…8b9a0 20 21 20 20 20 20 20 20 20 20 20 20 20 21 20 64 65 76 69 63 65 20 73 74 61 74 75 73 20 20 20 20 ┆ ! ! device status ┆
0x8b9a0…8b9c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 0a 20 20 20 2a 20 20 ┆ * * ┆
0x8b9c0…8b9e0 20 2b 37 34 20 21 20 20 20 20 20 20 20 20 20 20 20 21 20 63 68 61 72 61 63 74 65 72 20 70 6f 73 ┆ +74 ! ! character pos┆
0x8b9e0…8ba00 69 74 69 6f 6e 20 28 6c 6f 6e 67 29 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ition (long) ┆
0x8ba00…8ba06 (1117,) (0x3ec,0x1175)
0x8ba06…8ba20 20 20 20 20 2a 0a 20 20 20 2a 20 20 20 2b 37 36 20 21 20 20 20 20 20 20 20 20 ┆ * * +76 ! ┆
0x8ba20…8ba40 20 20 20 21 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 ┆ ! ┆
0x8ba40…8ba60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 0a 20 20 20 2a 20 20 20 2b 37 38 20 21 20 20 20 20 ┆ * * +78 ! ┆
0x8ba60…8ba7e 20 20 20 20 20 20 20 21 20 62 75 66 66 65 72 20 61 64 64 72 65 73 73 20 6f 66 20 77 61 69 ┆ ! buffer address of wai┆
0x8ba7e…8ba84 (0x3ec,0x1176)
0x8ba84…8baa0 74 20 61 6e 64 20 67 65 74 20 73 74 61 74 65 20 20 20 20 20 2a 0a 20 20 20 2a 20 20 ┆t and get state * * ┆
0x8baa0…8bac0 20 2b 38 30 20 21 20 20 20 20 20 20 20 20 20 20 20 21 20 72 65 6d 6f 76 65 74 69 6d 65 20 28 3e ┆ +80 ! ! removetime (>┆
0x8bac0…8bae0 38 33 38 38 36 30 35 20 6d 65 65 6e 73 20 77 61 69 74 69 6e 67 29 20 20 20 20 20 20 2a 0a 20 20 ┆8388605 meens waiting) * ┆
0x8bae0…8bafc 20 2a 20 20 20 20 20 20 20 2b 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2b 20 20 20 20 20 20 ┆ * +-----------+ ┆
0x8bafc…8bb02 (0x3ec,0x1177)
0x8bb02…8bb20 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 ┆ ┆
0x8bb20…8bb40 20 20 20 20 20 20 2a 0a 20 20 20 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ * * ┆
0x8bb40…8bb60 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 20 20 ┆ ┆
0x8bb60…8bb7a 20 20 20 20 20 20 20 20 20 20 2a 0a 20 20 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ * ***********┆
0x8bb7a…8bb80 (0x3ec,0x1178)
0x8bb80…8bba0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x8bba0…8bbc0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 3e 0a 0c 0a 20 20 20 7a 6f 6e 65 20 ┆********************> zone ┆
0x8bbc0…8bbe0 6f 75 74 70 75 74 2c 74 72 61 6e 73 70 6f 72 74 28 31 32 38 2c 31 2c 73 74 64 65 72 72 6f 72 29 ┆output,transport(128,1,stderror)┆
0x8bbe0…8bc00 2c 63 61 74 62 61 73 65 28 31 2c 31 2c 73 74 64 65 72 72 6f 72 29 3b 0a 00 00 00 00 00 00 00 00 ┆,catbase(1,1,stderror); ┆
0x8bc00…8bc06 (1118,) (0x3ec,0x1179)
0x8bc06…8bc20 20 20 20 72 65 61 6c 20 61 72 72 61 79 20 69 6e 6e 61 6d 65 2c 6f 75 74 6e 61 ┆ real array inname,outna┆
0x8bc20…8bc40 6d 65 28 31 3a 32 29 3b 0a 20 20 20 69 6e 74 65 67 65 72 20 61 72 72 61 79 20 69 61 28 31 3a 32 ┆me(1:2); integer array ia(1:2┆
0x8bc40…8bc60 30 29 2c 63 61 72 72 28 31 3a 33 39 29 2c 72 61 72 72 28 31 3a 31 31 29 2c 62 61 73 65 28 31 3a ┆0),carr(1:39),rarr(1:11),base(1:┆
0x8bc60…8bc7e 32 29 2c 73 61 76 65 64 62 61 73 65 28 31 3a 32 29 3b 0a 20 20 20 69 6e 74 65 67 65 72 20 ┆2),savedbase(1:2); integer ┆
0x8bc7e…8bc84 (0x3ec,0x117a)
0x8bc84…8bca0 69 3b 0a 20 20 20 62 6f 6f 6c 65 61 6e 20 6c 69 73 74 2c 6f 75 74 70 3b 0a 0a 3c 2a ┆i; boolean list,outp; <*┆
0x8bca0…8bcc0 20 74 72 61 6e 73 66 65 72 20 64 65 73 63 72 69 70 74 69 6f 6e 20 2a 3e 0a 0a 20 20 20 6c 6f 6e ┆ transfer description *> lon┆
0x8bcc0…8bce0 67 20 61 72 72 61 79 20 66 69 65 6c 64 20 74 6e 61 6d 65 2c 0a 20 20 20 20 20 20 20 20 20 20 20 ┆g array field tname, ┆
0x8bce0…8bcfc 20 20 20 20 20 20 20 20 20 75 6e 61 6d 65 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ uname, ┆
0x8bcfc…8bd02 (0x3ec,0x117b)
0x8bd02…8bd20 20 20 20 20 20 20 20 20 73 6e 61 6d 65 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ sname, ┆
0x8bd20…8bd40 20 20 20 20 20 72 6e 61 6d 65 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ rname, ┆
0x8bd40…8bd60 67 6e 61 6d 65 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 71 6e 61 6d 65 ┆gname, qname┆
0x8bd60…8bd7a 3b 0a 0a 3c 2a 20 74 72 61 6e 73 70 6f 72 74 20 64 65 73 63 72 69 70 74 69 6f ┆; <* transport descriptio┆
0x8bd7a…8bd80 (0x3ec,0x117c)
0x8bd80…8bda0 6e 20 2a 3e 0a 0a 20 20 20 6c 6f 6e 67 20 61 72 72 61 79 20 66 69 65 6c 64 20 74 72 5f 6e 61 6d ┆n *> long array field tr_nam┆
0x8bda0…8bdc0 65 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 72 5f 75 73 65 72 2c 0a ┆e, tr_user, ┆
0x8bdc0…8bde0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 72 5f 73 6e 61 6d 65 2c 0a 20 20 ┆ tr_sname, ┆
0x8bde0…8be00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 72 5f 72 6e 61 00 00 00 00 00 00 00 00 ┆ tr_rna ┆
0x8be00…8be06 (1119,) (0x3ec,0x117d)
0x8be06…8be20 6d 65 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 72 ┆me, tr┆
0x8be20…8be40 5f 62 73 6e 61 6d 65 3b 0a 20 20 20 62 6f 6f 6c 65 61 6e 20 66 69 65 6c 64 20 20 20 20 74 72 5f ┆_bsname; boolean field tr_┆
0x8be40…8be60 6d 6f 64 65 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 72 5f 6b 69 6e ┆mode, tr_kin┆
0x8be60…8be7e 64 3b 0a 20 20 20 69 6e 74 65 67 65 72 20 66 69 65 6c 64 20 20 20 20 74 72 5f 62 61 73 65 ┆d; integer field tr_base┆
0x8be7e…8be84 (0x3ec,0x117e)
0x8be84…8bea0 6c 6f 77 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 72 5f ┆low, tr_┆
0x8bea0…8bec0 62 61 73 65 75 70 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 72 5f 62 ┆baseup, tr_b┆
0x8bec0…8bee0 73 73 74 61 72 74 70 74 72 3b 0a 20 20 20 6c 6f 6e 67 20 61 72 72 61 79 20 66 69 65 6c 64 20 74 ┆sstartptr; long array field t┆
0x8bee0…8befc 72 5f 71 67 72 6f 75 70 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆r_qgroup, ┆
0x8befc…8bf02 (0x3ec,0x117f)
0x8bf02…8bf20 20 20 74 72 5f 71 6e 61 6d 65 3b 0a 20 20 20 69 6e 74 65 67 65 72 20 66 69 65 6c 64 20 20 ┆ tr_qname; integer field ┆
0x8bf20…8bf40 20 20 74 72 5f 63 6f 75 72 75 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ tr_couru, ┆
0x8bf40…8bf60 74 72 5f 73 74 61 74 65 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 72 ┆tr_state, tr┆
0x8bf60…8bf7a 5f 63 61 75 73 65 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆_cause, ┆
0x8bf7a…8bf80 (0x3ec,0x1180)
0x8bf80…8bfa0 20 20 74 72 5f 73 74 61 74 75 73 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ tr_status, ┆
0x8bfa0…8bfc0 20 74 72 5f 63 68 61 72 70 6f 73 69 74 69 6f 6e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ tr_charposition, ┆
0x8bfc0…8bfe0 20 20 20 20 20 20 74 72 5f 77 61 69 74 6d 65 73 73 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ tr_waitmess, ┆
0x8bfe0…8c000 20 20 20 20 20 20 20 74 72 5f 72 65 6d 6f 76 65 74 69 6d 65 3b 0a 0c 0a 00 00 00 00 00 00 00 00 ┆ tr_removetime; ┆
0x8c000…8c006 (1120,) (0x3ec,0x1181)
0x8c006…8c020 20 20 20 62 6f 6f 6c 65 61 6e 20 70 72 6f 63 65 64 75 72 65 20 67 65 74 72 65 ┆ boolean procedure getre┆
0x8c020…8c040 63 28 7a 2c 6e 29 3b 0a 20 20 20 76 61 6c 75 65 20 6e 3b 20 7a 6f 6e 65 20 7a 3b 20 69 6e 74 65 ┆c(z,n); value n; zone z; inte┆
0x8c040…8c060 67 65 72 20 6e 3b 0a 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 69 6e 74 65 67 65 72 20 69 3b ┆ger n; begin integer i;┆
0x8c060…8c07e 0a 0a 20 20 20 20 20 20 67 65 74 72 65 63 3a 3d 74 72 75 65 3b 0a 20 20 20 20 20 20 69 3a ┆ getrec:=true; i:┆
0x8c07e…8c084 (0x3ec,0x1182)
0x8c084…8c0a0 3d 69 6e 72 65 63 36 28 7a 2c 30 29 3b 0a 20 20 20 20 20 20 69 66 20 69 3e 3d 6e 20 ┆=inrec6(z,0); if i>=n ┆
0x8c0a0…8c0c0 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 69 6e 72 65 63 36 28 7a 2c 6e 29 0a 20 20 20 20 20 20 ┆then inrec6(z,n) ┆
0x8c0c0…8c0e0 65 6c 73 65 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 69 6e 72 65 63 36 ┆else begin inrec6┆
0x8c0e0…8c0fc 28 7a 2c 69 29 3b 0a 20 20 20 20 20 20 20 20 20 69 3a 3d 69 6e 72 65 63 36 28 7a 2c ┆(z,i); i:=inrec6(z,┆
0x8c0fc…8c102 (0x3ec,0x1183)
0x8c102…8c120 30 29 3b 0a 20 20 20 20 20 20 20 20 20 69 66 20 69 3e 3d 6e 20 74 68 65 6e 0a 20 20 20 20 ┆0); if i>=n then ┆
0x8c120…8c140 20 20 20 20 20 20 20 20 69 6e 72 65 63 36 28 7a 2c 6e 29 0a 20 20 20 20 20 20 20 20 20 65 6c 73 ┆ inrec6(z,n) els┆
0x8c140…8c160 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 67 65 74 72 65 63 3a 3d 66 61 6c 73 65 0a 20 20 20 20 ┆e getrec:=false ┆
0x8c160…8c17a 20 20 65 6e 64 0a 20 20 20 65 6e 64 3b 0a 0a 0a 20 20 20 70 72 6f 63 65 64 75 ┆ end end; procedu┆
0x8c17a…8c180 (0x3ec,0x1184)
0x8c180…8c1a0 72 65 20 65 72 72 6f 72 28 73 2c 69 2c 61 29 3b 0a 20 20 20 76 61 6c 75 65 20 69 3b 0a 20 20 20 ┆re error(s,i,a); value i; ┆
0x8c1a0…8c1c0 73 74 72 69 6e 67 20 73 3b 20 69 6e 74 65 67 65 72 20 69 3b 20 61 72 72 61 79 20 61 3b 0a 20 20 ┆string s; integer i; array a; ┆
0x8c1c0…8c1e0 20 62 65 67 69 6e 0a 20 20 20 20 20 20 69 6e 74 65 67 65 72 20 73 65 70 2c 6b 69 6e 64 3b 0a 20 ┆ begin integer sep,kind; ┆
0x8c1e0…8c200 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 3c 3a 2a 2a 2a 73 61 76 65 00 00 00 00 00 00 00 00 ┆ write(out,<:***save ┆
0x8c200…8c206 (1121,) (0x3ec,0x1185)
0x8c206…8c220 74 72 61 6e 73 20 3a 3e 2c 73 29 3b 0a 20 20 20 20 20 20 69 66 20 69 3c 3e 30 ┆trans :>,s); if i<>0┆
0x8c220…8c240 20 74 68 65 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 77 72 69 74 65 ┆ then begin write┆
0x8c240…8c260 28 6f 75 74 2c 3c 3a 3a 20 3a 3e 29 3b 0a 20 20 20 20 20 20 20 20 20 73 65 70 3a 3d 69 20 73 68 ┆(out,<:: :>); sep:=i sh┆
0x8c260…8c27e 69 66 74 20 28 2d 31 33 29 2d 31 3b 0a 20 20 20 20 20 20 20 20 20 6b 69 6e 64 3a 3d 69 20 ┆ift (-13)-1; kind:=i ┆
0x8c27e…8c284 (0x3ec,0x1186)
0x8c284…8c2a0 65 78 74 72 61 63 74 20 31 32 3b 0a 20 20 20 20 20 20 20 20 20 6f 75 74 63 68 61 72 ┆extract 12; outchar┆
0x8c2a0…8c2c0 28 6f 75 74 2c 63 61 73 65 20 73 65 70 20 6f 66 20 28 33 32 2c 20 36 31 2c 20 34 36 29 29 3b 0a ┆(out,case sep of (32, 61, 46)); ┆
0x8c2c0…8c2e0 20 20 20 20 20 20 20 20 20 69 3a 3d 31 3b 0a 20 20 20 20 20 20 20 20 20 69 66 20 6b 69 6e 64 3d ┆ i:=1; if kind=┆
0x8c2e0…8c2fc 31 30 20 74 68 65 6e 20 77 72 69 74 65 28 6f 75 74 2c 73 74 72 69 6e 67 20 61 28 69 ┆10 then write(out,string a(i┆
0x8c2fc…8c302 (0x3ec,0x1187)
0x8c302…8c320 6e 63 72 65 61 73 65 28 69 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ncrease(i))) ┆
0x8c320…8c340 20 20 20 65 6c 73 65 20 77 72 69 74 65 28 6f 75 74 2c 3c 3c 64 3e 2c 65 6e 74 69 65 72 20 61 28 ┆ else write(out,<<d>,entier a(┆
0x8c340…8c360 31 29 29 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 3c ┆1)) end; write(out,<┆
0x8c360…8c37a 3a 3c 31 30 3e 3a 3e 29 3b 0a 20 20 20 20 20 20 6f 75 74 70 3a 3d 66 61 6c 73 ┆:<10>:>); outp:=fals┆
0x8c37a…8c380 (0x3ec,0x1188)
0x8c380…8c3a0 65 3b 0a 20 20 20 20 20 20 67 6f 74 6f 20 73 74 6f 70 0a 20 20 20 65 6e 64 3b 0a 0c 0a 20 20 20 ┆e; goto stop end; ┆
0x8c3a0…8c3c0 70 72 6f 63 65 64 75 72 65 20 69 6e 69 74 66 69 65 6c 64 73 3b 0a 20 20 20 62 65 67 69 6e 0a 0a ┆procedure initfields; begin ┆
0x8c3c0…8c3e0 20 20 20 3c 2a 20 74 72 61 6e 73 66 65 72 20 64 65 73 63 72 69 70 74 69 6f 6e 20 2a 3e 0a 0a 20 ┆ <* transfer description *> ┆
0x8c3e0…8c400 20 20 20 20 20 74 6e 61 6d 65 3a 3d 34 3b 0a 20 20 20 20 20 20 75 6e 61 00 00 00 00 00 00 00 00 ┆ tname:=4; una ┆
0x8c400…8c406 (1122,) (0x3ec,0x1189)
0x8c406…8c420 6d 65 3a 3d 31 36 3b 0a 20 20 20 20 20 20 73 6e 61 6d 65 3a 3d 34 30 3b 0a 20 ┆me:=16; sname:=40; ┆
0x8c420…8c440 20 20 20 20 20 72 6e 61 6d 65 3a 3d 35 30 3b 0a 20 20 20 20 20 20 67 6e 61 6d 65 3a 3d 36 30 3b ┆ rname:=50; gname:=60;┆
0x8c440…8c460 0a 20 20 20 20 20 20 71 6e 61 6d 65 3a 3d 36 38 3b 0a 0a 20 20 20 3c 2a 20 74 72 61 6e 73 70 6f ┆ qname:=68; <* transpo┆
0x8c460…8c47e 72 74 20 64 65 73 63 72 69 70 74 69 6f 6e 20 2a 3e 0a 0a 20 20 20 20 20 20 74 72 5f 6e 61 ┆rt description *> tr_na┆
0x8c47e…8c484 (0x3ec,0x118a)
0x8c484…8c4a0 6d 65 3a 3d 30 3b 0a 20 20 20 20 20 20 74 72 5f 75 73 65 72 3a 3d 38 3b 0a 20 20 20 ┆me:=0; tr_user:=8; ┆
0x8c4a0…8c4c0 20 20 20 74 72 5f 73 6e 61 6d 65 3a 3d 31 36 3b 0a 20 20 20 20 20 20 74 72 5f 72 6e 61 6d 65 3a ┆ tr_sname:=16; tr_rname:┆
0x8c4c0…8c4e0 3d 32 34 3b 0a 20 20 20 20 20 20 74 72 5f 62 73 6e 61 6d 65 3a 3d 33 32 3b 0a 20 20 20 20 20 20 ┆=24; tr_bsname:=32; ┆
0x8c4e0…8c4fc 74 72 5f 6d 6f 64 65 3a 3d 34 31 3b 0a 20 20 20 20 20 20 74 72 5f 6b 69 6e 64 3a 3d ┆tr_mode:=41; tr_kind:=┆
0x8c4fc…8c502 (0x3ec,0x118b)
0x8c502…8c520 34 32 3b 0a 20 20 20 20 20 20 74 72 5f 62 61 73 65 6c 6f 77 3a 3d 34 34 3b 0a 20 20 20 20 ┆42; tr_baselow:=44; ┆
0x8c520…8c540 20 20 74 72 5f 62 61 73 65 75 70 3a 3d 34 36 3b 0a 20 20 20 20 20 20 74 72 5f 62 73 73 74 61 72 ┆ tr_baseup:=46; tr_bsstar┆
0x8c540…8c560 74 70 74 72 3a 3d 35 30 3b 0a 20 20 20 20 20 20 74 72 5f 71 67 72 6f 75 70 3a 3d 35 30 3b 0a 20 ┆tptr:=50; tr_qgroup:=50; ┆
0x8c560…8c57a 20 20 20 20 20 74 72 5f 71 6e 61 6d 65 3a 3d 35 38 3b 0a 20 20 20 20 20 20 74 ┆ tr_qname:=58; t┆
0x8c57a…8c580 (0x3ec,0x118c)
0x8c580…8c5a0 72 5f 63 6f 75 72 75 3a 3d 36 38 3b 0a 20 20 20 20 20 20 74 72 5f 73 74 61 74 65 3a 3d 37 30 3b ┆r_couru:=68; tr_state:=70;┆
0x8c5a0…8c5c0 0a 20 20 20 20 20 20 74 72 5f 63 61 75 73 65 3a 3d 37 32 3b 0a 20 20 20 20 20 20 74 72 5f 73 74 ┆ tr_cause:=72; tr_st┆
0x8c5c0…8c5e0 61 74 75 73 3a 3d 37 34 3b 0a 20 20 20 20 20 20 74 72 5f 63 68 61 72 70 6f 73 69 74 69 6f 6e 3a ┆atus:=74; tr_charposition:┆
0x8c5e0…8c600 3d 37 38 3b 0a 20 20 20 20 20 20 74 72 5f 77 61 69 74 6d 65 73 73 3a 3d 00 00 00 00 00 00 00 00 ┆=78; tr_waitmess:= ┆
0x8c600…8c606 (1123,) (0x3ec,0x118d)
0x8c606…8c620 38 30 3b 0a 20 20 20 20 20 20 74 72 5f 72 65 6d 6f 76 65 74 69 6d 65 3a 3d 38 ┆80; tr_removetime:=8┆
0x8c620…8c640 32 0a 0a 20 20 20 65 6e 64 3b 0a 0c 0a 20 20 20 70 72 6f 63 65 64 75 72 65 20 63 6f 6e 6e 65 63 ┆2 end; procedure connec┆
0x8c640…8c660 74 5f 6f 75 74 70 75 74 3b 0a 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 69 6e 74 65 67 65 72 ┆t_output; begin integer┆
0x8c660…8c67e 20 61 72 72 61 79 20 62 61 73 65 73 28 31 3a 38 29 2c 69 61 28 31 3a 31 37 29 3b 0a 20 20 ┆ array bases(1:8),ia(1:17); ┆
0x8c67e…8c684 (0x3ec,0x118e)
0x8c684…8c6a0 20 20 20 20 69 6e 74 65 67 65 72 20 69 3b 0a 0a 20 20 20 20 20 20 6f 70 65 6e 28 6f ┆ integer i; open(o┆
0x8c6a0…8c6c0 75 74 70 75 74 2c 34 2c 6f 75 74 6e 61 6d 65 2c 30 29 3b 0a 0a 20 20 20 20 20 20 73 79 73 74 65 ┆utput,4,outname,0); syste┆
0x8c6c0…8c6e0 6d 28 31 31 29 62 61 73 65 73 3a 28 30 2c 62 61 73 65 73 29 3b 0a 20 20 20 20 20 20 69 3a 3d 6d ┆m(11)bases:(0,bases); i:=m┆
0x8c6e0…8c6fc 6f 6e 69 74 6f 72 28 37 36 29 6c 6f 6f 6b 75 70 20 68 65 61 64 20 61 6e 64 20 74 61 ┆onitor(76)lookup head and ta┆
0x8c6fc…8c702 (0x3ec,0x118f)
0x8c702…8c720 69 6c 3a 28 6f 75 74 70 75 74 2c 30 2c 69 61 29 3b 0a 0a 20 20 20 20 20 20 69 66 20 69 3d ┆il:(output,0,ia); if i=┆
0x8c720…8c740 30 20 74 68 65 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 69 66 20 65 ┆0 then begin if e┆
0x8c740…8c760 78 74 65 6e 64 20 69 61 28 32 29 3c 65 78 74 65 6e 64 20 62 61 73 65 73 28 37 29 20 6f 72 0a 20 ┆xtend ia(2)<extend bases(7) or ┆
0x8c760…8c77a 20 20 20 20 20 20 20 20 20 20 20 65 78 74 65 6e 64 20 69 61 28 33 29 3e 65 78 ┆ extend ia(3)>ex┆
0x8c77a…8c780 (0x3ec,0x1190)
0x8c780…8c7a0 74 65 6e 64 20 62 61 73 65 73 28 38 29 20 74 68 65 6e 20 69 3a 3d 31 0a 20 20 20 20 20 20 65 6e ┆tend bases(8) then i:=1 en┆
0x8c7a0…8c7c0 64 3b 0a 0a 20 20 20 20 20 20 69 66 20 69 3c 3e 30 20 74 68 65 6e 0a 20 20 20 20 20 20 62 65 67 ┆d; if i<>0 then beg┆
0x8c7c0…8c7e0 69 6e 0a 20 20 20 20 20 20 20 20 20 69 61 28 31 29 3a 3d 69 61 28 32 29 3a 3d 31 3b 0a 20 20 20 ┆in ia(1):=ia(2):=1; ┆
0x8c7e0…8c800 20 20 20 20 20 20 66 6f 72 20 69 3a 3d 33 20 73 74 65 70 20 31 20 75 6e 00 00 00 00 00 00 00 00 ┆ for i:=3 step 1 un ┆
0x8c800…8c806 (1124,) (0x3ec,0x1191)
0x8c806…8c820 74 69 6c 20 31 30 20 64 6f 20 69 61 28 69 29 3a 3d 30 3b 0a 20 20 20 20 20 20 ┆til 10 do ia(i):=0; ┆
0x8c820…8c840 20 20 20 69 61 28 36 29 3a 3d 73 79 73 74 69 6d 65 28 37 29 73 68 6f 72 74 20 63 6c 6f 63 6b 3a ┆ ia(6):=systime(7)short clock:┆
0x8c840…8c860 28 30 2c 30 2e 30 29 3b 0a 20 20 20 20 20 20 20 20 20 69 66 20 6d 6f 6e 69 74 6f 72 28 34 30 29 ┆(0,0.0); if monitor(40)┆
0x8c860…8c87e 63 72 65 61 74 65 20 65 6e 74 72 79 3a 28 6f 75 74 70 75 74 2c 30 2c 69 61 29 3c 3e 30 20 ┆create entry:(output,0,ia)<>0 ┆
0x8c87e…8c884 (0x3ec,0x1192)
0x8c884…8c8a0 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 72 72 6f 72 28 3c 3a 63 72 65 ┆then error(<:cre┆
0x8c8a0…8c8c0 61 74 65 20 6f 75 74 70 75 74 20 61 72 65 61 20 6e 6f 74 20 70 6f 73 73 69 62 6c 65 3a 3e 2c 0a ┆ate output area not possible:>, ┆
0x8c8c0…8c8e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 34 20 73 68 69 66 74 20 31 32 20 61 64 64 ┆ 4 shift 12 add┆
0x8c8e0…8c8fc 20 31 30 2c 6f 75 74 6e 61 6d 65 29 0a 20 20 20 20 20 20 65 6e 64 0a 20 20 20 20 20 ┆ 10,outname) end ┆
0x8c8fc…8c902 (0x3ec,0x1193)
0x8c902…8c920 20 65 6c 73 65 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 6d 6f 6e ┆ else begin mon┆
0x8c920…8c940 69 74 6f 72 28 34 32 29 6c 6f 6f 6b 75 70 20 65 6e 74 72 79 3a 28 6f 75 74 70 75 74 2c 30 2c 69 ┆itor(42)lookup entry:(output,0,i┆
0x8c940…8c960 61 29 3b 0a 20 20 20 20 20 20 20 20 20 69 61 28 36 29 3a 3d 73 79 73 74 69 6d 65 28 37 29 73 68 ┆a); ia(6):=systime(7)sh┆
0x8c960…8c97a 6f 72 74 20 63 6c 6f 63 6b 3a 28 30 2c 30 2e 30 29 3b 0a 20 20 20 20 20 20 20 ┆ort clock:(0,0.0); ┆
0x8c97a…8c980 (0x3ec,0x1194)
0x8c980…8c9a0 20 20 6d 6f 6e 69 74 6f 72 28 34 34 29 63 68 61 6e 67 65 20 65 6e 74 72 79 3a 28 6f 75 74 70 75 ┆ monitor(44)change entry:(outpu┆
0x8c9a0…8c9c0 74 2c 30 2c 69 61 29 0a 20 20 20 20 20 20 65 6e 64 3b 0a 0a 20 20 20 20 20 20 69 66 20 6d 6f 6e ┆t,0,ia) end; if mon┆
0x8c9c0…8c9e0 69 74 6f 72 28 35 32 29 63 72 65 61 74 65 20 61 72 65 61 20 70 72 6f 63 65 73 73 3a 28 6f 75 74 ┆itor(52)create area process:(out┆
0x8c9e0…8ca00 70 75 74 2c 30 2c 69 61 29 3c 3e 30 20 74 68 65 6e 0a 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆put,0,ia)<>0 then ┆
0x8ca00…8ca06 (1125,) (0x3ec,0x1195)
0x8ca06…8ca20 20 20 20 65 72 72 6f 72 28 3c 3a 63 6f 6e 6e 65 63 74 20 6f 75 74 70 75 74 20 ┆ error(<:connect output ┆
0x8ca20…8ca40 6e 6f 74 20 70 6f 73 73 69 62 6c 65 3a 3e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 34 ┆not possible:>, 4┆
0x8ca40…8ca60 20 73 68 69 66 74 20 31 32 20 61 64 64 20 31 30 2c 6f 75 74 6e 61 6d 65 29 0a 20 20 20 65 6e 64 ┆ shift 12 add 10,outname) end┆
0x8ca60…8ca7e 3b 0a 0c 0a 20 20 20 70 72 6f 63 65 64 75 72 65 20 77 72 69 74 65 5f 74 72 61 6e 73 70 6f ┆; procedure write_transpo┆
0x8ca7e…8ca84 (0x3ec,0x1196)
0x8ca84…8caa0 72 74 28 7a 29 3b 0a 20 20 20 7a 6f 6e 65 20 7a 3b 0a 20 20 20 62 65 67 69 6e 0a 20 ┆rt(z); zone z; begin ┆
0x8caa0…8cac0 20 20 20 20 20 6c 6f 6e 67 20 6c 31 2c 6c 32 3b 0a 0a 20 20 20 20 20 20 6c 31 3a 3d 65 78 74 65 ┆ long l1,l2; l1:=exte┆
0x8cac0…8cae0 6e 64 20 30 20 61 64 64 20 74 72 61 6e 73 70 6f 72 74 2e 74 72 5f 62 61 73 65 6c 6f 77 3b 0a 20 ┆nd 0 add transport.tr_baselow; ┆
0x8cae0…8cafc 20 20 20 20 20 6c 32 3a 3d 65 78 74 65 6e 64 20 30 20 61 64 64 20 74 72 61 6e 73 70 ┆ l2:=extend 0 add transp┆
0x8cafc…8cb02 (0x3ec,0x1197)
0x8cb02…8cb20 6f 72 74 2e 74 72 5f 62 61 73 65 75 70 3b 0a 0a 20 20 20 20 20 20 77 72 69 74 65 28 7a 2c ┆ort.tr_baseup; write(z,┆
0x8cb20…8cb40 3c 3a 3c 31 30 3e 62 61 73 65 20 61 62 73 3a 3e 2c 3c 3c 5f 64 3e 2c 6c 31 2c 6c 32 2c 3c 3a 20 ┆<:<10>base abs:>,<<_d>,l1,l2,<: ┆
0x8cb40…8cb60 3b 3a 3e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 3c 5f 2d 64 3e 2c 6c 31 20 65 ┆;:>, <<_-d>,l1 e┆
0x8cb60…8cb7a 78 74 72 61 63 74 20 32 34 2c 6c 32 20 65 78 74 72 61 63 74 20 32 34 29 3b 0a ┆xtract 24,l2 extract 24); ┆
0x8cb7a…8cb80 (0x3ec,0x1198)
0x8cb80…8cba0 0a 20 20 20 20 20 20 77 72 69 74 65 28 7a 2c 3c 3a 3c 31 30 3e 66 69 6c 65 78 66 65 72 20 3a 3e ┆ write(z,<:<10>filexfer :>┆
0x8cba0…8cbc0 2c 74 72 61 6e 73 70 6f 72 74 2e 74 72 5f 73 6e 61 6d 65 2c 0a 20 20 20 20 20 20 20 20 20 20 20 ┆,transport.tr_sname, ┆
0x8cbc0…8cbe0 20 20 20 20 20 3c 3a 20 3a 3e 2c 74 72 61 6e 73 70 6f 72 74 2e 74 72 5f 72 6e 61 6d 65 29 3b 0a ┆ <: :>,transport.tr_rname); ┆
0x8cbe0…8cc00 0a 20 20 20 20 20 20 69 66 20 74 72 61 6e 73 70 6f 72 74 2e 74 72 5f 75 00 00 00 00 00 00 00 00 ┆ if transport.tr_u ┆
0x8cc00…8cc06 (1126,) (0x3ec,0x1199)
0x8cc06…8cc20 73 65 72 28 31 29 3c 3e 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 77 72 ┆ser(1)<>0 then wr┆
0x8cc20…8cc40 69 74 65 28 7a 2c 3c 3a 20 75 73 65 72 2e 3a 3e 2c 74 72 61 6e 73 70 6f 72 74 2e 74 72 5f 75 73 ┆ite(z,<: user.:>,transport.tr_us┆
0x8cc40…8cc60 65 72 29 3b 0a 0a 20 20 20 20 20 20 69 66 20 74 72 61 6e 73 70 6f 72 74 2e 74 72 5f 6e 61 6d 65 ┆er); if transport.tr_name┆
0x8cc60…8cc7e 28 31 29 3c 3e 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 77 72 69 74 65 28 7a 2c 3c ┆(1)<>0 then write(z,<┆
0x8cc7e…8cc84 (0x3ec,0x119a)
0x8cc84…8cca0 3a 20 6e 61 6d 65 2e 3a 3e 2c 74 72 61 6e 73 70 6f 72 74 2e 74 72 5f 6e 61 6d 65 29 ┆: name.:>,transport.tr_name)┆
0x8cca0…8ccc0 3b 0a 0a 20 20 20 20 20 20 69 66 20 74 72 61 6e 73 70 6f 72 74 2e 74 72 5f 71 67 72 6f 75 70 28 ┆; if transport.tr_qgroup(┆
0x8ccc0…8cce0 31 29 3c 3e 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 77 72 69 74 65 28 7a 2c 3c 3a 20 71 ┆1)<>0 then write(z,<: q┆
0x8cce0…8ccfc 75 65 75 65 2e 3a 3e 2c 74 72 61 6e 73 70 6f 72 74 2e 74 72 5f 71 67 72 6f 75 70 2c ┆ueue.:>,transport.tr_qgroup,┆
0x8ccfc…8cd02 (0x3ec,0x119b)
0x8cd02…8cd20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 3a 2e 3a 3e 2c 74 72 61 6e ┆ <:.:>,tran┆
0x8cd20…8cd40 73 70 6f 72 74 2e 74 72 5f 71 6e 61 6d 65 29 3b 0a 0a 20 20 20 20 20 20 77 72 69 74 65 28 7a 2c ┆sport.tr_qname); write(z,┆
0x8cd40…8cd60 3c 3a 3c 31 30 3e 3a 3e 29 0a 0a 20 20 20 65 6e 64 3b 0a 0c 0a 20 20 20 70 72 6f 63 65 64 75 72 ┆<:<10>:>) end; procedur┆
0x8cd60…8cd7a 65 20 73 68 6f 77 5f 65 72 72 6f 72 28 7a 2c 69 29 3b 0a 20 20 20 76 61 6c 75 ┆e show_error(z,i); valu┆
0x8cd7a…8cd80 (0x3ec,0x119c)
0x8cd80…8cda0 65 20 69 3b 20 7a 6f 6e 65 20 7a 3b 20 69 6e 74 65 67 65 72 20 69 3b 0a 20 20 20 62 65 67 69 6e ┆e i; zone z; integer i; begin┆
0x8cda0…8cdc0 0a 20 20 20 20 20 20 77 72 69 74 65 28 7a 2c 3c 3a 2a 2a 2a 73 61 76 65 74 72 61 6e 73 20 3a 3e ┆ write(z,<:***savetrans :>┆
0x8cdc0…8cde0 2c 63 61 73 65 20 69 20 6f 66 28 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 72 61 72 72 28 ┆,case i of( if rarr(┆
0x8cde0…8ce00 31 29 3d 33 20 74 68 65 6e 20 3c 3a 6d 69 73 73 69 6e 67 20 72 65 73 6f 00 00 00 00 00 00 00 00 ┆1)=3 then <:missing reso ┆
0x8ce00…8ce06 (1127,) (0x3ec,0x119d)
0x8ce06…8ce20 75 72 63 65 73 20 69 6e 20 70 72 69 6d 6f 3a 3e 0a 20 20 20 20 20 20 20 20 20 ┆urces in primo:> ┆
0x8ce20…8ce40 20 20 20 65 6c 73 65 20 69 66 20 72 61 72 72 28 31 29 3d 35 20 74 68 65 6e 20 3c 3a 73 65 6e 64 ┆ else if rarr(1)=5 then <:send┆
0x8ce40…8ce60 65 72 20 74 72 6f 75 62 6c 65 73 3a 3e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆er troubles:> ┆
0x8ce60…8ce7e 20 20 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 20 3c 3a 72 65 63 65 69 76 65 72 20 74 72 ┆ else <:receiver tr┆
0x8ce7e…8ce84 (0x3ec,0x119e)
0x8ce84…8cea0 6f 75 62 6c 65 73 3a 3e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 3c 3a 72 65 6a 65 ┆oubles:>, <:reje┆
0x8cea0…8cec0 63 74 65 64 3a 3e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 3c 3a 75 6e 69 6e 74 65 6c 6c 69 67 ┆cted:>, <:unintellig┆
0x8cec0…8cee0 69 62 6c 65 3a 3e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 3c 3a 70 72 69 6d 6f 20 6d 61 6c 66 ┆ible:>, <:primo malf┆
0x8cee0…8cefc 75 6e 63 74 69 6f 6e 3a 3e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 3c 3a 70 72 69 ┆unction:>, <:pri┆
0x8cefc…8cf02 (0x3ec,0x119f)
0x8cf02…8cf20 6d 6f 20 64 6f 65 73 20 6e 6f 74 20 65 78 69 73 74 3a 3e 2c 0a 20 20 20 20 20 20 20 20 20 ┆mo does not exist:>, ┆
0x8cf20…8cf40 20 20 20 3c 3a 62 75 66 66 65 72 20 63 6c 61 69 6d 20 65 78 63 65 65 64 65 64 3a 3e 2c 0a 20 20 ┆ <:buffer claim exceeded:>, ┆
0x8cf40…8cf60 20 20 20 20 20 20 20 20 20 20 3c 3a 69 6c 6c 65 67 61 6c 20 61 63 74 69 6f 6e 20 3f 3f 3f 3a 3e ┆ <:illegal action ???:>┆
0x8cf60…8cf7a 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 3c 3a 69 6c 6c 65 67 61 6c 20 63 6c ┆, <:illegal cl┆
0x8cf7a…8cf80 (0x3ec,0x11a0)
0x8cf80…8cfa0 65 6e 67 20 6f 72 20 72 6c 65 6e 67 20 3f 3f 3f 3a 3e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆eng or rleng ???:>, ┆
0x8cfa0…8cfc0 3c 3a 63 72 69 74 65 72 69 6f 6e 20 74 79 70 65 20 69 6c 6c 65 67 61 6c 3a 3e 2c 0a 20 20 20 20 ┆<:criterion type illegal:>, ┆
0x8cfc0…8cfe0 20 20 20 20 20 20 20 20 3c 3a 73 65 74 20 63 61 74 61 6c 6f 67 20 62 61 73 65 2c 20 69 6c 6c 65 ┆ <:set catalog base, ille┆
0x8cfe0…8d000 67 61 6c 20 62 61 73 65 73 3a 3e 29 2c 0a 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆gal bases:>), ┆
0x8d000…8d006 (1128,) (0x3ec,0x11a1)
0x8d006…8d020 20 20 3c 3a 3c 31 30 3e 3a 3e 29 3b 0a 0a 20 20 20 20 20 20 69 66 20 69 3e 3d ┆ <:<10>:>); if i>=┆
0x8d020…8d040 32 20 61 6e 64 20 69 3c 3d 38 20 74 68 65 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 ┆2 and i<=8 then begin ┆
0x8d040…8d060 20 20 20 20 20 77 72 69 74 65 28 7a 2c 3c 3a 2a 2a 2a 73 61 76 65 74 72 61 6e 73 20 66 61 74 61 ┆ write(z,<:***savetrans fata┆
0x8d060…8d07e 6c 20 65 72 72 6f 72 3c 31 30 3e 3a 3e 29 3b 0a 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 ┆l error<10>:>); goto ┆
0x8d07e…8d084 (0x3ec,0x11a2)
0x8d084…8d0a0 73 74 6f 70 0a 20 20 20 20 20 20 65 6e 64 0a 0a 20 20 20 65 6e 64 3b 0a 0c 0a 20 20 ┆stop end end; ┆
0x8d0a0…8d0c0 20 70 72 6f 63 65 64 75 72 65 20 73 74 61 72 74 5f 74 72 61 6e 73 70 6f 72 74 28 7a 29 3b 0a 20 ┆ procedure start_transport(z); ┆
0x8d0c0…8d0e0 20 20 7a 6f 6e 65 20 7a 3b 0a 20 20 20 62 65 67 69 6e 0a 0a 20 20 20 20 20 20 66 6f 72 20 69 3a ┆ zone z; begin for i:┆
0x8d0e0…8d0fc 3d 37 2c 20 38 2c 20 31 33 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 2c 20 32 ┆=7, 8, 13 step 1 until 20, 2┆
0x8d0fc…8d102 (0x3ec,0x11a3)
0x8d102…8d120 35 2c 20 33 30 2c 20 33 39 20 64 6f 0a 20 20 20 20 20 20 20 20 20 63 61 72 72 28 69 29 3a ┆5, 30, 39 do carr(i):┆
0x8d120…8d140 3d 2d 31 3b 0a 0a 20 20 20 20 20 20 66 6f 72 20 69 3a 3d 31 2c 20 32 20 64 6f 0a 20 20 20 20 20 ┆=-1; for i:=1, 2 do ┆
0x8d140…8d160 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 63 61 72 72 2e 74 6e 61 6d 65 28 69 29 3a 3d 74 ┆ begin carr.tname(i):=t┆
0x8d160…8d17a 72 61 6e 73 70 6f 72 74 2e 74 72 5f 6e 61 6d 65 28 69 29 3b 0a 20 20 20 20 20 ┆ransport.tr_name(i); ┆
0x8d17a…8d180 (0x3ec,0x11a4)
0x8d180…8d1a0 20 20 20 20 63 61 72 72 2e 75 6e 61 6d 65 28 69 29 3a 3d 74 72 61 6e 73 70 6f 72 74 2e 74 72 5f ┆ carr.uname(i):=transport.tr_┆
0x8d1a0…8d1c0 75 73 65 72 28 69 29 3b 0a 20 20 20 20 20 20 20 20 20 63 61 72 72 2e 73 6e 61 6d 65 28 69 29 3a ┆user(i); carr.sname(i):┆
0x8d1c0…8d1e0 3d 74 72 61 6e 73 70 6f 72 74 2e 74 72 5f 73 6e 61 6d 65 28 69 29 3b 0a 20 20 20 20 20 20 20 20 ┆=transport.tr_sname(i); ┆
0x8d1e0…8d200 20 63 61 72 72 2e 72 6e 61 6d 65 28 69 29 3a 3d 74 72 61 6e 73 70 6f 72 00 00 00 00 00 00 00 00 ┆ carr.rname(i):=transpor ┆
0x8d200…8d206 (1129,) (0x3ec,0x11a5)
0x8d206…8d220 74 2e 74 72 5f 72 6e 61 6d 65 28 69 29 3b 0a 20 20 20 20 20 20 20 20 20 63 61 ┆t.tr_rname(i); ca┆
0x8d220…8d240 72 72 2e 67 6e 61 6d 65 28 69 29 3a 3d 74 72 61 6e 73 70 6f 72 74 2e 74 72 5f 71 67 72 6f 75 70 ┆rr.gname(i):=transport.tr_qgroup┆
0x8d240…8d260 28 69 29 3b 0a 20 20 20 20 20 20 20 20 20 63 61 72 72 2e 71 6e 61 6d 65 28 69 29 3a 3d 74 72 61 ┆(i); carr.qname(i):=tra┆
0x8d260…8d27e 6e 73 70 6f 72 74 2e 74 72 5f 71 6e 61 6d 65 28 69 29 0a 20 20 20 20 20 20 65 6e 64 3b 0a ┆nsport.tr_qname(i) end; ┆
0x8d27e…8d284 (0x3ec,0x11a6)
0x8d284…8d2a0 0a 20 20 20 20 20 20 69 66 20 74 72 61 6e 73 70 6f 72 74 2e 74 72 5f 71 67 72 6f 75 ┆ if transport.tr_qgrou┆
0x8d2a0…8d2c0 70 28 31 29 3c 3e 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 63 61 72 72 28 33 30 29 3a 3d ┆p(1)<>0 then carr(30):=┆
0x8d2c0…8d2e0 30 3b 0a 0a 20 20 20 20 20 20 62 61 73 65 28 31 29 3a 3d 74 72 61 6e 73 70 6f 72 74 2e 74 72 5f ┆0; base(1):=transport.tr_┆
0x8d2e0…8d2fc 62 61 73 65 6c 6f 77 3b 0a 20 20 20 20 20 20 62 61 73 65 28 32 29 3a 3d 74 72 61 6e ┆baselow; base(2):=tran┆
0x8d2fc…8d302 (0x3ec,0x11a7)
0x8d302…8d320 73 70 6f 72 74 2e 74 72 5f 62 61 73 65 75 70 3b 0a 20 20 20 20 20 20 69 3a 3d 6d 6f 6e 69 ┆sport.tr_baseup; i:=moni┆
0x8d320…8d340 74 6f 72 28 37 32 29 73 65 74 20 63 61 74 61 6c 6f 67 20 62 61 73 65 3a 28 63 61 74 62 61 73 65 ┆tor(72)set catalog base:(catbase┆
0x8d340…8d360 2c 30 2c 62 61 73 65 29 3b 0a 20 20 20 20 20 20 69 66 20 69 3c 3e 30 20 74 68 65 6e 20 69 3a 3d ┆,0,base); if i<>0 then i:=┆
0x8d360…8d37a 31 30 3b 0a 20 20 20 20 20 20 69 66 20 69 3d 30 20 74 68 65 6e 20 69 3a 3d 74 ┆10; if i=0 then i:=t┆
0x8d37a…8d380 (0x3ec,0x11a8)
0x8d380…8d3a0 72 61 6e 73 66 65 72 28 32 29 64 65 66 69 6e 65 20 74 72 61 6e 73 70 6f 72 74 3a 28 63 61 72 72 ┆ransfer(2)define transport:(carr┆
0x8d3a0…8d3c0 2c 33 39 2c 72 61 72 72 2c 31 31 29 3b 0a 20 20 20 20 20 20 69 66 20 69 3d 30 20 61 6e 64 20 72 ┆,39,rarr,11); if i=0 and r┆
0x8d3c0…8d3e0 61 72 72 28 31 29 3c 3e 30 20 74 68 65 6e 20 69 3a 3d 31 3b 0a 0a 20 20 20 20 20 20 69 66 20 69 ┆arr(1)<>0 then i:=1; if i┆
0x8d3e0…8d400 3c 3e 30 20 74 68 65 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 00 00 00 00 00 00 00 00 ┆<>0 then begin ┆
0x8d400…8d406 (1130,) (0x3ec,0x11a9)
0x8d406…8d420 20 20 20 20 20 20 69 66 20 2d 2c 20 6c 69 73 74 20 74 68 65 6e 20 77 72 69 74 ┆ if -, list then writ┆
0x8d420…8d440 65 5f 74 72 61 6e 73 70 6f 72 74 28 7a 29 3b 0a 20 20 20 20 20 20 20 20 20 73 68 6f 77 5f 65 72 ┆e_transport(z); show_er┆
0x8d440…8d460 72 6f 72 28 7a 2c 69 29 0a 20 20 20 20 20 20 65 6e 64 0a 20 20 20 20 20 20 65 6c 73 65 0a 20 20 ┆ror(z,i) end else ┆
0x8d460…8d47e 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 66 6f 72 20 69 3a 3d 33 20 73 74 ┆ begin for i:=3 st┆
0x8d47e…8d484 (0x3ec,0x11aa)
0x8d484…8d4a0 65 70 20 31 20 75 6e 74 69 6c 20 37 20 64 6f 20 72 61 72 72 28 69 29 3a 3d 2d 31 3b ┆ep 1 until 7 do rarr(i):=-1;┆
0x8d4a0…8d4c0 0a 20 20 20 20 20 20 20 20 20 74 72 61 6e 73 66 65 72 28 38 29 72 65 6c 65 61 73 65 20 74 72 61 ┆ transfer(8)release tra┆
0x8d4c0…8d4e0 6e 73 70 6f 72 74 3a 28 72 61 72 72 2c 37 2c 63 61 72 72 2c 31 36 29 0a 20 20 20 20 20 20 65 6e ┆nsport:(rarr,7,carr,16) en┆
0x8d4e0…8d4fc 64 0a 0a 20 20 20 65 6e 64 3b 20 3c 2a 20 73 74 61 72 74 20 74 72 61 6e 73 70 6f 72 ┆d end; <* start transpor┆
0x8d4fc…8d502 (0x3ec,0x11ab)
0x8d502…8d520 74 20 2a 3e 0a 0c 0a 20 20 20 70 72 6f 63 65 64 75 72 65 20 72 65 61 64 5f 70 61 72 61 6d ┆t *> procedure read_param┆
0x8d520…8d540 73 3b 0a 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 72 65 61 6c 20 61 72 72 61 79 20 70 61 72 ┆s; begin real array par┆
0x8d540…8d560 61 6d 28 31 3a 32 29 3b 0a 20 20 20 20 20 20 69 6e 74 65 67 65 72 20 69 2c 6a 3b 0a 0a 20 20 20 ┆am(1:2); integer i,j; ┆
0x8d560…8d57a 20 20 20 6c 69 73 74 3a 3d 66 61 6c 73 65 3b 0a 20 20 20 20 20 20 6a 3a 3d 31 ┆ list:=false; j:=1┆
0x8d57a…8d580 (0x3ec,0x11ac)
0x8d580…8d5a0 3b 0a 20 20 20 20 20 20 69 3a 3d 73 79 73 74 65 6d 28 34 2c 31 2c 70 61 72 61 6d 29 3b 0a 20 20 ┆; i:=system(4,1,param); ┆
0x8d5a0…8d5c0 20 20 20 20 69 66 20 69 20 73 68 69 66 74 20 28 2d 31 32 29 3d 36 20 74 68 65 6e 20 3c 2a 20 6c ┆ if i shift (-12)=6 then <* l┆
0x8d5c0…8d5e0 65 66 74 20 68 61 6e 64 20 73 69 64 65 20 2a 3e 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 ┆eft hand side *> begin ┆
0x8d5e0…8d600 20 20 20 20 20 20 6a 3a 3d 32 3b 0a 20 20 20 20 20 20 20 20 20 6f 75 74 00 00 00 00 00 00 00 00 ┆ j:=2; out ┆
0x8d600…8d606 (1131,) (0x3ec,0x11ad)
0x8d606…8d620 70 3a 3d 74 72 75 65 3b 0a 20 20 20 20 20 20 20 20 20 73 79 73 74 65 6d 28 34 ┆p:=true; system(4┆
0x8d620…8d640 2c 30 2c 70 61 72 61 6d 29 3b 0a 20 20 20 20 20 20 20 20 20 6f 75 74 6e 61 6d 65 28 31 29 3a 3d ┆,0,param); outname(1):=┆
0x8d640…8d660 70 61 72 61 6d 28 31 29 3b 0a 20 20 20 20 20 20 20 20 20 6f 75 74 6e 61 6d 65 28 32 29 3a 3d 70 ┆param(1); outname(2):=p┆
0x8d660…8d67e 61 72 61 6d 28 32 29 0a 20 20 20 20 20 20 65 6e 64 20 65 6c 73 65 0a 20 20 20 20 20 20 20 ┆aram(2) end else ┆
0x8d67e…8d684 (0x3ec,0x11ae)
0x8d684…8d6a0 20 20 6f 75 74 70 3a 3d 66 61 6c 73 65 3b 0a 0a 20 20 20 20 20 20 69 3a 3d 73 79 73 ┆ outp:=false; i:=sys┆
0x8d6a0…8d6c0 74 65 6d 28 34 2c 6a 2c 70 61 72 61 6d 29 3b 0a 20 20 20 20 20 20 69 66 20 69 3c 3e 34 20 73 68 ┆tem(4,j,param); if i<>4 sh┆
0x8d6c0…8d6e0 69 66 74 20 31 32 20 61 64 64 20 31 30 20 3c 2a 20 3c 73 70 3e 3c 74 65 78 74 3e 20 2a 3e 20 74 ┆ift 12 add 10 <* <sp><text> *> t┆
0x8d6e0…8d6fc 68 65 6e 0a 20 20 20 20 20 20 20 20 20 65 72 72 6f 72 28 69 66 20 69 3d 30 20 74 68 ┆hen error(if i=0 th┆
0x8d6fc…8d702 (0x3ec,0x11af)
0x8d702…8d720 65 6e 20 3c 3a 6e 6f 20 69 6e 70 75 74 20 66 69 6c 65 3a 3e 20 65 6c 73 65 20 3c 3a 70 61 ┆en <:no input file:> else <:pa┆
0x8d720…8d740 72 61 6d 3a 3e 2c 69 2c 70 61 72 61 6d 29 3b 0a 20 20 20 20 20 20 69 6e 6e 61 6d 65 28 31 29 3a ┆ram:>,i,param); inname(1):┆
0x8d740…8d760 3d 70 61 72 61 6d 28 31 29 3b 0a 20 20 20 20 20 20 69 6e 6e 61 6d 65 28 32 29 3a 3d 70 61 72 61 ┆=param(1); inname(2):=para┆
0x8d760…8d77a 6d 28 32 29 3b 0a 0a 20 20 20 20 20 20 6a 3a 3d 6a 2b 31 3b 0a 20 20 20 20 20 ┆m(2); j:=j+1; ┆
0x8d77a…8d780 (0x3ec,0x11b0)
0x8d780…8d7a0 20 69 3a 3d 73 79 73 74 65 6d 28 34 2c 6a 2c 70 61 72 61 6d 29 3b 0a 20 20 20 20 20 20 69 66 20 ┆ i:=system(4,j,param); if ┆
0x8d7a0…8d7c0 69 3c 3e 30 20 74 68 65 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 69 ┆i<>0 then begin i┆
0x8d7c0…8d7e0 66 20 69 3c 3e 34 20 73 68 69 66 74 20 31 32 20 61 64 64 20 31 30 20 3c 2a 20 3c 73 70 3e 3c 74 ┆f i<>4 shift 12 add 10 <* <sp><t┆
0x8d7e0…8d800 65 78 74 3e 20 2a 3e 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ext> *> then ┆
0x8d800…8d806 (1132,) (0x3ec,0x11b1)
0x8d806…8d820 20 65 72 72 6f 72 28 3c 3a 70 61 72 61 6d 3a 3e 2c 69 2c 70 61 72 61 6d 29 3b ┆ error(<:param:>,i,param);┆
0x8d820…8d840 0a 20 20 20 20 20 20 20 20 20 69 66 20 70 61 72 61 6d 28 31 29 3c 3e 72 65 61 6c 20 3c 3a 6c 69 ┆ if param(1)<>real <:li┆
0x8d840…8d860 73 74 3a 3e 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 72 72 6f 72 28 3c 3a 69 6c ┆st:> then error(<:il┆
0x8d860…8d87e 6c 65 67 61 6c 20 70 61 72 61 6d 65 74 65 72 20 6e 61 6d 65 3a 3e 2c 69 2c 70 61 72 61 6d ┆legal parameter name:>,i,param┆
0x8d87e…8d884 (0x3ec,0x11b2)
0x8d884…8d8a0 29 3b 0a 20 20 20 20 20 20 20 20 20 69 3a 3d 73 79 73 74 65 6d 28 34 2c 6a 2b 31 2c ┆); i:=system(4,j+1,┆
0x8d8a0…8d8c0 70 61 72 61 6d 29 3b 0a 20 20 20 20 20 20 20 20 20 69 66 20 69 3c 3e 38 20 73 68 69 66 74 20 31 ┆param); if i<>8 shift 1┆
0x8d8c0…8d8e0 32 20 61 64 64 20 31 30 20 3c 2a 20 2e 3c 74 65 78 74 3e 20 2a 3e 20 74 68 65 6e 0a 20 20 20 20 ┆2 add 10 <* .<text> *> then ┆
0x8d8e0…8d8fc 20 20 20 20 20 20 20 20 65 72 72 6f 72 28 3c 3a 70 61 72 61 6d 3a 3e 2c 69 2c 70 61 ┆ error(<:param:>,i,pa┆
0x8d8fc…8d902 (0x3ec,0x11b3)
0x8d902…8d920 72 61 6d 29 3b 0a 20 20 20 20 20 20 20 20 20 6c 69 73 74 3a 3d 70 61 72 61 6d 28 31 29 3d ┆ram); list:=param(1)=┆
0x8d920…8d940 72 65 61 6c 20 3c 3a 79 65 73 3a 3e 0a 20 20 20 20 20 20 65 6e 64 0a 0a 20 20 20 65 6e 64 3b 20 ┆real <:yes:> end end; ┆
0x8d940…8d960 3c 2a 20 72 65 61 64 20 70 61 72 61 6d 73 20 2a 3e 0a 0c 0a 20 20 20 70 72 6f 63 65 64 75 72 65 ┆<* read params *> procedure┆
0x8d960…8d97a 20 64 6f 5f 69 74 28 7a 29 3b 0a 20 20 20 7a 6f 6e 65 20 7a 3b 0a 0a 20 20 20 ┆ do_it(z); zone z; ┆
0x8d97a…8d980 (0x3ec,0x11b4)
0x8d980…8d9a0 20 20 20 77 68 69 6c 65 20 67 65 74 72 65 63 28 74 72 61 6e 73 70 6f 72 74 2c 38 32 29 20 64 6f ┆ while getrec(transport,82) do┆
0x8d9a0…8d9c0 0a 20 20 20 20 20 20 20 20 20 69 66 20 74 72 61 6e 73 70 6f 72 74 2e 74 72 5f 72 65 6d 6f 76 65 ┆ if transport.tr_remove┆
0x8d9c0…8d9e0 74 69 6d 65 3e 38 33 38 38 36 30 35 20 74 68 65 6e 20 3c 2a 20 6e 6f 74 20 65 78 65 63 75 74 65 ┆time>8388605 then <* not execute┆
0x8d9e0…8da00 64 20 2a 3e 0a 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 00 00 00 00 00 00 00 00 ┆d *> begin ┆
0x8da00…8da06 (1133,) (0x3ec,0x11b5)
0x8da06…8da20 20 20 20 20 20 20 20 20 69 66 20 6c 69 73 74 20 74 68 65 6e 20 77 72 69 74 65 ┆ if list then write┆
0x8da20…8da40 5f 74 72 61 6e 73 70 6f 72 74 28 7a 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 73 74 61 72 74 ┆_transport(z); start┆
0x8da40…8da60 5f 74 72 61 6e 73 70 6f 72 74 28 7a 29 0a 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 0a 20 20 20 ┆_transport(z) end; ┆
0x8da60…8da7e 3c 2a 20 62 65 67 69 6e 20 6f 66 20 6d 61 69 6e 20 70 72 6f 67 72 61 6d 20 2a 3e 0a 0a 20 ┆<* begin of main program *> ┆
0x8da7e…8da84 (0x3ec,0x11b6)
0x8da84…8daa0 20 20 69 6e 69 74 5f 66 69 65 6c 64 73 3b 0a 20 20 20 72 65 61 64 5f 70 61 72 61 6d ┆ init_fields; read_param┆
0x8daa0…8dac0 73 3b 0a 20 20 20 6f 70 65 6e 28 63 61 74 62 61 73 65 2c 30 2c 3c 3a 3a 3e 2c 30 29 3b 20 3c 2a ┆s; open(catbase,0,<::>,0); <*┆
0x8dac0…8dae0 20 66 6f 72 20 73 65 74 20 63 61 74 61 6c 6f 67 20 62 61 73 65 20 2a 3e 0a 20 20 20 63 6c 6f 73 ┆ for set catalog base *> clos┆
0x8dae0…8dafc 65 28 63 61 74 62 61 73 65 2c 74 72 75 65 29 3b 0a 20 20 20 3c 2a 20 73 61 76 65 20 ┆e(catbase,true); <* save ┆
0x8dafc…8db02 (0x3ec,0x11b7)
0x8db02…8db20 63 61 74 61 6c 6f 67 20 62 61 73 65 73 20 6f 66 20 75 73 65 72 73 20 70 72 6f 63 65 73 73 ┆catalog bases of users process┆
0x8db20…8db40 20 2a 3e 0a 20 20 20 73 79 73 74 65 6d 28 31 31 29 62 61 73 65 73 3a 28 30 2c 69 61 29 3b 0a 20 ┆ *> system(11)bases:(0,ia); ┆
0x8db40…8db60 20 20 73 61 76 65 64 62 61 73 65 28 31 29 3a 3d 69 61 28 31 29 3b 0a 20 20 20 73 61 76 65 64 62 ┆ savedbase(1):=ia(1); savedb┆
0x8db60…8db7a 61 73 65 28 32 29 3a 3d 69 61 28 32 29 3b 0a 0a 20 20 20 69 66 20 6f 75 74 70 ┆ase(2):=ia(2); if outp┆
0x8db7a…8db80 (0x3ec,0x11b8)
0x8db80…8dba0 20 74 68 65 6e 20 63 6f 6e 6e 65 63 74 5f 6f 75 74 70 75 74 3b 0a 0a 20 20 20 6f 70 65 6e 28 74 ┆ then connect_output; open(t┆
0x8dba0…8dbc0 72 61 6e 73 70 6f 72 74 2c 34 2c 69 6e 6e 61 6d 65 2c 30 29 3b 0a 20 20 20 69 66 20 6d 6f 6e 69 ┆ransport,4,inname,0); if moni┆
0x8dbc0…8dbe0 74 6f 72 28 35 32 29 63 72 65 61 74 65 20 61 72 65 61 20 70 72 6f 63 65 73 73 3a 28 74 72 61 6e ┆tor(52)create area process:(tran┆
0x8dbe0…8dc00 73 70 6f 72 74 2c 30 2c 69 61 29 3c 3e 30 20 74 68 65 6e 0a 20 20 20 20 00 00 00 00 00 00 00 00 ┆sport,0,ia)<>0 then ┆
0x8dc00…8dc06 (1134,) (0x3ec,0x11b9)
0x8dc06…8dc20 20 20 65 72 72 6f 72 28 3c 3a 63 6f 6e 6e 65 63 74 20 69 6e 70 75 74 20 6e 6f ┆ error(<:connect input no┆
0x8dc20…8dc40 74 20 70 6f 73 73 69 62 6c 65 3a 3e 2c 34 20 73 68 69 66 74 20 31 32 20 61 64 64 20 31 30 2c 69 ┆t possible:>,4 shift 12 add 10,i┆
0x8dc40…8dc60 6e 6e 61 6d 65 29 3b 0a 0a 20 20 20 69 66 20 6f 75 74 70 20 74 68 65 6e 20 64 6f 5f 69 74 28 6f ┆nname); if outp then do_it(o┆
0x8dc60…8dc7e 75 74 70 75 74 29 20 65 6c 73 65 20 64 6f 5f 69 74 28 6f 75 74 29 3b 0a 0a 73 74 6f 70 3a ┆utput) else do_it(out); stop:┆
0x8dc7e…8dc84 (0x3ec,0x11ba)
0x8dc84…8dca0 0a 20 20 20 69 66 20 6f 75 74 70 20 74 68 65 6e 0a 20 20 20 62 65 67 69 6e 0a 20 20 ┆ if outp then begin ┆
0x8dca0…8dcc0 20 20 20 20 6f 75 74 63 68 61 72 28 6f 75 74 70 75 74 2c 32 35 29 3b 0a 20 20 20 20 20 20 63 6c ┆ outchar(output,25); cl┆
0x8dcc0…8dce0 6f 73 65 28 6f 75 74 70 75 74 2c 66 61 6c 73 65 29 3b 0a 20 20 20 20 20 20 67 65 74 7a 6f 6e 65 ┆ose(output,false); getzone┆
0x8dce0…8dcfc 36 28 6f 75 74 70 75 74 2c 69 61 29 3b 0a 20 20 20 20 20 20 69 3a 3d 69 61 28 39 29 ┆6(output,ia); i:=ia(9)┆
0x8dcfc…8dd02 (0x3ec,0x11bb)
0x8dd02…8dd20 3b 0a 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 34 32 29 6c 6f 6f 6b 75 70 20 65 6e 74 72 ┆; monitor(42)lookup entr┆
0x8dd20…8dd40 79 3a 28 6f 75 74 70 75 74 2c 30 2c 69 61 29 3b 0a 20 20 20 20 20 20 69 61 28 31 29 3a 3d 69 3b ┆y:(output,0,ia); ia(1):=i;┆
0x8dd40…8dd60 0a 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 34 34 29 63 68 61 6e 67 65 20 65 6e 74 72 79 3a 28 ┆ monitor(44)change entry:(┆
0x8dd60…8dd7a 6f 75 74 70 75 74 2c 30 2c 69 61 29 0a 20 20 20 65 6e 64 3b 0a 0a 20 20 20 63 ┆output,0,ia) end; c┆
0x8dd7a…8dd80 (0x3ec,0x11bc)
0x8dd80…8dda0 6c 6f 73 65 28 74 72 61 6e 73 70 6f 72 74 2c 74 72 75 65 29 3b 0a 20 20 20 3c 2a 20 72 65 73 74 ┆lose(transport,true); <* rest┆
0x8dda0…8ddc0 6f 72 65 20 63 61 74 61 6c 6f 67 20 62 61 73 65 20 6f 66 20 75 73 65 72 73 20 70 72 6f 63 65 73 ┆ore catalog base of users proces┆
0x8ddc0…8dde0 73 20 2a 3e 0a 20 20 20 6d 6f 6e 69 74 6f 72 28 37 32 29 73 65 74 20 63 61 74 61 6c 6f 67 20 62 ┆s *> monitor(72)set catalog b┆
0x8dde0…8de00 61 73 65 3a 28 63 61 74 62 61 73 65 2c 30 2c 73 61 76 65 64 62 61 73 65 00 00 00 00 00 00 00 00 ┆ase:(catbase,0,savedbase ┆
0x8de00…8de06 (1135,) (0x3ec,0x11bd)
0x8de06…8de20 29 3b 0a 20 20 20 74 72 61 70 6d 6f 64 65 3a 3d 2d 31 0a 0a 65 6e 64 0a 0a 3b ┆); trapmode:=-1 end ;┆
0x8de20…8de40 20 65 6e 64 20 6f 66 20 66 69 6c 65 0a 0a 65 6e 64 20 3b 20 75 74 69 6c 69 74 79 20 65 6e 64 0a ┆ end of file end ; utility end ┆
0x8de40…8de60 19 00 73 20 6f 66 20 75 73 65 72 73 20 70 72 6f 63 65 73 73 20 2a 3e 0a 20 20 20 73 79 73 74 65 ┆ s of users process *> syste┆
0x8de60…8de7e 6d 28 31 31 29 62 61 73 65 73 3a 28 30 2c 69 61 29 3b 0a 20 20 20 73 61 76 65 64 62 61 73 ┆m(11)bases:(0,ia); savedbas┆
0x8de7e…8de84 (0x3ec,0x11be)
0x8de84…8dea0 65 28 31 29 3a 3d 69 61 28 31 29 3b 0a 20 20 20 73 61 76 65 64 62 61 73 65 28 32 29 ┆e(1):=ia(1); savedbase(2)┆
0x8dea0…8dec0 3a 3d 69 61 28 32 29 3b 0a 0a 20 20 20 69 66 20 6f 75 74 70 20 74 68 65 6e 20 63 6f 6e 6e 65 63 ┆:=ia(2); if outp then connec┆
0x8dec0…8dee0 74 5f 6f 75 74 70 75 74 3b 0a 0a 20 20 20 6f 70 65 6e 28 74 72 61 6e 73 70 6f 72 74 2c 34 2c 69 ┆t_output; open(transport,4,i┆
0x8dee0…8defc 6e 6e 61 6d 65 2c 30 29 3b 0a 20 20 20 69 66 20 6d 6f 6e 69 74 6f 72 28 35 32 29 63 ┆nname,0); if monitor(52)c┆
0x8defc…8df02 (0x3ec,0x11bf)
0x8df02…8df20 72 65 61 74 65 20 61 72 65 61 20 70 72 6f 63 65 73 73 3a 28 74 72 61 6e 73 70 6f 72 74 2c ┆reate area process:(transport,┆
0x8df20…8df40 30 2c 69 61 29 3c 3e 30 20 74 68 65 6e 0a 20 20 20 20 20 20 65 72 72 6f 72 28 3c 3a 63 6f 6e 6e ┆0,ia)<>0 then error(<:conn┆
0x8df40…8df60 65 63 74 20 69 6e 70 75 74 20 6e 6f 74 20 70 6f 73 73 69 62 6c 65 3a 3e 2c 34 20 73 68 69 66 74 ┆ect input not possible:>,4 shift┆
0x8df60…8df7a 20 31 32 20 61 64 64 20 31 30 2c 69 6e 6e 61 6d 65 29 3b 0a 0a 20 20 20 69 66 ┆ 12 add 10,inname); if┆
0x8df7a…8df80 (0x3ec,0x11c0)
0x8df80…8dfa0 20 6f 75 74 70 20 74 68 65 6e 20 64 6f 5f 69 74 28 6f 75 74 70 75 74 29 20 65 6c 73 65 20 64 6f ┆ outp then do_it(output) else do┆
0x8dfa0…8dfc0 5f 69 74 28 6f 75 74 29 3b 0a 0a 73 74 6f 70 3a 0a 20 20 20 69 66 20 6f 75 74 70 20 74 68 65 6e ┆_it(out); stop: if outp then┆
0x8dfc0…8dfe0 0a 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 6f 75 74 63 68 61 72 28 6f 75 74 70 75 74 2c 32 ┆ begin outchar(output,2┆
0x8dfe0…8e000 35 29 3b 0a 20 20 20 20 20 20 63 6c 6f 73 65 28 6f 75 74 70 75 74 2c 66 00 00 00 00 00 00 00 00 ┆5); close(output,f ┆
0x8e000…8e006 (1136,) (0x3ec,0x11c1)
0x8e006…8e020 61 6c 73 65 29 3b 0a 20 20 20 20 20 20 67 65 74 7a 6f 6e 65 36 28 6f 75 74 70 ┆alse); getzone6(outp┆
0x8e020…8e040 75 74 2c 69 61 29 3b 0a 20 20 20 20 20 20 69 3a 3d 69 61 28 39 29 3b 0a 20 20 20 20 20 20 6d 6f ┆ut,ia); i:=ia(9); mo┆
0x8e040…8e060 6e 69 74 6f 72 28 34 32 29 6c 6f 6f 6b 75 70 20 65 6e 74 72 79 3a 28 6f 75 74 70 75 74 2c 30 2c ┆nitor(42)lookup entry:(output,0,┆
0x8e060…8e07e 69 61 29 3b 0a 20 20 20 20 20 20 69 61 28 31 29 3a 3d 69 3b 0a 20 20 20 20 20 20 6d 6f 6e ┆ia); ia(1):=i; mon┆
0x8e07e…8e084 (0x3ec,0x11c2)
0x8e084…8e0a0 69 74 6f 72 28 34 34 29 63 68 61 6e 67 65 20 65 6e 74 72 79 3a 28 6f 75 74 70 75 74 ┆itor(44)change entry:(output┆
0x8e0a0…8e0c0 2c 30 2c 69 61 29 0a 20 20 20 65 6e 64 3b 0a 0a 20 20 20 63 6c 6f 73 65 28 74 72 61 6e 73 70 6f ┆,0,ia) end; close(transpo┆
0x8e0c0…8e0e0 72 74 2c 74 72 75 65 29 3b 0a 20 20 20 3c 2a 20 72 65 73 74 6f 72 65 20 63 61 74 61 6c 6f 67 20 ┆rt,true); <* restore catalog ┆
0x8e0e0…8e0fc 62 61 73 65 20 6f 66 20 75 73 65 72 73 20 70 72 6f 63 65 73 73 20 2a 3e 0a 20 20 20 ┆base of users process *> ┆
0x8e0fc…8e102 (0x3ec,0x11c3)
0x8e102…8e120 6d 6f 6e 69 74 6f 72 28 37 32 29 73 65 74 20 63 61 74 61 6c 6f 67 20 62 61 73 65 3a 28 63 ┆monitor(72)set catalog base:(c┆
0x8e120…8e140 61 74 62 61 73 65 2c 30 2c 73 61 76 65 64 62 61 73 65 29 3b 0a 20 20 20 74 72 61 70 6d 6f 64 65 ┆atbase,0,savedbase); trapmode┆
0x8e140…8e160 3a 3d 2d 31 0a 0a 65 6e 64 0a 0a 3b 20 65 6e 64 20 6f 66 20 66 69 6c 65 0a 0a 65 6e 64 20 3b 20 ┆:=-1 end ; end of file end ; ┆
0x8e160…8e17a 75 74 74 70 75 74 2c 30 2c 69 61 29 0a 20 20 20 65 6e 64 3b 0a 0a 20 20 20 63 ┆uttput,0,ia) end; c┆
0x8e17a…8e180 (0x450,0x11c4)
0x8e180…8e1a0 21 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 2a 20 20 74 73 6f 73 20 20 2a 2a 2a 0a 3b 0a 3b ┆! *** tsos *** ; ;┆
0x8e1a0…8e1c0 0a 3b 20 73 77 6f 70 70 69 6e 67 20 6f 6e 6c 69 6e 65 20 73 79 73 74 65 6d 20 66 6f 72 20 65 78 ┆ ; swopping online system for ex┆
0x8e1c0…8e1e0 65 63 75 74 69 6f 6e 20 6f 66 20 61 20 6e 75 6d 62 65 72 20 6f 66 20 69 6e 74 65 72 61 63 74 69 ┆ecution of a number of interacti┆
0x8e1e0…8e200 76 65 20 70 72 6f 63 65 73 73 65 73 0a 3b 20 69 6e 20 74 68 65 20 73 61 00 00 00 00 00 00 00 00 ┆ve processes ; in the sa ┆
0x8e200…8e206 (1137,) (0x450,0x11c5)
0x8e206…8e220 6d 65 20 70 69 65 63 65 20 6f 66 20 63 6f 72 65 0a 3b 0a 3b 20 72 65 6c 65 61 ┆me piece of core ; ; relea┆
0x8e220…8e240 73 65 20 33 2e 30 20 6d 61 72 2e 20 31 39 38 32 20 6b 6e 75 64 20 63 68 72 69 73 74 65 6e 73 65 ┆se 3.0 mar. 1982 knud christense┆
0x8e240…8e260 6e 2c 20 65 64 69 74 68 20 72 6f 73 65 6e 62 65 72 67 2c 20 66 6c 65 6d 6d 69 6e 67 20 62 69 67 ┆n, edith rosenberg, flemming big┆
0x8e260…8e27e 67 61 73 0a 3b 20 72 65 6c 65 61 73 65 20 33 2e 31 20 61 75 67 2e 20 31 39 38 32 20 66 6c ┆gas ; release 3.1 aug. 1982 fl┆
0x8e27e…8e284 (0x450,0x11c6)
0x8e284…8e2a0 65 6d 6d 69 6e 67 20 62 69 67 67 61 73 0a 3b 20 72 65 6c 65 61 73 65 20 33 2e 32 20 ┆emming biggas ; release 3.2 ┆
0x8e2a0…8e2c0 61 70 72 2e 20 31 39 38 33 20 66 6c 65 6d 6d 69 6e 67 20 62 69 67 67 61 73 0a 3b 20 72 65 6c 65 ┆apr. 1983 flemming biggas ; rele┆
0x8e2c0…8e2e0 61 73 65 20 33 2e 33 20 61 75 67 2e 20 31 39 38 34 20 66 6c 65 6d 6d 69 6e 67 20 62 69 67 67 61 ┆ase 3.3 aug. 1984 flemming bigga┆
0x8e2e0…8e2fc 73 0a 3b 20 72 65 6c 65 61 73 65 20 34 2e 30 20 61 75 67 2e 20 31 39 38 35 20 66 6c ┆s ; release 4.0 aug. 1985 fl┆
0x8e2fc…8e302 (0x450,0x11c7)
0x8e302…8e320 65 6d 6d 69 6e 67 20 62 69 67 67 61 73 20 28 6d 70 20 72 65 6c 65 61 73 65 29 2e 0a 21 0a ┆emming biggas (mp release). ! ┆
0x8e320…8e340 0a 6f 6e 6c 69 6e 65 73 79 73 74 65 6d 0a 62 65 67 69 6e 0a 20 20 21 66 70 2e 6e 6f 3b 0a 20 20 ┆ onlinesystem begin !fp.no; ┆
0x8e340…8e360 21 62 72 61 6e 63 68 20 31 2c 32 3b 0a 20 20 21 73 65 63 74 69 6f 6e 73 20 33 35 3b 0a 0a 70 72 ┆!branch 1,2; !sections 35; pr┆
0x8e360…8e37a 6f 63 65 64 75 72 65 20 70 72 65 70 61 72 65 28 2e 77 33 2e 29 3b 0a 63 6f 6d ┆ocedure prepare(.w3.); com┆
0x8e37a…8e380 (0x450,0x11c8)
0x8e380…8e3a0 6d 65 6e 74 20 70 72 65 70 61 72 65 20 70 72 6f 63 65 73 73 20 74 6f 20 62 65 20 61 63 74 69 76 ┆ment prepare process to be activ┆
0x8e3a0…8e3c0 61 74 65 64 3b 0a 0a 70 72 6f 63 65 64 75 72 65 20 77 61 69 74 65 76 65 6e 74 28 2e 77 33 2e 3b ┆ated; procedure waitevent(.w3.;┆
0x8e3c0…8e3e0 77 30 3b 77 31 3b 77 32 29 3b 0a 63 6f 6d 6d 65 6e 74 20 63 61 6c 6c 3a 20 20 20 77 30 20 69 72 ┆w0;w1;w2); comment call: w0 ir┆
0x8e3e0…8e400 72 65 6c 65 76 61 6e 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆relevant ┆
0x8e400…8e406 (1138,) (0x450,0x11c9)
0x8e406…8e420 20 77 31 20 69 72 72 65 6c 65 76 61 6e 74 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ w1 irrelevant ┆
0x8e420…8e440 20 20 20 20 20 77 32 20 69 72 72 65 6c 65 76 61 6e 74 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 ┆ w2 irrelevant retur┆
0x8e440…8e460 6e 3a 20 77 30 20 65 76 65 6e 74 20 6b 69 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆n: w0 event kind ┆
0x8e460…8e47e 20 77 31 20 61 62 73 20 72 65 66 20 75 73 65 72 65 6e 74 72 79 0a 20 20 20 20 20 20 20 20 ┆ w1 abs ref userentry ┆
0x8e47e…8e484 (0x450,0x11ca)
0x8e484…8e4a0 20 20 20 20 20 20 20 20 77 32 20 61 62 73 20 72 65 66 20 65 76 65 6e 74 62 75 66 66 ┆ w2 abs ref eventbuff┆
0x8e4a0…8e4c0 65 72 0a 3b 0a 0a 70 72 6f 63 65 64 75 72 65 20 75 6e 69 6e 74 65 6c 6c 69 67 69 62 6c 65 28 2e ┆er ; procedure unintelligible(.┆
0x8e4c0…8e4e0 77 33 2e 3b 77 31 29 3b 0a 63 6f 6d 6d 65 6e 74 20 63 61 6c 6c 3a 20 20 20 77 31 20 61 62 73 20 ┆w3.;w1); comment call: w1 abs ┆
0x8e4e0…8e4fc 72 65 66 20 75 73 65 72 65 6e 74 72 79 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 6e ┆ref userentry return┆
0x8e4fc…8e502 (0x450,0x11cb)
0x8e502…8e520 3a 20 61 6c 6c 20 72 65 67 69 73 74 65 72 73 20 75 6e 63 68 61 6e 67 65 64 0a 3b 0a 0a 70 ┆: all registers unchanged ; p┆
0x8e520…8e540 72 6f 63 65 64 75 72 65 20 73 65 6e 64 5f 70 72 69 6d 6f 28 2e 77 33 2e 3b 77 31 3b 77 32 29 3b ┆rocedure send_primo(.w3.;w1;w2);┆
0x8e540…8e560 0a 63 6f 6d 6d 65 6e 74 20 63 61 6c 6c 3a 20 20 20 20 77 31 20 61 62 73 20 72 65 66 20 75 73 65 ┆ comment call: w1 abs ref use┆
0x8e560…8e57a 72 65 6e 74 72 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 32 ┆rentry w2┆
0x8e57a…8e580 (0x450,0x11cc)
0x8e580…8e5a0 20 61 62 73 20 72 65 66 20 6d 65 73 73 61 67 65 20 73 65 6e 74 20 74 6f 20 70 73 65 75 64 6f 20 ┆ abs ref message sent to pseudo ┆
0x8e5a0…8e5c0 70 72 6f 63 65 73 73 20 70 72 69 6d 6f 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 3a 20 20 77 ┆process primo return: w┆
0x8e5c0…8e5e0 31 20 61 62 73 20 72 65 66 20 75 73 65 72 65 6e 74 72 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆1 abs ref userentry ┆
0x8e5e0…8e600 20 20 20 20 20 77 32 20 61 62 73 20 72 65 66 20 6d 65 73 73 61 67 65 20 00 00 00 00 00 00 00 00 ┆ w2 abs ref message ┆
0x8e600…8e606 (1139,) (0x450,0x11cd)
0x8e606…8e620 73 65 6e 74 20 74 6f 20 70 72 69 6d 6f 20 28 72 65 61 6c 20 70 72 6f 63 65 73 ┆sent to primo (real proces┆
0x8e620…8e640 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 33 20 6f 6c 64 20 77 32 20 28 66 ┆s) w3 old w2 (f┆
0x8e640…8e660 72 6f 6d 20 63 61 6c 6c 29 0a 3b 0a 0a 70 72 6f 63 65 64 75 72 65 20 70 72 69 6d 65 73 73 28 2e ┆rom call) ; procedure primess(.┆
0x8e660…8e67e 77 33 2e 29 3b 0a 0a 0a 70 72 6f 63 65 64 75 72 65 20 73 65 6e 64 28 2e 77 33 2e 3b 77 30 ┆w3.); procedure send(.w3.;w0┆
0x8e67e…8e684 (0x450,0x11ce)
0x8e684…8e6a0 3b 77 31 3b 77 32 29 3b 0a 63 6f 6d 6d 65 6e 74 20 63 61 6c 6c 3a 20 20 20 77 30 20 ┆;w1;w2); comment call: w0 ┆
0x8e6a0…8e6c0 6b 69 6e 64 20 6f 66 20 65 76 65 6e 74 20 74 6f 20 62 65 20 73 65 6e 64 0a 20 20 20 20 20 20 20 ┆kind of event to be send ┆
0x8e6c0…8e6e0 20 20 20 20 20 20 20 20 20 77 31 20 61 62 73 20 72 65 66 20 75 73 65 72 65 6e 74 72 79 0a 20 20 ┆ w1 abs ref userentry ┆
0x8e6e0…8e6fc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 32 20 66 69 72 73 74 20 77 6f 72 64 20 ┆ w2 first word ┆
0x8e6fc…8e702 (0x450,0x11cf)
0x8e702…8e720 6f 66 20 6d 65 73 73 61 67 65 20 6f 72 20 61 6e 73 77 65 72 0a 20 20 20 20 20 20 20 20 72 ┆of message or answer r┆
0x8e720…8e740 65 74 75 72 6e 3a 20 2d 2d 20 61 6c 6c 20 72 65 67 69 73 74 65 72 73 20 75 6e 63 68 61 6e 67 65 ┆eturn: -- all registers unchange┆
0x8e740…8e760 64 0a 3b 0a 0a 70 72 6f 63 65 64 75 72 65 20 6c 69 6e 6b 28 2e 77 33 2e 3b 77 31 3b 77 32 29 3b ┆d ; procedure link(.w3.;w1;w2);┆
0x8e760…8e77a 0a 63 6f 6d 6d 65 6e 74 20 63 61 6c 6c 3a 20 20 20 77 31 20 61 62 73 20 72 65 ┆ comment call: w1 abs re┆
0x8e77a…8e780 (0x450,0x11d0)
0x8e780…8e7a0 66 20 75 73 65 72 65 6e 74 72 79 20 74 6f 20 62 65 20 6c 69 6e 6b 65 64 0a 20 20 20 20 20 20 20 ┆f userentry to be linked ┆
0x8e7a0…8e7c0 20 20 20 20 20 20 20 20 20 77 32 20 61 62 73 20 72 65 66 20 75 73 65 72 65 6e 74 72 79 20 61 66 ┆ w2 abs ref userentry af┆
0x8e7c0…8e7e0 74 65 72 20 77 68 69 63 68 20 74 6f 20 6c 69 6e 6b 20 77 31 0a 20 20 20 20 20 20 20 20 72 65 74 ┆ter which to link w1 ret┆
0x8e7e0…8e800 75 72 6e 3a 20 77 31 20 75 6e 63 68 61 6e 67 65 64 0a 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆urn: w1 unchanged ┆
0x8e800…8e806 (1140,) (0x450,0x11d1)
0x8e806…8e820 20 20 20 20 20 20 20 20 20 20 77 32 20 75 6e 63 68 61 6e 67 65 64 0a 3b 0a 0a ┆ w2 unchanged ; ┆
0x8e820…8e840 70 72 6f 63 65 64 75 72 65 20 73 77 6f 70 28 2e 77 33 2e 3b 77 31 29 3b 0a 63 6f 6d 6d 65 6e 74 ┆procedure swop(.w3.;w1); comment┆
0x8e840…8e860 20 63 61 6c 6c 3a 20 20 20 77 31 20 61 62 73 20 72 65 66 20 75 73 65 72 65 6e 74 72 79 20 6f 66 ┆ call: w1 abs ref userentry of┆
0x8e860…8e87e 20 70 72 6f 63 65 73 73 20 74 6f 20 62 65 20 73 77 6f 70 70 65 64 20 69 6e 0a 20 20 20 20 ┆ process to be swopped in ┆
0x8e87e…8e884 (0x450,0x11d2)
0x8e884…8e8a0 20 20 20 20 72 65 74 75 72 6e 3a 20 77 31 20 75 6e 63 68 61 6e 67 65 64 0a 3b 0a 0a ┆ return: w1 unchanged ; ┆
0x8e8a0…8e8c0 70 72 6f 63 65 64 75 72 65 20 63 6f 70 79 28 2e 77 33 2e 3b 77 30 3b 77 31 3b 77 32 29 3b 0a 63 ┆procedure copy(.w3.;w0;w1;w2); c┆
0x8e8c0…8e8e0 6f 6d 6d 65 6e 74 20 63 61 6c 6c 3a 20 20 20 77 30 20 6e 6f 20 6f 66 20 62 79 74 65 73 20 74 6f ┆omment call: w0 no of bytes to┆
0x8e8e0…8e8fc 20 63 6f 70 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 20 61 62 73 ┆ copy w1 abs┆
0x8e8fc…8e902 (0x450,0x11d3)
0x8e902…8e920 20 66 72 6f 6d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 32 20 61 62 73 20 74 ┆ from w2 abs t┆
0x8e920…8e940 6f 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 3a 20 2d 2d 20 61 6c 6c 20 72 65 67 69 73 74 65 ┆o return: -- all registe┆
0x8e940…8e960 72 73 20 75 6e 63 68 61 6e 67 65 64 0a 3b 0a 0a 70 72 6f 63 65 64 75 72 65 20 73 74 61 72 74 73 ┆rs unchanged ; procedure starts┆
0x8e960…8e97a 74 6f 70 28 2e 77 33 2e 3b 77 30 3b 77 31 29 3b 0a 63 6f 6d 6d 65 6e 74 20 63 ┆top(.w3.;w0;w1); comment c┆
0x8e97a…8e980 (0x450,0x11d4)
0x8e980…8e9a0 61 6c 6c 3a 20 20 20 77 30 20 62 6f 6f 6c 65 61 6e 20 73 74 6f 70 20 6f 72 20 73 74 61 72 74 20 ┆all: w0 boolean stop or start ┆
0x8e9a0…8e9c0 70 72 6f 63 65 73 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 20 61 62 73 20 72 ┆process w1 abs r┆
0x8e9c0…8e9e0 65 66 20 75 73 65 72 65 6e 74 72 79 20 6f 66 20 70 72 6f 63 65 73 73 20 74 6f 20 73 74 61 72 74 ┆ef userentry of process to start┆
0x8e9e0…8ea00 2d 73 74 6f 70 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 3a 20 2d 2d 00 00 00 00 00 00 00 00 ┆-stop return: -- ┆
0x8ea00…8ea06 (1141,) (0x450,0x11d5)
0x8ea06…8ea20 20 61 6c 6c 20 72 65 67 69 73 74 65 72 73 20 75 6e 63 68 61 6e 67 65 64 0a 3b ┆ all registers unchanged ;┆
0x8ea20…8ea40 0a 0a 70 72 6f 63 65 64 75 72 65 20 74 72 61 6e 73 70 6f 72 74 28 2e 77 32 2e 3b 77 31 3b 77 33 ┆ procedure transport(.w2.;w1;w3┆
0x8ea40…8ea60 29 3b 0a 63 6f 6d 6d 65 6e 74 20 63 61 6c 6c 3a 20 20 20 77 31 20 61 62 73 20 72 65 66 20 6d 65 ┆); comment call: w1 abs ref me┆
0x8ea60…8ea7e 73 73 61 67 65 20 74 6f 20 62 65 20 73 65 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ssage to be send ┆
0x8ea7e…8ea84 (0x450,0x11d6)
0x8ea84…8eaa0 20 20 20 77 33 20 61 62 73 20 72 65 66 20 61 72 65 61 20 6e 61 6d 65 0a 20 20 20 20 ┆ w3 abs ref area name ┆
0x8eaa0…8eac0 20 20 20 20 72 65 74 75 72 6e 3a 20 2d 2d 20 61 6c 6c 20 72 65 67 69 73 74 65 72 73 20 75 6e 63 ┆ return: -- all registers unc┆
0x8eac0…8eae0 68 61 6e 67 65 64 0a 3b 0a 0a 70 72 6f 63 65 64 75 72 65 20 70 61 72 65 6e 74 6d 65 73 73 28 2e ┆hanged ; procedure parentmess(.┆
0x8eae0…8eafc 77 33 2e 3b 77 31 3b 77 32 29 3b 0a 63 6f 6d 6d 65 6e 74 20 63 61 6c 6c 3a 20 20 20 ┆w3.;w1;w2); comment call: ┆
0x8eafc…8eb02 (0x450,0x11d7)
0x8eb02…8eb20 77 31 20 61 62 73 20 72 65 66 20 75 73 65 72 65 6e 74 72 79 20 6f 66 20 73 65 6e 64 69 6e ┆w1 abs ref userentry of sendin┆
0x8eb20…8eb40 67 20 70 72 6f 63 65 73 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 32 20 61 62 73 ┆g process w2 abs┆
0x8eb40…8eb60 20 72 65 66 20 6d 65 73 73 61 67 65 20 62 75 66 66 65 72 0a 20 20 20 20 20 20 20 20 72 65 74 75 ┆ ref message buffer retu┆
0x8eb60…8eb7a 72 6e 3a 20 2d 2d 20 61 6c 6c 20 72 65 67 69 73 74 65 72 73 20 75 6e 63 68 61 ┆rn: -- all registers uncha┆
0x8eb7a…8eb80 (0x450,0x11d8)
0x8eb80…8eba0 6e 67 65 64 0a 3b 0a 0a 70 72 6f 63 65 64 75 72 65 20 73 79 73 63 6f 6d 6d 61 6e 64 28 2e 77 33 ┆nged ; procedure syscommand(.w3┆
0x8eba0…8ebc0 2e 3b 77 31 29 3b 0a 63 6f 6d 6d 65 6e 74 20 63 61 6c 6c 3a 20 20 20 77 31 20 61 62 73 20 72 65 ┆.;w1); comment call: w1 abs re┆
0x8ebc0…8ebe0 66 20 75 73 65 72 65 6e 74 72 79 20 6f 66 20 63 6f 6d 6d 61 6e 64 69 6e 67 20 75 73 65 72 0a 20 ┆f userentry of commanding user ┆
0x8ebe0…8ec00 20 20 20 20 20 20 20 72 65 74 75 72 6e 3a 20 2d 2d 20 61 6c 6c 20 72 65 00 00 00 00 00 00 00 00 ┆ return: -- all re ┆
0x8ec00…8ec06 (1142,) (0x450,0x11d9)
0x8ec06…8ec20 67 69 73 74 65 72 73 20 75 6e 63 68 61 6e 67 65 64 0a 3b 0a 0a 70 72 6f 63 65 ┆gisters unchanged ; proce┆
0x8ec20…8ec40 64 75 72 65 20 73 63 61 6e 63 61 74 28 2e 77 33 2e 3b 77 30 3b 77 31 3b 77 32 29 3b 0a 63 6f 6d ┆dure scancat(.w3.;w0;w1;w2); com┆
0x8ec40…8ec60 6d 65 6e 74 20 63 61 6c 6c 3a 20 20 20 20 20 20 77 31 20 20 61 62 73 20 72 65 66 20 70 72 6f 63 ┆ment call: w1 abs ref proc┆
0x8ec60…8ec7e 65 73 73 20 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 32 ┆ess name w2┆
0x8ec7e…8ec84 (0x450,0x11da)
0x8ec84…8eca0 20 20 61 62 73 20 72 65 66 20 74 65 72 6d 69 6e 61 6c 20 6e 61 6d 65 20 6f 72 20 7a ┆ abs ref terminal name or z┆
0x8eca0…8ecc0 65 72 6f 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 3a 20 20 20 20 77 30 20 20 72 65 73 75 6c ┆ero return: w0 resul┆
0x8ecc0…8ece0 74 20 20 2d 33 20 3d 20 75 73 65 72 63 61 74 20 72 65 73 65 72 76 61 74 69 6f 6e 20 65 72 72 6f ┆t -3 = usercat reservation erro┆
0x8ece0…8ecfc 72 0a 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 ┆r ┆
0x8ecfc…8ed02 (0x450,0x11db)
0x8ed02…8ed20 20 20 20 20 20 2d 32 20 3d 20 74 65 72 6d 69 6e 61 6c 20 75 6e 6b 6e 6f 77 6e 0a 20 20 20 ┆ -2 = terminal unknown ┆
0x8ed20…8ed40 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 2d 31 20 3d ┆ -1 =┆
0x8ed40…8ed60 20 70 72 6f 63 65 73 73 20 75 6e 6b 6e 6f 77 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ process unknown ┆
0x8ed60…8ed7a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3e 3d 30 20 3d 20 6f 6b 20 28 63 ┆ >=0 = ok (c┆
0x8ed7a…8ed80 (0x450,0x11dc)
0x8ed80…8eda0 61 74 61 6c 6f 67 20 73 65 67 6d 2e 6e 6f 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆atalog segm.no) ┆
0x8eda0…8edc0 20 20 20 77 31 20 20 61 62 73 20 72 65 66 20 70 72 6f 63 65 73 73 20 64 65 73 63 72 69 70 74 69 ┆ w1 abs ref process descripti┆
0x8edc0…8ede0 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 32 20 20 61 62 73 20 72 65 ┆on w2 abs re┆
0x8ede0…8ee00 66 20 74 65 72 6d 69 6e 61 6c 20 64 65 73 63 72 69 70 74 69 6f 6e 20 6f 00 00 00 00 00 00 00 00 ┆f terminal description o ┆
0x8ee00…8ee06 (1143,) (0x450,0x11dd)
0x8ee06…8ee20 72 20 7a 65 72 6f 0a 3b 0a 0a 70 72 6f 63 65 64 75 72 65 20 62 72 65 61 6b 28 ┆r zero ; procedure break(┆
0x8ee20…8ee40 2e 77 33 2e 3b 77 31 29 3b 0a 63 6f 6d 6d 65 6e 74 20 63 61 6c 6c 3a 20 20 20 20 77 31 20 20 61 ┆.w3.;w1); comment call: w1 a┆
0x8ee40…8ee60 62 73 20 72 65 66 20 75 73 65 72 65 6e 74 72 79 20 74 6f 20 62 72 65 61 6b 0a 20 20 20 20 20 20 ┆bs ref userentry to break ┆
0x8ee60…8ee7e 20 20 72 65 74 75 72 6e 3a 20 20 2d 2d 20 20 61 6c 6c 20 72 65 67 69 73 74 65 72 73 20 75 ┆ return: -- all registers u┆
0x8ee7e…8ee84 (0x450,0x11de)
0x8ee84…8eea0 6e 63 68 61 6e 67 65 64 0a 3b 0a 0a 70 72 6f 63 65 64 75 72 65 20 63 6c 65 61 6e 28 ┆nchanged ; procedure clean(┆
0x8eea0…8eec0 2e 77 33 2e 3b 77 31 29 3b 0a 63 6f 6d 6d 65 6e 74 20 63 61 6c 6c 3a 20 20 20 77 31 20 61 62 73 ┆.w3.;w1); comment call: w1 abs┆
0x8eec0…8eee0 20 72 65 66 20 75 73 65 72 65 6e 74 72 79 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 3a 20 2d ┆ ref userentry return: -┆
0x8eee0…8eefc 2d 20 61 6c 6c 20 72 65 67 69 73 74 65 72 73 20 75 6e 63 68 61 6e 67 65 64 0a 3b 0a ┆- all registers unchanged ; ┆
0x8eefc…8ef02 (0x450,0x11df)
0x8ef02…8ef20 0a 70 72 6f 63 65 64 75 72 65 20 63 6f 6d 70 61 72 65 28 2e 77 33 2e 3b 77 30 3b 77 31 3b ┆ procedure compare(.w3.;w0;w1;┆
0x8ef20…8ef40 77 32 29 3b 0a 63 6f 6d 6d 65 6e 74 20 63 61 6c 6c 3a 20 20 20 77 30 20 6e 6f 20 6f 66 20 62 79 ┆w2); comment call: w0 no of by┆
0x8ef40…8ef60 74 65 73 20 74 6f 20 63 6f 6d 70 61 72 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 ┆tes to compare w┆
0x8ef60…8ef7a 31 20 61 62 73 20 31 2e 73 74 72 69 6e 67 0a 20 20 20 20 20 20 20 20 20 20 20 ┆1 abs 1.string ┆
0x8ef7a…8ef80 (0x450,0x11e0)
0x8ef80…8efa0 20 20 20 20 20 77 32 20 61 62 73 20 32 2e 73 74 72 69 6e 67 0a 20 20 20 20 20 20 20 20 72 65 74 ┆ w2 abs 2.string ret┆
0x8efa0…8efc0 75 72 6e 3a 20 77 30 20 3d 20 30 20 74 68 65 20 62 79 74 65 73 20 61 72 65 20 65 71 75 61 6c 0a ┆urn: w0 = 0 the bytes are equal ┆
0x8efc0…8efe0 3b 0a 0a 70 72 6f 63 65 64 75 72 65 20 6e 65 78 74 63 68 61 72 28 2e 77 33 2e 3b 77 6f 72 64 20 ┆; procedure nextchar(.w3.;word ┆
0x8efe0…8f000 73 74 70 3b 77 30 3b 77 31 3b 77 32 29 3b 0a 63 6f 6d 6d 65 6e 74 20 63 00 00 00 00 00 00 00 00 ┆stp;w0;w1;w2); comment c ┆
0x8f000…8f006 (1144,) (0x450,0x11e1)
0x8f006…8f020 61 6c 6c 3a 20 20 20 77 30 20 69 72 72 65 6c 65 76 61 6e 74 0a 20 20 20 20 20 ┆all: w0 irrelevant ┆
0x8f020…8f040 20 20 20 20 20 20 20 20 20 20 20 77 31 20 70 61 72 74 69 61 6c 20 77 6f 72 64 0a 20 20 20 20 20 ┆ w1 partial word ┆
0x8f040…8f060 20 20 20 20 20 20 20 20 20 20 20 77 32 20 61 62 73 20 72 65 66 20 6e 65 78 74 20 69 6e 70 75 74 ┆ w2 abs ref next input┆
0x8f060…8f07e 20 77 6f 72 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 33 20 72 65 74 75 72 ┆ word w3 retur┆
0x8f07e…8f084 (0x450,0x11e2)
0x8f084…8f0a0 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 74 70 20 61 62 73 20 72 65 ┆n stp abs re┆
0x8f0a0…8f0c0 66 20 77 6f 72 64 20 6e 65 78 74 20 74 6f 20 6c 61 73 74 20 69 6e 70 75 74 20 77 6f 72 64 0a 20 ┆f word next to last input word ┆
0x8f0c0…8f0e0 20 20 20 20 20 20 20 72 65 74 75 72 6e 3a 20 77 30 20 6e 65 78 74 20 63 68 61 72 61 63 74 65 72 ┆ return: w0 next character┆
0x8f0e0…8f0fc 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 20 70 61 72 74 69 61 6c 20 ┆ w1 partial ┆
0x8f0fc…8f102 (0x450,0x11e3)
0x8f102…8f120 77 6f 72 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 32 20 61 62 73 20 72 65 ┆word w2 abs re┆
0x8f120…8f140 66 20 6e 65 78 74 20 69 6e 70 75 74 20 77 6f 72 64 0a 3b 0a 0a 70 72 6f 63 65 64 75 72 65 20 69 ┆f next input word ; procedure i┆
0x8f140…8f160 6e 69 74 28 2e 77 33 2e 29 3b 0a 63 6f 6d 6d 65 6e 74 20 63 61 6c 6c 3a 20 20 20 2d 2d 20 61 6c ┆nit(.w3.); comment call: -- al┆
0x8f160…8f17a 6c 20 72 65 67 69 73 74 65 72 73 20 69 72 72 65 6c 65 76 61 6e 74 0a 20 20 20 ┆l registers irrelevant ┆
0x8f17a…8f180 (0x450,0x11e4)
0x8f180…8f1a0 20 20 20 20 20 72 65 74 75 72 6e 3a 20 2d 2d 20 61 6c 6c 20 72 65 67 69 73 74 65 72 73 20 64 65 ┆ return: -- all registers de┆
0x8f1a0…8f1c0 73 74 72 6f 79 65 64 0a 3b 0a 0a 70 72 6f 63 65 64 75 72 65 20 6f 70 6d 65 73 73 28 2e 77 33 2e ┆stroyed ; procedure opmess(.w3.┆
0x8f1c0…8f1e0 3b 77 31 3b 77 32 29 3b 0a 63 6f 6d 6d 65 6e 74 20 63 61 6c 6c 3a 20 20 20 77 31 20 61 62 73 20 ┆;w1;w2); comment call: w1 abs ┆
0x8f1e0…8f200 72 65 66 20 6d 65 73 73 61 67 65 2c 0a 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ref message, ┆
0x8f200…8f206 (1145,) (0x450,0x11e5)
0x8f206…8f220 20 20 20 20 20 77 32 20 61 62 73 20 72 65 66 20 73 65 6e 64 65 72 20 70 72 6f ┆ w2 abs ref sender pro┆
0x8f220…8f240 63 65 73 73 20 64 65 73 63 72 69 70 74 69 6f 6e 0a 3b 0a 0a 70 72 6f 63 65 64 75 72 65 20 6c 6f ┆cess description ; procedure lo┆
0x8f240…8f260 67 6f 75 74 28 2e 77 33 2e 3b 77 31 29 3b 0a 63 6f 6d 6d 65 6e 74 20 63 61 6c 6c 3a 20 20 20 77 ┆gout(.w3.;w1); comment call: w┆
0x8f260…8f27e 31 20 61 62 73 20 72 65 66 20 75 73 65 72 65 6e 74 72 79 0a 20 20 20 20 20 20 20 20 72 65 ┆1 abs ref userentry re┆
0x8f27e…8f284 (0x450,0x11e6)
0x8f284…8f2a0 74 75 72 6e 3a 20 2d 2d 20 6a 75 6d 70 73 20 64 69 72 65 63 74 6c 79 20 74 6f 20 6d ┆turn: -- jumps directly to m┆
0x8f2a0…8f2c0 61 69 6e 20 70 72 6f 67 72 61 6d 0a 3b 0a 0a 70 72 6f 63 65 64 75 72 65 20 6f 75 74 74 65 78 74 ┆ain program ; procedure outtext┆
0x8f2c0…8f2e0 28 2e 77 33 2e 3b 77 30 3b 77 31 3b 77 32 29 3b 0a 63 6f 6d 6d 65 6e 74 20 63 61 6c 6c 3a 20 20 ┆(.w3.;w0;w1;w2); comment call: ┆
0x8f2e0…8f2fc 20 77 30 20 66 6f 72 6d 61 74 20 70 61 74 74 65 72 6e 3a 0a 20 20 20 20 20 20 20 20 ┆ w0 format pattern: ┆
0x8f2fc…8f302 (0x450,0x11e7)
0x8f302…8f320 20 20 20 20 20 20 20 20 20 20 20 62 69 74 73 20 32 31 2d 32 33 3a 20 74 79 70 65 20 6f 66 ┆ bits 21-23: type of┆
0x8f320…8f340 20 6d 65 73 73 61 67 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ message ┆
0x8f340…8f360 20 20 20 20 20 20 20 20 30 20 3d 20 6e 6f 72 6d 61 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 0 = normal ┆
0x8f360…8f37a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 20 3d 20 65 72 72 6f ┆ 1 = erro┆
0x8f37a…8f380 (0x450,0x11e8)
0x8f380…8f3a0 72 0a 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 ┆r ┆
0x8f3a0…8f3c0 20 32 20 3d 20 77 61 72 6e 69 6e 67 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 2 = warning ┆
0x8f3c0…8f3e0 20 20 20 20 20 20 20 20 20 20 20 20 33 20 3d 20 70 65 6e 64 69 6e 67 0a 20 20 20 20 20 20 20 20 ┆ 3 = pending ┆
0x8f3e0…8f400 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 34 00 00 00 00 00 00 00 00 ┆ 4 ┆
0x8f400…8f406 (1146,) (0x450,0x11e9)
0x8f406…8f420 20 3d 20 6e 6f 72 6d 61 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ = normal ┆
0x8f420…8f440 20 20 20 62 69 74 20 32 30 3a 20 20 20 20 20 74 69 6d 65 20 28 79 65 73 20 6f 72 20 6e 6f 29 0a ┆ bit 20: time (yes or no) ┆
0x8f440…8f460 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 69 74 20 31 39 3a 20 20 20 20 20 73 ┆ bit 19: s┆
0x8f460…8f47e 79 73 74 65 6d 20 6e 61 6d 65 20 28 79 65 73 20 6f 72 20 6e 6f 29 0a 20 20 20 20 20 20 20 ┆ystem name (yes or no) ┆
0x8f47e…8f484 (0x450,0x11ea)
0x8f484…8f4a0 20 20 20 20 20 20 20 20 20 20 20 20 62 69 74 20 31 38 3a 20 20 20 20 20 6a 6f 62 20 ┆ bit 18: job ┆
0x8f4a0…8f4c0 6e 61 6d 65 20 28 79 65 73 20 6f 72 20 6e 6f 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆name (yes or no) ┆
0x8f4c0…8f4e0 20 77 31 20 61 62 73 20 72 65 66 20 75 73 65 72 65 6e 74 72 79 0a 20 20 20 20 20 20 20 20 20 20 ┆ w1 abs ref userentry ┆
0x8f4e0…8f4fc 20 20 20 20 20 20 77 32 20 74 65 78 74 20 6e 75 6d 62 65 72 0a 20 20 20 20 20 20 20 ┆ w2 text number ┆
0x8f4fc…8f502 (0x450,0x11eb)
0x8f502…8f520 20 72 65 74 75 72 6e 3a 20 2d 2d 20 20 61 6c 6c 20 72 65 67 69 73 74 65 72 73 20 75 6e 63 ┆ return: -- all registers unc┆
0x8f520…8f540 68 61 6e 67 65 64 0a 3b 0a 0a 70 72 6f 63 65 64 75 72 65 20 6f 75 74 74 69 6d 65 28 2e 77 33 2e ┆hanged ; procedure outtime(.w3.┆
0x8f540…8f560 3b 77 32 29 3b 0a 63 6f 6d 6d 65 6e 74 20 63 61 6c 6c 3a 20 20 20 77 32 20 61 62 73 20 72 65 66 ┆;w2); comment call: w2 abs ref┆
0x8f560…8f57a 20 62 75 66 66 65 72 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 3a 20 2d 2d ┆ buffer return: --┆
0x8f57a…8f580 (0x450,0x11ec)
0x8f580…8f5a0 20 61 6c 6c 20 72 65 67 69 73 74 65 72 73 20 75 6e 63 68 61 6e 67 65 64 0a 3b 0a 0a 70 72 6f 63 ┆ all registers unchanged ; proc┆
0x8f5a0…8f5c0 65 64 75 72 65 20 63 61 6c 6c 64 65 76 28 2e 77 33 2e 3b 77 31 29 3b 0a 63 6f 6d 6d 65 6e 74 20 ┆edure calldev(.w3.;w1); comment ┆
0x8f5c0…8f5e0 63 61 6c 6c 3a 20 20 20 77 31 20 61 62 73 20 72 65 66 20 73 74 72 69 6e 67 31 0a 20 20 20 20 20 ┆call: w1 abs ref string1 ┆
0x8f5e0…8f600 20 20 20 72 65 74 75 72 6e 3a 20 77 31 20 61 62 73 20 72 65 66 20 65 72 00 00 00 00 00 00 00 00 ┆ return: w1 abs ref er ┆
0x8f600…8f606 (1147,) (0x450,0x11ed)
0x8f606…8f620 72 6f 72 20 6d 65 73 73 61 67 65 20 6f 72 20 7a 65 72 6f 0a 3b 0a 0a 70 72 6f ┆ror message or zero ; pro┆
0x8f620…8f640 63 65 64 75 72 65 20 74 65 73 74 6f 75 74 28 2e 77 33 2e 3b 77 30 3b 77 31 3b 77 32 29 3b 0a 63 ┆cedure testout(.w3.;w0;w1;w2); c┆
0x8f640…8f660 6f 6d 6d 65 6e 74 20 63 61 6c 6c 3a 20 20 20 77 30 20 6c 65 6e 67 74 68 20 6f 66 20 74 65 73 74 ┆omment call: w0 length of test┆
0x8f660…8f67e 72 65 63 6f 72 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 20 61 62 73 20 ┆record w1 abs ┆
0x8f67e…8f684 (0x450,0x11ee)
0x8f684…8f6a0 72 65 66 20 66 69 72 73 74 20 77 6f 72 64 20 6f 66 20 72 65 63 6f 72 64 0a 20 20 20 ┆ref first word of record ┆
0x8f6a0…8f6c0 20 20 20 20 20 20 20 20 20 20 20 20 20 77 32 20 6b 69 6e 64 20 6f 66 20 74 65 73 74 72 65 63 6f ┆ w2 kind of testreco┆
0x8f6c0…8f6e0 72 64 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 3a 20 77 30 20 64 65 73 74 72 6f 79 65 64 0a ┆rd return: w0 destroyed ┆
0x8f6e0…8f6fc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 20 75 6e 63 68 61 6e 67 65 64 ┆ w1 unchanged┆
0x8f6fc…8f702 (0x450,0x11ef)
0x8f702…8f720 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 32 20 75 6e 63 68 61 6e 67 65 64 0a ┆ w2 unchanged ┆
0x8f720…8f740 3b 0a 0c 0a 0a 20 20 6c 61 62 65 6c 20 63 6f 6e 74 69 6e 75 65 2c 69 6e 74 65 72 72 75 70 74 2c ┆; label continue,interrupt,┆
0x8f740…8f760 69 6e 69 74 69 61 6c 69 7a 65 2c 61 63 74 69 76 61 74 65 2c 72 65 70 65 61 74 6d 61 79 62 65 2c ┆initialize,activate,repeatmaybe,┆
0x8f760…8f77a 72 65 67 72 65 74 74 69 6d 65 72 2c 74 69 6d 65 6f 75 74 2c 0a 20 20 20 20 20 ┆regrettimer,timeout, ┆
0x8f77a…8f780 (0x450,0x11f0)
0x8f780…8f7a0 20 20 20 73 74 6f 70 63 6f 72 65 75 73 65 72 2c 64 69 73 63 66 61 75 6c 74 2c 73 65 6d 69 62 75 ┆ stopcoreuser,discfault,semibu┆
0x8f7a0…8f7c0 73 79 2c 65 6d 70 74 79 61 6e 73 77 65 72 2c 61 63 74 69 6f 6e 63 61 73 65 2c 6d 65 73 73 77 61 ┆sy,emptyanswer,actioncase,messwa┆
0x8f7c0…8f7e0 69 74 2c 20 61 5f 72 65 61 64 79 3b 0a 20 20 72 65 63 6f 72 64 20 6e 61 6d 65 20 28 64 6f 75 62 ┆it, a_ready; record name (doub┆
0x8f7e0…8f800 6c 65 20 6e 61 6d 65 31 2c 6e 61 6d 65 32 29 3b 0a 20 20 72 65 63 6f 72 00 00 00 00 00 00 00 00 ┆le name1,name2); recor ┆
0x8f800…8f806 (1148,) (0x450,0x11f1)
0x8f806…8f820 64 20 61 6e 73 77 65 72 20 28 77 6f 72 64 20 73 74 61 74 75 73 2c 62 79 74 65 ┆d answer (word status,byte┆
0x8f820…8f840 73 2c 63 68 61 72 61 63 74 65 72 73 29 3b 0a 20 20 72 65 63 6f 72 64 20 6d 65 73 73 61 67 65 20 ┆s,characters); record message ┆
0x8f840…8f860 28 72 65 66 20 20 6e 65 78 74 6d 65 73 73 2c 6c 61 73 74 6d 65 73 73 2c 72 65 63 65 69 76 65 72 ┆(ref nextmess,lastmess,receiver┆
0x8f860…8f87e 2c 73 65 6e 64 65 72 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 79 74 ┆,sender; byt┆
0x8f87e…8f884 (0x450,0x11f2)
0x8f884…8f8a0 65 20 6f 70 65 72 61 74 69 6f 6e 2c 6d 6f 64 65 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆e operation,mode; ┆
0x8f8a0…8f8c0 20 20 20 20 20 20 20 20 72 65 66 20 20 6d 62 66 73 74 2c 6d 62 6c 73 74 3b 0a 20 20 20 20 20 20 ┆ ref mbfst,mblst; ┆
0x8f8c0…8f8e0 20 20 20 20 20 20 20 20 20 20 20 20 77 6f 72 64 20 73 65 67 6d 6e 6f 3b 0a 20 20 20 20 20 20 20 ┆ word segmno; ┆
0x8f8e0…8f8fc 20 20 20 20 20 20 20 20 20 20 20 72 65 66 20 6d 62 69 6c 61 73 74 29 3b 0a 20 20 72 ┆ ref mbilast); r┆
0x8f8fc…8f902 (0x450,0x11f3)
0x8f902…8f920 65 63 6f 72 64 20 75 73 65 72 65 6e 74 72 79 20 28 72 65 66 20 20 6e 65 78 74 75 73 65 72 ┆ecord userentry (ref nextuser┆
0x8f920…8f940 2c 70 72 65 76 75 73 65 72 2c 62 75 66 66 65 72 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆,prevuser,buffer, ┆
0x8f940…8f960 20 20 20 20 20 20 20 20 20 20 20 6d 65 73 73 67 6f 74 2c 6d 65 73 73 73 65 6e 64 2c 70 72 6f 63 ┆ messgot,messsend,proc┆
0x8f960…8f97a 62 75 66 31 2c 70 65 72 69 70 68 65 72 61 6c 2c 69 6e 74 65 72 6e 61 6c 2c 70 ┆buf1,peripheral,internal,p┆
0x8f97a…8f980 (0x450,0x11f4)
0x8f980…8f9a0 72 69 6d 64 65 76 69 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 6f 72 ┆rimdevi; wor┆
0x8f9a0…8f9c0 64 20 73 77 6f 70 73 65 67 6d 2c 63 6c 61 73 73 2c 70 72 69 6f 3b 0a 20 20 20 20 20 20 20 20 20 ┆d swopsegm,class,prio; ┆
0x8f9c0…8f9e0 20 20 20 20 20 20 20 20 20 20 20 62 79 74 65 20 73 74 61 74 65 2c 73 74 61 74 65 32 2c 62 75 66 ┆ byte state,state2,buf┆
0x8f9e0…8fa00 6c 65 6e 67 74 68 2c 69 6e 74 65 72 76 65 6e 74 2c 70 72 69 6d 69 6f 2c 00 00 00 00 00 00 00 00 ┆length,intervent,primio, ┆
0x8fa00…8fa06 (1149,) (0x450,0x11f5)
0x8fa06…8fa20 62 75 66 72 65 6c 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆bufrel; ┆
0x8fa20…8fa40 20 20 77 6f 72 64 20 73 74 61 74 75 73 69 6e 66 2c 63 75 72 72 6c 6f 63 69 64 2c 70 72 6f 63 73 ┆ word statusinf,currlocid,procs┆
0x8fa40…8fa60 69 7a 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 65 78 74 28 31 34 ┆ize; text(14┆
0x8fa60…8fa7e 29 20 70 72 5f 69 6e 2c 70 72 5f 6f 75 74 29 3b 0a 20 20 72 65 63 6f 72 64 20 74 65 72 6d ┆) pr_in,pr_out); record term┆
0x8fa7e…8fa84 (0x450,0x11f6)
0x8fa84…8faa0 64 65 73 63 72 0a 20 20 20 20 20 20 20 20 28 74 65 78 74 28 31 31 29 20 65 78 74 69 ┆descr (text(11) exti┆
0x8faa0…8fac0 64 3b 0a 20 20 20 20 20 20 20 20 20 77 6f 72 64 20 69 6e 74 69 64 3b 0a 20 20 20 20 20 20 20 20 ┆d; word intid; ┆
0x8fac0…8fae0 20 74 65 78 74 28 31 31 29 20 75 73 65 72 6b 65 79 3b 0a 20 20 20 20 20 20 20 20 20 62 79 74 65 ┆ text(11) userkey; byte┆
0x8fae0…8fafc 20 74 62 75 66 73 2c 74 74 69 6d 65 72 73 3b 0a 20 20 20 20 20 20 20 20 20 61 72 72 ┆ tbufs,ttimers; arr┆
0x8fafc…8fb02 (0x450,0x11f7)
0x8fb02…8fb20 61 79 28 31 3a 36 29 20 74 66 69 6c 6c 20 6f 66 20 62 79 74 65 29 3b 0a 20 20 72 65 63 6f ┆ay(1:6) tfill of byte); reco┆
0x8fb20…8fb40 72 64 20 70 72 6f 63 64 65 73 63 72 0a 20 20 20 20 20 20 20 20 28 62 79 74 65 20 70 72 6f 63 62 ┆rd procdescr (byte procb┆
0x8fb40…8fb60 75 66 66 65 72 73 2c 70 72 6f 63 61 72 65 61 73 3b 0a 20 20 20 20 20 20 20 20 20 77 6f 72 64 20 ┆uffers,procareas; word ┆
0x8fb60…8fb7a 70 72 6f 63 73 62 31 2c 70 72 6f 63 73 62 32 2c 0a 20 20 20 20 20 20 20 20 20 ┆procsb1,procsb2, ┆
0x8fb7a…8fb80 (0x450,0x11f8)
0x8fb80…8fba0 20 20 20 20 20 70 72 6f 63 75 62 31 2c 70 72 6f 63 75 62 32 2c 0a 20 20 20 20 20 20 20 20 20 20 ┆ procub1,procub2, ┆
0x8fba0…8fbc0 20 20 20 20 70 72 6f 63 6d 62 31 2c 70 72 6f 63 6d 62 32 3b 0a 20 20 20 20 20 20 20 20 20 74 65 ┆ procmb1,procmb2; te┆
0x8fbc0…8fbe0 78 74 28 31 31 29 20 70 70 61 73 73 3b 0a 20 20 20 20 20 20 20 20 20 77 6f 72 64 20 70 6d 69 6e ┆xt(11) ppass; word pmin┆
0x8fbe0…8fc00 73 69 7a 65 2c 70 6d 61 78 73 69 7a 65 3b 0a 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆size,pmaxsize; ┆
0x8fc00…8fc06 (1150,) (0x450,0x11f9)
0x8fc06…8fc20 61 72 72 61 79 28 31 3a 31 30 29 20 70 66 69 6c 6c 20 6f 66 20 62 79 74 65 3b ┆array(1:10) pfill of byte;┆
0x8fc20…8fc40 0a 20 20 20 20 20 20 20 20 20 74 65 78 74 28 35 39 29 20 70 72 6f 63 66 70 3b 0a 20 20 20 20 20 ┆ text(59) procfp; ┆
0x8fc40…8fc60 20 20 20 20 61 72 72 61 79 28 31 3a 31 32 29 20 70 72 6f 63 64 69 73 63 73 20 6f 66 20 72 65 63 ┆ array(1:12) procdiscs of rec┆
0x8fc60…8fc7e 6f 72 64 20 70 72 6f 63 64 69 73 63 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ord procdisc ┆
0x8fc7e…8fc84 (0x450,0x11fa)
0x8fc84…8fca0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 65 78 74 28 ┆ (text(┆
0x8fca0…8fcc0 31 31 29 20 70 72 6f 63 64 69 73 63 6e 61 6d 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆11) procdiscname; ┆
0x8fcc0…8fce0 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 61 72 72 61 79 28 ┆ array(┆
0x8fce0…8fcfc 31 3a 38 29 20 70 72 6f 63 64 69 73 63 63 6c 61 69 6d 20 6f 66 20 77 6f 72 64 0a 20 ┆1:8) procdiscclaim of word ┆
0x8fcfc…8fd02 (0x450,0x11fb)
0x8fd02…8fd20 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 ┆ ┆
0x8fd20…8fd40 20 20 20 20 20 20 20 20 29 0a 20 20 20 20 20 20 20 20 29 3b 0a 20 20 72 65 63 6f 72 64 20 70 72 ┆ ) ); record pr┆
0x8fd40…8fd60 69 6e 64 65 78 20 28 74 65 78 74 28 31 31 29 20 70 72 6e 61 6d 65 3b 0a 20 20 20 20 20 20 20 20 ┆index (text(11) prname; ┆
0x8fd60…8fd7a 20 20 20 20 20 20 20 20 20 20 20 20 77 6f 72 64 20 70 72 73 65 67 6d 6e 6f 29 ┆ word prsegmno)┆
0x8fd7a…8fd80 (0x450,0x11fc)
0x8fd80…8fda0 3b 0a 20 20 69 6e 63 6f 64 65 0a 20 20 20 20 72 65 66 20 20 61 63 74 69 76 71 66 73 74 2c 61 63 ┆; incode ref activqfst,ac┆
0x8fda0…8fdc0 74 69 76 71 6c 73 74 2c 0a 20 20 20 20 20 20 20 20 20 62 61 74 63 68 71 66 73 74 2c 62 61 74 63 ┆tivqlst, batchqfst,batc┆
0x8fdc0…8fde0 68 71 6c 73 74 2c 0a 20 20 20 20 20 20 20 20 20 77 61 69 74 71 66 73 74 2c 77 61 69 74 71 6c 73 ┆hqlst, waitqfst,waitqls┆
0x8fde0…8fe00 74 2c 0a 20 20 20 20 20 20 20 20 20 63 6f 72 65 75 73 65 72 3a 3d 30 2c 00 00 00 00 00 00 00 00 ┆t, coreuser:=0, ┆
0x8fe00…8fe06 (1151,) (0x450,0x11fd)
0x8fe06…8fe20 74 69 6d 65 72 6d 65 73 73 3a 3d 30 2c 0a 20 20 20 20 20 20 20 20 20 66 69 72 ┆timermess:=0, fir┆
0x8fe20…8fe40 73 74 75 73 65 72 2c 6c 61 73 74 75 73 65 72 3b 0a 20 20 20 20 77 6f 72 64 20 6d 61 78 62 75 66 ┆stuser,lastuser; word maxbuf┆
0x8fe40…8fe60 2c 6d 69 6e 70 72 69 6f 2c 6d 61 78 74 65 73 74 73 65 67 6d 2c 73 79 73 63 6f 6e 64 2c 70 61 73 ┆,minprio,maxtestsegm,syscond,pas┆
0x8fe60…8fe7e 73 6d 6f 64 65 2c 62 61 74 63 68 63 6c 61 73 73 3a 3d 2d 38 30 30 30 30 30 30 3b 0a 20 20 ┆smode,batchclass:=-8000000; ┆
0x8fe7e…8fe84 (0x450,0x11fe)
0x8fe84…8fea0 20 20 77 6f 72 64 20 72 65 67 69 73 74 65 72 30 2c 72 65 67 69 73 74 65 72 31 2c 72 ┆ word register0,register1,r┆
0x8fea0…8fec0 65 67 69 73 74 65 72 32 2c 72 65 67 69 73 74 65 72 33 2c 65 78 63 65 70 74 69 6f 6e 3a 3d 30 2c ┆egister2,register3,exception:=0,┆
0x8fec0…8fee0 69 63 3b 0a 20 20 20 20 77 6f 72 64 20 6f 77 6e 70 72 6f 63 3b 0a 20 20 20 20 77 6f 72 64 20 62 ┆ic; word ownproc; word b┆
0x8fee0…8fefc 61 73 65 72 65 67 3b 0a 20 20 20 20 74 65 78 74 28 31 34 29 20 70 72 6f 63 6e 61 6d ┆asereg; text(14) procnam┆
0x8fefc…8ff02 (0x450,0x11ff)
0x8ff02…8ff20 65 2c 74 69 6d 65 72 3a 3d 22 63 6c 6f 63 6b 22 3b 0a 20 20 20 20 74 65 78 74 28 32 29 20 ┆e,timer:="clock"; text(2) ┆
0x8ff20…8ff40 61 74 74 3a 3d 22 0a 3e 22 3b 20 77 6f 72 64 20 74 69 6d 65 75 6e 69 74 3a 3d 30 2c 69 6e 74 65 ┆att:=" >"; word timeunit:=0,inte┆
0x8ff40…8ff60 72 76 61 6c 3b 0a 20 20 20 20 77 6f 72 64 20 6d 69 63 75 6e 69 74 3a 3d 32 3b 0a 20 20 20 20 64 ┆rval; word micunit:=2; d┆
0x8ff60…8ff7a 6f 75 62 6c 65 20 6d 69 63 69 6e 74 65 72 76 61 6c 3a 3d 36 30 30 3b 0a 20 20 ┆ouble micinterval:=600; ┆
0x8ff7a…8ff80 (0x450,0x1200)
0x8ff80…8ffa0 20 20 62 79 74 65 20 74 65 73 74 6f 70 3a 3d 35 2c 74 65 73 74 6d 6f 64 65 3a 3d 30 3b 0a 20 20 ┆ byte testop:=5,testmode:=0; ┆
0x8ffa0…8ffc0 20 20 72 65 66 20 20 74 65 73 74 62 66 73 74 2c 74 65 73 74 62 6c 73 74 2c 74 65 73 74 73 65 67 ┆ ref testbfst,testblst,testseg┆
0x8ffc0…8ffe0 6d 3a 3d 30 3b 0a 20 20 20 20 72 65 66 20 20 66 73 74 63 6f 72 65 2c 74 6f 70 63 6f 72 65 3b 0a ┆m:=0; ref fstcore,topcore; ┆
0x8ffe0…90000 20 20 20 20 72 65 66 20 62 61 73 65 65 76 65 6e 74 3a 3d 30 2c 6d 61 69 00 00 00 00 00 00 00 00 ┆ ref baseevent:=0,mai ┆
0x90000…90006 (1152,) (0x450,0x1201)
0x90006…90020 6e 63 6f 6e 73 72 65 66 2c 6d 69 63 74 69 6d 65 72 2c 70 73 6d 65 73 73 3b 0a ┆nconsref,mictimer,psmess; ┆
0x90020…90040 20 20 20 20 64 6f 75 62 6c 65 20 73 74 61 72 74 74 69 6d 65 2c 73 74 61 72 74 62 61 73 65 3b 0a ┆ double starttime,startbase; ┆
0x90040…90060 20 20 20 20 62 79 74 65 20 72 65 6c 69 6e 74 72 70 74 2c 72 65 6c 64 75 6d 70 2c 69 64 73 69 7a ┆ byte relintrpt,reldump,idsiz┆
0x90060…9007e 65 2c 73 79 73 73 74 61 74 65 3a 3d 30 3b 0a 20 20 20 20 62 79 74 65 20 63 68 69 6c 64 70 ┆e,sysstate:=0; byte childp┆
0x9007e…90084 (0x450,0x1202)
0x90084…900a0 72 2c 63 68 69 6c 64 70 6b 2c 74 69 6d 65 72 6c 6f 73 73 2c 63 79 63 6c 65 67 61 69 ┆r,childpk,timerloss,cyclegai┆
0x900a0…900c0 6e 2c 69 6e 70 75 74 67 61 69 6e 2c 66 72 65 65 62 75 66 73 3b 0a 20 20 20 20 74 65 78 74 28 31 ┆n,inputgain,freebufs; text(1┆
0x900c0…900e0 31 29 20 6f 70 65 72 61 74 6f 72 3a 3d 20 22 27 32 35 35 27 22 3b 0a 20 20 20 20 74 65 78 74 20 ┆1) operator:= "'255'"; text ┆
0x900e0…900fc 28 31 34 29 20 74 73 74 61 72 65 61 2c 73 77 6e 61 6d 65 2c 66 70 63 6f 64 65 2c 63 ┆(14) tstarea,swname,fpcode,c┆
0x900fc…90102 (0x450,0x1203)
0x90102…90120 6c 65 61 72 74 65 6d 70 2c 75 73 65 72 63 61 74 2c 74 5f 6d 64 75 6c 2c 70 5f 6d 64 75 6c ┆leartemp,usercat,t_mdul,p_mdul┆
0x90120…90140 2c 70 5f 70 73 65 75 64 6f 3b 0a 20 20 20 20 62 79 74 65 20 66 70 5f 72 65 6c 2c 63 6c 65 61 72 ┆,p_pseudo; byte fp_rel,clear┆
0x90140…90160 74 5f 72 65 6c 3b 0a 20 20 20 20 62 79 74 65 20 66 61 75 6c 74 6f 70 3a 3d 32 2c 66 61 75 6c 74 ┆t_rel; byte faultop:=2,fault┆
0x90160…9017a 6d 6f 64 65 3a 3d 31 3b 0a 20 20 20 20 74 65 78 74 28 32 30 29 20 66 61 75 6c ┆mode:=1; text(20) faul┆
0x9017a…90180 (0x450,0x1204)
0x90180…901a0 74 74 65 78 74 3a 3d 22 2a 2a 2a 66 61 75 6c 74 22 3b 0a 20 20 62 65 67 69 6e 0a 0c 0a 20 20 20 ┆ttext:="***fault"; begin ┆
0x901a0…901c0 20 63 6f 6d 6d 65 6e 74 20 20 20 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 70 69 65 63 65 20 ┆ comment the following piece ┆
0x901c0…901e0 6f 66 20 63 6f 64 65 20 69 73 20 61 66 74 65 72 20 69 6e 69 74 69 61 6c 69 7a 61 74 69 6f 6e 20 ┆of code is after initialization ┆
0x901e0…90200 75 73 65 64 20 61 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 00 00 00 00 00 00 00 00 ┆used as b ┆
0x90200…90206 (1153,) (0x450,0x1205)
0x90206…90220 75 66 66 65 72 20 66 6f 72 20 20 77 61 69 74 20 61 6e 73 77 65 72 2c 20 61 6e ┆uffer for wait answer, an┆
0x90220…90240 64 20 61 73 20 69 6e 74 65 72 72 75 70 74 20 72 6f 75 74 69 6e 65 0a 20 20 20 20 20 20 20 20 20 ┆d as interrupt routine ┆
0x90240…90260 20 20 20 20 20 20 69 6e 20 63 61 73 65 20 6f 66 20 69 6e 74 65 72 6e 61 6c 20 69 6e 74 65 72 72 ┆ in case of internal interr┆
0x90260…9027e 75 70 74 20 6f 72 20 21 74 65 73 74 0a 20 20 20 20 3b 0a 20 20 20 20 6f 77 6e 70 72 6f 63 ┆upt or !test ; ownproc┆
0x9027e…90284 (0x450,0x1206)
0x90284…902a0 3a 3d 20 77 33 3b 20 20 20 20 21 20 73 61 76 65 20 6f 77 6e 20 70 72 6f 63 65 73 73 ┆:= w3; ! save own process┆
0x902a0…902c0 20 64 65 73 63 72 69 70 74 69 6f 6e 20 61 64 64 72 65 73 73 20 21 0a 69 6e 74 65 72 72 75 70 74 ┆ description address ! interrupt┆
0x902c0…902e0 3a 0a 20 20 20 20 77 33 3a 3d 61 64 64 72 65 73 73 28 69 6e 74 65 72 72 75 70 74 29 2b 32 3b 0a ┆: w3:=address(interrupt)+2; ┆
0x902e0…902fc 20 20 20 20 77 30 3a 3d 30 3b 0a 20 20 20 20 6d 6f 6e 69 74 6f 72 28 30 29 3b 20 20 ┆ w0:=0; monitor(0); ┆
0x902fc…90302 (0x450,0x1207)
0x90302…90320 20 63 6f 6d 6d 65 6e 74 20 73 65 74 20 69 6e 74 65 72 72 75 70 74 20 61 64 64 72 65 73 73 ┆ comment set interrupt address┆
0x90320…90340 3b 0a 20 20 20 20 6d 61 69 6e 63 6f 6e 73 72 65 66 3a 3d 77 32 3b 0a 20 20 20 20 67 6f 74 6f 20 ┆; mainconsref:=w2; goto ┆
0x90340…90360 69 6e 69 74 69 61 6c 69 7a 65 3b 0a 20 20 20 20 77 31 2b 30 3b 0a 20 20 20 20 77 31 2b 30 3b 0a ┆initialize; w1+0; w1+0; ┆
0x90360…9037a 20 20 20 20 77 31 2b 30 3b 0a 20 20 20 20 74 65 73 74 6f 75 74 28 2e 77 33 2e ┆ w1+0; testout(.w3.┆
0x9037a…90380 (0x450,0x1208)
0x90380…903a0 2c 77 30 3a 3d 31 36 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 69 6e 74 65 72 72 75 70 74 29 2b 32 ┆,w0:=16,w1:=address(interrupt)+2┆
0x903a0…903c0 2c 77 32 3a 3d 37 29 3b 0a 20 20 20 20 21 67 65 74 20 32 3b 0a 20 20 20 20 69 66 20 77 30 20 3c ┆,w2:=7); !get 2; if w0 <┆
0x903c0…903e0 3e 20 31 20 74 68 65 6e 20 67 6f 74 6f 20 64 69 73 63 66 61 75 6c 74 3b 0a 20 20 20 20 6f 70 6d ┆> 1 then goto discfault; opm┆
0x903e0…90400 65 73 73 28 2e 77 33 2e 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 66 61 75 00 00 00 00 00 00 00 00 ┆ess(.w3.,w1:=address(fau ┆
0x90400…90406 (1154,) (0x450,0x1209)
0x90406…90420 6c 74 6f 70 29 2c 77 32 3a 3d 6f 77 6e 70 72 6f 63 29 3b 0a 69 6e 69 74 69 61 ┆ltop),w2:=ownproc); initia┆
0x90420…90440 6c 69 7a 65 3a 0a 20 20 20 20 21 67 65 74 20 32 3b 0a 20 20 20 20 69 66 20 77 30 20 3c 3e 20 31 ┆lize: !get 2; if w0 <> 1┆
0x90440…90460 20 74 68 65 6e 20 67 6f 74 6f 20 64 69 73 63 66 61 75 6c 74 3b 0a 20 20 20 20 69 6e 69 74 28 2e ┆ then goto discfault; init(.┆
0x90460…9047e 77 33 2e 29 3b 0a 0c 0a 0a 0a 0a 0a 63 6f 6d 6d 65 6e 74 20 20 20 20 20 74 68 65 20 63 65 ┆w3.); comment the ce┆
0x9047e…90484 (0x450,0x120a)
0x90484…904a0 6e 74 72 61 6c 20 6c 6f 67 69 63 20 6f 66 20 74 68 65 20 6f 6e 6c 69 6e 65 61 64 6d ┆ntral logic of the onlineadm┆
0x904a0…904c0 69 6e 69 73 74 72 61 74 6f 72 20 69 73 20 74 68 69 73 3a 0a 0a 61 29 20 77 61 69 74 20 66 6f 72 ┆inistrator is this: a) wait for┆
0x904c0…904e0 20 61 6e 20 65 76 65 6e 74 20 66 72 6f 6d 20 61 20 74 65 72 6d 69 6e 61 6c 2c 20 66 72 6f 6d 20 ┆ an event from a terminal, from ┆
0x904e0…904fc 61 6e 20 69 6e 74 65 72 6e 61 6c 20 70 72 6f 63 65 73 73 0a 20 20 20 6f 72 20 66 72 ┆an internal process or fr┆
0x904fc…90502 (0x450,0x120b)
0x90502…90520 6f 6d 20 74 68 65 20 74 69 6d 65 72 0a 0a 62 29 20 74 61 6b 65 20 73 6f 6d 65 20 61 63 74 ┆om the timer b) take some act┆
0x90520…90540 69 6f 6e 20 63 6f 72 72 65 73 70 6f 6e 64 69 6e 67 20 74 6f 20 74 68 65 20 6b 69 6e 64 20 6f 66 ┆ion corresponding to the kind of┆
0x90540…90560 20 74 68 65 20 65 76 65 6e 74 20 61 72 72 69 76 65 64 0a 20 20 20 2d 20 20 74 68 69 73 20 61 63 ┆ the event arrived - this ac┆
0x90560…9057a 74 69 6f 6e 20 6d 61 79 20 69 6e 63 6c 75 64 65 20 73 74 6f 70 70 69 6e 67 20 ┆tion may include stopping ┆
0x9057a…90580 (0x450,0x120c)
0x90580…905a0 74 68 65 20 72 75 6e 6e 69 6e 67 20 70 72 6f 63 65 73 73 0a 0a 63 29 20 69 66 20 74 68 65 20 72 ┆the running process c) if the r┆
0x905a0…905c0 75 6e 6e 69 6e 67 20 70 72 6f 63 65 73 73 20 69 73 20 73 74 6f 70 70 65 64 20 74 68 65 6e 20 73 ┆unning process is stopped then s┆
0x905c0…905e0 65 6c 65 63 74 20 6e 65 77 20 70 72 6f 63 65 73 73 20 66 6f 72 0a 20 20 20 61 63 74 69 76 61 74 ┆elect new process for activat┆
0x905e0…90600 69 6f 6e 20 28 69 66 20 61 6e 79 6f 6e 65 20 69 73 20 72 65 61 64 79 29 00 00 00 00 00 00 00 00 ┆ion (if anyone is ready) ┆
0x90600…90606 (1155,) (0x450,0x120d)
0x90606…90620 20 61 6e 64 20 73 77 6f 70 0a 0a 64 29 20 74 61 6b 65 20 73 6f 6d 65 20 61 63 ┆ and swop d) take some ac┆
0x90620…90640 74 69 6f 6e 20 63 6f 72 72 65 73 70 6f 6e 64 69 6e 67 20 74 6f 20 74 68 65 20 73 74 61 74 65 20 ┆tion corresponding to the state ┆
0x90640…90660 6f 66 20 74 68 65 20 70 72 6f 63 65 73 73 0a 20 20 20 74 68 61 74 20 69 73 20 73 65 6c 65 63 74 ┆of the process that is select┆
0x90660…9067e 65 64 20 66 6f 72 20 61 63 74 69 76 61 74 69 6f 6e 20 28 63 6f 70 79 20 69 6e 70 75 74 20 ┆ed for activation (copy input ┆
0x9067e…90684 (0x450,0x120e)
0x90684…906a0 66 72 6f 6d 20 62 75 66 66 65 72 20 69 6e 74 6f 0a 20 20 20 74 68 65 20 70 72 6f 63 ┆from buffer into the proc┆
0x906a0…906c0 65 73 73 20 65 74 63 29 0a 0a 65 29 20 73 74 61 72 74 20 74 68 65 20 70 72 6f 63 65 73 73 2c 20 ┆ess etc) e) start the process, ┆
0x906c0…906e0 73 65 6e 64 20 61 20 6d 65 73 73 61 67 65 20 74 6f 20 74 69 6d 65 72 20 61 6e 64 20 67 6f 74 6f ┆send a message to timer and goto┆
0x906e0…906fc 20 61 2e 0a 3b 0a 0a 63 6f 6e 74 69 6e 75 65 3a 0a 20 20 20 20 77 61 69 74 65 76 65 ┆ a. ; continue: waiteve┆
0x906fc…90702 (0x450,0x120f)
0x90702…90720 6e 74 28 2e 77 33 2e 2c 77 30 2c 77 31 2c 77 32 29 3b 0a 20 20 20 20 75 73 65 72 65 6e 74 ┆nt(.w3.,w0,w1,w2); userent┆
0x90720…90740 72 79 3a 3d 77 31 3b 0a 20 20 20 20 6d 65 73 73 61 67 65 3a 3d 77 32 3b 0a 0c 0a 0a 0a 0a 63 6f ┆ry:=w1; message:=w2; co┆
0x90740…90760 6d 6d 65 6e 74 20 20 20 20 20 61 63 74 69 6f 6e 73 20 63 6f 72 72 65 73 70 6f 6e 64 69 6e 67 20 ┆mment actions corresponding ┆
0x90760…9077a 74 6f 20 74 68 65 20 6b 69 6e 64 20 6f 66 20 74 68 65 20 65 76 65 6e 74 20 61 ┆to the kind of the event a┆
0x9077a…90780 (0x450,0x1210)
0x90780…907a0 72 72 69 76 65 64 3a 0a 0a 31 29 20 69 6e 70 75 74 20 6d 65 73 73 61 67 65 20 66 72 6f 6d 20 69 ┆rrived: 1) input message from i┆
0x907a0…907c0 6e 74 65 72 6e 61 6c 20 70 72 6f 63 65 73 73 20 2d 0a 20 20 20 20 20 74 68 65 20 70 72 6f 63 65 ┆nternal process - the proce┆
0x907c0…907e0 73 73 20 69 73 20 73 74 6f 70 70 65 64 20 61 6e 64 20 74 68 65 20 69 6e 70 75 74 20 6d 65 73 73 ┆ss is stopped and the input mess┆
0x907e0…90800 61 67 65 20 69 73 20 73 65 6e 74 20 74 6f 20 74 68 65 20 74 65 72 6d 69 00 00 00 00 00 00 00 00 ┆age is sent to the termi ┆
0x90800…90806 (1156,) (0x450,0x1211)
0x90806…90820 6e 61 6c 0a 20 20 20 20 20 69 66 20 69 74 20 69 73 20 72 65 61 64 79 2c 20 6f ┆nal if it is ready, o┆
0x90820…90840 74 68 65 72 77 69 7a 65 20 74 68 65 20 69 6e 70 75 74 20 6d 65 73 73 61 67 65 20 69 73 20 6c 69 ┆therwize the input message is li┆
0x90840…90860 6e 6b 65 64 20 74 6f 20 74 68 65 20 75 73 65 72 2d 0a 20 20 20 20 20 64 65 73 63 72 69 70 74 69 ┆nked to the user- descripti┆
0x90860…9087e 6f 6e 2c 20 77 61 69 74 69 6e 67 20 74 6f 20 62 65 20 73 65 6e 74 2c 20 77 68 65 6e 20 74 ┆on, waiting to be sent, when t┆
0x9087e…90884 (0x450,0x1212)
0x90884…908a0 68 65 20 74 65 72 6d 69 6e 61 6c 20 62 65 63 6f 6d 65 73 20 72 65 61 64 79 0a 20 20 ┆he terminal becomes ready ┆
0x908a0…908c0 20 20 20 69 66 20 74 68 65 20 70 72 69 6f 72 69 74 79 20 63 6c 61 73 73 20 69 73 20 6e 65 67 61 ┆ if the priority class is nega┆
0x908c0…908e0 74 69 76 65 20 74 68 65 6e 20 69 74 20 69 73 20 69 6e 63 72 65 61 73 65 64 0a 0a 32 29 20 6f 75 ┆tive then it is increased 2) ou┆
0x908e0…908fc 74 70 75 74 20 6d 65 73 73 61 67 65 20 66 72 6f 6d 20 69 6e 74 65 72 6e 61 6c 20 70 ┆tput message from internal p┆
0x908fc…90902 (0x450,0x1213)
0x90902…90920 72 6f 63 65 73 73 20 2d 0a 20 20 20 20 20 69 66 20 74 68 65 20 74 65 72 6d 69 6e 61 6c 20 ┆rocess - if the terminal ┆
0x90920…90940 69 73 20 72 65 61 64 79 20 28 74 68 65 72 65 20 69 73 20 72 6f 6f 6d 20 69 6e 20 74 68 65 20 74 ┆is ready (there is room in the t┆
0x90940…90960 65 72 6d 69 6e 61 6c 20 62 75 66 66 65 72 29 2c 0a 20 20 20 20 20 74 68 65 20 6f 75 74 70 75 74 ┆erminal buffer), the output┆
0x90960…9097a 20 69 73 20 63 6f 70 69 65 64 20 66 72 6f 6d 20 74 68 65 20 70 72 6f 63 65 73 ┆ is copied from the proces┆
0x9097a…90980 (0x450,0x1214)
0x90980…909a0 73 20 69 6e 74 6f 20 74 68 65 20 62 75 66 66 65 72 2c 20 61 6e 20 61 6e 73 77 65 72 0a 20 20 20 ┆s into the buffer, an answer ┆
0x909a0…909c0 20 20 69 73 20 73 65 6e 74 20 74 6f 20 74 68 65 20 70 72 6f 63 65 73 73 2c 20 61 6e 64 20 61 6e ┆ is sent to the process, and an┆
0x909c0…909e0 20 6f 75 74 70 75 74 20 6d 65 73 73 61 67 65 20 69 73 20 73 65 6e 74 20 74 6f 20 74 68 65 20 74 ┆ output message is sent to the t┆
0x909e0…90a00 65 72 2d 0a 20 20 20 20 20 6d 69 6e 61 6c 0a 20 20 20 20 20 69 66 20 74 00 00 00 00 00 00 00 00 ┆er- minal if t ┆
0x90a00…90a06 (1157,) (0x450,0x1215)
0x90a06…90a20 68 65 20 74 65 72 6d 69 6e 61 6c 20 69 73 20 6e 6f 74 20 72 65 61 64 79 2c 20 ┆he terminal is not ready, ┆
0x90a20…90a40 74 68 65 20 69 6e 74 65 72 6e 61 6c 20 70 72 6f 63 65 73 73 20 69 73 20 73 74 6f 70 70 65 64 20 ┆the internal process is stopped ┆
0x90a40…90a60 61 6e 64 0a 20 20 20 20 20 69 74 20 69 73 20 67 69 76 65 6e 20 61 6e 20 61 6e 73 77 65 72 2c 20 ┆and it is given an answer, ┆
0x90a60…90a7e 74 65 6c 6c 69 6e 67 20 74 68 61 74 20 6e 6f 20 62 79 74 65 73 20 61 72 65 20 74 72 61 6e ┆telling that no bytes are tran┆
0x90a7e…90a84 (0x450,0x1216)
0x90a84…90aa0 73 66 65 72 72 65 64 2c 20 74 68 65 6e 0a 20 20 20 20 20 61 74 20 72 65 73 74 61 72 ┆sferred, then at restar┆
0x90aa0…90ac0 74 2c 20 74 68 65 20 70 72 6f 63 65 73 73 20 77 69 6c 6c 20 72 65 70 65 61 74 20 74 68 65 20 6f ┆t, the process will repeat the o┆
0x90ac0…90ae0 75 74 70 75 74 6d 65 73 73 61 67 65 0a 0a 33 29 20 70 61 72 65 6e 74 20 6d 65 73 73 61 67 65 20 ┆utputmessage 3) parent message ┆
0x90ae0…90afc 66 72 6f 6d 20 69 6e 74 65 72 6e 61 6c 20 70 72 6f 63 65 73 73 20 2d 0a 20 20 20 20 ┆from internal process - ┆
0x90afc…90b02 (0x450,0x1217)
0x90b02…90b20 20 66 69 6e 69 73 3a 20 74 68 65 20 70 72 6f 63 65 73 73 20 69 73 20 72 65 6d 6f 76 65 64 ┆ finis: the process is removed┆
0x90b20…90b40 2c 20 61 6e 64 20 74 68 65 20 75 73 65 72 64 65 73 63 72 69 70 74 69 6f 6e 20 63 6c 65 61 72 65 ┆, and the userdescription cleare┆
0x90b40…90b60 64 0a 20 20 20 20 20 62 72 65 61 6b 3a 20 74 68 65 20 70 72 6f 63 65 73 73 20 69 73 20 73 74 6f ┆d break: the process is sto┆
0x90b60…90b7a 70 70 65 64 2c 20 61 6e 64 20 70 72 65 70 61 72 65 64 20 66 6f 72 20 6c 6f 61 ┆pped, and prepared for loa┆
0x90b7a…90b80 (0x450,0x1218)
0x90b80…90ba0 64 69 6e 67 20 77 69 74 68 20 6e 65 77 20 61 62 73 20 70 72 6f 67 72 61 6d 0a 20 20 20 20 20 2a ┆ding with new abs program *┆
0x90ba0…90bc0 2a 2a 20 20 20 20 61 6e 79 20 6f 74 68 65 72 20 70 61 72 65 6e 74 20 6d 65 73 73 61 67 65 20 69 ┆** any other parent message i┆
0x90bc0…90be0 73 20 72 65 6a 65 63 74 65 64 20 66 6f 72 20 74 68 65 20 6d 6f 6d 65 6e 74 0a 0a 34 29 20 61 74 ┆s rejected for the moment 4) at┆
0x90be0…90c00 74 65 6e 74 69 6f 6e 20 66 72 6f 6d 20 6b 6e 6f 77 6e 20 74 65 72 6d 69 00 00 00 00 00 00 00 00 ┆tention from known termi ┆
0x90c00…90c06 (1158,) (0x450,0x1219)
0x90c06…90c20 6e 61 6c 20 2d 0a 20 20 20 20 20 74 72 65 61 74 65 64 20 61 73 20 61 6e 20 69 ┆nal - treated as an i┆
0x90c20…90c40 6e 74 65 72 72 75 70 74 2e 20 74 68 65 20 70 72 6f 63 65 73 73 20 69 73 20 73 74 6f 70 70 65 64 ┆nterrupt. the process is stopped┆
0x90c40…90c60 20 61 6e 64 20 61 6e 20 69 6e 70 75 74 6d 65 73 73 61 67 65 0a 20 20 20 20 20 69 73 20 73 65 6e ┆ and an inputmessage is sen┆
0x90c60…90c7e 64 20 74 6f 20 74 68 65 20 74 65 72 6d 69 6e 61 6c 20 61 73 6b 69 6e 67 20 66 6f 72 20 61 ┆d to the terminal asking for a┆
0x90c7e…90c84 (0x450,0x121a)
0x90c84…90ca0 20 73 79 73 74 65 6d 20 63 6f 6d 6d 61 6e 64 0a 0a 35 29 20 61 6e 73 77 65 72 20 66 ┆ system command 5) answer f┆
0x90ca0…90cc0 72 6f 6d 20 6b 6e 6f 77 6e 20 74 65 72 6d 69 6e 61 6c 20 2d 0a 20 20 20 20 20 69 6e 70 75 74 20 ┆rom known terminal - input ┆
0x90cc0…90ce0 61 6e 73 77 65 72 3a 20 20 74 68 65 20 70 72 6f 63 65 73 73 20 69 73 20 70 72 65 70 61 72 65 64 ┆answer: the process is prepared┆
0x90ce0…90cfc 20 66 6f 72 20 72 65 73 74 61 72 74 0a 20 20 20 20 20 6f 75 74 70 75 74 20 61 6e 73 ┆ for restart output ans┆
0x90cfc…90d02 (0x450,0x121b)
0x90d02…90d20 77 65 72 3a 20 69 66 20 74 68 65 20 70 72 6f 63 65 73 73 20 69 73 20 77 61 69 74 69 6e 67 ┆wer: if the process is waiting┆
0x90d20…90d40 20 74 68 65 6e 20 69 74 20 69 73 20 70 72 65 70 61 72 65 64 20 66 6f 72 0a 20 20 20 20 20 20 20 ┆ then it is prepared for ┆
0x90d40…90d60 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65 73 74 61 72 74 20 6f 74 68 65 72 77 69 7a 65 20 6e ┆ restart otherwize n┆
0x90d60…90d7a 6f 74 68 69 6e 67 20 69 73 20 74 6f 20 62 65 20 64 6f 6e 65 0a 0a 36 29 20 61 ┆othing is to be done 6) a┆
0x90d7a…90d80 (0x450,0x121c)
0x90d80…90da0 74 74 65 6e 74 69 6f 6e 20 66 72 6f 6d 20 75 6e 6b 6e 6f 77 6e 20 74 65 72 6d 69 6e 61 6c 20 2d ┆ttention from unknown terminal -┆
0x90da0…90dc0 0a 20 20 20 20 20 74 68 65 20 74 65 72 6d 69 6e 61 6c 20 69 73 20 6c 69 6e 6b 65 64 20 74 6f 20 ┆ the terminal is linked to ┆
0x90dc0…90de0 61 20 66 72 65 65 20 75 73 65 72 64 65 73 63 72 69 70 74 69 6f 6e 20 61 6e 64 20 61 6e 20 69 6e ┆a free userdescription and an in┆
0x90de0…90e00 70 75 74 20 69 73 20 73 65 6e 64 0a 20 20 20 20 20 74 6f 20 74 68 65 20 00 00 00 00 00 00 00 00 ┆put is send to the ┆
0x90e00…90e06 (1159,) (0x450,0x121d)
0x90e06…90e20 74 65 72 6d 69 6e 61 6c 20 61 73 6b 69 6e 67 20 66 6f 72 20 74 68 65 20 75 73 ┆terminal asking for the us┆
0x90e20…90e40 65 72 73 20 69 64 65 6e 74 69 66 69 63 61 74 69 6f 6e 0a 0a 37 29 20 61 6e 73 77 65 72 20 66 72 ┆ers identification 7) answer fr┆
0x90e40…90e60 6f 6d 20 74 69 6d 65 72 20 2d 0a 20 20 20 20 20 74 68 65 20 70 72 6f 63 65 73 73 20 72 75 6e 6e ┆om timer - the process runn┆
0x90e60…90e7e 69 6e 67 20 69 6e 20 63 6f 72 65 20 68 61 73 20 75 73 65 64 20 69 74 73 20 74 69 6d 65 2d ┆ing in core has used its time-┆
0x90e7e…90e84 (0x450,0x121e)
0x90e84…90ea0 73 6c 69 63 65 20 61 6e 64 20 74 68 65 72 65 66 6f 72 65 0a 20 20 20 20 20 69 74 20 ┆slice and therefore it ┆
0x90ea0…90ec0 69 73 20 73 74 6f 70 70 65 64 20 74 6f 20 6d 61 6b 65 20 72 6f 6f 6d 20 66 6f 72 20 6f 74 68 65 ┆is stopped to make room for othe┆
0x90ec0…90ee0 72 20 75 73 65 72 73 0a 20 20 20 20 20 74 68 65 20 70 72 69 6f 72 69 74 79 20 63 6c 61 73 73 20 ┆r users the priority class ┆
0x90ee0…90efc 6f 66 20 74 68 69 73 20 70 72 6f 63 65 73 73 20 69 73 20 64 65 63 72 65 61 73 65 64 ┆of this process is decreased┆
0x90efc…90f02 (0x450,0x121f)
0x90f02…90f20 0a 0a 38 29 20 6d 65 73 73 61 67 65 20 66 72 6f 6d 20 61 20 62 61 73 74 61 72 64 0a 20 20 ┆ 8) message from a bastard ┆
0x90f20…90f40 20 20 20 61 74 20 73 2d 72 65 70 6c 61 63 65 6d 65 6e 74 20 73 6f 73 20 6d 61 79 20 74 61 6b 65 ┆ at s-replacement sos may take┆
0x90f40…90f60 20 6f 76 65 72 20 73 6f 6d 65 20 75 6e 6b 6e 6f 77 6e 20 63 68 69 6c 64 72 65 6e 20 28 62 61 73 ┆ over some unknown children (bas┆
0x90f60…90f7a 74 61 72 64 73 29 0a 20 20 20 20 20 70 61 72 65 6e 74 20 6d 65 73 73 61 67 65 ┆tards) parent message┆
0x90f7a…90f80 (0x450,0x1220)
0x90f80…90fa0 73 20 66 72 6f 6d 20 74 68 65 73 65 20 63 68 69 6c 64 72 65 6e 20 61 72 65 20 77 72 69 74 74 65 ┆s from these children are writte┆
0x90fa0…90fc0 6e 20 6f 6e 20 74 68 65 20 6d 61 69 6e 20 63 6f 6e 73 6f 6c 65 0a 0a 39 29 20 6d 65 73 73 61 67 ┆n on the main console 9) messag┆
0x90fc0…90fe0 65 20 74 6f 20 61 20 70 73 65 75 64 6f 20 70 72 6f 63 65 73 73 20 63 61 6c 6c 65 64 20 74 65 6d ┆e to a pseudo process called tem┆
0x90fe0…91000 0a 0a 31 30 29 20 6d 65 73 73 61 67 65 20 74 6f 20 62 65 20 73 65 6e 64 00 00 00 00 00 00 00 00 ┆ 10) message to be send ┆
0x91000…91006 (1160,) (0x450,0x1221)
0x91006…91020 20 6c 61 74 65 72 0a 0a 31 31 29 20 6d 65 73 73 61 67 65 20 74 6f 20 61 20 70 ┆ later 11) message to a p┆
0x91020…91040 73 65 75 64 6f 20 70 72 6f 63 65 73 73 20 63 61 6c 6c 65 64 20 70 72 69 6d 6f 0a 31 32 29 20 6d ┆seudo process called primo 12) m┆
0x91040…91060 65 73 73 61 67 65 20 74 6f 20 62 65 20 73 65 6e 64 20 74 6f 20 70 72 69 6d 6f 20 6c 61 74 65 72 ┆essage to be send to primo later┆
0x91060…9107e 0a 3b 0a 0c 0a 0a 61 63 74 69 6f 6e 63 61 73 65 3a 0a 20 20 20 20 63 61 73 65 20 77 33 3a ┆ ; actioncase: case w3:┆
0x9107e…91084 (0x450,0x1222)
0x91084…910a0 3d 77 30 20 6f 66 0a 20 20 20 20 62 65 67 69 6e 0a 0a 21 20 61 63 74 69 6f 6e 20 31 ┆=w0 of begin ! action 1┆
0x910a0…910c0 20 21 0a 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 69 6e 70 75 74 20 6d 65 73 ┆ ! begin comment input mes┆
0x910c0…910e0 73 61 67 65 20 66 72 6f 6d 20 69 6e 74 65 72 6e 61 6c 20 70 72 6f 63 65 73 73 3b 0a 20 20 20 20 ┆sage from internal process; ┆
0x910e0…910fc 20 20 20 20 69 66 20 77 33 3a 3d 73 79 73 63 6f 6e 64 20 6f 6e 65 6d 61 73 6b 20 32 ┆ if w3:=syscond onemask 2┆
0x910fc…91102 (0x450,0x1223)
0x91102…91120 27 30 31 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 69 66 20 77 33 3a 3d 28 77 31 29 2e ┆'010 then if w3:=(w1).┆
0x91120…91140 69 6e 74 65 72 76 65 6e 74 20 3d 20 2d 31 20 74 68 65 6e 20 67 6f 74 6f 20 74 69 6d 65 6f 75 74 ┆intervent = -1 then goto timeout┆
0x91140…91160 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 33 3a 3d 28 77 31 29 2e 73 74 61 74 65 3c 30 20 74 68 ┆; if w3:=(w1).state<0 th┆
0x91160…9117a 65 6e 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 ┆en begin ┆
0x9117a…91180 (0x450,0x1224)
0x91180…911a0 20 28 77 31 29 2e 62 75 66 6c 65 6e 67 74 68 3a 3d 77 32 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 ┆ (w1).buflength:=w2:=0; ┆
0x911a0…911c0 20 20 73 65 6e 64 28 2e 77 33 2e 2c 77 30 3a 3d 31 2c 77 31 2c 77 32 29 3b 0a 20 20 20 20 20 20 ┆ send(.w3.,w0:=1,w1,w2); ┆
0x911c0…911e0 20 20 65 6e 64 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 69 66 20 77 33 3e 30 20 74 68 65 6e 0a ┆ end else if w3>0 then ┆
0x911e0…91200 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ begin ┆
0x91200…91206 (1161,) (0x450,0x1225)
0x91206…91220 28 77 31 29 2e 73 74 61 74 65 3a 3d 77 30 3a 3d 35 3b 0a 20 20 20 20 20 20 20 ┆(w1).state:=w0:=5; ┆
0x91220…91240 20 65 6e 64 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 ┆ end else begin ┆
0x91240…91260 20 20 28 77 31 29 2e 70 72 6f 63 62 75 66 31 3a 3d 20 77 30 3a 3d 20 28 77 32 29 2e 6d 62 66 73 ┆ (w1).procbuf1:= w0:= (w2).mbfs┆
0x91260…9127e 74 3b 0a 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 73 74 61 74 65 3a 3d 20 77 30 3a 3d ┆t; (w1).state:= w0:=┆
0x9127e…91284 (0x450,0x1226)
0x91284…912a0 20 31 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 31 29 2e 73 74 ┆ 1; if w0:=(w1).st┆
0x912a0…912c0 61 74 65 32 3d 2d 31 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 21 20 66 ┆ate2=-1 then begin ! f┆
0x912c0…912e0 70 20 63 6f 6d 6d 61 6e 64 20 72 65 61 64 79 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 ┆p command ready ! if┆
0x912e0…912fc 20 77 31 3d 63 6f 72 65 75 73 65 72 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 ┆ w1=coreuser then ┆
0x912fc…91302 (0x450,0x1227)
0x91302…91320 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 32 3a 3d 74 ┆ begin if w2:=t┆
0x91320…91340 69 6d 65 72 6d 65 73 73 3c 3e 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 ┆imermess<>0 then b┆
0x91340…91360 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 38 32 29 ┆egin monitor(82)┆
0x91360…9137a 3b 20 21 20 72 65 67 72 65 74 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆; ! regret ! ┆
0x9137a…91380 (0x450,0x1228)
0x91380…913a0 20 20 20 77 32 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 69 6d 65 72 ┆ w2:= 0; timer┆
0x913a0…913c0 6d 65 73 73 3a 3d 20 77 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 ┆mess:= w2; end; ┆
0x913c0…913e0 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e ┆ end; (w1).┆
0x913e0…91400 73 74 61 74 65 32 3a 3d 20 77 30 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆state2:= w0:= 0; ┆
0x91400…91406 (1162,) (0x450,0x1229)
0x91406…91420 20 20 20 20 20 69 66 20 77 30 3a 3d 20 28 77 31 29 2e 69 6e 74 65 72 76 65 6e ┆ if w0:= (w1).interven┆
0x91420…91440 74 3d 30 20 74 68 65 6e 20 67 6f 74 6f 20 72 65 70 65 61 74 6d 61 79 62 65 20 65 6c 73 65 0a 20 ┆t=0 then goto repeatmaybe else ┆
0x91440…91460 20 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 69 6e 74 65 72 76 65 6e 74 3a 3d 20 77 30 3a 3d ┆ (w1).intervent:= w0:=┆
0x91460…9147e 20 30 3b 20 20 21 20 6e 6f 20 66 70 20 63 6f 6d 6d 61 6e 64 20 69 6e 20 62 75 66 66 65 72 ┆ 0; ! no fp command in buffer┆
0x9147e…91484 (0x450,0x122a)
0x91484…914a0 20 61 74 20 72 65 73 74 61 72 74 20 61 66 74 65 72 20 62 72 65 61 6b 20 21 0a 20 20 ┆ at restart after break ! ┆
0x914a0…914c0 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 20 28 77 32 29 ┆ end; w3:= (w2)┆
0x914c0…914e0 2e 6d 62 6c 73 74 3b 0a 20 20 20 20 20 20 20 20 20 20 77 33 2d 77 30 2b 32 3b 0a 20 20 20 20 20 ┆.mblst; w3-w0+2; ┆
0x914e0…914fc 20 20 20 20 20 69 66 20 77 33 3e 6d 61 78 62 75 66 20 74 68 65 6e 20 77 33 3a 3d 20 ┆ if w3>maxbuf then w3:= ┆
0x914fc…91502 (0x450,0x122b)
0x91502…91520 6d 61 78 62 75 66 3b 0a 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 62 75 66 6c 65 6e 67 ┆maxbuf; (w1).bufleng┆
0x91520…91540 74 68 3a 3d 20 77 33 3b 0a 20 20 20 20 20 20 20 20 20 20 73 65 6e 64 28 2e 77 33 2e 2c 77 30 3a ┆th:= w3; send(.w3.,w0:┆
0x91540…91560 3d 30 2c 77 31 2c 77 32 3a 3d 31 32 32 38 38 29 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 ┆=0,w1,w2:=12288); end; ┆
0x91560…9157a 20 20 20 20 20 20 20 6c 69 6e 6b 28 2e 77 33 2e 2c 77 31 2c 77 32 3a 3d 61 64 ┆ link(.w3.,w1,w2:=ad┆
0x9157a…91580 (0x450,0x122c)
0x91580…915a0 64 72 65 73 73 28 77 61 69 74 71 66 73 74 29 29 3b 0a 20 20 20 20 20 20 20 20 73 74 61 72 74 73 ┆dress(waitqfst)); starts┆
0x915a0…915c0 74 6f 70 28 2e 77 33 2e 2c 77 30 3a 3d 30 2c 77 31 29 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 0c ┆top(.w3.,w0:=0,w1); end; ┆
0x915c0…915e0 0a 21 20 61 63 74 69 6f 6e 20 32 20 21 0a 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e ┆ ! action 2 ! begin commen┆
0x915e0…91600 74 20 6f 75 74 70 75 74 20 6d 65 73 73 61 67 65 20 66 72 6f 6d 20 69 6e 00 00 00 00 00 00 00 00 ┆t output message from in ┆
0x91600…91606 (1163,) (0x450,0x122d)
0x91606…91620 74 65 72 6e 61 6c 20 70 72 6f 63 65 73 73 3b 0a 20 20 20 20 20 20 20 20 69 66 ┆ternal process; if┆
0x91620…91640 20 77 30 3a 3d 28 77 31 29 2e 73 74 61 74 65 3c 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 62 ┆ w0:=(w1).state<0 then b┆
0x91640…91660 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 62 75 66 6c 65 6e 67 74 68 3a 3d 77 ┆egin (w1).buflength:=w┆
0x91660…9167e 32 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 20 73 65 6e 64 28 2e 77 33 2e 2c 77 30 3a 3d ┆2:=0; send(.w3.,w0:=┆
0x9167e…91684 (0x450,0x122e)
0x91684…916a0 31 2c 77 31 2c 77 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 63 6f 6e ┆1,w1,w2); goto con┆
0x916a0…916c0 74 69 6e 75 65 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 ┆tinue; end else ┆
0x916c0…916e0 69 66 20 77 30 3d 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 ┆if w0=0 then begin ┆
0x916e0…916fc 20 20 20 20 20 69 66 20 77 31 20 3d 20 63 6f 72 65 75 73 65 72 20 74 68 65 6e 0a 20 ┆ if w1 = coreuser then ┆
0x916fc…91702 (0x450,0x122f)
0x91702…91720 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 33 3a ┆ begin w3:┆
0x91720…91740 3d 28 77 31 29 2e 69 6e 74 65 72 6e 61 6c 2b 31 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 ┆=(w1).internal+11; w┆
0x91740…91760 33 3a 3d 28 77 33 29 2e 62 79 74 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 33 20 ┆3:=(w3).byte; if w3 ┆
0x91760…9177a 61 6e 64 20 32 27 31 30 31 30 30 30 30 30 3d 32 27 31 30 31 30 30 30 30 30 20 ┆and 2'10100000=2'10100000 ┆
0x9177a…91780 (0x450,0x1230)
0x91780…917a0 74 68 65 6e 20 21 20 73 74 6f 70 70 65 64 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 ┆then ! stopped ! beg┆
0x917a0…917c0 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 73 74 61 74 65 3a 3d 77 30 3a ┆in (w1).state:=w0:┆
0x917c0…917e0 3d 36 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 74 61 72 74 73 74 6f 70 28 2e 77 33 2e ┆=6; startstop(.w3.┆
0x917e0…91800 2c 77 30 3a 3d 31 2c 77 31 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆,w0:=1,w1); ┆
0x91800…91806 (1164,) (0x450,0x1231)
0x91806…91820 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 64 73 69 7a 65 3a 3d 77 ┆end; idsize:=w┆
0x91820…91840 30 3a 3d 28 77 31 29 2e 70 72 69 6d 69 6f 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d ┆0:=(w1).primio; w0:=┆
0x91840…91860 28 77 32 29 2e 6d 62 6c 73 74 2d 28 77 32 29 2e 6d 62 66 73 74 2b 32 3b 0a 20 20 20 20 20 20 20 ┆(w2).mblst-(w2).mbfst+2; ┆
0x91860…9187e 20 20 20 20 20 69 66 20 77 30 3e 3d 6d 61 78 62 75 66 20 74 68 65 6e 20 77 30 3a 3d 6d 61 ┆ if w0>=maxbuf then w0:=ma┆
0x9187e…91884 (0x450,0x1232)
0x91884…918a0 78 62 75 66 2d 69 64 73 69 7a 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 77 31 ┆xbuf-idsize; (w1┆
0x918a0…918c0 29 2e 62 75 66 6c 65 6e 67 74 68 3a 3d 77 30 2b 69 64 73 69 7a 65 3b 0a 20 20 20 20 20 20 20 20 ┆).buflength:=w0+idsize; ┆
0x918c0…918e0 20 20 20 20 77 33 3a 3d 77 30 2d 69 64 73 69 7a 65 2d 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ w3:=w0-idsize-2; ┆
0x918e0…918fc 20 77 31 3a 3d 28 77 31 29 2e 62 75 66 66 65 72 2b 69 64 73 69 7a 65 3b 0a 20 20 20 ┆ w1:=(w1).buffer+idsize; ┆
0x918fc…91902 (0x450,0x1233)
0x91902…91920 20 20 20 20 20 20 20 20 20 77 33 2b 77 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f ┆ w3+w1; mo┆
0x91920…91940 6e 69 74 6f 72 28 37 30 29 3b 20 21 20 63 6f 70 79 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆nitor(70); ! copy ! ┆
0x91940…91960 69 66 20 77 30 3c 3e 30 20 74 68 65 6e 20 21 20 75 6e 69 6e 74 65 6c 6c 69 67 69 62 6c 65 20 21 ┆if w0<>0 then ! unintelligible !┆
0x91960…9197a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 75 6e 69 6e 74 65 6c 6c 69 67 69 ┆ unintelligi┆
0x9197a…91980 (0x450,0x1234)
0x91980…919a0 62 6c 65 28 2e 77 33 2e 2c 77 31 3a 3d 75 73 65 72 65 6e 74 72 79 29 0a 20 20 20 20 20 20 20 20 ┆ble(.w3.,w1:=userentry) ┆
0x919a0…919c0 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 ┆ else begin ┆
0x919c0…919e0 20 20 20 20 20 20 20 20 20 77 30 3a 3d 77 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 ┆ w0:=w1; w┆
0x919e0…91a00 31 3a 3d 75 73 65 72 65 6e 74 72 79 3b 0a 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆1:=userentry; ┆
0x91a00…91a06 (1165,) (0x450,0x1235)
0x91a06…91a20 20 20 20 20 77 32 3a 3d 28 77 31 29 2e 62 75 66 66 65 72 3b 0a 20 20 20 20 20 ┆ w2:=(w1).buffer; ┆
0x91a20…91a40 20 20 20 20 20 20 20 20 20 69 66 20 77 33 3a 3d 69 64 73 69 7a 65 20 3e 20 30 20 74 68 65 6e 0a ┆ if w3:=idsize > 0 then ┆
0x91a40…91a60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 32 29 2e 77 6f 72 64 3a 3d 77 33 3a 3d 28 ┆ (w2).word:=w3:=(┆
0x91a60…91a7e 77 31 29 2e 63 75 72 72 6c 6f 63 69 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 ┆w1).currlocid; t┆
0x91a7e…91a84 (0x450,0x1236)
0x91a84…91aa0 65 73 74 6f 75 74 28 2e 77 33 2e 2c 77 30 2b 69 64 73 69 7a 65 2c 77 31 3a 3d 77 32 ┆estout(.w3.,w0+idsize,w1:=w2┆
0x91aa0…91ac0 2c 77 32 3a 3d 30 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 65 6e 64 28 2e 77 33 2e ┆,w2:=0); send(.w3.┆
0x91ac0…91ae0 2c 77 30 3a 3d 30 2c 77 31 3a 3d 75 73 65 72 65 6e 74 72 79 2c 77 32 3a 3d 32 30 34 38 30 2b 6d ┆,w0:=0,w1:=userentry,w2:=20480+m┆
0x91ae0…91afc 65 73 73 61 67 65 2e 6d 6f 64 65 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆essage.mode); ┆
0x91afc…91b02 (0x450,0x1237)
0x91b02…91b20 28 77 31 29 2e 62 75 66 6c 65 6e 67 74 68 3a 3d 20 77 30 3a 3d 20 28 77 31 29 2e 62 75 66 ┆(w1).buflength:= w0:= (w1).buf┆
0x91b20…91b40 6c 65 6e 67 74 68 2d 69 64 73 69 7a 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 65 6e ┆length-idsize; sen┆
0x91b40…91b60 64 28 2e 77 33 2e 2c 77 30 3a 3d 31 2c 77 31 2c 77 32 3a 3d 30 29 3b 0a 20 20 20 20 20 20 20 20 ┆d(.w3.,w0:=1,w1,w2:=0); ┆
0x91b60…91b7a 20 20 20 20 20 20 69 66 20 77 30 3a 3d 36 3d 28 77 33 3a 3d 28 77 31 29 2e 73 ┆ if w0:=6=(w3:=(w1).s┆
0x91b7a…91b80 (0x450,0x1238)
0x91b80…91ba0 74 61 74 65 29 20 74 68 65 6e 20 73 74 61 72 74 73 74 6f 70 28 2e 77 33 2e 2c 77 30 3a 3d 30 2c ┆tate) then startstop(.w3.,w0:=0,┆
0x91ba0…91bc0 77 31 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 73 74 61 74 65 3a 3d 77 ┆w1); (w1).state:=w┆
0x91bc0…91be0 30 3a 3d 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 20 21 20 6d 65 73 73 61 67 65 ┆0:=2; end; ! message┆
0x91be0…91c00 20 6f 6b 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 00 00 00 00 00 00 00 00 ┆ ok ! if w0: ┆
0x91c00…91c06 (1166,) (0x450,0x1239)
0x91c06…91c20 3d 36 3d 28 77 33 3a 3d 28 77 31 29 2e 73 74 61 74 65 29 20 74 68 65 6e 20 21 ┆=6=(w3:=(w1).state) then !┆
0x91c20…91c40 20 73 74 6f 70 20 69 74 20 61 67 61 69 6e 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 ┆ stop it again ! beg┆
0x91c40…91c60 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 73 74 61 74 65 3a 3d 77 30 3a ┆in (w1).state:=w0:┆
0x91c60…91c7e 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 74 61 72 74 73 74 6f 70 28 2e 77 ┆=0; startstop(.w┆
0x91c7e…91c84 (0x450,0x123a)
0x91c84…91ca0 33 2e 2c 77 30 3a 3d 30 2c 77 31 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 ┆3.,w0:=0,w1) end┆
0x91ca0…91cc0 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 62 65 ┆ end else be┆
0x91cc0…91ce0 67 69 6e 0a 65 6d 70 74 79 61 6e 73 77 65 72 3a 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 77 31 ┆gin emptyanswer: (w1┆
0x91ce0…91cfc 29 2e 62 75 66 6c 65 6e 67 74 68 3a 3d 77 30 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 ┆).buflength:=w0:=0; ┆
0x91cfc…91d02 (0x450,0x123b)
0x91d02…91d20 20 20 20 20 28 77 31 29 2e 73 74 61 74 65 3a 3d 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆ (w1).state:=w0; ┆
0x91d20…91d40 20 20 73 65 6e 64 28 2e 77 33 2e 2c 77 30 3a 3d 31 2c 77 31 2c 77 32 3a 3d 30 29 3b 0a 20 20 20 ┆ send(.w3.,w0:=1,w1,w2:=0); ┆
0x91d40…91d60 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 61 5f 72 65 61 64 79 3b 0a 20 20 20 20 20 20 20 20 20 ┆ goto a_ready; ┆
0x91d60…91d7a 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 74 69 6d ┆ end; if w0:=tim┆
0x91d7a…91d80 (0x450,0x123c)
0x91d80…91da0 65 72 6d 65 73 73 20 3c 3e 20 30 20 74 68 65 6e 20 67 6f 74 6f 20 63 6f 6e 74 69 6e 75 65 3b 0a ┆ermess <> 0 then goto continue; ┆
0x91da0…91dc0 20 20 20 20 20 20 20 20 65 6e 64 20 65 6c 73 65 20 67 6f 74 6f 20 65 6d 70 74 79 61 6e 73 77 65 ┆ end else goto emptyanswe┆
0x91dc0…91de0 72 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 0c 0a 21 20 61 63 74 69 6f 6e 20 33 20 21 0a 20 20 20 ┆r; end; ! action 3 ! ┆
0x91de0…91e00 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 70 61 72 65 6e 74 20 00 00 00 00 00 00 00 00 ┆ begin comment parent ┆
0x91e00…91e06 (1167,) (0x450,0x123d)
0x91e06…91e20 6d 65 73 73 61 67 65 20 66 72 6f 6d 20 69 6e 74 65 72 6e 61 6c 20 70 72 6f 63 ┆message from internal proc┆
0x91e20…91e40 65 73 73 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 31 29 2e 73 74 61 74 65 3c 30 ┆ess; if w0:=(w1).state<0┆
0x91e40…91e60 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 73 65 ┆ then begin se┆
0x91e60…91e7e 6e 64 28 2e 77 33 2e 2c 77 30 3a 3d 32 2c 77 31 2c 77 32 3a 3d 30 29 3b 0a 20 20 20 20 20 ┆nd(.w3.,w0:=2,w1,w2:=0); ┆
0x91e7e…91e84 (0x450,0x123e)
0x91e84…91ea0 20 20 20 20 20 67 6f 74 6f 20 63 6f 6e 74 69 6e 75 65 3b 0a 20 20 20 20 20 20 20 20 ┆ goto continue; ┆
0x91ea0…91ec0 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 31 3a 3d 63 6f 72 65 75 73 65 72 20 3e 20 30 ┆end; if w1:=coreuser > 0┆
0x91ec0…91ee0 20 74 68 65 6e 20 73 74 61 72 74 73 74 6f 70 28 2e 77 33 2e 2c 77 30 3a 3d 30 2c 77 31 29 3b 0a ┆ then startstop(.w3.,w0:=0,w1); ┆
0x91ee0…91efc 20 20 20 20 20 20 20 20 73 77 6f 70 28 2e 77 33 2e 2c 77 31 3a 3d 30 29 3b 0a 20 20 ┆ swop(.w3.,w1:=0); ┆
0x91efc…91f02 (0x450,0x123f)
0x91f02…91f20 20 20 20 20 20 20 21 67 65 74 20 32 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 20 3c 3e ┆ !get 2; if w0 <>┆
0x91f20…91f40 20 31 20 74 68 65 6e 20 67 6f 74 6f 20 64 69 73 63 66 61 75 6c 74 3b 0a 20 20 20 20 20 20 20 20 ┆ 1 then goto discfault; ┆
0x91f40…91f60 70 61 72 65 6e 74 6d 65 73 73 28 2e 77 33 2e 2c 77 31 3a 3d 75 73 65 72 65 6e 74 72 79 2c 77 32 ┆parentmess(.w3.,w1:=userentry,w2┆
0x91f60…91f7a 3a 3d 6d 65 73 73 61 67 65 29 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 0a 0a 0a ┆:=message); end; ┆
0x91f7a…91f80 (0x450,0x1240)
0x91f80…91fa0 21 20 61 63 74 69 6f 6e 20 34 20 21 0a 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 ┆! action 4 ! begin comment┆
0x91fa0…91fc0 20 61 74 74 65 6e 74 69 6f 6e 20 66 72 6f 6d 20 6b 6e 6f 77 6e 20 74 65 72 6d 69 6e 61 6c 3b 0a ┆ attention from known terminal; ┆
0x91fc0…91fe0 20 20 20 20 20 20 20 20 73 65 6e 64 28 2e 77 33 2e 2c 77 30 3a 3d 31 2c 77 31 2c 77 32 3a 3d 30 ┆ send(.w3.,w0:=1,w1,w2:=0┆
0x91fe0…92000 29 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 31 29 2e 73 00 00 00 00 00 00 00 00 ┆); if w0:=(w1).s ┆
0x92000…92006 (1168,) (0x450,0x1241)
0x92006…92020 74 61 74 65 32 3e 30 20 74 68 65 6e 20 67 6f 74 6f 20 63 6f 6e 74 69 6e 75 65 ┆tate2>0 then goto continue┆
0x92020…92040 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 31 29 2e 73 74 61 74 65 20 3c 20 30 20 ┆; if w0:=(w1).state < 0 ┆
0x92040…92060 74 68 65 6e 20 67 6f 74 6f 20 63 6f 6e 74 69 6e 75 65 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 ┆then goto continue; (w1)┆
0x92060…9207e 2e 73 74 61 74 65 3a 3d 77 30 3a 3d 2d 31 3b 0a 20 20 20 20 20 20 20 20 73 74 61 72 74 73 ┆.state:=w0:=-1; starts┆
0x9207e…92084 (0x450,0x1242)
0x92084…920a0 74 6f 70 28 2e 77 33 2e 2c 77 30 3a 3d 30 2c 77 31 29 3b 0a 20 20 20 20 20 20 20 20 ┆top(.w3.,w0:=0,w1); ┆
0x920a0…920c0 6c 69 6e 6b 28 2e 77 33 2e 2c 77 31 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 77 61 69 74 71 66 73 ┆link(.w3.,w1,w2:=address(waitqfs┆
0x920c0…920e0 74 29 29 3b 0a 20 20 20 20 20 20 20 20 77 32 3a 3d 28 77 31 29 2e 62 75 66 66 65 72 3b 0a 20 20 ┆t)); w2:=(w1).buffer; ┆
0x920e0…920fc 20 20 20 20 20 20 28 77 31 29 2e 62 75 66 6c 65 6e 67 74 68 3a 3d 77 30 3a 3d 32 3b ┆ (w1).buflength:=w0:=2;┆
0x920fc…92102 (0x450,0x1243)
0x92102…92120 0a 20 20 20 20 20 20 20 20 63 6f 70 79 28 2e 77 33 2e 2c 77 30 2c 77 31 3a 3d 61 64 64 72 ┆ copy(.w3.,w0,w1:=addr┆
0x92120…92140 65 73 73 28 61 74 74 29 2c 77 32 29 3b 0a 20 20 20 20 20 20 20 20 74 65 73 74 6f 75 74 28 2e 77 ┆ess(att),w2); testout(.w┆
0x92140…92160 33 2e 2c 77 30 2c 77 31 2c 77 32 3a 3d 30 29 3b 0a 20 20 20 20 20 20 20 20 73 65 6e 64 28 2e 77 ┆3.,w0,w1,w2:=0); send(.w┆
0x92160…9217a 33 2e 2c 77 30 3a 3d 30 2c 77 31 3a 3d 75 73 65 72 65 6e 74 72 79 2c 77 32 3a ┆3.,w0:=0,w1:=userentry,w2:┆
0x9217a…92180 (0x450,0x1244)
0x92180…921a0 3d 32 30 34 38 30 29 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 62 75 66 6c 65 6e 67 74 68 3a ┆=20480); (w1).buflength:┆
0x921a0…921c0 3d 77 30 3a 3d 6d 61 78 62 75 66 3b 0a 20 20 20 20 20 20 20 20 73 65 6e 64 28 2e 77 33 2e 2c 77 ┆=w0:=maxbuf; send(.w3.,w┆
0x921c0…921e0 30 3a 3d 30 2c 77 31 2c 77 32 3a 3d 31 32 32 38 38 29 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 ┆0:=0,w1,w2:=12288); if w┆
0x921e0…92200 31 20 3d 20 63 6f 72 65 75 73 65 72 20 74 68 65 6e 20 67 6f 74 6f 20 72 00 00 00 00 00 00 00 00 ┆1 = coreuser then goto r ┆
0x92200…92206 (1169,) (0x450,0x1245)
0x92206…92220 65 67 72 65 74 74 69 6d 65 72 20 65 6c 73 65 20 67 6f 74 6f 20 63 6f 6e 74 69 ┆egrettimer else goto conti┆
0x92220…92240 6e 75 65 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 0c 0a 21 20 61 63 74 69 6f 6e 20 35 20 21 0a 20 ┆nue; end; ! action 5 ! ┆
0x92240…92260 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 61 6e 73 77 65 72 20 66 72 6f 6d 20 6b ┆ begin comment answer from k┆
0x92260…9227e 6e 6f 77 6e 20 74 65 72 6d 69 6e 61 6c 3b 0a 20 20 20 20 20 20 20 20 77 32 3a 3d 61 64 64 ┆nown terminal; w2:=add┆
0x9227e…92284 (0x450,0x1246)
0x92284…922a0 72 65 73 73 28 69 6e 74 65 72 72 75 70 74 29 3b 0a 20 20 20 20 20 20 20 20 63 61 73 ┆ress(interrupt); cas┆
0x922a0…922c0 65 20 77 33 3a 3d 28 77 31 29 2e 73 74 61 74 65 2b 34 20 6f 66 0a 20 20 20 20 20 20 20 20 62 65 ┆e w3:=(w1).state+4 of be┆
0x922c0…922e0 67 69 6e 0a 21 20 2d 33 20 21 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 69 6e 76 69 ┆gin ! -3 ! begin comment invi┆
0x922e0…922fc 73 69 62 6c 65 20 70 61 73 73 77 6f 72 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆sible password; ┆
0x922fc…92302 (0x450,0x1247)
0x92302…92320 77 33 3a 3d 20 28 77 31 29 2e 6d 65 73 73 73 65 6e 64 3b 20 20 21 20 72 65 73 75 6c 74 20 ┆w3:= (w1).messsend; ! result ┆
0x92320…92340 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 33 20 6f 72 20 28 77 32 29 2e 73 74 61 74 ┆! if w3 or (w2).stat┆
0x92340…92360 75 73 20 6f 72 20 28 77 32 29 2e 62 79 74 65 73 20 3d 20 31 20 74 68 65 6e 0a 20 20 20 20 20 20 ┆us or (w2).bytes = 1 then ┆
0x92360…9237a 20 20 20 20 20 20 62 65 67 69 6e 20 20 21 20 72 65 70 65 61 74 20 69 6e 76 69 ┆ begin ! repeat invi┆
0x9237a…92380 (0x450,0x1248)
0x92380…923a0 73 69 62 6c 65 20 69 6e 70 75 74 2c 20 69 66 20 6e 6f 72 6d 61 6c 20 61 6e 73 77 65 72 20 61 6e ┆sible input, if normal answer an┆
0x923a0…923c0 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 79 74 65 73 20 74 72 61 ┆d bytes tra┆
0x923c0…923e0 6e 73 66 65 72 72 65 64 20 3d 20 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆nsferred = 0 ┆
0x923e0…92400 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 31 29 00 00 00 00 00 00 00 00 ┆ ! (w1) ┆
0x92400…92406 (1170,) (0x450,0x1249)
0x92406…92420 2e 62 75 66 6c 65 6e 67 74 68 3a 3d 20 77 30 3a 3d 20 6d 61 78 62 75 66 20 2d ┆.buflength:= w0:= maxbuf -┆
0x92420…92440 20 28 77 31 29 2e 62 75 66 72 65 6c 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d ┆ (w1).bufrel; w0:=┆
0x92440…92460 20 28 77 31 29 2e 62 75 66 72 65 6c 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2d 28 77 30 ┆ (w1).bufrel; -(w0┆
0x92460…9247e 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 65 6e 64 20 28 2e 77 33 2e 2c 20 77 ┆); send (.w3., w┆
0x9247e…92484 (0x450,0x124a)
0x92484…924a0 30 2c 20 77 31 2c 20 77 32 3a 3d 31 32 32 38 38 2b 70 61 73 73 6d 6f 64 65 29 3b 0a ┆0, w1, w2:=12288+passmode); ┆
0x924a0…924c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 63 6f 6e 74 69 6e 75 65 3b 0a 20 20 20 ┆ goto continue; ┆
0x924c0…924e0 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 21 20 2d ┆ end; end; ! -┆
0x924e0…924fc 32 20 21 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 6c 6f 67 69 6e 20 69 ┆2 ! begin comment login i┆
0x924fc…92502 (0x450,0x124b)
0x92502…92520 6e 66 6f 72 6d 61 74 69 6f 6e 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 72 ┆nformation; goto r┆
0x92520…92540 65 70 65 61 74 6d 61 79 62 65 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 21 20 2d 31 20 ┆epeatmaybe; end; ! -1 ┆
0x92540…92560 21 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 73 79 73 74 65 6d 20 63 6f 6d 6d 61 6e ┆! begin comment system comman┆
0x92560…9257a 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 72 65 70 65 61 74 ┆d; goto repeat┆
0x9257a…92580 (0x450,0x124c)
0x92580…925a0 6d 61 79 62 65 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 21 20 20 30 20 21 20 20 20 20 ┆maybe; end; ! 0 ! ┆
0x925a0…925c0 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 63 6f 6d 6d 75 6e 69 63 61 74 69 6f 6e 20 76 69 61 20 ┆begin comment communication via ┆
0x925c0…925e0 70 73 65 75 64 6f 20 70 72 6f 63 65 73 73 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d ┆pseudo process; w0:=┆
0x925e0…92600 28 77 31 29 2e 6d 65 73 73 73 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆(w1).messsend; ┆
0x92600…92606 (1171,) (0x450,0x124d)
0x92606…92620 20 20 20 77 32 3a 3d 28 77 31 29 2e 6d 65 73 73 67 6f 74 3b 0a 20 20 20 20 20 ┆ w2:=(w1).messgot; ┆
0x92620…92640 20 20 20 20 20 20 20 69 66 20 77 32 20 3e 20 31 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 ┆ if w2 > 10 then ┆
0x92640…92660 20 20 20 69 66 20 77 33 3a 3d 28 77 32 29 2e 6f 70 65 72 61 74 69 6f 6e 20 65 78 74 72 61 63 74 ┆ if w3:=(w2).operation extract┆
0x92660…9267e 20 32 20 3c 3e 20 33 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e ┆ 2 <> 3 then begin┆
0x9267e…92684 (0x450,0x124e)
0x92684…926a0 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 6d 65 73 73 67 6f 74 3a ┆ (w1).messgot:┆
0x926a0…926c0 3d 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 61 64 64 72 65 73 73 28 69 ┆=w0; w1:=address(i┆
0x926c0…926e0 6e 74 65 72 72 75 70 74 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 ┆nterrupt); monitor┆
0x926e0…926fc 28 32 32 29 3b 20 20 21 20 73 65 6e 64 20 61 6e 73 77 65 72 20 21 0a 20 20 20 20 20 ┆(22); ! send answer ! ┆
0x926fc…92702 (0x450,0x124f)
0x92702…92720 20 20 20 20 20 20 20 20 20 74 65 73 74 6f 75 74 28 2e 77 33 2e 2c 77 30 3a 3d 31 36 2c 77 ┆ testout(.w3.,w0:=16,w┆
0x92720…92740 31 2c 77 32 3a 3d 36 31 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 ┆1,w2:=61); end; ┆
0x92740…92760 20 20 20 20 20 20 65 6e 64 3b 0a 21 20 20 31 20 21 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 ┆ end; ! 1 ! begin comme┆
0x92760…9277a 6e 74 20 77 61 69 74 69 6e 67 20 66 6f 72 20 69 6e 70 75 74 20 61 6e 73 77 65 ┆nt waiting for input answe┆
0x9277a…92780 (0x450,0x1250)
0x92780…927a0 72 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 63 75 72 72 6c 6f 63 69 64 3a 3d 20 ┆r; (w1).currlocid:= ┆
0x927a0…927c0 77 30 3a 3d 20 28 77 33 3a 3d 28 77 31 29 2e 62 75 66 66 65 72 29 2e 77 6f 72 64 3b 0a 72 65 70 ┆w0:= (w3:=(w1).buffer).word; rep┆
0x927c0…927e0 65 61 74 6d 61 79 62 65 3a 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 28 77 31 29 2e 6d ┆eatmaybe: w3:=(w1).m┆
0x927e0…92800 65 73 73 73 65 6e 64 3b 20 20 63 6f 6d 6d 65 6e 74 20 77 33 20 3a 3d 20 00 00 00 00 00 00 00 00 ┆esssend; comment w3 := ┆
0x92800…92806 (1172,) (0x450,0x1251)
0x92806…92820 72 65 73 75 6c 74 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 33 20 ┆result; if w3 ┆
0x92820…92840 6f 72 20 28 77 32 29 2e 73 74 61 74 75 73 20 6f 72 20 28 77 32 29 2e 62 79 74 65 73 20 3d 20 31 ┆or (w2).status or (w2).bytes = 1┆
0x92840…92860 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 ┆ then begin comment ┆
0x92860…9287e 72 65 70 65 61 74 20 69 6e 70 75 74 20 69 66 20 6e 6f 72 6d 61 6c 20 61 6e 73 77 65 72 2c ┆repeat input if normal answer,┆
0x9287e…92884 (0x450,0x1252)
0x92884…928a0 20 62 79 74 65 73 20 74 72 61 6e 73 2d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ bytes trans- ┆
0x928a0…928c0 20 20 20 20 20 20 20 20 20 20 20 20 66 65 72 72 65 64 20 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 ┆ ferred = 0; ┆
0x928c0…928e0 20 20 20 20 20 20 28 77 31 29 2e 62 75 66 6c 65 6e 67 74 68 3a 3d 77 30 3a 3d 6d 61 78 62 75 66 ┆ (w1).buflength:=w0:=maxbuf┆
0x928e0…928fc 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 65 6e 64 28 2e 77 33 2e 2c 77 30 ┆; send(.w3.,w0┆
0x928fc…92902 (0x450,0x1253)
0x92902…92920 3a 3d 30 2c 77 31 2c 77 32 3a 3d 31 32 32 38 38 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆:=0,w1,w2:=12288); ┆
0x92920…92940 20 20 20 67 6f 74 6f 20 63 6f 6e 74 69 6e 75 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e ┆ goto continue; en┆
0x92940…92960 64 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 21 20 20 32 20 21 20 20 20 20 62 65 67 69 ┆d; end; ! 2 ! begi┆
0x92960…9297a 6e 20 63 6f 6d 6d 65 6e 74 20 77 61 69 74 69 6e 67 20 66 6f 72 20 6f 75 74 70 ┆n comment waiting for outp┆
0x9297a…92980 (0x450,0x1254)
0x92980…929a0 75 74 20 61 6e 73 77 65 72 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 73 74 61 74 ┆ut answer; (w1).stat┆
0x929a0…929c0 65 3a 3d 77 30 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 63 6f 6e 74 69 ┆e:=w0:=0; goto conti┆
0x929c0…929e0 6e 75 65 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 21 20 20 33 20 21 20 20 20 20 62 65 ┆nue; end; ! 3 ! be┆
0x929e0…92a00 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 77 61 69 74 69 6e 67 20 66 6f 72 20 00 00 00 00 00 00 00 00 ┆gin comment waiting for ┆
0x92a00…92a06 (1173,) (0x450,0x1255)
0x92a06…92a20 6c 6f 61 64 20 77 69 74 68 20 6e 65 77 20 61 62 73 20 70 72 6f 67 72 61 6d 20 ┆load with new abs program ┆
0x92a20…92a40 20 2d 20 20 73 74 61 74 65 20 6e 6f 74 20 70 6f 73 73 69 62 6c 65 20 68 65 72 65 3b 0a 20 20 20 ┆ - state not possible here; ┆
0x92a40…92a60 20 20 20 20 20 20 20 65 6e 64 3b 0a 21 20 20 34 20 21 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d ┆ end; ! 4 ! begin comm┆
0x92a60…92a7e 65 6e 74 20 73 75 73 70 65 6e 64 65 64 20 62 65 63 61 75 73 65 20 6f 66 20 6f 75 74 70 75 ┆ent suspended because of outpu┆
0x92a7e…92a84 (0x450,0x1256)
0x92a84…92aa0 74 20 62 75 66 66 65 72 20 66 75 6c 6c 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 ┆t buffer full; (┆
0x92aa0…92ac0 77 31 29 2e 73 74 61 74 65 3a 3d 77 30 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b ┆w1).state:=w0:=0; end;┆
0x92ac0…92ae0 0a 21 20 20 35 20 21 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 6d 65 73 73 61 67 65 ┆ ! 5 ! begin comment message┆
0x92ae0…92afc 20 77 61 69 74 69 6e 67 20 74 6f 20 62 65 20 73 65 6e 64 3b 0a 20 20 20 20 20 20 20 ┆ waiting to be send; ┆
0x92afc…92b02 (0x450,0x1257)
0x92b02…92b20 20 20 20 20 20 6c 69 6e 6b 28 2e 77 33 2e 2c 77 31 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 ┆ link(.w3.,w1,w2:=address(┆
0x92b20…92b40 61 63 74 69 76 71 66 73 74 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 6d 65 73 73 61 67 65 ┆activqfst)); message┆
0x92b40…92b60 3a 3d 77 32 3a 3d 28 77 31 29 2e 6d 65 73 73 67 6f 74 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆:=w2:=(w1).messgot; ┆
0x92b60…92b7a 28 77 31 29 2e 73 74 61 74 65 3a 3d 77 30 3a 3d 30 3b 0a 20 20 20 20 20 20 20 ┆(w1).state:=w0:=0; ┆
0x92b7a…92b80 (0x450,0x1258)
0x92b80…92ba0 20 20 20 20 20 69 66 20 77 33 3a 3d 28 77 32 29 2e 72 65 63 65 69 76 65 72 2b 6f 77 6e 70 72 6f ┆ if w3:=(w2).receiver+ownpro┆
0x92ba0…92bc0 63 20 3c 3e 20 30 20 74 68 65 6e 20 77 30 3a 3d 39 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 ┆c <> 0 then w0:=9 else ┆
0x92bc0…92be0 20 20 20 69 66 20 77 33 3a 3d 28 77 32 29 2e 6f 70 65 72 61 74 69 6f 6e 20 3d 20 33 20 74 68 65 ┆ if w3:=(w2).operation = 3 the┆
0x92be0…92c00 6e 20 77 30 3a 3d 31 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆n w0:=1 else ┆
0x92c00…92c06 (1174,) (0x450,0x1259)
0x92c06…92c20 20 69 66 20 77 33 20 3d 20 35 20 74 68 65 6e 20 77 30 3a 3d 32 20 65 6c 73 65 ┆ if w3 = 5 then w0:=2 else┆
0x92c20…92c40 20 77 30 3a 3d 33 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 61 63 74 69 6f 6e 63 ┆ w0:=3; goto actionc┆
0x92c40…92c60 61 73 65 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 21 20 20 36 20 21 20 20 20 20 62 65 ┆ase; end; ! 6 ! be┆
0x92c60…92c7e 67 69 6e 20 21 20 77 61 69 74 69 6e 67 20 61 6e 73 77 65 72 20 66 72 6f 6d 20 70 72 69 6d ┆gin ! waiting answer from prim┆
0x92c7e…92c84 (0x450,0x125a)
0x92c84…92ca0 6f 20 21 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 21 20 20 37 20 21 20 20 20 ┆o ! end; ! 7 ! ┆
0x92ca0…92cc0 20 62 65 67 69 6e 20 21 20 6d 65 73 73 61 67 65 20 77 61 69 74 69 6e 67 20 74 6f 20 62 65 20 73 ┆ begin ! message waiting to be s┆
0x92cc0…92ce0 65 6e 64 20 74 6f 20 70 72 69 6d 6f 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 6c 69 6e 6b 28 ┆end to primo ! link(┆
0x92ce0…92cfc 2e 77 33 2e 2c 77 31 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 61 63 74 69 76 71 66 73 ┆.w3.,w1,w2:=address(activqfs┆
0x92cfc…92d02 (0x450,0x125b)
0x92d02…92d20 74 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 6d 65 73 73 61 67 65 3a 3d 77 32 3a 3d ┆t)); message:=w2:=┆
0x92d20…92d40 28 77 31 29 2e 6d 65 73 73 67 6f 74 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 73 ┆(w1).messgot; (w1).s┆
0x92d40…92d60 74 61 74 65 3a 3d 77 30 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 31 31 3b ┆tate:=w0:=0; w0:=11;┆
0x92d60…92d7a 0a 20 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 61 63 74 69 6f 6e 63 61 ┆ goto actionca┆
0x92d7a…92d80 (0x450,0x125c)
0x92d80…92da0 73 65 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 ┆se end; end; ┆
0x92da0…92dc0 20 20 20 20 20 20 20 6c 69 6e 6b 28 2e 77 33 2e 2c 77 31 3a 3d 75 73 65 72 65 6e 74 72 79 2c 77 ┆ link(.w3.,w1:=userentry,w┆
0x92dc0…92de0 32 3a 3d 61 64 64 72 65 73 73 28 61 63 74 69 76 71 66 73 74 29 29 3b 0a 61 5f 72 65 61 64 79 3a ┆2:=address(activqfst)); a_ready:┆
0x92de0…92e00 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 74 69 6d 65 72 6d 65 73 00 00 00 00 00 00 00 00 ┆ if w0:=timermes ┆
0x92e00…92e06 (1175,) (0x450,0x125d)
0x92e06…92e20 73 3c 3e 30 20 74 68 65 6e 20 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 ┆s<>0 then begin ┆
0x92e20…92e40 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 63 6f 72 65 75 73 65 72 2e 63 6c 61 73 73 2b 74 ┆ if w0:=coreuser.class+t┆
0x92e40…92e60 69 6d 65 72 6c 6f 73 73 20 3c 20 6d 69 6e 70 72 69 6f 0a 20 20 20 20 20 20 20 20 20 20 74 68 65 ┆imerloss < minprio the┆
0x92e60…92e7e 6e 20 67 6f 74 6f 20 73 74 6f 70 63 6f 72 65 75 73 65 72 0a 20 20 20 20 20 20 20 20 20 20 ┆n goto stopcoreuser ┆
0x92e7e…92e84 (0x450,0x125e)
0x92e84…92ea0 65 6c 73 65 20 67 6f 74 6f 20 63 6f 6e 74 69 6e 75 65 3b 0a 20 20 20 20 20 20 20 20 ┆else goto continue; ┆
0x92ea0…92ec0 65 6e 64 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 0c 0a 21 20 61 63 74 69 6f 6e 20 36 20 21 0a 20 ┆end; end; ! action 6 ! ┆
0x92ec0…92ee0 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 61 74 74 65 6e 74 69 6f 6e 20 66 72 6f ┆ begin comment attention fro┆
0x92ee0…92efc 6d 20 75 6e 6b 6e 6f 77 6e 20 74 65 72 6d 69 6e 61 6c 3b 0a 20 20 20 20 20 20 20 20 ┆m unknown terminal; ┆
0x92efc…92f02 (0x450,0x125f)
0x92f02…92f20 73 65 6e 64 28 2e 77 33 2e 2c 77 30 3a 3d 31 2c 77 31 2c 77 32 3a 3d 30 29 3b 0a 20 20 20 ┆send(.w3.,w0:=1,w1,w2:=0); ┆
0x92f20…92f40 20 20 20 20 20 28 77 31 29 2e 73 74 61 74 65 3a 3d 77 30 3a 3d 2d 32 3b 0a 20 20 20 20 20 20 20 ┆ (w1).state:=w0:=-2; ┆
0x92f40…92f60 20 28 77 31 29 2e 62 75 66 6c 65 6e 67 74 68 3a 3d 77 30 3a 3d 32 3b 0a 20 20 20 20 20 20 20 20 ┆ (w1).buflength:=w0:=2; ┆
0x92f60…92f7a 77 32 3a 3d 28 77 31 29 2e 62 75 66 66 65 72 3b 0a 20 20 20 20 20 20 20 20 63 ┆w2:=(w1).buffer; c┆
0x92f7a…92f80 (0x450,0x1260)
0x92f80…92fa0 6f 70 79 28 2e 77 33 2e 2c 77 30 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 61 74 74 29 2c 77 32 29 ┆opy(.w3.,w0,w1:=address(att),w2)┆
0x92fa0…92fc0 3b 0a 20 20 20 20 20 20 20 20 74 65 73 74 6f 75 74 28 2e 77 33 2e 2c 77 30 2c 77 31 2c 77 32 3a ┆; testout(.w3.,w0,w1,w2:┆
0x92fc0…92fe0 3d 30 29 3b 0a 20 20 20 20 20 20 20 20 73 65 6e 64 28 2e 77 33 2e 2c 77 30 3a 3d 30 2c 77 31 3a ┆=0); send(.w3.,w0:=0,w1:┆
0x92fe0…93000 3d 75 73 65 72 65 6e 74 72 79 2c 77 32 3a 3d 32 30 34 38 30 29 3b 0a 20 00 00 00 00 00 00 00 00 ┆=userentry,w2:=20480); ┆
0x93000…93006 (1176,) (0x450,0x1261)
0x93006…93020 20 20 20 20 20 20 20 28 77 31 29 2e 62 75 66 6c 65 6e 67 74 68 3a 3d 77 30 3a ┆ (w1).buflength:=w0:┆
0x93020…93040 3d 6d 61 78 62 75 66 3b 0a 20 20 20 20 20 20 20 20 73 65 6e 64 28 2e 77 33 2e 2c 77 30 3a 3d 30 ┆=maxbuf; send(.w3.,w0:=0┆
0x93040…93060 2c 77 31 2c 77 32 3a 3d 31 32 32 38 38 29 3b 0a 20 20 20 20 20 20 20 20 67 6f 74 6f 20 63 6f 6e ┆,w1,w2:=12288); goto con┆
0x93060…9307e 74 69 6e 75 65 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 0a 21 20 61 63 74 69 6f 6e 20 37 20 ┆tinue; end; ! action 7 ┆
0x9307e…93084 (0x450,0x1262)
0x93084…930a0 21 0a 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 61 6e 73 77 65 72 ┆! begin comment answer┆
0x930a0…930c0 20 66 72 6f 6d 20 74 69 6d 65 72 3b 0a 73 74 6f 70 63 6f 72 65 75 73 65 72 3a 0a 20 20 20 20 20 ┆ from timer; stopcoreuser: ┆
0x930c0…930e0 20 20 20 75 73 65 72 65 6e 74 72 79 3a 3d 77 31 3a 3d 63 6f 72 65 75 73 65 72 3b 0a 20 20 20 20 ┆ userentry:=w1:=coreuser; ┆
0x930e0…930fc 20 20 20 20 73 74 61 72 74 73 74 6f 70 28 2e 77 33 2e 2c 77 30 3a 3d 30 2c 77 31 29 ┆ startstop(.w3.,w0:=0,w1)┆
0x930fc…93102 (0x450,0x1263)
0x93102…93120 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 31 29 2e 63 6c 61 73 73 2b 74 69 ┆; if w0:=(w1).class+ti┆
0x93120…93140 6d 65 72 6c 6f 73 73 20 3c 20 62 61 74 63 68 63 6c 61 73 73 20 74 68 65 6e 20 28 77 31 29 2e 70 ┆merloss < batchclass then (w1).p┆
0x93140…93160 72 69 6f 3a 3d 77 30 3a 3d 30 20 20 20 21 20 62 61 74 63 68 20 21 0a 20 20 20 20 20 20 20 20 65 ┆rio:=w0:=0 ! batch ! e┆
0x93160…9317a 6c 73 65 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 20 20 21 20 67 6f 2f 72 ┆lse begin ! go/r┆
0x9317a…93180 (0x450,0x1264)
0x93180…931a0 75 6e 2d 6a 6f 62 73 20 21 20 0a 20 20 20 20 20 20 20 20 20 20 6c 69 6e 6b 28 2e 77 33 2e 2c 77 ┆un-jobs ! link(.w3.,w┆
0x931a0…931c0 31 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 61 63 74 69 76 71 66 73 74 29 29 3b 0a 20 20 20 20 20 ┆1,w2:=address(activqfst)); ┆
0x931c0…931e0 20 20 20 20 20 28 77 31 29 2e 63 6c 61 73 73 3a 3d 77 30 3a 3d 28 77 31 29 2e 63 6c 61 73 73 2d ┆ (w1).class:=w0:=(w1).class-┆
0x931e0…93200 74 69 6d 65 72 6c 6f 73 73 3b 0a 20 20 20 20 20 20 20 20 20 20 28 77 31 00 00 00 00 00 00 00 00 ┆timerloss; (w1 ┆
0x93200…93206 (1177,) (0x450,0x1265)
0x93206…93220 29 2e 70 72 69 6f 3a 3d 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 ┆).prio:=w0; if w┆
0x93220…93240 33 3a 3d 73 79 73 63 6f 6e 64 20 6f 6e 65 6d 61 73 6b 20 32 27 30 30 31 20 74 68 65 6e 0a 20 20 ┆3:=syscond onemask 2'001 then ┆
0x93240…93260 20 20 20 20 20 20 20 20 69 66 20 77 30 20 3c 20 6d 69 6e 70 72 69 6f 20 74 68 65 6e 0a 20 20 20 ┆ if w0 < minprio then ┆
0x93260…9327e 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 62 72 65 61 6b 20 70 72 6f ┆ begin comment break pro┆
0x9327e…93284 (0x450,0x1266)
0x93284…932a0 63 65 73 73 3b 0a 74 69 6d 65 6f 75 74 3a 0a 20 20 20 20 20 20 20 20 20 20 20 20 73 ┆cess; timeout: s┆
0x932a0…932c0 77 6f 70 28 2e 77 33 2e 2c 77 31 3a 3d 30 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 21 67 65 ┆wop(.w3.,w1:=0); !ge┆
0x932c0…932e0 74 20 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 20 3c 3e 20 31 20 74 68 65 6e ┆t 2; if w0 <> 1 then┆
0x932e0…932fc 20 67 6f 74 6f 20 64 69 73 63 66 61 75 6c 74 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ goto discfault; ┆
0x932fc…93302 (0x450,0x1267)
0x93302…93320 20 62 72 65 61 6b 28 2e 77 33 2e 2c 77 31 3a 3d 75 73 65 72 65 6e 74 72 79 29 3b 0a 20 20 ┆ break(.w3.,w1:=userentry); ┆
0x93320…93340 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 69 6e 74 65 72 76 65 6e 74 3a 3d 77 30 3a 3d 35 3b ┆ (w1).intervent:=w0:=5;┆
0x93340…93360 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 ┆ end; end; ┆
0x93360…9337a 20 20 20 65 6e 64 3b 0a 0a 21 20 61 63 74 69 6f 6e 20 38 20 21 0a 20 20 20 20 ┆ end; ! action 8 ! ┆
0x9337a…93380 (0x450,0x1268)
0x93380…933a0 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 70 61 72 65 6e 74 20 6d 65 73 73 61 67 65 20 66 ┆ begin comment parent message f┆
0x933a0…933c0 72 6f 6d 20 61 20 62 61 73 74 61 72 64 3b 0a 20 20 20 20 20 20 20 20 73 77 6f 70 28 2e 77 33 2e ┆rom a bastard; swop(.w3.┆
0x933c0…933e0 2c 77 31 3a 3d 30 29 3b 0a 20 20 20 20 20 20 20 20 21 67 65 74 20 32 3b 0a 20 20 20 20 20 20 20 ┆,w1:=0); !get 2; ┆
0x933e0…93400 20 69 66 20 77 30 20 3c 3e 20 31 20 74 68 65 6e 20 67 6f 74 6f 20 64 69 00 00 00 00 00 00 00 00 ┆ if w0 <> 1 then goto di ┆
0x93400…93406 (1178,) (0x450,0x1269)
0x93406…93420 73 63 66 61 75 6c 74 3b 0a 20 20 20 20 20 20 20 20 6f 70 6d 65 73 73 28 2e 77 ┆scfault; opmess(.w┆
0x93420…93440 33 2e 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 28 77 32 29 2e 6f 70 65 72 61 74 69 6f 6e 29 2c 77 ┆3.,w1:=address((w2).operation),w┆
0x93440…93460 32 3a 3d 28 77 32 29 2e 73 65 6e 64 65 72 29 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 0c 0a 21 20 ┆2:=(w2).sender); end; ! ┆
0x93460…9347e 61 63 74 69 6f 6e 20 39 20 21 0a 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 ┆action 9 ! begin comment┆
0x9347e…93484 (0x450,0x126a)
0x93484…934a0 20 6d 65 73 73 61 67 65 20 74 6f 20 61 20 70 73 65 75 64 6f 20 70 72 6f 63 65 73 73 ┆ message to a pseudo process┆
0x934a0…934c0 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 31 3a 3d 28 77 32 29 2e 72 65 63 65 69 76 65 72 20 3c ┆; if w1:=(w2).receiver <┆
0x934c0…934e0 20 30 20 74 68 65 6e 20 2d 28 77 31 29 3b 0a 20 20 20 20 20 20 20 20 63 6f 70 79 28 2e 77 33 2e ┆ 0 then -(w1); copy(.w3.┆
0x934e0…934fc 2c 77 30 3a 3d 38 2c 77 31 2b 32 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 70 72 6f 63 ┆,w0:=8,w1+2,w2:=address(proc┆
0x934fc…93502 (0x450,0x126b)
0x93502…93520 6e 61 6d 65 29 29 3b 0a 20 20 20 20 20 20 20 20 63 6f 70 79 28 2e 77 33 2e 2c 77 30 3a 3d ┆name)); copy(.w3.,w0:=┆
0x93520…93540 31 36 2c 77 31 3a 3d 6d 65 73 73 61 67 65 2b 38 2c 77 32 3a 3d 6c 61 73 74 75 73 65 72 29 3b 0a ┆16,w1:=message+8,w2:=lastuser); ┆
0x93540…93560 20 20 20 20 20 20 20 20 77 32 3a 3d 6d 65 73 73 61 67 65 3b 0a 20 20 20 20 20 20 20 20 69 66 20 ┆ w2:=message; if ┆
0x93560…9357a 77 30 3a 3d 28 77 32 29 2e 6f 70 65 72 61 74 69 6f 6e 20 6f 6e 65 6d 61 73 6b ┆w0:=(w2).operation onemask┆
0x9357a…93580 (0x450,0x126c)
0x93580…935a0 20 31 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 20 21 20 69 6f 20 20 2d 20 75 ┆ 1 then begin ! io - u┆
0x935a0…935c0 73 65 20 73 6f 73 20 62 75 66 66 65 72 20 21 0a 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 75 73 ┆se sos buffer ! w1:=us┆
0x935c0…935e0 65 72 65 6e 74 72 79 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 31 20 3c 3e 20 63 6f 72 65 ┆erentry; if w1 <> core┆
0x935e0…93600 75 73 65 72 20 74 68 65 6e 20 67 6f 74 6f 20 65 6d 70 74 79 61 6e 73 77 00 00 00 00 00 00 00 00 ┆user then goto emptyansw ┆
0x93600…93606 (1179,) (0x450,0x126d)
0x93606…93620 65 72 3b 0a 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 6c 61 73 74 75 73 65 72 ┆er; w3:=lastuser┆
0x93620…93640 2d 38 3b 0a 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 6d 6f 64 65 3a 3d 77 30 3a 3d 28 77 32 ┆-8; (w3).mode:=w0:=(w2┆
0x93640…93660 29 2e 6d 6f 64 65 20 65 78 74 72 61 63 74 20 36 3b 0a 20 20 20 20 20 20 20 20 20 20 28 77 33 29 ┆).mode extract 6; (w3)┆
0x93660…9367e 2e 6d 62 66 73 74 3a 3d 77 30 3a 3d 28 77 31 29 2e 62 75 66 66 65 72 3b 0a 20 20 20 20 20 ┆.mbfst:=w0:=(w1).buffer; ┆
0x9367e…93684 (0x450,0x126e)
0x93684…936a0 20 20 20 20 20 77 30 3a 3d 28 77 32 29 2e 6d 62 6c 73 74 2d 28 77 32 29 2e 6d 62 66 ┆ w0:=(w2).mblst-(w2).mbf┆
0x936a0…936c0 73 74 2b 32 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 20 3e 20 6d 61 78 62 75 66 20 74 ┆st+2; if w0 > maxbuf t┆
0x936c0…936e0 68 65 6e 20 77 30 3a 3d 6d 61 78 62 75 66 3b 0a 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 62 ┆hen w0:=maxbuf; (w1).b┆
0x936e0…936fc 75 66 6c 65 6e 67 74 68 3a 3d 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 28 77 33 29 ┆uflength:=w0; (w3)┆
0x936fc…93702 (0x450,0x126f)
0x93702…93720 2e 6d 62 6c 73 74 3a 3d 77 30 2b 28 77 33 29 2e 6d 62 66 73 74 2d 32 3b 0a 20 20 20 20 20 ┆.mblst:=w0+(w3).mbfst-2; ┆
0x93720…93740 20 20 20 20 20 28 77 31 29 2e 70 72 6f 63 62 75 66 31 3a 3d 77 30 3a 3d 28 77 32 29 2e 6d 62 66 ┆ (w1).procbuf1:=w0:=(w2).mbf┆
0x93740…93760 73 74 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 32 29 2e 6f 70 65 72 61 74 ┆st; if w0:=(w2).operat┆
0x93760…9377a 69 6f 6e 20 3c 3e 20 33 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 62 65 ┆ion <> 3 then be┆
0x9377a…93780 (0x450,0x1270)
0x93780…937a0 67 69 6e 20 20 21 20 73 6f 6d 65 20 6b 69 6e 64 20 6f 66 20 6f 75 74 70 75 74 20 61 73 73 75 6d ┆gin ! some kind of output assum┆
0x937a0…937c0 65 64 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 32 29 2e 6d 6f 64 ┆ed ! if w0:=(w2).mod┆
0x937c0…937e0 65 20 6f 6e 65 6d 61 73 6b 20 38 27 31 30 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 ┆e onemask 8'100 then ┆
0x937e0…93800 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 33 00 00 00 00 00 00 00 00 ┆ begin (w3 ┆
0x93800…93806 (1180,) (0x450,0x1271)
0x93806…93820 29 2e 6d 62 6c 73 74 3a 3d 77 32 3a 3d 28 77 33 29 2e 6d 62 6c 73 74 2b 32 3b ┆).mblst:=w2:=(w3).mblst+2;┆
0x93820…93840 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 32 3a 3d 28 77 31 29 2e 62 75 66 66 65 72 29 ┆ (w2:=(w1).buffer)┆
0x93840…93860 2e 77 6f 72 64 3a 3d 77 33 3a 3d 28 77 31 29 2e 63 75 72 72 6c 6f 63 69 64 3b 0a 20 20 20 20 20 ┆.word:=w3:=(w1).currlocid; ┆
0x93860…9387e 20 20 20 20 20 20 20 20 20 77 32 2b 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 ┆ w2+2; end┆
0x9387e…93884 (0x450,0x1272)
0x93884…938a0 20 65 6c 73 65 20 77 32 3a 3d 28 77 31 29 2e 62 75 66 66 65 72 3b 0a 20 20 20 20 20 ┆ else w2:=(w1).buffer; ┆
0x938a0…938c0 20 20 20 20 20 20 20 63 6f 70 79 28 2e 77 33 2e 2c 77 30 3a 3d 28 77 31 29 2e 62 75 66 6c 65 6e ┆ copy(.w3.,w0:=(w1).buflen┆
0x938c0…938e0 67 74 68 2c 77 31 3a 3d 28 77 31 29 2e 70 72 6f 63 62 75 66 31 2c 77 32 29 3b 0a 20 20 20 20 20 ┆gth,w1:=(w1).procbuf1,w2); ┆
0x938e0…938fc 20 20 20 20 20 20 20 74 65 73 74 6f 75 74 28 2e 77 33 2e 2c 77 30 2c 77 31 2c 77 32 ┆ testout(.w3.,w0,w1,w2┆
0x938fc…93902 (0x450,0x1273)
0x93902…93920 3a 3d 30 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 73 65 6e 64 28 2e 77 33 2e 2c 77 30 ┆:=0); send(.w3.,w0┆
0x93920…93940 3a 3d 31 2c 77 31 3a 3d 75 73 65 72 65 6e 74 72 79 2c 77 32 3a 3d 30 29 3b 0a 20 20 20 20 20 20 ┆:=1,w1:=userentry,w2:=0); ┆
0x93940…93960 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 0a 20 20 20 20 20 20 20 20 62 ┆ end; end; b┆
0x93960…9397a 65 67 69 6e 20 20 20 21 20 6d 65 73 73 61 67 65 20 74 6f 20 74 65 6d 20 21 0a ┆egin ! message to tem ! ┆
0x9397a…93980 (0x450,0x1274)
0x93980…939a0 20 20 20 20 20 20 20 20 20 20 63 6f 70 79 28 2e 77 33 2e 2c 77 30 3a 3d 36 2c 77 31 3a 3d 75 73 ┆ copy(.w3.,w0:=6,w1:=us┆
0x939a0…939c0 65 72 65 6e 74 72 79 2e 69 6e 74 65 72 6e 61 6c 2b 32 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 70 ┆erentry.internal+2,w2:=address(p┆
0x939c0…939e0 72 6f 63 6e 61 6d 65 29 2b 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 61 64 64 72 65 ┆rocname)+2); w3:=addre┆
0x939e0…93a00 73 73 28 70 72 6f 63 6e 61 6d 65 29 3b 0a 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ss(procname); ┆
0x93a00…93a06 (1181,) (0x450,0x1275)
0x93a06…93a20 6d 69 63 74 69 6d 65 72 3a 3d 77 33 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 ┆mictimer:=w3; if┆
0x93a20…93a40 20 77 30 3a 3d 6d 65 73 73 61 67 65 2e 6f 70 65 72 61 74 69 6f 6e 20 3e 3d 20 39 30 20 74 68 65 ┆ w0:=message.operation >= 90 the┆
0x93a40…93a60 6e 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 20 3c 20 31 30 30 20 74 68 65 6e 0a 20 20 20 ┆n if w0 < 100 then ┆
0x93a60…93a7e 20 20 20 20 20 20 20 62 65 67 69 6e 20 20 20 21 20 6d 65 73 73 61 67 65 20 63 6f 6e 63 65 ┆ begin ! message conce┆
0x93a7e…93a84 (0x450,0x1276)
0x93a84…93aa0 72 6e 69 6e 67 20 61 20 70 6f 6f 6c 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 ┆rning a pool ! w┆
0x93aa0…93ac0 30 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 6d 69 63 74 69 6d 65 72 3a 3d 77 30 3b 0a ┆0:=0; mictimer:=w0; ┆
0x93ac0…93ae0 20 20 20 20 20 20 20 20 20 20 20 20 62 61 73 65 65 76 65 6e 74 3a 3d 77 30 3b 0a 20 20 20 20 20 ┆ baseevent:=w0; ┆
0x93ae0…93afc 20 20 20 20 20 20 20 63 6f 70 79 28 2e 77 33 2e 2c 77 30 3a 3d 38 2c 77 31 3a 3d 61 ┆ copy(.w3.,w0:=8,w1:=a┆
0x93afc…93b02 (0x450,0x1277)
0x93b02…93b20 64 64 72 65 73 73 28 70 72 6f 63 6e 61 6d 65 29 2c 77 32 3a 3d 6c 61 73 74 75 73 65 72 2b ┆ddress(procname),w2:=lastuser+┆
0x93b20…93b40 38 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 61 64 64 72 65 73 73 28 74 5f 6d 64 ┆8); w3:=address(t_md┆
0x93b40…93b60 75 6c 29 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b ┆ul); end; end;┆
0x93b60…93b7a 0a 20 20 20 20 20 20 20 20 77 31 3a 3d 6c 61 73 74 75 73 65 72 3b 0a 20 20 20 ┆ w1:=lastuser; ┆
0x93b7a…93b80 (0x450,0x1278)
0x93b80…93ba0 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 31 36 29 3b 20 20 20 21 20 73 65 6e 64 20 6d 65 73 73 61 ┆ monitor(16); ! send messa┆
0x93ba0…93bc0 67 65 20 21 0a 20 20 20 20 20 20 20 20 75 73 65 72 65 6e 74 72 79 2e 6d 65 73 73 73 65 6e 64 3a ┆ge ! userentry.messsend:┆
0x93bc0…93be0 3d 77 32 3b 0a 20 20 20 20 20 20 20 20 70 73 6d 65 73 73 3a 3d 77 32 3b 0a 20 20 20 20 20 20 20 ┆=w2; psmess:=w2; ┆
0x93be0…93c00 20 69 66 20 77 30 3a 3d 6d 69 63 74 69 6d 65 72 20 3e 20 30 20 74 68 65 00 00 00 00 00 00 00 00 ┆ if w0:=mictimer > 0 the ┆
0x93c00…93c06 (1182,) (0x450,0x1279)
0x93c06…93c20 6e 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 ┆n begin ┆
0x93c20…93c40 77 33 3a 3d 61 64 64 72 65 73 73 28 74 69 6d 65 72 29 3b 0a 20 20 20 20 20 20 20 20 20 20 77 31 ┆w3:=address(timer); w1┆
0x93c40…93c60 3a 3d 61 64 64 72 65 73 73 28 6d 69 63 75 6e 69 74 29 3b 0a 20 20 20 20 20 20 20 20 20 20 6d 6f ┆:=address(micunit); mo┆
0x93c60…93c7e 6e 69 74 6f 72 28 31 36 29 3b 20 20 20 21 20 73 65 6e 64 20 74 69 6d 65 72 20 6d 65 73 73 ┆nitor(16); ! send timer mess┆
0x93c7e…93c84 (0x450,0x127a)
0x93c84…93ca0 61 67 65 20 21 0a 20 20 20 20 20 20 20 20 20 20 6d 69 63 74 69 6d 65 72 3a 3d 77 32 ┆age ! mictimer:=w2┆
0x93ca0…93cc0 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 77 32 3a 3d 62 61 73 65 65 ┆; end; w2:=basee┆
0x93cc0…93ce0 76 65 6e 74 3b 0a 73 65 6d 69 62 75 73 79 3a 0a 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 ┆vent; semibusy: monitor(┆
0x93ce0…93cfc 32 34 29 3b 20 20 21 20 77 61 69 74 20 6e 65 78 74 20 65 76 65 6e 74 20 21 0a 20 20 ┆24); ! wait next event ! ┆
0x93cfc…93d02 (0x450,0x127b)
0x93d02…93d20 20 20 20 20 20 20 69 66 20 77 32 20 3d 20 70 73 6d 65 73 73 20 74 68 65 6e 0a 20 20 20 20 ┆ if w2 = psmess then ┆
0x93d20…93d40 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 6c 61 73 74 75 73 65 72 ┆ begin w1:=lastuser┆
0x93d40…93d60 3b 0a 20 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 31 38 29 3b 20 20 21 20 77 61 69 74 ┆; monitor(18); ! wait┆
0x93d60…93d7a 20 61 6e 73 77 65 72 20 21 0a 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 75 73 ┆ answer ! w3:=us┆
0x93d7a…93d80 (0x450,0x127c)
0x93d80…93da0 65 72 65 6e 74 72 79 3b 0a 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 6d 65 73 73 73 65 6e 64 ┆erentry; (w3).messsend┆
0x93da0…93dc0 3a 3d 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 73 74 61 74 75 73 69 6e 66 3a 3d ┆:=w0; (w3).statusinf:=┆
0x93dc0…93de0 77 30 3a 3d 28 77 31 29 2e 77 6f 72 64 3b 0a 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 28 77 33 ┆w0:=(w1).word; w2:=(w3┆
0x93de0…93e00 29 2e 6d 65 73 73 67 6f 74 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 00 00 00 00 00 00 00 00 ┆).messgot; if ┆
0x93e00…93e06 (1183,) (0x450,0x127d)
0x93e06…93e20 77 30 3a 3d 28 77 32 29 2e 6f 70 65 72 61 74 69 6f 6e 20 65 78 74 72 61 63 74 ┆w0:=(w2).operation extract┆
0x93e20…93e40 20 32 20 3d 20 33 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 ┆ 2 = 3 then begin ┆
0x93e40…93e60 20 20 20 20 20 20 20 20 63 6f 70 79 28 2e 77 33 2e 2c 77 30 3a 3d 28 77 31 29 2e 62 79 74 65 73 ┆ copy(.w3.,w0:=(w1).bytes┆
0x93e60…93e7e 2c 77 31 3a 3d 75 73 65 72 65 6e 74 72 79 2e 62 75 66 66 65 72 2c 77 32 3a 3d 75 73 65 72 ┆,w1:=userentry.buffer,w2:=user┆
0x93e7e…93e84 (0x450,0x127e)
0x93e84…93ea0 65 6e 74 72 79 2e 70 72 6f 63 62 75 66 31 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆entry.procbuf1); ┆
0x93ea0…93ec0 20 74 65 73 74 6f 75 74 28 2e 77 33 2e 2c 77 30 2c 77 31 2c 77 32 3a 3d 30 29 3b 0a 20 20 20 20 ┆ testout(.w3.,w0,w1,w2:=0); ┆
0x93ec0…93ee0 20 20 20 20 20 20 20 20 77 33 3a 3d 75 73 65 72 65 6e 74 72 79 3b 0a 20 20 20 20 20 20 20 20 20 ┆ w3:=userentry; ┆
0x93ee0…93efc 20 20 20 75 73 65 72 65 6e 74 72 79 2e 63 75 72 72 6c 6f 63 69 64 3a 3d 77 30 3a 3d ┆ userentry.currlocid:=w0:=┆
0x93efc…93f02 (0x450,0x127f)
0x93f02…93f20 28 77 31 29 2e 77 6f 72 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 28 77 33 ┆(w1).word; w0:=(w3┆
0x93f20…93f40 29 2e 6d 65 73 73 73 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 6c 61 73 74 ┆).messsend; w1:=last┆
0x93f40…93f60 75 73 65 72 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 28 77 33 29 2e 6d 65 73 73 67 ┆user; w2:=(w3).messg┆
0x93f60…93f7a 6f 74 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 20 65 6c 73 65 20 77 30 3a ┆ot; end else w0:┆
0x93f7a…93f80 (0x450,0x1280)
0x93f80…93fa0 3d 28 77 33 29 2e 6d 65 73 73 73 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 32 20 ┆=(w3).messsend; if w2 ┆
0x93fa0…93fc0 3e 20 31 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 ┆> 10 then begin ┆
0x93fc0…93fe0 20 20 20 20 20 20 69 66 20 77 33 3a 3d 28 77 33 29 2e 73 74 61 74 75 73 69 6e 66 20 6f 72 20 77 ┆ if w3:=(w3).statusinf or w┆
0x93fe0…94000 30 20 6f 72 20 38 27 31 30 32 30 30 30 30 31 20 3c 3e 20 38 27 31 30 32 00 00 00 00 00 00 00 00 ┆0 or 8'10200001 <> 8'102 ┆