|
DataMuseum.dkPresents historical artifacts from the history of: RC4000/8000/9000 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RC4000/8000/9000 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 606208 (0x94000)
Types: flxcat
Notes: GA21-9182-File(01FLXSAVEFIL)
Names: »01FLXSAVEFIL«
└─⟦045fbac2b⟧ Bits:30004128/s18100.imd SW8100 MIPS/TS release 7.0
└─⟦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 | ⟦2b6b8df9c⟧ | »s18100:1.tfileutil main «, »tfileutil main «, TextFile, flxfile |
| 0x00000000 | 0x00094000 | ⟦40952c23d⟧ | »mipshelp main «, »s18100:1.mipshelp main «, TextFile, flxfile |
| 0x00000000 | 0x00094000 | ⟦91baaa5cd⟧ | »s18100:1.tsos main «, »tsos 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 | ⟦dd7cf7bb0⟧ | »mipsid main «, »s18100:1.mipsid main «, TextFile, flxfile |
| 0x00000000 | 0x00094000 | ⟦e079c447a⟧ | »s18100:1.tprimo main «, »tprimo main «, TextFile, flxfile |
| 0x00000000 | 0x00094000 | ⟦f92fca73a⟧ | »s18100:1.ttem main «, »ttem main «, TextFile, flxfile |
0x00000…0003f (0,) FlxHdr {w000=(0x1,0x1), magic=»flxcat«, w011=»mipsrel70 «, nent=0x000011, nrec=0x001280, tstamp=1986-08-25T12:36, w024=0x0f1fff, w026=0x000054, w028=0x000156, flxset=»s18100«, flxno=0x000001, firstvol=» «, nextvol=»s28100«}
0x0003f…00040 3a ┆:┆
0x00040…00060 0a 20 20 20 20 69 66 20 77 32 3a 3d 74 69 6d 65 72 6d 65 73 73 3c 3e 30 20 74 68 65 6e 20 0a 20 ┆ if w2:=timermess<>0 then ┆
0x00060…0007e 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 38 32 29 3b 20 20 63 ┆ begin monitor(82); c┆
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=1986-05-26T16:50, 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=1986-05-26T16:51, 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=»disc «, w10=1986-03-13T15:17, 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=1986-03-13T15:17, 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=»disc «, w10=1986-03-13T15:17, w11=0x000000, w12=0x000000, w13=0x000000, w14=0x000000} // 0x180 @0x6
0x0017a…001f8 w02 = FlxDirEnt {name=»ttem main «, w02=0x000000, w03=0x000003, range=[0x0536…0x07a9], w6=0x000062, w07=»disc «, w10=1986-08-25T11:55, w11=0x000032, 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=[0x07aa…0x0876], w6=0x000020, w07=»disc «, w10=1986-03-13T15:17, w11=0x000000, w12=0x000000, w13=0x000000, w14=0x000000} // 0x206 @0x6
0x00200…0027e w02 = FlxDirEnt {name=»tprimo main «, w02=0x000000, w03=0x000003, range=[0x0877…0x1070], w6=0x00013f, w07=»disc «, w10=1986-08-25T11:55, w11=0x00003c, 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=[0x1071…0x10bd], w6=0x00000c, w07=»disc «, w10=1986-03-13T15:19, w11=0x000000, w12=0x000000, w13=0x000000, w14=0x000000} // 0x284 @0x6
0x0027e…002fc w02 = FlxDirEnt {name=»tfileutil main «, w02=0x000000, w03=0x000003, range=[0x10be…0x122a], w6=0x000039, w07=»disc «, w10=1986-03-13T15:19, 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=[0x122b…-0x1280], w6=0x0000b4, w07=»disc «, w10=1986-08-25T11:54, w11=0x000032, 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=1986-03-13T15:20, 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=»disc «, w10=1986-03-13T15:20, 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=»disc «, w10=1986-03-13T15:22, 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=»disc «, w10=1986-03-13T15:23, 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=»disc «, w10= , 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=0x000005, w07=»disc «, w10=1986-08-25T11:56, w11=0x000000, w12=0x000000, w13=0x000000, w14=0x000000} // 0x484 @0x6
0x0047e…004fc w02 = FlxDirEnt {name=»mipshelp main «, w02=0x000000, w03=0x000003, range=[0x0014…0x0087], w6=0x000012, w07=»disc «, w10=1986-05-26T16:51, 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 00 00 00 00 00 00 00 00 a7 22 68 00 00 00 00 00 00 00 00 00 00 00 00 74 72 ┆ disc "h 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 a7 22 68 00 00 00 00 00 00 00 00 00 00 00 00 ┆isc "h ┆
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 00 00 00 00 00 00 00 00 a7 22 69 00 00 00 00 00 00 00 00 00 00 00 00 74 74 65 6d ┆ disc "i 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 a9 00 00 62 64 69 73 ┆ main 6 bdis┆
0x005e0…00600 63 00 00 00 00 00 00 00 00 ab 47 a9 00 00 32 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆c G 2 ┆
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 37 2e 30 0a 3b 20 0a 3b ┆; mips/ts release 7.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 01 51 a3 ff ff ┆ ; file 18: text tnews Q ┆
0x008e0…008fc ff 01 40 51 ff ff ff 01 40 49 ff ff ff 01 40 31 ff ff ff 01 51 b7 ff ff ff 01 51 ab ┆ @Q @I @1 Q Q ┆
0x008fc…00902 (0x68,0x13)
0x00902…00920 ff ff ff 04 6c 79 a8 00 00 34 80 2c 04 6c b1 04 6d 2d 00 00 98 00 00 00 04 6c d5 00 00 58 ┆ ly 4 , l m- l X┆
0x00920…00940 00 00 00 04 6c b1 00 00 24 00 00 00 04 6c 79 00 20 02 00 00 00 00 00 00 00 00 00 00 00 00 74 72 ┆ l $ ly 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 a7 22 68 00 00 00 00 00 00 00 00 00 00 00 00 ┆isc "h ┆
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 37 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 ┆ 7.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 3b ┆ggas - (mp + adp3270 release). ;┆
0x29be0…29c00 20 72 65 6c 65 61 73 65 20 35 2e 30 20 73 65 70 2e 20 31 39 38 36 20 66 00 00 00 00 00 00 00 00 ┆ release 5.0 sep. 1986 f ┆
0x29c00…29c06 (334,) (0x25c,0x539)
0x29c06…29c20 6c 65 6d 6d 69 6e 67 20 62 69 67 67 61 73 20 28 74 74 79 20 63 6f 6e 74 72 6f ┆lemming biggas (tty contro┆
0x29c20…29c40 6c 20 6f 70 73 2e 29 0a 21 0a 0a 74 65 72 6d 69 6e 61 6c 6d 6f 64 75 6c 65 0a 62 65 67 69 6e 0a ┆l ops.) ! terminalmodule begin ┆
0x29c40…29c60 20 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 20 20 70 72 6f ┆ !fp.no; !sections 32; pro┆
0x29c60…29c7e 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 20 20 ┆cedure waitmess ┆
0x29c7e…29c84 (0x25c,0x53a)
0x29c84…29ca0 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 ┆
0x29ca0…29cc0 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 ┆ ! ┆
0x29cc0…29ce0 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 73 61 67 65 ┆ w2); ! abs ref message┆
0x29ce0…29cfc 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 ┆ buffer (return) ! ┆
0x29cfc…29d02 (0x25c,0x53b)
0x29d02…29d20 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 ┆ procedure sendwait ┆
0x29d20…29d40 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 ┆
0x29d40…29d60 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 ┆ ! ┆
0x29d60…29d7a 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 ┆ w0 ; ! result (r┆
0x29d7a…29d80 (0x25c,0x53c)
0x29d80…29da0 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 0a ┆eturn) ! ┆
0x29da0…29dc0 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 66 ┆ w1 ; ! abs ref┆
0x29dc0…29de0 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 20 20 20 20 20 ┆ message (call) ┆
0x29de0…29e00 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 32 29 3b 20 20 00 00 00 00 00 00 00 00 ┆! w2); ┆
0x29e00…29e06 (335,) (0x25c,0x53d)
0x29e06…29e20 20 21 20 61 62 73 20 72 65 66 20 70 72 6f 63 65 73 73 20 6e 61 6d 65 20 28 63 ┆ ! abs ref process name (c┆
0x29e20…29e40 61 6c 6c 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 72 65 20 6f ┆all) ! procedure o┆
0x29e40…29e60 70 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 21 20 72 65 74 ┆pen (.w3.; ! ret┆
0x29e60…29e7e 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 20 ┆urn ┆
0x29e7e…29e84 (0x25c,0x53e)
0x29e84…29ea0 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 ;┆
0x29ea0…29ec0 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 6f 70 65 6e 20 ┆ ! number of elements to open ┆
0x29ec0…29ee0 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 20 77 32 ┆(call) ! w2┆
0x29ee0…29efc 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 61 ┆); ! abs ref semaphore (ca┆
0x29efc…29f02 (0x25c,0x53f)
0x29f02…29f20 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 ┆ll) ! procedu┆
0x29f20…29f40 72 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 20 20 21 ┆re lock (.w3.; !┆
0x29f40…29f60 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 20 ┆ return ┆
0x29f60…29f7a 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 ┆ ! ┆
0x29f7a…29f80 (0x25c,0x540)
0x29f80…29fa0 77 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 ┆w0 ; ! number of elements to l┆
0x29fa0…29fc0 6f 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 20 20 20 20 20 ┆ock (return) ! ┆
0x29fc0…29fe0 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 61 ┆ w2); ! abs ref semaphore (ca┆
0x29fe0…2a000 6c 6c 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 0a 0a 20 20 70 00 00 00 00 00 00 00 00 ┆ll) ! p ┆
0x2a000…2a006 (336,) (0x25c,0x541)
0x2a006…2a020 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 ┆rocedure link ┆
0x2a020…2a040 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 20 ┆ (.w3.; ! return ┆
0x2a040…2a060 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 ┆ ! ┆
0x2a060…2a07e 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┆
0x2a07e…2a084 (0x25c,0x542)
0x2a084…2a0a0 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 ┆lement (call) ! ┆
0x2a0a0…2a0c0 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 71 ┆ w2); ! abs ref q┆
0x2a0c0…2a0e0 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 20 20 20 21 0a ┆ueue head (call) ! ┆
0x2a0e0…2a0fc 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 20 ┆ procedure move ┆
0x2a0fc…2a102 (0x25c,0x543)
0x2a102…2a120 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 ┆ (.w3.; ! return ┆
0x2a120…2a140 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 20 ┆ ! ┆
0x2a140…2a160 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 66 20 68 61 6c ┆ w0 ; ! number of hal┆
0x2a160…2a17a 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 ┆fwords to move (call) ┆
0x2a17a…2a180 (0x25c,0x544)
0x2a180…2a1a0 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 72 ┆! w1 ; ! abs r┆
0x2a1a0…2a1c0 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 61 6c 6c 29 ┆ef first halfword to move (call)┆
0x2a1c0…2a1e0 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 61 62 73 ┆ ! w2); ! abs┆
0x2a1e0…2a200 20 72 65 66 20 64 65 73 74 69 6e 61 74 69 6f 6e 20 28 63 61 6c 6c 29 20 00 00 00 00 00 00 00 00 ┆ ref destination (call) ┆
0x2a200…2a206 (337,) (0x25c,0x545)
0x2a206…2a220 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┆
0x2a220…2a240 20 63 6f 70 79 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 ┆ copy (.w3.; ! r┆
0x2a240…2a260 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 20 ┆eturn ┆
0x2a260…2a27e 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 ┆ ! w0 ; ┆
0x2a27e…2a284 (0x25c,0x546)
0x2a284…2a2a0 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 ┆ ! number of halfwords (call┆
0x2a2a0…2a2c0 2f 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 20 ┆/return) ! ┆
0x2a2c0…2a2e0 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 20 20 20 20 20 ┆ ! or ┆
0x2a2e0…2a2fc 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 ┆ ! ┆
0x2a2fc…2a302 (0x25c,0x547)
0x2a302…2a320 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 ┆ ! -2 stopped ┆
0x2a320…2a340 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 20 ┆ ! ┆
0x2a340…2a360 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 65 6c 20 20 20 ┆ ! -3 unintel ┆
0x2a360…2a37a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2a37a…2a380 (0x25c,0x548)
0x2a380…2a3a0 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 61 62 73 20 72 ┆! w2); ! abs r┆
0x2a3a0…2a3c0 65 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 20 20 20 20 20 ┆ef first halfword (call) ┆
0x2a3c0…2a3e0 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 20 20 20 20 20 ┆ ! procedure create_ph ┆
0x2a3e0…2a400 20 20 20 20 20 20 20 20 20 28 2e 77 33 2e 3b 20 20 20 21 20 72 65 74 75 00 00 00 00 00 00 00 00 ┆ (.w3.; ! retu ┆
0x2a400…2a406 (338,) (0x25c,0x549)
0x2a406…2a420 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 ┆rn ┆
0x2a420…2a440 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 20 20 ┆ ! ref ┆
0x2a440…2a460 20 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 73 65 6e 64 65 ┆ cp_phhead,cp_psname,cp_sende┆
0x2a460…2a47e 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 20 72 65 ┆r; w0); ! re┆
0x2a47e…2a484 (0x25c,0x54a)
0x2a484…2a4a0 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 ┆sult (return) 1 = ok , 0 =┆
0x2a4a0…2a4c0 20 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 70 ┆ not ok ! procedure remove_p┆
0x2a4c0…2a4e0 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 72 65 74 75 72 ┆h (.w3.; ! retur┆
0x2a4e0…2a4fc 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 20 ┆n ┆
0x2a4fc…2a502 (0x25c,0x54b)
0x2a502…2a520 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 ┆ ! ref ┆
0x2a520…2a540 20 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 72 65 61 ┆ rp_phhead); procedure crea┆
0x2a540…2a560 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 20 20 21 20 72 ┆te_th (.w3.; ! r┆
0x2a560…2a57a 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 ┆eturn ┆
0x2a57a…2a580 (0x25c,0x54c)
0x2a580…2a5a0 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 72 65 ┆ ! re┆
0x2a5a0…2a5c0 66 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 63 3b 0a 20 20 ┆f ct_thhead,ct_termproc; ┆
0x2a5c0…2a5e0 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 79 70 65 2c 63 ┆ word ct_type,c┆
0x2a5e0…2a600 74 5f 6c 6f 63 61 6c 69 64 2c 63 74 5f 62 75 66 73 2c 63 74 5f 74 69 6d 00 00 00 00 00 00 00 00 ┆t_localid,ct_bufs,ct_tim ┆
0x2a600…2a606 (339,) (0x25c,0x54d)
0x2a606…2a620 65 72 73 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ers, ┆
0x2a620…2a640 20 20 20 20 63 74 5f 6d 61 73 6b 2c 63 74 5f 73 75 62 73 74 29 3b 0a 0a 20 20 70 72 6f 63 65 64 ┆ ct_mask,ct_subst); proced┆
0x2a640…2a660 75 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 20 28 2e 77 33 ┆ure remove_th (.w3┆
0x2a660…2a67e 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 20 20 20 ┆.; ! return ┆
0x2a67e…2a684 (0x25c,0x54e)
0x2a684…2a6a0 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 ┆ ! ┆
0x2a6a0…2a6c0 20 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 72 ┆ ref rt_thhead); pr┆
0x2a6c0…2a6e0 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 20 20 20 20 20 ┆ocedure init_area ┆
0x2a6e0…2a6fc 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 ┆
0x2a6fc…2a702 (0x25c,0x54f)
0x2a702…2a720 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 ┆ ! ┆
0x2a720…2a740 20 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 65 61 20 ┆ w1); ! abs ref area ┆
0x2a740…2a760 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 70 ┆description (call) ! p┆
0x2a760…2a77a 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 ┆rocedure connect ┆
0x2a77a…2a780 (0x25c,0x550)
0x2a780…2a7a0 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 ┆
0x2a7a0…2a7c0 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 ┆ ! ┆
0x2a7c0…2a7e0 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 64 2c 63 6f 6e ┆ ref con_thhead,con┆
0x2a7e0…2a800 5f 70 68 68 65 61 64 29 3b 0a 0a 20 20 70 72 6f 63 65 64 75 72 65 20 64 00 00 00 00 00 00 00 00 ┆_phhead); procedure d ┆
0x2a800…2a806 (340,) (0x25c,0x551)
0x2a806…2a820 69 73 63 6f 6e 6e 65 63 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2e ┆isconnect (.┆
0x2a820…2a840 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 20 20 20 ┆w3.; ! return ┆
0x2a840…2a860 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 20 ┆ ! ┆
0x2a860…2a87e 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 68 68 65 ┆ ref dis_thhead,dis_phhe┆
0x2a87e…2a884 (0x25c,0x552)
0x2a884…2a8a0 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 ┆ad); procedure find_ph ┆
0x2a8a0…2a8c0 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 20 20 ┆ (.w3.; ! return ┆
0x2a8c0…2a8e0 20 20 20 20 20 20 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 ┆ ! ┆
0x2a8e0…2a8fc 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 5f ┆ ref fp_┆
0x2a8fc…2a902 (0x25c,0x553)
0x2a902…2a920 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 ┆psproc,fp_sender; ┆
0x2a920…2a940 20 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 20 20 20 ┆ w1); ! result (return) ┆
0x2a940…2a960 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 ┆ ! ┆
0x2a960…2a97a 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 ┆ ! >0: abs ref┆
0x2a97a…2a980 (0x25c,0x554)
0x2a980…2a9a0 20 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 ┆ ph found ! ┆
0x2a9a0…2a9c0 20 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 70 68 20 6e 6f ┆ ! =0: ph no┆
0x2a9c0…2a9e0 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 20 20 20 21 0a ┆t found, no free ph ! ┆
0x2a9e0…2aa00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 00 00 00 00 00 00 00 00 ┆ ! ┆
0x2aa00…2aa06 (341,) (0x25c,0x555)
0x2aa06…2aa20 20 3c 30 3a 20 70 68 20 6e 6f 74 20 66 6f 75 6e 64 2c 20 2d 61 62 73 20 72 65 ┆ <0: ph not found, -abs re┆
0x2aa20…2aa40 66 20 66 72 65 65 20 70 68 20 20 20 20 20 21 0a 0a 20 20 70 72 6f 63 65 64 75 72 65 20 75 6e 69 ┆f free ph ! procedure uni┆
0x2aa40…2aa60 6e 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 20 21 20 72 65 ┆ntel (.w3.; ! re┆
0x2aa60…2aa7e 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 ┆turn ┆
0x2aa7e…2aa84 (0x25c,0x556)
0x2aa84…2aaa0 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)┆
0x2aaa0…2aac0 3b 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 20 ┆; ! status (call) ┆
0x2aac0…2aae0 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 77 61 69 74 ┆ ! procedure wait┆
0x2aae0…2aafc 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 ┆_op (.w3.; !┆
0x2aafc…2ab02 (0x25c,0x557)
0x2ab02…2ab20 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 ┆
0x2ab20…2ab40 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 ;┆
0x2ab40…2ab60 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 74 20 20 20 20 ┆ ! length of operation got ┆
0x2ab60…2ab7a 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 ┆ ! ┆
0x2ab7a…2ab80 (0x25c,0x558)
0x2ab80…2aba0 20 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 ┆ w1 ; ! abs ref operation g┆
0x2aba0…2abc0 6f 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 20 20 20 20 20 ┆ot (return) ! ┆
0x2abc0…2abe0 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 20 64 65 73 63 ┆ w2); ! abs ref area desc┆
0x2abe0…2ac00 72 69 70 74 69 6f 6e 20 28 63 61 6c 6c 29 20 20 20 20 20 20 20 20 21 0a 00 00 00 00 00 00 00 00 ┆ription (call) ! ┆
0x2ac00…2ac06 (342,) (0x25c,0x559)
0x2ac06…2ac20 0a 20 20 70 72 6f 63 65 64 75 72 65 20 67 65 74 5f 6f 70 0a 20 20 20 20 20 20 ┆ procedure get_op ┆
0x2ac20…2ac40 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 20 20 20 20 20 ┆ (.w3.; ! return ┆
0x2ac40…2ac60 20 20 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 ┆ ! ┆
0x2ac60…2ac7e 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 20 6f 66 ┆ w0 ; ! length of┆
0x2ac7e…2ac84 (0x25c,0x55a)
0x2ac84…2aca0 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 ┆ operation got (return) ┆
0x2aca0…2acc0 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 62 73 ┆ ! w1 ; ! abs┆
0x2acc0…2ace0 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 20 20 20 20 20 ┆ ref operation got (return) ┆
0x2ace0…2acfc 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 ┆ ! w2); ┆
0x2acfc…2ad02 (0x25c,0x55b)
0x2ad02…2ad20 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 ┆ ! abs ref area description (c┆
0x2ad20…2ad40 61 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 74 5f 6f ┆all) ! procedure put_o┆
0x2ad40…2ad60 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 72 65 74 75 72 ┆p (.w3.; ! retur┆
0x2ad60…2ad7a 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 ┆n ┆
0x2ad7a…2ad80 (0x25c,0x55c)
0x2ad80…2ada0 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 20 ┆ ! w0 ; ┆
0x2ada0…2adc0 20 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 75 74 20 28 63 ┆ ! length of operation to put (c┆
0x2adc0…2ade0 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 20 77 31 20 3b ┆all) ! w1 ;┆
0x2ade0…2ae00 20 20 20 21 20 61 62 73 20 72 65 66 20 73 70 61 63 65 20 66 6f 72 20 6f 00 00 00 00 00 00 00 00 ┆ ! abs ref space for o ┆
0x2ae00…2ae06 (343,) (0x25c,0x55d)
0x2ae06…2ae20 70 65 72 61 74 69 6f 6e 20 28 72 65 74 75 72 6e 29 20 20 20 21 0a 20 20 20 20 ┆peration (return) ! ┆
0x2ae20…2ae40 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 72 65 ┆ w2); ! abs ref are┆
0x2ae40…2ae60 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 0a 0a 20 ┆a description (call) ! ┆
0x2ae60…2ae7e 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 20 20 20 ┆ procedure swop ┆
0x2ae7e…2ae84 (0x25c,0x55e)
0x2ae84…2aea0 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 ┆
0x2aea0…2aec0 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 ┆ ! ┆
0x2aec0…2aee0 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 62 75 66 66 65 ┆ ! a segment buffe┆
0x2aee0…2aefc 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 20 ┆r is made available. ! ┆
0x2aefc…2af02 (0x25c,0x55f)
0x2af02…2af20 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 ┆ ! the ref┆
0x2af20…2af40 65 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 20 20 20 ┆erenced segment is copied to ┆
0x2af40…2af60 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 61 6e 64 20 66 ┆! ! and f┆
0x2af60…2af7a 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 ┆rom bs depending on the mo┆
0x2af7a…2af80 (0x25c,0x560)
0x2af80…2afa0 64 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 ┆de-bits ! ┆
0x2afa0…2afc0 20 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 20 20 20 20 20 ┆ ! described below: ┆
0x2afc0…2afe0 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 32 20 3b ┆ ! w2 ;┆
0x2afe0…2b000 20 20 20 21 20 62 69 74 20 32 31 20 72 65 6c 65 61 73 65 64 20 61 66 74 00 00 00 00 00 00 00 00 ┆ ! bit 21 released aft ┆
0x2b000…2b006 (344,) (0x25c,0x561)
0x2b006…2b020 65 72 20 75 73 65 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 0a 20 20 20 20 ┆er use ! ┆
0x2b020…2b040 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 20 20 20 20 20 20 20 28 69 2e 65 ┆ ! (i.e┆
0x2b040…2b060 2e 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 20 21 0a 20 20 ┆. next call buffer free) ! ┆
0x2b060…2b07e 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 32 32 20 ┆ ! bit 22 ┆
0x2b07e…2b084 (0x25c,0x562)
0x2b084…2b0a0 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 ┆the segment is updated ┆
0x2b0a0…2b0c0 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 21 20 20 ┆ ! ! ┆
0x2b0c0…2b0e0 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 63 6f 70 69 65 ┆ (i.e. buffer will be copie┆
0x2b0e0…2b0fc 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 20 ┆d to ! ┆
0x2b0fc…2b102 (0x25c,0x563)
0x2b102…2b120 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 ┆ ! bs before releas┆
0x2b120…2b140 69 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 20 20 20 ┆ing) ! ┆
0x2b140…2b160 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 73 20 69 66 20 ┆ ! bit 23 read from bs if ┆
0x2b160…2b17a 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 ┆segment not is ! ┆
0x2b17a…2b180 (0x25c,0x564)
0x2b180…2b1a0 20 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 ┆ ! present ┆
0x2b1a0…2b1c0 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 20 ┆ ! ┆
0x2b1c0…2b1e0 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 72 61 6d 65 74 ┆ ! (call paramet┆
0x2b1e0…2b200 65 72 29 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 ┆er) ┆
0x2b200…2b206 (345,) (0x25c,0x565)
0x2b206…2b220 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 ; ┆
0x2b220…2b240 20 21 20 73 65 67 6d 65 6e 74 20 6e 6f 20 74 6f 20 73 77 6f 70 20 69 6e 20 28 63 61 6c 6c 29 20 ┆ ! segment no to swop in (call) ┆
0x2b240…2b260 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 3b ┆ ! w1);┆
0x2b260…2b27e 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 65 20 28 ┆ ! abs ref segment in core (┆
0x2b27e…2b284 (0x25c,0x566)
0x2b284…2b2a0 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 ┆return) ! procedure┆
0x2b2a0…2b2c0 20 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 74 ┆ ph (.w3.); ! ret┆
0x2b2c0…2b2e0 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 20 20 20 20 20 ┆urn (pseudo call) ┆
0x2b2e0…2b2fc 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 20 ┆ ! procedure th ┆
0x2b2fc…2b302 (0x25c,0x567)
0x2b302…2b320 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 ┆ (.w3.); ! return (ps┆
0x2b320…2b340 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 21 0a 0a 20 ┆eudo call) ! ┆
0x2b340…2b360 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 20 20 20 20 20 ┆ procedure opmess ┆
0x2b360…2b37a 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 ┆(.w3.; ! return ┆
0x2b37a…2b380 (0x25c,0x568)
0x2b380…2b3a0 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 20 ┆ ! ┆
0x2b3a0…2b3c0 20 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 6d 65 73 73 61 ┆ w1); ! abs ref messa┆
0x2b3c0…2b3e0 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 0a 0a 0a 20 20 ┆ge (call) ! ┆
0x2b3e0…2b400 70 72 6f 63 65 64 75 72 65 20 69 6e 69 74 0a 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆procedure init ┆
0x2b400…2b406 (346,) (0x25c,0x569)
0x2b406…2b420 20 20 20 20 20 28 2e 77 33 2e 29 3b 20 20 21 20 72 65 74 75 72 6e 20 20 20 20 ┆ (.w3.); ! return ┆
0x2b420…2b440 20 20 20 20 20 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 ┆ ! ┆
0x2b440…2b460 20 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 20 20 20 20 20 ┆ procedure testout ┆
0x2b460…2b47e 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 20 20 20 ┆ (.w3.; ! return (call) ┆
0x2b47e…2b484 (0x25c,0x56a)
0x2b484…2b4a0 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 ┆ ! ┆
0x2b4a0…2b4c0 20 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 67 ┆ w0 ; ! record leng┆
0x2b4c0…2b4e0 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 20 21 0a 20 20 ┆th (call) ! ┆
0x2b4e0…2b4fc 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 ┆ w1 ; ! abs r┆
0x2b4fc…2b502 (0x25c,0x56b)
0x2b502…2b520 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 ┆ef start of test record (call)┆
0x2b520…2b540 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 72 ┆ ! w2); ! r┆
0x2b540…2b560 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 20 20 20 20 20 ┆ecord kind (call) ┆
0x2b560…2b57a 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 ┆ ! label central_w┆
0x2b57a…2b580 (0x25c,0x56c)
0x2b580…2b5a0 61 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 ┆ait,wait_next,coru_found,activat┆
0x2b5a0…2b5c0 65 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 72 75 70 74 2c ┆e,initialize, interrupt,┆
0x2b5c0…2b5e0 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 73 73 61 67 65 ┆io,gen_answer; record message┆
0x2b5e0…2b600 0a 20 20 20 20 20 20 20 20 20 20 20 28 72 65 66 20 6d 65 73 73 5f 6e 65 00 00 00 00 00 00 00 00 ┆ (ref mess_ne ┆
0x2b600…2b606 (347,) (0x25c,0x56d)
0x2b606…2b620 78 74 2c 6d 65 73 73 5f 70 72 65 76 2c 6d 65 73 73 5f 72 65 63 65 69 76 65 72 ┆xt,mess_prev,mess_receiver┆
0x2b620…2b640 2c 6d 65 73 73 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 6d ┆,mess_sender; byte m┆
0x2b640…2b660 65 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 20 20 20 72 65 ┆ess_op,mess_mode; re┆
0x2b660…2b67e 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 20 20 20 ┆f mess_first,mess_last; ┆
0x2b67e…2b684 (0x25c,0x56e)
0x2b684…2b6a0 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 ┆ word mess_segment,mess┆
0x2b6a0…2b6c0 5f 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 20 ┆_8,mess_10,mess_12,mess_14); ┆
0x2b6c0…2b6e0 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 20 20 20 28 72 ┆record controlmess (r┆
0x2b6e0…2b6fc 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 ┆ef cm_next,cm_prev,cm_receiv┆
0x2b6fc…2b702 (0x25c,0x56f)
0x2b702…2b720 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 ┆er,cm_sender; byte┆
0x2b720…2b740 20 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 6f 72 64 ┆ cm_op,cm_mode; word┆
0x2b740…2b760 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 66 20 63 6d 5f ┆ cm_localid; ref cm_┆
0x2b760…2b77a 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 ┆tpda; byte cm_┆
0x2b77a…2b780 (0x25c,0x570)
0x2b780…2b7a0 62 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 ┆bufs,cm_timers; text┆
0x2b7a0…2b7c0 28 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 32 0a 20 20 20 ┆(11) cm_name); record cm2 ┆
0x2b7c0…2b7e0 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 6d 32 5f 33 2c ┆ (word cm2_1,cm2_2,cm2_3,┆
0x2b7e0…2b800 63 6d 32 5f 34 2c 63 6d 32 5f 35 2c 63 6d 32 5f 36 2c 63 6d 32 5f 37 2c 00 00 00 00 00 00 00 00 ┆cm2_4,cm2_5,cm2_6,cm2_7, ┆
0x2b800…2b806 (348,) (0x25c,0x571)
0x2b806…2b820 63 6d 32 5f 38 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 79 74 65 20 63 6d ┆cm2_8; byte cm┆
0x2b820…2b840 5f 6d 61 73 6b 2c 63 6d 5f 73 75 62 73 74 29 3b 0a 0a 20 20 72 65 63 6f 72 64 20 63 6f 6e 74 72 ┆_mask,cm_subst); record contr┆
0x2b840…2b860 6f 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 61 5f 73 74 61 ┆olanswer (word ca_sta┆
0x2b860…2b87e 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 20 72 65 ┆tus,ca_localid; re┆
0x2b87e…2b884 (0x25c,0x572)
0x2b884…2b8a0 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 ┆f ca_tpda; byte ┆
0x2b8a0…2b8c0 63 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 72 ┆ca_bufs,ca_timers; r┆
0x2b8c0…2b8e0 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 64 20 63 61 5f ┆ef ca_pool; word ca_┆
0x2b8e0…2b8fc 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 6d ┆recfull,ca_bytesfree,ca_dumm┆
0x2b8fc…2b902 (0x25c,0x573)
0x2b902…2b920 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 ┆y2); record coroutine ┆
0x2b920…2b940 20 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 75 66 3b ┆ (ref c_next,c_prev,c_mbuf;┆
0x2b940…2b960 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 2c 63 5f 77 32 ┆ word c_w0,c_w1,c_w2┆
0x2b960…2b97a 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 ┆; ref c_ic; ┆
0x2b97a…2b980 (0x25c,0x574)
0x2b980…2b9a0 20 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 ┆ word c_nr,c_ww0,c_ww2┆
0x2b9a0…2b9c0 2c 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 65 63 66 75 6c ┆,c_ww3; ref a_recful┆
0x2b9c0…2b9e0 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 20 77 6f 72 64 ┆l, a_bytesfree; word┆
0x2b9e0…2ba00 20 61 5f 66 69 72 73 74 2c 20 61 5f 74 6f 70 2c 20 61 5f 66 69 72 73 74 00 00 00 00 00 00 00 00 ┆ a_first, a_top, a_first ┆
0x2ba00…2ba06 (349,) (0x25c,0x575)
0x2ba06…2ba20 66 75 6c 6c 2c 20 61 5f 66 69 72 73 74 66 72 65 65 29 3b 0a 0a 20 20 72 65 63 ┆full, a_firstfree); rec┆
0x2ba20…2ba40 6f 72 64 20 70 72 6f 63 65 73 73 68 61 6e 64 6c 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 28 61 ┆ord processhandler (a┆
0x2ba40…2ba60 72 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 20 70 68 5f 63 ┆rray (1:!length(coroutine)) ph_c┆
0x2ba60…2ba7e 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 68 5f 70 ┆ of byte; ref ph_p┆
0x2ba7e…2ba84 (0x25c,0x576)
0x2ba84…2baa0 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 ┆arent,ph_child,ph_psproc,ph_┆
0x2baa0…2bac0 64 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 20 ┆dummymess,ph_qreserve; ┆
0x2bac0…2bae0 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 63 61 72 2e 6e ┆ word ph_thincar; ! th.incar.n┆
0x2bae0…2bafc 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 6f ┆o of current reserver of spo┆
0x2bafc…2bb02 (0x25c,0x577)
0x2bb02…2bb20 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 ┆olqueue ! word ph_┆
0x2bb20…2bb40 6f 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 6c 69 6e ┆outcar; ! only used in f8000 lin┆
0x2bb40…2bb60 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 20 20 20 20 20 ┆ks ! ┆
0x2bb60…2bb7a 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 ┆ ! i┆
0x2bb7a…2bb80 (0x25c,0x578)
0x2bb80…2bba0 6e 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 ┆ncarn.no of current output link ┆
0x2bba0…2bbc0 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 62 79 74 65 20 ┆ ! byte ┆
0x2bbc0…2bbe0 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 20 20 20 20 20 ┆ph_sensed,ph_inpmode; ┆
0x2bbe0…2bc00 20 20 77 6f 72 64 20 70 68 5f 62 6c 6f 63 6b 75 73 65 64 2c 20 70 68 5f 00 00 00 00 00 00 00 00 ┆ word ph_blockused, ph_ ┆
0x2bc00…2bc06 (350,) (0x25c,0x579)
0x2bc06…2bc20 73 61 76 65 77 30 2c 70 68 5f 73 61 76 65 77 31 29 3b 0a 0a 20 20 72 65 63 6f ┆savew0,ph_savew1); reco┆
0x2bc20…2bc40 72 64 20 74 65 72 6d 69 6e 61 6c 68 61 6e 64 6c 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 28 61 ┆rd terminalhandler (a┆
0x2bc40…2bc60 72 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 20 74 68 5f 63 ┆rray (1:!length(coroutine)) th_c┆
0x2bc60…2bc7e 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 68 5f 70 ┆ of byte; ref th_p┆
0x2bc7e…2bc84 (0x25c,0x57a)
0x2bc84…2bca0 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 ┆arent,th_next,th_buf, th_con┆
0x2bca0…2bcc0 74 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 20 ┆trol; word th_type, ┆
0x2bcc0…2bce0 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 20 74 74 79 20 ┆ ! 0 = tty multiline 2 = tty ┆
0x2bce0…2bcfc 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 20 ┆singleline ! ┆
0x2bcfc…2bd02 (0x25c,0x57b)
0x2bd02…2bd20 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 ┆ ! 4 termin/termo┆
0x2bd20…2bd40 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 20 21 0a 20 20 ┆ut ! ┆
0x2bd40…2bd60 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 21 20 69 66 20 ┆ th_ndisplay;! if ┆
0x2bd60…2bd7a 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 ┆<> 0 input in mode 8 ! ┆
0x2bd7a…2bd80 (0x25c,0x57c)
0x2bd80…2bda0 20 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 ┆ word th_incar, ┆
0x2bda0…2bdc0 20 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 72 63 6f 75 6e ┆ th_localid,th_timercoun┆
0x2bdc0…2bde0 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 75 73 65 64 62 ┆t,th_timermax,th_maxbuf,th_usedb┆
0x2bde0…2be00 75 66 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 68 5f 00 00 00 00 00 00 00 00 ┆uf, th_ ┆
0x2be00…2be06 (351,) (0x25c,0x57d)
0x2be06…2be20 6d 61 73 6b 2c 74 68 5f 73 75 62 73 74 2c 74 68 5f 62 6c 6f 63 6b 75 73 65 64 ┆mask,th_subst,th_blockused┆
0x2be20…2be40 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 74 65 78 74 28 31 34 29 74 68 5f 6e 61 6d 65 3b 0a 20 ┆; text(14)th_name; ┆
0x2be40…2be60 20 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 3b 0a 0a 20 20 ┆ ref th_procdesc); ┆
0x2be60…2be7e 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 20 20 20 ┆record termbufhead ┆
0x2be7e…2be84 (0x25c,0x57e)
0x2be84…2bea0 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 ┆(byte bufm_op,bufm_mode; ┆
0x2bea0…2bec0 20 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 73 ┆ ref bufm_first,bufm_las┆
0x2bec0…2bee0 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 75 66 5f 38 2c ┆t; word buf_6,buf_8,┆
0x2bee0…2befc 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 61 ┆buf_10,buf_12,buf_14,buf_sta┆
0x2befc…2bf02 (0x25c,0x57f)
0x2bf02…2bf20 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 ┆tus,buf_bytes,buf_chars,buf_re┆
0x2bf20…2bf40 73 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 20 20 20 ┆sult,buf_incar, ┆
0x2bf40…2bf60 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 20 72 65 63 6f ┆ buf_localid,buf_data1); reco┆
0x2bf60…2bf7a 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 ┆rd semaphore (r┆
0x2bf7a…2bf80 (0x25c,0x580)
0x2bf80…2bfa0 65 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 ┆ef sem_next,sem_prev; ┆
0x2bfa0…2bfc0 20 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 64 20 6f 70 63 ┆ word sem_value); record opc┆
0x2bfc0…2bfe0 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 6d 6f 64 65 3b ┆om (byte opop,opmode;┆
0x2bfe0…2c000 0a 20 20 20 20 20 20 20 20 20 20 20 20 74 65 78 74 28 35 29 20 6f 70 74 00 00 00 00 00 00 00 00 ┆ text(5) opt ┆
0x2c000…2c006 (352,) (0x25c,0x581)
0x2c006…2c020 65 78 74 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 6f 72 64 20 6c 6f 67 ┆ext1; word log┆
0x2c020…2c040 73 74 61 74 75 73 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 74 65 78 74 28 31 31 29 20 6f 70 74 ┆status; text(11) opt┆
0x2c040…2c060 65 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 20 20 20 20 20 ┆ext2); record name ┆
0x2c060…2c07e 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 65 63 6f ┆ (double name1,name2); reco┆
0x2c07e…2c084 (0x25c,0x582)
0x2c084…2c0a0 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 ┆rd spoolrec (word┆
0x2c0a0…2c0c0 20 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 20 ┆ seg_no,seg_prio,seg_data); ┆
0x2c0c0…2c0e0 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 65 73 73 20 64 ┆incode word tem; ! process d┆
0x2c0e0…2c0fc 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 0a ┆escription address of tem ! ┆
0x2c0fc…2c102 (0x25c,0x583)
0x2c102…2c120 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 ┆ ref current:=0, ev┆
0x2c120…2c140 65 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 69 76 71 ┆ent:=0, activqfst,activq┆
0x2c140…2c160 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 73 77 65 72 71 ┆last, answerqfst,answerq┆
0x2c160…2c17a 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 ┆last, waitqfst,wai┆
0x2c17a…2c180 (0x25c,0x584)
0x2c180…2c1a0 74 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 ┆tqlast; ref segpool_fst, s┆
0x2c1a0…2c1c0 65 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 0a 20 20 20 20 ┆egpool_top; word seg_size; ┆
0x2c1c0…2c1e0 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 70 3b 20 20 20 ┆ref phpool_fst, phpool_top; ┆
0x2c1e0…2c200 77 6f 72 64 20 70 68 5f 73 69 7a 65 3b 0a 20 20 20 20 72 65 66 20 74 68 00 00 00 00 00 00 00 00 ┆word ph_size; ref th ┆
0x2c200…2c206 (353,) (0x25c,0x585)
0x2c206…2c220 70 6f 6f 6c 5f 66 73 74 2c 20 20 20 74 68 70 6f 6f 6c 5f 74 6f 70 3b 20 20 20 ┆pool_fst, thpool_top; ┆
0x2c220…2c240 77 6f 72 64 20 74 68 5f 73 69 7a 65 3b 0a 20 20 20 20 72 65 66 20 73 65 6d 70 6f 6f 6c 5f 66 73 ┆word th_size; ref sempool_fs┆
0x2c240…2c260 74 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 73 69 7a 65 3b ┆t, sempool_top; word sem_size;┆
0x2c260…2c27e 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 3d 30 2c ┆ word testmtop,testbuf:=0,┆
0x2c27e…2c284 (0x25c,0x586)
0x2c284…2c2a0 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 ┆base_event:=0; byte tes┆
0x2c2a0…2c2c0 74 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 73 ┆tmop:=5,testmode:=0; ref tes┆
0x2c2c0…2c2e0 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 65 73 74 73 65 ┆tmfst,testmlast; word testse┆
0x2c2e0…2c2fc 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 63 ┆gm:=0,maxtestsegm; ref c┆
0x2c2fc…2c302 (0x25c,0x587)
0x2c302…2c320 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 ┆l_descriptor; double start┆
0x2c320…2c340 74 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 20 20 20 ┆time; word gc_func := 4; ┆
0x2c340…2c360 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 20 77 6f 72 64 ┆ ref gc_first,gc_last; word┆
0x2c360…2c37a 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 ┆ gc_rel := 0; word bu┆
0x2c37a…2c380 (0x25c,0x588)
0x2c380…2c3a0 66 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 ┆fl; word ans_status,ans_byte┆
0x2c3a0…2c3c0 73 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 61 6e 73 37 2c ┆s,ans_chars,ans4,ans5,ans6,ans7,┆
0x2c3c0…2c3e0 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 20 20 20 20 62 ┆ans8; word bl,localid; b┆
0x2c3e0…2c400 79 74 65 20 74 79 70 65 2c 20 62 75 66 73 2c 20 74 69 6d 65 72 73 3b 0a 00 00 00 00 00 00 00 00 ┆yte type, bufs, timers; ┆
0x2c400…2c406 (354,) (0x25c,0x589)
0x2c406…2c420 20 20 20 20 72 65 66 20 70 72 6f 63 64 65 73 63 72 3b 0a 20 20 20 20 72 65 66 ┆ ref procdescr; ref┆
0x2c420…2c440 20 70 68 5f 68 65 61 64 2c 20 74 68 5f 68 65 61 64 3b 0a 20 20 20 20 64 6f 75 62 6c 65 20 78 6e ┆ ph_head, th_head; double xn┆
0x2c440…2c460 61 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 74 6f 70 3a 3d ┆ame1, xname2; byte faultop:=┆
0x2c460…2c47e 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 29 20 66 ┆2,faultmode:=1; text(20) f┆
0x2c47e…2c484 (0x25c,0x58a)
0x2c484…2c4a0 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 ┆aulttxt:="***fault"; byt┆
0x2c4a0…2c4c0 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 30 31 3b 0a ┆e spcomop:=2,spcommode:=8'1001; ┆
0x2c4c0…2c4e0 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 74 75 73 22 3b ┆ text(8) spcomtext:="status";┆
0x2c4e0…2c4fc 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 65 ┆ text(14) spoolname:="te┆
0x2c4fc…2c502 (0x25c,0x58b)
0x2c502…2c520 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 ┆mspool"; word etx:= 3; ! c┆
0x2c520…2c540 6f 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 65 20 6f ┆onstant equal to the iso value o┆
0x2c540…2c560 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 21 20 6d 61 79 ┆f etx ! ! may┆
0x2c560…2c57a 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 ┆ be changed for test purpo┆
0x2c57a…2c580 (0x25c,0x58c)
0x2c580…2c5a0 73 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 ┆ses ! begin tem:= w┆
0x2c5a0…2c5c0 33 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 65 73 73 20 21 ┆3; ! save proc. descr. address !┆
0x2c5c0…2c5e0 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 72 65 73 73 28 ┆ interrupt: w3:=address(┆
0x2c5e0…2c600 69 6e 74 65 72 72 75 70 74 29 3b 0a 20 20 20 20 77 30 3a 3d 20 30 3b 0a 00 00 00 00 00 00 00 00 ┆interrupt); w0:= 0; ┆
0x2c600…2c606 (355,) (0x25c,0x58d)
0x2c606…2c620 20 20 20 20 6d 6f 6e 69 74 6f 72 28 30 29 3b 20 20 20 21 20 73 65 74 20 69 6e ┆ monitor(0); ! set in┆
0x2c620…2c640 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 6e 69 74 69 ┆terrupt address ! goto initi┆
0x2c640…2c660 61 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 3b 20 77 31 2b ┆alize; w1+0; w1+0; w1+0; w1+┆
0x2c660…2c67e 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 65 61 20 ┆0; ! fill up interrupt area ┆
0x2c67e…2c684 (0x25c,0x58e)
0x2c684…2c6a0 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 ┆! testout(.w3.,w0:=16,w1┆
0x2c6a0…2c6c0 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 3b 0a 20 20 ┆:=address(interrupt),w2:=15); ┆
0x2c6c0…2c6e0 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 75 6c 74 6f ┆ opmess(.w3.,w1:=address(faulto┆
0x2c6e0…2c6fc 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 2e ┆p)); initialize: init(.┆
0x2c6fc…2c702 (0x25c,0x58f)
0x2c702…2c720 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 ┆w3.); ! call init for allocat┆
0x2c720…2c740 69 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 20 20 21 ┆ing and initializing buffers, !┆
0x2c740…2c760 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 74 6f 72 73 2c ┆ ! descriptors,┆
0x2c760…2c77a 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 ┆ semaphores etc. ┆
0x2c77a…2c780 (0x25c,0x590)
0x2c780…2c7a0 20 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 ┆ ! central_wait: ┆
0x2c7a0…2c7c0 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 62 61 73 65 ┆ w2:= base_event; ! base┆
0x2c7c0…2c7e0 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 5f 6e 65 78 74 ┆ of event queue ! wait_next┆
0x2c7e0…2c800 3a 0a 20 20 20 20 63 75 72 72 65 6e 74 3a 3d 77 33 3a 3d 63 6c 5f 64 65 00 00 00 00 00 00 00 00 ┆: current:=w3:=cl_de ┆
0x2c800…2c806 (356,) (0x25c,0x591)
0x2c806…2c820 73 63 72 69 70 74 6f 72 3b 0a 20 20 20 20 6d 6f 6e 69 74 6f 72 28 32 34 29 3b ┆scriptor; monitor(24);┆
0x2c820…2c840 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 3d 74 ┆ ! wait next event ! if w2=t┆
0x2c840…2c860 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 62 61 73 65 ┆estbuf then begin base┆
0x2c860…2c87e 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 74 5f 6e ┆_event:= w2; goto wait_n┆
0x2c87e…2c884 (0x25c,0x592)
0x2c884…2c8a0 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 ┆ext; end; event:=w2;┆
0x2c8a0…2c8c0 0a 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 28 ┆ (w3).c_w0:=w0; testout(┆
0x2c8c0…2c8e0 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 3b 0a 20 20 20 ┆.w3.,w0:=26,w1:=w2-2,w2:=6); ┆
0x2c8e0…2c8fc 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 77 ┆ w2:=event; w0:=(w3).c_w┆
0x2c8fc…2c902 (0x25c,0x593)
0x2c902…2c920 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 ┆0; if w0 = 1 then begi┆
0x2c920…2c940 6e 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 20 65 76 ┆n ! an answer has arrived in ev┆
0x2c940…2c960 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 73 73 28 61 6e ┆ent queue ! w1:=address(an┆
0x2c960…2c97a 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 ┆s_status); monitor(1┆
0x2c97a…2c980 (0x25c,0x594)
0x2c980…2c9a0 38 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 ┆8); ! wait answer (take the an┆
0x2c9a0…2c9c0 73 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 65 72 71 66 73 ┆swer home) ! w1:=answerqfs┆
0x2c9c0…2c9e0 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 61 6e 73 77 65 ┆t; while w3:=address(answe┆
0x2c9e0…2ca00 72 71 66 73 74 29 20 3c 3e 20 77 31 20 64 6f 0a 20 20 20 20 20 20 62 65 00 00 00 00 00 00 00 00 ┆rqfst) <> w1 do be ┆
0x2ca00…2ca06 (357,) (0x25c,0x595)
0x2ca06…2ca20 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 ┆gin ! scan answer queue t┆
0x2ca20…2ca40 6f 20 66 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 ┆o find corresponding sender ! ┆
0x2ca40…2ca60 20 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 68 65 6e 0a 20 ┆ if w2 = (w1).c_mbuf then ┆
0x2ca60…2ca7e 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 69 74 69 ┆ begin ! activate waiti┆
0x2ca7e…2ca84 (0x25c,0x596)
0x2ca84…2caa0 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 ┆ng coroutine ! (w1┆
0x2caa0…2cac0 29 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 5f ┆).c_w0:=w0; goto coru_┆
0x2cac0…2cae0 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 20 77 31 3a 3d ┆found; end; w1:=┆
0x2cae0…2cafc 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 ┆(w1).c_next; end; ┆
0x2cafc…2cb02 (0x25c,0x597)
0x2cb02…2cb20 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 ┆ w1:=phpool_top; while ┆
0x2cb20…2cb40 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 70 68 ┆w1-!length(processhandler) >= ph┆
0x2cb40…2cb60 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 73 63 61 6e 20 ┆pool_fst do begin ! scan ┆
0x2cb60…2cb7a 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 ┆process handlers in case o┆
0x2cb7a…2cb80 (0x25c,0x598)
0x2cb80…2cba0 66 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 ┆f a dummy answer ! if w2┆
0x2cba0…2cbc0 20 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 20 20 20 20 20 ┆ = (w1).ph_dummymess then ┆
0x2cbc0…2cbe0 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 69 73 20 72 65 ┆ begin ! the application is re┆
0x2cbe0…2cc00 6d 6f 76 65 64 2c 20 73 6f 20 72 65 6d 6f 76 65 20 74 65 72 6d 69 6e 61 00 00 00 00 00 00 00 00 ┆moved, so remove termina ┆
0x2cc00…2cc06 (358,) (0x25c,0x599)
0x2cc06…2cc20 6c 20 67 72 6f 75 70 20 21 0a 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 30 3b ┆l group ! w0:=0;┆
0x2cc20…2cc40 0a 20 20 20 20 20 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 ┆ (w1).ph_dummymess:=w0┆
0x2cc40…2cc60 3b 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 70 68 5f 63 68 ┆; while w2:=(w1).ph_ch┆
0x2cc60…2cc7e 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 0a 20 20 ┆ild <> 0 do begin ┆
0x2cc7e…2cc84 (0x25c,0x59a)
0x2cc84…2cca0 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 ┆ disconnect(.w3.,w2┆
0x2cca0…2ccc0 2c 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 2e ┆,w1); remove_th(.w3.┆
0x2ccc0…2cce0 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 20 20 20 20 72 ┆,w2); end; r┆
0x2cce0…2ccfc 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 20 ┆emove_ph(.w3.,w1); ┆
0x2ccfc…2cd02 (0x25c,0x59b)
0x2cd02…2cd20 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 ┆ goto central_wait; en┆
0x2cd20…2cd40 64 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 72 61 6c ┆d; end; goto central┆
0x2cd40…2cd60 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 20 20 20 65 6c ┆_wait; end ! answer ! el┆
0x2cd60…2cd7a 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 ┆se begin ! message has┆
0x2cd7a…2cd80 (0x25c,0x59c)
0x2cd80…2cda0 20 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 ┆ arrived in event queue ! ┆
0x2cda0…2cdc0 69 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 6e 0a 20 20 20 ┆if w0:=(w2).mess_op = 3 then ┆
0x2cdc0…2cde0 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 20 69 6f 3a 0a ┆ begin ! input output ! io: ┆
0x2cde0…2ce00 20 20 20 20 20 20 20 20 66 69 6e 64 5f 70 68 28 2e 77 33 2e 2c 77 30 3a 00 00 00 00 00 00 00 00 ┆ find_ph(.w3.,w0: ┆
0x2ce00…2ce06 (359,) (0x25c,0x59d)
0x2ce06…2ce20 3d 28 77 32 29 2e 6d 65 73 73 5f 72 65 63 65 69 76 65 72 2c 77 30 3a 3d 28 77 ┆=(w2).mess_receiver,w0:=(w┆
0x2ce20…2ce40 32 29 2e 6d 65 73 73 5f 73 65 6e 64 65 72 2c 77 31 29 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 ┆2).mess_sender,w1); if w┆
0x2ce40…2ce60 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 3d 2d 32 29 3b 0a ┆1<=0 then unintel(.w3.,w0:=-2); ┆
0x2ce60…2ce7e 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 3e 3d 30 ┆ if w0:=(w1).c_mbuf>=0┆
0x2ce7e…2ce84 (0x25c,0x59e)
0x2ce84…2cea0 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 ┆ then goto wait_next; ┆
0x2cea0…2cec0 20 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 5f ┆ (w1).c_w2:=w2; (w1).c_┆
0x2cec0…2cee0 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 32 36 29 3b 20 ┆mbuf:= w2; monitor(26); ┆
0x2cee0…2cefc 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 20 ┆! get event ! goto ┆
0x2cefc…2cf02 (0x25c,0x59f)
0x2cf02…2cf20 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 ┆coru_found; end el┆
0x2cf20…2cf40 73 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 0a 20 20 ┆se if w0=5 then goto io ┆
0x2cf40…2cf60 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 20 67 6f 74 6f ┆ else if w0=4 then goto┆
0x2cf60…2cf7a 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 ┆ io else if w0┆
0x2cf7a…2cf80 (0x25c,0x5a0)
0x2cf80…2cfa0 3d 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 ┆=2 then goto io else ┆
0x2cfa0…2cfc0 20 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 20 65 6c 73 65 ┆ if w0=0 then goto io else┆
0x2cfc0…2cfe0 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 69 6f 0a 20 20 ┆ if w0=110 then goto io ┆
0x2cfe0…2d000 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 69 66 20 77 30 3d 31 33 32 00 00 00 00 00 00 00 00 ┆ else if w0=132 ┆
0x2d000…2d006 (360,) (0x25c,0x5a1)
0x2d006…2d020 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 ┆ then goto io else ┆
0x2d020…2d040 20 20 20 20 20 69 66 20 77 30 3d 31 33 34 20 74 68 65 6e 20 67 6f 74 6f 20 69 6f 0a 20 20 20 20 ┆ if w0=134 then goto io ┆
0x2d040…2d060 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 0a 20 20 20 20 20 20 ┆ else if w0=9 then ┆
0x2d060…2d07e 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 20 20 ┆begin ! simulate input ! ┆
0x2d07e…2d084 (0x25c,0x5a2)
0x2d084…2d0a0 20 20 20 21 20 63 6f 6d 70 75 74 65 20 62 75 66 20 6c 65 6e 67 74 68 2c 20 61 76 6f ┆ ! compute buf length, avo┆
0x2d0a0…2d0c0 69 64 20 74 72 75 6e 63 20 65 72 72 6f 72 73 20 21 0a 20 20 20 20 20 20 20 20 77 30 3a 3d 28 77 ┆id trunc errors ! w0:=(w┆
0x2d0c0…2d0e0 32 29 2e 6d 65 73 73 5f 66 69 72 73 74 3b 0a 20 20 20 20 20 20 20 20 2d 28 77 30 20 61 73 68 69 ┆2).mess_first; -(w0 ashi┆
0x2d0e0…2d0fc 66 74 20 2d 31 20 61 73 68 69 66 74 20 31 29 3b 0a 20 20 20 20 20 20 20 20 77 30 2b ┆ft -1 ashift 1); w0+┆
0x2d0fc…2d102 (0x25c,0x5a3)
0x2d102…2d120 28 77 32 29 2e 6d 65 73 73 5f 6c 61 73 74 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3c ┆(w2).mess_last; if w0<┆
0x2d120…2d140 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 2d 33 29 3b 0a 20 20 ┆=0 then unintel(.w3.,w0:=-3); ┆
0x2d140…2d160 20 20 20 20 20 20 69 66 20 77 30 3e 3d 62 75 66 6c 20 74 68 65 6e 20 75 6e 69 6e 74 65 6c 28 2e ┆ if w0>=bufl then unintel(.┆
0x2d160…2d17a 77 33 2e 2c 77 30 3a 3d 2d 33 29 3b 0a 20 20 20 20 20 20 20 20 62 6c 3a 3d 20 ┆w3.,w0:=-3); bl:= ┆
0x2d17a…2d180 (0x25c,0x5a4)
0x2d180…2d1a0 77 30 2b 32 3b 0a 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 ┆w0+2; find_ph(.w3.,w0:=┆
0x2d1a0…2d1c0 28 77 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 ┆(w2).mess_receiver,w0:=(w2).mess┆
0x2d1c0…2d1e0 5f 73 65 6e 64 65 72 2c 77 31 29 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 31 3c 3d 30 20 74 68 ┆_sender,w1); if w1<=0 th┆
0x2d1e0…2d200 65 6e 20 75 6e 69 6e 74 65 6c 28 2e 77 33 2e 2c 77 30 3a 3d 2d 32 29 3b 00 00 00 00 00 00 00 00 ┆en unintel(.w3.,w0:=-2); ┆
0x2d200…2d206 (361,) (0x25c,0x5a5)
0x2d206…2d220 20 21 20 70 68 20 75 6e 6b 6e 6f 77 6e 20 21 0a 20 20 20 20 20 20 20 20 70 68 ┆ ! ph unknown ! ph┆
0x2d220…2d240 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 31 3a 3d 28 77 32 29 ┆_head:= w1; if w1:=(w2)┆
0x2d240…2d260 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 65 6c 28 2e 77 33 2e ┆.mess_first<=0 then unintel(.w3.┆
0x2d260…2d27e 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 36 3b 20 77 33 ┆,w0:=-3); w3:= 116; w3┆
0x2d27e…2d284 (0x25c,0x5a6)
0x2d284…2d2a0 3a 3d 28 77 33 29 2e 77 6f 72 64 3b 20 21 20 6e 6f 20 6f 66 20 73 74 6f 72 61 67 65 ┆:=(w3).word; ! no of storage┆
0x2d2a0…2d2c0 20 62 79 74 65 73 20 21 0a 20 20 20 20 20 20 20 20 69 66 20 77 33 3c 3d 28 77 32 29 2e 6d 65 73 ┆ bytes ! if w3<=(w2).mes┆
0x2d2c0…2d2e0 73 5f 6c 61 73 74 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 ┆s_last then unintel(.w3.,w0:=-3)┆
0x2d2e0…2d2fc 3b 20 21 20 62 75 66 20 6e 6f 74 20 69 6e 73 69 64 65 20 73 74 6f 72 65 20 21 0a 20 ┆; ! buf not inside store ! ┆
0x2d2fc…2d302 (0x25c,0x5a7)
0x2d302…2d320 20 20 20 20 20 20 20 77 31 3a 3d 61 64 64 72 65 73 73 28 6c 6f 63 61 6c 69 64 29 3b 0a 20 ┆ w1:=address(localid); ┆
0x2d320…2d340 20 20 20 20 20 20 20 67 63 5f 66 69 72 73 74 3a 3d 77 31 3b 67 63 5f 6c 61 73 74 3a 3d 77 31 3b ┆ gc_first:=w1;gc_last:=w1;┆
0x2d340…2d360 0a 20 20 20 20 20 20 20 20 6c 6f 63 61 6c 69 64 3a 3d 77 30 3a 3d 2d 31 3b 0a 20 20 20 20 20 20 ┆ localid:=w0:=-1; ┆
0x2d360…2d37a 20 20 63 6f 6d 6d 65 6e 74 20 77 32 3d 62 75 66 66 65 72 20 61 64 64 72 65 73 ┆ comment w2=buffer addres┆
0x2d37a…2d380 (0x25c,0x5a8)
0x2d380…2d3a0 73 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 6e 63 29 3b ┆s; w1:=address(gc_func);┆
0x2d3a0…2d3c0 0a 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 38 34 29 3b 20 0a 20 20 20 20 20 20 20 20 77 ┆ monitor(84); w┆
0x2d3c0…2d3e0 31 3a 3d 70 68 5f 68 65 61 64 2e 70 68 5f 63 68 69 6c 64 3b 0a 20 20 20 20 20 20 20 20 77 33 3a ┆1:=ph_head.ph_child; w3:┆
0x2d3e0…2d400 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 77 68 69 6c 65 20 77 31 3e 77 33 00 00 00 00 00 00 00 00 ┆= 0; while w1>w3 ┆
0x2d400…2d406 (362,) (0x25c,0x5a9)
0x2d406…2d420 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 ┆ do begin ┆
0x2d420…2d440 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 63 61 6c 69 64 3b 0a ┆ w0:= localid-(w1).th_localid; ┆
0x2d440…2d460 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 68 5f 74 79 70 65 3d ┆ if w0 or (w1).th_type=┆
0x2d460…2d47e 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 69 64 20 6f 6b ┆0 then ! type=0 and localid ok┆
0x2d47e…2d484 (0x25c,0x5aa)
0x2d484…2d4a0 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 20 77 31 0a 20 20 20 20 20 ┆ ! w3:= w1 ┆
0x2d4a0…2d4c0 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 20 28 77 31 29 2e ┆ else w1:= (w1).┆
0x2d4c0…2d4e0 74 68 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 69 66 ┆th_next; end; if┆
0x2d4e0…2d4fc 20 77 31 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 ┆ w1=0 then unintel(.w3.,w0:=┆
0x2d4fc…2d502 (0x25c,0x5ab)
0x2d502…2d520 2d 34 29 3b 20 21 20 74 68 20 75 6e 6b 6e 6f 77 6e 20 21 0a 0a 20 20 20 20 20 20 20 20 70 ┆-4); ! th unknown ! p┆
0x2d520…2d540 72 6f 63 64 65 73 63 72 3a 3d 20 77 30 3a 3d 20 28 77 31 29 2e 74 68 5f 70 72 6f 63 64 65 73 63 ┆rocdescr:= w0:= (w1).th_procdesc┆
0x2d540…2d560 72 3b 0a 20 20 20 20 20 20 20 20 74 79 70 65 3a 3d 20 77 30 3a 3d 20 28 77 31 29 2e 74 68 5f 74 ┆r; type:= w0:= (w1).th_t┆
0x2d560…2d57a 79 70 65 3b 0a 20 20 20 20 20 20 20 20 62 75 66 73 3a 3d 20 77 30 3a 3d 20 28 ┆ype; bufs:= w0:= (┆
0x2d57a…2d580 (0x25c,0x5ac)
0x2d580…2d5a0 77 31 29 2e 74 68 5f 6d 61 78 62 75 66 3b 0a 20 20 20 20 20 20 20 20 74 69 6d 65 72 73 3a 3d 20 ┆w1).th_maxbuf; timers:= ┆
0x2d5a0…2d5c0 77 30 3a 3d 20 28 77 31 29 2e 74 68 5f 74 69 6d 65 72 6d 61 78 3b 0a 20 20 20 20 20 20 20 20 64 ┆w0:= (w1).th_timermax; d┆
0x2d5c0…2d5e0 69 73 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 ┆isconnect(.w3.,w1,w0:=ph_head); ┆
0x2d5e0…2d600 20 20 20 20 20 20 20 20 72 65 6d 6f 76 65 5f 74 68 28 2e 77 33 2e 2c 77 00 00 00 00 00 00 00 00 ┆ remove_th(.w3.,w ┆
0x2d600…2d606 (363,) (0x25c,0x5ad)
0x2d606…2d620 31 29 3b 0a 20 20 20 20 20 20 20 20 63 72 65 61 74 65 5f 74 68 28 2e 77 33 2e ┆1); create_th(.w3.┆
0x2d620…2d640 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 65 2c 0a 20 20 20 20 ┆,w1,w3:=procdescr,w3:=type, ┆
0x2d640…2d660 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 6f 63 61 6c 69 64 2c ┆ w3:=localid,┆
0x2d660…2d67e 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 2c 77 33 3a 3d ┆w3,=bufs,w3,=timers,w3:=0,w3:=┆
0x2d67e…2d684 (0x25c,0x5ae)
0x2d684…2d6a0 30 29 3b 0a 20 20 20 20 20 20 20 20 63 6f 6e 6e 65 63 74 28 2e 77 33 2e 2c 77 31 2c ┆0); connect(.w3.,w1,┆
0x2d6a0…2d6c0 77 33 3a 3d 70 68 5f 68 65 61 64 29 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 74 68 5f 75 73 ┆w3:=ph_head); (w1).th_us┆
0x2d6c0…2d6e0 65 64 62 75 66 3a 3d 20 77 30 3a 3d 20 31 3b 0a 20 20 20 20 20 20 20 20 70 75 74 5f 6f 70 28 2e ┆edbuf:= w0:= 1; put_op(.┆
0x2d6e0…2d6fc 77 33 2e 2c 77 30 3a 3d 62 6c 2b 21 70 6f 73 69 74 69 6f 6e 28 62 75 66 5f 6c 6f 63 ┆w3.,w0:=bl+!position(buf_loc┆
0x2d6fc…2d702 (0x25c,0x5af)
0x2d702…2d720 61 6c 69 64 29 2c 77 31 2c 77 32 3a 3d 77 31 29 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 ┆alid),w1,w2:=w1); (w1)┆
0x2d720…2d740 2e 62 75 66 6d 5f 6f 70 3a 3d 20 77 30 3a 3d 20 39 3b 20 28 77 31 29 2e 62 75 66 6d 5f 6d 6f 64 ┆.bufm_op:= w0:= 9; (w1).bufm_mod┆
0x2d740…2d760 65 3a 3d 20 77 30 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 62 75 66 5f 62 79 74 ┆e:= w0:= 0; (w1).buf_byt┆
0x2d760…2d77a 65 73 3a 3d 20 77 30 3a 3d 20 62 6c 3b 0a 20 20 20 20 20 20 20 20 77 32 3a 3d ┆es:= w0:= bl; w2:=┆
0x2d77a…2d780 (0x25c,0x5b0)
0x2d780…2d7a0 20 61 64 64 72 65 73 73 28 28 77 31 29 2e 62 75 66 5f 6c 6f 63 61 6c 69 64 29 3b 0a 20 20 20 20 ┆ address((w1).buf_localid); ┆
0x2d7a0…2d7c0 20 20 20 20 67 63 5f 66 69 72 73 74 3a 3d 77 32 3b 0a 20 20 20 20 20 20 20 20 77 32 2b 77 30 2d ┆ gc_first:=w2; w2+w0-┆
0x2d7c0…2d7e0 32 3b 0a 20 20 20 20 20 20 20 20 67 63 5f 6c 61 73 74 3a 3d 77 32 3b 0a 20 20 20 20 20 20 20 20 ┆2; gc_last:=w2; ┆
0x2d7e0…2d800 77 31 3a 3d 61 64 64 72 65 73 73 28 67 63 5f 66 75 6e 63 29 3b 0a 20 20 00 00 00 00 00 00 00 00 ┆w1:=address(gc_func); ┆
0x2d800…2d806 (364,) (0x25c,0x5b1)
0x2d806…2d820 20 20 20 20 20 20 77 32 3a 3d 65 76 65 6e 74 3b 0a 20 20 20 20 20 20 20 20 6d ┆ w2:=event; m┆
0x2d820…2d840 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 20 21 0a 20 20 20 ┆onitor(84); ! general copy ! ┆
0x2d840…2d860 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 20 20 20 20 61 6e 73 ┆ ans_bytes:= w1; ans┆
0x2d860…2d87e 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 74 20 2d 31 29 ┆_chars:= w1+(w2:=w1 ashift -1)┆
0x2d87e…2d884 (0x25c,0x5b2)
0x2d884…2d8a0 3b 0a 20 20 20 20 20 20 65 6e 64 20 21 20 73 69 6d 75 6c 61 74 65 20 69 6e 70 75 74 ┆; end ! simulate input┆
0x2d8a0…2d8c0 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 39 30 20 74 68 65 ┆ ! else if w0=90 the┆
0x2d8c0…2d8e0 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 20 21 20 63 72 65 61 74 65 20 70 6f 6f 6c 20 21 0a 20 20 ┆n begin ! create pool ! ┆
0x2d8e0…2d8fc 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 ┆ if w0:=(w2).cm_mode<>0┆
0x2d8fc…2d902 (0x25c,0x5b3)
0x2d902…2d920 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 ┆ then unintel(.w3.,w0:=-3); ┆
0x2d920…2d940 20 20 20 20 20 20 66 69 6e 64 5f 70 68 28 2e 77 33 2e 2c 77 30 3a 3d 2d 31 2c 77 30 2c 77 31 29 ┆ find_ph(.w3.,w0:=-1,w0,w1)┆
0x2d940…2d960 3b 20 21 20 66 69 6e 64 20 66 72 65 65 20 70 68 20 21 0a 20 20 20 20 20 20 20 20 69 66 20 77 31 ┆; ! find free ph ! if w1┆
0x2d960…2d97a 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 38 ┆=0 then unintel(.w3.,w0:=8┆
0x2d97a…2d980 (0x25c,0x5b4)
0x2d980…2d9a0 27 30 31 30 30 29 3b 0a 20 20 20 20 20 20 20 20 2d 28 77 31 29 3b 0a 20 20 20 20 20 20 20 20 70 ┆'0100); -(w1); p┆
0x2d9a0…2d9c0 68 5f 68 65 61 64 3a 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 ┆h_head:= w1; w1:= addres┆
0x2d9c0…2d9e0 73 28 28 77 32 29 2e 63 6d 5f 6e 61 6d 65 29 3b 0a 20 20 20 20 20 20 20 20 6d 6f 76 65 28 2e 77 ┆s((w2).cm_name); move(.w┆
0x2d9e0…2da00 33 2e 2c 77 30 3a 3d 38 2c 77 31 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 00 00 00 00 00 00 00 00 ┆3.,w0:=8,w1,w2:=address( ┆
0x2da00…2da06 (365,) (0x25c,0x5b5)
0x2da06…2da20 78 6e 61 6d 65 31 29 29 3b 0a 20 20 20 20 20 20 20 20 63 72 65 61 74 65 5f 70 ┆xname1)); create_p┆
0x2da20…2da40 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 3d 28 77 32 3a 3d 65 ┆h(.w3.,w0:=ph_head,w2,w0:=(w2:=e┆
0x2da40…2da60 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 20 20 20 20 69 66 20 ┆vent).cm_sender,w0); if ┆
0x2da60…2da7e 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 3a 3d 38 27 32 ┆w0=0 then unintel(.w3.,w0:=8'2┆
0x2da7e…2da84 (0x25c,0x5b6)
0x2da84…2daa0 30 30 30 29 3b 0a 20 20 20 20 20 20 65 6e 64 20 21 20 63 72 65 61 74 65 20 70 6f 6f ┆000); end ! create poo┆
0x2daa0…2dac0 6c 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 39 32 20 74 68 ┆l ! else if w0=92 th┆
0x2dac0…2dae0 65 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 20 21 20 72 65 6d 6f 76 65 20 70 6f 6f 6c 20 21 0a 20 ┆en begin ! remove pool ! ┆
0x2dae0…2dafc 20 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 ┆ if w0:=(w2).cm_mode<>┆
0x2dafc…2db02 (0x25c,0x5b7)
0x2db02…2db20 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 ┆0 then unintel(.w3.,w0:=-3); ┆
0x2db20…2db40 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┆
0x2db40…2db60 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 28 78 6e 61 ┆ss((w2).cm_name),w2:=address(xna┆
0x2db60…2db7a 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 ┆me1)); w2:= event;┆
0x2db7a…2db80 (0x25c,0x5b8)
0x2db80…2dba0 0a 20 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 ┆ w3:= address(xname1); ┆
0x2dba0…2dbc0 20 20 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 70 72 6f 63 ┆ monitor(4); ! lookup proc┆
0x2dbc0…2dbe0 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 30 2c 77 30 ┆ess ! find_ph(.w3.,w0,w0┆
0x2dbe0…2dc00 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); ┆
0x2dc00…2dc06 (366,) (0x25c,0x5b9)
0x2dc06…2dc20 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┆
0x2dc20…2dc40 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 20 20 20 20 77 68 69 ┆l(.w3.,w0:=8'0400); whi┆
0x2dc40…2dc60 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 6f 0a 20 20 20 20 20 ┆le w2:=(w1).ph_child<>0 do ┆
0x2dc60…2dc7e 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 6e 65 63 74 28 ┆ begin disconnect(┆
0x2dc7e…2dc84 (0x25c,0x5ba)
0x2dc84…2dca0 2e 77 33 2e 2c 77 32 2c 77 31 29 3b 0a 20 20 20 20 20 20 20 20 20 20 72 65 6d 6f 76 ┆.w3.,w2,w1); remov┆
0x2dca0…2dcc0 65 5f 74 68 28 2e 77 33 2e 2c 77 32 29 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 ┆e_th(.w3.,w2); end; ┆
0x2dcc0…2dce0 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 65 6e ┆ remove_ph(.w3.,w1); en┆
0x2dce0…2dcfc 64 20 21 20 72 65 6d 6f 76 65 20 70 6f 6f 6c 20 21 0a 20 20 20 20 20 20 65 6c 73 65 ┆d ! remove pool ! else┆
0x2dcfc…2dd02 (0x25c,0x5bb)
0x2dd02…2dd20 0a 20 20 20 20 20 20 69 66 20 77 30 3d 39 34 20 74 68 65 6e 0a 20 20 20 20 20 20 62 65 67 ┆ if w0=94 then beg┆
0x2dd20…2dd40 69 6e 20 21 20 6c 6f 6f 6b 75 70 20 70 6f 6f 6c 20 21 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 ┆in ! lookup pool ! if w0┆
0x2dd40…2dd60 3a 3d 20 28 77 32 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 ┆:= (w2).cm_mode<>0 then unintel(┆
0x2dd60…2dd7a 2e 77 33 2e 2c 77 30 3a 3d 2d 33 29 3b 0a 20 20 20 20 20 20 20 20 6d 6f 76 65 ┆.w3.,w0:=-3); move┆
0x2dd7a…2dd80 (0x25c,0x5bc)
0x2dd80…2dda0 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 63 6d 5f ┆(.w3.,w0:=8,w1:=address((w2).cm_┆
0x2dda0…2ddc0 6e 61 6d 65 29 2c 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 ┆name),w2:=address(xname1)); ┆
0x2ddc0…2dde0 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 64 64 ┆ w2:= event; w3:= add┆
0x2dde0…2de00 72 65 73 73 28 78 6e 61 6d 65 31 29 3b 0a 20 20 20 20 20 20 20 20 6d 6f 00 00 00 00 00 00 00 00 ┆ress(xname1); mo ┆
0x2de00…2de06 (367,) (0x25c,0x5bd)
0x2de06…2de20 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 ┆nitor(4); ! lookup process┆
0x2de20…2de40 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 30 2c 77 30 3a 3d 28 ┆ ! find_ph(.w3.,w0,w0:=(┆
0x2de40…2de60 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 20 20 69 66 20 77 31 ┆w2).cm_sender,w1); if w1┆
0x2de60…2de7e 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 38 27 30 34 ┆<=0 then unintel(.w3.,w0:=8'04┆
0x2de7e…2de84 (0x25c,0x5be)
0x2de84…2dea0 30 30 29 3b 0a 20 20 20 20 20 20 20 20 77 32 3a 3d 20 77 31 3b 0a 20 20 20 20 20 20 ┆00); w2:= w1; ┆
0x2dea0…2dec0 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 3b 0a 20 20 20 20 ┆ w1:= address(ans_status); ┆
0x2dec0…2dee0 20 20 20 20 28 77 31 29 2e 63 61 5f 72 65 63 66 75 6c 6c 3a 3d 20 77 30 3a 3d 20 28 77 33 3a 3d ┆ (w1).ca_recfull:= w0:= (w3:=┆
0x2dee0…2defc 28 77 32 29 2e 61 5f 72 65 63 66 75 6c 6c 29 2e 73 65 6d 5f 76 61 6c 75 65 3b 0a 20 ┆(w2).a_recfull).sem_value; ┆
0x2defc…2df02 (0x25c,0x5bf)
0x2df02…2df20 20 20 20 20 20 20 20 28 77 31 29 2e 63 61 5f 62 79 74 65 73 66 72 65 65 3a 3d 20 77 30 3a ┆ (w1).ca_bytesfree:= w0:┆
0x2df20…2df40 3d 20 28 77 33 3a 3d 28 77 32 29 2e 61 5f 62 79 74 65 73 66 72 65 65 29 2e 73 65 6d 5f 76 61 6c ┆= (w3:=(w2).a_bytesfree).sem_val┆
0x2df40…2df60 75 65 3b 0a 20 20 20 20 20 20 65 6e 64 20 21 20 6c 6f 6f 6b 75 70 20 70 6f 6f 6c 20 21 0a 20 20 ┆ue; end ! lookup pool ! ┆
0x2df60…2df7a 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 69 66 20 77 30 3d 31 30 30 20 74 ┆ else if w0=100 t┆
0x2df7a…2df80 (0x25c,0x5c0)
0x2df80…2dfa0 68 65 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 20 21 20 63 72 65 61 74 65 20 6c 69 6e 6b 20 21 0a ┆hen begin ! create link ! ┆
0x2dfa0…2dfc0 20 20 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 20 61 6e 64 20 ┆ if w0:=(w2).cm_mode and ┆
0x2dfc0…2dfe0 38 27 37 37 37 31 3c 3e 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 75 6e 69 6e 74 65 6c 28 2e ┆8'7771<>0 then unintel(.┆
0x2dfe0…2e000 77 33 2e 2c 77 30 3a 3d 2d 33 29 3b 0a 20 20 20 20 20 20 20 20 21 20 6c 00 00 00 00 00 00 00 00 ┆w3.,w0:=-3); ! l ┆
0x2e000…2e006 (368,) (0x25c,0x5c1)
0x2e006…2e020 6f 6f 6b 75 70 20 70 72 6f 63 65 73 73 20 64 65 73 63 72 69 70 74 69 6f 6e 20 ┆ookup process description ┆
0x2e020…2e040 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 31 3a 3d 28 77 32 29 ┆for device ! if w1:=(w2)┆
0x2e040…2e060 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 2e 77 33 2e 2c 77 30 ┆.cm_tpda<=0 then unintel(.w3.,w0┆
0x2e060…2e07e 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 65 6e 74 20 74 ┆:=-3); if w1>current t┆
0x2e07e…2e084 (0x25c,0x5c2)
0x2e084…2e0a0 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 20 21 20 ┆hen unintel(.w3.,w0:=-3); ! ┆
0x2e0a0…2e0c0 61 64 64 72 65 73 73 20 6e 6f 74 20 69 6e 20 6d 6f 6e 69 74 6f 72 20 21 0a 20 20 20 20 20 20 20 ┆address not in monitor ! ┆
0x2e0c0…2e0e0 20 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 20 61 64 64 72 65 ┆ move(.w3.,w0:=8,w1+2,w2:= addre┆
0x2e0e0…2e0fc 73 73 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 ┆ss(xname1)); w2:= ev┆
0x2e0fc…2e102 (0x25c,0x5c3)
0x2e102…2e120 65 6e 74 3b 0a 20 20 20 20 20 20 20 20 77 33 3a 3d 20 61 64 64 72 65 73 73 28 78 6e 61 6d ┆ent; w3:= address(xnam┆
0x2e120…2e140 65 31 29 3b 0a 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 ┆e1); monitor(4); ┆
0x2e140…2e160 20 69 66 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 ┆ if w0<>(w2).cm_tpda then uninte┆
0x2e160…2e17a 6c 28 2e 77 33 2e 2c 77 30 3a 3d 38 27 30 30 30 34 29 3b 20 21 20 64 65 76 2e ┆l(.w3.,w0:=8'0004); ! dev.┆
0x2e17a…2e180 (0x25c,0x5c4)
0x2e180…2e1a0 20 75 6e 6b 6e 6f 77 6e 21 0a 20 20 20 20 20 20 20 20 66 69 6e 64 5f 70 68 28 2e 77 33 2e 2c 77 ┆ unknown! find_ph(.w3.,w┆
0x2e1a0…2e1c0 30 3a 3d 28 77 32 29 2e 63 6d 5f 72 65 63 65 69 76 65 72 2c 77 30 3a 3d 28 77 32 29 2e 63 6d 5f ┆0:=(w2).cm_receiver,w0:=(w2).cm_┆
0x2e1c0…2e1e0 73 65 6e 64 65 72 2c 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 ┆sender,w1); if w1<=0 the┆
0x2e1e0…2e200 6e 20 75 6e 69 6e 74 65 6c 28 2e 77 33 2e 2c 77 30 3a 3d 38 27 30 34 30 00 00 00 00 00 00 00 00 ┆n unintel(.w3.,w0:=8'040 ┆
0x2e200…2e206 (369,) (0x25c,0x5c5)
0x2e206…2e220 30 29 3b 20 21 20 70 68 20 64 6f 6e 74 20 65 78 69 73 74 20 21 0a 20 20 20 20 ┆0); ! ph dont exist ! ┆
0x2e220…2e240 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 21 20 72 65 6a ┆ ph_head:= w1; ! rej┆
0x2e240…2e260 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 65 61 64 79 20 6f 72 ┆ect if link is known allready or┆
0x2e260…2e27e 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 20 20 20 20 20 ┆ if no free th exist ! ┆
0x2e27e…2e284 (0x25c,0x5c6)
0x2e284…2e2a0 20 77 33 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 77 31 3a 3d 20 74 68 70 6f 6f 6c ┆ w3:= 0; w1:= thpool┆
0x2e2a0…2e2c0 5f 74 6f 70 3b 0a 20 20 20 20 20 20 20 20 77 68 69 6c 65 20 77 31 2d 21 6c 65 6e 67 74 68 28 74 ┆_top; while w1-!length(t┆
0x2e2c0…2e2e0 65 72 6d 69 6e 61 6c 68 61 6e 64 6c 65 72 29 3e 3d 74 68 70 6f 6f 6c 5f 66 73 74 20 64 6f 0a 20 ┆erminalhandler)>=thpool_fst do ┆
0x2e2e0…2e2fc 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 ┆ begin if w0┆
0x2e2fc…2e302 (0x25c,0x5c7)
0x2e302…2e320 3a 3d 28 77 31 29 2e 74 68 5f 70 72 6f 63 64 65 73 63 72 3d 28 77 32 29 2e 63 6d 5f 74 70 ┆:=(w1).th_procdescr=(w2).cm_tp┆
0x2e320…2e340 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 32 30 29 ┆da then unintel(.w3.,w0:=8'0020)┆
0x2e340…2e360 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 77 33 3a 3d 20 77 31 ┆; if w0=0 then w3:= w1┆
0x2e360…2e37a 20 21 20 66 72 65 65 20 74 68 20 21 0a 20 20 20 20 20 20 20 20 20 20 65 6c 73 ┆ ! free th ! els┆
0x2e37a…2e380 (0x25c,0x5c8)
0x2e380…2e3a0 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 20 20 20 69 66 ┆e begin if┆
0x2e3a0…2e3c0 20 77 30 3a 3d 28 77 31 29 2e 74 68 5f 70 61 72 65 6e 74 3d 70 68 5f 68 65 61 64 20 74 68 65 6e ┆ w0:=(w1).th_parent=ph_head then┆
0x2e3c0…2e3e0 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 68 5f 6c 6f 63 61 ┆ if w0:=(w1).th_loca┆
0x2e3e0…2e400 6c 69 64 3d 28 77 32 29 2e 63 6d 5f 6c 6f 63 61 6c 69 64 20 74 68 65 6e 00 00 00 00 00 00 00 00 ┆lid=(w2).cm_localid then ┆
0x2e400…2e406 (370,) (0x25c,0x5c9)
0x2e406…2e420 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 75 6e 69 6e 74 65 6c 28 2e 77 33 ┆ unintel(.w3┆
0x2e420…2e440 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 65 6e 64 3b 0a 20 20 ┆.,w0:=8'1000); end; ┆
0x2e440…2e460 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 30 20 74 68 65 6e 20 ┆ end; if w3=0 then ┆
0x2e460…2e47e 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 0a 0a 20 20 20 ┆unintel(.w3.,w0:=8'0040); ┆
0x2e47e…2e484 (0x25c,0x5ca)
0x2e484…2e4a0 20 20 20 20 20 21 20 63 72 65 61 74 69 6f 6e 20 69 73 20 70 6f 73 73 69 62 6c 65 20 ┆ ! creation is possible ┆
0x2e4a0…2e4c0 21 0a 20 20 20 20 20 20 20 20 77 30 3a 3d 20 77 33 3b 0a 20 20 20 20 20 20 20 20 63 72 65 61 74 ┆! w0:= w3; creat┆
0x2e4c0…2e4e0 65 5f 74 68 28 2e 77 33 2e 2c 77 33 2c 77 33 3a 3d 28 77 32 29 2e 63 6d 5f 74 70 64 61 2c 77 33 ┆e_th(.w3.,w3,w3:=(w2).cm_tpda,w3┆
0x2e4e0…2e4fc 3a 3d 28 77 32 29 2e 63 6d 5f 6d 6f 64 65 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆:=(w2).cm_mode, ┆
0x2e4fc…2e502 (0x25c,0x5cb)
0x2e502…2e520 20 20 20 20 20 20 77 33 3a 3d 28 77 32 29 2e 63 6d 5f 6c 6f 63 61 6c 69 64 2c 77 33 2c 3d ┆ w3:=(w2).cm_localid,w3,=┆
0x2e520…2e540 28 77 32 29 2e 63 6d 5f 62 75 66 73 2c 77 33 2c 3d 28 77 32 29 2e 63 6d 5f 74 69 6d 65 72 73 2c ┆(w2).cm_bufs,w3,=(w2).cm_timers,┆
0x2e540…2e560 0a 20 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 6d ┆ w3:=(w2).cm_m┆
0x2e560…2e57a 61 73 6b 2c 77 33 3a 3d 28 77 32 29 2e 63 6d 5f 73 75 62 73 74 29 3b 0a 20 20 ┆ask,w3:=(w2).cm_subst); ┆
0x2e57a…2e580 (0x25c,0x5cc)
0x2e580…2e5a0 20 20 20 20 20 20 63 6f 6e 6e 65 63 74 28 2e 77 33 2e 2c 77 30 2c 77 31 3a 3d 70 68 5f 68 65 61 ┆ connect(.w3.,w0,w1:=ph_hea┆
0x2e5a0…2e5c0 64 29 3b 0a 20 20 20 20 20 20 65 6e 64 20 21 20 63 72 65 61 74 65 20 6c 69 6e 6b 20 21 0a 0a 20 ┆d); end ! create link ! ┆
0x2e5c0…2e5e0 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 69 66 20 77 30 3d 31 30 32 20 74 68 65 6e 0a 20 ┆ else if w0=102 then ┆
0x2e5e0…2e600 20 20 20 20 20 62 65 67 69 6e 20 21 20 72 65 6d 6f 76 65 20 6c 69 6e 6b 00 00 00 00 00 00 00 00 ┆ begin ! remove link ┆
0x2e600…2e606 (371,) (0x25c,0x5cd)
0x2e606…2e620 20 21 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 32 29 2e 63 6d 5f ┆ ! if w0:=(w2).cm_┆
0x2e620…2e640 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 69 6e 74 65 6c 28 2e ┆mode ashift -1<>0 then unintel(.┆
0x2e640…2e660 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 5f 70 68 28 2e 77 33 ┆w3.,w0:=-3); find_ph(.w3┆
0x2e660…2e67e 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 3a 3d 28 77 32 ┆.,w0:=(w2).cm_receiver,w0:=(w2┆
0x2e67e…2e684 (0x25c,0x5ce)
0x2e684…2e6a0 29 2e 63 6d 5f 73 65 6e 64 65 72 2c 77 31 29 3b 0a 20 20 20 20 20 20 20 20 69 66 20 ┆).cm_sender,w1); if ┆
0x2e6a0…2e6c0 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 3d 38 27 30 34 ┆w1<=0 then unintel(.w3.,w0:=8'04┆
0x2e6c0…2e6e0 30 30 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 0a 20 20 20 20 ┆00); ph_head:= w1; ┆
0x2e6e0…2e6fc 20 20 20 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 ┆ w1:= (w1).ph_child; ┆
0x2e6fc…2e702 (0x25c,0x5cf)
0x2e702…2e720 20 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 ┆ w3:= 0; while w1>w┆
0x2e720…2e740 33 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 69 66 20 ┆3 do begin if ┆
0x2e740…2e760 77 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 ┆w0:=(w1).th_localid=(w2).cm_loca┆
0x2e760…2e77a 6c 69 64 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 20 ┆lid then w3:= ┆
0x2e77a…2e780 (0x25c,0x5d0)
0x2e780…2e7a0 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 20 20 20 20 20 77 31 ┆w1 else w1┆
0x2e7a0…2e7c0 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 65 6e 64 3b 0a 20 20 ┆:= (w1).th_next; end; ┆
0x2e7c0…2e7e0 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 77 33 2e 2c ┆ if w1=0 then unintel(.w3.,┆
0x2e7e0…2e800 77 30 3a 3d 38 27 30 32 30 30 29 3b 20 21 20 74 68 20 75 6e 6b 6e 6f 77 00 00 00 00 00 00 00 00 ┆w0:=8'0200); ! th unknow ┆
0x2e800…2e806 (372,) (0x25c,0x5d1)
0x2e806…2e820 6e 20 21 0a 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 32 29 2e 63 ┆n ! if w0:=(w2).c┆
0x2e820…2e840 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 69 6e 20 21 20 73 6f ┆m_mode=0 then begin ! so┆
0x2e840…2e860 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 63 6f 6e 6e 65 63 74 ┆ft remove ! disconnect┆
0x2e860…2e87e 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 ┆(.w3.,w1,w0:=ph_head); ┆
0x2e87e…2e884 (0x25c,0x5d2)
0x2e884…2e8a0 20 20 20 70 75 74 5f 6f 70 28 2e 77 33 2e 2c 77 30 3a 3d 32 2c 77 31 2c 77 32 3a 3d ┆ put_op(.w3.,w0:=2,w1,w2:=┆
0x2e8a0…2e8c0 77 31 29 3b 0a 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 ┆w1); (w1).bufm_op:= w0┆
0x2e8c0…2e8e0 3a 3d 20 2d 31 3b 20 28 77 31 29 2e 62 75 66 6d 5f 6d 6f 64 65 3a 3d 20 77 30 3a 3d 20 32 3b 0a ┆:= -1; (w1).bufm_mode:= w0:= 2; ┆
0x2e8e0…2e8fc 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 ┆ end else ┆
0x2e8fc…2e902 (0x25c,0x5d3)
0x2e902…2e920 20 20 20 20 20 62 65 67 69 6e 20 21 20 68 61 72 64 20 72 65 6d 6f 76 65 20 21 0a 20 20 20 ┆ begin ! hard remove ! ┆
0x2e920…2e940 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 2c 77 30 3a 3d 70 68 ┆ disconnect(.w3.,w1,w0:=ph┆
0x2e940…2e960 5f 68 65 61 64 29 3b 0a 20 20 20 20 20 20 20 20 20 20 72 65 6d 6f 76 65 5f 74 68 28 2e 77 33 2e ┆_head); remove_th(.w3.┆
0x2e960…2e97a 2c 77 31 29 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 65 ┆,w1); end; e┆
0x2e97a…2e980 (0x25c,0x5d4)
0x2e980…2e9a0 6e 64 20 21 20 72 65 6d 6f 76 65 20 6c 69 6e 6b 20 21 0a 20 20 20 20 20 20 65 6c 73 65 0a 20 20 ┆nd ! remove link ! else ┆
0x2e9a0…2e9c0 20 20 20 20 69 66 20 77 30 3d 31 30 34 20 74 68 65 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 20 21 ┆ if w0=104 then begin !┆
0x2e9c0…2e9e0 20 6c 6f 6f 6b 75 70 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 ┆ lookup link ! if w0:=(w┆
0x2e9e0…2ea00 32 29 2e 63 6d 5f 6d 6f 64 65 3c 3e 30 20 74 68 65 6e 20 75 6e 69 6e 74 00 00 00 00 00 00 00 00 ┆2).cm_mode<>0 then unint ┆
0x2ea00…2ea06 (373,) (0x25c,0x5d5)
0x2ea06…2ea20 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 ┆el(.w3.,w0:=-3); f┆
0x2ea20…2ea40 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 65 72 ┆ind_ph(.w3.,w0:=(w2).cm_receiver┆
0x2ea40…2ea60 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 20 ┆,w0:=(w2).cm_sender,w1); ┆
0x2ea60…2ea7e 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┆
0x2ea7e…2ea84 (0x25c,0x5d6)
0x2ea84…2eaa0 3a 3d 38 27 30 34 30 30 29 3b 0a 0a 20 20 20 20 20 20 20 20 77 31 3a 3d 20 28 77 31 ┆:=8'0400); w1:= (w1┆
0x2eaa0…2eac0 29 2e 70 68 5f 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 ┆).ph_child; w3:= 0; ┆
0x2eac0…2eae0 20 20 20 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 6e ┆ while w1>w3 do begin┆
0x2eae0…2eafc 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 ┆ if w0:=(w1).th_lo┆
0x2eafc…2eb02 (0x25c,0x5d7)
0x2eb02…2eb20 63 61 6c 69 64 3d 28 77 32 29 2e 63 6d 5f 6c 6f 63 61 6c 69 64 20 74 68 65 6e 20 77 33 3a ┆calid=(w2).cm_localid then w3:┆
0x2eb20…2eb40 3d 20 77 31 0a 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 20 77 31 3a 3d 28 77 31 29 2e 74 68 5f ┆= w1 else w1:=(w1).th_┆
0x2eb40…2eb60 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 69 66 20 77 31 ┆next; end; if w1┆
0x2eb60…2eb7a 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 38 ┆=0 then unintel(.w3.,w0:=8┆
0x2eb7a…2eb80 (0x25c,0x5d8)
0x2eb80…2eba0 27 30 32 30 30 29 3b 20 21 20 74 68 20 75 6e 6b 6e 6f 77 6e 20 21 0a 0a 20 20 67 65 6e 5f 61 6e ┆'0200); ! th unknown ! gen_an┆
0x2eba0…2ebc0 73 77 65 72 3a 0a 20 20 20 20 20 20 20 20 77 33 3a 3d 20 77 31 3b 0a 20 20 20 20 20 20 20 20 77 ┆swer: w3:= w1; w┆
0x2ebc0…2ebe0 31 3a 3d 20 61 64 64 72 65 73 73 28 61 6e 73 5f 73 74 61 74 75 73 29 3b 0a 20 20 20 20 20 20 20 ┆1:= address(ans_status); ┆
0x2ebe0…2ec00 20 28 77 31 29 2e 63 61 5f 6c 6f 63 61 6c 69 64 3a 3d 20 77 30 3a 3d 20 00 00 00 00 00 00 00 00 ┆ (w1).ca_localid:= w0:= ┆
0x2ec00…2ec06 (374,) (0x25c,0x5d9)
0x2ec06…2ec20 28 77 33 29 2e 74 68 5f 6c 6f 63 61 6c 69 64 3b 0a 20 20 20 20 20 20 20 20 28 ┆(w3).th_localid; (┆
0x2ec20…2ec40 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 68 5f 70 72 6f 63 64 ┆w1).ca_tpda:= w0:= (w3).th_procd┆
0x2ec40…2ec60 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 73 3a 3d 20 77 30 3a ┆escr; (w1).ca_bufs:= w0:┆
0x2ec60…2ec7e 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 20 20 28 77 31 ┆= (w3).th_maxbufs; (w1┆
0x2ec7e…2ec84 (0x25c,0x5da)
0x2ec84…2eca0 29 2e 63 61 5f 74 69 6d 65 72 73 3a 3d 20 77 30 3a 3d 20 28 77 33 29 2e 74 68 5f 74 ┆).ca_timers:= w0:= (w3).th_t┆
0x2eca0…2ecc0 69 6d 65 72 6d 61 78 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 32 3a 3d 28 77 33 29 2e 74 68 5f ┆imermax; if w2:=(w3).th_┆
0x2ecc0…2ece0 70 61 72 65 6e 74 3c 3e 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 63 61 5f 70 ┆parent<>0 then (w1).ca_p┆
0x2ece0…2ecfc 6f 6f 6c 3a 3d 20 77 30 3a 3d 20 28 77 32 29 2e 70 68 5f 70 73 70 72 6f 63 3b 0a 20 ┆ool:= w0:= (w2).ph_psproc; ┆
0x2ecfc…2ed02 (0x25c,0x5db)
0x2ed02…2ed20 20 20 20 20 20 20 20 28 77 31 29 2e 63 61 5f 72 65 63 66 75 6c 6c 3a 3d 20 77 30 3a 3d 20 ┆ (w1).ca_recfull:= w0:= ┆
0x2ed20…2ed40 28 77 32 3a 3d 28 77 33 29 2e 61 5f 72 65 63 66 75 6c 6c 29 2e 73 65 6d 5f 76 61 6c 75 65 3b 0a ┆(w2:=(w3).a_recfull).sem_value; ┆
0x2ed40…2ed60 20 20 20 20 20 20 20 20 28 77 31 29 2e 63 61 5f 62 79 74 65 73 66 72 65 65 3a 3d 20 77 30 3a 3d ┆ (w1).ca_bytesfree:= w0:=┆
0x2ed60…2ed7a 20 28 77 32 3a 3d 28 77 33 29 2e 61 5f 62 79 74 65 73 66 72 65 65 29 2e 73 65 ┆ (w2:=(w3).a_bytesfree).se┆
0x2ed7a…2ed80 (0x25c,0x5dc)
0x2ed80…2eda0 6d 5f 76 61 6c 75 65 3b 0a 20 20 20 20 20 20 65 6e 64 20 21 20 6c 6f 6f 6b 75 70 20 6c 69 6e 6b ┆m_value; end ! lookup link┆
0x2eda0…2edc0 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 31 30 36 20 74 68 ┆ ! else if w0=106 th┆
0x2edc0…2ede0 65 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 20 21 20 6c 6f 6f 6b 75 70 20 74 65 72 6d 20 21 0a 20 ┆en begin ! lookup term ! ┆
0x2ede0…2ee00 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 32 29 2e 63 6d 5f 6d 6f 00 00 00 00 00 00 00 00 ┆ if w0:=(w2).cm_mo ┆
0x2ee00…2ee06 (375,) (0x25c,0x5dd)
0x2ee06…2ee20 64 65 3c 3e 30 20 74 68 65 6e 20 75 6e 69 6e 74 65 6c 28 2e 77 33 2e 2c 77 30 ┆de<>0 then unintel(.w3.,w0┆
0x2ee20…2ee40 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 72 6f 63 65 73 73 20 ┆:=-3); ! lookup process ┆
0x2ee40…2ee60 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 20 20 20 20 20 20 20 ┆description for device ! ┆
0x2ee60…2ee7e 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 68 65 6e 20 75 ┆ if w1:=(w2).cm_tpda<=0 then u┆
0x2ee7e…2ee84 (0x25c,0x5de)
0x2ee84…2eea0 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 20 20 20 ┆nintel(.w3.,w0:=-3); ┆
0x2eea0…2eec0 20 69 66 20 77 31 3e 63 75 72 72 65 6e 74 20 74 68 65 6e 20 75 6e 69 6e 74 65 6c 28 2e 77 33 2e ┆ if w1>current then unintel(.w3.┆
0x2eec0…2eee0 2c 77 30 3a 3d 30 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 ┆,w0:=0); move(.w3.,w0:=8┆
0x2eee0…2eefc 2c 77 31 2b 32 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 78 6e 61 6d 65 31 29 29 3b 0a ┆,w1+2,w2:=address(xname1)); ┆
0x2eefc…2ef02 (0x25c,0x5df)
0x2ef02…2ef20 20 20 20 20 20 20 20 20 77 33 3a 3d 61 64 64 72 65 73 73 28 78 6e 61 6d 65 31 29 3b 0a 20 ┆ w3:=address(xname1); ┆
0x2ef20…2ef40 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 77 32 3a 3d 20 ┆ monitor(4); w2:= ┆
0x2ef40…2ef60 65 76 65 6e 74 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 70 ┆event; if w0<>(w2).cm_tp┆
0x2ef60…2ef7a 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 ┆da then unintel(.w3.,w0:=8┆
0x2ef7a…2ef80 (0x25c,0x5e0)
0x2ef80…2efa0 27 30 30 30 34 29 3b 20 21 20 64 65 76 69 63 65 20 75 6e 6b 6e 6f 77 6e 20 21 0a 0a 20 20 20 20 ┆'0004); ! device unknown ! ┆
0x2efa0…2efc0 20 20 20 20 77 30 3a 3d 20 28 77 32 29 2e 63 6d 5f 74 70 64 61 3b 0a 20 20 20 20 20 20 20 20 77 ┆ w0:= (w2).cm_tpda; w┆
0x2efc0…2efe0 31 3a 3d 20 74 68 70 6f 6f 6c 5f 66 73 74 3b 0a 20 20 20 20 20 20 20 20 77 33 3a 3d 20 74 68 70 ┆1:= thpool_fst; w3:= thp┆
0x2efe0…2f000 6f 6f 6c 5f 74 6f 70 3b 0a 20 20 20 20 20 20 20 20 77 68 69 6c 65 20 77 00 00 00 00 00 00 00 00 ┆ool_top; while w ┆
0x2f000…2f006 (376,) (0x25c,0x5e1)
0x2f006…2f020 31 3c 77 33 20 64 6f 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 ┆1<w3 do begin ┆
0x2f020…2f040 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 65 73 63 72 20 74 68 ┆ if w0=(w1).th_procdescr th┆
0x2f040…2f060 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 20 77 31 2b 21 6c 65 ┆en w3:= w1 else w1+!le┆
0x2f060…2f07e 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 20 ┆ngth(terminalhandler); ┆
0x2f07e…2f084 (0x25c,0x5e2)
0x2f084…2f0a0 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 31 3d 74 68 70 6f 6f 6c 5f 74 ┆ end; if w1=thpool_t┆
0x2f0a0…2f0c0 6f 70 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 32 30 30 29 ┆op then unintel(.w3.,w0:=8'0200)┆
0x2f0c0…2f0e0 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 33 3a 3d 28 77 31 29 2e 74 68 5f 70 61 ┆; if w0:=(w3:=(w1).th_pa┆
0x2f0e0…2f0fc 72 65 6e 74 29 2e 70 68 5f 70 61 72 65 6e 74 20 3c 3e 20 28 77 32 29 2e 63 6d 5f 73 ┆rent).ph_parent <> (w2).cm_s┆
0x2f0fc…2f102 (0x25c,0x5e3)
0x2f102…2f120 65 6e 64 65 72 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 75 6e 69 6e 74 65 6c 28 ┆ender then unintel(┆
0x2f120…2f140 2e 77 33 2e 2c 77 30 3a 3d 38 27 30 30 32 30 29 3b 0a 0a 20 20 20 20 20 20 20 20 67 6f 74 6f 20 ┆.w3.,w0:=8'0020); goto ┆
0x2f140…2f160 67 65 6e 5f 61 6e 73 77 65 72 3b 0a 20 20 20 20 20 20 65 6e 64 20 21 20 6c 6f 6f 6b 75 70 20 74 ┆gen_answer; end ! lookup t┆
0x2f160…2f17a 65 72 6d 20 21 0a 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 62 65 67 ┆erm ! else beg┆
0x2f17a…2f180 (0x25c,0x5e4)
0x2f180…2f1a0 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 20 20 20 20 20 20 20 ┆in ! operation illegal ! ┆
0x2f1a0…2f1c0 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 65 6e 64 3b ┆ unintel(.w3.,w0:=0); end;┆
0x2f1c0…2f1e0 0a 0a 0a 20 20 20 20 20 20 21 20 6e 6f 72 6d 61 6c 20 61 6e 73 77 65 72 20 21 0a 20 20 20 20 20 ┆ ! normal answer ! ┆
0x2f1e0…2f200 20 77 32 3a 3d 20 65 76 65 6e 74 3b 0a 20 20 20 20 20 20 6d 6f 6e 69 74 00 00 00 00 00 00 00 00 ┆ w2:= event; monit ┆
0x2f200…2f206 (377,) (0x25c,0x5e5)
0x2f206…2f220 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 ┆or(26); ! get event ! ┆
0x2f220…2f240 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 20 20 20 20 77 30 3a ┆ ans_status:= w0:= 0; w0:┆
0x2f240…2f260 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 6e 73 5f 73 74 61 74 ┆= 1; w1:= address(ans_stat┆
0x2f260…2f27e 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 ┆us); monitor(22); ! send┆
0x2f27e…2f284 (0x25c,0x5e6)
0x2f284…2f2a0 20 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 ┆ answer ! testout(.w3.┆
0x2f2a0…2f2c0 2c 77 30 3a 3d 36 2c 77 31 2c 77 32 3a 3d 36 31 29 3b 0a 20 20 20 20 20 20 67 6f 74 6f 20 61 63 ┆,w0:=6,w1,w2:=61); goto ac┆
0x2f2c0…2f2e0 74 69 76 61 74 65 0a 0a 20 20 20 20 65 6e 64 3b 20 21 20 6d 65 73 73 61 67 65 20 21 0a 20 20 63 ┆tivate end; ! message ! c┆
0x2f2e0…2f2fc 6f 72 75 5f 66 6f 75 6e 64 3a 0a 20 20 20 20 6c 69 6e 6b 28 2e 77 33 2e 2c 77 31 2c ┆oru_found: link(.w3.,w1,┆
0x2f2fc…2f302 (0x25c,0x5e7)
0x2f302…2f320 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 61 63 74 ┆w2:=address(activqfst)); act┆
0x2f320…2f340 69 76 61 74 65 3a 0a 20 20 20 20 77 31 3a 3d 61 64 64 72 65 73 73 28 61 63 74 69 76 71 66 73 74 ┆ivate: w1:=address(activqfst┆
0x2f340…2f360 29 3b 0a 20 20 20 20 69 66 20 77 33 3a 3d 28 77 31 29 2e 63 5f 6e 65 78 74 3d 77 31 20 74 68 65 ┆); if w3:=(w1).c_next=w1 the┆
0x2f360…2f37a 6e 20 67 6f 74 6f 20 63 65 6e 74 72 61 6c 5f 77 61 69 74 3b 0a 20 20 20 20 63 ┆n goto central_wait; c┆
0x2f37a…2f380 (0x25c,0x5e8)
0x2f380…2f3a0 75 72 72 65 6e 74 3a 3d 20 77 33 3b 0a 20 20 20 20 74 65 73 74 6f 75 74 28 2e 77 33 2e 2c 77 30 ┆urrent:= w3; testout(.w3.,w0┆
0x2f3a0…2f3c0 3a 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 2c 77 31 3a 3d 63 ┆:=!length(terminalhandler),w1:=c┆
0x2f3c0…2f3e0 75 72 72 65 6e 74 2c 77 32 3a 3d 31 31 29 3b 0a 20 20 20 20 77 30 3a 3d 20 28 77 33 29 2e 63 5f ┆urrent,w2:=11); w0:= (w3).c_┆
0x2f3e0…2f400 77 30 3b 0a 20 20 20 20 77 31 3a 3d 20 28 77 33 29 2e 63 5f 77 31 3b 0a 00 00 00 00 00 00 00 00 ┆w0; w1:= (w3).c_w1; ┆
0x2f400…2f406 (378,) (0x25c,0x5e9)
0x2f406…2f420 20 20 20 20 77 32 3a 3d 20 28 77 33 29 2e 63 5f 77 32 3b 0a 20 20 20 20 63 61 ┆ w2:= (w3).c_w2; ca┆
0x2f420…2f440 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 3b 20 21 20 6d 61 69 ┆ll w0 current.c_ic; end; ! mai┆
0x2f440…2f460 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 20 77 61 69 74 6d 65 ┆n program ! body of waitme┆
0x2f460…2f47e 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 20 20 20 72 65 ┆ss begin incode re┆
0x2f47e…2f484 (0x25c,0x5ea)
0x2f484…2f4a0 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┆
0x2f4a0…2f4c0 74 75 72 6e 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 20 ┆turn:=w3; w3:=b.current; ┆
0x2f4c0…2f4e0 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 63 ┆ (w3).c_w0:=w0; (w3).c┆
0x2f4e0…2f4fc 5f 77 31 3a 3d 77 31 3b 0a 20 20 20 20 20 20 28 77 33 29 2e 63 5f 69 63 3a 3d 77 30 ┆_w1:=w1; (w3).c_ic:=w0┆
0x2f4fc…2f502 (0x25c,0x5eb)
0x2f502…2f520 3a 3d 72 65 74 75 72 6e 3b 0a 20 20 20 20 20 20 77 30 3a 3d 20 2d 31 3b 20 28 77 33 29 2e ┆:=return; w0:= -1; (w3).┆
0x2f520…2f540 63 5f 6d 62 75 66 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 6c 69 6e 6b 28 2e 77 33 2e 2c 77 31 3a ┆c_mbuf:= w0; link(.w3.,w1:┆
0x2f540…2f560 3d 77 33 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 62 2e 77 61 69 74 71 66 73 74 29 29 3b 0a 20 20 ┆=w3,w2:=address(b.waitqfst)); ┆
0x2f560…2f57a 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 ┆ testout(.w3.,w0:=!leng┆
0x2f57a…2f580 (0x25c,0x5ec)
0x2f580…2f5a0 74 68 28 63 6f 72 6f 75 74 69 6e 65 29 2c 77 31 2c 77 32 3a 3d 36 32 29 3b 0a 20 20 20 20 20 20 ┆th(coroutine),w1,w2:=62); ┆
0x2f5a0…2f5c0 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;┆
0x2f5c0…2f5e0 20 20 21 20 77 61 69 74 6d 65 73 73 20 21 0a 0a 0a 0a 20 20 62 6f 64 79 20 6f 66 20 73 65 6e 64 ┆ ! waitmess ! body of send┆
0x2f5e0…2f600 77 61 69 74 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 69 6e 63 6f 64 65 0a 00 00 00 00 00 00 00 00 ┆wait begin incode ┆
0x2f600…2f606 (379,) (0x25c,0x5ed)
0x2f606…2f620 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┆
0x2f620…2f640 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 3d 62 2e ┆n return:=w3; w3:=b.┆
0x2f640…2f660 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 3d 77 31 3b 0a 20 20 ┆current; (w3).c_w1:=w1; ┆
0x2f660…2f67e 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 77 33 3a 3d 77 ┆ (w3).c_w2:=w2; w3:=w┆
0x2f67e…2f684 (0x25c,0x5ee)
0x2f684…2f6a0 32 3b 0a 20 20 20 20 20 20 77 32 3a 3d 28 77 32 3a 3d 62 2e 63 75 72 72 65 6e 74 29 ┆2; w2:=(w2:=b.current)┆
0x2f6a0…2f6c0 2e 63 5f 6e 72 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 ┆.c_nr; monitor(16); ! sen┆
0x2f6c0…2f6e0 64 20 6d 65 73 73 61 67 65 20 21 0a 20 20 20 20 20 20 77 31 3a 3d 62 2e 63 75 72 72 65 6e 74 3b ┆d message ! w1:=b.current;┆
0x2f6e0…2f6fc 0a 20 20 20 20 20 20 28 77 31 29 2e 63 5f 6d 62 75 66 3a 3d 77 32 3b 0a 20 20 20 20 ┆ (w1).c_mbuf:=w2; ┆
0x2f6fc…2f702 (0x25c,0x5ef)
0x2f702…2f720 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 20 20 20 20 ┆ (w1).c_ic:=w0:=return; ┆
0x2f720…2f740 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 6e 73 77 ┆ link(.w3.,w1,w2:=address(b.answ┆
0x2f740…2f760 65 72 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 77 30 3a ┆erqfst)); testout(.w3.,w0:┆
0x2f760…2f77a 3d 38 2c 77 31 3a 3d 28 77 33 29 2e 63 5f 77 31 2c 77 32 3a 3d 36 33 29 3b 0a ┆=8,w1:=(w3).c_w1,w2:=63); ┆
0x2f77a…2f780 (0x25c,0x5f0)
0x2f780…2f7a0 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 64 3b 0a ┆ goto b.activate; end; ┆
0x2f7a0…2f7c0 20 20 65 6e 64 3b 20 20 21 20 73 65 6e 64 77 61 69 74 20 21 0a 0a 0a 0a 20 20 62 6f 64 79 20 6f ┆ end; ! sendwait ! body o┆
0x2f7c0…2f7e0 66 20 6f 70 65 6e 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 6c 61 62 65 6c 20 65 78 69 74 3b 0a 20 ┆f open begin label exit; ┆
0x2f7e0…2f800 20 20 20 69 6e 63 6f 64 65 0a 20 20 20 20 20 20 64 6f 75 62 6c 65 20 73 00 00 00 00 00 00 00 00 ┆ incode double s ┆
0x2f800…2f806 (380,) (0x25c,0x5f1)
0x2f806…2f820 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 ┆avef1; word savew2; ┆
0x2f820…2f840 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 ┆
0x2f840…2f860 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 3d 77 32 3b 0a ┆ savef1:=f1; savew2:=w2; ┆
0x2f860…2f87e 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 77 32 29 2e 73 ┆ return:=w3; (w2).s┆
0x2f87e…2f884 (0x25c,0x5f2)
0x2f884…2f8a0 65 6d 5f 76 61 6c 75 65 3a 3d 77 30 2b 28 77 32 29 2e 73 65 6d 5f 76 61 6c 75 65 3b ┆em_value:=w0+(w2).sem_value;┆
0x2f8a0…2f8c0 0a 20 20 20 20 20 20 77 68 69 6c 65 20 77 31 3a 3d 28 77 32 29 2e 73 65 6d 5f 6e 65 78 74 20 3c ┆ while w1:=(w2).sem_next <┆
0x2f8c0…2f8e0 3e 20 77 32 20 64 6f 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 69 66 20 77 ┆> w2 do begin if w┆
0x2f8e0…2f8fc 30 3a 3d 28 77 31 29 2e 63 5f 77 30 20 3e 20 28 77 32 29 2e 73 65 6d 5f 76 61 6c 75 ┆0:=(w1).c_w0 > (w2).sem_valu┆
0x2f8fc…2f902 (0x25c,0x5f3)
0x2f902…2f920 65 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 28 77 32 29 ┆e then goto exit; (w2)┆
0x2f920…2f940 2e 73 65 6d 5f 76 61 6c 75 65 3a 3d 77 33 3a 3d 28 77 32 29 2e 73 65 6d 5f 76 61 6c 75 65 2d 77 ┆.sem_value:=w3:=(w2).sem_value-w┆
0x2f940…2f960 30 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 3a 3d 61 64 64 72 ┆0; link(.w3.,w1,w2:=addr┆
0x2f960…2f97a 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 ┆ess(b.activqfst)); ┆
0x2f97a…2f980 (0x25c,0x5f4)
0x2f980…2f9a0 20 77 32 3a 3d 73 61 76 65 77 32 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 65 78 69 74 3a 0a 20 20 ┆ w2:=savew2; end; exit: ┆
0x2f9a0…2f9c0 20 20 20 20 66 31 3a 3d 73 61 76 65 66 31 3b 0a 20 20 20 20 20 20 69 66 20 77 30 20 3e 20 30 20 ┆ f1:=savef1; if w0 > 0 ┆
0x2f9c0…2f9e0 74 68 65 6e 20 74 65 73 74 6f 75 74 28 2e 77 33 2e 2c 77 30 3a 3d 36 2c 77 31 3a 3d 73 61 76 65 ┆then testout(.w3.,w0:=6,w1:=save┆
0x2f9e0…2fa00 77 32 2c 77 32 3a 3d 31 33 29 3b 0a 20 20 20 20 20 20 66 31 3a 3d 73 61 00 00 00 00 00 00 00 00 ┆w2,w2:=13); f1:=sa ┆
0x2fa00…2fa06 (381,) (0x25c,0x5f5)
0x2fa06…2fa20 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 ┆vef1; w2:=savew2; ┆
0x2fa20…2fa40 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 20 77 30 ┆ w3:=b.current; call w0┆
0x2fa40…2fa60 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 6f 70 65 6e ┆ return; end; end; ! open┆
0x2fa60…2fa7e 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 67 69 6e 0a 20 ┆ ! body of lock begin ┆
0x2fa7e…2fa84 (0x25c,0x5f6)
0x2fa84…2faa0 20 20 20 69 6e 63 6f 64 65 0a 20 20 20 20 20 20 72 65 66 20 73 61 76 65 77 33 3b 0a ┆ incode ref savew3; ┆
0x2faa0…2fac0 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 73 61 76 65 77 33 3a 3d 77 33 3b 0a 20 20 20 20 ┆ begin savew3:=w3; ┆
0x2fac0…2fae0 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 33 29 2e 63 5f 77 30 ┆ w3:=b.current; (w3).c_w0┆
0x2fae0…2fafc 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 ┆:=w0; (w3).c_w1:=w1; ┆
0x2fafc…2fb02 (0x25c,0x5f7)
0x2fb02…2fb20 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 28 77 33 29 ┆ (w3).c_w2:=w2; (w3)┆
0x2fb20…2fb40 2e 63 5f 69 63 3a 3d 77 30 3a 3d 73 61 76 65 77 33 3b 0a 20 20 20 20 20 20 69 66 20 77 30 3a 3d ┆.c_ic:=w0:=savew3; if w0:=┆
0x2fb40…2fb60 28 77 33 29 2e 63 5f 6e 72 20 3c 20 30 20 74 68 65 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 20 20 ┆(w3).c_nr < 0 then begin ┆
0x2fb60…2fb7a 21 20 63 61 6c 6c 65 64 20 66 72 6f 6d 20 63 65 6e 74 72 61 6c 20 6c 6f 67 69 ┆! called from central logi┆
0x2fb7a…2fb80 (0x25c,0x5f8)
0x2fb80…2fba0 63 20 21 0a 20 20 20 20 20 20 20 20 28 77 32 29 2e 73 65 6d 5f 76 61 6c 75 65 3a 3d 77 31 3a 3d ┆c ! (w2).sem_value:=w1:=┆
0x2fba0…2fbc0 28 77 32 29 2e 73 65 6d 5f 76 61 6c 75 65 2d 28 77 33 29 2e 63 5f 77 30 3b 0a 20 20 20 20 20 20 ┆(w2).sem_value-(w3).c_w0; ┆
0x2fbc0…2fbe0 20 20 77 31 3a 3d 28 77 33 29 2e 63 5f 77 31 3b 0a 20 20 20 20 20 20 20 20 63 61 6c 6c 20 77 30 ┆ w1:=(w3).c_w1; call w0┆
0x2fbe0…2fc00 20 28 77 33 29 2e 63 5f 69 63 3b 0a 20 20 20 20 20 20 65 6e 64 20 65 6c 00 00 00 00 00 00 00 00 ┆ (w3).c_ic; end el ┆
0x2fc00…2fc06 (382,) (0x25c,0x5f9)
0x2fc06…2fc20 73 65 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 6c 69 6e ┆se begin lin┆
0x2fc20…2fc40 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 20 20 74 65 73 74 6f ┆k(.w3.,w1:=w3,w2); testo┆
0x2fc40…2fc60 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 31 32 29 3b 0a 20 20 ┆ut(.w3.,w0:=6,w1:=w2,w2:=12); ┆
0x2fc60…2fc7e 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 3d 77 31 29 3b ┆ open(.w3.,w0:=0,w2:=w1);┆
0x2fc7e…2fc84 (0x25c,0x5fa)
0x2fc84…2fca0 0a 20 20 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 ┆ goto b.activate; ┆
0x2fca0…2fcc0 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 65 6e 64 3b 0a 20 20 65 6e 64 3b 20 20 21 20 6c 6f 63 6b ┆ end; end; end; ! lock┆
0x2fcc0…2fce0 20 21 0a 0a 0a 0a 20 20 62 6f 64 79 20 6f 66 20 6c 69 6e 6b 0a 20 20 62 65 67 69 6e 0a 20 20 20 ┆ ! body of link begin ┆
0x2fce0…2fcfc 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 ┆ incode double savef1;┆
0x2fcfc…2fd02 (0x25c,0x5fb)
0x2fd02…2fd20 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 65 66 20 ┆ word savew2; ref ┆
0x2fd20…2fd40 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 31 3a 3d ┆return; begin savef1:=┆
0x2fd40…2fd60 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 72 65 74 75 ┆f1; savew2:=w2; retu┆
0x2fd60…2fd7a 72 6e 3a 3d 77 33 3b 0a 20 20 20 20 20 20 21 20 72 65 6d 6f 76 65 20 71 75 65 ┆rn:=w3; ! remove que┆
0x2fd7a…2fd80 (0x25c,0x5fc)
0x2fd80…2fda0 75 65 20 65 6c 65 6d 65 6e 74 20 66 72 6f 6d 20 61 63 74 75 61 6c 20 71 75 65 75 65 20 21 0a 20 ┆ue element from actual queue ! ┆
0x2fda0…2fdc0 20 20 20 20 20 77 33 3a 3d 28 77 31 29 2e 63 5f 70 72 65 76 3b 0a 20 20 20 20 20 20 28 77 33 29 ┆ w3:=(w1).c_prev; (w3)┆
0x2fdc0…2fde0 2e 63 5f 6e 65 78 74 3a 3d 77 30 3a 3d 28 77 31 29 2e 63 5f 6e 65 78 74 3b 0a 20 20 20 20 20 20 ┆.c_next:=w0:=(w1).c_next; ┆
0x2fde0…2fe00 77 33 3a 3d 28 77 31 29 2e 63 5f 6e 65 78 74 3b 0a 20 20 20 20 20 20 28 00 00 00 00 00 00 00 00 ┆w3:=(w1).c_next; ( ┆
0x2fe00…2fe06 (383,) (0x25c,0x5fd)
0x2fe06…2fe20 77 33 29 2e 63 5f 70 72 65 76 3a 3d 77 30 3a 3d 28 77 31 29 2e 63 5f 70 72 65 ┆w3).c_prev:=w0:=(w1).c_pre┆
0x2fe20…2fe40 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 74 20 61 73 20 74 68 ┆v; ! link up element as th┆
0x2fe40…2fe60 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 75 65 20 21 0a 20 20 ┆e last element in the queue ! ┆
0x2fe60…2fe7e 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 2e 63 5f 70 72 ┆ (w1).c_prev:=w3:=(w2).c_pr┆
0x2fe7e…2fe84 (0x25c,0x5fe)
0x2fe84…2fea0 65 76 3b 0a 20 20 20 20 20 20 28 77 31 29 2e 63 5f 6e 65 78 74 3a 3d 77 32 3b 0a 20 ┆ev; (w1).c_next:=w2; ┆
0x2fea0…2fec0 20 20 20 20 20 28 77 32 29 2e 63 5f 70 72 65 76 3a 3d 77 31 3b 0a 20 20 20 20 20 20 28 77 33 29 ┆ (w2).c_prev:=w1; (w3)┆
0x2fec0…2fee0 2e 63 5f 6e 65 78 74 3a 3d 77 31 3b 0a 20 20 20 20 20 20 66 31 3a 3d 73 61 76 65 66 31 3b 0a 20 ┆.c_next:=w1; f1:=savef1; ┆
0x2fee0…2fefc 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 ┆ w2:=savew2; w3:=b┆
0x2fefc…2ff02 (0x25c,0x5ff)
0x2ff02…2ff20 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 ┆.current; call w0 return┆
0x2ff20…2ff40 3b 0a 20 20 20 20 65 6e 64 3b 0a 20 20 65 6e 64 3b 20 20 21 20 6c 69 6e 6b 20 21 0a 0a 0a 0a 20 ┆; end; end; ! link ! ┆
0x2ff40…2ff60 20 62 6f 64 79 20 6f 66 20 6d 6f 76 65 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 69 6e 63 6f 64 65 ┆ body of move begin incode┆
0x2ff60…2ff7a 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 20 ┆ double savef1; ┆
0x2ff7a…2ff80 (0x25c,0x600)
0x2ff80…2ffa0 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 3b ┆ word savew2; ref return;┆
0x2ffa0…2ffc0 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; ┆
0x2ffc0…2ffe0 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 77 33 3b ┆ savew2:=w2; return:=w3;┆
0x2ffe0…30000 0a 20 20 20 20 20 20 77 33 3a 3d 77 31 2b 77 30 3b 0a 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ w3:=w1+w0; ┆
0x30000…30006 (384,) (0x25c,0x601)
0x30006…30020 77 68 69 6c 65 20 77 31 20 3c 20 77 33 20 64 6f 0a 20 20 20 20 20 20 62 65 67 ┆while w1 < w3 do beg┆
0x30020…30040 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 20 6f 6e 65 20 77 6f ┆in ! move from w1 to w2, one wo┆
0x30040…30060 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 32 29 2e 77 6f 72 64 ┆rd at a time ! (w2).word┆
0x30060…3007e 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 77 31 2b 32 3b ┆:=w0:=(w1).word; w1+2;┆
0x3007e…30084 (0x25c,0x602)
0x30084…300a0 0a 20 20 20 20 20 20 20 20 77 32 2b 32 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 ┆ w2+2; end; ┆
0x300a0…300c0 20 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 ┆ f1:=savef1; w2:=savew2┆
0x300c0…300e0 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 63 61 6c ┆; w3:=b.current; cal┆
0x300e0…300fc 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;┆
0x300fc…30102 (0x25c,0x603)
0x30102…30120 20 20 21 20 6d 6f 76 65 20 21 0a 0a 20 20 62 6f 64 79 20 6f 66 20 63 6f 70 79 0a 20 20 62 ┆ ! move ! body of copy b┆
0x30120…30140 65 67 69 6e 0a 20 20 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 ┆egin label exit; incode ┆
0x30140…30160 20 20 20 20 20 20 77 6f 72 64 20 73 61 76 65 77 31 2c 73 61 76 65 77 32 3b 0a 20 20 20 20 20 20 ┆ word savew1,savew2; ┆
0x30160…3017a 72 65 66 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 20 20 77 6f 72 64 20 63 6f 70 ┆ref return; word cop┆
0x3017a…30180 (0x25c,0x604)
0x30180…301a0 79 5f 66 75 6e 63 3b 0a 20 20 20 20 20 20 72 65 66 20 63 6f 70 79 5f 66 69 72 73 74 2c 63 6f 70 ┆y_func; ref copy_first,cop┆
0x301a0…301c0 79 5f 6c 61 73 74 3b 0a 20 20 20 20 20 20 77 6f 72 64 20 63 6f 70 79 5f 72 65 6c 3b 0a 20 20 20 ┆y_last; word copy_rel; ┆
0x301c0…301e0 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 20 73 ┆ begin return:=w3; s┆
0x301e0…30200 61 76 65 77 31 3a 3d 77 31 3b 0a 20 20 20 20 20 20 73 61 76 65 77 32 3a 00 00 00 00 00 00 00 00 ┆avew1:=w1; savew2: ┆
0x30200…30206 (385,) (0x25c,0x605)
0x30206…30220 3d 77 32 3b 0a 20 20 20 20 20 20 63 6f 70 79 5f 66 69 72 73 74 3a 3d 77 32 3b ┆=w2; copy_first:=w2;┆
0x30220…30240 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 3d 77 32 3b 0a 20 20 ┆ w2+w0-2;copy_last:=w2; ┆
0x30240…30260 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 20 20 77 33 3a 3d 62 ┆ copy_rel:=w0:=0; w3:=b┆
0x30260…3027e 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 63 5f 6d 62 75 ┆.current; w2:=(w3).c_mbu┆
0x3027e…30284 (0x25c,0x606)
0x30284…302a0 66 3b 0a 20 20 20 20 20 20 77 30 3a 3d 28 77 32 29 2e 6d 65 73 73 5f 6f 70 3b 0a 20 ┆f; w0:=(w2).mess_op; ┆
0x302a0…302c0 20 20 20 20 20 69 66 20 77 30 3d 33 20 74 68 65 6e 20 77 30 3a 3d 35 20 65 6c 73 65 0a 20 20 20 ┆ if w0=3 then w0:=5 else ┆
0x302c0…302e0 20 20 20 69 66 20 77 30 3d 35 20 74 68 65 6e 20 77 30 3a 3d 34 20 65 6c 73 65 0a 20 20 20 20 20 ┆ if w0=5 then w0:=4 else ┆
0x302e0…302fc 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 75 6e 69 6e 74 65 6c 6c 69 67 69 62 6c ┆ begin comment unintelligibl┆
0x302fc…30302 (0x25c,0x607)
0x30302…30320 65 3b 0a 20 20 20 20 20 20 20 20 77 30 3a 3d 33 3b 0a 20 20 20 20 20 20 20 20 67 6f 74 6f ┆e; w0:=3; goto┆
0x30320…30340 20 65 78 69 74 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 63 6f 70 79 5f 66 75 6e ┆ exit; end; copy_fun┆
0x30340…30360 63 3a 3d 77 30 3b 0a 20 20 20 20 20 20 77 31 3a 3d 61 64 64 72 65 73 73 28 63 6f 70 79 5f 66 75 ┆c:=w0; w1:=address(copy_fu┆
0x30360…3037a 6e 63 29 3b 0a 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 38 34 29 3b 20 21 20 ┆nc); monitor(84); ! ┆
0x3037a…30380 (0x25c,0x608)
0x30380…303a0 67 65 6e 65 72 61 6c 20 63 6f 70 79 20 21 0a 65 78 69 74 3a 0a 20 20 20 20 20 20 2d 28 77 30 29 ┆general copy ! exit: -(w0)┆
0x303a0…303c0 3b 0a 20 20 20 20 20 20 69 66 20 77 30 3d 30 20 74 68 65 6e 20 77 30 3a 3d 77 31 3b 20 21 20 6e ┆; if w0=0 then w0:=w1; ! n┆
0x303c0…303e0 75 6d 62 65 72 20 6f 66 20 68 61 6c 66 77 6f 72 64 73 20 63 6f 70 69 65 64 20 21 0a 20 20 20 20 ┆umber of halfwords copied ! ┆
0x303e0…30400 20 20 77 31 3a 3d 73 61 76 65 77 31 3b 0a 20 20 20 20 20 20 77 32 3a 3d 00 00 00 00 00 00 00 00 ┆ w1:=savew1; w2:= ┆
0x30400…30406 (386,) (0x25c,0x609)
0x30406…30420 73 61 76 65 77 32 3b 0a 20 20 20 20 20 20 77 33 3a 3d 62 2e 63 75 72 72 65 6e ┆savew2; w3:=b.curren┆
0x30420…30440 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┆
0x30440…30460 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 0a 20 20 62 6f 64 79 ┆; end; ! end copy ! body┆
0x30460…3047e 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 61 62 65 6c 20 ┆ of unintel begin label ┆
0x3047e…30484 (0x25c,0x60a)
0x30484…304a0 64 75 6d 64 75 6d 3b 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 77 32 3a 3d ┆dumdum; begin w2:=┆
0x304a0…304c0 20 62 2e 65 76 65 6e 74 3b 0a 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 32 36 29 3b 20 21 20 67 ┆ b.event; monitor(26); ! g┆
0x304c0…304e0 65 74 20 65 76 65 6e 74 20 21 0a 20 20 20 20 20 20 62 2e 61 6e 73 5f 73 74 61 74 75 73 3a 3d 20 ┆et event ! b.ans_status:= ┆
0x304e0…304fc 77 30 3b 0a 20 20 20 20 20 20 69 66 20 77 30 3d 30 20 74 68 65 6e 20 77 30 3a 3d 20 ┆w0; if w0=0 then w0:= ┆
0x304fc…30502 (0x25c,0x60b)
0x30502…30520 33 0a 20 20 20 20 20 20 65 6c 73 65 20 69 66 20 77 30 3c 30 20 74 68 65 6e 20 2d 28 77 30 ┆3 else if w0<0 then -(w0┆
0x30520…30540 29 0a 20 20 20 20 20 20 65 6c 73 65 20 77 30 3a 3d 20 31 3b 0a 20 20 20 20 20 20 77 31 3a 3d 20 ┆) else w0:= 1; w1:= ┆
0x30540…30560 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 6d 6f 6e ┆address(b.ans_status); mon┆
0x30560…3057a 69 74 6f 72 28 32 32 29 3b 20 21 20 73 65 6e 64 20 61 6e 73 77 65 72 20 21 0a ┆itor(22); ! send answer ! ┆
0x3057a…30580 (0x25c,0x60c)
0x30580…305a0 20 20 20 20 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 3a 3d ┆ testout(.w3.,w0:=2,w1,w2:=┆
0x305a0…305c0 36 30 29 3b 0a 20 20 20 20 20 20 67 6f 74 6f 20 62 2e 63 65 6e 74 72 61 6c 5f 77 61 69 74 3b 0a ┆60); goto b.central_wait; ┆
0x305c0…305e0 20 20 20 20 65 6e 64 3b 0a 20 20 65 6e 64 3b 20 21 20 75 6e 69 6e 74 65 6c 20 21 0a 0a 0a 20 20 ┆ end; end; ! unintel ! ┆
0x305e0…30600 62 6f 64 79 20 6f 66 20 74 65 73 74 6f 75 74 0a 20 20 62 65 67 69 6e 0a 00 00 00 00 00 00 00 00 ┆body of testout begin ┆
0x30600…30606 (387,) (0x25c,0x60d)
0x30606…30620 20 20 20 20 6c 61 62 65 6c 20 63 6c 6f 73 65 3b 0a 20 20 20 20 72 65 63 6f 72 ┆ label close; recor┆
0x30620…30640 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 20 72 65 67 30 2c 72 ┆d dump (word reg0,r┆
0x30640…30660 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 2c 63 61 75 73 65 2c ┆eg1,reg2,reg3,exreg,instr,cause,┆
0x30660…3067e 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 61 64 0a 20 20 ┆sbreg); record testhead ┆
0x3067e…30684 (0x25c,0x60e)
0x30684…306a0 20 20 20 20 20 20 20 20 20 20 20 28 62 79 74 65 20 72 65 63 6c 65 6e 67 74 68 2c 72 ┆ (byte reclength,r┆
0x306a0…306c0 65 63 6b 69 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 6f 72 64 20 74 69 6d 65 2c ┆eckind; word time,┆
0x306c0…306e0 74 65 73 74 72 65 66 29 3b 0a 20 20 20 20 69 6e 63 6f 64 65 0a 20 20 20 20 20 20 77 6f 72 64 20 ┆testref); incode word ┆
0x306e0…306fc 62 75 66 72 65 6c 3a 3d 30 3b 0a 20 20 20 20 20 20 72 65 66 20 72 65 74 75 72 6e 3b ┆bufrel:=0; ref return;┆
0x306fc…30702 (0x25c,0x60f)
0x30702…30720 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 20 20 20 61 72 ┆ double savef1; ar┆
0x30720…30740 72 61 79 20 28 31 3a 38 29 20 74 65 73 74 61 6e 73 77 20 6f 66 20 77 6f 72 64 3b 0a 20 20 20 20 ┆ray (1:8) testansw of word; ┆
0x30740…30760 20 20 77 6f 72 64 20 73 61 76 65 77 32 3b 0a 20 20 20 20 20 20 62 79 74 65 20 6f 70 63 6f 64 65 ┆ word savew2; byte opcode┆
0x30760…3077a 3a 3d 36 2c 6f 70 6d 3a 3d 38 27 31 30 30 30 3b 0a 20 20 20 20 20 20 74 65 78 ┆:=6,opm:=8'1000; tex┆
0x3077a…30780 (0x25c,0x610)
0x30780…307a0 74 28 38 29 20 73 74 61 74 75 73 3a 3d 20 22 73 74 61 74 75 73 22 3b 0a 20 20 20 20 20 20 74 65 ┆t(8) status:= "status"; te┆
0x307a0…307c0 78 74 28 31 34 29 20 74 65 73 74 61 72 65 61 3a 3d 20 22 74 65 6d 74 65 73 74 22 3b 0a 20 20 20 ┆xt(14) testarea:= "temtest"; ┆
0x307c0…307e0 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 73 ┆ begin savef1:=f1; s┆
0x307e0…30800 61 76 65 77 32 3a 3d 77 32 3b 0a 20 20 20 20 20 20 72 65 74 75 72 6e 3a 00 00 00 00 00 00 00 00 ┆avew2:=w2; return: ┆
0x30800…30806 (388,) (0x25c,0x611)
0x30806…30820 3d 77 33 3b 0a 20 20 20 20 20 20 69 66 20 77 33 3a 3d 62 2e 74 65 73 74 6d 66 ┆=w3; if w3:=b.testmf┆
0x30820…30840 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 20 20 20 62 65 67 69 ┆st < b.testmlast then begi┆
0x30840…30860 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 20 74 68 65 6e 20 67 ┆n ! if testbuffer exists then g┆
0x30860…3087e 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 20 20 20 20 69 ┆enerate testoutput ! i┆
0x3087e…30884 (0x25c,0x612)
0x30884…308a0 66 20 77 30 2b 62 75 66 72 65 6c 2b 28 21 6c 65 6e 67 74 68 28 74 65 73 74 68 65 61 ┆f w0+bufrel+(!length(testhea┆
0x308a0…308c0 64 29 2b 32 29 20 3e 20 35 31 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 20 ┆d)+2) > 510 then begin ┆
0x308c0…308e0 21 20 6e 6f 20 72 6f 6f 6d 20 66 6f 72 20 6e 65 78 74 20 72 65 63 6f 72 64 20 73 6f 20 63 68 61 ┆! no room for next record so cha┆
0x308e0…308fc 6e 67 65 20 62 75 66 66 65 72 20 21 0a 20 20 20 20 20 20 20 20 20 20 77 33 2b 62 75 ┆nge buffer ! w3+bu┆
0x308fc…30902 (0x25c,0x613)
0x30902…30920 66 72 65 6c 3b 0a 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 77 6f 72 64 3a 3d 77 30 3a ┆frel; (w3).word:=w0:┆
0x30920…30940 3d 2d 31 3b 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 66 ┆=-1; if w2:= b.testbuf┆
0x30940…30960 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 20 20 20 20 20 ┆<>0 then begin ┆
0x30960…3097a 20 20 20 20 20 62 2e 74 65 73 74 62 75 66 3a 3d 20 77 31 3a 3d 20 30 3b 0a 20 ┆ b.testbuf:= w1:= 0; ┆
0x3097a…30980 (0x25c,0x614)
0x30980…309a0 20 20 20 20 20 20 20 20 20 20 20 62 2e 62 61 73 65 5f 65 76 65 6e 74 3a 3d 20 77 31 3b 0a 20 20 ┆ b.base_event:= w1; ┆
0x309a0…309c0 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 20 20 ┆ testansw(w1:=1); ┆
0x309c0…309e0 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 31 38 29 3b 20 20 21 20 20 77 61 69 74 20 61 6e 73 ┆ monitor(18); ! wait ans┆
0x309e0…30a00 77 65 72 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 32 00 00 00 00 00 00 00 00 ┆wer ! if w2 ┆
0x30a00…30a06 (389,) (0x25c,0x615)
0x30a06…30a20 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 ┆:=1 lshift w0 or (w1).word┆
0x30a20…30a40 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 67 69 6e 0a 20 20 20 ┆ <> 2 then begin ┆
0x30a40…30a60 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 31 3a 3d 62 2e 74 65 ┆ b.testmlast:=w1:=b.te┆
0x30a60…30a7e 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 3d 20 61 64 64 ┆stmfst; w1:= add┆
0x30a7e…30a84 (0x25c,0x616)
0x30a84…30aa0 72 65 73 73 28 6f 70 63 6f 64 65 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ress(opcode); ┆
0x30aa0…30ac0 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 20 20 20 20 ┆(w1).logstatus:=w2; ┆
0x30ac0…30ae0 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 20 20 20 20 65 ┆ opmess(.w3.,w1); e┆
0x30ae0…30afc 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 20 ┆nd; end; ┆
0x30afc…30b02 (0x25c,0x617)
0x30b02…30b20 20 77 31 3a 3d 20 61 64 64 72 65 73 73 28 62 2e 74 65 73 74 6d 6f 70 29 3b 0a 20 20 20 20 ┆ w1:= address(b.testmop); ┆
0x30b20…30b40 20 20 20 20 20 20 77 33 3a 3d 20 61 64 64 72 65 73 73 28 74 65 73 74 61 72 65 61 29 3b 0a 20 20 ┆ w3:= address(testarea); ┆
0x30b40…30b60 20 20 20 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 ┆ monitor(16); ! send mess┆
0x30b60…30b7a 61 67 65 20 21 0a 20 20 20 20 20 20 20 20 20 20 62 2e 74 65 73 74 62 75 66 3a ┆age ! b.testbuf:┆
0x30b7a…30b80 (0x25c,0x618)
0x30b80…30ba0 3d 20 77 32 3b 20 21 20 73 61 76 65 20 62 75 66 66 65 72 20 61 64 64 72 65 73 73 20 21 0a 20 20 ┆= w2; ! save buffer address ! ┆
0x30ba0…30bc0 20 20 20 20 20 20 20 20 69 66 20 77 31 3a 3d 62 2e 74 65 73 74 73 65 67 6d 2b 31 20 3d 20 62 2e ┆ if w1:=b.testsegm+1 = b.┆
0x30bc0…30be0 6d 61 78 74 65 73 74 73 65 67 6d 20 74 68 65 6e 20 77 31 3a 3d 31 3b 0a 20 20 20 20 20 20 20 20 ┆maxtestsegm then w1:=1; ┆
0x30be0…30c00 20 20 62 2e 74 65 73 74 73 65 67 6d 3a 3d 77 31 3b 0a 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ b.testsegm:=w1; ┆
0x30c00…30c06 (390,) (0x25c,0x619)
0x30c06…30c20 20 20 20 20 62 75 66 72 65 6c 3a 3d 77 30 3a 3d 30 3b 0a 20 20 20 20 20 20 20 ┆ bufrel:=w0:=0; ┆
0x30c20…30c40 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 3b 0a 20 20 20 20 20 ┆ w1:= b.testmfst;w1+512; ┆
0x30c40…30c60 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 65 6e 20 77 31 2d 31 ┆ if w1>=b.testmtop then w1-1┆
0x30c60…30c7e 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 3a 3d 20 77 31 ┆024; b.testmfst:= w1┆
0x30c7e…30c84 (0x25c,0x61a)
0x30c84…30ca0 3b 0a 20 20 20 20 20 20 20 20 20 20 77 31 2b 35 31 30 3b 62 2e 74 65 73 74 6d 6c 61 ┆; w1+510;b.testmla┆
0x30ca0…30cc0 73 74 3a 3d 20 77 31 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 66 31 ┆st:= w1; end; f1┆
0x30cc0…30ce0 3a 3d 73 61 76 65 66 31 3b 0a 20 20 20 20 20 20 20 20 77 32 3a 3d 73 61 76 65 77 32 3b 0a 20 20 ┆:=savef1; w2:=savew2; ┆
0x30ce0…30cfc 20 20 20 20 20 20 77 33 3a 3d 62 2e 74 65 73 74 6d 66 73 74 2b 62 75 66 72 65 6c 3b ┆ w3:=b.testmfst+bufrel;┆
0x30cfc…30d02 (0x25c,0x61b)
0x30d02…30d20 0a 20 20 20 20 20 20 20 20 28 77 33 29 2e 72 65 63 6c 65 6e 67 74 68 3a 3d 77 30 2b 21 6c ┆ (w3).reclength:=w0+!l┆
0x30d20…30d40 65 6e 67 74 68 28 74 65 73 74 68 65 61 64 29 3b 0a 20 20 20 20 20 20 20 20 28 77 33 29 2e 72 65 ┆ength(testhead); (w3).re┆
0x30d40…30d60 63 6b 69 6e 64 3a 3d 77 32 3b 0a 20 20 20 20 20 20 20 20 62 75 66 72 65 6c 3a 3d 20 77 31 3a 3d ┆ckind:=w2; bufrel:= w1:=┆
0x30d60…30d7a 20 62 75 66 72 65 6c 2b 77 30 3b 0a 20 20 20 20 20 20 20 20 77 31 3a 3d 20 62 ┆ bufrel+w0; w1:= b┆
0x30d7a…30d80 (0x25c,0x61c)
0x30d80…30da0 2e 63 75 72 72 65 6e 74 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 31 3c 3e 30 20 74 68 65 6e 20 ┆.current; if w1<>0 then ┆
0x30da0…30dc0 77 31 3a 3d 28 77 31 29 2e 63 5f 6e 72 3b 0a 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 65 73 74 ┆w1:=(w1).c_nr; (w3).test┆
0x30dc0…30de0 72 65 66 3a 3d 77 31 3b 0a 20 20 20 20 20 20 20 20 77 31 3a 3d 31 30 38 3b 0a 20 20 20 20 20 20 ┆ref:=w1; w1:=108; ┆
0x30de0…30e00 20 20 66 31 3a 3d 28 77 31 29 2e 64 6f 75 62 6c 65 2d 62 2e 73 74 61 72 00 00 00 00 00 00 00 00 ┆ f1:=(w1).double-b.star ┆
0x30e00…30e06 (391,) (0x25c,0x61d)
0x30e06…30e20 74 74 69 6d 65 20 6c 73 68 69 66 74 20 2d 37 3b 0a 20 20 20 20 20 20 20 20 28 ┆ttime lshift -7; (┆
0x30e20…30e40 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 3d 73 61 76 65 66 31 ┆w3).time:=w1; f1:=savef1┆
0x30e40…30e60 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 32 3a 3d 77 33 ┆; move(.w3.,w0,w1,w2:=w3┆
0x30e60…30e7e 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 20 20 65 6e 64 ┆+!length(testhead)); end┆
0x30e7e…30e84 (0x25c,0x61e)
0x30e84…30ea0 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 69 66 ┆; w2:=savew2; if┆
0x30ea0…30ec0 20 77 32 3d 31 35 20 74 68 65 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 20 20 21 20 20 69 6e 74 65 ┆ w2=15 then begin ! inte┆
0x30ec0…30ee0 72 6e 61 6c 20 69 6e 74 65 72 72 75 70 74 20 20 21 0a 20 20 20 20 20 20 20 20 77 33 3a 3d 28 77 ┆rnal interrupt ! w3:=(w┆
0x30ee0…30efc 31 29 2e 69 6e 73 74 72 2d 32 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 ┆1).instr-2; if w0:=(┆
0x30efc…30f02 (0x25c,0x61f)
0x30f02…30f20 77 33 29 2e 77 6f 72 64 20 6c 73 68 69 66 74 20 2d 31 38 20 3d 20 35 31 20 20 21 20 6b 65 ┆w3).word lshift -18 = 51 ! ke┆
0x30f20…30f40 79 20 73 74 6f 72 65 20 21 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 20 21 20 ┆y store ! then begin ! ┆
0x30f40…30f60 72 65 65 73 74 61 62 6c 69 73 68 20 72 65 67 69 73 74 65 72 73 20 61 6e 64 20 63 6f 6e 74 69 6e ┆reestablish registers and contin┆
0x30f60…30f7a 75 65 20 21 0a 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 28 77 31 29 2e 69 6e ┆ue ! w0:=(w1).in┆
0x30f7a…30f80 (0x25c,0x620)
0x30f80…30fa0 73 74 72 3b 0a 20 20 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 3a 3d 77 30 3b 0a 20 20 20 20 20 ┆str; return:=w0; ┆
0x30fa0…30fc0 20 20 20 20 20 77 30 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 ┆ w0:=(w1).reg0; w2┆
0x30fc0…30fe0 3a 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 ┆:=(w1).reg2; w3:=(w1).┆
0x30fe0…31000 72 65 67 33 3b 0a 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 28 77 31 29 00 00 00 00 00 00 00 00 ┆reg3; w1:=(w1) ┆
0x31000…31006 (392,) (0x25c,0x621)
0x31006…31020 2e 72 65 67 31 3b 0a 20 20 20 20 20 20 20 20 20 20 63 61 6c 6c 20 77 30 20 72 ┆.reg1; call w0 r┆
0x31020…31040 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 20 20 20 20 20 20 20 ┆eturn; end else ┆
0x31040…31060 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 65 6e 74 20 61 6e 64 ┆begin ! output last segment and┆
0x31060…3107e 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 69 66 20 77 32 ┆ halt ! close: if w2┆
0x3107e…31084 (0x25c,0x622)
0x31084…310a0 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 ┆:= b.testbuf<>0 then ┆
0x310a0…310c0 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 74 65 73 74 61 6e 73 77 28 77 31 ┆ begin testansw(w1┆
0x310c0…310e0 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 29 3b 0a 20 ┆:=1); monitor(18); ┆
0x310e0…310fc 20 20 20 20 20 20 20 20 20 20 20 62 2e 74 65 73 74 62 75 66 3a 3d 20 77 32 3a 3d 20 ┆ b.testbuf:= w2:= ┆
0x310fc…31102 (0x25c,0x623)
0x31102…31120 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 20 20 28 77 ┆0; end; (w┆
0x31120…31140 33 3a 3d 62 2e 74 65 73 74 6d 66 73 74 2b 62 75 66 72 65 6c 29 2e 77 6f 72 64 3a 3d 77 30 3a 3d ┆3:=b.testmfst+bufrel).word:=w0:=┆
0x31140…31160 2d 32 3b 0a 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 61 64 64 72 65 73 73 28 74 65 73 74 61 72 ┆-2; w3:=address(testar┆
0x31160…3117a 65 61 29 3b 0a 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 61 64 64 72 65 73 73 ┆ea); w1:=address┆
0x3117a…31180 (0x25c,0x624)
0x31180…311a0 28 62 2e 74 65 73 74 6d 6f 70 29 3b 0a 20 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 31 ┆(b.testmop); monitor(1┆
0x311a0…311c0 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 20 20 20 20 ┆6); ! send message ! ┆
0x311c0…311e0 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 20 ┆monitor(18); ! wait answer ! ┆
0x311e0…31200 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 31 30 29 3b 20 20 21 20 00 00 00 00 00 00 00 00 ┆ monitor(10); ! ┆
0x31200…31206 (393,) (0x25c,0x625)
0x31206…31220 72 65 6c 65 61 73 65 20 70 72 6f 63 65 73 73 20 21 0a 20 20 20 20 20 20 20 20 ┆release process ! ┆
0x31220…31240 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 20 3d 20 36 34 20 74 ┆end; end else if w2 = 64 t┆
0x31240…31260 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 20 20 66 31 3a 3d 73 ┆hen goto close else; f1:=s┆
0x31260…3127e 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 ┆avef1; w2:=savew2; ┆
0x3127e…31284 (0x25c,0x626)
0x31284…312a0 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 20 77 ┆ w3:=b.current; call w┆
0x312a0…312c0 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 74 65 73 ┆0 return; end; end; ! tes┆
0x312c0…312e0 74 6f 75 74 20 21 0a 0a 0a 0a 0a 20 20 62 6f 64 79 20 6f 66 20 63 72 65 61 74 65 5f 70 68 0a 20 ┆tout ! body of create_ph ┆
0x312e0…312fc 20 62 65 67 69 6e 0a 20 20 20 20 6c 61 62 65 6c 20 6f 6b 2c 20 74 65 73 74 65 78 69 ┆ begin label ok, testexi┆
0x312fc…31302 (0x25c,0x627)
0x31302…31320 73 74 65 6e 63 65 3b 0a 20 20 20 20 69 6e 63 6f 64 65 0a 20 20 20 20 20 20 74 65 78 74 28 ┆stence; incode text(┆
0x31320…31340 31 34 29 20 73 65 6e 64 65 72 6e 61 6d 65 3b 0a 20 20 20 20 20 20 62 79 74 65 20 64 75 6d 6d 79 ┆14) sendername; byte dummy┆
0x31340…31360 6f 70 3a 3d 2d 32 2c 64 75 6d 6d 79 6d 6f 64 65 3a 3d 30 3b 0a 20 20 20 20 20 20 64 6f 75 62 6c ┆op:=-2,dummymode:=0; doubl┆
0x31360…3137a 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 6e ┆e savef2; ref return┆
0x3137a…31380 (0x25c,0x628)
0x31380…313a0 3b 0a 20 20 20 20 20 20 77 6f 72 64 20 73 61 76 65 77 30 3b 0a 20 20 20 20 62 65 67 69 6e 0a 20 ┆; word savew0; begin ┆
0x313a0…313c0 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 6e 3a 3d 77 ┆ savef2:=f2; return:=w┆
0x313c0…313e0 33 3b 0a 20 20 20 20 20 20 77 33 3a 3d 28 77 33 29 2e 63 70 5f 70 73 6e 61 6d 65 3b 0a 20 20 20 ┆3; w3:=(w3).cp_psname; ┆
0x313e0…31400 20 20 20 6d 6f 6e 69 74 6f 72 28 38 30 29 3b 20 20 21 20 63 72 65 61 74 00 00 00 00 00 00 00 00 ┆ monitor(80); ! creat ┆
0x31400…31406 (394,) (0x25c,0x629)
0x31406…31420 65 20 70 73 65 75 64 6f 20 70 72 6f 63 65 73 73 20 21 0a 20 20 20 20 20 20 69 ┆e pseudo process ! i┆
0x31420…31440 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 0a 20 20 20 20 20 20 ┆f w0 = 0 then begin ┆
0x31440…31460 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 65 73 73 20 64 65 73 ┆ monitor(4); ! get process des┆
0x31460…3147e 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 20 20 0a 20 20 ┆cription address ! ok: ┆
0x3147e…31484 (0x25c,0x62a)
0x31484…314a0 20 20 20 20 20 20 77 31 3a 3d 20 72 65 74 75 72 6e 2e 63 70 5f 70 68 68 65 61 64 3b ┆ w1:= return.cp_phhead;┆
0x314a0…314c0 0a 20 20 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 20 20 ┆ (w1).ph_psproc:=w0; ┆
0x314c0…314e0 20 20 20 20 20 28 77 31 29 2e 70 68 5f 69 6e 70 6d 6f 64 65 3a 3d 20 77 30 3a 3d 20 2d 31 3b 20 ┆ (w1).ph_inpmode:= w0:= -1; ┆
0x314e0…314fc 21 20 6e 6f 20 69 6e 70 75 74 20 72 65 63 65 69 76 65 64 20 79 65 74 20 21 0a 20 20 ┆! no input received yet ! ┆
0x314fc…31502 (0x25c,0x62b)
0x31502…31520 20 20 20 20 20 20 28 77 31 29 2e 70 68 5f 70 61 72 65 6e 74 3a 3d 77 32 3a 3d 72 65 74 75 ┆ (w1).ph_parent:=w2:=retu┆
0x31520…31540 72 6e 2e 63 70 5f 73 65 6e 64 65 72 3b 0a 20 20 20 20 20 20 20 20 70 68 28 2e 77 33 2e 29 3b 20 ┆rn.cp_sender; ph(.w3.); ┆
0x31540…31560 20 21 20 66 6f 72 63 65 20 70 72 6f 63 65 73 73 20 68 61 6e 64 6c 65 72 20 69 6e 74 6f 20 73 74 ┆ ! force process handler into st┆
0x31560…3157a 61 72 74 20 70 6f 73 69 74 69 6f 6e 20 21 0a 20 20 20 20 20 20 20 20 28 77 31 ┆art position ! (w1┆
0x3157a…31580 (0x25c,0x62c)
0x31580…315a0 29 2e 63 5f 69 63 3a 3d 77 33 3b 0a 20 20 20 20 20 20 20 20 6c 69 6e 6b 28 2e 77 33 2e 2c 77 31 ┆).c_ic:=w3; link(.w3.,w1┆
0x315a0…315c0 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 20 20 ┆,w2:=address(b.activqfst)); ┆
0x315c0…315e0 20 20 20 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 20 20 ┆ init_area(.w3.,w1); ┆
0x315e0…31600 6d 6f 76 65 28 2e 77 33 2e 2c 77 30 3a 3d 38 2c 77 31 3a 3d 72 65 74 75 00 00 00 00 00 00 00 00 ┆move(.w3.,w0:=8,w1:=retu ┆
0x31600…31606 (395,) (0x25c,0x62d)
0x31606…31620 72 6e 2e 63 70 5f 73 65 6e 64 65 72 2b 32 2c 77 32 3a 3d 61 64 64 72 65 73 73 ┆rn.cp_sender+2,w2:=address┆
0x31620…31640 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 3a 3d 77 32 3b 0a 20 ┆(sendername)); w3:=w2; ┆
0x31640…31660 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 70 29 3b 0a 20 20 20 ┆ w1:=address(dummyop); ┆
0x31660…3167e 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 64 75 6d 6d ┆ monitor(16); ! send dumm┆
0x3167e…31684 (0x25c,0x62e)
0x31684…316a0 79 20 6d 65 73 73 61 67 65 20 74 6f 20 74 72 61 70 20 72 65 6d 6f 76 61 6c 20 6f 66 ┆y message to trap removal of┆
0x316a0…316c0 20 70 72 6f 63 65 73 73 20 21 0a 20 20 20 20 20 20 20 20 77 31 3a 3d 72 65 74 75 72 6e 2e 63 70 ┆ process ! w1:=return.cp┆
0x316c0…316e0 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 64 75 6d 6d 79 6d 65 ┆_phhead; (w1).ph_dummyme┆
0x316e0…316fc 73 73 3a 3d 20 77 32 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 70 68 5f 74 68 69 ┆ss:= w2; (w1).ph_thi┆
0x316fc…31702 (0x25c,0x62f)
0x31702…31720 6e 63 61 72 3a 3d 20 77 30 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 73 61 76 65 77 30 3a ┆ncar:= w0:= 0; savew0:┆
0x31720…31740 3d 77 30 3a 3d 31 3b 0a 20 20 20 20 20 20 20 20 28 77 32 3a 3d 28 77 31 29 2e 70 68 5f 71 72 65 ┆=w0:=1; (w2:=(w1).ph_qre┆
0x31740…31760 73 65 72 76 65 29 2e 73 65 6d 5f 76 61 6c 75 65 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 65 6e 64 ┆serve).sem_value:= w0; end┆
0x31760…3177a 20 65 6c 73 65 0a 20 20 20 20 20 20 62 65 67 69 6e 20 20 21 20 74 65 73 74 20 ┆ else begin ! test ┆
0x3177a…31780 (0x25c,0x630)
0x31780…317a0 77 68 79 20 70 73 65 75 64 6f 20 70 72 6f 63 65 73 73 20 77 61 73 20 6e 6f 74 20 63 72 65 61 74 ┆why pseudo process was not creat┆
0x317a0…317c0 65 64 20 21 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 ┆ed ! monitor(4); ! get ┆
0x317c0…317e0 70 72 6f 63 65 73 73 20 64 65 73 63 72 69 70 74 69 6f 6e 20 21 0a 20 20 20 20 20 20 20 20 69 66 ┆process description ! if┆
0x317e0…31800 20 77 30 20 3e 20 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 62 65 67 00 00 00 00 00 00 00 00 ┆ w0 > 0 then beg ┆
0x31800…31806 (396,) (0x25c,0x631)
0x31806…31820 69 6e 20 20 21 20 74 68 65 20 6e 61 6d 65 20 61 6c 72 65 61 64 79 20 64 69 64 ┆in ! the name already did┆
0x31820…31840 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 20 20 20 20 20 20 20 ┆ describe a process ! ┆
0x31840…31860 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 73 65 6c 66 20 21 20 ┆if w3:=b.tem=w0 then ! myself ! ┆
0x31860…3187e 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 20 20 20 20 20 ┆goto testexistence; ┆
0x3187e…31884 (0x25c,0x632)
0x31884…318a0 21 20 74 65 73 74 20 77 68 65 74 68 65 72 20 69 74 20 69 73 20 61 20 70 73 65 75 64 ┆! test whether it is a pseud┆
0x318a0…318c0 6f 20 70 72 6f 63 65 73 73 20 62 65 6c 6f 6e 67 69 6e 67 20 74 6f 20 74 65 6d 20 21 0a 20 20 20 ┆o process belonging to tem ! ┆
0x318c0…318e0 20 20 20 20 20 20 20 77 31 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 32 3a ┆ w1:= w0; if w2:┆
0x318e0…318fc 3d 28 77 31 29 2e 77 6f 72 64 3d 36 34 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 ┆=(w1).word=64 then ┆
0x318fc…31902 (0x25c,0x633)
0x31902…31920 20 62 65 67 69 6e 20 21 20 69 74 20 69 73 20 61 20 70 73 65 75 64 6f 20 70 72 6f 63 65 73 ┆ begin ! it is a pseudo proces┆
0x31920…31940 73 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 31 2b 31 30 3b 0a 20 20 20 20 20 20 20 20 20 ┆s ! w1+10; ┆
0x31940…31960 20 20 20 69 66 20 77 33 3d 28 77 31 29 2e 77 6f 72 64 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 ┆ if w3=(w1).word then ┆
0x31960…3197a 20 20 20 20 62 65 67 69 6e 20 21 20 69 74 20 62 65 6c 6f 6e 67 73 20 74 6f 20 ┆ begin ! it belongs to ┆
0x3197a…31980 (0x25c,0x634)
0x31980…319a0 74 65 6d 20 21 0a 20 20 74 65 73 74 65 78 69 73 74 65 6e 63 65 3a 0a 20 20 20 20 20 20 20 20 20 ┆tem ! testexistence: ┆
0x319a0…319c0 20 20 20 20 20 77 31 3a 3d 20 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 20 ┆ w1:= 1; w3:= ┆
0x319c0…319e0 62 2e 70 68 70 6f 6f 6c 5f 74 6f 70 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 68 69 6c ┆b.phpool_top; whil┆
0x319e0…31a00 65 20 77 33 2d 21 6c 65 6e 67 74 68 28 70 72 6f 63 65 73 73 68 61 6e 64 00 00 00 00 00 00 00 00 ┆e w3-!length(processhand ┆
0x31a00…31a06 (397,) (0x25c,0x635)
0x31a06…31a20 6c 65 72 29 3e 3d 62 2e 70 68 70 6f 6f 6c 5f 66 73 74 20 64 6f 0a 20 20 20 20 ┆ler)>=b.phpool_fst do ┆
0x31a20…31a40 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 ┆
0x31a40…31a60 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 0a 20 20 20 20 20 20 ┆if w0=(w3).ph_psproc then ┆
0x31a60…31a7e 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 70 61 72 65 6e ┆ if w2:=(w3).ph_paren┆
0x31a7e…31a84 (0x25c,0x636)
0x31a84…31aa0 74 3d 72 65 74 75 72 6e 2e 63 70 5f 73 65 6e 64 65 72 20 74 68 65 6e 0a 20 20 20 20 ┆t=return.cp_sender then ┆
0x31aa0…31ac0 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 20 20 20 20 ┆ w1:= 0; ┆
0x31ac0…31ae0 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 20 77 31 3e 30 20 74 68 ┆ end; if w1>0 th┆
0x31ae0…31afc 65 6e 20 67 6f 74 6f 20 6f 6b 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b ┆en goto ok; end;┆
0x31afc…31b02 (0x25c,0x637)
0x31b02…31b20 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 ┆ end; end; ┆
0x31b20…31b40 20 20 20 20 20 20 20 73 61 76 65 77 30 3a 3d 77 30 3a 3d 20 30 3b 0a 20 20 20 20 20 20 65 6e 64 ┆ savew0:=w0:= 0; end┆
0x31b40…31b60 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 21 6c 65 6e 67 74 68 ┆; testout(.w3.,w0:=!length┆
0x31b60…31b7a 28 70 72 6f 63 65 73 73 68 61 6e 64 6c 65 72 29 2c 77 31 3a 3d 72 65 74 75 72 ┆(processhandler),w1:=retur┆
0x31b7a…31b80 (0x25c,0x638)
0x31b80…31ba0 6e 2e 63 70 5f 70 68 68 65 61 64 2c 77 32 3a 3d 35 33 29 3b 0a 20 20 20 20 20 20 77 30 3a 3d 73 ┆n.cp_phhead,w2:=53); w0:=s┆
0x31ba0…31bc0 61 76 65 77 30 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 77 ┆avew0; f2:=savef2; w┆
0x31bc0…31be0 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┆
0x31be0…31c00 65 61 74 65 5f 70 68 20 21 0a 0a 0a 0a 20 20 62 6f 64 79 20 6f 66 20 72 00 00 00 00 00 00 00 00 ┆eate_ph ! body of r ┆
0x31c00…31c06 (398,) (0x25c,0x639)
0x31c06…31c20 65 6d 6f 76 65 5f 70 68 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 69 6e 63 6f 64 ┆emove_ph begin incod┆
0x31c20…31c40 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 20 20 20 77 6f 72 ┆e double savef1; wor┆
0x31c40…31c60 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 3b 0a 20 20 20 20 ┆d savew2; ref return; ┆
0x31c60…31c7e 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 67 69 6e 0a 20 ┆ text(11) psname; begin ┆
0x31c7e…31c84 (0x25c,0x63a)
0x31c84…31ca0 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 ┆ savef1:=f1; savew┆
0x31ca0…31cc0 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 77 ┆2:=w2; return:=w3; w┆
0x31cc0…31ce0 31 3a 3d 28 77 33 29 2e 72 70 5f 70 68 68 65 61 64 3b 0a 20 20 20 20 20 20 69 66 20 77 32 3a 3d ┆1:=(w3).rp_phhead; if w2:=┆
0x31ce0…31cfc 28 77 31 29 2e 63 5f 6d 62 75 66 20 3e 20 30 20 74 68 65 6e 0a 20 20 20 20 20 20 62 ┆(w1).c_mbuf > 0 then b┆
0x31cfc…31d02 (0x25c,0x63b)
0x31d02…31d20 65 67 69 6e 20 20 21 20 61 6e 73 77 65 72 20 70 65 6e 64 69 6e 67 20 6d 65 73 73 61 67 65 ┆egin ! answer pending message┆
0x31d20…31d40 20 77 69 74 68 20 72 65 73 75 6c 74 20 32 20 21 0a 20 20 20 20 20 20 20 20 77 30 3a 3d 32 3b 0a ┆ with result 2 ! w0:=2; ┆
0x31d40…31d60 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 32 32 29 3b 20 20 21 20 73 65 6e 64 20 61 6e 73 ┆ monitor(22); ! send ans┆
0x31d60…31d7a 77 65 72 20 21 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 6f 70 65 ┆wer ! end; ope┆
0x31d7a…31d80 (0x25c,0x63c)
0x31d80…31da0 6e 28 2e 77 33 2e 2c 77 30 3a 3d 32 30 30 30 2c 77 32 3a 3d 28 77 31 29 2e 70 68 5f 71 72 65 73 ┆n(.w3.,w0:=2000,w2:=(w1).ph_qres┆
0x31da0…31dc0 65 72 76 65 29 3b 20 21 20 6f 70 65 6e 20 66 6f 72 20 61 6c 6c 20 77 61 69 74 69 6e 67 20 74 68 ┆erve); ! open for all waiting th┆
0x31dc0…31de0 27 73 20 21 0a 20 20 20 20 20 20 69 6e 69 74 5f 61 72 65 61 28 2e 77 33 2e 2c 77 31 29 3b 0a 20 ┆'s ! init_area(.w3.,w1); ┆
0x31de0…31e00 20 20 20 20 20 77 30 3a 3d 30 3b 0a 20 20 20 20 20 20 28 77 31 29 2e 63 00 00 00 00 00 00 00 00 ┆ w0:=0; (w1).c ┆
0x31e00…31e06 (399,) (0x25c,0x63d)
0x31e06…31e20 5f 6d 62 75 66 3a 3d 77 30 3b 0a 20 20 20 20 20 20 28 77 31 29 2e 70 68 5f 70 ┆_mbuf:=w0; (w1).ph_p┆
0x31e20…31e40 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 63 68 69 6c 64 3a 3d ┆arent:=w0; (w1).ph_child:=┆
0x31e40…31e60 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 72 6f 63 3b 0a 20 20 ┆w0; w2:=(w1).ph_psproc; ┆
0x31e60…31e7e 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 20 20 20 20 20 ┆ (w1).ph_psproc:=w0; ┆
0x31e7e…31e84 (0x25c,0x63e)
0x31e84…31ea0 28 77 31 29 2e 70 68 5f 73 65 6e 73 65 64 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 28 ┆(w1).ph_sensed:= w0; (┆
0x31ea0…31ec0 77 31 29 2e 70 68 5f 62 6c 6f 63 6b 75 73 65 64 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 28 77 31 ┆w1).ph_blockused:= w0; (w1┆
0x31ec0…31ee0 29 2e 70 68 5f 6f 75 74 63 61 72 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 69 66 20 77 32 20 3e 20 ┆).ph_outcar:= w0; if w2 > ┆
0x31ee0…31efc 30 20 74 68 65 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 20 20 21 20 74 65 73 74 20 77 ┆0 then begin ! test w┆
0x31efc…31f02 (0x25c,0x63f)
0x31f02…31f20 68 65 74 68 65 72 20 70 73 65 75 64 6f 20 70 72 6f 63 65 73 73 20 69 73 20 74 6f 20 62 65 ┆hether pseudo process is to be┆
0x31f20…31f40 20 72 65 6d 6f 76 65 64 20 21 0a 20 20 20 20 20 20 20 20 77 31 3a 3d 62 2e 70 68 70 6f 6f 6c 5f ┆ removed ! w1:=b.phpool_┆
0x31f40…31f60 74 6f 70 3b 0a 20 20 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 ┆top; while w1-!length(pr┆
0x31f60…31f7a 6f 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 ┆ocesshandler) >= b.phpool_┆
0x31f7a…31f80 (0x25c,0x640)
0x31f80…31fa0 66 73 74 20 64 6f 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 20 21 20 63 6f 75 6e 74 20 70 68 ┆fst do begin ! count ph┆
0x31fa0…31fc0 73 20 75 73 69 6e 67 20 74 68 65 20 73 61 6d 65 20 70 73 65 75 64 6f 20 70 72 6f 63 65 73 73 20 ┆s using the same pseudo process ┆
0x31fc0…31fe0 21 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 32 20 3d 20 28 77 31 29 2e 70 68 5f 70 73 70 72 ┆! if w2 = (w1).ph_pspr┆
0x31fe0…32000 6f 63 20 74 68 65 6e 20 77 30 2b 31 3b 0a 20 20 20 20 20 20 20 20 65 6e 00 00 00 00 00 00 00 00 ┆oc then w0+1; en ┆
0x32000…32006 (400,) (0x25c,0x641)
0x32006…32020 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 0a ┆d; if w0 = 0 then ┆
0x32020…32040 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 73 65 75 64 6f 20 70 ┆ begin ! remove pseudo p┆
0x32040…32060 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 77 33 2e 2c 77 30 3a ┆rocess ! move(.w3.,w0:┆
0x32060…3207e 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 73 6e 61 6d 65 ┆=8,w1:=w2+2,w2:=address(psname┆
0x3207e…32084 (0x25c,0x642)
0x32084…320a0 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 77 32 3b 0a 20 20 20 20 20 20 ┆)); w3:=w2; ┆
0x320a0…320c0 20 20 20 20 6d 6f 6e 69 74 6f 72 28 36 34 29 3b 20 20 21 20 72 65 6d 6f 76 65 20 70 72 6f 63 65 ┆ monitor(64); ! remove proce┆
0x320c0…320e0 73 73 20 21 0a 20 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 ┆ss ! end; end; ┆
0x320e0…320fc 20 20 20 6c 69 6e 6b 28 2e 77 33 2e 2c 77 31 3a 3d 72 65 74 75 72 6e 2e 72 70 5f 70 ┆ link(.w3.,w1:=return.rp_p┆
0x320fc…32102 (0x25c,0x643)
0x32102…32120 68 68 65 61 64 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 62 2e 77 61 69 74 71 66 73 74 29 29 ┆hhead,w2:=address(b.waitqfst))┆
0x32120…32140 3b 0a 20 20 20 20 20 20 69 66 20 77 32 3a 3d 28 77 31 29 2e 70 68 5f 64 75 6d 6d 79 6d 65 73 73 ┆; if w2:=(w1).ph_dummymess┆
0x32140…32160 20 3e 20 30 20 74 68 65 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 20 20 21 20 72 65 67 72 65 74 20 ┆ > 0 then begin ! regret ┆
0x32160…3217a 64 75 6d 6d 79 20 6d 65 73 73 61 67 65 20 21 0a 20 20 20 20 20 20 20 20 6d 6f ┆dummy message ! mo┆
0x3217a…32180 (0x25c,0x644)
0x32180…321a0 6e 69 74 6f 72 28 38 32 29 3b 20 20 21 20 72 65 67 72 65 74 20 6d 65 73 73 61 67 65 20 21 0a 20 ┆nitor(82); ! regret message ! ┆
0x321a0…321c0 20 20 20 20 20 20 20 77 30 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 70 68 5f 64 75 ┆ w0:=0; (w1).ph_du┆
0x321c0…321e0 6d 6d 79 6d 65 73 73 3a 3d 77 30 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 77 33 ┆mmymess:=w0; end; w3┆
0x321e0…32200 3a 3d 62 2e 74 68 70 6f 6f 6c 5f 74 6f 70 3b 0a 20 20 20 20 20 20 77 68 00 00 00 00 00 00 00 00 ┆:=b.thpool_top; wh ┆
0x32200…32206 (401,) (0x25c,0x645)
0x32206…32220 69 6c 65 20 77 33 2d 21 6c 65 6e 67 74 68 28 74 65 72 6d 69 6e 61 6c 68 61 6e ┆ile w3-!length(terminalhan┆
0x32220…32240 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 20 20 20 20 20 20 62 ┆dler) >= b.thpool_fst do b┆
0x32240…32260 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 2e 74 68 5f 70 61 72 ┆egin if w1 = (w3).th_par┆
0x32260…3227e 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 20 20 20 20 20 ┆ent then begin ┆
0x3227e…32284 (0x25c,0x646)
0x32284…322a0 20 20 20 77 30 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 68 5f ┆ w0:=0; (w3).th_┆
0x322a0…322c0 70 61 72 65 6e 74 3a 3d 77 30 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 65 ┆parent:=w0; end; e┆
0x322c0…322e0 6e 64 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 21 6c 65 6e 67 ┆nd; testout(.w3.,w0:=!leng┆
0x322e0…322fc 74 68 28 70 72 6f 63 65 73 73 68 61 6e 64 6c 65 72 29 2c 77 31 2c 77 32 3a 3d 35 34 ┆th(processhandler),w1,w2:=54┆
0x322fc…32302 (0x25c,0x647)
0x32302…32320 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 77 32 3a ┆); f1:=savef1; w2:┆
0x32320…32340 3d 73 61 76 65 77 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 ┆=savew2; w3:=return; e┆
0x32340…32360 6e 64 3b 0a 20 20 65 6e 64 3b 20 20 21 20 72 65 6d 6f 76 65 5f 70 68 20 21 0a 0a 0a 0a 20 20 62 ┆nd; end; ! remove_ph ! b┆
0x32360…3237a 6f 64 79 20 6f 66 20 63 72 65 61 74 65 5f 74 68 0a 20 20 62 65 67 69 6e 0a 20 ┆ody of create_th begin ┆
0x3237a…32380 (0x25c,0x648)
0x32380…323a0 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 31 3b 0a 20 ┆ incode double savef1; ┆
0x323a0…323c0 20 20 20 20 20 77 6f 72 64 20 69 6e 63 61 72 3a 3d 20 30 2c 20 73 61 76 65 77 32 3b 0a 20 20 20 ┆ word incar:= 0, savew2; ┆
0x323c0…323e0 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 73 ┆ ref return; begin s┆
0x323e0…32400 61 76 65 66 31 3a 3d 66 31 3b 0a 20 20 20 20 20 20 73 61 76 65 77 32 3a 00 00 00 00 00 00 00 00 ┆avef1:=f1; savew2: ┆
0x32400…32406 (402,) (0x25c,0x649)
0x32406…32420 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 ┆=w2; return:=w3; ┆
0x32420…32440 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 20 20 20 20 28 77 31 ┆ w1:=(w3).ct_thhead; (w1┆
0x32440…32460 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 20 20 20 20 20 28 77 ┆).th_ndisplay:= w0:= 0; (w┆
0x32460…3247e 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 5f 74 79 70 65 ┆1).th_type:= w0:= (w3).ct_type┆
0x3247e…32484 (0x25c,0x64a)
0x32484…324a0 3b 0a 20 20 20 20 20 20 21 20 66 6f 72 63 65 20 74 65 72 6d 69 6e 61 6c 20 68 61 6e ┆; ! force terminal han┆
0x324a0…324c0 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 20 20 20 ┆dler into start position ! ┆
0x324c0…324e0 20 74 68 28 2e 77 33 2e 29 3b 0a 20 20 20 20 20 20 28 77 31 29 2e 63 5f 69 63 3a 3d 77 33 3b 0a ┆ th(.w3.); (w1).c_ic:=w3; ┆
0x324e0…324fc 20 20 20 20 20 20 69 6e 63 61 72 3a 3d 20 77 30 3a 3d 20 69 6e 63 61 72 2b 31 3b 0a ┆ incar:= w0:= incar+1; ┆
0x324fc…32502 (0x25c,0x64b)
0x32502…32520 20 20 20 20 20 20 28 77 31 29 2e 74 68 5f 69 6e 63 61 72 3a 3d 20 77 30 3b 0a 20 20 20 20 ┆ (w1).th_incar:= w0; ┆
0x32520…32540 20 20 28 77 31 29 2e 74 68 5f 6c 6f 63 61 6c 69 64 3a 3d 77 30 3a 3d 28 77 33 3a 3d 72 65 74 75 ┆ (w1).th_localid:=w0:=(w3:=retu┆
0x32540…32560 72 6e 29 2e 63 74 5f 6c 6f 63 61 6c 69 64 3b 0a 20 20 20 20 20 20 28 77 31 29 2e 74 68 5f 6d 61 ┆rn).ct_localid; (w1).th_ma┆
0x32560…3257a 78 62 75 66 3a 3d 77 30 3a 3d 28 77 33 29 2e 63 74 5f 62 75 66 73 3b 0a 20 20 ┆xbuf:=w0:=(w3).ct_bufs; ┆
0x3257a…32580 (0x25c,0x64c)
0x32580…325a0 20 20 20 20 28 77 31 29 2e 74 68 5f 74 69 6d 65 72 6d 61 78 3a 3d 77 30 3a 3d 28 77 33 29 2e 63 ┆ (w1).th_timermax:=w0:=(w3).c┆
0x325a0…325c0 74 5f 74 69 6d 65 72 73 3b 0a 20 20 20 20 20 20 28 77 31 29 2e 74 68 5f 6d 61 73 6b 3a 3d 20 77 ┆t_timers; (w1).th_mask:= w┆
0x325c0…325e0 30 3a 3d 20 28 77 33 29 2e 63 74 5f 6d 61 73 6b 3b 0a 20 20 20 20 20 20 28 77 31 29 2e 74 68 5f ┆0:= (w3).ct_mask; (w1).th_┆
0x325e0…32600 73 75 62 73 74 3a 3d 20 77 30 3a 3d 20 28 77 33 29 2e 63 74 5f 73 75 62 00 00 00 00 00 00 00 00 ┆subst:= w0:= (w3).ct_sub ┆
0x32600…32606 (403,) (0x25c,0x64d)
0x32606…32620 73 74 3b 0a 20 20 20 20 20 20 28 77 31 29 2e 74 68 5f 70 72 6f 63 64 65 73 63 ┆st; (w1).th_procdesc┆
0x32620…32640 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 20 20 20 20 20 77 32 ┆:=w0:=(w3).ct_termproc; w2┆
0x32640…32660 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 20 20 20 20 20 20 77 ┆:=address((w1).th_name); w┆
0x32660…3267e 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 77 30 3a 3d 38 ┆1:=w0+2; move(.w3.,w0:=8┆
0x3267e…32684 (0x25c,0x64e)
0x32684…326a0 2c 77 31 2c 77 32 29 3b 0a 20 20 20 20 20 20 69 66 20 77 30 3a 3d 72 65 74 75 72 6e ┆,w1,w2); if w0:=return┆
0x326a0…326c0 2e 63 74 5f 74 79 70 65 3e 3d 34 20 74 68 65 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 ┆.ct_type>=4 then begin ┆
0x326c0…326e0 20 20 20 20 20 77 33 3a 3d 20 77 32 3b 0a 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 38 29 ┆ w3:= w2; monitor(8)┆
0x326e0…326fc 3b 20 21 20 72 65 73 65 72 76 65 20 21 0a 21 74 65 73 74 20 31 30 39 3b 0a 20 20 20 ┆; ! reserve ! !test 109; ┆
0x326fc…32702 (0x25c,0x64f)
0x32702…32720 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 ┆ end; link(.w3.,w1:=re┆
0x32720…32740 74 75 72 6e 2e 63 74 5f 74 68 68 65 61 64 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 62 2e 61 63 74 ┆turn.ct_thhead,w2:=address(b.act┆
0x32740…32760 69 76 71 66 73 74 29 29 3b 0a 20 20 20 20 20 20 69 6e 69 74 5f 61 72 65 61 28 2e 77 33 2e 2c 77 ┆ivqfst)); init_area(.w3.,w┆
0x32760…3277a 31 29 3b 0a 20 20 20 20 20 20 74 65 73 74 6f 75 74 28 2e 77 33 2e 2c 77 30 3a ┆1); testout(.w3.,w0:┆
0x3277a…32780 (0x25c,0x650)
0x32780…327a0 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 2c 77 31 2c 77 32 3a ┆=!length(terminalhandler),w1,w2:┆
0x327a0…327c0 3d 35 35 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 77 32 ┆=55); f1:=savef1; w2┆
0x327c0…327e0 3a 3d 73 61 76 65 77 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 ┆:=savew2; w3:=return; ┆
0x327e0…32800 65 6e 64 3b 0a 20 20 65 6e 64 3b 20 20 21 20 63 72 65 61 74 65 5f 74 68 00 00 00 00 00 00 00 00 ┆end; end; ! create_th ┆
0x32800…32806 (404,) (0x25c,0x651)
0x32806…32820 20 21 0a 0a 0a 0a 20 20 62 6f 64 79 20 6f 66 20 72 65 6d 6f 76 65 5f 74 68 0a ┆ ! body of remove_th ┆
0x32820…32840 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 ┆
0x32840…32860 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 20 20 20 20 20 73 ┆savef1,savef3; begin s┆
0x32860…3287e 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 33 3b 0a 20 ┆avef1:=f1; savef3:=f3; ┆
0x3287e…32884 (0x25c,0x652)
0x32884…328a0 20 20 20 20 20 77 31 3a 3d 28 77 33 29 2e 72 74 5f 74 68 68 65 61 64 3b 0a 20 20 20 ┆ w1:=(w3).rt_thhead; ┆
0x328a0…328c0 20 20 20 69 66 20 77 30 3a 3d 20 28 77 32 3a 3d 28 77 31 29 2e 74 68 5f 63 6f 6e 74 72 6f 6c 29 ┆ if w0:= (w2:=(w1).th_control)┆
0x328c0…328e0 2e 73 65 6d 5f 76 61 6c 75 65 20 3c 20 30 20 74 68 65 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 20 ┆.sem_value < 0 then begin ┆
0x328e0…328fc 63 6f 6d 6d 65 6e 74 20 70 6f 6f 6c 20 68 61 6e 64 6c 65 72 20 77 61 69 74 69 6e 67 ┆comment pool handler waiting┆
0x328fc…32902 (0x25c,0x653)
0x32902…32920 20 6f 6e 20 63 6f 6e 74 72 6f 6c 20 6c 6f 63 6b 3b 0a 20 20 20 20 20 20 20 20 6f 70 65 6e ┆ on control lock; open┆
0x32920…32940 20 28 2e 77 33 2e 2c 77 30 3a 3d 31 2c 20 77 32 29 3b 0a 20 20 20 20 20 20 20 20 77 32 3a 3d 20 ┆ (.w3.,w0:=1, w2); w2:= ┆
0x32940…32960 28 77 32 3a 3d 28 77 31 29 2e 74 68 5f 70 61 72 65 6e 74 29 2e 63 5f 6d 62 75 66 3b 0a 20 20 20 ┆(w2:=(w1).th_parent).c_mbuf; ┆
0x32960…3297a 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 ┆ if w2>0 then ┆
0x3297a…32980 (0x25c,0x654)
0x32980…329a0 62 65 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 ┆begin comment send answer to con┆
0x329a0…329c0 74 72 6f 6c 20 6d 65 73 73 61 67 65 3b 0a 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 20 30 3b 0a ┆trol message; w0:= 0; ┆
0x329c0…329e0 20 20 20 20 20 20 20 20 20 20 28 77 32 3a 3d 28 77 31 29 2e 74 68 5f 70 61 72 65 6e 74 29 2e 63 ┆ (w2:=(w1).th_parent).c┆
0x329e0…32a00 5f 6d 62 75 66 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 77 30 00 00 00 00 00 00 00 00 ┆_mbuf:= w0; w0 ┆
0x32a00…32a06 (405,) (0x25c,0x655)
0x32a06…32a20 3a 3d 20 34 3b 20 21 20 64 69 73 63 6f 6e 6e 65 63 74 65 64 20 21 0a 20 20 20 ┆:= 4; ! disconnected ! ┆
0x32a20…32a40 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 64 20 61 6e 73 77 65 ┆ monitor(22); ! send answe┆
0x32a40…32a60 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 64 3b 0a 20 20 20 20 ┆r ! end; end; ┆
0x32a60…32a7e 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 20 73 61 76 65 ┆ f1:= savef1; f3:= save┆
0x32a7e…32a84 (0x25c,0x656)
0x32a84…32aa0 66 33 3b 0a 20 20 20 20 20 20 77 31 3a 3d 20 28 77 33 29 2e 72 74 5f 74 68 68 65 61 ┆f3; w1:= (w3).rt_thhea┆
0x32aa0…32ac0 64 3b 0a 20 20 20 20 20 20 77 32 3a 3d 20 28 77 31 29 2e 74 68 5f 70 61 72 65 6e 74 3b 0a 20 20 ┆d; w2:= (w1).th_parent; ┆
0x32ac0…32ae0 20 20 20 20 69 66 20 77 32 3e 30 20 74 68 65 6e 0a 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 ┆ if w2>0 then if w0:=(w┆
0x32ae0…32afc 31 29 2e 74 68 5f 69 6e 63 61 72 3d 28 77 32 29 2e 70 68 5f 74 68 69 6e 63 61 72 20 ┆1).th_incar=(w2).ph_thincar ┆
0x32afc…32b02 (0x25c,0x657)
0x32b02…32b20 74 68 65 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 20 21 20 74 68 20 72 65 73 65 72 76 65 72 ┆then begin ! th reserver┆
0x32b20…32b40 20 6f 66 20 70 68 27 73 20 73 70 6f 6f 6c 20 71 75 65 75 65 20 21 0a 20 20 20 20 20 20 20 20 70 ┆ of ph's spool queue ! p┆
0x32b40…32b60 75 74 5f 6f 70 28 2e 77 33 2e 2c 77 30 3a 3d 21 6c 65 6e 67 74 68 28 74 65 72 6d 62 75 66 68 65 ┆ut_op(.w3.,w0:=!length(termbufhe┆
0x32b60…32b7a 61 64 29 2c 77 31 2c 77 32 29 3b 0a 20 20 20 20 20 20 20 20 28 77 32 29 2e 70 ┆ad),w1,w2); (w2).p┆
0x32b7a…32b80 (0x25c,0x658)
0x32b80…32ba0 68 5f 74 68 69 6e 63 61 72 3a 3d 20 77 30 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 6f 70 65 6e ┆h_thincar:= w0:= 0; open┆
0x32ba0…32bc0 28 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 73 65 72 76 65 ┆(.w3.,w0:=1,w2:=(w2).ph_qreserve┆
0x32bc0…32be0 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 31 29 2e ┆); w0:= 0; (w1).┆
0x32be0…32c00 62 75 66 5f 73 74 61 74 75 73 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆buf_status:= w0; ┆
0x32c00…32c06 (406,) (0x25c,0x659)
0x32c06…32c20 20 28 77 31 29 2e 62 75 66 5f 62 79 74 65 73 3a 3d 20 77 30 3b 0a 20 20 20 20 ┆ (w1).buf_bytes:= w0; ┆
0x32c20…32c40 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 20 20 20 20 20 20 20 ┆ (w1).buf_chars:= w0; ┆
0x32c40…32c60 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 3b 20 21 20 64 69 73 ┆ (w1).buf_result:= w0:= 4; ! dis┆
0x32c60…32c7e 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 76 65 66 33 3b ┆connect ! f3:= savef3;┆
0x32c7e…32c84 (0x25c,0x65a)
0x32c84…32ca0 0a 20 20 20 20 20 20 20 20 77 32 3a 3d 20 28 77 33 29 2e 72 74 5f 74 68 68 65 61 64 ┆ w2:= (w3).rt_thhead┆
0x32ca0…32cc0 3b 0a 20 20 20 20 20 20 20 20 77 30 3a 3d 20 28 77 32 29 2e 74 68 5f 69 6e 63 61 72 3b 0a 20 20 ┆; w0:= (w2).th_incar; ┆
0x32cc0…32ce0 20 20 20 20 20 20 28 77 31 29 2e 62 75 66 5f 69 6e 63 61 72 3a 3d 20 77 30 3b 0a 20 20 20 20 20 ┆ (w1).buf_incar:= w0; ┆
0x32ce0…32cfc 20 65 6e 64 3b 0a 20 20 20 20 20 20 77 31 3a 3d 20 28 77 33 29 2e 72 74 5f 74 68 68 ┆ end; w1:= (w3).rt_thh┆
0x32cfc…32d02 (0x25c,0x65b)
0x32d02…32d20 65 61 64 3b 0a 20 20 20 20 20 20 77 30 3a 3d 20 30 3b 0a 20 20 20 20 20 20 28 77 31 29 2e ┆ead; w0:= 0; (w1).┆
0x32d20…32d40 63 5f 6d 62 75 66 3a 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 ┆c_mbuf:=w0; (w1).th_parent┆
0x32d40…32d60 3a 3d 77 30 3b 0a 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 ┆:=w0; (w1).th_next:=w0; ┆
0x32d60…32d7a 20 20 20 20 28 77 31 29 2e 74 68 5f 69 6e 63 61 72 3a 3d 20 77 30 3b 0a 20 20 ┆ (w1).th_incar:= w0; ┆
0x32d7a…32d80 (0x25c,0x65c)
0x32d80…32da0 20 20 20 20 28 77 31 29 2e 74 68 5f 6c 6f 63 61 6c 69 64 3a 3d 77 30 3b 0a 20 20 20 20 20 20 28 ┆ (w1).th_localid:=w0; (┆
0x32da0…32dc0 77 31 29 2e 74 68 5f 74 69 6d 65 72 63 6f 75 6e 74 3a 3d 77 30 3b 0a 20 20 20 20 20 20 28 77 31 ┆w1).th_timercount:=w0; (w1┆
0x32dc0…32de0 29 2e 74 68 5f 75 73 65 64 62 75 66 3a 3d 77 30 3b 0a 20 20 20 20 20 20 28 77 31 29 2e 74 68 5f ┆).th_usedbuf:=w0; (w1).th_┆
0x32de0…32e00 62 6c 6f 63 6b 75 73 65 64 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 28 77 00 00 00 00 00 00 00 00 ┆blockused:= w0; (w ┆
0x32e00…32e06 (407,) (0x25c,0x65d)
0x32e06…32e20 31 29 2e 74 68 5f 70 72 6f 63 64 65 73 63 3a 3d 77 30 3b 0a 20 20 20 20 20 20 ┆1).th_procdesc:=w0; ┆
0x32e20…32e40 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 3b 0a 20 20 20 20 20 ┆w3:=address((w1).th_name); ┆
0x32e40…32e60 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 74 65 72 6d 69 6e 61 ┆ monitor(10); ! release termina┆
0x32e60…32e7e 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 20 20 20 20 20 ┆l ! (w3).word:=w0; ┆
0x32e7e…32e84 (0x25c,0x65e)
0x32e84…32ea0 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 ┆ link(.w3.,w1,w2:=address(b.┆
0x32ea0…32ec0 77 61 69 74 71 66 73 74 29 29 3b 0a 20 20 20 20 20 20 69 6e 69 74 5f 61 72 65 61 28 2e 77 33 2e ┆waitqfst)); init_area(.w3.┆
0x32ec0…32ee0 2c 77 31 29 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 21 6c 65 ┆,w1); testout(.w3.,w0:=!le┆
0x32ee0…32efc 6e 67 74 68 28 74 65 72 6d 69 6e 61 6c 68 61 6e 64 6c 65 72 29 2c 77 31 2c 77 32 3a ┆ngth(terminalhandler),w1,w2:┆
0x32efc…32f02 (0x25c,0x65f)
0x32f02…32f20 3d 35 36 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 ┆=56); f1:=savef1; ┆
0x32f20…32f40 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 20 20 21 20 72 ┆f3:=savef3; end; end; ! r┆
0x32f40…32f60 65 6d 6f 76 65 5f 74 68 20 21 0a 0a 0a 0a 20 20 62 6f 64 79 20 6f 66 20 69 6e 69 74 5f 61 72 65 ┆emove_th ! body of init_are┆
0x32f60…32f7a 61 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 ┆a begin incode ┆
0x32f7a…32f80 (0x25c,0x660)
0x32f80…32fa0 20 64 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 61 76 65 77 ┆ double savef1; word savew┆
0x32fa0…32fc0 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 6e 0a 20 ┆2; ref return; begin ┆
0x32fc0…32fe0 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 3d 77 ┆ savef1:=f1; savew2:=w┆
0x32fe0…33000 32 3b 0a 20 20 20 20 20 20 72 65 74 75 72 6e 3a 3d 77 33 3b 0a 20 20 20 00 00 00 00 00 00 00 00 ┆2; return:=w3; ┆
0x33000…33006 (408,) (0x25c,0x661)
0x33006…33020 20 20 20 28 77 31 29 2e 61 5f 66 69 72 73 74 66 75 6c 6c 3a 3d 77 30 3a 3d 28 ┆ (w1).a_firstfull:=w0:=(┆
0x33020…33040 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 5f 66 69 72 73 74 66 ┆w1).a_first; (w1).a_firstf┆
0x33040…33060 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 5f 62 79 74 65 73 66 ┆ree:=w0; w2:=(w1).a_bytesf┆
0x33060…3307e 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 2d 28 77 31 29 ┆ree; w0:=(w1).a_top-(w1)┆
0x3307e…33084 (0x25c,0x662)
0x33084…330a0 2e 61 5f 66 69 72 73 74 2d 28 77 32 29 2e 73 65 6d 5f 76 61 6c 75 65 2d 35 31 32 3b ┆.a_first-(w2).sem_value-512;┆
0x330a0…330c0 0a 20 20 20 20 20 20 6f 70 65 6e 28 2e 77 33 2e 2c 77 30 2c 77 32 29 3b 20 20 20 21 20 72 65 6c ┆ open(.w3.,w0,w2); ! rel┆
0x330c0…330e0 65 61 73 65 20 61 6c 6c 20 6f 63 63 75 70 69 65 64 20 62 79 74 65 73 20 21 0a 20 20 20 20 20 20 ┆ease all occupied bytes ! ┆
0x330e0…330fc 28 77 32 3a 3d 28 77 31 29 2e 61 5f 72 65 63 66 75 6c 6c 29 2e 73 65 6d 5f 76 61 6c ┆(w2:=(w1).a_recfull).sem_val┆
0x330fc…33102 (0x25c,0x663)
0x33102…33120 75 65 3a 3d 77 30 3a 3d 30 3b 0a 20 20 20 20 20 20 66 31 3a 3d 73 61 76 65 66 31 3b 0a 20 ┆ue:=w0:=0; f1:=savef1; ┆
0x33120…33140 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 72 65 74 75 72 ┆ w2:=savew2; w3:=retur┆
0x33140…33160 6e 3b 0a 20 20 20 20 65 6e 64 3b 0a 20 20 65 6e 64 3b 20 20 21 20 69 6e 69 74 5f 61 72 65 61 20 ┆n; end; end; ! init_area ┆
0x33160…3317a 21 0a 0a 0a 0a 20 20 62 6f 64 79 20 6f 66 20 63 6f 6e 6e 65 63 74 0a 20 20 62 ┆! body of connect b┆
0x3317a…33180 (0x25c,0x664)
0x33180…331a0 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┆
0x331a0…331c0 65 66 31 2c 73 61 76 65 66 33 3b 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 73 61 76 65 ┆ef1,savef3; begin save┆
0x331c0…331e0 66 31 3a 3d 66 31 3b 0a 20 20 20 20 20 20 73 61 76 65 66 33 3a 3d 66 33 3b 0a 20 20 20 20 20 20 ┆f1:=f1; savef3:=f3; ┆
0x331e0…33200 77 32 3a 3d 28 77 33 29 2e 63 6f 6e 5f 70 68 68 65 61 64 3b 0a 20 20 20 00 00 00 00 00 00 00 00 ┆w2:=(w3).con_phhead; ┆
0x33200…33206 (409,) (0x25c,0x665)
0x33206…33220 20 20 20 77 30 3a 3d 28 77 32 29 2e 70 68 5f 63 68 69 6c 64 3b 0a 20 20 20 20 ┆ w0:=(w2).ph_child; ┆
0x33220…33240 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 2e 63 6f 6e 5f 74 68 ┆ (w2).ph_child:=w1:=(w3).con_th┆
0x33240…33260 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 3d 77 30 3b 0a 20 20 ┆head; (w1).th_next:=w0; ┆
0x33260…3327e 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 20 20 20 20 20 ┆ (w1).th_parent:= w2; ┆
0x3327e…33284 (0x25c,0x666)
0x33284…332a0 20 69 66 20 77 31 3a 3d 28 77 32 29 2e 63 5f 6d 62 75 66 3e 30 20 74 68 65 6e 0a 20 ┆ if w1:=(w2).c_mbuf>0 then ┆
0x332a0…332c0 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 21 20 61 6e 73 77 65 72 20 70 65 6e 64 ┆ begin ! answer pend┆
0x332c0…332e0 69 6e 67 20 69 6e 70 75 74 20 6f 72 20 73 65 6e 73 65 20 6f 70 65 72 61 74 69 6f 6e 20 21 0a 20 ┆ing input or sense operation ! ┆
0x332e0…332fc 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 31 29 2e 6d 65 73 73 5f 6f 70 3c 3d ┆ if w0:=(w1).mess_op<=┆
0x332fc…33302 (0x25c,0x667)
0x33302…33320 33 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 ┆3 then begin ┆
0x33320…33340 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 75 66 5f 6c ┆ put_op(.w3.,w0:=!position(buf_l┆
0x33340…33360 6f 63 61 6c 69 64 29 2c 77 31 2c 77 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 62 ┆ocalid),w1,w2); (w1).b┆
0x33360…3337a 75 66 5f 72 65 73 75 6c 74 3a 3d 20 77 30 3a 3d 20 31 3b 0a 20 20 20 20 20 20 ┆uf_result:= w0:= 1; ┆
0x3337a…33380 (0x25c,0x668)
0x33380…333a0 20 20 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 30 3b 0a 20 20 ┆ (w1).buf_status:= w0:= 0; ┆
0x333a0…333c0 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 30 3b 0a 20 20 20 ┆ (w1).buf_bytes:= w0; ┆
0x333c0…333e0 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 20 20 20 20 ┆ (w1).buf_chars:= w0; ┆
0x333e0…33400 20 20 20 20 20 20 28 77 31 29 2e 62 75 66 5f 69 6e 63 61 72 3a 3d 20 77 00 00 00 00 00 00 00 00 ┆ (w1).buf_incar:= w ┆
0x33400…33406 (410,) (0x25c,0x669)
0x33406…33420 30 3a 3d 20 2d 31 3b 20 21 20 65 6e 64 20 72 65 63 6f 72 64 20 6e 6f 74 20 65 ┆0:= -1; ! end record not e┆
0x33420…33440 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 3b 0a 20 20 20 20 20 ┆xisting th ! end; ┆
0x33440…33460 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 20 20 20 20 20 20 74 ┆ end; f3:= savef3; t┆
0x33460…3347e 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 ┆estout(.w3.,w0:=4,w1:=w3,w2:=5┆
0x3347e…33484 (0x25c,0x66a)
0x33484…334a0 37 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 ┆7); f1:=savef1; ┆
0x334a0…334c0 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 20 20 21 20 63 ┆f3:=savef3; end; end; ! c┆
0x334c0…334e0 6f 6e 6e 65 63 74 20 21 0a 0a 0a 0a 20 20 62 6f 64 79 20 6f 66 20 64 69 73 63 6f 6e 6e 65 63 74 ┆onnect ! body of disconnect┆
0x334e0…334fc 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 6c 61 62 65 6c 20 65 78 69 74 3b 0a 20 20 20 ┆ begin label exit; ┆
0x334fc…33502 (0x25c,0x66b)
0x33502…33520 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 2c 73 61 ┆ incode double savef1,sa┆
0x33520…33540 76 65 66 33 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 ┆vef3; begin savef1:=f1┆
0x33540…33560 3b 0a 20 20 20 20 20 20 73 61 76 65 66 33 3a 3d 66 33 3b 0a 20 20 20 20 20 20 77 32 3a 3d 28 77 ┆; savef3:=f3; w2:=(w┆
0x33560…3357a 33 29 2e 64 69 73 5f 70 68 68 65 61 64 3b 0a 20 20 20 20 20 20 77 31 3a 3d 28 ┆3).dis_phhead; w1:=(┆
0x3357a…33580 (0x25c,0x66c)
0x33580…335a0 77 32 29 2e 70 68 5f 63 68 69 6c 64 3b 0a 20 20 20 20 20 20 69 66 20 77 31 20 3d 20 28 77 33 29 ┆w2).ph_child; if w1 = (w3)┆
0x335a0…335c0 2e 64 69 73 5f 74 68 68 65 61 64 20 74 68 65 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 20 20 21 20 ┆.dis_thhead then begin ! ┆
0x335c0…335e0 64 69 73 63 6f 6e 6e 65 63 74 20 66 69 72 73 74 20 70 68 20 21 0a 20 20 20 20 20 20 20 20 28 77 ┆disconnect first ph ! (w┆
0x335e0…33600 32 29 2e 70 68 5f 63 68 69 6c 64 3a 3d 77 30 3a 3d 28 77 31 29 2e 74 68 00 00 00 00 00 00 00 00 ┆2).ph_child:=w0:=(w1).th ┆
0x33600…33606 (411,) (0x25c,0x66d)
0x33606…33620 5f 6e 65 78 74 3b 0a 20 20 20 20 20 20 20 20 77 30 3a 3d 30 3b 0a 20 20 20 20 ┆_next; w0:=0; ┆
0x33620…33640 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 20 20 20 20 20 67 6f ┆ (w1).th_next:=w0; go┆
0x33640…33660 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 20 77 32 3a 3d 20 77 ┆to exit; end; w2:= w┆
0x33660…3367e 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 68 5f 6e 65 78 ┆1; while w1:=(w1).th_nex┆
0x3367e…33684 (0x25c,0x66e)
0x33684…336a0 74 3c 3e 30 20 64 6f 0a 20 20 20 20 20 20 62 65 67 69 6e 20 20 21 20 73 63 61 6e 20 ┆t<>0 do begin ! scan ┆
0x336a0…336c0 74 68 20 63 68 61 69 6e 20 74 6f 20 66 69 6e 64 20 61 63 74 75 61 6c 20 6f 6e 65 20 21 0a 20 20 ┆th chain to find actual one ! ┆
0x336c0…336e0 20 20 20 20 20 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 ┆ if w1 = (w3).dis_thhead th┆
0x336e0…336fc 65 6e 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 20 21 20 64 69 73 63 6f 6e 6e 65 ┆en begin ! disconne┆
0x336fc…33702 (0x25c,0x66f)
0x33702…33720 63 74 20 74 68 20 21 0a 20 20 20 20 20 20 20 20 20 20 28 77 32 29 2e 74 68 5f 6e 65 78 74 ┆ct th ! (w2).th_next┆
0x33720…33740 3a 3d 77 30 3a 3d 28 77 31 29 2e 74 68 5f 6e 65 78 74 3b 0a 20 20 20 20 20 20 20 20 20 20 77 30 ┆:=w0:=(w1).th_next; w0┆
0x33740…33760 3a 3d 30 3b 0a 20 20 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 ┆:=0; (w1).th_next:=w0;┆
0x33760…3377a 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 20 ┆ goto exit; ┆
0x3377a…33780 (0x25c,0x670)
0x33780…337a0 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 77 32 3a 3d 20 77 31 3b 0a 20 20 20 20 20 20 ┆ end; w2:= w1; ┆
0x337a0…337c0 65 6e 64 3b 0a 65 78 69 74 3a 0a 20 20 20 20 20 20 74 65 73 74 6f 75 74 28 2e 77 33 2e 2c 77 30 ┆end; exit: testout(.w3.,w0┆
0x337c0…337e0 3a 3d 34 2c 77 31 3a 3d 77 33 2c 77 32 3a 3d 35 38 29 3b 0a 20 20 20 20 20 20 66 31 3a 3d 73 61 ┆:=4,w1:=w3,w2:=58); f1:=sa┆
0x337e0…33800 76 65 66 31 3b 0a 20 20 20 20 20 20 66 33 3a 3d 73 61 76 65 66 33 3b 0a 00 00 00 00 00 00 00 00 ┆vef1; f3:=savef3; ┆
0x33800…33806 (412,) (0x25c,0x671)
0x33806…33820 20 20 20 20 65 6e 64 3b 0a 20 20 65 6e 64 3b 20 20 21 20 64 69 73 63 6f 6e 6e ┆ end; end; ! disconn┆
0x33820…33840 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 68 0a 20 20 62 65 67 ┆ect ! body of find_ph beg┆
0x33840…33860 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 6e 63 6f 64 65 0a 20 ┆in label found; incode ┆
0x33860…3387e 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 72 65 65 70 68 ┆ word savew0,savew2,freeph┆
0x3387e…33884 (0x25c,0x672)
0x33884…338a0 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┆
0x338a0…338c0 6e 0a 20 20 20 20 20 20 73 61 76 65 77 30 3a 3d 77 30 3b 0a 20 20 20 20 20 20 73 61 76 65 77 32 ┆n savew0:=w0; savew2┆
0x338c0…338e0 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 69 66 ┆:=w2; return:=w3; if┆
0x338e0…338fc 20 77 32 3a 3d 28 77 33 29 2e 66 70 5f 70 73 70 72 6f 63 20 3c 20 30 20 74 68 65 6e ┆ w2:=(w3).fp_psproc < 0 then┆
0x338fc…33902 (0x25c,0x673)
0x33902…33920 20 2d 28 77 32 29 3b 0a 20 20 20 20 20 20 66 72 65 65 70 68 3a 3d 77 30 3a 3d 30 3b 0a 20 ┆ -(w2); freeph:=w0:=0; ┆
0x33920…33940 20 20 20 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 77 68 69 ┆ w1:=b.phpool_top; whi┆
0x33940…33960 6c 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 ┆le w1-!length(processhandler) >=┆
0x33960…3397a 20 62 2e 70 68 70 6f 6f 6c 5f 66 73 74 20 64 6f 0a 20 20 20 20 20 20 62 65 67 ┆ b.phpool_fst do beg┆
0x3397a…33980 (0x25c,0x674)
0x33980…339a0 69 6e 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 31 29 2e 70 68 5f 70 61 72 65 6e 74 ┆in if w0:=(w1).ph_parent┆
0x339a0…339c0 20 3d 20 28 77 33 29 2e 66 70 5f 73 65 6e 64 65 72 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 62 ┆ = (w3).fp_sender then b┆
0x339c0…339e0 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 32 20 3d 20 28 77 31 29 2e 70 68 5f 70 ┆egin if w2 = (w1).ph_p┆
0x339e0…33a00 73 70 72 6f 63 20 74 68 65 6e 20 67 6f 74 6f 20 66 6f 75 6e 64 3b 0a 20 00 00 00 00 00 00 00 00 ┆sproc then goto found; ┆
0x33a00…33a06 (413,) (0x25c,0x675)
0x33a06…33a20 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 ┆
0x33a20…33a40 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 20 3d 20 30 20 ┆ begin if w0 = 0 ┆
0x33a40…33a60 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 65 6e 64 3b 0a 20 20 ┆then freeph:=w1; end; ┆
0x33a60…33a7e 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 70 68 29 3b 0a ┆ end; -(w1:=freeph); ┆
0x33a7e…33a84 (0x25c,0x676)
0x33a84…33aa0 66 6f 75 6e 64 3a 0a 20 20 20 20 20 20 77 30 3a 3d 73 61 76 65 77 30 3b 0a 20 20 20 ┆found: w0:=savew0; ┆
0x33aa0…33ac0 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 72 65 74 75 72 6e 3b ┆ w2:=savew2; w3:=return;┆
0x33ac0…33ae0 0a 20 20 20 20 65 6e 64 3b 0a 20 20 65 6e 64 3b 20 20 21 20 66 69 6e 64 5f 70 68 20 21 0a 0a 0a ┆ end; end; ! find_ph ! ┆
0x33ae0…33afc 0a 20 20 62 6f 64 79 20 6f 66 20 77 61 69 74 5f 6f 70 0a 20 20 62 65 67 69 6e 0a 20 ┆ body of wait_op begin ┆
0x33afc…33b02 (0x25c,0x677)
0x33b02…33b20 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 ┆ incode ref return; ┆
0x33b20…33b40 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 77 31 3a 3d 20 62 2e 63 75 72 72 65 6e 74 3b 0a 20 20 ┆ begin w1:= b.current; ┆
0x33b40…33b60 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 28 77 31 29 2e ┆ (w1).c_ww2:= w2; (w1).┆
0x33b60…33b7a 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 ┆c_ww3:= w3; lock(.w┆
0x33b7a…33b80 (0x25c,0x678)
0x33b80…33ba0 33 2e 2c 77 30 3a 3d 31 2c 77 32 3a 3d 28 77 32 29 2e 61 5f 72 65 63 66 75 6c 6c 29 3b 0a 20 20 ┆3.,w0:=1,w2:=(w2).a_recfull); ┆
0x33ba0…33bc0 20 20 20 20 6f 70 65 6e 28 2e 77 33 2e 2c 77 30 2c 77 32 29 3b 0a 20 20 20 20 20 20 77 33 3a 3d ┆ open(.w3.,w0,w2); w3:=┆
0x33bc0…33be0 20 28 77 33 29 2e 63 5f 77 77 32 3b 0a 20 20 20 20 20 20 73 77 6f 70 28 2e 77 33 2e 2c 77 32 3a ┆ (w3).c_ww2; swop(.w3.,w2:┆
0x33be0…33c00 3d 31 2c 77 30 3a 3d 28 77 33 29 2e 61 5f 66 69 72 73 74 66 75 6c 6c 20 00 00 00 00 00 00 00 00 ┆=1,w0:=(w3).a_firstfull ┆
0x33c00…33c06 (414,) (0x25c,0x679)
0x33c06…33c20 61 73 68 69 66 74 20 2d 39 2c 77 31 29 3b 0a 20 20 20 20 20 20 77 32 3a 3d 20 ┆ashift -9,w1); w2:= ┆
0x33c20…33c40 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 32 29 2e 61 5f 66 69 ┆(w3).c_ww2; w0:= (w2).a_fi┆
0x33c40…33c60 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 30 3b 0a ┆rstfull extract 9; w1+w0; ┆
0x33c60…33c7e 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 2c 77 31 2c 77 ┆ testout(.w3.,w0:=20,w1,w┆
0x33c7e…33c84 (0x25c,0x67a)
0x33c84…33ca0 32 3a 3d 36 36 29 3b 0a 20 20 20 20 20 20 77 30 3a 3d 20 28 77 31 29 2e 77 6f 72 64 ┆2:=66); w0:= (w1).word┆
0x33ca0…33cc0 2d 32 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 28 77 33 29 2e ┆-2; w1+2; w2:= (w3).┆
0x33cc0…33ce0 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 0a 20 20 20 20 20 20 ┆c_ww3; return:= w2; ┆
0x33ce0…33cfc 77 32 3a 3d 20 28 77 33 29 2e 63 5f 77 77 32 3b 0a 20 20 20 20 20 20 63 61 6c 6c 20 ┆w2:= (w3).c_ww2; call ┆
0x33cfc…33d02 (0x25c,0x67b)
0x33d02…33d20 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 77 ┆w0 return; end; end; ! w┆
0x33d20…33d40 61 69 74 5f 6f 70 20 21 0a 0a 0a 20 20 62 6f 64 79 20 6f 66 20 67 65 74 5f 6f 70 0a 20 20 62 65 ┆ait_op ! body of get_op be┆
0x33d40…33d60 67 69 6e 0a 20 20 20 20 69 6e 63 6f 64 65 0a 20 20 20 20 77 6f 72 64 20 73 65 67 6d 65 6e 74 3b ┆gin incode word segment;┆
0x33d60…33d7a 0a 20 20 20 20 72 65 66 20 72 65 63 5f 72 65 66 3b 0a 20 20 20 20 72 65 66 20 ┆ ref rec_ref; ref ┆
0x33d7a…33d80 (0x25c,0x67c)
0x33d80…33da0 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 3d 20 62 2e 63 ┆return; begin w1:= b.c┆
0x33da0…33dc0 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 77 32 3b 0a 20 ┆urrent; (w1).c_ww2:= w2; ┆
0x33dc0…33de0 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 20 20 6c 6f 63 ┆ (w1).c_ww3:= w3; loc┆
0x33de0…33e00 6b 28 2e 77 33 2e 2c 77 30 3a 3d 31 2c 77 32 3a 3d 28 77 32 29 2e 61 5f 00 00 00 00 00 00 00 00 ┆k(.w3.,w0:=1,w2:=(w2).a_ ┆
0x33e00…33e06 (415,) (0x25c,0x67d)
0x33e06…33e20 72 65 63 66 75 6c 6c 29 3b 0a 20 20 20 20 20 20 77 33 3a 3d 20 28 77 33 29 2e ┆recfull); w3:= (w3).┆
0x33e20…33e40 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 3a 3d 20 28 77 33 29 ┆c_ww2; segment:= w0:= (w3)┆
0x33e40…33e60 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 20 20 20 20 20 73 77 ┆.a_firstfull ashift -9; sw┆
0x33e60…33e7e 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 20 20 20 20 77 ┆op(.w3.,w2:=1,w0, w1); w┆
0x33e7e…33e84 (0x25c,0x67e)
0x33e84…33ea0 32 3a 3d 20 28 77 32 3a 3d 62 2e 63 75 72 72 65 6e 74 29 2e 63 5f 77 77 32 3b 0a 0a ┆2:= (w2:=b.current).c_ww2; ┆
0x33ea0…33ec0 20 20 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 65 78 74 72 ┆ w0:= (w2).a_firstfull extr┆
0x33ec0…33ee0 61 63 74 20 39 3b 0a 20 20 20 20 20 20 77 31 2b 77 30 3b 0a 20 20 20 20 20 20 72 65 63 5f 72 65 ┆act 9; w1+w0; rec_re┆
0x33ee0…33efc 66 3a 3d 20 77 31 3b 20 21 20 73 61 76 65 20 72 65 66 65 72 65 6e 63 65 20 74 6f 20 ┆f:= w1; ! save reference to ┆
0x33efc…33f02 (0x25c,0x67f)
0x33f02…33f20 72 65 63 6f 72 64 20 21 0a 20 20 20 20 20 20 21 20 63 6f 6d 70 75 74 65 20 6e 65 77 20 66 ┆record ! ! compute new f┆
0x33f20…33f40 69 72 73 74 66 75 6c 6c 2c 20 69 66 20 61 72 65 61 20 69 73 20 65 6d 70 74 79 20 73 65 74 20 66 ┆irstfull, if area is empty set f┆
0x33f40…33f60 69 72 73 74 66 75 6c 6c 20 21 0a 20 20 20 20 20 20 21 20 61 6e 64 20 66 69 72 73 74 66 72 65 65 ┆irstfull ! ! and firstfree┆
0x33f60…33f7a 20 74 6f 20 73 74 61 72 74 20 6f 66 20 63 75 72 72 65 6e 74 20 73 65 67 6d 65 ┆ to start of current segme┆
0x33f7a…33f80 (0x25c,0x680)
0x33f80…33fa0 6e 74 20 20 20 20 20 20 20 20 20 20 20 20 20 21 0a 20 20 20 20 20 20 77 30 3a 3d 20 28 77 32 29 ┆nt ! w0:= (w2)┆
0x33fa0…33fc0 2e 61 5f 66 69 72 73 74 66 75 6c 6c 20 2b 20 28 77 31 29 2e 77 6f 72 64 3b 0a 20 20 20 20 20 20 ┆.a_firstfull + (w1).word; ┆
0x33fc0…33fe0 69 66 20 77 30 3c 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 ┆if w0<>(w2).a_firstfree then ┆
0x33fe0…34000 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 77 33 3a 3d 20 77 31 00 00 00 00 00 00 00 00 ┆ begin w3:= w1 ┆
0x34000…34006 (416,) (0x25c,0x681)
0x34006…34020 2b 28 77 31 29 2e 77 6f 72 64 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 33 3a ┆+(w1).word; if w3:┆
0x34020…34040 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 20 20 20 20 20 62 65 ┆= (w3).word = -1 then be┆
0x34040…34060 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 65 6e 74 20 21 0a 20 ┆gin ! last record on segment ! ┆
0x34060…3407e 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 20 61 73 68 69 ┆ w0+512 ashift -9 ashi┆
0x3407e…34084 (0x25c,0x682)
0x34084…340a0 66 74 20 39 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3e 3d 28 77 32 29 2e ┆ft 9; if w0>=(w2).┆
0x340a0…340c0 61 5f 74 6f 70 20 74 68 65 6e 20 77 30 3a 3d 20 28 77 32 29 2e 61 5f 66 69 72 73 74 3b 0a 20 20 ┆a_top then w0:= (w2).a_first; ┆
0x340c0…340e0 20 20 20 20 20 20 20 20 28 77 32 29 2e 61 5f 66 69 72 73 74 66 75 6c 6c 3a 3d 77 30 3b 0a 20 20 ┆ (w2).a_firstfull:=w0; ┆
0x340e0…340fc 20 20 20 20 20 20 20 20 6f 70 65 6e 28 2e 77 33 2e 2c 77 30 3a 3d 35 31 32 2c 77 32 ┆ open(.w3.,w0:=512,w2┆
0x340fc…34102 (0x25c,0x683)
0x34102…34120 3a 3d 28 77 32 29 2e 61 5f 62 79 74 65 73 66 72 65 65 29 3b 0a 20 20 20 20 20 20 20 20 20 ┆:=(w2).a_bytesfree); ┆
0x34120…34140 20 73 77 6f 70 28 2e 77 33 2e 2c 77 32 3a 3d 34 2c 77 30 3a 3d 73 65 67 6d 65 6e 74 2c 77 31 29 ┆ swop(.w3.,w2:=4,w0:=segment,w1)┆
0x34140…34160 3b 20 21 20 72 65 6c 65 61 73 65 20 62 75 66 66 65 72 20 21 0a 20 20 20 20 20 20 20 20 20 20 77 ┆; ! release buffer ! w┆
0x34160…3417a 32 3a 3d 20 28 77 33 29 2e 63 5f 77 77 32 3b 0a 20 20 20 20 20 20 20 20 65 6e ┆2:= (w3).c_ww2; en┆
0x3417a…34180 (0x25c,0x684)
0x34180…341a0 64 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 28 77 32 29 2e 61 5f 66 69 72 73 74 66 75 6c 6c 3a ┆d else (w2).a_firstfull:┆
0x341a0…341c0 3d 20 77 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 20 ┆= w0; end else ┆
0x341c0…341e0 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 28 77 32 29 2e 61 5f 66 69 72 73 74 66 75 6c 6c 3a ┆ begin (w2).a_firstfull:┆
0x341e0…34200 3d 20 77 30 20 61 73 68 69 66 74 20 2d 39 20 61 73 68 69 66 74 20 39 3b 00 00 00 00 00 00 00 00 ┆= w0 ashift -9 ashift 9; ┆
0x34200…34206 (417,) (0x25c,0x685)
0x34206…34220 0a 20 20 20 20 20 20 20 20 28 77 32 29 2e 61 5f 66 69 72 73 74 66 72 65 65 3a ┆ (w2).a_firstfree:┆
0x34220…34240 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 32 3a 3d 34 2c 77 30 ┆= w0; swop(.w3.,w2:=4,w0┆
0x34240…34260 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 72 20 ┆:=segment,w1); ! release buffer ┆
0x34260…3427e 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 74 28 2e 77 33 ┆! end; testout(.w3┆
0x3427e…34284 (0x25c,0x686)
0x34284…342a0 2e 2c 77 30 3a 3d 32 2c 77 31 3a 3d 72 65 63 5f 72 65 66 2c 77 32 3a 3d 35 30 29 3b ┆.,w0:=2,w1:=rec_ref,w2:=50);┆
0x342a0…342c0 0a 0a 20 20 20 20 20 20 77 30 3a 3d 20 28 77 31 29 2e 77 6f 72 64 20 2d 20 32 3b 0a 20 20 20 20 ┆ w0:= (w1).word - 2; ┆
0x342c0…342e0 20 20 77 31 2b 32 3b 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 ┆ w1+2; w2:= (w3).c_ww3; ┆
0x342e0…342fc 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 32 3a 3d ┆ return:= w2; w2:=┆
0x342fc…34302 (0x25c,0x687)
0x34302…34320 20 28 77 33 29 2e 63 5f 77 77 32 3b 0a 20 20 20 20 20 20 63 61 6c 6c 20 77 30 20 72 65 74 ┆ (w3).c_ww2; call w0 ret┆
0x34320…34340 75 72 6e 3b 0a 20 20 20 20 65 6e 64 3b 0a 20 20 65 6e 64 3b 20 21 20 67 65 74 5f 6f 70 20 21 0a ┆urn; end; end; ! get_op ! ┆
0x34340…34360 0a 0a 0a 20 20 62 6f 64 79 20 6f 66 20 70 75 74 5f 6f 70 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 ┆ body of put_op begin ┆
0x34360…3437a 69 6e 63 6f 64 65 0a 20 20 20 20 72 65 66 20 72 65 74 75 72 6e 3b 0a 20 20 20 ┆incode ref return; ┆
0x3437a…34380 (0x25c,0x688)
0x34380…343a0 20 62 65 67 69 6e 0a 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 ┆ begin w1:= b.current; ┆
0x343a0…343c0 20 20 20 28 77 31 29 2e 63 5f 77 77 30 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 28 77 31 29 2e 63 ┆ (w1).c_ww0:= w0; (w1).c┆
0x343c0…343e0 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 20 77 33 ┆_ww2:= w2; (w1).c_ww3:= w3┆
0x343e0…34400 3b 0a 0a 20 20 20 20 20 20 6c 6f 63 6b 28 2e 77 33 2e 2c 77 30 3a 3d 35 00 00 00 00 00 00 00 00 ┆; lock(.w3.,w0:=5 ┆
0x34400…34406 (418,) (0x25c,0x689)
0x34406…34420 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); ┆
0x34420…34440 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 20 20 20 77 32 3a 3d ┆ w0:=(w1).c_ww0; w2:=┆
0x34440…34460 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 21 20 6f 70 65 72 61 ┆(w1).c_ww2; begin ! opera┆
0x34460…3447e 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 20 20 20 21 20 ┆tion buffer ready ! ! ┆
0x3447e…34484 (0x25c,0x68a)
0x34484…344a0 63 68 61 6e 67 65 20 73 65 67 6d 65 6e 74 20 69 66 20 63 6c 61 69 6d 20 3e 20 72 65 ┆change segment if claim > re┆
0x344a0…344c0 73 74 20 6f 6e 20 63 75 72 72 65 6e 74 20 73 65 67 6d 65 6e 74 20 21 0a 20 20 20 20 20 20 20 20 ┆st on current segment ! ┆
0x344c0…344e0 21 20 65 6c 73 65 20 72 65 6c 65 61 73 65 20 73 65 67 6d 65 6e 74 20 21 0a 20 20 20 20 20 20 20 ┆! else release segment ! ┆
0x344e0…344fc 20 77 30 2b 32 3b 0a 20 20 20 20 20 20 20 20 77 31 3a 3d 20 28 77 32 29 2e 61 5f 66 ┆ w0+2; w1:= (w2).a_f┆
0x344fc…34502 (0x25c,0x68b)
0x34502…34520 69 72 73 74 66 72 65 65 20 2b 20 77 30 20 61 73 68 69 66 74 20 2d 39 20 61 73 68 69 66 74 ┆irstfree + w0 ashift -9 ashift┆
0x34520…34540 20 39 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 31 3e 28 77 32 29 2e 61 5f 66 69 72 73 74 66 72 ┆ 9; if w1>(w2).a_firstfr┆
0x34540…34560 65 65 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 ┆ee then begin ┆
0x34560…3457a 69 66 20 77 31 3e 3d 28 77 32 29 2e 61 5f 74 6f 70 20 74 68 65 6e 20 77 31 3a ┆if w1>=(w2).a_top then w1:┆
0x3457a…34580 (0x25c,0x68c)
0x34580…345a0 3d 20 28 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 ┆= (w2).a_first; (w2).a┆
0x345a0…345c0 5f 66 69 72 73 74 66 72 65 65 3a 3d 20 77 31 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 0a 20 20 20 ┆_firstfree:= w1; end ┆
0x345c0…345e0 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 20 20 20 ┆ else begin ┆
0x345e0…34600 20 20 6f 70 65 6e 28 2e 77 33 2e 2c 77 30 3a 3d 35 31 32 2c 77 32 3a 3d 00 00 00 00 00 00 00 00 ┆ open(.w3.,w0:=512,w2:= ┆
0x34600…34606 (419,) (0x25c,0x68d)
0x34606…34620 28 77 32 29 2e 61 5f 62 79 74 65 73 66 72 65 65 29 3b 0a 20 20 20 20 20 20 20 ┆(w2).a_bytesfree); ┆
0x34620…34640 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 5f 77 77 32 3b 0a 20 ┆ end; w2:= (w3).c_ww2; ┆
0x34640…34660 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 74 66 72 65 65 20 65 ┆ if w2:=(w2).a_firstfree e┆
0x34660…3467e 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 64 6f 6e 74 20 ┆xtract 9=0 then w2:=2 ! dont ┆
0x3467e…34684 (0x25c,0x68e)
0x34684…346a0 73 77 6f 70 20 69 6e 20 21 0a 20 20 20 20 20 20 20 20 65 6c 73 65 20 77 32 3a 3d 20 ┆swop in ! else w2:= ┆
0x346a0…346c0 33 3b 0a 20 20 20 20 20 20 20 20 73 77 6f 70 28 2e 77 33 2e 2c 77 32 2c 77 30 3a 3d 77 31 20 61 ┆3; swop(.w3.,w2,w0:=w1 a┆
0x346c0…346e0 73 68 69 66 74 20 2d 39 2c 77 31 29 3b 0a 20 20 20 20 20 20 20 20 77 32 3a 3d 20 28 77 33 29 2e ┆shift -9,w1); w2:= (w3).┆
0x346e0…346fc 63 5f 77 77 32 3b 0a 20 20 20 20 20 20 20 20 77 30 3a 3d 20 28 77 32 29 2e 61 5f 66 ┆c_ww2; w0:= (w2).a_f┆
0x346fc…34702 (0x25c,0x68f)
0x34702…34720 69 72 73 74 66 72 65 65 20 65 78 74 72 61 63 74 20 39 3b 0a 20 20 20 20 20 20 20 20 77 31 ┆irstfree extract 9; w1┆
0x34720…34740 2b 77 30 3b 0a 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 28 77 ┆+w0; (w1).word:= w0:= (w┆
0x34740…34760 33 29 2e 63 5f 77 77 30 20 2b 20 32 3b 0a 20 20 20 20 20 20 20 20 77 33 3a 3d 77 31 2b 77 30 3b ┆3).c_ww0 + 2; w3:=w1+w0;┆
0x34760…3477a 0a 20 20 20 20 20 20 20 20 28 77 32 29 2e 61 5f 66 69 72 73 74 66 72 65 65 3a ┆ (w2).a_firstfree:┆
0x3477a…34780 (0x25c,0x690)
0x34780…347a0 3d 20 77 30 20 2b 20 28 77 32 29 2e 61 5f 66 69 72 73 74 66 72 65 65 3b 0a 20 20 20 20 20 20 20 ┆= w0 + (w2).a_firstfree; ┆
0x347a0…347c0 20 28 77 33 29 2e 77 6f 72 64 3a 3d 77 30 3a 3d 2d 31 3b 0a 0a 20 20 20 20 20 20 20 20 6f 70 65 ┆ (w3).word:=w0:=-1; ope┆
0x347c0…347e0 6e 28 2e 77 33 2e 2c 77 30 3a 3d 31 2c 77 32 3a 3d 28 77 32 29 2e 61 5f 72 65 63 66 75 6c 6c 29 ┆n(.w3.,w0:=1,w2:=(w2).a_recfull)┆
0x347e0…34800 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 74 65 73 74 6f 00 00 00 00 00 00 00 00 ┆; end; testo ┆
0x34800…34806 (420,) (0x25c,0x691)
0x34806…34820 75 74 28 2e 77 33 2e 2c 77 30 3a 3d 32 2c 77 31 2c 77 32 3a 3d 35 31 29 3b 0a ┆ut(.w3.,w0:=2,w1,w2:=51); ┆
0x34820…34840 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 20 20 20 20 20 72 65 ┆ w2:= (w3).c_ww3; re┆
0x34840…34860 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 29 2e 63 5f 77 77 30 ┆turn:= w2; w0:= (w3).c_ww0┆
0x34860…3487e 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 28 77 33 29 2e ┆; w1+2; w2:= (w3).┆
0x3487e…34884 (0x25c,0x692)
0x34884…348a0 63 5f 77 77 32 3b 0a 20 20 20 20 20 20 63 61 6c 6c 20 77 30 20 72 65 74 75 72 6e 3b ┆c_ww2; call w0 return;┆
0x348a0…348c0 0a 20 20 20 20 65 6e 64 3b 0a 20 20 65 6e 64 3b 20 21 20 70 75 74 5f 6f 70 20 21 0a 0a 0a 0a 20 ┆ end; end; ! put_op ! ┆
0x348c0…348e0 20 62 6f 64 79 20 6f 66 20 73 77 6f 70 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 70 72 6f 63 65 64 ┆ body of swop begin proced┆
0x348e0…348fc 75 72 65 20 74 72 61 6e 73 70 6f 72 74 28 2e 77 33 2e 3b 0a 20 20 20 20 20 20 20 20 ┆ure transport(.w3.; ┆
0x348fc…34902 (0x25c,0x693)
0x34902…34920 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 29 3b 20 21 20 6d 65 73 73 61 67 ┆ w1); ! messag┆
0x34920…34940 65 20 61 64 64 72 65 73 73 20 28 63 61 6c 6c 29 20 21 0a 20 20 20 20 69 6e 63 6f 64 65 0a 20 20 ┆e address (call) ! incode ┆
0x34940…34960 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 6f 75 6e 64 3b 0a 20 ┆ word savew2; word found; ┆
0x34960…3497a 20 20 20 72 65 66 20 20 77 69 63 74 69 6d 2c 20 72 65 74 75 72 6e 3b 0a 0a 20 ┆ ref wictim, return; ┆
0x3497a…34980 (0x25c,0x694)
0x34980…349a0 20 20 20 62 79 74 65 20 6f 70 2c 20 6d 6f 64 65 3b 0a 20 20 20 20 72 65 66 20 66 69 72 73 74 2c ┆ byte op, mode; ref first,┆
0x349a0…349c0 20 6c 61 73 74 3b 0a 20 20 20 20 77 6f 72 64 20 73 5f 6e 6f 3b 0a 20 20 20 20 77 6f 72 64 20 62 ┆ last; word s_no; word b┆
0x349c0…349e0 69 74 6d 61 73 6b 3a 3d 20 38 27 32 30 30 30 30 30 30 30 3b 0a 20 20 20 20 62 65 67 69 6e 0a 20 ┆itmask:= 8'20000000; begin ┆
0x349e0…34a00 20 20 20 20 20 73 61 76 65 77 32 3a 3d 20 77 32 3b 20 72 65 74 75 72 6e 00 00 00 00 00 00 00 00 ┆ savew2:= w2; return ┆
0x34a00…34a06 (421,) (0x25c,0x695)
0x34a06…34a20 3a 3d 20 77 33 3b 0a 20 20 20 20 20 20 66 6f 75 6e 64 3a 3d 20 77 31 3a 3d 20 ┆:= w3; found:= w1:= ┆
0x34a20…34a40 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 2e 73 65 67 70 6f 6f ┆-1; wictim:= w1:= b.segpoo┆
0x34a40…34a60 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 73 65 67 70 6f 6f 6c ┆l_fst; while w1<b.segpool┆
0x34a60…34a7e 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 20 20 20 77 33 ┆_top do begin w3┆
0x34a7e…34a84 (0x25c,0x696)
0x34a84…34aa0 3a 3d 20 28 77 31 29 2e 73 65 67 5f 6e 6f 20 65 78 74 72 61 63 74 20 32 32 3b 0a 20 ┆:= (w1).seg_no extract 22; ┆
0x34aa0…34ac0 20 20 20 20 20 20 20 69 66 20 77 30 3d 77 33 20 74 68 65 6e 20 66 6f 75 6e 64 3a 3d 20 77 31 3b ┆ if w0=w3 then found:= w1;┆
0x34ac0…34ae0 0a 20 20 20 20 20 20 20 20 69 66 20 77 33 3a 3d 28 77 31 29 2e 73 65 67 5f 70 72 69 6f 3c 77 69 ┆ if w3:=(w1).seg_prio<wi┆
0x34ae0…34afc 63 74 69 6d 2e 73 65 67 5f 70 72 69 6f 20 74 68 65 6e 20 77 69 63 74 69 6d 3a 3d 20 ┆ctim.seg_prio then wictim:= ┆
0x34afc…34b02 (0x25c,0x697)
0x34b02…34b20 77 31 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 73 65 67 5f 70 72 69 6f 3a 3d 20 77 33 ┆w1; (w1).seg_prio:= w3┆
0x34b20…34b40 2d 31 3b 0a 20 20 20 20 20 20 20 20 77 31 2b 62 2e 73 65 67 5f 73 69 7a 65 3b 0a 20 20 20 20 20 ┆-1; w1+b.seg_size; ┆
0x34b40…34b60 20 65 6e 64 3b 0a 0a 20 20 20 20 20 20 69 66 20 77 31 3a 3d 20 66 6f 75 6e 64 3d 2d 31 20 74 68 ┆ end; if w1:= found=-1 th┆
0x34b60…34b7a 65 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 20 21 20 73 65 67 6d 65 6e 74 20 6e ┆en begin ! segment n┆
0x34b7a…34b80 (0x25c,0x698)
0x34b80…34ba0 6f 74 20 70 72 65 73 65 6e 74 20 21 0a 20 20 20 20 20 20 20 20 77 31 3a 3d 20 61 64 64 72 65 73 ┆ot present ! w1:= addres┆
0x34ba0…34bc0 73 20 28 6f 70 29 3b 0a 20 20 20 20 20 20 20 20 77 32 3a 3d 20 77 69 63 74 69 6d 3b 0a 20 20 20 ┆s (op); w2:= wictim; ┆
0x34bc0…34be0 20 20 20 20 20 66 69 72 73 74 3a 3d 20 77 33 3a 3d 20 61 64 64 72 65 73 73 28 28 77 32 29 2e 73 ┆ first:= w3:= address((w2).s┆
0x34be0…34c00 65 67 5f 64 61 74 61 29 3b 0a 20 20 20 20 20 20 20 20 77 33 2b 35 31 30 00 00 00 00 00 00 00 00 ┆eg_data); w3+510 ┆
0x34c00…34c06 (422,) (0x25c,0x699)
0x34c06…34c20 3b 0a 20 20 20 20 20 20 20 20 6c 61 73 74 3a 3d 20 77 33 3b 0a 20 20 20 20 20 ┆; last:= w3; ┆
0x34c20…34c40 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 65 6d 61 73 6b 20 62 ┆ if w3:= (w2).seg_no onemask b┆
0x34c40…34c60 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 20 21 20 73 65 67 6d ┆itmask then begin ! segm┆
0x34c60…34c7e 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 20 20 20 20 20 ┆ent updated, swop out ! ┆
0x34c7e…34c84 (0x25c,0x69a)
0x34c84…34ca0 20 20 20 20 6f 70 3a 3d 20 77 33 3a 3d 20 35 3b 0a 20 20 20 20 20 20 20 20 20 20 73 ┆ op:= w3:= 5; s┆
0x34ca0…34cc0 5f 6e 6f 3a 3d 20 77 33 3a 3d 20 28 77 32 29 2e 73 65 67 5f 6e 6f 20 65 78 74 72 61 63 74 20 32 ┆_no:= w3:= (w2).seg_no extract 2┆
0x34cc0…34ce0 32 3b 0a 20 20 20 20 20 20 20 20 20 20 74 72 61 6e 73 70 6f 72 74 28 2e 77 33 2e 2c 77 31 29 3b ┆2; transport(.w3.,w1);┆
0x34ce0…34cfc 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 0a 20 20 20 20 20 20 20 20 69 66 20 77 33 ┆ end; if w3┆
0x34cfc…34d02 (0x25c,0x69b)
0x34d02…34d20 3a 3d 73 61 76 65 77 32 20 6f 6e 65 6d 61 73 6b 20 31 20 74 68 65 6e 0a 20 20 20 20 20 20 ┆:=savew2 onemask 1 then ┆
0x34d20…34d40 20 20 62 65 67 69 6e 20 21 20 73 77 6f 70 20 69 6e 20 21 0a 20 20 20 20 20 20 20 20 20 20 6f 70 ┆ begin ! swop in ! op┆
0x34d40…34d60 3a 3d 20 77 33 3a 3d 20 33 3b 0a 20 20 20 20 20 20 20 20 20 20 73 5f 6e 6f 3a 3d 20 77 30 3b 0a ┆:= w3:= 3; s_no:= w0; ┆
0x34d60…34d7a 20 20 20 20 20 20 20 20 20 20 74 72 61 6e 73 70 6f 72 74 28 2e 77 33 2e 2c 77 ┆ transport(.w3.,w┆
0x34d7a…34d80 (0x25c,0x69c)
0x34d80…34da0 31 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 31 3a 3d 20 77 69 ┆1); end; w1:= wi┆
0x34da0…34dc0 63 74 69 6d 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 73 65 67 5f 6e 6f 3a 3d 20 77 30 3b 0a ┆ctim; (w1).seg_no:= w0; ┆
0x34dc0…34de0 20 20 20 20 20 20 65 6e 64 3b 0a 0a 20 20 20 20 20 20 28 77 31 29 2e 73 65 67 5f 70 72 69 6f 3a ┆ end; (w1).seg_prio:┆
0x34de0…34e00 3d 20 77 33 3a 3d 20 30 3b 0a 20 20 20 20 20 20 69 66 20 77 33 3a 3d 73 00 00 00 00 00 00 00 00 ┆= w3:= 0; if w3:=s ┆
0x34e00…34e06 (423,) (0x25c,0x69d)
0x34e06…34e20 61 76 65 77 32 20 6f 6e 65 6d 61 73 6b 20 34 20 74 68 65 6e 0a 20 20 20 20 20 ┆avew2 onemask 4 then ┆
0x34e20…34e40 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 0a 20 20 20 20 20 20 ┆ begin ! release buffer ! ┆
0x34e40…34e60 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 37 37 37 37 37 37 3b ┆ (w1).seg_no:= w3:= 8'17777777;┆
0x34e60…34e7e 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 31 29 2e 73 65 ┆ ! +infinite ! (w1).se┆
0x34e7e…34e84 (0x25c,0x69e)
0x34e84…34ea0 67 5f 70 72 69 6f 3a 3d 20 2d 28 77 33 29 3b 20 21 20 2d 69 6e 66 69 6e 69 74 65 20 ┆g_prio:= -(w3); ! -infinite ┆
0x34ea0…34ec0 21 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 20 20 69 66 20 ┆! end else if ┆
0x34ec0…34ee0 77 33 3a 3d 73 61 76 65 77 32 20 6f 6e 65 6d 61 73 6b 20 32 20 74 68 65 6e 0a 20 20 20 20 20 20 ┆w3:=savew2 onemask 2 then ┆
0x34ee0…34efc 62 65 67 69 6e 20 21 20 73 65 74 20 75 70 64 61 74 65 2d 73 65 67 6d 65 6e 74 2d 6d ┆begin ! set update-segment-m┆
0x34efc…34f02 (0x25c,0x69f)
0x34f02…34f20 61 72 6b 20 21 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 ┆ark ! (w1).seg_no:= w3┆
0x34f20…34f40 3a 3d 20 62 69 74 6d 61 73 6b 20 6f 72 20 28 77 31 29 2e 73 65 67 5f 6e 6f 3b 0a 20 20 20 20 20 ┆:= bitmask or (w1).seg_no; ┆
0x34f40…34f60 20 65 6e 64 20 65 6c 73 65 3b 0a 0a 20 20 20 20 20 20 77 31 2b 21 70 6f 73 69 74 69 6f 6e 28 73 ┆ end else; w1+!position(s┆
0x34f60…34f7a 65 67 5f 64 61 74 61 29 3b 0a 20 20 20 20 20 20 77 32 3a 3d 20 73 61 76 65 77 ┆eg_data); w2:= savew┆
0x34f7a…34f80 (0x25c,0x6a0)
0x34f80…34fa0 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 20 20 63 ┆2; w3:= b.current; c┆
0x34fa0…34fc0 61 6c 6c 20 77 30 20 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 ┆all w0 return; end; bod┆
0x34fc0…34fe0 79 20 6f 66 20 74 72 61 6e 73 70 6f 72 74 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 69 ┆y of transport begin i┆
0x34fe0…35000 6e 63 6f 64 65 0a 20 20 20 20 20 20 77 6f 72 64 20 73 74 61 74 75 73 2c 00 00 00 00 00 00 00 00 ┆ncode word status, ┆
0x35000…35006 (424,) (0x25c,0x6a1)
0x35006…35020 20 62 79 74 65 73 2c 20 63 68 61 72 73 2c 20 61 34 2c 20 61 35 2c 20 61 36 2c ┆ bytes, chars, a4, a5, a6,┆
0x35020…35040 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 65 66 31 2c 20 73 61 ┆ a7, a8; double savef1, sa┆
0x35040…35060 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 20 73 61 76 65 66 31 ┆vef3; begin savef1┆
0x35060…3507e 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 33 3b 0a 20 20 ┆:= f1; savef3:= f3; ┆
0x3507e…35084 (0x25c,0x6a2)
0x35084…350a0 20 20 20 20 20 20 74 65 73 74 6f 75 74 28 2e 77 33 2e 2c 77 30 3a 3d 38 2c 77 31 2c ┆ testout(.w3.,w0:=8,w1,┆
0x350a0…350c0 77 32 3a 3d 35 32 29 3b 0a 20 20 20 20 20 20 20 20 77 33 3a 3d 20 61 64 64 72 65 73 73 20 28 62 ┆w2:=52); w3:= address (b┆
0x350c0…350e0 2e 73 70 6f 6f 6c 6e 61 6d 65 29 3b 0a 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 31 36 29 ┆.spoolname); monitor(16)┆
0x350e0…350fc 3b 0a 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 ┆; w1:= address(statu┆
0x350fc…35102 (0x25c,0x6a3)
0x35102…35120 73 29 3b 0a 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 ┆s); monitor(18); ┆
0x35120…35140 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 28 77 31 29 2e 77 6f ┆ if w2:=1 lshift w0 or (w1).wo┆
0x35140…35160 72 64 20 3c 3e 20 32 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 ┆rd <> 2 then begin ┆
0x35160…3517a 20 20 20 20 20 77 31 3a 3d 61 64 64 72 65 73 73 28 62 2e 73 70 63 6f 6d 6f 70 ┆ w1:=address(b.spcomop┆
0x3517a…35180 (0x25c,0x6a4)
0x35180…351a0 29 3b 0a 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;┆
0x351a0…351c0 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 3a 3d 31 36 2c 77 ┆ testout(.w3.,w0:=16,w┆
0x351c0…351e0 31 2c 77 32 3a 3d 36 34 29 3b 0a 20 20 20 20 20 20 20 20 20 20 6f 70 6d 65 73 73 28 2e 77 33 2e ┆1,w2:=64); opmess(.w3.┆
0x351e0…35200 2c 77 31 29 3b 0a 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 ┆,w1); end; ┆
0x35200…35206 (425,) (0x25c,0x6a5)
0x35206…35220 20 20 20 66 31 3a 3d 20 73 61 76 65 66 31 3b 20 66 33 3a 3d 20 73 61 76 65 66 ┆ f1:= savef1; f3:= savef┆
0x35220…35240 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 74 72 61 6e 73 70 6f ┆3; end; end; ! transpo┆
0x35240…35260 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 20 62 6f 64 79 20 6f ┆rt ! end; ! swop ! body o┆
0x35260…3527e 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 6e 69 6e 74 2c ┆f ph begin label unint,┆
0x3527e…35284 (0x25c,0x6a6)
0x35284…352a0 64 69 73 63 6f 6e 6e 65 63 74 2c 73 74 6f 70 70 65 64 2c 61 6e 73 5f 73 65 6e 73 65 ┆disconnect,stopped,ans_sense┆
0x352a0…352c0 2c 7a 65 72 6f 5f 61 6e 73 77 65 72 2c 6e 6f 5f 69 6e 70 75 74 2c 0a 20 20 20 20 20 20 20 20 20 ┆,zero_answer,no_input, ┆
0x352c0…352e0 20 6c 6f 6f 70 2c 6c 6f 6f 70 5f 73 74 69 6e 2c 6e 65 78 74 74 68 2c 66 6f 75 6e 64 2c 20 61 64 ┆ loop,loop_stin,nextth,found, ad┆
0x352e0…352fc 70 5f 66 6f 75 6e 64 2c 20 6e 65 78 74 5f 6d 65 73 73 61 67 65 2c 20 74 74 79 5f 66 ┆p_found, next_message, tty_f┆
0x352fc…35302 (0x25c,0x6a7)
0x35302…35320 6f 75 6e 64 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 ┆ound; incode ref retur┆
0x35320…35340 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 20 62 79 74 ┆n; word mresult, status, byt┆
0x35340…35360 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 36 3a 3d 20 ┆es, chars, a4:= 0, a5:= 0, a6:= ┆
0x35360…3537a 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 ┆0, a7:= 0, a8:= 0; wor┆
0x3537a…35380 (0x25c,0x6a8)
0x35380…353a0 64 20 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 20 20 ┆d loc_id,outcar,thmask,help; ┆
0x353a0…353c0 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 6c 6c 20 77 ┆ begin return:= w3; call w┆
0x353c0…353e0 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 20 20 20 20 ┆3 return; ! initial lock ! ┆
0x353e0…35400 20 20 77 68 69 6c 65 20 77 31 3d 77 31 20 64 6f 0a 20 20 20 20 20 20 62 00 00 00 00 00 00 00 00 ┆ while w1=w1 do b ┆
0x35400…35406 (426,) (0x25c,0x6a9)
0x35406…35420 65 67 69 6e 0a 20 20 20 20 20 20 20 20 77 61 69 74 6d 65 73 73 28 2e 77 33 2e ┆egin waitmess(.w3.┆
0x35420…35440 2c 77 32 29 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 ┆,w2); if w0:=(w2).mess_o┆
0x35440…35460 70 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 20 20 ┆p=0 then begin ┆
0x35460…3547e 20 69 66 20 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 ┆ if w0:=(w2).mess_mode=0 then ┆
0x3547e…35484 (0x25c,0x6aa)
0x35484…354a0 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 21 20 73 65 6e 73 65 20 21 0a 61 6e ┆ begin ! sense ! an┆
0x354a0…354c0 73 5f 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 0a 7a 65 72 ┆s_sense: w0:= 1; zer┆
0x354c0…354e0 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 3a 3d 20 77 ┆o_answer: status:= w┆
0x354e0…354fc 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 ┆1:= 0; bytes:= w┆
0x354fc…35502 (0x25c,0x6ab)
0x35502…35520 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; ┆
0x35520…35540 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 29 3b 0a 20 ┆ w1:= address(status); ┆
0x35540…35560 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 20 20 20 20 ┆ end else ┆
0x35560…3557a 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 ┆ if w0=2 then ┆
0x3557a…35580 (0x25c,0x6ac)
0x35580…355a0 20 20 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 20 20 ┆ begin ! sense ready ! ┆
0x355a0…355c0 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 3b 0a 20 20 ┆ (w3).ph_sensed:= w0:= 1; ┆
0x355c0…355e0 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 6d 6f 64 65 ┆ if w0:=(w3).ph_inpmode┆
0x355e0…35600 3d 2d 31 20 74 68 65 6e 20 28 77 33 29 2e 70 68 5f 69 6e 70 6d 6f 64 65 00 00 00 00 00 00 00 00 ┆=-1 then (w3).ph_inpmode ┆
0x35600…35606 (427,) (0x25c,0x6ad)
0x35606…35620 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 3a ┆:= w0:= 0; w2:┆
0x35620…35640 3d 28 77 33 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 ┆=(w3).ph_child; whil┆
0x35640…35660 65 20 77 32 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 ┆e w2>0 do begin ! se┆
0x35660…3567e 6e 64 20 69 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 ┆nd input operations to all fre┆
0x3567e…35684 (0x25c,0x6ae)
0x35684…356a0 65 20 69 6e 70 75 74 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆e input ! ┆
0x356a0…356c0 21 20 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 64 73 20 20 ┆! buffers owned by ph's childs ┆
0x356c0…356e0 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 20 77 30 3a ┆ ! if w0:┆
0x356e0…356fc 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 ┆=(w2).th_usedbuf<(w2).th_max┆
0x356fc…35702 (0x25c,0x6af)
0x35702…35720 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 ┆
0x35720…35740 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 30 3a 3d 21 ┆ put_op(.w3.,w0:=!┆
0x35740…35760 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 20 20 20 20 ┆position(buf_chars),w1,w2); ┆
0x35760…3577a 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 ┆ (w1).bufm_op:=┆
0x3577a…35780 (0x25c,0x6b0)
0x35780…357a0 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 28 77 31 29 2e 62 75 ┆ w0:= 3; (w1).bu┆
0x357a0…357c0 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 64 65 3b 0a ┆fm_mode:= w0:= (w3).ph_inpmode; ┆
0x357c0…357e0 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 65 73 3a 3d ┆ (w1).buf_bytes:=┆
0x357e0…35800 20 77 30 3a 3d 20 62 2e 62 75 66 6c 3b 0a 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ w0:= b.bufl; ┆
0x35800…35806 (428,) (0x25c,0x6b1)
0x35806…35820 20 20 20 20 20 20 28 77 32 29 2e 74 68 5f 75 73 65 64 62 75 66 3a 3d 20 77 30 ┆ (w2).th_usedbuf:= w0┆
0x35820…35840 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 20 20 20 20 20 ┆:= (w2).th_usedbuf+1; ┆
0x35840…35860 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 0a 20 20 20 20 20 ┆ end else ┆
0x35860…3587e 20 20 20 20 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 ┆ w2:= (w2).th_next; ┆
0x3587e…35884 (0x25c,0x6b2)
0x35884…358a0 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; ┆
0x358a0…358c0 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 3b 0a 20 20 20 20 20 ┆ (w3).ph_sensed:= w0:= 1; ┆
0x358c0…358e0 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 3a 3d 77 33 ┆ wait_op(.w3.,w0,w1,w2:=w3┆
0x358e0…358fc 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 ┆); if w0:=(w1).b┆
0x358fc…35902 (0x25c,0x6b3)
0x35902…35920 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┆
0x35920…35940 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 64 20 21 0a ┆gin ! status error or stopped ! ┆
0x35940…35960 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 2c 77 31 2c ┆ get_op(.w3.,w0,w1,┆
0x35960…3597a 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 ┆w2); w3:= (w┆
0x3597a…35980 (0x25c,0x6b4)
0x35980…359a0 33 29 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 6c 65 ┆3).ph_child; while┆
0x359a0…359c0 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 20 20 ┆ w3>0 do begin ┆
0x359c0…359e0 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 69 6e 63 61 ┆ if w0:=(w3).th_inca┆
0x359e0…35a00 72 3d 28 77 31 29 2e 62 75 66 5f 69 6e 63 61 72 20 74 68 65 6e 0a 20 20 00 00 00 00 00 00 00 00 ┆r=(w1).buf_incar then ┆
0x35a00…35a06 (429,) (0x25c,0x6b5)
0x35a06…35a20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 21 20 72 65 6c 65 ┆ begin ! rele┆
0x35a20…35a40 61 73 65 20 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 ┆ase buffer ! (┆
0x35a40…35a60 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 68 5f 75 73 ┆w3).th_usedbuf:= w0:= (w3).th_us┆
0x35a60…35a7e 65 64 62 75 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 ┆edbuf-1; w3:┆
0x35a7e…35a84 (0x25c,0x6b6)
0x35a84…35aa0 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 0a 20 20 20 ┆= 0; end ┆
0x35aa0…35ac0 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 20 ┆ else ┆
0x35ac0…35ae0 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 20 20 20 20 ┆ w3:= (w3).th_next; ┆
0x35ae0…35afc 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:=┆
0x35afc…35b02 (0x25c,0x6b7)
0x35b02…35b20 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; ┆
0x35b20…35b40 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 74 75 73 3b ┆ status:= w1:= (w1).buf_status;┆
0x35b40…35b60 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 73 74 61 74 ┆ w1:= address(stat┆
0x35b60…35b7a 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 ┆us); end ┆
0x35b7a…35b80 (0x25c,0x6b8)
0x35b80…35ba0 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 20 21 20 ┆ else begin ! ┆
0x35ba0…35bc0 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 6f 74 6f 20 ┆data ready ! goto ┆
0x35bc0…35be0 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 20 20 20 20 ┆ans_sense; end; ┆
0x35be0…35c00 20 20 20 20 20 20 65 6e 64 20 21 20 73 65 6e 73 65 20 72 65 61 64 79 20 00 00 00 00 00 00 00 00 ┆ end ! sense ready ┆
0x35c00…35c06 (430,) (0x25c,0x6b9)
0x35c06…35c20 21 0a 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 20 67 6f 74 6f 20 75 6e 69 6e ┆! else goto unin┆
0x35c20…35c40 74 3b 0a 20 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 ┆t; end ! operation = 0 !┆
0x35c40…35c60 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 30 3d 33 20 74 68 ┆ else if w0=3 th┆
0x35c60…35c7e 65 6e 0a 20 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 ┆en begin ! input ! ┆
0x35c7e…35c84 (0x25c,0x6ba)
0x35c84…35ca0 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 6d 6f 64 ┆ if w0:=(w3).ph_inpmod┆
0x35ca0…35cc0 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 30 3a 3d ┆e=-1 then (w3).ph_inpmode:= w0:=┆
0x35cc0…35ce0 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 66 20 77 30 ┆ (w2).mess_mode; if w0┆
0x35ce0…35cfc 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 ┆:=(w1:=(w3).a_recfull).sem_v┆
0x35cfc…35d02 (0x25c,0x6bb)
0x35d02…35d20 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 ┆
0x35d20…35d40 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 6e 73 65 20 ┆ begin ! no data ,sense ┆
0x35d40…35d60 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 74 3a 0a 20 ┆read protocol used ! no_input: ┆
0x35d60…35d7a 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 ┆ (w3).ph_sensed:┆
0x35d7a…35d80 (0x25c,0x6bc)
0x35d80…35da0 3d 20 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 5f 73 ┆= w0:= 0; goto ans_s┆
0x35da0…35dc0 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 20 20 65 6c ┆ense; end el┆
0x35dc0…35de0 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 20 20 20 77 ┆se begin w┆
0x35de0…35e00 32 3a 3d 20 28 77 33 29 2e 70 68 5f 63 68 69 6c 64 3b 0a 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆2:= (w3).ph_child; ┆
0x35e00…35e06 (431,) (0x25c,0x6bd)
0x35e06…35e20 20 20 20 20 20 20 20 77 68 69 6c 65 20 77 32 3e 30 20 64 6f 0a 20 20 20 20 20 ┆ while w2>0 do ┆
0x35e20…35e40 20 20 20 20 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 ┆ begin ! send input operat┆
0x35e40…35e60 69 6f 6e 73 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 ┆ions to all free th buffers ! ┆
0x35e60…35e7e 20 20 20 20 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 ┆ if w0:=(w2).th_use┆
0x35e7e…35e84 (0x25c,0x6be)
0x35e84…35ea0 64 62 75 66 3c 28 77 32 29 2e 74 68 5f 6d 61 78 62 75 66 20 74 68 65 6e 0a 20 20 20 ┆dbuf<(w2).th_maxbuf then ┆
0x35ea0…35ec0 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 ┆
0x35ec0…35ee0 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 75 66 5f 63 ┆ put_op(.w3.,w0:=!position(buf_c┆
0x35ee0…35efc 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 ┆hars),w1,w2); ┆
0x35efc…35f02 (0x25c,0x6bf)
0x35f02…35f20 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; ┆
0x35f20…35f40 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 77 30 3a 3d ┆ (w1).bufm_mode:= w0:=┆
0x35f40…35f60 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 20 20 20 20 ┆ (w3).ph_inpmode; ┆
0x35f60…35f7a 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 ┆ (w1).buf_bytes:= w0:= b.┆
0x35f7a…35f80 (0x25c,0x6c0)
0x35f80…35fa0 62 75 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 75 73 ┆bufl; (w2).th_us┆
0x35fa0…35fc0 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 2b 31 3b 0a ┆edbuf:= w0:= (w2).th_usedbuf+1; ┆
0x35fc0…35fe0 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 20 20 20 20 ┆ end ┆
0x35fe0…36000 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 32 3a 00 00 00 00 00 00 00 00 ┆else w2: ┆
0x36000…36006 (432,) (0x25c,0x6c1)
0x36006…36020 3d 20 28 77 32 29 2e 74 68 5f 6e 65 78 74 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆= (w2).th_next; ┆
0x36020…36040 20 20 65 6e 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 ┆ end; wait_op(.w┆
0x36040…36060 33 2e 2c 77 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 ┆3.,w0,w1,w2:=w3); (w┆
0x36060…3607e 33 29 2e 70 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 ┆3).ph_savew0:= w0:= (w1).buf_b┆
0x3607e…36084 (0x25c,0x6c2)
0x36084…360a0 79 74 65 73 2d 28 77 33 29 2e 70 68 5f 62 6c 6f 63 6b 75 73 65 64 3b 0a 20 20 20 20 ┆ytes-(w3).ph_blockused; ┆
0x360a0…360c0 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 20 20 20 20 20 20 ┆ if w0=0 then ┆
0x360c0…360e0 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 28 77 33 29 ┆ begin if w2:=(w3)┆
0x360e0…360fc 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 ┆.ph_sensed=1 then goto no_in┆
0x360fc…36102 (0x25c,0x6c3)
0x36102…36120 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 ┆
0x36120…36140 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 2e 2c 77 30 ┆ else copy(.w3.,w0┆
0x36140…36160 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 64 29 2b 28 ┆,w2:=address((w1).buf_localid)+(┆
0x36160…3617a 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 ┆w3).ph_blockused); ┆
0x3617a…36180 (0x25c,0x6c4)
0x36180…361a0 20 20 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 64 3b ┆ if w0=-2 then goto stopped;┆
0x361a0…361c0 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 6f 74 6f 20 ┆ if w0=-3 then goto ┆
0x361c0…361e0 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 77 31 3b 20 ┆unint; loc_id:= w1; ┆
0x361e0…36200 21 20 73 61 76 65 20 74 65 6d 70 6f 72 61 72 79 20 21 0a 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆! save temporary ! ┆
0x36200…36206 (433,) (0x25c,0x6c5)
0x36206…36220 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 3a ┆ testout(.w3.,w0,w1:┆
0x36220…36240 3d 77 32 2c 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 ┆=w2,w2:=0); w1:= loc┆
0x36240…36260 5f 69 64 3b 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 ┆_id; if w0=(w3).ph_s┆
0x36260…3627e 61 76 65 77 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 ┆avew0 then ! last of block cop┆
0x3627e…36284 (0x25c,0x6c6)
0x36284…362a0 69 65 64 20 69 6e 74 6f 20 70 68 2d 6f 77 6e 65 72 20 21 0a 20 20 20 20 20 20 20 20 ┆ied into ph-owner ! ┆
0x362a0…362c0 20 20 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 20 20 20 20 ┆ begin !test 508; ┆
0x362c0…362e0 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 3b 0a 20 20 ┆ get_op(.w3.,w0,w1,w2:=w3); ┆
0x362e0…362fc 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┆
0x362fc…36302 (0x25c,0x6c7)
0x36302…36320 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).┆
0x36320…36340 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 63 6b 20 69 ┆buf_incar >0 then ! last block i┆
0x36340…36360 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 6c 65 20 77 ┆n record ! while w┆
0x36360…3637a 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 ┆3>0 do begin┆
0x3637a…36380 (0x25c,0x6c8)
0x36380…363a0 0a 20 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 5f 69 ┆ if w0=(w3).th_i┆
0x363a0…363c0 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 67 69 6e 20 ┆ncar then begin ┆
0x363c0…363e0 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 20 20 20 28 ┆! th found ! (┆
0x363e0…36400 77 33 29 2e 74 68 5f 75 73 65 64 62 75 66 3a 3d 20 77 30 3a 3d 20 28 77 00 00 00 00 00 00 00 00 ┆w3).th_usedbuf:= w0:= (w ┆
0x36400…36406 (434,) (0x25c,0x6c9)
0x36406…36420 33 29 2e 74 68 5f 75 73 65 64 62 75 66 2d 31 3b 0a 21 74 65 73 74 20 35 31 30 ┆3).th_usedbuf-1; !test 510┆
0x36420…36440 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 20 20 20 ┆; w3:= 0; ┆
0x36440…36460 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 20 20 20 20 ┆ end ┆
0x36460…3647e 65 6c 73 65 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 ┆else w3:= (w┆
0x3647e…36484 (0x25c,0x6ca)
0x36484…364a0 33 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 65 6e ┆3).th_next; en┆
0x364a0…364c0 64 3b 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 74 3b ┆d; w3:= b.current;┆
0x364c0…364e0 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 20 28 77 33 ┆ bytes:= w0:= (w3┆
0x364e0…364fc 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 ┆).ph_savew0; w┆
0x364fc…36502 (0x25c,0x6cb)
0x36502…36520 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 ┆
0x36520…36540 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 61 72 73 3a ┆ashift -1); chars:┆
0x36540…36560 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 20 20 20 20 ┆= w0:= (w1).buf_chars-w2; ┆
0x36560…3657a 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 ┆ (w3).ph_blockused:┆
0x3657a…36580 (0x25c,0x6cc)
0x36580…365a0 3d 20 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 20 20 ┆= w0:= 0; end ┆
0x365a0…365c0 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 0a 20 20 20 ┆ else begin ┆
0x365c0…365e0 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 20 20 20 20 ┆ bytes:= w0; ┆
0x365e0…36600 20 20 20 20 20 63 68 61 72 73 3a 3d 20 77 30 2b 28 77 32 3a 3d 77 30 20 00 00 00 00 00 00 00 00 ┆ chars:= w0+(w2:=w0 ┆
0x36600…36606 (435,) (0x25c,0x6cd)
0x36606…36620 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 ┆ashift -1); ┆
0x36620…36640 28 77 33 29 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 ┆(w3).ph_blockused:= w0:= bytes+(┆
0x36640…36660 77 33 29 2e 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 ┆w3).ph_blockused; en┆
0x36660…3667e 64 3b 0a 20 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 ┆d; a6:= w0:= (w2:=┆
0x3667e…36684 (0x25c,0x6ce)
0x36684…366a0 28 77 33 29 2e 61 5f 72 65 63 66 75 6c 6c 29 2e 73 65 6d 5f 76 61 6c 75 65 3b 0a 20 ┆(w3).a_recfull).sem_value; ┆
0x366a0…366c0 20 20 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 33 29 2e 61 ┆ a7:= w0:= (w2:=(w3).a┆
0x366c0…366e0 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 20 20 20 20 ┆_bytesfree).sem_value; ┆
0x366e0…366fc 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; ┆
0x366fc…36702 (0x25c,0x6cf)
0x36702…36720 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┆
0x36720…36740 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 2e 62 75 66 ┆tatus; w0:= (w1).buf┆
0x36740…36760 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 64 72 65 73 ┆_result; w1:= addres┆
0x36760…3677a 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 ┆s(status); end; ┆
0x3677a…36780 (0x25c,0x6d0)
0x36780…367a0 20 20 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 65 6c ┆ end ! input ! el┆
0x367a0…367c0 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 20 20 20 20 ┆se if w0=5 then ┆
0x367c0…367e0 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 20 63 6f 6d ┆begin ! output ! ! com┆
0x367e0…36800 70 75 74 65 20 62 6c 65 6e 67 74 68 20 61 76 6f 69 64 20 74 72 75 6e 63 00 00 00 00 00 00 00 00 ┆pute blength avoid trunc ┆
0x36800…36806 (436,) (0x25c,0x6d1)
0x36806…36820 20 65 72 72 6f 72 73 20 21 0a 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 20 28 ┆ errors ! w0:= (┆
0x36820…36840 77 32 29 2e 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 ┆w2).mess_first; -(w0 a┆
0x36840…36860 73 68 69 66 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 ┆shift -1 ashift 1); w0┆
0x36860…3687e 2b 28 77 32 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 ┆+(w2).mess_last; if ┆
0x3687e…36884 (0x25c,0x6d2)
0x36884…368a0 77 30 20 3c 20 30 20 74 68 65 6e 20 67 6f 74 6f 20 75 6e 69 6e 74 3b 0a 20 20 20 20 ┆w0 < 0 then goto unint; ┆
0x368a0…368c0 20 20 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 35 30 0a 20 ┆ if w0>=450 then w0:= 450 ┆
0x368c0…368e0 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 20 20 20 28 ┆ else w0+2; (┆
0x368e0…368fc 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; ┆
0x368fc…36902 (0x25c,0x6d3)
0x36902…36920 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┆
0x36920…36940 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 20 20 20 20 ┆; if w0=0 then ┆
0x36940…36960 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 33 2e 2c 77 ┆ begin copy(.w3.,w┆
0x36960…3697a 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 ┆0:=2,w2:=address(loc_id));┆
0x3697a…36980 (0x25c,0x6d4)
0x36980…369a0 0a 20 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 6f 20 ┆ if w0=-2 then goto ┆
0x369a0…369c0 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 33 20 74 68 ┆stopped; if w0=-3 th┆
0x369c0…369e0 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 3b 0a 0a 20 ┆en goto unint; end; ┆
0x369e0…36a00 20 20 20 20 20 20 20 20 20 77 31 3a 3d 20 28 77 33 29 2e 70 68 5f 63 68 00 00 00 00 00 00 00 00 ┆ w1:= (w3).ph_ch ┆
0x36a00…36a06 (437,) (0x25c,0x6d5)
0x36a06…36a20 69 6c 64 3b 0a 20 20 20 20 20 20 20 20 6c 6f 6f 70 3a 0a 20 20 20 20 20 20 20 ┆ild; loop: ┆
0x36a20…36a40 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 6f 6e 6e 65 63 74 ┆ if w1<=0 then goto disconnect┆
0x36a40…36a60 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 20 20 20 20 20 20 ┆; ! receiver unknown ! ┆
0x36a60…36a7e 20 69 66 20 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 ┆ if w0:=outcar<>0 then ┆
0x36a7e…36a84 (0x25c,0x6d6)
0x36a84…36aa0 20 20 20 62 65 67 69 6e 0a 21 74 65 73 74 20 33 30 35 3b 0a 20 20 20 20 20 20 20 20 ┆ begin !test 305; ┆
0x36aa0…36ac0 20 20 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 6e 20 67 6f ┆ if w0<>(w1).th_incar then go┆
0x36ac0…36ae0 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 20 20 20 20 ┆to nextth; end ┆
0x36ae0…36afc 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┆
0x36afc…36b02 (0x25c,0x6d7)
0x36b02…36b20 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┆
0x36b20…36b40 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 20 77 30 3a ┆in !test 306; if w0:┆
0x36b40…36b60 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 6e 20 67 6f ┆=loc_id<>(w1).th_localid then go┆
0x36b60…36b7a 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 ┆to nextth; end ┆
0x36b7a…36b80 (0x25c,0x6d8)
0x36b80…36ba0 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 3e 3d 34 ┆ else if w0>=4┆
0x36ba0…36bc0 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 20 ┆ then begin ┆
0x36bc0…36be0 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 61 6e 64 20 ┆ if w0:= loc_id lshift -16 and ┆
0x36be0…36c00 28 77 31 29 2e 74 68 5f 6d 61 73 6b 3c 3e 28 77 31 29 2e 74 68 5f 73 75 00 00 00 00 00 00 00 00 ┆(w1).th_mask<>(w1).th_su ┆
0x36c00…36c06 (438,) (0x25c,0x6d9)
0x36c06…36c20 62 73 74 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e ┆bst then begin┆
0x36c20…36c40 0a 6e 65 78 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 ┆ nextth: !test 307; ┆
0x36c40…36c60 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 20 ┆ w1:= (w1).th_next; ┆
0x36c60…36c7e 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 65 6e 64 3b ┆ goto loop; end;┆
0x36c7e…36c84 (0x25c,0x6da)
0x36c84…36ca0 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 20 65 6c 73 65 3b 0a 0a 20 20 20 20 20 20 ┆ end else; ┆
0x36ca0…36cc0 20 20 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 73 61 76 65 ┆ put_op(.w3.,w0:=(w3).ph_save┆
0x36cc0…36ce0 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 2c 0a 20 20 ┆w0+!position(buf_localid),w1, ┆
0x36ce0…36cfc 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); ┆
0x36cfc…36d02 (0x25c,0x6db)
0x36d02…36d20 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; ┆
0x36d20…36d40 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 68 65 6e 0a ┆ if w0:=(w2).th_type=4 then ┆
0x36d40…36d60 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 20 77 ┆ begin if w┆
0x36d60…36d7a 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 ┆0:= (w3).ph_outcar=0 then ┆
0x36d7a…36d80 (0x25c,0x6dc)
0x36d80…36da0 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 ┆
0x36da0…36dc0 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 73 68 69 66 ┆thmask:= w0:= (w2).th_mask lshif┆
0x36dc0…36de0 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 6f 75 74 63 ┆t 16; (w3).ph_outc┆
0x36de0…36e00 61 72 3a 3d 20 77 30 3a 3d 20 28 77 32 29 2e 74 68 5f 69 6e 63 61 72 3b 00 00 00 00 00 00 00 00 ┆ar:= w0:= (w2).th_incar; ┆
0x36e00…36e06 (439,) (0x25c,0x6dd)
0x36e06…36e20 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; ┆
0x36e20…36e40 20 20 65 6e 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 ┆ end; a6:= w0:= (w3:=┆
0x36e40…36e60 28 77 32 29 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 ┆(w2).a_recfull).sem_value; ┆
0x36e60…36e7e 20 20 20 20 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 ┆ a7:= w0:= (w3:=(w2).a_byt┆
0x36e7e…36e84 (0x25c,0x6de)
0x36e84…36ea0 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 20 20 20 ┆esfree).sem_value; ┆
0x36ea0…36ec0 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 77 32 3a 3d 20 ┆ w3:= b.current; w2:= ┆
0x36ec0…36ee0 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 62 75 66 6d ┆(w3).c_mbuf; (w1).bufm┆
0x36ee0…36efc 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 ┆_op:= w0:= 5; (w1).bufm_mode┆
0x36efc…36f02 (0x25c,0x6df)
0x36f02…36f20 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; ┆
0x36f20…36f40 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 20 20 20 20 ┆ w0:= (w3).ph_savew0; ┆
0x36f40…36f60 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 28 77 31 29 ┆ copy(.w3.,w0,w2:=address((w1)┆
0x36f60…36f7a 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 ┆.buf_localid)); ┆
0x36f7a…36f80 (0x25c,0x6e0)
0x36f80…36fa0 28 77 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 79 74 ┆(w1).buf_bytes:= w0; ! if no byt┆
0x36fa0…36fc0 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 74 69 6f 6e ┆es copied the 'putted' operation┆
0x36fc0…36fe0 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 30 3d 2d 32 ┆ is changed ! if w0=-2┆
0x36fe0…37000 20 74 68 65 6e 20 67 6f 74 6f 20 73 74 6f 70 70 65 64 3b 0a 20 20 20 20 00 00 00 00 00 00 00 00 ┆ then goto stopped; ┆
0x37000…37006 (440,) (0x25c,0x6e1)
0x37006…37020 20 20 20 20 20 20 69 66 20 77 30 3d 2d 33 20 74 68 65 6e 20 67 6f 74 6f 20 75 ┆ if w0=-3 then goto u┆
0x37020…37040 6e 69 6e 74 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 ┆nint; w3:= -1; w3 xor ┆
0x37040…37060 74 68 6d 61 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 ┆thmask; (w1).buf_local┆
0x37060…3707e 69 64 3a 3d 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 ┆id:= w3 and (w1).buf_localid; ┆
0x3707e…37084 (0x25c,0x6e2)
0x37084…370a0 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 2c 77 31 ┆ testout(.w3.,w0,w1┆
0x370a0…370c0 3a 3d 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 73 3a 3d 20 ┆:=w2,w2:=0); status:= ┆
0x370c0…370e0 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 3b 0a 20 20 ┆w2:= 0; bytes:= w0; ┆
0x370e0…370fc 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┆
0x370fc…37102 (0x25c,0x6e3)
0x37102…37120 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┆
0x37120…37140 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 20 20 20 62 ┆3).ph_outcar<>0 then b┆
0x37140…37160 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 20 20 20 20 ┆egin ! test end of record ! ┆
0x37160…3717a 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 ┆ w1+bytes-2; ┆
0x3717a…37180 (0x25c,0x6e4)
0x37180…371a0 20 20 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 20 20 ┆ w1:= (w1).word; ┆
0x371a0…371c0 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 20 62 65 67 ┆ while w1<>0 do beg┆
0x371c0…371e0 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 20 20 20 20 ┆in w0:= 0; ┆
0x371e0…37200 20 20 20 20 20 20 20 66 31 20 6c 73 68 69 66 74 20 38 3b 0a 20 20 20 20 00 00 00 00 00 00 00 00 ┆ f1 lshift 8; ┆
0x37200…37206 (441,) (0x25c,0x6e5)
0x37206…37220 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 ┆ if w0=b.etx then┆
0x37220…37240 20 77 31 3a 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 ┆ w1:= 0; !test 311; ┆
0x37240…37260 65 6e 64 3b 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 ┆end; if w0=b.etx the┆
0x37260…3727e 6e 20 28 77 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 ┆n (w3).ph_outcar:= w0:= 0; ┆
0x3727e…37284 (0x25c,0x6e6)
0x37284…372a0 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 20 31 ┆ end; w0:= 1┆
0x372a0…372c0 3b 20 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 20 20 20 20 ┆; w1:= address(status); ┆
0x372c0…372e0 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 0a 20 20 20 ┆ end ! output ! else ┆
0x372e0…372fc 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┆
0x372fc…37302 (0x25c,0x6e7)
0x37302…37320 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 ! ┆
0x37320…37340 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 65 69 76 65 ┆ ! message receive┆
0x37340…37360 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 20 20 20 20 ┆d from application: ! ┆
0x37360…3737a 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 ┆ ! mess + 0: 2 shif┆
0x3737a…37380 (0x25c,0x6e8)
0x37380…373a0 74 20 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 20 20 ┆t 12 + operation ! ┆
0x373a0…373c0 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 68 65 6e 20 ┆ ! mess + 2: if bit 23 then ┆
0x373c0…373e0 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 6d 65 73 73 ┆terminal ! ! mess┆
0x373e0…37400 20 2b 20 34 3a 20 20 20 6c 69 6e 65 2c 63 75 2c 64 65 76 69 63 65 28 70 00 00 00 00 00 00 00 00 ┆ + 4: line,cu,device(p ┆
0x37400…37406 (442,) (0x25c,0x6e9)
0x37406…37420 68 79 73 69 63 61 6c 29 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 ┆hysical) ! !┆
0x37420…37440 20 6d 65 73 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 ┆ mess + 6: link,cu,device(logi┆
0x37440…37460 63 61 6c 29 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 ┆cal) ! ! mess + 8┆
0x37460…3747e 3a 20 20 20 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 ┆: local_id (0,cu,device) * !┆
0x3747e…37484 (0x25c,0x6ea)
0x37484…374a0 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 2a 20 28 75 73 65 64 20 62 79 20 ┆ ! * (used by ┆
0x374a0…374c0 74 65 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 0a 0a 20 20 ┆tem to identify the link) ! ┆
0x374c0…374e0 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 65 73 73 5f ┆ loc_id:= w0:= (w2).mess_┆
0x374e0…374fc 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 ┆8; w1:= (w3).ph_ch┆
0x374fc…37502 (0x25c,0x6eb)
0x37502…37520 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 ┆
0x37520…37540 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 61 6c 20 68 ┆ begin ! find terminal h┆
0x37540…37560 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 6c 6f 63 5f ┆andler ! if w0:=loc_┆
0x37560…3757a 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 ┆id lshift -8 and (w1).th_m┆
0x3757a…37580 (0x25c,0x6ec)
0x37580…375a0 61 73 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 20 20 ┆ask=(w1).th_subst then ┆
0x375a0…375c0 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 3a 3d 20 28 ┆ begin if w0:= (┆
0x375c0…375e0 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 64 3b 0a 20 ┆w1).th_type=4 then goto found; ┆
0x375e0…37600 20 20 20 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 ┆ end; ┆
0x37600…37606 (443,) (0x25c,0x6ed)
0x37606…37620 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 ┆ w1:= (w1).th_next; ┆
0x37620…37640 20 20 20 20 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 ┆ end; goto disco┆
0x37640…37660 6e 6e 65 63 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 ┆nnect; ! not found ! found: p┆
0x37660…3767e 75 74 5f 6f 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 ┆ut_op(.w3.,w0:=8,w1,w2:=w1); ┆
0x3767e…37684 (0x25c,0x6ee)
0x37684…376a0 20 20 20 20 20 20 20 20 20 68 65 6c 70 3a 3d 20 77 32 3b 20 21 20 73 61 76 65 20 74 ┆ help:= w2; ! save t┆
0x376a0…376c0 68 5f 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 3d 61 64 64 ┆h_ref ! w2:=w1;w1:=add┆
0x376c0…376e0 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 29 3b 0a 20 ┆ress((w1:=(w3).c_mbuf).cm_op); ┆
0x376e0…376fc 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)┆
0x376fc…37702 (0x25c,0x6ef)
0x37702…37720 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┆
0x37720…37740 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 77 33 2e 2c ┆e th_ref ! lock (.w3.,┆
0x37740…37760 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 0a 20 20 20 ┆w0:=1,w2:= (w1).th_control); ┆
0x37760…3777a 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 ┆ ! wait for terminal┆
0x3777a…37780 (0x25c,0x6f0)
0x37780…377a0 20 68 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 73 61 ┆ handler to answer control messa┆
0x377a0…377c0 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 73 61 67 65 ┆ge ! goto next_message┆
0x377c0…377e0 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 73 61 67 65 ┆; end ! control message┆
0x377e0…37800 20 21 0a 20 20 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ ! else ┆
0x37800…37806 (444,) (0x25c,0x6f1)
0x37806…37820 69 66 20 77 30 3d 34 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e ┆if w0=4 then begin┆
0x37820…37840 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 28 61 64 70 33 32 37 ┆ ! f8000 control message (adp327┆
0x37840…37860 30 2c 20 73 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 ┆0, see:"rcsl. 991 09910") ! ┆
0x37860…3787e 20 20 20 20 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 ┆ ! message received ┆
0x3787e…37884 (0x25c,0x6f2)
0x37884…378a0 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 20 20 ┆from application: ! ┆
0x378a0…378c0 20 20 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 20 31 32 20 ┆ ! mess + 0: 4 shift 12 ┆
0x378c0…378e0 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 20 20 20 21 ┆+ operation ! !┆
0x378e0…378fc 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. ┆
0x378fc…37902 (0x25c,0x6f3)
0x37902…37920 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┆
0x37920…37940 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 69 63 65 29 ┆ss +12: local id (0, cu, device)┆
0x37940…37960 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 79 20 74 65 ┆ ! ! *used by te┆
0x37960…3797a 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 ┆m to identify the link ┆
0x3797a…37980 (0x25c,0x6f4)
0x37980…379a0 21 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 ┆! loc_id:= w0:= (w2).┆
0x379a0…379c0 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 2e 70 68 5f ┆mess_14; w1:= (w3).ph_┆
0x379c0…379e0 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 64 6f 0a 20 ┆child; while w1>0 do ┆
0x379e0…37a00 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 21 20 66 69 6e 64 20 74 65 00 00 00 00 00 00 00 00 ┆ begin ! find te ┆
0x37a00…37a06 (445,) (0x25c,0x6f5)
0x37a06…37a20 72 6d 69 6e 61 6c 20 68 61 6e 64 6c 65 72 20 21 0a 20 20 20 20 20 20 20 20 20 ┆rminal handler ! ┆
0x37a20…37a40 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 38 20 61 6e 64 20 ┆ if w0:= loc_id lshift -8 and ┆
0x37a40…37a60 20 28 77 31 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 ┆ (w1).th_mask = (w1).th_subst th┆
0x37a60…37a7e 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 ┆en begin ┆
0x37a7e…37a84 (0x25c,0x6f6)
0x37a84…37aa0 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 31 29 2e 74 68 5f 74 79 70 65 20 3d 20 34 ┆ if w0:=(w1).th_type = 4┆
0x37aa0…37ac0 20 74 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 20 20 20 20 ┆ then goto adp_found; ┆
0x37ac0…37ae0 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 2e 74 68 5f ┆ end; w1:= (w1).th_┆
0x37ae0…37afc 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 ┆next; end; ┆
0x37afc…37b02 (0x25c,0x6f7)
0x37b02…37b20 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┆
0x37b20…37b40 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 30 3a 3d 31 ┆d ! adp_found:put_op (.w3.,w0:=1┆
0x37b40…37b60 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 3a 3d 20 77 ┆6,w1,w2:=w1); help:= w┆
0x37b60…37b7a 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 ┆2; ! save th_ref ! ┆
0x37b7a…37b80 (0x25c,0x6f8)
0x37b80…37ba0 20 20 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 77 33 ┆ w2:= w1;w1:= address((w1:=(w3┆
0x37ba0…37bc0 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 6d 6f 76 65 ┆).c_mbuf).cm_op); move┆
0x37bc0…37be0 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 20 20 77 31 ┆ (.w3.,w0, w1, w2); w1┆
0x37be0…37c00 3a 3d 20 68 65 6c 70 3b 20 21 20 75 6e 73 61 76 65 20 74 68 5f 72 65 66 00 00 00 00 00 00 00 00 ┆:= help; ! unsave th_ref ┆
0x37c00…37c06 (446,) (0x25c,0x6f9)
0x37c06…37c20 20 21 0a 20 20 20 20 20 20 20 20 20 20 6c 6f 63 6b 20 28 2e 77 33 2e 2c 77 30 ┆ ! lock (.w3.,w0┆
0x37c20…37c40 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 0a 20 20 20 20 20 ┆:=1,w2:= (w1).th_control); ┆
0x37c40…37c60 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 61 6e 64 6c 65 72 ┆ ! wait for terminal handler┆
0x37c60…37c7e 20 74 6f 20 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 ┆ to answer control message ! ┆
0x37c7e…37c84 (0x25c,0x6fa)
0x37c84…37ca0 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 6e 65 78 74 5f 6d 65 73 73 61 67 65 3b 0a ┆ goto next_message; ┆
0x37ca0…37cc0 20 20 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 73 73 61 67 ┆ end ! end control messag┆
0x37cc0…37ce0 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 20 20 20 69 ┆e (adp) ! else i┆
0x37ce0…37cfc 66 20 77 30 20 3e 20 31 32 38 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 62 65 67 69 ┆f w0 > 128 then begi┆
0x37cfc…37d02 (0x25c,0x6fb)
0x37d02…37d20 6e 20 21 20 74 74 79 20 63 6f 6e 74 72 6f 6c 20 6d 65 73 73 61 67 65 20 21 0a 20 20 20 20 ┆n ! tty control message ! ┆
0x37d20…37d40 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 65 73 73 5f 31 30 ┆ loc_id:= w0:= (w2).mess_10┆
0x37d40…37d60 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 69 6c 64 3b 0a ┆; w1:= (w3).ph_child; ┆
0x37d60…37d7a 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 20 ┆ while w1>0 do ┆
0x37d7a…37d80 (0x25c,0x6fc)
0x37d80…37da0 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 61 6c 20 68 61 ┆ begin ! find terminal ha┆
0x37da0…37dc0 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 3d 28 77 31 29 2e 74 ┆ndler ! if w0=(w1).t┆
0x37dc0…37de0 68 5f 6c 6f 63 61 6c 69 64 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e ┆h_localid then begin┆
0x37de0…37e00 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 20 28 00 00 00 00 00 00 00 00 ┆ if w0:= ( ┆
0x37e00…37e06 (447,) (0x25c,0x6fd)
0x37e06…37e20 77 31 29 2e 74 68 5f 74 79 70 65 20 3c 3e 20 34 20 74 68 65 6e 20 67 6f 74 6f ┆w1).th_type <> 4 then goto┆
0x37e20…37e40 20 74 74 79 5f 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 ┆ tty_found; end; ┆
0x37e40…37e60 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 20 20 20 20 ┆ w1:= (w1).th_next; ┆
0x37e60…37e7e 20 20 20 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 ┆ end; goto disc┆
0x37e7e…37e84 (0x25c,0x6fe)
0x37e84…37ea0 6f 6e 6e 65 63 74 3b 0a 74 74 79 5f 66 6f 75 6e 64 3a 70 75 74 5f 6f 70 28 2e 77 33 ┆onnect; tty_found:put_op(.w3┆
0x37ea0…37ec0 2e 2c 77 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 ┆.,w0:=16,w1,w2:=w1); h┆
0x37ec0…37ee0 65 6c 70 3a 3d 20 77 32 3b 20 21 20 73 61 76 65 20 74 68 20 72 65 66 20 21 0a 20 20 20 20 20 20 ┆elp:= w2; ! save th ref ! ┆
0x37ee0…37efc 20 20 20 20 77 32 3a 3d 77 31 3b 77 31 3a 3d 20 61 64 64 72 65 73 73 28 28 77 31 3a ┆ w2:=w1;w1:= address((w1:┆
0x37efc…37f02 (0x25c,0x6ff)
0x37f02…37f20 3d 28 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 ┆=(w3).c_mbuf).cm_op); ┆
0x37f20…37f40 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 20 ┆ move(.w3.,w0,w1,w2); ┆
0x37f40…37f60 20 77 31 3a 3d 20 68 65 6c 70 3b 20 21 20 75 6e 73 61 76 65 20 74 68 20 72 65 66 20 21 0a 20 20 ┆ w1:= help; ! unsave th ref ! ┆
0x37f60…37f7a 20 20 20 20 20 20 20 20 6c 6f 63 6b 28 2e 77 33 2e 2c 77 30 3a 3d 31 2c 20 77 ┆ lock(.w3.,w0:=1, w┆
0x37f7a…37f80 (0x25c,0x700)
0x37f80…37fa0 32 3a 3d 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 20 21 ┆2:=(w1).th_control); !┆
0x37fa0…37fc0 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 61 6e ┆ wait for terminal handler to an┆
0x37fc0…37fe0 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 20 20 ┆swer control message ! ┆
0x37fe0…38000 20 67 6f 74 6f 20 6e 65 78 74 5f 6d 65 73 73 61 67 65 3b 0a 20 20 20 20 00 00 00 00 00 00 00 00 ┆ goto next_message; ┆
0x38000…38006 (448,) (0x25c,0x701)
0x38006…38020 20 20 20 20 65 6e 64 20 21 20 65 6e 64 20 74 74 79 20 63 6f 6e 74 72 6f 6c 20 ┆ end ! end tty control ┆
0x38020…38040 6d 65 73 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 ┆message ! else i┆
0x38040…38060 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 21 20 73 74 ┆f w0=110 then begin ! st┆
0x38060…3807e 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 20 28 77 33 ┆art input ! w1:= (w3┆
0x3807e…38084 (0x25c,0x702)
0x38084…380a0 29 2e 70 68 5f 63 68 69 6c 64 3b 0a 6c 6f 6f 70 5f 73 74 69 6e 3a 0a 20 20 20 20 20 ┆).ph_child; loop_stin: ┆
0x380a0…380c0 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 6f 6e 6e 65 ┆ if w1<=0 then goto disconne┆
0x380c0…380e0 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 20 20 20 20 ┆ct; ! receiver unknown ! ┆
0x380e0…380fc 20 20 20 69 66 20 77 30 3a 3d 28 77 31 29 2e 74 68 5f 74 79 70 65 3d 30 20 74 68 65 ┆ if w0:=(w1).th_type=0 the┆
0x380fc…38102 (0x25c,0x703)
0x38102…38120 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 20 20 20 20 ┆n w0:= (w2).cm_localid ┆
0x38120…38140 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 20 20 20 20 ┆ else if w0=2 then w0:= 0 ┆
0x38140…38160 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 6c 69 64 20 ┆ else w0:= (w2).cm_localid ┆
0x38160…3817a 6c 73 68 69 66 74 20 2d 31 36 20 6c 73 68 69 66 74 20 31 36 3b 0a 0a 20 20 20 ┆lshift -16 lshift 16; ┆
0x3817a…38180 (0x25c,0x704)
0x38180…381a0 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 64 20 74 68 ┆ if w0<>(w1).th_localid th┆
0x381a0…381c0 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 77 ┆en begin w┆
0x381c0…381e0 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 20 20 67 6f ┆1:= (w1).th_next; go┆
0x381e0…38200 74 6f 20 6c 6f 6f 70 5f 73 74 69 6e 3b 0a 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆to loop_stin; ┆
0x38200…38206 (449,) (0x25c,0x705)
0x38206…38220 65 6e 64 3b 0a 0a 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 70 68 5f 73 61 ┆end; (w3).ph_sa┆
0x38220…38240 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 20 20 20 20 ┆vew1:=w0:=(w2).mess_mode; ┆
0x38240…38260 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 77 32 29 2e ┆ (w3).ph_savew0:= w0:= (w2).┆
0x38260…3827e 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 3b 0a 20 20 ┆cm_bufs; w2:= w1; ┆
0x3827e…38284 (0x25c,0x706)
0x38284…382a0 20 20 20 20 20 20 20 20 77 68 69 6c 65 20 77 30 3a 3d 28 77 33 29 2e 70 68 5f 73 61 ┆ while w0:=(w3).ph_sa┆
0x382a0…382c0 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 20 20 20 20 ┆vew0>0 do begin ┆
0x382c0…382e0 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 0a 20 20 20 ┆ (w3).ph_savew0:= w0-1; ┆
0x382e0…382fc 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 21 70 6f ┆ put_op(.w3.,w0:=!po┆
0x382fc…38302 (0x25c,0x707)
0x38302…38320 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 20 20 20 20 ┆sition(buf_chars),w1,w2); ┆
0x38320…38340 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 33 3b 0a 20 ┆ (w1).bufm_op:= w0:= 3; ┆
0x38340…38360 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 77 30 3a 3d ┆ (w1).bufm_mode:= w0:=┆
0x38360…3837a 20 28 77 33 29 2e 70 68 5f 73 61 76 65 77 31 3b 0a 20 20 20 20 20 20 20 20 20 ┆ (w3).ph_savew1; ┆
0x3837a…38380 (0x25c,0x708)
0x38380…383a0 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 66 6c 3b ┆ (w1).buf_bytes:= w0:= b.bufl;┆
0x383a0…383c0 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 3a 3d 20 77 ┆ (w2).th_usedbuf:= w┆
0x383c0…383e0 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 20 20 20 20 ┆0:= (w2).th_usedbuf+1; ┆
0x383e0…38400 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 61 6e 73 00 00 00 00 00 00 00 00 ┆ end; goto ans ┆
0x38400…38406 (450,) (0x25c,0x709)
0x38406…38420 5f 73 65 6e 73 65 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 0a 20 20 20 20 20 20 ┆_sense; end ┆
0x38420…38440 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 0a 20 20 20 ┆ else if w0=w0 then ┆
0x38440…38460 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 77 30 3a 3d ┆ begin unint: w0:=┆
0x38460…3847e 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 20 20 20 20 ┆ 3; goto zero_answer; ┆
0x3847e…38484 (0x25c,0x70a)
0x38484…384a0 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 20 ┆end else if ┆
0x384a0…384c0 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 70 70 65 64 ┆w0=w0 then begin stopped┆
0x384c0…384e0 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 6f 5f 61 6e ┆: w0:= 1; goto zero_an┆
0x384e0…384fc 73 77 65 72 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 0a 20 20 20 20 20 20 20 20 65 6c ┆swer; end el┆
0x384fc…38502 (0x25c,0x70b)
0x38502…38520 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 74 3a 0a 20 ┆se begin disconnect: ┆
0x38520…38540 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 6e 73 77 65 ┆ w0:= 4; goto zero_answe┆
0x38540…38560 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 75 6c 74 3a ┆r; end; mresult:┆
0x38560…3857a 3d 20 77 30 3b 20 21 20 73 61 76 65 20 72 65 73 75 6c 74 20 66 6f 72 20 74 65 ┆= w0; ! save result for te┆
0x3857a…38580 (0x25c,0x70c)
0x38580…385a0 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 6e 73 77 65 ┆stoutput ! ! send answe┆
0x385a0…385c0 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 65 6e 74 29 ┆r ! w2:= (w3:=b.current)┆
0x385c0…385e0 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 3b 0a 20 20 ┆.c_mbuf; monitor(22); ┆
0x385e0…38600 20 20 20 20 20 20 77 30 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 28 77 00 00 00 00 00 00 00 00 ┆ w0:= 0; (w ┆
0x38600…38606 (451,) (0x25c,0x70d)
0x38606…38620 33 29 2e 63 5f 6d 62 75 66 3a 3d 20 77 30 3b 20 21 20 63 6c 65 61 72 20 6f 70 ┆3).c_mbuf:= w0; ! clear op┆
0x38620…38640 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 33 2e 2c 77 ┆eration ! testout(.w3.,w┆
0x38640…38660 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 73 61 67 65 ┆0:=18,w1-2,w2:=61); next_message┆
0x38660…3867e 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 20 20 20 20 ┆: end; ! for ever ! ┆
0x3867e…38684 (0x25c,0x70e)
0x38684…386a0 65 6e 64 3b 0a 20 20 65 6e 64 3b 20 21 20 70 68 20 21 0a 0a 0a 0a 20 20 62 6f 64 79 ┆end; end; ! ph ! body┆
0x386a0…386c0 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 6c 6f 6f 70 ┆ of th begin label ttyloop┆
0x386c0…386e0 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 75 74 2c 20 ┆, next, terminsense, terminput, ┆
0x386e0…386fc 74 65 72 6d 69 6e 61 6e 73 77 65 72 3b 0a 20 20 20 20 69 6e 63 6f 64 65 0a 20 20 20 ┆terminanswer; incode ┆
0x386fc…38702 (0x25c,0x70f)
0x38702…38720 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 20 34 27 30 ┆ ref return; word nl:= 4'0┆
0x38720…38740 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 61 64 79 3a ┆02200000000,sense:=0,senseready:┆
0x38740…38760 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 75 72 6e 3a ┆=2,help; begin return:┆
0x38760…3877a 3d 20 77 33 3b 20 63 61 6c 6c 20 77 33 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 ┆= w3; call w3 return; ┆
0x3877a…38780 (0x25c,0x710)
0x38780…387a0 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 6c 20 28 77 ┆ ! synchronize with terminal (w┆
0x387a0…387c0 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 65 72 6d 69 ┆ait untill previous io has termi┆
0x387c0…387e0 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 2c 77 30 2c ┆nated) ! sendwait(.w3.,w0,┆
0x387e0…38800 77 31 3a 3d 61 64 64 72 65 73 73 28 73 65 6e 73 65 29 2c 77 32 3a 3d 61 00 00 00 00 00 00 00 00 ┆w1:=address(sense),w2:=a ┆
0x38800…38806 (452,) (0x25c,0x711)
0x38806…38820 64 64 72 65 73 73 28 28 77 33 29 2e 74 68 5f 6e 61 6d 65 29 29 3b 0a 0a 20 20 ┆ddress((w3).th_name)); ┆
0x38820…38840 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 0a 20 ┆ while w1=w1 do begin ┆
0x38840…38860 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 3a 3d 77 33 ┆ wait_op(.w3.,w0,w1,w2:=w3┆
0x38860…3887e 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 66 6d 5f 6f ┆); if w0:=(w1).bufm_o┆
0x3887e…38884 (0x25c,0x712)
0x38884…388a0 70 20 3d 20 33 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 21 20 69 ┆p = 3 then begin ! i┆
0x388a0…388c0 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 2c 77 30 2c ┆nput ! get_op(.w3.,w0,┆
0x388c0…388e0 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 30 2c 77 ┆w1,w2); move(.w3.,w0,w┆
0x388e0…388fc 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 20 ┆1,w2:=(w3).th_buf); ┆
0x388fc…38902 (0x25c,0x713)
0x38902…38920 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 28 77 31 29 ┆ w1:= w2; w0:= (w1)┆
0x38920…38940 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 75 66 6d 5f ┆.buf_bytes; (w1).bufm_┆
0x38940…38960 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 6c 6f ┆first:= w2:= address((w1).buf_lo┆
0x38960…3897a 63 61 6c 69 64 29 3b 0a 20 20 20 20 20 20 20 20 20 20 77 32 2b 77 30 2d 32 3b ┆calid); w2+w0-2;┆
0x3897a…38980 (0x25c,0x714)
0x38980…389a0 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 77 32 3b 0a ┆ (w1).bufm_last:= w2; ┆
0x389a0…389c0 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 65 3c 3d 32 ┆ if w2:=(w3).th_type<=2┆
0x389c0…389e0 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 6e 0a 20 20 ┆ then ! tty ! begin ┆
0x389e0…38a00 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 20 28 77 33 29 2e 74 68 5f 6e 00 00 00 00 00 00 00 00 ┆ w0:= (w3).th_n ┆
0x38a00…38a06 (453,) (0x25c,0x715)
0x38a06…38a20 64 69 73 70 6c 61 79 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 ┆display; if w0┆
0x38a20…38a40 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 6f 6d 6d 65 ┆<>0 then begin comme┆
0x38a40…38a60 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 20 6d 6f 64 ┆nt send input in non display mod┆
0x38a60…38a7e 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 5f 6d 6f 64 ┆e; (w1).bufm_mod┆
0x38a7e…38a84 (0x25c,0x716)
0x38a84…38aa0 65 3a 3d 20 77 30 3a 3d 20 38 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b ┆e:= w0:= 8; end;┆
0x38aa0…38ac0 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 79 74 65 73 ┆ w0:= (w1).buf_bytes┆
0x38ac0…38ae0 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 5f 74 79 70 ┆; if w2:=(w3).th_typ┆
0x38ae0…38afc 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 6e 20 21 ┆e=0 then begin !┆
0x38afc…38b02 (0x25c,0x717)
0x38b02…38b20 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 66 6f 72 20 ┆ tty multiline, make room for ┆
0x38b20…38b40 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 20 20 20 28 ┆localid and nl ! (┆
0x38b40…38b60 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 73 28 28 77 ┆w1).bufm_first:= w2:= address((w┆
0x38b60…38b7a 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 20 ┆1).buf_data1); ┆
0x38b7a…38b80 (0x25c,0x718)
0x38b80…38ba0 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 3b 0a 20 20 ┆ w2:= (w1).bufm_last; w2-2; ┆
0x38ba0…38bc0 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 20 77 32 3b ┆ (w1).bufm_last:= w2;┆
0x38bc0…38be0 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 6c 69 64 3a ┆ (w1).buf_localid:┆
0x38be0…38c00 3d 20 77 30 3a 3d 20 28 77 33 29 2e 74 68 5f 6c 6f 63 61 6c 69 64 3b 0a 00 00 00 00 00 00 00 00 ┆= w0:= (w3).th_localid; ┆
0x38c00…38c06 (454,) (0x25c,0x719)
0x38c06…38c20 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; ┆
0x38c20…38c40 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 30 3b 0a 0a ┆ (w3).th_timercount:= w0:= 0; ┆
0x38c40…38c60 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 20 61 6e 64 ┆ ttyloop: ! send and┆
0x38c60…38c7e 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 72 20 73 74 ┆ wait, repeat evt. on timer st┆
0x38c7e…38c84 (0x25c,0x71a)
0x38c84…38ca0 61 74 75 73 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 73 65 6e 64 77 61 69 74 28 ┆atus ! sendwait(┆
0x38ca0…38cc0 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 2e 74 68 5f ┆.w3.,w0,w1,w2:= address((w3).th_┆
0x38cc0…38ce0 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 5f 72 65 73 ┆name)); (w1).buf_res┆
0x38ce0…38cfc 75 6c 74 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3c ┆ult:= w0; if w0<┆
0x38cfc…38d02 (0x25c,0x71b)
0x38d02…38d20 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 20 30 3b 0a ┆>1 then b.ans_bytes:= w2:= 0; ┆
0x38d20…38d40 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 3d 20 77 32 ┆ (w1).bufm_first:= w2┆
0x38d40…38d60 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 79 74 65 73 ┆:= (w1).bufm_first + b.ans_bytes┆
0x38d60…38d7a 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 20 6f 72 20 62 2e 61 ┆; if w0 or b.a┆
0x38d7a…38d80 (0x25c,0x71c)
0x38d80…38da0 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 20 20 20 20 ┆ns_status = 2097153 then ┆
0x38da0…38dc0 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 68 65 6e 0a ┆ if w2<=(w1).bufm_last then ┆
0x38dc0…38de0 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 61 72 65 6e ┆ if w0:=(w3).th_paren┆
0x38de0…38e00 74 3e 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 00 00 00 00 00 00 00 00 ┆t>0 then if ┆
0x38e00…38e06 (455,) (0x25c,0x71d)
0x38e06…38e20 77 30 3a 3d 28 77 33 29 2e 74 68 5f 74 69 6d 65 72 63 6f 75 6e 74 2b 31 20 3c ┆w0:=(w3).th_timercount+1 <┆
0x38e20…38e40 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 20 20 20 20 ┆= (w3).th_timermax then ┆
0x38e40…38e60 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 2e 74 68 5f ┆ begin (w3).th_┆
0x38e60…38e7e 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 20 20 20 20 ┆timercount:= w0; ┆
0x38e7e…38e84 (0x25c,0x71e)
0x38e84…38ea0 20 67 6f 74 6f 20 74 74 79 6c 6f 6f 70 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 ┆ goto ttyloop; e┆
0x38ea0…38ec0 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 2e 74 68 5f ┆nd; if w0:=(w3).th_┆
0x38ec0…38ee0 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 6e 0a 20 20 ┆type=0 then begin ┆
0x38ee0…38efc 20 20 20 20 20 20 20 20 20 20 20 20 77 32 2d 32 3b 20 20 21 20 74 65 72 6d 69 6e 61 ┆ w2-2; ! termina┆
0x38efc…38f02 (0x25c,0x71f)
0x38f02…38f20 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 20 20 20 20 ┆te datablock with nl ! ┆
0x38f20…38f40 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 20 20 20 ┆ w0:= (w2).word; ┆
0x38f40…38f60 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 20 20 20 20 ┆ if w0=0 then w0:= 1; ┆
0x38f60…38f7a 20 20 20 20 20 20 20 20 77 31 3a 3d 20 30 3b 0a 6e 65 78 74 3a 20 20 20 20 20 ┆ w1:= 0; next: ┆
0x38f7a…38f80 (0x25c,0x720)
0x38f80…38fa0 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 20 20 20 20 ┆ f1 lshift -8; ┆
0x38fa0…38fc0 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 20 20 20 20 ┆if w1=0 then goto next; ┆
0x38fc0…38fe0 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 20 20 20 20 ┆ if w1<>nl then ┆
0x38fe0…39000 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ begin ┆
0x39000…39006 (456,) (0x25c,0x721)
0x39006…39020 20 20 77 32 2b 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 ┆ w2+2; (w┆
0x39020…39040 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 20 20 20 20 ┆2).word:= w1:= nl; ┆
0x39040…39060 20 20 20 62 2e 61 6e 73 5f 62 79 74 65 73 3a 3d 20 77 32 3a 3d 20 62 2e 61 6e 73 5f 62 79 74 65 ┆ b.ans_bytes:= w2:= b.ans_byte┆
0x39060…3907e 73 2b 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 2e 61 6e 73 5f 63 68 61 ┆s+2; b.ans_cha┆
0x3907e…39084 (0x25c,0x722)
0x39084…390a0 72 73 3a 3d 20 77 32 3a 3d 20 62 2e 61 6e 73 5f 63 68 61 72 73 2b 33 3b 0a 20 20 20 ┆rs:= w2:= b.ans_chars+3; ┆
0x390a0…390c0 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 77 31 ┆ end; w1┆
0x390c0…390e0 3a 3d 20 28 77 33 29 2e 74 68 5f 62 75 66 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 2e ┆:= (w3).th_buf; b.┆
0x390e0…390fc 61 6e 73 5f 62 79 74 65 73 3a 3d 20 77 32 3a 3d 20 62 2e 61 6e 73 5f 62 79 74 65 73 ┆ans_bytes:= w2:= b.ans_bytes┆
0x390fc…39102 (0x25c,0x723)
0x39102…39120 2b 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 2e 61 6e 73 5f 63 68 61 72 73 3a ┆+2; b.ans_chars:┆
0x39120…39140 3d 20 77 32 3a 3d 20 62 2e 61 6e 73 5f 63 68 61 72 73 2b 32 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆= w2:= b.ans_chars+2; ┆
0x39140…39160 20 20 65 6e 64 3b 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 62 75 66 5f 73 74 61 ┆ end; (w1).buf_sta┆
0x39160…3917a 74 75 73 3a 3d 20 77 30 3a 3d 20 62 2e 61 6e 73 5f 73 74 61 74 75 73 3b 0a 20 ┆tus:= w0:= b.ans_status; ┆
0x3917a…39180 (0x25c,0x724)
0x39180…391a0 20 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 62 2e 61 6e 73 5f 62 79 74 65 73 3b 28 77 31 29 2e ┆ w0:=b.ans_bytes;(w1).┆
0x391a0…391c0 62 75 66 5f 62 79 74 65 73 3a 3d 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 62 ┆buf_bytes:=w0; w0:=b┆
0x391c0…391e0 2e 61 6e 73 5f 63 68 61 72 73 3b 28 77 31 29 2e 62 75 66 5f 63 68 61 72 73 3a 3d 77 30 3b 0a 20 ┆.ans_chars;(w1).buf_chars:=w0; ┆
0x391e0…39200 20 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 62 75 66 5f 69 6e 63 61 00 00 00 00 00 00 00 00 ┆ (w1).buf_inca ┆
0x39200…39206 (457,) (0x25c,0x725)
0x39206…39220 72 3a 3d 20 77 32 3a 3d 20 28 77 33 29 2e 74 68 5f 69 6e 63 61 72 3b 0a 20 20 ┆r:= w2:= (w3).th_incar; ┆
0x39220…39240 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 20 20 20 ┆ end else ┆
0x39240…39260 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 67 6f 74 6f 20 74 65 ┆ begin goto te┆
0x39260…3927e 72 6d 69 6e 70 75 74 3b 0a 74 65 72 6d 69 6e 73 65 6e 73 65 3a 0a 20 20 20 20 20 20 20 20 ┆rminput; terminsense: ┆
0x3927e…39284 (0x25c,0x726)
0x39284…392a0 20 20 20 20 73 65 6e 64 77 61 69 74 28 2e 77 33 2e 2c 77 30 2c 77 31 3a 3d 61 64 64 ┆ sendwait(.w3.,w0,w1:=add┆
0x392a0…392c0 72 65 73 73 28 73 65 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 ┆ress(senseready),w2:=address((w3┆
0x392c0…392e0 29 2e 74 68 5f 6e 61 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 ┆).th_name)); if w0<>┆
0x392e0…392fc 31 20 74 68 65 6e 20 67 6f 74 6f 20 74 65 72 6d 69 6e 70 75 74 3b 0a 20 20 20 20 20 ┆1 then goto terminput; ┆
0x392fc…39302 (0x25c,0x727)
0x39302…39320 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 3d 38 27 31 ┆ if w2:=b.ans_status=8'1┆
0x39320…39340 30 30 30 30 30 30 30 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 ┆0000000 ! timer ! then ┆
0x39340…39360 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 74 68 65 6e 0a ┆ if w2:=(w3).th_parent>0 then ┆
0x39360…3937a 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 ┆
0x3937a…39380 (0x25c,0x728)
0x39380…393a0 20 20 20 20 20 20 69 66 20 77 32 3a 3d 28 77 33 29 2e 74 68 5f 74 69 6d 65 72 63 6f 75 6e 74 2b ┆ if w2:=(w3).th_timercount+┆
0x393a0…393c0 31 3c 3d 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 20 20 20 ┆1<=(w3).th_timermax then ┆
0x393c0…393e0 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 28 77 33 ┆ begin (w3┆
0x393e0…39400 29 2e 74 68 5f 74 69 6d 65 72 63 6f 75 6e 74 3a 3d 20 77 32 3b 0a 20 20 00 00 00 00 00 00 00 00 ┆).th_timercount:= w2; ┆
0x39400…39406 (458,) (0x25c,0x729)
0x39406…39420 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 74 65 72 6d 69 6e 73 ┆ goto termins┆
0x39420…39440 65 6e 73 65 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 67 6f 74 ┆ense; end else got┆
0x39440…39460 6f 20 74 65 72 6d 69 6e 61 6e 73 77 65 72 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b ┆o terminanswer; end;┆
0x39460…3947e 0a 0a 74 65 72 6d 69 6e 70 75 74 3a 0a 20 20 20 20 20 20 20 20 20 20 20 20 73 65 6e 64 77 ┆ terminput: sendw┆
0x3947e…39484 (0x25c,0x72a)
0x39484…394a0 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 ┆ait(.w3.,w0,w1:=(w3).th_buf,┆
0x394a0…394c0 77 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 0a 74 65 72 6d ┆w2:=address((w3).th_name)); term┆
0x394c0…394e0 69 6e 61 6e 73 77 65 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 ┆inanswer: w1:= (w3).┆
0x394e0…394fc 74 68 5f 62 75 66 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 62 75 66 ┆th_buf; (w1).buf┆
0x394fc…39502 (0x25c,0x72b)
0x39502…39520 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 20 77 ┆_result:= w0; if w┆
0x39520…39540 30 3c 3e 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 20 20 ┆0<>1 then begin ┆
0x39540…39560 20 20 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 30 3b ┆ b.ans_status:= w0:= 0;┆
0x39560…3957a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 2e 61 6e 73 5f 62 79 74 65 73 ┆ b.ans_bytes┆
0x3957a…39580 (0x25c,0x72c)
0x39580…395a0 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 2e 61 6e 73 5f 63 68 61 72 73 ┆:= w0; b.ans_chars┆
0x395a0…395c0 3a 3d 20 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 ┆:= w0; end; ┆
0x395c0…395e0 20 20 20 20 69 66 20 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 ┆ if w0 or b.ans_status<>1 the┆
0x395e0…39600 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 62 75 66 00 00 00 00 00 00 00 00 ┆n (w1).buf ┆
0x39600…39606 (459,) (0x25c,0x72d)
0x39606…39620 5f 69 6e 63 61 72 3a 3d 20 77 30 3a 3d 20 28 77 33 29 2e 74 68 5f 69 6e 63 61 ┆_incar:= w0:= (w3).th_inca┆
0x39620…39640 72 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 ┆r else b┆
0x39640…39660 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 62 2e 61 6e 73 5f ┆egin if w0:=b.ans_┆
0x39660…3967e 62 79 74 65 73 3d 30 20 74 68 65 6e 20 67 6f 74 6f 20 74 65 72 6d 69 6e 73 65 6e 73 65 3b ┆bytes=0 then goto terminsense;┆
0x3967e…39684 (0x25c,0x72e)
0x39684…396a0 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 74 65 73 74 20 70 72 65 73 65 6e ┆ ! test presen┆
0x396a0…396c0 73 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 28 77 31 29 2e 62 ┆se of etx ! (w1).b┆
0x396c0…396e0 75 66 5f 69 6e 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 ┆uf_incar:= w0:= (w3).th_incar; ┆
0x396e0…396fc 20 20 20 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 20 28 77 31 29 2e 62 75 66 6d 5f ┆ w2:= (w1).bufm_┆
0x396fc…39702 (0x25c,0x72f)
0x39702…39720 66 69 72 73 74 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 32 2b 62 2e 61 6e 73 5f ┆first; w2+b.ans_┆
0x39720…39740 62 79 74 65 73 2d 32 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 ┆bytes-2; w0:= (w2)┆
0x39740…39760 2e 77 6f 72 64 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 3e 30 ┆.word; while w0<>0┆
0x39760…3977a 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 ┆ do begin ┆
0x3977a…39780 (0x25c,0x730)
0x39780…397a0 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 20 20 ┆ w3:= 0; ┆
0x397a0…397c0 20 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 ┆ f0 lshift 8; ┆
0x397c0…397e0 20 20 20 69 66 20 77 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 ┆ if w3=b.etx then w0:= 0; ┆
0x397e0…39800 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; ┆
0x39800…39806 (460,) (0x25c,0x731)
0x39806…39820 20 20 20 20 20 69 66 20 77 33 3c 3e 62 2e 65 74 78 20 74 68 65 6e 20 28 77 31 ┆ if w3<>b.etx then (w1┆
0x39820…39840 29 2e 62 75 66 5f 69 6e 63 61 72 3a 3d 20 77 30 3b 20 21 20 62 6c 6f 63 6b 20 6e 6f 74 20 65 6e ┆).buf_incar:= w0; ! block not en┆
0x39840…39860 64 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 33 3a 3d 20 62 2e ┆d record ! w3:= b.┆
0x39860…3987e 63 75 72 72 65 6e 74 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 0a 20 20 20 ┆current; end; ┆
0x3987e…39884 (0x25c,0x732)
0x39884…398a0 20 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 ┆ (w1).buf_status:= w┆
0x398a0…398c0 30 3a 3d 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 20 20 28 77 ┆0:= b.ans_status; (w┆
0x398c0…398e0 31 29 2e 62 75 66 5f 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 ┆1).buf_bytes:= w0:= b.ans_bytes;┆
0x398e0…398fc 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 ┆ (w1).buf_chars:┆
0x398fc…39902 (0x25c,0x733)
0x39902…39920 3d 20 77 32 3a 3d 20 62 2e 61 6e 73 5f 63 68 61 72 73 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆= w2:= b.ans_chars; ┆
0x39920…39940 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 74 68 5f 70 61 ┆end; if w2:=(w3).th_pa┆
0x39940…39960 72 65 6e 74 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 20 20 ┆rent>0 then begin ┆
0x39960…3997a 20 20 20 20 20 20 20 20 77 31 3a 3d 20 77 30 3b 20 21 20 73 61 76 65 20 74 65 ┆ w1:= w0; ! save te┆
0x3997a…39980 (0x25c,0x734)
0x39980…399a0 6d 70 6f 72 61 72 79 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 20 28 77 ┆mporary ! if w0:= (w┆
0x399a0…399c0 32 29 2e 70 68 5f 74 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 ┆2).ph_thincar<>(w3).th_incar the┆
0x399c0…399e0 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 20 ┆n begin ┆
0x399e0…39a00 20 20 6c 6f 63 6b 28 2e 77 33 2e 2c 77 30 3a 3d 31 2c 77 32 3a 3d 28 77 00 00 00 00 00 00 00 00 ┆ lock(.w3.,w0:=1,w2:=(w ┆
0x39a00…39a06 (461,) (0x25c,0x735)
0x39a06…39a20 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 ┆2).ph_qreserve); ┆
0x39a20…39a40 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 33 29 2e 74 68 5f 74 79 70 65 3d 34 20 74 68 65 6e 0a ┆ if w0:=(w3).th_type=4 then ┆
0x39a40…39a60 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 ┆
0x39a60…39a7e 20 20 20 20 77 32 3a 3d 20 28 77 33 29 2e 74 68 5f 62 75 66 3b 0a 20 20 20 20 20 20 20 20 ┆ w2:= (w3).th_buf; ┆
0x39a7e…39a84 (0x25c,0x736)
0x39a84…39aa0 20 20 20 20 20 20 20 20 28 77 32 29 2e 62 75 66 5f 6c 6f 63 61 6c 69 64 3a 3d 20 77 ┆ (w2).buf_localid:= w┆
0x39aa0…39ac0 30 3a 3d 20 28 77 33 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 ┆0:= (w3).th_subst lshift 16 or (┆
0x39ac0…39ae0 77 32 29 2e 62 75 66 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 ┆w2).buf_localid; e┆
0x39ae0…39afc 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 ┆nd; end; ┆
0x39afc…39b02 (0x25c,0x737)
0x39b02…39b20 20 20 20 20 20 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 ┆ w2:= (w3).th_parent; ┆
0x39b20…39b40 20 20 20 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 ┆ if w2>0 then ┆
0x39b40…39b60 20 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 ┆ begin (w2).ph_thi┆
0x39b60…39b7a 6e 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 ┆ncar:= w0:= (w3).th_incar;┆
0x39b7a…39b80 (0x25c,0x738)
0x39b80…39ba0 0a 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 30 3a 3d 77 ┆ put_op(.w3.,w0:=w┆
0x39ba0…39bc0 31 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 2c 77 32 29 3b ┆1+!position(buf_localid),w1,w2);┆
0x39bc0…39be0 0a 20 20 20 20 20 20 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 ┆ w2:= w1; ┆
0x39be0…39c00 20 20 20 20 20 20 6d 6f 76 65 28 2e 77 33 2e 2c 77 30 2c 77 31 3a 3d 28 00 00 00 00 00 00 00 00 ┆ move(.w3.,w0,w1:=( ┆
0x39c00…39c06 (462,) (0x25c,0x739)
0x39c06…39c20 77 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 ┆w3).th_buf,w2); ┆
0x39c20…39c40 20 20 20 20 69 66 20 77 32 3a 3d 20 28 77 31 29 2e 62 75 66 5f 69 6e 63 61 72 3d 30 20 74 68 65 ┆ if w2:= (w1).buf_incar=0 the┆
0x39c40…39c60 6e 20 21 20 6e 6f 74 20 65 6e 64 20 72 65 63 6f 72 64 20 21 20 67 6f 74 6f 20 74 65 72 6d 69 6e ┆n ! not end record ! goto termin┆
0x39c60…39c7e 70 75 74 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 ┆put else ┆
0x39c7e…39c84 (0x25c,0x73a)
0x39c84…39ca0 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 ┆ if w2:=(w3).th_parent┆
0x39ca0…39cc0 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 20 20 20 ┆>0 then begin ┆
0x39cc0…39ce0 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┆
0x39ce0…39cfc 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 70 65 6e 28 2e ┆:= 0; open(.┆
0x39cfc…39d02 (0x25c,0x73b)
0x39d02…39d20 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 73 65 72 76 65 ┆w3.,w0:=1,w2:=(w2).ph_qreserve┆
0x39d20…39d40 29 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 20 20 ┆) end ┆
0x39d40…39d60 20 20 65 6c 73 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 ┆ else; end; ┆
0x39d60…39d7a 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 0a 20 20 20 20 20 20 ┆ end; end ┆
0x39d7a…39d80 (0x25c,0x73c)
0x39d80…39da0 20 20 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 ┆
0x39da0…39dc0 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 6d ┆ begin ! output ! m┆
0x39dc0…39de0 6f 76 65 28 2e 77 33 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 ┆ove(.w3.,w0:=!position(buf_chars┆
0x39de0…39e00 29 2c 77 31 2c 77 32 3a 3d 28 77 33 29 2e 74 68 5f 62 75 66 29 3b 0a 20 00 00 00 00 00 00 00 00 ┆),w1,w2:=(w3).th_buf); ┆
0x39e00…39e06 (463,) (0x25c,0x73d)
0x39e06…39e20 20 20 20 20 20 20 20 20 20 68 65 6c 70 3a 3d 20 77 30 3a 3d 20 30 3b 0a 20 20 ┆ help:= w0:= 0; ┆
0x39e20…39e40 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 33 29 2e 74 68 5f 74 79 70 65 3d 30 20 74 68 ┆ if w0:=(w3).th_type=0 th┆
0x39e40…39e60 65 6e 20 77 30 3a 3d 20 2d 32 0a 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 20 77 30 3a 3d 20 30 ┆en w0:= -2 else w0:= 0┆
0x39e60…39e7e 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 28 77 31 29 2e ┆; w1:= address((w1).┆
0x39e7e…39e84 (0x25c,0x73e)
0x39e84…39ea0 62 75 66 5f 6c 6f 63 61 6c 69 64 29 2d 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 77 ┆buf_localid)-w0; w┆
0x39ea0…39ec0 30 2b 20 28 77 32 29 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 ┆0+ (w2).buf_bytes-(w3).th_blocku┆
0x39ec0…39ee0 73 65 64 3b 0a 20 20 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 ┆sed; if w0>b.bufl then┆
0x39ee0…39efc 20 21 20 6e 6f 74 20 6c 61 73 74 20 70 6f 72 74 69 6f 6e 20 6f 66 20 62 6c 6f 63 6b ┆ ! not last portion of block┆
0x39efc…39f02 (0x25c,0x73f)
0x39f02…39f20 20 21 0a 20 20 20 20 20 20 20 20 20 20 68 65 6c 70 3a 3d 20 77 30 3a 3d 20 62 2e 62 75 66 ┆ ! help:= w0:= b.buf┆
0x39f20…39f40 6c 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 2b 28 77 33 ┆l; move(.w3.,w0,w1+(w3┆
0x39f40…39f60 29 2e 74 68 5f 62 6c 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 ┆).th_blockused, ┆
0x39f60…39f7a 20 20 20 20 77 32 3a 3d 61 64 64 72 65 73 73 28 28 77 32 29 2e 62 75 66 5f 6c ┆ w2:=address((w2).buf_l┆
0x39f7a…39f80 (0x25c,0x740)
0x39f80…39fa0 6f 63 61 6c 69 64 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 ┆ocalid)); w1:= (w3).th┆
0x39fa0…39fc0 5f 62 75 66 3b 0a 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 ┆_buf; (w1).bufm_first:┆
0x39fc0…39fe0 3d 20 77 32 3b 0a 20 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 ┆= w2; w2+w0-2; ┆
0x39fe0…3a000 20 20 20 28 77 31 29 2e 62 75 66 6d 5f 6c 61 73 74 3a 3d 20 77 32 3b 0a 00 00 00 00 00 00 00 00 ┆ (w1).bufm_last:= w2; ┆
0x3a000…3a006 (464,) (0x25c,0x741)
0x3a006…3a020 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 28 77 31 29 2e 62 75 66 6d 5f 6d 6f ┆ w2:=(w1).bufm_mo┆
0x3a020…3a040 64 65 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 32 20 6f 6e 65 6d 61 73 6b 20 38 20 74 68 ┆de; if w2 onemask 8 th┆
0x3a040…3a060 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 6e 65 78 74 20 ┆en begin comment next ┆
0x3a060…3a07e 69 6e 70 75 74 20 69 6e 20 6e 6f 6e 20 64 69 73 70 6c 61 79 20 6d 6f 64 65 3b 0a 20 20 20 ┆input in non display mode; ┆
0x3a07e…3a084 (0x25c,0x742)
0x3a084…3a0a0 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 68 5f 6e 64 69 73 70 6c 61 79 3a 3d 20 ┆ (w3).th_ndisplay:= ┆
0x3a0a0…3a0c0 77 32 3b 0a 20 20 20 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 ┆w2; w2-8; ┆
0x3a0c0…3a0e0 20 20 28 77 31 29 2e 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 ┆ (w1).bufm_mode:= w2; ┆
0x3a0e0…3a0fc 20 65 6e 64 20 65 6c 73 65 20 28 77 33 29 2e 74 68 5f 6e 64 69 73 70 6c 61 79 3a 3d ┆ end else (w3).th_ndisplay:=┆
0x3a0fc…3a102 (0x25c,0x743)
0x3a102…3a120 20 77 32 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 32 3a 3d 68 65 6c 70 ┆ w2:= 0; if w2:=help┆
0x3a120…3a140 3d 30 20 74 68 65 6e 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 ┆=0 then begin ! last p┆
0x3a140…3a160 6f 72 74 69 6f 6e 20 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 ┆ortion of block ! (w┆
0x3a160…3a17a 33 29 2e 74 68 5f 62 6c 6f 63 6b 75 73 65 64 3a 3d 20 77 32 3b 0a 20 20 20 20 ┆3).th_blockused:= w2; ┆
0x3a17a…3a180 (0x25c,0x744)
0x3a180…3a1a0 20 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 ┆ get_op(.w3.,w0,w1,w2:=w3┆
0x3a1a0…3a1c0 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 ┆
0x3a1c0…3a1e0 20 20 20 20 20 20 20 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 ┆ (w3).th_blockused:= ┆
0x3a1e0…3a200 77 30 2b 28 77 33 29 2e 74 68 5f 62 6c 6f 63 6b 75 73 65 64 3b 0a 20 20 00 00 00 00 00 00 00 00 ┆w0+(w3).th_blockused; ┆
0x3a200…3a206 (465,) (0x25c,0x745)
0x3a206…3a220 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 ┆ sendwait(.w3.,w0,w┆
0x3a220…3a240 31 3a 3d 28 77 33 29 2e 74 68 5f 62 75 66 2c 77 32 3a 3d 20 61 64 64 72 65 73 73 28 28 77 33 29 ┆1:=(w3).th_buf,w2:= address((w3)┆
0x3a240…3a260 2e 74 68 5f 6e 61 6d 65 29 29 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 0a 20 20 20 20 20 20 20 20 ┆.th_name)); end ┆
0x3a260…3a27e 65 6c 73 65 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 ┆else if w0=2 then ┆
0x3a27e…3a284 (0x25c,0x746)
0x3a284…3a2a0 20 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 ┆ begin ! f8000 control me┆
0x3a2a0…3a2c0 73 73 61 67 65 20 21 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 ┆ssage ! get_o┆
0x3a2c0…3a2e0 70 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 20 20 6d 6f 76 65 ┆p(.w3.,w0,w1,w2); move┆
0x3a2e0…3a2fc 28 2e 77 33 2e 2c 77 30 2c 77 31 2c 77 32 3a 3d 28 77 33 29 2e 74 68 5f 62 75 66 29 ┆(.w3.,w0,w1,w2:=(w3).th_buf)┆
0x3a2fc…3a302 (0x25c,0x747)
0x3a302…3a320 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 30 2c ┆; sendwait (.w3.,w0,┆
0x3a320…3a340 77 31 3a 3d 28 77 33 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 ┆w1:=(w3).th_buf,w2:=address((w3)┆
0x3a340…3a360 2e 74 68 5f 6e 61 6d 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 ┆.th_name)); w1:= (w3).┆
0x3a360…3a37a 74 68 5f 70 61 72 65 6e 74 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 31 ┆th_parent; if w1┆
0x3a37a…3a380 (0x25c,0x748)
0x3a380…3a3a0 3e 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 ┆>0 then begin comment ┆
0x3a3a0…3a3c0 73 65 6e 64 20 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 ┆send answer to control message; ┆
0x3a3c0…3a3e0 20 20 20 20 20 20 20 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 ┆ w2:= (w1).c_mbuf; ┆
0x3a3e0…3a400 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 20 61 64 64 72 65 73 73 28 62 00 00 00 00 00 00 00 00 ┆ w1:= address(b ┆
0x3a400…3a406 (466,) (0x25c,0x749)
0x3a406…3a420 2e 61 6e 73 5f 73 74 61 74 75 73 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆.ans_status); ┆
0x3a420…3a440 6d 6f 6e 69 74 6f 72 28 32 32 29 3b 20 21 20 73 65 6e 64 20 61 6e 73 77 65 72 20 2c 20 72 65 73 ┆monitor(22); ! send answer , res┆
0x3a440…3a460 75 6c 74 20 69 6e 20 77 30 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 6f 70 65 6e 20 28 2e 77 ┆ult in w0 ! open (.w┆
0x3a460…3a47e 33 2e 2c 20 77 30 3a 3d 31 2c 20 77 32 3a 3d 28 77 33 29 2e 74 68 5f 63 6f 6e 74 72 6f 6c ┆3., w0:=1, w2:=(w3).th_control┆
0x3a47e…3a484 (0x25c,0x74a)
0x3a484…3a4a0 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 ┆); end; en┆
0x3a4a0…3a4c0 64 20 21 20 65 6e 64 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 ┆d ! end f8000 control message ! ┆
0x3a4c0…3a4e0 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 30 3d 34 20 74 68 65 ┆ else if w0=4 the┆
0x3a4e0…3a4fc 6e 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 21 20 66 38 30 30 30 20 63 6f 6e 74 ┆n begin ! f8000 cont┆
0x3a4fc…3a502 (0x25c,0x74b)
0x3a502…3a520 72 6f 6c 20 6d 65 73 73 61 67 65 20 28 61 64 70 33 32 37 30 29 20 21 0a 0a 20 20 20 20 20 ┆rol message (adp3270) ! ┆
0x3a520…3a540 20 20 20 20 20 67 65 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 ┆ get_op (.w3., w0, w1, w2); ┆
0x3a540…3a560 20 20 20 20 20 20 20 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 ┆ move (.w3., w0, w1, w2┆
0x3a560…3a57a 3a 3d 20 28 77 33 29 2e 74 68 5f 62 75 66 29 3b 0a 20 20 20 20 20 20 20 20 20 ┆:= (w3).th_buf); ┆
0x3a57a…3a580 (0x25c,0x74c)
0x3a580…3a5a0 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 29 2e 74 68 5f 62 ┆ sendwait (.w3.,w0,w1:=(w3).th_b┆
0x3a5a0…3a5c0 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 65 29 29 3b 0a 20 ┆uf,w2:=address((w3).th_name)); ┆
0x3a5c0…3a5e0 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 6e 74 3b 0a 20 20 ┆ w1:= (w3).th_parent; ┆
0x3a5e0…3a600 20 20 20 20 20 20 20 20 69 66 20 77 31 3e 30 20 74 68 65 6e 0a 20 20 20 00 00 00 00 00 00 00 00 ┆ if w1>0 then ┆
0x3a600…3a606 (467,) (0x25c,0x74d)
0x3a606…3a620 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 ┆
0x3a620…3a640 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 20 20 ┆answer to control message; ┆
0x3a640…3a660 20 20 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 ┆ w2:= (w1).c_mbuf; ┆
0x3a660…3a67e 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 74 75 73 ┆ w1:= address(b.ans_status┆
0x3a67e…3a684 (0x25c,0x74e)
0x3a684…3a6a0 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 ┆); monitor(22); ┆
0x3a6a0…3a6c0 21 20 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 ┆! send answer , result in w0 ! ┆
0x3a6c0…3a6e0 20 20 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 ┆ open (.w3., w0:=1, w2┆
0x3a6e0…3a6fc 3a 3d 28 77 33 29 2e 74 68 5f 63 6f 6e 74 72 6f 6c 29 3b 0a 20 20 20 20 20 20 20 20 ┆:=(w3).th_control); ┆
0x3a6fc…3a702 (0x25c,0x74f)
0x3a702…3a720 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 20 21 20 65 6e 64 20 66 38 30 30 30 ┆ end; end ! end f8000┆
0x3a720…3a740 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 29 20 21 0a 20 20 20 ┆ control message (adp3270) ! ┆
0x3a740…3a760 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3e 31 32 38 20 74 68 65 6e ┆ else if w0>128 then┆
0x3a760…3a77a 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 21 20 74 74 79 20 63 6f 6e 74 72 ┆ begin ! tty contr┆
0x3a77a…3a780 (0x25c,0x750)
0x3a780…3a7a0 6f 6c 20 6d 65 73 73 61 67 65 20 21 0a 20 20 20 20 20 20 20 20 20 20 67 65 74 5f 6f 70 28 2e 77 ┆ol message ! get_op(.w┆
0x3a7a0…3a7c0 33 2e 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 20 28 2e 77 ┆3.,w0,w1,w2); move (.w┆
0x3a7c0…3a7e0 33 2e 2c 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 20 ┆3.,w0,w1,w2:=(w3).th_buf); ┆
0x3a7e0…3a800 20 20 20 20 20 77 30 3a 3d 20 28 77 32 29 2e 62 75 66 6d 5f 6f 70 3b 0a 00 00 00 00 00 00 00 00 ┆ w0:= (w2).bufm_op; ┆
0x3a800…3a806 (468,) (0x25c,0x751)
0x3a806…3a820 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3d 20 31 33 34 20 74 68 65 6e 20 ┆ if w0= 134 then ┆
0x3a820…3a840 77 30 3a 3d 20 32 20 65 6c 73 65 20 21 20 31 33 34 20 3d 20 32 20 21 0a 20 20 20 20 20 20 20 20 ┆w0:= 2 else ! 134 = 2 ! ┆
0x3a840…3a860 20 20 77 30 3a 3d 20 34 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 ┆ w0:= 4; ! ┆
0x3a860…3a87e 31 33 32 20 3d 20 34 20 21 0a 20 20 20 20 20 20 20 20 20 20 28 77 32 29 2e 62 75 66 6d 5f ┆132 = 4 ! (w2).bufm_┆
0x3a87e…3a884 (0x25c,0x752)
0x3a884…3a8a0 6f 70 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 73 65 6e 64 77 61 69 74 28 ┆op:= w0; sendwait(┆
0x3a8a0…3a8c0 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 61 64 64 72 ┆.w3.,w0,w1:=(w3).th_buf,w2:=addr┆
0x3a8c0…3a8e0 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 20 20 77 31 ┆ess((w3).th_name)); w1┆
0x3a8e0…3a8fc 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 ┆:= (w3).th_parent; ┆
0x3a8fc…3a902 (0x25c,0x753)
0x3a902…3a920 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 67 69 6e 20 ┆ if w1>0 then begin ┆
0x3a920…3a940 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 6f 6c 20 6d ┆comment send answer to control m┆
0x3a940…3a960 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 29 2e 63 5f ┆essage; w2:= (w1).c_┆
0x3a960…3a97a 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 ┆mbuf; w1:= add┆
0x3a97a…3a980 (0x25c,0x754)
0x3a980…3a9a0 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 20 20 20 20 20 ┆ress(b.ans_status); ┆
0x3a9a0…3a9c0 6d 6f 6e 69 74 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 ┆monitor(22); ! send answer ! ┆
0x3a9c0…3a9e0 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 20 77 32 3a 3d 28 77 ┆ open(.w3.,w0:=1, w2:=(w┆
0x3a9e0…3aa00 33 29 2e 74 68 5f 63 6f 6e 74 72 6f 6c 29 3b 0a 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆3).th_control); ┆
0x3aa00…3aa06 (469,) (0x25c,0x755)
0x3aa06…3aa20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 20 21 20 65 6e 64 20 74 ┆ end; end ! end t┆
0x3aa20…3aa40 74 79 20 63 6f 6e 74 72 6f 6c 20 6d 65 73 73 61 67 65 20 21 20 65 6c 73 65 0a 20 20 20 20 20 20 ┆ty control message ! else ┆
0x3aa40…3aa60 20 20 69 66 20 77 30 3d 39 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 21 20 73 ┆ if w0=9 then begin ! s┆
0x3aa60…3aa7e 69 6d 75 6c 61 74 65 20 69 6e 70 75 74 20 21 0a 20 20 20 20 20 20 20 20 20 20 67 65 74 5f ┆imulate input ! get_┆
0x3aa7e…3aa84 (0x25c,0x756)
0x3aa84…3aaa0 6f 70 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 20 ┆op(.w3.,w0,w1,w2); ┆
0x3aaa0…3aac0 20 6d 6f 76 65 28 2e 77 33 2e 2c 77 30 2c 77 31 2c 77 32 3a 3d 28 77 33 29 2e 74 68 5f 62 75 66 ┆ move(.w3.,w0,w1,w2:=(w3).th_buf┆
0x3aac0…3aae0 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 62 75 66 3b 0a 20 ┆); w1:= (w3).th_buf; ┆
0x3aae0…3aafc 20 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 ┆ (w1).buf_status:= w┆
0x3aafc…3ab02 (0x25c,0x757)
0x3ab02…3ab20 32 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 20 28 77 31 29 2e 62 75 66 ┆2:= 0; w2:= (w1).buf┆
0x3ab20…3ab40 5f 62 79 74 65 73 3b 0a 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 62 75 66 5f 63 68 61 72 73 ┆_bytes; (w1).buf_chars┆
0x3ab40…3ab60 3a 3d 20 77 32 20 61 73 68 69 66 74 20 2d 31 20 2b 20 28 77 31 29 2e 62 75 66 5f 62 79 74 65 73 ┆:= w2 ashift -1 + (w1).buf_bytes┆
0x3ab60…3ab7a 3b 0a 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 62 75 66 5f 69 6e 63 61 72 ┆; (w1).buf_incar┆
0x3ab7a…3ab80 (0x25c,0x758)
0x3ab80…3aba0 3a 3d 20 77 32 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 20 ┆:= w2:= (w3).th_incar; ┆
0x3aba0…3abc0 20 28 77 31 29 2e 62 75 66 5f 72 65 73 75 6c 74 3a 3d 20 77 32 3a 3d 20 31 3b 0a 20 20 20 20 20 ┆ (w1).buf_result:= w2:= 1; ┆
0x3abc0…3abe0 20 20 20 20 20 69 66 20 77 32 3a 3d 20 28 77 33 29 2e 74 68 5f 70 61 72 65 6e 74 20 3e 20 30 20 ┆ if w2:= (w3).th_parent > 0 ┆
0x3abe0…3ac00 74 68 65 6e 0a 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 ┆then begin ┆
0x3ac00…3ac06 (470,) (0x25c,0x759)
0x3ac06…3ac20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 20 ┆ w1:= w0; ┆
0x3ac20…3ac40 20 20 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 70 68 5f ┆ lock(.w3.,w0:=1,w2:=(w2).ph_┆
0x3ac40…3ac60 71 72 65 73 65 72 76 65 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 20 28 77 33 29 ┆qreserve); w2:= (w3)┆
0x3ac60…3ac7e 2e 74 68 5f 70 61 72 65 6e 74 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 32 3e ┆.th_parent; if w2>┆
0x3ac7e…3ac84 (0x25c,0x75a)
0x3ac84…3aca0 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 20 ┆0 then begin ┆
0x3aca0…3acc0 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 3a ┆ (w2).ph_thincar:= w0:┆
0x3acc0…3ace0 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 20 20 20 20 20 20 70 ┆= (w3).th_incar; p┆
0x3ace0…3acfc 75 74 5f 6f 70 28 2e 77 33 2e 2c 77 30 3a 3d 77 31 2c 77 31 2c 77 32 29 3b 0a 20 20 ┆ut_op(.w3.,w0:=w1,w1,w2); ┆
0x3acfc…3ad02 (0x25c,0x75b)
0x3ad02…3ad20 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 20 20 20 20 ┆ w2:=w1; ┆
0x3ad20…3ad40 20 20 20 20 6d 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 66 ┆ move(.w3.,w0,w1:=(w3).th_buf┆
0x3ad40…3ad60 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 28 77 33 29 2e ┆,w2); if w2:=(w3).┆
0x3ad60…3ad7a 74 68 5f 70 61 72 65 6e 74 3e 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 ┆th_parent>0 then ┆
0x3ad7a…3ad80 (0x25c,0x75c)
0x3ad80…3ada0 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 28 77 32 29 2e ┆ begin (w2).┆
0x3ada0…3adc0 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 20 20 20 20 20 20 20 ┆ph_thincar:= w0:= 0; ┆
0x3adc0…3ade0 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 70 65 6e 28 2e 77 33 ┆ end; open(.w3┆
0x3ade0…3ae00 2e 2c 77 30 3a 3d 31 2c 77 32 3a 3d 28 77 32 29 2e 70 68 5f 71 72 65 73 00 00 00 00 00 00 00 00 ┆.,w0:=1,w2:=(w2).ph_qres ┆
0x3ae00…3ae06 (471,) (0x25c,0x75d)
0x3ae06…3ae20 65 72 76 65 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 ┆erve); end; ┆
0x3ae20…3ae40 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 0a 20 20 20 20 20 20 20 ┆ end; end ┆
0x3ae40…3ae60 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 21 20 67 69 76 65 20 75 70 20 21 0a ┆ else begin ! give up ! ┆
0x3ae60…3ae7e 20 20 20 20 20 20 20 20 20 20 72 65 6d 6f 76 65 5f 74 68 28 2e 77 33 2e 2c 77 33 29 3b 0a ┆ remove_th(.w3.,w3); ┆
0x3ae7e…3ae84 (0x25c,0x75e)
0x3ae84…3aea0 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 62 2e 61 63 74 69 76 61 74 65 3b 0a 20 ┆ goto b.activate; ┆
0x3aea0…3aec0 20 20 20 20 20 20 20 65 6e 64 0a 20 20 20 20 20 20 65 6e 64 20 21 20 66 6f 72 20 65 76 65 72 20 ┆ end end ! for ever ┆
0x3aec0…3aee0 21 0a 20 20 20 20 65 6e 64 0a 20 20 65 6e 64 3b 20 21 20 74 68 20 21 0a 0a 0a 0a 20 20 62 6f 64 ┆! end end; ! th ! bod┆
0x3aee0…3aefc 79 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 ┆y of opmess begin inco┆
0x3aefc…3af02 (0x25c,0x75f)
0x3af02…3af20 64 65 0a 20 20 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 ┆de double savef1,savef3;┆
0x3af20…3af40 0a 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 ┆ text(14) parent; begi┆
0x3af40…3af60 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 66 33 ┆n savef1:=f1; savef3┆
0x3af60…3af7a 3a 3d 66 33 3b 0a 20 20 20 20 20 20 77 31 3a 3d 62 2e 74 65 6d 2b 35 30 3b 0a ┆:=f3; w1:=b.tem+50; ┆
0x3af7a…3af80 (0x25c,0x760)
0x3af80…3afa0 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 28 77 31 29 2e 77 ┆ move(.w3.,w0:=8,w1:=(w1).w┆
0x3afa0…3afc0 6f 72 64 2b 32 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 70 61 72 65 6e 74 29 29 3b 0a 20 20 20 20 ┆ord+2,w2:=address(parent)); ┆
0x3afc0…3afe0 20 20 77 33 3a 3d 77 32 3b 0a 20 20 20 20 20 20 66 31 3a 3d 73 61 76 65 66 31 3b 0a 20 20 20 20 ┆ w3:=w2; f1:=savef1; ┆
0x3afe0…3b000 20 20 6d 6f 6e 69 74 6f 72 28 31 36 29 3b 20 20 21 20 73 65 6e 64 20 6d 00 00 00 00 00 00 00 00 ┆ monitor(16); ! send m ┆
0x3b000…3b006 (472,) (0x25c,0x761)
0x3b006…3b020 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 ┆essage to parent ! w┆
0x3b020…3b040 31 3a 3d 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 ┆1:=address(b.ans_status); ┆
0x3b040…3b060 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 20 ┆monitor(18); ! wait answer ! ┆
0x3b060…3b07e 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 ┆ f1:=savef1; f3:=save┆
0x3b07e…3b084 (0x25c,0x762)
0x3b084…3b0a0 66 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 ┆f3; end; end; ! opmes┆
0x3b0a0…3b0c0 73 20 21 0a 0a 0a 0a 20 20 62 6f 64 79 20 6f 66 20 69 6e 69 74 0a 20 20 62 65 67 69 6e 0a 20 20 ┆s ! body of init begin ┆
0x3b0c0…3b0e0 20 20 6c 61 62 65 6c 20 61 6c 6c 6f 63 61 74 65 2c 69 6e 69 74 62 75 66 73 3b 0a 20 20 20 20 69 ┆ label allocate,initbufs; i┆
0x3b0e0…3b0fc 6e 63 6f 64 65 0a 20 20 20 20 20 20 74 65 78 74 28 31 34 29 74 65 73 74 61 72 65 61 ┆ncode text(14)testarea┆
0x3b0fc…3b102 (0x25c,0x763)
0x3b102…3b120 3a 3d 22 74 65 6d 74 65 73 74 22 2c 73 70 6f 6f 6c 61 72 65 61 3a 3d 22 74 65 6d 73 70 6f ┆:="temtest",spoolarea:="temspo┆
0x3b120…3b140 6f 6c 22 3b 0a 20 20 20 20 20 20 62 79 74 65 20 6f 70 33 3a 3d 20 31 36 2c 20 6d 6f 64 65 33 3a ┆ol"; byte op3:= 16, mode3:┆
0x3b140…3b160 3d 20 38 27 30 31 34 30 3b 0a 20 20 20 20 20 20 74 65 78 74 28 31 34 29 20 76 65 72 73 74 65 78 ┆= 8'0140; text(14) verstex┆
0x3b160…3b17a 74 3a 3d 0a 20 20 20 20 20 20 21 20 20 20 20 20 20 20 20 20 20 2a 2a 2a 20 74 ┆t:= ! *** t┆
0x3b17a…3b180 (0x25c,0x764)
0x3b180…3b1a0 65 6d 20 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 21 20 ┆em *** ! ┆
0x3b1a0…3b1c0 22 72 65 6c 65 61 73 65 3a 20 35 2e 30 22 3b 0a 20 20 20 20 20 20 77 6f 72 64 0a 0a 20 20 20 20 ┆"release: 5.0"; word ┆
0x3b1c0…3b1e0 20 20 21 20 64 61 74 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 ┆ ! date of version ┆
0x3b1e0…3b200 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 76 65 72 73 69 6f 00 00 00 00 00 00 00 00 ┆ ! versio ┆
0x3b200…3b206 (473,) (0x25c,0x765)
0x3b206…3b220 6e 20 20 20 3a 3d 20 38 36 30 39 30 31 2c 0a 20 20 20 20 20 20 63 6f 6d 6d 65 ┆n := 860901, comme┆
0x3b220…3b240 6e 74 20 3d 3d 3d 74 72 69 6d 73 74 61 72 74 3b 0a 20 20 20 20 20 20 21 20 64 61 74 65 20 6f 66 ┆nt ===trimstart; ! date of┆
0x3b240…3b260 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 20 20 20 20 ┆ options ┆
0x3b260…3b27e 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 20 20 ┆ ! options := 0, ┆
0x3b27e…3b284 (0x25c,0x766)
0x3b284…3b2a0 20 20 20 20 21 20 6e 75 6d 62 65 72 20 6f 66 20 61 63 74 69 76 65 20 74 65 72 6d 69 ┆ ! number of active termi┆
0x3b2a0…3b2c0 6e 61 6c 73 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 6e 74 20 ┆nals ! thcount ┆
0x3b2c0…3b2e0 20 20 20 20 20 3a 3d 20 20 31 30 2c 0a 20 20 20 20 20 20 21 20 6e 75 6d 62 65 72 20 6f 66 20 74 ┆ := 10, ! number of t┆
0x3b2e0…3b2fc 65 72 6d 69 6e 61 6c 20 67 72 6f 75 70 73 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆erminal groups ┆
0x3b2fc…3b302 (0x25c,0x767)
0x3b302…3b320 20 20 20 20 20 21 20 70 68 63 6f 75 6e 74 20 20 20 20 20 20 3a 3d 20 20 20 34 2c 0a 20 20 ┆ ! phcount := 4, ┆
0x3b320…3b340 20 20 20 20 21 20 73 69 7a 65 20 6f 66 20 74 65 72 6d 69 6e 61 6c 20 62 75 66 66 65 72 20 28 68 ┆ ! size of terminal buffer (h┆
0x3b340…3b360 61 6c 66 77 6f 72 64 73 29 20 20 20 20 20 20 20 20 20 21 20 74 65 72 6d 62 75 66 73 69 7a 65 20 ┆alfwords) ! termbufsize ┆
0x3b360…3b37a 20 3a 3d 20 31 30 34 2c 0a 20 20 20 20 20 20 21 20 6e 75 6d 62 65 72 20 6f 66 ┆ := 104, ! number of┆
0x3b37a…3b380 (0x25c,0x768)
0x3b380…3b3a0 20 73 65 67 6d 65 6e 74 73 20 69 6e 20 65 61 63 68 20 70 68 20 73 70 6f 6f 6c 20 61 72 65 61 20 ┆ segments in each ph spool area ┆
0x3b3a0…3b3c0 20 20 20 21 20 70 68 73 70 6f 6f 6c 73 65 67 6d 20 20 3a 3d 20 20 20 38 2c 0a 20 20 20 20 20 20 ┆ ! phspoolsegm := 8, ┆
0x3b3c0…3b3e0 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 63 68 20 74 68 20 ┆! number of segments in each th ┆
0x3b3e0…3b400 73 70 6f 6f 6c 20 61 72 65 61 20 20 20 20 21 20 74 68 73 70 6f 6f 6c 73 00 00 00 00 00 00 00 00 ┆spool area ! thspools ┆
0x3b400…3b406 (474,) (0x25c,0x769)
0x3b406…3b420 65 67 6d 20 20 3a 3d 20 20 20 38 2c 0a 20 20 20 20 20 20 21 20 6e 75 6d 62 65 ┆egm := 8, ! numbe┆
0x3b420…3b440 72 20 6f 66 20 73 70 6f 6f 6c 20 73 65 67 6d 65 6e 74 20 62 75 66 66 65 72 73 20 69 6e 20 63 6f ┆r of spool segment buffers in co┆
0x3b440…3b460 72 65 20 20 20 20 20 21 20 73 70 6f 6f 6c 62 75 66 73 20 20 20 20 3a 3d 20 20 20 32 2c 0a 20 20 ┆re ! spoolbufs := 2, ┆
0x3b460…3b47e 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 61 72 65 61 20 ┆ ! size of testoutput area ┆
0x3b47e…3b484 (0x25c,0x76a)
0x3b484…3b4a0 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 74 73 65 ┆ ! testse┆
0x3b4a0…3b4c0 67 6d 6e 74 73 20 20 3a 3d 20 31 36 38 2c 0a 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 3d 3d 3d ┆gmnts := 168, comment ===┆
0x3b4c0…3b4e0 74 72 69 6d 66 69 6e 69 73 3b 0a 0a 20 20 20 20 20 20 63 6f 72 75 63 6f 75 6e 74 2c 73 70 6f 6f ┆trimfinis; corucount,spoo┆
0x3b4e0…3b4fc 6c 70 6f 69 6e 74 65 72 3a 3d 30 3b 0a 20 20 20 20 20 20 61 72 72 61 79 28 31 3a 31 ┆lpointer:=0; array(1:1┆
0x3b4fc…3b502 (0x25c,0x76b)
0x3b502…3b520 30 29 20 74 61 69 6c 20 6f 66 20 77 6f 72 64 3b 0a 20 20 20 20 20 20 72 65 66 20 72 65 74 ┆0) tail of word; ref ret┆
0x3b520…3b540 75 72 6e 2c 20 74 65 72 6d 62 75 66 72 65 66 2c 20 73 65 6d 72 65 66 3b 0a 20 20 20 20 20 20 62 ┆urn, termbufref, semref; b┆
0x3b540…3b560 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 20 77 ┆yte op1:=16,mode1:=8'40; w┆
0x3b560…3b57a 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 ┆ord alarm; text(14) ┆
0x3b57a…3b580 (0x25c,0x76c)
0x3b580…3b5a0 72 65 73 6f 75 72 63 65 3b 0a 20 20 20 20 20 20 77 6f 72 64 20 73 74 64 76 61 6c 75 65 2c 6d 61 ┆resource; word stdvalue,ma┆
0x3b5a0…3b5c0 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 20 20 20 20 74 65 78 ┆rgin,bufclaim,stop:=0; tex┆
0x3b5c0…3b5e0 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 20 20 20 20 20 20 20 ┆t(14)size := "size", ┆
0x3b5e0…3b600 20 20 20 61 72 65 61 20 3a 3d 20 22 61 72 65 61 22 2c 0a 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ area := "area", ┆
0x3b600…3b606 (475,) (0x25c,0x76d)
0x3b606…3b620 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 ┆ buf := "buf"; ┆
0x3b620…3b640 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 69 6e 69 74 20 74 ┆ text(20)inittr:=" ***init t┆
0x3b640…3b660 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 31 36 2c 6d 6f 64 ┆roubles"; byte op2:=16,mod┆
0x3b660…3b67e 65 32 3a 3d 30 3b 0a 20 20 20 20 20 20 74 65 78 74 28 32 30 29 20 73 74 61 72 74 65 64 3a ┆e2:=0; text(20) started:┆
0x3b67e…3b684 (0x25c,0x76e)
0x3b684…3b6a0 3d 22 73 74 61 72 74 65 64 22 3b 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 ┆="started"; begin ┆
0x3b6a0…3b6c0 72 65 74 75 72 6e 3a 3d 77 33 3b 0a 20 20 20 20 20 20 67 6f 74 6f 20 61 6c 6c 6f 63 61 74 65 3b ┆return:=w3; goto allocate;┆
0x3b6c0…3b6e0 0a 0a 69 6e 69 74 62 75 66 73 3a 0a 20 20 20 20 20 20 66 31 20 6c 73 68 69 66 74 20 2d 31 30 30 ┆ initbufs: f1 lshift -100┆
0x3b6e0…3b6fc 3b 0a 20 20 20 20 20 20 66 6f 72 20 77 32 3a 3d 62 2e 63 6c 5f 64 65 73 63 72 69 70 ┆; for w2:=b.cl_descrip┆
0x3b6fc…3b702 (0x25c,0x76f)
0x3b702…3b720 74 6f 72 20 73 74 65 70 20 34 20 75 70 74 6f 20 62 2e 73 65 6d 70 6f 6f 6c 5f 74 6f 70 20 ┆tor step 4 upto b.sempool_top ┆
0x3b720…3b740 64 6f 20 28 77 32 29 2e 64 6f 75 62 6c 65 3a 3d 20 66 31 3b 0a 20 20 20 20 20 20 28 77 31 3a 3d ┆do (w2).double:= f1; (w1:=┆
0x3b740…3b760 62 2e 63 6c 5f 64 65 73 63 72 69 70 74 6f 72 29 2e 63 5f 6e 72 3a 3d 77 30 3a 3d 2d 31 3b 0a 0a ┆b.cl_descriptor).c_nr:=w0:=-1; ┆
0x3b760…3b77a 20 20 20 20 20 20 77 31 3a 3d 20 62 2e 70 68 70 6f 6f 6c 5f 66 73 74 3b 0a 20 ┆ w1:= b.phpool_fst; ┆
0x3b77a…3b780 (0x25c,0x770)
0x3b780…3b7a0 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 68 63 6f 75 ┆ for w3:=1 step 1 upto phcou┆
0x3b7a0…3b7c0 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 63 ┆nt do begin (w1).c┆
0x3b7c0…3b7e0 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 5f 70 72 65 76 3a 3d ┆_next:=w1; (w1).c_prev:=┆
0x3b7e0…3b800 77 31 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 63 5f 6e 72 3a 3d 77 00 00 00 00 00 00 00 00 ┆w1; (w1).c_nr:=w ┆
0x3b800…3b806 (476,) (0x25c,0x771)
0x3b806…3b820 32 3a 3d 77 33 2b 31 30 30 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 61 5f ┆2:=w3+100; (w1).a_┆
0x3b820…3b840 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┆
0x3b840…3b860 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┆
0x3b860…3b87e 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 68 28 ┆_prev:=w2; w2+!length(┆
0x3b87e…3b884 (0x25c,0x772)
0x3b884…3b8a0 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 ┆semaphore); (w1).a_b┆
0x3b8a0…3b8c0 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┆
0x3b8c0…3b8e0 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:=┆
0x3b8e0…3b8fc 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 3d ┆w2; (w2).sem_value:=┆
0x3b8fc…3b902 (0x25c,0x773)
0x3b902…3b920 77 30 3a 3d 70 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:=phspoolsegm lshift 9; ┆
0x3b920…3b940 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); ┆
0x3b940…3b960 20 20 20 28 77 31 29 2e 70 68 5f 71 72 65 73 65 72 76 65 3a 3d 20 77 32 3b 0a 20 20 20 20 20 20 ┆ (w1).ph_qreserve:= w2; ┆
0x3b960…3b97a 20 20 28 77 32 29 2e 73 65 6d 5f 6e 65 78 74 3a 3d 20 77 32 3b 0a 20 20 20 20 ┆ (w2).sem_next:= w2; ┆
0x3b97a…3b980 (0x25c,0x774)
0x3b980…3b9a0 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 20 20 20 20 20 20 20 ┆ (w2).sem_prev:= w2; ┆
0x3b9a0…3b9c0 28 77 32 29 2e 73 65 6d 5f 76 61 6c 75 65 3a 3d 20 77 30 3a 3d 20 31 3b 0a 20 20 20 20 20 20 20 ┆(w2).sem_value:= w0:= 1; ┆
0x3b9c0…3b9e0 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 20 20 20 ┆ w2+!length(semaphore); ┆
0x3b9e0…3ba00 73 65 6d 72 65 66 3a 3d 77 32 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 00 00 00 00 00 00 00 00 ┆semref:=w2; (w1) ┆
0x3ba00…3ba06 (477,) (0x25c,0x775)
0x3ba06…3ba20 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 ┆.a_first:=w0:=spoolpointer┆
0x3ba20…3ba40 3b 0a 20 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 ┆; (w1).a_firstfull:=w0; ┆
0x3ba40…3ba60 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 20 ┆ (w1).a_firstfree:=w0; ┆
0x3ba60…3ba7e 20 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 70 68 73 70 ┆ (w1).a_top:=w0+(w2:=phsp┆
0x3ba7e…3ba84 (0x25c,0x776)
0x3ba84…3baa0 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 ┆oolsegm+1 lshift 9); ┆
0x3baa0…3bac0 20 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 ┆ spoolpointer:=w0; w1+!l┆
0x3bac0…3bae0 65 6e 67 74 68 28 70 72 6f 63 65 73 73 68 61 6e 64 6c 65 72 29 3b 0a 20 20 20 20 20 20 65 6e 64 ┆ength(processhandler); end┆
0x3bae0…3bafc 3b 0a 0a 20 20 20 20 20 20 77 31 3a 3d 20 62 2e 74 68 70 6f 6f 6c 5f 66 73 74 3b 0a ┆; w1:= b.thpool_fst; ┆
0x3bafc…3bb02 (0x25c,0x777)
0x3bb02…3bb20 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 74 68 ┆ for w3:=1 step 1 upto th┆
0x3bb20…3bb40 63 6f 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 ┆count do begin (w1┆
0x3bb40…3bb60 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 5f 70 72 65 ┆).c_next:=w1; (w1).c_pre┆
0x3bb60…3bb7a 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 ┆v:=w1; (w1).c_nr:=┆
0x3bb7a…3bb80 (0x25c,0x778)
0x3bb80…3bba0 77 32 3a 3d 77 33 2b 32 30 30 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 74 68 5f 62 75 66 3a ┆w2:=w3+200; (w1).th_buf:┆
0x3bba0…3bbc0 3d 77 32 3a 3d 74 65 72 6d 62 75 66 72 65 66 3b 0a 20 20 20 20 20 20 20 20 77 32 2b 74 65 72 6d ┆=w2:=termbufref; w2+term┆
0x3bbc0…3bbe0 62 75 66 73 69 7a 65 2b 28 21 6c 65 6e 67 74 68 28 74 65 72 6d 62 75 66 68 65 61 64 29 2d 34 29 ┆bufsize+(!length(termbufhead)-4)┆
0x3bbe0…3bc00 3b 0a 20 20 20 20 20 20 20 20 74 65 72 6d 62 75 66 72 65 66 3a 3d 77 32 00 00 00 00 00 00 00 00 ┆; termbufref:=w2 ┆
0x3bc00…3bc06 (478,) (0x25c,0x779)
0x3bc06…3bc20 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 61 5f 72 65 63 66 75 6c 6c 3a 3d ┆; (w1).a_recfull:=┆
0x3bc20…3bc40 77 32 3a 3d 73 65 6d 72 65 66 3b 0a 20 20 20 20 20 20 20 20 28 77 32 29 2e 73 65 6d 5f 6e 65 78 ┆w2:=semref; (w2).sem_nex┆
0x3bc40…3bc60 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 77 32 ┆t:=w2; (w2).sem_prev:=w2┆
0x3bc60…3bc7e 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 65 ┆; w2+!length(semaphore┆
0x3bc7e…3bc84 (0x25c,0x77a)
0x3bc84…3bca0 29 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 61 5f 62 79 74 65 73 66 72 65 65 3a ┆); (w1).a_bytesfree:┆
0x3bca0…3bcc0 3d 77 32 3b 0a 20 20 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 ┆=w2; (w2).sem_next:=w2; ┆
0x3bcc0…3bce0 20 20 20 20 20 20 20 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 ┆ (w2).sem_prev:=w2; ┆
0x3bce0…3bcfc 20 20 20 28 77 32 29 2e 73 65 6d 5f 76 61 6c 75 65 3a 3d 77 30 3a 3d 74 68 73 70 6f ┆ (w2).sem_value:=w0:=thspo┆
0x3bcfc…3bd02 (0x25c,0x77b)
0x3bd02…3bd20 6f 6c 73 65 67 6d 20 6c 73 68 69 66 74 20 39 3b 0a 20 20 20 20 20 20 20 20 77 32 2b 21 6c ┆olsegm lshift 9; w2+!l┆
0x3bd20…3bd40 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 20 28 77 31 29 2e 74 ┆ength(semaphore); (w1).t┆
0x3bd40…3bd60 68 5f 63 6f 6e 74 72 6f 6c 3a 3d 20 77 32 3b 0a 20 20 20 20 20 20 20 20 28 77 32 29 2e 73 65 6d ┆h_control:= w2; (w2).sem┆
0x3bd60…3bd7a 5f 6e 65 78 74 3a 3d 20 77 32 3b 0a 20 20 20 20 20 20 20 20 28 77 32 29 2e 73 ┆_next:= w2; (w2).s┆
0x3bd7a…3bd80 (0x25c,0x77c)
0x3bd80…3bda0 65 6d 5f 70 72 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 ┆em_prev:= w2; (w2).sem_v┆
0x3bda0…3bdc0 61 6c 75 65 3a 3d 20 77 30 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 77 32 2b 21 6c 65 6e 67 74 ┆alue:= w0:= 0; w2+!lengt┆
0x3bdc0…3bde0 68 28 73 65 6d 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 ┆h(semaphore); semref:=w2┆
0x3bde0…3be00 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 61 5f 66 69 72 73 74 3a 3d 00 00 00 00 00 00 00 00 ┆; (w1).a_first:= ┆
0x3be00…3be06 (479,) (0x25c,0x77d)
0x3be06…3be20 77 30 3a 3d 73 70 6f 6f 6c 70 6f 69 6e 74 65 72 3b 0a 20 20 20 20 20 20 20 20 ┆w0:=spoolpointer; ┆
0x3be20…3be40 28 77 31 29 2e 61 5f 66 69 72 73 74 66 72 65 65 3a 3d 77 30 3b 0a 20 20 20 20 20 20 20 20 28 77 ┆(w1).a_firstfree:=w0; (w┆
0x3be40…3be60 31 29 2e 61 5f 66 69 72 73 74 66 75 6c 6c 3a 3d 77 30 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 ┆1).a_firstfull:=w0; (w1)┆
0x3be60…3be7e 2e 61 5f 74 6f 70 3a 3d 77 30 2b 28 77 32 3a 3d 74 68 73 70 6f 6f 6c 73 65 67 6d 2b 31 20 ┆.a_top:=w0+(w2:=thspoolsegm+1 ┆
0x3be7e…3be84 (0x25c,0x77e)
0x3be84…3bea0 6c 73 68 69 66 74 20 39 29 3b 0a 20 20 20 20 20 20 20 20 73 70 6f 6f 6c 70 6f 69 6e ┆lshift 9); spoolpoin┆
0x3bea0…3bec0 74 65 72 3a 3d 77 30 3b 0a 20 20 20 20 20 20 20 20 77 31 2b 21 6c 65 6e 67 74 68 28 74 65 72 6d ┆ter:=w0; w1+!length(term┆
0x3bec0…3bee0 69 6e 61 6c 68 61 6e 64 6c 65 72 29 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 0a 20 20 20 20 20 20 ┆inalhandler); end; ┆
0x3bee0…3befc 74 65 73 74 6f 75 74 28 2e 77 33 2e 2c 77 30 3a 3d 32 30 2c 77 31 3a 3d 61 64 64 72 ┆testout(.w3.,w0:=20,w1:=addr┆
0x3befc…3bf02 (0x25c,0x77f)
0x3bf02…3bf20 65 73 73 28 76 65 72 73 69 6f 6e 29 2c 77 32 3a 3d 36 39 29 3b 0a 20 20 20 20 20 20 74 65 ┆ess(version),w2:=69); te┆
0x3bf20…3bf40 73 74 6f 75 74 28 2e 77 33 2e 2c 77 30 3a 3d 31 35 30 2c 77 31 3a 3d 62 2e 74 65 6d 2d 34 2c 77 ┆stout(.w3.,w0:=150,w1:=b.tem-4,w┆
0x3bf40…3bf60 32 3a 3d 38 29 3b 0a 20 20 20 20 20 20 77 30 3a 3d 20 38 27 31 37 37 37 37 37 37 37 3b 20 21 20 ┆2:=8); w0:= 8'17777777; ! ┆
0x3bf60…3bf7a 73 65 67 6d 20 6e 6f 74 20 75 70 64 61 74 65 64 20 2c 20 73 65 67 6d 2e 6e 6f ┆segm not updated , segm.no┆
0x3bf7a…3bf80 (0x25c,0x780)
0x3bf80…3bfa0 20 3d 20 2b 69 6e 66 69 6e 69 74 65 20 21 3b 0a 20 20 20 20 20 20 77 31 3a 3d 30 3b 0a 20 20 20 ┆ = +infinite !; w1:=0; ┆
0x3bfa0…3bfc0 20 20 20 77 32 3a 3d 62 2e 73 65 67 70 6f 6f 6c 5f 74 6f 70 3b 0a 20 20 20 20 20 20 77 68 69 6c ┆ w2:=b.segpool_top; whil┆
0x3bfc0…3bfe0 65 20 77 32 2d 35 31 36 20 3e 3d 20 62 2e 73 65 67 70 6f 6f 6c 5f 66 73 74 20 64 6f 20 28 77 32 ┆e w2-516 >= b.segpool_fst do (w2┆
0x3bfe0…3c000 29 2e 64 6f 75 62 6c 65 3a 3d 66 31 3b 0a 20 20 20 20 20 20 63 61 6c 6c 00 00 00 00 00 00 00 00 ┆).double:=f1; call ┆
0x3c000…3c006 (480,) (0x25c,0x781)
0x3c006…3c020 20 77 30 20 72 65 74 75 72 6e 3b 0a 0a 61 6c 6c 6f 63 61 74 65 3a 0a 20 20 20 ┆ w0 return; allocate: ┆
0x3c020…3c040 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 33 29 29 ┆ opmess(.w3.,w1:=address(op3))┆
0x3c040…3c060 3b 0a 20 20 20 20 20 20 63 6f 72 75 63 6f 75 6e 74 3a 3d 77 30 3a 3d 74 68 63 6f 75 6e 74 2b 70 ┆; corucount:=w0:=thcount+p┆
0x3c060…3c07e 68 63 6f 75 6e 74 3b 0a 20 20 20 20 20 20 62 2e 61 63 74 69 76 71 66 73 74 3a 3d 77 30 3a ┆hcount; b.activqfst:=w0:┆
0x3c07e…3c084 (0x25c,0x782)
0x3c084…3c0a0 3d 61 64 64 72 65 73 73 28 62 2e 61 63 74 69 76 71 66 73 74 29 3b 0a 20 20 20 20 20 ┆=address(b.activqfst); ┆
0x3c0a0…3c0c0 20 62 2e 61 63 74 69 76 71 6c 61 73 74 3a 3d 77 30 3b 0a 20 20 20 20 20 20 62 2e 61 6e 73 77 65 ┆ b.activqlast:=w0; b.answe┆
0x3c0c0…3c0e0 72 71 66 73 74 3a 3d 77 30 3a 3d 61 64 64 72 65 73 73 28 62 2e 61 6e 73 77 65 72 71 66 73 74 29 ┆rqfst:=w0:=address(b.answerqfst)┆
0x3c0e0…3c0fc 3b 0a 20 20 20 20 20 20 62 2e 61 6e 73 77 65 72 71 6c 61 73 74 3a 3d 77 30 3b 0a 20 ┆; b.answerqlast:=w0; ┆
0x3c0fc…3c102 (0x25c,0x783)
0x3c102…3c120 20 20 20 20 20 62 2e 77 61 69 74 71 66 73 74 3a 3d 77 30 3a 3d 61 64 64 72 65 73 73 28 62 ┆ b.waitqfst:=w0:=address(b┆
0x3c120…3c140 2e 77 61 69 74 71 66 73 74 29 3b 0a 20 20 20 20 20 20 62 2e 77 61 69 74 71 6c 61 73 74 3a 3d 77 ┆.waitqfst); b.waitqlast:=w┆
0x3c140…3c160 30 3b 0a 20 20 20 20 20 20 62 2e 73 65 67 70 6f 6f 6c 5f 66 73 74 3a 3d 77 31 3a 3d 61 64 64 72 ┆0; b.segpool_fst:=w1:=addr┆
0x3c160…3c17a 65 73 73 28 74 65 73 74 61 72 65 61 29 3b 0a 20 20 20 20 20 20 62 2e 73 65 67 ┆ess(testarea); b.seg┆
0x3c17a…3c180 (0x25c,0x784)
0x3c180…3c1a0 5f 73 69 7a 65 3a 3d 77 30 3a 3d 35 31 36 3b 0a 20 20 20 20 20 20 77 30 2a 73 70 6f 6f 6c 62 75 ┆_size:=w0:=516; w0*spoolbu┆
0x3c1a0…3c1c0 66 73 3b 0a 20 20 20 20 20 20 77 31 2b 77 30 3b 0a 20 20 20 20 20 20 62 2e 73 65 67 70 6f 6f 6c ┆fs; w1+w0; b.segpool┆
0x3c1c0…3c1e0 5f 74 6f 70 3a 3d 77 31 3b 0a 20 20 20 20 20 20 74 65 72 6d 62 75 66 72 65 66 3a 3d 77 31 3b 0a ┆_top:=w1; termbufref:=w1; ┆
0x3c1e0…3c200 20 20 20 20 20 20 77 30 3a 3d 20 74 65 72 6d 62 75 66 73 69 7a 65 3b 0a 00 00 00 00 00 00 00 00 ┆ w0:= termbufsize; ┆
0x3c200…3c206 (481,) (0x25c,0x785)
0x3c206…3c220 20 20 20 20 20 20 69 66 20 77 30 3e 34 38 30 20 74 68 65 6e 20 77 30 3a 3d 20 ┆ if w0>480 then w0:= ┆
0x3c220…3c240 34 38 30 3b 0a 20 20 20 20 20 20 62 2e 62 75 66 6c 3a 3d 20 77 30 3b 74 65 72 6d 62 75 66 73 69 ┆480; b.bufl:= w0;termbufsi┆
0x3c240…3c260 7a 65 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 77 30 3a 3d 28 21 6c 65 6e 67 74 68 28 74 65 72 6d ┆ze:= w0; w0:=(!length(term┆
0x3c260…3c27e 62 75 66 68 65 61 64 29 2d 34 29 2b 74 65 72 6d 62 75 66 73 69 7a 65 3b 0a 20 20 20 20 20 ┆bufhead)-4)+termbufsize; ┆
0x3c27e…3c284 (0x25c,0x786)
0x3c284…3c2a0 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 ┆ w0*thcount; w1+w0; ┆
0x3c2a0…3c2c0 20 20 20 20 62 2e 63 6c 5f 64 65 73 63 72 69 70 74 6f 72 3a 3d 20 77 31 3b 0a 20 20 20 20 20 20 ┆ b.cl_descriptor:= w1; ┆
0x3c2c0…3c2e0 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 2e 70 ┆w1+!length(coroutine); b.p┆
0x3c2e0…3c2fc 68 70 6f 6f 6c 5f 66 73 74 3a 3d 20 77 31 3b 0a 20 20 20 20 20 20 62 2e 70 68 5f 73 ┆hpool_fst:= w1; b.ph_s┆
0x3c2fc…3c302 (0x25c,0x787)
0x3c302…3c320 69 7a 65 3a 3d 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 ┆ize:=w0:=!length(processhandle┆
0x3c320…3c340 72 29 3b 0a 20 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 ┆r); w0*phcount; w1+w┆
0x3c340…3c360 30 3b 0a 20 20 20 20 20 20 62 2e 70 68 70 6f 6f 6c 5f 74 6f 70 3a 3d 20 77 31 3b 0a 20 20 20 20 ┆0; b.phpool_top:= w1; ┆
0x3c360…3c37a 20 20 62 2e 74 68 70 6f 6f 6c 5f 66 73 74 3a 3d 20 77 31 3b 0a 20 20 20 20 20 ┆ b.thpool_fst:= w1; ┆
0x3c37a…3c380 (0x25c,0x788)
0x3c380…3c3a0 20 62 2e 74 68 5f 73 69 7a 65 3a 3d 77 30 3a 3d 21 6c 65 6e 67 74 68 28 74 65 72 6d 69 6e 61 6c ┆ b.th_size:=w0:=!length(terminal┆
0x3c3a0…3c3c0 68 61 6e 64 6c 65 72 29 3b 0a 20 20 20 20 20 20 77 30 2a 74 68 63 6f 75 6e 74 3b 0a 20 20 20 20 ┆handler); w0*thcount; ┆
0x3c3c0…3c3e0 20 20 77 31 2b 77 30 3b 0a 20 20 20 20 20 20 62 2e 74 68 70 6f 6f 6c 5f 74 6f 70 3a 3d 20 77 31 ┆ w1+w0; b.thpool_top:= w1┆
0x3c3e0…3c400 3b 0a 20 20 20 20 20 20 62 2e 73 65 6d 70 6f 6f 6c 5f 66 73 74 3a 3d 77 00 00 00 00 00 00 00 00 ┆; b.sempool_fst:=w ┆
0x3c400…3c406 (482,) (0x25c,0x789)
0x3c406…3c420 31 3b 0a 20 20 20 20 20 20 73 65 6d 72 65 66 3a 3d 77 31 3b 0a 20 20 20 20 20 ┆1; semref:=w1; ┆
0x3c420…3c440 20 62 2e 73 65 6d 5f 73 69 7a 65 3a 3d 77 30 3a 3d 21 6c 65 6e 67 74 68 28 73 65 6d 61 70 68 6f ┆ b.sem_size:=w0:=!length(semapho┆
0x3c440…3c460 72 65 29 3b 0a 20 20 20 20 20 20 77 30 20 6c 73 68 69 66 74 20 31 3b 0a 20 20 20 20 20 20 77 30 ┆re); w0 lshift 1; w0┆
0x3c460…3c47e 20 2b 20 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 77 ┆ + !length(semaphore); w┆
0x3c47e…3c484 (0x25c,0x78a)
0x3c484…3c4a0 30 20 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 ┆0 * corucount; w1+w0; ┆
0x3c4a0…3c4c0 20 20 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 ┆ b.sempool_top:=w1; w┆
0x3c4c0…3c4e0 33 3a 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 64 6f 75 62 ┆3:=b.tem+22; f3:=(w3).doub┆
0x3c4e0…3c4fc 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 ┆le; w3-2; w0:= a┆
0x3c4fc…3c502 (0x25c,0x78b)
0x3c502…3c520 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 ┆ddress(b.phpool_fst); (w┆
0x3c520…3c540 33 29 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 ┆3).word:= w0; b.testmtop:=┆
0x3c540…3c560 77 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 3e 30 20 ┆w3; if w0:= testsegmnts>0 ┆
0x3c560…3c57a 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 ┆then begin w┆
0x3c57a…3c580 (0x25c,0x78c)
0x3c580…3c5a0 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 3a 3d 20 77 33 3b ┆3-512; b.testmlast:= w3;┆
0x3c5a0…3c5c0 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 2e 74 65 73 74 6d ┆ w3-510; b.testm┆
0x3c5c0…3c5e0 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 20 20 62 ┆fst:= w3; end else b┆
0x3c5e0…3c600 65 67 69 6e 0a 20 20 20 20 20 20 20 20 62 2e 74 65 73 74 6d 6c 61 73 74 00 00 00 00 00 00 00 00 ┆egin b.testmlast ┆
0x3c600…3c606 (483,) (0x25c,0x78d)
0x3c606…3c620 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 ┆:= w3; b.testmfst:┆
0x3c620…3c640 3d 20 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 ┆= w3; end; margin:=w┆
0x3c640…3c660 33 2d 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 20 20 ┆3-w1; if w3 <> 0 then ┆
0x3c660…3c67e 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 6f 70 ┆ begin w0:=b.testmtop┆
0x3c67e…3c684 (0x25c,0x78e)
0x3c684…3c6a0 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 ┆+2; stdvalue:=w0-w2-┆
0x3c6a0…3c6c0 6d 61 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 ┆margin; move(.w3.,w0:=8,┆
0x3c6c0…3c6e0 77 31 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 73 28 72 65 ┆w1:=address(size),w2:=address(re┆
0x3c6e0…3c6fc 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 ┆source)); if w3:=mar┆
0x3c6fc…3c702 (0x25c,0x78f)
0x3c702…3c720 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 ┆gin < 0 then begin ┆
0x3c720…3c740 20 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 ┆ alarm:=w2:=2763306; ! "*┆
0x3c740…3c760 2a 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 ┆**" ! stop:=w2; ┆
0x3c760…3c77a 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 ┆ end else alarm:=w2:=2105┆
0x3c77a…3c780 (0x25c,0x790)
0x3c780…3c7a0 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 6d 65 73 73 28 2e ┆376; ! " " ! opmess(.┆
0x3c7a0…3c7c0 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 6e 64 ┆w3.,w1:=address(op1)); end┆
0x3c7c0…3c7e0 3b 0a 20 20 20 20 20 20 77 33 3a 3d 62 2e 74 65 6d 2b 32 36 3b 0a 20 20 20 20 20 20 62 75 66 63 ┆; w3:=b.tem+26; bufc┆
0x3c7e0…3c800 6c 61 69 6d 3a 3d 77 31 3a 3d 28 77 33 29 2e 62 79 74 65 3b 0a 20 20 20 00 00 00 00 00 00 00 00 ┆laim:=w1:=(w3).byte; ┆
0x3c800…3c806 (484,) (0x25c,0x791)
0x3c806…3c820 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 ┆ w3+1; w1:=(w3).by┆
0x3c820…3c840 74 65 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 ┆te; margin:=w1-phcount-2; ┆
0x3c840…3c860 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 20 20 20 62 65 67 69 ┆ if w1 <> 0 then begi┆
0x3c860…3c87e 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 75 6e ┆n stdvalue:=w1:=phcoun┆
0x3c87e…3c884 (0x25c,0x792)
0x3c884…3c8a0 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 ┆t+2; move(.w3.,w0:=8┆
0x3c8a0…3c8c0 2c 77 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 ┆,w1:=address(area),w2:=address(r┆
0x3c8c0…3c8e0 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 69 6e ┆esource)); if w3:=margin┆
0x3c8e0…3c8fc 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 ┆ < 0 then begin ┆
0x3c8fc…3c902 (0x25c,0x793)
0x3c902…3c920 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 ┆ alarm:=w2:=2763306; ! "┆
0x3c920…3c940 2a 2a 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 ┆***" ! stop:=w2; ┆
0x3c940…3c960 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 3b 20 ┆ end else alarm:=w2:=2105376; ┆
0x3c960…3c97a 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 ┆ ! " " ! opmess(┆
0x3c97a…3c980 (0x25c,0x794)
0x3c980…3c9a0 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 6e ┆.w3.,w1:=address(op1)); en┆
0x3c9a0…3c9c0 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 61 69 6d 2d 28 77 ┆d; margin:=w1:=bufclaim-(w┆
0x3c9c0…3c9e0 32 3a 3d 70 68 63 6f 75 6e 74 20 6c 73 68 69 66 74 20 31 20 2b 20 74 68 63 6f 75 6e 74 2b 32 29 ┆2:=phcount lshift 1 + thcount+2)┆
0x3c9e0…3ca00 3b 0a 20 20 20 20 20 20 69 66 20 77 31 20 3c 3e 20 30 20 74 68 65 6e 0a 00 00 00 00 00 00 00 00 ┆; if w1 <> 0 then ┆
0x3ca00…3ca06 (485,) (0x25c,0x795)
0x3ca06…3ca20 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 ┆ begin stdval┆
0x3ca20…3ca40 75 65 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 ┆ue:=w2; move(.w3.,w0:=8,┆
0x3ca40…3ca60 77 31 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 65 73 ┆w1:=address(buf),w2:=address(res┆
0x3ca60…3ca7e 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 ┆ource)); if w3:=margin┆
0x3ca7e…3ca84 (0x25c,0x796)
0x3ca84…3caa0 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 ┆ < 0 then begin ┆
0x3caa0…3cac0 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; ! "**┆
0x3cac0…3cae0 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; ┆
0x3cae0…3cafc 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┆
0x3cafc…3cb02 (0x25c,0x797)
0x3cb02…3cb20 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 ┆; ! " " ! opmess(.w┆
0x3cb20…3cb40 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 6e 64 3b ┆3.,w1:=address(op1)); end;┆
0x3cb40…3cb60 0a 20 20 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 ┆ w3:=address(spoolarea); ┆
0x3cb60…3cb7a 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 34 38 29 3b 20 20 21 20 72 65 6d 6f 76 ┆ monitor(48); ! remov┆
0x3cb7a…3cb80 (0x25c,0x798)
0x3cb80…3cba0 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 6c 73 65 67 6d 2b ┆e entry ! w2:=thspoolsegm+┆
0x3cba0…3cbc0 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 6f 6c 73 65 67 6d ┆1*thcount; w1:=phspoolsegm┆
0x3cbc0…3cbe0 2b 31 2a 70 68 63 6f 75 6e 74 3b 0a 20 20 20 20 20 20 77 32 2b 77 31 3b 0a 20 20 20 20 20 20 28 ┆+1*phcount; w2+w1; (┆
0x3cbe0…3cc00 74 61 69 6c 28 77 31 3a 3d 31 29 29 2e 77 6f 72 64 3a 3d 77 32 3b 0a 20 00 00 00 00 00 00 00 00 ┆tail(w1:=1)).word:=w2; ┆
0x3cc00…3cc06 (486,) (0x25c,0x799)
0x3cc06…3cc20 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 ┆ monitor(40); ! creat┆
0x3cc20…3cc40 65 20 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 ┆e spool area ! w1:=3; ┆
0x3cc40…3cc60 20 20 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 74 72 ┆ monitor(50); ! permanent entr┆
0x3cc60…3cc7e 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 65 61 ┆y ! monitor(52); ! crea┆
0x3cc7e…3cc84 (0x25c,0x79a)
0x3cc84…3cca0 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 ┆te area process ! moni┆
0x3cca0…3ccc0 74 6f 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 ┆tor(8); ! reserve area process┆
0x3ccc0…3cce0 20 21 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 20 20 20 62 ┆ ! if w0 <> 0 then b┆
0x3cce0…3ccfc 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 ┆egin stdvalue:=w2; ┆
0x3ccfc…3cd02 (0x25c,0x79b)
0x3cd02…3cd20 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┆
0x3cd20…3cd40 72 65 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 ┆ress(spoolarea),w2:=address(reso┆
0x3cd40…3cd60 75 72 63 65 29 29 3b 0a 20 20 20 20 20 20 20 20 61 6c 61 72 6d 3a 3d 77 32 3a 3d 32 37 36 33 33 ┆urce)); alarm:=w2:=27633┆
0x3cd60…3cd7a 30 36 3b 0a 20 20 20 20 20 20 20 20 73 74 6f 70 3a 3d 77 32 3b 0a 20 20 20 20 ┆06; stop:=w2; ┆
0x3cd7a…3cd80 (0x25c,0x79c)
0x3cd80…3cda0 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 31 29 ┆ opmess(.w3.,w1:=address(op1)┆
0x3cda0…3cdc0 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 64 72 65 73 73 28 ┆); end; w3:=address(┆
0x3cdc0…3cde0 74 65 73 74 61 72 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 ┆testarea); monitor(48); !┆
0x3cde0…3ce00 20 72 65 6d 6f 76 65 20 65 6e 74 72 79 20 21 0a 20 20 20 20 20 20 28 74 00 00 00 00 00 00 00 00 ┆ remove entry ! (t ┆
0x3ce00…3ce06 (487,) (0x25c,0x79d)
0x3ce06…3ce20 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 ┆ail(w1:=1)).word:=w2:=test┆
0x3ce20…3ce40 73 65 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 ┆segmnts; b.maxtestsegm:=w2┆
0x3ce40…3ce60 3b 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 ┆; if w2 > 0 then beg┆
0x3ce60…3ce7e 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 72 65 ┆in monitor(40); ! cre┆
0x3ce7e…3ce84 (0x25c,0x79e)
0x3ce84…3cea0 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 ┆ate testoutput area ! ┆
0x3cea0…3cec0 20 20 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 ┆ w1:=3; monitor(50); !┆
0x3cec0…3cee0 20 70 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 6f 6e 69 74 ┆ permanent entry ! monit┆
0x3cee0…3cefc 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 ┆or(52); ! create area proce┆
0x3cefc…3cf02 (0x25c,0x79f)
0x3cf02…3cf20 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 ┆ss ! monitor(8); ! r┆
0x3cf20…3cf40 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 20 20 20 20 20 69 66 ┆eserve area process ! if┆
0x3cf40…3cf60 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 0a 20 20 20 20 ┆ w0 <> 0 then begin ┆
0x3cf60…3cf7a 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 20 ┆ stdvalue:=w2; ┆
0x3cf7a…3cf80 (0x25c,0x7a0)
0x3cf80…3cfa0 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 28 ┆ move(.w3.,w0:=8,w1:=address(┆
0x3cfa0…3cfc0 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 75 72 63 65 29 29 ┆testarea),w2:=address(resource))┆
0x3cfc0…3cfe0 3b 0a 20 20 20 20 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 0a ┆; alarm:=w2:=2763306; ┆
0x3cfe0…3d000 20 20 20 20 20 20 20 20 20 20 73 74 6f 70 3a 3d 77 32 3b 0a 20 20 20 20 00 00 00 00 00 00 00 00 ┆ stop:=w2; ┆
0x3d000…3d006 (488,) (0x25c,0x7a1)
0x3d006…3d020 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 ┆ opmess(.w3.,w1:=addr┆
0x3d020…3d040 65 73 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 ┆ess(op1)); end; en┆
0x3d040…3d060 64 3b 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 0a 20 ┆d; if w0:=stop <> 0 then ┆
0x3d060…3d07e 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 72 65 ┆ begin ! the resources are┆
0x3d07e…3d084 (0x25c,0x7a2)
0x3d084…3d0a0 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 ┆ not available for start up ┆
0x3d0a0…3d0c0 21 0a 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 ┆! mode1:=w0:=1; ┆
0x3d0c0…3d0e0 6f 70 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 2e 2c 77 30 ┆op1:=w0:=2; move(.w3.,w0┆
0x3d0e0…3d0fc 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 ┆:=14,w1:=address(inittr),w2:┆
0x3d0fc…3d102 (0x25c,0x7a3)
0x3d102…3d120 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 ┆=address(alarm)); opme┆
0x3d120…3d140 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 20 20 ┆ss(.w3.,w1:=address(op1)); ┆
0x3d140…3d160 20 65 6e 64 3b 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 ┆ end; opmess(.w3.,w1:=addr┆
0x3d160…3d17a 65 73 73 28 6f 70 32 29 29 3b 0a 20 20 20 20 20 20 77 31 3a 3d 31 30 38 3b 0a ┆ess(op2)); w1:=108; ┆
0x3d17a…3d180 (0x25c,0x7a4)
0x3d180…3d1a0 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 29 2e 64 6f 75 62 ┆ b.starttime:=f1:=(w1).doub┆
0x3d1a0…3d1c0 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 0a 20 20 20 20 65 ┆le; goto initbufs; e┆
0x3d1c0…3d1e0 6e 64 3b 0a 20 20 65 6e 64 3b 20 20 21 20 69 6e 69 74 20 21 0a 0a 65 6e 64 2e 0a 19 00 6d 6f 6e ┆nd; end; ! init ! end. mon┆
0x3d1e0…3d200 69 74 6f 72 28 35 30 29 3b 20 20 21 20 70 65 72 6d 61 6e 65 6e 74 20 65 00 00 00 00 00 00 00 00 ┆itor(50); ! permanent e ┆
0x3d200…3d206 (489,) (0x25c,0x7a5)
0x3d206…3d220 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 ┆ntry ! monitor(52)┆
0x3d220…3d240 3b 20 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 ┆; ! create area process ! ┆
0x3d240…3d260 20 20 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 61 20 ┆ monitor(8); ! reserve area ┆
0x3d260…3d27e 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 20 74 ┆process ! if w0 <> 0 t┆
0x3d27e…3d284 (0x25c,0x7a6)
0x3d284…3d2a0 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 ┆hen begin ┆
0x3d2a0…3d2c0 73 74 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 ┆stdvalue:=w2; move(.w3┆
0x3d2c0…3d2e0 2e 2c 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 29 2c 77 32 ┆.,w0:=8,w1:=address(testarea),w2┆
0x3d2e0…3d2fc 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 ┆:=address(resource)); ┆
0x3d2fc…3d302 (0x25c,0x7a7)
0x3d302…3d320 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 ┆ alarm:=w2:=2763306; ┆
0x3d320…3d340 20 20 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 ┆ stop:=w2; opmess(.┆
0x3d340…3d360 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 20 20 65 ┆w3.,w1:=address(op1)); e┆
0x3d360…3d37a 6e 64 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 69 66 20 77 30 ┆nd; end; if w0┆
0x3d37a…3d380 (0x25c,0x7a8)
0x3d380…3d3a0 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 20 21 20 74 ┆:=stop <> 0 then begin ! t┆
0x3d3a0…3d3c0 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 6c 65 20 66 ┆he resources are not available f┆
0x3d3c0…3d3e0 6f 72 20 73 74 61 72 74 20 75 70 20 21 0a 20 20 20 20 20 20 20 20 6d 6f 64 65 31 3a 3d 77 30 3a ┆or start up ! mode1:=w0:┆
0x3d3e0…3d400 3d 31 3b 0a 20 20 20 20 20 20 20 20 6f 70 31 3a 3d 77 30 3a 3d 32 3b 0a 00 00 00 00 00 00 00 00 ┆=1; op1:=w0:=2; ┆
0x3d400…3d406 (490,) (0x25c,0x7a9)
0x3d406…3d420 20 20 20 20 20 20 20 20 6d 6f 76 65 28 2e 77 33 2e 2c 77 30 3a 3d 31 34 64 72 ┆ move(.w3.,w0:=14dr┆
0x3d420…3d440 65 73 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 ┆ess(op1)); end; en┆
0x3d440…3d460 64 3b 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 0a 20 ┆d; if w0:=stop <> 0 then ┆
0x3d460…3d47e 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 72 65 ┆ begin ! the resources are┆
0x3d47e…3d484 (0x2c0,0x7aa)
0x3d484…3d4a0 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 72 61 ┆ ; tem test and demo progra┆
0x3d4a0…3d4c0 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 3d 65 ┆mmes ( temproc=edit adpproc=e┆
0x3d4c0…3d4e0 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 74 32 ┆dit ttemtest1=edit ttemtest2┆
0x3d4e0…3d4fc 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 ┆=edit ttemtest3=edit end┆
0x3d4fc…3d502 (0x2c0,0x7ab)
0x3d502…3d520 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 75 72 ┆) i' integer procedur┆
0x3d520…3d540 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 65 67 ┆e createpool(z); zone z; beg┆
0x3d540…3d560 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 72 ┆in integer i; integer ar┆
0x3d560…3d57a 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 ┆ray zia(1:20),sia(1:12); ┆
0x3d57a…3d580 (0x2c0,0x7ac)
0x3d580…3d5a0 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 20 20 ┆ zone ztem(1,1,stderror); ┆
0x3d5a0…3d5c0 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 74 7a ┆open(ztem,0,<:tem:>,0); getz┆
0x3d5c0…3d5e0 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 6d 2c ┆one6(z,zia); getshare6(ztem,┆
0x3d5e0…3d600 73 69 61 2c 31 29 3b 0a 20 20 20 20 73 69 61 28 34 29 3a 3d 39 30 20 73 00 00 00 00 00 00 00 00 ┆sia,1); sia(4):=90 s ┆
0x3d600…3d606 (491,) (0x2c0,0x7ad)
0x3d606…3d620 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┆
0x3d620…3d640 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)┆
0x3d640…3d660 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); ┆
0x3d660…3d67e 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 63 ┆ monitor(16,ztem,1,sia); c┆
0x3d67e…3d684 (0x2c0,0x7ae)
0x3d684…3d6a0 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 74 65 ┆reatepool:=if monitor(18,zte┆
0x3d6a0…3d6c0 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 28 31 ┆m,1,sia) <> 1 then -1 else sia(1┆
0x3d6c0…3d6e0 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 20 63 ┆); close(ztem,true); end c┆
0x3d6e0…3d6fc 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 ┆reatepool; integer proc┆
0x3d6fc…3d702 (0x2c0,0x7af)
0x3d702…3d720 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 7a 3b ┆edure removepool(z); zone z;┆
0x3d720…3d740 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 74 65 ┆ begin integer i; inte┆
0x3d740…3d760 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 0a 20 ┆ger array zia(1:20),sia(1:12); ┆
0x3d760…3d77a 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)┆
0x3d77a…3d780 (0x2c0,0x7b0)
0x3d780…3d7a0 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 20 20 ┆; open(ztem,0,<:tem:>,0); ┆
0x3d7a0…3d7c0 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 65 36 ┆ getzone6(z,zia); getshare6┆
0x3d7c0…3d7e0 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 68 69 ┆(ztem,sia,1); sia(4):=92 shi┆
0x3d7e0…3d800 66 74 20 31 32 3b 0a 20 20 20 20 66 6f 72 20 69 3a 3d 30 20 73 74 65 70 00 00 00 00 00 00 00 00 ┆ft 12; for i:=0 step ┆
0x3d800…3d806 (492,) (0x2c0,0x7b1)
0x3d806…3d820 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 ┆ 1 until 3 do sia(8+i):=zi┆
0x3d820…3d840 61 28 32 2b 69 29 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 ┆a(2+i); setshare6(ztem,sia,1┆
0x3d840…3d860 29 3b 0a 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 ┆); monitor(16,ztem,1,sia); ┆
0x3d860…3d87e 20 20 20 72 65 6d 6f 76 65 70 6f 6f 6c 3a 3d 69 66 20 6d 6f 6e 69 74 6f 72 28 31 38 2c 7a ┆ removepool:=if monitor(18,z┆
0x3d87e…3d884 (0x2c0,0x7b2)
0x3d884…3d8a0 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 ┆tem,1,sia) <> 1 then -1 else┆
0x3d8a0…3d8c0 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 0a 20 ┆ sia(1); close(ztem,true); ┆
0x3d8c0…3d8e0 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 70 72 ┆ end removepool; integer pr┆
0x3d8e0…3d8fc 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 ┆ocedure createlink(z,type,id┆
0x3d8fc…3d902 (0x2c0,0x7b3)
0x3d902…3d920 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 20 20 ┆,procref,bufs,timers, ┆
0x3d920…3d940 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 62 73 ┆ mask,subs┆
0x3d940…3d960 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 64 2c ┆t); zone z; integer type,id,┆
0x3d960…3d97a 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 ┆procref,bufs,timers,mask,s┆
0x3d97a…3d980 (0x2c0,0x7b4)
0x3d980…3d9a0 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 20 20 ┆ubst; begin integer i; ┆
0x3d9a0…3d9c0 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 3a 31 ┆ integer array zia(1:20),sia(1:1┆
0x3d9c0…3d9e0 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 20 20 ┆2); long array arr(1:2); ┆
0x3d9e0…3da00 20 7a 6f 6e 65 20 7a 74 65 6d 28 31 2c 31 2c 73 74 64 65 72 72 6f 72 29 00 00 00 00 00 00 00 00 ┆ zone ztem(1,1,stderror) ┆
0x3da00…3da06 (493,) (0x2c0,0x7b5)
0x3da06…3da20 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 ┆; getzone(z,zia); ┆
0x3da20…3da40 61 72 72 28 31 29 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 ┆arr(1):=zia(2); arr(1):=arr(1) s┆
0x3da40…3da60 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 28 32 29 3a 3d ┆hift 24 add zia(3); arr(2):=┆
0x3da60…3da7e 7a 69 61 28 34 29 3b 20 61 72 72 28 32 29 3a 3d 61 72 72 28 32 29 20 73 68 69 66 74 20 32 ┆zia(4); arr(2):=arr(2) shift 2┆
0x3da7e…3da84 (0x2c0,0x7b6)
0x3da84…3daa0 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 20 20 ┆4 add zia(5); i:=1; ┆
0x3daa0…3dac0 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 65 28 ┆open(ztem,0,string arr(increase(┆
0x3dac0…3dae0 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 2c 31 ┆i)),0); getshare6(ztem,sia,1┆
0x3dae0…3dafc 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 ┆); sia(4):=100 shift 12 ┆
0x3dafc…3db02 (0x2c0,0x7b7)
0x3db02…3db20 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 20 20 ┆add type; sia(5):=id; ┆
0x3db20…3db40 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 75 66 ┆sia(6):=procref; sia(7):=buf┆
0x3db40…3db60 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 28 38 ┆s shift 12 add timers; sia(8┆
0x3db60…3db7a 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 ┆):= mask shift 12 add subs┆
0x3db7a…3db80 (0x2c0,0x7b8)
0x3db80…3dba0 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 20 20 ┆t; setshare6(ztem,sia,1); ┆
0x3dba0…3dbc0 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 63 72 ┆ monitor(16,ztem,1,sia); cr┆
0x3dbc0…3dbe0 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 2c 73 ┆eatelink:=if monitor(18,ztem,1,s┆
0x3dbe0…3dc00 69 61 29 20 3c 3e 20 31 20 74 68 65 6e 20 2d 31 20 65 6c 73 65 20 73 69 00 00 00 00 00 00 00 00 ┆ia) <> 1 then -1 else si ┆
0x3dc00…3dc06 (494,) (0x2c0,0x7b9)
0x3dc06…3dc20 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 ┆a(1); close(ztem,true)┆
0x3dc20…3dc40 3b 0a 20 20 65 6e 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 ┆; end createlink; integer┆
0x3dc40…3dc60 20 70 72 6f 63 65 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 ┆ procedure removelink(z,id,immed┆
0x3dc60…3dc7e 69 61 74 65 29 3b 0a 20 20 7a 6f 6e 65 20 7a 3b 0a 20 20 69 6e 74 65 67 65 72 20 69 64 3b ┆iate); zone z; integer id;┆
0x3dc7e…3dc84 (0x2c0,0x7ba)
0x3dc84…3dca0 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 67 69 ┆ boolean immediate; begi┆
0x3dca0…3dcc0 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 72 72 ┆n integer i; integer arr┆
0x3dcc0…3dce0 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 6e 67 ┆ay zia(1:20),sia(1:12); long┆
0x3dce0…3dcfc 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 ┆ array arr(1:2); zone zt┆
0x3dcfc…3dd02 (0x2c0,0x7bb)
0x3dd02…3dd20 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 65 36 ┆em(1,1,stderror); getzone6┆
0x3dd20…3dd40 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 72 72 ┆(z,zia); arr(1):=zia(2); arr┆
0x3dd40…3dd60 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 29 3b ┆(1):=arr(1) shift 24 add zia(3);┆
0x3dd60…3dd7a 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┆
0x3dd7a…3dd80 (0x2c0,0x7bc)
0x3dd80…3dda0 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 0a 20 ┆):=arr(2) shift 24 add zia(5); ┆
0x3dda0…3ddc0 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 67 20 ┆ i:=1; open(ztem,0,string ┆
0x3ddc0…3dde0 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 61 72 ┆arr(increase(i)),0); getshar┆
0x3dde0…3de00 65 36 28 7a 74 65 6d 2c 73 69 61 2c 31 29 3b 0a 20 20 20 20 73 69 61 28 00 00 00 00 00 00 00 00 ┆e6(ztem,sia,1); sia( ┆
0x3de00…3de06 (495,) (0x2c0,0x7bd)
0x3de06…3de20 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 ┆4):=102 shift 12 +(if imme┆
0x3de20…3de40 64 69 61 74 65 20 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 ┆diate then 1 else 0); sia(5)┆
0x3de40…3de60 3a 3d 69 64 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 ┆:=id; setshare6(ztem,sia,1);┆
0x3de60…3de7e 0a 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 ┆ monitor(16,ztem,1,sia); ┆
0x3de7e…3de84 (0x2c0,0x7be)
0x3de84…3dea0 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 31 38 ┆ removelink:=if monitor(18┆
0x3dea0…3dec0 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 20 73 ┆,ztem,1,sia) <> 1 then -1 else s┆
0x3dec0…3dee0 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 69 6e ┆ia(1); end removelink; in┆
0x3dee0…3defc 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 ┆teger procedure terminalid(t┆
0x3defc…3df02 (0x2c0,0x7bf)
0x3df02…3df20 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 72 6d ┆erminalnumber); integer term┆
0x3df20…3df40 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 72 6d ┆inalnumber; terminalid:=((term┆
0x3df40…3df60 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 64 64 ┆inalnumber//10 + 48) shift 8 add┆
0x3df60…3df7a 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 ┆ (terminalnu┆
0x3df7a…3df80 (0x2c0,0x7c0)
0x3df80…3dfa0 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 20 33 ┆mber mod 10) + 48) shift 8 add 3┆
0x3dfa0…3dfc0 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 72 65 ┆2; ',f i' integer procedure┆
0x3dfc0…3dfe0 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 29 3b ┆ connect (z, a_id, mask, subst);┆
0x3dfe0…3e000 0a 20 20 76 61 6c 75 65 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ value ┆
0x3e000…3e006 (496,) (0x2c0,0x7c1)
0x3e006…3e020 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 ┆ mask, subst┆
0x3e020…3e040 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 20 20 20 20 20 ┆ ; zone ┆
0x3e040…3e060 7a 20 20 20 20 20 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 ┆z ; string ┆
0x3e060…3e07e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 5f 69 64 20 20 20 ┆ a_id ┆
0x3e07e…3e084 (0x2c0,0x7c2)
0x3e084…3e0a0 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 20 20 ┆ ; integer ┆
0x3e0a0…3e0c0 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 75 62 ┆ mask, sub┆
0x3e0c0…3e0e0 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 22 6e ┆st ; <* return value: if "n┆
0x3e0e0…3e0fc 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 ┆ormal answer" and "status=0"┆
0x3e0fc…3e102 (0x2c0,0x7c3)
0x3e102…3e120 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 6c 73 ┆ then result is set to "0" els┆
0x3e120…3e140 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 20 20 ┆e to "-1". z: ┆
0x3e140…3e160 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 ("┆
0x3e160…3e17a 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┆
0x3e17a…3e180 (0x2c0,0x7c4)
0x3e180…3e1a0 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 75 67 ┆ess) throug┆
0x3e1a0…3e1c0 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┆
0x3e1c0…3e1e0 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 20 20 ┆ is accessed. a_id: ┆
0x3e1e0…3e200 20 20 20 61 70 70 6c 69 63 61 74 69 6f 6e 20 69 64 65 6e 74 69 66 69 65 00 00 00 00 00 00 00 00 ┆ application identifie ┆
0x3e200…3e206 (497,) (0x2c0,0x7c5)
0x3e206…3e220 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 ┆r, is the text string that┆
0x3e220…3e240 20 69 64 65 6e 74 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 ┆ identifies ┆
0x3e240…3e260 20 74 68 65 20 61 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 ┆ the application in the "applica┆
0x3e260…3e27e 74 69 6f 6e 20 73 65 6c 65 63 74 20 6d 65 6e 75 22 20 70 72 65 73 65 6e 74 65 64 0a 20 20 ┆tion select menu" presented ┆
0x3e27e…3e284 (0x2c0,0x7c6)
0x3e284…3e2a0 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 74 65 ┆ to the te┆
0x3e2a0…3e2c0 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 73 75 ┆rminal operator. mask, su┆
0x3e2c0…3e2e0 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 20 22 ┆bst: must be identical to the "┆
0x3e2e0…3e2fc 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┆
0x3e2fc…3e302 (0x2c0,0x7c7)
0x3e302…3e320 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 20 22 ┆ of the "┆
0x3e320…3e340 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 75 74 ┆createlink" call to the adp (out┆
0x3e340…3e360 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 20 20 ┆put) device. note: ┆
0x3e360…3e37a 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┆
0x3e37a…3e380 (0x2c0,0x7c8)
0x3e380…3e3a0 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 72 73 ┆he "mask" and "subst" parameters┆
0x3e3a0…3e3c0 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 73 69 ┆ have no si┆
0x3e3c0…3e3e0 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 20 20 ┆gnificance. *> begin ┆
0x3e3e0…3e400 20 69 6e 74 65 67 65 72 20 69 2c 20 73 74 61 74 75 73 3b 0a 20 20 20 20 00 00 00 00 00 00 00 00 ┆ integer i, status; ┆
0x3e400…3e406 (498,) (0x2c0,0x7c9)
0x3e406…3e420 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 ┆integer array zia (1:20), ┆
0x3e420…3e440 73 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 ┆sia (1:12); long array arr (┆
0x3e440…3e460 31 3a 32 29 3b 0a 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 ┆1:2); real array field raf; ┆
0x3e460…3e47e 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 72 6f 72 ┆ zone z_adp (1, 1, stderror┆
0x3e47e…3e484 (0x2c0,0x7ca)
0x3e484…3e4a0 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 20 20 ┆); getzone (z, zia); ┆
0x3e4a0…3e4c0 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 28 31 ┆ arr(1):= zia(2); arr(1):= arr(1┆
0x3e4c0…3e4e0 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 28 32 ┆) shift 24 add zia(3); arr(2┆
0x3e4e0…3e4fc 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 ┆):= zia(4); arr(2):= arr(2) ┆
0x3e4fc…3e502 (0x2c0,0x7cb)
0x3e502…3e520 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 20 31 ┆shift 24 add zia(5); i:= 1┆
0x3e520…3e540 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 72 72 ┆; open (z_adp, 0, string arr┆
0x3e540…3e560 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 65 20 ┆ (increase(i)),0); getshare ┆
0x3e560…3e57a 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 ┆(z_adp, sia, 1); sia(4┆
0x3e57a…3e580 (0x2c0,0x7cc)
0x3e580…3e5a0 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 6f 6e ┆):= 4 shift 12 + 4; <* operation┆
0x3e5a0…3e5c0 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 20 20 ┆:= connect *> raf:= 10; ┆
0x3e5c0…3e5e0 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 0a 20 ┆movestring (sia.raf, 1, a_id); ┆
0x3e5e0…3e600 20 20 20 73 69 61 28 31 31 29 3a 3d 20 28 6c 6f 67 61 6e 64 20 28 6d 61 00 00 00 00 00 00 00 00 ┆ sia(11):= (logand (ma ┆
0x3e600…3e606 (499,) (0x2c0,0x7cd)
0x3e606…3e620 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 ┆sk, subst))shift 8; <* tem┆
0x3e620…3e640 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 20 73 ┆ addressing information *> s┆
0x3e640…3e660 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 20 20 6d 6f 6e ┆etshare (z_adp, sia, 1); mon┆
0x3e660…3e67e 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 ┆itor (16)send_message:(z_adp, ┆
0x3e67e…3e684 (0x2c0,0x7ce)
0x3e684…3e6a0 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 69 66 ┆1, sia); status:= 1 shif┆
0x3e6a0…3e6c0 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 64 70 ┆t (monitor(18)wait_answer:(z_adp┆
0x3e6c0…3e6e0 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 65 6e ┆,1,sia)); if status = 2 then┆
0x3e6e0…3e6fc 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 ┆ status:= status+sia(1); ┆
0x3e6fc…3e702 (0x2c0,0x7cf)
0x3e702…3e720 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 6e 20 ┆ connect:= if status = 2 then ┆
0x3e720…3e740 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 61 6c ┆0 else -1; close (z_adp, fal┆
0x3e740…3e760 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 72 20 ┆se); end connect; integer ┆
0x3e760…3e77a 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 ┆procedure disconnect (z, m┆
0x3e77a…3e780 (0x2c0,0x7d0)
0x3e780…3e7a0 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 20 20 ┆ask, subst); value ┆
0x3e7a0…3e7c0 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 20 20 ┆ mask, subst ; ┆
0x3e7c0…3e7e0 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 7a 20 ┆zone z ┆
0x3e7e0…3e800 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 0a 20 20 69 6e 74 65 67 65 72 00 00 00 00 00 00 00 00 ┆ ; integer ┆
0x3e800…3e806 (500,) (0x2c0,0x7d1)
0x3e806…3e820 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3e820…3e840 6d 61 73 6b 2c 20 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 ┆mask, subst ; <* return val┆
0x3e840…3e860 75 65 3a 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 61 74 ┆ue: if "normal answer" and "stat┆
0x3e860…3e87e 75 73 3d 30 22 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 ┆us=0" then result is set to "0┆
0x3e87e…3e884 (0x2c0,0x7d2)
0x3e884…3e8a0 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 20 20 ┆" else to "-1". z: ┆
0x3e8a0…3e8c0 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 20 70 ┆ must be opened to the p┆
0x3e8c0…3e8e0 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 70 ┆rocess ("tem-pool" or external p┆
0x3e8e0…3e8fc 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 ┆rocess) ┆
0x3e8fc…3e902 (0x2c0,0x7d3)
0x3e902…3e920 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 ┆ through which the adp (output┆
0x3e920…3e940 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 6d 61 ┆) process is accessed. ma┆
0x3e940…3e960 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 74 6f ┆sk, subst: must be identical to┆
0x3e960…3e97a 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 ┆ the "mask" and "subst" pa┆
0x3e97a…3e980 (0x2c0,0x7d4)
0x3e980…3e9a0 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 6f 66 ┆rameters of┆
0x3e9a0…3e9c0 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 64 ┆ the "createlink" call to the ad┆
0x3e9c0…3e9e0 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 3a 20 ┆p (output) device. note: ┆
0x3e9e0…3ea00 20 20 20 20 20 20 20 20 69 66 20 74 65 6d 20 69 73 20 6e 6f 74 20 65 6d 00 00 00 00 00 00 00 00 ┆ if tem is not em ┆
0x3ea00…3ea06 (501,) (0x2c0,0x7d5)
0x3ea06…3ea20 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 ┆ployed the "mask" and "sub┆
0x3ea20…3ea40 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 20 20 20 20 20 20 ┆st" parameters have ┆
0x3ea40…3ea60 20 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 2a ┆ no significance. *┆
0x3ea60…3ea7e 3e 0a 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 74 ┆> begin integer i, stat┆
0x3ea7e…3ea84 (0x2c0,0x7d6)
0x3ea84…3eaa0 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 ┆us; integer array zia (1┆
0x3eaa0…3eac0 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 61 79 ┆:20), sia (1:12); long array┆
0x3eac0…3eae0 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 20 31 ┆ arr (1:2); zone z_adp (1, 1┆
0x3eae0…3eafc 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 ┆, stderror); getzone (z,┆
0x3eafc…3eb02 (0x2c0,0x7d7)
0x3eb02…3eb20 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 61 72 ┆ zia); arr(1):= zia(2); ar┆
0x3eb20…3eb40 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 28 33 ┆r(1):= arr(1) shift 24 add zia(3┆
0x3eb40…3eb60 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 3a 3d ┆); arr(2):= zia(4); arr(2):=┆
0x3eb60…3eb7a 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┆
0x3eb7a…3eb80 (0x2c0,0x7d8)
0x3eb80…3eba0 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 20 30 ┆); i:= 1; open (z_adp, 0┆
0x3eba0…3ebc0 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 20 ┆, string arr (increase(i)),0); ┆
0x3ebc0…3ebe0 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 20 ┆ getshare (z_adp, sia, 1); ┆
0x3ebe0…3ec00 20 73 69 61 28 34 29 3a 3d 20 34 20 73 68 69 66 74 20 31 32 20 2b 20 38 00 00 00 00 00 00 00 00 ┆ sia(4):= 4 shift 12 + 8 ┆
0x3ec00…3ec06 (502,) (0x2c0,0x7d9)
0x3ec06…3ec20 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 ┆; <* operation:= disconnec┆
0x3ec20…3ec40 74 20 2a 3e 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 ┆t *> sia(11):= (logand (mask┆
0x3ec40…3ec60 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 73 73 ┆, subst))shift 8; <* tem address┆
0x3ec60…3ec7e 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 ┆ing information *> setshar┆
0x3ec7e…3ec84 (0x2c0,0x7da)
0x3ec84…3eca0 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 ┆e (z_adp, sia, 1); monit┆
0x3eca0…3ecc0 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 20 73 ┆or (16)send_message:(z_adp, 1, s┆
0x3ecc0…3ece0 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 69 74 ┆ia); status:= 1 shift (monit┆
0x3ece0…3ecfc 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 ┆or(18)wait_answer:(z_adp,1,s┆
0x3ecfc…3ed02 (0x2c0,0x7db)
0x3ed02…3ed20 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 ┆ia)); if status = 2 then s┆
0x3ed20…3ed40 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 63 6f ┆tatus:= status+sia(1); disco┆
0x3ed40…3ed60 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 6c 73 ┆nnect:= if status = 2 then 0 els┆
0x3ed60…3ed7a 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 ┆e -1; close (z_adp, fa┆
0x3ed7a…3ed80 (0x2c0,0x7dc)
0x3ed80…3eda0 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 69 6e ┆lse); end disconnect; in┆
0x3eda0…3edc0 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 28 7a ┆teger procedure lookup_device (z┆
0x3edc0…3ede0 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 75 62 ┆, aid, sb, cu, device, mask, sub┆
0x3ede0…3ee00 73 74 29 3b 0a 20 20 76 61 6c 75 65 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆st); value ┆
0x3ee00…3ee06 (503,) (0x2c0,0x7dd)
0x3ee06…3ee20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3ee20…3ee40 20 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 7a 6f ┆ cu, device, mask, subst ; zo┆
0x3ee40…3ee60 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 20 20 20 7a ┆ne z┆
0x3ee60…3ee7e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3ee7e…3ee84 (0x2c0,0x7de)
0x3ee84…3eea0 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 20 20 ┆ ; integer ┆
0x3eea0…3eec0 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 64 65 ┆ aid, sb, cu, de┆
0x3eec0…3eee0 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 72 6e ┆vice, mask, subst ; <* return┆
0x3eee0…3eefc 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 ┆ value: is taken from the r┆
0x3eefc…3ef02 (0x2c0,0x7df)
0x3ef02…3ef20 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 20 ┆esult field of the adp answer ┆
0x3ef20…3ef40 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 20 20 ┆("answer(2)"), ┆
0x3ef40…3ef60 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 61 74 ┆ if "normal answer" and "stat┆
0x3ef60…3ef7a 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 ┆us=0", else result is set ┆
0x3ef7a…3ef80 (0x2c0,0x7e0)
0x3ef80…3efa0 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 6d 75 ┆to "-1". z: mu┆
0x3efa0…3efc0 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 74 65 ┆st be opened to the process ("te┆
0x3efc0…3efe0 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 20 20 ┆m-pool" or external process) ┆
0x3efe0…3f000 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 68 72 6f 75 67 00 00 00 00 00 00 00 00 ┆ throug ┆
0x3f000…3f006 (504,) (0x2c0,0x7e1)
0x3f006…3f020 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 ┆h which the adp (output) p┆
0x3f020…3f040 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 2c 20 64 65 ┆rocess is accessed. cu, de┆
0x3f040…3f060 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 6e 66 6f 72 ┆vice: device addressing infor┆
0x3f060…3f07e 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 63 75 ┆mation, please notice that "cu┆
0x3f07e…3f084 (0x2c0,0x7e2)
0x3f084…3f0a0 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 74 ┆" and t┆
0x3f0a0…3f0c0 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 20 6f ┆he value of the "cu-byte" byte o┆
0x3f0c0…3f0e0 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 20 20 ┆f the transaktion header ┆
0x3f0e0…3f0fc 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 ┆
0x3f0fc…3f102 (0x2c0,0x7e3)
0x3f102…3f120 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 69 ┆waittrans in: "destination shi┆
0x3f120…3f140 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 20 20 ┆ft(-12)extract 12") ┆
0x3f140…3f160 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 64 65 ┆ not necessarily are ide┆
0x3f160…3f17a 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 ┆ntical if TEM is employed.┆
0x3f17a…3f180 (0x2c0,0x7e4)
0x3f180…3f1a0 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 20 20 ┆ The following ┆
0x3f1a0…3f1c0 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 65 6d ┆ algorithm solves the problem┆
0x3f1c0…3f1e0 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┆
0x3f1e0…3f200 67 61 6e 64 20 28 63 75 2d 62 79 74 65 2c 20 65 78 6f 72 20 28 4d 41 53 00 00 00 00 00 00 00 00 ┆gand (cu-byte, exor (MAS ┆
0x3f200…3f206 (505,) (0x2c0,0x7e5)
0x3f206…3f220 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 ┆K, -1))" ┆
0x3f220…3f240 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 20 22 63 75 ┆ or: "cu┆
0x3f240…3f260 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 74 28 2d 31 ┆ := logand (destination shift(-1┆
0x3f260…3f27e 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 29 29 ┆2)extract 12, exor (MASK, -1))┆
0x3f27e…3f284 (0x2c0,0x7e6)
0x3f284…3f2a0 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 65 ┆" where┆
0x3f2a0…3f2c0 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 41 53 ┆ "MASK" must be identical to MAS┆
0x3f2c0…3f2e0 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 20 20 ┆K parameter of the ┆
0x3f2e0…3f2fc 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┆
0x3f2fc…3f302 (0x2c0,0x7e7)
0x3f302…3f320 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 20 ┆ the adp (output) device. ┆
0x3f320…3f340 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 6e 74 ┆ aid: attention ident┆
0x3f340…3f360 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 74 20 ┆ifier, is the value of the last ┆
0x3f360…3f37a 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 ┆received ┆
0x3f37a…3f380 (0x2c0,0x7e8)
0x3f380…3f3a0 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 64 20 ┆ aid-code from the addressed ┆
0x3f3a0…3f3c0 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 74 61 ┆device. sb: Sta┆
0x3f3c0…3f3e0 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 6c 61 ┆tus Byte, is the value of the la┆
0x3f3e0…3f400 73 74 20 72 65 63 65 69 76 65 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆st received ┆
0x3f400…3f406 (506,) (0x2c0,0x7e9)
0x3f406…3f420 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 ┆ status byte from ┆
0x3f420…3f440 74 68 65 20 61 64 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 ┆the addressed device. mask┆
0x3f440…3f460 2c 20 73 75 62 73 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 ┆, subst: must be identical to ┆
0x3f460…3f47e 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 61 6d 65 74 ┆the "mask" and "subst" paramet┆
0x3f47e…3f484 (0x2c0,0x7ea)
0x3f484…3f4a0 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 66 20 ┆ers of ┆
0x3f4a0…3f4c0 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 64 70 ┆the "createlink" call to the adp┆
0x3f4c0…3f4e0 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 20 20 ┆ (output) device. note: ┆
0x3f4e0…3f4fc 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┆
0x3f4fc…3f502 (0x2c0,0x7eb)
0x3f502…3f520 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 61 6d ┆d the "mask" and "subst" param┆
0x3f520…3f540 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 20 20 ┆eters have ┆
0x3f540…3f560 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 67 69 ┆no significance. *> begi┆
0x3f560…3f57a 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 ┆n integer i, status; ┆
0x3f57a…3f580 (0x2c0,0x7ec)
0x3f580…3f5a0 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 69 61 ┆ integer array zia (1:20), sia┆
0x3f5a0…3f5c0 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 3a 32 ┆ (1:12); long array arr (1:2┆
0x3f5c0…3f5e0 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 72 6f ┆); zone z_adp (1, 1, stderro┆
0x3f5e0…3f600 72 29 3b 0a 20 20 20 20 67 65 74 7a 6f 6e 65 20 28 7a 2c 20 7a 69 61 29 00 00 00 00 00 00 00 00 ┆r); getzone (z, zia) ┆
0x3f600…3f606 (507,) (0x2c0,0x7ed)
0x3f606…3f620 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 ┆; arr(1):= zia(2); arr┆
0x3f620…3f640 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 28 33 29 ┆(1):= arr(1) shift 24 add zia(3)┆
0x3f640…3f660 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 3a 3d 20 ┆; arr(2):= zia(4); arr(2):= ┆
0x3f660…3f67e 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 0a 20 20 ┆arr(2) shift 24 add zia(5); ┆
0x3f67e…3f684 (0x2c0,0x7ee)
0x3f684…3f6a0 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 30 2c ┆ i:= 1; open (z_adp, 0,┆
0x3f6a0…3f6c0 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 20 20 ┆ string arr (increase(i)),0); ┆
0x3f6c0…3f6e0 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 20 20 ┆ getshare (z_adp, sia, 1); ┆
0x3f6e0…3f6fc 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; <*┆
0x3f6fc…3f702 (0x2c0,0x7ef)
0x3f702…3f720 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 3e 0a ┆ operation:= lookup device *> ┆
0x3f720…3f740 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 63 65 ┆ sia(6):= cu shift 8 + device┆
0x3f740…3f760 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 20 73 ┆; sia(11):= (logand (mask, s┆
0x3f760…3f77a 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 ┆ubst))shift 8; <* tem addr┆
0x3f77a…3f780 (0x2c0,0x7f0)
0x3f780…3f7a0 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 68 61 ┆essing information *> setsha┆
0x3f7a0…3f7c0 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 72 20 ┆re (z_adp, sia, 1); monitor ┆
0x3f7c0…3f7e0 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 61 29 ┆(16)send_message:(z_adp, 1, sia)┆
0x3f7e0…3f800 3b 0a 20 20 20 20 73 74 61 74 75 73 3a 3d 20 31 20 73 68 69 66 74 20 28 00 00 00 00 00 00 00 00 ┆; status:= 1 shift ( ┆
0x3f800…3f806 (508,) (0x2c0,0x7f1)
0x3f806…3f820 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 ┆monitor(18)wait_answer:(z_┆
0x3f820…3f840 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 20 3d 20 32 20 74 ┆adp,1,sia)); if status = 2 t┆
0x3f840…3f860 68 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 20 ┆hen status:= status+sia(1); ┆
0x3f860…3f87e 69 66 20 73 74 61 74 75 73 20 3d 20 32 20 74 68 65 6e 0a 20 20 20 20 62 65 67 69 6e 0a 20 ┆if status = 2 then begin ┆
0x3f87e…3f884 (0x2c0,0x7f2)
0x3f884…3f8a0 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 62 3a ┆ aid:= sia(4); sb:┆
0x3f8a0…3f8c0 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 3d 20 ┆= sia(5); lookup_device:= ┆
0x3f8c0…3f8e0 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 6b 75 ┆sia(2); end else looku┆
0x3f8e0…3f8fc 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 ┆p_device:= -1; close (z_┆
0x3f8fc…3f902 (0x2c0,0x7f3)
0x3f902…3f920 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 76 69 ┆adp, false); end lookup devi┆
0x3f920…3f940 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 72 76 ┆ce; integer procedure reserv┆
0x3f940…3f960 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 20 73 ┆e_device (z, cu, device, mask, s┆
0x3f960…3f97a 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 ┆
0x3f97a…3f980 (0x2c0,0x7f4)
0x3f980…3f9a0 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 2c 20 ┆ cu, device, ┆
0x3f9a0…3f9c0 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 20 20 ┆mask, subst ; zone ┆
0x3f9c0…3f9e0 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 20 20 ┆ z ┆
0x3f9e0…3fa00 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 0a 20 20 69 6e 74 65 67 65 72 00 00 00 00 00 00 00 00 ┆ ; integer ┆
0x3fa00…3fa06 (509,) (0x2c0,0x7f5)
0x3fa06…3fa20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3fa20…3fa40 20 20 20 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 ┆ cu, device, mask, subst ; ┆
0x3fa40…3fa60 20 3c 2a 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 ┆ <* return value: is taken from┆
0x3fa60…3fa7e 20 74 68 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 ┆ the result field of the adp a┆
0x3fa7e…3fa84 (0x2c0,0x7f6)
0x3fa84…3faa0 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 20 20 ┆nswer ("answer(2)"), ┆
0x3faa0…3fac0 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 72 22 ┆ if "normal answer"┆
0x3fac0…3fae0 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 73 20 ┆ and "status=0", else result is ┆
0x3fae0…3fafc 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 ┆set to "-1". z: ┆
0x3fafc…3fb02 (0x2c0,0x7f7)
0x3fb02…3fb20 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 72 ┆ must be opened to the pr┆
0x3fb20…3fb40 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 70 72 ┆ocess ("tem-pool" or external pr┆
0x3fb40…3fb60 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 72 6f ┆ocess) thro┆
0x3fb60…3fb7a 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 ┆ugh which the adp (output)┆
0x3fb7a…3fb80 (0x2c0,0x7f8)
0x3fb80…3fba0 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 2c 20 ┆ process is accessed. cu, ┆
0x3fba0…3fbc0 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 6e 66 ┆device: device addressing inf┆
0x3fbc0…3fbe0 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 63 75 ┆ormation, please notice that "cu┆
0x3fbe0…3fc00 22 20 61 6e 64 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 ┆" and ┆
0x3fc00…3fc06 (510,) (0x2c0,0x7f9)
0x3fc06…3fc20 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 ┆ the value of the "cu-by┆
0x3fc20…3fc40 74 65 22 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 ┆te" byte of the transaktion head┆
0x3fc40…3fc60 65 72 0a 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 ┆er (deliver┆
0x3fc60…3fc7e 65 64 20 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 ┆ed by waittrans in: "destinati┆
0x3fc7e…3fc84 (0x2c0,0x7fa)
0x3fc84…3fca0 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 20 20 ┆on shift(-12)extract 12") ┆
0x3fca0…3fcc0 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 72 69 ┆ not necessari┆
0x3fcc0…3fce0 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 6c 6f ┆ly are identical if TEM is emplo┆
0x3fce0…3fcfc 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 ┆yed. The following ┆
0x3fcfc…3fd02 (0x2c0,0x7fb)
0x3fd02…3fd20 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 74 ┆ algorithm solves t┆
0x3fd20…3fd40 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 20 20 ┆he problem: ┆
0x3fd40…3fd60 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 28 4d ┆ "cu := logand (cu-byte, exor (M┆
0x3fd60…3fd7a 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 ┆ASK, -1))" ┆
0x3fd7a…3fd80 (0x2c0,0x7fc)
0x3fd80…3fda0 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 20 22 ┆ or: "┆
0x3fda0…3fdc0 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 74 28 ┆cu := logand (destination shift(┆
0x3fdc0…3fde0 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 29 29 ┆-12)extract 12, exor (MASK, -1))┆
0x3fde0…3fe00 22 0a 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 ┆
0x3fe00…3fe06 (511,) (0x2c0,0x7fd)
0x3fe06…3fe20 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 ┆here "MASK" must be identi┆
0x3fe20…3fe40 63 61 6c 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 ┆cal to MASK parameter of the ┆
0x3fe40…3fe60 20 20 20 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 ┆ "createlink" c┆
0x3fe60…3fe7e 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 65 ┆all to the adp (output) device┆
0x3fe7e…3fe84 (0x2c0,0x7fe)
0x3fe84…3fea0 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 74 20 ┆. mask, subst: must ┆
0x3fea0…3fec0 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 20 22 ┆be identical to the "mask" and "┆
0x3fec0…3fee0 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 20 20 ┆subst" parameters ┆
0x3fee0…3fefc 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┆
0x3fefc…3ff02 (0x2c0,0x7ff)
0x3ff02…3ff20 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 65 ┆all to the adp (output) device┆
0x3ff20…3ff40 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 69 73 ┆. note: if tem is┆
0x3ff40…3ff60 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 73 75 ┆ not employed the "mask" and "su┆
0x3ff60…3ff7a 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 ┆bst" parameters have ┆
0x3ff7a…3ff80 (0x2c0,0x800)
0x3ff80…3ffa0 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 65 2e ┆ no significance.┆
0x3ffa0…3ffc0 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 69 2c ┆ *> begin integer i,┆
0x3ffc0…3ffe0 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 20 28 ┆ status; integer array zia (┆
0x3ffe0…40000 31 3a 32 30 29 2c 20 73 69 61 20 28 31 3a 31 32 29 3b 0a 20 20 20 20 6c 00 00 00 00 00 00 00 00 ┆1:20), sia (1:12); l ┆
0x40000…40006 (512,) (0x2c0,0x801)
0x40006…40020 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 ┆ong array arr (1:2); z┆
0x40020…40040 6f 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 ┆one z_adp (1, 1, stderror); ┆
0x40040…40060 67 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 ┆getzone (z, zia); arr(1):= z┆
0x40060…4007e 69 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 ┆ia(2); arr(1):= arr(1) shift 2┆
0x4007e…40084 (0x2c0,0x802)
0x40084…400a0 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 20 7a ┆4 add zia(3); arr(2):= z┆
0x400a0…400c0 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 34 20 ┆ia(4); arr(2):= arr(2) shift 24 ┆
0x400c0…400e0 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 6e 20 ┆add zia(5); i:= 1; open ┆
0x400e0…400fc 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 ┆(z_adp, 0, string arr (incre┆
0x400fc…40102 (0x2c0,0x803)
0x40102…40120 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 61 64 ┆ase(i)),0); getshare (z_ad┆
0x40120…40140 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 66 74 ┆p, sia, 1); sia(4):= 4 shift┆
0x40140…40160 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 76 65 ┆ 12 + 16; <* operation:= reserve┆
0x40160…4017a 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 ┆ device *> sia(6):= cu┆
0x4017a…40180 (0x2c0,0x804)
0x40180…401a0 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 3a 3d ┆ shift 8 + device; sia(11):=┆
0x401a0…401c0 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 3b 20 ┆ (logand (mask, subst))shift 8; ┆
0x401c0…401e0 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 2a 3e ┆<* tem addressing information *>┆
0x401e0…40200 0a 20 20 20 20 73 65 74 73 68 61 72 65 20 28 7a 5f 61 64 70 2c 20 73 69 00 00 00 00 00 00 00 00 ┆ setshare (z_adp, si ┆
0x40200…40206 (513,) (0x2c0,0x805)
0x40206…40220 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 ┆a, 1); monitor (16)sen┆
0x40220…40240 64 5f 6d 65 73 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 ┆d_message:(z_adp, 1, sia); s┆
0x40240…40260 74 61 74 75 73 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 ┆tatus:= 1 shift (monitor(18)wait┆
0x40260…4027e 5f 61 6e 73 77 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 ┆_answer:(z_adp,1,sia)); if┆
0x4027e…40284 (0x2c0,0x806)
0x40284…402a0 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 73 74 ┆ status = 2 then status:= st┆
0x402a0…402c0 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 65 3a ┆atus+sia(1); reserve_device:┆
0x402c0…402e0 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 73 65 ┆= if status = 2 then sia(2) else┆
0x402e0…402fc 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 ┆ -1; close (z_adp, false┆
0x402fc…40302 (0x2c0,0x807)
0x40302…40320 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 20 20 ┆); end reserve device; ┆
0x40320…40340 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 63 65 ┆integer procedure release_device┆
0x40340…40360 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 0a 20 ┆ (z, cu, device, mask, subst); ┆
0x40360…4037a 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 ┆
0x4037a…40380 (0x2c0,0x808)
0x40380…403a0 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 73 75 ┆ cu, device, mask, su┆
0x403a0…403c0 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 20 20 ┆bst ; zone ┆
0x403c0…403e0 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 20 20 ┆ z ┆
0x403e0…40400 20 20 20 20 20 3b 0a 20 20 69 6e 74 65 67 65 72 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ ; integer ┆
0x40400…40406 (514,) (0x2c0,0x809)
0x40406…40420 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, ┆
0x40420…40440 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┆
0x40440…40460 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 65 73 ┆rn value: is taken from the res┆
0x40460…4047e 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 20 28 22 ┆ult field of the adp answer ("┆
0x4047e…40484 (0x2c0,0x80a)
0x40484…404a0 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 ┆answer(2)"), ┆
0x404a0…404c0 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┆
0x404c0…404e0 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 20 22 ┆atus=0", else result is set to "┆
0x404e0…404fc 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┆
0x404fc…40502 (0x2c0,0x80b)
0x40502…40520 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 ┆st be opened to the process ("┆
0x40520…40540 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) ┆
0x40540…40560 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 69 63 ┆ through whic┆
0x40560…4057a 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 the adp (output) process┆
0x4057a…40580 (0x2c0,0x80c)
0x40580…405a0 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: ┆
0x405a0…405c0 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┆
0x405c0…405e0 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 20 20 ┆, please notice that "cu" and ┆
0x405e0…40600 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 68 65 20 76 00 00 00 00 00 00 00 00 ┆ the v ┆
0x40600…40606 (515,) (0x2c0,0x80d)
0x40606…40620 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 ┆alue of the "cu-byte" byte┆
0x40620…40640 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 ┆
0x40640…40660 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 77 61 ┆ (delivered by wa┆
0x40660…4067e 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 69 66 74 ┆ittrans in: "destination shift┆
0x4067e…40684 (0x2c0,0x80e)
0x40684…406a0 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 ┆(-12)extract 12") ┆
0x406a0…406c0 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┆
0x406c0…406e0 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 68 65 ┆dentical if TEM is employed. The┆
0x406e0…406fc 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 ┆ following ┆
0x406fc…40702 (0x2c0,0x80f)
0x40702…40720 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┆
0x40720…40740 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 := ┆
0x40740…40760 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 31 29 ┆logand (cu-byte, exor (MASK, -1)┆
0x40760…4077a 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 ┆)" or┆
0x4077a…40780 (0x2c0,0x810)
0x40780…407a0 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┆
0x407a0…407c0 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┆
0x407c0…407e0 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 20 20 ┆act 12, exor (MASK, -1))" ┆
0x407e0…40800 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 68 65 72 65 20 22 4d 41 00 00 00 00 00 00 00 00 ┆ where "MA ┆
0x40800…40806 (516,) (0x2c0,0x811)
0x40806…40820 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 ┆SK" must be identical to M┆
0x40820…40840 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 ┆
0x40840…40860 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 20 74 ┆ "createlink" call to t┆
0x40860…4087e 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 20 6d ┆he adp (output) device. m┆
0x4087e…40884 (0x2c0,0x812)
0x40884…408a0 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 6e 74 ┆ask, subst: must be ident┆
0x408a0…408c0 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 20 70 ┆ical to the "mask" and "subst" p┆
0x408c0…408e0 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 20 6f ┆arameters o┆
0x408e0…408fc 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 ┆f the "createlink" call to t┆
0x408fc…40902 (0x2c0,0x813)
0x40902…40920 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 20 6e ┆he adp (output) device. n┆
0x40920…40940 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 6d 70 ┆ote: if tem is not emp┆
0x40940…40960 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 72 ┆loyed the "mask" and "subst" par┆
0x40960…4097a 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 ┆ameters have ┆
0x4097a…40980 (0x2c0,0x814)
0x40980…409a0 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 2a 3e ┆ no significance. *>┆
0x409a0…409c0 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 74 75 ┆ begin integer i, statu┆
0x409c0…409e0 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 29 2c ┆s; integer array zia (1:20),┆
0x409e0…40a00 20 73 69 61 20 28 31 3a 31 32 29 3b 0a 20 20 20 20 6c 6f 6e 67 20 61 72 00 00 00 00 00 00 00 00 ┆ sia (1:12); long ar ┆
0x40a00…40a06 (517,) (0x2c0,0x815)
0x40a06…40a20 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 ┆ray arr (1:2); zone z_┆
0x40a20…40a40 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┆
0x40a40…40a60 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);┆
0x40a60…40a7e 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 64 64 20 ┆ arr(1):= arr(1) shift 24 add ┆
0x40a7e…40a84 (0x2c0,0x816)
0x40a84…40aa0 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 29 3b ┆zia(3); arr(2):= zia(4);┆
0x40aa0…40ac0 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 7a 69 ┆ arr(2):= arr(2) shift 24 add zi┆
0x40ac0…40ae0 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 64 70 ┆a(5); i:= 1; open (z_adp┆
0x40ae0…40afc 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 ┆, 0, string arr (increase(i)┆
0x40afc…40b02 (0x2c0,0x817)
0x40b02…40b20 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 69 61 ┆),0); getshare (z_adp, sia┆
0x40b20…40b40 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 2b 20 ┆, 1); sia(4):= 4 shift 12 + ┆
0x40b40…40b60 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 69 63 ┆20; <* operation:= release devic┆
0x40b60…40b7a 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 ┆e *> sia(6):= cu shift┆
0x40b7a…40b80 (0x2c0,0x818)
0x40b80…40ba0 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 67 61 ┆ 8 + device; sia(11):= (loga┆
0x40ba0…40bc0 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 65 6d ┆nd (mask, subst))shift 8; <* tem┆
0x40bc0…40be0 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 20 73 ┆ addressing information *> s┆
0x40be0…40c00 65 74 73 68 61 72 65 20 28 7a 5f 61 64 70 2c 20 73 69 61 2c 20 31 29 3b 00 00 00 00 00 00 00 00 ┆etshare (z_adp, sia, 1); ┆
0x40c00…40c06 (518,) (0x2c0,0x819)
0x40c06…40c20 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 ┆ monitor (16)send_mess┆
0x40c20…40c40 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:┆
0x40c40…40c60 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┆
0x40c60…40c7e 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 ┆r:(z_adp,1,sia)); if statu┆
0x40c7e…40c84 (0x2c0,0x81a)
0x40c84…40ca0 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 2b 73 ┆s = 2 then status:= status+s┆
0x40ca0…40cc0 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 20 73 ┆ia(1); release_device:= if s┆
0x40cc0…40ce0 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 0a 20 ┆tatus = 2 then sia(2) else -1; ┆
0x40ce0…40cfc 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┆
0x40cfc…40d02 (0x2c0,0x81b)
0x40d02…40d20 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 65 67 ┆nd release device; integ┆
0x40d20…40d40 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 2c 20 ┆er procedure wait_ready (z, cu, ┆
0x40d40…40d60 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 20 20 ┆device, mask, subst); value ┆
0x40d60…40d7a 20 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┆
0x40d7a…40d80 (0x2c0,0x81c)
0x40d80…40da0 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 65 20 ┆u, device, mask, subst ; zone ┆
0x40da0…40dc0 20 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 ┆
0x40dc0…40de0 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 72 20 ┆ ; integer ┆
0x40de0…40e00 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 ┆ ┆
0x40e00…40e06 (519,) (0x2c0,0x81d)
0x40e06…40e20 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 ┆ cu, device, mask, subst ;┆
0x40e20…40e40 0a 20 20 20 3c 2a 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 ┆ <* return value: is taken f┆
0x40e40…40e60 72 6f 6d 20 74 68 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 ┆rom the result field of the adp ┆
0x40e60…40e7e 61 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 20 20 20 ┆answer ("answer(2)"), ┆
0x40e7e…40e84 (0x2c0,0x81e)
0x40e84…40ea0 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 ┆ if "normal answ┆
0x40ea0…40ec0 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 74 20 ┆er" and "status=0", else result ┆
0x40ec0…40ee0 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 20 20 ┆is set to "-1". z: ┆
0x40ee0…40efc 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┆
0x40efc…40f02 (0x2c0,0x81f)
0x40f02…40f20 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 ┆rocess ("tem-pool" or external┆
0x40f20…40f40 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 20 74 ┆ process) t┆
0x40f40…40f60 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 70 72 ┆hrough which the adp (output) pr┆
0x40f60…40f7a 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 ┆ocess is accessed. c┆
0x40f7a…40f80 (0x2c0,0x820)
0x40f80…40fa0 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 67 20 ┆u, device: device addressing ┆
0x40fa0…40fc0 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 74 20 ┆information, please notice that ┆
0x40fc0…40fe0 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 74 68 ┆"cu" and th┆
0x40fe0…41000 65 20 76 61 6c 75 65 20 6f 66 20 74 68 65 20 22 63 75 2d 62 79 74 65 22 00 00 00 00 00 00 00 00 ┆e value of the "cu-byte" ┆
0x41000…41006 (520,) (0x2c0,0x821)
0x41006…41020 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 ┆ byte of the transaktion h┆
0x41020…41040 65 61 64 65 72 0a 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 ┆eader (deli┆
0x41040…41060 76 65 72 65 64 20 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 ┆vered by waittrans in: "destinat┆
0x41060…4107e 69 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 20 20 20 ┆ion shift(-12)extract 12") ┆
0x4107e…41084 (0x2c0,0x822)
0x41084…410a0 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 ┆ not necess┆
0x410a0…410c0 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 65 6d ┆arily are identical if TEM is em┆
0x410c0…410e0 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 20 20 ┆ployed. The following ┆
0x410e0…410fc 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 ┆
0x410fc…41102 (0x2c0,0x823)
0x41102…41120 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 ┆the problem: ┆
0x41120…41140 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 6f 72 ┆ "cu := logand (cu-byte, exor┆
0x41140…41160 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 20 20 ┆ (MASK, -1))" ┆
0x41160…4117a 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: ┆
0x4117a…41180 (0x2c0,0x824)
0x41180…411a0 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 68 69 ┆ "cu := logand (destination shi┆
0x411a0…411c0 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 20 2d ┆ft(-12)extract 12, exor (MASK, -┆
0x411c0…411e0 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 65 20 ┆1))" where ┆
0x411e0…41200 22 4d 41 53 4b 22 20 6d 75 73 74 20 62 65 20 69 64 65 6e 74 69 63 61 6c 00 00 00 00 00 00 00 00 ┆"MASK" must be identical ┆
0x41200…41206 (521,) (0x2c0,0x825)
0x41206…41220 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 ┆ to MASK parameter of the ┆
0x41220…41240 20 20 20 20 20 20 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 ┆ "createlink┆
0x41240…41260 22 20 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┆
0x41260…4127e 65 2e 0a 20 20 20 20 20 6d 61 73 6b 2c 20 73 75 62 73 74 3a 20 20 20 20 6d 75 73 74 20 62 ┆e. mask, subst: must b┆
0x4127e…41284 (0x2c0,0x826)
0x41284…412a0 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 ┆e identical to the "mask" an┆
0x412a0…412c0 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 20 20 ┆d "subst" parameters ┆
0x412c0…412e0 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 63 61 ┆ of the "createlink" ca┆
0x412e0…412fc 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 ┆ll to the adp (output) devic┆
0x412fc…41302 (0x2c0,0x827)
0x41302…41320 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 65 6d ┆e. note: if tem┆
0x41320…41340 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 64 20 ┆ is not employed the "mask" and ┆
0x41340…41360 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 20 20 ┆"subst" parameters have ┆
0x41360…4137a 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┆
0x4137a…41380 (0x2c0,0x828)
0x41380…413a0 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 65 67 ┆ce. *> begin integ┆
0x413a0…413c0 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 79 20 ┆er i, status; integer array ┆
0x413c0…413e0 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 6e 67 ┆zia (1:20), sia (1:12); long┆
0x413e0…41400 20 61 72 72 61 79 20 61 72 72 20 28 31 3a 32 29 3b 0a 20 20 20 20 7a 6f 00 00 00 00 00 00 00 00 ┆ array arr (1:2); zo ┆
0x41400…41406 (522,) (0x2c0,0x829)
0x41406…41420 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 ┆ne z_adp (1, 1, stderror);┆
0x41420…41440 0a 20 20 20 20 67 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 ┆ getzone (z, zia); arr(1┆
0x41440…41460 29 3a 3d 20 7a 69 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 ┆):= zia(2); arr(1):= arr(1) shif┆
0x41460…4147e 74 20 32 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 20 ┆t 24 add zia(3); arr(2):= ┆
0x4147e…41484 (0x2c0,0x82a)
0x41484…414a0 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 ┆zia(4); arr(2):= arr(2) shif┆
0x414a0…414c0 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 20 20 ┆t 24 add zia(5); i:= 1; ┆
0x414c0…414e0 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 63 72 ┆open (z_adp, 0, string arr (incr┆
0x414e0…414fc 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 ┆ease(i)),0); getshare (z┆
0x414fc…41502 (0x2c0,0x82b)
0x41502…41520 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 34 20 ┆_adp, sia, 1); sia(4):= 4 ┆
0x41520…41540 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 77 61 ┆shift 12 + 20; <* operation:= wa┆
0x41540…41560 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 69 66 ┆it_ready *> sia(6):= cu shif┆
0x41560…4157a 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 ┆t 8 + device; sia(11):┆
0x4157a…41580 (0x2c0,0x82c)
0x41580…415a0 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 3b ┆= (logand (mask, subst))shift 8;┆
0x415a0…415c0 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 2a ┆ <* tem addressing information *┆
0x415c0…415e0 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 3b 0a ┆> setshare (z_adp, sia, 1); ┆
0x415e0…41600 20 20 20 20 6d 6f 6e 69 74 6f 72 20 28 31 36 29 73 65 6e 64 5f 6d 65 73 00 00 00 00 00 00 00 00 ┆ monitor (16)send_mes ┆
0x41600…41606 (523,) (0x2c0,0x82d)
0x41606…41620 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 ┆sage:(z_adp, 1, sia); ┆
0x41620…41640 73 74 61 74 75 73 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 ┆status:= 1 shift (monitor(18)wai┆
0x41640…41660 74 5f 61 6e 73 77 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 ┆t_answer:(z_adp,1,sia)); if ┆
0x41660…4167e 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 73 74 61 74 75 ┆status = 2 then status:= statu┆
0x4167e…41684 (0x2c0,0x82e)
0x41684…416a0 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 20 69 ┆s+sia(1); wait_ready:= i┆
0x416a0…416c0 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 2d 31 ┆f status = 2 then sia(2) else -1┆
0x416c0…416e0 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 65 6e ┆; close (z_adp, false); en┆
0x416e0…416fc 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 ┆d wait_ready; ',f i' ; ┆
0x416fc…41702 (0x2c0,0x82f)
0x41702…41720 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 2a 0a ┆ *** ttemtest *** ┆
0x41720…41740 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 74 ┆; ; ; a testprogram for simpel t┆
0x41740…41760 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 72 6f ┆esting of the tem system ; ; pro┆
0x41760…4177a 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 ┆gram call: ; temtest t┆
0x4177a…41780 (0x2c0,0x830)
0x41780…417a0 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 6e 61 ┆erm.<terminalname-1>.<terminalna┆
0x417a0…417c0 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 0a 3b ┆me-2>. ... <terminalname-n> ; ;┆
0x417c0…417e0 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 0a 3b ┆ the program acts like this: ; ;┆
0x417e0…41800 20 20 20 20 20 63 72 65 61 74 65 20 74 65 72 6d 69 6e 61 6c 20 70 6f 6f 00 00 00 00 00 00 00 00 ┆ create terminal poo ┆
0x41800…41806 (524,) (0x2c0,0x831)
0x41806…41820 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 ┆l ; create links to al┆
0x41820…41840 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 67 72 61 6d ┆l terminals specified in program┆
0x41840…41860 20 63 61 6c 6c 0a 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 ┆ call ; loop ; read an input┆
0x41860…4187e 20 6c 69 6e 65 20 66 72 6f 6d 20 61 20 63 6f 6e 6e 65 63 74 65 64 20 74 65 72 6d 69 6e 61 ┆ line from a connected termina┆
0x4187e…41884 (0x2c0,0x832)
0x41884…418a0 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 65 20 ┆l ; (this input line ┆
0x418a0…418c0 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 0a 3b ┆starts with a terminal number) ;┆
0x418c0…418e0 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 61 6c ┆ increase linecount(terminal┆
0x418e0…418fc 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 ┆ number) ; write termina┆
0x418fc…41902 (0x2c0,0x833)
0x41902…41920 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 20 74 ┆l identification ; write t┆
0x41920…41940 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 65 20 ┆erminal number ; write line ┆
0x41940…41960 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 6e 70 ┆count ; write content of inp┆
0x41960…4197a 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 ┆ut line ; goto loop ┆
0x4197a…41980 (0x2c0,0x834)
0x41980…419a0 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 0a 20 ┆begin zone z(26,1,stderror); ┆
0x419a0…419c0 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 74 65 ┆ integer i,activeterminals,maxte┆
0x419c0…419e0 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 72 6d ┆rminals,currterminal,result,term┆
0x419e0…41a00 69 6e 61 6c 72 65 66 3b 0a 20 20 72 65 61 6c 20 61 72 72 61 79 20 61 72 00 00 00 00 00 00 00 00 ┆inalref; real array ar ┆
0x41a00…41a06 (525,) (0x2c0,0x835)
0x41a06…41a20 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 ┆r(1:2); algol copy.1; <┆
0x41a20…41a40 2a 20 63 6f 70 79 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 ┆* copy tem procedures *> <* ┆
0x41a40…41a60 20 20 63 72 65 61 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 ┆ create terminal pool *> o┆
0x41a60…41a7e 70 65 6e 28 7a 2c 38 2c 3c 3a 74 65 6d 3a 3e 2c 30 29 3b 0a 20 20 63 72 65 61 74 65 70 6f ┆pen(z,8,<:tem:>,0); createpo┆
0x41a7e…41a84 (0x2c0,0x836)
0x41a84…41aa0 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 69 76 ┆ol(z); maxterminals:=activ┆
0x41aa0…41ac0 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 74 20 ┆eterminals:=0; <* connect ┆
0x41ac0…41ae0 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 67 72 ┆all terminals specified in progr┆
0x41ae0…41afc 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 ┆am call *> begin in┆
0x41afc…41b02 (0x2c0,0x837)
0x41b02…41b20 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 61 28 ┆teger j; integer array ia(┆
0x41b20…41b40 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 72 72 ┆1:10); zone dummy(1,1,stderr┆
0x41b40…41b60 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 69 6c ┆or); i:=2; for i:=i whil┆
0x41b60…41b7a 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 ┆e system(4,i,arr) = 8 shif┆
0x41b7a…41b80 (0x2c0,0x838)
0x41b80…41ba0 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 61 78 ┆t 12 + 10 do begin max┆
0x41ba0…41bc0 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 20 20 ┆terminals:=maxterminals+1; ┆
0x41bc0…41be0 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 6e 67 ┆ j:=1; open(dummy,0,string┆
0x41be0…41c00 20 61 72 72 28 69 6e 63 72 65 61 73 65 28 6a 29 29 2c 30 29 3b 0a 20 20 00 00 00 00 00 00 00 00 ┆ arr(increase(j)),0); ┆
0x41c00…41c06 (526,) (0x2c0,0x839)
0x41c06…41c20 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 ┆ terminalref:=monitor(4┆
0x41c20…41c40 2c 64 75 6d 6d 79 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 ┆,dummy,0,ia); result:=crea┆
0x41c40…41c60 74 65 6c 69 6e 6b 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 ┆telink(z, 0,term┆
0x41c60…41c7e 69 6e 61 6c 69 64 28 6d 61 78 74 65 72 6d 69 6e 61 6c 73 29 2c 74 65 72 6d 69 6e 61 6c 72 ┆inalid(maxterminals),terminalr┆
0x41c7e…41c84 (0x2c0,0x83a)
0x41c84…41ca0 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 6c 74 ┆ef,1,0,0,0); if result┆
0x41ca0…41cc0 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 3a 3c ┆ <> 0 then write(out,<:<┆
0x41cc0…41ce0 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 72 65 ┆10>createlink(:>,<<d>,terminalre┆
0x41ce0…41cfc 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 ┆f,<:) = :>,result) else ┆
0x41cfc…41d02 (0x2c0,0x83b)
0x41d02…41d20 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 65 72 ┆ activeterminals:=activeter┆
0x41d20…41d40 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 63 6c ┆minals+1; i:=i+1; cl┆
0x41d40…41d60 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 64 3b ┆ose(dummy,true); end; end;┆
0x41d60…41d7a 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 ┆ if activeterminals < 1 ┆
0x41d7a…41d80 (0x2c0,0x83c)
0x41d80…41da0 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 6e 74 ┆then goto stop; begin int┆
0x41da0…41dc0 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 6e 65 ┆eger i,j; integer array line┆
0x41dc0…41de0 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 69 6e ┆buf(1:100),linecount(1:maxtermin┆
0x41de0…41e00 61 6c 73 29 3b 0a 20 20 20 20 66 6f 72 20 69 3a 3d 31 20 73 74 65 70 20 00 00 00 00 00 00 00 00 ┆als); for i:=1 step ┆
0x41e00…41e06 (527,) (0x2c0,0x83d)
0x41e06…41e20 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 ┆1 until maxterminals do li┆
0x41e20…41e40 6e 65 63 6f 75 6e 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 ┆necount(i):=0; <* read a li┆
0x41e40…41e60 6e 65 20 61 6e 64 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 ┆ne and display it on correspondi┆
0x41e60…41e7e 6e 67 20 74 65 72 6d 69 6e 61 6c 20 20 20 2a 3e 0a 0a 6c 6f 6f 70 3a 0a 20 20 20 20 72 65 ┆ng terminal *> loop: re┆
0x41e7e…41e84 (0x2c0,0x83e)
0x41e84…41ea0 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 3d 31 ┆ad(z,currterminal); i:=1┆
0x41ea0…41ec0 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 7a 2c ┆; for i:=i while readchar(z,┆
0x41ec0…41ee0 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 20 20 ┆linebuf(i)) <> 8 do i:=i+1; ┆
0x41ee0…41efc 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┆
0x41efc…41f02 (0x2c0,0x83f)
0x41f02…41f20 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 6e 74 ┆count(currterminal):=linecount┆
0x41f20…41f40 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 3c 3c ┆(currterminal)+1; write(z,<<┆
0x41f40…41f60 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 3c 3c ┆zd>,currterminal,<: term = :>,<<┆
0x41f60…41f7a 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, ┆
0x41f7a…41f80 (0x2c0,0x840)
0x41f80…41fa0 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 3e 2c ┆ <: line = :>,<<ddd>,┆
0x41fa0…41fc0 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 29 3b ┆linecount(currterminal),<:: :>);┆
0x41fc0…41fe0 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 6f 20 ┆ for j:=1 step 1 until i do ┆
0x41fe0…42000 6f 75 74 63 68 61 72 28 7a 2c 6c 69 6e 65 62 75 66 28 6a 29 29 3b 0a 20 00 00 00 00 00 00 00 00 ┆outchar(z,linebuf(j)); ┆
0x42000…42006 (528,) (0x2c0,0x841)
0x42006…42020 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 ┆ if linebuf(1) = 42 then┆
0x42020…42040 0a 20 20 20 20 62 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 ┆ begin <* a star in fi┆
0x42040…42060 72 73 74 20 70 6f 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 ┆rst position means logout *> ┆
0x42060…4207e 20 20 20 20 20 77 72 69 74 65 28 7a 2c 3c 3a 74 65 72 6d 69 6e 61 6c 20 6c 6f 67 67 65 64 ┆ write(z,<:terminal logged┆
0x4207e…42084 (0x2c0,0x842)
0x42084…420a0 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 74 69 ┆ out<10>:>); setpositi┆
0x420a0…420c0 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 74 65 ┆on(z,0,0); removelink(z,te┆
0x420c0…420e0 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 0a 20 ┆rminalid(currterminal),false); ┆
0x420e0…420fc 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┆
0x420fc…42102 (0x2c0,0x843)
0x42102…42120 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 65 74 ┆terminals-1; end; set┆
0x42120…42140 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 74 65 ┆position(z,0,0); if activete┆
0x42140…42160 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 65 6e ┆rminals > 0 then goto loop; en┆
0x42160…4217a 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 ┆d; stop: removepool(z);┆
0x4217a…42180 (0x2c0,0x844)
0x42180…421a0 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 20 20 ┆ end ',f i' ; ┆
0x421a0…421c0 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 0a 3b ┆*** tem sense ready test *** ;┆
0x421c0…421e0 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 74 65 ┆ ; ; a testprogram for simpel te┆
0x421e0…42200 73 74 69 6e 67 20 6f 66 20 74 68 65 20 74 65 6d 20 73 79 73 74 65 6d 0a 00 00 00 00 00 00 00 00 ┆sting of the tem system ┆
0x42200…42206 (529,) (0x2c0,0x845)
0x42206…42220 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 ┆; ; program call: ; <p┆
0x42220…42240 72 6f 67 72 61 6d 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 ┆rogramname> ; ; the program acts┆
0x42240…42260 20 6c 69 6b 65 20 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 ┆ like this: ; ; create termi┆
0x42260…4227e 6e 61 6c 20 70 6f 6f 6c 0a 3b 20 6c 6f 6f 70 0a 20 20 20 20 20 20 77 61 69 74 20 61 74 74 ┆nal pool ; loop wait att┆
0x4227e…42284 (0x2c0,0x846)
0x42284…422a0 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 20 20 ┆ention or input ready ┆
0x422a0…422c0 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 20 20 ┆if att then login goto loop ┆
0x422c0…422e0 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 20 20 ┆ read line from terminal ┆
0x422e0…422fc 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┆
0x422fc…42302 (0x2c0,0x847)
0x42302…42320 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 20 20 ┆ne number echo indata ┆
0x42320…42340 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 6f 75 ┆ if first char = * then logou┆
0x42340…42360 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 74 65 ┆t goto loop begin inte┆
0x42360…4237a 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 ┆ger maxterminals; algol┆
0x4237a…42380 (0x2c0,0x848)
0x42380…423a0 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 73 20 ┆ copy.1; <* copy tem procedures ┆
0x423a0…423c0 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 62 65 ┆*> maxterminals:= 10; be┆
0x423c0…423e0 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 65 72 ┆gin boolean array passiveter┆
0x423e0…42400 6d 28 31 3a 6d 61 78 74 65 72 6d 69 6e 61 6c 73 29 3b 0a 20 20 20 20 69 00 00 00 00 00 00 00 00 ┆m(1:maxterminals); i ┆
0x42400…42406 (530,) (0x2c0,0x849)
0x42406…42420 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 ┆nteger array linebuf(1:100┆
0x42420…42440 29 2c 6c 69 6e 65 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 ┆),linecount(1:maxterminals); ┆
0x42440…42460 20 7a 6f 6e 65 20 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 ┆ zone zin(26,1,endofdata),zout(2┆
0x42460…4247e 36 2c 31 2c 73 74 64 65 72 72 6f 72 29 2c 0a 20 20 20 20 20 20 20 20 20 73 65 6e 73 65 72 ┆6,1,stderror), senser┆
0x4247e…42484 (0x2c0,0x84a)
0x42484…424a0 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 0a 20 ┆eady, zhelp(1,1,stderror); ┆
0x424a0…424c0 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 2c 63 ┆ integer i,j,activeterminals,c┆
0x424c0…424e0 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 20 20 ┆urrterminal,result, ┆
0x424e0…424fc 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; ┆
0x424fc…42502 (0x2c0,0x84b)
0x42502…42520 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 67 65 ┆boolean poolsensed; intege┆
0x42520…42540 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 64 75 ┆r array ia(1:20); procedu┆
0x42540…42560 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 7a 3b ┆re endofdata(z,s,b); zone z;┆
0x42560…4257a 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 ┆ integer s, b; beg┆
0x4257a…42580 (0x2c0,0x84c)
0x42580…425a0 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 20 20 ┆in if b=0 and s=2 then ┆
0x425a0…425c0 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 20 20 ┆ goto centralwait; end; ┆
0x425c0…425e0 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 0a 0a ┆ <* create terminal pool *> ┆
0x425e0…42600 20 20 20 20 6f 70 65 6e 28 7a 69 6e 2c 38 2c 3c 3a 74 65 6d 3a 3e 2c 32 00 00 00 00 00 00 00 00 ┆ open(zin,8,<:tem:>,2 ┆
0x42600…42606 (531,) (0x2c0,0x84d)
0x42606…42620 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 ┆); open(zout,8,<:tem:>┆
0x42620…42640 2c 30 29 3b 0a 20 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 ┆,0); createpool(zout); o┆
0x42640…42660 70 65 6e 28 7a 68 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 ┆pen(zhelp,0,<::>,0); open(se┆
0x42660…4267e 6e 73 65 72 65 61 64 79 2c 30 2c 3c 3a 74 65 6d 3a 3e 2c 30 29 3b 0a 20 20 20 20 67 65 74 ┆nseready,0,<:tem:>,0); get┆
0x4267e…42684 (0x2c0,0x84e)
0x42684…426a0 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 20 20 ┆share6(senseready,ia,1); ┆
0x426a0…426c0 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 65 70 ┆ ia(4):= 0 shift 12 + 2; <* prep┆
0x426c0…426e0 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 20 20 ┆are sense ready operation *> ┆
0x426e0…426fc 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);┆
0x426fc…42702 (0x2c0,0x84f)
0x42702…42720 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 20 20 ┆ activeterminals:= 0; ┆
0x42720…42740 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 3a 3d ┆bufferbase:= 0; poolsensed:=┆
0x42740…42760 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 6e 74 ┆ false; for i:= 1 step 1 unt┆
0x42760…4277a 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 ┆il maxterminals do passive┆
0x4277a…42780 (0x2c0,0x850)
0x42780…427a0 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 20 20 ┆term(i):= true; centralwait: ┆
0x427a0…427c0 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 6f 6f ┆ if activeterminals>0 and -,poo┆
0x427c0…427e0 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 6f 6e ┆lsensed then begin mon┆
0x427e0…42800 69 74 6f 72 28 31 36 29 20 73 65 6e 64 6d 65 73 73 61 67 65 3a 28 73 65 00 00 00 00 00 00 00 00 ┆itor(16) sendmessage:(se ┆
0x42800…42806 (532,) (0x2c0,0x851)
0x42806…42820 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 ┆nseready,1,ia); pool┆
0x42820…42840 73 65 6e 73 65 64 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 ┆sensed:= true; end; i:= ┆
0x42840…42860 62 75 66 66 65 72 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 ┆bufferbase; result:= monito┆
0x42860…4287e 72 28 32 34 29 77 61 69 74 65 76 65 6e 74 3a 28 7a 68 65 6c 70 2c 69 2c 69 61 29 3b 0a 0a ┆r(24)waitevent:(zhelp,i,ia); ┆
0x4287e…42884 (0x2c0,0x852)
0x42884…428a0 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 65 67 ┆ if result=0 then beg┆
0x428a0…428c0 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 76 65 ┆in <* (attention) message arrive┆
0x428c0…428e0 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 20 20 ┆d *> if ia(1)<>0 then ┆
0x428e0…428fc 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:=┆
0x428fc…42902 (0x2c0,0x853)
0x42902…42920 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 3b 0a ┆ i; goto centralwait; ┆
0x42920…42940 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 74 20 ┆ end; monitor(26)get ┆
0x42940…42960 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 29 3a ┆event:(zhelp,i,ia); ia(9):┆
0x42960…4297a 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┆
0x4297a…42980 (0x2c0,0x854)
0x42980…429a0 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 65 72 ┆d answer:(zhelp,i,ia); ter┆
0x429a0…429c0 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 72 69 ┆minalref:= monitor(4) get descri┆
0x429c0…429e0 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 69 3a ┆ption:(zhelp,0,ia); for i:┆
0x429e0…42a00 3d 20 6d 61 78 74 65 72 6d 69 6e 61 6c 73 20 73 74 65 70 20 2d 31 20 75 00 00 00 00 00 00 00 00 ┆= maxterminals step -1 u ┆
0x42a00…42a06 (533,) (0x2c0,0x855)
0x42a06…42a20 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 ┆ntil 1 do if passive┆
0x42a20…42a40 74 65 72 6d 28 69 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 ┆term(i) then currterminal:= i; <┆
0x42a40…42a60 2a 20 66 69 6e 64 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 ┆* find free terminal no *> ┆
0x42a60…42a7e 20 72 65 73 75 6c 74 3a 3d 63 72 65 61 74 65 6c 69 6e 6b 28 7a 6f 75 74 2c 30 2c 74 65 72 ┆ result:=createlink(zout,0,ter┆
0x42a7e…42a84 (0x2c0,0x856)
0x42a84…42aa0 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 69 6e ┆minalid(currterminal),termin┆
0x42aa0…42ac0 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 20 20 ┆alref, ┆
0x42ac0…42ae0 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 30 20 ┆1,2047,0,0); if result<>0 ┆
0x42ae0…42afc 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 ┆then begin wri┆
0x42afc…42b02 (0x2c0,0x857)
0x42b02…42b20 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 3c 64 ┆te(out,<:<10>createlink(:>,<<d┆
0x42b20…42b40 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 20 20 ┆d>,terminalref,<:) = :>, ┆
0x42b40…42b60 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 20 20 ┆ result,<:<10>:>); ┆
0x42b60…42b7a 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); ┆
0x42b7a…42b80 (0x2c0,0x858)
0x42b80…42ba0 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 20 20 ┆ end else begin ┆
0x42ba0…42bc0 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 6d 69 ┆ write(zout,<<zd>,currtermi┆
0x42bc0…42be0 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 20 20 ┆nal,false add 32,1, ┆
0x42be0…42c00 20 20 20 20 3c 3a 74 65 72 6d 69 6e 61 6c 20 6c 6f 67 67 65 64 20 69 6e 00 00 00 00 00 00 00 00 ┆ <:terminal logged in ┆
0x42c00…42c06 (534,) (0x2c0,0x859)
0x42c06…42c20 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 ┆<10>:>); setpositi┆
0x42c20…42c40 6f 6e 28 7a 6f 75 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 ┆on(zout,0,0); activeterm┆
0x42c40…42c60 69 6e 61 6c 73 3a 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 ┆inals:= activeterminals+1; ┆
0x42c60…42c7e 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 ┆ passiveterm(currterminal):=┆
0x42c7e…42c84 (0x2c0,0x85a)
0x42c84…42ca0 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 63 75 ┆ false; linecount(cu┆
0x42ca0…42cc0 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 20 20 ┆rrterminal):= 0; end; ┆
0x42cc0…42ce0 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 20 20 ┆ goto centralwait; end ┆
0x42ce0…42cfc 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┆
0x42cfc…42d02 (0x2c0,0x85b)
0x42d02…42d20 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 72 28 ┆ense ready ) *> monitor(┆
0x42d20…42d40 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 61 29 ┆18)wait answer:(senseready,1,ia)┆
0x42d40…42d60 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 20 20 ┆; poolsensed:= false; ┆
0x42d60…42d7a 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┆
0x42d7a…42d80 (0x2c0,0x85c)
0x42d80…42da0 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 20 68 ┆,currterminal); <* end of data h┆
0x42da0…42dc0 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 20 20 ┆andled by blockprocedure *> ┆
0x42dc0…42de0 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 68 69 ┆ i:= 1; for i:= i whi┆
0x42de0…42e00 6c 65 20 72 65 61 64 63 68 61 72 28 7a 69 6e 2c 6c 69 6e 65 62 75 66 28 00 00 00 00 00 00 00 00 ┆le readchar(zin,linebuf( ┆
0x42e00…42e06 (535,) (0x2c0,0x85d)
0x42e06…42e20 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 ┆i)) <>8 do i:= i+1; ┆
0x42e20…42e40 20 20 73 65 74 70 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 ┆ setposition(zin,0,0); ┆
0x42e40…42e60 6c 69 6e 65 63 6f 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 ┆linecount(currterminal):= lineco┆
0x42e60…42e7e 75 6e 74 28 63 75 72 72 74 65 72 6d 69 6e 61 6c 29 2b 31 3b 0a 20 20 20 20 20 20 20 20 77 ┆unt(currterminal)+1; w┆
0x42e7e…42e84 (0x2c0,0x85e)
0x42e84…42ea0 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 61 6c ┆rite(zout,<<zd>,currterminal┆
0x42ea0…42ec0 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 20 20 ┆,false add 32,1, ┆
0x42ec0…42ee0 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 20 20 ┆ <: term = :>,currterminal, ┆
0x42ee0…42efc 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┆
0x42efc…42f02 (0x2c0,0x85f)
0x42f02…42f20 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 3c 3a ┆dd>,linecount(currterminal),<:┆
0x42f20…42f40 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 31 20 ┆: :>); for j:= 1 step 1 ┆
0x42f40…42f60 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 66 28 ┆until i do outchar(zout,linebuf(┆
0x42f60…42f7a 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 ┆j)); if linebuf(1)┆
0x42f7a…42f80 (0x2c0,0x860)
0x42f80…42fa0 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 73 74 ┆ = 42 then begin <* a st┆
0x42fa0…42fc0 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 6f 75 ┆ar in first position means logou┆
0x42fc0…42fe0 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 72 6d ┆t *> write(zout,<:term┆
0x42fe0…43000 69 6e 61 6c 20 6c 6f 67 67 65 64 20 6f 75 74 3c 31 30 3e 3a 3e 29 3b 0a 00 00 00 00 00 00 00 00 ┆inal logged out<10>:>); ┆
0x43000…43006 (536,) (0x2c0,0x861)
0x43006…43020 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 ┆ setposition(zout┆
0x43020…43040 2c 30 2c 30 29 3b 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 ┆,0,0); removelink(zout┆
0x43040…43060 2c 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 ┆,terminalid(currterminal),false)┆
0x43060…4307e 3b 0a 20 20 20 20 20 20 20 20 20 20 61 63 74 69 76 65 74 65 72 6d 69 6e 61 6c 73 3a 3d 20 ┆; activeterminals:= ┆
0x4307e…43084 (0x2c0,0x862)
0x43084…430a0 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 20 20 ┆activeterminals-1; ┆
0x430a0…430c0 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 72 75 ┆ passiveterm(currterminal):= tru┆
0x430c0…430e0 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 74 70 ┆e; end else setp┆
0x430e0…430fc 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 ┆osition(zout,0,0); unt┆
0x430fc…43102 (0x2c0,0x863)
0x43102…43120 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 64 0a ┆il activeterminals=0; end ┆
0x43120…43140 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 65 28 ┆ removepool(zout); close(┆
0x43140…43160 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 20 65 ┆zin,true); close(zout,true); e┆
0x43160…4317a 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 ┆nd; end ',f i' ┆
0x4317a…43180 (0x2c0,0x864)
0x43180…431a0 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 72 65 ┆ *********** tem test cre┆
0x431a0…431c0 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 2a 2a ┆ate pool and create link *******┆
0x431c0…431e0 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 20 20 ┆****** program call: ┆
0x431e0…43200 20 20 20 3c 70 72 6f 67 72 61 6d 6e 61 6d 65 3e 20 3c 70 6f 6f 6c 6e 61 00 00 00 00 00 00 00 00 ┆ <programname> <poolna ┆
0x43200…43206 (537,) (0x2c0,0x865)
0x43206…43220 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 ┆me>(.<type>.<locid>.<proce┆
0x43220…43240 73 73 20 6e 61 6d 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 ┆ss name>.<bufs>. ┆
0x43240…43260 20 20 20 20 20 20 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 ┆ <timers>.<mask┆
0x43260…4327e 3e 2c 3c 73 75 62 73 74 3e 29 20 30 2d 3e 6e 0a 0a 0a 20 20 20 20 20 20 20 3c 70 6f 6f 6c ┆>,<subst>) 0->n <pool┆
0x4327e…43284 (0x2c0,0x866)
0x43284…432a0 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 65 3e ┆name>,<locid>,<process name>┆
0x432a0…432c0 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 3e 2c ┆::= <text> <type>,<bufs>,┆
0x432c0…432e0 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 74 65 ┆<timers>,<mask>,<subst>::= <inte┆
0x432e0…432fc 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 ┆ger> the program crea┆
0x432fc…43302 (0x2c0,0x867)
0x43302…43320 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 20 3c ┆tes a terminal with the name <┆
0x43320…43340 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 6f 66 ┆poolname>. for every set of┆
0x43340…43360 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 6e 6b ┆ link parameters a terminal link┆
0x43360…4337a 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 ┆ is created begin algol┆
0x4337a…43380 (0x2c0,0x868)
0x43380…433a0 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 72 6f ┆ copy.1; <* copy tem control pro┆
0x433a0…433c0 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 2c 20 ┆cedures *> integer i, j, ┆
0x433c0…433e0 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 20 74 ┆result, type, locid, t┆
0x433e0…43400 65 72 6d 69 6e 61 6c 72 65 66 2c 20 62 75 66 73 2c 74 69 6d 65 72 73 2c 00 00 00 00 00 00 00 00 ┆erminalref, bufs,timers, ┆
0x43400…43406 (538,) (0x2c0,0x869)
0x43406…43420 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 ┆ mask, subst; integer ar┆
0x43420…43440 72 61 79 20 69 61 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 ┆ray ia(1:20); real array ar┆
0x43440…43460 72 28 31 3a 32 29 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 ┆r(1:2); zone z, dummy(1,1,stde┆
0x43460…4347e 72 72 6f 72 29 3b 0a 0a 20 20 69 66 20 73 79 73 74 65 6d 28 34 2c 31 2c 61 72 72 29 3c 3e ┆rror); if system(4,1,arr)<>┆
0x4347e…43484 (0x2c0,0x86a)
0x43484…434a0 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 39 2c ┆4 shift 12+10 then system(9,┆
0x434a0…434c0 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 7a 2c ┆1,<:param:>); i:= 1; open(z,┆
0x434c0…434e0 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 0a 20 ┆8,string(arr(increase(i))),0); ┆
0x434e0…434fc 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┆
0x434fc…43502 (0x2c0,0x86b)
0x43502…43520 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 73 75 ┆f result<>0 then system(9,resu┆
0x43520…43540 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 30 2c ┆lt,<:crpool:>); open(dummy,0,┆
0x43540…43560 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 67 65 ┆<::>,0); i:= 0; repeat <* ge┆
0x43560…4357a 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 ┆t dummy message from tem *┆
0x4357a…43580 (0x2c0,0x86c)
0x43580…435a0 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 74 20 ┆> result:= monitor(24) wait ┆
0x435a0…435c0 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 75 6c ┆event:(dummy,i,ia); if resul┆
0x435c0…435e0 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 28 31 ┆t=0 then begin if ia(1┆
0x435e0…43600 29 20 3d 20 2d 32 20 73 68 69 66 74 20 31 32 20 74 68 65 6e 0a 20 20 20 00 00 00 00 00 00 00 00 ┆) = -2 shift 12 then ┆
0x43600…43606 (539,) (0x2c0,0x86d)
0x43606…43620 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 ┆ begin monitor(2┆
0x43620…43640 36 29 20 67 65 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 20 ┆6) get event:(dummy,i,ia); ┆
0x43640…43660 20 20 20 69 3a 3d 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 ┆ i:= 0; end; end; ┆
0x43660…4367e 75 6e 74 69 6c 20 69 3d 30 3b 0a 20 20 63 6c 6f 73 65 28 64 75 6d 6d 79 2c 74 72 75 65 29 ┆until i=0; close(dummy,true)┆
0x4367e…43684 (0x2c0,0x86e)
0x43684…436a0 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 77 68 ┆; i:= 1; for i:= i+1 wh┆
0x436a0…436c0 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 2b 34 ┆ile system(4,i,arr)=8 shift 12+4┆
0x436c0…436e0 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 0a 20 ┆ do begin type:= arr(1); ┆
0x436e0…436fc 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,┆
0x436fc…43702 (0x2c0,0x86f)
0x43702…43720 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 79 73 ┆i,arr)<>8 shift 12+10 then sys┆
0x43720…43740 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 3d 20 ┆tem(9,i,<:param:>); locid:= ┆
0x43740…43760 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 0a 20 ┆arr(1) shift (-24) extract 24; ┆
0x43760…4377a 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(┆
0x4377a…43780 (0x2c0,0x870)
0x43780…437a0 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 73 79 ┆4,i,arr)<>8 shift 12 +10 then sy┆
0x437a0…437c0 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 3b 0a ┆stem(9,i,<:param:>); j:= 1; ┆
0x437c0…437e0 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 63 72 ┆ open(dummy,0,string(arr(incr┆
0x437e0…43800 65 61 73 65 28 6a 29 29 29 2c 30 29 3b 0a 20 20 20 20 74 65 72 6d 69 6e 00 00 00 00 00 00 00 00 ┆ease(j))),0); termin ┆
0x43800…43806 (540,) (0x2c0,0x871)
0x43806…43820 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 ┆alref:= monitor(4,dummy,0,┆
0x43820…43840 69 61 29 3b 0a 20 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 ┆ia); close(dummy,true); ┆
0x43840…43860 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 69 2c 61 72 72 29 3c ┆i:= i+1; if system(4,i,arr)<┆
0x43860…4387e 3e 38 20 73 68 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 ┆>8 shift 12+4 then system(9,i,┆
0x4387e…43884 (0x2c0,0x872)
0x43884…438a0 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 28 31 ┆<:param:>); bufs:= arr(1┆
0x438a0…438c0 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 34 2c ┆); i:= i+1; if system(4,┆
0x438c0…438e0 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 74 65 ┆i,arr)<> 8 shift 12+4 then syste┆
0x438e0…438fc 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 ┆m(9,i,<:param:>); timers┆
0x438fc…43902 (0x2c0,0x873)
0x43902…43920 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 69 66 ┆:= arr(1); i:= i+1; if┆
0x43920…43940 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 34 20 ┆ system(4,i,arr)<> 8 shift 12+4 ┆
0x43940…43960 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 20 20 ┆then system(9,i,<:param:>); ┆
0x43960…4397a 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┆
0x4397a…43980 (0x2c0,0x874)
0x43980…439a0 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 66 ┆; if system(4,i,arr)<>8 shif┆
0x439a0…439c0 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 3a 3e ┆t 12+4 then system(9,i,<:param:>┆
0x439c0…439e0 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 73 75 ┆); subst:= arr(1); resu┆
0x439e0…43a00 6c 74 3a 3d 20 63 72 65 61 74 65 6c 69 6e 6b 28 7a 2c 74 79 70 65 2c 6c 00 00 00 00 00 00 00 00 ┆lt:= createlink(z,type,l ┆
0x43a00…43a06 (541,) (0x2c0,0x875)
0x43a06…43a20 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 ┆ocid,terminalref,bufs,time┆
0x43a20…43a40 72 73 2c 6d 61 73 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 ┆rs,mask,subst); if result<>0┆
0x43a40…43a60 20 74 68 65 6e 20 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 ┆ then system(9,result,<:crlink:>┆
0x43a60…43a7e 29 3b 0a 20 20 65 6e 64 3b 0a 0a 20 20 69 66 20 73 79 73 74 65 6d 28 34 2c 69 2c 61 72 72 ┆); end; if system(4,i,arr┆
0x43a7e…43a84 (0x2c0,0x876)
0x43a84…43aa0 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 61 6d ┆)<>0 then system(4,i,<:param┆
0x43aa0…43ac0 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 0a 0a ┆:>); close(z,true); end ',f ┆
0x43ac0…43ae0 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 3a 70 ┆ ft 12 +10 then system(9,i,<:p┆
0x43ae0…43afc 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 ┆aram:= i+1; if system(4,┆
0x43afc…43b02 (0x324,0x877)
0x43b02…43b20 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 2a 2a ┆! *** tprimo ***┆
0x43b20…43b40 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 20 6a ┆ ; ; ; niels møller jørgensen, j┆
0x43b40…43b60 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 39 37 ┆une 1978. ; revision 2, feb. 197┆
0x43b60…43b7a 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 ┆9. ; revision 2.1, nov. 19┆
0x43b7a…43b80 (0x324,0x878)
0x43b80…43ba0 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 6e 20 ┆79. knud christensen ; revision ┆
0x43ba0…43bc0 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 65 6e ┆2.2, sep. 1981. knud christensen┆
0x43bc0…43be0 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 2e 33 ┆, edith rosenberg ; revision 2.3┆
0x43be0…43c00 2c 20 6d 61 72 2e 20 31 39 38 32 2e 20 66 6c 65 6d 6d 69 6e 67 20 62 69 00 00 00 00 00 00 00 00 ┆, mar. 1982. flemming bi ┆
0x43c00…43c06 (542,) (0x324,0x879)
0x43c06…43c20 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 ┆ggas ; revision 3.0, sep. ┆
0x43c20…43c40 31 39 38 32 2e 20 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 ┆1982. flemming biggas ; revision┆
0x43c40…43c60 20 34 2e 30 2c 20 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 ┆ 4.0, apr. 1983. flemming biggas┆
0x43c60…43c7e 0a 3b 20 72 65 76 69 73 69 6f 6e 20 34 2e 31 2c 20 61 75 67 2e 20 31 39 38 34 2e 20 66 6c ┆ ; revision 4.1, aug. 1984. fl┆
0x43c7e…43c84 (0x324,0x87a)
0x43c84…43ca0 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 2e 30 ┆emming biggas ; revision 5.0┆
0x43ca0…43cc0 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 6d 70 ┆, aug. 1985. flemming biggas (mp┆
0x43cc0…43ce0 20 2b 20 61 64 70 33 32 37 30 20 72 65 6c 65 61 73 65 29 2e 0a 3b 20 72 65 76 69 73 69 6f 6e 20 ┆ + adp3270 release). ; revision ┆
0x43ce0…43cfc 36 2e 30 20 73 65 70 2e 20 31 39 38 36 20 66 6c 65 6d 6d 69 6e 67 20 62 69 67 67 61 ┆6.0 sep. 1986 flemming bigga┆
0x43cfc…43d02 (0x324,0x87b)
0x43d02…43d20 73 20 28 52 43 38 30 30 30 20 43 6f 6d 70 61 63 74 20 72 65 6c 65 61 73 65 29 2e 0a 21 0a ┆s (RC8000 Compact release). ! ┆
0x43d20…43d40 0a 70 72 69 6e 74 65 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 ┆ printermodule begin !fp.no; ┆
0x43d40…43d60 20 21 62 72 61 6e 63 68 20 32 2c 31 31 3b 0a 20 20 21 73 65 63 74 69 6f 6e 73 20 37 30 3b 0a 0a ┆ !branch 2,11; !sections 70; ┆
0x43d60…43d7a 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 ┆ procedure waitmess ┆
0x43d7a…43d80 (0x324,0x87c)
0x43d80…43da0 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┆
0x43da0…43dc0 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) ! ┆
0x43dc0…43de0 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 6d 65 ┆ w2); ! abs ref me┆
0x43de0…43e00 73 73 61 67 65 20 62 75 66 66 65 72 20 28 72 65 74 75 72 6e 29 20 20 20 00 00 00 00 00 00 00 00 ┆ssage buffer (return) ┆
0x43e00…43e06 (543,) (0x324,0x87d)
0x43e06…43e20 20 20 20 20 20 21 0a 0a 20 20 70 72 6f 63 65 64 75 72 65 20 77 61 69 74 5f 73 ┆ ! procedure wait_s┆
0x43e20…43e40 74 61 74 75 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2e 77 33 2e 3b 20 20 20 20 21 20 ┆tatus (.w3.; ! ┆
0x43e40…43e60 77 61 69 74 20 66 6f 72 20 73 74 61 74 75 73 20 28 69 6e 70 75 74 20 6f 70 65 72 61 74 69 6f 6e ┆wait for status (input operation┆
0x43e60…43e7e 29 20 66 38 30 30 30 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 30 29 3b ┆) f8000 ! w0);┆
0x43e7e…43e84 (0x324,0x87e)
0x43e84…43ea0 20 20 20 20 21 20 6d 61 78 20 6e 6f 20 6f 66 20 6d 69 6e 75 74 65 73 20 74 6f 20 77 ┆ ! max no of minutes to w┆
0x43ea0…43ec0 61 69 74 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 ┆ait ! procedur┆
0x43ec0…43ee0 65 20 73 65 6e 64 77 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 ┆e sendwait (.w3.; ┆
0x43ee0…43efc 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 ┆ ! abs ref curr corout (ret┆
0x43efc…43f02 (0x324,0x87f)
0x43f02…43f20 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 20 20 20 20 20 ┆urn) ! ┆
0x43f20…43f40 20 20 20 77 30 20 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 20 ┆ w0 ; ! result (return) ┆
0x43f40…43f60 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 ┆ ! ┆
0x43f60…43f7a 20 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 ┆ w1 ; ! abs ref mess┆
0x43f7a…43f80 (0x324,0x880)
0x43f80…43fa0 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 0a 20 20 20 ┆age (call) ! ┆
0x43fa0…43fc0 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 70 72 ┆ w2); ! abs ref pr┆
0x43fc0…43fe0 6f 63 65 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 ┆ocess name (call) ! ┆
0x43fe0…44000 20 20 70 72 6f 63 65 64 75 72 65 20 6c 69 6e 6b 0a 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ procedure link ┆
0x44000…44006 (544,) (0x324,0x881)
0x44006…44020 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 ┆ (.w3.; ! abs ref ┆
0x44020…44040 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 20 21 ┆curr corout (return) !┆
0x44040…44060 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┆
0x44060…4407e 66 20 71 75 65 75 65 20 65 6c 65 6d 65 6e 74 20 28 63 61 6c 6c 29 20 20 20 20 20 20 20 20 ┆f queue element (call) ┆
0x4407e…44084 (0x324,0x882)
0x44084…440a0 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); ┆
0x440a0…440c0 21 20 61 62 73 20 72 65 66 20 71 75 65 75 65 20 68 65 61 64 20 28 63 61 6c 6c 29 20 20 20 20 20 ┆! abs ref queue head (call) ┆
0x440c0…440e0 20 20 20 20 20 20 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 ┆ ! procedure move ┆
0x440e0…440fc 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┆
0x440fc…44102 (0x324,0x883)
0x44102…44120 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 ┆f curr corout (return) ┆
0x44120…44140 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 21 20 6e 75 ┆ ! w0 ; ! nu┆
0x44140…44160 6d 62 65 72 20 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 ┆mber of halfwords to move (call)┆
0x44160…4417a 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 ┆ ! w1 ┆
0x4417a…44180 (0x324,0x884)
0x44180…441a0 3b 20 20 20 21 20 61 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 ┆; ! abs ref first halfword to ┆
0x441a0…441c0 6d 6f 76 65 20 28 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 ┆move (call) ! w┆
0x441c0…441e0 32 29 3b 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 ┆2); ! abs ref destination (cal┆
0x441e0…44200 6c 29 20 20 20 20 20 20 20 20 20 20 20 20 20 21 0a 0a 20 20 70 72 6f 63 00 00 00 00 00 00 00 00 ┆l) ! proc ┆
0x44200…44206 (545,) (0x324,0x885)
0x44206…44220 65 64 75 72 65 20 6f 70 6d 65 73 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆edure opmess ┆
0x44220…44240 20 28 2e 77 33 2e 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 29 3b 20 20 20 21 ┆ (.w3.; w1); !┆
0x44240…44260 20 61 62 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 ┆ abs ref message (call) ┆
0x44260…4427e 20 20 20 20 20 20 20 20 21 0a 0a 20 20 70 72 6f 63 65 64 75 72 65 20 67 65 74 5f 62 72 61 ┆ ! procedure get_bra┆
0x4427e…44284 (0x324,0x886)
0x44284…442a0 6e 63 68 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2e 77 33 2e 3b 20 20 ┆nches (.w3.; ┆
0x442a0…442c0 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) ┆
0x442c0…442e0 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);┆
0x442e0…442fc 20 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 ┆ ! coroutine number ┆
0x442fc…44302 (0x324,0x887)
0x44302…44320 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 72 65 ┆ ! procedure┆
0x44320…44340 20 63 6f 70 79 61 6e 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 ┆ copyanswer (.w3.;┆
0x44340…44360 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 66 69 72 73 74 20 ┆ w0; ! first ┆
0x44360…4437a 6f 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 ┆of data area (call) ┆
0x4437a…44380 (0x324,0x888)
0x44380…443a0 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 20 ┆ ! ┆
0x443a0…443c0 21 20 72 65 73 75 6c 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 ┆! result from copy core (return)┆
0x443c0…443e0 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 3b 20 20 ┆ ! w1; ┆
0x443e0…44400 20 20 21 20 6c 61 73 74 20 6f 66 20 64 61 74 61 20 61 72 65 61 20 28 63 00 00 00 00 00 00 00 00 ┆ ! last of data area (c ┆
0x44400…44406 (546,) (0x324,0x889)
0x44406…44420 61 6c 6c 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 0a 20 20 20 20 20 ┆all) ! ┆
0x44420…44440 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 62 79 74 65 73 20 ┆ ! no of bytes ┆
0x44440…44460 63 6f 70 69 65 64 20 28 72 65 74 75 72 6e 29 20 20 20 20 20 20 20 20 20 20 20 20 21 0a 20 20 20 ┆copied (return) ! ┆
0x44460…4447e 20 20 20 20 20 20 20 20 20 20 20 20 20 77 32 29 3b 20 20 20 21 20 6d 65 73 73 61 67 65 20 ┆ w2); ! message ┆
0x4447e…44484 (0x324,0x88a)
0x44484…444a0 62 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 ┆buffer (call) ┆
0x444a0…444c0 20 20 20 21 0a 0a 20 20 70 72 6f 63 65 64 75 72 65 20 70 75 73 68 0a 20 20 20 20 20 20 20 20 20 ┆ ! procedure push ┆
0x444c0…444e0 20 20 20 20 20 28 2e 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 ┆ (.w3.; ! return:current ┆
0x444e0…444fc 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 ┆ ! ┆
0x444fc…44502 (0x324,0x88b)
0x44502…44520 20 20 20 20 20 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 ┆ w0); ! call:push┆
0x44520…44540 20 65 6c 65 6d 65 6e 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 ┆ element ! ┆
0x44540…44560 70 72 6f 63 65 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 ┆procedure pop (.w3┆
0x44560…4457a 2e 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 ┆.; ! return:current ┆
0x4457a…44580 (0x324,0x88c)
0x44580…445a0 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 ┆ ! ┆
0x445a0…445c0 20 20 20 20 77 30 29 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 ┆ w0); ! return:pop element┆
0x445c0…445e0 20 20 20 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 ┆ ! procedur┆
0x445e0…44600 65 20 63 6f 6d 70 61 72 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 00 00 00 00 00 00 00 00 ┆e compare ( ┆
0x44600…44606 (547,) (0x324,0x88d)
0x44606…44620 2e 77 33 2e 3b 20 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┆
0x44620…44640 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) ! ┆
0x44640…44660 20 20 20 20 20 20 20 20 20 77 30 20 3b 20 20 20 20 21 20 6e 6f 20 6f 66 20 62 79 74 65 73 20 74 ┆ w0 ; ! no of bytes t┆
0x44660…4467e 6f 20 63 6f 6d 70 61 72 65 20 28 63 61 6c 6c 29 20 20 20 20 20 20 20 20 20 20 21 0a 20 20 ┆o compare (call) ! ┆
0x4467e…44684 (0x324,0x88e)
0x44684…446a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 3d 30 20 74 68 ┆ ! =0 th┆
0x446a0…446c0 65 20 62 79 74 65 73 20 61 72 65 20 65 71 75 61 6c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆e bytes are equal ┆
0x446c0…446e0 20 20 21 0a 20 20 20 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 ┆ ! w1 ; ! abs┆
0x446e0…446fc 20 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 ┆ ref 1. string ┆
0x446fc…44702 (0x324,0x88f)
0x44702…44720 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); ┆
0x44720…44740 20 20 20 21 20 61 62 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 ┆ ! abs ref 2. string ┆
0x44740…44760 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 75 74 74 69 ┆ ! procedure outti┆
0x44760…4477a 6d 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 ┆me (.w3.; ┆
0x4477a…44780 (0x324,0x890)
0x44780…447a0 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) ┆
0x447a0…447c0 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); ┆
0x447c0…447e0 20 20 21 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 ┆ ! abs ref string (call) ┆
0x447e0…44800 20 20 20 20 20 20 20 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ ! ┆
0x44800…44806 (548,) (0x324,0x891)
0x44806…44820 20 20 20 20 20 20 20 20 20 20 20 20 21 20 61 6c 6c 20 72 65 67 69 73 74 65 72 ┆ ! all register┆
0x44820…44840 73 20 75 6e 63 68 61 6e 67 65 64 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 0a 0a 20 20 ┆s unchanged ! ┆
0x44840…44860 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 20 20 20 20 20 20 20 ┆procedure testout ┆
0x44860…4487e 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 20 20 20 20 20 ┆(.w3.; ! return (call) ┆
0x4487e…44884 (0x324,0x892)
0x44884…448a0 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 ┆ ! ┆
0x448a0…448c0 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 67 74 68 ┆ w0 ; ! record length┆
0x448c0…448e0 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 21 0a 20 20 20 20 ┆ (call) ! ┆
0x448e0…448fc 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 66 ┆ w1 ; ! abs ref┆
0x448fc…44902 (0x324,0x893)
0x44902…44920 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 20 ┆ start of test record (call) ┆
0x44920…44940 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 72 65 63 ┆ ! w2); ! rec┆
0x44940…44960 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 20 20 20 20 20 20 20 ┆ord kind (call) ┆
0x44960…4497a 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 ┆ ! procedure create_┆
0x4497a…44980 (0x324,0x894)
0x44980…449a0 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 20 20 20 ┆tc (.w3.; ┆
0x449a0…449c0 20 20 20 20 20 20 20 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 ┆ ref ct_tc, ┆
0x449c0…449e0 20 20 20 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 ┆ ct_devname; ! d┆
0x449e0…44a00 65 76 69 63 65 20 6e 61 6d 65 20 20 66 72 6f 6d 20 65 6e 74 72 79 20 20 00 00 00 00 00 00 00 00 ┆evice name from entry ┆
0x44a00…44a06 (549,) (0x324,0x895)
0x44a06…44a20 21 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 ┆! word ┆
0x44a20…44a40 20 63 74 5f 68 6f 73 74 6e 6f 2c 63 74 5f 68 6f 73 74 69 64 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆ ct_hostno,ct_hostid; ┆
0x44a40…44a60 20 20 20 20 20 20 72 65 66 20 63 74 5f 70 72 6f 63 72 65 66 29 3b 20 21 20 61 62 73 20 72 65 66 ┆ ref ct_procref); ! abs ref┆
0x44a60…44a7e 20 65 78 74 2e 20 70 72 6f 63 65 73 73 20 64 65 73 63 72 2e 20 20 21 0a 0a 20 20 70 72 6f ┆ ext. process descr. ! pro┆
0x44a7e…44a84 (0x324,0x896)
0x44a84…44aa0 63 65 64 75 72 65 20 72 65 6d 6f 76 65 5f 74 63 0a 20 20 20 20 20 20 20 20 20 20 20 ┆cedure remove_tc ┆
0x44aa0…44ac0 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 20 72 65 66 20 20 20 ┆ (.w3.; ref ┆
0x44ac0…44ae0 20 20 20 72 74 5f 74 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 ┆ rt_tc); procedure find_tc┆
0x44ae0…44afc 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 ┆ (.w3.; ┆
0x44afc…44b02 (0x324,0x897)
0x44b02…44b20 20 20 20 20 20 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 ┆ ref ft_devname;┆
0x44b20…44b40 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 66 74 5f 68 6f 73 ┆ word ft_hos┆
0x44b40…44b60 74 6e 6f 2c 66 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 ┆tno,ft_hostid; w┆
0x44b60…44b7a 6f 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 ┆ord ft_kind; ! kind of dev┆
0x44b7a…44b80 (0x324,0x898)
0x44b80…44ba0 69 63 65 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 ┆ice ! ┆
0x44ba0…44bc0 20 20 20 20 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) ┆
0x44bc0…44be0 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 ┆ ! ┆
0x44be0…44c00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 3e 30 3a 20 61 62 00 00 00 00 00 00 00 00 ┆ ! >0: ab ┆
0x44c00…44c06 (550,) (0x324,0x899)
0x44c06…44c20 73 20 72 65 66 20 74 63 20 66 6f 75 6e 64 20 20 20 20 20 20 20 20 20 20 20 20 ┆s ref tc found ┆
0x44c20…44c40 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 20 ┆ ! ┆
0x44c40…44c60 21 20 3d 30 3a 20 74 63 20 6e 6f 74 20 66 6f 75 6e 64 2c 20 6e 6f 20 66 72 65 65 20 74 63 20 20 ┆! =0: tc not found, no free tc ┆
0x44c60…44c7e 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 ┆ ! ┆
0x44c7e…44c84 (0x324,0x89a)
0x44c84…44ca0 20 20 20 20 21 20 3c 30 3a 20 74 63 20 6e 6f 74 20 66 6f 75 6e 64 2c 20 2d 61 62 73 ┆ ! <0: tc not found, -abs┆
0x44ca0…44cc0 20 72 65 66 20 66 72 65 65 20 74 63 20 20 20 20 20 21 0a 0a 20 20 70 72 6f 63 65 64 75 72 65 20 ┆ ref free tc ! procedure ┆
0x44cc0…44ce0 6c 6f 6f 6b 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 33 2e ┆looktransport (.w3.┆
0x44ce0…44cfc 3b 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 ┆; ! abs ref curr corout (┆
0x44cfc…44d02 (0x324,0x89b)
0x44d02…44d20 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 20 20 20 20 ┆return) ! ┆
0x44d20…44d40 20 20 20 20 20 77 31 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 ┆ w1 ; ! name of transport┆
0x44d40…44d60 20 28 63 61 6c 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 ┆ (call) ! ┆
0x44d60…44d7a 20 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 ┆ w2); ! abs ref c┆
0x44d7a…44d80 (0x324,0x89c)
0x44d80…44da0 6f 72 65 20 61 64 64 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 ┆ore address ! ┆
0x44da0…44dc0 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 2d 31 20 69 66 20 6e ┆ ! -1 if n┆
0x44dc0…44de0 61 6d 65 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 ┆ame illegal ┆
0x44de0…44e00 21 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 ┆! ┆
0x44e00…44e06 (551,) (0x324,0x89d)
0x44e06…44e20 20 21 20 30 20 69 66 20 75 6e 6b 6e 6f 77 6e 20 28 72 65 74 75 72 6e 29 20 20 ┆ ! 0 if unknown (return) ┆
0x44e20…44e40 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 72 65 20 70 ┆ ! procedure p┆
0x44e40…44e60 75 74 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 33 2e 3b 0a ┆uttransport (.w3.; ┆
0x44e60…44e7e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 29 3b 20 20 20 20 21 20 6e 61 6d 65 20 ┆ w1); ! name ┆
0x44e7e…44e84 (0x324,0x89e)
0x44e84…44ea0 6f 66 20 74 72 61 6e 73 70 6f 72 74 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆of transport ┆
0x44ea0…44ec0 20 20 20 20 20 20 21 0a 0a 20 20 70 72 6f 63 65 64 75 72 65 20 69 6f 77 6f 72 6b 61 72 65 61 0a ┆ ! procedure ioworkarea ┆
0x44ec0…44ee0 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.; ┆
0x44ee0…44efc 20 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 ┆ w1); ! message addres┆
0x44efc…44f02 (0x324,0x89f)
0x44f02…44f20 73 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 0a 0a 20 20 ┆s (call) ! ┆
0x44f20…44f40 70 72 6f 63 65 64 75 72 65 20 61 6c 6c 6f 63 5f 69 66 70 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆procedure alloc_ifp ┆
0x44f40…44f60 20 20 28 2e 77 33 2e 3b 20 20 20 20 20 20 20 20 20 20 20 21 20 61 6c 6c 6f 63 61 74 65 73 20 61 ┆ (.w3.; ! allocates a┆
0x44f60…44f7a 20 64 65 76 69 63 65 20 28 69 66 70 29 20 70 72 6f 63 65 73 73 20 21 0a 20 20 ┆ device (ifp) process ! ┆
0x44f7a…44f80 (0x324,0x8a0)
0x44f80…44fa0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 6f 72 64 20 69 66 70 5f 6b 69 6e 64 3b 20 21 20 70 ┆ word ifp_kind; ! p┆
0x44fa0…44fc0 72 6f 63 65 73 73 20 6b 69 6e 64 20 69 2e 65 2e 20 31 34 3d 70 72 69 6e 74 65 72 20 21 0a 20 20 ┆rocess kind i.e. 14=printer ! ┆
0x44fc0…44fe0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 6f 72 64 20 69 66 70 5f 6d 61 69 6e 3b 20 21 20 6d ┆ word ifp_main; ! m┆
0x44fe0…45000 61 69 6e 20 70 72 6f 63 65 73 73 20 28 66 2e 65 78 2e 22 69 66 70 6d 61 00 00 00 00 00 00 00 00 ┆ain process (f.ex."ifpma ┆
0x45000…45006 (552,) (0x324,0x8a1)
0x45006…45020 69 6e 31 22 29 20 64 65 76 69 63 65 20 6e 6f 2e 20 21 0a 20 20 20 20 20 20 20 ┆in1") device no. ! ┆
0x45020…45040 20 20 20 20 20 20 20 20 20 77 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 21 20 72 65 74 75 72 6e ┆ w0; ! return┆
0x45040…45060 20 76 61 6c 75 65 20 66 72 6f 6d 20 6d 61 69 6e 20 70 72 6f 63 65 73 73 20 28 72 65 74 75 72 6e ┆ value from main process (return┆
0x45060…4507e 29 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 20 20 20 ┆) ! w1; ┆
0x4507e…45084 (0x324,0x8a2)
0x45084…450a0 20 20 20 20 20 21 20 64 65 76 69 63 65 20 6e 6f 2e 20 69 66 70 20 70 72 6f 63 65 73 ┆ ! device no. ifp proces┆
0x450a0…450c0 73 20 28 72 65 74 75 72 6e 29 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 32 29 ┆s (return) ! w2)┆
0x450c0…450e0 3b 20 20 20 20 20 20 20 20 20 20 20 21 20 70 72 6f 63 65 73 73 20 64 65 73 63 72 69 70 74 69 6f ┆; ! process descriptio┆
0x450e0…450fc 6e 20 61 64 64 72 65 73 73 20 28 72 65 74 75 72 6e 29 20 21 0a 0a 0a 20 20 70 72 6f ┆n address (return) ! pro┆
0x450fc…45102 (0x324,0x8a3)
0x45102…45120 63 65 64 75 72 65 20 64 65 61 6c 6c 6f 63 5f 69 66 70 0a 20 20 20 20 20 20 20 20 20 20 20 ┆cedure dealloc_ifp ┆
0x45120…45140 20 20 20 28 2e 77 33 2e 3b 20 20 20 20 20 20 20 20 20 20 20 21 20 64 65 61 6c 6c 6f 63 61 74 65 ┆ (.w3.; ! deallocate┆
0x45140…45160 73 20 61 20 64 65 76 69 63 65 20 28 69 66 70 29 20 70 72 6f 63 65 73 73 20 21 0a 20 20 20 20 20 ┆s a device (ifp) process ! ┆
0x45160…4517a 20 20 20 20 20 20 20 20 20 20 20 77 6f 72 64 20 69 66 70 5f 64 65 76 3b 20 20 ┆ word ifp_dev; ┆
0x4517a…45180 (0x324,0x8a4)
0x45180…451a0 21 20 64 65 76 69 63 65 20 6e 75 6d 62 65 72 20 6f 66 20 70 72 6f 63 65 73 73 20 20 21 0a 20 20 ┆! device number of process ! ┆
0x451a0…451c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 6f 72 64 20 69 66 70 5f 6d 61 69 6e 70 29 3b 20 21 ┆ word ifp_mainp); !┆
0x451c0…451e0 20 6d 61 69 6e 20 70 72 6f 63 65 73 73 20 28 66 2e 65 78 2e 22 69 66 70 6d 61 69 6e 31 22 29 20 ┆ main process (f.ex."ifpmain1") ┆
0x451e0…45200 64 65 76 69 63 65 20 6e 6f 2e 20 21 0a 0a 20 20 70 72 6f 63 65 64 75 72 00 00 00 00 00 00 00 00 ┆device no. ! procedur ┆
0x45200…45206 (553,) (0x324,0x8a5)
0x45206…45220 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 ┆e linkupremote ┆
0x45220…45240 20 20 28 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 72 ┆ (.w3.; word lur┆
0x45240…45260 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 68 ┆_kind; word lur_h┆
0x45260…4527e 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 ┆ostno, lur_hostid; ref lur_dev┆
0x4527e…45284 (0x324,0x8a6)
0x45284…452a0 69 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 ┆iname; w0 ; ┆
0x452a0…452c0 20 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 20 ┆ ! return value from host proc ┆
0x452c0…452e0 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 3b ┆(return) ! w2);┆
0x452e0…452fc 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 ┆ ! ref proc descr adr (re┆
0x452fc…45302 (0x324,0x8a7)
0x45302…45320 74 75 72 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 72 ┆turn) ! procedur┆
0x45320…45340 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 77 ┆e writeinteger (.w┆
0x45340…45360 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) ┆
0x45360…4537a 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 ┆ ! ┆
0x4537a…45380 (0x324,0x8a8)
0x45380…453a0 20 20 20 20 20 20 20 20 20 20 77 30 20 3b 20 20 20 20 20 21 20 76 61 6c 75 65 20 28 63 61 6c 6c ┆ w0 ; ! value (call┆
0x453a0…453c0 2f 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 21 0a 20 ┆/return) ! ┆
0x453c0…453e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 20 3b 20 20 20 20 20 21 20 73 74 72 69 6e 67 ┆ w1 ; ! string┆
0x453e0…45400 20 72 65 66 65 72 65 6e 63 65 20 28 63 61 6c 6c 2f 72 65 74 75 72 6e 29 00 00 00 00 00 00 00 00 ┆ reference (call/return) ┆
0x45400…45406 (554,) (0x324,0x8a9)
0x45406…45420 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 ┆ ! ┆
0x45420…45440 20 20 77 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 6f ┆ w2); ! radix shift 16 + po┆
0x45440…45460 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 6f ┆sitions shift 8 + fill ! pro┆
0x45460…4547e 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 ┆cedure addtxt (.┆
0x4547e…45484 (0x324,0x8aa)
0x45484…454a0 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 ┆w3.; ! current (return) ┆
0x454a0…454c0 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 ┆ ! ┆
0x454c0…454e0 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 72 ┆ w0 ; ! no of halfwor┆
0x454e0…454fc 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 ┆ds to merge(call/return) ! ┆
0x454fc…45502 (0x324,0x8ab)
0x45502…45520 20 20 20 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 66 ┆ w1 ; ! ref┆
0x45520…45540 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 20 ┆ source (call/return) ┆
0x45540…45560 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 21 ┆ ! w2); !┆
0x45560…4557a 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 ┆ ref object (call/return) ┆
0x4557a…45580 (0x324,0x8ac)
0x45580…455a0 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 20 6f 75 ┆ ! procedure ou┆
0x455a0…455c0 74 6d 61 69 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 20 20 21 ┆tmain (.w3.; !┆
0x455c0…455e0 20 63 75 72 72 65 6e 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 ┆ current (return) ┆
0x455e0…45600 20 20 20 20 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ ! ┆
0x45600…45606 (555,) (0x324,0x8ad)
0x45606…45620 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 ┆ w1 ; ! message buffe┆
0x45620…45640 72 20 28 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 20 ┆r (call/return) ! ┆
0x45640…45660 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 72 ┆ w2); ! status (r┆
0x45660…4567e 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 ┆eturn) ┆
0x4567e…45684 (0x324,0x8ae)
0x45684…456a0 21 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 ┆! procedure display ┆
0x456a0…456c0 20 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 74 ┆ (.w3.; ! current┆
0x456c0…456e0 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 20 ┆ (return) ┆
0x456e0…456fc 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 ┆! w0 ; !┆
0x456fc…45702 (0x324,0x8af)
0x45702…45720 20 66 75 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 20 ┆ function (call) ┆
0x45720…45740 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 3b ┆ ! w1);┆
0x45740…45760 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 20 ┆ ! device (call) ┆
0x45760…4577a 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 ┆ ! proce┆
0x4577a…45780 (0x324,0x8b0)
0x45780…457a0 64 75 72 65 20 69 6e 69 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2e 77 33 2e 29 3b 20 20 ┆dure init (.w3.); ┆
0x457a0…457c0 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) ┆
0x457c0…457e0 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 66 72 65 65 74 72 61 ┆ ! procedure freetra┆
0x457e0…45800 6e 73 70 6f 72 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2e 77 33 00 00 00 00 00 00 00 00 ┆nsport (.w3 ┆
0x45800…45806 (556,) (0x324,0x8b1)
0x45806…45820 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 ┆.; w1; ┆
0x45820…45840 21 20 6e 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 20 ┆! name of transport (return) ┆
0x45840…45860 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 20 ┆ ! w2); ┆
0x45860…4587e 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 ┆ ! abs ref core address ┆
0x4587e…45884 (0x324,0x8b2)
0x45884…458a0 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 ┆ ! ┆
0x458a0…458c0 20 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 6f ┆ ! 0 if no free transpo┆
0x458c0…458e0 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 72 ┆rt (return) ! procedur┆
0x458e0…458fc 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 ┆e deftr_semantic ┆
0x458fc…45902 (0x324,0x8b3)
0x45902…45920 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 63 6f 72 ┆ (.w3.; ! abs ref curr cor┆
0x45920…45940 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 20 ┆out (return) ! ┆
0x45940…45960 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 72 ┆ w0 ; ! result , inter┆
0x45960…4597a 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 ┆nal value (return) !┆
0x4597a…45980 (0x324,0x8b4)
0x45980…459a0 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┆
0x459a0…459c0 66 20 74 72 61 6e 73 70 6f 72 74 20 63 6f 72 6f 75 74 69 6e 65 20 28 72 65 74 75 72 6e 29 20 20 ┆f transport coroutine (return) ┆
0x459c0…459e0 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 61 62 73 20 ┆ ! w2); ! abs ┆
0x459e0…45a00 72 65 66 20 74 72 61 6e 73 70 6f 72 74 20 64 65 73 63 2e 20 69 6e 20 63 00 00 00 00 00 00 00 00 ┆ref transport desc. in c ┆
0x45a00…45a06 (557,) (0x324,0x8b5)
0x45a06…45a20 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 ┆ore (call) ! procedure ┆
0x45a20…45a40 61 70 70 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 77 ┆appl_interface (.w┆
0x45a40…45a60 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 20 ┆3.); procedure editout ┆
0x45a60…45a7e 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 ┆ (.w3. ; ! return: cur┆
0x45a7e…45a84 (0x324,0x8b6)
0x45a84…45aa0 72 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 ┆rent ! ┆
0x45aa0…45ac0 20 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 65 ┆ w0 ; ! call:re┆
0x45ac0…45ae0 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 29 ┆place chars,return: result(0=ok)┆
0x45ae0…45afc 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 ┆! w1 ; ! c┆
0x45afc…45b02 (0x324,0x8b7)
0x45b02…45b20 61 6c 6c 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 20 ┆all: ref out-name ret: unchd ┆
0x45b20…45b40 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 21 ┆ ! w2) ; !┆
0x45b40…45b60 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 20 ┆ call: ref res-name ret: unchd ┆
0x45b60…45b7a 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 ┆ ! procedure crea┆
0x45b7a…45b80 (0x324,0x8b8)
0x45b80…45ba0 74 65 5f 66 70 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2e 77 33 2e 20 3b 20 20 21 20 ┆te_fpr (.w3. ; ! ┆
0x45ba0…45bc0 72 65 74 75 72 6e 3a 20 2a 6f 62 73 20 6f 62 73 20 4e 4f 54 20 63 75 72 72 65 6e 74 20 20 20 20 ┆return: *obs obs NOT current ┆
0x45bc0…45be0 20 20 20 20 20 21 0a 20 20 20 72 65 66 20 63 66 70 72 5f 6f 75 74 64 65 76 69 63 65 2c 20 21 20 ┆ ! ref cfpr_outdevice, ! ┆
0x45be0…45c00 6e 61 6d 65 20 6f 66 20 67 61 63 28 6f 75 74 29 2d 64 65 76 69 63 65 20 00 00 00 00 00 00 00 00 ┆name of gac(out)-device ┆
0x45c00…45c06 (558,) (0x324,0x8b9)
0x45c06…45c20 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 ┆ ! cfp┆
0x45c20…45c40 72 5f 69 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 65 ┆r_indevice; ! name of gac(in)-de┆
0x45c40…45c60 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 72 ┆vice ! wor┆
0x45c60…45c7e 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 ┆d cfpr_hno, ! hostno of gac ho┆
0x45c7e…45c84 (0x324,0x8ba)
0x45c84…45ca0 73 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 ┆st ! ┆
0x45ca0…45cc0 20 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 66 ┆ cfpr_hid; ! hostident of┆
0x45cc0…45ce0 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 20 ┆ gac host ! ┆
0x45ce0…45cfc 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 ┆ w0 ; ! return: ┆
0x45cfc…45d02 (0x324,0x8bb)
0x45d02…45d20 72 65 73 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 21 ┆result (ok=0) !┆
0x45d20…45d40 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 72 ┆ w1); ! call:r┆
0x45d40…45d60 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 21 ┆eturn: ref(free coroutine descr!┆
0x45d60…45d7a 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 ┆ procedure remove_fpr ┆
0x45d7a…45d80 (0x324,0x8bc)
0x45d80…45da0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2e 77 33 2e 3b 20 21 20 72 65 74 75 72 6e 3a 20 ┆ (.w3.; ! return: ┆
0x45da0…45dc0 63 75 72 72 65 6e 74 20 63 6f 72 6f 75 74 69 6e 65 20 20 20 20 20 20 20 20 20 20 20 21 0a 20 20 ┆current coroutine ! ┆
0x45dc0…45de0 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 72 65 74 75 ┆ w1); ! call:retu┆
0x45de0…45e00 72 6e 3a 20 72 65 66 20 28 66 70 72 2d 63 6f 72 6f 75 74 69 6e 65 29 20 00 00 00 00 00 00 00 00 ┆rn: ref (fpr-coroutine) ┆
0x45e00…45e06 (559,) (0x324,0x8bd)
0x45e06…45e20 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 ┆ ! procedure next┆
0x45e20…45e40 63 68 61 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 20 ┆char (.w3.; ┆
0x45e40…45e60 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 6f ┆ word stp; ! abs ref wo┆
0x45e60…45e7e 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 ┆rd next to last input word ! ┆
0x45e7e…45e84 (0x324,0x8be)
0x45e84…45ea0 20 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 ┆ w0 ; ! next┆
0x45ea0…45ec0 20 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 20 ┆ char (return) ┆
0x45ec0…45ee0 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 61 ┆ ! w1 ; ! pa┆
0x45ee0…45efc 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 ┆rtial word (call,return) ┆
0x45efc…45f02 (0x324,0x8bf)
0x45f02…45f20 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 ┆ ! w2)┆
0x45f20…45f40 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 63 ┆; ! abs ref next input word (c┆
0x45f40…45f60 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 65 ┆all,return) ! procedure ge┆
0x45f60…45f7a 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 ┆tparams ┆
0x45f7a…45f80 (0x324,0x8c0)
0x45f80…45fa0 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 72 65 66 20 20 20 70 ┆ (.w3.; ref p┆
0x45fa0…45fc0 61 72 61 6d 74 79 70 65 2c 70 61 72 61 6d 61 72 65 61 3b 20 21 20 63 61 6c 6c 20 20 72 65 66 2e ┆aramtype,paramarea; ! call ref.┆
0x45fc0…45fe0 20 64 65 73 63 72 20 70 61 72 61 6d 20 61 72 65 61 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ descr param area ! ┆
0x45fe0…46000 77 6f 72 64 20 20 62 75 66 70 6e 74 72 2c 73 74 6f 70 70 6e 74 72 3b 20 00 00 00 00 00 00 00 00 ┆word bufpntr,stoppntr; ┆
0x46000…46006 (560,) (0x324,0x8c1)
0x46006…46020 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 ┆ ! call ref. buffer sta┆
0x46020…46040 72 74 20 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 20 ┆rt end ! ┆
0x46040…46060 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 3c ┆ w0); ! return comno <┆
0x46060…4607e 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 ┆ 12 + params ! procedure ┆
0x4607e…46084 (0x324,0x8c2)
0x46084…460a0 6c 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 ┆lookupremote (┆
0x460a0…460c0 2e 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 75 ┆.w3.; ref lur_fu┆
0x460c0…460e0 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 6c ┆nction, ! 2=lookup process, 3= l┆
0x460e0…460fc 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 ┆ookup ! ┆
0x460fc…46102 (0x324,0x8c3)
0x46102…46120 6c 75 72 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 0a ┆lur_procnameref, lur_devname; ┆
0x46120…46140 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 20 ┆ w0; ! return ┆
0x46140…46160 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 20 ┆value from host proc (return) ┆
0x46160…4617a 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 ┆! w1; !┆
0x4617a…46180 (0x324,0x8c4)
0x46180…461a0 20 6b 69 6e 64 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ kind ┆
0x461a0…461c0 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 20 ┆ ! w2); ┆
0x461c0…461e0 20 21 20 61 62 73 20 72 65 66 20 61 72 65 61 20 74 6f 20 70 75 74 20 68 6f 73 74 20 61 64 64 72 ┆ ! abs ref area to put host addr┆
0x461e0…46200 65 73 73 3a 20 20 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ess: ! ┆
0x46200…46206 (561,) (0x324,0x8c5)
0x46206…46220 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 ┆ ! dhlinkno<12+h┆
0x46220…46240 6f 73 74 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 72 ┆ostno, hostid ! pr┆
0x46240…46260 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 20 ┆ocedure terminalid ┆
0x46260…4627e 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 ┆ (.w3.; ! abs ref curr corou┆
0x4627e…46284 (0x324,0x8c6)
0x46284…462a0 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 ┆t (return) ! ┆
0x462a0…462c0 20 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 20 ┆ w0; ! device host ┆
0x462c0…462e0 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 20 ┆link no (call) ! ┆
0x462e0…462fc 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┆
0x462fc…46302 (0x324,0x8c7)
0x46302…46320 66 20 61 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 6c ┆f area to put device name (cal┆
0x46320…46340 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 64 ┆l) ! procedure find_consold┆
0x46340…46360 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 61 ┆evice (.w3.; ! a┆
0x46360…4637a 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 ┆bs ref curr corout (return┆
0x4637a…46380 (0x324,0x8c8)
0x46380…463a0 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 20 77 30 ┆) ! w0┆
0x463a0…463c0 3b 20 20 20 20 21 20 31 3d 20 6c 6f 63 61 6c 20 32 3d 20 72 65 6d 6f 74 65 20 28 63 61 6c 6c 29 ┆; ! 1= local 2= remote (call)┆
0x463c0…463e0 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 ┆ ! ┆
0x463e0…46400 77 31 3b 20 20 20 20 21 20 61 62 73 20 72 65 66 20 63 6f 6e 73 6f 6c 65 00 00 00 00 00 00 00 00 ┆w1; ! abs ref console ┆
0x46400…46406 (562,) (0x324,0x8c9)
0x46406…46420 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 ┆ name (call) ! ┆
0x46420…46440 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 74 75 72 6e 3a ┆ ! return:┆
0x46440…46460 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x46460…4647e 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 ┆! ! >0 ┆
0x4647e…46484 (0x324,0x8ca)
0x46484…464a0 61 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 ┆abs ref transp. corout ┆
0x464a0…464c0 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 20 21 ┆ ! !┆
0x464c0…464e0 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 20 ┆ =0 not found ┆
0x464e0…464fc 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 ┆ ! ┆
0x464fc…46502 (0x324,0x8cb)
0x46502…46520 20 20 20 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 75 ┆ ! <0 removed but signed u┆
0x46520…46540 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 20 ┆p by operator ! ┆
0x46540…46560 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 28 ┆ w2); ! abs ref device name (┆
0x46560…4657a 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 ┆call) ! pro┆
0x4657a…46580 (0x324,0x8cc)
0x46580…465a0 63 65 64 75 72 65 20 6f 70 65 72 61 74 6f 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2e ┆cedure operator (.┆
0x465a0…465c0 77 33 2e 29 3b 20 20 21 20 72 65 74 75 72 6e 20 28 70 73 65 75 64 6f 20 63 61 6c 6c 29 20 20 20 ┆w3.); ! return (pseudo call) ┆
0x465c0…465e0 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 72 65 20 67 ┆ ! procedure g┆
0x465e0…46600 65 74 5f 62 6c 6f 63 6b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 00 00 00 00 00 00 00 00 ┆et_block ( ┆
0x46600…46606 (563,) (0x324,0x8cd)
0x46606…46620 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 ┆.w3.; ! abs ref curr cor┆
0x46620…46640 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 20 ┆out (return) ! ┆
0x46640…46660 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 72 ┆ w0; ! max no of hwor┆
0x46660…4667e 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 ┆ds in block (call) ! ┆
0x4667e…46684 (0x324,0x8ce)
0x46684…466a0 20 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 ┆ ! no of ┆
0x466a0…466c0 68 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 20 ┆hword in block (return) ┆
0x466c0…466e0 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 20 ┆ ! w1; ! abs ┆
0x466e0…466fc 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 ┆ref buffer first ┆
0x466fc…46702 (0x324,0x8cf)
0x46702…46720 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); ┆
0x46720…46740 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 20 ┆ ! status (return) ┆
0x46740…46760 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 6f ┆ ! procedure put_blo┆
0x46760…4677a 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 ┆ck (.w3.; ┆
0x4677a…46780 (0x324,0x8d0)
0x46780…467a0 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 20 29 20 ┆! abs ref curr corout (return ) ┆
0x467a0…467c0 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 3b 20 20 ┆ ! w0; ┆
0x467c0…467e0 20 20 21 20 6e 6f 20 6f 66 20 68 77 6f 72 64 73 20 69 6e 20 62 6c 6f 63 6b 20 28 63 61 6c 6c 29 ┆ ! no of hwords in block (call)┆
0x467e0…46800 20 20 20 20 20 20 20 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ ! ┆
0x46800…46806 (564,) (0x324,0x8d1)
0x46806…46820 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 ┆ ! no of hwords┆
0x46820…46840 20 61 63 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 20 ┆ actually put (return) ! ┆
0x46840…46860 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 75 ┆ w1; ! abs ref bu┆
0x46860…4687e 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 ┆ffer (call) !┆
0x4687e…46884 (0x324,0x8d2)
0x46884…468a0 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 73 74 ┆ w2); ! st┆
0x468a0…468c0 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 20 20 20 20 20 20 20 ┆atus (return) ┆
0x468c0…468e0 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 20 ┆ ! procedure closebs ┆
0x468e0…468fc 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 ┆ (.w3.); ! abs ref┆
0x468fc…46902 (0x324,0x8d3)
0x46902…46920 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 ┆ curr corout (return) ┆
0x46920…46940 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 20 ┆ ! procedure openbs ┆
0x46940…46960 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 6f ┆ (.w3.); ! abs ref curr co┆
0x46960…4697a 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 ┆rout (return) ! ┆
0x4697a…46980 (0x324,0x8d4)
0x46980…469a0 0a 20 20 70 72 6f 63 65 64 75 72 65 20 68 6f 6c 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ procedure hold ┆
0x469a0…469c0 28 2e 77 33 2e 20 3b 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 ┆(.w3. ; ! abs ref curr corout (┆
0x469c0…469e0 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 20 20 20 20 20 20 ┆return) ! ┆
0x469e0…46a00 20 20 20 20 77 30 29 3b 20 20 20 21 20 69 66 3c 3e 30 20 74 68 65 6e 20 00 00 00 00 00 00 00 00 ┆ w0); ! if<>0 then ┆
0x46a00…46a06 (565,) (0x324,0x8d5)
0x46a06…46a20 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 ┆alternate return used if t┆
0x46a20…46a40 63 68 6f 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 70 ┆chold = 0 ! procedure oproutp┆
0x46a40…46a60 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 20 ┆ut (.w3.; ! abs ┆
0x46a60…46a7e 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 ┆ref curr corout (return) ┆
0x46a7e…46a84 (0x324,0x8d6)
0x46a84…46aa0 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 ; ┆
0x46aa0…46ac0 20 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 20 ┆ ! call ┆
0x46ac0…46ae0 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 20 ┆ ! ┆
0x46ae0…46afc 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 ┆ ! = 1 pending output ┆
0x46afc…46b02 (0x324,0x8d7)
0x46b02…46b20 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 ┆ ! ┆
0x46b20…46b40 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 20 ┆ ! = 2 error output ┆
0x46b40…46b60 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 ┆ ! ┆
0x46b60…46b7a 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 ┆ ! return: un┆
0x46b7a…46b80 (0x324,0x8d8)
0x46b80…46ba0 64 65 66 69 6e 65 64 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 ┆defined ! ┆
0x46ba0…46bc0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 20 3b 20 20 20 21 20 63 61 6c 6c 3a 20 74 65 ┆ w1 ; ! call: te┆
0x46bc0…46be0 78 74 20 63 6f 64 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 21 ┆xt code !┆
0x46be0…46c00 0a 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 ┆ ┆
0x46c00…46c06 (566,) (0x324,0x8d9)
0x46c06…46c20 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 ┆! return: undefined ┆
0x46c20…46c40 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 ┆ ! ┆
0x46c40…46c60 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 20 ┆ w2); ! call: status ┆
0x46c60…46c7e 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 ┆ ! ┆
0x46c7e…46c84 (0x324,0x8da)
0x46c84…46ca0 20 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 ┆ ! return: consol┆
0x46ca0…46cc0 65 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 72 ┆e status ! pr┆
0x46cc0…46ce0 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 20 ┆ocedure updatetransport ┆
0x46ce0…46cfc 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 ┆ (.w3.); ! abs ref cur┆
0x46cfc…46d02 (0x324,0x8db)
0x46d02…46d20 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 ┆r corout (return) ! ┆
0x46d20…46d40 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 0a ┆ procedure check_devicestatus ┆
0x46d40…46d60 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 66 ┆ (.w3.; ! abs ref┆
0x46d60…46d7a 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 ┆ curr corout (return) ┆
0x46d7a…46d80 (0x324,0x8dc)
0x46d80…46da0 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 3b 20 20 20 20 21 ┆ ! w0; !┆
0x46da0…46dc0 20 61 6e 73 77 65 72 20 72 65 73 75 6c 74 20 66 72 6f 6d 20 6d 6f 6e 69 74 6f 72 20 28 63 61 6c ┆ answer result from monitor (cal┆
0x46dc0…46de0 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 20 77 31 3b 20 20 20 ┆l) ! w1; ┆
0x46de0…46e00 20 21 20 61 62 73 20 72 65 66 20 61 6e 73 77 65 72 20 28 63 61 6c 6c 29 00 00 00 00 00 00 00 00 ┆ ! abs ref answer (call) ┆
0x46e00…46e06 (567,) (0x324,0x8dd)
0x46e06…46e20 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 ┆ ! ┆
0x46e20…46e40 20 20 20 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 74 ┆ w2); ! modified stat┆
0x46e40…46e60 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 20 ┆us (algol manner) (return) ! ┆
0x46e60…46e7e 70 72 6f 63 65 64 75 72 65 20 63 6f 6e 6e 5f 63 73 70 0a 20 20 20 20 20 20 20 20 20 20 20 ┆procedure conn_csp ┆
0x46e7e…46e84 (0x324,0x8de)
0x46e84…46ea0 20 20 20 28 2e 77 33 2e 3b 20 20 21 20 6d 61 6b 65 73 20 61 20 63 6f 6e 6e 65 63 74 ┆ (.w3.; ! makes a connect┆
0x46ea0…46ec0 69 6f 6e 20 66 72 6f 6d 20 61 20 63 73 70 20 70 72 69 6e 74 65 72 20 70 72 6f 63 65 73 73 0a 20 ┆ion from a csp printer process ┆
0x46ec0…46ee0 20 20 20 20 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 73 70 ┆ to the sp┆
0x46ee0…46efc 65 63 69 66 69 65 64 20 70 72 69 6e 74 65 72 20 21 0a 20 20 20 20 20 20 20 20 20 20 ┆ecified printer ! ┆
0x46efc…46f02 (0x324,0x8df)
0x46f02…46f20 20 20 20 20 20 20 77 30 20 3b 20 20 21 20 72 65 73 75 6c 74 20 28 72 65 74 75 72 6e 29 20 ┆ w0 ; ! result (return) ┆
0x46f20…46f40 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 32 29 3b 20 20 21 20 70 72 6f 63 65 73 ┆! w2); ! proces┆
0x46f40…46f60 73 20 64 65 73 63 72 69 70 74 69 6f 6e 20 61 64 64 72 65 73 73 20 21 0a 0a 20 20 70 72 6f 63 65 ┆s description address ! proce┆
0x46f60…46f7a 64 75 72 65 20 64 69 73 63 6f 6e 6e 5f 63 73 70 0a 20 20 20 20 20 20 20 20 20 ┆dure disconn_csp ┆
0x46f7a…46f80 (0x324,0x8e0)
0x46f80…46fa0 20 20 20 20 20 28 2e 77 33 2e 29 3b 20 21 20 64 69 73 63 6f 6e 6e 65 63 74 73 20 74 68 65 20 70 ┆ (.w3.); ! disconnects the p┆
0x46fa0…46fc0 72 69 6e 74 65 72 20 66 72 6f 6d 20 74 68 65 20 70 72 69 6e 74 65 72 20 70 72 6f 63 65 73 73 20 ┆rinter from the printer process ┆
0x46fc0…46fe0 21 0a 0a 0a 20 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 ┆! procedure prcause (.w3.;w0┆
0x46fe0…47000 29 3b 0a 0a 20 20 70 72 6f 63 65 64 75 72 65 20 70 72 6c 69 73 74 69 64 00 00 00 00 00 00 00 00 ┆); procedure prlistid ┆
0x47000…47006 (568,) (0x324,0x8e1)
0x47006…47020 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 ┆ (.w3.; ! ┆
0x47020…47040 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) ┆
0x47040…47060 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 20 20 20 ┆ ! w0); ┆
0x47060…4707e 21 20 6e 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 65 ┆! no of halfwords in block (re┆
0x4707e…47084 (0x324,0x8e2)
0x47084…470a0 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 ┆turn) ! procedure pr┆
0x470a0…470c0 6c 69 73 74 64 61 74 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2e 77 33 2e 3b 20 ┆listdate (.w3.; ┆
0x470c0…470e0 21 20 61 62 73 20 72 65 66 20 63 75 72 72 20 63 6f 72 6f 75 74 28 72 65 74 75 72 6e 29 20 20 20 ┆! abs ref curr corout(return) ┆
0x470e0…470fc 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 ┆ ! ┆
0x470fc…47102 (0x324,0x8e3)
0x47102…47120 20 77 30 29 3b 20 21 20 6e 6f 20 6f 66 20 68 61 6c 66 77 6f 72 64 73 20 69 6e 20 62 6c 6f ┆ w0); ! no of halfwords in blo┆
0x47120…47140 63 6b 20 28 72 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 ┆ck (return) ! procedure ┆
0x47140…47160 70 72 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 74 75 ┆pr (.w3.); ! retu┆
0x47160…4717a 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 ┆rn (pseudo call) ┆
0x4717a…47180 (0x324,0x8e4)
0x47180…471a0 20 20 20 20 20 20 20 20 20 21 0a 0a 20 20 70 72 6f 63 65 64 75 72 65 20 70 63 0a 20 20 20 20 20 ┆ ! procedure pc ┆
0x471a0…471c0 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 61 6c 6c 20 ┆ (.w3.); ! pseudo call ┆
0x471c0…471e0 20 20 20 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 70 ┆ ! p┆
0x471e0…47200 72 6f 63 65 64 75 72 65 20 72 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆rocedure rd ┆
0x47200…47206 (569,) (0x324,0x8e5)
0x47206…47220 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 ┆
0x47220…47240 20 20 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┆
0x47240…47260 72 6f 63 65 64 75 72 65 20 74 77 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2e 77 33 2e 29 ┆rocedure tw (.w3.)┆
0x47260…4727e 3b 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 ┆; ! pseudo call ┆
0x4727e…47284 (0x324,0x8e6)
0x47284…472a0 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┆
0x472a0…472c0 20 67 65 74 6c 69 6e 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2e 77 33 2e 3b 0a 20 ┆ getlines (.w3.; ┆
0x472c0…472e0 20 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 73 69 ┆ w0 ; ! return: si┆
0x472e0…472fc 7a 65 20 6f 66 20 6f 75 74 70 75 74 20 62 75 66 66 65 72 20 21 0a 20 20 20 20 20 20 ┆ze of output buffer ! ┆
0x472fc…47302 (0x324,0x8e7)
0x47302…47320 20 20 20 20 20 20 20 20 20 20 77 32 29 3b 20 21 20 72 65 74 75 72 6e 3a 20 73 74 61 74 75 ┆ w2); ! return: statu┆
0x47320…47340 73 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 72 65 20 ┆s ! procedure ┆
0x47340…47360 63 6f 6e 6e 65 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 ┆connect_3270 (.w3.┆
0x47360…4737a 29 3b 20 20 21 20 63 6f 6e 6e 65 63 74 27 73 20 61 6e 64 20 72 65 73 65 72 76 ┆); ! connect's and reserv┆
0x4737a…47380 (0x324,0x8e8)
0x47380…473a0 65 73 20 70 72 69 6e 74 65 72 20 21 0a 0a 0a 20 20 70 72 6f 63 65 64 75 72 65 20 64 69 73 63 5f ┆es printer ! procedure disc_┆
0x473a0…473c0 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 20 64 69 ┆3270 (.w3.); ! di┆
0x473c0…473e0 73 63 6f 6e 6e 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 ┆sconnect's and releases printer ┆
0x473e0…47400 21 0a 0a 0a 0a 20 20 0a 0a 20 20 70 72 6f 63 65 64 75 72 65 20 66 70 72 00 00 00 00 00 00 00 00 ┆! procedure fpr ┆
0x47400…47406 (570,) (0x324,0x8e9)
0x47406…47420 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 ┆ (.w3.); ! ┆
0x47420…47440 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 20 20 20 20 20 20 ┆pseudo call ┆
0x47440…47460 20 20 20 20 20 20 20 21 0a 0a 20 20 70 72 6f 63 65 64 75 72 65 20 66 70 72 5f 69 6e 0a 20 20 20 ┆ ! procedure fpr_in ┆
0x47460…4747e 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┆
0x4747e…47484 (0x324,0x8ea)
0x47484…474a0 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 20 20 ┆all ┆
0x474a0…474c0 20 20 20 21 0a 0a 0a 0a 0a 20 20 6c 61 62 65 6c 20 63 65 6e 74 72 61 6c 5f 77 61 69 74 2c 77 61 ┆ ! label central_wait,wa┆
0x474c0…474e0 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 2c 69 6e 69 74 ┆it_next,coru_found,activate,init┆
0x474e0…474fc 69 61 6c 69 7a 65 2c 0a 20 20 20 20 20 20 20 20 69 6e 74 65 72 72 75 70 74 2c 75 6e ┆ialize, interrupt,un┆
0x474fc…47502 (0x324,0x8eb)
0x47502…47520 69 6e 3b 0a 0a 20 20 72 65 63 6f 72 64 20 63 6f 6e 74 72 6f 6c 6d 65 73 73 0a 20 20 20 20 ┆in; record controlmess ┆
0x47520…47540 20 20 20 20 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 ┆ (ref cm_next,cm_prev,cm_r┆
0x47540…47560 65 63 65 69 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 ┆eceiver,cm_sender; b┆
0x47560…4757a 79 74 65 20 63 6d 5f 6f 70 2c 63 6d 5f 6d 6f 64 65 29 3b 0a 0a 20 20 72 65 63 ┆yte cm_op,cm_mode); rec┆
0x4757a…47580 (0x324,0x8ec)
0x47580…475a0 6f 72 64 20 63 6f 72 6f 75 74 69 6e 65 0a 20 20 20 20 20 20 20 20 20 20 20 28 72 65 66 20 63 5f ┆ord coroutine (ref c_┆
0x475a0…475c0 6e 65 78 74 2c 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 ┆next,c_prev,c_mbuf; ┆
0x475c0…475e0 77 6f 72 64 20 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 ┆word c_w0,c_w1,c_w2; ┆
0x475e0…47600 20 72 65 66 20 20 63 5f 69 63 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ ref c_ic; ┆
0x47600…47606 (571,) (0x324,0x8ed)
0x47606…47620 77 6f 72 64 20 63 5f 6e 72 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 72 65 66 ┆word c_nr; ref┆
0x47620…47640 20 63 5f 73 74 61 63 6b 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 61 72 72 61 79 20 28 31 3a 31 ┆ c_stack; array (1:1┆
0x47640…47660 30 29 20 63 5f 73 74 61 63 6b 66 69 6c 6c 20 6f 66 20 77 6f 72 64 29 3b 0a 0a 20 20 72 65 63 6f ┆0) c_stackfill of word); reco┆
0x47660…4767e 72 64 20 74 72 61 6e 73 70 63 6f 72 6f 75 74 0a 20 20 20 20 20 20 20 20 20 20 20 28 61 72 ┆rd transpcorout (ar┆
0x4767e…47684 (0x324,0x8ee)
0x47684…476a0 72 61 79 28 31 3a 21 6c 65 6e 67 74 68 28 63 6f 72 6f 75 74 69 6e 65 29 29 20 74 63 ┆ray(1:!length(coroutine)) tc┆
0x476a0…476c0 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 72 65 66 20 74 ┆_fill of byte; ref t┆
0x476c0…476e0 63 5f 6e 65 78 74 74 63 3b 20 21 20 73 74 61 74 69 63 20 6c 69 6e 6b 20 74 6f 20 6e 65 78 74 20 ┆c_nexttc; ! static link to next ┆
0x476e0…476fc 74 72 61 6e 73 70 6f 72 74 20 63 6f 72 6f 75 74 69 6e 65 20 21 0a 20 20 20 20 20 20 ┆transport coroutine ! ┆
0x476fc…47702 (0x324,0x8ef)
0x47702…47720 20 20 20 20 20 20 62 79 74 65 20 74 63 5f 63 72 65 61 74 65 64 2c 20 21 20 3d 20 30 20 69 ┆ byte tc_created, ! = 0 i┆
0x47720…47740 66 20 74 68 65 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 ┆f the coroutine is idle ! ┆
0x47740…47760 20 20 20 20 20 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 ┆ tc_kind; ! kind of sl┆
0x47760…4777a 6f 77 20 64 65 76 69 63 65 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 6f ┆ow device ! wo┆
0x4777a…47780 (0x324,0x8f0)
0x47780…477a0 72 64 20 74 63 5f 68 6f 6c 64 2c 74 63 5f 68 65 6c 64 3b 20 21 20 3c 3e 30 20 69 66 20 63 6f 72 ┆rd tc_hold,tc_held; ! <>0 if cor┆
0x477a0…477c0 6f 75 74 69 6e 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 ┆outine is waiting for operator c┆
0x477c0…477e0 6d 64 2e 20 21 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 ┆md. ! ref tc_nexttr,┆
0x477e0…47800 74 63 5f 70 72 65 76 74 72 3b 20 20 21 20 71 75 65 75 65 20 68 65 61 64 00 00 00 00 00 00 00 00 ┆tc_prevtr; ! queue head ┆
0x47800…47806 (572,) (0x324,0x8f1)
0x47806…47820 20 6f 66 20 74 72 61 6e 73 70 6f 72 74 20 71 75 65 75 65 20 21 0a 20 20 20 20 ┆ of transport queue ! ┆
0x47820…47840 20 20 20 20 20 20 20 20 72 65 66 20 74 63 5f 62 75 66 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ref tc_buf; ┆
0x47840…47860 77 6f 72 64 20 74 63 5f 62 75 66 73 69 7a 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 6f 72 ┆word tc_bufsize; wor┆
0x47860…4787e 64 20 74 63 5f 68 6f 73 74 6e 6f 2c 74 63 5f 68 6f 73 74 69 64 3b 0a 20 20 20 20 20 20 20 ┆d tc_hostno,tc_hostid; ┆
0x4787e…47884 (0x324,0x8f2)
0x47884…478a0 20 20 20 20 20 77 6f 72 64 20 74 63 5f 64 65 76 6e 6f 3b 20 21 20 64 65 76 69 63 65 ┆ word tc_devno; ! device┆
0x478a0…478c0 20 6e 6f 2e 20 2d 20 6f 6e 6c 79 20 75 73 65 64 20 62 79 20 63 73 70 20 63 6f 6e 6e 2e 20 64 65 ┆ no. - only used by csp conn. de┆
0x478c0…478e0 76 69 63 65 73 20 21 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 ┆vices ! text(11) tc_┆
0x478e0…478fc 64 65 76 6e 61 6d 65 3b 20 21 20 64 65 76 69 63 65 20 6e 61 6d 65 20 28 20 64 65 66 ┆devname; ! device name ( def┆
0x478fc…47902 (0x324,0x8f3)
0x47902…47920 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 20 20 ┆ined in entry ) ! ┆
0x47920…47940 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 66 20 ┆text(14) tc_name; ! name of ┆
0x47940…47960 65 78 74 65 72 6e 61 6c 20 70 72 6f 63 65 73 73 20 20 20 20 20 20 20 20 20 20 20 20 20 21 0a 20 ┆external process ! ┆
0x47960…4797a 20 20 20 20 20 20 20 20 20 20 20 74 65 78 74 28 31 34 29 20 74 63 5f 63 6f 6e ┆ text(14) tc_con┆
0x4797a…47980 (0x324,0x8f4)
0x47980…479a0 73 6f 6c 65 3b 20 21 20 70 72 6f 63 65 73 73 20 6e 61 6d 65 20 6f 66 20 6f 70 72 2e 20 63 6f 6e ┆sole; ! process name of opr. con┆
0x479a0…479c0 73 6f 6c 65 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 6f 72 64 20 74 63 5f 6f 68 6e 6f 2c ┆sole ! word tc_ohno,┆
0x479c0…479e0 20 21 20 6f 70 65 72 61 74 6f 72 20 68 6f 73 74 20 6e 6f 20 73 70 65 63 2e 20 21 0a 20 20 20 20 ┆ ! operator host no spec. ! ┆
0x479e0…47a00 20 20 20 20 20 20 20 20 20 20 20 20 20 74 63 5f 6f 68 69 64 3b 20 21 20 00 00 00 00 00 00 00 00 ┆ tc_ohid; ! ┆
0x47a00…47a06 (573,) (0x324,0x8f5)
0x47a06…47a20 6f 70 65 72 61 74 6f 72 20 68 6f 73 74 20 69 64 20 73 70 65 63 2e 20 21 0a 20 ┆operator host id spec. ! ┆
0x47a20…47a40 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 3b 20 ┆ text(11) tc_devcons; ┆
0x47a40…47a60 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 69 66 20 72 65 6d ┆! device name of operator if rem┆
0x47a60…47a7e 6f 74 65 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 6f 72 64 20 74 63 5f 6f 69 6e 74 ┆ote ! word tc_oint┆
0x47a7e…47a84 (0x324,0x8f6)
0x47a84…47aa0 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 ┆ervent; ! = 0 no interventio┆
0x47aa0…47ac0 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 20 20 ┆n from operator or appl. ! ┆
0x47ac0…47ae0 20 20 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 3c 3e 30 20 ┆ ! <>0 ┆
0x47ae0…47afc 3c 66 72 65 65 20 70 61 72 61 6d 3e 20 73 68 69 66 74 20 20 2b 3c 63 6f 6d 6d 61 6e ┆<free param> shift +<comman┆
0x47afc…47b02 (0x324,0x8f7)
0x47b02…47b20 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 74 65 ┆d> ! word tc_ainte┆
0x47b20…47b40 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 72 6f ┆rvent; ! = 0 no intervention fro┆
0x47b40…47b60 6d 20 61 70 70 6c 2e 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 ┆m appl. ! ┆
0x47b60…47b7a 20 20 20 20 20 20 20 20 20 20 21 20 3c 3e 20 30 20 69 6e 74 65 72 76 65 6e 74 ┆ ! <> 0 intervent┆
0x47b7a…47b80 (0x324,0x8f8)
0x47b80…47ba0 69 6f 6e 20 66 72 6f 6d 20 61 70 70 6c 2e 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 79 74 ┆ion from appl. ! byt┆
0x47ba0…47bc0 65 20 74 63 5f 73 74 61 74 65 2c 74 63 5f 63 61 75 73 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆e tc_state,tc_cause; ┆
0x47bc0…47be0 20 77 6f 72 64 20 74 63 5f 73 74 61 74 75 73 3b 0a 20 20 20 20 20 20 20 20 20 20 77 6f 72 64 20 ┆ word tc_status; word ┆
0x47be0…47c00 74 63 5f 72 65 74 72 79 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 79 00 00 00 00 00 00 00 00 ┆tc_retry; by ┆
0x47c00…47c06 (574,) (0x324,0x8f9)
0x47c06…47c20 74 65 20 74 63 5f 6d 6f 64 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 6f ┆te tc_mode; wo┆
0x47c20…47c40 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 74 63 ┆rd tc_csegno; ref tc┆
0x47c40…47c60 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 63 5f 62 73 6c 2c ┆_bsbuf; word tc_bsl,┆
0x47c60…47c7e 74 63 5f 62 73 75 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 74 65 78 74 28 31 34 29 20 74 ┆tc_bsu; text(14) t┆
0x47c7e…47c84 (0x324,0x8fa)
0x47c84…47ca0 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 74 63 ┆c_bsname; word tc┆
0x47ca0…47cc0 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 72 69 ┆_areaproc; ! area process descri┆
0x47cc0…47ce0 70 74 69 6f 6e 20 61 64 64 72 65 73 73 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 74 65 78 74 ┆ption address ! text┆
0x47ce0…47cfc 28 31 31 29 20 74 63 5f 71 67 72 6f 75 70 2c 74 63 5f 71 6e 61 6d 65 3b 0a 20 20 20 ┆(11) tc_qgroup,tc_qname; ┆
0x47cfc…47d02 (0x324,0x8fb)
0x47d02…47d20 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 20 20 ┆ word tc_transno; ┆
0x47d20…47d40 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 6c 73 ┆ word tc_workffs, tc_worknls┆
0x47d40…47d60 3b 0a 20 20 20 20 20 20 20 20 20 20 20 64 6f 75 62 6c 65 20 74 63 5f 62 73 70 74 72 3b 0a 20 20 ┆; double tc_bsptr; ┆
0x47d60…47d7a 20 20 20 20 20 20 20 20 20 20 72 65 66 20 74 63 5f 73 61 76 65 69 63 29 3b 0a ┆ ref tc_saveic); ┆
0x47d7a…47d80 (0x324,0x8fc)
0x47d80…47da0 0a 20 72 65 63 6f 72 64 20 70 72 63 6f 72 6f 75 74 0a 20 20 20 20 20 20 20 20 20 20 20 28 61 72 ┆ record prcorout (ar┆
0x47da0…47dc0 72 61 79 20 28 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 72 ┆ray (1:!length(transpcorout)) pr┆
0x47dc0…47de0 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 20 ┆_fill of byte; word ┆
0x47de0…47e00 70 72 5f 69 6e 70 73 74 61 74 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆pr_inpstate; ┆
0x47e00…47e06 (575,) (0x324,0x8fd)
0x47e06…47e20 20 72 65 66 20 70 72 5f 71 75 65 72 65 66 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆ ref pr_queref; ┆
0x47e20…47e40 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 72 5f ┆ word pr_headtrail,pr_drain,pr_┆
0x47e40…47e60 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 5f 70 61 72 74 69 ┆select; word pr_parti┆
0x47e60…47e7e 61 6c 3b 0a 20 20 20 20 20 20 20 20 20 20 20 64 6f 75 62 6c 65 20 70 72 5f 77 6f 72 6b 70 ┆al; double pr_workp┆
0x47e7e…47e84 (0x324,0x8fe)
0x47e84…47ea0 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 63 6f ┆tr,pr_workstartptr); reco┆
0x47ea0…47ec0 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 31 3a ┆rd pccorout (array(1:┆
0x47ec0…47ee0 21 6c 65 6e 67 74 68 28 74 72 61 6e 73 70 63 6f 72 6f 75 74 29 29 20 70 63 5f 66 69 6c 6c 20 6f ┆!length(transpcorout)) pc_fill o┆
0x47ee0…47efc 66 20 62 79 74 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 6f 72 64 20 70 63 5f ┆f byte; word pc_┆
0x47efc…47f02 (0x324,0x8ff)
0x47f02…47f20 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 74 0a ┆inpstate); record rdcorout ┆
0x47f20…47f40 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 61 6e ┆ (array(1:!length(tran┆
0x47f40…47f60 73 70 63 6f 72 6f 75 74 29 29 20 72 64 5f 66 69 6c 6c 20 6f 66 20 62 79 74 65 3b 0a 20 20 20 20 ┆spcorout)) rd_fill of byte; ┆
0x47f60…47f7a 20 20 20 20 20 20 20 20 77 6f 72 64 20 72 64 5f 69 6e 70 73 74 61 74 65 29 3b ┆ word rd_inpstate);┆
0x47f7a…47f80 (0x324,0x900)
0x47f80…47fa0 0a 0a 20 20 72 65 63 6f 72 64 20 74 77 63 6f 72 6f 75 74 0a 20 20 20 20 20 20 20 20 20 20 20 28 ┆ record twcorout (┆
0x47fa0…47fc0 61 72 72 61 79 28 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 74 ┆array(1:!length(transpcorout)) t┆
0x47fc0…47fe0 77 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 ┆w_fill of byte; word┆
0x47fe0…48000 20 74 77 5f 69 6e 70 73 74 61 74 65 29 3b 0a 0a 0a 20 20 72 65 63 6f 72 00 00 00 00 00 00 00 00 ┆ tw_inpstate); recor ┆
0x48000…48006 (576,) (0x324,0x901)
0x48006…48020 64 20 66 70 72 69 6e 63 6f 72 6f 75 74 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆d fprincorout ┆
0x48020…48040 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 2d 20 ┆ ! coroutin describing gac- ┆
0x48040…48060 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 20 20 20 20 ┆ ! ┆
0x48060…4807e 20 20 20 20 20 20 20 20 20 20 20 21 20 70 72 6f 63 65 73 73 65 73 20 61 6e 64 20 6c 69 6e ┆ ! processes and lin┆
0x4807e…48084 (0x324,0x902)
0x48084…480a0 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 20 20 ┆ks and ! ┆
0x480a0…480c0 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 69 6e ┆ ! handlin┆
0x480c0…480e0 67 20 73 74 61 74 75 73 20 28 69 6e 70 75 74 20 6f 70 27 73 20 21 0a 20 20 20 20 20 20 20 20 20 ┆g status (input op's ! ┆
0x480e0…480fc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x480fc…48102 (0x324,0x903)
0x48102…48120 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 75 74 ┆ ! for the output (fpr) corout┆
0x48120…48140 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 6e 67 ┆s! (array (1:!leng┆
0x48140…48160 74 68 28 63 6f 72 6f 75 74 69 6e 65 29 29 20 66 70 72 69 6e 66 69 6c 6c 20 6f 66 20 62 79 74 65 ┆th(coroutine)) fprinfill of byte┆
0x48160…4817a 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65 66 20 20 20 20 20 20 20 ┆; ref ┆
0x4817a…48180 (0x324,0x904)
0x48180…481a0 66 70 72 5f 6e 65 78 74 2c 20 20 20 20 20 21 20 77 68 65 6e 20 77 61 69 74 69 6e 67 20 66 6f 72 ┆fpr_next, ! when waiting for┆
0x481a0…481c0 20 73 74 61 74 75 73 20 74 68 65 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ status the ! ┆
0x481c0…481e0 20 20 20 20 20 20 66 70 72 5f 70 72 65 76 69 6f 75 73 3b 20 21 20 66 70 72 20 69 73 20 6c 69 6e ┆ fpr_previous; ! fpr is lin┆
0x481e0…48200 6b 65 64 20 75 70 20 74 6f 20 66 70 72 69 6e 20 20 20 21 0a 20 20 20 20 00 00 00 00 00 00 00 00 ┆ked up to fprin ! ┆
0x48200…48206 (577,) (0x324,0x905)
0x48206…48220 20 20 20 20 20 20 20 20 20 20 74 65 78 74 20 28 31 31 29 20 66 70 72 5f 67 61 ┆ text (11) fpr_ga┆
0x48220…48240 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 69 63 ┆cout, ! name of gac(out)-devic┆
0x48240…48260 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 20 20 20 20 20 20 ┆e ! ┆
0x48260…4827e 66 70 72 5f 67 61 63 69 6e 3b 20 20 20 20 21 20 6e 61 6d 65 20 6f 66 20 67 61 63 28 69 6e ┆fpr_gacin; ! name of gac(in┆
0x4827e…48284 (0x324,0x906)
0x48284…482a0 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 20 20 ┆)-device ! ┆
0x482a0…482c0 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 6d 65 ┆ text (14) fpr_procout, ! name┆
0x482c0…482e0 20 6f 66 20 6c 69 6e 6b 28 6f 75 74 29 2d 70 72 6f 63 65 73 73 20 20 20 21 0a 20 20 20 20 20 20 ┆ of link(out)-process ! ┆
0x482e0…482fc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 70 72 5f 70 72 6f 63 69 6e ┆ fpr_procin┆
0x482fc…48302 (0x324,0x907)
0x48302…48320 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 73 73 ┆; ! name of link(in)-process┆
0x48320…48340 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 66 70 ┆ ! word fp┆
0x48340…48360 72 5f 68 6f 73 74 69 64 2c 20 20 20 21 20 68 6f 73 74 69 64 20 66 6f 72 20 67 61 63 20 70 72 6f ┆r_hostid, ! hostid for gac pro┆
0x48360…4837a 63 65 73 73 20 20 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆cess ! ┆
0x4837a…48380 (0x324,0x908)
0x48380…483a0 20 20 20 20 20 20 20 20 20 20 66 70 72 5f 77 61 69 74 2c 20 20 20 20 20 21 20 6e 6f 20 6f 66 20 ┆ fpr_wait, ! no of ┆
0x483a0…483c0 63 6f 72 6f 75 74 69 6e 65 73 20 77 61 69 74 69 6e 67 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 ┆coroutines waiting ! ┆
0x483c0…483e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 70 72 5f 63 6f 75 6e 74 3b 20 20 20 20 21 20 ┆ fpr_count; ! ┆
0x483e0…48400 6e 6f 20 6f 66 20 63 6f 72 6f 75 74 69 6e 65 73 20 68 61 6e 64 6c 69 6e 00 00 00 00 00 00 00 00 ┆no of coroutines handlin ┆
0x48400…48406 (578,) (0x324,0x909)
0x48406…48420 67 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 ┆g ! ┆
0x48420…48440 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 69 61 ┆ ! printers via┆
0x48440…48460 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 20 20 20 20 20 20 ┆ this gac(pair) ! ┆
0x48460…4847e 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 77 68 65 6e ┆ ! when┆
0x4847e…48484 (0x324,0x90a)
0x48484…484a0 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 20 20 ┆ zero the process may ! ┆
0x484a0…484c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x484c0…484e0 20 20 20 20 21 20 62 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 ┆ ! be released/possibly remov┆
0x484e0…484fc 65 64 21 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 6f 72 64 20 20 20 20 20 ┆ed! word ┆
0x484fc…48502 (0x324,0x90b)
0x48502…48520 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 74 20 ┆ fpr_indata, ! status input ┆
0x48520…48540 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 20 20 ┆buffer ! ┆
0x48540…48560 20 20 20 20 20 20 20 20 20 66 70 72 5f 64 61 74 31 29 3b 20 20 20 20 21 20 20 20 22 20 20 20 20 ┆ fpr_dat1); ! " ┆
0x48560…4857a 20 2d 2d 20 20 20 20 20 22 20 20 20 20 20 20 20 20 20 20 20 20 21 0a 0a 0a 20 ┆ -- " ! ┆
0x4857a…48580 (0x324,0x90c)
0x48580…485a0 20 72 65 63 6f 72 64 20 66 70 72 63 6f 72 6f 75 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 ┆ record fprcorout (┆
0x485a0…485c0 61 72 72 61 79 20 28 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 ┆array (1:!length(transpcorout)) ┆
0x485c0…485e0 66 70 72 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 20 20 ┆fpr_fill of byte; ┆
0x485e0…48600 77 6f 72 64 20 66 70 72 5f 69 6e 70 73 74 61 74 65 3b 0a 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆word fpr_inpstate; ┆
0x48600…48606 (579,) (0x324,0x90d)
0x48606…48620 20 20 20 20 20 20 20 20 20 77 6f 72 64 20 66 70 72 5f 74 69 6d 65 72 3b 0a 20 ┆ word fpr_timer; ┆
0x48620…48640 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 6b 3b ┆ word fpr_usedblock;┆
0x48640…48660 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 72 74 69 61 6c 3b ┆ word fpr_partial;┆
0x48660…4867e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 6f 72 64 20 66 70 72 5f 73 70 61 72 74 69 ┆ word fpr_sparti┆
0x4867e…48684 (0x324,0x90e)
0x48684…486a0 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 63 6f ┆al; ref fpr_co┆
0x486a0…486c0 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 74 20 ┆nvert; ! conversion table start ┆
0x486c0…486e0 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 6f 72 64 20 20 20 66 70 72 5f 73 74 61 72 74 ┆! word fpr_start┆
0x486e0…486fc 73 65 67 6d 65 6e 74 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 6f 75 62 6c ┆segment; doubl┆
0x486fc…48702 (0x324,0x90f)
0x48702…48720 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 77 6f ┆e fpr_sbsptr; wo┆
0x48720…48740 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 20 22 ┆rd fpr_llcudev; ! logical "┆
0x48740…48760 6c 69 6e 65 2c 63 75 2c 64 65 76 69 63 65 22 20 20 20 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 ┆line,cu,device" ! ┆
0x48760…4877a 20 20 20 20 20 20 77 6f 72 64 20 66 70 72 5f 70 6c 63 75 64 65 76 3b 20 20 20 ┆ word fpr_plcudev; ┆
0x4877a…48780 (0x324,0x910)
0x48780…487a0 20 20 20 21 20 70 68 79 73 69 63 61 6c 20 22 6c 69 6e 65 2c 63 75 2c 64 65 76 69 63 65 22 20 20 ┆ ! physical "line,cu,device" ┆
0x487a0…487c0 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 66 70 72 5f 74 72 61 ┆ ! word fpr_tra┆
0x487c0…487e0 6e 73 69 64 3b 20 20 20 20 20 20 21 20 70 72 69 6e 74 20 68 65 61 64 3a 20 22 63 75 2c 64 65 76 ┆nsid; ! print head: "cu,dev┆
0x487e0…48800 2c 65 73 63 22 20 20 20 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆,esc" ! ┆
0x48800…48806 (580,) (0x324,0x911)
0x48806…48820 20 20 20 20 72 65 66 20 20 66 70 72 5f 73 74 63 6f 72 6f 75 74 3b 20 20 20 20 ┆ ref fpr_stcorout; ┆
0x48820…48840 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 75 74 ┆ ! ref to status handling corout┆
0x48840…48860 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 70 72 5f 73 74 61 ┆ine ! word fpr_sta┆
0x48860…4887e 74 75 73 3b 20 20 20 20 20 20 20 21 20 73 74 61 74 75 73 20 77 6f 72 64 20 66 72 6f 6d 20 ┆tus; ! status word from ┆
0x4887e…48884 (0x324,0x912)
0x48884…488a0 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 20 20 ┆input or sense ready ! ┆
0x488a0…488c0 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 20 20 ┆ word fpr_devstatus); ┆
0x488c0…488e0 21 20 73 74 61 74 75 73 20 62 79 74 65 73 20 73 31 2c 73 32 20 66 72 6f 6d 20 70 72 69 6e 74 20 ┆! status bytes s1,s2 from print ┆
0x488e0…488fc 6f 70 65 72 61 74 69 6f 6e 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 ┆operation ! ! ┆
0x488fc…48902 (0x324,0x913)
0x48902…48920 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 6d 65 ┆please notice that "tc_devname┆
0x48920…48940 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 20 20 ┆" and "tc_name" in this ! ┆
0x48940…48960 20 20 20 20 20 20 20 20 21 20 63 6f 72 6f 75 74 69 6e 65 20 6f 6e 6c 79 20 61 72 65 20 20 75 73 ┆ ! coroutine only are us┆
0x48960…4897a 65 64 20 66 6f 72 20 69 64 65 6e 74 69 66 69 63 61 74 69 6f 6e 20 70 75 72 70 ┆ed for identification purp┆
0x4897a…48980 (0x324,0x914)
0x48980…489a0 6f 73 65 73 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 61 73 20 74 68 65 79 20 ┆oses ! ! as they ┆
0x489a0…489c0 6d 61 79 20 72 65 66 65 72 20 74 6f 20 61 20 6e 75 6d 62 65 72 20 6f 66 20 64 65 76 69 63 65 73 ┆may refer to a number of devices┆
0x489c0…489e0 20 66 75 72 74 68 65 72 20 69 64 65 6e 74 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 ┆ further ident! ! ┆
0x489e0…48a00 2d 66 69 65 64 20 62 79 20 22 63 75 22 28 63 6f 6e 74 72 6f 6c 20 75 6e 00 00 00 00 00 00 00 00 ┆-fied by "cu"(control un ┆
0x48a00…48a06 (581,) (0x324,0x915)
0x48a06…48a20 69 74 29 20 61 6e 64 20 22 64 65 76 22 28 64 65 76 69 63 65 20 6e 75 6d 62 65 ┆it) and "dev"(device numbe┆
0x48a20…48a40 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 73 65 ┆r). ! ! As a conse┆
0x48a40…48a60 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 63 5f 6e 61 6d 65 ┆quence "tc_devname" and "tc_name┆
0x48a60…48a7e 22 20 61 72 65 20 67 65 6e 65 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 ┆" are gene ! ! ┆
0x48a7e…48a84 (0x324,0x916)
0x48a84…48aa0 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 6e 61 ┆-rated on the basis of docna┆
0x48aa0…48ac0 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 20 20 ┆me(from entry) where the ! ┆
0x48ac0…48ae0 20 20 20 20 20 20 20 20 20 20 21 20 74 68 65 20 73 75 62 73 74 72 69 6e 67 20 22 6f 75 74 22 20 ┆ ! the substring "out" ┆
0x48ae0…48afc 69 73 20 72 65 70 6c 61 63 65 64 20 62 79 20 61 20 73 75 62 73 74 72 69 6e 67 20 28 ┆is replaced by a substring (┆
0x48afc…48b02 (0x324,0x917)
0x48b02…48b20 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 6f 73 ┆3chs.)! ! compos┆
0x48b20…48b40 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 30 2b ┆ed by: ch1=(cu+48),ch2=(dev//10+┆
0x48b40…48b60 34 38 29 2c 63 68 33 3d 28 64 65 76 20 6d 6f 64 20 31 30 2b 34 38 29 21 0a 0a 0a 0a 0a 20 20 72 ┆48),ch3=(dev mod 10+48)! r┆
0x48b60…48b7a 65 63 6f 72 64 20 6f 70 72 63 6f 72 6f 75 74 0a 20 20 20 20 20 20 20 20 20 20 ┆ecord oprcorout ┆
0x48b7a…48b80 (0x324,0x918)
0x48b80…48ba0 20 28 61 72 72 61 79 28 31 3a 21 6c 65 6e 67 74 68 28 63 6f 72 6f 75 74 69 6e 65 29 29 20 6f 70 ┆ (array(1:!length(coroutine)) op┆
0x48ba0…48bc0 72 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 72 65 66 20 ┆r_fill of byte; ref ┆
0x48bc0…48be0 6f 70 72 5f 62 75 66 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 79 74 65 20 6f 70 72 5f 64 68 ┆opr_buf; byte opr_dh┆
0x48be0…48c00 6c 69 6e 6b 6e 6f 2c 6f 70 72 5f 68 6f 73 74 6e 6f 3b 0a 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆linkno,opr_hostno; ┆
0x48c00…48c06 (582,) (0x324,0x919)
0x48c06…48c20 20 20 20 20 20 20 20 77 6f 72 64 20 6f 70 72 5f 68 6f 73 74 69 64 3b 0a 20 20 ┆ word opr_hostid; ┆
0x48c20…48c40 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 20 20 ┆ word opr_savew1; ┆
0x48c40…48c60 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 73 3b 0a 20 20 20 ┆ text(11) opr_devcons; ┆
0x48c60…48c7e 20 20 20 20 20 20 20 20 20 74 65 78 74 28 31 34 29 20 6f 70 72 5f 63 6f 6e 73 6f 6c 65 29 ┆ text(14) opr_console)┆
0x48c7e…48c84 (0x324,0x91a)
0x48c84…48ca0 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 20 20 ┆; record tr_descr ┆
0x48ca0…48cc0 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 74 72 ┆ (text(11) tr_name,tr_user,tr┆
0x48cc0…48ce0 5f 73 6e 61 6d 65 2c 74 72 5f 72 6e 61 6d 65 2c 74 72 5f 62 73 61 72 65 61 3b 0a 20 20 20 20 20 ┆_sname,tr_rname,tr_bsarea; ┆
0x48ce0…48cfc 20 20 20 20 20 20 20 62 79 74 65 20 74 72 5f 6d 6f 64 65 2c 20 74 72 5f 6b 69 6e 64 ┆ byte tr_mode, tr_kind┆
0x48cfc…48d02 (0x324,0x91b)
0x48d02…48d20 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 74 72 ┆; word tr_basel,tr┆
0x48d20…48d40 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 62 73 ┆_baseu; double tr_bs┆
0x48d40…48d60 73 74 61 72 74 70 74 72 3b 20 20 20 21 20 73 74 61 72 74 20 70 6f 73 69 74 69 6f 6e 20 69 6e 20 ┆startptr; ! start position in ┆
0x48d60…48d7a 62 73 20 61 72 65 61 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 74 65 78 74 ┆bs area ! text┆
0x48d7a…48d80 (0x324,0x91c)
0x48d80…48da0 28 31 31 29 20 74 72 5f 71 67 72 6f 75 70 2c 20 74 72 5f 71 6e 61 6d 65 3b 0a 20 20 20 20 20 20 ┆(11) tr_qgroup, tr_qname; ┆
0x48da0…48dc0 20 20 20 20 20 20 72 65 66 20 74 72 5f 63 6f 72 6f 75 3b 20 20 21 20 61 62 73 20 72 65 66 20 63 ┆ ref tr_corou; ! abs ref c┆
0x48dc0…48de0 6f 72 65 20 61 64 72 20 6f 66 20 74 72 61 6e 73 70 6f 72 74 20 63 6f 72 6f 75 74 69 6e 65 20 21 ┆ore adr of transport coroutine !┆
0x48de0…48e00 0a 20 20 20 20 20 20 20 20 20 20 20 77 6f 72 64 20 74 72 5f 73 74 61 74 00 00 00 00 00 00 00 00 ┆ word tr_stat ┆
0x48e00…48e06 (583,) (0x324,0x91d)
0x48e06…48e20 65 2c 74 72 5f 63 61 75 73 65 2c 74 72 5f 73 74 61 74 75 73 3b 0a 20 20 20 20 ┆e,tr_cause,tr_status; ┆
0x48e20…48e40 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 0a 20 ┆ double tr_charposition; ┆
0x48e40…48e60 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 3b 0a 20 20 20 20 ┆ ref tr_waitmess; ┆
0x48e60…48e7e 20 20 20 20 20 20 20 20 77 6f 72 64 20 74 72 5f 72 65 6d 6f 76 65 74 69 6d 65 29 3b 20 21 ┆ word tr_removetime); !┆
0x48e7e…48e84 (0x324,0x91e)
0x48e84…48ea0 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 6d 69 ┆ 8388607 transport not termi┆
0x48ea0…48ec0 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 20 20 ┆nated ! ┆
0x48ec0…48ee0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 38 33 38 38 36 30 36 20 ┆ ! 8388606 ┆
0x48ee0…48efc 74 72 61 6e 73 70 2e 20 6e 6f 74 20 74 65 72 6d 69 6e 61 74 65 64 2c 20 72 65 6c 65 ┆transp. not terminated, rele┆
0x48efc…48f02 (0x324,0x91f)
0x48f02…48f20 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 20 20 ┆ase descr. when finished ! ┆
0x48f20…48f40 20 20 20 20 20 20 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 ┆ ! ┆
0x48f40…48f60 3c 38 33 38 38 36 30 36 20 74 72 61 6e 73 70 6f 72 74 20 74 65 72 6d 69 6e 61 74 65 64 2c 20 74 ┆<8388606 transport terminated, t┆
0x48f60…48f7a 68 65 20 76 61 6c 75 65 20 69 6e 64 69 2d 20 21 0a 20 20 20 20 20 20 20 20 20 ┆he value indi- ! ┆
0x48f7a…48f80 (0x324,0x920)
0x48f80…48fa0 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 63 61 74 65 73 20 77 ┆ ! cates w┆
0x48fa0…48fc0 68 65 6e 20 74 68 65 20 64 65 73 63 72 20 69 73 20 66 72 65 65 20 61 67 61 69 6e 20 20 20 20 20 ┆hen the descr is free again ┆
0x48fc0…48fe0 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 ┆ ! ┆
0x48fe0…49000 20 20 20 20 20 20 20 20 20 20 20 20 21 20 75 6e 69 74 3d 63 6c 6f 63 6b 00 00 00 00 00 00 00 00 ┆ ! unit=clock ┆
0x49000…49006 (584,) (0x324,0x921)
0x49006…49020 20 73 68 69 66 74 20 2d 32 30 20 3d 20 73 68 6f 72 74 63 6c 6f 63 6b 20 73 68 ┆ shift -20 = shortclock sh┆
0x49020…49040 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 0a 20 ┆ift -1 ! record bufhead ┆
0x49040…49060 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 5f 6d 6f 64 65 3b ┆ (byte buf_op,buf_mode;┆
0x49060…4907e 0a 20 20 20 20 20 20 20 20 20 20 20 20 72 65 66 20 62 75 66 5f 66 69 72 73 74 2c 62 75 66 ┆ ref buf_first,buf┆
0x4907e…49084 (0x324,0x922)
0x49084…490a0 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 66 5f ┆_last; word buf_┆
0x490a0…490c0 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 20 20 ┆data1); record queuerec ┆
0x490c0…490e0 20 21 20 73 74 72 75 63 74 75 72 65 20 6f 66 20 65 6c 65 6d 65 6e 74 20 69 6e 20 74 72 61 6e 73 ┆ ! structure of element in trans┆
0x490e0…490fc 70 6f 72 74 20 63 6f 72 6f 75 74 69 6e 65 20 71 75 65 75 65 20 21 0a 20 20 20 20 20 ┆port coroutine queue ! ┆
0x490fc…49102 (0x324,0x923)
0x49102…49120 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 20 20 ┆ (ref tq_next,tq_prev; ┆
0x49120…49140 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 20 20 ┆ double tq_suspend; ┆
0x49140…49160 20 20 20 20 20 20 20 77 6f 72 64 20 74 71 5f 74 72 61 6e 73 6e 6f 29 3b 0a 0a 20 20 72 65 63 6f ┆ word tq_transno); reco┆
0x49160…4917a 72 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 ┆rd opcom (byte ┆
0x4917a…49180 (0x324,0x924)
0x49180…491a0 6f 70 6f 70 2c 6f 70 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 ┆opop,opmode; text(5)┆
0x491a0…491c0 20 6f 70 74 65 78 74 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 ┆ optext1; word logst┆
0x491c0…491e0 61 74 75 73 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 74 65 78 74 28 31 31 29 20 6f 70 74 65 78 ┆atus; text(11) optex┆
0x491e0…49200 74 32 29 3b 0a 0a 20 20 69 6e 63 6f 64 65 0a 20 20 20 20 77 6f 72 64 20 00 00 00 00 00 00 00 00 ┆t2); incode word ┆
0x49200…49206 (585,) (0x324,0x925)
0x49206…49220 70 72 69 6d 6f 3b 20 21 20 70 72 6f 63 65 73 73 20 64 65 73 63 72 69 70 74 69 ┆primo; ! process descripti┆
0x49220…49240 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 20 65 ┆on address of primo ! word e┆
0x49240…49260 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 3d 30 2c 0a 20 20 ┆vent_res; ref current:=0, ┆
0x49260…4927e 20 20 20 20 20 20 65 76 65 6e 74 3a 3d 30 2c 0a 20 20 20 20 20 20 20 20 61 63 74 69 76 71 ┆ event:=0, activq┆
0x4927e…49284 (0x324,0x926)
0x49284…492a0 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 73 77 ┆fst,activqlast, answ┆
0x492a0…492c0 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 69 74 ┆erqfst,answerqlast, wait┆
0x492c0…492e0 71 66 73 74 2c 77 61 69 74 71 6c 61 73 74 2c 0a 20 20 20 20 20 20 20 20 68 6f 6c 64 71 66 73 74 ┆qfst,waitqlast, holdqfst┆
0x492e0…492fc 2c 68 6f 6c 64 71 6c 61 73 74 2c 0a 20 20 20 20 20 20 20 20 74 71 66 72 65 65 66 73 ┆,holdqlast, tqfreefs┆
0x492fc…49302 (0x324,0x927)
0x49302…49320 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 20 74 ┆t,tqfreelast; ! head of idle t┆
0x49320…49340 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 20 72 ┆ransport queue elements ! r┆
0x49340…49360 65 66 20 61 70 6c 5f 66 73 74 3b 0a 20 20 20 20 72 65 66 20 6f 70 72 5f 66 73 74 2c 20 6f 70 72 ┆ef apl_fst; ref opr_fst, opr┆
0x49360…4937a 5f 74 6f 70 3b 0a 20 20 20 20 72 65 66 20 74 63 70 6f 6f 6c 5f 66 73 74 2c 20 ┆_top; ref tcpool_fst, ┆
0x4937a…49380 (0x324,0x928)
0x49380…493a0 20 20 74 63 70 6f 6f 6c 5f 74 6f 70 3b 0a 20 20 20 20 77 6f 72 64 20 74 72 61 6e 73 5f 66 69 72 ┆ tcpool_top; word trans_fir┆
0x493a0…493c0 73 74 2c 74 72 61 6e 73 5f 74 6f 70 3b 20 21 20 70 6f 73 69 74 69 6f 6e 20 6f 66 20 74 72 61 6e ┆st,trans_top; ! position of tran┆
0x493c0…493e0 73 70 6f 72 74 20 64 65 73 63 72 69 70 74 69 6f 6e 73 20 6f 6e 20 62 73 20 21 0a 20 20 20 20 77 ┆sport descriptions on bs ! w┆
0x493e0…49400 6f 72 64 20 74 72 61 6e 73 5f 6f 6c 64 3a 3d 20 2d 31 3b 20 21 20 70 6f 00 00 00 00 00 00 00 00 ┆ord trans_old:= -1; ! po ┆
0x49400…49406 (586,) (0x324,0x929)
0x49406…49420 73 69 74 69 6f 6e 20 6f 6e 20 64 65 73 63 72 69 70 74 69 6f 6e 20 61 72 65 61 ┆sition on description area┆
0x49420…49440 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 20 20 ┆ of last last free transp. ! ┆
0x49440…49460 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 62 61 73 65 5f 65 ┆ word testmtop,testbuf:=0,base_e┆
0x49460…4947e 76 65 6e 74 3a 3d 30 3b 0a 0a 20 20 20 20 62 79 74 65 20 74 65 73 74 6d 6f 70 3a 3d 35 2c ┆vent:=0; byte testmop:=5,┆
0x4947e…49484 (0x324,0x92a)
0x49484…494a0 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 66 73 ┆testmode:=0; ref testmfs┆
0x494a0…494c0 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 73 74 ┆t:=0,testmlast:=0; word test┆
0x494c0…494e0 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 64 6f 75 62 6c 65 20 ┆segm:=0,maxtestsegm; double ┆
0x494e0…494fc 73 74 61 72 74 74 69 6d 65 3b 0a 20 20 20 20 74 65 78 74 28 31 34 29 20 73 70 6f 6f ┆starttime; text(14) spoo┆
0x494fc…49502 (0x324,0x92b)
0x49502…49520 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 65 3b ┆lname; byte bs_op,bs_mode;┆
0x49520…49540 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 20 77 ┆ ref bs_first,bs_last; w┆
0x49540…49560 6f 72 64 20 62 73 5f 73 65 67 6e 6f 3b 0a 0a 20 20 20 20 77 6f 72 64 20 77 61 69 74 62 75 66 73 ┆ord bs_segno; word waitbufs┆
0x49560…4957a 3b 0a 20 20 20 20 64 6f 75 62 6c 65 20 74 72 73 61 76 65 70 65 72 69 6f 64 3b ┆; double trsaveperiod;┆
0x4957a…49580 (0x324,0x92c)
0x49580…495a0 20 20 21 20 70 65 72 69 6f 64 20 74 6f 20 73 61 76 65 20 74 72 61 6e 73 70 2e 64 65 73 63 72 20 ┆ ! period to save transp.descr ┆
0x495a0…495c0 61 66 74 65 72 20 74 65 72 6d 69 6e 61 74 69 6f 6e 20 6f 66 20 21 0a 20 20 20 20 20 20 20 20 20 ┆after termination of ! ┆
0x495c0…495e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 74 72 61 6e 73 70 6f 72 74 20 6f 70 65 ┆ ! transport ope┆
0x495e0…49600 72 61 74 69 6f 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 ┆ration ┆
0x49600…49606 (587,) (0x324,0x92d)
0x49606…49620 20 20 20 20 20 20 20 20 20 20 20 20 21 0a 20 20 20 20 62 79 74 65 20 70 72 68 ┆ ! byte prh┆
0x49620…49640 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 74 72 ┆eadtrail, ! = 0 no header and tr┆
0x49640…49660 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 73 20 21 0a 20 20 ┆ailer page on printer lists ! ┆
0x49660…4967e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 3c 3e 30 20 68 65 61 64 ┆ ! <>0 head┆
0x4967e…49684 (0x324,0x92e)
0x49684…496a0 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 6e 74 ┆er and trailer page on print┆
0x496a0…496c0 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 73 3b ┆er lists ! oprtdetails;┆
0x496c0…496e0 20 21 20 3c 3e 30 20 6f 75 74 70 75 74 20 64 65 74 61 69 6c 73 20 74 6f 20 6f 70 65 72 61 74 6f ┆ ! <>0 output details to operato┆
0x496e0…496fc 72 20 21 0a 20 20 20 20 77 6f 72 64 20 70 72 6c 70 61 67 65 3b 20 21 20 6d 61 78 20 ┆r ! word prlpage; ! max ┆
0x496fc…49702 (0x324,0x92f)
0x49702…49720 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 61 67 ┆number of lines pr printer pag┆
0x49720…49740 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 74 65 ┆e ! word ans_status,ans_byte┆
0x49740…49760 73 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 61 6e 73 37 2c ┆s,ans_chars,ans4,ans5,ans6,ans7,┆
0x49760…4977a 61 6e 73 38 3b 0a 20 20 20 20 62 79 74 65 20 66 61 75 6c 74 6f 70 3a 3d 34 2c ┆ans8; byte faultop:=4,┆
0x4977a…49780 (0x324,0x930)
0x49780…497a0 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 29 20 66 61 75 6c 74 ┆faultmode:=1; text(20) fault┆
0x497a0…497c0 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 20 73 70 63 6f 6d 6f ┆txt:="***fault"; byte spcomo┆
0x497c0…497e0 70 3a 3d 32 2c 73 70 63 6f 6d 6d 6f 64 65 3a 3d 38 27 31 30 30 31 3b 0a 20 20 20 20 74 65 78 74 ┆p:=2,spcommode:=8'1001; text┆
0x497e0…49800 28 38 29 20 73 70 63 6f 6d 74 65 78 74 3a 3d 22 73 74 61 74 75 73 22 3b 00 00 00 00 00 00 00 00 ┆(8) spcomtext:="status"; ┆
0x49800…49806 (588,) (0x324,0x931)
0x49806…49820 0a 0a 20 20 20 20 62 79 74 65 20 74 73 74 63 6f 6d 6f 70 3a 3d 20 32 2c 20 74 ┆ byte tstcomop:= 2, t┆
0x49820…49840 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 29 20 ┆stcommode:= 8'1000; text(8) ┆
0x49840…49860 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 74 65 78 74 28 31 ┆tstcomtext:="status"; text(1┆
0x49860…4987e 34 29 20 74 65 73 74 6e 61 6d 65 3b 0a 20 20 20 20 62 79 74 65 20 70 72 6f 63 5f 64 68 6c ┆4) testname; byte proc_dhl┆
0x4987e…49884 (0x324,0x932)
0x49884…498a0 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 70 72 ┆inkno, proc_hno; word pr┆
0x498a0…498c0 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 6e 61 ┆oc_hid; text (11) proc_devna┆
0x498c0…498e0 6d 65 3b 0a 20 20 20 20 74 65 78 74 20 28 31 31 29 20 70 72 69 6d 6f 5f 69 64 3a 3d 20 22 70 72 ┆me; text (11) primo_id:= "pr┆
0x498e0…498fc 69 6d 6f 27 30 27 22 3b 0a 20 20 20 20 74 65 78 74 20 28 31 34 29 20 6d 61 69 6e 5f ┆imo'0'"; text (14) main_┆
0x498fc…49902 (0x324,0x933)
0x49902…49920 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 69 6e ┆operator; text (17) no_lin┆
0x49920…49940 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 72 64 ┆k:= " no link "; word┆
0x49940…49960 20 61 63 63 65 70 74 3b 20 21 20 77 68 65 6e 20 3c 3e 20 30 20 61 63 63 65 70 74 20 74 72 61 6e ┆ accept; ! when <> 0 accept tran┆
0x49960…4997a 73 70 6f 72 74 73 20 74 6f 20 6e 6f 6e 65 78 69 73 74 69 6e 67 20 64 65 76 69 ┆sports to nonexisting devi┆
0x4997a…49980 (0x324,0x934)
0x49980…499a0 63 65 20 68 6f 73 74 73 20 21 0a 0a 20 20 20 20 72 65 66 20 66 69 72 73 74 66 72 65 65 2c 70 72 ┆ce hosts ! ref firstfree,pr┆
0x499a0…499c0 6f 63 63 6f 6e 73 6f 6c 65 2c 67 61 63 5f 74 61 62 6c 65 2c 67 61 63 5f 74 6f 70 3b 0a 20 20 20 ┆occonsole,gac_table,gac_top; ┆
0x499c0…499e0 20 77 6f 72 64 20 6f 70 72 74 5f 62 75 66 6c 3a 3d 20 31 30 34 3b 0a 0a 20 20 20 20 72 65 66 20 ┆ word oprt_bufl:= 104; ref ┆
0x499e0…49a00 63 75 72 72 6f 70 72 2c 20 66 72 65 65 6f 70 72 3b 20 21 20 77 6f 72 6b 00 00 00 00 00 00 00 00 ┆curropr, freeopr; ! work ┆
0x49a00…49a06 (589,) (0x324,0x935)
0x49a06…49a20 20 76 61 72 69 61 62 6c 65 73 20 75 73 65 64 20 62 79 20 63 65 6e 74 72 61 6c ┆ variables used by central┆
0x49a20…49a40 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 20 30 ┆ logic ! byte strttable:= 0┆
0x49a40…49a60 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 6f 6e 20 65 6e 74 ┆, strtsize:= 0; ! conversion ent┆
0x49a60…49a7e 72 79 20 69 6e 70 3a 20 20 30 2c 20 73 69 7a 65 3a 20 30 20 21 0a 20 20 20 20 77 6f 72 64 ┆ry inp: 0, size: 0 ! word┆
0x49a7e…49a84 (0x324,0x936)
0x49a84…49aa0 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 65 6e ┆ endtable:= 0,dendt:=0; ! en┆
0x49aa0…49ac0 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 69 6e ┆d of conversion table ! begin┆
0x49ac0…49ae0 0a 20 20 20 20 70 72 69 6d 6f 3a 3d 20 77 33 3b 20 21 20 73 61 76 65 20 70 72 69 6d 6f 20 70 72 ┆ primo:= w3; ! save primo pr┆
0x49ae0…49afc 6f 63 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 ┆ocess description address ! ┆
0x49afc…49b02 (0x324,0x937)
0x49b02…49b20 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 72 73 ┆ procconsole:= w2; firs┆
0x49b20…49b40 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 38 2c ┆tfree:= w1; move(.w3.,w0:=8,┆
0x49b40…49b60 77 31 3a 3d 77 32 2b 32 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 6d 61 69 6e 5f 6f 70 65 72 61 74 ┆w1:=w2+2,w2:=address(main_operat┆
0x49b60…49b7a 6f 72 29 29 3b 0a 20 20 20 20 6c 6f 6f 6b 75 70 72 65 6d 6f 74 65 28 2e 77 33 ┆or)); lookupremote(.w3┆
0x49b7a…49b80 (0x324,0x938)
0x49b80…49ba0 2e 2c 77 33 3a 3d 32 2c 77 33 3a 3d 61 64 64 72 65 73 73 28 6d 61 69 6e 5f 6f 70 65 72 61 74 6f ┆.,w3:=2,w3:=address(main_operato┆
0x49ba0…49bc0 72 29 2c 77 33 3a 3d 61 64 64 72 65 73 73 28 6d 61 69 6e 5f 6f 70 65 72 61 74 6f 72 29 2c 0a 20 ┆r),w3:=address(main_operator), ┆
0x49bc0…49be0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 30 2c 77 31 3a 3d 38 2c 77 32 ┆ w0,w1:=8,w2┆
0x49be0…49c00 3a 3d 61 64 64 72 65 73 73 28 70 72 6f 63 5f 64 68 6c 69 6e 6b 6e 6f 29 00 00 00 00 00 00 00 00 ┆:=address(proc_dhlinkno) ┆
0x49c00…49c06 (590,) (0x324,0x939)
0x49c06…49c20 29 3b 0a 20 20 20 20 69 66 20 77 30 20 3d 20 30 20 74 68 65 6e 0a 20 20 20 20 ┆); if w0 = 0 then ┆
0x49c20…49c40 20 20 6d 6f 76 65 20 28 2e 77 33 2e 2c 77 30 3a 3d 38 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 6d ┆ move (.w3.,w0:=8,w1:=address(m┆
0x49c40…49c60 61 69 6e 5f 6f 70 65 72 61 74 6f 72 29 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 70 72 6f 63 5f 64 ┆ain_operator),w2:=address(proc_d┆
0x49c60…49c7e 65 76 6e 61 6d 65 29 29 20 65 6c 73 65 0a 20 20 20 20 74 65 72 6d 69 6e 61 6c 69 64 28 2e ┆evname)) else terminalid(.┆
0x49c7e…49c84 (0x324,0x93a)
0x49c84…49ca0 77 33 2e 2c 77 30 3a 3d 70 72 6f 63 5f 64 68 6c 69 6e 6b 6e 6f 2c 77 32 3a 3d 61 64 ┆w3.,w0:=proc_dhlinkno,w2:=ad┆
0x49ca0…49cc0 64 72 65 73 73 28 70 72 6f 63 5f 64 65 76 6e 61 6d 65 29 29 3b 0a 20 20 20 20 69 6e 74 65 72 72 ┆dress(proc_devname)); interr┆
0x49cc0…49ce0 75 70 74 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 3b ┆upt: w3:=address(interrupt);┆
0x49ce0…49cfc 0a 20 20 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 ┆ w0:= 0; monitor(0);┆
0x49cfc…49d02 (0x324,0x93b)
0x49d02…49d20 20 20 20 21 20 73 65 74 20 69 6e 74 65 72 72 75 70 74 20 61 64 64 72 65 73 73 20 21 0a 20 ┆ ! set interrupt address ! ┆
0x49d20…49d40 20 20 20 67 6f 74 6f 20 69 6e 69 74 69 61 6c 69 7a 65 3b 0a 20 20 20 20 77 31 2b 30 3b 20 77 31 ┆ goto initialize; w1+0; w1┆
0x49d40…49d60 2b 30 3b 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 ┆+0; w1+0; w1+0; ! fill up inte┆
0x49d60…49d7a 72 72 75 70 74 20 61 72 65 61 20 21 0a 20 20 20 20 63 6f 6d 6d 65 6e 74 20 74 ┆rrupt area ! comment t┆
0x49d7a…49d80 (0x324,0x93c)
0x49d80…49da0 65 72 6d 69 6e 61 74 65 20 6c 61 73 74 20 6f 70 65 72 61 74 69 6f 6e 20 74 6f 20 73 70 6f 6f 6c ┆erminate last operation to spool┆
0x49da0…49dc0 20 61 72 65 61 3b 0a 20 20 20 20 77 31 3a 3d 20 61 64 64 72 65 73 73 28 62 73 5f 6f 70 29 3b 0a ┆ area; w1:= address(bs_op); ┆
0x49dc0…49de0 20 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 3b 0a 20 20 20 ┆ w3:= address(spoolname); ┆
0x49de0…49e00 20 6d 6f 6e 69 74 6f 72 28 31 36 29 3b 20 21 20 73 65 6e 64 20 6d 65 73 00 00 00 00 00 00 00 00 ┆ monitor(16); ! send mes ┆
0x49e00…49e06 (591,) (0x324,0x93d)
0x49e06…49e20 73 61 67 65 20 21 0a 20 20 20 20 77 31 3a 3d 20 61 64 64 72 65 73 73 28 61 6e ┆sage ! w1:= address(an┆
0x49e20…49e40 73 5f 73 74 61 74 75 73 29 3b 0a 20 20 20 20 6d 6f 6e 69 74 6f 72 28 31 38 29 3b 20 21 20 77 61 ┆s_status); monitor(18); ! wa┆
0x49e40…49e60 69 74 20 61 6e 73 77 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 ┆it answer ! testout(.w3.,w0┆
0x49e60…49e7e 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 2c 77 32 ┆:=16,w1:=address(interrupt),w2┆
0x49e7e…49e84 (0x324,0x93e)
0x49e84…49ea0 3a 3d 31 35 29 3b 0a 20 20 20 20 6f 70 6d 65 73 73 28 2e 77 33 2e 2c 77 31 3a 3d 61 ┆:=15); opmess(.w3.,w1:=a┆
0x49ea0…49ec0 64 64 72 65 73 73 28 66 61 75 6c 74 6f 70 29 29 3b 0a 0a 69 6e 69 74 69 61 6c 69 7a 65 3a 0a 20 ┆ddress(faultop)); initialize: ┆
0x49ec0…49ee0 20 20 20 21 67 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 ┆ !get 2; init(.w3.); ! cal┆
0x49ee0…49efc 6c 20 69 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 ┆l init for allocating and in┆
0x49efc…49f02 (0x324,0x93f)
0x49f02…49f20 69 74 69 61 6c 69 7a 69 6e 67 20 62 75 66 66 65 72 73 2c 20 20 21 0a 20 20 20 20 20 20 20 ┆itializing buffers, ! ┆
0x49f20…49f40 20 20 20 20 20 20 20 20 20 20 20 20 21 20 64 65 73 63 72 69 70 74 6f 72 73 2c 20 73 65 6d 61 70 ┆ ! descriptors, semap┆
0x49f40…49f60 68 6f 72 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 ┆hores etc. ┆
0x49f60…49f7a 20 20 21 0a 20 20 20 20 67 6f 74 6f 20 61 63 74 69 76 61 74 65 3b 0a 0a 63 65 ┆ ! goto activate; ce┆
0x49f7a…49f80 (0x324,0x940)
0x49f80…49fa0 6e 74 72 61 6c 5f 77 61 69 74 3a 0a 20 20 20 20 77 32 3a 3d 20 62 61 73 65 5f 65 76 65 6e 74 3b ┆ntral_wait: w2:= base_event;┆
0x49fa0…49fc0 20 20 20 20 20 20 20 21 20 62 61 73 65 20 6f 66 20 65 76 65 6e 74 20 71 75 65 75 65 20 21 0a 20 ┆ ! base of event queue ! ┆
0x49fc0…49fe0 20 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 20 20 20 20 63 ┆ wait_next: w3:= 0; c┆
0x49fe0…4a000 75 72 72 65 6e 74 3a 3d 20 77 33 3b 0a 20 20 20 20 6d 6f 6e 69 74 6f 72 00 00 00 00 00 00 00 00 ┆urrent:= w3; monitor ┆
0x4a000…4a006 (592,) (0x324,0x941)
0x4a006…4a020 28 32 34 29 3b 20 21 20 77 61 69 74 20 6e 65 78 74 20 65 76 65 6e 74 20 21 0a ┆(24); ! wait next event ! ┆
0x4a020…4a040 20 20 20 20 69 66 20 77 32 3d 74 65 73 74 62 75 66 20 74 68 65 6e 0a 20 20 20 20 62 65 67 69 6e ┆ if w2=testbuf then begin┆
0x4a040…4a060 0a 20 20 20 20 20 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 ┆ base_event:= w2; go┆
0x4a060…4a07e 74 6f 20 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 ┆to wait_next; end; eve┆
0x4a07e…4a084 (0x324,0x942)
0x4a084…4a0a0 6e 74 3a 3d 77 32 3b 0a 20 20 20 20 65 76 65 6e 74 5f 72 65 73 3a 3d 20 77 30 3b 0a ┆nt:=w2; event_res:= w0; ┆
0x4a0a0…4a0c0 20 20 20 20 74 65 73 74 6f 75 74 28 2e 77 33 2e 2c 77 30 3a 3d 32 36 2c 77 31 3a 3d 77 32 2d 32 ┆ testout(.w3.,w0:=26,w1:=w2-2┆
0x4a0c0…4a0e0 2c 77 32 3a 3d 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 ┆,w2:=6); w2:=event; if w┆
0x4a0e0…4a0fc 30 20 3a 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 ┆0 := event_res = 1 then ┆
0x4a0fc…4a102 (0x324,0x943)
0x4a102…4a120 62 65 67 69 6e 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 ┆begin ! an answer has arrived┆
0x4a120…4a140 20 69 6e 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 ┆ in event queue ! w1:=addr┆
0x4a140…4a160 65 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 ┆ess(ans_status); monitor(1┆
0x4a160…4a17a 38 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 ┆8); ! wait answer (take ┆
0x4a17a…4a180 (0x324,0x944)
0x4a180…4a1a0 74 68 65 20 61 6e 73 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 ┆the answer home) ! w1:=ans┆
0x4a1a0…4a1c0 77 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 ┆werqfst; while w3:=address┆
0x4a1c0…4a1e0 28 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 ┆(answerqfst) <> w1 do begi┆
0x4a1e0…4a200 6e 20 20 21 20 73 63 61 6e 20 61 6e 73 77 65 72 20 71 75 65 75 65 20 74 00 00 00 00 00 00 00 00 ┆n ! scan answer queue t ┆
0x4a200…4a206 (593,) (0x324,0x945)
0x4a206…4a220 6f 20 66 69 6e 64 20 63 6f 72 72 65 73 70 6f 6e 64 69 6e 67 20 73 65 6e 64 65 ┆o find corresponding sende┆
0x4a220…4a240 72 20 21 0a 20 20 20 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 ┆r ! if w2 = (w1).c_mbuf ┆
0x4a240…4a260 74 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 ┆then begin ! activate w┆
0x4a260…4a27e 61 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 ┆aiting coroutine ! (┆
0x4a27e…4a284 (0x324,0x946)
0x4a284…4a2a0 77 31 29 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 ┆w1).c_w0:=w0; goto┆
0x4a2a0…4a2c0 20 63 6f 72 75 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 ┆ coru_found; end; ┆
0x4a2c0…4a2e0 20 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 ┆ w1:=(w1).c_next; end; ┆
0x4a2e0…4a2fc 20 20 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 65 ┆ goto central_wait; e┆
0x4a2fc…4a302 (0x324,0x947)
0x4a302…4a320 6e 64 20 21 20 61 6e 73 77 65 72 20 21 0a 20 20 20 20 65 6c 73 65 0a 20 20 20 20 62 65 67 ┆nd ! answer ! else beg┆
0x4a320…4a340 69 6e 20 21 20 6d 65 73 73 61 67 65 20 68 61 73 20 61 72 72 69 76 65 64 20 69 6e 20 65 76 65 6e ┆in ! message has arrived in even┆
0x4a340…4a360 74 20 71 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 ┆t queue ! if w0:= (w2).cm_┆
0x4a360…4a37a 6f 70 20 3d 20 37 20 74 68 65 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 20 21 20 ┆op = 7 then begin ! ┆
0x4a37a…4a380 (0x324,0x948)
0x4a380…4a3a0 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 20 77 31 3a 3d 20 61 ┆control message ! w1:= a┆
0x4a3a0…4a3c0 70 6c 5f 66 73 74 3b 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 ┆pl_fst; if w0:=(w1).c_mb┆
0x4a3c0…4a3e0 75 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 20 20 20 20 20 ┆uf>=0 then goto wait_next; ┆
0x4a3e0…4a400 20 20 20 28 77 31 29 2e 63 5f 77 32 3a 3d 20 77 32 3b 0a 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ (w1).c_w2:= w2; ┆
0x4a400…4a406 (594,) (0x324,0x949)
0x4a406…4a420 20 20 20 28 77 31 29 2e 63 5f 6d 62 75 66 3a 3d 20 77 32 3b 0a 20 20 20 20 20 ┆ (w1).c_mbuf:= w2; ┆
0x4a420…4a440 20 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 20 21 0a 20 20 ┆ monitor(26); ! get event ! ┆
0x4a440…4a460 20 20 20 20 20 20 67 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 ┆ goto coru_found; end┆
0x4a460…4a47e 0a 20 20 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 ┆ else if w0=0 then┆
0x4a47e…4a484 (0x324,0x94a)
0x4a484…4a4a0 0a 20 20 20 20 20 20 62 65 67 69 6e 20 21 20 61 74 74 20 6d 65 73 73 61 67 65 20 21 ┆ begin ! att message !┆
0x4a4a0…4a4c0 0a 20 20 20 20 20 20 20 20 77 30 3a 3d 20 30 3b 20 66 72 65 65 6f 70 72 3a 3d 20 77 30 3b 0a 20 ┆ w0:= 0; freeopr:= w0; ┆
0x4a4c0…4a4e0 20 20 20 20 20 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 ┆ if w2:=(w2).cm_sender<=0 ┆
0x4a4e0…4a4fc 74 68 65 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 ┆then goto unin; w2+2┆
0x4a4fc…4a502 (0x324,0x94b)
0x4a502…4a520 3b 0a 20 20 20 20 20 20 20 20 77 31 3a 3d 20 6f 70 72 5f 74 6f 70 3b 0a 20 20 20 20 20 20 ┆; w1:= opr_top; ┆
0x4a520…4a540 20 20 77 68 69 6c 65 20 77 31 2d 21 6c 65 6e 67 74 68 28 6f 70 72 63 6f 72 6f 75 74 29 3e 3d 6f ┆ while w1-!length(oprcorout)>=o┆
0x4a540…4a560 70 72 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 20 20 20 20 ┆pr_fst do begin ┆
0x4a560…4a57a 20 20 63 75 72 72 6f 70 72 3a 3d 20 77 31 3b 0a 0a 20 20 20 20 20 20 20 20 20 ┆ curropr:= w1; ┆
0x4a57a…4a580 (0x324,0x94c)
0x4a580…4a5a0 20 69 66 20 77 30 3a 3d 28 77 31 29 2e 63 5f 6d 62 75 66 3c 30 20 74 68 65 6e 0a 20 20 20 20 20 ┆ if w0:=(w1).c_mbuf<0 then ┆
0x4a5a0…4a5c0 20 20 20 20 20 66 72 65 65 6f 70 72 3a 3d 20 77 31 0a 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 ┆ freeopr:= w1 else┆
0x4a5c0…4a5e0 0a 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 66 20 61 20 73 ┆ begin ! reject if a s┆
0x4a5e0…4a600 65 73 73 69 6f 6e 20 69 73 20 61 6c 6c 72 65 61 64 79 20 67 6f 69 6e 67 00 00 00 00 00 00 00 00 ┆ession is allready going ┆
0x4a600…4a606 (595,) (0x324,0x94d)
0x4a606…4a620 20 6f 6e 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6d 70 61 72 65 28 ┆ on ! compare(┆
0x4a620…4a640 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 6f 70 72 5f ┆.w3.,w0:=8,w1:=address((w1).opr_┆
0x4a640…4a660 63 6f 6e 73 6f 6c 65 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 ┆console),w2); if w0=┆
0x4a660…4a67e 30 20 21 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 ┆0 ! match ! then goto unin; ┆
0x4a67e…4a684 (0x324,0x94e)
0x4a684…4a6a0 20 20 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 20 ┆ end; w1:= ┆
0x4a6a0…4a6c0 63 75 72 72 6f 70 72 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 ┆curropr; end; if┆
0x4a6c0…4a6e0 20 77 33 3a 3d 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 ┆ w3:=freeopr=0 then goto unin; ┆
0x4a6e0…4a6fc 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 77 ┆ move(.w3.,w0:=8,w1:=w┆
0x4a6fc…4a702 (0x324,0x94f)
0x4a702…4a720 32 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 ┆2,w2:=address((w3).opr_console┆
0x4a720…4a740 29 29 3b 0a 20 20 20 20 20 20 20 20 77 31 3a 3d 20 66 72 65 65 6f 70 72 3b 0a 20 20 20 20 20 20 ┆)); w1:= freeopr; ┆
0x4a740…4a760 20 20 77 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 ┆ w2:= event; (w1).c_w2:┆
0x4a760…4a77a 3d 20 77 32 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 63 5f 6d 62 75 66 3a ┆= w2; (w1).c_mbuf:┆
0x4a77a…4a780 (0x324,0x950)
0x4a780…4a7a0 3d 20 77 32 3b 0a 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 32 36 29 3b 20 20 21 20 67 65 ┆= w2; monitor(26); ! ge┆
0x4a7a0…4a7c0 74 20 65 76 65 6e 74 20 21 0a 20 20 20 20 20 20 20 20 67 6f 74 6f 20 63 6f 72 75 5f 66 6f 75 6e ┆t event ! goto coru_foun┆
0x4a7c0…4a7e0 64 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 20 20 62 65 ┆d; end else be┆
0x4a7e0…4a800 67 69 6e 20 21 20 6f 70 65 72 61 74 69 6f 6e 20 69 6c 6c 65 67 61 6c 20 00 00 00 00 00 00 00 00 ┆gin ! operation illegal ┆
0x4a800…4a806 (596,) (0x324,0x951)
0x4a806…4a820 21 0a 75 6e 69 6e 3a 0a 20 20 20 20 20 20 20 20 61 6e 73 5f 73 74 61 74 75 73 ┆! unin: ans_status┆
0x4a820…4a840 3a 3d 20 77 30 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 61 6e 73 5f 62 79 74 65 73 3a 3d 20 77 ┆:= w0:= 0; ans_bytes:= w┆
0x4a840…4a860 30 3b 0a 20 20 20 20 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 ┆0; ans_chars:= w0; ┆
0x4a860…4a87e 20 20 20 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 ┆ w0:= 3; w1:= addres┆
0x4a87e…4a884 (0x324,0x952)
0x4a884…4a8a0 73 28 61 6e 73 5f 73 74 61 74 75 73 29 3b 0a 20 20 20 20 20 20 20 20 77 32 3a 3d 65 ┆s(ans_status); w2:=e┆
0x4a8a0…4a8c0 76 65 6e 74 3b 0a 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 ┆vent; monitor(22); ! sen┆
0x4a8c0…4a8e0 64 20 61 6e 73 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 ┆d answer ! testout(.w3.,┆
0x4a8e0…4a8fc 77 30 3a 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 ┆w0:=2,w1,w2:=60); go┆
0x4a8fc…4a902 (0x324,0x953)
0x4a902…4a920 74 6f 20 63 65 6e 74 72 61 6c 5f 77 61 69 74 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 0a 0a ┆to central_wait; end; ┆
0x4a920…4a940 20 20 20 20 65 6e 64 3b 20 21 20 6d 65 73 73 61 67 65 20 21 0a 20 20 63 6f 72 75 5f 66 6f 75 6e ┆ end; ! message ! coru_foun┆
0x4a940…4a960 64 3a 0a 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 ┆d: link(.w3.,w1,w2:=address(┆
0x4a960…4a97a 61 63 74 69 76 71 66 73 74 29 29 3b 0a 20 20 61 63 74 69 76 61 74 65 3a 0a 20 ┆activqfst)); activate: ┆
0x4a97a…4a980 (0x324,0x954)
0x4a980…4a9a0 20 20 20 77 31 3a 3d 61 64 64 72 65 73 73 28 61 63 74 69 76 71 66 73 74 29 3b 0a 20 20 20 20 69 ┆ w1:=address(activqfst); i┆
0x4a9a0…4a9c0 66 20 77 33 3a 3d 28 77 31 29 2e 63 5f 6e 65 78 74 3d 77 31 20 74 68 65 6e 20 67 6f 74 6f 20 63 ┆f w3:=(w1).c_next=w1 then goto c┆
0x4a9c0…4a9e0 65 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 77 33 3b 0a 20 ┆entral_wait; current:= w3; ┆
0x4a9e0…4aa00 20 20 20 67 65 74 5f 62 72 61 6e 63 68 65 73 28 2e 77 33 2e 2c 77 30 3a 00 00 00 00 00 00 00 00 ┆ get_branches(.w3.,w0: ┆
0x4aa00…4aa06 (597,) (0x324,0x955)
0x4aa06…4aa20 3d 28 77 33 29 2e 63 5f 6e 72 29 3b 0a 20 20 20 20 74 65 73 74 6f 75 74 28 2e ┆=(w3).c_nr); testout(.┆
0x4aa20…4aa40 77 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 3a 3d 63 75 ┆w3.,w0:=!length(prcorout),w1:=cu┆
0x4aa40…4aa60 72 72 65 6e 74 2c 77 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 ┆rrent,w2:=11); w0:= (w3).c_w┆
0x4aa60…4aa7e 30 3b 0a 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 ┆0; w1:= (w3).c_w1; w2:┆
0x4aa7e…4aa84 (0x324,0x956)
0x4aa84…4aaa0 3d 20 28 77 33 29 2e 63 5f 77 32 3b 0a 20 20 20 20 63 61 6c 6c 20 77 30 20 63 75 72 ┆= (w3).c_w2; call w0 cur┆
0x4aaa0…4aac0 72 65 6e 74 2e 63 5f 69 63 3b 0a 20 20 65 6e 64 3b 20 21 20 6d 61 69 6e 20 70 72 6f 67 72 61 6d ┆rent.c_ic; end; ! main program┆
0x4aac0…4aae0 20 21 0a 0a 0a 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 ┆ ! body of waitmess begin┆
0x4aae0…4aafc 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 ┆ incode ref return┆
0x4aafc…4ab02 (0x324,0x957)
0x4ab02…4ab20 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 ┆; begin return:=w3; ┆
0x4ab20…4ab40 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 28 77 33 29 2e ┆ w3:=b.current; (w3).┆
0x4ab40…4ab60 63 5f 77 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 ┆c_w0:=w0; (w3).c_w1:=w1; ┆
0x4ab60…4ab7a 20 20 20 20 20 28 77 33 29 2e 63 5f 69 63 3a 3d 77 30 3a 3d 72 65 74 75 72 6e ┆ (w3).c_ic:=w0:=return┆
0x4ab7a…4ab80 (0x324,0x958)
0x4ab80…4aba0 3b 0a 20 20 20 20 20 20 77 30 3a 3d 2d 31 3b 20 28 77 33 29 2e 63 5f 6d 62 75 66 3a 3d 20 77 30 ┆; w0:=-1; (w3).c_mbuf:= w0┆
0x4aba0…4abc0 3b 0a 20 20 20 20 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 ┆; link(.w3.,w1:=w3,w2:=add┆
0x4abc0…4abe0 72 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 73 74 6f 75 74 ┆ress(b.waitqfst)); testout┆
0x4abe0…4ac00 28 2e 77 33 2e 2c 77 30 3a 3d 21 6c 65 6e 67 74 68 28 63 6f 72 6f 75 74 00 00 00 00 00 00 00 00 ┆(.w3.,w0:=!length(corout ┆
0x4ac00…4ac06 (598,) (0x324,0x959)
0x4ac06…4ac20 69 6e 65 29 2c 77 31 2c 77 32 3a 3d 36 32 29 3b 0a 20 20 20 20 20 20 67 6f 74 ┆ine),w1,w2:=62); got┆
0x4ac20…4ac40 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; ! ┆
0x4ac40…4ac60 77 61 69 74 6d 65 73 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 ┆waitmess ! body of sendwait┆
0x4ac60…4ac7e 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 20 ┆ begin incode ref ┆
0x4ac7e…4ac84 (0x324,0x95a)
0x4ac84…4aca0 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 74 75 ┆return; begin retu┆
0x4aca0…4acc0 72 6e 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 20 20 20 ┆rn:=w3; w3:=b.current; ┆
0x4acc0…4ace0 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 33 29 2e 63 5f 77 ┆ (w3).c_w1:=w1; (w3).c_w┆
0x4ace0…4acfc 32 3a 3d 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 ┆2:=w2; w3:=w2; w┆
0x4acfc…4ad02 (0x324,0x95b)
0x4ad02…4ad20 32 3a 3d 28 77 32 3a 3d 62 2e 63 75 72 72 65 6e 74 29 2e 63 5f 6e 72 3b 20 20 21 20 6d 65 ┆2:=(w2:=b.current).c_nr; ! me┆
0x4ad20…4ad40 73 73 61 67 65 20 66 6c 61 67 20 3d 20 63 5f 6e 72 20 21 0a 20 20 20 20 20 20 6d 6f 6e 69 74 6f ┆ssage flag = c_nr ! monito┆
0x4ad40…4ad60 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 20 77 ┆r(16); ! send message ! w┆
0x4ad60…4ad7a 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 ┆1:=b.current; (w1).c┆
0x4ad7a…4ad80 (0x324,0x95c)
0x4ad80…4ada0 5f 6d 62 75 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 ┆_mbuf:=w2; (w1).c_ic:=w0:=┆
0x4ada0…4adc0 72 65 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 3d 61 ┆return; link(.w3.,w1,w2:=a┆
0x4adc0…4ade0 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 65 73 ┆ddress(b.answerqfst)); tes┆
0x4ade0…4ae00 74 6f 75 74 28 2e 77 33 2e 2c 77 30 3a 3d 38 2c 77 31 3a 3d 28 77 33 29 00 00 00 00 00 00 00 00 ┆tout(.w3.,w0:=8,w1:=(w3) ┆
0x4ae00…4ae06 (599,) (0x324,0x95d)
0x4ae06…4ae20 2e 63 5f 77 31 2c 77 32 3a 3d 36 33 29 3b 0a 20 20 20 20 20 20 67 6f 74 6f 20 ┆.c_w1,w2:=63); goto ┆
0x4ae20…4ae40 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 20 21 20 73 ┆b.activate; end; end; ! s┆
0x4ae40…4ae60 65 6e 64 77 61 69 74 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 ┆endwait ! body of wait_stat┆
0x4ae60…4ae7e 75 73 0a 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 ┆us begin comment link callin┆
0x4ae7e…4ae84 (0x324,0x95e)
0x4ae84…4aea0 67 20 28 66 70 72 29 20 63 6f 72 6f 75 74 69 6e 65 20 74 6f 20 69 74 27 73 20 73 74 ┆g (fpr) coroutine to it's st┆
0x4aea0…4aec0 61 74 75 73 0a 20 20 20 20 20 20 20 20 73 65 72 76 65 72 20 3b 0a 20 20 20 20 69 6e 63 6f 64 65 ┆atus server ; incode┆
0x4aec0…4aee0 0a 20 20 20 20 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 ┆ double time:= 8'000000000┆
0x4aee0…4aefc 31 37 37 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 ┆1777777; word wait; ┆
0x4aefc…4af02 (0x324,0x95f)
0x4af02…4af20 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 ┆
0x4af20…4af40 72 65 74 75 72 6e 3a 3d 20 77 33 3b 0a 20 20 20 20 20 20 77 61 69 74 3a 3d 20 77 30 3b 0a 20 20 ┆return:= w3; wait:= w0; ┆
0x4af40…4af60 20 20 20 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 ┆ (w1:=b.current).c_ic:= w0:= ┆
0x4af60…4af7a 72 65 74 75 72 6e 3b 0a 20 20 20 20 20 20 6c 69 6e 6b 28 2e 77 33 2e 2c 77 31 ┆return; link(.w3.,w1┆
0x4af7a…4af80 (0x324,0x960)
0x4af80…4afa0 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 28 77 32 3a 3d 28 77 31 29 2e 66 70 72 5f 73 74 63 6f 72 ┆,w2:=address((w2:=(w1).fpr_stcor┆
0x4afa0…4afc0 6f 75 74 29 2e 66 70 72 5f 6e 65 78 74 29 29 3b 0a 20 20 20 20 20 20 77 31 3a 3d 20 28 77 33 29 ┆out).fpr_next)); w1:= (w3)┆
0x4afc0…4afe0 2e 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 70 72 5f 77 61 ┆.fpr_stcorout; (w1).fpr_wa┆
0x4afe0…4b000 69 74 3a 3d 20 77 30 3a 3d 20 28 77 31 29 2e 66 70 72 5f 77 61 69 74 2b 00 00 00 00 00 00 00 00 ┆it:= w0:= (w1).fpr_wait+ ┆
0x4b000…4b006 (600,) (0x324,0x961)
0x4b006…4b020 31 3b 0a 20 20 20 20 20 20 66 31 3a 3d 20 28 77 31 3a 3d 31 30 38 29 2e 64 6f ┆1; f1:= (w1:=108).do┆
0x4b020…4b040 75 62 6c 65 3b 0a 20 20 20 20 20 20 66 31 2b 74 69 6d 65 3b 0a 20 20 20 20 20 20 66 31 20 6c 73 ┆uble; f1+time; f1 ls┆
0x4b040…4b060 68 69 66 74 20 2d 31 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 ┆hift -19; w1+wait; (┆
0x4b060…4b07e 77 33 29 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 ┆w3).fpr_timer:= w1; goto┆
0x4b07e…4b084 (0x324,0x962)
0x4b084…4b0a0 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 ┆ b.activate; end; end;┆
0x4b0a0…4b0c0 20 21 20 65 6e 64 20 77 61 69 74 5f 73 74 61 74 75 73 20 21 0a 0a 0a 0a 0a 20 20 62 6f 64 79 20 ┆ ! end wait_status ! body ┆
0x4b0c0…4b0e0 6f 66 20 6c 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 ┆of link begin incode ┆
0x4b0e0…4b0fc 20 64 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 ┆ double savef1; word s┆
0x4b0fc…4b102 (0x324,0x963)
0x4b102…4b120 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 ┆avew2; ref return; b┆
0x4b120…4b140 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┆
0x4b140…4b160 65 77 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 ┆ew2:=w2; return:=w3; ┆
0x4b160…4b17a 20 21 20 72 65 6d 6f 76 65 20 71 75 65 75 65 20 65 6c 65 6d 65 6e 74 20 66 72 ┆ ! remove queue element fr┆
0x4b17a…4b180 (0x324,0x964)
0x4b180…4b1a0 6f 6d 20 61 63 74 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 ┆om actual queue ! w3:=(w1)┆
0x4b1a0…4b1c0 2e 63 5f 70 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 ┆.c_prev; (w3).c_next:=w0:=┆
0x4b1c0…4b1e0 28 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 2e 63 5f 6e 65 ┆(w1).c_next; w3:=(w1).c_ne┆
0x4b1e0…4b200 78 74 3b 0a 20 20 20 20 20 20 28 77 33 29 2e 63 5f 70 72 65 76 3a 3d 77 00 00 00 00 00 00 00 00 ┆xt; (w3).c_prev:=w ┆
0x4b200…4b206 (601,) (0x324,0x965)
0x4b206…4b220 30 3a 3d 28 77 31 29 2e 63 5f 70 72 65 76 3b 0a 20 20 20 20 20 20 21 20 6c 69 ┆0:=(w1).c_prev; ! li┆
0x4b220…4b240 6e 6b 20 75 70 20 65 6c 65 6d 65 6e 74 20 61 73 20 74 68 65 20 6c 61 73 74 20 65 6c 65 6d 65 6e ┆nk up element as the last elemen┆
0x4b240…4b260 74 20 69 6e 20 74 68 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 ┆t in the queue ! (w1).c_pr┆
0x4b260…4b27e 65 76 3a 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 ┆ev:=w3:=(w2).c_prev; (w1┆
0x4b27e…4b284 (0x324,0x966)
0x4b284…4b2a0 29 2e 63 5f 6e 65 78 74 3a 3d 77 32 3b 0a 20 20 20 20 20 20 28 77 32 29 2e 63 5f 70 ┆).c_next:=w2; (w2).c_p┆
0x4b2a0…4b2c0 72 65 76 3a 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 ┆rev:=w1; (w3).c_next:=w1; ┆
0x4b2c0…4b2e0 20 20 20 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 ┆ f1:=savef1; w2:=save┆
0x4b2e0…4b2fc 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 ┆w2; w3:=b.current; ┆
0x4b2fc…4b302 (0x324,0x967)
0x4b302…4b320 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 ┆ call w0 return; end; ┆
0x4b320…4b340 65 6e 64 3b 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 ┆end; ! link ! body of move┆
0x4b340…4b360 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┆
0x4b360…4b37a 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┆
0x4b37a…4b380 (0x324,0x968)
0x4b380…4b3a0 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 6e 0a 20 20 ┆; ref return; begin ┆
0x4b3a0…4b3c0 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 3d 77 32 ┆ savef1:=f1; savew2:=w2┆
0x4b3c0…4b3e0 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 77 33 3a 3d 77 31 ┆; return:=w3; w3:=w1┆
0x4b3e0…4b400 2b 77 30 3b 0a 20 20 20 20 20 20 77 68 69 6c 65 20 77 31 20 3c 20 77 33 00 00 00 00 00 00 00 00 ┆+w0; while w1 < w3 ┆
0x4b400…4b406 (602,) (0x324,0x969)
0x4b406…4b420 20 64 6f 0a 20 20 20 20 20 20 62 65 67 69 6e 20 20 21 20 6d 6f 76 65 20 66 72 ┆ do begin ! move fr┆
0x4b420…4b440 6f 6d 20 77 31 20 74 6f 20 77 32 2c 20 6f 6e 65 20 77 6f 72 64 20 61 74 20 61 20 74 69 6d 65 20 ┆om w1 to w2, one word at a time ┆
0x4b440…4b460 21 0a 20 20 20 20 20 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 ┆! (w2).word:=w0:=(w1).wo┆
0x4b460…4b47e 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 2b 32 ┆rd; w1+2; w2+2┆
0x4b47e…4b484 (0x324,0x96a)
0x4b484…4b4a0 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 66 31 3a 3d 73 61 76 65 66 ┆; end; f1:=savef┆
0x4b4a0…4b4c0 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 33 3a 3d 62 ┆1; w2:=savew2; w3:=b┆
0x4b4c0…4b4e0 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; ┆
0x4b4e0…4b4fc 20 20 20 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 ┆ end; end; ! move ! ┆
0x4b4fc…4b502 (0x324,0x96b)
0x4b502…4b520 0a 20 20 62 6f 64 79 20 6f 66 20 6f 70 6d 65 73 73 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 ┆ body of opmess begin ┆
0x4b520…4b540 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 2c 73 61 76 65 66 ┆incode double savef1,savef┆
0x4b540…4b560 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 0a 20 20 20 20 62 65 ┆3; text(14) parent; be┆
0x4b560…4b57a 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 ┆gin savef1:=f1; ┆
0x4b57a…4b580 (0x324,0x96c)
0x4b580…4b5a0 20 20 73 61 76 65 66 33 3a 3d 66 33 3b 0a 20 20 20 20 20 20 77 31 3a 3d 62 2e 70 72 69 6d 6f 2b ┆ savef3:=f3; w1:=b.primo+┆
0x4b5a0…4b5c0 35 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 3d 28 77 ┆50; move(.w3.,w0:=8,w1:=(w┆
0x4b5c0…4b5e0 31 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 74 29 29 3b 0a ┆1).word+2,w2:=address(parent)); ┆
0x4b5e0…4b600 20 20 20 20 20 20 77 33 3a 3d 77 32 3b 0a 20 20 20 20 20 20 66 31 3a 3d 00 00 00 00 00 00 00 00 ┆ w3:=w2; f1:= ┆
0x4b600…4b606 (603,) (0x324,0x96d)
0x4b606…4b620 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 3b ┆savef1; monitor(16);┆
0x4b620…4b640 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 21 0a 20 20 20 ┆ ! send message to parent ! ┆
0x4b640…4b660 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 29 3b 0a 20 20 ┆ w1:=address(b.ans_status); ┆
0x4b660…4b67e 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 73 77 65 ┆ monitor(18); ! wait answe┆
0x4b67e…4b684 (0x324,0x96e)
0x4b684…4b6a0 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 20 20 20 ┆r ! f1:=savef1; ┆
0x4b6a0…4b6c0 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 20 20 21 20 6f ┆f3:=savef3; end; end; ! o┆
0x4b6c0…4b6e0 70 6d 65 73 73 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 ┆pmess ! body of get_branche┆
0x4b6e0…4b6fc 73 0a 20 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 ┆s comment get overlay code┆
0x4b6fc…4b702 (0x324,0x96f)
0x4b702…4b720 20 6e 65 63 65 73 73 61 72 79 20 74 6f 20 65 78 65 63 75 74 65 20 63 6f 72 6f 75 74 69 6e ┆ necessary to execute coroutin┆
0x4b720…4b740 65 3b 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 6c 61 62 65 6c 20 64 69 73 63 65 72 72 6f 72 3b 0a ┆e; begin label discerror; ┆
0x4b740…4b760 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 31 3b 0a ┆ incode double savef1; ┆
0x4b760…4b77a 20 20 20 20 20 20 77 6f 72 64 20 73 61 76 65 77 32 3b 20 72 65 66 20 72 65 74 ┆ word savew2; ref ret┆
0x4b77a…4b780 (0x324,0x970)
0x4b780…4b7a0 75 72 6e 3b 0a 20 20 20 20 20 20 77 6f 72 64 20 6c 61 73 74 63 6f 72 75 74 79 70 65 3a 3d 20 2d ┆urn; word lastcorutype:= -┆
0x4b7a0…4b7c0 31 2c 20 63 75 72 72 63 6f 72 75 74 79 70 65 3b 0a 20 20 20 20 20 20 62 79 74 65 20 6f 70 3a 3d ┆1, currcorutype; byte op:=┆
0x4b7c0…4b7e0 20 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 78 74 28 36 29 ┆ 2, mode:= 8'1001; text(6)┆
0x4b7e0…4b800 20 74 5f 73 74 61 74 75 73 3a 3d 20 22 73 74 61 74 75 73 22 3b 0a 20 20 00 00 00 00 00 00 00 00 ┆ t_status:= "status"; ┆
0x4b800…4b806 (604,) (0x324,0x971)
0x4b806…4b820 20 20 20 20 77 6f 72 64 20 73 74 61 74 75 73 3b 0a 20 20 20 20 20 20 74 65 78 ┆ word status; tex┆
0x4b820…4b840 74 28 31 31 29 20 74 5f 70 72 6f 67 6e 61 6d 65 3b 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 ┆t(11) t_progname; begin ┆
0x4b840…4b860 20 20 73 61 76 65 66 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 ┆ savef1:= f1; savew2:= w2; retu┆
0x4b860…4b87e 72 6e 3a 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 ┆rn:= w3; w3:= 0; f0//10┆
0x4b87e…4b884 (0x324,0x972)
0x4b884…4b8a0 30 3b 0a 20 20 20 20 20 20 63 75 72 72 63 6f 72 75 74 79 70 65 3a 3d 20 77 30 3b 0a ┆0; currcorutype:= w0; ┆
0x4b8a0…4b8c0 0a 20 20 20 20 20 20 69 66 20 77 30 3c 3e 6c 61 73 74 63 6f 72 75 74 79 70 65 20 74 68 65 6e 0a ┆ if w0<>lastcorutype then ┆
0x4b8c0…4b8e0 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 3e 3d 32 20 74 68 65 ┆ begin if w0>=2 the┆
0x4b8e0…4b8fc 6e 20 21 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 ┆n ! dev corout ! if ┆
0x4b8fc…4b902 (0x324,0x973)
0x4b902…4b920 77 30 3a 3d 6c 61 73 74 63 6f 72 75 74 79 70 65 3c 32 20 74 68 65 6e 0a 20 20 20 20 20 20 ┆w0:=lastcorutype<2 then ┆
0x4b920…4b940 20 20 62 65 67 69 6e 20 21 20 74 72 61 6e 73 70 6f 72 74 20 63 6f 72 6f 75 74 69 6e 65 20 70 72 ┆ begin ! transport coroutine pr┆
0x4b940…4b960 6f 63 65 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 ┆ocedures ! !get 5; ┆
0x4b960…4b97a 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 ┆ if w0<>1 then goto ┆
0x4b97a…4b980 (0x324,0x974)
0x4b980…4b9a0 64 69 73 63 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 20 20 20 ┆discerror; end; ┆
0x4b9a0…4b9c0 63 61 73 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 20 20 20 ┆case w1:= currcorutype+1 of ┆
0x4b9c0…4b9e0 20 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 20 21 20 61 70 ┆ begin !get 3; ! ap┆
0x4b9e0…4ba00 6c 20 69 6e 74 65 72 66 61 63 65 20 21 0a 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆l interface ! ┆
0x4ba00…4ba06 (605,) (0x324,0x975)
0x4ba06…4ba20 21 67 65 74 20 34 3b 20 21 20 6f 70 72 20 69 6e 74 65 72 66 61 63 65 20 21 0a ┆!get 4; ! opr interface ! ┆
0x4ba20…4ba40 20 20 20 20 20 20 20 20 20 20 21 67 65 74 20 36 3b 20 21 20 70 72 69 6e 74 65 72 20 21 0a 20 20 ┆ !get 6; ! printer ! ┆
0x4ba40…4ba60 20 20 20 20 20 20 20 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 ┆ !get 7; ! punch ! ┆
0x4ba60…4ba7e 20 20 20 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 ┆ !get 8; ! reader ! ┆
0x4ba7e…4ba84 (0x324,0x976)
0x4ba84…4baa0 20 20 20 21 67 65 74 20 38 3b 20 21 20 63 61 72 64 72 2e 20 2c 20 75 73 65 73 20 72 ┆ !get 8; ! cardr. , uses r┆
0x4baa0…4bac0 65 61 64 65 72 20 63 6f 72 6f 75 74 20 21 0a 20 20 20 20 20 20 20 20 20 20 21 67 65 74 20 39 3b ┆eader corout ! !get 9;┆
0x4bac0…4bae0 20 21 20 74 74 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 ┆ ! tty ! !get 10; ! fo┆
0x4bae0…4bafc 72 6d 61 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 ┆rmat printer ! end; ┆
0x4bafc…4bb02 (0x324,0x977)
0x4bb02…4bb20 21 74 65 73 74 20 31 31 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3c 3e 31 20 74 68 65 ┆!test 11; if w0<>1 the┆
0x4bb20…4bb40 6e 20 67 6f 74 6f 20 64 69 73 63 65 72 72 6f 72 3b 0a 20 20 20 20 20 20 20 20 6c 61 73 74 63 6f ┆n goto discerror; lastco┆
0x4bb40…4bb60 72 75 74 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 ┆rutype:= w0:= currcorutype; ┆
0x4bb60…4bb7a 20 20 65 6e 64 3b 0a 0a 20 20 20 20 20 20 69 66 20 77 32 3a 3d 62 2e 63 75 72 ┆ end; if w2:=b.cur┆
0x4bb7a…4bb80 (0x324,0x978)
0x4bb80…4bba0 72 65 6e 74 3e 30 20 74 68 65 6e 0a 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 32 29 2e 63 5f ┆rent>0 then if w0:=(w2).c_┆
0x4bba0…4bbc0 69 63 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 63 61 ┆ic=0 then begin ca┆
0x4bbc0…4bbe0 73 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 20 20 20 20 20 ┆se w1:= currcorutype+1 of ┆
0x4bbe0…4bc00 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 61 70 70 6c 5f 69 00 00 00 00 00 00 00 00 ┆ begin appl_i ┆
0x4bc00…4bc06 (606,) (0x324,0x979)
0x4bc06…4bc20 6e 74 65 72 66 61 63 65 28 2e 77 33 2e 29 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆nterface(.w3.); ┆
0x4bc20…4bc40 6f 70 65 72 61 74 6f 72 28 2e 77 33 2e 29 3b 0a 20 20 20 20 20 20 20 20 20 20 70 72 28 2e 77 33 ┆operator(.w3.); pr(.w3┆
0x4bc40…4bc60 2e 29 3b 0a 20 20 20 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 ┆.); pc(.w3.); ┆
0x4bc60…4bc7e 20 20 72 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 ┆ rd(.w3.); rd(.w3.)┆
0x4bc7e…4bc84 (0x324,0x97a)
0x4bc84…4bca0 3b 0a 20 20 20 20 20 20 20 20 20 20 74 77 28 2e 77 33 2e 29 3b 0a 20 20 20 20 20 20 ┆; tw(.w3.); ┆
0x4bca0…4bcc0 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 30 3a 3d 28 77 32 ┆ begin if w0:=(w2┆
0x4bcc0…4bce0 29 2e 63 5f 6e 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 ┆).c_nr<751 then fpr(.w3.) else ┆
0x4bce0…4bcfc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x4bcfc…4bd02 (0x324,0x97b)
0x4bd02…4bd20 20 20 20 20 20 20 20 20 20 66 70 72 5f 69 6e 28 2e 77 33 2e 29 3b 0a 20 20 20 20 20 20 20 ┆ fpr_in(.w3.); ┆
0x4bd20…4bd40 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 28 77 32 ┆ end; end; (w2┆
0x4bd40…4bd60 29 2e 63 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 ┆).c_ic:= w3; !test 12; end┆
0x4bd60…4bd7a 3b 0a 0a 0a 20 20 20 20 20 20 66 31 3a 3d 20 73 61 76 65 66 31 3b 0a 20 20 20 ┆; f1:= savef1; ┆
0x4bd7a…4bd80 (0x324,0x97c)
0x4bd80…4bda0 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 75 72 ┆ w2:= savew2; w3:= b.cur┆
0x4bda0…4bdc0 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 0a 0a 64 69 ┆rent; call w0 return; di┆
0x4bdc0…4bde0 73 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 0a 20 20 20 20 ┆scerror: status:= w0; ┆
0x4bde0…4be00 20 20 6d 6f 76 65 28 2e 77 33 2e 2c 77 30 3a 3d 38 2c 77 31 3a 3d 77 33 00 00 00 00 00 00 00 00 ┆ move(.w3.,w0:=8,w1:=w3 ┆
0x4be00…4be06 (607,) (0x324,0x97d)
0x4be06…4be20 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 74 5f 70 72 6f 67 6e 61 6d 65 29 29 3b ┆,w2:=address(t_progname));┆
0x4be20…4be40 0a 20 20 20 20 20 20 77 31 3a 3d 20 61 64 64 72 65 73 73 28 6f 70 29 3b 0a 20 20 20 20 20 20 6f ┆ w1:= address(op); o┆
0x4be40…4be60 70 6d 65 73 73 28 2e 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 ┆pmess(.w3.,w1); end; end; ┆
0x4be60…4be7e 21 20 67 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 ┆! get branches ! body of ┆
0x4be7e…4be84 (0x324,0x97e)
0x4be84…4bea0 63 6f 70 79 61 6e 73 77 65 72 0a 20 20 63 6f 6d 6d 65 6e 74 20 61 6e 73 77 65 72 20 ┆copyanswer comment answer ┆
0x4bea0…4bec0 6f 70 65 72 61 74 69 6f 6e 3a 0a 20 20 20 20 20 20 20 20 20 20 63 6f 70 79 20 64 61 74 61 20 61 ┆operation: copy data a┆
0x4bec0…4bee0 72 65 61 20 69 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 ┆rea into sender send a┆
0x4bee0…4befc 6e 73 77 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 ┆nswer ; begin incode ┆
0x4befc…4bf02 (0x324,0x97f)
0x4bf02…4bf20 20 20 20 20 20 77 6f 72 64 20 72 65 73 77 30 2c 20 73 61 76 65 77 30 2c 73 61 76 65 77 32 ┆ word resw0, savew0,savew2┆
0x4bf20…4bf40 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 21 20 67 65 6e ┆; ref return; ! gen┆
0x4bf40…4bf60 65 72 61 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 ┆eral copy params ! word gc┆
0x4bf60…4bf7a 5f 66 75 6e 63 3a 3d 20 31 33 3b 20 21 20 66 72 6f 6d 20 6d 65 20 74 6f 20 73 ┆_func:= 13; ! from me to s┆
0x4bf7a…4bf80 (0x324,0x980)
0x4bf80…4bfa0 65 6e 64 65 72 20 21 0a 20 20 20 20 20 20 72 65 66 20 67 63 5f 66 69 72 73 74 2c 20 67 63 5f 6c ┆ender ! ref gc_first, gc_l┆
0x4bfa0…4bfc0 61 73 74 3b 0a 20 20 20 20 20 20 77 6f 72 64 20 67 63 5f 72 65 6c 3a 3d 20 30 3b 0a 20 20 20 20 ┆ast; word gc_rel:= 0; ┆
0x4bfc0…4bfe0 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 32 3a ┆begin savew0:= w0; savew2:┆
0x4bfe0…4c000 3d 20 77 32 3b 20 72 65 74 75 72 6e 3a 3d 20 77 33 3b 0a 0a 20 20 20 20 00 00 00 00 00 00 00 00 ┆= w2; return:= w3; ┆
0x4c000…4c006 (608,) (0x324,0x981)
0x4c006…4c020 20 20 67 63 5f 66 69 72 73 74 3a 3d 20 77 30 3b 20 67 63 5f 6c 61 73 74 3a 3d ┆ gc_first:= w0; gc_last:=┆
0x4c020…4c040 20 77 31 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 ┆ w1; w1:= address(gc_func)┆
0x4c040…4c060 3b 0a 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 ┆; monitor(84); ! general c┆
0x4c060…4c07e 6f 70 79 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 ┆opy ! resw0:= w0; ┆
0x4c07e…4c084 (0x324,0x982)
0x4c084…4c0a0 69 66 20 77 30 3d 32 20 74 68 65 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 20 21 20 73 ┆if w0=2 then begin ! s┆
0x4c0a0…4c0c0 74 6f 70 70 65 64 20 21 0a 20 20 20 20 20 20 20 20 62 2e 61 6e 73 5f 73 74 61 74 75 73 3a 3d 20 ┆topped ! b.ans_status:= ┆
0x4c0c0…4c0e0 77 30 3a 3d 20 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 ┆w0:= 8'00000400; w0:= 1;┆
0x4c0e0…4c0fc 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 20 20 ┆ end else ┆
0x4c0fc…4c102 (0x324,0x983)
0x4c102…4c120 69 66 20 77 30 3d 33 20 74 68 65 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 20 21 20 75 6e 69 ┆if w0=3 then begin ! uni┆
0x4c120…4c140 6e 74 65 6c 2c 20 70 61 72 61 6d 20 65 72 72 6f 72 20 21 0a 20 20 20 20 20 20 65 6e 64 0a 20 20 ┆ntel, param error ! end ┆
0x4c140…4c160 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 62 2e 61 ┆ else begin b.a┆
0x4c160…4c17a 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 ┆ns_status:= w0:= 0; ┆
0x4c17a…4c180 (0x324,0x984)
0x4c180…4c1a0 20 20 62 2e 61 6e 73 5f 62 79 74 65 73 3a 3d 20 77 31 3b 0a 20 20 20 20 20 20 20 20 77 30 3a 3d ┆ b.ans_bytes:= w1; w0:=┆
0x4c1a0…4c1c0 20 77 31 3b 0a 20 20 20 20 20 20 20 20 62 2e 61 6e 73 5f 63 68 61 72 73 3a 3d 20 77 31 20 61 73 ┆ w1; b.ans_chars:= w1 as┆
0x4c1c0…4c1e0 68 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 75 74 28 2e 77 ┆hift -1 + w0; testout(.w┆
0x4c1e0…4c200 33 2e 2c 77 30 2c 77 31 3a 3d 73 61 76 65 77 30 2c 77 32 3a 3d 36 36 29 00 00 00 00 00 00 00 00 ┆3.,w0,w1:=savew0,w2:=66) ┆
0x4c200…4c206 (609,) (0x324,0x985)
0x4c206…4c220 3b 0a 20 20 20 20 20 20 20 20 77 30 3a 3d 20 31 3b 0a 20 20 20 20 20 20 65 6e ┆; w0:= 1; en┆
0x4c220…4c240 64 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 74 ┆d; w1:= address(b.ans_stat┆
0x4c240…4c260 75 73 29 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 6d 6f ┆us); w2:= savew2; mo┆
0x4c260…4c27e 6e 69 74 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 ┆nitor(22); ! send answer ! ┆
0x4c27e…4c284 (0x324,0x986)
0x4c284…4c2a0 20 20 20 74 65 73 74 6f 75 74 28 2e 77 33 2e 2c 77 30 3a 3d 36 2c 77 31 2c 77 32 3a ┆ testout(.w3.,w0:=6,w1,w2:┆
0x4c2a0…4c2c0 3d 36 31 29 3b 0a 20 20 20 20 20 20 77 30 3a 3d 20 72 65 73 77 30 3b 20 77 31 3a 3d 20 62 2e 61 ┆=61); w0:= resw0; w1:= b.a┆
0x4c2c0…4c2e0 6e 73 5f 62 79 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 ┆ns_bytes; w2:= savew2; w3:┆
0x4c2e0…4c2fc 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 ┆= b.current; call w0 r┆
0x4c2fc…4c302 (0x324,0x987)
0x4c302…4c320 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 6f 70 79 20 ┆eturn; end; end; ! copy ┆
0x4c320…4c340 61 6e 73 77 65 72 20 21 0a 0a 0a 0a 20 20 62 6f 64 79 20 6f 66 20 6f 75 74 74 69 6d 65 0a 20 20 ┆answer ! body of outtime ┆
0x4c340…4c360 62 65 67 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 ┆begin record timetext(word h┆
0x4c360…4c37a 6f 75 72 74 78 74 2c 6d 69 6e 75 74 65 74 78 74 29 3b 0a 20 20 20 20 69 6e 63 ┆ourtxt,minutetxt); inc┆
0x4c37a…4c380 (0x324,0x988)
0x4c380…4c3a0 6f 64 65 0a 20 20 20 20 20 20 77 6f 72 64 20 64 61 79 73 69 7a 65 3a 3d 31 36 38 37 35 30 30 2c ┆ode word daysize:=1687500,┆
0x4c3a0…4c3c0 68 6f 75 72 73 69 7a 65 3a 3d 37 30 33 31 33 2c 6d 69 6e 75 74 65 73 69 7a 65 3a 3d 31 31 37 32 ┆hoursize:=70313,minutesize:=1172┆
0x4c3c0…4c3e0 3b 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 20 20 20 20 20 ┆; ref return,bufref; ┆
0x4c3e0…4c400 20 64 6f 75 62 6c 65 20 73 61 76 65 66 31 3b 0a 20 20 20 20 62 65 67 69 00 00 00 00 00 00 00 00 ┆ double savef1; begi ┆
0x4c400…4c406 (610,) (0x324,0x989)
0x4c406…4c420 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 ┆n savef1:=f1; ┆
0x4c420…4c440 62 75 66 72 65 66 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 ┆bufref:=w2; return:=w3; ┆
0x4c440…4c460 20 20 20 20 66 33 3a 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 ┆ f3:=(w3:=108).double lshift ┆
0x4c460…4c47e 2d 39 20 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 ┆-9 // daysize; ! w3:=dayno ! ┆
0x4c47e…4c484 (0x324,0x98a)
0x4c484…4c4a0 20 20 20 20 20 66 31 20 6c 73 68 69 66 74 20 2d 31 30 30 3b 20 21 20 30 20 21 0a 20 ┆ f1 lshift -100; ! 0 ! ┆
0x4c4a0…4c4c0 20 20 20 20 20 66 32 20 2f 2f 20 68 6f 75 72 73 69 7a 65 3b 20 21 20 77 32 3a 3d 68 6f 75 72 20 ┆ f2 // hoursize; ! w2:=hour ┆
0x4c4c0…4c4e0 21 0a 20 20 20 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 ┆! f1 // minutesize; ! w1:=┆
0x4c4e0…4c4fc 6d 69 6e 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 ┆minute ! w0:=0; ┆
0x4c4fc…4c502 (0x324,0x98b)
0x4c502…4c520 66 31 20 2f 2f 20 31 30 3b 0a 20 20 20 20 20 20 62 75 66 72 65 66 2e 6d 69 6e 75 74 65 74 ┆f1 // 10; bufref.minutet┆
0x4c520…4c540 78 74 3a 3d 77 31 20 2b 20 34 38 20 6c 73 68 69 66 74 20 38 20 2b 20 77 30 20 2b 20 34 38 20 6c ┆xt:=w1 + 48 lshift 8 + w0 + 48 l┆
0x4c540…4c560 73 68 69 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 ┆shift 8 + 32; w1:=0; ┆
0x4c560…4c57a 20 66 32 20 2f 2f 20 31 30 3b 0a 20 20 20 20 20 20 62 75 66 72 65 66 2e 68 6f ┆ f2 // 10; bufref.ho┆
0x4c57a…4c580 (0x324,0x98c)
0x4c580…4c5a0 75 72 74 78 74 3a 3d 77 32 20 2b 20 34 38 20 6c 73 68 69 66 74 20 38 20 2b 20 77 31 20 2b 20 34 ┆urtxt:=w2 + 48 lshift 8 + w1 + 4┆
0x4c5a0…4c5c0 38 20 6c 73 68 69 66 74 20 38 20 2b 20 34 36 3b 0a 20 20 20 20 20 20 66 31 3a 3d 73 61 76 65 66 ┆8 lshift 8 + 46; f1:=savef┆
0x4c5c0…4c5e0 31 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 77 33 3a 3d 72 ┆1; w2:=bufref; w3:=r┆
0x4c5e0…4c600 65 74 75 72 6e 3b 0a 20 20 20 20 65 6e 64 3b 0a 20 20 65 6e 64 3b 0a 0a 00 00 00 00 00 00 00 00 ┆eturn; end; end; ┆
0x4c600…4c606 (611,) (0x324,0x98d)
0x4c606…4c620 0a 20 20 62 6f 64 79 20 6f 66 20 74 65 73 74 6f 75 74 0a 20 20 62 65 67 69 6e ┆ body of testout begin┆
0x4c620…4c640 0a 20 20 20 20 6c 61 62 65 6c 20 63 6c 6f 73 65 3b 0a 20 20 20 20 72 65 63 6f 72 64 20 64 75 6d ┆ label close; record dum┆
0x4c640…4c660 70 0a 20 20 20 20 20 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 ┆p (word reg0,reg1,r┆
0x4c660…4c67e 65 67 32 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 ┆eg2,reg3,exreg,instr,cause,sbr┆
0x4c67e…4c684 (0x324,0x98e)
0x4c684…4c6a0 65 67 29 3b 0a 20 20 20 20 72 65 63 6f 72 64 20 74 65 73 74 68 65 61 64 0a 20 20 20 ┆eg); record testhead ┆
0x4c6a0…4c6c0 20 20 20 20 20 20 20 20 20 20 28 62 79 74 65 20 72 65 63 6c 65 6e 67 74 68 2c 72 65 63 6b 69 6e ┆ (byte reclength,reckin┆
0x4c6c0…4c6e0 64 3b 0a 20 20 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 ┆d; word time,testr┆
0x4c6e0…4c6fc 65 66 29 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 ┆ef); incode word b┆
0x4c6fc…4c702 (0x324,0x98f)
0x4c702…4c720 75 66 72 65 6c 3a 3d 30 3b 0a 20 20 20 20 20 20 72 65 66 20 72 65 74 75 72 6e 3b 0a 20 20 ┆ufrel:=0; ref return; ┆
0x4c720…4c740 20 20 20 20 64 6f 75 62 6c 65 20 73 61 76 65 66 31 3b 0a 20 20 20 20 20 20 61 72 72 61 79 20 28 ┆ double savef1; array (┆
0x4c740…4c760 31 3a 38 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 ┆1:8) testansw of word; wor┆
0x4c760…4c77a 64 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 ┆d savew2; begin ┆
0x4c77a…4c780 (0x324,0x990)
0x4c780…4c7a0 73 61 76 65 66 31 3a 3d 66 31 3b 0a 20 20 20 20 20 20 69 66 20 77 30 3e 35 30 30 20 74 68 65 6e ┆savef1:=f1; if w0>500 then┆
0x4c7a0…4c7c0 20 77 30 3a 3d 20 35 30 30 3b 0a 20 20 20 20 20 20 73 61 76 65 77 32 3a 3d 77 32 3b 0a 20 20 20 ┆ w0:= 500; savew2:=w2; ┆
0x4c7c0…4c7e0 20 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 3d 62 2e 74 65 ┆ return:=w3; if w3:=b.te┆
0x4c7e0…4c800 73 74 6d 66 73 74 20 3c 20 62 2e 74 65 73 74 6d 6c 61 73 74 20 74 68 65 00 00 00 00 00 00 00 00 ┆stmfst < b.testmlast the ┆
0x4c800…4c806 (612,) (0x324,0x991)
0x4c806…4c820 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 20 20 21 20 69 66 20 74 65 73 74 62 75 ┆n begin ! if testbu┆
0x4c820…4c840 66 66 65 72 20 65 78 69 73 74 73 20 74 68 65 6e 20 67 65 6e 65 72 61 74 65 20 74 65 73 74 6f 75 ┆ffer exists then generate testou┆
0x4c840…4c860 74 70 75 74 20 21 0a 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 ┆tput ! if w0+bufrel+(!le┆
0x4c860…4c87e 6e 67 74 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 ┆ngth(testhead)+2) > 510 then ┆
0x4c87e…4c884 (0x324,0x992)
0x4c884…4c8a0 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 ┆ begin ! no room for ┆
0x4c8a0…4c8c0 6e 65 78 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 ┆next record so change buffer ! ┆
0x4c8c0…4c8e0 20 20 20 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 ┆ w3+bufrel; (w┆
0x4c8e0…4c8fc 33 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 ┆3).word:=w0:=-1; i┆
0x4c8fc…4c902 (0x324,0x993)
0x4c902…4c920 66 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 ┆f w2:= b.testbuf<>0 then ┆
0x4c920…4c940 20 20 20 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 ┆ begin b.testbuf┆
0x4c940…4c960 3a 3d 20 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 ┆:= w1:= 0; b.base_ev┆
0x4c960…4c97a 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 ┆ent:= w1; test┆
0x4c97a…4c980 (0x324,0x994)
0x4c980…4c9a0 61 6e 73 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 ┆answ(w1:=1); monitor┆
0x4c9a0…4c9c0 28 31 38 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 ┆(18); ! wait answer ! ┆
0x4c9c0…4c9e0 20 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 28 77 31 29 2e ┆ if w2:=1 lshift w0 or (w1).┆
0x4c9e0…4ca00 77 6f 72 64 20 3c 3e 20 32 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆word <> 2 then ┆
0x4ca00…4ca06 (613,) (0x324,0x995)
0x4ca06…4ca20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 2e 74 ┆ begin b.t┆
0x4ca20…4ca40 65 73 74 6d 6c 61 73 74 3a 3d 77 31 3a 3d 62 2e 74 65 73 74 6d 66 73 74 3b 0a 20 20 20 20 20 20 ┆estmlast:=w1:=b.testmfst; ┆
0x4ca40…4ca60 20 20 20 20 20 20 20 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 ┆ w1:= address(b.tstcomop)┆
0x4ca60…4ca7e 3b 0a 20 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 ┆; (w1).logstatus┆
0x4ca7e…4ca84 (0x324,0x996)
0x4ca84…4caa0 3a 3d 77 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 ┆:=w2; opmess(.┆
0x4caa0…4cac0 77 33 2e 2c 77 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 20 20 ┆w3.,w1); end; ┆
0x4cac0…4cae0 20 20 20 20 65 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 ┆ end; w1:= address(┆
0x4cae0…4cafc 62 2e 74 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 ┆b.testmop); w3:= a┆
0x4cafc…4cb02 (0x324,0x997)
0x4cb02…4cb20 64 64 72 65 73 73 28 62 2e 74 65 73 74 6e 61 6d 65 29 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆ddress(b.testname); ┆
0x4cb20…4cb40 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 20 21 0a 20 20 ┆monitor(16); ! send message ! ┆
0x4cb40…4cb60 20 20 20 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 ┆ b.testbuf:= w2; ! save b┆
0x4cb60…4cb7a 75 66 66 65 72 20 61 64 64 72 65 73 73 20 21 0a 20 20 20 20 20 20 20 20 20 20 ┆uffer address ! ┆
0x4cb7a…4cb80 (0x324,0x998)
0x4cb80…4cba0 69 66 20 77 31 3a 3d 62 2e 74 65 73 74 73 65 67 6d 2b 31 20 3d 20 62 2e 6d 61 78 74 65 73 74 73 ┆if w1:=b.testsegm+1 = b.maxtests┆
0x4cba0…4cbc0 65 67 6d 20 74 68 65 6e 20 77 31 3a 3d 31 3b 0a 20 20 20 20 20 20 20 20 20 20 62 2e 74 65 73 74 ┆egm then w1:=1; b.test┆
0x4cbc0…4cbe0 73 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 3d 77 30 3a 3d ┆segm:=w1; bufrel:=w0:=┆
0x4cbe0…4cc00 30 3b 0a 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 20 62 2e 74 65 73 74 00 00 00 00 00 00 00 00 ┆0; w1:= b.test ┆
0x4cc00…4cc06 (614,) (0x324,0x999)
0x4cc06…4cc20 6d 66 73 74 3b 77 31 2b 35 31 32 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 ┆mfst;w1+512; if ┆
0x4cc20…4cc40 77 31 3e 3d 62 2e 74 65 73 74 6d 74 6f 70 20 74 68 65 6e 20 77 31 2d 31 30 32 34 3b 0a 20 20 20 ┆w1>=b.testmtop then w1-1024; ┆
0x4cc40…4cc60 20 20 20 20 20 20 20 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 ┆ b.testmfst:= w1; ┆
0x4cc60…4cc7e 20 20 77 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 ┆ w1+510;b.testmlast:= w1; ┆
0x4cc7e…4cc84 (0x324,0x99a)
0x4cc84…4cca0 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 66 31 3a 3d 73 61 76 65 66 31 ┆ end; f1:=savef1┆
0x4cca0…4ccc0 3b 0a 20 20 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 ┆; if w0>500 then w0:= 50┆
0x4ccc0…4cce0 30 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 20 20 77 ┆0; w2:=savew2; w┆
0x4cce0…4ccfc 33 3a 3d 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 ┆3:=b.testmfst+bufrel; ┆
0x4ccfc…4cd02 (0x324,0x99b)
0x4cd02…4cd20 20 20 28 77 33 29 2e 72 65 63 6c 65 6e 67 74 68 3a 3d 77 30 2b 21 6c 65 6e 67 74 68 28 74 ┆ (w3).reclength:=w0+!length(t┆
0x4cd20…4cd40 65 73 74 68 65 61 64 29 3b 0a 20 20 20 20 20 20 20 20 28 77 33 29 2e 72 65 63 6b 69 6e 64 3a 3d ┆esthead); (w3).reckind:=┆
0x4cd40…4cd60 77 32 3b 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 ┆w2; bufrel:= w1:= bufrel┆
0x4cd60…4cd7a 2b 77 30 3b 0a 20 20 20 20 20 20 20 20 77 31 3a 3d 20 62 2e 63 75 72 72 65 6e ┆+w0; w1:= b.curren┆
0x4cd7a…4cd80 (0x324,0x99c)
0x4cd80…4cda0 74 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 31 3c 3e 30 20 74 68 65 6e 20 77 31 3a 3d 28 77 31 ┆t; if w1<>0 then w1:=(w1┆
0x4cda0…4cdc0 29 2e 63 5f 6e 72 3b 0a 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 65 73 74 72 65 66 3a 3d 77 31 ┆).c_nr; (w3).testref:=w1┆
0x4cdc0…4cde0 3b 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 66 31 3a 3d 28 ┆; w1:=108; f1:=(┆
0x4cde0…4ce00 77 31 29 2e 64 6f 75 62 6c 65 2d 62 2e 73 74 61 72 74 74 69 6d 65 20 6c 00 00 00 00 00 00 00 00 ┆w1).double-b.starttime l ┆
0x4ce00…4ce06 (615,) (0x324,0x99d)
0x4ce06…4ce20 73 68 69 66 74 20 2d 37 3b 0a 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 69 6d ┆shift -7; (w3).tim┆
0x4ce20…4ce40 65 3a 3d 77 31 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 ┆e:=w1; f1:=savef1; ┆
0x4ce40…4ce60 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 3b 0a 20 20 20 20 ┆ if w0>500 then w0:= 500; ┆
0x4ce60…4ce7e 20 20 20 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 ┆ move(.w3.,w0,w1,w2:=w3+!le┆
0x4ce7e…4ce84 (0x324,0x99e)
0x4ce84…4cea0 6e 67 74 68 28 74 65 73 74 68 65 61 64 29 29 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a ┆ngth(testhead)); end; ┆
0x4cea0…4cec0 20 20 20 20 20 20 77 32 3a 3d 73 61 76 65 77 32 3b 0a 20 20 20 20 20 20 69 66 20 77 32 3d 31 35 ┆ w2:=savew2; if w2=15┆
0x4cec0…4cee0 20 74 68 65 6e 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 ┆ then begin ! internal i┆
0x4cee0…4cefc 6e 74 65 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 ┆nterrupt ! w3:=(w1)┆
0x4cefc…4cf02 (0x324,0x99f)
0x4cf02…4cf20 2e 69 6e 73 74 72 2d 32 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 33 29 2e ┆.instr-2; if w0:=(w3).┆
0x4cf20…4cf40 77 6f 72 64 20 6c 73 68 69 66 74 20 2d 31 38 20 3d 20 35 31 20 20 21 20 6b 65 79 20 73 74 6f 72 ┆word lshift -18 = 51 ! key stor┆
0x4cf40…4cf60 65 20 21 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 ┆e ! then begin ! reesta┆
0x4cf60…4cf7a 62 6c 69 73 68 20 72 65 67 69 73 74 65 72 73 20 61 6e 64 20 63 6f 6e 74 69 6e ┆blish registers and contin┆
0x4cf7a…4cf80 (0x324,0x9a0)
0x4cf80…4cfa0 75 65 20 21 0a 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 28 77 31 29 2e 69 6e 73 74 72 3b 0a 20 ┆ue ! w0:=(w1).instr; ┆
0x4cfa0…4cfc0 20 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 3a 3d 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 77 ┆ return:=w0; w┆
0x4cfc0…4cfe0 30 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 3d 28 77 31 29 ┆0:=(w1).reg0; w2:=(w1)┆
0x4cfe0…4d000 2e 72 65 67 32 3b 0a 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 28 77 31 00 00 00 00 00 00 00 00 ┆.reg2; w3:=(w1 ┆
0x4d000…4d006 (616,) (0x324,0x9a1)
0x4d006…4d020 29 2e 72 65 67 33 3b 0a 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 28 77 31 29 ┆).reg3; w1:=(w1)┆
0x4d020…4d040 2e 72 65 67 31 3b 0a 20 20 20 20 20 20 20 20 20 20 63 61 6c 6c 20 77 30 20 72 65 74 75 72 6e 3b ┆.reg1; call w0 return;┆
0x4d040…4d060 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 20 ┆ end else begin ┆
0x4d060…4d07e 20 21 20 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 ┆ ! output last segment and hal┆
0x4d07e…4d084 (0x324,0x9a2)
0x4d084…4d0a0 74 20 21 0a 63 6c 6f 73 65 3a 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 32 3a 3d ┆t ! close: if w2:=┆
0x4d0a0…4d0c0 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 20 20 62 65 67 ┆ b.testbuf<>0 then beg┆
0x4d0c0…4d0e0 69 6e 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 31 29 3b 0a ┆in testansw(w1:=1); ┆
0x4d0e0…4d0fc 20 20 20 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 ┆ monitor(18); ┆
0x4d0fc…4d102 (0x324,0x9a3)
0x4d102…4d120 20 20 20 20 20 20 20 20 20 62 2e 74 65 73 74 62 75 66 3a 3d 20 77 32 3a 3d 20 30 3b 0a 20 ┆ b.testbuf:= w2:= 0; ┆
0x4d120…4d140 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 28 77 33 3a 3d 62 2e 74 ┆ end; (w3:=b.t┆
0x4d140…4d160 65 73 74 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 ┆estmfst+bufrel).word:=w0:=-2; ┆
0x4d160…4d17a 20 20 20 20 20 20 20 20 77 33 3a 3d 61 64 64 72 65 73 73 28 62 2e 74 65 73 74 ┆ w3:=address(b.test┆
0x4d17a…4d180 (0x324,0x9a4)
0x4d180…4d1a0 6e 61 6d 65 29 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 2e 74 ┆name); w1:=address(b.t┆
0x4d1a0…4d1c0 65 73 74 6d 6f 70 29 3b 0a 20 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 31 36 29 3b 20 ┆estmop); monitor(16); ┆
0x4d1c0…4d1e0 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 6d 6f 6e 69 ┆ ! send message ! moni┆
0x4d1e0…4d200 74 6f 72 28 31 38 29 3b 20 20 21 20 77 61 69 74 20 61 6e 73 77 65 72 20 00 00 00 00 00 00 00 00 ┆tor(18); ! wait answer ┆
0x4d200…4d206 (617,) (0x324,0x9a5)
0x4d206…4d220 21 0a 20 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 31 30 29 3b 20 20 ┆! monitor(10); ┆
0x4d220…4d240 21 20 72 65 6c 65 61 73 65 20 70 72 6f 63 65 73 73 20 21 0a 20 20 20 20 20 20 20 20 65 6e 64 3b ┆! release process ! end;┆
0x4d240…4d260 0a 20 20 20 20 20 20 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 ┆ end else if w2 = 64 then ┆
0x4d260…4d27e 67 6f 74 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 ┆goto close else; f1:=sav┆
0x4d27e…4d284 (0x324,0x9a6)
0x4d284…4d2a0 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 ┆ef1; w2:=savew2; ┆
0x4d2a0…4d2c0 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 20 77 30 20 72 65 ┆ w3:=b.current; call w0 re┆
0x4d2c0…4d2e0 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 74 65 73 74 6f 75 74 ┆turn; end; end; ! testout┆
0x4d2e0…4d2fc 20 21 0a 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 ┆ ! body of push begin┆
0x4d2fc…4d302 (0x324,0x9a7)
0x4d302…4d320 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 ┆ incode ref return; ┆
0x4d320…4d340 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 62 65 67 69 6e 0a 20 ┆ double savef2; begin ┆
0x4d340…4d360 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 66 32 3a 3d ┆ return:= w3; savef2:=┆
0x4d360…4d37a 20 66 32 3b 0a 0a 20 20 20 20 20 20 77 33 3a 3d 62 2e 63 75 72 72 65 6e 74 3b ┆ f2; w3:=b.current;┆
0x4d37a…4d380 (0x324,0x9a8)
0x4d380…4d3a0 0a 20 20 20 20 20 20 77 31 3a 3d 61 64 64 72 65 73 73 28 28 77 33 29 2e 63 5f 73 74 61 63 6b 29 ┆ w1:=address((w3).c_stack)┆
0x4d3a0…4d3c0 3b 0a 20 20 20 20 20 20 77 32 3a 3d 28 77 31 29 2e 77 6f 72 64 2b 32 3b 0a 20 20 20 20 20 20 28 ┆; w2:=(w1).word+2; (┆
0x4d3c0…4d3e0 77 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 72 64 3a 3d 77 ┆w2).word:=w0; (w1).word:=w┆
0x4d3e0…4d400 32 3b 0a 20 20 20 20 20 20 66 32 3a 3d 73 61 76 65 66 32 3b 0a 20 20 20 00 00 00 00 00 00 00 00 ┆2; f2:=savef2; ┆
0x4d400…4d406 (618,) (0x324,0x9a9)
0x4d406…4d420 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┆
0x4d420…4d440 3b 0a 20 20 65 6e 64 3b 20 21 20 65 6e 64 20 70 75 73 68 20 21 0a 0a 20 20 62 6f 64 79 20 6f 66 ┆; end; ! end push ! body of┆
0x4d440…4d460 20 70 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 20 20 72 65 ┆ pop begin incode re┆
0x4d460…4d47e 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 32 3b ┆f return; double savef2;┆
0x4d47e…4d484 (0x324,0x9aa)
0x4d484…4d4a0 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 ┆ begin return:=w3;┆
0x4d4a0…4d4c0 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 0a 20 20 20 20 20 20 ┆ savef2:=f2; ┆
0x4d4c0…4d4e0 77 33 3a 3d 62 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 ┆w3:=b.current; w1:=address┆
0x4d4e0…4d4fc 28 28 77 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 ┆((w3).c_stack); w2:=(w┆
0x4d4fc…4d502 (0x324,0x9ab)
0x4d502…4d520 31 29 2e 77 6f 72 64 3b 0a 20 20 20 20 20 20 77 30 3a 3d 28 77 32 29 2e 77 6f 72 64 3b 0a ┆1).word; w0:=(w2).word; ┆
0x4d520…4d540 20 20 20 20 20 20 28 77 31 29 2e 77 6f 72 64 3a 3d 77 32 2d 32 3b 0a 20 20 20 20 20 20 66 32 3a ┆ (w1).word:=w2-2; f2:┆
0x4d540…4d560 3d 73 61 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 ┆=savef2; call w0 return; ┆
0x4d560…4d57a 20 20 20 65 6e 64 3b 0a 20 20 65 6e 64 3b 20 21 20 65 6e 64 20 70 6f 70 20 21 ┆ end; end; ! end pop !┆
0x4d57a…4d580 (0x324,0x9ac)
0x4d580…4d5a0 0a 0a 0a 0a 0a 20 20 62 6f 64 79 20 6f 66 20 63 6f 6d 70 61 72 65 0a 20 20 62 65 67 69 6e 0a 20 ┆ body of compare begin ┆
0x4d5a0…4d5c0 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 2c 20 73 61 76 ┆ incode word savew1, sav┆
0x4d5c0…4d5e0 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 69 6e ┆ew2; ref return; begin┆
0x4d5e0…4d600 0a 20 20 20 20 20 20 73 61 76 65 77 31 3a 3d 20 77 31 3b 20 73 61 76 65 00 00 00 00 00 00 00 00 ┆ savew1:= w1; save ┆
0x4d600…4d606 (619,) (0x324,0x9ad)
0x4d606…4d620 77 32 3a 3d 20 77 32 3b 20 72 65 74 75 72 6e 3a 3d 20 77 33 3b 0a 20 20 20 20 ┆w2:= w2; return:= w3; ┆
0x4d620…4d640 20 20 77 33 3a 3d 20 77 31 2b 77 30 3b 0a 20 20 20 20 20 20 77 30 3a 3d 20 30 3b 0a 20 20 20 20 ┆ w3:= w1+w0; w0:= 0; ┆
0x4d640…4d660 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 6e 0a 20 20 20 ┆ while w1<w3 do begin ┆
0x4d660…4d67e 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 20 20 77 ┆ w0:= (w1).word; w┆
0x4d67e…4d684 (0x324,0x9ae)
0x4d684…4d6a0 30 2d 28 77 32 29 2e 77 6f 72 64 3b 0a 20 20 20 20 20 20 20 20 77 31 2b 32 3b 0a 20 ┆0-(w2).word; w1+2; ┆
0x4d6a0…4d6c0 20 20 20 20 20 20 20 77 32 2b 32 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3c 3e 30 20 74 68 ┆ w2+2; if w0<>0 th┆
0x4d6c0…4d6e0 65 6e 20 77 31 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 ┆en w1:= w3; end; w1:┆
0x4d6e0…4d6fc 3d 20 73 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 ┆= savew1; w2:= savew2;┆
0x4d6fc…4d702 (0x324,0x9af)
0x4d702…4d720 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 ┆ w3:= b.current; c┆
0x4d720…4d740 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 21 ┆all w0 return; end; end; !┆
0x4d740…4d760 20 63 6f 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 ┆ compare ! body of create_t┆
0x4d760…4d77a 63 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 ┆c begin incode ┆
0x4d77a…4d780 (0x324,0x9b0)
0x4d780…4d7a0 20 64 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 61 76 65 77 ┆ double savef1; word savew┆
0x4d7a0…4d7c0 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 6e 0a 20 ┆2; ref return; begin ┆
0x4d7c0…4d7e0 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 32 3a 3d ┆ savef1:= f1; savew2:=┆
0x4d7e0…4d800 20 77 32 3b 0a 20 20 20 20 20 20 72 65 74 75 72 6e 3a 3d 20 77 33 3b 0a 00 00 00 00 00 00 00 00 ┆ w2; return:= w3; ┆
0x4d800…4d806 (620,) (0x324,0x9b1)
0x4d806…4d820 0a 20 20 20 20 20 20 77 31 3a 3d 20 28 77 33 29 2e 63 74 5f 74 63 3b 0a 20 20 ┆ w1:= (w3).ct_tc; ┆
0x4d820…4d840 20 20 20 20 77 30 3a 3d 20 30 3b 0a 20 20 20 20 20 20 28 77 31 29 2e 63 5f 69 63 3a 3d 20 77 30 ┆ w0:= 0; (w1).c_ic:= w0┆
0x4d840…4d860 3b 0a 0a 20 20 20 20 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 ┆; (w1).tc_created:= w0:= ┆
0x4d860…4d87e 31 3b 0a 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 ┆1; (w1).tc_hostno:= w0:=┆
0x4d87e…4d884 (0x324,0x9b2)
0x4d884…4d8a0 20 28 77 33 29 2e 63 74 5f 68 6f 73 74 6e 6f 3b 0a 20 20 20 20 20 20 28 77 31 29 2e ┆ (w3).ct_hostno; (w1).┆
0x4d8a0…4d8c0 74 63 5f 68 6f 73 74 69 64 3a 3d 20 77 30 3a 3d 20 28 77 33 29 2e 63 74 5f 68 6f 73 74 69 64 3b ┆tc_hostid:= w0:= (w3).ct_hostid;┆
0x4d8c0…4d8e0 0a 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 64 65 76 6e ┆ w2:= address((w1).tc_devn┆
0x4d8e0…4d8fc 61 6d 65 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 ┆ame); move(.w3.,w0:=8,┆
0x4d8fc…4d902 (0x324,0x9b3)
0x4d902…4d920 77 31 3a 3d 72 65 74 75 72 6e 2e 63 74 5f 64 65 76 6e 61 6d 65 2c 77 32 29 3b 0a 20 20 20 ┆w1:=return.ct_devname,w2); ┆
0x4d920…4d940 20 20 20 77 31 3a 3d 20 72 65 74 75 72 6e 2e 63 74 5f 74 63 3b 20 77 32 3a 3d 20 61 64 64 72 65 ┆ w1:= return.ct_tc; w2:= addre┆
0x4d940…4d960 73 73 28 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 ┆ss((w1).tc_name); w1:= ret┆
0x4d960…4d97a 75 72 6e 2e 63 74 5f 70 72 6f 63 72 65 66 3b 20 77 31 2b 32 3b 0a 20 20 20 20 ┆urn.ct_procref; w1+2; ┆
0x4d97a…4d980 (0x324,0x9b4)
0x4d980…4d9a0 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 77 31 3a ┆ move(.w3.,w0,w1,w2); w1:┆
0x4d9a0…4d9c0 3d 20 72 65 74 75 72 6e 2e 63 74 5f 74 63 3b 0a 20 20 20 20 20 20 77 32 3a 3d 20 61 64 64 72 65 ┆= return.ct_tc; w2:= addre┆
0x4d9c0…4d9e0 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 69 66 20 77 30 ┆ss((w1).tc_console); if w0┆
0x4d9e0…4da00 3a 3d 28 77 32 29 2e 77 6f 72 64 3d 30 20 74 68 65 6e 20 21 20 6e 6f 20 00 00 00 00 00 00 00 00 ┆:=(w2).word=0 then ! no ┆
0x4da00…4da06 (621,) (0x324,0x9b5)
0x4da06…4da20 6f 70 65 72 61 74 6f 72 20 21 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 ┆operator ! begin ┆
0x4da20…4da40 20 20 20 20 20 77 33 3a 3d 20 61 64 64 72 65 73 73 28 28 77 31 29 2e 74 63 5f 71 67 72 6f 75 70 ┆ w3:= address((w1).tc_qgroup┆
0x4da40…4da60 29 3b 0a 20 20 20 20 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 ┆); (w3).word:= w0; ┆
0x4da60…4da7e 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 74 79 ┆ if w0:=(w1).tc_kind=8 ! tty┆
0x4da7e…4da84 (0x324,0x9b6)
0x4da84…4daa0 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 ┆ ! then begin ┆
0x4daa0…4dac0 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 28 ┆ move(.w3.,w0:=8,w1:=address(┆
0x4dac0…4dae0 28 77 31 29 2e 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 ┆(w1).tc_name),w2); end; ┆
0x4dae0…4dafc 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 ┆ end; link(.w3.,w┆
0x4dafc…4db02 (0x324,0x9b7)
0x4db02…4db20 31 3a 3d 72 65 74 75 72 6e 2e 63 74 5f 74 63 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 62 2e ┆1:=return.ct_tc,w2:=address(b.┆
0x4db20…4db40 61 63 74 69 76 71 66 73 74 29 29 3b 0a 0a 20 20 20 20 20 20 74 65 73 74 6f 75 74 28 2e 77 33 2e ┆activqfst)); testout(.w3.┆
0x4db40…4db60 2c 77 30 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 ┆,w0:=!length(transpcorout),w1,w2┆
0x4db60…4db7a 3a 3d 35 33 29 3b 0a 20 20 20 20 20 20 66 31 3a 3d 20 73 61 76 65 66 31 3b 0a ┆:=53); f1:= savef1; ┆
0x4db7a…4db80 (0x324,0x9b8)
0x4db80…4dba0 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 20 72 65 ┆ w2:= savew2; w3:= re┆
0x4dba0…4dbc0 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 72 65 61 74 65 5f 63 ┆turn; end; end; ! create_c┆
0x4dbc0…4dbe0 74 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 20 20 62 65 67 ┆t ! body of remove_tc beg┆
0x4dbe0…4dc00 69 6e 0a 20 20 20 20 69 6e 63 6f 64 65 0a 20 20 20 20 20 20 64 6f 75 62 00 00 00 00 00 00 00 00 ┆in incode doub ┆
0x4dc00…4dc06 (622,) (0x324,0x9b9)
0x4dc06…4dc20 6c 65 20 73 61 76 65 66 31 3b 0a 20 20 20 20 20 20 74 65 78 74 20 28 31 31 29 ┆le savef1; text (11)┆
0x4dc20…4dc40 20 7a 65 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 ┆ zero := "'0''0''0'"; word┆
0x4dc40…4dc60 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 20 20 62 ┆ savew2; ref return; b┆
0x4dc60…4dc7e 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 ┆egin savef1:= f1; ┆
0x4dc7e…4dc84 (0x324,0x9ba)
0x4dc84…4dca0 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 3a 3d 20 ┆savew2:= w2; return:= ┆
0x4dca0…4dcc0 77 33 3b 0a 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 38 36 ┆w3; w0:=-8388607;w1:=83886┆
0x4dcc0…4dce0 30 35 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 29 3b 0a 20 20 ┆05; w3:= address(zero); ┆
0x4dce0…4dcfc 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 61 6c ┆ monitor(72); ! set catal┆
0x4dcfc…4dd02 (0x324,0x9bb)
0x4dd02…4dd20 6f 67 20 62 61 73 65 20 21 0a 20 20 20 20 20 20 77 33 3a 3d 20 72 65 74 75 72 6e 3b 0a 0a ┆og base ! w3:= return; ┆
0x4dd20…4dd40 20 20 20 20 20 20 77 31 3a 3d 20 28 77 33 29 2e 72 74 5f 74 63 3b 0a 20 20 20 20 20 20 77 30 3a ┆ w1:= (w3).rt_tc; w0:┆
0x4dd40…4dd60 3d 20 30 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 ┆= 0; (w1).c_mbuf:= w0; ┆
0x4dd60…4dd7a 20 20 20 28 77 31 29 2e 74 63 5f 63 72 65 61 74 65 64 3a 3d 20 77 30 3b 0a 20 ┆ (w1).tc_created:= w0; ┆
0x4dd7a…4dd80 (0x324,0x9bc)
0x4dd80…4dda0 20 20 20 20 20 77 33 3a 3d 20 61 64 64 72 65 73 73 28 28 77 31 29 2e 74 63 5f 6e 61 6d 65 29 3b ┆ w3:= address((w1).tc_name);┆
0x4dda0…4ddc0 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 3c 3e 31 35 20 74 ┆ if w0:=(w1).tc_kind<>15 t┆
0x4ddc0…4dde0 68 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 21 0a 20 20 20 ┆hen monitor(10); ! release ! ┆
0x4dde0…4de00 20 20 20 69 66 20 77 32 3a 3d 20 28 77 31 29 2e 74 63 5f 68 6f 73 74 6e 00 00 00 00 00 00 00 00 ┆ if w2:= (w1).tc_hostn ┆
0x4de00…4de06 (623,) (0x324,0x9bd)
0x4de06…4de20 6f 3c 3e 30 20 74 68 65 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 20 21 20 72 65 ┆o<>0 then begin ! re┆
0x4de20…4de40 6d 6f 74 65 20 21 0a 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 36 34 29 3b 20 21 20 72 65 ┆mote ! monitor(64); ! re┆
0x4de40…4de60 6d 6f 76 65 20 70 72 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 ┆move process ! !test 30; e┆
0x4de60…4de7e 6e 64 3b 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 ┆nd; if w0:=(w1).tc_kind=┆
0x4de7e…4de84 (0x324,0x9be)
0x4de84…4dea0 38 20 21 20 74 74 79 20 21 20 74 68 65 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 20 21 ┆8 ! tty ! then begin !┆
0x4dea0…4dec0 20 72 65 6d 6f 76 65 20 6f 70 65 72 61 74 6f 72 20 21 0a 20 20 20 20 20 20 20 20 77 32 3a 3d 20 ┆ remove operator ! w2:= ┆
0x4dec0…4dee0 61 64 64 72 65 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 ┆address((w1).tc_console); ┆
0x4dee0…4defc 20 20 28 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 ┆ (w2).word:= w0:= 0; ┆
0x4defc…4df02 (0x324,0x9bf)
0x4df02…4df20 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 63 6f 6e 73 ┆ w2:= address((w1).tc_devcons┆
0x4df20…4df40 29 3b 0a 20 20 20 20 20 20 20 20 28 77 32 29 2e 77 6f 72 64 3a 3d 20 77 30 3b 0a 20 20 20 20 20 ┆); (w2).word:= w0; ┆
0x4df40…4df60 20 65 6e 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 ┆ end; link(.w3.,w1,w2:=add┆
0x4df60…4df7a 72 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 ┆ress(b.waitqfst)); t┆
0x4df7a…4df80 (0x324,0x9c0)
0x4df80…4dfa0 65 73 74 6f 75 74 28 2e 77 33 2e 2c 77 30 3a 3d 21 6c 65 6e 67 74 68 28 70 72 63 6f 72 6f 75 74 ┆estout(.w3.,w0:=!length(prcorout┆
0x4dfa0…4dfc0 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 3b 0a ┆),w1,w2:=54); f1:=savef1; ┆
0x4dfc0…4dfe0 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 20 72 65 ┆ w2:= savew2; w3:= re┆
0x4dfe0…4e000 74 75 72 6e 3b 0a 20 20 20 20 65 6e 64 3b 0a 20 20 65 6e 64 3b 20 21 20 00 00 00 00 00 00 00 00 ┆turn; end; end; ! ┆
0x4e000…4e006 (624,) (0x324,0x9c1)
0x4e006…4e020 72 65 6d 6f 76 65 5f 74 63 20 21 0a 0a 0a 20 20 62 6f 64 79 20 6f 66 20 72 65 ┆remove_tc ! body of re┆
0x4e020…4e040 6d 6f 76 65 5f 66 70 72 0a 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 74 68 69 73 20 70 72 ┆move_fpr begin comment this pr┆
0x4e040…4e060 6f 63 65 64 75 72 65 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 ┆ocedure decreases the acces coun┆
0x4e060…4e07e 74 0a 20 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 ┆t of the associated ga┆
0x4e07e…4e084 (0x324,0x9c2)
0x4e084…4e0a0 63 5f 61 63 63 65 73 73 5f 65 6e 74 72 79 2e 20 2d 20 69 66 20 74 68 65 0a 20 20 20 ┆c_access_entry. - if the ┆
0x4e0a0…4e0c0 20 20 20 20 20 63 6f 75 6e 74 20 62 65 63 6f 6d 65 73 20 7a 65 72 6f 20 74 68 65 20 66 6f 72 6d ┆ count becomes zero the form┆
0x4e0c0…4e0e0 61 74 20 70 72 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 ┆at printer processes (ga┆
0x4e0e0…4e0fc 63 27 73 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 ┆c's) are released/possibly r┆
0x4e0fc…4e102 (0x324,0x9c3)
0x4e102…4e120 65 6d 6f 76 65 64 20 61 6e 64 20 74 68 65 0a 20 20 20 20 20 20 20 20 73 74 61 74 75 73 20 ┆emoved and the status ┆
0x4e120…4e140 68 61 6e 64 6c 69 6e 67 20 63 6f 72 6f 75 74 69 6e 65 20 69 73 20 6d 61 64 65 20 66 72 65 65 3b ┆handling coroutine is made free;┆
0x4e140…4e160 0a 20 20 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 ┆ incode ref return,fp┆
0x4e160…4e17a 72 5f 72 65 66 3b 0a 20 20 20 20 20 20 77 6f 72 64 20 73 61 76 65 77 30 2c 73 ┆r_ref; word savew0,s┆
0x4e17a…4e180 (0x324,0x9c4)
0x4e180…4e1a0 61 76 65 77 32 3b 0a 0a 20 20 20 20 62 65 67 69 6e 0a 0a 20 20 20 20 20 20 72 65 74 75 72 6e 20 ┆avew2; begin return ┆
0x4e1a0…4e1c0 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 20 ┆:= w3; fpr_ref:= w1; ┆
0x4e1c0…4e1e0 20 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 20 3a 3d 20 77 ┆ savew0 := w0; savew2 := w┆
0x4e1e0…4e200 32 3b 0a 0a 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 64 65 63 72 65 61 00 00 00 00 00 00 00 00 ┆2; comment decrea ┆
0x4e200…4e206 (625,) (0x324,0x9c5)
0x4e206…4e220 73 65 20 63 6f 75 6e 74 3b 0a 20 20 20 20 20 20 77 32 20 3a 3d 20 28 77 31 29 ┆se count; w2 := (w1)┆
0x4e220…4e240 2e 66 70 72 5f 73 74 63 6f 72 6f 75 74 3b 0a 20 20 20 20 20 20 28 77 32 29 2e 66 70 72 5f 63 6f ┆.fpr_stcorout; (w2).fpr_co┆
0x4e240…4e260 75 6e 74 20 3a 3d 20 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 ┆unt := w0 := (w2).fpr_count -1; ┆
0x4e260…4e27e 20 20 20 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 ┆ if w0 < 1 then beg┆
0x4e27e…4e284 (0x324,0x9c6)
0x4e284…4e2a0 69 6e 20 63 6f 6d 6d 65 6e 74 20 72 65 6c 65 61 73 65 2f 72 65 6d 6f 76 65 20 65 6e ┆in comment release/remove en┆
0x4e2a0…4e2c0 74 72 69 65 73 20 61 6e 64 20 66 72 65 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 73 74 61 74 75 ┆tries and free statu┆
0x4e2c0…4e2e0 73 20 68 61 6e 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 ┆s handling coroutine; li┆
0x4e2e0…4e2fc 6e 6b 28 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 ┆nk(.w3.,w1:=w2,w2:=address(b┆
0x4e2fc…4e302 (0x324,0x9c7)
0x4e302…4e320 2e 77 61 69 74 71 66 73 74 29 29 3b 0a 20 20 20 20 20 20 20 20 77 32 3a 3d 77 31 3b 77 31 ┆.waitqfst)); w2:=w1;w1┆
0x4e320…4e340 3a 3d 66 70 72 5f 72 65 66 3b 0a 20 20 20 20 20 20 20 20 77 30 20 3a 3d 20 28 77 31 29 2e 74 63 ┆:=fpr_ref; w0 := (w1).tc┆
0x4e340…4e360 5f 68 6f 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 ┆_hostid; if w0=0 then ┆
0x4e360…4e37a 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 ┆ begin comment local ┆
0x4e37a…4e380 (0x324,0x9c8)
0x4e380…4e3a0 64 65 76 69 63 65 20 2d 20 72 65 6c 65 61 73 65 20 70 72 6f 63 65 73 73 65 73 3b 0a 20 20 20 20 ┆device - release processes; ┆
0x4e3a0…4e3c0 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 72 6f 63 69 ┆ w3:=address((w2).fpr_proci┆
0x4e3c0…4e3e0 6e 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 20 20 20 20 20 ┆n); monitor(10); ┆
0x4e3e0…4e400 20 20 20 20 20 77 33 3a 3d 61 64 64 72 65 73 73 28 28 77 32 29 2e 66 70 00 00 00 00 00 00 00 00 ┆ w3:=address((w2).fp ┆
0x4e400…4e406 (626,) (0x324,0x9c9)
0x4e406…4e420 72 5f 70 72 6f 63 6f 75 74 29 3b 0a 20 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 ┆r_procout); moni┆
0x4e420…4e440 74 6f 72 28 31 30 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 ┆tor(10); end else ┆
0x4e440…4e460 20 20 62 65 67 69 6e 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 ┆ begin comment remote device - ┆
0x4e460…4e47e 72 65 6d 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 ┆remove processes; w3┆
0x4e47e…4e484 (0x324,0x9ca)
0x4e484…4e4a0 3a 3d 61 64 64 72 65 73 73 28 28 77 32 29 2e 66 70 72 5f 70 72 6f 63 69 6e 29 3b 0a ┆:=address((w2).fpr_procin); ┆
0x4e4a0…4e4c0 20 20 20 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 20 ┆ monitor(64); ┆
0x4e4c0…4e4e0 20 77 33 3a 3d 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 ┆ w3:=address((w2).fpr_procout); ┆
0x4e4e0…4e4fc 20 20 20 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 ┆ monitor(64); ┆
0x4e4fc…4e502 (0x324,0x9cb)
0x4e502…4e520 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 77 33 3a 3d 20 61 64 64 72 65 73 73 28 28 ┆ end; w3:= address((┆
0x4e520…4e540 77 32 29 2e 66 70 72 5f 67 61 63 6f 75 74 29 3b 0a 20 20 20 20 20 20 20 20 28 77 33 29 2e 77 6f ┆w2).fpr_gacout); (w3).wo┆
0x4e540…4e560 72 64 3a 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 ┆rd:= w0:= 0; end; t┆
0x4e560…4e57a 65 73 74 6f 75 74 28 2e 77 33 2e 2c 77 30 3a 3d 21 6c 65 6e 67 74 68 28 66 70 ┆estout(.w3.,w0:=!length(fp┆
0x4e57a…4e580 (0x324,0x9cc)
0x4e580…4e5a0 72 69 6e 63 6f 72 6f 75 74 29 2c 77 31 3a 3d 77 32 2c 77 32 3a 3d 35 34 29 3b 0a 0a 20 20 20 20 ┆rincorout),w1:=w2,w2:=54); ┆
0x4e5a0…4e5c0 20 20 77 30 3a 3d 20 73 61 76 65 77 30 3b 0a 20 20 20 20 20 20 77 32 3a 3d 20 73 61 76 65 77 32 ┆ w0:= savew0; w2:= savew2┆
0x4e5c0…4e5e0 3b 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 20 77 33 3a 3d ┆; w1:= fpr_ref; w3:=┆
0x4e5e0…4e600 20 62 2e 63 75 72 72 65 6e 74 3b 0a 20 20 20 20 20 20 63 61 6c 6c 20 77 00 00 00 00 00 00 00 00 ┆ b.current; call w ┆
0x4e600…4e606 (627,) (0x324,0x9cd)
0x4e606…4e620 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; ┆
0x4e620…4e640 20 21 20 65 6e 64 20 72 65 6d 6f 76 65 5f 66 70 72 20 21 0a 0a 0a 0a 0a 20 20 62 6f 64 79 20 6f ┆ ! end remove_fpr ! body o┆
0x4e640…4e660 66 20 66 69 6e 64 5f 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 ┆f find_tc begin label foun┆
0x4e660…4e67e 64 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 ┆d; incode word savew┆
0x4e67e…4e684 (0x324,0x9ce)
0x4e684…4e6a0 30 2c 20 73 61 76 65 77 32 2c 20 66 72 65 65 74 63 3b 0a 20 20 20 20 20 20 72 65 66 ┆0, savew2, freetc; ref┆
0x4e6a0…4e6c0 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 77 30 3a ┆ return; begin savew0:┆
0x4e6c0…4e6e0 3d 20 77 30 3b 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 ┆= w0; savew2:= w2; r┆
0x4e6e0…4e6fc 65 74 75 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 ┆eturn:= w3; freetc:= ┆
0x4e6fc…4e702 (0x324,0x9cf)
0x4e702…4e720 77 30 3a 3d 20 30 3b 0a 20 20 20 20 20 20 77 31 3a 3d 20 62 2e 74 63 70 6f 6f 6c 5f 66 73 ┆w0:= 0; w1:= b.tcpool_fs┆
0x4e720…4e740 74 3b 0a 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 70 20 64 ┆t; while w1<b.tcpool_top d┆
0x4e740…4e760 6f 0a 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 77 31 ┆o begin if w0:=(w1┆
0x4e760…4e77a 29 2e 74 63 5f 6b 69 6e 64 3d 72 65 74 75 72 6e 2e 66 74 5f 6b 69 6e 64 20 74 ┆).tc_kind=return.ft_kind t┆
0x4e77a…4e780 (0x324,0x9d0)
0x4e780…4e7a0 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 77 30 3a 3d ┆hen begin w0:=┆
0x4e7a0…4e7c0 28 77 31 29 2e 74 63 5f 68 6f 73 74 69 64 20 2d 20 72 65 74 75 72 6e 2e 66 74 5f 68 6f 73 74 69 ┆(w1).tc_hostid - return.ft_hosti┆
0x4e7c0…4e7e0 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 20 77 30 3a 3d 20 28 ┆d; if w0 = 0 then w0:= (┆
0x4e7e0…4e800 77 31 29 2e 74 63 5f 68 6f 73 74 6e 6f 20 2d 20 72 65 74 75 72 6e 2e 66 00 00 00 00 00 00 00 00 ┆w1).tc_hostno - return.f ┆
0x4e800…4e806 (628,) (0x324,0x9d1)
0x4e806…4e820 74 5f 68 6f 73 74 6e 6f 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 20 3d 20 ┆t_hostno; if w0 = ┆
0x4e820…4e840 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 20 20 20 ┆0 then begin ┆
0x4e840…4e860 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 70 6f 73 69 74 69 ┆ compare(.w3.,w0:=8,w1+!positi┆
0x4e860…4e87e 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 66 74 5f 64 ┆on(tc_devname),w2:=return.ft_d┆
0x4e87e…4e884 (0x324,0x9d2)
0x4e884…4e8a0 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 6f 73 ┆evname); w1-!pos┆
0x4e8a0…4e8c0 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 20 20 20 20 20 69 ┆ition(tc_devname); i┆
0x4e8c0…4e8e0 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 20 20 ┆f w0=0 then goto found; ┆
0x4e8e0…4e8fc 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 65 65 ┆ end; if w0:=free┆
0x4e8fc…4e902 (0x324,0x9d3)
0x4e902…4e920 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 3d 28 77 31 ┆tc=0 then if w0:=(w1┆
0x4e920…4e940 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 65 64 20 21 20 74 ┆).tc_created=0 ! not created ! t┆
0x4e940…4e960 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 ┆
0x4e960…4e97a 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┆
0x4e97a…4e980 (0x324,0x9d4)
0x4e980…4e9a0 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 32 29 2e 77 6f 72 ┆le); if w0:=(w2).wor┆
0x4e9a0…4e9c0 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 20 6f 70 65 72 61 ┆d=0 then freetc:= w1; ! no opera┆
0x4e9c0…4e9e0 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 65 6e 64 3b 0a 20 ┆tor logged in ! end; ┆
0x4e9e0…4ea00 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 77 31 3a 3d 00 00 00 00 00 00 00 00 ┆ end; w1:= ┆
0x4ea00…4ea06 (629,) (0x324,0x9d5)
0x4ea06…4ea20 20 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 ┆ (w1).tc_nexttc; end┆
0x4ea20…4ea40 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 64 3a 0a 20 20 20 ┆; w1:= freetc; found: ┆
0x4ea40…4ea60 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 30 20 74 68 65 6e ┆ if w0:=(w1).tc_created=0 then┆
0x4ea60…4ea7e 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 0a 20 20 20 ┆ -(w1); w0:= savew0; ┆
0x4ea7e…4ea84 (0x324,0x9d6)
0x4ea84…4eaa0 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 72 ┆ w2:= savew2; w3:= r┆
0x4eaa0…4eac0 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 63 75 72 72 65 6e ┆eturn; ! w3 not equal to curren┆
0x4eac0…4eae0 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 0a 20 20 20 20 65 ┆t corout++++++ ! !test 70; e┆
0x4eae0…4eafc 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 20 20 ┆nd; end; ! find_tc ! ┆
0x4eafc…4eb02 (0x324,0x9d7)
0x4eb02…4eb20 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 67 69 6e 0a ┆body of looktransport begin ┆
0x4eb20…4eb40 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┆
0x4eb40…4eb60 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 20 20 62 65 67 69 ┆vew1; ref return; begi┆
0x4eb60…4eb7a 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 ┆n savew0:= w0; savew┆
0x4eb7a…4eb80 (0x324,0x9d8)
0x4eb80…4eba0 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 20 20 21 20 63 68 ┆1:= w1; return:= w3; ! ch┆
0x4eba0…4ebc0 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 6e 61 6d 65 20 21 ┆eck legality of transport name !┆
0x4ebc0…4ebe0 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 3c 62 2e 74 72 61 ┆ w2:= 1; if w1<b.tra┆
0x4ebe0…4ec00 6e 73 5f 66 69 72 73 74 20 74 68 65 6e 20 77 32 3a 3d 20 2d 31 3b 0a 20 00 00 00 00 00 00 00 00 ┆ns_first then w2:= -1; ┆
0x4ec00…4ec06 (630,) (0x324,0x9d9)
0x4ec06…4ec20 20 20 20 20 20 69 66 20 77 31 3e 3d 62 2e 74 72 61 6e 73 5f 74 6f 70 20 74 68 ┆ if w1>=b.trans_top th┆
0x4ec20…4ec40 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 63 74 20 39 3b 0a ┆en w2:= -1; w1 extract 9; ┆
0x4ec40…4ec60 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 6e 67 74 68 28 74 ┆ while w1>0 do w1-!length(t┆
0x4ec60…4ec7e 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 68 65 6e 20 ┆r_descr); if w1<>0 then ┆
0x4ec7e…4ec84 (0x324,0x9da)
0x4ec84…4eca0 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 6e 0a ┆w2:= -1; if w2>0 then ┆
0x4eca0…4ecc0 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 76 65 77 31 20 61 ┆ begin w1:=savew1 a┆
0x4ecc0…4ece0 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 2e 62 73 5f 73 65 ┆shift -9; if w1<>b.bs_se┆
0x4ece0…4ecfc 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 20 20 ┆gno then begin ┆
0x4ecfc…4ed02 (0x324,0x9db)
0x4ed02…4ed20 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 0a 20 20 20 ┆ if w0:=b.bs_op=5 then ┆
0x4ed20…4ed40 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 74 20 73 65 67 6d ┆ begin comment output segm┆
0x4ed40…4ed60 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 61 28 2e 77 33 2e ┆ent; ioworkarea(.w3.┆
0x4ed60…4ed7a 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 ┆,w1:=address(b.bs_op)); ┆
0x4ed7a…4ed80 (0x324,0x9dc)
0x4ed80…4eda0 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 6e ┆ end; comment n┆
0x4eda0…4edc0 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 20 20 20 20 20 20 ┆ow input wanted segment; ┆
0x4edc0…4ede0 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 20 20 20 62 2e 62 ┆ b.bs_op:=w0:=3; b.b┆
0x4ede0…4ee00 73 5f 73 65 67 6e 6f 3a 3d 77 31 3a 3d 20 73 61 76 65 77 31 20 61 73 68 00 00 00 00 00 00 00 00 ┆s_segno:=w1:= savew1 ash ┆
0x4ee00…4ee06 (631,) (0x324,0x9dd)
0x4ee06…4ee20 69 66 74 20 2d 39 3b 0a 20 20 20 20 20 20 20 20 20 20 69 6f 77 6f 72 6b 61 72 ┆ift -9; ioworkar┆
0x4ee20…4ee40 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 70 29 29 3b 0a 20 ┆ea(.w3.,w1:=address(b.bs_op)); ┆
0x4ee40…4ee60 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 76 65 77 31 20 65 ┆ end; w2:=savew1 e┆
0x4ee60…4ee7e 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 20 20 20 20 ┆xtract 9;w2+b.bs_first; ┆
0x4ee7e…4ee84 (0x324,0x9de)
0x4ee84…4eea0 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 29 2e ┆ w1:=108; f1:=(w1).┆
0x4eea0…4eec0 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 20 69 66 20 77 30 ┆double lshift -20; if w0┆
0x4eec0…4eee0 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 20 20 20 20 20 20 ┆:=(w2).tr_waitmess=0 then ┆
0x4eee0…4eefc 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 65 3c ┆ if w0:=(w2).tr_removetime<┆
0x4eefc…4ef02 (0x324,0x9df)
0x4ef02…4ef20 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 6e 74 72 79 ┆w1 then w2:=0; ! entry┆
0x4ef20…4ef40 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 30 3a 3d 73 61 76 ┆ free ! end; w0:=sav┆
0x4ef40…4ef60 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 20 20 20 77 33 3a ┆ew0; w1:=savew1; w3:┆
0x4ef60…4ef7a 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 ┆=b.current; !test 305; ┆
0x4ef7a…4ef80 (0x324,0x9e0)
0x4ef80…4efa0 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┆
0x4efa0…4efc0 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 0a 0a 0a 20 20 62 ┆d; ! end looktransport ! b┆
0x4efc0…4efe0 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 6e 0a 20 20 20 20 ┆ody of puttransport begin ┆
0x4efe0…4f000 69 6e 63 6f 64 65 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 ┆incode ref return; ┆
0x4f000…4f006 (632,) (0x324,0x9e1)
0x4f006…4f020 0a 20 20 20 20 20 20 77 6f 72 64 20 73 61 76 65 77 30 2c 20 73 61 76 65 77 31 ┆ word savew0, savew1┆
0x4f020…4f040 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 73 61 76 65 77 30 ┆, savew2; begin savew0┆
0x4f040…4f060 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 3a 3d 20 77 32 3b ┆:= w0; savew1:= w1; savew2:= w2;┆
0x4f060…4f07e 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 70 3a 3d 20 ┆ return:= w3; b.bs_op:= ┆
0x4f07e…4f084 (0x324,0x9e2)
0x4f084…4f0a0 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 65 78 ┆w0:= 5; w1:= savew1 ex┆
0x4f0a0…4f0c0 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 20 20 20 20 74 65 ┆tract 9; w1+b.bs_first; te┆
0x4f0c0…4f0e0 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 64 65 73 63 72 29 ┆stout(.w3.,w0:=!length(tr_descr)┆
0x4f0e0…4f0fc 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 76 65 ┆,w1,w2:=68); w0:= save┆
0x4f0fc…4f102 (0x324,0x9e3)
0x4f102…4f120 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 20 20 20 77 ┆w0; w1:= savew1; w┆
0x4f120…4f140 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 72 65 6e 74 ┆2:= savew2; w3:= b.current┆
0x4f140…4f160 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;┆
0x4f160…4f17a 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; ! puttransport ! ┆
0x4f17a…4f180 (0x324,0x9e4)
0x4f180…4f1a0 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 6f 6d 6d 65 6e 74 ┆ body of ioworkarea comment┆
0x4f1a0…4f1c0 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 6f 20 6f 72 20 66 ┆ transport a segment to or f┆
0x4f1c0…4f1e0 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 65 67 69 6e 0a 20 ┆rom the spool area ; begin ┆
0x4f1e0…4f200 20 20 20 69 6e 63 6f 64 65 0a 20 20 20 20 20 20 77 6f 72 64 20 73 74 61 00 00 00 00 00 00 00 00 ┆ incode word sta ┆
0x4f200…4f206 (633,) (0x324,0x9e5)
0x4f206…4f220 74 75 73 2c 20 62 79 74 65 73 2c 20 63 68 61 72 73 2c 20 61 34 2c 20 61 35 2c ┆tus, bytes, chars, a4, a5,┆
0x4f220…4f240 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 65 66 31 ┆ a6, a7, a8; double savef1┆
0x4f240…4f260 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 3b 0a 20 20 20 20 ┆; ref savew2, return; ┆
0x4f260…4f27e 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 ┆begin savef1:= f1; ┆
0x4f27e…4f284 (0x324,0x9e6)
0x4f284…4f2a0 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 3a 3d ┆ savew2:= w2; return:=┆
0x4f2a0…4f2c0 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 3a 3d 38 2c 77 31 ┆ w3; testout(.w3.,w0:=8,w1┆
0x4f2c0…4f2e0 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 73 73 20 28 62 2e ┆,w2:=52); w3:= address (b.┆
0x4f2e0…4f2fc 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 31 36 ┆spoolname); monitor(16┆
0x4f2fc…4f302 (0x324,0x9e7)
0x4f302…4f320 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 75 73 29 3b ┆); w1:= address(status);┆
0x4f320…4f340 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 69 66 20 77 32 3a ┆ monitor(18); if w2:┆
0x4f340…4f360 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 3c 3e 20 32 20 74 ┆=1 lshift w0 or (w1).word <> 2 t┆
0x4f360…4f37a 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 ┆hen begin w1┆
0x4f37a…4f380 (0x324,0x9e8)
0x4f380…4f3a0 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 20 20 20 20 28 77 ┆:=address(b.spcomop); (w┆
0x4f3a0…4f3c0 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 74 65 73 74 6f 75 ┆1).logstatus:=w2; testou┆
0x4f3c0…4f3e0 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); ┆
0x4f3e0…4f400 20 20 6f 70 6d 65 73 73 28 2e 77 33 2e 2c 77 31 29 3b 0a 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ opmess(.w3.,w1); ┆
0x4f400…4f406 (634,) (0x324,0x9e9)
0x4f406…4f420 20 65 6e 64 3b 0a 20 20 20 20 20 20 66 31 3a 3d 20 73 61 76 65 66 31 3b 20 77 ┆ end; f1:= savef1; w┆
0x4f420…4f440 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 72 65 6e 74 ┆2:= savew2; w3:= b.current┆
0x4f440…4f460 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;┆
0x4f460…4f47e 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 20 62 6f 64 79 ┆ end; ! ioworkarea ! body┆
0x4f47e…4f484 (0x324,0x9ea)
0x4f484…4f4a0 20 6f 66 20 61 6c 6c 6f 63 5f 69 66 70 0a 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e ┆ of alloc_ifp begin commen┆
0x4f4a0…4f4c0 74 20 70 6c 65 61 73 65 20 72 65 66 65 72 20 74 6f 3a 20 52 43 53 4c 20 4e 6f 2e 20 39 39 31 20 ┆t please refer to: RCSL No. 991 ┆
0x4f4c0…4f4e0 31 30 32 32 38 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 ┆10228 , ┆
0x4f4e0…4f4fc 20 20 20 20 52 43 38 30 30 30 2f 49 46 50 20 4d 61 69 6e 20 50 72 6f 63 65 73 73 20 ┆ RC8000/IFP Main Process ┆
0x4f4fc…4f502 (0x324,0x9eb)
0x4f502…4f520 2c 20 52 65 66 65 72 65 6e 63 65 20 4d 61 6e 75 61 6c 0a 20 20 20 20 20 20 20 20 20 20 20 ┆, Reference Manual ┆
0x4f520…4f540 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 61 67 65 20 38 2e 66 66 2e 20 28 63 6f 6e ┆ page 8.ff. (con┆
0x4f540…4f560 6e 65 63 74 20 6f 70 65 72 61 74 69 6f 6e 29 2e 3b 0a 20 20 20 20 69 6e 63 6f 64 65 0a 20 20 20 ┆nect operation).; incode ┆
0x4f560…4f57a 20 20 20 77 6f 72 64 20 7a 65 72 6f 3a 3d 20 20 30 3b 0a 20 20 20 20 20 20 77 ┆ word zero:= 0; w┆
0x4f57a…4f580 (0x324,0x9ec)
0x4f580…4f5a0 6f 72 64 20 69 66 70 5f 6d 30 3a 3d 20 32 34 35 37 36 2c 20 69 66 70 5f 6d 32 2c 20 69 66 70 5f ┆ord ifp_m0:= 24576, ifp_m2, ifp_┆
0x4f5a0…4f5c0 6d 34 3a 3d 20 32 35 35 2c 20 69 66 70 5f 6d 36 3a 3d 20 2d 31 2c 20 69 66 70 5f 6d 38 3a 3d 20 ┆m4:= 255, ifp_m6:= -1, ifp_m8:= ┆
0x4f5c0…4f5e0 38 31 39 32 3b 0a 20 20 20 20 20 20 74 65 78 74 20 28 31 31 29 20 69 66 70 6d 61 69 6e 3b 0a 20 ┆8192; text (11) ifpmain; ┆
0x4f5e0…4f600 20 20 20 20 20 77 6f 72 64 20 69 66 70 6e 74 61 2c 20 72 65 73 75 6c 74 00 00 00 00 00 00 00 00 ┆ word ifpnta, result ┆
0x4f600…4f606 (635,) (0x324,0x9ed)
0x4f606…4f620 3b 0a 20 20 20 20 20 20 77 6f 72 64 20 69 66 70 5f 61 30 2c 20 69 66 70 5f 61 ┆; word ifp_a0, ifp_a┆
0x4f620…4f640 32 2c 20 69 66 70 5f 61 34 2c 20 69 66 70 5f 61 36 2c 20 69 66 70 5f 61 38 2c 20 69 66 70 5f 61 ┆2, ifp_a4, ifp_a6, ifp_a8, ifp_a┆
0x4f640…4f660 31 30 2c 20 69 66 70 5f 61 31 32 2c 20 69 66 70 5f 61 31 34 3b 0a 20 20 20 20 20 20 72 65 66 20 ┆10, ifp_a12, ifp_a14; ref ┆
0x4f660…4f67e 72 65 74 75 72 6e 2c 20 69 66 70 5f 72 65 66 3b 0a 20 20 20 20 20 20 77 6f 72 64 20 69 66 ┆return, ifp_ref; word if┆
0x4f67e…4f684 (0x324,0x9ee)
0x4f684…4f6a0 70 64 65 76 3b 0a 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 72 65 74 75 72 ┆pdev; begin retur┆
0x4f6a0…4f6c0 6e 3a 3d 20 77 33 3b 0a 20 20 20 20 20 20 69 66 70 64 65 76 3a 3d 20 77 30 3a 3d 20 2d 31 3b 0a ┆n:= w3; ifpdev:= w0:= -1; ┆
0x4f6c0…4f6e0 20 20 20 20 20 20 72 65 73 75 6c 74 3a 3d 20 77 30 3a 3d 20 33 3b 0a 20 20 20 20 20 20 77 30 3a ┆ result:= w0:= 3; w0:┆
0x4f6e0…4f6fc 3d 20 30 3b 69 66 70 5f 72 65 66 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 69 66 20 77 ┆= 0;ifp_ref:= w0; if w┆
0x4f6fc…4f702 (0x324,0x9ef)
0x4f702…4f720 30 3a 3d 20 72 65 74 75 72 6e 2e 69 66 70 5f 6b 69 6e 64 20 3d 20 31 34 20 21 20 70 72 69 ┆0:= return.ifp_kind = 14 ! pri┆
0x4f720…4f740 6e 74 65 72 20 21 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 ┆nter ! then begin ┆
0x4f740…4f760 77 31 3a 3d 20 28 77 32 3a 3d 37 34 29 2e 77 6f 72 64 3b 0a 20 20 20 20 20 20 20 20 77 31 20 2b ┆w1:= (w2:=74).word; w1 +┆
0x4f760…4f77a 20 72 65 74 75 72 6e 2e 69 66 70 5f 6d 61 69 6e 20 2b 20 72 65 74 75 72 6e 2e ┆ return.ifp_main + return.┆
0x4f77a…4f780 (0x324,0x9f0)
0x4f780…4f7a0 69 66 70 5f 6d 61 69 6e 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 20 28 77 31 3a 3d 28 ┆ifp_main; if w0:= (w1:=(┆
0x4f7a0…4f7c0 77 31 29 2e 77 6f 72 64 29 2e 77 6f 72 64 20 3d 20 32 36 20 21 20 69 66 70 20 6d 61 69 6e 20 70 ┆w1).word).word = 26 ! ifp main p┆
0x4f7c0…4f7e0 72 6f 63 65 73 73 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 ┆rocess ! then begin ┆
0x4f7e0…4f800 20 20 20 20 20 20 6d 6f 76 65 20 28 2e 77 33 2e 2c 77 30 3a 3d 20 38 2c 00 00 00 00 00 00 00 00 ┆ move (.w3.,w0:= 8, ┆
0x4f800…4f806 (636,) (0x324,0x9f1)
0x4f806…4f820 20 77 31 2b 32 2c 20 77 32 3a 3d 20 61 64 64 72 65 73 73 28 69 66 70 6d 61 69 ┆ w1+2, w2:= address(ifpmai┆
0x4f820…4f840 6e 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 70 6e 74 61 3a 3d 20 77 30 3a 3d 20 30 3b 0a ┆n)); ifpnta:= w0:= 0; ┆
0x4f840…4f860 20 20 20 20 20 20 20 20 20 20 69 66 70 5f 6d 32 3a 3d 20 77 30 3a 3d 20 38 3b 20 21 20 64 65 76 ┆ ifp_m2:= w0:= 8; ! dev┆
0x4f860…4f87e 69 63 65 20 74 79 70 65 20 3a 3d 20 70 72 69 6e 74 65 72 20 21 0a 20 20 20 20 20 20 20 20 ┆ice type := printer ! ┆
0x4f87e…4f884 (0x324,0x9f2)
0x4f884…4f8a0 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 20 ┆ w3:= address(zero); ┆
0x4f8a0…4f8c0 20 20 20 20 77 30 3a 3d 20 2d 38 33 38 38 36 30 37 3b 77 31 3a 3d 20 38 33 38 38 36 30 35 3b 0a ┆ w0:= -8388607;w1:= 8388605; ┆
0x4f8c0…4f8e0 20 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 20 28 37 32 29 3b 20 21 20 73 65 74 20 63 61 ┆ monitor (72); ! set ca┆
0x4f8e0…4f8fc 74 61 6c 6f 67 20 62 61 73 65 20 21 0a 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 20 ┆talog base ! w1:= ┆
0x4f8fc…4f902 (0x324,0x9f3)
0x4f902…4f920 61 64 64 72 65 73 73 20 28 69 66 70 5f 6d 30 29 3b 0a 20 20 20 20 20 20 20 20 20 20 74 65 ┆address (ifp_m0); te┆
0x4f920…4f940 73 74 6f 75 74 20 28 2e 77 33 2e 2c 77 30 3a 3d 31 36 2c 20 77 31 2c 20 77 32 3a 3d 20 39 29 3b ┆stout (.w3.,w0:=16, w1, w2:= 9);┆
0x4f940…4f960 0a 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 20 61 64 64 72 65 73 73 20 28 69 66 70 6d 61 69 6e ┆ w3:= address (ifpmain┆
0x4f960…4f97a 29 3b 0a 20 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 20 28 31 36 29 3b ┆); monitor (16);┆
0x4f97a…4f980 (0x324,0x9f4)
0x4f980…4f9a0 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 77 31 3a 3d ┆ ! send message ! w1:=┆
0x4f9a0…4f9c0 20 61 64 64 72 65 73 73 20 28 69 66 70 5f 61 30 29 3b 0a 20 20 20 20 20 20 20 20 20 20 6d 6f 6e ┆ address (ifp_a0); mon┆
0x4f9c0…4f9e0 69 74 6f 72 20 28 31 38 29 3b 20 21 20 77 61 69 74 20 61 6e 73 77 65 72 20 21 0a 20 20 20 20 20 ┆itor (18); ! wait answer ! ┆
0x4f9e0…4fa00 20 20 20 20 20 72 65 73 75 6c 74 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ result:= w0; ┆
0x4fa00…4fa06 (637,) (0x324,0x9f5)
0x4fa06…4fa20 20 20 20 20 74 65 73 74 6f 75 74 20 28 2e 77 33 2e 2c 20 77 30 3a 3d 20 31 30 ┆ testout (.w3., w0:= 10┆
0x4fa20…4fa40 2c 20 77 31 3a 3d 20 61 64 64 72 65 73 73 28 72 65 73 75 6c 74 29 2c 20 77 32 3a 3d 20 36 37 29 ┆, w1:= address(result), w2:= 67)┆
0x4fa40…4fa60 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 20 72 65 73 75 6c 74 20 3d 20 31 20 74 ┆; if w0:= result = 1 t┆
0x4fa60…4fa7e 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 ┆hen begin ┆
0x4fa7e…4fa84 (0x324,0x9f6)
0x4fa84…4faa0 20 20 69 66 20 77 30 3a 3d 20 69 66 70 5f 61 30 20 3d 20 30 20 21 20 73 74 61 74 75 ┆ if w0:= ifp_a0 = 0 ! statu┆
0x4faa0…4fac0 73 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 20 63 6f 6d 6d 65 ┆s ! then begin comme┆
0x4fac0…4fae0 6e 74 20 6f 6b 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65 73 75 6c 74 3a 3d 20 77 30 ┆nt ok; result:= w0┆
0x4fae0…4fafc 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 70 64 65 76 3a 3d 20 77 30 3a ┆; ifpdev:= w0:┆
0x4fafc…4fb02 (0x324,0x9f7)
0x4fb02…4fb20 3d 20 69 66 70 5f 61 32 3b 20 21 20 69 66 70 20 64 65 76 69 63 65 20 6e 6f 20 21 0a 20 20 ┆= ifp_a2; ! ifp device no ! ┆
0x4fb20…4fb40 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 20 28 77 32 3a 3d 37 34 29 2e 77 6f 72 64 3b 0a ┆ w1:= (w2:=74).word; ┆
0x4fb40…4fb60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 20 2b 20 69 66 70 5f 61 32 20 2b 20 69 66 70 5f ┆ w1 + ifp_a2 + ifp_┆
0x4fb60…4fb7a 61 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 20 28 77 31 ┆a2; w2:= (w1┆
0x4fb7a…4fb80 (0x324,0x9f8)
0x4fb80…4fba0 29 2e 77 6f 72 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 70 5f 72 65 66 3a 3d 20 ┆).word; ifp_ref:= ┆
0x4fba0…4fbc0 77 32 3b 20 21 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 ┆w2; ! process description addres┆
0x4fbc0…4fbe0 73 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 65 ┆s ! end; e┆
0x4fbe0…4fc00 6e 64 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 65 00 00 00 00 00 00 00 00 ┆nd; end; e ┆
0x4fc00…4fc06 (638,) (0x324,0x9f9)
0x4fc06…4fc20 6e 64 3b 0a 20 20 20 20 20 20 77 30 3a 3d 20 72 65 73 75 6c 74 3b 0a 20 20 20 ┆nd; w0:= result; ┆
0x4fc20…4fc40 20 20 20 77 31 3a 3d 20 69 66 70 64 65 76 3b 20 21 20 64 65 76 69 63 65 20 6e 75 6d 62 65 72 20 ┆ w1:= ifpdev; ! device number ┆
0x4fc40…4fc60 6f 66 20 69 66 70 20 70 72 6f 63 65 73 73 20 21 0a 20 20 20 20 20 20 77 32 3a 3d 20 69 66 70 5f ┆of ifp process ! w2:= ifp_┆
0x4fc60…4fc7e 72 65 66 3b 20 21 20 70 72 6f 63 65 73 73 20 64 65 73 63 72 69 70 74 69 6f 6e 20 61 64 64 ┆ref; ! process description add┆
0x4fc7e…4fc84 (0x324,0x9fa)
0x4fc84…4fca0 72 65 73 73 20 6f 66 20 69 66 70 20 70 72 6f 63 65 73 73 20 21 0a 20 20 20 20 20 20 ┆ress of ifp process ! ┆
0x4fca0…4fcc0 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 3b 20 21 20 65 ┆w3:= return; end; end; ! e┆
0x4fcc0…4fce0 6e 64 20 61 6c 6c 6f 63 20 69 66 70 20 21 0a 0a 0a 20 20 62 6f 64 79 20 6f 66 20 64 65 61 6c 6c ┆nd alloc ifp ! body of deall┆
0x4fce0…4fcfc 6f 63 5f 69 66 70 0a 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 70 6c 65 61 73 ┆oc_ifp begin comment pleas┆
0x4fcfc…4fd02 (0x324,0x9fb)
0x4fd02…4fd20 65 20 72 65 66 65 72 20 74 6f 3a 20 52 43 53 4c 20 4e 6f 2e 20 39 39 31 20 31 30 32 32 38 ┆e refer to: RCSL No. 991 10228┆
0x4fd20…4fd40 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 52 ┆ , R┆
0x4fd40…4fd60 43 38 30 30 30 2f 49 46 50 20 4d 61 69 6e 20 50 72 6f 63 65 73 73 20 2c 20 52 65 66 65 72 65 6e ┆C8000/IFP Main Process , Referen┆
0x4fd60…4fd7a 63 65 20 4d 61 6e 75 61 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ce Manual ┆
0x4fd7a…4fd80 (0x324,0x9fc)
0x4fd80…4fda0 20 20 20 20 20 20 20 20 20 20 20 20 70 61 67 65 20 38 2e 66 66 2e 20 28 64 69 73 63 6f 6e 6e 65 ┆ page 8.ff. (disconne┆
0x4fda0…4fdc0 63 74 20 6f 70 65 72 61 74 69 6f 6e 29 2e 3b 0a 20 20 20 20 69 6e 63 6f 64 65 0a 20 20 20 20 20 ┆ct operation).; incode ┆
0x4fdc0…4fde0 20 77 6f 72 64 20 69 66 70 5f 6d 30 3a 3d 20 34 30 39 36 30 2c 20 69 66 70 5f 6d 32 3b 0a 20 20 ┆ word ifp_m0:= 40960, ifp_m2; ┆
0x4fde0…4fe00 20 20 20 20 74 65 78 74 20 28 31 31 29 20 69 66 70 6d 61 69 6e 3b 0a 20 00 00 00 00 00 00 00 00 ┆ text (11) ifpmain; ┆
0x4fe00…4fe06 (639,) (0x324,0x9fd)
0x4fe06…4fe20 20 20 20 20 20 77 6f 72 64 20 69 66 70 6e 74 61 3b 0a 20 20 20 20 20 20 77 6f ┆ word ifpnta; wo┆
0x4fe20…4fe40 72 64 20 69 66 70 5f 61 30 2c 20 69 66 70 5f 61 32 2c 20 69 66 70 5f 61 34 2c 20 69 66 70 5f 61 ┆rd ifp_a0, ifp_a2, ifp_a4, ifp_a┆
0x4fe40…4fe60 36 2c 20 69 66 70 5f 61 38 2c 20 69 66 70 5f 61 31 30 2c 20 69 66 70 5f 61 31 32 2c 20 69 66 70 ┆6, ifp_a8, ifp_a10, ifp_a12, ifp┆
0x4fe60…4fe7e 5f 61 31 34 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 ┆_a14; ref return; ┆
0x4fe7e…4fe84 (0x324,0x9fe)
0x4fe84…4fea0 77 6f 72 64 20 73 61 76 65 77 30 2c 20 73 61 76 65 77 31 2c 20 73 61 76 65 77 32 3b ┆word savew0, savew1, savew2;┆
0x4fea0…4fec0 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 0a 20 20 ┆ begin return:= w3; ┆
0x4fec0…4fee0 20 20 20 20 73 61 76 65 77 30 3a 3d 20 77 30 3b 73 61 76 65 77 31 3a 3d 20 77 31 3b 73 61 76 65 ┆ savew0:= w0;savew1:= w1;save┆
0x4fee0…4fefc 77 32 3a 3d 20 77 32 3b 0a 20 20 20 20 20 20 77 31 3a 3d 20 28 77 32 3a 3d 37 34 29 ┆w2:= w2; w1:= (w2:=74)┆
0x4fefc…4ff02 (0x324,0x9ff)
0x4ff02…4ff20 2e 77 6f 72 64 3b 0a 20 20 20 20 20 20 77 31 20 2b 20 72 65 74 75 72 6e 2e 69 66 70 5f 6d ┆.word; w1 + return.ifp_m┆
0x4ff20…4ff40 61 69 6e 70 20 2b 20 72 65 74 75 72 6e 2e 69 66 70 5f 6d 61 69 6e 70 3b 0a 20 20 20 20 20 20 69 ┆ainp + return.ifp_mainp; i┆
0x4ff40…4ff60 66 20 77 30 3a 3d 20 28 77 31 3a 3d 28 77 31 29 2e 77 6f 72 64 29 2e 77 6f 72 64 20 3d 20 32 36 ┆f w0:= (w1:=(w1).word).word = 26┆
0x4ff60…4ff7a 20 21 20 69 66 70 20 6d 61 69 6e 20 70 72 6f 63 65 73 73 20 21 20 74 68 65 6e ┆ ! ifp main process ! then┆
0x4ff7a…4ff80 (0x324,0xa00)
0x4ff80…4ffa0 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 6d 6f 76 65 20 28 2e 77 33 2e 2c ┆ begin move (.w3.,┆
0x4ffa0…4ffc0 77 30 3a 3d 20 38 2c 20 77 31 2b 32 2c 20 77 32 3a 3d 20 61 64 64 72 65 73 73 28 69 66 70 6d 61 ┆w0:= 8, w1+2, w2:= address(ifpma┆
0x4ffc0…4ffe0 69 6e 29 29 3b 0a 20 20 20 20 20 20 20 20 69 66 70 6e 74 61 3a 3d 20 77 30 3a 3d 20 30 3b 0a 20 ┆in)); ifpnta:= w0:= 0; ┆
0x4ffe0…50000 20 20 20 20 20 20 20 69 66 70 5f 6d 32 3a 3d 20 77 30 3a 3d 20 72 65 74 00 00 00 00 00 00 00 00 ┆ ifp_m2:= w0:= ret ┆
0x50000…50006 (640,) (0x324,0xa01)
0x50006…50020 75 72 6e 2e 69 66 70 5f 64 65 76 3b 0a 20 20 20 20 20 20 20 20 77 31 3a 3d 20 ┆urn.ifp_dev; w1:= ┆
0x50020…50040 61 64 64 72 65 73 73 20 28 69 66 70 5f 6d 30 29 3b 0a 20 20 20 20 20 20 20 20 77 33 3a 3d 20 61 ┆address (ifp_m0); w3:= a┆
0x50040…50060 64 64 72 65 73 73 20 28 69 66 70 6d 61 69 6e 29 3b 0a 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f ┆ddress (ifpmain); monito┆
0x50060…5007e 72 20 28 38 29 3b 20 21 20 72 65 73 65 72 76 65 20 70 72 6f 63 65 73 73 20 2d 20 2a 2a 2a ┆r (8); ! reserve process - ***┆
0x5007e…50084 (0x324,0xa02)
0x50084…500a0 20 74 6f 20 72 65 6d 6f 76 65 64 20 6c 61 74 65 72 20 2a 2a 2a 20 21 0a 20 20 20 20 ┆ to removed later *** ! ┆
0x500a0…500c0 20 20 20 20 77 32 3a 3d 20 31 3b 20 21 20 61 70 70 6c 2e 20 69 6e 74 65 72 66 61 63 65 20 63 6f ┆ w2:= 1; ! appl. interface co┆
0x500c0…500e0 72 6f 75 74 69 6e 65 20 21 0a 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 20 28 31 36 29 3b 20 ┆routine ! monitor (16); ┆
0x500e0…500fc 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 77 31 3a ┆! send message ! w1:┆
0x500fc…50102 (0x324,0xa03)
0x50102…50120 3d 20 61 64 64 72 65 73 73 20 28 69 66 70 5f 61 30 29 3b 0a 20 20 20 20 20 20 20 20 6d 6f ┆= address (ifp_a0); mo┆
0x50120…50140 6e 69 74 6f 72 20 28 31 38 29 3b 20 21 20 77 61 69 74 20 61 6e 73 77 65 72 20 21 0a 20 20 20 20 ┆nitor (18); ! wait answer ! ┆
0x50140…50160 20 20 20 20 6d 6f 6e 69 74 6f 72 20 28 31 30 29 3b 20 21 20 72 65 6c 65 61 73 65 20 70 72 6f 63 ┆ monitor (10); ! release proc┆
0x50160…5017a 65 73 73 20 2d 20 2a 2a 2a 20 74 6f 20 62 65 20 72 65 6d 6f 76 65 64 20 6c 61 ┆ess - *** to be removed la┆
0x5017a…50180 (0x324,0xa04)
0x50180…501a0 74 65 72 20 2a 2a 2a 20 21 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 77 30 3a 3d 20 ┆ter *** ! end; w0:= ┆
0x501a0…501c0 73 61 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 20 20 ┆savew0; w1:= savew1; ┆
0x501c0…501e0 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 72 65 74 75 72 6e 3b ┆ w2:= savew2; w3:= return;┆
0x501e0…50200 0a 20 20 20 20 65 6e 64 3b 0a 20 20 65 6e 64 3b 20 21 20 65 6e 64 20 64 00 00 00 00 00 00 00 00 ┆ end; end; ! end d ┆
0x50200…50206 (641,) (0x324,0xa05)
0x50206…50220 65 61 6c 6c 6f 63 20 69 66 70 20 21 0a 0a 0a 0a 0a 0a 20 20 62 6f 64 79 20 6f ┆ealloc ifp ! body o┆
0x50220…50240 66 20 6c 69 6e 6b 75 70 72 65 6d 6f 74 65 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 69 6e 63 6f 64 ┆f linkupremote begin incod┆
0x50240…50260 65 0a 20 20 20 20 20 20 77 6f 72 64 20 73 61 76 65 77 31 2c 20 72 65 74 75 72 6e 3b 0a 20 20 20 ┆e word savew1, return; ┆
0x50260…5027e 20 20 20 74 65 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 ┆ text(14) host:= "host"; ┆
0x5027e…50284 (0x324,0xa06)
0x50284…502a0 20 20 20 20 21 20 6f 70 65 72 61 74 69 6f 6e 20 6d 65 73 73 61 67 65 20 21 0a 20 20 ┆ ! operation message ! ┆
0x502a0…502c0 20 20 20 20 77 6f 72 64 20 6f 6d 5f 6f 70 3a 3d 20 32 27 30 30 30 30 30 30 30 30 30 30 30 31 30 ┆ word om_op:= 2'0000000000010┆
0x502c0…502e0 30 30 30 30 30 30 30 31 31 30 30 3b 0a 20 20 20 20 20 20 72 65 66 20 6f 6d 5f 66 69 72 73 74 2c ┆00000001100; ref om_first,┆
0x502e0…502fc 20 6f 6d 5f 6c 61 73 74 3b 0a 20 20 20 20 20 20 62 79 74 65 20 6f 6d 5f 75 6e 75 31 ┆ om_last; byte om_unu1┆
0x502fc…50302 (0x324,0xa07)
0x50302…50320 2c 20 6f 6d 5f 68 6f 73 74 6e 6f 3b 0a 20 20 20 20 20 20 77 6f 72 64 20 6f 6d 5f 68 6f 73 ┆, om_hostno; word om_hos┆
0x50320…50340 74 69 64 3b 0a 20 20 20 20 20 20 62 79 74 65 20 6f 6d 5f 68 6f 6d 65 72 65 67 3a 3d 20 30 2c 20 ┆tid; byte om_homereg:= 0, ┆
0x50340…50360 6f 6d 5f 6e 65 74 69 64 3a 3d 20 30 3b 0a 0a 20 20 20 20 20 20 21 20 6f 70 65 72 61 74 69 6f 6e ┆om_netid:= 0; ! operation┆
0x50360…5037a 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 ┆ output ! word oo_mo┆
0x5037a…50380 (0x324,0xa08)
0x50380…503a0 64 65 6b 69 6e 64 2c 0a 20 20 20 20 20 20 20 20 20 20 20 6f 6f 5f 74 69 6d 65 6f 75 74 73 62 75 ┆dekind, oo_timeoutsbu┆
0x503a0…503c0 66 66 65 72 73 3a 3d 20 30 2c 0a 20 20 20 20 20 20 20 20 20 20 20 6f 6f 5f 62 75 66 73 69 7a 65 ┆ffers:= 0, oo_bufsize┆
0x503c0…503e0 3a 3d 20 30 3b 0a 20 20 20 20 20 20 74 65 78 74 28 31 31 29 20 6f 6f 5f 64 65 76 69 6e 61 6d 65 ┆:= 0; text(11) oo_deviname┆
0x503e0…50400 3b 0a 20 20 20 20 20 20 77 6f 72 64 20 6f 6f 5f 75 6e 75 31 3b 0a 20 20 00 00 00 00 00 00 00 00 ┆; word oo_unu1; ┆
0x50400…50406 (642,) (0x324,0xa09)
0x50406…50420 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 ┆ word oo_net1:= 0, oo_n┆
0x50420…50440 65 74 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 ┆et2:= 0, oo_unu2; ! opera┆
0x50440…50460 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┆
0x50460…5047e 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 ┆rn,oa_bytes,oa_chars,oa_net1,o┆
0x5047e…50484 (0x324,0xa0a)
0x50484…504a0 61 5f 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 ┆a_net2,oa_net3,oa_d1,oa_d2; ┆
0x504a0…504c0 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 ! ┆
0x504c0…504e0 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┆
0x504e0…504fc 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 ┆; text(11) oi_deviname┆
0x504fc…50502 (0x324,0xa0b)
0x50502…50520 3b 0a 20 20 20 20 20 20 77 6f 72 64 20 6f 69 5f 6e 65 74 31 2c 6f 69 5f 6e 65 74 32 2c 6f ┆; word oi_net1,oi_net2,o┆
0x50520…50540 69 5f 6e 65 74 33 3b 0a 20 20 20 20 20 20 72 65 66 20 6f 69 5f 70 72 6f 63 64 65 73 63 72 3b 0a ┆i_net3; ref oi_procdescr; ┆
0x50540…50560 20 20 20 20 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 72 65 74 ┆ begin savew1:= w1; ret┆
0x50560…5057a 75 72 6e 3a 3d 20 77 33 3b 0a 20 20 20 20 20 20 6f 6d 5f 68 6f 73 74 6e 6f 3a ┆urn:= w3; om_hostno:┆
0x5057a…50580 (0x324,0xa0c)
0x50580…505a0 3d 20 77 30 3a 3d 20 28 77 33 29 2e 6c 75 72 5f 68 6f 73 74 6e 6f 3b 0a 20 20 20 20 20 20 6f 6d ┆= w0:= (w3).lur_hostno; om┆
0x505a0…505c0 5f 68 6f 73 74 69 64 3a 3d 20 77 30 3a 3d 20 28 77 33 29 2e 6c 75 72 5f 68 6f 73 74 69 64 3b 0a ┆_hostid:= w0:= (w3).lur_hostid; ┆
0x505c0…505e0 0a 20 20 20 20 20 20 6f 6f 5f 6d 6f 64 65 6b 69 6e 64 3a 3d 20 77 30 3a 3d 20 28 77 33 29 2e 6c ┆ oo_modekind:= w0:= (w3).l┆
0x505e0…50600 75 72 5f 6b 69 6e 64 3b 0a 20 20 20 20 20 20 6d 6f 76 65 28 2e 77 33 2e 00 00 00 00 00 00 00 00 ┆ur_kind; move(.w3. ┆
0x50600…50606 (643,) (0x324,0xa0d)
0x50606…50620 2c 77 30 3a 3d 38 2c 77 31 3a 3d 28 77 33 29 2e 6c 75 72 5f 64 65 76 69 6e 61 ┆,w0:=8,w1:=(w3).lur_devina┆
0x50620…50640 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 29 3b 0a 20 20 ┆me,w2:=address(oo_deviname)); ┆
0x50640…50660 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 69 6e 70 75 74 ┆ ! move output to input┆
0x50660…5067e 20 61 72 65 61 20 21 0a 20 20 20 20 20 20 6d 6f 76 65 28 2e 77 33 2e 2c 77 30 3a 3d 32 32 ┆ area ! move(.w3.,w0:=22┆
0x5067e…50684 (0x324,0xa0e)
0x50684…506a0 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 6f 6f 5f 6d 6f 64 65 6b 69 6e 64 29 2c 77 32 ┆,w1:=address(oo_modekind),w2┆
0x506a0…506c0 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 6f 6d 5f 66 69 ┆:=address(oi_kind)); om_fi┆
0x506c0…506e0 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 20 20 6f 6d 5f ┆rst:= w2; w2+20; om_┆
0x506e0…506fc 6c 61 73 74 3a 3d 20 77 32 3b 0a 20 20 20 20 20 20 74 65 73 74 6f 75 74 28 2e 77 33 ┆last:= w2; testout(.w3┆
0x506fc…50702 (0x324,0xa0f)
0x50702…50720 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 20 20 77 31 3a ┆.,w0:=22,w1,w2:=66); w1:┆
0x50720…50740 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 74 6f 75 74 28 ┆= address(om_op); testout(┆
0x50740…50760 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 20 20 77 33 3a ┆.w3.,w0:=12,w1,w2:=2); w3:┆
0x50760…5077a 3d 20 61 64 64 72 65 73 73 28 68 6f 73 74 29 3b 0a 20 20 20 20 20 20 6d 6f 6e ┆= address(host); mon┆
0x5077a…50780 (0x324,0xa10)
0x50780…507a0 69 74 6f 72 28 31 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 ┆itor(16); ! send message ! ┆
0x507a0…507c0 20 77 31 3a 3d 20 61 64 64 72 65 73 73 28 6f 61 5f 72 65 74 75 72 6e 29 3b 0a 20 20 20 20 20 20 ┆ w1:= address(oa_return); ┆
0x507c0…507e0 6d 6f 6e 69 74 6f 72 28 31 38 29 3b 20 21 20 77 61 69 74 20 61 6e 73 77 65 72 20 21 0a 20 20 20 ┆monitor(18); ! wait answer ! ┆
0x507e0…50800 20 20 20 69 66 20 77 30 3c 3e 31 20 74 68 65 6e 20 6f 61 5f 72 65 74 75 00 00 00 00 00 00 00 00 ┆ if w0<>1 then oa_retu ┆
0x50800…50806 (644,) (0x324,0xa11)
0x50806…50820 72 6e 3a 3d 20 77 30 3a 3d 20 31 3b 20 21 20 61 20 6c 69 74 74 6c 65 20 62 69 ┆rn:= w0:= 1; ! a little bi┆
0x50820…50840 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 2e 2c 77 30 3a ┆t dirty ! testout(.w3.,w0:┆
0x50840…50860 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 75 74 28 2e 77 ┆=12,w1,w2:=67); testout(.w┆
0x50860…5087e 33 2e 2c 77 30 3a 3d 32 32 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 6f 69 5f 6b 69 6e 64 29 ┆3.,w0:=22,w1:=address(oi_kind)┆
0x5087e…50884 (0x324,0xa12)
0x50884…508a0 2c 77 32 3a 3d 36 36 29 3b 0a 0a 20 20 20 20 20 20 77 30 3a 3d 20 6f 61 5f 72 65 74 ┆,w2:=66); w0:= oa_ret┆
0x508a0…508c0 75 72 6e 3b 0a 20 20 20 20 20 20 77 32 3a 3d 20 6f 69 5f 70 72 6f 63 64 65 73 63 72 3b 0a 20 20 ┆urn; w2:= oi_procdescr; ┆
0x508c0…508e0 20 20 20 20 77 31 3a 3d 20 73 61 76 65 77 31 3b 0a 20 20 20 20 20 20 77 33 3a 3d 20 72 65 74 75 ┆ w1:= savew1; w3:= retu┆
0x508e0…508fc 72 6e 3b 0a 20 20 20 20 65 6e 64 3b 0a 20 20 65 6e 64 3b 20 21 20 6c 69 6e 6b 20 75 ┆rn; end; end; ! link u┆
0x508fc…50902 (0x324,0xa13)
0x50902…50920 70 20 72 65 6d 6f 74 65 20 21 0a 0a 20 20 62 6f 64 79 20 6f 66 20 61 64 64 74 78 74 0a 20 ┆p remote ! body of addtxt ┆
0x50920…50940 20 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 20 73 61 ┆ begin incode double sa┆
0x50940…50960 76 65 66 31 3b 0a 20 20 20 20 77 6f 72 64 20 20 20 20 73 61 76 65 77 32 3b 0a 20 20 20 20 72 65 ┆vef1; word savew2; re┆
0x50960…5097a 66 20 20 20 20 20 72 65 74 75 72 6e 3b 0a 0a 20 20 20 20 62 65 67 69 6e 0a 20 ┆f return; begin ┆
0x5097a…50980 (0x324,0xa14)
0x50980…509a0 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 32 3a 3d ┆ savef1:= f1; savew2:=┆
0x509a0…509c0 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 20 20 20 20 77 ┆ w2; return:= w3; w┆
0x509c0…509e0 33 3a 3d 20 77 31 2b 77 30 3b 0a 20 20 20 20 20 20 77 68 69 6c 65 20 77 31 3c 77 33 20 64 6f 0a ┆3:= w1+w0; while w1<w3 do ┆
0x509e0…50a00 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 77 30 3a 3d 00 00 00 00 00 00 00 00 ┆ begin w0:= ┆
0x50a00…50a06 (645,) (0x324,0xa15)
0x50a06…50a20 20 28 77 31 29 2e 77 6f 72 64 3b 0a 20 20 20 20 20 20 20 20 28 77 32 29 2e 77 ┆ (w1).word; (w2).w┆
0x50a20…50a40 6f 72 64 3a 3d 20 77 30 20 6f 72 20 28 77 32 29 2e 77 6f 72 64 3b 0a 20 20 20 20 20 20 20 20 77 ┆ord:= w0 or (w2).word; w┆
0x50a40…50a60 31 2b 32 3b 77 32 2b 32 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 66 31 3a 3d 20 ┆1+2;w2+2; end; f1:= ┆
0x50a60…50a7e 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 3b 0a 20 20 20 ┆savef1; w2:= savew2; ┆
0x50a7e…50a84 (0x324,0xa16)
0x50a84…50aa0 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 ┆ w3:= b.current; cal┆
0x50aa0…50ac0 6c 20 77 30 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 65 6e 64 3b 0a 20 65 6e 64 3b 20 21 20 65 6e ┆l w0 return; end; end; ! en┆
0x50ac0…50ae0 64 20 61 64 64 74 78 74 20 21 0a 0a 0a 20 20 62 6f 64 79 20 6f 66 20 6c 6f 6f 6b 75 70 72 65 6d ┆d addtxt ! body of lookuprem┆
0x50ae0…50afc 6f 74 65 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 6c 61 62 65 6c 20 65 78 69 74 3b 0a ┆ote begin label exit; ┆
0x50afc…50b02 (0x324,0xa17)
0x50b02…50b20 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 2c 20 ┆ incode word savew1, ┆
0x50b20…50b40 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 20 ┆savew2; ref return; ┆
0x50b40…50b60 74 65 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 ┆text(14) host:= "host"; !┆
0x50b60…50b7a 20 6f 70 65 72 61 74 69 6f 6e 20 6d 65 73 73 61 67 65 20 21 0a 20 20 20 20 20 ┆ operation message ! ┆
0x50b7a…50b80 (0x324,0xa18)
0x50b80…50ba0 20 77 6f 72 64 20 6f 6d 5f 6f 70 3b 0a 20 20 20 20 20 20 72 65 66 20 6f 6d 5f 66 69 72 73 74 2c ┆ word om_op; ref om_first,┆
0x50ba0…50bc0 20 6f 6d 5f 6c 61 73 74 3b 0a 20 20 20 20 20 20 72 65 66 20 6f 6d 5f 70 72 6f 63 72 65 66 3b 0a ┆ om_last; ref om_procref; ┆
0x50bc0…50be0 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 20 20 20 20 20 20 ┆ word om_hostid, ┆
0x50be0…50c00 20 6f 6d 5f 6e 65 74 69 64 3b 0a 0a 0a 20 20 20 20 20 20 21 20 6f 70 65 00 00 00 00 00 00 00 00 ┆ om_netid; ! ope ┆
0x50c00…50c06 (646,) (0x324,0xa19)
0x50c06…50c20 72 61 74 69 6f 6e 20 6f 75 74 70 75 74 20 21 0a 20 20 20 20 20 20 77 6f 72 64 ┆ration output ! word┆
0x50c20…50c40 20 6f 6f 5f 6d 6f 64 65 6b 69 6e 64 3a 3d 31 34 2c 0a 20 20 20 20 20 20 20 20 20 20 20 6f 6f 5f ┆ oo_modekind:=14, oo_┆
0x50c40…50c60 74 69 6d 65 6f 75 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 ┆timeoutsbuffers:= 0, ┆
0x50c60…50c7e 6f 6f 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 ┆oo_bufsize:= 0; text(11)┆
0x50c7e…50c84 (0x324,0xa1a)
0x50c84…50ca0 20 6f 6f 5f 64 65 76 69 6e 61 6d 65 3b 0a 20 20 20 20 20 20 77 6f 72 64 20 6f 6f 5f ┆ oo_deviname; word oo_┆
0x50ca0…50cc0 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 20 30 2c 20 6f 6f ┆unu1; word oo_net1:= 0, oo┆
0x50cc0…50ce0 5f 6e 65 74 32 3a 3d 20 30 2c 20 6f 6f 5f 75 6e 75 32 2c 20 64 65 76 74 6f 70 3b 0a 0a 20 20 20 ┆_net2:= 0, oo_unu2, devtop; ┆
0x50ce0…50cfc 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 ! ┆
0x50cfc…50d02 (0x324,0xa1b)
0x50d02…50d20 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 ┆ word oa_return,oa_bytes,oa_c┆
0x50d20…50d40 68 61 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 ┆hars,oa_net1,oa_net2,oa_net3,oa_┆
0x50d40…50d60 64 31 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 6e 70 ┆d1,oa_d2; ! operation inp┆
0x50d60…50d7a 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 ┆ut ! word oi_kind,oi┆
0x50d7a…50d80 (0x324,0xa1c)
0x50d80…50da0 5f 62 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 ┆_bufs,oi_bufsize; text(11)┆
0x50da0…50dc0 20 6f 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 ┆ oi_deviname; word oi_net1┆
0x50dc0…50de0 2c 6f 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 6f 69 5f 70 ┆,oi_net2,oi_net3; ref oi_p┆
0x50de0…50e00 72 6f 63 64 65 73 63 72 3b 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 00 00 00 00 00 00 00 00 ┆rocdescr; begin ┆
0x50e00…50e06 (647,) (0x324,0xa1d)
0x50e06…50e20 20 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 ┆ savew1:= w1; savew2:= w2┆
0x50e20…50e40 3b 20 72 65 74 75 72 6e 3a 3d 20 77 33 3b 0a 20 20 20 20 20 20 77 30 3a 3d 20 30 3b 20 6f 6d 5f ┆; return:= w3; w0:= 0; om_┆
0x50e40…50e60 70 72 6f 63 72 65 66 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 33 29 2e ┆procref:= w0; if w0:=(w3).┆
0x50e60…50e7e 6c 75 72 5f 66 75 6e 63 74 69 6f 6e 3d 34 20 74 68 65 6e 0a 20 20 20 20 20 20 62 65 67 69 ┆lur_function=4 then begi┆
0x50e7e…50e84 (0x324,0xa1e)
0x50e84…50ea0 6e 0a 20 20 20 20 20 20 20 20 77 33 3a 3d 28 77 33 29 2e 6c 75 72 5f 70 72 6f 63 6e ┆n w3:=(w3).lur_procn┆
0x50ea0…50ec0 61 6d 65 72 65 66 3b 0a 20 20 20 20 20 20 20 20 77 30 3a 3d 20 28 77 33 29 2e 77 6f 72 64 3b 0a ┆ameref; w0:= (w3).word; ┆
0x50ec0…50ee0 20 20 20 20 20 20 20 20 6f 6d 5f 70 72 6f 63 72 65 66 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 ┆ om_procref:= w0; ┆
0x50ee0…50efc 20 6f 6d 5f 68 6f 73 74 69 64 3a 3d 77 30 3a 3d 20 28 77 33 2b 32 29 2e 77 6f 72 64 ┆ om_hostid:=w0:= (w3+2).word┆
0x50efc…50f02 (0x324,0xa1f)
0x50f02…50f20 3b 0a 20 20 20 20 20 20 20 20 6f 6d 5f 6e 65 74 69 64 3a 3d 20 77 30 3a 3d 20 30 3b 0a 20 ┆; om_netid:= w0:= 0; ┆
0x50f20…50f40 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 20 6f 6d 5f 68 6f 73 74 69 64 20 3d 20 30 20 74 68 65 ┆ if w0:= om_hostid = 0 the┆
0x50f40…50f60 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 77 30 3a ┆n begin if w0:┆
0x50f60…50f7a 3d 20 6f 6d 5f 70 72 6f 63 72 65 66 20 3c 3e 20 30 20 74 68 65 6e 0a 20 20 20 ┆= om_procref <> 0 then ┆
0x50f7a…50f80 (0x324,0xa20)
0x50f80…50fa0 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 63 73 70 20 64 65 76 69 63 65 3b ┆ begin comment csp device;┆
0x50fa0…50fc0 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 20 28 77 32 3a 3d 28 77 32 3a 3d 37 34 29 2e ┆ w2:= (w2:=(w2:=74).┆
0x50fc0…50fe0 77 6f 72 64 20 2b 20 77 30 20 2b 20 77 30 29 2e 77 6f 72 64 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆word + w0 + w0).word; ┆
0x50fe0…51000 20 20 69 66 20 77 30 3a 3d 20 28 77 32 29 2e 77 6f 72 64 20 3d 20 32 36 00 00 00 00 00 00 00 00 ┆ if w0:= (w2).word = 26 ┆
0x51000…51006 (648,) (0x324,0xa21)
0x51006…51020 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 ┆ then begin co┆
0x51020…51040 6d 6d 65 6e 74 20 69 66 70 6d 61 69 6e 20 70 72 6f 63 65 73 73 3b 0a 20 20 20 20 20 20 20 20 20 ┆mment ifpmain process; ┆
0x51040…51060 20 20 20 20 20 6f 61 5f 72 65 74 75 72 6e 3a 3d 20 77 30 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 ┆ oa_return:= w0:= 0; ┆
0x51060…5107e 20 20 20 20 20 20 20 77 30 3a 3d 20 6f 6d 5f 70 72 6f 63 72 65 66 3b 20 21 20 68 6f 73 74 ┆ w0:= om_procref; ! host┆
0x5107e…51084 (0x324,0xa22)
0x51084…510a0 6e 6f 20 3d 20 69 66 70 6d 61 69 6e 20 64 65 76 69 63 65 20 6e 6f 20 21 0a 20 20 20 ┆no = ifpmain device no ! ┆
0x510a0…510c0 20 20 20 20 20 20 20 20 20 20 20 6f 61 5f 6e 65 74 31 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 ┆ oa_net1:= w0; ┆
0x510c0…510e0 20 20 20 20 20 20 20 6f 61 5f 6e 65 74 32 3a 3d 20 77 30 3a 3d 20 30 3b 20 21 20 68 6f 73 74 69 ┆ oa_net2:= w0:= 0; ! hosti┆
0x510e0…510fc 64 20 3d 20 30 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 65 ┆d = 0 ! goto e┆
0x510fc…51102 (0x324,0xa23)
0x51102…51120 78 69 74 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 ┆xit; end; ┆
0x51120…51140 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 77 30 3a 3d ┆ end; end; w0:=┆
0x51140…51160 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 30 3b 0a 20 20 20 ┆ 2'000000000001000000000110; ┆
0x51160…5117a 20 20 20 20 20 77 33 3a 3d 72 65 74 75 72 6e 3b 0a 20 20 20 20 20 20 65 6e 64 ┆ w3:=return; end┆
0x5117a…51180 (0x324,0xa24)
0x51180…511a0 20 65 6c 73 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 ┆ else if w0=2 then w0:= 2'┆
0x511a0…511c0 30 30 30 30 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 ┆000000000001000000000101 else ┆
0x511c0…511e0 20 20 20 20 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 ┆ w0:= 2'000000000001000000000┆
0x511e0…51200 31 31 31 3b 0a 20 20 20 20 20 20 6f 6d 5f 6f 70 3a 3d 20 77 30 3b 0a 20 00 00 00 00 00 00 00 00 ┆111; om_op:= w0; ┆
0x51200…51206 (649,) (0x324,0xa25)
0x51206…51220 20 20 20 20 20 77 33 3a 3d 20 28 77 33 29 2e 6c 75 72 5f 70 72 6f 63 6e 61 6d ┆ w3:= (w3).lur_procnam┆
0x51220…51240 65 72 65 66 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 ┆eref; monitor(4); ! get pr┆
0x51240…51260 6f 63 65 73 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 ┆ocess description ! if w0<┆
0x51260…5127e 3e 30 20 74 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 ┆>0 then om_procref:= w0; ┆
0x5127e…51284 (0x324,0xa26)
0x51284…512a0 20 6d 6f 76 65 28 2e 77 33 2e 2c 77 30 3a 3d 38 2c 77 31 3a 3d 72 65 74 75 72 6e 2e ┆ move(.w3.,w0:=8,w1:=return.┆
0x512a0…512c0 6c 75 72 5f 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 ┆lur_devname,w2:=address(oo_devin┆
0x512c0…512e0 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 75 74 70 75 74 ┆ame)); ! move output┆
0x512e0…512fc 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 28 ┆ to input area ! move(┆
0x512fc…51302 (0x324,0xa27)
0x51302…51320 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 ┆.w3.,w0:=22,w1:=address(oo_mod┆
0x51320…51340 65 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 0a 20 20 ┆ekind),w2:=address(oi_kind)); ┆
0x51340…51360 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 2b 32 30 3b 0a ┆ om_first:= w2; w2+20; ┆
0x51360…5137a 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 ┆ om_last:= w2; ┆
0x5137a…51380 (0x324,0xa28)
0x51380…513a0 74 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 ┆testout(.w3.,w0:=22,w1,w2:=66); ┆
0x513a0…513c0 20 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 20 20 20 20 20 ┆ w1:= address(om_op); ┆
0x513c0…513e0 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 3d 32 29 3b 0a ┆ testout(.w3.,w0:=12,w1,w2:=2); ┆
0x513e0…51400 20 20 20 20 20 20 77 33 3a 3d 20 61 64 64 72 65 73 73 28 68 6f 73 74 29 00 00 00 00 00 00 00 00 ┆ w3:= address(host) ┆
0x51400…51406 (650,) (0x324,0xa29)
0x51406…51420 3b 0a 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 31 36 29 3b 20 21 20 73 65 6e ┆; monitor(16); ! sen┆
0x51420…51440 64 20 6d 65 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 ┆d message ! w1:= address(o┆
0x51440…51460 61 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 29 3b 20 21 20 ┆a_return); monitor(18); ! ┆
0x51460…5147e 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 31 20 74 ┆wait answer ! if w0<>1 t┆
0x5147e…51484 (0x324,0xa2a)
0x51484…514a0 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 ┆hen oa_return:= w0:= 1; ! a ┆
0x514a0…514c0 6c 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 74 ┆little bit dirty ! testout┆
0x514c0…514e0 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 20 20 20 20 74 ┆(.w3.,w0:=12,w1,w2:=67); t┆
0x514e0…514fc 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 65 ┆estout(.w3.,w0:=22,w1:=addre┆
0x514fc…51502 (0x324,0xa2b)
0x51502…51520 73 73 28 6f 69 5f 6b 69 6e 64 29 2c 77 32 3a 3d 36 36 29 3b 0a 20 20 20 20 20 20 77 30 3a ┆ss(oi_kind),w2:=66); w0:┆
0x51520…51540 3d 20 6f 61 5f 72 65 74 75 72 6e 3b 0a 20 20 20 20 20 20 69 66 20 77 30 20 7a 65 72 6f 6d 61 73 ┆= oa_return; if w0 zeromas┆
0x51540…51560 6b 20 31 32 32 38 38 20 21 20 6c 6f 63 61 6c 2f 72 65 6d 6f 74 65 20 6c 69 6e 6b 20 70 72 65 73 ┆k 12288 ! local/remote link pres┆
0x51560…5157a 65 6e 74 20 21 20 74 68 65 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d ┆ent ! then begin com┆
0x5157a…51580 (0x324,0xa2c)
0x51580…515a0 6d 65 6e 74 20 6c 69 6e 6b 20 69 73 20 6e 6f 74 20 6b 6e 6f 77 6e 20 74 6f 20 6e 63 70 2c 20 74 ┆ment link is not known to ncp, t┆
0x515a0…515c0 72 79 20 63 73 70 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 31 3a 3d 20 6f 6d 5f 70 72 6f 63 72 ┆ry csp; if w1:= om_procr┆
0x515c0…515e0 65 66 20 3e 20 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 ┆ef > 0 then begin commen┆
0x515e0…51600 74 20 74 72 79 20 63 73 70 3b 0a 20 20 20 20 20 20 20 20 20 20 77 30 3a 00 00 00 00 00 00 00 00 ┆t try csp; w0: ┆
0x51600…51606 (651,) (0x324,0xa2d)
0x51606…51620 3d 20 28 77 31 29 2e 77 6f 72 64 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 ┆= (w1).word; if ┆
0x51620…51640 77 30 20 3d 20 38 20 74 68 65 6e 20 77 30 3a 3d 20 32 38 3b 0a 20 20 20 20 20 20 20 20 20 20 69 ┆w0 = 8 then w0:= 28; i┆
0x51640…51660 66 20 77 30 20 3d 20 32 38 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 ┆f w0 = 28 then begin c┆
0x51660…5167e 6f 6d 6d 65 6e 74 20 63 73 70 20 64 65 76 69 63 65 20 70 72 6f 63 65 73 73 3b 0a 20 20 20 ┆omment csp device process; ┆
0x5167e…51684 (0x324,0xa2e)
0x51684…516a0 20 20 20 20 20 20 20 20 20 77 32 3a 3d 20 28 77 31 2b 31 30 29 2e 77 6f 72 64 3b 20 ┆ w2:= (w1+10).word; ┆
0x516a0…516c0 21 20 77 32 20 3d 20 70 72 6f 63 2e 20 64 65 73 63 72 2e 20 61 64 64 72 2e 20 6f 66 20 69 66 70 ┆! w2 = proc. descr. addr. of ifp┆
0x516c0…516e0 20 6d 61 69 6e 20 70 72 6f 63 2e 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 20 28 ┆ main proc. ! w1:= (┆
0x516e0…516fc 77 31 3a 3d 37 36 29 2e 77 6f 72 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 64 65 ┆w1:=76).word; de┆
0x516fc…51702 (0x324,0xa2f)
0x51702…51720 76 74 6f 70 3a 3d 20 77 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 20 28 77 ┆vtop:= w1; w1:= (w┆
0x51720…51740 31 3a 3d 37 34 29 2e 77 6f 72 64 3b 20 21 20 77 31 20 3d 20 6e 74 61 20 6f 66 20 64 65 76 69 63 ┆1:=74).word; ! w1 = nta of devic┆
0x51740…51760 65 20 30 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 20 30 3b 20 21 20 69 3a 3d 20 ┆e 0 ! w3:= 0; ! i:= ┆
0x51760…5177a 30 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 68 69 6c 65 20 77 31 20 3c ┆0 ! while w1 <┆
0x5177a…51780 (0x324,0xa30)
0x51780…517a0 20 64 65 76 74 6f 70 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 ┆ devtop do begin ┆
0x517a0…517c0 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 20 28 77 31 29 2e 77 6f 72 64 20 3d 20 77 ┆ if w0:= (w1).word = w┆
0x517c0…517e0 32 20 74 68 65 6e 20 77 31 3a 3d 20 64 65 76 74 6f 70 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 ┆2 then w1:= devtop else ┆
0x517e0…51800 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 ┆
0x51800…51806 (652,) (0x324,0xa31)
0x51806…51820 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 ┆ w1+2; ┆
0x51820…51840 77 33 2b 31 3b 20 21 20 69 3a 3d 20 69 20 2b 20 31 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆w3+1; ! i:= i + 1 ! ┆
0x51840…51860 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; ┆
0x51860…5187e 20 20 20 20 21 20 77 33 20 69 73 20 6e 6f 77 20 64 65 76 69 63 65 20 6e 6f 20 6f 66 20 69 ┆ ! w3 is now device no of i┆
0x5187e…51884 (0x324,0xa32)
0x51884…518a0 66 70 20 6d 61 69 6e 20 70 72 6f 63 2e 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆fp main proc. ! ┆
0x518a0…518c0 6f 61 5f 6e 65 74 31 3a 3d 20 77 33 3b 20 21 20 6a 6f 62 20 68 6f 73 74 20 6c 69 6e 6b 6e 6f 20 ┆oa_net1:= w3; ! job host linkno ┆
0x518c0…518e0 3a 3d 20 69 66 70 20 6d 61 69 6e 20 64 65 76 6e 6f 2e 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 ┆:= ifp main devno. ! ┆
0x518e0…518fc 20 6f 61 5f 6e 65 74 32 3a 3d 20 77 33 3a 3d 20 30 3b 20 21 20 64 65 76 69 63 65 20 ┆ oa_net2:= w3:= 0; ! device ┆
0x518fc…51902 (0x324,0xa33)
0x51902…51920 68 6f 73 74 20 69 64 3a 3d 20 30 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 6f 61 5f 72 ┆host id:= 0 ! oa_r┆
0x51920…51940 65 74 75 72 6e 3a 3d 20 77 33 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 74 65 73 74 6f 75 74 20 ┆eturn:= w3; testout ┆
0x51940…51960 28 2e 77 33 2e 2c 77 30 3a 3d 31 30 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 6f 61 5f 72 65 74 75 ┆(.w3.,w0:=10,w1:=address(oa_retu┆
0x51960…5197a 72 6e 29 2c 77 32 3a 3d 36 38 29 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 ┆rn),w2:=68); end┆
0x5197a…51980 (0x324,0xa34)
0x51980…519a0 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 0a 0a 65 78 69 74 3a ┆; end; end; exit:┆
0x519a0…519c0 20 77 30 3a 3d 20 6f 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 ┆ w0:= oa_return; w1:= oi_k┆
0x519c0…519e0 69 6e 64 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 28 77 ┆ind; w2:= savew2; (w┆
0x519e0…51a00 32 29 2e 77 6f 72 64 3a 3d 20 77 33 3a 3d 20 6f 61 5f 6e 65 74 31 3b 0a 00 00 00 00 00 00 00 00 ┆2).word:= w3:= oa_net1; ┆
0x51a00…51a06 (653,) (0x324,0xa35)
0x51a06…51a20 20 20 20 20 20 20 77 32 2b 32 3b 0a 20 20 20 20 20 20 28 77 32 29 2e 77 6f 72 ┆ w2+2; (w2).wor┆
0x51a20…51a40 64 3a 3d 20 77 33 3a 3d 20 6f 61 5f 6e 65 74 32 3b 0a 20 20 20 20 20 20 77 32 3a 3d 20 73 61 76 ┆d:= w3:= oa_net2; w2:= sav┆
0x51a40…51a60 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 20 65 6e 64 3b ┆ew2; w3:= return; end;┆
0x51a60…51a7e 0a 20 20 65 6e 64 3b 20 21 20 6c 6f 6f 6b 20 75 70 20 72 65 6d 6f 74 65 20 21 0a 0a 0a 0a ┆ end; ! look up remote ! ┆
0x51a7e…51a84 (0x324,0xa36)
0x51a84…51aa0 20 20 62 6f 64 79 20 6f 66 20 74 65 72 6d 69 6e 61 6c 69 64 0a 20 20 63 6f 6d 6d 65 ┆ body of terminalid comme┆
0x51aa0…51ac0 6e 74 20 63 6f 6e 76 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 ┆nt convert devicehost linkno to ┆
0x51ac0…51ae0 74 68 65 20 63 6f 72 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 ┆the corresponding devicename. ┆
0x51ae0…51afc 2b 2b 2b 2b 2b 2b 2b 20 54 68 69 73 20 70 72 6f 63 65 64 75 72 65 20 65 78 69 73 74 ┆+++++++ This procedure exist┆
0x51afc…51b02 (0x324,0xa37)
0x51b02…51b20 73 20 6f 6e 6c 79 20 62 65 63 61 75 73 65 20 74 68 65 20 68 6f 73 74 20 70 72 6f 63 65 64 ┆s only because the host proced┆
0x51b20…51b40 75 72 65 0a 20 20 2b 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 ┆ure +++++++ lookup link is not┆
0x51b40…51b60 20 69 6d 70 6c 65 6d 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 ┆ implemented yet. the procedure ┆
0x51b60…51b7a 69 73 20 76 65 72 79 20 64 69 72 74 79 0a 20 20 2b 2b 2b 2b 2b 2b 2b 20 62 65 ┆is very dirty +++++++ be┆
0x51b7a…51b80 (0x324,0xa38)
0x51b80…51ba0 63 61 75 73 65 20 69 74 20 75 73 65 73 20 61 6e 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 61 ┆cause it uses an implementationa┆
0x51ba0…51bc0 6c 20 64 65 74 61 69 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 ┆l detail in the device +++++++┆
0x51bc0…51be0 20 68 6f 73 74 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 ┆ host ; begin incode ┆
0x51be0…51c00 20 64 6f 75 62 6c 65 20 73 61 76 65 66 31 3b 0a 20 20 20 20 20 20 77 6f 00 00 00 00 00 00 00 00 ┆ double savef1; wo ┆
0x51c00…51c06 (654,) (0x324,0xa39)
0x51c06…51c20 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 ┆rd savew2; ref retur┆
0x51c20…51c40 6e 3b 0a 20 20 20 20 20 20 74 65 78 74 28 31 31 29 20 74 65 72 6d 69 6e 61 6c 3a 3d 20 22 74 65 ┆n; text(11) terminal:= "te┆
0x51c40…51c60 72 6d 69 6e 61 6c 22 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 ┆rminal"; begin savef1:┆
0x51c60…51c7e 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 3d 20 77 33 ┆= f1; savew2:= w2; return:= w3┆
0x51c7e…51c84 (0x324,0xa3a)
0x51c84…51ca0 3b 0a 0a 20 20 20 20 20 20 77 30 2b 31 3b 20 21 20 64 65 76 69 63 65 6e 61 6d 65 20 ┆; w0+1; ! devicename ┆
0x51ca0…51cc0 3d 20 22 74 65 72 6d 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 ┆= "terminal" concat text(deviceh┆
0x51cc0…51ce0 6f 73 74 20 6c 69 6e 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 ┆ost linkno + 1) ! w3:= 0; ┆
0x51ce0…51cfc 20 20 20 20 20 20 66 30 2f 2f 31 30 3b 0a 20 20 20 20 20 20 77 32 3a 3d 20 61 64 64 ┆ f0//10; w2:= add┆
0x51cfc…51d02 (0x324,0xa3b)
0x51d02…51d20 72 65 73 73 28 74 65 72 6d 69 6e 61 6c 29 3b 0a 20 20 20 20 20 20 77 32 2b 34 3b 0a 20 20 ┆ress(terminal); w2+4; ┆
0x51d20…51d40 20 20 20 20 69 66 20 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 ┆ if w0=0 then begin ┆
0x51d40…51d60 20 20 20 20 20 28 77 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 ┆ (w2).word:= w1:= (w2).word ┆
0x51d60…51d7a 6c 73 68 69 66 74 20 2d 38 20 6c 73 68 69 66 74 20 38 20 2b 20 34 38 20 2b 20 ┆lshift -8 lshift 8 + 48 + ┆
0x51d7a…51d80 (0x324,0xa3c)
0x51d80…51da0 77 33 3b 0a 20 20 20 20 20 20 20 20 77 32 2b 32 3b 0a 20 20 20 20 20 20 20 20 28 77 32 29 2e 77 ┆w3; w2+2; (w2).w┆
0x51da0…51dc0 6f 72 64 3a 3d 20 77 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 ┆ord:= w1:= 0; end el┆
0x51dc0…51de0 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 32 29 2e 77 6f 72 64 ┆se begin (w2).word┆
0x51de0…51e00 3a 3d 20 77 31 3a 3d 20 28 77 32 29 2e 77 6f 72 64 20 6c 73 68 69 66 74 00 00 00 00 00 00 00 00 ┆:= w1:= (w2).word lshift ┆
0x51e00…51e06 (655,) (0x324,0xa3d)
0x51e06…51e20 20 2d 38 20 6c 73 68 69 66 74 20 38 20 2b 20 34 38 20 2b 20 77 30 3b 0a 20 20 ┆ -8 lshift 8 + 48 + w0; ┆
0x51e20…51e40 20 20 20 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 ┆ w2+2; (w2).word:= ┆
0x51e40…51e60 77 31 3a 3d 20 77 33 2b 34 38 20 6c 73 68 69 66 74 20 31 36 3b 0a 20 20 20 20 20 20 65 6e 64 3b ┆w1:= w3+48 lshift 16; end;┆
0x51e60…51e7e 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 61 64 64 ┆ move(.w3.,w0:=8,w1:=add┆
0x51e7e…51e84 (0x324,0xa3e)
0x51e84…51ea0 72 65 73 73 28 74 65 72 6d 69 6e 61 6c 29 2c 77 32 3a 3d 73 61 76 65 77 32 29 3b 0a ┆ress(terminal),w2:=savew2); ┆
0x51ea0…51ec0 0a 20 20 20 20 20 20 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 ┆ f1:= savef1; w3:= b.curre┆
0x51ec0…51ee0 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 65 6e ┆nt; call w0 return; en┆
0x51ee0…51efc 64 3b 0a 20 20 65 6e 64 3b 0a 0a 0a 20 20 62 6f 64 79 20 6f 66 20 77 72 69 74 65 69 ┆d; end; body of writei┆
0x51efc…51f02 (0x324,0xa3f)
0x51f02…51f20 6e 74 65 67 65 72 0a 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 0a 20 20 20 20 20 20 20 ┆nteger begin comment ┆
0x51f20…51f40 20 77 33 3a 20 63 75 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 ┆ w3: current (return) w0┆
0x51f40…51f60 3a 20 76 61 6c 75 65 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 ┆: value (call/return) w1┆
0x51f60…51f7a 3a 20 72 65 66 2e 20 73 74 72 69 6e 67 20 28 63 61 6c 6c 2f 72 65 74 75 72 6e ┆: ref. string (call/return┆
0x51f7a…51f80 (0x324,0xa40)
0x51f80…51fa0 29 0a 20 20 20 20 20 20 20 20 77 32 3a 20 72 61 64 69 78 20 73 68 69 66 74 20 31 36 20 2b 20 70 ┆) w2: radix shift 16 + p┆
0x51fa0…51fc0 6f 73 69 74 69 6f 6e 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 ┆ositions shift 8 + fill char (ca┆
0x51fc0…51fe0 6c 6c 2f 72 65 74 75 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 ┆ll/return); incode ref ┆
0x51fe0…52000 72 65 74 75 72 6e 2c 0a 20 20 20 20 20 20 20 20 74 78 74 72 65 66 3b 0a 00 00 00 00 00 00 00 00 ┆return, txtref; ┆
0x52000…52006 (656,) (0x324,0xa41)
0x52006…52020 20 20 20 20 20 20 20 20 77 6f 72 64 20 73 61 76 65 77 32 3b 0a 20 20 20 20 20 ┆ word savew2; ┆
0x52020…52040 20 20 20 77 6f 72 64 20 73 61 76 65 77 30 3b 0a 20 20 20 20 20 20 20 20 77 6f 72 64 20 66 69 6c ┆ word savew0; word fil┆
0x52040…52060 6c 3b 0a 20 20 20 20 20 20 20 20 77 6f 72 64 20 72 61 64 69 78 3b 0a 20 20 20 20 20 20 20 20 77 ┆l; word radix; w┆
0x52060…5207e 6f 72 64 20 70 6f 73 69 74 3b 0a 20 20 20 20 20 20 20 20 77 6f 72 64 20 69 6e 64 65 78 3b ┆ord posit; word index;┆
0x5207e…52084 (0x324,0xa42)
0x52084…520a0 0a 20 20 20 20 20 20 20 20 77 6f 72 64 20 73 69 67 6e 3b 0a 20 20 20 20 20 20 20 20 ┆ word sign; ┆
0x520a0…520c0 61 72 72 61 79 20 28 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 ┆array (1:24) digit of byte; ┆
0x520c0…520e0 62 65 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 ┆begin return:= w3; ┆
0x520e0…520fc 73 61 76 65 77 32 3a 3d 20 77 32 3b 0a 20 20 20 20 20 20 74 78 74 72 65 66 3a 3d 20 ┆savew2:= w2; txtref:= ┆
0x520fc…52102 (0x324,0xa43)
0x52102…52120 77 31 3b 0a 20 20 20 20 20 20 73 61 76 65 77 30 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 66 ┆w1; savew0:= w0; f┆
0x52120…52140 69 6c 6c 3a 3d 20 77 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 ┆ill:= w2 extract 8; posit:┆
0x52140…52160 3d 20 77 32 3a 3d 73 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 ┆= w2:=savew2 lshift -8 extract 8┆
0x52160…5217a 3b 0a 20 20 20 20 20 20 72 61 64 69 78 3a 3d 20 77 32 3a 3d 73 61 76 65 77 32 ┆; radix:= w2:=savew2┆
0x5217a…52180 (0x324,0xa44)
0x52180…521a0 20 6c 73 68 69 66 74 20 2d 31 36 20 65 78 74 72 61 63 74 20 38 3b 0a 0a 20 20 20 20 20 20 69 66 ┆ lshift -16 extract 8; if┆
0x521a0…521c0 20 77 32 3a 3d 72 61 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 ┆ w2:=radix=10 then begin ┆
0x521c0…521e0 20 20 20 20 20 20 20 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 ┆ if w0<0 then begi┆
0x521e0…52200 6e 0a 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 20 34 35 3b 0a 20 20 20 00 00 00 00 00 00 00 00 ┆n w1:= 45; ┆
0x52200…52206 (657,) (0x324,0xa45)
0x52206…52220 20 20 20 20 20 20 20 2d 28 77 30 29 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 20 ┆ -(w0); end ┆
0x52220…52240 65 6c 73 65 20 77 31 3a 3d 20 66 69 6c 6c 3b 0a 20 20 20 20 20 20 65 6e 64 20 65 6c 73 65 20 77 ┆else w1:= fill; end else w┆
0x52240…52260 31 3a 3d 20 66 69 6c 6c 3b 0a 0a 20 20 20 20 20 20 73 69 67 6e 3a 3d 20 77 31 3b 0a 0a 20 20 20 ┆1:= fill; sign:= w1; ┆
0x52260…5227e 20 20 20 66 6f 72 20 77 32 3a 3d 20 70 6f 73 69 74 20 73 74 65 70 20 31 20 64 6f 77 6e 74 ┆ for w2:= posit step 1 downt┆
0x5227e…52284 (0x324,0xa46)
0x52284…522a0 6f 20 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 69 ┆o 1 do begin i┆
0x522a0…522c0 6e 64 65 78 3a 3d 20 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 ┆ndex:= w2; w3:= 0; ┆
0x522c0…522e0 20 20 20 66 30 2f 2f 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 ┆ f0//radix; if w3=0 th┆
0x522e0…522fc 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 ┆en begin i┆
0x522fc…52302 (0x324,0xa47)
0x52302…52320 66 20 77 30 3d 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 w0=0 then begin ┆
0x52320…52340 20 20 20 20 20 20 20 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 ┆ if w2=posit then w3:=4┆
0x52340…52360 38 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 ┆8 else begin ┆
0x52360…5237a 20 20 20 20 20 20 20 77 33 3a 3d 73 69 67 6e 3b 0a 20 20 20 20 20 20 20 20 20 ┆ w3:=sign; ┆
0x5237a…52380 (0x324,0xa48)
0x52380…523a0 20 20 20 20 20 73 69 67 6e 3a 3d 20 77 31 3a 3d 20 66 69 6c 6c 3b 0a 20 20 20 20 20 20 20 20 20 ┆ sign:= w1:= fill; ┆
0x523a0…523c0 20 20 20 65 6e 64 3b 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 ┆ end; end else w3:= ┆
0x523c0…523e0 34 38 3b 0a 20 20 20 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 ┆48; end else if w3>9 the┆
0x523e0…52400 6e 20 77 33 2b 35 35 20 65 6c 73 65 20 77 33 2b 34 38 3b 0a 20 20 20 20 00 00 00 00 00 00 00 00 ┆n w3+55 else w3+48; ┆
0x52400…52406 (658,) (0x324,0xa49)
0x52406…52420 20 20 20 20 28 64 69 67 69 74 28 77 32 29 29 2e 62 79 74 65 3a 3d 20 77 33 3b ┆ (digit(w2)).byte:= w3;┆
0x52420…52440 0a 20 20 20 20 20 20 20 20 0a 20 20 20 20 20 20 20 20 77 32 3a 3d 20 69 6e 64 65 78 3b 0a 20 20 ┆ w2:= index; ┆
0x52440…52460 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 69 66 20 77 30 3c 3e 30 20 74 68 65 6e 20 28 64 69 ┆ end; if w0<>0 then (di┆
0x52460…5247e 67 69 74 28 77 32 3a 3d 31 29 29 2e 62 79 74 65 3a 3d 20 77 30 3a 3d 34 32 3b 0a 0a 20 20 ┆git(w2:=1)).byte:= w0:=42; ┆
0x5247e…52484 (0x324,0xa4a)
0x52484…524a0 20 20 20 20 77 31 3a 3d 20 74 78 74 72 65 66 2d 32 3b 0a 20 20 20 20 20 20 66 6f 72 ┆ w1:= txtref-2; for┆
0x524a0…524c0 20 77 33 3a 3d 20 31 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 ┆ w3:= 1 step 1 upto posit do ┆
0x524c0…524e0 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 77 33 3b 0a 20 20 20 ┆ begin index:= w3; ┆
0x524e0…524fc 20 20 20 20 20 77 30 3a 3d 20 28 64 69 67 69 74 28 77 33 29 29 2e 62 79 74 65 3b 0a ┆ w0:= (digit(w3)).byte; ┆
0x524fc…52502 (0x324,0xa4b)
0x52502…52520 20 20 20 20 20 20 20 20 77 33 3a 3d 20 69 6e 64 65 78 3b 0a 20 20 20 20 20 20 20 20 77 32 ┆ w3:= index; w2┆
0x52520…52540 3a 3d 30 3b 0a 20 20 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 ┆:=0; f3//3; case┆
0x52540…52560 20 77 32 2b 31 20 6f 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 ┆ w2+1 of begin ┆
0x52560…5257a 20 28 77 31 29 2e 77 6f 72 64 3a 3d 20 77 30 2b 28 77 31 29 2e 77 6f 72 64 3b ┆ (w1).word:= w0+(w1).word;┆
0x5257a…52580 (0x324,0xa4c)
0x52580…525a0 0a 20 20 20 20 20 20 20 20 20 20 28 77 31 2b 32 29 2e 77 6f 72 64 3a 3d 20 77 30 20 6c 73 68 69 ┆ (w1+2).word:= w0 lshi┆
0x525a0…525c0 66 74 20 31 36 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 30 20 ┆ft 16; (w1).word:= w0 ┆
0x525c0…525e0 6c 73 68 69 66 74 20 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 ┆lshift 8+(w1).word; end;┆
0x525e0…52600 0a 20 20 20 20 20 20 20 20 77 33 3a 3d 20 69 6e 64 65 78 3b 0a 20 20 20 00 00 00 00 00 00 00 00 ┆ w3:= index; ┆
0x52600…52606 (659,) (0x324,0xa4d)
0x52606…52620 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 77 33 3a 3d 30 3b 77 30 3a 3d 70 6f ┆ end; w3:=0;w0:=po┆
0x52620…52640 73 69 74 3b 0a 20 20 20 20 20 20 66 30 2f 2f 33 3b 0a 20 20 20 20 20 20 69 66 20 77 33 3d 30 20 ┆sit; f0//3; if w3=0 ┆
0x52640…52660 74 68 65 6e 20 28 77 31 2b 32 29 2e 77 6f 72 64 3a 3d 20 77 33 3b 0a 20 20 20 20 20 20 77 30 3a ┆then (w1+2).word:= w3; w0:┆
0x52660…5267e 3d 73 61 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 20 ┆=savew0; w2:=savew2; ┆
0x5267e…52684 (0x324,0xa4e)
0x52684…526a0 20 20 20 77 31 3a 3d 20 74 78 74 72 65 66 3b 0a 20 20 20 20 20 20 77 33 3a 3d 20 62 ┆ w1:= txtref; w3:= b┆
0x526a0…526c0 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; ┆
0x526c0…526e0 20 20 20 20 65 6e 64 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 ┆ end; end; ! writeinteger !┆
0x526e0…526fc 0a 0a 20 20 62 6f 64 79 20 6f 66 20 6f 75 74 6d 61 69 6e 0a 20 20 62 65 67 69 6e 0a ┆ body of outmain begin ┆
0x526fc…52702 (0x324,0xa4f)
0x52702…52720 20 20 20 20 6c 61 62 65 6c 20 72 65 70 5f 6d 61 69 6e 3b 0a 20 20 20 20 69 6e 63 6f 64 65 ┆ label rep_main; incode┆
0x52720…52740 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 62 ┆ ref return, b┆
0x52740…52760 75 66 72 65 66 3b 0a 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 ┆ufref; word size, status; ┆
0x52760…5277a 20 20 20 20 20 20 62 79 74 65 20 6d 61 69 6e 5f 6f 70 3a 3d 20 35 2c 20 6d 61 ┆ byte main_op:= 5, ma┆
0x5277a…52780 (0x324,0xa50)
0x52780…527a0 69 6e 5f 6d 64 3a 3d 20 30 3b 20 21 20 6f 75 74 70 75 74 20 6f 70 65 72 61 74 69 6f 6e 20 21 0a ┆in_md:= 0; ! output operation ! ┆
0x527a0…527c0 20 20 20 20 20 20 77 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 ┆ word main_fs, ! f┆
0x527c0…527e0 69 72 73 74 20 61 64 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 ┆irst address ! mai┆
0x527e0…52800 6e 5f 6c 73 3b 20 20 20 20 20 20 20 20 20 20 21 20 6c 61 73 74 20 20 61 00 00 00 00 00 00 00 00 ┆n_ls; ! last a ┆
0x52800…52806 (660,) (0x324,0xa51)
0x52806…52820 64 64 72 65 73 73 20 20 20 20 21 0a 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 ┆ddress ! begin ┆
0x52820…52840 20 20 20 69 66 20 77 30 3a 3d 20 62 2e 6f 70 72 74 64 65 74 61 69 6c 73 20 7a 65 72 6f 6d 61 73 ┆ if w0:= b.oprtdetails zeromas┆
0x52840…52860 6b 20 32 27 30 31 30 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 ┆k 2'010 then begin comment┆
0x52860…5287e 20 6e 6f 20 6f 75 74 70 75 74 20 74 6f 20 6d 61 69 6e 20 6f 70 65 72 61 74 6f 72 3b 0a 20 ┆ no output to main operator; ┆
0x5287e…52884 (0x324,0xa52)
0x52884…528a0 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 ┆ return:= w3; ┆
0x528a0…528c0 77 33 3a 3d 20 62 2e 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 ┆w3:= b.current; (w3).tc_┆
0x528c0…528e0 68 6f 6c 64 3a 3d 20 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 ┆hold:= w0:= 0; ! dont hold ! ┆
0x528e0…528fc 20 20 20 20 20 77 32 3a 3d 20 32 3b 20 21 20 6e 6f 72 6d 61 6c 20 61 6e 73 77 65 72 ┆ w2:= 2; ! normal answer┆
0x528fc…52902 (0x324,0xa53)
0x52902…52920 20 21 0a 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 ┆ ! call w0 return; ┆
0x52920…52940 20 20 20 65 6e 64 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 ┆ end; return:= w3; ┆
0x52940…52960 20 62 75 66 72 65 66 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 ┆ bufref:= w1; rep_main: pu┆
0x52960…5297a 73 68 28 2e 77 33 2e 2c 77 30 3a 3d 72 65 74 75 72 6e 29 3b 20 21 20 73 61 76 ┆sh(.w3.,w0:=return); ! sav┆
0x5297a…52980 (0x324,0xa54)
0x52980…529a0 65 20 72 65 74 75 72 6e 20 21 0a 20 20 20 20 20 20 70 75 73 68 28 2e 77 33 2e 2c 77 30 3a 3d 62 ┆e return ! push(.w3.,w0:=b┆
0x529a0…529c0 75 66 72 65 66 29 3b 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 ┆ufref); ! save bufref ! m┆
0x529c0…529e0 6f 76 65 28 2e 77 33 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 ┆ove(.w3.,w0:=6,w1:=bufref,w2:=ad┆
0x529e0…52a00 64 72 65 73 73 28 6d 61 69 6e 5f 6f 70 29 29 3b 0a 20 20 20 20 20 20 73 00 00 00 00 00 00 00 00 ┆dress(main_op)); s ┆
0x52a00…52a06 (661,) (0x324,0xa55)
0x52a06…52a20 69 7a 65 3a 3d 20 77 30 3a 3d 20 6d 61 69 6e 5f 6c 73 2d 6d 61 69 6e 5f 66 73 ┆ize:= w0:= main_ls-main_fs┆
0x52a20…52a40 2b 32 3b 0a 20 20 20 20 20 20 70 75 73 68 28 2e 77 33 2e 2c 77 30 3a 3d 73 69 7a 65 29 3b 0a 20 ┆+2; push(.w3.,w0:=size); ┆
0x52a40…52a60 20 20 20 20 20 77 32 3a 3d 61 64 64 72 65 73 73 28 62 2e 6d 61 69 6e 5f 6f 70 65 72 61 74 6f 72 ┆ w2:=address(b.main_operator┆
0x52a60…52a7e 29 3b 0a 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 3a 3d ┆); sendwait(.w3.,w0,w1:=┆
0x52a7e…52a84 (0x324,0xa56)
0x52a84…52aa0 61 64 64 72 65 73 73 28 6d 61 69 6e 5f 6f 70 29 2c 77 32 29 3b 0a 20 20 20 20 20 20 ┆address(main_op),w2); ┆
0x52aa0…52ac0 77 31 3a 3d 20 31 20 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 ┆w1:= 1 lshift w0; if w1=2 ┆
0x52ac0…52ae0 74 68 65 6e 20 77 31 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 ┆then w1 or b.ans_status; s┆
0x52ae0…52afc 74 61 74 75 73 3a 3d 20 77 31 3b 0a 20 20 20 20 20 20 70 6f 70 28 2e 77 33 2e 2c 77 ┆tatus:= w1; pop(.w3.,w┆
0x52afc…52b02 (0x324,0xa57)
0x52b02…52b20 30 29 3b 73 69 7a 65 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 70 6f 70 28 2e 77 33 2e 2c 77 ┆0);size:= w0; pop(.w3.,w┆
0x52b20…52b40 30 29 3b 62 75 66 72 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 ┆0);bufref:=w0; pop(.w3.,w0┆
0x52b40…52b60 29 3b 72 65 74 75 72 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 ┆);return:=w0; if w1 and 2<┆
0x52b60…52b7a 3e 30 20 21 20 6e 6f 72 6d 61 6c 20 61 6e 73 77 65 72 20 21 20 74 68 65 6e 20 ┆>0 ! normal answer ! then ┆
0x52b7a…52b80 (0x324,0xa58)
0x52b80…52ba0 77 30 3a 3d 20 62 2e 61 6e 73 5f 62 79 74 65 73 20 65 6c 73 65 20 77 30 3a 3d 2d 31 3b 0a 20 20 ┆w0:= b.ans_bytes else w0:=-1; ┆
0x52ba0…52bc0 20 20 20 20 69 66 20 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 ┆ if w0<size then begin ┆
0x52bc0…52be0 20 20 20 20 20 20 20 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 ┆ if w1:= status and 2'110┆
0x52be0…52c00 30 30 30 3c 3e 30 20 21 20 64 6f 65 73 20 6e 6f 74 20 65 78 69 73 74 2c 00 00 00 00 00 00 00 00 ┆000<>0 ! does not exist, ┆
0x52c00…52c06 (662,) (0x324,0xa59)
0x52c06…52c20 20 64 69 63 63 6f 6e 6e 65 63 74 65 64 20 21 20 74 68 65 6e 0a 20 20 20 20 20 ┆ dicconnected ! then ┆
0x52c20…52c40 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 6c 69 6e 6b 75 70 72 65 6d 6f 74 65 28 ┆ begin linkupremote(┆
0x52c40…52c60 2e 77 33 2e 2c 77 30 3a 3d 38 2c 77 30 3a 3d 62 2e 70 72 6f 63 5f 68 6e 6f 2c 77 30 3a 3d 62 2e ┆.w3.,w0:=8,w0:=b.proc_hno,w0:=b.┆
0x52c60…52c7e 70 72 6f 63 5f 68 69 64 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆proc_hid, ┆
0x52c7e…52c84 (0x324,0xa5a)
0x52c84…52ca0 20 20 20 20 20 20 20 20 77 30 3a 3d 61 64 64 72 65 73 73 28 62 2e 70 72 6f 63 5f 64 ┆ w0:=address(b.proc_d┆
0x52ca0…52cc0 65 76 6e 61 6d 65 29 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 ┆evname),w0,w2); if w0=┆
0x52cc0…52ce0 34 30 39 36 20 21 20 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 ┆4096 ! created ! then ┆
0x52ce0…52cfc 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f 76 65 28 2e 77 33 2e 2c ┆begin move(.w3.,┆
0x52cfc…52d02 (0x324,0xa5b)
0x52d02…52d20 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 62 2e 6d ┆w0:=8,w1:=w2+2,w2:=address(b.m┆
0x52d20…52d40 61 69 6e 5f 6f 70 65 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 ┆ain_operator)); goto┆
0x52d40…52d60 20 72 65 70 5f 6d 61 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 ┆ rep_main; end; ┆
0x52d60…52d7a 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 ┆
0x52d7a…52d80 (0x324,0xa5c)
0x52d80…52da0 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3e 3d 30 20 74 68 65 6e 20 67 6f 74 6f 20 72 65 70 5f ┆ if w0>=0 then goto rep_┆
0x52da0…52dc0 6d 61 69 6e 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 0a 20 20 ┆main; end; end; ┆
0x52dc0…52de0 20 20 20 20 77 30 3a 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 ┆ w0:=size; w2:=status; ┆
0x52de0…52e00 20 20 20 20 20 20 77 31 3a 3d 62 75 66 72 65 66 3b 0a 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ w1:=bufref; ┆
0x52e00…52e06 (663,) (0x324,0xa5d)
0x52e06…52e20 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 20 ┆w3:=b.current; call ┆
0x52e20…52e40 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 65 6e 64 ┆w0 return; end; end; ! end┆
0x52e40…52e60 20 6f 75 74 6d 61 69 6e 20 21 0a 0a 0a 0a 21 62 72 61 6e 63 68 20 31 2c 32 3b 0a 0a 20 20 62 6f ┆ outmain ! !branch 1,2; bo┆
0x52e60…52e7e 64 79 20 6f 66 20 69 6e 69 74 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 6c 61 62 65 6c 20 61 ┆dy of init begin label a┆
0x52e7e…52e84 (0x324,0xa5e)
0x52e84…52ea0 6c 6c 6f 63 61 74 65 2c 69 6e 69 74 62 75 66 73 3b 0a 20 20 20 20 69 6e 63 6f 64 65 ┆llocate,initbufs; incode┆
0x52ea0…52ec0 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 62 79 74 65 20 6f 70 ┆ ref return; byte op┆
0x52ec0…52ee0 76 65 72 73 69 6f 6e 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 ┆version:=16,modeversion:= 8'0140┆
0x52ee0…52efc 3b 0a 20 20 20 20 20 20 74 65 78 74 28 31 34 29 20 74 65 78 74 76 65 72 73 69 6f 6e ┆; text(14) textversion┆
0x52efc…52f02 (0x324,0xa5f)
0x52f02…52f20 3a 3d 0a 20 20 20 20 20 20 21 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 2a 20 70 72 ┆:= ! *** pr┆
0x52f20…52f40 69 6d 6f 20 2a 2a 2a 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 ┆imo *** ! "relea┆
0x52f40…52f60 73 65 3a 20 36 2e 30 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 ┆se: 6.0" ; word ┆
0x52f60…52f7a 20 20 21 20 64 61 74 65 20 6f 66 20 76 65 72 73 69 6f 6e 20 20 20 20 20 20 20 ┆ ! date of version ┆
0x52f7a…52f80 (0x324,0xa60)
0x52f80…52fa0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 76 65 72 64 61 74 65 3a ┆ ! verdate:┆
0x52fa0…52fc0 3d 20 20 20 20 38 36 30 39 30 31 2c 0a 0a 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 3d 3d 3d 74 ┆= 860901, comment ===t┆
0x52fc0…52fe0 72 69 6d 73 74 61 72 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 ┆rimstart; ! date of option┆
0x52fe0…53000 73 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 ┆s ┆
0x53000…53006 (664,) (0x324,0xa61)
0x53006…53020 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 ┆ ! options := ┆
0x53020…53040 30 2c 0a 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 ┆0, ! number of printer cor┆
0x53040…53060 6f 75 74 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 75 6e 74 ┆outines ! prcount┆
0x53060…5307e 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 20 ┆ := 3, ! size of ┆
0x5307e…53084 (0x324,0xa62)
0x53084…530a0 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 ┆printer buffer (halfwords) ┆
0x530a0…530c0 20 20 20 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 ┆ ! prbufsize := 128, ┆
0x530c0…530e0 20 20 20 20 20 21 20 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 ┆ ! leading and trailing page┆
0x530e0…530fc 20 6f 6e 20 70 72 69 6e 74 65 72 20 6c 69 73 74 73 20 20 21 20 70 72 6c 74 70 61 67 ┆ on printer lists ! prltpag┆
0x530fc…53102 (0x324,0xa63)
0x53102…53120 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 20 6c 69 6e 65 ┆e := 1, ! max line┆
0x53120…53140 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 20 20 20 20 20 ┆s pr printer page ┆
0x53140…53160 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 2c 0a 20 20 20 20 20 ┆ ! prlinepage := 100, ┆
0x53160…5317a 20 21 20 6e 75 6d 62 65 72 20 6f 66 20 70 75 6e 63 68 20 63 6f 72 6f 75 74 69 ┆ ! number of punch corouti┆
0x5317a…53180 (0x324,0xa64)
0x53180…531a0 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 75 6e 74 20 20 ┆nes ! pccount ┆
0x531a0…531c0 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 70 75 6e 63 ┆ := 1, ! size of punc┆
0x531c0…531e0 68 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 20 20 20 20 20 ┆h buffer (halfwords) ┆
0x531e0…53200 21 20 70 63 62 75 66 73 69 7a 65 20 20 20 20 3a 3d 20 31 32 38 2c 0a 20 00 00 00 00 00 00 00 00 ┆! pcbufsize := 128, ┆
0x53200…53206 (665,) (0x324,0xa65)
0x53206…53220 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 ┆ ! number of reader co┆
0x53220…53240 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 21 20 72 64 63 6f 75 ┆routines ! rdcou┆
0x53240…53260 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 20 ┆nt := 1, ! size of ┆
0x53260…5327e 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 20 ┆reader buffer (halfwords) ┆
0x5327e…53284 (0x324,0xa66)
0x53284…532a0 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 ┆ ! rdbufsize := 128,┆
0x532a0…532c0 0a 20 20 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 ┆ ! number of cardreader co┆
0x532c0…532e0 72 6f 75 74 69 6e 65 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 ┆routines ! cdcount ┆
0x532e0…532fc 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 ┆ := 1, ! size of ┆
0x532fc…53302 (0x324,0xa67)
0x53302…53320 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 72 64 73 29 20 ┆cardreader buffer (halfwords) ┆
0x53320…53340 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 2c 0a 20 20 20 ┆ ! cdbufsize := 108, ┆
0x53340…53360 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 69 6e 65 73 20 28 68 ┆ ! number of tty coroutines (h┆
0x53360…5337a 61 6c 66 77 6f 72 64 73 29 20 20 20 20 20 20 20 20 21 20 74 77 63 6f 75 6e 74 ┆alfwords) ! twcount┆
0x5337a…53380 (0x324,0xa68)
0x53380…533a0 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 20 74 74 ┆ := 1, ! size of tt┆
0x533a0…533c0 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 20 20 20 20 20 ┆y buffer ┆
0x533c0…533e0 20 20 21 20 74 77 62 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 ┆ ! twbufsize := 104, ┆
0x533e0…53400 21 20 6e 6f 20 6f 66 20 66 6f 72 6d 61 74 20 70 72 69 6e 74 65 72 20 63 00 00 00 00 00 00 00 00 ┆! no of format printer c ┆
0x53400…53406 (666,) (0x324,0xa69)
0x53406…53420 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 ┆oroutines ! fp┆
0x53420…53440 72 63 6f 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 ┆rcount := 1, ! size ┆
0x53440…53460 6f 66 20 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 72 20 20 ┆of fpr buf incl. 10 hlw. hd/tr ┆
0x53460…5347e 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 0a ┆ ! fprbufsize := 172, ┆
0x5347e…53484 (0x324,0xa6a)
0x53484…534a0 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 ┆ ! no of operator corou┆
0x534a0…534c0 74 69 6e 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 ┆tines ! oprcou┆
0x534c0…534e0 6e 74 20 20 20 20 20 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 ┆nt := 2, ! no of tra┆
0x534e0…534fc 6e 73 70 6f 72 74 20 64 65 73 63 72 69 70 74 69 6f 6e 20 73 65 67 6d 6e 74 73 20 20 ┆nsport description segmnts ┆
0x534fc…53502 (0x324,0xa6b)
0x53502…53520 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 31 30 30 2c 0a ┆ ! trsegm := 100, ┆
0x53520…53540 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 61 72 65 61 20 ┆ ! size of testoutput area ┆
0x53540…53560 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 74 73 65 67 6d 6e 74 ┆ ! testsegmnt┆
0x53560…5357a 73 20 20 3a 3d 20 20 34 32 2c 0a 20 20 20 20 20 20 21 20 74 72 61 6e 73 70 6f ┆s := 42, ! transpo┆
0x5357a…53580 (0x324,0xa6c)
0x53580…535a0 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 20 20 20 20 20 ┆rt description save period ┆
0x535a0…535c0 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 0a 20 20 20 20 ┆ ! trsaveminut := 60, ┆
0x535c0…535e0 20 20 21 20 6e 6f 20 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 ┆ ! no of waiting transports ( ┆
0x535e0…53600 74 6f 74 61 6c 20 29 20 20 20 20 20 20 20 20 20 21 20 77 61 69 74 74 72 00 00 00 00 00 00 00 00 ┆total ) ! waittr ┆
0x53600…53606 (667,) (0x324,0xa6d)
0x53606…53620 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 ┆ans := 50, ! no ┆
0x53620…53640 6f 66 20 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 ┆of pending wait operations ┆
0x53640…53660 20 20 20 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 35 2c 0a ┆ ! waitops := 5, ┆
0x53660…5367e 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 66 ┆ ! operator output specif┆
0x5367e…53684 (0x324,0xa6e)
0x53684…536a0 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 ┆ication: ! oprd┆
0x536a0…536c0 65 74 61 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 ┆etails := 2, ! bit 23:┆
0x536c0…536e0 20 6f 75 74 70 75 74 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 ┆ output information concerning t┆
0x536e0…536fc 72 61 6e 73 70 6f 72 74 20 74 65 72 6d 69 6e 61 74 69 6f 6e 2e 20 20 20 20 20 21 0a ┆ransport termination. ! ┆
0x536fc…53702 (0x324,0xa6f)
0x53702…53720 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 70 75 74 20 74 ┆ ! bit 22: route output t┆
0x53720…53740 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 65 64 20 75 70 ┆o main operator if not signed up┆
0x53740…53760 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 70 74 20 74 72 61 6e ┆ or trouble! ! accept tran┆
0x53760…5377a 73 70 6f 72 74 73 20 74 6f 20 6e 6f 6e 65 78 69 73 74 69 6e 67 20 64 65 76 2e ┆sports to nonexisting dev.┆
0x5377a…53780 (0x324,0xa70)
0x53780…537a0 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 30 2c 0a 20 20 ┆ host ! taccept := 0, ┆
0x537a0…537c0 20 20 20 20 63 6f 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 ┆ comment ===trimfinis; ┆
0x537c0…537e0 20 73 70 6f 6f 6c 70 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 ┆ spoolpointer:=0; text(11)┆
0x537e0…53800 20 74 65 73 74 61 72 65 61 3a 3d 20 22 70 72 69 6d 6f 74 65 73 74 22 2c 00 00 00 00 00 00 00 00 ┆ testarea:= "primotest", ┆
0x53800…53806 (668,) (0x324,0xa71)
0x53806…53820 20 73 70 6f 6f 6c 61 72 65 61 3a 3d 20 22 70 72 69 6d 6f 73 70 6f 6f 6c 22 2c ┆ spoolarea:= "primospool",┆
0x53820…53840 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 73 65 75 64 6f 6e 61 6d 65 3a 3d 20 22 70 72 ┆ pseudoname:= "pr┆
0x53840…53860 69 6d 6f 73 79 73 22 3b 0a 20 20 20 20 20 20 61 72 72 61 79 28 31 3a 31 30 29 20 74 61 69 6c 20 ┆imosys"; array(1:10) tail ┆
0x53860…5387e 6f 66 20 77 6f 72 64 20 3a 3d 20 30 20 30 20 30 20 30 20 30 20 30 20 30 20 30 20 30 20 30 ┆of word := 0 0 0 0 0 0 0 0 0 0┆
0x5387e…53884 (0x324,0xa72)
0x53884…538a0 3b 0a 20 20 20 20 20 20 72 65 66 20 71 75 65 75 65 66 73 74 2c 71 75 65 75 65 74 6f ┆; ref queuefst,queueto┆
0x538a0…538c0 70 3b 0a 20 20 20 20 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 ┆p; ref tcbufref, oprbufref┆
0x538c0…538e0 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┆
0x538e0…538fc 3b 0a 20 20 20 20 20 20 77 6f 72 64 20 61 6c 61 72 6d 3b 0a 20 20 20 20 20 20 74 65 ┆; word alarm; te┆
0x538fc…53902 (0x324,0xa73)
0x53902…53920 78 74 28 31 34 29 20 72 65 73 6f 75 72 63 65 3a 3d 20 22 22 3b 0a 20 20 20 20 20 20 77 6f ┆xt(14) resource:= ""; wo┆
0x53920…53940 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 74 6f 70 ┆rd stdvalue,margin,bufclaim,stop┆
0x53940…53960 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 69 7a 65 ┆:=0; text(14)size := "size┆
0x53960…5397a 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 ┆", area := "┆
0x5397a…53980 (0x324,0xa74)
0x53980…539a0 61 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 22 62 75 ┆area", buf := "bu┆
0x539a0…539c0 66 22 3b 0a 20 20 20 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 ┆f"; byte funcop:= 16, func┆
0x539c0…539e0 6d 6f 64 65 3a 3d 20 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 ┆mode:= 0; text(21) functex┆
0x539e0…53a00 74 3a 3d 22 2a 2a 2a 66 75 6e 63 74 69 6f 6e 20 31 2c 32 2c 33 2c 34 2c 00 00 00 00 00 00 00 00 ┆t:="***function 1,2,3,4, ┆
0x53a00…53a06 (669,) (0x324,0xa75)
0x53a06…53a20 35 22 3b 0a 20 20 20 20 20 20 62 79 74 65 20 69 6e 69 74 74 72 6f 70 3a 3d 20 ┆5"; byte inittrop:= ┆
0x53a20…53a40 32 2c 20 69 6e 69 74 74 72 6d 6f 64 65 3a 3d 20 31 3b 0a 20 20 20 20 20 20 74 65 78 74 28 32 30 ┆2, inittrmode:= 1; text(20┆
0x53a40…53a60 29 69 6e 69 74 74 72 3a 3d 22 20 20 2a 2a 2a 69 6e 69 74 20 74 72 6f 75 62 6c 65 73 22 3b 0a 20 ┆)inittr:=" ***init troubles"; ┆
0x53a60…53a7e 20 20 20 20 20 62 79 74 65 20 6f 70 32 3a 3d 31 36 2c 6d 6f 64 65 32 3a 3d 30 3b 0a 20 20 ┆ byte op2:=16,mode2:=0; ┆
0x53a7e…53a84 (0x324,0xa76)
0x53a84…53aa0 20 20 20 20 74 65 78 74 28 32 30 29 20 73 74 61 72 74 65 64 3a 3d 22 73 74 61 72 74 ┆ text(20) started:="start┆
0x53aa0…53ac0 65 64 22 3b 0a 20 20 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 ┆ed"; word pos_nine:= 9, ne┆
0x53ac0…53ae0 67 5f 6e 69 6e 65 3a 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 ┆g_nine:= -9; begin ret┆
0x53ae0…53afc 75 72 6e 3a 3d 77 33 3b 0a 20 20 20 20 20 20 67 6f 74 6f 20 61 6c 6c 6f 63 61 74 65 ┆urn:=w3; goto allocate┆
0x53afc…53b02 (0x324,0xa77)
0x53b02…53b20 3b 0a 0a 69 6e 69 74 62 75 66 73 3a 0a 0a 0a 20 20 20 20 20 20 77 30 3a 3d 20 30 3b 0a 20 ┆; initbufs: w0:= 0; ┆
0x53b20…53b40 20 20 20 20 20 77 32 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 ┆ w2:= b.gac_top; for w┆
0x53b40…53b60 32 2d 32 20 73 74 65 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 ┆2-2 step 2 downto b.bs_first do ┆
0x53b60…53b7a 28 77 32 29 2e 77 6f 72 64 3a 3d 20 77 30 3b 0a 0a 20 20 20 20 20 20 77 31 3a ┆(w2).word:= w0; w1:┆
0x53b7a…53b80 (0x324,0xa78)
0x53b80…53ba0 3d 20 71 75 65 75 65 66 73 74 3b 0a 20 20 20 20 20 20 77 32 3a 3d 20 61 64 64 72 65 73 73 28 62 ┆= queuefst; w2:= address(b┆
0x53ba0…53bc0 2e 74 71 66 72 65 65 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 ┆.tqfreefst); while w1<queu┆
0x53bc0…53be0 65 74 6f 70 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 ┆etop do begin (w1)┆
0x53be0…53c00 2e 74 71 5f 6e 65 78 74 3a 3d 20 77 31 3b 0a 20 20 20 20 20 20 20 20 28 00 00 00 00 00 00 00 00 ┆.tq_next:= w1; ( ┆
0x53c00…53c06 (670,) (0x324,0xa79)
0x53c06…53c20 77 31 29 2e 74 71 5f 70 72 65 76 3a 3d 20 77 31 3b 0a 20 20 20 20 20 20 20 20 ┆w1).tq_prev:= w1; ┆
0x53c20…53c40 6c 69 6e 6b 28 2e 77 33 2e 2c 77 31 2c 77 32 29 3b 0a 20 20 20 20 20 20 20 20 77 31 2b 21 6c 65 ┆link(.w3.,w1,w2); w1+!le┆
0x53c40…53c60 6e 67 74 68 28 71 75 65 75 65 72 65 63 29 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 ┆ngth(queuerec); end; ┆
0x53c60…53c7e 20 21 20 69 6e 69 74 20 61 70 70 6c 2e 20 69 6e 74 65 72 66 61 63 65 20 20 63 6f 72 6f 75 ┆ ! init appl. interface corou┆
0x53c7e…53c84 (0x324,0xa7a)
0x53c84…53ca0 74 20 21 0a 20 20 20 20 20 20 77 31 3a 3d 20 62 2e 61 70 6c 5f 66 73 74 3b 0a 20 20 ┆t ! w1:= b.apl_fst; ┆
0x53ca0…53cc0 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 20 28 77 31 29 ┆ (w1).c_next:= w1; (w1)┆
0x53cc0…53ce0 2e 63 5f 70 72 65 76 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 ┆.c_prev:= w1; (w1).c_nr:= ┆
0x53ce0…53cfc 77 30 3a 3d 20 31 3b 0a 20 20 20 20 20 20 6c 69 6e 6b 28 2e 77 33 2e 2c 77 31 2c 77 ┆w0:= 1; link(.w3.,w1,w┆
0x53cfc…53d02 (0x324,0xa7b)
0x53d02…53d20 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 0a 20 20 20 ┆2:=address(b.activqfst)); ┆
0x53d20…53d40 20 20 20 21 20 69 6e 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 ┆ ! init opr. interface ! ┆
0x53d40…53d60 20 77 31 3a 3d 20 62 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 ┆ w1:= b.opr_fst; if w0:=op┆
0x53d60…53d7a 72 63 6f 75 6e 74 3e 30 20 74 68 65 6e 0a 20 20 20 20 20 20 66 6f 72 20 77 30 ┆rcount>0 then for w0┆
0x53d7a…53d80 (0x324,0xa7c)
0x53d80…53da0 3a 3d 31 20 73 74 65 70 20 31 20 75 70 74 6f 20 6f 70 72 63 6f 75 6e 74 20 64 6f 0a 20 20 20 20 ┆:=1 step 1 upto oprcount do ┆
0x53da0…53dc0 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 3d 20 77 31 ┆ begin (w1).c_next:= w1┆
0x53dc0…53de0 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 3b 0a 20 20 20 20 ┆; (w1).c_prev:= w1; ┆
0x53de0…53e00 20 20 20 20 28 77 31 29 2e 63 5f 6e 72 3a 3d 20 77 33 3a 3d 20 20 77 30 00 00 00 00 00 00 00 00 ┆ (w1).c_nr:= w3:= w0 ┆
0x53e00…53e06 (671,) (0x324,0xa7d)
0x53e06…53e20 2b 31 30 30 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 63 5f 73 74 61 63 6b ┆+100; (w1).c_stack┆
0x53e20…53e40 3a 3d 20 77 33 3a 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 ┆:= w3:= address((w1).c_stack); ┆
0x53e40…53e60 20 20 20 20 20 20 20 28 77 31 29 2e 6f 70 72 5f 62 75 66 3a 3d 20 77 32 3a 3d 20 6f 70 72 62 75 ┆ (w1).opr_buf:= w2:= oprbu┆
0x53e60…53e7e 66 72 65 66 3b 0a 20 20 20 20 20 20 20 20 77 32 2b 62 2e 6f 70 72 74 5f 62 75 66 6c 2b 28 ┆fref; w2+b.oprt_bufl+(┆
0x53e7e…53e84 (0x324,0xa7e)
0x53e84…53ea0 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 ┆!length(bufhead)-2); ┆
0x53ea0…53ec0 20 6f 70 72 62 75 66 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 ┆ oprbufref:= w2; link(.w┆
0x53ec0…53ee0 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 3b ┆3.,w1,w2:=address(b.activqfst));┆
0x53ee0…53efc 0a 20 20 20 20 20 20 20 20 77 31 2b 21 6c 65 6e 67 74 68 28 6f 70 72 63 6f 72 6f 75 ┆ w1+!length(oprcorou┆
0x53efc…53f02 (0x324,0xa7f)
0x53f02…53f20 74 29 3b 0a 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 ┆t); end; w1:= b.t┆
0x53f20…53f40 63 70 6f 6f 6c 5f 66 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 ┆cpool_fst; if w3:=prcount>┆
0x53f40…53f60 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 20 75 70 ┆0 then for w3:=1 step 1 up┆
0x53f60…53f7a 74 6f 20 70 72 63 6f 75 6e 74 20 64 6f 0a 20 20 20 20 20 20 62 65 67 69 6e 0a ┆to prcount do begin ┆
0x53f7a…53f80 (0x324,0xa80)
0x53f80…53fa0 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 20 20 20 ┆ (w1).c_next:=w1; ┆
0x53fa0…53fc0 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 77 31 29 2e 63 ┆ (w1).c_prev:=w1; (w1).c┆
0x53fc0…53fe0 5f 6e 72 3a 3d 77 32 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 ┆_nr:=w2:=w3+200; (w1).pr┆
0x53fe0…54000 5f 68 65 61 64 74 72 61 69 6c 3a 3d 20 77 30 3a 3d 20 70 72 6c 74 70 61 00 00 00 00 00 00 00 00 ┆_headtrail:= w0:= prltpa ┆
0x54000…54006 (672,) (0x324,0xa81)
0x54006…54020 67 65 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 74 63 5f 6b 69 6e 64 3a 3d ┆ge; (w1).tc_kind:=┆
0x54020…54040 20 77 30 3a 3d 20 31 34 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 74 63 5f 6e 65 78 74 74 72 ┆ w0:= 14; (w1).tc_nexttr┆
0x54040…54060 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 74 72 29 3b ┆:= w0:= address((w1).tc_nexttr);┆
0x54060…5407e 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 ┆ (w1).tc_prevtr:= w0; ┆
0x5407e…54084 (0x324,0xa82)
0x54084…540a0 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 ┆ (w1).tc_buf:=w2:=tcb┆
0x540a0…540c0 75 66 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 ┆ufref; (w1).c_stack:=w0:┆
0x540c0…540e0 3d 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 20 20 20 ┆=address((w1).c_stack); ┆
0x540e0…540fc 77 32 2b 70 72 62 75 66 73 69 7a 65 2b 28 21 6c 65 6e 67 74 68 28 62 75 66 68 65 61 ┆w2+prbufsize+(!length(bufhea┆
0x540fc…54102 (0x324,0xa83)
0x54102…54120 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 ┆d)-2); (w1).tc_bsbuf:=┆
0x54120…54140 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 20 74 63 62 75 ┆w2; w2+512; tcbu┆
0x54140…54160 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 63 5f 62 75 66 73 69 ┆fref:= w2; (w1).tc_bufsi┆
0x54160…5417a 7a 65 3a 3d 20 77 30 3a 3d 20 70 72 62 75 66 73 69 7a 65 3b 0a 20 20 20 20 20 ┆ze:= w0:= prbufsize; ┆
0x5417a…54180 (0x324,0xa84)
0x54180…541a0 20 20 20 77 30 3a 3d 20 77 31 2b 21 6c 65 6e 67 74 68 28 70 72 63 6f 72 6f 75 74 29 3b 0a 20 20 ┆ w0:= w1+!length(prcorout); ┆
0x541a0…541c0 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 20 20 20 20 20 ┆ (w1).tc_nexttc:= w0; ┆
0x541c0…541e0 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 20 20 20 20 69 66 ┆ w1:= w0; end; if┆
0x541e0…54200 20 77 33 3a 3d 70 63 63 6f 75 6e 74 3e 30 20 74 68 65 6e 0a 20 20 20 20 00 00 00 00 00 00 00 00 ┆ w3:=pccount>0 then ┆
0x54200…54206 (673,) (0x324,0xa85)
0x54206…54220 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 70 ┆ for w3:= 1 step 1 upto p┆
0x54220…54240 63 63 6f 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 ┆ccount do begin (w┆
0x54240…54260 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 5f 70 72 ┆1).c_next:=w1; (w1).c_pr┆
0x54260…5427e 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 3a ┆ev:=w1; (w1).c_nr:=w2:┆
0x5427e…54284 (0x324,0xa86)
0x54284…542a0 3d 77 33 2b 33 30 30 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 74 63 5f 6b 69 6e ┆=w3+300; (w1).tc_kin┆
0x542a0…542c0 64 3a 3d 20 77 30 3a 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 ┆d:= w0:= 12; (w1).tc_nex┆
0x542c0…542e0 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 74 ┆ttr:= w0:= address((w1).tc_nextt┆
0x542e0…542fc 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 ┆r); (w1).tc_prevtr:=┆
0x542fc…54302 (0x324,0xa87)
0x54302…54320 20 77 30 3b 0a 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 ┆ w0; (w1).tc_buf:=w2:=┆
0x54320…54340 74 63 62 75 66 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 ┆tcbufref; (w1).c_stack:=┆
0x54340…54360 77 30 3a 3d 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 ┆w0:=address((w1).c_stack); ┆
0x54360…5437a 20 20 20 77 32 2b 70 63 62 75 66 73 69 7a 65 2b 28 21 6c 65 6e 67 74 68 28 62 ┆ w2+pcbufsize+(!length(b┆
0x5437a…54380 (0x324,0xa88)
0x54380…543a0 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 62 75 ┆ufhead)-2); (w1).tc_bsbu┆
0x543a0…543c0 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 20 74 ┆f:=w2; w2+512; t┆
0x543c0…543e0 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 63 5f 62 75 ┆cbufref:= w2; (w1).tc_bu┆
0x543e0…54400 66 73 69 7a 65 3a 3d 20 77 30 3a 3d 20 70 63 62 75 66 73 69 7a 65 3b 0a 00 00 00 00 00 00 00 00 ┆fsize:= w0:= pcbufsize; ┆
0x54400…54406 (674,) (0x324,0xa89)
0x54406…54420 20 20 20 20 20 20 20 20 77 30 3a 3d 20 77 31 2b 21 6c 65 6e 67 74 68 28 70 63 ┆ w0:= w1+!length(pc┆
0x54420…54440 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 63 3a ┆corout); (w1).tc_nexttc:┆
0x54440…54460 3d 20 77 30 3b 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 ┆= w0; w1:= w0; end┆
0x54460…5447e 3b 0a 0a 20 20 20 20 20 20 69 66 20 77 33 3a 3d 72 64 63 6f 75 6e 74 3e 30 20 74 68 65 6e ┆; if w3:=rdcount>0 then┆
0x5447e…54484 (0x324,0xa8a)
0x54484…544a0 0a 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 ┆ for w3:=1 step 1 upto┆
0x544a0…544c0 20 72 64 63 6f 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 ┆ rdcount do begin ┆
0x544c0…544e0 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 77 31 29 2e 63 5f ┆(w1).c_next:=w1; (w1).c_┆
0x544e0…544fc 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 ┆prev:=w1; (w1).c_nr:┆
0x544fc…54502 (0x324,0xa8b)
0x54502…54520 3d 77 32 3a 3d 77 33 2b 34 30 30 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 74 63 5f 6b ┆=w2:=w3+400; (w1).tc_k┆
0x54520…54540 69 6e 64 3a 3d 20 77 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 ┆ind:= w0:= 10; (w1).tc_n┆
0x54540…54560 65 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 ┆exttr:= w0:= address((w1).tc_nex┆
0x54560…5457a 74 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 ┆ttr); (w1).tc_prev┆
0x5457a…54580 (0x324,0xa8c)
0x54580…545a0 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 75 66 3a 3d 77 32 ┆tr:= w0; (w1).tc_buf:=w2┆
0x545a0…545c0 3a 3d 74 63 62 75 66 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 ┆:=tcbufref; (w1).c_stack┆
0x545c0…545e0 3a 3d 77 30 3a 3d 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 ┆:=w0:=address((w1).c_stack); ┆
0x545e0…54600 20 20 20 20 20 77 32 2b 72 64 62 75 66 73 69 7a 65 2b 28 21 6c 65 6e 67 00 00 00 00 00 00 00 00 ┆ w2+rdbufsize+(!leng ┆
0x54600…54606 (675,) (0x324,0xa8d)
0x54606…54620 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 ┆th(bufhead)-2); (w┆
0x54620…54640 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;┆
0x54640…54660 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 20 20 20 20 ┆ tcbufref:= w2; ┆
0x54660…5467e 28 77 31 29 2e 74 63 5f 62 75 66 73 69 7a 65 3a 3d 20 77 30 3a 3d 20 72 64 62 75 66 73 69 ┆(w1).tc_bufsize:= w0:= rdbufsi┆
0x5467e…54684 (0x324,0xa8e)
0x54684…546a0 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 ┆ze; w0:= w1+!length(┆
0x546a0…546c0 72 64 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 ┆rdcorout); (w1).tc_nextt┆
0x546c0…546e0 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 20 20 20 20 20 65 ┆c:= w0; w1:= w0; e┆
0x546e0…546fc 6e 64 3b 0a 0a 20 20 20 20 20 20 69 66 20 77 33 3a 3d 63 64 63 6f 75 6e 74 3e 30 20 ┆nd; if w3:=cdcount>0 ┆
0x546fc…54702 (0x324,0xa8f)
0x54702…54720 74 68 65 6e 0a 20 20 20 20 20 20 66 6f 72 20 77 33 3a 3d 20 31 20 73 74 65 70 20 31 20 75 ┆then for w3:= 1 step 1 u┆
0x54720…54740 70 74 6f 20 63 64 63 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 ┆pto cdcount do begin ! use┆
0x54740…54760 20 72 65 61 64 65 72 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 ┆ reader corout ! (w1).c_┆
0x54760…5477a 6e 65 78 74 3a 3d 20 77 31 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 63 5f ┆next:= w1; (w1).c_┆
0x5477a…54780 (0x324,0xa90)
0x54780…547a0 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 20 77 ┆prev:= w1; (w1).c_nr:= w┆
0x547a0…547c0 32 3a 3d 20 77 33 2b 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 ┆2:= w3+500; (w1).tc_kind┆
0x547c0…547e0 3a 3d 20 77 30 3a 3d 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 ┆:= w0:= 16; (w1).tc_next┆
0x547e0…54800 74 72 3a 3d 20 77 30 3a 3d 20 61 64 64 72 65 73 73 28 28 77 31 29 2e 74 00 00 00 00 00 00 00 00 ┆tr:= w0:= address((w1).t ┆
0x54800…54806 (676,) (0x324,0xa91)
0x54806…54820 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 63 ┆c_nexttr); (w1).tc┆
0x54820…54840 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 75 ┆_prevtr:= w0; (w1).tc_bu┆
0x54840…54860 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 2e ┆f:= w2:= tcbufref; (w1).┆
0x54860…5487e 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 74 ┆c_stack:=w0:=address((w1).c_st┆
0x5487e…54884 (0x324,0xa92)
0x54884…548a0 61 63 6b 29 3b 0a 20 20 20 20 20 20 20 20 77 32 2b 63 64 62 75 66 73 69 7a 65 2b 28 ┆ack); w2+cdbufsize+(┆
0x548a0…548c0 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 31 ┆!length(bufhead)-2); (w1┆
0x548c0…548e0 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 0a ┆).tc_bsbuf:=w2; w2+512; ┆
0x548e0…548fc 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 20 ┆ tcbufref:= w2; ┆
0x548fc…54902 (0x324,0xa93)
0x54902…54920 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 63 64 62 75 ┆ (w1).tc_bufsize:= w0:= cdbu┆
0x54920…54940 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 72 ┆fsize; w0:= w1+!length(r┆
0x54940…54960 64 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 63 ┆dcorout); (w1).tc_nexttc┆
0x54960…5497a 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 20 ┆:= w0; w1:= w0; ┆
0x5497a…54980 (0x324,0xa94)
0x54980…549a0 20 20 20 20 65 6e 64 3b 0a 0a 20 20 20 20 20 20 69 66 20 77 33 3a 3d 74 77 63 6f 75 6e 74 3e 30 ┆ end; if w3:=twcount>0┆
0x549a0…549c0 20 74 68 65 6e 0a 20 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 ┆ then for w3:= 1 step 1 up┆
0x549c0…549e0 74 6f 20 74 77 63 6f 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 ┆to twcount do begin ┆
0x549e0…54a00 20 20 28 77 31 29 2e 63 5f 6e 65 78 74 3a 3d 20 77 31 3b 0a 20 20 20 20 00 00 00 00 00 00 00 00 ┆ (w1).c_next:= w1; ┆
0x54a00…54a06 (677,) (0x324,0xa95)
0x54a06…54a20 20 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 ┆ (w1).c_prev:= w1; ┆
0x54a20…54a40 20 20 20 20 28 77 31 29 2e 63 5f 6e 72 3a 3d 20 77 32 3a 3d 20 77 33 2b 36 30 30 3b 0a 20 20 20 ┆ (w1).c_nr:= w2:= w3+600; ┆
0x54a40…54a60 20 20 20 20 20 28 77 31 29 2e 74 63 5f 6b 69 6e 64 3a 3d 20 77 30 3a 3d 20 38 3b 0a 20 20 20 20 ┆ (w1).tc_kind:= w0:= 8; ┆
0x54a60…54a7e 20 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 ┆ (w1).tc_nexttr:= w0:= addr┆
0x54a7e…54a84 (0x324,0xa96)
0x54a84…54aa0 65 73 73 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 ┆ess((w1).tc_nexttr); ┆
0x54aa0…54ac0 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 20 20 20 20 28 77 ┆ (w1).tc_prevtr:= w0; (w┆
0x54ac0…54ae0 31 29 2e 74 63 5f 62 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 ┆1).tc_buf:= w2:= tcbufref; ┆
0x54ae0…54afc 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 73 ┆ (w1).c_stack:=w0:=address┆
0x54afc…54b02 (0x324,0xa97)
0x54b02…54b20 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 74 77 62 ┆((w1).c_stack); w2+twb┆
0x54b20…54b40 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 29 3b 0a 20 20 20 ┆ufsize+(!length(bufhead)-2); ┆
0x54b40…54b60 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 20 20 20 20 20 ┆ (w1).tc_bsbuf:=w2; ┆
0x54b60…54b7a 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 ┆w2+512; tcbufref:=┆
0x54b7a…54b80 (0x324,0xa98)
0x54b80…54ba0 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 20 77 ┆ w2; (w1).tc_bufsize:= w┆
0x54ba0…54bc0 30 3a 3d 20 74 77 62 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 ┆0:= twbufsize; w0:= w1+!┆
0x54bc0…54be0 6c 65 6e 67 74 68 28 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 ┆length(twcorout); (w1).t┆
0x54be0…54c00 63 5f 6e 65 78 74 74 63 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 20 77 00 00 00 00 00 00 00 00 ┆c_nexttc:= w0; w ┆
0x54c00…54c06 (678,) (0x324,0xa99)
0x54c06…54c20 31 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 65 6e 64 3b 0a 0a 0a 20 20 20 20 ┆1:= w0; end; ┆
0x54c20…54c40 20 20 69 66 20 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 ┆ if w3:=fprcount>0 then f┆
0x54c40…54c60 6f 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 ┆or w3:=1 step 1 upto fprcount do┆
0x54c60…54c7e 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 6e 65 ┆ begin (w1).c_ne┆
0x54c7e…54c84 (0x324,0xa9a)
0x54c84…54ca0 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 ┆xt:=w1; (w1).c_prev:┆
0x54ca0…54cc0 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 3a 3d 77 33 2b 37 ┆=w1; (w1).c_nr:=w2:=w3+7┆
0x54cc0…54ce0 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 77 30 3a 3d 31 35 ┆00; (w1).tc_kind:=w0:=15┆
0x54ce0…54cfc 3b 20 21 20 74 6f 20 61 76 6f 69 64 20 63 6f 6e 66 75 73 69 6f 6e 20 77 69 74 68 20 ┆; ! to avoid confusion with ┆
0x54cfc…54d02 (0x324,0xa9b)
0x54d02…54d20 70 72 69 6e 74 65 72 20 70 72 6f 63 65 73 73 65 73 21 0a 20 20 20 20 20 20 20 20 28 77 31 ┆printer processes! (w1┆
0x54d20…54d40 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 28 28 77 31 29 2e ┆).tc_nexttr:= w0:= address((w1).┆
0x54d40…54d60 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 63 5f 70 72 65 76 ┆tc_nexttr); (w1).tc_prev┆
0x54d60…54d7a 74 72 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 63 5f 73 74 ┆tr:= w0; (w1).c_st┆
0x54d7a…54d80 (0x324,0xa9c)
0x54d80…54da0 61 63 6b 3a 3d 20 77 30 3a 3d 20 61 64 64 72 65 73 73 28 28 77 31 29 2e 63 5f 73 74 61 63 6b 29 ┆ack:= w0:= address((w1).c_stack)┆
0x54da0…54dc0 3b 0a 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┆
0x54dc0…54de0 72 65 66 3b 0a 20 20 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 ┆ref; w2+fprbufsize+(!len┆
0x54de0…54e00 67 74 68 28 62 75 66 68 65 61 64 29 2d 32 29 3b 0a 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆gth(bufhead)-2); ┆
0x54e00…54e06 (679,) (0x324,0xa9d)
0x54e06…54e20 20 28 77 31 29 2e 74 63 5f 62 73 62 75 66 3a 3d 20 77 32 3b 0a 20 20 20 20 20 ┆ (w1).tc_bsbuf:= w2; ┆
0x54e20…54e40 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 77 32 ┆ w2+512; tcbufref:= w2┆
0x54e40…54e60 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 20 3a 3d 20 77 30 20 ┆; (w1).tc_bufsize := w0 ┆
0x54e60…54e7e 3a 3d 20 66 70 72 62 75 66 73 69 7a 65 2d 38 3b 20 21 20 2d 20 28 20 73 69 7a 65 20 6f 66 ┆:= fprbufsize-8; ! - ( size of┆
0x54e7e…54e84 (0x324,0xa9e)
0x54e84…54ea0 20 68 65 61 64 65 72 20 61 6e 64 20 65 76 6e 74 2e 20 74 72 61 69 6c 20 29 21 0a 20 ┆ header and evnt. trail )! ┆
0x54ea0…54ec0 20 20 20 20 20 20 20 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 ┆ w0:=w1+!length(fprcorout)┆
0x54ec0…54ee0 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 20 ┆; (w1).tc_nexttc:= w0; ┆
0x54ee0…54efc 20 20 20 20 20 20 20 77 31 3a 3d 77 30 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 0a 0a ┆ w1:=w0; end; ┆
0x54efc…54f02 (0x324,0xa9f)
0x54f02…54f20 20 20 20 20 20 20 69 66 20 77 33 3a 3d 66 70 72 63 6f 75 6e 74 3e 30 20 74 68 65 6e 0a 20 ┆ if w3:=fprcount>0 then ┆
0x54f20…54f40 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 66 70 72 63 6f ┆ for w3:=1 step 1 upto fprco┆
0x54f40…54f60 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).┆
0x54f60…54f7a 63 5f 6e 65 78 74 3a 3d 77 31 3b 0a 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e ┆c_next:=w1; (w1).┆
0x54f7a…54f80 (0x324,0xaa0)
0x54f80…54fa0 63 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 ┆c_prev:=w1; (w1).c_nr:=w┆
0x54fa0…54fc0 32 3a 3d 77 33 2b 37 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 ┆2:=w3+750; (w1).fpr_next┆
0x54fc0…54fe0 3a 3d 20 77 30 3a 3d 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 ┆:= w0:= address((w1).fpr_next); ┆
0x54fe0…55000 21 20 71 75 65 75 65 68 65 64 20 66 6f 72 20 77 61 69 74 69 6e 67 20 66 00 00 00 00 00 00 00 00 ┆! queuehed for waiting f ┆
0x55000…55006 (680,) (0x324,0xaa1)
0x55006…55020 70 72 20 63 6f 72 6f 75 74 69 6e 65 73 20 21 0a 20 20 20 20 20 20 20 20 28 77 ┆pr coroutines ! (w┆
0x55020…55040 31 29 2e 66 70 72 5f 70 72 65 76 69 6f 75 73 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 20 77 30 ┆1).fpr_previous:= w0; w0┆
0x55040…55060 3a 3d 20 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 0a 20 20 20 ┆:= !length(fprincoroutine); ┆
0x55060…5507e 20 20 20 20 20 77 31 2b 77 30 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 0a 0a 0a 0a 20 20 20 ┆ w1+w0; end; ┆
0x5507e…55084 (0x324,0xaa2)
0x55084…550a0 20 20 20 74 65 73 74 6f 75 74 28 2e 77 33 2e 2c 77 30 3a 3d 35 30 2c 77 31 3a 3d 61 ┆ testout(.w3.,w0:=50,w1:=a┆
0x550a0…550c0 64 64 72 65 73 73 28 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 ┆ddress(verdate),w2:=69); t┆
0x550c0…550e0 65 73 74 6f 75 74 28 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 ┆estout(.w3.,w0:= 150,w1:=b.primo┆
0x550e0…550fc 2d 34 2c 77 32 3a 3d 38 29 3b 0a 0a 20 20 20 20 20 20 62 2e 62 73 5f 6f 70 3a 3d 20 ┆-4,w2:=8); b.bs_op:= ┆
0x550fc…55102 (0x324,0xaa3)
0x55102…55120 77 30 3a 3d 20 35 3b 20 20 21 20 63 6c 65 61 72 20 77 6f 72 6b 20 61 72 65 61 20 21 0a 20 ┆w0:= 5; ! clear work area ! ┆
0x55120…55140 20 20 20 20 20 77 31 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 ┆ w1:= address(b.bs_op); ┆
0x55140…55160 20 20 77 32 3a 3d 20 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 ┆ w2:= b.trans_top ashift neg_ni┆
0x55160…5517a 6e 65 3b 0a 20 20 20 20 20 20 66 6f 72 20 77 32 2d 31 20 73 74 65 70 20 31 20 ┆ne; for w2-1 step 1 ┆
0x5517a…55180 (0x324,0xaa4)
0x55180…551a0 64 6f 77 6e 74 6f 20 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 ┆downto 0 do begin ┆
0x551a0…551c0 62 2e 62 73 5f 73 65 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 ┆b.bs_segno:= w2; ioworka┆
0x551c0…551e0 72 65 61 28 2e 77 33 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 ┆rea(.w3.,w1); end; b┆
0x551e0…55200 2e 62 73 5f 73 65 67 6e 6f 3a 3d 20 77 30 3a 3d 20 2d 31 3b 0a 20 20 20 00 00 00 00 00 00 00 00 ┆.bs_segno:= w0:= -1; ┆
0x55200…55206 (681,) (0x324,0xaa5)
0x55206…55220 20 20 20 62 2e 62 73 5f 6f 70 3a 3d 20 77 30 3a 3d 20 33 3b 0a 20 20 20 20 20 ┆ b.bs_op:= w0:= 3; ┆
0x55220…55240 20 63 61 6c 6c 20 77 30 20 72 65 74 75 72 6e 3b 0a 0a 61 6c 6c 6f 63 61 74 65 3a 0a 20 20 20 20 ┆ call w0 return; allocate: ┆
0x55240…55260 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 76 65 72 73 ┆ opmess(.w3.,w1:=address(opvers┆
0x55260…5527e 69 6f 6e 29 29 3b 0a 20 20 20 20 20 20 77 33 3a 3d 20 62 2e 70 72 69 6d 6f 2b 32 39 3b 20 ┆ion)); w3:= b.primo+29; ┆
0x5527e…55284 (0x324,0xaa6)
0x55284…552a0 21 20 74 65 73 74 20 66 75 6e 63 74 69 6f 6e 20 6d 61 73 6b 20 21 0a 20 20 20 20 20 ┆! test function mask ! ┆
0x552a0…552c0 20 69 66 20 77 30 3a 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 ┆ if w0:=(w3).byte onemask 8'3700┆
0x552c0…552e0 20 74 68 65 6e 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 20 20 ┆ then else begin ┆
0x552e0…552fc 20 20 20 20 20 73 74 6f 70 3a 3d 20 77 30 3a 3d 20 31 3b 0a 20 20 20 20 20 20 20 20 ┆ stop:= w0:= 1; ┆
0x552fc…55302 (0x324,0xaa7)
0x55302…55320 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 75 6e 63 6f 70 ┆opmess(.w3.,w1:=address(funcop┆
0x55320…55340 29 29 3b 0a 20 20 20 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 ┆)); end; w1:= 108;┆
0x55340…55360 0a 20 20 20 20 20 20 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 ┆ b.starttime:= f1:= (w1).d┆
0x55360…5537a 6f 75 62 6c 65 3b 0a 20 20 20 20 20 20 62 2e 61 63 74 69 76 71 66 73 74 3a 3d ┆ouble; b.activqfst:=┆
0x5537a…55380 (0x324,0xaa8)
0x55380…553a0 77 30 3a 3d 61 64 64 72 65 73 73 28 62 2e 61 63 74 69 76 71 66 73 74 29 3b 0a 20 20 20 20 20 20 ┆w0:=address(b.activqfst); ┆
0x553a0…553c0 62 2e 61 63 74 69 76 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 ┆b.activqlast:=w0; b.answer┆
0x553c0…553e0 71 66 73 74 3a 3d 77 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 ┆qfst:=w0:=address(b.answerqfst);┆
0x553e0…55400 0a 20 20 20 20 20 20 62 2e 61 6e 73 77 65 72 71 6c 61 73 74 3a 3d 77 30 00 00 00 00 00 00 00 00 ┆ b.answerqlast:=w0 ┆
0x55400…55406 (682,) (0x324,0xaa9)
0x55406…55420 3b 0a 20 20 20 20 20 20 62 2e 77 61 69 74 71 66 73 74 3a 3d 77 30 3a 3d 61 64 ┆; b.waitqfst:=w0:=ad┆
0x55420…55440 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 74 71 ┆dress(b.waitqfst); b.waitq┆
0x55440…55460 6c 61 73 74 3a 3d 77 30 3b 0a 20 20 20 20 20 20 62 2e 68 6f 6c 64 71 66 73 74 3a 3d 20 77 30 3a ┆last:=w0; b.holdqfst:= w0:┆
0x55460…5547e 3d 20 61 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 62 ┆= address(b.holdqfst); b┆
0x5547e…55484 (0x324,0xaaa)
0x55484…554a0 2e 68 6f 6c 64 71 6c 61 73 74 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 62 2e 74 71 66 ┆.holdqlast:= w0; b.tqf┆
0x554a0…554c0 72 65 65 66 73 74 3a 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 ┆reefst:= w0:= address(b.tqfreefs┆
0x554c0…554e0 74 29 3b 0a 20 20 20 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 ┆t); b.tqfreelast:= w0; ┆
0x554e0…554fc 20 20 20 62 2e 62 73 5f 66 69 72 73 74 3a 3d 20 77 31 3a 3d 20 62 2e 66 69 72 73 74 ┆ b.bs_first:= w1:= b.first┆
0x554fc…55502 (0x324,0xaab)
0x55502…55520 66 72 65 65 3b 0a 20 20 20 20 20 20 77 31 2b 35 31 30 3b 0a 20 20 20 20 20 20 62 2e 62 73 ┆free; w1+510; b.bs┆
0x55520…55540 5f 6c 61 73 74 20 3a 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 ┆_last := w1; w1+2; o┆
0x55540…55560 70 72 62 75 66 72 65 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 ┆prbufref:= w1; ! buffer for oper┆
0x55560…5557a 61 74 6f 72 20 21 0a 20 20 20 20 20 20 77 30 3a 3d 28 21 6c 65 6e 67 74 68 28 ┆ator ! w0:=(!length(┆
0x5557a…55580 (0x324,0xaac)
0x55580…555a0 62 75 66 68 65 61 64 29 2d 32 29 2b 62 2e 6f 70 72 74 5f 62 75 66 6c 3b 0a 20 20 20 20 20 20 77 ┆bufhead)-2)+b.oprt_bufl; w┆
0x555a0…555c0 30 2a 6f 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 74 ┆0*oprcount; w1+w0; t┆
0x555c0…555e0 63 62 75 66 72 65 66 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 ┆cbufref:=w1; w0:=(!length(┆
0x555e0…55600 62 75 66 68 65 61 64 29 2d 32 29 2b 70 72 62 75 66 73 69 7a 65 2b 35 31 00 00 00 00 00 00 00 00 ┆bufhead)-2)+prbufsize+51 ┆
0x55600…55606 (683,) (0x324,0xaad)
0x55606…55620 32 3b 0a 20 20 20 20 20 20 77 30 2a 70 72 63 6f 75 6e 74 3b 0a 20 20 20 20 20 ┆2; w0*prcount; ┆
0x55620…55640 20 77 31 2b 77 30 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 ┆ w1+w0; w0:=(!length(bufhe┆
0x55640…55660 61 64 29 2d 32 29 2b 70 63 62 75 66 73 69 7a 65 2b 35 31 32 3b 0a 20 20 20 20 20 20 77 30 2a 70 ┆ad)-2)+pcbufsize+512; w0*p┆
0x55660…5567e 63 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 ┆ccount; w1+w0; w0:┆
0x5567e…55684 (0x324,0xaae)
0x55684…556a0 3d 28 21 6c 65 6e 67 74 68 28 62 75 66 68 65 61 64 29 2d 32 29 2b 72 64 62 75 66 73 ┆=(!length(bufhead)-2)+rdbufs┆
0x556a0…556c0 69 7a 65 2b 35 31 32 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 ┆ize+512; w0*rdcount; ┆
0x556c0…556e0 20 77 31 2b 77 30 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 ┆ w1+w0; w0:=(!length(bufhe┆
0x556e0…556fc 61 64 29 2d 32 29 2b 63 64 62 75 66 73 69 7a 65 2b 35 31 32 3b 0a 20 20 20 20 20 20 ┆ad)-2)+cdbufsize+512; ┆
0x556fc…55702 (0x324,0xaaf)
0x55702…55720 77 30 2a 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 ┆w0*cdcount; w1+w0; ┆
0x55720…55740 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 74 77 62 75 66 73 ┆ w0:=(!length(bufhead)-2)+twbufs┆
0x55740…55760 69 7a 65 2b 35 31 32 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 ┆ize+512; w0*twcount; ┆
0x55760…5577a 20 77 31 2b 77 30 3b 0a 20 20 20 20 20 20 77 30 3a 3d 20 28 21 6c 65 6e 67 74 ┆ w1+w0; w0:= (!lengt┆
0x5577a…55780 (0x324,0xab0)
0x55780…557a0 68 28 62 75 66 68 65 61 64 29 2d 32 29 2b 66 70 72 62 75 66 73 69 7a 65 2b 35 31 32 3b 0a 20 20 ┆h(bufhead)-2)+fprbufsize+512; ┆
0x557a0…557c0 20 20 20 20 77 30 2a 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 ┆ w0*fprcount; w1+w0; ┆
0x557c0…557e0 20 20 20 20 71 75 65 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 ┆ queuefst:= w1; w0:= !l┆
0x557e0…55800 65 6e 67 74 68 28 71 75 65 75 65 72 65 63 29 3b 0a 20 20 20 20 20 20 77 00 00 00 00 00 00 00 00 ┆ength(queuerec); w ┆
0x55800…55806 (684,) (0x324,0xab1)
0x55806…55820 30 2a 77 61 69 74 74 72 61 6e 73 3b 0a 20 20 20 20 20 20 77 31 2b 77 30 3b 0a ┆0*waittrans; w1+w0; ┆
0x55820…55840 20 20 20 20 20 20 71 75 65 75 65 74 6f 70 3a 3d 20 77 31 3b 0a 20 20 20 20 20 20 62 2e 61 70 6c ┆ queuetop:= w1; b.apl┆
0x55840…55860 5f 66 73 74 3a 3d 20 77 31 3b 0a 20 20 20 20 20 20 77 31 2b 21 6c 65 6e 67 74 68 28 63 6f 72 6f ┆_fst:= w1; w1+!length(coro┆
0x55860…5587e 75 74 69 6e 65 29 3b 0a 20 20 20 20 20 20 62 2e 6f 70 72 5f 66 73 74 3a 3d 20 77 31 3b 0a ┆utine); b.opr_fst:= w1; ┆
0x5587e…55884 (0x324,0xab2)
0x55884…558a0 20 20 20 20 20 20 77 30 3a 3d 20 21 6c 65 6e 67 74 68 28 6f 70 72 63 6f 72 6f 75 74 ┆ w0:= !length(oprcorout┆
0x558a0…558c0 29 2a 6f 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 62 ┆)*oprcount; w1+w0; b┆
0x558c0…558e0 2e 6f 70 72 5f 74 6f 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 ┆.opr_top:= w1; b.tcpool_fs┆
0x558e0…558fc 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 70 ┆t:= w1; w0:= !length(p┆
0x558fc…55902 (0x324,0xab3)
0x55902…55920 72 63 6f 72 6f 75 74 29 2a 70 72 63 6f 75 6e 74 3b 0a 20 20 20 20 20 20 77 31 2b 77 30 3b ┆rcorout)*prcount; w1+w0;┆
0x55920…55940 0a 20 20 20 20 20 20 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 ┆ w0:=!length(pccorout)*pcc┆
0x55940…55960 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 21 6c 65 ┆ount; w1+w0; w0:=!le┆
0x55960…5597a 6e 67 74 68 28 72 64 63 6f 72 6f 75 74 29 2a 72 64 63 6f 75 6e 74 3b 0a 20 20 ┆ngth(rdcorout)*rdcount; ┆
0x5597a…55980 (0x324,0xab4)
0x55980…559a0 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 63 ┆ w1+w0; w0:=!length(rdc┆
0x559a0…559c0 6f 72 6f 75 74 29 2a 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 ┆orout)*cdcount; w1+w0; ┆
0x559c0…559e0 20 20 20 77 30 3a 3d 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 ┆ w0:=!length(twcorout)*twcount┆
0x559e0…55a00 3b 0a 20 20 20 20 20 20 77 31 2b 77 30 3b 0a 20 20 20 20 20 20 77 30 3a 00 00 00 00 00 00 00 00 ┆; w1+w0; w0: ┆
0x55a00…55a06 (685,) (0x324,0xab5)
0x55a06…55a20 3d 20 21 6c 65 6e 67 74 68 28 66 70 72 63 6f 72 6f 75 74 29 2a 66 70 72 63 6f ┆= !length(fprcorout)*fprco┆
0x55a20…55a40 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 74 63 70 6f 6f 6c ┆unt; w1+w0; b.tcpool┆
0x55a40…55a60 5f 74 6f 70 3a 3d 20 77 31 3b 0a 20 20 20 20 20 20 62 2e 67 61 63 5f 74 61 62 6c 65 20 3a 3d 20 ┆_top:= w1; b.gac_table := ┆
0x55a60…55a7e 77 31 3b 0a 20 20 20 20 20 20 77 30 20 3a 3d 20 21 6c 65 6e 67 74 68 28 66 70 72 69 6e 63 ┆w1; w0 := !length(fprinc┆
0x55a7e…55a84 (0x324,0xab6)
0x55a84…55aa0 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 30 ┆orout)*fprcount; w1+w0┆
0x55aa0…55ac0 3b 0a 20 20 20 20 20 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 ┆; b.gac_top := w1; w┆
0x55ac0…55ae0 33 3a 3d 62 2e 70 72 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 ┆3:=b.primo+22; f3:=(w3).do┆
0x55ae0…55afc 75 62 6c 65 3b 0a 20 20 20 20 20 20 77 33 2d 32 3b 0a 20 20 20 20 20 20 62 2e 74 65 ┆uble; w3-2; b.te┆
0x55afc…55b02 (0x324,0xab7)
0x55b02…55b20 73 74 6d 74 6f 70 3a 3d 77 33 3b 0a 20 20 20 20 20 20 69 66 20 77 30 3a 3d 20 74 65 73 74 ┆stmtop:=w3; if w0:= test┆
0x55b20…55b40 73 65 67 6d 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 20 20 ┆segmnts>0 then begin ┆
0x55b40…55b60 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 3a 3d ┆ w3-512; b.testmlast:=┆
0x55b60…55b7a 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 ┆ w3; w3-510; ┆
0x55b7a…55b80 (0x324,0xab8)
0x55b80…55ba0 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 20 65 6e 64 20 65 6c ┆ b.testmfst:= w3; end el┆
0x55ba0…55bc0 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 74 65 73 74 6d 6c 61 ┆se begin b.testmla┆
0x55bc0…55be0 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 77 33 ┆st:= w3; b.testmfst:= w3┆
0x55be0…55c00 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 6d 61 72 67 69 00 00 00 00 00 00 00 00 ┆; end; margi ┆
0x55c00…55c06 (686,) (0x324,0xab9)
0x55c06…55c20 6e 3a 3d 77 33 2d 77 31 3b 0a 20 20 20 20 20 20 69 66 20 77 33 20 3c 3e 20 30 ┆n:=w3-w1; if w3 <> 0┆
0x55c20…55c40 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 30 3a 3d 62 2e ┆ then begin w0:=b.┆
0x55c40…55c60 74 65 73 74 6d 74 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 ┆testmtop+2; stdvalue:=w0┆
0x55c60…55c7e 2d 77 32 2d 6d 61 72 67 69 6e 3b 0a 20 20 20 20 20 20 20 20 6d 6f 76 65 28 2e 77 33 2e 2c ┆-w2-margin; move(.w3.,┆
0x55c7e…55c84 (0x324,0xaba)
0x55c84…55ca0 77 30 3a 3d 38 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 73 69 7a 65 29 2c 77 32 3a 3d ┆w0:=8,w1:=address(size),w2:=┆
0x55ca0…55cc0 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 20 20 69 66 20 77 ┆address(resource)); if w┆
0x55cc0…55ce0 33 3a 3d 6d 61 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 ┆3:=margin < 0 then begin┆
0x55ce0…55cfc 0a 20 20 20 20 20 20 20 20 20 20 61 6c 61 72 6d 3a 3d 77 32 3a 3d 32 37 36 33 33 30 ┆ alarm:=w2:=276330┆
0x55cfc…55d02 (0x324,0xabb)
0x55d02…55d20 36 3b 20 20 21 20 22 2a 2a 2a 22 20 21 0a 20 20 20 20 20 20 20 20 20 20 73 74 6f 70 3a 3d ┆6; ! "***" ! stop:=┆
0x55d20…55d40 77 32 3b 0a 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 3a 3d ┆w2; end else alarm:=w2:=┆
0x55d40…55d60 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 6d 65 ┆2105376; ! " " ! opme┆
0x55d60…55d7a 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 ┆ss(.w3.,w1:=address(op1));┆
0x55d7a…55d80 (0x324,0xabc)
0x55d80…55da0 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 77 33 3a 3d 62 2e 70 72 69 6d 6f 2b 32 36 ┆ end; w3:=b.primo+26┆
0x55da0…55dc0 3b 0a 20 20 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;┆
0x55dc0…55de0 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┆
0x55de0…55e00 3b 0a 20 20 20 20 20 20 21 20 61 72 65 61 20 70 72 6f 63 65 73 73 20 63 00 00 00 00 00 00 00 00 ┆; ! area process c ┆
0x55e00…55e06 (687,) (0x324,0xabd)
0x55e06…55e20 6c 61 69 6d 20 2b 33 20 70 72 69 6d 6f 73 70 6f 6f 6c 20 70 72 69 6d 6f 74 65 ┆laim +3 primospool primote┆
0x55e20…55e40 73 74 20 70 72 69 6d 6f 73 79 73 20 28 70 73 65 75 64 6f 29 20 21 0a 20 20 20 20 20 20 6d 61 72 ┆st primosys (pseudo) ! mar┆
0x55e40…55e60 67 69 6e 3a 3d 20 77 31 2d 28 77 32 3a 3d 20 70 72 63 6f 75 6e 74 2b 70 63 63 6f 75 6e 74 2b 72 ┆gin:= w1-(w2:= prcount+pccount+r┆
0x55e60…55e7e 64 63 6f 75 6e 74 2b 63 64 63 6f 75 6e 74 2b 74 77 63 6f 75 6e 74 2b 66 70 72 63 6f 75 6e ┆dcount+cdcount+twcount+fprcoun┆
0x55e7e…55e84 (0x324,0xabe)
0x55e84…55ea0 74 2b 33 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 ┆t+3); if w1 <> 0 then ┆
0x55ea0…55ec0 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 3a 3d 77 32 ┆ begin stdvalue:=w2┆
0x55ec0…55ee0 20 2b 20 31 20 21 20 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 ┆ + 1 ! one for program area proc┆
0x55ee0…55efc 65 73 73 20 21 20 3b 0a 20 20 20 20 20 20 20 20 6d 6f 76 65 28 2e 77 33 2e 2c 77 30 ┆ess ! ; move(.w3.,w0┆
0x55efc…55f02 (0x324,0xabf)
0x55f02…55f20 3a 3d 38 2c 77 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 ┆:=8,w1:=address(area),w2:=addr┆
0x55f20…55f40 65 73 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 ┆ess(resource)); if w3:=m┆
0x55f40…55f60 61 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 ┆argin < 0 then begin ┆
0x55f60…55f7a 20 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 ┆ alarm:=w2:=2763306;┆
0x55f7a…55f80 (0x324,0xac0)
0x55f80…55fa0 20 20 21 20 22 2a 2a 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 ┆ ! "***" ! stop:=w2; ┆
0x55fa0…55fc0 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 3a 3d 32 31 30 35 ┆ end else alarm:=w2:=2105┆
0x55fc0…55fe0 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 6d 65 73 73 28 2e ┆376; ! " " ! opmess(.┆
0x55fe0…56000 77 33 2e 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 6f 70 31 29 29 3b 0a 20 00 00 00 00 00 00 00 00 ┆w3.,w1:=address(op1)); ┆
0x56000…56006 (688,) (0x324,0xac1)
0x56006…56020 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 6d 61 72 67 69 6e 3a 3d 0a 20 ┆ end; margin:= ┆
0x56020…56040 20 20 20 20 20 77 31 3a 3d 20 62 75 66 63 6c 61 69 6d 2d 28 77 32 3a 3d 20 31 2b 70 72 63 6f 75 ┆ w1:= bufclaim-(w2:= 1+prcou┆
0x56040…56060 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 74 77 63 6f 75 ┆nt+pccount+rdcount+cdcount+twcou┆
0x56060…5607e 6e 74 2b 0a 20 20 20 20 20 20 20 20 20 20 20 66 70 72 63 6f 75 6e 74 2b 66 70 72 63 6f 75 ┆nt+ fprcount+fprcou┆
0x5607e…56084 (0x324,0xac2)
0x56084…560a0 6e 74 2b 6f 70 72 63 6f 75 6e 74 20 2b 20 31 20 21 20 74 65 73 74 6f 75 74 70 75 74 ┆nt+oprcount + 1 ! testoutput┆
0x560a0…560c0 20 21 20 2b 77 61 69 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 ┆ ! +waitops); if w1 <> 0 t┆
0x560c0…560e0 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┆
0x560e0…560fc 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 ┆:=w2; move(.w3.,w0:=┆
0x560fc…56102 (0x324,0xac3)
0x56102…56120 38 2c 77 31 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 ┆8,w1:=address(buf),w2:=address┆
0x56120…56140 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┆
0x56140…56160 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 ┆
0x56160…5617a 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 ┆ alarm:=w2:=2763306; !┆
0x5617a…56180 (0x324,0xac4)
0x56180…561a0 20 22 2a 2a 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; ┆
0x561a0…561c0 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┆
0x561c0…561e0 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.┆
0x561e0…56200 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 6f 70 31 29 29 3b 0a 20 20 20 20 00 00 00 00 00 00 00 00 ┆,w1:=address(op1)); ┆
0x56200…56206 (689,) (0x324,0xac5)
0x56206…56220 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 77 33 3a 3d 61 64 64 72 65 73 73 28 73 ┆ end; w3:=address(s┆
0x56220…56240 70 6f 6f 6c 61 72 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 ┆poolarea); monitor(48); !┆
0x56240…56260 20 72 65 6d 6f 76 65 20 65 6e 74 72 79 20 21 0a 20 20 20 20 20 20 66 32 3a 3d 20 62 2e 73 74 61 ┆ remove entry ! f2:= b.sta┆
0x56260…5627e 72 74 74 69 6d 65 3b 20 66 32 20 6c 73 68 69 66 74 20 2d 31 39 3b 0a 20 20 20 20 20 20 28 ┆rttime; f2 lshift -19; (┆
0x5627e…56284 (0x324,0xac6)
0x56284…562a0 74 61 69 6c 28 77 31 3a 3d 36 29 29 2e 77 6f 72 64 3a 3d 20 77 32 3b 0a 20 20 20 20 ┆tail(w1:=6)).word:= w2; ┆
0x562a0…562c0 20 20 62 2e 74 72 61 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 ┆ b.trans_first:= w2:= 0; ┆
0x562c0…562e0 77 32 3a 3d 20 74 72 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 ┆w2:= trsegm; b.trans_top:=┆
0x562e0…562fc 20 77 32 20 61 73 68 69 66 74 20 39 3b 0a 20 20 20 20 20 20 77 32 20 61 73 68 69 66 ┆ w2 ashift 9; w2 ashif┆
0x562fc…56302 (0x324,0xac7)
0x56302…56320 74 20 2d 39 3b 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 ┆t -9; (tail(w1:=1)).word┆
0x56320…56340 3a 3d 77 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 ┆:=w2; monitor(40); ! crea┆
0x56340…56360 74 65 20 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 ┆te spool area ! w1:=3; ┆
0x56360…5637a 20 20 20 6d 6f 6e 69 74 6f 72 28 35 30 29 3b 20 20 21 20 70 65 72 6d 61 6e 65 ┆ monitor(50); ! permane┆
0x5637a…56380 (0x324,0xac8)
0x56380…563a0 6e 74 20 65 6e 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 ┆nt entry ! monitor(52); !┆
0x563a0…563c0 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 6d 6f 6e ┆ create area process ! mon┆
0x563c0…563e0 69 74 6f 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 ┆itor(8); ! reserve area proces┆
0x563e0…56400 73 20 21 0a 20 20 20 20 20 20 69 66 20 77 30 20 3c 3e 20 30 20 74 68 65 00 00 00 00 00 00 00 00 ┆s ! if w0 <> 0 the ┆
0x56400…56406 (690,) (0x324,0xac9)
0x56406…56420 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 ┆n begin stdv┆
0x56420…56440 61 6c 75 65 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 ┆alue:=w2; move(.w3.,w0:=┆
0x56440…56460 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 32 3a 3d 61 64 64 ┆8,w1:=address(spoolarea),w2:=add┆
0x56460…5647e 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 61 6c 61 72 6d ┆ress(resource)); alarm┆
0x5647e…56484 (0x324,0xaca)
0x56484…564a0 3a 3d 77 32 3a 3d 32 37 36 33 33 30 36 3b 0a 20 20 20 20 20 20 20 20 73 74 6f 70 3a ┆:=w2:=2763306; stop:┆
0x564a0…564c0 3d 77 32 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 ┆=w2; opmess(.w3.,w1:=add┆
0x564c0…564e0 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 20 20 20 20 6d 6f 76 ┆ress(op1)); end; mov┆
0x564e0…564fc 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 70 6f ┆e(.w3.,w0:=8,w1:=address(spo┆
0x564fc…56502 (0x324,0xacb)
0x56502…56520 6f 6c 61 72 65 61 29 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 62 2e 73 70 6f 6f 6c 6e 61 6d ┆olarea),w2:=address(b.spoolnam┆
0x56520…56540 65 29 29 3b 0a 20 20 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 ┆e)); w3:=address(testarea)┆
0x56540…56560 3b 0a 20 20 20 20 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 ┆; monitor(48); ! remove e┆
0x56560…5657a 6e 74 72 79 20 21 0a 20 20 20 20 20 20 28 74 61 69 6c 28 77 31 3a 3d 31 29 29 ┆ntry ! (tail(w1:=1))┆
0x5657a…56580 (0x324,0xacc)
0x56580…565a0 2e 77 6f 72 64 3a 3d 77 32 3a 3d 74 65 73 74 73 65 67 6d 6e 74 73 3b 0a 20 20 20 20 20 20 62 2e ┆.word:=w2:=testsegmnts; b.┆
0x565a0…565c0 6d 61 78 74 65 73 74 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 ┆maxtestsegm:=w2; if w2 > 0┆
0x565c0…565e0 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 6d 6f 6e 69 74 6f ┆ then begin monito┆
0x565e0…56600 72 28 34 30 29 3b 20 20 21 20 63 72 65 61 74 65 20 74 65 73 74 6f 75 74 00 00 00 00 00 00 00 00 ┆r(40); ! create testout ┆
0x56600…56606 (691,) (0x324,0xacd)
0x56606…56620 70 75 74 20 61 72 65 61 20 21 0a 20 20 20 20 20 20 20 20 77 31 3a 3d 33 3b 0a ┆put area ! w1:=3; ┆
0x56620…56640 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 65 72 6d 61 6e 65 6e ┆ monitor(50); ! permanen┆
0x56640…56660 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 20 ┆t entry ! monitor(52); ┆
0x56660…5667e 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 ┆! create area process ! ┆
0x5667e…56684 (0x324,0xace)
0x56684…566a0 20 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 ┆ monitor(8); ! reserve ar┆
0x566a0…566c0 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 30 20 3c 3e 20 30 20 ┆ea process ! if w0 <> 0 ┆
0x566c0…566e0 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 64 ┆then begin std┆
0x566e0…566fc 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 ┆value:=w2; move(.w┆
0x566fc…56702 (0x324,0xacf)
0x56702…56720 33 2e 2c 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 29 ┆3.,w0:=8,w1:=address(testarea)┆
0x56720…56740 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 20 ┆,w2:=address(resource)); ┆
0x56740…56760 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 20 ┆ alarm:=w2:=2763306; ┆
0x56760…5677a 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 ┆ stop:=w2; opmes┆
0x5677a…56780 (0x324,0xad0)
0x56780…567a0 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 20 20 20 ┆s(.w3.,w1:=address(op1)); ┆
0x567a0…567c0 20 20 65 6e 64 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 ┆ end; move(.w3.,w0:=8,w┆
0x567c0…567e0 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 64 72 65 73 73 ┆1:=address(testarea),w2:=address┆
0x567e0…56800 28 62 2e 74 65 73 74 6e 61 6d 65 29 29 3b 0a 20 20 20 20 20 20 65 6e 64 00 00 00 00 00 00 00 00 ┆(b.testname)); end ┆
0x56800…56806 (692,) (0x324,0xad1)
0x56806…56820 3b 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 ┆; if w0:=stop <> 0 t┆
0x56820…56840 68 65 6e 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 ┆hen begin ! the resources ┆
0x56840…56860 61 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 ┆are not available for start up !┆
0x56860…5687e 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 ┆ opmess(.w3.,w1:=addre┆
0x5687e…56884 (0x324,0xad2)
0x56884…568a0 73 73 28 69 6e 69 74 74 72 6f 70 29 29 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 ┆ss(inittrop)); end; ┆
0x568a0…568c0 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)┆
0x568c0…568e0 29 3b 0a 20 20 20 20 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 ┆); b.prheadtrail:= w0:= pr┆
0x568e0…568fc 6c 74 70 61 67 65 3b 0a 20 20 20 20 20 20 62 2e 6f 70 72 74 64 65 74 61 69 6c 73 3a ┆ltpage; b.oprtdetails:┆
0x568fc…56902 (0x324,0xad3)
0x56902…56920 3d 20 77 30 3a 3d 20 6f 70 72 64 65 74 61 69 6c 73 3b 0a 20 20 20 20 20 20 62 2e 61 63 63 ┆= w0:= oprdetails; b.acc┆
0x56920…56940 65 70 74 3a 3d 20 77 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 ┆ept:= w0:= taccept; b.prlp┆
0x56940…56960 61 67 65 3a 3d 20 77 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 ┆age:= w0:= prlinepage; w0:┆
0x56960…5697a 3d 20 30 3b 0a 20 20 20 20 20 20 77 31 3a 3d 20 74 72 73 61 76 65 6d 69 6e 75 ┆= 0; w1:= trsaveminu┆
0x5697a…56980 (0x324,0xad4)
0x56980…569a0 74 2a 28 36 30 2a 31 30 30 30 2a 31 30 29 3b 0a 20 20 20 20 20 20 62 2e 74 72 73 61 76 65 70 65 ┆t*(60*1000*10); b.trsavepe┆
0x569a0…569c0 72 69 6f 64 3a 3d 20 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 ┆riod:= f1; b.waitbufs:= w0┆
0x569c0…569e0 3a 3d 20 77 61 69 74 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 ┆:= waitops; w3:=address(ps┆
0x569e0…56a00 65 75 64 6f 6e 61 6d 65 29 3b 0a 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 00 00 00 00 00 00 00 00 ┆eudoname); monitor ┆
0x56a00…56a06 (693,) (0x324,0xad5)
0x56a06…56a20 28 38 30 29 3b 0a 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 63 6f 6d 70 75 74 ┆(80); comment comput┆
0x56a20…56a40 65 20 70 72 69 6d 6f 20 69 64 65 6e 74 69 66 69 63 61 74 69 6f 6e 2c 20 75 73 65 64 20 69 6e 20 ┆e primo identification, used in ┆
0x56a40…56a60 63 6f 6d 6d 75 6e 69 63 61 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 69 74 68 ┆communication with┆
0x56a60…56a7e 20 61 64 70 33 32 37 30 20 2d 20 70 72 69 6d 6f 5f 69 64 20 3a 3a 3d 20 27 70 72 69 6d 6f ┆ adp3270 - primo_id ::= 'primo┆
0x56a7e…56a84 (0x324,0xad6)
0x56a84…56aa0 78 78 78 78 27 2c 20 77 68 65 72 65 20 22 78 78 78 78 22 20 69 73 0a 20 20 20 20 20 ┆xxxx', where "xxxx" is ┆
0x56aa0…56ac0 20 20 20 20 20 20 20 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 ┆ the host number of rc80┆
0x56ac0…56ae0 30 30 2e 3b 0a 20 20 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 ┆00.; w0:= 0;w1:= (w1:=1186┆
0x56ae0…56afc 29 2e 77 6f 72 64 3b 20 21 20 77 31 20 3d 20 68 6f 73 74 20 69 64 20 21 0a 20 20 20 ┆).word; ! w1 = host id ! ┆
0x56afc…56b02 (0x324,0xad7)
0x56b02…56b20 20 20 20 66 31 2f 2f 31 30 30 30 3b 0a 20 20 20 20 20 20 77 33 3a 3d 20 61 64 64 72 65 73 ┆ f1//1000; w3:= addres┆
0x56b20…56b40 73 20 28 62 2e 70 72 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 ┆s (b.primo_id)+2; (w3).wor┆
0x56b40…56b60 64 3a 3d 20 77 31 2b 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 ┆d:= w1+48+(w3).word; w1:= ┆
0x56b60…56b7a 77 30 3b 77 30 3a 3d 20 30 3b 0a 20 20 20 20 20 20 66 31 2f 2f 31 30 30 3b 0a ┆w0;w0:= 0; f1//100; ┆
0x56b7a…56b80 (0x324,0xad8)
0x56b80…56ba0 20 20 20 20 20 20 77 32 3a 3d 20 77 31 2b 34 38 3b 20 77 32 20 6c 73 68 69 66 74 20 38 3b 0a 20 ┆ w2:= w1+48; w2 lshift 8; ┆
0x56ba0…56bc0 20 20 20 20 20 77 31 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 ┆ w1:= w0;w0:= 0; f1//1┆
0x56bc0…56be0 30 3b 0a 20 20 20 20 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 ┆0; w2:= w2+w1+48;w2 lshift┆
0x56be0…56c00 20 38 3b 0a 20 20 20 20 20 20 77 32 3a 3d 20 77 32 2b 77 30 2b 34 38 3b 00 00 00 00 00 00 00 00 ┆ 8; w2:= w2+w0+48; ┆
0x56c00…56c06 (694,) (0x324,0xad9)
0x56c06…56c20 0a 20 20 20 20 20 20 28 77 33 2b 32 29 2e 77 6f 72 64 3a 3d 20 77 32 3b 0a 20 ┆ (w3+2).word:= w2; ┆
0x56c20…56c40 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 65 6e 64 20 70 72 69 6d 6f 5f 69 64 3b 0a 0a 20 20 20 20 ┆ comment end primo_id; ┆
0x56c40…56c60 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 64 ┆ goto initbufs; end; end┆
0x56c60…56c7e 3b 20 20 21 20 69 6e 69 74 20 21 0a 0a 0a 0a 21 62 72 61 6e 63 68 20 31 2c 33 3b 0a 0a 0a ┆; ! init ! !branch 1,3; ┆
0x56c7e…56c84 (0x324,0xada)
0x56c84…56ca0 0a 20 20 62 6f 64 79 20 6f 66 20 66 72 65 65 74 72 61 6e 73 70 6f 72 74 0a 20 20 63 ┆ body of freetransport c┆
0x56ca0…56cc0 6f 6d 6d 65 6e 74 20 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 ┆omment find a free transport des┆
0x56cc0…56ce0 63 72 69 70 74 69 6f 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 ┆cription if possible, and ┆
0x56ce0…56cfc 20 20 20 20 6d 61 6b 65 20 74 68 65 20 64 65 73 63 72 69 70 74 69 6f 6e 20 61 76 61 ┆ make the description ava┆
0x56cfc…56d02 (0x324,0xadb)
0x56d02…56d20 69 6c 61 62 6c 65 20 69 6e 20 63 6f 72 65 3b 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 6c 61 ┆ilable in core; begin la┆
0x56d20…56d40 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 65 66 20 72 ┆bel exit; incode ref r┆
0x56d40…56d60 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:= ┆
0x56d60…56d7a 77 33 3b 0a 20 20 20 20 20 20 69 66 20 77 31 3a 3d 20 62 2e 74 72 61 6e 73 5f ┆w3; if w1:= b.trans_┆
0x56d7a…56d80 (0x324,0xadc)
0x56d80…56da0 6f 6c 64 3c 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 62 ┆old<0 then begin b┆
0x56da0…56dc0 2e 74 72 61 6e 73 5f 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 ┆.trans_old:= w1:= b.trans_first;┆
0x56dc0…56de0 0a 20 20 20 20 20 20 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 ┆ end; w2:= 0; ┆
0x56de0…56e00 77 68 69 6c 65 20 77 32 3d 30 20 64 6f 0a 20 20 20 20 20 20 62 65 67 69 00 00 00 00 00 00 00 00 ┆while w2=0 do begi ┆
0x56e00…56e06 (695,) (0x324,0xadd)
0x56e06…56e20 6e 0a 20 20 20 20 20 20 20 20 77 33 3a 3d 20 77 31 2b 28 21 6c 65 6e 67 74 68 ┆n w3:= w1+(!length┆
0x56e20…56e40 28 74 72 5f 64 65 73 63 72 29 2b 21 6c 65 6e 67 74 68 28 74 72 5f 64 65 73 63 72 29 2d 32 29 20 ┆(tr_descr)+!length(tr_descr)-2) ┆
0x56e40…56e60 61 73 68 69 66 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 ┆ashift -9 ashift 9; if w┆
0x56e60…56e7e 33 3e 77 31 20 74 68 65 6e 20 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 21 20 63 68 61 ┆3>w1 then begin ! cha┆
0x56e7e…56e84 (0x324,0xade)
0x56e84…56ea0 6e 67 65 20 73 65 67 6d 65 6e 74 20 21 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 ┆nge segment ! if w┆
0x56ea0…56ec0 33 3d 62 2e 74 72 61 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 ┆3=b.trans_top then w1:=b.trans_f┆
0x56ec0…56ee0 69 72 73 74 20 65 6c 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 ┆irst else w1:= w3; end ┆
0x56ee0…56efc 20 20 20 20 20 20 20 65 6c 73 65 20 77 31 2b 21 6c 65 6e 67 74 68 28 74 72 5f 64 65 ┆ else w1+!length(tr_de┆
0x56efc…56f02 (0x324,0xadf)
0x56f02…56f20 73 63 72 29 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 ┆scr); looktransport(.w┆
0x56f20…56f40 33 2e 2c 77 31 2c 77 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 ┆3.,w1,w2); if w2>0 then ┆
0x56f40…56f60 77 32 3a 3d 20 30 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 ┆w2:= 0 else begi┆
0x56f60…56f7a 6e 0a 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 20 77 31 20 65 78 74 72 61 63 ┆n w2:= w1 extrac┆
0x56f7a…56f80 (0x324,0xae0)
0x56f80…56fa0 74 20 39 3b 20 77 32 2b 62 2e 62 73 5f 66 69 72 73 74 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b ┆t 9; w2+b.bs_first; end;┆
0x56fa0…56fc0 0a 20 20 20 20 20 20 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 ┆ if w1=b.trans_old then ┆
0x56fc0…56fe0 67 6f 74 6f 20 65 78 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 ┆goto exit; end; exit: ┆
0x56fe0…57000 20 20 20 62 2e 74 72 61 6e 73 5f 6f 6c 64 3a 3d 20 77 31 3b 0a 20 20 20 00 00 00 00 00 00 00 00 ┆ b.trans_old:= w1; ┆
0x57000…57006 (696,) (0x324,0xae1)
0x57006…57020 20 20 20 77 33 3a 3d 20 62 2e 63 75 72 72 65 6e 74 3b 0a 21 74 65 73 74 20 33 ┆ w3:= b.current; !test 3┆
0x57020…57040 31 31 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 ┆11; call w0 return; en┆
0x57040…57060 64 3b 0a 20 20 65 6e 64 3b 20 21 20 66 72 65 65 74 72 61 6e 73 70 6f 72 74 20 21 0a 0a 0a 0a 20 ┆d; end; ! freetransport ! ┆
0x57060…5707e 20 62 6f 64 79 20 6f 66 20 64 65 66 74 72 5f 73 65 6d 61 6e 74 69 63 0a 20 20 63 6f 6d 6d ┆ body of deftr_semantic comm┆
0x5707e…57084 (0x324,0xae2)
0x57084…570a0 65 6e 74 20 65 78 65 63 75 74 65 20 64 65 66 69 6e 65 20 74 72 61 6e 73 70 6f 72 74 ┆ent execute define transport┆
0x570a0…570c0 20 6f 70 65 72 61 74 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 ┆ operation. called fro┆
0x570c0…570e0 6d 20 61 70 70 6c 69 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 ┆m application interface coroutin┆
0x570e0…570fc 65 20 74 6f 20 61 76 6f 69 64 20 62 72 65 61 6b 69 6e 67 0a 20 20 20 20 20 20 20 20 ┆e to avoid breaking ┆
0x570fc…57102 (0x324,0xae3)
0x57102…57120 20 20 61 64 64 72 65 73 73 20 6c 69 6d 69 74 20 3b 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 ┆ address limit ; begin ┆
0x57120…57140 6c 61 62 65 6c 20 6c 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 ┆label l_resources, l_ent, l_dev,┆
0x57140…57160 20 6c 5f 64 65 76 73 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 ┆ l_devslow, exit; incode ┆
0x57160…5717a 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 ┆ word savew2; ref ┆
0x5717a…57180 (0x324,0xae4)
0x57180…571a0 72 65 74 75 72 6e 3b 0a 0a 20 20 20 20 20 20 72 65 66 20 74 72 61 6e 73 72 65 66 2c 20 70 72 6f ┆return; ref transref, pro┆
0x571a0…571c0 63 72 65 66 2c 20 74 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 ┆cref, tc_ref; word hostno,┆
0x571c0…571e0 20 68 6f 73 74 69 64 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 ┆ hostid; byte line,cu,dev;┆
0x571e0…57200 0a 20 20 20 20 20 20 77 6f 72 64 20 63 75 5f 64 65 76 3b 0a 20 20 20 20 00 00 00 00 00 00 00 00 ┆ word cu_dev; ┆
0x57200…57206 (697,) (0x324,0xae5)
0x57206…57220 20 20 72 65 66 20 20 6f 75 74 5f 70 72 6f 63 65 73 73 2c 69 6e 5f 70 72 6f 63 ┆ ref out_process,in_proc┆
0x57220…57240 65 73 73 3b 0a 20 20 20 20 20 20 74 65 78 74 20 28 31 31 29 20 69 6e 64 65 76 69 63 65 3b 0a 20 ┆ess; text (11) indevice; ┆
0x57240…57260 20 20 20 20 20 74 65 78 74 20 28 31 31 29 20 66 6f 72 6d 61 74 70 72 69 6e 74 65 72 3b 0a 20 20 ┆ text (11) formatprinter; ┆
0x57260…5727e 20 20 20 20 74 65 78 74 28 31 31 29 20 64 6f 63 6e 61 6d 65 3b 0a 20 20 20 20 20 20 21 20 ┆ text(11) docname; ! ┆
0x5727e…57284 (0x324,0xae6)
0x57284…572a0 66 69 6c 65 20 64 65 73 63 72 69 70 74 6f 72 20 21 0a 20 20 20 20 20 20 77 6f 72 64 ┆file descriptor ! word┆
0x572a0…572c0 20 65 6e 74 5f 6d 6b 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 ┆ ent_mk; text(11) ent_docn┆
0x572c0…572e0 61 6d 65 3b 0a 20 20 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 ┆ame; word ent_6,ent_7,ent_┆
0x572e0…572fc 38 2c 65 6e 74 5f 39 2c 65 6e 74 5f 31 30 3b 0a 0a 20 20 20 20 20 20 77 6f 72 64 20 ┆8,ent_9,ent_10; word ┆
0x572fc…57302 (0x324,0xae7)
0x57302…57320 73 65 6e 64 65 72 5f 72 65 63 65 69 76 65 72 2c 62 73 5f 64 65 76 3b 20 21 20 68 65 6c 70 ┆sender_receiver,bs_dev; ! help┆
0x57320…57340 20 76 61 72 73 20 75 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 ┆ vars used to look up sender/rec┆
0x57340…57360 65 69 76 65 72 20 65 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 ┆eiver entries ! word zero:┆
0x57360…5737a 3d 20 30 3b 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 72 65 74 75 72 ┆= 0; begin retur┆
0x5737a…57380 (0x324,0xae8)
0x57380…573a0 6e 3a 3d 20 77 33 3b 0a 20 20 20 20 20 20 74 72 61 6e 73 72 65 66 3a 3d 20 77 32 3b 0a 20 20 20 ┆n:= w3; transref:= w2; ┆
0x573a0…573c0 20 20 20 63 75 5f 64 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 ┆ cu_dev:= w0:=0; w2:= b.┆
0x573c0…573e0 65 76 65 6e 74 3b 0a 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 ┆event; w3:= (w2).cm_sender┆
0x573e0…57400 3b 0a 20 20 20 20 20 20 69 66 20 77 33 3c 3d 30 20 74 68 65 6e 20 2d 28 00 00 00 00 00 00 00 00 ┆; if w3<=0 then -( ┆
0x57400…57406 (698,) (0x324,0xae9)
0x57406…57420 77 33 29 3b 0a 0a 20 20 20 20 20 20 21 20 67 65 74 20 73 65 6e 64 65 72 20 63 ┆w3); ! get sender c┆
0x57420…57440 61 74 20 62 61 73 65 20 61 6e 64 20 63 68 65 63 6b 20 74 68 61 74 20 69 74 20 69 73 20 63 6f 6e ┆at base and check that it is con┆
0x57440…57460 74 61 69 6e 65 64 20 69 6e 20 6d 79 20 73 74 64 20 62 61 73 65 20 21 0a 20 20 20 20 20 20 77 33 ┆tained in my std base ! w3┆
0x57460…5747e 2b 36 38 3b 0a 20 20 20 20 20 20 77 32 3a 3d 20 62 2e 70 72 69 6d 6f 2b 37 36 3b 0a 20 20 ┆+68; w2:= b.primo+76; ┆
0x5747e…57484 (0x324,0xaea)
0x57484…574a0 20 20 20 20 74 72 61 6e 73 72 65 66 2e 74 72 5f 62 61 73 65 6c 3a 3d 20 77 30 3a 3d ┆ transref.tr_basel:= w0:=┆
0x574a0…574c0 20 28 77 33 29 2e 77 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 ┆ (w3).word; if w0<(w2).wor┆
0x574c0…574e0 64 20 74 68 65 6e 20 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 ┆d then goto l_resources; w┆
0x574e0…574fc 33 2b 32 3b 20 77 32 2b 32 3b 0a 20 20 20 20 20 20 74 72 61 6e 73 72 65 66 2e 74 72 ┆3+2; w2+2; transref.tr┆
0x574fc…57502 (0x324,0xaeb)
0x57502…57520 5f 62 61 73 65 75 3a 3d 20 77 31 3a 3d 20 28 77 33 29 2e 77 6f 72 64 3b 0a 20 20 20 20 20 ┆_baseu:= w1:= (w3).word; ┆
0x57520…57540 20 69 66 20 77 31 3e 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 ┆ if w1>(w2).word then goto l_res┆
0x57540…57560 6f 75 72 63 65 73 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 29 ┆ources; w3:= address(zero)┆
0x57560…5757a 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 ┆; monitor(72); ! set┆
0x5757a…57580 (0x324,0xaec)
0x57580…575a0 20 63 61 74 20 62 61 73 65 20 21 0a 21 74 65 73 74 20 39 31 3b 0a 0a 20 20 20 20 20 20 21 20 74 ┆ cat base ! !test 91; ! t┆
0x575a0…575c0 65 73 74 20 73 65 6e 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 ┆est sender and receiver entry ! ┆
0x575c0…575e0 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 3a 3d 20 30 3b 0a ┆ sender_receiver:= w0:= 0; ┆
0x575e0…57600 20 20 20 20 20 20 62 73 5f 64 65 76 3a 3d 20 77 30 3b 20 21 20 62 73 20 00 00 00 00 00 00 00 00 ┆ bs_dev:= w0; ! bs ┆
0x57600…57606 (699,) (0x324,0xaed)
0x57606…57620 61 72 65 61 20 6e 6f 74 20 66 6f 75 6e 64 20 79 65 74 20 21 0a 20 20 20 20 20 ┆area not found yet ! ┆
0x57620…57640 20 77 68 69 6c 65 20 77 30 3a 3d 73 65 6e 64 65 72 5f 72 65 63 65 69 76 65 72 2b 31 3c 3d 32 20 ┆ while w0:=sender_receiver+1<=2 ┆
0x57640…57660 64 6f 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 73 65 6e 64 65 72 5f 72 65 ┆do begin sender_re┆
0x57660…5767e 63 65 69 76 65 72 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 20 77 31 3a 3d 20 61 64 64 72 ┆ceiver:= w0; w1:= addr┆
0x5767e…57684 (0x324,0xaee)
0x57684…576a0 65 73 73 28 65 6e 74 5f 6d 6b 29 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3d 31 ┆ess(ent_mk); if w0=1┆
0x576a0…576c0 20 74 68 65 6e 20 77 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 ┆ then w3:= address((w3:=transref┆
0x576c0…576e0 29 2e 74 72 5f 73 6e 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 ┆).tr_sname) else w3:= ad┆
0x576e0…576fc 64 72 65 73 73 28 28 77 33 3a 3d 74 72 61 6e 73 72 65 66 29 2e 74 72 5f 72 6e 61 6d ┆dress((w3:=transref).tr_rnam┆
0x576fc…57702 (0x324,0xaef)
0x57702…57720 65 29 3b 0a 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 34 32 29 3b 20 21 20 6c 6f 6f ┆e); monitor(42); ! loo┆
0x57720…57740 6b 20 75 70 20 65 6e 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 ┆k up entry ! !test 92; i┆
0x57740…57760 66 20 77 30 3c 3e 30 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 ┆f w0<>0 then goto l_ent; ┆
0x57760…5777a 20 69 66 20 77 30 3a 3d 20 65 6e 74 5f 6d 6b 3c 30 20 74 68 65 6e 0a 20 20 20 ┆ if w0:= ent_mk<0 then ┆
0x5777a…57780 (0x324,0xaf0)
0x57780…577a0 20 20 20 20 20 62 65 67 69 6e 20 21 20 66 69 6c 65 20 64 65 73 63 72 69 70 74 6f 72 20 21 0a 20 ┆ begin ! file descriptor ! ┆
0x577a0…577c0 20 20 20 20 20 20 20 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 ┆ if w0 extract 12=4 the┆
0x577c0…577e0 6e 0a 20 20 20 20 20 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 ┆n begin ! bs descripto┆
0x577e0…57800 72 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 30 3b 0a 20 00 00 00 00 00 00 00 00 ┆r ! w3:=0; ┆
0x57800…57806 (700,) (0x324,0xaf1)
0x57806…57820 20 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 65 6e 74 5f 38 3b 0a 20 20 20 20 ┆ w0:=ent_8; ┆
0x57820…57840 20 20 20 20 20 20 20 20 74 72 61 6e 73 72 65 66 2e 74 72 5f 62 73 73 74 61 72 74 70 74 72 3a 3d ┆ transref.tr_bsstartptr:=┆
0x57840…57860 66 30 20 61 73 68 69 66 74 20 39 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f 76 65 28 2e 77 ┆f0 ashift 9; move(.w┆
0x57860…5787e 33 2e 2c 77 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 ┆3.,w0:=8,w1:=address(ent_docna┆
0x5787e…57884 (0x324,0xaf2)
0x57884…578a0 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 20 77 ┆me), w┆
0x578a0…578c0 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 2e 74 72 5f 62 73 61 ┆2:=address((w2:=transref).tr_bsa┆
0x578c0…578e0 72 65 61 29 29 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 73 28 ┆rea)); w1:= address(┆
0x578e0…578fc 65 6e 74 5f 6d 6b 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 20 61 64 ┆ent_mk); w3:= ad┆
0x578fc…57902 (0x324,0xaf3)
0x57902…57920 64 72 65 73 73 28 65 6e 74 5f 64 6f 63 6e 61 6d 65 29 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆dress(ent_docname); ┆
0x57920…57940 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 74 72 79 20 21 ┆ monitor(42); ! look up entry !┆
0x57940…57960 0a 21 74 65 73 74 20 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 ┆ !test 94; if w0<>0 ┆
0x57960…5797a 74 68 65 6e 20 67 6f 74 6f 20 6c 5f 64 65 76 3b 0a 20 20 20 20 20 20 20 20 20 ┆then goto l_dev; ┆
0x5797a…57980 (0x324,0xaf4)
0x57980…579a0 20 20 20 69 66 20 77 30 3a 3d 20 65 6e 74 5f 6d 6b 3c 30 20 74 68 65 6e 20 67 6f 74 6f 20 6c 5f ┆ if w0:= ent_mk<0 then goto l_┆
0x579a0…579c0 64 65 76 3b 0a 20 20 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 ┆dev; bs_dev:= w0:= s┆
0x579c0…579e0 65 6e 64 65 72 5f 72 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 ┆ender_receiver; end ┆
0x579e0…57a00 20 20 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 62 00 00 00 00 00 00 00 00 ┆ else b ┆
0x57a00…57a06 (701,) (0x324,0xaf5)
0x57a06…57a20 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 32 3a 3d 73 65 ┆egin if w2:=se┆
0x57a20…57a40 6e 64 65 72 5f 72 65 63 65 69 76 65 72 3d 31 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 ┆nder_receiver=1 then ┆
0x57a40…57a60 20 62 65 67 69 6e 0a 21 74 65 73 74 20 39 35 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 ┆ begin !test 95; i┆
0x57a60…57a7e 66 20 77 30 3d 38 20 74 68 65 6e 20 21 20 74 79 70 65 77 72 69 74 65 72 20 21 0a 20 20 20 ┆f w0=8 then ! typewriter ! ┆
0x57a7e…57a84 (0x324,0xaf6)
0x57a84…57aa0 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 ┆ else ┆
0x57aa0…57ac0 20 20 69 66 20 77 30 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 ┆ if w0=10 then ! reader ! ┆
0x57ac0…57ae0 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 20 69 66 20 77 ┆ else if w┆
0x57ae0…57afc 30 3d 31 36 20 74 68 65 6e 20 21 20 63 61 72 64 72 20 21 0a 20 20 20 20 20 20 20 20 ┆0=16 then ! cardr ! ┆
0x57afc…57b02 (0x324,0xaf7)
0x57b02…57b20 20 20 20 20 20 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 ┆ else goto ┆
0x57b20…57b40 6c 5f 65 6e 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 ┆l_ent; end ┆
0x57b40…57b60 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 21 74 65 73 74 20 ┆ else begin !test ┆
0x57b60…57b7a 39 36 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3d 31 32 ┆96; if w0=12┆
0x57b7a…57b80 (0x324,0xaf8)
0x57b80…57ba0 20 74 68 65 6e 20 21 20 70 75 6e 63 68 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6c ┆ then ! punch ! el┆
0x57ba0…57bc0 73 65 0a 20 20 20 20 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 ┆se if w0=14 then c┆
0x57bc0…57be0 75 5f 64 65 76 20 3a 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 ┆u_dev := w0 := ent_10 ! printer ┆
0x57be0…57c00 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 00 00 00 00 00 00 00 00 ┆! else ┆
0x57c00…57c06 (702,) (0x324,0xaf9)
0x57c06…57c20 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 6c 5f 65 6e 74 3b 0a 20 20 20 ┆ goto l_ent; ┆
0x57c20…57c40 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 74 72 61 6e 73 ┆ end; trans┆
0x57c40…57c60 72 65 66 2e 74 72 5f 6b 69 6e 64 3a 3d 20 77 30 3a 3d 20 65 6e 74 5f 6d 6b 3b 0a 20 20 20 20 20 ┆ref.tr_kind:= w0:= ent_mk; ┆
0x57c60…57c7e 20 20 20 20 20 20 20 74 72 61 6e 73 72 65 66 2e 74 72 5f 6d 6f 64 65 3a 3d 20 77 30 20 6c ┆ transref.tr_mode:= w0 l┆
0x57c7e…57c84 (0x324,0xafa)
0x57c84…57ca0 73 68 69 66 74 20 31 20 6c 73 68 69 66 74 20 2d 31 33 3b 0a 20 20 20 20 20 20 20 20 ┆shift 1 lshift -13; ┆
0x57ca0…57cc0 20 20 20 20 68 6f 73 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 ┆ hostno:= w0:= ent_7; ┆
0x57cc0…57ce0 20 20 20 20 20 68 6f 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 ┆ hostid:= w0:= ent_8; ┆
0x57ce0…57cfc 20 20 20 20 20 20 69 66 20 77 30 3a 3d 20 63 75 5f 64 65 76 20 3c 3e 20 30 20 74 68 ┆ if w0:= cu_dev <> 0 th┆
0x57cfc…57d02 (0x324,0xafb)
0x57d02…57d20 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 ┆en begin ┆
0x57d20…57d40 20 20 20 20 20 21 20 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 ┆ ! compute format printer na┆
0x57d40…57d60 6d 65 73 20 62 61 73 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 ┆mes based on ent┆
0x57d60…57d7a 5f 64 6f 63 6e 61 6d 65 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 0a ┆_docname ! ┆
0x57d7a…57d80 (0x324,0xafc)
0x57d80…57da0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 73 65 74 20 6b 69 6e 64 20 74 ┆ comment set kind t┆
0x57da0…57dc0 6f 20 31 35 3b 0a 20 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 ┆o 15; transref.tr_┆
0x57dc0…57de0 6b 69 6e 64 20 3a 3d 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 ┆kind := w3 := transref.tr_kind +┆
0x57de0…57e00 20 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 20 63 00 00 00 00 00 00 00 00 ┆ 1; w0:= c ┆
0x57e00…57e06 (703,) (0x324,0xafd)
0x57e06…57e20 75 5f 64 65 76 20 6c 73 68 69 66 74 20 2d 31 36 20 65 78 74 72 61 63 74 20 35 ┆u_dev lshift -16 extract 5┆
0x57e20…57e40 3b 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 77 30 2b ┆; if w0>9 then w0+┆
0x57e40…57e60 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 6c 69 6e ┆87 else w0+48; lin┆
0x57e60…57e7e 65 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 63 75 5f ┆e:= w0; w0:= cu_┆
0x57e7e…57e84 (0x324,0xafe)
0x57e84…57ea0 64 65 76 20 6c 73 68 69 66 74 20 2d 38 20 65 78 74 72 61 63 74 20 35 3b 0a 20 20 20 ┆dev lshift -8 extract 5; ┆
0x57ea0…57ec0 20 20 20 20 20 20 20 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 ┆ if w0>9 then w0+87 el┆
0x57ec0…57ee0 73 65 20 77 30 2b 34 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 ┆se w0+48; cu:= w0;┆
0x57ee0…57efc 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 20 63 75 5f 64 65 76 20 65 ┆ w0:= cu_dev e┆
0x57efc…57f02 (0x324,0xaff)
0x57f02…57f20 78 74 72 61 63 74 20 35 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3e ┆xtract 5; if w0>┆
0x57f20…57f40 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 20 20 20 20 20 20 20 ┆9 then w0+87 else w0+48; ┆
0x57f40…57f60 20 20 20 20 20 20 20 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 ┆ dev:= w0; w┆
0x57f60…57f7a 30 3a 3d 20 6c 69 6e 65 20 6c 73 68 69 66 74 20 38 20 2b 20 63 75 20 6c 73 68 ┆0:= line lshift 8 + cu lsh┆
0x57f7a…57f80 (0x324,0xb00)
0x57f80…57fa0 69 66 74 20 38 20 2b 20 64 65 76 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 20 67 6f 75 ┆ift 8 + dev; ! gou┆
0x57fa0…57fc0 74 33 20 3d 3e 20 67 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 ┆t3 => gxyz3 : (x=line,y=cu,z=dev┆
0x57fc0…57fe0 29 0a 20 20 20 20 20 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 ┆) x,y,z ::= (0..┆
0x57fe0…58000 39 61 2e 2e 75 29 20 69 2e 65 2e 20 28 30 2e 2e 33 31 29 20 20 20 20 21 00 00 00 00 00 00 00 00 ┆9a..u) i.e. (0..31) ! ┆
0x58000…58006 (704,) (0x324,0xb01)
0x58006…58020 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 64 69 74 6f 75 74 20 28 2e 77 ┆ editout (.w┆
0x58020…58040 33 2e 2c 77 30 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 ┆3.,w0,w1:=address(ent_docname),w┆
0x58040…58060 32 3a 3d 61 64 64 72 65 73 73 28 64 6f 63 6e 61 6d 65 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆2:=address(docname)); ┆
0x58060…5807e 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 20 20 20 20 20 ┆ if w0 = 0 then ┆
0x5807e…58084 (0x324,0xb02)
0x58084…580a0 20 20 20 65 64 69 74 6f 75 74 20 28 2e 77 33 2e 2c 77 30 3a 3d 36 39 30 39 34 34 30 ┆ editout (.w3.,w0:=6909440┆
0x580a0…580c0 21 20 22 69 6e 22 21 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 ┆! "in"!,w1:=address(ent_docname)┆
0x580c0…580e0 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 20 20 ┆, ┆
0x580e0…580fc 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 ┆ w2:=address┆
0x580fc…58102 (0x324,0xb03)
0x58102…58120 28 69 6e 64 65 76 69 63 65 29 29 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆(indevice)) else ┆
0x58120…58140 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 20 20 6d 6f 76 65 20 ┆ goto l_ent; move ┆
0x58140…58160 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 74 5f 64 6f 63 6e ┆(.w3.,w0:=8,w1:=address(ent_docn┆
0x58160…5817a 61 6d 65 29 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 66 6f 72 6d 61 74 70 72 69 ┆ame),w2:=address(formatpri┆
0x5817a…58180 (0x324,0xb04)
0x58180…581a0 6e 74 65 72 29 29 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 20 ┆nter)); end else ┆
0x581a0…581c0 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 64 ┆ move(.w3.,w0:=8,w1:=add┆
0x581c0…581e0 72 65 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 ┆ress(ent_docname),w2:=address(do┆
0x581e0…58200 63 6e 61 6d 65 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 00 00 00 00 00 00 00 00 ┆cname)); end; ┆
0x58200…58206 (705,) (0x324,0xb05)
0x58206…58220 20 20 20 20 20 20 20 20 65 6e 64 20 21 20 66 69 6c 65 20 64 65 73 63 72 69 70 ┆ end ! file descrip┆
0x58220…58240 74 6f 72 20 21 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 ┆tor ! else begin┆
0x58240…58260 0a 21 74 65 73 74 20 39 37 3b 0a 20 20 20 20 20 20 20 20 20 20 62 73 5f 64 65 76 3a 3d 20 77 30 ┆ !test 97; bs_dev:= w0┆
0x58260…5827e 3a 3d 20 73 65 6e 64 65 72 5f 72 65 63 65 69 76 65 72 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆:= sender_receiver; ┆
0x5827e…58284 (0x324,0xb06)
0x58284…582a0 6d 6f 76 65 28 2e 77 33 2e 2c 77 30 3a 3d 38 2c 77 31 3a 3d 77 33 2c 0a 20 20 20 20 ┆move(.w3.,w0:=8,w1:=w3, ┆
0x582a0…582c0 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 28 77 ┆ w2:=address((w┆
0x582c0…582e0 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 20 20 20 20 20 20 ┆2:=transref).tr_bsarea)); ┆
0x582e0…582fc 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 0a 20 20 20 20 20 20 69 66 20 ┆ end; end; if ┆
0x582fc…58302 (0x324,0xb07)
0x58302…58320 77 30 3a 3d 20 62 73 5f 64 65 76 3d 30 20 74 68 65 6e 20 67 6f 74 6f 20 6c 5f 65 6e 74 3b ┆w0:= bs_dev=0 then goto l_ent;┆
0x58320…58340 20 21 20 62 73 5f 61 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 ┆ ! bs_area not found ! w1┆
0x58340…58360 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 20 20 20 69 ┆:= address(b.tqfreefst); i┆
0x58360…5837a 66 20 77 30 3a 3d 28 77 31 29 2e 74 71 5f 6e 65 78 74 3d 77 31 20 74 68 65 6e ┆f w0:=(w1).tq_next=w1 then┆
0x5837a…58380 (0x324,0xb08)
0x58380…583a0 20 67 6f 74 6f 20 6c 5f 72 65 73 6f 75 72 63 65 73 3b 20 21 20 6e 6f 20 66 72 65 65 20 71 75 65 ┆ goto l_resources; ! no free que┆
0x583a0…583c0 75 65 20 65 6c 65 6d 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 ┆ue element ! find_tc(.w3.,┆
0x583c0…583e0 77 30 3a 3d 61 64 64 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 ┆w0:=address(docname),w0:=hostno,┆
0x583e0…58400 77 30 3a 3d 68 6f 73 74 69 64 2c 77 30 3a 3d 74 72 61 6e 73 72 65 66 2e 00 00 00 00 00 00 00 00 ┆w0:=hostid,w0:=transref. ┆
0x58400…58406 (706,) (0x324,0xb09)
0x58406…58420 74 72 5f 6b 69 6e 64 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆tr_kind, ┆
0x58420…58440 20 20 77 31 29 3b 0a 21 74 65 73 74 20 39 38 3b 0a 20 20 20 20 20 20 74 63 5f 72 65 66 3a 3d 20 ┆ w1); !test 98; tc_ref:= ┆
0x58440…58460 77 31 3b 0a 20 20 20 20 20 20 69 66 20 77 31 3d 30 20 74 68 65 6e 0a 20 20 20 20 20 20 62 65 67 ┆w1; if w1=0 then beg┆
0x58460…5847e 69 6e 20 21 20 6e 6f 20 66 72 65 65 20 63 6f 72 6f 75 74 69 6e 65 20 21 0a 20 20 20 20 20 ┆in ! no free coroutine ! ┆
0x5847e…58484 (0x324,0xb0a)
0x58484…584a0 20 20 20 67 6f 74 6f 20 6c 5f 72 65 73 6f 75 72 63 65 73 3b 0a 20 20 20 20 20 20 65 ┆ goto l_resources; e┆
0x584a0…584c0 6e 64 0a 20 20 20 20 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 ┆nd else if w1>0 then┆
0x584c0…584e0 0a 20 20 20 20 20 20 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 ┆ begin ! exist allready ! ┆
0x584e0…584fc 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 20 20 62 ┆ end else b┆
0x584fc…58502 (0x324,0xb0b)
0x58502…58520 65 67 69 6e 20 21 20 64 6f 6e 74 20 65 78 69 73 74 20 21 0a 20 20 20 20 20 20 20 20 2d 28 ┆egin ! dont exist ! -(┆
0x58520…58540 77 31 29 3b 74 63 5f 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 ┆w1);tc_ref := w1; if w0:┆
0x58540…58560 3d 20 63 75 5f 64 65 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 ┆= cu_dev<>0 then (w1).fpr_plcude┆
0x58560…5857a 76 3a 3d 20 77 30 3b 0a 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 68 6f ┆v:= w0; if w0:=ho┆
0x5857a…58580 (0x324,0xb0c)
0x58580…585a0 73 74 6e 6f 3d 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 ┆stno=0 then begin commen┆
0x585a0…585c0 74 20 6c 6f 63 61 6c 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 ┆t local device; if w0:┆
0x585c0…585e0 3d 63 75 5f 64 65 76 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 ┆=cu_dev <> 0 then begi┆
0x585e0…58600 6e 20 63 6f 6d 6d 65 6e 74 20 66 6f 72 6d 61 74 20 70 72 69 6e 74 65 72 00 00 00 00 00 00 00 00 ┆n comment format printer ┆
0x58600…58606 (707,) (0x324,0xb0d)
0x58606…58620 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 63 72 65 61 74 65 5f 66 70 72 20 28 ┆; create_fpr (┆
0x58620…58640 2e 77 33 2e 2c 77 30 3a 3d 61 64 64 72 65 73 73 28 66 6f 72 6d 61 74 70 72 69 6e 74 65 72 29 2c ┆.w3.,w0:=address(formatprinter),┆
0x58640…58660 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 ┆ ┆
0x58660…5867e 77 30 3a 3d 61 64 64 72 65 73 73 28 69 6e 64 65 76 69 63 65 29 2c 0a 20 20 20 20 20 20 20 ┆w0:=address(indevice), ┆
0x5867e…58684 (0x324,0xb0e)
0x58684…586a0 20 20 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 ┆ w0┆
0x586a0…586c0 3a 3d 68 6f 73 74 6e 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 ┆:=hostno,w0:=hostid,w0,w1:=tc_re┆
0x586c0…586e0 66 29 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 0a 20 20 ┆f); if w0<>0 then ┆
0x586e0…586fc 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 ┆
0x586fc…58702 (0x324,0xb0f)
0x58702…58720 20 20 72 65 6d 6f 76 65 5f 66 70 72 28 2e 77 33 2e 2c 77 31 29 3b 0a 20 20 20 20 20 20 20 ┆ remove_fpr(.w3.,w1); ┆
0x58720…58740 20 20 20 20 20 20 20 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 ┆ goto l_devslow; ┆
0x58740…58760 20 20 20 65 6e 64 3b 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 ┆ end; procref:= w0┆
0x58760…5877a 3a 3d 20 61 64 64 72 65 73 73 28 28 77 31 3a 3d 28 77 31 3a 3d 74 63 5f 72 65 ┆:= address((w1:=(w1:=tc_re┆
0x5877a…58780 (0x324,0xb10)
0x58780…587a0 66 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 2d 32 3b ┆f).fpr_stcorout).fpr_procout)-2;┆
0x587a0…587c0 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┆
0x587c0…587e0 67 69 6e 0a 20 20 20 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 ┆gin w3 := address(do┆
0x587e0…58800 63 6e 61 6d 65 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 00 00 00 00 00 00 00 00 ┆cname); moni ┆
0x58800…58806 (708,) (0x324,0xb11)
0x58806…58820 74 6f 72 28 34 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3d ┆tor(4); if w0=┆
0x58820…58840 30 20 74 68 65 6e 20 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 ┆0 then goto l_devslow; ┆
0x58840…58860 20 20 20 70 72 6f 63 72 65 66 20 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b ┆ procref := w0; end;┆
0x58860…5887e 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┆
0x5887e…58884 (0x324,0xb12)
0x58884…588a0 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 20 20 20 ┆n comment remote device; ┆
0x588a0…588c0 20 20 20 20 20 20 20 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 ┆ w1:= (w2:=74).word; ! f┆
0x588c0…588e0 69 72 73 74 20 64 65 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 ┆irst device ! w2:= (w2┆
0x588e0…588fc 3a 3d 37 36 29 2e 77 6f 72 64 3b 20 20 20 21 20 6c 61 73 74 20 64 65 76 69 63 65 20 ┆:=76).word; ! last device ┆
0x588fc…58902 (0x324,0xb13)
0x58902…58920 20 21 0a 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 77 31 2b 68 6f 73 74 6e 6f 2b 68 6f 73 ┆ ! w3:=w1+hostno+hos┆
0x58920…58940 74 6e 6f 3b 20 21 20 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 ┆tno; ! w3=name table address of ┆
0x58940…58960 68 6f 73 74 6e 6f 20 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 ┆hostno ! if w3>=w2 ┆
0x58960…5897a 74 68 65 6e 20 67 6f 74 6f 20 6c 5f 65 6e 74 3b 20 21 20 69 66 20 6f 75 74 73 ┆then goto l_ent; ! if outs┆
0x5897a…58980 (0x324,0xb14)
0x58980…589a0 69 64 65 20 64 65 76 69 63 65 20 70 61 72 74 20 6f 66 20 6e 61 6d 65 20 74 61 62 6c 65 20 74 68 ┆ide device part of name table th┆
0x589a0…589c0 65 6e 20 65 72 72 6f 72 20 21 0a 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 20 28 77 33 3a 3d 28 ┆en error ! w0:= (w3:=(┆
0x589c0…589e0 77 33 29 2e 77 6f 72 64 29 2e 77 6f 72 64 3b 20 21 20 77 30 20 3a 3d 20 6b 69 6e 64 28 68 6f 73 ┆w3).word).word; ! w0 := kind(hos┆
0x589e0…58a00 74 6e 6f 29 3b 20 21 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 20 00 00 00 00 00 00 00 00 ┆tno); ! if w0 ┆
0x58a00…58a06 (709,) (0x324,0xb15)
0x58a06…58a20 3c 3e 20 32 36 20 21 20 32 36 20 3d 20 6b 69 6e 64 20 28 69 66 70 6d 61 69 6e ┆<> 26 ! 26 = kind (ifpmain┆
0x58a20…58a40 29 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 20 ┆) ! then begin ┆
0x58a40…58a60 20 20 20 20 20 69 66 20 77 30 20 3c 3e 20 38 32 20 21 20 38 32 20 3d 20 6b 69 6e 64 20 28 73 75 ┆ if w0 <> 82 ! 82 = kind (su┆
0x58a60…58a7e 62 68 6f 73 74 29 20 21 20 74 68 65 6e 20 67 6f 74 6f 20 6c 5f 65 6e 74 3b 0a 20 20 20 20 ┆bhost) ! then goto l_ent; ┆
0x58a7e…58a84 (0x324,0xb16)
0x58a84…58aa0 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 20 3d ┆ end; if w0 =┆
0x58aa0…58ac0 20 32 36 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 ┆ 26 then begin ┆
0x58ac0…58ae0 20 20 20 20 20 69 66 20 77 30 3a 3d 20 74 72 61 6e 73 72 65 66 2e 74 72 5f 6b 69 6e 64 20 3c 3e ┆ if w0:= transref.tr_kind <>┆
0x58ae0…58afc 20 31 34 20 74 68 65 6e 20 67 6f 74 6f 20 6c 5f 64 65 76 73 6c 6f 77 3b 0a 20 20 20 ┆ 14 then goto l_devslow; ┆
0x58afc…58b02 (0x324,0xb17)
0x58b02…58b20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 20 61 64 64 72 65 73 73 20 28 64 6f 63 6e 61 6d 65 ┆ w0:= address (docname┆
0x58b20…58b40 29 2d 32 3b 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 3b 0a 20 ┆)-2; procref:= w0; ┆
0x58b40…58b60 20 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 20 20 68 ┆ w0:= 0; h┆
0x58b60…58b7a 6f 73 74 69 64 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 20 ┆ostid:= w0; end ┆
0x58b7a…58b80 (0x324,0xb18)
0x58b80…58ba0 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 20 20 ┆else begin ┆
0x58ba0…58bc0 20 6c 69 6e 6b 75 70 72 65 6d 6f 74 65 28 2e 77 33 2e 2c 77 30 3a 3d 74 72 61 6e 73 72 65 66 2e ┆ linkupremote(.w3.,w0:=transref.┆
0x58bc0…58be0 74 72 5f 6b 69 6e 64 2c 77 30 3a 3d 68 6f 73 74 6e 6f 2c 77 30 3a 3d 68 6f 73 74 69 64 2c 0a 20 ┆tr_kind,w0:=hostno,w0:=hostid, ┆
0x58be0…58c00 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 ┆ ┆
0x58c00…58c06 (710,) (0x324,0xb19)
0x58c06…58c20 20 20 20 20 20 77 30 3a 3d 61 64 64 72 65 73 73 28 64 6f 63 6e 61 6d 65 29 2c ┆ w0:=address(docname),┆
0x58c20…58c40 77 30 2c 77 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3c 3e 34 30 39 36 20 ┆w0,w2); if w0<>4096 ┆
0x58c40…58c60 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3c 3e 34 31 30 33 20 74 68 65 ┆then if w0<>4103 the┆
0x58c60…58c7e 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 62 2e 61 63 63 65 70 74 3c ┆n if w0:=b.accept<┆
0x58c7e…58c84 (0x324,0xb1a)
0x58c84…58ca0 3e 30 20 74 68 65 6e 20 77 32 3a 3d 61 64 64 72 65 73 73 28 62 2e 6e 6f 5f 6c 69 6e ┆>0 then w2:=address(b.no_lin┆
0x58ca0…58cc0 6b 29 20 65 6c 73 65 20 67 6f 74 6f 20 6c 5f 64 65 76 73 6c 6f 77 3b 0a 20 20 20 20 20 20 20 20 ┆k) else goto l_devslow; ┆
0x58cc0…58ce0 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 65 6e 64 3b 0a ┆ procref:=w2; end; ┆
0x58ce0…58cfc 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 74 63 5f ┆ end; w1:=tc_┆
0x58cfc…58d02 (0x324,0xb1b)
0x58d02…58d20 72 65 66 3b 0a 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 ┆ref; create_tc(.w3.,w1┆
0x58d20…58d40 2c 77 30 3a 3d 61 64 64 72 65 73 73 28 64 6f 63 6e 61 6d 65 29 2c 77 30 3a 3d 68 6f 73 74 6e 6f ┆,w0:=address(docname),w0:=hostno┆
0x58d40…58d60 2c 77 30 3a 3d 68 6f 73 74 69 64 2c 77 30 3a 3d 70 72 6f 63 72 65 66 29 3b 0a 20 20 20 20 20 20 ┆,w0:=hostid,w0:=procref); ┆
0x58d60…58d7a 20 20 69 66 20 77 30 20 3a 3d 20 63 75 5f 64 65 76 20 3c 3e 20 30 20 74 68 65 ┆ if w0 := cu_dev <> 0 the┆
0x58d7a…58d80 (0x324,0xb1c)
0x58d80…58da0 6e 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 ┆n else begin ┆
0x58da0…58dc0 20 20 20 20 20 20 20 77 33 3a 3d 61 64 64 72 65 73 73 28 28 77 31 3a 3d 74 63 5f 72 65 66 29 2e ┆ w3:=address((w1:=tc_ref).┆
0x58dc0…58de0 74 63 5f 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 38 29 3b 0a ┆tc_name); monitor(8); ┆
0x58de0…58e00 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 70 72 6f 63 72 65 66 3b 0a 20 00 00 00 00 00 00 00 00 ┆ w2:=procref; ┆
0x58e00…58e06 (711,) (0x324,0xb1d)
0x58e06…58e20 20 20 20 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 69 66 20 77 30 3a 3d 28 77 ┆ comment if w0:=(w┆
0x58e20…58e40 32 2b 33 36 29 2e 62 79 74 65 20 3c 3e 20 74 72 61 6e 73 72 65 66 2e 74 72 6b 69 6e 64 20 74 68 ┆2+36).byte <> transref.trkind th┆
0x58e40…58e60 65 6e 20 67 6f 74 6f 20 6c 5f 64 65 76 73 6c 6f 77 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a ┆en goto l_devslow; end; ┆
0x58e60…58e7e 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 0a 0a 65 78 ┆ end; w0:= 0; ex┆
0x58e7e…58e84 (0x324,0xb1e)
0x58e84…58ea0 69 74 3a 0a 20 20 20 20 20 20 77 31 3a 3d 20 74 63 5f 72 65 66 3b 0a 20 20 20 20 20 ┆it: w1:= tc_ref; ┆
0x58ea0…58ec0 20 77 32 3a 3d 20 74 72 61 6e 73 72 65 66 3b 0a 20 20 20 20 20 20 77 33 3a 3d 20 62 2e 63 75 72 ┆ w2:= transref; w3:= b.cur┆
0x58ec0…58ee0 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 0a 6c 5f 72 ┆rent; call w0 return; l_r┆
0x58ee0…58efc 65 73 6f 75 72 63 65 73 20 20 3a 20 77 30 3a 3d 20 32 3b 20 67 6f 74 6f 20 65 78 69 ┆esources : w0:= 2; goto exi┆
0x58efc…58f02 (0x324,0xb1f)
0x58f02…58f20 74 3b 0a 6c 5f 65 6e 74 20 20 20 20 20 20 20 20 3a 20 69 66 20 77 30 3a 3d 73 65 6e 64 65 ┆t; l_ent : if w0:=sende┆
0x58f20…58f40 72 5f 72 65 63 65 69 76 65 72 3d 31 20 74 68 65 6e 20 77 30 3a 3d 20 33 20 65 6c 73 65 20 77 30 ┆r_receiver=1 then w0:= 3 else w0┆
0x58f40…58f60 3a 3d 20 35 3b 20 67 6f 74 6f 20 65 78 69 74 3b 0a 6c 5f 64 65 76 20 20 20 20 20 20 20 20 3a 20 ┆:= 5; goto exit; l_dev : ┆
0x58f60…58f7a 69 66 20 77 30 3a 3d 20 73 65 6e 64 65 72 5f 72 65 63 65 69 76 65 72 3d 31 20 ┆if w0:= sender_receiver=1 ┆
0x58f7a…58f80 (0x324,0xb20)
0x58f80…58fa0 74 68 65 6e 20 77 30 3a 3d 20 34 20 65 6c 73 65 20 77 30 3a 3d 20 36 3b 20 67 6f 74 6f 20 65 78 ┆then w0:= 4 else w0:= 6; goto ex┆
0x58fa0…58fc0 69 74 3b 0a 6c 5f 64 65 76 73 6c 6f 77 20 20 20 20 3a 20 69 66 20 77 30 3a 3d 62 73 5f 64 65 76 ┆it; l_devslow : if w0:=bs_dev┆
0x58fc0…58fe0 3d 31 20 74 68 65 6e 20 77 30 3a 3d 20 36 20 65 6c 73 65 20 77 30 3a 3d 20 34 3b 20 67 6f 74 6f ┆=1 then w0:= 6 else w0:= 4; goto┆
0x58fe0…59000 20 65 78 69 74 3b 0a 0a 20 20 20 20 65 6e 64 3b 0a 20 20 65 6e 64 3b 20 00 00 00 00 00 00 00 00 ┆ exit; end; end; ┆
0x59000…59006 (712,) (0x324,0xb21)
0x59006…59020 21 20 64 65 66 74 72 5f 73 65 6d 61 6e 74 69 63 20 21 0a 0a 0a 0a 20 20 62 6f ┆! deftr_semantic ! bo┆
0x59020…59040 64 79 20 6f 66 20 61 70 70 6c 5f 69 6e 74 65 72 66 61 63 65 0a 20 20 63 6f 6d 6d 65 6e 74 20 61 ┆dy of appl_interface comment a┆
0x59040…59060 70 70 6c 69 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 3b 0a ┆pplication interface coroutine; ┆
0x59060…5907e 20 20 62 65 67 69 6e 0a 20 20 20 20 6c 61 62 65 6c 20 77 61 69 74 5f 6d 2c 0a 20 20 20 20 ┆ begin label wait_m, ┆
0x5907e…59084 (0x324,0xb22)
0x59084…590a0 20 20 20 20 20 20 72 64 74 5f 72 65 73 6f 75 72 63 65 73 2c 72 64 74 5f 73 79 6e 74 ┆ rdt_resources,rdt_synt┆
0x590a0…590c0 61 78 2c 72 64 74 5f 73 65 6e 74 2c 72 64 74 5f 73 64 65 76 2c 72 64 74 5f 72 65 6e 74 2c 72 64 ┆ax,rdt_sent,rdt_sdev,rdt_rent,rd┆
0x590c0…590e0 74 5f 72 64 65 76 2c 0a 20 20 20 20 20 20 20 20 20 20 72 67 74 2c 20 72 67 74 5f 73 79 6e 74 61 ┆t_rdev, rgt, rgt_synta┆
0x590e0…590fc 78 2c 20 72 67 74 5f 75 6e 6b 6e 6f 77 6e 2c 20 72 67 74 5f 72 65 73 6f 75 72 63 65 ┆x, rgt_unknown, rgt_resource┆
0x590fc…59102 (0x324,0xb23)
0x59102…59120 73 2c 20 74 72 5f 66 69 6e 69 73 68 65 64 2c 0a 20 20 20 20 20 20 20 20 20 20 72 72 74 2c ┆s, tr_finished, rrt,┆
0x59120…59140 20 72 72 74 5f 73 79 6e 74 61 78 2c 20 72 72 74 5f 75 6e 6b 6e 6f 77 6e 2c 0a 20 20 20 20 20 20 ┆ rrt_syntax, rrt_unknown, ┆
0x59140…59160 20 20 20 20 72 6b 74 2c 20 72 6b 74 5f 73 79 6e 74 61 78 2c 20 72 6b 74 5f 75 6e 6b 6e 6f 77 6e ┆ rkt, rkt_syntax, rkt_unknown┆
0x59160…5917a 2c 72 65 70 6b 69 6c 6c 2c 0a 20 20 20 20 20 20 20 20 20 20 73 74 6f 70 70 65 ┆,repkill, stoppe┆
0x5917a…59180 (0x324,0xb24)
0x59180…591a0 64 2c 75 6e 69 6e 74 2c 72 65 6a 65 63 74 3b 0a 20 20 20 20 72 65 63 6f 72 64 20 64 65 66 5f 74 ┆d,unint,reject; record def_t┆
0x591a0…591c0 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 64 74 68 5f ┆ransport (word dth_┆
0x591c0…591e0 6f 70 2c 64 74 68 5f 74 72 6e 61 6d 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 65 78 ┆op,dth_trname; tex┆
0x591e0…59200 74 28 31 31 29 20 64 74 5f 74 72 6e 61 6d 65 3b 0a 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆t(11) dt_trname; ┆
0x59200…59206 (713,) (0x324,0xb25)
0x59206…59220 20 20 20 20 20 20 20 77 6f 72 64 20 64 74 68 5f 75 73 65 72 3b 0a 20 20 20 20 ┆ word dth_user; ┆
0x59220…59240 20 20 20 20 20 20 20 20 20 20 74 65 78 74 28 31 31 29 20 64 74 5f 75 73 65 72 3b 0a 20 20 20 20 ┆ text(11) dt_user; ┆
0x59240…59260 20 20 20 20 20 20 20 20 20 20 77 6f 72 64 20 64 74 68 5f 73 75 62 2c 64 74 68 5f 73 65 6e 64 65 ┆ word dth_sub,dth_sende┆
0x59260…5927e 72 2c 64 74 68 5f 73 6e 61 6d 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 65 78 ┆r,dth_sname; tex┆
0x5927e…59284 (0x324,0xb26)
0x59284…592a0 74 28 31 31 29 20 64 74 5f 73 6e 61 6d 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆t(11) dt_sname; ┆
0x592a0…592c0 20 20 77 6f 72 64 20 64 74 68 5f 72 65 63 65 69 76 65 72 2c 64 74 68 5f 72 6e 61 6d 65 3b 0a 20 ┆ word dth_receiver,dth_rname; ┆
0x592c0…592e0 20 20 20 20 20 20 20 20 20 20 20 20 20 74 65 78 74 28 31 31 29 20 64 74 5f 72 6e 61 6d 65 3b 0a ┆ text(11) dt_rname; ┆
0x592e0…592fc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 6f 72 64 20 64 74 68 5f 71 75 65 75 65 ┆ word dth_queue┆
0x592fc…59302 (0x324,0xb27)
0x59302…59320 73 2c 64 74 68 5f 71 67 72 6f 75 70 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 65 ┆s,dth_qgroup; te┆
0x59320…59340 78 74 28 31 31 29 20 64 74 5f 71 67 72 6f 75 70 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆xt(11) dt_qgroup; ┆
0x59340…59360 77 6f 72 64 20 64 74 68 5f 71 6e 61 6d 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 65 ┆word dth_qname; te┆
0x59360…5937a 78 74 28 31 31 29 20 64 74 5f 71 6e 61 6d 65 29 3b 0a 20 20 20 20 72 65 63 6f ┆xt(11) dt_qname); reco┆
0x5937a…59380 (0x324,0xb28)
0x59380…593a0 72 64 20 67 65 74 73 74 5f 74 72 61 6e 73 70 6f 72 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆rd getst_transport ┆
0x593a0…593c0 28 77 6f 72 64 20 67 74 68 5f 6f 70 2c 67 74 68 5f 6e 6f 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆(word gth_op,gth_no; ┆
0x593c0…593e0 20 20 20 77 6f 72 64 20 67 74 5f 6e 6f 29 3b 0a 0a 20 20 20 20 72 65 63 6f 72 64 20 72 65 6c 65 ┆ word gt_no); record rele┆
0x593e0…59400 61 5f 74 72 61 6e 73 70 6f 72 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆a_transport ┆
0x59400…59406 (714,) (0x324,0xb29)
0x59406…59420 20 28 77 6f 72 64 20 72 74 68 5f 6f 70 2c 72 74 68 5f 6e 6f 3b 0a 20 20 20 20 ┆ (word rth_op,rth_no; ┆
0x59420…59440 20 20 20 20 20 20 20 20 20 20 77 6f 72 64 20 72 74 5f 6e 6f 29 3b 0a 0a 20 20 20 20 72 65 63 6f ┆ word rt_no); reco┆
0x59440…59460 72 64 20 6b 69 6c 6c 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 ┆rd kill_transport (┆
0x59460…5947e 77 6f 72 64 20 6b 74 68 5f 6f 70 2c 6b 74 68 5f 6e 6f 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆word kth_op,kth_no; ┆
0x5947e…59484 (0x324,0xb2a)
0x59484…594a0 20 20 20 20 77 6f 72 64 20 6b 74 5f 6e 6f 29 3b 0a 20 20 20 20 69 6e 63 6f 64 65 0a ┆ word kt_no); incode ┆
0x594a0…594c0 20 20 20 20 20 20 21 20 61 6e 73 77 65 72 20 64 65 66 69 6e 65 20 74 72 61 6e 73 70 6f 72 74 20 ┆ ! answer define transport ┆
0x594c0…594e0 21 0a 20 20 20 20 20 20 62 79 74 65 20 61 64 74 5f 31 3a 3d 20 33 2c 20 61 64 74 5f 32 3a 3d 20 ┆! byte adt_1:= 3, adt_2:= ┆
0x594e0…594fc 30 2c 0a 20 20 20 20 20 20 20 20 20 20 20 61 64 74 5f 33 3a 3d 20 31 2c 20 61 64 74 ┆0, adt_3:= 1, adt┆
0x594fc…59502 (0x324,0xb2b)
0x59502…59520 5f 34 3a 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 20 ┆_4:= 4'010010; text(11) ┆
0x59520…59540 61 64 74 5f 74 72 6e 61 6d 65 3b 0a 20 20 20 20 20 20 62 79 74 65 20 61 64 74 5f 35 3a 3d 20 32 ┆adt_trname; byte adt_5:= 2┆
0x59540…59560 2c 20 61 64 74 5f 36 3a 3d 20 34 27 30 31 30 30 31 30 3b 0a 20 20 20 20 20 20 74 65 78 74 28 31 ┆, adt_6:= 4'010010; text(1┆
0x59560…5957a 31 29 20 61 64 74 5f 75 73 65 72 3b 0a 20 20 20 20 20 20 62 79 74 65 20 61 64 ┆1) adt_user; byte ad┆
0x5957a…59580 (0x324,0xb2c)
0x59580…595a0 74 5f 37 3a 3d 20 33 2c 20 61 64 74 5f 38 3a 3d 20 34 27 30 31 30 30 30 31 3b 0a 20 20 20 20 20 ┆t_7:= 3, adt_8:= 4'010001; ┆
0x595a0…595c0 20 77 6f 72 64 20 61 64 74 5f 6e 6f 3b 0a 20 20 20 20 20 20 62 79 74 65 20 61 64 74 5f 39 3a 3d ┆ word adt_no; byte adt_9:=┆
0x595c0…595e0 20 34 2c 20 61 64 74 5f 31 30 3a 3d 20 34 27 30 31 30 30 30 30 2c 0a 20 20 20 20 20 20 20 20 20 ┆ 4, adt_10:= 4'010000, ┆
0x595e0…59600 20 20 61 64 74 5f 31 31 3a 3d 31 2c 20 61 64 74 5f 31 32 3a 3d 20 34 27 00 00 00 00 00 00 00 00 ┆ adt_11:=1, adt_12:= 4' ┆
0x59600…59606 (715,) (0x324,0xb2d)
0x59606…59620 30 32 30 30 30 31 3b 0a 20 20 20 20 20 20 77 6f 72 64 20 61 64 74 5f 72 63 6f ┆020001; word adt_rco┆
0x59620…59640 64 65 3b 0a 20 20 20 20 20 20 62 79 74 65 20 61 64 74 5f 31 33 2c 20 61 64 74 5f 31 34 3a 3d 20 ┆de; byte adt_13, adt_14:= ┆
0x59640…59660 34 27 30 32 30 30 30 32 3b 20 21 20 64 65 76 69 63 65 20 74 72 6f 75 62 6c 65 73 20 70 61 72 61 ┆4'020002; ! device troubles para┆
0x59660…5967e 6d 73 20 21 0a 20 20 20 20 20 20 77 6f 72 64 20 61 64 74 5f 63 61 75 73 65 2c 20 61 64 74 ┆ms ! word adt_cause, adt┆
0x5967e…59684 (0x324,0xb2e)
0x59684…596a0 5f 73 74 61 74 75 73 3a 3d 20 30 3b 0a 0a 20 20 20 20 20 20 21 20 61 6e 73 77 65 72 ┆_status:= 0; ! answer┆
0x596a0…596c0 20 67 65 74 20 73 74 61 74 65 20 21 0a 20 20 20 20 20 20 62 79 74 65 20 61 67 74 5f 31 2c 20 61 ┆ get state ! byte agt_1, a┆
0x596c0…596e0 67 74 5f 32 3a 3d 20 30 2c 0a 20 20 20 20 20 20 20 20 20 20 20 61 67 74 5f 33 3a 3d 20 34 2c 20 ┆gt_2:= 0, agt_3:= 4, ┆
0x596e0…596fc 61 67 74 5f 34 3a 3d 20 34 27 30 31 30 30 30 30 2c 0a 20 20 20 20 20 20 20 20 20 20 ┆agt_4:= 4'010000, ┆
0x596fc…59702 (0x324,0xb2f)
0x59702…59720 20 61 67 74 5f 35 3a 3d 20 31 2c 20 61 67 74 5f 36 3a 3d 20 34 27 30 32 30 30 30 31 3b 0a ┆ agt_5:= 1, agt_6:= 4'020001; ┆
0x59720…59740 20 20 20 20 20 20 77 6f 72 64 20 61 67 74 5f 72 63 6f 64 65 3b 0a 20 20 20 20 20 20 62 79 74 65 ┆ word agt_rcode; byte┆
0x59740…59760 20 61 67 74 5f 37 3a 3d 20 31 2c 20 61 67 74 5f 38 3a 3d 20 34 27 30 31 30 30 31 30 3b 0a 20 20 ┆ agt_7:= 1, agt_8:= 4'010010; ┆
0x59760…5977a 20 20 20 20 74 65 78 74 28 31 31 29 20 61 67 74 5f 74 72 6e 61 6d 65 3b 0a 20 ┆ text(11) agt_trname; ┆
0x5977a…59780 (0x324,0xb30)
0x59780…597a0 20 20 20 20 20 62 79 74 65 20 61 67 74 5f 39 3a 3d 20 33 2c 20 61 67 74 5f 31 30 3a 3d 20 34 27 ┆ byte agt_9:= 3, agt_10:= 4'┆
0x597a0…597c0 30 31 30 30 30 31 3b 0a 20 20 20 20 20 20 77 6f 72 64 20 61 67 74 5f 6e 6f 3b 0a 20 20 20 20 20 ┆010001; word agt_no; ┆
0x597c0…597e0 20 62 79 74 65 20 61 67 74 5f 31 31 3a 3d 20 31 30 30 30 2c 20 61 67 74 5f 31 32 3a 3d 20 34 27 ┆ byte agt_11:= 1000, agt_12:= 4'┆
0x597e0…59800 30 31 30 30 30 30 2c 0a 20 20 20 20 20 20 20 20 20 20 20 61 67 74 5f 31 00 00 00 00 00 00 00 00 ┆010000, agt_1 ┆
0x59800…59806 (716,) (0x324,0xb31)
0x59806…59820 33 3a 3d 20 33 2c 20 61 67 74 5f 31 34 3a 3d 20 34 27 30 32 30 30 30 30 2c 0a ┆3:= 3, agt_14:= 4'020000, ┆
0x59820…59840 20 20 20 20 20 20 20 20 20 20 20 61 67 74 5f 31 35 3a 3d 20 34 2c 20 61 67 74 5f 31 36 3a 3d 20 ┆ agt_15:= 4, agt_16:= ┆
0x59840…59860 34 27 30 33 30 30 30 31 3b 0a 20 20 20 20 20 20 77 6f 72 64 20 61 67 74 5f 73 74 61 74 65 3b 0a ┆4'030001; word agt_state; ┆
0x59860…5987e 20 20 20 20 20 20 62 79 74 65 20 61 67 74 5f 31 39 3a 3d 20 37 2c 20 61 67 74 5f 32 30 3a ┆ byte agt_19:= 7, agt_20:┆
0x5987e…59884 (0x324,0xb32)
0x59884…598a0 3d 20 34 27 30 33 30 30 30 32 3b 0a 20 20 20 20 20 20 77 6f 72 64 20 61 67 74 5f 70 ┆= 4'030002; word agt_p┆
0x598a0…598c0 74 72 31 2c 20 61 67 74 5f 70 74 72 32 3b 0a 20 20 20 20 20 20 62 79 74 65 20 61 67 74 5f 31 37 ┆tr1, agt_ptr2; byte agt_17┆
0x598c0…598e0 3a 3d 20 36 2c 20 61 67 74 5f 31 38 3a 3d 20 34 27 30 33 30 30 30 32 3b 0a 20 20 20 20 20 20 77 ┆:= 6, agt_18:= 4'030002; w┆
0x598e0…598fc 6f 72 64 20 61 67 74 5f 63 61 75 73 65 2c 20 61 67 74 5f 73 74 61 74 75 73 3b 0a 0a ┆ord agt_cause, agt_status; ┆
0x598fc…59902 (0x324,0xb33)
0x59902…59920 20 20 20 20 20 20 21 20 61 6e 73 77 65 72 20 72 65 6c 65 61 73 65 20 64 65 73 63 72 20 21 ┆ ! answer release descr !┆
0x59920…59940 0a 20 20 20 20 20 20 62 79 74 65 20 61 72 74 5f 31 3a 3d 20 39 2c 20 61 72 74 5f 32 3a 3d 20 30 ┆ byte art_1:= 9, art_2:= 0┆
0x59940…59960 2c 0a 20 20 20 20 20 20 20 20 20 20 20 61 72 74 5f 33 3a 3d 20 34 2c 20 61 72 74 5f 34 3a 3d 20 ┆, art_3:= 4, art_4:= ┆
0x59960…5997a 34 27 30 31 30 30 30 30 2c 0a 20 20 20 20 20 20 20 20 20 20 20 61 72 74 5f 35 ┆4'010000, art_5┆
0x5997a…59980 (0x324,0xb34)
0x59980…599a0 3a 3d 20 31 2c 20 61 72 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, art_6:= 4'020001; wo┆
0x599a0…599c0 72 64 20 61 72 74 5f 72 63 6f 64 65 3b 0a 0a 20 20 20 20 20 20 21 20 61 6e 73 77 65 72 20 6b 69 ┆rd art_rcode; ! answer ki┆
0x599c0…599e0 6c 6c 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 6b 74 5f 31 3a ┆ll transport ! byte akt_1:┆
0x599e0…59a00 3d 20 31 31 2c 20 61 6b 74 5f 32 3a 3d 20 30 2c 0a 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆= 11, akt_2:= 0, ┆
0x59a00…59a06 (717,) (0x324,0xb35)
0x59a06…59a20 20 20 20 20 61 6b 74 5f 33 3a 3d 20 20 34 2c 20 61 6b 74 5f 34 3a 3d 20 34 27 ┆ akt_3:= 4, akt_4:= 4'┆
0x59a20…59a40 30 31 30 30 30 30 2c 0a 20 20 20 20 20 20 20 20 20 20 20 61 6b 74 5f 35 3a 3d 20 20 31 2c 20 61 ┆010000, akt_5:= 1, a┆
0x59a40…59a60 6b 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 6b 74 5f ┆kt_6:= 4'020001; word akt_┆
0x59a60…59a7e 72 63 6f 64 65 3b 0a 0a 20 20 20 20 20 20 21 20 77 6f 72 6b 20 61 72 65 61 20 66 6f 72 20 ┆rcode; ! work area for ┆
0x59a7e…59a84 (0x324,0xb36)
0x59a84…59aa0 63 6f 6e 74 72 6f 6c 20 6f 70 65 72 61 74 69 6f 6e 20 64 61 74 61 20 21 0a 20 20 20 ┆control operation data ! ┆
0x59aa0…59ac0 20 20 20 61 72 72 61 79 28 31 3a 28 21 6c 65 6e 67 74 68 28 64 65 66 5f 74 72 61 6e 73 70 6f 72 ┆ array(1:(!length(def_transpor┆
0x59ac0…59ae0 74 29 2b 32 29 29 20 63 6f 6e 74 5f 64 61 74 61 20 6f 66 20 62 79 74 65 3b 0a 20 20 20 20 20 20 ┆t)+2)) cont_data of byte; ┆
0x59ae0…59afc 20 20 20 20 21 20 64 61 74 61 20 61 72 65 61 20 66 6f 72 20 63 6f 6e 74 72 6f 6c 20 ┆ ! data area for control ┆
0x59afc…59b02 (0x324,0xb37)
0x59b02…59b20 6f 70 65 72 61 74 69 6f 6e 20 64 61 74 61 2c 20 6c 6f 6e 67 65 72 20 74 68 61 6e 20 6c 6f ┆operation data, longer than lo┆
0x59b20…59b40 6e 67 65 73 74 20 64 61 74 61 20 61 72 65 61 20 21 0a 0a 20 20 20 20 20 20 21 20 67 65 6e 65 72 ┆ngest data area ! ! gener┆
0x59b40…59b60 61 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 ┆al copy params ! word gc_f┆
0x59b60…59b7a 75 6e 63 3a 3d 20 34 3b 20 21 20 63 6f 70 79 20 66 72 6f 6d 20 73 65 6e 64 65 ┆unc:= 4; ! copy from sende┆
0x59b7a…59b80 (0x324,0xb38)
0x59b80…59ba0 72 20 74 6f 20 6d 65 20 21 0a 20 20 20 20 20 20 72 65 66 20 20 67 63 5f 66 69 72 73 74 2c 20 67 ┆r to me ! ref gc_first, g┆
0x59ba0…59bc0 63 5f 6c 61 73 74 3b 0a 20 20 20 20 20 20 77 6f 72 64 20 67 63 5f 72 65 6c 3a 3d 20 30 3b 0a 0a ┆c_last; word gc_rel:= 0; ┆
0x59bc0…59be0 20 20 20 20 20 20 77 6f 72 64 20 62 79 74 65 73 6d 6f 76 65 64 3b 0a 20 20 20 20 20 20 72 65 66 ┆ word bytesmoved; ref┆
0x59be0…59c00 20 74 72 61 6e 73 72 65 66 2c 20 74 63 5f 72 65 66 3b 0a 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ transref, tc_ref; ┆
0x59c00…59c06 (718,) (0x324,0xb39)
0x59c06…59c20 20 77 6f 72 64 20 74 72 61 6e 73 6e 6f 3b 20 21 20 75 73 65 64 20 62 79 20 6b ┆ word transno; ! used by k┆
0x59c20…59c40 69 6c 6c 20 21 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 ┆ill ! ref return; begi┆
0x59c40…59c60 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 72 65 74 ┆n return:= w3; call w3 ret┆
0x59c60…59c7e 75 72 6e 3b 20 21 20 70 73 65 75 64 6f 20 63 61 6c 6c 20 21 0a 0a 77 61 69 74 5f 6d 3a 0a ┆urn; ! pseudo call ! wait_m: ┆
0x59c7e…59c84 (0x324,0xb3a)
0x59c84…59ca0 20 20 20 20 20 20 77 61 69 74 6d 65 73 73 28 2e 77 33 2e 2c 77 32 29 3b 0a 20 20 20 ┆ waitmess(.w3.,w2); ┆
0x59ca0…59cc0 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 77 33 3a 3d 20 ┆ cont_data(w1:=1); w3:= ┆
0x59cc0…59ce0 77 31 2b 21 6c 65 6e 67 74 68 28 64 65 66 5f 74 72 61 6e 73 70 6f 72 74 29 3b 0a 20 20 20 20 20 ┆w1+!length(def_transport); ┆
0x59ce0…59cfc 20 67 63 5f 66 69 72 73 74 3a 3d 20 77 31 3b 0a 20 20 20 20 20 20 67 63 5f 6c 61 73 ┆ gc_first:= w1; gc_las┆
0x59cfc…59d02 (0x324,0xb3b)
0x59d02…59d20 74 3a 3d 20 77 33 3b 0a 20 20 20 20 20 20 77 31 3a 3d 20 61 64 64 72 65 73 73 28 67 63 5f ┆t:= w3; w1:= address(gc_┆
0x59d20…59d40 66 75 6e 63 29 3b 0a 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 ┆func); monitor(84); ! gene┆
0x59d40…59d60 72 61 6c 20 63 6f 70 79 20 63 6f 72 65 20 21 0a 20 20 20 20 20 20 69 66 20 77 30 3d 32 20 74 68 ┆ral copy core ! if w0=2 th┆
0x59d60…59d7a 65 6e 20 67 6f 74 6f 20 73 74 6f 70 70 65 64 3b 0a 20 20 20 20 20 20 69 66 20 ┆en goto stopped; if ┆
0x59d7a…59d80 (0x324,0xb3c)
0x59d80…59da0 77 30 3d 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 69 66 20 77 ┆w0=3 then goto unint; if w┆
0x59da0…59dc0 31 3c 3d 30 20 74 68 65 6e 20 67 6f 74 6f 20 75 6e 69 6e 74 3b 20 21 20 6e 6f 20 64 61 74 61 20 ┆1<=0 then goto unint; ! no data ┆
0x59dc0…59de0 21 0a 20 20 20 20 20 20 62 79 74 65 73 6d 6f 76 65 64 3a 3d 20 77 31 3b 0a 20 20 20 20 20 20 63 ┆! bytesmoved:= w1; c┆
0x59de0…59e00 6f 6e 74 5f 64 61 74 61 28 77 31 3a 3d 31 29 3b 0a 20 20 20 20 20 20 74 00 00 00 00 00 00 00 00 ┆ont_data(w1:=1); t ┆
0x59e00…59e06 (719,) (0x324,0xb3d)
0x59e06…59e20 65 73 74 6f 75 74 28 2e 77 33 2e 2c 77 30 3a 3d 62 79 74 65 73 6d 6f 76 65 64 ┆estout(.w3.,w0:=bytesmoved┆
0x59e20…59e40 2c 77 31 2c 77 32 3a 3d 36 36 29 3b 0a 0a 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 31 29 2e ┆,w1,w2:=66); if w0:=(w1).┆
0x59e40…59e60 77 6f 72 64 3d 34 27 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 ┆word=4'2000000 then begin ┆
0x59e60…59e7e 21 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 20 20 69 ┆! define transport ! i┆
0x59e7e…59e84 (0x324,0xb3e)
0x59e84…59ea0 66 20 77 30 3a 3d 62 79 74 65 73 6d 6f 76 65 64 3c 3e 21 70 6f 73 69 74 69 6f 6e 28 ┆f w0:=bytesmoved<>!position(┆
0x59ea0…59ec0 64 74 68 5f 71 75 65 75 65 73 29 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3c 3e ┆dth_queues) then if w0<>┆
0x59ec0…59ee0 21 6c 65 6e 67 74 68 28 64 65 66 5f 74 72 61 6e 73 70 6f 72 74 29 20 74 68 65 6e 0a 20 20 20 20 ┆!length(def_transport) then ┆
0x59ee0…59efc 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 ┆
0x59efc…59f02 (0x324,0xb3f)
0x59f02…59f20 64 61 74 61 20 69 6c 6c 65 67 61 6c 20 21 0a 20 20 20 20 20 20 20 20 66 72 65 65 74 72 61 ┆data illegal ! freetra┆
0x59f20…59f40 6e 73 70 6f 72 74 28 2e 77 33 2e 2c 77 31 2c 77 32 29 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 ┆nsport(.w3.,w1,w2); if w┆
0x59f40…59f60 32 3d 30 20 74 68 65 6e 20 67 6f 74 6f 20 72 64 74 5f 72 65 73 6f 75 72 63 65 73 3b 0a 20 20 20 ┆2=0 then goto rdt_resources; ┆
0x59f60…59f7a 20 20 20 20 20 61 64 74 5f 6e 6f 3a 3d 20 77 31 3b 0a 20 20 20 20 20 20 20 20 ┆ adt_no:= w1; ┆
0x59f7a…59f80 (0x324,0xb40)
0x59f80…59fa0 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 77 32 2b 21 ┆transref:= w2; w1:= w2+!┆
0x59fa0…59fc0 6c 65 6e 67 74 68 28 74 72 5f 64 65 73 63 72 29 2d 32 3b 0a 20 20 20 20 20 20 20 20 77 30 3a 3d ┆length(tr_descr)-2; w0:=┆
0x59fc0…59fe0 20 30 3b 0a 20 20 20 20 20 20 20 20 66 6f 72 20 77 31 20 73 74 65 70 20 32 20 64 6f 77 6e 74 6f ┆ 0; for w1 step 2 downto┆
0x59fe0…5a000 20 74 72 61 6e 73 72 65 66 20 64 6f 20 28 77 31 29 2e 77 6f 72 64 3a 3d 00 00 00 00 00 00 00 00 ┆ transref do (w1).word:= ┆
0x5a000…5a006 (720,) (0x324,0xb41)
0x5a006…5a020 20 77 30 3b 0a 20 20 20 20 20 20 20 20 63 6f 6e 74 5f 64 61 74 61 28 77 31 3a ┆ w0; cont_data(w1:┆
0x5a020…5a040 3d 31 29 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 31 29 2e 64 74 68 5f 74 72 6e ┆=1); if w0:=(w1).dth_trn┆
0x5a040…5a060 61 6d 65 3c 3e 34 27 31 30 31 30 30 31 30 20 74 68 65 6e 20 67 6f 74 6f 20 72 64 74 5f 73 79 6e ┆ame<>4'1010010 then goto rdt_syn┆
0x5a060…5a07e 74 61 78 3b 0a 21 74 65 73 74 20 35 32 3b 0a 20 20 20 20 20 20 20 20 6d 6f 76 65 28 2e 77 ┆tax; !test 52; move(.w┆
0x5a07e…5a084 (0x324,0xb42)
0x5a084…5a0a0 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 ┆3.,w0:=8,w1:=address((w1).dt┆
0x5a0a0…5a0c0 5f 74 72 6e 61 6d 65 29 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 61 64 74 5f 74 72 6e 61 6d 65 29 ┆_trname),w2:=address(adt_trname)┆
0x5a0c0…5a0e0 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 32 3a 3d 61 ┆); move(.w3.,w0,w1,w2:=a┆
0x5a0e0…5a0fc 64 64 72 65 73 73 28 28 77 32 3a 3d 74 72 61 6e 73 72 65 66 29 2e 74 72 5f 6e 61 6d ┆ddress((w2:=transref).tr_nam┆
0x5a0fc…5a102 (0x324,0xb43)
0x5a102…5a120 65 29 29 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 ┆e)); cont_data(w1:=1);┆
0x5a120…5a140 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 31 29 2e 64 74 68 5f 75 73 65 72 3c 3e 34 ┆ if w0:=(w1).dth_user<>4┆
0x5a140…5a160 27 32 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 20 ┆'2010010 then goto rdt_syntax; ┆
0x5a160…5a17a 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:┆
0x5a17a…5a180 (0x324,0xb44)
0x5a180…5a1a0 3d 61 64 64 72 65 73 73 28 28 77 31 29 2e 64 74 5f 75 73 65 72 29 2c 77 32 3a 3d 61 64 64 72 65 ┆=address((w1).dt_user),w2:=addre┆
0x5a1a0…5a1c0 73 73 28 61 64 74 5f 75 73 65 72 29 29 3b 0a 20 20 20 20 20 20 20 20 6d 6f 76 65 28 2e 77 33 2e ┆ss(adt_user)); move(.w3.┆
0x5a1c0…5a1e0 2c 77 30 2c 77 31 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 ┆,w0,w1,w2:=address((w2:=transref┆
0x5a1e0…5a200 29 2e 74 72 5f 75 73 65 72 29 29 3b 0a 20 20 20 20 20 20 20 20 63 6f 6e 00 00 00 00 00 00 00 00 ┆).tr_user)); con ┆
0x5a200…5a206 (721,) (0x324,0xb45)
0x5a206…5a220 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 ┆t_data(w1:=1); if ┆
0x5a220…5a240 77 30 3a 3d 28 77 31 29 2e 64 74 68 5f 73 75 62 3c 3e 28 31 30 30 30 2a 34 30 39 36 2b 34 27 30 ┆w0:=(w1).dth_sub<>(1000*4096+4'0┆
0x5a240…5a260 31 30 30 30 30 29 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 ┆10000) then goto rdt_syntax; ┆
0x5a260…5a27e 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 31 29 2e 64 74 68 5f 73 65 6e 64 65 72 3c 3e 34 ┆ if w0:=(w1).dth_sender<>4┆
0x5a27e…5a284 (0x324,0xb46)
0x5a284…5a2a0 27 31 30 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 ┆'1020000 then goto rdt_synta┆
0x5a2a0…5a2c0 78 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 31 29 2e 64 74 68 5f 73 6e 61 6d 65 ┆x; if w0:=(w1).dth_sname┆
0x5a2c0…5a2e0 3c 3e 34 27 32 30 33 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 ┆<>4'2030010 then goto rdt_syntax┆
0x5a2e0…5a2fc 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 ┆; move(.w3.,w0:=8,w1┆
0x5a2fc…5a302 (0x324,0xb47)
0x5a302…5a320 3a 3d 61 64 64 72 65 73 73 28 28 77 31 29 2e 64 74 5f 73 6e 61 6d 65 29 2c 77 32 3a 3d 61 ┆:=address((w1).dt_sname),w2:=a┆
0x5a320…5a340 64 64 72 65 73 73 28 28 77 32 3a 3d 74 72 61 6e 73 72 65 66 29 2e 74 72 5f 73 6e 61 6d 65 29 29 ┆ddress((w2:=transref).tr_sname))┆
0x5a340…5a360 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 20 ┆; cont_data(w1:=1); ┆
0x5a360…5a37a 20 20 20 20 69 66 20 77 30 3a 3d 28 77 31 29 2e 64 74 68 5f 72 65 63 65 69 76 ┆ if w0:=(w1).dth_receiv┆
0x5a37a…5a380 (0x324,0xb48)
0x5a380…5a3a0 65 72 3c 3e 34 27 32 30 32 30 30 30 30 20 74 68 65 6e 20 67 6f 74 6f 20 72 64 74 5f 73 79 6e 74 ┆er<>4'2020000 then goto rdt_synt┆
0x5a3a0…5a3c0 61 78 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 31 29 2e 64 74 68 5f 72 6e 61 6d ┆ax; if w0:=(w1).dth_rnam┆
0x5a3c0…5a3e0 65 3c 3e 34 27 32 30 33 30 30 31 30 20 74 68 65 6e 20 67 6f 74 6f 20 72 64 74 5f 73 79 6e 74 61 ┆e<>4'2030010 then goto rdt_synta┆
0x5a3e0…5a400 78 3b 0a 21 74 65 73 74 20 35 38 3b 0a 20 20 20 20 20 20 20 20 6d 6f 76 00 00 00 00 00 00 00 00 ┆x; !test 58; mov ┆
0x5a400…5a406 (722,) (0x324,0xb49)
0x5a406…5a420 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 ┆e(.w3.,w0:=8,w1:=address((┆
0x5a420…5a440 77 31 29 2e 64 74 5f 72 6e 61 6d 65 29 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 28 77 32 3a 3d 74 ┆w1).dt_rname),w2:=address((w2:=t┆
0x5a440…5a460 72 61 6e 73 72 65 66 29 2e 74 72 5f 72 6e 61 6d 65 29 29 3b 0a 20 20 20 20 20 20 20 20 69 66 20 ┆ransref).tr_rname)); if ┆
0x5a460…5a47e 77 31 3a 3d 62 79 74 65 73 6d 6f 76 65 64 3d 21 6c 65 6e 67 74 68 28 64 65 66 5f 74 72 61 ┆w1:=bytesmoved=!length(def_tra┆
0x5a47e…5a484 (0x324,0xb4a)
0x5a484…5a4a0 6e 73 70 6f 72 74 29 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 21 ┆nsport) then begin !┆
0x5a4a0…5a4c0 20 71 75 65 75 65 20 66 69 65 6c 64 73 20 70 72 65 73 65 6e 74 20 21 0a 20 20 20 20 20 20 20 20 ┆ queue fields present ! ┆
0x5a4c0…5a4e0 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 20 20 69 66 ┆ cont_data(w1:=1); if┆
0x5a4e0…5a4fc 20 77 30 3a 3d 28 77 31 29 2e 64 74 68 5f 71 75 65 75 65 73 3c 3e 34 27 33 30 33 30 ┆ w0:=(w1).dth_queues<>4'3030┆
0x5a4fc…5a502 (0x324,0xb4b)
0x5a502…5a520 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 ┆000 then goto rdt_syntax; ┆
0x5a520…5a540 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 31 29 2e 64 74 68 5f 71 67 72 6f 75 70 3c 3e 34 27 ┆ if w0:=(w1).dth_qgroup<>4'┆
0x5a540…5a560 31 31 30 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 20 20 ┆1100010 then goto rdt_syntax; ┆
0x5a560…5a57a 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 ┆ move(.w3.,w0:=8,w1┆
0x5a57a…5a580 (0x324,0xb4c)
0x5a580…5a5a0 3a 3d 61 64 64 72 65 73 73 28 28 77 31 29 2e 64 74 5f 71 67 72 6f 75 70 29 2c 77 32 3a 3d 61 64 ┆:=address((w1).dt_qgroup),w2:=ad┆
0x5a5a0…5a5c0 64 72 65 73 73 28 28 77 32 3a 3d 74 72 61 6e 73 72 65 66 29 2e 74 72 5f 71 67 72 6f 75 70 29 29 ┆dress((w2:=transref).tr_qgroup))┆
0x5a5c0…5a5e0 3b 0a 20 20 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 ┆; cont_data(w1:=1); ┆
0x5a5e0…5a600 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 31 29 2e 64 74 68 5f 00 00 00 00 00 00 00 00 ┆ if w0:=(w1).dth_ ┆
0x5a600…5a606 (723,) (0x324,0xb4d)
0x5a606…5a620 71 6e 61 6d 65 3c 3e 34 27 33 31 30 30 30 31 30 20 74 68 65 6e 20 67 6f 74 6f ┆qname<>4'3100010 then goto┆
0x5a620…5a640 20 72 64 74 5f 73 79 6e 74 61 78 3b 0a 21 74 65 73 74 20 36 30 3b 0a 20 20 20 20 20 20 20 20 20 ┆ rdt_syntax; !test 60; ┆
0x5a640…5a660 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 28 77 31 ┆ move(.w3.,w0:=8,w1:=address((w1┆
0x5a660…5a67e 29 2e 64 74 5f 71 6e 61 6d 65 29 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 28 77 32 3a 3d 74 ┆).dt_qname),w2:=address((w2:=t┆
0x5a67e…5a684 (0x324,0xb4e)
0x5a684…5a6a0 72 61 6e 73 72 65 66 29 2e 74 72 5f 71 6e 61 6d 65 29 29 3b 0a 20 20 20 20 20 20 20 ┆ransref).tr_qname)); ┆
0x5a6a0…5a6c0 20 65 6e 64 3b 0a 0a 20 20 20 20 20 20 20 20 64 65 66 74 72 5f 73 65 6d 61 6e 74 69 63 28 2e 77 ┆ end; deftr_semantic(.w┆
0x5a6c0…5a6e0 33 2e 2c 77 30 2c 77 31 2c 77 32 3a 3d 74 72 61 6e 73 72 65 66 29 3b 0a 21 74 65 73 74 20 36 31 ┆3.,w0,w1,w2:=transref); !test 61┆
0x5a6e0…5a6fc 3b 0a 20 20 20 20 20 20 20 20 74 63 5f 72 65 66 3a 3d 20 77 31 3b 0a 20 20 20 20 20 ┆; tc_ref:= w1; ┆
0x5a6fc…5a702 (0x324,0xb4f)
0x5a702…5a720 20 20 20 63 61 73 65 20 77 31 3a 3d 20 77 30 20 6f 66 20 20 20 20 20 21 20 77 31 3d 30 20 ┆ case w1:= w0 of ! w1=0 ┆
0x5a720…5a740 74 72 61 6e 73 70 6f 72 74 20 64 65 66 69 6e 65 64 2c 20 6e 6f 20 61 63 74 69 6f 6e 20 21 0a 20 ┆transport defined, no action ! ┆
0x5a740…5a760 20 20 20 20 20 20 20 62 65 67 69 6e 0a 72 64 74 5f 73 79 6e 74 61 78 20 20 20 20 20 20 20 20 3a ┆ begin rdt_syntax :┆
0x5a760…5a77a 20 77 31 3a 3d 20 31 3b 0a 72 64 74 5f 72 65 73 6f 75 72 63 65 73 20 20 20 20 ┆ w1:= 1; rdt_resources ┆
0x5a77a…5a780 (0x324,0xb50)
0x5a780…5a7a0 20 3a 20 77 31 3a 3d 20 33 3b 0a 72 64 74 5f 73 65 6e 74 20 20 20 20 20 20 20 20 20 20 3a 20 62 ┆ : w1:= 3; rdt_sent : b┆
0x5a7a0…5a7c0 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 20 20 61 64 74 5f 31 ┆egin adt_1┆
0x5a7c0…5a7e0 33 3a 3d 20 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 31 3b 20 ┆3:= w1:= 3; adt_cause:= w1:= 1; ┆
0x5a7e0…5a800 77 31 3a 3d 20 35 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 ┆w1:= 5; ┆
0x5a800…5a806 (724,) (0x324,0xb51)
0x5a806…5a820 20 20 20 20 65 6e 64 3b 0a 72 64 74 5f 73 64 65 76 20 20 20 20 20 20 20 20 20 ┆ end; rdt_sdev ┆
0x5a820…5a840 20 3a 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 20 20 61 ┆ : begin a┆
0x5a840…5a860 64 74 5f 31 33 3a 3d 20 77 31 3a 3d 20 33 3b 20 61 64 74 5f 63 61 75 73 65 3a 3d 20 77 31 3a 3d ┆dt_13:= w1:= 3; adt_cause:= w1:=┆
0x5a860…5a87e 20 32 3b 20 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 ┆ 2; w1:= 5; ┆
0x5a87e…5a884 (0x324,0xb52)
0x5a884…5a8a0 20 20 65 6e 64 3b 0a 72 64 74 5f 72 65 6e 74 20 20 20 20 20 20 20 20 20 20 3a 20 62 ┆ end; rdt_rent : b┆
0x5a8a0…5a8c0 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 20 20 61 64 74 5f 31 ┆egin adt_1┆
0x5a8c0…5a8e0 33 3a 3d 20 77 31 3a 3d 20 34 3b 20 61 64 74 5f 63 61 75 73 65 3a 3d 20 77 31 3a 3d 20 31 3b 20 ┆3:= w1:= 4; adt_cause:= w1:= 1; ┆
0x5a8e0…5a8fc 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 ┆w1:= 6; ┆
0x5a8fc…5a902 (0x324,0xb53)
0x5a902…5a920 65 6e 64 3b 0a 72 64 74 5f 72 64 65 76 20 20 20 20 20 20 20 20 20 20 3a 20 62 65 67 69 6e ┆end; rdt_rdev : begin┆
0x5a920…5a940 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:= ┆
0x5a940…5a960 77 31 3a 3d 20 34 3b 20 61 64 74 5f 63 61 75 73 65 3a 3d 20 77 31 3a 3d 20 32 3b 20 77 31 3a 3d ┆w1:= 4; adt_cause:= w1:= 2; w1:=┆
0x5a960…5a97a 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 ┆ 6; en┆
0x5a97a…5a980 (0x324,0xb54)
0x5a980…5a9a0 64 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 61 64 74 5f 72 63 6f 64 ┆d; end; adt_rcod┆
0x5a9a0…5a9c0 65 3a 3d 20 77 31 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 31 3e 3d 35 20 21 20 64 65 76 69 63 ┆e:= w1; if w1>=5 ! devic┆
0x5a9c0…5a9e0 65 20 74 72 6f 75 62 6c 65 73 20 21 20 74 68 65 6e 20 77 31 3a 3d 20 61 64 64 72 65 73 73 28 61 ┆e troubles ! then w1:= address(a┆
0x5a9e0…5aa00 64 74 5f 73 74 61 74 75 73 29 0a 20 20 20 20 20 20 20 20 65 6c 73 65 20 00 00 00 00 00 00 00 00 ┆dt_status) else ┆
0x5aa00…5aa06 (725,) (0x324,0xb55)
0x5aa06…5aa20 77 31 3a 3d 20 61 64 64 72 65 73 73 28 61 64 74 5f 72 63 6f 64 65 29 3b 0a 20 ┆w1:= address(adt_rcode); ┆
0x5aa20…5aa40 20 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 64 72 65 ┆ copyanswer(.w3.,w0:=addre┆
0x5aa40…5aa60 73 73 28 61 64 74 5f 31 29 2c 77 31 2c 77 32 3a 3d 62 2e 65 76 65 6e 74 29 3b 0a 20 20 20 20 20 ┆ss(adt_1),w1,w2:=b.event); ┆
0x5aa60…5aa7e 20 20 20 69 66 20 77 30 3d 30 20 74 68 65 6e 20 21 20 64 61 74 61 20 63 6f 70 69 65 64 20 ┆ if w0=0 then ! data copied ┆
0x5aa7e…5aa84 (0x324,0xb56)
0x5aa84…5aaa0 74 6f 20 73 65 6e 64 65 72 20 21 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 61 ┆to sender ! if w0:=a┆
0x5aaa0…5aac0 64 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 67 69 6e 20 21 20 ┆dt_rcode=0 then begin ! ┆
0x5aac0…5aae0 6f 70 65 72 61 74 69 6f 6e 20 61 63 63 65 70 74 65 64 2c 20 69 6e 69 74 69 61 6c 69 7a 65 20 74 ┆operation accepted, initialize t┆
0x5aae0…5aafc 72 61 6e 73 70 6f 72 74 20 21 0a 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 20 74 72 ┆ransport ! w2:= tr┆
0x5aafc…5ab02 (0x324,0xb57)
0x5ab02…5ab20 61 6e 73 72 65 66 3b 0a 20 20 20 20 20 20 20 20 20 20 28 77 32 29 2e 74 72 5f 63 6f 72 6f ┆ansref; (w2).tr_coro┆
0x5ab20…5ab40 75 3a 3d 20 77 30 3a 3d 20 74 63 5f 72 65 66 3b 0a 20 20 20 20 20 20 20 20 20 20 28 77 32 29 2e ┆u:= w0:= tc_ref; (w2).┆
0x5ab40…5ab60 74 72 5f 73 74 61 74 65 3a 3d 20 77 30 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 20 20 28 77 32 ┆tr_state:= w0:= 0; (w2┆
0x5ab60…5ab7a 29 2e 74 72 5f 72 65 6d 6f 76 65 74 69 6d 65 3a 3d 20 77 30 3a 3d 20 38 27 33 ┆).tr_removetime:= w0:= 8'3┆
0x5ab7a…5ab80 (0x324,0xb58)
0x5ab80…5aba0 37 37 37 37 37 37 37 3b 0a 20 20 20 20 20 20 20 20 20 20 70 75 74 74 72 61 6e 73 70 6f 72 74 28 ┆7777777; puttransport(┆
0x5aba0…5abc0 2e 77 33 2e 2c 77 31 3a 3d 61 64 74 5f 6e 6f 29 3b 0a 20 20 20 20 20 20 20 20 20 20 6c 69 6e 6b ┆.w3.,w1:=adt_no); link┆
0x5abc0…5abe0 28 2e 77 33 2e 2c 77 31 3a 3d 62 2e 74 71 66 72 65 65 66 73 74 2c 77 32 3a 3d 61 64 64 72 65 73 ┆(.w3.,w1:=b.tqfreefst,w2:=addres┆
0x5abe0…5ac00 73 28 74 63 5f 72 65 66 2e 74 63 5f 6e 65 78 74 74 72 29 29 3b 0a 20 20 00 00 00 00 00 00 00 00 ┆s(tc_ref.tc_nexttr)); ┆
0x5ac00…5ac06 (726,) (0x324,0xb59)
0x5ac06…5ac20 20 20 20 20 20 20 20 20 28 77 31 29 2e 74 71 5f 74 72 61 6e 73 6e 6f 3a 3d 20 ┆ (w1).tq_transno:= ┆
0x5ac20…5ac40 77 30 3a 3d 20 61 64 74 5f 6e 6f 3b 0a 20 20 20 20 20 20 20 20 20 20 66 30 20 6c 73 68 69 66 74 ┆w0:= adt_no; f0 lshift┆
0x5ac40…5ac60 20 31 30 30 3b 0a 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 74 71 5f 73 75 73 70 65 6e 64 3a ┆ 100; (w1).tq_suspend:┆
0x5ac60…5ac7e 3d 20 66 30 3b 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 ┆= f0; w3:=b.current;┆
0x5ac7e…5ac84 (0x324,0xb5a)
0x5ac84…5aca0 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 0a 20 20 20 20 20 20 65 6e 64 20 21 20 64 ┆ end; end ! d┆
0x5aca0…5acc0 65 66 69 6e 65 20 74 72 61 6e 73 70 6f 72 74 20 21 0a 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 ┆efine transport ! else ┆
0x5acc0…5ace0 20 20 20 69 66 20 77 30 3d 34 27 31 30 30 30 30 30 30 30 20 74 68 65 6e 0a 20 20 20 20 20 20 62 ┆ if w0=4'10000000 then b┆
0x5ace0…5acfc 65 67 69 6e 20 21 20 67 65 74 20 73 74 61 74 65 20 6f 66 20 73 75 62 74 72 61 6e 73 ┆egin ! get state of subtrans┆
0x5acfc…5ad02 (0x324,0xb5b)
0x5ad02…5ad20 70 6f 72 74 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 ┆port ! if w0:=bytesmov┆
0x5ad20…5ad40 65 64 3c 3e 21 6c 65 6e 67 74 68 28 67 65 74 73 74 5f 74 72 61 6e 73 70 6f 72 74 29 20 74 68 65 ┆ed<>!length(getst_transport) the┆
0x5ad40…5ad60 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 6f ┆n goto unint; ! length o┆
0x5ad60…5ad7a 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 61 ┆f data illegal ! a┆
0x5ad7a…5ad80 (0x324,0xb5c)
0x5ad80…5ada0 67 74 5f 31 3a 3d 20 77 30 3a 3d 20 35 3b 20 21 20 61 6e 73 20 67 65 74 20 73 74 61 74 65 20 21 ┆gt_1:= w0:= 5; ! ans get state !┆
0x5ada0…5adc0 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 20 20 ┆ cont_data(w1:=1); ┆
0x5adc0…5ade0 20 20 20 69 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 ┆ if w0:=(w1).gth_no<>4'3010001┆
0x5ade0…5ae00 20 74 68 65 6e 20 67 6f 74 6f 20 72 67 74 5f 73 79 6e 74 61 78 3b 0a 20 00 00 00 00 00 00 00 00 ┆ then goto rgt_syntax; ┆
0x5ae00…5ae06 (727,) (0x324,0xb5d)
0x5ae06…5ae20 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 ┆ looktransport(.w3.,┆
0x5ae20…5ae40 77 31 3a 3d 28 77 31 29 2e 67 74 5f 6e 6f 2c 77 32 29 3b 0a 20 20 20 20 20 20 20 20 61 67 74 5f ┆w1:=(w1).gt_no,w2); agt_┆
0x5ae40…5ae60 6e 6f 3a 3d 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 ┆no:= w1; if w2<=0 then g┆
0x5ae60…5ae7e 6f 74 6f 20 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 ┆oto rgt_unknown; trans┆
0x5ae7e…5ae84 (0x324,0xb5e)
0x5ae84…5aea0 72 65 66 3a 3d 20 77 32 3b 0a 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 ┆ref:= w2; if w0:=(w┆
0x5aea0…5aec0 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 20 20 62 65 67 69 6e ┆2).tr_state=0 then begin┆
0x5aec0…5aee0 20 21 20 6e 6f 74 20 66 69 6e 69 73 68 65 64 20 21 0a 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d ┆ ! not finished ! w1:=┆
0x5aee0…5aefc 20 28 77 32 29 2e 74 72 5f 63 6f 72 6f 75 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 ┆ (w2).tr_corou; if┆
0x5aefc…5af02 (0x324,0xb5f)
0x5af02…5af20 20 77 30 3a 3d 28 77 31 29 2e 74 63 5f 74 72 61 6e 73 6e 6f 3c 3e 61 67 74 5f 6e 6f 20 74 ┆ w0:=(w1).tc_transno<>agt_no t┆
0x5af20…5af40 68 65 6e 20 61 67 74 5f 73 74 61 74 65 3a 3d 20 77 30 3a 3d 20 32 20 21 20 77 61 69 74 69 6e 67 ┆hen agt_state:= w0:= 2 ! waiting┆
0x5af40…5af60 20 21 0a 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 62 65 67 69 ┆ ! else begi┆
0x5af60…5af7a 6e 20 21 20 65 78 65 63 75 74 69 6e 67 20 6f 72 20 68 6f 6c 64 20 73 74 61 74 ┆n ! executing or hold stat┆
0x5af7a…5af80 (0x324,0xb60)
0x5af80…5afa0 65 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 61 67 74 5f 73 74 61 74 65 3a 3d 20 77 30 3a 3d ┆e ! agt_state:= w0:=┆
0x5afa0…5afc0 20 33 3b 20 21 20 65 78 65 63 75 74 69 6e 67 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 32 ┆ 3; ! executing ! w2┆
0x5afc0…5afe0 3a 3d 20 62 2e 68 6f 6c 64 71 66 73 74 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 68 69 6c 65 ┆:= b.holdqfst; while┆
0x5afe0…5b000 20 77 33 3a 3d 61 64 64 72 65 73 73 28 62 2e 68 6f 6c 64 71 66 73 74 29 00 00 00 00 00 00 00 00 ┆ w3:=address(b.holdqfst) ┆
0x5b000…5b006 (728,) (0x324,0xb61)
0x5b006…5b020 3c 3e 77 32 20 64 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a ┆<>w2 do begin ┆
0x5b020…5b040 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 31 3d 77 32 20 74 68 65 6e 20 61 67 74 5f ┆ if w1=w2 then agt_┆
0x5b040…5b060 73 74 61 74 65 3a 3d 20 77 30 3a 3d 20 34 3b 20 21 20 68 6f 6c 64 20 21 0a 20 20 20 20 20 20 20 ┆state:= w0:= 4; ! hold ! ┆
0x5b060…5b07e 20 20 20 20 20 20 20 77 32 3a 3d 20 28 77 32 29 2e 63 5f 6e 65 78 74 3b 0a 20 20 20 20 20 ┆ w2:= (w2).c_next; ┆
0x5b07e…5b084 (0x324,0xb62)
0x5b084…5b0a0 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; ┆
0x5b0a0…5b0c0 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 20 ┆ end else ┆
0x5b0c0…5b0e0 62 65 67 69 6e 20 21 20 66 69 6e 69 73 68 65 64 20 21 0a 74 72 5f 66 69 6e 69 73 68 65 64 3a 0a ┆begin ! finished ! tr_finished: ┆
0x5b0e0…5b0fc 20 20 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 28 ┆ agt_state:= w0:= (┆
0x5b0fc…5b102 (0x324,0xb63)
0x5b102…5b120 77 32 29 2e 74 72 5f 73 74 61 74 65 3b 0a 20 20 20 20 20 20 20 20 20 20 61 67 74 5f 63 61 ┆w2).tr_state; agt_ca┆
0x5b120…5b140 75 73 65 3a 3d 20 77 30 3a 3d 20 28 77 32 29 2e 74 72 5f 63 61 75 73 65 3b 0a 20 20 20 20 20 20 ┆use:= w0:= (w2).tr_cause; ┆
0x5b140…5b160 20 20 20 20 61 67 74 5f 73 74 61 74 75 73 3a 3d 20 77 30 3a 3d 20 28 77 32 29 2e 74 72 5f 73 74 ┆ agt_status:= w0:= (w2).tr_st┆
0x5b160…5b17a 61 74 75 73 3b 0a 20 20 20 20 20 20 20 20 20 20 66 31 3a 3d 28 77 32 29 2e 74 ┆atus; f1:=(w2).t┆
0x5b17a…5b180 (0x324,0xb64)
0x5b180…5b1a0 72 5f 63 68 61 72 70 6f 73 69 74 69 6f 6e 3b 0a 20 20 20 20 20 20 20 20 20 20 61 67 74 5f 70 74 ┆r_charposition; agt_pt┆
0x5b1a0…5b1c0 72 31 3a 3d 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 61 67 74 5f 70 74 72 32 3a 3d 77 31 3b 0a ┆r1:=w0; agt_ptr2:=w1; ┆
0x5b1c0…5b1e0 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 0a 20 20 20 20 20 20 20 20 77 30 3a 3d 20 30 3b 0a 72 67 ┆ end; w0:= 0; rg┆
0x5b1e0…5b200 74 3a 0a 20 20 20 20 20 20 20 20 21 20 72 65 70 6c 79 20 67 65 74 20 74 00 00 00 00 00 00 00 00 ┆t: ! reply get t ┆
0x5b200…5b206 (729,) (0x324,0xb65)
0x5b206…5b220 72 61 6e 73 70 6f 72 74 20 21 0a 20 20 20 20 20 20 20 20 61 67 74 5f 72 63 6f ┆ransport ! agt_rco┆
0x5b220…5b240 64 65 3a 3d 20 77 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 ┆de:= w0; move(.w3.,w0:=8┆
0x5b240…5b260 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 66 29 2e 74 72 5f 6e ┆,w1:=address((w1:=transref).tr_n┆
0x5b260…5b27e 61 6d 65 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 ┆ame), w2:=ad┆
0x5b27e…5b284 (0x324,0xb66)
0x5b284…5b2a0 64 72 65 73 73 28 61 67 74 5f 74 72 6e 61 6d 65 29 29 3b 0a 20 20 20 20 20 20 20 20 ┆dress(agt_trname)); ┆
0x5b2a0…5b2c0 69 66 20 77 31 3a 3d 61 67 74 5f 73 74 61 74 65 3d 35 20 74 68 65 6e 20 77 31 3a 3d 20 61 64 64 ┆if w1:=agt_state=5 then w1:= add┆
0x5b2c0…5b2e0 72 65 73 73 28 61 67 74 5f 70 74 72 32 29 0a 20 20 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 ┆ress(agt_ptr2) else ┆
0x5b2e0…5b2fc 20 20 20 20 69 66 20 77 31 3d 36 20 74 68 65 6e 20 77 31 3a 3d 20 61 64 64 72 65 73 ┆ if w1=6 then w1:= addres┆
0x5b2fc…5b302 (0x324,0xb67)
0x5b302…5b320 73 28 61 67 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 3a ┆s(agt_status) else w1:┆
0x5b320…5b340 3d 20 61 64 64 72 65 73 73 28 61 67 74 5f 73 74 61 74 65 29 3b 0a 20 20 20 20 20 20 20 20 63 6f ┆= address(agt_state); co┆
0x5b340…5b360 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 67 74 5f 31 29 ┆pyanswer(.w3.,w0:=address(agt_1)┆
0x5b360…5b37a 2c 77 31 2c 77 32 3a 3d 62 2e 65 76 65 6e 74 29 3b 0a 0a 20 20 20 20 20 20 20 ┆,w1,w2:=b.event); ┆
0x5b37a…5b380 (0x324,0xb68)
0x5b380…5b3a0 20 69 66 20 77 30 3c 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 ┆ if w0<>w0 then begin ! ┆
0x5b3a0…5b3c0 6f 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 67 74 5f 73 79 6e ┆operation not accepted ! rgt_syn┆
0x5b3c0…5b3e0 74 61 78 20 20 20 3a 20 77 30 3a 3d 20 31 3b 20 67 6f 74 6f 20 72 67 74 3b 0a 72 67 74 5f 75 6e ┆tax : w0:= 1; goto rgt; rgt_un┆
0x5b3e0…5b400 6b 6e 6f 77 6e 20 20 3a 20 77 30 3a 3d 20 32 3b 20 67 6f 74 6f 20 72 67 00 00 00 00 00 00 00 00 ┆known : w0:= 2; goto rg ┆
0x5b400…5b406 (730,) (0x324,0xb69)
0x5b406…5b420 74 3b 0a 72 67 74 5f 72 65 73 6f 75 72 63 65 73 3a 20 77 30 3a 3d 20 33 3b 20 ┆t; rgt_resources: w0:= 3; ┆
0x5b420…5b440 67 6f 74 6f 20 72 67 74 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 65 6e 64 ┆goto rgt; end; end┆
0x5b440…5b460 20 21 20 67 65 74 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 ┆ ! get state of transport ! ┆
0x5b460…5b47e 20 20 65 6c 73 65 0a 20 20 20 20 20 20 69 66 20 77 30 3d 34 27 31 32 30 30 30 30 30 30 20 ┆ else if w0=4'12000000 ┆
0x5b47e…5b484 (0x324,0xb6a)
0x5b484…5b4a0 74 68 65 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 20 21 20 77 61 69 74 20 61 6e 64 20 ┆then begin ! wait and ┆
0x5b4a0…5b4c0 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 0a 20 20 20 20 ┆get state of subtransport ! ┆
0x5b4c0…5b4e0 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 67 74 68 28 67 ┆ if w0:=bytesmoved<>!length(g┆
0x5b4e0…5b4fc 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 20 ┆etst_transport) then ┆
0x5b4fc…5b502 (0x324,0xb6b)
0x5b502…5b520 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 64 61 74 61 20 ┆ goto unint; ! length of data ┆
0x5b520…5b540 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 30 3a 3d 20 37 ┆illegal ! agt_1:= w0:= 7┆
0x5b540…5b560 3b 20 21 20 61 6e 73 77 65 72 20 77 61 69 74 67 65 74 20 74 72 61 6e 73 70 6f 72 74 20 21 0a 20 ┆; ! answer waitget transport ! ┆
0x5b560…5b57a 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 ┆ cont_data(w1:=1); ┆
0x5b57a…5b580 (0x324,0xb6c)
0x5b580…5b5a0 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 31 29 2e 67 74 68 5f 6e 6f 3c 3e 34 27 33 30 31 ┆ if w0:=(w1).gth_no<>4'301┆
0x5b5a0…5b5c0 30 30 30 31 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 20 20 ┆0001 then goto rgt_syntax; ┆
0x5b5c0…5b5e0 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 2e 67 ┆ looktransport(.w3.,w1:=(w1).g┆
0x5b5e0…5b600 74 5f 6e 6f 2c 77 32 29 3b 0a 20 20 20 20 20 20 20 20 61 67 74 5f 6e 6f 00 00 00 00 00 00 00 00 ┆t_no,w2); agt_no ┆
0x5b600…5b606 (731,) (0x324,0xb6d)
0x5b606…5b620 3a 3d 20 77 31 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 32 3c 3d 30 20 74 68 ┆:= w1; if w2<=0 th┆
0x5b620…5b640 65 6e 20 67 6f 74 6f 20 72 67 74 5f 75 6e 6b 6e 6f 77 6e 3b 0a 20 20 20 20 20 20 20 20 74 72 61 ┆en goto rgt_unknown; tra┆
0x5b640…5b660 6e 73 72 65 66 3a 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 ┆nsref:= w2; if w0:=(w2)┆
0x5b660…5b67e 2e 74 72 5f 73 74 61 74 65 3d 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e ┆.tr_state=0 then begin┆
0x5b67e…5b684 (0x324,0xb6e)
0x5b684…5b6a0 20 21 20 6e 6f 74 20 66 69 6e 69 73 68 65 64 20 21 0a 20 20 20 20 20 20 20 20 20 20 ┆ ! not finished ! ┆
0x5b6a0…5b6c0 69 66 20 77 30 3a 3d 28 77 32 29 2e 74 72 5f 77 61 69 74 6d 65 73 73 3e 30 20 74 68 65 6e 20 67 ┆if w0:=(w2).tr_waitmess>0 then g┆
0x5b6c0…5b6e0 6f 74 6f 20 72 65 6a 65 63 74 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 62 2e 77 ┆oto reject; if w0:=b.w┆
0x5b6e0…5b6fc 61 69 74 62 75 66 73 3c 3d 30 20 74 68 65 6e 20 67 6f 74 6f 20 72 67 74 5f 72 65 73 ┆aitbufs<=0 then goto rgt_res┆
0x5b6fc…5b702 (0x324,0xb6f)
0x5b702…5b720 6f 75 72 63 65 73 3b 0a 20 20 20 20 20 20 20 20 20 20 62 2e 77 61 69 74 62 75 66 73 3a 3d ┆ources; b.waitbufs:=┆
0x5b720…5b740 20 77 30 2d 31 3b 0a 20 20 20 20 20 20 20 20 20 20 74 72 61 6e 73 72 65 66 2e 74 72 5f 77 61 69 ┆ w0-1; transref.tr_wai┆
0x5b740…5b760 74 6d 65 73 73 3a 3d 20 77 32 3a 3d 20 62 2e 65 76 65 6e 74 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆tmess:= w2:= b.event; ┆
0x5b760…5b77a 70 75 74 74 72 61 6e 73 70 6f 72 74 28 2e 77 33 2e 2c 77 31 3a 3d 61 67 74 5f ┆puttransport(.w3.,w1:=agt_┆
0x5b77a…5b780 (0x324,0xb70)
0x5b780…5b7a0 6e 6f 29 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 0a 20 20 ┆no); end else ┆
0x5b7a0…5b7c0 20 20 20 20 20 20 62 65 67 69 6e 20 21 20 66 69 6e 69 73 68 65 64 20 21 0a 20 20 20 20 20 20 20 ┆ begin ! finished ! ┆
0x5b7c0…5b7e0 20 20 20 67 6f 74 6f 20 74 72 5f 66 69 6e 69 73 68 65 64 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 ┆ goto tr_finished; end┆
0x5b7e0…5b800 3b 0a 20 20 20 20 20 20 65 6e 64 20 21 20 77 61 69 74 20 61 6e 64 20 67 00 00 00 00 00 00 00 00 ┆; end ! wait and g ┆
0x5b800…5b806 (732,) (0x324,0xb71)
0x5b806…5b820 65 74 20 73 74 61 74 65 20 6f 66 20 74 72 61 6e 73 70 6f 72 74 20 21 0a 20 20 ┆et state of transport ! ┆
0x5b820…5b840 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 69 66 20 77 30 3d 34 27 32 30 30 30 30 30 30 30 20 ┆ else if w0=4'20000000 ┆
0x5b840…5b860 74 68 65 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 20 21 20 72 65 6c 65 61 73 65 20 64 65 73 63 72 ┆then begin ! release descr┆
0x5b860…5b87e 69 70 74 69 6f 6e 20 21 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 62 79 74 65 73 6d ┆iption ! if w0:=bytesm┆
0x5b87e…5b884 (0x324,0xb72)
0x5b884…5b8a0 6f 76 65 64 3c 3e 21 6c 65 6e 67 74 68 28 72 65 6c 65 61 5f 74 72 61 6e 73 70 6f 72 ┆oved<>!length(relea_transpor┆
0x5b8a0…5b8c0 74 29 20 74 68 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 ┆t) then goto unint; ! le┆
0x5b8c0…5b8e0 6e 67 74 68 20 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 ┆ngth of data illegal ! c┆
0x5b8e0…5b8fc 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 ┆ont_data(w1:=1); if ┆
0x5b8fc…5b902 (0x324,0xb73)
0x5b902…5b920 77 30 3a 3d 28 77 31 29 2e 72 74 68 5f 6e 6f 3c 3e 34 27 33 30 31 30 30 30 31 20 74 68 65 ┆w0:=(w1).rth_no<>4'3010001 the┆
0x5b920…5b940 6e 20 67 6f 74 6f 20 72 72 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 rrt_syntax; lookt┆
0x5b940…5b960 72 61 6e 73 70 6f 72 74 28 2e 77 33 2e 2c 77 31 3a 3d 28 77 31 29 2e 72 74 5f 6e 6f 2c 77 32 29 ┆ransport(.w3.,w1:=(w1).rt_no,w2)┆
0x5b960…5b97a 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 ┆; if w2<=0 then go┆
0x5b97a…5b980 (0x324,0xb74)
0x5b980…5b9a0 74 6f 20 72 72 74 5f 75 6e 6b 6e 6f 77 6e 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 ┆to rrt_unknown; if w0:=(┆
0x5b9a0…5b9c0 77 32 29 2e 74 72 5f 72 65 6d 6f 76 65 74 69 6d 65 3e 3d 38 27 33 37 37 37 37 37 37 36 20 74 68 ┆w2).tr_removetime>=8'37777776 th┆
0x5b9c0…5b9e0 65 6e 20 77 30 3a 3d 20 38 27 33 37 37 37 37 37 37 36 0a 20 20 20 20 20 20 20 20 65 6c 73 65 20 ┆en w0:= 8'37777776 else ┆
0x5b9e0…5ba00 77 30 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 28 77 32 29 2e 74 72 5f 00 00 00 00 00 00 00 00 ┆w0:= 0; (w2).tr_ ┆
0x5ba00…5ba06 (733,) (0x324,0xb75)
0x5ba06…5ba20 72 65 6d 6f 76 65 74 69 6d 65 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 20 77 ┆removetime:= w0; w┆
0x5ba20…5ba40 30 3a 3d 20 30 3b 0a 0a 72 72 74 3a 20 20 20 20 21 20 72 65 70 6c 79 20 72 65 6c 65 61 73 65 20 ┆0:= 0; rrt: ! reply release ┆
0x5ba40…5ba60 74 72 61 6e 73 70 6f 72 74 20 21 0a 20 20 20 20 20 20 20 20 61 72 74 5f 72 63 6f 64 65 3a 3d 20 ┆transport ! art_rcode:= ┆
0x5ba60…5ba7e 77 30 3b 0a 20 20 20 20 20 20 20 20 63 6f 70 79 61 6e 73 77 65 72 28 2e 77 33 2e 2c 77 30 ┆w0; copyanswer(.w3.,w0┆
0x5ba7e…5ba84 (0x324,0xb76)
0x5ba84…5baa0 3a 3d 61 64 64 72 65 73 73 28 61 72 74 5f 31 29 2c 77 31 3a 3d 61 64 64 72 65 73 73 ┆:=address(art_1),w1:=address┆
0x5baa0…5bac0 28 61 72 74 5f 72 63 6f 64 65 29 2c 77 32 3a 3d 62 2e 65 76 65 6e 74 29 3b 0a 20 20 20 20 20 20 ┆(art_rcode),w2:=b.event); ┆
0x5bac0…5bae0 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 66 20 77 ┆ cont_data(w1:=1); if w┆
0x5bae0…5bafc 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 65 ┆0=0 then ! data copied to se┆
0x5bafc…5bb02 (0x324,0xb77)
0x5bb02…5bb20 6e 64 65 72 20 21 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 61 72 74 5f 72 63 6f 64 ┆nder ! if w0:=art_rcod┆
0x5bb20…5bb40 65 3d 30 20 74 68 65 6e 20 21 20 6f 70 65 72 61 74 69 6f 6e 20 61 63 63 65 70 74 65 64 20 21 0a ┆e=0 then ! operation accepted ! ┆
0x5bb40…5bb60 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 28 77 ┆ puttransport(.w3.,w1:=(w┆
0x5bb60…5bb7a 31 29 2e 72 74 5f 6e 6f 29 3b 0a 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3c ┆1).rt_no); if w0<┆
0x5bb7a…5bb80 (0x324,0xb78)
0x5bb80…5bba0 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 70 65 72 61 74 69 ┆>w0 then begin ! operati┆
0x5bba0…5bbc0 6f 6e 20 6e 6f 74 20 61 63 63 65 70 74 65 64 20 21 0a 72 72 74 5f 73 79 6e 74 61 78 20 20 20 3a ┆on not accepted ! rrt_syntax :┆
0x5bbc0…5bbe0 20 77 30 3a 3d 20 31 3b 20 67 6f 74 6f 20 72 72 74 3b 0a 72 72 74 5f 75 6e 6b 6e 6f 77 6e 20 20 ┆ w0:= 1; goto rrt; rrt_unknown ┆
0x5bbe0…5bc00 3a 20 77 30 3a 3d 20 32 3b 20 67 6f 74 6f 20 72 72 74 3b 0a 20 20 20 20 00 00 00 00 00 00 00 00 ┆: w0:= 2; goto rrt; ┆
0x5bc00…5bc06 (734,) (0x324,0xb79)
0x5bc06…5bc20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 65 6e 64 20 21 20 72 65 6c 65 61 ┆ end; end ! relea┆
0x5bc20…5bc40 73 65 20 64 65 73 63 72 69 70 74 69 6f 6e 20 21 0a 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 ┆se description ! else ┆
0x5bc40…5bc60 20 20 69 66 20 77 30 3d 34 27 32 32 30 30 30 30 30 30 20 74 68 65 6e 0a 20 20 20 20 20 20 62 65 ┆ if w0=4'22000000 then be┆
0x5bc60…5bc7e 67 69 6e 20 21 20 6b 69 6c 6c 20 21 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 62 79 ┆gin ! kill ! if w0:=by┆
0x5bc7e…5bc84 (0x324,0xb7a)
0x5bc84…5bca0 74 65 73 6d 6f 76 65 64 3c 3e 21 6c 65 6e 67 74 68 28 6b 69 6c 6c 5f 74 72 61 6e 73 ┆tesmoved<>!length(kill_trans┆
0x5bca0…5bcc0 70 6f 72 74 29 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 67 6f 74 6f 20 75 6e 69 6e 74 3b 20 21 ┆port) then goto unint; !┆
0x5bcc0…5bce0 20 6c 65 6e 67 74 68 20 6f 66 20 64 61 74 61 20 69 6c 6c 65 67 61 6c 20 21 0a 20 20 20 20 20 20 ┆ length of data illegal ! ┆
0x5bce0…5bcfc 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 ┆ cont_data(w1:=1); ┆
0x5bcfc…5bd02 (0x324,0xb7b)
0x5bd02…5bd20 69 66 20 77 30 3a 3d 28 77 31 29 2e 6b 74 68 5f 6e 6f 3c 3e 34 27 33 30 31 30 30 30 31 20 ┆if w0:=(w1).kth_no<>4'3010001 ┆
0x5bd20…5bd40 74 68 65 6e 20 67 6f 74 6f 20 72 6b 74 5f 73 79 6e 74 61 78 3b 0a 20 20 20 20 20 20 20 20 6c 6f ┆then goto rkt_syntax; lo┆
0x5bd40…5bd60 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 2e 6b 74 5f 6e 6f 2c ┆oktransport(.w3.,w1:=(w1).kt_no,┆
0x5bd60…5bd7a 77 32 29 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 32 3c 3d 30 20 74 68 65 6e ┆w2); if w2<=0 then┆
0x5bd7a…5bd80 (0x324,0xb7c)
0x5bd80…5bda0 20 67 6f 74 6f 20 72 6b 74 5f 75 6e 6b 6e 6f 77 6e 3b 0a 20 20 20 20 20 20 20 20 74 72 61 6e 73 ┆ goto rkt_unknown; trans┆
0x5bda0…5bdc0 72 65 66 3a 3d 20 77 32 3b 0a 20 20 20 20 20 20 20 20 74 72 61 6e 73 6e 6f 3a 3d 20 77 31 3b 0a ┆ref:= w2; transno:= w1; ┆
0x5bdc0…5bde0 0a 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 69 66 20 77 30 3c ┆ w0:= 0; if w0<┆
0x5bde0…5be00 3e 77 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 21 00 00 00 00 00 00 00 00 ┆>w0 then begin ! ┆
0x5be00…5be06 (735,) (0x324,0xb7d)
0x5be06…5be20 20 6f 70 65 72 61 74 69 6f 6e 20 6e 6f 74 20 61 63 63 65 70 74 65 64 20 21 0a ┆ operation not accepted ! ┆
0x5be20…5be40 72 6b 74 5f 73 79 6e 74 61 78 20 20 20 3a 20 77 30 3a 3d 20 31 3b 20 67 6f 74 6f 20 72 6b 74 3b ┆rkt_syntax : w0:= 1; goto rkt;┆
0x5be40…5be60 0a 72 6b 74 5f 75 6e 6b 6e 6f 77 6e 20 20 3a 20 77 30 3a 3d 20 32 3b 0a 20 20 20 20 20 20 20 20 ┆ rkt_unknown : w0:= 2; ┆
0x5be60…5be7e 65 6e 64 3b 0a 0a 72 6b 74 3a 20 20 20 20 21 20 72 65 70 6c 79 20 6b 69 6c 6c 20 74 72 61 ┆end; rkt: ! reply kill tra┆
0x5be7e…5be84 (0x324,0xb7e)
0x5be84…5bea0 6e 73 70 6f 72 74 20 21 0a 20 20 20 20 20 20 20 20 61 6b 74 5f 72 63 6f 64 65 3a 3d ┆nsport ! akt_rcode:=┆
0x5bea0…5bec0 20 77 30 3b 0a 20 20 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 ┆ w0; copyanswer(.w3.,w0:┆
0x5bec0…5bee0 3d 61 64 64 72 65 73 73 28 61 6b 74 5f 31 29 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 61 6b 74 5f ┆=address(akt_1),w1:=address(akt_┆
0x5bee0…5befc 72 63 6f 64 65 29 2c 77 32 3a 3d 62 2e 65 76 65 6e 74 29 3b 0a 0a 20 20 20 20 20 20 ┆rcode),w2:=b.event); ┆
0x5befc…5bf02 (0x324,0xb7f)
0x5bf02…5bf20 20 20 69 66 20 77 30 20 6f 72 20 61 6b 74 5f 72 63 6f 64 65 3d 30 20 74 68 65 6e 0a 20 20 ┆ if w0 or akt_rcode=0 then ┆
0x5bf20…5bf40 20 20 20 20 20 20 62 65 67 69 6e 20 21 20 64 61 74 61 20 63 6f 70 69 65 64 20 74 6f 20 73 65 6e ┆ begin ! data copied to sen┆
0x5bf40…5bf60 64 65 72 20 61 6e 64 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 ┆der and operation accepted ! ┆
0x5bf60…5bf7a 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 20 ┆ w2:= transref; ┆
0x5bf7a…5bf80 (0x324,0xb80)
0x5bf80…5bfa0 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 32 29 2e 74 72 5f 73 74 61 74 65 3d 30 20 74 68 65 ┆ if w0:=(w2).tr_state=0 the┆
0x5bfa0…5bfc0 6e 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 21 20 6e 6f 74 20 66 69 6e 69 73 68 65 64 ┆n begin ! not finished┆
0x5bfc0…5bfe0 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 20 28 77 32 29 2e 74 72 5f 63 6f 72 6f ┆ ! w1:= (w2).tr_coro┆
0x5bfe0…5c000 75 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 00 00 00 00 00 00 00 00 ┆u; if w0:=(w ┆
0x5c000…5c006 (736,) (0x324,0xb81)
0x5c006…5c020 31 29 2e 74 63 5f 74 72 61 6e 73 6e 6f 3c 3e 74 72 61 6e 73 6e 6f 20 74 68 65 ┆1).tc_transno<>transno the┆
0x5c020…5c040 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 21 20 77 61 69 74 69 6e 67 20 21 0a ┆n begin ! waiting ! ┆
0x5c040…5c060 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 28 77 31 29 2e ┆ w1:= address((w1).┆
0x5c060…5c07e 74 63 5f 6e 65 78 74 74 72 29 3b 0a 72 65 70 6b 69 6c 6c 3a 0a 20 20 20 20 20 20 20 20 20 ┆tc_nexttr); repkill: ┆
0x5c07e…5c084 (0x324,0xb82)
0x5c084…5c0a0 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 ┆ w1:= (w1).tq_next; ┆
0x5c0a0…5c0c0 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 31 29 2e 74 71 5f 74 72 61 6e 73 6e 6f ┆ if w0:=(w1).tq_transno┆
0x5c0c0…5c0e0 3c 3e 74 72 61 6e 73 6e 6f 20 74 68 65 6e 20 67 6f 74 6f 20 72 65 70 6b 69 6c 6c 3b 0a 20 20 20 ┆<>transno then goto repkill; ┆
0x5c0e0…5c0fc 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 ┆ link(.w3.,w1,w2:=┆
0x5c0fc…5c102 (0x324,0xb83)
0x5c102…5c120 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 20 20 ┆address(b.tqfreefst)); ┆
0x5c120…5c140 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 20 20 20 20 20 20 20 ┆ w2:= transref; ┆
0x5c140…5c160 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 65 3d 38 27 ┆ if w0:=(w2).tr_removetime=8'┆
0x5c160…5c17a 33 37 37 37 37 37 37 36 20 21 20 72 65 6c 65 61 73 65 64 20 21 20 74 68 65 6e ┆37777776 ! released ! then┆
0x5c17a…5c180 (0x324,0xb84)
0x5c180…5c1a0 20 77 30 3a 3d 20 30 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 ┆ w0:= 0 else ┆
0x5c1a0…5c1c0 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┆
0x5c1c0…5c1e0 31 3a 3d 20 31 30 38 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 31 3a 3d 20 28 77 ┆1:= 108; f1:= (w┆
0x5c1e0…5c200 31 29 2e 64 6f 75 62 6c 65 2b 62 2e 74 72 73 61 76 65 70 65 72 69 6f 64 00 00 00 00 00 00 00 00 ┆1).double+b.trsaveperiod ┆
0x5c200…5c206 (737,) (0x324,0xb85)
0x5c206…5c220 20 6c 73 68 69 66 74 20 2d 32 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ lshift -20; ┆
0x5c220…5c240 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 32 29 2e 74 72 5f 72 65 6d 6f ┆ end; (w2).tr_remo┆
0x5c240…5c260 76 65 74 69 6d 65 3a 3d 20 77 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 32 29 2e ┆vetime:= w1; (w2).┆
0x5c260…5c27e 74 72 5f 73 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 ┆tr_state:= w0:= 8; ! killed by┆
0x5c27e…5c284 (0x324,0xb86)
0x5c284…5c2a0 20 61 70 70 6c 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 20 28 ┆ appl ! w0:= (┆
0x5c2a0…5c2c0 77 32 29 2e 74 72 5f 77 61 69 74 6d 65 73 73 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 ┆w2).tr_waitmess; w┆
0x5c2c0…5c2e0 31 3a 3d 20 30 3b 20 28 77 32 29 2e 74 72 5f 77 61 69 74 6d 65 73 73 3a 3d 20 77 31 3b 0a 20 20 ┆1:= 0; (w2).tr_waitmess:= w1; ┆
0x5c2e0…5c2fc 20 20 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 ┆ puttransport(.w3┆
0x5c2fc…5c302 (0x324,0xb87)
0x5c302…5c320 2e 2c 77 31 3a 3d 74 72 61 6e 73 6e 6f 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆.,w1:=transno); ┆
0x5c320…5c340 69 66 20 77 30 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 ┆if w0>0 then begin┆
0x5c340…5c360 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 2e 65 76 65 6e 74 3a 3d 20 77 30 3b 20 21 ┆ b.event:= w0; !┆
0x5c360…5c37a 20 76 65 72 79 20 64 69 72 74 79 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ very dirty ! ┆
0x5c37a…5c380 (0x324,0xb88)
0x5c380…5c3a0 20 20 20 20 61 67 74 5f 31 3a 3d 20 77 30 3a 3d 20 37 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ agt_1:= w0:= 7; ┆
0x5c3a0…5c3c0 20 20 20 20 67 6f 74 6f 20 74 72 5f 66 69 6e 69 73 68 65 64 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆ goto tr_finished; ┆
0x5c3c0…5c3e0 20 20 20 20 65 6e 64 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 ┆ end; end ┆
0x5c3e0…5c400 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 00 00 00 00 00 00 00 00 ┆ else be ┆
0x5c400…5c406 (738,) (0x324,0xb89)
0x5c406…5c420 67 69 6e 20 21 20 73 65 74 20 63 6f 72 6f 75 74 69 6e 65 20 66 6c 61 67 20 21 ┆gin ! set coroutine flag !┆
0x5c420…5c440 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 74 63 5f 61 69 6e 74 65 72 76 65 6e ┆ (w1).tc_ainterven┆
0x5c440…5c460 74 3a 3d 20 77 30 3a 3d 20 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 ┆t:= w0:= 1; end; ┆
0x5c460…5c47e 20 20 20 20 20 20 20 65 6e 64 3b 20 21 20 6e 6f 74 20 66 69 6e 69 73 68 65 64 20 21 0a 20 ┆ end; ! not finished ! ┆
0x5c47e…5c484 (0x324,0xb8a)
0x5c484…5c4a0 20 20 20 20 20 20 20 65 6e 64 3b 20 21 20 64 61 74 61 20 63 6f 70 69 65 64 20 74 6f ┆ end; ! data copied to┆
0x5c4a0…5c4c0 20 73 65 6e 64 65 72 20 21 0a 20 20 20 20 20 20 65 6e 64 20 21 20 6b 69 6c 6c 20 21 0a 20 20 20 ┆ sender ! end ! kill ! ┆
0x5c4c0…5c4e0 20 20 20 65 6c 73 65 0a 0a 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 72 65 6a 65 63 74 3a 0a 20 20 ┆ else begin reject: ┆
0x5c4e0…5c4fc 20 20 20 20 20 20 77 30 3a 3d 20 32 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3c ┆ w0:= 2; if w0<┆
0x5c4fc…5c502 (0x324,0xb8b)
0x5c502…5c520 3e 77 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 75 6e 69 6e 74 3a 0a ┆>w0 then begin unint: ┆
0x5c520…5c540 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 20 33 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 ┆ w0:= 3; end; ┆
0x5c540…5c560 20 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 30 3b 0a 20 20 ┆ b.ans_status:= w1:= 0; ┆
0x5c560…5c57a 20 20 20 20 20 20 69 66 20 77 31 3c 3e 77 31 20 74 68 65 6e 0a 20 20 20 20 20 ┆ if w1<>w1 then ┆
0x5c57a…5c580 (0x324,0xb8c)
0x5c580…5c5a0 20 20 20 62 65 67 69 6e 0a 73 74 6f 70 70 65 64 3a 0a 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d ┆ begin stopped: w0:=┆
0x5c5a0…5c5c0 20 31 3b 0a 20 20 20 20 20 20 20 20 20 20 62 2e 61 6e 73 5f 73 74 61 74 75 73 3a 3d 20 77 31 3a ┆ 1; b.ans_status:= w1:┆
0x5c5c0…5c5e0 3d 20 38 27 34 30 30 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 ┆= 8'400; end; b┆
0x5c5e0…5c600 2e 61 6e 73 5f 62 79 74 65 73 3a 3d 20 77 31 3a 3d 20 30 3b 0a 20 20 20 00 00 00 00 00 00 00 00 ┆.ans_bytes:= w1:= 0; ┆
0x5c600…5c606 (739,) (0x324,0xb8d)
0x5c606…5c620 20 20 20 20 20 62 2e 61 6e 73 5f 63 68 61 72 73 3a 3d 20 77 31 3b 0a 20 20 20 ┆ b.ans_chars:= w1; ┆
0x5c620…5c640 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 74 75 73 29 3b ┆ w1:= address(b.ans_status);┆
0x5c640…5c660 0a 20 20 20 20 20 20 20 20 77 32 3a 3d 62 2e 65 76 65 6e 74 3b 0a 20 20 20 20 20 20 20 20 6d 6f ┆ w2:=b.event; mo┆
0x5c660…5c67e 6e 69 74 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 ┆nitor(22); ! send answer ! ┆
0x5c67e…5c684 (0x324,0xb8e)
0x5c684…5c6a0 20 20 20 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 ┆ testout(.w3.,w0:=2,w1,w┆
0x5c6a0…5c6c0 32 3a 3d 36 31 29 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 0a 20 20 20 20 20 20 77 30 3a 3d 20 30 ┆2:=61); end; w0:= 0┆
0x5c6c0…5c6e0 3b 0a 20 20 20 20 20 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 ┆; (w3).c_mbuf:= w0; ┆
0x5c6e0…5c6fc 67 6f 74 6f 20 77 61 69 74 5f 6d 3b 0a 20 20 20 20 65 6e 64 3b 0a 20 20 65 6e 64 3b ┆goto wait_m; end; end;┆
0x5c6fc…5c702 (0x324,0xb8f)
0x5c702…5c720 20 21 20 61 70 70 6c 5f 69 6e 74 65 72 66 61 63 65 20 21 0a 0a 20 20 62 6f 64 79 20 6f 66 ┆ ! appl_interface ! body of┆
0x5c720…5c740 20 63 72 65 61 74 65 5f 66 70 72 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 69 6e 63 6f 64 65 0a 20 ┆ create_fpr begin incode ┆
0x5c740…5c760 20 20 20 20 20 72 65 66 20 20 72 65 74 75 72 6e 2c 66 70 72 5f 72 65 66 2c 74 61 62 6c 65 5f 72 ┆ ref return,fpr_ref,table_r┆
0x5c760…5c77a 65 66 2c 68 65 6c 70 3b 0a 20 20 20 20 20 20 77 6f 72 64 20 6c 63 75 64 65 76 ┆ef,help; word lcudev┆
0x5c77a…5c780 (0x324,0xb90)
0x5c780…5c7a0 2c 20 72 65 73 75 6c 74 2c 73 61 76 65 77 32 3b 0a 20 20 20 20 62 65 67 69 6e 0a 0a 20 20 20 20 ┆, result,savew2; begin ┆
0x5c7a0…5c7c0 20 20 72 65 74 75 72 6e 20 3a 3d 20 77 33 3b 0a 20 20 20 20 20 20 66 70 72 5f 72 65 66 3a 3d 20 ┆ return := w3; fpr_ref:= ┆
0x5c7c0…5c7e0 77 31 3b 0a 20 20 20 20 20 20 73 61 76 65 77 32 20 3a 3d 20 77 32 3b 0a 20 20 20 20 20 20 77 30 ┆w1; savew2 := w2; w0┆
0x5c7e0…5c800 3a 3d 20 2d 20 31 3b 74 61 62 6c 65 5f 72 65 66 20 3a 3d 20 77 30 3b 0a 00 00 00 00 00 00 00 00 ┆:= - 1;table_ref := w0; ┆
0x5c800…5c806 (740,) (0x324,0xb91)
0x5c806…5c820 0a 20 20 20 20 20 20 77 31 20 3a 3d 20 72 65 74 75 72 6e 2e 63 66 70 72 5f 6f ┆ w1 := return.cfpr_o┆
0x5c820…5c840 75 74 64 65 76 69 63 65 3b 0a 20 20 20 20 20 20 77 32 3a 3d 20 62 2e 67 61 63 5f 74 61 62 6c 65 ┆utdevice; w2:= b.gac_table┆
0x5c840…5c860 3b 0a 20 20 20 20 20 20 77 68 69 6c 65 20 77 30 3a 3d 74 61 62 6c 65 5f 72 65 66 3c 30 20 64 6f ┆; while w0:=table_ref<0 do┆
0x5c860…5c87e 0a 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 66 69 6e 64 20 73 74 61 74 ┆ begin comment find stat┆
0x5c87e…5c884 (0x324,0xb92)
0x5c884…5c8a0 75 73 20 63 6f 72 6f 75 74 69 6e 65 20 63 6f 72 65 73 70 6f 6e 64 69 6e 67 0a 20 20 ┆us coroutine coresponding ┆
0x5c8a0…5c8c0 20 20 20 20 20 20 20 20 20 20 74 6f 20 61 63 74 75 61 6c 20 74 72 61 6e 73 70 6f 72 74 20 61 6e ┆ to actual transport an┆
0x5c8c0…5c8e0 64 20 69 6e 63 72 65 61 73 65 20 63 6f 75 6e 74 20 62 79 20 6f 6e 65 2c 0a 20 20 20 20 20 20 20 ┆d increase count by one, ┆
0x5c8e0…5c8fc 20 20 20 20 20 6f 72 20 63 72 65 61 74 65 20 61 20 6e 65 77 20 73 74 61 74 75 73 20 ┆ or create a new status ┆
0x5c8fc…5c902 (0x324,0xb93)
0x5c902…5c920 68 61 6e 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 68 65 ┆handling coroutine; he┆
0x5c920…5c940 6c 70 3a 3d 20 77 32 3b 0a 20 20 20 20 20 20 20 20 63 6f 6d 70 61 72 65 20 28 2e 77 33 2e 2c 77 ┆lp:= w2; compare (.w3.,w┆
0x5c940…5c960 30 3a 3d 38 2c 77 31 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 28 77 32 29 2e 66 70 72 5f 67 61 63 ┆0:=8,w1,w2:=address((w2).fpr_gac┆
0x5c960…5c97a 6f 75 74 29 29 3b 0a 20 20 20 20 20 20 20 20 77 32 3a 3d 20 68 65 6c 70 3b 0a ┆out)); w2:= help; ┆
0x5c97a…5c980 (0x324,0xb94)
0x5c980…5c9a0 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 28 77 32 29 2e 66 ┆ if w0=0 then w0:= (w2).f┆
0x5c9a0…5c9c0 70 72 5f 68 6f 73 74 69 64 2d 72 65 74 75 72 6e 2e 63 66 70 72 5f 68 69 64 3b 0a 20 20 20 20 20 ┆pr_hostid-return.cfpr_hid; ┆
0x5c9c0…5c9e0 20 20 20 69 66 20 77 30 3c 3e 30 20 74 68 65 6e 20 77 32 2b 21 6c 65 6e 67 74 68 28 66 70 72 69 ┆ if w0<>0 then w2+!length(fpri┆
0x5c9e0…5ca00 6e 63 6f 72 6f 75 74 69 6e 65 29 20 65 6c 73 65 20 74 61 62 6c 65 5f 72 00 00 00 00 00 00 00 00 ┆ncoroutine) else table_r ┆
0x5ca00…5ca06 (741,) (0x324,0xb95)
0x5ca06…5ca20 65 66 3a 3d 77 32 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 32 3e 3d 62 2e 67 ┆ef:=w2; if w2>=b.g┆
0x5ca20…5ca40 61 63 5f 74 6f 70 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 ┆ac_top then begin commen┆
0x5ca40…5ca60 74 20 6e 6f 20 73 74 61 74 75 73 20 63 6f 72 6f 75 74 69 6e 65 20 6d 61 74 63 68 65 73 20 63 75 ┆t no status coroutine matches cu┆
0x5ca60…5ca7e 72 72 65 6e 74 20 74 72 61 6e 73 70 6f 72 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆rrent transport ┆
0x5ca7e…5ca84 (0x324,0xb96)
0x5ca84…5caa0 63 72 65 61 74 65 20 73 74 61 74 75 73 2d 20 63 6f 72 6f 75 74 69 6e 65 20 61 6e 64 ┆create status- coroutine and┆
0x5caa0…5cac0 20 70 6f 73 73 69 62 6c 79 20 6c 69 6e 6b 3b 0a 20 20 20 20 20 20 20 20 20 20 63 6f 6d 6d 65 6e ┆ possibly link; commen┆
0x5cac0…5cae0 74 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 72 65 73 ┆t find free entry; res┆
0x5cae0…5cafc 75 6c 74 3a 3d 20 77 30 3a 3d 20 2d 20 31 3b 0a 20 20 20 20 20 20 20 20 20 20 77 32 ┆ult:= w0:= - 1; w2┆
0x5cafc…5cb02 (0x324,0xb97)
0x5cb02…5cb20 20 3a 3d 20 62 2e 67 61 63 5f 74 61 62 6c 65 3b 0a 20 20 20 20 20 20 20 20 20 20 77 30 20 ┆ := b.gac_table; w0 ┆
0x5cb20…5cb40 3a 3d 20 28 77 32 29 2e 66 70 72 5f 63 6f 75 6e 74 3b 0a 20 20 20 20 20 20 20 20 20 20 77 68 69 ┆:= (w2).fpr_count; whi┆
0x5cb40…5cb60 6c 65 20 77 30 3e 30 20 64 6f 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 ┆le w0>0 do begin comme┆
0x5cb60…5cb7a 6e 74 20 66 69 6e 64 20 66 72 65 65 20 65 6e 74 72 79 3b 0a 20 20 20 20 20 20 ┆nt find free entry; ┆
0x5cb7a…5cb80 (0x324,0xb98)
0x5cb80…5cba0 20 20 20 20 20 20 77 32 2b 21 6c 65 6e 67 74 68 28 66 70 72 69 6e 63 6f 72 6f 75 74 69 6e 65 29 ┆ w2+!length(fprincoroutine)┆
0x5cba0…5cbc0 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 28 77 32 29 2e 66 70 72 5f 63 6f 75 6e 74 ┆; w0:=(w2).fpr_count┆
0x5cbc0…5cbe0 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 74 61 62 6c 65 ┆; end; table┆
0x5cbe0…5cc00 5f 72 65 66 3a 3d 77 32 3b 0a 20 20 20 20 20 20 20 20 20 20 6d 6f 76 65 00 00 00 00 00 00 00 00 ┆_ref:=w2; move ┆
0x5cc00…5cc06 (742,) (0x324,0xb99)
0x5cc06…5cc20 28 2e 77 33 2e 2c 77 30 3a 3d 38 2c 77 31 3a 3d 72 65 74 75 72 6e 2e 63 66 70 ┆(.w3.,w0:=8,w1:=return.cfp┆
0x5cc20…5cc40 72 5f 6f 75 74 64 65 76 69 63 65 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆r_outdevice, ┆
0x5cc40…5cc60 20 20 20 20 20 20 20 77 32 3a 3d 61 64 64 72 65 73 73 28 28 77 33 3a 3d 74 61 62 6c 65 5f 72 65 ┆ w2:=address((w3:=table_re┆
0x5cc60…5cc7e 66 29 2e 66 70 72 5f 67 61 63 6f 75 74 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 6d 6f 76 ┆f).fpr_gacout)); mov┆
0x5cc7e…5cc84 (0x324,0xb9a)
0x5cc84…5cca0 65 28 2e 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 ┆e(.w3.,w0:=8,w1:=return.cfpr┆
0x5cca0…5ccc0 5f 69 6e 64 65 76 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 ┆_indevice, ┆
0x5ccc0…5cce0 20 20 20 20 20 77 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 ┆ w2:=address((w3:=table_ref)┆
0x5cce0…5ccfc 2e 66 70 72 5f 67 61 63 69 6e 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 28 77 32 3a ┆.fpr_gacin)); (w2:┆
0x5ccfc…5cd02 (0x324,0xb9b)
0x5cd02…5cd20 3d 74 61 62 6c 65 5f 72 65 66 29 2e 66 70 72 5f 68 6f 73 74 69 64 20 3a 3d 20 77 30 20 3a ┆=table_ref).fpr_hostid := w0 :┆
0x5cd20…5cd40 3d 20 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 20 20 28 77 32 ┆= return.cfpr_hid; (w2┆
0x5cd40…5cd60 29 2e 66 70 72 5f 63 6f 75 6e 74 20 3a 3d 20 77 30 20 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 ┆).fpr_count := w0 := 0; ┆
0x5cd60…5cd7a 20 20 69 66 20 77 30 3a 3d 72 65 74 75 72 6e 2e 63 66 70 72 5f 68 69 64 3d 30 ┆ if w0:=return.cfpr_hid=0┆
0x5cd7a…5cd80 (0x324,0xb9c)
0x5cd80…5cda0 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 6c 6f ┆ then begin comment lo┆
0x5cda0…5cdc0 63 61 6c 20 64 65 76 69 63 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 72 65 74 75 ┆cal device; w3:=retu┆
0x5cdc0…5cde0 72 6e 2e 63 66 70 72 5f 6f 75 74 64 65 76 69 63 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 63 ┆rn.cfpr_outdevice; c┆
0x5cde0…5ce00 6f 6d 6d 65 6e 74 20 6c 6f 6f 6b 75 70 20 70 72 6f 63 65 73 73 3b 0a 20 00 00 00 00 00 00 00 00 ┆omment lookup process; ┆
0x5ce00…5ce06 (743,) (0x324,0xb9d)
0x5ce06…5ce20 20 20 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 34 29 3b 0a 20 20 20 ┆ monitor(4); ┆
0x5ce20…5ce40 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 ┆
0x5ce40…5ce60 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 70 72 6f 63 65 73 73 20 66 6f 75 6e 64 3b 0a ┆ begin comment process found; ┆
0x5ce60…5ce7e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 77 30 2b 32 3b 0a 20 20 20 20 20 20 ┆ w1:=w0+2; ┆
0x5ce7e…5ce84 (0x324,0xb9e)
0x5ce84…5cea0 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 ┆ move(.w3.,w0:=8,w1,w┆
0x5cea0…5cec0 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 5f 70 ┆2:=address((w3:=table_ref).fpr_p┆
0x5cec0…5cee0 72 6f 63 6f 75 74 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 33 20 3a 3d 20 61 64 ┆rocout)); w3 := ad┆
0x5cee0…5cefc 64 72 65 73 73 28 28 77 32 3a 3d 74 61 62 6c 65 5f 72 65 66 29 2e 66 70 72 5f 70 72 ┆dress((w2:=table_ref).fpr_pr┆
0x5cefc…5cf02 (0x324,0xb9f)
0x5cf02…5cf20 6f 63 6f 75 74 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 ┆ocout); comment ┆
0x5cf20…5cf40 72 65 73 65 72 76 65 20 64 65 76 69 63 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f ┆reserve device; mo┆
0x5cf40…5cf60 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 30 3d 30 20 ┆nitor(8); if w0=0 ┆
0x5cf60…5cf7a 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 ┆then begin ┆
0x5cf7a…5cf80 (0x324,0xba0)
0x5cf80…5cfa0 20 20 20 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 69 ┆ w3:=return.cfpr_i┆
0x5cfa0…5cfc0 6e 64 65 76 69 63 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 ┆ndevice; comment┆
0x5cfc0…5cfe0 20 6c 6f 6f 6b 75 70 20 70 72 6f 63 65 73 73 20 28 67 61 63 69 6e 29 3b 0a 20 20 20 20 20 20 20 ┆ lookup process (gacin); ┆
0x5cfe0…5d000 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 34 29 3b 0a 20 20 20 00 00 00 00 00 00 00 00 ┆ monitor(4); ┆
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 20 3c 3e 20 30 20 74 68 ┆ if w0 <> 0 th┆
0x5d020…5d040 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 20 20 20 ┆en begin ┆
0x5d040…5d060 20 20 20 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 20 ┆ w1:=w0+2; ┆
0x5d060…5d07e 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:=┆
0x5d07e…5d084 (0x324,0xba2)
0x5d084…5d0a0 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 5f ┆address((w3:=table_ref).fpr_┆
0x5d0a0…5d0c0 70 72 6f 63 69 6e 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 33 20 3a ┆procin)); w3 :┆
0x5d0c0…5d0e0 3d 20 61 64 64 72 65 73 73 28 28 77 32 3a 3d 74 61 62 6c 65 5f 72 65 66 29 2e 66 70 72 5f 70 72 ┆= address((w2:=table_ref).fpr_pr┆
0x5d0e0…5d0fc 6f 63 69 6e 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6d ┆ocin); com┆
0x5d0fc…5d102 (0x324,0xba3)
0x5d102…5d120 6d 65 6e 74 20 72 65 73 65 72 76 65 20 70 72 6f 63 65 73 73 28 67 61 63 69 6e 29 3b 0a 20 ┆ment reserve process(gacin); ┆
0x5d120…5d140 20 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 29 3b 0a 20 20 20 ┆ monitor(8); ┆
0x5d140…5d160 20 20 20 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 73 75 6c ┆ comment set resul┆
0x5d160…5d17a 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 ┆t; resul┆
0x5d17a…5d180 (0x324,0xba4)
0x5d180…5d1a0 74 3a 3d 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 ┆t:=w0; end; ┆
0x5d1a0…5d1c0 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; ┆
0x5d1c0…5d1e0 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 67 ┆ end else beg┆
0x5d1e0…5d200 69 6e 20 63 6f 6d 6d 65 6e 74 20 72 65 6d 6f 74 65 20 64 65 76 69 63 65 00 00 00 00 00 00 00 00 ┆in comment remote device ┆
0x5d200…5d206 (745,) (0x324,0xba5)
0x5d206…5d220 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 6c 69 6e 6b 75 70 72 65 6d 6f 74 65 ┆; linkupremote┆
0x5d220…5d240 28 2e 77 33 2e 2c 77 30 3a 3d 31 34 2c 77 30 3a 3d 72 65 74 75 72 6e 2e 63 66 70 72 5f 68 6e 6f ┆(.w3.,w0:=14,w0:=return.cfpr_hno┆
0x5d240…5d260 2c 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 20 ┆,w0:=return.cfpr_hid, ┆
0x5d260…5d27e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 72 65 74 75 72 6e ┆ w0:=return┆
0x5d27e…5d284 (0x324,0xba6)
0x5d284…5d2a0 2e 63 66 70 72 5f 6f 75 74 64 65 76 69 63 65 2c 77 30 2c 77 32 29 3b 0a 20 20 20 20 ┆.cfpr_outdevice,w0,w2); ┆
0x5d2a0…5d2c0 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 3a 3d 34 31 30 33 ┆ if w0=4096 then w0:=4103┆
0x5d2c0…5d2e0 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3d 34 31 30 33 20 74 68 65 6e 0a 20 20 ┆; if w0=4103 then ┆
0x5d2e0…5d2fc 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 ┆ begin comment link┆
0x5d2fc…5d302 (0x324,0xba7)
0x5d302…5d320 20 63 72 65 61 74 65 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f 76 65 28 2e ┆ created; move(.┆
0x5d320…5d340 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 28 ┆w3.,w0:=8,w1:=w2+2,w2:=address((┆
0x5d340…5d360 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 3b 0a 20 20 ┆w3:=table_ref).fpr_procout)); ┆
0x5d360…5d37a 20 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 ┆ w3:=address((w┆
0x5d37a…5d380 (0x324,0xba8)
0x5d380…5d3a0 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 3b 0a 20 20 20 20 ┆2:=table_ref).fpr_procout); ┆
0x5d3a0…5d3c0 20 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 ┆ monitor(8); ┆
0x5d3c0…5d3e0 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 20 62 ┆ if w0=0 then b┆
0x5d3e0…5d400 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 74 68 65 6e 20 69 6e 20 64 65 76 00 00 00 00 00 00 00 00 ┆egin comment then in dev ┆
0x5d400…5d406 (746,) (0x324,0xba9)
0x5d406…5d420 69 63 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 69 6e 6b 75 ┆ice; linku┆
0x5d420…5d440 70 72 65 6d 6f 74 65 28 2e 77 33 2e 2c 77 30 3a 3d 31 30 2c 77 30 3a 3d 72 65 74 75 72 6e 2e 63 ┆premote(.w3.,w0:=10,w0:=return.c┆
0x5d440…5d460 66 70 72 5f 68 6e 6f 2c 77 30 3a 3d 72 65 74 75 72 6e 2e 63 66 70 72 5f 68 69 64 2c 0a 20 20 20 ┆fpr_hno,w0:=return.cfpr_hid, ┆
0x5d460…5d47e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x5d47e…5d484 (0x324,0xbaa)
0x5d484…5d4a0 20 77 30 3a 3d 72 65 74 75 72 6e 2e 63 66 70 72 5f 69 6e 64 65 76 69 63 65 2c 77 30 ┆ w0:=return.cfpr_indevice,w0┆
0x5d4a0…5d4c0 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 3d 34 30 39 36 ┆,w2); if w0=4096┆
0x5d4c0…5d4e0 20 74 68 65 6e 20 77 30 3a 3d 34 31 30 33 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ then w0:=4103; ┆
0x5d4e0…5d4fc 69 66 20 77 30 3d 34 31 30 33 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆if w0=4103 then ┆
0x5d4fc…5d502 (0x324,0xbab)
0x5d502…5d520 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 72 65 73 65 72 76 65 20 69 6e 64 65 ┆ begin comment reserve inde┆
0x5d520…5d540 76 69 63 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f 76 65 28 2e 77 33 ┆vice; move(.w3┆
0x5d540…5d560 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 28 77 33 ┆.,w0:=8,w1:=w2+2,w2:=address((w3┆
0x5d560…5d57a 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 3b ┆:=table_ref).fpr_procin));┆
0x5d57a…5d580 (0x324,0xbac)
0x5d580…5d5a0 0a 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 73 28 28 ┆ w3:=address((┆
0x5d5a0…5d5c0 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 29 3b 0a 20 20 20 20 ┆w2:=table_ref).fpr_procin); ┆
0x5d5c0…5d5e0 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 20 20 20 20 ┆ monitor(8); ┆
0x5d5e0…5d600 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 73 65 74 20 00 00 00 00 00 00 00 00 ┆ comment set ┆
0x5d600…5d606 (747,) (0x324,0xbad)
0x5d606…5d620 72 65 73 75 6c 74 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆result; ┆
0x5d620…5d640 72 65 73 75 6c 74 3a 3d 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b ┆result:=w0; end;┆
0x5d640…5d660 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 20 ┆ end; ┆
0x5d660…5d67e 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 20 20 ┆end; end; ┆
0x5d67e…5d684 (0x324,0xbae)
0x5d684…5d6a0 69 66 20 77 30 3a 3d 72 65 73 75 6c 74 3d 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 ┆if w0:=result=0 then ┆
0x5d6a0…5d6c0 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 70 72 65 70 61 72 65 20 73 74 61 74 75 73 20 ┆ begin comment prepare status ┆
0x5d6c0…5d6e0 73 65 72 76 65 72 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 ┆server; link(.w3.,w1┆
0x5d6e0…5d6fc 3a 3d 74 61 62 6c 65 5f 72 65 66 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 62 2e 61 63 ┆:=table_ref,w2:=address(b.ac┆
0x5d6fc…5d702 (0x324,0xbaf)
0x5d702…5d720 74 69 76 71 66 73 74 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 30 3b 0a ┆tivqfst)); w0:=0; ┆
0x5d720…5d740 20 20 20 20 20 20 20 20 20 20 20 20 74 61 62 6c 65 5f 72 65 66 2e 63 5f 69 63 3a 3d 20 77 30 3b ┆ table_ref.c_ic:= w0;┆
0x5d740…5d760 0a 20 20 20 20 20 20 20 20 20 20 20 20 74 61 62 6c 65 5f 72 65 66 2e 66 70 72 5f 77 61 69 74 3a ┆ table_ref.fpr_wait:┆
0x5d760…5d77a 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 0a 20 20 20 20 ┆= w0; end; ┆
0x5d77a…5d780 (0x324,0xbb0)
0x5d780…5d7a0 20 20 20 20 65 6e 64 20 65 6c 73 65 20 72 65 73 75 6c 74 3a 3d 20 77 30 3a 3d 20 30 3b 20 21 20 ┆ end else result:= w0:= 0; ! ┆
0x5d7a0…5d7c0 65 6e 64 20 63 72 65 61 74 65 20 73 74 61 74 75 73 20 63 6f 72 6f 75 74 69 6e 65 20 21 0a 20 20 ┆end create status coroutine ! ┆
0x5d7c0…5d7e0 20 20 20 20 65 6e 64 3b 20 20 21 20 65 6e 64 20 73 74 61 74 75 73 20 63 6f 72 6f 75 74 69 6e 65 ┆ end; ! end status coroutine┆
0x5d7e0…5d800 20 73 65 61 72 63 68 20 21 0a 0a 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 00 00 00 00 00 00 00 00 ┆ search ! comment ┆
0x5d800…5d806 (748,) (0x324,0xbb1)
0x5d806…5d820 20 69 6e 63 72 65 61 73 65 20 67 61 63 2d 61 63 63 65 73 73 20 63 6f 75 6e 74 ┆ increase gac-access count┆
0x5d820…5d840 3b 0a 0a 20 20 20 20 20 20 66 70 72 5f 72 65 66 2e 66 70 72 5f 73 74 63 6f 72 6f 75 74 3a 3d 77 ┆; fpr_ref.fpr_stcorout:=w┆
0x5d840…5d860 30 3a 3d 74 61 62 6c 65 5f 72 65 66 3b 0a 20 20 20 20 20 20 74 61 62 6c 65 5f 72 65 66 2e 66 70 ┆0:=table_ref; table_ref.fp┆
0x5d860…5d87e 72 5f 63 6f 75 6e 74 20 3a 3d 20 77 30 20 3a 3d 20 74 61 62 6c 65 5f 72 65 66 2e 66 70 72 ┆r_count := w0 := table_ref.fpr┆
0x5d87e…5d884 (0x324,0xbb2)
0x5d884…5d8a0 5f 63 6f 75 6e 74 20 2b 20 31 3b 0a 0a 20 20 20 20 20 20 74 65 73 74 6f 75 74 28 2e ┆_count + 1; testout(.┆
0x5d8a0…5d8c0 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 29 2c 77 31 3a ┆w3.,w0:=!length(fprincorout),w1:┆
0x5d8c0…5d8e0 3d 74 61 62 6c 65 5f 72 65 66 2c 77 32 3a 3d 35 33 29 3b 0a 0a 20 20 20 20 20 20 20 0a 20 20 20 ┆=table_ref,w2:=53); ┆
0x5d8e0…5d8fc 20 20 20 63 6f 6d 6d 65 6e 74 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 20 20 77 32 3a ┆ comment return; w2:┆
0x5d8fc…5d902 (0x324,0xbb3)
0x5d902…5d920 3d 73 61 76 65 77 32 3b 0a 20 20 20 20 20 20 77 31 3a 3d 66 70 72 5f 72 65 66 3b 0a 20 20 ┆=savew2; w1:=fpr_ref; ┆
0x5d920…5d940 20 20 20 20 77 30 20 3a 3d 20 72 65 73 75 6c 74 3b 0a 20 20 20 20 20 20 77 33 20 3a 3d 20 72 65 ┆ w0 := result; w3 := re┆
0x5d940…5d960 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 63 72 65 ┆turn; end; end; ! end cre┆
0x5d960…5d97a 61 74 65 5f 66 70 72 20 20 21 0a 0a 0a 0a 20 20 62 6f 64 79 20 6f 66 20 65 64 ┆ate_fpr ! body of ed┆
0x5d97a…5d980 (0x324,0xbb4)
0x5d980…5d9a0 69 74 6f 75 74 0a 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 ┆itout begin comment this proce┆
0x5d9a0…5d9c0 64 75 72 65 20 67 65 6e 65 72 61 74 65 73 20 61 20 6e 61 6d 65 20 6f 6e 20 74 68 65 20 62 61 73 ┆dure generates a name on the bas┆
0x5d9c0…5d9e0 69 73 20 6f 66 0a 20 20 20 20 20 20 20 20 61 20 6e 61 6d 65 20 63 6f 6e 74 61 69 6e 69 6e 67 20 ┆is of a name containing ┆
0x5d9e0…5da00 74 68 65 20 73 75 62 73 74 72 69 6e 67 20 22 6f 75 74 22 2e 20 69 6e 20 00 00 00 00 00 00 00 00 ┆the substring "out". in ┆
0x5da00…5da06 (749,) (0x324,0xbb5)
0x5da06…5da20 74 68 65 20 73 70 65 63 69 66 69 65 64 0a 20 20 20 20 20 20 20 20 6e 61 6d 65 ┆the specified name┆
0x5da20…5da40 20 74 68 65 20 73 75 62 73 74 72 69 6e 67 20 22 6f 75 74 22 20 69 73 20 72 65 70 6c 61 63 65 64 ┆ the substring "out" is replaced┆
0x5da40…5da60 20 62 79 20 74 68 65 20 73 75 62 73 74 72 69 6e 67 0a 20 20 20 20 20 20 20 20 28 6d 61 78 20 33 ┆ by the substring (max 3┆
0x5da60…5da7e 20 63 68 61 72 73 29 20 63 6f 6e 74 61 69 6e 65 64 20 69 6e 20 77 30 2e 20 74 68 65 20 63 ┆ chars) contained in w0. the c┆
0x5da7e…5da84 (0x324,0xbb6)
0x5da84…5daa0 61 6c 6c 20 69 73 20 66 6f 6c 6c 6f 77 73 3a 0a 20 20 20 20 20 20 20 20 77 30 3a 63 ┆all is follows: w0:c┆
0x5daa0…5dac0 61 6c 6c 3a 20 28 6d 61 78 20 33 29 20 72 65 70 6c 61 63 65 6d 65 6e 74 20 63 68 61 72 73 20 2d ┆all: (max 3) replacement chars -┆
0x5dac0…5dae0 20 72 65 74 75 72 6e 3a 20 72 65 73 75 6c 74 28 30 3d 6f 6b 29 0a 20 20 20 20 20 20 20 20 77 31 ┆ return: result(0=ok) w1┆
0x5dae0…5dafc 3a 63 61 6c 6c 3a 20 61 64 64 72 65 73 73 20 28 22 6f 75 74 22 2d 6e 61 6d 65 29 20 ┆:call: address ("out"-name) ┆
0x5dafc…5db02 (0x324,0xbb7)
0x5db02…5db20 20 20 20 20 20 2d 20 72 65 74 75 72 6e 3a 20 75 6e 63 68 6e 67 64 0a 20 20 20 20 20 20 20 ┆ - return: unchngd ┆
0x5db20…5db40 20 77 32 3a 63 61 6c 6c 3a 20 61 64 64 72 65 73 73 20 28 22 72 65 73 75 6c 74 22 2d 6e 61 6d 65 ┆ w2:call: address ("result"-name┆
0x5db40…5db60 29 20 20 20 2d 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 33 ┆) - return: unchngd w3┆
0x5db60…5db7a 3a 63 61 6c 6c 3a 20 72 65 74 75 72 6e 20 61 64 64 72 65 73 73 20 20 20 20 20 ┆:call: return address ┆
0x5db7a…5db80 (0x324,0xbb8)
0x5db80…5dba0 20 20 20 20 20 20 20 2d 20 72 65 74 75 72 6e 3a 20 62 2e 63 75 72 72 65 6e 74 20 3b 0a 0a 20 20 ┆ - return: b.current ; ┆
0x5dba0…5dbc0 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 0a 20 20 20 20 ┆ incode ref return, ┆
0x5dbc0…5dbe0 20 20 20 20 20 20 20 6f 75 74 64 65 76 2c 0a 20 20 20 20 20 20 20 20 20 20 20 72 65 73 64 65 76 ┆ outdev, resdev┆
0x5dbe0…5dc00 3b 0a 20 20 20 20 20 20 77 6f 72 64 20 73 74 61 74 65 3b 0a 20 20 20 20 00 00 00 00 00 00 00 00 ┆; word state; ┆
0x5dc00…5dc06 (750,) (0x324,0xbb9)
0x5dc06…5dc20 20 20 77 6f 72 64 20 63 70 74 72 3b 0a 20 20 20 20 20 20 61 72 72 61 79 20 28 ┆ word cptr; array (┆
0x5dc20…5dc40 31 3a 31 34 29 20 63 68 61 72 20 6f 66 20 62 79 74 65 3b 0a 20 20 20 20 20 20 74 65 78 74 20 28 ┆1:14) char of byte; text (┆
0x5dc40…5dc60 31 35 29 20 73 6f 75 72 63 65 20 3a 3d 20 22 22 3b 0a 20 20 20 20 20 20 62 79 74 65 20 20 72 63 ┆15) source := ""; byte rc┆
0x5dc60…5dc7e 61 72 31 2c 72 63 61 72 32 2c 72 63 61 72 33 3b 0a 0a 20 20 20 20 62 65 67 69 6e 0a 0a 20 ┆ar1,rcar2,rcar3; begin ┆
0x5dc7e…5dc84 (0x324,0xbba)
0x5dc84…5dca0 20 20 20 20 20 72 65 74 75 72 6e 20 3a 3d 20 77 33 3b 0a 20 20 20 20 20 20 6f 75 74 ┆ return := w3; out┆
0x5dca0…5dcc0 64 65 76 20 3a 3d 20 77 31 3b 0a 20 20 20 20 20 20 72 65 73 64 65 76 20 3a 3d 20 77 32 3b 0a 0a ┆dev := w1; resdev := w2; ┆
0x5dcc0…5dce0 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 72 63 61 72 31 ┆ w3:= 0; f0 lshift 8; rcar1┆
0x5dce0…5dcfc 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 69 ┆:= w3; w3:= 0; f0 lshi┆
0x5dcfc…5dd02 (0x324,0xbbb)
0x5dd02…5dd20 66 74 20 38 3b 20 72 63 61 72 32 3a 3d 20 77 33 3b 0a 20 20 20 20 20 20 77 33 3a 3d 20 30 ┆ft 8; rcar2:= w3; w3:= 0┆
0x5dd20…5dd40 3b 20 66 30 20 6c 73 68 69 66 74 20 38 3b 20 72 63 61 72 33 3a 3d 20 77 33 3b 0a 0a 20 20 20 20 ┆; f0 lshift 8; rcar3:= w3; ┆
0x5dd40…5dd60 20 20 77 31 3a 3d 61 64 64 72 65 73 73 28 73 6f 75 72 63 65 29 3b 0a 20 20 20 20 20 20 28 77 31 ┆ w1:=address(source); (w1┆
0x5dd60…5dd7a 29 2e 77 6f 72 64 20 3a 3d 20 77 30 20 3a 3d 20 30 3b 0a 20 20 20 20 20 20 6d ┆).word := w0 := 0; m┆
0x5dd7a…5dd80 (0x324,0xbbc)
0x5dd80…5dda0 6f 76 65 28 2e 77 33 2e 2c 77 30 3a 3d 38 2c 77 31 2c 77 32 3a 3d 77 31 2b 32 29 3b 0a 20 20 20 ┆ove(.w3.,w0:=8,w1,w2:=w1+2); ┆
0x5dda0…5ddc0 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 72 65 73 64 65 76 ┆ move(.w3.,w0:=8,w1,w2:=resdev┆
0x5ddc0…5dde0 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 6f 75 74 ┆); move(.w3.,w0:=8,w1:=out┆
0x5dde0…5de00 64 65 76 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 73 6f 75 72 63 65 29 29 00 00 00 00 00 00 00 00 ┆dev,w2:=address(source)) ┆
0x5de00…5de06 (751,) (0x324,0xbbd)
0x5de06…5de20 3b 0a 0a 20 20 20 20 20 20 77 30 3a 3d 20 30 3b 0a 20 20 20 20 20 20 66 6f 72 ┆; w0:= 0; for┆
0x5de20…5de40 20 77 33 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 70 74 6f 20 31 32 20 64 6f 0a 20 20 20 20 20 ┆ w3 := 1 step 1 upto 12 do ┆
0x5de40…5de60 20 28 63 68 61 72 28 77 32 3a 3d 77 33 29 29 2e 62 79 74 65 3a 3d 77 30 3b 0a 0a 20 20 20 20 20 ┆ (char(w2:=w3)).byte:=w0; ┆
0x5de60…5de7e 20 21 20 77 31 20 3d 20 61 64 64 72 65 73 73 28 6f 75 74 64 65 76 69 63 65 29 20 21 0a 0a ┆ ! w1 = address(outdevice) ! ┆
0x5de7e…5de84 (0x324,0xbbe)
0x5de84…5dea0 20 20 20 20 20 20 63 70 74 72 20 3a 3d 20 77 30 3a 3d 20 31 3b 0a 20 20 20 20 20 20 ┆ cptr := w0:= 1; ┆
0x5dea0…5dec0 73 74 61 74 65 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 77 68 69 6c 65 20 77 32 3a 3d 63 70 74 72 ┆state:= w0; while w2:=cptr┆
0x5dec0…5dee0 20 3c 20 31 32 20 64 6f 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 77 30 3a ┆ < 12 do begin w0:┆
0x5dee0…5defc 3d 28 77 31 29 2e 77 6f 72 64 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 20 3d 20 ┆=(w1).word; if w0 = ┆
0x5defc…5df02 (0x324,0xbbf)
0x5df02…5df20 30 20 74 68 65 6e 20 63 70 74 72 20 3a 3d 20 77 32 20 3a 3d 20 31 32 3b 0a 20 20 20 20 20 ┆0 then cptr := w2 := 12; ┆
0x5df20…5df40 20 20 20 77 68 69 6c 65 20 77 30 20 3c 3e 20 30 20 64 6f 0a 20 20 20 20 20 20 20 20 62 65 67 69 ┆ while w0 <> 0 do begi┆
0x5df40…5df60 6e 0a 20 20 20 20 20 20 20 20 20 20 77 33 20 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 20 20 66 ┆n w3 := 0; f┆
0x5df60…5df7a 30 20 6c 73 68 69 66 74 20 38 3b 0a 20 20 20 20 20 20 20 20 20 20 63 61 73 65 ┆0 lshift 8; case┆
0x5df7a…5df80 (0x324,0xbc0)
0x5df80…5dfa0 20 77 32 3a 3d 73 74 61 74 65 20 6f 66 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 0a 20 ┆ w2:=state of begin ┆
0x5dfa0…5dfc0 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 33 3d 31 31 31 20 21 20 27 30 27 20 21 20 74 68 65 ┆ if w3=111 ! '0' ! the┆
0x5dfc0…5dfe0 6e 20 73 74 61 74 65 3a 3d 77 32 3a 3d 32 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆n state:=w2:=2 else ┆
0x5dfe0…5e000 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 68 61 00 00 00 00 00 00 00 00 ┆begin (cha ┆
0x5e000…5e006 (752,) (0x324,0xbc1)
0x5e006…5e020 72 28 77 32 3a 3d 63 70 74 72 29 29 2e 62 79 74 65 20 3a 3d 20 77 33 3b 0a 20 ┆r(w2:=cptr)).byte := w3; ┆
0x5e020…5e040 20 20 20 20 20 20 20 20 20 20 20 20 20 63 70 74 72 3a 3d 20 77 32 3a 3d 20 63 70 74 72 2b 31 3b ┆ cptr:= w2:= cptr+1;┆
0x5e040…5e060 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 69 ┆ end; i┆
0x5e060…5e07e 66 20 77 33 3d 31 31 37 20 21 20 27 75 27 20 21 20 74 68 65 6e 20 73 74 61 74 65 3a 3d 20 ┆f w3=117 ! 'u' ! then state:= ┆
0x5e07e…5e084 (0x324,0xbc2)
0x5e084…5e0a0 77 32 3a 3d 20 33 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 ┆w2:= 3 else begi┆
0x5e0a0…5e0c0 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 31 ┆n (char(w2:=cptr+1┆
0x5e0c0…5e0e0 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┆
0x5e0e0…5e0fc 61 72 28 77 32 3a 3d 63 70 74 72 29 29 2e 62 79 74 65 20 3a 3d 20 77 33 20 3a 3d 20 ┆ar(w2:=cptr)).byte := w3 := ┆
0x5e0fc…5e102 (0x324,0xbc3)
0x5e102…5e120 31 31 31 3b 0a 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 ┆111; cptr := w2 ┆
0x5e120…5e140 3a 3d 20 63 70 74 72 2b 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 74 61 74 65 20 3a ┆:= cptr+2; state :┆
0x5e140…5e160 3d 20 77 33 20 3a 3d 20 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 0a 20 20 20 ┆= w3 := 1; end; ┆
0x5e160…5e17a 20 20 20 20 20 20 20 20 20 69 66 20 77 33 3d 31 31 36 20 21 20 27 74 27 20 21 ┆ if w3=116 ! 't' !┆
0x5e17a…5e180 (0x324,0xbc4)
0x5e180…5e1a0 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 ┆
0x5e1a0…5e1c0 20 20 20 20 20 20 77 32 20 3a 3d 20 63 70 74 72 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ w2 := cptr; ┆
0x5e1c0…5e1e0 77 33 20 3a 3d 20 72 63 61 72 31 3b 20 69 66 20 77 33 20 3c 3e 20 30 20 74 68 65 6e 0a 20 20 20 ┆w3 := rcar1; if w3 <> 0 then ┆
0x5e1e0…5e200 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ begin ┆
0x5e200…5e206 (753,) (0x324,0xbc5)
0x5e206…5e220 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 ┆ (char(w2)).byte :┆
0x5e220…5e240 3d 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 20 77 32 ┆= w3; cptr := w2┆
0x5e240…5e260 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 20 65 6e 64 3b ┆ := cptr + 1; end;┆
0x5e260…5e27e 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 32 3b 20 69 66 ┆ w3 := rcar2; if┆
0x5e27e…5e284 (0x324,0xbc6)
0x5e284…5e2a0 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 ┆ w3 <> 0 then ┆
0x5e2a0…5e2c0 62 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 28 77 32 29 29 ┆begin (char(w2))┆
0x5e2c0…5e2e0 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 20 20 63 70 74 ┆.byte := w3; cpt┆
0x5e2e0…5e2fc 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 20 ┆r := w2 := cptr + 1; ┆
0x5e2fc…5e302 (0x324,0xbc7)
0x5e302…5e320 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 33 20 3a ┆ end; w3 :┆
0x5e320…5e340 3d 20 72 63 61 72 33 3b 20 69 66 20 77 33 20 3c 3e 20 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 ┆= rcar3; if w3 <> 0 then ┆
0x5e340…5e360 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 28 63 68 ┆ begin (ch┆
0x5e360…5e37a 61 72 28 77 32 29 29 2e 62 79 74 65 20 3a 3d 20 77 33 3b 0a 20 20 20 20 20 20 ┆ar(w2)).byte := w3; ┆
0x5e37a…5e380 (0x324,0xbc8)
0x5e380…5e3a0 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 20 2b 20 31 ┆ cptr := w2 := cptr + 1┆
0x5e3a0…5e3c0 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; ┆
0x5e3c0…5e3e0 20 20 20 73 74 61 74 65 20 3a 3d 20 77 33 20 3a 3d 20 34 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ state := w3 := 4; ┆
0x5e3e0…5e400 20 65 6e 64 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 00 00 00 00 00 00 00 00 ┆ end else be ┆
0x5e400…5e406 (754,) (0x324,0xbc9)
0x5e406…5e420 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 ┆gin (char(w2┆
0x5e420…5e440 3a 3d 63 70 74 72 2b 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 ┆:=cptr+2)).byte := w3; ┆
0x5e440…5e460 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 3a 3d 20 ┆ (char(w2:=cptr+1)).byte := ┆
0x5e460…5e47e 77 33 20 3a 3d 20 31 31 37 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 68 61 72 ┆w3 := 117; (char┆
0x5e47e…5e484 (0x324,0xbca)
0x5e484…5e4a0 28 77 32 3a 3d 63 70 74 72 29 29 2e 62 79 74 65 3a 3d 20 77 33 20 3a 3d 20 31 31 31 ┆(w2:=cptr)).byte:= w3 := 111┆
0x5e4a0…5e4c0 3b 0a 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 ┆; cptr := w2 := cp┆
0x5e4c0…5e4e0 74 72 20 2b 33 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 ┆tr +3; state := w3┆
0x5e4e0…5e4fc 20 3a 3d 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 ┆ := 1; end; ┆
0x5e4fc…5e502 (0x324,0xbcb)
0x5e502…5e520 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 63 ┆ begin (c┆
0x5e520…5e540 68 61 72 28 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 ┆har(w2:=cptr)).byte := w3; ┆
0x5e540…5e560 20 20 20 20 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 ┆ cptr:= w2:= cptr+1; ┆
0x5e560…5e57a 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 ┆ end; e┆
0x5e57a…5e580 (0x324,0xbcc)
0x5e580…5e5a0 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 65 6e 64 3b 0a 20 20 ┆nd; ! end case ! end; ┆
0x5e5a0…5e5c0 20 20 20 20 20 20 77 31 2b 32 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 77 33 20 ┆ w1+2; end; w3 ┆
0x5e5c0…5e5e0 3a 3d 20 31 36 3b 0a 20 20 20 20 20 20 77 31 20 3a 3d 20 72 65 73 64 65 76 20 3b 20 21 20 77 31 ┆:= 16; w1 := resdev ; ! w1┆
0x5e5e0…5e600 20 3d 20 61 64 64 72 65 73 73 20 28 72 65 73 75 6c 74 20 6e 61 6d 65 29 00 00 00 00 00 00 00 00 ┆ = address (result name) ┆
0x5e600…5e606 (755,) (0x324,0xbcd)
0x5e606…5e620 20 21 0a 20 20 20 20 20 20 63 70 74 72 20 3a 3d 20 77 32 20 3a 3d 20 31 3b 0a ┆ ! cptr := w2 := 1; ┆
0x5e620…5e640 20 20 20 20 20 20 69 66 20 77 30 20 3a 3d 20 73 74 61 74 65 3d 34 20 74 68 65 6e 0a 20 20 20 20 ┆ if w0 := state=4 then ┆
0x5e640…5e660 20 20 77 68 69 6c 65 20 77 32 20 3c 20 31 33 20 64 6f 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 ┆ while w2 < 13 do begin ┆
0x5e660…5e67e 20 20 20 20 20 20 20 77 30 3a 3d 28 63 68 61 72 28 77 32 29 29 2e 62 79 74 65 3b 0a 20 20 ┆ w0:=(char(w2)).byte; ┆
0x5e67e…5e684 (0x324,0xbce)
0x5e684…5e6a0 20 20 20 20 20 20 77 30 20 6c 73 68 69 66 74 20 77 33 3b 0a 20 20 20 20 20 20 20 20 ┆ w0 lshift w3; ┆
0x5e6a0…5e6c0 28 77 31 29 2e 77 6f 72 64 20 3a 3d 20 77 30 2b 28 77 31 29 2e 77 6f 72 64 3b 0a 20 20 20 20 20 ┆(w1).word := w0+(w1).word; ┆
0x5e6c0…5e6e0 20 20 20 77 33 2d 38 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 33 3c 30 20 74 68 65 6e 0a 20 20 ┆ w3-8; if w3<0 then ┆
0x5e6e0…5e6fc 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 31 36 ┆ begin w3:=16┆
0x5e6fc…5e702 (0x324,0xbcf)
0x5e702…5e720 3b 0a 20 20 20 20 20 20 20 20 20 20 77 31 2b 32 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b ┆; w1+2; end;┆
0x5e720…5e740 0a 20 20 20 20 20 20 20 20 63 70 74 72 3a 3d 77 32 3a 3d 63 70 74 72 2b 31 3b 0a 20 20 20 20 20 ┆ cptr:=w2:=cptr+1; ┆
0x5e740…5e760 20 20 20 77 30 20 65 78 74 72 61 63 74 20 38 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 ┆ w0 extract 8; end; ┆
0x5e760…5e77a 20 20 77 31 20 3a 3d 20 6f 75 74 64 65 76 3b 0a 20 20 20 20 20 20 77 32 20 3a ┆ w1 := outdev; w2 :┆
0x5e77a…5e780 (0x324,0xbd0)
0x5e780…5e7a0 3d 20 72 65 73 64 65 76 3b 0a 20 20 20 20 20 20 77 33 20 3a 3d 20 62 2e 63 75 72 72 65 6e 74 3b ┆= resdev; w3 := b.current;┆
0x5e7a0…5e7c0 0a 20 20 20 20 20 20 77 30 20 3a 3d 20 73 74 61 74 65 3b 0a 20 20 20 20 20 20 77 30 2d 34 3b 0a ┆ w0 := state; w0-4; ┆
0x5e7c0…5e7e0 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 0a 20 ┆ call w0 return; end; ┆
0x5e7e0…5e800 20 65 6e 64 3b 0a 0a 0a 0a 21 62 72 61 6e 63 68 20 31 2c 34 3b 0a 0a 20 00 00 00 00 00 00 00 00 ┆ end; !branch 1,4; ┆
0x5e800…5e806 (756,) (0x324,0xbd1)
0x5e806…5e820 20 62 6f 64 79 20 6f 66 20 6e 65 78 74 63 68 61 72 0a 20 20 62 65 67 69 6e 0a ┆ body of nextchar begin ┆
0x5e820…5e840 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 20 20 ┆ incode ref return; ┆
0x5e840…5e860 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 20 20 20 ┆ begin return:= w3; ┆
0x5e860…5e87e 69 66 20 77 31 3d 30 20 74 68 65 6e 0a 20 20 20 20 20 20 69 66 20 77 32 3d 28 77 33 29 2e ┆if w1=0 then if w2=(w3).┆
0x5e87e…5e884 (0x324,0xbd2)
0x5e884…5e8a0 73 74 70 20 74 68 65 6e 20 77 31 3a 3d 20 31 30 20 61 73 68 69 66 74 20 31 36 0a 20 ┆stp then w1:= 10 ashift 16 ┆
0x5e8a0…5e8c0 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 77 31 ┆ else begin w1┆
0x5e8c0…5e8e0 3a 3d 20 28 77 32 29 2e 77 6f 72 64 3b 0a 20 20 20 20 20 20 20 20 77 32 2b 32 3b 0a 20 20 20 20 ┆:= (w2).word; w2+2; ┆
0x5e8e0…5e8fc 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 77 30 3a 3d 20 30 3b 0a 20 20 20 20 20 20 66 ┆ end; w0:= 0; f┆
0x5e8fc…5e902 (0x324,0xbd3)
0x5e902…5e920 31 20 6c 73 68 69 66 74 20 38 3b 0a 20 20 20 20 20 20 77 33 3a 3d 20 72 65 74 75 72 6e 3b ┆1 lshift 8; w3:= return;┆
0x5e920…5e940 0a 20 20 20 20 65 6e 64 3b 0a 20 20 65 6e 64 3b 20 21 20 6e 65 78 74 63 68 61 72 20 21 0a 0a 0a ┆ end; end; ! nextchar ! ┆
0x5e940…5e960 0a 20 20 62 6f 64 79 20 6f 66 20 66 69 6e 64 5f 63 6f 6e 73 6f 6c 64 65 76 69 63 65 0a 20 20 63 ┆ body of find_consoldevice c┆
0x5e960…5e97a 6f 6d 6d 65 6e 74 20 66 69 6e 64 20 61 20 74 72 61 6e 73 70 6f 72 74 20 63 6f ┆omment find a transport co┆
0x5e97a…5e980 (0x324,0xbd4)
0x5e980…5e9a0 72 6f 75 74 69 6e 65 20 77 69 74 68 20 74 68 65 20 63 6f 6e 73 6f 6c 65 20 6e 61 6d 65 20 61 6e ┆routine with the console name an┆
0x5e9a0…5e9c0 64 20 64 65 76 69 63 65 20 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 67 69 76 65 6e 20 61 73 ┆d device name given as┆
0x5e9c0…5e9e0 20 70 61 72 61 6d 65 74 65 72 73 3b 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 6c 61 62 65 6c 20 66 ┆ parameters; begin label f┆
0x5e9e0…5ea00 6f 75 6e 64 3b 0a 20 20 20 20 69 6e 63 6f 64 65 0a 20 20 20 20 20 20 77 00 00 00 00 00 00 00 00 ┆ound; incode w ┆
0x5ea00…5ea06 (757,) (0x324,0xbd5)
0x5ea06…5ea20 6f 72 64 20 73 61 76 65 77 30 2c 20 73 61 76 65 77 31 2c 20 73 61 76 65 77 32 ┆ord savew0, savew1, savew2┆
0x5ea20…5ea40 2c 20 72 65 73 75 6c 74 3b 0a 20 20 20 20 20 20 72 65 66 20 72 65 74 75 72 6e 3b 0a 0a 20 20 20 ┆, result; ref return; ┆
0x5ea40…5ea60 20 20 20 62 79 74 65 20 64 68 6c 69 6e 6b 6e 6f 2c 20 68 6f 73 74 6e 6f 3b 0a 20 20 20 20 20 20 ┆ byte dhlinkno, hostno; ┆
0x5ea60…5ea7e 77 6f 72 64 20 68 6f 73 74 69 64 3b 0a 20 20 20 20 20 20 74 65 78 74 28 31 31 29 20 77 6f ┆word hostid; text(11) wo┆
0x5ea7e…5ea84 (0x324,0xbd6)
0x5ea84…5eaa0 72 6b 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 ┆rkname; begin save┆
0x5eaa0…5eac0 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 3a 3d 20 77 ┆w0:= w0; savew1:= w1; savew2:= w┆
0x5eac0…5eae0 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 20 69 66 20 77 ┆2; return:= w3; if w┆
0x5eae0…5eafc 30 3a 3d 20 28 77 32 29 2e 77 6f 72 64 20 3d 20 30 20 74 68 65 6e 0a 20 20 20 20 20 ┆0:= (w2).word = 0 then ┆
0x5eafc…5eb02 (0x324,0xbd7)
0x5eb02…5eb20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 6e 6f 20 64 65 76 69 63 65 20 73 70 65 63 69 ┆ begin comment no device speci┆
0x5eb20…5eb40 66 69 63 61 74 69 6f 6e 3b 0a 20 20 20 20 20 20 20 20 77 31 3a 3d 20 30 3b 0a 20 20 20 20 20 20 ┆fication; w1:= 0; ┆
0x5eb40…5eb60 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 20 20 ┆ call w0 return; end; ┆
0x5eb60…5eb7a 20 20 20 6c 6f 6f 6b 75 70 72 65 6d 6f 74 65 28 2e 77 33 2e 2c 77 33 3a 3d 32 ┆ lookupremote(.w3.,w3:=2┆
0x5eb7a…5eb80 (0x324,0xbd8)
0x5eb80…5eba0 2c 77 31 2c 77 32 2c 77 30 2c 77 31 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 64 68 6c 69 6e 6b 6e ┆,w1,w2,w0,w1,w2:=address(dhlinkn┆
0x5eba0…5ebc0 6f 29 29 3b 0a 20 20 20 20 20 20 77 32 3a 3d 61 64 64 72 65 73 73 28 28 77 32 3a 3d 62 2e 63 75 ┆o)); w2:=address((w2:=b.cu┆
0x5ebc0…5ebe0 72 72 65 6e 74 29 2e 6f 70 72 5f 64 65 76 63 6f 6e 73 29 3b 0a 20 20 20 20 20 20 69 66 20 77 30 ┆rrent).opr_devcons); if w0┆
0x5ebe0…5ec00 20 3d 20 30 20 21 20 63 73 70 20 74 65 72 6d 69 6e 61 6c 20 21 20 74 68 00 00 00 00 00 00 00 00 ┆ = 0 ! csp terminal ! th ┆
0x5ec00…5ec06 (758,) (0x324,0xbd9)
0x5ec06…5ec20 65 6e 20 6d 6f 76 65 20 28 2e 77 33 2e 2c 77 30 3a 3d 38 2c 77 31 3a 3d 73 61 ┆en move (.w3.,w0:=8,w1:=sa┆
0x5ec20…5ec40 76 65 77 31 2c 77 32 29 20 65 6c 73 65 0a 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e ┆vew1,w2) else begin commen┆
0x5ec40…5ec60 74 20 6e 63 70 20 74 65 72 6d 69 6e 61 6c 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 20 65 78 ┆t ncp terminal; if w0 ex┆
0x5ec60…5ec7e 74 72 61 63 74 20 31 32 20 3d 20 30 20 74 68 65 6e 20 74 65 72 6d 69 6e 61 6c 69 64 20 28 ┆tract 12 = 0 then terminalid (┆
0x5ec7e…5ec84 (0x324,0xbda)
0x5ec84…5eca0 2e 77 33 2e 2c 77 30 3a 3d 64 68 6c 69 6e 6b 6e 6f 2c 77 32 29 20 65 6c 73 65 0a 20 ┆.w3.,w0:=dhlinkno,w2) else ┆
0x5eca0…5ecc0 20 20 20 20 20 20 20 28 77 32 29 2e 77 6f 72 64 3a 3d 20 77 30 3a 3d 20 2d 31 3b 0a 20 20 20 20 ┆ (w2).word:= w0:= -1; ┆
0x5ecc0…5ece0 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 69 66 20 77 30 3a 3d 20 73 61 76 65 77 30 20 3d 20 31 20 ┆ end; if w0:= savew0 = 1 ┆
0x5ece0…5ecfc 74 68 65 6e 20 77 30 3a 3d 20 32 3b 0a 0a 20 20 20 20 20 20 69 66 20 77 30 3c 3e 32 ┆then w0:= 2; if w0<>2┆
0x5ecfc…5ed02 (0x324,0xbdb)
0x5ed02…5ed20 20 21 20 6d 75 73 74 20 62 65 20 73 74 61 72 74 75 70 20 74 65 72 6d 69 6e 61 6c 20 21 20 ┆ ! must be startup terminal ! ┆
0x5ed20…5ed40 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 63 6f 6d 70 61 72 65 ┆then begin compare┆
0x5ed40…5ed60 28 2e 77 33 2e 2c 77 30 3a 3d 34 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 64 68 6c 69 6e 6b 6e 6f ┆(.w3.,w0:=4,w1:=address(dhlinkno┆
0x5ed60…5ed7a 29 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 62 2e 70 72 6f 63 5f 64 68 6c 69 6e ┆),w2:=address(b.proc_dhlin┆
0x5ed7a…5ed80 (0x324,0xbdc)
0x5ed80…5eda0 6b 6e 6f 29 29 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 30 3a ┆kno)); if w0<>0 then w0:┆
0x5eda0…5edc0 3d 20 2d 31 3b 0a 20 20 20 20 20 20 65 6e 64 20 65 6c 73 65 20 77 30 3a 3d 20 30 3b 0a 20 20 20 ┆= -1; end else w0:= 0; ┆
0x5edc0…5ede0 20 20 20 72 65 73 75 6c 74 3a 3d 20 77 30 3b 0a 0a 20 20 20 20 20 20 77 31 3a 3d 20 62 2e 74 63 ┆ result:= w0; w1:= b.tc┆
0x5ede0…5ee00 70 6f 6f 6c 5f 66 73 74 3b 0a 20 20 20 20 20 20 77 68 69 6c 65 20 77 31 00 00 00 00 00 00 00 00 ┆pool_fst; while w1 ┆
0x5ee00…5ee06 (759,) (0x324,0xbdd)
0x5ee06…5ee20 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 ┆<b.tcpool_top do beg┆
0x5ee20…5ee40 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 3d 38 2c 77 31 ┆in compare(.w3.,w0:=8,w1┆
0x5ee40…5ee60 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 73 61 76 65 77 ┆+!position(tc_devname),w2:=savew┆
0x5ee60…5ee7e 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 5f 64 65 ┆2); w1-!position(tc_de┆
0x5ee7e…5ee84 (0x324,0xbde)
0x5ee84…5eea0 76 6e 61 6d 65 29 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3d 30 20 74 68 65 6e ┆vname); if w0=0 then┆
0x5eea0…5eec0 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 3d ┆ begin if w0:=┆
0x5eec0…5eee0 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 62 65 67 69 6e ┆savew0>4999 then begin┆
0x5eee0…5eefc 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 6f ┆ comment w0=hostident , igno┆
0x5eefc…5ef02 (0x324,0xbdf)
0x5ef02…5ef20 72 65 20 74 63 5f 64 65 76 63 6f 6e 73 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 ┆re tc_devcons; if ┆
0x5ef20…5ef40 77 30 3d 28 77 31 29 2e 74 63 5f 68 6f 73 74 69 64 20 74 68 65 6e 20 67 6f 74 6f 20 66 6f 75 6e ┆w0=(w1).tc_hostid then goto foun┆
0x5ef40…5ef60 64 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 20 0a 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 ┆d; end else┆
0x5ef60…5ef7a 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 73 61 76 65 77 30 20 3e ┆ if w0:=savew0 >┆
0x5ef7a…5ef80 (0x324,0xbe0)
0x5ef80…5efa0 20 32 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 ┆ 2 then begin comment ┆
0x5efa0…5efc0 77 30 3d 68 6f 73 74 6e 6f 20 2c 20 63 73 70 20 64 65 76 69 63 65 3b 0a 20 20 20 20 20 20 20 20 ┆w0=hostno , csp device; ┆
0x5efc0…5efe0 20 20 20 20 69 66 20 77 30 20 3d 20 28 77 31 29 2e 74 63 5f 68 6f 73 74 6e 6f 20 74 68 65 6e 20 ┆ if w0 = (w1).tc_hostno then ┆
0x5efe0…5f000 67 6f 74 6f 20 66 6f 75 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 00 00 00 00 00 00 00 00 ┆goto found; en ┆
0x5f000…5f006 (760,) (0x324,0xbe1)
0x5f006…5f020 64 0a 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 ┆d else ┆
0x5f020…5f040 20 69 66 20 77 30 3a 3d 73 61 76 65 77 30 3d 31 20 21 20 6c 6f 63 61 6c 20 64 65 76 69 63 65 20 ┆ if w0:=savew0=1 ! local device ┆
0x5f040…5f060 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 20 20 20 ┆! then begin ┆
0x5f060…5f07e 20 20 20 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 ┆ if w0:=(w1).tc_hostno=0 the┆
0x5f07e…5f084 (0x324,0xbe2)
0x5f084…5f0a0 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 0a ┆n goto found; end ┆
0x5f0a0…5f0c0 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 62 65 67 69 6e 0a 20 ┆ else begin ┆
0x5f0c0…5f0e0 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 20 28 77 31 29 2e 74 63 5f 68 6f 73 74 6e ┆ if w0:= (w1).tc_hostn┆
0x5f0e0…5f0fc 6f 20 3c 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 ┆o <> 0 then begi┆
0x5f0fc…5f102 (0x324,0xbe3)
0x5f102…5f120 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 20 20 20 20 20 ┆n comment remote device; ┆
0x5f120…5f140 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 20 28 77 31 29 2e 74 63 5f 68 6f 73 74 69 64 20 ┆ if w0:= (w1).tc_hostid ┆
0x5f140…5f160 3d 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 20 63 6f 6d ┆= 0 then begin com┆
0x5f160…5f17a 6d 65 6e 74 20 63 73 70 20 64 65 76 69 63 65 3b 0a 20 20 20 20 20 20 20 20 20 ┆ment csp device; ┆
0x5f17a…5f180 (0x324,0xbe4)
0x5f180…5f1a0 20 20 20 20 20 20 20 77 30 3a 3d 20 68 6f 73 74 6e 6f 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ w0:= hostno; ┆
0x5f1a0…5f1c0 20 20 20 20 77 30 20 2d 20 28 77 31 29 2e 74 63 5f 68 6f 73 74 6e 6f 3b 0a 20 20 20 20 20 20 20 ┆ w0 - (w1).tc_hostno; ┆
0x5f1c0…5f1e0 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 62 65 ┆ end else be┆
0x5f1e0…5f200 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 6e 63 70 20 64 65 76 69 63 65 3b 0a 00 00 00 00 00 00 00 00 ┆gin comment ncp device; ┆
0x5f200…5f206 (761,) (0x324,0xbe5)
0x5f206…5f220 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 20 68 6f 73 74 69 ┆ w0:= hosti┆
0x5f220…5f240 64 20 2d 20 28 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 ┆d - (w1).tc_hostid; ┆
0x5f240…5f260 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 30 3d 30 20 74 68 65 ┆ end; if w0=0 the┆
0x5f260…5f27e 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 ┆
0x5f27e…5f284 (0x324,0xbe6)
0x5f284…5f2a0 20 20 20 20 20 20 20 20 77 31 2b 21 70 6f 73 69 74 69 6f 6e 28 74 63 5f 64 65 76 63 ┆ w1+!position(tc_devc┆
0x5f2a0…5f2c0 6f 6e 73 29 3b 0a 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 ┆ons); w2:= addre┆
0x5f2c0…5f2e0 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 6f 6e 73 29 3b ┆ss((w2:=b.current).opr_devcons);┆
0x5f2e0…5f2fc 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6d 70 61 72 65 20 28 2e 77 ┆ compare (.w┆
0x5f2fc…5f302 (0x324,0xbe7)
0x5f302…5f320 33 2e 2c 77 30 3a 3d 38 2c 20 77 31 2c 20 77 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆3.,w0:=8, w1, w2); ┆
0x5f320…5f340 20 20 20 20 20 77 31 2d 21 70 6f 73 69 74 69 6f 6e 28 74 63 5f 64 65 76 63 6f 6e 73 29 3b 0a 20 ┆ w1-!position(tc_devcons); ┆
0x5f340…5f360 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 67 6f 74 6f ┆ if w0=0 then goto┆
0x5f360…5f37a 20 66 6f 75 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b ┆ found; end;┆
0x5f37a…5f380 (0x324,0xbe8)
0x5f380…5f3a0 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;┆
0x5f3a0…5f3c0 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 28 77 31 29 ┆ end; w1:= (w1)┆
0x5f3c0…5f3e0 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 20 20 77 31 ┆.tc_nexttc; end; w1┆
0x5f3e0…5f400 3a 3d 20 30 3b 0a 66 6f 75 6e 64 3a 0a 0a 20 20 20 20 20 20 69 66 20 77 00 00 00 00 00 00 00 00 ┆:= 0; found: if w ┆
0x5f400…5f406 (762,) (0x324,0xbe9)
0x5f406…5f420 30 3a 3d 28 77 31 29 2e 74 63 5f 63 72 65 61 74 65 64 3d 30 20 74 68 65 6e 20 ┆0:=(w1).tc_created=0 then ┆
0x5f420…5f440 2d 28 77 31 29 3b 0a 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 ┆-(w1); w0:= result; w2:= s┆
0x5f440…5f460 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; ┆
0x5f460…5f47e 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 ┆ call w0 return; end; ┆
0x5f47e…5f484 (0x324,0xbea)
0x5f484…5f4a0 65 6e 64 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 ┆end; body of getparams ┆
0x5f4a0…5f4c0 20 62 65 67 69 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 ┆ begin procedure idcommand┆
0x5f4c0…5f4e0 20 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 ┆ (.w3.; ┆
0x5f4e0…5f4fc 20 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 ┆ w0 ; ! return: command no┆
0x5f4fc…5f502 (0x324,0xbeb)
0x5f502…5f520 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 77 ┆ ! w┆
0x5f520…5f540 31 20 3b 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 ┆1 ; ! call: ref. command ! ┆
0x5f540…5f560 20 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 ┆ w2); ! ca┆
0x5f560…5f57a 6c 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 ┆ll: ref. cmdtable! p┆
0x5f57a…5f580 (0x324,0xbec)
0x5f580…5f5a0 72 6f 63 65 64 75 72 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 ┆rocedure delivercmd (.w3.; ┆
0x5f5a0…5f5c0 20 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 ┆ ref param, ┆
0x5f5c0…5f5e0 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 61 72 61 6d 64 65 73 ┆ paramdes┆
0x5f5e0…5f600 63 2c 0a 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 ┆c, ┆
0x5f600…5f606 (763,) (0x324,0xbed)
0x5f606…5f620 20 20 20 20 20 20 73 74 61 63 6b 70 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ stackp, ┆
0x5f620…5f640 20 20 20 20 20 20 20 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 ┆ stdesc); inc┆
0x5f640…5f660 6f 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 ┆ode double savef2; ┆
0x5f660…5f67e 20 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 ┆ ref cmdref; w┆
0x5f67e…5f684 (0x324,0xbee)
0x5f684…5f6a0 6f 72 64 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 ┆ord sep, type; w┆
0x5f6a0…5f6c0 6f 72 64 20 20 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 ┆ord txt1,txt2,txt3,txt4;┆
0x5f6c0…5f6e0 0a 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 ┆ double value; byt┆
0x5f6e0…5f6fc 65 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 ┆e command, params; ┆
0x5f6fc…5f702 (0x324,0xbef)
0x5f702…5f720 20 20 20 20 77 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 ┆ word sign, rem┆
0x5f720…5f740 6f 74 65 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 ┆ote; byte state, action; ┆
0x5f740…5f760 20 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 ┆ word char, ┆
0x5f760…5f77a 20 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 ┆ stop_a, ┆
0x5f77a…5f780 (0x324,0xbf0)
0x5f780…5f7a0 20 20 20 20 20 20 20 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 ┆ partial; ref ┆
0x5f7a0…5f7c0 20 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 ┆ buf_a, st┆
0x5f7c0…5f7e0 61 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 ┆ack, parmstack;┆
0x5f7e0…5f800 0a 20 20 20 20 74 65 78 74 20 28 36 29 0a 20 20 20 20 73 74 61 72 74 20 00 00 00 00 00 00 00 00 ┆ text (6) start ┆
0x5f800…5f806 (764,) (0x324,0xbf1)
0x5f806…5f820 3a 3d 20 20 20 22 73 74 61 72 74 22 2c 0a 20 20 20 20 73 6b 69 70 20 20 3a 3d ┆:= "start", skip :=┆
0x5f820…5f840 20 20 20 22 73 6b 69 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 ┆ "skip", repeat:= "repea┆
0x5f840…5f860 22 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 ┆", restar:= "resta", s┆
0x5f860…5f87e 74 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 ┆top := "stop", kill :=┆
0x5f87e…5f884 (0x324,0xbf2)
0x5f884…5f8a0 20 20 20 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 ┆ "kill", suspen:= "s┆
0x5f8a0…5f8c0 75 73 70 65 22 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 ┆uspe", drain := "drain", ┆
0x5f8c0…5f8e0 20 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 ┆ reques:= "reque", signu┆
0x5f8e0…5f8fc 70 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 ┆p:= "signu", signof:= ┆
0x5f8fc…5f902 (0x324,0xbf3)
0x5f902…5f920 20 20 22 73 69 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 ┆ "signo", select:= "sel┆
0x5f920…5f940 65 63 22 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 ┆ec", route := "route", ┆
0x5f940…5f960 20 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 ┆ triang:= "trian", displa:┆
0x5f960…5f97a 3d 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 ┆= "displ", emptyc:= ┆
0x5f97a…5f980 (0x324,0xbf4)
0x5f980…5f9a0 20 20 22 22 3b 0a 20 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 ┆ ""; array (1:250) cmdtable┆
0x5f9a0…5f9c0 20 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 ┆ of byte := ! delimeter: 0=no┆
0x5f9c0…5f9e0 74 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 ┆thing follows; 4=space; 8=puntua┆
0x5f9e0…5fa00 74 69 6f 6e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 0a 20 20 00 00 00 00 00 00 00 00 ┆tion ! ┆
0x5fa00…5fa06 (765,) (0x324,0xbf5)
0x5fa06…5fa20 20 21 20 70 61 72 61 6d 65 74 65 72 3a 20 32 3d 75 6e 73 2e 69 6e 74 3b 33 3d ┆ ! parameter: 2=uns.int;3=┆
0x5fa20…5fa40 6e 65 67 2e 69 6e 74 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 ┆neg.int.;4=name;5='64'name ┆
0x5fa40…5fa60 20 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 ┆ ! ! first delimet┆
0x5fa60…5fa7e 65 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 ┆er is allways a space.........┆
0x5fa7e…5fa84 (0x324,0xbf6)
0x5fa84…5faa0 2e 2e 2e 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 ┆....................... ! ┆
0x5faa0…5fac0 20 21 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 ┆ ! :<---------------------------┆
0x5fac0…5fae0 2d 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 ┆----------- command number.....┆
0x5fae0…5fafc 2e 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 ┆..... ! ! :<----------┆
0x5fafc…5fb02 (0x324,0xbf7)
0x5fb02…5fb20 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 20 20 6e 75 6d ┆------------------------- num┆
0x5fb20…5fb40 62 65 72 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 ┆ber of params........ ! ! ┆
0x5fb40…5fb60 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 2d 2d ┆ :<--------------------------┆
0x5fb60…5fb7a 2d 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 ┆----- alt spec. exist ?..┆
0x5fb7a…5fb80 (0x324,0xbf8)
0x5fb80…5fba0 2e 2e 2e 2e 2e 20 21 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 ┆..... ! ! :<-------┆
0x5fba0…5fbc0 2d 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 ┆--------------------- 1st param┆
0x5fbc0…5fbe0 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 20 ┆eter........... ! ! ┆
0x5fbe0…5fc00 20 20 20 20 20 3a 3c 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 00 00 00 00 00 00 00 00 ┆ :<----------------- ┆
0x5fc00…5fc06 (766,) (0x324,0xbf9)
0x5fc06…5fc20 2d 2d 2d 2d 2d 2d 2d 20 20 32 6e 64 20 64 65 6c 69 6d 65 74 65 72 2e 2e 2e 2e ┆------- 2nd delimeter....┆
0x5fc20…5fc40 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 20 20 20 ┆....... ! ! ┆
0x5fc40…5fc60 3a 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 ┆:<--------------------- 2nd par┆
0x5fc60…5fc7e 61 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 ┆ameter........... ! ! ┆
0x5fc7e…5fc84 (0x324,0xbfa)
0x5fc84…5fca0 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 ┆ :<----------┆
0x5fca0…5fcc0 2d 2d 2d 2d 2d 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 ┆------- 3rd delimeter..........┆
0x5fcc0…5fce0 2e 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 ┆. ! ! ┆
0x5fce0…5fcfc 20 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 ┆ :<-------------- 3rd param┆
0x5fcfc…5fd02 (0x324,0xbfb)
0x5fd02…5fd20 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 ┆eter........... ! ! ┆
0x5fd20…5fd40 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 2d 2d 2d 2d 2d 2d ┆ :<---------┆
0x5fd40…5fd60 2d 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 ┆- 4th delimeter........... ! ┆
0x5fd60…5fd7a 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 ┆ ! ┆
0x5fd7a…5fd80 (0x324,0xbfc)
0x5fd80…5fda0 20 20 20 20 20 20 20 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 ┆ :<------- 4th parameter┆
0x5fda0…5fdc0 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 20 20 20 ┆........... ! ! ┆
0x5fdc0…5fde0 20 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 ┆ :<--- 5th┆
0x5fde0…5fe00 20 64 65 6c 69 6d 65 74 65 72 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 20 21 0a 00 00 00 00 00 00 00 00 ┆ delimeter........... ! ┆
0x5fe00…5fe06 (767,) (0x324,0xbfd)
0x5fe06…5fe20 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 ┆ ! ┆
0x5fe20…5fe40 20 20 20 20 20 20 20 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 ┆ :< 5th paramet┆
0x5fe40…5fe60 65 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 ┆er........... ! 1 3 1 5┆
0x5fe60…5fe7e 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 ┆ 8 2 8 2 0 0 0 0 !┆
0x5fe7e…5fe84 (0x324,0xbfe)
0x5fe84…5fea0 20 53 54 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 ┆ START <dev>.hno.hid ! ┆
0x5fea0…5fec0 20 20 20 20 20 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 ┆ 1 4 0 5 8 2 8 2 ┆
0x5fec0…5fee0 20 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 ┆ 4 2 0 0 ! START <dev>.hno.h┆
0x5fee0…5fefc 69 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 ┆id n ! 2 4 0 5 ┆
0x5fefc…5ff02 (0x324,0xbff)
0x5ff02…5ff20 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 ┆ 8 2 8 2 4 2 0 0 ! S┆
0x5ff20…5ff40 4b 49 50 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 ┆KIP <dev>.hno.hid n ! 3┆
0x5ff40…5ff60 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 32 20 ┆ 4 0 5 8 2 8 2 4 2 ┆
0x5ff60…5ff7a 20 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 ┆ 0 0 ! REAPEAT <dev>.hno┆
0x5ff7a…5ff80 (0x324,0xc00)
0x5ff80…5ffa0 2e 68 69 64 20 6e 20 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 ┆.hid n ! 4 3 0 5 8 ┆
0x5ffa0…5ffc0 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 52 45 53 54 41 52 54 ┆2 8 2 0 0 0 0 ! RESTART┆
0x5ffc0…5ffe0 20 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 ┆ <dev>.hno.hid ! 5 3 ┆
0x5ffe0…60000 30 20 20 35 20 20 20 38 20 20 32 20 20 20 38 20 20 32 20 20 20 30 20 20 00 00 00 00 00 00 00 00 ┆0 5 8 2 8 2 0 ┆
0x60000…60006 (768,) (0x324,0xc01)
0x60006…60020 30 20 20 20 30 20 20 30 20 21 20 53 54 4f 50 20 3c 64 65 76 3e 2e 68 6e 6f 2e ┆0 0 0 ! STOP <dev>.hno.┆
0x60020…60040 68 69 64 20 20 20 20 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 ┆hid ! 6 3 0 5 8┆
0x60040…60060 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 4b 49 4c 4c 20 ┆ 2 8 2 0 0 0 0 ! KILL ┆
0x60060…6007e 3c 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 ┆<dev>.hno.hid ! 7 ┆
0x6007e…60084 (0x324,0xc02)
0x60084…600a0 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 30 20 20 ┆3 0 5 8 2 8 2 0 ┆
0x600a0…600c0 30 20 20 20 30 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 ┆0 0 0 ! SUSPEND <dev>.hno.hid┆
0x600c0…600e0 20 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 ┆ ! 8 3 0 5 8 2 ┆
0x600e0…600fc 38 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 ┆8 2 0 0 0 0 ! DRAIN <┆
0x600fc…60102 (0x324,0xc03)
0x60102…60120 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 39 20 20 30 20 ┆dev>.hno.hid ! 9 0 ┆
0x60120…60140 20 20 31 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 ┆ 1 0 0 0 0 0 0 0 0 ┆
0x60140…60160 20 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 ┆ 0 ! REQUEST ! ┆
0x60160…6017a 20 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 ┆ 9 3 0 5 8 2 ┆
0x6017a…60180 (0x324,0xc04)
0x60180…601a0 38 20 20 32 20 20 20 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 ┆8 2 0 0 0 0 ! REQUEST(dev┆
0x601a0…601c0 2e 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 ┆.hno.hid/all ! 10 4 0 5┆
0x601c0…601e0 20 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 ┆ 8 2 8 2 4 2 0 0 ! S┆
0x601e0…60200 49 47 4e 55 50 20 3c 64 65 76 3e 2e 68 6e 6f 2e 68 69 64 20 6e 20 20 20 00 00 00 00 00 00 00 00 ┆IGNUP <dev>.hno.hid n ┆
0x60200…60206 (769,) (0x324,0xc05)
0x60206…60220 21 0a 20 20 20 20 31 31 20 20 33 20 20 20 30 20 20 35 20 20 20 38 20 20 32 20 ┆! 11 3 0 5 8 2 ┆
0x60220…60240 20 20 38 20 20 32 20 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 ┆ 8 2 0 0 0 0 ! SIGNOFF <┆
0x60240…60260 64 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 ┆dev>.hno.hid ! 12 3 1 ┆
0x60260…6027e 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 ┆ 5 8 2 8 2 0 0 0 0┆
0x6027e…60284 (0x324,0xc06)
0x60284…602a0 20 21 20 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 ┆ ! SELECT <dev>.hno.hid ┆
0x602a0…602c0 21 0a 20 20 20 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 ┆! 12 4 1 5 8 2 8 2┆
0x602c0…602e0 20 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 ┆ 4 4 0 0 ! SELECT <dev>.hn┆
0x602e0…602fc 6f 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 ┆o.hid <ps>! 12 5 0 5┆
0x602fc…60302 (0x324,0xc07)
0x60302…60320 20 20 20 38 20 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 ┆ 8 2 8 2 4 4 8 4 !┆
0x60320…60340 20 53 45 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 ┆ SEL <dev>.hn.hid <gr>.<q>! ┆
0x60340…60360 31 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 ┆13 4 0 5 8 2 8 2 4 ┆
0x60360…6037a 34 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 ┆4 0 0 ! ROUTE <dev>.hno┆
0x6037a…60380 (0x324,0xc08)
0x60380…603a0 2e 68 69 64 20 3c 65 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 ┆.hid <ent>! 14 4 0 5 8┆
0x603a0…603c0 20 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 ┆ 2 8 2 4 4 0 0 ! TRIAN┆
0x603c0…603e0 47 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 ┆G <dev>.hno.hid <b> ! 15 0 ┆
0x603e0…60400 20 20 30 20 20 30 20 20 20 30 20 20 30 20 20 20 30 20 20 30 20 20 20 30 00 00 00 00 00 00 00 00 ┆ 0 0 0 0 0 0 0 ┆
0x60400…60406 (770,) (0x324,0xc09)
0x60406…60420 20 20 30 20 20 20 30 20 20 30 20 21 20 44 49 53 50 4c 41 59 20 20 20 20 20 20 ┆ 0 0 0 ! DISPLAY ┆
0x60420…60440 20 20 20 20 20 20 20 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 ┆ ! -1 -1 -1 -1 ┆
0x60440…60460 2d 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 ┆-1 -1 -1 -1 -1 -1 -1 -1;! end┆
0x60460…6047e 20 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 ┆ syntax table. ! a┆
0x6047e…60484 (0x324,0xc0a)
0x60484…604a0 72 72 61 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 ┆rray (1:128) state_actio┆
0x604a0…604c0 6e 20 6f 66 20 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 ┆n of byte := ! st/class ns ac┆
0x604c0…604e0 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 20 20 6e 73 20 61 63 ┆t ns act ns act ns act ns ac┆
0x604e0…604fc 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 0a 20 20 ┆t ns act ns act ns act ┆
0x604fc…60502 (0x324,0xc0b)
0x60502…60520 20 20 20 20 20 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 ┆ space sign "."┆
0x60520…60540 20 20 20 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 ┆ "@" digit alfa new┆
0x60540…60560 6c 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 ┆line illegal ! ! 1.begin ! 1 1┆
0x60560…6057a 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 20 ┆ 2 11 3 11 4 11 ┆
0x6057a…60580 (0x324,0xc0c)
0x60580…605a0 20 20 35 20 31 31 20 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 ┆ 5 11 2 2 0 6 8 11 ┆
0x605a0…605c0 0a 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 ┆ ! 2.in name! 4 3 2 11 5 ┆
0x605c0…605e0 20 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 ┆ 4 4 11 2 5 2 5 0 ┆
0x605e0…60600 20 36 20 20 20 20 38 20 31 31 20 20 0a 21 20 33 2e 69 6e 20 6e 75 6d 62 00 00 00 00 00 00 00 00 ┆ 6 8 11 ! 3.in numb ┆
0x60600…60606 (771,) (0x324,0xc0d)
0x60606…60620 21 20 34 20 20 33 20 20 20 20 32 20 31 31 20 20 20 20 35 20 20 34 20 20 20 20 ┆! 4 3 2 11 5 4 ┆
0x60620…60640 34 20 31 31 20 20 20 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 ┆4 11 3 9 6 11 0 6 ┆
0x60640…60660 38 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 ┆8 11 ! 4.aft spc! 4 1 6 10┆
0x60660…6067e 20 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 ┆ 5 4 7 8 3 7 2 ┆
0x6067e…60684 (0x324,0xc0e)
0x60684…606a0 20 32 20 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 ┆ 2 0 6 8 11 ! 5.aft┆
0x606a0…606c0 20 22 2e 22 21 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 ┆ "."! 5 11 6 10 3 11 7 ┆
0x606c0…606e0 20 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 ┆ 8 3 7 2 2 7 11 8 ┆
0x606e0…606fc 31 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 ┆11 ! 6.aft sgn! 6 11 2 ┆
0x606fc…60702 (0x324,0xc0f)
0x60702…60720 31 31 20 20 20 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 ┆11 3 11 4 11 3 7 ┆
0x60720…60740 36 20 31 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 ┆6 11 7 11 8 11 ! 7.aft "┆
0x60740…60760 40 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 ┆@"! 1 11 2 11 3 11 4 11┆
0x60760…6077a 20 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 ┆ 5 11 2 2 7 11 ┆
0x6077a…60780 (0x324,0xc10)
0x60780…607a0 20 20 38 20 31 31 20 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 ┆ 8 11 ; begin cmd┆
0x607a0…607c0 72 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 ┆ref := w3; savef2 := f2; ┆
0x607c0…607e0 20 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 ┆ w0 := cmdref.stoppntr; ┆
0x607e0…60800 20 20 73 74 6f 70 5f 61 20 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 77 30 00 00 00 00 00 00 00 00 ┆ stop_a := w0; w0 ┆
0x60800…60806 (772,) (0x324,0xc11)
0x60806…60820 20 3a 3d 20 63 6d 64 72 65 66 2e 62 75 66 70 6e 74 72 3b 0a 20 20 20 20 20 20 ┆ := cmdref.bufpntr; ┆
0x60820…60840 62 75 66 5f 61 20 3a 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 ┆buf_a := w0; stack := w0 ┆
0x60840…60860 3a 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 ┆:= cmdref.paramarea; parms┆
0x60860…6087e 74 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 ┆tack := w0 := cmdref.paramtype┆
0x6087e…60884 (0x324,0xc12)
0x60884…608a0 3b 0a 0a 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 ┆; w0 := 0; type :┆
0x608a0…608c0 3d 20 77 30 3b 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 ┆= w0; sep := w0; remote ┆
0x608c0…608e0 3a 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 ┆:= w0; sign := w0; par┆
0x608e0…608fc 74 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 ┆tial := w0; command:= w0┆
0x608fc…60902 (0x324,0xc13)
0x60902…60920 20 3a 3d 20 2d 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 ┆ := - 1; params := w0 := -┆
0x60920…60940 20 31 3b 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 ┆ 1; state := w1 := 1; wh┆
0x60940…60960 69 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 ┆ile w1 > 0 do begin ┆
0x60960…6097a 77 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 ┆w0 := 0; while w0 = ┆
0x6097a…60980 (0x324,0xc14)
0x60980…609a0 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 6e 65 78 74 63 68 61 ┆0 do begin nextcha┆
0x609a0…609c0 72 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 ┆r (.w3.,w3:=stop_a,w0,w1:=partia┆
0x609c0…609e0 6c 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 ┆l,w2:=buf_a); partial :=┆
0x609e0…60a00 20 77 31 3b 0a 20 20 20 20 20 20 20 20 62 75 66 5f 61 20 20 20 3a 3d 20 00 00 00 00 00 00 00 00 ┆ w1; buf_a := ┆
0x60a00…60a06 (773,) (0x324,0xc15)
0x60a06…60a20 77 32 3b 0a 20 20 20 20 20 20 20 20 63 68 61 72 20 20 20 20 3a 3d 20 77 30 3b ┆w2; char := w0;┆
0x60a20…60a40 0a 20 20 20 20 20 20 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 ┆ end; w2 := char; ┆
0x60a40…60a60 20 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 ┆ if w2 > 96 then if w2 < 126 ┆
0x60a60…60a7e 74 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 ┆then w1 := 6 ! alfa ! ┆
0x60a7e…60a84 (0x324,0xc16)
0x60a84…60aa0 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 ┆ else w1 := 8 else if ┆
0x60aa0…60ac0 77 32 20 3d 20 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 ┆w2 = 64 then w┆
0x60ac0…60ae0 31 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 ┆1 := 4 ! "@" ! else ┆
0x60ae0…60afc 20 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 ┆ if w2 > 47 then if w2 < ┆
0x60afc…60b02 (0x324,0xc17)
0x60b02…60b20 35 38 20 74 68 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 ┆58 then w1 := 5 ! digit ! ┆
0x60b20…60b40 20 20 20 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 ┆ else w1 := 8 else if w┆
0x60b40…60b60 32 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 ┆2 = 32 then w1┆
0x60b60…60b7a 20 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 ┆ := 1 ! space ! els┆
0x60b7a…60b80 (0x324,0xc18)
0x60b80…60ba0 65 0a 20 20 20 20 20 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 ┆e if w2 = 45 then ┆
0x60ba0…60bc0 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 21 0a 20 20 20 ┆ w1 := 2 ! sign ! ┆
0x60bc0…60be0 20 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 ┆ else if w2 = 43 then ┆
0x60be0…60c00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 20 3a 3d 20 32 20 00 00 00 00 00 00 00 00 ┆ w1 := 2 ┆
0x60c00…60c06 (774,) (0x324,0xc19)
0x60c06…60c20 21 20 20 73 69 67 6e 20 20 21 0a 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 ┆! sign ! else ┆
0x60c20…60c40 20 20 69 66 20 77 32 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 ┆ if w2 = 46 then ┆
0x60c40…60c60 20 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 ┆ w1 := 3 ! pkt. ! els┆
0x60c60…60c7e 65 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 ┆e if w2 = 10 then ┆
0x60c7e…60c84 (0x324,0xc1a)
0x60c84…60ca0 20 20 20 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 ┆ w1 := 7 ! nline┆
0x60ca0…60cc0 20 21 0a 20 20 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 ┆ ! else ┆
0x60cc0…60ce0 20 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 ┆ w1 := 8;! error ! ┆
0x60ce0…60cfc 20 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 ┆ ! w2 = char value ! ┆
0x60cfc…60d02 (0x324,0xc1b)
0x60d02…60d20 20 20 20 20 20 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 ┆ ! w1 = char class ! ┆
0x60d20…60d40 20 20 20 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 ┆ char := w2; w1-1;w┆
0x60d40…60d60 31 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 ┆1 lshift 1;w1 + 1; w3 := s┆
0x60d60…60d7a 74 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 ┆tate ; w3-1; ┆
0x60d7a…60d80 (0x324,0xc1c)
0x60d80…60da0 20 20 20 20 20 20 20 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 ┆ ! state_act┆
0x60da0…60dc0 69 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 ┆ion := ! w┆
0x60dc0…60de0 33 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 ┆3 lshift 4 ; ┆
0x60de0…60e00 21 20 20 73 74 61 74 65 5f 61 63 74 69 6f 6e 20 28 20 73 74 61 74 65 2c 00 00 00 00 00 00 00 00 ┆! state_action ( state, ┆
0x60e00…60e06 (775,) (0x324,0xc1d)
0x60e06…60e20 63 6c 61 73 73 29 3b 20 21 0a 20 20 20 20 20 20 77 31 20 2b 20 77 33 20 3b 0a ┆class); ! w1 + w3 ; ┆
0x60e20…60e40 20 20 20 20 20 20 73 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 ┆ state := w0 := (state_acti┆
0x60e40…60e60 6f 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 ┆on(w3:=w1)).byte; action:=┆
0x60e60…60e7e 20 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 ┆ w0 := (state_action(w3:=w1+1)┆
0x60e7e…60e84 (0x324,0xc1e)
0x60e84…60ea0 29 2e 62 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 ┆).byte; case w1 := ac┆
0x60ea0…60ec0 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 69 ┆tion of begin begi┆
0x60ec0…60ee0 6e 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 ┆n end; ! em┆
0x60ee0…60efc 70 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 ┆pty action ┆
0x60efc…60f02 (0x324,0xc1f)
0x60f02…60f20 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 73 74 61 72 74 ┆ ! begin comment start┆
0x60f20…60f40 20 6e 61 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 ┆ name - action = 2; ┆
0x60f40…60f60 74 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 ┆type := w0 := 4; w2 ls┆
0x60f60…60f7a 68 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 ┆hift 16; txt1 :=┆
0x60f7a…60f80 (0x324,0xc20)
0x60f80…60fa0 20 77 32 3b 0a 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 ┆ w2; w0 := 0; ┆
0x60fa0…60fc0 20 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 ┆ txt2 := w0; txt3 := w0; txt4 :┆
0x60fc0…60fe0 3d 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 ┆= w0; params := w0 := ┆
0x60fe0…61000 70 61 72 61 6d 73 20 2b 20 31 3b 0a 0a 20 20 20 20 20 20 20 20 65 6e 64 00 00 00 00 00 00 00 00 ┆params + 1; end ┆
0x61000…61006 (776,) (0x324,0xc21)
0x61006…61020 3b 20 20 21 20 65 6e 64 20 73 74 61 72 74 20 6e 61 6d 65 20 20 20 2d 20 20 61 ┆; ! end start name - a┆
0x61020…61040 63 74 69 6f 6e 20 3d 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 ┆ction = 2! begin comment┆
0x61040…61060 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 3d 20 33 3b 0a 0a ┆ end with space - action = 3; ┆
0x61060…6107e 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 3d 20 30 20 ┆ if w0 := params = 0 ┆
0x6107e…61084 (0x324,0xc22)
0x61084…610a0 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 ┆then begin ┆
0x610a0…610c0 20 20 20 20 20 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 ┆ idcommand(.w3.,w0,w1:=addre┆
0x610c0…610e0 73 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 ┆ss(txt1),w2:=address(start)); ┆
0x610e0…610fc 20 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 ┆ command := w0; ┆
0x610fc…61102 (0x324,0xc23)
0x61102…61120 20 20 20 20 20 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 ┆ if w0 = 0 then state ┆
0x61120…61140 3a 3d 20 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 ┆:= w0; end else ┆
0x61140…61160 20 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 ┆ if w0 := params < 6 then ┆
0x61160…6117a 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 ┆ begin ┆
0x6117a…61180 (0x324,0xc24)
0x61180…611a0 77 33 20 3a 3d 20 73 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 ┆w3 := sep; w3 lshift┆
0x611a0…611c0 20 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 ┆ 12; w0 := type ; ┆
0x611c0…611e0 20 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 ┆ w0 or remote; w0 or si┆
0x611e0…61200 67 6e 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 20 3e 3d 00 00 00 00 00 00 00 00 ┆gn; if w0 >= ┆
0x61200…61206 (777,) (0x324,0xc25)
0x61206…61220 20 34 20 74 68 65 6e 20 77 31 20 3a 3d 20 61 64 64 72 65 73 73 20 28 74 78 74 ┆ 4 then w1 := address (txt┆
0x61220…61240 31 29 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 20 20 20 20 ┆1) else ┆
0x61240…61260 20 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 ┆ w1 := address (value) + 2; ┆
0x61260…6127e 20 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 ┆ w0+w3; ┆
0x6127e…61284 (0x324,0xc26)
0x61284…612a0 64 65 6c 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 ┆delivercmd (.w3.,w3:=w1,w3:=┆
0x612a0…612c0 77 30 2c 77 33 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 ┆w0,w3:=address(stack),w3:=addres┆
0x612c0…612e0 73 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 ┆s(parmstack)); if w0┆
0x612e0…612fc 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 ┆:= params=1 then ┆
0x612fc…61302 (0x324,0xc27)
0x61302…61320 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 2c 20 68 6f 73 ┆ begin comment add hostno, hos┆
0x61320…61340 74 69 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 3a 3d 62 2e 63 ┆tid; w1:= (w3:=b.c┆
0x61340…61360 75 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 ┆urrent).opr_hostno; ┆
0x61360…6137a 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 ┆ w0:=0; val┆
0x6137a…61380 (0x324,0xc28)
0x61380…613a0 75 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 6d ┆ue:= f1; delivercm┆
0x613a0…613c0 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 2c 77 33 3a 3d ┆d(.w3.,w3:=address(value)+2,w3:=┆
0x613c0…613e0 38 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 ┆8 lshift 12 + 2, ┆
0x613e0…61400 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 20 61 64 64 72 00 00 00 00 00 00 00 00 ┆ w3:= addr ┆
0x61400…61406 (778,) (0x324,0xc29)
0x61406…61420 65 73 73 28 73 74 61 63 6b 29 2c 77 33 3a 3d 20 61 64 64 72 65 73 73 28 70 61 ┆ess(stack),w3:= address(pa┆
0x61420…61440 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 77 31 3a 3d 20 28 77 ┆rmstack)); w1:= (w┆
0x61440…61460 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; ┆
0x61460…6147e 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 20 20 76 ┆ w0:=0; v┆
0x6147e…61484 (0x324,0xc2a)
0x61484…614a0 61 6c 75 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 ┆alue:= f1; del┆
0x614a0…614c0 69 76 65 72 63 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 ┆ivercmd(.w3.,w3:= address(value)┆
0x614c0…614e0 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, ┆
0x614e0…614fc 20 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 ┆ w3:= add┆
0x614fc…61502 (0x324,0xc2b)
0x61502…61520 72 65 73 73 28 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 ┆ress(stack),w3:= address(parms┆
0x61520…61540 74 61 63 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 ┆tack)); params:= w┆
0x61540…61560 30 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 ┆0:= 3; end; ! end ad┆
0x61560…6157a 64 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 ┆d hostspec to command ! ┆
0x6157a…61580 (0x324,0xc2c)
0x61580…615a0 20 20 20 20 20 20 20 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 ┆ sep := w0 := 4; ┆
0x615a0…615c0 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 ┆
0x615c0…615e0 20 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 ┆ command := w0 := - 2; ┆
0x615e0…61600 20 20 20 20 20 20 20 20 20 20 20 73 74 61 74 65 20 20 20 3a 3d 20 77 30 00 00 00 00 00 00 00 00 ┆ state := w0 ┆
0x61600…61606 (779,) (0x324,0xc2d)
0x61606…61620 20 3a 3d 20 20 20 30 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 ┆ := 0; end; ┆
0x61620…61640 20 20 20 20 20 20 20 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 ┆ type := w0 := 0; ┆
0x61640…61660 20 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 ┆ remote := w0; sign ┆
0x61660…6167e 3a 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 ┆:= w0; end; ┆
0x6167e…61684 (0x324,0xc2e)
0x61684…616a0 20 21 20 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 ┆ ! end end with space - ac┆
0x616a0…616c0 74 69 6f 6e 20 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 ┆tion = 3! begin comment ┆
0x616c0…616e0 65 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 ┆end with punctuation - action =┆
0x616e0…616fc 20 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 ┆ 4; if w0 := para┆
0x616fc…61702 (0x324,0xc2f)
0x61702…61720 6d 73 20 3e 20 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 ┆ms > 0 then begin ┆
0x61720…61740 20 20 20 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 ┆ if w0 < 5 then ┆
0x61740…61760 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 33 20 3a 3d 20 73 ┆ begin w3 := s┆
0x61760…6177a 65 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 ┆ep; w3 lshif┆
0x6177a…61780 (0x324,0xc30)
0x61780…617a0 74 20 31 32 3b 0a 20 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 ┆t 12; w0 := type; ┆
0x617a0…617c0 20 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 ┆ w0 or remote; ┆
0x617c0…617e0 20 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 ┆ w0 or sign; ┆
0x617e0…61800 20 20 20 20 69 66 20 77 30 20 3e 3d 20 34 20 74 68 65 6e 20 77 31 20 3a 00 00 00 00 00 00 00 00 ┆ if w0 >= 4 then w1 : ┆
0x61800…61806 (780,) (0x324,0xc31)
0x61806…61820 3d 20 61 64 64 72 65 73 73 28 74 78 74 31 29 20 65 6c 73 65 0a 20 20 20 20 20 ┆= address(txt1) else ┆
0x61820…61840 20 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 3a 3d 20 61 ┆ w1 := a┆
0x61840…61860 64 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 ┆ddress(value) + 2; ┆
0x61860…6187e 20 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 ┆ w0+w3; deliverc┆
0x6187e…61884 (0x324,0xc32)
0x61884…618a0 6d 64 28 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 ┆md(.w3.,w3:=w1,w3:=w0,w3:=ad┆
0x618a0…618c0 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 70 61 72 6d 73 74 61 ┆dress(stack),w3:=address(parmsta┆
0x618c0…618e0 63 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 ┆ck)); if w0:= para┆
0x618e0…618fc 6d 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 ┆ms=1 then begi┆
0x618fc…61902 (0x324,0xc33)
0x61902…61920 6e 0a 20 20 20 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 ┆n if w0<>remot┆
0x61920…61940 65 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 ┆e then begin ┆
0x61940…61960 20 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 ┆ command:= w0:= -1┆
0x61960…6197a 3b 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 ┆; state:┆
0x6197a…61980 (0x324,0xc34)
0x61980…619a0 3d 20 77 30 3a 3d 20 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 ┆= w0:= 0; end; ┆
0x619a0…619c0 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┆
0x619c0…619e0 64 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 ┆d else begin ┆
0x619e0…61a00 20 20 20 20 20 20 20 63 6f 6d 6d 61 6e 64 20 3a 3d 20 77 30 20 3a 3d 20 00 00 00 00 00 00 00 00 ┆ command := w0 := ┆
0x61a00…61a06 (781,) (0x324,0xc35)
0x61a06…61a20 2d 20 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 74 61 74 65 20 20 ┆- 2; state ┆
0x61a20…61a40 20 3a 3d 20 77 30 20 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 ┆ := w0 := 0; end; ┆
0x61a40…61a60 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 3d 20 77 30 20 3a ┆ end else state := w0 :┆
0x61a60…61a7e 3d 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 ┆= 8; sep := w0 := 8;┆
0x61a7e…61a84 (0x324,0xc36)
0x61a84…61aa0 0a 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 ┆ w0 := 0; ┆
0x61aa0…61ac0 20 20 74 79 70 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 ┆ type := w0; remote :┆
0x61ac0…61ae0 3d 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 ┆= w0; sign := w0; ┆
0x61ae0…61afc 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 70 75 ┆ end; ! end end with pu┆
0x61afc…61b02 (0x324,0xc37)
0x61b02…61b20 6e 63 74 75 61 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 ┆nctuation - action = 4 ! ┆
0x61b20…61b40 20 20 20 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 ┆ begin comment build name - ┆
0x61b40…61b60 61 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 ┆action = 5; w1 := 1; ┆
0x61b60…61b7a 20 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 ┆ while w1 > 0 do ┆
0x61b7a…61b80 (0x324,0xc38)
0x61b80…61ba0 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 63 61 73 65 ┆ begin case┆
0x61ba0…61bc0 20 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 ┆ w1 of begin ┆
0x61bc0…61be0 20 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 ┆ w0:=txt1; w┆
0x61be0…61c00 30 3a 3d 74 78 74 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 00 00 00 00 00 00 00 00 ┆0:=txt2; w ┆
0x61c00…61c06 (782,) (0x324,0xc39)
0x61c06…61c20 30 3a 3d 74 78 74 33 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 30 3a ┆0:=txt3; w0:┆
0x61c20…61c40 3d 74 78 74 34 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 ┆=txt4; end; ┆
0x61c40…61c60 20 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 ┆ if w0 = 0 then w┆
0x61c60…61c7e 33 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 ┆3 := 16 else if w0┆
0x61c7e…61c84 (0x324,0xc3a)
0x61c84…61ca0 20 20 7a 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 ┆ zeromask 8192 then w3 := ┆
0x61ca0…61cc0 38 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 65 72 6f 6d 61 ┆8 else if w0 zeroma┆
0x61cc0…61ce0 73 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 ┆sk 32 then w3 := 0 else ┆
0x61ce0…61cfc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x61cfc…61d02 (0x324,0xc3b)
0x61d02…61d20 20 20 20 20 20 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 ┆ w3 := -1; if ┆
0x61d20…61d40 77 33 20 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 ┆w3 > -1 then begin ┆
0x61d40…61d60 20 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 ┆ w2 lshift w3; ┆
0x61d60…61d7a 20 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 ┆ w0 or w2; ┆
0x61d7a…61d80 (0x324,0xc3c)
0x61d80…61da0 20 20 20 20 20 20 20 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 ┆ case w1 of ┆
0x61da0…61dc0 62 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 ┆begin txt1 := w0┆
0x61dc0…61de0 3b 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 ┆; txt2 := w0; ┆
0x61de0…61e00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 78 74 33 20 3a 3d 20 77 30 00 00 00 00 00 00 00 00 ┆ txt3 := w0 ┆
0x61e00…61e06 (783,) (0x324,0xc3d)
0x61e06…61e20 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 33 20 3d 20 ┆; if w3 = ┆
0x61e20…61e40 30 20 74 68 65 6e 20 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 ┆0 then state := w0 := 8 else txt┆
0x61e40…61e60 34 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 ┆4 := w0; end; ┆
0x61e60…61e7e 20 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 ┆ w1 := - 1; ┆
0x61e7e…61e84 (0x324,0xc3e)
0x61e84…61ea0 20 20 20 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 ┆ end; w1+1; ┆
0x61ea0…61ec0 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 20 21 20 20 65 6e ┆ end; end; ! en┆
0x61ec0…61ee0 64 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 ┆d build name - action = 5 ! ┆
0x61ee0…61efc 20 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 ┆ begin comment end with┆
0x61efc…61f02 (0x324,0xc3f)
0x61f02…61f20 20 6e 65 77 6c 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 ┆ newline - action = 6; ┆
0x61f20…61f40 20 20 20 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 ┆ if w0 := params < 0 then c┆
0x61f40…61f60 6f 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 ┆ommand := w0 := -4 else ┆
0x61f60…61f7a 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 6e ┆ if w0 := params = 0 then┆
0x61f7a…61f80 (0x324,0xc40)
0x61f80…61fa0 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 69 64 65 6e 74 69 66 ┆ begin comment identif┆
0x61fa0…61fc0 79 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 ┆y command; idcommand┆
0x61fc0…61fe0 28 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 ┆(.w3.,w0,w1:=address(txt1),w2:=a┆
0x61fe0…62000 64 64 72 65 73 73 28 73 74 61 72 74 29 29 3b 0a 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ddress(start)); ┆
0x62000…62006 (784,) (0x324,0xc41)
0x62006…62020 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; ┆
0x62020…62040 20 20 20 20 20 69 66 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 ┆ if w0 > 0 then params := w0┆
0x62040…62060 20 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 ┆ := 0; end else ┆
0x62060…6207e 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 20 3a 3d 20 74 ┆ begin if w0 := t┆
0x6207e…62084 (0x324,0xc42)
0x62084…620a0 79 70 65 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 ┆ype > 0 then beg┆
0x620a0…620c0 69 6e 0a 20 20 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 ┆in if w0 := params┆
0x620c0…620e0 20 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 ┆ < 6 then begin ┆
0x620e0…620fc 20 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 ┆ w3 := sep; ┆
0x620fc…62102 (0x324,0xc43)
0x62102…62120 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 20 20 ┆ w3 lshift 12; ┆
0x62120…62140 20 20 20 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 ┆ w0 := type; w0 or r┆
0x62140…62160 65 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 ┆emote; w0 or sign; ┆
0x62160…6217a 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 ┆ if w0 >= 4 then w1 := a┆
0x6217a…62180 (0x324,0xc44)
0x62180…621a0 64 64 72 65 73 73 28 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 ┆ddress(txt1) else ┆
0x621a0…621c0 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 64 72 65 73 73 28 ┆ w1 := address(┆
0x621c0…621e0 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 20 20 77 30 20 2b ┆value) + 2; w0 +┆
0x621e0…62200 20 77 33 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 65 6c 00 00 00 00 00 00 00 00 ┆ w3; del ┆
0x62200…62206 (785,) (0x324,0xc45)
0x62206…62220 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 ┆ivercmd (.w3.,w3:=w1,w3:=w┆
0x62220…62240 30 2c 77 33 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 ┆0,w3:=address(stack),w3:=address┆
0x62240…62260 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 20 20 20 20 69 66 ┆(parmstack)); if┆
0x62260…6227e 20 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 ┆ w0:= params=1 then ┆
0x6227e…62284 (0x324,0xc46)
0x62284…622a0 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 6f 73 74 ┆ begin comment add host┆
0x622a0…622c0 6e 6f 20 61 6e 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 ┆no and hostid; ┆
0x622c0…622e0 20 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 ┆ w1:=(w3:=b.current).opr_hostno;┆
0x622e0…622fc 0a 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 ┆ w0:=0;val┆
0x622fc…62302 (0x324,0xc47)
0x62302…62320 75 65 3a 3d 20 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 ┆ue:= f1; del┆
0x62320…62340 69 76 65 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 ┆ivercmd(.w3.,w3:=address(value)+┆
0x62340…62360 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, ┆
0x62360…6237a 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 ┆ w3:┆
0x6237a…62380 (0x324,0xc48)
0x62380…623a0 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 28 70 61 72 6d ┆=address(stack),w3:=address(parm┆
0x623a0…623c0 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 20 20 77 31 3a 3d 28 ┆stack)); w1:=(┆
0x623c0…623e0 77 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 ┆w3:=b.current).opr_hostid; ┆
0x623e0…62400 20 20 20 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 30 3b 76 61 6c 75 65 00 00 00 00 00 00 00 00 ┆ w0:=0;value ┆
0x62400…62406 (786,) (0x324,0xc49)
0x62406…62420 3a 3d 20 66 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 ┆:= f1; d┆
0x62420…62440 65 6c 69 76 65 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 ┆elivercmd(.w3.,w3:=address(value┆
0x62440…62460 29 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 ┆)+2,w3:=8 lshift 12+2, ┆
0x62460…6247e 20 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 ┆ w3:=a┆
0x6247e…62484 (0x324,0xc4a)
0x62484…624a0 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 70 61 ┆ddress(stack),w3:=address(pa┆
0x624a0…624c0 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 20 20 70 61 72 ┆rmstack)); par┆
0x624c0…624e0 61 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 ┆ams:= w0:= 3; en┆
0x624e0…624fc 64 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 ┆d; end else st┆
0x624fc…62502 (0x324,0xc4b)
0x62502…62520 61 74 65 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 65 6e ┆ate := w0 := 8; en┆
0x62520…62540 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 6d 64 74 ┆d; end; cmdt┆
0x62540…62560 61 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 ┆able (w2:=1); w0 := 0;┆
0x62560…6257a 0a 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 ┆ if w1 := comman┆
0x6257a…62580 (0x324,0xc4c)
0x62580…625a0 64 20 3e 20 30 20 74 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 ┆d > 0 then while w0 = ┆
0x625a0…625c0 30 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 ┆0 do begin ┆
0x625c0…625e0 20 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 ┆ w1 := address(command); ┆
0x625e0…62600 20 20 20 20 20 77 30 20 3a 3d 20 28 77 32 29 2e 77 6f 72 64 20 2d 28 77 00 00 00 00 00 00 00 00 ┆ w0 := (w2).word -(w ┆
0x62600…62606 (787,) (0x324,0xc4d)
0x62606…62620 31 29 2e 77 6f 72 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 ┆1).word; if w0┆
0x62620…62640 20 3c 20 30 20 74 68 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 ┆ < 0 then -(w0); if ┆
0x62640…62660 77 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 ┆w0 < 4 then begin co┆
0x62660…6267e 6d 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 ┆mment maybe found; ┆
0x6267e…62684 (0x324,0xc4e)
0x62684…626a0 20 20 20 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 ┆ if w0 = 0 then ┆
0x626a0…626c0 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 20 20 20 20 20 20 20 ┆ begin comment found; ┆
0x626c0…626e0 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 20 20 20 20 20 20 ┆ w3:=0; ┆
0x626e0…626fc 77 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 ┆w2+2; w1 := ┆
0x626fc…62702 (0x324,0xc4f)
0x62702…62720 63 6d 64 72 65 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 ┆cmdref.paramtype; ┆
0x62720…62740 20 20 20 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 ┆ while w0 = 0 do ┆
0x62740…62760 20 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 ┆ begin comment check params; ┆
0x62760…6277a 20 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 ┆ w0 := (w┆
0x6277a…62780 (0x324,0xc50)
0x62780…627a0 32 29 2e 77 6f 72 64 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 ┆2).word - (w1).word; ┆
0x627a0…627c0 20 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 ┆ if w0 = 4096 then w0 := 0┆
0x627c0…627e0 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 30 20 3d 20 ┆ else if w0 = ┆
0x627e0…62800 34 30 39 37 20 74 68 65 6e 20 77 30 20 3a 3d 20 30 20 65 6c 73 65 0a 20 00 00 00 00 00 00 00 00 ┆4097 then w0 := 0 else ┆
0x62800…62806 (788,) (0x324,0xc51)
0x62806…62820 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 20 ┆ if w0 = ┆
0x62820…62840 20 20 31 20 74 68 65 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 ┆ 1 then w0 := 0 else; ┆
0x62840…62860 20 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 ┆ w0:=w0;w1+2;w2+2; ┆
0x62860…6287e 20 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 ┆ w3+1; ┆
0x6287e…62884 (0x324,0xc52)
0x62884…628a0 20 20 20 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 ┆ end; ┆
0x628a0…628c0 20 69 66 20 77 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 ┆ if w3 > 5 then w0 := 1 else ┆
0x628c0…628e0 20 20 20 20 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 ┆ stat┆
0x628e0…628fc 65 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 ┆e := w0 := 8; ┆
0x628fc…62902 (0x324,0xc53)
0x62902…62920 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 ┆end else begin c┆
0x62920…62940 6f 6d 6d 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 ┆omment try if alternate descript┆
0x62940…62960 6f 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 ┆or; w3 := w2; ┆
0x62960…6297a 20 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 ┆ w0 := (w3+2)┆
0x6297a…62980 (0x324,0xc54)
0x62980…629a0 2e 77 6f 72 64 3b 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 ┆.word; w0 lshift┆
0x629a0…629c0 20 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 ┆ -12; if w0 <> 0┆
0x629c0…629e0 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 20 63 6f 6d 6d ┆ then begin comm┆
0x629e0…62a00 65 6e 74 20 61 6c 74 65 72 6e 61 74 69 76 65 20 65 78 69 73 74 73 3b 0a 00 00 00 00 00 00 00 00 ┆ent alternative exists; ┆
0x62a00…62a06 (789,) (0x324,0xc55)
0x62a06…62a20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 30 20 3a 3d 20 30 3b ┆ w0 := 0;┆
0x62a20…62a40 0a 20 20 20 20 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 ┆ w2+12; ┆
0x62a40…62a60 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 20 20 ┆ end else ┆
0x62a60…62a7e 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 77 30 20 ┆ begin w0 ┆
0x62a7e…62a84 (0x324,0xc56)
0x62a84…62aa0 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 20 20 20 ┆:= (w2).word -(w1).word; ┆
0x62aa0…62ac0 20 20 20 20 20 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 ┆ if w0 < 0 then w0┆
0x62ac0…62ae0 20 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 ┆ := - 2 ! plus param ! ┆
0x62ae0…62afc 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 30 20 ┆ else w0 ┆
0x62afc…62b02 (0x324,0xc57)
0x62b02…62b20 3a 3d 20 2d 20 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 ┆:= - 3; ! minus param! ┆
0x62b20…62b40 20 20 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 ┆ command := w0; ┆
0x62b40…62b60 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 64 ┆ end; end┆
0x62b60…62b7a 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 20 ┆; end else ┆
0x62b7a…62b80 (0x324,0xc58)
0x62b80…62ba0 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 78 74 20 70 61 72 61 ┆ begin comment next para┆
0x62ba0…62bc0 6d 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 ┆m; w2+12; ┆
0x62bc0…62be0 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 20 20 20 ┆ w0 := (w2).word; ┆
0x62be0…62c00 20 20 20 20 20 69 66 20 77 30 20 3e 20 30 20 74 68 65 6e 20 77 30 20 3a 00 00 00 00 00 00 00 00 ┆ if w0 > 0 then w0 : ┆
0x62c00…62c06 (790,) (0x324,0xc59)
0x62c06…62c20 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 ┆= 0; end; ┆
0x62c20…62c40 20 20 20 20 20 20 65 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 ┆ end else; ! end while ! ┆
0x62c40…62c60 20 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 ┆ end; ! end end with ne┆
0x62c60…62c7e 77 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 ┆wline - action = 6 ! ┆
0x62c7e…62c84 (0x324,0xc5a)
0x62c84…62ca0 62 65 67 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 ┆begin comment start integer ┆
0x62ca0…62cc0 2d 20 20 61 63 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 ┆- action = 7; type :┆
0x62cc0…62ce0 3d 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 ┆= w0 := 2; w2 - 48; ┆
0x62ce0…62cfc 20 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 ┆ w1 := 0; v┆
0x62cfc…62d02 (0x324,0xc5b)
0x62d02…62d20 61 6c 75 65 20 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 ┆alue := f2; params :┆
0x62d20…62d40 3d 20 77 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 ┆= w0 := params + 1; end┆
0x62d40…62d60 3b 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 ┆; begin comment remote :┆
0x62d60…62d7a 3d 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 ┆= true; remote :┆
0x62d7a…62d80 (0x324,0xc5c)
0x62d80…62da0 3d 20 77 30 20 3a 3d 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 ┆= w0 := 1; end; ┆
0x62da0…62dc0 62 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 ┆begin comment build integer - a┆
0x62dc0…62de0 63 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 ┆ction = 9; w2 - 48; ┆
0x62de0…62e00 20 20 20 20 20 20 20 20 20 66 31 20 3a 3d 20 76 61 6c 75 65 3b 0a 20 20 00 00 00 00 00 00 00 00 ┆ f1 := value; ┆
0x62e00…62e06 (791,) (0x324,0xc5d)
0x62e06…62e20 20 20 20 20 20 20 20 20 77 31 20 2a 20 31 30 3b 0a 20 20 20 20 20 20 20 20 20 ┆ w1 * 10; ┆
0x62e20…62e40 20 77 33 20 3a 3d 20 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 ┆ w3 := w2 ; w2 := 0; f┆
0x62e40…62e60 31 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 ┆1 ++ f3; w3 := sign; -┆
0x62e60…62e7e 28 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 ┆(w3); if w3 <> 0 the┆
0x62e7e…62e84 (0x324,0xc5e)
0x62e84…62ea0 6e 20 77 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 ┆n w2 := - 1 else w2 := 0; ┆
0x62ea0…62ec0 20 20 20 20 20 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 ┆ f3 ++ f1; if w┆
0x62ec0…62ee0 33 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 ┆3 < 0 then state := w3 := 8 else┆
0x62ee0…62efc 3b 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 ┆; value := f1; ┆
0x62efc…62f02 (0x324,0xc5f)
0x62f02…62f20 20 20 20 20 20 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 ┆ end; ! end build intege┆
0x62f20…62f40 72 20 2d 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 ┆r - action = 9! begin c┆
0x62f40…62f60 6f 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 ┆omment set sign - action = 10; ┆
0x62f60…62f7a 0a 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 ┆ if w2 = 45 then┆
0x62f7a…62f80 (0x324,0xc60)
0x62f80…62fa0 20 77 30 20 3a 3d 20 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 ┆ w0 := 1 else w0 := 0; ┆
0x62fa0…62fc0 20 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 ┆ sign := w0; end; ! end┆
0x62fc0…62fe0 20 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 ┆ set sign - action = 10 ! ┆
0x62fe0…63000 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 73 79 6e 74 61 78 20 00 00 00 00 00 00 00 00 ┆ begin comment syntax ┆
0x63000…63006 (792,) (0x324,0xc61)
0x63006…63020 65 72 72 6f 72 20 2d 20 20 61 63 74 69 6f 6e 20 3d 20 31 31 3b 0a 0a 20 20 20 ┆error - action = 11; ┆
0x63020…63040 20 20 20 20 20 20 20 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 ┆ state := w0 := 8; ┆
0x63040…63060 20 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 ┆ end; ! end syntax error - ┆
0x63060…6307e 61 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 ┆action = 11! end; ! en┆
0x6307e…63084 (0x324,0xc62)
0x63084…630a0 64 20 20 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 ┆d state case ! w1 :┆
0x630a0…630c0 3d 20 73 74 61 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 ┆= state; w1 extract 3; ┆
0x630c0…630e0 20 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 ┆ end; if w0 := state > 0 th┆
0x630e0…630fc 65 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 ┆en command := w0 := - 1;┆
0x630fc…63102 (0x324,0xc63)
0x63102…63120 0a 0a 20 20 20 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 ┆ w1 := address (command);┆
0x63120…63140 0a 20 20 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 ┆ w0 := (w1).word; f2 := ┆
0x63140…63160 20 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 ┆ savef2; w3 := cmdref; e┆
0x63160…6317a 6e 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 ┆nd; body of delivercmd ┆
0x6317a…63180 (0x324,0xc64)
0x63180…631a0 20 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 20 20 73 ┆ begin incode double s┆
0x631a0…631c0 61 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 ┆avef1; word savew2; ┆
0x631c0…631e0 72 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 ┆ref return; begin ┆
0x631e0…63200 20 20 20 73 61 76 65 66 31 20 3a 3d 20 66 31 3b 0a 20 20 20 20 20 20 73 00 00 00 00 00 00 00 00 ┆ savef1 := f1; s ┆
0x63200…63206 (793,) (0x324,0xc65)
0x63206…63220 61 76 65 77 32 20 3a 3d 20 77 32 3b 0a 20 20 20 20 20 20 72 65 74 75 72 6e 20 ┆avew2 := w2; return ┆
0x63220…63240 3a 3d 20 77 33 3b 0a 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 ┆:= w3; w1 := return.param┆
0x63240…63260 3b 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 ┆; w2 := return.stackp; ┆
0x63260…6327e 20 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 ┆ w2 := (w2).word; w3 :┆
0x6327e…63284 (0x324,0xc66)
0x63284…632a0 3d 20 72 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 ┆= return.stdesc; w3 :=┆
0x632a0…632c0 20 28 77 33 29 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 ┆ (w3).word; w0 := return.p┆
0x632c0…632e0 61 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 ┆aramdesc; (w3).word := w0;┆
0x632e0…632fc 0a 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 ┆ w0 extract 12; ┆
0x632fc…63302 (0x324,0xc67)
0x63302…63320 69 66 20 77 30 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 ┆if w0 >= 4 then move (.w3.,w0:┆
0x63320…63340 3d 38 2c 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 ┆=8,w1,w2) else ┆
0x63340…63360 20 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 ┆ move (.w3.,w0:=2,w1,w2); ┆
0x63360…6337a 77 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 ┆w3 := return.stackp; ┆
0x6337a…63380 (0x324,0xc68)
0x63380…633a0 20 28 77 33 29 2e 77 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 ┆ (w3).word := w0 + (w3).word; ┆
0x633a0…633c0 20 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 ┆ w3 := return.stdesc; (┆
0x633c0…633e0 77 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 ┆w3).word := w0 := (w3).word + 2;┆
0x633e0…63400 0a 20 20 20 20 20 20 0a 20 20 20 20 20 20 66 31 20 3a 3d 20 73 61 76 65 00 00 00 00 00 00 00 00 ┆ f1 := save ┆
0x63400…63406 (794,) (0x324,0xc69)
0x63406…63420 66 31 3b 0a 20 20 20 20 20 20 77 32 20 3a 3d 20 73 61 76 65 77 32 3b 0a 20 20 ┆f1; w2 := savew2; ┆
0x63420…63440 20 20 20 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 6e ┆ w3 := return; end; en┆
0x63440…63460 64 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 ┆d; body of idcommand begin ┆
0x63460…6347e 20 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 ┆ record rcmd ( double cmd )┆
0x6347e…63484 (0x324,0xc6a)
0x63484…634a0 3b 0a 20 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 ┆; incode word re┆
0x634a0…634c0 73 75 6c 74 2c 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 ┆sult, start; ref return;┆
0x634c0…634e0 0a 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 ┆ begin return := w3; ┆
0x634e0…634fc 20 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 ┆ start := w2; re┆
0x634fc…63502 (0x324,0xc6b)
0x63502…63520 73 75 6c 74 20 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 ┆sult := w0 := - 1; whil┆
0x63520…63540 65 20 77 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 ┆e w0 := result < 0 do begi┆
0x63540…63560 6e 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 ┆n w0 := (w2).word; ┆
0x63560…6357a 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 20 ┆ if w0 <> 0 then ┆
0x6357a…63580 (0x324,0xc6c)
0x63580…635a0 20 62 65 67 69 6e 20 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 ┆ begin comment not end of table ┆
0x635a0…635c0 79 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 ┆yet; f0 := (w1).cmd - ┆
0x635c0…635e0 28 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 ┆(w2).cmd; if w3 = 0 th┆
0x635e0…63600 65 6e 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆en begin ┆
0x63600…63606 (795,) (0x324,0xc6d)
0x63606…63620 20 20 20 20 20 20 20 69 66 20 77 30 20 7a 65 72 6f 6d 61 73 6b 20 2d 32 35 36 ┆ if w0 zeromask -256┆
0x63620…63640 20 74 68 65 6e 20 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 ┆ then begin ┆
0x63640…63660 20 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 ┆ w2+4-start;w2 lshift -2; ┆
0x63660…6367e 20 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 ┆ result := w2; ┆
0x6367e…63684 (0x324,0xc6e)
0x63684…636a0 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┆
0x636a0…636c0 3b 0a 20 20 20 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 ┆; end else result := w0;┆
0x636c0…636e0 0a 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 ┆ w2+4; end; ! end ┆
0x636e0…636fc 77 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 ┆while ! w0 := result; ┆
0x636fc…63702 (0x324,0xc6f)
0x63702…63720 20 20 20 20 20 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 ┆ w3 := return; end; ┆
0x63720…63740 20 20 65 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 ┆ end; ! idcommand ! end; ┆
0x63740…63760 0a 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 ┆ body of operator comment o┆
0x63760…6377a 70 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 ┆perator coroutine; begin┆
0x6377a…63780 (0x324,0xc70)
0x63780…637a0 0a 20 20 20 20 6c 61 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 ┆ label outloop1,outloop2,out┆
0x637a0…637c0 74 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 ┆text, w_syntax,w_comm,┆
0x637c0…637e0 77 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 ┆w_plusparam,w_minusparam,w_unkno┆
0x637e0…63800 77 6e 2c 0a 20 20 20 20 20 20 20 20 20 20 77 5f 73 74 61 74 65 69 6c 6c 00 00 00 00 00 00 00 00 ┆wn, w_stateill ┆
0x63800…63806 (796,) (0x324,0xc71)
0x63806…63820 2c 77 5f 6e 6f 74 61 6c 6c 6f 77 2c 77 5f 6e 6f 72 65 73 2c 77 5f 72 65 63 65 ┆,w_notallow,w_nores,w_rece┆
0x63820…63840 6e 74 72 79 2c 77 5f 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 ┆ntry,w_recdevice,w_applkill; ┆
0x63840…63860 20 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 ┆ incode text(2) oproutput:┆
0x63860…6387e 3d 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 ┆= "="; word char, partia┆
0x6387e…63884 (0x324,0xc72)
0x63884…638a0 6c 3b 0a 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 ┆l; ref bufpointer, sto┆
0x638a0…638c0 70 62 75 66 3b 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 ┆pbuf; ref devcorout,transr┆
0x638c0…638e0 65 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 ┆ef; byte kind, dummy; ┆
0x638e0…638fc 20 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 ┆ array (1:10) tail of word;┆
0x638fc…63902 (0x324,0xc73)
0x63902…63920 0a 20 20 20 20 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 ┆ text(11) destname; ┆
0x63920…63940 20 20 72 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 ┆ ref destref,procref; ar┆
0x63940…63960 72 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 ┆ray (-4:16) comm_table of word :┆
0x63960…6397a 3d 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 ┆= -4 ! empty lin┆
0x6397a…63980 (0x324,0xc74)
0x63980…639a0 65 20 20 21 0a 20 20 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 ┆e ! -3 ! - param !┆
0x639a0…639c0 0a 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 ┆ -2 ! + param ! ┆
0x639c0…639e0 20 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 ┆ -1 ! syntax ! ┆
0x639e0…63a00 20 30 20 20 21 20 20 20 20 20 75 6e 6b 6e 6f 77 6e 20 20 21 0a 20 20 20 00 00 00 00 00 00 00 00 ┆ 0 ! unknown ! ┆
0x63a00…63a06 (797,) (0x324,0xc75)
0x63a06…63a20 20 20 20 20 20 31 20 20 21 20 20 73 74 61 72 74 20 20 20 20 20 20 20 21 0a 20 ┆ 1 ! start ! ┆
0x63a20…63a40 20 20 20 20 20 20 20 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 ┆ 1 ! skip ! ┆
0x63a40…63a60 20 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 ┆ 1 ! repeat ! 1┆
0x63a60…63a7e 20 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 ┆ ! restart ! 1 ┆
0x63a7e…63a84 (0x324,0xc76)
0x63a84…63aa0 21 20 20 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 ┆! stop ! 1 ┆
0x63aa0…63ac0 21 20 20 6b 69 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 ┆! kill ! 1 ! s┆
0x63ac0…63ae0 75 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 ┆uspend ! 2 ! drain┆
0x63ae0…63afc 20 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 ┆ ! 3 ! reque┆
0x63afc…63b02 (0x324,0xc77)
0x63b02…63b20 73 74 20 20 20 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 ┆st ! 4 ! signup ┆
0x63b20…63b40 20 20 20 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 ┆ ! 5 ! signoff ┆
0x63b40…63b60 20 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 ┆ ! 6 ! select ! ┆
0x63b60…63b7a 20 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 ┆ 7 ! route !┆
0x63b7a…63b80 (0x324,0xc78)
0x63b80…63ba0 0a 20 20 20 20 20 20 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 ┆ 8 ! triang ! ┆
0x63ba0…63bc0 20 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 ┆ 9 ! display ! ┆
0x63bc0…63be0 20 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 ┆ 0 ! end commands!; ! r┆
0x63be0…63c00 65 70 6c 79 20 74 65 78 74 73 20 21 0a 20 20 20 20 20 20 74 65 78 74 28 00 00 00 00 00 00 00 00 ┆eply texts ! text( ┆
0x63c00…63c06 (798,) (0x324,0xc79)
0x63c06…63c20 32 37 29 20 74 5f 72 65 61 64 79 20 20 20 20 20 3a 3d 20 22 72 65 61 64 79 22 ┆27) t_ready := "ready"┆
0x63c20…63c40 2c 0a 20 20 20 20 20 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 ┆, t_syntax := ┆
0x63c40…63c60 22 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 ┆"***syntax", t_co┆
0x63c60…63c7e 6d 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 ┆mm := "***command unknown┆
0x63c7e…63c84 (0x324,0xc7a)
0x63c84…63ca0 22 2c 0a 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 ┆", t_pluspara┆
0x63ca0…63cc0 6d 20 3a 3d 20 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 ┆m := "***command +param", ┆
0x63cc0…63ce0 20 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 ┆ t_minusparam:= "***comm┆
0x63ce0…63cfc 61 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 ┆and -param", ┆
0x63cfc…63d02 (0x324,0xc7b)
0x63d02…63d20 74 5f 75 6e 6b 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 ┆t_unknown := "***device unkn┆
0x63d20…63d40 6f 77 6e 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 ┆own", t_stateill ┆
0x63d40…63d60 20 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 ┆ := "***state illegal", ┆
0x63d60…63d7a 20 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 ┆ t_notallow := "***┆
0x63d7a…63d80 (0x324,0xc7c)
0x63d80…63da0 6e 6f 74 20 61 6c 6c 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 ┆not allowed", t_n┆
0x63da0…63dc0 6f 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 ┆ores := "***no resources", ┆
0x63dc0…63de0 20 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 ┆ t_recentry := "**┆
0x63de0…63e00 2a 72 65 63 65 69 76 65 72 20 65 6e 74 72 79 20 74 72 6f 75 62 6c 65 73 00 00 00 00 00 00 00 00 ┆*receiver entry troubles ┆
0x63e00…63e06 (799,) (0x324,0xc7d)
0x63e06…63e20 22 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 5f 72 65 63 64 65 76 ┆", t_recdev┆
0x63e20…63e40 69 63 65 20 3a 3d 20 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 ┆ice := "***receiver device troub┆
0x63e40…63e60 6c 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 ┆le", t_applkill ┆
0x63e60…63e7e 3a 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 ┆:= "***killed by application";┆
0x63e7e…63e84 (0x324,0xc7e)
0x63e84…63ea0 0a 0a 20 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 ┆ ! reply output forma┆
0x63ea0…63ec0 74 20 21 0a 20 20 20 20 20 20 74 65 78 74 28 31 31 29 20 63 6f 6e 6e 65 63 74 69 6e 67 3a 3d 20 ┆t ! text(11) connecting:= ┆
0x63ec0…63ee0 22 63 6f 6e 6e 65 63 74 69 6e 67 22 3b 0a 20 20 20 20 20 20 74 65 78 74 28 33 29 20 7a 65 72 6f ┆"connecting"; text(3) zero┆
0x63ee0…63efc 3a 3d 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 ┆:= "'0''0''0'"; ref r┆
0x63efc…63f02 (0x324,0xc7f)
0x63f02…63f20 65 74 75 72 6e 3b 0a 20 20 20 20 20 20 77 6f 72 64 0a 20 20 20 20 20 20 20 20 20 20 63 6f ┆eturn; word co┆
0x63f20…63f40 6d 6e 6f 2c 70 61 72 61 6d 6e 6f 2c 70 61 72 61 6d 31 74 79 70 65 2c 66 72 65 65 70 61 72 61 6d ┆mno,paramno,param1type,freeparam┆
0x63f40…63f60 3b 0a 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 ┆; byte params1,p┆
0x63f60…63f7a 61 72 61 6d 74 31 2c 0a 20 20 20 20 20 20 20 20 20 20 73 68 6e 6f 20 20 20 2c ┆aramt1, shno ,┆
0x63f7a…63f80 (0x324,0xc80)
0x63f80…63fa0 74 68 6e 6f 2c 0a 20 20 20 20 20 20 20 20 20 20 73 68 69 64 20 20 20 2c 74 68 69 64 2c 0a 20 20 ┆thno, shid ,thid, ┆
0x63fa0…63fc0 20 20 20 20 20 20 20 20 70 61 72 61 6d 73 32 2c 70 61 72 61 6d 74 32 2c 0a 20 20 20 20 20 20 20 ┆ params2,paramt2, ┆
0x63fc0…63fe0 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 20 74 65 78 74 20 ┆ params3,paramt3; text ┆
0x63fe0…64000 28 31 31 29 0a 20 20 20 20 20 20 20 20 20 20 64 65 76 6e 61 6d 65 3b 0a 00 00 00 00 00 00 00 00 ┆(11) devname; ┆
0x64000…64006 (800,) (0x324,0xc81)
0x64006…64020 20 20 20 20 20 20 62 79 74 65 20 0a 20 20 20 20 20 20 20 20 20 20 64 68 6c 69 ┆ byte dhli┆
0x64020…64040 6e 6b 6e 6f 2c 20 68 6f 73 74 6e 6f 3b 0a 20 20 20 20 20 20 77 6f 72 64 0a 20 20 20 20 20 20 20 ┆nkno, hostno; word ┆
0x64040…64060 20 20 20 68 6f 73 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 ┆ hostid; text (27) ┆
0x64060…6407e 20 20 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 ┆ parameters; begin┆
0x6407e…64084 (0x324,0xc82)
0x64084…640a0 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 ┆ return:= w3; call w3 ┆
0x640a0…640c0 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┆
0x640c0…640e0 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 0a 20 20 20 20 20 20 ┆hile w1=w1 do begin ┆
0x640e0…640fc 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 20 ┆ waitmess(.w3.,w2); ┆
0x640fc…64102 (0x324,0xc83)
0x64102…64120 20 77 30 3a 3d 20 31 3b 0a 20 20 20 20 20 20 20 20 77 31 3a 3d 20 61 64 64 72 65 73 73 28 ┆ w0:= 1; w1:= address(┆
0x64120…64140 62 2e 61 6e 73 5f 73 74 61 74 75 73 29 3b 0a 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 32 ┆b.ans_status); monitor(2┆
0x64140…64160 32 29 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 ┆2); ! send answer ! w2:┆
0x64160…6417a 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 ┆=address((w3).opr_console)┆
0x6417a…64180 (0x324,0xc84)
0x64180…641a0 3b 0a 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 3a 3d ┆; lookupremote(.w3.,w0:=┆
0x641a0…641c0 32 2c 77 32 2c 77 30 2c 77 30 2c 77 31 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 28 77 33 29 2e 6f ┆2,w2,w0,w0,w1,w2:=address((w3).o┆
0x641c0…641e0 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 65 28 2e 77 33 2e ┆pr_dhlinkno)); move(.w3.┆
0x641e0…64200 2c 77 30 3a 3d 34 38 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 7a 65 72 6f 00 00 00 00 00 00 00 00 ┆,w0:=48,w1:=address(zero ┆
0x64200…64206 (801,) (0x324,0xc85)
0x64206…64220 29 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 7a 65 72 6f 29 2b 32 29 3b 0a 0a 20 ┆),w2:=address(zero)+2); ┆
0x64220…64240 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 20 77 32 3a 3d 20 61 ┆ w1:= (w3).opr_buf; w2:= a┆
0x64240…64260 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 20 20 ┆ddress((w1).buf_data1); ┆
0x64260…6427e 6d 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 6f 70 ┆move(.w3.,w0:=2,w1:=address(op┆
0x6427e…64284 (0x324,0xc86)
0x64284…642a0 72 6f 75 74 70 75 74 29 2c 77 32 29 3b 0a 20 20 20 20 20 20 20 20 77 31 3a 3d 20 28 ┆routput),w2); w1:= (┆
0x642a0…642c0 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 62 75 66 5f 6f 70 ┆w3).opr_buf; (w1).buf_op┆
0x642c0…642e0 3a 3d 20 77 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 ┆:= w0:= 5; (w1).buf_firs┆
0x642e0…642fc 74 3a 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 ┆t:= w0:= address((w1).buf_da┆
0x642fc…64302 (0x324,0xc87)
0x64302…64320 74 61 31 29 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 ┆ta1); (w1).buf_last:= ┆
0x64320…64340 20 77 30 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 20 77 31 3a 3d 20 28 77 33 29 2e 6f 70 72 5f ┆ w0:= w0; w1:= (w3).opr_┆
0x64340…64360 62 75 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 ┆buf; sendwait(.w3.,w0,w1┆
0x64360…6437a 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 ┆,w2:=address((w3).opr_cons┆
0x6437a…64380 (0x324,0xc88)
0x64380…643a0 6f 6c 65 29 29 3b 0a 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 ┆ole)); (w1).buf_op:= w0┆
0x643a0…643c0 3a 3d 20 33 3b 0a 20 20 20 20 20 20 20 20 77 30 3a 3d 20 28 77 31 29 2e 62 75 66 5f 66 69 72 73 ┆:= 3; w0:= (w1).buf_firs┆
0x643c0…643e0 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 32 3b 0a 20 20 20 ┆t; w0+b.oprt_bufl-2; ┆
0x643e0…64400 20 20 20 20 20 28 77 31 29 2e 62 75 66 5f 6c 61 73 74 3a 3d 20 77 30 3b 00 00 00 00 00 00 00 00 ┆ (w1).buf_last:= w0; ┆
0x64400…64406 (802,) (0x324,0xc89)
0x64406…64420 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 ┆ sendwait(.w3.,w0,┆
0x64420…64440 77 31 2c 77 32 29 3b 0a 20 20 20 20 20 20 20 20 21 20 69 6e 70 75 74 20 72 65 63 65 69 76 65 64 ┆w1,w2); ! input received┆
0x64440…64460 20 69 6e 74 65 72 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 ┆ interpret command ! if ┆
0x64460…6447e 77 30 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 ┆w0<>1 then w0:= 0 else w0:= b.┆
0x6447e…64484 (0x324,0xc8a)
0x64484…644a0 61 6e 73 5f 62 79 74 65 73 3b 0a 20 20 20 20 20 20 20 20 77 31 3a 3d 20 28 77 31 29 ┆ans_bytes; w1:= (w1)┆
0x644a0…644c0 2e 62 75 66 5f 66 69 72 73 74 3b 0a 20 20 20 20 20 20 20 20 74 65 73 74 6f 75 74 28 2e 77 33 2e ┆.buf_first; testout(.w3.┆
0x644c0…644e0 2c 77 30 2c 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 ┆,w0,w1,w2:=0); bufpointe┆
0x644e0…644fc 72 3a 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 ┆r:= w1; w1+w0; stopb┆
0x644fc…64502 (0x324,0xc8b)
0x64502…64520 75 66 3a 3d 20 77 31 3b 0a 20 20 20 20 20 20 20 20 67 65 74 70 61 72 61 6d 73 20 28 2e 77 ┆uf:= w1; getparams (.w┆
0x64520…64540 33 2e 2c 77 33 3a 3d 61 64 64 72 65 73 73 28 70 61 72 61 6d 73 31 29 2c 77 33 3a 3d 61 64 64 72 ┆3.,w3:=address(params1),w3:=addr┆
0x64540…64560 65 73 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 ┆ess(devname), ┆
0x64560…6457a 20 20 20 20 20 20 20 20 20 77 33 3a 3d 62 75 66 70 6f 69 6e 74 65 72 2c 77 33 ┆ w3:=bufpointer,w3┆
0x6457a…64580 (0x324,0xc8c)
0x64580…645a0 3a 3d 73 74 6f 70 62 75 66 2c 77 30 29 3b 0a 20 20 20 20 20 20 20 20 77 32 20 3a 3d 20 77 30 3b ┆:=stopbuf,w0); w2 := w0;┆
0x645a0…645c0 0a 20 20 20 20 20 20 20 20 77 32 20 61 73 68 69 66 74 20 2d 31 32 3b 0a 20 20 20 20 20 20 20 20 ┆ w2 ashift -12; ┆
0x645c0…645e0 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 74 72 61 63 74 20 ┆comno := w2; w0 extract ┆
0x645e0…64600 31 32 3b 0a 20 20 20 20 20 20 20 20 70 61 72 61 6d 6e 6f 20 3a 3d 20 77 00 00 00 00 00 00 00 00 ┆12; paramno := w ┆
0x64600…64606 (803,) (0x324,0xc8d)
0x64606…64620 30 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 20 68 6f 73 74 69 64 3d ┆0; if w0:= hostid=┆
0x64620…64640 28 77 33 3a 3d 62 2e 63 75 72 72 65 6e 74 29 2e 6f 70 72 5f 68 6f 73 74 69 64 20 74 68 65 6e 0a ┆(w3:=b.current).opr_hostid then ┆
0x64640…64660 20 20 20 20 20 20 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 ┆ w0 := paramt1; i┆
0x64660…6467e 66 20 77 30 20 3d 20 30 20 74 68 65 6e 20 77 30 20 3a 3d 20 68 6f 73 74 6e 6f 20 65 6c 73 ┆f w0 = 0 then w0 := hostno els┆
0x6467e…64684 (0x324,0xc8e)
0x64684…646a0 65 20 69 66 20 77 30 20 3d 20 35 20 74 68 65 6e 20 77 30 20 3a 3d 20 32 20 65 6c 73 ┆e if w0 = 5 then w0 := 2 els┆
0x646a0…646c0 65 20 69 66 20 77 30 20 3d 20 34 20 74 68 65 6e 20 77 30 20 3a 3d 20 31 20 65 6c 73 65 20 77 30 ┆e if w0 = 4 then w0 := 1 else w0┆
0x646c0…646e0 3a 3d 77 30 3b 0a 20 20 20 20 20 20 20 20 70 61 72 61 6d 31 74 79 70 65 20 3a 3d 20 77 30 3b 0a ┆:=w0; param1type := w0; ┆
0x646e0…646fc 20 20 20 20 20 20 20 20 77 30 20 3a 3d 20 28 77 31 3a 3d 61 64 64 72 65 73 73 28 70 ┆ w0 := (w1:=address(p┆
0x646fc…64702 (0x324,0xc8f)
0x64702…64720 61 72 61 6d 65 74 65 72 73 29 29 2e 77 6f 72 64 3b 0a 20 20 20 20 20 20 20 20 77 31 20 3a ┆arameters)).word; w1 :┆
0x64720…64740 3d 20 70 61 72 61 6d 74 32 20 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 31 20 3d 20 33 20 74 68 ┆= paramt2 ; if w1 = 3 th┆
0x64740…64760 65 6e 20 2d 28 77 30 29 3b 0a 20 20 20 20 20 20 20 20 66 72 65 65 70 61 72 61 6d 20 3a 3d 20 77 ┆en -(w0); freeparam := w┆
0x64760…6477a 30 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 ┆0; testout(.w3.,w0┆
0x6477a…64780 (0x324,0xc90)
0x64780…647a0 3a 3d 34 38 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 63 6f 6d 6e 6f 29 2c 77 32 3a 3d 36 35 29 3b ┆:=48,w1:=address(comno),w2:=65);┆
0x647a0…647c0 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 63 6f 6d 6e 6f 3e 30 20 74 68 65 6e 0a 20 20 20 ┆ if w0:=comno>0 then ┆
0x647c0…647e0 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 66 69 6e 64 5f 63 6f 6e 73 6f 6c ┆ begin find_consol┆
0x647e0…64800 65 64 65 76 69 63 65 28 2e 77 33 2e 2c 77 30 3a 3d 70 61 72 61 6d 31 74 00 00 00 00 00 00 00 00 ┆edevice(.w3.,w0:=param1t ┆
0x64800…64806 (804,) (0x324,0xc91)
0x64806…64820 79 70 65 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 28 77 33 29 2e 6f 70 72 5f 63 ┆ype,w1:=address((w3).opr_c┆
0x64820…64840 6f 6e 73 6f 6c 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 20 20 ┆onsole), ┆
0x64840…64860 20 20 20 20 20 20 20 20 77 32 3a 3d 61 64 64 72 65 73 73 28 64 65 76 6e 61 6d 65 29 29 3b 0a 20 ┆ w2:=address(devname)); ┆
0x64860…6487e 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3c 30 20 74 68 65 6e 20 67 6f 74 6f 20 77 5f 6e ┆ if w0<0 then goto w_n┆
0x6487e…64884 (0x324,0xc92)
0x64884…648a0 6f 74 61 6c 6c 6f 77 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 ┆otallow; end; ┆
0x648a0…648c0 20 20 64 65 76 63 6f 72 6f 75 74 3a 3d 77 31 3b 0a 0a 20 20 20 20 20 20 20 20 63 61 73 65 20 77 ┆ devcorout:=w1; case w┆
0x648c0…648e0 31 3a 3d 28 63 6f 6d 6d 5f 74 61 62 6c 65 28 77 32 3a 3d 63 6f 6d 6e 6f 29 29 2e 77 6f 72 64 20 ┆1:=(comm_table(w2:=comno)).word ┆
0x648e0…648fc 2b 20 35 20 6f 66 0a 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 ┆+ 5 of begin ┆
0x648fc…64902 (0x324,0xc93)
0x64902…64920 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 65 6d 70 74 79 20 6c 69 6e 65 3b 0a ┆ begin comment empty line; ┆
0x64920…64940 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 67 6f 74 6f 20 77 5f ┆ end; goto w_┆
0x64940…64960 6d 69 6e 75 73 70 61 72 61 6d 3b 0a 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 77 5f 70 6c 75 ┆minusparam; goto w_plu┆
0x64960…6497a 73 70 61 72 61 6d 3b 0a 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 77 5f 73 ┆sparam; goto w_s┆
0x6497a…64980 (0x324,0xc94)
0x64980…649a0 79 6e 74 61 78 3b 0a 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 77 5f 63 6f 6d 6d 3b 0a 20 20 ┆yntax; goto w_comm; ┆
0x649a0…649c0 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 21 20 70 75 74 20 63 6f 6d 6d 61 6e 64 20 69 6e 74 6f ┆ begin ! put command into┆
0x649c0…649e0 20 63 6f 72 6f 75 2e 20 64 65 73 63 72 2e 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a ┆ corou. descr. ! w1:┆
0x649e0…64a00 3d 64 65 76 63 6f 72 6f 75 74 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆=devcorout; ┆
0x64a00…64a06 (805,) (0x324,0xc95)
0x64a06…64a20 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 ┆if w1=0 then goto w_unknow┆
0x64a20…64a40 6e 20 65 6c 73 65 20 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 ┆n else if w1<0 then┆
0x64a40…64a60 20 67 6f 74 6f 20 77 5f 73 74 61 74 65 69 6c 6c 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 ┆ goto w_stateill else ┆
0x64a60…64a7e 20 20 77 31 3a 3d 62 2e 68 6f 6c 64 71 66 73 74 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ w1:=b.holdqfst; ┆
0x64a7e…64a84 (0x324,0xc96)
0x64a84…64aa0 77 32 3a 3d 61 64 64 72 65 73 73 28 62 2e 68 6f 6c 64 71 66 73 74 29 3b 0a 20 20 20 ┆w2:=address(b.holdqfst); ┆
0x64aa0…64ac0 20 20 20 20 20 20 20 20 20 77 30 3a 3d 30 3b 20 21 20 66 6c 61 67 20 66 6f 72 20 66 6f 75 6e 64 ┆ w0:=0; ! flag for found┆
0x64ac0…64ae0 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 68 69 6c 65 20 77 31 3c 3e 77 32 20 64 6f 0a 20 ┆ ! while w1<>w2 do ┆
0x64ae0…64afc 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 ┆
0x64afc…64b02 (0x324,0xc97)
0x64b02…64b20 20 20 20 69 66 20 77 31 3d 64 65 76 63 6f 72 6f 75 74 20 74 68 65 6e 0a 20 20 20 20 20 20 ┆ if w1=devcorout then ┆
0x64b20…64b40 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 30 ┆ begin w0┆
0x64b40…64b60 3a 3d 31 3b 0a 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 ┆:=1; w2:=w1; ┆
0x64b60…64b7a 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 20 65 6c 73 65 20 77 31 3a 3d 28 77 ┆ end else w1:=(w┆
0x64b7a…64b80 (0x324,0xc98)
0x64b80…64ba0 31 29 2e 63 5f 6e 65 78 74 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 ┆1).c_next; end; ┆
0x64ba0…64bc0 20 20 20 20 20 20 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 ┆ w1:=devcorout; ┆
0x64bc0…64be0 20 20 20 63 61 73 65 20 77 32 3a 3d 63 6f 6d 6e 6f 20 6f 66 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ case w2:=comno of ┆
0x64be0…64c00 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 00 00 00 00 00 00 00 00 ┆ begin beg ┆
0x64c00…64c06 (806,) (0x324,0xc99)
0x64c06…64c20 69 6e 20 63 6f 6d 6d 65 6e 74 20 73 74 61 72 74 20 61 63 74 69 6f 6e 3b 0a 20 ┆in comment start action; ┆
0x64c20…64c40 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 67 6f 74 6f ┆ if w0=0 then goto┆
0x64c40…64c60 20 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 69 66 20 ┆ w_stateill; if ┆
0x64c60…64c7e 77 30 3a 3d 70 61 72 61 6d 6e 6f 3d 34 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 ┆w0:=paramno=4 then ┆
0x64c7e…64c84 (0x324,0xc9a)
0x64c84…64ca0 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 ┆ begin ┆
0x64ca0…64cc0 20 77 30 3a 3d 28 77 31 29 2e 74 63 5f 6b 69 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ w0:=(w1).tc_kind; ┆
0x64cc0…64ce0 20 20 20 20 20 69 66 20 77 30 3d 31 36 20 74 68 65 6e 20 77 30 3a 3d 31 30 3b 0a 20 20 20 20 20 ┆ if w0=16 then w0:=10; ┆
0x64ce0…64cfc 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3c 3e 31 30 20 74 68 65 6e 20 ┆ if w0<>10 then ┆
0x64cfc…64d02 (0x324,0xc9b)
0x64d02…64d20 67 6f 74 6f 20 77 5f 6e 6f 74 61 6c 6c 6f 77 3b 20 21 20 6f 6e 6c 79 20 66 6f 72 20 28 63 ┆goto w_notallow; ! only for (c┆
0x64d20…64d40 61 72 64 29 72 65 61 64 65 72 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 ┆ard)reader ! w┆
0x64d40…64d60 30 3a 3d 66 72 65 65 70 61 72 61 6d 3b 77 30 20 6c 73 68 69 66 74 20 31 32 3b 0a 20 20 20 20 20 ┆0:=freeparam;w0 lshift 12; ┆
0x64d60…64d7a 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6d 6e 6f 3a 3d 77 30 2b 63 6f 6d ┆ comno:=w0+com┆
0x64d7a…64d80 (0x324,0xc9c)
0x64d80…64da0 6e 6f 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 ┆no; end; ┆
0x64da0…64dc0 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 ┆
0x64dc0…64de0 63 6f 6d 6d 65 6e 74 20 73 6b 69 70 20 61 63 74 69 6f 6e 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆comment skip action; ┆
0x64de0…64e00 20 20 20 20 20 69 66 20 77 32 3a 3d 28 77 31 29 2e 74 63 5f 6b 69 6e 64 00 00 00 00 00 00 00 00 ┆ if w2:=(w1).tc_kind ┆
0x64e00…64e06 (807,) (0x324,0xc9d)
0x64e06…64e20 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 ┆<>14 then goto w_notallow;┆
0x64e20…64e40 0a 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 67 6f ┆ if w0=0 then go┆
0x64e40…64e60 74 6f 20 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 28 ┆to w_stateill; (┆
0x64e60…64e7e 77 31 29 2e 74 63 5f 77 6f 72 6b 66 66 73 20 3a 3d 20 77 30 20 3a 3d 20 66 72 65 65 70 61 ┆w1).tc_workffs := w0 := freepa┆
0x64e7e…64e84 (0x324,0xc9e)
0x64e84…64ea0 72 61 6d 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 ┆ram; end; ┆
0x64ea0…64ec0 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 20 61 ┆ begin comment repeat a┆
0x64ec0…64ee0 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 77 ┆ction; if w2:=(w┆
0x64ee0…64efc 31 29 2e 74 63 5f 6b 69 6e 64 20 61 6e 64 20 34 30 39 34 3c 3e 31 34 20 74 68 65 6e ┆1).tc_kind and 4094<>14 then┆
0x64efc…64f02 (0x324,0xc9f)
0x64f02…64f20 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 20 20 20 ┆ goto w_notallow; ┆
0x64f20…64f40 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┆
0x64f40…64f60 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 77 6f 72 6b 66 66 ┆; (w1).tc_workff┆
0x64f60…64f7a 73 20 3a 3d 20 77 30 20 3a 3d 20 66 72 65 65 70 61 72 61 6d 3b 0a 20 20 20 20 ┆s := w0 := freeparam; ┆
0x64f7a…64f80 (0x324,0xca0)
0x64f80…64fa0 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 62 65 67 ┆ end; beg┆
0x64fa0…64fc0 69 6e 20 63 6f 6d 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 ┆in comment restart action; ┆
0x64fc0…64fe0 20 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 28 77 31 29 2e 74 63 5f 6b 69 6e 64 3b 0a 20 20 20 ┆ w2:=(w1).tc_kind; ┆
0x64fe0…65000 20 20 20 20 20 20 20 20 20 20 20 20 20 77 32 20 61 6e 64 20 34 30 39 34 00 00 00 00 00 00 00 00 ┆ w2 and 4094 ┆
0x65000…65006 (808,) (0x324,0xca1)
0x65006…65020 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 32 3d 31 32 ┆; if w2=12┆
0x65020…65040 20 74 68 65 6e 20 77 32 3a 3d 31 34 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 ┆ then w2:=14; if┆
0x65040…65060 20 77 32 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 ┆ w2<>14 then goto w_notallow; ┆
0x65060…6507e 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 ┆ if w0=0 then got┆
0x6507e…65084 (0x324,0xca2)
0x65084…650a0 6f 20 77 5f 75 6e 6b 6e 6f 77 6e 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 ┆o w_unknown; e┆
0x650a0…650c0 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 74 20 ┆nd; begin comment ┆
0x650c0…650e0 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 20 20 69 66 20 ┆stop action; if ┆
0x650e0…650fc 77 30 3c 3e 30 20 74 68 65 6e 20 67 6f 74 6f 20 77 5f 73 74 61 74 65 69 6c 6c 3b 0a ┆w0<>0 then goto w_stateill; ┆
0x650fc…65102 (0x324,0xca3)
0x65102…65120 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; ┆
0x65120…65140 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 6b 69 6c 6c 20 61 63 74 69 6f 6e 3b 0a 20 20 ┆ begin comment kill action; ┆
0x65140…65160 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 ┆
0x65160…6517a 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 ┆w_stateill; ┆
0x6517a…65180 (0x324,0xca4)
0x65180…651a0 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 74 ┆end; begin comment┆
0x651a0…651c0 20 73 75 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 20 ┆ suspend action; ┆
0x651c0…651e0 20 69 66 20 77 32 3a 3d 28 77 31 29 2e 74 63 5f 6b 69 6e 64 3c 3e 31 34 20 74 68 65 6e 20 67 6f ┆ if w2:=(w1).tc_kind<>14 then go┆
0x651e0…65200 74 6f 20 77 5f 6e 6f 74 61 6c 6c 6f 77 3b 0a 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆to w_notallow; ┆
0x65200…65206 (809,) (0x324,0xca5)
0x65206…65220 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 ┆ if w0=0 then goto w┆
0x65220…65240 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 65 6e 64 3b 0a 20 20 ┆_stateill; end; ┆
0x65240…65260 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 20 21 20 65 6e 64 20 63 61 73 65 20 21 0a 20 20 20 20 ┆ end; ! end case ! ┆
0x65260…6527e 20 20 20 20 20 20 20 20 28 77 31 29 2e 74 63 5f 6f 69 6e 74 65 72 76 65 6e 74 20 3a 3d 20 ┆ (w1).tc_ointervent := ┆
0x6527e…65284 (0x324,0xca6)
0x65284…652a0 77 30 20 3a 3d 20 63 6f 6d 6e 6f 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 ┆w0 := comno; if ┆
0x652a0…652c0 77 30 3c 3e 35 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 ┆w0<>5 then begin com┆
0x652c0…652e0 6d 65 6e 74 20 6c 69 6e 6b 20 74 6f 20 61 63 74 69 76 65 20 71 75 65 75 65 3b 0a 20 20 20 20 20 ┆ment link to active queue; ┆
0x652e0…652fc 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┆
0x652fc…65302 (0x324,0xca7)
0x65302…65320 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 ┆dress(b.activqfst)); ┆
0x65320…65340 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 64 20 73 74 61 ┆ end; end; ! end sta┆
0x65340…65360 72 74 20 73 6b 69 70 20 72 65 70 65 61 74 20 72 65 73 74 61 72 74 20 73 74 6f 70 20 6b 69 6c 6c ┆rt skip repeat restart stop kill┆
0x65360…6537a 20 73 75 73 70 65 6e 64 20 21 0a 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 ┆ suspend ! begi┆
0x6537a…65380 (0x324,0xca8)
0x65380…653a0 6e 20 63 6f 6d 6d 65 6e 74 20 64 72 61 69 6e 20 61 63 74 69 6f 6e 3b 0a 20 20 20 20 20 20 20 20 ┆n comment drain action; ┆
0x653a0…653c0 20 20 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 20 69 ┆ w1:=devcorout; i┆
0x653c0…653e0 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 0a 20 20 20 20 ┆f w1=0 then goto w_unknown; ┆
0x653e0…65400 20 20 20 20 20 20 20 20 69 66 20 77 31 3c 30 20 74 68 65 6e 20 2d 28 77 00 00 00 00 00 00 00 00 ┆ if w1<0 then -(w ┆
0x65400…65406 (810,) (0x324,0xca9)
0x65406…65420 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 ┆1); if w0:=(w1┆
0x65420…65440 29 2e 74 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 61 6c 6c ┆).tc_kind<>14 then goto w_notall┆
0x65440…65460 6f 77 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 70 72 5f 64 72 61 69 6e 20 3a 3d ┆ow; (w1).pr_drain :=┆
0x65460…6547e 20 77 30 20 3a 3d 20 2d 31 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 ┆ w0 := -1; end; ┆
0x6547e…65484 (0x324,0xcaa)
0x65484…654a0 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 72 65 71 75 65 73 74 3b ┆ begin comment request;┆
0x654a0…654c0 0a 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 6e 6f 3d 30 20 74 ┆ if w0:= paramno=0 t┆
0x654c0…654e0 68 65 6e 20 64 69 73 70 6c 61 79 28 2e 77 33 2e 2c 77 30 3a 3d 31 2c 77 31 29 20 21 20 52 45 51 ┆hen display(.w3.,w0:=1,w1) ! REQ┆
0x654e0…654fc 55 45 53 54 20 21 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 ┆UEST ! else if w┆
0x654fc…65502 (0x324,0xcab)
0x65502…65520 31 3a 3d 20 64 65 76 63 6f 72 6f 75 74 20 3e 20 30 20 74 68 65 6e 20 64 69 73 70 6c 61 79 ┆1:= devcorout > 0 then display┆
0x65520…65540 28 2e 77 33 2e 2c 77 30 3a 3d 32 2c 77 31 29 20 21 20 52 45 51 55 45 53 54 20 3c 64 65 76 69 63 ┆(.w3.,w0:=2,w1) ! REQUEST <devic┆
0x65540…65560 65 3e 20 21 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 20 28 77 ┆e> ! else if w0:= (w┆
0x65560…6557a 31 3a 3d 61 64 64 72 65 73 73 28 64 65 76 6e 61 6d 65 29 29 2e 77 6f 72 64 3d ┆1:=address(devname)).word=┆
0x6557a…65580 (0x324,0xcac)
0x65580…655a0 36 33 38 34 37 34 38 20 74 68 65 6e 20 64 69 73 70 6c 61 79 28 2e 77 33 2e 2c 77 30 3a 3d 33 2c ┆6384748 then display(.w3.,w0:=3,┆
0x655a0…655c0 77 31 29 20 21 20 52 45 51 55 45 53 54 20 61 6c 6c 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆w1) ! REQUEST all ! ┆
0x655c0…655e0 65 6c 73 65 20 67 6f 74 6f 20 77 5f 75 6e 6b 6e 6f 77 6e 3b 0a 20 20 20 20 20 20 20 20 20 20 65 ┆else goto w_unknown; e┆
0x655e0…65600 6e 64 3b 20 21 20 65 6e 64 20 64 69 73 70 6c 61 79 20 21 0a 20 20 20 20 00 00 00 00 00 00 00 00 ┆nd; ! end display ! ┆
0x65600…65606 (811,) (0x324,0xcad)
0x65606…65620 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 73 69 67 6e 75 70 ┆ begin comment signup┆
0x65620…65640 20 61 63 74 69 6f 6e 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 2d 38 33 38 38 36 30 ┆ action; w0:=-838860┆
0x65640…65660 37 3b 77 31 3a 3d 38 33 38 38 36 30 35 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 61 ┆7;w1:=8388605; w3:=a┆
0x65660…6567e 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 20 6d 6f 6e 69 ┆ddress(zero); moni┆
0x6567e…65684 (0x324,0xcae)
0x65684…656a0 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 ┆tor(72); ! set catalog base ┆
0x656a0…656c0 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 20 66 72 65 65 70 61 72 61 6d 3b 6b 69 6e ┆! w1:= freeparam;kin┆
0x656c0…656e0 64 3a 3d 20 77 31 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 ┆d:= w1; if w0:=param┆
0x656e0…656fc 31 74 79 70 65 3d 31 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 ┆1type=1 then beg┆
0x656fc…65702 (0x324,0xcaf)
0x65702…65720 69 6e 20 63 6f 6d 6d 65 6e 74 20 73 69 67 6e 75 70 20 74 6f 20 6c 6f 63 61 6c 20 64 65 76 ┆in comment signup to local dev┆
0x65720…65740 69 63 65 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 20 21 20 69 ┆ice; if w1<>15 ! i┆
0x65740…65760 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 20 20 20 20 ┆bm 3270 printer ! then ┆
0x65760…6577a 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 ┆
0x6577a…65780 (0x324,0xcb0)
0x65780…657a0 20 77 33 3a 3d 61 64 64 72 65 73 73 28 64 65 76 6e 61 6d 65 29 3b 0a 20 20 20 20 20 20 20 20 20 ┆ w3:=address(devname); ┆
0x657a0…657c0 20 20 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 70 72 6f 63 ┆ monitor(4); ! lookup proc┆
0x657c0…657e0 65 73 73 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 31 3a 3d 77 30 3d ┆ess ! if w1:=w0=┆
0x657e0…65800 30 20 74 68 65 6e 20 67 6f 74 6f 20 77 5f 75 6e 6b 6e 6f 77 6e 3b 0a 20 00 00 00 00 00 00 00 00 ┆0 then goto w_unknown; ┆
0x65800…65806 (812,) (0x324,0xcb1)
0x65806…65820 20 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 ┆ if w0:=(w1)┆
0x65820…65840 2e 77 6f 72 64 3c 3e 38 34 20 21 20 6c 6f 63 61 6c 20 6c 69 6e 6b 20 21 20 74 68 65 6e 20 67 6f ┆.word<>84 ! local link ! then go┆
0x65840…65860 74 6f 20 77 5f 75 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 ┆to w_unknown; end;┆
0x65860…6587e 20 21 20 65 6e 64 20 6e 6f 74 20 69 62 6d 20 70 72 69 6e 74 65 72 20 21 0a 20 20 20 20 20 ┆ ! end not ibm printer ! ┆
0x6587e…65884 (0x324,0xcb2)
0x65884…658a0 20 20 20 20 20 20 20 20 20 77 30 3a 3d 30 3b 68 6f 73 74 6e 6f 3a 3d 77 30 3b 68 6f ┆ w0:=0;hostno:=w0;ho┆
0x658a0…658c0 73 74 69 64 3a 3d 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 20 ┆stid:=w0; end else ┆
0x658c0…658e0 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 69 67 6e 75 70 20 ┆ begin comment signup ┆
0x658e0…658fc 74 6f 20 72 65 6d 6f 74 65 20 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 ┆to remote ; if┆
0x658fc…65902 (0x324,0xcb3)
0x65902…65920 20 77 31 3c 3e 31 35 20 21 20 69 62 6d 20 33 32 37 30 20 70 72 69 6e 74 65 72 20 21 20 74 ┆ w1<>15 ! ibm 3270 printer ! t┆
0x65920…65940 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 20 ┆hen begin ┆
0x65940…65960 20 20 20 20 20 20 20 20 77 33 3a 3d 61 64 64 72 65 73 73 28 64 68 6c 69 6e 6b 6e 6f 29 3b 0a 20 ┆ w3:=address(dhlinkno); ┆
0x65960…6597a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 6f 6f 6b 75 70 72 65 6d 6f 74 ┆ lookupremot┆
0x6597a…65980 (0x324,0xcb4)
0x65980…659a0 65 28 2e 77 33 2e 2c 77 30 3a 3d 34 2c 77 33 2c 77 33 3a 3d 61 64 64 72 65 73 73 28 64 65 76 6e ┆e(.w3.,w0:=4,w3,w3:=address(devn┆
0x659a0…659c0 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 20 20 20 20 20 ┆ame), ┆
0x659c0…659e0 20 20 20 20 20 20 20 20 77 30 2c 77 31 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 64 68 6c 69 6e 6b ┆ w0,w1,w2:=address(dhlink┆
0x659e0…65a00 6e 6f 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 00 00 00 00 00 00 00 00 ┆no)); if ┆
0x65a00…65a06 (813,) (0x324,0xcb5)
0x65a06…65a20 20 77 30 3d 34 30 39 36 20 74 68 65 6e 20 77 30 3a 3d 30 3b 0a 20 20 20 20 20 ┆ w0=4096 then w0:=0; ┆
0x65a20…65a40 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 20 20 20 20 ┆ if w0<>0 then ┆
0x65a40…65a60 20 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 6c 69 6e ┆ begin comment local lin┆
0x65a60…65a7e 6b 20 6f 72 20 64 65 76 69 63 65 20 74 72 6f 75 62 6c 65 3b 0a 20 20 20 20 20 20 20 20 20 ┆k or device trouble; ┆
0x65a7e…65a84 (0x324,0xcb6)
0x65a84…65aa0 20 20 20 20 20 20 20 20 20 69 66 20 77 30 20 65 78 74 72 61 63 74 20 31 32 3c 3e 30 ┆ if w0 extract 12<>0┆
0x65aa0…65ac0 20 74 68 65 6e 20 67 6f 74 6f 20 77 5f 75 6e 6b 6e 6f 77 6e 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ then goto w_unknown ┆
0x65ac0…65ae0 20 20 20 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 6c 73 65 20 ┆ else ┆
0x65ae0…65afc 67 6f 74 6f 20 77 5f 73 74 61 74 65 69 6c 6c 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆goto w_stateill; ┆
0x65afc…65b02 (0x324,0xcb7)
0x65b02…65b20 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 0a 20 ┆ end; end; ┆
0x65b20…65b40 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 66 69 6e ┆ end; fin┆
0x65b40…65b60 64 5f 74 63 28 2e 77 33 2e 2c 77 33 3a 3d 61 64 64 72 65 73 73 28 64 65 76 6e 61 6d 65 29 2c 77 ┆d_tc(.w3.,w3:=address(devname),w┆
0x65b60…65b7a 33 3a 3d 68 6f 73 74 6e 6f 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆3:=hostno, ┆
0x65b7a…65b80 (0x324,0xcb8)
0x65b80…65ba0 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 68 6f 73 74 69 64 2c 77 33 3a 3d 6b 69 6e 64 2c 77 31 ┆ w3:=hostid,w3:=kind,w1┆
0x65ba0…65bc0 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 31 3d 30 20 74 68 65 6e 20 67 6f 74 6f ┆); if w1=0 then goto┆
0x65bc0…65be0 20 77 5f 6e 6f 72 65 73 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 31 3c ┆ w_nores else if w1<┆
0x65be0…65c00 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 00 00 00 00 00 00 00 00 ┆0 then begin ┆
0x65c00…65c06 (814,) (0x324,0xcb9)
0x65c06…65c20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2d 28 77 31 29 3b 0a 20 20 20 20 ┆ -(w1); ┆
0x65c20…65c40 20 20 20 20 20 20 20 20 20 20 64 65 76 63 6f 72 6f 75 74 3a 3d 20 77 31 3b 0a 20 20 20 20 20 20 ┆ devcorout:= w1; ┆
0x65c40…65c60 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┆
0x65c60…65c7e 65 73 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 ┆ess(devname), ┆
0x65c7e…65c84 (0x324,0xcba)
0x65c84…65ca0 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 64 65 76 ┆ w2:=address((w2:=dev┆
0x65ca0…65cc0 63 6f 72 6f 75 74 29 2e 74 63 5f 64 65 76 6e 61 6d 65 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆corout).tc_devname)); ┆
0x65cc0…65ce0 20 20 20 20 69 66 20 77 30 3a 3d 68 6f 73 74 69 64 3d 30 20 21 20 6c 6f 63 61 6c 20 64 65 76 69 ┆ if w0:=hostid=0 ! local devi┆
0x65ce0…65cfc 63 65 20 21 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f 76 65 ┆ce ! then move┆
0x65cfc…65d02 (0x324,0xcbb)
0x65d02…65d20 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 77 32 ┆(.w3.,w0:=8,w1,w2:=address((w2┆
0x65d20…65d40 3a 3d 64 65 76 63 6f 72 6f 75 74 29 2e 74 63 5f 6e 61 6d 65 29 29 3b 0a 20 20 20 20 20 20 20 20 ┆:=devcorout).tc_name)); ┆
0x65d40…65d60 20 20 20 20 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; ┆
0x65d60…65d7a 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 68 ┆ (w1).tc_hostno:= w0:= h┆
0x65d7a…65d80 (0x324,0xcbc)
0x65d80…65da0 6f 73 74 6e 6f 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 74 63 5f 68 6f 73 ┆ostno; (w1).tc_hos┆
0x65da0…65dc0 74 69 64 3a 3d 20 77 30 3a 3d 20 68 6f 73 74 69 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 ┆tid:= w0:= hostid; e┆
0x65dc0…65de0 6e 64 20 65 6c 73 65 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 ┆nd else devcorout:= w1; ┆
0x65de0…65e00 20 20 20 20 69 66 20 77 30 3a 3d 20 28 77 31 29 2e 74 63 5f 68 65 6c 64 00 00 00 00 00 00 00 00 ┆ if w0:= (w1).tc_held ┆
0x65e00…65e06 (815,) (0x324,0xcbd)
0x65e06…65e20 3c 3e 30 20 74 68 65 6e 20 28 77 31 29 2e 74 63 5f 68 65 6c 64 3a 3d 20 77 30 ┆<>0 then (w1).tc_held:= w0┆
0x65e20…65e40 3a 3d 20 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 74 3b ┆:= 1; w3:=b.current;┆
0x65e40…65e60 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 3d 20 77 30 3a 3d ┆ (w1).tc_ohno:= w0:=┆
0x65e60…65e7e 20 28 77 33 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 ┆ (w3).opr_hostno; ┆
0x65e7e…65e84 (0x324,0xcbe)
0x65e84…65ea0 28 77 31 29 2e 74 63 5f 6f 68 69 64 3a 3d 20 77 30 3a 3d 20 28 77 33 29 2e 6f 70 72 ┆(w1).tc_ohid:= w0:= (w3).opr┆
0x65ea0…65ec0 5f 68 6f 73 74 69 64 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 ┆_hostid; move(.w3.,w┆
0x65ec0…65ee0 30 3a 3d 38 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 ┆0:=8,w1:=address((w3).opr_consol┆
0x65ee0…65efc 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 20 77 32 ┆e), w2┆
0x65efc…65f02 (0x324,0xcbf)
0x65f02…65f20 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 63 5f 63 ┆:=address((w2:=devcorout).tc_c┆
0x65f20…65f40 6f 6e 73 6f 6c 65 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 20 61 64 64 72 65 ┆onsole)); w2:= addre┆
0x65f40…65f60 73 73 28 28 77 32 3a 3d 64 65 76 63 6f 72 6f 75 74 29 2e 74 63 5f 64 65 76 63 6f 6e 73 29 3b 0a ┆ss((w2:=devcorout).tc_devcons); ┆
0x65f60…65f7a 20 20 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 20 28 77 33 29 2e 6f 70 72 5f ┆ w0:= (w3).opr_┆
0x65f7a…65f80 (0x324,0xcc0)
0x65f80…65fa0 68 6f 73 74 6e 6f 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 20 3e 20 28 77 33 29 ┆hostno; if w0 > (w3)┆
0x65fa0…65fc0 2e 6f 70 72 5f 68 6f 73 74 69 64 20 74 68 65 6e 20 21 20 63 73 70 20 74 65 72 6d 69 6e 61 6c 20 ┆.opr_hostid then ! csp terminal ┆
0x65fc0…65fe0 21 20 6d 6f 76 65 20 28 2e 77 33 2e 2c 77 30 3a 3d 38 2c 77 31 2c 77 32 29 20 65 6c 73 65 0a 20 ┆! move (.w3.,w0:=8,w1,w2) else ┆
0x65fe0…66000 20 20 20 20 20 20 20 20 20 20 20 74 65 72 6d 69 6e 61 6c 69 64 28 2e 77 00 00 00 00 00 00 00 00 ┆ terminalid(.w ┆
0x66000…66006 (816,) (0x324,0xcc1)
0x66006…66020 33 2e 2c 77 30 3a 3d 28 77 33 29 2e 6f 70 72 5f 64 68 6c 69 6e 6b 6e 6f 2c 77 ┆3.,w0:=(w3).opr_dhlinkno,w┆
0x66020…66040 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 63 5f 64 65 ┆2:=address((w2:=devcorout).tc_de┆
0x66040…66060 76 63 6f 6e 73 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 74 65 73 74 6f 75 74 28 2e 77 33 ┆vcons)); testout(.w3┆
0x66060…6607e 2e 2c 77 30 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 ┆.,w0:=!length(transpcorout),w1┆
0x6607e…66084 (0x324,0xcc2)
0x66084…660a0 3a 3d 64 65 76 63 6f 72 6f 75 74 2c 77 32 3a 3d 36 38 29 3b 0a 20 20 20 20 20 20 20 ┆:=devcorout,w2:=68); ┆
0x660a0…660c0 20 20 20 20 20 64 69 73 70 6c 61 79 28 2e 77 33 2e 2c 77 30 3a 3d 32 2c 77 31 29 3b 20 21 20 67 ┆ display(.w3.,w0:=2,w1); ! g┆
0x660c0…660e0 65 74 20 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 ┆et request if any ! en┆
0x660e0…660fc 64 3b 20 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 ┆d; ! end signup ! ┆
0x660fc…66102 (0x324,0xcc3)
0x66102…66120 62 65 67 69 6e 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 ┆begin ! signoff ! ┆
0x66120…66140 20 77 31 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 ┆ w1:=devcorout; !test 250; ┆
0x66140…66160 20 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 75 6e 6b 6e 6f ┆ if w1=0 then goto w_unkno┆
0x66160…6617a 77 6e 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 31 3c 30 20 74 68 ┆wn; if w1<0 th┆
0x6617a…66180 (0x324,0xcc4)
0x66180…661a0 65 6e 20 2d 28 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 ┆en -(w1); if w0:=(w1┆
0x661a0…661c0 29 2e 74 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 ┆).tc_kind=14 then (w┆
0x661c0…661e0 31 29 2e 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 ┆1).pr_headtrail:=w0:=b.prheadtra┆
0x661e0…66200 69 6c 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 20 61 64 64 00 00 00 00 00 00 00 00 ┆il; w2:= add ┆
0x66200…66206 (817,) (0x324,0xcc5)
0x66206…66220 72 65 73 73 28 28 77 31 29 2e 74 63 5f 63 6f 6e 73 6f 6c 65 29 3b 0a 20 20 20 ┆ress((w1).tc_console); ┆
0x66220…66240 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 30 3b 0a 20 20 20 ┆ (w2).word:= w0:= 0; ┆
0x66240…66260 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 74 63 5f 64 65 ┆ w2:= address((w1).tc_de┆
0x66260…6627e 76 63 6f 6e 73 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 77 32 29 2e 77 6f 72 64 3a ┆vcons); (w2).word:┆
0x6627e…66284 (0x324,0xcc6)
0x66284…662a0 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 ┆= w0; (w1).tc_oh┆
0x662a0…662c0 6e 6f 3a 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 ┆no:= w0; (w1).tc_ohi┆
0x662c0…662e0 64 3a 3d 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 ┆d:= w0; if w0<>(w1).┆
0x662e0…662fc 74 63 5f 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 ┆tc_held then (w1).tc_held:= ┆
0x662fc…66302 (0x324,0xcc7)
0x66302…66320 77 30 3a 3d 20 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 ┆w0:= 2; end; ┆
0x66320…66340 20 20 20 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 ┆ begin comment select <printer┆
0x66340…66360 3e 20 28 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 ┆> (<qgroup>.<qname>)0/1; ┆
0x66360…6637a 20 20 20 20 20 77 31 3a 3d 64 65 76 63 6f 72 6f 75 74 3b 0a 20 20 20 20 20 20 ┆ w1:=devcorout; ┆
0x6637a…66380 (0x324,0xcc8)
0x66380…663a0 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 74 61 74 65 69 ┆ if w1<0 then goto w_statei┆
0x663a0…663c0 6c 6c 20 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 ┆ll else if w1=0 then goto w_unkn┆
0x663c0…663e0 6f 77 6e 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 ┆own else; if w0:=(w1┆
0x663e0…66400 29 2e 74 63 5f 6b 69 6e 64 3c 3e 31 34 20 74 68 65 6e 20 67 6f 74 6f 20 00 00 00 00 00 00 00 00 ┆).tc_kind<>14 then goto ┆
0x66400…66406 (818,) (0x324,0xcc9)
0x66406…66420 77 5f 6e 6f 74 61 6c 6c 6f 77 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 ┆w_notallow; if┆
0x66420…66440 20 77 30 3a 3d 70 61 72 61 6d 6e 6f 3d 34 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ w0:=paramno=4 then ┆
0x66440…66460 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> (┆
0x66460…6647e 66 69 72 73 74 2f 6c 61 73 74 2f 6e 65 78 74 2f 70 72 65 76 69 6f 75 73 2f 73 75 73 70 65 ┆first/last/next/previous/suspe┆
0x6647e…66484 (0x324,0xcca)
0x66484…664a0 6e 64 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 30 20 3a 3d 20 66 72 65 ┆nd); w0 := fre┆
0x664a0…664c0 65 70 61 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 ┆eparam; if w0=6711┆
0x664c0…664e0 36 36 36 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 ┆666 ! first ! then w0:=1 else ┆
0x664e0…664fc 20 20 20 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 ┆ if w0=7102835 !┆
0x664fc…66502 (0x324,0xccb)
0x66502…66520 20 6c 61 73 74 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 ┆ last ! then w0:=2 else ┆
0x66520…66540 20 20 20 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 ┆ if w0=7234936 ! next ┆
0x66540…66560 20 21 20 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 ┆ ! then w0:=3 else ┆
0x66560…6657a 20 69 66 20 77 30 3d 37 33 36 39 33 31 37 20 21 20 70 72 65 76 2e 20 20 21 20 ┆ if w0=7369317 ! prev. ! ┆
0x6657a…66580 (0x324,0xccc)
0x66580…665a0 74 68 65 6e 20 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 ┆then w0:=4 else if┆
0x665a0…665c0 20 77 30 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 ┆ w0=7566707 ! suspnd ! then w0:=┆
0x665c0…665e0 35 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 77 5f 73 79 6e 74 ┆5 else goto w_synt┆
0x665e0…66600 61 78 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 70 00 00 00 00 00 00 00 00 ┆ax; (w1).p ┆
0x66600…66606 (819,) (0x324,0xccd)
0x66606…66620 72 5f 73 65 6c 65 63 74 20 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆r_select := w0; ┆
0x66620…66640 20 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 6e 0a 20 20 20 ┆ end else begin ┆
0x66640…66660 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 61 ┆ move(.w3.,w0:=8,w1:=a┆
0x66660…6667e 64 64 72 65 73 73 28 70 61 72 61 6d 65 74 65 72 73 29 2c 0a 20 20 20 20 20 20 20 20 20 20 ┆ddress(parameters), ┆
0x6667e…66684 (0x324,0xcce)
0x66684…666a0 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 ┆ w2:=addr┆
0x666a0…666c0 65 73 73 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 ┆ess((w3:=devcorout).tc_qgroup));┆
0x666c0…666e0 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 38 2c 77 ┆ move(.w3.,w0:=8,w┆
0x666e0…666fc 31 3a 3d 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 ┆1:=address(parameters)+8, ┆
0x666fc…66702 (0x324,0xccf)
0x66702…66720 20 20 20 20 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 ┆ w2┆
0x66720…66740 3a 3d 61 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 ┆:=address((w3:=devcorout).tc_qna┆
0x66740…66760 6d 65 29 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 ┆me)); end; ┆
0x66760…6677a 20 20 20 69 66 20 77 30 3a 3d 28 77 31 3a 3d 64 65 76 63 6f 72 6f 75 74 29 2e ┆ if w0:=(w1:=devcorout).┆
0x6677a…66780 (0x324,0xcd0)
0x66780…667a0 70 72 5f 64 72 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 ┆pr_drain=1 then begi┆
0x667a0…667c0 6e 0a 20 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 ┆n w0:=0; ┆
0x667c0…667e0 20 20 20 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 ┆ (w1).tc_held:= w0; ┆
0x667e0…66800 20 20 20 20 20 20 28 77 31 29 2e 63 5f 69 63 20 3a 3d 20 77 30 3b 0a 20 00 00 00 00 00 00 00 00 ┆ (w1).c_ic := w0; ┆
0x66800…66806 (820,) (0x324,0xcd1)
0x66806…66820 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 ┆ link(.w3.,w1,┆
0x66820…66840 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)); ┆
0x66840…66860 20 20 20 20 20 20 20 65 6e 64 20 65 6c 73 65 20 28 77 31 29 2e 70 72 5f 64 72 61 69 6e 3a 3d 20 ┆ end else (w1).pr_drain:= ┆
0x66860…6687e 77 30 3a 3d 20 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 ┆w0:= -1; end; ┆
0x6687e…66884 (0x324,0xcd2)
0x66884…668a0 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 72 6f 75 74 65 20 3c 70 72 69 ┆ begin comment route <pri┆
0x668a0…668c0 6e 74 65 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 ┆nter> <device> <devi┆
0x668c0…668e0 63 65 3e 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 ┆ce>::= catalog entry; ┆
0x668e0…668fc 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; ┆
0x668fc…66902 (0x324,0xcd3)
0x66902…66920 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 ┆
0x66920…66940 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┆
0x66940…66960 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┆
0x66960…6697a 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┆
0x6697a…66980 (0x324,0xcd4)
0x66980…669a0 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 28 77 31 29 2e 70 ┆allow; if w0:=(w1).p┆
0x669a0…669c0 72 5f 64 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 ┆r_drain<>1 then goto w_stateill;┆
0x669c0…669e0 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 28 2e 77 33 2e 2c ┆ looktransport(.w3.,┆
0x669e0…66a00 77 31 3a 3d 28 77 31 3a 3d 64 65 76 63 6f 72 6f 75 74 2e 70 72 5f 71 75 00 00 00 00 00 00 00 00 ┆w1:=(w1:=devcorout.pr_qu ┆
0x66a00…66a06 (821,) (0x324,0xcd5)
0x66a06…66a20 65 72 65 66 29 2e 74 71 5f 74 72 61 6e 73 6e 6f 2c 77 32 29 3b 0a 20 20 20 20 ┆eref).tq_transno,w2); ┆
0x66a20…66a40 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 77 5f 61 70 70 ┆ if w2<=0 then goto w_app┆
0x66a40…66a60 6c 6b 69 6c 6c 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 74 72 61 6e 73 72 65 66 3a 3d 20 77 32 ┆lkill; transref:= w2┆
0x66a60…66a7e 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 28 77 32 29 2e 74 72 5f 62 61 73 65 ┆; w0:=(w2).tr_base┆
0x66a7e…66a84 (0x324,0xcd6)
0x66a84…66aa0 6c 3b 77 31 3a 3d 28 77 32 29 2e 74 72 5f 62 61 73 65 75 3b 0a 20 20 20 20 20 20 20 ┆l;w1:=(w2).tr_baseu; ┆
0x66aa0…66ac0 20 20 20 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 ┆ w3:=address(zero); ┆
0x66ac0…66ae0 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 61 6c 6f 67 20 62 ┆ monitor(72); ! set catalog b┆
0x66ae0…66afc 61 73 65 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 ┆ase to that of sender ! ┆
0x66afc…66b02 (0x324,0xcd7)
0x66b02…66b20 20 20 20 20 20 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 ┆ tail(w1:=1); ┆
0x66b20…66b40 20 20 20 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 ┆ w3:=address(parameters); ┆
0x66b40…66b60 20 20 20 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 ┆ monitor(42); ! lookup en┆
0x66b60…66b7a 74 72 79 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3c 3e 30 ┆try ! if w0<>0┆
0x66b7a…66b80 (0x324,0xcd8)
0x66b80…66ba0 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 20 20 20 20 20 20 20 ┆ then goto w_recentry; ┆
0x66ba0…66bc0 20 20 20 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 ┆ w0:=(tail(w1:=1)).word; ┆
0x66bc0…66be0 20 20 20 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 ┆ if w0=-8380402 then w0:=-┆
0x66be0…66c00 38 33 38 38 35 39 34 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 00 00 00 00 00 00 00 00 ┆8388594; if ┆
0x66c00…66c06 (822,) (0x324,0xcd9)
0x66c06…66c20 77 30 3c 3e 2d 38 33 38 38 35 39 34 20 74 68 65 6e 20 67 6f 74 6f 20 77 5f 72 ┆w0<>-8388594 then goto w_r┆
0x66c20…66c40 65 63 65 6e 74 72 79 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 ┆ecentry; move(.w3.,w┆
0x66c40…66c60 30 3a 3d 38 2c 74 61 69 6c 28 77 31 3a 3d 32 29 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 64 65 73 ┆0:=8,tail(w1:=2),w2:=address(des┆
0x66c60…66c7e 74 6e 61 6d 65 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 66 69 6e 64 5f 74 63 28 2e ┆tname)); find_tc(.┆
0x66c7e…66c84 (0x324,0xcda)
0x66c84…66ca0 77 33 2e 2c 77 30 3a 3d 61 64 64 72 65 73 73 28 64 65 73 74 6e 61 6d 65 29 2c 77 30 ┆w3.,w0:=address(destname),w0┆
0x66ca0…66cc0 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 20 20 20 20 20 ┆:=(tail(w1:=7)).word, ┆
0x66cc0…66ce0 20 20 20 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 ┆ w0:=(tail(w1:=8))┆
0x66ce0…66cfc 2e 77 6f 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 ┆.word,w0:=14,w1); ┆
0x66cfc…66d02 (0x324,0xcdb)
0x66d02…66d20 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 3b 0a 20 ┆ if w1=0 then goto w_nores; ┆
0x66d20…66d40 20 20 20 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 ┆ destref := w1; ┆
0x66d40…66d60 20 20 20 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 ┆ if w1<0 then b┆
0x66d60…66d7a 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 63 72 65 61 74 65 20 63 6f 72 6f 75 74 ┆egin comment create corout┆
0x66d7a…66d80 (0x324,0xcdc)
0x66d80…66da0 69 6e 65 3b 0a 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 ┆ine; -(w1);destref┆
0x66da0…66dc0 3a 3d 77 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 ┆:=w1; if w0:=(tail┆
0x66dc0…66de0 28 77 31 3a 3d 37 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 ┆(w1:=7)).word=0 then ┆
0x66de0…66e00 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 6c 6f 63 61 6c 20 64 00 00 00 00 00 00 00 00 ┆ begin comment local d ┆
0x66e00…66e06 (823,) (0x324,0xcdd)
0x66e06…66e20 65 76 69 63 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 33 3a ┆evice; w3:┆
0x66e20…66e40 3d 61 64 64 72 65 73 73 28 64 65 73 74 6e 61 6d 65 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆=address(destname); ┆
0x66e40…66e60 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 70 72 6f 63 65 73 73 ┆ monitor(4); ! lookup process┆
0x66e60…66e7e 20 21 0a 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 ┆ ! if w0=0 the┆
0x66e7e…66e84 (0x324,0xcde)
0x66e84…66ea0 6e 20 67 6f 74 6f 20 77 5f 72 65 63 64 65 76 69 63 65 3b 0a 20 20 20 20 20 20 20 20 ┆n goto w_recdevice; ┆
0x66ea0…66ec0 20 20 20 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 ┆ procref:=w0; ┆
0x66ec0…66ee0 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 ┆
0x66ee0…66efc 63 6f 6d 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 ┆comment remote device; ┆
0x66efc…66f02 (0x324,0xcdf)
0x66f02…66f20 20 20 20 20 20 20 20 20 20 20 20 74 61 69 6c 28 77 31 3a 3d 37 29 3b 0a 20 20 20 20 20 20 ┆ tail(w1:=7); ┆
0x66f20…66f40 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 3a 3d ┆ lookupremote(.w3.,w0:=┆
0x66f40…66f60 34 2c 77 30 3a 3d 77 31 2c 77 30 3a 3d 61 64 64 72 65 73 73 28 64 65 73 74 6e 61 6d 65 29 2c 0a ┆4,w0:=w1,w0:=address(destname), ┆
0x66f60…66f7a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x66f7a…66f80 (0x324,0xce0)
0x66f80…66fa0 20 20 20 20 20 20 20 77 30 2c 77 31 3a 3d 31 34 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 64 68 6c ┆ w0,w1:=14,w2:=address(dhl┆
0x66fa0…66fc0 69 6e 6b 6e 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 3c 3e ┆inkno)); if w0<>┆
0x66fc0…66fe0 34 30 39 36 20 74 68 65 6e 20 67 6f 74 6f 20 77 5f 72 65 63 64 65 76 69 63 65 3b 0a 20 20 20 20 ┆4096 then goto w_recdevice; ┆
0x66fe0…67000 20 20 20 20 20 20 20 20 20 20 20 20 70 72 6f 63 72 65 66 3a 3d 77 32 3b 00 00 00 00 00 00 00 00 ┆ procref:=w2; ┆
0x67000…67006 (824,) (0x324,0xce1)
0x67006…67020 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 ┆ end; ┆
0x67020…67040 20 20 20 20 20 20 20 20 77 31 3a 3d 64 65 73 74 72 65 66 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ w1:=destref; ┆
0x67040…67060 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 72 65 73 73 ┆ create_tc(.w3.,w1,w0:=address┆
0x67060…6707e 28 64 65 73 74 6e 61 6d 65 29 2c 77 30 3a 3d 28 74 61 69 6c 28 77 32 3a 3d 37 29 29 2e 77 ┆(destname),w0:=(tail(w2:=7)).w┆
0x6707e…67084 (0x324,0xce2)
0x67084…670a0 6f 72 64 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 ┆ord, ┆
0x670a0…670c0 20 20 20 20 20 20 77 30 3a 3d 28 74 61 69 6c 28 77 32 3a 3d 38 29 29 2e 77 6f 72 64 2c 77 30 3a ┆ w0:=(tail(w2:=8)).word,w0:┆
0x670c0…670e0 3d 70 72 6f 63 72 65 66 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 ┆=procref); end; ┆
0x670e0…670fc 20 20 20 20 20 20 20 20 77 30 20 3a 3d 20 61 64 64 72 65 73 73 28 28 77 31 3a 3d 64 ┆ w0 := address((w1:=d┆
0x670fc…67102 (0x324,0xce3)
0x67102…67120 65 73 74 72 65 66 29 2e 74 63 5f 6e 65 78 74 74 72 29 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆estref).tc_nexttr); ┆
0x67120…67140 20 20 77 33 20 3a 3d 20 28 77 31 3a 3d 64 65 76 63 6f 72 6f 75 74 29 2e 70 72 5f 71 75 65 72 65 ┆ w3 := (w1:=devcorout).pr_quere┆
0x67140…67160 66 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 3a 3d 77 33 2c ┆f; link(.w3.,w1:=w3,┆
0x67160…6717a 77 32 3a 3d 77 30 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 74 ┆w2:=w0); w2:=t┆
0x6717a…67180 (0x324,0xce4)
0x67180…671a0 72 61 6e 73 72 65 66 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 77 32 29 2e 74 72 5f 63 6f 72 ┆ransref; (w2).tr_cor┆
0x671a0…671c0 6f 75 20 3a 3d 20 77 30 20 3a 3d 20 64 65 73 74 72 65 66 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ou := w0 := destref; ┆
0x671c0…671e0 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 64 65 73 ┆ move(.w3.,w0:=8,w1:=address(des┆
0x671e0…67200 74 6e 61 6d 65 29 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 28 77 32 29 2e 00 00 00 00 00 00 00 00 ┆tname),w2:=address((w2). ┆
0x67200…67206 (825,) (0x324,0xce5)
0x67206…67220 74 72 5f 72 6e 61 6d 65 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 70 75 ┆tr_rname)); pu┆
0x67220…67240 74 74 72 61 6e 73 70 6f 72 74 28 2e 77 33 2e 2c 77 31 3a 3d 64 65 76 63 6f 72 6f 75 74 2e 74 63 ┆ttransport(.w3.,w1:=devcorout.tc┆
0x67240…67260 5f 74 72 61 6e 73 6e 6f 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 64 65 76 63 6f ┆_transno); w1:=devco┆
0x67260…6727e 72 6f 75 74 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 ┆rout; w0:=0; ┆
0x6727e…67284 (0x324,0xce6)
0x67284…672a0 20 20 20 20 20 20 20 28 77 31 29 2e 74 63 5f 68 65 6c 64 3a 3d 20 77 30 3b 0a 20 20 ┆ (w1).tc_held:= w0; ┆
0x672a0…672c0 20 20 20 20 20 20 20 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 ┆ (w1).c_ic := w0; ┆
0x672c0…672e0 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 28 ┆ link(.w3.,w1,w2:=address(┆
0x672e0…672fc 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 65 6e 64 ┆b.activqfst)); end┆
0x672fc…67302 (0x324,0xce7)
0x67302…67320 3b 20 21 20 65 6e 64 20 72 6f 75 74 65 20 3c 70 72 69 6e 74 65 72 3e 20 3c 64 65 73 74 70 ┆; ! end route <printer> <destp┆
0x67320…67340 72 69 6e 74 65 72 3e 20 21 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e ┆rinter> ! begin commen┆
0x67340…67360 74 20 74 72 69 61 6e 67 20 3c 70 72 69 6e 74 65 72 3e 20 28 6f 6e 2f 6f 66 66 29 3b 0a 20 20 20 ┆t triang <printer> (on/off); ┆
0x67360…6737a 20 20 20 20 20 20 20 20 20 77 31 3a 3d 64 65 76 63 6f 72 6f 75 74 3b 0a 20 20 ┆ w1:=devcorout; ┆
0x6737a…67380 (0x324,0xce8)
0x67380…673a0 20 20 20 20 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 75 6e ┆ if w1=0 then goto w_un┆
0x673a0…673c0 6b 6e 6f 77 6e 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 20 ┆known; if w1<0 then ┆
0x673c0…673e0 2d 28 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┆
0x673e0…67400 63 5f 6b 69 6e 64 3c 3e 31 34 20 74 68 65 6e 20 67 6f 74 6f 20 77 5f 6e 00 00 00 00 00 00 00 00 ┆c_kind<>14 then goto w_n ┆
0x67400…67406 (826,) (0x324,0xce9)
0x67406…67420 6f 74 61 6c 6c 6f 77 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 66 ┆otallow; w0:=f┆
0x67420…67440 72 65 65 70 61 72 61 6d 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3d 37 33 30 32 ┆reeparam; if w0=7302┆
0x67440…67460 36 35 36 20 21 20 6f 6e 20 20 21 20 74 68 65 6e 20 28 77 31 29 2e 70 72 5f 68 65 61 64 74 72 61 ┆656 ! on ! then (w1).pr_headtra┆
0x67460…6747e 69 6c 20 3a 3d 20 77 30 20 3a 3d 20 31 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 ┆il := w0 := 1 else ┆
0x6747e…67484 (0x324,0xcea)
0x67484…674a0 20 69 66 20 77 30 3d 37 33 30 30 37 31 30 20 21 20 6f 66 66 20 21 20 74 68 65 6e 20 ┆ if w0=7300710 ! off ! then ┆
0x674a0…674c0 28 77 31 29 2e 70 72 5f 68 65 61 64 74 72 61 69 6c 20 3a 3d 20 77 30 20 3a 3d 20 30 20 65 6c 73 ┆(w1).pr_headtrail := w0 := 0 els┆
0x674c0…674e0 65 0a 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 0a 20 20 20 ┆e goto w_syntax; ┆
0x674e0…674fc 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 ┆ end; begin ┆
0x674fc…67502 (0x324,0xceb)
0x67502…67520 63 6f 6d 6d 65 6e 74 20 64 69 73 70 6c 61 79 20 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆comment display ; ┆
0x67520…67540 64 69 73 70 6c 61 79 28 2e 77 33 2e 2c 77 30 3a 3d 34 2c 77 31 29 3b 0a 20 20 20 20 20 20 20 20 ┆display(.w3.,w0:=4,w1); ┆
0x67540…67560 20 20 65 6e 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 20 65 ┆ end; ! end display ! e┆
0x67560…6757a 6e 64 3b 20 21 20 63 61 73 65 20 21 0a 0a 20 20 20 20 20 20 20 20 69 66 20 77 ┆nd; ! case ! if w┆
0x6757a…67580 (0x324,0xcec)
0x67580…675a0 31 3c 3e 77 31 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 ┆1<>w1 then begin comment┆
0x675a0…675c0 20 65 72 72 6f 72 74 65 78 74 73 3b 0a 77 5f 73 79 6e 74 61 78 3a 20 20 20 20 20 77 31 3a 3d 61 ┆ errortexts; w_syntax: w1:=a┆
0x675c0…675e0 64 64 72 65 73 73 28 74 5f 73 79 6e 74 61 78 29 3b 20 20 20 20 20 67 6f 74 6f 20 6f 75 74 74 65 ┆ddress(t_syntax); goto outte┆
0x675e0…67600 78 74 3b 0a 77 5f 63 6f 6d 6d 3a 20 20 20 20 20 20 20 77 31 3a 3d 61 64 00 00 00 00 00 00 00 00 ┆xt; w_comm: w1:=ad ┆
0x67600…67606 (827,) (0x324,0xced)
0x67606…67620 64 72 65 73 73 28 74 5f 63 6f 6d 6d 29 3b 20 20 20 20 20 20 20 67 6f 74 6f 20 ┆dress(t_comm); goto ┆
0x67620…67640 6f 75 74 74 65 78 74 3b 0a 77 5f 70 6c 75 73 70 61 72 61 6d 3a 20 20 77 31 3a 3d 61 64 64 72 65 ┆outtext; w_plusparam: w1:=addre┆
0x67640…67660 73 73 28 74 5f 70 6c 75 73 70 61 72 61 6d 29 3b 20 20 67 6f 74 6f 20 6f 75 74 74 65 78 74 3b 0a ┆ss(t_plusparam); goto outtext; ┆
0x67660…6767e 77 5f 6d 69 6e 75 73 70 61 72 61 6d 3a 20 77 31 3a 3d 61 64 64 72 65 73 73 28 74 5f 6d 69 ┆w_minusparam: w1:=address(t_mi┆
0x6767e…67684 (0x324,0xcee)
0x67684…676a0 6e 75 73 70 61 72 61 6d 29 3b 20 67 6f 74 6f 20 6f 75 74 74 65 78 74 3b 0a 77 5f 75 ┆nusparam); goto outtext; w_u┆
0x676a0…676c0 6e 6b 6e 6f 77 6e 3a 20 20 20 20 77 31 3a 3d 61 64 64 72 65 73 73 28 74 5f 75 6e 6b 6e 6f 77 6e ┆nknown: w1:=address(t_unknown┆
0x676c0…676e0 29 3b 20 20 20 20 67 6f 74 6f 20 6f 75 74 74 65 78 74 3b 0a 77 5f 73 74 61 74 65 69 6c 6c 3a 20 ┆); goto outtext; w_stateill: ┆
0x676e0…676fc 20 20 77 31 3a 3d 61 64 64 72 65 73 73 28 74 5f 73 74 61 74 65 69 6c 6c 29 3b 20 20 ┆ w1:=address(t_stateill); ┆
0x676fc…67702 (0x324,0xcef)
0x67702…67720 20 67 6f 74 6f 20 6f 75 74 74 65 78 74 3b 0a 77 5f 6e 6f 74 61 6c 6c 6f 77 3a 20 20 20 77 ┆ goto outtext; w_notallow: w┆
0x67720…67740 31 3a 3d 61 64 64 72 65 73 73 28 74 5f 6e 6f 74 61 6c 6c 6f 77 29 3b 20 20 20 67 6f 74 6f 20 6f ┆1:=address(t_notallow); goto o┆
0x67740…67760 75 74 74 65 78 74 3b 0a 77 5f 6e 6f 72 65 73 3a 20 20 20 20 20 20 77 31 3a 3d 61 64 64 72 65 73 ┆uttext; w_nores: w1:=addres┆
0x67760…6777a 73 28 74 5f 6e 6f 72 65 73 29 3b 20 20 20 20 20 20 67 6f 74 6f 20 6f 75 74 74 ┆s(t_nores); goto outt┆
0x6777a…67780 (0x324,0xcf0)
0x67780…677a0 65 78 74 3b 0a 77 5f 72 65 63 65 6e 74 72 79 3a 20 20 20 77 31 3a 3d 61 64 64 72 65 73 73 28 74 ┆ext; w_recentry: w1:=address(t┆
0x677a0…677c0 5f 72 65 63 65 6e 74 72 79 29 3b 20 20 20 67 6f 74 6f 20 6f 75 74 74 65 78 74 3b 0a 77 5f 72 65 ┆_recentry); goto outtext; w_re┆
0x677c0…677e0 63 64 65 76 69 63 65 3a 20 20 77 31 3a 3d 61 64 64 72 65 73 73 28 74 5f 72 65 63 64 65 76 69 63 ┆cdevice: w1:=address(t_recdevic┆
0x677e0…67800 65 29 3b 20 20 67 6f 74 6f 20 6f 75 74 74 65 78 74 3b 0a 77 5f 61 70 70 00 00 00 00 00 00 00 00 ┆e); goto outtext; w_app ┆
0x67800…67806 (828,) (0x324,0xcf1)
0x67806…67820 6c 6b 69 6c 6c 3a 20 20 20 77 31 3a 3d 61 64 64 72 65 73 73 28 74 5f 61 70 70 ┆lkill: w1:=address(t_app┆
0x67820…67840 6c 6b 69 6c 6c 29 3b 20 20 20 67 6f 74 6f 20 6f 75 74 74 65 78 74 3b 0a 20 20 20 20 20 20 20 20 ┆lkill); goto outtext; ┆
0x67840…67860 65 6e 64 3b 0a 0a 20 20 20 20 20 20 20 20 77 31 3a 3d 20 61 64 64 72 65 73 73 28 74 5f 72 65 61 ┆end; w1:= address(t_rea┆
0x67860…6787e 64 79 29 3b 0a 6f 75 74 74 65 78 74 3a 0a 20 20 20 20 20 20 20 20 21 20 77 31 20 61 62 73 ┆dy); outtext: ! w1 abs┆
0x6787e…67884 (0x324,0xcf2)
0x67884…678a0 20 72 65 66 20 72 65 70 6c 79 20 74 65 78 74 20 21 0a 20 20 20 20 20 20 20 20 77 32 ┆ ref reply text ! w2┆
0x678a0…678c0 3a 3d 20 28 77 33 3a 3d 62 2e 63 75 72 72 65 6e 74 29 2e 6f 70 72 5f 62 75 66 3b 0a 20 20 20 20 ┆:= (w3:=b.current).opr_buf; ┆
0x678c0…678e0 20 20 20 20 28 77 32 29 2e 62 75 66 5f 6f 70 20 3a 3d 20 77 30 3a 3d 20 35 3b 0a 20 20 20 20 20 ┆ (w2).buf_op := w0:= 5; ┆
0x678e0…678fc 20 20 20 77 30 3a 3d 20 28 77 32 29 2e 62 75 66 5f 66 69 72 73 74 3b 0a 20 20 20 20 ┆ w0:= (w2).buf_first; ┆
0x678fc…67902 (0x324,0xcf3)
0x67902…67920 20 20 20 20 62 75 66 70 6f 69 6e 74 65 72 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 20 77 ┆ bufpointer:= w0; w┆
0x67920…67940 30 20 2b 20 33 32 3b 0a 20 20 20 20 20 20 20 20 28 77 32 29 2e 62 75 66 5f 6c 61 73 74 3a 3d 20 ┆0 + 32; (w2).buf_last:= ┆
0x67940…67960 77 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 31 38 2c 77 31 2c ┆w0; move(.w3.,w0:=18,w1,┆
0x67960…6797a 77 32 3a 3d 62 75 66 70 6f 69 6e 74 65 72 2b 31 34 29 3b 0a 20 20 20 20 20 20 ┆w2:=bufpointer+14); ┆
0x6797a…67980 (0x324,0xcf4)
0x67980…679a0 20 20 6f 75 74 74 69 6d 65 20 28 2e 77 33 2e 2c 77 32 3a 3d 62 75 66 70 6f 69 6e 74 65 72 29 3b ┆ outtime (.w3.,w2:=bufpointer);┆
0x679a0…679c0 0a 20 20 20 20 20 20 20 20 6d 6f 76 65 20 28 2e 77 33 2e 2c 77 30 3a 3d 38 2c 77 31 3a 3d 62 2e ┆ move (.w3.,w0:=8,w1:=b.┆
0x679c0…679e0 70 72 69 6d 6f 2b 32 2c 77 32 3a 3d 62 75 66 70 6f 69 6e 74 65 72 2b 34 29 3b 0a 20 20 20 20 20 ┆primo+2,w2:=bufpointer+4); ┆
0x679e0…67a00 20 20 20 28 77 32 3a 3d 62 75 66 70 6f 69 6e 74 65 72 2b 31 32 29 2e 77 00 00 00 00 00 00 00 00 ┆ (w2:=bufpointer+12).w ┆
0x67a00…67a06 (829,) (0x324,0xcf5)
0x67a06…67a20 6f 72 64 3a 3d 20 77 30 3a 3d 20 35 38 3b 0a 20 20 20 20 20 20 20 20 28 77 32 ┆ord:= w0:= 58; (w2┆
0x67a20…67a40 3a 3d 62 75 66 70 6f 69 6e 74 65 72 2b 33 32 29 2e 77 6f 72 64 3a 3d 20 77 30 3a 3d 20 31 30 3b ┆:=bufpointer+32).word:= w0:= 10;┆
0x67a40…67a60 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 3d 33 34 2c 77 31 3a ┆ testout(.w3.,w0:=34,w1:┆
0x67a60…67a7e 3d 62 75 66 70 6f 69 6e 74 65 72 2c 77 32 3a 3d 30 29 3b 0a 20 20 20 20 20 20 20 20 73 65 ┆=bufpointer,w2:=0); se┆
0x67a7e…67a84 (0x324,0xcf6)
0x67a84…67aa0 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 ┆ndwait(.w3.,w0,w1:=(w3).opr_┆
0x67aa0…67ac0 62 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 ┆buf,w2:=address((w3).opr_console┆
0x67ac0…67ae0 31 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 33 ┆1)); w0:= 0; (w3┆
0x67ae0…67afc 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 74 ┆).c_mbuf:= w0 ! clear operat┆
0x67afc…67b02 (0x324,0xcf7)
0x67b02…67b20 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 ┆ion ! end; ! loop ! ┆
0x67b20…67b40 65 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 ┆end; end; ! operator ! body┆
0x67b40…67b60 20 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 64 75 72 ┆ of display begin procedur┆
0x67b60…67b7a 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 ┆e d_request(.w3.;w1); ! w1┆
0x67b7a…67b80 (0x324,0xcf8)
0x67b80…67ba0 3d 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 ┆=device ! procedure d_displ┆
0x67ba0…67bc0 61 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 ┆ay(.w3.;w1); ! w1=device ! ┆
0x67bc0…67be0 69 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 20 20 20 20 20 ┆incode ref return, ┆
0x67be0…67c00 20 20 20 20 20 64 65 76 69 63 65 3b 0a 20 20 20 20 77 6f 72 64 20 20 20 00 00 00 00 00 00 00 00 ┆ device; word ┆
0x67c00…67c06 (830,) (0x324,0xcf9)
0x67c06…67c20 66 75 6e 63 74 69 6f 6e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 6d 61 69 6e 3b ┆function, main;┆
0x67c20…67c40 0a 0a 0a 20 20 20 20 62 65 67 69 6e 0a 0a 20 20 20 20 20 20 72 65 74 75 72 6e 3a 3d 20 77 33 3b ┆ begin return:= w3;┆
0x67c40…67c60 0a 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 66 75 6e 63 74 69 ┆ device:= w1; functi┆
0x67c60…67c7e 6f 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 3a 3d 20 ┆on:= w0; push(.w3.,w0:= ┆
0x67c7e…67c84 (0x324,0xcfa)
0x67c84…67ca0 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 ┆return); case w1:= fu┆
0x67ca0…67cc0 6e 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 ┆nction of begin be┆
0x67cc0…67ce0 67 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 20 ┆gin comment request ; ┆
0x67ce0…67cfc 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 6e ┆ w1:= address(b.proc_dhlinkn┆
0x67cfc…67d02 (0x324,0xcfb)
0x67d02…67d20 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 ┆o); w2:= address((w3┆
0x67d20…67d40 29 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 ┆).opr_dhlinkno); compa┆
0x67d40…67d60 72 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 20 20 20 ┆re(.w3.,w0:=4,w1,w2); ┆
0x67d60…67d7a 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 ┆if w0=0 then w0:=1 else w0┆
0x67d7a…67d80 (0x324,0xcfc)
0x67d80…67da0 3a 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 ┆:=0; main:= w0; ┆
0x67da0…67dc0 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 20 20 ┆ w1:= b.tcpool_fst; ┆
0x67dc0…67de0 20 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 69 6c 65 20 77 ┆ device:= w1; while w┆
0x67de0…67e00 31 3c 62 2e 74 63 70 6f 6f 6c 5f 74 6f 70 20 64 6f 0a 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆1<b.tcpool_top do ┆
0x67e00…67e06 (831,) (0x324,0xcfd)
0x67e06…67e20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 73 65 61 72 63 68 20 61 ┆ begin comment search a┆
0x67e20…67e40 6c 6c 20 63 6f 72 6f 75 74 69 6e 65 73 3b 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 ┆ll coroutines; if w┆
0x67e40…67e60 30 3a 3d 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 ┆0:= device.tc_held<>0 then ┆
0x67e60…67e7e 20 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 20 69 6e ┆ begin comment device in┆
0x67e7e…67e84 (0x324,0xcfe)
0x67e84…67ea0 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 ┆ hold state; p┆
0x67ea0…67ec0 75 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 ┆ush(.w3.,w0:=main); ┆
0x67ec0…67ee0 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 62 65 ┆ if w0<>0 then be┆
0x67ee0…67efc 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 20 ┆gin comment main operator; ┆
0x67efc…67f02 (0x324,0xcff)
0x67f02…67f20 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; ┆
0x67f20…67f40 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 74 63 5f 68 65 6c ┆ if w0:=(w1).tc_hel┆
0x67f40…67f60 64 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 6e 0a 20 ┆d=2 then begin ┆
0x67f60…67f7a 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 ┆ d_request┆
0x67f7a…67f80 (0x324,0xd00)
0x67f80…67fa0 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 20 20 65 6e 64 20 65 ┆(.w3.,w1); end e┆
0x67fa0…67fc0 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 20 20 20 20 20 20 ┆lse begin ┆
0x67fc0…67fe0 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 62 2e 70 72 6f 63 5f ┆ w1:= address(b.proc_┆
0x67fe0…68000 64 65 76 6e 61 6d 65 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 ┆devname); ┆
0x68000…68006 (832,) (0x324,0xd01)
0x68006…68020 20 20 20 20 77 32 3a 3d 20 61 64 64 72 65 73 73 28 28 77 32 3a 3d 64 65 76 69 ┆ w2:= address((w2:=devi┆
0x68020…68040 63 65 29 2e 74 63 5f 64 65 76 63 6f 6e 73 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ce).tc_devcons); ┆
0x68040…68060 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 0a 20 20 ┆ compare(.w3.,w0:=8,w1,w2); ┆
0x68060…6807e 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 ┆ w1:= device; ┆
0x6807e…68084 (0x324,0xd02)
0x68084…680a0 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 ┆ if w0=0 the┆
0x680a0…680c0 6e 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 ┆n w0:= b.proc_hid-(w1).tc_ohid; ┆
0x680c0…680e0 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 20 64 ┆ if w0=0 then d┆
0x680e0…680fc 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); ┆
0x680fc…68102 (0x324,0xd03)
0x68102…68120 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 ┆ end; de┆
0x68120…68140 76 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 ┆vice:= w1; end ! e┆
0x68140…68160 6e 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 20 20 20 ┆nd main operator ! else ┆
0x68160…6817a 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 ┆ begin comment remote┆
0x6817a…68180 (0x324,0xd04)
0x68180…681a0 20 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 ┆ oprator; w1:= a┆
0x681a0…681c0 64 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 ┆ddress((w1:=device).tc_devcons);┆
0x681c0…681e0 0a 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 77 ┆ w2:= address((w┆
0x681e0…68200 33 29 2e 6f 70 72 5f 64 65 76 63 6f 6e 73 29 3b 0a 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆3).opr_devcons); ┆
0x68200…68206 (833,) (0x324,0xd05)
0x68206…68220 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:=┆
0x68220…68240 38 2c 77 31 2c 77 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 20 64 ┆8,w1,w2); w1:= d┆
0x68240…68260 65 76 69 63 65 3b 0a 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 ┆evice; if w0=0 t┆
0x68260…6827e 68 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 6f 70 72 ┆hen w0:= (w1).tc_ohid-(w3).opr┆
0x6827e…68284 (0x324,0xd06)
0x68284…682a0 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 ┆_hostid; if ┆
0x682a0…682c0 77 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 ┆w0=0 then d_request(.w3.,w1); ┆
0x682c0…682e0 20 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 20 ┆ device:= w1; ┆
0x682e0…682fc 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; ┆
0x682fc…68302 (0x324,0xd07)
0x68302…68320 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 ┆pop(.w3.,w0);main:= w0; ┆
0x68320…68340 20 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 ┆ end; ! end hold ! ┆
0x68340…68360 20 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 20 28 77 ┆ w1:=device; device:= w1:= (w┆
0x68360…6837a 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 ┆1).tc_nexttc; en┆
0x6837a…68380 (0x324,0xd08)
0x68380…683a0 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 3b 20 21 20 ┆d; ! end while ! end; ! ┆
0x683a0…683c0 65 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 ┆end request ! begin comm┆
0x683c0…683e0 65 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 20 20 20 20 20 ┆ent request device(w1); ┆
0x683e0…68400 20 20 64 5f 72 65 71 75 65 73 74 28 2e 77 33 2e 2c 77 31 3a 3d 64 65 76 00 00 00 00 00 00 00 00 ┆ d_request(.w3.,w1:=dev ┆
0x68400…68406 (834,) (0x324,0xd09)
0x68406…68420 69 63 65 29 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 20 21 20 65 6e 64 20 72 ┆ice); end; ! end r┆
0x68420…68440 65 71 75 65 73 74 20 64 65 76 69 63 65 20 21 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f ┆equest device ! begin co┆
0x68440…68460 6d 6d 65 6e 74 20 72 65 71 75 65 73 74 20 61 6c 6c 3b 0a 0a 20 20 20 20 20 20 20 20 20 20 77 31 ┆mment request all; w1┆
0x68460…6847e 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 20 77 68 69 ┆:= b.tcpool_fst; whi┆
0x6847e…68484 (0x324,0xd0a)
0x68484…684a0 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 ┆
0x684a0…684c0 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 30 3a 3d 28 77 31 ┆ begin if w0:=(w1┆
0x684c0…684e0 29 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 5f ┆).tc_held<>0 then d_┆
0x684e0…684fc 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 20 ┆request(.w3.,w1); ┆
0x684fc…68502 (0x324,0xd0b)
0x68502…68520 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 ┆ w1:= (w1).tc_nexttc; ┆
0x68520…68540 20 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 ┆ end; ! end while ! en┆
0x68540…68560 64 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 20 20 62 ┆d; ! end request all ! b┆
0x68560…6857a 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 ┆egin comment display; ┆
0x6857a…68580 (0x324,0xd0c)
0x68580…685a0 20 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 ┆ w1:=b.tcpool_fs┆
0x685a0…685c0 74 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 ┆t; while w1<b.tcpool_t┆
0x685c0…685e0 6f 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 20 20 20 20 20 ┆op do begin ┆
0x685e0…68600 20 20 69 66 20 77 30 3a 3d 28 77 31 29 2e 74 63 5f 63 72 65 61 74 65 64 00 00 00 00 00 00 00 00 ┆ if w0:=(w1).tc_created ┆
0x68600…68606 (835,) (0x324,0xd0d)
0x68606…68620 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 ┆<>0 then begin┆
0x68620…68640 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 5f 64 69 73 70 6c 61 79 28 2e 77 33 2e 2c 77 31 ┆ d_display(.w3.,w1┆
0x68640…68660 29 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 20 20 20 20 20 20 ┆); end else ┆
0x68660…6867e 20 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 31 29 2e ┆ if w0:= (w2:=address((w1).┆
0x6867e…68684 (0x324,0xd0e)
0x68684…686a0 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 ┆tc_console)).word<>0 then ┆
0x686a0…686c0 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 64 5f ┆ begin d_┆
0x686c0…686e0 64 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 6e ┆display(.w3.,w1); en┆
0x686e0…686fc 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 31 ┆d else; w1:= (w1┆
0x686fc…68702 (0x324,0xd0f)
0x68702…68720 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 ┆).tc_nexttc; end; ! ┆
0x68720…68740 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 6e 64 20 64 ┆end while ! end; ! end d┆
0x68740…68760 69 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 65 20 21 ┆isplay ! end; ! end case !┆
0x68760…6877a 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 ┆ pop(.w3.,w0);return┆
0x6877a…68780 (0x324,0xd10)
0x68780…687a0 3a 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 ┆:=w0; w1:= device; c┆
0x687a0…687c0 61 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 ┆all w0 return; end; ! end di┆
0x687c0…687e0 73 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 20 64 5f 72 65 ┆splay code ! body of d_re┆
0x687e0…68800 71 75 65 73 74 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 69 6e 00 00 00 00 00 00 00 00 ┆quest begin in ┆
0x68800…68806 (836,) (0x324,0xd11)
0x68806…68820 63 6f 64 65 0a 20 20 20 20 20 20 72 65 66 20 20 20 20 72 65 74 75 72 6e 2c 0a ┆code ref return, ┆
0x68820…68840 20 20 20 20 20 20 20 20 20 20 20 20 20 64 65 76 69 63 65 3b 0a 20 20 20 20 20 20 74 65 78 74 28 ┆ device; text(┆
0x68840…68860 20 35 29 20 74 5f 68 6f 73 74 3a 3d 20 22 2c 68 6f 73 74 22 3b 0a 20 20 20 20 20 20 77 6f 72 64 ┆ 5) t_host:= ",host"; word┆
0x68860…6887e 20 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 61 64 69 ┆ l_hno:= 656174, ! radi┆
0x6887e…68884 (0x324,0xd12)
0x68884…688a0 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 ┆x=10, positions=3, fill="."(┆
0x688a0…688c0 34 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 ┆46) ! l_hid:= 656┆
0x688c0…688e0 36 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 2c ┆686; ! radix=10, positions=5,┆
0x688e0…688fc 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 6e ┆ fill="."(46) ! begin┆
0x688fc…68902 (0x324,0xd13)
0x68902…68920 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 ┆ return:= w3; ┆
0x68920…68940 64 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 ┆device:= w1; push(.w3.,w┆
0x68940…68960 30 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 2c 77 30 ┆0:=return); push(.w3.,w0┆
0x68960…6897a 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 ┆:=device); if w0:┆
0x6897a…68980 (0x324,0xd14)
0x68980…689a0 3d 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 ┆= device.tc_held<>0 then ┆
0x689a0…689c0 20 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 ┆ begin w1:=device.tc_b┆
0x689c0…689e0 75 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 5f 62 75 66 3b ┆uf; w2:= (w3).opr_buf;┆
0x689e0…68a00 0a 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 20 28 77 31 29 2e 62 75 66 00 00 00 00 00 00 00 00 ┆ w0:= (w1).buf ┆
0x68a00…68a06 (837,) (0x324,0xd15)
0x68a06…68a20 5f 6c 61 73 74 2d 28 77 31 29 2e 62 75 66 5f 66 69 72 73 74 2b 32 3b 0a 20 20 ┆_last-(w1).buf_first+2; ┆
0x68a20…68a40 20 20 20 20 20 20 20 20 77 31 3a 3d 20 61 64 64 72 65 73 73 28 28 77 31 29 2e 62 75 66 5f 64 61 ┆ w1:= address((w1).buf_da┆
0x68a40…68a60 74 61 31 29 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3e 62 2e 6f 70 72 74 5f 62 75 66 ┆ta1); if w0>b.oprt_buf┆
0x68a60…68a7e 6c 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 20 20 20 ┆l then key(l_hno):= w1; ┆
0x68a7e…68a84 (0x324,0xd16)
0x68a84…68aa0 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 ┆ w2:= address((w2).buf_da┆
0x68aa0…68ac0 74 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 ┆ta1); move(.w3.,w0,w1,┆
0x68ac0…68ae0 77 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 72 ┆w2); ! move from device- to oper┆
0x68ae0…68afc 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 3d ┆ator buffer ! w2:=┆
0x68afc…68b02 (0x324,0xd17)
0x68b02…68b20 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 ┆ (w3).opr_buf; (w2).┆
0x68b20…68b40 62 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 ┆buf_op:= w1:= 5; (w2).┆
0x68b40…68b60 62 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 28 77 32 ┆buf_mode:= w1:= 0; (w2┆
0x68b60…68b7a 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 ┆).buf_first:= w1:= address┆
0x68b7a…68b80 (0x324,0xd18)
0x68b80…68ba0 28 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 ┆((w2).buf_data1); w1+w┆
0x68ba0…68bc0 30 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 ┆0-2; (w2).buf_last:= w┆
0x68bc0…68be0 31 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 2e 74 63 5f 68 ┆1; if w0:= device.tc_h┆
0x68be0…68c00 6f 6c 64 3d 31 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 00 00 00 00 00 00 00 00 ┆old=1 then beg ┆
0x68c00…68c06 (838,) (0x324,0xd19)
0x68c06…68c20 69 6e 20 63 6f 6d 6d 65 6e 74 20 6d 61 79 62 65 20 61 64 64 20 68 6f 73 74 20 ┆in comment maybe add host ┆
0x68c20…68c40 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 69 66 20 77 30 3a 3d ┆information; if w0:=┆
0x68c40…68c60 20 64 65 76 69 63 65 2e 74 63 5f 68 6f 73 74 69 64 3d 64 65 76 69 63 65 2e 74 63 5f 6f 68 69 64 ┆ device.tc_hostid=device.tc_ohid┆
0x68c60…68c7e 20 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 33 29 2e ┆ then if w0<>(w3).┆
0x68c7e…68c84 (0x324,0xd1a)
0x68c84…68ca0 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 ┆opr_hostid then ┆
0x68ca0…68cc0 62 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 ┆begin comment add host ident inf┆
0x68cc0…68ce0 6f 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 3b ┆ormation; w2:= w1;┆
0x68ce0…68cfc 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 ┆ w1:= address(┆
0x68cfc…68d02 (0x324,0xd1b)
0x68d02…68d20 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 ┆t_host); move(.w┆
0x68d20…68d40 33 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 ┆3.,w0:=4,w1,w2); ! <host> ! ┆
0x68d40…68d60 20 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 30 3a 3d ┆ writeinteger(.w3.,w0:=┆
0x68d60…68d7a 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 ┆ device.tc_hostno,w1:= w2+┆
0x68d7a…68d80 (0x324,0xd1c)
0x68d80…68da0 34 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 ┆4, w2:= l_hno); wr┆
0x68da0…68dc0 69 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 ┆iteinteger(.w3.,w0:= device.tc_h┆
0x68dc0…68de0 6f 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 29 3b 0a 20 20 ┆ostid,w1:= w1+2, w2:= l_hid); ┆
0x68de0…68e00 20 20 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 20 77 31 2b 34 3b 0a 20 00 00 00 00 00 00 00 00 ┆ w2:= w1+4; ┆
0x68e00…68e06 (839,) (0x324,0xd1d)
0x68e06…68e20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 32 29 2e 77 6f 72 64 3a 3d 20 77 ┆ (w2).word:= w┆
0x68e20…68e40 30 3a 3d 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 20 20 20 ┆0:= 10; ! add newline ! ┆
0x68e40…68e60 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 20 20 20 20 ┆ w1:= (w3).opr_buf; ┆
0x68e60…68e7e 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 ┆ (w1).buf_last:= w2; ┆
0x68e7e…68e84 (0x324,0xd1e)
0x68e84…68ea0 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;┆
0x68ea0…68ec0 0a 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 ┆ w1:= (w3).opr_buf; ┆
0x68ec0…68ee0 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 2e 6f 70 72 5f 63 6f ┆ w2:= address((w3).opr_co┆
0x68ee0…68efc 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 2e ┆nsole); sendwait(.┆
0x68efc…68f02 (0x324,0xd1f)
0x68f02…68f20 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 ┆w3.,w0,w1,w2); end; ┆
0x68f20…68f40 20 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 ┆ pop(.w3.,w0);device:= w0; ┆
0x68f40…68f60 20 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 20 77 30 ┆ pop(.w3.,w0);return:= w0┆
0x68f60…68f7a 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 ┆; w1:= device; ┆
0x68f7a…68f80 (0x324,0xd20)
0x68f80…68fa0 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 64 3b 0a ┆ call w0 return; end; ┆
0x68fa0…68fc0 20 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 ┆ end; ! end d_request ! ┆
0x68fc0…68fe0 62 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 0a 20 20 20 20 ┆body of d_display begin ┆
0x68fe0…69000 20 20 72 65 63 6f 72 64 20 64 5f 72 65 63 20 28 0a 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ record d_rec ( ┆
0x69000…69006 (840,) (0x324,0xd21)
0x69006…69020 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 65 78 74 28 31 32 29 20 64 65 76 ┆ text(12) dev┆
0x69020…69040 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 20 20 ┆, ┆
0x69040…69060 68 6f 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 20 20 20 ┆host, ┆
0x69060…6907e 20 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 0a 20 20 ┆ proc, bs, oper, state); ┆
0x6907e…69084 (0x324,0xd22)
0x69084…690a0 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 ┆ incode ref retur┆
0x690a0…690c0 6e 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 ┆n, device, ┆
0x690c0…690e0 20 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 20 ┆ txtref; word main; ┆
0x690e0…690fc 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 21 ┆ word l_hno:= 656174, !┆
0x690fc…69102 (0x324,0xd23)
0x69102…69120 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 ┆ radix=10,pos=3,fill=46 ! ┆
0x69120…69140 20 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 ┆ l_hid:= 656686; ! radix┆
0x69140…69160 3d 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 65 78 74 ┆=10,pos=5,fill=46 ! text┆
0x69160…6917a 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 ┆ (12) t_activ┆
0x6917a…69180 (0x324,0xd24)
0x69180…691a0 65 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 ┆e := ",active", t_w┆
0x691a0…691c0 61 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 ┆aiting:= ",waiting", ┆
0x691c0…691e0 20 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 20 20 20 20 20 ┆ t_idle:= ",idle", ┆
0x691e0…69200 20 20 20 20 74 5f 6d 61 69 6e 3a 3d 20 20 20 20 22 6d 61 69 6e 20 20 22 00 00 00 00 00 00 00 00 ┆ t_main:= "main " ┆
0x69200…69206 (841,) (0x324,0xd25)
0x69206…69220 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 74 5f 68 6f 73 74 3b 0a 20 20 20 ┆, t_host; ┆
0x69220…69240 20 20 20 20 20 74 65 78 74 28 34 29 20 73 70 61 63 65 20 3a 3d 20 22 20 20 20 22 3b 0a 0a 20 20 ┆ text(4) space := " "; ┆
0x69240…69260 20 20 20 20 62 65 67 69 6e 0a 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 3a 3d 20 77 33 3b 0a ┆ begin return:= w3; ┆
0x69260…6927e 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 20 20 20 20 70 ┆ device:= w1; p┆
0x6927e…69284 (0x324,0xd26)
0x69284…692a0 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 ┆ush(.w3.,w0:=return); ┆
0x692a0…692c0 20 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 ┆ push(.w3.,w0:=device); ┆
0x692c0…692e0 20 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 3a ┆ w1:= (w3).opr_buf; w2:┆
0x692e0…692fc 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 ┆= address((w1).buf_data1); ┆
0x692fc…69302 (0x324,0xd27)
0x69302…69320 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 ┆ txtref:= w2; mo┆
0x69320…69340 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 73 70 61 63 65 29 ┆ve(.w3.,w0:=2,w1:=address(space)┆
0x69340…69360 2c 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 6c 65 6e ┆,w2); move(.w3.,w0:=!len┆
0x69360…6937a 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 ┆gth(d_rec)-2,w1:=w2,w2+2);┆
0x6937a…69380 (0x324,0xd28)
0x69380…693a0 0a 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 ┆ w1:= address((w1:=devic┆
0x693a0…693c0 65 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 ┆e).tc_devname); addtxt(.┆
0x693c0…693e0 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 69 63 ┆w3.,w0:=8,w1:=address((w1:=devic┆
0x693e0…69400 65 29 2e 74 63 5f 64 65 76 6e 61 6d 65 29 2c 0a 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆e).tc_devname), ┆
0x69400…69406 (842,) (0x324,0xd29)
0x69406…69420 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┆
0x69420…69440 65 73 73 28 28 77 32 3a 3d 74 78 74 72 65 66 29 2e 64 65 76 29 29 3b 0a 20 20 20 20 20 20 20 20 ┆ess((w2:=txtref).dev)); ┆
0x69440…69460 77 72 69 74 65 69 6e 74 65 67 65 72 28 2e 77 33 2e 2c 77 30 3a 3d 28 77 31 3a 3d 64 65 76 69 63 ┆writeinteger(.w3.,w0:=(w1:=devic┆
0x69460…6947e 65 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 20 20 20 ┆e).tc_hostno, ┆
0x6947e…69484 (0x324,0xd2a)
0x69484…694a0 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 ┆ w1:=address((w1:=t┆
0x694a0…694c0 78 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 ┆xtref).host),w2:=l_hno); ┆
0x694c0…694e0 20 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 69 ┆ writeinteger(.w3.,w0:=(w2:=devi┆
0x694e0…694fc 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 20 ┆ce).tc_hostid, ┆
0x694fc…69502 (0x324,0xd2b)
0x69502…69520 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 ┆ w1+2,w2:=l_hid); ┆
0x69520…69540 20 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 ┆ addtxt(.w3.,w0:=6,w1:= a┆
0x69540…69560 64 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 20 20 20 ┆ddress(t_host), ┆
0x69560…6957a 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 ┆ w2:= address((w2:=txtr┆
0x6957a…69580 (0x324,0xd2c)
0x69580…695a0 65 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 ┆ef).host)); if w0:=(w1:=┆
0x695a0…695c0 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 20 20 ┆device).tc_created<>0 then ┆
0x695c0…695e0 20 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 64 64 72 65 73 ┆ addtxt(.w3.,w0:=8,w1:= addres┆
0x695e0…69600 73 28 28 77 31 3a 3d 64 65 76 69 63 65 29 2e 74 63 5f 6e 61 6d 65 29 2c 00 00 00 00 00 00 00 00 ┆s((w1:=device).tc_name), ┆
0x69600…69606 (843,) (0x324,0xd2d)
0x69606…69620 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 20 ┆ w2:= ┆
0x69620…69640 61 64 64 72 65 73 73 28 28 77 32 3a 3d 74 78 74 72 65 66 29 2e 70 72 6f 63 29 29 3b 0a 20 20 20 ┆address((w2:=txtref).proc)); ┆
0x69640…69660 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 29 2e 74 ┆ w1:= address((w1:=device).t┆
0x69660…6967e 63 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 28 77 31 ┆c_console); if w0:=(w1┆
0x6967e…69684 (0x324,0xd2e)
0x69684…696a0 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 ┆).word<>0 then addtx┆
0x696a0…696c0 74 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 ┆t(.w3.,w0:=8,w1:=address((w1:=de┆
0x696c0…696e0 76 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 20 ┆vice).tc_devcons), ┆
0x696e0…696fc 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 ┆ w2:= address((w2:=txt┆
0x696fc…69702 (0x324,0xd2f)
0x69702…69720 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 ┆ref).oper)); if w0:=(w┆
0x69720…69740 31 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 ┆1:=device).tc_created<>0 then ┆
0x69740…69760 20 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 2e 77 33 ┆ begin addtxt(.w3┆
0x69760…6977a 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 ┆.,w0:=8,w1:=address((w1:=d┆
0x6977a…69780 (0x324,0xd30)
0x69780…697a0 65 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 ┆evice).tc_bsname), ┆
0x697a0…697c0 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 78 74 72 65 66 ┆ w2:=address((w2:=txtref┆
0x697c0…697e0 29 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 31 3a 3d 64 65 ┆).bs)); if w0:=(w1:=de┆
0x697e0…69800 76 69 63 65 29 2e 74 63 5f 68 65 6c 64 3c 3e 30 20 74 68 65 6e 20 77 31 00 00 00 00 00 00 00 00 ┆vice).tc_held<>0 then w1 ┆
0x69800…69806 (844,) (0x324,0xd31)
0x69806…69820 3a 3d 20 61 64 64 72 65 73 73 28 74 5f 77 61 69 74 69 6e 67 29 0a 20 20 20 20 ┆:= address(t_waiting) ┆
0x69820…69840 20 20 20 20 20 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 ┆ else ┆
0x69840…69860 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 20 61 64 64 72 65 73 73 28 74 5f 61 63 74 69 76 65 29 ┆ w1:= address(t_active)┆
0x69860…6987e 3b 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 3d 36 2c ┆; addtxt(.w3.,w0:=6,┆
0x6987e…69884 (0x324,0xd32)
0x69884…698a0 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 ┆w1,w2:=address((w2:=txtref).┆
0x698a0…698c0 73 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 ┆state)); end else ┆
0x698c0…698e0 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 2e 77 33 2e 2c 77 30 ┆ begin addtxt(.w3.,w0┆
0x698e0…698fc 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 3d ┆:=6,w1:=address(t_idle),w2:=┆
0x698fc…69902 (0x324,0xd33)
0x69902…69920 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 ┆address((w2:=txtref).state)); ┆
0x69920…69940 20 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 ┆ end; w2+w0; ┆
0x69940…69960 20 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 74 20 31 ┆ (w2).word:= w0:= 10 lshift 1┆
0x69960…6997a 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 ┆6; ! add newline ! ┆
0x6997a…69980 (0x324,0xd34)
0x69980…699a0 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 28 77 31 29 ┆ w1:= (w3).opr_buf; (w1)┆
0x699a0…699c0 2e 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 ┆.buf_last:= w2; (w1).buf┆
0x699c0…699e0 5f 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 20 20 20 28 77 ┆_first:= w0:= txtref; (w┆
0x699e0…69a00 31 29 2e 62 75 66 5f 6f 70 3a 3d 20 77 30 3a 3d 20 35 3b 0a 20 20 20 20 00 00 00 00 00 00 00 00 ┆1).buf_op:= w0:= 5; ┆
0x69a00…69a06 (845,) (0x324,0xd35)
0x69a06…69a20 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 30 ┆ (w1).buf_mode:= w0:= 0┆
0x69a20…69a40 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 32 ┆; sendwait(.w3.,w0,w1,w2┆
0x69a40…69a60 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 20 20 ┆:=address((w3).opr_console)); ┆
0x69a60…69a7e 20 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 3d 20 77 ┆ pop(.w3.,w0); device:= w┆
0x69a7e…69a84 (0x324,0xd36)
0x69a84…69aa0 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 ┆0; pop(.w3.,w0); ret┆
0x69aa0…69ac0 75 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 ┆urn:= w0; w1:= device; ┆
0x69ac0…69ae0 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 65 6e 64 ┆ call w0 return; end┆
0x69ae0…69afc 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 21 ┆; end; ! end d_display !┆
0x69afc…69b02 (0x324,0xd37)
0x69b02…69b20 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 ┆ end; ! end display ! ┆
0x69b20…69b40 21 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 ┆!branch 1,5; body of get_bloc┆
0x69b40…69b60 6b 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 2c 65 78 ┆k begin label in_bs,rep,ex┆
0x69b60…69b7a 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 ┆it; incode word ┆
0x69b7a…69b80 (0x324,0xd38)
0x69b80…69ba0 7a 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 ┆zero:=0; word buf_op; ┆
0x69ba0…69bc0 20 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 ┆ ref buf_fa,buf_la; word ┆
0x69bc0…69be0 62 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 79 74 65 73 2c ┆buf_segno; word rem_bytes,┆
0x69be0…69c00 62 75 66 5f 72 65 6c 2c 72 65 6c 61 74 69 76 65 2c 73 74 61 74 75 73 3b 00 00 00 00 00 00 00 00 ┆buf_rel,relative,status; ┆
0x69c00…69c06 (846,) (0x324,0xd39)
0x69c06…69c20 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 77 ┆ ref return; w┆
0x69c20…69c40 6f 72 64 20 73 61 76 65 77 30 2c 73 61 76 65 77 31 3b 0a 20 20 20 20 62 65 67 69 6e 0a 0a 20 20 ┆ord savew0,savew1; begin ┆
0x69c40…69c60 20 20 20 20 72 65 74 75 72 6e 3a 3d 77 33 3b 0a 20 20 20 20 20 20 73 61 76 65 77 30 3a 3d 77 30 ┆ return:=w3; savew0:=w0┆
0x69c60…69c7e 3b 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 72 65 6d ┆; savew1:=w1; rem┆
0x69c7e…69c84 (0x324,0xd3a)
0x69c84…69ca0 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 ┆_bytes:=w0; status:=w2┆
0x69ca0…69cc0 3a 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 ┆:=2; buf_rel:=w0:=0; ┆
0x69cc0…69ce0 20 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 29 ┆ w3:=b.current; f1 := (w3)┆
0x69ce0…69cfc 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 20 ┆.tc_bsptr; w1 extract ┆
0x69cfc…69d02 (0x324,0xd3b)
0x69d02…69d20 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 ┆9;relative := w1; f1 := ┆
0x69d20…69d40 28 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 ┆(w3).tc_bsptr; f1 ashift -┆
0x69d40…69d60 39 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 3b 0a 20 ┆9; in_bs: w3:=b.current; ┆
0x69d60…69d7a 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 ┆ if w1<>(w3).tc_csegno┆
0x69d7a…69d80 (0x324,0xd3c)
0x69d80…69da0 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 33 29 2e 74 ┆ then begin (w3).t┆
0x69da0…69dc0 63 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 ┆c_csegno:=w1; rep: push(┆
0x69dc0…69de0 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 70 75 73 68 28 2e ┆.w3.,w0:=return); push(.┆
0x69de0…69e00 77 33 2e 2c 77 30 3a 3d 73 61 76 65 77 30 29 3b 0a 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆w3.,w0:=savew0); ┆
0x69e00…69e06 (847,) (0x324,0xd3d)
0x69e06…69e20 20 70 75 73 68 28 2e 77 33 2e 2c 77 30 3a 3d 72 65 6d 5f 62 79 74 65 73 29 3b ┆ push(.w3.,w0:=rem_bytes);┆
0x69e20…69e40 0a 20 20 20 20 20 20 20 20 70 75 73 68 28 2e 77 33 2e 2c 77 30 3a 3d 62 75 66 5f 72 65 6c 29 3b ┆ push(.w3.,w0:=buf_rel);┆
0x69e40…69e60 0a 20 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 31 29 3b 0a ┆ push(.w3.,w0:=savew1); ┆
0x69e60…69e7e 20 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 69 76 65 ┆ push(.w3.,w0:=relative┆
0x69e7e…69e84 (0x324,0xd3e)
0x69e84…69ea0 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 ┆); w0:=(w3).tc_bsl; ┆
0x69ea0…69ec0 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 20 20 20 20 ┆ w1:=(w3).tc_bsu; ┆
0x69ec0…69ee0 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 6d 6f 6e 69 ┆ w3:=address(zero); moni┆
0x69ee0…69efc 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 65 ┆tor(72); w3:=b.curre┆
0x69efc…69f02 (0x324,0xd3f)
0x69f02…69f20 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 ┆nt; buf_op:=w0:=3 lshi┆
0x69f20…69f40 66 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 ┆ft 12; buf_fa:=w0:=(w3)┆
0x69f40…69f60 2e 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 20 20 20 ┆.tc_bsbuf; w0+510; ┆
0x69f60…69f7a 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 ┆ buf_la:=w0; buf┆
0x69f7a…69f80 (0x324,0xd40)
0x69f80…69fa0 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 0a 20 20 20 20 ┆_segno:=w0:=(w3).tc_csegno; ┆
0x69fa0…69fc0 20 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 ┆ w1:=address(buf_op); ┆
0x69fc0…69fe0 20 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 3b 0a 20 20 ┆ w2:=address((w3).tc_bsname); ┆
0x69fe0…6a000 20 20 20 20 20 20 73 65 6e 64 77 61 69 74 28 2e 77 33 2e 2c 77 30 2c 77 00 00 00 00 00 00 00 00 ┆ sendwait(.w3.,w0,w ┆
0x6a000…6a006 (848,) (0x324,0xd41)
0x6a006…6a020 31 2c 77 32 29 3b 0a 20 20 20 20 20 20 20 20 77 32 3a 3d 31 20 6c 73 68 69 66 ┆1,w2); w2:=1 lshif┆
0x6a020…6a040 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 20 77 32 20 6f 72 ┆t w0; if w2=2 then w2 or┆
0x6a040…6a060 20 62 2e 61 6e 73 5f 73 74 61 74 75 73 3b 0a 20 20 20 20 20 20 20 20 73 74 61 74 75 73 3a 3d 77 ┆ b.ans_status; status:=w┆
0x6a060…6a07e 32 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 61 74 69 ┆2; pop(.w3.,w0);relati┆
0x6a07e…6a084 (0x324,0xd42)
0x6a084…6a0a0 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 ┆ve:=w0; pop(.w3.,w0)┆
0x6a0a0…6a0c0 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 77 30 ┆;savew1:=w0; pop(.w3.,w0┆
0x6a0c0…6a0e0 29 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 2c ┆);buf_rel:=w0; pop(.w3.,┆
0x6a0e0…6a0fc 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 70 ┆w0);rem_bytes:=w0; p┆
0x6a0fc…6a102 (0x324,0xd43)
0x6a102…6a120 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 ┆op(.w3.,w0);savew0:=w0; ┆
0x6a120…6a140 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 20 20 ┆ pop(.w3.,w0);return:=w0; ┆
0x6a140…6a160 20 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 3c 3e 30 ┆ if w2:=status and 2'100100<>0┆
0x6a160…6a17a 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 ┆ then begin commen┆
0x6a17a…6a180 (0x324,0xd44)
0x6a180…6a1a0 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 20 20 20 20 20 ┆t rejected/does not exist; ┆
0x6a1a0…6a1c0 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 20 20 20 20 20 20 20 ┆ w0:=(w3).tc_bsl; ┆
0x6a1c0…6a1e0 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 20 20 77 33 3a 3d 61 ┆w1:=(w3).tc_bsu; w3:=a┆
0x6a1e0…6a200 64 64 72 65 73 73 28 7a 65 72 6f 29 3b 0a 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ddress(zero); ┆
0x6a200…6a206 (849,) (0x324,0xd45)
0x6a206…6a220 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 ┆monitor(72); ! set catalog┆
0x6a220…6a240 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 72 65 6e 74 3b ┆ base ! w3:=b.current;┆
0x6a240…6a260 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 2e 74 63 5f 62 ┆ w3:=address((w3).tc_b┆
0x6a260…6a27e 73 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 32 29 3b ┆sname); monitor(52);┆
0x6a27e…6a284 (0x324,0xd46)
0x6a284…6a2a0 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 ┆ ! create area process ! ┆
0x6a2a0…6a2c0 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 29 3b 20 ┆ if w0=0 then monitor(8); ┆
0x6a2c0…6a2e0 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 20 77 33 ┆! reserve process ! w3┆
0x6a2e0…6a2fc 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 30 ┆:=b.current; if w0┆
0x6a2fc…6a302 (0x324,0xd47)
0x6a302…6a320 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 ┆<>0 then goto exit; ┆
0x6a320…6a340 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 20 20 65 6e 64 ┆goto rep; end; end┆
0x6a340…6a360 3b 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 20 20 20 ┆; if w2:=status=2 then ┆
0x6a360…6a37a 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 ┆ begin w0:=512-r┆
0x6a37a…6a380 (0x324,0xd48)
0x6a380…6a3a0 65 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 ┆elative; if w0>rem_bytes┆
0x6a3a0…6a3c0 20 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 ┆ then w0:=rem_bytes; w1:┆
0x6a3c0…6a3e0 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 20 20 20 20 20 20 ┆=(w3).tc_bsbuf+relative; ┆
0x6a3e0…6a400 20 77 32 3a 3d 73 61 76 65 77 31 2b 62 75 66 5f 72 65 6c 3b 0a 20 20 20 00 00 00 00 00 00 00 00 ┆ w2:=savew1+buf_rel; ┆
0x6a400…6a406 (850,) (0x324,0xd49)
0x6a406…6a420 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 ┆ move(.w3.,w0,w1,w2); ┆
0x6a420…6a440 20 20 20 20 20 20 20 20 62 75 66 5f 72 65 6c 3a 3d 77 32 3a 3d 77 30 2b 62 75 66 5f 72 65 6c 3b ┆ buf_rel:=w2:=w0+buf_rel;┆
0x6a440…6a460 0a 20 20 20 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 74 65 ┆ rem_bytes:=w2:=rem_byte┆
0x6a460…6a47e 73 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 3d 30 3b ┆s-w0; relative:=w0:=0;┆
0x6a47e…6a484 (0x324,0xd4a)
0x6a484…6a4a0 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 ┆ w1:=(w3).tc_csegno+┆
0x6a4a0…6a4c0 31 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 ┆1; if w2>0 then goto in_┆
0x6a4c0…6a4e0 62 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 73 ┆bs; end; exit: w2:=s┆
0x6a4e0…6a4fc 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 20 ┆tatus; w1:=savew1; ┆
0x6a4fc…6a502 (0x324,0xd4b)
0x6a502…6a520 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 ┆ w0:=savew0-rem_bytes; ┆
0x6a520…6a540 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 3b ┆ call w0 return; end; end;┆
0x6a540…6a560 20 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 6f 66 20 ┆ ! end get_block ! body of ┆
0x6a560…6a57a 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 ┆put_block begin labe┆
0x6a57a…6a580 (0x324,0xd4c)
0x6a580…6a5a0 6c 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 ┆l out_bs,rep,exit; incode ┆
0x6a5a0…6a5c0 20 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 ┆ word zero:=0; word put┆
0x6a5c0…6a5e0 5f 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 30 34 38 30 3b ┆_segm; word buf_op:=20480;┆
0x6a5e0…6a600 0a 20 20 20 20 20 20 72 65 66 20 62 75 66 5f 66 61 2c 62 75 66 5f 6c 61 00 00 00 00 00 00 00 00 ┆ ref buf_fa,buf_la ┆
0x6a600…6a606 (851,) (0x324,0xd4d)
0x6a606…6a620 3b 0a 20 20 20 20 20 20 77 6f 72 64 20 62 75 66 5f 73 65 67 6e 6f 3b 0a 20 20 ┆; word buf_segno; ┆
0x6a620…6a640 20 20 20 20 77 6f 72 64 20 72 65 6d 5f 62 79 74 65 73 2c 62 75 66 5f 72 65 6c 2c 72 65 6c 61 74 ┆ word rem_bytes,buf_rel,relat┆
0x6a640…6a660 69 76 65 2c 73 74 61 74 75 73 3b 0a 20 20 20 20 20 20 72 65 66 20 72 65 74 75 72 6e 3b 0a 20 20 ┆ive,status; ref return; ┆
0x6a660…6a67e 20 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 20 62 65 ┆ word savew0,savew1; be┆
0x6a67e…6a684 (0x324,0xd4e)
0x6a684…6a6a0 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 ┆gin return:=w3; ┆
0x6a6a0…6a6c0 20 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 ┆ savew0:=w0; savew1:=w1; ┆
0x6a6c0…6a6e0 20 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 75 ┆ rem_bytes:=w0; statu┆
0x6a6e0…6a6fc 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 3a ┆s:=w2:=2; buf_rel:=w0:┆
0x6a6fc…6a702 (0x324,0xd4f)
0x6a702…6a720 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 ┆=0; w3:=b.current; ┆
0x6a720…6a740 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 77 31 20 65 ┆ f1 := (w3).tc_bsptr; w1 e┆
0x6a740…6a760 78 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 20 20 66 ┆xtract 9;relative := w1; f┆
0x6a760…6a77a 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 ┆1 := (w3).tc_bsptr; ┆
0x6a77a…6a780 (0x324,0xd50)
0x6a780…6a7a0 66 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 ┆f1 ashift -9; put_segm:=w1┆
0x6a7a0…6a7c0 3b 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 ┆; out_bs: w3:=b.current; ┆
0x6a7c0…6a7e0 20 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 74 63 5f 63 73 ┆ if w1:=put_segm<>(w3).tc_cs┆
0x6a7e0…6a800 65 67 6e 6f 20 74 68 65 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 72 65 00 00 00 00 00 00 00 00 ┆egno then begin re ┆
0x6a800…6a806 (852,) (0x324,0xd51)
0x6a806…6a820 70 3a 0a 20 20 20 20 20 20 20 20 70 75 73 68 28 2e 77 33 2e 2c 77 30 3a 3d 72 ┆p: push(.w3.,w0:=r┆
0x6a820…6a840 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 2c 77 30 3a 3d 73 61 ┆eturn); push(.w3.,w0:=sa┆
0x6a840…6a860 76 65 77 30 29 3b 0a 20 20 20 20 20 20 20 20 70 75 73 68 28 2e 77 33 2e 2c 77 30 3a 3d 72 65 6d ┆vew0); push(.w3.,w0:=rem┆
0x6a860…6a87e 5f 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 77 30 3a ┆_bytes); push(.w3.,w0:┆
0x6a87e…6a884 (0x324,0xd52)
0x6a884…6a8a0 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 ┆=buf_rel); push(.w3.┆
0x6a8a0…6a8c0 2c 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 ┆,w0:=savew1); push(.w3.,┆
0x6a8c0…6a8e0 77 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 2e ┆w0:=put_segm); w0:=(w3).┆
0x6a8e0…6a8fc 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 5f ┆tc_bsl; w1:=(w3).tc_┆
0x6a8fc…6a902 (0x324,0xd53)
0x6a902…6a920 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 ┆bsu; w3:=address(zero)┆
0x6a920…6a940 3b 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 ┆; monitor(72); w┆
0x6a940…6a960 33 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 3d 77 30 ┆3:=b.current; buf_fa:=w0┆
0x6a960…6a97a 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 ┆:=(w3).tc_bsbuf; w┆
0x6a97a…6a980 (0x324,0xd54)
0x6a980…6a9a0 30 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 ┆0+510; buf_la:=w0; ┆
0x6a9a0…6a9c0 20 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 ┆ buf_segno:=w0:=(w3).tc_csegno┆
0x6a9c0…6a9e0 3b 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 20 20 20 20 20 ┆; if w0>-1 then ┆
0x6a9e0…6aa00 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 6f 75 74 70 75 74 20 73 65 67 00 00 00 00 00 00 00 00 ┆begin comment output seg ┆
0x6aa00…6aa06 (853,) (0x324,0xd55)
0x6aa06…6aa20 6d 65 6e 74 3b 0a 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 61 64 64 72 65 73 ┆ment; w1:=addres┆
0x6aa20…6aa40 73 28 62 75 66 5f 6f 70 29 3b 0a 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 61 64 64 72 65 73 73 ┆s(buf_op); w2:=address┆
0x6aa40…6aa60 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 73 65 6e 64 ┆((w3).tc_bsname); send┆
0x6aa60…6aa7e 77 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 20 20 20 ┆wait(.w3.,w0,w1,w2); ┆
0x6aa7e…6aa84 (0x324,0xd56)
0x6aa84…6aaa0 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 ┆ w2:=1 lshift w0; ┆
0x6aaa0…6aac0 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 61 74 75 73 3b ┆if w2=2 then w2 or b.ans_status;┆
0x6aac0…6aae0 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 20 ┆ end else begin ┆
0x6aae0…6aafc 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 75 ┆comment first call don'nt ou┆
0x6aafc…6ab02 (0x324,0xd57)
0x6ab02…6ab20 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 ┆tput segment; w2:=2;┆
0x6ab20…6ab40 20 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 ┆ ! simulate normal result/status┆
0x6ab40…6ab60 3d 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 74 75 73 ┆=0 ! end; status┆
0x6ab60…6ab7a 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 ┆:=w2; pop(.w3.,w0)┆
0x6ab7a…6ab80 (0x324,0xd58)
0x6ab80…6aba0 3b 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 ┆;put_segm:=w0; pop(.w3.,┆
0x6aba0…6abc0 77 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 ┆w0);savew1:=w0; pop(.w3.┆
0x6abc0…6abe0 2c 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 6f 70 28 2e 77 ┆,w0);buf_rel:=w0; pop(.w┆
0x6abe0…6ac00 33 2e 2c 77 30 29 3b 72 65 6d 5f 62 79 74 65 73 3a 3d 77 30 3b 0a 20 20 00 00 00 00 00 00 00 00 ┆3.,w0);rem_bytes:=w0; ┆
0x6ac00…6ac06 (854,) (0x324,0xd59)
0x6ac06…6ac20 20 20 20 20 20 20 70 6f 70 28 2e 77 33 2e 2c 77 30 29 3b 73 61 76 65 77 30 3a ┆ pop(.w3.,w0);savew0:┆
0x6ac20…6ac40 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 72 65 74 75 72 6e ┆=w0; pop(.w3.,w0);return┆
0x6ac40…6ac60 3a 3d 77 30 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 32 3a 3d 73 74 61 74 75 73 20 61 6e 64 20 ┆:=w0; if w2:=status and ┆
0x6ac60…6ac7e 32 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 67 69 6e ┆2'100100<>0 then begin┆
0x6ac7e…6ac84 (0x324,0xd5a)
0x6ac84…6aca0 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 ┆ comment rejected/does not e┆
0x6aca0…6acc0 78 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 ┆xist; w0:=(w3).tc_bsl;┆
0x6acc0…6ace0 0a 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 20 ┆ w1:=(w3).tc_bsu; ┆
0x6ace0…6acfc 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 ┆ monitor(72); ! set cat┆
0x6acfc…6ad02 (0x324,0xd5b)
0x6ad02…6ad20 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 ┆alog base ! w3:=b.cu┆
0x6ad20…6ad40 72 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 ┆rrent; w3:=address((w3┆
0x6ad40…6ad60 29 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 6f 72 28 ┆).tc_bsname); monitor(┆
0x6ad60…6ad7a 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 ┆52); ! create area process┆
0x6ad7a…6ad80 (0x324,0xd5c)
0x6ad80…6ada0 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 6d 6f 6e 69 74 6f ┆ ! if w0=0 then monito┆
0x6ada0…6adc0 72 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 ┆r(8); ! reserve process ! ┆
0x6adc0…6ade0 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 20 20 69 66 20 ┆ w3:=b.current; if ┆
0x6ade0…6ae00 77 30 3c 3e 30 20 74 68 65 6e 20 67 6f 74 6f 20 65 78 69 74 3b 0a 20 20 00 00 00 00 00 00 00 00 ┆w0<>0 then goto exit; ┆
0x6ae00…6ae06 (855,) (0x324,0xd5d)
0x6ae06…6ae20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 72 65 70 3b 0a 20 20 20 20 20 20 20 20 ┆ goto rep; ┆
0x6ae20…6ae40 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 63 73 65 67 6e 6f 3a 3d 77 31 3a ┆end; (w3).tc_csegno:=w1:┆
0x6ae40…6ae60 3d 70 75 74 5f 73 65 67 6d 3b 0a 20 20 20 20 20 20 20 20 77 31 3a 3d 28 77 33 29 2e 74 63 5f 62 ┆=put_segm; w1:=(w3).tc_b┆
0x6ae60…6ae7e 73 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 2e 77 6f ┆sbuf; w2:=w1+2;(w1).wo┆
0x6ae7e…6ae84 (0x324,0xd5e)
0x6ae84…6aea0 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 ┆rd:=w0:=0; ! fill buffer wit┆
0x6aea0…6aec0 68 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 ┆h zeroes ! move(.w3.,w0:┆
0x6aec0…6aee0 3d 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 77 ┆=510,w1,w2); relative:=w┆
0x6aee0…6aefc 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 32 ┆0:=0; end; if w2┆
0x6aefc…6af02 (0x324,0xd5f)
0x6af02…6af20 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 ┆:=status=2 then begin ┆
0x6af20…6af40 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 20 20 20 ┆ w0:=512-relative; ┆
0x6af40…6af60 69 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 5f 62 79 ┆if w0>=rem_bytes then w0:=rem_by┆
0x6af60…6af7a 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 ┆tes else begin com┆
0x6af7a…6af80 (0x324,0xd60)
0x6af80…6afa0 6d 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 ┆ment no room on this segment; ┆
0x6afa0…6afc0 20 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 ┆ w1:=w0; w0:= 0┆
0x6afc0…6afe0 3b 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 66 31 2b 28 77 ┆; (w3).tc_bsptr:=f1+(w┆
0x6afe0…6b000 33 29 2e 74 63 5f 62 73 70 74 72 3b 0a 20 20 20 20 20 20 20 20 20 20 70 00 00 00 00 00 00 00 00 ┆3).tc_bsptr; p ┆
0x6b000…6b006 (856,) (0x324,0xd61)
0x6b006…6b020 75 74 5f 73 65 67 6d 3a 3d 77 31 3a 3d 70 75 74 5f 73 65 67 6d 2b 31 3b 0a 20 ┆ut_segm:=w1:=put_segm+1; ┆
0x6b020…6b040 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 6f 75 74 5f 62 73 3b 0a 20 20 20 20 20 20 20 20 65 6e ┆ goto out_bs; en┆
0x6b040…6b060 64 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3c 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 ┆d; if w0<0 then ┆
0x6b060…6b07e 62 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 20 20 20 ┆begin comment close file; ┆
0x6b07e…6b084 (0x324,0xd62)
0x6b084…6b0a0 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 ┆ w0:=512-relative; ┆
0x6b0a0…6b0c0 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 76 65 ┆ w2:=(w3).tc_bsbuf+relative┆
0x6b0c0…6b0e0 3b 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 74 ┆; move(.w3.,w0 extract┆
0x6b0e0…6b0fc 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 72 ┆ 9,w1:=w2-2,w2); r┆
0x6b0fc…6b102 (0x324,0xd63)
0x6b102…6b120 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 ┆em_bytes:=w0:=0; put┆
0x6b120…6b140 5f 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 ┆_segm:=w1:=put_segm+1; ┆
0x6b140…6b160 20 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 ┆ goto out_bs; end; ┆
0x6b160…6b17a 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 ┆ w2:=(w3).tc_bsbuf+relat┆
0x6b17a…6b180 (0x324,0xd64)
0x6b180…6b1a0 69 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 ┆ive; w1:=savew1+buf_rel;┆
0x6b1a0…6b1c0 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 32 29 3b 0a 20 20 ┆ move(.w3.,w0,w1,w2); ┆
0x6b1c0…6b1e0 20 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 74 65 73 2d 77 ┆ rem_bytes:=w2:=rem_bytes-w┆
0x6b1e0…6b200 30 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 32 3e 30 20 74 68 65 6e 0a 00 00 00 00 00 00 00 00 ┆0; if w2>0 then ┆
0x6b200…6b206 (857,) (0x324,0xd65)
0x6b206…6b220 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 ┆ end; exit: w2:┆
0x6b220…6b240 3d 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 20 20 20 ┆=status; w1:=savew1; ┆
0x6b240…6b260 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 63 61 6c ┆ w0:=savew0-rem_bytes; cal┆
0x6b260…6b27e 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 21 ┆l w0 return; end; end; !┆
0x6b27e…6b284 (0x324,0xd66)
0x6b284…6b2a0 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 ┆ end put_block ! body o┆
0x6b2a0…6b2c0 66 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 ┆f closebs comment terminat┆
0x6b2c0…6b2e0 65 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 20 ┆e the use of the area connected ┆
0x6b2e0…6b2fc 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 65 ┆to current printer coroutine┆
0x6b2fc…6b302 (0x324,0xd67)
0x6b302…6b320 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 ┆ ; begin label inuse; ┆
0x6b320…6b340 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 20 20 ┆ incode ref return; ┆
0x6b340…6b360 20 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 65 20 73 ┆ word zero:= 0; double s┆
0x6b360…6b37a 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 ┆avef1; begin sav┆
0x6b37a…6b380 (0x324,0xd68)
0x6b380…6b3a0 65 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 ┆ef1:= f1; return:= w3; ┆
0x6b3a0…6b3c0 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 3d 20 28 ┆ w3:= b.current; w0:= (┆
0x6b3c0…6b3e0 77 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 2e 74 63 5f 62 ┆w3).tc_bsl; w1:= (w3).tc_b┆
0x6b3e0…6b400 73 75 3b 0a 20 20 20 20 20 20 77 33 3a 3d 20 61 64 64 72 65 73 73 28 7a 00 00 00 00 00 00 00 00 ┆su; w3:= address(z ┆
0x6b400…6b406 (858,) (0x324,0xd69)
0x6b406…6b420 65 72 6f 29 3b 0a 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 37 32 29 3b 20 21 ┆ero); monitor(72); !┆
0x6b420…6b440 20 73 65 74 20 63 61 74 2e 62 61 73 65 20 21 0a 20 20 20 20 20 20 77 33 3a 3d 62 2e 63 75 72 72 ┆ set cat.base ! w3:=b.curr┆
0x6b440…6b460 65 6e 74 3b 0a 20 20 20 20 20 20 77 30 3a 3d 28 77 33 29 2e 74 63 5f 61 72 65 61 70 72 6f 63 3b ┆ent; w0:=(w3).tc_areaproc;┆
0x6b460…6b47e 0a 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 3a 3d 30 ┆ (w3).tc_areaproc:=w1:=0┆
0x6b47e…6b484 (0x324,0xd6a)
0x6b484…6b4a0 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 ┆; ! clear area in use ! ┆
0x6b4a0…6b4c0 20 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 ┆ w1:=b.tcpool_fst; while ┆
0x6b4c0…6b4e0 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 62 65 67 69 6e 0a 20 ┆w1<b.tcpool_top do begin ┆
0x6b4e0…6b4fc 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 6f ┆ if w0=(w1).tc_areapro┆
0x6b4fc…6b502 (0x324,0xd6b)
0x6b502…6b520 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 ┆c then goto inuse; w1:┆
0x6b520…6b540 3d 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 ┆=(w1).tc_nexttc; end; ┆
0x6b540…6b560 20 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 29 3b 0a ┆ w3:=address((w3).tc_bsname); ┆
0x6b560…6b57a 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 ┆ monitor(64); ! remov┆
0x6b57a…6b580 (0x324,0xd6c)
0x6b580…6b5a0 65 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 ┆e area process ! inuse: ! don't┆
0x6b5a0…6b5c0 20 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 ┆ remove area process, it is in u┆
0x6b5c0…6b5e0 73 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 20 20 20 20 20 ┆se ! f1:= savef1; ┆
0x6b5e0…6b600 77 33 3a 3d 20 62 2e 63 75 72 72 65 6e 74 3b 0a 20 20 20 20 20 20 63 61 00 00 00 00 00 00 00 00 ┆w3:= b.current; ca ┆
0x6b600…6b606 (859,) (0x324,0xd6d)
0x6b606…6b620 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 ┆ll w0 return; end; e┆
0x6b620…6b640 6e 64 3b 20 21 20 63 6c 6f 73 65 62 73 20 21 0a 0a 0a 0a 20 20 62 6f 64 79 20 6f 66 20 6f 70 65 ┆nd; ! closebs ! body of ope┆
0x6b640…6b660 6e 62 73 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 ┆nbs begin incode ref┆
0x6b660…6b67e 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 31 3b 0a ┆ return; double savef1; ┆
0x6b67e…6b684 (0x324,0xd6e)
0x6b684…6b6a0 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 ┆ word savew2; wor┆
0x6b6a0…6b6c0 64 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 ┆d zero:=0; begin retur┆
0x6b6c0…6b6e0 6e 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 73 ┆n:=w3; savef1:=f1; s┆
0x6b6e0…6b6fc 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 72 ┆avew2:=w2; w3:=b.curr┆
0x6b6fc…6b702 (0x324,0xd6f)
0x6b702…6b720 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 ┆ent; w0:=(w3).tc_bsl; ┆
0x6b720…6b740 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 77 33 3a 3d 61 ┆ w1:=(w3).tc_bsu; w3:=a┆
0x6b740…6b760 64 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 32 29 3b ┆ddress(zero); monitor(72);┆
0x6b760…6b77a 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 ┆ ! set catalog base ! ┆
0x6b77a…6b780 (0x324,0xd70)
0x6b780…6b7a0 20 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 ┆ w3:=address((w3:=b.current).tc┆
0x6b7a0…6b7c0 5f 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 ┆_bsname); monitor(52); ! c┆
0x6b7c0…6b7e0 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 69 66 20 77 30 ┆reate area process ! if w0┆
0x6b7e0…6b800 3d 30 20 74 68 65 6e 20 6d 6f 6e 69 74 6f 72 28 38 29 3b 20 21 20 72 65 00 00 00 00 00 00 00 00 ┆=0 then monitor(8); ! re ┆
0x6b800…6b806 (860,) (0x324,0xd71)
0x6b806…6b820 73 65 72 76 65 20 70 72 6f 63 65 73 73 20 21 0a 20 20 20 20 20 20 77 33 2b 38 ┆serve process ! w3+8┆
0x6b820…6b840 3b 20 21 20 73 6b 69 70 20 6e 61 6d 65 20 21 0a 20 20 20 20 20 20 28 77 33 29 2e 77 6f 72 64 3a ┆; ! skip name ! (w3).word:┆
0x6b840…6b860 3d 77 31 3a 3d 30 3b 20 21 20 73 65 74 20 6e 61 6d 65 20 74 61 62 6c 65 20 61 64 64 72 65 73 73 ┆=w1:=0; ! set name table address┆
0x6b860…6b87e 20 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 66 20 77 ┆ to 0 ! w3-8; if w┆
0x6b87e…6b884 (0x324,0xd72)
0x6b884…6b8a0 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 ┆0=0 then monitor(4); ! proce┆
0x6b8a0…6b8c0 73 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 ┆ss description ! (w3:=b.cu┆
0x6b8c0…6b8e0 72 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 77 ┆rrent).tc_areaproc:=w0; (w┆
0x6b8e0…6b8fc 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 20 ┆3).tc_csegno:=w0:= -1; ┆
0x6b8fc…6b902 (0x324,0xd73)
0x6b902…6b920 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 ┆ f1:=savef1; w2:=savew2┆
0x6b920…6b940 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 0a ┆; call w0 return; end ┆
0x6b940…6b960 20 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 66 20 68 ┆ end; ! openbs ! body of h┆
0x6b960…6b97a 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 ┆old comment link current┆
0x6b97a…6b980 (0x324,0xd74)
0x6b980…6b9a0 20 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 ┆ coroutine into the hold-queue; ┆
0x6b9a0…6b9c0 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 20 72 65 74 ┆ begin incode ref ret┆
0x6b9c0…6b9e0 75 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 20 20 20 20 72 ┆urn, a_return; begin r┆
0x6b9e0…6ba00 65 74 75 72 6e 3a 3d 20 77 33 3b 0a 20 20 20 20 20 20 61 5f 72 65 74 75 00 00 00 00 00 00 00 00 ┆eturn:= w3; a_retu ┆
0x6ba00…6ba06 (861,) (0x324,0xd75)
0x6ba06…6ba20 72 6e 3a 3d 20 77 30 3b 20 21 20 73 61 76 65 20 61 6c 74 65 72 6e 61 74 65 20 ┆rn:= w0; ! save alternate ┆
0x6ba20…6ba40 72 65 74 75 72 6e 20 21 0a 20 20 20 20 20 20 77 33 3a 3d 20 62 2e 63 75 72 72 65 6e 74 3b 0a 20 ┆return ! w3:= b.current; ┆
0x6ba40…6ba60 20 20 20 20 20 28 77 33 29 2e 63 5f 77 30 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 28 77 33 29 2e ┆ (w3).c_w0:= w0; (w3).┆
0x6ba60…6ba7e 63 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 3d 20 77 ┆c_w1:= w1; (w3).c_w2:= w┆
0x6ba7e…6ba84 (0x324,0xd76)
0x6ba84…6baa0 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 ┆2; (w3).c_ic:= w0:= re┆
0x6baa0…6bac0 74 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 ┆turn; (w3).tc_held:= w0:= ┆
0x6bac0…6bae0 28 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 6e ┆(w3).tc_hold; if w0=0 then┆
0x6bae0…6bafc 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 6f ┆ begin comment dont ho┆
0x6bafc…6bb02 (0x324,0xd77)
0x6bb02…6bb20 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 ┆ld; if w0:= a_return <┆
0x6bb20…6bb40 3e 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 ┆> 0 then (w3).c_ic:= w0; ! alter┆
0x6bb40…6bb60 6e 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 3a 3d 20 ┆nate return used ! w1:= ┆
0x6bb60…6bb7a 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 ┆(w3).c_w1; w2:= (w┆
0x6bb7a…6bb80 (0x324,0xd78)
0x6bb80…6bba0 33 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 ┆3).c_w2; call w0 (w3).c_┆
0x6bba0…6bbc0 69 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 ┆ic; ! continue ! end; ┆
0x6bbc0…6bbe0 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┆
0x6bbe0…6bc00 2e 68 6f 6c 64 71 66 73 74 29 29 3b 0a 20 20 20 20 20 20 74 65 73 74 6f 00 00 00 00 00 00 00 00 ┆.holdqfst)); testo ┆
0x6bc00…6bc06 (862,) (0x324,0xd79)
0x6bc06…6bc20 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 ┆ut(.w3.,w0:=!length(corout┆
0x6bc20…6bc40 69 6e 65 29 2c 77 31 2c 77 32 3a 3d 34 29 3b 0a 20 20 20 20 20 20 67 6f 74 6f 20 62 2e 61 63 74 ┆ine),w1,w2:=4); goto b.act┆
0x6bc40…6bc60 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 68 6f 6c 64 20 21 0a ┆ivate; end; end; ! hold ! ┆
0x6bc60…6bc7e 0a 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 67 69 6e ┆ body of oproutput begin┆
0x6bc7e…6bc84 (0x324,0xd7a)
0x6bc84…6bca0 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 ┆ label rep_sw, exit; ┆
0x6bca0…6bcc0 20 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 ┆ record outformat ! output f┆
0x6bcc0…6bce0 6f 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 20 ┆ormat ! (text( 6) time; ┆
0x6bce0…6bcfc 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 20 ┆ text(11) ownname; ┆
0x6bcfc…6bd02 (0x324,0xd7b)
0x6bd02…6bd20 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 ┆ word colon; word outt┆
0x6bd20…6bd40 79 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 ┆ype; word asterix; ┆
0x6bd40…6bd60 20 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 20 74 65 ┆ text(11) processname; te┆
0x6bd60…6bd7a 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 ┆xt(1) vartext); ! start of┆
0x6bd7a…6bd80 (0x324,0xd7c)
0x6bd80…6bda0 20 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 ┆ variable message ! incode ┆
0x6bda0…6bdc0 20 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 ┆ text( 5) t_host := ",host┆
0x6bdc0…6bde0 22 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 3a 3d 20 22 20 ┆"; text( 9) t_resume := " ┆
0x6bde0…6be00 72 65 73 75 6d 65 20 22 3b 0a 20 20 20 20 20 20 74 65 78 74 28 20 39 29 00 00 00 00 00 00 00 00 ┆resume "; text( 9) ┆
0x6be00…6be06 (863,) (0x324,0xd7d)
0x6be06…6be20 20 74 5f 70 72 65 70 61 72 65 3a 3d 20 22 20 70 72 65 70 61 72 65 20 22 3b 0a ┆ t_prepare:= " prepare "; ┆
0x6be20…6be40 20 20 20 20 20 20 74 65 78 74 28 20 39 29 20 74 31 3b 0a 20 20 20 20 20 20 74 65 78 74 28 31 31 ┆ text( 9) t1; text(11┆
0x6be40…6be60 29 20 74 31 74 72 6e 61 6d 65 3b 0a 20 20 20 20 20 20 74 65 78 74 28 20 31 29 20 74 31 31 3a 3d ┆) t1trname; text( 1) t11:=┆
0x6be60…6be7e 20 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 65 72 3b ┆ " "; text(11) t1truser;┆
0x6be7e…6be84 (0x324,0xd7e)
0x6be84…6bea0 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 ┆ text( 1) t12:= " "; ┆
0x6bea0…6bec0 20 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 ┆ text(11) t1trqgroup; ┆
0x6bec0…6bee0 74 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 31 ┆text( 1) t13:= "."; text(1┆
0x6bee0…6befc 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 35 ┆1) t1trqname; text(15┆
0x6befc…6bf02 (0x324,0xd7f)
0x6bf02…6bf20 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 ┆) t2 := " intervention", ┆
0x6bf20…6bf40 20 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 ┆ t21 := " parity error┆
0x6bf40…6bf60 22 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 6d 65 72 ┆", t22 := " timer┆
0x6bf60…6bf7a 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 ┆", t23 := "┆
0x6bf7a…6bf80 (0x324,0xd80)
0x6bf80…6bfa0 20 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 ┆ data overrun", t┆
0x6bfa0…6bfc0 32 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 ┆24 := " block length", ┆
0x6bfc0…6bfe0 20 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 22 2c 0a 20 20 ┆ t25 := " end document", ┆
0x6bfe0…6c000 20 20 20 20 20 20 20 20 20 20 20 20 20 74 32 36 20 3a 3d 20 22 20 6c 6f 00 00 00 00 00 00 00 00 ┆ t26 := " lo ┆
0x6c000…6c006 (864,) (0x324,0xd81)
0x6c006…6c020 61 64 20 70 6f 69 6e 74 22 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ad point", ┆
0x6c020…6c040 74 32 37 20 3a 3d 20 22 20 74 61 70 65 6d 61 72 6b 2c 20 61 74 74 22 2c 0a 20 20 20 20 20 20 20 ┆t27 := " tapemark, att", ┆
0x6c040…6c060 20 20 20 20 20 20 20 20 74 32 38 20 3a 3d 20 22 20 77 72 69 74 65 20 65 6e 61 62 6c 65 22 2c 0a ┆ t28 := " write enable", ┆
0x6c060…6c07e 20 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 65 20 65 ┆ t29 := " mode e┆
0x6c07e…6c084 (0x324,0xd82)
0x6c084…6c0a0 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 ┆rror", t210:=┆
0x6c0a0…6c0c0 20 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 ┆ " read error", t┆
0x6c0c0…6c0e0 32 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 20 ┆211:= " card reject", ┆
0x6c0e0…6c0fc 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 20 ┆ t212:= " bit 12", ┆
0x6c0fc…6c102 (0x324,0xd83)
0x6c102…6c120 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 ┆ t213:= " bit 13", ┆
0x6c120…6c140 20 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 ┆ t214:= " bit 14", ┆
0x6c140…6c160 20 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 64 22 2c ┆ t215:= " stopped",┆
0x6c160…6c17a 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 ┆ t216:= " w┆
0x6c17a…6c180 (0x324,0xd84)
0x6c180…6c1a0 6f 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 ┆ord defect", t217┆
0x6c1a0…6c1c0 3a 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 ┆:= " position err.", ┆
0x6c1c0…6c1e0 20 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 22 2c 0a 20 20 ┆ t218:= " do'39'nt exist", ┆
0x6c1e0…6c200 20 20 20 20 20 20 20 20 20 20 20 20 20 74 32 31 39 3a 3d 20 22 20 64 69 00 00 00 00 00 00 00 00 ┆ t219:= " di ┆
0x6c200…6c206 (865,) (0x324,0xd85)
0x6c206…6c220 73 63 6f 6e 6e 65 63 74 65 64 22 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆sconnected", ┆
0x6c220…6c240 20 20 74 32 32 30 3a 3d 20 22 20 75 6e 69 6e 74 65 6c 6c 69 67 65 6e 74 22 2c 0a 20 20 20 20 20 ┆ t220:= " unintelligent", ┆
0x6c240…6c260 20 20 20 20 20 20 20 20 20 20 74 32 32 31 3a 3d 20 22 20 72 65 6a 65 63 74 65 64 22 2c 0a 20 20 ┆ t221:= " rejected", ┆
0x6c260…6c27e 20 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 6c 22 3b ┆ t222:= " normal";┆
0x6c27e…6c284 (0x324,0xd86)
0x6c284…6c2a0 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 ┆ text(21) t3:= " stop┆
0x6c2a0…6c2c0 70 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 ┆ped by operator"; text(14)┆
0x6c2c0…6c2e0 20 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 73 ┆ t4:= " end transport"; word t4s┆
0x6c2e0…6c2fc 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 20 ┆tate; text(10) t5:= " ┆
0x6c2fc…6c302 (0x324,0xd87)
0x6c302…6c320 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 ┆transmit"; text(14) t6:=┆
0x6c320…6c340 20 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 ┆ " end of area"; text(21) ┆
0x6c340…6c360 74 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 20 20 20 ┆t7:= " cu,device exeeded"; ┆
0x6c360…6c37a 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 ┆ text(18) t8:= " printer u┆
0x6c37a…6c380 (0x324,0xd88)
0x6c380…6c3a0 6e 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 ┆nknown"; text(18) t9:= " p┆
0x6c3a0…6c3c0 72 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 ┆rinter reserved"; text(29)┆
0x6c3c0…6c3e0 74 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 69 63 65 20 68 ┆t10:= " no resources at device h┆
0x6c3e0…6c400 6f 73 74 22 3b 0a 20 20 20 20 20 20 74 65 78 74 28 32 31 29 74 74 31 3a 00 00 00 00 00 00 00 00 ┆ost"; text(21)tt1: ┆
0x6c400…6c406 (866,) (0x324,0xd89)
0x6c406…6c420 3d 20 22 20 70 72 69 6e 74 65 72 20 75 6e 61 76 61 69 6c 61 62 6c 65 22 3b 0a ┆= " printer unavailable"; ┆
0x6c420…6c440 20 20 20 20 20 20 74 65 78 74 28 31 33 29 74 74 32 3a 3d 20 22 20 70 72 69 6e 74 65 72 20 62 75 ┆ text(13)tt2:= " printer bu┆
0x6c440…6c460 73 79 22 3b 0a 20 20 20 20 20 20 74 65 78 74 28 31 36 29 74 74 33 3a 3d 20 22 20 70 72 69 6e 74 ┆sy"; text(16)tt3:= " print┆
0x6c460…6c47e 65 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 74 74 34 ┆er offline"; text(18)tt4┆
0x6c47e…6c484 (0x324,0xd8a)
0x6c484…6c4a0 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 ┆:= " printer command"; ┆
0x6c4a0…6c4c0 20 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 ┆ text(29)tt5:= " printer status(┆
0x6c4c0…6c4e0 73 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 20 ┆s0/s1) = hex.";double s0s1; ┆
0x6c4e0…6c4fc 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 69 ┆ text(21)tt6:= " printer di┆
0x6c4fc…6c502 (0x324,0xd8b)
0x6c502…6c520 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 ┆sconnected"; word texts┆
0x6c520…6c540 69 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 ┆ize; ref transref; ! abs r┆
0x6c540…6c560 65 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 20 72 65 ┆ef descr of transport ! re┆
0x6c560…6c57a 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 ┆f bufref; ! abs ref first ┆
0x6c57a…6c580 (0x324,0xd8c)
0x6c580…6c5a0 6f 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 ┆of data in buffer ! text(1┆
0x6c5a0…6c5c0 34 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 ┆4) clock:="clock"; word ti┆
0x6c5c0…6c5e0 6d 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 0a 20 20 20 20 ┆meunit:= 0, timevalue:= 20; ┆
0x6c5e0…6c600 20 20 77 6f 72 64 20 73 61 76 65 77 32 3b 0a 20 20 20 20 62 65 67 69 6e 00 00 00 00 00 00 00 00 ┆ word savew2; begin ┆
0x6c600…6c606 (867,) (0x324,0xd8d)
0x6c606…6c620 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 ┆ savew2:= w2; ┆
0x6c620…6c640 77 32 3a 3d 20 62 2e 63 75 72 72 65 6e 74 3b 0a 20 20 20 20 20 20 28 77 32 29 2e 74 63 5f 73 61 ┆w2:= b.current; (w2).tc_sa┆
0x6c640…6c660 76 65 69 63 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 6e 74 3b ┆veic:= w3; w3:= b.current;┆
0x6c660…6c67e 0a 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 20 20 20 ┆ w2:= (w3).tc_buf; ┆
0x6c67e…6c684 (0x324,0xd8e)
0x6c684…6c6a0 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 ┆ w2:= address((w2).buf_data1┆
0x6c6a0…6c6c0 29 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 ┆); bufref:= w2; if ┆
0x6c6c0…6c6e0 77 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 20 ┆w0=1 then w0:= 0 else ┆
0x6c6e0…6c6fc 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 20 ┆ if w0=2 then w0:= 2763306 ┆
0x6c6fc…6c702 (0x324,0xd8f)
0x6c702…6c720 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 ┆! *** ! else; (w2)┆
0x6c720…6c740 2e 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 ┆.outtype:= w0; (w3).tc_hol┆
0x6c740…6c760 64 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 2e 74 63 ┆d:= w0:= 1; if w0:=(w3).tc┆
0x6c760…6c77a 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 ┆_hostno<>0 ! remote ! then┆
0x6c77a…6c780 (0x324,0xd90)
0x6c780…6c7a0 20 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 ┆ w0:= 64; ! asterix ! (w2)┆
0x6c7a0…6c7c0 2e 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 ┆.asterix:= w0; case w1 of┆
0x6c7c0…6c7e0 20 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 21 0a 20 20 20 ┆ ! select variable text ! ┆
0x6c7e0…6c800 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 00 00 00 00 00 00 00 00 ┆ begin begin ┆
0x6c800…6c806 (868,) (0x324,0xd91)
0x6c806…6c820 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 33 29 2e 74 63 5f 6b 69 ┆ if w0:=(w3).tc_ki┆
0x6c820…6c840 6e 64 3d 31 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 ┆nd=14 then begin ┆
0x6c840…6c860 20 20 20 20 20 20 20 66 31 3a 3d 28 77 32 3a 3d 28 77 33 29 2e 70 72 5f 71 75 65 72 65 66 29 2e ┆ f1:=(w2:=(w3).pr_queref).┆
0x6c860…6c87e 74 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 6f 72 20 ┆tq_suspend; w0 or ┆
0x6c87e…6c884 (0x324,0xd92)
0x6c884…6c8a0 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 ┆w1; if w0<>0 the┆
0x6c8a0…6c8c0 6e 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 ┆n w1:=address(t_resume) else w1:┆
0x6c8c0…6c8e0 3d 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 20 ┆=address(t_prepare); ┆
0x6c8e0…6c8fc 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 72 ┆ move(.w3.,w0:=6,w1,w2:=addr┆
0x6c8fc…6c902 (0x324,0xd93)
0x6c902…6c920 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 ┆ess(t1)); looktran┆
0x6c920…6c940 73 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 ┆sport(.w3.,w1:=(w2:=(w3).pr_quer┆
0x6c940…6c960 65 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 20 65 6e ┆ef).tq_transno,w2); en┆
0x6c960…6c97a 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 ┆d else begin ┆
0x6c97a…6c980 (0x324,0xd94)
0x6c980…6c9a0 20 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 ┆ move(.w3.,w0:=6,w1:=add┆
0x6c9a0…6c9c0 72 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 ┆ress(t_prepare),w2:=address(t1))┆
0x6c9c0…6c9e0 3b 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 28 2e 77 33 2e ┆; looktransport(.w3.┆
0x6c9e0…6ca00 2c 77 31 3a 3d 28 77 33 29 2e 74 63 5f 74 72 61 6e 73 6e 6f 2c 77 32 29 00 00 00 00 00 00 00 00 ┆,w1:=(w3).tc_transno,w2) ┆
0x6ca00…6ca06 (869,) (0x324,0xd95)
0x6ca06…6ca20 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 ┆; end; ┆
0x6ca20…6ca40 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 20 6d 6f 76 65 28 2e ┆ transref:= w2; move(.┆
0x6ca40…6ca60 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 6e 61 ┆w3.,w0:=8,w1:=address((w2).tr_na┆
0x6ca60…6ca7e 6d 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 0a 20 20 ┆me),w2:=address(t1trname)); ┆
0x6ca7e…6ca84 (0x324,0xd96)
0x6ca84…6caa0 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 ┆ move(.w3.,w0,w1:=add┆
0x6caa0…6cac0 72 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 ┆ress((w1:=transref).tr_user),w2:┆
0x6cac0…6cae0 3d 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 6d ┆=address(t1truser)); m┆
0x6cae0…6cafc 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 ┆ove(.w3.,w0,w1:=address((w1:┆
0x6cafc…6cb02 (0x324,0xd97)
0x6cb02…6cb20 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 ┆=transref).tr_qgroup),w2:=addr┆
0x6cb20…6cb40 65 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 ┆ess(t1trqgroup)); move┆
0x6cb40…6cb60 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 6e 73 72 ┆(.w3.,w0,w1:=address((w1:=transr┆
0x6cb60…6cb7a 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 ┆ef).tr_qname),w2:=address(┆
0x6cb7a…6cb80 (0x324,0xd98)
0x6cb80…6cba0 74 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 ┆t1trqname)); w1:= addr┆
0x6cba0…6cbc0 65 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 ┆ess(t1); if w0:=(w2).w┆
0x6cbc0…6cbe0 6f 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 3d 20 34 34 3b ┆ord=0 then w0:= 24 else w0:= 44;┆
0x6cbe0…6cc00 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 62 65 00 00 00 00 00 00 00 00 ┆ end; be ┆
0x6cc00…6cc06 (870,) (0x324,0xd99)
0x6cc06…6cc20 67 69 6e 20 21 20 73 74 61 74 75 73 20 65 72 72 6f 72 20 21 0a 20 20 20 20 20 ┆gin ! status error ! ┆
0x6cc20…6cc40 20 20 20 20 20 77 30 3a 3d 20 2d 31 30 3b 20 77 31 3a 3d 20 30 3b 20 77 32 3a 3d 20 73 61 76 65 ┆ w0:= -10; w1:= 0; w2:= save┆
0x6cc40…6cc60 77 32 3b 0a 20 20 20 20 20 20 20 20 20 20 77 68 69 6c 65 20 77 31 3d 30 20 64 6f 0a 20 20 20 20 ┆w2; while w1=0 do ┆
0x6cc60…6cc7e 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 32 20 6c 73 68 ┆ begin f2 lsh┆
0x6cc7e…6cc84 (0x324,0xd9a)
0x6cc84…6cca0 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 ┆ift 1; w0+10; end;┆
0x6cca0…6ccc0 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 32 29 3b 0a 20 20 20 ┆ w1:= address(t2); ┆
0x6ccc0…6cce0 20 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 3b ┆ w1+w0; w0:= 10;┆
0x6cce0…6ccfc 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 72 ┆ end; ! status error┆
0x6ccfc…6cd02 (0x324,0xd9b)
0x6cd02…6cd20 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 ┆ ! begin ! operator st┆
0x6cd20…6cd40 6f 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 ┆op ! w1:= address(t3);┆
0x6cd40…6cd60 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 20 65 6e 64 3b ┆ w0:= 14; end;┆
0x6cd60…6cd7a 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 ┆ begin ! end trans┆
0x6cd7a…6cd80 (0x324,0xd9c)
0x6cd80…6cda0 70 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 ┆port ! t4state:= w0:= ┆
0x6cda0…6cdc0 73 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 ┆savew2+ 4'02000300; ! state + " ┆
0x6cdc0…6cde0 30 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 28 74 34 29 3b ┆0" ! w1:= address(t4);┆
0x6cde0…6ce00 0a 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 20 31 32 3b 0a 20 20 20 20 00 00 00 00 00 00 00 00 ┆ w0:= 12; ┆
0x6ce00…6ce06 (871,) (0x324,0xd9d)
0x6ce06…6ce20 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 74 ┆ end; begin ! t┆
0x6ce20…6ce40 72 61 6e 73 6d 69 74 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 ┆ransmit ! w1:= address┆
0x6ce40…6ce60 28 74 35 29 3b 20 77 30 3a 3d 20 38 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 ┆(t5); w0:= 8; end; ┆
0x6ce60…6ce7e 20 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 75 72 69 ┆ begin ! end of bs-area duri┆
0x6ce7e…6ce84 (0x324,0xd9e)
0x6ce84…6cea0 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 ┆ng skip ! w1:=addr┆
0x6cea0…6cec0 65 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 ┆ess(t6);w0:=10; end; ┆
0x6cec0…6cee0 20 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 21 ┆ begin ! cu,device exeeded !┆
0x6cee0…6cefc 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 3b ┆ w1:= address(t7);┆
0x6cefc…6cf02 (0x324,0xd9f)
0x6cf02…6cf20 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 ┆w0:= 14; end; ┆
0x6cf20…6cf40 62 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 ┆begin ! not connected ! ┆
0x6cf40…6cf60 20 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 20 20 20 ┆ w1:= address(t8);w0:= 12; ┆
0x6cf60…6cf7a 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 ┆ end; begin ! p┆
0x6cf7a…6cf80 (0x324,0xda0)
0x6cf80…6cfa0 72 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 ┆rinter reserved ! w1:=┆
0x6cfa0…6cfc0 20 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 ┆ address(t9);w0:= 12; en┆
0x6cfc0…6cfe0 64 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 72 63 65 73 20 ┆d; begin ! no resources ┆
0x6cfe0…6d000 61 74 20 64 65 76 69 63 65 20 68 6f 73 74 20 21 0a 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆at device host ! ┆
0x6d000…6d006 (872,) (0x324,0xda1)
0x6d006…6d020 20 20 20 77 31 3a 3d 20 61 64 64 72 65 73 73 28 74 31 30 29 3b 77 30 3a 3d 20 ┆ w1:= address(t10);w0:= ┆
0x6d020…6d040 32 30 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 20 21 ┆20; end; begin !┆
0x6d040…6d060 20 70 72 69 6e 74 65 72 20 75 6e 61 76 61 69 6c 61 62 6c 65 20 21 0a 20 20 20 20 20 20 20 20 20 ┆ printer unavailable ! ┆
0x6d060…6d07e 20 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 0a 20 20 ┆ w1:= address(tt1);w0:= 14; ┆
0x6d07e…6d084 (0x324,0xda2)
0x6d084…6d0a0 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 ┆ end; begin ! p┆
0x6d0a0…6d0c0 72 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 ┆rinter busy ! w1:= add┆
0x6d0c0…6d0e0 72 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 0a ┆ress(tt2);w0:= 10; end; ┆
0x6d0e0…6d0fc 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 6c ┆ begin ! printer offl┆
0x6d0fc…6d102 (0x324,0xda3)
0x6d102…6d120 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 ┆ine ! w1:= address(t┆
0x6d120…6d140 74 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 ┆t3);w0:= 12; end; ┆
0x6d140…6d160 20 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 72 20 21 ┆ begin ! printer comand error !┆
0x6d160…6d17a 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 ┆ w1:= address(tt┆
0x6d17a…6d180 (0x324,0xda4)
0x6d180…6d1a0 34 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 ┆4);w0:=12; end; ┆
0x6d1a0…6d1c0 62 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 ┆begin ! unexpected result ! ┆
0x6d1c0…6d1e0 20 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 74 61 74 75 73 ┆ w3:= savew2; ! w3 = status┆
0x6d1e0…6d200 20 62 79 74 65 73 20 73 30 2f 73 31 20 28 20 66 6f 72 6d 61 74 20 70 72 00 00 00 00 00 00 00 00 ┆ bytes s0/s1 ( format pr ┆
0x6d200…6d206 (873,) (0x324,0xda5)
0x6d206…6d220 69 6e 74 65 72 20 73 74 61 74 75 73 20 29 21 0a 20 20 20 20 20 20 20 20 20 20 ┆inter status )! ┆
0x6d220…6d240 63 6f 6d 6d 65 6e 74 20 63 6f 6e 76 65 72 74 20 74 6f 20 74 65 78 74 2c 20 68 65 78 61 64 65 63 ┆comment convert to text, hexadec┆
0x6d240…6d260 69 6d 61 6c 20 64 69 67 69 74 73 2c 20 69 6e 20 70 72 69 6e 74 20 6c 69 6e 65 3b 0a 20 20 20 20 ┆imal digits, in print line; ┆
0x6d260…6d27e 20 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 20 20 20 ┆ w2:= 0;f3 lshift 12; ┆
0x6d27e…6d284 (0x324,0xda6)
0x6d284…6d2a0 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┆
0x6d2a0…6d2c0 73 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 ┆se w2+48;w0:= w2; w2:=┆
0x6d2c0…6d2e0 20 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 3e ┆ 0;f3 lshift 4; if w2>┆
0x6d2e0…6d2fc 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 6c ┆9 then w2+87 else w2+48;w0 l┆
0x6d2fc…6d302 (0x324,0xda7)
0x6d302…6d320 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 ┆shift 8;w0+w2; w0 ls┆
0x6d320…6d340 68 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 ┆hift 8;w0+32; w2:= 0;f┆
0x6d340…6d360 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 3e 39 20 74 68 ┆3 lshift 4; if w2>9 th┆
0x6d360…6d37a 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 ┆en w2+87 else w2+48; w1:= ┆
0x6d37a…6d380 (0x324,0xda8)
0x6d380…6d3a0 77 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 ┆w2; w2:= 0;f3 lshift 4┆
0x6d3a0…6d3c0 3b 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 ┆; if w2>9 then w2+87 e┆
0x6d3c0…6d3e0 6c 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 3b 0a 20 20 20 ┆lse w2+48;w1 lshift 8;w1+w2; ┆
0x6d3e0…6d400 20 20 20 20 20 20 20 77 31 20 6c 73 68 69 66 74 20 38 3b 0a 20 20 20 20 00 00 00 00 00 00 00 00 ┆ w1 lshift 8; ┆
0x6d400…6d406 (874,) (0x324,0xda9)
0x6d406…6d420 20 20 20 20 20 20 73 30 73 31 3a 3d 20 66 31 3b 0a 20 20 20 20 20 20 20 20 20 ┆ s0s1:= f1; ┆
0x6d420…6d440 20 77 31 3a 3d 20 61 64 64 72 65 73 73 28 74 74 35 29 3b 77 30 3a 3d 20 32 34 3b 0a 20 20 20 20 ┆ w1:= address(tt5);w0:= 24; ┆
0x6d440…6d460 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 66 38 30 30 30 20 70 ┆ end; begin ! f8000 p┆
0x6d460…6d47e 72 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 6f 6d 6d ┆rinter discnt. by discnt. comm┆
0x6d47e…6d484 (0x324,0xdaa)
0x6d484…6d4a0 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 ┆and ! w1:= address┆
0x6d4a0…6d4c0 28 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 ┆(tt6); w0:= 14; ┆
0x6d4c0…6d4e0 20 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 20 ┆ end; end; ! case ! ┆
0x6d4e0…6d4fc 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 61 ┆ ! w1 abs ref start of varia┆
0x6d4fc…6d502 (0x324,0xdab)
0x6d502…6d520 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 ┆ble text, w0 length of variabl┆
0x6d520…6d540 65 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 ┆e text ! textsize:= w0; ┆
0x6d540…6d560 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 65 73 73 ┆ move(.w3.,w0,w1,w2:=address┆
0x6d560…6d57a 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 ┆((w2:=bufref).vartext)); ┆
0x6d57a…6d580 (0x324,0xdac)
0x6d580…6d5a0 20 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 ┆ (w2+w0).word:= w1:= 10; ! ┆
0x6d5a0…6d5c0 74 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 ┆terminate text with nl ! ┆
0x6d5c0…6d5e0 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 28 77 32 3a 3d 62 75 ┆outtime(.w3.,w2:=address((w2:=bu┆
0x6d5e0…6d600 66 72 65 66 29 2e 74 69 6d 65 29 29 3b 0a 20 20 20 20 20 20 77 31 3a 3d 00 00 00 00 00 00 00 00 ┆fref).time)); w1:= ┆
0x6d600…6d606 (875,) (0x324,0xdad)
0x6d606…6d620 62 2e 70 72 69 6d 6f 2b 32 3b 0a 20 20 20 20 20 20 6d 6f 76 65 28 2e 77 33 2e ┆b.primo+2; move(.w3.┆
0x6d620…6d640 2c 77 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 62 75 66 72 65 ┆,w0:=8,w1,w2:=address((w2:=bufre┆
0x6d640…6d660 66 29 2e 6f 77 6e 6e 61 6d 65 29 29 3b 0a 20 20 20 20 20 20 62 75 66 72 65 66 2e 63 6f 6c 6f 6e ┆f).ownname)); bufref.colon┆
0x6d660…6d67e 3a 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 6f 76 65 ┆:= w1:= 58; ! ":" ! move┆
0x6d67e…6d684 (0x324,0xdae)
0x6d684…6d6a0 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 ┆(.w3.,w0,w1:=address((w3).tc┆
0x6d6a0…6d6c0 5f 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 ┆_devname),w2:=address((w2:=bufre┆
0x6d6c0…6d6e0 66 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 33 ┆f).processname)); w1:= (w3┆
0x6d6e0…6d6fc 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 3a ┆).tc_buf; (w1).buf_op:┆
0x6d6fc…6d702 (0x324,0xdaf)
0x6d702…6d720 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 ┆= w2:= 5; (w1).buf_mode:┆
0x6d720…6d740 3d 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 ┆= w2:= 0; (w1).buf_first:=┆
0x6d740…6d760 20 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 28 77 33 ┆ w2:= bufref; if w0:=(w3┆
0x6d760…6d77a 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 ┆).tc_hostid<>0 then ┆
0x6d77a…6d780 (0x324,0xdb0)
0x6d780…6d7a0 20 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 ┆ begin if w0=b.proc_h┆
0x6d7a0…6d7c0 69 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 ┆id then w0:= (w3).tc_ohid; ┆
0x6d7c0…6d7e0 20 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 65 6e 0a 20 20 ┆ if w0<>(w3).tc_ohid then ┆
0x6d7e0…6d800 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 61 64 00 00 00 00 00 00 00 00 ┆ begin comment ad ┆
0x6d800…6d806 (876,) (0x324,0xdb1)
0x6d806…6d820 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 ┆d host information; ┆
0x6d820…6d840 20 20 20 20 20 20 6d 6f 76 65 28 2e 77 33 2e 2c 77 30 3a 3d 34 2c 77 31 3a 3d 61 64 64 72 65 73 ┆ move(.w3.,w0:=4,w1:=addres┆
0x6d840…6d860 73 28 74 5f 68 6f 73 74 29 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆s(t_host), ┆
0x6d860…6d87e 20 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 61 72 74 ┆ w2:=address((w2:=bufref).vart┆
0x6d87e…6d884 (0x324,0xdb2)
0x6d884…6d8a0 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 ┆ext)+textsize); ┆
0x6d8a0…6d8c0 77 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 ┆w1:=w2+w0; writeinte┆
0x6d8c0…6d8e0 67 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 0a ┆ger(.w3.,w0:=(w3).tc_hostno,w1, ┆
0x6d8e0…6d8fc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x6d8fc…6d902 (0x324,0xdb3)
0x6d902…6d920 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 ┆ w2:= 10 lshift 8 + 3 lshift ┆
0x6d920…6d940 38 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 ┆8 + 46); writeintege┆
0x6d940…6d960 72 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 32 2c 0a ┆r(.w3.,w0:=(w3).tc_hostid,w1+2, ┆
0x6d960…6d97a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x6d97a…6d980 (0x324,0xdb4)
0x6d980…6d9a0 20 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 ┆ w2:= 10 lshift 8 + 5 lshift ┆
0x6d9a0…6d9c0 38 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 ┆8 + 46); w1+4;(w1).w┆
0x6d9c0…6d9e0 6f 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 65 20 21 0a 20 ┆ord:= w0:= 10; ! add newline ! ┆
0x6d9e0…6da00 20 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 68 6f 6c 64 3a 00 00 00 00 00 00 00 00 ┆ (w3).tc_hold: ┆
0x6da00…6da06 (877,) (0x324,0xdb5)
0x6da06…6da20 3d 20 77 30 3a 3d 20 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d ┆= w0:= 2; w0:=┆
0x6da20…6da40 31 30 3b 20 21 20 65 78 74 65 6e 73 69 6f 6e 20 74 6f 20 74 65 78 74 73 69 7a 65 20 21 0a 20 20 ┆10; ! extension to textsize ! ┆
0x6da40…6da60 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 20 77 30 3a 3d 30 ┆ end else w0:=0┆
0x6da60…6da7e 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 77 30 3a ┆; end else w0:┆
0x6da7e…6da84 (0x324,0xdb6)
0x6da84…6daa0 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 ┆=0; w0+!length(outfo┆
0x6daa0…6dac0 72 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 ┆rmat)+textsize; w2:=bufr┆
0x6dac0…6dae0 65 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 66 ┆ef+w0-2; w1:=(w3).tc_buf┆
0x6dae0…6dafc 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 3b ┆; (w1).buf_last:=w2;┆
0x6dafc…6db02 (0x324,0xdb7)
0x6db02…6db20 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 ┆ testout(.w3.,w0,w1:=(w1┆
0x6db20…6db40 29 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 ┆).buf_first,w2:=0); rep_sw: ┆
0x6db40…6db60 20 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 63 5f 62 ┆ sendwait(.w3.,w0,w1:=(w3).tc_b┆
0x6db60…6db7a 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 ┆uf,w2:=address((w3).tc_con┆
0x6db7a…6db80 (0x324,0xdb8)
0x6db80…6dba0 73 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 ┆sole)); w2:= 1 ashift w0; ┆
0x6dba0…6dbc0 20 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 ┆ if w2=2 then w2+b.ans_stat┆
0x6dbc0…6dbe0 75 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 20 20 20 20 20 ┆us else begin ┆
0x6dbe0…6dc00 20 20 62 2e 61 6e 73 5f 62 79 74 65 73 3a 3d 20 77 30 3a 3d 20 30 3b 0a 00 00 00 00 00 00 00 00 ┆ b.ans_bytes:= w0:= 0; ┆
0x6dc00…6dc06 (878,) (0x324,0xdb9)
0x6dc06…6dc20 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 20 77 32 20 61 6e 64 20 32 27 ┆ if w0:= w2 and 2'┆
0x6dc20…6dc40 31 31 30 30 30 30 20 3c 3e 20 30 20 74 68 65 6e 20 21 20 64 6f 65 73 20 6e 6f 74 20 65 78 69 73 ┆110000 <> 0 then ! does not exis┆
0x6dc40…6dc60 74 2c 20 64 69 73 63 6f 6e 6e 65 63 74 65 64 20 21 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a ┆t, disconnected ! begin ┆
0x6dc60…6dc7e 20 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 73 73 28 ┆ if w0:=(w1:=address(┆
0x6dc7e…6dc84 (0x324,0xdba)
0x6dc84…6dca0 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 ┆(w3).tc_devcons)).word<>0 th┆
0x6dca0…6dcc0 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 73 ┆en begin s┆
0x6dcc0…6dce0 65 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 65 ┆endwait(.w3.,w0,w1:=address(time┆
0x6dce0…6dcfc 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 21 ┆unit),w2:=address(clock)); !┆
0x6dcfc…6dd02 (0x324,0xdbb)
0x6dd02…6dd20 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 ┆ delay ! linkuprem┆
0x6dd20…6dd40 6f 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 ┆ote(.w3.,w0:=8,w0:=(w3).tc_ohno,┆
0x6dd40…6dd60 77 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 20 20 20 ┆w0:=(w3).tc_ohid, ┆
0x6dd60…6dd7a 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 ┆ w0:=addres┆
0x6dd7a…6dd80 (0x324,0xdbc)
0x6dd80…6dda0 73 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 ┆s((w3).tc_devcons),w0,w2); ┆
0x6dda0…6ddc0 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 20 20 20 ┆ w3:= b.current; ┆
0x6ddc0…6dde0 20 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 68 65 6e 0a 20 ┆ if w0=4096 ! created ! then ┆
0x6dde0…6de00 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ begin ┆
0x6de00…6de06 (879,) (0x324,0xdbd)
0x6de06…6de20 20 20 20 20 20 20 20 77 31 3a 3d 20 77 32 3b 20 77 31 2b 32 3b 0a 20 20 20 20 ┆ w1:= w2; w1+2; ┆
0x6de20…6de40 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 2c 77 32 3a ┆ move(.w3.,w0:=8,w1,w2:┆
0x6de40…6de60 3d 61 64 64 72 65 73 73 28 28 77 33 29 2e 74 63 5f 63 6f 6e 73 6f 6c 65 29 29 3b 0a 20 20 20 20 ┆=address((w3).tc_console)); ┆
0x6de60…6de7e 20 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 20 20 20 ┆ goto rep_sw; ┆
0x6de7e…6de84 (0x324,0xdbe)
0x6de84…6dea0 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 ┆ end else w2┆
0x6dea0…6dec0 3a 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 ┆:= 32; end; en┆
0x6dec0…6dee0 64 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 63 ┆d; end; w1:= (w3).tc┆
0x6dee0…6defc 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 30 ┆_buf; if w0:=8'0020000┆
0x6defc…6df02 (0x324,0xdbf)
0x6df02…6df20 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 ┆2 onemask w2 then ! no status ┆
0x6df20…6df40 62 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 ┆bits except att and normal ! ┆
0x6df40…6df60 20 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 73 5f 62 ┆ if w0:=(w1).buf_first+b.ans_b┆
0x6df60…6df7a 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 ┆ytes<=(w1).buf_last then g┆
0x6df7a…6df80 (0x324,0xdc0)
0x6df80…6dfa0 6f 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 ┆oto rep_sw; if w2<>2 then ┆
0x6dfa0…6dfc0 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 20 63 6f 6d 6d 65 6e ┆ begin begin commen┆
0x6dfc0…6dfe0 74 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 20 20 20 20 20 ┆t route to mainoperator; ┆
0x6dfe0…6e000 20 20 20 69 66 20 77 30 3a 3d 28 77 33 29 2e 74 63 5f 68 6f 73 74 69 64 00 00 00 00 00 00 00 00 ┆ if w0:=(w3).tc_hostid ┆
0x6e000…6e006 (880,) (0x324,0xdc1)
0x6e006…6e020 3c 3e 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 ┆<>0 then begin c┆
0x6e020…6e040 6f 6d 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 ┆omment remote device; ┆
0x6e040…6e060 20 20 69 66 20 77 30 3d 28 77 33 29 2e 74 63 5f 6f 68 69 64 20 74 68 65 6e 0a 20 20 20 20 20 20 ┆ if w0=(w3).tc_ohid then ┆
0x6e060…6e07e 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 77 ┆ begin comment operator w┆
0x6e07e…6e084 (0x324,0xdc2)
0x6e084…6e0a0 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 ┆as remote, ┆
0x6e0a0…6e0c0 20 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 ┆ add host information; ┆
0x6e0c0…6e0e0 20 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 62 ┆ w1:=(w3).tc_buf;w2:= (w1).b┆
0x6e0e0…6e0fc 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 28 ┆uf_last; move(┆
0x6e0fc…6e102 (0x324,0xdc3)
0x6e102…6e120 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 ┆.w3.,w0:=4,w1:=address(t_host)┆
0x6e120…6e140 2c 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 ┆,w2); writeinteger┆
0x6e140…6e160 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 3a 3d 77 32 2b ┆(.w3.,w0:=(w3).tc_hostno,w1:=w2+┆
0x6e160…6e17a 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 ┆4, ┆
0x6e17a…6e180 (0x324,0xdc4)
0x6e180…6e1a0 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 33 20 6c 73 ┆ w2:= 10 lshift 8 + 3 ls┆
0x6e1a0…6e1c0 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 72 69 74 ┆hift 8 + 46); writ┆
0x6e1c0…6e1e0 65 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 6f 73 74 69 64 ┆einteger(.w3.,w0:=(w3).tc_hostid┆
0x6e1e0…6e200 2c 77 31 2b 32 2c 0a 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 ┆,w1+2, ┆
0x6e200…6e206 (881,) (0x324,0xdc5)
0x6e206…6e220 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 20 31 30 20 6c 73 68 ┆ w2:= 10 lsh┆
0x6e220…6e240 69 66 74 20 38 20 2b 20 35 20 6c 73 68 69 66 74 20 38 20 2b 20 34 36 29 3b 0a 20 20 20 20 20 20 ┆ift 8 + 5 lshift 8 + 46); ┆
0x6e240…6e260 20 20 20 20 20 20 20 20 77 32 3a 3d 77 31 2b 34 3b 28 77 32 29 2e 77 6f 72 64 3a 3d 20 77 30 3a ┆ w2:=w1+4;(w2).word:= w0:┆
0x6e260…6e27e 3d 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 20 20 20 ┆= 10; ! add newline ! ┆
0x6e27e…6e284 (0x324,0xdc6)
0x6e284…6e2a0 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 ┆ w1:=(w3).tc_buf; ┆
0x6e2a0…6e2c0 20 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 ┆ (w1).buf_last:= w2; ┆
0x6e2c0…6e2e0 20 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 66 ┆ end; ! end add host inf┆
0x6e2e0…6e2fc 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 20 ┆ormation ! end; ┆
0x6e2fc…6e302 (0x324,0xdc7)
0x6e302…6e320 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 ┆ (w3).tc_hold:= w0:= 2;┆
0x6e320…6e340 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 66 3b 0a 20 20 20 ┆ w1:= (w3).tc_buf; ┆
0x6e340…6e360 20 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 20 20 20 ┆ outmain(.w3.,w1,w2); ┆
0x6e360…6e37a 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 ┆ end; end; exit: ┆
0x6e37a…6e380 (0x324,0xdc8)
0x6e380…6e3a0 0a 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 ┆ !test 1010; call w0 (w3).┆
0x6e3a0…6e3c0 74 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 ┆tc_saveic; end; end; ! opr┆
0x6e3c0…6e3e0 6f 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 65 74 72 61 6e ┆output ! body of updatetran┆
0x6e3e0…6e400 73 70 6f 72 74 0a 20 20 63 6f 6d 6d 65 6e 74 20 75 70 64 61 74 65 20 64 00 00 00 00 00 00 00 00 ┆sport comment update d ┆
0x6e400…6e406 (882,) (0x324,0xdc9)
0x6e406…6e420 65 73 63 72 69 70 74 69 6f 6e 20 6f 66 20 74 72 61 6e 73 70 6f 72 74 3b 0a 20 ┆escription of transport; ┆
0x6e420…6e440 20 62 65 67 69 6e 0a 20 20 20 20 6c 61 62 65 6c 20 65 78 69 74 3b 0a 20 20 20 20 69 6e 63 6f 64 ┆ begin label exit; incod┆
0x6e440…6e460 65 0a 20 20 20 20 20 20 72 65 66 20 74 72 61 6e 73 72 65 66 3b 0a 0a 20 20 20 20 20 20 21 20 61 ┆e ref transref; ! a┆
0x6e460…6e47e 6e 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 20 74 72 ┆nswer wait and get state of tr┆
0x6e47e…6e484 (0x324,0xdca)
0x6e484…6e4a0 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 ┆ansport ! byte awt_1:=┆
0x6e4a0…6e4c0 20 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 ┆ 7, awt_2:= 0, awt_3:┆
0x6e4c0…6e4e0 3d 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 20 ┆= 4, awt_4:= 4'010000, ┆
0x6e4e0…6e4fc 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 30 ┆ awt_5:= 1, awt_6:= 4'02000┆
0x6e4fc…6e502 (0x324,0xdcb)
0x6e502…6e520 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 ┆1; word awt_rcode:= 0; ┆
0x6e520…6e540 20 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 ┆ byte awt_7:= 1, awt_8:= 4'0┆
0x6e540…6e560 31 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 61 6d 65 ┆10010; text(11) awt_trname┆
0x6e560…6e57a 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 ┆; byte awt_9:= 1, aw┆
0x6e57a…6e580 (0x324,0xdcc)
0x6e580…6e5a0 74 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 ┆t_10:= 4'010001; word awt_┆
0x6e5a0…6e5c0 6e 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 ┆no; byte awt_11:= 1000, aw┆
0x6e5c0…6e5e0 74 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 20 61 77 74 5f ┆t_12:= 4'010000, awt_┆
0x6e5e0…6e600 31 33 3a 3d 20 33 2c 20 61 77 74 5f 31 34 3a 3d 20 34 27 30 32 30 30 30 00 00 00 00 00 00 00 00 ┆13:= 3, awt_14:= 4'02000 ┆
0x6e600…6e606 (883,) (0x324,0xdcd)
0x6e606…6e620 30 2c 0a 20 20 20 20 20 20 20 20 20 20 20 61 77 74 5f 31 35 3a 3d 20 34 2c 20 ┆0, awt_15:= 4, ┆
0x6e620…6e640 61 77 74 5f 31 36 3a 3d 20 34 27 30 33 30 30 30 31 3b 0a 20 20 20 20 20 20 77 6f 72 64 20 61 77 ┆awt_16:= 4'030001; word aw┆
0x6e640…6e660 74 5f 73 74 61 74 65 3b 0a 20 20 20 20 20 20 62 79 74 65 20 61 77 74 5f 31 39 3a 3d 20 37 2c 20 ┆t_state; byte awt_19:= 7, ┆
0x6e660…6e67e 61 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 72 64 20 ┆awt_20:= 4'030002; word ┆
0x6e67e…6e684 (0x324,0xdce)
0x6e684…6e6a0 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 ┆awt_ptr1, awt_ptr2; by┆
0x6e6a0…6e6c0 74 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 ┆te awt_17:=6, awt_18:= 4'030002;┆
0x6e6c0…6e6e0 0a 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 75 ┆ word awt_cause, awt_statu┆
0x6e6e0…6e6fc 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 20 ┆s; double savef1; ┆
0x6e6fc…6e702 (0x324,0xdcf)
0x6e702…6e720 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┆
0x6e720…6e740 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 20 66 31 3b 0a ┆n; begin savef1:= f1; ┆
0x6e740…6e760 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 72 6e 3a ┆ savew2:= w2; return:┆
0x6e760…6e77a 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 ┆= w3; w3:= b.curren┆
0x6e77a…6e780 (0x324,0xdd0)
0x6e780…6e7a0 74 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 ┆t; awt_no:= w1:= (w3).tc_t┆
0x6e7a0…6e7c0 72 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 ┆ransno; looktransport(.w3.┆
0x6e7c0…6e7e0 2c 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 6e 20 67 6f 74 ┆,w1,w2); if w2<=0 then got┆
0x6e7e0…6e800 6f 20 65 78 69 74 3b 20 21 20 74 72 61 6e 73 70 6f 72 74 20 61 6c 72 65 00 00 00 00 00 00 00 00 ┆o exit; ! transport alre ┆
0x6e800…6e806 (884,) (0x324,0xdd1)
0x6e806…6e820 61 64 79 20 75 70 64 61 74 65 64 20 21 0a 20 20 20 20 20 20 74 72 61 6e 73 72 ┆ady updated ! transr┆
0x6e820…6e840 65 66 3a 3d 20 77 32 3b 0a 20 20 20 20 20 20 61 77 74 5f 73 74 61 74 65 3a 3d 20 77 30 3a 3d 20 ┆ef:= w2; awt_state:= w0:= ┆
0x6e840…6e860 28 77 33 29 2e 74 63 5f 73 74 61 74 65 3b 0a 20 20 20 20 20 20 28 77 32 29 2e 74 72 5f 73 74 61 ┆(w3).tc_state; (w2).tr_sta┆
0x6e860…6e87e 74 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 77 30 3a ┆te:= w0; awt_cause:= w0:┆
0x6e87e…6e884 (0x324,0xdd2)
0x6e884…6e8a0 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 ┆= (w3).tc_cause; (w2).┆
0x6e8a0…6e8c0 74 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 ┆tr_cause:= w0; awt_status:┆
0x6e8c0…6e8e0 3d 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 32 ┆= w0:= (w3).tc_status; (w2┆
0x6e8e0…6e8fc 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 3d ┆).tr_status:= w0; f1:=┆
0x6e8fc…6e902 (0x324,0xdd3)
0x6e902…6e920 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 ┆(w3).tc_bsptr; f3:=f1 as┆
0x6e920…6e940 68 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 ┆hift -1; f1++f3; ! convert┆
0x6e940…6e960 20 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 20 20 20 ┆ halfwords to characters ! ┆
0x6e960…6e97a 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 ┆ w2:=transref; w3:=b.curre┆
0x6e97a…6e980 (0x324,0xdd4)
0x6e980…6e9a0 6e 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 ┆nt; awt_ptr1:=w0; aw┆
0x6e9a0…6e9c0 74 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 ┆t_ptr2:=w1; (w2).tr_charpo┆
0x6e9c0…6e9e0 73 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 32 29 2e 74 72 ┆sition:=f1; if w0:=(w2).tr┆
0x6e9e0…6ea00 5f 77 61 69 74 6d 65 73 73 3e 30 20 74 68 65 6e 0a 20 20 20 20 20 20 62 00 00 00 00 00 00 00 00 ┆_waitmess>0 then b ┆
0x6ea00…6ea06 (885,) (0x324,0xdd5)
0x6ea06…6ea20 65 67 69 6e 20 21 20 70 65 6e 64 69 6e 67 20 77 61 69 74 20 6f 70 65 72 61 74 ┆egin ! pending wait operat┆
0x6ea20…6ea40 69 6f 6e 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 77 31 ┆ion ! move(.w3.,w0:=8,w1┆
0x6ea40…6ea60 3a 3d 61 64 64 72 65 73 73 28 28 77 32 29 2e 74 72 5f 6e 61 6d 65 29 2c 77 32 3a 3d 61 64 64 72 ┆:=address((w2).tr_name),w2:=addr┆
0x6ea60…6ea7e 65 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 66 20 77 ┆ess(awt_trname)); if w┆
0x6ea7e…6ea84 (0x324,0xdd6)
0x6ea84…6eaa0 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 ┆1:=awt_state=5 ! completed !┆
0x6eaa0…6eac0 20 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 ┆ then w1:= address(awt_ptr2) ┆
0x6eac0…6eae0 20 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 72 ┆ else if w1=6 ! abor┆
0x6eae0…6eafc 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 5f ┆ted ! then w1:= address(awt_┆
0x6eafc…6eb02 (0x324,0xdd7)
0x6eb02…6eb20 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 ┆status) else w1:= addr┆
0x6eb20…6eb40 65 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 ┆ess(awt_state); copyansw┆
0x6eb40…6eb60 65 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 2c 77 32 ┆er(.w3.,w0:=address(awt_1),w1,w2┆
0x6eb60…6eb7a 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 ┆:=transref.tr_waitmess); ┆
0x6eb7a…6eb80 (0x324,0xdd8)
0x6eb80…6eba0 20 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 ┆ b.waitbufs:= w0:= b.waitb┆
0x6eba0…6ebc0 75 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 ┆ufs+1; w2:= transref; ┆
0x6ebc0…6ebe0 20 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 74 72 5f 77 61 ┆ w0:= 0; (w2).tr_wa┆
0x6ebe0…6ec00 69 74 6d 65 73 73 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 00 00 00 00 00 00 00 00 ┆itmess:= w0; end; ┆
0x6ec00…6ec06 (886,) (0x324,0xdd9)
0x6ec06…6ec20 0a 20 20 20 20 20 20 69 66 20 77 31 3a 3d 28 77 32 29 2e 74 72 5f 72 65 6d 6f ┆ if w1:=(w2).tr_remo┆
0x6ec20…6ec40 76 65 74 69 6d 65 3d 38 27 33 37 37 37 37 37 37 36 20 74 68 65 6e 20 77 31 3a 3d 20 30 0a 20 20 ┆vetime=8'37777776 then w1:= 0 ┆
0x6ec40…6ec60 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 77 31 3a ┆ else begin w1:┆
0x6ec60…6ec7e 3d 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 75 62 6c ┆= 108; f1:= (w1).doubl┆
0x6ec7e…6ec84 (0x324,0xdda)
0x6ec84…6eca0 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 ┆e+b.trsaveperiod lshift -20;┆
0x6eca0…6ecc0 0a 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 ┆ end; (w2).tr_remove┆
0x6ecc0…6ece0 74 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 77 ┆time:= w1; puttransport(.w┆
0x6ece0…6ecfc 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 20 ┆3.,w1:=awt_no); exit: ┆
0x6ecfc…6ed02 (0x324,0xddb)
0x6ed02…6ed20 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 ┆ f1:= savef1; w2:= savew┆
0x6ed20…6ed40 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 20 20 63 ┆2; w3:= b.current; c┆
0x6ed40…6ed60 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 21 ┆all w0 return; end; end; !┆
0x6ed60…6ed7a 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 ┆ updatetransport ! bo┆
0x6ed7a…6ed80 (0x324,0xddc)
0x6ed80…6eda0 64 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 ┆dy of check_devicestatus comme┆
0x6eda0…6edc0 6e 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 ┆nt check device status for curre┆
0x6edc0…6ede0 6e 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 73 65 0a 20 20 ┆nt coroutine, and clear noise ┆
0x6ede0…6ee00 20 20 20 20 20 20 20 20 69 6e 20 68 77 6f 72 64 73 20 74 72 61 6e 73 66 00 00 00 00 00 00 00 00 ┆ in hwords transf ┆
0x6ee00…6ee06 (887,) (0x324,0xddd)
0x6ee06…6ee20 65 72 72 65 64 2e 0a 20 20 20 20 20 20 20 20 20 20 74 72 79 20 74 6f 20 72 65 ┆erred. try to re┆
0x6ee20…6ee40 70 61 69 72 20 72 65 6a 65 63 74 65 64 20 61 6e 64 20 64 6f 65 73 20 6e 6f 74 20 65 78 69 73 74 ┆pair rejected and does not exist┆
0x6ee40…6ee60 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 64 6f 75 62 6c ┆; begin incode doubl┆
0x6ee60…6ee7e 65 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 72 6f 20 ┆e savef1; text(11) zero ┆
0x6ee7e…6ee84 (0x324,0xdde)
0x6ee84…6eea0 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 ┆:= "'0''0''0'"; word h┆
0x6eea0…6eec0 65 6c 70 77 32 2c 20 68 65 6c 70 77 30 3b 0a 20 20 20 20 20 20 72 65 66 20 72 65 74 75 72 6e 3b ┆elpw2, helpw0; ref return;┆
0x6eec0…6eee0 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 20 ┆ begin savef1:= f1; ┆
0x6eee0…6eefc 20 20 20 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 ┆ return:= w3; w3:= ┆
0x6eefc…6ef02 (0x324,0xddf)
0x6ef02…6ef20 62 2e 63 75 72 72 65 6e 74 3b 0a 0a 20 20 20 20 20 20 77 32 3a 3d 20 31 20 61 73 68 69 66 ┆b.current; w2:= 1 ashif┆
0x6ef20…6ef40 74 20 77 30 3b 0a 20 20 20 20 20 20 69 66 20 77 32 3d 32 20 74 68 65 6e 20 77 32 2b 28 77 31 29 ┆t w0; if w2=2 then w2+(w1)┆
0x6ef40…6ef60 2e 77 6f 72 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 20 20 20 ┆.word else begin ┆
0x6ef60…6ef7a 20 20 20 20 20 77 31 2b 32 3b 20 28 77 31 29 2e 77 6f 72 64 3a 3d 20 77 30 3a ┆ w1+2; (w1).word:= w0:┆
0x6ef7a…6ef80 (0x324,0xde0)
0x6ef80…6efa0 3d 20 30 3b 20 21 20 68 77 6f 72 64 73 3a 3d 20 30 20 21 0a 20 20 20 20 20 20 20 20 69 66 20 77 ┆= 0; ! hwords:= 0 ! if w┆
0x6efa0…6efc0 32 3d 34 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 21 20 72 65 6a 65 63 74 65 ┆2=4 then begin ! rejecte┆
0x6efc0…6efe0 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 28 77 33 29 2e ┆d ! w1:= address((w3).┆
0x6efe0…6f000 74 63 5f 6e 61 6d 65 29 2b 38 3b 0a 20 20 20 20 20 20 20 20 20 20 28 77 00 00 00 00 00 00 00 00 ┆tc_name)+8; (w ┆
0x6f000…6f006 (888,) (0x324,0xde1)
0x6f006…6f020 31 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 ┆1).word:= w0:= 0; ┆
0x6f020…6f040 20 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 20 20 20 ┆ w0:=-8388607;w1:=8388605; ┆
0x6f040…6f060 20 20 20 20 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 ┆ w3:=address(zero); ┆
0x6f060…6f07e 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 61 6c 6f 67 20 ┆ monitor(72); ! set catalog ┆
0x6f07e…6f084 (0x324,0xde2)
0x6f084…6f0a0 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 72 65 ┆base ! w3:=b.curre┆
0x6f0a0…6f0c0 6e 74 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 28 77 33 29 2e ┆nt; w3:= address((w3).┆
0x6f0c0…6f0e0 74 63 5f 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 38 29 3b 20 ┆tc_name); monitor(8); ┆
0x6f0e0…6f0fc 21 20 72 65 73 65 72 76 65 20 21 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3d ┆! reserve ! if w0=┆
0x6f0fc…6f102 (0x324,0xde3)
0x6f102…6f120 30 20 74 68 65 6e 20 77 32 3a 3d 20 30 3b 20 20 21 20 20 73 74 61 74 75 73 20 3d 20 30 20 ┆0 then w2:= 0; ! status = 0 ┆
0x6f120…6f140 6d 65 61 6e 73 20 72 65 70 65 61 74 20 6f 70 65 72 61 74 69 6f 6e 20 21 0a 20 20 20 20 20 20 20 ┆means repeat operation ! ┆
0x6f140…6f160 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 20 77 30 3a ┆ end else if w0:┆
0x6f160…6f17a 3d 20 77 32 20 61 6e 64 20 32 27 31 31 30 30 30 30 20 3c 3e 20 30 20 74 68 65 ┆= w2 and 2'110000 <> 0 the┆
0x6f17a…6f180 (0x324,0xde4)
0x6f180…6f1a0 6e 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 21 20 64 6f 65 73 20 6e 6f 74 20 65 78 69 73 74 ┆n begin ! does not exist┆
0x6f1a0…6f1c0 20 21 0a 20 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 68 6f 73 ┆ ! if w0:= (w3).tc_hos┆
0x6f1c0…6f1e0 74 6e 6f 3c 3e 30 20 21 20 72 65 6d 6f 74 65 20 21 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 ┆tno<>0 ! remote ! then ┆
0x6f1e0…6f200 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 68 65 6c 70 77 00 00 00 00 00 00 00 00 ┆ begin helpw ┆
0x6f200…6f206 (889,) (0x324,0xde5)
0x6f206…6f220 32 3a 3d 20 77 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3a ┆2:= w2; if w0:┆
0x6f220…6f240 3d 20 28 77 33 29 2e 74 63 5f 68 6f 73 74 69 64 20 3d 20 30 20 74 68 65 6e 0a 20 20 20 20 20 20 ┆= (w3).tc_hostid = 0 then ┆
0x6f240…6f260 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 63 73 70 20 63 6f 6e 6e 65 63 74 65 ┆ begin comment csp connecte┆
0x6f260…6f27e 64 20 70 72 69 6e 74 65 72 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 6c 6c 6f 63 ┆d printer; alloc┆
0x6f27e…6f284 (0x324,0xde6)
0x6f284…6f2a0 5f 69 66 70 20 28 2e 77 33 2e 2c 77 30 3a 3d 28 77 33 29 2e 74 63 5f 6b 69 6e 64 2c ┆_ifp (.w3.,w0:=(w3).tc_kind,┆
0x6f2a0…6f2c0 77 30 3a 3d 28 77 33 29 2e 74 63 5f 68 6f 73 74 6e 6f 2c 77 30 2c 77 31 2c 77 32 29 3b 0a 20 20 ┆w0:=(w3).tc_hostno,w0,w1,w2); ┆
0x6f2c0…6f2e0 20 20 20 20 20 20 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 ┆ if w0 = 0 then ┆
0x6f2e0…6f2fc 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 6f 6b 3b 0a 20 ┆ begin comment ok; ┆
0x6f2fc…6f302 (0x324,0xde7)
0x6f302…6f320 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 75 73 68 20 28 2e 77 33 2e 2c 20 77 30 3a ┆ push (.w3., w0:┆
0x6f320…6f340 3d 20 72 65 74 75 72 6e 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 75 73 68 20 ┆= return); push ┆
0x6f340…6f360 28 2e 77 33 2e 2c 20 77 30 3a 3d 20 68 65 6c 70 77 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆(.w3., w0:= helpw2); ┆
0x6f360…6f37a 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 ┆ w3:= b.current; ┆
0x6f37a…6f380 (0x324,0xde8)
0x6f380…6f3a0 20 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 64 65 76 6e 6f 3a 3d 20 77 31 3b 0a 20 ┆ (w3).tc_devno:= w1; ┆
0x6f3a0…6f3c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6e 6e 5f 63 73 70 20 28 2e 77 33 2e 2c 20 77 ┆ conn_csp (.w3., w┆
0x6f3c0…6f3e0 30 2c 20 77 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 68 65 6c 70 77 30 3a 3d ┆0, w2); helpw0:=┆
0x6f3e0…6f400 20 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 6f 70 00 00 00 00 00 00 00 00 ┆ w0; pop ┆
0x6f400…6f406 (890,) (0x324,0xde9)
0x6f406…6f420 20 28 2e 77 33 2e 2c 77 30 29 3b 20 68 65 6c 70 77 32 3a 3d 20 77 30 3b 0a 20 ┆ (.w3.,w0); helpw2:= w0; ┆
0x6f420…6f440 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 6f 70 20 28 2e 77 33 2e 2c 77 30 29 3b 20 72 65 ┆ pop (.w3.,w0); re┆
0x6f440…6f460 74 75 72 6e 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 20 ┆turn:= w0; w0:= ┆
0x6f460…6f47e 68 65 6c 70 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 20 ┆helpw0; if w0 ┆
0x6f47e…6f484 (0x324,0xdea)
0x6f484…6f4a0 3d 20 30 20 74 68 65 6e 20 77 30 3a 3d 20 34 30 39 36 20 21 20 63 72 65 61 74 65 64 ┆= 0 then w0:= 4096 ! created┆
0x6f4a0…6f4c0 20 21 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 20 20 ┆ ! else begin ┆
0x6f4c0…6f4e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 65 61 6c 6c 6f 63 5f 69 66 70 20 28 2e 77 33 ┆ dealloc_ifp (.w3┆
0x6f4e0…6f4fc 2e 2c 77 31 3a 3d 28 77 33 29 2e 74 63 5f 64 65 76 6e 6f 2c 77 31 3a 3d 28 77 33 29 ┆.,w1:=(w3).tc_devno,w1:=(w3)┆
0x6f4fc…6f502 (0x324,0xdeb)
0x6f502…6f520 2e 74 63 5f 68 6f 73 74 6e 6f 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆.tc_hostno); ┆
0x6f520…6f540 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 20 20 20 20 ┆ w3:= b.current; ┆
0x6f540…6f560 20 20 20 28 77 33 29 2e 74 63 5f 64 65 76 6e 6f 3a 3d 20 77 31 3a 3d 20 30 3b 0a 20 20 20 20 20 ┆ (w3).tc_devno:= w1:= 0; ┆
0x6f560…6f57a 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; ┆
0x6f57a…6f580 (0x324,0xdec)
0x6f580…6f5a0 20 20 20 20 65 6e 64 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 ┆ end; end else ┆
0x6f5a0…6f5c0 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 3a 3d ┆ linkupremote(.w3.,w0:=┆
0x6f5c0…6f5e0 28 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 ┆(w3).tc_kind,w0:=(w3).tc_hostno,┆
0x6f5e0…6f600 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 00 00 00 00 00 00 00 00 ┆ w0:= ┆
0x6f600…6f606 (891,) (0x324,0xded)
0x6f606…6f620 28 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 ┆(w3).tc_hostid,w0:=address┆
0x6f620…6f640 28 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 ┆((w3).tc_devname),w0,w2); ┆
0x6f640…6f660 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; ┆
0x6f660…6f67e 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 68 65 6e 0a ┆ if w0=4096 ! created ! then ┆
0x6f67e…6f684 (0x324,0xdee)
0x6f684…6f6a0 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 ┆
0x6f6a0…6f6c0 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; ┆
0x6f6c0…6f6e0 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(┆
0x6f6e0…6f6fc 28 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 ┆(w3).tc_name)); ┆
0x6f6fc…6f702 (0x324,0xdef)
0x6f702…6f720 20 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 ┆ w2:= 0; ! status=0 means rep┆
0x6f720…6f740 65 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 ┆eat operation ! end ┆
0x6f740…6f760 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 65 67 ┆ else beg┆
0x6f760…6f77a 69 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 ┆in move(.w3.┆
0x6f77a…6f780 (0x324,0xdf0)
0x6f780…6f7a0 2c 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 ┆,w0:=8,w1:=address(b.no_link)+2,┆
0x6f7a0…6f7c0 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 20 20 20 ┆w2:=address((w3).tc_name)); ┆
0x6f7c0…6f7e0 20 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 ┆ w2:= helpw2; ┆
0x6f7e0…6f800 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 00 00 00 00 00 00 00 00 ┆ end; end; ┆
0x6f800…6f806 (892,) (0x324,0xdf1)
0x6f806…6f820 20 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 ┆ end else; en┆
0x6f820…6f840 64 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 ┆d; f1:= savef1; w3:┆
0x6f840…6f860 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 74 75 72 ┆= b.current; call w0 retur┆
0x6f860…6f87e 6e 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 ┆n; end; end; !branc┆
0x6f87e…6f884 (0x324,0xdf2)
0x6f884…6f8a0 68 20 32 2c 36 3b 0a 0a 20 20 62 6f 64 79 20 6f 66 20 63 6f 6e 6e 5f 63 73 70 0a 20 ┆h 2,6; body of conn_csp ┆
0x6f8a0…6f8c0 20 62 65 67 69 6e 0a 20 20 20 20 6c 61 62 65 6c 20 65 78 69 74 3b 0a 20 20 20 20 69 6e 63 6f 64 ┆ begin label exit; incod┆
0x6f8c0…6f8e0 65 0a 20 20 20 20 20 20 77 6f 72 64 20 7a 65 72 6f 3a 3d 20 30 3b 20 21 20 7a 65 72 6f 20 6e 61 ┆e word zero:= 0; ! zero na┆
0x6f8e0…6f8fc 6d 65 20 21 0a 20 20 20 20 20 20 72 65 66 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 20 ┆me ! ref return; ┆
0x6f8fc…6f902 (0x324,0xdf3)
0x6f902…6f920 20 77 6f 72 64 20 63 73 70 5f 6d 30 3a 3d 20 33 32 37 36 38 2c 20 63 73 70 5f 6d 32 3a 3d ┆ word csp_m0:= 32768, csp_m2:=┆
0x6f920…6f940 20 30 2c 20 63 73 70 5f 6d 34 3a 3d 20 30 2c 20 63 73 70 5f 6d 36 3a 3d 20 31 30 2c 0a 20 20 20 ┆ 0, csp_m4:= 0, csp_m6:= 10, ┆
0x6f940…6f960 20 20 20 63 73 70 5f 6d 38 2c 20 63 73 70 5f 6d 31 30 2c 20 63 73 70 5f 6d 31 32 2c 20 63 73 70 ┆ csp_m8, csp_m10, csp_m12, csp┆
0x6f960…6f97a 5f 6d 31 34 3b 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 72 65 74 75 ┆_m14; begin retu┆
0x6f97a…6f980 (0x324,0xdf4)
0x6f980…6f9a0 72 6e 3a 3d 20 77 33 3b 0a 20 20 20 20 20 20 77 68 69 6c 65 20 77 30 20 3d 20 77 30 20 64 6f 20 ┆rn:= w3; while w0 = w0 do ┆
0x6f9a0…6f9c0 21 20 66 6f 72 20 65 76 65 72 20 21 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 ┆! for ever ! begin ┆
0x6f9c0…6f9e0 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 6d 6f 76 65 20 28 2e ┆ w3:= b.current; move (.┆
0x6f9e0…6fa00 77 33 2e 2c 77 30 3a 3d 38 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 28 77 00 00 00 00 00 00 00 00 ┆w3.,w0:=8,w1:=address((w ┆
0x6fa00…6fa06 (893,) (0x324,0xdf5)
0x6fa06…6fa20 33 29 2e 74 63 5f 64 65 76 6e 61 6d 65 29 2c 77 32 3a 3d 61 64 64 72 65 73 73 ┆3).tc_devname),w2:=address┆
0x6fa20…6fa40 28 28 77 33 29 2e 74 63 5f 6e 61 6d 65 29 29 3b 0a 20 20 20 20 20 20 20 20 28 77 32 2b 38 29 2e ┆((w3).tc_name)); (w2+8).┆
0x6fa40…6fa60 77 6f 72 64 3a 3d 20 77 30 3a 3d 20 30 3b 20 21 20 63 6c 65 61 72 20 6e 61 6d 65 20 74 61 62 6c ┆word:= w0:= 0; ! clear name tabl┆
0x6fa60…6fa7e 65 20 61 64 64 72 65 73 73 20 21 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 20 28 77 ┆e address ! if w0:= (w┆
0x6fa7e…6fa84 (0x324,0xdf6)
0x6fa84…6faa0 33 29 2e 74 63 5f 6f 69 6e 74 65 72 76 65 6e 74 20 3c 3e 20 30 20 74 68 65 6e 20 67 ┆3).tc_ointervent <> 0 then g┆
0x6faa0…6fac0 6f 74 6f 20 65 78 69 74 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 20 28 77 33 29 2e 74 ┆oto exit; if w0:= (w3).t┆
0x6fac0…6fae0 63 5f 61 69 6e 74 65 72 76 65 6e 74 20 3c 3e 20 30 20 74 68 65 6e 20 67 6f 74 6f 20 65 78 69 74 ┆c_aintervent <> 0 then goto exit┆
0x6fae0…6fafc 3b 0a 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 29 ┆; w3:= address(zero)┆
0x6fafc…6fb02 (0x324,0xdf7)
0x6fb02…6fb20 3b 0a 20 20 20 20 20 20 20 20 77 30 3a 3d 20 2d 38 33 38 38 36 30 37 3b 77 31 3a 3d 20 38 ┆; w0:= -8388607;w1:= 8┆
0x6fb20…6fb40 33 38 38 36 30 35 3b 0a 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 20 28 37 32 29 3b 20 21 20 ┆388605; monitor (72); ! ┆
0x6fb40…6fb60 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 77 33 3a 3d 20 ┆set catalog base ! w3:= ┆
0x6fb60…6fb7a 62 2e 63 75 72 72 65 6e 74 3b 0a 20 20 20 20 20 20 20 20 77 31 3a 3d 20 28 77 ┆b.current; w1:= (w┆
0x6fb7a…6fb80 (0x324,0xdf8)
0x6fb80…6fba0 33 29 2e 74 63 5f 64 65 76 6e 6f 3b 0a 20 20 20 20 20 20 20 20 77 33 3a 3d 20 61 64 64 72 65 73 ┆3).tc_devno; w3:= addres┆
0x6fba0…6fbc0 73 20 28 28 77 33 29 2e 74 63 5f 6e 61 6d 65 29 3b 0a 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f ┆s ((w3).tc_name); monito┆
0x6fbc0…6fbe0 72 20 28 35 34 29 3b 20 21 20 63 72 65 61 74 65 20 70 65 72 69 70 68 65 72 61 6c 20 70 72 6f 63 ┆r (54); ! create peripheral proc┆
0x6fbe0…6fc00 65 73 73 20 21 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 20 3d 20 30 20 00 00 00 00 00 00 00 00 ┆ess ! if w0 = 0 ┆
0x6fc00…6fc06 (894,) (0x324,0xdf9)
0x6fc06…6fc20 21 20 6f 6b 20 21 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 ┆! ok ! then begin ┆
0x6fc20…6fc40 63 6f 6d 6d 65 6e 74 20 73 65 6e 64 20 63 6f 6e 6e 65 63 74 20 70 72 69 6e 74 65 72 20 6d 65 73 ┆comment send connect printer mes┆
0x6fc40…6fc60 73 61 67 65 3b 0a 20 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 20 28 38 29 3b 20 21 20 72 ┆sage; monitor (8); ! r┆
0x6fc60…6fc7e 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 70 75 73 ┆eserve process ! pus┆
0x6fc7e…6fc84 (0x324,0xdfa)
0x6fc84…6fca0 68 20 28 2e 77 33 2e 2c 77 30 3a 3d 20 72 65 74 75 72 6e 29 3b 0a 20 20 20 20 20 20 ┆h (.w3.,w0:= return); ┆
0x6fca0…6fcc0 20 20 20 20 6d 6f 76 65 20 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┆
0x6fcc0…6fce0 28 28 77 33 29 2e 74 63 5f 6e 61 6d 65 29 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 63 73 70 5f 6d ┆((w3).tc_name),w2:=address(csp_m┆
0x6fce0…6fcfc 38 29 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 20 ┆8)); w1:= address ┆
0x6fcfc…6fd02 (0x324,0xdfb)
0x6fd02…6fd20 28 63 73 70 5f 6d 30 29 3b 0a 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 20 61 64 64 72 65 ┆(csp_m0); w2:= addre┆
0x6fd20…6fd40 73 73 20 28 28 77 33 29 2e 74 63 5f 6e 61 6d 65 29 3b 0a 20 20 20 20 20 20 20 20 20 20 73 65 6e ┆ss ((w3).tc_name); sen┆
0x6fd40…6fd60 64 77 61 69 74 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 ┆dwait (.w3.,w0, w1, w2); ┆
0x6fd60…6fd7a 20 20 20 69 66 20 77 30 20 3d 20 31 20 74 68 65 6e 20 77 31 3a 3d 20 62 2e 61 ┆ if w0 = 1 then w1:= b.a┆
0x6fd7a…6fd80 (0x324,0xdfc)
0x6fd80…6fda0 6e 73 5f 73 74 61 74 75 73 20 65 6c 73 65 20 77 31 3a 3d 20 31 20 6c 73 68 69 66 74 20 77 30 3b ┆ns_status else w1:= 1 lshift w0;┆
0x6fda0…6fdc0 0a 20 20 20 20 20 20 20 20 20 20 70 6f 70 20 28 2e 77 33 2e 2c 20 77 30 29 3b 20 72 65 74 75 72 ┆ pop (.w3., w0); retur┆
0x6fdc0…6fde0 6e 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 31 20 3c 3e 20 32 30 39 37 31 ┆n:= w0; if w1 <> 20971┆
0x6fde0…6fe00 35 32 20 21 20 74 69 6d 65 72 20 21 20 74 68 65 6e 0a 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆52 ! timer ! then ┆
0x6fe00…6fe06 (895,) (0x324,0xdfd)
0x6fe06…6fe20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d ┆ begin w0:=┆
0x6fe20…6fe40 20 77 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 20 28 77 31 3a 3d 28 77 31 3a 3d ┆ w1; w2:= (w1:=(w1:=┆
0x6fe40…6fe60 37 34 29 2e 77 6f 72 64 2b 28 77 33 29 2e 74 63 5f 64 65 76 6e 6f 2b 28 77 33 29 2e 74 63 5f 64 ┆74).word+(w3).tc_devno+(w3).tc_d┆
0x6fe60…6fe7e 65 76 6e 6f 29 2e 77 6f 72 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 63 61 6c 6c 20 77 ┆evno).word; call w┆
0x6fe7e…6fe84 (0x324,0xdfe)
0x6fe84…6fea0 30 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 ┆0 return; end; ┆
0x6fea0…6fec0 20 20 20 20 20 65 6e 64 20 65 6c 73 65 20 67 6f 74 6f 20 65 78 69 74 3b 0a 20 20 20 20 20 20 65 ┆ end else goto exit; e┆
0x6fec0…6fee0 6e 64 3b 20 21 20 65 6e 64 20 66 6f 72 20 65 76 65 72 20 21 0a 65 78 69 74 3a 20 77 30 3a 3d 20 ┆nd; ! end for ever ! exit: w0:= ┆
0x6fee0…6fefc 35 3b 20 21 20 72 65 73 75 6c 74 20 3d 20 64 6f 65 73 20 6e 6f 74 20 65 78 69 73 74 ┆5; ! result = does not exist┆
0x6fefc…6ff02 (0x324,0xdff)
0x6ff02…6ff20 20 21 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 ┆ ! call w0 return; e┆
0x6ff20…6ff40 6e 64 3b 0a 20 20 65 6e 64 3b 20 21 20 65 6e 64 20 63 6f 6e 6e 5f 63 73 70 20 21 0a 0a 0a 20 20 ┆nd; end; ! end conn_csp ! ┆
0x6ff40…6ff60 62 6f 64 79 20 6f 66 20 64 69 73 63 6f 6e 6e 5f 63 73 70 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 ┆body of disconn_csp begin ┆
0x6ff60…6ff7a 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; ┆
0x6ff7a…6ff80 (0x324,0xe00)
0x6ff80…6ffa0 20 20 20 20 20 77 6f 72 64 20 63 73 70 5f 6d 30 3a 3d 20 34 30 39 36 30 3b 20 21 20 72 65 6c 65 ┆ word csp_m0:= 40960; ! rele┆
0x6ffa0…6ffc0 61 73 65 20 70 72 69 6e 74 65 72 20 6f 70 65 61 72 74 69 6f 6e 20 21 0a 20 20 20 20 20 20 74 65 ┆ase printer opeartion ! te┆
0x6ffc0…6ffe0 78 74 20 28 32 34 29 20 63 73 70 5f 61 3b 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 72 ┆xt (24) csp_a; begin r┆
0x6ffe0…70000 65 74 75 72 6e 3a 3d 20 77 33 3b 0a 20 20 20 20 20 20 70 75 73 68 20 28 00 00 00 00 00 00 00 00 ┆eturn:= w3; push ( ┆
0x70000…70006 (896,) (0x324,0xe01)
0x70006…70020 2e 77 33 2e 2c 77 30 3a 3d 20 72 65 74 75 72 6e 29 3b 0a 20 20 20 20 20 20 77 ┆.w3.,w0:= return); w┆
0x70020…70040 33 3a 3d 20 62 2e 63 75 72 72 65 6e 74 3b 0a 20 20 20 20 20 20 77 32 3a 3d 20 61 64 64 72 65 73 ┆3:= b.current; w2:= addres┆
0x70040…70060 73 28 28 77 33 29 2e 74 63 5f 6e 61 6d 65 29 3b 0a 20 20 20 20 20 20 77 31 3a 3d 20 61 64 64 72 ┆s((w3).tc_name); w1:= addr┆
0x70060…7007e 65 73 73 28 63 73 70 5f 6d 30 29 3b 0a 20 20 20 20 20 20 73 65 6e 64 77 61 69 74 20 28 2e ┆ess(csp_m0); sendwait (.┆
0x7007e…70084 (0x324,0xe02)
0x70084…700a0 77 33 2e 2c 77 30 2c 77 31 2c 77 32 29 3b 0a 20 20 20 20 20 20 70 6f 70 20 28 2e 77 ┆w3.,w0,w1,w2); pop (.w┆
0x700a0…700c0 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 20 20 20 20 ┆3.,w0); return:= w0; ┆
0x700c0…700e0 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 3b ┆ call w0 return; end; end;┆
0x700e0…700fc 0a 0a 0a 0a 20 20 62 6f 64 79 20 6f 66 20 70 72 63 61 75 73 65 0a 20 20 62 65 67 69 ┆ body of prcause begi┆
0x700fc…70102 (0x324,0xe03)
0x70102…70120 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 66 32 ┆n incode double savef2┆
0x70120…70140 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 64 32 ┆; ref return; byte d1,d2┆
0x70140…70160 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 20 20 20 74 65 78 ┆,d3,d4,d5,d6,d7,d8; tex┆
0x70160…7017a 74 28 32 29 20 20 20 20 74 6e 6f 72 6d 20 3a 3d 20 22 27 31 32 27 22 3b 0a 20 ┆t(2) tnorm := "'12'"; ┆
0x7017a…70180 (0x324,0xe04)
0x70180…701a0 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 20 74 ┆ text(2) tnill := ""; t┆
0x701a0…701c0 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 6c 65 ┆ext(27) tokill:= "'12'***kille┆
0x701c0…701e0 64 20 62 79 20 6f 70 65 72 61 74 6f 72 27 31 30 27 22 3b 0a 20 20 20 20 74 65 78 74 28 32 38 29 ┆d by operator'10'"; text(28)┆
0x701e0…70200 20 20 20 74 61 6b 69 6c 6c 3a 3d 20 22 27 31 32 27 2a 2a 2a 6b 69 6c 6c 00 00 00 00 00 00 00 00 ┆ takill:= "'12'***kill ┆
0x70200…70206 (897,) (0x324,0xe05)
0x70206…70220 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 ┆ed by application'10'"; ┆
0x70220…70240 20 20 74 65 78 74 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 ┆ text(42) tsdev := "'12'***se┆
0x70240…70260 6e 64 65 72 20 20 20 64 65 76 69 63 65 20 73 74 61 74 75 73 3a 20 38 2e 22 2c 0a 20 20 20 20 20 ┆nder device status: 8.", ┆
0x70260…7027e 20 20 20 20 20 20 20 20 20 20 74 72 64 65 76 20 3a 3d 20 22 27 31 32 27 2a 2a 2a 72 65 63 ┆ trdev := "'12'***rec┆
0x7027e…70284 (0x324,0xe06)
0x70284…702a0 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 20 20 ┆eiver device status: 8.", ┆
0x702a0…702c0 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 6f 70 ┆ todev := "'12'***op┆
0x702c0…702e0 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 20 20 20 72 ┆erator device status: 8."; r┆
0x702e0…702fc 65 66 20 62 74 65 78 74 2c 65 74 65 78 74 3b 0a 0a 20 20 20 20 62 65 67 69 6e 0a 20 ┆ef btext,etext; begin ┆
0x702fc…70302 (0x324,0xe07)
0x70302…70320 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 6e 3a ┆ savef2:=f2; return:┆
0x70320…70340 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 2e 74 ┆=w3; w1:=(w3:=b.current).t┆
0x70340…70360 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 68 65 6e 20 77 31 ┆c_state-4; if w1<1 then w1┆
0x70360…7037a 3a 3d 31 3b 69 66 20 77 31 3e 34 20 74 68 65 6e 20 77 31 3a 3d 31 3b 0a 20 20 ┆:=1;if w1>4 then w1:=1; ┆
0x7037a…70380 (0x324,0xe08)
0x70380…703a0 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 20 20 ┆ case w1 of begin ┆
0x703a0…703c0 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 61 74 ┆ begin comment normal terminat┆
0x703c0…703e0 69 6f 6e 3b 0a 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 ┆ion; if w0:=(w3).pr_he┆
0x703e0…70400 61 64 74 72 61 69 6c 3c 3e 30 20 74 68 65 6e 20 77 31 3a 3d 61 64 64 72 00 00 00 00 00 00 00 00 ┆adtrail<>0 then w1:=addr ┆
0x70400…70406 (898,) (0x324,0xe09)
0x70406…70420 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 ┆ess(tnorm) else w1:=addres┆
0x70420…70440 73 28 74 6e 69 6c 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 ┆s(tnill); btext:=w1;et┆
0x70440…70460 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 20 20 20 20 62 65 ┆ext:=w1; end; be┆
0x70460…7047e 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 61 62 6f 72 74 65 64 20 74 72 61 6e 73 70 6f 72 74 3b ┆gin comment aborted transport;┆
0x7047e…70484 (0x324,0xe0a)
0x70484…704a0 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 74 75 ┆ w1:=(w3).tc_statu┆
0x704a0…704c0 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 75 70 ┆s; for w2:=1 step 1 up┆
0x704c0…704e0 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 20 20 20 20 ┆to 8 do begin ┆
0x704e0…704fc 20 20 20 20 77 30 3a 3d 30 3b 66 31 20 6c 73 68 69 66 74 20 33 3b 77 30 2b 34 38 3b ┆ w0:=0;f1 lshift 3;w0+48;┆
0x704fc…70502 (0x324,0xe0b)
0x70502…70520 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 20 20 ┆ case w2 of ┆
0x70520…70540 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 3d 77 ┆ begin d1:=w┆
0x70540…70560 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 20 20 20 20 20 20 ┆0; d2:=w0; ┆
0x70560…7057a 20 20 20 20 20 20 20 64 33 3a 3d 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ d3:=w0; ┆
0x7057a…70580 (0x324,0xe0c)
0x70580…705a0 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 30 3b ┆ d4:=w0; d5:=w0;┆
0x705a0…705c0 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 20 20 ┆ d6:=w0; ┆
0x705c0…705e0 20 20 20 20 20 64 37 3a 3d 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 38 3a 3d 77 ┆ d7:=w0; d8:=w┆
0x705e0…70600 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 00 00 00 00 00 00 00 00 ┆0; end; ┆
0x70600…70606 (899,) (0x324,0xe0d)
0x70606…70620 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 ┆ end; w1:=┆
0x70620…70640 28 77 33 29 2e 74 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 ┆(w3).tc_cause; case w1┆
0x70640…70660 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 20 20 20 20 ┆ of begin ┆
0x70660…7067e 77 32 3a 3d 61 64 64 72 65 73 73 28 74 73 64 65 76 29 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆w2:=address(tsdev); ┆
0x7067e…70684 (0x324,0xe0e)
0x70684…706a0 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 20 20 ┆ w2:=address(trdev); ┆
0x706a0…706c0 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 20 20 ┆ w2:=address(todev); ┆
0x706c0…706e0 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 2b 32 30 3b ┆ end; w1:=w2;w2+20;┆
0x706e0…706fc 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 20 20 20 ┆ btext:=w1; ┆
0x706fc…70702 (0x324,0xe0f)
0x70702…70720 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 20 20 ┆ w1+26;etext:=w1; ┆
0x70720…70740 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 32 20 ┆ (w2).word:=w0:=d1 lshift 8+d2 ┆
0x70740…70760 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 32 3b 28 77 32 29 ┆lshift 8+d3; w2+2;(w2)┆
0x70760…7077a 2e 77 6f 72 64 3a 3d 77 30 3a 3d 64 34 20 6c 73 68 69 66 74 20 38 2b 64 35 20 ┆.word:=w0:=d4 lshift 8+d5 ┆
0x7077a…70780 (0x324,0xe10)
0x70780…707a0 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 32 29 ┆lshift 8+d6; w2+2;(w2)┆
0x707a0…707c0 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 66 74 ┆.word:=w0:=d7 lshift 8+d8 lshift┆
0x707c0…707e0 20 38 2b 31 30 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 20 21 20 65 6e 64 20 61 62 6f 72 74 65 ┆ 8+10; end; ! end aborte┆
0x707e0…70800 64 20 74 72 61 6e 73 70 6f 72 74 20 21 0a 20 20 20 20 20 20 20 20 62 65 00 00 00 00 00 00 00 00 ┆d transport ! be ┆
0x70800…70806 (900,) (0x324,0xe11)
0x70806…70820 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 ┆gin comment killed by oper┆
0x70820…70840 61 74 6f 72 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 64 72 65 ┆ator; btext:=w1:=addre┆
0x70840…70860 73 73 28 74 6f 6b 69 6c 6c 29 3b 0a 20 20 20 20 20 20 20 20 20 20 77 31 2b 31 36 3b 65 74 65 78 ┆ss(tokill); w1+16;etex┆
0x70860…7087e 74 3a 3d 77 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 65 ┆t:=w1; end; be┆
0x7087e…70884 (0x324,0xe12)
0x70884…708a0 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 69 63 ┆gin comment killed by applic┆
0x708a0…708c0 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 64 72 ┆ation; btext:=w1:=addr┆
0x708c0…708e0 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 3b 65 74 65 ┆ess(takill); w1+16;ete┆
0x708e0…708fc 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 20 20 65 ┆xt:=w1; end; e┆
0x708fc…70902 (0x324,0xe13)
0x70902…70920 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 20 65 ┆nd; ! end case ! w0:= e┆
0x70920…70940 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 73 28 ┆text-btext+2; w2:=address(┆
0x70940…70960 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 3b 0a 20 20 ┆(w2:=(w3).tc_buf).buf_data1); ┆
0x70960…7097a 20 20 20 20 6d 6f 76 65 20 28 2e 77 33 2e 2c 77 30 2c 77 31 3a 3d 62 74 65 78 ┆ move (.w3.,w0,w1:=btex┆
0x7097a…70980 (0x324,0xe14)
0x70980…709a0 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 3b 0a ┆t,w2); f2:=savef2; ┆
0x709a0…709c0 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 0a 20 ┆ call w0 return; end; ┆
0x709c0…709e0 20 65 6e 64 3b 20 21 20 65 6e 64 20 70 72 63 61 75 73 65 20 21 0a 0a 0a 0a 20 20 62 6f 64 79 20 ┆ end; ! end prcause ! body ┆
0x709e0…70a00 6f 66 20 70 72 6c 69 73 74 69 64 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 00 00 00 00 00 00 00 00 ┆of prlistid begin ┆
0x70a00…70a06 (901,) (0x324,0xe15)
0x70a06…70a20 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; ┆
0x70a20…70a40 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 65 66 20 74 72 ┆ double savef2; ref tr┆
0x70a40…70a60 61 6e 73 72 65 66 3b 0a 20 20 20 20 20 20 74 65 78 74 28 31 32 29 20 74 5f 63 6f 6e 74 3a 3d 20 ┆ansref; text(12) t_cont:= ┆
0x70a60…70a7e 22 63 6f 6e 74 65 6e 74 73 20 6f 66 3a 22 3b 0a 20 20 20 20 20 20 74 65 78 74 28 31 33 29 ┆"contents of:"; text(13)┆
0x70a7e…70a84 (0x324,0xe16)
0x70a84…70aa0 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 20 3a ┆ t_trans:= "'10'transport :┆
0x70aa0…70ac0 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 31 30 ┆"; text(13) t_user := "'10┆
0x70ac0…70ae0 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 29 20 6e 6c ┆'user :"; text(2) nl┆
0x70ae0…70afc 66 66 3a 3d 20 22 27 31 30 27 27 31 32 27 22 3b 0a 20 20 20 20 62 65 67 69 6e 0a 20 ┆ff:= "'10''12'"; begin ┆
0x70afc…70b02 (0x324,0xe17)
0x70b02…70b20 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 33 3b ┆ savef2:= f2; return:= w3;┆
0x70b20…70b40 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 6c 6f ┆ w3:= b.current; lo┆
0x70b40…70b60 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 74 63 5f 74 72 61 ┆oktransport(.w3.,w1:=(w3).tc_tra┆
0x70b60…70b7a 6e 73 6e 6f 2c 77 32 29 3b 0a 20 20 20 20 20 20 74 72 61 6e 73 72 65 66 3a 3d ┆nsno,w2); transref:=┆
0x70b7a…70b80 (0x324,0xe18)
0x70b80…70ba0 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 32 3a ┆ w2; w2:= (w3).tc_buf; w2:┆
0x70ba0…70bc0 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 20 20 ┆= address((w2).buf_data1); ┆
0x70bc0…70be0 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 74 5f 63 ┆ move(.w3.,w0:=8,w1:=address(t_c┆
0x70be0…70c00 6f 6e 74 29 2c 77 32 29 3b 0a 20 20 20 20 20 20 77 32 2b 77 30 3b 0a 20 00 00 00 00 00 00 00 00 ┆ont),w2); w2+w0; ┆
0x70c00…70c06 (902,) (0x324,0xe19)
0x70c06…70c20 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┆
0x70c20…70c40 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 73 6e 61 6d 65 29 2c ┆ddress((w1:=transref).tr_sname),┆
0x70c40…70c60 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 76 65 28 2e 77 33 ┆w2); w2+w0; move(.w3┆
0x70c60…70c7e 2e 2c 77 30 3a 3d 31 30 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 74 5f 74 72 61 6e 73 29 2c ┆.,w0:=10,w1:=address(t_trans),┆
0x70c7e…70c84 (0x324,0xe1a)
0x70c84…70ca0 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 76 65 ┆w2); w2+w0; move┆
0x70ca0…70cc0 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 72 61 ┆(.w3.,w0:=8,w1:=address((w1:=tra┆
0x70cc0…70ce0 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 32 2b 77 30 ┆nsref).tr_name),w2); w2+w0┆
0x70ce0…70cfc 3b 0a 20 20 20 20 20 20 6d 6f 76 65 28 2e 77 33 2e 2c 77 30 3a 3d 31 30 2c 77 31 3a ┆; move(.w3.,w0:=10,w1:┆
0x70cfc…70d02 (0x324,0xe1b)
0x70d02…70d20 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 77 32 ┆=address(t_user),w2); w2┆
0x70d20…70d40 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 3d 61 ┆+w0; move(.w3.,w0:=8,w1:=a┆
0x70d40…70d60 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 73 65 72 29 2c 77 ┆ddress((w1:=transref).tr_user),w┆
0x70d60…70d7a 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 76 ┆2); w2+w0; mov┆
0x70d7a…70d80 (0x324,0xe1c)
0x70d80…70da0 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 2c 77 ┆e(.w3.,w0:=2,w1:=address(nlff),w┆
0x70da0…70dc0 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 33 29 ┆2); w2+w0; w1:= (w3)┆
0x70dc0…70de0 2e 74 63 5f 62 75 66 3b 20 77 31 3a 3d 20 61 64 64 72 65 73 73 28 28 77 31 29 2e 62 75 66 5f 64 ┆.tc_buf; w1:= address((w1).buf_d┆
0x70de0…70e00 61 74 61 31 29 3b 0a 20 20 20 20 20 20 77 30 3a 3d 20 77 32 2d 77 31 3b 00 00 00 00 00 00 00 00 ┆ata1); w0:= w2-w1; ┆
0x70e00…70e06 (903,) (0x324,0xe1d)
0x70e06…70e20 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 ┆ f2:= savef2; ┆
0x70e20…70e40 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┆
0x70e40…70e60 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 62 6f 64 79 20 6f ┆turn; end; end; body o┆
0x70e60…70e7e 66 20 70 72 6c 69 73 74 64 61 74 65 0a 20 20 63 6f 6d 6d 65 6e 74 20 67 65 6e 65 72 61 74 ┆f prlistdate comment generat┆
0x70e7e…70e84 (0x324,0xe1e)
0x70e84…70ea0 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 72 72 ┆e a text containing the curr┆
0x70ea0…70ec0 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 75 74 ┆ent date and time. put┆
0x70ec0…70ee0 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 20 63 75 72 ┆ the text into the buffer of cur┆
0x70ee0…70efc 72 65 6e 74 20 63 6f 72 6f 75 74 69 6e 65 3b 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 ┆rent coroutine; begin ┆
0x70efc…70f02 (0x324,0xe1f)
0x70f02…70f20 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 2e 3b ┆procedure convertdecimal(.w3.;┆
0x70f20…70f40 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 20 6f ┆w0); incode text(11) o┆
0x70f40…70f60 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 73 70 61 63 65 73 ┆wnname; text(7) fillspaces┆
0x70f60…70f7a 3a 3d 20 22 20 20 20 20 20 20 3a 22 3b 0a 20 20 20 20 20 20 77 6f 72 64 20 79 ┆:= " :"; word y┆
0x70f7a…70f80 (0x324,0xe20)
0x70f80…70fa0 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 36 2c ┆ear,point1:=46,month,point2:=46,┆
0x70fa0…70fc0 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 6f 69 ┆day,sp2:=32, hour,poi┆
0x70fc0…70fe0 6e 74 33 3a 3d 34 36 2c 6d 69 6e 2c 6e 6c 3a 3d 31 30 3b 0a 20 20 20 20 20 20 64 6f 75 62 6c 65 ┆nt3:=46,min,nl:=10; double┆
0x70fe0…71000 20 73 61 76 65 66 32 3b 0a 20 20 20 20 20 20 72 65 66 20 72 65 74 75 72 00 00 00 00 00 00 00 00 ┆ savef2; ref retur ┆
0x71000…71006 (904,) (0x324,0xe21)
0x71006…71020 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 ┆n; begin savef2:┆
0x71020…71040 3d 20 66 32 3b 20 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 ┆= f2; return:= w3; w1:= b.┆
0x71040…71060 70 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 ┆primo+2; move(.w3.,w0:=8,w┆
0x71060…7107e 31 2c 77 32 3a 3d 61 64 64 72 65 73 73 28 6f 77 6e 6e 61 6d 65 29 29 3b 0a 0a 20 20 20 20 ┆1,w2:=address(ownname)); ┆
0x7107e…71084 (0x324,0xe22)
0x71084…710a0 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 20 20 ┆ w1:= 108; ! get clock ! ┆
0x710a0…710c0 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 20 61 ┆ f1:= (w1).double; f1 a┆
0x710c0…710e0 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 20 20 20 20 ┆shift -4; f1//(60*60*625); ┆
0x710e0…710fc 20 77 33 3a 3d 20 30 3b 20 66 30 2f 2f 28 36 30 2a 36 32 35 29 3b 0a 20 20 20 20 20 ┆ w3:= 0; f0//(60*625); ┆
0x710fc…71102 (0x324,0xe23)
0x71102…71120 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 20 20 ┆ convertdecimal(.w3.,w0); ┆
0x71120…71140 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 32 34 ┆ min:= w0; w0:= 0; f1//24┆
0x71140…71160 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 2e 2c 77 30 29 3b ┆; convertdecimal(.w3.,w0);┆
0x71160…7117a 0a 20 20 20 20 20 20 68 6f 75 72 3a 3d 20 77 30 3b 0a 0a 20 20 20 20 20 20 66 ┆ hour:= w0; f┆
0x7117a…71180 (0x324,0xe24)
0x71180…711a0 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 20 20 ┆1 lshift 26; w0+99111; ┆
0x711a0…711c0 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 65 61 ┆ w3:= 0; f0//1461; ! yea┆
0x711c0…711e0 72 20 21 0a 20 20 20 20 20 20 77 33 20 61 73 68 69 66 74 20 2d 32 3b 0a 20 20 20 20 20 20 77 33 ┆r ! w3 ashift -2; w3┆
0x711e0…71200 2a 35 3b 20 77 33 2b 34 36 31 3b 20 66 33 2f 2f 31 35 33 3b 0a 20 20 20 00 00 00 00 00 00 00 00 ┆*5; w3+461; f3//153; ┆
0x71200…71206 (905,) (0x324,0xe25)
0x71206…71220 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 ┆ if w3 ! month ! >=13 th┆
0x71220…71240 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 31 32 3b 20 77 30 ┆en begin w3-12; w0┆
0x71240…71260 2b 31 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 6d 6f 6e 74 68 3a 3d 20 77 33 3b ┆+1; end; month:= w3;┆
0x71260…7127e 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 2e 2c 77 30 29 ┆ convertdecimal(.w3.,w0)┆
0x7127e…71284 (0x324,0xe26)
0x71284…712a0 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 6f 6e ┆; year:= w0; con┆
0x712a0…712c0 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 20 20 ┆vertdecimal(.w3.,w0:=month); ┆
0x712c0…712e0 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 32 2f 2f 35 ┆ month:= w0; w2+5; f2//5┆
0x712e0…712fc 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 2e 2c ┆; convertdecimal(.w3.,┆
0x712fc…71302 (0x324,0xe27)
0x71302…71320 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 20 20 ┆w0:=w2); day:= w0; ┆
0x71320…71340 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 73 73 ┆ w0:= address(nl); w1:= address┆
0x71340…71360 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 20 20 20 20 20 20 ┆(ownname); w0-w1+2; ┆
0x71360…7137a 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 73 ┆move(.w3.,w0,w1,w2:=addres┆
0x7137a…71380 (0x324,0xe28)
0x71380…713a0 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 29 3b ┆s((w2:=(w3).tc_buf).buf_data1));┆
0x713a0…713c0 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┆
0x713c0…713e0 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; ┆
0x713e0…71400 20 20 20 20 65 6e 64 3b 0a 0a 20 20 20 20 62 6f 64 79 20 6f 66 20 63 6f 00 00 00 00 00 00 00 00 ┆ end; body of co ┆
0x71400…71406 (906,) (0x324,0xe29)
0x71406…71420 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 ┆nvertdecimal begin ┆
0x71420…71440 20 20 20 69 6e 63 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 ┆ incode ref return; begi┆
0x71440…71460 6e 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 3a 3d 20 77 33 3b 0a 0a 20 20 20 20 20 20 20 20 ┆n return:= w3; ┆
0x71460…7147e 77 33 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 66 30 2f 2f 31 30 3b 0a 20 20 20 20 20 20 ┆w3:= 0; f0//10; ┆
0x7147e…71484 (0x324,0xe2a)
0x71484…714a0 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 20 20 ┆ w0+48 lshift 8+w3+48; ┆
0x714a0…714c0 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 6c 6c ┆ w3:= b.current; call┆
0x714c0…714e0 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 6e 64 3b 0a ┆ w0 return; end; end; ┆
0x714e0…714fc 20 20 65 6e 64 3b 20 21 20 70 72 6c 69 73 74 64 61 74 65 20 21 0a 0a 0a 20 20 62 6f ┆ end; ! prlistdate ! bo┆
0x714fc…71502 (0x324,0xe2b)
0x71502…71520 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 6f 72 ┆dy of pr comment printer cor┆
0x71520…71540 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 2c 20 ┆outine; begin label loop, ┆
0x71540…71560 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 72 5f 61 63 74 69 ┆closeup, suicide, no_op, pr_acti┆
0x71560…7157a 6f 6e 2c 20 72 65 70 5f 70 72 69 6e 74 2c 20 65 6e 64 6c 6f 6f 70 3b 0a 20 20 ┆on, rep_print, endloop; ┆
0x7157a…71580 (0x324,0xe2c)
0x71580…715a0 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 74 20 ┆ incode text(21) t_start ┆
0x715a0…715c0 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 27 22 ┆ := "'12'operator start'10''10'"┆
0x715c0…715e0 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 5f 73 6b 69 70 20 20 20 3a 3d 20 22 27 31 ┆, t_skip := "'1┆
0x715e0…71600 32 27 6f 70 65 72 61 74 6f 72 20 73 6b 69 70 27 31 30 27 27 31 30 27 22 00 00 00 00 00 00 00 00 ┆2'operator skip'10''10'" ┆
0x71600…71606 (907,) (0x324,0xe2d)
0x71606…71620 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 ┆, t_repeat ┆
0x71620…71640 3a 3d 20 22 27 31 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 ┆:= "'12'operator repeat'10''10'"┆
0x71640…71660 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 5f 72 65 73 74 61 72 74 3a 3d 20 22 27 31 ┆, t_restart:= "'1┆
0x71660…7167e 32 27 6f 70 65 72 61 74 6f 72 20 72 65 73 74 61 72 74 27 31 30 27 27 31 30 27 22 3b 0a 20 ┆2'operator restart'10''10'"; ┆
0x7167e…71684 (0x324,0xe2e)
0x71684…716a0 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 0a 2a ┆ text(102) triang1:= " *┆
0x716a0…716c0 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 20 20 ┆************** ************* ┆
0x716c0…716e0 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 20 2a 2a 2a ┆*********** ********* ***┆
0x716e0…716fc 2a 2a 2a 2a 0a 20 20 20 20 20 2a 2a 2a 2a 2a 0a 20 20 20 20 20 20 2a 2a 2a 0a 20 20 ┆**** ***** *** ┆
0x716fc…71702 (0x324,0xe2f)
0x71702…71720 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 29 20 ┆ * '10'"; text(103) ┆
0x71720…71740 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 20 2a ┆triang2:= "'10' * *┆
0x71740…71760 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 20 20 20 2a 2a 2a ┆** ***** ******* ***┆
0x71760…7177a 2a 2a 2a 2a 2a 2a 0a 20 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 20 2a 2a 2a 2a ┆****** *********** ****┆
0x7177a…71780 (0x324,0xe30)
0x71780…717a0 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 31 30 ┆********* ***************'10''10┆
0x717a0…717c0 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 72 65 ┆'"; word partial; re┆
0x717c0…717e0 66 20 66 69 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 ┆f first, last; ref transre┆
0x717e0…71800 66 2c 20 71 75 65 75 65 72 65 66 3b 0a 20 20 20 20 20 20 64 6f 75 62 6c 00 00 00 00 00 00 00 00 ┆f, queueref; doubl ┆
0x71800…71806 (908,) (0x324,0xe31)
0x71806…71820 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 ┆e savef1,minus_2:=-2; ┆
0x71820…71840 20 20 77 6f 72 64 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 ┆ word halt; ref return; ┆
0x71840…71860 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 6c 6c ┆ begin return:= w3; call┆
0x71860…7187e 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 ┆ w3 return; ! pseudo call ! ┆
0x7187e…71884 (0x324,0xe32)
0x71884…718a0 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┆
0x718a0…718c0 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 20 20 ┆gin ! get next transport ! ┆
0x718c0…718e0 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 29 3b ┆ w1:= address((w3).tc_nexttr);┆
0x718e0…718fc 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 ┆ w1:= (w1).tq_next; ┆
0x718fc…71902 (0x324,0xe33)
0x71902…71920 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 74 63 ┆ if w2:=address((w3).tc┆
0x71920…71940 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 20 21 ┆_nexttr)=w1 then goto suicide; !┆
0x71940…71960 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 20 20 20 21 20 68 ┆ end transp. queue ! ! h┆
0x71960…7197a 6f 6c 64 20 74 72 61 6e 70 6f 72 74 20 69 66 20 6e 6f 20 63 6f 72 6f 75 74 20 ┆old tranport if no corout ┆
0x7197a…71980 (0x324,0xe34)
0x71980…719a0 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 20 20 ┆in queue matches current ! ┆
0x719a0…719c0 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 3b 0a ┆ w1:=address((w3).tc_nexttr); ┆
0x719c0…719e0 20 20 20 20 20 20 20 20 63 61 73 65 20 77 32 3a 3d 28 77 33 29 2e 70 72 5f 73 65 6c 65 63 74 2b ┆ case w2:=(w3).pr_select+┆
0x719e0…71a00 31 20 6f 66 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 00 00 00 00 00 00 00 00 ┆1 of begin comme ┆
0x71a00…71a06 (909,) (0x324,0xe35)
0x71a06…71a20 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 ┆nt select next transport; ┆
0x71a20…71a40 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 6c 65 63 74 20 70 ┆ begin comment select p┆
0x71a40…71a60 61 70 65 72 74 79 70 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 32 3d 77 31 20 74 ┆apertype; if w2=w1 t┆
0x71a60…71a7e 68 65 6e 20 71 75 65 75 65 72 65 66 3a 3d 20 77 32 3a 3d 20 28 77 31 29 2e 74 71 5f 6e 65 ┆hen queueref:= w2:= (w1).tq_ne┆
0x71a7e…71a84 (0x324,0xe36)
0x71a84…71aa0 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 77 32 ┆xt; queueref:=w2┆
0x71aa0…71ac0 3a 3d 28 77 32 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 69 6c ┆:=(w2).tq_next; whil┆
0x71ac0…71ae0 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 29 3c 3e 77 ┆e w2:=address((w3).tc_nexttr)<>w┆
0x71ae0…71afc 31 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 ┆1 do begin ┆
0x71afc…71b02 (0x324,0xe37)
0x71b02…71b20 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 ┆ queueref:=w1; ┆
0x71b20…71b40 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 28 77 ┆ looktransport(.w3.,w1:=(w┆
0x71b40…71b60 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 20 20 20 20 20 20 ┆1).tq_transno,w2); ┆
0x71b60…71b7a 20 74 72 61 6e 73 72 65 66 3a 3d 77 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ transref:=w2; ┆
0x71b7a…71b80 (0x324,0xe38)
0x71b80…71ba0 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 65 73 ┆ compare(.w3.,w0:=8,w1:=addres┆
0x71ba0…71bc0 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 28 77 ┆s((w2).tr_qgroup),w2:=address((w┆
0x71bc0…71be0 33 29 2e 74 63 5f 71 67 72 6f 75 70 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 ┆3).tc_qgroup)); if┆
0x71be0…71c00 20 77 30 3d 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ w0=0 then ┆
0x71c00…71c06 (910,) (0x324,0xe39)
0x71c06…71c20 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 ┆ compare(.w3.,w0:=8,w1:=ad┆
0x71c20…71c40 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), ┆
0x71c40…71c60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x71c60…71c7e 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 3b 0a ┆ w2:=address((w3).tc_qname)); ┆
0x71c7e…71c84 (0x324,0xe3a)
0x71c84…71ca0 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 20 20 ┆ halt:=w0; ┆
0x71ca0…71cc0 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 72 65 ┆ if w0=0 then w1:=addre┆
0x71cc0…71ce0 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 20 20 20 20 ┆ss((w3).tc_nexttr) else ┆
0x71ce0…71cfc 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 ┆
0x71cfc…71d02 (0x324,0xe3b)
0x71d02…71d20 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 20 20 ┆w1:=queueref.tq_next; ┆
0x71d20…71d40 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 20 20 ┆ queueref:=w1; ┆
0x71d40…71d60 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; ┆
0x71d60…71d7a 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┆
0x71d7a…71d80 (0x324,0xe3c)
0x71d80…71da0 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 0a 20 ┆omment select first transport; ┆
0x71da0…71dc0 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 74 71 ┆ queueref:=w1:=(w1).tq┆
0x71dc0…71de0 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 20 20 20 ┆_next; end; ┆
0x71de0…71e00 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 73 65 6c 65 63 74 20 6c 61 73 00 00 00 00 00 00 00 00 ┆begin comment select las ┆
0x71e00…71e06 (911,) (0x324,0xe3d)
0x71e06…71e20 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 ┆t transport; q┆
0x71e20…71e40 75 65 75 65 72 65 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 ┆ueueref:=w1:=(w1).tq_prev; ┆
0x71e40…71e60 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 6f 6d 6d 65 6e ┆ end; begin commen┆
0x71e60…71e7e 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 ┆t select next transport; ┆
0x71e7e…71e84 (0x324,0xe3e)
0x71e84…71ea0 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 28 77 ┆ queueref:=w1:=(w1:=(w┆
0x71ea0…71ec0 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 20 20 ┆3).pr_queref).tq_next; ┆
0x71ec0…71ee0 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┆
0x71ee0…71efc 6c 65 63 74 20 70 72 65 76 69 6f 75 73 20 74 72 61 6e 73 70 6f 72 74 3b 0a 20 20 20 ┆lect previous transport; ┆
0x71efc…71f02 (0x324,0xe3f)
0x71f02…71f20 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 28 77 ┆ queueref:=w2:=(w2:=(w┆
0x71f20…71f40 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 20 20 ┆3).pr_queref).tq_prev; ┆
0x71f40…71f60 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┆
0x71f60…71f7a 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 ┆lect suspended transport; ┆
0x71f7a…71f80 (0x324,0xe40)
0x71f80…71fa0 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 20 20 20 20 20 20 ┆ w2:=w1; ┆
0x71fa0…71fc0 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┆
0x71fc0…71fe0 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 ┆
0x71fe0…72000 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 30 3a 3d 28 77 31 29 2e 74 00 00 00 00 00 00 00 00 ┆ f0:=(w1).t ┆
0x72000…72006 (912,) (0x324,0xe41)
0x72006…72020 71 5f 73 75 73 70 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 ┆q_suspend; w┆
0x72020…72040 30 20 6f 72 20 77 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 ┆0 or w3; w0 or w3;┆
0x72040…72060 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 ┆
0x72060…7207e 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 ┆ begin comment found┆
0x7207e…72084 (0x324,0xe42)
0x72084…720a0 3b 0a 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 ┆; w2:=w1; ┆
0x720a0…720c0 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 ┆
0x720c0…720e0 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; ┆
0x720e0…720fc 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 ┆ w1:= (w1).tq_nex┆
0x720fc…72102 (0x324,0xe43)
0x72102…72120 74 3b 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 63 68 65 ┆t; comment che┆
0x72120…72140 63 6b 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 ┆ck end of chain; ┆
0x72140…72160 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┆
0x72160…7217a 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 ┆_next; ! skip header selec┆
0x7217a…72180 (0x324,0xe44)
0x72180…721a0 74 20 66 69 72 73 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 first ! end; ┆
0x721a0…721c0 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┆
0x721c0…721e0 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┆
0x721e0…72200 74 3b 0a 20 20 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 ┆t; end; ┆
0x72200…72206 (913,) (0x324,0xe45)
0x72206…72220 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 73 65 6c 65 63 74 20 6e 65 78 74 2f ┆begin comment select next/┆
0x72220…72240 70 72 65 76 20 77 68 69 6c 65 20 61 63 74 69 76 65 3b 0a 20 20 20 20 20 20 20 20 71 75 65 75 65 ┆prev while active; queue┆
0x72240…72260 72 65 66 3a 3d 20 77 32 3a 3d 20 28 77 33 29 2e 70 72 5f 71 75 65 72 65 66 3b 0a 20 20 20 20 20 ┆ref:= w2:= (w3).pr_queref; ┆
0x72260…7227e 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 20 21 20 65 6e 64 20 63 61 73 65 20 ┆ end; end; ! end case ┆
0x7227e…72284 (0x324,0xe46)
0x72284…722a0 21 0a 0a 20 20 20 20 20 20 20 20 28 77 33 29 2e 70 72 5f 73 65 6c 65 63 74 20 3a 3d ┆! (w3).pr_select :=┆
0x722a0…722c0 20 77 30 20 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 32 3a 3d 61 64 64 72 65 73 73 ┆ w0 := 0; if w2:=address┆
0x722c0…722e0 28 28 77 33 29 2e 74 63 5f 6e 65 78 74 74 72 29 3d 77 31 3a 3d 71 75 65 75 65 72 65 66 20 74 68 ┆((w3).tc_nexttr)=w1:=queueref th┆
0x722e0…722fc 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 68 ┆en begin h┆
0x722fc…72302 (0x324,0xe47)
0x72302…72320 61 6c 74 3a 3d 20 77 30 3a 3d 20 31 3b 0a 20 20 20 20 20 20 20 20 20 20 71 75 65 75 65 72 ┆alt:= w0:= 1; queuer┆
0x72320…72340 65 66 3a 3d 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 65 6e ┆ef:=w1:=(w1).tq_next; en┆
0x72340…72360 64 3b 0a 20 20 20 20 20 20 20 20 28 77 33 29 2e 70 72 5f 71 75 65 72 65 66 3a 3d 77 31 3b 0a 20 ┆d; (w3).pr_queref:=w1; ┆
0x72360…7237a 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 ┆ looktransport(.w3.,┆
0x7237a…72380 (0x324,0xe48)
0x72380…723a0 77 31 3a 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 20 20 20 ┆w1:=(w1).tq_transno,w2); ┆
0x723a0…723c0 20 74 72 61 6e 73 72 65 66 3a 3d 77 32 3b 0a 20 20 20 20 20 20 20 20 77 31 3a 3d 20 71 75 65 75 ┆ transref:=w2; w1:= queu┆
0x723c0…723e0 65 72 65 66 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 ┆eref; w2:= transref; ┆
0x723e0…72400 20 20 20 20 20 28 77 33 29 2e 74 63 5f 6f 69 6e 74 65 72 76 65 6e 74 3a 00 00 00 00 00 00 00 00 ┆ (w3).tc_ointervent: ┆
0x72400…72406 (914,) (0x324,0xe49)
0x72406…72420 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 ┆= w0:= 0; (w3).tc_┆
0x72420…72440 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┆
0x72440…72460 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; ┆
0x72460…7247e 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 2e 74 72 5f ┆ (w3).tc_bsl:= w0:= (w2).tr_┆
0x7247e…72484 (0x324,0xe4a)
0x72484…724a0 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 ┆basel; (w3).tc_bsu:=┆
0x724a0…724c0 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 66 31 3a ┆ w0:= (w2).tr_baseu; f1:┆
0x724c0…724e0 3d 28 77 31 29 2e 74 71 5f 73 75 73 70 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 77 30 20 6f 72 20 ┆=(w1).tq_suspend; w0 or ┆
0x724e0…724fc 77 31 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3c 3e 30 20 74 68 65 6e 0a 20 20 ┆w1; if w0<>0 then ┆
0x724fc…72502 (0x324,0xe4b)
0x72502…72520 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 65 64 20 ┆ begin comment suspended ┆
0x72520…72540 74 72 61 6e 73 70 6f 72 74 3b 0a 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 28 77 33 29 2e 70 72 ┆transport; w2:=(w3).pr┆
0x72540…72560 5f 71 75 65 72 65 66 3b 0a 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 62 73 70 74 72 ┆_queref; (w3).tc_bsptr┆
0x72560…7257a 3a 3d 20 66 31 3a 3d 20 28 77 32 29 2e 74 71 5f 73 75 73 70 65 6e 64 3b 0a 20 ┆:= f1:= (w2).tq_suspend; ┆
0x7257a…72580 (0x324,0xe4c)
0x72580…725a0 20 20 20 20 20 20 20 20 20 77 31 3a 3d 28 77 33 29 2e 70 72 5f 71 75 65 72 65 66 3b 0a 20 20 20 ┆ w1:=(w3).pr_queref; ┆
0x725a0…725c0 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 20 20 20 20 20 63 ┆ w2:=transref; c┆
0x725c0…725e0 6f 6d 6d 65 6e 74 20 69 66 20 6e 6f 74 68 69 6e 67 20 65 6c 73 65 20 74 68 65 6e 20 72 65 70 65 ┆omment if nothing else then repe┆
0x725e0…72600 61 74 20 32 20 70 61 67 65 73 3b 0a 20 20 20 20 20 20 20 20 20 20 28 77 00 00 00 00 00 00 00 00 ┆at 2 pages; (w ┆
0x72600…72606 (915,) (0x324,0xe4d)
0x72606…72620 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 ┆3).tc_ointervent := w0 := ┆
0x72620…72640 33 3b 20 21 20 72 65 70 65 61 74 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e ┆3; ! repeat ! (w3).┆
0x72640…72660 74 63 5f 77 6f 72 6b 66 66 73 20 3a 3d 20 77 30 20 3a 3d 20 32 3b 20 20 20 20 21 20 32 20 70 61 ┆tc_workffs := w0 := 2; ! 2 pa┆
0x72660…7267e 67 65 73 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 68 61 6c 74 3a 3d 77 30 3a 3d 31 3b ┆ges ! halt:=w0:=1;┆
0x7267e…72684 (0x324,0xe4e)
0x72684…726a0 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 28 77 ┆ end else (w┆
0x726a0…726c0 33 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 ┆3).tc_bsptr:= f1:= (w2).tr_bssta┆
0x726c0…726e0 72 74 70 74 72 3b 0a 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 ┆rtptr; (w3).tc_state:= w┆
0x726e0…726fc 30 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 ┆0:= 0; move(.w3.,w0:┆
0x726fc…72702 (0x324,0xe4f)
0x72702…72720 3d 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 65 61 29 ┆=8,w1:=address((w2).tr_bsarea)┆
0x72720…72740 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 3b 0a 20 ┆,w2:=address((w3).tc_bsname)); ┆
0x72740…72760 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 73 73 28 ┆ move(.w3.,w0,w1:=address(┆
0x72760…7277a 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 ┆(w1:=transref).tr_qgroup),┆
0x7277a…72780 (0x324,0xe50)
0x72780…727a0 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 28 ┆ w2:=address((┆
0x727a0…727c0 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 77 ┆w3).tc_qgroup)); move(.w┆
0x727c0…727e0 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 66 29 ┆3.,w0,w1:=address((w1:=transref)┆
0x727e0…72800 2e 74 72 5f 71 6e 61 6d 65 29 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆.tr_qname), ┆
0x72800…72806 (916,) (0x324,0xe51)
0x72806…72820 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_┆
0x72820…72840 71 6e 61 6d 65 29 29 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 33 29 2e 70 72 5f ┆qname)); if w0:=(w3).pr_┆
0x72840…72860 68 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 73 74 61 ┆headtrail<>0 then (w3).pr_inpsta┆
0x72860…7287e 74 65 3a 3d 20 77 30 3a 3d 20 2d 33 0a 20 20 20 20 20 20 20 20 65 6c 73 65 20 28 77 33 29 ┆te:= w0:= -3 else (w3)┆
0x7287e…72884 (0x324,0xe52)
0x72884…728a0 2e 70 72 5f 69 6e 70 73 74 61 74 65 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 20 77 ┆.pr_inpstate:= w0; w┆
0x728a0…728c0 30 3a 3d 28 77 33 29 2e 70 72 5f 64 72 61 69 6e 3b 0a 20 20 20 20 20 20 20 20 77 30 20 6f 72 20 ┆0:=(w3).pr_drain; w0 or ┆
0x728c0…728e0 68 61 6c 74 3b 0a 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 ┆halt; if w0<>0 then ┆
0x728e0…728fc 20 20 20 20 62 65 67 69 6e 20 21 20 68 6f 6c 64 20 64 65 76 69 63 65 20 21 0a 20 20 ┆ begin ! hold device ! ┆
0x728fc…72902 (0x324,0xe53)
0x72902…72920 20 20 20 20 20 20 20 20 28 77 33 29 2e 70 72 5f 64 72 61 69 6e 3a 3d 20 77 30 3a 3d 20 31 ┆ (w3).pr_drain:= w0:= 1┆
0x72920…72940 3b 0a 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 ┆; oproutput(.w3.,w0:=1┆
0x72940…72960 2c 77 31 3a 3d 31 2c 77 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 32 3c 3e 32 20 74 ┆,w1:=1,w2); if w2<>2 t┆
0x72960…7297a 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 ┆hen begin ┆
0x7297a…72980 (0x324,0xe54)
0x72980…729a0 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 20 ┆ (w3).tc_state:= w0:= 6; ! ┆
0x729a0…729c0 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 63 61 ┆aborted ! (w3).tc_ca┆
0x729c0…729e0 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 20 20 20 20 20 ┆use:= w0:= 3; ! operator ! ┆
0x729e0…72a00 20 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 73 74 61 74 75 73 3a 3d 20 00 00 00 00 00 00 00 00 ┆ (w3).tc_status:= ┆
0x72a00…72a06 (917,) (0x324,0xe55)
0x72a06…72a20 77 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 6f 69 ┆w2; (w3).tc_oi┆
0x72a20…72a40 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; ┆
0x72a40…72a60 20 28 77 33 29 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 20 ┆ (w3).pr_inpstate := w0 := 1; ┆
0x72a60…72a7e 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 20 ┆ goto pr_action; ┆
0x72a7e…72a84 (0x324,0xe56)
0x72a84…72aa0 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 68 6f 6c 64 28 2e 77 ┆ end; hold(.w┆
0x72aa0…72ac0 33 2e 2c 77 30 3a 3d 30 29 3b 28 77 33 29 2e 74 63 5f 68 65 6c 64 3a 3d 77 30 3a 3d 30 3b 0a 20 ┆3.,w0:=0);(w3).tc_held:=w0:=0; ┆
0x72ac0…72ae0 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 70 72 5f 64 72 61 69 6e 3a 3d 20 77 30 3a 3d 20 30 3b ┆ (w3).pr_drain:= w0:= 0;┆
0x72ae0…72afc 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 70 65 6e ┆ end; open┆
0x72afc…72b02 (0x324,0xe57)
0x72b02…72b20 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 20 20 20 ┆bs(.w3.); ! prepare area ! ┆
0x72b20…72b40 20 20 20 20 20 66 31 20 6c 73 68 69 66 74 20 31 30 30 3b 0a 20 20 20 20 20 20 20 20 77 32 3a 3d ┆ f1 lshift 100; w2:=┆
0x72b40…72b60 28 77 33 29 2e 70 72 5f 71 75 65 72 65 66 3b 0a 20 20 20 20 20 20 20 20 28 77 32 29 2e 74 71 5f ┆(w3).pr_queref; (w2).tq_┆
0x72b60…72b7a 73 75 73 70 65 6e 64 3a 3d 20 66 31 3b 0a 20 20 20 20 20 20 20 20 6c 6f 6f 6b ┆suspend:= f1; look┆
0x72b7a…72b80 (0x324,0xe58)
0x72b80…72ba0 74 72 61 6e 73 70 6f 72 74 28 2e 77 33 2e 2c 77 31 3a 3d 28 77 32 29 2e 74 71 5f 74 72 61 6e 73 ┆transport(.w3.,w1:=(w2).tq_trans┆
0x72ba0…72bc0 6e 6f 2c 77 32 29 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 32 3c 3d 30 20 74 68 65 6e 0a 20 20 ┆no,w2); if w2<=0 then ┆
0x72bc0…72be0 20 20 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 ┆ begin comment killed by ap┆
0x72be0…72c00 70 6c 69 63 61 74 69 6f 6e 20 77 68 69 6c 65 20 77 61 69 74 69 6e 67 20 00 00 00 00 00 00 00 00 ┆plication while waiting ┆
0x72c00…72c06 (918,) (0x324,0xe59)
0x72c06…72c20 66 6f 72 20 61 63 74 69 76 61 74 69 6f 6e 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆for activation; ┆
0x72c20…72c40 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 0a 20 ┆(w3).tc_ointervent := w0 := 0; ┆
0x72c40…72c60 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 61 69 6e 74 65 72 76 65 6e 74 20 3a 3d 20 77 ┆ (w3).tc_aintervent := w┆
0x72c60…72c7e 30 20 3a 3d 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 28 ┆0 := 1; end; (┆
0x72c7e…72c84 (0x324,0xe5a)
0x72c84…72ca0 77 33 29 2e 74 63 5f 74 72 61 6e 73 6e 6f 20 3a 3d 20 77 31 3b 0a 0a 0a 6c 6f 6f 70 ┆w3).tc_transno := w1; loop┆
0x72ca0…72cc0 3a 0a 20 20 20 20 20 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 ┆: if w2:=(w3).tc_ointerv┆
0x72cc0…72ce0 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 20 63 6f 6d 6d 65 6e ┆ent<>0 then begin commen┆
0x72ce0…72cfc 74 20 6f 70 65 72 61 74 6f 72 20 69 6e 74 65 72 76 65 6e 74 69 6f 6e 3b 0a 20 20 20 ┆t operator intervention; ┆
0x72cfc…72d02 (0x324,0xe5b)
0x72d02…72d20 20 20 20 20 20 20 20 63 61 73 65 20 77 32 20 6f 66 20 0a 20 20 20 20 20 20 20 20 20 20 62 ┆ case w2 of b┆
0x72d20…72d40 65 67 69 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 73 ┆egin begin comment s┆
0x72d40…72d60 74 61 72 74 20 63 6f 6d 6d 61 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d ┆tart command; w1:=┆
0x72d60…72d7a 61 64 64 72 65 73 73 28 74 5f 73 74 61 72 74 29 3b 0a 20 20 20 20 20 20 20 20 ┆address(t_start); ┆
0x72d7a…72d80 (0x324,0xe5c)
0x72d80…72da0 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 6e 20 63 6f 6d 6d 65 ┆ end; begin comme┆
0x72da0…72dc0 6e 74 20 73 6b 69 70 20 61 63 74 69 6f 6e 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 6f ┆nt skip action; lo┆
0x72dc0…72de0 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 74 63 5f 74 72 61 ┆oktransport(.w3.,w1:=(w3).tc_tra┆
0x72de0…72e00 6e 73 6e 6f 2c 77 32 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 ┆nsno,w2); ┆
0x72e00…72e06 (919,) (0x324,0xe5d)
0x72e06…72e20 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 ┆(w3).tc_worknls := w0 := 0┆
0x72e20…72e40 3b 0a 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 20 ┆; (w3).pr_partial ┆
0x72e40…72e60 3a 3d 20 77 30 20 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 70 72 5f 77 6f ┆:= w0 ; (w3).pr_wo┆
0x72e60…72e7e 72 6b 70 74 72 20 3a 3d 20 66 31 20 3a 3d 20 28 77 33 29 2e 74 63 5f 62 73 70 74 72 3b 0a ┆rkptr := f1 := (w3).tc_bsptr; ┆
0x72e7e…72e84 (0x324,0xe5e)
0x72e84…72ea0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 70 72 5f 77 6f 72 6b 73 74 ┆ (w3).pr_workst┆
0x72ea0…72ec0 61 72 74 70 74 72 20 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 ┆artptr := f1 := (w2).tr_bsstartp┆
0x72ec0…72ee0 74 72 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 68 69 6c 65 20 77 30 3a 3d 28 77 33 29 ┆tr; while w0:=(w3)┆
0x72ee0…72efc 2e 74 63 5f 77 6f 72 6b 66 66 73 3e 30 20 64 6f 0a 20 20 20 20 20 20 20 20 20 20 20 ┆.tc_workffs>0 do ┆
0x72efc…72f02 (0x324,0xe5f)
0x72f02…72f20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 73 6b 69 70 20 75 6e 74 69 6c 20 61 6e ┆ begin comment skip until an┆
0x72f20…72f40 20 61 70 70 72 6f 70 69 61 74 65 20 6e 75 6d 62 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ appropiate number ┆
0x72f40…72f60 20 20 20 20 20 20 20 6f 66 20 66 66 27 73 2c 20 6e 6c 27 73 20 6f 72 20 65 6e 64 20 6d 65 64 69 ┆ of ff's, nl's or end medi┆
0x72f60…72f7a 75 6d 20 69 73 20 6d 65 74 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆um is met; ┆
0x72f7a…72f80 (0x324,0xe60)
0x72f80…72fa0 20 77 31 3a 3d 28 77 33 29 2e 74 63 5f 62 75 66 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ w1:=(w3).tc_buf; ┆
0x72fa0…72fc0 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 63 5f 62 75 66 ┆ get_block(.w3.,w0:=(w3).tc_buf┆
0x72fc0…72fe0 73 69 7a 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 ┆size, ┆
0x72fe0…73000 20 20 20 20 77 31 3a 3d 61 64 64 72 65 73 73 28 28 77 31 29 2e 62 75 66 00 00 00 00 00 00 00 00 ┆ w1:=address((w1).buf ┆
0x73000…73006 (920,) (0x324,0xe61)
0x73006…73020 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 20 ┆_data1),w2); ┆
0x73020…73040 20 20 20 69 66 20 77 30 3c 3d 30 20 74 68 65 6e 20 28 77 33 29 2e 74 63 5f 77 6f 72 6b 66 66 73 ┆ if w0<=0 then (w3).tc_workffs┆
0x73040…73060 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 20 20 77 31 3a ┆ := w0 := 0; w1:┆
0x73060…7307e 3d 28 77 33 29 2e 74 63 5f 62 75 66 3b 66 69 72 73 74 3a 3d 77 32 3a 3d 61 64 64 72 65 73 ┆=(w3).tc_buf;first:=w2:=addres┆
0x7307e…73084 (0x324,0xe62)
0x73084…730a0 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 20 20 ┆s((w1).buf_data1); ┆
0x730a0…730c0 20 20 20 20 20 20 20 77 32 2d 32 3b 77 30 2b 77 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ w2-2;w0+w2; ┆
0x730c0…730e0 20 20 20 6c 61 73 74 3a 3d 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 68 69 ┆ last:=w0; whi┆
0x730e0…730fc 6c 65 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 ┆le w2+2<=last do ┆
0x730fc…73102 (0x324,0xe63)
0x73102…73120 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 62 75 66 66 65 ┆ begin comment check buffe┆
0x73120…73140 72 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 32 29 2e 77 6f ┆r; w1:=(w2).wo┆
0x73140…73160 72 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 31 20 6f 6e 65 6d ┆rd; if w1 onem┆
0x73160…7317a 61 73 6b 20 20 20 32 31 30 35 33 37 36 20 74 68 65 6e 20 77 31 3a 3d 30 20 65 ┆ask 2105376 then w1:=0 e┆
0x7317a…73180 (0x324,0xe64)
0x73180…731a0 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 31 20 7a 65 72 6f ┆lse if w1 zero┆
0x731a0…731c0 6d 61 73 6b 20 2d 32 30 39 37 31 35 32 20 74 68 65 6e 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 ┆mask -2097152 then else ┆
0x731c0…731e0 20 20 20 20 20 20 20 20 20 20 69 66 20 77 31 20 7a 65 72 6f 6d 61 73 6b 20 20 20 20 35 37 33 34 ┆ if w1 zeromask 5734┆
0x731e0…73200 34 20 74 68 65 6e 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 ┆4 then else ┆
0x73200…73206 (921,) (0x324,0xe65)
0x73206…73220 20 20 20 20 20 20 69 66 20 77 31 20 7a 65 72 6f 6d 61 73 6b 20 20 20 20 20 20 ┆ if w1 zeromask ┆
0x73220…73240 32 32 34 20 74 68 65 6e 20 65 6c 73 65 20 77 31 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆224 then else w1:=0; ┆
0x73240…73260 20 20 20 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 ┆ while w1<>0 do ┆
0x73260…7327e 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 64 6f 20 69 74 20 74 68 ┆ begin comment do it th┆
0x7327e…73284 (0x324,0xe66)
0x73284…732a0 65 20 73 6c 6f 77 20 77 61 79 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆e slow way; ┆
0x732a0…732c0 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 20 20 20 20 20 20 66 ┆ w0:=0; f┆
0x732c0…732e0 31 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 20 20 20 20 ┆1 lshift 8; ┆
0x732e0…732fc 69 66 20 77 30 3d 31 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆if w0=10 then ┆
0x732fc…73302 (0x324,0xe67)
0x73302…73320 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 6e 65 3b 0a 20 ┆ begin comment newline; ┆
0x73320…73340 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 77 6f 72 ┆ (w3).tc_wor┆
0x73340…73360 6b 6e 6c 73 20 3a 3d 20 77 30 20 3a 3d 20 28 77 33 29 2e 74 63 5f 77 6f 72 6b 6e 6c 73 20 2b 20 ┆knls := w0 := (w3).tc_worknls + ┆
0x73360…7337a 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 ┆1; i┆
0x7337a…73380 (0x324,0xe68)
0x73380…733a0 66 20 77 30 20 3d 20 62 2e 70 72 6c 70 61 67 65 20 74 68 65 6e 20 77 30 3a 3d 31 32 20 65 6c 73 ┆f w0 = b.prlpage then w0:=12 els┆
0x733a0…733c0 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 20 20 20 20 65 6e 64 ┆e w0:=0; end┆
0x733c0…733e0 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 30 3d 31 32 20 74 ┆; if w0=12 t┆
0x733e0…73400 68 65 6e 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 ┆hen ┆
0x73400…73406 (922,) (0x324,0xe69)
0x73406…73420 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 66 6f 72 6d 66 65 65 64 3b 0a 20 20 ┆begin comment formfeed; ┆
0x73420…73440 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 77 6f 72 6b ┆ (w3).tc_work┆
0x73440…73460 6e 6c 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 20 20 ┆nls := w0 := 0; ┆
0x73460…7347e 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 77 6f 72 6b 66 66 73 73 20 3a 3d 20 77 30 20 3a ┆ (w3).tc_workffss := w0 :┆
0x7347e…73484 (0x324,0xe6a)
0x73484…734a0 3d 20 28 77 33 29 2e 74 63 5f 77 6f 72 6b 66 66 73 20 2d 20 31 3b 0a 20 20 20 20 20 ┆= (w3).tc_workffs - 1; ┆
0x734a0…734c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3c 31 20 74 68 65 6e 0a 20 20 ┆ if w0<1 then ┆
0x734c0…734e0 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 6d 6d 65 6e ┆ begin commen┆
0x734e0…734fc 74 20 73 74 6f 70 20 73 65 61 72 63 68 69 6e 67 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆t stop searching; ┆
0x734fc…73502 (0x324,0xe6b)
0x73502…73520 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 31 32 3b 66 31 20 6c 73 68 69 66 74 ┆ w0:=12;f1 lshift┆
0x73520…73540 20 2d 38 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 28 77 33 ┆ -8; (w3┆
0x73540…73560 29 2e 70 72 5f 70 61 72 74 69 61 6c 20 3a 3d 20 77 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆).pr_partial := w1; ┆
0x73560…7357a 20 20 20 20 20 20 20 20 20 20 20 20 77 32 2d 32 3b 6c 61 73 74 3a 3d 77 32 3b ┆ w2-2;last:=w2;┆
0x7357a…73580 (0x324,0xe6c)
0x73580…735a0 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 31 3a 3d 30 3b 0a ┆ w1:=0; ┆
0x735a0…735c0 20 20 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; ┆
0x735c0…735e0 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 20 20 20 20 20 20 ┆ end else ┆
0x735e0…73600 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3d 32 35 20 74 68 65 00 00 00 00 00 00 00 00 ┆ if w0=25 the ┆
0x73600…73606 (923,) (0x324,0xe6d)
0x73606…73620 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 ┆n begi┆
0x73620…73640 6e 20 63 6f 6d 6d 65 6e 74 20 65 6e 64 20 6f 66 20 6d 65 64 69 75 6d 3b 0a 20 20 20 20 20 20 20 ┆n comment end of medium; ┆
0x73640…73660 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 73 20 3a ┆ (w3).tc_workffs :┆
0x73660…7367e 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 20 20 20 20 20 ┆= w0 := 0; ┆
0x7367e…73684 (0x324,0xe6e)
0x73684…736a0 20 20 20 77 31 3a 3d 77 32 2d 66 69 72 73 74 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ w1:=w2-first; ┆
0x736a0…736c0 20 20 20 20 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 2b 28 ┆ (w3).tc_bsptr := f1+(┆
0x736c0…736e0 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 20 20 20 ┆w3).tc_bsptr; ┆
0x736e0…736fc 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:┆
0x736fc…73702 (0x324,0xe6f)
0x73702…73720 3d 36 2c 77 32 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 ┆=6,w2); ┆
0x73720…73740 69 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 20 20 20 20 ┆if w2<>2 then ┆
0x73740…73760 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 20 20 20 20 20 20 20 ┆ begin ┆
0x73760…7377a 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 ┆ (w3).tc_state := w0 := ┆
0x7377a…73780 (0x324,0xe70)
0x73780…737a0 36 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 28 77 33 29 2e ┆6; (w3).┆
0x737a0…737c0 74 63 5f 63 61 75 73 65 20 3a 3d 20 77 30 20 3a 3d 20 33 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆tc_cause := w0 := 3; ┆
0x737c0…737e0 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 75 73 3a 3d 20 77 32 ┆ (w3).tc_status:= w2┆
0x737e0…73800 20 3b 0a 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 ┆ ; ┆
0x73800…73806 (924,) (0x324,0xe71)
0x73806…73820 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 ┆
0x73820…73840 3a 3d 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 20 20 28 77 ┆:= 1; (w┆
0x73840…73860 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; ┆
0x73860…7387e 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 20 70 72 5f 61 ┆ goto pr_a┆
0x7387e…73884 (0x324,0xe72)
0x73884…738a0 63 74 69 6f 6e 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ction; ┆
0x738a0…738c0 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 20 20 68 6f 6c 64 ┆ end; hold┆
0x738c0…738e0 28 2e 77 33 2e 2c 77 30 3a 3d 30 29 3b 28 77 33 29 2e 74 63 5f 68 65 6c 64 3a 3d 77 30 3a 3d 30 ┆(.w3.,w0:=0);(w3).tc_held:=w0:=0┆
0x738e0…738fc 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 ┆; if w┆
0x738fc…73902 (0x324,0xe73)
0x73902…73920 30 3a 3d 28 77 33 29 2e 70 72 5f 68 65 61 64 74 72 61 69 6c 3d 30 20 74 68 65 6e 20 28 77 ┆0:=(w3).pr_headtrail=0 then (w┆
0x73920…73940 33 29 2e 70 72 5f 69 6e 70 73 74 61 74 65 20 3a 3d 20 77 30 20 65 6c 73 65 0a 20 20 20 20 20 20 ┆3).pr_inpstate := w0 else ┆
0x73940…73960 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x73960…7397a 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 69 ┆ (w3).pr_i┆
0x7397a…73980 (0x324,0xe74)
0x73980…739a0 6e 70 73 74 61 74 65 20 3a 3d 20 77 30 20 2d 20 34 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆npstate := w0 - 4; ┆
0x739a0…739c0 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 20 20 ┆ goto loop; ┆
0x739c0…739e0 20 20 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 ┆ end else; ┆
0x739e0…73a00 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ end; ┆
0x73a00…73a06 (925,) (0x324,0xe75)
0x73a06…73a20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 ┆ end; w1┆
0x73a20…73a40 20 3a 3d 20 6c 61 73 74 2d 66 69 72 73 74 2b 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ := last-first+2; ┆
0x73a40…73a60 20 20 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 28 77 33 29 2e ┆ w0 := 0; (w3).┆
0x73a60…73a7e 74 63 5f 62 73 70 74 72 20 3a 3d 20 66 31 20 2b 20 28 77 33 29 2e 74 63 5f 62 73 70 74 72 ┆tc_bsptr := f1 + (w3).tc_bsptr┆
0x73a7e…73a84 (0x324,0xe76)
0x73a84…73aa0 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 ┆; end; ┆
0x73aa0…73ac0 20 20 20 20 20 20 20 77 31 3a 3d 61 64 64 72 65 73 73 28 74 5f 73 6b 69 70 29 3b 0a 0a 20 20 20 ┆ w1:=address(t_skip); ┆
0x73ac0…73ae0 20 20 20 20 20 20 20 20 20 65 6e 64 3b 20 21 20 65 6e 64 20 73 6b 69 70 20 61 63 74 69 6f 6e 20 ┆ end; ! end skip action ┆
0x73ae0…73afc 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 ┆
0x73afc…73b02 (0x324,0xe77)
0x73b02…73b20 72 65 70 65 61 74 20 61 63 74 69 6f 6e 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6c ┆repeat action; l┆
0x73b20…73b40 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 74 63 5f 74 72 ┆ooktransport(.w3.,w1:=(w3).tc_tr┆
0x73b40…73b60 61 6e 73 6e 6f 2c 77 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 70 72 ┆ansno,w2); (w3).pr┆
0x73b60…73b7a 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 ┆_partial := w0 := 0; ┆
0x73b7a…73b80 (0x324,0xe78)
0x73b80…73ba0 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 :┆
0x73ba0…73bc0 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 70 72 5f 77 6f 72 6b 70 ┆= 0; (w3).pr_workp┆
0x73bc0…73be0 74 72 20 3a 3d 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 ┆tr := f1 := (w3).tc_bsptr; ┆
0x73be0…73c00 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 70 72 5f 77 6f 72 6b 73 74 61 00 00 00 00 00 00 00 00 ┆ (w3).pr_worksta ┆
0x73c00…73c06 (926,) (0x324,0xe79)
0x73c06…73c20 72 74 70 74 72 20 3a 3d 20 66 31 20 3a 3d 20 28 77 32 29 2e 74 72 5f 62 73 73 ┆rtptr := f1 := (w2).tr_bss┆
0x73c20…73c40 74 61 72 74 70 74 72 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 62 ┆tartptr; comment b┆
0x73c40…73c60 61 63 6b 73 70 61 63 65 20 75 6e 74 69 6c 20 61 6e 20 61 70 70 72 6f 70 69 61 74 65 20 6e 75 6d ┆ackspace until an appropiate num┆
0x73c60…73c7e 62 65 72 20 6f 66 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 6d 66 65 65 64 73 ┆ber of formfeeds┆
0x73c7e…73c84 (0x324,0xe7a)
0x73c84…73ca0 2c 20 6e 65 77 6c 69 6e 65 73 20 6f 72 20 73 74 61 72 74 20 66 69 6c 65 20 69 73 20 ┆, newlines or start file is ┆
0x73ca0…73cc0 6d 65 74 2e 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 68 69 6c 65 20 77 30 3a 3d 28 77 ┆met.; while w0:=(w┆
0x73cc0…73ce0 33 29 2e 74 63 5f 77 6f 72 6b 66 66 73 3e 30 20 64 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆3).tc_workffs>0 do ┆
0x73ce0…73cfc 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 28 ┆ begin w1:=(┆
0x73cfc…73d02 (0x324,0xe7b)
0x73d02…73d20 77 33 29 2e 74 63 5f 62 75 66 73 69 7a 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆w3).tc_bufsize; ┆
0x73d20…73d40 20 20 77 30 3a 3d 2d 31 3b 2d 28 77 31 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ w0:=-1;-(w1); ┆
0x73d40…73d60 28 77 33 29 2e 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 72 ┆(w3).tc_bsptr:= f1+(w3).tc_bsptr┆
0x73d60…73d7a 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 31 2d 28 77 33 29 2e ┆; f1-(w3).┆
0x73d7a…73d80 (0x324,0xe7c)
0x73d80…73da0 70 72 5f 77 6f 72 6b 73 74 61 72 74 70 74 72 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆pr_workstartptr; ┆
0x73da0…73dc0 20 69 66 20 77 30 3c 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 ┆ if w0<0 then be┆
0x73dc0…73de0 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 63 75 74 20 62 6c 6f 63 6b 73 69 7a 65 3b 0a 20 20 20 20 20 ┆gin comment cut blocksize; ┆
0x73de0…73e00 20 20 20 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 77 31 2b 28 77 33 29 00 00 00 00 00 00 00 00 ┆ w0:=w1+(w3) ┆
0x73e00…73e06 (927,) (0x324,0xe7d)
0x73e06…73e20 2e 74 63 5f 62 75 66 73 69 7a 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆.tc_bufsize; ┆
0x73e20…73e40 20 20 20 20 20 28 77 33 29 2e 74 63 5f 62 73 70 74 72 3a 3d 20 66 32 3a 3d 20 28 77 33 29 2e 70 ┆ (w3).tc_bsptr:= f2:= (w3).p┆
0x73e40…73e60 72 5f 77 6f 72 6b 73 74 61 72 74 70 74 72 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆r_workstartptr; ┆
0x73e60…73e7e 65 6e 64 20 65 6c 73 65 20 77 30 3a 3d 28 77 33 29 2e 74 63 5f 62 75 66 73 69 7a 65 3b 0a ┆end else w0:=(w3).tc_bufsize; ┆
0x73e7e…73e84 (0x324,0xe7e)
0x73e84…73ea0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3e 30 20 74 68 65 6e ┆ if w0>0 then┆
0x73ea0…73ec0 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 2e 77 33 2e 2c ┆ get_block(.w3.,┆
0x73ec0…73ee0 77 30 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 ┆w0, ┆
0x73ee0…73efc 20 20 77 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 ┆ w1:=address((w1:=(w3).tc_b┆
0x73efc…73f02 (0x324,0xe7f)
0x73f02…73f20 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 20 20 ┆uf).buf_data1),w2); ┆
0x73f20…73f40 20 20 20 20 20 20 69 66 20 77 30 3c 3d 30 20 74 68 65 6e 20 28 77 33 29 2e 74 63 5f 77 6f 72 6b ┆ if w0<=0 then (w3).tc_work┆
0x73f40…73f60 66 66 73 3a 3d 77 30 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d ┆ffs:=w0:=0; w1:=┆
0x73f60…73f7a 28 77 33 29 2e 74 63 5f 62 75 66 3b 66 69 72 73 74 3a 3d 77 32 3a 3d 61 64 64 ┆(w3).tc_buf;first:=w2:=add┆
0x73f7a…73f80 (0x324,0xe80)
0x73f80…73fa0 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 20 20 20 20 ┆ress((w1).buf_data1); ┆
0x73fa0…73fc0 20 20 20 20 20 20 77 32 2d 32 3b 77 32 2b 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ w2-2;w2+w0; ┆
0x73fc0…73fe0 20 20 6c 61 73 74 3a 3d 77 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 32 2b 32 ┆ last:=w2; w2+2┆
0x73fe0…74000 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 68 69 6c 65 20 00 00 00 00 00 00 00 00 ┆; while ┆
0x74000…74006 (928,) (0x324,0xe81)
0x74006…74020 77 32 2d 32 3e 3d 66 69 72 73 74 20 64 6f 0a 20 20 20 20 20 20 20 20 20 20 20 ┆w2-2>=first do ┆
0x74020…74040 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 62 75 66 66 65 72 3b ┆ begin comment check buffer;┆
0x74040…74060 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 32 29 2e 77 6f 72 64 ┆ w0:=(w2).word┆
0x74060…7407e 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 20 6f 6e 65 6d ┆; if w0 onem┆
0x7407e…74084 (0x324,0xe82)
0x74084…740a0 61 73 6b 20 20 20 32 31 30 35 33 37 36 20 74 68 65 6e 20 77 30 3a 3d 30 20 65 6c 73 ┆ask 2105376 then w0:=0 els┆
0x740a0…740c0 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 7a 65 72 6f 6d 61 ┆e if w0 zeroma┆
0x740c0…740e0 73 6b 20 2d 32 30 39 37 31 35 32 20 74 68 65 6e 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 ┆sk -2097152 then else ┆
0x740e0…740fc 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 35 37 ┆ if w0 zeromask 57┆
0x740fc…74102 (0x324,0xe83)
0x74102…74120 33 34 34 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 ┆344 then else ┆
0x74120…74140 20 20 69 66 20 77 30 20 7a 65 72 6f 6d 61 73 6b 20 20 20 20 20 20 32 32 34 20 74 68 65 6e 20 65 ┆ if w0 zeromask 224 then e┆
0x74140…74160 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 20 20 69 66 20 ┆lse w0:=0; if ┆
0x74160…7417a 77 30 3c 3e 30 20 74 68 65 6e 20 70 61 72 74 69 61 6c 3a 3d 77 31 3a 3d 30 3b ┆w0<>0 then partial:=w1:=0;┆
0x7417a…74180 (0x324,0xe84)
0x74180…741a0 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 30 3c 3e 30 20 64 ┆ while w0<>0 d┆
0x741a0…741c0 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┆
0x741c0…741e0 74 20 63 68 61 72 20 76 61 6c 75 65 20 6c 65 73 73 20 74 68 61 6e 20 33 32 20 64 65 74 65 63 74 ┆t char value less than 32 detect┆
0x741e0…74200 65 64 3b 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 ┆ed; ┆
0x74200…74206 (929,) (0x324,0xe85)
0x74206…74220 77 31 3a 3d 70 61 72 74 69 61 6c 3b 66 31 20 6c 73 68 69 66 74 20 2d 38 3b 70 ┆w1:=partial;f1 lshift -8;p┆
0x74220…74240 61 72 74 69 61 6c 3a 3d 77 31 3b 77 31 20 6c 73 68 69 66 74 20 2d 31 36 3b 0a 20 20 20 20 20 20 ┆artial:=w1;w1 lshift -16; ┆
0x74240…74260 20 20 20 20 20 20 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 ┆
0x74260…7427e 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 ┆ begin comment ┆
0x7427e…74284 (0x324,0xe86)
0x74284…742a0 6e 65 77 6c 69 6e 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆newline; ┆
0x742a0…742c0 20 20 20 28 77 33 29 2e 74 63 5f 77 6f 72 6b 6e 6c 73 20 3a 3d 20 77 31 20 3a 3d 20 28 77 33 29 ┆ (w3).tc_worknls := w1 := (w3)┆
0x742c0…742e0 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 20 20 20 20 20 20 ┆.tc_worknls + 1; ┆
0x742e0…742fc 20 20 20 20 20 20 20 69 66 20 77 31 3d 62 2e 70 72 6c 70 61 67 65 20 74 68 65 6e 20 ┆ if w1=b.prlpage then ┆
0x742fc…74302 (0x324,0xe87)
0x74302…74320 77 31 3a 3d 31 32 20 65 6c 73 65 20 77 31 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆w1:=12 else w1:=0; ┆
0x74320…74340 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 20 ┆ end; ┆
0x74340…74360 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 20 20 20 20 ┆ if w1=12 then ┆
0x74360…7437a 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 66 6f 72 6d 66 65 65 64 ┆ begin comment formfeed┆
0x7437a…74380 (0x324,0xe88)
0x74380…743a0 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 74 63 5f ┆; (w3).tc_┆
0x743a0…743c0 77 6f 72 6b 6e 6c 73 20 3a 3d 20 77 31 20 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆worknls := w1 := 0; ┆
0x743c0…743e0 20 20 20 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 31 20 ┆ (w3).tc_workffs := w1 ┆
0x743e0…74400 3a 3d 20 28 77 33 29 2e 74 63 5f 77 6f 72 6b 66 66 73 20 2d 20 31 3b 0a 00 00 00 00 00 00 00 00 ┆:= (w3).tc_workffs - 1; ┆
0x74400…74406 (930,) (0x324,0xe89)
0x74406…74420 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 ┆ if w┆
0x74420…74440 31 3c 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 20 20 20 62 ┆1<1 then b┆
0x74440…74460 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 73 74 6f 70 20 73 65 61 72 63 68 69 6e 67 3b 0a 20 20 20 ┆egin comment stop searching; ┆
0x74460…7447e 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 31 32 3b 77 31 ┆ w0:=12;w1┆
0x7447e…74484 (0x324,0xe8a)
0x74484…744a0 3a 3d 70 61 72 74 69 61 6c 3b 77 31 20 6c 73 68 69 66 74 20 38 3b 66 31 20 6c 73 68 ┆:=partial;w1 lshift 8;f1 lsh┆
0x744a0…744c0 69 66 74 20 2d 38 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 ┆ift -8; ┆
0x744c0…744e0 28 77 33 29 2e 70 72 5f 70 61 72 74 69 61 6c 20 3a 3d 20 77 31 3b 0a 20 20 20 20 20 20 20 20 20 ┆(w3).pr_partial := w1; ┆
0x744e0…744fc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 20 77 32 2d 66 69 72 73 74 ┆ w1:= w2-first┆
0x744fc…74502 (0x324,0xe8b)
0x74502…74520 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 77 30 3a 3d ┆; w0:=┆
0x74520…74540 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 20 28 77 33 29 2e ┆0; (w3).┆
0x74540…74560 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 72 3b 0a 20 20 20 ┆tc_bsptr:= f1+(w3).tc_bsptr; ┆
0x74560…7457a 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 30 ┆ w0:=0┆
0x7457a…74580 (0x324,0xe8c)
0x74580…745a0 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 77 32 3a 3d 66 69 ┆; w2:=fi┆
0x745a0…745c0 72 73 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 65 6e 64 3b 0a ┆rst; end; ┆
0x745c0…745e0 20 20 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 3b 0a 20 20 ┆ end else; ┆
0x745e0…74600 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; ┆
0x74600…74606 (931,) (0x324,0xe8d)
0x74606…74620 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; ┆
0x74620…74640 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 31 3a 3d 61 64 64 ┆ end; w1:=add┆
0x74640…74660 72 65 73 73 28 74 5f 72 65 70 65 61 74 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b ┆ress(t_repeat); end;┆
0x74660…7467e 20 21 20 65 6e 64 20 72 65 70 65 61 74 20 61 63 74 69 6f 6e 20 21 0a 20 20 20 20 20 20 20 ┆ ! end repeat action ! ┆
0x7467e…74684 (0x324,0xe8e)
0x74684…746a0 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 20 61 ┆ begin comment restart a┆
0x746a0…746c0 63 74 69 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 ┆ction; looktranspo┆
0x746c0…746e0 72 74 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 ┆rt(.w3.,w1:=(w3).tc_transno,w2);┆
0x746e0…746fc 0a 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 ┆ (w3).tc_bsptr┆
0x746fc…74702 (0x324,0xe8f)
0x74702…74720 20 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 72 3b 0a ┆ := f1 := (w2).tr_bsstartptr; ┆
0x74720…74740 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 72 65 73 74 ┆ w1:=address(t_rest┆
0x74740…74760 61 72 74 29 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 72 65 73 ┆art); end; ! end res┆
0x74760…7477a 74 61 72 74 20 61 63 74 69 6f 6e 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆tart action ! ┆
0x7477a…74780 (0x324,0xe90)
0x74780…747a0 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 73 74 6f 70 20 61 63 74 69 6f 6e 3b 0a 20 20 20 20 20 ┆begin comment stop action; ┆
0x747a0…747c0 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 77 31 ┆ oproutput(.w3.,w0:=1,w1┆
0x747c0…747e0 3a 3d 33 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 3c 3e 32 20 ┆:=3,w2); if w2<>2 ┆
0x747e0…74800 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 00 00 00 00 00 00 00 00 ┆then begin ┆
0x74800…74806 (932,) (0x324,0xe91)
0x74806…74820 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 ┆ (w3).tc_s┆
0x74820…74840 74 61 74 65 20 3a 3d 20 77 30 20 3a 3d 20 36 3b 20 21 20 61 62 6f 72 74 65 64 20 21 0a 20 20 20 ┆tate := w0 := 6; ! aborted ! ┆
0x74840…74860 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 77 30 ┆ (w3).tc_cause := w0┆
0x74860…7487e 20 3a 3d 20 33 3b 20 21 20 6f 70 65 72 61 74 6f 72 21 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ := 3; ! operator! ┆
0x7487e…74884 (0x324,0xe92)
0x74884…748a0 20 20 20 20 20 28 77 33 29 2e 74 63 5f 73 74 61 74 75 73 3a 3d 20 77 32 20 3b 0a 20 ┆ (w3).tc_status:= w2 ; ┆
0x748a0…748c0 20 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 76 65 6e ┆ (w3).tc_ointerven┆
0x748c0…748e0 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 20 20 20 20 20 28 77 ┆t := w0 := 0; (w┆
0x748e0…748fc 33 29 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 ┆3).pr_inpstate := w0 := 1; ┆
0x748fc…74902 (0x324,0xe93)
0x74902…74920 20 20 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 ┆ goto pr_action;┆
0x74920…74940 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 20 ┆ end; ┆
0x74940…74960 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;┆
0x74960…7497a 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 ┆ hold(.w3.,w┆
0x7497a…74980 (0x324,0xe94)
0x74980…749a0 30 3a 3d 30 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 ┆0:=0);(w3).tc_held:=w0:=0; ┆
0x749a0…749c0 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 20 20 ┆ goto loop; ┆
0x749c0…749e0 65 6e 64 3b 20 21 20 65 6e 64 20 73 74 6f 70 20 61 63 74 69 6f 6e 20 21 0a 20 20 20 20 20 20 20 ┆end; ! end stop action ! ┆
0x749e0…74a00 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 6b 69 6c 6c 20 00 00 00 00 00 00 00 00 ┆ begin comment kill ┆
0x74a00…74a06 (933,) (0x324,0xe95)
0x74a06…74a20 61 63 74 69 6f 6e 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 33 29 ┆action; (w3)┆
0x74a20…74a40 2e 74 63 5f 73 74 61 74 65 20 3a 3d 20 77 30 20 3a 3d 20 37 3b 20 21 20 6b 69 6c 6c 65 64 20 62 ┆.tc_state := w0 := 7; ! killed b┆
0x74a40…74a60 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 20 20 28 77 33 29 2e ┆y operator ! (w3).┆
0x74a60…74a7e 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 20 ┆tc_ointervent := w0 := 0; ┆
0x74a7e…74a84 (0x324,0xe96)
0x74a84…74aa0 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 ┆ (w3).pr_inpstate :┆
0x74aa0…74ac0 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 67 6f 74 6f 20 70 72 ┆= w0 := 1; goto pr┆
0x74ac0…74ae0 5f 61 63 74 69 6f 6e 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 ┆_action; end; ! end ┆
0x74ae0…74afc 6b 69 6c 6c 20 61 63 74 69 6f 6e 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 ┆kill action ! be┆
0x74afc…74b02 (0x324,0xe97)
0x74b02…74b20 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 73 75 73 70 65 6e 64 20 61 63 74 69 6f 6e 3b 0a 20 20 ┆gin comment suspend action; ┆
0x74b20…74b40 20 20 20 20 20 20 20 20 20 20 20 20 63 6c 6f 73 65 62 73 28 2e 77 33 2e 29 3b 0a 20 20 20 20 20 ┆ closebs(.w3.); ┆
0x74b40…74b60 20 20 20 20 20 20 20 20 20 28 77 32 3a 3d 28 77 33 29 2e 70 72 5f 71 75 65 72 65 66 29 2e 74 71 ┆ (w2:=(w3).pr_queref).tq┆
0x74b60…74b7a 5f 73 75 73 70 65 6e 64 3a 3d 66 31 3a 3d 28 77 33 29 2e 74 63 5f 62 73 70 74 ┆_suspend:=f1:=(w3).tc_bspt┆
0x74b7a…74b80 (0x324,0xe98)
0x74b80…74ba0 72 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 70 72 5f 64 72 61 69 6e 3a 3d ┆r; (w3).pr_drain:=┆
0x74ba0…74bc0 20 77 30 20 3a 3d 20 20 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 70 72 ┆ w0 := 1; (w3).pr┆
0x74bc0…74be0 5f 73 65 6c 65 63 74 3a 3d 77 30 3a 3d 20 33 3b 20 21 20 73 65 6c 65 63 74 20 6e 65 78 74 20 74 ┆_select:=w0:= 3; ! select next t┆
0x74be0…74c00 72 61 6e 73 70 6f 72 74 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ransport ! ┆
0x74c00…74c06 (934,) (0x324,0xe99)
0x74c06…74c20 20 77 30 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 33 29 ┆ w0:=0; (w3)┆
0x74c20…74c40 2e 63 5f 69 63 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 62 ┆.c_ic:= w0; goto b┆
0x74c40…74c60 2e 61 63 74 69 76 61 74 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 0a 0a 20 20 ┆.activate; end; ┆
0x74c60…74c7e 20 20 20 20 20 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 ┆ end; ! end case ! ┆
0x74c7e…74c84 (0x324,0xe9a)
0x74c84…74ca0 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 64 74 72 ┆ if w0:=(w3).pr_headtr┆
0x74ca0…74cc0 61 69 6c 3c 3e 30 20 74 68 65 6e 20 28 77 33 29 2e 70 72 5f 69 6e 70 73 74 61 74 65 3a 3d 77 30 ┆ail<>0 then (w3).pr_inpstate:=w0┆
0x74cc0…74ce0 3a 3d 2d 34 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 20 20 ┆:=-4 else ┆
0x74ce0…74cfc 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 70 72 ┆ (w3).pr┆
0x74cfc…74d02 (0x324,0xe9b)
0x74d02…74d20 5f 69 6e 70 73 74 61 74 65 3a 3d 77 30 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 20 28 77 ┆_inpstate:=w0:=0; (w┆
0x74d20…74d40 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; ┆
0x74d40…74d60 20 20 20 20 20 65 6e 64 3b 20 21 20 65 6e 64 20 6f 70 65 72 61 74 6f 72 20 69 6e 74 65 72 76 65 ┆ end; ! end operator interve┆
0x74d60…74d7a 6e 74 69 6f 6e 20 21 0a 0a 0a 20 20 20 20 20 20 20 20 69 66 20 77 32 3a 3d 28 ┆ntion ! if w2:=(┆
0x74d7a…74d80 (0x324,0xe9c)
0x74d80…74da0 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 20 20 20 20 20 20 ┆w3).tc_aintervent<>0 then ┆
0x74da0…74dc0 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:┆
0x74dc0…74de0 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 21 0a 20 20 20 ┆= w0:= 8; ! killed by appl ! ┆
0x74de0…74e00 20 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 61 69 6e 74 65 72 76 65 6e 00 00 00 00 00 00 00 00 ┆ (w3).tc_ainterven ┆
0x74e00…74e06 (935,) (0x324,0xe9d)
0x74e06…74e20 74 20 3a 3d 20 77 30 20 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 20 20 28 77 ┆t := w0 := 0; (w┆
0x74e20…74e40 33 29 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 20 20 20 20 ┆3).pr_inpstate := w0 := 1; ┆
0x74e40…74e60 20 20 20 20 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 65 6e 64 ┆ goto pr_action; end┆
0x74e60…74e7e 3b 0a 70 72 5f 61 63 74 69 6f 6e 3a 0a 0a 0a 20 20 20 20 20 20 20 20 63 61 73 65 20 77 32 ┆; pr_action: case w2┆
0x74e7e…74e84 (0x324,0xe9e)
0x74e84…74ea0 3a 3d 28 77 33 29 2e 70 72 5f 69 6e 70 73 74 61 74 65 20 2b 20 35 20 6f 66 0a 20 20 ┆:=(w3).pr_inpstate + 5 of ┆
0x74ea0…74ec0 20 20 20 20 20 20 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 ┆ begin ! get next input blo┆
0x74ec0…74ee0 63 6b 20 21 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 31 34 2c ┆ck ! move(.w3.,w0:=14,┆
0x74ee0…74efc 77 31 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 ┆w1, w2:=┆
0x74efc…74f02 (0x324,0xe9f)
0x74f02…74f20 61 64 64 72 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 ┆address((w2:=(w3).tc_buf).buf_┆
0x74f20…74f40 64 61 74 61 31 29 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 3a ┆data1)); move(.w3.,w0:┆
0x74f40…74f60 3d 36 38 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 74 72 69 61 6e 67 31 29 2c 0a 20 20 20 20 20 20 ┆=68,w1:=address(triang1), ┆
0x74f60…74f7a 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(┆
0x74f7a…74f80 (0x324,0xea0)
0x74f80…74fa0 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 29 3b 0a 20 ┆(w2:=(w3).tc_buf).buf_data1)); ┆
0x74fa0…74fc0 20 20 20 20 20 20 20 20 20 70 72 6c 69 73 74 64 61 74 65 28 2e 77 33 2e 2c 77 30 29 3b 0a 20 20 ┆ prlistdate(.w3.,w0); ┆
0x74fc0…74fe0 20 20 20 20 20 20 20 20 70 72 6c 69 73 74 69 64 28 2e 77 33 2e 2c 77 30 29 3b 0a 20 20 20 20 20 ┆ prlistid(.w3.,w0); ┆
0x74fe0…75000 20 20 20 20 20 62 65 67 69 6e 20 21 20 6e 6f 72 6d 61 6c 20 69 6e 70 75 00 00 00 00 00 00 00 00 ┆ begin ! normal inpu ┆
0x75000…75006 (936,) (0x324,0xea1)
0x75006…75020 74 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 ┆t mode ! get_b┆
0x75020…75040 6c 6f 63 6b 28 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 77 31 ┆lock(.w3.,w0:=(w3).tc_bufsize,w1┆
0x75040…75060 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 66 29 2e 62 75 66 5f ┆:=address((w1:=(w3).tc_buf).buf_┆
0x75060…7507e 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 66 20 77 30 3c ┆data1),w2); if w0<┆
0x7507e…75084 (0x324,0xea2)
0x75084…750a0 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 20 ┆=0 then begin ┆
0x750a0…750c0 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 31 3a 3d ┆ (w3).tc_state:= w1:=┆
0x750c0…750e0 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 20 20 20 28 77 ┆ 6; ! aborted ! (w┆
0x750e0…750fc 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 65 6e 64 ┆3).tc_cause:= w1:= 1; ! send┆
0x750fc…75102 (0x324,0xea3)
0x75102…75120 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 61 ┆er ! (w3).tc_sta┆
0x75120…75140 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 20 20 20 20 20 ┆tus:= w2; end ┆
0x75140…75160 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 0a 20 20 20 ┆ else begin ┆
0x75160…7517a 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 7a ┆ ! cut block siz┆
0x7517a…75180 (0x324,0xea4)
0x75180…751a0 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 6e ┆e down if an em-char is found in┆
0x751a0…751c0 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 20 20 77 31 3a 3d 20 ┆ the block ! w1:= ┆
0x751c0…751e0 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 20 61 64 64 72 65 73 ┆(w3).tc_buf; first:= w2:= addres┆
0x751e0…75200 73 28 28 77 31 29 2e 62 75 66 5f 64 61 74 61 31 29 3b 0a 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆s((w1).buf_data1); ┆
0x75200…75206 (937,) (0x324,0xea5)
0x75206…75220 20 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 ┆ w2-2; ┆
0x75220…75240 20 20 20 77 30 2b 77 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 61 73 74 3a 3d 20 77 ┆ w0+w2; last:= w┆
0x75240…75260 30 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 28 77 33 29 2e 70 ┆0; if w0:=(w3).p┆
0x75260…7527e 72 5f 70 61 72 74 69 61 6c 3c 3e 30 20 74 68 65 6e 20 0a 20 20 20 20 20 20 20 20 20 20 20 ┆r_partial<>0 then ┆
0x7527e…75284 (0x324,0xea6)
0x75284…752a0 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 ┆ begin ┆
0x752a0…752c0 20 28 77 32 2b 32 29 2e 77 6f 72 64 20 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ (w2+2).word := w0; ┆
0x752c0…752e0 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 77 30 20 3a 3d 20 30 ┆ (w3).pr_partial := w0 := 0┆
0x752e0…752fc 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 ┆; end; ┆
0x752fc…75302 (0x324,0xea7)
0x75302…75320 20 20 20 20 20 20 20 20 20 77 68 69 6c 65 20 77 32 2b 32 3c 3d 6c 61 73 74 20 64 6f 0a 20 ┆ while w2+2<=last do ┆
0x75320…75340 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 ┆
0x75340…75360 20 20 20 77 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 ┆ w0:=(w2).word; ┆
0x75360…7537a 20 20 69 66 20 77 30 20 6f 6e 65 6d 61 73 6b 20 20 20 20 32 31 30 35 33 37 36 ┆ if w0 onemask 2105376┆
0x7537a…75380 (0x324,0xea8)
0x75380…753a0 20 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 20 20 20 20 20 ┆ then w0:=0 else ┆
0x753a0…753c0 20 69 66 20 77 30 20 7a 65 72 6f 6d 61 73 6b 20 20 2d 31 37 30 33 39 33 36 20 74 68 65 6e 20 65 ┆ if w0 zeromask -1703936 then e┆
0x753c0…753e0 6c 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 61 ┆lse if w0 zeroma┆
0x753e0…75400 73 6b 20 20 20 20 20 35 38 38 38 30 20 74 68 65 6e 20 65 6c 73 65 0a 20 00 00 00 00 00 00 00 00 ┆sk 58880 then else ┆
0x75400…75406 (938,) (0x324,0xea9)
0x75406…75420 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 ┆ if w0 zerom┆
0x75420…75440 61 73 6b 20 20 20 20 20 20 20 32 33 30 20 74 68 65 6e 20 65 6c 73 65 20 77 30 3a 3d 30 3b 0a 20 ┆ask 230 then else w0:=0; ┆
0x75440…75460 20 20 20 20 20 20 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; ┆
0x75460…7547e 20 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 ┆ while w0<>0 do ┆
0x7547e…75484 (0x324,0xeaa)
0x75484…754a0 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 ┆
0x754a0…754c0 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 20 20 ┆ f0 lshift 8; ┆
0x754c0…754e0 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 74 68 65 6e 0a 20 ┆ if w1:= w3 extract 8=25 then ┆
0x754e0…754fc 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 ┆ begin ┆
0x754fc…75502 (0x324,0xeab)
0x75502…75520 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 0a 20 ┆ w3 lshift -8; ┆
0x75520…75540 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 20 77 ┆ (w2).word:= w┆
0x75540…75560 33 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 61 73 74 3a 3d 20 77 32 ┆3; last:= w2┆
0x75560…7557a 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 3a ┆; (w3:┆
0x7557a…75580 (0x324,0xeac)
0x75580…755a0 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 20 21 ┆=b.current).tc_state:= w1:= 5; !┆
0x755a0…755c0 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 20 20 ┆ completed ! ┆
0x755c0…755e0 20 77 30 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 65 6e 64 3b ┆ w0:= 0; end;┆
0x755e0…75600 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 00 00 00 00 00 00 00 00 ┆ end; ┆
0x75600…75606 (939,) (0x324,0xead)
0x75606…75620 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; ┆
0x75620…75640 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 20 20 ┆ w0:= last-first+2; ┆
0x75640…75660 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; ┆
0x75660…7567e 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; ┆
0x7567e…75684 (0x324,0xeae)
0x75684…756a0 20 20 20 20 20 20 20 70 72 63 61 75 73 65 28 2e 77 33 2e 2c 77 30 29 3b 0a 20 20 20 ┆ prcause(.w3.,w0); ┆
0x756a0…756c0 20 20 20 20 20 20 20 6d 6f 76 65 28 2e 77 33 2e 2c 77 30 3a 3d 37 30 2c 77 31 3a 3d 61 64 64 72 ┆ move(.w3.,w0:=70,w1:=addr┆
0x756c0…756e0 65 73 73 28 74 72 69 61 6e 67 32 29 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ess(triang2), ┆
0x756e0…756fc 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┆
0x756fc…75702 (0x324,0xeaf)
0x75702…75720 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┆
0x75720…75740 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┆
0x75740…75760 73 74 69 64 28 2e 77 33 2e 2c 77 30 29 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 20 21 20 63 61 ┆stid(.w3.,w0); end; ! ca┆
0x75760…7577a 73 65 20 21 0a 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3e 30 20 74 68 65 6e ┆se ! if w0>0 then┆
0x7577a…75780 (0x324,0xeb0)
0x75780…757a0 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 21 20 77 72 69 74 65 20 6e 65 78 74 20 6f 75 74 70 ┆ begin ! write next outp┆
0x757a0…757c0 75 74 20 62 6c 6f 63 6b 20 21 0a 72 65 70 5f 70 72 69 6e 74 3a 0a 20 20 20 20 20 20 20 20 20 20 ┆ut block ! rep_print: ┆
0x757c0…757e0 70 75 73 68 28 2e 77 33 2e 2c 77 30 29 3b 20 21 20 73 61 76 65 20 6e 6f 20 6f 66 20 68 61 6c 66 ┆push(.w3.,w0); ! save no of half┆
0x757e0…75800 77 6f 72 64 73 20 21 0a 0a 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 20 00 00 00 00 00 00 00 00 ┆words ! w1:= ┆
0x75800…75806 (940,) (0x324,0xeb1)
0x75806…75820 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 ┆(w3).tc_buf; (w1┆
0x75820…75840 29 2e 62 75 66 5f 6f 70 3a 3d 20 77 32 3a 3d 20 35 3b 20 28 77 31 29 2e 62 75 66 5f 6d 6f 64 65 ┆).buf_op:= w2:= 5; (w1).buf_mode┆
0x75840…75860 3a 3d 20 77 32 3a 3d 20 28 77 33 29 2e 74 63 5f 6d 6f 64 65 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆:= w2:= (w3).tc_mode; ┆
0x75860…7587e 28 77 31 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 ┆(w1).buf_first:= w2:= address(┆
0x7587e…75884 (0x324,0xeb2)
0x75884…758a0 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 20 20 77 ┆(w1).buf_data1); w┆
0x758a0…758c0 32 2b 77 30 2d 32 3b 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 ┆2+w0-2; (w1).buf_last:= w2; ┆
0x758c0…758e0 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 2e 62 ┆ testout(.w3.,w0,w1:=(w1).b┆
0x758e0…758fc 75 66 5f 66 69 72 73 74 2c 77 32 3a 3d 30 29 3b 0a 20 20 20 20 20 20 20 20 20 20 77 ┆uf_first,w2:=0); w┆
0x758fc…75902 (0x324,0xeb3)
0x75902…75920 31 3a 3d 20 28 77 33 29 2e 74 63 5f 62 75 66 3b 0a 0a 0a 20 20 20 20 20 20 20 20 20 20 73 ┆1:= (w3).tc_buf; s┆
0x75920…75940 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 28 28 ┆endwait(.w3.,w0,w1,w2:=address((┆
0x75940…75960 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 63 68 65 63 6b 5f 64 ┆w3).tc_name)); check_d┆
0x75960…7597a 65 76 69 63 65 73 74 61 74 75 73 28 2e 77 33 2e 2c 77 30 2c 77 31 3a 3d 61 64 ┆evicestatus(.w3.,w0,w1:=ad┆
0x7597a…75980 (0x324,0xeb4)
0x75980…759a0 64 72 65 73 73 28 62 2e 61 6e 73 5f 73 74 61 74 75 73 29 2c 77 32 29 3b 0a 20 20 20 20 20 20 20 ┆dress(b.ans_status),w2); ┆
0x759a0…759c0 20 20 20 70 6f 70 28 2e 77 33 2e 2c 77 30 29 3b 20 21 20 72 65 73 74 6f 72 65 20 6e 75 6d 62 65 ┆ pop(.w3.,w0); ! restore numbe┆
0x759c0…759e0 72 20 6f 66 20 68 61 6c 66 77 6f 72 64 73 20 21 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 32 ┆r of halfwords ! if w2┆
0x759e0…75a00 3d 30 20 74 68 65 6e 20 67 6f 74 6f 20 72 65 70 5f 70 72 69 6e 74 3b 0a 00 00 00 00 00 00 00 00 ┆=0 then goto rep_print; ┆
0x75a00…75a06 (941,) (0x324,0xeb5)
0x75a06…75a20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 31 3a 3d 28 77 33 29 2e 70 72 5f 69 ┆ if w1:=(w3).pr_i┆
0x75a20…75a40 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 6e 70 75 74 20 6d 6f ┆npstate=0 then ! normal input mo┆
0x75a40…75a60 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 20 20 20 20 20 20 20 ┆de ! begin ┆
0x75a60…75a7e 20 77 31 3a 3d 62 2e 61 6e 73 5f 62 79 74 65 73 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ w1:=b.ans_bytes; ┆
0x75a7e…75a84 (0x324,0xeb6)
0x75a84…75aa0 77 30 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 66 31 2b 2b 28 77 33 29 2e ┆w0:=0; f1++(w3).┆
0x75aa0…75ac0 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 29 2e 74 63 5f 62 73 ┆tc_bsptr; (w3).tc_bs┆
0x75ac0…75ae0 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 20 20 20 20 20 20 20 ┆ptr:=f1; end; ┆
0x75ae0…75afc 20 20 20 77 31 3a 3d 28 77 33 29 2e 70 72 5f 69 6e 70 73 74 61 74 65 3b 0a 0a 20 20 ┆ w1:=(w3).pr_inpstate; ┆
0x75afc…75b02 (0x324,0xeb7)
0x75b02…75b20 20 20 20 20 20 20 20 20 69 66 20 77 31 3c 3d 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 ┆ if w1<=0 then ┆
0x75b20…75b40 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 62 65 67 69 6e 0a ┆ if w2<>2 then begin ┆
0x75b40…75b60 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 ┆
0x75b60…75b7a 6f 70 72 6f 75 74 70 75 74 28 2e 77 33 2e 2c 77 30 3a 3d 32 2c 77 31 3a 3d 32 ┆oproutput(.w3.,w0:=2,w1:=2┆
0x75b7a…75b80 (0x324,0xeb8)
0x75b80…75ba0 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 3c 3e 32 20 74 68 65 ┆,w2); if w2<>2 the┆
0x75ba0…75bc0 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 20 ┆n begin ┆
0x75bc0…75be0 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 20 20 20 20 ┆ if w0<>w0 then ┆
0x75be0…75c00 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: ┆
0x75c00…75c06 (942,) (0x324,0xeb9)
0x75c06…75c20 20 20 20 20 20 77 32 3a 3d 20 32 27 31 30 30 30 30 30 3b 0a 20 20 20 20 20 20 ┆ w2:= 2'100000; ┆
0x75c20…75c40 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 28 ┆ end; (┆
0x75c40…75c60 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 61 62 6f 72 74 65 64 ┆w3).tc_state:= w0:= 6; ! aborted┆
0x75c60…75c7e 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 5f 63 61 75 ┆ ! (w3).tc_cau┆
0x75c7e…75c84 (0x324,0xeba)
0x75c84…75ca0 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 20 20 ┆se:= w0:= 3; ! operator ! ┆
0x75ca0…75cc0 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 75 73 3a 3d 20 77 ┆ (w3).tc_status:= w┆
0x75cc0…75ce0 32 3b 0a 20 20 20 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 ┆2; goto closeup;┆
0x75ce0…75cfc 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; ┆
0x75cfc…75d02 (0x324,0xebb)
0x75d02…75d20 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 28 6e 6f ┆ hold(.w3.,w0:=address(no┆
0x75d20…75d40 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 20 20 20 20 20 ┆_op));(w3).tc_held:=w0:=0; ┆
0x75d40…75d60 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 64 74 72 61 69 ┆ if w0:=(w3).pr_headtrai┆
0x75d60…75d7a 6c 3c 3e 30 20 74 68 65 6e 20 28 77 33 29 2e 70 72 5f 69 6e 70 73 74 61 74 65 ┆l<>0 then (w3).pr_inpstate┆
0x75d7a…75d80 (0x324,0xebc)
0x75d80…75da0 3a 3d 20 77 30 3a 3d 20 2d 34 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 6c ┆:= w0:= -4; goto l┆
0x75da0…75dc0 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 20 20 20 20 20 ┆oop; end; ┆
0x75dc0…75de0 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 63 61 73 65 20 ┆end; end; case ┆
0x75de0…75e00 77 32 3a 3d 28 77 30 3a 3d 28 77 33 29 2e 70 72 5f 69 6e 70 73 74 61 74 00 00 00 00 00 00 00 00 ┆w2:=(w0:=(w3).pr_inpstat ┆
0x75e00…75e06 (943,) (0x324,0xebd)
0x75e06…75e20 65 2b 31 29 2b 34 20 6f 66 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 ┆e+1)+4 of begin ┆
0x75e20…75e40 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 20 ┆ (w3).pr_inpstate:= w0; ┆
0x75e40…75e60 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; ┆
0x75e60…75e7e 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 ┆ (w3).pr_inpstate:= w┆
0x75e7e…75e84 (0x324,0xebe)
0x75e84…75ea0 30 3b 0a 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 ┆0; (w3).pr_inpstat┆
0x75ea0…75ec0 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 72 6d 61 6c ┆e:= w0; begin ! normal┆
0x75ec0…75ee0 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 20 77 32 3a ┆ input mode ! if w2:┆
0x75ee0…75efc 3d 28 77 33 29 2e 74 63 5f 73 74 61 74 65 3e 30 20 74 68 65 6e 0a 20 20 20 20 20 20 ┆=(w3).tc_state>0 then ┆
0x75efc…75f02 (0x324,0xebf)
0x75f02…75f20 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)┆
0x75f20…75f40 2e 70 72 5f 69 6e 70 73 74 61 74 65 3a 3d 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e ┆.pr_inpstate:=w0; en┆
0x75f40…75f60 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 69 66 20 77 ┆d; end; if w┆
0x75f60…75f7a 32 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 ┆2:=(w3).pr_headtrail<>0 th┆
0x75f7a…75f80 (0x324,0xec0)
0x75f80…75fa0 65 6e 20 28 77 33 29 2e 70 72 5f 69 6e 70 73 74 61 74 65 3a 3d 77 30 20 65 6c 73 65 20 67 6f 74 ┆en (w3).pr_inpstate:=w0 else got┆
0x75fa0…75fc0 6f 20 63 6c 6f 73 65 75 70 3b 0a 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 70 72 5f 69 6e 70 ┆o closeup; (w3).pr_inp┆
0x75fc0…75fe0 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┆
0x75fe0…76000 70 73 74 61 74 65 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 67 00 00 00 00 00 00 00 00 ┆pstate:= w0; g ┆
0x76000…76006 (944,) (0x324,0xec1)
0x76006…76020 6f 74 6f 20 63 6c 6f 73 65 75 70 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a ┆oto closeup; end; ┆
0x76020…76040 21 74 65 73 74 20 32 39 35 3b 0a 0a 20 20 20 20 20 20 20 20 67 6f 74 6f 20 6c 6f 6f 70 3b 0a 0a ┆!test 295; goto loop; ┆
0x76040…76060 0a 0a 63 6c 6f 73 65 75 70 3a 0a 20 20 20 20 20 20 20 20 77 33 3a 3d 20 62 2e 63 75 72 72 65 6e ┆ closeup: w3:= b.curren┆
0x76060…7607e 74 3b 0a 20 20 20 20 20 20 20 20 77 31 3a 3d 20 28 77 33 29 2e 70 72 5f 71 75 65 72 65 66 ┆t; w1:= (w3).pr_queref┆
0x7607e…76084 (0x324,0xec2)
0x76084…760a0 3b 0a 20 20 20 20 20 20 20 20 77 30 3a 3d 20 28 77 33 29 2e 70 72 5f 73 65 6c 65 63 ┆; w0:= (w3).pr_selec┆
0x760a0…760c0 74 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 20 3d 20 33 20 74 68 65 6e 20 77 31 3a 3d 20 28 ┆t; if w0 = 3 then w1:= (┆
0x760c0…760e0 77 31 29 2e 74 71 5f 6e 65 78 74 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 20 3d ┆w1).tq_next else if w0 =┆
0x760e0…760fc 20 34 20 74 68 65 6e 20 77 31 3a 3d 20 28 77 31 29 2e 74 71 5f 70 72 65 76 20 65 6c ┆ 4 then w1:= (w1).tq_prev el┆
0x760fc…76102 (0x324,0xec3)
0x76102…76120 73 65 0a 20 20 20 20 20 20 20 20 77 31 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 69 66 20 ┆se w1:= 0; if ┆
0x76120…76140 77 31 20 3c 3e 20 30 20 74 68 65 6e 20 28 77 33 29 2e 70 72 5f 73 65 6c 65 63 74 3a 3d 20 77 30 ┆w1 <> 0 then (w3).pr_select:= w0┆
0x76140…76160 3a 3d 20 36 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 31 20 3d 20 77 32 3a 3d 20 61 64 64 72 65 ┆:= 6; if w1 = w2:= addre┆
0x76160…7617a 73 73 28 28 77 33 29 2e 74 63 5f 6e 65 78 74 74 72 29 20 74 68 65 6e 20 77 31 ┆ss((w3).tc_nexttr) then w1┆
0x7617a…76180 (0x324,0xec4)
0x76180…761a0 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 71 75 65 75 65 72 65 ┆:= (w1).tq_next; queuere┆
0x761a0…761c0 66 3a 3d 20 77 31 3b 0a 20 20 20 20 20 20 20 20 6c 69 6e 6b 20 28 2e 77 33 2e 2c 20 77 31 3a 3d ┆f:= w1; link (.w3., w1:=┆
0x761c0…761e0 20 28 77 33 29 2e 70 72 5f 71 75 65 72 65 66 2c 20 77 32 3a 3d 20 61 64 64 72 65 73 73 28 62 2e ┆ (w3).pr_queref, w2:= address(b.┆
0x761e0…76200 74 71 66 72 65 65 66 73 74 29 29 3b 0a 20 20 20 20 20 20 20 20 28 77 33 00 00 00 00 00 00 00 00 ┆tqfreefst)); (w3 ┆
0x76200…76206 (945,) (0x324,0xec5)
0x76206…76220 29 2e 70 72 5f 71 75 65 72 65 66 3a 3d 20 77 31 3a 3d 20 71 75 65 75 65 72 65 ┆).pr_queref:= w1:= queuere┆
0x76220…76240 66 3b 0a 20 20 20 20 20 20 20 20 0a 20 20 20 20 20 20 20 20 63 6c 6f 73 65 62 73 28 2e 77 33 2e ┆f; closebs(.w3.┆
0x76240…76260 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.)┆
0x76260…7627e 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 6c 73 ┆; if w0:=b.oprtdetails┆
0x7627e…76284 (0x324,0xec6)
0x76284…762a0 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 ┆ onemask 1 then oproutput(.w┆
0x762a0…762c0 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┆
0x762c0…762e0 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 21 0a 0a 73 75 69 ┆); end; ! operation ! sui┆
0x762e0…762fc 63 69 64 65 3a 0a 20 20 20 20 20 20 64 69 73 63 6f 6e 6e 5f 63 73 70 20 28 2e 77 33 ┆cide: disconn_csp (.w3┆
0x762fc…76302 (0x324,0xec7)
0x76302…76320 2e 29 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 ┆.); w3:= b.current; ┆
0x76320…76340 20 20 64 65 61 6c 6c 6f 63 5f 69 66 70 20 28 2e 77 33 2e 2c 20 77 30 3a 3d 20 28 77 33 29 2e 74 ┆ dealloc_ifp (.w3., w0:= (w3).t┆
0x76340…76360 63 5f 64 65 76 6e 6f 2c 20 77 30 3a 3d 20 28 77 33 29 2e 74 63 5f 68 6f 73 74 6e 6f 29 3b 0a 20 ┆c_devno, w0:= (w3).tc_hostno); ┆
0x76360…7637a 20 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 ┆ remove_tc(.w3.,w1:=b.┆
0x7637a…76380 (0x324,0xec8)
0x76380…763a0 63 75 72 72 65 6e 74 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 ┆current); goto b.activate;┆
0x763a0…763c0 0a 20 20 20 20 65 6e 64 3b 0a 20 20 65 6e 64 3b 20 21 20 70 72 20 21 0a 0a 0a 0a 21 62 72 61 6e ┆ end; end; ! pr ! !bran┆
0x763c0…763e0 63 68 20 32 2c 37 3b 0a 0a 0a 20 20 62 6f 64 79 20 6f 66 20 70 63 0a 20 20 63 6f 6d 6d 65 6e 74 ┆ch 2,7; body of pc comment┆
0x763e0…76400 20 70 75 6e 63 68 20 63 6f 72 6f 75 74 69 6e 65 3b 0a 20 20 62 65 67 69 00 00 00 00 00 00 00 00 ┆ punch coroutine; begi ┆
0x76400…76406 (946,) (0x324,0xec9)
0x76406…76420 6e 0a 20 20 20 20 6c 61 62 65 6c 20 6c 6f 6f 70 2c 20 6e 6f 5f 6f 70 2c 20 72 ┆n label loop, no_op, r┆
0x76420…76440 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 6e 63 6f 64 65 ┆ep, closeup, suicide; incode┆
0x76440…76460 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┆
0x76460…7647e 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┆
0x7647e…76484 (0x324,0xeca)
0x76484…764a0 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┆
0x764a0…764c0 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┆
0x764c0…764e0 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┆
0x764e0…764fc 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┆
0x764fc…76502 (0x324,0xecb)
0x76502…76520 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((┆
0x76520…76540 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┆
0x76540…76560 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┆
0x76560…7657a 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 ┆
0x7657a…76580 (0x324,0xecc)
0x76580…765a0 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┆
0x765a0…765c0 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┆
0x765c0…765e0 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; ┆
0x765e0…76600 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: ┆
0x76600…76606 (947,) (0x324,0xecd)
0x76606…76620 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); ┆
0x76620…76640 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:= ┆
0x76640…76660 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┆
0x76660…7667e 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; ┆
0x7667e…76684 (0x324,0xece)
0x76684…766a0 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,┆
0x766a0…766c0 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)); ┆
0x766c0…766e0 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┆
0x766e0…766fc 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; ┆
0x766fc…76702 (0x324,0xecf)
0x76702…76720 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; ┆
0x76720…76740 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┆
0x76740…76760 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┆
0x76760…7677a 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; ┆
0x7677a…76780 (0x324,0xed0)
0x76780…767a0 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┆
0x767a0…767c0 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:= (┆
0x767c0…767e0 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).┆
0x767e0…76800 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; ┆
0x76800…76806 (948,) (0x324,0xed1)
0x76806…76820 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┆
0x76820…76840 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┆
0x76840…76860 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(┆
0x76860…7687e 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 ┆.w3.,w0,w1:=address((w1:=trans┆
0x7687e…76884 (0x324,0xed2)
0x76884…768a0 72 65 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 ┆ref).tr_qgroup), ┆
0x768a0…768c0 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 67 72 6f 75 ┆ w2:=address((w3).tc_qgrou┆
0x768c0…768e0 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┆
0x768e0…768fc 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 ┆dress((w1:=transref).tr_qnam┆
0x768fc…76902 (0x324,0xed3)
0x76902…76920 65 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 64 72 ┆e), w2:=addr┆
0x76920…76940 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 28 77 33 ┆ess((w3).tc_qname)); (w3┆
0x76940…76960 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 20 20 20 20 20 20 ┆).pc_inpstate:= w0:= -1; ┆
0x76960…7697a 20 62 65 67 69 6e 20 21 20 68 6f 6c 64 20 64 65 76 69 63 65 20 21 0a 20 20 20 ┆ begin ! hold device ! ┆
0x7697a…76980 (0x324,0xed4)
0x76980…769a0 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 77 31 3a 3d ┆ oproutput(.w3.,w0:=1,w1:=┆
0x769a0…769c0 31 2c 77 32 29 3b 0a 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 ┆1,w2); if w2<>2 then ┆
0x769c0…769e0 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 20 77 30 ┆ begin if w0┆
0x769e0…76a00 3c 3e 77 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 00 00 00 00 00 00 00 00 ┆<>w0 then be ┆
0x76a00…76a06 (949,) (0x324,0xed5)
0x76a06…76a20 67 69 6e 0a 6e 6f 5f 6f 70 3a 20 20 20 20 20 20 20 20 77 32 3a 3d 20 32 27 31 ┆gin no_op: w2:= 2'1┆
0x76a20…76a40 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 20 20 20 20 20 ┆00000; end; ┆
0x76a40…76a60 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 20 61 62 ┆ (w3).tc_state:= w0:= 6; ! ab┆
0x76a60…76a7e 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 63 61 ┆orted ! (w3).tc_ca┆
0x76a7e…76a84 (0x324,0xed6)
0x76a84…76aa0 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 20 ┆use:= w0:= 3; ! operator ! ┆
0x76aa0…76ac0 20 20 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; ┆
0x76ac0…76ae0 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 20 ┆ goto closeup; ┆
0x76ae0…76afc 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 68 6f 6c 64 28 2e 77 33 2e ┆ end; hold(.w3.┆
0x76afc…76b02 (0x324,0xed7)
0x76b02…76b20 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 63 5f 68 ┆,w0:=address(no_op));(w3).tc_h┆
0x76b20…76b40 65 6c 64 3a 3d 77 30 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 0a 0a 20 20 20 20 20 ┆eld:=w0:=0; end; ┆
0x76b40…76b60 20 20 20 6f 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 ┆ openbs(.w3.); ! prepare area ┆
0x76b60…76b7a 21 0a 0a 0a 6c 6f 6f 70 3a 0a 20 20 20 20 20 20 20 20 69 66 20 77 32 3a 3d 28 ┆! loop: if w2:=(┆
0x76b7a…76b80 (0x324,0xed8)
0x76b80…76ba0 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 20 20 20 20 20 20 ┆w3).tc_ointervent<>0 then ┆
0x76ba0…76bc0 20 20 62 65 67 69 6e 20 21 20 6f 70 65 72 61 74 6f 72 20 69 6e 74 65 72 76 65 6e 74 69 6f 6e 20 ┆ begin ! operator intervention ┆
0x76bc0…76be0 21 0a 21 74 65 73 74 20 32 30 36 3b 0a 20 20 20 20 20 20 20 20 20 20 63 61 73 65 20 77 32 20 65 ┆! !test 206; case w2 e┆
0x76be0…76c00 78 74 72 61 63 74 20 31 32 20 6f 66 0a 20 20 20 20 20 20 20 20 20 20 62 00 00 00 00 00 00 00 00 ┆xtract 12 of b ┆
0x76c00…76c06 (950,) (0x324,0xed9)
0x76c06…76c20 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 21 20 73 ┆egin begin ! s┆
0x76c20…76c40 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 74 61 72 74 20 ┆tart ! end; ! start ┆
0x76c40…76c60 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 6b 69 70 ┆! begin comment skip┆
0x76c60…76c7e 3b 65 6e 64 3b 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┆
0x76c7e…76c84 (0x324,0xeda)
0x76c84…76ca0 74 20 72 65 70 65 61 74 3b 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 ┆t repeat;end; be┆
0x76ca0…76cc0 67 69 6e 20 21 20 72 65 73 74 61 72 74 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 6f ┆gin ! restart ! lo┆
0x76cc0…76ce0 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 74 63 5f 74 72 61 ┆oktransport(.w3.,w1:=(w3).tc_tra┆
0x76ce0…76cfc 6e 73 6e 6f 2c 77 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 33 29 ┆nsno,w2); (w3)┆
0x76cfc…76d02 (0x324,0xedb)
0x76d02…76d20 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 ┆.tc_bsptr:= f1:= (w2).tr_bssta┆
0x76d20…76d40 72 74 70 74 72 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 ┆rtptr; end; ┆
0x76d40…76d60 20 20 20 20 69 66 20 77 30 3a 3d 28 77 33 29 2e 70 63 5f 69 6e 70 73 74 61 74 65 3c 3d 30 20 74 ┆ if w0:=(w3).pc_inpstate<=0 t┆
0x76d60…76d7a 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 21 20 73 74 ┆hen begin ! st┆
0x76d7a…76d80 (0x324,0xedc)
0x76d80…76da0 6f 70 20 21 0a 20 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 ┆op ! oproutput(.w┆
0x76da0…76dc0 33 2e 2c 77 30 3a 3d 31 2c 77 31 3a 3d 33 2c 77 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆3.,w0:=1,w1:=3,w2); ┆
0x76dc0…76de0 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 20 20 20 20 62 65 ┆ if w2<>2 then be┆
0x76de0…76e00 67 69 6e 0a 20 20 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 ┆gin (w3) ┆
0x76e00…76e06 (951,) (0x324,0xedd)
0x76e06…76e20 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 ┆.tc_state:= w0:= 6; ! abor┆
0x76e20…76e40 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 5f 63 61 ┆ted ! (w3).tc_ca┆
0x76e40…76e60 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 20 20 20 20 20 ┆use:= w0:= 3; ! operator ! ┆
0x76e60…76e7e 20 20 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 ┆ (w3).tc_status:= w2┆
0x76e7e…76e84 (0x324,0xede)
0x76e84…76ea0 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 63 6c 6f 73 65 ┆; goto close┆
0x76ea0…76ec0 75 70 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 ┆up; end; ┆
0x76ec0…76ee0 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 3a 3d 20 30 ┆ (w3).tc_ointervent:= w0:= 0┆
0x76ee0…76efc 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 ┆; hold(.w3.,w0┆
0x76efc…76f02 (0x324,0xedf)
0x76f02…76f20 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 ┆:=address(no_op));(w3).tc_held┆
0x76f20…76f40 3a 3d 77 30 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 70 63 5f 69 ┆:=w0:=0; (w3).pc_i┆
0x76f40…76f60 6e 70 73 74 61 74 65 3a 3d 20 77 30 3a 3d 20 2d 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆npstate:= w0:= -1; ┆
0x76f60…76f7a 20 67 6f 74 6f 20 6c 6f 6f 70 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e ┆ goto loop; en┆
0x76f7a…76f80 (0x324,0xee0)
0x76f80…76fa0 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 21 20 6b 69 6c 6c 20 21 0a 20 20 ┆d; begin ! kill ! ┆
0x76fa0…76fc0 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 3d ┆ (w3).tc_state:= w0:=┆
0x76fc0…76fe0 20 37 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 ┆ 7; ! killed by operator ! ┆
0x76fe0…77000 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 63 6c 6f 73 65 75 70 3b 0a 20 00 00 00 00 00 00 00 00 ┆ goto closeup; ┆
0x77000…77006 (952,) (0x324,0xee1)
0x77006…77020 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 65 ┆ end e┆
0x77020…77040 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 2e 74 63 5f 6f ┆nd; ! case ! (w3).tc_o┆
0x77040…77060 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 20 65 6e 64 3b ┆intervent:= w2:= 0; end;┆
0x77060…7707e 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 6e 74 65 ┆ if w2:=(w3).tc_ainte┆
0x7707e…77084 (0x324,0xee2)
0x77084…770a0 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 ┆rvent<>0 then begin ┆
0x770a0…770c0 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 38 ┆ (w3).tc_state:= w0:= 8┆
0x770c0…770e0 3b 20 21 20 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 67 ┆; ! killed by appl ! g┆
0x770e0…770fc 6f 74 6f 20 63 6c 6f 73 65 75 70 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 0a 0a ┆oto closeup; end; ┆
0x770fc…77102 (0x324,0xee3)
0x77102…77120 20 20 20 20 20 20 20 20 63 61 73 65 20 77 32 3a 3d 28 77 33 29 2e 70 63 5f 69 6e 70 73 74 ┆ case w2:=(w3).pc_inpst┆
0x77120…77140 61 74 65 20 2b 20 32 20 6f 66 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 21 20 67 65 74 20 6e ┆ate + 2 of begin ! get n┆
0x77140…77160 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 20 20 20 62 65 67 69 ┆ext input block ! begi┆
0x77160…7717a 6e 20 21 20 70 75 74 20 39 30 20 6e 75 6c 6c 20 63 68 61 72 73 20 21 0a 20 20 ┆n ! put 90 null chars ! ┆
0x7717a…77180 (0x324,0xee4)
0x77180…771a0 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 20 61 64 64 72 65 73 73 28 28 77 32 3a 3d 28 77 33 29 ┆ w1:= address((w2:=(w3)┆
0x771a0…771c0 2e 74 63 5f 62 75 66 29 2e 62 75 66 5f 64 61 74 61 31 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆.tc_buf).buf_data1); ┆
0x771c0…771e0 20 28 77 31 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 ┆ (w1).word:= w0:= 0; ┆
0x771e0…77200 20 6d 6f 76 65 28 2e 77 33 2e 2c 77 30 3a 3d 36 30 2c 77 31 2c 77 32 3a 00 00 00 00 00 00 00 00 ┆ move(.w3.,w0:=60,w1,w2: ┆
0x77200…77206 (953,) (0x324,0xee5)
0x77206…77220 3d 77 31 2b 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 ┆=w1+2); end; ┆
0x77220…77240 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 20 6d 6f 64 65 ┆ begin ! normal input mode┆
0x77240…77260 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 33 2e 2c 77 30 ┆ ! get_block(.w3.,w0┆
0x77260…7727e 3a 3d 28 77 33 29 2e 74 63 5f 62 75 66 73 69 7a 65 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 ┆:=(w3).tc_bufsize,w1:=address(┆
0x7727e…77284 (0x324,0xee6)
0x77284…772a0 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 ┆(w1:=(w3).tc_buf).buf_data1)┆
0x772a0…772c0 2c 77 32 29 3b 0a 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 0a ┆,w2); if w0<=0 then ┆
0x772c0…772e0 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 ┆
0x772e0…772fc 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 ┆(w3).tc_state:= w1:= 6; ! ab┆
0x772fc…77302 (0x324,0xee7)
0x77302…77320 6f 72 74 65 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 ┆orted ! (w3).tc_┆
0x77320…77340 63 61 75 73 65 3a 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 ┆cause:= w1:= 1; ! sender ! ┆
0x77340…77360 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 20 20 ┆ (w3).tc_status:= w2; ┆
0x77360…7737a 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 ┆
0x7737a…77380 (0x324,0xee8)
0x77380…773a0 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 20 ┆else begin ┆
0x773a0…773c0 20 20 20 20 20 21 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 ┆ ! cut block size down if an┆
0x773c0…773e0 20 65 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 ┆ em-char is found in the block !┆
0x773e0…77400 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 20 28 77 33 29 00 00 00 00 00 00 00 00 ┆ w1:= (w3) ┆
0x77400…77406 (954,) (0x324,0xee9)
0x77406…77420 2e 74 63 5f 62 75 66 3b 20 66 69 72 73 74 3a 3d 20 77 32 3a 3d 20 61 64 64 72 ┆.tc_buf; first:= w2:= addr┆
0x77420…77440 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 20 20 20 20 20 ┆ess((w1).buf_data1); ┆
0x77440…77460 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 32 3b 0a 20 20 ┆ w2-2; w0+w2; ┆
0x77460…7747e 20 20 20 20 20 20 20 20 20 20 20 20 6c 61 73 74 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 ┆ last:= w0; ┆
0x7747e…77484 (0x324,0xeea)
0x77484…774a0 20 20 20 20 20 20 20 77 68 69 6c 65 20 77 32 2b 32 3c 3d 6c 61 73 74 20 64 6f 0a 20 ┆ while w2+2<=last do ┆
0x774a0…774c0 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 ┆
0x774c0…774e0 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 77 30 3a 3d 20 ┆ w3:= 0; w0:= ┆
0x774e0…774fc 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 77 ┆(w2).word; w┆
0x774fc…77502 (0x324,0xeeb)
0x77502…77520 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 20 20 20 20 ┆hile w0<>0 do ┆
0x77520…77540 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 30 20 6c 73 68 69 66 ┆begin f0 lshif┆
0x77540…77560 74 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 ┆t 8; if w1:= w┆
0x77560…7757a 33 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 ┆3 extract 8=25 then ┆
0x7757a…77580 (0x324,0xeec)
0x77580…775a0 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 ┆
0x775a0…775c0 20 20 20 20 20 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 ┆ w3 lshift -8; ┆
0x775c0…775e0 20 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 ┆ (w2).word:= w3; ┆
0x775e0…77600 20 20 20 20 20 20 20 20 20 20 20 20 6c 61 73 74 3a 3d 20 77 32 3b 0a 20 00 00 00 00 00 00 00 00 ┆ last:= w2; ┆
0x77600…77606 (955,) (0x324,0xeed)
0x77606…77620 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 33 3a 3d 62 2e ┆ (w3:=b.┆
0x77620…77640 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 20 21 20 63 6f ┆current).tc_state:= w1:= 5; ! co┆
0x77640…77660 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 20 20 20 77 30 ┆mpleted ! w0┆
0x77660…7767e 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 65 6e 64 3b 0a ┆:= 0; end; ┆
0x7767e…77684 (0x324,0xeee)
0x77684…776a0 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 ┆ end; ┆
0x776a0…776c0 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 77 30 3a ┆ end; w0:┆
0x776c0…776e0 3d 20 6c 61 73 74 2d 66 69 72 73 74 2b 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 ┆= last-first+2; w┆
0x776e0…776fc 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 20 20 ┆3:= b.current; ┆
0x776fc…77702 (0x324,0xeef)
0x77702…77720 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 20 20 ┆end; end; ┆
0x77720…77740 62 65 67 69 6e 20 21 20 70 75 74 20 39 30 20 6e 75 6c 6c 20 63 68 61 72 73 20 21 0a 20 20 20 20 ┆begin ! put 90 null chars ! ┆
0x77740…77760 20 20 20 20 20 20 20 20 77 31 3a 3d 20 61 64 64 72 65 73 73 28 28 77 32 3a 3d 28 77 33 29 2e 74 ┆ w1:= address((w2:=(w3).t┆
0x77760…7777a 63 5f 62 75 66 29 2e 62 75 66 5f 64 61 74 61 31 29 3b 0a 20 20 20 20 20 20 20 ┆c_buf).buf_data1); ┆
0x7777a…77780 (0x324,0xef0)
0x77780…777a0 20 20 20 20 20 28 77 31 29 2e 77 6f 72 64 3a 3d 20 77 30 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 ┆ (w1).word:= w0:= 0; ┆
0x777a0…777c0 20 20 20 20 20 6d 6f 76 65 28 2e 77 33 2e 2c 77 30 3a 3d 36 30 2c 77 31 2c 77 32 3a 3d 77 31 2b ┆ move(.w3.,w0:=60,w1,w2:=w1+┆
0x777c0…777e0 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 20 20 65 6e 64 3b 20 ┆2); end; end; ┆
0x777e0…77800 21 20 63 61 73 65 20 21 0a 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3e 00 00 00 00 00 00 00 00 ┆! case ! if w0> ┆
0x77800…77806 (956,) (0x324,0xef1)
0x77806…77820 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 21 20 77 72 69 ┆0 then begin ! wri┆
0x77820…77840 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 0a 20 20 20 20 ┆te next output block ! rep: ┆
0x77840…77860 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 20 6e 6f 20 6f ┆ push(.w3.,w0); ! save no o┆
0x77860…7787e 66 20 68 61 6c 66 77 6f 72 64 73 20 21 0a 0a 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 20 ┆f halfwords ! w1:= ┆
0x7787e…77884 (0x324,0xef2)
0x77884…778a0 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 29 2e ┆(w3).tc_buf; (w1).┆
0x778a0…778c0 62 75 66 5f 6f 70 3a 3d 20 77 32 3a 3d 20 35 3b 20 28 77 31 29 2e 62 75 66 5f 6d 6f 64 65 3a 3d ┆buf_op:= w2:= 5; (w1).buf_mode:=┆
0x778c0…778e0 20 77 32 3a 3d 20 28 77 33 29 2e 74 63 5f 6d 6f 64 65 3b 0a 20 20 20 20 20 20 20 20 20 20 28 77 ┆ w2:= (w3).tc_mode; (w┆
0x778e0…778fc 31 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 ┆1).buf_first:= w2:= address(┆
0x778fc…77902 (0x324,0xef3)
0x77902…77920 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 20 20 77 32 2b ┆(w1).buf_data1); w2+┆
0x77920…77940 77 30 2d 32 3b 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 20 20 ┆w0-2; (w1).buf_last:= w2; ┆
0x77940…77960 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 2e 62 75 66 ┆ testout(.w3.,w0,w1:=(w1).buf┆
0x77960…7797a 5f 66 69 72 73 74 2c 77 32 3a 3d 30 29 3b 0a 20 20 20 20 20 20 20 20 20 20 77 ┆_first,w2:=0); w┆
0x7797a…77980 (0x324,0xef4)
0x77980…779a0 31 3a 3d 20 28 77 33 29 2e 74 63 5f 62 75 66 3b 0a 0a 0a 20 20 20 20 20 20 20 20 20 20 73 65 6e ┆1:= (w3).tc_buf; sen┆
0x779a0…779c0 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 28 28 77 33 ┆dwait(.w3.,w0,w1,w2:=address((w3┆
0x779c0…779e0 29 2e 74 63 5f 6e 61 6d 65 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 63 68 65 63 6b 5f 64 65 76 ┆).tc_name)); check_dev┆
0x779e0…77a00 69 63 65 73 74 61 74 75 73 28 2e 77 33 2e 2c 77 30 2c 77 31 3a 3d 61 64 00 00 00 00 00 00 00 00 ┆icestatus(.w3.,w0,w1:=ad ┆
0x77a00…77a06 (957,) (0x324,0xef5)
0x77a06…77a20 64 72 65 73 73 28 62 2e 61 6e 73 5f 73 74 61 74 75 73 29 2c 77 32 29 3b 0a 20 ┆dress(b.ans_status),w2); ┆
0x77a20…77a40 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 73 74 6f 72 65 ┆ pop(.w3.,w0); ! restore┆
0x77a40…77a60 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 20 20 20 20 20 ┆ number of halfwords ! ┆
0x77a60…77a7e 20 20 20 69 66 20 77 32 3d 30 20 74 68 65 6e 20 67 6f 74 6f 20 72 65 70 3b 0a 20 20 20 20 ┆ if w2=0 then goto rep; ┆
0x77a7e…77a84 (0x324,0xef6)
0x77a84…77aa0 20 20 20 20 20 20 69 66 20 77 31 3a 3d 28 77 33 29 2e 70 63 5f 69 6e 70 73 74 61 74 ┆ if w1:=(w3).pc_inpstat┆
0x77aa0…77ac0 65 3d 30 20 74 68 65 6e 20 21 20 6e 6f 72 6d 61 6c 20 69 6e 70 75 74 20 6d 6f 64 65 20 21 0a 20 ┆e=0 then ! normal input mode ! ┆
0x77ac0…77ae0 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 31 3a 3d 62 ┆ begin w1:=b┆
0x77ae0…77afc 2e 61 6e 73 5f 62 79 74 65 73 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d ┆.ans_bytes; w0:=┆
0x77afc…77b02 (0x324,0xef7)
0x77b02…77b20 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 66 31 2b 2b 28 77 33 29 2e 74 63 5f 62 73 70 ┆0; f1++(w3).tc_bsp┆
0x77b20…77b40 74 72 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 66 ┆tr; (w3).tc_bsptr:=f┆
0x77b40…77b60 31 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 20 20 77 31 3a ┆1; end; w1:┆
0x77b60…77b7a 3d 28 77 33 29 2e 70 63 5f 69 6e 70 73 74 61 74 65 3b 0a 0a 20 20 20 20 20 20 ┆=(w3).pc_inpstate; ┆
0x77b7a…77b80 (0x324,0xef8)
0x77b80…77ba0 20 20 20 20 69 66 20 77 31 3c 3d 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 ┆ if w1<=0 then if w┆
0x77ba0…77bc0 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 20 20 ┆2<>2 then begin ┆
0x77bc0…77be0 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 6f 70 72 6f 75 74 ┆ begin oprout┆
0x77be0…77c00 70 75 74 28 2e 77 33 2e 2c 77 30 3a 3d 32 2c 77 31 3a 3d 32 2c 77 32 29 00 00 00 00 00 00 00 00 ┆put(.w3.,w0:=2,w1:=2,w2) ┆
0x77c00…77c06 (958,) (0x324,0xef9)
0x77c06…77c20 3b 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 ┆; if w2<>2 t┆
0x77c20…77c40 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 20 ┆hen begin ┆
0x77c40…77c60 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 20 ┆ (w3).tc_state:= w0:= 6; ┆
0x77c60…77c7e 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 77 ┆! aborted ! (w┆
0x77c7e…77c84 (0x324,0xefa)
0x77c84…77ca0 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 70 65 72 ┆3).tc_cause:= w0:= 3; ! oper┆
0x77ca0…77cc0 61 74 6f 72 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 5f 73 ┆ator ! (w3).tc_s┆
0x77cc0…77ce0 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 20 20 20 67 6f 74 6f ┆tatus:= w2; goto┆
0x77ce0…77cfc 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 6e 64 3b ┆ closeup; end;┆
0x77cfc…77d02 (0x324,0xefb)
0x77d02…77d20 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 3a 3d 61 ┆ hold(.w3.,w0:=a┆
0x77d20…77d40 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 77 30 3a ┆ddress(no_op));(w3).tc_held:=w0:┆
0x77d40…77d60 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 70 63 5f 69 6e 70 73 74 61 ┆=0; (w3).pc_inpsta┆
0x77d60…77d7a 74 65 3a 3d 20 77 30 3a 3d 20 2d 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆te:= w0:= -1; ┆
0x77d7a…77d80 (0x324,0xefc)
0x77d80…77da0 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 65 6e 64 3b 0a 20 20 ┆ goto loop; end; ┆
0x77da0…77dc0 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 0a 20 20 20 20 20 ┆ end; end; ┆
0x77dc0…77de0 20 20 20 63 61 73 65 20 77 32 3a 3d 28 77 30 3a 3d 28 77 33 29 2e 70 63 5f 69 6e 70 73 74 61 74 ┆ case w2:=(w0:=(w3).pc_inpstat┆
0x77de0…77e00 65 2b 31 29 2b 31 20 6f 66 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 00 00 00 00 00 00 00 00 ┆e+1)+1 of begin ┆
0x77e00…77e06 (959,) (0x324,0xefd)
0x77e06…77e20 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 70 63 5f 69 6e 70 73 74 61 74 65 ┆ (w3).pc_inpstate┆
0x77e20…77e40 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 72 6d 61 6c 20 ┆:= w0; begin ! normal ┆
0x77e40…77e60 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 20 77 32 3a 3d ┆input mode ! if w2:=┆
0x77e60…77e7e 28 77 33 29 2e 74 63 5f 73 74 61 74 65 3e 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 ┆(w3).tc_state>0 then ┆
0x77e7e…77e84 (0x324,0xefe)
0x77e84…77ea0 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 2e ┆ begin (w3).┆
0x77ea0…77ec0 70 63 5f 69 6e 70 73 74 61 74 65 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e ┆pc_inpstate:= w0; en┆
0x77ec0…77ee0 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 67 6f 74 6f ┆d; end; goto┆
0x77ee0…77efc 20 63 6c 6f 73 65 75 70 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 21 74 65 73 74 ┆ closeup; end; !test┆
0x77efc…77f02 (0x324,0xeff)
0x77f02…77f20 20 32 39 35 3b 0a 0a 20 20 20 20 20 20 20 20 67 6f 74 6f 20 6c 6f 6f 70 3b 0a 0a 0a 0a 63 ┆ 295; goto loop; c┆
0x77f20…77f40 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 29 3b 0a 20 ┆loseup: closebs(.w3.); ┆
0x77f40…77f60 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 20 20 ┆ updatetransport(.w3.); ┆
0x77f60…77f7a 20 20 20 20 20 20 69 66 20 77 30 3a 3d 62 2e 6f 70 72 74 64 65 74 61 69 6c 73 ┆ if w0:=b.oprtdetails┆
0x77f7a…77f80 (0x324,0xf00)
0x77f80…77fa0 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 33 2e 2c 77 ┆ onemask 1 then oproutput(.w3.,w┆
0x77fa0…77fc0 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 29 3b 0a 20 ┆0:=1,w1:=4,w2:=(w3).tc_state); ┆
0x77fc0…77fe0 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 21 ┆ end; ! get next transport !┆
0x77fe0…78000 0a 0a 73 75 69 63 69 64 65 3a 0a 20 20 20 20 20 20 72 65 6d 6f 76 65 5f 00 00 00 00 00 00 00 00 ┆ suicide: remove_ ┆
0x78000…78006 (960,) (0x324,0xf01)
0x78006…78020 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 ┆tc(.w3.,w1:=b.current); ┆
0x78020…78040 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 64 3b 0a 20 20 ┆ goto b.activate; end; ┆
0x78040…78060 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 0a 20 20 62 6f ┆end; ! pc ! !branch 2,8; bo┆
0x78060…7807e 64 79 20 6f 66 20 72 64 0a 20 20 63 6f 6d 6d 65 6e 74 20 72 65 61 64 65 72 20 63 6f 72 6f ┆dy of rd comment reader coro┆
0x7807e…78084 (0x324,0xf02)
0x78084…780a0 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 ┆utine; begin label loo┆
0x780a0…780c0 70 2c 20 6e 6f 5f 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 ┆p, no_op, closeup, suicide; ┆
0x780c0…780e0 69 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 ┆incode ref first, last; ┆
0x780e0…780fc 20 20 20 20 72 65 66 20 74 72 61 6e 73 72 65 66 2c 20 71 75 65 75 65 72 65 66 3b 0a ┆ ref transref, queueref; ┆
0x780fc…78102 (0x324,0xf03)
0x78102…78120 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 ┆ ref return; begin ┆
0x78120…78140 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 72 65 74 75 72 6e 3b ┆ return:= w3; call w3 return;┆
0x78140…78160 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 68 69 6c 65 20 77 31 ┆ ! pseudo call ! while w1┆
0x78160…7817a 3d 77 31 20 64 6f 0a 20 20 20 20 20 20 62 65 67 69 6e 20 21 20 67 65 74 20 6e ┆=w1 do begin ! get n┆
0x7817a…78180 (0x324,0xf04)
0x78180…781a0 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 31 3a 3d 20 61 64 64 ┆ext transport ! w1:= add┆
0x781a0…781c0 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 20 20 20 20 20 77 31 ┆ress((w3).tc_nexttr); w1┆
0x781c0…781e0 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 69 66 20 77 32 3a 3d ┆:= (w1).tq_next; if w2:=┆
0x781e0…78200 61 64 64 72 65 73 73 28 28 77 33 29 2e 74 63 5f 6e 65 78 74 74 72 29 3d 00 00 00 00 00 00 00 00 ┆address((w3).tc_nexttr)= ┆
0x78200…78206 (961,) (0x324,0xf05)
0x78206…78220 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 ┆w1 then goto suicide; ! en┆
0x78220…78240 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 20 77 31 3a 3d ┆d transp. queue ! w1:=┆
0x78240…78260 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 75 65 72 65 ┆ (w3).tc_nexttr; queuere┆
0x78260…7827e 66 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 72 74 28 ┆f:= w1; looktransport(┆
0x7827e…78284 (0x324,0xf06)
0x78284…782a0 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 ┆.w3.,w1:=(w1).tq_transno,w2)┆
0x782a0…782c0 3b 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 ┆; transref:= w2; ┆
0x782c0…782e0 20 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 ┆ w1:= queueref; (w3).tc_┆
0x782e0…782fc 74 72 61 6e 73 6e 6f 3a 3d 20 77 30 3a 3d 20 28 77 31 29 2e 74 71 5f 74 72 61 6e 73 ┆transno:= w0:= (w1).tq_trans┆
0x782fc…78302 (0x324,0xf07)
0x78302…78320 6e 6f 3b 0a 0a 20 20 20 20 20 20 20 20 6c 69 6e 6b 28 2e 77 33 2e 2c 77 31 3a 3d 71 75 65 ┆no; link(.w3.,w1:=que┆
0x78320…78340 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 65 66 73 74 29 29 3b ┆ueref,w2:=address(b.tqfreefst));┆
0x78340…78360 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 20 20 20 20 20 ┆ w2:= transref; ┆
0x78360…7837a 28 77 33 29 2e 74 63 5f 6f 69 6e 74 65 72 76 65 6e 74 3a 3d 20 77 30 3a 3d 20 ┆(w3).tc_ointervent:= w0:= ┆
0x7837a…78380 (0x324,0xf08)
0x78380…783a0 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 76 65 6e 74 3a 3d 20 ┆0; (w3).tc_aintervent:= ┆
0x783a0…783c0 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 3d 20 77 30 3a 3d 20 ┆w0; (w3).tc_mode:= w0:= ┆
0x783c0…783e0 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 29 2e 74 63 5f 62 73 ┆(w2).tr_mode; (w3).tc_bs┆
0x783e0…78400 6c 3a 3d 20 77 30 3a 3d 20 28 77 32 29 2e 74 72 5f 62 61 73 65 6c 3b 0a 00 00 00 00 00 00 00 00 ┆l:= w0:= (w2).tr_basel; ┆
0x78400…78406 (962,) (0x324,0xf09)
0x78406…78420 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 ┆ (w3).tc_bsu:= w0:=┆
0x78420…78440 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 29 2e 74 63 5f ┆ (w2).tr_baseu; (w3).tc_┆
0x78440…78460 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 74 70 74 72 3b ┆bsptr:= f1:= (w2).tr_bsstartptr;┆
0x78460…7847e 0a 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:= ┆
0x7847e…78484 (0x324,0xf0a)
0x78484…784a0 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 ┆0; move(.w3.,w0:=8,w┆
0x784a0…784c0 31 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 ┆1:=address((w2).tr_bsarea),w2:=a┆
0x784c0…784e0 64 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 ┆ddress((w3).tc_bsname)); ┆
0x784e0…784fc 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 28 77 ┆ move(.w3.,w0,w1:=address((w┆
0x784fc…78502 (0x324,0xf0b)
0x78502…78520 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 20 20 20 20 20 ┆1:=transref).tr_qgroup), ┆
0x78520…78540 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 33 29 2e 74 63 ┆ w2:=address((w3).tc┆
0x78540…78560 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 77 33 2e 2c 77 30 2c ┆_qgroup)); move(.w3.,w0,┆
0x78560…7857a 77 31 3a 3d 61 64 64 72 65 73 73 28 28 77 31 3a 3d 74 72 61 6e 73 72 65 66 29 ┆w1:=address((w1:=transref)┆
0x7857a…78580 (0x324,0xf0c)
0x78580…785a0 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 20 20 20 20 20 77 32 ┆.tr_qname), w2┆
0x785a0…785c0 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 3b 0a 20 20 20 20 20 ┆:=address((w3).tc_qname)); ┆
0x785c0…785e0 20 20 20 62 65 67 69 6e 20 21 20 68 6f 6c 64 20 64 65 76 69 63 65 20 21 0a 20 20 20 20 20 20 20 ┆ begin ! hold device ! ┆
0x785e0…78600 20 20 20 6f 70 72 6f 75 74 70 75 74 28 2e 77 33 2e 2c 77 30 3a 3d 31 2c 00 00 00 00 00 00 00 00 ┆ oproutput(.w3.,w0:=1, ┆
0x78600…78606 (963,) (0x324,0xf0d)
0x78606…78620 77 31 3a 3d 31 2c 77 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 32 ┆w1:=1,w2); if w2┆
0x78620…78640 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 20 ┆<>2 then begin ┆
0x78640…78660 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 20 20 20 20 20 ┆ if w0<>w0 then ┆
0x78660…7867e 62 65 67 69 6e 0a 6e 6f 5f 6f 70 3a 20 20 20 20 20 20 20 20 77 32 3a 3d 20 32 27 31 30 30 ┆begin no_op: w2:= 2'100┆
0x7867e…78684 (0x324,0xf0e)
0x78684…786a0 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 20 20 20 ┆000; end; ┆
0x786a0…786c0 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 20 ┆ (w3).tc_state:= w0:= 6; ! ┆
0x786c0…786e0 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 63 61 ┆aborted ! (w3).tc_ca┆
0x786e0…786fc 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 20 ┆use:= w0:= 3; ! operator ! ┆
0x786fc…78702 (0x324,0xf0f)
0x78702…78720 20 20 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 ┆ (w3).tc_status:= w2┆
0x78720…78740 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 3b 0a 20 20 20 20 ┆; goto closeup; ┆
0x78740…78760 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 68 6f 6c 64 28 2e 77 33 2e 2c 77 ┆ end; hold(.w3.,w┆
0x78760…7877a 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 63 ┆0:=address(no_op));(w3).tc┆
0x7877a…78780 (0x324,0xf10)
0x78780…787a0 5f 68 65 6c 64 3a 3d 77 30 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 0a 0a 20 20 20 ┆_held:=w0:=0; end; ┆
0x787a0…787c0 20 20 20 20 20 6f 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 ┆ openbs(.w3.); ! prepare are┆
0x787c0…787e0 61 20 21 0a 0a 0a 6c 6f 6f 70 3a 0a 20 20 20 20 20 20 20 20 69 66 20 77 32 3a 3d 28 77 33 29 2e ┆a ! loop: if w2:=(w3).┆
0x787e0…78800 74 63 5f 6f 69 6e 74 65 72 76 65 6e 74 3c 3e 30 20 74 68 65 6e 0a 20 20 00 00 00 00 00 00 00 00 ┆tc_ointervent<>0 then ┆
0x78800…78806 (964,) (0x324,0xf11)
0x78806…78820 20 20 20 20 20 20 62 65 67 69 6e 20 21 20 6f 70 65 72 61 74 6f 72 20 69 6e 74 ┆ begin ! operator int┆
0x78820…78840 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 20 20 20 ┆ervention ! !test 206; ┆
0x78840…78860 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 20 20 20 20 20 ┆ case w2 extract 12 of ┆
0x78860…7887e 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 21 20 73 74 61 ┆ begin begin ! sta┆
0x7887e…78884 (0x324,0xf12)
0x78884…788a0 72 74 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 72 64 5f 69 ┆rt ! (w3).rd_i┆
0x788a0…788c0 6e 70 73 74 61 74 65 3a 3d 20 77 30 3a 3d 20 28 77 33 29 2e 74 63 5f 6f 69 6e 74 65 72 76 65 6e ┆npstate:= w0:= (w3).tc_ointerven┆
0x788c0…788e0 74 20 6c 73 68 69 66 74 20 2d 31 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 20 21 ┆t lshift -12; end; !┆
0x788e0…788fc 20 73 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 ┆ start ! begin c┆
0x788fc…78902 (0x324,0xf13)
0x78902…78920 6f 6d 6d 65 6e 74 20 73 6b 69 70 3b 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 ┆omment skip;end; b┆
0x78920…78940 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 20 20 20 20 20 20 ┆egin comment repeat;end; ┆
0x78940…78960 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 20 20 20 20 20 20 ┆ begin ! restart ! ┆
0x78960…7897a 20 20 20 20 20 21 20 63 6f 6d 6d 61 6e 64 20 6e 6f 74 20 61 6c 6c 6f 77 65 64 ┆ ! command not allowed┆
0x7897a…78980 (0x324,0xf14)
0x78980…789a0 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 20 20 ┆ ! end; ┆
0x789a0…789c0 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 20 6f 70 ┆begin ! stop ! op┆
0x789c0…789e0 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 0a 20 20 ┆routput(.w3.,w0:=1,w1:=3,w2); ┆
0x789e0…78a00 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 32 3c 3e 32 20 74 68 65 00 00 00 00 00 00 00 00 ┆ if w2<>2 the ┆
0x78a00…78a06 (965,) (0x324,0xf15)
0x78a06…78a20 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 ┆
0x78a20…78a40 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 3d ┆ (w3).tc_state:= w0:=┆
0x78a40…78a60 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 20 20 20 20 20 ┆ 6; ! aborted ! ┆
0x78a60…78a7e 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 70 65 72 ┆(w3).tc_cause:= w0:= 3; ! oper┆
0x78a7e…78a84 (0x324,0xf16)
0x78a84…78aa0 61 74 6f 72 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e ┆ator ! (w3).┆
0x78aa0…78ac0 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 20 20 20 20 20 20 ┆tc_status:= w2; ┆
0x78ac0…78ae0 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 6e 64 3b ┆goto closeup; end;┆
0x78ae0…78afc 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 ┆ (w3).tc_ointe┆
0x78afc…78b02 (0x324,0xf17)
0x78b02…78b20 72 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 ┆rvent:= w0:= 0; ┆
0x78b20…78b40 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 70 29 29 3b 28 77 ┆hold(.w3.,w0:=address(no_op));(w┆
0x78b40…78b60 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 20 20 20 ┆3).tc_held:=w0:=0; ┆
0x78b60…78b7a 20 67 6f 74 6f 20 6c 6f 6f 70 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e ┆ goto loop; en┆
0x78b7a…78b80 (0x324,0xf18)
0x78b80…78ba0 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 21 20 6b 69 6c 6c 20 21 0a 20 20 ┆d; begin ! kill ! ┆
0x78ba0…78bc0 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 3d ┆ (w3).tc_state:= w0:=┆
0x78bc0…78be0 20 37 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 ┆ 7; ! killed by operator ! ┆
0x78be0…78c00 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 63 6c 6f 73 65 75 70 3b 0a 20 00 00 00 00 00 00 00 00 ┆ goto closeup; ┆
0x78c00…78c06 (966,) (0x324,0xf19)
0x78c06…78c20 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 65 ┆ end e┆
0x78c20…78c40 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 2e 74 63 5f 6f ┆nd; ! case ! (w3).tc_o┆
0x78c40…78c60 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 20 65 6e 64 3b ┆intervent:= w2:= 0; end;┆
0x78c60…78c7e 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 6e 74 65 ┆ if w2:=(w3).tc_ainte┆
0x78c7e…78c84 (0x324,0xf1a)
0x78c84…78ca0 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 ┆rvent<>0 then begin ┆
0x78ca0…78cc0 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 38 ┆ (w3).tc_state:= w0:= 8┆
0x78cc0…78ce0 3b 20 21 20 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 67 ┆; ! killed by appl ! g┆
0x78ce0…78cfc 6f 74 6f 20 63 6c 6f 73 65 75 70 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 0a 20 ┆oto closeup; end; ┆
0x78cfc…78d02 (0x324,0xf1b)
0x78d02…78d20 20 20 20 20 20 20 20 21 20 67 65 74 20 6e 65 78 74 20 69 6e 70 75 74 20 62 6c 6f 63 6b 20 ┆ ! get next input block ┆
0x78d20…78d40 21 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 ┆! w1:= (w3).tc_buf; ┆
0x78d40…78d60 20 20 20 20 28 77 31 29 2e 62 75 66 5f 6f 70 3a 3d 20 77 32 3a 3d 20 33 3b 20 28 77 31 29 2e 62 ┆ (w1).buf_op:= w2:= 3; (w1).b┆
0x78d60…78d7a 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 ┆uf_mode:= w2:= (w3).tc_mod┆
0x78d7a…78d80 (0x324,0xf1c)
0x78d80…78da0 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 3a 3d 20 77 32 3a 3d ┆e; (w1).buf_first:= w2:=┆
0x78da0…78dc0 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); ┆
0x78dc0…78de0 20 20 77 32 2b 28 77 33 29 2e 74 63 5f 62 75 66 73 69 7a 65 2d 32 3b 0a 20 20 20 20 20 20 20 20 ┆ w2+(w3).tc_bufsize-2; ┆
0x78de0…78e00 28 77 31 29 2e 62 75 66 5f 6c 61 73 74 3a 3d 20 77 32 3b 0a 20 20 20 20 00 00 00 00 00 00 00 00 ┆(w1).buf_last:= w2; ┆
0x78e00…78e06 (967,) (0x324,0xf1d)
0x78e06…78e20 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┆
0x78e20…78e40 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)); ┆
0x78e40…78e60 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 30 2c 77 31 3a ┆ check_devicestatus(.w3.,w0,w1:┆
0x78e60…78e7e 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 0a 20 20 ┆=address(b.ans_status),w2); ┆
0x78e7e…78e84 (0x324,0xf1e)
0x78e84…78ea0 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; ┆
0x78ea0…78ec0 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 0a 20 20 ┆ if w0:=b.ans_bytes=0 then ┆
0x78ec0…78ee0 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 32 3d 32 20 74 68 ┆ begin if w2=2 th┆
0x78ee0…78efc 65 6e 20 67 6f 74 6f 20 6c 6f 6f 70 3b 0a 0a 20 20 20 20 20 20 20 20 20 20 28 77 31 ┆en goto loop; (w1┆
0x78efc…78f02 (0x324,0xf1f)
0x78f02…78f20 29 2e 62 75 66 5f 64 61 74 61 31 3a 3d 20 77 30 3a 3d 20 34 27 30 31 32 31 30 31 32 31 30 ┆).buf_data1:= w0:= 4'012101210┆
0x78f20…78f40 31 32 31 3b 20 21 20 22 3c 32 35 3e 3c 32 35 3e 3c 32 35 3e 22 20 21 0a 20 20 20 20 20 20 20 20 ┆121; ! "<25><25><25>" ! ┆
0x78f40…78f60 20 20 69 66 20 77 30 3a 3d 20 38 27 30 31 30 30 30 30 30 32 20 21 20 65 6e 64 20 64 6f 63 2c 20 ┆ if w0:= 8'01000002 ! end doc, ┆
0x78f60…78f7a 6e 6f 72 6d 61 6c 20 21 20 6f 6e 65 6d 61 73 6b 20 77 32 20 74 68 65 6e 0a 20 ┆normal ! onemask w2 then ┆
0x78f7a…78f80 (0x324,0xf20)
0x78f80…78fa0 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 20 77 30 ┆ begin if w0┆
0x78fa0…78fc0 3a 3d 28 77 33 29 2e 72 64 5f 69 6e 70 73 74 61 74 65 3e 30 20 74 68 65 6e 0a 20 20 20 20 20 20 ┆:=(w3).rd_inpstate>0 then ┆
0x78fc0…78fe0 20 20 20 20 20 20 62 65 67 69 6e 20 21 20 66 69 6c 65 20 63 6f 6e 74 69 6e 75 65 73 20 6f 6e 20 ┆ begin ! file continues on ┆
0x78fe0…79000 61 6e 6f 74 68 65 72 20 74 61 70 65 20 21 0a 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆another tape ! ┆
0x79000…79006 (968,) (0x324,0xf21)
0x79006…79020 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,┆
0x79020…79040 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 3c 3e ┆w1:=2,w2); if w2<>┆
0x79040…79060 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 20 20 ┆2 then begin ┆
0x79060…7907e 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:┆
0x7907e…79084 (0x324,0xf22)
0x79084…790a0 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 ┆= 6; ! aborted ! ┆
0x790a0…790c0 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 6f ┆ (w3).tc_cause:= w0:= 3; ! o┆
0x790c0…790e0 70 65 72 61 74 6f 72 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 ┆perator ! (w3).t┆
0x790e0…790fc 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 20 ┆c_status:= w2; ┆
0x790fc…79102 (0x324,0xf23)
0x79102…79120 20 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 ┆ end else ┆
0x79120…79140 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 68 6f ┆ begin ho┆
0x79140…79160 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)┆
0x79160…7917a 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 ┆.tc_held:=w0:=0; ┆
0x7917a…79180 (0x324,0xf24)
0x79180…791a0 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; ┆
0x791a0…791c0 65 6e 64 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 20 20 ┆end; end ┆
0x791c0…791e0 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 ┆
0x791e0…79200 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 73 74 61 74 65 3a 3d 20 77 30 00 00 00 00 00 00 00 00 ┆ (w3).tc_state:= w0 ┆
0x79200…79206 (969,) (0x324,0xf25)
0x79206…79220 3a 3d 20 35 3b 20 21 20 63 6f 6d 70 6c 65 74 65 64 20 21 0a 20 20 20 20 20 20 ┆:= 5; ! completed ! ┆
0x79220…79240 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 20 20 20 20 20 ┆ end; end ┆
0x79240…79260 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 20 20 20 20 20 ┆ else begin ┆
0x79260…7927e 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 20 ┆ (w3).tc_state:= w0:= 6; ! ┆
0x7927e…79284 (0x324,0xf26)
0x79284…792a0 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 ┆aborted ! (w3).t┆
0x792a0…792c0 63 5f 63 61 75 73 65 3a 3d 20 77 30 3a 3d 20 31 3b 20 21 20 73 65 6e 64 65 72 20 21 0a 20 20 20 ┆c_cause:= w0:= 1; ! sender ! ┆
0x792c0…792e0 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 20 20 ┆ (w3).tc_status:= w2; ┆
0x792e0…792fc 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 20 ┆ end; w0:= ┆
0x792fc…79302 (0x324,0xf27)
0x79302…79320 32 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 ┆2; end; w1:= (┆
0x79320…79340 77 31 29 2e 62 75 66 5f 66 69 72 73 74 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 32 3a 3d 28 77 ┆w1).buf_first; if w2:=(w┆
0x79340…79360 31 29 2e 77 6f 72 64 3c 3e 34 27 30 31 32 31 30 31 32 31 30 31 32 31 20 74 68 65 6e 20 74 65 73 ┆1).word<>4'012101210121 then tes┆
0x79360…7937a 74 6f 75 74 28 2e 77 33 2e 2c 77 30 2c 77 31 2c 77 32 3a 3d 30 29 3b 0a 0a 0a ┆tout(.w3.,w0,w1,w2:=0); ┆
0x7937a…79380 (0x324,0xf28)
0x79380…793a0 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 2c 77 31 2c 77 32 29 ┆ put_block(.w3.,w0,w1,w2)┆
0x793a0…793c0 3b 0a 20 20 20 20 20 20 20 20 77 31 3a 3d 77 30 3b 20 77 30 3a 3d 30 3b 0a 20 20 20 20 20 20 20 ┆; w1:=w0; w0:=0; ┆
0x793c0…793e0 20 69 66 20 77 32 3d 32 20 74 68 65 6e 20 28 77 33 29 2e 74 63 5f 62 73 70 74 72 3a 3d 20 66 31 ┆ if w2=2 then (w3).tc_bsptr:= f1┆
0x793e0…79400 2b 28 77 33 29 2e 74 63 5f 62 73 70 74 72 0a 20 20 20 20 20 20 20 20 65 00 00 00 00 00 00 00 00 ┆+(w3).tc_bsptr e ┆
0x79400…79406 (970,) (0x324,0xf29)
0x79406…79420 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 ┆lse begin ┆
0x79420…79440 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 61 62 6f 72 ┆ (w3).tc_state:= w0:= 6; ! abor┆
0x79440…79460 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 73 65 3a 3d 20 ┆ted ! (w3).tc_cause:= ┆
0x79460…7947e 77 30 3a 3d 20 32 3b 20 21 20 72 65 63 65 69 76 65 72 20 21 0a 20 20 20 20 20 20 20 20 20 ┆w0:= 2; ! receiver ! ┆
0x7947e…79484 (0x324,0xf2a)
0x79484…794a0 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 ┆ (w3).tc_status:= w2; ┆
0x794a0…794c0 20 20 65 6e 64 3b 0a 0a 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 33 29 2e 74 63 5f ┆ end; if w0:=(w3).tc_┆
0x794c0…794e0 73 74 61 74 65 3d 30 20 74 68 65 6e 20 67 6f 74 6f 20 6c 6f 6f 70 3b 0a 20 20 20 20 20 20 20 20 ┆state=0 then goto loop; ┆
0x794e0…794fc 70 75 74 5f 62 6c 6f 63 6b 28 2e 77 33 2e 2c 77 30 3a 3d 2d 31 2c 77 31 2c 77 32 29 ┆put_block(.w3.,w0:=-1,w1,w2)┆
0x794fc…79502 (0x324,0xf2b)
0x79502…79520 3b 20 21 20 63 6c 6f 73 65 20 66 69 6c 65 20 21 0a 0a 0a 0a 63 6c 6f 73 65 75 70 3a 0a 20 ┆; ! close file ! closeup: ┆
0x79520…79540 20 20 20 20 20 20 20 63 6c 6f 73 65 62 73 28 2e 77 33 2e 29 3b 0a 20 20 20 20 20 20 20 20 75 70 ┆ closebs(.w3.); up┆
0x79540…79560 64 61 74 65 74 72 61 6e 73 70 6f 72 74 28 2e 77 33 2e 29 3b 0a 20 20 20 20 20 20 20 20 69 66 20 ┆datetransport(.w3.); if ┆
0x79560…7957a 77 30 3a 3d 62 2e 6f 70 72 74 64 65 74 61 69 6c 73 20 6f 6e 65 6d 61 73 6b 20 ┆w0:=b.oprtdetails onemask ┆
0x7957a…79580 (0x324,0xf2c)
0x79580…795a0 31 20 74 68 65 6e 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 ┆1 then oproutput(.w3.,w0:=1,w1:=┆
0x795a0…795c0 34 2c 77 32 3a 3d 28 77 33 29 2e 74 63 5f 73 74 61 74 65 29 3b 0a 20 20 20 20 20 20 65 6e 64 3b ┆4,w2:=(w3).tc_state); end;┆
0x795c0…795e0 20 21 20 67 65 74 20 6e 65 78 74 20 74 72 61 6e 73 70 6f 72 74 20 21 0a 0a 73 75 69 63 69 64 65 ┆ ! get next transport ! suicide┆
0x795e0…79600 3a 0a 20 20 20 20 20 20 72 65 6d 6f 76 65 5f 74 63 28 2e 77 33 2e 2c 77 00 00 00 00 00 00 00 00 ┆: remove_tc(.w3.,w ┆
0x79600…79606 (971,) (0x324,0xf2d)
0x79606…79620 31 3a 3d 62 2e 63 75 72 72 65 6e 74 29 3b 0a 20 20 20 20 20 20 67 6f 74 6f 20 ┆1:=b.current); goto ┆
0x79620…79640 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 72 64 ┆b.activate; end; end; ! rd┆
0x79640…79660 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 66 20 74 77 0a ┆ ! !branch 2,9; body of tw ┆
0x79660…7967e 20 20 63 6f 6d 6d 65 6e 74 20 74 74 79 20 63 6f 72 6f 75 74 69 6e 65 3b 0a 20 20 62 65 67 ┆ comment tty coroutine; beg┆
0x7967e…79684 (0x324,0xf2e)
0x79684…796a0 69 6e 0a 20 20 20 20 6c 61 62 65 6c 20 6c 6f 6f 70 2c 20 63 6c 6f 73 65 75 70 2c 20 ┆in label loop, closeup, ┆
0x796a0…796c0 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┆
0x796c0…796e0 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 20 71 ┆rst, last; ref transref, q┆
0x796e0…796fc 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 0a 20 ┆ueueref; ref return; ┆
0x796fc…79702 (0x324,0xf2f)
0x79702…79720 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┆
0x79720…79740 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 ! ┆
0x79740…79760 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 20 ┆ while w1=w1 do begin ┆
0x79760…7977a 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 ┆! get next transport ! ┆
0x7977a…79780 (0x324,0xf30)
0x79780…797a0 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┆
0x797a0…797c0 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; ┆
0x797c0…797e0 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┆
0x797e0…79800 74 74 72 29 3d 77 31 20 74 68 65 6e 20 67 6f 74 6f 20 73 75 69 63 69 64 00 00 00 00 00 00 00 00 ┆ttr)=w1 then goto suicid ┆
0x79800…79806 (972,) (0x324,0xf31)
0x79806…79820 65 3b 20 21 20 65 6e 64 20 74 72 61 6e 73 70 2e 20 71 75 65 75 65 20 21 0a 0a ┆e; ! end transp. queue ! ┆
0x79820…79840 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 72 3b 0a 20 20 ┆ w1:= (w3).tc_nexttr; ┆
0x79840…79860 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 20 20 6c 6f 6f ┆ queueref:= w1; loo┆
0x79860…7987e 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 71 5f 74 72 ┆ktransport(.w3.,w1:=(w1).tq_tr┆
0x7987e…79884 (0x324,0xf32)
0x79884…798a0 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 ┆ansno,w2); transref:┆
0x798a0…798c0 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; ┆
0x798c0…798e0 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 31 29 ┆ (w3).tc_transno:= w0:= (w1)┆
0x798e0…798fc 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 28 2e ┆.tq_transno; link(.┆
0x798fc…79902 (0x324,0xf33)
0x79902…79920 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┆
0x79920…79940 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┆
0x79940…79960 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 65 6e 74 3a ┆ref; (w3).tc_ointervent:┆
0x79960…7997a 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 ┆= w0:= 0; (w3).tc_┆
0x7997a…79980 (0x324,0xf34)
0x79980…799a0 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┆
0x799a0…799c0 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; ┆
0x799c0…799e0 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 2e 74 72 5f 62 61 ┆ (w3).tc_bsl:= w0:= (w2).tr_ba┆
0x799e0…79a00 73 65 6c 3b 0a 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 62 73 75 00 00 00 00 00 00 00 00 ┆sel; (w3).tc_bsu ┆
0x79a00…79a06 (973,) (0x324,0xf35)
0x79a06…79a20 3a 3d 20 77 30 3a 3d 20 28 77 32 29 2e 74 72 5f 62 61 73 65 75 3b 0a 20 20 20 ┆:= w0:= (w2).tr_baseu; ┆
0x79a20…79a40 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 2e 74 ┆ (w3).tc_bsptr:= f1:= (w2).t┆
0x79a40…79a60 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 74 63 5f 73 74 ┆r_bsstartptr; (w3).tc_st┆
0x79a60…79a7e 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 28 2e 77 33 ┆ate:= w0:= 0; move(.w3┆
0x79a7e…79a84 (0x324,0xf36)
0x79a84…79aa0 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 ┆.,w0:=8,w1:=address((w2).tr_┆
0x79aa0…79ac0 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┆
0x79ac0…79ae0 6d 65 29 29 3b 0a 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 77 5f 69 6e 70 73 74 61 74 65 3a 3d ┆me)); (w3).tw_inpstate:=┆
0x79ae0…79afc 20 77 30 3a 3d 20 35 3b 0a 20 20 20 20 20 20 20 20 6f 70 72 6f 75 74 70 75 74 28 2e ┆ w0:= 5; oproutput(.┆
0x79afc…79b02 (0x324,0xf37)
0x79b02…79b20 77 33 2e 2c 77 30 3a 3d 31 2c 77 31 3a 3d 35 2c 77 32 29 3b 0a 20 20 20 20 20 20 20 20 69 ┆w3.,w0:=1,w1:=5,w2); i┆
0x79b20…79b40 66 20 77 32 3c 3e 32 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 ┆f w2<>2 then begin ┆
0x79b40…79b60 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 20 61 ┆ (w3).tc_state:= w0:= 6; ! a┆
0x79b60…79b7a 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 ┆borted ! (w3).tc┆
0x79b7a…79b80 (0x324,0xf38)
0x79b80…79ba0 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 20 20 ┆_cause:= w0:= 3; ! operator ! ┆
0x79ba0…79bc0 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; ┆
0x79bc0…79be0 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 65 6e 64 ┆ goto closeup; end┆
0x79be0…79c00 3b 0a 0a 0a 20 20 20 20 20 20 20 20 6f 70 65 6e 62 73 28 2e 77 33 2e 29 00 00 00 00 00 00 00 00 ┆; openbs(.w3.) ┆
0x79c00…79c06 (974,) (0x324,0xf39)
0x79c06…79c20 3b 20 21 20 70 72 65 70 61 72 65 20 61 72 65 61 20 21 0a 0a 0a 6c 6f 6f 70 3a ┆; ! prepare area ! loop:┆
0x79c20…79c40 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 6e 74 65 72 76 ┆ if w2:=(w3).tc_ainterv┆
0x79c40…79c60 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 20 20 ┆ent<>0 then begin ┆
0x79c60…79c7e 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; ! ┆
0x79c7e…79c84 (0x324,0xf3a)
0x79c84…79ca0 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 67 ┆killed by appl ! g┆
0x79ca0…79cc0 6f 74 6f 20 63 6c 6f 73 65 75 70 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 0a 20 20 20 20 20 ┆oto closeup; end; ┆
0x79cc0…79ce0 20 20 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 20 20 20 ┆ ! get next input block ! ┆
0x79ce0…79cfc 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; ┆
0x79cfc…79d02 (0x324,0xf3b)
0x79d02…79d20 20 20 28 77 31 29 2e 62 75 66 5f 6f 70 3a 3d 20 77 32 3a 3d 20 33 3b 20 28 77 31 29 2e 62 ┆ (w1).buf_op:= w2:= 3; (w1).b┆
0x79d20…79d40 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 0a 20 20 20 ┆uf_mode:= w2:= (w3).tc_mode; ┆
0x79d40…79d60 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 3d 20 61 64 64 72 65 ┆ (w1).buf_first:= w2:= addre┆
0x79d60…79d7a 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 ┆ss((w1).buf_data1); ┆
0x79d7a…79d80 (0x324,0xf3c)
0x79d80…79da0 20 20 77 32 2b 28 77 33 29 2e 74 63 5f 62 75 66 73 69 7a 65 2d 32 3b 0a 20 20 20 20 20 20 20 20 ┆ w2+(w3).tc_bufsize-2; ┆
0x79da0…79dc0 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 73 65 6e 64 ┆(w1).buf_last:= w2; send┆
0x79dc0…79de0 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 28 28 77 33 29 ┆wait(.w3.,w0,w1,w2:=address((w3)┆
0x79de0…79e00 2e 74 63 5f 6e 61 6d 65 29 29 3b 0a 20 20 20 20 20 20 20 20 63 68 65 63 00 00 00 00 00 00 00 00 ┆.tc_name)); chec ┆
0x79e00…79e06 (975,) (0x324,0xf3d)
0x79e06…79e20 6b 5f 64 65 76 69 63 65 73 74 61 74 75 73 28 2e 77 33 2e 2c 77 30 2c 77 31 3a ┆k_devicestatus(.w3.,w0,w1:┆
0x79e20…79e40 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 0a 20 20 20 20 ┆=address(b.ans_status),w2); ┆
0x79e40…79e60 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 20 20 69 66 ┆ w1:= (w3).tc_buf; if┆
0x79e60…79e7e 20 77 30 3a 3d 62 2e 61 6e 73 5f 62 79 74 65 73 3d 30 20 74 68 65 6e 0a 20 20 20 20 20 20 ┆ w0:=b.ans_bytes=0 then ┆
0x79e7e…79e84 (0x324,0xf3e)
0x79e84…79ea0 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 32 3d 32 20 74 68 ┆ begin if w2=2 th┆
0x79ea0…79ec0 65 6e 20 67 6f 74 6f 20 6c 6f 6f 70 3b 0a 0a 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 62 75 ┆en goto loop; (w1).bu┆
0x79ec0…79ee0 66 5f 64 61 74 61 31 3a 3d 20 77 30 3a 3d 20 34 27 30 31 32 31 30 31 32 31 30 31 32 31 3b 20 21 ┆f_data1:= w0:= 4'012101210121; !┆
0x79ee0…79efc 20 22 3c 32 35 3e 3c 32 35 3e 3c 32 35 3e 22 20 21 0a 20 20 20 20 20 20 20 20 20 20 ┆ "<25><25><25>" ! ┆
0x79efc…79f02 (0x324,0xf3f)
0x79f02…79f20 69 66 20 77 30 3a 3d 20 38 27 31 30 30 30 30 30 30 32 20 21 20 74 69 6d 65 72 20 2c 20 6e ┆if w0:= 8'10000002 ! timer , n┆
0x79f20…79f40 6f 72 6d 61 6c 20 21 20 6f 6e 65 6d 61 73 6b 20 77 32 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 ┆ormal ! onemask w2 then ┆
0x79f40…79f60 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 33 29 2e ┆ begin if w0:=(w3).┆
0x79f60…79f7a 74 77 5f 69 6e 70 73 74 61 74 65 3e 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 ┆tw_inpstate>0 then ┆
0x79f7a…79f80 (0x324,0xf40)
0x79f80…79fa0 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 2e 74 77 ┆ begin (w3).tw┆
0x79fa0…79fc0 5f 69 6e 70 73 74 61 74 65 3a 3d 20 77 30 2d 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆_inpstate:= w0-1; ┆
0x79fc0…79fe0 67 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 0a 20 20 20 20 20 ┆goto loop; end ┆
0x79fe0…7a000 20 20 20 20 20 20 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 ┆ else ┆
0x7a000…7a006 (976,) (0x324,0xf41)
0x7a006…7a020 62 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 ┆begin (w3).t┆
0x7a020…7a040 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 65 64 20 21 0a ┆c_state:= w0:= 5; ! completed ! ┆
0x7a040…7a060 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 0a 20 ┆ end; end ┆
0x7a060…7a07e 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 ┆ else begin ┆
0x7a07e…7a084 (0x324,0xf42)
0x7a084…7a0a0 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:= ┆
0x7a0a0…7a0c0 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 20 ┆w0:= 6; ! aborted ! ┆
0x7a0c0…7a0e0 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 20 73 65 6e 64 65 72 ┆(w3).tc_cause:= w0:= 1; ! sender┆
0x7a0e0…7a0fc 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 61 74 75 ┆ ! (w3).tc_statu┆
0x7a0fc…7a102 (0x324,0xf43)
0x7a102…7a120 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 20 20 20 ┆s:= w2; end; ┆
0x7a120…7a140 20 20 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 20 20 20 65 ┆ w0:= 2; end e┆
0x7a140…7a160 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 77 5f 69 6e 70 73 74 61 74 65 3a 3d ┆lse (w3).tw_inpstate:=┆
0x7a160…7a17a 20 77 32 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 77 31 3a 3d 20 28 77 31 29 ┆ w2:= 0; w1:= (w1)┆
0x7a17a…7a180 (0x324,0xf44)
0x7a180…7a1a0 2e 62 75 66 5f 66 69 72 73 74 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 32 3a 3d 28 77 31 29 2e ┆.buf_first; if w2:=(w1).┆
0x7a1a0…7a1c0 77 6f 72 64 3c 3e 34 27 30 31 32 31 30 31 32 31 30 31 32 31 20 74 68 65 6e 20 74 65 73 74 6f 75 ┆word<>4'012101210121 then testou┆
0x7a1c0…7a1e0 74 28 2e 77 33 2e 2c 77 30 2c 77 31 2c 77 32 3a 3d 30 29 3b 0a 0a 0a 20 20 20 20 20 20 20 20 70 ┆t(.w3.,w0,w1,w2:=0); p┆
0x7a1e0…7a200 75 74 5f 62 6c 6f 63 6b 28 2e 77 33 2e 2c 77 30 2c 77 31 2c 77 32 29 3b 00 00 00 00 00 00 00 00 ┆ut_block(.w3.,w0,w1,w2); ┆
0x7a200…7a206 (977,) (0x324,0xf45)
0x7a206…7a220 0a 20 20 20 20 20 20 20 20 77 31 3a 3d 77 30 3b 20 77 30 3a 3d 30 3b 0a 20 20 ┆ w1:=w0; w0:=0; ┆
0x7a220…7a240 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 62 73 70 74 72 ┆ if w2=2 then (w3).tc_bsptr┆
0x7a240…7a260 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 20 65 6c 73 65 ┆:= f1+(w3).tc_bsptr else┆
0x7a260…7a27e 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 29 2e ┆ begin (w3).┆
0x7a27e…7a284 (0x324,0xf46)
0x7a284…7a2a0 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 ┆tc_state:= w0:= 6; ! aborted┆
0x7a2a0…7a2c0 20 21 0a 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:┆
0x7a2c0…7a2e0 3d 20 32 3b 20 21 20 72 65 63 65 69 76 65 72 20 21 0a 20 20 20 20 20 20 20 20 20 20 28 77 33 29 ┆= 2; ! receiver ! (w3)┆
0x7a2e0…7a2fc 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 65 6e 64 ┆.tc_status:= w2; end┆
0x7a2fc…7a302 (0x324,0xf47)
0x7a302…7a320 3b 0a 0a 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 33 29 2e 74 63 5f 73 74 61 ┆; if w0:=(w3).tc_sta┆
0x7a320…7a340 74 65 3d 30 20 74 68 65 6e 20 67 6f 74 6f 20 6c 6f 6f 70 3b 0a 20 20 20 20 20 20 20 20 70 75 74 ┆te=0 then goto loop; put┆
0x7a340…7a360 5f 62 6c 6f 63 6b 28 2e 77 33 2e 2c 77 30 3a 3d 2d 31 2c 77 31 2c 77 32 29 3b 20 21 20 63 6c 6f ┆_block(.w3.,w0:=-1,w1,w2); ! clo┆
0x7a360…7a37a 73 65 20 66 69 6c 65 20 21 0a 0a 0a 0a 63 6c 6f 73 65 75 70 3a 0a 20 20 20 20 ┆se file ! closeup: ┆
0x7a37a…7a380 (0x324,0xf48)
0x7a380…7a3a0 20 20 20 20 69 66 20 77 30 3a 3d 62 2e 6f 70 72 74 64 65 74 61 69 6c 73 20 6f 6e 65 6d 61 73 6b ┆ if w0:=b.oprtdetails onemask┆
0x7a3a0…7a3c0 20 31 20 74 68 65 6e 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 ┆ 1 then oproutput(.w3.,w0:=1,w1:┆
0x7a3c0…7a3e0 3d 34 2c 77 32 3a 3d 28 77 33 29 2e 74 63 5f 73 74 61 74 65 29 3b 0a 20 20 20 20 20 20 20 20 63 ┆=4,w2:=(w3).tc_state); c┆
0x7a3e0…7a400 6c 6f 73 65 62 73 28 2e 77 33 2e 29 3b 0a 20 20 20 20 20 20 20 20 75 70 00 00 00 00 00 00 00 00 ┆losebs(.w3.); up ┆
0x7a400…7a406 (978,) (0x324,0xf49)
0x7a406…7a420 64 61 74 65 74 72 61 6e 73 70 6f 72 74 28 2e 77 33 2e 29 3b 0a 20 20 20 20 20 ┆datetransport(.w3.); ┆
0x7a420…7a440 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 21 0a 0a 73 75 ┆ end; ! get next transport ! su┆
0x7a440…7a460 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 2c 77 31 3a 3d ┆icide: remove_tc(.w3.,w1:=┆
0x7a460…7a47e 62 2e 63 75 72 72 65 6e 74 29 3b 0a 20 20 20 20 20 20 67 6f 74 6f 20 62 2e 61 63 74 69 76 ┆b.current); goto b.activ┆
0x7a47e…7a484 (0x324,0xf4a)
0x7a484…7a4a0 61 74 65 3b 0a 20 20 20 20 65 6e 64 3b 0a 20 20 65 6e 64 3b 20 21 20 74 77 20 21 0a ┆ate; end; end; ! tw ! ┆
0x7a4a0…7a4c0 0a 0a 21 62 72 61 6e 63 68 20 32 2c 31 30 3b 0a 0a 0a 20 20 62 6f 64 79 20 6f 66 20 67 65 74 6c ┆ !branch 2,10; body of getl┆
0x7a4c0…7a4e0 69 6e 65 73 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 6c 61 62 65 6c 20 72 65 70 2c 20 65 78 69 74 ┆ines begin label rep, exit┆
0x7a4e0…7a4fc 3b 0a 0a 20 20 20 20 72 65 63 6f 72 64 20 63 6f 6e 76 5f 68 65 61 64 65 72 28 62 79 ┆; record conv_header(by┆
0x7a4fc…7a502 (0x324,0xf4b)
0x7a502…7a520 74 65 20 73 72 63 63 61 72 2c 20 73 72 63 73 69 7a 65 29 3b 20 21 20 73 72 63 73 69 7a 65 ┆te srccar, srcsize); ! srcsize┆
0x7a520…7a540 3d 73 69 7a 65 20 6f 66 20 65 6e 74 72 79 20 21 0a 0a 20 20 20 20 69 6e 63 6f 64 65 20 0a 20 20 ┆=size of entry ! incode ┆
0x7a540…7a560 20 20 77 6f 72 64 20 20 7a 65 72 6f 3a 3d 20 30 2c 20 73 74 61 74 75 73 3b 0a 20 20 20 20 77 6f ┆ word zero:= 0, status; wo┆
0x7a560…7a57a 72 64 20 20 62 75 66 5f 6f 70 3b 0a 20 20 20 20 72 65 66 20 20 20 62 75 66 5f ┆rd buf_op; ref buf_┆
0x7a57a…7a580 (0x324,0xf4c)
0x7a580…7a5a0 66 61 2c 20 62 75 66 5f 6c 61 3b 0a 20 20 20 20 77 6f 72 64 20 20 62 75 66 5f 73 65 67 6e 6f 3b ┆fa, buf_la; word buf_segno;┆
0x7a5a0…7a5c0 0a 20 20 20 20 72 65 66 20 20 20 64 65 73 74 5f 65 6e 64 2c 20 73 6f 75 72 63 65 5f 65 6e 64 3b ┆ ref dest_end, source_end;┆
0x7a5c0…7a5e0 0a 20 20 20 20 72 65 66 20 20 20 73 74 61 72 74 5f 73 65 71 75 65 6e 63 65 2c 20 65 6e 64 5f 73 ┆ ref start_sequence, end_s┆
0x7a5e0…7a600 65 71 75 65 6e 63 65 3b 0a 20 20 20 20 77 6f 72 64 20 20 63 6f 6e 76 2c 00 00 00 00 00 00 00 00 ┆equence; word conv, ┆
0x7a600…7a606 (979,) (0x324,0xf4d)
0x7a606…7a620 63 68 61 72 3b 0a 20 20 20 20 72 65 66 20 20 20 73 78 2c 20 64 78 3b 0a 20 20 ┆char; ref sx, dx; ┆
0x7a620…7a640 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 65 74 75 72 6e ┆ ref relative, savew2, return┆
0x7a640…7a660 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 72 74 69 61 6c ┆; word s_partial, d_partial┆
0x7a660…7a67e 2c 20 70 61 72 74 69 61 6c 3b 20 21 20 73 6f 75 72 63 65 2f 64 65 73 74 69 6e 61 74 69 6f ┆, partial; ! source/destinatio┆
0x7a67e…7a684 (0x324,0xf4e)
0x7a684…7a6a0 6e 2d 70 61 72 74 69 61 6c 20 77 6f 72 64 20 21 0a 20 20 20 20 77 6f 72 64 20 20 74 ┆n-partial word ! word t┆
0x7a6a0…7a6c0 72 61 69 6c 30 2c 20 73 65 67 6d 65 6e 74 3b 0a 0a 20 20 20 20 62 65 67 69 6e 0a 0a 20 20 20 20 ┆rail0, segment; begin ┆
0x7a6c0…7a6e0 20 20 63 6f 6d 6d 65 6e 74 20 69 6e 69 74 69 61 6c 69 7a 65 20 6c 6f 63 61 6c 20 70 6f 69 6e 74 ┆ comment initialize local point┆
0x7a6e0…7a6fc 65 72 73 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 ┆ers; return:= w3; ┆
0x7a6fc…7a702 (0x324,0xf4f)
0x7a702…7a720 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 73 5f 70 61 72 ┆ w3:= b.current; s_par┆
0x7a720…7a740 74 69 61 6c 3a 3d 20 77 30 3a 3d 20 28 77 33 29 2e 66 70 72 5f 70 61 72 74 69 61 6c 3b 0a 20 20 ┆tial:= w0:= (w3).fpr_partial; ┆
0x7a740…7a760 20 20 20 20 28 77 33 29 2e 66 70 72 5f 73 70 61 72 74 69 61 6c 3a 3d 20 77 30 3b 20 21 20 73 61 ┆ (w3).fpr_spartial:= w0; ! sa┆
0x7a760…7a77a 76 65 20 70 61 74 69 61 6c 20 3a 3d 20 70 61 72 74 69 6c 61 20 21 0a 20 20 20 ┆ve patial := partila ! ┆
0x7a77a…7a780 (0x324,0xf50)
0x7a780…7a7a0 20 20 20 64 5f 70 61 72 74 69 61 6c 3a 3d 20 77 30 3a 3d 20 30 3b 0a 20 20 20 20 20 20 73 78 3a ┆ d_partial:= w0:= 0; sx:┆
0x7a7a0…7a7c0 3d 20 77 30 3b 64 78 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 73 74 61 74 75 73 3a 3d 20 77 30 3a ┆= w0;dx:= w0; status:= w0:┆
0x7a7c0…7a7e0 3d 20 32 3b 0a 0a 20 20 20 20 20 20 77 32 3a 3d 20 61 64 64 72 65 73 73 28 28 77 31 3a 3d 28 77 ┆= 2; w2:= address((w1:=(w┆
0x7a7e0…7a800 33 29 2e 74 63 5f 62 75 66 29 2e 62 75 66 5f 64 61 74 61 31 29 2b 34 3b 00 00 00 00 00 00 00 00 ┆3).tc_buf).buf_data1)+4; ┆
0x7a800…7a806 (980,) (0x324,0xf51)
0x7a806…7a820 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 ┆ savew2:= w2; ┆
0x7a820…7a840 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 65 73 74 5f 65 ┆w2+(w3).tc_bufsize; dest_e┆
0x7a840…7a860 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 5f 62 73 70 74 ┆nd:= w2; f1:= (w3).tc_bspt┆
0x7a860…7a87e 72 3b 0a 20 20 20 20 20 20 28 77 33 29 2e 66 70 72 5f 73 62 73 70 74 72 3a 3d 20 66 31 3b ┆r; (w3).fpr_sbsptr:= f1;┆
0x7a87e…7a884 (0x324,0xf52)
0x7a884…7a8a0 20 21 20 73 61 76 65 20 62 73 20 70 6f 69 6e 74 65 72 3a 3d 20 62 73 20 70 6f 69 6e ┆ ! save bs pointer:= bs poin┆
0x7a8a0…7a8c0 74 65 72 20 21 0a 20 20 20 20 20 20 77 31 20 65 78 74 72 61 63 74 20 39 3b 20 72 65 6c 61 74 69 ┆ter ! w1 extract 9; relati┆
0x7a8c0…7a8e0 76 65 20 3a 3d 20 77 31 3b 0a 20 20 20 20 20 20 66 31 3a 3d 20 28 77 33 29 2e 74 63 5f 62 73 70 ┆ve := w1; f1:= (w3).tc_bsp┆
0x7a8e0…7a8fc 74 72 3b 0a 20 20 20 20 20 20 77 31 20 61 73 68 69 66 74 20 2d 20 39 3b 0a 20 20 20 ┆tr; w1 ashift - 9; ┆
0x7a8fc…7a902 (0x324,0xf53)
0x7a902…7a920 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 74 68 65 6e 0a ┆ if w1<>(w3).tc_csegno then ┆
0x7a920…7a940 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 61 63 74 75 61 6c 20 73 65 67 6d 65 ┆ begin comment actual segme┆
0x7a940…7a960 6e 74 20 6e 6f 74 20 69 6e 20 63 6f 72 65 3b 0a 20 20 20 20 20 20 20 20 77 30 3a 3d 20 31 20 6c ┆nt not in core; w0:= 1 l┆
0x7a960…7a97a 73 68 69 66 74 20 32 33 3b 0a 20 20 20 20 20 20 20 20 77 31 20 6f 72 20 77 30 ┆shift 23; w1 or w0┆
0x7a97a…7a980 (0x324,0xf54)
0x7a980…7a9a0 3b 28 77 33 29 2e 74 63 5f 63 73 65 67 6e 6f 3a 3d 77 31 3b 0a 20 20 20 20 20 20 20 20 77 31 3a ┆;(w3).tc_csegno:=w1; w1:┆
0x7a9a0…7a9c0 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 73 6f 75 72 63 65 5f ┆= (w3).tc_bsbuf; source_┆
0x7a9c0…7a9e0 65 6e 64 3a 3d 20 77 31 3b 0a 20 20 20 20 20 20 65 6e 64 20 65 6c 73 65 0a 20 20 20 20 20 20 62 ┆end:= w1; end else b┆
0x7a9e0…7aa00 65 67 69 6e 0a 20 20 20 20 20 20 20 20 77 31 3a 3d 20 28 77 33 29 2e 74 00 00 00 00 00 00 00 00 ┆egin w1:= (w3).t ┆
0x7aa00…7aa06 (981,) (0x324,0xf55)
0x7aa06…7aa20 63 5f 62 73 62 75 66 3b 0a 20 20 20 20 20 20 20 20 77 30 3a 3d 20 77 31 2b 35 ┆c_bsbuf; w0:= w1+5┆
0x7aa20…7aa40 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 3b 0a 20 20 20 ┆10; source_end:= w0; ┆
0x7aa40…7aa60 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 30 3a 3d 20 30 ┆ w1+relative; w0:= 0┆
0x7aa60…7aa7e 3b 72 65 6c 61 74 69 76 65 20 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 0a 20 ┆;relative := w0; end; ┆
0x7aa7e…7aa84 (0x324,0xf56)
0x7aa84…7aaa0 20 20 20 20 20 77 32 3a 3d 20 73 61 76 65 77 32 3b 0a 20 20 20 20 20 20 63 6f 6e 76 ┆ w2:= savew2; conv┆
0x7aaa0…7aac0 3a 3d 20 77 30 3a 3d 20 30 3b 0a 20 20 20 20 20 20 77 30 3a 3d 20 28 77 33 29 2e 66 70 72 5f 70 ┆:= w0:= 0; w0:= (w3).fpr_p┆
0x7aac0…7aae0 61 72 74 69 61 6c 3b 0a 0a 0a 20 20 20 20 20 20 77 68 69 6c 65 20 77 32 3c 64 65 73 74 5f 65 6e ┆artial; while w2<dest_en┆
0x7aae0…7aafc 64 20 64 6f 0a 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 77 68 69 ┆d do begin comment whi┆
0x7aafc…7ab02 (0x324,0xf57)
0x7ab02…7ab20 6c 65 20 2d 2c 20 65 6e 64 20 6d 65 64 69 75 6d 20 61 6e 64 0a 20 20 20 20 20 20 20 20 20 ┆le -, end medium and ┆
0x7ab20…7ab40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2d 2c 20 65 6e 64 20 6f 75 74 70 75 74 20 62 ┆ -, end output b┆
0x7ab40…7ab60 75 66 66 65 72 20 64 6f 3b 0a 0a 20 20 20 20 20 20 20 20 77 30 3a 3d 20 73 5f 70 61 72 74 69 61 ┆uffer do; w0:= s_partia┆
0x7ab60…7ab7a 6c 3b 20 20 20 20 21 20 77 30 3d 70 61 72 74 69 61 6c 20 77 6f 72 64 20 21 0a ┆l; ! w0=partial word ! ┆
0x7ab7a…7ab80 (0x324,0xf58)
0x7ab80…7aba0 20 20 20 20 20 20 20 20 77 68 69 6c 65 20 77 30 3d 30 20 64 6f 20 20 20 20 20 20 21 20 69 66 20 ┆ while w0=0 do ! if ┆
0x7aba0…7abc0 77 6f 72 64 20 65 78 68 61 75 73 74 65 64 20 74 68 65 6e 20 21 0a 20 20 20 20 20 20 20 20 62 65 ┆word exhausted then ! be┆
0x7abc0…7abe0 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 69 6e 63 72 65 61 73 65 20 73 6f 75 72 63 65 20 69 6e 64 65 ┆gin comment increase source inde┆
0x7abe0…7ac00 78 3b 0a 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 63 6f 6e 00 00 00 00 00 00 00 00 ┆x; if w0:=con ┆
0x7ac00…7ac06 (982,) (0x324,0xf59)
0x7ac06…7ac20 76 3e 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 ┆v>0 then begin c┆
0x7ac20…7ac40 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 65 72 74 20 73 ┆omment take input from convert s┆
0x7ac40…7ac60 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 20 77 30 2d 32 ┆equence; conv:= w0-2┆
0x7ac60…7ac7e 3b 20 21 20 64 65 63 72 65 61 73 65 20 63 6f 6e 76 65 72 74 20 63 6f 75 6e 74 20 21 0a 20 ┆; ! decrease convert count ! ┆
0x7ac7e…7ac84 (0x324,0xf5a)
0x7ac84…7aca0 20 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 77 ┆ pop(.w3.,w0); ! w┆
0x7aca0…7acc0 30 3d 63 6f 6e 76 65 72 74 20 63 68 61 72 73 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 ┆0=convert chars ! if┆
0x7acc0…7ace0 20 77 30 3d 30 20 74 68 65 6e 20 77 31 2b 32 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 20 65 ┆ w0=0 then w1+2; end e┆
0x7ace0…7acfc 6c 73 65 20 77 31 2b 32 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 31 3e 73 6f ┆lse w1+2; if w1>so┆
0x7acfc…7ad02 (0x324,0xf5b)
0x7ad02…7ad20 75 72 63 65 5f 65 6e 64 20 74 68 65 6e 20 21 20 69 66 20 65 6e 64 20 69 6e 70 75 74 20 62 ┆urce_end then ! if end input b┆
0x7ad20…7ad40 6c 6f 63 6b 20 74 68 65 6e 20 21 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d ┆lock then ! begin comm┆
0x7ad40…7ad60 65 6e 74 20 69 6e 62 6c 6f 63 6b 20 28 73 6f 75 72 63 65 29 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆ent inblock (source); ┆
0x7ad60…7ad7a 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 ┆ w3:= b.current; ┆
0x7ad7a…7ad80 (0x324,0xf5c)
0x7ad80…7ada0 20 20 20 20 77 31 3a 3d 20 28 77 33 29 2e 74 63 5f 63 73 65 67 6e 6f 3b 0a 20 20 20 20 20 20 20 ┆ w1:= (w3).tc_csegno; ┆
0x7ada0…7adc0 20 20 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 ┆ if w1<0 then be┆
0x7adc0…7ade0 67 69 6e 0a 20 20 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 ┆gin f1:= (w3).tc_b┆
0x7ade0…7ae00 73 70 74 72 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 00 00 00 00 00 00 00 00 ┆sptr; if w ┆
0x7ae00…7ae06 (983,) (0x324,0xf5d)
0x7ae06…7ae20 31 20 7a 65 72 6f 6d 61 73 6b 20 35 31 31 20 74 68 65 6e 0a 20 20 20 20 20 20 ┆1 zeromask 511 then ┆
0x7ae20…7ae40 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 20 62 6c 6f 63 ┆ begin comment first bloc┆
0x7ae40…7ae60 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 20 20 20 20 20 ┆k of transport; ┆
0x7ae60…7ae7e 66 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 20 ┆f1 lshift - 9; ┆
0x7ae7e…7ae84 (0x324,0xf5e)
0x7ae84…7aea0 20 77 31 20 2d 20 28 77 33 29 2e 66 70 72 5f 73 74 61 72 74 73 65 67 6d 65 6e 74 3b ┆ w1 - (w3).fpr_startsegment;┆
0x7aea0…7aec0 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 20 ┆ end; ┆
0x7aec0…7aee0 20 20 69 66 20 77 31 3c 3e 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 ┆ if w1<>0 then be┆
0x7aee0…7aefc 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 72 65 6c ┆gin w1:= rel┆
0x7aefc…7af02 (0x324,0xf5f)
0x7af02…7af20 61 74 69 76 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 2b 32 3b 0a 20 ┆ative; w1+2; ┆
0x7af20…7af40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 31 3e 35 31 30 20 74 68 65 6e 0a 20 20 ┆ if w1>510 then ┆
0x7af40…7af60 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 6e 65 78 74 ┆ begin comment next┆
0x7af60…7af7a 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 ┆ segment; ┆
0x7af7a…7af80 (0x324,0xf60)
0x7af80…7afa0 20 20 77 31 3a 3d 20 30 3b 72 65 6c 61 74 69 76 65 3a 3d 20 77 31 3b 0a 20 20 20 20 20 20 20 20 ┆ w1:= 0;relative:= w1; ┆
0x7afa0…7afc0 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 20 35 31 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ w1:= 512; ┆
0x7afc0…7afe0 20 20 20 20 65 6e 64 20 65 6c 73 65 20 72 65 6c 61 74 69 76 65 20 3a 3d 20 77 31 3b 3b 0a 20 20 ┆ end else relative := w1;; ┆
0x7afe0…7b000 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 20 6c 73 68 69 66 74 20 00 00 00 00 00 00 00 00 ┆ w1 lshift ┆
0x7b000…7b006 (984,) (0x324,0xf61)
0x7b006…7b020 2d 20 39 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 ┆- 9; end; ┆
0x7b020…7b040 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 6e 6f 3b 0a 20 ┆ w1+(w3).tc_csegno; ┆
0x7b040…7b060 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 3b 0a 20 20 20 ┆ w1 and 8388607; ┆
0x7b060…7b07e 20 20 20 20 20 20 20 20 20 65 6e 64 20 65 6c 73 65 20 77 31 2b 31 3b 0a 20 20 20 20 20 20 ┆ end else w1+1; ┆
0x7b07e…7b084 (0x324,0xf62)
0x7b084…7b0a0 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 63 73 65 67 6e 6f 3a 3d 20 77 31 3b 0a 72 ┆ (w3).tc_csegno:= w1; r┆
0x7b0a0…7b0c0 65 70 3a 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 ┆ep: push(.w3.,w0:=re┆
0x7b0c0…7b0e0 74 75 72 6e 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 ┆turn); push(.w3.,w0:┆
0x7b0e0…7b0fc 3d 77 32 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 ┆=w2); push(.w3.,┆
0x7b0fc…7b102 (0x324,0xf63)
0x7b102…7b120 77 30 3a 3d 64 65 73 74 5f 65 6e 64 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 70 75 73 ┆w0:=dest_end); pus┆
0x7b120…7b140 68 28 2e 77 33 2e 2c 77 30 3a 3d 64 5f 70 61 72 74 69 61 6c 29 3b 0a 20 20 20 20 20 20 20 20 20 ┆h(.w3.,w0:=d_partial); ┆
0x7b140…7b160 20 20 20 70 75 73 68 28 2e 77 33 2e 2c 77 30 3a 3d 72 65 6c 61 74 69 76 65 29 3b 0a 20 20 20 20 ┆ push(.w3.,w0:=relative); ┆
0x7b160…7b17a 20 20 20 20 20 20 20 20 70 75 73 68 28 2e 77 33 2e 2c 77 30 3a 3d 74 72 61 69 ┆ push(.w3.,w0:=trai┆
0x7b17a…7b180 (0x324,0xf64)
0x7b180…7b1a0 6c 30 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 73 ┆l0); push(.w3.,w0:=s┆
0x7b1a0…7b1c0 78 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 64 78 ┆x); push(.w3.,w0:=dx┆
0x7b1c0…7b1e0 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 70 61 72 ┆); push(.w3.,w0:=par┆
0x7b1e0…7b200 74 69 61 6c 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 70 75 73 68 28 00 00 00 00 00 00 00 00 ┆tial); push( ┆
0x7b200…7b206 (985,) (0x324,0xf65)
0x7b206…7b220 2e 77 33 2e 2c 77 30 3a 3d 73 65 67 6d 65 6e 74 29 3b 0a 20 20 20 20 20 20 20 ┆.w3.,w0:=segment); ┆
0x7b220…7b240 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 20 20 20 20 20 ┆ w0:= (w3).tc_bsl; ┆
0x7b240…7b260 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 20 20 20 20 20 ┆ w1:= (w3).tc_bsu; ┆
0x7b260…7b27e 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 20 20 20 20 ┆ w3:= address(zero); ┆
0x7b27e…7b284 (0x324,0xf66)
0x7b284…7b2a0 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 61 6c 6f ┆ monitor(72); ! set catalo┆
0x7b2a0…7b2c0 67 20 62 61 73 65 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 20 62 2e 63 75 72 72 ┆g base ! w3:= b.curr┆
0x7b2c0…7b2e0 65 6e 74 3b 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 75 66 5f 6f 70 3a 3d 20 77 30 3a 3d 20 ┆ent; buf_op:= w0:= ┆
0x7b2e0…7b2fc 33 20 6c 73 68 69 66 74 20 31 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 75 66 ┆3 lshift 12; buf┆
0x7b2fc…7b302 (0x324,0xf67)
0x7b302…7b320 5f 66 61 3a 3d 20 77 30 3a 3d 20 28 77 33 29 2e 74 63 5f 62 73 62 75 66 3b 0a 20 20 20 20 ┆_fa:= w0:= (w3).tc_bsbuf; ┆
0x7b320…7b340 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 62 75 66 5f ┆ w0+510; buf_┆
0x7b340…7b360 6c 61 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 75 66 5f 73 65 67 6e 6f 3a 3d ┆la:= w0; buf_segno:=┆
0x7b360…7b37a 20 77 30 3a 3d 20 28 77 33 29 2e 74 63 5f 63 73 65 67 6e 6f 3b 0a 20 20 20 20 ┆ w0:= (w3).tc_csegno; ┆
0x7b37a…7b380 (0x324,0xf68)
0x7b380…7b3a0 20 20 20 20 20 20 20 20 77 31 3a 3d 20 61 64 64 72 65 73 73 28 62 75 66 5f 6f 70 29 3b 0a 20 20 ┆ w1:= address(buf_op); ┆
0x7b3a0…7b3c0 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 2e 74 63 5f 62 ┆ w2:= address((w3).tc_b┆
0x7b3c0…7b3e0 73 6e 61 6d 65 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 73 65 6e 64 77 61 69 74 28 2e 77 33 ┆sname); sendwait(.w3┆
0x7b3e0…7b400 2e 2c 77 30 2c 77 31 2c 77 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆.,w0,w1,w2); ┆
0x7b400…7b406 (986,) (0x324,0xf69)
0x7b406…7b420 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 ┆ w2:= 1 lshift w0; ┆
0x7b420…7b440 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┆
0x7b440…7b460 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 77 32 3b 0a 20 ┆atus; status:= w2; ┆
0x7b460…7b47e 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 65 67 6d 65 6e ┆ pop(.w3.,w0);segmen┆
0x7b47e…7b484 (0x324,0xf6a)
0x7b484…7b4a0 74 3a 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 ┆t:= w0; pop(.w3.┆
0x7b4a0…7b4c0 2c 77 30 29 3b 70 61 72 74 69 61 6c 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 70 ┆,w0);partial:= w0; p┆
0x7b4c0…7b4e0 6f 70 28 2e 77 33 2e 2c 77 30 29 3b 64 78 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆op(.w3.,w0);dx:= w0; ┆
0x7b4e0…7b4fc 20 70 6f 70 28 2e 77 33 2e 2c 77 30 29 3b 73 78 3a 3d 20 77 30 3b 0a 20 20 20 20 20 ┆ pop(.w3.,w0);sx:= w0; ┆
0x7b4fc…7b502 (0x324,0xf6b)
0x7b502…7b520 20 20 20 20 20 20 20 70 6f 70 28 2e 77 33 2e 2c 77 30 29 3b 74 72 61 69 6c 30 3a 3d 20 77 ┆ pop(.w3.,w0);trail0:= w┆
0x7b520…7b540 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 72 65 6c 61 ┆0; pop(.w3.,w0);rela┆
0x7b540…7b560 74 69 76 65 3a 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 ┆tive:= w0; pop(.w3.,┆
0x7b560…7b57a 77 30 29 3b 64 5f 70 61 72 74 69 61 6c 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 ┆w0);d_partial:= w0; ┆
0x7b57a…7b580 (0x324,0xf6c)
0x7b580…7b5a0 20 20 20 20 20 20 70 6f 70 28 2e 77 33 2e 2c 77 30 29 3b 64 65 73 74 5f 65 6e 64 3a 3d 20 77 30 ┆ pop(.w3.,w0);dest_end:= w0┆
0x7b5a0…7b5c0 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 77 32 3a 3d 20 ┆; pop(.w3.,w0);w2:= ┆
0x7b5c0…7b5e0 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 72 65 74 ┆w0; pop(.w3.,w0);ret┆
0x7b5e0…7b600 75 72 6e 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 30 00 00 00 00 00 00 00 00 ┆urn:= w0; w0 ┆
0x7b600…7b606 (987,) (0x324,0xf6d)
0x7b606…7b620 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 ┆:= (w3).tc_bsbuf; ┆
0x7b620…7b640 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 72 63 65 5f 65 ┆ w0+510; source_e┆
0x7b640…7b660 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 3a 3d 20 73 74 ┆nd:= w0; if w0:= st┆
0x7b660…7b67e 61 74 75 73 20 61 6e 64 20 32 27 31 30 30 31 30 30 3c 3e 30 20 74 68 65 6e 0a 20 20 20 20 ┆atus and 2'100100<>0 then ┆
0x7b67e…7b684 (0x324,0xf6e)
0x7b684…7b6a0 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 72 65 6a 65 63 74 ┆ begin comment reject┆
0x7b6a0…7b6c0 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 20 20 20 20 20 20 20 ┆ed/does not exist; ┆
0x7b6c0…7b6e0 20 73 61 76 65 77 32 3a 3d 20 77 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d ┆ savew2:= w2; w0:=┆
0x7b6e0…7b6fc 20 28 77 33 29 2e 74 63 5f 62 73 6c 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ (w3).tc_bsl; ┆
0x7b6fc…7b702 (0x324,0xf6f)
0x7b702…7b720 77 31 3a 3d 20 28 77 33 29 2e 74 63 5f 62 73 75 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆w1:= (w3).tc_bsu; ┆
0x7b720…7b740 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 20 20 20 20 20 ┆ w3:= address(zero); ┆
0x7b740…7b760 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 61 6c 6f 67 20 62 ┆ monitor(72); ! set catalog b┆
0x7b760…7b77a 61 73 65 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 20 62 ┆ase ! w3:= b┆
0x7b77a…7b780 (0x324,0xf70)
0x7b780…7b7a0 2e 63 75 72 72 65 6e 74 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 20 61 64 64 ┆.current; w3:= add┆
0x7b7a0…7b7c0 72 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 ┆ress((w3).tc_bsname); ┆
0x7b7c0…7b7e0 20 20 20 20 6d 6f 6e 69 74 6f 72 28 35 32 29 3b 20 21 20 63 72 65 61 74 65 20 61 72 65 61 20 70 ┆ monitor(52); ! create area p┆
0x7b7e0…7b800 72 6f 63 65 73 73 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 00 00 00 00 00 00 00 00 ┆rocess ! i ┆
0x7b800…7b806 (988,) (0x324,0xf71)
0x7b806…7b820 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 ┆f w0=0 then monitor(8); ! ┆
0x7b820…7b840 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 20 20 20 20 ┆reserve process ! ┆
0x7b840…7b860 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 20 20 20 2d 28 ┆w3:= b.current; -(┆
0x7b860…7b87e 77 30 29 3b 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 ┆w0); if w0<>0 th┆
0x7b87e…7b884 (0x324,0xf72)
0x7b884…7b8a0 65 6e 20 21 20 6e 6f 74 20 66 69 72 73 74 20 62 6c 6f 63 6b 20 21 20 67 6f 74 6f 20 ┆en ! not first block ! goto ┆
0x7b8a0…7b8c0 65 78 69 74 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 ┆exit; w2:= savew2;┆
0x7b8c0…7b8e0 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 72 65 70 3b 0a 20 20 20 20 20 20 20 ┆ goto rep; ┆
0x7b8e0…7b8fc 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 77 30 3a ┆ end; if w0:┆
0x7b8fc…7b902 (0x324,0xf73)
0x7b902…7b920 3d 73 74 61 74 75 73 3c 3e 32 20 74 68 65 6e 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 ┆=status<>2 then b┆
0x7b920…7b940 65 67 69 6e 0a 20 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 ┆egin w0:=0; ┆
0x7b940…7b960 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 20 20 20 20 20 20 65 ┆ goto exit; e┆
0x7b960…7b97a 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 28 77 33 29 2e 74 ┆nd; w1:=(w3).t┆
0x7b97a…7b980 (0x324,0xf74)
0x7b980…7b9a0 63 5f 62 73 62 75 66 2b 72 65 6c 61 74 69 76 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 30 ┆c_bsbuf+relative; w0┆
0x7b9a0…7b9c0 3a 3d 20 30 3b 63 6f 6e 76 3a 3d 20 77 30 3b 72 65 6c 61 74 69 76 65 3a 3d 20 77 30 3b 0a 20 20 ┆:= 0;conv:= w0;relative:= w0; ┆
0x7b9c0…7b9e0 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 3d 30 20 74 ┆ end; if w0=0 t┆
0x7b9e0…7ba00 68 65 6e 20 77 30 3a 3d 20 28 77 31 29 2e 77 6f 72 64 3b 20 21 20 74 61 00 00 00 00 00 00 00 00 ┆hen w0:= (w1).word; ! ta ┆
0x7ba00…7ba06 (989,) (0x324,0xf75)
0x7ba06…7ba20 6b 65 20 70 61 72 74 69 61 6c 20 77 6f 72 64 20 66 72 6f 6d 20 73 6f 75 72 63 ┆ke partial word from sourc┆
0x7ba20…7ba40 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 20 20 20 20 20 ┆e or convert sequence ! ┆
0x7ba40…7ba60 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 20 20 20 20 20 ┆end; w3:= 0; ┆
0x7ba60…7ba7e 20 21 20 77 33 3a 3d 20 20 63 68 61 72 28 70 61 72 74 69 61 6c 20 77 6f 72 64 29 20 21 0a ┆ ! w3:= char(partial word) ! ┆
0x7ba7e…7ba84 (0x324,0xf76)
0x7ba84…7baa0 20 20 20 20 20 20 20 20 66 30 20 6c 73 68 69 66 74 20 38 3b 20 20 20 20 20 20 20 0a ┆ f0 lshift 8; ┆
0x7baa0…7bac0 20 20 20 20 20 20 20 20 73 5f 70 61 72 74 69 61 6c 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 20 ┆ s_partial:= w0; ┆
0x7bac0…7bae0 63 68 61 72 3a 3d 20 77 33 3b 20 21 20 73 61 76 65 20 63 68 61 72 20 76 61 6c 75 65 20 21 0a 20 ┆char:= w3; ! save char value ! ┆
0x7bae0…7bafc 20 20 20 20 20 20 20 69 66 20 77 33 20 61 6e 64 20 31 32 37 3e 30 20 74 68 65 6e 20 ┆ if w3 and 127>0 then ┆
0x7bafc…7bb02 (0x324,0xf77)
0x7bb02…7bb20 21 20 69 67 6e 6f 72 65 20 69 66 20 63 68 61 72 20 65 78 63 6c 2e 20 68 69 67 68 20 62 69 ┆! ignore if char excl. high bi┆
0x7bb20…7bb40 74 20 3d 20 7a 65 72 6f 20 21 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 ┆t = zero ! begin comment┆
0x7bb40…7bb60 20 6f 75 74 63 68 61 72 20 28 20 64 65 73 74 69 6e 61 74 69 6f 6e 2c 20 77 33 29 3b 0a 20 20 20 ┆ outchar ( destination, w3); ┆
0x7bb60…7bb7a 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 64 5f 70 61 72 74 69 61 6c 3e 36 35 ┆ if w0:=d_partial>65┆
0x7bb7a…7bb80 (0x324,0xf78)
0x7bb80…7bba0 35 33 35 20 74 68 65 6e 20 21 20 69 66 20 70 61 72 74 69 61 6c 20 77 6f 72 64 20 66 69 6c 6c 65 ┆535 then ! if partial word fille┆
0x7bba0…7bbc0 64 20 74 68 65 6e 20 21 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 ┆d then ! begin comment┆
0x7bbc0…7bbe0 20 69 6e 63 72 65 61 73 65 20 64 65 73 74 69 6e 61 74 69 6f 6e 20 69 6e 64 65 78 3b 0a 20 20 20 ┆ increase destination index; ┆
0x7bbe0…7bc00 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; ┆
0x7bc00…7bc06 (990,) (0x324,0xf79)
0x7bc06…7bc20 20 21 20 64 65 73 74 69 6e 61 74 69 6f 6e 28 78 32 29 3a 3d 20 70 61 72 74 69 ┆ ! destination(x2):= parti┆
0x7bc20…7bc40 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 0a 20 20 20 20 ┆al_word ! w2+2; ┆
0x7bc40…7bc60 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 77 6f 72 64 20 ┆ w0:= 0; ! partial word ┆
0x7bc60…7bc7e 3a 3d 20 30 20 21 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 ┆:= 0 ! end; ┆
0x7bc7e…7bc84 (0x324,0xf7a)
0x7bc84…7bca0 20 20 77 30 20 6c 73 68 69 66 74 20 38 3b 20 20 21 20 70 61 72 74 69 61 6c 20 77 6f ┆ w0 lshift 8; ! partial wo┆
0x7bca0…7bcc0 72 64 20 3a 3d 20 70 61 72 74 69 61 6c 20 77 6f 72 64 20 73 68 69 66 74 20 38 20 2b 20 63 68 61 ┆rd := partial word shift 8 + cha┆
0x7bcc0…7bce0 72 20 21 0a 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 64 ┆r ! w0+w3; d┆
0x7bce0…7bcfc 5f 70 61 72 74 69 61 6c 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 77 33 3a ┆_partial:= w0; w3:┆
0x7bcfc…7bd02 (0x324,0xf7b)
0x7bd02…7bd20 3d 20 63 68 61 72 3b 20 21 20 72 65 73 74 6f 72 65 20 65 76 65 6e 74 75 61 6c 20 68 69 67 ┆= char; ! restore eventual hig┆
0x7bd20…7bd40 68 20 62 69 74 20 74 6f 20 61 76 6f 69 64 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆h bit to avoid, ┆
0x7bd40…7bd60 20 20 20 20 20 20 20 72 65 63 75 72 73 69 76 65 20 63 61 6c 6c 20 6f 66 20 63 6f 6e 76 65 72 74 ┆ recursive call of convert┆
0x7bd60…7bd7a 20 73 65 71 75 65 6e 63 65 20 21 0a 0a 20 20 20 20 20 20 20 20 20 20 63 6f 6d ┆ sequence ! com┆
0x7bd7a…7bd80 (0x324,0xf7c)
0x7bd80…7bda0 6d 65 6e 74 20 63 68 65 63 6b 20 63 68 61 72 61 63 74 65 72 3b 0a 0a 20 20 20 20 20 20 20 20 20 ┆ment check character; ┆
0x7bda0…7bdc0 20 69 66 20 77 33 3c 33 32 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 ┆ if w3<32 then begin ┆
0x7bdc0…7bde0 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 33 3d 31 30 20 74 68 65 6e 20 20 21 20 69 66 20 63 ┆ if w3=10 then ! if c┆
0x7bde0…7be00 68 61 72 3d 31 30 20 74 68 65 6e 20 21 0a 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆har=10 then ! ┆
0x7be00…7be06 (991,) (0x324,0xf7d)
0x7be06…7be20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 6e 65 77 6c 69 6e 65 3b 0a 0a ┆ begin comment newline; ┆
0x7be20…7be40 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 74 3b 0a 20 20 ┆ w3:= b.current; ┆
0x7be40…7be60 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 64 6f 0a 20 20 ┆ while w0<65536 do ┆
0x7be60…7be7e 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 65 66 74 ┆ begin comment left┆
0x7be7e…7be84 (0x324,0xf7e)
0x7be84…7bea0 20 6a 75 73 74 69 66 79 20 63 68 61 72 73 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ justify chars; ┆
0x7bea0…7bec0 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 20 20 20 20 20 20 ┆ w0 lshift 8; ┆
0x7bec0…7bee0 20 77 30 2b 32 35 3b 20 21 20 61 6e 64 20 66 69 6c 6c 20 77 69 74 68 20 45 54 58 27 73 20 21 0a ┆ w0+25; ! and fill with ETX's ! ┆
0x7bee0…7befc 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 ┆ end; ┆
0x7befc…7bf02 (0x324,0xf7f)
0x7bf02…7bf20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 73 61 76 65 20 6e 65 77 6c 69 6e 65 20 69 6e 66 6f ┆ comment save newline info┆
0x7bf20…7bf40 72 6d 61 74 69 6f 6e 3a 20 20 3b 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 72 61 69 6c ┆rmation: ; trail┆
0x7bf40…7bf60 30 3a 3d 20 20 20 20 20 20 20 20 20 20 20 20 20 77 30 3b 20 21 20 74 72 61 69 6c 65 72 5f 30 20 ┆0:= w0; ! trailer_0 ┆
0x7bf60…7bf7a 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 ┆ ! ┆
0x7bf7a…7bf80 (0x324,0xf80)
0x7bf80…7bfa0 73 78 3a 3d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3b 20 21 20 73 6f 75 72 63 ┆sx:= w1; ! sourc┆
0x7bfa0…7bfc0 65 20 69 6e 64 65 78 20 20 20 20 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 ┆e index ! d┆
0x7bfc0…7bfe0 78 3a 3d 20 20 20 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 ┆x:= w2; ! destin┆
0x7bfe0…7c000 61 74 69 6f 6e 20 69 6e 64 65 78 20 20 20 21 0a 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ation index ! ┆
0x7c000…7c006 (992,) (0x324,0xf81)
0x7c006…7c020 20 20 20 20 20 20 70 61 72 74 69 61 6c 3a 3d 77 30 3a 3d 20 73 5f 70 61 72 74 ┆ partial:=w0:= s_part┆
0x7c020…7c040 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 21 0a 20 20 20 ┆ial; ! partial word ! ┆
0x7c040…7c060 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 29 2e 74 63 5f ┆ segment:=w0:=(w3).tc_┆
0x7c060…7c07e 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 20 20 21 0a 20 ┆csegno; ! segment number ! ┆
0x7c07e…7c084 (0x324,0xf82)
0x7c084…7c0a0 20 20 20 20 20 20 20 20 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d ┆ w3:=┆
0x7c0a0…7c0c0 20 31 30 3b 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 20 21 20 65 6e 64 20 6e 65 77 6c ┆ 10; end ! end newl┆
0x7c0c0…7c0e0 69 6e 65 20 21 20 65 6c 73 65 0a 20 20 20 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 ┆ine ! else if w┆
0x7c0e0…7c0fc 33 3d 32 35 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 ┆3=25 then begin ┆
0x7c0fc…7c102 (0x324,0xf83)
0x7c102…7c120 63 6f 6d 6d 65 6e 74 20 65 6e 64 20 6d 65 64 69 75 6d 3b 0a 0a 20 20 20 20 20 20 20 20 20 ┆comment end medium; ┆
0x7c120…7c140 20 20 20 20 20 77 68 69 6c 65 20 77 30 3c 36 35 35 33 36 20 64 6f 0a 20 20 20 20 20 20 20 20 20 ┆ while w0<65536 do ┆
0x7c140…7c160 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 6c 65 66 74 20 6a 75 73 74 69 66 79 20 ┆ begin comment left justify ┆
0x7c160…7c17a 63 68 61 72 73 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 30 20 ┆chars; w0 ┆
0x7c17a…7c180 (0x324,0xf84)
0x7c180…7c1a0 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 77 30 2b 33 3b 0a ┆lshift 8; w0+3; ┆
0x7c1a0…7c1c0 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; ┆
0x7c1c0…7c1e0 20 74 72 61 69 6c 30 3a 3d 20 20 20 20 20 20 20 20 20 20 77 30 3b 20 21 20 74 72 61 69 6c 65 72 ┆ trail0:= w0; ! trailer┆
0x7c1e0…7c200 30 20 20 20 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 78 3a 00 00 00 00 00 00 00 00 ┆0 ! sx: ┆
0x7c200…7c206 (993,) (0x324,0xf85)
0x7c206…7c220 3d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3b 20 21 20 73 6f 75 72 63 ┆= w1; ! sourc┆
0x7c220…7c240 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 3d 20 20 20 20 ┆e index ! dx:= ┆
0x7c240…7c260 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 20 69 6e 64 65 ┆ w2; ! destination inde┆
0x7c260…7c27e 78 20 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 ┆x ! segment:=w0:┆
0x7c27e…7c284 (0x324,0xf86)
0x7c284…7c2a0 3d 20 28 77 33 3a 3d 62 2e 63 75 72 72 65 6e 74 29 2e 74 63 5f 63 73 65 67 6e 6f 3b ┆= (w3:=b.current).tc_csegno;┆
0x7c2a0…7c2c0 20 21 20 73 65 67 6d 65 6e 74 20 6e 75 6d 62 65 72 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ! segment number ! ┆
0x7c2c0…7c2e0 20 20 28 77 33 29 2e 74 63 5f 73 74 61 74 65 3a 3d 20 77 30 3a 3d 20 35 3b 0a 20 20 20 20 20 20 ┆ (w3).tc_state:= w0:= 5; ┆
0x7c2e0…7c2fc 20 20 20 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 ┆ (w3).fpr_inpstate:= ┆
0x7c2fc…7c302 (0x324,0xf87)
0x7c302…7c320 77 30 3a 3d 20 34 3b 20 21 20 63 6f 6d 70 6c 65 74 65 64 20 20 21 0a 20 20 20 20 20 20 20 ┆w0:= 4; ! completed ! ┆
0x7c320…7c340 20 20 20 20 20 20 20 64 65 73 74 5f 65 6e 64 3a 3d 20 77 32 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆ dest_end:= w2; ┆
0x7c340…7c360 20 20 20 20 77 33 3a 3d 20 32 35 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 20 21 20 65 ┆ w3:= 25; end ! e┆
0x7c360…7c37a 6e 64 20 65 6e 64 20 6d 65 64 69 75 6d 20 21 20 65 6c 73 65 0a 20 20 20 20 20 ┆nd end medium ! else ┆
0x7c37a…7c380 (0x324,0xf88)
0x7c380…7c3a0 20 20 20 20 20 20 20 69 66 20 77 33 3d 31 32 20 74 68 65 6e 20 21 20 66 6f 72 6d 66 65 65 64 20 ┆ if w3=12 then ! formfeed ┆
0x7c3a0…7c3c0 21 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 33 20 74 68 65 6e ┆! else if w3=13 then┆
0x7c3c0…7c3e0 20 21 20 63 61 72 72 69 61 67 65 20 72 65 74 75 72 6e 20 21 20 65 6c 73 65 0a 20 20 20 20 20 20 ┆ ! carriage return ! else ┆
0x7c3e0…7c400 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 63 68 65 63 00 00 00 00 00 00 00 00 ┆ begin comment chec ┆
0x7c400…7c406 (994,) (0x324,0xf89)
0x7c406…7c420 6b 20 66 6f 72 20 63 6f 6e 76 65 72 74 20 73 65 71 75 65 6e 63 65 73 3b 0a 20 ┆k for convert sequences; ┆
0x7c420…7c440 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 3a 3d 20 64 5f ┆ d_partial:= w0:= d_┆
0x7c440…7c460 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 20 63 68 61 72 ┆partial lshift -8; ! regret char┆
0x7c460…7c47e 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 68 61 72 3a 3d 20 77 33 3b 20 21 20 ┆ ! char:= w3; ! ┆
0x7c47e…7c484 (0x324,0xf8a)
0x7c484…7c4a0 73 61 76 65 20 63 68 61 72 61 63 74 65 72 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 ┆save character ! ┆
0x7c4a0…7c4c0 20 20 20 77 33 3a 3d 20 28 77 33 3a 3d 62 2e 63 75 72 72 65 6e 74 29 2e 66 70 72 5f 63 6f 6e 76 ┆ w3:= (w3:=b.current).fpr_conv┆
0x7c4c0…7c4e0 65 72 74 3b 20 21 20 73 65 61 72 63 68 20 63 68 61 72 20 63 6f 6e 76 65 72 73 69 6f 6e 20 74 61 ┆ert; ! search char conversion ta┆
0x7c4e0…7c4fc 62 6c 65 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 20 2d 20 31 ┆ble ! w0:= - 1┆
0x7c4fc…7c502 (0x324,0xf8b)
0x7c502…7c520 20 6c 73 68 69 66 74 20 2d 20 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 68 69 ┆ lshift - 1; whi┆
0x7c520…7c540 6c 65 20 77 30 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 20 63 ┆le w0>0 do begin c┆
0x7c540…7c560 6f 6d 6d 65 6e 74 20 65 6e 64 20 6f 66 20 74 61 62 6c 65 20 77 69 6c 6c 20 79 65 69 6c 64 20 77 ┆omment end of table will yeild w┆
0x7c560…7c57a 30 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 20 ┆0=0; w0:= ┆
0x7c57a…7c580 (0x324,0xf8c)
0x7c580…7c5a0 28 77 33 29 2e 73 72 63 63 61 72 3b 20 21 20 77 30 3a 3d 20 74 61 62 6c 65 5f 69 6e 70 75 74 5f ┆(w3).srccar; ! w0:= table_input_┆
0x7c5a0…7c5c0 63 68 61 72 28 6e 29 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3d ┆char(n) ! if w0=┆
0x7c5c0…7c5e0 63 68 61 72 20 74 68 65 6e 20 2d 28 77 30 29 20 21 20 69 66 20 66 6f 75 6e 64 20 74 68 65 6e 20 ┆char then -(w0) ! if found then ┆
0x7c5e0…7c600 77 30 3d 6e 65 67 61 74 69 76 65 20 21 20 65 6c 73 65 0a 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆w0=negative ! else ┆
0x7c600…7c606 (995,) (0x324,0xf8d)
0x7c606…7c620 20 20 20 20 20 20 20 20 20 20 20 77 33 2b 28 77 33 29 2e 73 72 63 73 69 7a 65 ┆ w3+(w3).srcsize┆
0x7c620…7c640 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 20 20 20 20 20 ┆; ! w3:= next_entry ! ┆
0x7c640…7c660 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 29 3b 20 21 20 ┆ end; -(w0); ! ┆
0x7c660…7c67e 69 66 20 6d 61 74 63 68 69 6e 67 20 65 6e 74 72 79 20 74 68 65 6e 20 77 30 3e 30 20 65 6c ┆if matching entry then w0>0 el┆
0x7c67e…7c684 (0x324,0xf8e)
0x7c684…7c6a0 73 65 20 77 30 3d 30 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 ┆se w0=0 ! if w┆
0x7c6a0…7c6c0 30 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 20 63 6f 6d ┆0>0 then begin com┆
0x7c6c0…7c6e0 6d 65 6e 74 20 70 75 73 68 20 63 6f 6e 76 65 72 74 20 73 65 71 75 65 6e 63 65 20 69 6e 63 6c 2e ┆ment push convert sequence incl.┆
0x7c6e0…7c6fc 20 73 5f 70 61 74 69 61 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ s_patial ┆
0x7c6fc…7c702 (0x324,0xf8f)
0x7c702…7c720 20 20 6f 6e 20 74 68 65 20 73 74 61 63 6b 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ on the stack; ┆
0x7c720…7c740 20 20 63 6f 6e 76 3a 3d 20 77 30 3a 3d 20 28 77 33 29 2e 73 72 63 73 69 7a 65 3b 0a 20 20 20 20 ┆ conv:= w0:= (w3).srcsize; ┆
0x7c740…7c760 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 5f 73 65 71 75 65 6e 63 65 3a 3d 20 77 33 3b 0a 20 ┆ end_sequence:= w3; ┆
0x7c760…7c77a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 33 2b 77 30 2d 32 3b 0a 20 20 ┆ w3+w0-2; ┆
0x7c77a…7c780 (0x324,0xf90)
0x7c780…7c7a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 74 61 72 74 5f 73 65 71 75 65 6e 63 65 3a 3d 20 77 ┆ start_sequence:= w┆
0x7c7a0…7c7c0 33 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 77 30 3a ┆3; push(.w3.,w0:┆
0x7c7c0…7c7e0 3d 73 5f 70 61 72 74 69 61 6c 29 3b 20 21 20 6f 72 69 67 2e 20 70 61 72 74 69 61 6c 20 77 6f 72 ┆=s_partial); ! orig. partial wor┆
0x7c7e0…7c800 64 20 6c 61 73 74 20 69 6e 20 73 65 71 75 65 6e 63 65 20 21 0a 20 20 20 00 00 00 00 00 00 00 00 ┆d last in sequence ! ┆
0x7c800…7c806 (996,) (0x324,0xf91)
0x7c806…7c820 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 ┆ s_partial:= w┆
0x7c820…7c840 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 74 6f 20 72 65 ┆0:= 0; ! force input check to re┆
0x7c840…7c860 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 20 20 20 20 20 ┆ad convert sequence ! ┆
0x7c860…7c87e 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 3b 20 21 20 74 ┆ w3:= start_sequence; ! t┆
0x7c87e…7c884 (0x324,0xf92)
0x7c884…7c8a0 61 6b 65 20 63 6f 6e 76 65 72 74 20 73 65 71 75 65 6e 63 65 20 62 6f 74 74 6f 6d 20 ┆ake convert sequence bottom ┆
0x7c8a0…7c8c0 75 70 70 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 68 69 6c 65 20 77 33 3e 65 ┆upp ! while w3>e┆
0x7c8c0…7c8e0 6e 64 5f 73 65 71 75 65 6e 63 65 20 64 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 ┆nd_sequence do b┆
0x7c8e0…7c8fc 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 70 75 73 68 20 6f 6e 20 73 74 61 63 6b 3b 0a ┆egin comment push on stack; ┆
0x7c8fc…7c902 (0x324,0xf93)
0x7c902…7c920 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 20 28 77 33 29 2e 77 6f ┆ w0:= (w3).wo┆
0x7c920…7c940 72 64 3b 20 21 20 77 30 20 63 6f 6e 76 65 72 74 20 63 68 61 72 73 20 21 0a 20 20 20 20 20 20 20 ┆rd; ! w0 convert chars ! ┆
0x7c940…7c960 20 20 20 20 20 20 20 20 20 20 20 77 30 20 6f 72 20 2d 38 33 35 35 37 31 32 3b 20 21 20 61 64 64 ┆ w0 or -8355712; ! add┆
0x7c960…7c97a 20 68 69 67 68 20 62 69 74 73 20 74 6f 20 61 76 6f 69 64 20 72 65 63 75 72 73 ┆ high bits to avoid recurs┆
0x7c97a…7c980 (0x324,0xf94)
0x7c980…7c9a0 69 76 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 20 20 20 20 20 ┆ive ┆
0x7c9a0…7c9c0 20 20 20 20 20 20 20 20 63 61 6c 6c 20 6f 66 20 63 6f 6e 76 65 72 74 20 73 65 71 75 65 6e 63 65 ┆ call of convert sequence┆
0x7c9c0…7c9e0 20 21 0a 20 20 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 77 ┆ ! push(.w3.,w┆
0x7c9e0…7ca00 30 29 3b 20 20 21 20 70 75 73 68 20 63 6f 6e 76 65 72 74 20 63 68 61 72 00 00 00 00 00 00 00 00 ┆0); ! push convert char ┆
0x7ca00…7ca06 (997,) (0x324,0xf95)
0x7ca06…7ca20 73 20 6f 6e 20 73 74 61 63 6b 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆s on stack ! ┆
0x7ca20…7ca40 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 20 21 20 6e 3d ┆ w3:= start_sequence-2; ! n=┆
0x7ca40…7ca60 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 72 74 5f 73 65 ┆n-1 ! start_se┆
0x7ca60…7ca7e 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 65 ┆quence:= w3; e┆
0x7ca7e…7ca84 (0x324,0xf96)
0x7ca84…7caa0 6e 64 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 ┆nd; end else ┆
0x7caa0…7cac0 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 6e 6f 20 63 6f ┆ begin comment no co┆
0x7cac0…7cae0 6e 76 65 72 74 20 73 65 71 75 65 6e 63 65 20 64 65 66 69 6e 65 64 20 2d 0a 20 20 20 20 20 20 20 ┆nvert sequence defined - ┆
0x7cae0…7cafc 20 20 20 20 20 20 20 20 20 20 20 20 20 77 72 61 70 20 63 68 61 72 61 63 74 65 72 20 ┆ wrap character ┆
0x7cafc…7cb02 (0x324,0xf97)
0x7cb02…7cb20 69 6e 20 61 6e 20 65 73 63 61 70 65 20 73 65 67 75 65 6e 63 65 3b 0a 20 20 20 20 20 20 20 ┆in an escape seguence; ┆
0x7cb20…7cb40 20 20 20 20 20 20 20 20 20 70 75 73 68 28 2e 77 33 2e 2c 77 30 3a 3d 20 73 5f 70 61 72 74 69 61 ┆ push(.w3.,w0:= s_partia┆
0x7cb40…7cb60 6c 29 3b 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 61 64 64 20 ┆l); comment add ┆
0x7cb60…7cb7a 68 69 67 68 62 69 74 20 74 6f 20 61 76 6f 69 64 20 65 73 63 61 70 65 20 74 72 ┆highbit to avoid escape tr┆
0x7cb7a…7cb80 (0x324,0xf98)
0x7cb80…7cba0 61 70 20 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 20 31 35 35 3b 20 21 ┆ap ; w3:= 155; !┆
0x7cba0…7cbc0 20 65 73 63 61 70 65 20 73 65 71 75 65 6e 63 65 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 ┆ escape sequence: !┆
0x7cbc0…7cbe0 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 20 63 68 61 72 20 6c 73 68 69 66 ┆ w0:= char lshif┆
0x7cbe0…7cc00 74 20 2d 20 34 3b 20 21 20 63 68 61 72 31 3a 3d 20 63 68 61 72 28 30 2e 00 00 00 00 00 00 00 00 ┆t - 4; ! char1:= char(0. ┆
0x7cc00…7cc06 (998,) (0x324,0xf99)
0x7cc06…7cc20 2e 33 29 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 ┆.3) ! if w┆
0x7cc20…7cc40 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 20 0a 20 20 20 ┆0<10 then w0+48 else w0+87; ┆
0x7cc40…7cc60 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 30 20 6c 73 68 ┆ w0 lshift 16;f0 lsh┆
0x7cc60…7cc7e 69 66 74 20 38 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 20 63 68 ┆ift 8; w0:= ch┆
0x7cc7e…7cc84 (0x324,0xf9a)
0x7cc84…7cca0 61 72 20 65 78 74 72 61 63 74 20 34 3b 20 21 20 63 68 61 72 33 3a 3d 20 68 65 78 28 ┆ar extract 4; ! char3:= hex(┆
0x7cca0…7ccc0 63 68 61 72 28 34 2e 2e 37 29 29 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 ┆char(4..7)) ! if┆
0x7ccc0…7cce0 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 0a 20 20 ┆ w0<10 then w0+48 else w0+87; ┆
0x7cce0…7ccfc 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┆
0x7ccfc…7cd02 (0x324,0xf9b)
0x7cd02…7cd20 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 70 75 ┆0 lshift 8; pu┆
0x7cd20…7cd40 73 68 28 2e 77 33 2e 2c 77 30 3a 3d 77 33 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆sh(.w3.,w0:=w3); ┆
0x7cd40…7cd60 20 73 5f 70 61 72 74 69 61 6c 3a 3d 20 77 30 3a 3d 20 30 3b 20 21 20 66 6f 72 63 65 20 69 6e 70 ┆ s_partial:= w0:= 0; ! force inp┆
0x7cd60…7cd7a 75 74 20 63 68 61 65 63 6b 20 74 6f 20 74 61 6b 65 20 69 6e 70 75 74 0a 20 20 ┆ut chaeck to take input ┆
0x7cd7a…7cd80 (0x324,0xf9c)
0x7cd80…7cda0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x7cda0…7cdc0 20 20 20 20 66 72 6f 6d 20 63 6f 6e 76 65 72 74 20 73 65 71 75 65 6e 63 65 20 21 0a 20 20 20 20 ┆ from convert sequence ! ┆
0x7cdc0…7cde0 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6e 76 3a 3d 20 77 30 3a 3d 20 34 3b 0a 20 20 20 20 20 ┆ conv:= w0:= 4; ┆
0x7cde0…7ce00 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 0a 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ end; ┆
0x7ce00…7ce06 (999,) (0x324,0xf9d)
0x7ce06…7ce20 20 20 20 65 6e 64 3b 20 21 20 65 6e 64 20 63 6f 6e 76 65 72 74 20 21 0a 20 20 ┆ end; ! end convert ! ┆
0x7ce20…7ce40 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 21 20 65 6e 64 ┆ end; end; ! end┆
0x7ce40…7ce60 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 65 6e 64 3b 20 ┆ char -, zerochar ! end; ┆
0x7ce60…7ce7e 21 20 65 6e 64 20 77 68 69 6c 65 20 77 32 3c 64 65 73 74 5f 65 6e 64 20 21 0a 20 20 20 20 ┆! end while w2<dest_end ! ┆
0x7ce7e…7ce84 (0x324,0xf9e)
0x7ce84…7cea0 20 20 77 68 69 6c 65 20 77 30 3a 3d 63 6f 6e 76 3e 30 20 64 6f 0a 20 20 20 20 20 20 ┆ while w0:=conv>0 do ┆
0x7cea0…7cec0 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 63 6f 6e 76 3a 3d 20 77 30 2d 32 3b 0a 20 20 20 20 20 ┆begin conv:= w0-2; ┆
0x7cec0…7cee0 20 20 20 70 6f 70 28 2e 77 33 2e 2c 77 30 29 3b 0a 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 ┆ pop(.w3.,w0); end; ┆
0x7cee0…7cefc 20 69 66 20 77 30 3a 3d 73 78 3d 30 20 74 68 65 6e 0a 20 20 20 20 20 20 62 65 67 69 ┆ if w0:=sx=0 then begi┆
0x7cefc…7cf02 (0x324,0xf9f)
0x7cf02…7cf20 6e 20 63 6f 6d 6d 65 6e 74 20 74 68 65 20 62 6c 6f 63 6b 20 64 69 64 20 6e 6f 74 20 63 6f ┆n comment the block did not co┆
0x7cf20…7cf40 6e 74 61 69 6e 20 61 6e 79 20 6e 65 77 6c 69 6e 65 73 3b 0a 20 20 20 20 20 20 20 20 77 30 20 6c ┆ntain any newlines; w0 l┆
0x7cf40…7cf60 73 68 69 66 74 20 38 3b 77 30 2b 32 35 3b 0a 20 20 20 20 20 20 20 20 77 30 20 6c 73 68 69 66 74 ┆shift 8;w0+25; w0 lshift┆
0x7cf60…7cf7a 20 38 3b 77 30 2b 33 3b 0a 20 20 20 20 20 20 20 20 74 72 61 69 6c 30 3a 3d 20 ┆ 8;w0+3; trail0:= ┆
0x7cf7a…7cf80 (0x324,0xfa0)
0x7cf80…7cfa0 77 30 3b 0a 20 20 20 20 20 20 20 20 73 78 3a 3d 20 77 31 3b 0a 20 20 20 20 20 20 20 20 64 78 3a ┆w0; sx:= w1; dx:┆
0x7cfa0…7cfc0 3d 20 77 32 3b 0a 20 20 20 20 20 20 20 20 70 61 72 74 69 61 6c 3a 3d 20 77 30 3a 3d 20 73 5f 70 ┆= w2; partial:= w0:= s_p┆
0x7cfc0…7cfe0 61 72 74 69 61 6c 3b 0a 20 20 20 20 20 20 20 20 73 65 67 6d 65 6e 74 3a 3d 20 77 30 3a 3d 28 77 ┆artial; segment:= w0:=(w┆
0x7cfe0…7d000 33 3a 3d 62 2e 63 75 72 72 65 6e 74 29 2e 74 63 5f 63 73 65 67 6e 6f 3b 00 00 00 00 00 00 00 00 ┆3:=b.current).tc_csegno; ┆
0x7d000…7d006 (1000,) (0x324,0xfa1)
0x7d006…7d020 0a 20 20 20 20 20 20 65 6e 64 3b 0a 0a 20 20 20 20 20 20 77 33 3a 3d 20 62 2e ┆ end; w3:= b.┆
0x7d020…7d040 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 74 69 61 6c 3a ┆current; (w3).fpr_partial:┆
0x7d040…7d060 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 30 3b 0a 20 20 ┆= w0:= partial; w0:= 0; ┆
0x7d060…7d07e 20 20 20 20 77 31 3a 3d 20 73 65 67 6d 65 6e 74 3b 0a 20 20 20 20 20 20 66 31 20 6c 73 68 ┆ w1:= segment; f1 lsh┆
0x7d07e…7d084 (0x324,0xfa2)
0x7d084…7d0a0 69 66 74 20 39 3b 0a 20 20 20 20 20 20 77 31 2b 73 78 2d 28 77 33 29 2e 74 63 5f 62 ┆ift 9; w1+sx-(w3).tc_b┆
0x7d0a0…7d0c0 73 62 75 66 3b 0a 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 62 73 70 74 72 3a 3d 20 66 31 3b 0a ┆sbuf; (w3).tc_bsptr:= f1; ┆
0x7d0c0…7d0e0 20 20 20 20 20 20 77 32 3a 3d 20 64 78 3b 0a 20 20 20 20 20 20 28 77 32 29 2e 77 6f 72 64 3a 3d ┆ w2:= dx; (w2).word:=┆
0x7d0e0…7d0fc 20 77 30 3a 3d 20 74 72 61 69 6c 30 3b 0a 20 20 20 20 20 20 28 77 32 2b 32 29 2e 77 ┆ w0:= trail0; (w2+2).w┆
0x7d0fc…7d102 (0x324,0xfa3)
0x7d102…7d120 6f 72 64 3a 3d 20 77 30 3a 3d 20 31 36 33 39 31 37 31 3b 20 21 20 45 4d 2c 20 45 54 58 2c ┆ord:= w0:= 1639171; ! EM, ETX,┆
0x7d120…7d140 20 45 54 58 20 21 0a 20 20 20 20 20 20 77 31 3a 3d 61 64 64 72 65 73 73 28 28 77 31 3a 3d 28 77 ┆ ETX ! w1:=address((w1:=(w┆
0x7d140…7d160 33 29 2e 74 63 5f 62 75 66 29 2e 62 75 66 5f 64 61 74 61 31 29 3b 0a 20 20 20 20 20 20 77 30 3a ┆3).tc_buf).buf_data1); w0:┆
0x7d160…7d17a 3d 20 77 32 2d 77 31 2b 32 3b 20 21 20 6e 6f 20 6f 66 20 68 61 6c 66 77 6f 72 ┆= w2-w1+2; ! no of halfwor┆
0x7d17a…7d180 (0x324,0xfa4)
0x7d180…7d1a0 64 73 20 6f 75 74 70 75 74 20 21 0a 65 78 69 74 3a 0a 20 20 20 20 20 20 77 32 3a 3d 20 73 74 61 ┆ds output ! exit: w2:= sta┆
0x7d1a0…7d1c0 74 75 73 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 ┆tus; call w0 return; e┆
0x7d1c0…7d1e0 6e 64 3b 0a 20 20 65 6e 64 3b 20 21 20 65 6e 64 20 67 65 74 6c 69 6e 65 73 20 21 0a 0a 20 20 62 ┆nd; end; ! end getlines ! b┆
0x7d1e0…7d200 6f 64 79 20 6f 66 20 63 6f 6e 6e 65 63 74 5f 33 32 37 30 0a 20 20 62 65 00 00 00 00 00 00 00 00 ┆ody of connect_3270 be ┆
0x7d200…7d206 (1001,) (0x324,0xfa5)
0x7d206…7d220 67 69 6e 0a 20 20 20 20 6c 61 62 65 6c 20 72 65 73 65 72 76 65 5f 70 72 69 6e ┆gin label reserve_prin┆
0x7d220…7d240 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 65 78 74 20 28 ┆ter, exit; incode text (┆
0x7d240…7d260 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 72 64 20 7a 65 ┆14) clock:= "clock"; word ze┆
0x7d260…7d27e 72 6f 3a 3d 20 30 3b 0a 20 20 20 20 77 6f 72 64 20 6c 62 3a 3d 20 2d 38 33 38 38 36 30 37 ┆ro:= 0; word lb:= -8388607┆
0x7d27e…7d284 (0x324,0xfa6)
0x7d284…7d2a0 2c 20 75 62 3a 3d 20 2d 38 33 38 38 36 30 35 3b 0a 20 20 20 20 72 65 66 20 72 65 74 ┆, ub:= -8388605; ref ret┆
0x7d2a0…7d2c0 75 72 6e 3b 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 70 75 73 68 20 28 2e 77 33 2e 2c ┆urn; begin push (.w3.,┆
0x7d2c0…7d2e0 77 30 3a 3d 20 77 33 29 3b 20 21 20 73 61 76 65 20 72 65 74 75 72 6e 20 61 64 64 72 65 73 73 20 ┆w0:= w3); ! save return address ┆
0x7d2e0…7d2fc 21 0a 20 20 20 20 20 20 77 30 3a 3d 20 6c 62 3b 77 31 3a 3d 20 75 62 3b 77 33 3a 3d ┆! w0:= lb;w1:= ub;w3:=┆
0x7d2fc…7d302 (0x324,0xfa7)
0x7d302…7d320 20 61 64 64 72 65 73 73 28 7a 65 72 6f 29 3b 20 6d 6f 6e 69 74 6f 72 28 37 32 29 3b 20 21 ┆ address(zero); monitor(72); !┆
0x7d320…7d340 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 77 31 3a 3d 20 28 ┆ set catalog base ! w1:= (┆
0x7d340…7d360 77 33 3a 3d 62 2e 63 75 72 72 65 6e 74 29 2e 66 70 72 5f 73 74 63 6f 72 6f 75 74 3b 0a 20 20 20 ┆w3:=b.current).fpr_stcorout; ┆
0x7d360…7d37a 20 20 20 77 33 3a 3d 20 61 64 64 72 65 73 73 28 28 77 31 29 2e 66 70 72 5f 70 ┆ w3:= address((w1).fpr_p┆
0x7d37a…7d380 (0x324,0xfa8)
0x7d380…7d3a0 72 6f 63 6f 75 74 29 3b 0a 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 20 28 34 29 3b 20 21 20 70 72 ┆rocout); monitor (4); ! pr┆
0x7d3a0…7d3c0 6f 63 65 73 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 ┆ocess description ! w3:= b┆
0x7d3c0…7d3e0 2e 63 75 72 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 ┆.current; w0:= (w1:=w0).wo┆
0x7d3e0…7d400 72 64 3b 20 21 20 77 30 20 3d 20 6b 69 6e 64 20 28 70 72 6f 63 65 73 73 00 00 00 00 00 00 00 00 ┆rd; ! w0 = kind (process ┆
0x7d400…7d406 (1002,) (0x324,0xfa9)
0x7d406…7d420 29 20 21 0a 20 20 20 20 20 20 69 66 20 77 30 3d 32 38 20 74 68 65 6e 0a 20 20 ┆) ! if w0=28 then ┆
0x7d420…7d440 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 6f ┆ begin comment connected thro┆
0x7d440…7d460 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 77 33 29 2e 66 ┆ugh adp3270; w1:= (w3).f┆
0x7d460…7d47e 70 72 5f 73 74 63 6f 72 6f 75 74 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 20 28 ┆pr_stcorout; if w0:= (┆
0x7d47e…7d484 (0x324,0xfaa)
0x7d484…7d4a0 77 31 29 2e 66 70 72 5f 63 6f 75 6e 74 3d 31 20 74 68 65 6e 0a 20 20 20 20 20 20 20 ┆w1).fpr_count=1 then ┆
0x7d4a0…7d4c0 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 63 61 74 69 6f 6e 20 ┆ begin comment send application ┆
0x7d4c0…7d4e0 63 6f 6e 6e 65 63 74 20 6d 65 73 73 61 67 65 3b 0a 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 20 ┆connect message; w1:= ┆
0x7d4e0…7d4fc 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 29 2e ┆(w3).tc_buf; (w1).┆
0x7d4fc…7d502 (0x324,0xfab)
0x7d502…7d520 62 75 66 5f 6f 70 3a 3d 20 77 30 3a 3d 20 34 3b 0a 20 20 20 20 20 20 20 20 20 20 28 77 31 ┆buf_op:= w0:= 4; (w1┆
0x7d520…7d540 29 2e 62 75 66 5f 6d 6f 64 65 3a 3d 20 77 30 3a 3d 20 34 3b 0a 20 20 20 20 20 20 20 20 20 20 77 ┆).buf_mode:= w0:= 4; w┆
0x7d540…7d560 32 3a 3d 20 61 64 64 72 65 73 73 28 28 77 31 29 2e 62 75 66 5f 6c 61 73 74 29 3b 0a 20 20 20 20 ┆2:= address((w1).buf_last); ┆
0x7d560…7d57a 20 20 20 20 20 20 6d 6f 76 65 20 28 2e 77 33 2e 2c 77 30 3a 3d 38 2c 77 31 3a ┆ move (.w3.,w0:=8,w1:┆
0x7d57a…7d580 (0x324,0xfac)
0x7d580…7d5a0 3d 61 64 64 72 65 73 73 28 62 2e 70 72 69 6d 6f 5f 69 64 29 2c 77 32 29 3b 0a 20 20 20 20 20 20 ┆=address(b.primo_id),w2); ┆
0x7d5a0…7d5c0 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 20 20 20 20 ┆ w1:= (w3).tc_buf; ┆
0x7d5c0…7d5e0 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 74 63 6f 72 ┆w2:= address((w2:=(w3).fpr_stcor┆
0x7d5e0…7d600 6f 75 74 29 2e 66 70 72 5f 70 72 6f 63 6f 75 74 29 3b 0a 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆out).fpr_procout); ┆
0x7d600…7d606 (1003,) (0x324,0xfad)
0x7d606…7d620 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 ┆ sendwait (.w3.,w0,w1,┆
0x7d620…7d640 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 28 62 2e 61 6e ┆w2); w1:= address(b.an┆
0x7d640…7d660 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 20 6c 73 68 69 ┆s_status); w2:= 1 lshi┆
0x7d660…7d67e 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 20 ┆ft w0; if w2=2 then ┆
0x7d67e…7d684 (0x324,0xfae)
0x7d684…7d6a0 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 ┆(w1).word:= w2 or (w1).word ┆
0x7d6a0…7d6c0 65 6c 73 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 20 20 69 ┆else (w1).word:= w2; i┆
0x7d6c0…7d6e0 66 20 77 32 3a 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 20 ┆f w2:=b.ans_status<>2 then ┆
0x7d6e0…7d6fc 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 29 2e ┆ begin (w3).┆
0x7d6fc…7d702 (0x324,0xfaf)
0x7d702…7d720 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 20 20 28 77 ┆tc_status:= w2; (w┆
0x7d720…7d740 33 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 ┆3).tc_state:= w0:= 6; ! aborted ┆
0x7d740…7d760 21 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 ┆! (w3).tc_cause:= w0┆
0x7d760…7d77a 3a 3d 20 32 3b 20 21 20 72 65 63 65 69 76 65 72 21 0a 20 20 20 20 20 20 20 20 ┆:= 2; ! receiver! ┆
0x7d77a…7d780 (0x324,0xfb0)
0x7d780…7d7a0 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 3a 3d 20 32 ┆ oproutput(.w3.,w0:= 2,w1:= 2┆
0x7d7a0…7d7c0 2c 20 77 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 66 70 72 5f 6c 6c 63 75 ┆, w2); (w3).fpr_llcu┆
0x7d7c0…7d7e0 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 20 20 67 6f 74 6f ┆dev:= w0:= - 1; goto┆
0x7d7e0…7d800 20 65 78 69 74 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 ┆ exit; end; ┆
0x7d800…7d806 (1004,) (0x324,0xfb1)
0x7d806…7d820 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 ┆ end; comment┆
0x7d820…7d840 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 67 65 3b 0a 20 ┆ send reserve printer message; ┆
0x7d840…7d860 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 20 30 3b 0a 72 ┆ (w3).tc_retry:= w0:= 0; r┆
0x7d860…7d87e 65 73 65 72 76 65 5f 70 72 69 6e 74 65 72 3a 0a 20 20 20 20 20 20 20 20 77 31 3a 3d 20 28 ┆eserve_printer: w1:= (┆
0x7d87e…7d884 (0x324,0xfb2)
0x7d884…7d8a0 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┆
0x7d8a0…7d8c0 5f 6f 70 3a 3d 20 77 30 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 62 75 66 5f 6d ┆_op:= w0:= 0; (w1).buf_m┆
0x7d8c0…7d8e0 6f 64 65 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 20 77 30 3a 3d 20 28 77 33 29 2e 74 63 5f 72 ┆ode:= w0; w0:= (w3).tc_r┆
0x7d8e0…7d8fc 65 74 72 79 3b 0a 20 20 20 20 20 20 20 20 77 32 20 3a 3d 20 31 20 6c 73 68 69 66 74 ┆etry; w2 := 1 lshift┆
0x7d8fc…7d902 (0x324,0xfb3)
0x7d902…7d920 20 77 30 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 3d 20 ┆ w0; (w1).buf_first:= ┆
0x7d920…7d940 77 32 3b 0a 20 20 20 20 20 20 20 20 77 32 3a 3d 20 61 64 64 72 65 73 73 28 63 6c 6f 63 6b 29 3b ┆w2; w2:= address(clock);┆
0x7d940…7d960 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 77 31 2c 77 32 ┆ sendwait (.w3.,w0,w1,w2┆
0x7d960…7d97a 29 3b 0a 20 20 20 20 20 20 20 20 77 31 3a 3d 20 28 77 33 29 2e 74 63 5f 62 75 ┆); w1:= (w3).tc_bu┆
0x7d97a…7d980 (0x324,0xfb4)
0x7d980…7d9a0 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 30 3a 3d 20 34 3b ┆f; (w1).buf_op:= w0:= 4;┆
0x7d9a0…7d9c0 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 3a 3d 20 31 36 ┆ (w1).buf_mode:= w0:= 16┆
0x7d9c0…7d9e0 3b 0a 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 65 76 3b ┆; w0:= (w3).fpr_plcudev;┆
0x7d9e0…7da00 0a 20 20 20 20 20 20 20 20 28 77 31 29 2e 62 75 66 5f 6c 61 73 74 3a 3d 00 00 00 00 00 00 00 00 ┆ (w1).buf_last:= ┆
0x7da00…7da06 (1005,) (0x324,0xfb5)
0x7da06…7da20 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 ┆ w0; w2:= address(┆
0x7da20…7da40 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 70 72 6f 63 ┆(w2:=(w3).fpr_stcorout).fpr_proc┆
0x7da40…7da60 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,┆
0x7da60…7da7e 77 31 2c 77 32 29 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3d 34 20 74 68 65 6e 0a 20 ┆w1,w2); if w0=4 then ┆
0x7da7e…7da84 (0x324,0xfb6)
0x7da84…7daa0 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 63 75 20 6e 6f 74 20 ┆ begin comment cu not ┆
0x7daa0…7dac0 28 79 65 74 3f 29 20 63 6f 6e 6e 65 63 74 65 64 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 ┆(yet?) connected; if w┆
0x7dac0…7dae0 30 3a 3d 20 28 77 33 29 2e 74 63 5f 72 65 74 72 79 20 3c 20 37 20 74 68 65 6e 0a 20 20 20 20 20 ┆0:= (w3).tc_retry < 7 then ┆
0x7dae0…7dafc 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 29 2e ┆ begin (w3).┆
0x7dafc…7db02 (0x324,0xfb7)
0x7db02…7db20 74 63 5f 72 65 74 72 79 3a 3d 20 77 30 3a 3d 20 28 77 33 29 2e 74 63 5f 72 65 74 72 79 2b ┆tc_retry:= w0:= (w3).tc_retry+┆
0x7db20…7db40 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 72 65 73 65 72 76 65 5f 70 72 69 6e ┆1; goto reserve_prin┆
0x7db40…7db60 74 65 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 20 20 77 30 ┆ter; end; w0┆
0x7db60…7db7a 3a 3d 20 34 3b 20 21 20 64 69 73 63 6f 6e 6e 65 63 74 65 64 20 21 0a 20 20 20 ┆:= 4; ! disconnected ! ┆
0x7db7a…7db80 (0x324,0xfb8)
0x7db80…7dba0 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 77 31 3a 3d 20 61 64 64 72 65 73 73 28 62 ┆ end; w1:= address(b┆
0x7dba0…7dbc0 2e 61 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 73 68 ┆.ans_status); w2:= 1 lsh┆
0x7dbc0…7dbe0 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 20 28 77 31 ┆ift w0; if w2=2 then (w1┆
0x7dbe0…7dc00 29 2e 77 6f 72 64 3a 3d 20 77 32 20 6f 72 20 28 77 31 29 2e 77 6f 72 64 00 00 00 00 00 00 00 00 ┆).word:= w2 or (w1).word ┆
0x7dc00…7dc06 (1006,) (0x324,0xfb9)
0x7dc06…7dc20 20 65 6c 73 65 20 28 77 31 29 2e 77 6f 72 64 3a 3d 20 77 32 3b 0a 20 20 20 20 ┆ else (w1).word:= w2; ┆
0x7dc20…7dc40 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 74 68 65 6e 0a ┆ if w2:=b.ans_status<>2 then ┆
0x7dc40…7dc60 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_┆
0x7dc60…7dc7e 73 74 61 74 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 ┆status:= w2; (w3).tc┆
0x7dc7e…7dc84 (0x324,0xfba)
0x7dc84…7dca0 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 ┆_state:= w0:= 6; ! aborted !┆
0x7dca0…7dcc0 0a 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 ┆ (w3).tc_cause:= w0:= ┆
0x7dcc0…7dce0 32 3b 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 6f 75 74 70 ┆2; ! receiver! oproutp┆
0x7dce0…7dcfc 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 ┆ut(.w3.,w0:= 2,w1:= 2, w2); ┆
0x7dcfc…7dd02 (0x324,0xfbb)
0x7dd02…7dd20 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 ┆ (w3).fpr_llcudev:= w┆
0x7dd20…7dd40 30 3a 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 ┆0:= - 1; goto exit; ┆
0x7dd40…7dd60 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 3a 3d 62 2e ┆ end else if w1:=b.┆
0x7dd60…7dd7a 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 ┆ans_bytes<>0 then ┆
0x7dd7a…7dd80 (0x324,0xfbc)
0x7dd80…7dda0 62 65 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 ┆begin comment no connect; ┆
0x7dda0…7ddc0 20 20 20 20 63 61 73 65 20 77 31 20 6f 66 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 ┆ case w1 of begin ┆
0x7ddc0…7dde0 20 20 20 20 20 20 20 20 20 20 20 21 20 20 31 2c 20 6e 6f 74 20 70 72 6f 63 65 73 73 65 64 20 2d ┆ ! 1, not processed -┆
0x7dde0…7de00 20 69 6d 70 6f 73 73 69 62 6c 65 20 21 20 3b 0a 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ impossible ! ; ┆
0x7de00…7de06 (1007,) (0x324,0xfbd)
0x7de06…7de20 20 20 20 20 21 20 20 32 2c 20 20 20 20 20 20 20 20 6e 6f 74 20 75 73 65 64 20 ┆ ! 2, not used ┆
0x7de20…7de40 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 20 33 2c ┆ ! ; ! 3,┆
0x7de40…7de60 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 20 21 20 77 31 ┆ no resources ! w1┆
0x7de60…7de7e 3a 3d 20 31 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 21 20 20 34 2c 20 20 20 20 20 20 ┆:= 10; ! 4, ┆
0x7de7e…7de84 (0x324,0xfbe)
0x7de84…7dea0 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 ┆ not used ! ; ┆
0x7dea0…7dec0 20 20 20 20 20 20 20 20 20 20 21 20 20 35 2c 20 20 20 20 20 20 20 20 6e 6f 74 20 75 73 65 64 20 ┆ ! 5, not used ┆
0x7dec0…7dee0 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 20 36 2c ┆ ! ; ! 6,┆
0x7dee0…7defc 20 75 6e 61 76 61 69 6c 65 61 62 6c 65 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ unavaileable ┆
0x7defc…7df02 (0x324,0xfbf)
0x7df02…7df20 21 20 77 31 3a 3d 20 31 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 21 20 20 37 2c 20 64 ┆! w1:= 11; ! 7, d┆
0x7df20…7df40 65 76 69 63 65 20 6e 6f 2e 20 6f 75 74 20 6f 66 20 72 61 6e 67 65 20 20 20 20 21 20 77 31 3a 3d ┆evice no. out of range ! w1:=┆
0x7df40…7df60 20 20 37 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 21 20 20 38 2c 20 64 65 76 69 63 65 20 6e 6f ┆ 7; ! 8, device no┆
0x7df60…7df7a 74 20 70 72 69 6e 74 65 72 20 20 20 20 20 20 20 20 20 21 20 77 31 3a 3d 20 20 ┆t printer ! w1:= ┆
0x7df7a…7df80 (0x324,0xfc0)
0x7df80…7dfa0 38 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 21 20 20 39 2c 20 20 20 20 20 20 20 20 6e 6f 74 20 ┆8; ! 9, not ┆
0x7dfa0…7dfc0 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 ! ; ┆
0x7dfc0…7dfe0 21 20 31 30 2c 20 70 72 69 6e 74 65 72 20 72 65 73 65 72 76 65 64 20 20 20 20 20 20 20 20 20 20 ┆! 10, printer reserved ┆
0x7dfe0…7e000 20 21 20 77 31 3a 3d 20 20 39 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ ! w1:= 9; ┆
0x7e000…7e006 (1008,) (0x324,0xfc1)
0x7e006…7e020 21 20 31 31 2c 20 20 20 20 20 20 20 20 6e 6f 74 20 75 73 65 64 20 20 20 20 20 ┆! 11, not used ┆
0x7e020…7e040 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 2c 20 70 72 69 ┆ ! ; ! 12, pri┆
0x7e040…7e060 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 31 3a 3d 20 31 ┆nter busy ! w1:= 1┆
0x7e060…7e07e 32 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 20 21 20 65 6e 64 20 63 61 73 65 20 21 ┆2; end; ! end case !┆
0x7e07e…7e084 (0x324,0xfc2)
0x7e084…7e0a0 0a 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 ┆ oproutput(.w3.,w0┆
0x7e0a0…7e0c0 3a 3d 31 2c 77 31 2c 77 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 73 74 ┆:=1,w1,w2); (w3).tc_st┆
0x7e0c0…7e0e0 61 74 75 73 3a 3d 20 77 30 3a 3d 20 32 3b 0a 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 63 ┆atus:= w0:= 2; (w3).tc┆
0x7e0e0…7e0fc 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 ┆_state:= w0:= 6; ! aborted !┆
0x7e0fc…7e102 (0x324,0xfc3)
0x7e102…7e120 0a 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:┆
0x7e120…7e140 3d 20 32 3b 20 21 20 72 65 63 65 69 76 65 72 21 0a 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e ┆= 2; ! receiver! (w3).┆
0x7e140…7e160 66 70 72 5f 6c 6c 63 75 64 65 76 3a 3d 20 77 30 3a 3d 20 2d 31 3b 0a 20 20 20 20 20 20 20 20 20 ┆fpr_llcudev:= w0:= -1; ┆
0x7e160…7e17a 20 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 ┆ goto exit; end el┆
0x7e17a…7e180 (0x324,0xfc4)
0x7e180…7e1a0 73 65 0a 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 ┆se (w3).fpr_llcudev:= w0┆
0x7e1a0…7e1c0 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 20 65 6e 64 20 21 ┆:= (w3).fpr_plcudev; end !┆
0x7e1c0…7e1e0 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 !┆
0x7e1e0…7e200 0a 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 62 65 67 69 6e 20 00 00 00 00 00 00 00 00 ┆ else begin ┆
0x7e200…7e206 (1009,) (0x324,0xfc5)
0x7e206…7e220 63 6f 6d 6d 65 6e 74 20 63 6f 6e 6e 65 63 74 65 64 20 74 68 72 6f 75 67 68 20 ┆comment connected through ┆
0x7e220…7e240 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 77 33 29 2e 74 ┆m.rocs, NCP; w1:= (w3).t┆
0x7e240…7e260 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 30 3a ┆c_buf; (w1).buf_op:= w0:┆
0x7e260…7e27e 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 ┆= 2 ; (w1).buf_mode:= ┆
0x7e27e…7e284 (0x324,0xfc6)
0x7e284…7e2a0 77 30 3a 3d 20 36 3b 20 21 20 63 6f 6e 6e 65 63 74 20 6d 65 73 73 20 21 0a 20 20 20 ┆w0:= 6; ! connect mess ! ┆
0x7e2a0…7e2c0 20 20 20 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 ┆ w0:= (w3).fpr_plcudev; ┆
0x7e2c0…7e2e0 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 20 20 20 20 20 20 20 ┆ (w1).buf_last:= w0; ┆
0x7e2e0…7e2fc 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┆
0x7e2fc…7e302 (0x324,0xfc7)
0x7e302…7e320 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 ┆tcorout).fpr_procout); ┆
0x7e320…7e340 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 3b 0a 20 20 20 20 20 ┆ sendwait (.w3.,w0,w1,w2); ┆
0x7e340…7e360 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 75 73 29 3b 0a 20 ┆ w1:= address(b.ans_status); ┆
0x7e360…7e37a 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 ┆ w2:= 1 lshift w0; ┆
0x7e37a…7e380 (0x324,0xfc8)
0x7e380…7e3a0 20 20 20 20 20 20 20 69 66 20 77 32 3d 32 20 74 68 65 6e 20 28 77 31 29 2e 77 6f 72 64 3a 3d 20 ┆ if w2=2 then (w1).word:= ┆
0x7e3a0…7e3c0 77 32 20 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 ┆w2 or (w1).word else (w1).word:=┆
0x7e3c0…7e3e0 20 77 32 3b 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 ┆ w2; if w2:=b.ans_status┆
0x7e3e0…7e400 3c 3e 32 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 00 00 00 00 00 00 00 00 ┆<>2 then begin ┆
0x7e400…7e406 (1010,) (0x324,0xfc9)
0x7e406…7e420 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 ┆ (w3).tc_status:= ┆
0x7e420…7e440 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 3a 3d 20 77 30 ┆w2; (w3).tc_state:= w0┆
0x7e440…7e460 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 28 77 33 29 ┆:= 6; ! aborted ! (w3)┆
0x7e460…7e47e 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 65 72 ┆.tc_cause:= w0:= 2; ! receiver┆
0x7e47e…7e484 (0x324,0xfca)
0x7e484…7e4a0 21 0a 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┆
0x7e4a0…7e4c0 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 28 77 33 ┆0:= 2,w1:= 2, w2); (w3┆
0x7e4c0…7e4e0 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 20 20 20 ┆).fpr_llcudev:= w0:= - 1; ┆
0x7e4e0…7e4fc 20 20 20 20 67 6f 74 6f 20 65 78 69 74 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 20 65 ┆ goto exit; end e┆
0x7e4fc…7e502 (0x324,0xfcb)
0x7e502…7e520 6c 73 65 0a 20 20 20 20 20 20 20 20 69 66 20 77 31 3a 3d 62 2e 61 6e 73 5f 62 79 74 65 73 ┆lse if w1:=b.ans_bytes┆
0x7e520…7e540 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 20 6e ┆<>0 then begin comment n┆
0x7e540…7e560 6f 20 63 6f 6e 6e 65 63 74 3b 0a 20 20 20 20 20 20 20 20 20 20 77 31 20 65 78 74 72 61 63 74 20 ┆o connect; w1 extract ┆
0x7e560…7e57a 38 3b 0a 20 20 20 20 20 20 20 20 20 20 6f 70 72 6f 75 74 70 75 74 28 2e 77 33 ┆8; oproutput(.w3┆
0x7e57a…7e580 (0x324,0xfcc)
0x7e580…7e5a0 2e 2c 77 30 3a 3d 31 2c 77 31 2b 36 2c 77 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 28 77 33 29 ┆.,w0:=1,w1+6,w2); (w3)┆
0x7e5a0…7e5c0 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 20 20 20 20 20 20 28 ┆.tc_status:= w0:= 2; (┆
0x7e5c0…7e5e0 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 61 62 6f 72 74 65 64 ┆w3).tc_state:= w0:= 6; ! aborted┆
0x7e5e0…7e600 20 21 0a 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 63 61 75 00 00 00 00 00 00 00 00 ┆ ! (w3).tc_cau ┆
0x7e600…7e606 (1011,) (0x324,0xfcd)
0x7e606…7e620 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 ┆se:= w0:= 2; ! receiver! ┆
0x7e620…7e640 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 3d ┆ (w3).fpr_llcudev:= w0:=┆
0x7e640…7e660 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 20 20 20 20 20 ┆ -1; goto exit; ┆
0x7e660…7e67e 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 5f 6c 6c ┆ end else (w3).fpr_ll┆
0x7e67e…7e684 (0x324,0xfce)
0x7e684…7e6a0 63 75 64 65 76 3a 3d 20 77 30 3a 3d 20 62 2e 61 6e 73 34 3b 0a 20 20 20 20 20 20 65 ┆cudev:= w0:= b.ans4; e┆
0x7e6a0…7e6c0 6e 64 3b 0a 65 78 69 74 3a 0a 20 20 20 20 20 20 70 6f 70 20 28 2e 77 33 2e 2c 77 30 29 3b 0a 20 ┆nd; exit: pop (.w3.,w0); ┆
0x7e6c0…7e6e0 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 ┆
0x7e6e0…7e6fc 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 ┆return; end; end; ! en┆
0x7e6fc…7e702 (0x324,0xfcf)
0x7e702…7e720 64 20 63 6f 6e 6e 65 63 74 5f 33 32 37 30 20 21 0a 0a 0a 20 20 62 6f 64 79 20 6f 66 20 64 ┆d connect_3270 ! body of d┆
0x7e720…7e740 69 73 63 5f 33 32 37 30 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 69 6e 63 6f 64 65 0a 20 20 20 20 ┆isc_3270 begin incode ┆
0x7e740…7e760 77 6f 72 64 20 7a 65 72 6f 3a 3d 20 30 3b 0a 20 20 20 20 77 6f 72 64 20 6c 62 3a 3d 20 2d 38 33 ┆word zero:= 0; word lb:= -83┆
0x7e760…7e77a 38 38 36 30 37 2c 20 75 62 3a 3d 20 2d 38 33 38 38 36 30 35 3b 0a 20 20 20 20 ┆88607, ub:= -8388605; ┆
0x7e77a…7e780 (0x324,0xfd0)
0x7e780…7e7a0 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 70 75 73 68 ┆ref return; begin push┆
0x7e7a0…7e7c0 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 74 75 72 6e 20 61 ┆ (.w3.,w0:= w3); ! save return a┆
0x7e7c0…7e7e0 64 64 72 65 73 73 20 21 0a 20 20 20 20 20 20 77 30 3a 3d 20 6c 62 3b 77 31 3a 3d 20 75 62 3b 77 ┆ddress ! w0:= lb;w1:= ub;w┆
0x7e7e0…7e800 33 3a 3d 20 61 64 64 72 65 73 73 28 7a 65 72 6f 29 3b 20 6d 6f 6e 69 74 00 00 00 00 00 00 00 00 ┆3:= address(zero); monit ┆
0x7e800…7e806 (1012,) (0x324,0xfd1)
0x7e806…7e820 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 ┆or(72); ! set catalog base┆
0x7e820…7e840 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 74 29 2e 66 70 ┆ ! w1:= (w3:=b.current).fp┆
0x7e840…7e860 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 65 73 73 28 28 ┆r_stcorout; w3:= address((┆
0x7e860…7e87e 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 74 6f ┆w1).fpr_procout); monito┆
0x7e87e…7e884 (0x324,0xfd2)
0x7e884…7e8a0 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 ┆r (4); ! process description┆
0x7e8a0…7e8c0 20 21 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 ┆ ! w3:= b.current; w┆
0x7e8c0…7e8e0 30 3a 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 6e 64 20 28 ┆0:= (w1:=w0).word; ! w0 = kind (┆
0x7e8e0…7e8fc 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 ┆process) ! if w0=28 th┆
0x7e8fc…7e902 (0x324,0xfd3)
0x7e902…7e920 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 ┆en begin comment connect┆
0x7e920…7e940 65 64 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 63 6f 6d 6d ┆ed through adp3270; comm┆
0x7e940…7e960 65 6e 74 20 73 65 6e 64 20 72 65 6c 65 61 73 65 20 70 72 69 6e 74 65 72 20 6d 65 73 73 61 67 65 ┆ent send release printer message┆
0x7e960…7e97a 3b 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 ┆; w1:= (w3).tc_buf┆
0x7e97a…7e980 (0x324,0xfd4)
0x7e980…7e9a0 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 30 3a 3d 20 34 3b 0a ┆; (w1).buf_op:= w0:= 4; ┆
0x7e9a0…7e9c0 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 32 30 3b ┆ (w1).buf_mode:= w0:= 20;┆
0x7e9c0…7e9e0 0a 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 65 76 3b 0a ┆ w0:= (w3).fpr_plcudev; ┆
0x7e9e0…7ea00 20 20 20 20 20 20 20 20 28 77 31 29 2e 62 75 66 5f 6c 61 73 74 3a 3d 20 00 00 00 00 00 00 00 00 ┆ (w1).buf_last:= ┆
0x7ea00…7ea06 (1013,) (0x324,0xfd5)
0x7ea06…7ea20 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 ┆w0; w2:= address((┆
0x7ea20…7ea40 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 70 72 6f 63 6f ┆w2:=(w3).fpr_stcorout).fpr_proco┆
0x7ea40…7ea60 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 77 ┆ut); sendwait (.w3.,w0,w┆
0x7ea60…7ea7e 31 2c 77 32 29 3b 0a 20 20 20 20 20 20 20 20 77 31 3a 3d 20 28 77 33 29 2e 66 70 72 5f 73 ┆1,w2); w1:= (w3).fpr_s┆
0x7ea7e…7ea84 (0x324,0xfd6)
0x7ea84…7eaa0 74 63 6f 72 6f 75 74 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 20 28 77 31 ┆tcorout; if w0:= (w1┆
0x7eaa0…7eac0 29 2e 66 70 72 5f 63 6f 75 6e 74 3d 31 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e ┆).fpr_count=1 then begin┆
0x7eac0…7eae0 20 63 6f 6d 6d 65 6e 74 20 73 65 6e 64 20 61 70 70 6c 69 63 61 74 69 6f 6e 20 64 69 73 63 6f 6e ┆ comment send application discon┆
0x7eae0…7eafc 6e 65 63 74 20 6d 65 73 73 61 67 65 3b 0a 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d ┆nect message; w1:=┆
0x7eafc…7eb02 (0x324,0xfd7)
0x7eb02…7eb20 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 29 2e 62 ┆ (w3).tc_buf; (w1).b┆
0x7eb20…7eb40 75 66 5f 6f 70 3a 3d 20 77 30 3a 3d 20 34 3b 0a 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 62 ┆uf_op:= w0:= 4; (w1).b┆
0x7eb40…7eb60 75 66 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 77 31 3a 3d ┆uf_mode:= w0:= 8; w1:=┆
0x7eb60…7eb7a 20 28 77 33 29 2e 74 63 5f 62 75 66 3b 0a 20 20 20 20 20 20 20 20 20 20 77 32 ┆ (w3).tc_buf; w2┆
0x7eb7a…7eb80 (0x324,0xfd8)
0x7eb80…7eba0 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 74 63 6f 72 6f 75 ┆:= address((w2:=(w3).fpr_stcorou┆
0x7eba0…7ebc0 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 20 20 73 65 6e 64 77 ┆t).fpr_procout); sendw┆
0x7ebc0…7ebe0 61 69 74 20 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 65 6e 64 ┆ait (.w3.,w0,w1,w2); end┆
0x7ebe0…7ec00 3b 0a 20 20 20 20 20 20 65 6e 64 20 21 20 65 6e 64 20 61 64 70 33 32 37 00 00 00 00 00 00 00 00 ┆; end ! end adp327 ┆
0x7ec00…7ec06 (1014,) (0x324,0xfd9)
0x7ec06…7ec20 30 20 63 6f 6e 6e 65 63 74 65 64 20 70 72 69 6e 74 65 72 20 21 0a 20 20 20 20 ┆0 connected printer ! ┆
0x7ec20…7ec40 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 63 6f 6e 6e 65 ┆ else begin comment conne┆
0x7ec40…7ec60 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 20 20 20 20 20 ┆cted through m.rocs, NCP; ┆
0x7ec60…7ec7e 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 20 20 28 77 ┆ w1:= (w3).tc_buf; (w┆
0x7ec7e…7ec84 (0x324,0xfda)
0x7ec84…7eca0 31 29 2e 62 75 66 5f 6f 70 3a 3d 20 77 30 3a 3d 20 32 20 3b 0a 20 20 20 20 20 20 20 ┆1).buf_op:= w0:= 2 ; ┆
0x7eca0…7ecc0 20 28 77 31 29 2e 62 75 66 5f 6d 6f 64 65 3a 3d 20 77 30 3a 3d 20 38 3b 20 21 20 64 69 73 63 6f ┆ (w1).buf_mode:= w0:= 8; ! disco┆
0x7ecc0…7ece0 6e 6e 65 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 ┆nnect mess ! w0:= (w3).f┆
0x7ece0…7ecfc 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 62 75 66 ┆pr_plcudev; (w1).buf┆
0x7ecfc…7ed02 (0x324,0xfdb)
0x7ed02…7ed20 5f 64 61 74 61 31 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 20 77 32 3a 3d 20 61 64 64 72 ┆_data1:= w0; w2:= addr┆
0x7ed20…7ed40 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_┆
0x7ed40…7ed60 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.┆
0x7ed60…7ed7a 2c 77 30 2c 77 31 2c 77 32 29 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 ┆,w0,w1,w2); end; ┆
0x7ed7a…7ed80 (0x324,0xfdc)
0x7ed80…7eda0 20 20 20 70 6f 70 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 ┆ pop (.w3.,w0); return:=┆
0x7eda0…7edc0 20 77 30 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 ┆ w0; call w0 return; e┆
0x7edc0…7ede0 6e 64 3b 0a 20 20 65 6e 64 3b 20 21 20 65 6e 64 20 64 69 73 63 5f 33 32 37 30 20 21 0a 0a 0a 0a ┆nd; end; ! end disc_3270 ! ┆
0x7ede0…7ee00 20 20 62 6f 64 79 20 6f 66 20 66 70 72 0a 20 20 63 6f 6d 6d 65 6e 74 20 00 00 00 00 00 00 00 00 ┆ body of fpr comment ┆
0x7ee00…7ee06 (1015,) (0x324,0xfdd)
0x7ee06…7ee20 66 6f 72 6d 61 74 20 70 72 69 6e 74 65 72 20 63 6f 72 6f 75 74 69 6e 65 3b 0a ┆format printer coroutine; ┆
0x7ee20…7ee40 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 5f 6f 70 2c 20 ┆ begin label loop, no_op, ┆
0x7ee40…7ee60 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 20 69 6e 63 6f ┆rep, closeup, suicide; inco┆
0x7ee60…7ee7e 64 65 0a 20 20 20 20 20 20 77 6f 72 64 20 21 20 61 64 70 33 32 37 30 20 73 74 61 74 75 73 ┆de word ! adp3270 status┆
0x7ee7e…7ee84 (0x324,0xfde)
0x7ee84…7eea0 20 63 6f 64 65 73 3a 20 28 73 65 65 20 61 64 70 33 32 37 30 20 72 65 66 66 2e 20 72 ┆ codes: (see adp3270 reff. r┆
0x7eea0…7eec0 63 73 6c 2e 39 39 31 20 2d 20 30 39 39 31 30 29 20 0a 20 20 20 20 20 20 20 20 66 69 72 73 74 20 ┆csl.991 - 09910) first ┆
0x7eec0…7eee0 62 79 74 65 3a 20 41 49 44 28 3d 31 35 36 29 20 73 65 63 2e 20 62 79 74 65 3a 20 53 42 20 21 0a ┆byte: AID(=156) sec. byte: SB ! ┆
0x7eee0…7eefc 20 20 20 20 20 20 20 20 21 20 20 41 49 44 28 3d 31 35 36 29 2f 53 42 3a 20 20 20 20 ┆ ! AID(=156)/SB: ┆
0x7eefc…7ef02 (0x324,0xfdf)
0x7ef02…7ef20 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 61 64 ┆ 7654321076543210 ! ad┆
0x7ef20…7ef40 70 5f 65 6e 64 3a 3d 20 20 20 20 20 20 20 20 20 20 32 27 31 30 30 31 31 31 30 30 31 30 30 30 30 ┆p_end:= 2'1001110010000┆
0x7ef40…7ef60 30 30 30 2c 0a 20 20 20 20 20 20 20 20 61 64 70 5f 6e 72 65 61 64 79 3a 3d 20 20 20 20 20 20 20 ┆000, adp_nready:= ┆
0x7ef60…7ef7a 32 27 31 30 30 31 31 31 30 30 31 30 30 30 30 30 30 31 2c 0a 20 20 20 20 20 20 ┆2'1001110010000001, ┆
0x7ef7a…7ef80 (0x324,0xfe0)
0x7ef80…7efa0 20 20 61 64 70 5f 74 6f 75 74 3a 3d 20 20 20 20 20 20 20 20 20 32 27 31 30 30 31 31 31 30 30 31 ┆ adp_tout:= 2'100111001┆
0x7efa0…7efc0 30 30 30 30 30 31 30 2c 0a 20 20 20 20 20 20 20 20 61 64 70 5f 6f 66 66 6c 69 6e 65 3a 3d 20 20 ┆0000010, adp_offline:= ┆
0x7efc0…7efe0 20 20 20 20 32 27 31 30 30 31 31 31 30 30 31 30 30 30 30 30 31 31 2c 0a 20 20 20 20 20 20 20 20 ┆ 2'1001110010000011, ┆
0x7efe0…7f000 61 64 70 5f 75 6e 61 76 3a 3d 20 20 20 20 20 20 20 20 20 32 27 31 30 30 00 00 00 00 00 00 00 00 ┆adp_unav:= 2'100 ┆
0x7f000…7f006 (1016,) (0x324,0xfe1)
0x7f006…7f020 31 31 31 30 30 31 30 30 30 30 31 30 30 2c 0a 20 20 20 20 20 20 20 20 21 20 73 ┆1110010000100, ! s┆
0x7f020…7f040 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 35 35 20 69 62 ┆tatus bytes s0/s1 (see. rc855 ib┆
0x7f040…7f060 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 20 20 20 20 20 ┆m 3270 bsc emulator ┆
0x7f060…7f07e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2d 20 20 72 63 73 6c 2e 20 34 ┆ - rcsl. 4┆
0x7f07e…7f084 (0x324,0xfe2)
0x7f084…7f0a0 32 2d 69 31 36 39 32 29 20 20 20 20 20 20 20 20 20 20 20 20 20 21 0a 20 20 20 20 20 ┆2-i1692) ! ┆
0x7f0a0…7f0c0 20 20 20 21 20 20 20 73 30 2f 73 31 3a 20 20 20 20 20 20 20 20 20 20 20 37 36 35 34 33 32 31 30 ┆ ! s0/s1: 76543210┆
0x7f0c0…7f0e0 37 36 35 34 33 32 31 30 20 21 0a 20 20 20 20 20 20 20 20 64 65 76 5f 65 6e 64 3a 3d 20 20 20 20 ┆76543210 ! dev_end:= ┆
0x7f0e0…7f0fc 20 20 20 20 20 20 32 27 31 31 30 30 30 30 31 30 30 31 30 30 30 30 30 30 2c 20 21 20 ┆ 2'1100001001000000, ! ┆
0x7f0fc…7f102 (0x324,0xfe3)
0x7f102…7f120 68 65 78 3a 20 63 32 2c 34 30 20 21 0a 20 20 20 20 20 20 20 20 64 65 76 5f 75 6e 61 76 61 ┆hex: c2,40 ! dev_unava┆
0x7f120…7f140 69 6c 65 61 62 6c 65 3a 3d 20 32 27 30 31 30 30 30 30 30 30 30 31 30 31 30 30 30 30 2c 20 21 20 ┆ileable:= 2'0100000001010000, ! ┆
0x7f140…7f160 68 65 78 3a 20 34 30 2c 35 30 20 21 0a 20 20 20 20 20 20 20 20 64 65 76 5f 62 75 73 79 3a 3d 20 ┆hex: 40,50 ! dev_busy:= ┆
0x7f160…7f17a 20 20 20 20 20 20 20 20 32 27 31 31 30 30 31 30 30 30 30 31 30 30 30 30 30 30 ┆ 2'1100100001000000┆
0x7f17a…7f180 (0x324,0xfe4)
0x7f180…7f1a0 2c 20 21 20 68 65 78 3a 20 63 38 2c 34 30 20 21 0a 20 20 20 20 20 20 20 20 64 65 76 5f 6f 66 66 ┆, ! hex: c8,40 ! dev_off┆
0x7f1a0…7f1c0 6c 69 6e 65 3a 3d 20 20 20 20 20 20 32 27 31 31 30 30 30 30 31 30 30 31 30 31 30 30 30 30 2c 20 ┆line:= 2'1100001001010000, ┆
0x7f1c0…7f1e0 21 20 68 65 78 3a 20 63 32 2c 35 30 20 21 0a 20 20 20 20 20 20 20 20 64 65 76 5f 63 6d 64 65 72 ┆! hex: c2,50 ! dev_cmder┆
0x7f1e0…7f200 72 6f 72 3a 3d 20 20 20 20 20 32 27 30 31 30 30 30 30 30 30 30 31 31 30 00 00 00 00 00 00 00 00 ┆ror:= 2'010000000110 ┆
0x7f200…7f206 (1017,) (0x324,0xfe5)
0x7f206…7f220 30 30 30 30 3b 20 21 20 68 65 78 3a 20 34 30 2c 36 30 20 21 0a 0a 20 20 20 20 ┆0000; ! hex: 40,60 ! ┆
0x7f220…7f240 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 20 3b 20 21 20 ┆ word oprhead0 := 3475487 ; ! ┆
0x7f240…7f260 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 29 20 21 0a 20 ┆write code lshift 16 (53) ! ┆
0x7f260…7f27e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x7f27e…7f284 (0x324,0xfe6)
0x7f284…7f2a0 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 20 20 38 ┆ ! + wcc lshift 8┆
0x7f2a0…7f2c0 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 20 20 20 20 20 ┆ ( 8) ! ┆
0x7f2c0…7f2e0 20 20 20 20 20 20 20 20 20 20 21 20 2b 20 75 73 6d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ! + usm ┆
0x7f2e0…7f2fc 20 20 20 20 28 33 31 29 20 21 0a 0a 0a 0a 20 20 20 20 20 20 77 6f 72 64 20 20 6f 70 ┆ (31) ! word op┆
0x7f2fc…7f302 (0x324,0xfe7)
0x7f302…7f320 72 68 65 61 64 31 20 3a 3d 20 33 34 37 35 34 36 39 20 3b 20 21 20 77 72 69 74 65 20 63 6f ┆rhead1 := 3475469 ; ! write co┆
0x7f320…7f340 64 65 20 20 20 20 6c 73 68 69 66 74 20 31 36 20 28 35 33 29 20 21 0a 20 20 20 20 20 20 20 20 20 ┆de lshift 16 (53) ! ┆
0x7f340…7f360 20 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 2b 20 77 63 63 ┆ ! + wcc┆
0x7f360…7f37a 20 20 20 20 20 20 20 20 20 6c 73 68 69 66 74 20 20 38 20 28 20 38 29 20 21 0a ┆ lshift 8 ( 8) ! ┆
0x7f37a…7f380 (0x324,0xfe8)
0x7f380…7f3a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x7f3a0…7f3c0 20 20 21 20 2b 20 63 72 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 31 33 29 ┆ ! + cr (13)┆
0x7f3c0…7f3e0 3b 21 0a 20 20 20 20 20 20 77 6f 72 64 20 20 6f 70 72 68 65 61 64 32 20 3b 20 20 20 20 20 20 20 ┆;! word oprhead2 ; ┆
0x7f3e0…7f400 20 20 20 20 20 21 20 63 68 61 72 61 63 74 65 72 73 20 6f 72 20 22 63 72 00 00 00 00 00 00 00 00 ┆ ! characters or "cr ┆
0x7f400…7f406 (1018,) (0x324,0xfe9)
0x7f406…7f420 22 73 20 70 61 72 74 2e 77 6f 72 64 21 0a 0a 20 20 20 20 20 20 74 65 78 74 20 ┆"s part.word! text ┆
0x7f420…7f440 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 69 6c 6c 65 64 ┆(27) t_oprkill := "'10'***killed┆
0x7f440…7f460 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 0a 20 20 20 20 ┆ by operator'25''3''0''0'"; ┆
0x7f460…7f47e 20 20 74 65 78 74 20 28 33 30 29 20 74 5f 61 70 6c 6b 69 6c 6c 20 3a 3d 20 22 27 31 30 27 ┆ text (30) t_aplkill := "'10'┆
0x7f47e…7f484 (0x324,0xfea)
0x7f484…7f4a0 2a 2a 2a 6b 69 6c 6c 65 64 20 62 79 20 61 70 70 6c 69 63 61 74 69 6f 6e 27 32 35 27 ┆***killed by application'25'┆
0x7f4a0…7f4c0 27 33 27 27 30 27 27 30 27 22 3b 0a 20 20 20 20 20 20 74 65 78 74 20 28 33 30 29 20 74 5f 6f 70 ┆'3''0''0'"; text (30) t_op┆
0x7f4c0…7f4e0 72 66 61 75 6c 74 3a 3d 20 22 27 31 30 27 2a 2a 2a 6f 70 65 72 61 74 6f 72 20 64 65 76 69 63 65 ┆rfault:= "'10'***operator device┆
0x7f4e0…7f4fc 20 74 72 6f 75 62 6c 65 27 32 35 27 27 33 27 22 3b 0a 0a 0a 0a 20 20 20 20 20 20 72 ┆ trouble'25''3'"; r┆
0x7f4fc…7f502 (0x324,0xfeb)
0x7f502…7f520 65 66 20 74 72 61 6e 73 72 65 66 2c 20 20 71 75 65 75 65 72 65 66 3b 0a 20 20 20 20 20 20 ┆ef transref, queueref; ┆
0x7f520…7f540 72 65 66 20 72 65 6c 61 74 69 76 65 3b 0a 20 20 20 20 20 20 77 6f 72 64 20 73 65 67 6d 65 6e 74 ┆ref relative; word segment┆
0x7f540…7f560 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 6e 0a 20 20 ┆; ref return; begin ┆
0x7f560…7f57a 20 20 20 20 72 65 74 75 72 6e 20 3a 3d 20 77 33 3b 20 63 61 6c 6c 20 77 33 20 ┆ return := w3; call w3 ┆
0x7f57a…7f580 (0x324,0xfec)
0x7f580…7f5a0 72 65 74 75 72 6e 3b 20 20 21 20 70 73 65 75 64 6f 20 63 61 6c 6c 20 21 0a 20 20 20 20 20 20 63 ┆return; ! pseudo call ! c┆
0x7f5a0…7f5c0 6f 6e 6e 65 63 74 5f 33 32 37 30 20 28 2e 77 33 2e 29 3b 0a 20 20 20 20 20 20 77 68 69 6c 65 20 ┆onnect_3270 (.w3.); while ┆
0x7f5c0…7f5e0 20 77 31 3d 77 31 20 20 64 6f 0a 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 67 ┆ w1=w1 do begin comment g┆
0x7f5e0…7f600 65 74 20 6e 65 78 74 20 74 72 61 6e 73 70 6f 72 74 3b 0a 0a 20 20 20 20 00 00 00 00 00 00 00 00 ┆et next transport; ┆
0x7f600…7f606 (1019,) (0x324,0xfed)
0x7f606…7f620 20 20 20 20 77 31 20 3a 3d 20 61 64 64 72 65 73 73 28 28 77 33 29 2e 74 63 5f ┆ w1 := address((w3).tc_┆
0x7f620…7f640 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 2e 74 71 5f 6e ┆nexttr); w1 := (w1).tq_n┆
0x7f640…7f660 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 28 28 77 33 29 ┆ext; if w2:=address((w3)┆
0x7f660…7f67e 2e 74 63 5f 6e 65 78 74 74 72 29 3d 77 31 20 20 74 68 65 6e 20 67 6f 74 6f 20 73 75 69 63 ┆.tc_nexttr)=w1 then goto suic┆
0x7f67e…7f684 (0x324,0xfee)
0x7f684…7f6a0 69 64 65 3b 0a 0a 20 20 20 20 20 20 20 20 77 31 20 3a 3d 20 28 77 33 29 2e 74 63 5f ┆ide; w1 := (w3).tc_┆
0x7f6a0…7f6c0 6e 65 78 74 74 72 3b 0a 20 20 20 20 20 20 20 20 71 75 65 75 65 72 65 66 20 3a 3d 20 77 31 3b 0a ┆nexttr; queueref := w1; ┆
0x7f6c0…7f6e0 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 28 ┆ looktransport(.w3.,w1:=(┆
0x7f6e0…7f6fc 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 20 ┆w1).tq_transno,w2); ┆
0x7f6fc…7f702 (0x324,0xfef)
0x7f702…7f720 74 72 61 6e 73 72 65 66 20 3a 3d 20 77 32 3b 0a 20 20 20 20 20 20 20 20 77 31 20 3a 3d 20 ┆transref := w2; w1 := ┆
0x7f720…7f740 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┆
0x7f740…7f760 6f 20 3a 3d 20 77 30 20 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; ┆
0x7f760…7f77a 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 ┆ link(.w3.,w1:=queuere┆
0x7f77a…7f780 (0x324,0xff0)
0x7f780…7f7a0 66 2c 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 ┆f,w2:=address(b.tqfreefst)); ┆
0x7f7a0…7f7c0 20 20 20 20 20 69 66 20 77 30 3a 3d 20 28 77 33 29 2e 66 70 72 5f 6c 6c 63 75 64 65 76 20 3c 20 ┆ if w0:= (w3).fpr_llcudev < ┆
0x7f7c0…7f7e0 30 20 74 68 65 6e 20 67 6f 74 6f 20 63 6c 6f 73 65 75 70 3b 0a 20 20 20 20 20 20 20 20 28 77 33 ┆0 then goto closeup; (w3┆
0x7f7e0…7f800 29 2e 66 70 72 5f 63 6f 6e 76 65 72 74 3a 3d 20 77 30 3a 3d 20 61 64 64 00 00 00 00 00 00 00 00 ┆).fpr_convert:= w0:= add ┆
0x7f800…7f806 (1020,) (0x324,0xff1)
0x7f806…7f820 72 65 73 73 28 62 2e 73 74 72 74 74 61 62 6c 65 29 3b 0a 20 20 20 20 20 20 20 ┆ress(b.strttable); ┆
0x7f820…7f840 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 33 29 2e 74 63 ┆ w2 := transref; (w3).tc┆
0x7f840…7f860 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 20 20 20 20 20 ┆_ointervent := w0 := 0; ┆
0x7f860…7f87e 28 77 33 29 2e 74 63 5f 61 69 6e 74 65 72 76 65 6e 74 20 3a 3d 20 77 30 20 3b 0a 20 20 20 ┆(w3).tc_aintervent := w0 ; ┆
0x7f87e…7f884 (0x324,0xff2)
0x7f884…7f8a0 20 20 20 20 20 28 77 33 29 2e 74 63 5f 6d 6f 64 65 20 3a 3d 20 77 31 20 3a 3d 20 28 ┆ (w3).tc_mode := w1 := (┆
0x7f8a0…7f8c0 77 32 29 2e 74 72 5f 6d 6f 64 65 3b 0a 20 20 20 20 20 20 20 20 77 30 3a 3d 20 28 77 33 29 2e 66 ┆w2).tr_mode; w0:= (w3).f┆
0x7f8c0…7f8e0 70 72 5f 6c 6c 63 75 64 65 76 3b 77 30 20 61 6e 64 20 33 32 36 33 39 3b 20 77 30 20 6c 73 68 69 ┆pr_llcudev;w0 and 32639; w0 lshi┆
0x7f8e0…7f8fc 66 74 20 38 3b 20 77 30 2b 32 37 3b 0a 20 20 20 20 20 20 20 20 28 77 33 29 2e 66 70 ┆ft 8; w0+27; (w3).fp┆
0x7f8fc…7f902 (0x324,0xff3)
0x7f902…7f920 72 5f 74 72 61 6e 73 69 64 20 3a 3d 20 77 30 3b 20 21 20 63 75 20 6c 73 68 69 66 74 20 31 ┆r_transid := w0; ! cu lshift 1┆
0x7f920…7f940 36 20 2b 20 64 65 76 20 6c 73 68 69 66 74 20 38 20 2b 20 65 73 63 20 21 0a 20 20 20 20 20 20 20 ┆6 + dev lshift 8 + esc ! ┆
0x7f940…7f960 20 28 77 33 29 2e 66 70 72 5f 70 61 72 74 69 61 6c 20 3a 3d 20 77 30 20 3a 3d 20 30 3b 0a 20 20 ┆ (w3).fpr_partial := w0 := 0; ┆
0x7f960…7f97a 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 62 73 6c 20 20 3a 3d 20 77 30 20 3a ┆ (w3).tc_bsl := w0 :┆
0x7f97a…7f980 (0x324,0xff4)
0x7f980…7f9a0 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 28 77 33 29 2e 74 63 ┆= (w2).tr_basel; (w3).tc┆
0x7f9a0…7f9c0 5f 62 73 75 20 20 3a 3d 20 77 30 20 3a 3d 20 28 77 32 29 2e 74 72 5f 62 61 73 65 75 3b 0a 20 20 ┆_bsu := w0 := (w2).tr_baseu; ┆
0x7f9c0…7f9e0 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 62 73 70 74 72 3a 3d 20 66 31 20 3a 3d 20 28 77 32 29 ┆ (w3).tc_bsptr:= f1 := (w2)┆
0x7f9e0…7fa00 2e 74 72 5f 62 73 73 74 61 72 74 70 74 72 3b 0a 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆.tr_bsstartptr; ┆
0x7fa00…7fa06 (1021,) (0x324,0xff5)
0x7fa06…7fa20 20 66 31 20 61 73 68 69 66 74 20 2d 20 39 3b 0a 20 20 20 20 20 20 20 20 20 28 ┆ f1 ashift - 9; (┆
0x7fa20…7fa40 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 20 20 20 20 20 ┆w3).fpr_startsegment:= w1; ┆
0x7fa40…7fa60 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 3b 0a 20 20 20 ┆ (w3).tc_state:= w0 := 0; ┆
0x7fa60…7fa7e 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┆
0x7fa7e…7fa84 (0x324,0xff6)
0x7fa84…7faa0 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 ┆ss((w2).tr_bsarea),w2:=addre┆
0x7faa0…7fac0 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 6d 6f 76 ┆ss((w3).tc_bsname)); mov┆
0x7fac0…7fae0 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 6e 73 ┆e(.w3.,w0,w1:=address((w1:=trans┆
0x7fae0…7fafc 72 65 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 ┆ref).tr_qgroup), ┆
0x7fafc…7fb02 (0x324,0xff7)
0x7fb02…7fb20 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_┆
0x7fb20…7fb40 71 67 72 6f 75 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 ┆qgroup)); move(.w3.,w0,w┆
0x7fb40…7fb60 31 3a 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 6e 61 ┆1:=address((w1:=transref).tr_qna┆
0x7fb60…7fb7a 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 ┆me), ┆
0x7fb7a…7fb80 (0x324,0xff8)
0x7fb80…7fba0 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 3b 0a 20 20 20 ┆w2:=address((w3).tc_qname)); ┆
0x7fba0…7fbc0 20 20 20 20 20 28 77 33 29 2e 66 70 72 5f 69 6e 70 73 74 61 74 65 20 3a 3d 20 77 30 20 3a 3d 20 ┆ (w3).fpr_inpstate := w0 := ┆
0x7fbc0…7fbe0 30 3b 0a 0a 20 20 20 20 20 20 20 20 6f 70 65 6e 62 73 28 2e 77 33 2e 29 3b 20 20 21 20 20 70 72 ┆0; openbs(.w3.); ! pr┆
0x7fbe0…7fc00 65 70 61 72 65 20 61 72 65 61 20 20 21 0a 6c 6f 6f 70 3a 0a 20 20 20 20 00 00 00 00 00 00 00 00 ┆epare area ! loop: ┆
0x7fc00…7fc06 (1022,) (0x324,0xff9)
0x7fc06…7fc20 20 20 20 20 63 61 73 65 20 77 32 3a 3d 28 77 33 29 2e 74 63 5f 6f 69 6e 74 65 ┆ case w2:=(w3).tc_ointe┆
0x7fc20…7fc40 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 20 20 20 20 20 ┆rvent of begin ┆
0x7fc40…7fc60 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 20 20 20 20 20 ┆ begin comment start; ┆
0x7fc60…7fc7e 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 3a 3d 20 30 3b ┆ (w3).tc_ointervent:= w0:= 0;┆
0x7fc7e…7fc84 (0x324,0xffa)
0x7fc84…7fca0 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 62 65 ┆ end; be┆
0x7fca0…7fcc0 67 69 6e 20 21 20 73 6b 69 70 20 21 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 ┆gin ! skip ! end; begi┆
0x7fcc0…7fce0 6e 20 63 6f 6d 6d 65 6e 74 20 72 65 70 65 61 74 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 77 ┆n comment repeat; (w┆
0x7fce0…7fcfc 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; ┆
0x7fcfc…7fd02 (0x324,0xffb)
0x7fd02…7fd20 20 20 20 20 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 ┆ get_block(.w3.,w0:=┆
0x7fd20…7fd40 30 2c 77 31 2c 77 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 66 31 3a 3d 20 28 77 33 29 2e ┆0,w1,w2); f1:= (w3).┆
0x7fd40…7fd60 74 63 5f 62 73 70 74 72 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 31 20 65 78 74 72 61 63 74 ┆tc_bsptr; w1 extract┆
0x7fd60…7fd7a 20 39 3b 72 65 6c 61 74 69 76 65 3a 3d 20 77 31 3b 0a 20 20 20 20 20 20 20 20 ┆ 9;relative:= w1; ┆
0x7fd7a…7fd80 (0x324,0xffc)
0x7fd80…7fda0 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 20 20 20 20 ┆ f1:= (w3).tc_bsptr; ┆
0x7fda0…7fdc0 20 20 20 20 66 31 20 61 73 68 69 66 74 20 2d 20 39 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 73 ┆ f1 ashift - 9; s┆
0x7fdc0…7fde0 65 67 6d 65 6e 74 3a 3d 20 77 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 20 28 77 ┆egment:= w1; w1:= (w┆
0x7fde0…7fe00 33 29 2e 74 63 5f 62 73 62 75 66 2b 72 65 6c 61 74 69 76 65 2d 32 3b 0a 00 00 00 00 00 00 00 00 ┆3).tc_bsbuf+relative-2; ┆
0x7fe00…7fe06 (1023,) (0x324,0xffd)
0x7fe06…7fe20 20 20 20 20 20 20 20 20 20 20 20 20 77 68 69 6c 65 20 77 30 3a 3d 20 28 77 33 ┆ while w0:= (w3┆
0x7fe20…7fe40 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 20 20 20 20 20 ┆).tc_workffs > 0 do ┆
0x7fe40…7fe60 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 20 70 61 67 65 ┆begin comment move back one page┆
0x7fe60…7fe7e 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 31 3c 28 77 33 29 2e 74 63 5f ┆; if w1<(w3).tc_┆
0x7fe7e…7fe84 (0x324,0xffe)
0x7fe84…7fea0 62 73 62 75 66 20 74 68 65 6e 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 ┆bsbuf then be┆
0x7fea0…7fec0 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 62 61 63 6b 73 70 61 63 65 20 6f 6e 65 20 73 65 67 6d 65 6e ┆gin comment backspace one segmen┆
0x7fec0…7fee0 74 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 30 3b 77 31 3a 3d 20 73 65 ┆t; w0:=0;w1:= se┆
0x7fee0…7fefc 67 6d 65 6e 74 2d 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 ┆gment-1; if ┆
0x7fefc…7ff02 (0x324,0xfff)
0x7ff02…7ff20 77 31 3e 3d 28 77 33 29 2e 66 70 72 5f 73 74 61 72 74 73 65 67 6d 65 6e 74 20 74 68 65 6e ┆w1>=(w3).fpr_startsegment then┆
0x7ff20…7ff40 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 ┆
0x7ff40…7ff60 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 20 20 20 ┆ segment:= w1; ┆
0x7ff60…7ff7a 20 20 20 20 20 20 20 20 20 66 31 20 6c 73 68 69 66 74 20 39 3b 0a 20 20 20 20 ┆ f1 lshift 9; ┆
0x7ff7a…7ff80 (0x324,0x1000)
0x7ff80…7ffa0 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 31 ┆ (w3).tc_bsptr:= f1┆
0x7ffa0…7ffc0 3b 0a 20 20 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 2e 77 ┆; get_block(.w┆
0x7ffc0…7ffe0 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 20 20 20 20 20 20 ┆3.,w0:=0,w1,w2); ┆
0x7ffe0…80000 20 20 20 69 66 20 77 32 3c 3e 32 20 74 68 65 6e 0a 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ if w2<>2 then ┆
0x80000…80006 (1024,) (0x324,0x1001)
0x80006…80020 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 ┆
0x80020…80040 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 31 3a 3d 20 ┆ (w3).tc_state:= w1:= ┆
0x80040…80060 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 2e 74 63 5f 63 ┆6; (w3).tc_c┆
0x80060…8007e 61 75 73 65 3a 3d 20 77 31 3a 3d 20 31 3b 20 21 20 73 65 6e 64 65 72 20 20 21 0a 20 20 20 ┆ause:= w1:= 1; ! sender ! ┆
0x8007e…80084 (0x324,0x1002)
0x80084…800a0 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 74 61 ┆ (w3).tc_sta┆
0x800a0…800c0 74 75 73 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 67 6f ┆tus:= w2; go┆
0x800c0…800e0 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 20 20 20 20 65 6e ┆to closeup; en┆
0x800e0…800fc 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 31 3a 3d 20 28 77 ┆d; f1:= (w┆
0x800fc…80102 (0x324,0x1003)
0x80102…80120 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 20 20 ┆3).tc_bsptr; ┆
0x80120…80140 20 66 31 20 61 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 20 20 ┆ f1 ashift - 9; ┆
0x80140…80160 20 20 73 65 67 6d 65 6e 74 3a 3d 20 77 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ segment:= w1; ┆
0x80160…8017a 20 20 77 31 3a 3d 20 28 77 33 29 2e 74 63 5f 62 73 62 75 66 2b 35 31 30 3b 0a ┆ w1:= (w3).tc_bsbuf+510; ┆
0x8017a…80180 (0x324,0x1004)
0x80180…801a0 20 20 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 20 20 ┆ end ┆
0x801a0…801c0 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 62 65 67 69 6e 20 63 ┆ else begin c┆
0x801c0…801e0 6f 6d 6d 65 6e 74 20 73 74 61 72 74 20 6f 66 20 66 69 6c 65 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆omment start of file; ┆
0x801e0…80200 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 77 6f 72 6b 66 66 73 3a 00 00 00 00 00 00 00 00 ┆ (w3).tc_workffs: ┆
0x80200…80206 (1025,) (0x324,0x1005)
0x80206…80220 3d 20 77 30 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆= w0:= 0; ┆
0x80220…80240 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 20 20 65 6e 64 ┆ goto loop; end┆
0x80240…80260 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 67 65 74 20 73 ┆; end; ! end get s┆
0x80260…8027e 65 67 6d 65 6e 74 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 ┆egment ! comment┆
0x8027e…80284 (0x324,0x1006)
0x80284…802a0 20 63 68 65 63 6b 20 6c 6f 6f 70 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 ┆ check loop; w┆
0x802a0…802c0 30 3a 3d 28 77 31 29 2e 77 6f 72 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 ┆0:=(w1).word; if w┆
0x802c0…802e0 30 20 6f 6e 65 6d 61 73 6b 20 32 31 30 35 33 37 36 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 ┆0 onemask 2105376 then ┆
0x802e0…802fc 20 20 20 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 ┆ else begi┆
0x802fc…80302 (0x324,0x1007)
0x80302…80320 6e 20 63 6f 6d 6d 65 6e 74 20 63 68 65 63 6b 20 63 68 61 72 73 20 66 6f 72 20 6e 65 77 6c ┆n comment check chars for newl┆
0x80320…80340 69 6e 65 73 20 61 6e 64 20 66 66 27 73 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 ┆ines and ff's; r┆
0x80340…80360 65 6c 61 74 69 76 65 3a 3d 20 77 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 68 ┆elative:= w1; wh┆
0x80360…8037a 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 20 ┆ile w0<>0 do ┆
0x8037a…80380 (0x324,0x1008)
0x80380…803a0 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 31 20 6c 73 ┆ begin f1 ls┆
0x803a0…803c0 68 69 66 74 20 2d 38 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 20 6c 73 ┆hift -8; w1 ls┆
0x803c0…803e0 68 69 66 74 2d 31 36 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 ┆hift-16; if w1┆
0x803e0…80400 3d 31 30 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 ┆=10 then ┆
0x80400…80406 (1026,) (0x324,0x1009)
0x80406…80420 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 ┆
0x80420…80440 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 77 33 29 2e 74 ┆ (w3).tc_worknls:= w1:= (w3).t┆
0x80440…80460 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 20 20 20 20 20 ┆c_worknls+1; ┆
0x80460…8047e 20 69 66 20 77 31 3d 62 2e 70 72 6c 70 61 67 65 20 74 68 65 6e 20 77 31 3a 3d 20 31 32 20 ┆ if w1=b.prlpage then w1:= 12 ┆
0x8047e…80484 (0x324,0x100a)
0x80484…804a0 65 6c 73 65 20 77 31 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆else w1:=0; ┆
0x804a0…804c0 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 69 66 20 77 31 3d 31 ┆ end; if w1=1┆
0x804c0…804e0 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 6e 0a 20 ┆2 then begin ┆
0x804e0…804fc 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 77 ┆ (w3).tc_w┆
0x804fc…80502 (0x324,0x100b)
0x80502…80520 6f 72 6b 66 66 73 3a 3d 20 77 31 3a 3d 20 28 77 33 29 2e 74 63 5f 77 6f 72 6b 66 66 73 2d ┆orkffs:= w1:= (w3).tc_workffs-┆
0x80520…80540 31 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 2e 74 63 5f 77 ┆1; (w3).tc_w┆
0x80540…80560 6f 72 6b 6e 6c 73 3a 3d 20 77 31 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆orknls:= w1:= 0; ┆
0x80560…8057a 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 6e ┆ end; en┆
0x8057a…80580 (0x324,0x100c)
0x80580…805a0 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 20 72 65 6c 61 74 69 76 65 ┆d; w1:= relative┆
0x805a0…805c0 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; ┆
0x805c0…805e0 20 20 20 77 31 2d 32 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 ┆ w1-2; end; ! en┆
0x805e0…80600 64 20 62 61 63 6b 73 70 61 63 65 20 21 0a 20 20 0a 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆d backspace ! ┆
0x80600…80606 (1027,) (0x324,0x100d)
0x80606…80620 20 20 20 77 30 3a 3d 20 28 77 31 2b 32 29 2e 77 6f 72 64 3b 0a 20 20 20 20 20 ┆ w0:= (w1+2).word; ┆
0x80620…80640 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 63 5f 62 73 62 ┆ relative:= w1-(w3).tc_bsb┆
0x80640…80660 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 74 3b 0a 20 20 ┆uf; w2:= segment; ┆
0x80660…8067e 20 20 20 20 20 20 20 20 20 20 77 32 20 6c 73 68 69 66 74 20 39 3b 0a 20 20 20 20 20 20 20 ┆ w2 lshift 9; ┆
0x8067e…80684 (0x324,0x100e)
0x80684…806a0 20 20 20 20 20 77 32 2b 72 65 6c 61 74 69 76 65 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆ w2+relative; ┆
0x806a0…806c0 20 20 28 77 33 29 2e 74 63 5f 62 73 70 74 72 3a 3d 20 66 32 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆ (w3).tc_bsptr:= f2; ┆
0x806c0…806e0 20 20 28 77 33 29 2e 66 70 72 5f 73 62 73 70 74 72 3a 3d 20 66 32 3b 0a 20 20 20 20 20 20 20 20 ┆ (w3).fpr_sbsptr:= f2; ┆
0x806e0…806fc 20 20 20 20 77 32 3a 3d 20 77 30 3b 20 21 20 77 30 3d 77 32 3d 3d 77 6f 72 64 20 63 ┆ w2:= w0; ! w0=w2==word c┆
0x806fc…80702 (0x324,0x100f)
0x80702…80720 6f 6e 74 61 69 6e 69 6e 67 20 66 66 20 6f 72 20 6e 6c 20 21 0a 20 20 20 20 20 20 20 20 20 ┆ontaining ff or nl ! ┆
0x80720…80740 20 20 20 77 31 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 68 69 6c 65 20 77 30 3c ┆ w1:= 0; while w0<┆
0x80740…80760 3e 30 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 ┆>0 do begin ┆
0x80760…8077a 20 20 20 20 20 20 69 66 20 77 30 20 6f 6e 65 6d 61 73 6b 20 31 32 20 74 68 65 ┆ if w0 onemask 12 the┆
0x8077a…80780 (0x324,0x1010)
0x80780…807a0 6e 0a 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 61 73 6b 20 32 ┆n if w0 zeromask 2┆
0x807a0…807c0 34 33 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 20 63 6f 6d 6d ┆43 then begin comm┆
0x807c0…807e0 65 6e 74 20 66 66 20 66 6f 75 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 30 ┆ent ff found; w0┆
0x807e0…80800 3a 3d 20 31 32 3b 0a 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 ┆:= 12; w ┆
0x80800…80806 (1028,) (0x324,0x1011)
0x80806…80820 32 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 ┆2:= 0; end; ┆
0x80820…80840 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 0a 20 20 20 20 ┆ f1 lshift -8; ┆
0x80840…80860 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 77 30 3a 3d ┆ end; if w0:=┆
0x80860…8087e 77 32 3c 3e 30 20 74 68 65 6e 20 77 31 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆w2<>0 then w1:= 0; ┆
0x8087e…80884 (0x324,0x1012)
0x80884…808a0 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 ┆ while w0<>0 do ┆
0x808a0…808c0 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 6e 6f 20 66 66 20 66 6f 75 6e 64 20 66 69 6e 64 20 6e ┆begin comment no ff found find n┆
0x808c0…808e0 65 77 6c 69 6e 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 20 6f 6e 65 6d ┆ewline; if w0 onem┆
0x808e0…808fc 61 73 6b 20 31 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 ┆ask 10 then if┆
0x808fc…80902 (0x324,0x1013)
0x80902…80920 20 77 30 20 7a 65 72 6f 6d 61 73 6b 20 32 34 35 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 ┆ w0 zeromask 245 then ┆
0x80920…80940 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 30 3a 3d ┆ begin w0:=┆
0x80940…80960 31 32 3b 20 21 20 72 65 70 6c 61 63 65 20 6e 65 77 6c 69 6e 65 20 77 69 74 68 20 66 6f 72 6d 66 ┆12; ! replace newline with formf┆
0x80960…8097a 65 65 64 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 ┆eed ! end; ┆
0x8097a…80980 (0x324,0x1014)
0x80980…809a0 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 0a 20 20 20 20 20 ┆ f1 lshift -8; ┆
0x809a0…809c0 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 33 29 2e 66 70 72 ┆ end; (w3).fpr┆
0x809c0…809e0 5f 70 61 72 74 69 61 6c 3a 3d 20 77 31 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 20 21 20 ┆_partial:= w1; end; ! ┆
0x809e0…80a00 65 6e 64 20 72 65 70 65 61 74 20 21 0a 20 20 20 20 20 20 20 20 20 20 62 00 00 00 00 00 00 00 00 ┆end repeat ! b ┆
0x80a00…80a06 (1029,) (0x324,0x1015)
0x80a06…80a20 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 72 65 73 74 61 72 74 3b 0a 20 20 20 20 ┆egin comment restart; ┆
0x80a20…80a40 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 73 74 61 72 74 ┆ w0:=0;w1:=(w3).fpr_start┆
0x80a40…80a60 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 20 20 20 20 20 ┆segment;f1 lshift 9; ┆
0x80a60…80a7e 20 28 77 33 29 2e 74 63 5f 62 73 70 74 72 3a 3d 20 66 31 3b 0a 20 20 20 20 20 20 20 20 20 ┆ (w3).tc_bsptr:= f1; ┆
0x80a7e…80a84 (0x324,0x1016)
0x80a84…80aa0 20 20 20 28 77 33 29 2e 66 70 72 5f 70 61 72 74 69 61 6c 3a 3d 20 77 30 3a 3d 20 30 ┆ (w3).fpr_partial:= w0:= 0┆
0x80aa0…80ac0 3b 0a 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 76 65 6e 74 ┆; (w3).tc_ointervent┆
0x80ac0…80ae0 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 20 21 20 65 6e 64 20 72 65 73 74 ┆:= w0; end; ! end rest┆
0x80ae0…80afc 61 72 74 20 21 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e ┆art ! begin commen┆
0x80afc…80b02 (0x324,0x1017)
0x80b02…80b20 74 20 73 74 6f 70 20 63 6f 6d 6d 61 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 6f 70 ┆t stop command; op┆
0x80b20…80b40 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 0a 20 20 ┆routput(.w3.,w0:=1,w1:=3,w2); ┆
0x80b40…80b60 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 ┆
0x80b60…80b7a 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 ┆ begin if┆
0x80b7a…80b80 (0x324,0x1018)
0x80b80…80ba0 20 77 30 3c 3e 77 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 ┆ w0<>w0 then begin┆
0x80ba0…80bc0 0a 6e 6f 5f 6f 70 3a 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 20 32 27 31 30 30 30 30 30 3b 0a ┆ no_op: w2:= 2'100000; ┆
0x80bc0…80be0 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; ┆
0x80be0…80c00 20 28 77 33 29 2e 74 63 5f 73 74 61 74 65 3a 3d 20 77 30 3a 3d 20 36 3b 00 00 00 00 00 00 00 00 ┆ (w3).tc_state:= w0:= 6; ┆
0x80c00…80c06 (1030,) (0x324,0x1019)
0x80c06…80c20 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 ┆ ! aborted ! ┆
0x80c20…80c40 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 70 65 72 61 ┆ (w3).tc_cause:= w0:= 3; ! opera┆
0x80c40…80c60 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 73 74 61 74 75 ┆tor! (w3).tc_statu┆
0x80c60…80c7e 73 3a 3d 20 77 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f ┆s:= w2; (w3).tc_┆
0x80c7e…80c84 (0x324,0x101a)
0x80c84…80ca0 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 ┆ointervent:= w0:= 0; ┆
0x80ca0…80cc0 20 20 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 33 ┆ (w3).fpr_inpstate:= w0:=3┆
0x80cc0…80ce0 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 20 20 20 20 20 20 20 ┆; end else ┆
0x80ce0…80cfc 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 2e ┆ begin (w3).┆
0x80cfc…80d02 (0x324,0x101b)
0x80d02…80d20 74 63 5f 6f 69 6e 74 65 72 76 65 6e 74 3a 3d 20 77 30 3a 3d 30 3b 0a 20 20 20 20 20 20 20 ┆tc_ointervent:= w0:=0; ┆
0x80d20…80d40 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 28 6e 6f 5f ┆ hold(.w3.,w0:=address(no_┆
0x80d40…80d60 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 28 77 33 29 2e 74 63 ┆op));(w3).tc_held:=w0:=0;(w3).tc┆
0x80d60…80d7a 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 ┆_held:= w0:= 0; ┆
0x80d7a…80d80 (0x324,0x101c)
0x80d80…80da0 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 65 6e 64 3b 0a ┆ goto loop; end; ┆
0x80da0…80dc0 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 20 21 20 65 6e 64 20 73 74 6f 70 20 61 63 74 69 6f 6e ┆ end; ! end stop action┆
0x80dc0…80de0 20 21 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 6b 69 6c 6c 3b ┆ ! begin comment kill;┆
0x80de0…80e00 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 73 74 61 00 00 00 00 00 00 00 00 ┆ (w3).tc_sta ┆
0x80e00…80e06 (1031,) (0x324,0x101d)
0x80e06…80e20 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 ┆te:= w0:= 7; ! killed by o┆
0x80e20…80e40 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 6f 69 ┆perator ! (w3).tc_oi┆
0x80e40…80e60 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 20 20 20 20 28 ┆ntervent:= w0:= 0; (┆
0x80e60…80e7e 77 33 29 2e 66 70 72 5f 69 6e 70 73 74 61 74 65 3a 3d 20 77 30 3a 3d 20 31 3b 0a 20 20 20 ┆w3).fpr_inpstate:= w0:= 1; ┆
0x80e7e…80e84 (0x324,0x101e)
0x80e84…80ea0 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 63 61 75 ┆ if w0:= (w3).tc_cau┆
0x80ea0…80ec0 73 65 3d 32 20 74 68 65 6e 20 67 6f 74 6f 20 63 6c 6f 73 65 75 70 3b 0a 20 20 20 20 20 20 20 20 ┆se=2 then goto closeup; ┆
0x80ec0…80ee0 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 20 21 20 65 6e 64 20 63 61 73 65 20 21 ┆ end; end; ! end case !┆
0x80ee0…80efc 0a 0a 20 20 20 20 20 20 20 20 69 66 20 77 30 3a 3d 20 28 77 33 29 2e 74 63 5f 61 69 ┆ if w0:= (w3).tc_ai┆
0x80efc…80f02 (0x324,0x101f)
0x80f02…80f20 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 ┆ntervent<>0 then begin┆
0x80f20…80f40 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 20 ┆ (w3).tc_state:= w0:= ┆
0x80f40…80f60 38 3b 0a 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 61 69 6e 74 65 72 76 65 6e 74 3a ┆8; (w3).tc_aintervent:┆
0x80f60…80f7a 3d 20 77 30 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 66 ┆= w0:= 0; (w3).f┆
0x80f7a…80f80 (0x324,0x1020)
0x80f80…80fa0 70 72 5f 69 6e 70 73 74 61 74 65 3a 3d 20 77 30 3a 3d 20 32 3b 0a 20 20 20 20 20 20 20 20 65 6e ┆pr_inpstate:= w0:= 2; en┆
0x80fa0…80fc0 64 3b 0a 0a 20 20 20 20 20 20 20 20 63 61 73 65 20 77 32 20 3a 3d 20 28 77 33 29 2e 66 70 72 5f ┆d; case w2 := (w3).fpr_┆
0x80fc0…80fe0 69 6e 70 73 74 61 74 65 2b 31 20 6f 66 0a 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 ┆inpstate+1 of begin ┆
0x80fe0…81000 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 6e 6f 72 00 00 00 00 00 00 00 00 ┆ begin comment nor ┆
0x81000…81006 (1032,) (0x324,0x1021)
0x81006…81020 6d 61 6c 20 69 6e 70 75 74 20 6d 6f 64 65 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆mal input mode; ┆
0x81020…81040 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 20 20 20 20 20 ┆ getlines(.w3.,w0,w2); ┆
0x81040…81060 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 20 20 20 20 20 ┆ if w0 <= 0 then ┆
0x81060…8107e 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 66 70 72 5f 75 ┆begin (w3).fpr_u┆
0x8107e…81084 (0x324,0x1022)
0x81084…810a0 73 65 64 62 6c 6f 63 6b 3a 3d 20 77 30 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 20 ┆sedblock:= w0:= 0; ┆
0x810a0…810c0 20 20 20 20 20 28 77 33 29 2e 74 63 5f 73 74 61 74 65 20 3a 3d 20 77 31 20 3a 3d 20 36 3b 20 21 ┆ (w3).tc_state := w1 := 6; !┆
0x810c0…810e0 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 28 77 33 29 2e 74 63 ┆ aborted ! (w3).tc┆
0x810e0…810fc 5f 63 61 75 73 65 20 3a 3d 20 77 31 20 3a 3d 20 31 3b 20 21 20 73 65 6e 64 65 72 20 ┆_cause := w1 := 1; ! sender ┆
0x810fc…81102 (0x324,0x1023)
0x81102…81120 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 61 74 75 ┆ ! (w3).tc_statu┆
0x81120…81140 73 3a 3d 20 77 32 20 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 63 6c 6f 73 ┆s:= w2 ; goto clos┆
0x81140…81160 65 75 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 ┆eup; end; ┆
0x81160…8117a 65 6e 64 3b 20 21 20 65 6e 64 20 6e 6f 72 6d 61 6c 20 69 6e 70 75 74 20 6d 6f ┆end; ! end normal input mo┆
0x8117a…81180 (0x324,0x1024)
0x81180…811a0 64 65 20 21 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 6b 69 6c ┆de ! begin comment kil┆
0x811a0…811c0 6c 65 64 20 62 79 20 6f 70 65 72 61 74 6f 72 3b 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 31 ┆led by operator; w1┆
0x811c0…811e0 3a 3d 28 77 33 29 2e 74 63 5f 62 75 66 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 20 ┆:=(w3).tc_buf; w2:= ┆
0x811e0…81200 61 64 64 72 65 73 73 28 28 77 31 29 2e 62 75 66 5f 64 61 74 61 31 29 2b 00 00 00 00 00 00 00 00 ┆address((w1).buf_data1)+ ┆
0x81200…81206 (1033,) (0x324,0x1025)
0x81206…81220 34 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 ┆4; move(.w3.,w┆
0x81220…81240 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 29 2c 77 32 29 ┆0:=18,w1:=address(t_oprkill),w2)┆
0x81240…81260 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 20 20 20 65 6e ┆; w0+4; en┆
0x81260…8127e 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 6b 69 6c ┆d; begin comment kil┆
0x8127e…81284 (0x324,0x1026)
0x81284…812a0 6c 65 64 20 62 79 20 61 70 70 6c 69 63 61 74 69 6f 6e 3b 0a 0a 20 20 20 20 20 20 20 ┆led by application; ┆
0x812a0…812c0 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 20 20 20 20 ┆ w1:=(w3).tc_buf; ┆
0x812c0…812e0 20 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 61 31 29 2b 34 ┆ w2:= address((w1).buf_data1)+4┆
0x812e0…812fc 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 ┆; move(.w3.,w0:=┆
0x812fc…81302 (0x324,0x1027)
0x81302…81320 32 30 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 74 5f 61 70 6c 6b 69 6c 6c 29 2c 77 32 29 3b ┆20,w1:=address(t_aplkill),w2);┆
0x81320…81340 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 20 20 20 65 6e 64 ┆ w0+4; end┆
0x81340…81360 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 6f 70 65 72 61 74 ┆; begin comment operat┆
0x81360…8137a 6f 72 20 64 65 76 69 63 65 20 66 61 75 6c 74 3b 0a 0a 20 20 20 20 20 20 20 20 ┆or device fault; ┆
0x8137a…81380 (0x324,0x1028)
0x81380…813a0 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 20 20 20 20 20 ┆ w1:=(w3).tc_buf; ┆
0x813a0…813c0 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 61 31 29 2b 34 3b ┆ w2:= address((w1).buf_data1)+4;┆
0x813c0…813e0 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 32 30 2c 77 31 ┆ move(.w3.,w0:=20,w1┆
0x813e0…81400 3a 3d 61 64 64 72 65 73 73 28 74 5f 6f 70 72 66 61 75 6c 74 29 2c 77 32 00 00 00 00 00 00 00 00 ┆:=address(t_oprfault),w2 ┆
0x81400…81406 (1034,) (0x324,0x1029)
0x81406…81420 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 ┆); w0+4; ┆
0x81420…81440 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 20 65 6e 64 20 ┆ end; begin ! end ┆
0x81440…81460 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 20 30 3b 0a 20 ┆of input ! w0:= 0; ┆
0x81460…8147e 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 ┆ end; begin ┆
0x8147e…81484 (0x324,0x102a)
0x81484…814a0 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 67 6f ┆! completed ! go┆
0x814a0…814c0 74 6f 20 63 6c 6f 73 65 75 70 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 0a 20 20 20 20 ┆to closeup; end; ┆
0x814c0…814e0 20 20 20 20 65 6e 64 3b 20 20 21 20 65 6e 64 20 63 61 73 65 20 21 0a 0a 20 20 20 20 20 20 20 20 ┆ end; ! end case ! ┆
0x814e0…814fc 69 66 20 77 30 20 3e 20 30 20 74 68 65 6e 20 0a 20 20 20 20 20 20 20 20 62 65 67 69 ┆if w0 > 0 then begi┆
0x814fc…81502 (0x324,0x102b)
0x81502…81520 6e 20 63 6f 6d 6d 65 6e 74 20 77 72 69 74 65 20 6e 65 78 74 20 6f 75 74 70 75 74 20 62 6c ┆n comment write next output bl┆
0x81520…81540 6f 63 6b 3b 0a 20 20 20 0a 20 20 20 20 20 20 20 20 20 20 77 31 20 3a 3d 20 28 77 33 29 2e 74 63 ┆ock; w1 := (w3).tc┆
0x81540…81560 5f 62 75 66 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 ┆_buf; (w1).buf_first:=┆
0x81560…8157a 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┆
0x8157a…81580 (0x324,0x102c)
0x81580…815a0 61 31 29 3b 0a 20 20 20 20 20 20 20 20 20 20 77 32 2b 77 30 2d 32 3b 28 77 31 29 2e 62 75 66 5f ┆a1); w2+w0-2;(w1).buf_┆
0x815a0…815c0 6c 61 73 74 3a 3d 20 77 32 3b 0a 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 62 75 66 5f 6f 70 ┆last:= w2; (w1).buf_op┆
0x815c0…815e0 3a 3d 20 77 30 3a 3d 20 35 3b 0a 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 62 75 66 5f 6d 6f ┆:= w0:= 5; (w1).buf_mo┆
0x815e0…81600 64 65 20 3a 3d 20 77 30 20 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆de := w0 := 0; ┆
0x81600…81606 (1035,) (0x324,0x102d)
0x81606…81620 20 28 77 31 3a 3d 28 77 31 29 2e 62 75 66 5f 66 69 72 73 74 29 2e 77 6f 72 64 ┆ (w1:=(w1).buf_first).word┆
0x81620…81640 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 21 20 63 75 2c ┆ := w2:= (w3).fpr_transid; ! cu,┆
0x81640…81660 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 77 33 29 2e 66 ┆dev,esc! if w0:=(w3).f┆
0x81660…8167e 70 72 5f 69 6e 70 73 74 61 74 65 3d 30 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 28 ┆pr_inpstate=0 then (┆
0x8167e…81684 (0x324,0x102e)
0x81684…816a0 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 30 ┆w1+2).word := w0 := oprhead0┆
0x816a0…816c0 20 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 63 63 2c 75 ┆ ! transhead1 := wcode,wcc,u┆
0x816c0…816e0 73 6d 20 21 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 28 77 31 2b 32 29 2e 77 6f 72 64 20 ┆sm ! else (w1+2).word ┆
0x816e0…816fc 3a 3d 20 77 30 20 3a 3d 20 6f 70 72 68 65 61 64 31 3b 20 20 20 20 21 20 74 72 61 6e ┆:= w0 := oprhead1; ! tran┆
0x816fc…81702 (0x324,0x102f)
0x81702…81720 73 68 65 61 64 31 20 3a 3d 20 77 63 6f 64 65 2c 77 63 63 2c 63 72 20 20 21 0a 20 20 20 20 ┆shead1 := wcode,wcc,cr ! ┆
0x81720…81740 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 20 20 ┆ w1:= (w3).tc_buf; ┆
0x81740…81760 20 20 77 30 3a 3d 20 28 77 31 29 2e 62 75 66 5f 6c 61 73 74 2d 28 77 31 29 2e 62 75 66 5f 66 69 ┆ w0:= (w1).buf_last-(w1).buf_fi┆
0x81760…8177a 72 73 74 2b 32 3b 0a 20 20 20 20 20 20 20 20 20 20 74 65 73 74 6f 75 74 28 2e ┆rst+2; testout(.┆
0x8177a…81780 (0x324,0x1030)
0x81780…817a0 77 33 2e 2c 77 30 2c 77 31 3a 3d 20 61 64 64 72 65 73 73 28 28 77 31 29 2e 62 75 66 5f 64 61 74 ┆w3.,w0,w1:= address((w1).buf_dat┆
0x817a0…817c0 61 31 29 2c 77 32 3a 3d 30 29 3b 0a 72 65 70 3a 0a 0a 20 20 20 20 20 20 20 20 20 20 77 31 20 3a ┆a1),w2:=0); rep: w1 :┆
0x817c0…817e0 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 73 65 6e 64 77 61 69 ┆= (w3).tc_buf; sendwai┆
0x817e0…81800 74 28 2e 77 33 2e 2c 77 30 2c 77 31 2c 77 32 3a 3d 61 64 64 72 65 73 73 00 00 00 00 00 00 00 00 ┆t(.w3.,w0,w1,w2:=address ┆
0x81800…81806 (1036,) (0x324,0x1031)
0x81806…81820 28 28 77 33 3a 3d 28 77 33 29 2e 66 70 72 5f 73 74 63 6f 72 6f 75 74 29 2e 66 ┆((w3:=(w3).fpr_stcorout).f┆
0x81820…81840 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 3d 20 31 20 6c ┆pr_procout)); w2:= 1 l┆
0x81840…81860 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┆
0x81860…8187e 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 ┆ w2 or b.ans_status; ┆
0x8187e…81884 (0x324,0x1032)
0x81884…818a0 20 69 66 20 77 32 3d 32 30 39 37 31 35 34 20 21 20 74 69 6d 65 72 20 73 74 61 74 75 ┆ if w2=2097154 ! timer statu┆
0x818a0…818c0 73 20 6f 6e 20 6f 75 74 70 75 74 20 6c 69 6e 6b 20 21 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 ┆s on output link ! then ┆
0x818c0…818e0 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 73 74 61 74 ┆ begin (w3).tc_stat┆
0x818e0…818fc 75 73 3a 3d 20 77 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 6f 70 72 6f 75 74 70 ┆us:= w2; oproutp┆
0x818fc…81902 (0x324,0x1033)
0x81902…81920 75 74 28 2e 77 33 2e 2c 77 30 3a 3d 31 2c 77 31 3a 3d 31 36 2c 77 32 29 3b 20 21 20 64 69 ┆ut(.w3.,w0:=1,w1:=16,w2); ! di┆
0x81920…81940 73 63 6f 6e 6e 65 63 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 ┆sconnected ! (w3).tc┆
0x81940…81960 5f 73 74 61 74 65 3a 3d 20 77 30 3a 3d 20 36 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 77 33 ┆_state:= w0:= 6; (w3┆
0x81960…8197a 29 2e 74 63 5f 63 61 75 73 65 3a 3d 20 77 30 3a 3d 20 32 3b 0a 20 20 20 20 20 ┆).tc_cause:= w0:= 2; ┆
0x8197a…81980 (0x324,0x1034)
0x81980…819a0 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 65 ┆ goto closeup; e┆
0x819a0…819c0 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 32 3d 32 20 74 68 65 6e 20 77 61 69 74 5f ┆nd; if w2=2 then wait_┆
0x819c0…819e0 73 74 61 74 75 73 28 2e 77 33 2e 2c 77 30 3a 3d 32 29 20 65 6c 73 65 20 28 77 33 29 2e 66 70 72 ┆status(.w3.,w0:=2) else (w3).fpr┆
0x819e0…81a00 5f 73 74 61 74 75 73 3a 3d 20 77 32 3b 0a 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆_status:= w2; ┆
0x81a00…81a06 (1037,) (0x324,0x1035)
0x81a06…81a20 69 66 20 77 32 3a 3d 28 77 33 29 2e 66 70 72 5f 73 74 61 74 75 73 3c 3e 32 20 ┆if w2:=(w3).fpr_status<>2 ┆
0x81a20…81a40 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 ┆
0x81a40…81a60 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 20 ┆ (w3).tc_status:= w2; ┆
0x81a60…81a7e 20 20 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 ┆ if w2=4 ! rejected ! then ┆
0x81a7e…81a84 (0x324,0x1036)
0x81a84…81aa0 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 ┆
0x81aa0…81ac0 20 20 77 33 3a 3d 20 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 ┆ w3:= address((w3:=(w3).fpr_stc┆
0x81ac0…81ae0 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 20 20 20 ┆orout).fpr_procout); ┆
0x81ae0…81afc 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 20 20 ┆ monitor(8); ┆
0x81afc…81b02 (0x324,0x1037)
0x81b02…81b20 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 20 20 ┆ w3:= b.current; ┆
0x81b20…81b40 20 69 66 20 77 30 3d 30 20 74 68 65 6e 20 67 6f 74 6f 20 72 65 70 3b 0a 20 20 20 20 20 20 20 20 ┆ if w0=0 then goto rep; ┆
0x81b40…81b60 20 20 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 ┆ end; (w3).tc_sta┆
0x81b60…81b7a 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 ┆te:= w0:= 6; ! aborted ! ┆
0x81b7a…81b80 (0x324,0x1038)
0x81b80…81ba0 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 3d 20 ┆ (w3).tc_cause:= w0:= ┆
0x81ba0…81bc0 32 3b 20 21 20 72 65 63 65 69 76 65 72 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 6f 70 72 6f 75 ┆2; ! receiver! oprou┆
0x81bc0…81be0 74 70 75 74 28 2e 77 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 ┆tput(.w3.,w0:=2,w1:=2,w2); ┆
0x81be0…81c00 20 20 20 20 20 20 20 67 6f 74 6f 20 63 6c 6f 73 65 75 70 3b 0a 20 20 20 00 00 00 00 00 00 00 00 ┆ goto closeup; ┆
0x81c00…81c06 (1038,) (0x324,0x1039)
0x81c06…81c20 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┆
0x81c20…81c40 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 5f 65 6e 64 20 ┆0:=(w3).fpr_devstatus<> dev_end ┆
0x81c40…81c60 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 65 6e 64 20 74 ┆then if w0<> adp_end t┆
0x81c60…81c7e 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 ┆hen begin ┆
0x81c7e…81c84 (0x324,0x103a)
0x81c84…81ca0 20 20 69 66 20 77 30 3d 64 65 76 5f 6f 66 66 6c 69 6e 65 20 74 68 65 6e 20 77 31 3a ┆ if w0=dev_offline then w1:┆
0x81ca0…81cc0 3d 31 33 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 65 76 5f 75 ┆=13 else if w0=dev_u┆
0x81cc0…81ce0 6e 61 76 61 69 6c 65 61 62 6c 65 20 74 68 65 6e 20 77 31 3a 3d 20 31 31 20 65 6c 73 65 0a 20 20 ┆navaileable then w1:= 11 else ┆
0x81ce0…81cfc 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3d 64 65 76 5f 62 75 73 79 20 74 68 65 ┆ if w0=dev_busy the┆
0x81cfc…81d02 (0x324,0x103b)
0x81d02…81d20 6e 20 77 31 3a 3d 20 31 32 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 ┆n w1:= 12 else if ┆
0x81d20…81d40 77 30 3d 64 65 76 5f 63 6d 64 65 72 72 6f 72 20 74 68 65 6e 20 77 31 3a 3d 20 31 34 20 65 6c 73 ┆w0=dev_cmderror then w1:= 14 els┆
0x81d40…81d60 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3d 61 64 70 5f 6e 72 65 61 64 79 20 74 ┆e if w0=adp_nready t┆
0x81d60…81d7a 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 ┆hen w1:= 13 else ┆
0x81d7a…81d80 (0x324,0x103c)
0x81d80…81da0 20 20 20 69 66 20 77 30 3d 61 64 70 5f 74 6f 75 74 20 74 68 65 6e 20 77 31 3a 3d 20 31 33 20 65 ┆ if w0=adp_tout then w1:= 13 e┆
0x81da0…81dc0 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3d 61 64 70 5f 6f 66 66 6c 69 6e ┆lse if w0=adp_offlin┆
0x81dc0…81de0 65 20 74 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 ┆e then w1:= 13 else ┆
0x81de0…81e00 69 66 20 77 30 3d 61 64 70 5f 75 6e 61 76 20 74 68 65 6e 20 77 31 3a 3d 00 00 00 00 00 00 00 00 ┆if w0=adp_unav then w1:= ┆
0x81e00…81e06 (1039,) (0x324,0x103d)
0x81e06…81e20 20 31 31 20 65 6c 73 65 20 77 31 3a 3d 20 31 35 3b 20 21 20 75 6e 65 78 70 65 ┆ 11 else w1:= 15; ! unexpe┆
0x81e20…81e40 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 70 72 6f 75 74 ┆cted result ! oprout┆
0x81e40…81e60 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 66 70 72 5f 64 ┆put(.w3.,w0:=1,w1,w2:=(w3).fpr_d┆
0x81e60…81e7e 65 76 73 74 61 74 75 73 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 63 ┆evstatus); (w3).tc┆
0x81e7e…81e84 (0x324,0x103e)
0x81e84…81ea0 5f 73 74 61 74 75 73 3a 3d 20 77 30 3a 3d 20 32 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆_status:= w0:= 2; ┆
0x81ea0…81ec0 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 20 20 20 20 ┆ (w3).tc_state:= w0:= 6; ┆
0x81ec0…81ee0 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 32 3b 0a 20 20 ┆ (w3).tc_cause:= w0:= 2; ┆
0x81ee0…81efc 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 ┆ hold(.w3.,w0:=addr┆
0x81efc…81f02 (0x324,0x103f)
0x81f02…81f20 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 20 77 30 3a ┆ess(no_op));(w3).tc_held:= w0:┆
0x81f20…81f40 3d 20 30 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 74 69 61 ┆= 0; (w3).fpr_partia┆
0x81f40…81f60 6c 3a 3d 20 77 30 3a 3d 20 28 77 33 29 2e 66 70 72 5f 73 70 61 72 74 69 61 6c 3b 0a 20 20 20 20 ┆l:= w0:= (w3).fpr_spartial; ┆
0x81f60…81f7a 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 ┆ (w3).tc_bsptr:= f1┆
0x81f7a…81f80 (0x324,0x1040)
0x81f80…81fa0 3a 3d 20 28 77 33 29 2e 66 70 72 5f 73 62 73 70 74 72 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆:= (w3).fpr_sbsptr; ┆
0x81fa0…81fc0 69 66 20 77 30 3a 3d 20 28 77 33 29 2e 66 70 72 5f 69 6e 70 73 74 61 74 65 3d 34 20 74 68 65 6e ┆if w0:= (w3).fpr_inpstate=4 then┆
0x81fc0…81fe0 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 30 3b 0a 20 20 20 ┆ (w3).fpr_inpstate:= w0:= 0; ┆
0x81fe0…82000 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 74 63 5f 63 73 65 67 6e 6f 3a 00 00 00 00 00 00 00 00 ┆ (w3).tc_csegno: ┆
0x82000…82006 (1040,) (0x324,0x1041)
0x82006…82020 3d 20 77 30 3a 3d 20 2d 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 ┆= w0:= -1; if ┆
0x82020…82040 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 5f 75 6e 61 76 ┆w0:= (w3).fpr_devstatus=adp_unav┆
0x82040…82060 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 ┆
0x82060…8207e 20 20 20 20 20 20 21 20 73 65 6e 64 20 72 65 73 65 72 76 65 20 70 72 69 6e 74 65 72 20 6d ┆ ! send reserve printer m┆
0x8207e…82084 (0x324,0x1042)
0x82084…820a0 65 73 73 61 67 65 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 20 ┆essage ! w1:= ┆
0x820a0…820c0 28 77 33 29 2e 74 63 5f 62 75 66 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e ┆(w3).tc_buf; (w1).┆
0x820c0…820e0 62 75 66 5f 6f 70 3a 3d 20 77 30 3a 3d 20 34 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 ┆buf_op:= w0:= 4; (┆
0x820e0…820fc 77 31 29 2e 62 75 66 5f 6d 6f 64 65 3a 3d 20 77 30 3a 3d 20 31 36 3b 20 21 20 72 65 ┆w1).buf_mode:= w0:= 16; ! re┆
0x820fc…82102 (0x324,0x1043)
0x82102…82120 73 65 72 76 65 20 70 72 69 6e 74 65 72 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆serve printer ! ┆
0x82120…82140 77 30 3a 3d 20 28 77 33 29 2e 66 70 72 5f 70 6c 63 75 64 65 76 3b 20 21 20 63 75 20 64 65 76 69 ┆w0:= (w3).fpr_plcudev; ! cu devi┆
0x82140…82160 63 65 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 6c 61 73 74 ┆ce ! (w1).buf_last┆
0x82160…8217a 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 20 ┆:= w0; w2:= ┆
0x8217a…82180 (0x324,0x1044)
0x82180…821a0 61 64 64 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 ┆address((w2:=(w3).fpr_stcorout).┆
0x821a0…821c0 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 20 20 73 65 6e 64 ┆fpr_procout); send┆
0x821c0…821e0 77 61 69 74 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 ┆wait (.w3., w0, w1, w2); ┆
0x821e0…82200 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 67 6f 00 00 00 00 00 00 00 00 ┆ end; go ┆
0x82200…82206 (1041,) (0x324,0x1045)
0x82206…82220 74 6f 20 6c 6f 6f 70 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 ┆to loop; end; ┆
0x82220…82240 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 70 73 74 61 74 ┆ if w0:= (w3).fpr_inpstat┆
0x82240…82260 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 72 5f 69 6e 70 ┆e<>0 then (w3).fpr_inp┆
0x82260…8227e 73 74 61 74 65 3a 3d 20 77 30 3a 3d 20 35 3b 0a 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 20 ┆state:= w0:= 5; end; ┆
0x8227e…82284 (0x324,0x1046)
0x82284…822a0 20 21 20 65 6e 64 20 77 72 69 74 65 20 6e 65 78 74 20 6f 75 74 70 75 74 20 62 6c 6f ┆ ! end write next output blo┆
0x822a0…822c0 63 6b 20 21 0a 20 20 20 20 20 20 20 20 67 6f 74 6f 20 6c 6f 6f 70 3b 0a 63 6c 6f 73 65 75 70 3a ┆ck ! goto loop; closeup:┆
0x822c0…822e0 0a 20 20 20 20 20 20 20 20 63 6c 6f 73 65 62 73 28 2e 77 33 2e 29 3b 0a 20 20 20 20 20 20 20 20 ┆ closebs(.w3.); ┆
0x822e0…822fc 75 70 64 61 74 65 74 72 61 6e 73 70 6f 72 74 28 2e 77 33 2e 29 3b 0a 20 20 20 20 20 ┆updatetransport(.w3.); ┆
0x822fc…82302 (0x324,0x1047)
0x82302…82320 20 20 20 69 66 20 77 30 3a 3d 20 62 2e 6f 70 72 74 64 65 74 61 69 6c 73 20 6f 6e 65 6d 61 ┆ if w0:= b.oprtdetails onema┆
0x82320…82340 73 6b 20 31 20 74 68 65 6e 20 6f 70 72 6f 75 74 70 75 74 28 2e 77 33 2e 2c 77 30 3a 3d 31 2c 77 ┆sk 1 then oproutput(.w3.,w0:=1,w┆
0x82340…82360 31 3a 3d 34 2c 77 32 3a 3d 28 77 33 29 2e 74 63 5f 73 74 61 74 65 29 3b 0a 20 20 20 20 20 20 65 ┆1:=4,w2:=(w3).tc_state); e┆
0x82360…8237a 6e 64 3b 0a 73 75 69 63 69 64 65 3a 0a 20 20 20 20 20 20 64 69 73 63 5f 33 32 ┆nd; suicide: disc_32┆
0x8237a…82380 (0x324,0x1048)
0x82380…823a0 37 30 20 28 2e 77 33 2e 29 3b 0a 20 20 20 20 20 20 72 65 6d 6f 76 65 5f 66 70 72 28 2e 77 33 2e ┆70 (.w3.); remove_fpr(.w3.┆
0x823a0…823c0 2c 77 31 3a 3d 62 2e 63 75 72 72 65 6e 74 29 3b 0a 20 20 20 20 20 20 72 65 6d 6f 76 65 5f 74 63 ┆,w1:=b.current); remove_tc┆
0x823c0…823e0 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 67 6f 74 6f ┆(.w3.,w1:=b.current); goto┆
0x823e0…82400 20 62 2e 61 63 74 69 76 61 74 65 3b 0a 20 20 20 20 65 6e 64 3b 0a 20 20 00 00 00 00 00 00 00 00 ┆ b.activate; end; ┆
0x82400…82406 (1042,) (0x324,0x1049)
0x82406…82420 65 6e 64 3b 20 20 21 20 20 65 6e 64 20 66 70 72 20 20 21 0a 0a 20 20 0a 0a 20 ┆end; ! end fpr ! ┆
0x82420…82440 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 6f 72 6d 61 74 ┆ body of fpr_in comment format┆
0x82440…82460 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 69 6e 70 75 74 ┆ printer coroutine for input┆
0x82460…8247e 20 28 73 74 61 74 75 73 29 20 68 61 6e 64 6c 69 6e 67 3b 0a 20 20 62 65 67 69 6e 0a 20 20 ┆ (status) handling; begin ┆
0x8247e…82484 (0x324,0x104a)
0x82484…824a0 20 20 6c 61 62 65 6c 20 73 65 6e 73 65 5f 72 65 61 64 79 2c 20 69 6e 70 75 74 2c 20 ┆ label sense_ready, input, ┆
0x824a0…824c0 6c 6f 6f 70 3b 0a 0a 20 20 69 6e 63 6f 64 65 0a 20 20 20 20 72 65 66 20 72 65 74 75 72 6e 3b 0a ┆loop; incode ref return; ┆
0x824c0…824e0 20 20 20 20 77 6f 72 64 20 73 61 76 65 77 30 3b 0a 20 20 20 20 77 6f 72 64 20 73 61 76 65 77 32 ┆ word savew0; word savew2┆
0x824e0…824fc 3b 0a 20 20 20 20 77 6f 72 64 20 66 69 5f 6f 70 3b 0a 20 20 20 20 72 65 66 20 20 66 ┆; word fi_op; ref f┆
0x824fc…82502 (0x324,0x104b)
0x82502…82520 69 5f 66 69 72 73 74 2c 66 69 5f 6c 61 73 74 3b 0a 20 20 20 20 77 6f 72 64 20 73 30 73 31 ┆i_first,fi_last; word s0s1┆
0x82520…82540 3b 0a 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 ┆; begin return:= w3; ┆
0x82540…82560 63 61 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 ┆call w3 return; ! pseudo call ! ┆
0x82560…8257a 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 ┆ while w1=w1 do ┆
0x8257a…82580 (0x324,0x104c)
0x82580…825a0 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 66 6f 72 65 76 65 72 20 64 6f 3b 0a 0a 73 65 6e ┆ begin comment forever do; sen┆
0x825a0…825c0 73 65 5f 72 65 61 64 79 3a 0a 20 20 20 20 20 20 20 20 77 33 3a 3d 20 62 2e 63 75 72 72 65 6e 74 ┆se_ready: w3:= b.current┆
0x825c0…825e0 3b 0a 20 20 20 20 20 20 20 20 66 69 5f 6f 70 3a 3d 20 77 30 3a 3d 20 32 3b 20 21 20 73 65 6e 73 ┆; fi_op:= w0:= 2; ! sens┆
0x825e0…82600 65 20 72 65 61 64 79 20 6f 70 65 72 61 74 69 6f 6e 20 21 0a 20 20 20 20 00 00 00 00 00 00 00 00 ┆e ready operation ! ┆
0x82600…82606 (1043,) (0x324,0x104d)
0x82606…82620 20 20 20 20 77 31 3a 3d 20 61 64 64 72 65 73 73 28 66 69 5f 6f 70 29 3b 0a 20 ┆ w1:= address(fi_op); ┆
0x82620…82640 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 3d 61 ┆ sendwait(.w3.,w0,w1,w2:=a┆
0x82640…82660 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 20 20 20 20 20 ┆ddress((w3).fpr_procin)); ┆
0x82660…8267e 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 ┆ w2:= 1 lshift w0; if┆
0x8267e…82684 (0x324,0x104e)
0x82684…826a0 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 ┆ w2=2 then w2 or b.ans_statu┆
0x826a0…826c0 73 3b 0a 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 ┆s; w3:= b.current; ┆
0x826c0…826e0 20 20 20 69 66 20 77 32 3d 32 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f ┆ if w2=2 then begin co┆
0x826e0…826fc 6d 6d 65 6e 74 20 69 6e 70 75 74 20 28 73 74 61 74 75 73 29 20 72 65 61 64 79 3b 0a ┆mment input (status) ready; ┆
0x826fc…82702 (0x324,0x104f)
0x82702…82720 20 0a 69 6e 70 75 74 3a 0a 20 20 20 20 20 20 20 20 20 20 77 33 3a 3d 20 62 2e 63 75 72 72 ┆ input: w3:= b.curr┆
0x82720…82740 65 6e 74 3b 0a 20 20 20 20 20 20 20 20 20 20 66 69 5f 6f 70 3a 3d 20 77 30 3a 3d 20 33 20 6c 73 ┆ent; fi_op:= w0:= 3 ls┆
0x82740…82760 68 69 66 74 20 31 32 3b 0a 20 20 20 20 20 20 20 20 20 20 66 69 5f 66 69 72 73 74 3a 3d 20 77 30 ┆hift 12; fi_first:= w0┆
0x82760…8277a 3a 3d 20 61 64 64 72 65 73 73 28 28 77 33 29 2e 66 70 72 5f 69 6e 64 61 74 61 ┆:= address((w3).fpr_indata┆
0x8277a…82780 (0x324,0x1050)
0x82780…827a0 29 3b 77 30 2b 32 3b 0a 20 20 20 20 20 20 20 20 20 20 66 69 5f 6c 61 73 74 3a 3d 77 30 3b 0a 20 ┆);w0+2; fi_last:=w0; ┆
0x827a0…827c0 20 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 70 29 3b 0a 20 20 ┆ w1:= address(fi_op); ┆
0x827c0…827e0 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 3d ┆ sendwait(.w3.,w0,w1,w2:=┆
0x827e0…82800 61 64 64 72 65 73 73 28 28 77 33 29 2e 66 70 72 5f 70 72 6f 63 69 6e 29 00 00 00 00 00 00 00 00 ┆address((w3).fpr_procin) ┆
0x82800…82806 (1044,) (0x324,0x1051)
0x82806…82820 29 3b 0a 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 20 31 20 6c 73 68 69 66 74 ┆); w2:= 1 lshift┆
0x82820…82840 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 20 77 32 20 6f ┆ w0; if w2=2 then w2 o┆
0x82840…82860 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 33 3a 3d 20 62 ┆r b.ans_status; w3:= b┆
0x82860…8287e 2e 63 75 72 72 65 6e 74 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 32 3d 32 20 74 68 ┆.current; if w2=2 th┆
0x8287e…82884 (0x324,0x1052)
0x82884…828a0 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 69 ┆en begin comment i┆
0x828a0…828c0 6e 70 75 74 20 61 72 72 69 76 65 64 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d 20 62 ┆nput arrived; w0:= b┆
0x828c0…828e0 2e 61 6e 73 5f 63 68 61 72 73 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3d 30 20 ┆.ans_chars; if w0=0 ┆
0x828e0…828fc 74 68 65 6e 20 67 6f 74 6f 20 73 65 6e 73 65 5f 72 65 61 64 79 20 65 6c 73 65 0a 20 ┆then goto sense_ready else ┆
0x828fc…82902 (0x324,0x1053)
0x82902…82920 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 30 3c 3e 35 20 21 20 73 74 61 74 75 73 3a 20 ┆ if w0<>5 ! status: ┆
0x82920…82940 22 63 75 2c 64 65 76 2c 73 30 2c 73 31 2c 65 74 78 22 20 21 20 74 68 65 6e 20 67 6f 74 6f 20 69 ┆"cu,dev,s0,s1,etx" ! then goto i┆
0x82940…82960 6e 70 75 74 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 74 65 73 74 6f 75 74 28 2e 77 ┆nput else testout(.w┆
0x82960…8297a 33 2e 2c 77 30 3a 3d 38 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 28 77 33 29 2e ┆3.,w0:=8,w1:=address((w3).┆
0x8297a…82980 (0x324,0x1054)
0x82980…829a0 66 70 72 5f 69 6e 64 61 74 61 29 2c 77 32 3a 3d 34 38 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆fpr_indata),w2:=48); ┆
0x829a0…829c0 20 77 30 3a 3d 28 77 33 29 2e 66 70 72 5f 69 6e 64 61 74 61 3b 20 21 20 77 30 3d 20 22 63 75 2c ┆ w0:=(w3).fpr_indata; ! w0= "cu,┆
0x829c0…829e0 64 65 76 2c 73 30 22 20 2c 20 77 31 3d 20 22 73 31 2c 65 74 78 2c 78 78 22 21 0a 20 20 20 20 20 ┆dev,s0" , w1= "s1,etx,xx"! ┆
0x829e0…82a00 20 20 20 20 20 20 20 77 31 3a 3d 28 77 33 29 2e 66 70 72 5f 64 61 74 31 00 00 00 00 00 00 00 00 ┆ w1:=(w3).fpr_dat1 ┆
0x82a00…82a06 (1045,) (0x324,0x1055)
0x82a06…82a20 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 66 31 20 6c 73 68 69 66 74 20 2d 38 ┆; f1 lshift -8┆
0x82a20…82a40 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 20 77 31 3d 20 ┆; ! w0= "0,cu,dev" , w1= ┆
0x82a40…82a60 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 6c 73 68 69 66 ┆"s0,s1,xx"! w1 lshif┆
0x82a60…82a7e 74 20 2d 38 3b 20 21 20 77 31 3d 20 22 30 2c 73 30 2c 73 31 22 20 20 20 21 0a 20 20 20 20 ┆t -8; ! w1= "0,s0,s1" ! ┆
0x82a7e…82a84 (0x324,0x1056)
0x82a84…82aa0 20 20 20 20 20 20 20 20 77 30 20 61 6e 64 20 34 27 30 33 33 33 30 33 33 33 3b 0a 20 ┆ w0 and 4'03330333; ┆
0x82aa0…82ac0 20 20 20 20 20 20 20 20 20 20 20 73 30 73 31 3a 3d 20 77 31 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆ s0s1:= w1; ┆
0x82ac0…82ae0 20 20 77 30 20 6c 73 68 69 66 74 20 38 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 30 2b 32 37 ┆ w0 lshift 8; w0+27┆
0x82ae0…82afc 3b 20 20 20 21 20 77 30 3d 20 63 75 2c 64 65 76 2c 65 73 63 20 21 0a 20 20 20 20 20 ┆; ! w0= cu,dev,esc ! ┆
0x82afc…82b02 (0x324,0x1057)
0x82b02…82b20 20 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 66 69 6e 64 20 6c 69 6e 6b 65 64 20 66 70 72 ┆ comment find linked fpr┆
0x82b20…82b40 20 77 69 74 68 20 63 6f 72 72 65 73 70 6f 6e 64 69 6e 67 20 63 75 2c 64 65 76 3b 0a 20 20 20 20 ┆ with corresponding cu,dev; ┆
0x82b40…82b60 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 2e 66 70 72 5f 6e 65 ┆ w2:= address((w3).fpr_ne┆
0x82b60…82b7a 78 74 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 20 28 77 32 29 ┆xt); w1:= (w2)┆
0x82b7a…82b80 (0x324,0x1058)
0x82b80…82ba0 2e 63 5f 6e 65 78 74 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 68 69 6c 65 20 77 32 3c 3e 77 ┆.c_next; while w2<>w┆
0x82ba0…82bc0 31 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 20 ┆1 do begin ┆
0x82bc0…82be0 20 20 20 20 20 73 61 76 65 77 30 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ savew0:= w0; ┆
0x82be0…82c00 73 61 76 65 77 32 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 ┆savew2:= w2; ┆
0x82c00…82c06 (1046,) (0x324,0x1059)
0x82c06…82c20 20 20 20 69 66 20 77 30 3d 28 77 31 29 2e 66 70 72 5f 74 72 61 6e 73 69 64 20 ┆ if w0=(w1).fpr_transid ┆
0x82c20…82c40 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 ┆
0x82c40…82c60 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 3a 3d 20 77 30 ┆ (w1).fpr_devstatus:= w0┆
0x82c60…82c7e 3a 3d 20 73 30 73 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e ┆:= s0s1; (w1).┆
0x82c7e…82c84 (0x324,0x105a)
0x82c84…82ca0 66 70 72 5f 73 74 61 74 75 73 3a 3d 20 77 30 3a 3d 20 32 3b 0a 20 20 20 20 20 20 20 ┆fpr_status:= w0:= 2; ┆
0x82ca0…82cc0 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 64 72 65 73 ┆ link(.w3.,w1,w2:=addres┆
0x82cc0…82ce0 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 20 20 20 20 ┆s(b.activqfst)); ┆
0x82ce0…82cfc 20 28 77 33 29 2e 66 70 72 5f 77 61 69 74 3a 3d 20 77 30 3a 3d 20 28 77 33 29 2e 66 ┆ (w3).fpr_wait:= w0:= (w3).f┆
0x82cfc…82d02 (0x324,0x105b)
0x82d02…82d20 70 72 5f 77 61 69 74 20 2d 20 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 ┆pr_wait - 1; g┆
0x82d20…82d40 6f 74 6f 20 6c 6f 6f 70 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 ┆oto loop; end; ┆
0x82d40…82d60 20 20 20 20 20 20 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 ┆ f3:= (w3:=108).double┆
0x82d60…82d7a 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 33 20 6c 73 68 69 66 74 20 ┆; f3 lshift ┆
0x82d7a…82d80 (0x324,0x105c)
0x82d80…82da0 2d 20 31 39 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 33 3e 3d 20 28 77 31 29 ┆- 19; if w3>= (w1)┆
0x82da0…82dc0 2e 66 70 72 5f 74 69 6d 65 72 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 ┆.fpr_timer then be┆
0x82dc0…82de0 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 31 29 2e 66 70 72 5f 73 74 61 ┆gin (w1).fpr_sta┆
0x82de0…82e00 74 75 73 3a 3d 20 77 33 3a 3d 20 32 30 39 37 31 35 34 3b 20 21 20 74 69 00 00 00 00 00 00 00 00 ┆tus:= w3:= 2097154; ! ti ┆
0x82e00…82e06 (1047,) (0x324,0x105d)
0x82e06…82e20 6d 65 72 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 30 3a 3d ┆mer ! w0:=┆
0x82e20…82e40 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 20 20 20 6c 69 ┆ (w1).c_next; li┆
0x82e40…82e60 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 74 69 76 71 66 ┆nk(.w3.,w1,w2:=address(b.activqf┆
0x82e60…82e7e 73 74 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 66 70 72 ┆st)); (w3).fpr┆
0x82e7e…82e84 (0x324,0x105e)
0x82e84…82ea0 5f 77 61 69 74 3a 3d 20 77 32 3a 3d 20 28 77 33 29 2e 66 70 72 5f 77 61 69 74 2d 31 ┆_wait:= w2:= (w3).fpr_wait-1┆
0x82ea0…82ec0 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 77 30 3b 20 21 20 6e 65 78 74 ┆; w1:=w0; ! next┆
0x82ec0…82ee0 20 69 6e 20 71 75 65 75 65 20 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 20 65 6c ┆ in queue ! end el┆
0x82ee0…82efc 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 ┆se w1:= (w1).c_next; ┆
0x82efc…82f02 (0x324,0x105f)
0x82f02…82f20 20 20 20 20 20 20 20 77 30 3a 3d 20 73 61 76 65 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆ w0:= savew0; ┆
0x82f20…82f40 20 20 20 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 65 6e 64 ┆ w2:= savew2; end┆
0x82f40…82f60 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 74 3b 0a 20 20 ┆; w3:= b.current; ┆
0x82f60…82f7a 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 6c 6f 6f 70 3b 20 20 21 20 75 6e ┆ goto loop; ! un┆
0x82f7a…82f80 (0x324,0x1060)
0x82f80…82fa0 6b 6e 6f 77 6e 20 64 65 76 69 63 65 20 21 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 ┆known device ! end; ┆
0x82fa0…82fc0 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 32 3d 34 20 21 20 72 65 6a ┆ end; if w2=4 ! rej┆
0x82fc0…82fe0 65 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 ┆ected ! then begin ┆
0x82fe0…83000 20 20 20 20 20 77 33 3a 3d 20 61 64 64 72 65 73 73 28 28 77 33 29 2e 66 00 00 00 00 00 00 00 00 ┆ w3:= address((w3).f ┆
0x83000…83006 (1048,) (0x324,0x1061)
0x83006…83020 70 72 5f 70 72 6f 63 69 6e 29 3b 0a 20 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 ┆pr_procin); moni┆
0x83020…83040 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 72 65 6e 74 3b ┆tor(8); w3:=b.current;┆
0x83040…83060 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 6f 20 6c 6f 6f ┆ if w0=0 then goto loo┆
0x83060…8307e 70 3b 0a 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 34 3b 0a 20 20 20 20 20 20 20 20 65 6e ┆p; w2:=4; en┆
0x8307e…83084 (0x324,0x1062)
0x83084…830a0 64 3b 0a 20 20 20 20 20 20 20 20 69 66 20 77 32 3d 32 30 39 37 31 35 34 20 21 20 74 ┆d; if w2=2097154 ! t┆
0x830a0…830c0 69 6d 65 72 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 ┆imer ! then begin ┆
0x830c0…830e0 20 20 20 20 77 30 3a 3d 20 61 64 64 72 65 73 73 28 28 77 33 29 2e 66 70 72 5f 6e 65 78 74 29 3b ┆ w0:= address((w3).fpr_next);┆
0x830e0…830fc 0a 20 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 ┆ w1:= (w3).fpr_nex┆
0x830fc…83102 (0x324,0x1063)
0x83102…83120 74 3b 0a 20 20 20 20 20 20 20 20 20 20 66 33 3a 3d 20 28 77 33 3a 3d 31 30 38 29 2e 64 6f ┆t; f3:= (w3:=108).do┆
0x83120…83140 75 62 6c 65 3b 0a 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 ┆uble; f3 lshift - 19; ┆
0x83140…83160 20 20 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 77 68 69 ┆ w2:= w3; whi┆
0x83160…8317a 6c 65 20 77 30 3c 3e 77 31 20 64 6f 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 ┆le w0<>w1 do beg┆
0x8317a…83180 (0x324,0x1064)
0x83180…831a0 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 77 32 20 3e 3d 20 28 77 31 29 2e 66 70 72 ┆in if w2 >= (w1).fpr┆
0x831a0…831c0 5f 74 69 6d 65 72 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 ┆_timer then begin ┆
0x831c0…831e0 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 3a 3d 20 77 33 ┆ (w1).fpr_status:= w3┆
0x831e0…83200 3a 3d 20 32 30 39 37 31 35 34 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆:= 2097154; ┆
0x83200…83206 (1049,) (0x324,0x1065)
0x83206…83220 20 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 ┆ w0:= (w1).c_next; ┆
0x83220…83240 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┆
0x83240…83260 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 20 20 28 77 ┆(b.activqfst)); (w┆
0x83260…8327e 33 29 2e 66 70 72 5f 77 61 69 74 3a 3d 20 77 32 3a 3d 20 28 77 33 29 2e 66 70 72 5f 77 61 ┆3).fpr_wait:= w2:= (w3).fpr_wa┆
0x8327e…83284 (0x324,0x1066)
0x83284…832a0 69 74 2d 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 33 3a 3d 20 28 77 33 ┆it-1; f3:= (w3┆
0x832a0…832c0 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 20 66 33 20 ┆:=108).double; f3 ┆
0x832c0…832e0 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 20 77 32 3a 3d 20 ┆lshift - 19; w2:= ┆
0x832e0…832fc 77 33 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 20 77 30 3b 0a 20 ┆w3; w1:= w0; ┆
0x832fc…83302 (0x324,0x1067)
0x83302…83320 20 20 20 20 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 ┆ end else w1:= (w1).┆
0x83320…83340 63 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 20 20 ┆c_next; end; ┆
0x83340…83360 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 67 6f 74 6f 20 ┆ w3:= b.current; goto ┆
0x83360…8337a 73 65 6e 73 65 5f 72 65 61 64 79 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 20 65 ┆sense_ready; end e┆
0x8337a…83380 (0x324,0x1068)
0x83380…833a0 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 31 3a 3d ┆lse begin w1:=┆
0x833a0…833c0 20 28 77 33 29 2e 66 70 72 5f 6e 65 78 74 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 31 3c ┆ (w3).fpr_next; if w1<┆
0x833c0…833e0 3e 77 30 3a 3d 20 61 64 64 72 65 73 73 28 28 77 33 29 2e 66 70 72 5f 6e 65 78 74 29 20 74 68 65 ┆>w0:= address((w3).fpr_next) the┆
0x833e0…83400 6e 0a 20 20 20 20 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 ┆n begin ┆
0x83400…83406 (1050,) (0x324,0x1069)
0x83406…83420 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 32 ┆ (w1).fpr_status:= w2┆
0x83420…83440 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 77 32 3a 3d 61 ┆; link(.w3.,w1,w2:=a┆
0x83440…83460 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 20 20 20 20 ┆ddress(b.activqfst)); ┆
0x83460…8347e 20 20 28 77 33 29 2e 66 70 72 5f 77 61 69 74 3a 3d 20 77 30 3a 3d 20 28 77 33 29 2e 66 70 ┆ (w3).fpr_wait:= w0:= (w3).fp┆
0x8347e…83484 (0x324,0x106a)
0x83484…834a0 72 5f 77 61 69 74 20 2d 20 31 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 ┆r_wait - 1; end; ┆
0x834a0…834c0 20 20 20 20 20 20 20 65 6e 64 3b 0a 6c 6f 6f 70 3a 0a 20 20 20 20 20 20 20 20 67 6f 74 6f 20 69 ┆ end; loop: goto i┆
0x834c0…834e0 6e 70 75 74 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 65 6e 64 3b 0a 20 20 65 6e 64 3b ┆nput; end; end; end;┆
0x834e0…834fc 0a 0a 0a 65 6e 64 2e 0a 0a 19 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 ┆ end. begin ┆
0x834fc…83502 (0x324,0x106b)
0x83502…83520 20 20 20 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 39 ┆ (w1).fpr_status:= w3:= 209┆
0x83520…83540 37 31 35 34 3b 0a 20 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 ┆7154; w0:= (w1).c_┆
0x83540…83560 6e 65 78 74 3b 0a 20 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 ┆next; link(.w3.,w1┆
0x83560…8357a 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 ┆,w2:=address(b.activqfst))┆
0x8357a…83580 (0x324,0x106c)
0x83580…835a0 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 77 61 69 74 3a 3d 20 ┆; (w3).fpr_wait:= ┆
0x835a0…835c0 77 32 3a 3d 20 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 20 ┆w2:= (w3).fpr_wait-1; ┆
0x835c0…835e0 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 20 ┆ f3:= (w3:=108).double; ┆
0x835e0…83600 20 20 20 20 20 20 20 20 20 66 33 20 6c 73 68 69 66 74 20 2d 20 31 39 3b 00 00 00 00 00 00 00 00 ┆ f3 lshift - 19; ┆
0x83600…83606 (1051,) (0x324,0x106d)
0x83606…83620 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 32 3a 3d 20 77 33 3b 0a 20 20 ┆ w2:= w3; ┆
0x83620…83640 20 20 20 20 20 20 20 20 20 20 20 20 77 31 3a 3d 20 77 30 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ w1:= w0; ┆
0x83640…83660 20 65 6e 64 20 65 6c 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 ┆ end else w1:= (w1).c_next; ┆
0x83660…8367e 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 62 2e 63 75 ┆ end; w3:= b.cu┆
0x8367e…83684 (0x324,0x106e)
0x83684…836a0 72 72 65 6e 74 3b 0a 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 73 65 6e 73 65 5f ┆rrent; goto sense_┆
0x836a0…836c0 72 65 61 64 79 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 ┆ready; end else ┆
0x836c0…836e0 62 65 67 69 6e 0a 20 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 ┆begin w1:= (w3).fpr_ne┆
0x836e0…836fc 78 74 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 77 31 3c 3e 77 30 3a 3d 20 61 64 ┆xt; if w1<>w0:= ad┆
0x836fc…83702 (0x324,0x106f)
0x83702…83720 64 72 65 73 73 28 28 77 33 29 2e 66 70 72 5f 6e 65 78 74 29 20 74 68 65 6e 0a 20 20 20 20 ┆dress((w3).fpr_next) then ┆
0x83720…83740 20 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 31 29 2e 66 70 72 ┆ begin (w1).fpr┆
0x83740…83760 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 6c 69 6e 6b 28 2e ┆_status:= w2; link(.┆
0x83760…8377a 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 ┆w3.,w1,w2:=address(b.activ┆
0x8377a…83780 (0x324,0x1070)
0x83780…837a0 71 66 73 74 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 77 33 29 2e 66 70 72 5f 77 61 69 ┆qfst)); (w3).fpr_wai┆
0x837a0…837c0 74 3a 3d 20 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 ┆t:= w0:= (w3).fpr_wait - 1; ┆
0x837c0…837e0 20 20 20 20 20 20 65 6e 64 72 65 73 73 28 28 77 33 29 2e 66 70 72 5f 6e 65 78 74 29 20 74 68 65 ┆ endress((w3).fpr_next) the┆
0x837e0…83800 6e 0a 20 20 20 20 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 ┆n begin ┆
0x83800…83806 (1052,) (0x388,0x1071)
0x83806…83820 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 ┆external integer procedure┆
0x83820…83840 20 74 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 ┆ transfer(action, ipar, ileng, o┆
0x83840…83860 70 61 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 ┆par, oleng); integer ┆
0x83860…8387e 20 20 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, ┆
0x8387e…83884 (0x388,0x1072)
0x83884…838a0 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 ┆ ileng, oleng; integer┆
0x838a0…838c0 20 61 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 ┆ array ┆
0x838c0…838e0 20 20 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 ┆ ipar, opar; begin i┆
0x838e0…838fc 6e 74 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 ┆nteger treply, tno, tname, t┆
0x838fc…83902 (0x388,0x1073)
0x83902…83920 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 ┆user, tsend, treceiv, tktype, ┆
0x83920…83940 74 6b 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 ┆tkgroup, tkname, treser,┆
0x83940…83960 20 74 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 ┆ tserr, trerr, tsubno, t┆
0x83960…8397a 73 75 62 73 74 2c 20 74 73 75 62 70 6f 73 2c 20 74 73 75 62 74 69 6d 65 2c 20 ┆subst, tsubpos, tsubtime, ┆
0x8397a…83980 (0x388,0x1074)
0x83980…839a0 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 65 6e 67 2c 20 6c ┆tcause, terrst, tleng, l┆
0x839a0…839c0 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 6d 2c 20 73 69 7a ┆evel, nlevel, rectype, form, siz┆
0x839c0…839e0 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 74 61 72 74 2c 20 ┆e, stackix, bytes,start, ┆
0x839e0…83a00 65 63 6f 64 65 2c 20 69 3b 0a 69 6e 74 65 67 65 72 20 66 69 65 6c 64 20 00 00 00 00 00 00 00 00 ┆ecode, i; integer field ┆
0x83a00…83a06 (1053,) (0x388,0x1075)
0x83a06…83a20 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 ┆zix; integer array descr(1┆
0x83a20…83a40 3a 34 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 ┆:42), stack(1:10), ia(1:20); zon┆
0x83a40…83a60 65 20 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 ┆e z(50,1,stderror); boolean tes┆
0x83a60…83a7e 74 3b 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 ┆t; procedure putheader(type,┆
0x83a7e…83a84 (0x388,0x1076)
0x83a84…83aa0 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 ┆ level, form, size); integer┆
0x83aa0…83ac0 20 20 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 ┆ type, level, form, ┆
0x83ac0…83ae0 73 69 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 ┆size; <* the four parameters is┆
0x83ae0…83afc 20 70 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 ┆ packed into one integer to ┆
0x83afc…83b02 (0x388,0x1077)
0x83b02…83b20 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 ┆give * a header. this is plac┆
0x83b20…83b40 65 64 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 ┆ed in primo parameter record poi┆
0x83b40…83b60 6e 74 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 ┆nted * out by zix. *> begin zi┆
0x83b60…83b7a 78 20 3a 3d 20 7a 69 78 20 2b 20 32 3b 0a 20 20 20 20 20 20 7a 2e 7a 69 78 20 ┆x := zix + 2; z.zix ┆
0x83b7a…83b80 (0x388,0x1078)
0x83b80…83ba0 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 69 66 74 20 38 0a ┆:= type shift 12 +level shift 8 ┆
0x83ba0…83bc0 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 34 20 2b 20 73 69 ┆ + form shift 4 + si┆
0x83bc0…83be0 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 65 6c 64 28 69 78 ┆ze; end; procedure putfield(ix┆
0x83be0…83c00 2c 20 73 69 7a 65 29 3b 0a 69 6e 74 65 67 65 72 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆, size); integer ┆
0x83c00…83c06 (1054,) (0x388,0x1079)
0x83c06…83c20 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 ┆ ix, size; <* moves th┆
0x83c20…83c40 65 20 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 ┆e field pointed at by ix,size to┆
0x83c40…83c60 20 70 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 ┆ primo parameter * record point┆
0x83c60…83c7e 65 64 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 ┆ed out by zix. *> begin integ┆
0x83c7e…83c84 (0x388,0x107a)
0x83c84…83ca0 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 ┆er i; for i:=0 ┆
0x83ca0…83cc0 73 74 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 ┆step 1 until size-1 do beg┆
0x83cc0…83ce0 69 6e 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 ┆in zix := zix + 2; z┆
0x83ce0…83cfc 2e 7a 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 ┆.zix := ipar(ix+i); end┆
0x83cfc…83d02 (0x388,0x107b)
0x83d02…83d20 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 ┆; end; integer procedure get┆
0x83d20…83d40 68 64 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 ┆hdr(rectype, level, form, size);┆
0x83d40…83d60 0a 69 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 ┆ integer rectyp┆
0x83d60…83d7a 65 2c 20 6c 65 76 65 6c 2c 20 66 6f 72 6d 2c 20 73 69 7a 65 3b 0a 0a 3c 2a 20 ┆e, level, form, size; <* ┆
0x83d7a…83d80 (0x388,0x107c)
0x83d80…83da0 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 74 20 69 6e 20 70 ┆unpack a header pointed out in p┆
0x83da0…83dc0 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 64 65 6c 69 76 65 ┆rimo answer record and * delive┆
0x83dc0…83de0 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 72 6f 63 65 64 75 ┆rs the components in the procedu┆
0x83de0…83e00 72 65 20 70 61 72 61 6d 65 74 65 72 73 2e 0a 20 2a 20 61 74 20 65 6e 74 00 00 00 00 00 00 00 00 ┆re parameters. * at ent ┆
0x83e00…83e06 (1055,) (0x388,0x107d)
0x83e06…83e20 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 ┆ry zix points to the last ┆
0x83e20…83e40 64 65 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 ┆delivered header in * primo rec┆
0x83e40…83e60 6f 72 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 ┆ord. *> begin own integer oform┆
0x83e60…83e7e 2c 6f 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 ┆,osize; integer field i;┆
0x83e7e…83e84 (0x388,0x107e)
0x83e84…83ea0 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 ┆ i := zix + 2; ┆
0x83ea0…83ec0 20 20 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 ┆ zix := if zix = 0 then 2 els┆
0x83ec0…83ee0 65 20 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 ┆e zix + 2 + (case oform+1 of ┆
0x83ee0…83efc 20 20 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, ┆
0x83efc…83f02 (0x388,0x107f)
0x83f02…83f20 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 ┆0, z.i+1, z.i+1, 1, 0)) * 2; ┆
0x83f20…83f40 20 20 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 ┆ if zix > bytes then gethdr ┆
0x83f40…83f60 3a 3d 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 ┆:= 0 else begin g┆
0x83f60…83f7a 65 74 68 64 72 20 3a 3d 20 31 3b 0a 20 20 20 20 20 20 20 20 20 72 65 63 74 79 ┆ethdr := 1; recty┆
0x83f7a…83f80 (0x388,0x1080)
0x83f80…83fa0 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 20 20 20 20 20 20 ┆pe := z.zix shift (-12); ┆
0x83fa0…83fc0 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 29 20 65 78 74 72 ┆ level := z.zix shift (-8) extr┆
0x83fc0…83fe0 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 66 6f 72 6d 20 3a ┆act 4; form := oform :┆
0x83fe0…84000 3d 20 7a 2e 7a 69 78 20 73 68 69 66 74 20 28 2d 34 29 20 65 78 74 72 61 00 00 00 00 00 00 00 00 ┆= z.zix shift (-4) extra ┆
0x84000…84006 (1056,) (0x388,0x1081)
0x84006…84020 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 ┆ct 4; size := os┆
0x84020…84040 69 7a 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 ┆ize := z.zix extract 4; en┆
0x84040…84060 64 3b 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 ┆d; end; procedure getfield (ix┆
0x84060…8407e 2c 20 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 ┆
0x8407e…84084 (0x388,0x1082)
0x84084…840a0 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 ┆ix, osize; <* moves the fie┆
0x840a0…840c0 6c 64 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 ┆ld described in primo header poi┆
0x840c0…840e0 6e 74 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 ┆nted out by * zix,form,size to ┆
0x840e0…840fc 74 68 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 ┆the user parameter area poin┆
0x840fc…84102 (0x388,0x1083)
0x84102…84120 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 ┆ted out by * ix,osize. *> be┆
0x84120…84140 67 69 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 ┆gin integer field jf; inte┆
0x84140…84160 67 65 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 ┆ger i,n; if form = 2 then┆
0x84160…8417a 20 6f 70 61 72 28 69 78 29 20 3a 3d 20 73 69 7a 65 20 65 6c 73 65 0a 20 20 20 ┆ opar(ix) := size else ┆
0x8417a…84180 (0x388,0x1084)
0x84180…841a0 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 78 20 2b 20 32 3b ┆ begin jf := zix + 2;┆
0x841a0…841c0 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 6f 72 6d 20 3d 20 ┆ if form = 0 or form = ┆
0x841c0…841e0 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 29 20 65 6c 73 65 ┆1 then n := max(size,osize) else┆
0x841e0…84200 0a 20 20 20 20 20 20 20 20 20 69 66 20 66 6f 72 6d 20 3d 20 34 20 6f 72 00 00 00 00 00 00 00 00 ┆ if form = 4 or ┆
0x84200…84206 (1057,) (0x388,0x1085)
0x84206…84220 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 ┆ form = 5 then be┆
0x84220…84240 67 69 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 ┆gin n := max(z.jf,osize); ┆
0x84240…84260 20 20 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 ┆ jf := zix + 2; ┆
0x84260…8427e 20 65 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 ┆ end else n := 1; fo┆
0x8427e…84284 (0x388,0x1086)
0x84284…842a0 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 ┆r i := 0 step 1 until n-1 do┆
0x842a0…842c0 0a 20 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 ┆ begin opar(ix + i) :=┆
0x842c0…842e0 20 7a 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 ┆ z.jf; jf := jf +┆
0x842e0…842fc 20 32 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 ┆ 2; end; end;┆
0x842fc…84302 (0x388,0x1087)
0x84302…84320 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 ┆ end; integer procedure max(┆
0x84320…84340 61 2c 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 ┆a, b); integer a, ┆
0x84340…84360 62 3b 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 ┆b; begin max := if a > b t┆
0x84360…8437a 68 65 6e 20 61 20 65 6c 73 65 20 62 3b 0a 65 6e 64 3b 0a 0a 0a 70 72 6f 63 65 ┆hen a else b; end; proce┆
0x8437a…84380 (0x388,0x1088)
0x84380…843a0 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 29 3b 0a 69 6e 74 ┆dure testout(start, length); int┆
0x843a0…843c0 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 74 68 3b 0a 62 65 ┆eger start, length; be┆
0x843c0…843e0 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 6e 67 74 68 29 3b ┆gin integer array mov(1:length);┆
0x843e0…84400 0a 20 20 20 20 20 20 69 6e 74 65 67 65 72 20 69 2c 20 6a 3b 0a 0a 20 20 00 00 00 00 00 00 00 00 ┆ integer i, j; ┆
0x84400…84406 (1058,) (0x388,0x1089)
0x84406…84420 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 ┆ system(5,start,mov); ┆
0x84420…84440 20 20 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 ┆ for i := 0 step 1 until 4 d┆
0x84440…84460 6f 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 3c 31 30 3e 6d 65 ┆o write(out,<:<10>me┆
0x84460…8447e 73 73 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 ┆ss:>,<<d>,i,<<dddddddd>,ia(i+4┆
0x8447e…84484 (0x388,0x108a)
0x84484…844a0 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 ┆)); write(out,<:<10><1┆
0x844a0…844c0 30 3e 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 ┆0>record:<10>decimal grouped┆
0x844c0…844e0 3a 3e 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 ┆:>); for i := 1 step 1 unt┆
0x844e0…844fc 69 6c 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 ┆il length do begin wri┆
0x844fc…84502 (0x388,0x108b)
0x84502…84520 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 ┆te(out,<:<10>:>,<<dddddddd>,mo┆
0x84520…84540 76 28 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 ┆v(i),<: :>); for j┆
0x84540…84560 20 3a 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 step 4 until 0 do ┆
0x84560…8457a 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 ┆ write(out,<<dddd┆
0x8457a…84580 (0x388,0x108c)
0x84580…845a0 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 29 3b 0a 20 20 20 ┆>,mov(i) shift j extract 4); ┆
0x845a0…845c0 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 65 63 6f 72 64 20 ┆ end; end; <* build record ┆
0x845c0…845e0 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 72 65 64 20 70 61 ┆format for the user delivered pa┆
0x845e0…84600 72 61 6d 65 74 65 72 0a 20 2a 20 61 72 65 61 20 69 70 61 72 20 61 6e 64 00 00 00 00 00 00 00 00 ┆rameter * area ipar and ┆
0x84600…84606 (1059,) (0x388,0x108d)
0x84606…84620 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 ┆ opar. *> <* generel head┆
0x84620…84640 65 72 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 ┆er, common to all records. *> ┆
0x84640…84660 20 20 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 ┆ treply := 1; tno := 2; tname :┆
0x84660…8467e 3d 20 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┆
0x8467e…84684 (0x388,0x108e)
0x84684…846a0 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 ┆nsport.*> tsend := 21; t┆
0x846a0…846c0 72 65 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 ┆receiv := 26; tktype := 30; t┆
0x846c0…846e0 6b 67 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 ┆kgroup := 31; tkname := 35; <* ┆
0x846e0…846fc 61 6e 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 ┆answer define transport. *> ┆
0x846fc…84702 (0x388,0x108f)
0x84702…84720 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 ┆ treser := 7; tserr := 8; t┆
0x84720…84740 72 65 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 ┆rerr := 10; <* answer get trans┆
0x84740…84760 70 6f 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 ┆port state. *> tsubno := 20;┆
0x84760…8477a 20 74 73 75 62 73 74 20 3a 3d 20 32 31 3b 20 74 73 75 62 70 6f 73 20 3a 3d 20 ┆ tsubst := 21; tsubpos := ┆
0x8477a…84780 (0x388,0x1090)
0x84780…847a0 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 75 73 65 20 3a 3d ┆22; tsubtime := 24; tcause :=┆
0x847a0…847c0 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 20 64 61 74 61 20 ┆ 25; terrst := 26; <* the data ┆
0x847c0…847e0 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 69 6e 20 74 68 65 ┆handled to primo is build in the┆
0x847e0…84800 0a 20 2a 20 7a 6f 6e 65 20 7a 2e 20 74 68 65 20 66 69 65 6c 64 73 20 61 00 00 00 00 00 00 00 00 ┆ * zone z. the fields a ┆
0x84800…84806 (1060,) (0x388,0x1091)
0x84806…84820 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 ┆re moved one by one, and ┆
0x84820…84840 2a 20 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 ┆* the field variable zix points ┆
0x84840…84860 74 6f 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 ┆to the last used * integer in t┆
0x84860…8487e 68 65 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 ┆he zone record. *> zix := ┆
0x8487e…84884 (0x388,0x1092)
0x84884…848a0 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 ┆0; <* the array descr give┆
0x848a0…848c0 73 20 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 ┆s the definition of which of *┆
0x848c0…848e0 20 74 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 ┆ the records in the primo output┆
0x848e0…848fc 20 64 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 ┆ data is of interest. * it ┆
0x848fc…84902 (0x388,0x1093)
0x84902…84920 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 ┆is represented as a tree struc┆
0x84920…84940 74 75 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 ┆ture, each node * occupies 2 wo┆
0x84940…84960 72 64 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 ┆rds giving the value of an accep┆
0x84960…8497a 74 65 64 0a 20 2a 20 72 65 63 6f 72 64 20 74 79 70 65 20 69 6e 20 74 68 65 20 ┆ted * record type in the ┆
0x8497a…84980 (0x388,0x1094)
0x84980…849a0 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 20 77 6f 72 64 0a ┆first word . in the second word ┆
0x849a0…849c0 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 62 65 72 20 6f 72 ┆ * is either an action number or┆
0x849c0…849e0 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 69 70 74 69 6f 6e ┆ a pointer of the * description┆
0x849e0…84a00 20 6f 66 20 74 68 65 20 6e 6f 64 65 73 20 6f 6e 20 74 68 65 20 6e 65 78 00 00 00 00 00 00 00 00 ┆ of the nodes on the nex ┆
0x84a00…84a06 (1061,) (0x388,0x1095)
0x84a06…84a20 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 ┆t level. *> for i:= 1 ┆
0x84a20…84a40 73 74 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 ┆step 1 until 42 do descr(i) := c┆
0x84a40…84a60 61 73 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 ┆ase i of (3, 11, 5, 23, 7,┆
0x84a60…84a7e 20 32 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 ┆ 23, 9, 41, -11, 41, 1,┆
0x84a7e…84a84 (0x388,0x1096)
0x84a84…84aa0 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 ┆ -1, 3, -2, -4, 17, 1┆
0x84aa0…84ac0 2c 20 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 ┆, -3, 3, -4, -4, -5, 4, 17┆
0x84ac0…84ae0 2c 20 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 ┆, 1, -1, 3, -2, -1000, 31, ┆
0x84ae0…84afc 20 20 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, -┆
0x84afc…84b02 (0x388,0x1097)
0x84b02…84b20 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 ┆7, 6, -7, -7, -8, -4, 1┆
0x84b20…84b40 37 29 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 ┆7); <* make the zone ready for┆
0x84b40…84b60 20 63 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 ┆ communication with primo. *> ┆
0x84b60…84b7a 20 74 65 73 74 20 3a 3d 20 66 61 6c 73 65 3b 0a 20 0a 20 20 20 6f 70 65 6e 28 ┆ test := false; open(┆
0x84b7a…84b80 (0x388,0x1098)
0x84b80…84ba0 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 74 72 65 63 28 7a ┆z, 0, <:primo:>, 0); outrec(z┆
0x84ba0…84bc0 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 65 6e 0a 0a 3c 2a ┆,50); if action = 2 then <*┆
0x84bc0…84be0 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 67 69 6e 20 20 65 ┆ define transport *> begin e┆
0x84be0…84c00 63 6f 64 65 20 3a 3d 20 38 3b 0a 20 20 20 20 20 20 69 66 20 69 6c 65 6e 00 00 00 00 00 00 00 00 ┆code := 8; if ilen ┆
0x84c00…84c06 (1062,) (0x388,0x1099)
0x84c06…84c20 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 ┆g <30 or oleng < 11 then g┆
0x84c20…84c40 6f 74 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 ┆oto ereturn; putheader(2,0┆
0x84c40…84c60 2c 30 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 ┆,0,0); <*define transport*>┆
0x84c60…84c7e 0a 20 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); ┆
0x84c7e…84c84 (0x388,0x109a)
0x84c84…84ca0 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 ┆ <*transport name*> ┆
0x84ca0…84cc0 20 20 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 ┆ putfield(tname,4); puthe┆
0x84cc0…84ce0 61 64 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 ┆ader(2,1,0,4); <*user id┆
0x84ce0…84cfc 65 6e 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 ┆ent*> putfield(tuser,4┆
0x84cfc…84d02 (0x388,0x109b)
0x84d02…84d20 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 ┆); putheader(1000,1,0,0)┆
0x84d20…84d40 3b 20 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 ┆; <*record subtransport*> ┆
0x84d40…84d60 20 20 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 ┆ putheader(1,2,0,0); ┆
0x84d60…84d7a 20 20 20 20 3c 2a 73 65 6e 64 65 72 20 64 65 76 69 63 65 2a 3e 0a 20 20 20 20 ┆ <*sender device*> ┆
0x84d7a…84d80 (0x388,0x109c)
0x84d80…84da0 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 20 20 20 20 20 20 ┆ putheader(2,3,0,4); ┆
0x84da0…84dc0 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 28 74 73 65 6e 64 ┆ <*name*> putfield(tsend┆
0x84dc0…84de0 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 2c 30 29 3b 20 20 ┆,4); putheader(2,2,0,0); ┆
0x84de0…84e00 20 20 20 20 20 20 20 20 20 3c 2a 72 65 63 65 69 76 65 72 20 64 65 76 69 00 00 00 00 00 00 00 00 ┆ <*receiver devi ┆
0x84e00…84e06 (1063,) (0x388,0x109d)
0x84e06…84e20 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 ┆ce*> putheader(2,3,0┆
0x84e20…84e40 2c 34 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 ┆,4); <*name*> ┆
0x84e40…84e60 20 70 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 ┆ putfield(treceiv,4); tle┆
0x84e60…84e7e 6e 67 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 ┆ng := ileng - 20; while ┆
0x84e7e…84e84 (0x388,0x109e)
0x84e84…84ea0 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 ┆ipar(tktype) <> -1 do ┆
0x84ea0…84ec0 62 65 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 ┆begin ecode := 8; if tl┆
0x84ec0…84ee0 65 6e 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 ┆eng < 9 or zix > 200-26 then got┆
0x84ee0…84efc 6f 20 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 ┆o ereturn; ecode :=┆
0x84efc…84f02 (0x388,0x109f)
0x84f02…84f20 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 ┆ 9; if ipar(tktype) <┆
0x84f20…84f40 3e 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 20 20 20 20 20 20 ┆> 0 then goto ereturn; ┆
0x84f40…84f60 70 75 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 ┆putheader(3,3,0,0); <┆
0x84f60…84f7a 2a 71 75 65 75 65 73 2a 3e 0a 20 20 20 20 20 20 20 20 20 70 75 74 68 65 61 64 ┆*queues*> puthead┆
0x84f7a…84f80 (0x388,0x10a0)
0x84f80…84fa0 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 20 3c 2a 67 72 6f ┆er(1,4,0,4); <*gro┆
0x84fa0…84fc0 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 74 6b 67 72 6f 75 ┆up id*> putfield(tkgrou┆
0x84fc0…84fe0 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 2c 34 2c 30 2c 34 ┆p,4); putheader(3,4,0,4┆
0x84fe0…85000 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 2a 6e 61 6d 65 2a 00 00 00 00 00 00 00 00 ┆); <*name* ┆
0x85000…85006 (1064,) (0x388,0x10a1)
0x85006…85020 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 ┆> putfield(tkname┆
0x85020…85040 2c 34 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 ┆,4); tktype := tktype +┆
0x85040…85060 20 39 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 ┆ 9; tkgroup := tkgroup ┆
0x85060…8507e 2b 20 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┆
0x8507e…85084 (0x388,0x10a2)
0x85084…850a0 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 ┆ + 9; tleng := tlen┆
0x850a0…850c0 67 20 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 ┆g - 9; end; end else ┆
0x850c0…850e0 20 69 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 ┆ if action = 4 or action = 6 or ┆
0x850e0…850fc 61 63 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 ┆action = 8 or action=10 then┆
0x850fc…85102 (0x388,0x10a3)
0x85102…85120 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 ┆ <* get state of transport, w┆
0x85120…85140 61 69 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 ┆ait and get state of transport, ┆
0x85140…85160 20 2a 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 ┆ * release transport and kill t┆
0x85160…8517a 72 61 6e 73 70 6f 72 74 2e 20 2a 3e 0a 0a 20 20 20 62 65 67 69 6e 0a 20 20 20 ┆ransport. *> begin ┆
0x8517a…85180 (0x388,0x10a4)
0x85180…851a0 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 6f 72 20 61 63 74 ┆ tleng := if action = 8 or act┆
0x851a0…851c0 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 20 20 20 20 65 63 ┆ion = 10 then 7 else 9; ec┆
0x851c0…851e0 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 20 74 68 65 6e 20 ┆ode := 8; if ileng < tleng then ┆
0x851e0…85200 67 6f 74 6f 20 65 72 65 74 75 72 6e 3b 0a 20 20 20 20 20 20 74 6c 65 6e 00 00 00 00 00 00 00 00 ┆goto ereturn; tlen ┆
0x85200…85206 (1065,) (0x388,0x10a5)
0x85206…85220 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 ┆g := if action = 8 or acti┆
0x85220…85240 6f 6e 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 ┆on = 10 then 6 else 26; i┆
0x85240…85260 66 20 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 ┆f oleng < tleng then goto eretur┆
0x85260…8527e 6e 3b 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 ┆n; putheader(action,0,0,┆
0x8527e…85284 (0x388,0x10a6)
0x85284…852a0 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 ┆0); <*record type*> ┆
0x852a0…852c0 20 20 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 ┆ putheader(3,1,0,1); ┆
0x852c0…852e0 20 20 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 ┆ <*transport no*> ┆
0x852e0…852fc 70 75 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 ┆putfield(tno,1); end else┆
0x852fc…85302 (0x388,0x10a7)
0x85302…85320 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 ┆ <* unknown action. *> be┆
0x85320…85340 67 69 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 ┆gin ecode := 7; goto ereturn; en┆
0x85340…85360 64 3b 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 ┆d; <* build primo message in sh┆
0x85360…8537a 61 72 65 2e 20 2a 3e 0a 0a 20 20 20 72 65 70 65 61 74 20 20 20 20 20 20 20 20 ┆are. *> repeat ┆
0x8537a…85380 (0x388,0x10a8)
0x85380…853a0 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 3c 3e 20 73 74 6f ┆ <* until status <> sto┆
0x853a0…853c0 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 29 3b 20 69 3a 3d ┆pped *> getzone(z,ia); i:=┆
0x853c0…853e0 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 69 61 2c 20 31 29 ┆ia(19); getshare(z, ia, 1)┆
0x853e0…85400 3b 0a 20 20 20 20 20 20 69 20 3a 3d 20 69 20 2b 20 69 61 28 32 29 3b 0a 00 00 00 00 00 00 00 00 ┆; i := i + ia(2); ┆
0x85400…85406 (1066,) (0x388,0x10a9)
0x85406…85420 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 ┆ ia(4):= 7 shift 12; ┆
0x85420…85440 20 20 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 ┆ <*operation:=output-inpu┆
0x85440…85460 74 2a 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 ┆t*> ia(5) := i; ┆
0x85460…8547e 20 20 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)┆
0x8547e…85484 (0x388,0x10aa)
0x85484…854a0 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 ┆ := i + zix - 2; <*last o┆
0x854a0…854c0 75 74 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 ┆utput *> ia(7) := i; ┆
0x854c0…854e0 20 20 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 ┆ <*first input = first out┆
0x854e0…854fc 70 75 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 ┆put*> ia(8) := i + 200┆
0x854fc…85502 (0x388,0x10ab)
0x85502…85520 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 ┆-2; <*last input = max*> ┆
0x85520…85540 20 20 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 ┆ setshare(z,ia,1); if te┆
0x85540…85560 73 74 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 ┆st then testout(i, zix//2); ┆
0x85560…8557a 20 20 65 63 6f 64 65 20 3a 3d 20 36 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ecode := 6; ┆
0x8557a…85580 (0x388,0x10ac)
0x85580…855a0 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 20 6d 6f 6e 69 74 ┆ <*send message*> if monit┆
0x855a0…855c0 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 67 6f 74 6f 20 65 ┆or(16, z, 1, ia) = 0 then goto e┆
0x855c0…855e0 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 69 74 6f 72 28 31 ┆return; ecode := monitor(1┆
0x855e0…85600 38 2c 20 7a 2c 20 31 2c 20 69 61 29 3b 0a 20 20 20 20 20 20 69 66 20 65 00 00 00 00 00 00 00 00 ┆8, z, 1, ia); if e ┆
0x85600…85606 (1067,) (0x388,0x10ad)
0x85606…85620 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 ┆code <> 1 then goto eretur┆
0x85620…85640 6e 3b 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 ┆n; until ia(1) = 0; bytes ┆
0x85640…85660 3a 3d 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 ┆:= ia(2); if test then testou┆
0x85660…8567e 74 28 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 ┆t(i,bytes//2); <* clear user ┆
0x8567e…85684 (0x388,0x10ae)
0x85684…856a0 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 ┆buffer*> for i:= 1 step ┆
0x856a0…856c0 31 20 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 ┆1 until oleng do opar(i) := -1; ┆
0x856c0…856e0 0a 0a 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 ┆ <* translate primo dataformat ┆
0x856e0…856fc 74 6f 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 ┆to user output format. * ar┆
0x856fc…85702 (0x388,0x10af)
0x85702…85720 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 ┆ray descr gives the structure ┆
0x85720…85740 66 6f 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 ┆for the fields * which has to b┆
0x85740…85760 65 20 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 ┆e copied to the user area .*> ┆
0x85760…8577a 20 20 65 63 6f 64 65 20 3a 3d 20 6c 65 76 65 6c 20 3a 3d 20 7a 69 78 20 3a 3d ┆ ecode := level := zix :=┆
0x8577a…85780 (0x388,0x10b0)
0x85780…857a0 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 61 63 6b 28 73 74 ┆ 0; stackix := 1; stack(st┆
0x857a0…857c0 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 6b 20 69 6e 20 70 ┆ackix) := 1; rep1: <* look in p┆
0x857c0…857e0 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 68 20 6c 65 76 65 ┆rimo data for a header with leve┆
0x857e0…85800 6c 20 3c 3d 0a 20 2a 20 63 75 72 72 65 6e 74 20 6c 65 76 65 6c 20 28 6e 00 00 00 00 00 00 00 00 ┆l <= * current level (n ┆
0x85800…85806 (1068,) (0x388,0x10b1)
0x85806…85820 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 ┆level).*> repeat ┆
0x85820…85840 20 69 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 ┆ if gethdr(rectype, nlevel, form┆
0x85840…85860 2c 20 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 ┆, size) = 0 then goto ereturn; ┆
0x85860…8587e 20 20 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┆
0x8587e…85884 (0x388,0x10b2)
0x85884…858a0 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 ┆nstack description until lev┆
0x858a0…858c0 65 6c 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 ┆el becomes nlevel in current * ┆
0x858c0…858e0 70 72 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 ┆primo header. *> stackix := s┆
0x858e0…858fc 74 61 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 ┆tackix - (level - nlevel); ┆
0x858fc…85902 (0x388,0x10b3)
0x85902…85920 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 ┆ level := nlevel; start :=┆
0x85920…85940 20 73 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 ┆ stack(stackix); <* search in d┆
0x85940…85960 65 73 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 ┆escription(level) for record typ┆
0x85960…8597a 72 2e 2a 3e 0a 0a 20 20 20 66 6f 72 20 69 20 3a 3d 20 73 74 61 72 74 2c 20 69 ┆r.*> for i := start, i┆
0x8597a…85980 (0x388,0x10b4)
0x85980…859a0 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 0a 20 20 20 69 66 ┆+2 while descr(i-2) > 0 do if┆
0x859a0…859c0 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 68 65 6e 20 67 6f ┆ rectype = abs(descr(i)) then go┆
0x859c0…859e0 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 6f 75 6e 64 3a 0a ┆to found; goto rep1; found: ┆
0x859e0…85a00 0a 3c 2a 20 63 68 65 63 6b 20 69 66 20 74 68 65 20 64 65 73 63 72 69 70 00 00 00 00 00 00 00 00 ┆ <* check if the descrip ┆
0x85a00…85a06 (1069,) (0x388,0x10b5)
0x85a06…85a20 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 ┆tion tree is deeper, i.e. ┆
0x85a20…85a40 20 2a 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 ┆ * there is one more level neede┆
0x85a40…85a60 64 2e 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 ┆d. *>; if descr(i+1) > 0 the┆
0x85a60…85a7e 6e 0a 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 ┆n begin stackix := stackix ┆
0x85a7e…85a84 (0x388,0x10b6)
0x85a84…85aa0 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 ┆+ 1; level := level + ┆
0x85aa0…85ac0 31 3b 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 ┆1; stack(stackix):= descr(┆
0x85ac0…85ae0 69 2b 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 ┆i+1); goto rep1; end el┆
0x85ae0…85afc 73 65 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 ┆se begin <* a parameter ┆
0x85afc…85b02 (0x388,0x10b7)
0x85b02…85b20 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 ┆field has to be moved acording┆
0x85b20…85b40 20 74 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 ┆ to * action number. *> ┆
0x85b40…85b60 63 61 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 ┆case -descr(i+1) of begin ┆
0x85b60…85b7a 20 20 20 20 20 67 65 74 66 69 65 6c 64 28 74 6e 61 6d 65 2c 34 29 3b 0a 20 20 ┆ getfield(tname,4); ┆
0x85b7a…85b80 (0x388,0x10b8)
0x85b80…85ba0 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 20 67 65 74 66 69 ┆ getfield(tno,1); getfi┆
0x85ba0…85bc0 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 65 6c 64 28 74 73 ┆eld(treply,1); getfield(ts┆
0x85bc0…85be0 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 72 72 2c 32 29 3b ┆err,2); getfield(trerr,2);┆
0x85be0…85c00 0a 20 20 20 20 20 20 62 65 67 69 6e 20 6f 70 61 72 28 74 73 75 62 6e 6f 00 00 00 00 00 00 00 00 ┆ begin opar(tsubno ┆
0x85c00…85c06 (1070,) (0x388,0x10b9)
0x85c06…85c20 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 ┆) := 1; getfie┆
0x85c20…85c40 6c 64 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 ┆ld(tsubst,1); end; g┆
0x85c40…85c60 65 74 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 ┆etfield(tcause,1); getfiel┆
0x85c60…85c7e 64 28 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 ┆d(tsubpos,2); end; end;┆
0x85c7e…85c84 (0x388,0x10ba)
0x85c84…85ca0 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 ┆ goto rep1; ereturn: ┆
0x85ca0…85cc0 67 65 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 ┆getzone(z, ia); ia(13):= 0; ┆
0x85cc0…85ce0 20 20 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 ┆ <*zone state*> setzone┆
0x85ce0…85cfc 28 7a 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 ┆(z, ia); close(z,true); ┆
0x85cfc…85d02 (0x388,0x10bb)
0x85d02…85d20 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 ┆ transfer := ecode; if test t┆
0x85d20…85d40 68 65 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 ┆hen begin write(out,<:<10>transf┆
0x85d40…85d60 65 72 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 ┆er = :>, <<ddd>,ecode); fo┆
0x85d60…85d7a 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 6f 6c 65 6e ┆r i := 1 step 1 until olen┆
0x85d7a…85d80 (0x388,0x10bc)
0x85d80…85da0 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 3e 3a 3e 2c 20 3c ┆g do write(out,<:<10>:>, <┆
0x85da0…85dc0 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 3b 0a 65 6e 64 3b ┆<ddddddddd>, opar(i)); end; end;┆
0x85dc0…85de0 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 28 73 74 61 63 6b ┆ end; l + 1; stack(stack┆
0x85de0…85e00 69 78 29 3a 3d 20 64 65 73 63 72 28 69 2b 31 29 3b 0a 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ix):= descr(i+1); ┆
0x85e00…85e06 (1071,) (0x388,0x10bd)
0x85e06…85e20 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 ┆goto rep1; end else b┆
0x85e20…85e40 65 67 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 ┆egin <* a parameter field has ┆
0x85e40…85e60 74 6f 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 ┆to be moved acording to * actio┆
0x85e60…85e7e 6e 20 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 ┆n numbegin stackix := stackix ┆
0x85e7e…85e84 (0x3ec,0x10be)
0x85e84…85ea0 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 ┆(head 1 bcheckparam=algol m┆
0x85ea0…85ec0 65 73 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 ┆essage.no if ok.yes (c=message┆
0x85ec0…85ee0 20 63 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 ┆ checkparam compiled ok checkp┆
0x85ee0…85efc 61 72 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 ┆aram=move bcheckparam c=lo┆
0x85efc…85f02 (0x3ec,0x10bf)
0x85f02…85f20 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 ┆okup checkparam ) if ok.no ┆
0x85f20…85f40 20 63 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 ┆ c=message checkparam error in c┆
0x85f40…85f60 6f 6d 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 ┆ompilation ) external integer p┆
0x85f60…85f7a 72 6f 63 65 64 75 72 65 20 63 68 65 63 6b 70 61 72 61 6d 0a 20 20 28 70 61 72 ┆rocedure checkparam (par┆
0x85f7a…85f80 (0x3ec,0x10c0)
0x85f80…85fa0 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 73 74 2c 20 65 6c ┆amno, keywordno, keywordlist, el┆
0x85fa0…85fc0 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 29 3b 0a 76 61 6c ┆ements, elementtype, print); val┆
0x85fc0…85fe0 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 20 20 20 20 20 20 ┆ue paramno, ┆
0x85fe0…86000 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 ┆ ┆
0x86000…86006 (1072,) (0x3ec,0x10c1)
0x86006…86020 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 ┆ print ; real array ┆
0x86020…86040 20 20 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 ┆ keywordlis┆
0x86040…86060 74 2c 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 ┆t, elements ┆
0x86060…8607e 3b 0a 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 ┆
0x8607e…86084 (0x3ec,0x10c2)
0x86084…860a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x860a0…860c0 20 20 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 ┆ elementtype ; integer┆
0x860c0…860e0 0a 20 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 ┆ paramno, keywordno ┆
0x860e0…860fc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x860fc…86102 (0x3ec,0x10c3)
0x86102…86120 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 ┆ ; boolean ┆
0x86120…86140 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x86140…86160 20 20 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 ┆ print ; message: *** check┆
0x86160…8617a 70 61 72 61 6d 20 76 65 72 73 69 6f 6e 20 20 31 2e 30 30 20 2a 2a 2a 3b 0a 63 ┆param version 1.00 ***; c┆
0x8617a…86180 (0x3ec,0x10c4)
0x86180…861a0 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 20 20 20 20 20 20 ┆omment: *** ┆
0x861a0…861c0 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 2c 20 37 38 2e 30 ┆ ***; message: *** eli, 78.0┆
0x861c0…861e0 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 65 6e 74 3a 0a 20 ┆7.13 ***; comment: ┆
0x861e0…86200 20 74 68 69 73 20 70 72 6f 63 65 64 75 72 65 20 6d 61 79 20 62 65 20 75 00 00 00 00 00 00 00 00 ┆ this procedure may be u ┆
0x86200…86206 (1073,) (0x3ec,0x10c5)
0x86206…86220 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 ┆sed to check the right han┆
0x86220…86240 64 20 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 ┆d side parameterlist of a prog┆
0x86240…86260 72 61 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 ┆ramcall. the procedure assume┆
0x86260…8627e 73 2c 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 ┆s, that the parameterlist cons┆
0x8627e…86284 (0x3ec,0x10c6)
0x86284…862a0 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 ┆ists of a number of parame┆
0x862a0…862c0 74 65 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 ┆ter(groups) separated by spaces ┆
0x862c0…862e0 28 3c 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 ┆(<sp> in fp-notation). each p┆
0x862e0…862fc 61 72 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 ┆arameter consists of one or ┆
0x862fc…86302 (0x3ec,0x10c7)
0x86302…86320 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 ┆more elements, separated (i┆
0x86320…86340 66 20 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 ┆f more than one) by periods. ┆
0x86340…86360 74 68 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 ┆the first (and maybe only) eleme┆
0x86360…8637a 6e 74 20 61 6e 64 20 69 73 20 61 73 73 75 6d 65 64 0a 20 20 74 6f 20 62 65 20 ┆nt and is assumed to be ┆
0x8637a…86380 (0x3ec,0x10c8)
0x86380…863a0 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 6f 72 64 6c 69 73 ┆a keyword. the array <keywordlis┆
0x863a0…863c0 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 61 72 65 64 20 61 ┆t> is assumed to be declared a┆
0x863c0…863e0 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 69 73 74 28 31 3a ┆s real array keywordlist(1:┆
0x863e0…86400 6e 6f 5f 6f 66 5f 6b 65 79 77 6f 72 64 73 2c 20 31 3a 33 29 0a 0a 20 20 00 00 00 00 00 00 00 00 ┆no_of_keywords, 1:3) ┆
0x86400…86406 (1074,) (0x3ec,0x10c9)
0x86406…86420 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 ┆the keywords allowed must ┆
0x86420…86440 62 65 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 ┆be described in keywordlist(i, 1┆
0x86440…86460 29 20 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 ┆) and keywordlist(i,2). if key┆
0x86460…8647e 77 6f 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 ┆wordlist(i,1)= null they will ┆
0x8647e…86484 (0x3ec,0x10ca)
0x86484…864a0 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 ┆be assumed to match any ke┆
0x864a0…864c0 79 77 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 ┆yword in the parameter. unused e┆
0x864c0…864e0 6e 74 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 ┆ntries in keywordlist should h┆
0x864e0…864fc 61 76 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 ┆ave keywordlist(i,1) set to ┆
0x864fc…86502 (0x3ec,0x10cb)
0x86502…86520 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 ┆a value which can not possib┆
0x86520…86540 6c 65 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 ┆le occur (0.0 shift 48 add -1 sh┆
0x86540…86560 69 66 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 ┆ift 24 add -1). keywordlist┆
0x86560…8657a 28 69 2c 33 29 20 6d 75 73 74 20 63 6f 6e 74 61 69 6e 20 61 20 73 70 65 63 69 ┆(i,3) must contain a speci┆
0x8657a…86580 (0x3ec,0x10cc)
0x86580…865a0 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 65 78 74 20 6f 72 ┆fication of the types (text or┆
0x865a0…865c0 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 65 6c 65 6d 65 6e ┆ integer) allowed for the elemen┆
0x865c0…865e0 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 20 20 73 70 65 63 ┆ts in the parameter. each spec┆
0x865e0…86600 69 66 69 63 61 74 69 6f 6e 20 63 6f 6e 74 61 69 6e 73 20 33 20 62 69 74 00 00 00 00 00 00 00 00 ┆ification contains 3 bit ┆
0x86600…86606 (1075,) (0x3ec,0x10cd)
0x86606…86620 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 ┆s as follows: 000 no┆
0x86620…86640 20 65 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 ┆ element allowed 001 text e┆
0x86640…86660 6c 65 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 ┆lement must be present 010 ┆
0x86660…8667e 69 6e 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 ┆integer element must be presen┆
0x8667e…86684 (0x3ec,0x10ce)
0x86684…866a0 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 ┆t 011 text or integer e┆
0x866a0…866c0 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 31 30 30 20 20 6e ┆lement may be present 100 n┆
0x866c0…866e0 6f 74 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 ┆ot used bitpattern 101 text┆
0x866e0…866fc 20 65 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 ┆ element may be present ┆
0x866fc…86702 (0x3ec,0x10cf)
0x86702…86720 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 ┆110 integer element may be pr┆
0x86720…86740 65 73 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 ┆esent 111 text or integer e┆
0x86740…86760 6c 65 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 ┆lement may be present note, t┆
0x86760…8677a 68 61 74 20 74 68 65 20 6f 70 74 69 6f 6e 61 6c 20 65 6c 65 6d 65 6e 74 73 20 ┆hat the optional elements ┆
0x8677a…86780 (0x3ec,0x10d0)
0x86780…867a0 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 70 70 65 61 72 20 ┆should, to make sense, appear ┆
0x867a0…867c0 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 65 20 70 61 72 61 ┆as the last elements in the para┆
0x867c0…867e0 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 6e 73 20 6d 75 73 ┆meter. the specifications mus┆
0x867e0…86800 74 20 62 65 20 70 61 63 6b 65 64 20 69 6e 20 6b 65 79 77 6f 72 64 6c 69 00 00 00 00 00 00 00 00 ┆t be packed in keywordli ┆
0x86800…86806 (1076,) (0x3ec,0x10d1)
0x86806…86820 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 ┆st(i,3) in the following┆
0x86820…86840 20 77 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 ┆ way: keywordlist(i,3):= 0.┆
0x86840…86860 30 20 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 ┆0 shift 48 ┆
0x86860…8687e 20 20 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 ┆
0x8687e…86884 (0x3ec,0x10d2)
0x86884…868a0 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 ┆ add <specs1>┆
0x868a0…868c0 20 73 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 ┆ shift 3 ┆
0x868c0…868e0 61 64 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 ┆add <specs2> shift 3 ┆
0x868e0…868fc 20 20 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 ┆ ... ┆
0x868fc…86902 (0x3ec,0x10d3)
0x86902…86920 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 ┆ add <specsn> <sp┆
0x86920…86940 65 63 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 ┆ecs0> is the specification for t┆
0x86940…86960 68 65 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 ┆he keyword. <specs1> is the sp┆
0x86960…8697a 65 63 69 66 69 63 61 74 69 6f 6e 20 66 6f 72 20 74 68 65 20 66 69 72 73 74 20 ┆ecification for the first ┆
0x8697a…86980 (0x3ec,0x10d4)
0x86980…869a0 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 79 77 6f 72 64 2c ┆element following the keyword,┆
0x869a0…869c0 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 6e 73 20 6f 66 20 ┆ <specs2> the specifications of ┆
0x869c0…869e0 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 20 74 68 65 20 61 ┆the next element etc. the a┆
0x869e0…86a00 72 72 61 79 73 20 65 6c 65 6d 65 6e 74 73 20 61 6e 64 20 65 6c 65 6d 65 00 00 00 00 00 00 00 00 ┆rrays elements and eleme ┆
0x86a00…86a06 (1077,) (0x3ec,0x10d5)
0x86a06…86a20 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 ┆nttype must be declared as┆
0x86a20…86a40 0a 0a 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 ┆ real array elements(0:max_┆
0x86a40…86a60 65 6c 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 ┆elements, 1:2) integer array┆
0x86a60…86a7e 20 65 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 ┆ elementtype(0:max_elements) ┆
0x86a7e…86a84 (0x3ec,0x10d6)
0x86a84…86aa0 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 ┆ where <max_elements> is th┆
0x86aa0…86ac0 65 20 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 ┆e maximum number (in excess to t┆
0x86ac0…86ae0 68 65 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 ┆he keyword) of elements that i┆
0x86ae0…86afc 73 20 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 ┆s allowed by the specificati┆
0x86afc…86b02 (0x3ec,0x10d7)
0x86b02…86b20 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 ┆ons in array keywordlist. no┆
0x86b20…86b40 74 65 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 ┆te, that the packing of the spec┆
0x86b40…86b60 69 66 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 ┆ifications limits this number ┆
0x86b60…86b7a 74 6f 20 61 74 20 6d 6f 73 74 20 31 35 2e 0a 0a 20 20 74 68 65 20 6b 65 79 77 ┆to at most 15. the keyw┆
0x86b7a…86b80 (0x3ec,0x10d8)
0x86b80…86ba0 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 30 2c 31 29 20 61 ┆ord is stored in elements(0,1) a┆
0x86ba0…86bc0 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 65 6e 74 73 0a 20 ┆nd elements(0,2). the elements ┆
0x86bc0…86be0 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 6c 65 6d 65 6e 74 ┆ following are stored in element┆
0x86be0…86c00 73 28 69 2c 31 29 20 61 6e 64 20 65 6c 65 6d 65 6e 74 73 28 69 2c 32 29 00 00 00 00 00 00 00 00 ┆s(i,1) and elements(i,2) ┆
0x86c00…86c06 (1078,) (0x3ec,0x10d9)
0x86c06…86c20 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 ┆, i=1, 2, ... the type o┆
0x86c20…86c40 66 20 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 ┆f the keyword and the elements i┆
0x86c40…86c60 73 20 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 ┆s signalled in elementtype in ┆
0x86c60…86c7e 74 68 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 ┆the following way: elemen┆
0x86c7e…86c84 (0x3ec,0x10da)
0x86c84…86ca0 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 ┆ttype(i)= 0 no element pre┆
0x86ca0…86cc0 73 65 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 ┆sent = 1 tex┆
0x86cc0…86ce0 74 20 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 ┆t type element ┆
0x86ce0…86cfc 20 3d 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 ┆
0x86cfc…86d02 (0x3ec,0x10db)
0x86d02…86d20 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 ┆ if checkparam returns with ┆
0x86d20…86d40 6f 6b 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 ┆ok-indication, each element is o┆
0x86d40…86d60 66 20 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 ┆f a type allowed in the specif┆
0x86d60…86d7a 69 63 61 74 69 6f 6e 73 20 69 6e 20 6b 65 79 77 6f 72 64 6c 69 73 74 28 69 2c ┆ications in keywordlist(i,┆
0x86d7a…86d80 (0x3ec,0x10dc)
0x86d80…86da0 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 70 61 72 61 6d 20 ┆ 3). when called, checkparam ┆
0x86da0…86dc0 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 70 65 63 69 66 69 ┆will check the parameter specifi┆
0x86dc0…86de0 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 6f 3e 20 6d 75 73 ┆ed by <paramno>. <paramno> mus┆
0x86de0…86e00 74 20 63 6f 6e 74 61 69 6e 20 74 68 65 20 6e 75 6d 62 65 72 20 28 61 73 00 00 00 00 00 00 00 00 ┆t contain the number (as ┆
0x86e00…86e06 (1079,) (0x3ec,0x10dd)
0x86e06…86e20 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 ┆ defined for the procedu┆
0x86e20…86e40 72 65 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 ┆re system(4, ...) in the algol-m┆
0x86e40…86e60 61 6e 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 ┆anual) of the keyword in the p┆
0x86e60…86e7e 61 72 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 ┆arameter. the separator prec┆
0x86e7e…86e84 (0x3ec,0x10de)
0x86e84…86ea0 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 ┆eeding this element should b┆
0x86ea0…86ec0 65 20 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 ┆e a space. if checkparam is us┆
0x86ec0…86ee0 65 64 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 ┆ed to check all the parameters t┆
0x86ee0…86efc 68 65 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 ┆he first call of checkparam ┆
0x86efc…86f02 (0x3ec,0x10df)
0x86f02…86f20 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 ┆ will have <paramno>= 1 (no l┆
0x86f20…86f40 65 66 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 ┆eft side parameter) or <paramno>┆
0x86f40…86f60 3d 20 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 ┆= 2 (left side present). up┆
0x86f60…86f7a 6f 6e 20 72 65 74 75 72 6e 2c 20 74 68 65 20 73 75 63 63 65 73 73 20 6f 66 20 ┆on return, the success of ┆
0x86f7a…86f80 (0x3ec,0x10e0)
0x86f80…86fa0 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 63 61 74 65 64 20 ┆the parametercheck is indicated ┆
0x86fa0…86fc0 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 63 6b 70 61 72 61 ┆through the value of checkpara┆
0x86fc0…86fe0 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 20 6d 6f 72 65 20 ┆m: checkparam= 0 no more ┆
0x86fe0…87000 70 61 72 61 6d 65 74 65 72 73 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆parameters ┆
0x87000…87006 (1080,) (0x3ec,0x10e1)
0x87006…87020 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 ┆ > 0 parameter ok. keyw┆
0x87020…87040 6f 72 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 ┆ord and elements are stored as ┆
0x87040…87060 20 20 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 ┆ described abo┆
0x87060…8707e 76 65 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 ┆ve. <keyword_no> contains the ┆
0x8707e…87084 (0x3ec,0x10e2)
0x87084…870a0 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 ┆value of┆
0x870a0…870c0 20 74 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 ┆ the first index in keywordlist ┆
0x870c0…870e0 77 68 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 ┆where the ke┆
0x870e0…870fc 79 77 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 ┆yword was found. ┆
0x870fc…87102 (0x3ec,0x10e3)
0x87102…87120 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 ┆ the value of checkpa┆
0x87120…87140 72 61 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 ┆ram indicates the number of ┆
0x87140…87160 20 20 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 ┆ elements (includ┆
0x87160…8717a 69 6e 67 20 74 68 65 20 6b 65 79 77 6f 72 64 29 2e 0a 0a 20 20 20 20 20 20 20 ┆ing the keyword). ┆
0x8717a…87180 (0x3ec,0x10e4)
0x87180…871a0 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 6d 65 74 65 72 2e ┆ < 0 error in parameter.┆
0x871a0…871c0 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 6e 6f 3e 0a 20 20 ┆ the contents of <keyword_no> ┆
0x871c0…871e0 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 20 61 6e 64 20 65 ┆ elements and e┆
0x871e0…87200 6c 65 6d 65 6e 74 74 79 70 65 20 61 72 65 20 75 6e 64 65 66 69 6e 65 64 00 00 00 00 00 00 00 00 ┆lementtype are undefined ┆
0x87200…87206 (1081,) (0x3ec,0x10e5)
0x87206…87220 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 ┆. the ┆
0x87220…87240 61 62 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 ┆absolute value of checkparam ind┆
0x87240…87260 69 63 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 ┆icates the n┆
0x87260…8727e 75 6d 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 ┆umber of elements. note, th┆
0x8727e…87284 (0x3ec,0x10e6)
0x87284…872a0 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 ┆at when checkparam<>0, <para┆
0x872a0…872c0 6d 6e 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 ┆mno> may be adjusted to point ┆
0x872c0…872e0 74 6f 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 ┆to the next parameter by the sta┆
0x872e0…872fc 74 65 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 ┆tement: j:= checkparam(┆
0x872fc…87302 (0x3ec,0x10e7)
0x87302…87320 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 ┆paramno, ...) paramno:= pa┆
0x87320…87340 72 61 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 ┆ramno+ abs j if j<0 then ...┆
0x87340…87360 0a 0a 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 ┆ when an error is detected, c┆
0x87360…8737a 68 65 63 6b 70 61 72 61 6d 20 6d 61 79 20 70 72 69 6e 74 20 61 6e 20 65 72 72 ┆heckparam may print an err┆
0x8737a…87380 (0x3ec,0x10e8)
0x87380…873a0 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 70 75 74 2e 20 74 ┆ormessage on current output. t┆
0x873a0…873c0 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 6c 6c 6f 77 69 6e ┆he errormessage has the followin┆
0x873c0…873e0 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 65 3e 20 70 61 72 ┆g format: ***<progname> par┆
0x873e0…87400 61 6d 3a 20 3c 70 61 72 61 6d 65 74 65 72 3e 0a 0a 20 20 77 68 65 72 65 00 00 00 00 00 00 00 00 ┆am: <parameter> where ┆
0x87400…87406 (1082,) (0x3ec,0x10e9)
0x87406…87420 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 ┆ <progname> if the program┆
0x87420…87440 6e 61 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 ┆name found in the fp-parameters ┆
0x87440…87460 61 6e 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 ┆and <parameter> is the illegal┆
0x87460…8747e 20 70 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 ┆ parameter. the errormessage┆
0x8747e…87484 (0x3ec,0x10ea)
0x87484…874a0 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 ┆ will only be printed if <er┆
0x874a0…874c0 72 6f 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 ┆rorprint> is true. ; begin ┆
0x874c0…874e0 69 6e 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 ┆integer i, j, p, maxelems, ma┆
0x874e0…874fc 78 6b 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 ┆xkeywords; real array arr(┆
0x874fc…87502 (0x3ec,0x10eb)
0x87502…87520 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 ┆1:2); real r, null; ┆
0x87520…87540 20 6e 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 ┆ null:= 0.0 shift 48; i:= sys┆
0x87540…87560 74 65 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 ┆tem(3, max_keywords, keywordlist┆
0x87560…8757a 29 3b 0a 20 20 6d 61 78 6b 65 79 77 6f 72 64 73 3a 3d 20 28 6d 61 78 6b 65 79 ┆); maxkeywords:= (maxkey┆
0x8757a…87580 (0x3ec,0x10ec)
0x87580…875a0 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 33 2c 20 69 2c 20 ┆words-i+1)//3; system(3, i, ┆
0x875a0…875c0 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 73 74 65 70 20 28 ┆elementtype); for i:= i step (┆
0x875c0…875e0 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 28 69 29 3a 3d 20 ┆-1) until 1 do elementtype(i):= ┆
0x875e0…87600 30 3b 0a 0a 20 20 63 6f 6d 6d 65 6e 74 3a 20 73 74 61 72 74 20 73 63 61 00 00 00 00 00 00 00 00 ┆0; comment: start sca ┆
0x87600…87606 (1083,) (0x3ec,0x10ed)
0x87606…87620 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 ┆n of parameter; j:= syst┆
0x87620…87640 65 6d 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 ┆em(4, paramno, arr); if j=0 th┆
0x87640…87660 65 6e 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 ┆en begin comment: parameterlis┆
0x87660…8767e 74 20 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 ┆t empty); checkparam:= 0; ┆
0x8767e…87684 (0x3ec,0x10ee)
0x87684…876a0 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 ┆ goto return; end; c┆
0x876a0…876c0 6f 6d 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 ┆omment: search for keyword; i:┆
0x876c0…876e0 3d 20 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 ┆= 1; while keywordlist(i,1)<>n┆
0x876e0…876fc 75 6c 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 ┆ull and (keywordlist┆
0x876fc…87702 (0x3ec,0x10ef)
0x87702…87720 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 ┆(i,1)<>arr(1) or keyw┆
0x87720…87740 6f 72 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 ┆ordlist(i,2)<>arr(2)) do begin┆
0x87740…87760 0a 20 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 ┆ i:= i+1; if i>maxkeywor┆
0x87760…8777a 64 73 20 74 68 65 6e 20 67 6f 74 6f 20 70 61 72 61 6d 65 72 72 6f 72 3b 0a 20 ┆ds then goto paramerror; ┆
0x8777a…87780 (0x3ec,0x10f0)
0x87780…877a0 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 74 68 65 20 6b 65 ┆ end; comment: i holds the ke┆
0x877a0…877c0 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 20 69 3b 0a 20 20 ┆ywordnumber; keywordno:= i; ┆
0x877c0…877e0 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 20 33 29 3b 0a 0a ┆r:= keywordlist(keywordno, 3); ┆
0x877e0…87800 20 20 63 6f 6d 6d 65 6e 74 3a 20 66 69 6e 64 20 6d 61 78 69 6d 75 6d 20 00 00 00 00 00 00 00 00 ┆ comment: find maximum ┆
0x87800…87806 (1084,) (0x3ec,0x10f1)
0x87806…87820 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 ┆number of elements allowed┆
0x87820…87840 3b 0a 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 ┆; maxelems:= -1; while r<>nu┆
0x87840…87860 6c 6c 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 ┆ll do begin maxelems:= max┆
0x87860…8787e 65 6c 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 ┆elems+1; r:= r shift (-3);┆
0x8787e…87884 (0x3ec,0x10f2)
0x87884…878a0 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 ┆ end; comment: copy ele┆
0x878a0…878c0 6d 65 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 ┆ments description into array ele┆
0x878c0…878e0 6d 65 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 ┆menttype; r:= keywordlist(keyw┆
0x878e0…878fc 6f 72 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 ┆ordno, 3); for i:= maxelem┆
0x878fc…87902 (0x3ec,0x10f3)
0x87902…87920 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 ┆s step (-1) until 0 do begin┆
0x87920…87940 0a 20 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 ┆ elementtype(i):= r extract ┆
0x87940…87960 33 3b 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 ┆3; r:= r shift (-3); end; ┆
0x87960…8797a 0a 20 20 63 6f 6d 6d 65 6e 74 3a 20 6e 6f 77 20 73 63 61 6e 20 74 68 65 20 65 ┆ comment: now scan the e┆
0x8797a…87980 (0x3ec,0x10f4)
0x87980…879a0 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 63 68 65 63 6b 20 ┆lements in the parameter. check ┆
0x879a0…879c0 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 6f 72 65 20 74 68 ┆the type and store th┆
0x879c0…879e0 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 79 70 65 3b 0a 20 ┆e element and the elementtype; ┆
0x879e0…87a00 20 69 3a 3d 20 30 3b 0a 20 20 66 6f 72 20 6a 3a 3d 20 73 79 73 74 65 6d 00 00 00 00 00 00 00 00 ┆ i:= 0; for j:= system ┆
0x87a00…87a06 (1085,) (0x3ec,0x10f5)
0x87a06…87a20 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 ┆(4,paramno+i,arr) while (i┆
0x87a20…87a40 3d 30 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 ┆=0) or (j shift (-12)=8) do be┆
0x87a40…87a60 67 69 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 ┆gin if j extract 12=10 then ┆
0x87a60…87a7e 20 20 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┆
0x87a7e…87a84 (0x3ec,0x10f6)
0x87a84…87aa0 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 ┆ement; if elementtype(┆
0x87aa0…87ac0 69 29 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 ┆i) extract 1=0 then goto paramer┆
0x87ac0…87ae0 72 6f 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 ┆ror; elementtype(i):= 1; ┆
0x87ae0…87afc 20 20 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┆
0x87afc…87b02 (0x3ec,0x10f7)
0x87b02…87b20 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 ┆t: integertype element; ┆
0x87b20…87b40 69 66 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 ┆if elementtype(i) shift (-1) ext┆
0x87b40…87b60 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 72 3b 0a 20 ┆ract 1=0 then goto paramerror; ┆
0x87b60…87b7a 20 20 20 20 20 65 6c 65 6d 65 6e 74 74 79 70 65 28 69 29 3a 3d 20 32 3b 0a 20 ┆ elementtype(i):= 2; ┆
0x87b7a…87b80 (0x3ec,0x10f8)
0x87b80…87ba0 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 3d 20 61 72 72 28 ┆ end; elements(i,1):= arr(┆
0x87ba0…87bc0 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 72 28 32 29 3b 0a ┆1); elements(i,2):= arr(2); ┆
0x87bc0…87be0 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 6d 65 6e 74 3a 20 ┆ i:= i+1; end; comment: ┆
0x87be0…87c00 69 66 20 61 6e 79 20 65 6c 65 6d 65 6e 74 2d 73 70 65 63 69 66 69 63 61 00 00 00 00 00 00 00 00 ┆if any element-specifica ┆
0x87c00…87c06 (1086,) (0x3ec,0x10f9)
0x87c06…87c20 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 ┆tions are left unused, the┆
0x87c20…87c40 79 0a 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 ┆y should contain the ┆
0x87c40…87c60 6f 70 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 ┆optional-bit; checkparam:= i; ┆
0x87c60…87c7e 20 20 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┆
0x87c7e…87c84 (0x3ec,0x10fa)
0x87c84…87ca0 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 ┆ems do begin if elemen┆
0x87ca0…87cc0 74 74 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 ┆ttype(i) shift (-2) extract 1=0 ┆
0x87cc0…87ce0 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 20 65 6c 65 6d 65 6e ┆then goto paramerror; elemen┆
0x87ce0…87cfc 74 74 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 ┆ttype(i):= 0; end; comm┆
0x87cfc…87d02 (0x3ec,0x10fb)
0x87d02…87d20 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 ┆ent: parameter ok; goto retu┆
0x87d20…87d40 72 6e 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 ┆rn; paramerror: if print then┆
0x87d40…87d60 0a 20 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 ┆ begin comment: find programna┆
0x87d60…87d7a 6d 65 20 69 6e 20 70 61 72 61 6d 65 74 65 72 6c 69 73 74 3b 0a 20 20 20 20 69 ┆me in parameterlist; i┆
0x87d7a…87d80 (0x3ec,0x10fc)
0x87d80…87da0 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 28 2d 31 32 29 3c ┆f system(4, 1, arr) shift (-12)<┆
0x87da0…87dc0 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 2c 20 61 72 72 29 ┆>6 then system(4, 0, arr)┆
0x87dc0…87de0 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 2c 20 3c 3a 2a 2a ┆; i:= 1; write(out, <:**┆
0x87de0…87e00 2a 3a 3e 2c 20 73 74 72 69 6e 67 20 61 72 72 28 69 6e 63 72 65 61 73 65 00 00 00 00 00 00 00 00 ┆*:>, string arr(increase ┆
0x87e00…87e06 (1087,) (0x3ec,0x10fd)
0x87e06…87e20 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 ┆(i)), <: param: :>); end┆
0x87e20…87e40 3b 0a 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 ┆; comment: find actual number┆
0x87e40…87e60 20 6f 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 ┆ of elements in erroneous parame┆
0x87e60…87e7e 74 65 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 ┆ter and print eleme┆
0x87e7e…87e84 (0x3ec,0x10fe)
0x87e84…87ea0 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 ┆nts if specified; p:= 0; ┆
0x87ea0…87ec0 20 66 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 ┆ for j:= system(4, paramno+p, ar┆
0x87ec0…87ee0 72 29 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 ┆r) while (p=0) or ┆
0x87ee0…87efc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x87efc…87f02 (0x3ec,0x10ff)
0x87f02…87f20 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 ┆(j shift (-12)=8) do begin ┆
0x87f20…87f40 20 20 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 ┆ if print then begin ┆
0x87f40…87f60 20 69 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 ┆ if p<>0 then write(out, <:.:>);┆
0x87f60…87f7a 0a 20 20 20 20 20 20 69 66 20 6a 20 65 78 74 72 61 63 74 20 31 32 3d 31 30 20 ┆ if j extract 12=10 ┆
0x87f7a…87f80 (0x3ec,0x1100)
0x87f80…87fa0 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 3a 3d 20 31 3b 0a ┆then begin i:= 1; ┆
0x87fa0…87fc0 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 61 72 72 28 69 6e ┆ write(out, string arr(in┆
0x87fc0…87fe0 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 65 0a 20 20 20 20 ┆crease(i))); end else ┆
0x87fe0…88000 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 20 3c 3c 64 3e 2c 20 61 72 72 00 00 00 00 00 00 00 00 ┆ write(out, <<d>, arr ┆
0x88000…88006 (1088,) (0x3ec,0x1101)
0x88006…88020 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 ┆(1)); end; p:= p+1┆
0x88020…88040 3b 0a 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 ┆; end; if print then write(o┆
0x88040…88060 75 74 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 ┆ut, <:<10>:>); comment: p con┆
0x88060…8807e 74 61 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 ┆tains number of elements; ch┆
0x8807e…88084 (0x3ec,0x1102)
0x88084…880a0 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 ┆eckparam:= -p; return: end;┆
0x880a0…880c0 0a 65 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 ┆ end (head 1 bfilexfer=algol ┆
0x880c0…880e0 63 6f 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 ┆connect.no message.no if ok.yes┆
0x880e0…880fc 0a 20 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┆
0x880fc…88102 (0x3ec,0x1103)
0x88102…88120 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 ┆ed ok filexfer=move bfilexfe┆
0x88120…88140 72 0a 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 ┆r c=lookup filexfer ) if ok.┆
0x88140…88160 6e 6f 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 ┆no c=message filexfer error in┆
0x88160…8817a 20 63 6f 6d 70 69 6c 61 74 69 6f 6e 0a 29 0a 0a 62 65 67 69 6e 20 6d 65 73 73 ┆ compilation ) begin mess┆
0x8817a…88180 (0x3ec,0x1104)
0x88180…881a0 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 20 31 2e 30 31 20 ┆age: *** filexfer version: 1.01 ┆
0x881a0…881c0 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 20 20 20 20 20 20 ┆***; comment: *** ┆
0x881c0…881e0 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 73 73 61 67 ┆ ***; messag┆
0x881e0…88200 65 3a 20 2a 2a 2a 20 65 6c 69 2c 20 37 39 2e 30 34 2e 30 31 20 20 20 20 00 00 00 00 00 00 00 00 ┆e: *** eli, 79.04.01 ┆
0x88200…88206 (1089,) (0x3ec,0x1105)
0x88206…88220 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 ┆ ***; comment: progr┆
0x88220…88240 61 6d 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 ┆am constants and generation para┆
0x88240…88260 6d 65 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 ┆meters; integer ma┆
0x88260…8827e 78 5f 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 ┆x_queue_specs, no_of_queue_spe┆
0x8827e…88284 (0x3ec,0x1106)
0x88284…882a0 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 ┆cs, first_tkrit, ┆
0x882a0…882c0 20 20 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 ┆ mes_lgt, ans_lgt, def_t┆
0x882c0…882e0 72 61 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 ┆ransport_code, wait_code, ┆
0x882e0…882fc 20 20 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; ┆
0x882fc…88302 (0x3ec,0x1107)
0x88302…88320 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 ┆integer field treply, tn┆
0x88320…88340 6f 2c 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 ┆o, intfi, tsenderror, treceiveer┆
0x88340…88360 72 6f 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 ┆ror; integer array field tkrit; ┆
0x88360…8837a 72 65 61 6c 20 61 72 72 61 79 20 66 69 65 6c 64 20 20 20 20 74 73 65 6e 64 2c ┆real array field tsend,┆
0x8837a…88380 (0x3ec,0x1108)
0x88380…883a0 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 65 75 65 2c 20 67 ┆ treceiv, tname, tuser, queue, g┆
0x883a0…883c0 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 61 6e 79 5f 65 72 ┆roup; boolean any_er┆
0x883c0…883e0 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 65 3b 0a 72 65 61 ┆rors, verify, wait, release; rea┆
0x883e0…88400 6c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 72 6f 67 6e 61 6d 00 00 00 00 00 00 00 00 ┆l prognam ┆
0x88400…88406 (1090,) (0x3ec,0x1109)
0x88406…88420 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 ┆e, null; comment: program┆
0x88420…88440 20 67 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 ┆ generation parameters; max_que┆
0x88440…88460 75 65 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 ┆ue_specs:= 1; comment: program ┆
0x88460…8847e 63 6f 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 ┆constants; first_tkrit:= 58; ┆
0x8847e…88484 (0x3ec,0x110a)
0x88484…884a0 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 ┆treply:= intfi:= 2; tno:= 4;┆
0x884a0…884c0 0a 74 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 ┆ tname:= 4; tuser:= 16; tsend:= ┆
0x884c0…884e0 34 30 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 ┆40; treceiv:= 50; group:= 2; que┆
0x884e0…884fc 75 65 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 ┆ue:= 10; tkrit:= first_tkrit┆
0x884fc…88502 (0x3ec,0x110b)
0x88502…88520 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 ┆; tsenderror:= 16; treceiveerr┆
0x88520…88540 6f 72 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 ┆or:= 20; progname:= real <:***f┆
0x88540…88560 69 6c 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 ┆ilexfer :>; any_errors:= false; ┆
0x88560…8857a 64 65 66 5f 74 72 61 6e 73 70 6f 72 74 5f 63 6f 64 65 3a 3d 20 32 3b 0a 77 61 ┆def_transport_code:= 2; wa┆
0x8857a…88580 (0x3ec,0x110c)
0x88580…885a0 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 3d 20 38 3b 0a 0a ┆it_code:= 6; release_code:= 8; ┆
0x885a0…885c0 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 70 65 63 73 3b 0a ┆mes_lgt:= 30+9*max_queue_specs; ┆
0x885c0…885e0 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 68 69 66 74 20 34 ┆ans_lgt:= 26; null:= 0.0 shift 4┆
0x885e0…88600 38 3b 0a 76 65 72 69 66 79 3a 3d 20 66 61 6c 73 65 3b 0a 77 61 69 74 3a 00 00 00 00 00 00 00 00 ┆8; verify:= false; wait: ┆
0x88600…88606 (1091,) (0x3ec,0x110d)
0x88606…88620 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 ┆= false; release:= true; ┆
0x88620…88640 62 65 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 ┆begin comment: declaration of wo┆
0x88640…88660 72 6b 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 ┆rkspace; integer array mess(1:┆
0x88660…8867e 6d 65 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 ┆mes_lgt), answer(1:ans_lgt); ┆
0x8867e…88684 (0x3ec,0x110e)
0x88684…886a0 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 ┆ integer i, j; real ┆
0x886a0…886c0 61 72 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 ┆array resultentry(1:2); pr┆
0x886c0…886e0 6f 63 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 ┆ocedure entry(id); value ┆
0x886e0…886fc 20 20 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 ┆
0x886fc…88702 (0x3ec,0x110f)
0x88702…88720 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 ┆id ; begin zone z(1,1,st┆
0x88720…88740 64 65 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 ┆derror); integer array tail(┆
0x88740…88760 31 3a 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 ┆1:10); i:= 1; open(z, 0┆
0x88760…8877a 2c 20 73 74 72 69 6e 67 20 72 65 73 75 6c 74 65 6e 74 72 79 28 69 6e 63 72 65 ┆, string resultentry(incre┆
0x8877a…88780 (0x3ec,0x1110)
0x88780…887a0 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 20 73 74 65 70 20 ┆ase(i)), 0); for i:= 2 step ┆
0x887a0…887c0 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 0a 20 20 20 20 74 ┆1 until 10 do tail(i):= 0; t┆
0x887c0…887e0 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 61 69 6c 28 37 29 ┆ail(1):= 1 shift 23; tail(7)┆
0x887e0…88800 3a 3d 20 69 64 3b 0a 0a 20 20 20 20 6a 3a 3d 20 6d 6f 6e 69 74 6f 72 28 00 00 00 00 00 00 00 00 ┆:= id; j:= monitor( ┆
0x88800…88806 (1092,) (0x3ec,0x1111)
0x88806…88820 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 ┆40, z, i, tail); if j<┆
0x88820…88840 3e 30 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 ┆>0 then begin comment: entry┆
0x88840…88860 20 61 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 ┆ already exists or other creatio┆
0x88860…8887e 6e 20 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 ┆n error; i:= 1; wr┆
0x8887e…88884 (0x3ec,0x1112)
0x88884…888a0 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 ┆ite(out, string progname, <:┆
0x888a0…888c0 63 72 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 ┆create :>, stri┆
0x888c0…888e0 6e 67 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 ┆ng resultentry(increase(i))); ┆
0x888e0…888fc 20 20 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┆
0x888fc…88902 (0x3ec,0x1113)
0x88902…88920 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 ┆te(out, <: entry already exist┆
0x88920…88940 73 3a 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 ┆s:>) else if j=4 then ┆
0x88940…88960 20 20 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 ┆ write(out, <: claims exceede┆
0x88960…8897a 64 3a 3e 29 20 65 6c 73 65 0a 20 20 20 20 20 20 69 66 20 6a 3d 35 20 74 68 65 ┆d:>) else if j=5 the┆
0x8897a…88980 (0x3ec,0x1114)
0x88980…889a0 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 74 61 6c 6f 67 20 ┆n write(out, <: catalog ┆
0x889a0…889c0 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 20 77 72 69 74 65 ┆base illegal:>) else write┆
0x889c0…889e0 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 20 20 20 20 20 77 ┆(out, <: result: :>, j); w┆
0x889e0…88a00 72 69 74 65 28 6f 75 74 2c 20 3c 3a 3c 31 30 3e 3a 3e 29 3b 0a 20 20 20 00 00 00 00 00 00 00 00 ┆rite(out, <:<10>:>); ┆
0x88a00…88a06 (1093,) (0x3ec,0x1115)
0x88a06…88a20 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 ┆ any_errors:= true; ┆
0x88a20…88a40 20 20 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 ┆ goto end_program; end; ┆
0x88a40…88a60 20 20 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 ┆ if id=0 then monitor(48┆
0x88a60…88a7e 2c 20 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┆
0x88a7e…88a84 (0x3ec,0x1116)
0x88a84…88aa0 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 ┆ entry; comment: initiali┆
0x88aa0…88ac0 7a 61 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 ┆zation; no_of_queue_specs:= 0┆
0x88ac0…88ae0 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 6d 65 73 5f 6c ┆; for i:= 1 step 1 until mes_l┆
0x88ae0…88afc 67 74 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 ┆gt do mess(i):= -1; for i:┆
0x88afc…88b02 (0x3ec,0x1117)
0x88b02…88b20 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 ┆= 1 step 1 until ans_lgt do an┆
0x88b20…88b40 73 77 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 ┆swer(i):= -1; begin comment: ┆
0x88b40…88b60 73 63 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 ┆scan and check of parameterlist;┆
0x88b60…88b7a 0a 20 20 20 20 72 65 61 6c 20 61 72 72 61 79 20 20 20 20 6b 65 79 77 6f 72 64 ┆ real array keyword┆
0x88b7a…88b80 (0x3ec,0x1118)
0x88b80…88ba0 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 3a 32 2c 20 31 3a ┆list(1:7, 1:3), elements(0:2, 1:┆
0x88ba0…88bc0 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 31 3a 32 29 3b 0a ┆2), arr(1:2); ┆
0x88bc0…88be0 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 79 70 65 28 30 3a ┆ integer array elementtype(0:┆
0x88be0…88c00 32 29 3b 0a 20 20 20 20 69 6e 74 65 67 65 72 20 20 20 20 20 20 20 74 65 00 00 00 00 00 00 00 00 ┆2); integer te ┆
0x88c00…88c06 (1094,) (0x3ec,0x1119)
0x88c06…88c20 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 ┆xt, int, keywordno, param,┆
0x88c20…88c40 20 69 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 ┆ i, j, p, iparam, oparam; p┆
0x88c40…88c60 72 6f 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 ┆rocedure error(paramno, text); ┆
0x88c60…88c7e 20 20 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; ┆
0x88c7e…88c84 (0x3ec,0x111a)
0x88c84…88ca0 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 ┆ string t┆
0x88ca0…88cc0 65 78 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 ┆ext; begin comment: prints a┆
0x88cc0…88ce0 6e 20 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 ┆n error mess on current output. ┆
0x88ce0…88cfc 20 20 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┆
0x88cfc…88d02 (0x3ec,0x111b)
0x88d02…88d20 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 ┆o=0 only the text is printed. ┆
0x88d20…88d40 20 20 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 ┆ otherwise the┆
0x88d40…88d60 20 74 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 ┆ text followed by <:param:> is ┆
0x88d60…88d7a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 72 69 6e 74 65 64 20 ┆ printed ┆
0x88d7a…88d80 (0x3ec,0x111c)
0x88d80…88da0 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 64 20 62 79 20 70 ┆and the parameter specified by p┆
0x88da0…88dc0 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 69 73 20 70 72 69 ┆aramno is pri┆
0x88dc0…88de0 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 63 65 65 64 65 64 ┆nted until a parameter preceeded┆
0x88de0…88e00 20 62 79 20 3c 73 70 3e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ by <sp> ┆
0x88e00…88e06 (1095,) (0x3ec,0x111d)
0x88e06…88e20 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 ┆ is met. ┆
0x88e20…88e40 20 20 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 ┆ if paramno=0 the program te┆
0x88e40…88e60 72 6d 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 ┆rminates; write(out, strin┆
0x88e60…88e7e 67 20 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 ┆g progname, text); if pa┆
0x88e7e…88e84 (0x3ec,0x111e)
0x88e84…88ea0 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 ┆ramno=0 then begin ┆
0x88ea0…88ec0 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>:>); ┆
0x88ec0…88ee0 20 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 65 6e 64 3b ┆ goto end_program; end;┆
0x88ee0…88efc 0a 20 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┆
0x88efc…88f02 (0x3ec,0x111f)
0x88f02…88f20 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 ┆xt=real <::> then <:param: :> ┆
0x88f20…88f40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x88f40…88f60 20 20 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 ┆ else <:: :>); p:= ┆
0x88f60…88f7a 70 61 72 61 6d 6e 6f 3b 0a 20 20 20 20 20 20 66 6f 72 20 6a 3a 3d 20 73 79 73 ┆paramno; for j:= sys┆
0x88f7a…88f80 (0x3ec,0x1120)
0x88f80…88fa0 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 20 73 68 69 66 74 ┆tem(4,paramno,arr) while j shift┆
0x88fa0…88fc0 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 20 20 20 20 20 20 ┆(-12)=8 or ┆
0x88fc0…88fe0 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 61 72 61 6d 6e 6f ┆ p=paramno┆
0x88fe0…89000 20 64 6f 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ do begin ┆
0x89000…89006 (1096,) (0x3ec,0x1121)
0x89006…89020 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 ┆i:= 1; if j shift ┆
0x89020…89040 28 2d 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 ┆(-12)=8 then write(out, <:.:>); ┆
0x89040…89060 20 20 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 ┆ if j extract 12=4 then w┆
0x89060…8907e 72 69 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 ┆rite(out, <<d>, arr(1)) ┆
0x8907e…89084 (0x3ec,0x1122)
0x89084…890a0 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 ┆ else wri┆
0x890a0…890c0 74 65 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 ┆te(out, string arr(increase(i)))┆
0x890c0…890e0 3b 0a 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 ┆; paramno:= paramno+1; ┆
0x890e0…890fc 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 20 3c ┆ end; write(out, <┆
0x890fc…89102 (0x3ec,0x1123)
0x89102…89120 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 ┆:<10>:>); any_errors:= t┆
0x89120…89140 72 75 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 ┆rue; goto scan_params; ┆
0x89140…89160 20 20 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 ┆ end; text:= 1; int:=┆
0x89160…8917a 20 32 3b 0a 0a 20 20 20 20 6b 65 79 77 6f 72 64 6c 69 73 74 28 31 2c 31 29 3a ┆ 2; keywordlist(1,1):┆
0x8917a…89180 (0x3ec,0x1124)
0x89180…891a0 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 20 20 20 20 6b 65 ┆= real <:verif:> add 121; ke┆
0x891a0…891c0 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 20 6b 65 79 77 6f ┆ywordlist(1,2):= null; keywo┆
0x891c0…891e0 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 74 20 73 68 69 66 ┆rdlist(1,3):= null add text shif┆
0x891e0…89200 74 20 33 20 61 64 64 20 74 65 78 74 3b 0a 0a 20 20 20 20 6b 65 79 77 6f 00 00 00 00 00 00 00 00 ┆t 3 add text; keywo ┆
0x89200…89206 (1097,) (0x3ec,0x1125)
0x89206…89220 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 ┆rdlist(2,1):= real <:name:┆
0x89220…89240 3e 3b 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 ┆>; keywordlist(2,2):= null; ┆
0x89240…89260 20 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 ┆ keywordlist(2,3):= null add ┆
0x89260…8927e 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 20 20 20 6b 65 ┆text shift 3 add text; ke┆
0x8927e…89284 (0x3ec,0x1126)
0x89284…892a0 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 ┆ywordlist(3,1):= real <:queu┆
0x892a0…892c0 65 3a 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 ┆e:>; keywordlist(3,2):= null┆
0x892c0…892e0 3b 0a 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 ┆; keywordlist(3,3):= null ad┆
0x892e0…892fc 64 20 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 ┆d text shift 3 add text shif┆
0x892fc…89302 (0x3ec,0x1127)
0x89302…89320 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 ┆t 3 add text; keywordlist┆
0x89320…89340 28 34 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 ┆(4,1):= real <:relea:> add 115; ┆
0x89340…89360 20 20 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 ┆ keywordlist(4,2):= real <:e:┆
0x89360…8937a 3e 3b 0a 20 20 20 20 6b 65 79 77 6f 72 64 6c 69 73 74 28 34 2c 33 29 3a 3d 20 ┆>; keywordlist(4,3):= ┆
0x8937a…89380 (0x3ec,0x1128)
0x89380…893a0 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 74 65 78 74 3b 0a ┆null add text shift 3 add text; ┆
0x893a0…893c0 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 61 6c 20 3c 3a 75 ┆ keywordlist(5,1):= real <:u┆
0x893c0…893e0 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 29 3a 3d 20 6e 75 ┆ser:>; keywordlist(5,2):= nu┆
0x893e0…89400 6c 6c 3b 0a 20 20 20 20 6b 65 79 77 6f 72 64 6c 69 73 74 28 35 2c 33 29 00 00 00 00 00 00 00 00 ┆ll; keywordlist(5,3) ┆
0x89400…89406 (1098,) (0x3ec,0x1129)
0x89406…89420 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 ┆:= null add text shift 3 a┆
0x89420…89440 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 36 2c 31 29 3a 3d ┆dd text; keywordlist(6,1):=┆
0x89440…89460 20 72 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 ┆ real <:wait:>; keywordlist(┆
0x89460…8947e 36 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 36 ┆6,2):= null; keywordlist(6┆
0x8947e…89484 (0x3ec,0x112a)
0x89484…894a0 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 ┆
0x894a0…894c0 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 37 2c 31 29 3a ┆add text; keywordlist(7,1):┆
0x894c0…894e0 3d 20 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 ┆= keywordlist(7,2):= null; k┆
0x894e0…894fc 65 79 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 ┆eywordlist(7,3):= null add t┆
0x894fc…89502 (0x3ec,0x112b)
0x89502…89520 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 ┆ext; comment: check left ┆
0x89520…89540 73 69 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 ┆side; resultentry(1):= null;┆
0x89540…89560 0a 20 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 ┆ param:= iparam:= 1; opa┆
0x89560…8957a 72 61 6d 3a 3d 20 32 3b 0a 20 20 20 20 69 66 20 73 79 73 74 65 6d 28 34 2c 31 ┆ram:= 2; if system(4,1┆
0x8957a…89580 (0x3ec,0x112c)
0x89580…895a0 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 20 20 20 62 65 67 ┆,arr) shift (-12)=6 then beg┆
0x895a0…895c0 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 65 6e 74 3b 0a 20 ┆in comment: left side present; ┆
0x895c0…895e0 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 20 20 20 20 20 6f ┆ param:= iparam:= 2; o┆
0x895e0…89600 70 61 72 61 6d 3a 3d 20 33 3b 0a 20 20 20 20 20 20 73 79 73 74 65 6d 28 00 00 00 00 00 00 00 00 ┆param:= 3; system( ┆
0x89600…89606 (1099,) (0x3ec,0x112d)
0x89606…89620 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 ┆4,0,resultentry); end;┆
0x89620…89640 0a 0a 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 ┆ scan_params: for j:= chec┆
0x89640…89660 6b 70 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 ┆kparam(param, keywordno, keyword┆
0x89660…8967e 6c 69 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 ┆list, e┆
0x8967e…89684 (0x3ec,0x112e)
0x89684…896a0 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 ┆lements, elementtype, false)┆
0x896a0…896c0 20 77 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 ┆ while j<>0 do begin comment┆
0x896c0…896e0 3a 20 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 ┆: keywordno holds the keywordnum┆
0x896e0…896fc 62 65 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 ┆ber; if j<0 then error┆
0x896fc…89702 (0x3ec,0x112f)
0x89702…89720 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 ┆(param, <::>); case key┆
0x89720…89740 77 6f 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 ┆wordno of begin be┆
0x89740…89760 67 69 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 ┆gin <* 1: verify*> if ┆
0x89760…8977a 65 6c 65 6d 65 6e 74 73 28 31 2c 31 29 3d 72 65 61 6c 20 3c 3a 79 65 73 3a 3e ┆elements(1,1)=real <:yes:>┆
0x8977a…89780 (0x3ec,0x1130)
0x89780…897a0 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 20 20 20 20 20 20 ┆ then verify:= true else ┆
0x897a0…897c0 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 3a 6e 6f 3a 3e 20 ┆ if elements(1,1)=real <:no:> ┆
0x897c0…897e0 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 20 20 20 20 20 20 ┆ then verify:= false else ┆
0x897e0…89800 20 20 20 20 65 72 72 6f 72 28 70 61 72 61 6d 2c 20 3c 3a 3a 3e 29 3b 0a 00 00 00 00 00 00 00 00 ┆ error(param, <::>); ┆
0x89800…89806 (1100,) (0x3ec,0x1131)
0x89806…89820 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 ┆ end; begi┆
0x89820…89840 6e 20 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 ┆n <* 2: name*> if mess┆
0x89840…89860 2e 74 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 ┆.tname.intfi<>-1 then ┆
0x89860…8987e 20 20 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┆
0x8987e…89884 (0x3ec,0x1132)
0x89884…898a0 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 ┆me double defined:>); ┆
0x898a0…898c0 20 20 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 ┆ mess.tname(1):= elements(1,1┆
0x898c0…898e0 29 3b 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 ┆); mess.tname(2):= ele┆
0x898e0…898fc 6d 65 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 ┆ments(1,2); end; ┆
0x898fc…89902 (0x3ec,0x1133)
0x89902…89920 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 ┆ begin <* 3: queue*> ┆
0x89920…89940 20 20 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 ┆ if no_of_queue_specs=max_q┆
0x89940…89960 75 65 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 ┆ueue_specs then err┆
0x89960…8997a 6f 72 28 70 61 72 61 6d 2c 20 3c 3a 6e 6f 20 72 6f 6f 6d 20 66 6f 72 20 71 75 ┆or(param, <:no room for qu┆
0x8997a…89980 (0x3ec,0x1134)
0x89980…899a0 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 20 20 20 20 20 20 ┆eue specification:>); ┆
0x899a0…899c0 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 71 75 65 75 65 5f ┆no_of_queue_specs:= no_of_queue_┆
0x899c0…899e0 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 72 69 74 28 31 29 ┆specs+1; mess.tkrit(1)┆
0x899e0…89a00 3a 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 20 20 6d 65 73 73 2e 74 6b 72 00 00 00 00 00 00 00 00 ┆:= 0; mess.tkr ┆
0x89a00…89a06 (1101,) (0x3ec,0x1135)
0x89a06…89a20 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 ┆it.group(1):= elements(1,1┆
0x89a20…89a40 29 3b 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 ┆); mess.tkrit.group(2)┆
0x89a40…89a60 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 20 20 6d 65 73 73 ┆:= elements(1,2); mess┆
0x89a60…89a7e 2e 74 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 ┆.tkrit.queue(1):= elements(2,1┆
0x89a7e…89a84 (0x3ec,0x1136)
0x89a84…89aa0 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 ┆); mess.tkrit.queu┆
0x89aa0…89ac0 65 28 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 ┆e(2):= elements(2,2); ┆
0x89ac0…89ae0 74 6b 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 ┆tkrit:= tkrit+18; end; ┆
0x89ae0…89afc 20 20 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*┆
0x89afc…89b02 (0x3ec,0x1137)
0x89b02…89b20 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 ┆> if elements(1,1)= ┆
0x89b20…89b40 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 74 72 75 65 ┆real <:yes:> then release:= true┆
0x89b40…89b60 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)┆
0x89b60…89b7a 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 ┆= real <:no:> then releas┆
0x89b7a…89b80 (0x3ec,0x1138)
0x89b80…89ba0 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 72 72 6f 72 28 70 ┆e:= false else error(p┆
0x89ba0…89bc0 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 20 20 20 20 20 20 ┆aram, <::>); end; ┆
0x89bc0…89be0 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 20 20 20 20 20 69 ┆ begin <* 5: user*> i┆
0x89be0…89c00 66 20 6d 65 73 73 2e 74 75 73 65 72 2e 69 6e 74 66 69 3c 3e 2d 31 20 74 00 00 00 00 00 00 00 00 ┆f mess.tuser.intfi<>-1 t ┆
0x89c00…89c06 (1102,) (0x3ec,0x1139)
0x89c06…89c20 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 ┆hen error(par┆
0x89c20…89c40 61 6d 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 ┆am,<:user name double defined:>)┆
0x89c40…89c60 3b 0a 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 ┆; mess.tuser(1):= elem┆
0x89c60…89c7e 65 6e 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 ┆ents(1,1); mess.tuse┆
0x89c7e…89c84 (0x3ec,0x113a)
0x89c84…89ca0 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 ┆r(2):= elements(1,2); ┆
0x89ca0…89cc0 20 20 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 ┆ end; begin <* 6: wait┆
0x89cc0…89ce0 2a 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 ┆*> if elements(1,1)= r┆
0x89ce0…89cfc 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 ┆eal <:yes:> then wait:= true┆
0x89cfc…89d02 (0x3ec,0x113b)
0x89d02…89d20 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 ┆ else if elements(1,┆
0x89d20…89d40 31 29 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 ┆1)= real <:no:> then wait:= fals┆
0x89d40…89d60 65 20 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 ┆e else error(param, <:┆
0x89d60…89d7a 3a 3e 29 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 0a 20 20 20 20 20 20 20 ┆:>); end; ┆
0x89d7a…89d80 (0x3ec,0x113c)
0x89d80…89da0 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 63 65 6e 61 6d 65 ┆ begin <* 7: area- or devicename┆
0x89da0…89dc0 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 61 6d 20 74 68 65 ┆*> if param=iparam the┆
0x89dc0…89de0 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 20 73 65 6e 64 65 ┆n begin comment: sende┆
0x89de0…89e00 72 6e 61 6d 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 6d 65 73 73 2e 00 00 00 00 00 00 00 00 ┆rname; mess. ┆
0x89e00…89e06 (1103,) (0x3ec,0x113d)
0x89e06…89e20 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 ┆tsend(1):= elements(0,1); ┆
0x89e20…89e40 20 20 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 ┆ mess.tsend(2):= elem┆
0x89e40…89e60 65 6e 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 ┆ents(0,2); end else ┆
0x89e60…89e7e 20 20 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 ┆
0x89e7e…89e84 (0x3ec,0x113e)
0x89e84…89ea0 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 ┆ begin comment: rece┆
0x89ea0…89ec0 69 76 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 ┆ivername; mess.trece┆
0x89ec0…89ee0 69 76 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 ┆iv(1):= elements(0,1); ┆
0x89ee0…89efc 20 20 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┆
0x89efc…89f02 (0x3ec,0x113f)
0x89f02…89f20 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 ┆s(0,2); end else ┆
0x89f20…89f40 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 20 20 20 20 20 ┆ error(param, <::>); ┆
0x89f40…89f60 20 20 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 ┆ end; end case; p┆
0x89f60…89f7a 61 72 61 6d 3a 3d 20 70 61 72 61 6d 2b 6a 3b 0a 20 20 20 20 65 6e 64 20 66 6f ┆aram:= param+j; end fo┆
0x89f7a…89f80 (0x3ec,0x1140)
0x89f80…89fa0 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 73 20 74 68 65 6e ┆r while; if any_errors then┆
0x89fa0…89fc0 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 6d 6d 65 6e 74 3a ┆ goto end_program; comment:┆
0x89fc0…89fe0 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 20 20 20 20 20 20 ┆ end of parameterscan. ┆
0x89fe0…8a000 20 20 20 20 63 68 65 63 6b 20 74 68 61 74 20 61 74 20 6c 65 61 73 74 20 00 00 00 00 00 00 00 00 ┆ check that at least ┆
0x8a000…8a006 (1104,) (0x3ec,0x1141)
0x8a006…8a020 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 ┆sender- and receiver name ┆
0x8a020…8a040 68 61 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 ┆has been specified;┆
0x8a040…8a060 0a 20 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 ┆ if mess.tsend.intfi=-1 then┆
0x8a060…8a07e 20 65 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 ┆ error(0, <:sender name missin┆
0x8a07e…8a084 (0x3ec,0x1142)
0x8a084…8a0a0 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 ┆g:>); if mess.treceiv.in┆
0x8a0a0…8a0c0 74 66 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 ┆tfi=-1 then error(0, <:receiver ┆
0x8a0c0…8a0e0 6e 61 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 ┆name missing:>); if mess.tna┆
0x8a0e0…8a0fc 6d 65 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 ┆me.intfi=-1 then begin c┆
0x8a0fc…8a102 (0x3ec,0x1143)
0x8a102…8a120 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 ┆omment use null-name; me┆
0x8a120…8a140 73 73 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 ┆ss.tname(1):= mess.tname(2):= nu┆
0x8a140…8a160 6c 6c 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 ┆ll; end; if mess.tuser.i┆
0x8a160…8a17a 6e 74 66 69 3d 2d 31 20 74 68 65 6e 0a 20 20 20 20 62 65 67 69 6e 20 63 6f 6d ┆ntfi=-1 then begin com┆
0x8a17a…8a180 (0x3ec,0x1144)
0x8a180…8a1a0 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 20 20 20 6c 6f 6e ┆ment get process name; lon┆
0x8a1a0…8a1c0 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 73 74 65 6d 28 36 ┆g array arr(1:2); system(6┆
0x8a1c0…8a1e0 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 2e 74 75 73 65 72 ┆,i,arr); tofrom(mess.tuser┆
0x8a1e0…8a200 2c 61 72 72 2c 38 29 3b 0a 20 20 20 20 65 6e 64 3b 0a 0a 20 20 20 20 69 00 00 00 00 00 00 00 00 ┆,arr,8); end; i ┆
0x8a200…8a206 (1105,) (0x3ec,0x1145)
0x8a206…8a220 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 ┆f resultentry(1)<>null the┆
0x8a220…8a240 6e 20 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 ┆n entry(0); end parameter blo┆
0x8a240…8a260 63 6b 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 ┆ck; comment: send transport d┆
0x8a260…8a27e 65 66 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 ┆efinition mess to primo; i:┆
0x8a27e…8a284 (0x3ec,0x1146)
0x8a284…8a2a0 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 ┆= transfer(def_transport_cod┆
0x8a2a0…8a2c0 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┆
0x8a2c0…8a2e0 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; ┆
0x8a2e0…8a2fc 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 ┆ if i<>0 then begin commen┆
0x8a2fc…8a302 (0x3ec,0x1147)
0x8a302…8a320 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 ┆t: error in communication with┆
0x8a320…8a340 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 ┆
0x8a340…8a360 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┆
0x8a360…8a37a 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 ┆er should not possible ┆
0x8a37a…8a380 (0x3ec,0x1148)
0x8a380…8a3a0 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 0a 20 20 20 20 61 ┆ could occur; a┆
0x8a3a0…8a3c0 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,┆
0x8a3c0…8a3e0 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┆
0x8a3e0…8a400 69 63 61 74 69 6f 6e 20 65 72 72 6f 72 3a 20 3a 3e 29 3b 0a 20 20 20 20 00 00 00 00 00 00 00 00 ┆ication error: :>); ┆
0x8a400…8a406 (1106,) (0x3ec,0x1149)
0x8a406…8a420 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 ┆if i>1 and i<7 then wr┆
0x8a420…8a440 69 74 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 ┆ite(out, case i-1 of (<:rejected┆
0x8a440…8a460 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 20 ┆:>, ┆
0x8a460…8a47e 3c 3a 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:>, ┆
0x8a47e…8a484 (0x3ec,0x114a)
0x8a484…8a4a0 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 ┆ <:malfunct┆
0x8a4a0…8a4c0 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:>, ┆
0x8a4c0…8a4e0 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:>, ┆
0x8a4e0…8a4fc 20 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 ┆ <:m┆
0x8a4fc…8a502 (0x3ec,0x114b)
0x8a502…8a520 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 ┆ess buffer claim exceeded:>), ┆
0x8a520…8a540 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┆
0x8a540…8a560 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┆
0x8a560…8a57a 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 ┆sult: :>, i, <:<10>:>); ┆
0x8a57a…8a580 (0x3ec,0x114c)
0x8a580…8a5a0 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 65 72 72 6f 72 20 ┆end else begin comment: error ┆
0x8a5a0…8a5c0 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 69 6d 6f 20 69 74 ┆returned in answer from primo it┆
0x8a5c0…8a5e0 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 65 3b 0a 20 20 20 ┆self; any_errors:= true; ┆
0x8a5e0…8a600 20 69 3a 3d 20 61 6e 73 77 65 72 2e 74 72 65 70 6c 79 3b 0a 20 20 20 20 00 00 00 00 00 00 00 00 ┆ i:= answer.treply; ┆
0x8a600…8a606 (1107,) (0x3ec,0x114d)
0x8a606…8a620 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 ┆if i<>0 then begin co┆
0x8a620…8a640 6d 6d 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 ┆mment: transport definition erro┆
0x8a640…8a660 72 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 ┆r; write(out, string progn┆
0x8a660…8a67e 61 6d 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 ┆ame, <:primo reply error: :>);┆
0x8a67e…8a684 (0x3ec,0x114e)
0x8a684…8a6a0 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 ┆ if i=3 then wri┆
0x8a6a0…8a6c0 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 65 73 3a 3e 29 0a 0a ┆te(out, <:missing resources:>) ┆
0x8a6c0…8a6e0 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 72 20 69 3d 36 20 74 ┆ else if i=5 or i=6 t┆
0x8a6e0…8a6fc 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 65 72 72 ┆hen begin comment: err┆
0x8a6fc…8a702 (0x3ec,0x114f)
0x8a702…8a720 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 ┆or in sender/receiver device s┆
0x8a720…8a740 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 69 3d 35 20 74 68 65 ┆pecification; if i=5 the┆
0x8a740…8a760 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 77 72 69 74 65 28 ┆n begin write(┆
0x8a760…8a77a 6f 75 74 2c 20 3c 3a 73 65 6e 64 65 72 20 3a 3e 29 3b 0a 20 20 20 20 20 20 20 ┆out, <:sender :>); ┆
0x8a77a…8a780 (0x3ec,0x1150)
0x8a780…8a7a0 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 20 20 20 20 20 20 ┆ j:= answer.tsenderror; ┆
0x8a7a0…8a7c0 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 20 20 20 20 20 20 ┆ end else begin ┆
0x8a7c0…8a7e0 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 3e 29 3b 0a 20 20 ┆ write(out, <:receiver :>); ┆
0x8a7e0…8a800 20 20 20 20 20 20 20 20 6a 3a 3d 20 61 6e 73 77 65 72 2e 74 72 65 63 65 00 00 00 00 00 00 00 00 ┆ j:= answer.trece ┆
0x8a800…8a806 (1108,) (0x3ec,0x1151)
0x8a806…8a820 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 ┆iveerror; end; ┆
0x8a820…8a840 20 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 ┆ if j=1 then write(out, <:en┆
0x8a840…8a860 74 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 ┆try troubles:>) else ┆
0x8a860…8a87e 20 20 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, <:┆
0x8a87e…8a884 (0x3ec,0x1152)
0x8a884…8a8a0 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 ┆device troubles:>) e┆
0x8a8a0…8a8c0 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 65 72 72 6f 72 63 6f ┆lse write(out, <:errorco┆
0x8a8c0…8a8e0 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 0a 20 20 20 20 20 20 ┆de :>, j); end else ┆
0x8a8e0…8a8fc 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 70 6c ┆write(out, <:unexpected repl┆
0x8a8fc…8a902 (0x3ec,0x1153)
0x8a902…8a920 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 ┆y code: :>, i); write(o┆
0x8a920…8a940 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 73 65 0a 20 20 20 20 ┆ut, <:<10>:>); end else ┆
0x8a940…8a960 62 65 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 ┆begin comment: transport defined┆
0x8a960…8a97a 2e 20 69 66 20 74 68 65 20 76 65 72 69 66 79 2e 79 65 73 0a 20 20 20 20 20 20 ┆. if the verify.yes ┆
0x8a97a…8a980 (0x3ec,0x1154)
0x8a980…8a9a0 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 20 62 65 65 6e 20 ┆ parameter has been ┆
0x8a9a0…8a9c0 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 20 20 20 20 20 20 ┆specified, the identi- ┆
0x8a9c0…8a9e0 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 74 72 61 6e 73 70 ┆ fication of the transp┆
0x8a9e0…8aa00 6f 72 74 20 73 68 61 6c 6c 20 62 65 20 6f 75 74 70 75 74 3b 0a 20 20 20 00 00 00 00 00 00 00 00 ┆ort shall be output; ┆
0x8aa00…8aa06 (1109,) (0x3ec,0x1155)
0x8aa06…8aa20 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 ┆ if verify then wr┆
0x8aa20…8aa40 69 74 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 ┆ite(out, <:transport identificat┆
0x8aa40…8aa60 69 6f 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 ┆ion: :>, answe┆
0x8aa60…8aa7e 72 2e 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 ┆r.tno, <:<10>:>); if re┆
0x8aa7e…8aa84 (0x3ec,0x1156)
0x8aa84…8aaa0 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 ┆sultentry(1)<>null then entr┆
0x8aaa0…8aac0 79 28 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 ┆y(answer.tno); if wait th┆
0x8aac0…8aae0 65 6e 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 ┆en begin comment: send wai┆
0x8aae0…8aafc 74 20 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 ┆t operation; mess.tn┆
0x8aafc…8ab02 (0x3ec,0x1157)
0x8ab02…8ab20 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 ┆o:= answer.tno; transf┆
0x8ab20…8ab40 65 72 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 ┆er(wait_code,mess,9,answer,ans_l┆
0x8ab40…8ab60 67 74 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 ┆gt); end; if releas┆
0x8ab60…8ab7a 65 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 ┆e then begin comment┆
0x8ab7a…8ab80 (0x3ec,0x1158)
0x8ab80…8aba0 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 20 20 20 20 20 20 ┆: send release operation; ┆
0x8aba0…8abc0 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 20 20 20 20 20 20 ┆ mess.tno:= answer.tno; ┆
0x8abc0…8abe0 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 73 2c 37 2c 61 6e ┆ transfer(release_code,mess,7,an┆
0x8abe0…8ac00 73 77 65 72 2c 37 29 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 00 00 00 00 00 00 00 00 ┆swer,7); end; ┆
0x8ac00…8ac06 (1110,) (0x3ec,0x1159)
0x8ac06…8ac20 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 ┆end; end_program: if ┆
0x8ac20…8ac40 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 3a 3d 20 31 20 73 68 ┆any_errors then errorbits:= 1 sh┆
0x8ac40…8ac60 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 68 69 66 74 20 31 30 ┆ift 0; trapmode:= 1 shift 10┆
0x8ac60…8ac7e 3b 0a 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┆
0x8ac7e…8ac84 (0x3ec,0x115a)
0x8ac84…8aca0 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 ┆ileenq=algol connect.no fp.y┆
0x8aca0…8acc0 65 73 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 ┆es message.no if ok.yes warning┆
0x8acc0…8ace0 2e 6e 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 ┆.no (c=message fileenq compiled┆
0x8ace0…8acfc 20 6f 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 ┆ ok fileenq=move bfileenq ┆
0x8acfc…8ad02 (0x3ec,0x115b)
0x8ad02…8ad20 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 ┆ c=lookup fileenq ) if ok.n┆
0x8ad20…8ad40 6f 0a 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 ┆o c=message fileenq error in c┆
0x8ad40…8ad60 6f 6d 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 ┆ompilation ) begin message: ***┆
0x8ad60…8ad7a 20 66 69 6c 65 65 6e 71 20 20 76 65 72 73 69 6f 6e 3a 20 31 2e 30 31 20 2a 2a ┆ fileenq version: 1.01 **┆
0x8ad7a…8ad80 (0x3ec,0x115c)
0x8ad80…8ada0 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 20 20 20 20 20 20 ┆*; comment: *** ┆
0x8ada0…8adc0 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 73 73 61 67 65 3a ┆ ***; message:┆
0x8adc0…8ade0 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 20 20 2a 2a 2a 3b ┆ *** eli, 79.04.01 ***;┆
0x8ade0…8ae00 0a 0a 63 6f 6d 6d 65 6e 74 3a 20 70 72 6f 67 72 61 6d 20 63 6f 6e 73 74 00 00 00 00 00 00 00 00 ┆ comment: program const ┆
0x8ae00…8ae06 (1111,) (0x3ec,0x115d)
0x8ae06…8ae20 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 ┆ants; integer field ┆
0x8ae20…8ae40 20 74 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 ┆ treply, tno, tsubno, tsubstate,┆
0x8ae40…8ae60 20 74 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 ┆ tsubcause, ┆
0x8ae60…8ae7e 74 73 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 ┆tsubstatus, tsenderror, trecei┆
0x8ae7e…8ae84 (0x3ec,0x115e)
0x8ae84…8aea0 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 ┆veerror; real array field ┆
0x8aea0…8aec0 20 74 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 ┆ tname, tident; long field ┆
0x8aec0…8aee0 20 20 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 ┆ tsubpos; real ┆
0x8aee0…8aefc 20 70 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 ┆ progname; integer ┆
0x8aefc…8af02 (0x3ec,0x115f)
0x8af02…8af20 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 ┆ mes_lgt, ans_lgt, wait_and_┆
0x8af20…8af40 67 65 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 ┆get_state_code, ┆
0x8af40…8af60 20 20 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 ┆ get_state_code, release_code┆
0x8af60…8af7a 2c 20 6b 69 6c 6c 5f 63 6f 64 65 3b 0a 0a 74 72 65 70 6c 79 3a 3d 20 32 3b 0a ┆, kill_code; treply:= 2; ┆
0x8af7a…8af80 (0x3ec,0x1160)
0x8af80…8afa0 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 3a 3d 20 31 36 3b ┆tno:= 4; tname:= 4; tident:= 16;┆
0x8afa0…8afc0 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 34 32 3b 0a 74 73 ┆ tsubno:= 40; tsubstate:= 42; ts┆
0x8afc0…8afe0 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 3b 0a 74 73 75 62 ┆ubpos:= 46; tsubcause:= 50; tsub┆
0x8afe0…8b000 73 74 61 74 75 73 3a 3d 20 35 32 3b 0a 0a 70 72 6f 67 6e 61 6d 65 3a 3d 00 00 00 00 00 00 00 00 ┆status:= 52; progname:= ┆
0x8b000…8b006 (1112,) (0x3ec,0x1161)
0x8b006…8b020 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 ┆ real <:***fileenq :>; re┆
0x8b020…8b040 6c 65 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 ┆lease_code:= 8; kill_code:= 10; ┆
0x8b040…8b060 77 61 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 ┆wait_and_get_state_code:= 6; get┆
0x8b060…8b07e 5f 73 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 ┆_state_code:= 4; mes_lgt:= 9;┆
0x8b07e…8b084 (0x3ec,0x1162)
0x8b084…8b0a0 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 ┆ ans_lgt:= 26; begin comment┆
0x8b0a0…8b0c0 3a 20 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 ┆: declaration of workspace; in┆
0x8b0c0…8b0e0 74 65 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 ┆teger array mess(1:mes_lgt┆
0x8b0e0…8b0fc 29 2c 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┆
0x8b0fc…8b102 (0x3ec,0x1163)
0x8b102…8b120 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 ┆ array entry_name(1:2┆
0x8b120…8b140 29 3b 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 ┆); integer i, j, s┆
0x8b140…8b160 74 61 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 ┆tate, code, release, kill; boo┆
0x8b160…8b17a 6c 65 61 6e 20 20 20 20 20 20 20 20 20 20 20 20 20 77 61 69 74 2c 20 64 65 74 ┆lean wait, det┆
0x8b17a…8b180 (0x3ec,0x1164)
0x8b180…8b1a0 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 20 20 20 20 20 20 ┆ails, any_errors; real ┆
0x8b1a0…8b1c0 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 69 6e 69 74 69 61 ┆ null; comment: initia┆
0x8b1c0…8b1e0 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 6c 3a 3d 20 30 3b ┆lization; release:= kill:= 0;┆
0x8b1e0…8b200 0a 20 20 61 6e 79 5f 65 72 72 6f 72 73 3a 3d 20 77 61 69 74 3a 3d 20 64 00 00 00 00 00 00 00 00 ┆ any_errors:= wait:= d ┆
0x8b200…8b206 (1113,) (0x3ec,0x1165)
0x8b206…8b220 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 ┆etails:= false; for i:= ┆
0x8b220…8b240 31 20 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 ┆1 step 1 until mes_lgt do mess(i┆
0x8b240…8b260 29 3a 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 ┆):= -1; for i:= 1 step 1 until┆
0x8b260…8b27e 20 61 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 ┆ ans_lgt do answer(i):= -1; ┆
0x8b27e…8b284 (0x3ec,0x1166)
0x8b284…8b2a0 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 ┆entry_name(1):= null:= 0.0 s┆
0x8b2a0…8b2c0 68 69 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 ┆hift 48; begin comment: scan ┆
0x8b2c0…8b2e0 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 20 20 20 ┆and check of parameterlist; ┆
0x8b2e0…8b2fc 72 65 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 ┆real array keywordlist(1:┆
0x8b2fc…8b302 (0x3ec,0x1167)
0x8b302…8b320 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 ┆5, 1:3), elements(0:1, 1:2), ┆
0x8b320…8b340 20 20 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 ┆ arr(1:2); i┆
0x8b340…8b360 6e 74 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 ┆nteger array elementtype(0:1); ┆
0x8b360…8b37a 20 20 20 69 6e 74 65 67 65 72 20 20 20 20 20 20 20 74 65 78 74 2c 20 69 6e 74 ┆ integer text, int┆
0x8b37a…8b380 (0x3ec,0x1168)
0x8b380…8b3a0 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 70 2c 20 69 70 61 ┆, keywordno, param, i, j, p, ipa┆
0x8b3a0…8b3c0 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 65 20 65 72 72 6f ┆ram, oparam; procedure erro┆
0x8b3c0…8b3e0 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 67 65 72 20 20 20 ┆r(paramno, text); integer ┆
0x8b3e0…8b400 20 20 20 20 20 20 70 61 72 61 6d 6e 6f 3b 0a 20 20 20 20 73 74 72 69 6e 00 00 00 00 00 00 00 00 ┆ paramno; strin ┆
0x8b400…8b406 (1114,) (0x3ec,0x1169)
0x8b406…8b420 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 ┆g text; ┆
0x8b420…8b440 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 65 72 72 ┆ begin comment: prints an err┆
0x8b440…8b460 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 20 20 20 ┆or mess on current output. ┆
0x8b460…8b47e 20 20 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┆
0x8b47e…8b484 (0x3ec,0x116a)
0x8b484…8b4a0 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 ┆y the text is printed. ┆
0x8b4a0…8b4c0 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 65 78 74 ┆ otherwise the text┆
0x8b4c0…8b4e0 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 20 20 20 ┆ followed by <:param:> is ┆
0x8b4e0…8b4fc 20 20 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┆
0x8b4fc…8b502 (0x3ec,0x116b)
0x8b502…8b520 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 ┆ parameter specified by paramn┆
0x8b520…8b540 6f 0a 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 ┆o is printed ┆
0x8b540…8b560 75 6e 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 ┆until a parameter preceeded by <┆
0x8b560…8b57a 73 70 3e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 73 20 ┆sp> is ┆
0x8b57a…8b580 (0x3ec,0x116c)
0x8b580…8b5a0 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 20 70 61 72 61 6d ┆met. if param┆
0x8b5a0…8b5c0 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 73 3b 0a 20 20 20 ┆no=0 the program terminates; ┆
0x8b5c0…8b5e0 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 2c 20 74 ┆ write(out, string progname, t┆
0x8b5e0…8b600 65 78 74 29 3b 0a 20 20 20 20 20 20 69 66 20 70 61 72 61 6d 6e 6f 3d 30 00 00 00 00 00 00 00 00 ┆ext); if paramno=0 ┆
0x8b600…8b606 (1115,) (0x3ec,0x116d)
0x8b606…8b620 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 ┆ then begin ┆
0x8b620…8b640 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 20 20 67 ┆ write(out, <:<10>:>); g┆
0x8b640…8b660 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 20 20 20 ┆oto end_program; end; ┆
0x8b660…8b67e 20 20 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┆
0x8b67e…8b684 (0x3ec,0x116e)
0x8b684…8b6a0 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 ┆ <::> then <:param: :> ┆
0x8b6a0…8b6c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x8b6c0…8b6e0 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 72 61 6d ┆ else <:: :>); p:= param┆
0x8b6e0…8b6fc 6e 6f 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 ┆no; for j:= system(4,p┆
0x8b6fc…8b702 (0x3ec,0x116f)
0x8b702…8b720 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 ┆aramno,arr) while j shift(-12)┆
0x8b720…8b740 3d 38 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 ┆=8 or ┆
0x8b740…8b760 20 20 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 ┆ p=paramno do ┆
0x8b760…8b77a 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 69 3a 3d 20 31 3b 0a ┆ begin i:= 1; ┆
0x8b77a…8b780 (0x3ec,0x1170)
0x8b780…8b7a0 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 20 74 68 65 6e 20 ┆ if j shift (-12)=8 then ┆
0x8b7a0…8b7c0 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 20 69 66 20 6a 20 ┆write(out, <:.:>); if j ┆
0x8b7c0…8b7e0 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 74 2c 20 3c 3c 64 ┆extract 12=4 then write(out, <<d┆
0x8b7e0…8b800 3e 2c 20 61 72 72 28 31 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆>, arr(1)) ┆
0x8b800…8b806 (1116,) (0x3ec,0x1171)
0x8b806…8b820 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 ┆ else write(ou┆
0x8b820…8b840 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 20 20 20 ┆t, string arr(increase(i))); ┆
0x8b840…8b860 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 20 20 20 ┆ paramno:= paramno+1; ┆
0x8b860…8b87e 65 6e 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 ┆end; write(out, <:<10>:>┆
0x8b87e…8b884 (0x3ec,0x1172)
0x8b884…8b8a0 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 ┆); any_errors:= true; ┆
0x8b8a0…8b8c0 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 65 6e 64 ┆ goto scan_params; end┆
0x8b8c0…8b8e0 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 3b 0a 0a ┆; text:= 1; int:= 2; ┆
0x8b8e0…8b8fc 20 20 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 ┆
0x8b8fc…8b902 (0x3ec,0x1173)
0x8b902…8b920 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 ┆<:wait:>; keywordlist(1,2)┆
0x8b920…8b940 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 31 2c 33 29 3a 3d 20 ┆:= null; keywordlist(1,3):= ┆
0x8b940…8b960 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 74 65 78 74 3b 0a ┆null add text shift 3 add text; ┆
0x8b960…8b97a 0a 20 20 20 20 6b 65 79 77 6f 72 64 6c 69 73 74 28 32 2c 31 29 3a 3d 20 72 65 ┆ keywordlist(2,1):= re┆
0x8b97a…8b980 (0x3ec,0x1174)
0x8b980…8b9a0 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 6b 65 79 77 6f 72 ┆al <:relea:> add 115; keywor┆
0x8b9a0…8b9c0 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 20 20 20 6b 65 79 ┆dlist(2,2):= real <:e:>; key┆
0x8b9c0…8b9e0 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 78 74 20 73 68 ┆wordlist(2,3):= null add text sh┆
0x8b9e0…8ba00 69 66 74 20 33 20 61 64 64 20 74 65 78 74 3b 0a 0a 20 20 20 20 6b 65 79 00 00 00 00 00 00 00 00 ┆ift 3 add text; key ┆
0x8ba00…8ba06 (1117,) (0x3ec,0x1175)
0x8ba06…8ba20 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 ┆wordlist(3,1):= real <:det┆
0x8ba20…8ba40 61 69 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 ┆ai:> add 108; keywordlist(3,┆
0x8ba40…8ba60 32 29 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 ┆2):= real <:s:>; keywordlist┆
0x8ba60…8ba7e 28 33 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,3):= null add text shift 3 ┆
0x8ba7e…8ba84 (0x3ec,0x1176)
0x8ba84…8baa0 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 ┆add text; keywordlist(4┆
0x8baa0…8bac0 2c 31 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 ┆,1):= real <:kill:>; keyword┆
0x8bac0…8bae0 6c 69 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 ┆list(4,2):= null; keywordlis┆
0x8bae0…8bafc 74 28 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 ┆t(4,3):= null add text shift┆
0x8bafc…8bb02 (0x3ec,0x1177)
0x8bb02…8bb20 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 ┆ 3 add text; keywordlist(┆
0x8bb20…8bb40 35 2c 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 ┆5,1):= keywordlist(5,2):= null; ┆
0x8bb40…8bb60 20 20 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 ┆ keywordlist(5,3):= null add ┆
0x8bb60…8bb7a 28 74 65 78 74 20 61 64 64 20 69 6e 74 29 3b 0a 0a 20 20 20 20 63 6f 6d 6d 65 ┆(text add int); comme┆
0x8bb7a…8bb80 (0x3ec,0x1178)
0x8bb80…8bba0 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 66 20 73 79 73 74 ┆nt: check left side; if syst┆
0x8bba0…8bbc0 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 74 68 65 6e 0a 20 ┆em(4,1,arr) shift (-12)=6 then ┆
0x8bbc0…8bbe0 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 20 20 20 20 70 61 ┆ error(0, <:call:>); pa┆
0x8bbe0…8bc00 72 61 6d 3a 3d 20 31 3b 0a 73 63 61 6e 5f 70 61 72 61 6d 73 3a 0a 20 20 00 00 00 00 00 00 00 00 ┆ram:= 1; scan_params: ┆
0x8bc00…8bc06 (1118,) (0x3ec,0x1179)
0x8bc06…8bc20 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 ┆ for j:= checkparam(param┆
0x8bc20…8bc40 2c 20 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 ┆, keywordno, keywordlist, ┆
0x8bc40…8bc60 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 2c 20 65 6c 65 6d 65 ┆ elements, eleme┆
0x8bc60…8bc7e 6e 74 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 ┆nttype, false) while j<>0 do ┆
0x8bc7e…8bc84 (0x3ec,0x117a)
0x8bc84…8bca0 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 ┆ begin comment: keywordno ┆
0x8bca0…8bcc0 68 6f 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 ┆holds the keywordnumber; i┆
0x8bcc0…8bce0 66 20 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 ┆f j<0 then error(param, <::>); ┆
0x8bce0…8bcfc 20 20 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 ┆
0x8bcfc…8bd02 (0x3ec,0x117b)
0x8bd02…8bd20 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 ┆ begin begin <* 1: w┆
0x8bd20…8bd40 61 69 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 ┆ait*> if elements(1,1┆
0x8bd40…8bd60 29 3d 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 ┆)= real <:yes:> then wait:= true┆
0x8bd60…8bd7a 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 ┆ else if elemen┆
0x8bd7a…8bd80 (0x3ec,0x117c)
0x8bd80…8bda0 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 20 77 61 69 74 3a ┆ts(1,1)= real <:no:> then wait:┆
0x8bda0…8bdc0 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 72 6f 72 28 70 61 ┆= false else error(pa┆
0x8bdc0…8bde0 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 20 ┆ram, <::>); end; ┆
0x8bde0…8be00 20 20 20 20 62 65 67 69 6e 20 3c 2a 20 32 3a 20 72 65 6c 65 61 73 65 2a 00 00 00 00 00 00 00 00 ┆ begin <* 2: release* ┆
0x8be00…8be06 (1119,) (0x3ec,0x117d)
0x8be06…8be20 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 ┆> if elements(1┆
0x8be20…8be40 2c 31 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 ┆,1)= real <:yes:> then release:=┆
0x8be40…8be60 20 2b 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 ┆ +1 else if elements(┆
0x8be60…8be7e 31 2c 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,1)= real <:no:> then releas┆
0x8be7e…8be84 (0x3ec,0x117e)
0x8be84…8bea0 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 ┆e:= -1 else error┆
0x8bea0…8bec0 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 0a 20 20 ┆(param, <::>); end; ┆
0x8bec0…8bee0 20 20 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 ┆ begin <* 3: details*> ┆
0x8bee0…8befc 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┆
0x8befc…8bf02 (0x3ec,0x117f)
0x8bf02…8bf20 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 ┆al <:yes:> then details:= true┆
0x8bf20…8bf40 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 31 ┆ else if elements(1,1┆
0x8bf40…8bf60 29 3d 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 ┆)= real <:no:> then details:= f┆
0x8bf60…8bf7a 61 6c 73 65 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 65 72 72 6f 72 ┆alse else error┆
0x8bf7a…8bf80 (0x3ec,0x1180)
0x8bf80…8bfa0 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 0a 20 20 ┆(param, <::>); end; ┆
0x8bfa0…8bfc0 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 20 20 20 20 20 20 ┆ begin <* 4: kill*> ┆
0x8bfc0…8bfe0 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 3a 79 65 73 ┆ if elements(1,1)=real <:yes┆
0x8bfe0…8c000 3a 3e 20 74 68 65 6e 20 6b 69 6c 6c 3a 3d 20 2b 31 20 65 6c 73 65 0a 20 00 00 00 00 00 00 00 00 ┆:> then kill:= +1 else ┆
0x8c000…8c006 (1120,) (0x3ec,0x1181)
0x8c006…8c020 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 ┆ if elements(1,1)┆
0x8c020…8c040 3d 72 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 ┆=real <:no:> then kill:= -1 els┆
0x8c040…8c060 65 0a 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 ┆e error(param,<::>); ┆
0x8c060…8c07e 20 20 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 ┆
0x8c07e…8c084 (0x3ec,0x1182)
0x8c084…8c0a0 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 ┆<* 5: identification*> ┆
0x8c0a0…8c0c0 20 20 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 ┆ if elementtype(0)=int then┆
0x8c0c0…8c0e0 0a 20 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 ┆ mess.tno:= element┆
0x8c0e0…8c0fc 73 28 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 ┆s(0,1) else ┆
0x8c0fc…8c102 (0x3ec,0x1183)
0x8c102…8c120 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 ┆ begin comment: lookup en┆
0x8c120…8c140 74 72 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 ┆try name; zone z(1,┆
0x8c140…8c160 31 2c 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 ┆1,stderror); intege┆
0x8c160…8c17a 72 20 61 72 72 61 79 20 74 61 69 6c 28 31 3a 31 30 29 3b 0a 20 20 20 20 20 20 ┆r array tail(1:10); ┆
0x8c17a…8c180 (0x3ec,0x1184)
0x8c180…8c1a0 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 20 20 20 20 20 20 ┆ integer i,j; ┆
0x8c1a0…8c1c0 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 28 30 2c 31 29 3b ┆ entry_name(1):= elements(0,1);┆
0x8c1c0…8c1e0 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 29 3a 3d 20 65 6c ┆ entry_name(2):= el┆
0x8c1e0…8c200 65 6d 65 6e 74 73 28 30 2c 32 29 3b 0a 0a 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ements(0,2); ┆
0x8c200…8c206 (1121,) (0x3ec,0x1185)
0x8c206…8c220 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 ┆ i:= 1; ope┆
0x8c220…8c240 6e 28 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 ┆n(z,0,string entry_name(increase┆
0x8c240…8c260 28 69 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 ┆(i)),0); j:= monito┆
0x8c260…8c27e 72 28 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 ┆r(42,z,i,tail); i┆
0x8c27e…8c284 (0x3ec,0x1186)
0x8c284…8c2a0 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 ┆f j<>0 then beg┆
0x8c2a0…8c2c0 69 6e 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 ┆in i:= 1; ┆
0x8c2c0…8c2e0 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 70 72 6f 67 6e 61 ┆ write(out, string progna┆
0x8c2e0…8c2fc 6d 65 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 ┆me, <:lookup :>, ┆
0x8c2fc…8c302 (0x3ec,0x1187)
0x8c302…8c320 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 ┆ string entry_na┆
0x8c320…8c340 6d 65 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 ┆me(increase(i))); ┆
0x8c340…8c360 20 69 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 ┆ if j=3 then w┆
0x8c360…8c37a 72 69 74 65 28 6f 75 74 2c 20 3c 3a 20 65 6e 74 72 79 20 64 6f 65 73 20 6e 6f ┆rite(out, <: entry does no┆
0x8c37a…8c380 (0x3ec,0x1188)
0x8c380…8c3a0 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 20 20 20 20 20 20 ┆t exist<10>:>) else ┆
0x8c3a0…8c3c0 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 2c 20 6a 2c 20 3c ┆ write(out, <:result: :>, j, <┆
0x8c3c0…8c3e0 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 6e 79 5f 65 72 72 ┆:<10>:>); any_err┆
0x8c3e0…8c400 6f 72 73 3a 3d 20 74 72 75 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ors:= true; ┆
0x8c400…8c406 (1122,) (0x3ec,0x1189)
0x8c406…8c420 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 ┆ goto end_program; ┆
0x8c420…8c440 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 6d 65 73 73 2e 74 ┆ end; mess.t┆
0x8c440…8c460 6e 6f 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 ┆no:= tail(7); end; ┆
0x8c460…8c47e 20 20 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; ┆
0x8c47e…8c484 (0x3ec,0x118a)
0x8c484…8c4a0 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 ┆ param:= param+j; ┆
0x8c4a0…8c4c0 20 65 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 ┆ end for while; if any_er┆
0x8c4c0…8c4e0 72 6f 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 ┆rors then goto end_program; ┆
0x8c4e0…8c4fc 20 63 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 ┆ comment: end of parametersc┆
0x8c4fc…8c502 (0x3ec,0x118b)
0x8c502…8c520 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 ┆an; end parameter block; ┆
0x8c520…8c540 20 63 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 ┆ comment: send mess to primo; ┆
0x8c540…8c560 20 63 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 ┆ code:= if wait then wait_and_ge┆
0x8c560…8c57a 74 5f 73 74 61 74 65 5f 63 6f 64 65 20 65 6c 73 65 20 67 65 74 5f 73 74 61 74 ┆t_state_code else get_stat┆
0x8c57a…8c580 (0x3ec,0x118c)
0x8c580…8c5a0 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 65 2c 20 6d 65 73 ┆e_code; i:= transfer(code, mes┆
0x8c5a0…8c5c0 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 3b 0a 0a 20 ┆s, mes_lgt, answer, ans_lgt); ┆
0x8c5c0…8c5e0 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 66 20 69 3c ┆ comment: check result; if i<┆
0x8c5e0…8c600 3e 30 20 74 68 65 6e 0a 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 3a 00 00 00 00 00 00 00 00 ┆>0 then begin comment: ┆
0x8c600…8c606 (1123,) (0x3ec,0x118d)
0x8c606…8c620 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 ┆ error in communication wi┆
0x8c620…8c640 74 68 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 ┆th primo or in parameters ┆
0x8c640…8c660 20 20 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 ┆ to <transfer>. the la┆
0x8c660…8c67e 74 74 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 ┆tter should not possible ┆
0x8c67e…8c684 (0x3ec,0x118e)
0x8c684…8c6a0 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 ┆ could occur; ┆
0x8c6a0…8c6c0 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 65 28 6f 75 ┆ any_errors:= true; write(ou┆
0x8c6c0…8c6e0 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 63 6f 6d 6d ┆t, string progname, <:primo comm┆
0x8c6e0…8c6fc 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 69 66 ┆unication error: :>); if┆
0x8c6fc…8c702 (0x3ec,0x118f)
0x8c702…8c720 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 ┆ i>1 and i<7 then write(ou┆
0x8c720…8c740 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 2c 0a 20 20 ┆t, case i-1 of (<:rejected:>, ┆
0x8c740…8c760 20 20 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 ┆ <:unin┆
0x8c760…8c77a 74 65 6c 6c 69 67 69 62 6c 65 3a 3e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆telligible:>, ┆
0x8c77a…8c780 (0x3ec,0x1190)
0x8c780…8c7a0 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 6e 3a 3e 2c ┆ <:malfunction:>,┆
0x8c7a0…8c7c0 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 70 ┆ <:p┆
0x8c7c0…8c7e0 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 20 20 20 20 ┆rimo does not exist:>, ┆
0x8c7e0…8c800 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 3a 6d 65 73 00 00 00 00 00 00 00 00 ┆ <:mes ┆
0x8c800…8c806 (1124,) (0x3ec,0x1191)
0x8c806…8c820 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 ┆s buffer claim exceeded:>)┆
0x8c820…8c840 2c 0a 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 ┆, <:<10>:>) e┆
0x8c840…8c860 6c 73 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 ┆lse write(out, <:unexpected ┆
0x8c860…8c87e 72 65 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 ┆result: :>, i, <:<10>:>); en┆
0x8c87e…8c884 (0x3ec,0x1192)
0x8c884…8c8a0 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 ┆d else begin i:= answe┆
0x8c8a0…8c8c0 72 2e 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 ┆r.treply; if i<>0 then ┆
0x8c8c0…8c8e0 62 65 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 ┆begin comment: reply error; ┆
0x8c8e0…8c8fc 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 77 ┆ any_errors:= true; w┆
0x8c8fc…8c902 (0x3ec,0x1193)
0x8c902…8c920 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 ┆rite(out, string progname, <:p┆
0x8c920…8c940 72 69 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 ┆rimo reply error: :>); if ┆
0x8c940…8c960 69 3d 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 ┆i=2 then write(out, <:tr┆
0x8c960…8c97a 61 6e 73 70 6f 72 74 20 75 6e 6b 6e 6f 77 6e 3a 3e 29 0a 20 20 20 20 20 20 65 ┆ansport unknown:>) e┆
0x8c97a…8c980 (0x3ec,0x1194)
0x8c980…8c9a0 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 20 20 20 20 77 72 ┆lse if i=3 then wr┆
0x8c9a0…8c9c0 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 65 73 3a 3e 29 0a ┆ite(out, <:missing resources:>) ┆
0x8c9c0…8c9e0 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 72 20 69 3d 36 20 ┆ else if i=5 or i=6 ┆
0x8c9e0…8ca00 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 ┆
0x8ca00…8ca06 (1125,) (0x3ec,0x1195)
0x8ca06…8ca20 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 ┆: error in sender/receiver┆
0x8ca20…8ca40 20 64 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 ┆ device specification; i┆
0x8ca40…8ca60 66 20 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 ┆f i=5 then begin ┆
0x8ca60…8ca7e 20 20 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 :>); ┆
0x8ca7e…8ca84 (0x3ec,0x1196)
0x8ca84…8caa0 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 ┆ j:= answer.tsenderro┆
0x8caa0…8cac0 72 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 62 65 67 69 ┆r; end else begi┆
0x8cac0…8cae0 6e 0a 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 ┆n write(out, <:receive┆
0x8cae0…8cafc 72 20 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 ┆r :>); j:= answer.┆
0x8cafc…8cb02 (0x3ec,0x1197)
0x8cb02…8cb20 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 ┆treceiveerror; end; ┆
0x8cb20…8cb40 20 20 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 ┆ if j=1 then write(out, <:e┆
0x8cb40…8cb60 6e 74 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 ┆ntry troubles:>) else ┆
0x8cb60…8cb7a 20 20 20 20 20 20 69 66 20 6a 3d 32 20 74 68 65 6e 20 77 72 69 74 65 28 6f 75 ┆ if j=2 then write(ou┆
0x8cb7a…8cb80 (0x3ec,0x1198)
0x8cb80…8cba0 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 20 20 20 20 20 20 ┆t, <:device troubles:>) ┆
0x8cba0…8cbc0 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 65 72 72 6f 72 63 ┆else write(out, <:errorc┆
0x8cbc0…8cbe0 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 0a 20 20 20 20 20 ┆ode :>, j); end else ┆
0x8cbe0…8cc00 20 77 72 69 74 65 28 6f 75 74 2c 20 3c 3a 75 6e 65 78 70 65 63 74 65 64 00 00 00 00 00 00 00 00 ┆ write(out, <:unexpected ┆
0x8cc00…8cc06 (1126,) (0x3ec,0x1199)
0x8cc06…8cc20 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 ┆ reply code: :>, i); ┆
0x8cc20…8cc40 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 65 6e 64 20 ┆ write(out, <:<10>:>); end ┆
0x8cc40…8cc60 65 6c 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 ┆else begin comment: state re┆
0x8cc60…8cc7e 63 65 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 ┆ceived; if details then ┆
0x8cc7e…8cc84 (0x3ec,0x119a)
0x8cc84…8cca0 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 ┆ begin comment: print t┆
0x8cca0…8ccc0 72 61 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 ┆ransport name; i:= 1; ┆
0x8ccc0…8cce0 20 20 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 ┆ write(out, <:transport nam┆
0x8cce0…8ccfc 65 3a 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 ┆e: :>, st┆
0x8ccfc…8cd02 (0x3ec,0x119b)
0x8cd02…8cd20 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 ┆ring answer.tname(increase(i))┆
0x8cd20…8cd40 2c 20 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 ┆, <:<10>:>); end; w┆
0x8cd40…8cd60 72 69 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 ┆rite(out, <: state: :>);┆
0x8cd60…8cd7a 0a 20 20 20 20 20 20 73 74 61 74 65 3a 3d 20 61 6e 73 77 65 72 2e 74 73 75 62 ┆ state:= answer.tsub┆
0x8cd7a…8cd80 (0x3ec,0x119c)
0x8cd80…8cda0 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 64 20 73 74 61 74 ┆state; if state>1 and stat┆
0x8cda0…8cdc0 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 2c 20 63 61 73 65 ┆e<9 then write(out, case┆
0x8cdc0…8cde0 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 20 20 20 20 20 28 ┆ state-1 of (┆
0x8cde0…8ce00 3c 3a 77 61 69 74 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 ┆<:waiting:>, ┆
0x8ce00…8ce06 (1127,) (0x3ec,0x119d)
0x8ce06…8ce20 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 ┆ <:executing:>, ┆
0x8ce20…8ce40 20 20 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 ┆ <:held:>, ┆
0x8ce40…8ce60 20 20 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 ┆ <:completed:>, ┆
0x8ce60…8ce7e 20 20 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 :┆
0x8ce7e…8ce84 (0x3ec,0x119e)
0x8ce84…8cea0 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 ┆>, <:kil┆
0x8cea0…8cec0 6c 65 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 ┆led by operator:>, ┆
0x8cec0…8cee0 20 20 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 ┆ <:killed by application:>┆
0x8cee0…8cefc 29 29 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(┆
0x8cefc…8cf02 (0x3ec,0x119f)
0x8cf02…8cf20 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 ┆out, state); if state=6┆
0x8cf20…8cf40 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 20 6f 75 74 70 75 ┆ then begin comment: outpu┆
0x8cf40…8cf60 74 20 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 ┆t abort-cause; i:= answe┆
0x8cf60…8cf7a 72 2e 74 73 75 62 63 61 75 73 65 3b 0a 20 20 20 20 20 20 20 20 69 66 20 69 3d ┆r.tsubcause; if i=┆
0x8cf7a…8cf80 (0x3ec,0x11a0)
0x8cf80…8cfa0 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 20 20 20 20 20 77 ┆1 or i=2 or i=3 then w┆
0x8cfa0…8cfc0 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 0a 20 20 20 20 20 ┆rite(out, <:caused by :>, ┆
0x8cfc0…8cfe0 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 6e 20 3c 3a 73 65 ┆ if i=1 then <:se┆
0x8cfe0…8d000 6e 64 65 72 3a 3e 20 65 6c 73 65 20 0a 20 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆nder:> else ┆
0x8d000…8d006 (1128,) (0x3ec,0x11a1)
0x8d006…8d020 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 ┆ if i=2 then <:re┆
0x8d020…8d040 63 65 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 ┆ceiver:> else <:opearator:>, ┆
0x8d040…8d060 20 20 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 ┆ <: device:>) ┆
0x8d060…8d07e 20 20 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┆
0x8d07e…8d084 (0x3ec,0x11a2)
0x8d084…8d0a0 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 ┆t, <:cause=:>, i); end┆
0x8d0a0…8d0c0 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 29 3b 0a 20 20 ┆; write(out, <:<10>:>); ┆
0x8d0c0…8d0e0 20 20 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 ┆ if details and (state=6) the┆
0x8d0e0…8d0fc 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 ┆n begin comment: outpu┆
0x8d0fc…8d102 (0x3ec,0x11a3)
0x8d102…8d120 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 ┆t device status; boole┆
0x8d120…8d140 61 6e 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 ┆an first; first:= true;┆
0x8d140…8d160 0a 20 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 ┆ write(out, <: st┆
0x8d160…8d17a 61 74 75 73 3a 20 3a 3e 29 3b 0a 20 20 20 20 20 20 20 20 69 3a 3d 20 61 6e 73 ┆atus: :>); i:= ans┆
0x8d17a…8d180 (0x3ec,0x11a4)
0x8d180…8d1a0 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 3d 20 32 33 3b 0a ┆wer.tsubstatus; j:= 23; ┆
0x8d1a0…8d1c0 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 20 20 20 20 62 65 ┆ while i<>0 do be┆
0x8d1c0…8d1e0 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 20 20 20 20 20 20 ┆gin if i<0 then ┆
0x8d1e0…8d200 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 72 00 00 00 00 00 00 00 00 ┆ begin wr ┆
0x8d200…8d206 (1129,) (0x3ec,0x11a5)
0x8d206…8d220 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 ┆ite(out, false add 32, if ┆
0x8d220…8d240 66 69 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 ┆first then 0 else 16, ┆
0x8d240…8d260 20 20 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 ┆ case j+1 of ┆
0x8d260…8d27e 20 20 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:┆
0x8d27e…8d284 (0x3ec,0x11a6)
0x8d284…8d2a0 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 ┆>, <┆
0x8d2a0…8d2c0 3a 6e 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 ┆:normal answer:>, ┆
0x8d2c0…8d2e0 20 20 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 ┆ <:rejected:>, ┆
0x8d2e0…8d2fc 20 20 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┆
0x8d2fc…8d302 (0x3ec,0x11a7)
0x8d302…8d320 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 ┆ible:>, ┆
0x8d320…8d340 20 20 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 ┆ <:disconnected:>, ┆
0x8d340…8d360 20 20 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 ┆ <:process does not e┆
0x8d360…8d37a 78 69 73 74 3a 3e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆xist:>, ┆
0x8d37a…8d380 (0x3ec,0x11a8)
0x8d380…8d3a0 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 20 20 20 20 20 20 ┆ <:position error:>, ┆
0x8d3a0…8d3c0 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 65 66 65 63 74 3a ┆ <:word defect:┆
0x8d3c0…8d3e0 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 73 74 6f ┆>, <:sto┆
0x8d3e0…8d400 70 70 65 64 3a 3e 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 ┆pped:>, ┆
0x8d400…8d406 (1130,) (0x3ec,0x11a9)
0x8d406…8d420 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 ┆ <:bit 14:>, ┆
0x8d420…8d440 20 20 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 ┆ <:bit 13:>, ┆
0x8d440…8d460 20 20 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 ┆ <:checksum┆
0x8d460…8d47e 20 65 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 ┆ error:>, ┆
0x8d47e…8d484 (0x3ec,0x11aa)
0x8d484…8d4a0 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 ┆ <:card reject:>, ┆
0x8d4a0…8d4c0 20 20 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 ┆ <:read error:>,┆
0x8d4c0…8d4e0 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 6d 6f 64 65 20 ┆ <:mode ┆
0x8d4e0…8d4fc 65 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 ┆error:>, ┆
0x8d4fc…8d502 (0x3ec,0x11ab)
0x8d502…8d520 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 ┆ <:writing enabled:>, ┆
0x8d520…8d540 20 20 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 ┆ <:tapemark o┆
0x8d540…8d560 72 20 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 ┆r attention:>, ┆
0x8d560…8d57a 20 20 20 20 20 20 20 3c 3a 6c 6f 61 64 20 70 6f 69 6e 74 3a 3e 2c 0a 20 20 20 ┆ <:load point:>, ┆
0x8d57a…8d580 (0x3ec,0x11ac)
0x8d580…8d5a0 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 20 64 6f 63 75 6d ┆ <:end docum┆
0x8d5a0…8d5c0 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 20 20 20 20 20 3c ┆ent:>, <┆
0x8d5c0…8d5e0 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 20 20 20 20 20 20 ┆:block length error:>, ┆
0x8d5e0…8d600 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 3a 64 61 74 61 20 6f 76 00 00 00 00 00 00 00 00 ┆ <:data ov ┆
0x8d600…8d606 (1131,) (0x3ec,0x11ad)
0x8d606…8d620 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 ┆errun:>, ┆
0x8d620…8d640 20 20 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 ┆ <:timer:>, ┆
0x8d640…8d660 20 20 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 ┆ <:parity error:>, ┆
0x8d660…8d67e 20 20 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┆
0x8d67e…8d684 (0x3ec,0x11ae)
0x8d684…8d6a0 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 ┆tion:> ┆
0x8d6a0…8d6c0 20 20 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 ┆ ), <:<1┆
0x8d6c0…8d6e0 30 3e 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 ┆0>:>); first:= false┆
0x8d6e0…8d6fc 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 20 20 ┆; end; ┆
0x8d6fc…8d702 (0x3ec,0x11af)
0x8d702…8d720 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 ┆i:= i shift 1; j:= j┆
0x8d720…8d740 2d 31 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 ┆-1; end while; end┆
0x8d740…8d760 3b 0a 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 ┆; if details and answer.t┆
0x8d760…8d77a 73 75 62 70 6f 73 3e 3d 30 20 74 68 65 6e 0a 20 20 20 20 20 20 62 65 67 69 6e ┆subpos>=0 then begin┆
0x8d77a…8d780 (0x3ec,0x11b0)
0x8d780…8d7a0 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 20 70 6f 73 69 74 ┆ write(out,<: char posit┆
0x8d7a0…8d7c0 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 30 3e 3a 3e 29 3b ┆ion::>,answer.tsubpos,<:<10>:>);┆
0x8d7c0…8d7e0 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 3e 30 20 ┆ end; if release>0 ┆
0x8d7e0…8d800 6f 72 20 28 72 65 6c 65 61 73 65 3d 30 20 61 6e 64 20 73 74 61 74 65 3d 00 00 00 00 00 00 00 00 ┆or (release=0 and state= ┆
0x8d800…8d806 (1132,) (0x3ec,0x11b1)
0x8d806…8d820 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 ┆5) then begin commen┆
0x8d820…8d840 74 3a 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 ┆t: release transport and remove ┆
0x8d840…8d860 65 6e 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 ┆entry; if entry_name(1)<┆
0x8d860…8d87e 3e 6e 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 ┆>null then begin ┆
0x8d87e…8d884 (0x3ec,0x11b2)
0x8d884…8d8a0 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 ┆ zone z(1,1,stderror); ┆
0x8d8a0…8d8c0 20 20 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 ┆ integer array tail(1:10┆
0x8d8c0…8d8e0 29 3b 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 ┆); integer i; ┆
0x8d8e0…8d8fc 20 20 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┆
0x8d8fc…8d902 (0x3ec,0x11b3)
0x8d902…8d920 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 ┆,string entry_name(increase(i)┆
0x8d920…8d940 29 2c 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 ┆),0); monitor(48,z,i,t┆
0x8d940…8d960 61 69 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 ┆ail); end; tran┆
0x8d960…8d97a 73 66 65 72 28 72 65 6c 65 61 73 65 5f 63 6f 64 65 2c 6d 65 73 73 2c 37 2c 61 ┆sfer(release_code,mess,7,a┆
0x8d97a…8d980 (0x3ec,0x11b4)
0x8d980…8d9a0 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 20 69 66 20 6b 69 ┆nswer,7); end; if ki┆
0x8d9a0…8d9c0 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 20 20 20 20 74 72 ┆ll>0 then begin tr┆
0x8d9c0…8d9e0 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 73 77 65 72 2c 37 ┆ansfer(kill_code,mess,7,answer,7┆
0x8d9e0…8da00 29 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 65 6e 64 20 73 74 00 00 00 00 00 00 00 00 ┆); end; end st ┆
0x8da00…8da06 (1133,) (0x3ec,0x11b5)
0x8da06…8da20 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 ┆ate; end; end_program┆
0x8da20…8da40 3a 0a 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 ┆: if any_errors then errorbi┆
0x8da40…8da60 74 73 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 ┆ts:= 1 shift 0; trapmode:= 1┆
0x8da60…8da7e 20 73 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 ┆ shift 10; end; end (savet┆
0x8da7e…8da84 (0x3ec,0x11b6)
0x8da84…8daa0 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 ┆rans=algol message.no connec┆
0x8daa0…8dac0 74 2e 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 ┆t.no if ok.yes (c=message sa┆
0x8dac0…8dae0 76 65 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 ┆vetrans translated ok ) if o┆
0x8dae0…8dafc 6b 2e 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 ┆k.no (c=message savetrans ┆
0x8dafc…8db02 (0x3ec,0x11b7)
0x8db02…8db20 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 ┆not ok ) ) begin <******┆
0x8db20…8db40 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x8db40…8db60 2a 2a 2a 2a 2a 2a 2a 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 ┆******************************* ┆
0x8db60…8db7a 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 ┆ * ┆
0x8db7a…8db80 (0x3ec,0x11b8)
0x8db80…8dba0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x8dba0…8dbc0 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 20 20 20 20 20 20 ┆ * * ┆
0x8dbc0…8dbe0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x8dbe0…8dc00 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 ┆ ┆
0x8dc00…8dc06 (1134,) (0x3ec,0x11b9)
0x8dc06…8dc20 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 ┆* * Savetrans: ┆
0x8dc20…8dc40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x8dc40…8dc60 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 41 20 75 74 69 ┆ * * A uti┆
0x8dc60…8dc7e 6c 69 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 ┆lity program which restarts al┆
0x8dc7e…8dc84 (0x3ec,0x11ba)
0x8dc84…8dca0 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 ┆l unfinished transports ┆
0x8dca0…8dcc0 2a 0a 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 ┆* * sent to primo in case┆
0x8dcc0…8dce0 20 6f 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 ┆ of a system break down. ┆
0x8dce0…8dcfc 20 20 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 ┆ * * ┆
0x8dcfc…8dd02 (0x3ec,0x11bb)
0x8dd02…8dd20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x8dd20…8dd40 20 20 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 ┆ * *┆
0x8dd40…8dd60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x8dd60…8dd7a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x8dd7a…8dd80 (0x3ec,0x11bc)
0x8dd80…8dda0 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 20 70 72 6f 63 65 ┆ * * Operating proce┆
0x8dda0…8ddc0 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 20 20 20 20 20 20 ┆dure: ┆
0x8ddc0…8dde0 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 73 ┆ * * s┆
0x8dde0…8de00 61 76 65 73 70 6f 6f 6c 3d 6d 6f 76 65 20 70 72 69 6d 6f 73 70 6f 6f 6c 00 00 00 00 00 00 00 00 ┆avespool=move primospool ┆
0x8de00…8de06 (1135,) (0x3ec,0x11bd)
0x8de06…8de20 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 ┆ ; do this before primo is┆
0x8de20…8de40 20 73 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 ┆ started * * ; now sta┆
0x8de40…8de60 72 74 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 ┆rt primo using an s command ┆
0x8de60…8de7e 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 ┆ * * ┆
0x8de7e…8de84 (0x3ec,0x11be)
0x8de84…8dea0 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 ┆ savetrans savespool ; res┆
0x8dea0…8dec0 74 61 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 ┆tart the transports from the old┆
0x8dec0…8dee0 20 20 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 ┆ * * ; primospool ar┆
0x8dee0…8defc 65 61 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 ┆ea, possible errors will be ┆
0x8defc…8df02 (0x3ec,0x11bf)
0x8df02…8df20 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 ┆printed on current * * ┆
0x8df20…8df40 20 3b 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 ┆ ; output ┆
0x8df40…8df60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x8df60…8df7a 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 ┆* * ┆
0x8df7a…8df80 (0x3ec,0x11c0)
0x8df80…8dfa0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x8dfa0…8dfc0 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 20 20 20 20 ┆ * * ┆
0x8dfc0…8dfe0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x8dfe0…8e000 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 ┆ ┆
0x8e000…8e006 (1136,) (0x3ec,0x11c1)
0x8e006…8e020 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 ┆ * *******************┆
0x8e020…8e040 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x8e040…8e060 2a 2a 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 ┆******************> message ┆
0x8e060…8e07e 0a 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 ┆ *******************┆
0x8e07e…8e084 (0x3ec,0x11c2)
0x8e084…8e0a0 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 ┆******** **** ┆
0x8e0a0…8e0c0 20 20 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 ┆ **** ***┆
0x8e0c0…8e0e0 2a 20 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 ┆* kc nov. 13. 1980 **** ┆
0x8e0e0…8e0fc 20 20 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 **┆
0x8e0fc…8e102 (0x3ec,0x11c3)
0x8e102…8e120 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 ┆** **** ┆
0x8e120…8e140 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 2a 2a 2a 2a 2a 2a 2a ┆ **** ***********┆
0x8e140…8e160 2a 2a 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 ┆****************; <********┆
0x8e160…8e17a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆**************************┆
0x8e17a…8e180 (0x3ec,0x11c4)
0x8e180…8e1a0 2a 2a 2a 2a 2a 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 ┆***************************** ┆
0x8e1a0…8e1c0 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 20 20 20 20 20 20 ┆ * ┆
0x8e1c0…8e1e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x8e1e0…8e200 2a 0a 20 20 20 2a 20 66 6f 72 6d 61 74 20 6f 66 20 61 20 74 72 61 6e 73 00 00 00 00 00 00 00 00 ┆* * format of a trans ┆
0x8e200…8e206 (1137,) (0x3ec,0x11c5)
0x8e206…8e220 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 ┆port description in the sp┆
0x8e220…8e240 6f 6f 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 ┆oolarea of primo: * * ┆
0x8e240…8e260 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x8e260…8e27e 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 ┆ * * ┆
0x8e27e…8e284 (0x3ec,0x11c6)
0x8e284…8e2a0 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 ┆ +-----------+ ┆
0x8e2a0…8e2c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x8e2c0…8e2e0 2a 0a 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 ┆* * + 0 ! ! trans┆
0x8e2e0…8e2fc 70 6f 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 ┆port name ┆
0x8e2fc…8e302 (0x3ec,0x11c7)
0x8e302…8e320 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 ┆ * * + 2 ! ┆
0x8e320…8e340 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 ┆ ! ┆
0x8e340…8e360 20 20 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 ┆ * * + 4 ! ┆
0x8e360…8e37a 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 ┆ ! ┆
0x8e37a…8e380 (0x3ec,0x11c8)
0x8e380…8e3a0 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 ┆ * * ┆
0x8e3a0…8e3c0 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 20 20 20 20 20 20 ┆ + 6 ! ! ┆
0x8e3c0…8e3e0 20 20 20 20 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 ┆ * ┆
0x8e3e0…8e400 20 2a 20 20 20 2b 20 38 20 21 20 20 20 20 20 20 20 20 20 20 20 21 20 75 00 00 00 00 00 00 00 00 ┆ * + 8 ! ! u ┆
0x8e400…8e406 (1138,) (0x3ec,0x11c9)
0x8e406…8e420 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 ┆ser name ┆
0x8e420…8e440 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 30 20 21 20 20 20 20 ┆ * * +10 ! ┆
0x8e440…8e460 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 ┆ ! ┆
0x8e460…8e47e 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 31 32 ┆ * * +12┆
0x8e47e…8e484 (0x3ec,0x11ca)
0x8e484…8e4a0 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 ┆ ! ! ┆
0x8e4a0…8e4c0 20 20 20 20 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 ┆ * ┆
0x8e4c0…8e4e0 20 2a 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 ┆ * +14 ! ! ┆
0x8e4e0…8e4fc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x8e4fc…8e502 (0x3ec,0x11cb)
0x8e502…8e520 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 ┆ * * +16 ! !┆
0x8e520…8e540 20 73 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 ┆ sender name ┆
0x8e540…8e560 20 20 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 ┆ * * +18 ! ┆
0x8e560…8e57a 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 ┆ ! ┆
0x8e57a…8e580 (0x3ec,0x11cc)
0x8e580…8e5a0 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 32 30 ┆ * * +20┆
0x8e5a0…8e5c0 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 20 20 ┆ ! ! ┆
0x8e5c0…8e5e0 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 ┆ * * ┆
0x8e5e0…8e600 20 2b 32 32 20 21 20 20 20 20 20 20 20 20 20 20 20 21 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ +22 ! ! ┆
0x8e600…8e606 (1139,) (0x3ec,0x11cd)
0x8e606…8e620 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x8e620…8e640 20 20 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 ┆ * * +24 ! ┆
0x8e640…8e660 20 20 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 ┆ ! receiver name ┆
0x8e660…8e67e 20 20 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 ! ┆
0x8e67e…8e684 (0x3ec,0x11ce)
0x8e684…8e6a0 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 ┆ ! ┆
0x8e6a0…8e6c0 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 ┆ * * ┆
0x8e6c0…8e6e0 20 2b 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 ┆ +28 ! ! ┆
0x8e6e0…8e6fc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x8e6fc…8e702 (0x3ec,0x11cf)
0x8e702…8e720 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 ┆* * +30 ! ! ┆
0x8e720…8e740 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x8e740…8e760 20 20 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 ┆ * * +32 ! !┆
0x8e760…8e77a 20 62 73 20 61 72 65 61 20 6e 61 6d 65 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ bs area name ┆
0x8e77a…8e780 (0x3ec,0x11d0)
0x8e780…8e7a0 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 33 34 20 21 20 20 ┆ * * +34 ! ┆
0x8e7a0…8e7c0 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 20 20 ┆ ! ┆
0x8e7c0…8e7e0 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 33 36 ┆ * * +36┆
0x8e7e0…8e800 20 21 20 20 20 20 20 20 20 20 20 20 20 21 20 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ ! ! ┆
0x8e800…8e806 (1140,) (0x3ec,0x11d1)
0x8e806…8e820 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x8e820…8e840 20 20 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 ┆ * * +38 ! !┆
0x8e840…8e860 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x8e860…8e87e 20 20 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 ! ┆
0x8e87e…8e884 (0x3ec,0x11d2)
0x8e884…8e8a0 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 ┆ ! mode shift 12+kind of┆
0x8e8a0…8e8c0 20 64 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 ┆ device * * +42┆
0x8e8c0…8e8e0 20 21 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 ┆ ! ! lower cat base of┆
0x8e8e0…8e8fc 20 73 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 ┆ sending process * ┆
0x8e8fc…8e902 (0x3ec,0x11d3)
0x8e902…8e920 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 ┆ * +44 ! ! upper c┆
0x8e920…8e940 61 74 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 ┆at base of sending process ┆
0x8e940…8e960 20 20 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 ┆ * * +46 ! ! bs ┆
0x8e960…8e97a 73 74 61 72 74 20 70 6f 73 69 74 69 6f 6e 20 68 61 6c 66 77 6f 72 64 20 28 6c ┆start position halfword (l┆
0x8e97a…8e980 (0x3ec,0x11d4)
0x8e980…8e9a0 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 20 20 20 20 20 20 ┆ong) * * +48 ! ┆
0x8e9a0…8e9c0 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 ┆ ! ┆
0x8e9c0…8e9e0 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 35 30 20 21 20 20 ┆ * * +50 ! ┆
0x8e9e0…8ea00 20 20 20 20 20 20 20 20 20 21 20 71 75 65 75 65 20 67 72 6f 75 70 20 6e 00 00 00 00 00 00 00 00 ┆ ! queue group n ┆
0x8ea00…8ea06 (1141,) (0x3ec,0x11d5)
0x8ea06…8ea20 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 ┆ame (e.g. paper) ┆
0x8ea20…8ea40 20 20 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 ┆ * * +52 ! ! ┆
0x8ea40…8ea60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x8ea60…8ea7e 20 20 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 ! ┆
0x8ea7e…8ea84 (0x3ec,0x11d6)
0x8ea84…8eaa0 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 ┆ ! ┆
0x8eaa0…8eac0 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 35 36 20 21 20 20 ┆ * * +56 ! ┆
0x8eac0…8eae0 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 20 20 ┆ ! ┆
0x8eae0…8eafc 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 ┆ * * ┆
0x8eafc…8eb02 (0x3ec,0x11d7)
0x8eb02…8eb20 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 ┆ +58 ! ! queue name ┆
0x8eb20…8eb40 28 65 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 ┆(e.g. a4upright) * ┆
0x8eb40…8eb60 20 20 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 ┆ * +60 ! ! ┆
0x8eb60…8eb7a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x8eb7a…8eb80 (0x3ec,0x11d8)
0x8eb80…8eba0 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 20 20 20 20 20 20 ┆ * * +62 ! ┆
0x8eba0…8ebc0 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 ┆ ! ┆
0x8ebc0…8ebe0 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 20 20 20 20 20 20 ┆ * * +64 ! ┆
0x8ebe0…8ec00 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 ┆ ! ┆
0x8ec00…8ec06 (1142,) (0x3ec,0x11d9)
0x8ec06…8ec20 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 ┆ * ┆
0x8ec20…8ec40 20 20 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 ┆ * +66 ! ! corouti┆
0x8ec40…8ec60 6e 65 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 ┆ne description address ┆
0x8ec60…8ec7e 20 20 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┆
0x8ec7e…8ec84 (0x3ec,0x11da)
0x8ec84…8eca0 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 ┆ransport state ┆
0x8eca0…8ecc0 20 20 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 ┆ * * +70 ! ┆
0x8ecc0…8ece0 20 20 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 ┆ ! cause (if state is aborte┆
0x8ece0…8ecfc 64 20 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 ┆d or held) * * +72┆
0x8ecfc…8ed02 (0x3ec,0x11db)
0x8ed02…8ed20 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 ┆ ! ! device status ┆
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 2a 0a 20 20 20 2a ┆ * *┆
0x8ed40…8ed60 20 20 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 ┆ +74 ! ! character p┆
0x8ed60…8ed7a 6f 73 69 74 69 6f 6e 20 28 6c 6f 6e 67 29 20 20 20 20 20 20 20 20 20 20 20 20 ┆osition (long) ┆
0x8ed7a…8ed80 (0x3ec,0x11dc)
0x8ed80…8eda0 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 20 20 20 21 20 20 ┆ * * +76 ! ! ┆
0x8eda0…8edc0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x8edc0…8ede0 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 20 20 20 20 20 20 ┆ * * +78 ! ┆
0x8ede0…8ee00 20 21 20 62 75 66 66 65 72 20 61 64 64 72 65 73 73 20 6f 66 20 77 61 69 00 00 00 00 00 00 00 00 ┆ ! buffer address of wai ┆
0x8ee00…8ee06 (1143,) (0x3ec,0x11dd)
0x8ee06…8ee20 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 ┆t and get state * *┆
0x8ee20…8ee40 20 20 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 ┆ +80 ! ! removetime ┆
0x8ee40…8ee60 28 3e 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 ┆(>8388605 meens waiting) * ┆
0x8ee60…8ee7e 20 20 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 ┆ * +-----------+ ┆
0x8ee7e…8ee84 (0x3ec,0x11de)
0x8ee84…8eea0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x8eea0…8eec0 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 20 20 20 20 20 20 ┆ * * ┆
0x8eec0…8eee0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x8eee0…8eefc 20 20 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 ┆ * ***********┆
0x8eefc…8ef02 (0x3ec,0x11df)
0x8ef02…8ef20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆******************************┆
0x8ef20…8ef40 2a 2a 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 ┆**********************> zon┆
0x8ef40…8ef60 65 20 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 ┆e output,transport(128,1,stderro┆
0x8ef60…8ef7a 72 29 2c 63 61 74 62 61 73 65 28 31 2c 31 2c 73 74 64 65 72 72 6f 72 29 3b 0a ┆r),catbase(1,1,stderror); ┆
0x8ef7a…8ef80 (0x3ec,0x11e0)
0x8ef80…8efa0 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 6d 65 28 31 3a 32 ┆ real array inname,outname(1:2┆
0x8efa0…8efc0 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 30 29 2c 63 61 72 ┆); integer array ia(1:20),car┆
0x8efc0…8efe0 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 32 29 2c 73 61 76 ┆r(1:39),rarr(1:11),base(1:2),sav┆
0x8efe0…8f000 65 64 62 61 73 65 28 31 3a 32 29 3b 0a 20 20 20 69 6e 74 65 67 65 72 20 00 00 00 00 00 00 00 00 ┆edbase(1:2); integer ┆
0x8f000…8f006 (1144,) (0x3ec,0x11e1)
0x8f006…8f020 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 ┆i; boolean list,outp; ┆
0x8f020…8f040 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 20 20 6c ┆<* transfer description *> l┆
0x8f040…8f060 6f 6e 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 ┆ong array field tname, ┆
0x8f060…8f07e 20 20 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, ┆
0x8f07e…8f084 (0x3ec,0x11e2)
0x8f084…8f0a0 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 ┆ sname, ┆
0x8f0a0…8f0c0 20 20 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 ┆ rname, ┆
0x8f0c0…8f0e0 20 20 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 ┆ gname, qna┆
0x8f0e0…8f0fc 6d 65 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 ┆me; <* transport descriptio┆
0x8f0fc…8f102 (0x3ec,0x11e3)
0x8f102…8f120 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 ┆n *> long array field tr_n┆
0x8f120…8f140 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 74 72 5f 75 73 65 72 ┆ame, tr_user┆
0x8f140…8f160 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 73 6e 61 6d 65 2c 0a ┆, tr_sname, ┆
0x8f160…8f17a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 72 5f 72 6e 61 ┆ tr_rna┆
0x8f17a…8f180 (0x3ec,0x11e4)
0x8f180…8f1a0 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 5f 62 73 6e 61 6d ┆me, tr_bsnam┆
0x8f1a0…8f1c0 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 6d 6f 64 65 2c 0a ┆e; boolean field tr_mode, ┆
0x8f1c0…8f1e0 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 64 3b 0a 20 20 20 ┆ tr_kind; ┆
0x8f1e0…8f200 69 6e 74 65 67 65 72 20 66 69 65 6c 64 20 20 20 20 74 72 5f 62 61 73 65 00 00 00 00 00 00 00 00 ┆integer field tr_base ┆
0x8f200…8f206 (1145,) (0x3ec,0x11e5)
0x8f206…8f220 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 ┆low, t┆
0x8f220…8f240 72 5f 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 ┆r_baseup, tr┆
0x8f240…8f260 5f 62 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 ┆_bsstartptr; long array field┆
0x8f260…8f27e 20 74 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 ┆ tr_qgroup, ┆
0x8f27e…8f284 (0x3ec,0x11e6)
0x8f284…8f2a0 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 ┆ tr_qname; integer field┆
0x8f2a0…8f2c0 20 20 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 ┆ tr_couru, ┆
0x8f2c0…8f2e0 20 20 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 ┆ tr_state, ┆
0x8f2e0…8f2fc 74 72 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 ┆tr_cause, ┆
0x8f2fc…8f302 (0x3ec,0x11e7)
0x8f302…8f320 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 ┆ tr_status, ┆
0x8f320…8f340 20 20 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 ┆ tr_charposition, ┆
0x8f340…8f360 20 20 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 ┆ tr_waitmess, ┆
0x8f360…8f37a 20 20 20 20 20 20 20 20 20 74 72 5f 72 65 6d 6f 76 65 74 69 6d 65 3b 0a 0c 0a ┆ tr_removetime; ┆
0x8f37a…8f380 (0x3ec,0x11e8)
0x8f380…8f3a0 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 63 28 7a 2c 6e 29 ┆ boolean procedure getrec(z,n)┆
0x8f3a0…8f3c0 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 67 65 72 20 6e 3b ┆; value n; zone z; integer n;┆
0x8f3c0…8f3e0 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 0a 0a 20 20 20 20 ┆ begin integer i; ┆
0x8f3e0…8f400 20 20 67 65 74 72 65 63 3a 3d 74 72 75 65 3b 0a 20 20 20 20 20 20 69 3a 00 00 00 00 00 00 00 00 ┆ getrec:=true; i: ┆
0x8f400…8f406 (1146,) (0x3ec,0x11e9)
0x8f406…8f420 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 ┆=inrec6(z,0); if i>=┆
0x8f420…8f440 6e 20 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 ┆n then inrec6(z,n) ┆
0x8f440…8f460 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 20 69 6e 72 65 ┆ else begin inre┆
0x8f460…8f47e 63 36 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 ┆c6(z,i); i:=inrec6(z,┆
0x8f47e…8f484 (0x3ec,0x11ea)
0x8f484…8f4a0 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 ┆0); if i>=n then ┆
0x8f4a0…8f4c0 20 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 20 20 20 65 ┆ inrec6(z,n) e┆
0x8f4c0…8f4e0 6c 73 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 ┆lse getrec:=false ┆
0x8f4e0…8f4fc 20 20 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┆
0x8f4fc…8f502 (0x3ec,0x11eb)
0x8f502…8f520 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 ┆re error(s,i,a); value i; ┆
0x8f520…8f540 20 20 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 ┆ string s; integer i; array a; ┆
0x8f540…8f560 20 20 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 ┆ begin integer sep,kind;┆
0x8f560…8f57a 0a 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 3c 3a 2a 2a 2a 73 61 76 65 ┆ write(out,<:***save┆
0x8f57a…8f580 (0x3ec,0x11ec)
0x8f580…8f5a0 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 20 74 68 65 6e 0a ┆trans :>,s); if i<>0 then ┆
0x8f5a0…8f5c0 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 28 6f 75 74 2c 3c ┆ begin write(out,<┆
0x8f5c0…8f5e0 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 69 66 74 20 28 2d ┆:: :>); sep:=i shift (-┆
0x8f5e0…8f600 31 33 29 2d 31 3b 0a 20 20 20 20 20 20 20 20 20 6b 69 6e 64 3a 3d 69 20 00 00 00 00 00 00 00 00 ┆13)-1; kind:=i ┆
0x8f600…8f606 (1147,) (0x3ec,0x11ed)
0x8f606…8f620 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 ┆extract 12; outch┆
0x8f620…8f640 61 72 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 ┆ar(out,case sep of (32, 61, 46))┆
0x8f640…8f660 3b 0a 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 ┆; i:=1; if kin┆
0x8f660…8f67e 64 3d 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 ┆d=10 then write(out,string a(i┆
0x8f67e…8f684 (0x3ec,0x11ee)
0x8f684…8f6a0 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 ┆ncrease(i))) ┆
0x8f6a0…8f6c0 20 20 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 ┆ else write(out,<<d>,entier ┆
0x8f6c0…8f6e0 61 28 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 ┆a(1)) end; write(out┆
0x8f6e0…8f6fc 2c 3c 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┆
0x8f6fc…8f702 (0x3ec,0x11ef)
0x8f702…8f720 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 ┆e; goto stop end; ┆
0x8f720…8f740 20 20 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 ┆ procedure initfields; begin┆
0x8f740…8f760 0a 0a 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 ┆ <* transfer description *> ┆
0x8f760…8f77a 0a 20 20 20 20 20 20 74 6e 61 6d 65 3a 3d 34 3b 0a 20 20 20 20 20 20 75 6e 61 ┆ tname:=4; una┆
0x8f77a…8f780 (0x3ec,0x11f0)
0x8f780…8f7a0 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 20 20 20 20 20 72 ┆me:=16; sname:=40; r┆
0x8f7a0…8f7c0 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 0a 20 20 20 20 20 ┆name:=50; gname:=60; ┆
0x8f7c0…8f7e0 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 72 74 20 64 65 73 ┆ qname:=68; <* transport des┆
0x8f7e0…8f800 63 72 69 70 74 69 6f 6e 20 2a 3e 0a 0a 20 20 20 20 20 20 74 72 5f 6e 61 00 00 00 00 00 00 00 00 ┆cription *> tr_na ┆
0x8f800…8f806 (1148,) (0x3ec,0x11f1)
0x8f806…8f820 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 ┆me:=0; tr_user:=8; ┆
0x8f820…8f840 20 20 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 ┆ tr_sname:=16; tr_rnam┆
0x8f840…8f860 65 3a 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 ┆e:=24; tr_bsname:=32; ┆
0x8f860…8f87e 20 20 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:=┆
0x8f87e…8f884 (0x3ec,0x11f2)
0x8f884…8f8a0 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 ┆42; tr_baselow:=44; ┆
0x8f8a0…8f8c0 20 20 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 ┆ tr_baseup:=46; tr_bsst┆
0x8f8c0…8f8e0 61 72 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 ┆artptr:=50; tr_qgroup:=50;┆
0x8f8e0…8f8fc 0a 20 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┆
0x8f8fc…8f902 (0x3ec,0x11f3)
0x8f902…8f920 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 ┆r_couru:=68; tr_state:=7┆
0x8f920…8f940 30 3b 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 ┆0; tr_cause:=72; tr_┆
0x8f940…8f960 73 74 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 ┆status:=74; tr_charpositio┆
0x8f960…8f97a 6e 3a 3d 37 38 3b 0a 20 20 20 20 20 20 74 72 5f 77 61 69 74 6d 65 73 73 3a 3d ┆n:=78; tr_waitmess:=┆
0x8f97a…8f980 (0x3ec,0x11f4)
0x8f980…8f9a0 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 32 0a 0a 20 20 20 ┆80; tr_removetime:=82 ┆
0x8f9a0…8f9c0 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 74 5f 6f 75 74 70 ┆end; procedure connect_outp┆
0x8f9c0…8f9e0 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 20 61 72 72 61 79 ┆ut; begin integer array┆
0x8f9e0…8fa00 20 62 61 73 65 73 28 31 3a 38 29 2c 69 61 28 31 3a 31 37 29 3b 0a 20 20 00 00 00 00 00 00 00 00 ┆ bases(1:8),ia(1:17); ┆
0x8fa00…8fa06 (1149,) (0x3ec,0x11f5)
0x8fa06…8fa20 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 ┆ integer i; open┆
0x8fa20…8fa40 28 6f 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 ┆(output,4,outname,0); sys┆
0x8fa40…8fa60 74 65 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 ┆tem(11)bases:(0,bases); i:┆
0x8fa60…8fa7e 3d 6d 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 ┆=monitor(76)lookup head and ta┆
0x8fa7e…8fa84 (0x3ec,0x11f6)
0x8fa84…8faa0 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 ┆il:(output,0,ia); if ┆
0x8faa0…8fac0 69 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 20 69 66 ┆i=0 then begin if┆
0x8fac0…8fae0 20 65 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 ┆ extend ia(2)<extend bases(7) or┆
0x8fae0…8fafc 0a 20 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┆
0x8fafc…8fb02 (0x3ec,0x11f7)
0x8fb02…8fb20 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 ┆tend bases(8) then i:=1 ┆
0x8fb20…8fb40 65 6e 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 ┆end; if i<>0 then b┆
0x8fb40…8fb60 65 67 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 ┆egin ia(1):=ia(2):=1; ┆
0x8fb60…8fb7a 20 20 20 20 20 20 20 20 66 6f 72 20 69 3a 3d 33 20 73 74 65 70 20 31 20 75 6e ┆ for i:=3 step 1 un┆
0x8fb7a…8fb80 (0x3ec,0x11f8)
0x8fb80…8fba0 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 20 20 20 69 61 28 ┆til 10 do ia(i):=0; ia(┆
0x8fba0…8fbc0 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 28 30 2c 30 2e 30 ┆6):=systime(7)short clock:(0,0.0┆
0x8fbc0…8fbe0 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 63 72 65 61 74 65 ┆); if monitor(40)create┆
0x8fbe0…8fc00 20 65 6e 74 72 79 3a 28 6f 75 74 70 75 74 2c 30 2c 69 61 29 3c 3e 30 20 00 00 00 00 00 00 00 00 ┆ entry:(output,0,ia)<>0 ┆
0x8fc00…8fc06 (1150,) (0x3ec,0x11f9)
0x8fc06…8fc20 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 ┆then error(<:c┆
0x8fc20…8fc40 72 65 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 ┆reate output area not possible:>┆
0x8fc40…8fc60 2c 0a 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 ┆, 4 shift 12 a┆
0x8fc60…8fc7e 64 64 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 ┆dd 10,outname) end ┆
0x8fc7e…8fc84 (0x3ec,0x11fa)
0x8fc84…8fca0 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 ┆ else begin m┆
0x8fca0…8fcc0 6f 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 ┆onitor(42)lookup entry:(output,0┆
0x8fcc0…8fce0 2c 69 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 ┆,ia); ia(6):=systime(7)┆
0x8fce0…8fcfc 73 68 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 ┆short clock:(0,0.0); ┆
0x8fcfc…8fd02 (0x3ec,0x11fb)
0x8fd02…8fd20 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 ┆ monitor(44)change entry:(out┆
0x8fd20…8fd40 70 75 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 ┆put,0,ia) end; if m┆
0x8fd40…8fd60 6f 6e 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 ┆onitor(52)create area process:(o┆
0x8fd60…8fd7a 75 74 70 75 74 2c 30 2c 69 61 29 3c 3e 30 20 74 68 65 6e 0a 20 20 20 20 20 20 ┆utput,0,ia)<>0 then ┆
0x8fd7a…8fd80 (0x3ec,0x11fc)
0x8fd80…8fda0 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 6e 6f 74 20 70 6f ┆ error(<:connect output not po┆
0x8fda0…8fdc0 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 20 73 68 69 66 74 ┆ssible:>, 4 shift┆
0x8fdc0…8fde0 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 3b 0a 0c 0a 20 20 ┆ 12 add 10,outname) end; ┆
0x8fde0…8fe00 20 70 72 6f 63 65 64 75 72 65 20 77 72 69 74 65 5f 74 72 61 6e 73 70 6f 00 00 00 00 00 00 00 00 ┆ procedure write_transpo ┆
0x8fe00…8fe06 (1151,) (0x3ec,0x11fd)
0x8fe06…8fe20 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 ┆rt(z); zone z; begin┆
0x8fe20…8fe40 0a 20 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 ┆ long l1,l2; l1:=ex┆
0x8fe40…8fe60 74 65 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 ┆tend 0 add transport.tr_baselow;┆
0x8fe60…8fe7e 0a 20 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┆
0x8fe7e…8fe84 (0x3ec,0x11fe)
0x8fe84…8fea0 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 ┆ort.tr_baseup; write(┆
0x8fea0…8fec0 7a 2c 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 ┆z,<:<10>base abs:>,<<_d>,l1,l2,<┆
0x8fec0…8fee0 3a 20 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 ┆: ;:>, <<_-d>,l1┆
0x8fee0…8fefc 20 65 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 ┆ extract 24,l2 extract 24); ┆
0x8fefc…8ff02 (0x3ec,0x11ff)
0x8ff02…8ff20 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 ┆ write(z,<:<10>filexfer ┆
0x8ff20…8ff40 3a 3e 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 ┆:>,transport.tr_sname, ┆
0x8ff40…8ff60 20 20 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 ┆ <: :>,transport.tr_rname)┆
0x8ff60…8ff7a 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 75 ┆; if transport.tr_u┆
0x8ff7a…8ff80 (0x3ec,0x1200)
0x8ff80…8ffa0 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 69 74 65 28 7a 2c ┆ser(1)<>0 then write(z,┆
0x8ffa0…8ffc0 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 65 72 29 3b 0a 0a ┆<: user.:>,transport.tr_user); ┆
0x8ffc0…8ffe0 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 28 31 29 3c 3e 30 ┆ if transport.tr_name(1)<>0┆
0x8ffe0…90000 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 77 72 69 74 65 28 7a 2c 3c 00 00 00 00 00 00 00 00 ┆ then write(z,< ┆
0x90000…90006 (1152,) (0x3ec,0x1201)
0x90006…90020 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 ┆: name.:>,transport.tr_nam┆
0x90020…90040 65 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 71 67 72 6f 75 ┆e); if transport.tr_qgrou┆
0x90040…90060 70 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 3a ┆p(1)<>0 then write(z,<:┆
0x90060…9007e 20 71 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 ┆ queue.:>,transport.tr_qgroup,┆
0x9007e…90084 (0x3ec,0x1202)
0x90084…900a0 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 ┆ <:.:>,tr┆
0x900a0…900c0 61 6e 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 ┆ansport.tr_qname); write(┆
0x900c0…900e0 7a 2c 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 ┆z,<:<10>:>) end; proced┆
0x900e0…900fc 75 72 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 ┆ure show_error(z,i); valu┆
0x900fc…90102 (0x3ec,0x1203)
0x90102…90120 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 ┆e i; zone z; integer i; beg┆
0x90120…90140 69 6e 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 ┆in write(z,<:***savetrans ┆
0x90140…90160 3a 3e 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 ┆:>,case i of( if rar┆
0x90160…9017a 72 28 31 29 3d 33 20 74 68 65 6e 20 3c 3a 6d 69 73 73 69 6e 67 20 72 65 73 6f ┆r(1)=3 then <:missing reso┆
0x9017a…90180 (0x3ec,0x1204)
0x90180…901a0 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 20 20 20 65 6c 73 ┆urces in primo:> els┆
0x901a0…901c0 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 65 72 20 74 72 6f ┆e if rarr(1)=5 then <:sender tro┆
0x901c0…901e0 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 20 20 20 20 20 20 ┆ubles:> ┆
0x901e0…90200 20 20 20 20 20 20 65 6c 73 65 20 3c 3a 72 65 63 65 69 76 65 72 20 74 72 00 00 00 00 00 00 00 00 ┆ else <:receiver tr ┆
0x90200…90206 (1153,) (0x3ec,0x1205)
0x90206…90220 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 ┆oubles:>, <:re┆
0x90220…90240 6a 65 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 ┆jected:>, <:unintell┆
0x90240…90260 69 67 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 ┆igible:>, <:primo ma┆
0x90260…9027e 6c 66 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 ┆lfunction:>, <:pri┆
0x9027e…90284 (0x3ec,0x1206)
0x90284…902a0 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 ┆mo does not exist:>, ┆
0x902a0…902c0 20 20 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 ┆ <:buffer claim exceeded:>, ┆
0x902c0…902e0 20 20 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 ┆ <:illegal action ???┆
0x902e0…902fc 3a 3e 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┆
0x902fc…90302 (0x3ec,0x1207)
0x90302…90320 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 ┆eng or rleng ???:>, ┆
0x90320…90340 20 20 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 ┆ <:criterion type illegal:>, ┆
0x90340…90360 20 20 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 ┆ <:set catalog base, il┆
0x90360…9037a 6c 65 67 61 6c 20 62 61 73 65 73 3a 3e 29 2c 0a 20 20 20 20 20 20 20 20 20 20 ┆legal bases:>), ┆
0x9037a…90380 (0x3ec,0x1208)
0x90380…903a0 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 32 20 61 6e 64 20 ┆ <:<10>:>); if i>=2 and ┆
0x903a0…903c0 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 20 20 20 20 20 77 ┆i<=8 then begin w┆
0x903c0…903e0 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 6c 20 65 72 72 6f ┆rite(z,<:***savetrans fatal erro┆
0x903e0…90400 72 3c 31 30 3e 3a 3e 29 3b 0a 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 00 00 00 00 00 00 00 00 ┆r<10>:>); goto ┆
0x90400…90406 (1154,) (0x3ec,0x1209)
0x90406…90420 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 ┆stop end end; ┆
0x90420…90440 20 20 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 ┆ procedure start_transport(z);┆
0x90440…90460 0a 20 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 ┆ zone z; begin for ┆
0x90460…9047e 69 3a 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 ┆i:=7, 8, 13 step 1 until 20, 2┆
0x9047e…90484 (0x3ec,0x120a)
0x90484…904a0 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 ┆5, 30, 39 do carr(i┆
0x904a0…904c0 29 3a 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 ┆):=-1; for i:=1, 2 do ┆
0x904c0…904e0 20 20 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 ┆ begin carr.tname(i):┆
0x904e0…904fc 3d 74 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 ┆=transport.tr_name(i); ┆
0x904fc…90502 (0x3ec,0x120b)
0x90502…90520 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 ┆ carr.uname(i):=transport.t┆
0x90520…90540 72 5f 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 ┆r_user(i); carr.sname(i┆
0x90540…90560 29 3a 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 ┆):=transport.tr_sname(i); ┆
0x90560…9057a 20 20 20 63 61 72 72 2e 72 6e 61 6d 65 28 69 29 3a 3d 74 72 61 6e 73 70 6f 72 ┆ carr.rname(i):=transpor┆
0x9057a…90580 (0x3ec,0x120c)
0x90580…905a0 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 72 72 2e 67 6e 61 ┆t.tr_rname(i); carr.gna┆
0x905a0…905c0 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 28 69 29 3b 0a 20 ┆me(i):=transport.tr_qgroup(i); ┆
0x905c0…905e0 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 6e 73 70 6f 72 74 ┆ carr.qname(i):=transport┆
0x905e0…90600 2e 74 72 5f 71 6e 61 6d 65 28 69 29 0a 20 20 20 20 20 20 65 6e 64 3b 0a 00 00 00 00 00 00 00 00 ┆.tr_qname(i) end; ┆
0x90600…90606 (1155,) (0x3ec,0x120d)
0x90606…90620 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 ┆ if transport.tr_qgr┆
0x90620…90640 6f 75 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 ┆oup(1)<>0 then carr(30)┆
0x90640…90660 3a 3d 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 ┆:=0; base(1):=transport.t┆
0x90660…9067e 72 5f 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 ┆r_baselow; base(2):=tran┆
0x9067e…90684 (0x3ec,0x120e)
0x90684…906a0 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 ┆sport.tr_baseup; i:=mo┆
0x906a0…906c0 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 61 74 62 61 ┆nitor(72)set catalog base:(catba┆
0x906c0…906e0 73 65 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 ┆se,0,base); if i<>0 then i┆
0x906e0…906fc 3a 3d 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┆
0x906fc…90702 (0x3ec,0x120f)
0x90702…90720 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 ┆ransfer(2)define transport:(ca┆
0x90720…90740 72 72 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 ┆rr,39,rarr,11); if i=0 and┆
0x90740…90760 20 72 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 ┆ rarr(1)<>0 then i:=1; if┆
0x90760…9077a 20 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 ┆ i<>0 then begin ┆
0x9077a…90780 (0x3ec,0x1210)
0x90780…907a0 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 65 5f 74 72 61 6e ┆ if -, list then write_tran┆
0x907a0…907c0 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 72 6f 72 28 7a 2c ┆sport(z); show_error(z,┆
0x907c0…907e0 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 20 20 20 20 62 65 ┆i) end else be┆
0x907e0…90800 67 69 6e 0a 20 20 20 20 20 20 20 20 20 66 6f 72 20 69 3a 3d 33 20 73 74 00 00 00 00 00 00 00 00 ┆gin for i:=3 st ┆
0x90800…90806 (1156,) (0x3ec,0x1211)
0x90806…90820 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 ┆ep 1 until 7 do rarr(i):=-┆
0x90820…90840 31 3b 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 ┆1; transfer(8)release t┆
0x90840…90860 72 61 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 ┆ransport:(rarr,7,carr,16) ┆
0x90860…9087e 65 6e 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 ┆end end; <* start transpor┆
0x9087e…90884 (0x3ec,0x1212)
0x90884…908a0 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 ┆t *> procedure read_par┆
0x908a0…908c0 61 6d 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 ┆ams; begin real array p┆
0x908c0…908e0 61 72 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 ┆aram(1:2); integer i,j; ┆
0x908e0…908fc 20 20 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┆
0x908fc…90902 (0x3ec,0x1213)
0x90902…90920 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 ┆; i:=system(4,1,param); ┆
0x90920…90940 20 20 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 ┆ if i shift (-12)=6 then <*┆
0x90940…90960 20 6c 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 ┆ left hand side *> begin ┆
0x90960…9097a 20 20 20 20 20 20 20 20 6a 3a 3d 32 3b 0a 20 20 20 20 20 20 20 20 20 6f 75 74 ┆ j:=2; out┆
0x9097a…90980 (0x3ec,0x1214)
0x90980…909a0 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 2c 30 2c 70 61 72 ┆p:=true; system(4,0,par┆
0x909a0…909c0 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 70 61 72 61 6d 28 ┆am); outname(1):=param(┆
0x909c0…909e0 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 61 72 61 6d 28 32 ┆1); outname(2):=param(2┆
0x909e0…90a00 29 0a 20 20 20 20 20 20 65 6e 64 20 65 6c 73 65 0a 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆) end else ┆
0x90a00…90a06 (1157,) (0x3ec,0x1215)
0x90a06…90a20 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 ┆ outp:=false; i:=s┆
0x90a20…90a40 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 69 3c 3e 34 20 ┆ystem(4,j,param); if i<>4 ┆
0x90a40…90a60 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 65 78 74 3e 20 2a 3e ┆shift 12 add 10 <* <sp><text> *>┆
0x90a60…90a7e 20 74 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 ┆ then error(if i=0 th┆
0x90a7e…90a84 (0x3ec,0x1216)
0x90a84…90aa0 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 ┆en <:no input file:> else <:┆
0x90aa0…90ac0 70 61 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 ┆param:>,i,param); inname(1┆
0x90ac0…90ae0 29 3a 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 ┆):=param(1); inname(2):=pa┆
0x90ae0…90afc 72 61 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 ┆ram(2); j:=j+1; ┆
0x90afc…90b02 (0x3ec,0x1217)
0x90b02…90b20 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 ┆ i:=system(4,j,param); i┆
0x90b20…90b40 66 20 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 ┆f i<>0 then begin ┆
0x90b40…90b60 20 69 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 ┆ if i<>4 shift 12 add 10 <* <sp>┆
0x90b60…90b7a 3c 74 65 78 74 3e 20 2a 3e 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 ┆<text> *> then ┆
0x90b7a…90b80 (0x3ec,0x1218)
0x90b80…90ba0 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 0a 20 20 20 20 20 ┆ error(<:param:>,i,param); ┆
0x90ba0…90bc0 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 73 74 3a 3e 20 74 ┆ if param(1)<>real <:list:> t┆
0x90bc0…90be0 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 6c 65 67 61 6c 20 ┆hen error(<:illegal ┆
0x90be0…90c00 70 61 72 61 6d 65 74 65 72 20 6e 61 6d 65 3a 3e 2c 69 2c 70 61 72 61 6d 00 00 00 00 00 00 00 00 ┆parameter name:>,i,param ┆
0x90c00…90c06 (1158,) (0x3ec,0x1219)
0x90c06…90c20 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 ┆); i:=system(4,j+┆
0x90c20…90c40 31 2c 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 ┆1,param); if i<>8 shift┆
0x90c40…90c60 20 31 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 ┆ 12 add 10 <* .<text> *> then ┆
0x90c60…90c7e 20 20 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┆
0x90c7e…90c84 (0x3ec,0x121a)
0x90c84…90ca0 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 ┆ram); list:=param(1┆
0x90ca0…90cc0 29 3d 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 ┆)=real <:yes:> end end┆
0x90cc0…90ce0 3b 20 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 ┆; <* read params *> procedu┆
0x90ce0…90cfc 72 65 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 ┆re do_it(z); zone z; ┆
0x90cfc…90d02 (0x3ec,0x121b)
0x90d02…90d20 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 ┆ while getrec(transport,82) ┆
0x90d20…90d40 64 6f 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 ┆do if transport.tr_remo┆
0x90d40…90d60 76 65 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 ┆vetime>8388605 then <* not execu┆
0x90d60…90d7a 74 65 64 20 2a 3e 0a 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 ┆ted *> begin ┆
0x90d7a…90d80 (0x3ec,0x121c)
0x90d80…90da0 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 5f 74 72 61 6e 73 ┆ if list then write_trans┆
0x90da0…90dc0 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 5f 74 72 61 6e 73 ┆port(z); start_trans┆
0x90dc0…90de0 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 3c 2a 20 62 65 67 ┆port(z) end; <* beg┆
0x90de0…90e00 69 6e 20 6f 66 20 6d 61 69 6e 20 70 72 6f 67 72 61 6d 20 2a 3e 0a 0a 20 00 00 00 00 00 00 00 00 ┆in of main program *> ┆
0x90e00…90e06 (1159,) (0x3ec,0x121d)
0x90e06…90e20 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 ┆ init_fields; read_par┆
0x90e20…90e40 61 6d 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 ┆ams; open(catbase,0,<::>,0); ┆
0x90e40…90e60 3c 2a 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 ┆<* for set catalog base *> cl┆
0x90e60…90e7e 6f 73 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 ┆ose(catbase,true); <* save ┆
0x90e7e…90e84 (0x3ec,0x121e)
0x90e84…90ea0 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 ┆catalog bases of users proce┆
0x90ea0…90ec0 73 73 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 ┆ss *> system(11)bases:(0,ia);┆
0x90ec0…90ee0 0a 20 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 ┆ savedbase(1):=ia(1); save┆
0x90ee0…90efc 64 62 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 ┆dbase(2):=ia(2); if outp┆
0x90efc…90f02 (0x3ec,0x121f)
0x90f02…90f20 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 ┆ then connect_output; open┆
0x90f20…90f40 28 74 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 ┆(transport,4,inname,0); if mo┆
0x90f40…90f60 6e 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 74 72 ┆nitor(52)create area process:(tr┆
0x90f60…90f7a 61 6e 73 70 6f 72 74 2c 30 2c 69 61 29 3c 3e 30 20 74 68 65 6e 0a 20 20 20 20 ┆ansport,0,ia)<>0 then ┆
0x90f7a…90f80 (0x3ec,0x1220)
0x90f80…90fa0 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 74 20 70 6f 73 73 ┆ error(<:connect input not poss┆
0x90fa0…90fc0 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 6e 6e 61 6d 65 29 ┆ible:>,4 shift 12 add 10,inname)┆
0x90fc0…90fe0 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 75 74 70 75 74 29 ┆; if outp then do_it(output)┆
0x90fe0…91000 20 65 6c 73 65 20 64 6f 5f 69 74 28 6f 75 74 29 3b 0a 0a 73 74 6f 70 3a 00 00 00 00 00 00 00 00 ┆ else do_it(out); stop: ┆
0x91000…91006 (1160,) (0x3ec,0x1221)
0x91006…91020 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 ┆ if outp then begin ┆
0x91020…91040 20 20 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 ┆ outchar(output,25); ┆
0x91040…91060 63 6c 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 ┆close(output,false); getzo┆
0x91060…9107e 6e 65 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 ┆ne6(output,ia); i:=ia(9)┆
0x9107e…91084 (0x3ec,0x1222)
0x91084…910a0 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 ┆; monitor(42)lookup en┆
0x910a0…910c0 74 72 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 ┆try:(output,0,ia); ia(1):=┆
0x910c0…910e0 69 3b 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 ┆i; monitor(44)change entry┆
0x910e0…910fc 3a 28 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┆
0x910fc…91102 (0x3ec,0x1223)
0x91102…91120 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 ┆lose(transport,true); <* re┆
0x91120…91140 73 74 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 ┆store catalog base of users proc┆
0x91140…91160 65 73 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 ┆ess *> monitor(72)set catalog┆
0x91160…9117a 20 62 61 73 65 3a 28 63 61 74 62 61 73 65 2c 30 2c 73 61 76 65 64 62 61 73 65 ┆ base:(catbase,0,savedbase┆
0x9117a…91180 (0x3ec,0x1224)
0x91180…911a0 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 20 65 6e 64 20 6f ┆); trapmode:=-1 end ; end o┆
0x911a0…911c0 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 19 00 73 20 6f 66 ┆f file end ; utility end s of┆
0x911c0…911e0 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 6d 28 31 31 29 62 ┆ users process *> system(11)b┆
0x911e0…91200 61 73 65 73 3a 28 30 2c 69 61 29 3b 0a 20 20 20 73 61 76 65 64 62 61 73 00 00 00 00 00 00 00 00 ┆ases:(0,ia); savedbas ┆
0x91200…91206 (1161,) (0x3ec,0x1225)
0x91206…91220 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 ┆e(1):=ia(1); savedbase(┆
0x91220…91240 32 29 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 ┆2):=ia(2); if outp then conn┆
0x91240…91260 65 63 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 ┆ect_output; open(transport,4┆
0x91260…9127e 2c 69 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 ┆,inname,0); if monitor(52)c┆
0x9127e…91284 (0x3ec,0x1226)
0x91284…912a0 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 ┆reate area process:(transpor┆
0x912a0…912c0 74 2c 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 ┆t,0,ia)<>0 then error(<:co┆
0x912c0…912e0 6e 6e 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 ┆nnect input not possible:>,4 shi┆
0x912e0…912fc 66 74 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 ┆ft 12 add 10,inname); if┆
0x912fc…91302 (0x3ec,0x1227)
0x91302…91320 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 ┆ outp then do_it(output) else ┆
0x91320…91340 64 6f 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 ┆do_it(out); stop: if outp th┆
0x91340…91360 65 6e 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 ┆en begin outchar(output┆
0x91360…9137a 2c 32 35 29 3b 0a 20 20 20 20 20 20 63 6c 6f 73 65 28 6f 75 74 70 75 74 2c 66 ┆,25); close(output,f┆
0x9137a…91380 (0x3ec,0x1228)
0x91380…913a0 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 75 74 2c 69 61 29 ┆alse); getzone6(output,ia)┆
0x913a0…913c0 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 6e 69 74 6f 72 28 ┆; i:=ia(9); monitor(┆
0x913c0…913e0 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 61 29 3b 0a 20 ┆42)lookup entry:(output,0,ia); ┆
0x913e0…91400 20 20 20 20 20 69 61 28 31 29 3a 3d 69 3b 0a 20 20 20 20 20 20 6d 6f 6e 00 00 00 00 00 00 00 00 ┆ ia(1):=i; mon ┆
0x91400…91406 (1162,) (0x3ec,0x1229)
0x91406…91420 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 ┆itor(44)change entry:(outp┆
0x91420…91440 75 74 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 ┆ut,0,ia) end; close(trans┆
0x91440…91460 70 6f 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 ┆port,true); <* restore catalo┆
0x91460…9147e 67 20 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 ┆g base of users process *> ┆
0x9147e…91484 (0x3ec,0x122a)
0x91484…914a0 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 ┆monitor(72)set catalog base:┆
0x914a0…914c0 28 63 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 ┆(catbase,0,savedbase); trapmo┆
0x914c0…914e0 64 65 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 ┆de:=-1 end ; end of file end ┆
0x914e0…914fc 3b 20 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┆
0x914fc…91502 (0x450,0x122b)
0x91502…91520 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 ┆! *** tsos *** ;┆
0x91520…91540 0a 3b 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 ┆ ; ; swopping online system for ┆
0x91540…91560 65 78 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 ┆execution of a number of interac┆
0x91560…9157a 74 69 76 65 20 70 72 6f 63 65 73 73 65 73 0a 3b 20 69 6e 20 74 68 65 20 73 61 ┆tive processes ; in the sa┆
0x9157a…91580 (0x450,0x122c)
0x91580…915a0 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 73 65 20 33 2e 30 ┆me piece of core ; ; release 3.0┆
0x915a0…915c0 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 6e 2c 20 65 64 69 ┆ mar. 1982 knud christensen, edi┆
0x915c0…915e0 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 67 61 73 0a 3b 20 ┆th rosenberg, flemming biggas ; ┆
0x915e0…91600 72 65 6c 65 61 73 65 20 33 2e 31 20 61 75 67 2e 20 31 39 38 32 20 66 6c 00 00 00 00 00 00 00 00 ┆release 3.1 aug. 1982 fl ┆
0x91600…91606 (1163,) (0x450,0x122d)
0x91606…91620 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 ┆emming biggas ; release 3.┆
0x91620…91640 32 20 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 ┆2 apr. 1983 flemming biggas ; re┆
0x91640…91660 6c 65 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 ┆lease 3.3 aug. 1984 flemming big┆
0x91660…9167e 67 61 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 ┆gas ; release 4.0 aug. 1985 fl┆
0x9167e…91684 (0x450,0x122e)
0x91684…916a0 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 ┆emming biggas (mp release). ┆
0x916a0…916c0 3b 20 72 65 6c 65 61 73 65 20 35 2e 30 20 73 65 70 2e 20 31 39 38 36 20 66 6c 65 6d 6d 69 6e 67 ┆; release 5.0 sep. 1986 flemming┆
0x916c0…916e0 20 62 69 67 67 61 73 0a 21 0a 0a 6f 6e 6c 69 6e 65 73 79 73 74 65 6d 0a 62 65 67 69 6e 0a 20 20 ┆ biggas ! onlinesystem begin ┆
0x916e0…916fc 21 66 70 2e 6e 6f 3b 0a 20 20 21 62 72 61 6e 63 68 20 31 2c 32 3b 0a 20 20 21 73 65 ┆!fp.no; !branch 1,2; !se┆
0x916fc…91702 (0x450,0x122f)
0x91702…91720 63 74 69 6f 6e 73 20 34 30 3b 0a 0a 70 72 6f 63 65 64 75 72 65 20 70 72 65 70 61 72 65 28 ┆ctions 40; procedure prepare(┆
0x91720…91740 2e 77 33 2e 29 3b 0a 63 6f 6d 6d 65 6e 74 20 70 72 65 70 61 72 65 20 70 72 6f 63 65 73 73 20 74 ┆.w3.); comment prepare process t┆
0x91740…91760 6f 20 62 65 20 61 63 74 69 76 61 74 65 64 3b 0a 0a 70 72 6f 63 65 64 75 72 65 20 77 61 69 74 65 ┆o be activated; procedure waite┆
0x91760…9177a 76 65 6e 74 28 2e 77 33 2e 3b 77 30 3b 77 31 3b 77 32 29 3b 0a 63 6f 6d 6d 65 ┆vent(.w3.;w0;w1;w2); comme┆
0x9177a…91780 (0x450,0x1230)
0x91780…917a0 6e 74 20 63 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 20 20 ┆nt call: w0 irrelevant ┆
0x917a0…917c0 20 20 20 20 20 20 20 20 20 77 31 20 69 72 72 65 6c 65 76 61 6e 74 0a 20 20 20 20 20 20 20 20 20 ┆ w1 irrelevant ┆
0x917c0…917e0 20 20 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 ┆ w2 irrelevant ret┆
0x917e0…91800 75 72 6e 3a 20 77 30 20 65 76 65 6e 74 20 6b 69 6e 64 0a 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆urn: w0 event kind ┆
0x91800…91806 (1164,) (0x450,0x1231)
0x91806…91820 20 20 20 20 20 20 20 20 20 20 20 77 31 20 61 62 73 20 72 65 66 20 75 73 65 72 ┆ w1 abs ref user┆
0x91820…91840 65 6e 74 72 79 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 66 ┆entry w2 abs ref┆
0x91840…91860 20 65 76 65 6e 74 62 75 66 66 65 72 0a 3b 0a 0a 70 72 6f 63 65 64 75 72 65 20 75 6e 69 6e 74 65 ┆ eventbuffer ; procedure uninte┆
0x91860…9187e 6c 6c 69 67 69 62 6c 65 28 2e 77 33 2e 3b 77 31 29 3b 0a 63 6f 6d 6d 65 6e 74 20 63 61 6c ┆lligible(.w3.;w1); comment cal┆
0x9187e…91884 (0x450,0x1232)
0x91884…918a0 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 0a 20 20 ┆l: w1 abs ref userentry ┆
0x918a0…918c0 20 20 20 20 20 20 72 65 74 75 72 6e 3a 20 61 6c 6c 20 72 65 67 69 73 74 65 72 73 20 75 6e 63 68 ┆ return: all registers unch┆
0x918c0…918e0 61 6e 67 65 64 0a 3b 0a 0a 70 72 6f 63 65 64 75 72 65 20 73 65 6e 64 5f 70 72 69 6d 6f 28 2e 77 ┆anged ; procedure send_primo(.w┆
0x918e0…918fc 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 20 ┆3.;w1;w2); comment call: ┆
0x918fc…91902 (0x450,0x1233)
0x91902…91920 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 ┆w1 abs ref userentry ┆
0x91920…91940 20 20 20 20 20 20 20 20 77 32 20 61 62 73 20 72 65 66 20 6d 65 73 73 61 67 65 20 73 65 6e 74 20 ┆ w2 abs ref message sent ┆
0x91940…91960 74 6f 20 70 73 65 75 64 6f 20 70 72 6f 63 65 73 73 20 70 72 69 6d 6f 0a 20 20 20 20 20 20 20 20 ┆to pseudo process primo ┆
0x91960…9197a 72 65 74 75 72 6e 3a 20 20 77 31 20 61 62 73 20 72 65 66 20 75 73 65 72 65 6e ┆return: w1 abs ref useren┆
0x9197a…91980 (0x450,0x1234)
0x91980…919a0 74 72 79 0a 20 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 66 20 ┆try w2 abs ref ┆
0x919a0…919c0 6d 65 73 73 61 67 65 20 73 65 6e 74 20 74 6f 20 70 72 69 6d 6f 20 28 72 65 61 6c 20 70 72 6f 63 ┆message sent to primo (real proc┆
0x919c0…919e0 65 73 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 ┆ess) w3 old w2 ┆
0x919e0…91a00 28 66 72 6f 6d 20 63 61 6c 6c 29 0a 3b 0a 0a 70 72 6f 63 65 64 75 72 65 00 00 00 00 00 00 00 00 ┆(from call) ; procedure ┆
0x91a00…91a06 (1165,) (0x450,0x1235)
0x91a06…91a20 20 70 72 69 6d 65 73 73 28 2e 77 33 2e 29 3b 0a 0a 0a 70 72 6f 63 65 64 75 72 ┆ primess(.w3.); procedur┆
0x91a20…91a40 65 20 73 65 6e 64 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 ┆e send(.w3.;w0;w1;w2); comment c┆
0x91a40…91a60 61 6c 6c 3a 20 20 20 77 30 20 6b 69 6e 64 20 6f 66 20 65 76 65 6e 74 20 74 6f 20 62 65 20 73 65 ┆all: w0 kind of event to be se┆
0x91a60…91a7e 6e 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 72 65 66 20 ┆nd w1 abs ref ┆
0x91a7e…91a84 (0x450,0x1236)
0x91a84…91aa0 75 73 65 72 65 6e 74 72 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 32 ┆userentry w2┆
0x91aa0…91ac0 20 66 69 72 73 74 20 77 6f 72 64 20 6f 66 20 6d 65 73 73 61 67 65 20 6f 72 20 61 6e 73 77 65 72 ┆ first word of message or answer┆
0x91ac0…91ae0 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 72 ┆ return: -- all register┆
0x91ae0…91afc 73 20 75 6e 63 68 61 6e 67 65 64 0a 3b 0a 70 72 6f 63 65 64 75 72 65 20 61 63 74 69 ┆s unchanged ; procedure acti┆
0x91afc…91b02 (0x450,0x1237)
0x91b02…91b20 6f 6e 20 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 ┆on (.w3.;w0;w1;w2); comment ca┆
0x91b20…91b40 6c 6c 3a 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 20 20 ┆ll: w1 abs ref userentry ┆
0x91b40…91b60 20 20 20 20 20 20 20 20 20 20 20 20 20 77 32 20 61 62 73 20 72 65 66 20 65 76 65 6e 74 0a 20 20 ┆ w2 abs ref event ┆
0x91b60…91b7a 20 20 20 20 20 20 72 65 74 75 72 6e 3a 20 20 2d 2d 20 61 6c 6c 20 72 65 67 69 ┆ return: -- all regi┆
0x91b7a…91b80 (0x450,0x1238)
0x91b80…91ba0 73 74 65 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 20 73 65 ┆sters unchanged ; procedure se┆
0x91ba0…91bc0 6e 64 5f 63 6f 6e 74 72 6f 6c 20 28 2e 77 33 2e 3b 77 31 3b 77 32 29 3b 0a 63 6f 6d 6d 65 6e 74 ┆nd_control (.w3.;w1;w2); comment┆
0x91bc0…91be0 20 63 61 6c 6c 3a 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 ┆ call: w1 abs ref userentry ┆
0x91be0…91c00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 32 20 61 62 73 20 72 00 00 00 00 00 00 00 00 ┆ w2 abs r ┆
0x91c00…91c06 (1166,) (0x450,0x1239)
0x91c06…91c20 65 66 20 63 6f 6e 74 72 6f 6c 20 6d 65 73 73 61 67 65 0a 20 20 20 20 20 20 20 ┆ef control message ┆
0x91c20…91c40 20 72 65 74 75 72 6e 3a 20 20 2d 2d 20 61 6c 6c 20 72 65 67 69 73 74 65 72 73 20 75 6e 63 68 61 ┆ return: -- all registers uncha┆
0x91c40…91c60 6e 67 65 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 ┆nged ; procedure link(.w3.;w1;w┆
0x91c60…91c7e 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 72 65 66 ┆2); comment call: w1 abs ref┆
0x91c7e…91c84 (0x450,0x123a)
0x91c84…91ca0 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 ┆ userentry to be linked ┆
0x91ca0…91cc0 20 20 20 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 ┆ w2 abs ref userentry┆
0x91cc0…91ce0 20 61 66 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 ┆ after which to link w1 ┆
0x91ce0…91cfc 72 65 74 75 72 6e 3a 20 77 31 20 75 6e 63 68 61 6e 67 65 64 0a 20 20 20 20 20 20 20 ┆return: w1 unchanged ┆
0x91cfc…91d02 (0x450,0x123b)
0x91d02…91d20 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 70 72 6f 63 65 ┆ w2 unchanged ; proce┆
0x91d20…91d40 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 20 63 61 6c 6c ┆dure swop(.w3.;w1); comment call┆
0x91d40…91d60 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 20 70 72 6f 63 ┆: w1 abs ref userentry of proc┆
0x91d60…91d7a 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 20 ┆ess to be swopped in ┆
0x91d7a…91d80 (0x450,0x123c)
0x91d80…91da0 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 70 72 6f 63 65 ┆ return: w1 unchanged ; proce┆
0x91da0…91dc0 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 6f 6d 6d 65 6e ┆dure copy(.w3.;w0;w1;w2); commen┆
0x91dc0…91de0 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 20 63 6f 70 79 ┆t call: w0 no of bytes to copy┆
0x91de0…91e00 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 31 20 61 62 73 20 00 00 00 00 00 00 00 00 ┆ w1 abs ┆
0x91e00…91e06 (1167,) (0x450,0x123d)
0x91e06…91e20 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 ┆from w2 ab┆
0x91e20…91e40 73 20 74 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 ┆s to return: -- all regi┆
0x91e40…91e60 73 74 65 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 ┆sters unchanged ; procedure sta┆
0x91e60…91e7e 72 74 73 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 61 ┆rtstop(.w3.;w0;w1); comment ca┆
0x91e7e…91e84 (0x450,0x123e)
0x91e84…91ea0 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 ┆ll: w0 boolean stop or sta┆
0x91ea0…91ec0 72 74 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 31 20 61 62 ┆rt process w1 ab┆
0x91ec0…91ee0 73 20 72 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 ┆s ref userentry of process to st┆
0x91ee0…91efc 61 72 74 2d 73 74 6f 70 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 3a 20 2d 2d 20 ┆art-stop return: -- ┆
0x91efc…91f02 (0x450,0x123f)
0x91f02…91f20 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 ┆all registers unchanged ; pro┆
0x91f20…91f40 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 29 3b 0a 63 6f ┆cedure transport(.w2.;w1;w3); co┆
0x91f40…91f60 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 73 73 61 67 65 ┆mment call: w1 abs ref message┆
0x91f60…91f7a 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 20 ┆ to be send ┆
0x91f7a…91f80 (0x450,0x1240)
0x91f80…91fa0 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 20 20 20 20 72 ┆ w3 abs ref area name r┆
0x91fa0…91fc0 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┆
0x91fc0…91fe0 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 77 33 2e 3b 77 ┆d ; procedure parentmess(.w3.;w┆
0x91fe0…92000 31 3b 77 32 29 3b 0a 63 6f 6d 6d 65 6e 74 20 63 61 6c 6c 3a 20 20 20 77 00 00 00 00 00 00 00 00 ┆1;w2); comment call: w ┆
0x92000…92006 (1168,) (0x450,0x1241)
0x92006…92020 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 ┆1 abs ref userentry of sen┆
0x92020…92040 64 69 6e 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 ┆ding process w2 ┆
0x92040…92060 61 62 73 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 ┆abs ref message buffer r┆
0x92060…9207e 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 ┆eturn: -- all registers unchan┆
0x9207e…92084 (0x450,0x1242)
0x92084…920a0 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 ┆ged ; procedure syscommand(┆
0x920a0…920c0 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┆
0x920c0…920e0 20 72 65 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 ┆ ref userentry of commanding use┆
0x920e0…920fc 72 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 ┆r return: -- all reg┆
0x920fc…92102 (0x450,0x1243)
0x92102…92120 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 64 75 72 65 20 ┆isters unchanged ; procedure ┆
0x92120…92140 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 6d 65 6e 74 20 ┆scancat(.w3.;w0;w1;w2); comment ┆
0x92140…92160 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 65 73 73 20 6e ┆call: w1 abs ref process n┆
0x92160…9217a 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 20 ┆ame w2 ┆
0x9217a…92180 (0x450,0x1244)
0x92180…921a0 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 65 72 6f 0a 20 ┆ abs ref terminal name or zero ┆
0x921a0…921c0 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 74 20 20 2d 33 ┆ return: w0 result -3┆
0x921c0…921e0 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 72 0a 20 20 20 ┆ = usercat reservation error ┆
0x921e0…92200 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 ┆ ┆
0x92200…92206 (1169,) (0x450,0x1245)
0x92206…92220 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 ┆ -2 = terminal unknown ┆
0x92220…92240 20 20 20 20 20 20 20 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 ┆ -┆
0x92240…92260 31 20 3d 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 ┆1 = process unknown ┆
0x92260…9227e 20 20 20 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 61 ┆ >=0 = ok (ca┆
0x9227e…92284 (0x450,0x1246)
0x92284…922a0 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 ┆talog segm.no) ┆
0x922a0…922c0 20 20 20 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 ┆ w1 abs ref process descri┆
0x922c0…922e0 70 74 69 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 ┆ption w2 abs┆
0x922e0…922fc 20 72 65 66 20 74 65 72 6d 69 6e 61 6c 20 64 65 73 63 72 69 70 74 69 6f 6e 20 6f 72 ┆ ref terminal description or┆
0x922fc…92302 (0x450,0x1247)
0x92302…92320 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 2e 77 33 2e 3b ┆ zero ; procedure break(.w3.;┆
0x92320…92340 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 62 73 20 72 65 ┆w1); comment call: w1 abs re┆
0x92340…92360 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 20 20 72 65 74 ┆f userentry to break ret┆
0x92360…9237a 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 6e ┆urn: -- all registers un┆
0x9237a…92380 (0x450,0x1248)
0x92380…923a0 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 2e 77 33 2e 3b ┆changed ; procedure clean(.w3.;┆
0x923a0…923c0 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 66 20 ┆w1); comment call: w1 abs ref ┆
0x923c0…923e0 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 2d 20 61 6c 6c ┆userentry return: -- all┆
0x923e0…92400 20 72 65 67 69 73 74 65 72 73 20 75 6e 63 68 61 6e 67 65 64 0a 3b 0a 0a 00 00 00 00 00 00 00 00 ┆ registers unchanged ; ┆
0x92400…92406 (1170,) (0x450,0x1249)
0x92406…92420 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 ┆procedure compare(.w3.;w0;┆
0x92420…92440 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 6e 6f 20 6f 66 ┆w1;w2); comment call: w0 no of┆
0x92440…92460 20 62 79 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 ┆ bytes to compare ┆
0x92460…9247e 20 20 77 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 20 ┆ w1 abs 1.string ┆
0x9247e…92484 (0x450,0x124a)
0x92484…924a0 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 ┆ w2 abs 2.string ┆
0x924a0…924c0 72 65 74 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 ┆return: w0 = 0 the bytes are equ┆
0x924c0…924e0 61 6c 0a 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 ┆al ; procedure nextchar(.w3.;wo┆
0x924e0…924fc 72 64 20 73 74 70 3b 77 30 3b 77 31 3b 77 32 29 3b 0a 63 6f 6d 6d 65 6e 74 20 63 61 ┆rd stp;w0;w1;w2); comment ca┆
0x924fc…92502 (0x450,0x124b)
0x92502…92520 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 20 20 20 20 20 ┆ll: w0 irrelevant ┆
0x92520…92540 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 20 20 20 20 20 ┆ w1 partial word ┆
0x92540…92560 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 20 77 6f 72 64 ┆ w2 abs ref next input word┆
0x92560…9257a 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 6e ┆ w3 return┆
0x9257a…92580 (0x450,0x124c)
0x92580…925a0 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 66 20 77 6f 72 ┆ stp abs ref wor┆
0x925a0…925c0 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 20 20 20 20 20 ┆d next to last input word ┆
0x925c0…925e0 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 0a 20 20 20 20 ┆ return: w0 next character ┆
0x925e0…92600 20 20 20 20 20 20 20 20 20 20 20 20 77 31 20 70 61 72 74 69 61 6c 20 77 00 00 00 00 00 00 00 00 ┆ w1 partial w ┆
0x92600…92606 (1171,) (0x450,0x124d)
0x92606…92620 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 ┆ord w2 abs┆
0x92620…92640 20 72 65 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 ┆ ref next input word ; procedur┆
0x92640…92660 65 20 69 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 ┆e init(.w3.); comment call: --┆
0x92660…9267e 20 61 6c 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 20 ┆ all registers irrelevant ┆
0x9267e…92684 (0x450,0x124e)
0x92684…926a0 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 ┆ return: -- all registers┆
0x926a0…926c0 20 64 65 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 ┆ destroyed ; procedure opmess(.┆
0x926c0…926e0 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 77 31 20 61 ┆w3.;w1;w2); comment call: w1 a┆
0x926e0…926fc 62 73 20 72 65 66 20 6d 65 73 73 61 67 65 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆bs ref message, ┆
0x926fc…92702 (0x450,0x124f)
0x92702…92720 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 63 65 73 73 20 ┆ w2 abs ref sender process ┆
0x92720…92740 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 67 6f 75 74 28 ┆description ; procedure logout(┆
0x92740…92760 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┆
0x92760…9277a 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 ┆ ref userentry ret┆
0x9277a…92780 (0x450,0x1250)
0x92780…927a0 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 61 69 6e 20 70 ┆urn: -- jumps directly to main p┆
0x927a0…927c0 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 28 2e 77 33 2e ┆rogram ; procedure outtext(.w3.┆
0x927c0…927e0 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 20 77 30 20 66 ┆;w0;w1;w2); comment call: w0 f┆
0x927e0…92800 6f 72 6d 61 74 20 70 61 74 74 65 72 6e 3a 0a 20 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ormat pattern: ┆
0x92800…92806 (1172,) (0x450,0x1251)
0x92806…92820 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 ┆ bits 21-23: type┆
0x92820…92840 20 6f 66 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 ┆ of message ┆
0x92840…92860 20 20 20 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 ┆ 0 = normal ┆
0x92860…9287e 20 20 20 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 72 ┆ 1 = error┆
0x9287e…92884 (0x450,0x1252)
0x92884…928a0 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 ┆ ┆
0x928a0…928c0 20 20 20 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 ┆ 2 = warning ┆
0x928c0…928e0 20 20 20 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 ┆ 3 = pending ┆
0x928e0…928fc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 34 20 ┆ 4 ┆
0x928fc…92902 (0x450,0x1253)
0x92902…92920 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 20 20 20 62 69 ┆= normal bi┆
0x92920…92940 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 20 20 20 20 20 ┆t 20: time (yes or no) ┆
0x92940…92960 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 79 73 74 65 6d ┆ bit 19: system┆
0x92960…9297a 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 20 ┆ name (yes or no) ┆
0x9297a…92980 (0x450,0x1254)
0x92980…929a0 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 6e 61 6d 65 20 ┆ bit 18: job name ┆
0x929a0…929c0 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 20 77 31 20 61 ┆(yes or no) w1 a┆
0x929c0…929e0 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 20 20 20 ┆bs ref userentry ┆
0x929e0…92a00 20 77 32 20 74 65 78 74 20 6e 75 6d 62 65 72 0a 20 20 20 20 20 20 20 20 00 00 00 00 00 00 00 00 ┆ w2 text number ┆
0x92a00…92a06 (1173,) (0x450,0x1255)
0x92a06…92a20 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 ┆return: -- all registers ┆
0x92a20…92a40 75 6e 63 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 ┆unchanged ; procedure outtime(.┆
0x92a40…92a60 77 33 2e 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 ┆w3.;w2); comment call: w2 abs ┆
0x92a60…92a7e 72 65 66 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 20 ┆ref buffer return: -- ┆
0x92a7e…92a84 (0x450,0x1256)
0x92a84…92aa0 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┆
0x92aa0…92ac0 72 6f 63 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 ┆rocedure calldev(.w3.;w1); comme┆
0x92ac0…92ae0 6e 74 20 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 ┆nt call: w1 abs ref string1 ┆
0x92ae0…92afc 20 20 20 20 20 20 72 65 74 75 72 6e 3a 20 77 31 20 61 62 73 20 72 65 66 20 65 72 72 ┆ return: w1 abs ref err┆
0x92afc…92b02 (0x450,0x1257)
0x92b02…92b20 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 63 65 64 75 72 ┆or message or zero ; procedur┆
0x92b20…92b40 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 6f 6d 6d 65 6e ┆e testout(.w3.;w0;w1;w2); commen┆
0x92b40…92b60 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 72 65 63 6f 72 ┆t call: w0 length of testrecor┆
0x92b60…92b7a 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 72 ┆d w1 abs r┆
0x92b7a…92b80 (0x450,0x1258)
0x92b80…92ba0 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 20 20 20 20 20 ┆ef first word of record ┆
0x92ba0…92bc0 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 72 64 0a 20 20 ┆ w2 kind of testrecord ┆
0x92bc0…92be0 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 20 20 20 20 20 ┆ return: w0 destroyed ┆
0x92be0…92c00 20 20 20 20 20 20 20 20 20 20 20 77 31 20 75 6e 63 68 61 6e 67 65 64 0a 00 00 00 00 00 00 00 00 ┆ w1 unchanged ┆
0x92c00…92c06 (1174,) (0x450,0x1259)
0x92c06…92c20 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 ┆ w2 unchang┆
0x92c20…92c40 65 64 0a 3b 0a 0a 20 20 20 20 6c 61 62 65 6c 20 63 6f 6e 74 69 6e 75 65 2c 20 69 6e 74 65 72 72 ┆ed ; label continue, interr┆
0x92c40…92c60 75 70 74 2c 20 69 6e 69 74 69 61 6c 69 7a 65 2c 20 61 63 74 69 6f 6e 5f 6c 2c 20 61 63 74 69 76 ┆upt, initialize, action_l, activ┆
0x92c60…92c7e 61 74 65 2c 20 72 65 67 72 65 74 74 69 6d 65 72 2c 20 64 69 73 63 66 61 75 6c 74 3b 0a 0a ┆ate, regrettimer, discfault; ┆
0x92c7e…92c84 (0x450,0x125a)
0x92c84…92ca0 20 20 72 65 63 6f 72 64 20 6e 61 6d 65 20 28 64 6f 75 62 6c 65 20 6e 61 6d 65 31 2c ┆ record name (double name1,┆
0x92ca0…92cc0 6e 61 6d 65 32 29 3b 0a 20 20 72 65 63 6f 72 64 20 61 6e 73 77 65 72 20 28 77 6f 72 64 20 73 74 ┆name2); record answer (word st┆
0x92cc0…92ce0 61 74 75 73 2c 62 79 74 65 73 2c 63 68 61 72 61 63 74 65 72 73 29 3b 0a 20 20 72 65 63 6f 72 64 ┆atus,bytes,characters); record┆
0x92ce0…92cfc 20 6d 65 73 73 61 67 65 20 28 72 65 66 20 20 6e 65 78 74 6d 65 73 73 2c 6c 61 73 74 ┆ message (ref nextmess,last┆
0x92cfc…92d02 (0x450,0x125b)
0x92d02…92d20 6d 65 73 73 2c 72 65 63 65 69 76 65 72 2c 73 65 6e 64 65 72 3b 0a 20 20 20 20 20 20 20 20 ┆mess,receiver,sender; ┆
0x92d20…92d40 20 20 20 20 20 20 20 20 20 20 62 79 74 65 20 6f 70 65 72 61 74 69 6f 6e 2c 6d 6f 64 65 3b 0a 20 ┆ byte operation,mode; ┆
0x92d40…92d60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65 66 20 20 6d 62 66 73 74 2c 6d 62 6c 73 ┆ ref mbfst,mbls┆
0x92d60…92d7a 74 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 6f 72 64 20 ┆t; word ┆
0x92d7a…92d80 (0x450,0x125c)
0x92d80…92da0 73 65 67 6d 6e 6f 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65 66 20 6d 62 ┆segmno; ref mb┆
0x92da0…92dc0 69 6c 61 73 74 29 3b 0a 20 20 72 65 63 6f 72 64 20 75 73 65 72 65 6e 74 72 79 20 28 72 65 66 20 ┆ilast); record userentry (ref ┆
0x92dc0…92de0 20 6e 65 78 74 75 73 65 72 2c 70 72 65 76 75 73 65 72 2c 62 75 66 66 65 72 2c 0a 20 20 20 20 20 ┆ nextuser,prevuser,buffer, ┆
0x92de0…92e00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 65 73 73 00 00 00 00 00 00 00 00 ┆ mess ┆
0x92e00…92e06 (1175,) (0x450,0x125d)
0x92e06…92e20 67 6f 74 2c 6d 65 73 73 73 65 6e 64 2c 70 72 6f 63 62 75 66 31 2c 70 65 72 69 ┆got,messsend,procbuf1,peri┆
0x92e20…92e40 70 68 65 72 61 6c 2c 69 6e 74 65 72 6e 61 6c 2c 70 72 69 6d 64 65 76 69 3b 0a 20 20 20 20 20 20 ┆pheral,internal,primdevi; ┆
0x92e40…92e60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 6f 72 64 20 73 77 6f 70 73 65 67 6d 2c 63 6c 61 73 ┆ word swopsegm,clas┆
0x92e60…92e7e 73 2c 70 72 69 6f 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 79 ┆s,prio; by┆
0x92e7e…92e84 (0x450,0x125e)
0x92e84…92ea0 74 65 20 73 74 61 74 65 2c 73 74 61 74 65 32 2c 62 75 66 6c 65 6e 67 74 68 2c 62 75 ┆te state,state2,buflength,bu┆
0x92ea0…92ec0 66 63 68 61 72 73 2c 69 6e 74 65 72 76 65 6e 74 2c 70 72 69 6d 69 6f 2c 62 75 66 72 65 6c 3b 0a ┆fchars,intervent,primio,bufrel; ┆
0x92ec0…92ee0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 6f 72 64 20 73 74 61 74 75 73 69 ┆ word statusi┆
0x92ee0…92efc 6e 66 2c 63 75 72 72 6c 6f 63 69 64 2c 70 72 6f 63 73 69 7a 65 3b 0a 20 20 20 20 20 ┆nf,currlocid,procsize; ┆
0x92efc…92f02 (0x450,0x125f)
0x92f02…92f20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 65 78 74 28 31 34 29 20 70 72 5f 69 6e 2c ┆ text(14) pr_in,┆
0x92f20…92f40 70 72 5f 6f 75 74 29 3b 0a 20 20 72 65 63 6f 72 64 20 74 65 72 6d 64 65 73 63 72 0a 20 20 20 20 ┆pr_out); record termdescr ┆
0x92f40…92f60 20 20 20 20 28 74 65 78 74 28 31 31 29 20 65 78 74 69 64 3b 0a 20 20 20 20 20 20 20 20 20 77 6f ┆ (text(11) extid; wo┆
0x92f60…92f7a 72 64 20 69 6e 74 69 64 3b 0a 20 20 20 20 20 20 20 20 20 74 65 78 74 28 31 31 ┆rd intid; text(11┆
0x92f7a…92f80 (0x450,0x1260)
0x92f80…92fa0 29 20 75 73 65 72 6b 65 79 3b 0a 20 20 20 20 20 20 20 20 20 62 79 74 65 20 74 62 75 66 73 2c 74 ┆) userkey; byte tbufs,t┆
0x92fa0…92fc0 74 69 6d 65 72 73 3b 0a 20 20 20 20 20 20 20 20 20 61 72 72 61 79 28 31 3a 36 29 20 74 66 69 6c ┆timers; array(1:6) tfil┆
0x92fc0…92fe0 6c 20 6f 66 20 62 79 74 65 29 3b 0a 20 20 72 65 63 6f 72 64 20 70 72 6f 63 64 65 73 63 72 0a 20 ┆l of byte); record procdescr ┆
0x92fe0…93000 20 20 20 20 20 20 20 28 62 79 74 65 20 70 72 6f 63 62 75 66 66 65 72 73 00 00 00 00 00 00 00 00 ┆ (byte procbuffers ┆
0x93000…93006 (1176,) (0x450,0x1261)
0x93006…93020 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 ┆,procareas; word ┆
0x93020…93040 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 20 20 20 20 20 70 ┆procsb1,procsb2, p┆
0x93040…93060 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 20 20 20 20 70 72 ┆rocub1,procub2, pr┆
0x93060…9307e 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 78 74 28 31 ┆ocmb1,procmb2; text(1┆
0x9307e…93084 (0x450,0x1262)
0x93084…930a0 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 ┆1) ppass; word pmin┆
0x930a0…930c0 73 69 7a 65 2c 70 6d 61 78 73 69 7a 65 3b 0a 20 20 20 20 20 20 20 20 20 61 72 72 61 79 28 31 3a ┆size,pmaxsize; array(1:┆
0x930c0…930e0 31 30 29 20 70 66 69 6c 6c 20 6f 66 20 62 79 74 65 3b 0a 20 20 20 20 20 20 20 20 20 74 65 78 74 ┆10) pfill of byte; text┆
0x930e0…930fc 28 35 39 29 20 70 72 6f 63 66 70 3b 0a 20 20 20 20 20 20 20 20 20 61 72 72 61 79 28 ┆(59) procfp; array(┆
0x930fc…93102 (0x450,0x1263)
0x93102…93120 31 3a 31 32 29 20 70 72 6f 63 64 69 73 63 73 20 6f 66 20 72 65 63 6f 72 64 20 70 72 6f 63 ┆1:12) procdiscs of record proc┆
0x93120…93140 64 69 73 63 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 ┆disc ┆
0x93140…93160 20 20 20 20 20 20 20 20 20 20 20 20 28 74 65 78 74 28 31 31 29 20 70 72 6f 63 64 69 73 63 6e 61 ┆ (text(11) procdiscna┆
0x93160…9317a 6d 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆me; ┆
0x9317a…93180 (0x450,0x1264)
0x93180…931a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 72 72 61 79 28 31 3a 38 29 20 70 72 6f ┆ array(1:8) pro┆
0x931a0…931c0 63 64 69 73 63 63 6c 61 69 6d 20 6f 66 20 77 6f 72 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆cdiscclaim of word ┆
0x931c0…931e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 29 0a 20 20 20 20 ┆ ) ┆
0x931e0…93200 20 20 20 20 29 3b 0a 20 20 72 65 63 6f 72 64 20 70 72 69 6e 64 65 78 20 00 00 00 00 00 00 00 00 ┆ ); record prindex ┆
0x93200…93206 (1177,) (0x450,0x1265)
0x93206…93220 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 ┆(text(11) prname; ┆
0x93220…93240 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 3b 0a 20 20 69 6e ┆ word prsegmno); in┆
0x93240…93260 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 74 69 76 71 6c 73 ┆code ref activqfst,activqls┆
0x93260…9327e 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 68 71 6c 73 ┆t, batchqfst,batchqls┆
0x9327e…93284 (0x450,0x1266)
0x93284…932a0 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 ┆t, waitqfst,waitqls┆
0x932a0…932c0 74 2c 0a 20 20 20 20 20 20 20 20 20 63 6f 72 65 75 73 65 72 3a 3d 30 2c 74 69 6d 65 72 6d 65 73 ┆t, coreuser:=0,timermes┆
0x932c0…932e0 73 3a 3d 30 2c 0a 20 20 20 20 20 20 20 20 20 66 69 72 73 74 75 73 65 72 2c 6c 61 73 74 75 73 65 ┆s:=0, firstuser,lastuse┆
0x932e0…932fc 72 3b 0a 20 20 20 20 77 6f 72 64 20 6d 61 78 62 75 66 2c 6d 69 6e 70 72 69 6f 2c 6d ┆r; word maxbuf,minprio,m┆
0x932fc…93302 (0x450,0x1267)
0x93302…93320 61 78 74 65 73 74 73 65 67 6d 2c 73 79 73 63 6f 6e 64 2c 70 61 73 73 6d 6f 64 65 2c 62 61 ┆axtestsegm,syscond,passmode,ba┆
0x93320…93340 74 63 68 63 6c 61 73 73 3a 3d 2d 38 30 30 30 30 30 30 3b 0a 20 20 20 20 77 6f 72 64 20 72 65 67 ┆tchclass:=-8000000; word reg┆
0x93340…93360 69 73 74 65 72 30 2c 72 65 67 69 73 74 65 72 31 2c 72 65 67 69 73 74 65 72 32 2c 72 65 67 69 73 ┆ister0,register1,register2,regis┆
0x93360…9337a 74 65 72 33 2c 65 78 63 65 70 74 69 6f 6e 3a 3d 30 2c 69 63 3b 0a 20 20 20 20 ┆ter3,exception:=0,ic; ┆
0x9337a…93380 (0x450,0x1268)
0x93380…933a0 77 6f 72 64 20 6f 77 6e 70 72 6f 63 2c 20 73 6f 73 74 65 72 6d 3b 0a 20 20 20 20 77 6f 72 64 20 ┆word ownproc, sosterm; word ┆
0x933a0…933c0 62 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 65 2c 74 ┆basereg; text(14) procname,t┆
0x933c0…933e0 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 61 74 74 3a 3d ┆imer:="clock"; text(2) att:=┆
0x933e0…93400 22 0a 3e 22 3b 20 77 6f 72 64 20 74 69 6d 65 75 6e 69 74 3a 3d 30 2c 69 00 00 00 00 00 00 00 00 ┆" >"; word timeunit:=0,i ┆
0x93400…93406 (1178,) (0x450,0x1269)
0x93406…93420 6e 74 65 72 76 61 6c 3b 0a 20 20 20 20 77 6f 72 64 20 6d 69 63 75 6e 69 74 3a ┆nterval; word micunit:┆
0x93420…93440 3d 32 3b 0a 20 20 20 20 64 6f 75 62 6c 65 20 6d 69 63 69 6e 74 65 72 76 61 6c 3a 3d 36 30 30 3b ┆=2; double micinterval:=600;┆
0x93440…93460 0a 20 20 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 ┆ byte testop:=5,testmode:=0;┆
0x93460…9347e 0a 20 20 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 ┆ ref testbfst,testblst,te┆
0x9347e…93484 (0x450,0x126a)
0x93484…934a0 73 74 73 65 67 6d 3a 3d 30 3b 0a 20 20 20 20 72 65 66 20 20 66 73 74 63 6f 72 65 2c ┆stsegm:=0; ref fstcore,┆
0x934a0…934c0 74 6f 70 63 6f 72 65 3b 0a 20 20 20 20 72 65 66 20 62 61 73 65 65 76 65 6e 74 3a 3d 30 2c 6d 61 ┆topcore; ref baseevent:=0,ma┆
0x934c0…934e0 69 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 20 20 20 20 64 ┆inconsref,mictimer,psmess; d┆
0x934e0…934fc 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 20 ┆ouble starttime,startbase; ┆
0x934fc…93502 (0x450,0x126b)
0x93502…93520 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 ┆ byte relintrpt,reldump,idsi┆
0x93520…93540 7a 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 72 ┆ze,sysstate:=0; byte childpr┆
0x93540…93560 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 6e 2c 69 6e 70 ┆,childpk,timerloss,cyclegain,inp┆
0x93560…9357a 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 ┆utgain,freebufs; text(┆
0x9357a…93580 (0x450,0x126c)
0x93580…935a0 31 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 ┆11) operator:= "'255'"; text┆
0x935a0…935c0 20 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 6c 65 61 ┆ (14) tstarea,swname,fpcode,clea┆
0x935c0…935e0 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 2c 70 5f 70 73 ┆rtemp,usercat,t_mdul,p_mdul,p_ps┆
0x935e0…93600 65 75 64 6f 2c 74 5f 70 73 65 75 64 6f 3b 0a 20 20 20 20 62 79 74 65 20 00 00 00 00 00 00 00 00 ┆eudo,t_pseudo; byte ┆
0x93600…93606 (1179,) (0x450,0x126d)
0x93606…93620 66 70 5f 72 65 6c 2c 63 6c 65 61 72 74 5f 72 65 6c 3b 0a 20 20 20 20 62 79 74 ┆fp_rel,cleart_rel; byt┆
0x93620…93640 65 20 66 61 75 6c 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 ┆e faultop:=2,faultmode:=1; t┆
0x93640…93660 65 78 74 28 32 30 29 20 66 61 75 6c 74 74 65 78 74 3a 3d 22 2a 2a 2a 66 61 75 6c 74 22 3b 0a 20 ┆ext(20) faulttext:="***fault"; ┆
0x93660…9367e 20 62 65 67 69 6e 0a 0c 0a 20 20 20 20 63 6f 6d 6d 65 6e 74 20 20 20 20 74 68 65 20 66 6f ┆ begin comment the fo┆
0x9367e…93684 (0x450,0x126e)
0x93684…936a0 6c 6c 6f 77 69 6e 67 20 70 69 65 63 65 20 6f 66 20 63 6f 64 65 20 69 73 20 61 66 74 ┆llowing piece of code is aft┆
0x936a0…936c0 65 72 20 69 6e 69 74 69 61 6c 69 7a 61 74 69 6f 6e 20 75 73 65 64 20 61 73 0a 20 20 20 20 20 20 ┆er initialization used as ┆
0x936c0…936e0 20 20 20 20 20 20 20 20 20 62 75 66 66 65 72 20 66 6f 72 20 20 77 61 69 74 20 61 6e 73 77 65 72 ┆ buffer for wait answer┆
0x936e0…936fc 2c 20 61 6e 64 20 61 73 20 69 6e 74 65 72 72 75 70 74 20 72 6f 75 74 69 6e 65 0a 20 ┆, and as interrupt routine ┆
0x936fc…93702 (0x450,0x126f)
0x93702…93720 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 6e 20 63 61 73 65 20 6f 66 20 69 6e 74 65 72 ┆ in case of inter┆
0x93720…93740 6e 61 6c 20 69 6e 74 65 72 72 75 70 74 20 6f 72 20 21 74 65 73 74 0a 20 20 20 20 3b 0a 20 20 20 ┆nal interrupt or !test ; ┆
0x93740…93760 20 6f 77 6e 70 72 6f 63 3a 3d 20 77 33 3b 20 20 20 20 21 20 73 61 76 65 20 6f 77 6e 20 70 72 6f ┆ ownproc:= w3; ! save own pro┆
0x93760…9377a 63 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 ┆cess description address !┆
0x9377a…93780 (0x450,0x1270)
0x93780…937a0 0a 69 6e 74 65 72 72 75 70 74 3a 0a 20 20 20 20 77 33 3a 3d 61 64 64 72 65 73 73 28 69 6e 74 65 ┆ interrupt: w3:=address(inte┆
0x937a0…937c0 72 72 75 70 74 29 2b 32 3b 0a 20 20 20 20 77 30 3a 3d 30 3b 0a 20 20 20 20 6d 6f 6e 69 74 6f 72 ┆rrupt)+2; w0:=0; monitor┆
0x937c0…937e0 28 30 29 3b 20 20 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 ┆(0); comment set interrupt add┆
0x937e0…93800 72 65 73 73 3b 0a 20 20 20 20 6d 61 69 6e 63 6f 6e 73 72 65 66 3a 3d 77 00 00 00 00 00 00 00 00 ┆ress; mainconsref:=w ┆
0x93800…93806 (1180,) (0x450,0x1271)
0x93806…93820 32 3b 0a 20 20 20 20 67 6f 74 6f 20 69 6e 69 74 69 61 6c 69 7a 65 3b 0a 20 20 ┆2; goto initialize; ┆
0x93820…93840 20 20 77 31 2b 30 3b 0a 20 20 20 20 77 31 2b 30 3b 0a 20 20 20 20 77 31 2b 30 3b 0a 20 20 20 20 ┆ w1+0; w1+0; w1+0; ┆
0x93840…93860 74 65 73 74 6f 75 74 28 2e 77 33 2e 2c 77 30 3a 3d 31 36 2c 77 31 3a 3d 61 64 64 72 65 73 73 28 ┆testout(.w3.,w0:=16,w1:=address(┆
0x93860…9387e 69 6e 74 65 72 72 75 70 74 29 2b 32 2c 77 32 3a 3d 37 29 3b 0a 20 20 20 20 21 67 65 74 20 ┆interrupt)+2,w2:=7); !get ┆
0x9387e…93884 (0x450,0x1272)
0x93884…938a0 32 3b 0a 20 20 20 20 69 66 20 77 30 20 3c 3e 20 31 20 74 68 65 6e 20 67 6f 74 6f 20 ┆2; if w0 <> 1 then goto ┆
0x938a0…938c0 64 69 73 63 66 61 75 6c 74 3b 0a 20 20 20 20 6f 70 6d 65 73 73 28 2e 77 33 2e 2c 77 31 3a 3d 61 ┆discfault; opmess(.w3.,w1:=a┆
0x938c0…938e0 64 64 72 65 73 73 28 66 61 75 6c 74 6f 70 29 2c 77 32 3a 3d 6f 77 6e 70 72 6f 63 29 3b 0a 69 6e ┆ddress(faultop),w2:=ownproc); in┆
0x938e0…938fc 69 74 69 61 6c 69 7a 65 3a 0a 20 20 20 20 21 67 65 74 20 32 3b 0a 20 20 20 20 69 66 ┆itialize: !get 2; if┆
0x938fc…93902 (0x450,0x1273)
0x93902…93920 20 77 30 20 3c 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 ┆ w0 <> 1 then goto discfault; ┆
0x93920…93940 20 20 20 20 69 6e 69 74 28 2e 77 33 2e 29 3b 0a 0c 0a 0a 0a 0a 0a 63 6f 6d 6d 65 6e 74 20 20 20 ┆ init(.w3.); comment ┆
0x93940…93960 20 20 74 68 65 20 63 65 6e 74 72 61 6c 20 6c 6f 67 69 63 20 6f 66 20 74 68 65 20 6f 6e 6c 69 6e ┆ the central logic of the onlin┆
0x93960…9397a 65 61 64 6d 69 6e 69 73 74 72 61 74 6f 72 20 69 73 20 74 68 69 73 3a 0a 0a 61 ┆eadministrator is this: a┆
0x9397a…93980 (0x450,0x1274)
0x93980…939a0 29 20 77 61 69 74 20 66 6f 72 20 61 6e 20 65 76 65 6e 74 20 66 72 6f 6d 20 61 20 74 65 72 6d 69 ┆) wait for an event from a termi┆
0x939a0…939c0 6e 61 6c 2c 20 66 72 6f 6d 20 61 6e 20 69 6e 74 65 72 6e 61 6c 20 70 72 6f 63 65 73 73 0a 20 20 ┆nal, from an internal process ┆
0x939c0…939e0 20 6f 72 20 66 72 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 ┆ or from the timer b) take some┆
0x939e0…93a00 20 61 63 74 69 6f 6e 20 63 6f 72 72 65 73 70 6f 6e 64 69 6e 67 20 74 6f 00 00 00 00 00 00 00 00 ┆ action corresponding to ┆
0x93a00…93a06 (1181,) (0x450,0x1275)
0x93a06…93a20 20 74 68 65 20 6b 69 6e 64 20 6f 66 20 74 68 65 20 65 76 65 6e 74 20 61 72 72 ┆ the kind of the event arr┆
0x93a20…93a40 69 76 65 64 0a 20 20 20 2d 20 20 74 68 69 73 20 61 63 74 69 6f 6e 20 6d 61 79 20 69 6e 63 6c 75 ┆ived - this action may inclu┆
0x93a40…93a60 64 65 20 73 74 6f 70 70 69 6e 67 20 74 68 65 20 72 75 6e 6e 69 6e 67 20 70 72 6f 63 65 73 73 0a ┆de stopping the running process ┆
0x93a60…93a7e 0a 63 29 20 69 66 20 74 68 65 20 72 75 6e 6e 69 6e 67 20 70 72 6f 63 65 73 73 20 69 73 20 ┆ c) if the running process is ┆
0x93a7e…93a84 (0x450,0x1276)
0x93a84…93aa0 73 74 6f 70 70 65 64 20 74 68 65 6e 20 73 65 6c 65 63 74 20 6e 65 77 20 70 72 6f 63 ┆stopped then select new proc┆
0x93aa0…93ac0 65 73 73 20 66 6f 72 0a 20 20 20 61 63 74 69 76 61 74 69 6f 6e 20 28 69 66 20 61 6e 79 6f 6e 65 ┆ess for activation (if anyone┆
0x93ac0…93ae0 20 69 73 20 72 65 61 64 79 29 20 61 6e 64 20 73 77 6f 70 0a 0a 64 29 20 74 61 6b 65 20 73 6f 6d ┆ is ready) and swop d) take som┆
0x93ae0…93afc 65 20 61 63 74 69 6f 6e 20 63 6f 72 72 65 73 70 6f 6e 64 69 6e 67 20 74 6f 20 74 68 ┆e action corresponding to th┆
0x93afc…93b02 (0x450,0x1277)
0x93b02…93b20 65 20 73 74 61 74 65 20 6f 66 20 74 68 65 20 70 72 6f 63 65 73 73 0a 20 20 20 74 68 61 74 ┆e state of the process that┆
0x93b20…93b40 20 69 73 20 73 65 6c 65 63 74 65 64 20 66 6f 72 20 61 63 74 69 76 61 74 69 6f 6e 20 28 63 6f 70 ┆ is selected for activation (cop┆
0x93b40…93b60 79 20 69 6e 70 75 74 20 66 72 6f 6d 20 62 75 66 66 65 72 20 69 6e 74 6f 0a 20 20 20 74 68 65 20 ┆y input from buffer into the ┆
0x93b60…93b7a 70 72 6f 63 65 73 73 20 65 74 63 29 0a 0a 65 29 20 73 74 61 72 74 20 74 68 65 ┆process etc) e) start the┆
0x93b7a…93b80 (0x450,0x1278)
0x93b80…93ba0 20 70 72 6f 63 65 73 73 2c 20 73 65 6e 64 20 61 20 6d 65 73 73 61 67 65 20 74 6f 20 74 69 6d 65 ┆ process, send a message to time┆
0x93ba0…93bc0 72 20 61 6e 64 20 67 6f 74 6f 20 61 2e 0a 3b 0a 0a 63 6f 6e 74 69 6e 75 65 3a 0a 20 20 20 20 77 ┆r and goto a. ; continue: w┆
0x93bc0…93be0 61 69 74 65 76 65 6e 74 28 2e 77 33 2e 2c 77 30 2c 77 31 2c 77 32 29 3b 0a 61 63 74 69 6f 6e 5f ┆aitevent(.w3.,w0,w1,w2); action_┆
0x93be0…93c00 6c 3a 0a 20 20 20 20 75 73 65 72 65 6e 74 72 79 3a 3d 77 31 3b 0a 20 20 00 00 00 00 00 00 00 00 ┆l: userentry:=w1; ┆
0x93c00…93c06 (1182,) (0x450,0x1279)
0x93c06…93c20 20 20 6d 65 73 73 61 67 65 3a 3d 77 32 3b 0a 20 20 20 20 61 63 74 69 6f 6e 20 ┆ message:=w2; action ┆
0x93c20…93c40 28 2e 77 33 2e 2c 77 30 2c 77 31 2c 77 32 29 3b 0a 0a 0a 0a 72 65 67 72 65 74 74 69 6d 65 72 3a ┆(.w3.,w0,w1,w2); regrettimer:┆
0x93c40…93c60 0a 20 20 20 20 69 66 20 77 32 3a 3d 74 69 6d 65 72 6d 65 73 73 3c 3e 30 20 74 68 65 6e 20 0a 20 ┆ if w2:=timermess<>0 then ┆
0x93c60…93c7e 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 28 38 32 29 3b 20 20 63 ┆ begin monitor(82); c┆
0x93c7e…93c84 (0x450,0x127a)
0x93c84…93ca0 6f 6d 6d 65 6e 74 20 72 65 67 72 65 74 20 6d 65 73 73 61 67 65 3b 0a 20 20 20 20 20 ┆omment regret message; ┆
0x93ca0…93cc0 20 77 32 3a 3d 30 3b 0a 20 20 20 20 20 20 74 69 6d 65 72 6d 65 73 73 3a 3d 77 32 3b 0a 20 20 20 ┆ w2:=0; timermess:=w2; ┆
0x93cc0…93ce0 20 65 6e 64 3b 0a 0c 0a 0a 0a 0a 63 6f 6d 6d 65 6e 74 20 20 20 20 20 73 65 6c 65 63 74 69 6f 6e ┆ end; comment selection┆
0x93ce0…93cfc 20 6f 66 20 74 68 65 20 6e 65 78 74 20 70 72 6f 63 65 73 73 20 74 6f 20 62 65 20 61 ┆ of the next process to be a┆
0x93cfc…93d02 (0x450,0x127b)
0x93d02…93d20 63 74 69 76 61 74 65 64 0a 0a 74 68 65 20 73 79 73 74 65 6d 20 64 65 61 6c 73 20 77 69 74 ┆ctivated the system deals wit┆
0x93d20…93d40 68 20 74 77 6f 20 64 69 66 66 65 72 65 6e 74 20 71 75 65 75 65 73 3a 0a 0a 31 29 20 74 68 65 20 ┆h two different queues: 1) the ┆
0x93d40…93d60 61 63 74 69 76 65 2d 71 75 65 75 65 20 20 20 20 70 72 6f 63 65 73 73 65 73 20 72 65 61 64 79 20 ┆active-queue processes ready ┆
0x93d60…93d7a 66 6f 72 20 72 75 6e 6e 69 6e 67 20 28 69 6e 70 75 74 20 68 61 73 20 61 72 72 ┆for running (input has arr┆
0x93d7a…93d80 (0x450,0x127c)
0x93d80…93da0 69 76 65 64 20 65 74 63 29 0a 32 29 20 74 68 65 20 77 61 69 74 69 6e 67 2d 71 75 65 75 65 20 20 ┆ived etc) 2) the waiting-queue ┆
0x93da0…93dc0 20 70 72 6f 63 65 73 73 65 73 20 73 75 73 70 65 6e 64 65 64 20 6f 72 20 6e 6f 74 20 75 73 65 64 ┆ processes suspended or not used┆
0x93dc0…93de0 20 61 74 20 61 6c 6c 0a 0a 61 74 20 61 63 74 69 76 61 74 69 6f 6e 20 74 68 65 20 66 69 72 73 74 ┆ at all at activation the first┆
0x93de0…93e00 20 75 73 65 72 20 69 6e 20 74 68 65 20 61 63 74 69 76 65 71 75 65 75 65 00 00 00 00 00 00 00 00 ┆ user in the activequeue ┆
0x93e00…93e06 (1183,) (0x450,0x127d)
0x93e06…93e20 20 28 69 66 20 61 6e 79 29 20 69 73 20 74 65 73 74 65 64 20 66 6f 72 0a 68 69 ┆ (if any) is tested for hi┆
0x93e20…93e40 73 20 70 72 69 6f 72 69 74 79 20 2d 20 69 73 20 69 74 20 7a 65 72 6f 20 74 68 65 6e 20 74 68 65 ┆s priority - is it zero then the┆
0x93e40…93e60 20 70 72 6f 63 65 73 73 20 69 73 20 73 65 6c 65 63 74 65 64 20 66 6f 72 20 61 63 74 69 76 61 74 ┆ process is selected for activat┆
0x93e60…93e7e 69 6f 6e 0a 2d 20 6f 74 68 65 72 77 69 7a 65 20 74 68 65 20 70 72 69 6f 72 69 74 79 20 69 ┆ion - otherwize the priority i┆
0x93e7e…93e84 (0x450,0x127e)
0x93e84…93ea0 73 20 69 6e 63 72 65 61 73 65 64 2c 20 61 6e 64 20 74 68 65 20 75 73 65 72 20 69 73 ┆s increased, and the user is┆
0x93ea0…93ec0 20 72 65 6d 6f 76 65 64 20 66 72 6f 6d 20 74 68 65 0a 61 63 74 69 76 65 71 75 65 75 65 20 61 6e ┆ removed from the activequeue an┆
0x93ec0…93ee0 64 20 74 68 65 6e 20 70 75 74 20 62 61 63 6b 20 6f 6e 20 74 68 65 20 71 75 65 75 65 20 61 67 61 ┆d then put back on the queue aga┆
0x93ee0…93efc 69 6e 0a 3b 0a 0a 61 63 74 69 76 61 74 65 3a 0a 20 20 20 20 75 73 65 72 65 6e 74 72 ┆in ; activate: userentr┆
0x93efc…93f02 (0x450,0x127f)
0x93f02…93f20 79 3a 3d 77 31 3a 3d 61 63 74 69 76 71 66 73 74 3b 0a 20 20 20 20 69 66 20 77 30 3a 3d 61 ┆y:=w1:=activqfst; if w0:=a┆
0x93f20…93f40 64 64 72 65 73 73 28 61 63 74 69 76 71 66 73 74 29 20 3c 3e 20 77 31 20 74 68 65 6e 20 20 20 20 ┆ddress(activqfst) <> w1 then ┆
0x93f40…93f60 20 21 20 61 63 74 69 76 65 71 75 65 75 65 20 6e 6f 74 20 65 6d 70 74 79 20 21 0a 20 20 20 20 62 ┆ ! activequeue not empty ! b┆
0x93f60…93f7a 65 67 69 6e 0a 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 31 29 2e 73 74 61 ┆egin if w0:=(w1).sta┆
0x93f7a…93f80 (0x450,0x1280)
0x93f80…93fa0 74 65 20 3d 20 30 20 74 68 65 6e 0a 20 20 20 20 20 20 69 66 20 77 30 3a 3d 28 77 31 29 2e 63 6c ┆te = 0 then if w0:=(w1).cl┆
0x93fa0…93fc0 61 73 73 2b 74 69 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 ┆ass+timerloss < batchclass then ┆
0x93fc0…93fe0 20 20 20 20 21 20 6a 6f 62 20 69 73 20 62 61 74 63 68 20 21 0a 20 20 20 20 20 20 62 65 67 69 6e ┆ ! job is batch ! begin┆
0x93fe0…94000 0a 20 20 20 20 20 20 20 20 6c 69 6e 6b 28 2e 77 33 2e 2c 77 31 2c 77 32 00 00 00 00 00 00 00 00 ┆ link(.w3.,w1,w2 ┆